diff --git a/.codespellrc b/.codespellrc new file mode 100644 index 000000000..1a50d40d8 --- /dev/null +++ b/.codespellrc @@ -0,0 +1,2 @@ +[codespell] +skip = ./node_modules*,./dist/*,./package-lock.json,./lib/srfi/*,./assets/UnicodeData.txt,./scripts/numerals.scm diff --git a/.gitattributes b/.gitattributes index 28f051899..77f2fe1f0 100644 --- a/.gitattributes +++ b/.gitattributes @@ -7,3 +7,4 @@ assets/*.png binary tests/snapshots/* binary *.xcm binary *.xcb binary +dist/** linguist-generated diff --git a/.github/workflows/build.yaml b/.github/workflows/build.yaml new file mode 100644 index 000000000..071ee4f13 --- /dev/null +++ b/.github/workflows/build.yaml @@ -0,0 +1,35 @@ +name: Build and test + +on: + push: + branches: + - master + - devel + pull_request: + branches: + - master + - devel + +jobs: + build: + runs-on: ubuntu-latest + steps: + - name: Update deps + run: sudo apt-get update + - name: Install ImageMagick + run: sudo apt-get -y install graphicsmagick + - name: checkout + uses: actions/checkout@v4 + - name: setup node + uses: actions/setup-node@v3 + with: + node-version: '16' + - run: npm ci + - run: make + - run: make lint + - run: make test + - run: make coverage + - name: Coveralls + uses: coverallsapp/github-action@master + with: + github-token: ${{ secrets.GITHUB_TOKEN }} diff --git a/.github/workflows/codespell.yaml b/.github/workflows/codespell.yaml new file mode 100644 index 000000000..344a6c1c8 --- /dev/null +++ b/.github/workflows/codespell.yaml @@ -0,0 +1,25 @@ +name: Codespell + +on: + push: + branches: + - master + - devel + pull_request: + branches: + - master + - devel + +permissions: + contents: read + +jobs: + codespell: + name: Check for spelling errors + runs-on: ubuntu-latest + + steps: + - name: Checkout + uses: actions/checkout@v3 + - name: Codespell + uses: codespell-project/actions-codespell@v2 \ No newline at end of file diff --git a/ARCHITECTURE.md b/ARCHITECTURE.md index 4d17cf9b4..76d9cfa51 100644 --- a/ARCHITECTURE.md +++ b/ARCHITECTURE.md @@ -7,7 +7,7 @@ Main interpreter data flow. Main public function is `exec` that accept string (code) and Environment instance. If environment is not specified it use main user environment (same as lips.env) which is child of global environment. `exec` use internal `parse` function that is JavaScript generator that parse single S-Expression and `exec` use `evaluate` to evaluate the expression. -`evaluate` use multiple features like handling of Syntax, Macros and it auto resolve promises. `evaluate` may or may not return a promise. But `exec` always return a promise, so it's easier to use. You can never know which expression return a promise and which don't. `evaluate` also use `apply` function that was inspired by meta circual evaluator (but it was refactored into this state, it was not like this from beginning). +`evaluate` use multiple features like handling of Syntax, Macros and it auto resolve promises. `evaluate` may or may not return a promise. But `exec` always return a promise, so it's easier to use. You can never know which expression return a promise and which don't. `evaluate` also use `apply` function that was inspired by meta circular evaluator (but it was refactored into this state, it was not like this from beginning). ## UML Diagram of all classes @@ -16,7 +16,7 @@ Main public function is `exec` that accept string (code) and Environment instanc ## Lexer Lexer is created as simple state machine with `Lexer._rules` that specify -all the states. The sate change is simple it can change from null to given +all the states. The state change is simple it can change from null to given state for a given token (e.g. symbol), remain in same state and move from given state to null. The last change produce new token. Rules are dynamic the parser can be update by syntax extensions so `Lexer.rules` is a getter diff --git a/CHANGELOG.md b/CHANGELOG.md index d9c07f29e..5f18aaaf2 100755 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -1,3 +1,26 @@ +## 1.0.0-beta.17 +### Breaking +* chars are now not automatically unboxed to strings [#233](https://github.com/jcubic/lips/issues/233) +### Features +* make bookmark REPL dockable [#205](https://github.com/jcubic/lips/issues/205) +* make Strings iterators that return characters +* improve object literals [#237](https://github.com/jcubic/lips/issues/237) +* better error message with exception on invalid string literal +* add non-standard `with-input-from-string` function +### Bugfix +* fix using performance object for older version of Node +* fixing escaped symbols in CodeMirror +* fix parsing strings [#193](https://github.com/jcubic/lips/issues/193) +* add proper error message to `-->` macro [#200](https://github.com/jcubic/lips/issues/200) +* fix `performance.timeOrigin` on Node 12 [#207](https://github.com/jcubic/lips/issues/207) +* fix string->list to handle longer code points +* fix numerator and denominator [#213](https://github.com/jcubic/lips/issues/213) +* fix Map object repr +* fix parsing regular expressions [#238](https://github.com/jcubic/lips/issues/238) +* fix exception when syntax-rule macro contain undefined +* fix REPL clearing stdin when using read-line [#253](https://github.com/jcubic/lips/issues/253) +* add proper handling of [Paste Brackets mode in REPL for NodeJS](https://github.com/nodejs/node/pull/47150) + ## 1.0.0-beta.16 ### Breaking * replace `get-script` with `get-resource` that work in Node and in browser and allows to load CSS @@ -16,6 +39,7 @@ * fix bug in `quasiquote` and `unquote-splicing` [#194](https://github.com/jcubic/lips/issues/194) * fix `inexact->exact` on integers [#199](https://github.com/jcubic/lips/issues/199) * throw error on missing parentheses [#198](https://github.com/jcubic/lips/issues/198) +* fix empty syntax extensions as functions ## 1.0.0-beta.15 ### Breaking @@ -36,7 +60,7 @@ * property throw error when name is used without ellipsis * fix using dot notation inside syntax-rules macros * typecheck `string->symbol` and `symbol->string` -* fix `parent.frame` inside `Intepreter` +* fix `parent.frame` inside `Interpreter` * fix `eval` without env * fix quote as delimiter * fix comma dot as two tokens @@ -341,7 +365,7 @@ * `if` no longer require boolean as cond * change how arrays are presented, they are look like scheme vector `#(...)` * rename `string` to `repr` -* new API `lips.Intepreter` - for using interpreter that have different stdout/stdin +* new API `lips.Interpreter` - for using interpreter that have different stdout/stdin * balanced_parenthesis now throw exception on broken code * remove global env from public API (you can still access it using `env.parent`) * remove `->` function (it will collide with SRFI 197 that may be implemented in the future) @@ -374,7 +398,7 @@ * improve balancing parenthesis * expose balanced method in public API (preferred name) * optional brackets -* `interator?` function and detection if iterators from `repr` and `type` [#51](https://github.com/jcubic/lips/issues/51) +* `iterator?` function and detection if iterators from `repr` and `type` [#51](https://github.com/jcubic/lips/issues/51) * `add-repr!` function to add string representations to objects * new `string=?`, `sort`, `in`, `list-tail` and `bound?` functions * add new `exit` function into executable interpreter @@ -668,7 +692,7 @@ ### Features * new nth and reverse functions * new type checking functions null? regex? pair? string? number? symbol? array? object? boolean? -* add lips source code that throwed exception in JavaScript error message +* add lips source code that threw exception in JavaScript error message ### Bug fixes * fix lambda with rest parameter ### Breaking diff --git a/LICENSE b/LICENSE index 674012dd0..d3bec0007 100644 --- a/LICENSE +++ b/LICENSE @@ -71,7 +71,7 @@ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -------------------------------------------------------------------------------- -Part of the library (contentloaded function) licesed with +Part of the library (contentloaded function) licensed with Copyright (c) 2005-2010 Diego Perini and NWBOX S.a.s. diff --git a/Makefile b/Makefile index 2b803f500..d125f760e 100644 --- a/Makefile +++ b/Makefile @@ -1,4 +1,4 @@ -.PHONY: publish test coveralls lint zero +.PHONY: publish test coveralls lint zero coverage VERSION=1.0.0-beta.16 VERSION_DASH=`echo -n "1.0.0-beta.16" | sed "s/-/%E2%80%93/"` @@ -65,10 +65,10 @@ assets/classDiagram.svg: assets/classDiagram README.md: templates/README.md dist/lips.js .$(VERSION) $(GIT) branch | grep '* devel' > /dev/null && $(SED) -e "s/{{VER}}/DEV/g" -e \ - "s/{{VER_DASH}}/$(VERSION_DASH)/g" -e "s/{{BRANCH}}/$(BRANCH)/g" -e "s/{{CHECKSUM}}/$(TESTS_CHECKSUM)/g" \ + "s/{{VER_DASH}}/$(VERSION_DASH)/g" -e "s#{{BRANCH}}#$(BRANCH)#g" -e "s/{{CHECKSUM}}/$(TESTS_CHECKSUM)/g" \ -e "s/{{YEAR}}/${YEAR}/g" -e "s/{{DATE}}/${DATE_SHORT}/" -e "s/{{COMMIT}}/$(COMMIT)/g" \ < templates/README.md > README.md || \ - $(SED) -e "s/{{VER}}/$(VERSION)/g" -e "s/{{BRANCH}}/$(BRANCH)/g" -e "s/{{YEAR}}/${YEAR}/g" \ + $(SED) -e "s/{{VER}}/$(VERSION)/g" -e "s#{{BRANCH}}#$(BRANCH)#g" -e "s/{{YEAR}}/${YEAR}/g" \ -e "s/{{CHECKSUM}}/$(TESTS_CHECKSUM)/g" -e "s/{{COMMIT}}/$(COMMIT)/g" -e "s/{{DATE}}/${DATE_SHORT}/" \ -e "s/{{VER_DASH}}/$(VERSION_DASH)/g" < templates/README.md > README.md @@ -112,7 +112,7 @@ watch-lint: watch-make: @inotifywait -m -e close_write src/lips.js | while read even; do $(MAKE) --no-print-directory; done -coveralls: +coverage: $(NPM) run coverage lint: diff --git a/README.md b/README.md index 19e53e7bc..cf544d763 100644 --- a/README.md +++ b/README.md @@ -1,13 +1,13 @@

- LIPS - Scheme Based Powerful Lisp Language

[![npm](https://img.shields.io/badge/npm-1.0.0%E2%80%93beta.16-blue.svg)](https://www.npmjs.com/package/@jcubic/lips) ![1.0.0 Complete](https://img.shields.io/github/milestones/progress-percent/jcubic/lips/1?label=1.0.0%20Complete) -[![travis](https://travis-ci.com/jcubic/lips.svg?branch=master&aba7442b3be9483ca14039700e619680b8a73c37)](https://travis-ci.com/github/jcubic/lips) -[![Coverage Status](https://coveralls.io/repos/github/jcubic/lips/badge.svg?branch=master&1abe29427d5cfaa14ca0afda5bb5d3b4)](https://coveralls.io/github/jcubic/lips?branch=master) +[![Build and test](https://github.com/jcubic/lips/actions/workflows/build.yaml/badge.svg?branch=devel&event=push)](https://github.com/jcubic/lips/actions/workflows/build.yaml) +[![Coverage Status](https://coveralls.io/repos/github/jcubic/lips/badge.svg?branch=devel&1eb2cfbcb9a646f24938a31ec46bbc33)](https://coveralls.io/github/jcubic/lips?branch=devel) [![Join Gitter Chat](https://badges.gitter.im/Join%20Chat.svg)](https://gitter.im/jcubic/lips) ![NPM Download Count](https://img.shields.io/npm/dm/@jcubic/lips) ![JSDelivr Download count](https://img.shields.io/jsdelivr/npm/hm/@jcubic/lips) @@ -79,7 +79,7 @@ https://github.com/jcubic/lips/blob/master/lib/js/bookmark.js ``` Create any link in your bookmarks, edit it and copy paste the content of that file. -Affter you click on the link it will create the REPL at the bottom of the page. +After you click on the link it will create the REPL at the bottom of the page. (NOTE: It may not work on every page because of content security policy; e.g. google.com or gihub.com) @@ -160,7 +160,7 @@ npm install -g @jcubic/lips@beta you can run the interpreter from the terminal: -![LIPS: Scheme interactive terminal](https://github.com/jcubic/lips/blob/master/assets/screencast.gif?raw=true) +![LIPS: Scheme interactive terminal](https://github.com/jcubic/lips/blob/devel/assets/screencast.gif?raw=true) You can also run code in a string with: @@ -199,14 +199,14 @@ Executables also return a S-Expression according to SRFI-176 use `lips --version ## FOSDEM'23 Presentation [Video] -[![FOSDEM 2023 - LIPS Scheme: Powerful introspection and extensibility](https://github.com/jcubic/lips/blob/master/assets/fosdem-intro.png?raw=true)](https://fosdem.org/2023/schedule/event/lipsscheme/) +[![FOSDEM 2023 - LIPS Scheme: Powerful introspection and extensibility](https://github.com/jcubic/lips/blob/devel/assets/fosdem-intro.png?raw=true)](https://fosdem.org/2023/schedule/event/lipsscheme/) ## Limitations Because LIPS is tree walking interpreter sometimes it may be slow. Especially if you want to -process long arrays and use callback function. If the array is quite large each pice of code +process long arrays and use callback function. If the array is quite large each piece of code inside the callback may slow down the processing. For example see: -script [reference.scm](https://github.com/jcubic/lips/blob/master/scripts/reference.scm) +script [reference.scm](https://github.com/jcubic/lips/blob/devel/scripts/reference.scm) That generates reference documentation for all builtin functions and macros. The slow part is `(names.sort name-compare)` (`Array::sort`) that take quite time to calculate, @@ -222,12 +222,12 @@ something like this: (arr.sort fn)) ``` -Another example of slow performace is using LIPS with React, the more code you put into components +Another example of slow performance is using LIPS with React, the more code you put into components the slower the app will become. Examples: * [Preact app that update SVG](https://codepen.io/jcubic/pen/PojYxBP) - it requires to use debounce. -* [React with Hooks](https://codepen.io/jcubic/pen/PoKQmpq?editors=1000) - on click the UI freezes for ~300ms, you can see warnigs in dev tools. +* [React with Hooks](https://codepen.io/jcubic/pen/PoKQmpq?editors=1000) - on click the UI freezes for ~300ms, you can see warnings in dev tools. The issue with performance is tracked in [#197](https://github.com/jcubic/lips/issues/197). diff --git a/REFERENCE.md b/REFERENCE.md index 9f2073761..67c4a9096 100644 --- a/REFERENCE.md +++ b/REFERENCE.md @@ -5,7 +5,7 @@ (- n1 n2 ...) (- n) -Substract number passed as argument. If only one argument is passed +Subtracts n2 and subsequent numbers from n1. If only one argument is passed it will negate the value. ``` @@ -14,21 +14,21 @@ it will negate the value. (. obj . args) (get obj . args) -Function use object as base and keep using arguments to get the +This function uses an object as a base and keeps using arguments to get the property of JavaScript object. Arguments need to be a strings. -e.g. `(. console "log")` if you use any function inside LIPS is -will be weakly bind (can be rebind), so you can call this log function +e.g. `(. console "log")` if you use any function inside LIPS it +will be weakly bound (can be rebound), so you can call this log function without problem unlike in JavaScript when you use `var log = console.log`. -`get` is an alias because . don't work in every place, e.g. you can't -pass it as argument. +`get` is an alias because . doesn't work everywhere, e.g. you can't +pass it as an argument. ``` ## * ``` (* . numbers) -Multiplicate all numbers passed as arguments. If single value is passed +Multiplies all numbers passed as arguments. If single value is passed it will return that value. ``` @@ -36,7 +36,7 @@ it will return that value. ``` (** a b) -Function calculate number a to to the power of b. +Function that calculates number a to to the power of b. ``` ## / @@ -44,29 +44,29 @@ Function calculate number a to to the power of b. (/ n1 n2 ...) (/ n) -Divide number passed as arguments one by one. If single argument -is passed it will calculate (/ 1 n1). +Divides n1 by n2 and subsequent arguments one by one. If single argument +is passed it will calculate (/ 1 n). ``` ## & ``` (& a b) -Function calculate and bit operation. +Function that calculates the bitwise and operation. ``` ## % ``` (% n1 n2) -Function get reminder of it's arguments. +Function returns the remainder of n1/n2 (modulo). ``` ## + ``` (+ . numbers) -Sum all numbers passed as arguments. If single value is passed it will +Sums all numbers passed as arguments. If single value is passed it will return that value. ``` @@ -74,95 +74,97 @@ return that value. ``` (< x1 x2 ...) -Function compare its numerical arguments and check if they are -monotonically decreasing +Function that compares its numerical arguments and checks if they are +monotonically increasing, i.e. x1 < x2 and x2 < x3 and so on. ``` ## << ``` (<< a b) -Function left shit the value a by value b. +Function that left shifts the value a by value b bits. ``` ## <= ``` (<= x1 x2 ...) -Function compare its numerical arguments and check if they are -monotonically nonincreasing +Function that compares its numerical arguments and checks if they are +monotonically nondecreasing, i.e. x1 <= x2 and x2 <= x3 and so on. ``` ## = ``` (== x1 x2 ...) -Function compare its numerical arguments and check if they are equal +Function that compares its numerical arguments and checks if they are +all equal. ``` ## == ``` (== x1 x2 ...) -Function compare its numerical arguments and check if they are equal +Function that compares its numerical arguments and checks if they are +all equal. ``` ## > ``` -(> x1 x2 ...) +(> x1 x2 x3 ...) -Function compare its numerical arguments and check if they are -monotonically increasing +Function that compares its numerical arguments and checks if they are +monotonically decreasing, i.e. x1 > x2 and x2 > x3 and so on. ``` ## >= ``` (>= x1 x2 ...) -Function compare its numerical arguments and check if they are -monotonically nondecreasing +Function that compares its numerical arguments and checks if they are +monotonically nonincreasing, i.e. x1 >= x2 and x2 >= x3 and so on. ``` ## >> ``` (>> a b) -Function right shit the value a by value b. +Function that right shifts the value a by value b bits. ``` ## | ``` (| a b) -Function calculate or bit operation. +Function that calculates the bitwise or operation. ``` ## ~ ``` (~ number) -Function negate the value. +Function that calculates the bitwise inverse (flip all the bits). ``` ## 1- ``` (1- number) -Function substract 1 from the number and return result. +Function that subtracts 1 from the number and return result. ``` ## 1+ ``` (1+ number) -Function add 1 to the number and return result. +Function that adds 1 to the number and return result. ``` ## abs ``` (abs number) -Function create absolute value from number. +Function that returns the absolute value (magnitude) of number. ``` ## acos @@ -174,21 +176,21 @@ Function create absolute value from number. ``` (alist->assign alist . list-of-alists) -Function that work like Object.assign but for LIPS alist. +Function that works like Object.assign but for LIPS alists. ``` ## alist->object ``` (alist->object alist) -Function convert alist pairs to JavaScript object. +Function that converts alist pairs to a JavaScript object. ``` ## always ``` (always constant) -Higher order function returns new function that always return given constant. +Higher-order function that returns a new thunk that always returns the given constant when called. ``` ## angle @@ -202,16 +204,16 @@ Returns angle of the complex number in polar coordinate system. ``` (append item ...) -Function will create new list with eac argument appended to the end. -It will always return new list and not modify it's arguments. +Function that creates a new list with each argument appended end-to-end. +It will always return a new list and not modify its arguments. ``` ## append! ``` (append! arg1 ...) -Destructive version of append, it modify the list in place. It return -new list where each argument is appened to the end. It may modify +Destructive version of append, it can modify the lists in place. It returns +a new list where each argument is appended to the end. It may modify lists added as arguments. ``` @@ -219,14 +221,14 @@ lists added as arguments. ``` (apply fn list) -Function that call function with list of arguments. +Function that calls fn with the list of arguments. ``` ## apropos ``` (apropos name) -Search environment and display names that match the given name. +Search the current environment and display names that match the given name. name can be regex, string or symbol. ``` @@ -234,14 +236,14 @@ name can be regex, string or symbol. ``` (array->list array) -Function convert JavaScript array to LIPS list. +Function that converts a JavaScript array to a LIPS cons list. ``` ## array? ``` (array? expression) -Function check if value is an arrray. +Predicate that tests if value is an array. ``` ## asin @@ -253,21 +255,21 @@ Function check if value is an arrray. ``` (assoc obj alist) -Function return pair from alist that match given key using equal? check. +Returns pair from alist that match given key using equal? check. ``` ## assq ``` (assq obj alist) -Function return pair from alist that match given key using eq? check. +Returns pair from a list that matches given key using eq? check. ``` ## assv ``` (assv obj alist) -Function return pair from alist that match given key using eqv? check. +Returns pair from alist that match given key using eqv? check. ``` ## atan @@ -279,7 +281,7 @@ Function return pair from alist that match given key using eqv? check. ``` (await value) -Function unquote quoted promise so it can be automagicaly evaluated (resolved +Unquotes a quoted promise so it can be automagically evaluated (resolved to its value). ``` @@ -287,35 +289,35 @@ to its value). ``` (binary fn) -Function return new function with arguments limited to two. +Returns a new function with arguments limited to two. ``` ## binary-port? ``` (binary-port? port) -Function test if argument is binary port. +Function that tests if argument is binary port. ``` ## boolean? ``` (boolean? x) -Function return true if value is boolean. +Returns true if value is boolean. ``` ## boolean=? ``` (boolean=? b1 b2 ...) -Function check if all arguments are boolean and if they are the same. +Checks if all arguments are boolean and if they are the same. ``` ## bound? ``` (bound? x [env]) -Function check if variable is defined in given environement or interaction environment +Function that check if the variable is defined in the given environment, or interaction-environment if not specified. ``` @@ -323,8 +325,8 @@ if not specified. ``` (buffer->u8vector bin) -Cross platform function that can be used in both Node and Browser. -It can be used together with %read-file or %read-binary-file and convert +Cross platform function that can be used in both Node and browser. +It can be used together with %read-file or %read-binary-file to convert the result ArrayBuffer or Buffer to u8vector. ``` @@ -332,7 +334,7 @@ the result ArrayBuffer or Buffer to u8vector. ``` (u8vector v1 v2 ...) -Create usigned 8-bit integer vector from give arguments. +Create unsigned 8-bit integer vector (C unsigned char) from give arguments. ``` ## bytevector-append @@ -348,7 +350,7 @@ Create new bytevector u8vector that is created from joining each argument. (bytevector-copy v start) (bytevector-copy v start end) -Function and return new vector from start to end. If no start and end is provided +Returns a new vector from start to end. If no start and end is provided whole vector is copied and returned. ``` @@ -366,238 +368,238 @@ starting at at. ``` (u8vector-length v) -return length of usigned 8-bit integer vector. +return length of unsigned 8-bit integer vector (C unsigned char). ``` ## bytevector-u8-ref ``` (u8vector-ref vector k) -Function return value frome vector at index k. If index is out of range it throw exception. +Returns value from vector at index k. If index is out of range it throw exception. ``` ## bytevector-u8-set! ``` (u8vector-set! vector k) -Function set value of usigned 8-bit integer vector at index k. If index is out of range it throw exception. +Function set value of unsigned 8-bit integer vector (C unsigned char) at index k. If index is out of range it throw exception. ``` ## bytevector? ``` (u8vector? x) -Function return #t of argument is usigned 8-bit integer vector otherwise it return #f. +Returns #t of argument is unsigned 8-bit integer vector (C unsigned char) otherwise it return #f. ``` ## caaaaar ``` (caaaaar arg) -Function calculate (car (car (car (car (car arg))))) +Function that calculates (car (car (car (car (car arg))))) ``` ## caaaadr ``` (caaaadr arg) -Function calculate (car (car (car (car (cdr arg))))) +Function that calculates (car (car (car (car (cdr arg))))) ``` ## caaaar ``` (caaaar arg) -Function calculate (car (car (car (car arg)))) +Function that calculates (car (car (car (car arg)))) ``` ## caaadar ``` (caaadar arg) -Function calculate (car (car (car (cdr (car arg))))) +Function that calculates (car (car (car (cdr (car arg))))) ``` ## caaaddr ``` (caaaddr arg) -Function calculate (car (car (car (cdr (cdr arg))))) +Function that calculates (car (car (car (cdr (cdr arg))))) ``` ## caaadr ``` (caaadr arg) -Function calculate (car (car (car (cdr arg)))) +Function that calculates (car (car (car (cdr arg)))) ``` ## caaar ``` (caaar arg) -Function calculate (car (car (car arg))) +Function that calculates (car (car (car arg))) ``` ## caadaar ``` (caadaar arg) -Function calculate (car (car (cdr (car (car arg))))) +Function that calculates (car (car (cdr (car (car arg))))) ``` ## caadadr ``` (caadadr arg) -Function calculate (car (car (cdr (car (cdr arg))))) +Function that calculates (car (car (cdr (car (cdr arg))))) ``` ## caadar ``` (caadar arg) -Function calculate (car (car (cdr (car arg)))) +Function that calculates (car (car (cdr (car arg)))) ``` ## caaddar ``` (caaddar arg) -Function calculate (car (car (cdr (cdr (car arg))))) +Function that calculates (car (car (cdr (cdr (car arg))))) ``` ## caadddr ``` (caadddr arg) -Function calculate (car (car (cdr (cdr (cdr arg))))) +Function that calculates (car (car (cdr (cdr (cdr arg))))) ``` ## caaddr ``` (caaddr arg) -Function calculate (car (car (cdr (cdr arg)))) +Function that calculates (car (car (cdr (cdr arg)))) ``` ## caadr ``` (caadr arg) -Function calculate (car (car (cdr arg))) +Function that calculates (car (car (cdr arg))) ``` ## caar ``` (caar arg) -Function calculate (car (car arg)) +Function that calculates (car (car arg)) ``` ## cadaaar ``` (cadaaar arg) -Function calculate (car (cdr (car (car (car arg))))) +Function that calculates (car (cdr (car (car (car arg))))) ``` ## cadaadr ``` (cadaadr arg) -Function calculate (car (cdr (car (car (cdr arg))))) +Function that calculates (car (cdr (car (car (cdr arg))))) ``` ## cadaar ``` (cadaar arg) -Function calculate (car (cdr (car (car arg)))) +Function that calculates (car (cdr (car (car arg)))) ``` ## cadadar ``` (cadadar arg) -Function calculate (car (cdr (car (cdr (car arg))))) +Function that calculates (car (cdr (car (cdr (car arg))))) ``` ## cadaddr ``` (cadaddr arg) -Function calculate (car (cdr (car (cdr (cdr arg))))) +Function that calculates (car (cdr (car (cdr (cdr arg))))) ``` ## cadadr ``` (cadadr arg) -Function calculate (car (cdr (car (cdr arg)))) +Function that calculates (car (cdr (car (cdr arg)))) ``` ## cadar ``` (cadar arg) -Function calculate (car (cdr (car arg))) +Function that calculates (car (cdr (car arg))) ``` ## caddaar ``` (caddaar arg) -Function calculate (car (cdr (cdr (car (car arg))))) +Function that calculates (car (cdr (cdr (car (car arg))))) ``` ## caddadr ``` (caddadr arg) -Function calculate (car (cdr (cdr (car (cdr arg))))) +Function that calculates (car (cdr (cdr (car (cdr arg))))) ``` ## caddar ``` (caddar arg) -Function calculate (car (cdr (cdr (car arg)))) +Function that calculates (car (cdr (cdr (car arg)))) ``` ## cadddar ``` (cadddar arg) -Function calculate (car (cdr (cdr (cdr (car arg))))) +Function that calculates (car (cdr (cdr (cdr (car arg))))) ``` ## caddddr ``` (caddddr arg) -Function calculate (car (cdr (cdr (cdr (cdr arg))))) +Function that calculates (car (cdr (cdr (cdr (cdr arg))))) ``` ## cadddr ``` (cadddr arg) -Function calculate (car (cdr (cdr (cdr arg)))) +Function that calculates (car (cdr (cdr (cdr arg)))) ``` ## caddr ``` (caddr arg) -Function calculate (car (cdr (cdr arg))) +Function that calculates (car (cdr (cdr arg))) ``` ## cadr ``` (cadr arg) -Function calculate (car (cdr arg)) +Function that calculates (car (cdr arg)) ``` ## call-with-input-file @@ -629,289 +631,290 @@ Proc is executed with given port and after it returns, the port is closed. ``` (call-with-values producer consumer) -Calls its producer argument with no values and a continuation that, -when passed some values, calls the consumer procedure with those -values as arguments. +Calls the producer procedure with no arguments, then calls the +consumer procedure with the returned value as an argument -- unless +the returned value is a special Values object created by (values), if it is +the values are unpacked and the consumer is called with multiple arguments. ``` ## car ``` (car pair) -Function returns car (head) of the list/pair. +This function returns the car (item 1) of the list. ``` ## cdaaaar ``` (cdaaaar arg) -Function calculate (cdr (car (car (car (car arg))))) +Function that calculates (cdr (car (car (car (car arg))))) ``` ## cdaaadr ``` (cdaaadr arg) -Function calculate (cdr (car (car (car (cdr arg))))) +Function that calculates (cdr (car (car (car (cdr arg))))) ``` ## cdaaar ``` (cdaaar arg) -Function calculate (cdr (car (car (car arg)))) +Function that calculates (cdr (car (car (car arg)))) ``` ## cdaadar ``` (cdaadar arg) -Function calculate (cdr (car (car (cdr (car arg))))) +Function that calculates (cdr (car (car (cdr (car arg))))) ``` ## cdaaddr ``` (cdaaddr arg) -Function calculate (cdr (car (car (cdr (cdr arg))))) +Function that calculates (cdr (car (car (cdr (cdr arg))))) ``` ## cdaadr ``` (cdaadr arg) -Function calculate (cdr (car (car (cdr arg)))) +Function that calculates (cdr (car (car (cdr arg)))) ``` ## cdaar ``` (cdaar arg) -Function calculate (cdr (car (car arg))) +Function that calculates (cdr (car (car arg))) ``` ## cdadaar ``` (cdadaar arg) -Function calculate (cdr (car (cdr (car (car arg))))) +Function that calculates (cdr (car (cdr (car (car arg))))) ``` ## cdadadr ``` (cdadadr arg) -Function calculate (cdr (car (cdr (car (cdr arg))))) +Function that calculates (cdr (car (cdr (car (cdr arg))))) ``` ## cdadar ``` (cdadar arg) -Function calculate (cdr (car (cdr (car arg)))) +Function that calculates (cdr (car (cdr (car arg)))) ``` ## cdaddar ``` (cdaddar arg) -Function calculate (cdr (car (cdr (cdr (car arg))))) +Function that calculates (cdr (car (cdr (cdr (car arg))))) ``` ## cdadddr ``` (cdadddr arg) -Function calculate (cdr (car (cdr (cdr (cdr arg))))) +Function that calculates (cdr (car (cdr (cdr (cdr arg))))) ``` ## cdaddr ``` (cdaddr arg) -Function calculate (cdr (car (cdr (cdr arg)))) +Function that calculates (cdr (car (cdr (cdr arg)))) ``` ## cdadr ``` (cdadr arg) -Function calculate (cdr (car (cdr arg))) +Function that calculates (cdr (car (cdr arg))) ``` ## cdar ``` (cdar arg) -Function calculate (cdr (car arg)) +Function that calculates (cdr (car arg)) ``` ## cddaaar ``` (cddaaar arg) -Function calculate (cdr (cdr (car (car (car arg))))) +Function that calculates (cdr (cdr (car (car (car arg))))) ``` ## cddaadr ``` (cddaadr arg) -Function calculate (cdr (cdr (car (car (cdr arg))))) +Function that calculates (cdr (cdr (car (car (cdr arg))))) ``` ## cddaar ``` (cddaar arg) -Function calculate (cdr (cdr (car (car arg)))) +Function that calculates (cdr (cdr (car (car arg)))) ``` ## cddadar ``` (cddadar arg) -Function calculate (cdr (cdr (car (cdr (car arg))))) +Function that calculates (cdr (cdr (car (cdr (car arg))))) ``` ## cddaddr ``` (cddaddr arg) -Function calculate (cdr (cdr (car (cdr (cdr arg))))) +Function that calculates (cdr (cdr (car (cdr (cdr arg))))) ``` ## cddadr ``` (cddadr arg) -Function calculate (cdr (cdr (car (cdr arg)))) +Function that calculates (cdr (cdr (car (cdr arg)))) ``` ## cddar ``` (cddar arg) -Function calculate (cdr (cdr (car arg))) +Function that calculates (cdr (cdr (car arg))) ``` ## cdddaar ``` (cdddaar arg) -Function calculate (cdr (cdr (cdr (car (car arg))))) +Function that calculates (cdr (cdr (cdr (car (car arg))))) ``` ## cdddadr ``` (cdddadr arg) -Function calculate (cdr (cdr (cdr (car (cdr arg))))) +Function that calculates (cdr (cdr (cdr (car (cdr arg))))) ``` ## cdddar ``` (cdddar arg) -Function calculate (cdr (cdr (cdr (car arg)))) +Function that calculates (cdr (cdr (cdr (car arg)))) ``` ## cddddar ``` (cddddar arg) -Function calculate (cdr (cdr (cdr (cdr (car arg))))) +Function that calculates (cdr (cdr (cdr (cdr (car arg))))) ``` ## cdddddr ``` (cdddddr arg) -Function calculate (cdr (cdr (cdr (cdr (cdr arg))))) +Function that calculates (cdr (cdr (cdr (cdr (cdr arg))))) ``` ## cddddr ``` (cddddr arg) -Function calculate (cdr (cdr (cdr (cdr arg)))) +Function that calculates (cdr (cdr (cdr (cdr arg)))) ``` ## cdddr ``` (cdddr arg) -Function calculate (cdr (cdr (cdr arg))) +Function that calculates (cdr (cdr (cdr arg))) ``` ## cddr ``` (cddr arg) -Function calculate (cdr (cdr arg)) +Function that calculates (cdr (cdr arg)) ``` ## cdr ``` (cdr pair) -Function returns cdr (tail) of the list/pair. +This function returns the cdr (all but first) of the list. ``` ## ceiling ``` (ceiling number) -Function calculate ceiling of a number. +Function that calculates the ceiling of a number. ``` ## char->integer ``` (char->integer chr) -Function return codepoint of Unicode character. +Returns the codepoint of Unicode character. ``` ## char-alphabetic? ``` (char-alphabetic? chr) -Function return true if character is leter of the ASCII alphabet. +Returns true if character is leter of the ASCII alphabet. ``` ## char-ci? ``` (char-ci=? ``` (char-ci? ``` (char=? ``` (char (+ 2 (* 3 10)) --> 32 ``` ## concat ``` (concat . strings) -Function create new string by joining its arguments +Function that creates a new string by joining its arguments. ``` ## cons ``` (cons left right) -Function return new Pair out of two arguments. +This function returns a new list with the first appended +before the second. If the second is not a list cons will +return a dotted pair. ``` ## cos ``` -# +(cos n) + +Function that calculates cosine of a number. ``` ## current-directory ``` (current-directory) -Return corrent working directory, default it's path from where +Returns the current working directory, default is the path from where the script was executed. ``` @@ -1097,37 +1110,55 @@ the script was executed. ``` (current-environment) -Function return current environement. +Function that returns the current environment (they're first-class objects!) ``` ## current-error-port ``` (current-output-port) -Function return default stdout port. +Returns the default stderr port. ``` ## current-input-port ``` -current-input-port) +(current-input-port) + +Returns the default stdin port. +``` -Function return default stdin port. +## current-jiffy +``` +(current-jiffy) + +Return current jiffy. In LIPS is jiffy since start of the process. +You can divide this value by (jiffies-per-second) to get seconds since +start of the process. And you can add %%start-jiffy to get jiffy since +January 1, 1970. ``` ## current-output-port ``` (current-output-port) -Function return default stdout port. +Returns the default stdout port. +``` + +## current-second +``` +(current-second) + +Functionn return exact integer of the seconds since January 1, 1970 ``` ## curry ``` (curry fn . args) -Higher order function that create curried version of the function. -The result function will have parially applied arguments and it -will keep returning functions until all arguments are added +Higher-order function that creates a curried version of the function. +The result function will have partially applied arguments and it +will keep returning one-argument functions until all arguments are provided, +then it calls the original function with the accumulated arguments. e.g.: (define (add a b c d) (+ a b c d)) @@ -1140,28 +1171,30 @@ e.g.: ``` (debugger) -Function stop JavaScript code in debugger. +Function that triggers the JavaScript debugger (e.g. the browser devtools) +using the "debugger;" statement. If a debugger is not running this +function does nothing. ``` ## defmacro? ``` (defmacro? expression) -Function check if object is macro and it's expandable. +Checks if object is a macro and it's expandable. ``` ## degree->radians ``` (degree->radians x) -Convert degree to radians. +Convert degrees to radians. ``` ## delete-file ``` (delete-file filename) -Function delete the file of given name. +Deletes the file of given name. ``` ## denominator @@ -1183,36 +1216,37 @@ or #f otherwise. ``` (dir obj) -Function return all props on the object including those in prototype chain. +Returns all props on the object including those in prototype chain. ``` ## display ``` -(display arg [port]) +(display string [port]) -Function send string to standard output or provied port. +This function outputs the string to the standard output or +the port if given. No newline. ``` ## display-error ``` (display-error . args) -Display error message. +Display an error message on stderr. ``` ## dynamic-wind ``` (dynamic-wind before thunk after) -Function accept 3 procedures/lambdas and execute thunk with before and always -after even if error accur +Accepts 3 procedures/lambdas and executes before, then thunk, and +always after even if an error occurs in thunk. ``` ## empty? ``` (empty? object) -Function return true if value is undfined empty list. +Function that returns #t if value is nil (an empty list) or undefined. ``` ## env @@ -1220,22 +1254,22 @@ Function return true if value is undfined empty list. (env) (env obj) -Function return list of values (functions, macros and variables) -inside environment and it's parents. +Function that returns a list of names (functions, macros and variables) +that are bound in the current environment or one of its parents. ``` ## environment-bound? ``` (environment-bound? env symbol) -Function check if symbol is bound variable similar to bound?. +Checks if symbol is a bound variable similar to bound?. ``` ## environment? ``` (environment? obj) -Function check if object is LIPS environment. +Checks if object is a LIPS environment. ``` ## eof-object @@ -1249,7 +1283,7 @@ Procedure returns eof object that indicate end of the port ``` (eof-object? arg) -Function check if value is eof object, returned from input string +Checks if value is eof object, returned from input string port when there are no more data to read. ``` @@ -1257,23 +1291,23 @@ port when there are no more data to read. ``` (eq? a b) -Function compare two values if they are identical. +Function that compares two values if they are identical. ``` ## equal? ``` (equal? a b) -Function check if values are equal if both are pair or array -it compares the their elements recursivly. +The function checks if values are equal. If both are a pair or an array +it compares their elements recursively. ``` ## eqv? ``` (eqv? a b) -Function compare the values. It return true if they are the same, they -need to have same type +Function that compares the values. It returns true if they are the same, they +need to have the same type. ``` ## error @@ -1302,16 +1336,16 @@ Returns the message encapsulated by error-object. ``` (error-object? obj) -Function check if object is of Error object throwed by error function. +Checks if object is of Error object thrown by error function. ``` ## escape-regex ``` (escape-regex string) -Function return new string where all special operators used in regex, -are escaped with slash so they can be used in RegExp constructor -to match literal string +Function that returns a new string where all special operators used in regex, +are escaped with backslashes so they can be used in the RegExp constructor +to match a literal string. ``` ## eval @@ -1319,29 +1353,31 @@ to match literal string (eval expr) (eval expr environment) -Function evalute LIPS Scheme code. +Function that evaluates LIPS Scheme code. If the second argument is provided +it will be the environment that the code is evaluated in. ``` ## even? ``` (even? number) -Function check if number is even. +Checks if number is even. ``` ## every ``` (every fn list) -Function call function fn on each item of the list, if every value is true +Function that calls fn on each item of the list, if every value returns true it will return true otherwise it return false. +Analogous to Python all(map(fn, list)). ``` ## exact ``` (inexact->exact number) -Funcion convert real number to exact ratioanl number. +Function that converts real number to exact rational number. ``` ## exact->inexact @@ -1355,7 +1391,7 @@ Convert exact number to inexact. ``` (exact-integer? n) -Function returns #t if z is both exact and an integer; otherwise +Returns #t if z is both exact and an integer; otherwise returns #f. ``` @@ -1366,21 +1402,23 @@ returns #f. ## exp ``` -# +(exp n) + +Function that calculates e raised to the power of n. ``` ## expt ``` (** a b) -Function calculate number a to to the power of b. +Function that calculates number a to to the power of b. ``` ## f32vector ``` (f32vector v1 v2 ...) -Create 32-bit IEEE floating point number vector from give arguments. +Create 32-bit IEEE-754 floating point number vector (C float) from give arguments. ``` ## f32vector->list @@ -1392,35 +1430,35 @@ Create 32-bit IEEE floating point number vector from give arguments. ``` (f32vector-length v) -return length of 32-bit IEEE floating point number vector. +return length of 32-bit IEEE-754 floating point number vector (C float). ``` ## f32vector-ref ``` (f32vector-ref vector k) -Function return value frome vector at index k. If index is out of range it throw exception. +Returns value from vector at index k. If index is out of range it throw exception. ``` ## f32vector-set! ``` (f32vector-set! vector k) -Function set value of 32-bit IEEE floating point number vector at index k. If index is out of range it throw exception. +Function set value of 32-bit IEEE-754 floating point number vector (C float) at index k. If index is out of range it throw exception. ``` ## f32vector? ``` (f32vector? x) -Function return #t of argument is 32-bit IEEE floating point number vector otherwise it return #f. +Returns #t of argument is 32-bit IEEE-754 floating point number vector (C float) otherwise it return #f. ``` ## f64vector ``` (f64vector v1 v2 ...) -Create 64-bit IEEE floating point number vector from give arguments. +Create 64-bit IEEE-754 floating point number vector (C double) from give arguments. ``` ## f64vector->list @@ -1432,28 +1470,28 @@ Create 64-bit IEEE floating point number vector from give arguments. ``` (f64vector-length v) -return length of 64-bit IEEE floating point number vector. +return length of 64-bit IEEE-754 floating point number vector (C double). ``` ## f64vector-ref ``` (f64vector-ref vector k) -Function return value frome vector at index k. If index is out of range it throw exception. +Returns value from vector at index k. If index is out of range it throw exception. ``` ## f64vector-set! ``` (f64vector-set! vector k) -Function set value of 64-bit IEEE floating point number vector at index k. If index is out of range it throw exception. +Function set value of 64-bit IEEE-754 floating point number vector (C double) at index k. If index is out of range it throw exception. ``` ## f64vector? ``` (f64vector? x) -Function return #t of argument is 64-bit IEEE floating point number vector otherwise it return #f. +Returns #t of argument is 64-bit IEEE-754 floating point number vector (C double) otherwise it return #f. ``` ## features @@ -1471,9 +1509,9 @@ Function return #t of argument is 64-bit IEEE floating point number vector other (filter fn list) (filter regex list) -Higher order function that call `fn` for each element of the list -and return list for only those elements for which funtion return -true value. If called with regex it will create matcher function. +Higher-order function that calls `fn` for each element of the list +and return a new list for only those elements for which fn returns +a truthy value. If called with a regex it will create a matcher function. ``` ## find @@ -1481,29 +1519,29 @@ true value. If called with regex it will create matcher function. (find fn list) (find regex list) -Higher order Function find first value for which function return true. -If called with regex it will create matcher function. +Higher-order function that finds the first value for which fn return true. +If called with a regex it will create a matcher function. ``` ## finite? ``` (finite? x) -Function check if value is finite. +Checks if value is finite. ``` ## flatten ``` (flatten list) -Return shallow list from tree structure (pairs). +Returns a shallow list from tree structure (pairs). ``` ## flip ``` (flip fn) -Higher order function that return new function where first two arguments are swapped. +Higher-order function that returns a new function where the first two arguments are swapped. Example: @@ -1516,7 +1554,7 @@ Example: ``` (floor number) -Function calculate floor of a number. +Function that calculates the floor of a number. ``` ## floor-quotient @@ -1534,11 +1572,19 @@ Function calculate floor of a number. # ``` +## flush-output +``` +(flush-output [port]) + +If output-port is buffered, this causes the contents of its buffer to be written to +the output device. Otherwise it has no effect. Returns an unspecified value. +``` + ## flush-output-port ``` (flush-output-port port) -Functio do nothing, flush is not needed in LIPS in both NodeJS and Browser. +Function do nothing, flush is not needed in LIPS in both NodeJS and Browser. The function is added, so it don't throw exception when using R7RS code. ``` @@ -1546,99 +1592,101 @@ The function is added, so it don't throw exception when using R7RS code. ``` (fold fn init . lists) -Function fold is reverse of the reduce. it call function `fn` -on each elements of the list and return single value. -e.g. it call (fn a1 b1 (fn a2 b2 (fn a3 b3 '()))) -for: (fold fn '() alist blist) +Function fold is left-to-right reversal of reduce. It call `fn` +on each pair of elements of the list and returns a single value. +e.g. it computes (fn 'a 'x (fn 'b 'y (fn 'c 'z 'foo))) +for: (fold fn 'foo '(a b c) '(x y z)) ``` ## fold-left ``` (fold fn init . lists) -Function fold is reverse of the reduce. it call function `fn` -on each elements of the list and return single value. -e.g. it call (fn a1 b1 (fn a2 b2 (fn a3 b3 '()))) -for: (fold fn '() alist blist) +Function fold is left-to-right reversal of reduce. It call `fn` +on each pair of elements of the list and returns a single value. +e.g. it computes (fn 'a 'x (fn 'b 'y (fn 'c 'z 'foo))) +for: (fold fn 'foo '(a b c) '(x y z)) ``` ## fold-right ``` (reduce fn init list . lists) -Higher order function take each element of the list and call -the function with result of previous call or init and next element -on the list until each element is processed and return single value +Higher-order function that takes each element of the list and calls +the fn with result of previous call or init and the next element +of the list until each element is processed, and returns a single value as result of last call to `fn` function. -e.g. it call (fn a3 b3 (fn a2 b2 (fn a1 b1 init))) -for (reduce fn init alist blist) +e.g. it computes (fn 'c 'z (fn 'b 'y (fn 'a 'x 'foo))) +for: (reduce fn 'foo '(a b c) '(x y z)) ``` ## for-each ``` (for-each fn . lists) -Higher order function that call function `fn` by for each -value of the argument. If you provide more then one list as argument +Higher-order function that calls function `fn` on each +value of the argument. If you provide more than one list it will take each value from each list and call `fn` function -with that many argument as number of list arguments. +with that many arguments as number of list arguments. ``` ## force ``` (force promise) -Function force the promise and evaluate delayed expression. +Function that forces the promise and evaluates the delayed expression. ``` ## format ``` (format string n1 n2 ...) -Function accepts string template and replacing any escape sequences -by arguments: +This function accepts a string template and replaces any +escape sequences in its inputs: -* ~a value as if printed with display -* ~s value as if printed with write +* ~a value as if printed with `display` +* ~s value as if printed with `write` * ~% newline character -* ~~ literal tilde '~' is inserted +* ~~ literal tilde '~' -if there missing arguments or other escape character it throw exception. +If there are missing inputs or other escape characters it +will error. ``` ## function? ``` (function? expression) -Function check if value is a function. +Predicate that tests if value is a callable function. ``` ## gcd ``` (gcd n1 n2 ...) -Function return the greatest common divisor of their arguments. +Function that returns the greatest common divisor of the arguments. ``` ## gensym ``` (gensym) -Function generate unique symbol, to use with macros as meta name. +Generates a unique symbol that is not bound anywhere, +to use with macros as meta name. ``` ## gensym-interal ``` (gensym-interal symbol) -Parser extension that create new quoted named gensym. +Parser extension that creates a new quoted named gensym. ``` ## gensym? ``` (gensym? value) -Function return #t if value is symbol and it's gensym. It returns #f otherwise. +Returns #t if value is a symbol created by gensym. It returns #f otherwise. ``` ## get @@ -1646,21 +1694,37 @@ Function return #t if value is symbol and it's gensym. It returns #f otherwise. (. obj . args) (get obj . args) -Function use object as base and keep using arguments to get the +This function uses an object as a base and keeps using arguments to get the property of JavaScript object. Arguments need to be a strings. -e.g. `(. console "log")` if you use any function inside LIPS is -will be weakly bind (can be rebind), so you can call this log function +e.g. `(. console "log")` if you use any function inside LIPS it +will be weakly bound (can be rebound), so you can call this log function without problem unlike in JavaScript when you use `var log = console.log`. -`get` is an alias because . don't work in every place, e.g. you can't -pass it as argument. +`get` is an alias because . doesn't work everywhere, e.g. you can't +pass it as an argument. +``` + +## get-environment-variable +``` +(get-environment-variable name) + +Returns given environment variable. This function throws exception +when called in browser. +``` + +## get-environment-variables +``` +(get-environment-variables) + +Returns all process environment variables as an alist. This function throws exception +when called in browser. ``` ## get-output-bytevector ``` (get-output-string port) -Function get full string from string port. If nothing was wrote +Gets full string from string port. If nothing was wrote to given port it will return empty string. ``` @@ -1668,22 +1732,23 @@ to given port it will return empty string. ``` (get-output-string port) -Function get full string from string port. If nothing was wrote +Gets full string from string port. If nothing was wrote to given port it will return empty string. ``` -## get-script +## get-resource ``` -(get-script url) +(get-resource url) -Load JavaScript file in browser by adding script tag to head of the current document. +Load JavaScript or CSS file in browser by adding script/link tag to head of the current document. +When called from Node it allow it allows to load JavaScript files only. ``` ## http-get ``` (http-get url) -Node.js Function that send HTTP Request and return string or +Node.js function that sends a HTTP Request and returns a string or binary Buffer object. ``` @@ -1691,7 +1756,7 @@ binary Buffer object. ``` (identity n) -No op function. it just returns its argument. +No-op function. It just returns its argument. ``` ## imag-part @@ -1705,14 +1770,15 @@ Return imaginary part of the complex number n. ``` (in key value) -Function use is in operator to check if value is in object. +Function that uses the Javascript "in" operator to check if key is +a valid property in the value. ``` ## indexed-db? ``` (indexed-db?) -Function test if indexedDB is available. +Function that tests if IndexedDB is available. ``` ## inexact @@ -1726,7 +1792,7 @@ Convert exact number to inexact. ``` (inexact->exact number) -Funcion convert real number to exact ratioanl number. +Function that converts real number to exact rational number. ``` ## inexact? @@ -1738,49 +1804,49 @@ Funcion convert real number to exact ratioanl number. ``` (infinite? x) -Function check if value is infinite. +Checks if value is infinite. ``` ## input-port-open? ``` (input-port-open? port) -Function check if argument is input-port and if you can read from it. +Checks if argument is input-port and if you can read from it. ``` ## input-port? ``` (input-port? arg) -Function return true if argument is input port. +Returns true if argument is input port. ``` ## instanceof ``` (instanceof type obj) -Function check of object is instance of object. +Predicate that tests if the obj is an instance of type. ``` ## integer->char ``` (integer->char chr) -Function convert number argument to chararacter. +Function that converts number argument to character. ``` ## integer? ``` (integer? x) -Function check if argument x is integer. +Checks if the argument x is integer. ``` ## interaction-environment ``` (interaction-environment) -Function return interaction environement equal to lips.env can be overwritten, +Returns the interaction environment equal to lips.env. This can be overwritten when creating new interpreter with lips.Interpreter. ``` @@ -1788,57 +1854,63 @@ when creating new interpreter with lips.Interpreter. ``` (iterator? x) - Function check if value is JavaScript iterator object + Checks if value is JavaScript iterator object. +``` + +## jiffies-per-second +``` +# ``` ## join ``` (join separator list) -Function return string by joining elements of the list +Function that returns a string by joining elements of the list using separator. ``` ## key->string ``` (key->string symbol) -If symbol is key it convert that to string - remove colon. +If symbol is a keyword it converts that to string and removes the colon. ``` ## key? ``` (key? symbol) -Function check if symbol is key symbol, have colon as first character. +Checks if symbol is a keyword (has a colon as first character). ``` ## lcm ``` (lcm n1 n2 ...) -Function return the least common multiple of their arguments. +Function that returns the least common multiple of the arguments. ``` ## length ``` (length expression) -Function return length of the object, the object can be list -or any object that have length property. +Function that returns the length of the object. The object can be a LIPS +list or any object that has a "length" property. Returns undefined if the +length could not be found. ``` ## list ``` (list . args) -Function create new list out of its arguments. +Function that creates a new list out of its arguments. ``` ## list->array ``` (list->array list) -Function convert LIPS list into JavaScript array. +Function that converts a LIPS list into a JavaScript array. ``` ## list->f32vector @@ -1870,7 +1942,7 @@ Function convert LIPS list into JavaScript array. ``` (list->string _list) -Function return string from list of characters. +Returns a string from a list of characters. ``` ## list->u16vector @@ -1892,7 +1964,7 @@ Function return string from list of characters. ``` (list->array list) -Function convert LIPS list into JavaScript array. +Function that converts a LIPS list into a JavaScript array. ``` ## list-copy @@ -1907,14 +1979,14 @@ of the list are not copied, they are passed as is. ``` (list-match? predicate list) -Function check if consecutive elements of the list match the predicate function. +Checks if consecutive elements of the list match the predicate function. ``` ## list-ref ``` (list-ref list n) -Returns n element of a list. +Returns n-th element of a list. ``` ## list-tail @@ -1928,8 +2000,8 @@ Returns the sublist of list obtained by omitting the first k elements. ``` (list? obj) -Function test if value is proper linked list structure. -The car of each pair can be any value. It return false on cycles." +Predicate that tests if value is a proper linked list structure. +The car of each pair can be any value. It returns false on cyclic lists." ``` ## load @@ -1937,8 +2009,8 @@ The car of each pair can be any value. It return false on cycles." (load filename) (load filename environment) -Function fetch the file and evaluate its content as LIPS code, -If second argument is provided and it's environment the evaluation +Fetches the file (from disk or network) and evaluates its content as LIPS code. +If the second argument is provided and it's an environment the evaluation will happen in that environment. ``` @@ -1946,7 +2018,7 @@ will happen in that environment. ``` (log z) -Funcntion calculates natural logarithm of z. Where argument can be +Function that calculates natural logarithm of z where the argument can be any number (including complex negative and rational). If the value is 0 it return NaN. ``` @@ -1955,7 +2027,7 @@ If the value is 0 it return NaN. ``` (macro? expression) -Function check if value is a macro. +Predicate that tests if value is a macro. ``` ## magnitude @@ -1969,21 +2041,21 @@ Returns magnitude of the complex number in polar coordinate system. ``` (make-u8vector k fill) -Allocate new usigned 8-bit integer vector of length k, with optional initial values. +Allocate new unsigned 8-bit integer vector (C unsigned char) of length k, with optional initial values. ``` ## make-f32vector ``` (make-f32vector k fill) -Allocate new 32-bit IEEE floating point number vector of length k, with optional initial values. +Allocate new 32-bit IEEE-754 floating point number vector (C float) of length k, with optional initial values. ``` ## make-f64vector ``` (make-f64vector k fill) -Allocate new 64-bit IEEE floating point number vector of length k, with optional initial values. +Allocate new 64-bit IEEE-754 floating point number vector (C double) of length k, with optional initial values. ``` ## make-list @@ -2002,42 +2074,42 @@ Create new complex number from polar parameters. ``` (make-promise fn) -Function create promise from a function. +Function that creates a promise from a function. ``` ## make-rectangular ``` (make-rectangular im re) -Create complex number from imaginary and real part. +Creates a complex number from imaginary and real part (a+bi form). ``` ## make-s16vector ``` (make-s16vector k fill) -Allocate new signed 16-bit integer vector of length k, with optional initial values. +Allocate new signed 16-bit integer vector (C short) of length k, with optional initial values. ``` ## make-s32vector ``` (make-s32vector k fill) -Allocate new signed 32-bit integer vector of length k, with optional initial values. +Allocate new signed 32-bit integer vector (C unsigned int) of length k, with optional initial values. ``` ## make-s8vector ``` (make-s8vector k fill) -Allocate new signed 8-bit integer vector of length k, with optional initial values. +Allocate new signed 8-bit integer vector (C signed char) of length k, with optional initial values. ``` ## make-string ``` (make-string k [char]) -Function return new string with k elements, if char is provied +Returns new string with k elements. If char is provided it's filled with that character. ``` @@ -2045,35 +2117,35 @@ it's filled with that character. ``` (make-tags expression) -Function that return list structure of code with better syntax then raw LIPS +Returns a list structure of code with better syntax then raw LIPS ``` ## make-u16vector ``` (make-u16vector k fill) -Allocate new usigned 16-bit integer vector of length k, with optional initial values. +Allocate new unsigned 16-bit integer vector (C unsigned short) of length k, with optional initial values. ``` ## make-u32vector ``` (make-u32vector k fill) -Allocate new usigned 32-bit integer vector of length k, with optional initial values. +Allocate new unsigned 32-bit integer vector (C int) of length k, with optional initial values. ``` ## make-u8vector ``` (make-u8vector k fill) -Allocate new usigned 8-bit integer vector of length k, with optional initial values. +Allocate new unsigned 8-bit integer vector (C unsigned char) of length k, with optional initial values. ``` ## make-vector ``` (make-vector n [fill]) -Create new vector with n empty elements. If fill is specified it will set +Creates a new vector with n empty elements. If fill is specified it will set all elements of the vector to that value. ``` @@ -2081,103 +2153,104 @@ all elements of the vector to that value. ``` (map fn . lists) -Higher order function that call function `fn` by for each -value of the argument. If you provide more then one list as argument +Higher-order function that calls function `fn` with each +value of the list. If you provide more then one list as argument it will take each value from each list and call `fn` function with that many argument as number of list arguments. The return -values of the function call is acumulated in result list and -returned by the call to map. +values of the fn calls are accumulated in a result list and +returned by map. ``` ## match ``` (match pattern string) -function return match object from JavaScript as list or #f if not match. +Function that returns a match object from JavaScript as a list or #f if +no match. ``` ## max ``` (max n1 n2 ...) -Return maximum of it's arguments. +Returns the maximum of its arguments. ``` ## member ``` (member obj list) -Function return first object in the list that match using equal? function. +Returns first object in the list that match using equal? function. ``` ## memq ``` (memq obj list) -Function return first object in the list that match using eq? function. +Returns first object in the list that match using eq? function. ``` ## memv ``` (memv obj list) -Function return first object in the list that match using eqv? function. +Returns first object in the list that match using eqv? function. ``` ## min ``` (min n1 n2 ...) -Return minimum of it's arguments. +Returns the minimum of its arguments. ``` ## modulo ``` (modulo a b) -Function return modulo operation on it's argumennts. +Returns modulo operation on its argumennts. ``` ## n-ary ``` (n-ary n fn) -Return new function that limit number of arguments to n. +Returns a new function that limits the number of arguments to n. ``` ## nan? ``` (nan? x) -Function check if argument x is Not a Number (NaN) value. +Checks if argument x is Not a Number (NaN) value. ``` ## native-symbol? ``` (native-symbol? object) -Function check if value is JavaScript symbol. +Checks if value is JavaScript Symbol. ``` ## native.number ``` (native.number obj) -If argument is number it will convert to native number. +If argument is a number it will convert it to a native number. ``` ## negative? ``` (negative? x) -Function check if number is smaller then 0 +Checks if the number is smaller then 0 ``` ## new ``` (new obj . args) -Function create new JavaScript instance of an object. +Function that creates new JavaScript instance of an object. ``` ## new-library @@ -2198,43 +2271,44 @@ Write newline character to standard output or given port ``` (not x) -Function return true if value is false and false otherwise. +Returns true if value is false and false otherwise. ``` ## nth ``` (nth index obj) -Function return nth element of the list or array. If used with different -value it will throw exception +Function that returns the nth element of the list or array. +If used with a non-indexable value it will error. ``` ## null-environment ``` (null-environment) -Function return new base environment with std lib. +Returns a clean environment with only the standard library. ``` ## null? ``` (null? expression) -Function check if value is nulish. +Predicate that tests if value is null-ish (i.e. undefined, nil, or +Javascript null). ``` ## number->string ``` (number->string x [radix]) -Function convert number to string with optional radix (number base). +Function that converts number to string with optional radix (number base). ``` ## number? ``` (number? expression) -Function check if value is a number or NaN value. +Predicate that tests if value is a number or NaN value. ``` ## numbers? @@ -2246,47 +2320,54 @@ Function check if value is a number or NaN value. ``` (numerator n) -Return numberator of rational or same number if n is not rational. +Return numerator of rational or same number if n is not rational. ``` -## object-expander +## object->alist +``` +(object->alist object) + +Function that converts a JavaScript object to Alist ``` -(object-expander reaonly '(:foo (:bar 10) (:baz (1 2 3)))) -(object-expander reaonly '(:foo :bar)) +## object-expander +``` +(object-expander readonly '(:foo (:bar 10) (:baz (1 2 3)))) +(object-expander readonly '(:foo :bar)) -Recursive function helper for defining LIPS code for create objects -using key like syntax. if no values are used it will create JavaScript -shorthand objects where keys are used for keys and values +Recursive function helper for defining LIPS code to create objects +using key like syntax. If no values are used it will create a JavaScript +shorthand objects where keys are used for keys and the values. ``` ## object? ``` (object? expression) -Function check if value is an plain object. +Predicate that tests if value is an plain object (not another LIPS type). ``` ## odd? ``` (odd? number) -Function check if number os odd. +Checks if number is odd. ``` ## once ``` (once fn) -Higher order function that return new function, that is guarantee -to be called only once. +Higher-order function that returns a new function, that only calls the original +on the first invocation, and immediately returns the first call's result again +on subsequent invocations. ``` ## open-binary-input-file ``` (open-binary-input-file filename) -Function return new Input Binary Port with given filename. In Browser +Returns new Input Binary Port with given filename. In Browser user need to provide global fs variable that is instance of FS interface. ``` @@ -2294,7 +2375,7 @@ user need to provide global fs variable that is instance of FS interface. ``` (open-binary-output-file filename) -Function open file and return port that can be used for writing. If file +Opens file and return port that can be used for writing. If file exists it will throw an Error. ``` @@ -2309,7 +2390,7 @@ Create new input binary port with given bytevector ``` (open-input-file filename) -Function return new Input Port with given filename. In Browser user need to +Returns new Input Port with given filename. In Browser user need to provide global fs variable that is instance of FS interface. ``` @@ -2317,7 +2398,7 @@ provide global fs variable that is instance of FS interface. ``` (open-input-string string) -Function create new string port as input that can be used to +Creates new string port as input that can be used to read S-exressions from this port using `read` function. ``` @@ -2334,7 +2415,7 @@ After done with the data the output buffer can be obtained by calling ``` (open-output-file filename) -Function open file and return port that can be used for writing. If file +Function that opens file and return port that can be used for writing. If file exists it will throw an Error. ``` @@ -2342,7 +2423,7 @@ exists it will throw an Error. ``` (open-output-string) -Function create new output port that can used to write string into +Creates new output port that can used to write string into and after finish get the whole string using `get-output-string`. ``` @@ -2350,52 +2431,53 @@ and after finish get the whole string using `get-output-string`. ``` (output-port-open? port) -Function check if argument is output-port and if you can write to it. +Checks if argument is output-port and if you can write to it. ``` ## output-port? ``` (output-port? arg) -Function return true if argument is output port. +Returns true if argument is output port. ``` ## pair-map ``` (pair-map fn list) -Function call fn argument for pairs in a list and return combined list with -values returned from function fn. It work like the map but take two items from list +Function that calls fn argument for pairs in a list and returns a combined list with +values returned from function fn. It works likes map but take two items from the list each time. ``` ## pair? ``` (pair? expression) -Function check if value is a pair or list structure. +Predicate that tests if value is a pair or list structure. ``` ## parent.frame ``` (parent.frame) -Return parent environment if called from inside function. -If no parent frame found it return nil. +Returns the parent environment if called from inside a function. +If no parent frame can be found it returns nil. ``` ## parent.frames ``` (parent.frames) -Funcion return list of environments from parent frames (lambda function calls) +Returns the list of environments from parent frames (lambda function calls) ``` ## peek-char ``` (peek-char port) -Function get character from string port or EOF object if no more -data in string port. +This function reads and returns a character from the string +port, or, if there is no more data in the string port, it +returns an EOF. ``` ## peek-u8 @@ -2411,86 +2493,88 @@ it return eof object. ``` (pipe . fns) -Higher order function and create new function that apply all functions -From left to right and return it's value. Reverse of compose. +Higher-order function that creates a new function that applies all functions +from left to right and returns the last value. Reverse of compose. e.g.: -((pipe (curry + 2) (curry * 3)) 3) -15 +((pipe (curry + 2) (curry * 3)) 10) --> (* 3 (+ 2 10)) --> 36 ``` ## plain-object? ``` (plain-object? x) -Function check if value is plain JavaScript object. Created using object macro. +Checks if value is a plain JavaScript object created using the object macro. ``` ## pluck ``` -(pluck . string) +(pluck . strings) -If called with single string it will return function that will return -key from object. If called with more then one argument function will -return new object by taking all properties from given object. +If called with a single string it will return a function that when +called with an object will return that key from the object. +If called with more then one string the returned function will +create a new object by copying all properties from the given object. ``` ## port? ``` (port? x) -Function return true of argumet is nput or output port port object. +Returns true if the argument is an input or output port object. ``` ## positive? ``` (positive? x) -Function check if number is larger then 0 +Checks if the number is larger then 0 ``` ## pprint ``` (pprint expression) -Pretty print list expression, if called with non-pair it just call -print function with passed argument. +This function will pretty print its input to stdout. If it is called +with a non-list, it will just call the print function on its +input. ``` ## pretty-format ``` (pretty-format pair) -Function return pretty printed string from pair expression. +Returns a pretty printed string from pair expression. ``` ## print ``` (print . args) -Function convert each argument to string and print the result to -standard output (by default it's console but it can be defined -it user code), the function call newline after printing each arg. +This function converts each input into a string and prints +the result to the standard output (by default it's the +console but it can be defined in user code). This function +calls `(newline)` after printing each input. ``` ## procedure? ``` (function? expression) -Function check if value is a function. +Predicate that tests if value is a callable function. ``` ## promise? ``` (promise? obj) -Function check if value is a promise created with delay or make-promise. +Checks if the value is a promise created with delay or make-promise. ``` ## promisify ``` (promisify fn) -Simple function for adding promises to NodeJS callback based function. +Simple function for adding promises to NodeJS two-callback based functions. Function tested only with fs module. ``` @@ -2498,21 +2582,22 @@ Function tested only with fs module. ``` (prototype? obj) -Function check if value is JavaScript Object prototype. +Predicate that tests if value is a valid JavaScript prototype, +i.e. calling (new) with it will not throw ' is not a constructor'. ``` ## qsort ``` (qsort list predicate) -Sort the list using quick sort alorithm according to predicate. +Sorts the list using the quick sort algorithm according to predicate. ``` ## quoted-symbol? ``` (quoted-symbol? code) -Helper function that test if value is quoted symbol. To be used in macros +Helper function that tests if value is a quoted symbol. To be used in macros that pass literal code that is transformed by parser. usage: @@ -2528,7 +2613,7 @@ usage: ``` (quotient a b) -Return quotient from divition as integer. +Return quotient from division as integer. ``` ## quotient&remainder @@ -2540,14 +2625,14 @@ Return quotient from divition as integer. ``` (radians->degree x) -Convert radians to degree. +Convert radians to degrees. ``` ## raise ``` (raise obj) -Throws new exception with given object. +Throws the object verbatim (no wrapping an a new Error). ``` ## random @@ -2555,28 +2640,32 @@ Throws new exception with given object. (random) (random seed) -Function generate new random real number using Knuth algorithm. +Function that generates new random real number using Knuth algorithm. ``` ## range ``` -(range n) +(range stop) +(range start stop) +(range start stop step) -Function return list of n numbers from 0 to n - 1 +Returns a list of numbers from start to stop with optional step. +If start is not defined it starts from 0. If start is larger than stop +the step needs to be negative otherwise it will hang in an infinite loop. ``` ## rational? ``` (rational? x) -Function check if value is rational. +Checks if the value is rational. ``` ## rationalize ``` (rationalize number tolerance) -Function returns simplest rational number differing from number by no more +Returns simplest rational number approximation differing from number by no more than the tolerance. ``` @@ -2584,12 +2673,13 @@ than the tolerance. ``` (read [string]) -Function if used with string will parse the string and return -list structure of LIPS code. If called without an argument it -will read string from standard input (using browser prompt or -user defined way) and call itself with that string (parse is) -function can be used together with eval to evaluate code from -string +This function, if used with a string, will parse it and +return the LIPS code, if there is any. If called with a +port, it will parse the next item from the port. If called +without an input, it will read a string from standard input +(using the browser's prompt or a user defined input method) +and calls itself with that string. This function can be used +together with `eval` to evaluate code from a string. ``` ## read-bytevector @@ -2609,7 +2699,7 @@ return the only bytes that are available (read-bytevector! bytevector port start) (read-bytevector! bytevector port start end) -Function read next bytes from binary input port and write them into byte vector. +Reads next bytes from binary input port and write them into byte vector. if not start is specified it start to write into 0 position of the vector until the end or end the vector if no end is specified. ``` @@ -2618,14 +2708,16 @@ the end or end the vector if no end is specified. ``` (read-char port) -Function read next character from input port. +This function reads and returns the next character from the +input port. ``` ## read-line ``` (read-char port) -Function read next character from input port. +This function reads and returns the next line from the input +port. ``` ## read-string @@ -2660,76 +2752,79 @@ Return real part of the complex number n. ``` (real? x) -Function check if argument x is real. +Checks if the argument x is real. ``` ## reduce ``` (reduce fn init list . lists) -Higher order function take each element of the list and call -the function with result of previous call or init and next element -on the list until each element is processed and return single value +Higher-order function that takes each element of the list and calls +the fn with result of previous call or init and the next element +of the list until each element is processed, and returns a single value as result of last call to `fn` function. -e.g. it call (fn a3 b3 (fn a2 b2 (fn a1 b1 init))) -for (reduce fn init alist blist) +e.g. it computes (fn 'c 'z (fn 'b 'y (fn 'a 'x 'foo))) +for: (reduce fn 'foo '(a b c) '(x y z)) ``` ## regex? ``` (regex? x) -Function return true of value is regular expression, it return false otherwise. +Returns true if value is a regular expression, or false otherwise. ``` ## remainder ``` (% n1 n2) -Function get reminder of it's arguments. +Function returns the remainder of n1/n2 (modulo). ``` ## remainder__ ``` (modulo a b) -Function return reminder from division operation. +Returns remainder from division operation. ``` ## replace ``` (replace pattern replacement string) -Function change pattern to replacement inside string. Pattern can be string -or regex and replacement can be function or string. +Function that changes pattern to replacement inside string. Pattern can be a +string or regex and replacement can be function or string. See Javascript +String.replace(). ``` ## repr ``` (repr obj) -Function return string LIPS representation of an object as string. +Function that returns a LIPS code representation of the object as a string. ``` ## require ``` (require module) -Function to be used inside Node.js to import the module. +Function used inside Node.js to import a module. ``` ## require.resolve ``` (require.resolve path) -Return path relative the current module. +Returns the path relative to the current module. + +Only available when LIPS is running under Node.js. ``` ## reset ``` (reset) -Function reset environment and remove all user defined variables. +Function resets the environment and removes all user defined variables. ``` ## response->buffer @@ -2741,11 +2836,11 @@ Function reset environment and remove all user defined variables. ``` (response->text binary res) -Function read all text from Node.js HTTP response object. If binary argument +Reads all text from a Node.js HTTP response object. If binary argument is true it will return Buffer object that can be converted to u8vector. -***Warrning:*** it may overflow the stack (part of Node) when converting -whole buffer to u8vector. +***Warning:*** it may overflow the Javascript call stack when converting the +whole buffer to u8vector, because LIPS doesn't have TCO. ``` ## response->text @@ -2757,22 +2852,22 @@ whole buffer to u8vector. ``` (reverse list) -Function will reverse the list or array. If value is not a list -or array it will throw exception. +Function that reverses the list or array. If value is not a list +or array it will error. ``` ## round ``` (round number) -Function calculate round of a number. +Function that calculates the round of a number. ``` ## s16vector ``` (s16vector v1 v2 ...) -Create signed 16-bit integer vector from give arguments. +Create signed 16-bit integer vector (C short) from give arguments. ``` ## s16vector->list @@ -2784,35 +2879,35 @@ Create signed 16-bit integer vector from give arguments. ``` (s16vector-length v) -return length of signed 16-bit integer vector. +return length of signed 16-bit integer vector (C short). ``` ## s16vector-ref ``` (s16vector-ref vector k) -Function return value frome vector at index k. If index is out of range it throw exception. +Returns value from vector at index k. If index is out of range it throw exception. ``` ## s16vector-set! ``` (s16vector-set! vector k) -Function set value of signed 16-bit integer vector at index k. If index is out of range it throw exception. +Function set value of signed 16-bit integer vector (C short) at index k. If index is out of range it throw exception. ``` ## s16vector? ``` (s16vector? x) -Function return #t of argument is signed 16-bit integer vector otherwise it return #f. +Returns #t of argument is signed 16-bit integer vector (C short) otherwise it return #f. ``` ## s32vector ``` (s32vector v1 v2 ...) -Create signed 32-bit integer vector from give arguments. +Create signed 32-bit integer vector (C unsigned int) from give arguments. ``` ## s32vector->list @@ -2824,35 +2919,35 @@ Create signed 32-bit integer vector from give arguments. ``` (s32vector-length v) -return length of signed 32-bit integer vector. +return length of signed 32-bit integer vector (C unsigned int). ``` ## s32vector-ref ``` (s32vector-ref vector k) -Function return value frome vector at index k. If index is out of range it throw exception. +Returns value from vector at index k. If index is out of range it throw exception. ``` ## s32vector-set! ``` (s32vector-set! vector k) -Function set value of signed 32-bit integer vector at index k. If index is out of range it throw exception. +Function set value of signed 32-bit integer vector (C unsigned int) at index k. If index is out of range it throw exception. ``` ## s32vector? ``` (s32vector? x) -Function return #t of argument is signed 32-bit integer vector otherwise it return #f. +Returns #t of argument is signed 32-bit integer vector (C unsigned int) otherwise it return #f. ``` ## s8vector ``` (s8vector v1 v2 ...) -Create signed 8-bit integer vector from give arguments. +Create signed 8-bit integer vector (C signed char) from give arguments. ``` ## s8vector->list @@ -2864,84 +2959,86 @@ Create signed 8-bit integer vector from give arguments. ``` (s8vector-length v) -return length of signed 8-bit integer vector. +return length of signed 8-bit integer vector (C signed char). ``` ## s8vector-ref ``` (s8vector-ref vector k) -Function return value frome vector at index k. If index is out of range it throw exception. +Returns value from vector at index k. If index is out of range it throw exception. ``` ## s8vector-set! ``` (s8vector-set! vector k) -Function set value of signed 8-bit integer vector at index k. If index is out of range it throw exception. +Function set value of signed 8-bit integer vector (C signed char) at index k. If index is out of range it throw exception. ``` ## s8vector? ``` (s8vector? x) -Function return #t of argument is signed 8-bit integer vector otherwise it return #f. +Returns #t of argument is signed 8-bit integer vector (C signed char) otherwise it return #f. ``` ## scheme-report-environment ``` (scheme-report-environment version) -Function return new Environment object for given Scheme Spec version. -Only argument 5 is supported that create environemnt for R5RS. +Returns new Environment object for given Scheme Spec version. +Only argument 5 is supported that create environment for R5RS. ``` ## search ``` (search pattern string) -Function return first found index of the pattern inside a string +Function that returns the first found index of the pattern inside a string. ``` ## set-car! ``` (set-car! obj value) -Function that set car (head) of the list/pair to specified value. -It can destroy the list. Old value is lost. +Function that sets the car (first item) of the list/pair to specified value. +The old value is lost. ``` ## set-cdr! ``` (set-cdr! obj value) -Function that set cdr (tail) of the list/pair to specified value. -It can destroy the list. Old value is lost. +Function that sets the cdr (tail) of the list/pair to specified value. +It will destroy the list. The old tail is lost. ``` ## set-current-directory! ``` (set-current-directory! string) -Function change current working directory to provided string. +Changes the current working directory to provided string. ``` ## set-obj! ``` (set-obj! obj key value) +(set-obj! obj key value props) -Function set property of JavaScript object +Function set a property of a JavaScript object. props should be a vector of pairs, +passed to Object.defineProperty. ``` ## set-repr! ``` (add-repr! type fn) -Function add string represention to the type, which should be constructor function. +Function that adds the string representation to the type, which should be a constructor function. -Function fn should have args (obj q) and it should return string, obj is vlaue that -need to be converted to string, if the object is nested and you need to use `repr`, -it should pass second parameter q to repr, so string will be quoted when it's true. +Function fn should have args (obj q) and it should return a string. obj is the value that +need to be converted to a string. If the object is nested and you need to use `repr` recursively, +it should pass the second parameter q to repr, so string will be quoted when it's true. e.g.: (lambda (obj q) (string-append "<" (repr obj q) ">")) ``` @@ -2950,40 +3047,45 @@ e.g.: (lambda (obj q) (string-append "<" (repr obj q) ">")) ``` (set-special! symbol name [type]) -Add special symbol to the list of transforming operators by the parser. +Add a special symbol to the list of transforming operators by the parser. e.g.: `(add-special! "#" 'x)` will allow to use `#(1 2 3)` and it will be transformed into (x (1 2 3)) so you can write x macro that will process -the list. 3rd argument is optional and it can be constant value -lips.specials.SPLICE if this constant is used it will transform -`#(1 2 3)` into (x 1 2 3) that is required by # that define vectors. +the list. 3rd argument is optional, and it can be one of two values: +lips.specials.LITERAL, which is the default behavior, or +lips.specials.SPLICE which causes the value to be unpacked into the expression. +This can be used for e.g. to make `#(1 2 3)` into (x 1 2 3) that is needed +by # that defines vectors. ``` ## sin ``` -# +(sin n) + +Function that calculates sine of a number. ``` ## single ``` (single list) -Function check if argument is list with single element +Checks if argument is list with one element. ``` ## some ``` (some fn list) -Higher order function that call argument on each element of the list. -It stops when function fn return true for a value if so it will -return true. If none of the values give true, the function return false +Higher-order function that calls fn on each element of the list. +It stops and returns true when fn returns true for a value. +If none of the values give true, some will return false. +Analogous to Python any(map(fn, list)). ``` ## sort ``` (sort list [predicate]) -Sort the list using optional predicate function. if not function is specified +Sorts the list using optional predicate function. If no comparison function is given it will use <= and sort in increasing order. ``` @@ -2991,7 +3093,7 @@ it will use <= and sort in increasing order. ``` (split separator string) -Function create list by splitting string by separatar that can +Function that creates a list by splitting string by separator which can be a string or regular expression. ``` @@ -2999,7 +3101,7 @@ be a string or regular expression. ``` (sqrt number) -Function return square root of the number. +Function that returns the square root of the number. ``` ## square @@ -3013,29 +3115,29 @@ Returns the square of z. This is equivalent to (* z z). ``` (string chr1 chr2 ...) -Function create new string from it's arguments. Each argument -Need to be a character object. +Function that creates a new string from it's arguments. Each argument +needs to be a character object. ``` ## string->list ``` (string->list string) -Function return list of characters created from string. +Returns a list of characters created from string. ``` ## string->number ``` (string->number number [radix]) -Function convert string to number. +Function that parses a string into a number. ``` ## string->symbol ``` (string->symbol string) -Function convert string to LIPS symbol. +Function that converts a string to a LIPS symbol. ``` ## string->utf8 @@ -3044,7 +3146,7 @@ Function convert string to LIPS symbol. (string->utf8 string start) (string->utf8 string start end) -Function converts string into u8 bytevector using utf8 encoding. +Converts string into u8 bytevector using utf8 encoding. The start and end is the range of the input string for the conversion. ``` @@ -3054,7 +3156,7 @@ The start and end is the range of the input string for the conversion. (string->list string start) (string->list string start end) -Function copy given range of string to list. If no start is specified it use +Function that copies given range of string to list. If no start is specified it use start of the string, if no end is specified it convert to the end of the string. ``` @@ -3062,77 +3164,77 @@ start of the string, if no end is specified it convert to the end of the string. ``` (concat . strings) -Function create new string by joining its arguments +Function that creates a new string by joining its arguments. ``` ## string-ci? ``` (string-ci=? ``` (string-ci>=? string1 string2) -Function return true if second character is not smaller then the first one. +Returns true if second character is not smaller than the first one, ignoring case. ``` ## string-copy ``` (string-copy x) -Create new string based of given argument. +Creates a new string based on given argument. ``` ## string-fill! ``` (string-fill! symbol char) -Function destructively fill the string with given character. +Function that destructively fills the string with given character. ``` ## string-join ``` (join separator list) -Function return string by joining elements of the list +Function that returns a string by joining elements of the list using separator. ``` ## string-length ``` (string-length string) -Function return length of the string. +Returns the length of the string. ``` ## string-map ``` (string-map fn string1 stringr2 ...) -Function return new string from applying function fn to each element +Returns new string from applying function fn to each element of the strings, similar to map for lists. ``` @@ -3140,14 +3242,14 @@ of the strings, similar to map for lists. ``` (string-ref string k) -Function return character inside string at given zero-based index. +Returns character inside string at given zero-based index. ``` ## string-split ``` (split separator string) -Function create list by splitting string by separatar that can +Function that creates a list by splitting string by separator which can be a string or regular expression. ``` @@ -3155,117 +3257,140 @@ be a string or regular expression. ``` (string? expression) -Function check if value is a string. +Predicate that tests if value is a string. ``` ## string? ``` (string=? ``` (string ``` ## symbol->string ``` (symbol->string symbol) -Function convert LIPS symbol to string. +Function that converts a LIPS symbol to a string. +``` + +## symbol-append +``` +(symbol-append s1 s2 ...) + +Function that creates a new symbol from symbols passed as arguments. ``` ## symbol? ``` (symbol? expression) -Function check if value is LIPS symbol +Predicate that tests if value is a LIPS symbol. ``` ## symbol=? ``` (symbol=? s1 s2 ...) -Function check if each value is symbol and it's the same acording to string=? predicate. +Checks if each value is symbol and it's the same according to string=? predicate. ``` ## take ``` (take n list) -Return n first values of the list. +Returns n first values of the list. ``` ## tan ``` -# +(tan n) + +Function that calculates tangent of a number. ``` ## textual-port? ``` (textual-port? port) -Function test if argument is string port. +Function that tests if argument is string port. ``` ## throw ``` (throw string) -Throws new expection. +Throws a new exception. ``` ## tree->array ``` (tree->array list) -Function convert LIPS list structure into JavaScript array. +Function that converts a LIPS cons tree structure into a JavaScript array. ``` ## tree-map ``` (tree-map fn tree) -Tree version of map. Function is invoked on every leaf. +Tree version of map. fn is invoked on every leaf. ``` ## truncate ``` (truncate n) -Function return integer value from real number. +Function that returns the integer part (floor) of a real number. ``` ## truncate-quotient @@ -3287,37 +3412,37 @@ Function return integer value from real number. ``` (type object) -Function return type of an object as string. +Function that returns the type of an object as string. ``` ## typecheck ``` (typecheck label value type [position]) -Function check type and throw exception if type don't match. -Type can be string or list of strings. Position optional argument -is used to created proper error message. +Checks the type of value and errors if the type is not one allowed. Type can be +string or list of strings. The position optional argument is used to create a +proper error message for the nth argument of function calls. ``` ## typecheck-args ``` (typecheck-args args type) -Function check if all items in array are of same type. +Function that makes sure that all items in the array are of same type. ``` ## typed-array? ``` (typed-array? o) -Function test if argumnet is JavaScript typed array (Scheme byte vector). +Function that tests if the arguments is a JavaScript typed array (Scheme byte vector). ``` ## u16vector ``` (u16vector v1 v2 ...) -Create usigned 16-bit integer vector from give arguments. +Create unsigned 16-bit integer vector (C unsigned short) from give arguments. ``` ## u16vector->list @@ -3329,35 +3454,35 @@ Create usigned 16-bit integer vector from give arguments. ``` (u16vector-length v) -return length of usigned 16-bit integer vector. +return length of unsigned 16-bit integer vector (C unsigned short). ``` ## u16vector-ref ``` (u16vector-ref vector k) -Function return value frome vector at index k. If index is out of range it throw exception. +Returns value from vector at index k. If index is out of range it throw exception. ``` ## u16vector-set! ``` (u16vector-set! vector k) -Function set value of usigned 16-bit integer vector at index k. If index is out of range it throw exception. +Function set value of unsigned 16-bit integer vector (C unsigned short) at index k. If index is out of range it throw exception. ``` ## u16vector? ``` (u16vector? x) -Function return #t of argument is usigned 16-bit integer vector otherwise it return #f. +Returns #t of argument is unsigned 16-bit integer vector (C unsigned short) otherwise it return #f. ``` ## u32vector ``` (u32vector v1 v2 ...) -Create usigned 32-bit integer vector from give arguments. +Create unsigned 32-bit integer vector (C int) from give arguments. ``` ## u32vector->list @@ -3369,28 +3494,28 @@ Create usigned 32-bit integer vector from give arguments. ``` (u32vector-length v) -return length of usigned 32-bit integer vector. +return length of unsigned 32-bit integer vector (C int). ``` ## u32vector-ref ``` (u32vector-ref vector k) -Function return value frome vector at index k. If index is out of range it throw exception. +Returns value from vector at index k. If index is out of range it throw exception. ``` ## u32vector-set! ``` (u32vector-set! vector k) -Function set value of usigned 32-bit integer vector at index k. If index is out of range it throw exception. +Function set value of unsigned 32-bit integer vector (C int) at index k. If index is out of range it throw exception. ``` ## u32vector? ``` (u32vector? x) -Function return #t of argument is usigned 32-bit integer vector otherwise it return #f. +Returns #t of argument is unsigned 32-bit integer vector (C int) otherwise it return #f. ``` ## u8-ready? @@ -3407,7 +3532,7 @@ guaranteed not to hang. If the port is at end of file then u8-ready? returns #t. ``` (u8vector v1 v2 ...) -Create usigned 8-bit integer vector from give arguments. +Create unsigned 8-bit integer vector (C unsigned char) from give arguments. ``` ## u8vector->list @@ -3419,78 +3544,76 @@ Create usigned 8-bit integer vector from give arguments. ``` (u8vector-length v) -return length of usigned 8-bit integer vector. +return length of unsigned 8-bit integer vector (C unsigned char). ``` ## u8vector-ref ``` (u8vector-ref vector k) -Function return value frome vector at index k. If index is out of range it throw exception. +Returns value from vector at index k. If index is out of range it throw exception. ``` ## u8vector-set! ``` (u8vector-set! vector k) -Function set value of usigned 8-bit integer vector at index k. If index is out of range it throw exception. +Function set value of unsigned 8-bit integer vector (C unsigned char) at index k. If index is out of range it throw exception. ``` ## u8vector? ``` (u8vector? x) -Function return #t of argument is usigned 8-bit integer vector otherwise it return #f. +Returns #t of argument is unsigned 8-bit integer vector (C unsigned char) otherwise it return #f. ``` ## unary ``` (unary fn) -Function return new function with arguments limited to one. +Returns a new function with arguments limited to one. ``` ## unbind ``` (unbind fn) -Function remove bidning from function so you can get props from it. +Function that removes the weak 'this' binding from a function so you +can get properties from the actual function object. ``` ## unfold ``` (unfold fn init) -Function returns list from given function and init value. The function should -return cons where first is the item added to the list and second is next value -passed to the funtion. If function return false it end the loop. +Returns a list from the given function and init value. The function should +return a pair where first is the item added to the list and second is next value +passed to the function. If the function returns false it ends the loop. ``` ## unquote ``` -(unquote code) +(unquote code) or ,code -Special form to be used in quasiquote macro, parser is processing special -characters , and create call to this pseudo function. It can be used -to evalute expression inside and return the value, the output is inserted -into list structure created by queasiquote. +Special form used in the quasiquote macro. It evaluates the expression inside and +substitutes the value into quasiquote's result. ``` ## unquote-splicing ``` -(unquote-splicing code) +(unquote-splicing code) or ,@code -Special form to be used in quasiquote macro, parser is processing special -characters ,@ and create call to this pseudo function. It can be used -to evalute expression inside and return the value without parenthesis. -the value will be joined to the output list structure. +Special form used in the quasiquote macro. It evaluates the expression inside and +splices the list into quasiquote's result. If it is not the last element of the +expression, the computed value must be a pair. ``` ## unset-repr! ``` (unset-repr! type) -Function remove string represention to the type, which should be constructor function, +Removes the string representation of the type, which should be constructor function, added by add-repr! function. ``` @@ -3498,7 +3621,7 @@ added by add-repr! function. ``` (unset-special! name) -Function remove special symbol from parser. Added by `set-special!`, +Function that removes a special symbol from parser added by `set-special!`, name must be a string. ``` @@ -3508,7 +3631,7 @@ name must be a string. (utf8->string u8vector start) (utf8->string u8vector start end) -Function converts u8 bytevector into string using utf8 encoding. +Converts u8 bytevector into string using utf8 encoding. The start and end is the range of the input byte vector for the conversion. ``` @@ -3516,22 +3639,22 @@ The start and end is the range of the input byte vector for the conversion. ``` (value obj) -Function unwrap LNumbers and convert nil value to undefined. +Function that unwraps LNumbers and converts nil to undefined. ``` ## values ``` (values a1 a2 ...) -If called with more then one elment it will create special -Values object that can be used in call-with-values function +If called with more then one element it will create a special +Values object that can be used in the call-with-values function. ``` ## values-ref ``` (values-ref values n) -Function return n value of values object which is result of value function. +Returns n value of values object which is result of value function. ``` ## vector->f32vector @@ -3550,7 +3673,7 @@ Function return n value of values object which is result of value function. (vector->list vector start) (vector->list vector start end) -Function copy given range of vector to list. If no start is specified it use +Function that copies given range of vector to list. If no start is specified it use start of the vector, if no end is specified it convert to the end of the vector. ``` @@ -3575,7 +3698,7 @@ start of the vector, if no end is specified it convert to the end of the vector. (vector->string vector start) (vector->string vector start end) -Function return new string created from vector of characters in given range. +Returns new string created from vector of characters in given range. If no start is given it create string from 0, if no end is given it return string to the end. ``` @@ -3599,7 +3722,7 @@ string to the end. ``` (vector-append v1 v2 ...) -Function return new vector by combining it's arguments that should be vectors. +Returns new vector by combining it's arguments that should be vectors. ``` ## vector-fill! @@ -3616,14 +3739,14 @@ at 0. If end is not given it fill till the end if the vector. ``` (vector-length vec) -Function return length of the vector. If argument is not vector it throw exception. +Returns length of the vector. It errors if the argument is not a vector. ``` ## vector-map ``` (vector-map fn vector1 vector2 ...) -Function return new vector from applying function fn to each element +Returns new vector from applying function fn to each element of the vectors, similar to map for lists. ``` @@ -3631,21 +3754,21 @@ of the vectors, similar to map for lists. ``` (vector-ref vec n) -Function return nth element of the vector vec. +Returns nth element of the vector vec. ``` ## vector-set! ``` (vector-set! vec n value) -Function set nth item of the vector to value. +Function that sets nth item of the vector to value. ``` ## vector? ``` (vector? n) -Function return true of value is vector and false if not. +Returns true if value is vector and false if not. ``` ## with-exception-handler @@ -3665,6 +3788,24 @@ After thunk is executed current-input-port is restored and file port is closed. ``` +## with-input-from-port +``` +(with-input-from-port port thunk) + +Procedure use port and make it current-input-port then thunk is executed. +After thunk is executed current-input-port is restored and given port +is closed. +``` + +## with-input-from-string +``` +(with-input-from-string string thunk) + +Procedure open string and make it current-input-port then thunk is executed. +After thunk is executed current-input-port is restored and string port +is closed. +``` + ## with-output-to-file ``` # @@ -3732,6 +3873,6 @@ Write byte into binary output port. ``` (zero? x) -Function check if number is equal to 0 +Checks if the number is equal to 0 ``` diff --git a/assets/Interpreter.dia b/assets/Interpreter.dia index dc50b39e4..8800b017d 100644 Binary files a/assets/Interpreter.dia and b/assets/Interpreter.dia differ diff --git a/assets/Interpreter.svg b/assets/Interpreter.svg index caacd2045..991f21a71 100644 --- a/assets/Interpreter.svg +++ b/assets/Interpreter.svg @@ -1,144 +1,153 @@ - + - - - - Parser + + + + Parser - - + + - + - + - + - + - + - - - - Lexer + + + + Lexer - - - - Character Stream + + + + Character Stream - - - - exec + + + + exec - - - - evaluate + + + + evaluate - - - + + + - - - + + + - - - + + + - - - + + + - - - + + + - - - + + + - - Syntax - Extension + + Syntax + Extension - - - + + + - - - - - - - - - Environment + + + + Environment - - - + + + - - - + + + - - apply + + apply - - - + + + + + + + + - - - + + + - - - + + + + + ES6 Generator + + + + + + State Machine + diff --git a/assets/classDiagram b/assets/classDiagram index c27bfc22f..7ba779d56 100644 --- a/assets/classDiagram +++ b/assets/classDiagram @@ -235,7 +235,7 @@ class Lexer { class Parser { Lexer __lexer__ - Environent __env__ + Environment __env__ resolve() peek() skip() diff --git a/assets/classDiagram.svg b/assets/classDiagram.svg index 472ccbab1..1932ca675 100644 --- a/assets/classDiagram.svg +++ b/assets/classDiagram.svg @@ -1 +1 @@ -LNumberNumber __value__isFloat()isNumber()isComplex()isRational()isNative()isBigInteger()isBN()getType()coerce()op()sqrt()pow()abs()isOdd()isEven()cmp()LBigIntegerBigInt __value__sqrt()gcd()sqrt()LRationalLNumber __num__LNumber __denom__pow()abs()cmp()mul()div()sub()add()valueOf()toString()LFloatNumber __value__toRational()toString()LComplexLNumber __im__LNumber __re__sqrt()toRational()add()factor()modulus()sqrt()div()sub()mul()cmp()toString()InputPortParser __parser__read_char()skip_char()read_line()read()char_ready()is_open()close()toString()InputStringPortsymbol __type__char_ready()toString()InputFilePortstring __filename__toStgring()OutputPortsymbol __type__write()is_open()close()toString()OutputStringPortstring[] __buffer__symbol __type__write()valueOf()toString()OutputFilePortstring __filename__symbol __type__fs()internal()close()toString()OutputByteVectorPortUin8Array __buffer__symbol __type__write(any)close()write_u8(byte)write_u8_vector(Uint8Array)toString()valueOf()InputByteVectorPortsymbol __type__Uint8Array __vector__integer __index__string __filename__toString()u8_ready()peek_u8()skip()read_u8()read_u8_vector(integer)toString()InputBinaryFilePortstring __filename__toString()OutputBinaryFilePortstring __filename__symbol __type__write(any)write_u8(byte)write_u8_vector(Uint8Array)ParserLexer __lexer__Environent __env__resolve()peek()skip()read()is_special(token)is_builtin(token)is_open(token)is_close(token)read_list()read_value()read_object()is_ccomment(token)evaluate(code)Lexerstring __input__static rulestoken(meta)peek(meta)skip()read_line()read_rest()read_string(num)peek_char()read_char()skip_char()match_rule()next_token()Macrostring __doc__string __name__boolean __defmacro__Function __fn__defmacro()invoke()toString()Syntaxinvoke()toString()StringLStringstring __string__number lengthtoString()get(number)cmp(string)lower()upper()set(number, LCharacter)clone()fill(LCharacter)Formatterstring __code__indent(object)exception_shift(token, object)break()format()AheadPatternrule patternstring flagInterpreterEnvironment __env__get(symbol)set(symbol, value)constant(name, value)exec(code, dynamic = false, env = null)Environmentstring __name__Map __docs__Object __env__Environment __parent__list()uset(name)inherit(name, object)doc(name, value = null)get(symbol, options)set(symbol, value, doc = null)constant(name, value)has(string)ref(string)parents()newFrame(Function, args)clone()merge()toString()Workerstring urlWorker workerrpc(method, params)exec(code, [dynamic])LCharacterstring __name__string __char__toUpperCase()toLowerCase()toString()valueOf()LSymbolstring __name__Valuesany[] __values__valueOf()toString()QuotedPromisePromise __promise__then()catch()valueOf()Pairany carany cdrflatten()length()find(any)clone()last_pair()to_array()to_object()reduce(Function)reverse()transform(Function)map(Function) \ No newline at end of file +
LNumber
Number __value__
isFloat()
isNumber()
isComplex()
isRational()
isNative()
isBigInteger()
isBN()
getType()
coerce()
op()
sqrt()
pow()
abs()
isOdd()
isEven()
cmp()
LBigInteger
BigInt __value__
sqrt()
gcd()
sqrt()
LRational
LNumber __num__
LNumber __denom__
pow()
abs()
cmp()
mul()
div()
sub()
add()
valueOf()
toString()
LFloat
Number __value__
toRational()
toString()
LComplex
LNumber __im__
LNumber __re__
sqrt()
toRational()
add()
factor()
modulus()
sqrt()
div()
sub()
mul()
cmp()
toString()
InputPort
Parser __parser__
read_char()
skip_char()
read_line()
read()
char_ready()
is_open()
close()
toString()
InputStringPort
symbol __type__
char_ready()
toString()
InputFilePort
string __filename__
toStgring()
OutputPort
symbol __type__
write()
is_open()
close()
toString()
OutputStringPort
string[] __buffer__
symbol __type__
write()
valueOf()
toString()
OutputFilePort
string __filename__
symbol __type__
fs()
internal()
close()
toString()
OutputByteVectorPort
Uin8Array __buffer__
symbol __type__
write(any)
close()
write_u8(byte)
write_u8_vector(Uint8Array)
toString()
valueOf()
InputByteVectorPort
symbol __type__
Uint8Array __vector__
integer __index__
string __filename__
toString()
u8_ready()
peek_u8()
skip()
read_u8()
read_u8_vector(integer)
toString()
InputBinaryFilePort
string __filename__
toString()
OutputBinaryFilePort
string __filename__
symbol __type__
write(any)
write_u8(byte)
write_u8_vector(Uint8Array)
Parser
Lexer __lexer__
Environment __env__
resolve()
peek()
skip()
read()
is_special(token)
is_builtin(token)
is_open(token)
is_close(token)
read_list()
read_value()
read_object()
is_ccomment(token)
evaluate(code)
Lexer
string __input__
static rules
token(meta)
peek(meta)
skip()
read_line()
read_rest()
read_string(num)
peek_char()
read_char()
skip_char()
match_rule()
next_token()
Macro
string __doc__
string __name__
boolean __defmacro__
Function __fn__
defmacro()
invoke()
toString()
Syntax
invoke()
toString()
String
LString
string __string__
number length
toString() : string
get(number) : string
cmp(string) : boolean
lower() : LString
upper() : LString
set(number, LCharacter)
clone() : LString
fill(LCharacter)
Formatter
string __code__
indent(object) : number
exception_shift(token, object) : number
break() : Formatter
format() : string
Ahead
Pattern
rule pattern
string flag
Interpreter
Environment __env__
get(symbol)
set(symbol, value)
constant(name, value)
exec(code, dynamic = false, env = null)
Environment
string __name__
Map __docs__
Object __env__
Environment __parent__
list() : string[]
uset(name)
inherit(name, object) : Environment
doc(name, value = null)
get(symbol, options)
set(symbol, value, doc = null)
constant(name, value)
has(string) : boolean
ref(string) : Environment
parents() : Environment[]
newFrame(Function, args)
clone() : Environment
merge() : Environment
toString() : string
Worker
string url
Worker worker
rpc(method, params) : Promise
exec(code, [dynamic]) : Promise
LCharacter
string __name__
string __char__
toUpperCase() : LCharacter
toLowerCase() : LCharacter
toString() : string
valueOf() : string
LSymbol
string __name__
Values
any[] __values__
valueOf()
toString()
QuotedPromise
Promise __promise__
then()
catch()
valueOf()
Pair
any car
any cdr
flatten()
length()
find(any)
clone()
last_pair()
to_array()
to_object()
reduce(Function)
reverse() : Pair
transform(Function)
map(Function)
 \ No newline at end of file diff --git a/benchmarks/helpers.scm b/benchmarks/helpers.scm index 73624acfc..97a8868a4 100644 --- a/benchmarks/helpers.scm +++ b/benchmarks/helpers.scm @@ -7,7 +7,8 @@ (run &(:async true)) (on "cycle" (lambda (e) - (print (string-append ">>> " (String target))))) + (console.log e.target) + (print (string-append ">>> " (e.target.toString))))) (on "complete" (lambda (e) (try @@ -16,4 +17,4 @@ (map "name") 0)))) (catch (e) - (print e)))))))) \ No newline at end of file + (print e)))))))) diff --git a/bin/lips.js b/bin/lips.js index 1cde54262..75fe4f6cf 100755 --- a/bin/lips.js +++ b/bin/lips.js @@ -42,6 +42,7 @@ import readline from 'readline'; import highlight from 'prism-cli'; import Prism from 'prismjs'; import 'prismjs/components/prism-scheme.min.js'; +import { satisfies } from 'compare-versions'; import '../lib/js/prism.js'; import { createRequire } from 'module'; @@ -50,6 +51,8 @@ const require = createRequire(import.meta.url); const kDebounceHistoryMS = 15; +const supports_paste_brackets = satisfies(process.version, '>=v20.6.0'); + // ----------------------------------------------------------------------------- process.on('uncaughtException', function (err) { log_error(err.message); @@ -200,14 +203,15 @@ const moduleURL = new URL(import.meta.url); const __dirname = path.dirname(moduleURL.pathname); const __filename = path.basename(moduleURL.pathname); const command_line = []; -var interp = Interpreter('repl', { +let last_line = ''; +const interp = Interpreter('repl', { stdin: InputPort(function() { return new Promise(function(resolve) { rl = readline.createInterface({ input: process.stdin, output: process.stdout }); - rl.question('', function(data) { + rl.question(last_line, function(data) { resolve(data); rl.close(); }); @@ -219,6 +223,7 @@ var interp = Interpreter('repl', { x = this.get('repr')(x); } newline = !x.match(/\n$/); + last_line = x.split('\n').pop(); process.stdout.write(x); }), // ------------------------------------------------------------------------- @@ -427,9 +432,9 @@ function unify_prompt(a, b) { function run_repl(err, rl) { const dynamic = options.d || options.dynamic; - var code = ''; - var multiline = false; - var resolve; + let cmd = ''; + let multiline = false; + let resolve; // we use promise loop to fix issue when copy paste list of S-Expression let prev_eval = Promise.resolve(); if (process.stdin.isTTY) { @@ -437,25 +442,25 @@ function run_repl(err, rl) { } let prev_line; bootstrap(interp).then(function() { + if (supports_paste_brackets) { + process.stdin.on('keypress', (c, k) => { + if (k?.name?.match(/^paste-/)) { + cmd += k.sequence; + } + }); + process.stdout.write('\x1b[?2004h'); + } + const re = /\x1b\[(200|201)~/g; rl.on('line', function(line) { - code += line; + cmd += line; + if (cmd.match(/\x1b\[201~$/)) { + cmd = cmd.replace(re, ''); + } + const code = cmd.replace(re, ''); const lines = code.split('\n'); - const cols = process.stdout.columns; - // fix formatting for previous lines that was echo - // ReadLine will not handle those if (terminal && lines.length > 2) { - var count = 0; - // correction when line wrapps in original line - // that will be overwritten - lines.map(line => { - if (line.length > cols) { - count += Math.ceil(line.length / cols) - 1; - } - }); - var f = new Formatter(code); - code = f.format(); const stdout = scheme(code).split('\n').map((line, i) => { - var prefix; + let prefix; if (i === 0) { prefix = unify_prompt(prompt, continuePrompt); } else { @@ -463,11 +468,11 @@ function run_repl(err, rl) { } return '\x1b[K' + prefix + line; }).join('\n'); - let num = lines.length + count + 1; + let num = lines.length; const format = `\x1b[${num}F${stdout}\n`; process.stdout.write(format); } - code += '\n'; + cmd += '\n'; try { if (balanced_parenthesis(code)) { // we need to clear the prompt because resume @@ -477,7 +482,7 @@ function run_repl(err, rl) { rl.pause(); prev_eval = prev_eval.then(function() { const result = run(code, interp, dynamic, null, options.t || options.trace); - code = ''; + cmd = ''; return result; }).then(function(result) { if (process.stdin.isTTY) { @@ -507,18 +512,26 @@ function run_repl(err, rl) { }); } else { multiline = true; - const ind = indent(code, 2, prompt.length - continuePrompt.length); - rl.setPrompt(continuePrompt); - rl.prompt(); - const spaces = new Array(ind + 1).join(' '); - if (terminal) { - rl.write(spaces); + if (cmd.match(/\x1b\[200~/) || !supports_paste_brackets) { + rl.setPrompt(continuePrompt); + rl.prompt(); + if (terminal) { + rl.write(' '.repeat(prompt.length - continuePrompt.length)); + } + } else { + const ind = indent(code, 2, prompt.length - continuePrompt.length); + const spaces = new Array(ind + 1).join(' '); + rl.setPrompt(continuePrompt); + rl.prompt(); + if (terminal) { + rl.write(spaces); + } } } } catch (e) { console.error(e.message); console.error(e.stack); - code = ''; + cmd = ''; rl.setPrompt(prompt); rl.prompt(); } diff --git a/dist/lips.js b/dist/lips.js index d07dfe155..b71748e5f 100644 --- a/dist/lips.js +++ b/dist/lips.js @@ -4,7 +4,7 @@ * | | \ \ | | | || . \/ __> | | * | | > \ | |_ | || _/\__ \ | | * | | / ^ \ |___||_||_| <___/ | | - * \_\ /_/ \_\ /_/ v. 1.0.0-beta.16 + * \_\ /_/ \_\ /_/ v. DEV * * LIPS is Pretty Simple - Scheme based Powerful LISP in JavaScript * @@ -31,7 +31,7 @@ * Copyright (c) 2014-present, Facebook, Inc. * released under MIT license * - * build: Mon, 15 Nov 2021 19:33:52 +0000 + * build: Wed, 22 Nov 2023 13:53:23 +0000 */ (function (global, factory) { typeof exports === 'object' && typeof module !== 'undefined' ? module.exports = factory() : @@ -98,23 +98,20 @@ configurable: true } }); + Object.defineProperty(subClass, "prototype", { + writable: false + }); if (superClass) _setPrototypeOf(subClass, superClass); } function _typeof(obj) { "@babel/helpers - typeof"; - if (typeof Symbol === "function" && typeof Symbol.iterator === "symbol") { - _typeof = function _typeof(obj) { - return typeof obj; - }; - } else { - _typeof = function _typeof(obj) { - return obj && typeof Symbol === "function" && obj.constructor === Symbol && obj !== Symbol.prototype ? "symbol" : typeof obj; - }; - } - - return _typeof(obj); + return _typeof = "function" == typeof Symbol && "symbol" == typeof Symbol.iterator ? function (obj) { + return typeof obj; + } : function (obj) { + return obj && "function" == typeof Symbol && obj.constructor === Symbol && obj !== Symbol.prototype ? "symbol" : typeof obj; + }, _typeof(obj); } function _possibleConstructorReturn(self, call) { @@ -236,6 +233,9 @@ function _createClass(Constructor, protoProps, staticProps) { if (protoProps) _defineProperties(Constructor.prototype, protoProps); if (staticProps) _defineProperties(Constructor, staticProps); + Object.defineProperty(Constructor, "prototype", { + writable: false + }); return Constructor; } @@ -322,20 +322,6 @@ return _arrayWithHoles(arr) || _iterableToArrayLimit(arr, i) || _unsupportedIterableToArray$1(arr, i) || _nonIterableRest(); } - function _asyncIterator(iterable) { - var method; - - if (typeof Symbol !== "undefined") { - if (Symbol.asyncIterator) method = iterable[Symbol.asyncIterator]; - if (method == null && Symbol.iterator) method = iterable[Symbol.iterator]; - } - - if (method == null) method = iterable["@@asyncIterator"]; - if (method == null) method = iterable["@@iterator"]; - if (method == null) throw new TypeError("Object is not async iterable"); - return method.call(iterable); - } - function _AwaitValue(value) { this.wrapped = value; } @@ -445,6 +431,12 @@ }; } + function getDefaultExportFromCjs (x) { + return x && x.__esModule && Object.prototype.hasOwnProperty.call(x, 'default') ? x['default'] : x; + } + + var regenerator = {exports: {}}; + var runtime = {exports: {}}; /** @@ -455,755 +447,759 @@ */ (function (module) { - var runtime = (function (exports) { - - var Op = Object.prototype; - var hasOwn = Op.hasOwnProperty; - var undefined$1; // More compressible than void 0. - var $Symbol = typeof Symbol === "function" ? Symbol : {}; - var iteratorSymbol = $Symbol.iterator || "@@iterator"; - var asyncIteratorSymbol = $Symbol.asyncIterator || "@@asyncIterator"; - var toStringTagSymbol = $Symbol.toStringTag || "@@toStringTag"; - - function define(obj, key, value) { - Object.defineProperty(obj, key, { - value: value, - enumerable: true, - configurable: true, - writable: true - }); - return obj[key]; - } - try { - // IE 8 has a broken Object.defineProperty that only works on DOM objects. - define({}, ""); - } catch (err) { - define = function(obj, key, value) { - return obj[key] = value; - }; - } - - function wrap(innerFn, outerFn, self, tryLocsList) { - // If outerFn provided and outerFn.prototype is a Generator, then outerFn.prototype instanceof Generator. - var protoGenerator = outerFn && outerFn.prototype instanceof Generator ? outerFn : Generator; - var generator = Object.create(protoGenerator.prototype); - var context = new Context(tryLocsList || []); - - // The ._invoke method unifies the implementations of the .next, - // .throw, and .return methods. - generator._invoke = makeInvokeMethod(innerFn, self, context); - - return generator; - } - exports.wrap = wrap; - - // Try/catch helper to minimize deoptimizations. Returns a completion - // record like context.tryEntries[i].completion. This interface could - // have been (and was previously) designed to take a closure to be - // invoked without arguments, but in all the cases we care about we - // already have an existing method we want to call, so there's no need - // to create a new function object. We can even get away with assuming - // the method takes exactly one argument, since that happens to be true - // in every case, so we don't have to touch the arguments object. The - // only additional allocation required is the completion record, which - // has a stable shape and so hopefully should be cheap to allocate. - function tryCatch(fn, obj, arg) { - try { - return { type: "normal", arg: fn.call(obj, arg) }; - } catch (err) { - return { type: "throw", arg: err }; - } - } - - var GenStateSuspendedStart = "suspendedStart"; - var GenStateSuspendedYield = "suspendedYield"; - var GenStateExecuting = "executing"; - var GenStateCompleted = "completed"; - - // Returning this object from the innerFn has the same effect as - // breaking out of the dispatch switch statement. - var ContinueSentinel = {}; - - // Dummy constructor functions that we use as the .constructor and - // .constructor.prototype properties for functions that return Generator - // objects. For full spec compliance, you may wish to configure your - // minifier not to mangle the names of these two functions. - function Generator() {} - function GeneratorFunction() {} - function GeneratorFunctionPrototype() {} - - // This is a polyfill for %IteratorPrototype% for environments that - // don't natively support it. - var IteratorPrototype = {}; - define(IteratorPrototype, iteratorSymbol, function () { - return this; - }); - - var getProto = Object.getPrototypeOf; - var NativeIteratorPrototype = getProto && getProto(getProto(values([]))); - if (NativeIteratorPrototype && - NativeIteratorPrototype !== Op && - hasOwn.call(NativeIteratorPrototype, iteratorSymbol)) { - // This environment has a native %IteratorPrototype%; use it instead - // of the polyfill. - IteratorPrototype = NativeIteratorPrototype; - } - - var Gp = GeneratorFunctionPrototype.prototype = - Generator.prototype = Object.create(IteratorPrototype); - GeneratorFunction.prototype = GeneratorFunctionPrototype; - define(Gp, "constructor", GeneratorFunctionPrototype); - define(GeneratorFunctionPrototype, "constructor", GeneratorFunction); - GeneratorFunction.displayName = define( - GeneratorFunctionPrototype, - toStringTagSymbol, - "GeneratorFunction" - ); - - // Helper for defining the .next, .throw, and .return methods of the - // Iterator interface in terms of a single ._invoke method. - function defineIteratorMethods(prototype) { - ["next", "throw", "return"].forEach(function(method) { - define(prototype, method, function(arg) { - return this._invoke(method, arg); - }); - }); - } - - exports.isGeneratorFunction = function(genFun) { - var ctor = typeof genFun === "function" && genFun.constructor; - return ctor - ? ctor === GeneratorFunction || - // For the native GeneratorFunction constructor, the best we can - // do is to check its .name property. - (ctor.displayName || ctor.name) === "GeneratorFunction" - : false; - }; - - exports.mark = function(genFun) { - if (Object.setPrototypeOf) { - Object.setPrototypeOf(genFun, GeneratorFunctionPrototype); - } else { - genFun.__proto__ = GeneratorFunctionPrototype; - define(genFun, toStringTagSymbol, "GeneratorFunction"); - } - genFun.prototype = Object.create(Gp); - return genFun; - }; - - // Within the body of any async function, `await x` is transformed to - // `yield regeneratorRuntime.awrap(x)`, so that the runtime can test - // `hasOwn.call(value, "__await")` to determine if the yielded value is - // meant to be awaited. - exports.awrap = function(arg) { - return { __await: arg }; - }; - - function AsyncIterator(generator, PromiseImpl) { - function invoke(method, arg, resolve, reject) { - var record = tryCatch(generator[method], generator, arg); - if (record.type === "throw") { - reject(record.arg); - } else { - var result = record.arg; - var value = result.value; - if (value && - typeof value === "object" && - hasOwn.call(value, "__await")) { - return PromiseImpl.resolve(value.__await).then(function(value) { - invoke("next", value, resolve, reject); - }, function(err) { - invoke("throw", err, resolve, reject); - }); - } - - return PromiseImpl.resolve(value).then(function(unwrapped) { - // When a yielded Promise is resolved, its final value becomes - // the .value of the Promise<{value,done}> result for the - // current iteration. - result.value = unwrapped; - resolve(result); - }, function(error) { - // If a rejected Promise was yielded, throw the rejection back - // into the async generator function so it can be handled there. - return invoke("throw", error, resolve, reject); - }); - } - } - - var previousPromise; - - function enqueue(method, arg) { - function callInvokeWithMethodAndArg() { - return new PromiseImpl(function(resolve, reject) { - invoke(method, arg, resolve, reject); - }); - } - - return previousPromise = - // If enqueue has been called before, then we want to wait until - // all previous Promises have been resolved before calling invoke, - // so that results are always delivered in the correct order. If - // enqueue has not been called before, then it is important to - // call invoke immediately, without waiting on a callback to fire, - // so that the async generator function has the opportunity to do - // any necessary setup in a predictable way. This predictability - // is why the Promise constructor synchronously invokes its - // executor callback, and why async functions synchronously - // execute code before the first await. Since we implement simple - // async functions in terms of async generators, it is especially - // important to get this right, even though it requires care. - previousPromise ? previousPromise.then( - callInvokeWithMethodAndArg, - // Avoid propagating failures to Promises returned by later - // invocations of the iterator. - callInvokeWithMethodAndArg - ) : callInvokeWithMethodAndArg(); - } - - // Define the unified helper method that is used to implement .next, - // .throw, and .return (see defineIteratorMethods). - this._invoke = enqueue; - } - - defineIteratorMethods(AsyncIterator.prototype); - define(AsyncIterator.prototype, asyncIteratorSymbol, function () { - return this; - }); - exports.AsyncIterator = AsyncIterator; - - // Note that simple async functions are implemented on top of - // AsyncIterator objects; they just return a Promise for the value of - // the final result produced by the iterator. - exports.async = function(innerFn, outerFn, self, tryLocsList, PromiseImpl) { - if (PromiseImpl === void 0) PromiseImpl = Promise; - - var iter = new AsyncIterator( - wrap(innerFn, outerFn, self, tryLocsList), - PromiseImpl - ); - - return exports.isGeneratorFunction(outerFn) - ? iter // If outerFn is a generator, return the full iterator. - : iter.next().then(function(result) { - return result.done ? result.value : iter.next(); - }); - }; - - function makeInvokeMethod(innerFn, self, context) { - var state = GenStateSuspendedStart; - - return function invoke(method, arg) { - if (state === GenStateExecuting) { - throw new Error("Generator is already running"); - } - - if (state === GenStateCompleted) { - if (method === "throw") { - throw arg; - } - - // Be forgiving, per 25.3.3.3.3 of the spec: - // https://people.mozilla.org/~jorendorff/es6-draft.html#sec-generatorresume - return doneResult(); - } - - context.method = method; - context.arg = arg; - - while (true) { - var delegate = context.delegate; - if (delegate) { - var delegateResult = maybeInvokeDelegate(delegate, context); - if (delegateResult) { - if (delegateResult === ContinueSentinel) continue; - return delegateResult; - } - } - - if (context.method === "next") { - // Setting context._sent for legacy support of Babel's - // function.sent implementation. - context.sent = context._sent = context.arg; - - } else if (context.method === "throw") { - if (state === GenStateSuspendedStart) { - state = GenStateCompleted; - throw context.arg; - } - - context.dispatchException(context.arg); - - } else if (context.method === "return") { - context.abrupt("return", context.arg); - } - - state = GenStateExecuting; - - var record = tryCatch(innerFn, self, context); - if (record.type === "normal") { - // If an exception is thrown from innerFn, we leave state === - // GenStateExecuting and loop back for another invocation. - state = context.done - ? GenStateCompleted - : GenStateSuspendedYield; - - if (record.arg === ContinueSentinel) { - continue; - } - - return { - value: record.arg, - done: context.done - }; - - } else if (record.type === "throw") { - state = GenStateCompleted; - // Dispatch the exception by looping back around to the - // context.dispatchException(context.arg) call above. - context.method = "throw"; - context.arg = record.arg; - } - } - }; - } - - // Call delegate.iterator[context.method](context.arg) and handle the - // result, either by returning a { value, done } result from the - // delegate iterator, or by modifying context.method and context.arg, - // setting context.delegate to null, and returning the ContinueSentinel. - function maybeInvokeDelegate(delegate, context) { - var method = delegate.iterator[context.method]; - if (method === undefined$1) { - // A .throw or .return when the delegate iterator has no .throw - // method always terminates the yield* loop. - context.delegate = null; - - if (context.method === "throw") { - // Note: ["return"] must be used for ES3 parsing compatibility. - if (delegate.iterator["return"]) { - // If the delegate iterator has a return method, give it a - // chance to clean up. - context.method = "return"; - context.arg = undefined$1; - maybeInvokeDelegate(delegate, context); - - if (context.method === "throw") { - // If maybeInvokeDelegate(context) changed context.method from - // "return" to "throw", let that override the TypeError below. - return ContinueSentinel; - } - } - - context.method = "throw"; - context.arg = new TypeError( - "The iterator does not provide a 'throw' method"); - } - - return ContinueSentinel; - } - - var record = tryCatch(method, delegate.iterator, context.arg); - - if (record.type === "throw") { - context.method = "throw"; - context.arg = record.arg; - context.delegate = null; - return ContinueSentinel; - } - - var info = record.arg; - - if (! info) { - context.method = "throw"; - context.arg = new TypeError("iterator result is not an object"); - context.delegate = null; - return ContinueSentinel; - } - - if (info.done) { - // Assign the result of the finished delegate to the temporary - // variable specified by delegate.resultName (see delegateYield). - context[delegate.resultName] = info.value; - - // Resume execution at the desired location (see delegateYield). - context.next = delegate.nextLoc; - - // If context.method was "throw" but the delegate handled the - // exception, let the outer generator proceed normally. If - // context.method was "next", forget context.arg since it has been - // "consumed" by the delegate iterator. If context.method was - // "return", allow the original .return call to continue in the - // outer generator. - if (context.method !== "return") { - context.method = "next"; - context.arg = undefined$1; - } - - } else { - // Re-yield the result returned by the delegate method. - return info; - } - - // The delegate iterator is finished, so forget it and continue with - // the outer generator. - context.delegate = null; - return ContinueSentinel; - } - - // Define Generator.prototype.{next,throw,return} in terms of the - // unified ._invoke helper method. - defineIteratorMethods(Gp); - - define(Gp, toStringTagSymbol, "Generator"); - - // A Generator should always return itself as the iterator object when the - // @@iterator function is called on it. Some browsers' implementations of the - // iterator prototype chain incorrectly implement this, causing the Generator - // object to not be returned from this call. This ensures that doesn't happen. - // See https://github.com/facebook/regenerator/issues/274 for more details. - define(Gp, iteratorSymbol, function() { - return this; - }); - - define(Gp, "toString", function() { - return "[object Generator]"; - }); - - function pushTryEntry(locs) { - var entry = { tryLoc: locs[0] }; - - if (1 in locs) { - entry.catchLoc = locs[1]; - } - - if (2 in locs) { - entry.finallyLoc = locs[2]; - entry.afterLoc = locs[3]; - } - - this.tryEntries.push(entry); - } - - function resetTryEntry(entry) { - var record = entry.completion || {}; - record.type = "normal"; - delete record.arg; - entry.completion = record; - } - - function Context(tryLocsList) { - // The root entry object (effectively a try statement without a catch - // or a finally block) gives us a place to store values thrown from - // locations where there is no enclosing try statement. - this.tryEntries = [{ tryLoc: "root" }]; - tryLocsList.forEach(pushTryEntry, this); - this.reset(true); - } - - exports.keys = function(object) { - var keys = []; - for (var key in object) { - keys.push(key); - } - keys.reverse(); - - // Rather than returning an object with a next method, we keep - // things simple and return the next function itself. - return function next() { - while (keys.length) { - var key = keys.pop(); - if (key in object) { - next.value = key; - next.done = false; - return next; - } - } - - // To avoid creating an additional object, we just hang the .value - // and .done properties off the next function object itself. This - // also ensures that the minifier will not anonymize the function. - next.done = true; - return next; - }; - }; - - function values(iterable) { - if (iterable) { - var iteratorMethod = iterable[iteratorSymbol]; - if (iteratorMethod) { - return iteratorMethod.call(iterable); - } - - if (typeof iterable.next === "function") { - return iterable; - } - - if (!isNaN(iterable.length)) { - var i = -1, next = function next() { - while (++i < iterable.length) { - if (hasOwn.call(iterable, i)) { - next.value = iterable[i]; - next.done = false; - return next; - } - } - - next.value = undefined$1; - next.done = true; - - return next; - }; - - return next.next = next; - } - } - - // Return an iterator with no values. - return { next: doneResult }; - } - exports.values = values; - - function doneResult() { - return { value: undefined$1, done: true }; - } - - Context.prototype = { - constructor: Context, - - reset: function(skipTempReset) { - this.prev = 0; - this.next = 0; - // Resetting context._sent for legacy support of Babel's - // function.sent implementation. - this.sent = this._sent = undefined$1; - this.done = false; - this.delegate = null; + var runtime = (function (exports) { + + var Op = Object.prototype; + var hasOwn = Op.hasOwnProperty; + var undefined$1; // More compressible than void 0. + var $Symbol = typeof Symbol === "function" ? Symbol : {}; + var iteratorSymbol = $Symbol.iterator || "@@iterator"; + var asyncIteratorSymbol = $Symbol.asyncIterator || "@@asyncIterator"; + var toStringTagSymbol = $Symbol.toStringTag || "@@toStringTag"; + + function define(obj, key, value) { + Object.defineProperty(obj, key, { + value: value, + enumerable: true, + configurable: true, + writable: true + }); + return obj[key]; + } + try { + // IE 8 has a broken Object.defineProperty that only works on DOM objects. + define({}, ""); + } catch (err) { + define = function(obj, key, value) { + return obj[key] = value; + }; + } + + function wrap(innerFn, outerFn, self, tryLocsList) { + // If outerFn provided and outerFn.prototype is a Generator, then outerFn.prototype instanceof Generator. + var protoGenerator = outerFn && outerFn.prototype instanceof Generator ? outerFn : Generator; + var generator = Object.create(protoGenerator.prototype); + var context = new Context(tryLocsList || []); + + // The ._invoke method unifies the implementations of the .next, + // .throw, and .return methods. + generator._invoke = makeInvokeMethod(innerFn, self, context); + + return generator; + } + exports.wrap = wrap; + + // Try/catch helper to minimize deoptimizations. Returns a completion + // record like context.tryEntries[i].completion. This interface could + // have been (and was previously) designed to take a closure to be + // invoked without arguments, but in all the cases we care about we + // already have an existing method we want to call, so there's no need + // to create a new function object. We can even get away with assuming + // the method takes exactly one argument, since that happens to be true + // in every case, so we don't have to touch the arguments object. The + // only additional allocation required is the completion record, which + // has a stable shape and so hopefully should be cheap to allocate. + function tryCatch(fn, obj, arg) { + try { + return { type: "normal", arg: fn.call(obj, arg) }; + } catch (err) { + return { type: "throw", arg: err }; + } + } + + var GenStateSuspendedStart = "suspendedStart"; + var GenStateSuspendedYield = "suspendedYield"; + var GenStateExecuting = "executing"; + var GenStateCompleted = "completed"; + + // Returning this object from the innerFn has the same effect as + // breaking out of the dispatch switch statement. + var ContinueSentinel = {}; + + // Dummy constructor functions that we use as the .constructor and + // .constructor.prototype properties for functions that return Generator + // objects. For full spec compliance, you may wish to configure your + // minifier not to mangle the names of these two functions. + function Generator() {} + function GeneratorFunction() {} + function GeneratorFunctionPrototype() {} + + // This is a polyfill for %IteratorPrototype% for environments that + // don't natively support it. + var IteratorPrototype = {}; + define(IteratorPrototype, iteratorSymbol, function () { + return this; + }); + + var getProto = Object.getPrototypeOf; + var NativeIteratorPrototype = getProto && getProto(getProto(values([]))); + if (NativeIteratorPrototype && + NativeIteratorPrototype !== Op && + hasOwn.call(NativeIteratorPrototype, iteratorSymbol)) { + // This environment has a native %IteratorPrototype%; use it instead + // of the polyfill. + IteratorPrototype = NativeIteratorPrototype; + } + + var Gp = GeneratorFunctionPrototype.prototype = + Generator.prototype = Object.create(IteratorPrototype); + GeneratorFunction.prototype = GeneratorFunctionPrototype; + define(Gp, "constructor", GeneratorFunctionPrototype); + define(GeneratorFunctionPrototype, "constructor", GeneratorFunction); + GeneratorFunction.displayName = define( + GeneratorFunctionPrototype, + toStringTagSymbol, + "GeneratorFunction" + ); + + // Helper for defining the .next, .throw, and .return methods of the + // Iterator interface in terms of a single ._invoke method. + function defineIteratorMethods(prototype) { + ["next", "throw", "return"].forEach(function(method) { + define(prototype, method, function(arg) { + return this._invoke(method, arg); + }); + }); + } + + exports.isGeneratorFunction = function(genFun) { + var ctor = typeof genFun === "function" && genFun.constructor; + return ctor + ? ctor === GeneratorFunction || + // For the native GeneratorFunction constructor, the best we can + // do is to check its .name property. + (ctor.displayName || ctor.name) === "GeneratorFunction" + : false; + }; + + exports.mark = function(genFun) { + if (Object.setPrototypeOf) { + Object.setPrototypeOf(genFun, GeneratorFunctionPrototype); + } else { + genFun.__proto__ = GeneratorFunctionPrototype; + define(genFun, toStringTagSymbol, "GeneratorFunction"); + } + genFun.prototype = Object.create(Gp); + return genFun; + }; + + // Within the body of any async function, `await x` is transformed to + // `yield regeneratorRuntime.awrap(x)`, so that the runtime can test + // `hasOwn.call(value, "__await")` to determine if the yielded value is + // meant to be awaited. + exports.awrap = function(arg) { + return { __await: arg }; + }; + + function AsyncIterator(generator, PromiseImpl) { + function invoke(method, arg, resolve, reject) { + var record = tryCatch(generator[method], generator, arg); + if (record.type === "throw") { + reject(record.arg); + } else { + var result = record.arg; + var value = result.value; + if (value && + typeof value === "object" && + hasOwn.call(value, "__await")) { + return PromiseImpl.resolve(value.__await).then(function(value) { + invoke("next", value, resolve, reject); + }, function(err) { + invoke("throw", err, resolve, reject); + }); + } + + return PromiseImpl.resolve(value).then(function(unwrapped) { + // When a yielded Promise is resolved, its final value becomes + // the .value of the Promise<{value,done}> result for the + // current iteration. + result.value = unwrapped; + resolve(result); + }, function(error) { + // If a rejected Promise was yielded, throw the rejection back + // into the async generator function so it can be handled there. + return invoke("throw", error, resolve, reject); + }); + } + } + + var previousPromise; + + function enqueue(method, arg) { + function callInvokeWithMethodAndArg() { + return new PromiseImpl(function(resolve, reject) { + invoke(method, arg, resolve, reject); + }); + } + + return previousPromise = + // If enqueue has been called before, then we want to wait until + // all previous Promises have been resolved before calling invoke, + // so that results are always delivered in the correct order. If + // enqueue has not been called before, then it is important to + // call invoke immediately, without waiting on a callback to fire, + // so that the async generator function has the opportunity to do + // any necessary setup in a predictable way. This predictability + // is why the Promise constructor synchronously invokes its + // executor callback, and why async functions synchronously + // execute code before the first await. Since we implement simple + // async functions in terms of async generators, it is especially + // important to get this right, even though it requires care. + previousPromise ? previousPromise.then( + callInvokeWithMethodAndArg, + // Avoid propagating failures to Promises returned by later + // invocations of the iterator. + callInvokeWithMethodAndArg + ) : callInvokeWithMethodAndArg(); + } + + // Define the unified helper method that is used to implement .next, + // .throw, and .return (see defineIteratorMethods). + this._invoke = enqueue; + } + + defineIteratorMethods(AsyncIterator.prototype); + define(AsyncIterator.prototype, asyncIteratorSymbol, function () { + return this; + }); + exports.AsyncIterator = AsyncIterator; + + // Note that simple async functions are implemented on top of + // AsyncIterator objects; they just return a Promise for the value of + // the final result produced by the iterator. + exports.async = function(innerFn, outerFn, self, tryLocsList, PromiseImpl) { + if (PromiseImpl === void 0) PromiseImpl = Promise; + + var iter = new AsyncIterator( + wrap(innerFn, outerFn, self, tryLocsList), + PromiseImpl + ); + + return exports.isGeneratorFunction(outerFn) + ? iter // If outerFn is a generator, return the full iterator. + : iter.next().then(function(result) { + return result.done ? result.value : iter.next(); + }); + }; + + function makeInvokeMethod(innerFn, self, context) { + var state = GenStateSuspendedStart; + + return function invoke(method, arg) { + if (state === GenStateExecuting) { + throw new Error("Generator is already running"); + } + + if (state === GenStateCompleted) { + if (method === "throw") { + throw arg; + } + + // Be forgiving, per 25.3.3.3.3 of the spec: + // https://people.mozilla.org/~jorendorff/es6-draft.html#sec-generatorresume + return doneResult(); + } + + context.method = method; + context.arg = arg; + + while (true) { + var delegate = context.delegate; + if (delegate) { + var delegateResult = maybeInvokeDelegate(delegate, context); + if (delegateResult) { + if (delegateResult === ContinueSentinel) continue; + return delegateResult; + } + } + + if (context.method === "next") { + // Setting context._sent for legacy support of Babel's + // function.sent implementation. + context.sent = context._sent = context.arg; + + } else if (context.method === "throw") { + if (state === GenStateSuspendedStart) { + state = GenStateCompleted; + throw context.arg; + } + + context.dispatchException(context.arg); + + } else if (context.method === "return") { + context.abrupt("return", context.arg); + } + + state = GenStateExecuting; + + var record = tryCatch(innerFn, self, context); + if (record.type === "normal") { + // If an exception is thrown from innerFn, we leave state === + // GenStateExecuting and loop back for another invocation. + state = context.done + ? GenStateCompleted + : GenStateSuspendedYield; + + if (record.arg === ContinueSentinel) { + continue; + } + + return { + value: record.arg, + done: context.done + }; + + } else if (record.type === "throw") { + state = GenStateCompleted; + // Dispatch the exception by looping back around to the + // context.dispatchException(context.arg) call above. + context.method = "throw"; + context.arg = record.arg; + } + } + }; + } + + // Call delegate.iterator[context.method](context.arg) and handle the + // result, either by returning a { value, done } result from the + // delegate iterator, or by modifying context.method and context.arg, + // setting context.delegate to null, and returning the ContinueSentinel. + function maybeInvokeDelegate(delegate, context) { + var method = delegate.iterator[context.method]; + if (method === undefined$1) { + // A .throw or .return when the delegate iterator has no .throw + // method always terminates the yield* loop. + context.delegate = null; + + if (context.method === "throw") { + // Note: ["return"] must be used for ES3 parsing compatibility. + if (delegate.iterator["return"]) { + // If the delegate iterator has a return method, give it a + // chance to clean up. + context.method = "return"; + context.arg = undefined$1; + maybeInvokeDelegate(delegate, context); + + if (context.method === "throw") { + // If maybeInvokeDelegate(context) changed context.method from + // "return" to "throw", let that override the TypeError below. + return ContinueSentinel; + } + } + + context.method = "throw"; + context.arg = new TypeError( + "The iterator does not provide a 'throw' method"); + } + + return ContinueSentinel; + } + + var record = tryCatch(method, delegate.iterator, context.arg); + + if (record.type === "throw") { + context.method = "throw"; + context.arg = record.arg; + context.delegate = null; + return ContinueSentinel; + } + + var info = record.arg; + + if (! info) { + context.method = "throw"; + context.arg = new TypeError("iterator result is not an object"); + context.delegate = null; + return ContinueSentinel; + } + + if (info.done) { + // Assign the result of the finished delegate to the temporary + // variable specified by delegate.resultName (see delegateYield). + context[delegate.resultName] = info.value; + + // Resume execution at the desired location (see delegateYield). + context.next = delegate.nextLoc; + + // If context.method was "throw" but the delegate handled the + // exception, let the outer generator proceed normally. If + // context.method was "next", forget context.arg since it has been + // "consumed" by the delegate iterator. If context.method was + // "return", allow the original .return call to continue in the + // outer generator. + if (context.method !== "return") { + context.method = "next"; + context.arg = undefined$1; + } + + } else { + // Re-yield the result returned by the delegate method. + return info; + } + + // The delegate iterator is finished, so forget it and continue with + // the outer generator. + context.delegate = null; + return ContinueSentinel; + } + + // Define Generator.prototype.{next,throw,return} in terms of the + // unified ._invoke helper method. + defineIteratorMethods(Gp); + + define(Gp, toStringTagSymbol, "Generator"); + + // A Generator should always return itself as the iterator object when the + // @@iterator function is called on it. Some browsers' implementations of the + // iterator prototype chain incorrectly implement this, causing the Generator + // object to not be returned from this call. This ensures that doesn't happen. + // See https://github.com/facebook/regenerator/issues/274 for more details. + define(Gp, iteratorSymbol, function() { + return this; + }); + + define(Gp, "toString", function() { + return "[object Generator]"; + }); + + function pushTryEntry(locs) { + var entry = { tryLoc: locs[0] }; + + if (1 in locs) { + entry.catchLoc = locs[1]; + } + + if (2 in locs) { + entry.finallyLoc = locs[2]; + entry.afterLoc = locs[3]; + } + + this.tryEntries.push(entry); + } + + function resetTryEntry(entry) { + var record = entry.completion || {}; + record.type = "normal"; + delete record.arg; + entry.completion = record; + } + + function Context(tryLocsList) { + // The root entry object (effectively a try statement without a catch + // or a finally block) gives us a place to store values thrown from + // locations where there is no enclosing try statement. + this.tryEntries = [{ tryLoc: "root" }]; + tryLocsList.forEach(pushTryEntry, this); + this.reset(true); + } + + exports.keys = function(object) { + var keys = []; + for (var key in object) { + keys.push(key); + } + keys.reverse(); + + // Rather than returning an object with a next method, we keep + // things simple and return the next function itself. + return function next() { + while (keys.length) { + var key = keys.pop(); + if (key in object) { + next.value = key; + next.done = false; + return next; + } + } + + // To avoid creating an additional object, we just hang the .value + // and .done properties off the next function object itself. This + // also ensures that the minifier will not anonymize the function. + next.done = true; + return next; + }; + }; + + function values(iterable) { + if (iterable) { + var iteratorMethod = iterable[iteratorSymbol]; + if (iteratorMethod) { + return iteratorMethod.call(iterable); + } + + if (typeof iterable.next === "function") { + return iterable; + } + + if (!isNaN(iterable.length)) { + var i = -1, next = function next() { + while (++i < iterable.length) { + if (hasOwn.call(iterable, i)) { + next.value = iterable[i]; + next.done = false; + return next; + } + } + + next.value = undefined$1; + next.done = true; + + return next; + }; + + return next.next = next; + } + } + + // Return an iterator with no values. + return { next: doneResult }; + } + exports.values = values; + + function doneResult() { + return { value: undefined$1, done: true }; + } + + Context.prototype = { + constructor: Context, + + reset: function(skipTempReset) { + this.prev = 0; + this.next = 0; + // Resetting context._sent for legacy support of Babel's + // function.sent implementation. + this.sent = this._sent = undefined$1; + this.done = false; + this.delegate = null; + + this.method = "next"; + this.arg = undefined$1; + + this.tryEntries.forEach(resetTryEntry); + + if (!skipTempReset) { + for (var name in this) { + // Not sure about the optimal order of these conditions: + if (name.charAt(0) === "t" && + hasOwn.call(this, name) && + !isNaN(+name.slice(1))) { + this[name] = undefined$1; + } + } + } + }, + + stop: function() { + this.done = true; + + var rootEntry = this.tryEntries[0]; + var rootRecord = rootEntry.completion; + if (rootRecord.type === "throw") { + throw rootRecord.arg; + } + + return this.rval; + }, + + dispatchException: function(exception) { + if (this.done) { + throw exception; + } + + var context = this; + function handle(loc, caught) { + record.type = "throw"; + record.arg = exception; + context.next = loc; + + if (caught) { + // If the dispatched exception was caught by a catch block, + // then let that catch block handle the exception normally. + context.method = "next"; + context.arg = undefined$1; + } + + return !! caught; + } + + for (var i = this.tryEntries.length - 1; i >= 0; --i) { + var entry = this.tryEntries[i]; + var record = entry.completion; + + if (entry.tryLoc === "root") { + // Exception thrown outside of any try block that could handle + // it, so set the completion value of the entire function to + // throw the exception. + return handle("end"); + } + + if (entry.tryLoc <= this.prev) { + var hasCatch = hasOwn.call(entry, "catchLoc"); + var hasFinally = hasOwn.call(entry, "finallyLoc"); + + if (hasCatch && hasFinally) { + if (this.prev < entry.catchLoc) { + return handle(entry.catchLoc, true); + } else if (this.prev < entry.finallyLoc) { + return handle(entry.finallyLoc); + } + + } else if (hasCatch) { + if (this.prev < entry.catchLoc) { + return handle(entry.catchLoc, true); + } + + } else if (hasFinally) { + if (this.prev < entry.finallyLoc) { + return handle(entry.finallyLoc); + } + + } else { + throw new Error("try statement without catch or finally"); + } + } + } + }, + + abrupt: function(type, arg) { + for (var i = this.tryEntries.length - 1; i >= 0; --i) { + var entry = this.tryEntries[i]; + if (entry.tryLoc <= this.prev && + hasOwn.call(entry, "finallyLoc") && + this.prev < entry.finallyLoc) { + var finallyEntry = entry; + break; + } + } + + if (finallyEntry && + (type === "break" || + type === "continue") && + finallyEntry.tryLoc <= arg && + arg <= finallyEntry.finallyLoc) { + // Ignore the finally entry if control is not jumping to a + // location outside the try/catch block. + finallyEntry = null; + } + + var record = finallyEntry ? finallyEntry.completion : {}; + record.type = type; + record.arg = arg; + + if (finallyEntry) { + this.method = "next"; + this.next = finallyEntry.finallyLoc; + return ContinueSentinel; + } + + return this.complete(record); + }, + + complete: function(record, afterLoc) { + if (record.type === "throw") { + throw record.arg; + } + + if (record.type === "break" || + record.type === "continue") { + this.next = record.arg; + } else if (record.type === "return") { + this.rval = this.arg = record.arg; + this.method = "return"; + this.next = "end"; + } else if (record.type === "normal" && afterLoc) { + this.next = afterLoc; + } + + return ContinueSentinel; + }, + + finish: function(finallyLoc) { + for (var i = this.tryEntries.length - 1; i >= 0; --i) { + var entry = this.tryEntries[i]; + if (entry.finallyLoc === finallyLoc) { + this.complete(entry.completion, entry.afterLoc); + resetTryEntry(entry); + return ContinueSentinel; + } + } + }, + + "catch": function(tryLoc) { + for (var i = this.tryEntries.length - 1; i >= 0; --i) { + var entry = this.tryEntries[i]; + if (entry.tryLoc === tryLoc) { + var record = entry.completion; + if (record.type === "throw") { + var thrown = record.arg; + resetTryEntry(entry); + } + return thrown; + } + } + + // The context.catch method must only be called with a location + // argument that corresponds to a known catch block. + throw new Error("illegal catch attempt"); + }, + + delegateYield: function(iterable, resultName, nextLoc) { + this.delegate = { + iterator: values(iterable), + resultName: resultName, + nextLoc: nextLoc + }; + + if (this.method === "next") { + // Deliberately forget the last sent value so that we don't + // accidentally pass it on to the delegate. + this.arg = undefined$1; + } + + return ContinueSentinel; + } + }; + + // Regardless of whether this script is executing as a CommonJS module + // or not, return the runtime object so that we can declare the variable + // regeneratorRuntime in the outer scope, which allows this module to be + // injected easily by `bin/regenerator --include-runtime script.js`. + return exports; + + }( + // If this script is executing as a CommonJS module, use module.exports + // as the regeneratorRuntime namespace. Otherwise create a new empty + // object. Either way, the resulting object will be used to initialize + // the regeneratorRuntime variable at the top of this file. + module.exports + )); + + try { + regeneratorRuntime = runtime; + } catch (accidentalStrictMode) { + // This module should not be running in strict mode, so the above + // assignment should always work unless something is misconfigured. Just + // in case runtime.js accidentally runs in strict mode, in modern engines + // we can explicitly access globalThis. In older engines we can escape + // strict mode using a global Function call. This could conceivably fail + // if a Content Security Policy forbids using Function, but in that case + // the proper solution is to fix the accidental strict mode problem. If + // you've misconfigured your bundler to force strict mode and applied a + // CSP to forbid Function, and you're not willing to fix either of those + // problems, please detail your unique predicament in a GitHub issue. + if (typeof globalThis === "object") { + globalThis.regeneratorRuntime = runtime; + } else { + Function("r", "regeneratorRuntime = r")(runtime); + } + } + } (runtime)); - this.method = "next"; - this.arg = undefined$1; - - this.tryEntries.forEach(resetTryEntry); - - if (!skipTempReset) { - for (var name in this) { - // Not sure about the optimal order of these conditions: - if (name.charAt(0) === "t" && - hasOwn.call(this, name) && - !isNaN(+name.slice(1))) { - this[name] = undefined$1; - } - } - } - }, - - stop: function() { - this.done = true; - - var rootEntry = this.tryEntries[0]; - var rootRecord = rootEntry.completion; - if (rootRecord.type === "throw") { - throw rootRecord.arg; - } - - return this.rval; - }, - - dispatchException: function(exception) { - if (this.done) { - throw exception; - } - - var context = this; - function handle(loc, caught) { - record.type = "throw"; - record.arg = exception; - context.next = loc; - - if (caught) { - // If the dispatched exception was caught by a catch block, - // then let that catch block handle the exception normally. - context.method = "next"; - context.arg = undefined$1; - } - - return !! caught; - } - - for (var i = this.tryEntries.length - 1; i >= 0; --i) { - var entry = this.tryEntries[i]; - var record = entry.completion; - - if (entry.tryLoc === "root") { - // Exception thrown outside of any try block that could handle - // it, so set the completion value of the entire function to - // throw the exception. - return handle("end"); - } - - if (entry.tryLoc <= this.prev) { - var hasCatch = hasOwn.call(entry, "catchLoc"); - var hasFinally = hasOwn.call(entry, "finallyLoc"); - - if (hasCatch && hasFinally) { - if (this.prev < entry.catchLoc) { - return handle(entry.catchLoc, true); - } else if (this.prev < entry.finallyLoc) { - return handle(entry.finallyLoc); - } - - } else if (hasCatch) { - if (this.prev < entry.catchLoc) { - return handle(entry.catchLoc, true); - } - - } else if (hasFinally) { - if (this.prev < entry.finallyLoc) { - return handle(entry.finallyLoc); - } - - } else { - throw new Error("try statement without catch or finally"); - } - } - } - }, - - abrupt: function(type, arg) { - for (var i = this.tryEntries.length - 1; i >= 0; --i) { - var entry = this.tryEntries[i]; - if (entry.tryLoc <= this.prev && - hasOwn.call(entry, "finallyLoc") && - this.prev < entry.finallyLoc) { - var finallyEntry = entry; - break; - } - } - - if (finallyEntry && - (type === "break" || - type === "continue") && - finallyEntry.tryLoc <= arg && - arg <= finallyEntry.finallyLoc) { - // Ignore the finally entry if control is not jumping to a - // location outside the try/catch block. - finallyEntry = null; - } - - var record = finallyEntry ? finallyEntry.completion : {}; - record.type = type; - record.arg = arg; - - if (finallyEntry) { - this.method = "next"; - this.next = finallyEntry.finallyLoc; - return ContinueSentinel; - } - - return this.complete(record); - }, - - complete: function(record, afterLoc) { - if (record.type === "throw") { - throw record.arg; - } - - if (record.type === "break" || - record.type === "continue") { - this.next = record.arg; - } else if (record.type === "return") { - this.rval = this.arg = record.arg; - this.method = "return"; - this.next = "end"; - } else if (record.type === "normal" && afterLoc) { - this.next = afterLoc; - } - - return ContinueSentinel; - }, - - finish: function(finallyLoc) { - for (var i = this.tryEntries.length - 1; i >= 0; --i) { - var entry = this.tryEntries[i]; - if (entry.finallyLoc === finallyLoc) { - this.complete(entry.completion, entry.afterLoc); - resetTryEntry(entry); - return ContinueSentinel; - } - } - }, - - "catch": function(tryLoc) { - for (var i = this.tryEntries.length - 1; i >= 0; --i) { - var entry = this.tryEntries[i]; - if (entry.tryLoc === tryLoc) { - var record = entry.completion; - if (record.type === "throw") { - var thrown = record.arg; - resetTryEntry(entry); - } - return thrown; - } - } - - // The context.catch method must only be called with a location - // argument that corresponds to a known catch block. - throw new Error("illegal catch attempt"); - }, - - delegateYield: function(iterable, resultName, nextLoc) { - this.delegate = { - iterator: values(iterable), - resultName: resultName, - nextLoc: nextLoc - }; - - if (this.method === "next") { - // Deliberately forget the last sent value so that we don't - // accidentally pass it on to the delegate. - this.arg = undefined$1; - } - - return ContinueSentinel; - } - }; - - // Regardless of whether this script is executing as a CommonJS module - // or not, return the runtime object so that we can declare the variable - // regeneratorRuntime in the outer scope, which allows this module to be - // injected easily by `bin/regenerator --include-runtime script.js`. - return exports; - - }( - // If this script is executing as a CommonJS module, use module.exports - // as the regeneratorRuntime namespace. Otherwise create a new empty - // object. Either way, the resulting object will be used to initialize - // the regeneratorRuntime variable at the top of this file. - module.exports - )); - - try { - regeneratorRuntime = runtime; - } catch (accidentalStrictMode) { - // This module should not be running in strict mode, so the above - // assignment should always work unless something is misconfigured. Just - // in case runtime.js accidentally runs in strict mode, in modern engines - // we can explicitly access globalThis. In older engines we can escape - // strict mode using a global Function call. This could conceivably fail - // if a Content Security Policy forbids using Function, but in that case - // the proper solution is to fix the accidental strict mode problem. If - // you've misconfigured your bundler to force strict mode and applied a - // CSP to forbid Function, and you're not willing to fix either of those - // problems, please detail your unique predicament in a GitHub issue. - if (typeof globalThis === "object") { - globalThis.regeneratorRuntime = runtime; - } else { - Function("r", "regeneratorRuntime = r")(runtime); - } - } - }(runtime)); + (function (module) { + module.exports = runtime.exports; + } (regenerator)); - var regenerator = runtime.exports; + var _regeneratorRuntime = /*@__PURE__*/getDefaultExportFromCjs(regenerator.exports); var global$1 = (typeof global !== "undefined" ? global : typeof self !== "undefined" ? self : @@ -1443,12 +1439,17 @@ * We detect these buggy browsers and set `Buffer.TYPED_ARRAY_SUPPORT` to `false` so they * get the Object implementation, which is slower but behaves correctly. */ - Buffer.TYPED_ARRAY_SUPPORT = global$1.TYPED_ARRAY_SUPPORT !== undefined + Buffer$1.TYPED_ARRAY_SUPPORT = global$1.TYPED_ARRAY_SUPPORT !== undefined ? global$1.TYPED_ARRAY_SUPPORT : true; + /* + * Export kMaxLength after typed array support is determined. + */ + kMaxLength(); + function kMaxLength () { - return Buffer.TYPED_ARRAY_SUPPORT + return Buffer$1.TYPED_ARRAY_SUPPORT ? 0x7fffffff : 0x3fffffff } @@ -1457,14 +1458,14 @@ if (kMaxLength() < length) { throw new RangeError('Invalid typed array length') } - if (Buffer.TYPED_ARRAY_SUPPORT) { + if (Buffer$1.TYPED_ARRAY_SUPPORT) { // Return an augmented `Uint8Array` instance, for best performance that = new Uint8Array(length); - that.__proto__ = Buffer.prototype; + that.__proto__ = Buffer$1.prototype; } else { // Fallback: Return an object instance of the Buffer class if (that === null) { - that = new Buffer(length); + that = new Buffer$1(length); } that.length = length; } @@ -1482,9 +1483,9 @@ * The `Uint8Array` prototype remains unmodified. */ - function Buffer (arg, encodingOrOffset, length) { - if (!Buffer.TYPED_ARRAY_SUPPORT && !(this instanceof Buffer)) { - return new Buffer(arg, encodingOrOffset, length) + function Buffer$1 (arg, encodingOrOffset, length) { + if (!Buffer$1.TYPED_ARRAY_SUPPORT && !(this instanceof Buffer$1)) { + return new Buffer$1(arg, encodingOrOffset, length) } // Common case. @@ -1499,11 +1500,11 @@ return from(this, arg, encodingOrOffset, length) } - Buffer.poolSize = 8192; // not used by this implementation + Buffer$1.poolSize = 8192; // not used by this implementation // TODO: Legacy, not needed anymore. Remove in next major version. - Buffer._augment = function (arr) { - arr.__proto__ = Buffer.prototype; + Buffer$1._augment = function (arr) { + arr.__proto__ = Buffer$1.prototype; return arr }; @@ -1531,13 +1532,13 @@ * Buffer.from(buffer) * Buffer.from(arrayBuffer[, byteOffset[, length]]) **/ - Buffer.from = function (value, encodingOrOffset, length) { + Buffer$1.from = function (value, encodingOrOffset, length) { return from(null, value, encodingOrOffset, length) }; - if (Buffer.TYPED_ARRAY_SUPPORT) { - Buffer.prototype.__proto__ = Uint8Array.prototype; - Buffer.__proto__ = Uint8Array; + if (Buffer$1.TYPED_ARRAY_SUPPORT) { + Buffer$1.prototype.__proto__ = Uint8Array.prototype; + Buffer$1.__proto__ = Uint8Array; } function assertSize (size) { @@ -1568,14 +1569,14 @@ * Creates a new filled Buffer instance. * alloc(size[, fill[, encoding]]) **/ - Buffer.alloc = function (size, fill, encoding) { + Buffer$1.alloc = function (size, fill, encoding) { return alloc(null, size, fill, encoding) }; function allocUnsafe (that, size) { assertSize(size); that = createBuffer(that, size < 0 ? 0 : checked(size) | 0); - if (!Buffer.TYPED_ARRAY_SUPPORT) { + if (!Buffer$1.TYPED_ARRAY_SUPPORT) { for (var i = 0; i < size; ++i) { that[i] = 0; } @@ -1586,13 +1587,13 @@ /** * Equivalent to Buffer(num), by default creates a non-zero-filled Buffer instance. * */ - Buffer.allocUnsafe = function (size) { + Buffer$1.allocUnsafe = function (size) { return allocUnsafe(null, size) }; /** * Equivalent to SlowBuffer(num), by default creates a non-zero-filled Buffer instance. */ - Buffer.allocUnsafeSlow = function (size) { + Buffer$1.allocUnsafeSlow = function (size) { return allocUnsafe(null, size) }; @@ -1601,7 +1602,7 @@ encoding = 'utf8'; } - if (!Buffer.isEncoding(encoding)) { + if (!Buffer$1.isEncoding(encoding)) { throw new TypeError('"encoding" must be a valid string encoding') } @@ -1648,10 +1649,10 @@ array = new Uint8Array(array, byteOffset, length); } - if (Buffer.TYPED_ARRAY_SUPPORT) { + if (Buffer$1.TYPED_ARRAY_SUPPORT) { // Return an augmented `Uint8Array` instance, for best performance that = array; - that.__proto__ = Buffer.prototype; + that.__proto__ = Buffer$1.prototype; } else { // Fallback: Return an object instance of the Buffer class that = fromArrayLike(that, array); @@ -1698,12 +1699,12 @@ } return length | 0 } - Buffer.isBuffer = isBuffer; + Buffer$1.isBuffer = isBuffer; function internalIsBuffer (b) { return !!(b != null && b._isBuffer) } - Buffer.compare = function compare (a, b) { + Buffer$1.compare = function compare (a, b) { if (!internalIsBuffer(a) || !internalIsBuffer(b)) { throw new TypeError('Arguments must be Buffers') } @@ -1726,7 +1727,7 @@ return 0 }; - Buffer.isEncoding = function isEncoding (encoding) { + Buffer$1.isEncoding = function isEncoding (encoding) { switch (String(encoding).toLowerCase()) { case 'hex': case 'utf8': @@ -1745,13 +1746,13 @@ } }; - Buffer.concat = function concat (list, length) { + Buffer$1.concat = function concat (list, length) { if (!isArray(list)) { throw new TypeError('"list" argument must be an Array of Buffers') } if (list.length === 0) { - return Buffer.alloc(0) + return Buffer$1.alloc(0) } var i; @@ -1762,7 +1763,7 @@ } } - var buffer = Buffer.allocUnsafe(length); + var buffer = Buffer$1.allocUnsafe(length); var pos = 0; for (i = 0; i < list.length; ++i) { var buf = list[i]; @@ -1818,7 +1819,7 @@ } } } - Buffer.byteLength = byteLength; + Buffer$1.byteLength = byteLength; function slowToString (encoding, start, end) { var loweredCase = false; @@ -1892,7 +1893,7 @@ // The property is used by `Buffer.isBuffer` and `is-buffer` (in Safari 5-7) to detect // Buffer instances. - Buffer.prototype._isBuffer = true; + Buffer$1.prototype._isBuffer = true; function swap (b, n, m) { var i = b[n]; @@ -1900,7 +1901,7 @@ b[m] = i; } - Buffer.prototype.swap16 = function swap16 () { + Buffer$1.prototype.swap16 = function swap16 () { var len = this.length; if (len % 2 !== 0) { throw new RangeError('Buffer size must be a multiple of 16-bits') @@ -1911,7 +1912,7 @@ return this }; - Buffer.prototype.swap32 = function swap32 () { + Buffer$1.prototype.swap32 = function swap32 () { var len = this.length; if (len % 4 !== 0) { throw new RangeError('Buffer size must be a multiple of 32-bits') @@ -1923,7 +1924,7 @@ return this }; - Buffer.prototype.swap64 = function swap64 () { + Buffer$1.prototype.swap64 = function swap64 () { var len = this.length; if (len % 8 !== 0) { throw new RangeError('Buffer size must be a multiple of 64-bits') @@ -1937,20 +1938,20 @@ return this }; - Buffer.prototype.toString = function toString () { + Buffer$1.prototype.toString = function toString () { var length = this.length | 0; if (length === 0) return '' if (arguments.length === 0) return utf8Slice(this, 0, length) return slowToString.apply(this, arguments) }; - Buffer.prototype.equals = function equals (b) { + Buffer$1.prototype.equals = function equals (b) { if (!internalIsBuffer(b)) throw new TypeError('Argument must be a Buffer') if (this === b) return true - return Buffer.compare(this, b) === 0 + return Buffer$1.compare(this, b) === 0 }; - Buffer.prototype.inspect = function inspect () { + Buffer$1.prototype.inspect = function inspect () { var str = ''; var max = INSPECT_MAX_BYTES; if (this.length > 0) { @@ -1960,7 +1961,7 @@ return '' }; - Buffer.prototype.compare = function compare (target, start, end, thisStart, thisEnd) { + Buffer$1.prototype.compare = function compare (target, start, end, thisStart, thisEnd) { if (!internalIsBuffer(target)) { throw new TypeError('Argument must be a Buffer') } @@ -2059,7 +2060,7 @@ // Normalize val if (typeof val === 'string') { - val = Buffer.from(val, encoding); + val = Buffer$1.from(val, encoding); } // Finally, search either indexOf (if dir is true) or lastIndexOf @@ -2071,7 +2072,7 @@ return arrayIndexOf(buffer, val, byteOffset, encoding, dir) } else if (typeof val === 'number') { val = val & 0xFF; // Search for a byte value [0-255] - if (Buffer.TYPED_ARRAY_SUPPORT && + if (Buffer$1.TYPED_ARRAY_SUPPORT && typeof Uint8Array.prototype.indexOf === 'function') { if (dir) { return Uint8Array.prototype.indexOf.call(buffer, val, byteOffset) @@ -2141,15 +2142,15 @@ return -1 } - Buffer.prototype.includes = function includes (val, byteOffset, encoding) { + Buffer$1.prototype.includes = function includes (val, byteOffset, encoding) { return this.indexOf(val, byteOffset, encoding) !== -1 }; - Buffer.prototype.indexOf = function indexOf (val, byteOffset, encoding) { + Buffer$1.prototype.indexOf = function indexOf (val, byteOffset, encoding) { return bidirectionalIndexOf(this, val, byteOffset, encoding, true) }; - Buffer.prototype.lastIndexOf = function lastIndexOf (val, byteOffset, encoding) { + Buffer$1.prototype.lastIndexOf = function lastIndexOf (val, byteOffset, encoding) { return bidirectionalIndexOf(this, val, byteOffset, encoding, false) }; @@ -2200,7 +2201,7 @@ return blitBuffer(utf16leToBytes(string, buf.length - offset), buf, offset, length) } - Buffer.prototype.write = function write (string, offset, length, encoding) { + Buffer$1.prototype.write = function write (string, offset, length, encoding) { // Buffer#write(string) if (offset === undefined) { encoding = 'utf8'; @@ -2272,7 +2273,7 @@ } }; - Buffer.prototype.toJSON = function toJSON () { + Buffer$1.prototype.toJSON = function toJSON () { return { type: 'Buffer', data: Array.prototype.slice.call(this._arr || this, 0) @@ -2425,7 +2426,7 @@ return res } - Buffer.prototype.slice = function slice (start, end) { + Buffer$1.prototype.slice = function slice (start, end) { var len = this.length; start = ~~start; end = end === undefined ? len : ~~end; @@ -2447,12 +2448,12 @@ if (end < start) end = start; var newBuf; - if (Buffer.TYPED_ARRAY_SUPPORT) { + if (Buffer$1.TYPED_ARRAY_SUPPORT) { newBuf = this.subarray(start, end); - newBuf.__proto__ = Buffer.prototype; + newBuf.__proto__ = Buffer$1.prototype; } else { var sliceLen = end - start; - newBuf = new Buffer(sliceLen, undefined); + newBuf = new Buffer$1(sliceLen, undefined); for (var i = 0; i < sliceLen; ++i) { newBuf[i] = this[i + start]; } @@ -2469,7 +2470,7 @@ if (offset + ext > length) throw new RangeError('Trying to access beyond buffer length') } - Buffer.prototype.readUIntLE = function readUIntLE (offset, byteLength, noAssert) { + Buffer$1.prototype.readUIntLE = function readUIntLE (offset, byteLength, noAssert) { offset = offset | 0; byteLength = byteLength | 0; if (!noAssert) checkOffset(offset, byteLength, this.length); @@ -2484,7 +2485,7 @@ return val }; - Buffer.prototype.readUIntBE = function readUIntBE (offset, byteLength, noAssert) { + Buffer$1.prototype.readUIntBE = function readUIntBE (offset, byteLength, noAssert) { offset = offset | 0; byteLength = byteLength | 0; if (!noAssert) { @@ -2500,22 +2501,22 @@ return val }; - Buffer.prototype.readUInt8 = function readUInt8 (offset, noAssert) { + Buffer$1.prototype.readUInt8 = function readUInt8 (offset, noAssert) { if (!noAssert) checkOffset(offset, 1, this.length); return this[offset] }; - Buffer.prototype.readUInt16LE = function readUInt16LE (offset, noAssert) { + Buffer$1.prototype.readUInt16LE = function readUInt16LE (offset, noAssert) { if (!noAssert) checkOffset(offset, 2, this.length); return this[offset] | (this[offset + 1] << 8) }; - Buffer.prototype.readUInt16BE = function readUInt16BE (offset, noAssert) { + Buffer$1.prototype.readUInt16BE = function readUInt16BE (offset, noAssert) { if (!noAssert) checkOffset(offset, 2, this.length); return (this[offset] << 8) | this[offset + 1] }; - Buffer.prototype.readUInt32LE = function readUInt32LE (offset, noAssert) { + Buffer$1.prototype.readUInt32LE = function readUInt32LE (offset, noAssert) { if (!noAssert) checkOffset(offset, 4, this.length); return ((this[offset]) | @@ -2524,7 +2525,7 @@ (this[offset + 3] * 0x1000000) }; - Buffer.prototype.readUInt32BE = function readUInt32BE (offset, noAssert) { + Buffer$1.prototype.readUInt32BE = function readUInt32BE (offset, noAssert) { if (!noAssert) checkOffset(offset, 4, this.length); return (this[offset] * 0x1000000) + @@ -2533,7 +2534,7 @@ this[offset + 3]) }; - Buffer.prototype.readIntLE = function readIntLE (offset, byteLength, noAssert) { + Buffer$1.prototype.readIntLE = function readIntLE (offset, byteLength, noAssert) { offset = offset | 0; byteLength = byteLength | 0; if (!noAssert) checkOffset(offset, byteLength, this.length); @@ -2551,7 +2552,7 @@ return val }; - Buffer.prototype.readIntBE = function readIntBE (offset, byteLength, noAssert) { + Buffer$1.prototype.readIntBE = function readIntBE (offset, byteLength, noAssert) { offset = offset | 0; byteLength = byteLength | 0; if (!noAssert) checkOffset(offset, byteLength, this.length); @@ -2569,25 +2570,25 @@ return val }; - Buffer.prototype.readInt8 = function readInt8 (offset, noAssert) { + Buffer$1.prototype.readInt8 = function readInt8 (offset, noAssert) { if (!noAssert) checkOffset(offset, 1, this.length); if (!(this[offset] & 0x80)) return (this[offset]) return ((0xff - this[offset] + 1) * -1) }; - Buffer.prototype.readInt16LE = function readInt16LE (offset, noAssert) { + Buffer$1.prototype.readInt16LE = function readInt16LE (offset, noAssert) { if (!noAssert) checkOffset(offset, 2, this.length); var val = this[offset] | (this[offset + 1] << 8); return (val & 0x8000) ? val | 0xFFFF0000 : val }; - Buffer.prototype.readInt16BE = function readInt16BE (offset, noAssert) { + Buffer$1.prototype.readInt16BE = function readInt16BE (offset, noAssert) { if (!noAssert) checkOffset(offset, 2, this.length); var val = this[offset + 1] | (this[offset] << 8); return (val & 0x8000) ? val | 0xFFFF0000 : val }; - Buffer.prototype.readInt32LE = function readInt32LE (offset, noAssert) { + Buffer$1.prototype.readInt32LE = function readInt32LE (offset, noAssert) { if (!noAssert) checkOffset(offset, 4, this.length); return (this[offset]) | @@ -2596,7 +2597,7 @@ (this[offset + 3] << 24) }; - Buffer.prototype.readInt32BE = function readInt32BE (offset, noAssert) { + Buffer$1.prototype.readInt32BE = function readInt32BE (offset, noAssert) { if (!noAssert) checkOffset(offset, 4, this.length); return (this[offset] << 24) | @@ -2605,22 +2606,22 @@ (this[offset + 3]) }; - Buffer.prototype.readFloatLE = function readFloatLE (offset, noAssert) { + Buffer$1.prototype.readFloatLE = function readFloatLE (offset, noAssert) { if (!noAssert) checkOffset(offset, 4, this.length); return read$1(this, offset, true, 23, 4) }; - Buffer.prototype.readFloatBE = function readFloatBE (offset, noAssert) { + Buffer$1.prototype.readFloatBE = function readFloatBE (offset, noAssert) { if (!noAssert) checkOffset(offset, 4, this.length); return read$1(this, offset, false, 23, 4) }; - Buffer.prototype.readDoubleLE = function readDoubleLE (offset, noAssert) { + Buffer$1.prototype.readDoubleLE = function readDoubleLE (offset, noAssert) { if (!noAssert) checkOffset(offset, 8, this.length); return read$1(this, offset, true, 52, 8) }; - Buffer.prototype.readDoubleBE = function readDoubleBE (offset, noAssert) { + Buffer$1.prototype.readDoubleBE = function readDoubleBE (offset, noAssert) { if (!noAssert) checkOffset(offset, 8, this.length); return read$1(this, offset, false, 52, 8) }; @@ -2631,7 +2632,7 @@ if (offset + ext > buf.length) throw new RangeError('Index out of range') } - Buffer.prototype.writeUIntLE = function writeUIntLE (value, offset, byteLength, noAssert) { + Buffer$1.prototype.writeUIntLE = function writeUIntLE (value, offset, byteLength, noAssert) { value = +value; offset = offset | 0; byteLength = byteLength | 0; @@ -2650,7 +2651,7 @@ return offset + byteLength }; - Buffer.prototype.writeUIntBE = function writeUIntBE (value, offset, byteLength, noAssert) { + Buffer$1.prototype.writeUIntBE = function writeUIntBE (value, offset, byteLength, noAssert) { value = +value; offset = offset | 0; byteLength = byteLength | 0; @@ -2669,11 +2670,11 @@ return offset + byteLength }; - Buffer.prototype.writeUInt8 = function writeUInt8 (value, offset, noAssert) { + Buffer$1.prototype.writeUInt8 = function writeUInt8 (value, offset, noAssert) { value = +value; offset = offset | 0; if (!noAssert) checkInt(this, value, offset, 1, 0xff, 0); - if (!Buffer.TYPED_ARRAY_SUPPORT) value = Math.floor(value); + if (!Buffer$1.TYPED_ARRAY_SUPPORT) value = Math.floor(value); this[offset] = (value & 0xff); return offset + 1 }; @@ -2686,11 +2687,11 @@ } } - Buffer.prototype.writeUInt16LE = function writeUInt16LE (value, offset, noAssert) { + Buffer$1.prototype.writeUInt16LE = function writeUInt16LE (value, offset, noAssert) { value = +value; offset = offset | 0; if (!noAssert) checkInt(this, value, offset, 2, 0xffff, 0); - if (Buffer.TYPED_ARRAY_SUPPORT) { + if (Buffer$1.TYPED_ARRAY_SUPPORT) { this[offset] = (value & 0xff); this[offset + 1] = (value >>> 8); } else { @@ -2699,11 +2700,11 @@ return offset + 2 }; - Buffer.prototype.writeUInt16BE = function writeUInt16BE (value, offset, noAssert) { + Buffer$1.prototype.writeUInt16BE = function writeUInt16BE (value, offset, noAssert) { value = +value; offset = offset | 0; if (!noAssert) checkInt(this, value, offset, 2, 0xffff, 0); - if (Buffer.TYPED_ARRAY_SUPPORT) { + if (Buffer$1.TYPED_ARRAY_SUPPORT) { this[offset] = (value >>> 8); this[offset + 1] = (value & 0xff); } else { @@ -2719,11 +2720,11 @@ } } - Buffer.prototype.writeUInt32LE = function writeUInt32LE (value, offset, noAssert) { + Buffer$1.prototype.writeUInt32LE = function writeUInt32LE (value, offset, noAssert) { value = +value; offset = offset | 0; if (!noAssert) checkInt(this, value, offset, 4, 0xffffffff, 0); - if (Buffer.TYPED_ARRAY_SUPPORT) { + if (Buffer$1.TYPED_ARRAY_SUPPORT) { this[offset + 3] = (value >>> 24); this[offset + 2] = (value >>> 16); this[offset + 1] = (value >>> 8); @@ -2734,11 +2735,11 @@ return offset + 4 }; - Buffer.prototype.writeUInt32BE = function writeUInt32BE (value, offset, noAssert) { + Buffer$1.prototype.writeUInt32BE = function writeUInt32BE (value, offset, noAssert) { value = +value; offset = offset | 0; if (!noAssert) checkInt(this, value, offset, 4, 0xffffffff, 0); - if (Buffer.TYPED_ARRAY_SUPPORT) { + if (Buffer$1.TYPED_ARRAY_SUPPORT) { this[offset] = (value >>> 24); this[offset + 1] = (value >>> 16); this[offset + 2] = (value >>> 8); @@ -2749,7 +2750,7 @@ return offset + 4 }; - Buffer.prototype.writeIntLE = function writeIntLE (value, offset, byteLength, noAssert) { + Buffer$1.prototype.writeIntLE = function writeIntLE (value, offset, byteLength, noAssert) { value = +value; offset = offset | 0; if (!noAssert) { @@ -2772,7 +2773,7 @@ return offset + byteLength }; - Buffer.prototype.writeIntBE = function writeIntBE (value, offset, byteLength, noAssert) { + Buffer$1.prototype.writeIntBE = function writeIntBE (value, offset, byteLength, noAssert) { value = +value; offset = offset | 0; if (!noAssert) { @@ -2795,21 +2796,21 @@ return offset + byteLength }; - Buffer.prototype.writeInt8 = function writeInt8 (value, offset, noAssert) { + Buffer$1.prototype.writeInt8 = function writeInt8 (value, offset, noAssert) { value = +value; offset = offset | 0; if (!noAssert) checkInt(this, value, offset, 1, 0x7f, -0x80); - if (!Buffer.TYPED_ARRAY_SUPPORT) value = Math.floor(value); + if (!Buffer$1.TYPED_ARRAY_SUPPORT) value = Math.floor(value); if (value < 0) value = 0xff + value + 1; this[offset] = (value & 0xff); return offset + 1 }; - Buffer.prototype.writeInt16LE = function writeInt16LE (value, offset, noAssert) { + Buffer$1.prototype.writeInt16LE = function writeInt16LE (value, offset, noAssert) { value = +value; offset = offset | 0; if (!noAssert) checkInt(this, value, offset, 2, 0x7fff, -0x8000); - if (Buffer.TYPED_ARRAY_SUPPORT) { + if (Buffer$1.TYPED_ARRAY_SUPPORT) { this[offset] = (value & 0xff); this[offset + 1] = (value >>> 8); } else { @@ -2818,11 +2819,11 @@ return offset + 2 }; - Buffer.prototype.writeInt16BE = function writeInt16BE (value, offset, noAssert) { + Buffer$1.prototype.writeInt16BE = function writeInt16BE (value, offset, noAssert) { value = +value; offset = offset | 0; if (!noAssert) checkInt(this, value, offset, 2, 0x7fff, -0x8000); - if (Buffer.TYPED_ARRAY_SUPPORT) { + if (Buffer$1.TYPED_ARRAY_SUPPORT) { this[offset] = (value >>> 8); this[offset + 1] = (value & 0xff); } else { @@ -2831,11 +2832,11 @@ return offset + 2 }; - Buffer.prototype.writeInt32LE = function writeInt32LE (value, offset, noAssert) { + Buffer$1.prototype.writeInt32LE = function writeInt32LE (value, offset, noAssert) { value = +value; offset = offset | 0; if (!noAssert) checkInt(this, value, offset, 4, 0x7fffffff, -0x80000000); - if (Buffer.TYPED_ARRAY_SUPPORT) { + if (Buffer$1.TYPED_ARRAY_SUPPORT) { this[offset] = (value & 0xff); this[offset + 1] = (value >>> 8); this[offset + 2] = (value >>> 16); @@ -2846,12 +2847,12 @@ return offset + 4 }; - Buffer.prototype.writeInt32BE = function writeInt32BE (value, offset, noAssert) { + Buffer$1.prototype.writeInt32BE = function writeInt32BE (value, offset, noAssert) { value = +value; offset = offset | 0; if (!noAssert) checkInt(this, value, offset, 4, 0x7fffffff, -0x80000000); if (value < 0) value = 0xffffffff + value + 1; - if (Buffer.TYPED_ARRAY_SUPPORT) { + if (Buffer$1.TYPED_ARRAY_SUPPORT) { this[offset] = (value >>> 24); this[offset + 1] = (value >>> 16); this[offset + 2] = (value >>> 8); @@ -2875,11 +2876,11 @@ return offset + 4 } - Buffer.prototype.writeFloatLE = function writeFloatLE (value, offset, noAssert) { + Buffer$1.prototype.writeFloatLE = function writeFloatLE (value, offset, noAssert) { return writeFloat(this, value, offset, true, noAssert) }; - Buffer.prototype.writeFloatBE = function writeFloatBE (value, offset, noAssert) { + Buffer$1.prototype.writeFloatBE = function writeFloatBE (value, offset, noAssert) { return writeFloat(this, value, offset, false, noAssert) }; @@ -2891,16 +2892,16 @@ return offset + 8 } - Buffer.prototype.writeDoubleLE = function writeDoubleLE (value, offset, noAssert) { + Buffer$1.prototype.writeDoubleLE = function writeDoubleLE (value, offset, noAssert) { return writeDouble(this, value, offset, true, noAssert) }; - Buffer.prototype.writeDoubleBE = function writeDoubleBE (value, offset, noAssert) { + Buffer$1.prototype.writeDoubleBE = function writeDoubleBE (value, offset, noAssert) { return writeDouble(this, value, offset, false, noAssert) }; // copy(targetBuffer, targetStart=0, sourceStart=0, sourceEnd=buffer.length) - Buffer.prototype.copy = function copy (target, targetStart, start, end) { + Buffer$1.prototype.copy = function copy (target, targetStart, start, end) { if (!start) start = 0; if (!end && end !== 0) end = this.length; if (targetStart >= target.length) targetStart = target.length; @@ -2932,7 +2933,7 @@ for (i = len - 1; i >= 0; --i) { target[i + targetStart] = this[i + start]; } - } else if (len < 1000 || !Buffer.TYPED_ARRAY_SUPPORT) { + } else if (len < 1000 || !Buffer$1.TYPED_ARRAY_SUPPORT) { // ascending copy from start for (i = 0; i < len; ++i) { target[i + targetStart] = this[i + start]; @@ -2952,7 +2953,7 @@ // buffer.fill(number[, offset[, end]]) // buffer.fill(buffer[, offset[, end]]) // buffer.fill(string[, offset[, end]][, encoding]) - Buffer.prototype.fill = function fill (val, start, end, encoding) { + Buffer$1.prototype.fill = function fill (val, start, end, encoding) { // Handle string cases: if (typeof val === 'string') { if (typeof start === 'string') { @@ -2972,7 +2973,7 @@ if (encoding !== undefined && typeof encoding !== 'string') { throw new TypeError('encoding must be a string') } - if (typeof encoding === 'string' && !Buffer.isEncoding(encoding)) { + if (typeof encoding === 'string' && !Buffer$1.isEncoding(encoding)) { throw new TypeError('Unknown encoding: ' + encoding) } } else if (typeof val === 'number') { @@ -3001,7 +3002,7 @@ } else { var bytes = internalIsBuffer(val) ? val - : utf8ToBytes(new Buffer(val, encoding).toString()); + : utf8ToBytes(new Buffer$1(val, encoding).toString()); var len = bytes.length; for (i = 0; i < end - start; ++i) { this[i + start] = bytes[i % len]; @@ -3115,1563 +3116,2358 @@ } } - return bytes - } + return bytes + } + + function asciiToBytes (str) { + var byteArray = []; + for (var i = 0; i < str.length; ++i) { + // Node's code seems to be doing this and not & 0x7F.. + byteArray.push(str.charCodeAt(i) & 0xFF); + } + return byteArray + } + + function utf16leToBytes (str, units) { + var c, hi, lo; + var byteArray = []; + for (var i = 0; i < str.length; ++i) { + if ((units -= 2) < 0) break + + c = str.charCodeAt(i); + hi = c >> 8; + lo = c % 256; + byteArray.push(lo); + byteArray.push(hi); + } + + return byteArray + } + + + function base64ToBytes (str) { + return toByteArray(base64clean(str)) + } + + function blitBuffer (src, dst, offset, length) { + for (var i = 0; i < length; ++i) { + if ((i + offset >= dst.length) || (i >= src.length)) break + dst[i + offset] = src[i]; + } + return i + } + + function isnan (val) { + return val !== val // eslint-disable-line no-self-compare + } + + + // the following is from is-buffer, also by Feross Aboukhadijeh and with same lisence + // The _isBuffer check is for Safari 5-7 support, because it's missing + // Object.prototype.constructor. Remove this eventually + function isBuffer(obj) { + return obj != null && (!!obj._isBuffer || isFastBuffer(obj) || isSlowBuffer(obj)) + } + + function isFastBuffer (obj) { + return !!obj.constructor && typeof obj.constructor.isBuffer === 'function' && obj.constructor.isBuffer(obj) + } + + // For Node v0.10 support. Remove this eventually. + function isSlowBuffer (obj) { + return typeof obj.readFloatLE === 'function' && typeof obj.slice === 'function' && isFastBuffer(obj.slice(0, 0)) + } + + let decoder; + try { + decoder = new TextDecoder(); + } catch(error) {} + let src; + let srcEnd; + let position$1 = 0; + const LEGACY_RECORD_INLINE_ID = 105; + const RECORD_DEFINITIONS_ID = 0xdffe; + const RECORD_INLINE_ID = 0xdfff; // temporary first-come first-serve tag // proposed tag: 0x7265 // 're' + const BUNDLED_STRINGS_ID = 0xdff9; + const PACKED_REFERENCE_TAG_ID = 6; + const STOP_CODE = {}; + let currentDecoder = {}; + let currentStructures; + let srcString; + let srcStringStart = 0; + let srcStringEnd = 0; + let bundledStrings$1; + let referenceMap; + let currentExtensions = []; + let currentExtensionRanges = []; + let packedValues; + let dataView; + let restoreMapsAsObject; + let defaultOptions = { + useRecords: false, + mapsAsObjects: true + }; + let sequentialMode = false; + let inlineObjectReadThreshold = 2; + // no-eval build + try { + new Function(''); + } catch(error) { + // if eval variants are not supported, do not create inline object readers ever + inlineObjectReadThreshold = Infinity; + } + + + + class Decoder { + constructor(options) { + if (options) { + if ((options.keyMap || options._keyMap) && !options.useRecords) { + options.useRecords = false; + options.mapsAsObjects = true; + } + if (options.useRecords === false && options.mapsAsObjects === undefined) + options.mapsAsObjects = true; + if (options.getStructures) + options.getShared = options.getStructures; + if (options.getShared && !options.structures) + (options.structures = []).uninitialized = true; // this is what we use to denote an uninitialized structures + if (options.keyMap) { + this.mapKey = new Map(); + for (let [k,v] of Object.entries(options.keyMap)) this.mapKey.set(v,k); + } + } + Object.assign(this, options); + } + /* + decodeKey(key) { + return this.keyMap + ? Object.keys(this.keyMap)[Object.values(this.keyMap).indexOf(key)] || key + : key + } + */ + decodeKey(key) { + return this.keyMap ? this.mapKey.get(key) || key : key + } + + encodeKey(key) { + return this.keyMap && this.keyMap.hasOwnProperty(key) ? this.keyMap[key] : key + } + + encodeKeys(rec) { + if (!this._keyMap) return rec + let map = new Map(); + for (let [k,v] of Object.entries(rec)) map.set((this._keyMap.hasOwnProperty(k) ? this._keyMap[k] : k), v); + return map + } + + decodeKeys(map) { + if (!this._keyMap || map.constructor.name != 'Map') return map + if (!this._mapKey) { + this._mapKey = new Map(); + for (let [k,v] of Object.entries(this._keyMap)) this._mapKey.set(v,k); + } + let res = {}; + //map.forEach((v,k) => res[Object.keys(this._keyMap)[Object.values(this._keyMap).indexOf(k)] || k] = v) + map.forEach((v,k) => res[safeKey(this._mapKey.has(k) ? this._mapKey.get(k) : k)] = v); + return res + } + + mapDecode(source, end) { + + let res = this.decode(source); + if (this._keyMap) { + //Experiemntal support for Optimised KeyMap decoding + switch (res.constructor.name) { + case 'Array': return res.map(r => this.decodeKeys(r)) + //case 'Map': return this.decodeKeys(res) + } + } + return res + } + + decode(source, end) { + if (src) { + // re-entrant execution, save the state and restore it after we do this decode + return saveState(() => { + clearSource(); + return this ? this.decode(source, end) : Decoder.prototype.decode.call(defaultOptions, source, end) + }) + } + srcEnd = end > -1 ? end : source.length; + position$1 = 0; + srcStringEnd = 0; + srcString = null; + bundledStrings$1 = null; + src = source; + // this provides cached access to the data view for a buffer if it is getting reused, which is a recommend + // technique for getting data from a database where it can be copied into an existing buffer instead of creating + // new ones + try { + dataView = source.dataView || (source.dataView = new DataView(source.buffer, source.byteOffset, source.byteLength)); + } catch(error) { + // if it doesn't have a buffer, maybe it is the wrong type of object + src = null; + if (source instanceof Uint8Array) + throw error + throw new Error('Source must be a Uint8Array or Buffer but was a ' + ((source && typeof source == 'object') ? source.constructor.name : typeof source)) + } + if (this instanceof Decoder) { + currentDecoder = this; + packedValues = this.sharedValues && + (this.pack ? new Array(this.maxPrivatePackedValues || 16).concat(this.sharedValues) : + this.sharedValues); + if (this.structures) { + currentStructures = this.structures; + return checkedRead() + } else if (!currentStructures || currentStructures.length > 0) { + currentStructures = []; + } + } else { + currentDecoder = defaultOptions; + if (!currentStructures || currentStructures.length > 0) + currentStructures = []; + packedValues = null; + } + return checkedRead() + } + decodeMultiple(source, forEach) { + let values, lastPosition = 0; + try { + let size = source.length; + sequentialMode = true; + let value = this ? this.decode(source, size) : defaultDecoder.decode(source, size); + if (forEach) { + if (forEach(value) === false) { + return + } + while(position$1 < size) { + lastPosition = position$1; + if (forEach(checkedRead()) === false) { + return + } + } + } + else { + values = [ value ]; + while(position$1 < size) { + lastPosition = position$1; + values.push(checkedRead()); + } + return values + } + } catch(error) { + error.lastPosition = lastPosition; + error.values = values; + throw error + } finally { + sequentialMode = false; + clearSource(); + } + } + } + function checkedRead() { + try { + let result = read(); + if (bundledStrings$1) { + if (position$1 >= bundledStrings$1.postBundlePosition) { + let error = new Error('Unexpected bundle position'); + error.incomplete = true; + throw error + } + // bundled strings to skip past + position$1 = bundledStrings$1.postBundlePosition; + bundledStrings$1 = null; + } + + if (position$1 == srcEnd) { + // finished reading this source, cleanup references + currentStructures = null; + src = null; + if (referenceMap) + referenceMap = null; + } else if (position$1 > srcEnd) { + // over read + let error = new Error('Unexpected end of CBOR data'); + error.incomplete = true; + throw error + } else if (!sequentialMode) { + throw new Error('Data read, but end of buffer not reached') + } + // else more to read, but we are reading sequentially, so don't clear source yet + return result + } catch(error) { + clearSource(); + if (error instanceof RangeError || error.message.startsWith('Unexpected end of buffer')) { + error.incomplete = true; + } + throw error + } + } + + function read() { + let token = src[position$1++]; + let majorType = token >> 5; + token = token & 0x1f; + if (token > 0x17) { + switch (token) { + case 0x18: + token = src[position$1++]; + break + case 0x19: + if (majorType == 7) { + return getFloat16() + } + token = dataView.getUint16(position$1); + position$1 += 2; + break + case 0x1a: + if (majorType == 7) { + let value = dataView.getFloat32(position$1); + if (currentDecoder.useFloat32 > 2) { + // this does rounding of numbers that were encoded in 32-bit float to nearest significant decimal digit that could be preserved + let multiplier = mult10[((src[position$1] & 0x7f) << 1) | (src[position$1 + 1] >> 7)]; + position$1 += 4; + return ((multiplier * value + (value > 0 ? 0.5 : -0.5)) >> 0) / multiplier + } + position$1 += 4; + return value + } + token = dataView.getUint32(position$1); + position$1 += 4; + break + case 0x1b: + if (majorType == 7) { + let value = dataView.getFloat64(position$1); + position$1 += 8; + return value + } + if (majorType > 1) { + if (dataView.getUint32(position$1) > 0) + throw new Error('JavaScript does not support arrays, maps, or strings with length over 4294967295') + token = dataView.getUint32(position$1 + 4); + } else if (currentDecoder.int64AsNumber) { + token = dataView.getUint32(position$1) * 0x100000000; + token += dataView.getUint32(position$1 + 4); + } else + token = dataView.getBigUint64(position$1); + position$1 += 8; + break + case 0x1f: + // indefinite length + switch(majorType) { + case 2: // byte string + case 3: // text string + throw new Error('Indefinite length not supported for byte or text strings') + case 4: // array + let array = []; + let value, i = 0; + while ((value = read()) != STOP_CODE) { + array[i++] = value; + } + return majorType == 4 ? array : majorType == 3 ? array.join('') : Buffer$1.concat(array) + case 5: // map + let key; + if (currentDecoder.mapsAsObjects) { + let object = {}; + if (currentDecoder.keyMap) while((key = read()) != STOP_CODE) object[safeKey(currentDecoder.decodeKey(key))] = read(); + else while ((key = read()) != STOP_CODE) object[safeKey(key)] = read(); + return object + } else { + if (restoreMapsAsObject) { + currentDecoder.mapsAsObjects = true; + restoreMapsAsObject = false; + } + let map = new Map(); + if (currentDecoder.keyMap) while((key = read()) != STOP_CODE) map.set(currentDecoder.decodeKey(key), read()); + else while ((key = read()) != STOP_CODE) map.set(key, read()); + return map + } + case 7: + return STOP_CODE + default: + throw new Error('Invalid major type for indefinite length ' + majorType) + } + default: + throw new Error('Unknown token ' + token) + } + } + switch (majorType) { + case 0: // positive int + return token + case 1: // negative int + return ~token + case 2: // buffer + return readBin(token) + case 3: // string + if (srcStringEnd >= position$1) { + return srcString.slice(position$1 - srcStringStart, (position$1 += token) - srcStringStart) + } + if (srcStringEnd == 0 && srcEnd < 140 && token < 32) { + // for small blocks, avoiding the overhead of the extract call is helpful + let string = token < 16 ? shortStringInJS(token) : longStringInJS(token); + if (string != null) + return string + } + return readFixedString(token) + case 4: // array + let array = new Array(token); + //if (currentDecoder.keyMap) for (let i = 0; i < token; i++) array[i] = currentDecoder.decodeKey(read()) + //else + for (let i = 0; i < token; i++) array[i] = read(); + return array + case 5: // map + if (currentDecoder.mapsAsObjects) { + let object = {}; + if (currentDecoder.keyMap) for (let i = 0; i < token; i++) object[safeKey(currentDecoder.decodeKey(read()))] = read(); + else for (let i = 0; i < token; i++) object[safeKey(read())] = read(); + return object + } else { + if (restoreMapsAsObject) { + currentDecoder.mapsAsObjects = true; + restoreMapsAsObject = false; + } + let map = new Map(); + if (currentDecoder.keyMap) for (let i = 0; i < token; i++) map.set(currentDecoder.decodeKey(read()),read()); + else for (let i = 0; i < token; i++) map.set(read(), read()); + return map + } + case 6: // extension + if (token >= BUNDLED_STRINGS_ID) { + let structure = currentStructures[token & 0x1fff]; // check record structures first + // At some point we may provide an option for dynamic tag assignment with a range like token >= 8 && (token < 16 || (token > 0x80 && token < 0xc0) || (token > 0x130 && token < 0x4000)) + if (structure) { + if (!structure.read) structure.read = createStructureReader(structure); + return structure.read() + } + if (token < 0x10000) { + if (token == RECORD_INLINE_ID) { // we do a special check for this so that we can keep the + // currentExtensions as densely stored array (v8 stores arrays densely under about 3000 elements) + let length = readJustLength(); + let id = read(); + let structure = read(); + recordDefinition(id, structure); + let object = {}; + if (currentDecoder.keyMap) for (let i = 2; i < length; i++) { + let key = currentDecoder.decodeKey(structure[i - 2]); + object[safeKey(key)] = read(); + } + else for (let i = 2; i < length; i++) { + let key = structure[i - 2]; + object[safeKey(key)] = read(); + } + return object + } + else if (token == RECORD_DEFINITIONS_ID) { + let length = readJustLength(); + let id = read(); + for (let i = 2; i < length; i++) { + recordDefinition(id++, read()); + } + return read() + } else if (token == BUNDLED_STRINGS_ID) { + return readBundleExt() + } + if (currentDecoder.getShared) { + loadShared(); + structure = currentStructures[token & 0x1fff]; + if (structure) { + if (!structure.read) + structure.read = createStructureReader(structure); + return structure.read() + } + } + } + } + let extension = currentExtensions[token]; + if (extension) { + if (extension.handlesRead) + return extension(read) + else + return extension(read()) + } else { + let input = read(); + for (let i = 0; i < currentExtensionRanges.length; i++) { + let value = currentExtensionRanges[i](token, input); + if (value !== undefined) + return value + } + return new Tag(input, token) + } + case 7: // fixed value + switch (token) { + case 0x14: return false + case 0x15: return true + case 0x16: return null + case 0x17: return; // undefined + case 0x1f: + default: + let packedValue = (packedValues || getPackedValues())[token]; + if (packedValue !== undefined) + return packedValue + throw new Error('Unknown token ' + token) + } + default: // negative int + if (isNaN(token)) { + let error = new Error('Unexpected end of CBOR data'); + error.incomplete = true; + throw error + } + throw new Error('Unknown CBOR token ' + token) + } + } + const validName = /^[a-zA-Z_$][a-zA-Z\d_$]*$/; + function createStructureReader(structure) { + function readObject() { + // get the array size from the header + let length = src[position$1++]; + //let majorType = token >> 5 + length = length & 0x1f; + if (length > 0x17) { + switch (length) { + case 0x18: + length = src[position$1++]; + break + case 0x19: + length = dataView.getUint16(position$1); + position$1 += 2; + break + case 0x1a: + length = dataView.getUint32(position$1); + position$1 += 4; + break + default: + throw new Error('Expected array header, but got ' + src[position$1 - 1]) + } + } + // This initial function is quick to instantiate, but runs slower. After several iterations pay the cost to build the faster function + let compiledReader = this.compiledReader; // first look to see if we have the fast compiled function + while(compiledReader) { + // we have a fast compiled object literal reader + if (compiledReader.propertyCount === length) + return compiledReader(read) // with the right length, so we use it + compiledReader = compiledReader.next; // see if there is another reader with the right length + } + if (this.slowReads++ >= inlineObjectReadThreshold) { // create a fast compiled reader + let array = this.length == length ? this : this.slice(0, length); + compiledReader = currentDecoder.keyMap + ? new Function('r', 'return {' + array.map(k => currentDecoder.decodeKey(k)).map(k => validName.test(k) ? safeKey(k) + ':r()' : ('[' + JSON.stringify(k) + ']:r()')).join(',') + '}') + : new Function('r', 'return {' + array.map(key => validName.test(key) ? safeKey(key) + ':r()' : ('[' + JSON.stringify(key) + ']:r()')).join(',') + '}'); + if (this.compiledReader) + compiledReader.next = this.compiledReader; // if there is an existing one, we store multiple readers as a linked list because it is usually pretty rare to have multiple readers (of different length) for the same structure + compiledReader.propertyCount = length; + this.compiledReader = compiledReader; + return compiledReader(read) + } + let object = {}; + if (currentDecoder.keyMap) for (let i = 0; i < length; i++) object[safeKey(currentDecoder.decodeKey(this[i]))] = read(); + else for (let i = 0; i < length; i++) { + object[safeKey(this[i])] = read(); + } + return object + } + structure.slowReads = 0; + return readObject + } + + function safeKey(key) { + return key === '__proto__' ? '__proto_' : key + } + + let readFixedString = readStringJS; + function readStringJS(length) { + let result; + if (length < 16) { + if (result = shortStringInJS(length)) + return result + } + if (length > 64 && decoder) + return decoder.decode(src.subarray(position$1, position$1 += length)) + const end = position$1 + length; + const units = []; + result = ''; + while (position$1 < end) { + const byte1 = src[position$1++]; + if ((byte1 & 0x80) === 0) { + // 1 byte + units.push(byte1); + } else if ((byte1 & 0xe0) === 0xc0) { + // 2 bytes + const byte2 = src[position$1++] & 0x3f; + units.push(((byte1 & 0x1f) << 6) | byte2); + } else if ((byte1 & 0xf0) === 0xe0) { + // 3 bytes + const byte2 = src[position$1++] & 0x3f; + const byte3 = src[position$1++] & 0x3f; + units.push(((byte1 & 0x1f) << 12) | (byte2 << 6) | byte3); + } else if ((byte1 & 0xf8) === 0xf0) { + // 4 bytes + const byte2 = src[position$1++] & 0x3f; + const byte3 = src[position$1++] & 0x3f; + const byte4 = src[position$1++] & 0x3f; + let unit = ((byte1 & 0x07) << 0x12) | (byte2 << 0x0c) | (byte3 << 0x06) | byte4; + if (unit > 0xffff) { + unit -= 0x10000; + units.push(((unit >>> 10) & 0x3ff) | 0xd800); + unit = 0xdc00 | (unit & 0x3ff); + } + units.push(unit); + } else { + units.push(byte1); + } + + if (units.length >= 0x1000) { + result += fromCharCode.apply(String, units); + units.length = 0; + } + } + + if (units.length > 0) { + result += fromCharCode.apply(String, units); + } + + return result + } + let fromCharCode = String.fromCharCode; + function longStringInJS(length) { + let start = position$1; + let bytes = new Array(length); + for (let i = 0; i < length; i++) { + const byte = src[position$1++]; + if ((byte & 0x80) > 0) { + position$1 = start; + return + } + bytes[i] = byte; + } + return fromCharCode.apply(String, bytes) + } + function shortStringInJS(length) { + if (length < 4) { + if (length < 2) { + if (length === 0) + return '' + else { + let a = src[position$1++]; + if ((a & 0x80) > 1) { + position$1 -= 1; + return + } + return fromCharCode(a) + } + } else { + let a = src[position$1++]; + let b = src[position$1++]; + if ((a & 0x80) > 0 || (b & 0x80) > 0) { + position$1 -= 2; + return + } + if (length < 3) + return fromCharCode(a, b) + let c = src[position$1++]; + if ((c & 0x80) > 0) { + position$1 -= 3; + return + } + return fromCharCode(a, b, c) + } + } else { + let a = src[position$1++]; + let b = src[position$1++]; + let c = src[position$1++]; + let d = src[position$1++]; + if ((a & 0x80) > 0 || (b & 0x80) > 0 || (c & 0x80) > 0 || (d & 0x80) > 0) { + position$1 -= 4; + return + } + if (length < 6) { + if (length === 4) + return fromCharCode(a, b, c, d) + else { + let e = src[position$1++]; + if ((e & 0x80) > 0) { + position$1 -= 5; + return + } + return fromCharCode(a, b, c, d, e) + } + } else if (length < 8) { + let e = src[position$1++]; + let f = src[position$1++]; + if ((e & 0x80) > 0 || (f & 0x80) > 0) { + position$1 -= 6; + return + } + if (length < 7) + return fromCharCode(a, b, c, d, e, f) + let g = src[position$1++]; + if ((g & 0x80) > 0) { + position$1 -= 7; + return + } + return fromCharCode(a, b, c, d, e, f, g) + } else { + let e = src[position$1++]; + let f = src[position$1++]; + let g = src[position$1++]; + let h = src[position$1++]; + if ((e & 0x80) > 0 || (f & 0x80) > 0 || (g & 0x80) > 0 || (h & 0x80) > 0) { + position$1 -= 8; + return + } + if (length < 10) { + if (length === 8) + return fromCharCode(a, b, c, d, e, f, g, h) + else { + let i = src[position$1++]; + if ((i & 0x80) > 0) { + position$1 -= 9; + return + } + return fromCharCode(a, b, c, d, e, f, g, h, i) + } + } else if (length < 12) { + let i = src[position$1++]; + let j = src[position$1++]; + if ((i & 0x80) > 0 || (j & 0x80) > 0) { + position$1 -= 10; + return + } + if (length < 11) + return fromCharCode(a, b, c, d, e, f, g, h, i, j) + let k = src[position$1++]; + if ((k & 0x80) > 0) { + position$1 -= 11; + return + } + return fromCharCode(a, b, c, d, e, f, g, h, i, j, k) + } else { + let i = src[position$1++]; + let j = src[position$1++]; + let k = src[position$1++]; + let l = src[position$1++]; + if ((i & 0x80) > 0 || (j & 0x80) > 0 || (k & 0x80) > 0 || (l & 0x80) > 0) { + position$1 -= 12; + return + } + if (length < 14) { + if (length === 12) + return fromCharCode(a, b, c, d, e, f, g, h, i, j, k, l) + else { + let m = src[position$1++]; + if ((m & 0x80) > 0) { + position$1 -= 13; + return + } + return fromCharCode(a, b, c, d, e, f, g, h, i, j, k, l, m) + } + } else { + let m = src[position$1++]; + let n = src[position$1++]; + if ((m & 0x80) > 0 || (n & 0x80) > 0) { + position$1 -= 14; + return + } + if (length < 15) + return fromCharCode(a, b, c, d, e, f, g, h, i, j, k, l, m, n) + let o = src[position$1++]; + if ((o & 0x80) > 0) { + position$1 -= 15; + return + } + return fromCharCode(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o) + } + } + } + } + } + + function readBin(length) { + return currentDecoder.copyBuffers ? + // specifically use the copying slice (not the node one) + Uint8Array.prototype.slice.call(src, position$1, position$1 += length) : + src.subarray(position$1, position$1 += length) + } + let f32Array = new Float32Array(1); + let u8Array = new Uint8Array(f32Array.buffer, 0, 4); + function getFloat16() { + let byte0 = src[position$1++]; + let byte1 = src[position$1++]; + let exponent = (byte0 & 0x7f) >> 2; + if (exponent === 0x1f) { // specials + if (byte1 || (byte0 & 3)) + return NaN; + return (byte0 & 0x80) ? -Infinity : Infinity; + } + if (exponent === 0) { // sub-normals + // significand with 10 fractional bits and divided by 2^14 + let abs = (((byte0 & 3) << 8) | byte1) / (1 << 24); + return (byte0 & 0x80) ? -abs : abs + } + + u8Array[3] = (byte0 & 0x80) | // sign bit + ((exponent >> 1) + 56); // 4 of 5 of the exponent bits, re-offset-ed + u8Array[2] = ((byte0 & 7) << 5) | // last exponent bit and first two mantissa bits + (byte1 >> 3); // next 5 bits of mantissa + u8Array[1] = byte1 << 5; // last three bits of mantissa + u8Array[0] = 0; + return f32Array[0]; + } + + new Array(4096); + + class Tag { + constructor(value, tag) { + this.value = value; + this.tag = tag; + } + } + + currentExtensions[0] = (dateString) => { + // string date extension + return new Date(dateString) + }; + + currentExtensions[1] = (epochSec) => { + // numeric date extension + return new Date(Math.round(epochSec * 1000)) + }; + + currentExtensions[2] = (buffer) => { + // bigint extension + let value = BigInt(0); + for (let i = 0, l = buffer.byteLength; i < l; i++) { + value = BigInt(buffer[i]) + value << BigInt(8); + } + return value + }; + + currentExtensions[3] = (buffer) => { + // negative bigint extension + return BigInt(-1) - currentExtensions[2](buffer) + }; + currentExtensions[4] = (fraction) => { + // best to reparse to maintain accuracy + return +(fraction[1] + 'e' + fraction[0]) + }; + + currentExtensions[5] = (fraction) => { + // probably not sufficiently accurate + return fraction[1] * Math.exp(fraction[0] * Math.log(2)) + }; - function asciiToBytes (str) { - var byteArray = []; - for (var i = 0; i < str.length; ++i) { - // Node's code seems to be doing this and not & 0x7F.. - byteArray.push(str.charCodeAt(i) & 0xFF); - } - return byteArray + // the registration of the record definition extension + const recordDefinition = (id, structure) => { + id = id - 0xe000; + let existingStructure = currentStructures[id]; + if (existingStructure && existingStructure.isShared) { + (currentStructures.restoreStructures || (currentStructures.restoreStructures = []))[id] = existingStructure; + } + currentStructures[id] = structure; + + structure.read = createStructureReader(structure); + }; + currentExtensions[LEGACY_RECORD_INLINE_ID] = (data) => { + let length = data.length; + let structure = data[1]; + recordDefinition(data[0], structure); + let object = {}; + for (let i = 2; i < length; i++) { + let key = structure[i - 2]; + object[safeKey(key)] = data[i]; + } + return object + }; + currentExtensions[14] = (value) => { + if (bundledStrings$1) + return bundledStrings$1[0].slice(bundledStrings$1.position0, bundledStrings$1.position0 += value) + return new Tag(value, 14) + }; + currentExtensions[15] = (value) => { + if (bundledStrings$1) + return bundledStrings$1[1].slice(bundledStrings$1.position1, bundledStrings$1.position1 += value) + return new Tag(value, 15) + }; + let glbl = { Error, RegExp }; + currentExtensions[27] = (data) => { // http://cbor.schmorp.de/generic-object + return (glbl[data[0]] || Error)(data[1], data[2]) + }; + const packedTable = (read) => { + if (src[position$1++] != 0x84) + throw new Error('Packed values structure must be followed by a 4 element array') + let newPackedValues = read(); // packed values + packedValues = packedValues ? newPackedValues.concat(packedValues.slice(newPackedValues.length)) : newPackedValues; + packedValues.prefixes = read(); + packedValues.suffixes = read(); + return read() // read the rump + }; + packedTable.handlesRead = true; + currentExtensions[51] = packedTable; + + currentExtensions[PACKED_REFERENCE_TAG_ID] = (data) => { // packed reference + if (!packedValues) { + if (currentDecoder.getShared) + loadShared(); + else + return new Tag(data, PACKED_REFERENCE_TAG_ID) + } + if (typeof data == 'number') + return packedValues[16 + (data >= 0 ? 2 * data : (-2 * data - 1))] + throw new Error('No support for non-integer packed references yet') + }; + + // The following code is an incomplete implementation of http://cbor.schmorp.de/stringref + // the real thing would need to implemennt more logic to populate the stringRefs table and + // maintain a stack of stringRef "namespaces". + // + // currentExtensions[25] = (id) => { + // return stringRefs[id] + // } + // currentExtensions[256] = (read) => { + // stringRefs = [] + // try { + // return read() + // } finally { + // stringRefs = null + // } + // } + // currentExtensions[256].handlesRead = true + + currentExtensions[28] = (read) => { + // shareable http://cbor.schmorp.de/value-sharing (for structured clones) + if (!referenceMap) { + referenceMap = new Map(); + referenceMap.id = 0; + } + let id = referenceMap.id++; + let token = src[position$1]; + let target; + // TODO: handle Maps, Sets, and other types that can cycle; this is complicated, because you potentially need to read + // ahead past references to record structure definitions + if ((token >> 5) == 4) + target = []; + else + target = {}; + + let refEntry = { target }; // a placeholder object + referenceMap.set(id, refEntry); + let targetProperties = read(); // read the next value as the target object to id + if (refEntry.used) // there is a cycle, so we have to assign properties to original target + return Object.assign(target, targetProperties) + refEntry.target = targetProperties; // the placeholder wasn't used, replace with the deserialized one + return targetProperties // no cycle, can just use the returned read object + }; + currentExtensions[28].handlesRead = true; + + currentExtensions[29] = (id) => { + // sharedref http://cbor.schmorp.de/value-sharing (for structured clones) + let refEntry = referenceMap.get(id); + refEntry.used = true; + return refEntry.target + }; + + currentExtensions[258] = (array) => new Set(array); // https://github.com/input-output-hk/cbor-sets-spec/blob/master/CBOR_SETS.md + (currentExtensions[259] = (read) => { + // https://github.com/shanewholloway/js-cbor-codec/blob/master/docs/CBOR-259-spec + // for decoding as a standard Map + if (currentDecoder.mapsAsObjects) { + currentDecoder.mapsAsObjects = false; + restoreMapsAsObject = true; + } + return read() + }).handlesRead = true; + function combine(a, b) { + if (typeof a === 'string') + return a + b + if (a instanceof Array) + return a.concat(b) + return Object.assign({}, a, b) } + function getPackedValues() { + if (!packedValues) { + if (currentDecoder.getShared) + loadShared(); + else + throw new Error('No packed values available') + } + return packedValues + } + const SHARED_DATA_TAG_ID = 0x53687264; // ascii 'Shrd' + currentExtensionRanges.push((tag, input) => { + if (tag >= 225 && tag <= 255) + return combine(getPackedValues().prefixes[tag - 224], input) + if (tag >= 28704 && tag <= 32767) + return combine(getPackedValues().prefixes[tag - 28672], input) + if (tag >= 1879052288 && tag <= 2147483647) + return combine(getPackedValues().prefixes[tag - 1879048192], input) + if (tag >= 216 && tag <= 223) + return combine(input, getPackedValues().suffixes[tag - 216]) + if (tag >= 27647 && tag <= 28671) + return combine(input, getPackedValues().suffixes[tag - 27639]) + if (tag >= 1811940352 && tag <= 1879048191) + return combine(input, getPackedValues().suffixes[tag - 1811939328]) + if (tag == SHARED_DATA_TAG_ID) {// we do a special check for this so that we can keep the currentExtensions as densely stored array (v8 stores arrays densely under about 3000 elements) + return { + packedValues: packedValues, + structures: currentStructures.slice(0), + version: input, + } + } + if (tag == 55799) // self-descriptive CBOR tag, just return input value + return input + }); - function utf16leToBytes (str, units) { - var c, hi, lo; - var byteArray = []; - for (var i = 0; i < str.length; ++i) { - if ((units -= 2) < 0) break + const isLittleEndianMachine$1 = new Uint8Array(new Uint16Array([1]).buffer)[0] == 1; + const typedArrays = [Uint8Array, Uint8ClampedArray, Uint16Array, Uint32Array, + typeof BigUint64Array == 'undefined' ? { name:'BigUint64Array' } : BigUint64Array, Int8Array, Int16Array, Int32Array, + typeof BigInt64Array == 'undefined' ? { name:'BigInt64Array' } : BigInt64Array, Float32Array, Float64Array]; + const typedArrayTags = [64, 68, 69, 70, 71, 72, 77, 78, 79, 85, 86]; + for (let i = 0; i < typedArrays.length; i++) { + registerTypedArray(typedArrays[i], typedArrayTags[i]); + } + function registerTypedArray(TypedArray, tag) { + let dvMethod = 'get' + TypedArray.name.slice(0, -5); + let bytesPerElement; + if (typeof TypedArray === 'function') + bytesPerElement = TypedArray.BYTES_PER_ELEMENT; + else + TypedArray = null; + for (let littleEndian = 0; littleEndian < 2; littleEndian++) { + if (!littleEndian && bytesPerElement == 1) + continue + let sizeShift = bytesPerElement == 2 ? 1 : bytesPerElement == 4 ? 2 : 3; + currentExtensions[littleEndian ? tag : (tag - 4)] = (bytesPerElement == 1 || littleEndian == isLittleEndianMachine$1) ? (buffer) => { + if (!TypedArray) + throw new Error('Could not find typed array for code ' + tag) + // we have to always slice/copy here to get a new ArrayBuffer that is word/byte aligned + return new TypedArray(Uint8Array.prototype.slice.call(buffer, 0).buffer) + } : buffer => { + if (!TypedArray) + throw new Error('Could not find typed array for code ' + tag) + let dv = new DataView(buffer.buffer, buffer.byteOffset, buffer.byteLength); + let elements = buffer.length >> sizeShift; + let ta = new TypedArray(elements); + let method = dv[dvMethod]; + for (let i = 0; i < elements; i++) { + ta[i] = method.call(dv, i << sizeShift, littleEndian); + } + return ta + }; + } + } - c = str.charCodeAt(i); - hi = c >> 8; - lo = c % 256; - byteArray.push(lo); - byteArray.push(hi); - } + function readBundleExt() { + let length = readJustLength(); + let bundlePosition = position$1 + read(); + for (let i = 2; i < length; i++) { + // skip past bundles that were already read + let bundleLength = readJustLength(); // this will increment position, so must add to position afterwards + position$1 += bundleLength; + } + let dataPosition = position$1; + position$1 = bundlePosition; + bundledStrings$1 = [readStringJS(readJustLength()), readStringJS(readJustLength())]; + bundledStrings$1.position0 = 0; + bundledStrings$1.position1 = 0; + bundledStrings$1.postBundlePosition = position$1; + position$1 = dataPosition; + return read() + } - return byteArray + function readJustLength() { + let token = src[position$1++] & 0x1f; + if (token > 0x17) { + switch (token) { + case 0x18: + token = src[position$1++]; + break + case 0x19: + token = dataView.getUint16(position$1); + position$1 += 2; + break + case 0x1a: + token = dataView.getUint32(position$1); + position$1 += 4; + break + } + } + return token } + function loadShared() { + if (currentDecoder.getShared) { + let sharedData = saveState(() => { + // save the state in case getShared modifies our buffer + src = null; + return currentDecoder.getShared() + }) || {}; + let updatedStructures = sharedData.structures || []; + currentDecoder.sharedVersion = sharedData.version; + packedValues = currentDecoder.sharedValues = sharedData.packedValues; + if (currentStructures === true) + currentDecoder.structures = currentStructures = updatedStructures; + else + currentStructures.splice.apply(currentStructures, [0, updatedStructures.length].concat(updatedStructures)); + } + } - function base64ToBytes (str) { - return toByteArray(base64clean(str)) + function saveState(callback) { + let savedSrcEnd = srcEnd; + let savedPosition = position$1; + let savedSrcStringStart = srcStringStart; + let savedSrcStringEnd = srcStringEnd; + let savedSrcString = srcString; + let savedReferenceMap = referenceMap; + let savedBundledStrings = bundledStrings$1; + + // TODO: We may need to revisit this if we do more external calls to user code (since it could be slow) + let savedSrc = new Uint8Array(src.slice(0, srcEnd)); // we copy the data in case it changes while external data is processed + let savedStructures = currentStructures; + let savedDecoder = currentDecoder; + let savedSequentialMode = sequentialMode; + let value = callback(); + srcEnd = savedSrcEnd; + position$1 = savedPosition; + srcStringStart = savedSrcStringStart; + srcStringEnd = savedSrcStringEnd; + srcString = savedSrcString; + referenceMap = savedReferenceMap; + bundledStrings$1 = savedBundledStrings; + src = savedSrc; + sequentialMode = savedSequentialMode; + currentStructures = savedStructures; + currentDecoder = savedDecoder; + dataView = new DataView(src.buffer, src.byteOffset, src.byteLength); + return value + } + function clearSource() { + src = null; + referenceMap = null; + currentStructures = null; } - function blitBuffer (src, dst, offset, length) { - for (var i = 0; i < length; ++i) { - if ((i + offset >= dst.length) || (i >= src.length)) break - dst[i + offset] = src[i]; - } - return i + function addExtension$1(extension) { + currentExtensions[extension.tag] = extension.decode; } - function isnan (val) { - return val !== val // eslint-disable-line no-self-compare + const mult10 = new Array(147); // this is a table matching binary exponents to the multiplier to determine significant digit rounding + for (let i = 0; i < 256; i++) { + mult10[i] = +('1e' + Math.floor(45.15 - i * 0.30103)); } + let defaultDecoder = new Decoder({ useRecords: false }); + defaultDecoder.decode; + defaultDecoder.decodeMultiple; + let textEncoder; + try { + textEncoder = new TextEncoder(); + } catch (error) {} + let extensions, extensionClasses; + const Buffer = typeof globalThis === 'object' && globalThis.Buffer; + const hasNodeBuffer = typeof Buffer !== 'undefined'; + const ByteArrayAllocate = hasNodeBuffer ? Buffer.allocUnsafeSlow : Uint8Array; + const ByteArray = hasNodeBuffer ? Buffer : Uint8Array; + const MAX_STRUCTURES = 0x100; + const MAX_BUFFER_SIZE = hasNodeBuffer ? 0x100000000 : 0x7fd00000; + let throwOnIterable; + let target; + let targetView; + let position = 0; + let safeEnd; + let bundledStrings = null; + const MAX_BUNDLE_SIZE = 0xf000; + const hasNonLatin = /[\u0080-\uFFFF]/; + const RECORD_SYMBOL = Symbol('record-id'); + class Encoder extends Decoder { + constructor(options) { + super(options); + this.offset = 0; + let start; + let sharedStructures; + let hasSharedUpdate; + let structures; + let referenceMap; + options = options || {}; + let encodeUtf8 = ByteArray.prototype.utf8Write ? function(string, position, maxBytes) { + return target.utf8Write(string, position, maxBytes) + } : (textEncoder && textEncoder.encodeInto) ? + function(string, position) { + return textEncoder.encodeInto(string, target.subarray(position)).written + } : false; + + let encoder = this; + let hasSharedStructures = options.structures || options.saveStructures; + let maxSharedStructures = options.maxSharedStructures; + if (maxSharedStructures == null) + maxSharedStructures = hasSharedStructures ? 128 : 0; + if (maxSharedStructures > 8190) + throw new Error('Maximum maxSharedStructure is 8190') + let isSequential = options.sequential; + if (isSequential) { + maxSharedStructures = 0; + } + if (!this.structures) + this.structures = []; + if (this.saveStructures) + this.saveShared = this.saveStructures; + let samplingPackedValues, packedObjectMap, sharedValues = options.sharedValues; + let sharedPackedObjectMap; + if (sharedValues) { + sharedPackedObjectMap = Object.create(null); + for (let i = 0, l = sharedValues.length; i < l; i++) { + sharedPackedObjectMap[sharedValues[i]] = i; + } + } + let recordIdsToRemove = []; + let transitionsCount = 0; + let serializationsSinceTransitionRebuild = 0; + + this.mapEncode = function(value, encodeOptions) { + // Experimental support for premapping keys using _keyMap instad of keyMap - not optiimised yet) + if (this._keyMap && !this._mapped) { + //console.log('encoding ', value) + switch (value.constructor.name) { + case 'Array': + value = value.map(r => this.encodeKeys(r)); + break + //case 'Map': + // value = this.encodeKeys(value) + // break + } + //this._mapped = true + } + return this.encode(value, encodeOptions) + }; + + this.encode = function(value, encodeOptions) { + if (!target) { + target = new ByteArrayAllocate(8192); + targetView = new DataView(target.buffer, 0, 8192); + position = 0; + } + safeEnd = target.length - 10; + if (safeEnd - position < 0x800) { + // don't start too close to the end, + target = new ByteArrayAllocate(target.length); + targetView = new DataView(target.buffer, 0, target.length); + safeEnd = target.length - 10; + position = 0; + } else if (encodeOptions === REUSE_BUFFER_MODE) + position = (position + 7) & 0x7ffffff8; // Word align to make any future copying of this buffer faster + start = position; + if (encoder.useSelfDescribedHeader) { + targetView.setUint32(position, 0xd9d9f700); // tag two byte, then self-descriptive tag + position += 3; + } + referenceMap = encoder.structuredClone ? new Map() : null; + if (encoder.bundleStrings && typeof value !== 'string') { + bundledStrings = []; + bundledStrings.size = Infinity; // force a new bundle start on first string + } else + bundledStrings = null; + + sharedStructures = encoder.structures; + if (sharedStructures) { + if (sharedStructures.uninitialized) { + let sharedData = encoder.getShared() || {}; + encoder.structures = sharedStructures = sharedData.structures || []; + encoder.sharedVersion = sharedData.version; + let sharedValues = encoder.sharedValues = sharedData.packedValues; + if (sharedValues) { + sharedPackedObjectMap = {}; + for (let i = 0, l = sharedValues.length; i < l; i++) + sharedPackedObjectMap[sharedValues[i]] = i; + } + } + let sharedStructuresLength = sharedStructures.length; + if (sharedStructuresLength > maxSharedStructures && !isSequential) + sharedStructuresLength = maxSharedStructures; + if (!sharedStructures.transitions) { + // rebuild our structure transitions + sharedStructures.transitions = Object.create(null); + for (let i = 0; i < sharedStructuresLength; i++) { + let keys = sharedStructures[i]; + //console.log('shared struct keys:', keys) + if (!keys) + continue + let nextTransition, transition = sharedStructures.transitions; + for (let j = 0, l = keys.length; j < l; j++) { + if (transition[RECORD_SYMBOL] === undefined) + transition[RECORD_SYMBOL] = i; + let key = keys[j]; + nextTransition = transition[key]; + if (!nextTransition) { + nextTransition = transition[key] = Object.create(null); + } + transition = nextTransition; + } + transition[RECORD_SYMBOL] = i | 0x100000; + } + } + if (!isSequential) + sharedStructures.nextId = sharedStructuresLength; + } + if (hasSharedUpdate) + hasSharedUpdate = false; + structures = sharedStructures || []; + packedObjectMap = sharedPackedObjectMap; + if (options.pack) { + let packedValues = new Map(); + packedValues.values = []; + packedValues.encoder = encoder; + packedValues.maxValues = options.maxPrivatePackedValues || (sharedPackedObjectMap ? 16 : Infinity); + packedValues.objectMap = sharedPackedObjectMap || false; + packedValues.samplingPackedValues = samplingPackedValues; + findRepetitiveStrings(value, packedValues); + if (packedValues.values.length > 0) { + target[position++] = 0xd8; // one-byte tag + target[position++] = 51; // tag 51 for packed shared structures https://www.potaroo.net/ietf/ids/draft-ietf-cbor-packed-03.txt + writeArrayHeader(4); + let valuesArray = packedValues.values; + encode(valuesArray); + writeArrayHeader(0); // prefixes + writeArrayHeader(0); // suffixes + packedObjectMap = Object.create(sharedPackedObjectMap || null); + for (let i = 0, l = valuesArray.length; i < l; i++) { + packedObjectMap[valuesArray[i]] = i; + } + } + } + throwOnIterable = encodeOptions & THROW_ON_ITERABLE; + try { + if (throwOnIterable) + return; + encode(value); + if (bundledStrings) { + writeBundles(start, encode); + } + encoder.offset = position; // update the offset so next serialization doesn't write over our buffer, but can continue writing to same buffer sequentially + if (referenceMap && referenceMap.idsToInsert) { + position += referenceMap.idsToInsert.length * 2; + if (position > safeEnd) + makeRoom(position); + encoder.offset = position; + let serialized = insertIds(target.subarray(start, position), referenceMap.idsToInsert); + referenceMap = null; + return serialized + } + if (encodeOptions & REUSE_BUFFER_MODE) { + target.start = start; + target.end = position; + return target + } + return target.subarray(start, position) // position can change if we call encode again in saveShared, so we get the buffer now + } finally { + if (sharedStructures) { + if (serializationsSinceTransitionRebuild < 10) + serializationsSinceTransitionRebuild++; + if (sharedStructures.length > maxSharedStructures) + sharedStructures.length = maxSharedStructures; + if (transitionsCount > 10000) { + // force a rebuild occasionally after a lot of transitions so it can get cleaned up + sharedStructures.transitions = null; + serializationsSinceTransitionRebuild = 0; + transitionsCount = 0; + if (recordIdsToRemove.length > 0) + recordIdsToRemove = []; + } else if (recordIdsToRemove.length > 0 && !isSequential) { + for (let i = 0, l = recordIdsToRemove.length; i < l; i++) { + recordIdsToRemove[i][RECORD_SYMBOL] = undefined; + } + recordIdsToRemove = []; + //sharedStructures.nextId = maxSharedStructures + } + } + if (hasSharedUpdate && encoder.saveShared) { + if (encoder.structures.length > maxSharedStructures) { + encoder.structures = encoder.structures.slice(0, maxSharedStructures); + } + // we can't rely on start/end with REUSE_BUFFER_MODE since they will (probably) change when we save + let returnBuffer = target.subarray(start, position); + if (encoder.updateSharedData() === false) + return encoder.encode(value) // re-encode if it fails + return returnBuffer + } + if (encodeOptions & RESET_BUFFER_MODE) + position = start; + } + }; + this.findCommonStringsToPack = () => { + samplingPackedValues = new Map(); + if (!sharedPackedObjectMap) + sharedPackedObjectMap = Object.create(null); + return (options) => { + let threshold = options && options.threshold || 4; + let position = this.pack ? options.maxPrivatePackedValues || 16 : 0; + if (!sharedValues) + sharedValues = this.sharedValues = []; + for (let [ key, status ] of samplingPackedValues) { + if (status.count > threshold) { + sharedPackedObjectMap[key] = position++; + sharedValues.push(key); + hasSharedUpdate = true; + } + } + while (this.saveShared && this.updateSharedData() === false) {} + samplingPackedValues = null; + } + }; + const encode = (value) => { + if (position > safeEnd) + target = makeRoom(position); + + var type = typeof value; + var length; + if (type === 'string') { + if (packedObjectMap) { + let packedPosition = packedObjectMap[value]; + if (packedPosition >= 0) { + if (packedPosition < 16) + target[position++] = packedPosition + 0xe0; // simple values, defined in https://www.potaroo.net/ietf/ids/draft-ietf-cbor-packed-03.txt + else { + target[position++] = 0xc6; // tag 6 defined in https://www.potaroo.net/ietf/ids/draft-ietf-cbor-packed-03.txt + if (packedPosition & 1) + encode((15 - packedPosition) >> 1); + else + encode((packedPosition - 16) >> 1); + } + return + /* } else if (packedStatus.serializationId != serializationId) { + packedStatus.serializationId = serializationId + packedStatus.count = 1 + if (options.sharedPack) { + let sharedCount = packedStatus.sharedCount = (packedStatus.sharedCount || 0) + 1 + if (shareCount > (options.sharedPack.threshold || 5)) { + let sharedPosition = packedStatus.position = packedStatus.nextSharedPosition + hasSharedUpdate = true + if (sharedPosition < 16) + target[position++] = sharedPosition + 0xc0 + + } + } + } // else any in-doc incrementation?*/ + } else if (samplingPackedValues && !options.pack) { + let status = samplingPackedValues.get(value); + if (status) + status.count++; + else + samplingPackedValues.set(value, { + count: 1, + }); + } + } + let strLength = value.length; + if (bundledStrings && strLength >= 4 && strLength < 0x400) { + if ((bundledStrings.size += strLength) > MAX_BUNDLE_SIZE) { + let extStart; + let maxBytes = (bundledStrings[0] ? bundledStrings[0].length * 3 + bundledStrings[1].length : 0) + 10; + if (position + maxBytes > safeEnd) + target = makeRoom(position + maxBytes); + target[position++] = 0xd9; // tag 16-bit + target[position++] = 0xdf; // tag 0xdff9 + target[position++] = 0xf9; + // TODO: If we only have one bundle with any string data, only write one string bundle + target[position++] = bundledStrings.position ? 0x84 : 0x82; // array of 4 or 2 elements depending on if we write bundles + target[position++] = 0x1a; // 32-bit unsigned int + extStart = position - start; + position += 4; // reserve for writing bundle reference + if (bundledStrings.position) { + writeBundles(start, encode); // write the last bundles + } + bundledStrings = ['', '']; // create new ones + bundledStrings.size = 0; + bundledStrings.position = extStart; + } + let twoByte = hasNonLatin.test(value); + bundledStrings[twoByte ? 0 : 1] += value; + target[position++] = twoByte ? 0xce : 0xcf; + encode(strLength); + return + } + let headerSize; + // first we estimate the header size, so we can write to the correct location + if (strLength < 0x20) { + headerSize = 1; + } else if (strLength < 0x100) { + headerSize = 2; + } else if (strLength < 0x10000) { + headerSize = 3; + } else { + headerSize = 5; + } + let maxBytes = strLength * 3; + if (position + maxBytes > safeEnd) + target = makeRoom(position + maxBytes); + + if (strLength < 0x40 || !encodeUtf8) { + let i, c1, c2, strPosition = position + headerSize; + for (i = 0; i < strLength; i++) { + c1 = value.charCodeAt(i); + if (c1 < 0x80) { + target[strPosition++] = c1; + } else if (c1 < 0x800) { + target[strPosition++] = c1 >> 6 | 0xc0; + target[strPosition++] = c1 & 0x3f | 0x80; + } else if ( + (c1 & 0xfc00) === 0xd800 && + ((c2 = value.charCodeAt(i + 1)) & 0xfc00) === 0xdc00 + ) { + c1 = 0x10000 + ((c1 & 0x03ff) << 10) + (c2 & 0x03ff); + i++; + target[strPosition++] = c1 >> 18 | 0xf0; + target[strPosition++] = c1 >> 12 & 0x3f | 0x80; + target[strPosition++] = c1 >> 6 & 0x3f | 0x80; + target[strPosition++] = c1 & 0x3f | 0x80; + } else { + target[strPosition++] = c1 >> 12 | 0xe0; + target[strPosition++] = c1 >> 6 & 0x3f | 0x80; + target[strPosition++] = c1 & 0x3f | 0x80; + } + } + length = strPosition - position - headerSize; + } else { + length = encodeUtf8(value, position + headerSize, maxBytes); + } + + if (length < 0x18) { + target[position++] = 0x60 | length; + } else if (length < 0x100) { + if (headerSize < 2) { + target.copyWithin(position + 2, position + 1, position + 1 + length); + } + target[position++] = 0x78; + target[position++] = length; + } else if (length < 0x10000) { + if (headerSize < 3) { + target.copyWithin(position + 3, position + 2, position + 2 + length); + } + target[position++] = 0x79; + target[position++] = length >> 8; + target[position++] = length & 0xff; + } else { + if (headerSize < 5) { + target.copyWithin(position + 5, position + 3, position + 3 + length); + } + target[position++] = 0x7a; + targetView.setUint32(position, length); + position += 4; + } + position += length; + } else if (type === 'number') { + if (!this.alwaysUseFloat && value >>> 0 === value) {// positive integer, 32-bit or less + // positive uint + if (value < 0x18) { + target[position++] = value; + } else if (value < 0x100) { + target[position++] = 0x18; + target[position++] = value; + } else if (value < 0x10000) { + target[position++] = 0x19; + target[position++] = value >> 8; + target[position++] = value & 0xff; + } else { + target[position++] = 0x1a; + targetView.setUint32(position, value); + position += 4; + } + } else if (!this.alwaysUseFloat && value >> 0 === value) { // negative integer + if (value >= -0x18) { + target[position++] = 0x1f - value; + } else if (value >= -0x100) { + target[position++] = 0x38; + target[position++] = ~value; + } else if (value >= -0x10000) { + target[position++] = 0x39; + targetView.setUint16(position, ~value); + position += 2; + } else { + target[position++] = 0x3a; + targetView.setUint32(position, ~value); + position += 4; + } + } else { + let useFloat32; + if ((useFloat32 = this.useFloat32) > 0 && value < 0x100000000 && value >= -0x80000000) { + target[position++] = 0xfa; + targetView.setFloat32(position, value); + let xShifted; + if (useFloat32 < 4 || + // this checks for rounding of numbers that were encoded in 32-bit float to nearest significant decimal digit that could be preserved + ((xShifted = value * mult10[((target[position] & 0x7f) << 1) | (target[position + 1] >> 7)]) >> 0) === xShifted) { + position += 4; + return + } else + position--; // move back into position for writing a double + } + target[position++] = 0xfb; + targetView.setFloat64(position, value); + position += 8; + } + } else if (type === 'object') { + if (!value) + target[position++] = 0xf6; + else { + if (referenceMap) { + let referee = referenceMap.get(value); + if (referee) { + target[position++] = 0xd8; + target[position++] = 29; // http://cbor.schmorp.de/value-sharing + target[position++] = 0x19; // 16-bit uint + if (!referee.references) { + let idsToInsert = referenceMap.idsToInsert || (referenceMap.idsToInsert = []); + referee.references = []; + idsToInsert.push(referee); + } + referee.references.push(position - start); + position += 2; // TODO: also support 32-bit + return + } else + referenceMap.set(value, { offset: position - start }); + } + let constructor = value.constructor; + if (constructor === Object) { + writeObject(value, true); + } else if (constructor === Array) { + length = value.length; + if (length < 0x18) { + target[position++] = 0x80 | length; + } else { + writeArrayHeader(length); + } + for (let i = 0; i < length; i++) { + encode(value[i]); + } + } else if (constructor === Map) { + if (this.mapsAsObjects ? this.useTag259ForMaps !== false : this.useTag259ForMaps) { + // use Tag 259 (https://github.com/shanewholloway/js-cbor-codec/blob/master/docs/CBOR-259-spec--explicit-maps.md) for maps if the user wants it that way + target[position++] = 0xd9; + target[position++] = 1; + target[position++] = 3; + } + length = value.size; + if (length < 0x18) { + target[position++] = 0xa0 | length; + } else if (length < 0x100) { + target[position++] = 0xb8; + target[position++] = length; + } else if (length < 0x10000) { + target[position++] = 0xb9; + target[position++] = length >> 8; + target[position++] = length & 0xff; + } else { + target[position++] = 0xba; + targetView.setUint32(position, length); + position += 4; + } + if (encoder.keyMap) { + for (let [ key, entryValue ] of value) { + encode(encoder.encodeKey(key)); + encode(entryValue); + } + } else { + for (let [ key, entryValue ] of value) { + encode(key); + encode(entryValue); + } + } + } else { + for (let i = 0, l = extensions.length; i < l; i++) { + let extensionClass = extensionClasses[i]; + if (value instanceof extensionClass) { + let extension = extensions[i]; + let tag = extension.tag; + if (tag == undefined) + tag = extension.getTag && extension.getTag.call(this, value); + if (tag < 0x18) { + target[position++] = 0xc0 | tag; + } else if (tag < 0x100) { + target[position++] = 0xd8; + target[position++] = tag; + } else if (tag < 0x10000) { + target[position++] = 0xd9; + target[position++] = tag >> 8; + target[position++] = tag & 0xff; + } else if (tag > -1) { + target[position++] = 0xda; + targetView.setUint32(position, tag); + position += 4; + } // else undefined, don't write tag + extension.encode.call(this, value, encode, makeRoom); + return + } + } + if (value[Symbol.iterator]) { + if (throwOnIterable) { + let error = new Error('Iterable should be serialized as iterator'); + error.iteratorNotHandled = true; + throw error; + } + target[position++] = 0x9f; // indefinite length array + for (let entry of value) { + encode(entry); + } + target[position++] = 0xff; // stop-code + return + } + if (value[Symbol.asyncIterator] || isBlob(value)) { + let error = new Error('Iterable/blob should be serialized as iterator'); + error.iteratorNotHandled = true; + throw error; + } + if (this.useToJSON && value.toJSON) { + const json = value.toJSON(); + // if for some reason value.toJSON returns itself it'll loop forever + if (json !== value) + return encode(json) + } + + // no extension found, write as object + writeObject(value, !value.hasOwnProperty); // if it doesn't have hasOwnProperty, don't do hasOwnProperty checks + } + } + } else if (type === 'boolean') { + target[position++] = value ? 0xf5 : 0xf4; + } else if (type === 'bigint') { + if (value < (BigInt(1)<= 0) { + // use an unsigned int as long as it fits + target[position++] = 0x1b; + targetView.setBigUint64(position, value); + } else if (value > -(BigInt(1)< { + // this method is slightly slower, but generates "preferred serialization" (optimally small for smaller objects) + let keys = Object.keys(object); + let vals = Object.values(object); + let length = keys.length; + if (length < 0x18) { + target[position++] = 0xa0 | length; + } else if (length < 0x100) { + target[position++] = 0xb8; + target[position++] = length; + } else if (length < 0x10000) { + target[position++] = 0xb9; + target[position++] = length >> 8; + target[position++] = length & 0xff; + } else { + target[position++] = 0xba; + targetView.setUint32(position, length); + position += 4; + } + if (encoder.keyMap) { + for (let i = 0; i < length; i++) { + encode(encoder.encodeKey(keys[i])); + encode(vals[i]); + } + } else { + for (let i = 0; i < length; i++) { + encode(keys[i]); + encode(vals[i]); + } + } + } : + (object, safePrototype) => { + target[position++] = 0xb9; // always use map 16, so we can preallocate and set the length afterwards + let objectOffset = position - start; + position += 2; + let size = 0; + if (encoder.keyMap) { + for (let key in object) if (safePrototype || object.hasOwnProperty(key)) { + encode(encoder.encodeKey(key)); + encode(object[key]); + size++; + } + } else { + for (let key in object) if (safePrototype || object.hasOwnProperty(key)) { + encode(key); + encode(object[key]); + size++; + } + } + target[objectOffset++ + start] = size >> 8; + target[objectOffset + start] = size & 0xff; + } : + (object, safePrototype) => { + let nextTransition, transition = structures.transitions || (structures.transitions = Object.create(null)); + let newTransitions = 0; + let length = 0; + let parentRecordId; + let keys; + if (this.keyMap) { + keys = Object.keys(object).map(k => this.encodeKey(k)); + length = keys.length; + for (let i = 0; i < length; i++) { + let key = keys[i]; + nextTransition = transition[key]; + if (!nextTransition) { + nextTransition = transition[key] = Object.create(null); + newTransitions++; + } + transition = nextTransition; + } + } else { + for (let key in object) if (safePrototype || object.hasOwnProperty(key)) { + nextTransition = transition[key]; + if (!nextTransition) { + if (transition[RECORD_SYMBOL] & 0x100000) {// this indicates it is a brancheable/extendable terminal node, so we will use this record id and extend it + parentRecordId = transition[RECORD_SYMBOL] & 0xffff; + } + nextTransition = transition[key] = Object.create(null); + newTransitions++; + } + transition = nextTransition; + length++; + } + } + let recordId = transition[RECORD_SYMBOL]; + if (recordId !== undefined) { + recordId &= 0xffff; + target[position++] = 0xd9; + target[position++] = (recordId >> 8) | 0xe0; + target[position++] = recordId & 0xff; + } else { + if (!keys) + keys = transition.__keys__ || (transition.__keys__ = Object.keys(object)); + if (parentRecordId === undefined) { + recordId = structures.nextId++; + if (!recordId) { + recordId = 0; + structures.nextId = 1; + } + if (recordId >= MAX_STRUCTURES) {// cycle back around + structures.nextId = (recordId = maxSharedStructures) + 1; + } + } else { + recordId = parentRecordId; + } + structures[recordId] = keys; + if (recordId < maxSharedStructures) { + target[position++] = 0xd9; + target[position++] = (recordId >> 8) | 0xe0; + target[position++] = recordId & 0xff; + transition = structures.transitions; + for (let i = 0; i < length; i++) { + if (transition[RECORD_SYMBOL] === undefined || (transition[RECORD_SYMBOL] & 0x100000)) + transition[RECORD_SYMBOL] = recordId; + transition = transition[keys[i]]; + } + transition[RECORD_SYMBOL] = recordId | 0x100000; // indicates it is a extendable terminal + hasSharedUpdate = true; + } else { + transition[RECORD_SYMBOL] = recordId; + targetView.setUint32(position, 0xd9dfff00); // tag two byte, then record definition id + position += 3; + if (newTransitions) + transitionsCount += serializationsSinceTransitionRebuild * newTransitions; + // record the removal of the id, we can maintain our shared structure + if (recordIdsToRemove.length >= MAX_STRUCTURES - maxSharedStructures) + recordIdsToRemove.shift()[RECORD_SYMBOL] = undefined; // we are cycling back through, and have to remove old ones + recordIdsToRemove.push(transition); + writeArrayHeader(length + 2); + encode(0xe000 + recordId); + encode(keys); + if (safePrototype === null) return; // special exit for iterator + for (let key in object) + if (safePrototype || object.hasOwnProperty(key)) + encode(object[key]); + return + } + } + if (length < 0x18) { // write the array header + target[position++] = 0x80 | length; + } else { + writeArrayHeader(length); + } + if (safePrototype === null) return; // special exit for iterator + for (let key in object) + if (safePrototype || object.hasOwnProperty(key)) + encode(object[key]); + }; + const makeRoom = (end) => { + let newSize; + if (end > 0x1000000) { + // special handling for really large buffers + if ((end - start) > MAX_BUFFER_SIZE) + throw new Error('Encoded buffer would be larger than maximum buffer size') + newSize = Math.min(MAX_BUFFER_SIZE, + Math.round(Math.max((end - start) * (end > 0x4000000 ? 1.25 : 2), 0x400000) / 0x1000) * 0x1000); + } else // faster handling for smaller buffers + newSize = ((Math.max((end - start) << 2, target.length - 1) >> 12) + 1) << 12; + let newBuffer = new ByteArrayAllocate(newSize); + targetView = new DataView(newBuffer.buffer, 0, newSize); + if (target.copy) + target.copy(newBuffer, 0, start, end); + else + newBuffer.set(target.slice(start, end)); + position -= start; + start = 0; + safeEnd = newBuffer.length - 10; + return target = newBuffer + }; + let chunkThreshold = 100; + let continuedChunkThreshold = 1000; + this.encodeAsIterable = function(value, options) { + return startEncoding(value, options, encodeObjectAsIterable); + }; + this.encodeAsAsyncIterable = function(value, options) { + return startEncoding(value, options, encodeObjectAsAsyncIterable); + }; + + function* encodeObjectAsIterable(object, iterateProperties, finalIterable) { + let constructor = object.constructor; + if (constructor === Object) { + let useRecords = encoder.useRecords !== false; + if (useRecords) + writeObject(object, null); // write the record identifier + else + writeEntityLength(Object.keys(object).length, 0xa0); + for (let key in object) { + let value = object[key]; + if (!useRecords) encode(key); + if (value && typeof value === 'object') { + if (iterateProperties[key]) + yield* encodeObjectAsIterable(value, iterateProperties[key]); + else + yield* tryEncode(value, iterateProperties, key); + } else encode(value); + } + } else if (constructor === Array) { + let length = object.length; + writeArrayHeader(length); + for (let i = 0; i < length; i++) { + let value = object[i]; + if (value && (typeof value === 'object' || position - start > chunkThreshold)) { + if (iterateProperties.element) + yield* encodeObjectAsIterable(value, iterateProperties.element); + else + yield* tryEncode(value, iterateProperties, 'element'); + } else encode(value); + } + } else if (object[Symbol.iterator]) { + target[position++] = 0x9f; // start indefinite array + for (let value of object) { + if (value && (typeof value === 'object' || position - start > chunkThreshold)) { + if (iterateProperties.element) + yield* encodeObjectAsIterable(value, iterateProperties.element); + else + yield* tryEncode(value, iterateProperties, 'element'); + } else encode(value); + } + target[position++] = 0xff; // stop byte + } else if (isBlob(object)){ + writeEntityLength(object.size, 0x40); // encode as binary data + yield target.subarray(start, position); + yield object; // directly return blobs, they have to be encoded asynchronously + restartEncoding(); + } else if (object[Symbol.asyncIterator]) { + target[position++] = 0x9f; // start indefinite array + yield target.subarray(start, position); + yield object; // directly return async iterators, they have to be encoded asynchronously + restartEncoding(); + target[position++] = 0xff; // stop byte + } else { + encode(object); + } + if (finalIterable && position > start) yield target.subarray(start, position); + else if (position - start > chunkThreshold) { + yield target.subarray(start, position); + restartEncoding(); + } + } + function* tryEncode(value, iterateProperties, key) { + let restart = position - start; + try { + encode(value); + if (position - start > chunkThreshold) { + yield target.subarray(start, position); + restartEncoding(); + } + } catch (error) { + if (error.iteratorNotHandled) { + iterateProperties[key] = {}; + position = start + restart; // restart our position so we don't have partial data from last encode + yield* encodeObjectAsIterable.call(this, value, iterateProperties[key]); + } else throw error; + } + } + function restartEncoding() { + chunkThreshold = continuedChunkThreshold; + encoder.encode(null, THROW_ON_ITERABLE); // restart encoding + } + function startEncoding(value, options, encodeIterable) { + if (options && options.chunkThreshold) // explicitly specified chunk sizes + chunkThreshold = continuedChunkThreshold = options.chunkThreshold; + else // we start with a smaller threshold to get initial bytes sent quickly + chunkThreshold = 100; + if (value && typeof value === 'object') { + encoder.encode(null, THROW_ON_ITERABLE); // start encoding + return encodeIterable(value, encoder.iterateProperties || (encoder.iterateProperties = {}), true); + } + return [encoder.encode(value)]; + } + + async function* encodeObjectAsAsyncIterable(value, iterateProperties) { + for (let encodedValue of encodeObjectAsIterable(value, iterateProperties, true)) { + let constructor = encodedValue.constructor; + if (constructor === ByteArray || constructor === Uint8Array) + yield encodedValue; + else if (isBlob(encodedValue)) { + let reader = encodedValue.stream().getReader(); + let next; + while (!(next = await reader.read()).done) { + yield next.value; + } + } else if (encodedValue[Symbol.asyncIterator]) { + for await (let asyncValue of encodedValue) { + restartEncoding(); + if (asyncValue) + yield* encodeObjectAsAsyncIterable(asyncValue, iterateProperties.async || (iterateProperties.async = {})); + else yield encoder.encode(asyncValue); + } + } else { + yield encodedValue; + } + } + } + } + useBuffer(buffer) { + // this means we are finished using our own buffer and we can write over it safely + target = buffer; + targetView = new DataView(target.buffer, target.byteOffset, target.byteLength); + position = 0; + } + clearSharedData() { + if (this.structures) + this.structures = []; + if (this.sharedValues) + this.sharedValues = undefined; + } + updateSharedData() { + let lastVersion = this.sharedVersion || 0; + this.sharedVersion = lastVersion + 1; + let structuresCopy = this.structures.slice(0); + let sharedData = new SharedData(structuresCopy, this.sharedValues, this.sharedVersion); + let saveResults = this.saveShared(sharedData, + existingShared => (existingShared && existingShared.version || 0) == lastVersion); + if (saveResults === false) { + // get updated structures and try again if the update failed + sharedData = this.getShared() || {}; + this.structures = sharedData.structures || []; + this.sharedValues = sharedData.packedValues; + this.sharedVersion = sharedData.version; + this.structures.nextId = this.structures.length; + } else { + // restore structures + structuresCopy.forEach((structure, i) => this.structures[i] = structure); + } + // saveShared may fail to write and reload, or may have reloaded to check compatibility and overwrite saved data, either way load the correct shared data + return saveResults + } + } + function writeEntityLength(length, majorValue) { + if (length < 0x18) + target[position++] = majorValue | length; + else if (length < 0x100) { + target[position++] = majorValue | 0x18; + target[position++] = length; + } else if (length < 0x10000) { + target[position++] = majorValue | 0x19; + target[position++] = length >> 8; + target[position++] = length & 0xff; + } else { + target[position++] = majorValue | 0x1a; + targetView.setUint32(position, length); + position += 4; + } - // the following is from is-buffer, also by Feross Aboukhadijeh and with same lisence - // The _isBuffer check is for Safari 5-7 support, because it's missing - // Object.prototype.constructor. Remove this eventually - function isBuffer(obj) { - return obj != null && (!!obj._isBuffer || isFastBuffer(obj) || isSlowBuffer(obj)) + } + class SharedData { + constructor(structures, values, version) { + this.structures = structures; + this.packedValues = values; + this.version = version; + } } - function isFastBuffer (obj) { - return !!obj.constructor && typeof obj.constructor.isBuffer === 'function' && obj.constructor.isBuffer(obj) + function writeArrayHeader(length) { + if (length < 0x18) + target[position++] = 0x80 | length; + else if (length < 0x100) { + target[position++] = 0x98; + target[position++] = length; + } else if (length < 0x10000) { + target[position++] = 0x99; + target[position++] = length >> 8; + target[position++] = length & 0xff; + } else { + target[position++] = 0x9a; + targetView.setUint32(position, length); + position += 4; + } } - // For Node v0.10 support. Remove this eventually. - function isSlowBuffer (obj) { - return typeof obj.readFloatLE === 'function' && typeof obj.slice === 'function' && isFastBuffer(obj.slice(0, 0)) + const BlobConstructor = typeof Blob === 'undefined' ? function(){} : Blob; + function isBlob(object) { + if (object instanceof BlobConstructor) + return true; + let tag = object[Symbol.toStringTag]; + return tag === 'Blob' || tag === 'File'; + } + function findRepetitiveStrings(value, packedValues) { + switch(typeof value) { + case 'string': + if (value.length > 3) { + if (packedValues.objectMap[value] > -1 || packedValues.values.length >= packedValues.maxValues) + return + let packedStatus = packedValues.get(value); + if (packedStatus) { + if (++packedStatus.count == 2) { + packedValues.values.push(value); + } + } else { + packedValues.set(value, { + count: 1, + }); + if (packedValues.samplingPackedValues) { + let status = packedValues.samplingPackedValues.get(value); + if (status) + status.count++; + else + packedValues.samplingPackedValues.set(value, { + count: 1, + }); + } + } + } + break + case 'object': + if (value) { + if (value instanceof Array) { + for (let i = 0, l = value.length; i < l; i++) { + findRepetitiveStrings(value[i], packedValues); + } + + } else { + let includeKeys = !packedValues.encoder.useRecords; + for (var key in value) { + if (value.hasOwnProperty(key)) { + if (includeKeys) + findRepetitiveStrings(key, packedValues); + findRepetitiveStrings(value[key], packedValues); + } + } + } + } + break + case 'function': console.log(value); + } + } + const isLittleEndianMachine = new Uint8Array(new Uint16Array([1]).buffer)[0] == 1; + extensionClasses = [ Date, Set, Error, RegExp, Tag, ArrayBuffer, + Uint8Array, Uint8ClampedArray, Uint16Array, Uint32Array, + typeof BigUint64Array == 'undefined' ? function() {} : BigUint64Array, Int8Array, Int16Array, Int32Array, + typeof BigInt64Array == 'undefined' ? function() {} : BigInt64Array, + Float32Array, Float64Array, SharedData ]; + + //Object.getPrototypeOf(Uint8Array.prototype).constructor /*TypedArray*/ + extensions = [{ // Date + tag: 1, + encode(date, encode) { + let seconds = date.getTime() / 1000; + if ((this.useTimestamp32 || date.getMilliseconds() === 0) && seconds >= 0 && seconds < 0x100000000) { + // Timestamp 32 + target[position++] = 0x1a; + targetView.setUint32(position, seconds); + position += 4; + } else { + // Timestamp float64 + target[position++] = 0xfb; + targetView.setFloat64(position, seconds); + position += 8; + } + } + }, { // Set + tag: 258, // https://github.com/input-output-hk/cbor-sets-spec/blob/master/CBOR_SETS.md + encode(set, encode) { + let array = Array.from(set); + encode(array); + } + }, { // Error + tag: 27, // http://cbor.schmorp.de/generic-object + encode(error, encode) { + encode([ error.name, error.message ]); + } + }, { // RegExp + tag: 27, // http://cbor.schmorp.de/generic-object + encode(regex, encode) { + encode([ 'RegExp', regex.source, regex.flags ]); + } + }, { // Tag + getTag(tag) { + return tag.tag + }, + encode(tag, encode) { + encode(tag.value); + } + }, { // ArrayBuffer + encode(arrayBuffer, encode, makeRoom) { + writeBuffer(arrayBuffer, makeRoom); + } + }, { // Uint8Array + getTag(typedArray) { + if (typedArray.constructor === Uint8Array) { + if (this.tagUint8Array || hasNodeBuffer && this.tagUint8Array !== false) + return 64; + } // else no tag + }, + encode(typedArray, encode, makeRoom) { + writeBuffer(typedArray, makeRoom); + } + }, + typedArrayEncoder(68, 1), + typedArrayEncoder(69, 2), + typedArrayEncoder(70, 4), + typedArrayEncoder(71, 8), + typedArrayEncoder(72, 1), + typedArrayEncoder(77, 2), + typedArrayEncoder(78, 4), + typedArrayEncoder(79, 8), + typedArrayEncoder(85, 4), + typedArrayEncoder(86, 8), + { + encode(sharedData, encode) { // write SharedData + let packedValues = sharedData.packedValues || []; + let sharedStructures = sharedData.structures || []; + if (packedValues.values.length > 0) { + target[position++] = 0xd8; // one-byte tag + target[position++] = 51; // tag 51 for packed shared structures https://www.potaroo.net/ietf/ids/draft-ietf-cbor-packed-03.txt + writeArrayHeader(4); + let valuesArray = packedValues.values; + encode(valuesArray); + writeArrayHeader(0); // prefixes + writeArrayHeader(0); // suffixes + packedObjectMap = Object.create(sharedPackedObjectMap || null); + for (let i = 0, l = valuesArray.length; i < l; i++) { + packedObjectMap[valuesArray[i]] = i; + } + } + if (sharedStructures) { + targetView.setUint32(position, 0xd9dffe00); + position += 3; + let definitions = sharedStructures.slice(0); + definitions.unshift(0xe000); + definitions.push(new Tag(sharedData.version, 0x53687264)); + encode(definitions); + } else + encode(new Tag(sharedData.version, 0x53687264)); + } + }]; + function typedArrayEncoder(tag, size) { + if (!isLittleEndianMachine && size > 1) + tag -= 4; // the big endian equivalents are 4 less + return { + tag: tag, + encode: function writeExtBuffer(typedArray, encode) { + let length = typedArray.byteLength; + let offset = typedArray.byteOffset || 0; + let buffer = typedArray.buffer || typedArray; + encode(hasNodeBuffer ? Buffer.from(buffer, offset, length) : + new Uint8Array(buffer, offset, length)); + } + } + } + function writeBuffer(buffer, makeRoom) { + let length = buffer.byteLength; + if (length < 0x18) { + target[position++] = 0x40 + length; + } else if (length < 0x100) { + target[position++] = 0x58; + target[position++] = length; + } else if (length < 0x10000) { + target[position++] = 0x59; + target[position++] = length >> 8; + target[position++] = length & 0xff; + } else { + target[position++] = 0x5a; + targetView.setUint32(position, length); + position += 4; + } + if (position + length >= target.length) { + makeRoom(position + length); + } + // if it is already a typed array (has an ArrayBuffer), use that, but if it is an ArrayBuffer itself, + // must wrap it to set it. + target.set(buffer.buffer ? buffer : new Uint8Array(buffer), position); + position += length; } - let decoder; - try { - decoder = new TextDecoder(); - } catch(error) {} - let src; - let srcEnd; - let position$1 = 0; - const RECORD_TAG_ID = 0x69; - const STOP_CODE = {}; - let currentDecoder = {}; - let currentStructures; - let srcString; - let srcStringStart = 0; - let srcStringEnd = 0; - let referenceMap; - let currentExtensions = []; - let dataView; - let restoreMapsAsObject; - let defaultOptions = { - useRecords: false, - mapsAsObjects: true - }; - let sequentialMode = false; - - class Decoder { - constructor(options) { - if (options) { - if (options.useRecords === false && options.mapsAsObjects === undefined) - options.mapsAsObjects = true; - if (options.getStructures && !options.structures) - (options.structures = []).uninitialized = true; // this is what we use to denote an uninitialized structures - } - Object.assign(this, options); - } - decode(source, end) { - if (src) { - // re-entrant execution, save the state and restore it after we do this decode - return saveState(() => { - clearSource(); - return this ? this.decode(source, end) : Decoder.prototype.decode.call(defaultOptions, source, end) - }) - } - srcEnd = end > -1 ? end : source.length; - position$1 = 0; - srcStringEnd = 0; - srcString = null; - src = source; - // this provides cached access to the data view for a buffer if it is getting reused, which is a recommend - // technique for getting data from a database where it can be copied into an existing buffer instead of creating - // new ones - dataView = source.dataView || (source.dataView = new DataView(source.buffer, source.byteOffset, source.byteLength)); - if (this) { - currentDecoder = this; - if (this.structures) { - currentStructures = this.structures; - return checkedRead() - } else if (!currentStructures || currentStructures.length > 0) { - currentStructures = []; - } - } else { - currentDecoder = defaultOptions; - if (!currentStructures || currentStructures.length > 0) - currentStructures = []; - } - return checkedRead() - } - decodeMultiple(source, forEach) { - let values, lastPosition = 0; - try { - let size = source.length; - sequentialMode = true; - let value = this ? this.decode(source, size) : defaultDecoder.decode(source, size); - if (forEach) { - forEach(value); - while(position$1 < size) { - lastPosition = position$1; - if (forEach(checkedRead()) === false) { - return - } - } - } - else { - values = [ value ]; - while(position$1 < size) { - lastPosition = position$1; - values.push(checkedRead()); - } - return values - } - } catch(error) { - error.lastPosition = lastPosition; - error.values = values; - throw error - } finally { - sequentialMode = false; - clearSource(); - } - } - } - function checkedRead() { - try { - let result = read(); - if (position$1 == srcEnd) { - // finished reading this source, cleanup references - currentStructures = null; - src = null; - if (referenceMap) - referenceMap = null; - } else if (position$1 > srcEnd) { - // over read - let error = new Error('Unexpected end of CBOR data'); - error.incomplete = true; - throw error - } else if (!sequentialMode) { - throw new Error('Data read, but end of buffer not reached') - } - // else more to read, but we are reading sequentially, so don't clear source yet - return result - } catch(error) { - clearSource(); - if (error instanceof RangeError || error.message.startsWith('Unexpected end of buffer')) { - error.incomplete = true; - } - throw error - } - } - - function read() { - let token = src[position$1++]; - let majorType = token >> 5; - token = token & 0x1f; - if (token > 0x17) { - switch (token) { - case 0x18: - token = src[position$1++]; - break - case 0x19: - if (majorType == 7) { - return getFloat16() - } - token = dataView.getUint16(position$1); - position$1 += 2; - break - case 0x1a: - if (majorType == 7) { - let value = dataView.getFloat32(position$1); - if (currentDecoder.useFloat32 > 2) { - // this does rounding of numbers that were encoded in 32-bit float to nearest significant decimal digit that could be preserved - let multiplier = mult10[((src[position$1] & 0x7f) << 1) | (src[position$1 + 1] >> 7)]; - position$1 += 4; - return ((multiplier * value + (value > 0 ? 0.5 : -0.5)) >> 0) / multiplier - } - position$1 += 4; - return value - } - token = dataView.getUint32(position$1); - position$1 += 4; - break - case 0x1b: - if (majorType == 7) { - let value = dataView.getFloat64(position$1); - position$1 += 8; - return value - } - if (currentDecoder.uint64AsNumber) - return src[position$1++] * 0x100000000000000 + src[position$1++] * 0x1000000000000 + src[position$1++] * 0x10000000000 + src[position$1++] * 0x100000000 + - src[position$1++] * 0x1000000 + (src[position$1++] << 16) + (src[position$1++] << 8) + src[position$1++] - token = dataView.getBigUint64(position$1); - position$1 += 8; - break - case 0x1f: - // indefinite length - switch(majorType) { - case 2: // byte string - case 3: // text string - case 4: // array - let array = []; - let value, i = 0; - while ((value = read()) != STOP_CODE) { - array[i++] = value; - } - return majorType == 4 ? array : majorType == 3 ? array.join('') : Buffer.concat(array) - case 5: // map - let key; - if (currentDecoder.mapsAsObjects) { - let object = {}; - while ((key = readKey()) != STOP_CODE) - object[key] = read(); - return object - } else { - if (restoreMapsAsObject) { - currentDecoder.mapsAsObjects = true; - restoreMapsAsObject = false; - } - let map = new Map(); - while ((key = read()) != STOP_CODE) - map.set(key, read()); - return map - } - case 7: - return STOP_CODE - default: - throw new Error('Invalid major type for indefinite length ' + majorType) - } - default: - throw new Error('Unknown token ' + token) - } - } - switch (majorType) { - case 0: // positive int - return token - case 1: // negative int - return ~token - case 2: // buffer - return readBin(token) - case 3: // string - if (srcStringEnd >= position$1) { - return srcString.slice(position$1 - srcStringStart, (position$1 += token) - srcStringStart) - } - if (srcStringEnd == 0 && srcEnd < 140 && token < 32) { - // for small blocks, avoiding the overhead of the extract call is helpful - let string = token < 16 ? shortStringInJS(token) : longStringInJS(token); - if (string != null) - return string - } - return readFixedString(token) - case 4: // array - let array = new Array(token); - for (let i = 0; i < token; i++) { - array[i] = read(); - } - return array - case 5: // map - if (currentDecoder.mapsAsObjects) { - let object = {}; - for (let i = 0; i < token; i++) { - object[readKey()] = read(); - } - return object - } else { - if (restoreMapsAsObject) { - currentDecoder.mapsAsObjects = true; - restoreMapsAsObject = false; - } - let map = new Map(); - for (let i = 0; i < token; i++) { - map.set(read(), read()); - } - return map - } - case 6: // extension - if ((token >> 8) == RECORD_TAG_ID) { // record structures - let structure = currentStructures[token & 0xff]; - if (structure) { - if (!structure.read) - structure.read = createStructureReader(structure); - return structure.read() - } else if (currentDecoder.getStructures) { - let updatedStructures = saveState(() => { - // save the state in case getStructures modifies our buffer - src = null; - return currentDecoder.getStructures() - }); - if (currentStructures === true) - currentDecoder.structures = currentStructures = updatedStructures; - else - currentStructures.splice.apply(currentStructures, [0, updatedStructures.length].concat(updatedStructures)); - structure = currentStructures[token & 0xff]; - if (structure) { - if (!structure.read) - structure.read = createStructureReader(structure); - return structure.read() - } else - return token - } else - return token - } else { - let extension = currentExtensions[token]; - if (extension) { - if (extension.handlesRead) - return extension(read) - else - return extension(read()) - } - else - return new Tag(read()) - } - case 7: // fixed value - switch (token) { - case 0x14: return false - case 0x15: return true - case 0x16: return null - case 0x17: return; // undefined - case 0x1f: - default: - throw new Error('Unknown token ' + token) - } - default: // negative int - if (isNaN(token)) { - let error = new Error('Unexpected end of CBOR data'); - error.incomplete = true; - throw error - } - throw new Error('Unknown CBOR token ' + token) - } - } - const validName = /^[a-zA-Z_$][a-zA-Z\d_$]*$/; - function createStructureReader(structure) { - let l = structure.length; - function readObject() { - // This initial function is quick to instantiate, but runs slower. After several iterations pay the cost to build the faster function - if (readObject.count++ > 2) { - this.read = (new Function('a', 'r', 'return function(){a();return {' + structure.map(key => validName.test(key) ? key + ':r()' : ('[' + JSON.stringify(key) + ']:r()')).join(',') + '}}'))(readArrayHeader, read); - return this.read() - } - readArrayHeader(); - let object = {}; - for (let i = 0; i < l; i++) { - let key = structure[i]; - object[key] = read(); - } - return object - } - readObject.count = 0; - return readObject - } - - function readArrayHeader(expectedLength) { - // consume the array header, TODO: check expected length - let token = src[position$1++]; - //let majorType = token >> 5 - token = token & 0x1f; - if (token > 0x17) { - switch (token) { - case 0x18: position$1++; - break - case 0x19: position$1 += 2; - break - case 0x1a: position$1 += 4; - } - } - } - - let readFixedString = readStringJS; - function readStringJS(length) { - let result; - if (length < 16) { - if (result = shortStringInJS(length)) - return result - } - if (length > 64 && decoder) - return decoder.decode(src.subarray(position$1, position$1 += length)) - const end = position$1 + length; - const units = []; - result = ''; - while (position$1 < end) { - const byte1 = src[position$1++]; - if ((byte1 & 0x80) === 0) { - // 1 byte - units.push(byte1); - } else if ((byte1 & 0xe0) === 0xc0) { - // 2 bytes - const byte2 = src[position$1++] & 0x3f; - units.push(((byte1 & 0x1f) << 6) | byte2); - } else if ((byte1 & 0xf0) === 0xe0) { - // 3 bytes - const byte2 = src[position$1++] & 0x3f; - const byte3 = src[position$1++] & 0x3f; - units.push(((byte1 & 0x1f) << 12) | (byte2 << 6) | byte3); - } else if ((byte1 & 0xf8) === 0xf0) { - // 4 bytes - const byte2 = src[position$1++] & 0x3f; - const byte3 = src[position$1++] & 0x3f; - const byte4 = src[position$1++] & 0x3f; - let unit = ((byte1 & 0x07) << 0x12) | (byte2 << 0x0c) | (byte3 << 0x06) | byte4; - if (unit > 0xffff) { - unit -= 0x10000; - units.push(((unit >>> 10) & 0x3ff) | 0xd800); - unit = 0xdc00 | (unit & 0x3ff); - } - units.push(unit); - } else { - units.push(byte1); - } - - if (units.length >= 0x1000) { - result += fromCharCode.apply(String, units); - units.length = 0; - } - } - - if (units.length > 0) { - result += fromCharCode.apply(String, units); - } - - return result - } - let fromCharCode = String.fromCharCode; - function longStringInJS(length) { - let start = position$1; - let bytes = new Array(length); - for (let i = 0; i < length; i++) { - const byte = src[position$1++]; - if ((byte & 0x80) > 0) { - position$1 = start; - return - } - bytes[i] = byte; - } - return fromCharCode.apply(String, bytes) - } - function shortStringInJS(length) { - if (length < 4) { - if (length < 2) { - if (length === 0) - return '' - else { - let a = src[position$1++]; - if ((a & 0x80) > 1) { - position$1 -= 1; - return - } - return fromCharCode(a) - } - } else { - let a = src[position$1++]; - let b = src[position$1++]; - if ((a & 0x80) > 0 || (b & 0x80) > 0) { - position$1 -= 2; - return - } - if (length < 3) - return fromCharCode(a, b) - let c = src[position$1++]; - if ((c & 0x80) > 0) { - position$1 -= 3; - return - } - return fromCharCode(a, b, c) - } - } else { - let a = src[position$1++]; - let b = src[position$1++]; - let c = src[position$1++]; - let d = src[position$1++]; - if ((a & 0x80) > 0 || (b & 0x80) > 0 || (c & 0x80) > 0 || (d & 0x80) > 0) { - position$1 -= 4; - return - } - if (length < 6) { - if (length === 4) - return fromCharCode(a, b, c, d) - else { - let e = src[position$1++]; - if ((e & 0x80) > 0) { - position$1 -= 5; - return - } - return fromCharCode(a, b, c, d, e) - } - } else if (length < 8) { - let e = src[position$1++]; - let f = src[position$1++]; - if ((e & 0x80) > 0 || (f & 0x80) > 0) { - position$1 -= 6; - return - } - if (length < 7) - return fromCharCode(a, b, c, d, e, f) - let g = src[position$1++]; - if ((g & 0x80) > 0) { - position$1 -= 7; - return - } - return fromCharCode(a, b, c, d, e, f, g) - } else { - let e = src[position$1++]; - let f = src[position$1++]; - let g = src[position$1++]; - let h = src[position$1++]; - if ((e & 0x80) > 0 || (f & 0x80) > 0 || (g & 0x80) > 0 || (h & 0x80) > 0) { - position$1 -= 8; - return - } - if (length < 10) { - if (length === 8) - return fromCharCode(a, b, c, d, e, f, g, h) - else { - let i = src[position$1++]; - if ((i & 0x80) > 0) { - position$1 -= 9; - return - } - return fromCharCode(a, b, c, d, e, f, g, h, i) - } - } else if (length < 12) { - let i = src[position$1++]; - let j = src[position$1++]; - if ((i & 0x80) > 0 || (j & 0x80) > 0) { - position$1 -= 10; - return - } - if (length < 11) - return fromCharCode(a, b, c, d, e, f, g, h, i, j) - let k = src[position$1++]; - if ((k & 0x80) > 0) { - position$1 -= 11; - return - } - return fromCharCode(a, b, c, d, e, f, g, h, i, j, k) - } else { - let i = src[position$1++]; - let j = src[position$1++]; - let k = src[position$1++]; - let l = src[position$1++]; - if ((i & 0x80) > 0 || (j & 0x80) > 0 || (k & 0x80) > 0 || (l & 0x80) > 0) { - position$1 -= 12; - return - } - if (length < 14) { - if (length === 12) - return fromCharCode(a, b, c, d, e, f, g, h, i, j, k, l) - else { - let m = src[position$1++]; - if ((m & 0x80) > 0) { - position$1 -= 13; - return - } - return fromCharCode(a, b, c, d, e, f, g, h, i, j, k, l, m) - } - } else { - let m = src[position$1++]; - let n = src[position$1++]; - if ((m & 0x80) > 0 || (n & 0x80) > 0) { - position$1 -= 14; - return - } - if (length < 15) - return fromCharCode(a, b, c, d, e, f, g, h, i, j, k, l, m, n) - let o = src[position$1++]; - if ((o & 0x80) > 0) { - position$1 -= 15; - return - } - return fromCharCode(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o) - } - } - } - } - } - - function readBin(length) { - return currentDecoder.copyBuffers ? - // specifically use the copying slice (not the node one) - Uint8Array.prototype.slice.call(src, position$1, position$1 += length) : - src.subarray(position$1, position$1 += length) - } - - function getFloat16() { - let byte0 = src[position$1++]; - let byte1 = src[position$1++]; - let half = (byte0 << 8) + byte1; - let exp = (half >> 10) & 0x1f; - let mant = half & 0x3ff; - let val; - if (exp == 0) val = Math.exp(mant, -24); - else if (exp != 31) val = Math.exp(mant + 1024, exp - 25); - else val = mant == 0 ? Infinity : NaN; - return half & 0x8000 ? -val : val - } - - let keyCache = new Array(4096); - function readKey() { - let length = src[position$1++]; - if (length >= 0x60 && length < 0x78) { - // fixstr, potentially use key cache - length = length - 0x60; - if (srcStringEnd >= position$1) // if it has been extracted, must use it (and faster anyway) - return srcString.slice(position$1 - srcStringStart, (position$1 += length) - srcStringStart) - else if (!(srcStringEnd == 0 && srcEnd < 180)) - return readFixedString(length) - } else { // not cacheable, go back and do a standard read - position$1--; - return read() - } - let key = ((length << 5) ^ (length > 1 ? dataView.getUint16(position$1) : length > 0 ? src[position$1] : 0)) & 0xfff; - let entry = keyCache[key]; - let checkPosition = position$1; - let end = position$1 + length - 3; - let chunk; - let i = 0; - if (entry && entry.bytes == length) { - while (checkPosition < end) { - chunk = dataView.getUint32(checkPosition); - if (chunk != entry[i++]) { - checkPosition = 0x70000000; - break - } - checkPosition += 4; - } - end += 3; - while (checkPosition < end) { - chunk = src[checkPosition++]; - if (chunk != entry[i++]) { - checkPosition = 0x70000000; - break - } - } - if (checkPosition === end) { - position$1 = checkPosition; - return entry.string - } - end -= 3; - checkPosition = position$1; - } - entry = []; - keyCache[key] = entry; - entry.bytes = length; - while (checkPosition < end) { - chunk = dataView.getUint32(checkPosition); - entry.push(chunk); - checkPosition += 4; - } - end += 3; - while (checkPosition < end) { - chunk = src[checkPosition++]; - entry.push(chunk); - } - // for small blocks, avoiding the overhead of the extract call is helpful - let string = length < 16 ? shortStringInJS(length) : longStringInJS(length); - if (string != null) - return entry.string = string - return entry.string = readFixedString(length) - } - - class Tag { - constructor(value) { - this.value = value; - } - } - - let glbl = typeof window == 'object' ? window : global$1; - - currentExtensions[0] = (dateString) => { - // string date extension - return new Date(dateString) - }; - - currentExtensions[1] = (epochSec) => { - // numeric date extension - return new Date(epochSec * 1000) - }; - - currentExtensions[2] = (buffer) => { - // bigint extension - return new DataView(buffer.buffer, buffer.byteOffset, buffer.byteLength).getBigUint64(0) - }; - - currentExtensions[3] = (buffer) => { - // negative bigint extension - return BigInt(-1) - (new DataView(buffer.buffer, buffer.byteOffset, buffer.byteLength).getBigUint64(0)) - }; - - // the registration of the record definition extension (tag 105) - const recordDefinition = () => { - let definition = read(); - let structure = definition[0]; - let id = definition[1]; - currentStructures[id & 0xff] = structure; - structure.read = createStructureReader(structure); - let object = {}; - for (let i = 2,l = definition.length; i < l; i++) { - let key = structure[i - 2]; - object[key] = definition[i]; - } - return object - }; - - recordDefinition.handlesRead = true; - currentExtensions[RECORD_TAG_ID] = recordDefinition; - - currentExtensions[27] = (data) => { // http://cbor.schmorp.de/generic-object - return (glbl[data[0]] || Error)(data[1], data[2]) - }; - - currentExtensions[40009] = (id) => { - // id extension (for structured clones) - if (!referenceMap) - referenceMap = new Map(); - let token = src[position$1]; - let target; - // TODO: handle Maps, Sets, and other types that can cycle; this is complicated, because you potentially need to read - // ahead past references to record structure definitions - if ((token >> 5) == 4) - target = []; - else - target = {}; - - let refEntry = { target }; // a placeholder object - referenceMap.set(id, refEntry); - let targetProperties = read(); // read the next value as the target object to id - if (refEntry.used) // there is a cycle, so we have to assign properties to original target - return Object.assign(target, targetProperties) - refEntry.target = targetProperties; // the placeholder wasn't used, replace with the deserialized one - return targetProperties // no cycle, can just use the returned read object - }; - - currentExtensions[40010] = (id) => { - // pointer extension (for structured clones) - let refEntry = referenceMap.get(id); - refEntry.used = true; - return refEntry.target - }; - - currentExtensions[258] = (array) => new Set(array); // https://github.com/input-output-hk/cbor-sets-spec/blob/master/CBOR_SETS.md - (currentExtensions[259] = (read) => { - // https://github.com/shanewholloway/js-cbor-codec/blob/master/docs/CBOR-259-spec - // for decoding as a standard Map - if (currentDecoder.mapsAsObjects) { - currentDecoder.mapsAsObjects = false; - restoreMapsAsObject = true; - } - return read() - }).handlesRead = true; - - - const typedArrays = ['Uint8', 'Uint8Clamped', 'Uint16', 'Uint32', 'BigUint64','Int8', 'Int16', 'Int32', 'BigInt64', 'Float32', 'Float64'].map(type => type + 'Array'); - const typedArrayTags = [64, 68, 69, 70, 71, 72, 77, 78, 79, 81, 82]; - for (let i = 0; i < typedArrays.length; i++) { - registerTypedArray(typedArrays[i], typedArrayTags[i]); - } - function registerTypedArray(typedArrayName, tag) { - currentExtensions[tag] = (buffer) => { - if (!typedArrayName) - throw new Error('Could not find typed array for code ' + typeCode) - // we have to always slice/copy here to get a new ArrayBuffer that is word/byte aligned - return new glbl[typedArrayName](Uint8Array.prototype.slice.call(buffer, 0).buffer) - }; - } - - function saveState(callback) { - let savedSrcEnd = srcEnd; - let savedPosition = position$1; - let savedSrcStringStart = srcStringStart; - let savedSrcStringEnd = srcStringEnd; - let savedSrcString = srcString; - let savedReferenceMap = referenceMap; - // TODO: We may need to revisit this if we do more external calls to user code (since it could be slow) - let savedSrc = new Uint8Array(src.slice(0, srcEnd)); // we copy the data in case it changes while external data is processed - let savedStructures = currentStructures; - let savedDecoder = currentDecoder; - let savedSequentialMode = sequentialMode; - let value = callback(); - srcEnd = savedSrcEnd; - position$1 = savedPosition; - srcStringStart = savedSrcStringStart; - srcStringEnd = savedSrcStringEnd; - srcString = savedSrcString; - referenceMap = savedReferenceMap; - src = savedSrc; - sequentialMode = savedSequentialMode; - currentStructures = savedStructures; - currentDecoder = savedDecoder; - dataView = new DataView(src.buffer, src.byteOffset, src.byteLength); - return value - } - function clearSource() { - src = null; - referenceMap = null; - currentStructures = null; - } - - function addExtension$1(extension) { - currentExtensions[extension.tag] = extension.decode; - } - - let mult10 = new Array(147); // this is a table matching binary exponents to the multiplier to determine significant digit rounding - for (let i = 0; i < 256; i++) { - mult10[i] = +('1e' + Math.floor(45.15 - i * 0.30103)); - } - let defaultDecoder = new Decoder({ useRecords: false }); - defaultDecoder.decode; - defaultDecoder.decodeMultiple; + function insertIds(serialized, idsToInsert) { + // insert the ids that need to be referenced for structured clones + let nextId; + let distanceToMove = idsToInsert.length * 2; + let lastEnd = serialized.length - distanceToMove; + idsToInsert.sort((a, b) => a.offset > b.offset ? 1 : -1); + for (let id = 0; id < idsToInsert.length; id++) { + let referee = idsToInsert[id]; + referee.id = id; + for (let position of referee.references) { + serialized[position++] = id >> 8; + serialized[position] = id & 0xff; + } + } + while (nextId = idsToInsert.pop()) { + let offset = nextId.offset; + serialized.copyWithin(offset + distanceToMove, offset, lastEnd); + distanceToMove -= 2; + let position = offset + distanceToMove; + serialized[position++] = 0xd8; + serialized[position++] = 28; // http://cbor.schmorp.de/value-sharing + lastEnd = offset; + } + return serialized + } + function writeBundles(start, encode) { + targetView.setUint32(bundledStrings.position + start, position - bundledStrings.position - start + 1); // the offset to bundle + let writeStrings = bundledStrings; + bundledStrings = null; + encode(writeStrings[0]); + encode(writeStrings[1]); + } - let textEncoder; - try { - textEncoder = new TextEncoder(); - } catch (error) {} - let extensions, extensionClasses; - const hasNodeBuffer = typeof Buffer !== 'undefined'; - const ByteArrayAllocate = hasNodeBuffer ? Buffer.allocUnsafeSlow : Uint8Array; - const ByteArray = hasNodeBuffer ? Buffer : Uint8Array; - const RECORD_STARTING_ID_PREFIX = 0x69; // tag 105/0x69 - const MAX_STRUCTURES = 0x100; - const MAX_BUFFER_SIZE = hasNodeBuffer ? 0x100000000 : 0x7fd00000; - let target; - let targetView; - let position = 0; - let safeEnd; - const RECORD_SYMBOL = Symbol('record-id'); - class Encoder extends Decoder { - constructor(options) { - super(options); - this.offset = 0; - let start; - let sharedStructures; - let hasSharedUpdate; - let structures; - let referenceMap; - let lastSharedStructuresLength = 0; - let encodeUtf8 = ByteArray.prototype.utf8Write ? function(string, position, maxBytes) { - return target.utf8Write(string, position, maxBytes) - } : (textEncoder && textEncoder.encodeInto) ? - function(string, position) { - return textEncoder.encodeInto(string, target.subarray(position)).written - } : false; - - let encoder = this; - let maxSharedStructures = 64; - let isSequential = options && options.sequential; - if (isSequential) { - maxSharedStructures = 0; - this.structures = []; - } - let recordIdsToRemove = []; - let transitionsCount = 0; - let serializationsSinceTransitionRebuild = 0; - if (this.structures && this.structures.length > maxSharedStructures) { - throw new Error('Too many shared structures') - } - - this.encode = function(value) { - if (!target) { - target = new ByteArrayAllocate(8192); - targetView = new DataView(target.buffer, 0, 8192); - position = 0; - } - safeEnd = target.length - 10; - if (safeEnd - position < 0x800) { - // don't start too close to the end, - target = new ByteArrayAllocate(target.length); - targetView = new DataView(target.buffer, 0, target.length); - safeEnd = target.length - 10; - position = 0; - } - start = position; - referenceMap = encoder.structuredClone ? new Map() : null; - sharedStructures = encoder.structures; - if (sharedStructures) { - if (sharedStructures.uninitialized) - encoder.structures = sharedStructures = encoder.getStructures(); - let sharedStructuresLength = sharedStructures.length; - if (sharedStructuresLength > maxSharedStructures && !isSequential) - sharedStructuresLength = maxSharedStructures; - if (!sharedStructures.transitions) { - // rebuild our structure transitions - sharedStructures.transitions = Object.create(null); - for (let i = 0; i < sharedStructuresLength; i++) { - let keys = sharedStructures[i]; - if (!keys) - continue - let nextTransition, transition = sharedStructures.transitions; - for (let i =0, l = keys.length; i < l; i++) { - let key = keys[i]; - nextTransition = transition[key]; - if (!nextTransition) { - nextTransition = transition[key] = Object.create(null); - } - transition = nextTransition; - } - transition[RECORD_SYMBOL] = i; - } - lastSharedStructuresLength = sharedStructures.length; - } - if (!isSequential) - sharedStructures.nextId = sharedStructuresLength; - } - if (hasSharedUpdate) - hasSharedUpdate = false; - structures = sharedStructures || []; - try { - encode(value); - encoder.offset = position; // update the offset so next serialization doesn't write over our buffer, but can continue writing to same buffer sequentially - if (referenceMap && referenceMap.idsToInsert) { - position += referenceMap.idsToInsert.length * 8; - if (position > safeEnd) - makeRoom(position); - encoder.offset = position; - let serialized = insertIds(target.subarray(start, position), referenceMap.idsToInsert); - referenceMap = null; - return serialized - } - return target.subarray(start, position) // position can change if we call encode again in saveStructures, so we get the buffer now - } finally { - if (sharedStructures) { - if (serializationsSinceTransitionRebuild < 10) - serializationsSinceTransitionRebuild++; - if (transitionsCount > 10000) { - // force a rebuild occasionally after a lot of transitions so it can get cleaned up - sharedStructures.transitions = null; - serializationsSinceTransitionRebuild = 0; - transitionsCount = 0; - if (recordIdsToRemove.length > 0) - recordIdsToRemove = []; - } else if (recordIdsToRemove.length > 0 && !isSequential) { - for (let i = 0, l = recordIdsToRemove.length; i < l; i++) { - recordIdsToRemove[i][RECORD_SYMBOL] = undefined; - } - recordIdsToRemove = []; - } - if (hasSharedUpdate && encoder.saveStructures) { - if (encoder.structures.length > maxSharedStructures) { - encoder.structures = encoder.structures.slice(0, maxSharedStructures); - } - - if (encoder.saveStructures(encoder.structures, lastSharedStructuresLength) === false) { - // get updated structures and try again if the update failed - encoder.structures = encoder.getStructures() || []; - return encoder.encode(value) - } - lastSharedStructuresLength = encoder.structures.length; - } - } - } - }; - const encode = (value) => { - if (position > safeEnd) - target = makeRoom(position); - - var type = typeof value; - var length; - if (type === 'string') { - let strLength = value.length; - let headerSize; - // first we estimate the header size, so we can write to the correct location - if (strLength < 0x20) { - headerSize = 1; - } else if (strLength < 0x100) { - headerSize = 2; - } else if (strLength < 0x10000) { - headerSize = 3; - } else { - headerSize = 5; - } - let maxBytes = strLength * 3; - if (position + maxBytes > safeEnd) - target = makeRoom(position + maxBytes); - - if (strLength < 0x40 || !encodeUtf8) { - let i, c1, c2, strPosition = position + headerSize; - for (i = 0; i < strLength; i++) { - c1 = value.charCodeAt(i); - if (c1 < 0x80) { - target[strPosition++] = c1; - } else if (c1 < 0x800) { - target[strPosition++] = c1 >> 6 | 0xc0; - target[strPosition++] = c1 & 0x3f | 0x80; - } else if ( - (c1 & 0xfc00) === 0xd800 && - ((c2 = value.charCodeAt(i + 1)) & 0xfc00) === 0xdc00 - ) { - c1 = 0x10000 + ((c1 & 0x03ff) << 10) + (c2 & 0x03ff); - i++; - target[strPosition++] = c1 >> 18 | 0xf0; - target[strPosition++] = c1 >> 12 & 0x3f | 0x80; - target[strPosition++] = c1 >> 6 & 0x3f | 0x80; - target[strPosition++] = c1 & 0x3f | 0x80; - } else { - target[strPosition++] = c1 >> 12 | 0xe0; - target[strPosition++] = c1 >> 6 & 0x3f | 0x80; - target[strPosition++] = c1 & 0x3f | 0x80; - } - } - length = strPosition - position - headerSize; - } else { - length = encodeUtf8(value, position + headerSize, maxBytes); - } - - if (length < 0x18) { - target[position++] = 0x60 | length; - } else if (length < 0x100) { - if (headerSize < 2) { - target.copyWithin(position + 2, position + 1, position + 1 + length); - } - target[position++] = 0x78; - target[position++] = length; - } else if (length < 0x10000) { - if (headerSize < 3) { - target.copyWithin(position + 3, position + 2, position + 2 + length); - } - target[position++] = 0x79; - target[position++] = length >> 8; - target[position++] = length & 0xff; - } else { - if (headerSize < 5) { - target.copyWithin(position + 5, position + 3, position + 3 + length); - } - target[position++] = 0x7a; - targetView.setUint32(position, length); - position += 4; - } - position += length; - } else if (type === 'number') { - if (value >>> 0 === value) {// positive integer, 32-bit or less - // positive uint - if (value < 0x18) { - target[position++] = value; - } else if (value < 0x100) { - target[position++] = 0x18; - target[position++] = value; - } else if (value < 0x10000) { - target[position++] = 0x19; - target[position++] = value >> 8; - target[position++] = value & 0xff; - } else { - target[position++] = 0x1a; - targetView.setUint32(position, value); - position += 4; - } - } else if (value >> 0 === value) { // negative integer - if (value >= -0x18) { - target[position++] = 0x1f - value; - } else if (value >= -0x100) { - target[position++] = 0x38; - target[position++] = ~value; - } else if (value >= -0x10000) { - target[position++] = 0x39; - targetView.setUint16(position, ~value); - position += 2; - } else { - target[position++] = 0x3a; - targetView.setUint32(position, ~value); - position += 4; - } - } else { - let useFloat32; - if ((useFloat32 = this.useFloat32) > 0 && value < 0x100000000 && value >= -0x80000000) { - target[position++] = 0xfa; - targetView.setFloat32(position, value); - let xShifted; - if (useFloat32 < 4 || - // this checks for rounding of numbers that were encoded in 32-bit float to nearest significant decimal digit that could be preserved - ((xShifted = value * mult10[((target[position] & 0x7f) << 1) | (target[position + 1] >> 7)]) >> 0) === xShifted) { - position += 4; - return - } else - position--; // move back into position for writing a double - } - target[position++] = 0xfb; - targetView.setFloat64(position, value); - position += 8; - } - } else if (type === 'object') { - if (!value) - target[position++] = 0xf6; - else { - if (referenceMap) { - let referee = referenceMap.get(value); - if (referee) { - if (!referee.id) { - let idsToInsert = referenceMap.idsToInsert || (referenceMap.idsToInsert = []); - referee.id = idsToInsert.push(referee); - } - target[position++] = 0xd9; - target[position++] = 40010 >> 8; - target[position++] = 40010 & 0xff; - target[position++] = 0x1a; // uint32 - targetView.setUint32(position, referee.id); - position += 4; - return - } else - referenceMap.set(value, { offset: position - start }); - } - let constructor = value.constructor; - if (constructor === Object) { - writeObject(value, true); - } else if (constructor === Array) { - length = value.length; - if (length < 0x18) { - target[position++] = 0x80 | length; - } else { - writeArrayHeader(length); - } - for (let i = 0; i < length; i++) { - encode(value[i]); - } - } else if (constructor === Map) { - if (this.mapsAsObjects ? this.useTag259ForMaps !== false : this.useTag259ForMaps) { - // use Tag 259 (https://github.com/shanewholloway/js-cbor-codec/blob/master/docs/CBOR-259-spec--explicit-maps.md) for maps if the user wants it that way - target[position++] = 0xd9; - target[position++] = 1; - target[position++] = 3; - } - length = value.size; - if (length < 0x18) { - target[position++] = 0xa0 | length; - } else if (length < 0x100) { - target[position++] = 0xb8; - target[position++] = length; - } else if (length < 0x10000) { - target[position++] = 0xb9; - target[position++] = length >> 8; - target[position++] = length & 0xff; - } else { - target[position++] = 0xba; - targetView.setUint32(position, length); - position += 4; - } - for (let [ key, entryValue ] of value) { - encode(key); - encode(entryValue); - } - } else { - for (let i = 0, l = extensions.length; i < l; i++) { - let extensionClass = extensionClasses[i]; - if (value instanceof extensionClass) { - let extension = extensions[i]; - let tag = extension.tag; - if (tag < 0x18) { - target[position++] = 0xc0 | tag; - } else if (tag < 0x100) { - target[position++] = 0xd8; - target[position++] = tag; - } else if (tag < 0x10000) { - target[position++] = 0xd9; - target[position++] = tag >> 8; - target[position++] = tag & 0xff; - } else if (tag > -1) { - target[position++] = 0xda; - targetView.setUint32(position, tag); - position += 4; - } // else undefined, don't write tag - extension.encode.call(this, value, encode, makeRoom); - return - } - } - if (value[Symbol.iterator]) { - target[position++] = 0x9f; // indefinite length array - for (let entry of value) { - encode(entry); - } - target[position++] = 0xff; // stop-code - return - } - // no extension found, write as object - writeObject(value, !value.hasOwnProperty); // if it doesn't have hasOwnProperty, don't do hasOwnProperty checks - } - } - } else if (type === 'boolean') { - target[position++] = value ? 0xf5 : 0xf4; - } else if (type === 'bigint') { - if (value < (BigInt(1)<= 0) { - // use an unsigned int as long as it fits - target[position++] = 0x1b; - targetView.setBigUint64(position, value); - } else if (value > -(BigInt(1)< { - // this method is slightly slower, but generates "preferred serialization" (optimally small for smaller objects) - let keys = Object.keys(object); - let length = keys.length; - if (length < 0x18) { - target[position++] = 0xa0 | length; - } else if (length < 0x100) { - target[position++] = 0xb8; - target[position++] = length; - } else if (length < 0x10000) { - target[position++] = 0xb9; - target[position++] = length >> 8; - target[position++] = length & 0xff; - } else { - target[position++] = 0xba; - targetView.setUint32(position, length); - position += 4; - } - let key; - for (let i = 0; i < length; i++) { - encode(key = keys[i]); - encode(object[key]); - } - } : - (object, safePrototype) => { - target[position++] = 0xb9; // always use map 16, so we can preallocate and set the length afterwards - let objectOffset = position - start; - position += 2; - let size = 0; - for (let key in object) { - if (safePrototype || object.hasOwnProperty(key)) { - encode(key); - encode(object[key]); - size++; - } - } - target[objectOffset++ + start] = size >> 8; - target[objectOffset + start] = size & 0xff; - } : - - /* sharedStructures ? // For highly stable structures, using for-in can a little bit faster - (object, safePrototype) => { - let nextTransition, transition = structures.transitions || (structures.transitions = Object.create(null)) - let objectOffset = position++ - start - let wroteKeys - for (let key in object) { - if (safePrototype || object.hasOwnProperty(key)) { - nextTransition = transition[key] - if (!nextTransition) { - nextTransition = transition[key] = Object.create(null) - nextTransition.__keys__ = (transition.__keys__ || []).concat([key]) - /*let keys = Object.keys(object) - if - let size = 0 - let startBranch = transition.__keys__ ? transition.__keys__.length : 0 - for (let i = 0, l = keys.length; i++) { - let key = keys[i] - size += key.length << 2 - if (i >= startBranch) { - nextTransition = nextTransition[key] = Object.create(null) - nextTransition.__keys__ = keys.slice(0, i + 1) - } - } - makeRoom(position + size) - nextTransition = transition[key] - target.copy(target, ) - objectOffset - } - transition = nextTransition - encode(object[key]) - } - } - let id = transition.id - if (!id) { - id = transition.id = structures.push(transition.__keys__) + 63 - if (sharedStructures.onUpdate) - sharedStructures.onUpdate(id, transition.__keys__) - } - target[objectOffset + start] = id - }*/ - (object) => { - let keys = Object.keys(object); - let nextTransition, transition = structures.transitions || (structures.transitions = Object.create(null)); - let newTransitions = 0; - let length = keys.length; - for (let i =0; i < length; i++) { - let key = keys[i]; - nextTransition = transition[key]; - if (!nextTransition) { - nextTransition = transition[key] = Object.create(null); - newTransitions++; - } - transition = nextTransition; - } - let recordId = transition[RECORD_SYMBOL]; - if (recordId !== undefined) { - target[position++] = 0xd9; // tag two byte - target[position++] = RECORD_STARTING_ID_PREFIX; - target[position++] = recordId; - } else { - recordId = structures.nextId++; - if (!recordId) { - recordId = 0; - structures.nextId = 1; - } - if (recordId >= MAX_STRUCTURES) {// cycle back around - structures.nextId = (recordId = maxSharedStructures) + 1; - } - transition[RECORD_SYMBOL] = recordId; - structures[recordId] = keys; - if (sharedStructures && sharedStructures.length <= maxSharedStructures) { - target[position++] = 0xd9; // tag two byte - target[position++] = RECORD_STARTING_ID_PREFIX; - target[position++] = recordId; // tag number - hasSharedUpdate = true; - } else { - target[position++] = 0xd8; - target[position++] = RECORD_STARTING_ID_PREFIX; - if (newTransitions) - transitionsCount += serializationsSinceTransitionRebuild * newTransitions; - // record the removal of the id, we can maintain our shared structure - if (recordIdsToRemove.length >= MAX_STRUCTURES - maxSharedStructures) - recordIdsToRemove.shift()[RECORD_SYMBOL] = undefined; // we are cycling back through, and have to remove old ones - recordIdsToRemove.push(transition); - if (length < 0x16) - target[position++] = 0x82 + length; // array header, length of values + 2 - else - writeArrayHeader(length + 2); - encode(keys); - target[position++] = 0x19; // uint16 - target[position++] = RECORD_STARTING_ID_PREFIX; - target[position++] = recordId; - // now write the values - for (let i =0; i < length; i++) - encode(object[keys[i]]); - return - } - } - if (length < 0x18) { // write the array header - target[position++] = 0x80 | length; - } else { - writeArrayHeader(length); - } - for (let i =0; i < length; i++) - encode(object[keys[i]]); - }; - const makeRoom = (end) => { - let newSize; - if (end > 0x1000000) { - // special handling for really large buffers - if ((end - start) > MAX_BUFFER_SIZE) - throw new Error('Encoded buffer would be larger than maximum buffer size') - newSize = Math.min(MAX_BUFFER_SIZE, - Math.round(Math.max((end - start) * (end > 0x4000000 ? 1.25 : 2), 0x1000000) / 0x1000) * 0x1000); - } else // faster handling for smaller buffers - newSize = ((Math.max((end - start) << 2, target.length - 1) >> 12) + 1) << 12; - let newBuffer = new ByteArrayAllocate(newSize); - targetView = new DataView(newBuffer.buffer, 0, newSize); - if (target.copy) - target.copy(newBuffer, 0, start, end); - else - newBuffer.set(target.slice(start, end)); - position -= start; - start = 0; - safeEnd = newBuffer.length - 10; - return target = newBuffer - }; - } - useBuffer(buffer) { - // this means we are finished using our own buffer and we can write over it safely - target = buffer; - targetView = new DataView(target.buffer, target.byteOffset, target.byteLength); - position = 0; - } - } - - function writeArrayHeader(length) { - if (length < 0x100) { - target[position++] = 0x98; - target[position++] = length; - } else if (length < 0x10000) { - target[position++] = 0x99; - target[position++] = length >> 8; - target[position++] = length & 0xff; - } else { - target[position++] = 0x9a; - targetView.setUint32(position, length); - position += 4; - } - } - - extensionClasses = [ Date, Set, Error, RegExp, ArrayBuffer, ByteArray, - Uint8Array, Uint8ClampedArray, Uint16Array, Uint32Array, BigUint64Array, Int8Array, Int16Array, Int32Array, BigInt64Array, - Float32Array, Float64Array]; - - //Object.getPrototypeOf(Uint8Array.prototype).constructor /*TypedArray*/ - extensions = [{ - tag: 1, - encode(date, encode) { - let seconds = date.getTime() / 1000; - if ((this.useTimestamp32 || date.getMilliseconds() === 0) && seconds >= 0 && seconds < 0x100000000) { - // Timestamp 32 - target[position++] = 0x1a; - targetView.setUint32(position, seconds); - position += 4; - } else { - // Timestamp float64 - target[position++] = 0xfb; - targetView.setFloat64(position, seconds); - position += 8; - } - } - }, { - tag: 258, // https://github.com/input-output-hk/cbor-sets-spec/blob/master/CBOR_SETS.md - encode(set, encode) { - let array = Array.from(set); - encode(array); - } - }, { - tag: 27, // http://cbor.schmorp.de/generic-object - encode(error, encode) { - encode([ error.name, error.message ]); - } - }, { - tag: 27, // http://cbor.schmorp.de/generic-object - encode(regex, encode) { - encode([ 'RegExp', regex.source, regex.flags ]); - } - }, { - encode(arrayBuffer, encode, makeRoom) { - writeBuffer(arrayBuffer, makeRoom); - } - }, { - encode(arrayBuffer, encode, makeRoom) { - writeBuffer(arrayBuffer, makeRoom); - } - }, typedArrayEncoder(64), - typedArrayEncoder(68), - typedArrayEncoder(69), - typedArrayEncoder(70), - typedArrayEncoder(71), - typedArrayEncoder(72), - typedArrayEncoder(77), - typedArrayEncoder(78), - typedArrayEncoder(79), - typedArrayEncoder(81), - typedArrayEncoder(82)]; - - function typedArrayEncoder(tag) { - return { - tag: tag, - encode: function writeExtBuffer(typedArray, encode) { - let length = typedArray.byteLength; - let offset = typedArray.byteOffset || 0; - let buffer = typedArray.buffer || typedArray; - encode(hasNodeBuffer ? Buffer.from(buffer, offset, length) : - new Uint8Array(buffer, offset, length)); - } - } - } - function writeBuffer(buffer, makeRoom) { - let length = buffer.byteLength; - if (length < 0x18) { - target[position++] = 0x40 + length; - } else if (length < 0x100) { - target[position++] = 0x58; - target[position++] = length; - } else if (length < 0x10000) { - target[position++] = 0x59; - target[position++] = length >> 8; - target[position++] = length & 0xff; - } else { - target[position++] = 0x5a; - targetView.setUint32(position, length); - position += 4; - } - if (position + length >= target.length) { - makeRoom(position + length); - } - target.set(buffer, position); - position += length; - } - - function insertIds(serialized, idsToInsert) { - // insert the ids that need to be referenced for structured clones - let nextId; - let distanceToMove = idsToInsert.length * 8; - let lastEnd = serialized.length - distanceToMove; - idsToInsert.sort((a, b) => a.offset > b.offset ? 1 : -1); - while (nextId = idsToInsert.pop()) { - let offset = nextId.offset; - let id = nextId.id; - serialized.copyWithin(offset + distanceToMove, offset, lastEnd); - distanceToMove -= 8; - let position = offset + distanceToMove; - serialized[position++] = 0xd9; - serialized[position++] = 40009 >> 8; - serialized[position++] = 40009 & 0xff; - serialized[position++] = 0x1a; // uint32 - serialized[position++] = id >> 24; - serialized[position++] = (id >> 16) & 0xff; - serialized[position++] = (id >> 8) & 0xff; - serialized[position++] = id & 0xff; - lastEnd = offset; - } - return serialized - } - - function addExtension(extension) { - if (extension.Class) { - if (!extension.encode) - throw new Error('Extension has no encode function') - extensionClasses.unshift(extension.Class); - extensions.unshift(extension); - } - addExtension$1(extension); - } - let defaultEncoder = new Encoder({ useRecords: false }); + function addExtension(extension) { + if (extension.Class) { + if (!extension.encode) + throw new Error('Extension has no encode function') + extensionClasses.unshift(extension.Class); + extensions.unshift(extension); + } + addExtension$1(extension); + } + let defaultEncoder = new Encoder({ useRecords: false }); defaultEncoder.encode; + defaultEncoder.encodeAsIterable; + defaultEncoder.encodeAsAsyncIterable; + const REUSE_BUFFER_MODE = 512; + const RESET_BUFFER_MODE = 1024; + const THROW_ON_ITERABLE = 2048; var lzjbPack = {}; @@ -4979,12 +5775,12 @@ * * * - * LIPS is Pretty Simple - Scheme based Powerful LISP in JavaScript + * LIPS is Pretty Simple - Scheme based powerful LISP in JavaScript * * Copyright (c) 2018-2021 Jakub T. Jankiewicz * Released under the MIT license * - * includes: + * Includes: * * ucs2decode function from Punycode v 2.1.1 by Mathias Bynens MIT License * @@ -5003,7 +5799,7 @@ * The rationalize algorithm is by Per M.A. Bothner, Alan Bawden and Marc Feeley. * source: Kawa, C-Gambit * - * Build time: Mon, 15 Nov 2021 19:33:52 +0000 + * Build time: Wed, 22 Nov 2023 13:53:23 +0000 */ var _excluded = ["token"], _excluded2 = ["stderr", "stdin", "stdout", "command_line"]; @@ -5018,9 +5814,14 @@ function _arrayLikeToArray(arr, len) { if (len == null || len > arr.length) len = arr.length; for (var i = 0, arr2 = new Array(len); i < len; i++) { arr2[i] = arr[i]; } return arr2; } - function ownKeys(object, enumerableOnly) { var keys = Object.keys(object); if (Object.getOwnPropertySymbols) { var symbols = Object.getOwnPropertySymbols(object); if (enumerableOnly) { symbols = symbols.filter(function (sym) { return Object.getOwnPropertyDescriptor(object, sym).enumerable; }); } keys.push.apply(keys, symbols); } return keys; } + function ownKeys(object, enumerableOnly) { var keys = Object.keys(object); if (Object.getOwnPropertySymbols) { var symbols = Object.getOwnPropertySymbols(object); enumerableOnly && (symbols = symbols.filter(function (sym) { return Object.getOwnPropertyDescriptor(object, sym).enumerable; })), keys.push.apply(keys, symbols); } return keys; } + + function _objectSpread(target) { for (var i = 1; i < arguments.length; i++) { var source = null != arguments[i] ? arguments[i] : {}; i % 2 ? ownKeys(Object(source), !0).forEach(function (key) { _defineProperty(target, key, source[key]); }) : Object.getOwnPropertyDescriptors ? Object.defineProperties(target, Object.getOwnPropertyDescriptors(source)) : ownKeys(Object(source)).forEach(function (key) { Object.defineProperty(target, key, Object.getOwnPropertyDescriptor(source, key)); }); } return target; } + + function _asyncIterator(iterable) { var method, async, sync, retry = 2; for ("undefined" != typeof Symbol && (async = Symbol.asyncIterator, sync = Symbol.iterator); retry--;) { if (async && null != (method = iterable[async])) return method.call(iterable); if (sync && null != (method = iterable[sync])) return new AsyncFromSyncIterator(method.call(iterable)); async = "@@asyncIterator", sync = "@@iterator"; } throw new TypeError("Object is not async iterable"); } + + function AsyncFromSyncIterator(s) { function AsyncFromSyncIteratorContinuation(r) { if (Object(r) !== r) return Promise.reject(new TypeError(r + " is not an object.")); var done = r.done; return Promise.resolve(r.value).then(function (value) { return { value: value, done: done }; }); } return AsyncFromSyncIterator = function AsyncFromSyncIterator(s) { this.s = s, this.n = s.next; }, AsyncFromSyncIterator.prototype = { s: null, n: null, next: function next() { return AsyncFromSyncIteratorContinuation(this.n.apply(this.s, arguments)); }, "return": function _return(value) { var ret = this.s["return"]; return void 0 === ret ? Promise.resolve({ value: value, done: !0 }) : AsyncFromSyncIteratorContinuation(ret.apply(this.s, arguments)); }, "throw": function _throw(value) { var thr = this.s["return"]; return void 0 === thr ? Promise.reject(value) : AsyncFromSyncIteratorContinuation(thr.apply(this.s, arguments)); } }, new AsyncFromSyncIterator(s); } - function _objectSpread(target) { for (var i = 1; i < arguments.length; i++) { var source = arguments[i] != null ? arguments[i] : {}; if (i % 2) { ownKeys(Object(source), true).forEach(function (key) { _defineProperty(target, key, source[key]); }); } else if (Object.getOwnPropertyDescriptors) { Object.defineProperties(target, Object.getOwnPropertyDescriptors(source)); } else { ownKeys(Object(source)).forEach(function (key) { Object.defineProperty(target, key, Object.getOwnPropertyDescriptor(source, key)); }); } } return target; } var root = typeof global !== 'undefined' ? global : self; if (!root.fetch) { @@ -5140,7 +5941,7 @@ /* eslint-enable */ /* eslint-disable max-len */ - // functions generate regexes to match number rational, integer, complex, complex+ratioanl + // functions generate regexes to match number rational, integer, complex, complex+rational function num_mnemicic_re(mnemonic) { @@ -5271,7 +6072,7 @@ var character_symbols = Object.keys(characters).join('|'); var char_sre_re = "#\\\\(?:x[0-9a-f]+|".concat(character_symbols, "|[\\s\\S])"); - var char_re = new RegExp("^".concat(char_sre_re, "$"), 'i'); // complex with (int) (float) (rational) + var char_re = new RegExp("^".concat(char_sre_re, "$"), 'i'); // Complex with (int) (float) (rational) function make_num_stre(fn) { var ranges = [['o', '[0-7]'], ['x', '[0-9a-fA-F]'], ['b', '[01]'], ['d', '[0-9]'], ['', '[0-9]']]; // float exception that don't accept mnemonics @@ -5510,7 +6311,7 @@ if (is_int(value) && parse.number.match(/e\+?[0-9]/i)) { return LNumber(value); - } // calculate big int and big fration by hand - it don't fit into JS float + } // calculate big int and big fraction by hand - it don't fit into JS float var _parse_big_int = parse_big_int(parse.number), @@ -5556,7 +6357,8 @@ try { return LString(JSON.parse(string)); } catch (e) { - throw new Error('Invalid string literal'); + var msg = e.message.replace(/in JSON /, '').replace(/.*Error: /, ''); + throw new Error("Invalid string literal: ".concat(msg)); } } // ---------------------------------------------------------------------- @@ -5819,7 +6621,7 @@ return tokens; } // ---------------------------------------------------------------------- - // detect if object is ES6 Symbol that work with polyfills + // Detect if object is ES6 Symbol that work with polyfills // ---------------------------------------------------------------------- @@ -5948,7 +6750,7 @@ return with_props(count, Symbol("#:g".concat(count))); }; }(); // ---------------------------------------------------------------------- - // class used to escape promises feature #54 + // Class used to escape promises: feature #54 // ---------------------------------------------------------------------- @@ -6089,13 +6891,13 @@ SPLICE: Symbol["for"]('splice'), SYMBOL: Symbol["for"]('symbol'), names: function names() { - return Object.keys(this._specials); + return Object.keys(this.__list__); }, type: function type(name) { return this.get(name).type; }, get: function get(name) { - return this._specials[name]; + return this.__list__[name]; }, // events are used in Lexer dynamic rules off: function off(name) { @@ -6108,9 +6910,9 @@ return _this2.off(name, fn); }); } else if (fn === null) { - delete this._events[name]; + delete this.__events__[name]; } else { - this._events = this._events.filter(function (test) { + this.__events__ = this.__events__.filter(function (test) { return test !== fn; }); } @@ -6122,10 +6924,10 @@ name.forEach(function (name) { return _this3.on(name, fn); }); - } else if (!this._events[name]) { - this._events[name] = [fn]; + } else if (!this.__events__[name]) { + this.__events__[name] = [fn]; } else { - this._events[name].push(fn); + this.__events__[name].push(fn); } }, trigger: function trigger(name) { @@ -6133,26 +6935,26 @@ args[_key2 - 1] = arguments[_key2]; } - if (this._events[name]) { - this._events[name].forEach(function (fn) { + if (this.__events__[name]) { + this.__events__[name].forEach(function (fn) { return fn.apply(void 0, args); }); } }, remove: function remove(name) { this.trigger('remove'); - delete this._specials[name]; + delete this.__list__[name]; }, append: function append(name, value, type) { this.trigger('append'); - this._specials[name] = { + this.__list__[name] = { seq: name, symbol: value, type: type }; }, - _events: {}, - _specials: {} + __events__: {}, + __list__: {} }; function is_special(token) { @@ -6160,7 +6962,7 @@ } function is_builtin(token) { - return specials.builtin.includes(token); + return specials.__builtins__.includes(token); } function is_literal(special) { @@ -6169,11 +6971,13 @@ var defined_specials = [["'", new LSymbol('quote'), specials.LITERAL], ['`', new LSymbol('quasiquote'), specials.LITERAL], [',@', new LSymbol('unquote-splicing'), specials.LITERAL], [',', new LSymbol('unquote'), specials.LITERAL], ["'>", new LSymbol('quote-promise'), specials.LITERAL]]; - Object.defineProperty(specials, 'builtin', { + var builtins = defined_specials.map(function (arr) { + return arr[0]; + }); + Object.freeze(builtins); + Object.defineProperty(specials, '__builtins__', { writable: false, - value: defined_specials.map(function (arr) { - return arr[0]; - }) + value: builtins }); defined_specials.forEach(function (_ref5) { var _ref6 = _slicedToArray(_ref5, 3), @@ -6384,7 +7188,7 @@ state = _rule[3]; if (rule.length !== 5) { - throw new Error("Lexer: Invald rule of length ".concat(rule.length)); + throw new Error("Lexer: Invalid rule of length ".concat(rule.length)); } if (!_char4.match(re)) { @@ -6424,7 +7228,7 @@ var newline = this._newline; if (this._state === null) { - // keep beging of newline to calculate col + // keep beginning of the newline to calculate col // we don't want to check inside the token (e.g. strings) this._newline = i + 1; } @@ -6434,7 +7238,7 @@ this._col = this._i - newline; return true; } - } // skip leadning spaces + } // skip leading spaces if (start && this._state === null && _char5.match(/\s/)) { @@ -6466,7 +7270,7 @@ "char": _char5, next_char: next_char })) { - // change state to null is end of the token + // change state to null if end of the token var next_state = rule[rule.length - 1]; this._state = next_state; @@ -6509,7 +7313,7 @@ var rules = Lexer.literal_rule(string, symbol, Lexer.boundary, /\S/); return rules.concat([[/\S/, /\S/, Lexer.boundary, null, null], [/\S/, /\S/, null, null, Lexer.symbol], [/\S/, null, Lexer.boundary, Lexer.symbol, null]]); }; // ---------------------------------------------------------------------- - // state rule for literal symbol + // State rule for literal symbol // ---------------------------------------------------------------------- @@ -6552,9 +7356,11 @@ Lexer.string = Symbol["for"]('string'); + Lexer.string_escape = Symbol["for"]('string_escape'); Lexer.symbol = Symbol["for"]('symbol'); Lexer.comment = Symbol["for"]('comment'); Lexer.regex = Symbol["for"]('regex'); + Lexer.regex_init = Symbol["for"]('regex_init'); Lexer.regex_class = Symbol["for"]('regex_class'); Lexer.character = Symbol["for"]('character'); Lexer.bracket = Symbol["for"]('bracket'); @@ -6569,11 +7375,11 @@ Lexer._rules = [// char_re prev_re next_re from_state to_state // null as to_state mean that is single char token // string - [/"/, /^$|[^\\]/, null, null, Lexer.string], [/"/, /^$|[^\\]/, null, Lexer.string, null], // hash special symbols, lexer don't need to distingiush those + [/"/, null, null, Lexer.string, null], [/"/, null, null, null, Lexer.string], [/"/, null, null, Lexer.string_escape, Lexer.string], [/\\/, null, null, Lexer.string, Lexer.string_escape], [/./, /\\/, null, Lexer.string_escape, Lexer.string], // hash special symbols, lexer don't need to distinguish those // we only care if it's not pick up by vectors literals [/#/, null, /[bdxoeitf]/i, null, Lexer.symbol], // characters [/#/, null, /\\/, null, Lexer.character], [/\\/, /#/, /\s/, Lexer.character, Lexer.character], [/\\/, /#/, /[()[\]]/, Lexer.character, Lexer.character], [/\s/, /\\/, null, Lexer.character, null], [/\S/, null, Lexer.boundary, Lexer.character, null], // regex - [/#/, Lexer.boundary, /\//, null, Lexer.regex], [/[ \t]/, null, null, Lexer.regex, Lexer.regex], [/\[/, null, null, Lexer.regex, Lexer.regex_class], [/\]/, /[^\\]/, null, Lexer.regex_class, Lexer.regex], [/[()[\]]/, null, null, Lexer.regex, Lexer.regex], [/\//, /\\/, null, Lexer.regex, Lexer.regex], [/\//, /[^#]/, Lexer.boundary, Lexer.regex, null], [/[gimyus]/, /\//, Lexer.boundary, Lexer.regex, null], [/[gimyus]/, /\//, /[gimyus]/, Lexer.regex, Lexer.regex], [/[gimyus]/, /[gimyus]/, Lexer.boundary, Lexer.regex, null], // comment + [/#/, Lexer.boundary, /\//, null, Lexer.regex_init], [/./, /\//, null, Lexer.regex_init, Lexer.regex], [/[ \t]/, null, null, Lexer.regex, Lexer.regex], [/\[/, null, null, Lexer.regex, Lexer.regex_class], [/\]/, /[^\\]/, null, Lexer.regex_class, Lexer.regex], [/[()[\]]/, null, null, Lexer.regex, Lexer.regex], [/\//, /\\/, null, Lexer.regex, Lexer.regex], [/\//, /[^#]/, Lexer.boundary, Lexer.regex, null], [/[gimyus]/, /\//, Lexer.boundary, Lexer.regex, null], [/[gimyus]/, /\//, /[gimyus]/, Lexer.regex, Lexer.regex], [/[gimyus]/, /[gimyus]/, Lexer.boundary, Lexer.regex, null], // comment [/;/, /^$|[^#]/, null, null, Lexer.comment], [/[\s\S]/, null, /\n/, Lexer.comment, null], [/\s/, null, null, Lexer.comment, Lexer.comment], // block comment [/#/, null, /\|/, null, Lexer.b_comment], [/\s/, null, null, Lexer.b_comment, Lexer.b_comment], [/#/, /\|/, null, Lexer.b_comment, null], // inline commentss [/#/, null, /;/, null, Lexer.i_comment], [/;/, /#/, null, Lexer.i_comment, null], // datum label @@ -6586,8 +7392,8 @@ // ---------------------------------------------------------------------- Lexer._symbol_rules = [[/\S/, Lexer.boundary, Lexer.boundary, null, null], [/\S/, Lexer.boundary, null, null, Lexer.symbol], [/\S/, null, Lexer.boundary, null, null], [/\S/, null, null, null, Lexer.symbol], [/\S/, null, Lexer.boundary, Lexer.symbol, null]]; // ---------------------------------------------------------------------- - // :: dynamic getter or Lexer state rules, parser use this - // :: so in fact user code can modify lexer using syntax extensions + // :: Dynamic getter or Lexer state rules, parser uses this + // :: so user code can modify Lexer using syntax extensions // ---------------------------------------------------------------------- Lexer._cache = { @@ -6693,72 +7499,72 @@ }, { key: "peek", value: function () { - var _peek = _asyncToGenerator( /*#__PURE__*/regenerator.mark(function _callee() { + var _peek = _asyncToGenerator( /*#__PURE__*/_regeneratorRuntime.mark(function _callee() { var token; - return regenerator.wrap(function _callee$(_context2) { + return _regeneratorRuntime.wrap(function _callee$(_context) { while (1) { - switch (_context2.prev = _context2.next) { + switch (_context.prev = _context.next) { case 0: token = this.__lexer__.peek(true); if (!(token === eof)) { - _context2.next = 4; + _context.next = 4; break; } - return _context2.abrupt("return", eof); + return _context.abrupt("return", eof); case 4: if (!this.is_comment(token.token)) { - _context2.next = 7; + _context.next = 7; break; } this.skip(); - return _context2.abrupt("continue", 0); + return _context.abrupt("continue", 0); case 7: if (!(token.token === '#;')) { - _context2.next = 14; + _context.next = 14; break; } this.skip(); if (!(this.__lexer__.peek() === eof)) { - _context2.next = 11; + _context.next = 11; break; } throw new Error('Lexer: syntax error eof found after comment'); case 11: - _context2.next = 13; + _context.next = 13; return this._read_object(); case 13: - return _context2.abrupt("continue", 0); + return _context.abrupt("continue", 0); case 14: - return _context2.abrupt("break", 17); + return _context.abrupt("break", 17); case 17: token = this._formatter(token); if (!this._meta) { - _context2.next = 20; + _context.next = 20; break; } - return _context2.abrupt("return", token); + return _context.abrupt("return", token); case 20: - return _context2.abrupt("return", token.token); + return _context.abrupt("return", token.token); case 21: case "end": - return _context2.stop(); + return _context.stop(); } } }, _callee, this); @@ -6783,23 +7589,23 @@ }, { key: "read", value: function () { - var _read = _asyncToGenerator( /*#__PURE__*/regenerator.mark(function _callee2() { + var _read = _asyncToGenerator( /*#__PURE__*/_regeneratorRuntime.mark(function _callee2() { var token; - return regenerator.wrap(function _callee2$(_context3) { + return _regeneratorRuntime.wrap(function _callee2$(_context2) { while (1) { - switch (_context3.prev = _context3.next) { + switch (_context2.prev = _context2.next) { case 0: - _context3.next = 2; + _context2.next = 2; return this.peek(); case 2: - token = _context3.sent; + token = _context2.sent; this.skip(); - return _context3.abrupt("return", token); + return _context2.abrupt("return", token); case 5: case "end": - return _context3.stop(); + return _context2.stop(); } } }, _callee2, this); @@ -6848,62 +7654,62 @@ }, { key: "read_list", value: function () { - var _read_list = _asyncToGenerator( /*#__PURE__*/regenerator.mark(function _callee3() { + var _read_list = _asyncToGenerator( /*#__PURE__*/_regeneratorRuntime.mark(function _callee3() { var head, prev, token, cur; - return regenerator.wrap(function _callee3$(_context4) { + return _regeneratorRuntime.wrap(function _callee3$(_context3) { while (1) { - switch (_context4.prev = _context4.next) { + switch (_context3.prev = _context3.next) { case 0: head = _nil, prev = head; case 1: - _context4.next = 4; + _context3.next = 4; return this.peek(); case 4: - token = _context4.sent; + token = _context3.sent; if (!(token === eof)) { - _context4.next = 7; + _context3.next = 7; break; } - return _context4.abrupt("break", 27); + return _context3.abrupt("break", 27); case 7: if (!this.is_close(token)) { - _context4.next = 10; + _context3.next = 10; break; } this.skip(); - return _context4.abrupt("break", 27); + return _context3.abrupt("break", 27); case 10: if (!(token === '.' && head !== _nil)) { - _context4.next = 17; + _context3.next = 17; break; } this.skip(); - _context4.next = 14; + _context3.next = 14; return this._read_object(); case 14: - prev.cdr = _context4.sent; - _context4.next = 25; + prev.cdr = _context3.sent; + _context3.next = 25; break; case 17: - _context4.t0 = Pair; - _context4.next = 20; + _context3.t0 = Pair; + _context3.next = 20; return this._read_object(); case 20: - _context4.t1 = _context4.sent; - _context4.t2 = _nil; - cur = new _context4.t0(_context4.t1, _context4.t2); + _context3.t1 = _context3.sent; + _context3.t2 = _nil; + cur = new _context3.t0(_context3.t1, _context3.t2); if (head === _nil) { head = cur; @@ -6914,15 +7720,15 @@ prev = cur; case 25: - _context4.next = 1; + _context3.next = 1; break; case 27: - return _context4.abrupt("return", head); + return _context3.abrupt("return", head); case 28: case "end": - return _context4.stop(); + return _context3.stop(); } } }, _callee3, this); @@ -6937,31 +7743,31 @@ }, { key: "read_value", value: function () { - var _read_value = _asyncToGenerator( /*#__PURE__*/regenerator.mark(function _callee4() { + var _read_value = _asyncToGenerator( /*#__PURE__*/_regeneratorRuntime.mark(function _callee4() { var token; - return regenerator.wrap(function _callee4$(_context5) { + return _regeneratorRuntime.wrap(function _callee4$(_context4) { while (1) { - switch (_context5.prev = _context5.next) { + switch (_context4.prev = _context4.next) { case 0: - _context5.next = 2; + _context4.next = 2; return this.read(); case 2: - token = _context5.sent; + token = _context4.sent; if (!(token === eof)) { - _context5.next = 5; + _context4.next = 5; break; } throw new Error('Parser: Expected token eof found'); case 5: - return _context5.abrupt("return", parse_argument(token)); + return _context4.abrupt("return", parse_argument(token)); case 6: case "end": - return _context5.stop(); + return _context4.stop(); } } }, _callee4, this); @@ -6992,36 +7798,36 @@ }, { key: "read_object", value: function () { - var _read_object2 = _asyncToGenerator( /*#__PURE__*/regenerator.mark(function _callee5() { + var _read_object2 = _asyncToGenerator( /*#__PURE__*/_regeneratorRuntime.mark(function _callee5() { var object; - return regenerator.wrap(function _callee5$(_context6) { + return _regeneratorRuntime.wrap(function _callee5$(_context5) { while (1) { - switch (_context6.prev = _context6.next) { + switch (_context5.prev = _context5.next) { case 0: this.reset(); - _context6.next = 3; + _context5.next = 3; return this._read_object(); case 3: - object = _context6.sent; + object = _context5.sent; if (object instanceof DatumReference) { object = object.valueOf(); } if (!this._refs.length) { - _context6.next = 7; + _context5.next = 7; break; } - return _context6.abrupt("return", this._resolve_object(object)); + return _context5.abrupt("return", this._resolve_object(object)); case 7: - return _context6.abrupt("return", object); + return _context5.abrupt("return", object); case 8: case "end": - return _context6.stop(); + return _context5.stop(); } } }, _callee5, this); @@ -7034,8 +7840,8 @@ return read_object; }() }, { - key: "ballanced", - value: function ballanced() { + key: "balanced", + value: function balanced() { return this._state.parentheses === 0; } }, { @@ -7050,26 +7856,26 @@ }, { key: "_resolve_object", value: function () { - var _resolve_object2 = _asyncToGenerator( /*#__PURE__*/regenerator.mark(function _callee6(object) { + var _resolve_object2 = _asyncToGenerator( /*#__PURE__*/_regeneratorRuntime.mark(function _callee6(object) { var _this5 = this; var result; - return regenerator.wrap(function _callee6$(_context7) { + return _regeneratorRuntime.wrap(function _callee6$(_context6) { while (1) { - switch (_context7.prev = _context7.next) { + switch (_context6.prev = _context6.next) { case 0: if (!Array.isArray(object)) { - _context7.next = 2; + _context6.next = 2; break; } - return _context7.abrupt("return", object.map(function (item) { + return _context6.abrupt("return", object.map(function (item) { return _this5._resolve_object(item); })); case 2: if (!is_plain_object(object)) { - _context7.next = 6; + _context6.next = 6; break; } @@ -7077,22 +7883,22 @@ Object.keys(object).forEach(function (key) { result[key] = _this5._resolve_object(object[key]); }); - return _context7.abrupt("return", result); + return _context6.abrupt("return", result); case 6: if (!(object instanceof Pair)) { - _context7.next = 8; + _context6.next = 8; break; } - return _context7.abrupt("return", this._resolve_pair(object)); + return _context6.abrupt("return", this._resolve_pair(object)); case 8: - return _context7.abrupt("return", object); + return _context6.abrupt("return", object); case 9: case "end": - return _context7.stop(); + return _context6.stop(); } } }, _callee6, this); @@ -7107,27 +7913,27 @@ }, { key: "_resolve_pair", value: function () { - var _resolve_pair2 = _asyncToGenerator( /*#__PURE__*/regenerator.mark(function _callee7(pair) { - return regenerator.wrap(function _callee7$(_context8) { + var _resolve_pair2 = _asyncToGenerator( /*#__PURE__*/_regeneratorRuntime.mark(function _callee7(pair) { + return _regeneratorRuntime.wrap(function _callee7$(_context7) { while (1) { - switch (_context8.prev = _context8.next) { + switch (_context7.prev = _context7.next) { case 0: if (!(pair instanceof Pair)) { - _context8.next = 15; + _context7.next = 15; break; } if (!(pair.car instanceof DatumReference)) { - _context8.next = 7; + _context7.next = 7; break; } - _context8.next = 4; + _context7.next = 4; return pair.car.valueOf(); case 4: - pair.car = _context8.sent; - _context8.next = 8; + pair.car = _context7.sent; + _context7.next = 8; break; case 7: @@ -7135,27 +7941,27 @@ case 8: if (!(pair.cdr instanceof DatumReference)) { - _context8.next = 14; + _context7.next = 14; break; } - _context8.next = 11; + _context7.next = 11; return pair.cdr.valueOf(); case 11: - pair.cdr = _context8.sent; - _context8.next = 15; + pair.cdr = _context7.sent; + _context7.next = 15; break; case 14: this._resolve_pair(pair.cdr); case 15: - return _context8.abrupt("return", pair); + return _context7.abrupt("return", pair); case 16: case "end": - return _context8.stop(); + return _context7.stop(); } } }, _callee7, this); @@ -7170,164 +7976,172 @@ }, { key: "_read_object", value: function () { - var _read_object3 = _asyncToGenerator( /*#__PURE__*/regenerator.mark(function _callee8() { - var token, special, bultin, expr, object, extension, result, ref, ref_label; - return regenerator.wrap(function _callee8$(_context9) { + var _read_object3 = _asyncToGenerator( /*#__PURE__*/_regeneratorRuntime.mark(function _callee8() { + var token, special, builtin, expr, object, extension, result, ref, ref_label; + return _regeneratorRuntime.wrap(function _callee8$(_context8) { while (1) { - switch (_context9.prev = _context9.next) { + switch (_context8.prev = _context8.next) { case 0: - _context9.next = 2; + _context8.next = 2; return this.peek(); case 2: - token = _context9.sent; + token = _context8.sent; if (!(token === eof)) { - _context9.next = 5; + _context8.next = 5; break; } - return _context9.abrupt("return", token); + return _context8.abrupt("return", token); case 5: if (!is_special(token)) { - _context9.next = 35; + _context8.next = 39; break; } - // bultin parser extensions are mapping short symbol to longer symbol - // that can be function or macro, parser don't care - // if it's not bultin then the extension can be macro or function - // FUNCTION: when it's used it get arguments like FEXPR and - // result is returned by parser as is - // MACRO: if macros are used they are evaluated in place and - // result is returned by parser but they are quoted + // Built-in parser extensions are mapping short symbols to longer symbols + // that can be function or macro. Parser doesn't care + // if it's not built-in and the extension can be macro or function. + // FUNCTION: when it's used, it gets arguments like FEXPR and the + // result is returned by parser as is the macro. + // MACRO: if macro is used, then it is evaluated in place and the + // result is returned by parser and it is quoted. special = specials.get(token); - bultin = is_builtin(token); + builtin = is_builtin(token); this.skip(); - _context9.next = 11; + _context8.next = 11; return this._read_object(); case 11: - object = _context9.sent; + object = _context8.sent; - if (bultin) { - _context9.next = 22; + if (builtin) { + _context8.next = 26; break; } extension = this.__env__.get(special.symbol); if (!(typeof extension === 'function')) { - _context9.next = 22; + _context8.next = 26; break; } if (!is_literal(token)) { - _context9.next = 19; + _context8.next = 19; break; } - return _context9.abrupt("return", extension.call(this.__env__, object)); + return _context8.abrupt("return", extension.call(this.__env__, object)); case 19: + if (!(object === _nil)) { + _context8.next = 23; + break; + } + + return _context8.abrupt("return", extension.apply(this.__env__)); + + case 23: if (!(object instanceof Pair)) { - _context9.next = 21; + _context8.next = 25; break; } - return _context9.abrupt("return", extension.apply(this.__env__, object.to_array(false))); + return _context8.abrupt("return", extension.apply(this.__env__, object.to_array(false))); - case 21: + case 25: throw new Error('Parse Error: Invalid parser extension ' + "invocation ".concat(special.symbol)); - case 22: + case 26: if (is_literal(token)) { expr = new Pair(special.symbol, new Pair(object, _nil)); } else { expr = new Pair(special.symbol, object); - } // builtin parser extensions just expand into lists like 'x ==> (quote x) + } // Built-in parser extensions just expand into lists like 'x ==> (quote x) - if (!bultin) { - _context9.next = 25; + if (!builtin) { + _context8.next = 29; break; } - return _context9.abrupt("return", expr); + return _context8.abrupt("return", expr); - case 25: + case 29: if (!(extension instanceof Macro)) { - _context9.next = 34; + _context8.next = 38; break; } - _context9.next = 28; + _context8.next = 32; return this.evaluate(expr); - case 28: - result = _context9.sent; + case 32: + result = _context8.sent; if (!(result instanceof Pair || result instanceof LSymbol)) { - _context9.next = 31; + _context8.next = 35; break; } - return _context9.abrupt("return", Pair.fromArray([LSymbol('quote'), result])); + return _context8.abrupt("return", Pair.fromArray([LSymbol('quote'), result])); - case 31: - return _context9.abrupt("return", result); + case 35: + return _context8.abrupt("return", result); - case 34: - throw new Error('Parse Error: invlid parser extension: ' + special.symbol); + case 38: + throw new Error('Parse Error: invalid parser extension: ' + special.symbol); - case 35: + case 39: ref = this.match_datum_ref(token); if (!(ref !== null)) { - _context9.next = 41; + _context8.next = 45; break; } this.skip(); if (!this._refs[ref]) { - _context9.next = 40; + _context8.next = 44; break; } - return _context9.abrupt("return", new DatumReference(ref, this._refs[ref])); + return _context8.abrupt("return", new DatumReference(ref, this._refs[ref])); - case 40: + case 44: throw new Error("Parse Error: invalid datum label #".concat(ref, "#")); - case 41: + case 45: ref_label = this.match_datum_label(token); if (!(ref_label !== null)) { - _context9.next = 48; + _context8.next = 52; break; } this.skip(); this._refs[ref_label] = this._read_object(); - return _context9.abrupt("return", this._refs[ref_label]); + return _context8.abrupt("return", this._refs[ref_label]); - case 48: + case 52: if (!this.is_open(token)) { - _context9.next = 53; + _context8.next = 57; break; } this.skip(); - return _context9.abrupt("return", this.read_list()); + return _context8.abrupt("return", this.read_list()); - case 53: - return _context9.abrupt("return", this.read_value()); + case 57: + return _context8.abrupt("return", this.read_value()); - case 54: + case 58: case "end": - return _context9.stop(); + return _context8.stop(); } } }, _callee8, this); @@ -7343,7 +8157,7 @@ return Parser; }(); // ---------------------------------------------------------------------- - // :: parser helper that allow to handle circular list structures + // :: Parser helper that handles circular list structures // :: using datum labels // ---------------------------------------------------------------------- @@ -7365,11 +8179,11 @@ return DatumReference; }(); // ---------------------------------------------------------------------- - // :: tokens are the array of strings from tokenizer - // :: the return value is array of lisp code created out of Pair class + // :: Tokens are the array of strings from tokenizer + // :: the return value is an array of lips code created out of Pair class. // :: env is needed for parser extensions that will invoke the function // :: or macro assigned to symbol, this function is async because - // :: it evaluate the code, from parser extensions, that may return promise + // :: it evaluates the code, from parser extensions, that may return a promise. // ---------------------------------------------------------------------- @@ -7379,11 +8193,11 @@ function _parse() { - _parse = _wrapAsyncGenerator( /*#__PURE__*/regenerator.mark(function _callee9(arg, env) { + _parse = _wrapAsyncGenerator( /*#__PURE__*/_regeneratorRuntime.mark(function _callee9(arg, env) { var parser, expr; - return regenerator.wrap(function _callee9$(_context10) { + return _regeneratorRuntime.wrap(function _callee9$(_context9) { while (1) { - switch (_context10.prev = _context10.next) { + switch (_context9.prev = _context9.next) { case 0: if (!env) { if (global_env) { @@ -7401,34 +8215,34 @@ case 2: - _context10.next = 5; + _context9.next = 5; return _awaitAsyncGenerator(parser.read_object()); case 5: - expr = _context10.sent; + expr = _context9.sent; - if (!parser.ballanced()) { + if (!parser.balanced()) { parser.ballancing_error(expr); } if (!(expr === eof)) { - _context10.next = 9; + _context9.next = 9; break; } - return _context10.abrupt("break", 13); + return _context9.abrupt("break", 13); case 9: - _context10.next = 11; + _context9.next = 11; return expr; case 11: - _context10.next = 2; + _context9.next = 2; break; case 13: case "end": - return _context10.stop(); + return _context9.stop(); } } }, _callee9); @@ -7530,88 +8344,95 @@ // ---------------------------------------------------------------------- - function uniterate_async(object) { - var result, _iteratorAbruptCompletion, _didIteratorError, _iteratorError, _iterator, _step, item; + function uniterate_async(_x5) { + return _uniterate_async.apply(this, arguments); + } // ---------------------------------------------------------------------- + // :: Function that return matcher function that match string against string + // ---------------------------------------------------------------------- - return regenerator.async(function uniterate_async$(_context) { - while (1) { - switch (_context.prev = _context.next) { - case 0: - result = []; - _iteratorAbruptCompletion = false; - _didIteratorError = false; - _context.prev = 3; - _iterator = _asyncIterator(object); - - case 5: - _context.next = 7; - return regenerator.awrap(_iterator.next()); - - case 7: - if (!(_iteratorAbruptCompletion = !(_step = _context.sent).done)) { - _context.next = 13; - break; - } - item = _step.value; - result.push(item); + function _uniterate_async() { + _uniterate_async = _asyncToGenerator( /*#__PURE__*/_regeneratorRuntime.mark(function _callee22(object) { + var result, _iteratorAbruptCompletion, _didIteratorError, _iteratorError, _iterator, _step, item; - case 10: - _iteratorAbruptCompletion = false; - _context.next = 5; - break; + return _regeneratorRuntime.wrap(function _callee22$(_context22) { + while (1) { + switch (_context22.prev = _context22.next) { + case 0: + result = []; + _iteratorAbruptCompletion = false; + _didIteratorError = false; + _context22.prev = 3; + _iterator = _asyncIterator(object); - case 13: - _context.next = 19; - break; + case 5: + _context22.next = 7; + return _iterator.next(); - case 15: - _context.prev = 15; - _context.t0 = _context["catch"](3); - _didIteratorError = true; - _iteratorError = _context.t0; + case 7: + if (!(_iteratorAbruptCompletion = !(_step = _context22.sent).done)) { + _context22.next = 13; + break; + } - case 19: - _context.prev = 19; - _context.prev = 20; + item = _step.value; + result.push(item); - if (!(_iteratorAbruptCompletion && _iterator["return"] != null)) { - _context.next = 24; + case 10: + _iteratorAbruptCompletion = false; + _context22.next = 5; break; - } - _context.next = 24; - return regenerator.awrap(_iterator["return"]()); + case 13: + _context22.next = 19; + break; - case 24: - _context.prev = 24; + case 15: + _context22.prev = 15; + _context22.t0 = _context22["catch"](3); + _didIteratorError = true; + _iteratorError = _context22.t0; - if (!_didIteratorError) { - _context.next = 27; - break; - } + case 19: + _context22.prev = 19; + _context22.prev = 20; - throw _iteratorError; + if (!(_iteratorAbruptCompletion && _iterator["return"] != null)) { + _context22.next = 24; + break; + } - case 27: - return _context.finish(24); + _context22.next = 24; + return _iterator["return"](); - case 28: - return _context.finish(19); + case 24: + _context22.prev = 24; - case 29: - return _context.abrupt("return", result); + if (!_didIteratorError) { + _context22.next = 27; + break; + } - case 30: - case "end": - return _context.stop(); - } - } - }, null, null, [[3, 15, 19, 29], [20,, 24, 28]], Promise); - } // ---------------------------------------------------------------------- - // :: function that return mather function that match string against string - // ---------------------------------------------------------------------- + throw _iteratorError; + + case 27: + return _context22.finish(24); + + case 28: + return _context22.finish(19); + case 29: + return _context22.abrupt("return", result); + + case 30: + case "end": + return _context22.stop(); + } + } + }, _callee22, null, [[3, 15, 19, 29], [20,, 24, 28]]); + })); + return _uniterate_async.apply(this, arguments); + } function matcher(name, arg) { if (arg instanceof RegExp) { @@ -7625,8 +8446,8 @@ throw new Error('Invalid matcher'); } // ---------------------------------------------------------------------- - // :: documentaton decorator to LIPS functions if lines starts with : - // :: they are ignored (not trim) otherwise it trim so + // :: Documentation decorator to LIPS functions if lines starts with : + // :: they are ignored (not trimmed) otherwise it trims so // :: so you can have indent in source code // ---------------------------------------------------------------------- @@ -7698,7 +8519,7 @@ return tokens.slice(i + 1); } // ---------------------------------------------------------------------- - // :: find number of spaces in line + // :: Find the number of spaces in line // ---------------------------------------------------------------------- @@ -7725,11 +8546,11 @@ return 0; } // ---------------------------------------------------------------------- - // :: token based pattern matching (used by formatter) + // :: Token based pattern matching (used by formatter) // ---------------------------------------------------------------------- /* - function nested_pattern(pattern) { + Function nested_pattern(pattern) { return pattern instanceof Array || pattern instanceof Pattern; } @@ -7908,7 +8729,7 @@ } }; Formatter.match = match; // ---------------------------------------------------------------------- - // :: return indent for next line + // :: Return indent for next line // ---------------------------------------------------------------------- Formatter.prototype._options = function _options(options) { @@ -7918,9 +8739,9 @@ return Object.assign({}, defaults); } - var exeptions = options && options.exceptions || {}; - var specials = exeptions.specials || []; - var shift = exeptions.shift || { + var exceptions = options && options.exceptions || {}; + var specials = exceptions.specials || []; + var shift = exceptions.shift || { 1: [] }; return _objectSpread(_objectSpread(_objectSpread({}, defaults), options), {}, { @@ -8022,22 +8843,22 @@ return settings.offset + sexp[0].col + 1; } else { // search for token before S-Expression for case like #(10 or &(:x - var exeption = -1; + var exception = -1; if (before_sexpr) { var shift = Formatter.exception_shift(before_sexpr.token, settings); if (shift !== -1) { - exeption = shift; + exception = shift; } } - if (exeption === -1) { - exeption = Formatter.exception_shift(sexp[1].token, settings); + if (exception === -1) { + exception = Formatter.exception_shift(sexp[1].token, settings); } - if (exeption !== -1) { - return settings.offset + sexp[0].col + exeption; + if (exception !== -1) { + return settings.offset + sexp[0].col + exception; } else if (sexp[0].line < sexp[1].line) { return settings.offset + sexp[0].col + 1; } else if (sexp.length > 3 && sexp[1].line === sexp[3].line) { @@ -8081,8 +8902,8 @@ Ahead.prototype.match = function (string) { return string.match(this.pattern); }; // ---------------------------------------------------------------------- - // Pattern have any number of patterns that is match using OR operator - // pattern is in form of array with regular expressions + // Pattern has any number of patterns that it matches using OR operator + // Pattern is in form of array with regular expressions // ---------------------------------------------------------------------- @@ -8159,7 +8980,7 @@ return tokens.length - i - 1; } } - }; // tokenize is part of the parser/lexer that split code into tokens and inclue + }; // Tokenize is part of the parser/lexer that split code into tokens and includes // meta data like number of column or line @@ -8239,7 +9060,7 @@ Formatter.prototype._spaces = function (i) { return new Array(i + 1).join(' '); }; // ---------------------------------------------------------------------- - // :: auto formatting of code, it require to have newlines + // :: Auto formatting of code, it requires to have newlines // ---------------------------------------------------------------------- @@ -8296,7 +9117,7 @@ return token.token; }).join(''); }; // ---------------------------------------------------------------------- - // :: flatten nested arrays + // :: Flatten nested arrays // :: ref: https://stackoverflow.com/a/27282907/387194 // ---------------------------------------------------------------------- @@ -8561,9 +9382,9 @@ return result; }; // ---------------------------------------------------------------------- - // by default to_object was created to create JavaScript objects, - // so it use valueOf to get native values - // literal parameter was a hack to allow create LComplex from LIPS code + // By default to_object was created to create JavaScript objects, + // so it uses valueOf to get native values. + // Literal parameter was a hack to allow creating LComplex from LIPS code // ---------------------------------------------------------------------- @@ -8754,7 +9575,7 @@ str_mapping.set(key, value); }); // ---------------------------------------------------------------------- - // :: debug function that can be used with JSON.stringify + // :: Debug function that can be used with JSON.stringify // :: that will show symbols // ---------------------------------------------------------------------- @@ -8840,7 +9661,7 @@ return '#'; } } // ---------------------------------------------------------------------- - // instances extracted to make cyclomatic complexity of toString smaller + // Instances extracted to make cyclomatic complexity of toString smaller var instances = new Map(); // ---------------------------------------------------------------------- @@ -8955,8 +9776,8 @@ var constructor = obj.constructor; if (!constructor) { - // this is case of fs.constants in Node.js that is null constructor object - // this object can be handled like normal object that have properties + // This is case of fs.constants in Node.js that is null constructor object. + // This object can be handled like normal objects that have properties constructor = Object; } @@ -9249,9 +10070,9 @@ function seq_compare(fn, args) { - var _args12 = _toArray(args), - a = _args12[0], - rest = _args12.slice(1); + var _args11 = _toArray(args), + a = _args11[0], + rest = _args11.slice(1); while (rest.length > 0) { var _rest = rest, @@ -9431,32 +10252,32 @@ function macro_expand(single) { return /*#__PURE__*/function () { - var _ref20 = _asyncToGenerator( /*#__PURE__*/regenerator.mark(function _callee12(code, args) { + var _ref20 = _asyncToGenerator( /*#__PURE__*/_regeneratorRuntime.mark(function _callee12(code, args) { var env, bindings, let_macros, lambda, define, is_let_macro, is_procedure, is_lambda, proc_bindings, let_binding, is_macro, expand_let_binding, _expand_let_binding, traverse, _traverse; - return regenerator.wrap(function _callee12$(_context13) { + return _regeneratorRuntime.wrap(function _callee12$(_context12) { while (1) { - switch (_context13.prev = _context13.next) { + switch (_context12.prev = _context12.next) { case 0: _traverse = function _traverse3() { - _traverse = _asyncToGenerator( /*#__PURE__*/regenerator.mark(function _callee11(node, n, env) { + _traverse = _asyncToGenerator( /*#__PURE__*/_regeneratorRuntime.mark(function _callee11(node, n, env) { var name, value, is_let, is_binding, second, code, result, _result, expr, scope, car, cdr, pair; - return regenerator.wrap(function _callee11$(_context12) { + return _regeneratorRuntime.wrap(function _callee11$(_context11) { while (1) { - switch (_context12.prev = _context12.next) { + switch (_context11.prev = _context11.next) { case 0: if (!(node instanceof Pair && node.car instanceof LSymbol)) { - _context12.next = 50; + _context11.next = 50; break; } if (!node[__data__]) { - _context12.next = 3; + _context11.next = 3; break; } - return _context12.abrupt("return", node); + return _context11.abrupt("return", node); case 3: name = node.car.valueOf(); @@ -9467,22 +10288,22 @@ is_binding = is_let || is_procedure(value, node) || is_lambda(value); if (!(is_binding && node.cdr.car instanceof Pair)) { - _context12.next = 28; + _context11.next = 28; break; } if (!is_let) { - _context12.next = 15; + _context11.next = 15; break; } bindings = let_binding(node.cdr.car); - _context12.next = 12; + _context11.next = 12; return expand_let_binding(node.cdr.car, n); case 12: - second = _context12.sent; - _context12.next = 17; + second = _context11.sent; + _context11.next = 17; break; case 15: @@ -9490,134 +10311,134 @@ second = node.cdr.car; case 17: - _context12.t0 = Pair; - _context12.t1 = node.car; - _context12.t2 = Pair; - _context12.t3 = second; - _context12.next = 23; + _context11.t0 = Pair; + _context11.t1 = node.car; + _context11.t2 = Pair; + _context11.t3 = second; + _context11.next = 23; return traverse(node.cdr.cdr, n, env); case 23: - _context12.t4 = _context12.sent; - _context12.t5 = new _context12.t2(_context12.t3, _context12.t4); - return _context12.abrupt("return", new _context12.t0(_context12.t1, _context12.t5)); + _context11.t4 = _context11.sent; + _context11.t5 = new _context11.t2(_context11.t3, _context11.t4); + return _context11.abrupt("return", new _context11.t0(_context11.t1, _context11.t5)); case 28: if (!is_macro(name, value)) { - _context12.next = 50; + _context11.next = 50; break; } code = value instanceof Syntax ? node : node.cdr; - _context12.next = 32; + _context11.next = 32; return value.invoke(code, _objectSpread(_objectSpread({}, args), {}, { env: env }), true); case 32: - result = _context12.sent; + result = _context11.sent; if (!(value instanceof Syntax)) { - _context12.next = 41; + _context11.next = 41; break; } _result = result, expr = _result.expr, scope = _result.scope; if (!(expr instanceof Pair)) { - _context12.next = 40; + _context11.next = 40; break; } if (!(n !== -1 && n <= 1 || n < recur_guard)) { - _context12.next = 38; + _context11.next = 38; break; } - return _context12.abrupt("return", expr); + return _context11.abrupt("return", expr); case 38: if (n !== -1) { n = n - 1; } - return _context12.abrupt("return", traverse(expr, n, scope)); + return _context11.abrupt("return", traverse(expr, n, scope)); case 40: result = expr; case 41: if (!(result instanceof LSymbol)) { - _context12.next = 43; + _context11.next = 43; break; } - return _context12.abrupt("return", quote(result)); + return _context11.abrupt("return", quote(result)); case 43: if (!(result instanceof Pair)) { - _context12.next = 48; + _context11.next = 48; break; } if (!(n !== -1 && n <= 1 || n < recur_guard)) { - _context12.next = 46; + _context11.next = 46; break; } - return _context12.abrupt("return", result); + return _context11.abrupt("return", result); case 46: if (n !== -1) { n = n - 1; } - return _context12.abrupt("return", traverse(result, n, env)); + return _context11.abrupt("return", traverse(result, n, env)); case 48: if (!is_atom(result)) { - _context12.next = 50; + _context11.next = 50; break; } - return _context12.abrupt("return", result); + return _context11.abrupt("return", result); case 50: // TODO: CYCLE DETECT car = node.car; if (!(car instanceof Pair)) { - _context12.next = 55; + _context11.next = 55; break; } - _context12.next = 54; + _context11.next = 54; return traverse(car, n, env); case 54: - car = _context12.sent; + car = _context11.sent; case 55: cdr = node.cdr; if (!(cdr instanceof Pair)) { - _context12.next = 60; + _context11.next = 60; break; } - _context12.next = 59; + _context11.next = 59; return traverse(cdr, n, env); case 59: - cdr = _context12.sent; + cdr = _context11.sent; case 60: pair = new Pair(car, cdr); - return _context12.abrupt("return", pair); + return _context11.abrupt("return", pair); case 62: case "end": - return _context12.stop(); + return _context11.stop(); } } }, _callee11); @@ -9625,45 +10446,45 @@ return _traverse.apply(this, arguments); }; - traverse = function _traverse2(_x9, _x10, _x11) { + traverse = function _traverse2(_x10, _x11, _x12) { return _traverse.apply(this, arguments); }; _expand_let_binding = function _expand_let_binding3() { - _expand_let_binding = _asyncToGenerator( /*#__PURE__*/regenerator.mark(function _callee10(node, n) { + _expand_let_binding = _asyncToGenerator( /*#__PURE__*/_regeneratorRuntime.mark(function _callee10(node, n) { var pair; - return regenerator.wrap(function _callee10$(_context11) { + return _regeneratorRuntime.wrap(function _callee10$(_context10) { while (1) { - switch (_context11.prev = _context11.next) { + switch (_context10.prev = _context10.next) { case 0: if (!(node === _nil)) { - _context11.next = 2; + _context10.next = 2; break; } - return _context11.abrupt("return", _nil); + return _context10.abrupt("return", _nil); case 2: pair = node.car; - _context11.t0 = Pair; - _context11.t1 = Pair; - _context11.t2 = pair.car; - _context11.next = 8; + _context10.t0 = Pair; + _context10.t1 = Pair; + _context10.t2 = pair.car; + _context10.next = 8; return traverse(pair.cdr, n, env); case 8: - _context11.t3 = _context11.sent; - _context11.t4 = new _context11.t1(_context11.t2, _context11.t3); - _context11.next = 12; + _context10.t3 = _context10.sent; + _context10.t4 = new _context10.t1(_context10.t2, _context10.t3); + _context10.next = 12; return expand_let_binding(node.cdr); case 12: - _context11.t5 = _context11.sent; - return _context11.abrupt("return", new _context11.t0(_context11.t4, _context11.t5)); + _context10.t5 = _context10.sent; + return _context10.abrupt("return", new _context10.t0(_context10.t4, _context10.t5)); case 14: case "end": - return _context11.stop(); + return _context10.stop(); } } }, _callee10); @@ -9671,7 +10492,7 @@ return _expand_let_binding.apply(this, arguments); }; - expand_let_binding = function _expand_let_binding2(_x7, _x8) { + expand_let_binding = function _expand_let_binding2(_x8, _x9) { return _expand_let_binding.apply(this, arguments); }; @@ -9729,50 +10550,50 @@ define = global_env.get('define'); if (!(code.cdr instanceof Pair && LNumber.isNumber(code.cdr.car))) { - _context13.next = 21; + _context12.next = 21; break; } - _context13.t0 = quote; - _context13.next = 19; + _context12.t0 = quote; + _context12.next = 19; return traverse(code, code.cdr.car.valueOf(), env); case 19: - _context13.t1 = _context13.sent.car; - return _context13.abrupt("return", (0, _context13.t0)(_context13.t1)); + _context12.t1 = _context12.sent.car; + return _context12.abrupt("return", (0, _context12.t0)(_context12.t1)); case 21: if (!single) { - _context13.next = 27; + _context12.next = 27; break; } - _context13.t2 = quote; - _context13.next = 25; + _context12.t2 = quote; + _context12.next = 25; return traverse(code, 1, env); case 25: - _context13.t3 = _context13.sent.car; - return _context13.abrupt("return", (0, _context13.t2)(_context13.t3)); + _context12.t3 = _context12.sent.car; + return _context12.abrupt("return", (0, _context12.t2)(_context12.t3)); case 27: - _context13.t4 = quote; - _context13.next = 30; + _context12.t4 = quote; + _context12.next = 30; return traverse(code, -1, env); case 30: - _context13.t5 = _context13.sent.car; - return _context13.abrupt("return", (0, _context13.t4)(_context13.t5)); + _context12.t5 = _context12.sent.car; + return _context12.abrupt("return", (0, _context12.t4)(_context12.t5)); case 32: case "end": - return _context13.stop(); + return _context12.stop(); } } }, _callee12, this); })); - return function (_x5, _x6) { + return function (_x6, _x7) { return _ref20.apply(this, arguments); }; }(); @@ -9829,7 +10650,7 @@ return _super.apply(this, arguments); } - return Parameter; + return _createClass(Parameter); }(Syntax); Syntax.Parameter = Parameter; // ---------------------------------------------------------------------- @@ -9850,7 +10671,7 @@ }; var expansion = scope.expansion, define = scope.define; // pattern_names parameter is used to distinguish - // multiple matches of ((x ...) ...) agains ((1 2 3) (1 2 3)) + // multiple matches of ((x ...) ...) against ((1 2 3) (1 2 3)) // in loop we add x to the list so we know that this is not // duplicated ellipsis symbol @@ -9877,7 +10698,8 @@ } if (pattern instanceof LSymbol && symbols.includes(pattern.literal())) { - var ref = expansion.ref(code); // shadowing the indentifier works only with lambda and let + // TODO: literal() may be SLOW + var ref = expansion.ref(code); // shadowing the identifier works only with lambda and let if (LSymbol.is(code, pattern)) { if (typeof ref === 'undefined') { @@ -10109,7 +10931,7 @@ log({ pattern: pattern.toString(), code: code.toString() - }); // case (x y) ===> (var0 var1 ... varn) where var1 match nil + }); // case (x y) ===> (var0 var1 ... warn) where var1 match nil if (pattern.cdr instanceof Pair && pattern.car instanceof LSymbol && pattern.cdr.cdr instanceof Pair && pattern.cdr.car instanceof LSymbol && LSymbol.is(pattern.cdr.cdr.car, ellipsis_symbol) && pattern.cdr.cdr.cdr instanceof Pair && !LSymbol.is(pattern.cdr.cdr.cdr.car, ellipsis_symbol) && traverse(pattern.car, code.car, pattern_names, ellipsis) && traverse(pattern.cdr.cdr.cdr, code.cdr, pattern_names, ellipsis)) { var _name6 = pattern.cdr.car.__name__; @@ -10445,7 +11267,7 @@ var _ref22 = arguments.length > 1 && arguments[1] !== undefined ? arguments[1] : {}, disabled = _ref22.disabled; - log('traverse>> ' + expr.toString()); + log('traverse>> ' + toString(expr)); if (expr instanceof Pair) { // escape ellispsis from R7RS e.g. (... ...) @@ -10699,7 +11521,8 @@ var _symbols3 = Object.keys(bindings['...'].symbols); - var _name8 = expr.literal(); + var _name8 = expr.literal(); // TODO: slow + if (_symbols3.includes(_name8)) { var msg = "missing ellipsis symbol next to name `".concat(_name8, "'"); @@ -10718,7 +11541,7 @@ return traverse(expr, {}); } // ---------------------------------------------------------------------- - // :: check for nullish values + // :: Check for nullish values // ---------------------------------------------------------------------- @@ -10763,8 +11586,8 @@ function box(object) { - // we only need to box lips data, arrays and object don't need - // to be boxed, values from objects will be boxed when accessed + // We only need to box lips data and arrays. Object don't need + // to be boxed, but values from objects will be boxed when accessed. switch (_typeof(object)) { case 'string': return LString(object); @@ -10803,7 +11626,8 @@ function unbox(object) { - var lips_type = [LString, LCharacter, LNumber].some(function (x) { + // LCharacter is unboxable #233 + var lips_type = [LString, LNumber].some(function (x) { return object instanceof x; }); @@ -10843,7 +11667,7 @@ return box(value); } // ---------------------------------------------------------------------- - // :: function get original function that was binded with props + // :: Function gets original function that was binded with props // ---------------------------------------------------------------------- @@ -10854,7 +11678,7 @@ return obj; } // ---------------------------------------------------------------------- - // :: function bind with contex that can be optionaly unbind + // :: Function binds with context that can be optionally unbind // :: get original function with unbind // ---------------------------------------------------------------------- @@ -10905,7 +11729,7 @@ return bound; } // ---------------------------------------------------------------------- - // function used to check if function should not get unboxed arguments, + // Function used to check if function should not get unboxed arguments, // so you can call Object.getPrototypeOf for lips data types // this is case, see dir function and #73 // ---------------------------------------------------------------------- @@ -10948,7 +11772,7 @@ return false; } // ---------------------------------------------------------------------- - // hidden props + // Hidden props // ---------------------------------------------------------------------- @@ -10969,7 +11793,7 @@ var __prototype__ = Symbol["for"]('__prototype__'); var __lambda__ = Symbol["for"]('__lambda__'); // ---------------------------------------------------------------------- - // :: function bind fn with context but it also move all props + // :: Function bind fn with context but it also move all props // :: mostly used for Object function // ---------------------------------------------------------------------- @@ -11085,7 +11909,7 @@ return Pair.fromArray([LSymbol('letrec'), [[code.car, Pair(LSymbol('lambda'), Pair(params, code.cdr.cdr))]], Pair(code.car, args)]); } else if (macro_expand) { - // Macro.defmacro are special macros that should return lisp code + // Macro.defmacro are special macros that should return lips code // here we use evaluate, so we need to check special flag set by // macroexpand to prevent evaluation of code in normal let return; @@ -11295,7 +12119,7 @@ function limit_math_op(n, fn) { - // + 1 so it inlcude function in guard_math_call + // + 1 so it include function in guard_math_call return limit(n + 1, curry(guard_math_call, fn)); } // ------------------------------------------------------------------------- // :: some functional magic @@ -11361,7 +12185,7 @@ return fn.apply(void 0, _toConsumableArray(args.slice(0, n))); }; } // ------------------------------------------------------------------------- - // :: character object representation + // :: Character object representation // ------------------------------------------------------------------------- @@ -11385,7 +12209,7 @@ _char7 = LCharacter.__names__[_char7]; } else { // this should never happen - // parser don't alow not defined named characters + // parser don't allow not defined named characters throw new Error('Internal: Unknown named character'); } } else { @@ -11477,6 +12301,38 @@ _iterator11.f(); } } + LString.prototype[Symbol.iterator] = /*#__PURE__*/_regeneratorRuntime.mark(function _callee13() { + var chars, _i4, _chars, _char8; + + return _regeneratorRuntime.wrap(function _callee13$(_context13) { + while (1) { + switch (_context13.prev = _context13.next) { + case 0: + chars = Array.from(this.__string__); + _i4 = 0, _chars = chars; + + case 2: + if (!(_i4 < _chars.length)) { + _context13.next = 9; + break; + } + + _char8 = _chars[_i4]; + _context13.next = 6; + return LCharacter(_char8); + + case 6: + _i4++; + _context13.next = 2; + break; + + case 9: + case "end": + return _context13.stop(); + } + } + }, _callee13, this); + }); LString.prototype.serialize = function () { return this.valueOf(); @@ -11513,13 +12369,13 @@ return LString(this.__string__.toUpperCase()); }; - LString.prototype.set = function (n, _char8) { + LString.prototype.set = function (n, _char9) { typecheck('LString::set', n, 'number'); - typecheck('LString::set', _char8, ['string', 'character']); + typecheck('LString::set', _char9, ['string', 'character']); n = n.valueOf(); - if (_char8 instanceof LCharacter) { - _char8 = _char8.__char__; + if (_char9 instanceof LCharacter) { + _char9 = _char9.__char__; } var string = []; @@ -11528,7 +12384,7 @@ string.push(this.__string__.substring(0, n)); } - string.push(_char8); + string.push(_char9); if (n < this.__string__.length - 1) { string.push(this.__string__.substring(n + 1)); @@ -11547,15 +12403,15 @@ return LString(this.valueOf()); }; - LString.prototype.fill = function (_char9) { - typecheck('LString::fill', _char9, ['string', 'character']); + LString.prototype.fill = function (_char10) { + typecheck('LString::fill', _char10, ['string', 'character']); - if (_char9 instanceof LCharacter) { - _char9 = _char9.toString(); + if (_char10 instanceof LCharacter) { + _char10 = _char10.toString(); } var len = this.__string__.length; - this.__string__ = new Array(len + 1).join(_char9); + this.__string__ = new Array(len + 1).join(_char10); }; // ------------------------------------------------------------------------- // :: Number wrapper that handle BigNumbers // ------------------------------------------------------------------------- @@ -11590,7 +12446,7 @@ if (!LNumber.isNumber(n) && !parsable) { throw new Error("You can't create LNumber from ".concat(type(n))); - } // prevent infite loop https://github.com/indutny/bn.js/issues/186 + } // prevent infinite loop https://github.com/indutny/bn.js/issues/186 if (n === null) { @@ -11701,8 +12557,7 @@ LNumber.types = { "float": function float(n) { - var force = arguments.length > 1 && arguments[1] !== undefined ? arguments[1] : false; - return new LFloat(n, force); + return new LFloat(n); }, complex: function complex(n) { var force = arguments.length > 1 && arguments[1] !== undefined ? arguments[1] : false; @@ -11887,7 +12742,7 @@ return this.__value__.toNumber(); } }; // ------------------------------------------------------------------------- - // type coercion matrix + // Type coercion matrix // ------------------------------------------------------------------------- @@ -12208,10 +13063,17 @@ LNumber.prototype.pow = function (n) { var value; - if (LNumber.isBN(this.__value__)) { + var _this$coerce3 = this.coerce(n), + _this$coerce4 = _slicedToArray(_this$coerce3, 2), + a = _this$coerce4[0], + b = _this$coerce4[1]; + + if (LNumber.isNative(a.__value__) && LNumber.isNative(b.__value__)) { + value = pow(a.__value__, b.__value__); + } else if (LNumber.isBN(a.__value__) && LNumber.isBN(b.__value__)) { value = this.__value__.pow(n.__value__); - } else { - value = pow(this.__value__, n.__value__); + } else if (a.pow) { + return a.pow(b); } return LNumber(value); @@ -12252,10 +13114,10 @@ LNumber.prototype.cmp = function (n) { - var _this$coerce3 = this.coerce(n), - _this$coerce4 = _slicedToArray(_this$coerce3, 2), - a = _this$coerce4[0], - b = _this$coerce4[1]; + var _this$coerce5 = this.coerce(n), + _this$coerce6 = _slicedToArray(_this$coerce5, 2), + a = _this$coerce6[0], + b = _this$coerce6[1]; function cmp(a, b) { if (a.__value__ < b.__value__) { @@ -12300,7 +13162,8 @@ return Number(n); } } else if (!LNumber.isComplex(n)) { - throw new Error('Invalid constructor call for LComplex'); + var msg = "Invalid constructor call for LComplex expect &(:im :re ) object but got ".concat(toString(n)); + throw new Error(msg); } var im = n.im instanceof LNumber ? n.im : LNumber(n.im); @@ -12350,6 +13213,11 @@ }; // ------------------------------------------------------------------------- + LComplex.prototype.pow = function (n) { + throw new Error('Not yet implemented'); + }; // ------------------------------------------------------------------------- + + LComplex.prototype.add = function (n) { return this.complex_op('add', n, function (a_re, b_re, a_im, b_im) { return { @@ -12448,13 +13316,29 @@ throw new Error('[LComplex::div] Invalid value'); } - var _this$coerce5 = this.coerce(n), - _this$coerce6 = _slicedToArray(_this$coerce5, 2), - a = _this$coerce6[0], - b = _this$coerce6[1]; + if (this.cmp(n) === 0) { + var _this$coerce7 = this.coerce(n), + _this$coerce8 = _slicedToArray(_this$coerce7, 2), + _a = _this$coerce8[0], + _b = _this$coerce8[1]; + + var ret = _a.__im__.div(_b.__im__); + + return ret.coerce(_b.__re__)[0]; + } + + var _this$coerce9 = this.coerce(n), + _this$coerce10 = _slicedToArray(_this$coerce9, 2), + a = _this$coerce10[0], + b = _this$coerce10[1]; var denom = b.factor(); - var num = a.mul(b.conjugate()); + var conj = b.conjugate(); + var num = a.mul(conj); + + if (!LNumber.isComplex(num)) { + return num.div(denom); + } var re = num.__re__.op('/', denom); @@ -12495,7 +13379,7 @@ var result = fn(_this7.__re__, re, _this7.__im__, im); if ('im' in result && 're' in result) { - if (result.im.cmp(0) === 0 && !LNumber.isFloat(result.im)) { + if (result.im.cmp(0) === 0) { return result.re; } @@ -12544,10 +13428,10 @@ LComplex.prototype.cmp = function (n) { - var _this$coerce7 = this.coerce(n), - _this$coerce8 = _slicedToArray(_this$coerce7, 2), - a = _this$coerce8[0], - b = _this$coerce8[1]; + var _this$coerce11 = this.coerce(n), + _this$coerce12 = _slicedToArray(_this$coerce11, 2), + a = _this$coerce12[0], + b = _this$coerce12[1]; var _a$__re__$coerce = a.__re__.coerce(b.__re__), _a$__re__$coerce2 = _slicedToArray(_a$__re__$coerce, 2), @@ -12676,7 +13560,7 @@ return LFloat(fn(this.__value__, n)); }; // ------------------------------------------------------------------------- - // same aproximation as in guile scheme + // same approximation as in guile scheme LFloat.prototype.toRational = function () { @@ -12741,7 +13625,7 @@ }); }; } // ------------------------------------------------------------------------- - // :: source: Kawa gnu.math.RatNum.java + // :: Source: Kawa gnu.math.RatNum.java // :: This algorithm is by Alan Bawden. It has been transcribed // :: with permission from Kawa copyright M.A. Bothner. // :: which was transcribed from from C-Gambit, copyright Marc Feeley. @@ -13172,11 +14056,11 @@ num: this, denom: n }); - } // use native calucaltion becuase it's real bigint value + } // use native calculation because it's real bigint value return LBigInteger(ret, true); - }; // -------------------------- ----------------------------------------------- + }; // ------------------------------------------------------------------------- LBigInteger.prototype.sqrt = function () { @@ -13201,7 +14085,7 @@ LNumber.NaN = LNumber(NaN); // ------------------------------------------------------------------------- - // :: Port abstration - read should be a function that return next line + // :: Port abstraction - read should be a function that return next line // ------------------------------------------------------------------------- function InputPort(read) { @@ -13225,9 +14109,9 @@ } }); this._read = read; - this._with_parser = this._with_init_parser.bind(this, /*#__PURE__*/_asyncToGenerator( /*#__PURE__*/regenerator.mark(function _callee13() { + this._with_parser = this._with_init_parser.bind(this, /*#__PURE__*/_asyncToGenerator( /*#__PURE__*/_regeneratorRuntime.mark(function _callee14() { var line; - return regenerator.wrap(function _callee13$(_context14) { + return _regeneratorRuntime.wrap(function _callee14$(_context14) { while (1) { switch (_context14.prev = _context14.next) { case 0: @@ -13253,7 +14137,7 @@ return _context14.stop(); } } - }, _callee13); + }, _callee14); }))); this.char_ready = function () { @@ -13289,42 +14173,36 @@ InputPort.prototype._with_init_parser = function (make_parser, fn) { var self = this; - return /*#__PURE__*/function () { - var _ref25 = _asyncToGenerator( /*#__PURE__*/regenerator.mark(function _callee14() { - var parser, - _len16, - args, - _key16, - _args17 = arguments; - - return regenerator.wrap(function _callee14$(_context15) { - while (1) { - switch (_context15.prev = _context15.next) { - case 0: - _context15.next = 2; - return make_parser.call(self); + return /*#__PURE__*/_asyncToGenerator( /*#__PURE__*/_regeneratorRuntime.mark(function _callee15() { + var parser, + _len16, + args, + _key16, + _args17 = arguments; + + return _regeneratorRuntime.wrap(function _callee15$(_context15) { + while (1) { + switch (_context15.prev = _context15.next) { + case 0: + _context15.next = 2; + return make_parser.call(self); - case 2: - parser = _context15.sent; + case 2: + parser = _context15.sent; - for (_len16 = _args17.length, args = new Array(_len16), _key16 = 0; _key16 < _len16; _key16++) { - args[_key16] = _args17[_key16]; - } + for (_len16 = _args17.length, args = new Array(_len16), _key16 = 0; _key16 < _len16; _key16++) { + args[_key16] = _args17[_key16]; + } - return _context15.abrupt("return", fn.apply(void 0, [parser].concat(args))); + return _context15.abrupt("return", fn.apply(void 0, [parser].concat(args))); - case 5: - case "end": - return _context15.stop(); - } + case 5: + case "end": + return _context15.stop(); } - }, _callee14); - })); - - return function () { - return _ref25.apply(this, arguments); - }; - }(); + } + }, _callee15); + })); }; InputPort.prototype.is_open = function () { @@ -13856,7 +14734,7 @@ EOF.prototype.toString = function () { return '#'; }; // ------------------------------------------------------------------------- - // simpler way to create interpreter with interaction-environment + // Simpler way to create interpreter with interaction-environment // ------------------------------------------------------------------------- @@ -14018,7 +14896,7 @@ return new Environment(obj || {}, this, name); }; // ------------------------------------------------------------------------- - // :: lookup function for variable doc strings + // :: Lookup function for variable doc strings // ------------------------------------------------------------------------- @@ -14052,7 +14930,7 @@ return this.__parent__.doc(name); } }; // ------------------------------------------------------------------------- - // :: function create frame environment for usage in functions + // :: Function creates frame environment for usage in functions // :: frames are used to it's easier to find environments of the functions // :: in scope chain, they are dummy environments just for lookup // ------------------------------------------------------------------------- @@ -14124,7 +15002,7 @@ typecheck('Environment::merge', env, 'environment'); return this.inherit(name, env.__env__); }; // ------------------------------------------------------------------------- - // value returned in lookup if found value in env and in promise_all + // Value returned in lookup if found value in env and in promise_all // ------------------------------------------------------------------------- @@ -14145,7 +15023,7 @@ Value.prototype.valueOf = function () { return this.value; }; // ------------------------------------------------------------------------- - // :: differnt object than value used as object for (values) + // :: Different object than value used as object for (values) // ------------------------------------------------------------------------- @@ -14274,7 +15152,7 @@ return this; }; // ------------------------------------------------------------------------- - // for internal use only + // For internal use only // ------------------------------------------------------------------------- @@ -14334,7 +15212,7 @@ return result; }; // ------------------------------------------------------------------------- - // :: Quote funtion used to pause evaluation from Macro + // :: Quote function used to pause evaluation from Macro // ------------------------------------------------------------------------- @@ -14351,7 +15229,7 @@ } // ------------------------------------------------------------------------- - var native_lambda = parse(tokenize("(lambda ()\n \"[native code]\"\n (throw \"Invalid Invocation\"))"))[0]; // ------------------------------------------------------------------------------- + var native_lambda = parse(tokenize("(lambda ()\n \"[native code]\"\n (throw \"Invalid Invocation\"))"))[0]; // ------------------------------------------------------------------------------- var get = doc('get', function get(object) { var value; @@ -14400,15 +15278,15 @@ } return value; - }, "(. obj . args)\n (get obj . args)\n\n Function use object as base and keep using arguments to get the\n property of JavaScript object. Arguments need to be a strings.\n e.g. `(. console \"log\")` if you use any function inside LIPS is\n will be weakly bind (can be rebind), so you can call this log function\n without problem unlike in JavaScript when you use\n `var log = console.log`.\n `get` is an alias because . don't work in every place, e.g. you can't\n pass it as argument."); // ------------------------------------------------------------------------- - // function get internal protected data + }, "(. obj . args)\n (get obj . args)\n\n This function uses an object as a base and keeps using arguments to get the\n property of JavaScript object. Arguments need to be a strings.\n e.g. `(. console \"log\")` if you use any function inside LIPS it\n will be weakly bound (can be rebound), so you can call this log function\n without problem unlike in JavaScript when you use\n `var log = console.log`.\n `get` is an alias because . doesn't work everywhere, e.g. you can't\n pass it as an argument."); // ------------------------------------------------------------------------- + // Function gets internal protected data // ------------------------------------------------------------------------- function internal(env, name) { var internal_env = interaction(env, '**internal-env**'); return internal_env.get(name); } // ------------------------------------------------------------------------- - // get variable from interaction environment + // Get variable from interaction environment // ------------------------------------------------------------------------- @@ -14471,7 +15349,7 @@ typecheck_text_port('peek-char', port, 'input-port'); return port.peek_char(); - }, "(peek-char port)\n\n Function get character from string port or EOF object if no more\n data in string port."), + }, "(peek-char port)\n\n This function reads and returns a character from the string\n port, or, if there is no more data in the string port, it\n returns an EOF."), // ------------------------------------------------------------------ 'read-line': doc('read-line', function () { var port = arguments.length > 0 && arguments[0] !== undefined ? arguments[0] : null; @@ -14482,7 +15360,7 @@ typecheck_text_port('read-line', port, 'input-port'); return port.read_line(); - }, "(read-char port)\n\n Function read next character from input port."), + }, "(read-line port)\n\n This function reads and returns the next line from the input\n port."), // ------------------------------------------------------------------ 'read-char': doc('read-char', function () { var port = arguments.length > 0 && arguments[0] !== undefined ? arguments[0] : null; @@ -14493,10 +15371,10 @@ typecheck_text_port('read-char', port, 'input-port'); return port.read_char(); - }, "(read-char port)\n\n Function read next character from input port."), + }, "(read-char port)\n\n This function reads and returns the next character from the\n input port."), // ------------------------------------------------------------------ read: doc('read', /*#__PURE__*/function () { - var _read2 = _asyncToGenerator( /*#__PURE__*/regenerator.mark(function _callee15() { + var _read2 = _asyncToGenerator( /*#__PURE__*/_regeneratorRuntime.mark(function _callee16() { var arg, _iteratorAbruptCompletion2, _didIteratorError2, @@ -14507,7 +15385,7 @@ port, _args18 = arguments; - return regenerator.wrap(function _callee15$(_context16) { + return _regeneratorRuntime.wrap(function _callee16$(_context16) { while (1) { switch (_context16.prev = _context16.next) { case 0: @@ -14594,7 +15472,7 @@ return _context16.stop(); } } - }, _callee15, this, [[4, 16, 20, 30], [21,, 25, 29]]); + }, _callee16, this, [[4, 16, 20, 30], [21,, 25, 29]]); })); function read() { @@ -14602,7 +15480,7 @@ } return read; - }(), "(read [string])\n\n Function if used with string will parse the string and return\n list structure of LIPS code. If called without an argument it\n will read string from standard input (using browser prompt or\n user defined way) and call itself with that string (parse is)\n function can be used together with eval to evaluate code from\n string"), + }(), "(read [string])\n\n This function, if used with a string, will parse it and\n return the LIPS code, if there is any. If called with a\n port, it will parse the next item from the port. If called\n without an input, it will read a string from standard input\n (using the browser's prompt or a user defined input method)\n and calls itself with that string. This function can be used\n together with `eval` to evaluate code from a string."), // ------------------------------------------------------------------ pprint: doc('pprint', function pprint(arg) { if (arg instanceof Pair) { @@ -14613,7 +15491,7 @@ } global_env.get('newline').call(global_env); - }, "(pprint expression)\n\n Pretty print list expression, if called with non-pair it just call\n print function with passed argument."), + }, "(pprint expression)\n\n This function will pretty print its input to stdout. If it is called\n with a non-list, it will just call the print function on its\n input."), // ------------------------------------------------------------------ print: doc('print', function print() { var display = global_env.get('display'); @@ -14627,7 +15505,7 @@ display.call(global_env, arg); newline.call(global_env); }); - }, "(print . args)\n\n Function convert each argument to string and print the result to\n standard output (by default it's console but it can be defined\n it user code), the function call newline after printing each arg."), + }, "(print . args)\n\n This function converts each input into a string and prints\n the result to the standard output (by default it's the\n console but it can be defined in user code). This function\n calls `(newline)` after printing each input."), // ------------------------------------------------------------------ format: doc('format', function format(str) { for (var _len20 = arguments.length, args = new Array(_len20 > 1 ? _len20 - 1 : 0), _key20 = 1; _key20 < _len20; _key20++) { @@ -14664,11 +15542,11 @@ m = str.match(/~([\S])/); if (m) { - throw new Error("format: Unrecognized escape seqence ".concat(m[1])); + throw new Error("format: Unrecognized escape sequence ".concat(m[1])); } return str; - }, "(format string n1 n2 ...)\n\n Function accepts string template and replacing any escape sequences\n by arguments:\n\n * ~a value as if printed with display\n * ~s value as if printed with write\n * ~% newline character\n * ~~ literal tilde '~' is inserted\n\n if there missing arguments or other escape character it throw exception."), + }, "(format string n1 n2 ...)\n\n This function accepts a string template and replaces any\n escape sequences in its inputs:\n\n * ~a value as if printed with `display`\n * ~s value as if printed with `write`\n * ~% newline character\n * ~~ literal tilde '~'\n\n If there are missing inputs or other escape characters it\n will error."), // ------------------------------------------------------------------ display: doc('display', function display(arg) { var port = arguments.length > 1 && arguments[1] !== undefined ? arguments[1] : null; @@ -14681,7 +15559,7 @@ var value = global_env.get('repr')(arg); port.write.call(global_env, value); - }, "(display arg [port])\n\n Function send string to standard output or provied port."), + }, "(display string [port])\n\n This function outputs the string to the standard output or\n the port if given. No newline."), // ------------------------------------------------------------------ 'display-error': doc('display-error', function error() { var port = internal(this, 'stderr'); @@ -14694,7 +15572,7 @@ var value = args.map(repr).join(' '); port.write.call(global_env, value); global_env.get('newline')(port); - }, "(display-error . args)\n\n Display error message."), + }, "(display-error . args)\n\n Display an error message on stderr."), // ------------------------------------------------------------------ '%same-functions': doc('%same-functions', function (a, b) { if (!is_function(a)) { @@ -14706,7 +15584,7 @@ } return unbind(a) === unbind(b); - }, "(%same-functions a b)\n\n Helper function that check if two bound functions are the same"), + }, "(%same-functions a b)\n\n A helper function that checks if the two input functions are\n the same."), // ------------------------------------------------------------------ help: doc(new Macro('help', function (code, _ref27) { var dynamic_scope = _ref27.dynamic_scope, @@ -14755,21 +15633,21 @@ return __doc__; } } - }), "(help object)\n\n Macro returns documentation for function or macro. You can save the function\n or macro in variable and use it in context. But help for variable require\n to pass the symbol itself."), + }), "(help object)\n\n This macro returns documentation for a function or macro.\n You can save the function or macro in a variable and use it\n here. But getting help for a variable requires passing the\n variable in a `quote`."), // ------------------------------------------------------------------ cons: doc('cons', function cons(car, cdr) { return new Pair(car, cdr); - }, "(cons left right)\n\n Function return new Pair out of two arguments."), + }, "(cons left right)\n\n This function returns a new list with the first appended\n before the second. If the second is not a list cons will\n return a dotted pair."), // ------------------------------------------------------------------ car: doc('car', function car(list) { typecheck('car', list, 'pair'); return list.car; - }, "(car pair)\n\n Function returns car (head) of the list/pair."), + }, "(car pair)\n\n This function returns the car (item 1) of the list."), // ------------------------------------------------------------------ cdr: doc('cdr', function cdr(list) { typecheck('cdr', list, 'pair'); return list.cdr; - }, "(cdr pair)\n\n Function returns cdr (tail) of the list/pair."), + }, "(cdr pair)\n\n This function returns the cdr (all but first) of the list."), // ------------------------------------------------------------------ 'set!': doc(new Macro('set!', function (code) { var _this22 = this; @@ -14818,7 +15696,7 @@ if (code.car instanceof Pair && LSymbol.is(code.car.car, '.')) { var second = code.car.cdr.car; - var thrid = code.car.cdr.cdr.car; + var third = code.car.cdr.cdr.car; var object = _evaluate(second, { env: this, @@ -14826,7 +15704,7 @@ error: error }); - var key = _evaluate(thrid, { + var key = _evaluate(third, { env: this, dynamic_scope: dynamic_scope, error: error @@ -14867,7 +15745,7 @@ ref.set(symbol, value); }); - }), "(set! name value)\n\n Macro that can be used to set the value of the variable (mutate)\n it search the scope chain until it finds first non emtpy slot and set it."), + }), "(set! name value)\n\n Macro that can be used to set the value of the variable or slot (mutate it).\n set! searches the scope chain until it finds first non empty slot and sets it."), // ------------------------------------------------------------------ 'unset!': doc(new Macro('set!', function (code) { if (!(code.car instanceof LSymbol)) { @@ -14880,23 +15758,23 @@ if (ref) { delete ref.__env__[symbol.__name__]; } - }), "(unset! name)\n\n Function delete specified name from environment."), + }), "(unset! name)\n\n Function to delete the specified name from environment.\n Trying to access the name afterwards will error."), // ------------------------------------------------------------------ 'set-car!': doc('set-car!', function (slot, value) { typecheck('set-car!', slot, 'pair'); slot.car = value; - }, "(set-car! obj value)\n\n Function that set car (head) of the list/pair to specified value.\n It can destroy the list. Old value is lost."), + }, "(set-car! obj value)\n\n Function that sets the car (first item) of the list/pair to specified value.\n The old value is lost."), // ------------------------------------------------------------------ 'set-cdr!': doc('set-cdr!', function (slot, value) { typecheck('set-cdr!', slot, 'pair'); slot.cdr = value; - }, "(set-cdr! obj value)\n\n Function that set cdr (tail) of the list/pair to specified value.\n It can destroy the list. Old value is lost."), + }, "(set-cdr! obj value)\n\n Function that sets the cdr (tail) of the list/pair to specified value.\n It will destroy the list. The old tail is lost."), // ------------------------------------------------------------------ 'empty?': doc('empty?', function (x) { return typeof x === 'undefined' || x === _nil; - }, "(empty? object)\n\n Function return true if value is undfined empty list."), + }, "(empty? object)\n\n Function that returns #t if value is nil (an empty list) or undefined."), // ------------------------------------------------------------------ - gensym: doc('gensym', gensym, "(gensym)\n\n Function generate unique symbol, to use with macros as meta name."), + gensym: doc('gensym', gensym, "(gensym)\n\n Generates a unique symbol that is not bound anywhere,\n to use with macros as meta name."), // ------------------------------------------------------------------ load: doc('load', function load(file, env) { typecheck('load', file, 'string'); @@ -14961,10 +15839,10 @@ if (is_node()) { return new Promise( /*#__PURE__*/function () { - var _ref29 = _asyncToGenerator( /*#__PURE__*/regenerator.mark(function _callee16(resolve, reject) { + var _ref29 = _asyncToGenerator( /*#__PURE__*/_regeneratorRuntime.mark(function _callee17(resolve, reject) { var path, cmd, _args19; - return regenerator.wrap(function _callee16$(_context17) { + return _regeneratorRuntime.wrap(function _callee17$(_context17) { while (1) { switch (_context17.prev = _context17.next) { case 0: @@ -15025,10 +15903,10 @@ return _context17.stop(); } } - }, _callee16); + }, _callee17); })); - return function (_x12, _x13) { + return function (_x13, _x14) { return _ref29.apply(this, arguments); }; }()); @@ -15045,13 +15923,13 @@ }).then(function () {})["finally"](function () { global_env.set(PATH, module_path); }); - }, "(load filename)\n (load filename environment)\n\n Function fetch the file and evaluate its content as LIPS code,\n If second argument is provided and it's environment the evaluation\n will happen in that environment."), + }, "(load filename)\n (load filename environment)\n\n Fetches the file (from disk or network) and evaluates its content as LIPS code.\n If the second argument is provided and it's an environment the evaluation\n will happen in that environment."), // ------------------------------------------------------------------ 'do': doc(new Macro('do', /*#__PURE__*/function () { - var _ref30 = _asyncToGenerator( /*#__PURE__*/regenerator.mark(function _callee18(code, _ref31) { + var _ref30 = _asyncToGenerator( /*#__PURE__*/_regeneratorRuntime.mark(function _callee19(code, _ref31) { var dynamic_scope, error, self, scope, vars, test, body, eval_args, node, item, _loop3; - return regenerator.wrap(function _callee18$(_context19) { + return _regeneratorRuntime.wrap(function _callee19$(_context19) { while (1) { switch (_context19.prev = _context19.next) { case 0: @@ -15105,10 +15983,10 @@ dynamic_scope: dynamic_scope, error: error }; - _loop3 = /*#__PURE__*/regenerator.mark(function _callee17() { + _loop3 = /*#__PURE__*/_regeneratorRuntime.mark(function _callee18() { var node, next, _item, value, symbols; - return regenerator.wrap(function _callee17$(_context18) { + return _regeneratorRuntime.wrap(function _callee18$(_context18) { while (1) { switch (_context18.prev = _context18.next) { case 0: @@ -15160,7 +16038,7 @@ return _context18.stop(); } } - }, _callee17); + }, _callee18); }); case 23: @@ -15198,13 +16076,13 @@ return _context19.stop(); } } - }, _callee18, this); + }, _callee19, this); })); - return function (_x14, _x15) { + return function (_x15, _x16) { return _ref30.apply(this, arguments); }; - }()), "(do (( )) (test expression) . body)\n\n Iteration macro that evaluate the expression body in scope of the variables.\n On Eeach loop it increase the variables according to next expression and run\n test to check if the loop should continue. If test is signle call the macro\n will not return anything. If the test is pair of expression and value the\n macro will return that value after finish."), + }()), "(do (( )) (test return) . body)\n\n Iteration macro that evaluates the expression body in scope of the variables.\n On each loop it changes the variables according to the expression and runs\n test to check if the loop should continue. If test is a single value, the macro\n will return undefined. If the test is a pair of expressions the macro will\n evaluate and return the second expression after the loop exits."), // ------------------------------------------------------------------ 'if': doc(new Macro('if', function (code, _ref32) { var dynamic_scope = _ref32.dynamic_scope, @@ -15243,7 +16121,7 @@ }); return unpromise(cond, resolve); - }), "(if cond true-expr false-expr)\n\n Macro evaluate condition expression and if the value is true, it\n evaluate and return true expression if not it evaluate and return\n false expression"), + }), "(if cond true-expr false-expr)\n\n Macro that evaluates cond expression and if the value is true, it\n evaluates and returns true-expression, if not it evaluates and returns\n false-expression."), // ------------------------------------------------------------------ 'let-env': new Macro('let-env', function (code) { var options = arguments.length > 1 && arguments[1] !== undefined ? arguments[1] : {}; @@ -15265,19 +16143,19 @@ error: error }); }); - }, "(let-env env . body)\n\n Special macro that evaluate body in context of given environment\n object."), + }, "(let-env env . body)\n\n Special macro that evaluates body in context of given environment\n object."), // ------------------------------------------------------------------ - 'letrec': doc(let_macro(Symbol["for"]('letrec')), "(letrec ((a value-a) (b value-b)) body)\n\n Macro that creates new environment, then evaluate and assign values to\n names and then evaluate the body in context of that environment.\n Values are evaluated sequentialy and next value can access to\n previous values/names."), + 'letrec': doc(let_macro(Symbol["for"]('letrec')), "(letrec ((a value-a) (b value-b) ...) . body)\n\n Macro that creates a new environment, then evaluates and assigns values to\n names and then evaluates the body in context of that environment.\n Values are evaluated sequentially and the next value can access the\n previous values/names."), // --------------------------------------------------------------------- - 'letrec*': doc(let_macro(Symbol["for"]('letrec')), "(letrec* ((a value-a) (b value-b)) body)\n\n Same as letrec but the order of execution of the binding is guaranteed,\n so use can use recursive code as well as reference previous binding.\n In LIPS both letrec and letrec* behave the same."), + 'letrec*': doc(let_macro(Symbol["for"]('letrec')), "(letrec* ((a value-a) (b value-b) ...) . body)\n\n Same as letrec but the order of execution of the binding is guaranteed,\n so you can use recursive code as well as referencing the previous binding.\n\n In LIPS both letrec and letrec* behave the same."), // --------------------------------------------------------------------- - 'let*': doc(let_macro(Symbol["for"]('let*')), "(let* ((a value-a) (b value-b)) body)\n\n Macro similar to `let` but next argument get environment\n from previous let variable, so they you can define one variable,\n and use in next argument."), + 'let*': doc(let_macro(Symbol["for"]('let*')), "(let* ((a value-a) (b value-b) ...) . body)\n\n Macro similar to `let`, but the subsequent bindings after the first\n are evaluated in the environment including the previous let variables,\n so you can define one variable, and use it in the next's definition."), // --------------------------------------------------------------------- - 'let': doc(let_macro(Symbol["for"]('let')), "(let ((a value-a) (b value-b)) body)\n\n Macro that creates new environment, then evaluate and assign values to\n names and then evaluate the body in context of that environment.\n Values are evaluated sequentialy but you can't access\n previous values/names when next are evaluated. You can only get them\n from body of let expression."), + 'let': doc(let_macro(Symbol["for"]('let')), "(let ((a value-a) (b value-b) ...) . body)\n\n Macro that creates a new environment, then evaluates and assigns values to names,\n and then evaluates the body in context of that environment. Values are evaluated\n sequentially but you can't access previous values/names when the next are\n evaluated. You can only get them in the body of the let expression. (If you want\n to define multiple variables and use them in each other's definitions, use\n `let*`.)"), // ------------------------------------------------------------------ 'begin*': doc(pararel('begin*', function (values) { return values.pop(); - }), "(begin* . expr)\n\n This macro is parallel version of begin. It evaluate each expression and\n if it's a promise it will evaluate it in parallel and return value\n of last expression."), + }), "(begin* . body)\n\n This macro is a parallel version of begin. It evaluates each expression\n in the body and if it's a promise it will await it in parallel and return\n the value of the last expression (i.e. it uses Promise.all())."), // ------------------------------------------------------------------ 'begin': doc(new Macro('begin', function (code, options) { var args = Object.assign({}, options); @@ -15303,7 +16181,7 @@ return result; } }(); - }), "(begin . args)\n\n Macro runs list of expression and return valuate of the list one.\n It can be used in place where you can only have single exression,\n like if expression."), + }), "(begin . args)\n\n Macro that runs a list of expressions in order and returns the value\n of the last one. It can be used in places where you can only have a\n single expression, like (if)."), // ------------------------------------------------------------------ 'ignore': new Macro('ignore', function (code, _ref33) { var dynamic_scope = _ref33.dynamic_scope, @@ -15318,7 +16196,7 @@ } _evaluate(new Pair(new LSymbol('begin'), code), args); - }, "(ignore expression)\n\n Macro that will evaluate expression and swallow any promises that may\n be created. It wil run and ignore any value that may be returned by\n expression. The code should have side effects and/or when it's promise\n it should resolve to undefined."), + }, "(ignore . body)\n\n Macro that will evaluate the expression and swallow any promises that may\n be created. It will discard any value that may be returned by the last body\n expression. The code should have side effects and/or when it's promise\n it should resolve to undefined."), // ------------------------------------------------------------------ 'call/cc': doc(Macro.defmacro('call/cc', function (code) { var eval_args = arguments.length > 1 && arguments[1] !== undefined ? arguments[1] : {}; @@ -15332,7 +16210,7 @@ return result(new Continuation(null)); } }); - }), "(call/cc proc)\n\n TODO"), + }), "(call/cc proc)\n\n Call-with-current-continuation.\n\n NOT SUPPORTED BY LIPS RIGHT NOW"), // ------------------------------------------------------------------ define: doc(Macro.defmacro('define', function (code, eval_args) { var env = this; @@ -15382,9 +16260,11 @@ env.set(code.car, value, __doc__, true); }); - }), "(define name expression)\n (define name expression \"doc string\")\n (define (function-name . args) body)\n\n Macro for defining values. It can be used to define variables,\n or function. If first argument is list it will create function\n with name beeing first element of the list. The macro evalute\n code `(define function (lambda args body))`"), + }), "(define name expression)\n (define name expression \"doc string\")\n (define (function-name . args) . body)\n\n Macro for defining values. It can be used to define variables,\n or functions. If the first argument is list it will create a function\n with name being first element of the list. This form expands to\n `(define function-name (lambda args body))`"), // ------------------------------------------------------------------ 'set-obj!': doc('set-obj!', function (obj, key, value) { + var options = arguments.length > 3 && arguments[3] !== undefined ? arguments[3] : null; + var obj_type = _typeof(obj); if (is_null(obj) || obj_type !== 'object' && obj_type !== 'function') { @@ -15406,11 +16286,18 @@ } else { obj[key] = value && !is_prototype(value) ? value.valueOf() : value; } - }, "(set-obj! obj key value)\n\n Function set property of JavaScript object"), + + if (props) { + var _value4 = obj[key]; + Object.defineProperty(obj, key, _objectSpread(_objectSpread({}, options), {}, { + value: _value4 + })); + } + }, "(set-obj! obj key value)\n (set-obj! obj key value props)\n\n Function set a property of a JavaScript object. props should be a vector of pairs,\n passed to Object.defineProperty."), // ------------------------------------------------------------------ 'null-environment': doc('null-environment', function () { return global_env.inherit('null'); - }, "(null-environment)\n\n Function return new base environment with std lib."), + }, "(null-environment)\n\n Returns a clean environment with only the standard library."), // ------------------------------------------------------------------ 'values': doc('values', function values() { for (var _len22 = arguments.length, args = new Array(_len22), _key22 = 0; _key22 < _len22; _key22++) { @@ -15418,7 +16305,7 @@ } return Values(args); - }, "(values a1 a2 ...)\n\n If called with more then one elment it will create special\n Values object that can be used in call-with-values function"), + }, "(values a1 a2 ...)\n\n If called with more then one element it will create a special\n Values object that can be used in the call-with-values function."), // ------------------------------------------------------------------ 'call-with-values': doc('call-with-values', function (producer, consumer) { typecheck('call-with-values', producer, 'function', 1); @@ -15430,7 +16317,7 @@ } return consumer(maybe); - }, "(call-with-values producer consumer)\n\n Calls its producer argument with no values and a continuation that,\n when passed some values, calls the consumer procedure with those\n values as arguments."), + }, "(call-with-values producer consumer)\n\n Calls the producer procedure with no arguments, then calls the\n consumer procedure with the returned value as an argument -- unless\n the returned value is a special Values object created by (values), if it is\n the values are unpacked and the consumer is called with multiple arguments."), // ------------------------------------------------------------------ 'current-environment': doc('current-environment', function () { if (this.__name__ === '__frame__') { @@ -15438,11 +16325,11 @@ } return this; - }, "(current-environment)\n\n Function return current environement."), + }, "(current-environment)\n\n Function that returns the current environment (they're first-class objects!)"), // ------------------------------------------------------------------ 'parent.frame': doc('parent.frame', function () { return user_env; - }, "(parent.frame)\n\n Return parent environment if called from inside function.\n If no parent frame found it return nil."), + }, "(parent.frame)\n\n Returns the parent environment if called from inside a function.\n If no parent frame can be found it returns nil."), // ------------------------------------------------------------------ 'eval': doc('eval', function (code, env) { var _this23 = this; @@ -15463,7 +16350,7 @@ } } }); - }, "(eval expr)\n (eval expr environment)\n\n Function evalute LIPS Scheme code."), + }, "(eval expr)\n (eval expr environment)\n\n Function that evaluates LIPS Scheme code. If the second argument is provided\n it will be the environment that the code is evaluated in."), // ------------------------------------------------------------------ lambda: new Macro('lambda', function (code) { var _ref34 = arguments.length > 1 && arguments[1] !== undefined ? arguments[1] : {}, @@ -15578,7 +16465,7 @@ return doc(set_fn_length(lambda, length), __doc__, true); - }, "(lambda (a b) body)\n (lambda args body)\n (lambda (a b . rest) body)\n\n Macro lambda create new anonymous function, if first element of the body\n is string and there is more elements it will be documentation, that can\n be read using (help fn)"), + }, "(lambda (a b) body)\n (lambda args body)\n (lambda (a b . rest) body)\n\n The lambda macro creates a new anonymous function. If the first element of\n the body is a string and there is more elements the string is used as the\n documentation string, that can be read using (help fn)."), 'macroexpand': new Macro('macroexpand', macro_expand()), 'macroexpand-1': new Macro('macroexpand-1', macro_expand(true)), // ------------------------------------------------------------------ @@ -15659,7 +16546,7 @@ makro_instance.__code__ = new Pair(new LSymbol('define-macro'), macro); this.set(name, makro_instance); } - }), "(define-macro (name . args) body)\n\n Meta macro, macro that create new macros, if return value is list structure\n it will be evaluated when macro is invoked. You can use quasiquote ` and\n unquote , and unquote-splicing ,@ inside to create expression that will be\n evaluated on runtime. Macros works like this: if you pass any expression to\n macro the arguments will not be evaluated unless macro itself evaluate it.\n Because of this macro can manipulate expression (arguments) as lists."), + }), "(define-macro (name . args) body)\n\n The meta-macro, that creates new macros. If the return value is a list structure\n it will be evaluated where the macro is invoked from. You can use quasiquote `\n and unquote , and unquote-splicing ,@ inside to create an expression that will be\n evaluated at runtime. Macros works like this: if you pass any expression to a\n macro the arguments will not be evaluated unless the macro's body explicitly\n calls (eval) on it. Because of this a macro can manipulate the expression\n (arguments) as lists."), // ------------------------------------------------------------------ 'syntax-rules': new Macro('syntax-rules', function (macro, options) { var dynamic_scope = options.dynamic_scope, @@ -15800,17 +16687,17 @@ }, env); syntax.__code__ = macro; return syntax; - }, "(syntax-rules () (pattern expression) ...)\n\n Base of Hygienic macro, it will return new syntax expander\n that works like lisp macros."), + }, "(syntax-rules () (pattern expression) ...)\n\n Base of hygienic macros, it will return a new syntax expander\n that works like Lisp macros."), // ------------------------------------------------------------------ quote: doc(new Macro('quote', function (arg) { return quote(arg.car); - }), "(quote expression)\n\n Macro that return single lips expression as data (it don't evaluate its\n argument). It will return list of pairs if put in front of lips code.\n And if put in fron of symbol it will return that symbol not value\n associated with that name."), + }), "(quote expression) or 'expression\n\n Macro that returns a single LIPS expression as data (it won't evaluate the\n argument). It will return a list if put in front of LIPS code.\n And if put in front of a symbol it will return the symbol itself, not the value\n bound to that name."), 'unquote-splicing': doc('unquote-splicing', function () { throw new Error("You can't call `unquote-splicing` outside of quasiquote"); - }, "(unquote-splicing code)\n\n Special form to be used in quasiquote macro, parser is processing special\n characters ,@ and create call to this pseudo function. It can be used\n to evalute expression inside and return the value without parenthesis.\n the value will be joined to the output list structure."), + }, "(unquote-splicing code) or ,@code\n\n Special form used in the quasiquote macro. It evaluates the expression inside and\n splices the list into quasiquote's result. If it is not the last element of the\n expression, the computed value must be a pair."), 'unquote': doc('unquote', function () { throw new Error("You can't call `unquote` outside of quasiquote"); - }, "(unquote code)\n\n Special form to be used in quasiquote macro, parser is processing special\n characters , and create call to this pseudo function. It can be used\n to evalute expression inside and return the value, the output is inserted\n into list structure created by queasiquote."), + }, "(unquote code) or ,code\n\n Special form used in the quasiquote macro. It evaluates the expression inside and\n substitutes the value into quasiquote's result."), // ------------------------------------------------------------------ quasiquote: Macro.defmacro('quasiquote', function (arg, env) { var dynamic_scope = env.dynamic_scope, @@ -16173,12 +17060,12 @@ clear(value); return quote(value); }); - }, "(quasiquote list ,value ,@value)\n\n Similar macro to `quote` but inside it you can use special\n expressions unquote abbreviated to , that will evaluate expresion inside\n and return its value or unquote-splicing abbreviated to ,@ that will\n evaluate expression but return value without parenthesis (it will join)\n the list with its value. Best used with macros but it can be used outside"), + }, "(quasiquote list)\n\n Similar macro to `quote` but inside it you can use special expressions (unquote\n x) abbreviated to ,x that will evaluate x and insert its value verbatim or\n (unquote-splicing x) abbreviated to ,@x that will evaluate x and splice the value\n into the result. Best used with macros but it can be used outside."), // ------------------------------------------------------------------ clone: doc('clone', function clone(list) { typecheck('clone', list, 'pair'); return list.clone(); - }, "(clone list)\n\n Function return clone of the list."), + }, "(clone list)\n\n Function that returns a clone of the list, that does not share any pairs with the\n original, so the clone can be safely mutated without affecting the original."), // ------------------------------------------------------------------ append: doc('append', function append() { var _global_env$get; @@ -16195,7 +17082,7 @@ return item; }); return (_global_env$get = global_env.get('append!')).call.apply(_global_env$get, [this].concat(_toConsumableArray(items))); - }, "(append item ...)\n\n Function will create new list with eac argument appended to the end.\n It will always return new list and not modify it's arguments."), + }, "(append item ...)\n\n Function that creates a new list with each argument appended end-to-end.\n It will always return a new list and not modify its arguments."), // ------------------------------------------------------------------ 'append!': doc('append!', function () { var is_list = global_env.get('list?'); @@ -16225,7 +17112,7 @@ return acc.append(item); }, _nil); - }, "(append! arg1 ...)\n\n Destructive version of append, it modify the list in place. It return\n new list where each argument is appened to the end. It may modify\n lists added as arguments."), + }, "(append! arg1 ...)\n\n Destructive version of append, it can modify the lists in place. It returns\n a new list where each argument is appended to the end. It may modify\n lists added as arguments."), // ------------------------------------------------------------------ reverse: doc('reverse', function reverse(arg) { typecheck('reverse', arg, ['array', 'pair', 'nil']); @@ -16242,7 +17129,7 @@ } else { return arg.reverse(); } - }, "(reverse list)\n\n Function will reverse the list or array. If value is not a list\n or array it will throw exception."), + }, "(reverse list)\n\n Function that reverses the list or array. If value is not a list\n or array it will error."), // ------------------------------------------------------------------ nth: doc('nth', function nth(index, obj) { typecheck('nth', index, 'number'); @@ -16267,7 +17154,7 @@ } else { throw new Error(typeErrorMessage('nth', type(obj), 'array or pair', 2)); } - }, "(nth index obj)\n\n Function return nth element of the list or array. If used with different\n value it will throw exception"), + }, "(nth index obj)\n\n Function that returns the nth element of the list or array.\n If used with a non-indexable value it will error."), // ------------------------------------------------------------------ list: doc('list', function list() { for (var _len26 = arguments.length, args = new Array(_len26), _key26 = 0; _key26 < _len26; _key26++) { @@ -16277,14 +17164,14 @@ return args.reverse().reduce(function (list, item) { return new Pair(item, list); }, _nil); - }, "(list . args)\n\n Function create new list out of its arguments."), + }, "(list . args)\n\n Function that creates a new list out of its arguments."), // ------------------------------------------------------------------ substring: doc('substring', function substring(string, start, end) { typecheck('substring', string, 'string'); typecheck('substring', start, 'number'); typecheck('substring', end, ['number', 'undefined']); return string.substring(start.valueOf(), end && end.valueOf()); - }, "(substring string start end)\n\n Function return part of the string starting at start ending with end."), + }, "(substring string start end)\n\n Function that returns the slice of the string starting at start and ending\n with end."), // ------------------------------------------------------------------ concat: doc('concat', function concat() { for (var _len27 = arguments.length, args = new Array(_len27), _key27 = 0; _key27 < _len27; _key27++) { @@ -16295,48 +17182,48 @@ return typecheck('concat', arg, 'string', i + 1); }); return args.join(''); - }, "(concat . strings)\n\n Function create new string by joining its arguments"), + }, "(concat . strings)\n\n Function that creates a new string by joining its arguments."), // ------------------------------------------------------------------ join: doc('join', function join(separator, list) { typecheck('join', separator, 'string'); typecheck('join', list, ['pair', 'nil']); return global_env.get('list->array')(list).join(separator); - }, "(join separator list)\n\n Function return string by joining elements of the list"), + }, "(join separator list)\n\n Function that returns a string by joining elements of the list using separator."), // ------------------------------------------------------------------ split: doc('split', function split(separator, string) { typecheck('split', separator, ['regex', 'string']); typecheck('split', string, 'string'); return global_env.get('array->list')(string.split(separator)); - }, "(split separator string)\n\n Function create list by splitting string by separatar that can\n be a string or regular expression."), + }, "(split separator string)\n\n Function that creates a list by splitting string by separator which can\n be a string or regular expression."), // ------------------------------------------------------------------ replace: doc('replace', function replace(pattern, replacement, string) { typecheck('replace', pattern, ['regex', 'string']); typecheck('replace', replacement, ['string', 'function']); typecheck('replace', string, 'string'); return string.replace(pattern, replacement); - }, "(replace pattern replacement string)\n\n Function change pattern to replacement inside string. Pattern can be string\n or regex and replacement can be function or string."), + }, "(replace pattern replacement string)\n\n Function that changes pattern to replacement inside string. Pattern can be a\n string or regex and replacement can be function or string. See Javascript\n String.replace()."), // ------------------------------------------------------------------ match: doc('match', function match(pattern, string) { typecheck('match', pattern, ['regex', 'string']); typecheck('match', string, 'string'); var m = string.match(pattern); return m ? global_env.get('array->list')(m) : false; - }, "(match pattern string)\n\n function return match object from JavaScript as list or #f if not match."), + }, "(match pattern string)\n\n Function that returns a match object from JavaScript as a list or #f if\n no match."), // ------------------------------------------------------------------ search: doc('search', function search(pattern, string) { typecheck('search', pattern, ['regex', 'string']); typecheck('search', string, 'string'); return string.search(pattern); - }, "(search pattern string)\n\n Function return first found index of the pattern inside a string"), + }, "(search pattern string)\n\n Function that returns the first found index of the pattern inside a string."), // ------------------------------------------------------------------ repr: doc('repr', function repr(obj, quote) { return toString(obj, quote); - }, "(repr obj)\n\n Function return string LIPS representation of an object as string."), + }, "(repr obj)\n\n Function that returns a LIPS code representation of the object as a string."), // ------------------------------------------------------------------ 'escape-regex': doc('escape-regex', function (string) { typecheck('escape-regex', string, 'string'); return escape_regex(string.valueOf()); - }, "(escape-regex string)\n\n Function return new string where all special operators used in regex,\n are escaped with slash so they can be used in RegExp constructor\n to match literal string"), + }, "(escape-regex string)\n\n Function that returns a new string where all special operators used in regex,\n are escaped with backslashes so they can be used in the RegExp constructor\n to match a literal string."), // ------------------------------------------------------------------ env: doc('env', function env(env) { env = env || this; @@ -16355,7 +17242,7 @@ } return result; - }, "(env)\n (env obj)\n\n Function return list of values (functions, macros and variables)\n inside environment and it's parents."), + }, "(env)\n (env obj)\n\n Function that returns a list of names (functions, macros and variables)\n that are bound in the current environment or one of its parents."), // ------------------------------------------------------------------ 'new': doc('new', function (obj) { for (var _len28 = arguments.length, args = new Array(_len28 > 1 ? _len28 - 1 : 0), _key28 = 1; _key28 < _len28; _key28++) { @@ -16367,34 +17254,34 @@ }))); return instance; - }, "(new obj . args)\n\n Function create new JavaScript instance of an object."), + }, "(new obj . args)\n\n Function that creates new JavaScript instance of an object."), // ------------------------------------------------------------------ - 'typecheck': doc(typecheck, "(typecheck label value type [position])\n\n Function check type and throw exception if type don't match.\n Type can be string or list of strings. Position optional argument\n is used to created proper error message."), + 'typecheck': doc(typecheck, "(typecheck label value type [position])\n\n Checks the type of value and errors if the type is not one allowed. Type can be\n string or list of strings. The position optional argument is used to create a\n proper error message for the nth argument of function calls."), // ------------------------------------------------------------------ 'unset-special!': doc('unset-special!', function (symbol) { typecheck('remove-special!', symbol, 'string'); delete specials.remove(symbol.valueOf()); - }, "(unset-special! name)\n\n Function remove special symbol from parser. Added by `set-special!`,\n name must be a string."), + }, "(unset-special! name)\n\n Function that removes a special symbol from parser added by `set-special!`,\n name must be a string."), // ------------------------------------------------------------------ 'set-special!': doc('set-special!', function (seq, name) { var type = arguments.length > 2 && arguments[2] !== undefined ? arguments[2] : specials.LITERAL; typecheck('set-special!', seq, 'string', 1); typecheck('set-special!', name, 'symbol', 2); specials.append(seq.valueOf(), name, type); - }, "(set-special! symbol name [type])\n\n Add special symbol to the list of transforming operators by the parser.\n e.g.: `(add-special! \"#\" 'x)` will allow to use `#(1 2 3)` and it will be\n transformed into (x (1 2 3)) so you can write x macro that will process\n the list. 3rd argument is optional and it can be constant value\n lips.specials.SPLICE if this constant is used it will transform\n `#(1 2 3)` into (x 1 2 3) that is required by # that define vectors."), + }, "(set-special! symbol name [type])\n\n Add a special symbol to the list of transforming operators by the parser.\n e.g.: `(add-special! \"#\" 'x)` will allow to use `#(1 2 3)` and it will be\n transformed into (x (1 2 3)) so you can write x macro that will process\n the list. 3rd argument is optional, and it can be one of two values:\n lips.specials.LITERAL, which is the default behavior, or\n lips.specials.SPLICE which causes the value to be unpacked into the expression.\n This can be used for e.g. to make `#(1 2 3)` into (x 1 2 3) that is needed\n by # that defines vectors."), // ------------------------------------------------------------------ 'get': get, '.': get, // ------------------------------------------------------------------ - 'unbind': doc(unbind, "(unbind fn)\n\n Function remove bidning from function so you can get props from it."), + 'unbind': doc(unbind, "(unbind fn)\n\n Function that removes the weak 'this' binding from a function so you\n can get properties from the actual function object."), // ------------------------------------------------------------------ - type: doc(type, "(type object)\n\n Function return type of an object as string."), + type: doc(type, "(type object)\n\n Function that returns the type of an object as string."), // ------------------------------------------------------------------ 'debugger': doc('debugger', function () { /* eslint-disable */ debugger; /* eslint-enable */ - }, "(debugger)\n\n Function stop JavaScript code in debugger."), + }, "(debugger)\n\n Function that triggers the JavaScript debugger (e.g. the browser devtools)\n using the \"debugger;\" statement. If a debugger is not running this\n function does nothing."), // ------------------------------------------------------------------ 'in': doc('in', function (a, b) { if (a instanceof LSymbol || a instanceof LString || a instanceof LNumber) { @@ -16402,19 +17289,19 @@ } return a in unbox(b); - }, "(in key value)\n\n Function use is in operator to check if value is in object."), + }, "(in key value)\n\n Function that uses the Javascript \"in\" operator to check if key is\n a valid property in the value."), // ------------------------------------------------------------------ 'instanceof': doc('instanceof', function (type, obj) { return obj instanceof unbind(type); - }, "(instanceof type obj)\n\n Function check of object is instance of object."), + }, "(instanceof type obj)\n\n Predicate that tests if the obj is an instance of type."), // ------------------------------------------------------------------ - 'prototype?': doc('prototype?', is_prototype, "(prototype? obj)\n\n Function check if value is JavaScript Object prototype."), + 'prototype?': doc('prototype?', is_prototype, "(prototype? obj)\n\n Predicate that tests if value is a valid JavaScript prototype,\n i.e. calling (new) with it will not throw ' is not a constructor'."), // ------------------------------------------------------------------ 'macro?': doc('macro?', function (obj) { return obj instanceof Macro; - }, "(macro? expression)\n\n Function check if value is a macro."), + }, "(macro? expression)\n\n Predicate that tests if value is a macro."), // ------------------------------------------------------------------ - 'function?': doc('function?', is_function, "(function? expression)\n\n Function check if value is a function."), + 'function?': doc('function?', is_function, "(function? expression)\n\n Predicate that tests if value is a callable function."), // ------------------------------------------------------------------ 'real?': doc('real?', function (value) { if (type(value) !== 'number') { @@ -16426,57 +17313,57 @@ } return LNumber.isFloat(value); - }, "(real? number)\n\n Function check if value is real number."), + }, "(real? number)\n\n Predicate that tests if value is a real number (not complex)."), // ------------------------------------------------------------------ 'number?': doc('number?', function (x) { return Number.isNaN(x) || LNumber.isNumber(x); - }, "(number? expression)\n\n Function check if value is a number or NaN value."), + }, "(number? expression)\n\n Predicate that tests if value is a number or NaN value."), // ------------------------------------------------------------------ 'string?': doc('string?', function (obj) { return LString.isString(obj); - }, "(string? expression)\n\n Function check if value is a string."), + }, "(string? expression)\n\n Predicate that tests if value is a string."), // ------------------------------------------------------------------ 'pair?': doc('pair?', function (obj) { return obj instanceof Pair; - }, "(pair? expression)\n\n Function check if value is a pair or list structure."), + }, "(pair? expression)\n\n Predicate that tests if value is a pair or list structure."), // ------------------------------------------------------------------ 'regex?': doc('regex?', function (obj) { return obj instanceof RegExp; - }, "(regex? expression)\n\n Function check if value is regular expression."), + }, "(regex? expression)\n\n Predicate that tests if value is a regular expression."), // ------------------------------------------------------------------ 'null?': doc('null?', function (obj) { return is_null(obj); - }, "(null? expression)\n\n Function check if value is nulish."), + }, "(null? expression)\n\n Predicate that tests if value is null-ish (i.e. undefined, nil, or\n Javascript null)."), // ------------------------------------------------------------------ 'boolean?': doc('boolean?', function (obj) { return typeof obj === 'boolean'; - }, "(boolean? expression)\n\n Function check if value is boolean."), + }, "(boolean? expression)\n\n Predicate that tests if value is a boolean (#t or #f)."), // ------------------------------------------------------------------ 'symbol?': doc('symbol?', function (obj) { return obj instanceof LSymbol; - }, "(symbol? expression)\n\n Function check if value is LIPS symbol"), + }, "(symbol? expression)\n\n Predicate that tests if value is a LIPS symbol."), // ------------------------------------------------------------------ 'array?': doc('array?', function (obj) { return obj instanceof Array; - }, "(array? expression)\n\n Function check if value is an arrray."), + }, "(array? expression)\n\n Predicate that tests if value is an array."), // ------------------------------------------------------------------ 'object?': doc('object?', function (obj) { return obj !== _nil && obj !== null && !(obj instanceof LCharacter) && !(obj instanceof RegExp) && !(obj instanceof LString) && !(obj instanceof Pair) && !(obj instanceof LNumber) && _typeof(obj) === 'object' && !(obj instanceof Array); - }, "(object? expression)\n\n Function check if value is an plain object."), + }, "(object? expression)\n\n Predicate that tests if value is an plain object (not another LIPS type)."), // ------------------------------------------------------------------ flatten: doc('flatten', function flatten(list) { typecheck('flatten', list, 'pair'); return list.flatten(); - }, "(flatten list)\n\n Return shallow list from tree structure (pairs)."), + }, "(flatten list)\n\n Returns a shallow list from tree structure (pairs)."), // ------------------------------------------------------------------ 'array->list': doc('array->list', function (array) { typecheck('array->list', array, 'array'); return Pair.fromArray(array); - }, "(array->list array)\n\n Function convert JavaScript array to LIPS list."), + }, "(array->list array)\n\n Function that converts a JavaScript array to a LIPS cons list."), // ------------------------------------------------------------------ - 'tree->array': doc('tree->array', to_array('tree->array', true), "(tree->array list)\n\n Function convert LIPS list structure into JavaScript array."), + 'tree->array': doc('tree->array', to_array('tree->array', true), "(tree->array list)\n\n Function that converts a LIPS cons tree structure into a JavaScript array."), // ------------------------------------------------------------------ - 'list->array': doc('list->array', to_array('list->array'), "(list->array list)\n\n Function convert LIPS list into JavaScript array."), + 'list->array': doc('list->array', to_array('list->array'), "(list->array list)\n\n Function that converts a LIPS list into a JavaScript array."), // ------------------------------------------------------------------ apply: doc('apply', function apply(fn) { for (var _len29 = arguments.length, args = new Array(_len29 > 1 ? _len29 - 1 : 0), _key29 = 1; _key29 < _len29; _key29++) { @@ -16488,7 +17375,7 @@ typecheck('apply', last, ['pair', 'nil'], args.length + 2); args = args.concat(global_env.get('list->array').call(this, last)); return fn.apply(this, prepare_fn_args(fn, args)); - }, "(apply fn list)\n\n Function that call function with list of arguments."), + }, "(apply fn list)\n\n Function that calls fn with the list of arguments."), // ------------------------------------------------------------------ length: doc('length', function length(obj) { if (!obj || obj === _nil) { @@ -16502,7 +17389,7 @@ if ("length" in obj) { return obj.length; } - }, "(length expression)\n\n Function return length of the object, the object can be list\n or any object that have length property."), + }, "(length expression)\n\n Function that returns the length of the object. The object can be a LIPS\n list or any object that has a \"length\" property. Returns undefined if the\n length could not be found."), // ------------------------------------------------------------------ 'string->number': doc('string->number', function (arg) { var radix = arguments.length > 1 && arguments[1] !== undefined ? arguments[1] : 10; @@ -16528,7 +17415,7 @@ } return false; - }, "(string->number number [radix])\n\n Function convert string to number."), + }, "(string->number number [radix])\n\n Function that parses a string into a number."), // ------------------------------------------------------------------ 'try': doc(new Macro('try', function (code, _ref39) { var _this24 = this; @@ -16603,14 +17490,14 @@ _next(result, resolve); } }); - }), "(try expr (catch (e) code))\n (try expr (catch (e) code) (finally code))\n (try expr (finally code))\n\n Macro execute user code and catch exception. If catch is provided\n it's executed when expression expr throw error. If finally is provide\n it's always executed at the end."), + }), "(try expr (catch (e) code))\n (try expr (catch (e) code) (finally code))\n (try expr (finally code))\n\n Macro that executes expr and catches any exceptions thrown. If catch is provided\n it's executed when an error is thrown. If finally is provided it's always\n executed at the end."), // ------------------------------------------------------------------ 'raise': doc('raise', function (obj) { throw obj; - }, "(raise obj)\n\n Throws new exception with given object."), + }, "(raise obj)\n\n Throws the object verbatim (no wrapping an a new Error)."), 'throw': doc('throw', function (message) { throw new Error(message); - }, "(throw string)\n\n Throws new expection."), + }, "(throw string)\n\n Throws a new exception."), // ------------------------------------------------------------------ find: doc('find', function find(arg, list) { typecheck('find', arg, ['regex', 'function']); @@ -16628,7 +17515,7 @@ return find(arg, list.cdr); }); - }, "(find fn list)\n (find regex list)\n\n Higher order Function find first value for which function return true.\n If called with regex it will create matcher function."), + }, "(find fn list)\n (find regex list)\n\n Higher-order function that finds the first value for which fn return true.\n If called with a regex it will create a matcher function."), // ------------------------------------------------------------------ 'for-each': doc('for-each', function (fn) { var _global_env$get2; @@ -16650,7 +17537,7 @@ if (is_promise(ret)) { return ret.then(function () {}); } - }, "(for-each fn . lists)\n\n Higher order function that call function `fn` by for each\n value of the argument. If you provide more then one list as argument\n it will take each value from each list and call `fn` function\n with that many argument as number of list arguments."), + }, "(for-each fn . lists)\n\n Higher-order function that calls function `fn` on each\n value of the argument. If you provide more than one list\n it will take each value from each list and call `fn` function\n with that many arguments as number of list arguments."), // ------------------------------------------------------------------ map: doc('map', function map(fn) { var _this25 = this; @@ -16692,7 +17579,7 @@ return new Pair(head, rest); }); }); - }, "(map fn . lists)\n\n Higher order function that call function `fn` by for each\n value of the argument. If you provide more then one list as argument\n it will take each value from each list and call `fn` function\n with that many argument as number of list arguments. The return\n values of the function call is acumulated in result list and\n returned by the call to map."), + }, "(map fn . lists)\n\n Higher-order function that calls function `fn` with each\n value of the list. If you provide more then one list as argument\n it will take each value from each list and call `fn` function\n with that many argument as number of list arguments. The return\n values of the fn calls are accumulated in a result list and\n returned by map."), // ------------------------------------------------------------------ 'list?': doc('list?', function (obj) { var node = obj; @@ -16712,7 +17599,7 @@ node = node.cdr; } - }, "(list? obj)\n\n Function test if value is proper linked list structure.\n The car of each pair can be any value. It return false on cycles.\""), + }, "(list? obj)\n\n Predicate that tests if value is a proper linked list structure.\n The car of each pair can be any value. It returns false on cyclic lists.\""), // ------------------------------------------------------------------ some: doc('some', function some(fn, list) { typecheck('some', fn, 'function'); @@ -16725,7 +17612,7 @@ return value || some(fn, list.cdr); }); } - }, "(some fn list)\n\n Higher order function that call argument on each element of the list.\n It stops when function fn return true for a value if so it will\n return true. If none of the values give true, the function return false"), + }, "(some fn list)\n\n Higher-order function that calls fn on each element of the list.\n It stops and returns true when fn returns true for a value.\n If none of the values give true, some will return false.\n Analogous to Python any(map(fn, list))."), // ------------------------------------------------------------------ fold: doc('fold', fold('fold', function (fold, fn, init) { for (var _len32 = arguments.length, lists = new Array(_len32 > 3 ? _len32 - 3 : 0), _key32 = 3; _key32 < _len32; _key32++) { @@ -16751,7 +17638,7 @@ return l.car; })).concat([value])); }); - }), "(fold fn init . lists)\n\n Function fold is reverse of the reduce. it call function `fn`\n on each elements of the list and return single value.\n e.g. it call (fn a1 b1 (fn a2 b2 (fn a3 b3 '())))\n for: (fold fn '() alist blist)"), + }), "(fold fn init . lists)\n\n Function fold is left-to-right reversal of reduce. It call `fn`\n on each pair of elements of the list and returns a single value.\n e.g. it computes (fn 'a 'x (fn 'b 'y (fn 'c 'z 'foo)))\n for: (fold fn 'foo '(a b c) '(x y z))"), // ------------------------------------------------------------------ pluck: doc('pluck', function pluck() { for (var _len33 = arguments.length, keys = new Array(_len33), _key33 = 0; _key33 < _len33; _key33++) { @@ -16779,7 +17666,7 @@ }); return result; }; - }, "(pluck . string)\n\n If called with single string it will return function that will return\n key from object. If called with more then one argument function will\n return new object by taking all properties from given object."), + }, "(pluck . strings)\n\n If called with a single string it will return a function that when\n called with an object will return that key from the object.\n If called with more then one string the returned function will\n create a new object by copying all properties from the given object."), // ------------------------------------------------------------------ reduce: doc('reduce', fold('reduce', function (reduce, fn, init) { var _this26 = this; @@ -16806,7 +17693,7 @@ return l.cdr; })))); }); - }), "(reduce fn init list . lists)\n\n Higher order function take each element of the list and call\n the function with result of previous call or init and next element\n on the list until each element is processed and return single value\n as result of last call to `fn` function.\n e.g. it call (fn a3 b3 (fn a2 b2 (fn a1 b1 init)))\n for (reduce fn init alist blist)"), + }), "(reduce fn init list . lists)\n\n Higher-order function that takes each element of the list and calls\n the fn with result of previous call or init and the next element\n of the list until each element is processed, and returns a single value\n as result of last call to `fn` function.\n e.g. it computes (fn 'c 'z (fn 'b 'y (fn 'a 'x 'foo)))\n for: (reduce fn 'foo '(a b c) '(x y z))"), // ------------------------------------------------------------------ filter: doc('filter', function filter(arg, list) { typecheck('filter', arg, ['regex', 'function']); @@ -16830,11 +17717,11 @@ var item = array[i]; return unpromise(fn(item), next); }(0); - }, "(filter fn list)\n (filter regex list)\n\n Higher order function that call `fn` for each element of the list\n and return list for only those elements for which funtion return\n true value. If called with regex it will create matcher function."), + }, "(filter fn list)\n (filter regex list)\n\n Higher-order function that calls `fn` for each element of the list\n and return a new list for only those elements for which fn returns\n a truthy value. If called with a regex it will create a matcher function."), // ------------------------------------------------------------------ - compose: doc(compose, "(compose . fns)\n\n Higher order function and create new function that apply all functions\n From right to left and return it's value. Reverse of compose.\n e.g.:\n ((compose (curry + 2) (curry * 3)) 3)\n 11\n "), - pipe: doc(pipe, "(pipe . fns)\n\n Higher order function and create new function that apply all functions\n From left to right and return it's value. Reverse of compose.\n e.g.:\n ((pipe (curry + 2) (curry * 3)) 3)\n 15"), - curry: doc(curry, "(curry fn . args)\n\n Higher order function that create curried version of the function.\n The result function will have parially applied arguments and it\n will keep returning functions until all arguments are added\n\n e.g.:\n (define (add a b c d) (+ a b c d))\n (define add1 (curry add 1))\n (define add12 (add 2))\n (display (add12 3 4))"), + compose: doc(compose, "(compose . fns)\n\n Higher-order function that creates a new function that applies all functions\n from right to left and returns the last value. Reverse of pipe.\n e.g.:\n ((compose (curry + 2) (curry * 3)) 10) --> (+ 2 (* 3 10)) --> 32"), + pipe: doc(pipe, "(pipe . fns)\n\n Higher-order function that creates a new function that applies all functions\n from left to right and returns the last value. Reverse of compose.\n e.g.:\n ((pipe (curry + 2) (curry * 3)) 10) --> (* 3 (+ 2 10)) --> 36"), + curry: doc(curry, "(curry fn . args)\n\n Higher-order function that creates a curried version of the function.\n The result function will have partially applied arguments and it\n will keep returning one-argument functions until all arguments are provided,\n then it calls the original function with the accumulated arguments.\n\n e.g.:\n (define (add a b c d) (+ a b c d))\n (define add1 (curry add 1))\n (define add12 (add 2))\n (display (add12 3 4))"), // ------------------------------------------------------------------ // Numbers // ------------------------------------------------------------------ @@ -16847,7 +17734,7 @@ return args.reduce(function (result, item) { return result.gcd(item); }); - }, "(gcd n1 n2 ...)\n\n Function return the greatest common divisor of their arguments."), + }, "(gcd n1 n2 ...)\n\n Function that returns the greatest common divisor of the arguments."), // ------------------------------------------------------------------ lcm: doc('lcm', function lcm() { for (var _len36 = arguments.length, args = new Array(_len36), _key37 = 0; _key37 < _len36; _key37++) { @@ -16871,24 +17758,24 @@ } return LNumber(a); - }, "(lcm n1 n2 ...)\n\n Function return the least common multiple of their arguments."), + }, "(lcm n1 n2 ...)\n\n Function that returns the least common multiple of the arguments."), // ------------------------------------------------------------------ 'odd?': doc('odd?', single_math_op(function (num) { return LNumber(num).isOdd(); - }), "(odd? number)\n\n Function check if number os odd."), + }), "(odd? number)\n\n Checks if number is odd."), // ------------------------------------------------------------------ 'even?': doc('even?', single_math_op(function (num) { return LNumber(num).isEven(); - }), "(even? number)\n\n Function check if number is even."), + }), "(even? number)\n\n Checks if number is even."), // ------------------------------------------------------------------ // math functions '*': doc('*', reduce_math_op(function (a, b) { return LNumber(a).mul(b); - }, LNumber(1)), "(* . numbers)\n\n Multiplicate all numbers passed as arguments. If single value is passed\n it will return that value."), + }, LNumber(1)), "(* . numbers)\n\n Multiplies all numbers passed as arguments. If single value is passed\n it will return that value."), // ------------------------------------------------------------------ '+': doc('+', reduce_math_op(function (a, b) { return LNumber(a).add(b); - }, LNumber(0)), "(+ . numbers)\n\n Sum all numbers passed as arguments. If single value is passed it will\n return that value."), + }, LNumber(0)), "(+ . numbers)\n\n Sums all numbers passed as arguments. If single value is passed it will\n return that value."), // ------------------------------------------------------------------ '-': doc('-', function () { for (var _len37 = arguments.length, args = new Array(_len37), _key38 = 0; _key38 < _len37; _key38++) { @@ -16910,7 +17797,7 @@ return LNumber(a).sub(b); })); } - }, "(- n1 n2 ...)\n (- n)\n\n Substract number passed as argument. If only one argument is passed\n it will negate the value."), + }, "(- n1 n2 ...)\n (- n)\n\n Subtracts n2 and subsequent numbers from n1. If only one argument is passed\n it will negate the value."), // ------------------------------------------------------------------ '/': doc('/', function () { for (var _len38 = arguments.length, args = new Array(_len38), _key39 = 0; _key39 < _len38; _key39++) { @@ -16930,11 +17817,11 @@ return args.reduce(binary_math_op(function (a, b) { return LNumber(a).div(b); })); - }, "(/ n1 n2 ...)\n (/ n)\n\n Divide number passed as arguments one by one. If single argument\n is passed it will calculate (/ 1 n1)."), + }, "(/ n1 n2 ...)\n (/ n)\n\n Divides n1 by n2 and subsequent arguments one by one. If single argument\n is passed it will calculate (/ 1 n)."), // ------------------------------------------------------------------ abs: doc('abs', single_math_op(function (n) { return LNumber(n).abs(); - }), "(abs number)\n\n Function create absolute value from number."), + }), "(abs number)\n\n Function that returns the absolute value (magnitude) of number."), // ------------------------------------------------------------------ truncate: doc('truncate', function (n) { typecheck('truncate', n, 'number'); @@ -16948,11 +17835,11 @@ } return n; - }, "(truncate n)\n\n Function return integer value from real number."), + }, "(truncate n)\n\n Function that returns the integer part (floor) of a real number."), // ------------------------------------------------------------------ sqrt: doc('sqrt', single_math_op(function (n) { return LNumber(n).sqrt(); - }), "(sqrt number)\n\n Function return square root of the number."), + }), "(sqrt number)\n\n Function that returns the square root of the number."), // ------------------------------------------------------------------ '**': doc('**', binary_math_op(function (a, b) { a = LNumber(a); @@ -16963,20 +17850,20 @@ } return a.pow(b); - }), "(** a b)\n\n Function calculate number a to to the power of b."), + }), "(** a b)\n\n Function that calculates number a to to the power of b."), // ------------------------------------------------------------------ '1+': doc('1+', single_math_op(function (number) { return LNumber(number).add(1); - }), "(1+ number)\n\n Function add 1 to the number and return result."), + }), "(1+ number)\n\n Function that adds 1 to the number and return result."), // ------------------------------------------------------------------ '1-': doc(single_math_op(function (number) { return LNumber(number).sub(1); - }), "(1- number)\n\n Function substract 1 from the number and return result."), + }), "(1- number)\n\n Function that subtracts 1 from the number and return result."), // ------------------------------------------------------------------ '%': doc('%', function (a, b) { typecheck_args('%', [a, b], 'number'); return LNumber(a).rem(b); - }, "(% n1 n2)\n\n Function get reminder of it's arguments."), + }, "(% n1 n2)\n\n Function returns the remainder of n1/n2 (modulo)."), // ------------------------------------------------------------------ // Booleans '==': doc('==', function () { @@ -16988,7 +17875,7 @@ return seq_compare(function (a, b) { return LNumber(a).cmp(b) === 0; }, args); - }, "(== x1 x2 ...)\n\n Function compare its numerical arguments and check if they are equal"), + }, "(== x1 x2 ...)\n\n Function that compares its numerical arguments and checks if they are\n all equal."), // ------------------------------------------------------------------ '>': doc('>', function () { for (var _len40 = arguments.length, args = new Array(_len40), _key41 = 0; _key41 < _len40; _key41++) { @@ -16999,7 +17886,7 @@ return seq_compare(function (a, b) { return LNumber(a).cmp(b) === 1; }, args); - }, "(> x1 x2 ...)\n\n Function compare its numerical arguments and check if they are\n monotonically increasing"), + }, "(> x1 x2 x3 ...)\n\n Function that compares its numerical arguments and checks if they are\n monotonically decreasing, i.e. x1 > x2 and x2 > x3 and so on."), // ------------------------------------------------------------------ '<': doc('<', function () { for (var _len41 = arguments.length, args = new Array(_len41), _key42 = 0; _key42 < _len41; _key42++) { @@ -17010,7 +17897,7 @@ return seq_compare(function (a, b) { return LNumber(a).cmp(b) === -1; }, args); - }, "(< x1 x2 ...)\n\n Function compare its numerical arguments and check if they are\n monotonically decreasing"), + }, "(< x1 x2 ...)\n\n Function that compares its numerical arguments and checks if they are\n monotonically increasing, i.e. x1 < x2 and x2 < x3 and so on."), // ------------------------------------------------------------------ '<=': doc('<=', function () { for (var _len42 = arguments.length, args = new Array(_len42), _key43 = 0; _key43 < _len42; _key43++) { @@ -17021,7 +17908,7 @@ return seq_compare(function (a, b) { return [0, -1].includes(LNumber(a).cmp(b)); }, args); - }, "(<= x1 x2 ...)\n\n Function compare its numerical arguments and check if they are\n monotonically nonincreasing"), + }, "(<= x1 x2 ...)\n\n Function that compares its numerical arguments and checks if they are\n monotonically nondecreasing, i.e. x1 <= x2 and x2 <= x3 and so on."), // ------------------------------------------------------------------ '>=': doc('>=', function () { for (var _len43 = arguments.length, args = new Array(_len43), _key44 = 0; _key44 < _len43; _key44++) { @@ -17032,9 +17919,9 @@ return seq_compare(function (a, b) { return [0, 1].includes(LNumber(a).cmp(b)); }, args); - }, "(>= x1 x2 ...)\n\n Function compare its numerical arguments and check if they are\n monotonically nondecreasing"), + }, "(>= x1 x2 ...)\n\n Function that compares its numerical arguments and checks if they are\n monotonically nonincreasing, i.e. x1 >= x2 and x2 >= x3 and so on."), // ------------------------------------------------------------------ - 'eq?': doc('eq?', equal, "(eq? a b)\n\n Function compare two values if they are identical."), + 'eq?': doc('eq?', equal, "(eq? a b)\n\n Function that compares two values if they are identical."), // ------------------------------------------------------------------ or: doc(new Macro('or', function (code, _ref40) { var dynamic_scope = _ref40.dynamic_scope, @@ -17080,7 +17967,7 @@ return unpromise(value, next); } }(); - }), "(or . expressions)\n\n Macro execute the values one by one and return the one that is truthy value.\n If there are no expression that evaluate to true it return false."), + }), "(or . expressions)\n\n Macro that executes the values one by one and returns the first that is\n a truthy value. If there are no expressions that evaluate to true it\n returns false."), // ------------------------------------------------------------------ and: doc(new Macro('and', function (code) { var _ref41 = arguments.length > 1 && arguments[1] !== undefined ? arguments[1] : {}, @@ -17128,42 +18015,42 @@ return unpromise(value, next); } }(); - }), "(and . expressions)\n\n Macro evalute each expression in sequence if any value return false it will\n return false. If each value return true it will return the last value.\n If it's called without arguments it will return true."), + }), "(and . expressions)\n\n Macro that evaluates each expression in sequence and if any value returns false\n it will stop and return false. If each value returns true it will return the\n last value. If it's called without arguments it will return true."), // bit operations '|': doc('|', function (a, b) { return LNumber(a).or(b); - }, "(| a b)\n\n Function calculate or bit operation."), + }, "(| a b)\n\n Function that calculates the bitwise or operation."), '&': doc('&', function (a, b) { return LNumber(a).and(b); - }, "(& a b)\n\n Function calculate and bit operation."), + }, "(& a b)\n\n Function that calculates the bitwise and operation."), '~': doc('~', function (a) { return LNumber(a).neg(); - }, "(~ number)\n\n Function negate the value."), + }, "(~ number)\n\n Function that calculates the bitwise inverse (flip all the bits)."), '>>': doc('>>', function (a, b) { return LNumber(a).shr(b); - }, "(>> a b)\n\n Function right shit the value a by value b."), + }, "(>> a b)\n\n Function that right shifts the value a by value b bits."), '<<': doc('<<', function (a, b) { return LNumber(a).shl(b); - }, "(<< a b)\n\n Function left shit the value a by value b."), + }, "(<< a b)\n\n Function that left shifts the value a by value b bits."), not: doc('not', function not(value) { if (is_null(value)) { return true; } return !value; - }, "(not object)\n\n Function return negation of the argument.") + }, "(not object)\n\n Function that returns the Boolean negation of its argument.") }, undefined, 'global'); var user_env = global_env.inherit('user-env'); // ------------------------------------------------------------------------- function set_interaction_env(interaction, internal) { interaction.constant('**internal-env**', internal); - interaction.doc('**internal-env**', "**internal-env**\n\n Constant used to hide stdin, stdout and stderr so they don't interfere\n with variables with the same name. Constants are internal type\n of variables that can't be redefined, defining variable with same name\n will throw an error."); + interaction.doc('**internal-env**', "**internal-env**\n\n Constant used to hide stdin, stdout and stderr so they don't interfere\n with variables with the same name. Constants are an internal type\n of variable that can't be redefined, defining a variable with the same name\n will throw an error."); global_env.set('**interaction-environment**', interaction); } // ------------------------------------------------------------------------- set_interaction_env(user_env, internal_env); - global_env.doc('**interaction-environment**', "**interaction-environment**\n\n Internal dynamic, global variable used to find interpreter environment.\n It's used so the read and write functions can locate **internal-env**\n that contain references to stdin, stdout and stderr."); // ------------------------------------------------------------------------- + global_env.doc('**interaction-environment**', "**interaction-environment**\n\n Internal dynamic, global variable used to find interpreter environment.\n It's used so the read and write functions can locate **internal-env**\n that contains the references to stdin, stdout and stderr."); // ------------------------------------------------------------------------- (function () { var map = { @@ -17177,7 +18064,7 @@ if (value instanceof LNumber) { return value[fn](); } - }, "(".concat(name, " number)\n\n Function calculate ").concat(name, " of a number."))); + }, "(".concat(name, " number)\n\n Function that calculates the ").concat(name, " of a number."))); }); })(); // ------------------------------------------------------------------------- // ref: https://stackoverflow.com/a/4331218/387194 @@ -17237,7 +18124,7 @@ return list.cdr; } }, arg); - }, "(".concat(name, " arg)\n\n Function calculate ").concat(code))); + }, "(".concat(name, " arg)\n\n Function that calculates ").concat(code))); }); // ----------------------------------------------------------------------------- function reversseFind(dir, fn) { @@ -17273,30 +18160,30 @@ function _node_specific() { - _node_specific = _asyncToGenerator( /*#__PURE__*/regenerator.mark(function _callee21() { + _node_specific = _asyncToGenerator( /*#__PURE__*/_regeneratorRuntime.mark(function _callee23() { var _yield$import, createRequire, moduleURL, __dirname, __filename; - return regenerator.wrap(function _callee21$(_context22) { + return _regeneratorRuntime.wrap(function _callee23$(_context23) { while (1) { - switch (_context22.prev = _context22.next) { + switch (_context23.prev = _context23.next) { case 0: - _context22.next = 2; + _context23.next = 2; return Promise.resolve().then(function () { return empty$1; }); case 2: - _yield$import = _context22.sent; + _yield$import = _context23.sent; createRequire = _yield$import.createRequire; nodeRequire = createRequire((typeof document === 'undefined' && typeof location === 'undefined' ? new (require('u' + 'rl').URL)('file:' + __filename).href : typeof document === 'undefined' ? location.href : (document.currentScript && document.currentScript.src || new URL('lips.js', document.baseURI).href))); - _context22.next = 7; + _context23.next = 7; return Promise.resolve().then(function () { return empty$1; }); case 7: - fs = _context22.sent; - _context22.next = 10; + fs = _context23.sent; + _context23.next = 10; return Promise.resolve().then(function () { return path$1; }); case 10: - path$2 = _context22.sent; + path$2 = _context23.sent; global_env.set('global', global); global_env.set('self', global); global_env.set('window', undefined); @@ -17310,7 +18197,7 @@ typecheck('require.resolve', path, 'string'); var name = path.valueOf(); return nodeRequire.resolve(name); - }, "(require.resolve path)\n\n Return path relative the current module.")); // --------------------------------------------------------------------- + }, "(require.resolve path)\n\n Returns the path relative to the current module.\n\n Only available when LIPS is running under Node.js.")); // --------------------------------------------------------------------- global_env.set('require', doc('require', function (module) { typecheck('require', module, 'string'); @@ -17335,14 +18222,14 @@ } return patch_value(value, global); - }, "(require module)\n\n Function to be used inside Node.js to import the module.")); + }, "(require module)\n\n Function used inside Node.js to import a module.")); case 21: case "end": - return _context22.stop(); + return _context23.stop(); } } - }, _callee21); + }, _callee23); })); return _node_specific.apply(this, arguments); } @@ -17369,12 +18256,13 @@ } if (is_function(expected)) { - return "Invalid type got ".concat(got).concat(postfix); + return "Invalid type: got ".concat(got).concat(postfix); } if (expected instanceof Array) { if (expected.length === 1) { - expected = expected[0]; + var first = expected[0].toLowerCase(); + expected = 'a' + ('aeiou'.includes(first) ? 'n ' : ' ') + expected[0]; } else { var last = expected[expected.length - 1]; expected = expected.slice(0, -1).join(', ') + ' or ' + last; @@ -17500,8 +18388,8 @@ } if (_typeof(obj) === 'object') { - for (var _i4 = 0, _Object$entries2 = Object.entries(type_mapping); _i4 < _Object$entries2.length; _i4++) { - var _Object$entries2$_i = _slicedToArray(_Object$entries2[_i4], 2), + for (var _i5 = 0, _Object$entries2 = Object.entries(type_mapping); _i5 < _Object$entries2.length; _i5++) { + var _Object$entries2$_i = _slicedToArray(_Object$entries2[_i5], 2), _key45 = _Object$entries2$_i[0], value = _Object$entries2$_i[1]; @@ -17578,14 +18466,14 @@ } } - function promise(_x16) { + function promise(_x17) { return _promise.apply(this, arguments); } function _promise() { - _promise = _asyncToGenerator( /*#__PURE__*/regenerator.mark(function _callee19(node) { + _promise = _asyncToGenerator( /*#__PURE__*/_regeneratorRuntime.mark(function _callee20(node) { var pair; - return regenerator.wrap(function _callee19$(_context20) { + return _regeneratorRuntime.wrap(function _callee20$(_context20) { while (1) { switch (_context20.prev = _context20.next) { case 0: @@ -17641,7 +18529,7 @@ return _context20.stop(); } } - }, _callee19); + }, _callee20); })); return _promise.apply(this, arguments); } @@ -17939,7 +18827,7 @@ if (__promise__ === true && is_promise(result)) { // fix #139 evaluate the code inside the promise that is not data. - // When promise is not quoted it happen automatically, when returing + // When promise is not quoted it happen automatically, when returning // promise from evaluate. result = result.then(function (result) { if (result instanceof Pair && !value[__data__]) { @@ -17968,10 +18856,10 @@ function exec_collect(collect_callback) { return /*#__PURE__*/function () { - var _exec_lambda = _asyncToGenerator( /*#__PURE__*/regenerator.mark(function _callee20(arg, env, dynamic_scope) { + var _exec_lambda = _asyncToGenerator( /*#__PURE__*/_regeneratorRuntime.mark(function _callee21(arg, env, dynamic_scope) { var results, input, _iteratorAbruptCompletion3, _didIteratorError3, _iteratorError3, _iterator3, _step3, code, value; - return regenerator.wrap(function _callee20$(_context21) { + return _regeneratorRuntime.wrap(function _callee21$(_context21) { while (1) { switch (_context21.prev = _context21.next) { case 0: @@ -18099,10 +18987,10 @@ return _context21.stop(); } } - }, _callee20, null, [[5, 29, 33, 43], [34,, 38, 42]]); + }, _callee21, null, [[5, 29, 33, 43], [34,, 38, 42]]); })); - function exec_lambda(_x17, _x18, _x19) { + function exec_lambda(_x18, _x19, _x20) { return _exec_lambda.apply(this, arguments); } @@ -18272,7 +19160,7 @@ if (data.method === 'eval') { if (!init) { - send_error('Worker RPC: LIPS not initilized, call init first'); + send_error('Worker RPC: LIPS not initialized, call init first'); return; } @@ -18388,8 +19276,8 @@ var available_class = Object.keys(serialization_map); var class_map = {}; - for (var _i5 = 0, _Object$entries3 = Object.entries(available_class); _i5 < _Object$entries3.length; _i5++) { - var _Object$entries3$_i = _slicedToArray(_Object$entries3[_i5], 2), + for (var _i6 = 0, _Object$entries3 = Object.entries(available_class); _i6 < _Object$entries3.length; _i6++) { + var _Object$entries3$_i = _slicedToArray(_Object$entries3[_i6], 2), i = _Object$entries3$_i[0], cls = _Object$entries3$_i[1]; @@ -18472,8 +19360,8 @@ var encoder = new Encoder(); var cbor_serialization_map = {}; - for (var _i6 = 0, _Object$entries4 = Object.entries(serialization_map); _i6 < _Object$entries4.length; _i6++) { - var _Object$entries4$_i = _slicedToArray(_Object$entries4[_i6], 2), + for (var _i7 = 0, _Object$entries4 = Object.entries(serialization_map); _i7 < _Object$entries4.length; _i7++) { + var _Object$entries4$_i = _slicedToArray(_Object$entries4[_i7], 2), name = _Object$entries4$_i[0], fn = _Object$entries4$_i[1]; @@ -18614,7 +19502,7 @@ function init() { var lips_mimes = ['text/x-lips', 'text/x-scheme']; - var bootstraped; + var bootstrapped; function load(script) { return new Promise(function (resolve) { @@ -18650,7 +19538,7 @@ if (lips_mimes.includes(type)) { var bootstrap_attr = script.getAttribute('bootstrap'); - if (!bootstraped && typeof bootstrap_attr === 'string') { + if (!bootstrapped && typeof bootstrap_attr === 'string') { return bootstrap(bootstrap_attr).then(function () { return load(script); }).then(loop); @@ -18675,7 +19563,7 @@ if (typeof bootstrap_attr === 'string') { return bootstrap(bootstrap_attr).then(function () { - bootstraped = true; + bootstrapped = true; return loop(); }); } @@ -18694,10 +19582,10 @@ var banner = function () { // Rollup tree-shaking is removing the variable if it's normal string because - // obviously 'Mon, 15 Nov 2021 19:33:52 +0000' == '{{' + 'DATE}}'; can be removed - // but disablig Tree-shaking is adding lot of not used code so we use this + // obviously 'Wed, 22 Nov 2023 13:53:23 +0000' == '{{' + 'DATE}}'; can be removed + // but disabling Tree-shaking is adding lot of not used code so we use this // hack instead - var date = LString('Mon, 15 Nov 2021 19:33:52 +0000').valueOf(); + var date = LString('Wed, 22 Nov 2023 13:53:23 +0000').valueOf(); var _date = date === '{{' + 'DATE}}' ? new Date() : new Date(date); @@ -18709,7 +19597,7 @@ var _build = [_year, _format(_date.getMonth() + 1), _format(_date.getDate())].join('-'); - var banner = "\n __ __ __\n / / \\ \\ _ _ ___ ___ \\ \\\n| | \\ \\ | | | || . \\/ __> | |\n| | > \\ | |_ | || _/\\__ \\ | |\n| | / ^ \\ |___||_||_| <___/ | |\n \\_\\ /_/ \\_\\ /_/\n\nLIPS Interpreter 1.0.0-beta.16 (".concat(_build, ") \nCopyright (c) 2018-").concat(_year, " Jakub T. Jankiewicz\n\nType (env) to see environment with functions macros and variables. You can also\nuse (help name) to display help for specic function or macro, (apropos name)\nto display list of matched names in environment and (dir object) to list\nproperties of an object.\n").replace(/^.*\n/, ''); + var banner = "\n __ __ __\n / / \\ \\ _ _ ___ ___ \\ \\\n| | \\ \\ | | | || . \\/ __> | |\n| | > \\ | |_ | || _/\\__ \\ | |\n| | / ^ \\ |___||_||_| <___/ | |\n \\_\\ /_/ \\_\\ /_/\n\nLIPS Interpreter DEV (".concat(_build, ") \nCopyright (c) 2018-").concat(_year, " Jakub T. Jankiewicz\n\nType (env) to see environment with functions macros and variables. You can also\nuse (help name) to display help for specific function or macro, (apropos name)\nto display list of matched names in environment and (dir object) to list\nproperties of an object.\n").replace(/^.*\n/, ''); return banner; }(); // ------------------------------------------------------------------------- // to be used with string function when code is minified @@ -18741,9 +19629,9 @@ read_only(QuotedPromise, '__class__', 'promise'); // ------------------------------------------------------------------------- var lips = { - version: '1.0.0-beta.16', + version: 'DEV', banner: banner, - date: 'Mon, 15 Nov 2021 19:33:52 +0000', + date: 'Wed, 22 Nov 2023 13:53:23 +0000', exec: exec, // unwrap async generator into Promise parse: compose(uniterate_async, parse), diff --git a/dist/lips.js.map b/dist/lips.js.map new file mode 100644 index 000000000..f72773ca8 --- /dev/null +++ b/dist/lips.js.map @@ -0,0 +1 @@ +{"version":3,"file":"lips.js","sources":["../node_modules/@babel/runtime/helpers/esm/assertThisInitialized.js","../node_modules/@babel/runtime/helpers/esm/setPrototypeOf.js","../node_modules/@babel/runtime/helpers/esm/isNativeReflectConstruct.js","../node_modules/@babel/runtime/helpers/esm/construct.js","../node_modules/@babel/runtime/helpers/esm/inherits.js","../node_modules/@babel/runtime/helpers/esm/typeof.js","../node_modules/@babel/runtime/helpers/esm/possibleConstructorReturn.js","../node_modules/@babel/runtime/helpers/esm/getPrototypeOf.js","../node_modules/@babel/runtime/helpers/esm/arrayWithHoles.js","../node_modules/@babel/runtime/helpers/esm/iterableToArray.js","../node_modules/@babel/runtime/helpers/esm/arrayLikeToArray.js","../node_modules/@babel/runtime/helpers/esm/unsupportedIterableToArray.js","../node_modules/@babel/runtime/helpers/esm/nonIterableRest.js","../node_modules/@babel/runtime/helpers/esm/toArray.js","../node_modules/@babel/runtime/helpers/esm/arrayWithoutHoles.js","../node_modules/@babel/runtime/helpers/esm/nonIterableSpread.js","../node_modules/@babel/runtime/helpers/esm/toConsumableArray.js","../node_modules/@babel/runtime/helpers/esm/asyncToGenerator.js","../node_modules/@babel/runtime/helpers/esm/classCallCheck.js","../node_modules/@babel/runtime/helpers/esm/createClass.js","../node_modules/@babel/runtime/helpers/esm/defineProperty.js","../node_modules/@babel/runtime/helpers/esm/objectWithoutPropertiesLoose.js","../node_modules/@babel/runtime/helpers/esm/objectWithoutProperties.js","../node_modules/@babel/runtime/helpers/esm/iterableToArrayLimit.js","../node_modules/@babel/runtime/helpers/esm/slicedToArray.js","../node_modules/@babel/runtime/helpers/esm/asyncIterator.js","../node_modules/@babel/runtime/helpers/esm/AwaitValue.js","../node_modules/@babel/runtime/helpers/esm/awaitAsyncGenerator.js","../node_modules/@babel/runtime/helpers/esm/AsyncGenerator.js","../node_modules/@babel/runtime/helpers/esm/wrapAsyncGenerator.js","../node_modules/regenerator-runtime/runtime.js","../node_modules/@babel/runtime/regenerator/index.js","../node_modules/rollup-plugin-node-polyfills/polyfills/global.js","../node_modules/rollup-plugin-node-polyfills/polyfills/buffer-es6.js","../node_modules/cbor-x/decode.js","../node_modules/cbor-x/encode.js","../node_modules/lzjb-pack/index.cjs","../node_modules/unfetch/dist/unfetch.module.js","../src/lips.js","../node_modules/rollup-plugin-node-polyfills/polyfills/empty.js","../node_modules/rollup-plugin-node-polyfills/polyfills/path.js"],"sourcesContent":["export default function _assertThisInitialized(self) {\n if (self === void 0) {\n throw new ReferenceError(\"this hasn't been initialised - super() hasn't been called\");\n }\n\n return self;\n}","export default function _setPrototypeOf(o, p) {\n _setPrototypeOf = Object.setPrototypeOf || function _setPrototypeOf(o, p) {\n o.__proto__ = p;\n return o;\n };\n\n return _setPrototypeOf(o, p);\n}","export default function _isNativeReflectConstruct() {\n if (typeof Reflect === \"undefined\" || !Reflect.construct) return false;\n if (Reflect.construct.sham) return false;\n if (typeof Proxy === \"function\") return true;\n\n try {\n Boolean.prototype.valueOf.call(Reflect.construct(Boolean, [], function () {}));\n return true;\n } catch (e) {\n return false;\n }\n}","import setPrototypeOf from \"./setPrototypeOf.js\";\nimport isNativeReflectConstruct from \"./isNativeReflectConstruct.js\";\nexport default function _construct(Parent, args, Class) {\n if (isNativeReflectConstruct()) {\n _construct = Reflect.construct;\n } else {\n _construct = function _construct(Parent, args, Class) {\n var a = [null];\n a.push.apply(a, args);\n var Constructor = Function.bind.apply(Parent, a);\n var instance = new Constructor();\n if (Class) setPrototypeOf(instance, Class.prototype);\n return instance;\n };\n }\n\n return _construct.apply(null, arguments);\n}","import setPrototypeOf from \"./setPrototypeOf.js\";\nexport default function _inherits(subClass, superClass) {\n if (typeof superClass !== \"function\" && superClass !== null) {\n throw new TypeError(\"Super expression must either be null or a function\");\n }\n\n subClass.prototype = Object.create(superClass && superClass.prototype, {\n constructor: {\n value: subClass,\n writable: true,\n configurable: true\n }\n });\n if (superClass) setPrototypeOf(subClass, superClass);\n}","export default function _typeof(obj) {\n \"@babel/helpers - typeof\";\n\n if (typeof Symbol === \"function\" && typeof Symbol.iterator === \"symbol\") {\n _typeof = function _typeof(obj) {\n return typeof obj;\n };\n } else {\n _typeof = function _typeof(obj) {\n return obj && typeof Symbol === \"function\" && obj.constructor === Symbol && obj !== Symbol.prototype ? \"symbol\" : typeof obj;\n };\n }\n\n return _typeof(obj);\n}","import _typeof from \"@babel/runtime/helpers/typeof\";\nimport assertThisInitialized from \"./assertThisInitialized.js\";\nexport default function _possibleConstructorReturn(self, call) {\n if (call && (_typeof(call) === \"object\" || typeof call === \"function\")) {\n return call;\n } else if (call !== void 0) {\n throw new TypeError(\"Derived constructors may only return object or undefined\");\n }\n\n return assertThisInitialized(self);\n}","export default function _getPrototypeOf(o) {\n _getPrototypeOf = Object.setPrototypeOf ? Object.getPrototypeOf : function _getPrototypeOf(o) {\n return o.__proto__ || Object.getPrototypeOf(o);\n };\n return _getPrototypeOf(o);\n}","export default function _arrayWithHoles(arr) {\n if (Array.isArray(arr)) return arr;\n}","export default function _iterableToArray(iter) {\n if (typeof Symbol !== \"undefined\" && iter[Symbol.iterator] != null || iter[\"@@iterator\"] != null) return Array.from(iter);\n}","export default function _arrayLikeToArray(arr, len) {\n if (len == null || len > arr.length) len = arr.length;\n\n for (var i = 0, arr2 = new Array(len); i < len; i++) {\n arr2[i] = arr[i];\n }\n\n return arr2;\n}","import arrayLikeToArray from \"./arrayLikeToArray.js\";\nexport default function _unsupportedIterableToArray(o, minLen) {\n if (!o) return;\n if (typeof o === \"string\") return arrayLikeToArray(o, minLen);\n var n = Object.prototype.toString.call(o).slice(8, -1);\n if (n === \"Object\" && o.constructor) n = o.constructor.name;\n if (n === \"Map\" || n === \"Set\") return Array.from(o);\n if (n === \"Arguments\" || /^(?:Ui|I)nt(?:8|16|32)(?:Clamped)?Array$/.test(n)) return arrayLikeToArray(o, minLen);\n}","export default function _nonIterableRest() {\n throw new TypeError(\"Invalid attempt to destructure non-iterable instance.\\nIn order to be iterable, non-array objects must have a [Symbol.iterator]() method.\");\n}","import arrayWithHoles from \"./arrayWithHoles.js\";\nimport iterableToArray from \"./iterableToArray.js\";\nimport unsupportedIterableToArray from \"./unsupportedIterableToArray.js\";\nimport nonIterableRest from \"./nonIterableRest.js\";\nexport default function _toArray(arr) {\n return arrayWithHoles(arr) || iterableToArray(arr) || unsupportedIterableToArray(arr) || nonIterableRest();\n}","import arrayLikeToArray from \"./arrayLikeToArray.js\";\nexport default function _arrayWithoutHoles(arr) {\n if (Array.isArray(arr)) return arrayLikeToArray(arr);\n}","export default function _nonIterableSpread() {\n throw new TypeError(\"Invalid attempt to spread non-iterable instance.\\nIn order to be iterable, non-array objects must have a [Symbol.iterator]() method.\");\n}","import arrayWithoutHoles from \"./arrayWithoutHoles.js\";\nimport iterableToArray from \"./iterableToArray.js\";\nimport unsupportedIterableToArray from \"./unsupportedIterableToArray.js\";\nimport nonIterableSpread from \"./nonIterableSpread.js\";\nexport default function _toConsumableArray(arr) {\n return arrayWithoutHoles(arr) || iterableToArray(arr) || unsupportedIterableToArray(arr) || nonIterableSpread();\n}","function asyncGeneratorStep(gen, resolve, reject, _next, _throw, key, arg) {\n try {\n var info = gen[key](arg);\n var value = info.value;\n } catch (error) {\n reject(error);\n return;\n }\n\n if (info.done) {\n resolve(value);\n } else {\n Promise.resolve(value).then(_next, _throw);\n }\n}\n\nexport default function _asyncToGenerator(fn) {\n return function () {\n var self = this,\n args = arguments;\n return new Promise(function (resolve, reject) {\n var gen = fn.apply(self, args);\n\n function _next(value) {\n asyncGeneratorStep(gen, resolve, reject, _next, _throw, \"next\", value);\n }\n\n function _throw(err) {\n asyncGeneratorStep(gen, resolve, reject, _next, _throw, \"throw\", err);\n }\n\n _next(undefined);\n });\n };\n}","export default function _classCallCheck(instance, Constructor) {\n if (!(instance instanceof Constructor)) {\n throw new TypeError(\"Cannot call a class as a function\");\n }\n}","function _defineProperties(target, props) {\n for (var i = 0; i < props.length; i++) {\n var descriptor = props[i];\n descriptor.enumerable = descriptor.enumerable || false;\n descriptor.configurable = true;\n if (\"value\" in descriptor) descriptor.writable = true;\n Object.defineProperty(target, descriptor.key, descriptor);\n }\n}\n\nexport default function _createClass(Constructor, protoProps, staticProps) {\n if (protoProps) _defineProperties(Constructor.prototype, protoProps);\n if (staticProps) _defineProperties(Constructor, staticProps);\n return Constructor;\n}","export default function _defineProperty(obj, key, value) {\n if (key in obj) {\n Object.defineProperty(obj, key, {\n value: value,\n enumerable: true,\n configurable: true,\n writable: true\n });\n } else {\n obj[key] = value;\n }\n\n return obj;\n}","export default function _objectWithoutPropertiesLoose(source, excluded) {\n if (source == null) return {};\n var target = {};\n var sourceKeys = Object.keys(source);\n var key, i;\n\n for (i = 0; i < sourceKeys.length; i++) {\n key = sourceKeys[i];\n if (excluded.indexOf(key) >= 0) continue;\n target[key] = source[key];\n }\n\n return target;\n}","import objectWithoutPropertiesLoose from \"./objectWithoutPropertiesLoose.js\";\nexport default function _objectWithoutProperties(source, excluded) {\n if (source == null) return {};\n var target = objectWithoutPropertiesLoose(source, excluded);\n var key, i;\n\n if (Object.getOwnPropertySymbols) {\n var sourceSymbolKeys = Object.getOwnPropertySymbols(source);\n\n for (i = 0; i < sourceSymbolKeys.length; i++) {\n key = sourceSymbolKeys[i];\n if (excluded.indexOf(key) >= 0) continue;\n if (!Object.prototype.propertyIsEnumerable.call(source, key)) continue;\n target[key] = source[key];\n }\n }\n\n return target;\n}","export default function _iterableToArrayLimit(arr, i) {\n var _i = arr == null ? null : typeof Symbol !== \"undefined\" && arr[Symbol.iterator] || arr[\"@@iterator\"];\n\n if (_i == null) return;\n var _arr = [];\n var _n = true;\n var _d = false;\n\n var _s, _e;\n\n try {\n for (_i = _i.call(arr); !(_n = (_s = _i.next()).done); _n = true) {\n _arr.push(_s.value);\n\n if (i && _arr.length === i) break;\n }\n } catch (err) {\n _d = true;\n _e = err;\n } finally {\n try {\n if (!_n && _i[\"return\"] != null) _i[\"return\"]();\n } finally {\n if (_d) throw _e;\n }\n }\n\n return _arr;\n}","import arrayWithHoles from \"./arrayWithHoles.js\";\nimport iterableToArrayLimit from \"./iterableToArrayLimit.js\";\nimport unsupportedIterableToArray from \"./unsupportedIterableToArray.js\";\nimport nonIterableRest from \"./nonIterableRest.js\";\nexport default function _slicedToArray(arr, i) {\n return arrayWithHoles(arr) || iterableToArrayLimit(arr, i) || unsupportedIterableToArray(arr, i) || nonIterableRest();\n}","export default function _asyncIterator(iterable) {\n var method;\n\n if (typeof Symbol !== \"undefined\") {\n if (Symbol.asyncIterator) method = iterable[Symbol.asyncIterator];\n if (method == null && Symbol.iterator) method = iterable[Symbol.iterator];\n }\n\n if (method == null) method = iterable[\"@@asyncIterator\"];\n if (method == null) method = iterable[\"@@iterator\"];\n if (method == null) throw new TypeError(\"Object is not async iterable\");\n return method.call(iterable);\n}","export default function _AwaitValue(value) {\n this.wrapped = value;\n}","import AwaitValue from \"./AwaitValue.js\";\nexport default function _awaitAsyncGenerator(value) {\n return new AwaitValue(value);\n}","import AwaitValue from \"./AwaitValue.js\";\nexport default function AsyncGenerator(gen) {\n var front, back;\n\n function send(key, arg) {\n return new Promise(function (resolve, reject) {\n var request = {\n key: key,\n arg: arg,\n resolve: resolve,\n reject: reject,\n next: null\n };\n\n if (back) {\n back = back.next = request;\n } else {\n front = back = request;\n resume(key, arg);\n }\n });\n }\n\n function resume(key, arg) {\n try {\n var result = gen[key](arg);\n var value = result.value;\n var wrappedAwait = value instanceof AwaitValue;\n Promise.resolve(wrappedAwait ? value.wrapped : value).then(function (arg) {\n if (wrappedAwait) {\n resume(key === \"return\" ? \"return\" : \"next\", arg);\n return;\n }\n\n settle(result.done ? \"return\" : \"normal\", arg);\n }, function (err) {\n resume(\"throw\", err);\n });\n } catch (err) {\n settle(\"throw\", err);\n }\n }\n\n function settle(type, value) {\n switch (type) {\n case \"return\":\n front.resolve({\n value: value,\n done: true\n });\n break;\n\n case \"throw\":\n front.reject(value);\n break;\n\n default:\n front.resolve({\n value: value,\n done: false\n });\n break;\n }\n\n front = front.next;\n\n if (front) {\n resume(front.key, front.arg);\n } else {\n back = null;\n }\n }\n\n this._invoke = send;\n\n if (typeof gen[\"return\"] !== \"function\") {\n this[\"return\"] = undefined;\n }\n}\n\nAsyncGenerator.prototype[typeof Symbol === \"function\" && Symbol.asyncIterator || \"@@asyncIterator\"] = function () {\n return this;\n};\n\nAsyncGenerator.prototype.next = function (arg) {\n return this._invoke(\"next\", arg);\n};\n\nAsyncGenerator.prototype[\"throw\"] = function (arg) {\n return this._invoke(\"throw\", arg);\n};\n\nAsyncGenerator.prototype[\"return\"] = function (arg) {\n return this._invoke(\"return\", arg);\n};","import AsyncGenerator from \"./AsyncGenerator.js\";\nexport default function _wrapAsyncGenerator(fn) {\n return function () {\n return new AsyncGenerator(fn.apply(this, arguments));\n };\n}","/**\n * Copyright (c) 2014-present, Facebook, Inc.\n *\n * This source code is licensed under the MIT license found in the\n * LICENSE file in the root directory of this source tree.\n */\n\nvar runtime = (function (exports) {\n \"use strict\";\n\n var Op = Object.prototype;\n var hasOwn = Op.hasOwnProperty;\n var undefined; // More compressible than void 0.\n var $Symbol = typeof Symbol === \"function\" ? Symbol : {};\n var iteratorSymbol = $Symbol.iterator || \"@@iterator\";\n var asyncIteratorSymbol = $Symbol.asyncIterator || \"@@asyncIterator\";\n var toStringTagSymbol = $Symbol.toStringTag || \"@@toStringTag\";\n\n function define(obj, key, value) {\n Object.defineProperty(obj, key, {\n value: value,\n enumerable: true,\n configurable: true,\n writable: true\n });\n return obj[key];\n }\n try {\n // IE 8 has a broken Object.defineProperty that only works on DOM objects.\n define({}, \"\");\n } catch (err) {\n define = function(obj, key, value) {\n return obj[key] = value;\n };\n }\n\n function wrap(innerFn, outerFn, self, tryLocsList) {\n // If outerFn provided and outerFn.prototype is a Generator, then outerFn.prototype instanceof Generator.\n var protoGenerator = outerFn && outerFn.prototype instanceof Generator ? outerFn : Generator;\n var generator = Object.create(protoGenerator.prototype);\n var context = new Context(tryLocsList || []);\n\n // The ._invoke method unifies the implementations of the .next,\n // .throw, and .return methods.\n generator._invoke = makeInvokeMethod(innerFn, self, context);\n\n return generator;\n }\n exports.wrap = wrap;\n\n // Try/catch helper to minimize deoptimizations. Returns a completion\n // record like context.tryEntries[i].completion. This interface could\n // have been (and was previously) designed to take a closure to be\n // invoked without arguments, but in all the cases we care about we\n // already have an existing method we want to call, so there's no need\n // to create a new function object. We can even get away with assuming\n // the method takes exactly one argument, since that happens to be true\n // in every case, so we don't have to touch the arguments object. The\n // only additional allocation required is the completion record, which\n // has a stable shape and so hopefully should be cheap to allocate.\n function tryCatch(fn, obj, arg) {\n try {\n return { type: \"normal\", arg: fn.call(obj, arg) };\n } catch (err) {\n return { type: \"throw\", arg: err };\n }\n }\n\n var GenStateSuspendedStart = \"suspendedStart\";\n var GenStateSuspendedYield = \"suspendedYield\";\n var GenStateExecuting = \"executing\";\n var GenStateCompleted = \"completed\";\n\n // Returning this object from the innerFn has the same effect as\n // breaking out of the dispatch switch statement.\n var ContinueSentinel = {};\n\n // Dummy constructor functions that we use as the .constructor and\n // .constructor.prototype properties for functions that return Generator\n // objects. For full spec compliance, you may wish to configure your\n // minifier not to mangle the names of these two functions.\n function Generator() {}\n function GeneratorFunction() {}\n function GeneratorFunctionPrototype() {}\n\n // This is a polyfill for %IteratorPrototype% for environments that\n // don't natively support it.\n var IteratorPrototype = {};\n define(IteratorPrototype, iteratorSymbol, function () {\n return this;\n });\n\n var getProto = Object.getPrototypeOf;\n var NativeIteratorPrototype = getProto && getProto(getProto(values([])));\n if (NativeIteratorPrototype &&\n NativeIteratorPrototype !== Op &&\n hasOwn.call(NativeIteratorPrototype, iteratorSymbol)) {\n // This environment has a native %IteratorPrototype%; use it instead\n // of the polyfill.\n IteratorPrototype = NativeIteratorPrototype;\n }\n\n var Gp = GeneratorFunctionPrototype.prototype =\n Generator.prototype = Object.create(IteratorPrototype);\n GeneratorFunction.prototype = GeneratorFunctionPrototype;\n define(Gp, \"constructor\", GeneratorFunctionPrototype);\n define(GeneratorFunctionPrototype, \"constructor\", GeneratorFunction);\n GeneratorFunction.displayName = define(\n GeneratorFunctionPrototype,\n toStringTagSymbol,\n \"GeneratorFunction\"\n );\n\n // Helper for defining the .next, .throw, and .return methods of the\n // Iterator interface in terms of a single ._invoke method.\n function defineIteratorMethods(prototype) {\n [\"next\", \"throw\", \"return\"].forEach(function(method) {\n define(prototype, method, function(arg) {\n return this._invoke(method, arg);\n });\n });\n }\n\n exports.isGeneratorFunction = function(genFun) {\n var ctor = typeof genFun === \"function\" && genFun.constructor;\n return ctor\n ? ctor === GeneratorFunction ||\n // For the native GeneratorFunction constructor, the best we can\n // do is to check its .name property.\n (ctor.displayName || ctor.name) === \"GeneratorFunction\"\n : false;\n };\n\n exports.mark = function(genFun) {\n if (Object.setPrototypeOf) {\n Object.setPrototypeOf(genFun, GeneratorFunctionPrototype);\n } else {\n genFun.__proto__ = GeneratorFunctionPrototype;\n define(genFun, toStringTagSymbol, \"GeneratorFunction\");\n }\n genFun.prototype = Object.create(Gp);\n return genFun;\n };\n\n // Within the body of any async function, `await x` is transformed to\n // `yield regeneratorRuntime.awrap(x)`, so that the runtime can test\n // `hasOwn.call(value, \"__await\")` to determine if the yielded value is\n // meant to be awaited.\n exports.awrap = function(arg) {\n return { __await: arg };\n };\n\n function AsyncIterator(generator, PromiseImpl) {\n function invoke(method, arg, resolve, reject) {\n var record = tryCatch(generator[method], generator, arg);\n if (record.type === \"throw\") {\n reject(record.arg);\n } else {\n var result = record.arg;\n var value = result.value;\n if (value &&\n typeof value === \"object\" &&\n hasOwn.call(value, \"__await\")) {\n return PromiseImpl.resolve(value.__await).then(function(value) {\n invoke(\"next\", value, resolve, reject);\n }, function(err) {\n invoke(\"throw\", err, resolve, reject);\n });\n }\n\n return PromiseImpl.resolve(value).then(function(unwrapped) {\n // When a yielded Promise is resolved, its final value becomes\n // the .value of the Promise<{value,done}> result for the\n // current iteration.\n result.value = unwrapped;\n resolve(result);\n }, function(error) {\n // If a rejected Promise was yielded, throw the rejection back\n // into the async generator function so it can be handled there.\n return invoke(\"throw\", error, resolve, reject);\n });\n }\n }\n\n var previousPromise;\n\n function enqueue(method, arg) {\n function callInvokeWithMethodAndArg() {\n return new PromiseImpl(function(resolve, reject) {\n invoke(method, arg, resolve, reject);\n });\n }\n\n return previousPromise =\n // If enqueue has been called before, then we want to wait until\n // all previous Promises have been resolved before calling invoke,\n // so that results are always delivered in the correct order. If\n // enqueue has not been called before, then it is important to\n // call invoke immediately, without waiting on a callback to fire,\n // so that the async generator function has the opportunity to do\n // any necessary setup in a predictable way. This predictability\n // is why the Promise constructor synchronously invokes its\n // executor callback, and why async functions synchronously\n // execute code before the first await. Since we implement simple\n // async functions in terms of async generators, it is especially\n // important to get this right, even though it requires care.\n previousPromise ? previousPromise.then(\n callInvokeWithMethodAndArg,\n // Avoid propagating failures to Promises returned by later\n // invocations of the iterator.\n callInvokeWithMethodAndArg\n ) : callInvokeWithMethodAndArg();\n }\n\n // Define the unified helper method that is used to implement .next,\n // .throw, and .return (see defineIteratorMethods).\n this._invoke = enqueue;\n }\n\n defineIteratorMethods(AsyncIterator.prototype);\n define(AsyncIterator.prototype, asyncIteratorSymbol, function () {\n return this;\n });\n exports.AsyncIterator = AsyncIterator;\n\n // Note that simple async functions are implemented on top of\n // AsyncIterator objects; they just return a Promise for the value of\n // the final result produced by the iterator.\n exports.async = function(innerFn, outerFn, self, tryLocsList, PromiseImpl) {\n if (PromiseImpl === void 0) PromiseImpl = Promise;\n\n var iter = new AsyncIterator(\n wrap(innerFn, outerFn, self, tryLocsList),\n PromiseImpl\n );\n\n return exports.isGeneratorFunction(outerFn)\n ? iter // If outerFn is a generator, return the full iterator.\n : iter.next().then(function(result) {\n return result.done ? result.value : iter.next();\n });\n };\n\n function makeInvokeMethod(innerFn, self, context) {\n var state = GenStateSuspendedStart;\n\n return function invoke(method, arg) {\n if (state === GenStateExecuting) {\n throw new Error(\"Generator is already running\");\n }\n\n if (state === GenStateCompleted) {\n if (method === \"throw\") {\n throw arg;\n }\n\n // Be forgiving, per 25.3.3.3.3 of the spec:\n // https://people.mozilla.org/~jorendorff/es6-draft.html#sec-generatorresume\n return doneResult();\n }\n\n context.method = method;\n context.arg = arg;\n\n while (true) {\n var delegate = context.delegate;\n if (delegate) {\n var delegateResult = maybeInvokeDelegate(delegate, context);\n if (delegateResult) {\n if (delegateResult === ContinueSentinel) continue;\n return delegateResult;\n }\n }\n\n if (context.method === \"next\") {\n // Setting context._sent for legacy support of Babel's\n // function.sent implementation.\n context.sent = context._sent = context.arg;\n\n } else if (context.method === \"throw\") {\n if (state === GenStateSuspendedStart) {\n state = GenStateCompleted;\n throw context.arg;\n }\n\n context.dispatchException(context.arg);\n\n } else if (context.method === \"return\") {\n context.abrupt(\"return\", context.arg);\n }\n\n state = GenStateExecuting;\n\n var record = tryCatch(innerFn, self, context);\n if (record.type === \"normal\") {\n // If an exception is thrown from innerFn, we leave state ===\n // GenStateExecuting and loop back for another invocation.\n state = context.done\n ? GenStateCompleted\n : GenStateSuspendedYield;\n\n if (record.arg === ContinueSentinel) {\n continue;\n }\n\n return {\n value: record.arg,\n done: context.done\n };\n\n } else if (record.type === \"throw\") {\n state = GenStateCompleted;\n // Dispatch the exception by looping back around to the\n // context.dispatchException(context.arg) call above.\n context.method = \"throw\";\n context.arg = record.arg;\n }\n }\n };\n }\n\n // Call delegate.iterator[context.method](context.arg) and handle the\n // result, either by returning a { value, done } result from the\n // delegate iterator, or by modifying context.method and context.arg,\n // setting context.delegate to null, and returning the ContinueSentinel.\n function maybeInvokeDelegate(delegate, context) {\n var method = delegate.iterator[context.method];\n if (method === undefined) {\n // A .throw or .return when the delegate iterator has no .throw\n // method always terminates the yield* loop.\n context.delegate = null;\n\n if (context.method === \"throw\") {\n // Note: [\"return\"] must be used for ES3 parsing compatibility.\n if (delegate.iterator[\"return\"]) {\n // If the delegate iterator has a return method, give it a\n // chance to clean up.\n context.method = \"return\";\n context.arg = undefined;\n maybeInvokeDelegate(delegate, context);\n\n if (context.method === \"throw\") {\n // If maybeInvokeDelegate(context) changed context.method from\n // \"return\" to \"throw\", let that override the TypeError below.\n return ContinueSentinel;\n }\n }\n\n context.method = \"throw\";\n context.arg = new TypeError(\n \"The iterator does not provide a 'throw' method\");\n }\n\n return ContinueSentinel;\n }\n\n var record = tryCatch(method, delegate.iterator, context.arg);\n\n if (record.type === \"throw\") {\n context.method = \"throw\";\n context.arg = record.arg;\n context.delegate = null;\n return ContinueSentinel;\n }\n\n var info = record.arg;\n\n if (! info) {\n context.method = \"throw\";\n context.arg = new TypeError(\"iterator result is not an object\");\n context.delegate = null;\n return ContinueSentinel;\n }\n\n if (info.done) {\n // Assign the result of the finished delegate to the temporary\n // variable specified by delegate.resultName (see delegateYield).\n context[delegate.resultName] = info.value;\n\n // Resume execution at the desired location (see delegateYield).\n context.next = delegate.nextLoc;\n\n // If context.method was \"throw\" but the delegate handled the\n // exception, let the outer generator proceed normally. If\n // context.method was \"next\", forget context.arg since it has been\n // \"consumed\" by the delegate iterator. If context.method was\n // \"return\", allow the original .return call to continue in the\n // outer generator.\n if (context.method !== \"return\") {\n context.method = \"next\";\n context.arg = undefined;\n }\n\n } else {\n // Re-yield the result returned by the delegate method.\n return info;\n }\n\n // The delegate iterator is finished, so forget it and continue with\n // the outer generator.\n context.delegate = null;\n return ContinueSentinel;\n }\n\n // Define Generator.prototype.{next,throw,return} in terms of the\n // unified ._invoke helper method.\n defineIteratorMethods(Gp);\n\n define(Gp, toStringTagSymbol, \"Generator\");\n\n // A Generator should always return itself as the iterator object when the\n // @@iterator function is called on it. Some browsers' implementations of the\n // iterator prototype chain incorrectly implement this, causing the Generator\n // object to not be returned from this call. This ensures that doesn't happen.\n // See https://github.com/facebook/regenerator/issues/274 for more details.\n define(Gp, iteratorSymbol, function() {\n return this;\n });\n\n define(Gp, \"toString\", function() {\n return \"[object Generator]\";\n });\n\n function pushTryEntry(locs) {\n var entry = { tryLoc: locs[0] };\n\n if (1 in locs) {\n entry.catchLoc = locs[1];\n }\n\n if (2 in locs) {\n entry.finallyLoc = locs[2];\n entry.afterLoc = locs[3];\n }\n\n this.tryEntries.push(entry);\n }\n\n function resetTryEntry(entry) {\n var record = entry.completion || {};\n record.type = \"normal\";\n delete record.arg;\n entry.completion = record;\n }\n\n function Context(tryLocsList) {\n // The root entry object (effectively a try statement without a catch\n // or a finally block) gives us a place to store values thrown from\n // locations where there is no enclosing try statement.\n this.tryEntries = [{ tryLoc: \"root\" }];\n tryLocsList.forEach(pushTryEntry, this);\n this.reset(true);\n }\n\n exports.keys = function(object) {\n var keys = [];\n for (var key in object) {\n keys.push(key);\n }\n keys.reverse();\n\n // Rather than returning an object with a next method, we keep\n // things simple and return the next function itself.\n return function next() {\n while (keys.length) {\n var key = keys.pop();\n if (key in object) {\n next.value = key;\n next.done = false;\n return next;\n }\n }\n\n // To avoid creating an additional object, we just hang the .value\n // and .done properties off the next function object itself. This\n // also ensures that the minifier will not anonymize the function.\n next.done = true;\n return next;\n };\n };\n\n function values(iterable) {\n if (iterable) {\n var iteratorMethod = iterable[iteratorSymbol];\n if (iteratorMethod) {\n return iteratorMethod.call(iterable);\n }\n\n if (typeof iterable.next === \"function\") {\n return iterable;\n }\n\n if (!isNaN(iterable.length)) {\n var i = -1, next = function next() {\n while (++i < iterable.length) {\n if (hasOwn.call(iterable, i)) {\n next.value = iterable[i];\n next.done = false;\n return next;\n }\n }\n\n next.value = undefined;\n next.done = true;\n\n return next;\n };\n\n return next.next = next;\n }\n }\n\n // Return an iterator with no values.\n return { next: doneResult };\n }\n exports.values = values;\n\n function doneResult() {\n return { value: undefined, done: true };\n }\n\n Context.prototype = {\n constructor: Context,\n\n reset: function(skipTempReset) {\n this.prev = 0;\n this.next = 0;\n // Resetting context._sent for legacy support of Babel's\n // function.sent implementation.\n this.sent = this._sent = undefined;\n this.done = false;\n this.delegate = null;\n\n this.method = \"next\";\n this.arg = undefined;\n\n this.tryEntries.forEach(resetTryEntry);\n\n if (!skipTempReset) {\n for (var name in this) {\n // Not sure about the optimal order of these conditions:\n if (name.charAt(0) === \"t\" &&\n hasOwn.call(this, name) &&\n !isNaN(+name.slice(1))) {\n this[name] = undefined;\n }\n }\n }\n },\n\n stop: function() {\n this.done = true;\n\n var rootEntry = this.tryEntries[0];\n var rootRecord = rootEntry.completion;\n if (rootRecord.type === \"throw\") {\n throw rootRecord.arg;\n }\n\n return this.rval;\n },\n\n dispatchException: function(exception) {\n if (this.done) {\n throw exception;\n }\n\n var context = this;\n function handle(loc, caught) {\n record.type = \"throw\";\n record.arg = exception;\n context.next = loc;\n\n if (caught) {\n // If the dispatched exception was caught by a catch block,\n // then let that catch block handle the exception normally.\n context.method = \"next\";\n context.arg = undefined;\n }\n\n return !! caught;\n }\n\n for (var i = this.tryEntries.length - 1; i >= 0; --i) {\n var entry = this.tryEntries[i];\n var record = entry.completion;\n\n if (entry.tryLoc === \"root\") {\n // Exception thrown outside of any try block that could handle\n // it, so set the completion value of the entire function to\n // throw the exception.\n return handle(\"end\");\n }\n\n if (entry.tryLoc <= this.prev) {\n var hasCatch = hasOwn.call(entry, \"catchLoc\");\n var hasFinally = hasOwn.call(entry, \"finallyLoc\");\n\n if (hasCatch && hasFinally) {\n if (this.prev < entry.catchLoc) {\n return handle(entry.catchLoc, true);\n } else if (this.prev < entry.finallyLoc) {\n return handle(entry.finallyLoc);\n }\n\n } else if (hasCatch) {\n if (this.prev < entry.catchLoc) {\n return handle(entry.catchLoc, true);\n }\n\n } else if (hasFinally) {\n if (this.prev < entry.finallyLoc) {\n return handle(entry.finallyLoc);\n }\n\n } else {\n throw new Error(\"try statement without catch or finally\");\n }\n }\n }\n },\n\n abrupt: function(type, arg) {\n for (var i = this.tryEntries.length - 1; i >= 0; --i) {\n var entry = this.tryEntries[i];\n if (entry.tryLoc <= this.prev &&\n hasOwn.call(entry, \"finallyLoc\") &&\n this.prev < entry.finallyLoc) {\n var finallyEntry = entry;\n break;\n }\n }\n\n if (finallyEntry &&\n (type === \"break\" ||\n type === \"continue\") &&\n finallyEntry.tryLoc <= arg &&\n arg <= finallyEntry.finallyLoc) {\n // Ignore the finally entry if control is not jumping to a\n // location outside the try/catch block.\n finallyEntry = null;\n }\n\n var record = finallyEntry ? finallyEntry.completion : {};\n record.type = type;\n record.arg = arg;\n\n if (finallyEntry) {\n this.method = \"next\";\n this.next = finallyEntry.finallyLoc;\n return ContinueSentinel;\n }\n\n return this.complete(record);\n },\n\n complete: function(record, afterLoc) {\n if (record.type === \"throw\") {\n throw record.arg;\n }\n\n if (record.type === \"break\" ||\n record.type === \"continue\") {\n this.next = record.arg;\n } else if (record.type === \"return\") {\n this.rval = this.arg = record.arg;\n this.method = \"return\";\n this.next = \"end\";\n } else if (record.type === \"normal\" && afterLoc) {\n this.next = afterLoc;\n }\n\n return ContinueSentinel;\n },\n\n finish: function(finallyLoc) {\n for (var i = this.tryEntries.length - 1; i >= 0; --i) {\n var entry = this.tryEntries[i];\n if (entry.finallyLoc === finallyLoc) {\n this.complete(entry.completion, entry.afterLoc);\n resetTryEntry(entry);\n return ContinueSentinel;\n }\n }\n },\n\n \"catch\": function(tryLoc) {\n for (var i = this.tryEntries.length - 1; i >= 0; --i) {\n var entry = this.tryEntries[i];\n if (entry.tryLoc === tryLoc) {\n var record = entry.completion;\n if (record.type === \"throw\") {\n var thrown = record.arg;\n resetTryEntry(entry);\n }\n return thrown;\n }\n }\n\n // The context.catch method must only be called with a location\n // argument that corresponds to a known catch block.\n throw new Error(\"illegal catch attempt\");\n },\n\n delegateYield: function(iterable, resultName, nextLoc) {\n this.delegate = {\n iterator: values(iterable),\n resultName: resultName,\n nextLoc: nextLoc\n };\n\n if (this.method === \"next\") {\n // Deliberately forget the last sent value so that we don't\n // accidentally pass it on to the delegate.\n this.arg = undefined;\n }\n\n return ContinueSentinel;\n }\n };\n\n // Regardless of whether this script is executing as a CommonJS module\n // or not, return the runtime object so that we can declare the variable\n // regeneratorRuntime in the outer scope, which allows this module to be\n // injected easily by `bin/regenerator --include-runtime script.js`.\n return exports;\n\n}(\n // If this script is executing as a CommonJS module, use module.exports\n // as the regeneratorRuntime namespace. Otherwise create a new empty\n // object. Either way, the resulting object will be used to initialize\n // the regeneratorRuntime variable at the top of this file.\n typeof module === \"object\" ? module.exports : {}\n));\n\ntry {\n regeneratorRuntime = runtime;\n} catch (accidentalStrictMode) {\n // This module should not be running in strict mode, so the above\n // assignment should always work unless something is misconfigured. Just\n // in case runtime.js accidentally runs in strict mode, in modern engines\n // we can explicitly access globalThis. In older engines we can escape\n // strict mode using a global Function call. This could conceivably fail\n // if a Content Security Policy forbids using Function, but in that case\n // the proper solution is to fix the accidental strict mode problem. If\n // you've misconfigured your bundler to force strict mode and applied a\n // CSP to forbid Function, and you're not willing to fix either of those\n // problems, please detail your unique predicament in a GitHub issue.\n if (typeof globalThis === \"object\") {\n globalThis.regeneratorRuntime = runtime;\n } else {\n Function(\"r\", \"regeneratorRuntime = r\")(runtime);\n }\n}\n","module.exports = require(\"regenerator-runtime\");\n","export default (typeof global !== \"undefined\" ? global :\n typeof self !== \"undefined\" ? self :\n typeof window !== \"undefined\" ? window : {});","var lookup = [];\nvar revLookup = [];\nvar Arr = typeof Uint8Array !== 'undefined' ? Uint8Array : Array;\nvar inited = false;\nfunction init () {\n inited = true;\n var code = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';\n for (var i = 0, len = code.length; i < len; ++i) {\n lookup[i] = code[i];\n revLookup[code.charCodeAt(i)] = i;\n }\n\n revLookup['-'.charCodeAt(0)] = 62;\n revLookup['_'.charCodeAt(0)] = 63;\n}\n\nfunction toByteArray (b64) {\n if (!inited) {\n init();\n }\n var i, j, l, tmp, placeHolders, arr;\n var len = b64.length;\n\n if (len % 4 > 0) {\n throw new Error('Invalid string. Length must be a multiple of 4')\n }\n\n // the number of equal signs (place holders)\n // if there are two placeholders, than the two characters before it\n // represent one byte\n // if there is only one, then the three characters before it represent 2 bytes\n // this is just a cheap hack to not do indexOf twice\n placeHolders = b64[len - 2] === '=' ? 2 : b64[len - 1] === '=' ? 1 : 0;\n\n // base64 is 4/3 + up to two characters of the original data\n arr = new Arr(len * 3 / 4 - placeHolders);\n\n // if there are placeholders, only get up to the last complete 4 chars\n l = placeHolders > 0 ? len - 4 : len;\n\n var L = 0;\n\n for (i = 0, j = 0; i < l; i += 4, j += 3) {\n tmp = (revLookup[b64.charCodeAt(i)] << 18) | (revLookup[b64.charCodeAt(i + 1)] << 12) | (revLookup[b64.charCodeAt(i + 2)] << 6) | revLookup[b64.charCodeAt(i + 3)];\n arr[L++] = (tmp >> 16) & 0xFF;\n arr[L++] = (tmp >> 8) & 0xFF;\n arr[L++] = tmp & 0xFF;\n }\n\n if (placeHolders === 2) {\n tmp = (revLookup[b64.charCodeAt(i)] << 2) | (revLookup[b64.charCodeAt(i + 1)] >> 4);\n arr[L++] = tmp & 0xFF;\n } else if (placeHolders === 1) {\n tmp = (revLookup[b64.charCodeAt(i)] << 10) | (revLookup[b64.charCodeAt(i + 1)] << 4) | (revLookup[b64.charCodeAt(i + 2)] >> 2);\n arr[L++] = (tmp >> 8) & 0xFF;\n arr[L++] = tmp & 0xFF;\n }\n\n return arr\n}\n\nfunction tripletToBase64 (num) {\n return lookup[num >> 18 & 0x3F] + lookup[num >> 12 & 0x3F] + lookup[num >> 6 & 0x3F] + lookup[num & 0x3F]\n}\n\nfunction encodeChunk (uint8, start, end) {\n var tmp;\n var output = [];\n for (var i = start; i < end; i += 3) {\n tmp = (uint8[i] << 16) + (uint8[i + 1] << 8) + (uint8[i + 2]);\n output.push(tripletToBase64(tmp));\n }\n return output.join('')\n}\n\nfunction fromByteArray (uint8) {\n if (!inited) {\n init();\n }\n var tmp;\n var len = uint8.length;\n var extraBytes = len % 3; // if we have 1 byte left, pad 2 bytes\n var output = '';\n var parts = [];\n var maxChunkLength = 16383; // must be multiple of 3\n\n // go through the array every three bytes, we'll deal with trailing stuff later\n for (var i = 0, len2 = len - extraBytes; i < len2; i += maxChunkLength) {\n parts.push(encodeChunk(uint8, i, (i + maxChunkLength) > len2 ? len2 : (i + maxChunkLength)));\n }\n\n // pad the end with zeros, but make sure to not forget the extra bytes\n if (extraBytes === 1) {\n tmp = uint8[len - 1];\n output += lookup[tmp >> 2];\n output += lookup[(tmp << 4) & 0x3F];\n output += '==';\n } else if (extraBytes === 2) {\n tmp = (uint8[len - 2] << 8) + (uint8[len - 1]);\n output += lookup[tmp >> 10];\n output += lookup[(tmp >> 4) & 0x3F];\n output += lookup[(tmp << 2) & 0x3F];\n output += '=';\n }\n\n parts.push(output);\n\n return parts.join('')\n}\n\nfunction read (buffer, offset, isLE, mLen, nBytes) {\n var e, m;\n var eLen = nBytes * 8 - mLen - 1;\n var eMax = (1 << eLen) - 1;\n var eBias = eMax >> 1;\n var nBits = -7;\n var i = isLE ? (nBytes - 1) : 0;\n var d = isLE ? -1 : 1;\n var s = buffer[offset + i];\n\n i += d;\n\n e = s & ((1 << (-nBits)) - 1);\n s >>= (-nBits);\n nBits += eLen;\n for (; nBits > 0; e = e * 256 + buffer[offset + i], i += d, nBits -= 8) {}\n\n m = e & ((1 << (-nBits)) - 1);\n e >>= (-nBits);\n nBits += mLen;\n for (; nBits > 0; m = m * 256 + buffer[offset + i], i += d, nBits -= 8) {}\n\n if (e === 0) {\n e = 1 - eBias;\n } else if (e === eMax) {\n return m ? NaN : ((s ? -1 : 1) * Infinity)\n } else {\n m = m + Math.pow(2, mLen);\n e = e - eBias;\n }\n return (s ? -1 : 1) * m * Math.pow(2, e - mLen)\n}\n\nfunction write (buffer, value, offset, isLE, mLen, nBytes) {\n var e, m, c;\n var eLen = nBytes * 8 - mLen - 1;\n var eMax = (1 << eLen) - 1;\n var eBias = eMax >> 1;\n var rt = (mLen === 23 ? Math.pow(2, -24) - Math.pow(2, -77) : 0);\n var i = isLE ? 0 : (nBytes - 1);\n var d = isLE ? 1 : -1;\n var s = value < 0 || (value === 0 && 1 / value < 0) ? 1 : 0;\n\n value = Math.abs(value);\n\n if (isNaN(value) || value === Infinity) {\n m = isNaN(value) ? 1 : 0;\n e = eMax;\n } else {\n e = Math.floor(Math.log(value) / Math.LN2);\n if (value * (c = Math.pow(2, -e)) < 1) {\n e--;\n c *= 2;\n }\n if (e + eBias >= 1) {\n value += rt / c;\n } else {\n value += rt * Math.pow(2, 1 - eBias);\n }\n if (value * c >= 2) {\n e++;\n c /= 2;\n }\n\n if (e + eBias >= eMax) {\n m = 0;\n e = eMax;\n } else if (e + eBias >= 1) {\n m = (value * c - 1) * Math.pow(2, mLen);\n e = e + eBias;\n } else {\n m = value * Math.pow(2, eBias - 1) * Math.pow(2, mLen);\n e = 0;\n }\n }\n\n for (; mLen >= 8; buffer[offset + i] = m & 0xff, i += d, m /= 256, mLen -= 8) {}\n\n e = (e << mLen) | m;\n eLen += mLen;\n for (; eLen > 0; buffer[offset + i] = e & 0xff, i += d, e /= 256, eLen -= 8) {}\n\n buffer[offset + i - d] |= s * 128;\n}\n\nvar toString = {}.toString;\n\nvar isArray = Array.isArray || function (arr) {\n return toString.call(arr) == '[object Array]';\n};\n\n/*!\n * The buffer module from node.js, for the browser.\n *\n * @author Feross Aboukhadijeh \n * @license MIT\n */\n\nvar INSPECT_MAX_BYTES = 50;\n\n/**\n * If `Buffer.TYPED_ARRAY_SUPPORT`:\n * === true Use Uint8Array implementation (fastest)\n * === false Use Object implementation (most compatible, even IE6)\n *\n * Browsers that support typed arrays are IE 10+, Firefox 4+, Chrome 7+, Safari 5.1+,\n * Opera 11.6+, iOS 4.2+.\n *\n * Due to various browser bugs, sometimes the Object implementation will be used even\n * when the browser supports typed arrays.\n *\n * Note:\n *\n * - Firefox 4-29 lacks support for adding new properties to `Uint8Array` instances,\n * See: https://bugzilla.mozilla.org/show_bug.cgi?id=695438.\n *\n * - Chrome 9-10 is missing the `TypedArray.prototype.subarray` function.\n *\n * - IE10 has a broken `TypedArray.prototype.subarray` function which returns arrays of\n * incorrect length in some situations.\n\n * We detect these buggy browsers and set `Buffer.TYPED_ARRAY_SUPPORT` to `false` so they\n * get the Object implementation, which is slower but behaves correctly.\n */\nBuffer.TYPED_ARRAY_SUPPORT = global.TYPED_ARRAY_SUPPORT !== undefined\n ? global.TYPED_ARRAY_SUPPORT\n : true;\n\n/*\n * Export kMaxLength after typed array support is determined.\n */\nvar _kMaxLength = kMaxLength();\n\nfunction kMaxLength () {\n return Buffer.TYPED_ARRAY_SUPPORT\n ? 0x7fffffff\n : 0x3fffffff\n}\n\nfunction createBuffer (that, length) {\n if (kMaxLength() < length) {\n throw new RangeError('Invalid typed array length')\n }\n if (Buffer.TYPED_ARRAY_SUPPORT) {\n // Return an augmented `Uint8Array` instance, for best performance\n that = new Uint8Array(length);\n that.__proto__ = Buffer.prototype;\n } else {\n // Fallback: Return an object instance of the Buffer class\n if (that === null) {\n that = new Buffer(length);\n }\n that.length = length;\n }\n\n return that\n}\n\n/**\n * The Buffer constructor returns instances of `Uint8Array` that have their\n * prototype changed to `Buffer.prototype`. Furthermore, `Buffer` is a subclass of\n * `Uint8Array`, so the returned instances will have all the node `Buffer` methods\n * and the `Uint8Array` methods. Square bracket notation works as expected -- it\n * returns a single octet.\n *\n * The `Uint8Array` prototype remains unmodified.\n */\n\nfunction Buffer (arg, encodingOrOffset, length) {\n if (!Buffer.TYPED_ARRAY_SUPPORT && !(this instanceof Buffer)) {\n return new Buffer(arg, encodingOrOffset, length)\n }\n\n // Common case.\n if (typeof arg === 'number') {\n if (typeof encodingOrOffset === 'string') {\n throw new Error(\n 'If encoding is specified then the first argument must be a string'\n )\n }\n return allocUnsafe(this, arg)\n }\n return from(this, arg, encodingOrOffset, length)\n}\n\nBuffer.poolSize = 8192; // not used by this implementation\n\n// TODO: Legacy, not needed anymore. Remove in next major version.\nBuffer._augment = function (arr) {\n arr.__proto__ = Buffer.prototype;\n return arr\n};\n\nfunction from (that, value, encodingOrOffset, length) {\n if (typeof value === 'number') {\n throw new TypeError('\"value\" argument must not be a number')\n }\n\n if (typeof ArrayBuffer !== 'undefined' && value instanceof ArrayBuffer) {\n return fromArrayBuffer(that, value, encodingOrOffset, length)\n }\n\n if (typeof value === 'string') {\n return fromString(that, value, encodingOrOffset)\n }\n\n return fromObject(that, value)\n}\n\n/**\n * Functionally equivalent to Buffer(arg, encoding) but throws a TypeError\n * if value is a number.\n * Buffer.from(str[, encoding])\n * Buffer.from(array)\n * Buffer.from(buffer)\n * Buffer.from(arrayBuffer[, byteOffset[, length]])\n **/\nBuffer.from = function (value, encodingOrOffset, length) {\n return from(null, value, encodingOrOffset, length)\n};\n\nif (Buffer.TYPED_ARRAY_SUPPORT) {\n Buffer.prototype.__proto__ = Uint8Array.prototype;\n Buffer.__proto__ = Uint8Array;\n}\n\nfunction assertSize (size) {\n if (typeof size !== 'number') {\n throw new TypeError('\"size\" argument must be a number')\n } else if (size < 0) {\n throw new RangeError('\"size\" argument must not be negative')\n }\n}\n\nfunction alloc (that, size, fill, encoding) {\n assertSize(size);\n if (size <= 0) {\n return createBuffer(that, size)\n }\n if (fill !== undefined) {\n // Only pay attention to encoding if it's a string. This\n // prevents accidentally sending in a number that would\n // be interpreted as a start offset.\n return typeof encoding === 'string'\n ? createBuffer(that, size).fill(fill, encoding)\n : createBuffer(that, size).fill(fill)\n }\n return createBuffer(that, size)\n}\n\n/**\n * Creates a new filled Buffer instance.\n * alloc(size[, fill[, encoding]])\n **/\nBuffer.alloc = function (size, fill, encoding) {\n return alloc(null, size, fill, encoding)\n};\n\nfunction allocUnsafe (that, size) {\n assertSize(size);\n that = createBuffer(that, size < 0 ? 0 : checked(size) | 0);\n if (!Buffer.TYPED_ARRAY_SUPPORT) {\n for (var i = 0; i < size; ++i) {\n that[i] = 0;\n }\n }\n return that\n}\n\n/**\n * Equivalent to Buffer(num), by default creates a non-zero-filled Buffer instance.\n * */\nBuffer.allocUnsafe = function (size) {\n return allocUnsafe(null, size)\n};\n/**\n * Equivalent to SlowBuffer(num), by default creates a non-zero-filled Buffer instance.\n */\nBuffer.allocUnsafeSlow = function (size) {\n return allocUnsafe(null, size)\n};\n\nfunction fromString (that, string, encoding) {\n if (typeof encoding !== 'string' || encoding === '') {\n encoding = 'utf8';\n }\n\n if (!Buffer.isEncoding(encoding)) {\n throw new TypeError('\"encoding\" must be a valid string encoding')\n }\n\n var length = byteLength(string, encoding) | 0;\n that = createBuffer(that, length);\n\n var actual = that.write(string, encoding);\n\n if (actual !== length) {\n // Writing a hex string, for example, that contains invalid characters will\n // cause everything after the first invalid character to be ignored. (e.g.\n // 'abxxcd' will be treated as 'ab')\n that = that.slice(0, actual);\n }\n\n return that\n}\n\nfunction fromArrayLike (that, array) {\n var length = array.length < 0 ? 0 : checked(array.length) | 0;\n that = createBuffer(that, length);\n for (var i = 0; i < length; i += 1) {\n that[i] = array[i] & 255;\n }\n return that\n}\n\nfunction fromArrayBuffer (that, array, byteOffset, length) {\n array.byteLength; // this throws if `array` is not a valid ArrayBuffer\n\n if (byteOffset < 0 || array.byteLength < byteOffset) {\n throw new RangeError('\\'offset\\' is out of bounds')\n }\n\n if (array.byteLength < byteOffset + (length || 0)) {\n throw new RangeError('\\'length\\' is out of bounds')\n }\n\n if (byteOffset === undefined && length === undefined) {\n array = new Uint8Array(array);\n } else if (length === undefined) {\n array = new Uint8Array(array, byteOffset);\n } else {\n array = new Uint8Array(array, byteOffset, length);\n }\n\n if (Buffer.TYPED_ARRAY_SUPPORT) {\n // Return an augmented `Uint8Array` instance, for best performance\n that = array;\n that.__proto__ = Buffer.prototype;\n } else {\n // Fallback: Return an object instance of the Buffer class\n that = fromArrayLike(that, array);\n }\n return that\n}\n\nfunction fromObject (that, obj) {\n if (internalIsBuffer(obj)) {\n var len = checked(obj.length) | 0;\n that = createBuffer(that, len);\n\n if (that.length === 0) {\n return that\n }\n\n obj.copy(that, 0, 0, len);\n return that\n }\n\n if (obj) {\n if ((typeof ArrayBuffer !== 'undefined' &&\n obj.buffer instanceof ArrayBuffer) || 'length' in obj) {\n if (typeof obj.length !== 'number' || isnan(obj.length)) {\n return createBuffer(that, 0)\n }\n return fromArrayLike(that, obj)\n }\n\n if (obj.type === 'Buffer' && isArray(obj.data)) {\n return fromArrayLike(that, obj.data)\n }\n }\n\n throw new TypeError('First argument must be a string, Buffer, ArrayBuffer, Array, or array-like object.')\n}\n\nfunction checked (length) {\n // Note: cannot use `length < kMaxLength()` here because that fails when\n // length is NaN (which is otherwise coerced to zero.)\n if (length >= kMaxLength()) {\n throw new RangeError('Attempt to allocate Buffer larger than maximum ' +\n 'size: 0x' + kMaxLength().toString(16) + ' bytes')\n }\n return length | 0\n}\n\nfunction SlowBuffer (length) {\n if (+length != length) { // eslint-disable-line eqeqeq\n length = 0;\n }\n return Buffer.alloc(+length)\n}\nBuffer.isBuffer = isBuffer;\nfunction internalIsBuffer (b) {\n return !!(b != null && b._isBuffer)\n}\n\nBuffer.compare = function compare (a, b) {\n if (!internalIsBuffer(a) || !internalIsBuffer(b)) {\n throw new TypeError('Arguments must be Buffers')\n }\n\n if (a === b) return 0\n\n var x = a.length;\n var y = b.length;\n\n for (var i = 0, len = Math.min(x, y); i < len; ++i) {\n if (a[i] !== b[i]) {\n x = a[i];\n y = b[i];\n break\n }\n }\n\n if (x < y) return -1\n if (y < x) return 1\n return 0\n};\n\nBuffer.isEncoding = function isEncoding (encoding) {\n switch (String(encoding).toLowerCase()) {\n case 'hex':\n case 'utf8':\n case 'utf-8':\n case 'ascii':\n case 'latin1':\n case 'binary':\n case 'base64':\n case 'ucs2':\n case 'ucs-2':\n case 'utf16le':\n case 'utf-16le':\n return true\n default:\n return false\n }\n};\n\nBuffer.concat = function concat (list, length) {\n if (!isArray(list)) {\n throw new TypeError('\"list\" argument must be an Array of Buffers')\n }\n\n if (list.length === 0) {\n return Buffer.alloc(0)\n }\n\n var i;\n if (length === undefined) {\n length = 0;\n for (i = 0; i < list.length; ++i) {\n length += list[i].length;\n }\n }\n\n var buffer = Buffer.allocUnsafe(length);\n var pos = 0;\n for (i = 0; i < list.length; ++i) {\n var buf = list[i];\n if (!internalIsBuffer(buf)) {\n throw new TypeError('\"list\" argument must be an Array of Buffers')\n }\n buf.copy(buffer, pos);\n pos += buf.length;\n }\n return buffer\n};\n\nfunction byteLength (string, encoding) {\n if (internalIsBuffer(string)) {\n return string.length\n }\n if (typeof ArrayBuffer !== 'undefined' && typeof ArrayBuffer.isView === 'function' &&\n (ArrayBuffer.isView(string) || string instanceof ArrayBuffer)) {\n return string.byteLength\n }\n if (typeof string !== 'string') {\n string = '' + string;\n }\n\n var len = string.length;\n if (len === 0) return 0\n\n // Use a for loop to avoid recursion\n var loweredCase = false;\n for (;;) {\n switch (encoding) {\n case 'ascii':\n case 'latin1':\n case 'binary':\n return len\n case 'utf8':\n case 'utf-8':\n case undefined:\n return utf8ToBytes(string).length\n case 'ucs2':\n case 'ucs-2':\n case 'utf16le':\n case 'utf-16le':\n return len * 2\n case 'hex':\n return len >>> 1\n case 'base64':\n return base64ToBytes(string).length\n default:\n if (loweredCase) return utf8ToBytes(string).length // assume utf8\n encoding = ('' + encoding).toLowerCase();\n loweredCase = true;\n }\n }\n}\nBuffer.byteLength = byteLength;\n\nfunction slowToString (encoding, start, end) {\n var loweredCase = false;\n\n // No need to verify that \"this.length <= MAX_UINT32\" since it's a read-only\n // property of a typed array.\n\n // This behaves neither like String nor Uint8Array in that we set start/end\n // to their upper/lower bounds if the value passed is out of range.\n // undefined is handled specially as per ECMA-262 6th Edition,\n // Section 13.3.3.7 Runtime Semantics: KeyedBindingInitialization.\n if (start === undefined || start < 0) {\n start = 0;\n }\n // Return early if start > this.length. Done here to prevent potential uint32\n // coercion fail below.\n if (start > this.length) {\n return ''\n }\n\n if (end === undefined || end > this.length) {\n end = this.length;\n }\n\n if (end <= 0) {\n return ''\n }\n\n // Force coersion to uint32. This will also coerce falsey/NaN values to 0.\n end >>>= 0;\n start >>>= 0;\n\n if (end <= start) {\n return ''\n }\n\n if (!encoding) encoding = 'utf8';\n\n while (true) {\n switch (encoding) {\n case 'hex':\n return hexSlice(this, start, end)\n\n case 'utf8':\n case 'utf-8':\n return utf8Slice(this, start, end)\n\n case 'ascii':\n return asciiSlice(this, start, end)\n\n case 'latin1':\n case 'binary':\n return latin1Slice(this, start, end)\n\n case 'base64':\n return base64Slice(this, start, end)\n\n case 'ucs2':\n case 'ucs-2':\n case 'utf16le':\n case 'utf-16le':\n return utf16leSlice(this, start, end)\n\n default:\n if (loweredCase) throw new TypeError('Unknown encoding: ' + encoding)\n encoding = (encoding + '').toLowerCase();\n loweredCase = true;\n }\n }\n}\n\n// The property is used by `Buffer.isBuffer` and `is-buffer` (in Safari 5-7) to detect\n// Buffer instances.\nBuffer.prototype._isBuffer = true;\n\nfunction swap (b, n, m) {\n var i = b[n];\n b[n] = b[m];\n b[m] = i;\n}\n\nBuffer.prototype.swap16 = function swap16 () {\n var len = this.length;\n if (len % 2 !== 0) {\n throw new RangeError('Buffer size must be a multiple of 16-bits')\n }\n for (var i = 0; i < len; i += 2) {\n swap(this, i, i + 1);\n }\n return this\n};\n\nBuffer.prototype.swap32 = function swap32 () {\n var len = this.length;\n if (len % 4 !== 0) {\n throw new RangeError('Buffer size must be a multiple of 32-bits')\n }\n for (var i = 0; i < len; i += 4) {\n swap(this, i, i + 3);\n swap(this, i + 1, i + 2);\n }\n return this\n};\n\nBuffer.prototype.swap64 = function swap64 () {\n var len = this.length;\n if (len % 8 !== 0) {\n throw new RangeError('Buffer size must be a multiple of 64-bits')\n }\n for (var i = 0; i < len; i += 8) {\n swap(this, i, i + 7);\n swap(this, i + 1, i + 6);\n swap(this, i + 2, i + 5);\n swap(this, i + 3, i + 4);\n }\n return this\n};\n\nBuffer.prototype.toString = function toString () {\n var length = this.length | 0;\n if (length === 0) return ''\n if (arguments.length === 0) return utf8Slice(this, 0, length)\n return slowToString.apply(this, arguments)\n};\n\nBuffer.prototype.equals = function equals (b) {\n if (!internalIsBuffer(b)) throw new TypeError('Argument must be a Buffer')\n if (this === b) return true\n return Buffer.compare(this, b) === 0\n};\n\nBuffer.prototype.inspect = function inspect () {\n var str = '';\n var max = INSPECT_MAX_BYTES;\n if (this.length > 0) {\n str = this.toString('hex', 0, max).match(/.{2}/g).join(' ');\n if (this.length > max) str += ' ... ';\n }\n return ''\n};\n\nBuffer.prototype.compare = function compare (target, start, end, thisStart, thisEnd) {\n if (!internalIsBuffer(target)) {\n throw new TypeError('Argument must be a Buffer')\n }\n\n if (start === undefined) {\n start = 0;\n }\n if (end === undefined) {\n end = target ? target.length : 0;\n }\n if (thisStart === undefined) {\n thisStart = 0;\n }\n if (thisEnd === undefined) {\n thisEnd = this.length;\n }\n\n if (start < 0 || end > target.length || thisStart < 0 || thisEnd > this.length) {\n throw new RangeError('out of range index')\n }\n\n if (thisStart >= thisEnd && start >= end) {\n return 0\n }\n if (thisStart >= thisEnd) {\n return -1\n }\n if (start >= end) {\n return 1\n }\n\n start >>>= 0;\n end >>>= 0;\n thisStart >>>= 0;\n thisEnd >>>= 0;\n\n if (this === target) return 0\n\n var x = thisEnd - thisStart;\n var y = end - start;\n var len = Math.min(x, y);\n\n var thisCopy = this.slice(thisStart, thisEnd);\n var targetCopy = target.slice(start, end);\n\n for (var i = 0; i < len; ++i) {\n if (thisCopy[i] !== targetCopy[i]) {\n x = thisCopy[i];\n y = targetCopy[i];\n break\n }\n }\n\n if (x < y) return -1\n if (y < x) return 1\n return 0\n};\n\n// Finds either the first index of `val` in `buffer` at offset >= `byteOffset`,\n// OR the last index of `val` in `buffer` at offset <= `byteOffset`.\n//\n// Arguments:\n// - buffer - a Buffer to search\n// - val - a string, Buffer, or number\n// - byteOffset - an index into `buffer`; will be clamped to an int32\n// - encoding - an optional encoding, relevant is val is a string\n// - dir - true for indexOf, false for lastIndexOf\nfunction bidirectionalIndexOf (buffer, val, byteOffset, encoding, dir) {\n // Empty buffer means no match\n if (buffer.length === 0) return -1\n\n // Normalize byteOffset\n if (typeof byteOffset === 'string') {\n encoding = byteOffset;\n byteOffset = 0;\n } else if (byteOffset > 0x7fffffff) {\n byteOffset = 0x7fffffff;\n } else if (byteOffset < -0x80000000) {\n byteOffset = -0x80000000;\n }\n byteOffset = +byteOffset; // Coerce to Number.\n if (isNaN(byteOffset)) {\n // byteOffset: it it's undefined, null, NaN, \"foo\", etc, search whole buffer\n byteOffset = dir ? 0 : (buffer.length - 1);\n }\n\n // Normalize byteOffset: negative offsets start from the end of the buffer\n if (byteOffset < 0) byteOffset = buffer.length + byteOffset;\n if (byteOffset >= buffer.length) {\n if (dir) return -1\n else byteOffset = buffer.length - 1;\n } else if (byteOffset < 0) {\n if (dir) byteOffset = 0;\n else return -1\n }\n\n // Normalize val\n if (typeof val === 'string') {\n val = Buffer.from(val, encoding);\n }\n\n // Finally, search either indexOf (if dir is true) or lastIndexOf\n if (internalIsBuffer(val)) {\n // Special case: looking for empty string/buffer always fails\n if (val.length === 0) {\n return -1\n }\n return arrayIndexOf(buffer, val, byteOffset, encoding, dir)\n } else if (typeof val === 'number') {\n val = val & 0xFF; // Search for a byte value [0-255]\n if (Buffer.TYPED_ARRAY_SUPPORT &&\n typeof Uint8Array.prototype.indexOf === 'function') {\n if (dir) {\n return Uint8Array.prototype.indexOf.call(buffer, val, byteOffset)\n } else {\n return Uint8Array.prototype.lastIndexOf.call(buffer, val, byteOffset)\n }\n }\n return arrayIndexOf(buffer, [ val ], byteOffset, encoding, dir)\n }\n\n throw new TypeError('val must be string, number or Buffer')\n}\n\nfunction arrayIndexOf (arr, val, byteOffset, encoding, dir) {\n var indexSize = 1;\n var arrLength = arr.length;\n var valLength = val.length;\n\n if (encoding !== undefined) {\n encoding = String(encoding).toLowerCase();\n if (encoding === 'ucs2' || encoding === 'ucs-2' ||\n encoding === 'utf16le' || encoding === 'utf-16le') {\n if (arr.length < 2 || val.length < 2) {\n return -1\n }\n indexSize = 2;\n arrLength /= 2;\n valLength /= 2;\n byteOffset /= 2;\n }\n }\n\n function read (buf, i) {\n if (indexSize === 1) {\n return buf[i]\n } else {\n return buf.readUInt16BE(i * indexSize)\n }\n }\n\n var i;\n if (dir) {\n var foundIndex = -1;\n for (i = byteOffset; i < arrLength; i++) {\n if (read(arr, i) === read(val, foundIndex === -1 ? 0 : i - foundIndex)) {\n if (foundIndex === -1) foundIndex = i;\n if (i - foundIndex + 1 === valLength) return foundIndex * indexSize\n } else {\n if (foundIndex !== -1) i -= i - foundIndex;\n foundIndex = -1;\n }\n }\n } else {\n if (byteOffset + valLength > arrLength) byteOffset = arrLength - valLength;\n for (i = byteOffset; i >= 0; i--) {\n var found = true;\n for (var j = 0; j < valLength; j++) {\n if (read(arr, i + j) !== read(val, j)) {\n found = false;\n break\n }\n }\n if (found) return i\n }\n }\n\n return -1\n}\n\nBuffer.prototype.includes = function includes (val, byteOffset, encoding) {\n return this.indexOf(val, byteOffset, encoding) !== -1\n};\n\nBuffer.prototype.indexOf = function indexOf (val, byteOffset, encoding) {\n return bidirectionalIndexOf(this, val, byteOffset, encoding, true)\n};\n\nBuffer.prototype.lastIndexOf = function lastIndexOf (val, byteOffset, encoding) {\n return bidirectionalIndexOf(this, val, byteOffset, encoding, false)\n};\n\nfunction hexWrite (buf, string, offset, length) {\n offset = Number(offset) || 0;\n var remaining = buf.length - offset;\n if (!length) {\n length = remaining;\n } else {\n length = Number(length);\n if (length > remaining) {\n length = remaining;\n }\n }\n\n // must be an even number of digits\n var strLen = string.length;\n if (strLen % 2 !== 0) throw new TypeError('Invalid hex string')\n\n if (length > strLen / 2) {\n length = strLen / 2;\n }\n for (var i = 0; i < length; ++i) {\n var parsed = parseInt(string.substr(i * 2, 2), 16);\n if (isNaN(parsed)) return i\n buf[offset + i] = parsed;\n }\n return i\n}\n\nfunction utf8Write (buf, string, offset, length) {\n return blitBuffer(utf8ToBytes(string, buf.length - offset), buf, offset, length)\n}\n\nfunction asciiWrite (buf, string, offset, length) {\n return blitBuffer(asciiToBytes(string), buf, offset, length)\n}\n\nfunction latin1Write (buf, string, offset, length) {\n return asciiWrite(buf, string, offset, length)\n}\n\nfunction base64Write (buf, string, offset, length) {\n return blitBuffer(base64ToBytes(string), buf, offset, length)\n}\n\nfunction ucs2Write (buf, string, offset, length) {\n return blitBuffer(utf16leToBytes(string, buf.length - offset), buf, offset, length)\n}\n\nBuffer.prototype.write = function write (string, offset, length, encoding) {\n // Buffer#write(string)\n if (offset === undefined) {\n encoding = 'utf8';\n length = this.length;\n offset = 0;\n // Buffer#write(string, encoding)\n } else if (length === undefined && typeof offset === 'string') {\n encoding = offset;\n length = this.length;\n offset = 0;\n // Buffer#write(string, offset[, length][, encoding])\n } else if (isFinite(offset)) {\n offset = offset | 0;\n if (isFinite(length)) {\n length = length | 0;\n if (encoding === undefined) encoding = 'utf8';\n } else {\n encoding = length;\n length = undefined;\n }\n // legacy write(string, encoding, offset, length) - remove in v0.13\n } else {\n throw new Error(\n 'Buffer.write(string, encoding, offset[, length]) is no longer supported'\n )\n }\n\n var remaining = this.length - offset;\n if (length === undefined || length > remaining) length = remaining;\n\n if ((string.length > 0 && (length < 0 || offset < 0)) || offset > this.length) {\n throw new RangeError('Attempt to write outside buffer bounds')\n }\n\n if (!encoding) encoding = 'utf8';\n\n var loweredCase = false;\n for (;;) {\n switch (encoding) {\n case 'hex':\n return hexWrite(this, string, offset, length)\n\n case 'utf8':\n case 'utf-8':\n return utf8Write(this, string, offset, length)\n\n case 'ascii':\n return asciiWrite(this, string, offset, length)\n\n case 'latin1':\n case 'binary':\n return latin1Write(this, string, offset, length)\n\n case 'base64':\n // Warning: maxLength not taken into account in base64Write\n return base64Write(this, string, offset, length)\n\n case 'ucs2':\n case 'ucs-2':\n case 'utf16le':\n case 'utf-16le':\n return ucs2Write(this, string, offset, length)\n\n default:\n if (loweredCase) throw new TypeError('Unknown encoding: ' + encoding)\n encoding = ('' + encoding).toLowerCase();\n loweredCase = true;\n }\n }\n};\n\nBuffer.prototype.toJSON = function toJSON () {\n return {\n type: 'Buffer',\n data: Array.prototype.slice.call(this._arr || this, 0)\n }\n};\n\nfunction base64Slice (buf, start, end) {\n if (start === 0 && end === buf.length) {\n return fromByteArray(buf)\n } else {\n return fromByteArray(buf.slice(start, end))\n }\n}\n\nfunction utf8Slice (buf, start, end) {\n end = Math.min(buf.length, end);\n var res = [];\n\n var i = start;\n while (i < end) {\n var firstByte = buf[i];\n var codePoint = null;\n var bytesPerSequence = (firstByte > 0xEF) ? 4\n : (firstByte > 0xDF) ? 3\n : (firstByte > 0xBF) ? 2\n : 1;\n\n if (i + bytesPerSequence <= end) {\n var secondByte, thirdByte, fourthByte, tempCodePoint;\n\n switch (bytesPerSequence) {\n case 1:\n if (firstByte < 0x80) {\n codePoint = firstByte;\n }\n break\n case 2:\n secondByte = buf[i + 1];\n if ((secondByte & 0xC0) === 0x80) {\n tempCodePoint = (firstByte & 0x1F) << 0x6 | (secondByte & 0x3F);\n if (tempCodePoint > 0x7F) {\n codePoint = tempCodePoint;\n }\n }\n break\n case 3:\n secondByte = buf[i + 1];\n thirdByte = buf[i + 2];\n if ((secondByte & 0xC0) === 0x80 && (thirdByte & 0xC0) === 0x80) {\n tempCodePoint = (firstByte & 0xF) << 0xC | (secondByte & 0x3F) << 0x6 | (thirdByte & 0x3F);\n if (tempCodePoint > 0x7FF && (tempCodePoint < 0xD800 || tempCodePoint > 0xDFFF)) {\n codePoint = tempCodePoint;\n }\n }\n break\n case 4:\n secondByte = buf[i + 1];\n thirdByte = buf[i + 2];\n fourthByte = buf[i + 3];\n if ((secondByte & 0xC0) === 0x80 && (thirdByte & 0xC0) === 0x80 && (fourthByte & 0xC0) === 0x80) {\n tempCodePoint = (firstByte & 0xF) << 0x12 | (secondByte & 0x3F) << 0xC | (thirdByte & 0x3F) << 0x6 | (fourthByte & 0x3F);\n if (tempCodePoint > 0xFFFF && tempCodePoint < 0x110000) {\n codePoint = tempCodePoint;\n }\n }\n }\n }\n\n if (codePoint === null) {\n // we did not generate a valid codePoint so insert a\n // replacement char (U+FFFD) and advance only 1 byte\n codePoint = 0xFFFD;\n bytesPerSequence = 1;\n } else if (codePoint > 0xFFFF) {\n // encode to utf16 (surrogate pair dance)\n codePoint -= 0x10000;\n res.push(codePoint >>> 10 & 0x3FF | 0xD800);\n codePoint = 0xDC00 | codePoint & 0x3FF;\n }\n\n res.push(codePoint);\n i += bytesPerSequence;\n }\n\n return decodeCodePointsArray(res)\n}\n\n// Based on http://stackoverflow.com/a/22747272/680742, the browser with\n// the lowest limit is Chrome, with 0x10000 args.\n// We go 1 magnitude less, for safety\nvar MAX_ARGUMENTS_LENGTH = 0x1000;\n\nfunction decodeCodePointsArray (codePoints) {\n var len = codePoints.length;\n if (len <= MAX_ARGUMENTS_LENGTH) {\n return String.fromCharCode.apply(String, codePoints) // avoid extra slice()\n }\n\n // Decode in chunks to avoid \"call stack size exceeded\".\n var res = '';\n var i = 0;\n while (i < len) {\n res += String.fromCharCode.apply(\n String,\n codePoints.slice(i, i += MAX_ARGUMENTS_LENGTH)\n );\n }\n return res\n}\n\nfunction asciiSlice (buf, start, end) {\n var ret = '';\n end = Math.min(buf.length, end);\n\n for (var i = start; i < end; ++i) {\n ret += String.fromCharCode(buf[i] & 0x7F);\n }\n return ret\n}\n\nfunction latin1Slice (buf, start, end) {\n var ret = '';\n end = Math.min(buf.length, end);\n\n for (var i = start; i < end; ++i) {\n ret += String.fromCharCode(buf[i]);\n }\n return ret\n}\n\nfunction hexSlice (buf, start, end) {\n var len = buf.length;\n\n if (!start || start < 0) start = 0;\n if (!end || end < 0 || end > len) end = len;\n\n var out = '';\n for (var i = start; i < end; ++i) {\n out += toHex(buf[i]);\n }\n return out\n}\n\nfunction utf16leSlice (buf, start, end) {\n var bytes = buf.slice(start, end);\n var res = '';\n for (var i = 0; i < bytes.length; i += 2) {\n res += String.fromCharCode(bytes[i] + bytes[i + 1] * 256);\n }\n return res\n}\n\nBuffer.prototype.slice = function slice (start, end) {\n var len = this.length;\n start = ~~start;\n end = end === undefined ? len : ~~end;\n\n if (start < 0) {\n start += len;\n if (start < 0) start = 0;\n } else if (start > len) {\n start = len;\n }\n\n if (end < 0) {\n end += len;\n if (end < 0) end = 0;\n } else if (end > len) {\n end = len;\n }\n\n if (end < start) end = start;\n\n var newBuf;\n if (Buffer.TYPED_ARRAY_SUPPORT) {\n newBuf = this.subarray(start, end);\n newBuf.__proto__ = Buffer.prototype;\n } else {\n var sliceLen = end - start;\n newBuf = new Buffer(sliceLen, undefined);\n for (var i = 0; i < sliceLen; ++i) {\n newBuf[i] = this[i + start];\n }\n }\n\n return newBuf\n};\n\n/*\n * Need to make sure that buffer isn't trying to write out of bounds.\n */\nfunction checkOffset (offset, ext, length) {\n if ((offset % 1) !== 0 || offset < 0) throw new RangeError('offset is not uint')\n if (offset + ext > length) throw new RangeError('Trying to access beyond buffer length')\n}\n\nBuffer.prototype.readUIntLE = function readUIntLE (offset, byteLength, noAssert) {\n offset = offset | 0;\n byteLength = byteLength | 0;\n if (!noAssert) checkOffset(offset, byteLength, this.length);\n\n var val = this[offset];\n var mul = 1;\n var i = 0;\n while (++i < byteLength && (mul *= 0x100)) {\n val += this[offset + i] * mul;\n }\n\n return val\n};\n\nBuffer.prototype.readUIntBE = function readUIntBE (offset, byteLength, noAssert) {\n offset = offset | 0;\n byteLength = byteLength | 0;\n if (!noAssert) {\n checkOffset(offset, byteLength, this.length);\n }\n\n var val = this[offset + --byteLength];\n var mul = 1;\n while (byteLength > 0 && (mul *= 0x100)) {\n val += this[offset + --byteLength] * mul;\n }\n\n return val\n};\n\nBuffer.prototype.readUInt8 = function readUInt8 (offset, noAssert) {\n if (!noAssert) checkOffset(offset, 1, this.length);\n return this[offset]\n};\n\nBuffer.prototype.readUInt16LE = function readUInt16LE (offset, noAssert) {\n if (!noAssert) checkOffset(offset, 2, this.length);\n return this[offset] | (this[offset + 1] << 8)\n};\n\nBuffer.prototype.readUInt16BE = function readUInt16BE (offset, noAssert) {\n if (!noAssert) checkOffset(offset, 2, this.length);\n return (this[offset] << 8) | this[offset + 1]\n};\n\nBuffer.prototype.readUInt32LE = function readUInt32LE (offset, noAssert) {\n if (!noAssert) checkOffset(offset, 4, this.length);\n\n return ((this[offset]) |\n (this[offset + 1] << 8) |\n (this[offset + 2] << 16)) +\n (this[offset + 3] * 0x1000000)\n};\n\nBuffer.prototype.readUInt32BE = function readUInt32BE (offset, noAssert) {\n if (!noAssert) checkOffset(offset, 4, this.length);\n\n return (this[offset] * 0x1000000) +\n ((this[offset + 1] << 16) |\n (this[offset + 2] << 8) |\n this[offset + 3])\n};\n\nBuffer.prototype.readIntLE = function readIntLE (offset, byteLength, noAssert) {\n offset = offset | 0;\n byteLength = byteLength | 0;\n if (!noAssert) checkOffset(offset, byteLength, this.length);\n\n var val = this[offset];\n var mul = 1;\n var i = 0;\n while (++i < byteLength && (mul *= 0x100)) {\n val += this[offset + i] * mul;\n }\n mul *= 0x80;\n\n if (val >= mul) val -= Math.pow(2, 8 * byteLength);\n\n return val\n};\n\nBuffer.prototype.readIntBE = function readIntBE (offset, byteLength, noAssert) {\n offset = offset | 0;\n byteLength = byteLength | 0;\n if (!noAssert) checkOffset(offset, byteLength, this.length);\n\n var i = byteLength;\n var mul = 1;\n var val = this[offset + --i];\n while (i > 0 && (mul *= 0x100)) {\n val += this[offset + --i] * mul;\n }\n mul *= 0x80;\n\n if (val >= mul) val -= Math.pow(2, 8 * byteLength);\n\n return val\n};\n\nBuffer.prototype.readInt8 = function readInt8 (offset, noAssert) {\n if (!noAssert) checkOffset(offset, 1, this.length);\n if (!(this[offset] & 0x80)) return (this[offset])\n return ((0xff - this[offset] + 1) * -1)\n};\n\nBuffer.prototype.readInt16LE = function readInt16LE (offset, noAssert) {\n if (!noAssert) checkOffset(offset, 2, this.length);\n var val = this[offset] | (this[offset + 1] << 8);\n return (val & 0x8000) ? val | 0xFFFF0000 : val\n};\n\nBuffer.prototype.readInt16BE = function readInt16BE (offset, noAssert) {\n if (!noAssert) checkOffset(offset, 2, this.length);\n var val = this[offset + 1] | (this[offset] << 8);\n return (val & 0x8000) ? val | 0xFFFF0000 : val\n};\n\nBuffer.prototype.readInt32LE = function readInt32LE (offset, noAssert) {\n if (!noAssert) checkOffset(offset, 4, this.length);\n\n return (this[offset]) |\n (this[offset + 1] << 8) |\n (this[offset + 2] << 16) |\n (this[offset + 3] << 24)\n};\n\nBuffer.prototype.readInt32BE = function readInt32BE (offset, noAssert) {\n if (!noAssert) checkOffset(offset, 4, this.length);\n\n return (this[offset] << 24) |\n (this[offset + 1] << 16) |\n (this[offset + 2] << 8) |\n (this[offset + 3])\n};\n\nBuffer.prototype.readFloatLE = function readFloatLE (offset, noAssert) {\n if (!noAssert) checkOffset(offset, 4, this.length);\n return read(this, offset, true, 23, 4)\n};\n\nBuffer.prototype.readFloatBE = function readFloatBE (offset, noAssert) {\n if (!noAssert) checkOffset(offset, 4, this.length);\n return read(this, offset, false, 23, 4)\n};\n\nBuffer.prototype.readDoubleLE = function readDoubleLE (offset, noAssert) {\n if (!noAssert) checkOffset(offset, 8, this.length);\n return read(this, offset, true, 52, 8)\n};\n\nBuffer.prototype.readDoubleBE = function readDoubleBE (offset, noAssert) {\n if (!noAssert) checkOffset(offset, 8, this.length);\n return read(this, offset, false, 52, 8)\n};\n\nfunction checkInt (buf, value, offset, ext, max, min) {\n if (!internalIsBuffer(buf)) throw new TypeError('\"buffer\" argument must be a Buffer instance')\n if (value > max || value < min) throw new RangeError('\"value\" argument is out of bounds')\n if (offset + ext > buf.length) throw new RangeError('Index out of range')\n}\n\nBuffer.prototype.writeUIntLE = function writeUIntLE (value, offset, byteLength, noAssert) {\n value = +value;\n offset = offset | 0;\n byteLength = byteLength | 0;\n if (!noAssert) {\n var maxBytes = Math.pow(2, 8 * byteLength) - 1;\n checkInt(this, value, offset, byteLength, maxBytes, 0);\n }\n\n var mul = 1;\n var i = 0;\n this[offset] = value & 0xFF;\n while (++i < byteLength && (mul *= 0x100)) {\n this[offset + i] = (value / mul) & 0xFF;\n }\n\n return offset + byteLength\n};\n\nBuffer.prototype.writeUIntBE = function writeUIntBE (value, offset, byteLength, noAssert) {\n value = +value;\n offset = offset | 0;\n byteLength = byteLength | 0;\n if (!noAssert) {\n var maxBytes = Math.pow(2, 8 * byteLength) - 1;\n checkInt(this, value, offset, byteLength, maxBytes, 0);\n }\n\n var i = byteLength - 1;\n var mul = 1;\n this[offset + i] = value & 0xFF;\n while (--i >= 0 && (mul *= 0x100)) {\n this[offset + i] = (value / mul) & 0xFF;\n }\n\n return offset + byteLength\n};\n\nBuffer.prototype.writeUInt8 = function writeUInt8 (value, offset, noAssert) {\n value = +value;\n offset = offset | 0;\n if (!noAssert) checkInt(this, value, offset, 1, 0xff, 0);\n if (!Buffer.TYPED_ARRAY_SUPPORT) value = Math.floor(value);\n this[offset] = (value & 0xff);\n return offset + 1\n};\n\nfunction objectWriteUInt16 (buf, value, offset, littleEndian) {\n if (value < 0) value = 0xffff + value + 1;\n for (var i = 0, j = Math.min(buf.length - offset, 2); i < j; ++i) {\n buf[offset + i] = (value & (0xff << (8 * (littleEndian ? i : 1 - i)))) >>>\n (littleEndian ? i : 1 - i) * 8;\n }\n}\n\nBuffer.prototype.writeUInt16LE = function writeUInt16LE (value, offset, noAssert) {\n value = +value;\n offset = offset | 0;\n if (!noAssert) checkInt(this, value, offset, 2, 0xffff, 0);\n if (Buffer.TYPED_ARRAY_SUPPORT) {\n this[offset] = (value & 0xff);\n this[offset + 1] = (value >>> 8);\n } else {\n objectWriteUInt16(this, value, offset, true);\n }\n return offset + 2\n};\n\nBuffer.prototype.writeUInt16BE = function writeUInt16BE (value, offset, noAssert) {\n value = +value;\n offset = offset | 0;\n if (!noAssert) checkInt(this, value, offset, 2, 0xffff, 0);\n if (Buffer.TYPED_ARRAY_SUPPORT) {\n this[offset] = (value >>> 8);\n this[offset + 1] = (value & 0xff);\n } else {\n objectWriteUInt16(this, value, offset, false);\n }\n return offset + 2\n};\n\nfunction objectWriteUInt32 (buf, value, offset, littleEndian) {\n if (value < 0) value = 0xffffffff + value + 1;\n for (var i = 0, j = Math.min(buf.length - offset, 4); i < j; ++i) {\n buf[offset + i] = (value >>> (littleEndian ? i : 3 - i) * 8) & 0xff;\n }\n}\n\nBuffer.prototype.writeUInt32LE = function writeUInt32LE (value, offset, noAssert) {\n value = +value;\n offset = offset | 0;\n if (!noAssert) checkInt(this, value, offset, 4, 0xffffffff, 0);\n if (Buffer.TYPED_ARRAY_SUPPORT) {\n this[offset + 3] = (value >>> 24);\n this[offset + 2] = (value >>> 16);\n this[offset + 1] = (value >>> 8);\n this[offset] = (value & 0xff);\n } else {\n objectWriteUInt32(this, value, offset, true);\n }\n return offset + 4\n};\n\nBuffer.prototype.writeUInt32BE = function writeUInt32BE (value, offset, noAssert) {\n value = +value;\n offset = offset | 0;\n if (!noAssert) checkInt(this, value, offset, 4, 0xffffffff, 0);\n if (Buffer.TYPED_ARRAY_SUPPORT) {\n this[offset] = (value >>> 24);\n this[offset + 1] = (value >>> 16);\n this[offset + 2] = (value >>> 8);\n this[offset + 3] = (value & 0xff);\n } else {\n objectWriteUInt32(this, value, offset, false);\n }\n return offset + 4\n};\n\nBuffer.prototype.writeIntLE = function writeIntLE (value, offset, byteLength, noAssert) {\n value = +value;\n offset = offset | 0;\n if (!noAssert) {\n var limit = Math.pow(2, 8 * byteLength - 1);\n\n checkInt(this, value, offset, byteLength, limit - 1, -limit);\n }\n\n var i = 0;\n var mul = 1;\n var sub = 0;\n this[offset] = value & 0xFF;\n while (++i < byteLength && (mul *= 0x100)) {\n if (value < 0 && sub === 0 && this[offset + i - 1] !== 0) {\n sub = 1;\n }\n this[offset + i] = ((value / mul) >> 0) - sub & 0xFF;\n }\n\n return offset + byteLength\n};\n\nBuffer.prototype.writeIntBE = function writeIntBE (value, offset, byteLength, noAssert) {\n value = +value;\n offset = offset | 0;\n if (!noAssert) {\n var limit = Math.pow(2, 8 * byteLength - 1);\n\n checkInt(this, value, offset, byteLength, limit - 1, -limit);\n }\n\n var i = byteLength - 1;\n var mul = 1;\n var sub = 0;\n this[offset + i] = value & 0xFF;\n while (--i >= 0 && (mul *= 0x100)) {\n if (value < 0 && sub === 0 && this[offset + i + 1] !== 0) {\n sub = 1;\n }\n this[offset + i] = ((value / mul) >> 0) - sub & 0xFF;\n }\n\n return offset + byteLength\n};\n\nBuffer.prototype.writeInt8 = function writeInt8 (value, offset, noAssert) {\n value = +value;\n offset = offset | 0;\n if (!noAssert) checkInt(this, value, offset, 1, 0x7f, -0x80);\n if (!Buffer.TYPED_ARRAY_SUPPORT) value = Math.floor(value);\n if (value < 0) value = 0xff + value + 1;\n this[offset] = (value & 0xff);\n return offset + 1\n};\n\nBuffer.prototype.writeInt16LE = function writeInt16LE (value, offset, noAssert) {\n value = +value;\n offset = offset | 0;\n if (!noAssert) checkInt(this, value, offset, 2, 0x7fff, -0x8000);\n if (Buffer.TYPED_ARRAY_SUPPORT) {\n this[offset] = (value & 0xff);\n this[offset + 1] = (value >>> 8);\n } else {\n objectWriteUInt16(this, value, offset, true);\n }\n return offset + 2\n};\n\nBuffer.prototype.writeInt16BE = function writeInt16BE (value, offset, noAssert) {\n value = +value;\n offset = offset | 0;\n if (!noAssert) checkInt(this, value, offset, 2, 0x7fff, -0x8000);\n if (Buffer.TYPED_ARRAY_SUPPORT) {\n this[offset] = (value >>> 8);\n this[offset + 1] = (value & 0xff);\n } else {\n objectWriteUInt16(this, value, offset, false);\n }\n return offset + 2\n};\n\nBuffer.prototype.writeInt32LE = function writeInt32LE (value, offset, noAssert) {\n value = +value;\n offset = offset | 0;\n if (!noAssert) checkInt(this, value, offset, 4, 0x7fffffff, -0x80000000);\n if (Buffer.TYPED_ARRAY_SUPPORT) {\n this[offset] = (value & 0xff);\n this[offset + 1] = (value >>> 8);\n this[offset + 2] = (value >>> 16);\n this[offset + 3] = (value >>> 24);\n } else {\n objectWriteUInt32(this, value, offset, true);\n }\n return offset + 4\n};\n\nBuffer.prototype.writeInt32BE = function writeInt32BE (value, offset, noAssert) {\n value = +value;\n offset = offset | 0;\n if (!noAssert) checkInt(this, value, offset, 4, 0x7fffffff, -0x80000000);\n if (value < 0) value = 0xffffffff + value + 1;\n if (Buffer.TYPED_ARRAY_SUPPORT) {\n this[offset] = (value >>> 24);\n this[offset + 1] = (value >>> 16);\n this[offset + 2] = (value >>> 8);\n this[offset + 3] = (value & 0xff);\n } else {\n objectWriteUInt32(this, value, offset, false);\n }\n return offset + 4\n};\n\nfunction checkIEEE754 (buf, value, offset, ext, max, min) {\n if (offset + ext > buf.length) throw new RangeError('Index out of range')\n if (offset < 0) throw new RangeError('Index out of range')\n}\n\nfunction writeFloat (buf, value, offset, littleEndian, noAssert) {\n if (!noAssert) {\n checkIEEE754(buf, value, offset, 4);\n }\n write(buf, value, offset, littleEndian, 23, 4);\n return offset + 4\n}\n\nBuffer.prototype.writeFloatLE = function writeFloatLE (value, offset, noAssert) {\n return writeFloat(this, value, offset, true, noAssert)\n};\n\nBuffer.prototype.writeFloatBE = function writeFloatBE (value, offset, noAssert) {\n return writeFloat(this, value, offset, false, noAssert)\n};\n\nfunction writeDouble (buf, value, offset, littleEndian, noAssert) {\n if (!noAssert) {\n checkIEEE754(buf, value, offset, 8);\n }\n write(buf, value, offset, littleEndian, 52, 8);\n return offset + 8\n}\n\nBuffer.prototype.writeDoubleLE = function writeDoubleLE (value, offset, noAssert) {\n return writeDouble(this, value, offset, true, noAssert)\n};\n\nBuffer.prototype.writeDoubleBE = function writeDoubleBE (value, offset, noAssert) {\n return writeDouble(this, value, offset, false, noAssert)\n};\n\n// copy(targetBuffer, targetStart=0, sourceStart=0, sourceEnd=buffer.length)\nBuffer.prototype.copy = function copy (target, targetStart, start, end) {\n if (!start) start = 0;\n if (!end && end !== 0) end = this.length;\n if (targetStart >= target.length) targetStart = target.length;\n if (!targetStart) targetStart = 0;\n if (end > 0 && end < start) end = start;\n\n // Copy 0 bytes; we're done\n if (end === start) return 0\n if (target.length === 0 || this.length === 0) return 0\n\n // Fatal error conditions\n if (targetStart < 0) {\n throw new RangeError('targetStart out of bounds')\n }\n if (start < 0 || start >= this.length) throw new RangeError('sourceStart out of bounds')\n if (end < 0) throw new RangeError('sourceEnd out of bounds')\n\n // Are we oob?\n if (end > this.length) end = this.length;\n if (target.length - targetStart < end - start) {\n end = target.length - targetStart + start;\n }\n\n var len = end - start;\n var i;\n\n if (this === target && start < targetStart && targetStart < end) {\n // descending copy from end\n for (i = len - 1; i >= 0; --i) {\n target[i + targetStart] = this[i + start];\n }\n } else if (len < 1000 || !Buffer.TYPED_ARRAY_SUPPORT) {\n // ascending copy from start\n for (i = 0; i < len; ++i) {\n target[i + targetStart] = this[i + start];\n }\n } else {\n Uint8Array.prototype.set.call(\n target,\n this.subarray(start, start + len),\n targetStart\n );\n }\n\n return len\n};\n\n// Usage:\n// buffer.fill(number[, offset[, end]])\n// buffer.fill(buffer[, offset[, end]])\n// buffer.fill(string[, offset[, end]][, encoding])\nBuffer.prototype.fill = function fill (val, start, end, encoding) {\n // Handle string cases:\n if (typeof val === 'string') {\n if (typeof start === 'string') {\n encoding = start;\n start = 0;\n end = this.length;\n } else if (typeof end === 'string') {\n encoding = end;\n end = this.length;\n }\n if (val.length === 1) {\n var code = val.charCodeAt(0);\n if (code < 256) {\n val = code;\n }\n }\n if (encoding !== undefined && typeof encoding !== 'string') {\n throw new TypeError('encoding must be a string')\n }\n if (typeof encoding === 'string' && !Buffer.isEncoding(encoding)) {\n throw new TypeError('Unknown encoding: ' + encoding)\n }\n } else if (typeof val === 'number') {\n val = val & 255;\n }\n\n // Invalid ranges are not set to a default, so can range check early.\n if (start < 0 || this.length < start || this.length < end) {\n throw new RangeError('Out of range index')\n }\n\n if (end <= start) {\n return this\n }\n\n start = start >>> 0;\n end = end === undefined ? this.length : end >>> 0;\n\n if (!val) val = 0;\n\n var i;\n if (typeof val === 'number') {\n for (i = start; i < end; ++i) {\n this[i] = val;\n }\n } else {\n var bytes = internalIsBuffer(val)\n ? val\n : utf8ToBytes(new Buffer(val, encoding).toString());\n var len = bytes.length;\n for (i = 0; i < end - start; ++i) {\n this[i + start] = bytes[i % len];\n }\n }\n\n return this\n};\n\n// HELPER FUNCTIONS\n// ================\n\nvar INVALID_BASE64_RE = /[^+\\/0-9A-Za-z-_]/g;\n\nfunction base64clean (str) {\n // Node strips out invalid characters like \\n and \\t from the string, base64-js does not\n str = stringtrim(str).replace(INVALID_BASE64_RE, '');\n // Node converts strings with length < 2 to ''\n if (str.length < 2) return ''\n // Node allows for non-padded base64 strings (missing trailing ===), base64-js does not\n while (str.length % 4 !== 0) {\n str = str + '=';\n }\n return str\n}\n\nfunction stringtrim (str) {\n if (str.trim) return str.trim()\n return str.replace(/^\\s+|\\s+$/g, '')\n}\n\nfunction toHex (n) {\n if (n < 16) return '0' + n.toString(16)\n return n.toString(16)\n}\n\nfunction utf8ToBytes (string, units) {\n units = units || Infinity;\n var codePoint;\n var length = string.length;\n var leadSurrogate = null;\n var bytes = [];\n\n for (var i = 0; i < length; ++i) {\n codePoint = string.charCodeAt(i);\n\n // is surrogate component\n if (codePoint > 0xD7FF && codePoint < 0xE000) {\n // last char was a lead\n if (!leadSurrogate) {\n // no lead yet\n if (codePoint > 0xDBFF) {\n // unexpected trail\n if ((units -= 3) > -1) bytes.push(0xEF, 0xBF, 0xBD);\n continue\n } else if (i + 1 === length) {\n // unpaired lead\n if ((units -= 3) > -1) bytes.push(0xEF, 0xBF, 0xBD);\n continue\n }\n\n // valid lead\n leadSurrogate = codePoint;\n\n continue\n }\n\n // 2 leads in a row\n if (codePoint < 0xDC00) {\n if ((units -= 3) > -1) bytes.push(0xEF, 0xBF, 0xBD);\n leadSurrogate = codePoint;\n continue\n }\n\n // valid surrogate pair\n codePoint = (leadSurrogate - 0xD800 << 10 | codePoint - 0xDC00) + 0x10000;\n } else if (leadSurrogate) {\n // valid bmp char, but last char was a lead\n if ((units -= 3) > -1) bytes.push(0xEF, 0xBF, 0xBD);\n }\n\n leadSurrogate = null;\n\n // encode utf8\n if (codePoint < 0x80) {\n if ((units -= 1) < 0) break\n bytes.push(codePoint);\n } else if (codePoint < 0x800) {\n if ((units -= 2) < 0) break\n bytes.push(\n codePoint >> 0x6 | 0xC0,\n codePoint & 0x3F | 0x80\n );\n } else if (codePoint < 0x10000) {\n if ((units -= 3) < 0) break\n bytes.push(\n codePoint >> 0xC | 0xE0,\n codePoint >> 0x6 & 0x3F | 0x80,\n codePoint & 0x3F | 0x80\n );\n } else if (codePoint < 0x110000) {\n if ((units -= 4) < 0) break\n bytes.push(\n codePoint >> 0x12 | 0xF0,\n codePoint >> 0xC & 0x3F | 0x80,\n codePoint >> 0x6 & 0x3F | 0x80,\n codePoint & 0x3F | 0x80\n );\n } else {\n throw new Error('Invalid code point')\n }\n }\n\n return bytes\n}\n\nfunction asciiToBytes (str) {\n var byteArray = [];\n for (var i = 0; i < str.length; ++i) {\n // Node's code seems to be doing this and not & 0x7F..\n byteArray.push(str.charCodeAt(i) & 0xFF);\n }\n return byteArray\n}\n\nfunction utf16leToBytes (str, units) {\n var c, hi, lo;\n var byteArray = [];\n for (var i = 0; i < str.length; ++i) {\n if ((units -= 2) < 0) break\n\n c = str.charCodeAt(i);\n hi = c >> 8;\n lo = c % 256;\n byteArray.push(lo);\n byteArray.push(hi);\n }\n\n return byteArray\n}\n\n\nfunction base64ToBytes (str) {\n return toByteArray(base64clean(str))\n}\n\nfunction blitBuffer (src, dst, offset, length) {\n for (var i = 0; i < length; ++i) {\n if ((i + offset >= dst.length) || (i >= src.length)) break\n dst[i + offset] = src[i];\n }\n return i\n}\n\nfunction isnan (val) {\n return val !== val // eslint-disable-line no-self-compare\n}\n\n\n// the following is from is-buffer, also by Feross Aboukhadijeh and with same licence\n// The _isBuffer check is for Safari 5-7 support, because it's missing\n// Object.prototype.constructor. Remove this eventually\nfunction isBuffer(obj) {\n return obj != null && (!!obj._isBuffer || isFastBuffer(obj) || isSlowBuffer(obj))\n}\n\nfunction isFastBuffer (obj) {\n return !!obj.constructor && typeof obj.constructor.isBuffer === 'function' && obj.constructor.isBuffer(obj)\n}\n\n// For Node v0.10 support. Remove this eventually.\nfunction isSlowBuffer (obj) {\n return typeof obj.readFloatLE === 'function' && typeof obj.slice === 'function' && isFastBuffer(obj.slice(0, 0))\n}\n\nexport { Buffer, INSPECT_MAX_BYTES, SlowBuffer, isBuffer, _kMaxLength as kMaxLength };\n","\"use strict\"\r\nlet decoder\r\ntry {\r\n\tdecoder = new TextDecoder()\r\n} catch(error) {}\r\nlet src\r\nlet srcEnd\r\nlet position = 0\r\nlet alreadySet\r\nconst EMPTY_ARRAY = []\r\nconst RECORD_TAG_ID = 0x69\r\nconst STOP_CODE = {}\r\nlet strings = EMPTY_ARRAY\r\nlet stringPosition = 0\r\nlet currentDecoder = {}\r\nlet currentStructures\r\nlet srcString\r\nlet srcStringStart = 0\r\nlet srcStringEnd = 0\r\nlet referenceMap\r\nlet currentExtensions = []\r\nlet dataView\r\nlet restoreMapsAsObject\r\nlet defaultOptions = {\r\n\tuseRecords: false,\r\n\tmapsAsObjects: true\r\n}\r\nlet sequentialMode = false\r\n\r\nexport class Decoder {\r\n\tconstructor(options) {\r\n\t\tif (options) {\r\n\t\t\tif (options.useRecords === false && options.mapsAsObjects === undefined)\r\n\t\t\t\toptions.mapsAsObjects = true\r\n\t\t\tif (options.getStructures && !options.structures)\r\n\t\t\t\t(options.structures = []).uninitialized = true // this is what we use to denote an uninitialized structures\r\n\t\t}\r\n\t\tObject.assign(this, options)\r\n\t}\r\n\tdecode(source, end) {\r\n\t\tif (src) {\r\n\t\t\t// re-entrant execution, save the state and restore it after we do this decode\r\n\t\t\treturn saveState(() => {\r\n\t\t\t\tclearSource()\r\n\t\t\t\treturn this ? this.decode(source, end) : Decoder.prototype.decode.call(defaultOptions, source, end)\r\n\t\t\t})\r\n\t\t}\r\n\t\tsrcEnd = end > -1 ? end : source.length\r\n\t\tposition = 0\r\n\t\tstringPosition = 0\r\n\t\tsrcStringEnd = 0\r\n\t\tsrcString = null\r\n\t\tstrings = EMPTY_ARRAY\r\n\t\tsrc = source\r\n\t\t// this provides cached access to the data view for a buffer if it is getting reused, which is a recommend\r\n\t\t// technique for getting data from a database where it can be copied into an existing buffer instead of creating\r\n\t\t// new ones\r\n\t\tdataView = source.dataView || (source.dataView = new DataView(source.buffer, source.byteOffset, source.byteLength))\r\n\t\tif (this) {\r\n\t\t\tcurrentDecoder = this\r\n\t\t\tif (this.structures) {\r\n\t\t\t\tcurrentStructures = this.structures\r\n\t\t\t\treturn checkedRead()\r\n\t\t\t} else if (!currentStructures || currentStructures.length > 0) {\r\n\t\t\t\tcurrentStructures = []\r\n\t\t\t}\r\n\t\t} else {\r\n\t\t\tcurrentDecoder = defaultOptions\r\n\t\t\tif (!currentStructures || currentStructures.length > 0)\r\n\t\t\t\tcurrentStructures = []\r\n\t\t}\r\n\t\treturn checkedRead()\r\n\t}\r\n\tdecodeMultiple(source, forEach) {\r\n\t\tlet values, lastPosition = 0\r\n\t\ttry {\r\n\t\t\tlet size = source.length\r\n\t\t\tsequentialMode = true\r\n\t\t\tlet value = this ? this.decode(source, size) : defaultDecoder.decode(source, size)\r\n\t\t\tif (forEach) {\r\n\t\t\t\tforEach(value)\r\n\t\t\t\twhile(position < size) {\r\n\t\t\t\t\tlastPosition = position\r\n\t\t\t\t\tif (forEach(checkedRead()) === false) {\r\n\t\t\t\t\t\treturn\r\n\t\t\t\t\t}\r\n\t\t\t\t}\r\n\t\t\t}\r\n\t\t\telse {\r\n\t\t\t\tvalues = [ value ]\r\n\t\t\t\twhile(position < size) {\r\n\t\t\t\t\tlastPosition = position\r\n\t\t\t\t\tvalues.push(checkedRead())\r\n\t\t\t\t}\r\n\t\t\t\treturn values\r\n\t\t\t}\r\n\t\t} catch(error) {\r\n\t\t\terror.lastPosition = lastPosition\r\n\t\t\terror.values = values\r\n\t\t\tthrow error\r\n\t\t} finally {\r\n\t\t\tsequentialMode = false\r\n\t\t\tclearSource()\r\n\t\t}\r\n\t}\r\n}\r\nexport function getPosition() {\r\n\treturn position\r\n}\r\nexport function checkedRead() {\r\n\ttry {\r\n\t\tlet result = read()\r\n\t\tif (position == srcEnd) {\r\n\t\t\t// finished reading this source, cleanup references\r\n\t\t\tcurrentStructures = null\r\n\t\t\tsrc = null\r\n\t\t\tif (referenceMap)\r\n\t\t\t\treferenceMap = null\r\n\t\t} else if (position > srcEnd) {\r\n\t\t\t// over read\r\n\t\t\tlet error = new Error('Unexpected end of CBOR data')\r\n\t\t\terror.incomplete = true\r\n\t\t\tthrow error\r\n\t\t} else if (!sequentialMode) {\r\n\t\t\tthrow new Error('Data read, but end of buffer not reached')\r\n\t\t}\r\n\t\t// else more to read, but we are reading sequentially, so don't clear source yet\r\n\t\treturn result\r\n\t} catch(error) {\r\n\t\tclearSource()\r\n\t\tif (error instanceof RangeError || error.message.startsWith('Unexpected end of buffer')) {\r\n\t\t\terror.incomplete = true\r\n\t\t}\r\n\t\tthrow error\r\n\t}\r\n}\r\n\r\nexport function read() {\r\n\tlet token = src[position++]\r\n\tlet majorType = token >> 5\r\n\ttoken = token & 0x1f\r\n\tif (token > 0x17) {\r\n\t\tswitch (token) {\r\n\t\t\tcase 0x18:\r\n\t\t\t\ttoken = src[position++]\r\n\t\t\t\tbreak\r\n\t\t\tcase 0x19:\r\n\t\t\t\tif (majorType == 7) {\r\n\t\t\t\t\treturn getFloat16()\r\n\t\t\t\t}\r\n\t\t\t\ttoken = dataView.getUint16(position)\r\n\t\t\t\tposition += 2\r\n\t\t\t\tbreak\r\n\t\t\tcase 0x1a:\r\n\t\t\t\tif (majorType == 7) {\r\n\t\t\t\t\tlet value = dataView.getFloat32(position)\r\n\t\t\t\t\tif (currentDecoder.useFloat32 > 2) {\r\n\t\t\t\t\t\t// this does rounding of numbers that were encoded in 32-bit float to nearest significant decimal digit that could be preserved\r\n\t\t\t\t\t\tlet multiplier = mult10[((src[position] & 0x7f) << 1) | (src[position + 1] >> 7)]\r\n\t\t\t\t\t\tposition += 4\r\n\t\t\t\t\t\treturn ((multiplier * value + (value > 0 ? 0.5 : -0.5)) >> 0) / multiplier\r\n\t\t\t\t\t}\r\n\t\t\t\t\tposition += 4\r\n\t\t\t\t\treturn value\r\n\t\t\t\t}\r\n\t\t\t\ttoken = dataView.getUint32(position)\r\n\t\t\t\tposition += 4\r\n\t\t\t\tbreak\r\n\t\t\tcase 0x1b:\r\n\t\t\t\tif (majorType == 7) {\r\n\t\t\t\t\tlet value = dataView.getFloat64(position)\r\n\t\t\t\t\tposition += 8\r\n\t\t\t\t\treturn value\r\n\t\t\t\t}\r\n\t\t\t\tif (currentDecoder.uint64AsNumber)\r\n\t\t\t\t\treturn src[position++] * 0x100000000000000 + src[position++] * 0x1000000000000 + src[position++] * 0x10000000000 + src[position++] * 0x100000000 +\r\n\t\t\t\t\t\tsrc[position++] * 0x1000000 + (src[position++] << 16) + (src[position++] << 8) + src[position++]\r\n\t\t\t\ttoken = dataView.getBigUint64(position)\r\n\t\t\t\tposition += 8\r\n\t\t\t\tbreak\r\n\t\t\tcase 0x1f: \r\n\t\t\t\t// indefinite length\r\n\t\t\t\tswitch(majorType) {\r\n\t\t\t\t\tcase 2: // byte string\r\n\t\t\t\t\tcase 3: // text string\r\n\t\t\t\t\tcase 4: // array\r\n\t\t\t\t\t\tlet array = []\r\n\t\t\t\t\t\tlet value, i = 0\r\n\t\t\t\t\t\twhile ((value = read()) != STOP_CODE) {\r\n\t\t\t\t\t\t\tarray[i++] = value\r\n\t\t\t\t\t\t}\r\n\t\t\t\t\t\treturn majorType == 4 ? array : majorType == 3 ? array.join('') : Buffer.concat(array)\r\n\t\t\t\t\tcase 5: // map\r\n\t\t\t\t\t\tlet key\r\n\t\t\t\t\t\tif (currentDecoder.mapsAsObjects) {\r\n\t\t\t\t\t\t\tlet object = {}\r\n\t\t\t\t\t\t\twhile ((key = readKey()) != STOP_CODE)\r\n\t\t\t\t\t\t\t\tobject[key] = read()\r\n\t\t\t\t\t\t\treturn object\r\n\t\t\t\t\t\t} else {\r\n\t\t\t\t\t\t\tif (restoreMapsAsObject) {\r\n\t\t\t\t\t\t\t\tcurrentDecoder.mapsAsObjects = true\r\n\t\t\t\t\t\t\t\trestoreMapsAsObject = false\r\n\t\t\t\t\t\t\t}\r\n\t\t\t\t\t\t\tlet map = new Map()\r\n\t\t\t\t\t\t\twhile ((key = read()) != STOP_CODE)\r\n\t\t\t\t\t\t\t\tmap.set(key, read())\r\n\t\t\t\t\t\t\treturn map\r\n\t\t\t\t\t\t}\r\n\t\t\t\t\tcase 7:\r\n\t\t\t\t\t\treturn STOP_CODE\r\n\t\t\t\t\tdefault:\r\n\t\t\t\t\t\tthrow new Error('Invalid major type for indefinite length ' + majorType)\r\n\t\t\t\t}\r\n\t\t\tdefault:\r\n\t\t\t\tthrow new Error('Unknown token ' + token)\r\n\t\t}\r\n\t}\r\n\tswitch (majorType) {\r\n\t\tcase 0: // positive int\r\n\t\t\treturn token\r\n\t\tcase 1: // negative int\r\n\t\t\treturn ~token\r\n\t\tcase 2: // buffer\r\n\t\t\treturn readBin(token)\r\n\t\tcase 3: // string\r\n\t\t\tif (srcStringEnd >= position) {\r\n\t\t\t\treturn srcString.slice(position - srcStringStart, (position += token) - srcStringStart)\r\n\t\t\t}\r\n\t\t\tif (srcStringEnd == 0 && srcEnd < 140 && token < 32) {\r\n\t\t\t\t// for small blocks, avoiding the overhead of the extract call is helpful\r\n\t\t\t\tlet string = token < 16 ? shortStringInJS(token) : longStringInJS(token)\r\n\t\t\t\tif (string != null)\r\n\t\t\t\t\treturn string\r\n\t\t\t}\r\n\t\t\treturn readFixedString(token)\r\n\t\tcase 4: // array\r\n\t\t\tlet array = new Array(token)\r\n\t\t\tfor (let i = 0; i < token; i++) {\r\n\t\t\t\tarray[i] = read()\r\n\t\t\t}\r\n\t\t\treturn array\r\n\t\tcase 5: // map\r\n\t\t\tif (currentDecoder.mapsAsObjects) {\r\n\t\t\t\tlet object = {}\r\n\t\t\t\tfor (let i = 0; i < token; i++) {\r\n\t\t\t\t\tobject[readKey()] = read()\r\n\t\t\t\t}\r\n\t\t\t\treturn object\r\n\t\t\t} else {\r\n\t\t\t\tif (restoreMapsAsObject) {\r\n\t\t\t\t\tcurrentDecoder.mapsAsObjects = true\r\n\t\t\t\t\trestoreMapsAsObject = false\r\n\t\t\t\t}\r\n\t\t\t\tlet map = new Map()\r\n\t\t\t\tfor (let i = 0; i < token; i++) {\r\n\t\t\t\t\tmap.set(read(), read())\r\n\t\t\t\t}\r\n\t\t\t\treturn map\r\n\t\t\t}\r\n\t\tcase 6: // extension\r\n\t\t\tif ((token >> 8) == RECORD_TAG_ID) { // record structures\r\n\t\t\t\tlet structure = currentStructures[token & 0xff]\r\n\t\t\t\tif (structure) {\r\n\t\t\t\t\tif (!structure.read)\r\n\t\t\t\t\t\tstructure.read = createStructureReader(structure)\r\n\t\t\t\t\treturn structure.read()\r\n\t\t\t\t} else if (currentDecoder.getStructures) {\r\n\t\t\t\t\tlet updatedStructures = saveState(() => {\r\n\t\t\t\t\t\t// save the state in case getStructures modifies our buffer\r\n\t\t\t\t\t\tsrc = null\r\n\t\t\t\t\t\treturn currentDecoder.getStructures()\r\n\t\t\t\t\t})\r\n\t\t\t\t\tif (currentStructures === true)\r\n\t\t\t\t\t\tcurrentDecoder.structures = currentStructures = updatedStructures\r\n\t\t\t\t\telse\r\n\t\t\t\t\t\tcurrentStructures.splice.apply(currentStructures, [0, updatedStructures.length].concat(updatedStructures))\r\n\t\t\t\t\tstructure = currentStructures[token & 0xff]\r\n\t\t\t\t\tif (structure) {\r\n\t\t\t\t\t\tif (!structure.read)\r\n\t\t\t\t\t\t\tstructure.read = createStructureReader(structure)\r\n\t\t\t\t\t\treturn structure.read()\r\n\t\t\t\t\t} else\r\n\t\t\t\t\t\treturn token\r\n\t\t\t\t} else\r\n\t\t\t\t\treturn token\r\n\t\t\t} else {\r\n\t\t\t\tlet extension = currentExtensions[token]\r\n\t\t\t\tif (extension) {\r\n\t\t\t\t\tif (extension.handlesRead)\r\n\t\t\t\t\t\treturn extension(read)\r\n\t\t\t\t\telse\r\n\t\t\t\t\t\treturn extension(read())\r\n\t\t\t\t}\r\n\t\t\t\telse\r\n\t\t\t\t\treturn new Tag(read())\r\n\t\t\t}\r\n\t\tcase 7: // fixed value\r\n\t\t\tswitch (token) {\r\n\t\t\t\tcase 0x14: return false\r\n\t\t\t\tcase 0x15: return true\r\n\t\t\t\tcase 0x16: return null\r\n\t\t\t\tcase 0x17: return; // undefined\r\n\t\t\t\tcase 0x1f: \r\n\t\t\t\tdefault:\r\n\t\t\t\t\tthrow new Error('Unknown token ' + token)\r\n\t\t\t}\r\n\t\tdefault: // negative int\r\n\t\t\tif (isNaN(token)) {\r\n\t\t\t\tlet error = new Error('Unexpected end of CBOR data')\r\n\t\t\t\terror.incomplete = true\r\n\t\t\t\tthrow error\r\n\t\t\t}\r\n\t\t\tthrow new Error('Unknown CBOR token ' + token)\r\n\t}\r\n}\r\nconst validName = /^[a-zA-Z_$][a-zA-Z\\d_$]*$/\r\nfunction createStructureReader(structure) {\r\n\tlet l = structure.length\r\n\tfunction readObject() {\r\n\t\t// This initial function is quick to instantiate, but runs slower. After several iterations pay the cost to build the faster function\r\n\t\tif (readObject.count++ > 2) {\r\n\t\t\tthis.read = (new Function('a', 'r', 'return function(){a();return {' + structure.map(key => validName.test(key) ? key + ':r()' : ('[' + JSON.stringify(key) + ']:r()')).join(',') + '}}'))(readArrayHeader, read)\r\n\t\t\treturn this.read()\r\n\t\t}\r\n\t\treadArrayHeader(l)\r\n\t\tlet object = {}\r\n\t\tfor (let i = 0; i < l; i++) {\r\n\t\t\tlet key = structure[i]\r\n\t\t\tobject[key] = read()\r\n\t\t}\r\n\t\treturn object\r\n\t}\r\n\treadObject.count = 0\r\n\treturn readObject\r\n}\r\n\r\nfunction readArrayHeader(expectedLength) {\r\n\t// consume the array header, TODO: check expected length\r\n\tlet token = src[position++]\r\n\t//let majorType = token >> 5\r\n\ttoken = token & 0x1f\r\n\tif (token > 0x17) {\r\n\t\tswitch (token) {\r\n\t\t\tcase 0x18: position++\r\n\t\t\t\tbreak\r\n\t\t\tcase 0x19: position += 2\r\n\t\t\t\tbreak\r\n\t\t\tcase 0x1a: position += 4\r\n\t\t}\r\n\t}\r\n}\r\n\r\nlet readFixedString = readStringJS\r\nlet readString8 = readStringJS\r\nlet readString16 = readStringJS\r\nlet readString32 = readStringJS\r\n\r\nexport function setExtractor(extractStrings) {\r\n\treadFixedString = readString(1)\r\n\treadString8 = readString(2)\r\n\treadString16 = readString(3)\r\n\treadString32 = readString(5)\r\n\tfunction readString(headerLength) {\r\n\t\treturn function readString(length) {\r\n\t\t\tlet string = strings[stringPosition++]\r\n\t\t\tif (string == null) {\r\n\t\t\t\tlet extraction = extractStrings(position, srcEnd, length, src)\r\n\t\t\t\tif (typeof extraction == 'string') {\r\n\t\t\t\t\tstring = extraction\r\n\t\t\t\t\tstrings = EMPTY_ARRAY\r\n\t\t\t\t} else {\r\n\t\t\t\t\tstrings = extraction\r\n\t\t\t\t\tstringPosition = 1\r\n\t\t\t\t\tsrcStringEnd = 1 // even if a utf-8 string was decoded, must indicate we are in the midst of extracted strings and can't skip strings\r\n\t\t\t\t\tstring = strings[0]\r\n\t\t\t\t\tif (string === undefined)\r\n\t\t\t\t\t\tthrow new Error('Unexpected end of buffer')\r\n\t\t\t\t}\r\n\t\t\t}\r\n\t\t\tlet srcStringLength = string.length\r\n\t\t\tif (srcStringLength <= length) {\r\n\t\t\t\tposition += length\r\n\t\t\t\treturn string\r\n\t\t\t}\r\n\t\t\tsrcString = string\r\n\t\t\tsrcStringStart = position\r\n\t\t\tsrcStringEnd = position + srcStringLength\r\n\t\t\tposition += length\r\n\t\t\treturn string.slice(0, length) // we know we just want the beginning\r\n\t\t}\r\n\t}\r\n}\r\nfunction readStringJS(length) {\r\n\tlet result\r\n\tif (length < 16) {\r\n\t\tif (result = shortStringInJS(length))\r\n\t\t\treturn result\r\n\t}\r\n\tif (length > 64 && decoder)\r\n\t\treturn decoder.decode(src.subarray(position, position += length))\r\n\tconst end = position + length\r\n\tconst units = []\r\n\tresult = ''\r\n\twhile (position < end) {\r\n\t\tconst byte1 = src[position++]\r\n\t\tif ((byte1 & 0x80) === 0) {\r\n\t\t\t// 1 byte\r\n\t\t\tunits.push(byte1)\r\n\t\t} else if ((byte1 & 0xe0) === 0xc0) {\r\n\t\t\t// 2 bytes\r\n\t\t\tconst byte2 = src[position++] & 0x3f\r\n\t\t\tunits.push(((byte1 & 0x1f) << 6) | byte2)\r\n\t\t} else if ((byte1 & 0xf0) === 0xe0) {\r\n\t\t\t// 3 bytes\r\n\t\t\tconst byte2 = src[position++] & 0x3f\r\n\t\t\tconst byte3 = src[position++] & 0x3f\r\n\t\t\tunits.push(((byte1 & 0x1f) << 12) | (byte2 << 6) | byte3)\r\n\t\t} else if ((byte1 & 0xf8) === 0xf0) {\r\n\t\t\t// 4 bytes\r\n\t\t\tconst byte2 = src[position++] & 0x3f\r\n\t\t\tconst byte3 = src[position++] & 0x3f\r\n\t\t\tconst byte4 = src[position++] & 0x3f\r\n\t\t\tlet unit = ((byte1 & 0x07) << 0x12) | (byte2 << 0x0c) | (byte3 << 0x06) | byte4\r\n\t\t\tif (unit > 0xffff) {\r\n\t\t\t\tunit -= 0x10000\r\n\t\t\t\tunits.push(((unit >>> 10) & 0x3ff) | 0xd800)\r\n\t\t\t\tunit = 0xdc00 | (unit & 0x3ff)\r\n\t\t\t}\r\n\t\t\tunits.push(unit)\r\n\t\t} else {\r\n\t\t\tunits.push(byte1)\r\n\t\t}\r\n\r\n\t\tif (units.length >= 0x1000) {\r\n\t\t\tresult += fromCharCode.apply(String, units)\r\n\t\t\tunits.length = 0\r\n\t\t}\r\n\t}\r\n\r\n\tif (units.length > 0) {\r\n\t\tresult += fromCharCode.apply(String, units)\r\n\t}\r\n\r\n\treturn result\r\n}\r\nlet fromCharCode = String.fromCharCode\r\nfunction longStringInJS(length) {\r\n\tlet start = position\r\n\tlet bytes = new Array(length)\r\n\tfor (let i = 0; i < length; i++) {\r\n\t\tconst byte = src[position++];\r\n\t\tif ((byte & 0x80) > 0) {\r\n\t\t\tposition = start\r\n \t\t\treturn\r\n \t\t}\r\n \t\tbytes[i] = byte\r\n \t}\r\n \treturn fromCharCode.apply(String, bytes)\r\n}\r\nfunction shortStringInJS(length) {\r\n\tif (length < 4) {\r\n\t\tif (length < 2) {\r\n\t\t\tif (length === 0)\r\n\t\t\t\treturn ''\r\n\t\t\telse {\r\n\t\t\t\tlet a = src[position++]\r\n\t\t\t\tif ((a & 0x80) > 1) {\r\n\t\t\t\t\tposition -= 1\r\n\t\t\t\t\treturn\r\n\t\t\t\t}\r\n\t\t\t\treturn fromCharCode(a)\r\n\t\t\t}\r\n\t\t} else {\r\n\t\t\tlet a = src[position++]\r\n\t\t\tlet b = src[position++]\r\n\t\t\tif ((a & 0x80) > 0 || (b & 0x80) > 0) {\r\n\t\t\t\tposition -= 2\r\n\t\t\t\treturn\r\n\t\t\t}\r\n\t\t\tif (length < 3)\r\n\t\t\t\treturn fromCharCode(a, b)\r\n\t\t\tlet c = src[position++]\r\n\t\t\tif ((c & 0x80) > 0) {\r\n\t\t\t\tposition -= 3\r\n\t\t\t\treturn\r\n\t\t\t}\r\n\t\t\treturn fromCharCode(a, b, c)\r\n\t\t}\r\n\t} else {\r\n\t\tlet a = src[position++]\r\n\t\tlet b = src[position++]\r\n\t\tlet c = src[position++]\r\n\t\tlet d = src[position++]\r\n\t\tif ((a & 0x80) > 0 || (b & 0x80) > 0 || (c & 0x80) > 0 || (d & 0x80) > 0) {\r\n\t\t\tposition -= 4\r\n\t\t\treturn\r\n\t\t}\r\n\t\tif (length < 6) {\r\n\t\t\tif (length === 4)\r\n\t\t\t\treturn fromCharCode(a, b, c, d)\r\n\t\t\telse {\r\n\t\t\t\tlet e = src[position++]\r\n\t\t\t\tif ((e & 0x80) > 0) {\r\n\t\t\t\t\tposition -= 5\r\n\t\t\t\t\treturn\r\n\t\t\t\t}\r\n\t\t\t\treturn fromCharCode(a, b, c, d, e)\r\n\t\t\t}\r\n\t\t} else if (length < 8) {\r\n\t\t\tlet e = src[position++]\r\n\t\t\tlet f = src[position++]\r\n\t\t\tif ((e & 0x80) > 0 || (f & 0x80) > 0) {\r\n\t\t\t\tposition -= 6\r\n\t\t\t\treturn\r\n\t\t\t}\r\n\t\t\tif (length < 7)\r\n\t\t\t\treturn fromCharCode(a, b, c, d, e, f)\r\n\t\t\tlet g = src[position++]\r\n\t\t\tif ((g & 0x80) > 0) {\r\n\t\t\t\tposition -= 7\r\n\t\t\t\treturn\r\n\t\t\t}\r\n\t\t\treturn fromCharCode(a, b, c, d, e, f, g)\r\n\t\t} else {\r\n\t\t\tlet e = src[position++]\r\n\t\t\tlet f = src[position++]\r\n\t\t\tlet g = src[position++]\r\n\t\t\tlet h = src[position++]\r\n\t\t\tif ((e & 0x80) > 0 || (f & 0x80) > 0 || (g & 0x80) > 0 || (h & 0x80) > 0) {\r\n\t\t\t\tposition -= 8\r\n\t\t\t\treturn\r\n\t\t\t}\r\n\t\t\tif (length < 10) {\r\n\t\t\t\tif (length === 8)\r\n\t\t\t\t\treturn fromCharCode(a, b, c, d, e, f, g, h)\r\n\t\t\t\telse {\r\n\t\t\t\t\tlet i = src[position++]\r\n\t\t\t\t\tif ((i & 0x80) > 0) {\r\n\t\t\t\t\t\tposition -= 9\r\n\t\t\t\t\t\treturn\r\n\t\t\t\t\t}\r\n\t\t\t\t\treturn fromCharCode(a, b, c, d, e, f, g, h, i)\r\n\t\t\t\t}\r\n\t\t\t} else if (length < 12) {\r\n\t\t\t\tlet i = src[position++]\r\n\t\t\t\tlet j = src[position++]\r\n\t\t\t\tif ((i & 0x80) > 0 || (j & 0x80) > 0) {\r\n\t\t\t\t\tposition -= 10\r\n\t\t\t\t\treturn\r\n\t\t\t\t}\r\n\t\t\t\tif (length < 11)\r\n\t\t\t\t\treturn fromCharCode(a, b, c, d, e, f, g, h, i, j)\r\n\t\t\t\tlet k = src[position++]\r\n\t\t\t\tif ((k & 0x80) > 0) {\r\n\t\t\t\t\tposition -= 11\r\n\t\t\t\t\treturn\r\n\t\t\t\t}\r\n\t\t\t\treturn fromCharCode(a, b, c, d, e, f, g, h, i, j, k)\r\n\t\t\t} else {\r\n\t\t\t\tlet i = src[position++]\r\n\t\t\t\tlet j = src[position++]\r\n\t\t\t\tlet k = src[position++]\r\n\t\t\t\tlet l = src[position++]\r\n\t\t\t\tif ((i & 0x80) > 0 || (j & 0x80) > 0 || (k & 0x80) > 0 || (l & 0x80) > 0) {\r\n\t\t\t\t\tposition -= 12\r\n\t\t\t\t\treturn\r\n\t\t\t\t}\r\n\t\t\t\tif (length < 14) {\r\n\t\t\t\t\tif (length === 12)\r\n\t\t\t\t\t\treturn fromCharCode(a, b, c, d, e, f, g, h, i, j, k, l)\r\n\t\t\t\t\telse {\r\n\t\t\t\t\t\tlet m = src[position++]\r\n\t\t\t\t\t\tif ((m & 0x80) > 0) {\r\n\t\t\t\t\t\t\tposition -= 13\r\n\t\t\t\t\t\t\treturn\r\n\t\t\t\t\t\t}\r\n\t\t\t\t\t\treturn fromCharCode(a, b, c, d, e, f, g, h, i, j, k, l, m)\r\n\t\t\t\t\t}\r\n\t\t\t\t} else {\r\n\t\t\t\t\tlet m = src[position++]\r\n\t\t\t\t\tlet n = src[position++]\r\n\t\t\t\t\tif ((m & 0x80) > 0 || (n & 0x80) > 0) {\r\n\t\t\t\t\t\tposition -= 14\r\n\t\t\t\t\t\treturn\r\n\t\t\t\t\t}\r\n\t\t\t\t\tif (length < 15)\r\n\t\t\t\t\t\treturn fromCharCode(a, b, c, d, e, f, g, h, i, j, k, l, m, n)\r\n\t\t\t\t\tlet o = src[position++]\r\n\t\t\t\t\tif ((o & 0x80) > 0) {\r\n\t\t\t\t\t\tposition -= 15\r\n\t\t\t\t\t\treturn\r\n\t\t\t\t\t}\r\n\t\t\t\t\treturn fromCharCode(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o)\r\n\t\t\t\t}\r\n\t\t\t}\r\n\t\t}\r\n\t}\r\n}\r\n\r\nfunction readBin(length) {\r\n\treturn currentDecoder.copyBuffers ?\r\n\t\t// specifically use the copying slice (not the node one)\r\n\t\tUint8Array.prototype.slice.call(src, position, position += length) :\r\n\t\tsrc.subarray(position, position += length)\r\n}\r\nfunction readExt(length) {\r\n\tlet type = src[position++]\r\n\tif (currentExtensions[type]) {\r\n\t\treturn currentExtensions[type](src.subarray(position, position += length))\r\n\t}\r\n\telse\r\n\t\tthrow new Error('Unknown extension type ' + type)\r\n}\r\n\r\nfunction getFloat16() {\r\n\tlet byte0 = src[position++]\r\n\tlet byte1 = src[position++]\r\n\tlet half = (byte0 << 8) + byte1\r\n\tlet exp = (half >> 10) & 0x1f\r\n\tlet mant = half & 0x3ff\r\n\tlet val\r\n\tif (exp == 0) val = Math.exp(mant, -24)\r\n\telse if (exp != 31) val = Math.exp(mant + 1024, exp - 25)\r\n\telse val = mant == 0 ? Infinity : NaN\r\n\treturn half & 0x8000 ? -val : val\r\n}\r\n\r\nlet keyCache = new Array(4096)\r\nfunction readKey() {\r\n\tlet length = src[position++]\r\n\tif (length >= 0x60 && length < 0x78) {\r\n\t\t// fixstr, potentially use key cache\r\n\t\tlength = length - 0x60\r\n\t\tif (srcStringEnd >= position) // if it has been extracted, must use it (and faster anyway)\r\n\t\t\treturn srcString.slice(position - srcStringStart, (position += length) - srcStringStart)\r\n\t\telse if (!(srcStringEnd == 0 && srcEnd < 180))\r\n\t\t\treturn readFixedString(length)\r\n\t} else { // not cacheable, go back and do a standard read\r\n\t\tposition--\r\n\t\treturn read()\r\n\t}\r\n\tlet key = ((length << 5) ^ (length > 1 ? dataView.getUint16(position) : length > 0 ? src[position] : 0)) & 0xfff\r\n\tlet entry = keyCache[key]\r\n\tlet checkPosition = position\r\n\tlet end = position + length - 3\r\n\tlet chunk\r\n\tlet i = 0\r\n\tif (entry && entry.bytes == length) {\r\n\t\twhile (checkPosition < end) {\r\n\t\t\tchunk = dataView.getUint32(checkPosition)\r\n\t\t\tif (chunk != entry[i++]) {\r\n\t\t\t\tcheckPosition = 0x70000000\r\n\t\t\t\tbreak\r\n\t\t\t}\r\n\t\t\tcheckPosition += 4\r\n\t\t}\r\n\t\tend += 3\r\n\t\twhile (checkPosition < end) {\r\n\t\t\tchunk = src[checkPosition++]\r\n\t\t\tif (chunk != entry[i++]) {\r\n\t\t\t\tcheckPosition = 0x70000000\r\n\t\t\t\tbreak\r\n\t\t\t}\r\n\t\t}\r\n\t\tif (checkPosition === end) {\r\n\t\t\tposition = checkPosition\r\n\t\t\treturn entry.string\r\n\t\t}\r\n\t\tend -= 3\r\n\t\tcheckPosition = position\r\n\t}\r\n\tentry = []\r\n\tkeyCache[key] = entry\r\n\tentry.bytes = length\r\n\twhile (checkPosition < end) {\r\n\t\tchunk = dataView.getUint32(checkPosition)\r\n\t\tentry.push(chunk)\r\n\t\tcheckPosition += 4\r\n\t}\r\n\tend += 3\r\n\twhile (checkPosition < end) {\r\n\t\tchunk = src[checkPosition++]\r\n\t\tentry.push(chunk)\r\n\t}\r\n\t// for small blocks, avoiding the overhead of the extract call is helpful\r\n\tlet string = length < 16 ? shortStringInJS(length) : longStringInJS(length)\r\n\tif (string != null)\r\n\t\treturn entry.string = string\r\n\treturn entry.string = readFixedString(length)\r\n}\r\n\r\nexport class Tag {\r\n\tconstructor(value) {\r\n\t\tthis.value = value\r\n\t}\r\n}\r\n\r\nlet glbl = typeof window == 'object' ? window : global\r\n\r\ncurrentExtensions[0] = (dateString) => {\r\n\t// string date extension\r\n\treturn new Date(dateString)\r\n}\r\n\r\ncurrentExtensions[1] = (epochSec) => {\r\n\t// numeric date extension\r\n\treturn new Date(epochSec * 1000)\r\n}\r\n\r\ncurrentExtensions[2] = (buffer) => {\r\n\t// bigint extension\r\n\treturn new DataView(buffer.buffer, buffer.byteOffset, buffer.byteLength).getBigUint64(0)\r\n}\r\n\r\ncurrentExtensions[3] = (buffer) => {\r\n\t// negative bigint extension\r\n\treturn BigInt(-1) - (new DataView(buffer.buffer, buffer.byteOffset, buffer.byteLength).getBigUint64(0))\r\n}\r\n\r\n// the registration of the record definition extension (tag 105)\r\nconst recordDefinition = () => {\r\n\tlet definition = read()\r\n\tlet structure = definition[0]\r\n\tlet id = definition[1]\r\n\tcurrentStructures[id & 0xff] = structure\r\n\tstructure.read = createStructureReader(structure)\r\n\tlet object = {}\r\n\tfor (let i = 2,l = definition.length; i < l; i++) {\r\n\t\tlet key = structure[i - 2]\r\n\t\tobject[key] = definition[i]\r\n\t}\r\n\treturn object\r\n}\r\n\r\nrecordDefinition.handlesRead = true\r\ncurrentExtensions[RECORD_TAG_ID] = recordDefinition\r\n\r\ncurrentExtensions[27] = (data) => { // http://cbor.schmorp.de/generic-object\r\n\treturn (glbl[data[0]] || Error)(data[1], data[2])\r\n}\r\n\r\ncurrentExtensions[40009] = (id) => {\r\n\t// id extension (for structured clones)\r\n\tif (!referenceMap)\r\n\t\treferenceMap = new Map()\r\n\tlet token = src[position]\r\n\tlet target\r\n\t// TODO: handle Maps, Sets, and other types that can cycle; this is complicated, because you potentially need to read\r\n\t// ahead past references to record structure definitions\r\n\tif ((token >> 5) == 4)\r\n\t\ttarget = []\r\n\telse\r\n\t\ttarget = {}\r\n\r\n\tlet refEntry = { target } // a placeholder object\r\n\treferenceMap.set(id, refEntry)\r\n\tlet targetProperties = read() // read the next value as the target object to id\r\n\tif (refEntry.used) // there is a cycle, so we have to assign properties to original target\r\n\t\treturn Object.assign(target, targetProperties)\r\n\trefEntry.target = targetProperties // the placeholder wasn't used, replace with the deserialized one\r\n\treturn targetProperties // no cycle, can just use the returned read object\r\n}\r\n\r\ncurrentExtensions[40010] = (id) => {\r\n\t// pointer extension (for structured clones)\r\n\tlet refEntry = referenceMap.get(id)\r\n\trefEntry.used = true\r\n\treturn refEntry.target\r\n}\r\n\r\ncurrentExtensions[258] = (array) => new Set(array); // https://github.com/input-output-hk/cbor-sets-spec/blob/master/CBOR_SETS.md\r\n(currentExtensions[259] = (read) => {\r\n\t// https://github.com/shanewholloway/js-cbor-codec/blob/master/docs/CBOR-259-spec\r\n\t// for decoding as a standard Map\r\n\tif (currentDecoder.mapsAsObjects) {\r\n\t\tcurrentDecoder.mapsAsObjects = false\r\n\t\trestoreMapsAsObject = true\r\n\t}\r\n\treturn read()\r\n}).handlesRead = true\r\n\r\n\r\nexport const typedArrays = ['Uint8', 'Uint8Clamped', 'Uint16', 'Uint32', 'BigUint64','Int8', 'Int16', 'Int32', 'BigInt64', 'Float32', 'Float64'].map(type => type + 'Array')\r\nconst typedArrayTags = [64, 68, 69, 70, 71, 72, 77, 78, 79, 81, 82]\r\nfor (let i = 0; i < typedArrays.length; i++) {\r\n\tregisterTypedArray(typedArrays[i], typedArrayTags[i])\r\n}\r\nfunction registerTypedArray(typedArrayName, tag) {\r\n\tcurrentExtensions[tag] = (buffer) => {\r\n\t\tif (!typedArrayName)\r\n\t\t\tthrow new Error('Could not find typed array for code ' + typeCode)\r\n\t\t// we have to always slice/copy here to get a new ArrayBuffer that is word/byte aligned\r\n\t\treturn new glbl[typedArrayName](Uint8Array.prototype.slice.call(buffer, 0).buffer)\r\n\t}\r\n}\r\n\r\nfunction saveState(callback) {\r\n\tlet savedSrcEnd = srcEnd\r\n\tlet savedPosition = position\r\n\tlet savedStringPosition = stringPosition\r\n\tlet savedSrcStringStart = srcStringStart\r\n\tlet savedSrcStringEnd = srcStringEnd\r\n\tlet savedSrcString = srcString\r\n\tlet savedStrings = strings\r\n\tlet savedReferenceMap = referenceMap\r\n\t// TODO: We may need to revisit this if we do more external calls to user code (since it could be slow)\r\n\tlet savedSrc = new Uint8Array(src.slice(0, srcEnd)) // we copy the data in case it changes while external data is processed\r\n\tlet savedStructures = currentStructures\r\n\tlet savedDecoder = currentDecoder\r\n\tlet savedSequentialMode = sequentialMode\r\n\tlet value = callback()\r\n\tsrcEnd = savedSrcEnd\r\n\tposition = savedPosition\r\n\tstringPosition = savedStringPosition\r\n\tsrcStringStart = savedSrcStringStart\r\n\tsrcStringEnd = savedSrcStringEnd\r\n\tsrcString = savedSrcString\r\n\tstrings = savedStrings\r\n\treferenceMap = savedReferenceMap\r\n\tsrc = savedSrc\r\n\tsequentialMode = savedSequentialMode\r\n\tcurrentStructures = savedStructures\r\n\tcurrentDecoder = savedDecoder\r\n\tdataView = new DataView(src.buffer, src.byteOffset, src.byteLength)\r\n\treturn value\r\n}\r\nexport function clearSource() {\r\n\tsrc = null\r\n\treferenceMap = null\r\n\tcurrentStructures = null\r\n}\r\n\r\nexport function addExtension(extension) {\r\n\tcurrentExtensions[extension.tag] = extension.decode\r\n}\r\n\r\nexport let mult10 = new Array(147) // this is a table matching binary exponents to the multiplier to determine significant digit rounding\r\nfor (let i = 0; i < 256; i++) {\r\n\tmult10[i] = +('1e' + Math.floor(45.15 - i * 0.30103))\r\n}\r\nexport const useRecords = false\r\nexport const mapsAsObjects = true\r\nlet defaultDecoder = new Decoder({ useRecords: false })\r\nexport const decode = defaultDecoder.decode\r\nexport const decodeMultiple = defaultDecoder.decodeMultiple\r\nexport const FLOAT32_OPTIONS = {\r\n\tNEVER: 0,\r\n\tALWAYS: 1,\r\n\tDECIMAL_ROUND: 3,\r\n\tDECIMAL_FIT: 4\r\n}\r\n","import { Decoder, mult10, Tag, typedArrays, addExtension as decodeAddExtension } from './decode.js'\r\nlet textEncoder\r\ntry {\r\n\ttextEncoder = new TextEncoder()\r\n} catch (error) {}\r\nlet extensions, extensionClasses\r\nconst hasNodeBuffer = typeof Buffer !== 'undefined'\r\nconst ByteArrayAllocate = hasNodeBuffer ? Buffer.allocUnsafeSlow : Uint8Array\r\nconst ByteArray = hasNodeBuffer ? Buffer : Uint8Array\r\nconst RECORD_STARTING_ID_PREFIX = 0x69 // tag 105/0x69\r\nconst MAX_STRUCTURES = 0x100\r\nconst MAX_BUFFER_SIZE = hasNodeBuffer ? 0x100000000 : 0x7fd00000\r\nlet target\r\nlet targetView\r\nlet position = 0\r\nlet safeEnd\r\nconst RECORD_SYMBOL = Symbol('record-id')\r\nexport class Encoder extends Decoder {\r\n\tconstructor(options) {\r\n\t\tsuper(options)\r\n\t\tthis.offset = 0\r\n\t\tlet typeBuffer\r\n\t\tlet start\r\n\t\tlet sharedStructures\r\n\t\tlet hasSharedUpdate\r\n\t\tlet structures\r\n\t\tlet referenceMap\r\n\t\tlet lastSharedStructuresLength = 0\r\n\t\tlet encodeUtf8 = ByteArray.prototype.utf8Write ? function(string, position, maxBytes) {\r\n\t\t\treturn target.utf8Write(string, position, maxBytes)\r\n\t\t} : (textEncoder && textEncoder.encodeInto) ?\r\n\t\t\tfunction(string, position) {\r\n\t\t\t\treturn textEncoder.encodeInto(string, target.subarray(position)).written\r\n\t\t\t} : false\r\n\r\n\t\tlet encoder = this\r\n\t\tlet maxSharedStructures = 64\r\n\t\tlet isSequential = options && options.sequential\r\n\t\tif (isSequential) {\r\n\t\t\tmaxSharedStructures = 0\r\n\t\t\tthis.structures = []\r\n\t\t}\r\n\t\tlet recordIdsToRemove = []\r\n\t\tlet transitionsCount = 0\r\n\t\tlet serializationsSinceTransitionRebuild = 0\r\n\t\tif (this.structures && this.structures.length > maxSharedStructures) {\r\n\t\t\tthrow new Error('Too many shared structures')\r\n\t\t}\r\n\r\n\t\tthis.encode = function(value) {\r\n\t\t\tif (!target) {\r\n\t\t\t\ttarget = new ByteArrayAllocate(8192)\r\n\t\t\t\ttargetView = new DataView(target.buffer, 0, 8192)\r\n\t\t\t\tposition = 0\r\n\t\t\t}\r\n\t\t\tsafeEnd = target.length - 10\r\n\t\t\tif (safeEnd - position < 0x800) {\r\n\t\t\t\t// don't start too close to the end, \r\n\t\t\t\ttarget = new ByteArrayAllocate(target.length)\r\n\t\t\t\ttargetView = new DataView(target.buffer, 0, target.length)\r\n\t\t\t\tsafeEnd = target.length - 10\r\n\t\t\t\tposition = 0\r\n\t\t\t}\r\n\t\t\tstart = position\r\n\t\t\treferenceMap = encoder.structuredClone ? new Map() : null\r\n\t\t\tsharedStructures = encoder.structures\r\n\t\t\tif (sharedStructures) {\r\n\t\t\t\tif (sharedStructures.uninitialized)\r\n\t\t\t\t\tencoder.structures = sharedStructures = encoder.getStructures()\r\n\t\t\t\tlet sharedStructuresLength = sharedStructures.length\r\n\t\t\t\tif (sharedStructuresLength > maxSharedStructures && !isSequential)\r\n\t\t\t\t\tsharedStructuresLength = maxSharedStructures\r\n\t\t\t\tif (!sharedStructures.transitions) {\r\n\t\t\t\t\t// rebuild our structure transitions\r\n\t\t\t\t\tsharedStructures.transitions = Object.create(null)\r\n\t\t\t\t\tfor (let i = 0; i < sharedStructuresLength; i++) {\r\n\t\t\t\t\t\tlet keys = sharedStructures[i]\r\n\t\t\t\t\t\tif (!keys)\r\n\t\t\t\t\t\t\tcontinue\r\n\t\t\t\t\t\tlet nextTransition, transition = sharedStructures.transitions\r\n\t\t\t\t\t\tfor (let i =0, l = keys.length; i < l; i++) {\r\n\t\t\t\t\t\t\tlet key = keys[i]\r\n\t\t\t\t\t\t\tnextTransition = transition[key]\r\n\t\t\t\t\t\t\tif (!nextTransition) {\r\n\t\t\t\t\t\t\t\tnextTransition = transition[key] = Object.create(null)\r\n\t\t\t\t\t\t\t}\r\n\t\t\t\t\t\t\ttransition = nextTransition\r\n\t\t\t\t\t\t}\r\n\t\t\t\t\t\ttransition[RECORD_SYMBOL] = i\r\n\t\t\t\t\t}\r\n\t\t\t\t\tlastSharedStructuresLength = sharedStructures.length\r\n\t\t\t\t}\r\n\t\t\t\tif (!isSequential)\r\n\t\t\t\t\tsharedStructures.nextId = sharedStructuresLength\r\n\t\t\t}\r\n\t\t\tif (hasSharedUpdate)\r\n\t\t\t\thasSharedUpdate = false\r\n\t\t\tstructures = sharedStructures || []\r\n\t\t\ttry {\r\n\t\t\t\tencode(value)\r\n\t\t\t\tencoder.offset = position // update the offset so next serialization doesn't write over our buffer, but can continue writing to same buffer sequentially\r\n\t\t\t\tif (referenceMap && referenceMap.idsToInsert) {\r\n\t\t\t\t\tposition += referenceMap.idsToInsert.length * 8\r\n\t\t\t\t\tif (position > safeEnd)\r\n\t\t\t\t\t\tmakeRoom(position)\r\n\t\t\t\t\tencoder.offset = position\r\n\t\t\t\t\tlet serialized = insertIds(target.subarray(start, position), referenceMap.idsToInsert)\r\n\t\t\t\t\treferenceMap = null\r\n\t\t\t\t\treturn serialized\r\n\t\t\t\t}\r\n\t\t\t\treturn target.subarray(start, position) // position can change if we call encode again in saveStructures, so we get the buffer now\r\n\t\t\t} finally {\r\n\t\t\t\tif (sharedStructures) {\r\n\t\t\t\t\tif (serializationsSinceTransitionRebuild < 10)\r\n\t\t\t\t\t\tserializationsSinceTransitionRebuild++\r\n\t\t\t\t\tif (transitionsCount > 10000) {\r\n\t\t\t\t\t\t// force a rebuild occasionally after a lot of transitions so it can get cleaned up\r\n\t\t\t\t\t\tsharedStructures.transitions = null\r\n\t\t\t\t\t\tserializationsSinceTransitionRebuild = 0\r\n\t\t\t\t\t\ttransitionsCount = 0\r\n\t\t\t\t\t\tif (recordIdsToRemove.length > 0)\r\n\t\t\t\t\t\t\trecordIdsToRemove = []\r\n\t\t\t\t\t} else if (recordIdsToRemove.length > 0 && !isSequential) {\r\n\t\t\t\t\t\tfor (let i = 0, l = recordIdsToRemove.length; i < l; i++) {\r\n\t\t\t\t\t\t\trecordIdsToRemove[i][RECORD_SYMBOL] = undefined\r\n\t\t\t\t\t\t}\r\n\t\t\t\t\t\trecordIdsToRemove = []\r\n\t\t\t\t\t}\r\n\t\t\t\t\tif (hasSharedUpdate && encoder.saveStructures) {\r\n\t\t\t\t\t\tif (encoder.structures.length > maxSharedStructures) {\r\n\t\t\t\t\t\t\tencoder.structures = encoder.structures.slice(0, maxSharedStructures)\r\n\t\t\t\t\t\t}\r\n\r\n\t\t\t\t\t\tif (encoder.saveStructures(encoder.structures, lastSharedStructuresLength) === false) {\r\n\t\t\t\t\t\t\t// get updated structures and try again if the update failed\r\n\t\t\t\t\t\t\tencoder.structures = encoder.getStructures() || []\r\n\t\t\t\t\t\t\treturn encoder.encode(value)\r\n\t\t\t\t\t\t}\r\n\t\t\t\t\t\tlastSharedStructuresLength = encoder.structures.length\r\n\t\t\t\t\t}\r\n\t\t\t\t}\r\n\t\t\t}\r\n\t\t}\r\n\t\tconst encode = (value) => {\r\n\t\t\tif (position > safeEnd)\r\n\t\t\t\ttarget = makeRoom(position)\r\n\r\n\t\t\tvar type = typeof value\r\n\t\t\tvar length\r\n\t\t\tif (type === 'string') {\r\n\t\t\t\tlet strLength = value.length\r\n\t\t\t\tlet headerSize\r\n\t\t\t\t// first we estimate the header size, so we can write to the correct location\r\n\t\t\t\tif (strLength < 0x20) {\r\n\t\t\t\t\theaderSize = 1\r\n\t\t\t\t} else if (strLength < 0x100) {\r\n\t\t\t\t\theaderSize = 2\r\n\t\t\t\t} else if (strLength < 0x10000) {\r\n\t\t\t\t\theaderSize = 3\r\n\t\t\t\t} else {\r\n\t\t\t\t\theaderSize = 5\r\n\t\t\t\t}\r\n\t\t\t\tlet maxBytes = strLength * 3\r\n\t\t\t\tif (position + maxBytes > safeEnd)\r\n\t\t\t\t\ttarget = makeRoom(position + maxBytes)\r\n\r\n\t\t\t\tif (strLength < 0x40 || !encodeUtf8) {\r\n\t\t\t\t\tlet i, c1, c2, strPosition = position + headerSize\r\n\t\t\t\t\tfor (i = 0; i < strLength; i++) {\r\n\t\t\t\t\t\tc1 = value.charCodeAt(i)\r\n\t\t\t\t\t\tif (c1 < 0x80) {\r\n\t\t\t\t\t\t\ttarget[strPosition++] = c1\r\n\t\t\t\t\t\t} else if (c1 < 0x800) {\r\n\t\t\t\t\t\t\ttarget[strPosition++] = c1 >> 6 | 0xc0\r\n\t\t\t\t\t\t\ttarget[strPosition++] = c1 & 0x3f | 0x80\r\n\t\t\t\t\t\t} else if (\r\n\t\t\t\t\t\t\t(c1 & 0xfc00) === 0xd800 &&\r\n\t\t\t\t\t\t\t((c2 = value.charCodeAt(i + 1)) & 0xfc00) === 0xdc00\r\n\t\t\t\t\t\t) {\r\n\t\t\t\t\t\t\tc1 = 0x10000 + ((c1 & 0x03ff) << 10) + (c2 & 0x03ff)\r\n\t\t\t\t\t\t\ti++\r\n\t\t\t\t\t\t\ttarget[strPosition++] = c1 >> 18 | 0xf0\r\n\t\t\t\t\t\t\ttarget[strPosition++] = c1 >> 12 & 0x3f | 0x80\r\n\t\t\t\t\t\t\ttarget[strPosition++] = c1 >> 6 & 0x3f | 0x80\r\n\t\t\t\t\t\t\ttarget[strPosition++] = c1 & 0x3f | 0x80\r\n\t\t\t\t\t\t} else {\r\n\t\t\t\t\t\t\ttarget[strPosition++] = c1 >> 12 | 0xe0\r\n\t\t\t\t\t\t\ttarget[strPosition++] = c1 >> 6 & 0x3f | 0x80\r\n\t\t\t\t\t\t\ttarget[strPosition++] = c1 & 0x3f | 0x80\r\n\t\t\t\t\t\t}\r\n\t\t\t\t\t}\r\n\t\t\t\t\tlength = strPosition - position - headerSize\r\n\t\t\t\t} else {\r\n\t\t\t\t\tlength = encodeUtf8(value, position + headerSize, maxBytes)\r\n\t\t\t\t}\r\n\r\n\t\t\t\tif (length < 0x18) {\r\n\t\t\t\t\ttarget[position++] = 0x60 | length\r\n\t\t\t\t} else if (length < 0x100) {\r\n\t\t\t\t\tif (headerSize < 2) {\r\n\t\t\t\t\t\ttarget.copyWithin(position + 2, position + 1, position + 1 + length)\r\n\t\t\t\t\t}\r\n\t\t\t\t\ttarget[position++] = 0x78\r\n\t\t\t\t\ttarget[position++] = length\r\n\t\t\t\t} else if (length < 0x10000) {\r\n\t\t\t\t\tif (headerSize < 3) {\r\n\t\t\t\t\t\ttarget.copyWithin(position + 3, position + 2, position + 2 + length)\r\n\t\t\t\t\t}\r\n\t\t\t\t\ttarget[position++] = 0x79\r\n\t\t\t\t\ttarget[position++] = length >> 8\r\n\t\t\t\t\ttarget[position++] = length & 0xff\r\n\t\t\t\t} else {\r\n\t\t\t\t\tif (headerSize < 5) {\r\n\t\t\t\t\t\ttarget.copyWithin(position + 5, position + 3, position + 3 + length)\r\n\t\t\t\t\t}\r\n\t\t\t\t\ttarget[position++] = 0x7a\r\n\t\t\t\t\ttargetView.setUint32(position, length)\r\n\t\t\t\t\tposition += 4\r\n\t\t\t\t}\r\n\t\t\t\tposition += length\r\n\t\t\t} else if (type === 'number') {\r\n\t\t\t\tif (value >>> 0 === value) {// positive integer, 32-bit or less\r\n\t\t\t\t\t// positive uint\r\n\t\t\t\t\tif (value < 0x18) {\r\n\t\t\t\t\t\ttarget[position++] = value\r\n\t\t\t\t\t} else if (value < 0x100) {\r\n\t\t\t\t\t\ttarget[position++] = 0x18\r\n\t\t\t\t\t\ttarget[position++] = value\r\n\t\t\t\t\t} else if (value < 0x10000) {\r\n\t\t\t\t\t\ttarget[position++] = 0x19\r\n\t\t\t\t\t\ttarget[position++] = value >> 8\r\n\t\t\t\t\t\ttarget[position++] = value & 0xff\r\n\t\t\t\t\t} else {\r\n\t\t\t\t\t\ttarget[position++] = 0x1a\r\n\t\t\t\t\t\ttargetView.setUint32(position, value)\r\n\t\t\t\t\t\tposition += 4\r\n\t\t\t\t\t}\r\n\t\t\t\t} else if (value >> 0 === value) { // negative integer\r\n\t\t\t\t\tif (value >= -0x18) {\r\n\t\t\t\t\t\ttarget[position++] = 0x1f - value\r\n\t\t\t\t\t} else if (value >= -0x100) {\r\n\t\t\t\t\t\ttarget[position++] = 0x38\r\n\t\t\t\t\t\ttarget[position++] = ~value\r\n\t\t\t\t\t} else if (value >= -0x10000) {\r\n\t\t\t\t\t\ttarget[position++] = 0x39\r\n\t\t\t\t\t\ttargetView.setUint16(position, ~value)\r\n\t\t\t\t\t\tposition += 2\r\n\t\t\t\t\t} else {\r\n\t\t\t\t\t\ttarget[position++] = 0x3a\r\n\t\t\t\t\t\ttargetView.setUint32(position, ~value)\r\n\t\t\t\t\t\tposition += 4\r\n\t\t\t\t\t}\r\n\t\t\t\t} else {\r\n\t\t\t\t\tlet useFloat32\r\n\t\t\t\t\tif ((useFloat32 = this.useFloat32) > 0 && value < 0x100000000 && value >= -0x80000000) {\r\n\t\t\t\t\t\ttarget[position++] = 0xfa\r\n\t\t\t\t\t\ttargetView.setFloat32(position, value)\r\n\t\t\t\t\t\tlet xShifted\r\n\t\t\t\t\t\tif (useFloat32 < 4 ||\r\n\t\t\t\t\t\t\t// this checks for rounding of numbers that were encoded in 32-bit float to nearest significant decimal digit that could be preserved\r\n\t\t\t\t\t\t\t\t((xShifted = value * mult10[((target[position] & 0x7f) << 1) | (target[position + 1] >> 7)]) >> 0) === xShifted) {\r\n\t\t\t\t\t\t\tposition += 4\r\n\t\t\t\t\t\t\treturn\r\n\t\t\t\t\t\t} else\r\n\t\t\t\t\t\t\tposition-- // move back into position for writing a double\r\n\t\t\t\t\t}\r\n\t\t\t\t\ttarget[position++] = 0xfb\r\n\t\t\t\t\ttargetView.setFloat64(position, value)\r\n\t\t\t\t\tposition += 8\r\n\t\t\t\t}\r\n\t\t\t} else if (type === 'object') {\r\n\t\t\t\tif (!value)\r\n\t\t\t\t\ttarget[position++] = 0xf6\r\n\t\t\t\telse {\r\n\t\t\t\t\tif (referenceMap) {\r\n\t\t\t\t\t\tlet referee = referenceMap.get(value)\r\n\t\t\t\t\t\tif (referee) {\r\n\t\t\t\t\t\t\tif (!referee.id) {\r\n\t\t\t\t\t\t\t\tlet idsToInsert = referenceMap.idsToInsert || (referenceMap.idsToInsert = [])\r\n\t\t\t\t\t\t\t\treferee.id = idsToInsert.push(referee)\r\n\t\t\t\t\t\t\t}\r\n\t\t\t\t\t\t\ttarget[position++] = 0xd9\r\n\t\t\t\t\t\t\ttarget[position++] = 40010 >> 8\r\n\t\t\t\t\t\t\ttarget[position++] = 40010 & 0xff\r\n\t\t\t\t\t\t\ttarget[position++] = 0x1a // uint32\r\n\t\t\t\t\t\t\ttargetView.setUint32(position, referee.id)\r\n\t\t\t\t\t\t\tposition += 4\r\n\t\t\t\t\t\t\treturn\r\n\t\t\t\t\t\t} else \r\n\t\t\t\t\t\t\treferenceMap.set(value, { offset: position - start })\r\n\t\t\t\t\t}\r\n\t\t\t\t\tlet constructor = value.constructor\r\n\t\t\t\t\tif (constructor === Object) {\r\n\t\t\t\t\t\twriteObject(value, true)\r\n\t\t\t\t\t} else if (constructor === Array) {\r\n\t\t\t\t\t\tlength = value.length\r\n\t\t\t\t\t\tif (length < 0x18) {\r\n\t\t\t\t\t\t\ttarget[position++] = 0x80 | length\r\n\t\t\t\t\t\t} else {\r\n\t\t\t\t\t\t\twriteArrayHeader(length)\r\n\t\t\t\t\t\t}\r\n\t\t\t\t\t\tfor (let i = 0; i < length; i++) {\r\n\t\t\t\t\t\t\tencode(value[i])\r\n\t\t\t\t\t\t}\r\n\t\t\t\t\t} else if (constructor === Map) {\r\n\t\t\t\t\t\tif (this.mapsAsObjects ? this.useTag259ForMaps !== false : this.useTag259ForMaps) {\r\n\t\t\t\t\t\t\t// use Tag 259 (https://github.com/shanewholloway/js-cbor-codec/blob/master/docs/CBOR-259-spec--explicit-maps.md) for maps if the user wants it that way\r\n\t\t\t\t\t\t\ttarget[position++] = 0xd9\r\n\t\t\t\t\t\t\ttarget[position++] = 1\r\n\t\t\t\t\t\t\ttarget[position++] = 3\r\n\t\t\t\t\t\t}\r\n\t\t\t\t\t\tlength = value.size\r\n\t\t\t\t\t\tif (length < 0x18) {\r\n\t\t\t\t\t\t\ttarget[position++] = 0xa0 | length\r\n\t\t\t\t\t\t} else if (length < 0x100) {\r\n\t\t\t\t\t\t\ttarget[position++] = 0xb8\r\n\t\t\t\t\t\t\ttarget[position++] = length\r\n\t\t\t\t\t\t} else if (length < 0x10000) {\r\n\t\t\t\t\t\t\ttarget[position++] = 0xb9\r\n\t\t\t\t\t\t\ttarget[position++] = length >> 8\r\n\t\t\t\t\t\t\ttarget[position++] = length & 0xff\r\n\t\t\t\t\t\t} else {\r\n\t\t\t\t\t\t\ttarget[position++] = 0xba\r\n\t\t\t\t\t\t\ttargetView.setUint32(position, length)\r\n\t\t\t\t\t\t\tposition += 4\r\n\t\t\t\t\t\t}\r\n\t\t\t\t\t\tfor (let [ key, entryValue ] of value) {\r\n\t\t\t\t\t\t\tencode(key)\r\n\t\t\t\t\t\t\tencode(entryValue)\r\n\t\t\t\t\t\t}\r\n\t\t\t\t\t} else {\t\r\n\t\t\t\t\t\tfor (let i = 0, l = extensions.length; i < l; i++) {\r\n\t\t\t\t\t\t\tlet extensionClass = extensionClasses[i]\r\n\t\t\t\t\t\t\tif (value instanceof extensionClass) {\r\n\t\t\t\t\t\t\t\tlet extension = extensions[i]\r\n\t\t\t\t\t\t\t\tlet tag = extension.tag\r\n\t\t\t\t\t\t\t\tif (tag < 0x18) {\r\n\t\t\t\t\t\t\t\t\ttarget[position++] = 0xc0 | tag\r\n\t\t\t\t\t\t\t\t} else if (tag < 0x100) {\r\n\t\t\t\t\t\t\t\t\ttarget[position++] = 0xd8\r\n\t\t\t\t\t\t\t\t\ttarget[position++] = tag\r\n\t\t\t\t\t\t\t\t} else if (tag < 0x10000) {\r\n\t\t\t\t\t\t\t\t\ttarget[position++] = 0xd9\r\n\t\t\t\t\t\t\t\t\ttarget[position++] = tag >> 8\r\n\t\t\t\t\t\t\t\t\ttarget[position++] = tag & 0xff\r\n\t\t\t\t\t\t\t\t} else if (tag > -1) {\r\n\t\t\t\t\t\t\t\t\ttarget[position++] = 0xda\r\n\t\t\t\t\t\t\t\t\ttargetView.setUint32(position, tag)\r\n\t\t\t\t\t\t\t\t\tposition += 4\r\n\t\t\t\t\t\t\t\t} // else undefined, don't write tag\r\n\t\t\t\t\t\t\t\textension.encode.call(this, value, encode, makeRoom)\r\n\t\t\t\t\t\t\t\treturn\r\n\t\t\t\t\t\t\t}\r\n\t\t\t\t\t\t}\r\n\t\t\t\t\t\tif (value[Symbol.iterator]) {\r\n\t\t\t\t\t\t\ttarget[position++] = 0x9f // indefinite length array\r\n\t\t\t\t\t\t\tfor (let entry of value) {\r\n\t\t\t\t\t\t\t\tencode(entry)\r\n\t\t\t\t\t\t\t}\r\n\t\t\t\t\t\t\ttarget[position++] = 0xff // stop-code\r\n\t\t\t\t\t\t\treturn\r\n\t\t\t\t\t\t}\r\n\t\t\t\t\t\t// no extension found, write as object\r\n\t\t\t\t\t\twriteObject(value, !value.hasOwnProperty) // if it doesn't have hasOwnProperty, don't do hasOwnProperty checks\r\n\t\t\t\t\t}\r\n\t\t\t\t}\r\n\t\t\t} else if (type === 'boolean') {\r\n\t\t\t\ttarget[position++] = value ? 0xf5 : 0xf4\r\n\t\t\t} else if (type === 'bigint') {\r\n\t\t\t\tif (value < (BigInt(1)<= 0) {\r\n\t\t\t\t\t// use an unsigned int as long as it fits\r\n\t\t\t\t\ttarget[position++] = 0x1b\r\n\t\t\t\t\ttargetView.setBigUint64(position, value)\r\n\t\t\t\t} else if (value > -(BigInt(1)< {\r\n\t\t\t// this method is slightly slower, but generates \"preferred serialization\" (optimally small for smaller objects)\r\n\t\t\tlet keys = Object.keys(object)\r\n\t\t\tlet length = keys.length\r\n\t\t\tif (length < 0x18) {\r\n\t\t\t\ttarget[position++] = 0xa0 | length\r\n\t\t\t} else if (length < 0x100) {\r\n\t\t\t\ttarget[position++] = 0xb8\r\n\t\t\t\ttarget[position++] = length\r\n\t\t\t} else if (length < 0x10000) {\r\n\t\t\t\ttarget[position++] = 0xb9\r\n\t\t\t\ttarget[position++] = length >> 8\r\n\t\t\t\ttarget[position++] = length & 0xff\r\n\t\t\t} else {\r\n\t\t\t\ttarget[position++] = 0xba\r\n\t\t\t\ttargetView.setUint32(position, length)\r\n\t\t\t\tposition += 4\r\n\t\t\t}\r\n\t\t\tlet key\r\n\t\t\tfor (let i = 0; i < length; i++) {\r\n\t\t\t\tencode(key = keys[i])\r\n\t\t\t\tencode(object[key])\r\n\t\t\t}\r\n\t\t} :\r\n\t\t(object, safePrototype) => {\r\n\t\t\ttarget[position++] = 0xb9 // always use map 16, so we can preallocate and set the length afterwards\r\n\t\t\tlet objectOffset = position - start\r\n\t\t\tposition += 2\r\n\t\t\tlet size = 0\r\n\t\t\tfor (let key in object) {\r\n\t\t\t\tif (safePrototype || object.hasOwnProperty(key)) {\r\n\t\t\t\t\tencode(key)\r\n\t\t\t\t\tencode(object[key])\r\n\t\t\t\t\tsize++\r\n\t\t\t\t}\r\n\t\t\t}\r\n\t\t\ttarget[objectOffset++ + start] = size >> 8\r\n\t\t\ttarget[objectOffset + start] = size & 0xff\r\n\t\t} :\r\n\r\n\t/*\tsharedStructures ? // For highly stable structures, using for-in can a little bit faster\r\n\t\t(object, safePrototype) => {\r\n\t\t\tlet nextTransition, transition = structures.transitions || (structures.transitions = Object.create(null))\r\n\t\t\tlet objectOffset = position++ - start\r\n\t\t\tlet wroteKeys\r\n\t\t\tfor (let key in object) {\r\n\t\t\t\tif (safePrototype || object.hasOwnProperty(key)) {\r\n\t\t\t\t\tnextTransition = transition[key]\r\n\t\t\t\t\tif (!nextTransition) {\r\n\t\t\t\t\t\tnextTransition = transition[key] = Object.create(null)\r\n\t\t\t\t\t\tnextTransition.__keys__ = (transition.__keys__ || []).concat([key])\r\n\t\t\t\t\t\t/*let keys = Object.keys(object)\r\n\t\t\t\t\t\tif \r\n\t\t\t\t\t\tlet size = 0\r\n\t\t\t\t\t\tlet startBranch = transition.__keys__ ? transition.__keys__.length : 0\r\n\t\t\t\t\t\tfor (let i = 0, l = keys.length; i++) {\r\n\t\t\t\t\t\t\tlet key = keys[i]\r\n\t\t\t\t\t\t\tsize += key.length << 2\r\n\t\t\t\t\t\t\tif (i >= startBranch) {\r\n\t\t\t\t\t\t\t\tnextTransition = nextTransition[key] = Object.create(null)\r\n\t\t\t\t\t\t\t\tnextTransition.__keys__ = keys.slice(0, i + 1)\r\n\t\t\t\t\t\t\t}\r\n\t\t\t\t\t\t}\r\n\t\t\t\t\t\tmakeRoom(position + size)\r\n\t\t\t\t\t\tnextTransition = transition[key]\r\n\t\t\t\t\t\ttarget.copy(target, )\r\n\t\t\t\t\t\tobjectOffset\r\n\t\t\t\t\t}\r\n\t\t\t\t\ttransition = nextTransition\r\n\t\t\t\t\tencode(object[key])\r\n\t\t\t\t}\r\n\t\t\t}\r\n\t\t\tlet id = transition.id\r\n\t\t\tif (!id) {\r\n\t\t\t\tid = transition.id = structures.push(transition.__keys__) + 63\r\n\t\t\t\tif (sharedStructures.onUpdate)\r\n\t\t\t\t\tsharedStructures.onUpdate(id, transition.__keys__)\r\n\t\t\t}\r\n\t\t\ttarget[objectOffset + start] = id\r\n\t\t}*/\r\n\t\t(object) => {\r\n\t\t\tlet keys = Object.keys(object)\r\n\t\t\tlet nextTransition, transition = structures.transitions || (structures.transitions = Object.create(null))\r\n\t\t\tlet newTransitions = 0\r\n\t\t\tlet length = keys.length\r\n\t\t\tfor (let i =0; i < length; i++) {\r\n\t\t\t\tlet key = keys[i]\r\n\t\t\t\tnextTransition = transition[key]\r\n\t\t\t\tif (!nextTransition) {\r\n\t\t\t\t\tnextTransition = transition[key] = Object.create(null)\r\n\t\t\t\t\tnewTransitions++\r\n\t\t\t\t}\r\n\t\t\t\ttransition = nextTransition\r\n\t\t\t}\r\n\t\t\tlet recordId = transition[RECORD_SYMBOL]\r\n\t\t\tif (recordId !== undefined) {\r\n\t\t\t\ttarget[position++] = 0xd9 // tag two byte\r\n\t\t\t\ttarget[position++] = RECORD_STARTING_ID_PREFIX\r\n\t\t\t\ttarget[position++] = recordId\r\n\t\t\t} else {\r\n\t\t\t\trecordId = structures.nextId++\r\n\t\t\t\tif (!recordId) {\r\n\t\t\t\t\trecordId = 0\r\n\t\t\t\t\tstructures.nextId = 1\r\n\t\t\t\t}\r\n\t\t\t\tif (recordId >= MAX_STRUCTURES) {// cycle back around\r\n\t\t\t\t\tstructures.nextId = (recordId = maxSharedStructures) + 1\r\n\t\t\t\t}\r\n\t\t\t\ttransition[RECORD_SYMBOL] = recordId\r\n\t\t\t\tstructures[recordId] = keys\r\n\t\t\t\tif (sharedStructures && sharedStructures.length <= maxSharedStructures) {\r\n\t\t\t\t\ttarget[position++] = 0xd9 // tag two byte\r\n\t\t\t\t\ttarget[position++] = RECORD_STARTING_ID_PREFIX\r\n\t\t\t\t\ttarget[position++] = recordId // tag number\r\n\t\t\t\t\thasSharedUpdate = true\r\n\t\t\t\t} else {\r\n\t\t\t\t\ttarget[position++] = 0xd8\r\n\t\t\t\t\ttarget[position++] = RECORD_STARTING_ID_PREFIX\r\n\t\t\t\t\tif (newTransitions)\r\n\t\t\t\t\t\ttransitionsCount += serializationsSinceTransitionRebuild * newTransitions\r\n\t\t\t\t\t// record the removal of the id, we can maintain our shared structure\r\n\t\t\t\t\tif (recordIdsToRemove.length >= MAX_STRUCTURES - maxSharedStructures)\r\n\t\t\t\t\t\trecordIdsToRemove.shift()[RECORD_SYMBOL] = undefined // we are cycling back through, and have to remove old ones\r\n\t\t\t\t\trecordIdsToRemove.push(transition)\r\n\t\t\t\t\tif (length < 0x16)\r\n\t\t\t\t\t\ttarget[position++] = 0x82 + length // array header, length of values + 2\r\n\t\t\t\t\telse\r\n\t\t\t\t\t\twriteArrayHeader(length + 2)\r\n\t\t\t\t\tencode(keys)\r\n\t\t\t\t\ttarget[position++] = 0x19 // uint16\r\n\t\t\t\t\ttarget[position++] = RECORD_STARTING_ID_PREFIX\r\n\t\t\t\t\ttarget[position++] = recordId\r\n\t\t\t\t\t// now write the values\r\n\t\t\t\t\tfor (let i =0; i < length; i++)\r\n\t\t\t\t\t\tencode(object[keys[i]])\r\n\t\t\t\t\treturn\r\n\t\t\t\t}\r\n\t\t\t}\r\n\t\t\tif (length < 0x18) { // write the array header\r\n\t\t\t\ttarget[position++] = 0x80 | length\r\n\t\t\t} else {\r\n\t\t\t\twriteArrayHeader(length)\r\n\t\t\t}\r\n\t\t\tfor (let i =0; i < length; i++)\r\n\t\t\t\tencode(object[keys[i]])\r\n\t\t}\r\n\t\tconst makeRoom = (end) => {\r\n\t\t\tlet newSize\r\n\t\t\tif (end > 0x1000000) {\r\n\t\t\t\t// special handling for really large buffers\r\n\t\t\t\tif ((end - start) > MAX_BUFFER_SIZE)\r\n\t\t\t\t\tthrow new Error('Encoded buffer would be larger than maximum buffer size')\r\n\t\t\t\tnewSize = Math.min(MAX_BUFFER_SIZE,\r\n\t\t\t\t\tMath.round(Math.max((end - start) * (end > 0x4000000 ? 1.25 : 2), 0x1000000) / 0x1000) * 0x1000)\r\n\t\t\t} else // faster handling for smaller buffers\r\n\t\t\t\tnewSize = ((Math.max((end - start) << 2, target.length - 1) >> 12) + 1) << 12\r\n\t\t\tlet newBuffer = new ByteArrayAllocate(newSize)\r\n\t\t\ttargetView = new DataView(newBuffer.buffer, 0, newSize)\r\n\t\t\tif (target.copy)\r\n\t\t\t\ttarget.copy(newBuffer, 0, start, end)\r\n\t\t\telse\r\n\t\t\t\tnewBuffer.set(target.slice(start, end))\r\n\t\t\tposition -= start\r\n\t\t\tstart = 0\r\n\t\t\tsafeEnd = newBuffer.length - 10\r\n\t\t\treturn target = newBuffer\r\n\t\t}\r\n\t}\r\n\tuseBuffer(buffer) {\r\n\t\t// this means we are finished using our own buffer and we can write over it safely\r\n\t\ttarget = buffer\r\n\t\ttargetView = new DataView(target.buffer, target.byteOffset, target.byteLength)\r\n\t\tposition = 0\r\n\t}\r\n}\r\n\r\nfunction copyBinary(source, target, targetOffset, offset, endOffset) {\r\n\twhile (offset < endOffset) {\r\n\t\ttarget[targetOffset++] = source[offset++]\r\n\t}\r\n}\r\n\r\nfunction writeArrayHeader(length) {\r\n\tif (length < 0x100) {\r\n\t\ttarget[position++] = 0x98\r\n\t\ttarget[position++] = length\r\n\t} else if (length < 0x10000) {\r\n\t\ttarget[position++] = 0x99\r\n\t\ttarget[position++] = length >> 8\r\n\t\ttarget[position++] = length & 0xff\r\n\t} else {\r\n\t\ttarget[position++] = 0x9a\r\n\t\ttargetView.setUint32(position, length)\r\n\t\tposition += 4\r\n\t}\r\n}\r\n\r\nextensionClasses = [ Date, Set, Error, RegExp, ArrayBuffer, ByteArray,\r\n\tUint8Array, Uint8ClampedArray, Uint16Array, Uint32Array, BigUint64Array, Int8Array, Int16Array, Int32Array, BigInt64Array,\r\n\tFloat32Array, Float64Array]\r\n\r\n//Object.getPrototypeOf(Uint8Array.prototype).constructor /*TypedArray*/\r\nextensions = [{\r\n\ttag: 1,\r\n\tencode(date, encode) {\r\n\t\tlet seconds = date.getTime() / 1000\r\n\t\tif ((this.useTimestamp32 || date.getMilliseconds() === 0) && seconds >= 0 && seconds < 0x100000000) {\r\n\t\t\t// Timestamp 32\r\n\t\t\ttarget[position++] = 0x1a\r\n\t\t\ttargetView.setUint32(position, seconds)\r\n\t\t\tposition += 4\r\n\t\t} else {\r\n\t\t\t// Timestamp float64\r\n\t\t\ttarget[position++] = 0xfb\r\n\t\t\ttargetView.setFloat64(position, seconds)\r\n\t\t\tposition += 8\r\n\t\t}\r\n\t}\r\n}, {\r\n\ttag: 258, // https://github.com/input-output-hk/cbor-sets-spec/blob/master/CBOR_SETS.md\r\n\tencode(set, encode) {\r\n\t\tlet array = Array.from(set)\r\n\t\tencode(array)\r\n\t}\r\n}, {\r\n\ttag: 27, // http://cbor.schmorp.de/generic-object\r\n\tencode(error, encode) {\r\n\t\tencode([ error.name, error.message ])\r\n\t}\r\n}, {\r\n\ttag: 27, // http://cbor.schmorp.de/generic-object\r\n\tencode(regex, encode) {\r\n\t\tencode([ 'RegExp', regex.source, regex.flags ])\r\n\t}\r\n}, {\r\n\tencode(arrayBuffer, encode, makeRoom) {\r\n\t\twriteBuffer(arrayBuffer, makeRoom)\r\n\t}\r\n}, {\r\n\tencode(arrayBuffer, encode, makeRoom) {\r\n\t\twriteBuffer(arrayBuffer, makeRoom)\r\n\t}\r\n}, typedArrayEncoder(64),\r\n\ttypedArrayEncoder(68),\r\n\ttypedArrayEncoder(69),\r\n\ttypedArrayEncoder(70),\r\n\ttypedArrayEncoder(71),\r\n\ttypedArrayEncoder(72),\r\n\ttypedArrayEncoder(77),\r\n\ttypedArrayEncoder(78),\r\n\ttypedArrayEncoder(79),\r\n\ttypedArrayEncoder(81),\r\n\ttypedArrayEncoder(82)]\r\n\r\nfunction typedArrayEncoder(tag) {\r\n\treturn {\r\n\t\ttag: tag,\r\n\t\tencode: function writeExtBuffer(typedArray, encode) {\r\n\t\t\tlet length = typedArray.byteLength\r\n\t\t\tlet offset = typedArray.byteOffset || 0\r\n\t\t\tlet buffer = typedArray.buffer || typedArray\r\n\t\t\tencode(hasNodeBuffer ? Buffer.from(buffer, offset, length) :\r\n\t\t\t\tnew Uint8Array(buffer, offset, length))\r\n\t\t}\r\n\t}\r\n}\r\nfunction writeBuffer(buffer, makeRoom) {\r\n\tlet length = buffer.byteLength\r\n\tif (length < 0x18) {\r\n\t\ttarget[position++] = 0x40 + length\r\n\t} else if (length < 0x100) {\r\n\t\ttarget[position++] = 0x58\r\n\t\ttarget[position++] = length\r\n\t} else if (length < 0x10000) {\r\n\t\ttarget[position++] = 0x59\r\n\t\ttarget[position++] = length >> 8\r\n\t\ttarget[position++] = length & 0xff\r\n\t} else {\r\n\t\ttarget[position++] = 0x5a\r\n\t\ttargetView.setUint32(position, length)\r\n\t\tposition += 4\r\n\t}\r\n\tif (position + length >= target.length) {\r\n\t\tmakeRoom(position + length)\r\n\t}\r\n\ttarget.set(buffer, position)\r\n\tposition += length\r\n}\r\n\r\nfunction insertIds(serialized, idsToInsert) {\r\n\t// insert the ids that need to be referenced for structured clones\r\n\tlet nextId\r\n\tlet distanceToMove = idsToInsert.length * 8\r\n\tlet lastEnd = serialized.length - distanceToMove\r\n\tidsToInsert.sort((a, b) => a.offset > b.offset ? 1 : -1)\r\n\twhile (nextId = idsToInsert.pop()) {\r\n\t\tlet offset = nextId.offset\r\n\t\tlet id = nextId.id\r\n\t\tserialized.copyWithin(offset + distanceToMove, offset, lastEnd)\r\n\t\tdistanceToMove -= 8\r\n\t\tlet position = offset + distanceToMove\r\n\t\tserialized[position++] = 0xd9\r\n\t\tserialized[position++] = 40009 >> 8\r\n\t\tserialized[position++] = 40009 & 0xff\r\n\t\tserialized[position++] = 0x1a // uint32\r\n\t\tserialized[position++] = id >> 24\r\n\t\tserialized[position++] = (id >> 16) & 0xff\r\n\t\tserialized[position++] = (id >> 8) & 0xff\r\n\t\tserialized[position++] = id & 0xff\r\n\t\tlastEnd = offset\r\n\t}\r\n\treturn serialized\r\n}\r\n\r\nexport function addExtension(extension) {\r\n\tif (extension.Class) {\r\n\t\tif (!extension.encode)\r\n\t\t\tthrow new Error('Extension has no encode function')\r\n\t\textensionClasses.unshift(extension.Class)\r\n\t\textensions.unshift(extension)\r\n\t}\r\n\tdecodeAddExtension(extension)\r\n}\r\nlet defaultEncoder = new Encoder({ useRecords: false })\r\nexport const encode = defaultEncoder.encode\r\nexport { FLOAT32_OPTIONS } from './decode.js'\r\nimport { FLOAT32_OPTIONS } from './decode.js'\r\nexport const { NEVER, ALWAYS, DECIMAL_ROUND, DECIMAL_FIT } = FLOAT32_OPTIONS\r\n","/**@license\n *\n * No Dependency fast and small LZJB Compression for Browser and Node\n *\n * Copyright (c) 2021 Jakub T. Jankiewicz https://jcubic.pl/me\n * Released under BSD-3-Clause License\n *\n * build: Wed, 27 Oct 2021 10:43:10 GMT\n */\n\n'use strict';\n\nObject.defineProperty(exports, '__esModule', { value: true });\n\n/*\n * source https://github.com/copy/jslzjb-k\n * Based on jslzjb: https://code.google.com/p/jslzjb/\n * Heavily modified for speed\n */\n// Constants was used for compress/decompress function.\nconst\n/** @const */ NBBY = 8,\n /** @const */ MATCH_BITS = 6,\n /** @const */ MATCH_MIN = 3,\n /** @const */ MATCH_MAX = ((1 << MATCH_BITS) + (MATCH_MIN - 1)),\n /** @const */ OFFSET_MASK = ((1 << (16 - MATCH_BITS)) - 1),\n /** @const */ LEMPEL_SIZE = 256;\n\n/**\n * Because of weak of javascript's natural, many compression algorithm\n * become useless in javascript implementation. The main problem is\n * performance, even the simple Huffman, LZ77/78 algorithm will take many\n * many time to operate. We use LZJB algorithm to do that, it surprisingly\n * fulfills our requirement to compress string fastly and efficiently.\n *\n * Our implementation is based on\n * http://src.opensolaris.org/source/raw/onnv/onnv-gate/\n * usr/src/uts/common/os/compress.c\n * It is licensed under CDDL.\n *\n * Compress byte array using fast and efficient algorithm.\n *\n * @param {Uint8Array} sstart The buffer to compress\n * @param {Uint8Array} dstart The buffer to write into\n * @return {number} compressed length (number of bytes written to the\n * output buffer). May be bigger than the size of the\n * output buffer, in which case some bytes are lost\n */\nfunction compress(sstart, dstart) {\n var slen = 0,\n src = 0,\n dst = 0,\n cpy = 0,\n copymap = 0,\n copymask = 1 << (NBBY - 1),\n mlen = 0,\n offset = 0,\n hp = 0,\n lempel = new Int32Array(LEMPEL_SIZE),\n i = 0;\n\n // Initialize lempel array.\n for(i = 0; i < LEMPEL_SIZE; i++) {\n lempel[i] = -858993460;\n }\n\n slen = sstart.length;\n\n while (src < slen) {\n if ((copymask <<= 1) == (1 << NBBY)) {\n copymask = 1;\n copymap = dst;\n dstart[dst++] = 0;\n }\n\n if (src > slen - MATCH_MAX) {\n dstart[dst++] = sstart[src++];\n continue;\n }\n\n hp = ((sstart[src] + 13) ^\n (sstart[src + 1] - 13) ^\n sstart[src + 2]) &\n (LEMPEL_SIZE - 1);\n\n offset = (src - lempel[hp]) & OFFSET_MASK;\n lempel[hp] = src;\n cpy = src - offset;\n\n if (cpy >= 0 && cpy != src &&\n sstart[src] == sstart[cpy] &&\n sstart[src + 1] == sstart[cpy + 1] &&\n sstart[src + 2] == sstart[cpy + 2]) {\n dstart[copymap] |= copymask;\n for (mlen = MATCH_MIN; mlen < MATCH_MAX; mlen++)\n if (sstart[src + mlen] != sstart[cpy + mlen])\n break;\n dstart[dst++] = ((mlen - MATCH_MIN) << (NBBY - MATCH_BITS)) |\n (offset >> NBBY);\n dstart[dst++] = offset;\n src += mlen;\n } else {\n dstart[dst++] = sstart[src++];\n }\n }\n\n console.assert(sstart.length >= src);\n\n return dst;\n}\n\n/**\n * Our implementation is based on\n * http://src.opensolaris.org/source/raw/onnv/onnv-gate/\n * usr/src/uts/common/os/compress.c\n * It is licensed under CDDL.\n *\n * Decompress byte array using fast and efficient algorithm.\n *\n * @param {Uint8Array} sstart The buffer to decompress\n * @param {number} slen compressed length\n * @param {Uint8Array} dstart The buffer to write into\n * @return {number} decompressed length\n */\nfunction decompress(sstart, slen, dstart) {\n slen = slen | 0;\n\n var src = 0,\n dst = 0,\n cpy = 0,\n copymap = 0,\n copymask = 1 << (NBBY - 1 | 0),\n mlen = 0,\n offset = 0;\n\n //var avg_mlen = [];\n\n while (src < slen) {\n if ((copymask <<= 1) === (1 << NBBY)) {\n copymask = 1;\n copymap = sstart[src];\n src = src + 1 | 0;\n }\n\n if (copymap & copymask) {\n mlen = (sstart[src] >> (NBBY - MATCH_BITS | 0)) + MATCH_MIN | 0;\n offset = ((sstart[src] << NBBY) | sstart[src + 1 | 0]) & OFFSET_MASK;\n src = src + 2 | 0;\n\n cpy = dst - offset | 0;\n //if (cpy >= 0)\n {\n //console.log(mlen);\n //avg_mlen.push(mlen);\n\n //dstart.set(dstart.subarray(cpy, cpy + mlen | 0), dst);\n //dst = dst + mlen | 0;\n //cpy = cpy + mlen | 0;\n\n //mlen = mlen - 1 | 0;\n while (mlen > 4) {\n dstart[dst] = dstart[cpy];\n dst = dst + 1 | 0;\n cpy = cpy + 1 | 0;\n\n dstart[dst] = dstart[cpy];\n dst = dst + 1 | 0;\n cpy = cpy + 1 | 0;\n\n dstart[dst] = dstart[cpy];\n dst = dst + 1 | 0;\n cpy = cpy + 1 | 0;\n\n dstart[dst] = dstart[cpy];\n dst = dst + 1 | 0;\n cpy = cpy + 1 | 0;\n\n mlen = mlen - 4 | 0;\n }\n\n while (mlen > 0) {\n dstart[dst] = dstart[cpy];\n dst = dst + 1 | 0;\n cpy = cpy + 1 | 0;\n mlen = mlen - 1 | 0;\n }\n }\n //else\n //{\n // /*\n // * offset before start of destination buffer\n // * indicates corrupt source data\n // */\n // console.warn(\"possibly corrupt data\");\n // return dstart;\n //}\n } else {\n dstart[dst] = sstart[src];\n dst = dst + 1 | 0;\n src = src + 1 | 0;\n }\n }\n\n //console.log(avg_mlen.reduce(function(a, x) { return a + x; }, 0) / avg_mlen.length);\n\n //console.assert(dstart.length >= dst);\n //console.assert(sstart.length >= src);\n\n return dst;\n}\n\n\nfunction encode_magic() {\n const encoder = new TextEncoder('utf-8');\n return encoder.encode(MAGIC_STRING);\n}\n\nconst MAGIC_STRING = '@lzjb';\nconst MAGIC = encode_magic();\n\nfunction merge_uint8_array(...args) {\n if (args.length > 1) {\n const len = args.reduce((acc, arr) => acc + arr.length, 0);\n const result = new Uint8Array(len);\n let offset = 0;\n args.forEach(item => {\n result.set(item, offset);\n offset += item.length;\n });\n return result;\n } else if (args.length) {\n return args[0];\n }\n}\n\nfunction number_to_bytes(number) {\n const len = Math.ceil(Math.log2(number) / 8);\n const byteArray = new Uint8Array(len);\n\n for (let index = 0; index < byteArray.length; index ++ ) {\n const byte = number & 0xff;\n byteArray[index] = byte;\n number = (number - byte) / 256;\n }\n\n return byteArray;\n}\n\nfunction bytes_to_number(byteArray) {\n let result = 0;\n for (let i = byteArray.length - 1; i >= 0; i--) {\n result = (result * 256) + byteArray[i];\n }\n\n return result;\n}\n\nfunction pack(input, { magic = true } = {}) {\n const out = new Uint8Array(Math.max(input.length * 1.5 | 0, 16 * 1024));\n const len = compress(input, out);\n const len_array = number_to_bytes(input.length);\n const payload = [\n Uint8Array.of(len_array.length),\n len_array,\n out.slice(0, len)\n ];\n if (magic) {\n payload.unshift(MAGIC);\n }\n return merge_uint8_array(...payload);\n}\n\nfunction unpack(input, { magic = true } = {}) {\n if (magic) {\n const decoder = new TextDecoder('utf-8');\n const magic_prefix = decoder.decode(input.slice(0, MAGIC.length));\n if (magic_prefix !== MAGIC_STRING) {\n throw new Error('Invalid magic value');\n }\n }\n const magic_length = magic ? MAGIC.length : 0;\n const size = input[magic_length];\n const start = magic_length + 1;\n const end = magic_length + size + 1;\n const len = bytes_to_number(input.slice(start, end));\n input = input.slice(end);\n const out = new Uint8Array(len);\n decompress(input, input.length, out);\n return out;\n}\n\nexports.pack = pack;\nexports.unpack = unpack;\n","export default function(e,n){return n=n||{},new Promise(function(t,r){var s=new XMLHttpRequest,o=[],u=[],i={},a=function(){return{ok:2==(s.status/100|0),statusText:s.statusText,status:s.status,url:s.responseURL,text:function(){return Promise.resolve(s.responseText)},json:function(){return Promise.resolve(s.responseText).then(JSON.parse)},blob:function(){return Promise.resolve(new Blob([s.response]))},clone:a,headers:{keys:function(){return o},entries:function(){return u},get:function(e){return i[e.toLowerCase()]},has:function(e){return e.toLowerCase()in i}}}};for(var l in s.open(n.method||\"get\",e,!0),s.onload=function(){s.getAllResponseHeaders().replace(/^(.*?):[^\\S\\n]*([\\s\\S]*?)$/gm,function(e,n,t){o.push(n=n.toLowerCase()),u.push([n,t]),i[n]=i[n]?i[n]+\",\"+t:t}),t(a())},s.onerror=r,s.withCredentials=\"include\"==n.credentials,n.headers)s.setRequestHeader(l,n.headers[l]);s.send(n.body||null)})}\n//# sourceMappingURL=unfetch.module.js.map\n","/**@license\n * __ __ __\n * / / \\ \\ _ _ ___ ___ \\ \\\n * | | \\ \\ | | | || . \\/ __> | |\n * | | > \\ | |_ | || _/\\__ \\ | |\n * | | / ^ \\ |___||_||_| <___/ | |\n * \\_\\ /_/ \\_\\ /_/\n *\n * \n *\n * LIPS is Pretty Simple - Scheme based Powerful LISP in JavaScript\n *\n * Copyright (c) 2018-2021 Jakub T. Jankiewicz \n * Released under the MIT license\n *\n * includes:\n *\n * ucs2decode function from Punycode v 2.1.1 by Mathias Bynens MIT License\n *\n * Author: Diego Perini (diego.perini at gmail.com)\n * Summary: cross-browser wrapper for DOMContentLoaded\n * Updated: 20101020\n * License: MIT\n * Version: 1.2\n *\n * contentloaded.js\n *\n * URL:\n * http://javascript.nwbox.com/ContentLoaded/\n * http://javascript.nwbox.com/ContentLoaded/MIT-LICENSE\n *\n * The rationalize algorithm is by Per M.A. Bothner, Alan Bawden and Marc Feeley.\n * source: Kawa, C-Gambit\n *\n * Build time: {{DATE}}\n */\n/*\n * TODO: consider using exec in env.eval or use different maybe_async code\n */\n/* global jQuery, BigInt, Map, Set, Symbol, importScripts, Uint8Array */\n\"use strict\";\n\nconst root = typeof global !== 'undefined' ? global : self;\n\nimport { addExtension, Encoder } from 'cbor-x';\nimport { pack, unpack } from 'lzjb-pack';\nimport unfetch from 'unfetch';\n\nif (!root.fetch) {\n root.fetch = unfetch;\n}\n\nlet fs, path, nodeRequire;\n\nconst BN = root.BN;\n\n/* eslint-disable */\n/* istanbul ignore next */\nfunction contentLoaded(win, fn) {\n var done = false, top = true,\n\n doc = win.document,\n root = doc.documentElement,\n modern = doc.addEventListener,\n\n add = modern ? 'addEventListener' : 'attachEvent',\n rem = modern ? 'removeEventListener' : 'detachEvent',\n pre = modern ? '' : 'on',\n\n init = function(e) {\n if (e.type == 'readystatechange' && doc.readyState != 'complete') return;\n (e.type == 'load' ? win : doc)[rem](pre + e.type, init, false);\n if (!done && (done = true)) fn.call(win, e.type || e);\n },\n\n poll = function() {\n try { root.doScroll('left'); } catch(e) { setTimeout(poll, 50); return; }\n init('poll');\n };\n\n if (doc.readyState == 'complete') fn.call(win, 'lazy');\n else {\n if (!modern && root.doScroll) {\n try { top = !win.frameElement; } catch(e) { }\n if (top) poll();\n }\n doc[add](pre + 'DOMContentLoaded', init, false);\n doc[add](pre + 'readystatechange', init, false);\n win[add](pre + 'load', init, false);\n }\n}\n// -------------------------------------------------------------------------\n/* eslint-disable */\n/* istanbul ignore next */\nfunction log(x, regex = null) {\n var literal = arguments[1] === true;\n function msg(x) {\n if (!is_debug()) {\n return;\n }\n var value = global_env.get('repr')(x);\n if (regex === null || regex instanceof RegExp && regex.test(value)) {\n console.log(global_env.get('type')(x) + \": \" + value);\n }\n if (literal) {\n console.log(x);\n }\n }\n if (is_promise(x)) {\n x.then(msg);\n } else {\n msg(x);\n }\n return x;\n}\n// ----------------------------------------------------------------------\n/* istanbul ignore next */\nfunction is_debug() {\n return user_env && user_env.get('DEBUG', { throwError: false });\n}\n/* eslint-enable */\n/* eslint-disable max-len */\n// functions generate regexes to match number rational, integer, complex, complex+ratioanl\nfunction num_mnemicic_re(mnemonic) {\n return mnemonic ? `(?:#${mnemonic}(?:#[ie])?|#[ie]#${mnemonic})` : '(?:#[ie])?';\n}\nfunction gen_rational_re(mnemonic, range) {\n return `${num_mnemicic_re(mnemonic)}[+-]?${range}+/${range}+`;\n}\n// TODO: float complex\nfunction gen_complex_re(mnemonic, range) {\n // [+-]i have (?=..) so it don't match +i from +inf.0\n return `${num_mnemicic_re(mnemonic)}(?:[+-]?(?:${range}+/${range}+|nan.0|inf.0|${range}+))?(?:[+-]i|[+-]?(?:${range}+/${range}+|${range}+|nan.0|inf.0)i)(?=[()[\\\\]\\\\s]|$)`;\n}\nfunction gen_integer_re(mnemonic, range) {\n return `${num_mnemicic_re(mnemonic)}[+-]?${range}+`;\n}\nvar re_re = /^#\\/((?:\\\\\\/|[^/]|\\[[^\\]]*\\/[^\\]]*\\])+)\\/([gimyus]*)$/;\nvar float_stre = '(?:[-+]?(?:[0-9]+(?:[eE][-+]?[0-9]+)|(?:\\\\.[0-9]+|[0-9]+\\\\.[0-9]+)(?:[eE][-+]?[0-9]+)?)|[0-9]+\\\\.)';\n// TODO: extend to ([+-]1/2|float)([+-]1/2|float)\nvar complex_float_stre = `(?:#[ie])?(?:[+-]?(?:[0-9]+/[0-9]+|nan.0|inf.0|${float_stre}|[+-]?[0-9]+))?(?:${float_stre}|[+-](?:[0-9]+/[0-9]+|[0-9]+|nan.0|inf.0))i`;\nvar float_re = new RegExp(`^(#[ie])?${float_stre}$`, 'i');\nfunction make_complex_match_re(mnemonic, range) {\n // complex need special treatment of 10e+1i when it's hex or decimal\n var neg = mnemonic === 'x' ? `(?!\\\\+|${range})` : `(?!\\\\.|${range})`;\n var fl = '';\n if (mnemonic === '') {\n fl = '(?:[-+]?(?:[0-9]+(?:[eE][-+]?[0-9]+)|(?:\\\\.[0-9]+|[0-9]+\\\\.[0-9]+(?![0-9]))(?:[eE][-+]?[0-9]+)?))';\n }\n return new RegExp(`^((?:(?:${fl}|[-+]?inf.0|[-+]?nan.0|[+-]?${range}+/${range}+(?!${range})|[+-]?${range}+)${neg})?)(${fl}|[-+]?inf.0|[-+]?nan.0|[+-]?${range}+/${range}+|[+-]?${range}+|[+-])i$`, 'i');\n}\nvar complex_list_re = (function() {\n var result = {};\n [\n [10, '', '[0-9]'],\n [16, 'x', '[0-9a-fA-F]'],\n [8, 'o', '[0-7]'],\n [2, 'b', '[01]']\n ].forEach(([radix, mnemonic, range]) => {\n result[radix] = make_complex_match_re(mnemonic, range);\n });\n return result;\n})();\nconst characters = {\n 'alarm': '\\x07',\n 'backspace': '\\x08',\n 'delete': '\\x7F',\n 'escape': '\\x1B',\n 'newline': '\\n',\n 'null': '\\x00',\n 'return': '\\r',\n 'space': ' ',\n 'tab': '\\t',\n // new symbols from ASCII table in SRFI-175\n 'dle': '\\x10',\n 'soh': '\\x01',\n 'dc1': '\\x11',\n 'stx': '\\x02',\n 'dc2': '\\x12',\n 'etx': '\\x03',\n 'dc3': '\\x13',\n 'eot': '\\x04',\n 'dc4': '\\x14',\n 'enq': '\\x05',\n 'nak': '\\x15',\n 'ack': '\\x06',\n 'syn': '\\x16',\n 'bel': '\\x07',\n 'etb': '\\x17',\n 'bs': '\\x08',\n 'can': '\\x18',\n 'ht': '\\x09',\n 'em': '\\x19',\n 'lf': '\\x0a',\n 'sub': '\\x1a',\n 'vt': '\\x0b',\n 'esc': '\\x1b',\n 'ff': '\\x0c',\n 'fs': '\\x1c',\n 'cr': '\\x0d',\n 'gs': '\\x1d',\n 'so': '\\x0e',\n 'rs': '\\x1e',\n 'si': '\\x0f',\n 'us': '\\x1f',\n 'del': '\\x7f'\n};\n// -------------------------------------------------------------------------\n// :: ref: https://github.com/bestiejs/punycode.js/blob/master/punycode.js\n// -------------------------------------------------------------------------\nfunction ucs2decode(string) {\n const output = [];\n let counter = 0;\n const length = string.length;\n while (counter < length) {\n const value = string.charCodeAt(counter++);\n if (value >= 0xD800 && value <= 0xDBFF && counter < length) {\n // It's a high surrogate, and there is a next character.\n const extra = string.charCodeAt(counter++);\n if ((extra & 0xFC00) === 0xDC00) { // Low surrogate.\n output.push(((value & 0x3FF) << 10) + (extra & 0x3FF) + 0x10000);\n } else {\n // It's an unmatched surrogate; only append this code unit, in case the\n // next code unit is the high surrogate of a surrogate pair.\n output.push(value);\n counter--;\n }\n } else {\n output.push(value);\n }\n }\n return output;\n}\n// -------------------------------------------------------------------------\nconst character_symbols = Object.keys(characters).join('|');\nconst char_sre_re = `#\\\\\\\\(?:x[0-9a-f]+|${character_symbols}|[\\\\s\\\\S])`;\nconst char_re = new RegExp(`^${char_sre_re}$`, 'i');\n// complex with (int) (float) (rational)\nfunction make_num_stre(fn) {\n const ranges = [\n ['o', '[0-7]'],\n ['x', '[0-9a-fA-F]'],\n ['b', '[01]'],\n ['d', '[0-9]'],\n ['', '[0-9]']\n ];\n // float exception that don't accept mnemonics\n let result = ranges.map(([m, range]) => fn(m, range)).join('|');\n if (fn === gen_complex_re) {\n result = complex_float_stre + '|' + result;\n }\n return result;\n}\nfunction make_type_re(fn) {\n return new RegExp('^(?:' + make_num_stre(fn) + ')$', 'i');\n}\nconst complex_re = make_type_re(gen_complex_re);\nconst rational_re = make_type_re(gen_rational_re);\nconst int_re = make_type_re(gen_integer_re);\n\n// regexes with full range but without mnemonics for string->number\nconst int_bare_re = new RegExp('^(?:' + gen_integer_re('', '[0-9a-f]') + ')$', 'i');\nconst rational_bare_re = new RegExp('^(?:' + gen_rational_re('', '[0-9a-f]') + ')$', 'i');\nconst complex_bare_re = new RegExp('^(?:' + gen_complex_re('', '[0-9a-f]') + ')$', 'i');\n\nconst complex_bare_match_re = make_complex_match_re('', '[0-9a-fA-F]');\n\nconst pre_num_parse_re = /((?:#[xodbie]){0,2})(.*)/i;\n/* eslint-enable */\nfunction num_pre_parse(arg) {\n var parts = arg.match(pre_num_parse_re);\n var options = {};\n if (parts[1]) {\n var type = parts[1].replace(/#/g, '').toLowerCase().split('');\n if (type.includes('x')) {\n options.radix = 16;\n } else if (type.includes('o')) {\n options.radix = 8;\n } else if (type.includes('b')) {\n options.radix = 2;\n } else if (type.includes('d')) {\n options.radix = 10;\n }\n if (type.includes('i')) {\n options.inexact = true;\n }\n if (type.includes('e')) {\n options.exact = true;\n }\n }\n options.number = parts[2];\n return options;\n}\n// ----------------------------------------------------------------------\nfunction parse_rational(arg, radix = 10) {\n var parse = num_pre_parse(arg);\n var parts = parse.number.split('/');\n var num = LRational({\n num: LNumber([parts[0], parse.radix || radix]),\n denom: LNumber([parts[1], parse.radix || radix])\n });\n if (parse.inexact) {\n return num.valueOf();\n } else {\n return num;\n }\n}\n// ----------------------------------------------------------------------\nfunction parse_integer(arg, radix = 10) {\n var parse = num_pre_parse(arg);\n if (parse.inexact) {\n return LFloat(parseInt(parse.number, parse.radix || radix), true);\n }\n return LNumber([parse.number, parse.radix || radix]);\n}\n// ----------------------------------------------------------------------\nfunction parse_character(arg) {\n var m = arg.match(/#\\\\x([0-9a-f]+)$/i);\n var char;\n if (m) {\n var ord = parseInt(m[1], 16);\n char = String.fromCodePoint(ord);\n } else {\n m = arg.match(/#\\\\(.+)$/);\n if (m) {\n char = m[1];\n }\n }\n if (char) {\n return LCharacter(char);\n }\n throw new Error('Parse: invalid character');\n}\n// ----------------------------------------------------------------------\nfunction parse_complex(arg, radix = 10) {\n function parse_num(n) {\n var value;\n if (n === '+') {\n value = LNumber(1);\n } else if (n === '-') {\n value = LNumber(-1);\n } else if (n.match(int_bare_re)) {\n value = LNumber([n, radix]);\n } else if (n.match(rational_bare_re)) {\n var parts = n.split('/');\n value = LRational({\n num: LNumber([parts[0], radix]),\n denom: LNumber([parts[1], radix])\n });\n } else if (n.match(float_re)) {\n var float = parse_float(n);\n if (parse.exact) {\n return float.toRational();\n }\n return float;\n } else if (n.match(/nan.0$/)) {\n return LNumber(NaN);\n } else if (n.match(/inf.0$/)) {\n if (n[0] === '-') {\n return LNumber(Number.NEGATIVE_INFINITY);\n }\n return LNumber(Number.POSITIVE_INFINITY);\n } else {\n throw new Error('Internal Parser Error');\n }\n if (parse.inexact) {\n return LFloat(value.valueOf(), true);\n }\n return value;\n }\n var parse = num_pre_parse(arg);\n radix = parse.radix || radix;\n var parts;\n var bare_match = parse.number.match(complex_bare_match_re);\n if (radix !== 10 && bare_match) {\n parts = bare_match;\n } else {\n parts = parse.number.match(complex_list_re[radix]);\n }\n var re, im;\n im = parse_num(parts[2]);\n if (parts[1]) {\n re = parse_num(parts[1]);\n } else {\n re = LNumber(0);\n }\n if (im.cmp(0) === 0 && im.__type__ === 'bigint') {\n return re;\n }\n return LComplex({ im, re });\n}\n// ----------------------------------------------------------------------\nfunction is_int(value) {\n return parseInt(value.toString(), 10) === value;\n}\n// ----------------------------------------------------------------------\nfunction parse_big_int(str) {\n var num_match = str.match(/^(([-+]?[0-9]*)(?:\\.([0-9]+))?)e([-+]?[0-9]+)/i);\n if (num_match) {\n var exponent = parseInt(num_match[4], 10);\n var mantisa;// = parseFloat(num_match[1]);\n var digits = num_match[1].replace(/[-+]?([0-9]*)\\..+$/, '$1').length;\n var decimal_points = num_match[3] && num_match[3].length;\n if (digits < Math.abs(exponent)) {\n mantisa = LNumber([num_match[1].replace(/\\./, ''), 10]);\n if (decimal_points) {\n exponent -= decimal_points;\n }\n }\n }\n return { exponent, mantisa };\n}\n// ----------------------------------------------------------------------\nfunction parse_float(arg) {\n var parse = num_pre_parse(arg);\n var value = parseFloat(parse.number);\n var simple_number = (parse.number.match(/\\.0$/) ||\n !parse.number.match(/\\./)) && !parse.number.match(/e/i);\n if (!parse.inexact) {\n if (parse.exact && simple_number) {\n return LNumber(value);\n }\n // positive big num that eval to int e.g.: 1.2e+20\n if (is_int(value) && parse.number.match(/e\\+?[0-9]/i)) {\n return LNumber(value);\n }\n // calculate big int and big fration by hand - it don't fit into JS float\n var { mantisa, exponent } = parse_big_int(parse.number);\n if (mantisa !== undefined && exponent !== undefined) {\n var factor = LNumber(10).pow(LNumber(Math.abs(exponent)));\n if (parse.exact && exponent < 0) {\n return LRational({ num: mantisa, denom: factor });\n } else if (exponent > 0) {\n return LNumber(mantisa).mul(factor);\n }\n }\n }\n value = LFloat(value, true);\n if (parse.exact) {\n return value.toRational();\n }\n return value;\n}\n// ----------------------------------------------------------------------\nfunction parse_string(string) {\n // handle non JSON escapes and skip unicode escape \\u (even partial)\n string = string.replace(/\\\\x([0-9a-f]+);/ig, function(_, hex) {\n return \"\\\\u\" + hex.padStart(4, '0');\n }).replace(/\\n/g, '\\\\n'); // in LIPS strings can be multiline\n var m = string.match(/(\\\\*)(\\\\x[0-9A-F])/i);\n if (m && m[1].length % 2 === 0) {\n throw new Error(`Invalid string literal, unclosed ${m[2]}`);\n }\n try {\n return LString(JSON.parse(string));\n } catch (e) {\n throw new Error('Invalid string literal');\n }\n}\n// ----------------------------------------------------------------------\nfunction parse_symbol(arg) {\n if (arg.match(/^\\|.*\\|$/)) {\n arg = arg.replace(/(^\\|)|(\\|$)/g, '');\n var chars = {\n t: '\\t',\n r: '\\r',\n n: '\\n'\n };\n arg = arg.replace(/\\\\(x[^;]+);/g, function(_, chr) {\n return String.fromCharCode(parseInt('0' + chr, 16));\n }).replace(/\\\\(.)/g, function(_, chr) {\n return chars[chr] || chr;\n });\n }\n return new LSymbol(arg);\n}\n// ----------------------------------------------------------------------\nfunction parse_argument(arg) {\n if (constants.hasOwnProperty(arg)) {\n return constants[arg];\n }\n if (arg.match(/^\"[\\s\\S]*\"$/)) {\n return parse_string(arg);\n } else if (arg[0] === '#') {\n var regex = arg.match(re_re);\n if (regex) {\n return new RegExp(regex[1], regex[2]);\n } else if (arg.match(char_re)) {\n return parse_character(arg);\n }\n // characters with more than one codepoint\n var m = arg.match(/#\\\\(.+)/);\n if (m && ucs2decode(m[1]).length === 1) {\n return parse_character(arg);\n }\n }\n if (arg.match(/[0-9a-f]|[+-]i/i)) {\n if (arg.match(int_re)) {\n return parse_integer(arg);\n } else if (arg.match(float_re)) {\n return parse_float(arg);\n } else if (arg.match(rational_re)) {\n return parse_rational(arg);\n } else if (arg.match(complex_re)) {\n return parse_complex(arg);\n }\n }\n if (arg.match(/^#[iexobd]/)) {\n throw new Error('Invalid numeric constant: ' + arg);\n }\n return parse_symbol(arg);\n}\n// ----------------------------------------------------------------------\nfunction is_atom_string(str) {\n return !(['(', ')', '[', ']'].includes(str) ||\n specials.names().includes(str));\n}\n// ----------------------------------------------------------------------\nfunction is_symbol_string(str) {\n return is_atom_string(str) &&\n !(str.match(re_re) ||\n str.match(/^\"[\\s\\S]*\"$/) || str.match(int_re) ||\n str.match(float_re) || str.match(complex_re) ||\n str.match(rational_re) || str.match(char_re) ||\n ['#t', '#f', 'nil', 'true', 'false'].includes(str));\n}\n// ----------------------------------------------------------------------\nvar string_re = /\"(?:\\\\[\\S\\s]|[^\"])*\"?/g;\n// ----------------------------------------------------------------------\nfunction escape_regex(str) {\n if (typeof str === 'string') {\n var special = /([-\\\\^$[\\]()+{}?*.|])/g;\n return str.replace(special, '\\\\$1');\n }\n return str;\n}\n// ----------------------------------------------------------------------\n// Stack used in balanced function\n// TODO: use it in parser\n// ----------------------------------------------------------------------\nfunction Stack() {\n this.data = [];\n}\nStack.prototype.push = function(item) {\n this.data.push(item);\n};\nStack.prototype.top = function() {\n return this.data[this.data.length - 1];\n};\nStack.prototype.pop = function() {\n return this.data.pop();\n};\nStack.prototype.is_empty = function() {\n return !this.data.length;\n};\n// ----------------------------------------------------------------------\nfunction tokens(str) {\n if (str instanceof LString) {\n str = str.valueOf();\n }\n var lexer = new Lexer(str, { whitespace: true });\n var result = [];\n while (true) {\n const token = lexer.peek(true);\n if (token === eof) {\n break;\n }\n result.push(token);\n lexer.skip();\n }\n return result;\n}\n// ----------------------------------------------------------------------\nfunction multiline_formatter(meta) {\n var { token, ...rest } = meta;\n if (token.match(/^\"[\\s\\S]*\"$/) && token.match(/\\n/)) {\n var re = new RegExp('^ {1,' + (meta.col + 1) + '}', 'mg');\n token = token.replace(re, '');\n }\n return {\n token,\n ...rest\n };\n}\n// ----------------------------------------------------------------------\nfunction Thunk(fn, cont = () => {}) {\n this.fn = fn;\n this.cont = cont;\n}\n// ----------------------------------------------------------------------\nThunk.prototype.toString = function() {\n return '#';\n};\n// ----------------------------------------------------------------------\nfunction trampoline(fn) {\n return function(...args) {\n return unwind(fn.apply(this, args));\n };\n}\n// ----------------------------------------------------------------------\nfunction unwind(result) {\n while (result instanceof Thunk) {\n const thunk = result;\n result = result.fn();\n if (!(result instanceof Thunk)) {\n thunk.cont();\n }\n }\n return result;\n}\n// ----------------------------------------------------------------------\nfunction tokenize(str, meta = false) {\n if (str instanceof LString) {\n str = str.toString();\n }\n if (meta) {\n return tokens(str);\n } else {\n var result = tokens(str).map(function(token) {\n // we don't want literal space character to be trimmed\n if (token.token === '#\\\\ ') {\n return token.token;\n }\n return token.token.trim();\n }).filter(function(token) {\n return token && !token.match(/^;/) && !token.match(/^#\\|[\\s\\S]*\\|#$/);\n });\n return strip_s_comments(result);\n }\n}\n// ----------------------------------------------------------------------\nfunction strip_s_comments(tokens) {\n var s_count = 0;\n var s_start = null;\n var remove_list = [];\n for (let i = 0; i < tokens.length; ++i) {\n const token = tokens[i];\n if (token === '#;') {\n if (['(', '['].includes(tokens[i + 1])) {\n s_count = 1;\n s_start = i;\n } else {\n remove_list.push([i, i + 2]);\n }\n i += 1;\n continue;\n }\n if (s_start !== null) {\n if ([')', ']'].includes(token)) {\n s_count--;\n } else if (['(', '['].includes(token)) {\n s_count++;\n }\n if (s_count === 0) {\n remove_list.push([s_start, i + 1]);\n s_start = null;\n }\n }\n }\n tokens = tokens.slice();\n remove_list.reverse();\n for (const [begin, end] of remove_list) {\n tokens.splice(begin, end - begin);\n }\n return tokens;\n}\n// ----------------------------------------------------------------------\n// detect if object is ES6 Symbol that work with polyfills\n// ----------------------------------------------------------------------\nfunction isSymbol(x) {\n return typeof x === 'symbol' ||\n typeof x === 'object' &&\n Object.prototype.toString.call(x) === '[object Symbol]';\n}\n// ----------------------------------------------------------------------\n// :: LSymbol constructor\n// ----------------------------------------------------------------------\nfunction LSymbol(name) {\n if (typeof this !== 'undefined' && this.constructor !== LSymbol ||\n typeof this === 'undefined') {\n return new LSymbol(name);\n }\n if (name instanceof LString) {\n name = name.valueOf();\n }\n if (LSymbol.list[name] instanceof LSymbol) {\n return LSymbol.list[name];\n }\n this.__name__ = name;\n if (typeof name === 'string') {\n LSymbol.list[name] = this;\n }\n}\nLSymbol.list = {};\nLSymbol.literal = Symbol.for('__literal__');\nLSymbol.object = Symbol.for('__object__');\n// ----------------------------------------------------------------------\nLSymbol.is = function(symbol, name) {\n return symbol instanceof LSymbol &&\n ((name instanceof LSymbol && symbol.__name__ === name.__name__) ||\n (typeof name === 'string' && symbol.__name__ === name) ||\n (name instanceof RegExp && name.test(symbol.__name__)));\n};\n// ----------------------------------------------------------------------\nLSymbol.prototype.toString = function(quote) {\n //return '#';\n if (isSymbol(this.__name__)) {\n return symbol_to_string(this.__name__);\n }\n var str = this.valueOf();\n // those special characters can be normal symbol when printed\n if (quote && str.match(/(^;|[\\s()[\\]'])/)) {\n return `|${str}|`;\n }\n return str;\n};\nLSymbol.prototype.literal = function() {\n if (this.is_gensym()) {\n return this[LSymbol.literal];\n }\n return this.valueOf();\n};\nLSymbol.prototype.serialize = function() {\n if (LString.isString(this.__name__)) {\n return this.__name__;\n }\n return [symbol_to_string(this.__name__)];\n};\nLSymbol.prototype.valueOf = function() {\n return this.__name__.valueOf();\n};\n// -------------------------------------------------------------------------\nLSymbol.prototype.is_gensym = function() {\n return is_gensym(this.__name__);\n};\n// -------------------------------------------------------------------------\nfunction symbol_to_string(obj) {\n return obj.toString().replace(/^Symbol\\(([^)]+)\\)/, '$1');\n}\n// -------------------------------------------------------------------------\nfunction is_gensym(symbol) {\n if (typeof symbol === 'symbol') {\n return !!symbol.toString().match(/^Symbol\\(#:/);\n }\n return false;\n}\n// -------------------------------------------------------------------------\nvar gensym = (function() {\n var count = 0;\n function with_props(name, sym) {\n var symbol = new LSymbol(sym);\n hidden_prop(symbol, '__literal__', name);\n return symbol;\n }\n return function(name = null) {\n if (name instanceof LSymbol) {\n if (name.is_gensym()) {\n return name;\n }\n name = name.valueOf();\n }\n if (is_gensym(name)) {\n // don't do double gynsyms in nested syntax-rules\n return LSymbol(name);\n }\n // use ES6 symbol as name for lips symbol (they are unique)\n if (name !== null) {\n return with_props(name, Symbol(`#:${name}`));\n }\n count++;\n return with_props(count, Symbol(`#:g${count}`));\n };\n})();\n// ----------------------------------------------------------------------\n// class used to escape promises feature #54\n// ----------------------------------------------------------------------\nfunction QuotedPromise(promise) {\n var internal = {\n pending: true,\n rejected: false,\n fulfilled: false,\n reason: undefined,\n type: undefined\n };\n // then added to __promise__ is needed otherwise rejection\n // will give UnhandledPromiseRejectionWarning in Node.js\n promise = promise.then(v => {\n internal.type = type(v);\n internal.fulfilled = true;\n internal.pending = false;\n return v;\n });\n // promise without catch, used for valueOf - for rejecting\n // that should throw an error when used with await\n read_only(this, '_promise', promise, { hidden: true });\n if (is_function(promise.catch)) {\n // prevent exception on unhandled rejecting when using\n // '>(Promise.reject (new Error \"zonk\")) in REPL\n promise = promise.catch((err) => {\n internal.rejected = true;\n internal.pending = false;\n internal.reason = err;\n });\n }\n Object.keys(internal).forEach(name => {\n Object.defineProperty(this, `__${name}__`, {\n enumerable: true,\n get: () => internal[name]\n });\n });\n read_only(this, '__promise__', promise);\n // prevent resolving when returned from real promise #153\n this.then = false;\n}\n// ----------------------------------------------------------------------\nQuotedPromise.prototype.then = function(fn) {\n return new QuotedPromise(this.valueOf().then(fn));\n};\n// ----------------------------------------------------------------------\nQuotedPromise.prototype.catch = function(fn) {\n return new QuotedPromise(this.valueOf().catch(fn));\n};\n// ----------------------------------------------------------------------\nQuotedPromise.prototype.valueOf = function() {\n if (!this._promise) {\n throw new Error('QuotedPromise: invalid promise created');\n }\n return this._promise;\n};\n// ----------------------------------------------------------------------\nQuotedPromise.prototype.toString = function() {\n if (this.__pending__) {\n return QuotedPromise.pending_str;\n }\n if (this.__rejected__) {\n return QuotedPromise.rejected_str;\n }\n return `#`;\n};\nQuotedPromise.pending_str = '#';\nQuotedPromise.rejected_str = '#';\n// ----------------------------------------------------------------------\n// wrapper over Promise.all that ignore quoted promises\n// ----------------------------------------------------------------------\nfunction promise_all(arg) {\n if (Array.isArray(arg)) {\n return Promise.all(escape_quoted_promises(arg))\n .then(unescape_quoted_promises);\n }\n return arg;\n}\n// ----------------------------------------------------------------------\nfunction escape_quoted_promises(array) {\n // using loops for performance\n var escaped = new Array(array.length), i = array.length;\n while (i--) {\n const value = array[i];\n if (value instanceof QuotedPromise) {\n escaped[i] = new Value(value);\n } else {\n escaped[i] = value;\n }\n }\n return escaped;\n}\n// ----------------------------------------------------------------------\nfunction unescape_quoted_promises(array) {\n var unescaped = new Array(array.length), i = array.length;\n while (i--) {\n var value = array[i];\n if (value instanceof Value) {\n unescaped[i] = value.valueOf();\n } else {\n unescaped[i] = value;\n }\n }\n return unescaped;\n}\n// ----------------------------------------------------------------------\n// :: Parser macros transformers\n// ----------------------------------------------------------------------\nvar specials = {\n LITERAL: Symbol.for('literal'),\n SPLICE: Symbol.for('splice'),\n SYMBOL: Symbol.for('symbol'),\n names: function() {\n return Object.keys(this._specials);\n },\n type: function(name) {\n return this.get(name).type;\n },\n get: function(name) {\n return this._specials[name];\n },\n // events are used in Lexer dynamic rules\n off: function(name, fn = null) {\n if (Array.isArray(name)) {\n name.forEach(name => this.off(name, fn));\n } else if (fn === null) {\n delete this._events[name];\n } else {\n this._events = this._events.filter(test => test !== fn);\n }\n },\n on: function(name, fn) {\n if (Array.isArray(name)) {\n name.forEach(name => this.on(name, fn));\n } else if (!this._events[name]) {\n this._events[name] = [fn];\n } else {\n this._events[name].push(fn);\n }\n },\n trigger: function(name, ...args) {\n if (this._events[name]) {\n this._events[name].forEach(fn => fn(...args));\n }\n },\n remove: function(name) {\n this.trigger('remove');\n delete this._specials[name];\n },\n append: function(name, value, type) {\n this.trigger('append');\n this._specials[name] = {\n seq: name,\n symbol: value,\n type\n };\n },\n _events: {},\n _specials: {}\n};\nfunction is_special(token) {\n return specials.names().includes(token);\n}\nfunction is_builtin(token) {\n return specials.builtin.includes(token);\n}\nfunction is_literal(special) {\n return specials.type(special) === specials.LITERAL;\n}\n// ----------------------------------------------------------------------\nvar defined_specials = [\n [\"'\", new LSymbol('quote'), specials.LITERAL],\n ['`', new LSymbol('quasiquote'), specials.LITERAL],\n [',@', new LSymbol('unquote-splicing'), specials.LITERAL],\n [',', new LSymbol('unquote'), specials.LITERAL],\n [\"'>\", new LSymbol('quote-promise'), specials.LITERAL]\n];\nObject.defineProperty(specials, 'builtin', {\n writable: false,\n value: defined_specials.map(arr => arr[0])\n});\ndefined_specials.forEach(([seq, symbol, type]) => {\n specials.append(seq, symbol, type);\n});\n// ----------------------------------------------------------------------\n// :: Finite State Machine based incremental Lexer\n// ----------------------------------------------------------------------\n/* Lexer debugger\n var DEBUG = false;\n function log(...args) {\n if (DEBUG) {\n console.log(...args);\n }\n }\n*/\nclass Lexer {\n constructor(input, { whitespace = false } = {}) {\n read_only(this, '__input__', input.replace(/\\r/g, ''));\n var internals = {};\n // hide internals from introspection\n [\n '_i', '_whitespace', '_col', '_newline', '_line',\n '_state', '_next', '_token', '_prev_char'\n ].forEach(name => {\n Object.defineProperty(this, name, {\n configurable: false,\n enumerable: false,\n get() {\n return internals[name];\n },\n set(value) {\n internals[name] = value;\n }\n });\n });\n this._whitespace = whitespace;\n this._i = this._line = this._col = this._newline = 0;\n this._state = this._next = this._token = null;\n this._prev_char = '';\n }\n get(name) {\n return this.__internal[name];\n }\n set(name, value) {\n this.__internal[name] = value;\n }\n token(meta = false) {\n if (meta) {\n let line = this._line;\n if (this._whitespace && this._token === '\\n') {\n --line;\n }\n return {\n token: this._token,\n col: this._col,\n offset: this._i,\n line\n };\n }\n return this._token;\n }\n peek(meta = false) {\n if (this._i >= this.__input__.length) {\n return eof;\n }\n if (this._token) {\n return this.token(meta);\n }\n var found = this.next_token();\n if (found) {\n this._token = this.__input__.substring(this._i, this._next);\n return this.token(meta);\n }\n return eof;\n }\n skip() {\n if (this._next !== null) {\n this._token = null;\n this._i = this._next;\n }\n }\n read_line() {\n var len = this.__input__.length;\n if (this._i >= len) {\n return eof;\n }\n for (let i = this._i; i < len; ++i) {\n var char = this.__input__[i];\n if (char === '\\n') {\n const line = this.__input__.substring(this._i, i);\n this._i = i + 1;\n ++this._line;\n return line;\n }\n }\n return this.read_rest();\n }\n read_rest() {\n const i = this._i;\n this._i = this.__input__.length;\n return this.__input__.substring(i);\n }\n read_string(num) {\n const len = this.__input__.length;\n if (this._i >= len) {\n return eof;\n }\n if (num + this._i >= len) {\n return this.read_rest();\n }\n const end = this._i + num;\n const result = this.__input__.substring(this._i, end);\n const found = result.match(/\\n/g);\n if (found) {\n this._line += found.length;\n }\n this._i = end;\n return result;\n }\n peek_char() {\n if (this._i >= this.__input__.length) {\n return eof;\n }\n return LCharacter(this.__input__[this._i]);\n }\n read_char() {\n const char = this.peek_char();\n this.skip_char();\n return char;\n }\n skip_char() {\n if (this._i < this.__input__.length) {\n ++this._i;\n this._token = null;\n }\n }\n match_rule(rule, { prev_char, char, next_char } = {}) {\n var [ re, prev_re, next_re, state ] = rule;\n if (rule.length !== 5) {\n throw new Error(`Lexer: Invalid rule of length ${rule.length}`);\n }\n if (!char.match(re)) {\n return false;\n }\n if (!match_or_null(prev_re, prev_char)) {\n return false;\n }\n if (!match_or_null(next_re, next_char)) {\n return false;\n }\n if (state !== this._state) {\n return false;\n }\n return true;\n }\n next_token() {\n if (this._i >= this.__input__.length) {\n return false;\n }\n var start = true;\n loop:\n for (let i = this._i, len = this.__input__.length; i < len; ++i) {\n var char = this.__input__[i];\n var prev_char = this.__input__[i - 1] || '';\n var next_char = this.__input__[i + 1] || '';\n if (char === '\\n') {\n ++this._line;\n const newline = this._newline;\n if (this._state === null) {\n // keep beging of newline to calculate col\n // we don't want to check inside the token (e.g. strings)\n this._newline = i + 1;\n }\n if (this._whitespace && this._state === null) {\n this._next = i + 1;\n this._col = this._i - newline;\n return true;\n }\n }\n // skip leadning spaces\n if (start && this._state === null && char.match(/\\s/)) {\n if (this._whitespace) {\n if (!next_char.match(/\\s/)) {\n this._next = i + 1;\n this._col = this._i - this._newline;\n return true;\n } else {\n continue;\n }\n } else {\n this._i = i + 1;\n continue;\n }\n }\n start = false;\n for (let rule of Lexer.rules) {\n if (this.match_rule(rule, { prev_char, char, next_char })) {\n // change state to null is end of the token\n var next_state = rule[rule.length - 1];\n this._state = next_state;\n if (this._state === null) {\n this._next = i + 1;\n this._col = this._i - this._newline;\n return true;\n }\n // token is activated\n continue loop;\n }\n }\n if (this._state !== null) {\n // collect char in token\n continue loop;\n }\n // no rule for token\n var line = this.__input__.split('\\n')[this._line];\n throw new Error(`Invalid Syntax at line ${this._line}\\n${line}`);\n }\n }\n}\n// ----------------------------------------------------------------------\n// TODO: cache the rules creation or whole list\n// ----------------------------------------------------------------------\nLexer.symbol_rule = function symbol_rule(string, symbol) {\n var rules = Lexer.literal_rule(string, symbol, Lexer.boundary, /\\S/);\n\n return rules.concat([\n [/\\S/, /\\S/, Lexer.boundary, null, null],\n [/\\S/, /\\S/, null, null, Lexer.symbol],\n [/\\S/, null, Lexer.boundary, Lexer.symbol, null]\n ]);\n};\n// ----------------------------------------------------------------------\n// state rule for literal symbol\n// ----------------------------------------------------------------------\nLexer.literal_rule = function literal_rule(string, symbol, p_re = null, n_re = null) {\n if (string.length === 0) {\n throw new Error('Lexer: invalid literal rule');\n }\n if (string.length === 1) {\n return [[string, p_re, n_re, null, null]];\n }\n var rules = [];\n for (let i = 0, len = string.length; i < len; ++i) {\n const rule = [];\n rule.push(string[i]);\n rule.push(string[i - 1] || p_re);\n rule.push(string[i + 1] || n_re);\n if (i === 0) {\n rule.push(null);\n rule.push(symbol);\n } else if (i === len - 1) {\n rule.push(symbol);\n rule.push(null);\n } else {\n rule.push(symbol);\n rule.push(symbol);\n }\n rules.push(rule);\n }\n return rules;\n};\n// ----------------------------------------------------------------------\nLexer.string = Symbol.for('string');\nLexer.symbol = Symbol.for('symbol');\nLexer.comment = Symbol.for('comment');\nLexer.regex = Symbol.for('regex');\nLexer.regex_class = Symbol.for('regex_class');\nLexer.character = Symbol.for('character');\nLexer.bracket = Symbol.for('bracket');\nLexer.b_symbol = Symbol.for('b_symbol');\nLexer.b_comment = Symbol.for('b_comment');\nLexer.i_comment = Symbol.for('i_comment');\nLexer.l_datum = Symbol.for('l_datum');\nLexer.dot = Symbol.for('dot');\n// ----------------------------------------------------------------------\nLexer.boundary = /^$|[\\s()[\\]']/;\n// ----------------------------------------------------------------------\nLexer._rules = [\n // char_re prev_re next_re from_state to_state\n // null as to_state mean that is single char token\n // string\n [/\"/, /^$|[^\\\\]/, null, null, Lexer.string],\n [/\"/, /^$|[^\\\\]/, null, Lexer.string, null],\n\n // hash special symbols, lexer don't need to distinguish those\n // we only care if it's not pick up by vectors literals\n [/#/, null, /[bdxoeitf]/i, null, Lexer.symbol],\n\n // characters\n [/#/, null, /\\\\/, null, Lexer.character],\n [/\\\\/, /#/, /\\s/, Lexer.character, Lexer.character],\n [/\\\\/, /#/, /[()[\\]]/, Lexer.character, Lexer.character],\n [/\\s/, /\\\\/, null, Lexer.character, null],\n [/\\S/, null, Lexer.boundary, Lexer.character, null],\n\n // regex\n [/#/, Lexer.boundary, /\\//, null, Lexer.regex],\n [/[ \\t]/, null, null, Lexer.regex, Lexer.regex],\n [/\\[/, null, null, Lexer.regex, Lexer.regex_class],\n [/\\]/, /[^\\\\]/, null, Lexer.regex_class, Lexer.regex],\n [/[()[\\]]/, null, null, Lexer.regex, Lexer.regex],\n [/\\//, /\\\\/, null, Lexer.regex, Lexer.regex],\n [/\\//, /[^#]/, Lexer.boundary, Lexer.regex, null],\n [/[gimyus]/, /\\//, Lexer.boundary, Lexer.regex, null],\n [/[gimyus]/, /\\//, /[gimyus]/, Lexer.regex, Lexer.regex],\n [/[gimyus]/, /[gimyus]/, Lexer.boundary, Lexer.regex, null],\n\n // comment\n [/;/, /^$|[^#]/, null, null, Lexer.comment],\n [/[\\s\\S]/, null, /\\n/, Lexer.comment, null],\n [/\\s/, null, null, Lexer.comment, Lexer.comment],\n\n // block comment\n [/#/, null, /\\|/, null, Lexer.b_comment],\n [/\\s/, null, null, Lexer.b_comment, Lexer.b_comment],\n [/#/, /\\|/, null, Lexer.b_comment, null],\n\n // inline commentss\n [/#/, null, /;/, null, Lexer.i_comment],\n [/;/, /#/, null, Lexer.i_comment, null],\n\n // datum label\n [/#/, null, /[0-9]/, null, Lexer.l_datum],\n [/=/, /[0-9]/, null, Lexer.l_datum, null],\n [/#/, /[0-9]/, null, Lexer.l_datum, null],\n\n // for dot comma `(a .,b)\n [/\\./, Lexer.boundary, /,/, null, null],\n\n // block symbols\n [/\\|/, null, null, null, Lexer.b_symbol],\n [/\\s/, null, null, Lexer.b_symbol, Lexer.b_symbol],\n [/\\|/, null, Lexer.boundary, Lexer.b_symbol, null]\n];\n// ----------------------------------------------------------------------\nLexer._brackets = [\n [/[()[\\]]/, null, null, null, null]\n];\n// ----------------------------------------------------------------------\n// :: symbols should be matched last\n// ----------------------------------------------------------------------\nLexer._symbol_rules = [\n [/\\S/, Lexer.boundary, Lexer.boundary, null, null],\n [/\\S/, Lexer.boundary, null, null, Lexer.symbol],\n [/\\S/, null, Lexer.boundary, null, null],\n [/\\S/, null, null, null, Lexer.symbol],\n [/\\S/, null, Lexer.boundary, Lexer.symbol, null]\n];\n// ----------------------------------------------------------------------\n// :: dynamic getter or Lexer state rules, parser use this\n// :: so in fact user code can modify lexer using syntax extensions\n// ----------------------------------------------------------------------\nLexer._cache = {\n valid: false,\n rules: null\n};\n// ----------------------------------------------------------------------\nspecials.on(['remove', 'append'], function() {\n Lexer._cache.valid = false;\n Lexer._cache.rules = null;\n});\n// ----------------------------------------------------------------------\nObject.defineProperty(Lexer, 'rules', {\n get() {\n if (Lexer._cache.valid) {\n return Lexer._cache.rules;\n }\n var tokens = specials.names().sort((a, b) => {\n return b.length - a.length || a.localeCompare(b);\n });\n\n var special_rules = tokens.reduce((acc, token) => {\n const { type, symbol: special_symbol } = specials.get(token);\n let rules;\n let symbol;\n // we need distinct symbols_ for syntax extensions\n if (token[0] === '#') {\n if (token.length === 1) {\n symbol = Symbol.for(token);\n } else {\n symbol = Symbol.for(token[1]);\n }\n } else {\n symbol = special_symbol;\n }\n if (type === specials.SYMBOL) {\n rules = Lexer.symbol_rule(token, symbol);\n } else {\n rules = Lexer.literal_rule(token, symbol);\n }\n return acc.concat(rules);\n }, []);\n\n Lexer._cache.rules = Lexer._rules.concat(\n Lexer._brackets,\n special_rules,\n Lexer._symbol_rules\n );\n\n Lexer._cache.valid = true;\n return Lexer._cache.rules;\n }\n});\n// ----------------------------------------------------------------------\nfunction match_or_null(re, char) {\n return re === null || char.match(re);\n}\n// ----------------------------------------------------------------------\n// :: Parser inspired by BiwaScheme\n// :: ref: https://github.com/biwascheme/biwascheme/blob/master/src/system/parser.js\n// ----------------------------------------------------------------------\nclass Parser {\n constructor(arg, { env, meta = false, formatter = multiline_formatter } = {}) {\n if (arg instanceof LString) {\n arg = arg.toString();\n }\n\n read_only(this, '_formatter', formatter, { hidden: true });\n read_only(this, '__lexer__', new Lexer(arg));\n read_only(this, '__env__', env);\n\n read_only(this, '_meta', meta, { hidden: true });\n // datum labels\n read_only(this, '_refs', [], { hidden: true });\n }\n resolve(name) {\n return this.__env__ && this.__env__.get(name, { throwError: false });\n }\n async peek() {\n let token;\n while (true) {\n token = this.__lexer__.peek(true);\n if (token === eof) {\n return eof;\n }\n if (this.is_comment(token.token)) {\n this.skip();\n continue;\n }\n if (token.token === '#;') {\n this.skip();\n if (this.__lexer__.peek() === eof) {\n throw new Error('Lexer: syntax error eof found after comment');\n }\n await this._read_object();\n continue;\n }\n break;\n }\n token = this._formatter(token);\n if (this._meta) {\n return token;\n }\n return token.token;\n }\n reset() {\n this._refs.length = 0;\n }\n skip() {\n this.__lexer__.skip();\n }\n async read() {\n const token = await this.peek();\n this.skip();\n return token;\n }\n match_datum_label(token) {\n var m = token.match(/^#([0-9]+)=$/);\n return m && m[1];\n }\n match_datum_ref(token) {\n var m = token.match(/^#([0-9]+)#$/);\n return m && m[1];\n }\n is_open(token) {\n return ['(', '['].includes(token);\n }\n is_close(token) {\n return [')', ']'].includes(token);\n }\n async read_list() {\n let head = nil, prev = head;\n while (true) {\n const token = await this.peek();\n if (token === eof) {\n break;\n }\n if (this.is_close(token)) {\n this.skip();\n break;\n }\n if (token === '.' && head !== nil) {\n this.skip();\n prev.cdr = await this._read_object();\n } else {\n const cur = new Pair(await this._read_object(), nil);\n if (head === nil) {\n head = cur;\n } else {\n prev.cdr = cur;\n }\n prev = cur;\n }\n }\n return head;\n }\n async read_value() {\n var token = await this.read();\n if (token === eof) {\n throw new Error('Parser: Expected token eof found');\n }\n return parse_argument(token);\n }\n is_comment(token) {\n return token.match(/^;/) || (token.match(/^#\\|/) && token.match(/\\|#$/));\n }\n evaluate(code) {\n return evaluate(code, { env: this.__env__, error: (e) => {\n throw e;\n } });\n }\n // public API that handle R7RS datum labels\n async read_object() {\n this.reset();\n var object = await this._read_object();\n if (object instanceof DatumReference) {\n object = object.valueOf();\n }\n if (this._refs.length) {\n return this._resolve_object(object);\n }\n return object;\n }\n async _resolve_object(object) {\n if (Array.isArray(object)) {\n return object.map(item => this._resolve_object(item));\n }\n if (is_plain_object(object)) {\n var result = {};\n Object.keys(object).forEach(key => {\n result[key] = this._resolve_object(object[key]);\n });\n return result;\n }\n if (object instanceof Pair) {\n return this._resolve_pair(object);\n }\n return object;\n }\n async _resolve_pair(pair) {\n if (pair instanceof Pair) {\n if (pair.car instanceof DatumReference) {\n pair.car = await pair.car.valueOf();\n } else {\n this._resolve_pair(pair.car);\n }\n if (pair.cdr instanceof DatumReference) {\n pair.cdr = await pair.cdr.valueOf();\n } else {\n this._resolve_pair(pair.cdr);\n }\n }\n return pair;\n }\n async _read_object() {\n const token = await this.peek();\n if (token === eof) {\n return token;\n }\n if (is_special(token)) {\n // builtin parser extensions are mapping short symbol to longer symbol\n // that can be function or macro, parser don't care\n // if it's not builtin then the extension can be macro or function\n // FUNCTION: when it's used it get arguments like FEXPR and\n // result is returned by parser as is\n // MACRO: if macros are used they are evaluated in place and\n // result is returned by parser but they are quoted\n const special = specials.get(token);\n const builtin = is_builtin(token);\n this.skip();\n let expr;\n const object = await this._read_object();\n if (!builtin) {\n var extension = this.__env__.get(special.symbol);\n if (typeof extension === 'function') {\n if (is_literal(token)) {\n return extension.call(this.__env__, object);\n } else if (object instanceof Pair) {\n return extension.apply(this.__env__, object.to_array(false));\n }\n throw new Error('Parse Error: Invalid parser extension ' +\n `invocation ${special.symbol}`);\n }\n }\n if (is_literal(token)) {\n expr = new Pair(\n special.symbol,\n new Pair(\n object,\n nil\n )\n );\n } else {\n expr = new Pair(\n special.symbol,\n object\n );\n }\n // builtin parser extensions just expand into lists like 'x ==> (quote x)\n if (builtin) {\n return expr;\n }\n // evaluate parser extension at parse time\n if (extension instanceof Macro) {\n var result = await this.evaluate(expr);\n // we need literal quote to make macro that return pair works\n // because after parser return the value it will be evaluated again\n // by the interpreter, so we create quoted expression\n if (result instanceof Pair || result instanceof LSymbol) {\n return Pair.fromArray([LSymbol('quote'), result]);\n }\n return result;\n } else {\n throw new Error('Parse Error: invalid parser extension: ' +\n special.symbol);\n }\n }\n var ref = this.match_datum_ref(token);\n if (ref !== null) {\n this.skip();\n if (this._refs[ref]) {\n return new DatumReference(ref, this._refs[ref]);\n }\n throw new Error(`Parse Error: invalid datum label #${ref}#`);\n }\n var ref_label = this.match_datum_label(token);\n if (ref_label !== null) {\n this.skip();\n this._refs[ref_label] = this._read_object();\n return this._refs[ref_label];\n } else if (this.is_open(token)) {\n this.skip();\n return this.read_list();\n } else {\n return this.read_value();\n }\n }\n}\n// ----------------------------------------------------------------------\n// :: parser helper that allow to handle circular list structures\n// :: using datum labels\n// ----------------------------------------------------------------------\nclass DatumReference {\n constructor(name, data) {\n this.name = name;\n this.data = data;\n }\n valueOf() {\n return this.data;\n }\n}\n// ----------------------------------------------------------------------\n// :: tokens are the array of strings from tokenizer\n// :: the return value is array of lisp code created out of Pair class\n// :: env is needed for parser extensions that will invoke the function\n// :: or macro assigned to symbol, this function is async because\n// :: it evaluate the code, from parser extensions, that may return promise\n// ----------------------------------------------------------------------\nasync function* parse(arg, env) {\n if (!env) {\n if (global_env) {\n env = global_env.get('**interaction-environment**', {\n throwError: false\n });\n } else {\n env = user_env;\n }\n }\n const parser = new Parser(arg, { env });\n while (true) {\n const expr = await parser.read_object();\n if (expr === eof) {\n break;\n }\n yield expr;\n }\n}\n// ----------------------------------------------------------------------\nfunction unpromise(value, fn = x => x, error = null) {\n if (is_promise(value)) {\n var ret = value.then(fn);\n if (error === null) {\n return ret;\n } else {\n return ret.catch(error);\n }\n }\n if (value instanceof Array) {\n return unpromise_array(value, fn, error);\n }\n if (is_plain_object(value)) {\n return unpromise_object(value, fn, error);\n }\n return fn(value);\n}\n// ----------------------------------------------------------------------\nfunction unpromise_array(array, fn, error) {\n if (array.find(is_promise)) {\n return unpromise(promise_all(array), (arr) => {\n if (Object.isFrozen(array)) {\n Object.freeze(arr);\n }\n return arr;\n }, error);\n }\n return fn(array);\n}\n// ----------------------------------------------------------------------\nfunction unpromise_object(object, fn, error) {\n const keys = Object.keys(object);\n const values = [], anyPromise = [];\n let i = keys.length;\n while (i--) {\n const key = keys[i];\n const value = object[key];\n values[i] = value;\n if (is_promise(value)) {\n anyPromise.push(value);\n }\n }\n if (anyPromise.length) {\n return unpromise(promise_all(values), (values) => {\n const result = {};\n values.forEach((value, i) => {\n const key = keys[i];\n result[key] = value;\n });\n if (Object.isFrozen(object)) {\n Object.freeze(result);\n }\n return result;\n }, error);\n }\n return fn(object);\n}\n// ----------------------------------------------------------------------\nfunction read_only(object, property, value, { hidden = false } = {}) {\n Object.defineProperty(object, property, {\n value,\n configurable: true,\n enumerable: !hidden\n });\n}\n// ----------------------------------------------------------------------\n// :: Function similar to Array.from that work on async iterators\n// ----------------------------------------------------------------------\nasync function uniterate_async(object) {\n const result = [];\n for await (let item of object) {\n result.push(item);\n }\n return result;\n}\n// ----------------------------------------------------------------------\n// :: function that return mather function that match string against string\n// ----------------------------------------------------------------------\nfunction matcher(name, arg) {\n if (arg instanceof RegExp) {\n return x => String(x).match(arg);\n } else if (is_function(arg)) {\n // it will always be function\n return arg;\n }\n throw new Error('Invalid matcher');\n}\n// ----------------------------------------------------------------------\n// :: documentation decorator to LIPS functions if lines starts with :\n// :: they are ignored (not trim) otherwise it trim so\n// :: so you can have indent in source code\n// ----------------------------------------------------------------------\nfunction doc(name, fn, doc, dump) {\n if (typeof name !== 'string') {\n fn = arguments[0];\n doc = arguments[1];\n dump = arguments[2];\n name = null;\n }\n if (doc) {\n if (dump) {\n fn.__doc__ = doc;\n } else {\n fn.__doc__ = trim_lines(doc);\n }\n }\n if (name) {\n fn.__name__ = name;\n } else if (fn.name && !is_lambda(fn)) {\n fn.__name__ = fn.name;\n }\n return fn;\n}\n// ----------------------------------------------------------------------\nfunction trim_lines(string) {\n return string.split('\\n').map(line => {\n return line.trim();\n }).join('\\n');\n}\n// ----------------------------------------------------------------------\n// return last S-Expression\n// @param tokens - array of tokens (objects from tokenizer or strings)\n// @param sexp - number of expression to look behind\n// ----------------------------------------------------------------------\nfunction previousSexp(tokens, sexp = 1) {\n var i = tokens.length;\n if (sexp <= 0) {\n throw Error(`previousSexp: Invalid argument sexp = ${sexp}`);\n }\n outer: while (sexp-- && i >= 0) {\n var count = 1;\n while (count > 0) {\n var token = tokens[--i];\n if (!token) {\n break outer;\n }\n if (token === '(' || token.token === '(') {\n count--;\n } else if (token === ')' || token.token === ')') {\n count++;\n }\n }\n i--;\n }\n return tokens.slice(i + 1);\n}\n// ----------------------------------------------------------------------\n// :: find number of spaces in line\n// ----------------------------------------------------------------------\nfunction lineIndent(tokens) {\n if (!tokens || !tokens.length) {\n return 0;\n }\n var i = tokens.length;\n if (tokens[i - 1].token === '\\n') {\n return 0;\n }\n while (--i) {\n if (tokens[i].token === '\\n') {\n var token = (tokens[i + 1] || {}).token;\n if (token) {\n return token.length;\n }\n }\n }\n return 0;\n}\n// ----------------------------------------------------------------------\n// :: token based pattern matching (used by formatter)\n// ----------------------------------------------------------------------\n/*\n function nested_pattern(pattern) {\n return pattern instanceof Array ||\n pattern instanceof Pattern;\n }\n*/\n// ----------------------------------------------------------------------\nfunction match(pattern, input) {\n return inner_match(pattern, input) === input.length;\n function inner_match(pattern, input) {\n /*\n function empty_match() {\n if (p <= 0 && i <= 0) {\n return false;\n }\n var prev_pattern = pattern[p - 1];\n if (!nested_pattern(prev_pattern)) {\n prev_pattern = [prev_pattern];\n }\n var next_pattern = pattern[p + 1];\n if (next_pattern && !nested_pattern(next_pattern)) {\n next_pattern = [next_pattern];\n }\n return match(prev_pattern, [input[i - 1]]) &&\n (!next_pattern || match(next_pattern, [input[i]]));\n }\n */\n function get_first_match(patterns, input) {\n for (let p of patterns) {\n const m = inner_match(p, input);\n if (m !== -1) {\n return m;\n }\n }\n return -1;\n }\n function not_symbol_match() {\n return pattern[p] === Symbol.for('symbol') && !is_symbol_string(input[i]);\n }\n function match_next() {\n var next_pattern = pattern[p + 1];\n var next_input = input[i + 1];\n if (next_pattern !== undefined && next_input !== undefined) {\n return inner_match([next_pattern], [next_input]);\n }\n }\n var p = 0;\n var glob = {};\n for (var i = 0; i < input.length; ++i) {\n if (typeof pattern[p] === 'undefined') {\n return i;\n }\n if (pattern[p] instanceof Pattern) {\n var m;\n if (['+', '*'].includes(pattern[p].flag)) {\n while (i < input.length) {\n m = get_first_match(pattern[p].patterns, input.slice(i));\n if (m === -1) {\n break;\n }\n i += m;\n }\n i -= 1;\n p++;\n continue;\n } else if (pattern[p].flag === '?') {\n m = get_first_match(pattern[p].patterns, input.slice(i));\n if (m === -1) {\n i -= 2; // if not found use same test on same input again\n } else {\n p++;\n }\n continue;\n }\n } else if (pattern[p] instanceof RegExp) {\n if (!input[i].match(pattern[p])) {\n return -1;\n }\n } else if (lips.LString.isString(pattern[p])) {\n if (pattern[p].valueOf() !== input[i]) {\n return -1;\n }\n } else if (typeof pattern[p] === 'symbol') {\n if (pattern[p] === Symbol.for('*')) {\n // ignore S-expressions inside for case when next pattern is )\n glob[p] = glob[p] || 0;\n //var zero_match = empty_match();\n if (['(', '['].includes(input[i])) {\n glob[p]++;\n } else if ([')', ']'].includes(input[i])) {\n glob[p]--;\n }\n if ((typeof pattern[p + 1] !== 'undefined' &&\n glob[p] === 0 && match_next() === -1) ||\n glob[p] > 0) {\n continue;\n }\n } else if (not_symbol_match()) {\n return -1;\n }\n } else if (pattern[p] instanceof Array) {\n var inc = inner_match(pattern[p], input.slice(i));\n if (inc === -1 || inc + i > input.length) {\n // if no more input it's not match\n return -1;\n }\n i += inc - 1;\n p++;\n continue;\n } else {\n return -1;\n }\n p++;\n }\n if (pattern.length !== p) {\n // if there are still patterns it's not match\n return -1;\n }\n return input.length;\n }\n}\n// ----------------------------------------------------------------------\n// :: Code formatter class\n// :: based on http://community.schemewiki.org/?scheme-style\n// :: and GNU Emacs scheme mode\n// :: it rely on meta data from tokenizer function\n// ----------------------------------------------------------------------\nfunction Formatter(code) {\n this.__code__ = code.replace(/\\r/g, '');\n}\n// ----------------------------------------------------------------------\nFormatter.defaults = {\n offset: 0,\n indent: 2,\n exceptions: {\n specials: [\n /* eslint-disable max-len */\n /^(?:#:)?(?:define(?:-values|-syntax|-macro|-class|-record-type)?|(?:call-with-(?:input-file|output-file|port))|lambda|let-env|try|catch|when|unless|while|syntax-rules|(let|letrec)(-syntax|\\*)?)$/\n /* eslint-enable */\n ],\n shift: {\n 1: ['&', '#']\n }\n }\n};\nFormatter.match = match;\n// ----------------------------------------------------------------------\n// :: return indent for next line\n// ----------------------------------------------------------------------\nFormatter.prototype._options = function _options(options) {\n var defaults = Formatter.defaults;\n if (typeof options === 'undefined') {\n return Object.assign({}, defaults);\n }\n var exceptions = options && options.exceptions || {};\n var specials = exceptions.specials || [];\n var shift = exceptions.shift || { 1: [] };\n return {\n ...defaults,\n ...options,\n exceptions: {\n specials: [...defaults.exceptions.specials, ...specials],\n shift: {\n ...shift,\n 1: [...defaults.exceptions.shift[1], ...shift[1]]\n }\n }\n };\n};\n// ----------------------------------------------------------------------\nFormatter.prototype.indent = function indent(options) {\n var tokens = tokenize(this.__code__, true);\n return this._indent(tokens, options);\n};\n// ----------------------------------------------------------------------\nFormatter.exception_shift = function(token, settings) {\n function match(list) {\n if (!list.length) {\n return false;\n }\n if (list.indexOf(token) !== -1) {\n return true;\n } else {\n var regexes = list.filter(s => s instanceof RegExp);\n if (!regexes.length) {\n return false;\n }\n for (let re of regexes) {\n if (token.match(re)) {\n return true;\n }\n }\n }\n return false;\n }\n if (match(settings.exceptions.specials)) {\n return settings.indent;\n }\n var shift = settings.exceptions.shift;\n for (var [indent, tokens] of Object.entries(shift)) {\n if (match(tokens)) {\n return +indent;\n }\n }\n return -1;\n};\n// ----------------------------------------------------------------------\nFormatter.prototype._indent = function _indent(tokens, options) {\n var settings = this._options(options);\n var spaces = lineIndent(tokens);\n var sexp = previousSexp(tokens);\n // one character before S-Expression\n var before_sexpr = tokens[tokens.length - sexp.length - 1];\n var last = tokens[tokens.length - 1];\n if (last.token.match(/^\"[\\S\\s]+[^\"]$/)) {\n return spaces + settings.indent;\n }\n if (sexp && sexp.length) {\n if (sexp[0].line > 0) {\n settings.offset = 0;\n }\n if (sexp.toString() === tokens.toString() && balanced(sexp)) {\n return settings.offset + sexp[0].col;\n } else if (sexp.length === 1) {\n return settings.offset + sexp[0].col + 1;\n } else {\n // search for token before S-Expression for case like #(10 or &(:x\n var exeption = -1;\n if (before_sexpr) {\n var shift = Formatter.exception_shift(before_sexpr.token, settings);\n if (shift !== -1) {\n exeption = shift;\n }\n }\n if (exeption === -1) {\n exeption = Formatter.exception_shift(sexp[1].token, settings);\n }\n if (exeption !== -1) {\n return settings.offset + sexp[0].col + exeption;\n } else if (sexp[0].line < sexp[1].line) {\n return settings.offset + sexp[0].col + 1;\n } else if (sexp.length > 3 && sexp[1].line === sexp[3].line) {\n if (sexp[1].token === '(' || sexp[1].token === '[') {\n return settings.offset + sexp[1].col;\n }\n return settings.offset + sexp[3].col;\n } else if (sexp[0].line === sexp[1].line) {\n return settings.offset + settings.indent + sexp[0].col;\n } else {\n var next_tokens = sexp.slice(2);\n for (var i = 0; i < next_tokens.length; ++i) {\n var token = next_tokens[i];\n if (token.token.trim()) {\n return token.col;\n }\n }\n }\n }\n } else {\n return 0;\n }\n return spaces + settings.indent;\n};\n// ----------------------------------------------------------------------\nfunction Ahead(pattern) {\n this.pattern = pattern;\n}\n// TODO: make it print\nAhead.prototype.toString = function() {\n return `#`;\n};\n// ----------------------------------------------------------------------\nAhead.prototype.match = function(string) {\n return string.match(this.pattern);\n};\n// ----------------------------------------------------------------------\n// Pattern have any number of patterns that is match using OR operator\n// pattern is in form of array with regular expressions\n// ----------------------------------------------------------------------\nfunction Pattern(...args) {\n var flag = args.pop();\n this.patterns = args;\n this.flag = flag;\n}\nPattern.prototype.toString = function() {\n var patterns = this.patterns.map(x => toString(x)).join('|');\n return `#`;\n};\n// ----------------------------------------------------------------------\nFormatter.Pattern = Pattern;\nFormatter.Ahead = Ahead;\nvar p_o = /^[[(]$/;\nvar p_e = /^[\\])]$/;\nvar not_p = /[^()[\\]]/;\nconst not_close = new Ahead(/[^)\\]]/);\n//const open = new Ahead(/[([]/);\nconst glob = Symbol.for('*');\nconst sexp_or_atom = new Pattern([p_o, glob, p_e], [not_p], '+');\nconst sexp = new Pattern([p_o, glob, p_e], '+');\nconst symbol = new Pattern([Symbol.for('symbol')], '?');\nconst symbols = new Pattern([Symbol.for('symbol')], '*');\nconst identifiers = [p_o, symbols, p_e];\nconst let_value = new Pattern([p_o, Symbol.for('symbol'), glob, p_e], '+');\n// rules for breaking S-Expressions into lines\nvar def_lambda_re = keywords_re('define', 'lambda', 'define-macro', 'syntax-rules');\n/* eslint-disable max-len */\nvar non_def = /^(?!.*\\b(?:[()[\\]]|define(?:-macro)?|let(?:\\*|rec|-env|-syntax|)?|lambda|syntax-rules)\\b).*$/;\n/* eslint-enable */\nvar let_re = /^(?:#:)?(let(?:\\*|rec|-env|-syntax)?)$/;\n// match keyword if it's normal token or gensym (prefixed with #:)\nfunction keywords_re(...args) {\n return new RegExp(`^(?:#:)?(?:${args.join('|')})$`);\n}\n// line breaking rules\nFormatter.rules = [\n [[sexp], 0, not_close],\n [[p_o, keywords_re('begin', 'cond-expand')], 1],\n [[p_o, let_re, symbol, p_o, let_value, p_e], 1],\n [[p_o, let_re, symbol, sexp_or_atom], 1, not_close],\n [[p_o, let_re, p_o, let_value], 1, not_close],\n //--[[p_o, keywords_re('define-syntax'), /.+/], 1],\n [[p_o, non_def, new Pattern([/[^()[\\]]/], '+'), sexp], 1, not_close],\n [[p_o, sexp], 1, not_close],\n [[p_o, not_p, sexp], 1, not_close],\n [[p_o, keywords_re('lambda', 'if'), not_p], 1, not_close],\n [[p_o, keywords_re('while'), not_p, sexp], 1, not_close],\n [[p_o, keywords_re('if'), not_p, glob], 1],\n [[p_o, def_lambda_re, identifiers], 0, not_close],\n [[p_o, def_lambda_re, identifiers, string_re], 0, not_close],\n [[p_o, def_lambda_re, identifiers, string_re, sexp], 0, not_close],\n [[p_o, def_lambda_re, identifiers, sexp], 0, not_close]\n];\n// ----------------------------------------------------------------------\nFormatter.prototype.break = function() {\n var code = this.__code__.replace(/\\n[ \\t]*/g, '\\n ').replace(/^\\s+/, '');\n // function that work when calling tokenize with meta data or not\n const token = t => {\n if (t.token.match(string_re) || t.token.match(re_re)) {\n return t.token;\n } else {\n return t.token.replace(/\\s+/, ' ');\n }\n };\n const first_token_index = tokens => {\n for (let i = tokens.length; i--;) {\n const token = tokens[i];\n if (token.trim() && !is_special(token)) {\n return tokens.length - i - 1;\n }\n }\n };\n // tokenize is part of the parser/lexer that split code into tokens and include\n // meta data like number of column or line\n var tokens = tokenize(code, true).map(token).filter(t => t !== '\\n');\n const { rules } = Formatter;\n outer: for (let i = 1; i < tokens.length; ++i) {\n if (!tokens[i].trim()) {\n continue;\n }\n var sub = tokens.slice(0, i);\n var sexp = {};\n rules.map(b => b[1]).forEach(count => {\n count = count.valueOf();\n // some patterns require to check what was before like\n // if inside let binding\n if (count > 0 && !sexp[count]) {\n sexp[count] = previousSexp(sub, count);\n }\n });\n for (let [pattern, count, ext] of rules) {\n count = count.valueOf();\n // 0 count mean ignore the previous S-Expression\n var test_sexp = count > 0 ? sexp[count] : sub;\n const input = test_sexp.filter(t => t.trim() && !is_special(t));\n const inc = first_token_index(test_sexp);\n var m = match(pattern, input);\n var next = tokens.slice(i).find(t => t.trim() && !is_special(t));\n if (m && (ext instanceof Ahead && ext.match(next) || !ext)) {\n const index = i - inc;\n if (tokens[index] !== '\\n') {\n if (!tokens[index].trim()) {\n tokens[index] = '\\n';\n } else {\n tokens.splice(index, 0, '\\n');\n i++;\n }\n }\n i += inc;\n continue outer;\n }\n }\n }\n this.__code__ = tokens.join('');\n return this;\n};\n// ----------------------------------------------------------------------\nFormatter.prototype._spaces = function(i) {\n return new Array(i + 1).join(' ');\n};\n// ----------------------------------------------------------------------\n// :: auto formatting of code, it require to have newlines\n// ----------------------------------------------------------------------\nFormatter.prototype.format = function format(options) {\n // prepare code with single space after newline\n // so we have space token to align\n var code = this.__code__.replace(/[ \\t]*\\n[ \\t]*/g, '\\n ');\n var tokens = tokenize(code, true);\n var settings = this._options(options);\n var indent = 0;\n var offset = 0;\n for (var i = 0; i < tokens.length; ++i) {\n var token = tokens[i];\n if (token.token === '\\n') {\n indent = this._indent(tokens.slice(0, i), settings);\n offset += indent;\n if (tokens[i + 1]) {\n tokens[i + 1].token = this._spaces(indent);\n // because we have single space as initial indent\n indent--;\n offset--;\n for (var j = i + 2; j < tokens.length; ++j) {\n tokens[j].offset += offset;\n tokens[j].col += indent;\n if (tokens[j].token === '\\n') {\n // ++i is called after the loop\n i = j - 1;\n break;\n }\n }\n }\n }\n }\n return tokens.map(token => {\n if (token.token.match(string_re)) {\n if (token.token.match(/\\n/)) {\n var spaces = new Array(token.col + 1).join(' ');\n var lines = token.token.split('\\n');\n token.token = [lines[0]].concat(lines.slice(1).map(line => {\n return spaces + line;\n })).join('\\n');\n }\n }\n return token.token;\n }).join('');\n};\n// ----------------------------------------------------------------------\n// :: flatten nested arrays\n// :: ref: https://stackoverflow.com/a/27282907/387194\n// ----------------------------------------------------------------------\nfunction flatten(array, mutable) {\n var toString = Object.prototype.toString;\n var arrayTypeStr = '[object Array]';\n\n var result = [];\n var nodes = (mutable && array) || array.slice();\n var node;\n\n if (!array.length) {\n return result;\n }\n\n node = nodes.pop();\n\n do {\n if (toString.call(node) === arrayTypeStr) {\n nodes.push.apply(nodes, node);\n } else {\n result.push(node);\n }\n } while (nodes.length && (node = nodes.pop()) !== undefined);\n\n result.reverse(); // we reverse result to restore the original order\n return result;\n}\n// ----------------------------------------------------------------------\n// :: Nil constructor with only once instance\n// ----------------------------------------------------------------------\nfunction Nil() {}\nNil.prototype.toString = function() {\n return '()';\n};\nNil.prototype.valueOf = function() {\n return undefined;\n};\nNil.prototype.serialize = function() {\n return 0;\n};\nNil.prototype.to_object = function() {\n return {};\n};\nNil.prototype.append = function(x) {\n return new Pair(x, nil);\n};\nNil.prototype.to_array = function() {\n return [];\n};\nvar nil = new Nil();\n// ----------------------------------------------------------------------\n// :: Pair constructor\n// ----------------------------------------------------------------------\nfunction Pair(car, cdr) {\n if (typeof this !== 'undefined' && this.constructor !== Pair ||\n typeof this === 'undefined') {\n return new Pair(car, cdr);\n }\n this.car = car;\n this.cdr = cdr;\n}\n// ----------------------------------------------------------------------\nfunction to_array(name, deep) {\n return function recur(list) {\n typecheck(name, list, ['pair', 'nil']);\n if (list === nil) {\n return [];\n }\n var result = [];\n var node = list;\n while (true) {\n if (node instanceof Pair) {\n if (node.haveCycles('cdr')) {\n break;\n }\n var car = node.car;\n if (deep && car instanceof Pair) {\n car = this.get(name).call(this, car);\n }\n result.push(car);\n node = node.cdr;\n } else if (node === nil) {\n break;\n } else {\n throw new Error(`${name}: can't convert improper list`);\n }\n }\n return result;\n };\n}\n// ----------------------------------------------------------------------\nPair.prototype.flatten = function() {\n return Pair.fromArray(flatten(this.to_array()));\n};\n// ----------------------------------------------------------------------\nPair.prototype.length = function() {\n var len = 0;\n var node = this;\n while (true) {\n if (!node || node === nil || !(node instanceof Pair) ||\n node.haveCycles('cdr')) {\n break;\n }\n len++;\n node = node.cdr;\n }\n return len;\n};\n// ----------------------------------------------------------------------\nPair.match = function(obj, item) {\n if (obj instanceof LSymbol) {\n return LSymbol.is(obj, item);\n } else if (obj instanceof Pair) {\n return Pair.match(obj.car, item) || Pair.match(obj.cdr, item);\n } else if (Array.isArray(obj)) {\n return obj.some(x => {\n return Pair.match(x, item);\n });\n } else if (is_plain_object(obj)) {\n return Object.values(obj).some(x => {\n return Pair.match(x, item);\n });\n }\n return false;\n};\n// ----------------------------------------------------------------------\nPair.prototype.find = function(item) {\n return Pair.match(this, item);\n};\n\n// ----------------------------------------------------------------------\nPair.prototype.clone = function(deep = true) {\n var visited = new Map();\n function clone(node) {\n if (node instanceof Pair) {\n if (visited.has(node)) {\n return visited.get(node);\n }\n var pair = new Pair();\n visited.set(node, pair);\n if (deep) {\n pair.car = clone(node.car);\n } else {\n pair.car = node.car;\n }\n pair.cdr = clone(node.cdr);\n pair[__cycles__] = node[__cycles__];\n return pair;\n }\n return node;\n }\n return clone(this);\n};\n\n// ----------------------------------------------------------------------\nPair.prototype.last_pair = function() {\n let node = this;\n while (true) {\n if (node.cdr === nil) {\n return node;\n }\n node = node.cdr;\n }\n};\n\n// ----------------------------------------------------------------------\nPair.prototype.to_array = function(deep = true) {\n var result = [];\n if (this.car instanceof Pair) {\n if (deep) {\n result.push(this.car.to_array());\n } else {\n result.push(this.car);\n }\n } else {\n result.push(this.car.valueOf());\n }\n if (this.cdr instanceof Pair) {\n result = result.concat(this.cdr.to_array());\n }\n return result;\n};\n\n// ----------------------------------------------------------------------\nPair.fromArray = function(array, deep = true, quote = false) {\n if (array instanceof Pair || quote && array instanceof Array && array[__data__]) {\n return array;\n }\n if (deep === false) {\n var list = nil;\n for (let i = array.length; i--;) {\n list = new Pair(array[i], list);\n }\n return list;\n }\n if (array.length && !(array instanceof Array)) {\n array = [...array];\n }\n var result = nil;\n var i = array.length;\n while (i--) {\n let car = array[i];\n if (car instanceof Array) {\n car = Pair.fromArray(car, deep, quote);\n } else if (typeof car === 'string') {\n car = LString(car);\n } else if (typeof car === 'number' && !Number.isNaN(car)) {\n car = LNumber(car);\n }\n result = new Pair(car, result);\n }\n return result;\n};\n\n// ----------------------------------------------------------------------\n// by default to_object was created to create JavaScript objects,\n// so it use valueOf to get native values\n// literal parameter was a hack to allow create LComplex from LIPS code\n// ----------------------------------------------------------------------\nPair.prototype.to_object = function(literal = false) {\n var node = this;\n var result = {};\n while (true) {\n if (node instanceof Pair && node.car instanceof Pair) {\n var pair = node.car;\n var name = pair.car;\n if (name instanceof LSymbol) {\n name = name.__name__;\n }\n if (name instanceof LString) {\n name = name.valueOf();\n }\n var cdr = pair.cdr;\n if (cdr instanceof Pair) {\n cdr = cdr.to_object(literal);\n }\n if (is_native(cdr)) {\n if (!literal) {\n cdr = cdr.valueOf();\n }\n }\n result[name] = cdr;\n node = node.cdr;\n } else {\n break;\n }\n }\n return result;\n};\n\n// ----------------------------------------------------------------------\nPair.fromPairs = function(array) {\n return array.reduce((list, pair) => {\n return new Pair(\n new Pair(\n new LSymbol(pair[0]),\n pair[1]\n ),\n list\n );\n }, nil);\n};\n\n// ----------------------------------------------------------------------\nPair.fromObject = function(obj) {\n var array = Object.keys(obj).map((key) => [key, obj[key]]);\n return Pair.fromPairs(array);\n};\n\n// ----------------------------------------------------------------------\nPair.prototype.reduce = function(fn) {\n var node = this;\n var result = nil;\n while (true) {\n if (node !== nil) {\n result = fn(result, node.car);\n node = node.cdr;\n } else {\n break;\n }\n }\n return result;\n};\n\n// ----------------------------------------------------------------------\nPair.prototype.reverse = function() {\n if (this.haveCycles()) {\n throw new Error(\"You can't reverse list that have cycles\");\n }\n var node = this;\n var prev = nil;\n while (node !== nil) {\n var next = node.cdr;\n node.cdr = prev;\n prev = node;\n node = next;\n }\n return prev;\n};\n\n// ----------------------------------------------------------------------\nPair.prototype.transform = function(fn) {\n var visited = [];\n function recur(pair) {\n if (pair instanceof Pair) {\n if (pair.replace) {\n delete pair.replace;\n return pair;\n }\n var car = fn(pair.car);\n if (car instanceof Pair) {\n car = recur(car);\n visited.push(car);\n }\n var cdr = fn(pair.cdr);\n if (cdr instanceof Pair) {\n cdr = recur(cdr);\n visited.push(cdr);\n }\n return new Pair(car, cdr);\n }\n return pair;\n }\n return recur(this);\n};\n\n// ----------------------------------------------------------------------\nPair.prototype.map = function(fn) {\n if (typeof this.car !== 'undefined') {\n return new Pair(fn(this.car), this.cdr === nil ? nil : this.cdr.map(fn));\n } else {\n return nil;\n }\n};\nvar repr = new Map();\n// ----------------------------------------------------------------------\nfunction is_plain_object(object) {\n return object && typeof object === 'object' && object.constructor === Object;\n}\n// ----------------------------------------------------------------------\nvar props = Object.getOwnPropertyNames(Array.prototype);\nvar array_methods = [];\nprops.forEach(x => {\n array_methods.push(Array[x], Array.prototype[x]);\n});\n// ----------------------------------------------------------------------\nfunction is_array_method(x) {\n x = unbind(x);\n return array_methods.includes(x);\n}\n// ----------------------------------------------------------------------\nfunction is_lips_function(x) {\n return is_function(x) && (is_lambda(x) || x.__doc__);\n}\n// ----------------------------------------------------------------------\nfunction user_repr(obj) {\n var constructor = obj.constructor || Object;\n var plain_object = is_plain_object(obj);\n var iterator = is_function(obj[Symbol.asyncIterator]) ||\n is_function(obj[Symbol.iterator]);\n var fn;\n if (repr.has(constructor)) {\n fn = repr.get(constructor);\n } else {\n repr.forEach(function(value, key) {\n key = unbind(key);\n // if key is Object it should only work for plain_object\n // because otherwise it will match every object\n // we don't use instanceof so it don't work for subclasses\n if (obj.constructor === key &&\n (key === Object && plain_object && !iterator || key !== Object)) {\n fn = value;\n }\n });\n }\n return fn;\n}\n// ----------------------------------------------------------------------\nvar str_mapping = new Map();\n[\n [true, '#t'],\n [false, '#f'],\n [null, 'null'],\n [undefined, '#']\n].forEach(([key, value]) => {\n str_mapping.set(key, value);\n});\n// ----------------------------------------------------------------------\n// :: debug function that can be used with JSON.stringify\n// :: that will show symbols\n// ----------------------------------------------------------------------\n/* istanbul ignore next */\nfunction symbolize(obj) {\n if (obj && typeof obj === 'object') {\n var result = {};\n const symbols = Object.getOwnPropertySymbols(obj);\n symbols.forEach((key) => {\n const name = key.toString()\n .replace(/Symbol\\(([^)]+)\\)/, '$1');\n result[name] = toString(obj[key]);\n });\n const props = Object.getOwnPropertyNames(obj);\n props.forEach(key => {\n const o = obj[key];\n if (o && typeof o === 'object' && o.constructor === Object) {\n result[key] = symbolize(o);\n } else {\n result[key] = toString(o);\n }\n });\n return result;\n }\n return obj;\n}\n// ----------------------------------------------------------------------\nfunction get_props(obj) {\n return Object.keys(obj).concat(Object.getOwnPropertySymbols(obj));\n}\n// ----------------------------------------------------------------------\nfunction has_own_function(obj, name) {\n return obj.hasOwnProperty(name) && is_function(obj.toString);\n}\n// ----------------------------------------------------------------------\nfunction function_to_string(fn) {\n if (is_native_function(fn)) {\n return '#';\n }\n const constructor = fn.prototype && fn.prototype.constructor;\n if (is_function(constructor) && is_lambda(constructor)) {\n if (fn[__class__] && constructor.hasOwnProperty('__name__')) {\n let name = constructor.__name__;\n if (LString.isString(name)) {\n name = name.toString();\n return `#`;\n }\n return '#';\n }\n }\n if (fn.hasOwnProperty('__name__')) {\n let name = fn.__name__;\n if (typeof name === 'symbol') {\n name = symbol_to_string(name);\n }\n if (typeof name === 'string') {\n return `#`;\n }\n }\n if (has_own_function(fn, 'toString')) {\n return fn.toString();\n } else if (fn.name && !is_lambda(fn)) {\n return `#`;\n } else {\n return '#';\n }\n}\n// ----------------------------------------------------------------------\n// instances extracted to make cyclomatic complexity of toString smaller\nconst instances = new Map();\n// ----------------------------------------------------------------------\n[\n [Error, function(e) {\n return e.message;\n }],\n [Pair, function(pair, { quote, skip_cycles, pair_args }) {\n // make sure that repr directly after update set the cycle ref\n if (!skip_cycles) {\n pair.markCycles();\n }\n return pair.toString(quote, ...pair_args);\n }],\n [LCharacter, function(chr, { quote }) {\n if (quote) {\n return chr.toString();\n }\n return chr.valueOf();\n }],\n [LString, function(str, { quote }) {\n str = str.toString();\n if (quote) {\n return JSON.stringify(str).replace(/\\\\n/g, '\\n');\n }\n return str;\n }],\n [RegExp, function(re) {\n return '#' + re.toString();\n }]\n].forEach(([cls, fn]) => {\n instances.set(cls, fn);\n});\n// ----------------------------------------------------------------------\nconst native_types = [\n LSymbol,\n LNumber,\n Macro,\n Values,\n InputPort,\n OutputPort,\n Environment,\n QuotedPromise\n];\n// ----------------------------------------------------------------------\nfunction toString(obj, quote, skip_cycles, ...pair_args) {\n if (typeof jQuery !== 'undefined' &&\n obj instanceof jQuery.fn.init) {\n return '#';\n }\n if (str_mapping.has(obj)) {\n return str_mapping.get(obj);\n }\n if (is_prototype(obj)) {\n return '#';\n }\n if (obj) {\n var cls = obj.constructor;\n if (instances.has(cls)) {\n return instances.get(cls)(obj, { quote, skip_cycles, pair_args });\n }\n }\n // standard objects that have toString\n for (let type of native_types) {\n if (obj instanceof type) {\n return obj.toString(quote);\n }\n }\n // constants\n if ([nil, eof].includes(obj)) {\n return obj.toString();\n }\n if (is_function(obj)) {\n return function_to_string(obj);\n }\n if (obj === root) {\n return '#';\n }\n if (obj === null) {\n return 'null';\n }\n if (typeof obj === 'object') {\n var constructor = obj.constructor;\n if (!constructor) {\n // this is case of fs.constants in Node.js that is null constructor object\n // this object can be handled like normal object that have properties\n constructor = Object;\n }\n var name;\n if (typeof constructor.__class__ === 'string') {\n name = constructor.__class__;\n } else {\n var fn = user_repr(obj);\n if (fn) {\n if (is_function(fn)) {\n return fn(obj, quote);\n } else {\n throw new Error('toString: Invalid repr value');\n }\n }\n name = constructor.name;\n }\n // user defined representation\n if (is_function(obj.toString) && is_lambda(obj.toString)) {\n return obj.toString().valueOf();\n }\n if (type(obj) === 'instance') {\n if (is_lambda(constructor) && constructor.__name__) {\n name = constructor.__name__.valueOf();\n } else if (!is_native_function(constructor)) {\n name = 'instance';\n }\n }\n if (is_iterator(obj, Symbol.iterator)) {\n if (name) {\n return `#`;\n }\n return '#';\n }\n if (is_iterator(obj, Symbol.asyncIterator)) {\n if (name) {\n return `#`;\n }\n return '#';\n }\n if (name !== '') {\n return '#<' + name + '>';\n }\n return '#';\n }\n if (typeof obj !== 'string') {\n return obj.toString();\n }\n return obj;\n}\n// ----------------------------------------------------------------------------\nfunction is_prototype(obj) {\n return obj &&\n typeof obj === 'object' &&\n obj.hasOwnProperty &&\n obj.hasOwnProperty(\"constructor\") &&\n typeof obj.constructor === \"function\" &&\n obj.constructor.prototype === obj;\n}\n// ----------------------------------------------------------------------------\nPair.prototype.markCycles = function() {\n markCycles(this);\n return this;\n};\n\n// ----------------------------------------------------------------------------\nPair.prototype.haveCycles = function(name = null) {\n if (!name) {\n return this.haveCycles('car') || this.haveCycles('cdr');\n }\n return !!(this[__cycles__] && this[__cycles__][name]);\n};\n\n// ----------------------------------------------------------------------------\nfunction markCycles(pair) {\n var seen_pairs = [];\n var cycles = [];\n var refs = [];\n function visit(pair) {\n if (!seen_pairs.includes(pair)) {\n seen_pairs.push(pair);\n }\n }\n function set(node, type, child, parents) {\n if (child instanceof Pair) {\n if (parents.includes(child)) {\n if (!refs.includes(child)) {\n refs.push(child);\n }\n if (!node[__cycles__]) {\n node[__cycles__] = {};\n }\n node[__cycles__][type] = child;\n if (!cycles.includes(node)) {\n cycles.push(node);\n }\n return true;\n }\n }\n }\n const detect = trampoline(function detect_thunk(pair, parents) {\n if (pair instanceof Pair) {\n delete pair.ref;\n delete pair[__cycles__];\n visit(pair);\n parents.push(pair);\n var car = set(pair, 'car', pair.car, parents);\n var cdr = set(pair, 'cdr', pair.cdr, parents);\n if (!car) {\n detect(pair.car, parents.slice());\n }\n if (!cdr) {\n return new Thunk(() => {\n return detect_thunk(pair.cdr, parents.slice());\n });\n }\n }\n });\n function mark_node(node, type) {\n if (node[__cycles__][type] instanceof Pair) {\n const count = ref_nodes.indexOf(node[__cycles__][type]);\n node[__cycles__][type] = `#${count}#`;\n }\n }\n detect(pair, []);\n var ref_nodes = seen_pairs.filter(node => refs.includes(node));\n ref_nodes.forEach((node, i) => {\n node[__ref__] = `#${i}=`;\n });\n cycles.forEach(node => {\n mark_node(node, 'car');\n mark_node(node, 'cdr');\n });\n}\n\n// ----------------------------------------------------------------------\n// trampoline based recursive pair to string that don't overflow the stack\n// ----------------------------------------------------------------------\n/* eslint-disable no-unused-vars */\n/* istanbul ignore next */\nconst pair_to_string = (function() {\n const prefix = (pair, nested) => {\n var result = [];\n if (pair[__ref__]) {\n result.push(pair[__ref__] + '(');\n } else if (!nested) {\n result.push('(');\n }\n return result;\n };\n const postfix = (pair, nested) => {\n if (!nested || pair[__ref__]) {\n return [')'];\n }\n return [];\n };\n return trampoline(function pairToString(pair, quote, extra = {}) {\n const {\n nested = false,\n result = [],\n cont = () => {\n result.push(...postfix(pair, nested));\n }\n } = extra;\n result.push(...prefix(pair, nested));\n let car;\n if (pair[__cycles__] && pair[__cycles__].car) {\n car = pair[__cycles__].car;\n } else {\n car = toString(pair.car, quote, true, { result, cont });\n }\n if (car !== undefined) {\n result.push(car);\n }\n return new Thunk(() => {\n if (pair.cdr instanceof Pair) {\n if (pair[__cycles__] && pair[__cycles__].cdr) {\n result.push(' . ');\n result.push(pair[__cycles__].cdr);\n } else {\n if (pair.cdr[__ref__]) {\n result.push(' . ');\n } else {\n result.push(' ');\n }\n return pairToString(pair.cdr, quote, {\n nested: true,\n result,\n cont\n });\n }\n } else if (pair.cdr !== nil) {\n result.push(' . ');\n result.push(toString(pair.cdr, quote));\n }\n }, cont);\n });\n})();\n\n// ----------------------------------------------------------------------\nPair.prototype.toString = function(quote, { nested = false } = {}) {\n var arr = [];\n if (this[__ref__]) {\n arr.push(this[__ref__] + '(');\n } else if (!nested) {\n arr.push('(');\n }\n var value;\n if (this[__cycles__] && this[__cycles__].car) {\n value = this[__cycles__].car;\n } else {\n value = toString(this.car, quote, true);\n }\n if (value !== undefined) {\n arr.push(value);\n }\n if (this.cdr instanceof Pair) {\n if (this[__cycles__] && this[__cycles__].cdr) {\n arr.push(' . ');\n arr.push(this[__cycles__].cdr);\n } else {\n if (this.cdr[__ref__]) {\n arr.push(' . ');\n } else {\n arr.push(' ');\n }\n const cdr = this.cdr.toString(quote, { nested: true });\n arr.push(cdr);\n }\n } else if (this.cdr !== nil) {\n arr = arr.concat([' . ', toString(this.cdr, quote, true)]);\n }\n if (!nested || this[__ref__]) {\n arr.push(')');\n }\n return arr.join('');\n};\n\n// ----------------------------------------------------------------------\nPair.prototype.set = function(prop, value) {\n this[prop] = value;\n if (value instanceof Pair) {\n this.markCycles();\n }\n};\n\n// ----------------------------------------------------------------------\nPair.prototype.append = function(arg) {\n if (arg instanceof Array) {\n return this.append(Pair.fromArray(arg));\n }\n var p = this;\n if (p.car === undefined) {\n if (arg instanceof Pair) {\n this.car = arg.car;\n this.cdr = arg.cdr;\n } else {\n this.car = arg;\n }\n } else if (arg !== nil) {\n while (true) {\n if (p instanceof Pair && p.cdr !== nil) {\n p = p.cdr;\n } else {\n break;\n }\n }\n p.cdr = arg;\n }\n return this;\n};\n// ----------------------------------------------------------------------\nPair.prototype.serialize = function() {\n return [\n this.car,\n this.cdr\n ];\n};\n// ----------------------------------------------------------------------\n// :: List iterator (for do-iterator macro)\n// ----------------------------------------------------------------------\nPair.prototype[Symbol.iterator] = function() {\n var node = this;\n return {\n next: function() {\n var cur = node;\n node = cur.cdr;\n if (cur === nil) {\n return { value: undefined, done: true };\n } else {\n return { value: cur.car, done: false };\n }\n }\n };\n};\n// ----------------------------------------------------------------------\n// :: abs that work on BigInt\n// ----------------------------------------------------------------------\nfunction abs(x) {\n return x < 0 ? -x : x;\n}\n// ----------------------------------------------------------------------\nfunction seq_compare(fn, args) {\n var [a, ...rest] = args;\n while (rest.length > 0) {\n var [b] = rest;\n if (!fn(a, b)) {\n return false;\n }\n [a, ...rest] = rest;\n }\n return true;\n}\n\n// ----------------------------------------------------------------------\nfunction equal(x, y) {\n if (is_function(x)) {\n return is_function(y) && unbind(x) === unbind(y);\n } else if (x instanceof LNumber) {\n if (!(y instanceof LNumber)) {\n return false;\n }\n let type;\n if (x.__type__ === y.__type__) {\n if (x.__type__ === 'complex') {\n type = x.__im__.__type__ === y.__im__.__type__ &&\n x.__re__.__type__ === y.__re__.__type__;\n } else {\n type = true;\n }\n if (type && x.cmp(y) === 0) {\n if (x.valueOf() === 0) {\n return Object.is(x.valueOf(), y.valueOf());\n }\n return true;\n }\n }\n return false;\n } else if (typeof x === 'number') {\n if (typeof y !== 'number') {\n return false;\n }\n if (Number.isNaN(x)) {\n return Number.isNaN(y);\n }\n if (x === Number.NEGATIVE_INFINITY) {\n return y === Number.NEGATIVE_INFINITY;\n }\n if (x === Number.POSITIVE_INFINITY) {\n return y === Number.POSITIVE_INFINITY;\n }\n return equal(LNumber(x), LNumber(y));\n } else if (x instanceof LCharacter) {\n if (!(y instanceof LCharacter)) {\n return false;\n }\n return x.__char__ === y.__char__;\n } else {\n return x === y;\n }\n}\n// ----------------------------------------------------------------------\nfunction same_atom(a, b) {\n if (type(a) !== type(b)) {\n return false;\n }\n if (!is_atom(a)) {\n return false;\n }\n if (a instanceof RegExp) {\n return a.source === b.source;\n }\n if (a instanceof LString) {\n return a.valueOf() === b.valueOf();\n }\n return equal(a, b);\n}\n// ----------------------------------------------------------------------\nfunction is_atom(obj) {\n return obj instanceof LSymbol ||\n LString.isString(obj) ||\n obj === nil ||\n obj === null ||\n obj instanceof LCharacter ||\n obj instanceof LNumber ||\n obj === true ||\n obj === false;\n}\n// ----------------------------------------------------------------------\nvar truncate = (function() {\n if (Math.trunc) {\n return Math.trunc;\n } else {\n return function(x) {\n if (x === 0) {\n return 0;\n } else if (x < 0) {\n return Math.ceil(x);\n } else {\n return Math.floor(x);\n }\n };\n }\n})();\n// ----------------------------------------------------------------------\n// :: Macro constructor\n// ----------------------------------------------------------------------\nfunction Macro(name, fn, doc, dump) {\n if (typeof this !== 'undefined' && this.constructor !== Macro ||\n typeof this === 'undefined') {\n return new Macro(name, fn);\n }\n typecheck('Macro', name, 'string', 1);\n typecheck('Macro', fn, 'function', 2);\n if (doc) {\n if (dump) {\n this.__doc__ = doc;\n } else {\n this.__doc__ = trim_lines(doc);\n }\n }\n this.__name__ = name;\n this.__fn__ = fn;\n}\n// ----------------------------------------------------------------------\nMacro.defmacro = function(name, fn, doc, dump) {\n var macro = new Macro(name, fn, doc, dump);\n macro.__defmacro__ = true;\n return macro;\n};\n// ----------------------------------------------------------------------\nMacro.prototype.invoke = function(code, { env, dynamic_scope, error }, macro_expand) {\n var args = {\n dynamic_scope,\n error,\n macro_expand\n };\n var result = this.__fn__.call(env, code, args, this.__name__);\n return result;\n //return macro_expand ? quote(result) : result;\n};\n// ----------------------------------------------------------------------\nMacro.prototype.toString = function() {\n return `#`;\n};\n// ----------------------------------------------------------------------\nconst macro = 'define-macro';\n// ----------------------------------------------------------------------\nconst recur_guard = -10000;\nfunction macro_expand(single) {\n return async function(code, args) {\n var env = args['env'] = this;\n var bindings = [];\n var let_macros = ['let', 'let*', 'letrec'];\n var lambda = global_env.get('lambda');\n var define = global_env.get('define');\n function is_let_macro(symbol) {\n var name = symbol.valueOf();\n return let_macros.includes(name);\n }\n function is_procedure(value, node) {\n return value === define && node.cdr.car instanceof Pair;\n }\n function is_lambda(value) {\n return value === lambda;\n }\n function proc_bindings(node) {\n var names = [];\n while (true) {\n if (node !== nil) {\n if (node instanceof LSymbol) {\n names.push(node.valueOf());\n break;\n }\n names.push(node.car.valueOf());\n node = node.cdr;\n } else {\n break;\n }\n }\n return [...bindings, ...names];\n }\n function let_binding(node) {\n return [...bindings, ...node.to_array(false).map(function(node) {\n if (node instanceof Pair) {\n return node.car.valueOf();\n }\n throw new Error('macroexpand: Invalid let binding');\n })];\n }\n function is_macro(name, value) {\n return value instanceof Macro &&\n value.__defmacro__ &&\n !bindings.includes(name);\n }\n async function expand_let_binding(node, n) {\n if (node === nil) {\n return nil;\n }\n var pair = node.car;\n return new Pair(\n new Pair(\n pair.car,\n await traverse(pair.cdr, n, env)\n ),\n await expand_let_binding(node.cdr)\n );\n }\n async function traverse(node, n, env) {\n if (node instanceof Pair && node.car instanceof LSymbol) {\n if (node[__data__]) {\n return node;\n }\n var name = node.car.valueOf();\n var value = env.get(node.car, { throwError: false });\n var is_let = is_let_macro(node.car);\n\n var is_binding = is_let ||\n is_procedure(value, node) ||\n is_lambda(value);\n\n if (is_binding && node.cdr.car instanceof Pair) {\n var second;\n if (is_let) {\n bindings = let_binding(node.cdr.car);\n second = await expand_let_binding(node.cdr.car, n);\n } else {\n bindings = proc_bindings(node.cdr.car);\n second = node.cdr.car;\n }\n return new Pair(\n node.car,\n new Pair(\n second,\n await traverse(node.cdr.cdr, n, env)\n )\n );\n } else if (is_macro(name, value)) {\n var code = value instanceof Syntax ? node : node.cdr;\n var result = await value.invoke(code, { ...args, env }, true);\n if (value instanceof Syntax) {\n const { expr, scope } = result;\n if (expr instanceof Pair) {\n if (n !== -1 && n <= 1 || n < recur_guard) {\n return expr;\n }\n if (n !== -1) {\n n = n - 1;\n }\n return traverse(expr, n, scope);\n }\n result = expr;\n }\n if (result instanceof LSymbol) {\n return quote(result);\n }\n if (result instanceof Pair) {\n if (n !== -1 && n <= 1 || n < recur_guard) {\n return result;\n }\n if (n !== -1) {\n n = n - 1;\n }\n return traverse(result, n, env);\n }\n if (is_atom(result)) {\n return result;\n }\n }\n }\n // TODO: CYCLE DETECT\n var car = node.car;\n if (car instanceof Pair) {\n car = await traverse(car, n, env);\n }\n var cdr = node.cdr;\n if (cdr instanceof Pair) {\n cdr = await traverse(cdr, n, env);\n }\n var pair = new Pair(car, cdr);\n return pair;\n }\n //var this.__code__ = code;\n if (code.cdr instanceof Pair && LNumber.isNumber(code.cdr.car)) {\n return quote((await traverse(code, code.cdr.car.valueOf(), env)).car);\n }\n if (single) {\n return quote((await traverse(code, 1, env)).car);\n }\n return quote((await traverse(code, -1, env)).car);\n };\n}\n// ----------------------------------------------------------------------\n// TODO: Don't put Syntax as Macro they are not runtime\n// ----------------------------------------------------------------------\nfunction Syntax(fn, env) {\n this.__env__ = env;\n this.__fn__ = fn;\n // allow macroexpand\n this.__defmacro__ = true;\n}\nSyntax.__merge_env__ = Symbol.for('merge');\n// ----------------------------------------------------------------------\nSyntax.prototype = Object.create(Macro.prototype);\nSyntax.prototype.invoke = function(code, { error, env }, macro_expand) {\n var args = {\n error,\n env,\n dynamic_scope: this.__env__,\n macro_expand\n };\n return this.__fn__.call(env, code, args, this.__name__ || 'syntax');\n};\nSyntax.prototype.constructor = Syntax;\nSyntax.prototype.toString = function() {\n if (this.__name__) {\n return `#`;\n }\n return '#';\n};\nSyntax.className = 'syntax';\n// ----------------------------------------------------------------------\n// :: TODO: SRFI-139\n// ----------------------------------------------------------------------\nclass Parameter extends Syntax {\n}\nSyntax.Parameter = Parameter;\n// ----------------------------------------------------------------------\n// :: for usage in syntax-rule when pattern match it will return\n// :: list of bindings from code that match the pattern\n// :: TODO detect cycles\n// ----------------------------------------------------------------------\nfunction extract_patterns(pattern, code, symbols, ellipsis_symbol, scope = {}) {\n var bindings = {\n '...': {\n symbols: { }, // symbols ellipsis (x ...)\n lists: [ ]\n },\n symbols: { }\n };\n const { expansion, define } = scope;\n // pattern_names parameter is used to distinguish\n // multiple matches of ((x ...) ...) agains ((1 2 3) (1 2 3))\n // in loop we add x to the list so we know that this is not\n // duplicated ellipsis symbol\n function log(x) {\n /* istanbul ignore next */\n if (is_debug()) {\n console.log(x);\n }\n }\n log(symbols);\n /* eslint-disable complexity */\n function traverse(pattern, code, pattern_names = [], ellipsis = false) {\n log({\n code: code && toString(code, true),\n pattern: pattern && toString(pattern, true)\n });\n if (is_atom(pattern) && !(pattern instanceof LSymbol)) {\n return same_atom(pattern, code);\n }\n if (pattern instanceof LSymbol &&\n symbols.includes(pattern.literal())) {\n const ref = expansion.ref(code);\n // shadowing the identifier works only with lambda and let\n if (LSymbol.is(code, pattern)) {\n if (typeof ref === 'undefined') {\n return true;\n }\n return ref === define || ref === global_env;\n }\n return false;\n }\n // pattern (a b (x ...)) and (x ...) match nil\n if (pattern instanceof Pair &&\n pattern.car instanceof Pair &&\n pattern.car.cdr instanceof Pair &&\n LSymbol.is(pattern.car.cdr.car, ellipsis_symbol)) {\n log('>> 0');\n if (code === nil) {\n log({ pattern: pattern.toString() });\n if (pattern.car.car instanceof LSymbol) {\n if (pattern.car.cdr instanceof Pair &&\n LSymbol.is(pattern.car.cdr.car, ellipsis_symbol)) {\n let name = pattern.car.car.valueOf();\n const last = pattern.last_pair();\n if (LSymbol.is(last.car, ellipsis_symbol)) {\n bindings['...'].symbols[name] = null;\n return true;\n } else {\n return false;\n }\n }\n let name = pattern.car.car.valueOf();\n if (bindings['...'].symbols[name]) {\n throw new Error('syntax: named ellipsis can only ' +\n 'appear onces');\n }\n bindings['...'].symbols[name] = code;\n }\n }\n }\n if (pattern instanceof Pair &&\n pattern.cdr instanceof Pair &&\n LSymbol.is(pattern.cdr.car, ellipsis_symbol)) {\n // pattern (... ???) - SRFI-46\n if (pattern.cdr.cdr !== nil) {\n if (pattern.cdr.cdr instanceof Pair) {\n // if we have (x ... a b) we need to remove two from the end\n const list_len = pattern.cdr.cdr.length();\n let code_len = code.length();\n let list = code;\n while (code_len - 1 > list_len) {\n list = list.cdr;\n code_len--;\n }\n const rest = list.cdr;\n list.cdr = nil;\n if (!traverse(pattern.cdr.cdr, rest, pattern_names, ellipsis)) {\n return false;\n }\n }\n }\n if (pattern.car instanceof LSymbol) {\n let name = pattern.car.__name__;\n if (bindings['...'].symbols[name] &&\n !pattern_names.includes(name) && !ellipsis) {\n throw new Error('syntax: named ellipsis can only appear onces');\n }\n log('>> 1');\n if (code === nil) {\n log('>> 2');\n if (ellipsis) {\n log('NIL');\n bindings['...'].symbols[name] = nil;\n } else {\n log('NULL');\n bindings['...'].symbols[name] = null;\n }\n } else if (code instanceof Pair &&\n (code.car instanceof Pair || code.car === nil)) {\n log('>> 3 ' + ellipsis);\n if (ellipsis) {\n if (bindings['...'].symbols[name]) {\n let node = bindings['...'].symbols[name];\n if (node === nil) {\n node = new Pair(nil, new Pair(code, nil));\n } else {\n node = node.append(new Pair(code, nil));\n }\n bindings['...'].symbols[name] = node;\n } else {\n bindings['...'].symbols[name] = new Pair(code, nil);\n }\n } else {\n log('>> 4');\n bindings['...'].symbols[name] = new Pair(code, nil);\n }\n } else {\n log('>> 6');\n if (code instanceof Pair) {\n log('>> 7 ' + ellipsis);\n pattern_names.push(name);\n if (!bindings['...'].symbols[name]) {\n bindings['...'].symbols[name] = new Pair(\n code,\n nil\n );\n } else {\n const node = bindings['...'].symbols[name];\n bindings['...'].symbols[name] = node.append(\n new Pair(\n code,\n nil\n )\n );\n }\n log({ IIIIII: bindings['...'].symbols[name].toString() });\n } else {\n log('>> 8');\n return false;\n //bindings['...'].symbols[name] = code;\n }\n }\n return true;\n } else if (pattern.car instanceof Pair) {\n var names = [...pattern_names];\n if (code === nil) {\n log('>> 9');\n bindings['...'].lists.push(nil);\n return true;\n }\n log('>> 10');\n let node = code;\n while (node instanceof Pair) {\n if (!traverse(pattern.car, node.car, names, true)) {\n return false;\n }\n node = node.cdr;\n }\n return true;\n }\n return false;\n }\n if (pattern instanceof LSymbol) {\n if (LSymbol.is(pattern, ellipsis_symbol)) {\n throw new Error('syntax: invalid usage of ellipsis');\n }\n log('>> 11');\n const name = pattern.__name__;\n if (symbols.includes(name)) {\n return true;\n }\n log({ name, ellipsis });\n if (ellipsis) {\n bindings['...'].symbols[name] = bindings['...'].symbols[name] || [];\n bindings['...'].symbols[name].push(code);\n }\n bindings.symbols[name] = code;\n if (!bindings.symbols[name]) {\n }\n return true;\n }\n if (pattern instanceof Pair && code instanceof Pair) {\n log('>> 12');\n log({\n a: 12,\n code: code && code.toString(),\n pattern: pattern.toString()\n });\n if (code.cdr === nil) {\n // last item in in call using in recursive calls on\n // last element of the list\n // case of pattern (p . rest) and code (0)\n var rest_pattern = pattern.car instanceof LSymbol &&\n pattern.cdr instanceof LSymbol;\n if (rest_pattern) {\n // fix for SRFI-26 in recursive call of (b) ==> (<> . x)\n // where <> is symbol\n if (!traverse(pattern.car, code.car, pattern_names, ellipsis)) {\n return false;\n }\n log('>> 12 | 1');\n let name = pattern.cdr.valueOf();\n if (!(name in bindings.symbols)) {\n bindings.symbols[name] = nil;\n }\n name = pattern.car.valueOf();\n if (!(name in bindings.symbols)) {\n bindings.symbols[name] = code.car;\n }\n return true;\n }\n }\n log({\n pattern: pattern.toString(),\n code: code.toString()\n });\n // case (x y) ===> (var0 var1 ... warn) where var1 match nil\n if (pattern.cdr instanceof Pair &&\n pattern.car instanceof LSymbol &&\n pattern.cdr.cdr instanceof Pair &&\n pattern.cdr.car instanceof LSymbol &&\n LSymbol.is(pattern.cdr.cdr.car, ellipsis_symbol) &&\n pattern.cdr.cdr.cdr instanceof Pair &&\n !LSymbol.is(pattern.cdr.cdr.cdr.car, ellipsis_symbol) &&\n traverse(pattern.car, code.car, pattern_names, ellipsis) &&\n traverse(pattern.cdr.cdr.cdr, code.cdr, pattern_names, ellipsis)) {\n const name = pattern.cdr.car.__name__;\n log({\n pattern: pattern.car.toString(),\n code: code.car.toString(),\n name\n });\n if (symbols.includes(name)) {\n return true;\n }\n bindings['...'].symbols[name] = null;\n return true;\n }\n log('recur');\n if (traverse(pattern.car, code.car, pattern_names, ellipsis) &&\n traverse(pattern.cdr, code.cdr, pattern_names, ellipsis)) {\n return true;\n }\n } else if (pattern === nil && (code === nil || code === undefined)) {\n // undefined is case when you don't have body ...\n // and you do recursive call\n return true;\n } else if (pattern.car instanceof Pair &&\n LSymbol.is(pattern.car.car, ellipsis_symbol)) {\n // pattern (...)\n throw new Error('syntax: invalid usage of ellipsis');\n } else {\n return false;\n }\n }\n /* eslint-enable complexity */\n if (traverse(pattern, code)) {\n return bindings;\n }\n}\n// ----------------------------------------------------------------------\n// :: This function is called after syntax-rules macro is evaluated\n// :: and if there are any gensyms added by macro they need to restored\n// :: to original symbols\n// ----------------------------------------------------------------------\nfunction clear_gensyms(node, gensyms) {\n function traverse(node) {\n if (node instanceof Pair) {\n if (!gensyms.length) {\n return node;\n }\n const car = traverse(node.car);\n const cdr = traverse(node.cdr);\n // TODO: check if it's safe to modify the list\n // some funky modify of code can happen in macro\n return new Pair(car, cdr);\n } else if (node instanceof LSymbol) {\n var replacement = gensyms.find((gensym) => {\n return gensym.gensym === node;\n });\n if (replacement) {\n return LSymbol(replacement.name);\n }\n return node;\n } else {\n return node;\n }\n }\n return traverse(node);\n}\n// ----------------------------------------------------------------------\nfunction transform_syntax(options = {}) {\n const {\n bindings,\n expr,\n scope,\n symbols,\n names,\n ellipsis: ellipsis_symbol } = options;\n var gensyms = {};\n function valid_symbol(symbol) {\n if (symbol instanceof LSymbol) {\n return true;\n }\n return ['string', 'symbol'].includes(typeof symbol);\n }\n function transform(symbol) {\n if (!valid_symbol(symbol)) {\n const t = type(symbol);\n throw new Error(`syntax: internal error, need symbol got ${t}`);\n }\n const name = symbol.valueOf();\n if (name === ellipsis_symbol) {\n throw new Error('syntax: internal error, ellipis not transformed');\n }\n // symbols are gensyms from nested syntax-rules\n var n_type = typeof name;\n if (['string', 'symbol'].includes(n_type)) {\n if (name in bindings.symbols) {\n return bindings.symbols[name];\n } else if (n_type === 'string' && name.match(/\\./)) {\n // calling method on pattern symbol #83\n const parts = name.split('.');\n const first = parts[0];\n if (first in bindings.symbols) {\n return Pair.fromArray([\n LSymbol('.'),\n bindings.symbols[first]\n ].concat(parts.slice(1).map(x => LString(x))));\n }\n }\n }\n if (symbols.includes(name)) {\n return LSymbol(name);\n }\n return rename(name);\n }\n function log(x) {\n /* istanbul ignore next */\n if (is_debug()) {\n console.log(x);\n }\n }\n function rename(name) {\n if (!gensyms[name]) {\n var ref = scope.ref(name);\n const gensym_name = gensym(name);\n if (ref) {\n const value = scope.get(name);\n scope.set(gensym_name, value);\n } else {\n const value = scope.get(name, { throwError: false });\n // value is not in scope, but it's JavaScript object\n if (typeof value !== 'undefined') {\n scope.set(gensym_name, value);\n }\n }\n // keep names so they can be restored after evaluation\n // if there are free symbols as output\n // kind of hack\n names.push({\n name, gensym: gensym_name\n });\n gensyms[name] = gensym_name;\n // we need to check if name is a string, because it can be\n // gensym from nested syntax-rules\n if (typeof name === 'string' && name.match(/\\./)) {\n const [first, ...rest] = name.split('.').filter(Boolean);\n // save JavaScript dot notation for Env::get\n if (gensyms[first]) {\n hidden_prop(gensym_name, '__object__', [gensyms[first], ...rest]);\n }\n }\n }\n return gensyms[name];\n }\n function transform_ellipsis_expr(expr, bindings, state, next = () => {}) {\n const { nested } = state;\n log(' ==> ' + expr.toString(true));\n log(bindings);\n if (expr instanceof LSymbol) {\n const name = expr.valueOf();\n log('[t 1');\n if (bindings[name]) {\n if (bindings[name] instanceof Pair) {\n const { car, cdr } = bindings[name];\n if (nested) {\n const { car: caar, cdr: cadr } = car;\n if (cadr !== nil) {\n next(name, new Pair(cadr, nil));\n }\n return caar;\n }\n if (cdr !== nil) {\n next(name, cdr);\n }\n return car;\n } else if (bindings[name] instanceof Array) {\n next(name, bindings[name].slice(1));\n return bindings[name][0];\n }\n }\n return transform(name);\n }\n if (expr instanceof Pair) {\n if (expr.car instanceof LSymbol &&\n expr.cdr instanceof Pair &&\n LSymbol.is(expr.cdr.car, ellipsis_symbol)) {\n log('[t 2');\n const name = expr.car.valueOf();\n const item = bindings[name];\n log({ expr: expr.toString(true), name, bindings, item });\n if (item === null) {\n return;\n } else if (item) {\n log({ b: bindings[name].toString() });\n if (item instanceof Pair) {\n log('[t 2 Pair ' + nested);\n log({ ______: item.toString() });\n const { car, cdr } = item;\n if (nested) {\n if (cdr !== nil) {\n log('|| next 1');\n next(name, cdr);\n }\n log({ car: car.toString() });\n return car;\n } else {\n if (car.cdr !== nil) {\n log('|| next 2');\n next(name, new Pair(car.cdr, cdr));\n }\n log({ car: car.car.toString() });\n return car.car;\n }\n } else if (item instanceof Array) {\n log('[t 2 Array ' + nested);\n if (nested) {\n next(name, item.slice(1));\n return Pair.fromArray(item);\n } else {\n const rest = item.slice(1);\n if (rest.length) {\n next(name, rest);\n }\n return item[0];\n }\n } else {\n return item;\n }\n }\n }\n log('[t 3 recur ' + expr.toString());\n const head = transform_ellipsis_expr(expr.car, bindings, state, next);\n const rest = transform_ellipsis_expr(expr.cdr, bindings, state, next);\n return new Pair(\n head,\n rest\n );\n }\n return expr;\n }\n function have_binding(biding, skip_nulls) {\n const values = Object.values(biding);\n const symbols = Object.getOwnPropertySymbols(biding);\n if (symbols.length) {\n values.push(...symbols.map(x => biding[x]));\n }\n return values.length && values.every(x => {\n if (x === null) {\n return !skip_nulls;\n }\n return x instanceof Pair || x === nil ||\n (x instanceof Array && x.length);\n });\n }\n function get_names(object) {\n return Object.keys(object).concat(Object.getOwnPropertySymbols(object));\n }\n /* eslint-disable complexity */\n function traverse(expr, { disabled } = {}) {\n log('traverse>> ' + expr.toString());\n if (expr instanceof Pair) {\n // escape ellispsis from R7RS e.g. (... ...)\n if (!disabled && expr.car instanceof Pair &&\n LSymbol.is(expr.car.car, ellipsis_symbol)) {\n return traverse(expr.car.cdr, { disabled: true });\n }\n if (expr.cdr instanceof Pair &&\n LSymbol.is(expr.cdr.car, ellipsis_symbol) && !disabled) {\n log('>> 1');\n const symbols = bindings['...'].symbols;\n // skip expand list of pattern was (x y ... z)\n // and code was (x z) so y == null\n const values = Object.values(symbols);\n if (values.length && values.every(x => x === null)) {\n return traverse(expr.cdr.cdr, { disabled });\n }\n var keys = get_names(symbols);\n // case of list as first argument ((x . y) ...) or (x ... ...)\n // we need to recursively process the list\n // if we have pattern (_ (x y z ...) ...) and code (foo (1 2) (1 2))\n // x an y will be arrays of [1 1] and [2 2] and z will be array\n // of rest, x will also have it's own mapping to 1 and y to 2\n // in case of usage outside of ellipsis list e.g.: (x y)\n var is_spread = expr.car instanceof LSymbol &&\n LSymbol.is(expr.cdr.cdr.car, ellipsis_symbol);\n if (expr.car instanceof Pair || is_spread) {\n // lists is free ellipsis on pairs ((???) ...)\n // TODO: will this work in every case? Do we need to handle\n // nesting here?\n if (bindings['...'].lists[0] === nil) {\n return nil;\n }\n var new_expr = expr.car;\n if (is_spread) {\n new_expr = new Pair(\n expr.car,\n new Pair(\n expr.cdr.car,\n nil));\n }\n log('>> 2');\n let result;\n if (keys.length) {\n log('>> 2 (a)');\n let bind = { ...symbols };\n result = nil;\n while (true) {\n if (!have_binding(bind)) {\n break;\n }\n const new_bind = {};\n const next = (key, value) => {\n // ellipsis decide it what should be the next value\n // there are two cases ((a . b) ...) and (a ...)\n new_bind[key] = value;\n };\n const car = transform_ellipsis_expr(\n new_expr,\n bind,\n { nested: true },\n next\n );\n // undefined can be null caused by null binding\n // on empty ellipsis\n if (car !== undefined) {\n if (is_spread) {\n if (result === nil) {\n result = car;\n } else {\n result = result.append(car);\n }\n } else {\n result = new Pair(\n car,\n result\n );\n }\n }\n bind = new_bind;\n }\n if (result !== nil && !is_spread) {\n result = result.reverse();\n }\n // case of (list) ... (rest code)\n if (expr.cdr.cdr !== nil &&\n !LSymbol.is(expr.cdr.cdr.car, ellipsis_symbol)) {\n const rest = traverse(expr.cdr.cdr, { disabled });\n return result.append(rest);\n }\n return result;\n } else {\n log('>> 3');\n const car = transform_ellipsis_expr(expr.car, symbols, {\n nested: true\n });\n if (car) {\n return new Pair(\n car,\n nil\n );\n }\n return nil;\n }\n } else if (expr.car instanceof LSymbol) {\n log('>> 4');\n if (LSymbol.is(expr.cdr.cdr.car, ellipsis_symbol)) {\n // case (x ... ...)\n log('>> 4 (a)');\n } else {\n log('>> 4 (b)');\n }\n // case: (x ...)\n let name = expr.car.__name__;\n let bind = { [name]: symbols[name] };\n const is_null = symbols[name] === null;\n let result = nil;\n while (true) {\n if (!have_binding(bind, true)) {\n log({ bind });\n break;\n }\n const new_bind = {};\n const next = (key, value) => {\n new_bind[key] = value;\n };\n const value = transform_ellipsis_expr(\n expr,\n bind,\n { nested: false },\n next\n );\n log({ value: value.toString() });\n if (typeof value !== 'undefined') {\n result = new Pair(\n value,\n result\n );\n }\n bind = new_bind;\n }\n if (result !== nil) {\n result = result.reverse();\n }\n // case if (x ... y ...) second spread is not processed\n // and (??? . x) last symbol\n // by ellipsis transformation\n if (expr.cdr instanceof Pair) {\n if (expr.cdr.cdr instanceof Pair ||\n expr.cdr.cdr instanceof LSymbol) {\n const node = traverse(expr.cdr.cdr, { disabled });\n if (is_null) {\n return node;\n }\n log('<<<< 1');\n result.append(node);\n }\n }\n log('<<<< 2');\n return result;\n }\n }\n const head = traverse(expr.car, { disabled });\n let rest;\n let is_syntax;\n if ((expr.car instanceof LSymbol)) {\n const value = scope.get(expr.car, { throwError: false });\n is_syntax = value instanceof Macro &&\n value.__name__ === 'syntax-rules';\n }\n if (is_syntax) {\n if (expr.cdr.car instanceof LSymbol) {\n rest = new Pair(\n traverse(expr.cdr.car, { disabled }),\n new Pair(\n expr.cdr.cdr.car,\n traverse(expr.cdr.cdr.cdr, { disabled })\n )\n );\n } else {\n rest = new Pair(\n expr.cdr.car,\n traverse(expr.cdr.cdr, { disabled })\n );\n }\n log('REST >>>> ' + rest.toString());\n } else {\n rest = traverse(expr.cdr, { disabled });\n }\n log({\n a: true,\n car: toString(expr.car),\n cdr: toString(expr.cdr),\n head: toString(head),\n rest: toString(rest)\n });\n return new Pair(\n head,\n rest\n );\n }\n if (expr instanceof LSymbol) {\n if (disabled && LSymbol.is(expr, ellipsis_symbol)) {\n return expr;\n }\n const symbols = Object.keys(bindings['...'].symbols);\n const name = expr.literal();\n if (symbols.includes(name)) {\n const msg = `missing ellipsis symbol next to name \\`${name}'`;\n throw new Error(`syntax-rules: ${msg}`);\n }\n const value = transform(expr, { disabled });\n if (typeof value !== 'undefined') {\n return value;\n }\n }\n return expr;\n }\n return traverse(expr, {});\n}\n// ----------------------------------------------------------------------\n// :: check for nullish values\n// ----------------------------------------------------------------------\nfunction is_null(value) {\n return is_undef(value) || value === nil || value === null;\n}\n// ----------------------------------------------------------------------\nfunction is_function(o) {\n return typeof o === 'function' && typeof o.bind === 'function';\n}\n// ----------------------------------------------------------------------\nfunction is_continuation(o) {\n return o instanceof Continuation;\n}\n// ----------------------------------------------------------------------\nfunction is_callable(o) {\n return is_function(o) || is_continuation(o);\n}\n// ----------------------------------------------------------------------\nfunction is_promise(o) {\n if (o instanceof QuotedPromise) {\n return false;\n }\n if (o instanceof Promise) {\n return true;\n }\n return o && is_function(o.then);\n}\n// ----------------------------------------------------------------------\nfunction is_undef(value) {\n return typeof value === 'undefined';\n}\n// ----------------------------------------------------------------------\n// :: Function utilities\n// ----------------------------------------------------------------------\nfunction box(object) {\n // we only need to box lips data, arrays and object don't need\n // to be boxed, values from objects will be boxed when accessed\n switch (typeof object) {\n case 'string':\n return LString(object);\n case 'bigint':\n return LNumber(object);\n case 'number':\n if (Number.isNaN(object)) {\n return nan;\n } else {\n return LNumber(object);\n }\n }\n return object;\n}\n// ----------------------------------------------------------------------\nfunction map_object(object, fn) {\n const props = Object.getOwnPropertyNames(object);\n const symbols = Object.getOwnPropertySymbols(object);\n props.concat(symbols).forEach(key => {\n const value = fn(object[key]);\n // check if property is read only, happen with webpack\n // and __esModule, it can happen for other properties as well\n const descriptor = Object.getOwnPropertyDescriptor(object, key);\n if (!descriptor || descriptor.writable && object[key] !== value) {\n object[key] = value;\n }\n });\n return object;\n}\n// ----------------------------------------------------------------------\nfunction unbox(object) {\n var lips_type = [LString, LCharacter, LNumber].some(x => object instanceof x);\n if (lips_type) {\n return object.valueOf();\n }\n if (object instanceof Array) {\n return object.map(unbox);\n }\n if (object instanceof QuotedPromise) {\n delete object.then;\n }\n if (is_plain_object(object)) {\n return map_object(object, unbox);\n }\n return object;\n}\n// ----------------------------------------------------------------------\nfunction patch_value(value, context) {\n if (value instanceof Pair) {\n value.markCycles();\n return quote(value);\n }\n if (is_function(value)) {\n // original function can be restored using unbind function\n // only real JS function require to be bound\n if (context) {\n return bind(value, context);\n }\n }\n return box(value);\n}\n// ----------------------------------------------------------------------\n// :: function get original function that was binded with props\n// ----------------------------------------------------------------------\nfunction unbind(obj) {\n if (is_bound(obj)) {\n return obj[__fn__];\n }\n return obj;\n}\n// ----------------------------------------------------------------------\n// :: function bind with context that can be optionally unbind\n// :: get original function with unbind\n// ----------------------------------------------------------------------\nfunction bind(fn, context) {\n if (fn[Symbol.for('__bound__')]) {\n return fn;\n }\n const bound = fn.bind(context);\n const props = Object.getOwnPropertyNames(fn);\n for (var prop of props) {\n if (filter_fn_names(prop)) {\n try {\n bound[prop] = fn[prop];\n } catch (e) {\n // ignore error from express.js while accessing bodyParser\n }\n }\n }\n hidden_prop(bound, '__fn__', fn);\n hidden_prop(bound, '__context__', context);\n hidden_prop(bound, '__bound__', true);\n if (is_native_function(fn)) {\n hidden_prop(bound, '__native__', true);\n }\n if (is_plain_object(context) && is_lambda(fn)) {\n hidden_prop(bound, '__method__', true);\n }\n bound.valueOf = function() {\n return fn;\n };\n return bound;\n}\n// ----------------------------------------------------------------------\n// function used to check if function should not get unboxed arguments,\n// so you can call Object.getPrototypeOf for lips data types\n// this is case, see dir function and #73\n// ----------------------------------------------------------------------\nfunction is_object_bound(obj) {\n return is_bound(obj) && obj[Symbol.for('__context__')] === Object;\n}\n// ----------------------------------------------------------------------\nfunction is_bound(obj) {\n return !!(is_function(obj) && obj[__fn__]);\n}\n// ----------------------------------------------------------------------\nfunction lips_context(obj) {\n if (is_function(obj)) {\n var context = obj[__context__];\n if (context && (context === lips ||\n (context.constructor &&\n context.constructor.__class__))) {\n return true;\n }\n }\n return false;\n}\n// ----------------------------------------------------------------------\nfunction is_port(obj) {\n return obj instanceof InputPort || obj instanceof OutputPort;\n}\n// ----------------------------------------------------------------------\nfunction is_port_method(obj) {\n if (is_function(obj)) {\n if (is_port(obj[__context__])) {\n return true;\n }\n }\n return false;\n}\n// ----------------------------------------------------------------------\n// hidden props\n// ----------------------------------------------------------------------\nvar __context__ = Symbol.for('__context__');\nvar __fn__ = Symbol.for('__fn__');\nvar __data__ = Symbol.for('__data__');\nvar __ref__ = Symbol.for('__ref__');\nvar __cycles__ = Symbol.for('__cycles__');\nvar __class__ = Symbol.for('__class__');\nvar __method__ = Symbol.for('__method__');\nvar __prototype__ = Symbol.for('__prototype__');\nvar __lambda__ = Symbol.for('__lambda__');\n// ----------------------------------------------------------------------\n// :: function bind fn with context but it also move all props\n// :: mostly used for Object function\n// ----------------------------------------------------------------------\nvar exluded_names = ['name', 'length', 'caller', 'callee', 'arguments', 'prototype'];\nfunction filter_fn_names(name) {\n return !exluded_names.includes(name);\n}\n// ----------------------------------------------------------------------\nfunction hidden_prop(obj, name, value) {\n Object.defineProperty(obj, Symbol.for(name), {\n get: () => value,\n set: () => {},\n configurable: false,\n enumerable: false\n });\n}\n// ----------------------------------------------------------------------\nfunction set_fn_length(fn, length) {\n try {\n Object.defineProperty(fn, 'length', {\n get: function() {\n return length;\n }\n });\n return fn;\n } catch (e) {\n // hack that create function with specific length should work for browsers\n // that don't support Object.defineProperty like old IE\n var args = new Array(length).fill(0).map((_, i) => 'a' + i).join(',');\n var wrapper = new Function(`f`, `return function(${args}) {\n return f.apply(this, arguments);\n };`);\n return wrapper(fn);\n }\n}\n// ----------------------------------------------------------------------\nfunction is_lambda(obj) {\n return obj && obj[__lambda__];\n}\n// ----------------------------------------------------------------------\nfunction is_method(obj) {\n return obj && obj[__method__];\n}\n// ----------------------------------------------------------------------\nfunction is_raw_lambda(fn) {\n return is_lambda(fn) && !fn[__prototype__] &&\n !is_method(fn) && !is_port_method(fn);\n}\n// ----------------------------------------------------------------------\nfunction is_native_function(fn) {\n var native = Symbol.for('__native__');\n return is_function(fn) &&\n fn.toString().match(/\\{\\s*\\[native code\\]\\s*\\}/) &&\n ((fn.name.match(/^bound /) && fn[native] === true) ||\n (!fn.name.match(/^bound /) && !fn[native]));\n}\n// ----------------------------------------------------------------------\n// :: function that return macro for let, let* and letrec\n// ----------------------------------------------------------------------\nfunction let_macro(symbol) {\n var name;\n switch (symbol) {\n case Symbol.for('letrec'):\n name = 'letrec';\n break;\n case Symbol.for('let'):\n name = 'let';\n break;\n case Symbol.for('let*'):\n name = 'let*';\n break;\n default:\n throw new Error('Invalid let_macro value');\n }\n return Macro.defmacro(name, function(code, options) {\n var { dynamic_scope, error, macro_expand } = options;\n var args;\n // named let:\n // (let iter ((x 10)) (iter (- x 1))) -> (let* ((iter (lambda (x) ...\n if (code.car instanceof LSymbol) {\n if (!(code.cdr.car instanceof Pair || code.cdr.car === nil)) {\n throw new Error('let require list of pairs');\n }\n var params;\n if (code.cdr.car === nil) {\n args = nil;\n params = nil;\n } else {\n params = code.cdr.car.map(pair => pair.car);\n args = code.cdr.car.map(pair => pair.cdr.car);\n }\n return Pair.fromArray([\n LSymbol('letrec'),\n [[code.car, Pair(\n LSymbol('lambda'),\n Pair(params, code.cdr.cdr))]],\n Pair(code.car, args)\n ]);\n } else if (macro_expand) {\n // Macro.defmacro are special macros that should return lisp code\n // here we use evaluate, so we need to check special flag set by\n // macroexpand to prevent evaluation of code in normal let\n return;\n }\n var self = this;\n args = global_env.get('list->array')(code.car);\n var env = self.inherit(name);\n var values, var_body_env;\n if (name === 'let*') {\n var_body_env = env;\n } else if (name === 'let') {\n values = []; // collect potential promises\n }\n var i = 0;\n function exec() {\n var output = new Pair(new LSymbol('begin'), code.cdr);\n return evaluate(output, {\n env,\n dynamic_scope,\n error\n });\n }\n return (function loop() {\n var pair = args[i++];\n if (dynamic_scope) {\n dynamic_scope = name === 'let*' ? env : self;\n }\n if (!pair) {\n // resolve all promises\n if (values && values.length) {\n var v = values.map(x => x.value);\n var promises = v.filter(is_promise);\n if (promises.length) {\n return promise_all(v).then((arr) => {\n for (var i = 0, len = arr.length; i < len; ++i) {\n env.set(values[i].name, arr[i]);\n }\n }).then(exec);\n } else {\n for (let { name, value } of values) {\n env.set(name, value);\n }\n }\n }\n return exec();\n } else {\n if (name === 'let') {\n var_body_env = self;\n } else if (name === 'letrec') {\n var_body_env = env;\n }\n var value = evaluate(pair.cdr.car, {\n env: var_body_env,\n dynamic_scope,\n error\n });\n if (name === 'let*') {\n var_body_env = env = var_body_env.inherit('let*[' + i + ']');\n }\n if (values) {\n values.push({ name: pair.car, value });\n return loop();\n } else {\n return unpromise(value, function(value) {\n env.set(pair.car, value);\n return loop();\n });\n }\n }\n })();\n });\n}\n// -------------------------------------------------------------------------\nfunction pararel(name, fn) {\n return new Macro(name, function(code, { dynamic_scope, error } = {}) {\n var env = this;\n if (dynamic_scope) {\n dynamic_scope = this;\n }\n var node = code;\n var results = [];\n while (node instanceof Pair) {\n results.push(evaluate(node.car, { env, dynamic_scope, error }));\n node = node.cdr;\n }\n var havePromises = results.filter(is_promise).length;\n if (havePromises) {\n return promise_all(results).then(fn.bind(this));\n } else {\n return fn.call(this, results);\n }\n });\n}\n// -------------------------------------------------------------------------\nfunction guard_math_call(fn, ...args) {\n args.forEach(arg => {\n typecheck('', arg, 'number');\n });\n return fn(...args);\n}\n// ----------------------------------------------------------------------\nfunction pipe(...fns) {\n fns.forEach((fn, i) => {\n typecheck('pipe', fn, 'function', i + 1);\n });\n return (...args) => {\n return fns.reduce((args, f) => [f.apply(this, args)], args)[0];\n };\n}\n// -------------------------------------------------------------------------\nfunction compose(...fns) {\n fns.forEach((fn, i) => {\n typecheck('compose', fn, 'function', i + 1);\n });\n return pipe(...fns.reverse());\n}\n// -------------------------------------------------------------------------\n// :: fold functions generator\n// -------------------------------------------------------------------------\nfunction fold(name, fold) {\n var self = this;\n return function recur(fn, init, ...lists) {\n typecheck(name, fn, 'function');\n if (lists.some(is_null)) {\n if (typeof init === 'number') {\n return LNumber(init);\n }\n return init;\n } else {\n return fold.call(self, recur, fn, init, ...lists);\n }\n };\n}\n// -------------------------------------------------------------------------\nfunction limit_math_op(n, fn) {\n // + 1 so it include function in guard_math_call\n return limit(n + 1, curry(guard_math_call, fn));\n}\n// -------------------------------------------------------------------------\n// some functional magic\nvar single_math_op = curry(limit_math_op, 1);\nvar binary_math_op = curry(limit_math_op, 2);\n// -------------------------------------------------------------------------\nfunction reduce_math_op(fn, init = null) {\n return function(...args) {\n if (init !== null) {\n args = [init, ...args];\n }\n return args.reduce(binary_math_op(fn));\n };\n}\n// -------------------------------------------------------------------------\nfunction curry(fn, ...init_args) {\n typecheck('curry', fn, 'function');\n var len = fn.length;\n return function() {\n var args = init_args.slice();\n function call(...more_args) {\n args = args.concat(more_args);\n if (args.length >= len) {\n return fn.apply(this, args);\n } else {\n return call;\n }\n }\n return call.apply(this, arguments);\n };\n}\n// -------------------------------------------------------------------------\n// return function with limited number of arguments\nfunction limit(n, fn) {\n typecheck('limit', fn, 'function', 2);\n return function(...args) {\n return fn(...args.slice(0, n));\n };\n}\n// -------------------------------------------------------------------------\n// :: character object representation\n// -------------------------------------------------------------------------\nfunction LCharacter(char) {\n if (typeof this !== 'undefined' && !(this instanceof LCharacter) ||\n typeof this === 'undefined') {\n return new LCharacter(char);\n }\n if (char instanceof LString) {\n char = char.valueOf();\n }\n var name;\n if (Array.from(char).length > 1) {\n // this is name\n char = char.toLowerCase();\n if (LCharacter.__names__[char]) {\n name = char;\n char = LCharacter.__names__[char];\n } else {\n // this should never happen\n // parser don't allow not defined named characters\n throw new Error('Internal: Unknown named character');\n }\n } else {\n name = LCharacter.__rev_names__[char];\n }\n Object.defineProperty(this, '__char__', {\n value: char,\n enumerable: true\n });\n if (name) {\n Object.defineProperty(this, '__name__', {\n value: name,\n enumerable: true\n });\n }\n}\nLCharacter.__names__ = characters;\nLCharacter.__rev_names__ = {};\nObject.keys(LCharacter.__names__).forEach(key => {\n var value = LCharacter.__names__[key];\n LCharacter.__rev_names__[value] = key;\n});\nLCharacter.prototype.toUpperCase = function() {\n return LCharacter(this.__char__.toUpperCase());\n};\nLCharacter.prototype.toLowerCase = function() {\n return LCharacter(this.__char__.toLowerCase());\n};\nLCharacter.prototype.toString = function() {\n return '#\\\\' + (this.__name__ || this.__char__);\n};\nLCharacter.prototype.valueOf = LCharacter.prototype.serialize = function() {\n return this.__char__;\n};\n// -------------------------------------------------------------------------\n// :: String wrapper that handle copy and in place change\n// -------------------------------------------------------------------------\nfunction LString(string) {\n if (typeof this !== 'undefined' && !(this instanceof LString) ||\n typeof this === 'undefined') {\n return new LString(string);\n }\n if (string instanceof Array) {\n this.__string__ = string.map((x, i) => {\n typecheck('LString', x, 'character', i + 1);\n return x.toString();\n }).join('');\n } else {\n this.__string__ = string.valueOf();\n }\n}\n{\n const ignore = ['length', 'constructor'];\n const _keys = Object.getOwnPropertyNames(String.prototype).filter(name => {\n return !ignore.includes(name);\n });\n const wrap = (fn) => function(...args) {\n return fn.apply(this.__string__, args);\n };\n for (let key of _keys) {\n LString.prototype[key] = wrap(String.prototype[key]);\n }\n}\nLString.prototype.serialize = function() {\n return this.valueOf();\n};\nLString.isString = function(x) {\n return x instanceof LString || typeof x === 'string';\n};\nLString.prototype.get = function(n) {\n typecheck('LString::get', n, 'number');\n return Array.from(this.__string__)[n.valueOf()];\n};\nLString.prototype.cmp = function(string) {\n typecheck('LString::cmp', string, 'string');\n var a = this.valueOf();\n var b = string.valueOf();\n if (a < b) {\n return -1;\n } else if (a === b) {\n return 0;\n } else {\n return 1;\n }\n};\nLString.prototype.lower = function() {\n return LString(this.__string__.toLowerCase());\n};\nLString.prototype.upper = function() {\n return LString(this.__string__.toUpperCase());\n};\nLString.prototype.set = function(n, char) {\n typecheck('LString::set', n, 'number');\n typecheck('LString::set', char, ['string', 'character']);\n n = n.valueOf();\n if (char instanceof LCharacter) {\n char = char.__char__;\n }\n var string = [];\n if (n > 0) {\n string.push(this.__string__.substring(0, n));\n }\n string.push(char);\n if (n < this.__string__.length - 1) {\n string.push(this.__string__.substring(n + 1));\n }\n this.__string__ = string.join('');\n};\nObject.defineProperty(LString.prototype, \"length\", {\n get: function() {\n return this.__string__.length;\n }\n});\nLString.prototype.clone = function() {\n return LString(this.valueOf());\n};\nLString.prototype.fill = function(char) {\n typecheck('LString::fill', char, ['string', 'character']);\n if (char instanceof LCharacter) {\n char = char.toString();\n }\n var len = this.__string__.length;\n this.__string__ = new Array(len + 1).join(char);\n};\n// -------------------------------------------------------------------------\n// :: Number wrapper that handle BigNumbers\n// -------------------------------------------------------------------------\nfunction LNumber(n, force = false) {\n if (n instanceof LNumber) {\n return n;\n }\n if (typeof this !== 'undefined' && !(this instanceof LNumber) ||\n typeof this === 'undefined') {\n return new LNumber(n, force);\n }\n if (typeof n === 'undefined') {\n throw new Error('Invalid LNumber constructor call');\n }\n var _type = LNumber.getType(n);\n if (LNumber.types[_type]) {\n return LNumber.types[_type](n, force);\n }\n var parsable = n instanceof Array && LString.isString(n[0]) &&\n LNumber.isNumber(n[1]);\n if (n instanceof LNumber) {\n return LNumber(n.value);\n }\n if (!LNumber.isNumber(n) && !parsable) {\n throw new Error(`You can't create LNumber from ${type(n)}`);\n }\n // prevent infinite loop https://github.com/indutny/bn.js/issues/186\n if (n === null) {\n n = 0;\n }\n var value;\n if (parsable) {\n var [str, radix] = n;\n if (str instanceof LString) {\n str = str.valueOf();\n }\n if (radix instanceof LNumber) {\n radix = radix.valueOf();\n }\n var sign = str.match(/^([+-])/);\n var minus = false;\n if (sign) {\n str = str.replace(/^[+-]/, '');\n if (sign[1] === '-') {\n minus = true;\n }\n }\n }\n if (Number.isNaN(n)) {\n return LFloat(n);\n } else if (typeof BigInt !== 'undefined') {\n if (typeof n !== 'bigint') {\n if (parsable) {\n let prefix;\n // default number base (radix) supported by BigInt constructor\n switch (radix) {\n case 8:\n prefix = '0o';\n break;\n case 16:\n prefix = '0x';\n break;\n case 2:\n prefix = '0b';\n break;\n case 10:\n prefix = '';\n break;\n }\n if (typeof prefix === 'undefined') {\n // non standard radix we convert by hand\n var n_radix = BigInt(radix);\n value = [...str].map((x, i) => {\n return BigInt(parseInt(x, radix)) * pow(n_radix, BigInt(i));\n }).reduce((a, b) => a + b);\n } else {\n value = BigInt(prefix + str);\n }\n } else {\n value = BigInt(n);\n }\n if (minus) {\n value *= BigInt(-1);\n }\n } else {\n value = n;\n }\n return LBigInteger(value, true);\n } else if (typeof BN !== 'undefined' && !(n instanceof BN)) {\n if (n instanceof Array) {\n return LBigInteger(new BN(...n));\n }\n return LBigInteger(new BN(n));\n } else if (parsable) {\n this.constant(parseInt(str, radix), 'integer');\n } else {\n this.constant(n, 'integer');\n }\n}\n// -------------------------------------------------------------------------\nLNumber.prototype.constant = function(value, type) {\n Object.defineProperty(this, '__value__', {\n value,\n enumerable: true\n });\n Object.defineProperty(this, '__type__', {\n value: type,\n enumerable: true\n });\n};\n// -------------------------------------------------------------------------\nLNumber.types = {\n float: function(n, force = false) {\n return new LFloat(n, force);\n },\n complex: function(n, force = false) {\n if (!LNumber.isComplex(n)) {\n n = { im: 0, re: n };\n }\n return new LComplex(n, force);\n },\n rational: function(n, force = false) {\n if (!LNumber.isRational(n)) {\n n = { num: n, denom: 1 };\n }\n return new LRational(n, force);\n }\n};\n// -------------------------------------------------------------------------\nLNumber.prototype.serialize = function() {\n return this.__value__;\n};\n// -------------------------------------------------------------------------\nLNumber.prototype.isNaN = function() {\n return Number.isNaN(this.__value__);\n};\n// -------------------------------------------------------------------------\nLNumber.prototype.gcd = function(b) {\n // ref: https://rosettacode.org/wiki/Greatest_common_divisor#JavaScript\n var a = this.abs();\n b = b.abs();\n if (b.cmp(a) === 1) {\n var temp = a;\n a = b;\n b = temp;\n }\n while (true) {\n a = a.rem(b);\n if (a.cmp(0) === 0) {\n return b;\n }\n b = b.rem(a);\n if (b.cmp(0) === 0) {\n return a;\n }\n }\n};\n// -------------------------------------------------------------------------\nLNumber.isFloat = function isFloat(n) {\n return n instanceof LFloat || (Number(n) === n && n % 1 !== 0);\n};\n// -------------------------------------------------------------------------\nLNumber.isNumber = function(n) {\n return n instanceof LNumber ||\n (LNumber.isNative(n) || LNumber.isBN(n));\n};\n// -------------------------------------------------------------------------\nLNumber.isComplex = function(n) {\n if (!n) {\n return false;\n }\n var ret = n instanceof LComplex ||\n ((LNumber.isNumber(n.im) || Number.isNaN(n.im)) &&\n (LNumber.isNumber(n.re) || Number.isNaN(n.re)));\n return ret;\n};\n// -------------------------------------------------------------------------\nLNumber.isRational = function(n) {\n if (!n) {\n return false;\n }\n return n instanceof LRational ||\n (LNumber.isNumber(n.num) && LNumber.isNumber(n.denom));\n};\n// -------------------------------------------------------------------------\nLNumber.isInteger = function(n) {\n if (!(LNumber.isNative(n) || n instanceof LNumber)) {\n return false;\n }\n if (LNumber.isFloat(n)) {\n return false;\n }\n if (LNumber.isRational(n)) {\n return false;\n }\n if (LNumber.isComplex(n)) {\n return false;\n }\n return true;\n};\n// -------------------------------------------------------------------------\nLNumber.isNative = function(n) {\n return typeof n === 'bigint' || typeof n === 'number';\n};\n// -------------------------------------------------------------------------\nLNumber.isBigInteger = function(n) {\n return n instanceof LBigInteger || typeof n === 'bigint' ||\n LNumber.isBN(n);\n};\n// -------------------------------------------------------------------------\nLNumber.isBN = function(n) {\n return typeof BN !== 'undefined' && n instanceof BN;\n};\n// -------------------------------------------------------------------------\nLNumber.getArgsType = function(a, b) {\n if (a instanceof LFloat || b instanceof LFloat) {\n return LFloat;\n }\n if (a instanceof LBigInteger || b instanceof LBigInteger) {\n return LBigInteger;\n }\n return LNumber;\n};\n// -------------------------------------------------------------------------\nLNumber.prototype.toString = function(radix) {\n if (Number.isNaN(this.__value__)) {\n return '+nan.0';\n }\n if (radix > 2 && radix < 36) {\n return this.__value__.toString(radix);\n }\n return this.__value__.toString();\n};\n// -------------------------------------------------------------------------\nLNumber.prototype.asType = function(n) {\n var _type = LNumber.getType(this);\n return LNumber.types[_type] ? LNumber.types[_type](n) : LNumber(n);\n};\n// -------------------------------------------------------------------------\nLNumber.prototype.isBigNumber = function() {\n return typeof this.__value__ === 'bigint' ||\n typeof BN !== 'undefined' && !(this.value instanceof BN);\n};\n// -------------------------------------------------------------------------\n['floor', 'ceil', 'round'].forEach(fn => {\n LNumber.prototype[fn] = function() {\n if (this.float || LNumber.isFloat(this.__value__)) {\n return LNumber(Math[fn](this.__value__));\n } else {\n return LNumber(Math[fn](this.valueOf()));\n }\n };\n});\n// -------------------------------------------------------------------------\nLNumber.prototype.valueOf = function() {\n if (LNumber.isNative(this.__value__)) {\n return Number(this.__value__);\n } else if (LNumber.isBN(this.__value__)) {\n return this.__value__.toNumber();\n }\n};\n// -------------------------------------------------------------------------\n// type coercion matrix\n// -------------------------------------------------------------------------\nconst matrix = (function() {\n var i = (a, b) => [a, b];\n return {\n bigint: {\n bigint: i,\n float: (a, b) => [LFloat(a.valueOf(), true), b],\n rational: (a, b) => [{ num: a, denom: 1 }, b],\n complex: (a, b) => [{ im: 0, re: a }, b]\n },\n integer: {\n integer: i,\n float: (a, b) => [LFloat(a.valueOf(), true), b],\n rational: (a, b) => [{ num: a, denom: 1 }, b],\n complex: (a, b) => [{ im: 0, re: a }, b]\n },\n float: {\n bigint: (a, b) => [a, b && LFloat(b.valueOf(), true)],\n integer: (a, b) => [a, b && LFloat(b.valueOf(), true)],\n float: i,\n rational: (a, b) => [a, b && LFloat(b.valueOf(), true)],\n complex: (a, b) => [{ re: a, im: LFloat(0, true) }, b]\n },\n complex: {\n bigint: complex('bigint'),\n integer: complex('integer'),\n float: complex('float'),\n rational: complex('rational'),\n complex: (a, b) => {\n const [a_re, b_re] = LNumber.coerce(a.__re__, b.__re__);\n const [a_im, b_im] = LNumber.coerce(a.__im__, b.__im__);\n return [\n { im: a_im, re: a_re },\n { im: b_im, re: b_re }\n ];\n }\n },\n rational: {\n bigint: (a, b) => [a, b && { num: b, denom: 1 }],\n integer: (a, b) => [a, b && { num: b, denom: 1 }],\n float: (a, b) => [LFloat(a.valueOf()), b],\n rational: i,\n complex: (a, b) => {\n return [\n {\n im: coerce(a.__type__, b.__im__.__type__, 0)[0],\n re: coerce(a.__type__, b.__re__.__type__, a)[0]\n },\n {\n im: coerce(a.__type__, b.__im__.__type__, b.__im__)[0],\n re: coerce(a.__type__, b.__re__.__type__, b.__re__)[0]\n }\n ];\n }\n }\n };\n function complex(type) {\n return (a, b) => {\n return [\n {\n im: coerce(type, a.__im__.__type__, 0, a.__im__)[1],\n re: coerce(type, a.__re__.__type__, 0, a.__re__)[1]\n },\n {\n im: coerce(type, a.__im__.__type__, 0, 0)[1],\n re: coerce(type, b.__type__, 0, b)[1]\n }\n ];\n };\n }\n})();\n// -------------------------------------------------------------------------\nfunction coerce(type_a, type_b, a, b) {\n return matrix[type_a][type_b](a, b);\n}\n// -------------------------------------------------------------------------\nLNumber.coerce = function(a, b) {\n const a_type = LNumber.getType(a);\n const b_type = LNumber.getType(b);\n if (!matrix[a_type]) {\n throw new Error(`LNumber::coerce unknown lhs type ${a_type}`);\n } else if (!matrix[a_type][b_type]) {\n throw new Error(`LNumber::coerce unknown rhs type ${b_type}`);\n }\n var tmp = matrix[a_type][b_type](a, b);\n return tmp.map(n => LNumber(n, true));\n};\n// -------------------------------------------------------------------------\nLNumber.prototype.coerce = function(n) {\n if (!(typeof n === 'number' || n instanceof LNumber)) {\n throw new Error(`LNumber: you can't coerce ${type(n)}`);\n }\n if (typeof n === 'number') {\n n = LNumber(n);\n }\n return LNumber.coerce(this, n);\n};\n// -------------------------------------------------------------------------\nLNumber.getType = function(n) {\n if (n instanceof LNumber) {\n return n.__type__;\n }\n if (LNumber.isFloat(n)) {\n return 'float';\n }\n if (LNumber.isComplex(n)) {\n return 'complex';\n }\n if (LNumber.isRational(n)) {\n return 'rational';\n }\n if (typeof n === 'number') {\n return 'integer';\n }\n if ((typeof BigInt !== 'undefined' && typeof n !== 'bigint') ||\n (typeof BN !== 'undefined' && !(n instanceof BN))) {\n return 'bigint';\n }\n};\n// -------------------------------------------------------------------------\nLNumber.prototype.isFloat = function() {\n return !!(LNumber.isFloat(this.__value__) || this.float);\n};\n// -------------------------------------------------------------------------\nvar mapping = {\n 'add': '+',\n 'sub': '-',\n 'mul': '*',\n 'div': '/',\n 'rem': '%',\n 'or': '|',\n 'and': '&',\n 'neg': '~',\n 'shl': '>>',\n 'shr': '<<'\n};\nvar rev_mapping = {};\nObject.keys(mapping).forEach((key) => {\n rev_mapping[mapping[key]] = key;\n LNumber.prototype[key] = function(n) {\n return this.op(mapping[key], n);\n };\n});\n// -------------------------------------------------------------------------\nLNumber._ops = {\n '*': function(a, b) {\n return a * b;\n },\n '+': function(a, b) {\n return a + b;\n },\n '-': function(a, b) {\n if (typeof b === 'undefined') {\n return -a;\n }\n return a - b;\n },\n '/': function(a, b) {\n return a / b;\n },\n '%': function(a, b) {\n return a % b;\n },\n '|': function(a, b) {\n return a | b;\n },\n '&': function(a, b) {\n return a & b;\n },\n '~': function(a) {\n return ~a;\n },\n '>>': function(a, b) {\n return a >> b;\n },\n '<<': function(a, b) {\n return a << b;\n }\n};\n// -------------------------------------------------------------------------\nLNumber.prototype.op = function(op, n) {\n if (typeof n === 'undefined') {\n return LNumber(LNumber._ops[op](this.valueOf()));\n }\n if (typeof n === 'number') {\n n = LNumber(n);\n }\n if (Number.isNaN(this.__value__) && !LNumber.isComplex(n) ||\n !LNumber.isComplex(this) && Number.isNaN(n.__value__)) {\n return LNumber(NaN);\n }\n const [a, b] = this.coerce(n);\n if (a._op) {\n return a._op(op, b);\n }\n return LNumber(LNumber._ops[op](a, b));\n};\n// -------------------------------------------------------------------------\nLNumber.prototype.sqrt = function() {\n var value = this.valueOf();\n if (this.cmp(0) < 0) {\n var im = Math.sqrt(-value);\n return LComplex({ re: 0, im });\n }\n return LNumber(Math.sqrt(value));\n};\n// -------------------------------------------------------------------------\nvar pow = function(a, b) {\n var e = typeof a === 'bigint' ? BigInt(1) : 1;\n return new Array(Number(b)).fill(0).reduce(x => x * a, e);\n};\n// -------------------------------------------------------------------------\n// use native exponential operator if possible (it's way faster)\n// -------------------------------------------------------------------------\nvar exp_op = new Function('a,b', 'return a ** b');\ntry {\n if (exp_op(2, 2) === 4) {\n pow = exp_op;\n }\n} catch (e) {\n // ignore\n}\n// -------------------------------------------------------------------------\nLNumber.prototype.pow = function(n) {\n var value;\n if (LNumber.isBN(this.__value__)) {\n value = this.__value__.pow(n.__value__);\n } else {\n value = pow(this.__value__, n.__value__);\n }\n return LNumber(value);\n};\n// -------------------------------------------------------------------------\nLNumber.prototype.abs = function() {\n var value = this.__value__;\n if (LNumber.isNative(this.__value__)) {\n if (value < 0) {\n value = -value;\n }\n } else if (LNumber.isBN(value)) {\n value.iabs();\n }\n return new LNumber(value);\n};\n// -------------------------------------------------------------------------\nLNumber.prototype.isOdd = function() {\n if (LNumber.isNative(this.__value__)) {\n if (this.isBigNumber()) {\n return this.__value__ % BigInt(2) === BigInt(1);\n }\n return this.__value__ % 2 === 1;\n } else if (LNumber.isBN(this.__value__)) {\n return this.__value__.isOdd();\n }\n};\n// -------------------------------------------------------------------------\nLNumber.prototype.isEven = function() {\n return !this.isOdd();\n};\n// -------------------------------------------------------------------------\nLNumber.prototype.cmp = function(n) {\n const [a, b] = this.coerce(n);\n function cmp(a, b) {\n if (a.__value__ < b.__value__) {\n return -1;\n } else if (a.__value__ === b.__value__) {\n return 0;\n } else {\n return 1;\n }\n }\n if (a.__type__ === 'bigint') {\n if (LNumber.isNative(a.__value__)) {\n return cmp(a, b);\n } else if (LNumber.isBN(a.__value__)) {\n return this.__value__.cmp(b.__value__);\n }\n } else if (a instanceof LFloat) {\n return cmp(a, b);\n }\n};\n// -------------------------------------------------------------------------\n// :: COMPLEX TYPE\n// -------------------------------------------------------------------------\nfunction LComplex(n, force = false) {\n if (typeof this !== 'undefined' && !(this instanceof LComplex) ||\n typeof this === 'undefined') {\n return new LComplex(n, force);\n }\n if (n instanceof LComplex) {\n return LComplex({ im: n.__im__, re: n.__re__ });\n }\n if (LNumber.isNumber(n) && force) {\n if (!force) {\n return Number(n);\n }\n } else if (!LNumber.isComplex(n)) {\n throw new Error('Invalid constructor call for LComplex');\n }\n var im = n.im instanceof LNumber ? n.im : LNumber(n.im);\n var re = n.re instanceof LNumber ? n.re : LNumber(n.re);\n this.constant(im, re);\n}\n// -------------------------------------------------------------------------\nLComplex.prototype = Object.create(LNumber.prototype);\nLComplex.prototype.constructor = LComplex;\n// -------------------------------------------------------------------------\nLComplex.prototype.constant = function(im, re) {\n Object.defineProperty(this, '__im__', {\n value: im,\n enumerable: true\n });\n Object.defineProperty(this, '__re__', {\n value: re,\n enumerable: true\n });\n Object.defineProperty(this, '__type__', {\n value: 'complex',\n enumerable: true\n });\n};\n// -------------------------------------------------------------------------\nLComplex.prototype.serialize = function() {\n return {\n re: this.__re__,\n im: this.__im__\n };\n};\n// -------------------------------------------------------------------------\nLComplex.prototype.toRational = function(n) {\n if (LNumber.isFloat(this.__im__) && LNumber.isFloat(this.__re__)) {\n const im = LFloat(this.__im__).toRational(n);\n const re = LFloat(this.__re__).toRational(n);\n return LComplex({ im, re });\n }\n return this;\n};\n// -------------------------------------------------------------------------\nLComplex.prototype.add = function(n) {\n return this.complex_op('add', n, function(a_re, b_re, a_im, b_im) {\n return {\n re: a_re.add(b_re),\n im: a_im.add(b_im)\n };\n });\n};\n// -------------------------------------------------------------------------\n// :: factor is used in / and modulus\n// -------------------------------------------------------------------------\nLComplex.prototype.factor = function() {\n // fix rounding when calculating (/ 1.0 1/10+1/10i)\n if (this.__im__ instanceof LFloat || this.__im__ instanceof LFloat) {\n let { __re__: re, __im__: im } = this;\n let x, y;\n if (re instanceof LFloat) {\n x = re.toRational().mul(re.toRational());\n } else {\n x = re.mul(re);\n }\n if (im instanceof LFloat) {\n y = im.toRational().mul(im.toRational());\n } else {\n y = im.mul(im);\n }\n return x.add(y);\n } else {\n return this.__re__.mul(this.__re__).add(this.__im__.mul(this.__im__));\n }\n};\n// -------------------------------------------------------------------------\nLComplex.prototype.modulus = function() {\n return this.factor().sqrt();\n};\n// -------------------------------------------------------------------------\nLComplex.prototype.conjugate = function() {\n return LComplex({ re: this.__re__, im: this.__im__.sub() });\n};\n// -------------------------------------------------------------------------\nLComplex.prototype.sqrt = function() {\n const r = this.modulus();\n // code based ok Kawa Scheme source code (file DComplex.java)\n // Copyright (c) 1997 Per M.A. Bothner.\n // Released under MIT License\n let re, im;\n if (r.cmp(0) === 0) {\n re = im = r;\n } else if (this.__re__.cmp(0) === 1) {\n re = LFloat(0.5).mul(r.add(this.__re__)).sqrt();\n im = this.__im__.div(re).div(2);\n } else {\n im = LFloat(0.5).mul(r.sub(this.__re__)).sqrt();\n if (this.__im__.cmp(0) === -1) {\n im = im.sub();\n }\n re = this.__im__.div(im).div(2);\n }\n return LComplex({ im, re });\n};\n// -------------------------------------------------------------------------\nLComplex.prototype.div = function(n) {\n if (LNumber.isNumber(n) && !LNumber.isComplex(n)) {\n if (!(n instanceof LNumber)) {\n n = LNumber(n);\n }\n const re = this.__re__.div(n);\n const im = this.__im__.div(n);\n return LComplex({ re, im });\n } else if (!LNumber.isComplex(n)) {\n throw new Error('[LComplex::div] Invalid value');\n }\n const [ a, b ] = this.coerce(n);\n const denom = b.factor();\n const num = a.mul(b.conjugate());\n const re = num.__re__.op('/', denom);\n const im = num.__im__.op('/', denom);\n return LComplex({ re, im });\n};\n// -------------------------------------------------------------------------\nLComplex.prototype.sub = function(n) {\n return this.complex_op('sub', n, function(a_re, b_re, a_im, b_im) {\n return {\n re: a_re.sub(b_re),\n im: a_im.sub(b_im)\n };\n });\n};\n// -------------------------------------------------------------------------\nLComplex.prototype.mul = function(n) {\n return this.complex_op('mul', n, function(a_re, b_re, a_im, b_im) {\n var ret = {\n re: a_re.mul(b_re).sub(a_im.mul(b_im)),\n im: a_re.mul(b_im).add(b_re.mul(a_im))\n };\n return ret;\n });\n};\n// -------------------------------------------------------------------------\nLComplex.prototype.complex_op = function(name, n, fn) {\n const calc = (re, im) => {\n var result = fn(this.__re__, re, this.__im__, im);\n if ('im' in result && 're' in result) {\n if (result.im.cmp(0) === 0 && !LNumber.isFloat(result.im)) {\n return result.re;\n }\n return LComplex(result, true);\n }\n return result;\n };\n if (typeof n === 'undefined') {\n return calc();\n }\n if (LNumber.isNumber(n) && !LNumber.isComplex(n)) {\n if (!(n instanceof LNumber)) {\n n = LNumber(n);\n }\n const im = n.asType(0);\n n = { __im__: im, __re__: n };\n } else if (!LNumber.isComplex(n)) {\n throw new Error(`[LComplex::${name}] Invalid value`);\n }\n var re = n.__re__ instanceof LNumber ? n.__re__ : this.__re__.asType(n.__re__);\n var im = n.__im__ instanceof LNumber ? n.__im__ : this.__im__.asType(n.__im__);\n return calc(re, im);\n};\n// -------------------------------------------------------------------------\nLComplex._op = {\n '+': 'add',\n '-': 'sub',\n '*': 'mul',\n '/': 'div'\n};\n// -------------------------------------------------------------------------\nLComplex.prototype._op = function(op, n) {\n const fn = LComplex._op[op];\n return this[fn](n);\n};\n// -------------------------------------------------------------------------\nLComplex.prototype.cmp = function(n) {\n const [a, b] = this.coerce(n);\n const [re_a, re_b] = a.__re__.coerce(b.__re__);\n const re_cmp = re_a.cmp(re_b);\n if (re_cmp !== 0) {\n return re_cmp;\n } else {\n const [im_a, im_b] = a.__im__.coerce(b.__im__);\n return im_a.cmp(im_b);\n }\n};\n// -------------------------------------------------------------------------\nLComplex.prototype.valueOf = function() {\n return [this.__re__, this.__im__].map(x => x.valueOf());\n};\n// -------------------------------------------------------------------------\nLComplex.prototype.toString = function() {\n var result;\n if (this.__re__.cmp(0) !== 0) {\n result = [toString(this.__re__)];\n } else {\n result = [];\n }\n // NaN and inf already have sign\n var im = this.__im__.valueOf();\n var inf = [Number.NEGATIVE_INFINITY, Number.POSITIVE_INFINITY].includes(im);\n var im_str = toString(this.__im__);\n if (!inf && !Number.isNaN(im)) {\n var zero_check = this.__im__.cmp(0);\n if (zero_check < 0 || (zero_check === 0 && this.__im__._minus)) {\n result.push('-');\n } else {\n result.push('+');\n }\n im_str = im_str.replace(/^-/, '');\n }\n result.push(im_str);\n result.push('i');\n return result.join('');\n};\n// -------------------------------------------------------------------------\n// :: FLOAT TYPE\n// -------------------------------------------------------------------------\nfunction LFloat(n) {\n if (typeof this !== 'undefined' && !(this instanceof LFloat) ||\n typeof this === 'undefined') {\n return new LFloat(n);\n }\n if (!LNumber.isNumber(n)) {\n throw new Error('Invalid constructor call for LFloat');\n }\n if (n instanceof LNumber) {\n return LFloat(n.valueOf());\n }\n if (typeof n === 'number') {\n if (Object.is(n, -0)) {\n Object.defineProperty(this, '_minus', {\n value: true\n });\n }\n this.constant(n, 'float');\n }\n}\n// -------------------------------------------------------------------------\nLFloat.prototype = Object.create(LNumber.prototype);\nLFloat.prototype.constructor = LFloat;\n// -------------------------------------------------------------------------\nLFloat.prototype.toString = function() {\n if (this.__value__ === Number.NEGATIVE_INFINITY) {\n return '-inf.0';\n }\n if (this.__value__ === Number.POSITIVE_INFINITY) {\n return '+inf.0';\n }\n if (Number.isNaN(this.__value__)) {\n return '+nan.0';\n }\n var str = this.__value__.toString();\n if (!LNumber.isFloat(this.__value__) && !str.match(/e/i)) {\n var result = str + '.0';\n return this._minus ? ('-' + result) : result;\n }\n return str.replace(/^([0-9]+)e/, '$1.0e');\n};\n// -------------------------------------------------------------------------\nLFloat.prototype._op = function(op, n) {\n if (n instanceof LNumber) {\n n = n.__value__;\n }\n const fn = LNumber._ops[op];\n if (op === '/' && this.__value__ === 0 && n === 0) {\n return NaN;\n }\n return LFloat(fn(this.__value__, n), true);\n};\n// -------------------------------------------------------------------------\n// same approximation as in guile scheme\nLFloat.prototype.toRational = function(n = null) {\n if (n === null) {\n return toRational(this.__value__.valueOf());\n }\n return approxRatio(n.valueOf())(this.__value__.valueOf());\n};\n// -------------------------------------------------------------------------\nLFloat.prototype.sqrt = function() {\n var value = this.valueOf();\n if (this.cmp(0) < 0) {\n var im = LFloat(Math.sqrt(-value));\n return LComplex({ re: 0, im });\n }\n return LFloat(Math.sqrt(value));\n};\n// -------------------------------------------------------------------------\nLFloat.prototype.abs = function() {\n var value = this.valueOf();\n if (value < 0) {\n value = -value;\n }\n return LFloat(value);\n};\n// -------------------------------------------------------------------------\n// ref: https://rosettacode.org/wiki/Convert_decimal_number_to_rational\n// -------------------------------------------------------------------------\nvar toRational = approxRatio(1e-10);\nfunction approxRatio(eps) {\n return function(n) {\n const gcde = (e, x, y) => {\n const _gcd = (a, b) => (b < e ? a : _gcd(b, a % b));\n if (Number.isNaN(x) || Number.isNaN(y)) {\n return NaN;\n }\n return _gcd(Math.abs(x), Math.abs(y));\n },\n c = gcde(eps ? eps : (1 / 10000), 1, n);\n return LRational({ num: Math.floor(n / c), denom: Math.floor(1 / c) });\n };\n}\n// -------------------------------------------------------------------------\n// :: source: Kawa gnu.math.RatNum.java\n// :: This algorithm is by Alan Bawden. It has been transcribed\n// :: with permission from Kawa copyright M.A. Bothner.\n// :: which was transcribed from from C-Gambit, copyright Marc Feeley.\n// -------------------------------------------------------------------------\nfunction rationalize(x, y) {\n var a = x.sub(y);\n var b = x.add(y);\n var result;\n if (a.cmp(b) > 0) {\n result = simplest_rational2(b, a);\n } else if (b.cmp(a) <= 0) {\n result = a;\n } else if (a.cmp(0) > 0) {\n result = simplest_rational2(a, b);\n } else if (y.cmp(0) < 0) {\n result = LNumber(simplest_rational2(b.sub(), a.sub())).sub();\n } else {\n result = LNumber(0);\n }\n if (LNumber.isFloat(y) || LNumber.isFloat(x)) {\n return LFloat(result);\n }\n return result;\n}\n// -------------------------------------------------------------------------\nfunction simplest_rational2(x, y) {\n var fx = LNumber(x).floor();\n var fy = LNumber(y).floor();\n if (x.cmp(fx) < 1) {\n return fx;\n } else if (fx.cmp(fy) === 0) {\n var n = LNumber(1).div(y.sub(fy));\n var d = LNumber(1).div(x.sub(fx));\n return fx.add(LNumber(1).div(simplest_rational2(n, d)));\n } else {\n return fx.add(LNumber(1));\n }\n}\n// -------------------------------------------------------------------------\nfunction LRational(n, force = false) {\n if (typeof this !== 'undefined' && !(this instanceof LRational) ||\n typeof this === 'undefined') {\n return new LRational(n, force);\n }\n if (!LNumber.isRational(n)) {\n throw new Error('Invalid constructor call for LRational');\n }\n var num, denom;\n if (n instanceof LRational) {\n num = LNumber(n.__num__);\n denom = LNumber(n.__denom__);\n } else {\n num = LNumber(n.num);\n denom = LNumber(n.denom);\n }\n if (!force && denom.cmp(0) !== 0) {\n var is_integer = num.op('%', denom).cmp(0) === 0;\n if (is_integer) {\n return LNumber(num.div(denom));\n }\n }\n this.constant(num, denom);\n}\n// -------------------------------------------------------------------------\nLRational.prototype = Object.create(LNumber.prototype);\nLRational.prototype.constructor = LRational;\n// -------------------------------------------------------------------------\nLRational.prototype.constant = function(num, denom) {\n Object.defineProperty(this, '__num__', {\n value: num,\n enumerable: true\n });\n Object.defineProperty(this, '__denom__', {\n value: denom,\n enumerable: true\n });\n Object.defineProperty(this, '__type__', {\n value: 'rational',\n enumerable: true\n });\n};\n// -------------------------------------------------------------------------\nLRational.prototype.serialize = function() {\n return {\n num: this.__num__,\n denom: this.__denom__\n };\n};\n// -------------------------------------------------------------------------\nLRational.prototype.pow = function(n) {\n var cmp = n.cmp(0);\n if (cmp === 0) {\n return LNumber(1);\n }\n if (cmp === -1) {\n n = n.sub();\n var num = this.__denom__.pow(n);\n var denom = this.__num__.pow(n);\n return LRational({ num, denom });\n }\n var result = this;\n n = n.valueOf();\n while (n > 1) {\n result = result.mul(this);\n n--;\n }\n return result;\n};\n// -------------------------------------------------------------------------\nLRational.prototype.sqrt = function() {\n const num = this.__num__.sqrt();\n const denom = this.__denom__.sqrt();\n if (num instanceof LFloat || denom instanceof LFloat) {\n return num.div(denom);\n }\n return LRational({ num, denom });\n};\n// -------------------------------------------------------------------------\nLRational.prototype.abs = function() {\n var num = this.__num__;\n var denom = this.__denom__;\n if (num.cmp(0) === -1) {\n num = num.sub();\n }\n if (denom.cmp(0) !== 1) {\n denom = denom.sub();\n }\n return LRational({ num, denom });\n};\n// -------------------------------------------------------------------------\nLRational.prototype.cmp = function(n) {\n return LNumber(this.valueOf(), true).cmp(n);\n};\n// -------------------------------------------------------------------------\nLRational.prototype.toString = function() {\n var gcd = this.__num__.gcd(this.__denom__);\n var num, denom;\n if (gcd.cmp(1) !== 0) {\n num = this.__num__.div(gcd);\n if (num instanceof LRational) {\n num = LNumber(num.valueOf(true));\n }\n denom = this.__denom__.div(gcd);\n if (denom instanceof LRational) {\n denom = LNumber(denom.valueOf(true));\n }\n } else {\n num = this.__num__;\n denom = this.__denom__;\n }\n const minus = this.cmp(0) < 0;\n if (minus) {\n if (num.abs().cmp(denom.abs()) === 0) {\n return num.toString();\n }\n } else if (num.cmp(denom) === 0) {\n return num.toString();\n }\n return num.toString() + '/' + denom.toString();\n};\n// -------------------------------------------------------------------------\nLRational.prototype.valueOf = function(exact) {\n if (this.__denom__.cmp(0) === 0) {\n if (this.__num__.cmp(0) < 0) {\n return Number.NEGATIVE_INFINITY;\n }\n return Number.POSITIVE_INFINITY;\n }\n if (exact) {\n return LNumber._ops['/'](this.__num__.value, this.__denom__.value);\n }\n return LFloat(this.__num__.valueOf()).div(this.__denom__.valueOf());\n};\n// -------------------------------------------------------------------------\nLRational.prototype.mul = function(n) {\n if (!(n instanceof LNumber)) {\n n = LNumber(n); // handle (--> 1/2 (mul 2))\n }\n if (LNumber.isRational(n)) {\n var num = this.__num__.mul(n.__num__);\n var denom = this.__denom__.mul(n.__denom__);\n return LRational({ num, denom });\n }\n const [a, b] = LNumber.coerce(this, n);\n return a.mul(b);\n};\n// -------------------------------------------------------------------------\nLRational.prototype.div = function(n) {\n if (!(n instanceof LNumber)) {\n n = LNumber(n); // handle (--> 1/2 (div 2))\n }\n if (LNumber.isRational(n)) {\n var num = this.__num__.mul(n.__denom__);\n var denom = this.__denom__.mul(n.__num__);\n return LRational({ num, denom });\n }\n const [a, b] = LNumber.coerce(this, n);\n const ret = a.div(b);\n return ret;\n};\n// -------------------------------------------------------------------------\nLRational.prototype._op = function(op, n) {\n return this[rev_mapping[op]](n);\n};\n// -------------------------------------------------------------------------\nLRational.prototype.sub = function(n) {\n if (typeof n === 'undefined') {\n return this.mul(-1);\n }\n if (!(n instanceof LNumber)) {\n n = LNumber(n); // handle (--> 1/2 (sub 1))\n }\n if (LNumber.isRational(n)) {\n var num = n.__num__.sub();\n var denom = n.__denom__;\n return this.add(LRational({ num, denom }));\n }\n if (!(n instanceof LNumber)) {\n n = LNumber(n).sub();\n } else {\n n = n.sub();\n }\n const [a, b] = LNumber.coerce(this, n);\n return a.add(b);\n};\n// -------------------------------------------------------------------------\nLRational.prototype.add = function(n) {\n if (!(n instanceof LNumber)) {\n n = LNumber(n); // handle (--> 1/2 (add 1))\n }\n if (LNumber.isRational(n)) {\n const a_denom = this.__denom__;\n const b_denom = n.__denom__;\n const a_num = this.__num__;\n const b_num = n.__num__;\n let denom, num;\n if (a_denom !== b_denom) {\n num = b_denom.mul(a_num).add(b_num.mul(a_denom));\n denom = a_denom.mul(b_denom);\n } else {\n num = a_num.add(b_num);\n denom = a_denom;\n }\n return LRational({ num, denom });\n }\n if (LNumber.isFloat(n)) {\n return LFloat(this.valueOf()).add(n);\n }\n const [a, b] = LNumber.coerce(this, n);\n return a.add(b);\n};\n// -------------------------------------------------------------------------\nfunction LBigInteger(n, native) {\n if (typeof this !== 'undefined' && !(this instanceof LBigInteger) ||\n typeof this === 'undefined') {\n return new LBigInteger(n, native);\n }\n if (n instanceof LBigInteger) {\n return LBigInteger(n.__value__, n._native);\n }\n if (!LNumber.isBigInteger(n)) {\n throw new Error('Invalid constructor call for LBigInteger');\n }\n this.constant(n, 'bigint');\n Object.defineProperty(this, '_native', {\n value: native\n });\n}\n// -------------------------------------------------------------------------\nLBigInteger.prototype = Object.create(LNumber.prototype);\nLBigInteger.prototype.constructor = LBigInteger;\n// -------------------------------------------------------------------------\nLBigInteger.bn_op = {\n '+': 'iadd',\n '-': 'isub',\n '*': 'imul',\n '/': 'idiv',\n '%': 'imod',\n '|': 'ior',\n '&': 'iand',\n '~': 'inot',\n '<<': 'ishrn',\n '>>': 'ishln'\n};\nLBigInteger.prototype.serialize = function() {\n return this.__value__.toString();\n};\n// -------------------------------------------------------------------------\nLBigInteger.prototype._op = function(op, n) {\n if (typeof n === 'undefined') {\n if (LNumber.isBN(this.__value__)) {\n op = LBigInteger.bn_op[op];\n return LBigInteger(this.__value__.clone()[op](), false);\n }\n return LBigInteger(LNumber._ops[op](this.__value__), true);\n }\n if (LNumber.isBN(this.__value__) && LNumber.isBN(n.__value__)) {\n op = LBigInteger.bn_op[op];\n return LBigInteger(this.__value__.clone()[op](n), false);\n }\n const ret = LNumber._ops[op](this.__value__, n.__value__);\n if (op === '/') {\n var is_integer = this.op('%', n).cmp(0) === 0;\n if (is_integer) {\n return LNumber(ret);\n }\n return LRational({ num: this, denom: n });\n }\n // use native calculation because it's real bigint value\n return LBigInteger(ret, true);\n};\n// -------------------------- -----------------------------------------------\nLBigInteger.prototype.sqrt = function() {\n var value;\n var minus = this.cmp(0) < 0;\n if (LNumber.isNative(this.__value__)) {\n value = LNumber(Math.sqrt(minus ? -this.valueOf() : this.valueOf()));\n } else if (LNumber.isBN(this.__value__)) {\n value = minus ? this.__value__.neg().sqrt() : this.__value__.sqrt();\n }\n if (minus) {\n return LComplex({ re: 0, im: value });\n }\n return value;\n};\n// -------------------------------------------------------------------------\nLNumber.NaN = LNumber(NaN);\n// -------------------------------------------------------------------------\n// :: Port abstraction - read should be a function that return next line\n// -------------------------------------------------------------------------\nfunction InputPort(read) {\n if (typeof this !== 'undefined' && !(this instanceof InputPort) ||\n typeof this === 'undefined') {\n return new InputPort(read);\n }\n typecheck('InputPort', read, 'function');\n read_only(this, '__type__', text_port);\n var parser;\n Object.defineProperty(this, '__parser__', {\n enumerable: true,\n get: function() {\n return parser;\n },\n set: function(value) {\n typecheck('InputPort::__parser__', value, 'parser');\n parser = value;\n }\n });\n this._read = read;\n this._with_parser = this._with_init_parser.bind(this, async () => {\n if (!this.char_ready()) {\n const line = await this._read();\n parser = new Parser(line, { env: this });\n }\n return this.__parser__;\n });\n this.char_ready = function() {\n return !!this.__parser__ && this.__parser__.__lexer__.peek() !== eof;\n };\n this._make_defaults();\n}\nInputPort.prototype._make_defaults = function() {\n this.read = this._with_parser((parser) => {\n return parser.read_object();\n });\n this.read_line = this._with_parser((parser) => {\n return parser.__lexer__.read_line();\n });\n this.read_char = this._with_parser((parser) => {\n return parser.__lexer__.read_char();\n });\n this.read_string = this._with_parser((parser, number) => {\n if (!LNumber.isInteger(number)) {\n const type = LNumber.getType(number);\n typeErrorMessage('read-string', type, 'integer');\n }\n return parser.__lexer__.read_string(number.valueOf());\n });\n this.peek_char = this._with_parser((parser) => {\n return parser.__lexer__.peek_char();\n });\n};\nInputPort.prototype._with_init_parser = function(make_parser, fn) {\n var self = this;\n return async function(...args) {\n var parser = await make_parser.call(self);\n return fn(parser, ...args);\n };\n};\nInputPort.prototype.is_open = function() {\n return this._with_parser !== null;\n};\nInputPort.prototype.close = function() {\n this.__parser__ = null;\n // make content garbage collected, we assign null,\n // because the value is in prototype\n this._with_parser = null;\n ['read', 'close', 'read_char', 'peek-char', 'read_line'].forEach(name => {\n this[name] = function() {\n throw new Error('input-port: port is closed');\n };\n });\n this.char_ready = function() {\n return false;\n };\n};\nInputPort.prototype.toString = function() {\n return '#';\n};\n// -------------------------------------------------------------------------\nfunction OutputPort(write) {\n if (typeof this !== 'undefined' && !(this instanceof OutputPort) ||\n typeof this === 'undefined') {\n return new OutputPort(write);\n }\n typecheck('OutputPort', write, 'function');\n read_only(this, '__type__', text_port);\n this.write = write;\n}\nOutputPort.prototype.is_open = function() {\n return this._closed !== true;\n};\nOutputPort.prototype.close = function() {\n Object.defineProperty(this, '_closed', {\n get: () => true,\n set: () => {},\n configurable: false,\n enumerable: false\n });\n this.write = function() {\n throw new Error('output-port: port is closed');\n };\n};\nOutputPort.prototype.flush = function() {\n // do nothing\n};\nOutputPort.prototype.toString = function() {\n return '#';\n};\n// -------------------------------------------------------------------------\nclass BufferedOutputPort extends OutputPort {\n constructor(fn) {\n super((...args) => this._write(...args));\n typecheck('BufferedOutputPort', fn, 'function');\n read_only(this, '_fn', fn, { hidden: true });\n read_only(this, '_buffer', [], { hidden: true });\n }\n flush() {\n if (this._buffer.length) {\n this._fn(this._buffer.join(''));\n this._buffer.length = 0;\n }\n }\n _write(...args) {\n if (args.length) {\n args.forEach(arg => {\n this._buffer.push(arg);\n });\n const last_value = this._buffer[this._buffer.length - 1];\n if (last_value.match(/\\n$/)) {\n this._buffer[this._buffer.length - 1] = last_value.replace(/\\n$/, '');\n this.flush();\n }\n }\n }\n}\n// -------------------------------------------------------------------------\nfunction OutputStringPort(toString) {\n if (typeof this !== 'undefined' && !(this instanceof OutputStringPort) ||\n typeof this === 'undefined') {\n return new OutputStringPort(toString);\n }\n typecheck('OutputStringPort', toString, 'function');\n read_only(this, '__type__', text_port);\n read_only(this, '__buffer__', []);\n this.write = (x) => {\n if (!LString.isString(x)) {\n x = toString(x);\n } else {\n x = x.valueOf();\n }\n this.__buffer__.push(x);\n };\n}\nOutputStringPort.prototype = Object.create(OutputPort.prototype);\nOutputStringPort.prototype.constructor = OutputStringPort;\nOutputStringPort.prototype.toString = function() {\n return '#';\n};\nOutputStringPort.prototype.valueOf = function() {\n return this.__buffer__.map(x => x.valueOf()).join('');\n};\n// -------------------------------------------------------------------------\nfunction OutputFilePort(filename, fd) {\n if (typeof this !== 'undefined' && !(this instanceof OutputFilePort) ||\n typeof this === 'undefined') {\n return new OutputFilePort(filename, fd);\n }\n typecheck('OutputFilePort', filename, 'string');\n read_only(this, '__filename__', filename);\n read_only(this, '_fd', fd.valueOf(), { hidden: true });\n read_only(this, '__type__', text_port);\n this.write = (x) => {\n if (!LString.isString(x)) {\n x = toString(x);\n } else {\n x = x.valueOf();\n }\n this.fs().write(this._fd, x, function(err) {\n if (err) {\n throw err;\n }\n });\n };\n}\nOutputFilePort.prototype = Object.create(OutputPort.prototype);\nOutputFilePort.prototype.constructor = OutputFilePort;\nOutputFilePort.prototype.fs = function() {\n if (!this._fs) {\n this._fs = this.internal('fs');\n }\n return this._fs;\n};\nOutputFilePort.prototype.internal = function(name) {\n return user_env.get('**internal-env**').get(name);\n};\nOutputFilePort.prototype.close = function() {\n return new Promise((resolve, reject) => {\n this.fs().close(this._fd, (err) => {\n if (err) {\n reject(err);\n } else {\n read_only(this, '_fd', null, { hidden: true });\n OutputPort.prototype.close.call(this);\n resolve();\n }\n });\n });\n};\nOutputFilePort.prototype.toString = function() {\n return `#`;\n};\n// -------------------------------------------------------------------------\nfunction InputStringPort(string, env) {\n if (typeof this !== 'undefined' && !(this instanceof InputStringPort) ||\n typeof this === 'undefined') {\n return new InputStringPort(string);\n }\n typecheck('InputStringPort', string, 'string');\n env = env || global_env;\n string = string.valueOf();\n this._with_parser = this._with_init_parser.bind(this, () => {\n if (!this.__parser__) {\n this.__parser__ = new Parser(string, { env });\n }\n return this.__parser__;\n });\n read_only(this, '__type__', text_port);\n this._make_defaults();\n}\nInputStringPort.prototype.char_ready = function() {\n return true;\n};\nInputStringPort.prototype = Object.create(InputPort.prototype);\nInputStringPort.prototype.constructor = InputStringPort;\nInputStringPort.prototype.toString = function() {\n return `#`;\n};\n// -------------------------------------------------------------------------\nfunction InputByteVectorPort(bytevectors) {\n if (typeof this !== 'undefined' && !(this instanceof InputByteVectorPort) ||\n typeof this === 'undefined') {\n return new InputByteVectorPort(bytevectors);\n }\n typecheck('InputByteVectorPort', bytevectors, 'uint8array');\n read_only(this, '__vector__', bytevectors);\n read_only(this, '__type__', binary_port);\n var index = 0;\n Object.defineProperty(this, '__index__', {\n enumerable: true,\n get: function() {\n return index;\n },\n set: function(value) {\n typecheck('InputByteVectorPort::__index__', value, 'number');\n if (value instanceof LNumber) {\n value = value.valueOf();\n }\n if (typeof value === 'bigint') {\n value = Number(value);\n }\n if (Math.floor(value) !== value) {\n throw new Error('InputByteVectorPort::__index__ value is ' +\n 'not integer');\n }\n index = value;\n }\n });\n}\nInputByteVectorPort.prototype = Object.create(InputPort.prototype);\nInputByteVectorPort.prototype.constructor = InputByteVectorPort;\nInputByteVectorPort.prototype.toString = function() {\n return `#`;\n};\nInputByteVectorPort.prototype.close = function() {\n read_only(this, '__vector__', nil);\n ['read_u8', 'close', 'peek_u8', 'read_u8_vector'].forEach(name => {\n this[name] = function() {\n throw new Error('Input-binary-port: port is closed');\n };\n });\n this.char_ready = function() {\n return false;\n };\n};\nInputByteVectorPort.prototype.u8_ready = function() {\n return true;\n};\nInputByteVectorPort.prototype.peek_u8 = function() {\n if (this.__index__ >= this.__vector__.length) {\n return eof;\n }\n return this.__vector__[this.__index__];\n};\nInputByteVectorPort.prototype.skip = function() {\n if (this.__index__ <= this.__vector__.length) {\n ++this.__index__;\n }\n};\nInputByteVectorPort.prototype.read_u8 = function() {\n const byte = this.peek_u8();\n this.skip();\n return byte;\n};\nInputByteVectorPort.prototype.read_u8_vector = function(len) {\n if (typeof len === 'undefined') {\n len = this.__vector__.length;\n } else if (len > this.__index__ + this.__vector__.length) {\n len = this.__index__ + this.__vector__.length;\n }\n if (this.peek_u8() === eof) {\n return eof;\n }\n return this.__vector__.slice(this.__index__, len);\n};\n// -------------------------------------------------------------------------\nfunction OutputByteVectorPort() {\n if (typeof this !== 'undefined' && !(this instanceof OutputByteVectorPort) ||\n typeof this === 'undefined') {\n return new OutputByteVectorPort();\n }\n read_only(this, '__type__', binary_port);\n read_only(this, '_buffer', [], { hidden: true });\n this.write = function(x) {\n typecheck('write', x, ['number', 'uint8array']);\n if (LNumber.isNumber(x)) {\n this._buffer.push(x.valueOf());\n } else {\n this._buffer.push(...Array.from(x));\n }\n };\n Object.defineProperty(this, '__buffer__', {\n enumerable: true,\n get: function() {\n return Uint8Array.from(this._buffer);\n }\n });\n}\nOutputByteVectorPort.prototype = Object.create(OutputPort.prototype);\nOutputByteVectorPort.prototype.constructor = OutputByteVectorPort;\nOutputByteVectorPort.prototype.close = function() {\n OutputPort.prototype.close.call(this);\n read_only(this, '_buffer', null, { hidden: true });\n};\nOutputByteVectorPort.prototype._close_guard = function() {\n if (this._closed) {\n throw new Error('output-port: binary port is closed');\n }\n};\nOutputByteVectorPort.prototype.write_u8 = function(byte) {\n typecheck('OutputByteVectorPort::write_u8', byte, 'number');\n this.write(byte);\n};\nOutputByteVectorPort.prototype.write_u8_vector = function(vector) {\n typecheck('OutputByteVectorPort::write_u8_vector', vector, 'uint8array');\n this.write(vector);\n};\nOutputByteVectorPort.prototype.toString = function() {\n return '#';\n};\nOutputByteVectorPort.prototype.valueOf = function() {\n return this.__buffer__;\n};\n// -------------------------------------------------------------------------\nfunction InputFilePort(content, filename) {\n if (typeof this !== 'undefined' && !(this instanceof InputFilePort) ||\n typeof this === 'undefined') {\n return new InputFilePort(content, filename);\n }\n InputStringPort.call(this, content);\n typecheck('InputFilePort', filename, 'string');\n read_only(this, '__filename__', filename);\n}\nInputFilePort.prototype = Object.create(InputStringPort.prototype);\nInputFilePort.prototype.constructor = InputFilePort;\nInputFilePort.prototype.toString = function() {\n return `#`;\n};\n// -------------------------------------------------------------------------\nfunction InputBinaryFilePort(content, filename) {\n if (typeof this !== 'undefined' && !(this instanceof InputBinaryFilePort) ||\n typeof this === 'undefined') {\n return new InputBinaryFilePort(content, filename);\n }\n InputByteVectorPort.call(this, content);\n typecheck('InputBinaryFilePort', filename, 'string');\n read_only(this, '__filename__', filename);\n}\nInputBinaryFilePort.prototype = Object.create(InputByteVectorPort.prototype);\nInputBinaryFilePort.prototype.constructor = InputBinaryFilePort;\nInputBinaryFilePort.prototype.toString = function() {\n return `#`;\n};\n// -------------------------------------------------------------------------\nfunction OutputBinaryFilePort(filename, fd) {\n if (typeof this !== 'undefined' && !(this instanceof OutputBinaryFilePort) ||\n typeof this === 'undefined') {\n return new OutputBinaryFilePort(filename, fd);\n }\n typecheck('OutputBinaryFilePort', filename, 'string');\n read_only(this, '__filename__', filename);\n read_only(this, '_fd', fd.valueOf(), { hidden: true });\n read_only(this, '__type__', binary_port);\n var fs, Buffer;\n this.write = function(x) {\n typecheck('write', x, ['number', 'uint8array']);\n var buffer;\n if (!fs) {\n fs = this.internal('fs');\n }\n if (!Buffer) {\n Buffer = this.internal('Buffer');\n }\n if (LNumber.isNumber(x)) {\n buffer = Buffer.from([x.valueOf()]);\n } else {\n buffer = Buffer.from(Array.from(x));\n }\n return new Promise((resolve, reject) => {\n fs.write(this._fd, buffer, function(err) {\n if (err) {\n reject(err);\n } else {\n resolve();\n }\n });\n });\n };\n}\nOutputBinaryFilePort.prototype = Object.create(OutputFilePort.prototype);\nOutputBinaryFilePort.prototype.constructor = OutputBinaryFilePort;\nOutputBinaryFilePort.prototype.write_u8 = function(byte) {\n typecheck('OutputByteVectorPort::write_u8', byte, 'number');\n this.write(byte);\n};\nOutputBinaryFilePort.prototype.write_u8_vector = function(vector) {\n typecheck('OutputByteVectorPort::write_u8_vector', vector, 'uint8array');\n this.write(vector);\n};\n// -------------------------------------------------------------------------\nconst binary_port = Symbol.for('binary');\nconst text_port = Symbol.for('text');\nvar eof = new EOF();\nfunction EOF() {}\nEOF.prototype.toString = function() {\n return '#';\n};\n// -------------------------------------------------------------------------\n// simpler way to create interpreter with interaction-environment\n// -------------------------------------------------------------------------\nfunction Interpreter(name, { stderr, stdin, stdout, ...obj } = {}) {\n if (typeof this !== 'undefined' && !(this instanceof Interpreter) ||\n typeof this === 'undefined') {\n return new Interpreter(name, { stdin, stdout, stderr, ...obj });\n }\n if (typeof name === 'undefined') {\n name = 'anonymous';\n }\n this.__env__ = user_env.inherit(name, obj);\n this.__env__.set('parent.frame', doc('parent.frame', () => {\n return this.__env__;\n }, global_env.__env__['parent.frame'].__doc__));\n const defaults_name = '**interaction-environment-defaults**';\n this.set(defaults_name, get_props(obj).concat(defaults_name));\n var inter = internal_env.inherit(`internal-${name}`);\n if (is_port(stdin)) {\n inter.set('stdin', stdin);\n }\n if (is_port(stderr)) {\n inter.set('stderr', stderr);\n }\n if (is_port(stdout)) {\n inter.set('stdout', stdout);\n }\n set_interaction_env(this.__env__, inter);\n}\n// -------------------------------------------------------------------------\nInterpreter.prototype.exec = function(code, dynamic = false, env = null) {\n typecheck('Interpreter::exec', code, ['string', 'array'], 1);\n typecheck('Interpreter::exec', dynamic, 'boolean', 2);\n // simple solution to overwrite this variable in each interpreter\n // before evaluation of user code\n global_env.set('**interaction-environment**', this.__env__);\n if (env === null) {\n env = this.__env__;\n }\n return exec(code, env, dynamic ? env : false);\n};\n// -------------------------------------------------------------------------\nInterpreter.prototype.get = function(value) {\n const result = this.__env__.get(value);\n if (is_function(result)) {\n return result.bind(this.__env__);\n }\n return result;\n};\n// -------------------------------------------------------------------------\nInterpreter.prototype.set = function(name, value) {\n return this.__env__.set(name, value);\n};\n// -------------------------------------------------------------------------\nInterpreter.prototype.constant = function(name, value) {\n return this.__env__.constant(name, value);\n};\n// -------------------------------------------------------------------------\n// Lips Exception used in error function\n// -------------------------------------------------------------------------\nfunction LipsError(message, args) {\n this.name = 'LipsError';\n this.message = message;\n this.args = args;\n this.stack = (new Error()).stack;\n}\nLipsError.prototype = new Error();\nLipsError.prototype.constructor = LipsError;\n// -------------------------------------------------------------------------\n// :: Environment constructor (parent and name arguments are optional)\n// -------------------------------------------------------------------------\nfunction Environment(obj, parent, name) {\n if (arguments.length === 1) {\n if (typeof arguments[0] === 'object') {\n obj = arguments[0];\n parent = null;\n } else if (typeof arguments[0] === 'string') {\n obj = {};\n parent = null;\n name = arguments[0];\n }\n }\n this.__docs__ = new Map();\n this.__env__ = obj;\n this.__parent__ = parent;\n this.__name__ = name || 'anonymous';\n}\n// -------------------------------------------------------------------------\nEnvironment.prototype.list = function() {\n return get_props(this.__env__);\n};\n// -------------------------------------------------------------------------\nEnvironment.prototype.fs = function() {\n return this.get('**fs**');\n};\n// -------------------------------------------------------------------------\nEnvironment.prototype.unset = function(name) {\n if (name instanceof LSymbol) {\n name = name.valueOf();\n }\n if (name instanceof LString) {\n name = name.valueOf();\n }\n delete this.__env__[name];\n};\n// -------------------------------------------------------------------------\nEnvironment.prototype.inherit = function(name, obj = {}) {\n if (typeof name === \"object\") {\n obj = name;\n }\n if (!name || typeof name === \"object\") {\n name = 'child of ' + (this.__name__ || 'unknown');\n }\n return new Environment(obj || {}, this, name);\n};\n// -------------------------------------------------------------------------\n// :: lookup function for variable doc strings\n// -------------------------------------------------------------------------\nEnvironment.prototype.doc = function(name, value = null, dump = false) {\n if (name instanceof LSymbol) {\n name = name.__name__;\n }\n if (name instanceof LString) {\n name = name.valueOf();\n }\n if (value) {\n if (!dump) {\n value = trim_lines(value);\n }\n this.__docs__.set(name, value);\n return this;\n }\n if (this.__docs__.has(name)) {\n return this.__docs__.get(name);\n }\n if (this.__parent__) {\n return this.__parent__.doc(name);\n }\n};\n// -------------------------------------------------------------------------\n// :: function create frame environment for usage in functions\n// :: frames are used to it's easier to find environments of the functions\n// :: in scope chain, they are dummy environments just for lookup\n// -------------------------------------------------------------------------\nEnvironment.prototype.newFrame = function(fn, args) {\n var frame = this.inherit('__frame__');\n frame.set('parent.frame', doc('parent.frame', function(n = 1) {\n n = n.valueOf();\n var scope = frame.__parent__;\n if (!(scope instanceof Environment)) {\n return nil;\n }\n if (n <= 0) {\n return scope;\n }\n var parent_frame = scope.get('parent.frame');\n return parent_frame(n - 1);\n }, global_env.__env__['parent.frame'].__doc__));\n args.callee = fn;\n frame.set('arguments', args);\n return frame;\n};\n// -------------------------------------------------------------------------\nEnvironment.prototype._lookup = function(symbol) {\n if (symbol instanceof LSymbol) {\n symbol = symbol.__name__;\n }\n if (symbol instanceof LString) {\n symbol = symbol.valueOf();\n }\n if (this.__env__.hasOwnProperty(symbol)) {\n return Value(this.__env__[symbol]);\n }\n if (this.__parent__) {\n return this.__parent__._lookup(symbol);\n }\n};\n// -------------------------------------------------------------------------\nEnvironment.prototype.toString = function() {\n return '#';\n};\n// -------------------------------------------------------------------------\nEnvironment.prototype.clone = function() {\n // duplicate refs\n var env = {};\n // TODO: duplicated Symbols\n Object.keys(this.__env__).forEach(key => {\n env[key] = this.__env__[key];\n });\n return new Environment(env, this.__parent__, this.__name__);\n};\n// -------------------------------------------------------------------------\nEnvironment.prototype.merge = function(env, name = 'merge') {\n typecheck('Environment::merge', env, 'environment');\n return this.inherit(name, env.__env__);\n};\n// -------------------------------------------------------------------------\n// value returned in lookup if found value in env and in promise_all\n// -------------------------------------------------------------------------\nfunction Value(value) {\n if (typeof this !== 'undefined' && !(this instanceof Value) ||\n typeof this === 'undefined') {\n return new Value(value);\n }\n this.value = value;\n}\n// -------------------------------------------------------------------------\nValue.isUndefined = function(x) {\n return x instanceof Value && typeof x.value === 'undefined';\n};\n// -------------------------------------------------------------------------\nValue.prototype.valueOf = function() {\n return this.value;\n};\n// -------------------------------------------------------------------------\n// :: different object than value used as object for (values)\n// -------------------------------------------------------------------------\nfunction Values(values) {\n if (values.length) {\n if (values.length === 1) {\n return values[0];\n }\n }\n if (typeof this !== 'undefined' && !(this instanceof Values) ||\n typeof this === 'undefined') {\n return new Values(values);\n }\n this.__values__ = values;\n}\nValues.prototype.toString = function() {\n return this.__values__.map(x => toString(x)).join('\\n');\n};\nValues.prototype.valueOf = function() {\n return this.__values__;\n};\n// -------------------------------------------------------------------------\nEnvironment.prototype.get = function(symbol, options = {}) {\n // we keep original environment as context for bind\n // so print will get user stdout\n typecheck('Environment::get', symbol, ['symbol', 'string']);\n const { throwError = true } = options;\n var name = symbol;\n if (name instanceof LSymbol || name instanceof LString) {\n name = name.valueOf();\n }\n var value = this._lookup(name);\n if (value instanceof Value) {\n if (Value.isUndefined(value)) {\n return undefined;\n }\n return patch_value(value.valueOf());\n }\n var parts;\n if (symbol instanceof LSymbol && symbol[LSymbol.object]) {\n // dot notation symbols from syntax-rules that are gensyms\n parts = symbol[LSymbol.object];\n } else if (typeof name === 'string') {\n parts = name.split('.').filter(Boolean);\n }\n if (parts && parts.length > 0) {\n var [first, ...rest] = parts;\n value = this._lookup(first);\n if (rest.length) {\n try {\n if (value instanceof Value) {\n value = value.valueOf();\n } else {\n value = get(root, first);\n if (is_function(value)) {\n value = unbind(value);\n }\n }\n if (typeof value !== 'undefined') {\n // object accessor\n return get(value, ...rest);\n }\n } catch (e) {\n throw e;\n }\n } else if (value instanceof Value) {\n return patch_value(value.valueOf());\n }\n value = get(root, name);\n }\n if (typeof value !== 'undefined') {\n return value;\n }\n if (throwError) {\n throw new Error(\"Unbound variable `\" + name.toString() + \"'\");\n }\n};\n// -------------------------------------------------------------------------\nEnvironment.prototype.set = function(name, value, doc = null) {\n typecheck('Environment::set', name, ['string', 'symbol']);\n if (LNumber.isNumber(value)) {\n value = LNumber(value);\n }\n if (name instanceof LSymbol) {\n name = name.__name__;\n }\n if (name instanceof LString) {\n name = name.valueOf();\n }\n this.__env__[name] = value;\n if (doc) {\n this.doc(name, doc, true);\n }\n return this;\n};\n// -------------------------------------------------------------------------\n// for internal use only\n// -------------------------------------------------------------------------\nEnvironment.prototype.constant = function(name, value) {\n if (this.__env__.hasOwnProperty(name)) {\n throw new Error(`Environment::constant: ${name} already exists`);\n }\n if (arguments.length === 1 && is_plain_object(arguments[0])) {\n var obj = arguments[0];\n Object.keys(obj).forEach(key => {\n this.constant(name, obj[key]);\n });\n } else {\n Object.defineProperty(this.__env__, name, {\n value,\n enumerable: true\n });\n }\n return this;\n};\n// -------------------------------------------------------------------------\nEnvironment.prototype.has = function(name) {\n return this.__env__.hasOwnProperty(name);\n};\n// -------------------------------------------------------------------------\nEnvironment.prototype.ref = function(name) {\n var env = this;\n while (true) {\n if (!env) {\n break;\n }\n if (env.has(name)) {\n return env;\n }\n env = env.__parent__;\n }\n};\n// -------------------------------------------------------------------------\nEnvironment.prototype.parents = function() {\n var env = this;\n var result = [];\n while (env) {\n result.unshift(env);\n env = env.__parent__;\n }\n return result;\n};\n// -------------------------------------------------------------------------\n// :: Quote function used to pause evaluation from Macro\n// -------------------------------------------------------------------------\nfunction quote(value) {\n if (is_promise(value)) {\n return value.then(quote);\n }\n if (value instanceof Pair || value instanceof LSymbol) {\n value[__data__] = true;\n }\n return value;\n}\n// -------------------------------------------------------------------------\n// :: Unquote is used for multiple backticks and unquote\n// -------------------------------------------------------------------------\nfunction Unquote(value, count, max) {\n this.value = value;\n this.count = count;\n this.max = max;\n}\nUnquote.prototype.toString = function() {\n return '#';\n};\n// -------------------------------------------------------------------------------\nvar native_lambda = parse(tokenize(`(lambda ()\n \"[native code]\"\n (throw \"Invalid Invocation\"))`))[0];\n// -------------------------------------------------------------------------------\nvar get = doc('get', function get(object, ...args) {\n var value;\n var len = args.length;\n while (args.length) {\n // if arg is symbol someone probably want to get __fn__ from binded function\n if (is_function(object) && typeof args[0] !== 'symbol') {\n object = unbind(object);\n }\n var arg = args.shift();\n var name = unbox(arg);\n // the value was set to false to prevent resolving\n // by Real Promises #153\n if (name === 'then' && object instanceof QuotedPromise) {\n value = QuotedPromise.prototype.then;\n } else if (name === '__code__' && is_function(object) &&\n typeof object.__code__ === 'undefined') {\n value = native_lambda;\n } else {\n value = object[name];\n }\n if (typeof value === 'undefined') {\n if (args.length) {\n throw new Error(`Try to get ${args[0]} from undefined`);\n }\n return value;\n } else {\n var context;\n if (args.length - 1 < len) {\n context = object;\n }\n value = patch_value(value, context);\n }\n object = value;\n }\n return value;\n}, `(. obj . args)\n (get obj . args)\n\n Function use object as base and keep using arguments to get the\n property of JavaScript object. Arguments need to be a strings.\n e.g. \\`(. console \"log\")\\` if you use any function inside LIPS is\n will be weakly bind (can be rebind), so you can call this log function\n without problem unlike in JavaScript when you use\n \\`var log = console.log\\`.\n \\`get\\` is an alias because . don't work in every place, e.g. you can't\n pass it as argument.`);\n// -------------------------------------------------------------------------\n// function get internal protected data\n// -------------------------------------------------------------------------\nfunction internal(env, name) {\n var internal_env = interaction(env, '**internal-env**');\n return internal_env.get(name);\n}\n// -------------------------------------------------------------------------\n// get variable from interaction environment\n// -------------------------------------------------------------------------\nfunction interaction(env, name) {\n var interaction_env = env.get('**interaction-environment**');\n return interaction_env.get(name);\n}\n// -------------------------------------------------------------------------\nvar internal_env = new Environment({\n stdout: new BufferedOutputPort(function(...args) {\n console.log(...args);\n }),\n // ------------------------------------------------------------------\n stderr: new BufferedOutputPort(function(...args) {\n console.error(...args);\n }),\n // ------------------------------------------------------------------\n stdin: InputPort(function() {\n return Promise.resolve(prompt(''));\n }),\n // those will be compiled by babel regex plugin\n 'letter-unicode-regex': /\\p{L}/u,\n 'numeral-unicode-regex': /\\p{N}/u,\n 'space-unicode-regex': /\\s/u\n}, undefined, 'internal');\n// -------------------------------------------------------------------------\nvar nan = LNumber(NaN);\nvar constants = {\n 'true': true,\n 'false': false,\n '#true': true,\n '#false': false,\n '#t': true,\n '#f': false,\n nil,\n 'undefined': undefined,\n 'null': null,\n 'NaN': nan,\n '+nan.0': nan,\n '-nan.0': nan\n};\n// -------------------------------------------------------------------------\nvar global_env = new Environment({\n eof,\n undefined, // undefined as parser constant breaks most of the unit tests\n // ---------------------------------------------------------------------\n 'peek-char': doc('peek-char', function(port = null) {\n if (port === null) {\n port = internal(this, 'stdin');\n }\n typecheck_text_port('peek-char', port, 'input-port');\n return port.peek_char();\n }, `(peek-char port)\n\n Function get character from string port or EOF object if no more\n data in string port.`),\n // ------------------------------------------------------------------\n 'read-line': doc('read-line', function(port = null) {\n if (port === null) {\n port = internal(this, 'stdin');\n }\n typecheck_text_port('read-line', port, 'input-port');\n return port.read_line();\n }, `(read-char port)\n\n Function read next character from input port.`),\n // ------------------------------------------------------------------\n 'read-char': doc('read-char', function(port = null) {\n if (port === null) {\n port = internal(this, 'stdin');\n }\n typecheck_text_port('read-char', port, 'input-port');\n return port.read_char();\n }, `(read-char port)\n\n Function read next character from input port.`),\n // ------------------------------------------------------------------\n read: doc('read', async function read(arg = null) {\n if (LString.isString(arg)) {\n for await (let value of parse(arg, this)) {\n return value;\n }\n }\n var port;\n if (arg === null) {\n port = internal(this, 'stdin');\n } else {\n port = arg;\n }\n typecheck_text_port('read', port, 'input-port');\n return port.read.call(this);\n }, `(read [string])\n\n Function if used with string will parse the string and return\n list structure of LIPS code. If called without an argument it\n will read string from standard input (using browser prompt or\n user defined way) and call itself with that string (parse is)\n function can be used together with eval to evaluate code from\n string`),\n // ------------------------------------------------------------------\n pprint: doc('pprint', function pprint(arg) {\n if (arg instanceof Pair) {\n arg = new lips.Formatter(arg.toString(true)).break().format();\n global_env.get('display').call(global_env, arg);\n } else {\n global_env.get('write').call(global_env, arg);\n }\n global_env.get('newline').call(global_env);\n }, `(pprint expression)\n\n Pretty print list expression, if called with non-pair it just call\n print function with passed argument.`),\n // ------------------------------------------------------------------\n print: doc('print', function print(...args) {\n const display = global_env.get('display');\n const newline = global_env.get('newline');\n args.forEach(arg => {\n display.call(global_env, arg);\n newline.call(global_env);\n });\n }, `(print . args)\n\n Function convert each argument to string and print the result to\n standard output (by default it's console but it can be defined\n it user code), the function call newline after printing each arg.`),\n // ------------------------------------------------------------------\n format: doc('format', function format(str, ...args) {\n typecheck('format', str, 'string');\n const re = /(~[as%~])/g;\n let m = str.match(/(~[as])/g);\n if (m && m.length > args.length) {\n throw new Error('Not enough arguments');\n }\n var i = 0;\n var repr = global_env.get('repr');\n str = str.replace(re, (x) => {\n const chr = x[1];\n if (chr === '~') {\n return '~';\n } else if (chr === '%') {\n return '\\n';\n } else {\n const arg = args[i++];\n if (chr === 'a') {\n return repr(arg);\n } else {\n return repr(arg, true);\n }\n }\n });\n m = str.match(/~([\\S])/);\n if (m) {\n throw new Error(`format: Unrecognized escape sequence ${m[1]}`);\n }\n return str;\n }, `(format string n1 n2 ...)\n\n Function accepts string template and replacing any escape sequences\n by arguments:\n\n * ~a value as if printed with display\n * ~s value as if printed with write\n * ~% newline character\n * ~~ literal tilde '~' is inserted\n\n if there missing arguments or other escape character it throw exception.`),\n // ------------------------------------------------------------------\n display: doc('display', function display(arg, port = null) {\n if (port === null) {\n port = internal(this, 'stdout');\n } else {\n typecheck('display', port, 'output-port');\n }\n const value = global_env.get('repr')(arg);\n port.write.call(global_env, value);\n }, `(display arg [port])\n\n Function send string to standard output or provied port.`),\n // ------------------------------------------------------------------\n 'display-error': doc('display-error', function error(...args) {\n const port = internal(this, 'stderr');\n const repr = global_env.get('repr');\n const value = args.map(repr).join(' ');\n port.write.call(global_env, value);\n global_env.get('newline')(port);\n }, `(display-error . args)\n\n Display error message.`),\n // ------------------------------------------------------------------\n '%same-functions': doc('%same-functions', function(a, b) {\n if (!is_function(a)) {\n return false;\n }\n if (!is_function(b)) {\n return false;\n }\n return unbind(a) === unbind(b);\n }, `(%same-functions a b)\n\n Helper function that check if two bound functions are the same`),\n // ------------------------------------------------------------------\n help: doc(new Macro('help', function(code, { dynamic_scope, error }) {\n var symbol;\n if (code.car instanceof LSymbol) {\n symbol = code.car;\n } else if (code.car instanceof Pair && code.car.car instanceof LSymbol) {\n symbol = code.car.car;\n } else {\n var env = this;\n if (dynamic_scope) {\n dynamic_scope = this;\n }\n var ret = evaluate(code.car, { env, error, dynamic_scope });\n if (ret && ret.__doc__) {\n return ret.__doc__;\n }\n return;\n }\n var __doc__;\n var value = this.get(symbol);\n __doc__ = value && value.__doc__;\n if (__doc__) {\n return __doc__;\n }\n var ref = this.ref(symbol);\n if (ref) {\n __doc__ = ref.doc(symbol);\n if (__doc__) {\n return __doc__;\n }\n }\n }), `(help object)\n\n Macro returns documentation for function or macro. You can save the function\n or macro in variable and use it in context. But help for variable require\n to pass the symbol itself.`),\n // ------------------------------------------------------------------\n cons: doc('cons', function cons(car, cdr) {\n return new Pair(car, cdr);\n }, `(cons left right)\n\n Function return new Pair out of two arguments.`),\n // ------------------------------------------------------------------\n car: doc('car', function car(list) {\n typecheck('car', list, 'pair');\n return list.car;\n }, `(car pair)\n\n Function returns car (head) of the list/pair.`),\n // ------------------------------------------------------------------\n cdr: doc('cdr', function cdr(list) {\n typecheck('cdr', list, 'pair');\n return list.cdr;\n }, `(cdr pair)\n\n Function returns cdr (tail) of the list/pair.`),\n // ------------------------------------------------------------------\n 'set!': doc(new Macro('set!', function(code, { dynamic_scope, error } = {}) {\n if (dynamic_scope) {\n dynamic_scope = this;\n }\n var env = this;\n var ref;\n var value = evaluate(code.cdr.car, { env: this, dynamic_scope, error });\n value = resolve_promises(value);\n function set(object, key, value) {\n if (is_promise(object)) {\n return object.then(key => set(object, key, value));\n }\n if (is_promise(key)) {\n return key.then(key => set(object, key, value));\n }\n if (is_promise(value)) {\n return value.then(value => set(object, key, value));\n }\n env.get('set-obj!').call(env, object, key, value);\n return value;\n }\n if (code.car instanceof Pair && LSymbol.is(code.car.car, '.')) {\n var second = code.car.cdr.car;\n var third = code.car.cdr.cdr.car;\n var object = evaluate(second, { env: this, dynamic_scope, error });\n var key = evaluate(third, { env: this, dynamic_scope, error });\n return set(object, key, value);\n }\n if (!(code.car instanceof LSymbol)) {\n throw new Error('set! first argument need to be a symbol or ' +\n 'dot accessor that evaluate to object.');\n }\n var symbol = code.car.valueOf();\n ref = this.ref(code.car.__name__);\n // we don't return value because we only care about sync of set value\n // when value is a promise\n return unpromise(value, value => {\n if (!ref) {\n // case (set! fn.toString (lambda () \"xxx\"))\n var parts = symbol.split('.');\n if (parts.length > 1) {\n var key = parts.pop();\n var name = parts.join('.');\n var obj = this.get(name, { throwError: false });\n if (obj) {\n set(obj, key, value);\n return;\n }\n }\n throw new Error('Unbound variable `' + symbol + '\\'');\n }\n ref.set(symbol, value);\n });\n }), `(set! name value)\n\n Macro that can be used to set the value of the variable (mutate)\n it search the scope chain until it finds first non empty slot and set it.`),\n // ------------------------------------------------------------------\n 'unset!': doc(new Macro('set!', function(code) {\n if (!(code.car instanceof LSymbol)) {\n throw new Error('unset! first argument need to be a symbol or ' +\n 'dot accessor that evaluate to object.');\n }\n const symbol = code.car;\n var ref = this.ref(symbol);\n if (ref) {\n delete ref.__env__[symbol.__name__];\n }\n }), `(unset! name)\n\n Function delete specified name from environment.`),\n // ------------------------------------------------------------------\n 'set-car!': doc('set-car!', function(slot, value) {\n typecheck('set-car!', slot, 'pair');\n slot.car = value;\n }, `(set-car! obj value)\n\n Function that set car (head) of the list/pair to specified value.\n It can destroy the list. Old value is lost.`),\n // ------------------------------------------------------------------\n 'set-cdr!': doc('set-cdr!', function(slot, value) {\n typecheck('set-cdr!', slot, 'pair');\n slot.cdr = value;\n }, `(set-cdr! obj value)\n\n Function that set cdr (tail) of the list/pair to specified value.\n It can destroy the list. Old value is lost.`),\n // ------------------------------------------------------------------\n 'empty?': doc('empty?', function(x) {\n return typeof x === 'undefined' || x === nil;\n }, `(empty? object)\n\n Function return true if value is undefined empty list.`),\n // ------------------------------------------------------------------\n gensym: doc(\n 'gensym',\n gensym,\n `(gensym)\n\n Function generate unique symbol, to use with macros as meta name.`),\n // ------------------------------------------------------------------\n // TODO: (load filename environment-specifier)\n // ------------------------------------------------------------------\n load: doc('load', function load(file, env) {\n typecheck('load', file, 'string');\n var g_env = this;\n if (g_env.__name__ === '__frame__') {\n g_env = g_env.__parent__;\n }\n if (!(env instanceof Environment)) {\n if (g_env === global_env) {\n // this is used for let-env + load\n // this may be obsolete when there is env arg\n env = g_env;\n } else {\n env = this.get('**interaction-environment**');\n }\n }\n const PATH = '**module-path**';\n var module_path = global_env.get(PATH, { throwError: false });\n file = file.valueOf();\n if (!file.match(/.[^.]+$/)) {\n file += '.scm';\n }\n const IS_BIN = file.match(/\\.xcb$/);\n function run(code) {\n if (IS_BIN) {\n code = unserialize_bin(code);\n } else {\n if (type(code) === 'buffer') {\n code = code.toString();\n }\n code = code.replace(/^#!.*/, '');\n if (code.match(/^\\{/)) {\n code = unserialize(code);\n }\n }\n return exec(code, env);\n }\n function fetch(file) {\n return root.fetch(file)\n .then(res => IS_BIN ? res.arrayBuffer() : res.text())\n .then((code) => {\n if (IS_BIN) {\n code = new Uint8Array(code);\n }\n return code;\n });\n }\n if (is_node()) {\n return new Promise((resolve, reject) => {\n var path = nodeRequire('path');\n if (module_path) {\n module_path = module_path.valueOf();\n file = path.join(module_path, file);\n }\n global_env.set(PATH, path.dirname(file));\n nodeRequire('fs').readFile(file, function(err, data) {\n if (err) {\n reject(err);\n global_env.set(PATH, module_path);\n } else {\n try {\n run(data).then(() => {\n resolve();\n global_env.set(PATH, module_path);\n }).catch(reject);\n } catch (e) {\n reject(e);\n }\n }\n });\n });\n }\n if (module_path) {\n module_path = module_path.valueOf();\n file = module_path + '/' + file.replace(/^\\.?\\/?/, '');\n }\n return fetch(file).then(code => {\n global_env.set(PATH, file.replace(/\\/[^/]*$/, ''));\n return run(code);\n }).then(() => {}).finally(() => {\n global_env.set(PATH, module_path);\n });\n }, `(load filename)\n (load filename environment)\n\n Function fetch the file and evaluate its content as LIPS code,\n If second argument is provided and it's environment the evaluation\n will happen in that environment.`),\n // ------------------------------------------------------------------\n 'do': doc(new Macro('do', async function(code, { dynamic_scope, error }) {\n var self = this;\n if (dynamic_scope) {\n dynamic_scope = self;\n }\n var scope = self.inherit('do');\n var vars = code.car;\n var test = code.cdr.car;\n var body = code.cdr.cdr;\n if (body !== nil) {\n body = new Pair(LSymbol('begin'), body);\n }\n let eval_args = { env: self, dynamic_scope, error };\n let node = vars;\n while (node !== nil) {\n const item = node.car;\n scope.set(item.car, await evaluate(item.cdr.car, eval_args));\n node = node.cdr;\n }\n eval_args = { env: scope, dynamic_scope, error };\n while ((await evaluate(test.car, eval_args)) === false) {\n if (body !== nil) {\n await lips.evaluate(body, eval_args);\n }\n let node = vars;\n const next = {};\n while (node !== nil) {\n const item = node.car;\n if (item.cdr.cdr !== nil) {\n const value = await evaluate(item.cdr.cdr.car, eval_args);\n next[item.car.valueOf()] = value;\n }\n node = node.cdr;\n }\n const symbols = Object.getOwnPropertySymbols(next);\n Object.keys(next).concat(symbols).forEach(key => {\n scope.set(key, next[key]);\n });\n }\n if (test.cdr !== nil) {\n return await evaluate(test.cdr.car, eval_args);\n }\n }), `(do (( )) (test expression) . body)\n\n Iteration macro that evaluate the expression body in scope of the variables.\n On Eeach loop it increase the variables according to next expression and run\n test to check if the loop should continue. If test is signle call the macro\n will not return anything. If the test is pair of expression and value the\n macro will return that value after finish.`),\n // ------------------------------------------------------------------\n 'if': doc(new Macro('if', function(code, { dynamic_scope, error }) {\n if (dynamic_scope) {\n dynamic_scope = this;\n }\n var env = this;\n var resolve = (cond) => {\n if (cond === false) {\n return evaluate(code.cdr.cdr.car, {\n env,\n dynamic_scope,\n error\n });\n } else {\n return evaluate(code.cdr.car, {\n env,\n dynamic_scope,\n error\n });\n }\n };\n if (code === nil) {\n throw new Error('too few expressions for `if`');\n }\n var cond = evaluate(code.car, { env, dynamic_scope, error });\n return unpromise(cond, resolve);\n }), `(if cond true-expr false-expr)\n\n Macro evaluate condition expression and if the value is true, it\n evaluate and return true expression if not it evaluate and return\n false expression`),\n // ------------------------------------------------------------------\n 'let-env': new Macro('let-env', function(code, options = {}) {\n const { dynamic_scope, error } = options;\n typecheck('let-env', code, 'pair');\n var ret = evaluate(code.car, { env: this, dynamic_scope, error });\n return unpromise(ret, function(value) {\n typecheck('let-env', value, 'environment');\n return evaluate(Pair(LSymbol('begin'), code.cdr), {\n env: value, dynamic_scope, error\n });\n });\n }, `(let-env env . body)\n\n Special macro that evaluate body in context of given environment\n object.`),\n // ------------------------------------------------------------------\n 'letrec': doc(\n let_macro(Symbol.for('letrec')),\n `(letrec ((a value-a) (b value-b)) body)\n\n Macro that creates new environment, then evaluate and assign values to\n names and then evaluate the body in context of that environment.\n Values are evaluated sequentially and next value can access to\n previous values/names.`),\n // ---------------------------------------------------------------------\n 'letrec*': doc(\n let_macro(Symbol.for('letrec')),\n `(letrec* ((a value-a) (b value-b)) body)\n\n Same as letrec but the order of execution of the binding is guaranteed,\n so use can use recursive code as well as reference previous binding.\n In LIPS both letrec and letrec* behave the same.`),\n // ---------------------------------------------------------------------\n 'let*': doc(\n let_macro(Symbol.for('let*')),\n `(let* ((a value-a) (b value-b)) body)\n\n Macro similar to \\`let\\` but next argument get environment\n from previous let variable, so they you can define one variable,\n and use in next argument.`),\n // ---------------------------------------------------------------------\n 'let': doc(\n let_macro(Symbol.for('let')),\n `(let ((a value-a) (b value-b)) body)\n\n Macro that creates new environment, then evaluate and assign values to\n names and then evaluate the body in context of that environment.\n Values are evaluated sequentially but you can't access\n previous values/names when next are evaluated. You can only get them\n from body of let expression.`),\n // ------------------------------------------------------------------\n 'begin*': doc(pararel('begin*', function(values) {\n return values.pop();\n }), `(begin* . expr)\n\n This macro is parallel version of begin. It evaluate each expression and\n if it's a promise it will evaluate it in parallel and return value\n of last expression.`),\n // ------------------------------------------------------------------\n 'begin': doc(new Macro('begin', function(code, options) {\n var args = Object.assign({ }, options);\n var arr = global_env.get('list->array')(code);\n if (args.dynamic_scope) {\n args.dynamic_scope = this;\n }\n args.env = this;\n var result;\n return (function loop() {\n if (arr.length) {\n var code = arr.shift();\n var ret = evaluate(code, args);\n return unpromise(ret, value => {\n result = value;\n return loop();\n });\n } else {\n return result;\n }\n })();\n }), `(begin . args)\n\n Macro runs list of expression and return valuate of the list one.\n It can be used in place where you can only have single expression,\n like if expression.`),\n // ------------------------------------------------------------------\n 'ignore': new Macro('ignore', function(code, { dynamic_scope, error }) {\n var args = { env: this, error };\n if (dynamic_scope) {\n args.dynamic_scope = this;\n }\n evaluate(new Pair(new LSymbol('begin'), code), args);\n }, `(ignore expression)\n\n Macro that will evaluate expression and swallow any promises that may\n be created. It wil run and ignore any value that may be returned by\n expression. The code should have side effects and/or when it's promise\n it should resolve to undefined.`),\n // ------------------------------------------------------------------\n 'call/cc': doc(Macro.defmacro('call/cc', function(code, eval_args = {}) {\n const args = {\n env: this,\n ...eval_args\n };\n return unpromise(evaluate(code.car, args), (result) => {\n if (is_function(result)) {\n return result(new Continuation(null));\n }\n });\n }), `(call/cc proc)\n\n TODO`),\n // ------------------------------------------------------------------\n define: doc(Macro.defmacro('define', function(code, eval_args) {\n var env = this;\n if (code.car instanceof Pair &&\n code.car.car instanceof LSymbol) {\n var new_code = new Pair(\n new LSymbol(\"define\"),\n new Pair(\n code.car.car,\n new Pair(\n new Pair(\n new LSymbol(\"lambda\"),\n new Pair(\n code.car.cdr,\n code.cdr\n )\n )\n )\n )\n );\n return new_code;\n } else if (eval_args.macro_expand) {\n // prevent evaluation in macroexpand\n return;\n }\n if (eval_args.dynamic_scope) {\n eval_args.dynamic_scope = this;\n }\n eval_args.env = env;\n var value = code.cdr.car;\n let new_expr;\n if (value instanceof Pair) {\n value = evaluate(value, eval_args);\n new_expr = true;\n } else if (value instanceof LSymbol) {\n value = env.get(value);\n }\n typecheck('define', code.car, 'symbol');\n return unpromise(value, value => {\n if (env.__name__ === Syntax.__merge_env__) {\n env = env.__parent__;\n }\n if (new_expr &&\n ((is_function(value) && is_lambda(value)) ||\n (value instanceof Syntax))) {\n value.__name__ = code.car.valueOf();\n if (value.__name__ instanceof LString) {\n value.__name__ = value.__name__.valueOf();\n }\n }\n let __doc__;\n if (code.cdr.cdr instanceof Pair &&\n LString.isString(code.cdr.cdr.car)) {\n __doc__ = code.cdr.cdr.car.valueOf();\n }\n env.set(code.car, value, __doc__, true);\n });\n }), `(define name expression)\n (define name expression \"doc string\")\n (define (function-name . args) body)\n\n Macro for defining values. It can be used to define variables,\n or function. If first argument is list it will create function\n with name beeing first element of the list. The macro evaluate\n code \\`(define function (lambda args body))\\``),\n // ------------------------------------------------------------------\n 'set-obj!': doc('set-obj!', function(obj, key, value) {\n var obj_type = typeof obj;\n if (is_null(obj) || (obj_type !== 'object' && obj_type !== 'function')) {\n var msg = typeErrorMessage('set-obj!', type(obj), ['object', 'function']);\n throw new Error(msg);\n }\n typecheck('set-obj!', key, ['string', 'symbol', 'number']);\n obj = unbind(obj);\n key = key.valueOf();\n if (arguments.length === 2) {\n delete obj[key];\n } else if (is_prototype(obj) && is_function(value)) {\n obj[key] = unbind(value);\n obj[key][__prototype__] = true;\n } else if (is_function(value) || is_native(value) || value === nil) {\n obj[key] = value;\n } else {\n obj[key] = value && !is_prototype(value) ? value.valueOf() : value;\n }\n }, `(set-obj! obj key value)\n\n Function set property of JavaScript object`),\n // ------------------------------------------------------------------\n 'null-environment': doc('null-environment', function() {\n return global_env.inherit('null');\n }, `(null-environment)\n\n Function return new base environment with std lib.`),\n // ------------------------------------------------------------------\n 'values': doc('values', function values(...args) {\n return Values(args);\n }, `(values a1 a2 ...)\n\n If called with more then one element it will create special\n Values object that can be used in call-with-values function`),\n // ------------------------------------------------------------------\n 'call-with-values': doc('call-with-values', function(producer, consumer) {\n typecheck('call-with-values', producer, 'function', 1);\n typecheck('call-with-values', consumer, 'function', 2);\n var maybe = producer();\n if (maybe instanceof Values) {\n return consumer(...maybe.valueOf());\n }\n return consumer(maybe);\n }, `(call-with-values producer consumer)\n\n Calls its producer argument with no values and a continuation that,\n when passed some values, calls the consumer procedure with those\n values as arguments.`),\n // ------------------------------------------------------------------\n 'current-environment': doc('current-environment', function() {\n if (this.__name__ === '__frame__') {\n return this.__parent__;\n }\n return this;\n }, `(current-environment)\n\n Function return current environment.`),\n // ------------------------------------------------------------------\n 'parent.frame': doc('parent.frame', function() {\n return user_env;\n }, `(parent.frame)\n\n Return parent environment if called from inside function.\n If no parent frame found it return nil.`),\n // ------------------------------------------------------------------\n 'eval': doc('eval', function(code, env) {\n env = env || this.get('current-environment').call(this);\n return evaluate(code, {\n env,\n //dynamic_scope: this,\n error: e => {\n var error = global_env.get('display-error');\n error.call(this, e.message);\n if (e.code) {\n var stack = e.code.map((line, i) => {\n return `[${i + 1}]: ${line}`;\n }).join('\\n');\n error.call(this, stack);\n }\n }\n });\n }, `(eval expr)\n (eval expr environment)\n\n Function evaluate LIPS Scheme code.`),\n // ------------------------------------------------------------------\n lambda: new Macro('lambda', function(code, { dynamic_scope, error } = {}) {\n var self = this;\n var __doc__;\n if (code.cdr instanceof Pair &&\n LString.isString(code.cdr.car) &&\n code.cdr.cdr !== nil) {\n __doc__ = code.cdr.car.valueOf();\n }\n function lambda(...args) {\n var env;\n // this is function calling env\n // self is lexical scope when function was defined\n if (dynamic_scope) {\n if (!(this instanceof Environment)) {\n env = self;\n } else {\n env = this;\n }\n } else {\n env = self;\n }\n env = env.inherit('lambda');\n var name = code.car;\n var i = 0;\n var value;\n if (typeof this !== 'undefined' && !(this instanceof Environment)) {\n if (this && !this.__instance__) {\n Object.defineProperty(this, '__instance__', {\n enumerable: false,\n get: () => true,\n set: () => {},\n configurable: false\n });\n }\n env.set('this', this);\n }\n // arguments and arguments.callee inside lambda function\n if (this instanceof Environment) {\n var options = { throwError: false };\n env.set('arguments', this.get('arguments', options));\n env.set('parent.frame', this.get('parent.frame', options));\n } else {\n // this case is for lambda as callback function in JS; e.g. setTimeout\n var _args = args.slice();\n _args.callee = lambda;\n _args.env = env;\n env.set('arguments', _args);\n }\n if (name instanceof LSymbol || name !== nil) {\n while (true) {\n if (name.car !== nil) {\n if (name instanceof LSymbol) {\n // rest argument, can also be first argument\n value = quote(Pair.fromArray(args.slice(i), false));\n env.__env__[name.__name__] = value;\n break;\n } else {\n value = args[i];\n env.__env__[name.car.__name__] = value;\n }\n }\n if (name.cdr === nil) {\n break;\n }\n i++;\n name = name.cdr;\n }\n }\n if (dynamic_scope) {\n dynamic_scope = env;\n }\n var rest = __doc__ ? code.cdr.cdr : code.cdr;\n var output = new Pair(new LSymbol('begin'), rest);\n return evaluate(output, { env, dynamic_scope, error });\n }\n var length = code.car instanceof Pair ? code.car.length() : null;\n lambda.__code__ = new Pair(new LSymbol('lambda'), code);\n lambda[__lambda__] = true;\n if (!(code.car instanceof Pair)) {\n return doc(lambda, __doc__, true); // variable arguments\n }\n // wrap and decorate with __doc__\n return doc(set_fn_length(lambda, length), __doc__, true);\n }, `(lambda (a b) body)\n (lambda args body)\n (lambda (a b . rest) body)\n\n Macro lambda create new anonymous function, if first element of the body\n is string and there is more elements it will be documentation, that can\n be read using (help fn)`),\n 'macroexpand': new Macro('macroexpand', macro_expand()),\n 'macroexpand-1': new Macro('macroexpand-1', macro_expand(true)),\n // ------------------------------------------------------------------\n 'define-macro': doc(new Macro(macro, function(macro, { dynamic_scope, error }) {\n if (macro.car instanceof Pair && macro.car.car instanceof LSymbol) {\n var name = macro.car.car.__name__;\n var __doc__;\n if (LString.isString(macro.cdr.car) && macro.cdr.cdr instanceof Pair) {\n __doc__ = macro.cdr.car.valueOf();\n }\n var makro_instance = Macro.defmacro(name, function(code) {\n var env = new Environment({}, this, 'defmacro');\n var name = macro.car.cdr;\n var arg = code;\n while (true) {\n if (name === nil) {\n break;\n }\n if (name instanceof LSymbol) {\n env.__env__[name.__name__] = arg;\n break;\n } else if (name.car !== nil) {\n if (arg === nil) {\n env.__env__[name.car.__name__] = nil;\n } else {\n if (arg.car instanceof Pair) {\n arg.car[__data__] = true;\n }\n env.__env__[name.car.__name__] = arg.car;\n }\n }\n if (name.cdr === nil) {\n break;\n }\n if (arg !== nil) {\n arg = arg.cdr;\n }\n name = name.cdr;\n }\n if (dynamic_scope) {\n dynamic_scope = env;\n }\n var eval_args = {\n env,\n dynamic_scope,\n error\n };\n // evaluate macro\n if (macro.cdr instanceof Pair) {\n // this eval will return lips code\n var rest = __doc__ ? macro.cdr.cdr : macro.cdr;\n var result = rest.reduce(function(result, node) {\n return evaluate(node, eval_args);\n });\n return unpromise(result, function(result) {\n if (typeof result === 'object') {\n delete result[__data__];\n }\n return result;\n });\n }\n }, __doc__, true);\n makro_instance.__code__ = new Pair(new LSymbol('define-macro'), macro);\n this.set(name, makro_instance);\n }\n }), `(define-macro (name . args) body)\n\n Meta macro, macro that create new macros, if return value is list structure\n it will be evaluated when macro is invoked. You can use quasiquote \\` and\n unquote , and unquote-splicing ,@ inside to create expression that will be\n evaluated on runtime. Macros works like this: if you pass any expression to\n macro the arguments will not be evaluated unless macro itself evaluate it.\n Because of this macro can manipulate expression (arguments) as lists.`),\n // ------------------------------------------------------------------\n 'syntax-rules': new Macro('syntax-rules', function(macro, options) {\n var { dynamic_scope, error } = options;\n var env = this;\n function get_identifiers(node) {\n let symbols = [];\n while (node !== nil) {\n const x = node.car;\n symbols.push(x.valueOf());\n node = node.cdr;\n }\n return symbols;\n }\n function validate_identifiers(node) {\n while (node !== nil) {\n const x = node.car;\n if (!(x instanceof LSymbol)) {\n throw new Error('syntax-rules: wrong identifier');\n }\n node = node.cdr;\n }\n }\n if (macro.car instanceof LSymbol) {\n validate_identifiers(macro.cdr.car);\n } else {\n validate_identifiers(macro.car);\n }\n const syntax = new Syntax(function(code, { macro_expand }) {\n var scope = env.inherit('syntax');\n if (dynamic_scope) {\n dynamic_scope = scope;\n }\n var var_scope = this;\n // for macros that define variables used in macro (2 levels nestting)\n if (var_scope.__name__ === Syntax.__merge_env__) {\n // copy refs for defined gynsyms\n const props = Object.getOwnPropertySymbols(var_scope.__env__);\n props.forEach(symbol => {\n var_scope.__parent__.set(symbol, var_scope.__env__[symbol]);\n });\n var_scope = var_scope.__parent__;\n }\n var eval_args = { env: scope, dynamic_scope, error };\n let ellipsis, rules, symbols;\n if (macro.car instanceof LSymbol) {\n ellipsis = macro.car;\n symbols = get_identifiers(macro.cdr.car);\n rules = macro.cdr.cdr;\n } else {\n ellipsis = '...';\n symbols = get_identifiers(macro.car);\n rules = macro.cdr;\n }\n try {\n while (rules !== nil) {\n var rule = rules.car.car;\n var expr = rules.car.cdr.car;\n log(rule);\n var bindings = extract_patterns(rule, code, symbols, ellipsis, {\n expansion: this, define: env\n });\n if (bindings) {\n /* istanbul ignore next */\n if (is_debug()) {\n console.log(JSON.stringify(symbolize(bindings), true, 2));\n console.log('PATTERN: ' + rule.toString(true));\n console.log('MACRO: ' + code.toString(true));\n }\n // name is modified in transform_syntax\n var names = [];\n const new_expr = transform_syntax({\n bindings,\n expr,\n symbols,\n scope,\n lex_scope: var_scope,\n names,\n ellipsis\n });\n log('OUPUT>>> ' + new_expr.toString());\n if (new_expr) {\n expr = new_expr;\n }\n var new_env = var_scope.merge(scope, Syntax.__merge_env__);\n if (macro_expand) {\n return { expr, scope: new_env };\n }\n var result = evaluate(expr, { ...eval_args, env: new_env });\n // Hack: update the result if there are generated\n // gensyms that should be literal symbols\n // TODO: maybe not the part move when literal elisps may\n // be generated, maybe they will need to be mark somehow\n return clear_gensyms(result, names);\n }\n rules = rules.cdr;\n }\n } catch (e) {\n e.message += ` in macro: ${macro.toString(true)}`;\n throw e;\n }\n throw new Error(`Invalid Syntax ${code.toString(true)}`);\n }, env);\n syntax.__code__ = macro;\n return syntax;\n }, `(syntax-rules () (pattern expression) ...)\n\n Base of Hygienic macro, it will return new syntax expander\n that works like lisp macros.`),\n // ------------------------------------------------------------------\n quote: doc(new Macro('quote', function(arg) {\n return quote(arg.car);\n }), `(quote expression)\n\n Macro that return single lips expression as data (it don't evaluate its\n argument). It will return list of pairs if put in front of lips code.\n And if put in fron of symbol it will return that symbol not value\n associated with that name.`),\n 'unquote-splicing': doc('unquote-splicing', function() {\n throw new Error(`You can't call \\`unquote-splicing\\` outside of quasiquote`);\n }, `(unquote-splicing code)\n\n Special form to be used in quasiquote macro, parser is processing special\n characters ,@ and create call to this pseudo function. It can be used\n to evaluate expression inside and return the value without parenthesis.\n the value will be joined to the output list structure.`),\n 'unquote': doc('unquote', function() {\n throw new Error(`You can't call \\`unquote\\` outside of quasiquote`);\n }, `(unquote code)\n\n Special form to be used in quasiquote macro, parser is processing special\n characters , and create call to this pseudo function. It can be used\n to evaluate expression inside and return the value, the output is inserted\n into list structure created by queasiquote.`),\n // ------------------------------------------------------------------\n quasiquote: Macro.defmacro('quasiquote', function(arg, env) {\n var { dynamic_scope, error } = env;\n var self = this;\n //var max_unquote = 1;\n if (dynamic_scope) {\n dynamic_scope = self;\n }\n // -----------------------------------------------------------------\n function is_struct(value) {\n return value instanceof Pair ||\n is_plain_object(value) ||\n Array.isArray(value);\n }\n // -----------------------------------------------------------------\n function resolve_pair(pair, fn, test = is_struct) {\n if (pair instanceof Pair) {\n var car = pair.car;\n var cdr = pair.cdr;\n if (test(car)) {\n car = fn(car);\n }\n if (test(cdr)) {\n cdr = fn(cdr);\n }\n if (is_promise(car) || is_promise(cdr)) {\n return promise_all([car, cdr]).then(([car, cdr]) => {\n return new Pair(car, cdr);\n });\n } else {\n return new Pair(car, cdr);\n }\n }\n return pair;\n }\n // -----------------------------------------------------------------\n function join(eval_pair, value) {\n if (eval_pair === nil && value === nil) {\n //return nil;\n }\n if (eval_pair instanceof Pair) {\n if (value !== nil) {\n eval_pair.append(value);\n }\n } else {\n eval_pair = new Pair(\n eval_pair,\n value\n );\n }\n return eval_pair;\n }\n // -----------------------------------------------------------------\n function unquoted_arr(arr) {\n return !!arr.filter(value => {\n return value instanceof Pair &&\n LSymbol.is(value.car, /^(unquote|unquote-splicing)$/);\n }).length;\n }\n // -----------------------------------------------------------------\n function quote_vector(arr, unquote_cnt, max_unq) {\n return arr.reduce((acc, x) => {\n if (!(x instanceof Pair)) {\n acc.push(x);\n return acc;\n }\n if (LSymbol.is(x.car, 'unquote-splicing')) {\n let result;\n if (unquote_cnt + 1 < max_unq) {\n result = recur(x.cdr, unquote_cnt + 1, max_unq);\n } else {\n result = evaluate(x.cdr.car, {\n env: self,\n dynamic_scope,\n error\n });\n }\n if (!(result instanceof Pair)) {\n throw new Error(`Expecting list ${type(x)} found`);\n }\n return acc.concat(result.to_array());\n }\n acc.push(recur(x, unquote_cnt, max_unq));\n return acc;\n }, []);\n }\n // -----------------------------------------------------------------\n function quote_object(object, unquote_cnt, max_unq) {\n const result = {};\n unquote_cnt++;\n Object.keys(object).forEach(key => {\n const value = object[key];\n if (value instanceof Pair) {\n if (LSymbol.is(value.car, 'unquote-splicing')) {\n throw new Error(\"You can't call `unquote-splicing` \" +\n \"inside object\");\n }\n let output;\n if (unquote_cnt < max_unq) {\n output = recur(value.cdr.car, unquote_cnt, max_unq);\n } else {\n output = evaluate(value.cdr.car, {\n env: self,\n dynamic_scope,\n error\n });\n }\n result[key] = output;\n } else {\n result[key] = value;\n }\n });\n if (Object.isFrozen(object)) {\n Object.freeze(result);\n }\n return result;\n }\n // -----------------------------------------------------------------\n function unquote_splice(pair, unquote_cnt, max_unq) {\n if (unquote_cnt < max_unq) {\n return new Pair(\n new Pair(\n pair.car.car,\n recur(pair.car.cdr, unquote_cnt, max_unq)\n ),\n nil\n );\n }\n var lists = [];\n return (function next(node) {\n var value = evaluate(node.car, {\n env: self,\n dynamic_scope,\n error\n });\n lists.push(value);\n if (node.cdr instanceof Pair) {\n return next(node.cdr);\n }\n return unpromise(lists, function(arr) {\n if (arr.some(x => !(x instanceof Pair))) {\n if (pair.cdr instanceof Pair &&\n LSymbol.is(pair.cdr.car, '.') &&\n pair.cdr.cdr instanceof Pair &&\n pair.cdr.cdr.cdr === nil) {\n return pair.cdr.cdr.car;\n }\n if (!(pair.cdr === nil || pair.cdr instanceof Pair)) {\n const msg = \"You can't splice atom inside list\";\n throw new Error(msg);\n }\n if (arr.length > 1) {\n const msg = \"You can't splice multiple atoms inside list\";\n throw new Error(msg);\n }\n if (!(pair.cdr instanceof Pair && arr[0] === nil)) {\n return arr[0];\n }\n }\n // don't create Cycles\n arr = arr.map(eval_pair => {\n if (splices.has(eval_pair)) {\n return eval_pair.clone();\n } else {\n splices.add(eval_pair);\n return eval_pair;\n }\n });\n const value = recur(pair.cdr, 0, 1);\n if (value === nil && arr[0] === nil) {\n return undefined;\n }\n return unpromise(value, value => {\n if (arr[0] === nil) {\n return value;\n }\n if (arr.length === 1) {\n return join(arr[0], value);\n }\n var result = arr.reduce((result, eval_pair) => {\n return join(result, eval_pair);\n });\n return join(result, value);\n });\n });\n })(pair.car.cdr);\n }\n // -----------------------------------------------------------------\n var splices = new Set();\n function recur(pair, unquote_cnt, max_unq) {\n if (pair instanceof Pair) {\n if (pair.car instanceof Pair) {\n if (LSymbol.is(pair.car.car, 'unquote-splicing')) {\n return unquote_splice(pair, unquote_cnt + 1, max_unq);\n }\n if (LSymbol.is(pair.car.car, 'unquote')) {\n // + 2 - one for unquote and one for unquote splicing\n if (unquote_cnt + 2 === max_unq &&\n pair.car.cdr instanceof Pair &&\n pair.car.cdr.car instanceof Pair &&\n LSymbol.is(pair.car.cdr.car.car, 'unquote-splicing')) {\n const rest = pair.car.cdr;\n return new Pair(\n new Pair(\n new LSymbol('unquote'),\n unquote_splice(rest, unquote_cnt + 2, max_unq)\n ),\n nil\n );\n } else if (pair.car.cdr instanceof Pair &&\n pair.car.cdr.cdr !== nil) {\n if (pair.car.cdr.car instanceof Pair) {\n // values inside unquote are lists\n const result = [];\n return (function recur(node) {\n if (node === nil) {\n return Pair.fromArray(result);\n }\n return unpromise(evaluate(node.car, {\n env: self,\n dynamic_scope,\n error\n }), function(next) {\n result.push(next);\n return recur(node.cdr);\n });\n })(pair.car.cdr);\n } else {\n // same as in guile if (unquote 1 2 3) it should be\n // spliced - scheme spec say it's unspecify but it\n // work like in CL\n return pair.car.cdr;\n }\n }\n }\n }\n if (LSymbol.is(pair.car, 'quasiquote')) {\n var cdr = recur(pair.cdr, unquote_cnt, max_unq + 1);\n return new Pair(pair.car, cdr);\n }\n if (LSymbol.is(pair.car, 'quote')) {\n return new Pair(\n pair.car,\n recur(pair.cdr, unquote_cnt, max_unq)\n );\n }\n if (LSymbol.is(pair.car, 'unquote')) {\n unquote_cnt++;\n if (unquote_cnt < max_unq) {\n return new Pair(\n new LSymbol('unquote'),\n recur(pair.cdr, unquote_cnt, max_unq)\n );\n }\n if (unquote_cnt > max_unq) {\n throw new Error(\"You can't call `unquote` outside \" +\n \"of quasiquote\");\n }\n if (pair.cdr instanceof Pair) {\n if (pair.cdr.cdr !== nil) {\n if (pair.cdr.car instanceof Pair) {\n // TODO: test if this part is needed\n // this part was duplicated in previous section\n // if (LSymbol.is(pair.car.car, 'unquote')) {\n // so this probably can be removed\n const result = [];\n // evaluate all values in unquote\n return (function recur(node) {\n if (node === nil) {\n return Pair.fromArray(result);\n }\n return unpromise(evaluate(node.car, {\n env: self,\n dynamic_scope,\n error\n }), function(next) {\n result.push(next);\n return recur(node.cdr);\n });\n })(pair.cdr);\n } else {\n return pair.cdr;\n }\n } else {\n return evaluate(pair.cdr.car, {\n env: self,\n dynamic_scope,\n error\n });\n }\n } else {\n return pair.cdr;\n }\n }\n return resolve_pair(pair, (pair) => {\n return recur(pair, unquote_cnt, max_unq);\n });\n } else if (is_plain_object(pair)) {\n return quote_object(pair, unquote_cnt, max_unq);\n } else if (pair instanceof Array) {\n return quote_vector(pair, unquote_cnt, max_unq);\n }\n return pair;\n }\n // -----------------------------------------------------------------\n function clear(node) {\n if (node instanceof Pair) {\n delete node[__data__];\n if (!node.haveCycles('car')) {\n clear(node.car);\n }\n if (!node.haveCycles('cdr')) {\n clear(node.cdr);\n }\n }\n }\n // -----------------------------------------------------------------\n if (is_plain_object(arg.car) && !unquoted_arr(Object.values(arg.car))) {\n return quote(arg.car);\n }\n if (Array.isArray(arg.car) && !unquoted_arr(arg.car)) {\n return quote(arg.car);\n }\n if (arg.car instanceof Pair &&\n !arg.car.find('unquote') &&\n !arg.car.find('unquote-splicing') &&\n !arg.car.find('quasiquote')) {\n return quote(arg.car);\n }\n var x = recur(arg.car, 0, 1);\n return unpromise(x, value => {\n // clear nested data for tests\n clear(value);\n return quote(value);\n });\n }, `(quasiquote list ,value ,@value)\n\n Similar macro to \\`quote\\` but inside it you can use special\n expressions unquote abbreviated to , that will evaluate expression inside\n and return its value or unquote-splicing abbreviated to ,@ that will\n evaluate expression but return value without parenthesis (it will join)\n the list with its value. Best used with macros but it can be used outside`),\n // ------------------------------------------------------------------\n clone: doc('clone', function clone(list) {\n typecheck('clone', list, 'pair');\n return list.clone();\n }, `(clone list)\n\n Function return clone of the list.`),\n // ------------------------------------------------------------------\n append: doc('append', function append(...items) {\n items = items.map(item => {\n if (item instanceof Pair) {\n return item.clone();\n }\n return item;\n });\n return global_env.get('append!').call(this, ...items);\n }, `(append item ...)\n\n Function will create new list with eac argument appended to the end.\n It will always return new list and not modify it's arguments.`),\n // ------------------------------------------------------------------\n 'append!': doc('append!', function(...items) {\n var is_list = global_env.get('list?');\n return items.reduce((acc, item) => {\n typecheck('append!', acc, ['nil', 'pair']);\n if ((item instanceof Pair || item === nil) && !is_list(item)) {\n throw new Error('append!: Invalid argument, value is not a list');\n }\n if (is_null(item)) {\n return acc;\n }\n if (acc === nil) {\n if (item === nil) {\n return nil;\n }\n return item;\n }\n return acc.append(item);\n }, nil);\n }, `(append! arg1 ...)\n\n Destructive version of append, it modify the list in place. It return\n new list where each argument is appened to the end. It may modify\n lists added as arguments.`),\n // ------------------------------------------------------------------\n reverse: doc('reverse', function reverse(arg) {\n typecheck('reverse', arg, ['array', 'pair', 'nil']);\n if (arg === nil) {\n return nil;\n }\n if (arg instanceof Pair) {\n var arr = global_env.get('list->array')(arg).reverse();\n return global_env.get('array->list')(arr);\n } else if (!(arg instanceof Array)) {\n throw new Error(typeErrorMessage('reverse', type(arg), 'array or pair'));\n } else {\n return arg.reverse();\n }\n }, `(reverse list)\n\n Function will reverse the list or array. If value is not a list\n or array it will throw exception.`),\n // ------------------------------------------------------------------\n nth: doc('nth', function nth(index, obj) {\n typecheck('nth', index, 'number');\n typecheck('nth', obj, ['array', 'pair']);\n if (obj instanceof Pair) {\n var node = obj;\n var count = 0;\n while (count < index) {\n if (!node.cdr || node.cdr === nil || node.haveCycles('cdr')) {\n return nil;\n }\n node = node.cdr;\n count++;\n }\n return node.car;\n } else if (obj instanceof Array) {\n return obj[index];\n } else {\n throw new Error(typeErrorMessage('nth', type(obj), 'array or pair', 2));\n }\n }, `(nth index obj)\n\n Function return nth element of the list or array. If used with different\n value it will throw exception`),\n // ------------------------------------------------------------------\n list: doc('list', function list(...args) {\n return args.reverse().reduce((list, item) => new Pair(item, list), nil);\n }, `(list . args)\n\n Function create new list out of its arguments.`),\n // ------------------------------------------------------------------\n substring: doc('substring', function substring(string, start, end) {\n typecheck('substring', string, 'string');\n typecheck('substring', start, 'number');\n typecheck('substring', end, ['number', 'undefined']);\n return string.substring(start.valueOf(), end && end.valueOf());\n }, `(substring string start end)\n\n Function return part of the string starting at start ending with end.`),\n // ------------------------------------------------------------------\n concat: doc('concat', function concat(...args) {\n args.forEach((arg, i) => typecheck('concat', arg, 'string', i + 1));\n return args.join('');\n }, `(concat . strings)\n\n Function create new string by joining its arguments`),\n // ------------------------------------------------------------------\n join: doc('join', function join(separator, list) {\n typecheck('join', separator, 'string');\n typecheck('join', list, ['pair', 'nil']);\n return global_env.get('list->array')(list).join(separator);\n }, `(join separator list)\n\n Function return string by joining elements of the list`),\n // ------------------------------------------------------------------\n split: doc('split', function split(separator, string) {\n typecheck('split', separator, ['regex', 'string']);\n typecheck('split', string, 'string');\n return global_env.get('array->list')(string.split(separator));\n }, `(split separator string)\n\n Function create list by splitting string by separatar that can\n be a string or regular expression.`),\n // ------------------------------------------------------------------\n replace: doc('replace', function replace(pattern, replacement, string) {\n typecheck('replace', pattern, ['regex', 'string']);\n typecheck('replace', replacement, ['string', 'function']);\n typecheck('replace', string, 'string');\n return string.replace(pattern, replacement);\n }, `(replace pattern replacement string)\n\n Function change pattern to replacement inside string. Pattern can be string\n or regex and replacement can be function or string.`),\n // ------------------------------------------------------------------\n match: doc('match', function match(pattern, string) {\n typecheck('match', pattern, ['regex', 'string']);\n typecheck('match', string, 'string');\n var m = string.match(pattern);\n return m ? global_env.get('array->list')(m) : false;\n }, `(match pattern string)\n\n function return match object from JavaScript as list or #f if not match.`),\n // ------------------------------------------------------------------\n search: doc('search', function search(pattern, string) {\n typecheck('search', pattern, ['regex', 'string']);\n typecheck('search', string, 'string');\n return string.search(pattern);\n }, `(search pattern string)\n\n Function return first found index of the pattern inside a string`),\n // ------------------------------------------------------------------\n repr: doc('repr', function repr(obj, quote) {\n return toString(obj, quote);\n }, `(repr obj)\n\n Function return string LIPS representation of an object as string.`),\n // ------------------------------------------------------------------\n 'escape-regex': doc('escape-regex', function(string) {\n typecheck('escape-regex', string, 'string');\n return escape_regex(string.valueOf());\n }, `(escape-regex string)\n\n Function return new string where all special operators used in regex,\n are escaped with slash so they can be used in RegExp constructor\n to match literal string`),\n // ------------------------------------------------------------------\n env: doc('env', function env(env) {\n env = env || this;\n var names = Object.keys(env.__env__).map(LSymbol);\n // TODO: get symbols\n var result;\n if (names.length) {\n result = Pair.fromArray(names);\n } else {\n result = nil;\n }\n if (env.__parent__ instanceof Environment) {\n return global_env.get('env')(env.__parent__).append(result);\n }\n return result;\n }, `(env)\n (env obj)\n\n Function return list of values (functions, macros and variables)\n inside environment and it's parents.`),\n // ------------------------------------------------------------------\n 'new': doc('new', function(obj, ...args) {\n var instance = new (unbind(obj))(...args.map(x => unbox(x)));\n return instance;\n }, `(new obj . args)\n\n Function create new JavaScript instance of an object.`),\n // ------------------------------------------------------------------\n 'typecheck': doc(\n typecheck,\n `(typecheck label value type [position])\n\n Function check type and throw exception if type don't match.\n Type can be string or list of strings. Position optional argument\n is used to created proper error message.`),\n // ------------------------------------------------------------------\n 'unset-special!': doc('unset-special!', function(symbol) {\n typecheck('remove-special!', symbol, 'string');\n delete specials.remove(symbol.valueOf());\n }, `(unset-special! name)\n\n Function remove special symbol from parser. Added by \\`set-special!\\`,\n name must be a string.`),\n // ------------------------------------------------------------------\n 'set-special!': doc('set-special!', function(seq, name, type = specials.LITERAL) {\n typecheck('set-special!', seq, 'string', 1);\n typecheck('set-special!', name, 'symbol', 2);\n specials.append(seq.valueOf(), name, type);\n }, `(set-special! symbol name [type])\n\n Add special symbol to the list of transforming operators by the parser.\n e.g.: \\`(add-special! \"#\" 'x)\\` will allow to use \\`#(1 2 3)\\` and it will be\n transformed into (x (1 2 3)) so you can write x macro that will process\n the list. 3rd argument is optional and it can be constant value\n lips.specials.SPLICE if this constant is used it will transform\n \\`#(1 2 3)\\` into (x 1 2 3) that is required by # that define vectors.`),\n // ------------------------------------------------------------------\n 'get': get,\n '.': get,\n // ------------------------------------------------------------------\n 'unbind': doc(\n unbind,\n `(unbind fn)\n\n Function remove binding from function so you can get props from it.`),\n // ------------------------------------------------------------------\n type: doc(\n type,\n `(type object)\n\n Function return type of an object as string.`),\n // ------------------------------------------------------------------\n 'debugger': doc('debugger', function() {\n /* eslint-disable */\n debugger;\n /* eslint-enable */\n }, `(debugger)\n\n Function stop JavaScript code in debugger.`),\n // ------------------------------------------------------------------\n 'in': doc('in', function(a, b) {\n if (a instanceof LSymbol ||\n a instanceof LString ||\n a instanceof LNumber) {\n a = a.valueOf();\n }\n return a in unbox(b);\n }, `(in key value)\n\n Function use is in operator to check if value is in object.`),\n // ------------------------------------------------------------------\n 'instanceof': doc('instanceof', function(type, obj) {\n return obj instanceof unbind(type);\n }, `(instanceof type obj)\n\n Function check of object is instance of object.`),\n // ------------------------------------------------------------------\n 'prototype?': doc(\n 'prototype?',\n is_prototype,\n `(prototype? obj)\n\n Function check if value is JavaScript Object prototype.`),\n // ------------------------------------------------------------------\n 'macro?': doc('macro?', function(obj) {\n return obj instanceof Macro;\n }, `(macro? expression)\n\n Function check if value is a macro.`),\n // ------------------------------------------------------------------\n 'function?': doc(\n 'function?',\n is_function,\n `(function? expression)\n\n Function check if value is a function.`),\n // ------------------------------------------------------------------\n 'real?': doc('real?', function(value) {\n if (type(value) !== 'number') {\n return false;\n }\n if (value instanceof LNumber) {\n return value.isFloat();\n }\n return LNumber.isFloat(value);\n }, `(real? number)\n\n Function check if value is real number.`),\n // ------------------------------------------------------------------\n 'number?': doc('number?', function(x) {\n return Number.isNaN(x) || LNumber.isNumber(x);\n }, `(number? expression)\n\n Function check if value is a number or NaN value.`),\n // ------------------------------------------------------------------\n 'string?': doc('string?', function(obj) {\n return LString.isString(obj);\n }, `(string? expression)\n\n Function check if value is a string.`),\n // ------------------------------------------------------------------\n 'pair?': doc('pair?', function(obj) {\n return obj instanceof Pair;\n }, `(pair? expression)\n\n Function check if value is a pair or list structure.`),\n // ------------------------------------------------------------------\n 'regex?': doc('regex?', function(obj) {\n return obj instanceof RegExp;\n }, `(regex? expression)\n\n Function check if value is regular expression.`),\n // ------------------------------------------------------------------\n 'null?': doc('null?', function(obj) {\n return is_null(obj);\n }, `(null? expression)\n\n Function check if value is nulish.`),\n // ------------------------------------------------------------------\n 'boolean?': doc('boolean?', function(obj) {\n return typeof obj === 'boolean';\n }, `(boolean? expression)\n\n Function check if value is boolean.`),\n // ------------------------------------------------------------------\n 'symbol?': doc('symbol?', function(obj) {\n return obj instanceof LSymbol;\n }, `(symbol? expression)\n\n Function check if value is LIPS symbol`),\n // ------------------------------------------------------------------\n 'array?': doc('array?', function(obj) {\n return obj instanceof Array;\n }, `(array? expression)\n\n Function check if value is an array.`),\n // ------------------------------------------------------------------\n 'object?': doc('object?', function(obj) {\n return obj !== nil && obj !== null &&\n !(obj instanceof LCharacter) &&\n !(obj instanceof RegExp) &&\n !(obj instanceof LString) &&\n !(obj instanceof Pair) &&\n !(obj instanceof LNumber) &&\n typeof obj === 'object' &&\n !(obj instanceof Array);\n }, `(object? expression)\n\n Function check if value is an plain object.`),\n // ------------------------------------------------------------------\n flatten: doc('flatten', function flatten(list) {\n typecheck('flatten', list, 'pair');\n return list.flatten();\n }, `(flatten list)\n\n Return shallow list from tree structure (pairs).`),\n // ------------------------------------------------------------------\n 'array->list': doc('array->list', function(array) {\n typecheck('array->list', array, 'array');\n return Pair.fromArray(array);\n }, `(array->list array)\n\n Function convert JavaScript array to LIPS list.`),\n // ------------------------------------------------------------------\n 'tree->array': doc(\n 'tree->array',\n to_array('tree->array', true),\n `(tree->array list)\n\n Function convert LIPS list structure into JavaScript array.`),\n // ------------------------------------------------------------------\n 'list->array': doc(\n 'list->array',\n to_array('list->array'),\n `(list->array list)\n\n Function convert LIPS list into JavaScript array.`),\n // ------------------------------------------------------------------\n apply: doc('apply', function apply(fn, ...args) {\n typecheck('apply', fn, 'function', 1);\n var last = args.pop();\n typecheck('apply', last, ['pair', 'nil'], args.length + 2);\n args = args.concat(global_env.get('list->array').call(this, last));\n return fn.apply(this, prepare_fn_args(fn, args));\n }, `(apply fn list)\n\n Function that call function with list of arguments.`),\n // ------------------------------------------------------------------\n length: doc('length', function length(obj) {\n if (!obj || obj === nil) {\n return 0;\n }\n if (obj instanceof Pair) {\n return obj.length();\n }\n if (\"length\" in obj) {\n return obj.length;\n }\n }, `(length expression)\n\n Function return length of the object, the object can be list\n or any object that have length property.`),\n // ------------------------------------------------------------------\n 'string->number': doc('string->number', function(arg, radix = 10) {\n typecheck('string->number', arg, 'string', 1);\n typecheck('string->number', radix, 'number', 2);\n arg = arg.valueOf();\n radix = radix.valueOf();\n if (arg.match(rational_bare_re) || arg.match(rational_re)) {\n return parse_rational(arg, radix);\n } else if (arg.match(complex_bare_re) || arg.match(complex_re)) {\n return parse_complex(arg, radix);\n } else {\n const valid_bare = (radix === 10 && !arg.match(/e/i)) || radix === 16;\n if (arg.match(int_bare_re) && valid_bare || arg.match(int_re)) {\n return parse_integer(arg, radix);\n }\n if (arg.match(float_re)) {\n return parse_float(arg);\n }\n }\n return false;\n }, `(string->number number [radix])\n\n Function convert string to number.`),\n // ------------------------------------------------------------------\n 'try': doc(new Macro('try', function(code, { dynamic_scope, error }) {\n return new Promise((resolve, reject) => {\n var catch_clause, finally_clause;\n if (LSymbol.is(code.cdr.car.car, 'catch')) {\n catch_clause = code.cdr.car;\n if (code.cdr.cdr instanceof Pair &&\n LSymbol.is(code.cdr.cdr.car.car, 'finally')) {\n finally_clause = code.cdr.cdr.car;\n }\n } else if (LSymbol.is(code.cdr.car.car, 'finally')) {\n finally_clause = code.cdr.car;\n }\n if (!(finally_clause || catch_clause)) {\n throw new Error('try: invalid syntax');\n }\n var next = resolve;\n if (finally_clause) {\n next = function(result, cont) {\n // prevent infinite loop when finally throw exception\n next = reject;\n unpromise(evaluate(new Pair(\n new LSymbol('begin'),\n finally_clause.cdr\n ), args), function() {\n cont(result);\n });\n };\n }\n var args = {\n env: this,\n error: (e) => {\n var env = this.inherit('try');\n if (catch_clause) {\n env.set(catch_clause.cdr.car.car, e);\n var args = {\n env,\n error\n };\n if (dynamic_scope) {\n args.dynamic_scope = this;\n }\n unpromise(evaluate(new Pair(\n new LSymbol('begin'),\n catch_clause.cdr.cdr\n ), args), function(result) {\n next(result, resolve);\n });\n } else {\n next(e, error);\n }\n }\n };\n if (dynamic_scope) {\n args.dynamic_scope = this;\n }\n var result = evaluate(code.car, args);\n if (is_promise(result)) {\n result.then(result => {\n next(result, resolve);\n }).catch(args.error);\n } else {\n next(result, resolve);\n }\n });\n }), `(try expr (catch (e) code))\n (try expr (catch (e) code) (finally code))\n (try expr (finally code))\n\n Macro execute user code and catch exception. If catch is provided\n it's executed when expression expr throw error. If finally is provide\n it's always executed at the end.`),\n // ------------------------------------------------------------------\n 'raise': doc('raise', function(obj) {\n throw obj;\n }, `(raise obj)\n\n Throws new exception with given object.`),\n 'throw': doc('throw', function(message) {\n throw new Error(message);\n }, `(throw string)\n\n Throws new expection.`),\n // ------------------------------------------------------------------\n find: doc('find', function find(arg, list) {\n typecheck('find', arg, ['regex', 'function']);\n typecheck('find', list, ['pair', 'nil']);\n if (is_null(list)) {\n return nil;\n }\n var fn = matcher('find', arg);\n return unpromise(fn(list.car), function(value) {\n if (value && value !== nil) {\n return list.car;\n }\n return find(arg, list.cdr);\n });\n }, `(find fn list)\n (find regex list)\n\n Higher order Function find first value for which function return true.\n If called with regex it will create matcher function.`),\n // ------------------------------------------------------------------\n 'for-each': doc('for-each', function(fn, ...lists) {\n typecheck('for-each', fn, 'function');\n lists.forEach((arg, i) => {\n typecheck('for-each', arg, ['pair', 'nil'], i + 1);\n });\n // we need to use call(this because babel transpile this code into:\n // var ret = map.apply(void 0, [fn].concat(lists));\n // it don't work with weakBind\n var ret = global_env.get('map').call(this, fn, ...lists);\n if (is_promise(ret)) {\n return ret.then(() => {});\n }\n }, `(for-each fn . lists)\n\n Higher order function that call function \\`fn\\` by for each\n value of the argument. If you provide more then one list as argument\n it will take each value from each list and call \\`fn\\` function\n with that many argument as number of list arguments.`),\n // ------------------------------------------------------------------\n map: doc('map', function map(fn, ...lists) {\n typecheck('map', fn, 'function');\n var is_list = global_env.get('list?');\n lists.forEach((arg, i) => {\n typecheck('map', arg, ['pair', 'nil'], i + 1);\n // detect cycles\n if (arg instanceof Pair && !is_list.call(this, arg)) {\n throw new Error(`map: argument ${i + 1} is not a list`);\n }\n });\n if (lists.length === 0) {\n return nil;\n }\n if (lists.some(x => x === nil)) {\n return nil;\n }\n var args = lists.map(l => l.car);\n var parent_frame = this.get('parent.frame');\n var env = this.newFrame(fn, args);\n env.set('parent.frame', parent_frame);\n return unpromise(fn.call(env, ...args), (head) => {\n return unpromise(map.call(this, fn, ...lists.map(l => l.cdr)), (rest) => {\n return new Pair(head, rest);\n });\n });\n }, `(map fn . lists)\n\n Higher order function that call function \\`fn\\` by for each\n value of the argument. If you provide more then one list as argument\n it will take each value from each list and call \\`fn\\` function\n with that many argument as number of list arguments. The return\n values of the function call is accumulated in result list and\n returned by the call to map.`),\n // ------------------------------------------------------------------\n 'list?': doc('list?', function(obj) {\n var node = obj;\n while (true) {\n if (node === nil) {\n return true;\n }\n if (!(node instanceof Pair)) {\n return false;\n }\n if (node.haveCycles('cdr')) {\n return false;\n }\n node = node.cdr;\n }\n }, `(list? obj)\n\n Function test if value is proper linked list structure.\n The car of each pair can be any value. It return false on cycles.\"`),\n // ------------------------------------------------------------------\n some: doc('some', function some(fn, list) {\n typecheck('some', fn, 'function');\n typecheck('some', list, ['pair', 'nil']);\n if (is_null(list)) {\n return false;\n } else {\n return unpromise(fn(list.car), (value) => {\n return value || some(fn, list.cdr);\n });\n }\n }, `(some fn list)\n\n Higher order function that call argument on each element of the list.\n It stops when function fn return true for a value if so it will\n return true. If none of the values give true, the function return false`),\n // ------------------------------------------------------------------\n fold: doc('fold', fold('fold', function(fold, fn, init, ...lists) {\n typecheck('fold', fn, 'function');\n lists.forEach((arg, i) => {\n typecheck('fold', arg, ['pair', 'nil'], i + 1);\n });\n if (lists.some(x => x === nil)) {\n return init;\n }\n const value = fold.call(this, fn, init, ...lists.map(l => l.cdr));\n return unpromise(value, value => {\n return fn(...lists.map(l => l.car), value);\n });\n }), `(fold fn init . lists)\n\n Function fold is reverse of the reduce. it call function \\`fn\\`\n on each elements of the list and return single value.\n e.g. it call (fn a1 b1 (fn a2 b2 (fn a3 b3 '())))\n for: (fold fn '() alist blist)`),\n // ------------------------------------------------------------------\n pluck: doc('pluck', function pluck(...keys) {\n return function(obj) {\n keys = keys.map(x => x instanceof LSymbol ? x.__name__ : x);\n if (keys.length === 0) {\n return nil;\n } else if (keys.length === 1) {\n const [key] = keys;\n return obj[key];\n }\n var result = {};\n keys.forEach((key) => {\n result[key] = obj[key];\n });\n return result;\n };\n }, `(pluck . string)\n\n If called with single string it will return function that will return\n key from object. If called with more then one argument function will\n return new object by taking all properties from given object.`),\n // ------------------------------------------------------------------\n reduce: doc('reduce', fold('reduce', function(reduce, fn, init, ...lists) {\n typecheck('reduce', fn, 'function');\n lists.forEach((arg, i) => {\n typecheck('reduce', arg, ['pair', 'nil'], i + 1);\n });\n if (lists.some(x => x === nil)) {\n return init;\n }\n return unpromise(fn(...lists.map(l => l.car), init), (value) => {\n return reduce.call(this, fn, value, ...lists.map(l => l.cdr));\n });\n }), `(reduce fn init list . lists)\n\n Higher order function take each element of the list and call\n the function with result of previous call or init and next element\n on the list until each element is processed and return single value\n as result of last call to \\`fn\\` function.\n e.g. it call (fn a3 b3 (fn a2 b2 (fn a1 b1 init)))\n for (reduce fn init alist blist)`),\n // ------------------------------------------------------------------\n filter: doc('filter', function filter(arg, list) {\n typecheck('filter', arg, ['regex', 'function']);\n typecheck('filter', list, ['pair', 'nil']);\n var array = global_env.get('list->array')(list);\n var result = [];\n var fn = matcher('filter', arg);\n return (function loop(i) {\n function next(value) {\n if (value && value !== nil) {\n result.push(item);\n }\n return loop(++i);\n }\n if (i === array.length) {\n return Pair.fromArray(result);\n }\n var item = array[i];\n return unpromise(fn(item), next);\n })(0);\n }, `(filter fn list)\n (filter regex list)\n\n Higher order function that call \\`fn\\` for each element of the list\n and return list for only those elements for which function return\n true value. If called with regex it will create matcher function.`),\n // ------------------------------------------------------------------\n compose: doc(\n compose,\n `(compose . fns)\n\n Higher order function and create new function that apply all functions\n From right to left and return it's value. Reverse of compose.\n e.g.:\n ((compose (curry + 2) (curry * 3)) 3)\n 11\n `),\n pipe: doc(\n pipe,\n `(pipe . fns)\n\n Higher order function and create new function that apply all functions\n From left to right and return it's value. Reverse of compose.\n e.g.:\n ((pipe (curry + 2) (curry * 3)) 3)\n 15`),\n curry: doc(\n curry,\n `(curry fn . args)\n\n Higher order function that create curried version of the function.\n The result function will have partially applied arguments and it\n will keep returning functions until all arguments are added\n\n e.g.:\n (define (add a b c d) (+ a b c d))\n (define add1 (curry add 1))\n (define add12 (add 2))\n (display (add12 3 4))`),\n // ------------------------------------------------------------------\n // Numbers\n // ------------------------------------------------------------------\n gcd: doc('gcd', function gcd(...args) {\n typecheck_args('lcm', args, 'number');\n return args.reduce(function(result, item) {\n return result.gcd(item);\n });\n }, `(gcd n1 n2 ...)\n\n Function return the greatest common divisor of their arguments.`),\n // ------------------------------------------------------------------\n lcm: doc('lcm', function lcm(...args) {\n typecheck_args('lcm', args, 'number');\n // ref: https://rosettacode.org/wiki/Least_common_multiple#JavaScript\n var n = args.length, a = abs(args[0]);\n for (var i = 1; i < n; i++) {\n var b = abs(args[i]), c = a;\n while (a && b) {\n a > b ? a %= b : b %= a;\n }\n a = abs(c * args[i]) / (a + b);\n }\n return LNumber(a);\n }, `(lcm n1 n2 ...)\n\n Function return the least common multiple of their arguments.`),\n // ------------------------------------------------------------------\n 'odd?': doc('odd?', single_math_op(function(num) {\n return LNumber(num).isOdd();\n }), `(odd? number)\n\n Function check if number os odd.`),\n // ------------------------------------------------------------------\n 'even?': doc('even?', single_math_op(function(num) {\n return LNumber(num).isEven();\n }), `(even? number)\n\n Function check if number is even.`),\n // ------------------------------------------------------------------\n // math functions\n '*': doc('*', reduce_math_op(function(a, b) {\n return LNumber(a).mul(b);\n }, LNumber(1)), `(* . numbers)\n\n Multiplicate all numbers passed as arguments. If single value is passed\n it will return that value.`),\n // ------------------------------------------------------------------\n '+': doc('+', reduce_math_op(function(a, b) {\n return LNumber(a).add(b);\n }, LNumber(0)), `(+ . numbers)\n\n Sum all numbers passed as arguments. If single value is passed it will\n return that value.`),\n // ------------------------------------------------------------------\n '-': doc('-', function(...args) {\n if (args.length === 0) {\n throw new Error('-: procedure require at least one argument');\n }\n typecheck_args('-', args, 'number');\n if (args.length === 1) {\n return LNumber(args[0]).sub();\n }\n if (args.length) {\n return args.reduce(binary_math_op(function(a, b) {\n return LNumber(a).sub(b);\n }));\n }\n }, `(- n1 n2 ...)\n (- n)\n\n Subtract number passed as argument. If only one argument is passed\n it will negate the value.`),\n // ------------------------------------------------------------------\n '/': doc('/', function(...args) {\n if (args.length === 0) {\n throw new Error('/: procedure require at least one argument');\n }\n typecheck_args('/', args, 'number');\n if (args.length === 1) {\n return LNumber(1).div(args[0]);\n }\n return args.reduce(binary_math_op(function(a, b) {\n return LNumber(a).div(b);\n }));\n }, `(/ n1 n2 ...)\n (/ n)\n\n Divide number passed as arguments one by one. If single argument\n is passed it will calculate (/ 1 n1).`),\n // ------------------------------------------------------------------\n abs: doc('abs', single_math_op(function(n) {\n return LNumber(n).abs();\n }), `(abs number)\n\n Function create absolute value from number.`),\n // ------------------------------------------------------------------\n truncate: doc('truncate', function(n) {\n typecheck('truncate', n, 'number');\n if (LNumber.isFloat(n)) {\n if (n instanceof LNumber) {\n n = n.valueOf();\n }\n return LFloat(truncate(n));\n }\n return n;\n }, `(truncate n)\n\n Function return integer value from real number.`),\n // ------------------------------------------------------------------\n sqrt: doc('sqrt', single_math_op(function(n) {\n return LNumber(n).sqrt();\n }), `(sqrt number)\n\n Function return square root of the number.`),\n // ------------------------------------------------------------------\n '**': doc('**', binary_math_op(function(a, b) {\n a = LNumber(a);\n b = LNumber(b);\n if (b.cmp(0) === -1) {\n return LFloat(1).div(a).pow(b.sub());\n }\n return a.pow(b);\n }), `(** a b)\n\n Function calculate number a to to the power of b.`),\n // ------------------------------------------------------------------\n '1+': doc('1+', single_math_op(function(number) {\n return LNumber(number).add(1);\n }), `(1+ number)\n\n Function add 1 to the number and return result.`),\n // ------------------------------------------------------------------\n '1-': doc(single_math_op(function(number) {\n return LNumber(number).sub(1);\n }), `(1- number)\n\n Function subtract 1 from the number and return result.`),\n // ------------------------------------------------------------------\n '%': doc('%', function(a, b) {\n typecheck_args('%', [a, b], 'number');\n return LNumber(a).rem(b);\n }, `(% n1 n2)\n\n Function get reminder of it's arguments.`),\n // ------------------------------------------------------------------\n // Booleans\n '==': doc('==', function(...args) {\n typecheck_args('==', args, 'number');\n return seq_compare((a, b) => LNumber(a).cmp(b) === 0, args);\n }, `(== x1 x2 ...)\n\n Function compare its numerical arguments and check if they are equal`),\n // ------------------------------------------------------------------\n '>': doc('>', function(...args) {\n typecheck_args('>', args, 'number');\n return seq_compare((a, b) => LNumber(a).cmp(b) === 1, args);\n }, `(> x1 x2 ...)\n\n Function compare its numerical arguments and check if they are\n monotonically increasing`),\n // ------------------------------------------------------------------\n '<': doc('<', function(...args) {\n typecheck_args('<', args, 'number');\n return seq_compare((a, b) => LNumber(a).cmp(b) === -1, args);\n }, `(< x1 x2 ...)\n\n Function compare its numerical arguments and check if they are\n monotonically decreasing`),\n // ------------------------------------------------------------------\n '<=': doc('<=', function(...args) {\n typecheck_args('<=', args, 'number');\n return seq_compare((a, b) => [0, -1].includes(LNumber(a).cmp(b)), args);\n }, `(<= x1 x2 ...)\n\n Function compare its numerical arguments and check if they are\n monotonically nonincreasing`),\n // ------------------------------------------------------------------\n '>=': doc('>=', function(...args) {\n typecheck_args('>=', args, 'number');\n return seq_compare((a, b) => [0, 1].includes(LNumber(a).cmp(b)), args);\n }, `(>= x1 x2 ...)\n\n Function compare its numerical arguments and check if they are\n monotonically nondecreasing`),\n // ------------------------------------------------------------------\n 'eq?': doc(\n 'eq?',\n equal,\n `(eq? a b)\n\n Function compare two values if they are identical.`),\n // ------------------------------------------------------------------\n or: doc(new Macro('or', function(code, { dynamic_scope, error }) {\n var args = global_env.get('list->array')(code);\n var self = this;\n if (dynamic_scope) {\n dynamic_scope = self;\n }\n if (!args.length) {\n return false;\n }\n var result;\n return (function loop() {\n function next(value) {\n result = value;\n if (result !== false) {\n return result;\n } else {\n return loop();\n }\n }\n if (!args.length) {\n if (result !== false) {\n return result;\n } else {\n return false;\n }\n } else {\n var arg = args.shift();\n var value = evaluate(arg, { env: self, dynamic_scope, error });\n return unpromise(value, next);\n }\n })();\n }), `(or . expressions)\n\n Macro execute the values one by one and return the one that is truthy value.\n If there are no expression that evaluate to true it return false.`),\n // ------------------------------------------------------------------\n and: doc(new Macro('and', function(code, { dynamic_scope, error } = {}) {\n var args = global_env.get('list->array')(code);\n var self = this;\n if (dynamic_scope) {\n dynamic_scope = self;\n }\n if (!args.length) {\n return true;\n }\n var result;\n return (function loop() {\n function next(value) {\n result = value;\n if (result === false) {\n return false;\n } else {\n return loop();\n }\n }\n if (!args.length) {\n if (result !== false) {\n return result;\n } else {\n return false;\n }\n } else {\n var arg = args.shift();\n var value = evaluate(arg, { env: self, dynamic_scope, error });\n return unpromise(value, next);\n }\n })();\n }), `(and . expressions)\n\n Macro evaluate each expression in sequence if any value return false it will\n return false. If each value return true it will return the last value.\n If it's called without arguments it will return true.`),\n // bit operations\n '|': doc('|', function(a, b) {\n return LNumber(a).or(b);\n }, `(| a b)\n\n Function calculate or bit operation.`),\n '&': doc('&', function(a, b) {\n return LNumber(a).and(b);\n }, `(& a b)\n\n Function calculate and bit operation.`),\n '~': doc('~', function(a) {\n return LNumber(a).neg();\n }, `(~ number)\n\n Function negate the value.`),\n '>>': doc('>>', function(a, b) {\n return LNumber(a).shr(b);\n }, `(>> a b)\n\n Function right shit the value a by value b.`),\n '<<': doc('<<', function(a, b) {\n return LNumber(a).shl(b);\n }, `(<< a b)\n\n Function left shit the value a by value b.`),\n not: doc('not', function not(value) {\n if (is_null(value)) {\n return true;\n }\n return !value;\n }, `(not object)\n\n Function return negation of the argument.`)\n}, undefined, 'global');\nvar user_env = global_env.inherit('user-env');\n// -------------------------------------------------------------------------\nfunction set_interaction_env(interaction, internal) {\n interaction.constant('**internal-env**', internal);\n interaction.doc(\n '**internal-env**',\n `**internal-env**\n\n Constant used to hide stdin, stdout and stderr so they don't interfere\n with variables with the same name. Constants are internal type\n of variables that can't be redefined, defining variable with same name\n will throw an error.`\n );\n global_env.set('**interaction-environment**', interaction);\n}\n// -------------------------------------------------------------------------\nset_interaction_env(user_env, internal_env);\nglobal_env.doc(\n '**interaction-environment**',\n `**interaction-environment**\n\n Internal dynamic, global variable used to find interpreter environment.\n It's used so the read and write functions can locate **internal-env**\n that contain references to stdin, stdout and stderr.`\n);\n// -------------------------------------------------------------------------\n(function() {\n var map = { ceil: 'ceiling' };\n ['floor', 'round', 'ceil'].forEach(fn => {\n var name = map[fn] ? map[fn] : fn;\n global_env.set(name, doc(name, function(value) {\n typecheck(name, value, 'number');\n if (value instanceof LNumber) {\n return value[fn]();\n }\n }, `(${name} number)\n\n Function calculate ${name} of a number.`));\n });\n})();\n// -------------------------------------------------------------------------\n// ref: https://stackoverflow.com/a/4331218/387194\nfunction allPossibleCases(arr) {\n if (arr.length === 1) {\n return arr[0];\n } else {\n var result = [];\n // recur with the rest of array\n var allCasesOfRest = allPossibleCases(arr.slice(1));\n for (var i = 0; i < allCasesOfRest.length; i++) {\n for (var j = 0; j < arr[0].length; j++) {\n result.push(arr[0][j] + allCasesOfRest[i]);\n }\n }\n return result;\n }\n}\n\n// -------------------------------------------------------------------------\nfunction combinations(input, start, end) {\n var result = [];\n for (var i = start; i <= end; ++i) {\n var input_arr = [];\n for (var j = 0; j < i; ++j) {\n input_arr.push(input);\n }\n result = result.concat(allPossibleCases(input_arr));\n }\n return result;\n}\n\n// -------------------------------------------------------------------------\n// cadr caddr cadadr etc.\ncombinations(['d', 'a'], 2, 5).forEach(spec => {\n const s = spec.split('');\n const chars = s.slice().reverse();\n const code = s.map(c => `(c${c}r`).join(' ') + ' arg' + ')'.repeat(s.length);\n const name = 'c' + spec + 'r';\n global_env.set(name, doc(name, function(arg) {\n return chars.reduce(function(list, type) {\n typecheck(name, list, 'pair');\n if (type === 'a') {\n return list.car;\n } else {\n return list.cdr;\n }\n }, arg);\n }, `(${name} arg)\n\n Function calculate ${code}`));\n});\n// -----------------------------------------------------------------------------\nfunction reversseFind(dir, fn) {\n var parts = dir.split(path.sep).filter(Boolean);\n for (var i = parts.length; i--;) {\n var p = path.join('/', ...parts.slice(0, i + 1));\n if (fn(p)) {\n return p;\n }\n }\n}\n\n// -----------------------------------------------------------------------------\nfunction nodeModuleFind(dir) {\n return reversseFind(dir, function(dir) {\n return fs.existsSync(path.join(dir, 'node_modules'));\n });\n}\n\n// -------------------------------------------------------------------------\nfunction is_node() {\n return typeof global !== 'undefined' && global.global === global;\n}\n\n// -------------------------------------------------------------------------\nasync function node_specific() {\n const { createRequire } = await import('module');\n nodeRequire = createRequire(import.meta.url);\n fs = await import('fs');\n path = await import('path');\n global_env.set('global', global);\n global_env.set('self', global);\n global_env.set('window', undefined);\n const moduleURL = new URL(import.meta.url);\n const __dirname = path.dirname(moduleURL.pathname);\n const __filename = path.basename(moduleURL.pathname);\n global_env.set('__dirname', __dirname);\n global_env.set('__filename', __filename);\n // ---------------------------------------------------------------------\n global_env.set('require.resolve', doc('require.resolve', function(path) {\n typecheck('require.resolve', path, 'string');\n var name = path.valueOf();\n return nodeRequire.resolve(name);\n }, `(require.resolve path)\n\n Return path relative the current module.`));\n // ---------------------------------------------------------------------\n global_env.set('require', doc('require', function(module) {\n typecheck('require', module, 'string');\n module = module.valueOf();\n var root = process.cwd();\n var value;\n try {\n if (module.match(/^\\s*\\./)) {\n value = nodeRequire(path.join(root, module));\n } else {\n var dir = nodeModuleFind(root);\n if (dir) {\n value = nodeRequire(path.join(dir, 'node_modules', module));\n } else {\n value = nodeRequire(module);\n }\n }\n } catch (e) {\n value = nodeRequire(module);\n }\n return patch_value(value, global);\n }, `(require module)\n\n Function to be used inside Node.js to import the module.`));\n}\n// -------------------------------------------------------------------------\nif (is_node()) {\n node_specific();\n} else if (typeof window !== 'undefined' && window === root) {\n global_env.set('window', window);\n global_env.set('global', undefined);\n global_env.set('self', window);\n} else if (typeof self !== 'undefined' && typeof WorkerGlobalScope !== 'undefined') {\n global_env.set('self', self);\n global_env.set('window', undefined);\n global_env.set('global', undefined);\n}\n// -------------------------------------------------------------------------\nfunction typeErrorMessage(fn, got, expected, position = null) {\n let postfix = fn ? ` in expression \\`${fn}\\`` : '';\n if (position !== null) {\n postfix += ` (argument ${position})`;\n }\n if (is_function(expected)) {\n return `Invalid type got ${got}${postfix}`;\n }\n if (expected instanceof Array) {\n if (expected.length === 1) {\n expected = expected[0];\n } else {\n const last = expected[expected.length - 1];\n expected = expected.slice(0, -1).join(', ') + ' or ' + last;\n }\n }\n return `Expecting ${expected}, got ${got}${postfix}`;\n}\n// -------------------------------------------------------------------------\nfunction typecheck_args(fn, args, expected) {\n args.forEach((arg, i) => {\n typecheck(fn, arg, expected, i + 1);\n });\n}\n// -------------------------------------------------------------------------\nfunction typecheck_text_port(fn, arg, type) {\n typecheck(fn, arg, type);\n if (arg.__type__ === binary_port) {\n throw new Error(typeErrorMessage(\n fn,\n 'binary-port',\n 'textual-port'\n ));\n }\n}\n// -------------------------------------------------------------------------\nfunction typecheck(fn, arg, expected, position = null) {\n fn = fn.valueOf();\n const arg_type = type(arg).toLowerCase();\n if (is_function(expected)) {\n if (!expected(arg)) {\n throw new Error(typeErrorMessage(fn, arg_type, expected, position));\n }\n return;\n }\n var match = false;\n if (expected instanceof Pair) {\n expected = expected.to_array();\n }\n if (expected instanceof Array) {\n expected = expected.map(x => x.valueOf());\n }\n if (expected instanceof Array) {\n expected = expected.map(x => x.valueOf().toLowerCase());\n if (expected.includes(arg_type)) {\n match = true;\n }\n } else {\n expected = expected.valueOf().toLowerCase();\n }\n if (!match && arg_type !== expected) {\n throw new Error(typeErrorMessage(fn, arg_type, expected, position));\n }\n}\n// -------------------------------------------------------------------------\nfunction self_evaluated(obj) {\n var type = typeof obj;\n return ['string', 'function'].includes(type) ||\n typeof obj === 'symbol' ||\n obj instanceof QuotedPromise ||\n obj instanceof LSymbol ||\n obj instanceof LNumber ||\n obj instanceof LString ||\n obj instanceof RegExp;\n}\n// -------------------------------------------------------------------------\nfunction is_native(obj) {\n return obj instanceof LNumber ||\n obj instanceof LString ||\n obj instanceof LCharacter;\n}\n// -------------------------------------------------------------------------\nfunction has_own_symbol(obj, symbol) {\n if (obj === null) {\n return false;\n }\n return typeof obj === 'object' &&\n symbol in Object.getOwnPropertySymbols(obj);\n}\n// -------------------------------------------------------------------------\nfunction is_iterator(obj, symbol) {\n if (has_own_symbol(obj, symbol) || has_own_symbol(obj.__proto__, symbol)) {\n return is_function(obj[symbol]);\n }\n}\n// -------------------------------------------------------------------------\nfunction type(obj) {\n var mapping = {\n 'pair': Pair,\n 'symbol': LSymbol,\n 'character': LCharacter,\n 'values': Values,\n 'input-port': InputPort,\n 'output-port': OutputPort,\n 'number': LNumber,\n 'regex': RegExp,\n 'syntax': Syntax,\n 'macro': Macro,\n 'string': LString,\n 'array': Array,\n 'native-symbol': Symbol\n };\n if (Number.isNaN(obj)) {\n return 'NaN';\n }\n if (obj === nil) {\n return 'nil';\n }\n if (obj === null) {\n return 'null';\n }\n for (let [key, value] of Object.entries(mapping)) {\n if (obj instanceof value) {\n return key;\n }\n }\n if (typeof obj === 'object') {\n if (obj.__instance__) {\n obj.__instance__ = false;\n if (obj.__instance__) {\n if (is_function(obj.toType)) {\n return obj.toType();\n }\n return 'instance';\n }\n }\n if (obj.constructor) {\n if (obj.constructor.__class__) {\n return obj.constructor.__class__;\n }\n if (obj.constructor === Object) {\n if (is_iterator(obj, Symbol.iterator)) {\n return 'iterator';\n }\n if (is_iterator(obj, Symbol.asyncIterator)) {\n return 'async-iterator';\n }\n }\n return obj.constructor.name.toLowerCase();\n }\n }\n return typeof obj;\n}\n// -------------------------------------------------------------------------\n// :; wrap tree of Promises with single Promise or return argument as is\n// :: if tree have no Promises\n// -------------------------------------------------------------------------\nfunction resolve_promises(arg) {\n var promises = [];\n traverse(arg);\n if (promises.length) {\n return resolve(arg);\n }\n return arg;\n function traverse(node) {\n if (is_promise(node)) {\n promises.push(node);\n } else if (node instanceof Pair) {\n if (!node.haveCycles('car')) {\n traverse(node.car);\n }\n if (!node.haveCycles('cdr')) {\n traverse(node.cdr);\n }\n } else if (node instanceof Array) {\n node.forEach(traverse);\n }\n }\n async function promise(node) {\n var pair = new Pair(\n node.haveCycles('car') ? node.car : await resolve(node.car),\n node.haveCycles('cdr') ? node.cdr : await resolve(node.cdr)\n );\n if (node[__data__]) {\n pair[__data__] = true;\n }\n return pair;\n }\n function resolve(node) {\n if (node instanceof Array) {\n return promise_all(node.map(resolve));\n }\n if (node instanceof Pair && promises.length) {\n return promise(node);\n }\n return node;\n }\n}\n// -------------------------------------------------------------------------\nfunction evaluate_args(rest, { env, dynamic_scope, error }) {\n var args = [];\n var node = rest;\n markCycles(node);\n function next() {\n return args;\n }\n return (function loop() {\n if (node instanceof Pair) {\n var arg = evaluate(node.car, { env, dynamic_scope, error });\n if (dynamic_scope) {\n arg = unpromise(arg, arg => {\n if (is_native_function(arg)) {\n return arg.bind(dynamic_scope);\n }\n return arg;\n });\n }\n return unpromise(resolve_promises(arg), function(arg) {\n args.push(arg);\n if (node.haveCycles('cdr')) {\n return next();\n }\n node = node.cdr;\n return loop();\n });\n } else if (node === nil) {\n return next();\n } else {\n throw new Error('Syntax Error: improper list found in apply');\n }\n })();\n}\n// -------------------------------------------------------------------------\nfunction evaluate_syntax(macro, code, eval_args) {\n var value = macro.invoke(code, eval_args);\n return unpromise(resolve_promises(value), function(value) {\n if (value instanceof Pair) {\n value.markCycles();\n }\n return quote(value);\n });\n}\n// -------------------------------------------------------------------------\nfunction evaluate_macro(macro, code, eval_args) {\n function finalize(result) {\n if (result instanceof Pair) {\n result.markCycles();\n return result;\n }\n return quote(result);\n }\n var value = macro.invoke(code, eval_args);\n return unpromise(resolve_promises(value), function ret(value) {\n if (!value || value && value[__data__] || self_evaluated(value)) {\n return value;\n } else {\n return unpromise(evaluate(value, eval_args), finalize);\n }\n });\n}\n// -------------------------------------------------------------------------\nfunction prepare_fn_args(fn, args) {\n if (is_bound(fn) && !is_object_bound(fn) &&\n (!lips_context(fn) || is_port_method(fn))) {\n args = args.map(unbox);\n }\n if (!is_raw_lambda(fn) &&\n args.some(is_lips_function) &&\n !is_lips_function(fn) &&\n !is_array_method(fn)) {\n // we unbox values from callback functions #76\n // calling map on array should not unbox the value\n var result = [], i = args.length;\n while (i--) {\n let arg = args[i];\n if (is_lips_function(arg)) {\n var wrapper = function(...args) {\n return unpromise(arg.apply(this, args), unbox);\n };\n // make wrapper work like output of bind\n hidden_prop(wrapper, '__bound__', true);\n hidden_prop(wrapper, '__fn__', arg);\n // copy prototype from function to wrapper\n // so this work when calling new from JavaScript\n // case of Preact that pass LIPS class as argument\n // to h function\n wrapper.prototype = arg.prototype;\n result[i] = wrapper;\n } else {\n result[i] = arg;\n }\n }\n args = result;\n }\n return args;\n}\n// -------------------------------------------------------------------------\nfunction apply(fn, args, { env, dynamic_scope, error = () => {} } = {}) {\n args = evaluate_args(args, { env, dynamic_scope, error });\n return unpromise(args, function(args) {\n if (is_raw_lambda(fn)) {\n // lambda need environment as context\n // normal functions are bound to their contexts\n fn = unbind(fn);\n }\n args = prepare_fn_args(fn, args);\n var _args = args.slice();\n var scope = (dynamic_scope || env).newFrame(fn, _args);\n var result = resolve_promises(fn.apply(scope, args));\n return unpromise(result, (result) => {\n if (result instanceof Pair) {\n result.markCycles();\n return quote(result);\n }\n return box(result);\n }, error);\n });\n}\n// -------------------------------------------------------------------------\n// :: Continuations object from call/cc\n// -------------------------------------------------------------------------\nclass Continuation {\n constructor(k) {\n this.__value__ = k;\n }\n invoke() {\n if (this.__value__ === null) {\n throw new Error('Continuations are not implemented yet');\n }\n }\n toString() {\n return '#';\n }\n}\n// -------------------------------------------------------------------------\nconst noop = () => {};\n// -------------------------------------------------------------------------\nfunction evaluate(code, { env, dynamic_scope, error = noop } = {}) {\n try {\n if (dynamic_scope === true) {\n env = dynamic_scope = env || global_env;\n } else if (env === true) {\n env = dynamic_scope = global_env;\n } else {\n env = env || global_env;\n }\n var eval_args = { env, dynamic_scope, error };\n var value;\n if (is_null(code)) {\n return code;\n }\n if (code instanceof LSymbol) {\n return env.get(code);\n }\n if (!(code instanceof Pair)) {\n return code;\n }\n var first = code.car;\n var rest = code.cdr;\n if (first instanceof Pair) {\n value = resolve_promises(evaluate(first, eval_args));\n if (is_promise(value)) {\n return value.then((value) => {\n return evaluate(new Pair(value, code.cdr), eval_args);\n });\n // else is later in code\n } else if (!is_callable(value)) {\n throw new Error(\n type(value) + ' ' + env.get('repr')(value) +\n ' is not callable while evaluating ' + code.toString()\n );\n }\n }\n if (first instanceof LSymbol) {\n value = env.get(first);\n } else if (is_function(first)) {\n value = first;\n }\n var result;\n if (value instanceof Syntax) {\n result = evaluate_syntax(value, code, eval_args);\n } else if (value instanceof Macro) {\n result = evaluate_macro(value, rest, eval_args);\n } else if (is_function(value)) {\n result = apply(value, rest, eval_args);\n } else if (is_continuation(value)) {\n result = value.invoke();\n } else if (code instanceof Pair) {\n value = first && first.toString();\n throw new Error(`${type(first)} ${value} is not a function`);\n } else {\n return code;\n }\n // escape promise feature #54\n var __promise__ = env.get(Symbol.for('__promise__'), { throwError: false });\n if (__promise__ === true && is_promise(result)) {\n // fix #139 evaluate the code inside the promise that is not data.\n // When promise is not quoted it happen automatically, when returning\n // promise from evaluate.\n result = result.then(result => {\n if (result instanceof Pair && !value[__data__]) {\n return evaluate(result, eval_args);\n }\n return result;\n });\n return new QuotedPromise(result);\n }\n return result;\n } catch (e) {\n error && error.call(env, e, code);\n }\n}\n// -------------------------------------------------------------------------\nconst compile = exec_collect(function(code) {\n return code;\n});\n// -------------------------------------------------------------------------\nconst exec = exec_collect(function(code, value) {\n return value;\n});\n// -------------------------------------------------------------------------\nfunction exec_collect(collect_callback) {\n return async function exec_lambda(arg, env, dynamic_scope) {\n if (dynamic_scope === true) {\n env = dynamic_scope = env || user_env;\n } else if (env === true) {\n env = dynamic_scope = user_env;\n } else {\n env = env || user_env;\n }\n var results = [];\n var input = Array.isArray(arg) ? arg : parse(arg);\n for await (let code of input) {\n const value = evaluate(code, {\n env,\n dynamic_scope,\n error: (e, code) => {\n if (e && e.message) {\n if (e.message.match(/^Error:/)) {\n var re = /^(Error:)\\s*([^:]+:\\s*)/;\n // clean duplicated Error: added by JS\n e.message = e.message.replace(re, '$1 $2');\n }\n if (code) {\n // LIPS stack trace\n if (!(e.__code__ instanceof Array)) {\n e.__code__ = [];\n }\n e.__code__.push(code.toString(true));\n }\n }\n throw e;\n }\n });\n if (!is_promise(value)) {\n results.push(collect_callback(code, value));\n } else {\n results.push(collect_callback(code, await value));\n }\n }\n return results;\n };\n}\n// -------------------------------------------------------------------------\nfunction balanced(code) {\n var maching_pairs = {\n '[': ']',\n '(': ')'\n };\n var tokens;\n if (typeof code === 'string') {\n tokens = tokenize(code);\n } else {\n tokens = code.map(x => x && x.token ? x.token : x);\n }\n\n var open_tokens = Object.keys(maching_pairs);\n var brackets = Object.values(maching_pairs).concat(open_tokens);\n tokens = tokens.filter(token => brackets.includes(token));\n\n const stack = new Stack();\n for (const token of tokens) {\n if (open_tokens.includes(token)) {\n stack.push(token);\n } else if (!stack.is_empty()) { // closing token\n var last = stack.top();\n // last on stack need to match\n const closing_token = maching_pairs[last];\n if (token === closing_token) {\n stack.pop();\n } else {\n throw new Error(`Syntax error: missing closing ${closing_token}`);\n }\n } else {\n // closing bracket without opening\n throw new Error(`Syntax error: not matched closing ${token}`);\n }\n }\n return stack.is_empty();\n}\n\n// -------------------------------------------------------------------------\nfunction fworker(fn) {\n // ref: https://stackoverflow.com/a/10372280/387194\n var str = '(' + fn.toString() + ')()';\n var URL = window.URL || window.webkitURL;\n var blob;\n try {\n blob = new Blob([str], { type: 'application/javascript' });\n } catch (e) { // Backwards-compatibility\n const BlobBuilder = window.BlobBuilder ||\n window.WebKitBlobBuilder ||\n window.MozBlobBuilder;\n blob = new BlobBuilder();\n blob.append(str);\n blob = blob.getBlob();\n }\n return new root.Worker(URL.createObjectURL(blob));\n}\n// -------------------------------------------------------------------------\nfunction is_dev() {\n return lips.version.match(/^(\\{\\{VER\\}\\}|DEV)$/);\n}\n// -------------------------------------------------------------------------\nfunction bootstrap(url = '') {\n const std = 'dist/std.xcb';\n if (url === '') {\n if (is_dev()) {\n url = `https://cdn.jsdelivr.net/gh/jcubic/lips@devel/${std}`;\n } else {\n url = `https://cdn.jsdelivr.net/npm/@jcubic/lips@${lips.version}/${std}`;\n }\n }\n var load = global_env.get('load');\n return load.call(user_env, url, global_env);\n}\n// -------------------------------------------------------------------------\nfunction Worker(url) {\n this.url = url;\n const worker = this.worker = fworker(function() {\n var interpreter;\n var init;\n // string, numbers, booleans\n self.addEventListener('message', function(response) {\n var data = response.data;\n var id = data.id;\n if (data.type !== 'RPC' || id === null) {\n return;\n }\n function send_result(result) {\n self.postMessage({ id: id, type: 'RPC', result: result });\n }\n function send_error(message) {\n self.postMessage({ id: id, type: 'RPC', error: message });\n }\n if (data.method === 'eval') {\n if (!init) {\n send_error('Worker RPC: LIPS not initialized, call init first');\n return;\n }\n init.then(function() {\n // we can use ES6 inside function that's converted to blob\n var code = data.params[0];\n var dynamic = data.params[1];\n interpreter.exec(code, dynamic).then(function(result) {\n result = result.map(function(value) {\n return value && value.valueOf();\n });\n send_result(result);\n }).catch(error => {\n send_error(error);\n });\n });\n } else if (data.method === 'init') {\n var url = data.params[0];\n if (typeof url !== 'string') {\n send_error('Worker RPC: url is not a string');\n } else {\n importScripts(`${url}/dist/lips.min.js`);\n interpreter = new lips.Interpreter('worker');\n init = bootstrap(url);\n init.then(() => {\n send_result(true);\n });\n }\n }\n });\n });\n this.rpc = (function() {\n var id = 0;\n return function rpc(method, params) {\n var _id = ++id;\n return new Promise(function(resolve, reject) {\n worker.addEventListener('message', function handler(response) {\n var data = response.data;\n if (data && data.type === 'RPC' && data.id === _id) {\n if (data.error) {\n reject(data.error);\n } else {\n resolve(data.result);\n }\n worker.removeEventListener('message', handler);\n }\n });\n worker.postMessage({\n type: 'RPC',\n method: method,\n id: _id,\n params: params\n });\n });\n };\n })();\n this.rpc('init', [url]).catch((error) => {\n console.error(error);\n });\n this.exec = function(code, dynamic = false) {\n return this.rpc('eval', [code, dynamic]);\n };\n}\n\n// -------------------------------------------------------------------------\n// :: Serialization\n// -------------------------------------------------------------------------\nvar serialization_map = {\n 'pair': ([car, cdr]) => Pair(car, cdr),\n 'number': function(value) {\n if (LString.isString(value)) {\n return LNumber([value, 10]);\n }\n return LNumber(value);\n },\n 'regex': function([pattern, flag]) {\n return new RegExp(pattern, flag);\n },\n 'nil': function() {\n return nil;\n },\n 'symbol': function(value) {\n if (LString.isString(value)) {\n return LSymbol(value);\n } else if (Array.isArray(value)) {\n return LSymbol(Symbol.for(value[0]));\n }\n },\n 'string': LString,\n 'character': LCharacter\n};\n// -------------------------------------------------------------------------\n// class mapping to create smaller JSON\nconst available_class = Object.keys(serialization_map);\nconst class_map = {};\nfor (let [i, cls] of Object.entries(available_class)) {\n class_map[cls] = +i;\n}\nfunction mangle_name(name) {\n return class_map[name];\n}\nfunction resolve_name(i) {\n return available_class[i];\n}\n// -------------------------------------------------------------------------\nfunction serialize(data) {\n return JSON.stringify(data, function(key, value) {\n const v0 = this[key];\n if (v0) {\n if (v0 instanceof RegExp) {\n return {\n '@': mangle_name('regex'),\n '#': [v0.source, v0.flags]\n };\n }\n var cls = mangle_name(v0.constructor.__class__);\n if (!is_undef(cls)) {\n return {\n '@': cls,\n '#': v0.serialize()\n };\n }\n }\n return value;\n });\n}\n// -------------------------------------------------------------------------\nfunction unserialize(string) {\n return JSON.parse(string, (_, object) => {\n if (object && typeof object === 'object') {\n if (!is_undef(object['@'])) {\n var cls = resolve_name(object['@']);\n if (serialization_map[cls]) {\n return serialization_map[cls](object['#']);\n }\n }\n }\n return object;\n });\n}\n\n// -------------------------------------------------------------------------\n// binary serialization using CBOR binary data format\n// -------------------------------------------------------------------------\nconst cbor = (function() {\n\n var types = {\n 'pair': Pair,\n 'symbol': LSymbol,\n 'number': LNumber,\n 'string': LString,\n 'character': LCharacter,\n 'nil': nil.constructor,\n 'regex': RegExp\n };\n\n function serializer(Class, fn) {\n return {\n deserialize: fn,\n Class\n };\n }\n\n var encoder = new Encoder();\n\n const cbor_serialization_map = {};\n for (const [ name, fn ] of Object.entries(serialization_map)) {\n const Class = types[name];\n cbor_serialization_map[name] = serializer(Class, fn);\n }\n // add CBOR data mapping\n let tag = 43311;\n Object.keys(cbor_serialization_map).forEach(type => {\n const data = cbor_serialization_map[type];\n if (typeof data === 'function') {\n const Class = data;\n addExtension({\n Class,\n tag,\n encode(instance, encode) {\n encode(instance.serialize());\n },\n decode(data) {\n return new Class(data);\n }\n });\n } else {\n const { deserialize, Class } = data;\n addExtension({\n Class,\n tag,\n encode(instance, encode) {\n if (instance instanceof RegExp) {\n return encode([instance.source, instance.flags]);\n }\n encode(instance.serialize());\n },\n decode(data) {\n return deserialize(data);\n }\n });\n }\n tag++;\n });\n return encoder;\n})();\n\n// -------------------------------------------------------------------------\nfunction merge_uint8_array(...args) {\n if (args.length > 1) {\n const len = args.reduce((acc, arr) => acc + arr.length, 0);\n const result = new Uint8Array(len);\n let offset = 0;\n args.forEach(item => {\n result.set(item, offset);\n offset += item.length;\n });\n return result;\n } else if (args.length) {\n return args[0];\n }\n}\n\n// -------------------------------------------------------------------------\nfunction encode_magic() {\n const VERSION = 1;\n const encoder = new TextEncoder('utf-8');\n return encoder.encode(`LIPS${VERSION.toString().padStart(3, ' ')}`);\n}\n\n// -------------------------------------------------------------------------\nconst MAGIC_LENGTH = 7;\n\n// -------------------------------------------------------------------------\nfunction decode_magic(obj) {\n const decoder = new TextDecoder('utf-8');\n const prefix = decoder.decode(obj.slice(0, MAGIC_LENGTH));\n const name = prefix.substring(0, 4);\n if (name === 'LIPS') {\n const m = prefix.match(/^(....).*([0-9]+)$/);\n if (m) {\n return {\n type: m[1],\n version: Number(m[2])\n };\n }\n }\n return {\n type: 'unknown'\n };\n}\n\n// -------------------------------------------------------------------------\nfunction serialize_bin(obj) {\n const magic = encode_magic();\n const payload = cbor.encode(obj);\n return merge_uint8_array(magic, pack(payload, { magic: false }));\n}\n\n// -------------------------------------------------------------------------\nfunction unserialize_bin(data) {\n const { type, version } = decode_magic(data);\n if (type === 'LIPS' && version === 1) {\n const arr = unpack(data.slice(MAGIC_LENGTH), { magic: false });\n return cbor.decode(arr);\n } else {\n throw new Error(`Invalid file format ${type}`);\n }\n}\n\n// -------------------------------------------------------------------------\nfunction execError(e) {\n console.error(e.message || e);\n if (e.code) {\n console.error(e.code.map((line, i) => `[${i + 1}]: ${line}`));\n }\n}\n\n// -------------------------------------------------------------------------\nfunction init() {\n var lips_mimes = ['text/x-lips', 'text/x-scheme'];\n var bootstrapped;\n function load(script) {\n return new Promise(function(resolve) {\n var src = script.getAttribute('src');\n if (src) {\n return fetch(src).then(res => res.text())\n .then(exec).then(resolve).catch((e) => {\n execError(e);\n resolve();\n });\n } else {\n return exec(script.innerHTML).then(resolve).catch((e) => {\n execError(e);\n resolve();\n });\n }\n });\n }\n\n function loop() {\n return new Promise(function(resolve) {\n var scripts = Array.from(document.querySelectorAll('script'));\n return (function loop() {\n var script = scripts.shift();\n if (!script) {\n resolve();\n } else {\n var type = script.getAttribute('type');\n if (lips_mimes.includes(type)) {\n var bootstrap_attr = script.getAttribute('bootstrap');\n if (!bootstrapped && typeof bootstrap_attr === 'string') {\n return bootstrap(bootstrap_attr).then(function() {\n return load(script, function(e) {\n console.error(e);\n });\n }).then(loop);\n } else {\n return load(script, function(e) {\n console.error(e);\n }).then(loop);\n }\n } else if (type && type.match(/lips|lisp/)) {\n console.warn('Expecting ' + lips_mimes.join(' or ') +\n ' found ' + type);\n }\n return loop();\n }\n })();\n });\n }\n if (!window.document) {\n return Promise.resolve();\n } else if (currentScript) {\n var script = currentScript;\n var bootstrap_attr = script.getAttribute('bootstrap');\n if (typeof bootstrap_attr === 'string') {\n return bootstrap(bootstrap_attr).then(function() {\n bootstrapped = true;\n return loop();\n });\n }\n }\n return loop();\n}\n// this can't be in init function, because it need to be in script context\nconst currentScript = typeof window !== 'undefined' &&\n window.document && document.currentScript;\n// -------------------------------------------------------------------------\nif (typeof window !== 'undefined') {\n contentLoaded(window, init);\n}\n// -------------------------------------------------------------------------\nvar banner = (function() {\n // Rollup tree-shaking is removing the variable if it's normal string because\n // obviously '{{DATE}}' == '{{' + 'DATE}}'; can be removed\n // but disablig Tree-shaking is adding lot of not used code so we use this\n // hack instead\n var date = LString('{{DATE}}').valueOf();\n var _date = date === '{{' + 'DATE}}' ? new Date() : new Date(date);\n var _format = x => x.toString().padStart(2, '0');\n var _year = _date.getFullYear();\n var _build = [\n _year,\n _format(_date.getMonth() + 1),\n _format(_date.getDate())\n ].join('-');\n var banner = `\n __ __ __\n / / \\\\ \\\\ _ _ ___ ___ \\\\ \\\\\n| | \\\\ \\\\ | | | || . \\\\/ __> | |\n| | > \\\\ | |_ | || _/\\\\__ \\\\ | |\n| | / ^ \\\\ |___||_||_| <___/ | |\n \\\\_\\\\ /_/ \\\\_\\\\ /_/\n\nLIPS Interpreter {{VER}} (${_build}) \nCopyright (c) 2018-${_year} Jakub T. Jankiewicz\n\nType (env) to see environment with functions macros and variables. You can also\nuse (help name) to display help for specific function or macro, (apropos name)\nto display list of matched names in environment and (dir object) to list\nproperties of an object.\n`.replace(/^.*\\n/, '');\n return banner;\n})();\n// -------------------------------------------------------------------------\n// to be used with string function when code is minified\n// -------------------------------------------------------------------------\nread_only(Ahead, '__class__', 'ahead');\nread_only(Pair, '__class__', 'pair');\nread_only(Nil, '__class__', 'nil');\nread_only(Pattern, '__class__', 'pattern');\nread_only(Formatter, '__class__', 'formatter');\nread_only(Macro, '__class__', 'macro');\nread_only(Syntax, '__class__', 'syntax');\nread_only(Environment, '__class__', 'environment');\nread_only(InputPort, '__class__', 'input-port');\nread_only(OutputPort, '__class__', 'output-port');\nread_only(BufferedOutputPort, '__class__', 'output-port');\nread_only(OutputStringPort, '__class__', 'output-string-port');\nread_only(InputStringPort, '__class__', 'input-string-port');\nread_only(InputFilePort, '__class__', 'input-file-port');\nread_only(OutputFilePort, '__class__', 'output-file-port');\nread_only(LipsError, '__class__', 'lips-error');\n[LNumber, LComplex, LRational, LFloat, LBigInteger].forEach(cls => {\n read_only(cls, '__class__', 'number');\n});\nread_only(LCharacter, '__class__', 'character');\nread_only(LSymbol, '__class__', 'symbol');\nread_only(LString, '__class__', 'string');\nread_only(QuotedPromise, '__class__', 'promise');\n// -------------------------------------------------------------------------\nconst lips = {\n version: '{{VER}}',\n banner,\n date: '{{DATE}}',\n exec,\n // unwrap async generator into Promise\n parse: compose(uniterate_async, parse),\n tokenize,\n evaluate,\n compile,\n\n serialize,\n unserialize,\n\n serialize_bin,\n unserialize_bin,\n\n bootstrap,\n\n Environment,\n env: user_env,\n\n Worker,\n\n Interpreter,\n balanced_parenthesis: balanced,\n balancedParenthesis: balanced,\n balanced,\n\n Macro,\n Syntax,\n Pair,\n Values,\n QuotedPromise,\n Error: LipsError,\n\n quote,\n\n InputPort,\n OutputPort,\n BufferedOutputPort,\n InputFilePort,\n OutputFilePort,\n InputStringPort,\n OutputStringPort,\n InputByteVectorPort,\n OutputByteVectorPort,\n InputBinaryFilePort,\n OutputBinaryFilePort,\n\n Formatter,\n Parser,\n Lexer,\n specials,\n repr,\n nil,\n eof,\n\n LSymbol,\n LNumber,\n LFloat,\n LComplex,\n LRational,\n LBigInteger,\n LCharacter,\n LString,\n rationalize\n};\n// so it work when used with webpack where it will be not global\nexport default lips;\nglobal_env.set('lips', lips);\n","export default {};\n","// Copyright Joyent, Inc. and other Node contributors.\n//\n// Permission is hereby granted, free of charge, to any person obtaining a\n// copy of this software and associated documentation files (the\n// \"Software\"), to deal in the Software without restriction, including\n// without limitation the rights to use, copy, modify, merge, publish,\n// distribute, sublicense, and/or sell copies of the Software, and to permit\n// persons to whom the Software is furnished to do so, subject to the\n// following conditions:\n//\n// The above copyright notice and this permission notice shall be included\n// in all copies or substantial portions of the Software.\n//\n// THE SOFTWARE IS PROVIDED \"AS IS\", WITHOUT WARRANTY OF ANY KIND, EXPRESS\n// OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF\n// MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN\n// NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,\n// DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR\n// OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE\n// USE OR OTHER DEALINGS IN THE SOFTWARE.\n\n// resolves . and .. elements in a path array with directory names there\n// must be no slashes, empty elements, or device names (c:\\) in the array\n// (so also no leading and trailing slashes - it does not distinguish\n// relative and absolute paths)\nfunction normalizeArray(parts, allowAboveRoot) {\n // if the path tries to go above the root, `up` ends up > 0\n var up = 0;\n for (var i = parts.length - 1; i >= 0; i--) {\n var last = parts[i];\n if (last === '.') {\n parts.splice(i, 1);\n } else if (last === '..') {\n parts.splice(i, 1);\n up++;\n } else if (up) {\n parts.splice(i, 1);\n up--;\n }\n }\n\n // if the path is allowed to go above the root, restore leading ..s\n if (allowAboveRoot) {\n for (; up--; up) {\n parts.unshift('..');\n }\n }\n\n return parts;\n}\n\n// Split a filename into [root, dir, basename, ext], unix version\n// 'root' is just a slash, or nothing.\nvar splitPathRe =\n /^(\\/?|)([\\s\\S]*?)((?:\\.{1,2}|[^\\/]+?|)(\\.[^.\\/]*|))(?:[\\/]*)$/;\nvar splitPath = function(filename) {\n return splitPathRe.exec(filename).slice(1);\n};\n\n// path.resolve([from ...], to)\n// posix version\nexport function resolve() {\n var resolvedPath = '',\n resolvedAbsolute = false;\n\n for (var i = arguments.length - 1; i >= -1 && !resolvedAbsolute; i--) {\n var path = (i >= 0) ? arguments[i] : '/';\n\n // Skip empty and invalid entries\n if (typeof path !== 'string') {\n throw new TypeError('Arguments to path.resolve must be strings');\n } else if (!path) {\n continue;\n }\n\n resolvedPath = path + '/' + resolvedPath;\n resolvedAbsolute = path.charAt(0) === '/';\n }\n\n // At this point the path should be resolved to a full absolute path, but\n // handle relative paths to be safe (might happen when process.cwd() fails)\n\n // Normalize the path\n resolvedPath = normalizeArray(filter(resolvedPath.split('/'), function(p) {\n return !!p;\n }), !resolvedAbsolute).join('/');\n\n return ((resolvedAbsolute ? '/' : '') + resolvedPath) || '.';\n};\n\n// path.normalize(path)\n// posix version\nexport function normalize(path) {\n var isPathAbsolute = isAbsolute(path),\n trailingSlash = substr(path, -1) === '/';\n\n // Normalize the path\n path = normalizeArray(filter(path.split('/'), function(p) {\n return !!p;\n }), !isPathAbsolute).join('/');\n\n if (!path && !isPathAbsolute) {\n path = '.';\n }\n if (path && trailingSlash) {\n path += '/';\n }\n\n return (isPathAbsolute ? '/' : '') + path;\n};\n\n// posix version\nexport function isAbsolute(path) {\n return path.charAt(0) === '/';\n}\n\n// posix version\nexport function join() {\n var paths = Array.prototype.slice.call(arguments, 0);\n return normalize(filter(paths, function(p, index) {\n if (typeof p !== 'string') {\n throw new TypeError('Arguments to path.join must be strings');\n }\n return p;\n }).join('/'));\n}\n\n\n// path.relative(from, to)\n// posix version\nexport function relative(from, to) {\n from = resolve(from).substr(1);\n to = resolve(to).substr(1);\n\n function trim(arr) {\n var start = 0;\n for (; start < arr.length; start++) {\n if (arr[start] !== '') break;\n }\n\n var end = arr.length - 1;\n for (; end >= 0; end--) {\n if (arr[end] !== '') break;\n }\n\n if (start > end) return [];\n return arr.slice(start, end - start + 1);\n }\n\n var fromParts = trim(from.split('/'));\n var toParts = trim(to.split('/'));\n\n var length = Math.min(fromParts.length, toParts.length);\n var samePartsLength = length;\n for (var i = 0; i < length; i++) {\n if (fromParts[i] !== toParts[i]) {\n samePartsLength = i;\n break;\n }\n }\n\n var outputParts = [];\n for (var i = samePartsLength; i < fromParts.length; i++) {\n outputParts.push('..');\n }\n\n outputParts = outputParts.concat(toParts.slice(samePartsLength));\n\n return outputParts.join('/');\n}\n\nexport var sep = '/';\nexport var delimiter = ':';\n\nexport function dirname(path) {\n var result = splitPath(path),\n root = result[0],\n dir = result[1];\n\n if (!root && !dir) {\n // No dirname whatsoever\n return '.';\n }\n\n if (dir) {\n // It has a dirname, strip trailing slash\n dir = dir.substr(0, dir.length - 1);\n }\n\n return root + dir;\n}\n\nexport function basename(path, ext) {\n var f = splitPath(path)[2];\n // TODO: make this comparison case-insensitive on windows?\n if (ext && f.substr(-1 * ext.length) === ext) {\n f = f.substr(0, f.length - ext.length);\n }\n return f;\n}\n\n\nexport function extname(path) {\n return splitPath(path)[3];\n}\nexport default {\n extname: extname,\n basename: basename,\n dirname: dirname,\n sep: sep,\n delimiter: delimiter,\n relative: relative,\n join: join,\n isAbsolute: isAbsolute,\n normalize: normalize,\n resolve: resolve\n};\nfunction filter (xs, f) {\n if (xs.filter) return xs.filter(f);\n var res = [];\n for (var i = 0; i < xs.length; i++) {\n if (f(xs[i], i, xs)) res.push(xs[i]);\n }\n return res;\n}\n\n// String.prototype.substr - negative index don't work in IE8\nvar substr = 'ab'.substr(-1) === 'b' ?\n function (str, start, len) { return str.substr(start, len) } :\n function (str, start, len) {\n if (start < 0) start = str.length + start;\n return str.substr(start, len);\n }\n;\n"],"names":["_isNativeReflectConstruct","isNativeReflectConstruct","setPrototypeOf","assertThisInitialized","_arrayLikeToArray","_unsupportedIterableToArray","arrayLikeToArray","arrayWithHoles","iterableToArray","unsupportedIterableToArray","nonIterableRest","arrayWithoutHoles","nonIterableSpread","objectWithoutPropertiesLoose","iterableToArrayLimit","AwaitValue","undefined","require$$0","init","read","toString","global","position","addExtension","decodeAddExtension","encode_magic","merge_uint8_array","root","self","fetch","unfetch","fs","path","nodeRequire","BN","contentLoaded","win","fn","done","top","doc","document","documentElement","modern","addEventListener","add","rem","pre","e","type","readyState","call","poll","doScroll","setTimeout","frameElement","log","x","regex","literal","arguments","msg","is_debug","value","global_env","get","RegExp","test","console","is_promise","then","user_env","throwError","num_mnemicic_re","mnemonic","gen_rational_re","range","gen_complex_re","gen_integer_re","re_re","float_stre","complex_float_stre","float_re","make_complex_match_re","neg","fl","complex_list_re","result","forEach","radix","characters","ucs2decode","string","output","counter","length","charCodeAt","extra","push","character_symbols","Object","keys","join","char_sre_re","char_re","make_num_stre","ranges","map","m","make_type_re","complex_re","rational_re","int_re","int_bare_re","rational_bare_re","complex_bare_re","complex_bare_match_re","pre_num_parse_re","num_pre_parse","arg","parts","match","options","replace","toLowerCase","split","includes","inexact","exact","number","parse_rational","parse","num","LRational","LNumber","denom","valueOf","parse_integer","LFloat","parseInt","parse_character","char","ord","String","fromCodePoint","LCharacter","Error","parse_complex","parse_num","n","float","parse_float","toRational","NaN","Number","NEGATIVE_INFINITY","POSITIVE_INFINITY","bare_match","re","im","cmp","__type__","LComplex","is_int","parse_big_int","str","num_match","exponent","mantisa","digits","decimal_points","Math","abs","parseFloat","simple_number","factor","pow","mul","parse_string","_","hex","padStart","LString","JSON","parse_symbol","chars","t","r","chr","fromCharCode","LSymbol","parse_argument","constants","hasOwnProperty","is_atom_string","specials","names","is_symbol_string","string_re","escape_regex","special","Stack","data","prototype","item","pop","is_empty","tokens","lexer","Lexer","whitespace","token","peek","eof","skip","multiline_formatter","meta","rest","col","Thunk","cont","trampoline","args","unwind","apply","thunk","tokenize","trim","filter","strip_s_comments","s_count","s_start","remove_list","i","slice","reverse","begin","end","splice","isSymbol","name","constructor","list","__name__","Symbol","object","is","symbol","quote","symbol_to_string","is_gensym","serialize","isString","obj","gensym","count","with_props","sym","hidden_prop","QuotedPromise","promise","internal","pending","rejected","fulfilled","reason","v","read_only","hidden","is_function","err","defineProperty","enumerable","_promise","__pending__","pending_str","__rejected__","rejected_str","promise_all","Array","isArray","Promise","all","escape_quoted_promises","unescape_quoted_promises","array","escaped","Value","unescaped","LITERAL","SPLICE","SYMBOL","_specials","off","_events","on","trigger","remove","append","seq","is_special","is_builtin","builtin","is_literal","defined_specials","writable","arr","input","internals","configurable","set","_whitespace","_i","_line","_col","_newline","_state","_next","_token","_prev_char","__internal","line","offset","__input__","found","next_token","substring","len","read_rest","peek_char","skip_char","rule","prev_char","next_char","prev_re","next_re","state","match_or_null","start","loop","newline","rules","match_rule","next_state","symbol_rule","literal_rule","boundary","concat","p_re","n_re","comment","regex_class","character","bracket","b_symbol","b_comment","i_comment","l_datum","dot","_rules","_brackets","_symbol_rules","_cache","valid","sort","a","b","localeCompare","special_rules","reduce","acc","special_symbol","Parser","env","formatter","__env__","__lexer__","is_comment","_read_object","_formatter","_meta","_refs","head","nil","prev","is_close","cdr","Pair","cur","code","evaluate","error","reset","DatumReference","_resolve_object","is_plain_object","key","_resolve_pair","pair","car","builtin","extension","to_array","expr","Macro","fromArray","ref","match_datum_ref","ref_label","match_datum_label","is_open","read_list","read_value","parser","read_object","unpromise","ret","unpromise_array","unpromise_object","find","isFrozen","freeze","values","anyPromise","property","uniterate_async","matcher","dump","__doc__","trim_lines","is_lambda","previousSexp","sexp","outer","lineIndent","pattern","inner_match","get_first_match","patterns","p","not_symbol_match","match_next","next_pattern","next_input","glob","Pattern","flag","lips","inc","Formatter","__code__","defaults","indent","exceptions","shift","_options","assign","exceptions","_indent","exception_shift","settings","indexOf","regexes","s","entries","spaces","before_sexpr","last","balanced","exeption","next_tokens","Ahead","p_o","p_e","not_p","not_close","sexp_or_atom","symbols","identifiers","let_value","def_lambda_re","keywords_re","non_def","let_re","first_token_index","sub","ext","test_sexp","next","index","_spaces","format","j","lines","flatten","mutable","arrayTypeStr","nodes","node","Nil","to_object","deep","recur","typecheck","haveCycles","some","clone","visited","Map","has","__cycles__","last_pair","__data__","isNaN","is_native","fromPairs","fromObject","transform","repr","props","getOwnPropertyNames","array_methods","is_array_method","unbind","is_lips_function","user_repr","plain_object","iterator","asyncIterator","str_mapping","symbolize","getOwnPropertySymbols","o","get_props","has_own_function","function_to_string","is_native_function","__class__","instances","message","skip_cycles","pair_args","markCycles","stringify","cls","native_types","Values","InputPort","OutputPort","Environment","jQuery","is_prototype","is_iterator","seen_pairs","cycles","refs","visit","child","parents","detect","detect_thunk","mark_node","ref_nodes","__ref__","nested","prop","seq_compare","equal","y","__im__","__re__","__char__","same_atom","is_atom","source","truncate","trunc","ceil","floor","__fn__","defmacro","macro","__defmacro__","invoke","macro_expand","dynamic_scope","recur_guard","single","is_let_macro","is_procedure","proc_bindings","let_binding","is_macro","expand_let_binding","traverse","is_let","is_binding","bindings","second","Syntax","scope","lambda","define","let_macros","isNumber","__merge_env__","create","className","Parameter","extract_patterns","ellipsis_symbol","lists","expansion","pattern_names","ellipsis","list_len","code_len","IIIIII","rest_pattern","clear_gensyms","gensyms","replacement","transform_syntax","valid_symbol","n_type","first","rename","gensym_name","Boolean","transform_ellipsis_expr","caar","cadr","______","have_binding","biding","skip_nulls","every","get_names","disabled","is_spread","new_expr","bind","new_bind","is_null","is_syntax","is_undef","is_continuation","Continuation","is_callable","box","nan","map_object","descriptor","getOwnPropertyDescriptor","unbox","lips_type","patch_value","context","is_bound","bound","filter_fn_names","is_object_bound","lips_context","__context__","is_port","is_port_method","__method__","__prototype__","__lambda__","exluded_names","set_fn_length","fill","wrapper","Function","is_method","is_raw_lambda","native","let_macro","params","inherit","var_body_env","exec","promises","pararel","results","havePromises","guard_math_call","pipe","fns","f","compose","fold","limit_math_op","limit","curry","single_math_op","binary_math_op","reduce_math_op","init_args","more_args","from","__names__","__rev_names__","toUpperCase","__string__","ignore","_keys","wrap","lower","upper","force","_type","getType","types","parsable","sign","minus","BigInt","prefix","n_radix","LBigInteger","constant","complex","isComplex","rational","isRational","__value__","gcd","temp","isFloat","isNative","isBN","isInteger","isBigInteger","getArgsType","asType","isBigNumber","toNumber","matrix","bigint","integer","coerce","a_re","b_re","a_im","b_im","type_a","type_b","a_type","b_type","tmp","mapping","rev_mapping","op","_ops","_op","sqrt","exp_op","iabs","isOdd","isEven","complex_op","modulus","conjugate","div","calc","re_a","re_b","re_cmp","im_a","im_b","inf","im_str","zero_check","_minus","approxRatio","eps","gcde","_gcd","c","rationalize","simplest_rational2","fx","fy","d","__num__","__denom__","is_integer","a_denom","b_denom","a_num","b_num","_native","bn_op","text_port","_read","_with_parser","_with_init_parser","char_ready","__parser__","_make_defaults","read_line","read_char","read_string","typeErrorMessage","make_parser","close","write","_closed","flush","BufferedOutputPort","_write","_buffer","_fn","last_value","OutputStringPort","__buffer__","OutputFilePort","filename","fd","_fd","_fs","resolve","reject","__filename__","InputStringPort","InputByteVectorPort","bytevectors","binary_port","u8_ready","peek_u8","__index__","__vector__","read_u8","byte","read_u8_vector","OutputByteVectorPort","Uint8Array","_close_guard","write_u8","write_u8_vector","vector","InputFilePort","content","InputBinaryFilePort","OutputBinaryFilePort","Buffer","buffer","EOF","Interpreter","stderr","stdin","stdout","defaults_name","inter","internal_env","set_interaction_env","dynamic","LipsError","stack","parent","__docs__","__parent__","unset","newFrame","frame","parent_frame","callee","_lookup","merge","isUndefined","__values__","unshift","native_lambda","interaction","interaction_env","prompt","port","typecheck_text_port","pprint","print","display","help","cons","resolve_promises","third","slot","load","file","g_env","PATH","module_path","IS_BIN","run","unserialize_bin","unserialize","res","arrayBuffer","text","is_node","dirname","readFile","vars","body","eval_args","cond","new_code","obj_type","producer","consumer","maybe","__instance__","_args","makro_instance","get_identifiers","validate_identifiers","syntax","var_scope","lex_scope","new_env","quasiquote","is_struct","resolve_pair","eval_pair","unquoted_arr","quote_vector","unquote_cnt","max_unq","quote_object","unquote_splice","splices","Set","clear","items","is_list","nth","separator","search","instance","prepare_fn_args","valid_bare","catch_clause","finally_clause","l","pluck","typecheck_args","lcm","or","and","shr","shl","not","allPossibleCases","allCasesOfRest","combinations","input_arr","spec","repeat","reversseFind","dir","sep","nodeModuleFind","existsSync","node_specific","createRequire","import","moduleURL","URL","__dirname","pathname","__filename","basename","module","process","cwd","window","WorkerGlobalScope","got","expected","postfix","arg_type","self_evaluated","has_own_symbol","__proto__","toType","evaluate_args","evaluate_syntax","evaluate_macro","finalize","k","noop","__promise__","compile","exec_collect","collect_callback","exec_lambda","maching_pairs","open_tokens","brackets","closing_token","fworker","webkitURL","blob","Blob","BlobBuilder","WebKitBlobBuilder","MozBlobBuilder","getBlob","Worker","createObjectURL","is_dev","version","bootstrap","url","std","worker","interpreter","response","id","send_result","postMessage","send_error","method","importScripts","rpc","_id","handler","removeEventListener","serialization_map","available_class","class_map","mangle_name","resolve_name","v0","flags","cbor","serializer","Class","deserialize","encoder","Encoder","cbor_serialization_map","tag","encode","decode","VERSION","TextEncoder","MAGIC_LENGTH","decode_magic","decoder","TextDecoder","serialize_bin","magic","payload","pack","unpack","execError","lips_mimes","bootstrapped","script","src","getAttribute","innerHTML","scripts","querySelectorAll","bootstrap_attr","warn","currentScript","banner","date","_date","Date","_format","_year","getFullYear","_build","getMonth","getDate","balanced_parenthesis","balancedParenthesis"],"mappings":";;;;;;EAAe,SAAS,sBAAsB,CAAC,IAAI,EAAE;EACrD,EAAE,IAAI,IAAI,KAAK,KAAK,CAAC,EAAE;EACvB,IAAI,MAAM,IAAI,cAAc,CAAC,2DAA2D,CAAC,CAAC;EAC1F,GAAG;AACH;EACA,EAAE,OAAO,IAAI,CAAC;EACd;;ECNe,SAAS,eAAe,CAAC,CAAC,EAAE,CAAC,EAAE;EAC9C,EAAE,eAAe,GAAG,MAAM,CAAC,cAAc,IAAI,SAAS,eAAe,CAAC,CAAC,EAAE,CAAC,EAAE;EAC5E,IAAI,CAAC,CAAC,SAAS,GAAG,CAAC,CAAC;EACpB,IAAI,OAAO,CAAC,CAAC;EACb,GAAG,CAAC;AACJ;EACA,EAAE,OAAO,eAAe,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;EAC/B;;ECPe,SAASA,2BAAyB,GAAG;EACpD,EAAE,IAAI,OAAO,OAAO,KAAK,WAAW,IAAI,CAAC,OAAO,CAAC,SAAS,EAAE,OAAO,KAAK,CAAC;EACzE,EAAE,IAAI,OAAO,CAAC,SAAS,CAAC,IAAI,EAAE,OAAO,KAAK,CAAC;EAC3C,EAAE,IAAI,OAAO,KAAK,KAAK,UAAU,EAAE,OAAO,IAAI,CAAC;AAC/C;EACA,EAAE,IAAI;EACN,IAAI,OAAO,CAAC,SAAS,CAAC,OAAO,CAAC,IAAI,CAAC,OAAO,CAAC,SAAS,CAAC,OAAO,EAAE,EAAE,EAAE,YAAY,EAAE,CAAC,CAAC,CAAC;EACnF,IAAI,OAAO,IAAI,CAAC;EAChB,GAAG,CAAC,OAAO,CAAC,EAAE;EACd,IAAI,OAAO,KAAK,CAAC;EACjB,GAAG;EACH;;ECTe,SAAS,UAAU,CAAC,MAAM,EAAE,IAAI,EAAE,KAAK,EAAE;EACxD,EAAE,IAAIC,2BAAwB,EAAE,EAAE;EAClC,IAAI,UAAU,GAAG,OAAO,CAAC,SAAS,CAAC;EACnC,GAAG,MAAM;EACT,IAAI,UAAU,GAAG,SAAS,UAAU,CAAC,MAAM,EAAE,IAAI,EAAE,KAAK,EAAE;EAC1D,MAAM,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,CAAC;EACrB,MAAM,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,EAAE,IAAI,CAAC,CAAC;EAC5B,MAAM,IAAI,WAAW,GAAG,QAAQ,CAAC,IAAI,CAAC,KAAK,CAAC,MAAM,EAAE,CAAC,CAAC,CAAC;EACvD,MAAM,IAAI,QAAQ,GAAG,IAAI,WAAW,EAAE,CAAC;EACvC,MAAM,IAAI,KAAK,EAAEC,eAAc,CAAC,QAAQ,EAAE,KAAK,CAAC,SAAS,CAAC,CAAC;EAC3D,MAAM,OAAO,QAAQ,CAAC;EACtB,KAAK,CAAC;EACN,GAAG;AACH;EACA,EAAE,OAAO,UAAU,CAAC,KAAK,CAAC,IAAI,EAAE,SAAS,CAAC,CAAC;EAC3C;;EChBe,SAAS,SAAS,CAAC,QAAQ,EAAE,UAAU,EAAE;EACxD,EAAE,IAAI,OAAO,UAAU,KAAK,UAAU,IAAI,UAAU,KAAK,IAAI,EAAE;EAC/D,IAAI,MAAM,IAAI,SAAS,CAAC,oDAAoD,CAAC,CAAC;EAC9E,GAAG;AACH;EACA,EAAE,QAAQ,CAAC,SAAS,GAAG,MAAM,CAAC,MAAM,CAAC,UAAU,IAAI,UAAU,CAAC,SAAS,EAAE;EACzE,IAAI,WAAW,EAAE;EACjB,MAAM,KAAK,EAAE,QAAQ;EACrB,MAAM,QAAQ,EAAE,IAAI;EACpB,MAAM,YAAY,EAAE,IAAI;EACxB,KAAK;EACL,GAAG,CAAC,CAAC;EACL,EAAE,IAAI,UAAU,EAAEA,eAAc,CAAC,QAAQ,EAAE,UAAU,CAAC,CAAC;EACvD;;ECde,SAAS,OAAO,CAAC,GAAG,EAAE;EACrC,EAAE,yBAAyB,CAAC;AAC5B;EACA,EAAE,IAAI,OAAO,MAAM,KAAK,UAAU,IAAI,OAAO,MAAM,CAAC,QAAQ,KAAK,QAAQ,EAAE;EAC3E,IAAI,OAAO,GAAG,SAAS,OAAO,CAAC,GAAG,EAAE;EACpC,MAAM,OAAO,OAAO,GAAG,CAAC;EACxB,KAAK,CAAC;EACN,GAAG,MAAM;EACT,IAAI,OAAO,GAAG,SAAS,OAAO,CAAC,GAAG,EAAE;EACpC,MAAM,OAAO,GAAG,IAAI,OAAO,MAAM,KAAK,UAAU,IAAI,GAAG,CAAC,WAAW,KAAK,MAAM,IAAI,GAAG,KAAK,MAAM,CAAC,SAAS,GAAG,QAAQ,GAAG,OAAO,GAAG,CAAC;EACnI,KAAK,CAAC;EACN,GAAG;AACH;EACA,EAAE,OAAO,OAAO,CAAC,GAAG,CAAC,CAAC;EACtB;;ECZe,SAAS,0BAA0B,CAAC,IAAI,EAAE,IAAI,EAAE;EAC/D,EAAE,IAAI,IAAI,KAAK,OAAO,CAAC,IAAI,CAAC,KAAK,QAAQ,IAAI,OAAO,IAAI,KAAK,UAAU,CAAC,EAAE;EAC1E,IAAI,OAAO,IAAI,CAAC;EAChB,GAAG,MAAM,IAAI,IAAI,KAAK,KAAK,CAAC,EAAE;EAC9B,IAAI,MAAM,IAAI,SAAS,CAAC,0DAA0D,CAAC,CAAC;EACpF,GAAG;AACH;EACA,EAAE,OAAOC,sBAAqB,CAAC,IAAI,CAAC,CAAC;EACrC;;ECVe,SAAS,eAAe,CAAC,CAAC,EAAE;EAC3C,EAAE,eAAe,GAAG,MAAM,CAAC,cAAc,GAAG,MAAM,CAAC,cAAc,GAAG,SAAS,eAAe,CAAC,CAAC,EAAE;EAChG,IAAI,OAAO,CAAC,CAAC,SAAS,IAAI,MAAM,CAAC,cAAc,CAAC,CAAC,CAAC,CAAC;EACnD,GAAG,CAAC;EACJ,EAAE,OAAO,eAAe,CAAC,CAAC,CAAC,CAAC;EAC5B;;ECLe,SAAS,eAAe,CAAC,GAAG,EAAE;EAC7C,EAAE,IAAI,KAAK,CAAC,OAAO,CAAC,GAAG,CAAC,EAAE,OAAO,GAAG,CAAC;EACrC;;ECFe,SAAS,gBAAgB,CAAC,IAAI,EAAE;EAC/C,EAAE,IAAI,OAAO,MAAM,KAAK,WAAW,IAAI,IAAI,CAAC,MAAM,CAAC,QAAQ,CAAC,IAAI,IAAI,IAAI,IAAI,CAAC,YAAY,CAAC,IAAI,IAAI,EAAE,OAAO,KAAK,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;EAC5H;;ECFe,SAASC,mBAAiB,CAAC,GAAG,EAAE,GAAG,EAAE;EACpD,EAAE,IAAI,GAAG,IAAI,IAAI,IAAI,GAAG,GAAG,GAAG,CAAC,MAAM,EAAE,GAAG,GAAG,GAAG,CAAC,MAAM,CAAC;AACxD;EACA,EAAE,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,IAAI,GAAG,IAAI,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,GAAG,EAAE,CAAC,EAAE,EAAE;EACvD,IAAI,IAAI,CAAC,CAAC,CAAC,GAAG,GAAG,CAAC,CAAC,CAAC,CAAC;EACrB,GAAG;AACH;EACA,EAAE,OAAO,IAAI,CAAC;EACd;;ECPe,SAASC,6BAA2B,CAAC,CAAC,EAAE,MAAM,EAAE;EAC/D,EAAE,IAAI,CAAC,CAAC,EAAE,OAAO;EACjB,EAAE,IAAI,OAAO,CAAC,KAAK,QAAQ,EAAE,OAAOC,mBAAgB,CAAC,CAAC,EAAE,MAAM,CAAC,CAAC;EAChE,EAAE,IAAI,CAAC,GAAG,MAAM,CAAC,SAAS,CAAC,QAAQ,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;EACzD,EAAE,IAAI,CAAC,KAAK,QAAQ,IAAI,CAAC,CAAC,WAAW,EAAE,CAAC,GAAG,CAAC,CAAC,WAAW,CAAC,IAAI,CAAC;EAC9D,EAAE,IAAI,CAAC,KAAK,KAAK,IAAI,CAAC,KAAK,KAAK,EAAE,OAAO,KAAK,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;EACvD,EAAE,IAAI,CAAC,KAAK,WAAW,IAAI,0CAA0C,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,OAAOA,mBAAgB,CAAC,CAAC,EAAE,MAAM,CAAC,CAAC;EAClH;;ECRe,SAAS,gBAAgB,GAAG;EAC3C,EAAE,MAAM,IAAI,SAAS,CAAC,2IAA2I,CAAC,CAAC;EACnK;;ECEe,SAAS,QAAQ,CAAC,GAAG,EAAE;EACtC,EAAE,OAAOC,eAAc,CAAC,GAAG,CAAC,IAAIC,gBAAe,CAAC,GAAG,CAAC,IAAIC,6BAA0B,CAAC,GAAG,CAAC,IAAIC,gBAAe,EAAE,CAAC;EAC7G;;ECLe,SAAS,kBAAkB,CAAC,GAAG,EAAE;EAChD,EAAE,IAAI,KAAK,CAAC,OAAO,CAAC,GAAG,CAAC,EAAE,OAAOJ,mBAAgB,CAAC,GAAG,CAAC,CAAC;EACvD;;ECHe,SAAS,kBAAkB,GAAG;EAC7C,EAAE,MAAM,IAAI,SAAS,CAAC,sIAAsI,CAAC,CAAC;EAC9J;;ECEe,SAAS,kBAAkB,CAAC,GAAG,EAAE;EAChD,EAAE,OAAOK,kBAAiB,CAAC,GAAG,CAAC,IAAIH,gBAAe,CAAC,GAAG,CAAC,IAAIC,6BAA0B,CAAC,GAAG,CAAC,IAAIG,kBAAiB,EAAE,CAAC;EAClH;;ECNA,SAAS,kBAAkB,CAAC,GAAG,EAAE,OAAO,EAAE,MAAM,EAAE,KAAK,EAAE,MAAM,EAAE,GAAG,EAAE,GAAG,EAAE;EAC3E,EAAE,IAAI;EACN,IAAI,IAAI,IAAI,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC;EAC7B,IAAI,IAAI,KAAK,GAAG,IAAI,CAAC,KAAK,CAAC;EAC3B,GAAG,CAAC,OAAO,KAAK,EAAE;EAClB,IAAI,MAAM,CAAC,KAAK,CAAC,CAAC;EAClB,IAAI,OAAO;EACX,GAAG;AACH;EACA,EAAE,IAAI,IAAI,CAAC,IAAI,EAAE;EACjB,IAAI,OAAO,CAAC,KAAK,CAAC,CAAC;EACnB,GAAG,MAAM;EACT,IAAI,OAAO,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC,IAAI,CAAC,KAAK,EAAE,MAAM,CAAC,CAAC;EAC/C,GAAG;EACH,CAAC;AACD;EACe,SAAS,iBAAiB,CAAC,EAAE,EAAE;EAC9C,EAAE,OAAO,YAAY;EACrB,IAAI,IAAI,IAAI,GAAG,IAAI;EACnB,QAAQ,IAAI,GAAG,SAAS,CAAC;EACzB,IAAI,OAAO,IAAI,OAAO,CAAC,UAAU,OAAO,EAAE,MAAM,EAAE;EAClD,MAAM,IAAI,GAAG,GAAG,EAAE,CAAC,KAAK,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC;AACrC;EACA,MAAM,SAAS,KAAK,CAAC,KAAK,EAAE;EAC5B,QAAQ,kBAAkB,CAAC,GAAG,EAAE,OAAO,EAAE,MAAM,EAAE,KAAK,EAAE,MAAM,EAAE,MAAM,EAAE,KAAK,CAAC,CAAC;EAC/E,OAAO;AACP;EACA,MAAM,SAAS,MAAM,CAAC,GAAG,EAAE;EAC3B,QAAQ,kBAAkB,CAAC,GAAG,EAAE,OAAO,EAAE,MAAM,EAAE,KAAK,EAAE,MAAM,EAAE,OAAO,EAAE,GAAG,CAAC,CAAC;EAC9E,OAAO;AACP;EACA,MAAM,KAAK,CAAC,SAAS,CAAC,CAAC;EACvB,KAAK,CAAC,CAAC;EACP,GAAG,CAAC;EACJ;;EClCe,SAAS,eAAe,CAAC,QAAQ,EAAE,WAAW,EAAE;EAC/D,EAAE,IAAI,EAAE,QAAQ,YAAY,WAAW,CAAC,EAAE;EAC1C,IAAI,MAAM,IAAI,SAAS,CAAC,mCAAmC,CAAC,CAAC;EAC7D,GAAG;EACH;;ECJA,SAAS,iBAAiB,CAAC,MAAM,EAAE,KAAK,EAAE;EAC1C,EAAE,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,KAAK,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE;EACzC,IAAI,IAAI,UAAU,GAAG,KAAK,CAAC,CAAC,CAAC,CAAC;EAC9B,IAAI,UAAU,CAAC,UAAU,GAAG,UAAU,CAAC,UAAU,IAAI,KAAK,CAAC;EAC3D,IAAI,UAAU,CAAC,YAAY,GAAG,IAAI,CAAC;EACnC,IAAI,IAAI,OAAO,IAAI,UAAU,EAAE,UAAU,CAAC,QAAQ,GAAG,IAAI,CAAC;EAC1D,IAAI,MAAM,CAAC,cAAc,CAAC,MAAM,EAAE,UAAU,CAAC,GAAG,EAAE,UAAU,CAAC,CAAC;EAC9D,GAAG;EACH,CAAC;AACD;EACe,SAAS,YAAY,CAAC,WAAW,EAAE,UAAU,EAAE,WAAW,EAAE;EAC3E,EAAE,IAAI,UAAU,EAAE,iBAAiB,CAAC,WAAW,CAAC,SAAS,EAAE,UAAU,CAAC,CAAC;EACvE,EAAE,IAAI,WAAW,EAAE,iBAAiB,CAAC,WAAW,EAAE,WAAW,CAAC,CAAC;EAC/D,EAAE,OAAO,WAAW,CAAC;EACrB;;ECde,SAAS,eAAe,CAAC,GAAG,EAAE,GAAG,EAAE,KAAK,EAAE;EACzD,EAAE,IAAI,GAAG,IAAI,GAAG,EAAE;EAClB,IAAI,MAAM,CAAC,cAAc,CAAC,GAAG,EAAE,GAAG,EAAE;EACpC,MAAM,KAAK,EAAE,KAAK;EAClB,MAAM,UAAU,EAAE,IAAI;EACtB,MAAM,YAAY,EAAE,IAAI;EACxB,MAAM,QAAQ,EAAE,IAAI;EACpB,KAAK,CAAC,CAAC;EACP,GAAG,MAAM;EACT,IAAI,GAAG,CAAC,GAAG,CAAC,GAAG,KAAK,CAAC;EACrB,GAAG;AACH;EACA,EAAE,OAAO,GAAG,CAAC;EACb;;ECbe,SAAS,6BAA6B,CAAC,MAAM,EAAE,QAAQ,EAAE;EACxE,EAAE,IAAI,MAAM,IAAI,IAAI,EAAE,OAAO,EAAE,CAAC;EAChC,EAAE,IAAI,MAAM,GAAG,EAAE,CAAC;EAClB,EAAE,IAAI,UAAU,GAAG,MAAM,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;EACvC,EAAE,IAAI,GAAG,EAAE,CAAC,CAAC;AACb;EACA,EAAE,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,UAAU,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE;EAC1C,IAAI,GAAG,GAAG,UAAU,CAAC,CAAC,CAAC,CAAC;EACxB,IAAI,IAAI,QAAQ,CAAC,OAAO,CAAC,GAAG,CAAC,IAAI,CAAC,EAAE,SAAS;EAC7C,IAAI,MAAM,CAAC,GAAG,CAAC,GAAG,MAAM,CAAC,GAAG,CAAC,CAAC;EAC9B,GAAG;AACH;EACA,EAAE,OAAO,MAAM,CAAC;EAChB;;ECZe,SAAS,wBAAwB,CAAC,MAAM,EAAE,QAAQ,EAAE;EACnE,EAAE,IAAI,MAAM,IAAI,IAAI,EAAE,OAAO,EAAE,CAAC;EAChC,EAAE,IAAI,MAAM,GAAGC,6BAA4B,CAAC,MAAM,EAAE,QAAQ,CAAC,CAAC;EAC9D,EAAE,IAAI,GAAG,EAAE,CAAC,CAAC;AACb;EACA,EAAE,IAAI,MAAM,CAAC,qBAAqB,EAAE;EACpC,IAAI,IAAI,gBAAgB,GAAG,MAAM,CAAC,qBAAqB,CAAC,MAAM,CAAC,CAAC;AAChE;EACA,IAAI,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,gBAAgB,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE;EAClD,MAAM,GAAG,GAAG,gBAAgB,CAAC,CAAC,CAAC,CAAC;EAChC,MAAM,IAAI,QAAQ,CAAC,OAAO,CAAC,GAAG,CAAC,IAAI,CAAC,EAAE,SAAS;EAC/C,MAAM,IAAI,CAAC,MAAM,CAAC,SAAS,CAAC,oBAAoB,CAAC,IAAI,CAAC,MAAM,EAAE,GAAG,CAAC,EAAE,SAAS;EAC7E,MAAM,MAAM,CAAC,GAAG,CAAC,GAAG,MAAM,CAAC,GAAG,CAAC,CAAC;EAChC,KAAK;EACL,GAAG;AACH;EACA,EAAE,OAAO,MAAM,CAAC;EAChB;;EClBe,SAAS,qBAAqB,CAAC,GAAG,EAAE,CAAC,EAAE;EACtD,EAAE,IAAI,EAAE,GAAG,GAAG,IAAI,IAAI,GAAG,IAAI,GAAG,OAAO,MAAM,KAAK,WAAW,IAAI,GAAG,CAAC,MAAM,CAAC,QAAQ,CAAC,IAAI,GAAG,CAAC,YAAY,CAAC,CAAC;AAC3G;EACA,EAAE,IAAI,EAAE,IAAI,IAAI,EAAE,OAAO;EACzB,EAAE,IAAI,IAAI,GAAG,EAAE,CAAC;EAChB,EAAE,IAAI,EAAE,GAAG,IAAI,CAAC;EAChB,EAAE,IAAI,EAAE,GAAG,KAAK,CAAC;AACjB;EACA,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC;AACb;EACA,EAAE,IAAI;EACN,IAAI,KAAK,EAAE,GAAG,EAAE,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,EAAE,EAAE,GAAG,CAAC,EAAE,GAAG,EAAE,CAAC,IAAI,EAAE,EAAE,IAAI,CAAC,EAAE,EAAE,GAAG,IAAI,EAAE;EACtE,MAAM,IAAI,CAAC,IAAI,CAAC,EAAE,CAAC,KAAK,CAAC,CAAC;AAC1B;EACA,MAAM,IAAI,CAAC,IAAI,IAAI,CAAC,MAAM,KAAK,CAAC,EAAE,MAAM;EACxC,KAAK;EACL,GAAG,CAAC,OAAO,GAAG,EAAE;EAChB,IAAI,EAAE,GAAG,IAAI,CAAC;EACd,IAAI,EAAE,GAAG,GAAG,CAAC;EACb,GAAG,SAAS;EACZ,IAAI,IAAI;EACR,MAAM,IAAI,CAAC,EAAE,IAAI,EAAE,CAAC,QAAQ,CAAC,IAAI,IAAI,EAAE,EAAE,CAAC,QAAQ,CAAC,EAAE,CAAC;EACtD,KAAK,SAAS;EACd,MAAM,IAAI,EAAE,EAAE,MAAM,EAAE,CAAC;EACvB,KAAK;EACL,GAAG;AACH;EACA,EAAE,OAAO,IAAI,CAAC;EACd;;ECxBe,SAAS,cAAc,CAAC,GAAG,EAAE,CAAC,EAAE;EAC/C,EAAE,OAAON,eAAc,CAAC,GAAG,CAAC,IAAIO,qBAAoB,CAAC,GAAG,EAAE,CAAC,CAAC,IAAIL,6BAA0B,CAAC,GAAG,EAAE,CAAC,CAAC,IAAIC,gBAAe,EAAE,CAAC;EACxH;;ECNe,SAAS,cAAc,CAAC,QAAQ,EAAE;EACjD,EAAE,IAAI,MAAM,CAAC;AACb;EACA,EAAE,IAAI,OAAO,MAAM,KAAK,WAAW,EAAE;EACrC,IAAI,IAAI,MAAM,CAAC,aAAa,EAAE,MAAM,GAAG,QAAQ,CAAC,MAAM,CAAC,aAAa,CAAC,CAAC;EACtE,IAAI,IAAI,MAAM,IAAI,IAAI,IAAI,MAAM,CAAC,QAAQ,EAAE,MAAM,GAAG,QAAQ,CAAC,MAAM,CAAC,QAAQ,CAAC,CAAC;EAC9E,GAAG;AACH;EACA,EAAE,IAAI,MAAM,IAAI,IAAI,EAAE,MAAM,GAAG,QAAQ,CAAC,iBAAiB,CAAC,CAAC;EAC3D,EAAE,IAAI,MAAM,IAAI,IAAI,EAAE,MAAM,GAAG,QAAQ,CAAC,YAAY,CAAC,CAAC;EACtD,EAAE,IAAI,MAAM,IAAI,IAAI,EAAE,MAAM,IAAI,SAAS,CAAC,8BAA8B,CAAC,CAAC;EAC1E,EAAE,OAAO,MAAM,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC;EAC/B;;ECZe,SAAS,WAAW,CAAC,KAAK,EAAE;EAC3C,EAAE,IAAI,CAAC,OAAO,GAAG,KAAK,CAAC;EACvB;;ECDe,SAAS,oBAAoB,CAAC,KAAK,EAAE;EACpD,EAAE,OAAO,IAAIK,WAAU,CAAC,KAAK,CAAC,CAAC;EAC/B;;ECFe,SAAS,cAAc,CAAC,GAAG,EAAE;EAC5C,EAAE,IAAI,KAAK,EAAE,IAAI,CAAC;AAClB;EACA,EAAE,SAAS,IAAI,CAAC,GAAG,EAAE,GAAG,EAAE;EAC1B,IAAI,OAAO,IAAI,OAAO,CAAC,UAAU,OAAO,EAAE,MAAM,EAAE;EAClD,MAAM,IAAI,OAAO,GAAG;EACpB,QAAQ,GAAG,EAAE,GAAG;EAChB,QAAQ,GAAG,EAAE,GAAG;EAChB,QAAQ,OAAO,EAAE,OAAO;EACxB,QAAQ,MAAM,EAAE,MAAM;EACtB,QAAQ,IAAI,EAAE,IAAI;EAClB,OAAO,CAAC;AACR;EACA,MAAM,IAAI,IAAI,EAAE;EAChB,QAAQ,IAAI,GAAG,IAAI,CAAC,IAAI,GAAG,OAAO,CAAC;EACnC,OAAO,MAAM;EACb,QAAQ,KAAK,GAAG,IAAI,GAAG,OAAO,CAAC;EAC/B,QAAQ,MAAM,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;EACzB,OAAO;EACP,KAAK,CAAC,CAAC;EACP,GAAG;AACH;EACA,EAAE,SAAS,MAAM,CAAC,GAAG,EAAE,GAAG,EAAE;EAC5B,IAAI,IAAI;EACR,MAAM,IAAI,MAAM,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC;EACjC,MAAM,IAAI,KAAK,GAAG,MAAM,CAAC,KAAK,CAAC;EAC/B,MAAM,IAAI,YAAY,GAAG,KAAK,YAAYA,WAAU,CAAC;EACrD,MAAM,OAAO,CAAC,OAAO,CAAC,YAAY,GAAG,KAAK,CAAC,OAAO,GAAG,KAAK,CAAC,CAAC,IAAI,CAAC,UAAU,GAAG,EAAE;EAChF,QAAQ,IAAI,YAAY,EAAE;EAC1B,UAAU,MAAM,CAAC,GAAG,KAAK,QAAQ,GAAG,QAAQ,GAAG,MAAM,EAAE,GAAG,CAAC,CAAC;EAC5D,UAAU,OAAO;EACjB,SAAS;AACT;EACA,QAAQ,MAAM,CAAC,MAAM,CAAC,IAAI,GAAG,QAAQ,GAAG,QAAQ,EAAE,GAAG,CAAC,CAAC;EACvD,OAAO,EAAE,UAAU,GAAG,EAAE;EACxB,QAAQ,MAAM,CAAC,OAAO,EAAE,GAAG,CAAC,CAAC;EAC7B,OAAO,CAAC,CAAC;EACT,KAAK,CAAC,OAAO,GAAG,EAAE;EAClB,MAAM,MAAM,CAAC,OAAO,EAAE,GAAG,CAAC,CAAC;EAC3B,KAAK;EACL,GAAG;AACH;EACA,EAAE,SAAS,MAAM,CAAC,IAAI,EAAE,KAAK,EAAE;EAC/B,IAAI,QAAQ,IAAI;EAChB,MAAM,KAAK,QAAQ;EACnB,QAAQ,KAAK,CAAC,OAAO,CAAC;EACtB,UAAU,KAAK,EAAE,KAAK;EACtB,UAAU,IAAI,EAAE,IAAI;EACpB,SAAS,CAAC,CAAC;EACX,QAAQ,MAAM;AACd;EACA,MAAM,KAAK,OAAO;EAClB,QAAQ,KAAK,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC;EAC5B,QAAQ,MAAM;AACd;EACA,MAAM;EACN,QAAQ,KAAK,CAAC,OAAO,CAAC;EACtB,UAAU,KAAK,EAAE,KAAK;EACtB,UAAU,IAAI,EAAE,KAAK;EACrB,SAAS,CAAC,CAAC;EACX,QAAQ,MAAM;EACd,KAAK;AACL;EACA,IAAI,KAAK,GAAG,KAAK,CAAC,IAAI,CAAC;AACvB;EACA,IAAI,IAAI,KAAK,EAAE;each,MAAM,MAAM,CAAC,KAAK,CAAC,GAAG,EAAE,KAAK,CAAC,GAAG,CAAC,CAAC;EACnC,KAAK,MAAM;EACX,MAAM,IAAI,GAAG,IAAI,CAAC;EAClB,KAAK;EACL,GAAG;AACH;EACA,EAAE,IAAI,CAAC,OAAO,GAAG,IAAI,CAAC;AACtB;EACA,EAAE,IAAI,OAAO,GAAG,CAAC,QAAQ,CAAC,KAAK,UAAU,EAAE;EAC3C,IAAI,IAAI,CAAC,QAAQ,CAAC,GAAG,SAAS,CAAC;EAC/B,GAAG;EACH,CAAC;AACD;EACA,cAAc,CAAC,SAAS,CAAC,OAAO,MAAM,KAAK,UAAU,IAAI,MAAM,CAAC,aAAa,IAAI,iBAAiB,CAAC,GAAG,YAAY;EAClH,EAAE,OAAO,IAAI,CAAC;EACd,CAAC,CAAC;AACF;EACA,cAAc,CAAC,SAAS,CAAC,IAAI,GAAG,UAAU,GAAG,EAAE;EAC/C,EAAE,OAAO,IAAI,CAAC,OAAO,CAAC,MAAM,EAAE,GAAG,CAAC,CAAC;EACnC,CAAC,CAAC;AACF;EACA,cAAc,CAAC,SAAS,CAAC,OAAO,CAAC,GAAG,UAAU,GAAG,EAAE;EACnD,EAAE,OAAO,IAAI,CAAC,OAAO,CAAC,OAAO,EAAE,GAAG,CAAC,CAAC;EACpC,CAAC,CAAC;AACF;EACA,cAAc,CAAC,SAAS,CAAC,QAAQ,CAAC,GAAG,UAAU,GAAG,EAAE;EACpD,EAAE,OAAO,IAAI,CAAC,OAAO,CAAC,QAAQ,EAAE,GAAG,CAAC,CAAC;EACrC,CAAC;;EC7Fc,SAAS,mBAAmB,CAAC,EAAE,EAAE;EAChD,EAAE,OAAO,YAAY;EACrB,IAAI,OAAO,IAAI,cAAc,CAAC,EAAE,CAAC,KAAK,CAAC,IAAI,EAAE,SAAS,CAAC,CAAC,CAAC;EACzD,GAAG,CAAC;EACJ;;;;;;;;;;;;ECEA,IAAI,OAAO,IAAI,UAAU,OAAO,EAAE;AAElC;EACA,EAAE,IAAI,EAAE,GAAG,MAAM,CAAC,SAAS,CAAC;EAC5B,EAAE,IAAI,MAAM,GAAG,EAAE,CAAC,cAAc,CAAC;EACjC,EAAE,IAAIC,WAAS,CAAC;EAChB,EAAE,IAAI,OAAO,GAAG,OAAO,MAAM,KAAK,UAAU,GAAG,MAAM,GAAG,EAAE,CAAC;EAC3D,EAAE,IAAI,cAAc,GAAG,OAAO,CAAC,QAAQ,IAAI,YAAY,CAAC;EACxD,EAAE,IAAI,mBAAmB,GAAG,OAAO,CAAC,aAAa,IAAI,iBAAiB,CAAC;EACvE,EAAE,IAAI,iBAAiB,GAAG,OAAO,CAAC,WAAW,IAAI,eAAe,CAAC;AACjE;EACA,EAAE,SAAS,MAAM,CAAC,GAAG,EAAE,GAAG,EAAE,KAAK,EAAE;EACnC,IAAI,MAAM,CAAC,cAAc,CAAC,GAAG,EAAE,GAAG,EAAE;EACpC,MAAM,KAAK,EAAE,KAAK;EAClB,MAAM,UAAU,EAAE,IAAI;EACtB,MAAM,YAAY,EAAE,IAAI;EACxB,MAAM,QAAQ,EAAE,IAAI;EACpB,KAAK,CAAC,CAAC;EACP,IAAI,OAAO,GAAG,CAAC,GAAG,CAAC,CAAC;EACpB,GAAG;EACH,EAAE,IAAI;EACN;EACA,IAAI,MAAM,CAAC,EAAE,EAAE,EAAE,CAAC,CAAC;EACnB,GAAG,CAAC,OAAO,GAAG,EAAE;EAChB,IAAI,MAAM,GAAG,SAAS,GAAG,EAAE,GAAG,EAAE,KAAK,EAAE;EACvC,MAAM,OAAO,GAAG,CAAC,GAAG,CAAC,GAAG,KAAK,CAAC;EAC9B,KAAK,CAAC;EACN,GAAG;AACH;EACA,EAAE,SAAS,IAAI,CAAC,OAAO,EAAE,OAAO,EAAE,IAAI,EAAE,WAAW,EAAE;EACrD;EACA,IAAI,IAAI,cAAc,GAAG,OAAO,IAAI,OAAO,CAAC,SAAS,YAAY,SAAS,GAAG,OAAO,GAAG,SAAS,CAAC;EACjG,IAAI,IAAI,SAAS,GAAG,MAAM,CAAC,MAAM,CAAC,cAAc,CAAC,SAAS,CAAC,CAAC;EAC5D,IAAI,IAAI,OAAO,GAAG,IAAI,OAAO,CAAC,WAAW,IAAI,EAAE,CAAC,CAAC;AACjD;EACA;EACA;EACA,IAAI,SAAS,CAAC,OAAO,GAAG,gBAAgB,CAAC,OAAO,EAAE,IAAI,EAAE,OAAO,CAAC,CAAC;AACjE;EACA,IAAI,OAAO,SAAS,CAAC;EACrB,GAAG;EACH,EAAE,OAAO,CAAC,IAAI,GAAG,IAAI,CAAC;AACtB;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA,EAAE,SAAS,QAAQ,CAAC,EAAE,EAAE,GAAG,EAAE,GAAG,EAAE;EAClC,IAAI,IAAI;EACR,MAAM,OAAO,EAAE,IAAI,EAAE,QAAQ,EAAE,GAAG,EAAE,EAAE,CAAC,IAAI,CAAC,GAAG,EAAE,GAAG,CAAC,EAAE,CAAC;EACxD,KAAK,CAAC,OAAO,GAAG,EAAE;EAClB,MAAM,OAAO,EAAE,IAAI,EAAE,OAAO,EAAE,GAAG,EAAE,GAAG,EAAE,CAAC;EACzC,KAAK;EACL,GAAG;AACH;EACA,EAAE,IAAI,sBAAsB,GAAG,gBAAgB,CAAC;EAChD,EAAE,IAAI,sBAAsB,GAAG,gBAAgB,CAAC;EAChD,EAAE,IAAI,iBAAiB,GAAG,WAAW,CAAC;EACtC,EAAE,IAAI,iBAAiB,GAAG,WAAW,CAAC;AACtC;EACA;EACA;EACA,EAAE,IAAI,gBAAgB,GAAG,EAAE,CAAC;AAC5B;EACA;EACA;EACA;EACA;EACA,EAAE,SAAS,SAAS,GAAG,EAAE;EACzB,EAAE,SAAS,iBAAiB,GAAG,EAAE;EACjC,EAAE,SAAS,0BAA0B,GAAG,EAAE;AAC1C;EACA;EACA;EACA,EAAE,IAAI,iBAAiB,GAAG,EAAE,CAAC;EAC7B,EAAE,MAAM,CAAC,iBAAiB,EAAE,cAAc,EAAE,YAAY;EACxD,IAAI,OAAO,IAAI,CAAC;EAChB,GAAG,CAAC,CAAC;AACL;EACA,EAAE,IAAI,QAAQ,GAAG,MAAM,CAAC,cAAc,CAAC;EACvC,EAAE,IAAI,uBAAuB,GAAG,QAAQ,IAAI,QAAQ,CAAC,QAAQ,CAAC,MAAM,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;EAC3E,EAAE,IAAI,uBAAuB;EAC7B,MAAM,uBAAuB,KAAK,EAAE;EACpC,MAAM,MAAM,CAAC,IAAI,CAAC,uBAAuB,EAAE,cAAc,CAAC,EAAE;EAC5D;EACA;EACA,IAAI,iBAAiB,GAAG,uBAAuB,CAAC;EAChD,GAAG;AACH;EACA,EAAE,IAAI,EAAE,GAAG,0BAA0B,CAAC,SAAS;EAC/C,IAAI,SAAS,CAAC,SAAS,GAAG,MAAM,CAAC,MAAM,CAAC,iBAAiB,CAAC,CAAC;EAC3D,EAAE,iBAAiB,CAAC,SAAS,GAAG,0BAA0B,CAAC;EAC3D,EAAE,MAAM,CAAC,EAAE,EAAE,aAAa,EAAE,0BAA0B,CAAC,CAAC;EACxD,EAAE,MAAM,CAAC,0BAA0B,EAAE,aAAa,EAAE,iBAAiB,CAAC,CAAC;EACvE,EAAE,iBAAiB,CAAC,WAAW,GAAG,MAAM;EACxC,IAAI,0BAA0B;EAC9B,IAAI,iBAAiB;EACrB,IAAI,mBAAmB;EACvB,GAAG,CAAC;AACJ;EACA;EACA;EACA,EAAE,SAAS,qBAAqB,CAAC,SAAS,EAAE;EAC5C,IAAI,CAAC,MAAM,EAAE,OAAO,EAAE,QAAQ,CAAC,CAAC,OAAO,CAAC,SAAS,MAAM,EAAE;EACzD,MAAM,MAAM,CAAC,SAAS,EAAE,MAAM,EAAE,SAAS,GAAG,EAAE;EAC9C,QAAQ,OAAO,IAAI,CAAC,OAAO,CAAC,MAAM,EAAE,GAAG,CAAC,CAAC;EACzC,OAAO,CAAC,CAAC;EACT,KAAK,CAAC,CAAC;EACP,GAAG;AACH;EACA,EAAE,OAAO,CAAC,mBAAmB,GAAG,SAAS,MAAM,EAAE;EACjD,IAAI,IAAI,IAAI,GAAG,OAAO,MAAM,KAAK,UAAU,IAAI,MAAM,CAAC,WAAW,CAAC;EAClE,IAAI,OAAO,IAAI;each,QAAQ,IAAI,KAAK,iBAAiB;EAClC;EACA;EACA,QAAQ,CAAC,IAAI,CAAC,WAAW,IAAI,IAAI,CAAC,IAAI,MAAM,mBAAmB;EAC/D,QAAQ,KAAK,CAAC;EACd,GAAG,CAAC;AACJ;EACA,EAAE,OAAO,CAAC,IAAI,GAAG,SAAS,MAAM,EAAE;EAClC,IAAI,IAAI,MAAM,CAAC,cAAc,EAAE;EAC/B,MAAM,MAAM,CAAC,cAAc,CAAC,MAAM,EAAE,0BAA0B,CAAC,CAAC;EAChE,KAAK,MAAM;EACX,MAAM,MAAM,CAAC,SAAS,GAAG,0BAA0B,CAAC;EACpD,MAAM,MAAM,CAAC,MAAM,EAAE,iBAAiB,EAAE,mBAAmB,CAAC,CAAC;EAC7D,KAAK;EACL,IAAI,MAAM,CAAC,SAAS,GAAG,MAAM,CAAC,MAAM,CAAC,EAAE,CAAC,CAAC;EACzC,IAAI,OAAO,MAAM,CAAC;EAClB,GAAG,CAAC;AACJ;EACA;EACA;EACA;EACA;EACA,EAAE,OAAO,CAAC,KAAK,GAAG,SAAS,GAAG,EAAE;EAChC,IAAI,OAAO,EAAE,OAAO,EAAE,GAAG,EAAE,CAAC;EAC5B,GAAG,CAAC;AACJ;EACA,EAAE,SAAS,aAAa,CAAC,SAAS,EAAE,WAAW,EAAE;EACjD,IAAI,SAAS,MAAM,CAAC,MAAM,EAAE,GAAG,EAAE,OAAO,EAAE,MAAM,EAAE;EAClD,MAAM,IAAI,MAAM,GAAG,QAAQ,CAAC,SAAS,CAAC,MAAM,CAAC,EAAE,SAAS,EAAE,GAAG,CAAC,CAAC;EAC/D,MAAM,IAAI,MAAM,CAAC,IAAI,KAAK,OAAO,EAAE;EACnC,QAAQ,MAAM,CAAC,MAAM,CAAC,GAAG,CAAC,CAAC;EAC3B,OAAO,MAAM;EACb,QAAQ,IAAI,MAAM,GAAG,MAAM,CAAC,GAAG,CAAC;EAChC,QAAQ,IAAI,KAAK,GAAG,MAAM,CAAC,KAAK,CAAC;EACjC,QAAQ,IAAI,KAAK;EACjB,YAAY,OAAO,KAAK,KAAK,QAAQ;EACrC,YAAY,MAAM,CAAC,IAAI,CAAC,KAAK,EAAE,SAAS,CAAC,EAAE;EAC3C,UAAU,OAAO,WAAW,CAAC,OAAO,CAAC,KAAK,CAAC,OAAO,CAAC,CAAC,IAAI,CAAC,SAAS,KAAK,EAAE;EACzE,YAAY,MAAM,CAAC,MAAM,EAAE,KAAK,EAAE,OAAO,EAAE,MAAM,CAAC,CAAC;EACnD,WAAW,EAAE,SAAS,GAAG,EAAE;EAC3B,YAAY,MAAM,CAAC,OAAO,EAAE,GAAG,EAAE,OAAO,EAAE,MAAM,CAAC,CAAC;EAClD,WAAW,CAAC,CAAC;EACb,SAAS;AACT;EACA,QAAQ,OAAO,WAAW,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC,IAAI,CAAC,SAAS,SAAS,EAAE;EACnE;EACA;EACA;EACA,UAAU,MAAM,CAAC,KAAK,GAAG,SAAS,CAAC;EACnC,UAAU,OAAO,CAAC,MAAM,CAAC,CAAC;EAC1B,SAAS,EAAE,SAAS,KAAK,EAAE;EAC3B;EACA;EACA,UAAU,OAAO,MAAM,CAAC,OAAO,EAAE,KAAK,EAAE,OAAO,EAAE,MAAM,CAAC,CAAC;EACzD,SAAS,CAAC,CAAC;EACX,OAAO;EACP,KAAK;AACL;EACA,IAAI,IAAI,eAAe,CAAC;AACxB;EACA,IAAI,SAAS,OAAO,CAAC,MAAM,EAAE,GAAG,EAAE;EAClC,MAAM,SAAS,0BAA0B,GAAG;EAC5C,QAAQ,OAAO,IAAI,WAAW,CAAC,SAAS,OAAO,EAAE,MAAM,EAAE;EACzD,UAAU,MAAM,CAAC,MAAM,EAAE,GAAG,EAAE,OAAO,EAAE,MAAM,CAAC,CAAC;EAC/C,SAAS,CAAC,CAAC;EACX,OAAO;AACP;EACA,MAAM,OAAO,eAAe;EAC5B;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA,QAAQ,eAAe,GAAG,eAAe,CAAC,IAAI;EAC9C,UAAU,0BAA0B;EACpC;EACA;EACA,UAAU,0BAA0B;EACpC,SAAS,GAAG,0BAA0B,EAAE,CAAC;EACzC,KAAK;AACL;EACA;EACA;EACA,IAAI,IAAI,CAAC,OAAO,GAAG,OAAO,CAAC;EAC3B,GAAG;AACH;EACA,EAAE,qBAAqB,CAAC,aAAa,CAAC,SAAS,CAAC,CAAC;EACjD,EAAE,MAAM,CAAC,aAAa,CAAC,SAAS,EAAE,mBAAmB,EAAE,YAAY;EACnE,IAAI,OAAO,IAAI,CAAC;EAChB,GAAG,CAAC,CAAC;EACL,EAAE,OAAO,CAAC,aAAa,GAAG,aAAa,CAAC;AACxC;EACA;EACA;EACA;EACA,EAAE,OAAO,CAAC,KAAK,GAAG,SAAS,OAAO,EAAE,OAAO,EAAE,IAAI,EAAE,WAAW,EAAE,WAAW,EAAE;EAC7E,IAAI,IAAI,WAAW,KAAK,KAAK,CAAC,EAAE,WAAW,GAAG,OAAO,CAAC;AACtD;EACA,IAAI,IAAI,IAAI,GAAG,IAAI,aAAa;EAChC,MAAM,IAAI,CAAC,OAAO,EAAE,OAAO,EAAE,IAAI,EAAE,WAAW,CAAC;EAC/C,MAAM,WAAW;EACjB,KAAK,CAAC;AACN;EACA,IAAI,OAAO,OAAO,CAAC,mBAAmB,CAAC,OAAO,CAAC;EAC/C,QAAQ,IAAI;EACZ,QAAQ,IAAI,CAAC,IAAI,EAAE,CAAC,IAAI,CAAC,SAAS,MAAM,EAAE;EAC1C,UAAU,OAAO,MAAM,CAAC,IAAI,GAAG,MAAM,CAAC,KAAK,GAAG,IAAI,CAAC,IAAI,EAAE,CAAC;EAC1D,SAAS,CAAC,CAAC;EACX,GAAG,CAAC;AACJ;EACA,EAAE,SAAS,gBAAgB,CAAC,OAAO,EAAE,IAAI,EAAE,OAAO,EAAE;EACpD,IAAI,IAAI,KAAK,GAAG,sBAAsB,CAAC;AACvC;EACA,IAAI,OAAO,SAAS,MAAM,CAAC,MAAM,EAAE,GAAG,EAAE;EACxC,MAAM,IAAI,KAAK,KAAK,iBAAiB,EAAE;EACvC,QAAQ,MAAM,IAAI,KAAK,CAAC,8BAA8B,CAAC,CAAC;EACxD,OAAO;AACP;EACA,MAAM,IAAI,KAAK,KAAK,iBAAiB,EAAE;EACvC,QAAQ,IAAI,MAAM,KAAK,OAAO,EAAE;EAChC,UAAU,MAAM,GAAG,CAAC;EACpB,SAAS;AACT;EACA;EACA;EACA,QAAQ,OAAO,UAAU,EAAE,CAAC;EAC5B,OAAO;AACP;EACA,MAAM,OAAO,CAAC,MAAM,GAAG,MAAM,CAAC;EAC9B,MAAM,OAAO,CAAC,GAAG,GAAG,GAAG,CAAC;AACxB;EACA,MAAM,OAAO,IAAI,EAAE;EACnB,QAAQ,IAAI,QAAQ,GAAG,OAAO,CAAC,QAAQ,CAAC;EACxC,QAAQ,IAAI,QAAQ,EAAE;EACtB,UAAU,IAAI,cAAc,GAAG,mBAAmB,CAAC,QAAQ,EAAE,OAAO,CAAC,CAAC;EACtE,UAAU,IAAI,cAAc,EAAE;EAC9B,YAAY,IAAI,cAAc,KAAK,gBAAgB,EAAE,SAAS;EAC9D,YAAY,OAAO,cAAc,CAAC;EAClC,WAAW;EACX,SAAS;AACT;EACA,QAAQ,IAAI,OAAO,CAAC,MAAM,KAAK,MAAM,EAAE;EACvC;EACA;EACA,UAAU,OAAO,CAAC,IAAI,GAAG,OAAO,CAAC,KAAK,GAAG,OAAO,CAAC,GAAG,CAAC;AACrD;EACA,SAAS,MAAM,IAAI,OAAO,CAAC,MAAM,KAAK,OAAO,EAAE;EAC/C,UAAU,IAAI,KAAK,KAAK,sBAAsB,EAAE;EAChD,YAAY,KAAK,GAAG,iBAAiB,CAAC;EACtC,YAAY,MAAM,OAAO,CAAC,GAAG,CAAC;EAC9B,WAAW;AACX;EACA,UAAU,OAAO,CAAC,iBAAiB,CAAC,OAAO,CAAC,GAAG,CAAC,CAAC;AACjD;EACA,SAAS,MAAM,IAAI,OAAO,CAAC,MAAM,KAAK,QAAQ,EAAE;EAChD,UAAU,OAAO,CAAC,MAAM,CAAC,QAAQ,EAAE,OAAO,CAAC,GAAG,CAAC,CAAC;EAChD,SAAS;AACT;EACA,QAAQ,KAAK,GAAG,iBAAiB,CAAC;AAClC;EACA,QAAQ,IAAI,MAAM,GAAG,QAAQ,CAAC,OAAO,EAAE,IAAI,EAAE,OAAO,CAAC,CAAC;EACtD,QAAQ,IAAI,MAAM,CAAC,IAAI,KAAK,QAAQ,EAAE;EACtC;EACA;EACA,UAAU,KAAK,GAAG,OAAO,CAAC,IAAI;EAC9B,cAAc,iBAAiB;EAC/B,cAAc,sBAAsB,CAAC;AACrC;EACA,UAAU,IAAI,MAAM,CAAC,GAAG,KAAK,gBAAgB,EAAE;EAC/C,YAAY,SAAS;EACrB,WAAW;AACX;EACA,UAAU,OAAO;EACjB,YAAY,KAAK,EAAE,MAAM,CAAC,GAAG;EAC7B,YAAY,IAAI,EAAE,OAAO,CAAC,IAAI;EAC9B,WAAW,CAAC;AACZ;EACA,SAAS,MAAM,IAAI,MAAM,CAAC,IAAI,KAAK,OAAO,EAAE;EAC5C,UAAU,KAAK,GAAG,iBAAiB,CAAC;EACpC;EACA;EACA,UAAU,OAAO,CAAC,MAAM,GAAG,OAAO,CAAC;EACnC,UAAU,OAAO,CAAC,GAAG,GAAG,MAAM,CAAC,GAAG,CAAC;EACnC,SAAS;EACT,OAAO;EACP,KAAK,CAAC;EACN,GAAG;AACH;EACA;EACA;EACA;EACA;EACA,EAAE,SAAS,mBAAmB,CAAC,QAAQ,EAAE,OAAO,EAAE;EAClD,IAAI,IAAI,MAAM,GAAG,QAAQ,CAAC,QAAQ,CAAC,OAAO,CAAC,MAAM,CAAC,CAAC;EACnD,IAAI,IAAI,MAAM,KAAKA,WAAS,EAAE;EAC9B;EACA;EACA,MAAM,OAAO,CAAC,QAAQ,GAAG,IAAI,CAAC;AAC9B;EACA,MAAM,IAAI,OAAO,CAAC,MAAM,KAAK,OAAO,EAAE;EACtC;EACA,QAAQ,IAAI,QAAQ,CAAC,QAAQ,CAAC,QAAQ,CAAC,EAAE;EACzC;EACA;EACA,UAAU,OAAO,CAAC,MAAM,GAAG,QAAQ,CAAC;EACpC,UAAU,OAAO,CAAC,GAAG,GAAGA,WAAS,CAAC;EAClC,UAAU,mBAAmB,CAAC,QAAQ,EAAE,OAAO,CAAC,CAAC;AACjD;EACA,UAAU,IAAI,OAAO,CAAC,MAAM,KAAK,OAAO,EAAE;EAC1C;EACA;EACA,YAAY,OAAO,gBAAgB,CAAC;EACpC,WAAW;EACX,SAAS;AACT;EACA,QAAQ,OAAO,CAAC,MAAM,GAAG,OAAO,CAAC;EACjC,QAAQ,OAAO,CAAC,GAAG,GAAG,IAAI,SAAS;EACnC,UAAU,gDAAgD,CAAC,CAAC;EAC5D,OAAO;AACP;EACA,MAAM,OAAO,gBAAgB,CAAC;EAC9B,KAAK;AACL;EACA,IAAI,IAAI,MAAM,GAAG,QAAQ,CAAC,MAAM,EAAE,QAAQ,CAAC,QAAQ,EAAE,OAAO,CAAC,GAAG,CAAC,CAAC;AAClE;EACA,IAAI,IAAI,MAAM,CAAC,IAAI,KAAK,OAAO,EAAE;EACjC,MAAM,OAAO,CAAC,MAAM,GAAG,OAAO,CAAC;EAC/B,MAAM,OAAO,CAAC,GAAG,GAAG,MAAM,CAAC,GAAG,CAAC;EAC/B,MAAM,OAAO,CAAC,QAAQ,GAAG,IAAI,CAAC;EAC9B,MAAM,OAAO,gBAAgB,CAAC;EAC9B,KAAK;AACL;EACA,IAAI,IAAI,IAAI,GAAG,MAAM,CAAC,GAAG,CAAC;AAC1B;EACA,IAAI,IAAI,EAAE,IAAI,EAAE;EAChB,MAAM,OAAO,CAAC,MAAM,GAAG,OAAO,CAAC;EAC/B,MAAM,OAAO,CAAC,GAAG,GAAG,IAAI,SAAS,CAAC,kCAAkC,CAAC,CAAC;EACtE,MAAM,OAAO,CAAC,QAAQ,GAAG,IAAI,CAAC;EAC9B,MAAM,OAAO,gBAAgB,CAAC;EAC9B,KAAK;AACL;EACA,IAAI,IAAI,IAAI,CAAC,IAAI,EAAE;EACnB;EACA;EACA,MAAM,OAAO,CAAC,QAAQ,CAAC,UAAU,CAAC,GAAG,IAAI,CAAC,KAAK,CAAC;AAChD;EACA;EACA,MAAM,OAAO,CAAC,IAAI,GAAG,QAAQ,CAAC,OAAO,CAAC;AACtC;EACA;EACA;EACA;EACA;EACA;EACA;EACA,MAAM,IAAI,OAAO,CAAC,MAAM,KAAK,QAAQ,EAAE;EACvC,QAAQ,OAAO,CAAC,MAAM,GAAG,MAAM,CAAC;EAChC,QAAQ,OAAO,CAAC,GAAG,GAAGA,WAAS,CAAC;EAChC,OAAO;AACP;EACA,KAAK,MAAM;EACX;EACA,MAAM,OAAO,IAAI,CAAC;EAClB,KAAK;AACL;EACA;EACA;EACA,IAAI,OAAO,CAAC,QAAQ,GAAG,IAAI,CAAC;EAC5B,IAAI,OAAO,gBAAgB,CAAC;EAC5B,GAAG;AACH;EACA;EACA;EACA,EAAE,qBAAqB,CAAC,EAAE,CAAC,CAAC;AAC5B;EACA,EAAE,MAAM,CAAC,EAAE,EAAE,iBAAiB,EAAE,WAAW,CAAC,CAAC;AAC7C;EACA;EACA;EACA;EACA;EACA;EACA,EAAE,MAAM,CAAC,EAAE,EAAE,cAAc,EAAE,WAAW;EACxC,IAAI,OAAO,IAAI,CAAC;EAChB,GAAG,CAAC,CAAC;AACL;EACA,EAAE,MAAM,CAAC,EAAE,EAAE,UAAU,EAAE,WAAW;EACpC,IAAI,OAAO,oBAAoB,CAAC;EAChC,GAAG,CAAC,CAAC;AACL;EACA,EAAE,SAAS,YAAY,CAAC,IAAI,EAAE;EAC9B,IAAI,IAAI,KAAK,GAAG,EAAE,MAAM,EAAE,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC;AACpC;EACA,IAAI,IAAI,CAAC,IAAI,IAAI,EAAE;EACnB,MAAM,KAAK,CAAC,QAAQ,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC;EAC/B,KAAK;AACL;EACA,IAAI,IAAI,CAAC,IAAI,IAAI,EAAE;EACnB,MAAM,KAAK,CAAC,UAAU,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC;EACjC,MAAM,KAAK,CAAC,QAAQ,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC;EAC/B,KAAK;AACL;EACA,IAAI,IAAI,CAAC,UAAU,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;EAChC,GAAG;AACH;EACA,EAAE,SAAS,aAAa,CAAC,KAAK,EAAE;EAChC,IAAI,IAAI,MAAM,GAAG,KAAK,CAAC,UAAU,IAAI,EAAE,CAAC;EACxC,IAAI,MAAM,CAAC,IAAI,GAAG,QAAQ,CAAC;EAC3B,IAAI,OAAO,MAAM,CAAC,GAAG,CAAC;EACtB,IAAI,KAAK,CAAC,UAAU,GAAG,MAAM,CAAC;EAC9B,GAAG;AACH;EACA,EAAE,SAAS,OAAO,CAAC,WAAW,EAAE;EAChC;EACA;EACA;EACA,IAAI,IAAI,CAAC,UAAU,GAAG,CAAC,EAAE,MAAM,EAAE,MAAM,EAAE,CAAC,CAAC;EAC3C,IAAI,WAAW,CAAC,OAAO,CAAC,YAAY,EAAE,IAAI,CAAC,CAAC;EAC5C,IAAI,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,CAAC;EACrB,GAAG;AACH;EACA,EAAE,OAAO,CAAC,IAAI,GAAG,SAAS,MAAM,EAAE;EAClC,IAAI,IAAI,IAAI,GAAG,EAAE,CAAC;EAClB,IAAI,KAAK,IAAI,GAAG,IAAI,MAAM,EAAE;EAC5B,MAAM,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;EACrB,KAAK;EACL,IAAI,IAAI,CAAC,OAAO,EAAE,CAAC;AACnB;EACA;EACA;EACA,IAAI,OAAO,SAAS,IAAI,GAAG;EAC3B,MAAM,OAAO,IAAI,CAAC,MAAM,EAAE;EAC1B,QAAQ,IAAI,GAAG,GAAG,IAAI,CAAC,GAAG,EAAE,CAAC;EAC7B,QAAQ,IAAI,GAAG,IAAI,MAAM,EAAE;EAC3B,UAAU,IAAI,CAAC,KAAK,GAAG,GAAG,CAAC;EAC3B,UAAU,IAAI,CAAC,IAAI,GAAG,KAAK,CAAC;EAC5B,UAAU,OAAO,IAAI,CAAC;EACtB,SAAS;EACT,OAAO;AACP;EACA;EACA;EACA;EACA,MAAM,IAAI,CAAC,IAAI,GAAG,IAAI,CAAC;EACvB,MAAM,OAAO,IAAI,CAAC;EAClB,KAAK,CAAC;EACN,GAAG,CAAC;AACJ;EACA,EAAE,SAAS,MAAM,CAAC,QAAQ,EAAE;EAC5B,IAAI,IAAI,QAAQ,EAAE;EAClB,MAAM,IAAI,cAAc,GAAG,QAAQ,CAAC,cAAc,CAAC,CAAC;EACpD,MAAM,IAAI,cAAc,EAAE;EAC1B,QAAQ,OAAO,cAAc,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC;EAC7C,OAAO;AACP;EACA,MAAM,IAAI,OAAO,QAAQ,CAAC,IAAI,KAAK,UAAU,EAAE;EAC/C,QAAQ,OAAO,QAAQ,CAAC;EACxB,OAAO;AACP;EACA,MAAM,IAAI,CAAC,KAAK,CAAC,QAAQ,CAAC,MAAM,CAAC,EAAE;EACnC,QAAQ,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,IAAI,GAAG,SAAS,IAAI,GAAG;EAC3C,UAAU,OAAO,EAAE,CAAC,GAAG,QAAQ,CAAC,MAAM,EAAE;EACxC,YAAY,IAAI,MAAM,CAAC,IAAI,CAAC,QAAQ,EAAE,CAAC,CAAC,EAAE;EAC1C,cAAc,IAAI,CAAC,KAAK,GAAG,QAAQ,CAAC,CAAC,CAAC,CAAC;EACvC,cAAc,IAAI,CAAC,IAAI,GAAG,KAAK,CAAC;EAChC,cAAc,OAAO,IAAI,CAAC;EAC1B,aAAa;EACb,WAAW;AACX;EACA,UAAU,IAAI,CAAC,KAAK,GAAGA,WAAS,CAAC;EACjC,UAAU,IAAI,CAAC,IAAI,GAAG,IAAI,CAAC;AAC3B;EACA,UAAU,OAAO,IAAI,CAAC;EACtB,SAAS,CAAC;AACV;EACA,QAAQ,OAAO,IAAI,CAAC,IAAI,GAAG,IAAI,CAAC;EAChC,OAAO;EACP,KAAK;AACL;EACA;EACA,IAAI,OAAO,EAAE,IAAI,EAAE,UAAU,EAAE,CAAC;EAChC,GAAG;EACH,EAAE,OAAO,CAAC,MAAM,GAAG,MAAM,CAAC;AAC1B;EACA,EAAE,SAAS,UAAU,GAAG;EACxB,IAAI,OAAO,EAAE,KAAK,EAAEA,WAAS,EAAE,IAAI,EAAE,IAAI,EAAE,CAAC;EAC5C,GAAG;AACH;EACA,EAAE,OAAO,CAAC,SAAS,GAAG;EACtB,IAAI,WAAW,EAAE,OAAO;AACxB;EACA,IAAI,KAAK,EAAE,SAAS,aAAa,EAAE;EACnC,MAAM,IAAI,CAAC,IAAI,GAAG,CAAC,CAAC;EACpB,MAAM,IAAI,CAAC,IAAI,GAAG,CAAC,CAAC;EACpB;EACA;EACA,MAAM,IAAI,CAAC,IAAI,GAAG,IAAI,CAAC,KAAK,GAAGA,WAAS,CAAC;EACzC,MAAM,IAAI,CAAC,IAAI,GAAG,KAAK,CAAC;EACxB,MAAM,IAAI,CAAC,QAAQ,GAAG,IAAI,CAAC;AAC3B;EACA,MAAM,IAAI,CAAC,MAAM,GAAG,MAAM,CAAC;EAC3B,MAAM,IAAI,CAAC,GAAG,GAAGA,WAAS,CAAC;AAC3B;EACA,MAAM,IAAI,CAAC,UAAU,CAAC,OAAO,CAAC,aAAa,CAAC,CAAC;AAC7C;EACA,MAAM,IAAI,CAAC,aAAa,EAAE;EAC1B,QAAQ,KAAK,IAAI,IAAI,IAAI,IAAI,EAAE;EAC/B;EACA,UAAU,IAAI,IAAI,CAAC,MAAM,CAAC,CAAC,CAAC,KAAK,GAAG;EACpC,cAAc,MAAM,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,CAAC;EACrC,cAAc,CAAC,KAAK,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,EAAE;EACtC,YAAY,IAAI,CAAC,IAAI,CAAC,GAAGA,WAAS,CAAC;EACnC,WAAW;EACX,SAAS;EACT,OAAO;EACP,KAAK;AACL;EACA,IAAI,IAAI,EAAE,WAAW;EACrB,MAAM,IAAI,CAAC,IAAI,GAAG,IAAI,CAAC;AACvB;EACA,MAAM,IAAI,SAAS,GAAG,IAAI,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC;EACzC,MAAM,IAAI,UAAU,GAAG,SAAS,CAAC,UAAU,CAAC;EAC5C,MAAM,IAAI,UAAU,CAAC,IAAI,KAAK,OAAO,EAAE;EACvC,QAAQ,MAAM,UAAU,CAAC,GAAG,CAAC;EAC7B,OAAO;AACP;EACA,MAAM,OAAO,IAAI,CAAC,IAAI,CAAC;EACvB,KAAK;AACL;EACA,IAAI,iBAAiB,EAAE,SAAS,SAAS,EAAE;EAC3C,MAAM,IAAI,IAAI,CAAC,IAAI,EAAE;EACrB,QAAQ,MAAM,SAAS,CAAC;EACxB,OAAO;AACP;EACA,MAAM,IAAI,OAAO,GAAG,IAAI,CAAC;EACzB,MAAM,SAAS,MAAM,CAAC,GAAG,EAAE,MAAM,EAAE;EACnC,QAAQ,MAAM,CAAC,IAAI,GAAG,OAAO,CAAC;EAC9B,QAAQ,MAAM,CAAC,GAAG,GAAG,SAAS,CAAC;EAC/B,QAAQ,OAAO,CAAC,IAAI,GAAG,GAAG,CAAC;AAC3B;EACA,QAAQ,IAAI,MAAM,EAAE;EACpB;EACA;EACA,UAAU,OAAO,CAAC,MAAM,GAAG,MAAM,CAAC;EAClC,UAAU,OAAO,CAAC,GAAG,GAAGA,WAAS,CAAC;EAClC,SAAS;AACT;EACA,QAAQ,OAAO,CAAC,EAAE,MAAM,CAAC;EACzB,OAAO;AACP;EACA,MAAM,KAAK,IAAI,CAAC,GAAG,IAAI,CAAC,UAAU,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,EAAE,EAAE,CAAC,EAAE;EAC5D,QAAQ,IAAI,KAAK,GAAG,IAAI,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC;EACvC,QAAQ,IAAI,MAAM,GAAG,KAAK,CAAC,UAAU,CAAC;AACtC;EACA,QAAQ,IAAI,KAAK,CAAC,MAAM,KAAK,MAAM,EAAE;EACrC;EACA;EACA;EACA,UAAU,OAAO,MAAM,CAAC,KAAK,CAAC,CAAC;EAC/B,SAAS;AACT;EACA,QAAQ,IAAI,KAAK,CAAC,MAAM,IAAI,IAAI,CAAC,IAAI,EAAE;EACvC,UAAU,IAAI,QAAQ,GAAG,MAAM,CAAC,IAAI,CAAC,KAAK,EAAE,UAAU,CAAC,CAAC;EACxD,UAAU,IAAI,UAAU,GAAG,MAAM,CAAC,IAAI,CAAC,KAAK,EAAE,YAAY,CAAC,CAAC;AAC5D;EACA,UAAU,IAAI,QAAQ,IAAI,UAAU,EAAE;EACtC,YAAY,IAAI,IAAI,CAAC,IAAI,GAAG,KAAK,CAAC,QAAQ,EAAE;EAC5C,cAAc,OAAO,MAAM,CAAC,KAAK,CAAC,QAAQ,EAAE,IAAI,CAAC,CAAC;EAClD,aAAa,MAAM,IAAI,IAAI,CAAC,IAAI,GAAG,KAAK,CAAC,UAAU,EAAE;EACrD,cAAc,OAAO,MAAM,CAAC,KAAK,CAAC,UAAU,CAAC,CAAC;EAC9C,aAAa;AACb;EACA,WAAW,MAAM,IAAI,QAAQ,EAAE;EAC/B,YAAY,IAAI,IAAI,CAAC,IAAI,GAAG,KAAK,CAAC,QAAQ,EAAE;EAC5C,cAAc,OAAO,MAAM,CAAC,KAAK,CAAC,QAAQ,EAAE,IAAI,CAAC,CAAC;EAClD,aAAa;AACb;EACA,WAAW,MAAM,IAAI,UAAU,EAAE;EACjC,YAAY,IAAI,IAAI,CAAC,IAAI,GAAG,KAAK,CAAC,UAAU,EAAE;EAC9C,cAAc,OAAO,MAAM,CAAC,KAAK,CAAC,UAAU,CAAC,CAAC;EAC9C,aAAa;AACb;EACA,WAAW,MAAM;EACjB,YAAY,MAAM,IAAI,KAAK,CAAC,wCAAwC,CAAC,CAAC;EACtE,WAAW;EACX,SAAS;EACT,OAAO;EACP,KAAK;AACL;EACA,IAAI,MAAM,EAAE,SAAS,IAAI,EAAE,GAAG,EAAE;EAChC,MAAM,KAAK,IAAI,CAAC,GAAG,IAAI,CAAC,UAAU,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,EAAE,EAAE,CAAC,EAAE;EAC5D,QAAQ,IAAI,KAAK,GAAG,IAAI,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC;EACvC,QAAQ,IAAI,KAAK,CAAC,MAAM,IAAI,IAAI,CAAC,IAAI;EACrC,YAAY,MAAM,CAAC,IAAI,CAAC,KAAK,EAAE,YAAY,CAAC;EAC5C,YAAY,IAAI,CAAC,IAAI,GAAG,KAAK,CAAC,UAAU,EAAE;EAC1C,UAAU,IAAI,YAAY,GAAG,KAAK,CAAC;EACnC,UAAU,MAAM;EAChB,SAAS;EACT,OAAO;AACP;EACA,MAAM,IAAI,YAAY;EACtB,WAAW,IAAI,KAAK,OAAO;EAC3B,WAAW,IAAI,KAAK,UAAU,CAAC;EAC/B,UAAU,YAAY,CAAC,MAAM,IAAI,GAAG;EACpC,UAAU,GAAG,IAAI,YAAY,CAAC,UAAU,EAAE;EAC1C;EACA;EACA,QAAQ,YAAY,GAAG,IAAI,CAAC;EAC5B,OAAO;AACP;EACA,MAAM,IAAI,MAAM,GAAG,YAAY,GAAG,YAAY,CAAC,UAAU,GAAG,EAAE,CAAC;EAC/D,MAAM,MAAM,CAAC,IAAI,GAAG,IAAI,CAAC;EACzB,MAAM,MAAM,CAAC,GAAG,GAAG,GAAG,CAAC;AACvB;EACA,MAAM,IAAI,YAAY,EAAE;EACxB,QAAQ,IAAI,CAAC,MAAM,GAAG,MAAM,CAAC;EAC7B,QAAQ,IAAI,CAAC,IAAI,GAAG,YAAY,CAAC,UAAU,CAAC;EAC5C,QAAQ,OAAO,gBAAgB,CAAC;EAChC,OAAO;AACP;EACA,MAAM,OAAO,IAAI,CAAC,QAAQ,CAAC,MAAM,CAAC,CAAC;EACnC,KAAK;AACL;EACA,IAAI,QAAQ,EAAE,SAAS,MAAM,EAAE,QAAQ,EAAE;EACzC,MAAM,IAAI,MAAM,CAAC,IAAI,KAAK,OAAO,EAAE;EACnC,QAAQ,MAAM,MAAM,CAAC,GAAG,CAAC;EACzB,OAAO;AACP;EACA,MAAM,IAAI,MAAM,CAAC,IAAI,KAAK,OAAO;EACjC,UAAU,MAAM,CAAC,IAAI,KAAK,UAAU,EAAE;EACtC,QAAQ,IAAI,CAAC,IAAI,GAAG,MAAM,CAAC,GAAG,CAAC;EAC/B,OAAO,MAAM,IAAI,MAAM,CAAC,IAAI,KAAK,QAAQ,EAAE;EAC3C,QAAQ,IAAI,CAAC,IAAI,GAAG,IAAI,CAAC,GAAG,GAAG,MAAM,CAAC,GAAG,CAAC;EAC1C,QAAQ,IAAI,CAAC,MAAM,GAAG,QAAQ,CAAC;EAC/B,QAAQ,IAAI,CAAC,IAAI,GAAG,KAAK,CAAC;EAC1B,OAAO,MAAM,IAAI,MAAM,CAAC,IAAI,KAAK,QAAQ,IAAI,QAAQ,EAAE;EACvD,QAAQ,IAAI,CAAC,IAAI,GAAG,QAAQ,CAAC;EAC7B,OAAO;AACP;EACA,MAAM,OAAO,gBAAgB,CAAC;EAC9B,KAAK;AACL;EACA,IAAI,MAAM,EAAE,SAAS,UAAU,EAAE;EACjC,MAAM,KAAK,IAAI,CAAC,GAAG,IAAI,CAAC,UAAU,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,EAAE,EAAE,CAAC,EAAE;EAC5D,QAAQ,IAAI,KAAK,GAAG,IAAI,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC;EACvC,QAAQ,IAAI,KAAK,CAAC,UAAU,KAAK,UAAU,EAAE;EAC7C,UAAU,IAAI,CAAC,QAAQ,CAAC,KAAK,CAAC,UAAU,EAAE,KAAK,CAAC,QAAQ,CAAC,CAAC;EAC1D,UAAU,aAAa,CAAC,KAAK,CAAC,CAAC;EAC/B,UAAU,OAAO,gBAAgB,CAAC;EAClC,SAAS;EACT,OAAO;EACP,KAAK;AACL;EACA,IAAI,OAAO,EAAE,SAAS,MAAM,EAAE;EAC9B,MAAM,KAAK,IAAI,CAAC,GAAG,IAAI,CAAC,UAAU,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,EAAE,EAAE,CAAC,EAAE;EAC5D,QAAQ,IAAI,KAAK,GAAG,IAAI,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC;EACvC,QAAQ,IAAI,KAAK,CAAC,MAAM,KAAK,MAAM,EAAE;EACrC,UAAU,IAAI,MAAM,GAAG,KAAK,CAAC,UAAU,CAAC;EACxC,UAAU,IAAI,MAAM,CAAC,IAAI,KAAK,OAAO,EAAE;EACvC,YAAY,IAAI,MAAM,GAAG,MAAM,CAAC,GAAG,CAAC;EACpC,YAAY,aAAa,CAAC,KAAK,CAAC,CAAC;EACjC,WAAW;EACX,UAAU,OAAO,MAAM,CAAC;EACxB,SAAS;EACT,OAAO;AACP;EACA;EACA;EACA,MAAM,MAAM,IAAI,KAAK,CAAC,uBAAuB,CAAC,CAAC;EAC/C,KAAK;AACL;EACA,IAAI,aAAa,EAAE,SAAS,QAAQ,EAAE,UAAU,EAAE,OAAO,EAAE;EAC3D,MAAM,IAAI,CAAC,QAAQ,GAAG;EACtB,QAAQ,QAAQ,EAAE,MAAM,CAAC,QAAQ,CAAC;EAClC,QAAQ,UAAU,EAAE,UAAU;EAC9B,QAAQ,OAAO,EAAE,OAAO;EACxB,OAAO,CAAC;AACR;EACA,MAAM,IAAI,IAAI,CAAC,MAAM,KAAK,MAAM,EAAE;EAClC;EACA;EACA,QAAQ,IAAI,CAAC,GAAG,GAAGA,WAAS,CAAC;EAC7B,OAAO;AACP;EACA,MAAM,OAAO,gBAAgB,CAAC;EAC9B,KAAK;EACL,GAAG,CAAC;AACJ;EACA;EACA;EACA;EACA;EACA,EAAE,OAAO,OAAO,CAAC;AACjB;EACA,CAAC;EACD;EACA;EACA;EACA;EACA,EAA+B,MAAM,CAAC,OAAO,CAAK;EAClD,CAAC,CAAC,CAAC;AACH;EACA,IAAI;EACJ,EAAE,kBAAkB,GAAG,OAAO,CAAC;EAC/B,CAAC,CAAC,OAAO,oBAAoB,EAAE;EAC/B;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA,EAAE,IAAI,OAAO,UAAU,KAAK,QAAQ,EAAE;EACtC,IAAI,UAAU,CAAC,kBAAkB,GAAG,OAAO,CAAC;EAC5C,GAAG,MAAM;EACT,IAAI,QAAQ,CAAC,GAAG,EAAE,wBAAwB,CAAC,CAAC,OAAO,CAAC,CAAC;EACrD,GAAG;EACH;;;MCjvBA,WAAc,GAAGC,eAA8B;;ACA/C,iBAAe,CAAC,OAAO,MAAM,KAAK,WAAW,GAAG,MAAM;EACtD,EAAE,OAAO,IAAI,KAAK,WAAW,GAAG,IAAI;EACpC,EAAE,OAAO,MAAM,KAAK,WAAW,GAAG,MAAM,GAAG,EAAE;;ECF7C,IAAI,MAAM,GAAG,EAAE,CAAC;EAChB,IAAI,SAAS,GAAG,EAAE,CAAC;EACnB,IAAI,GAAG,GAAG,OAAO,UAAU,KAAK,WAAW,GAAG,UAAU,GAAG,KAAK,CAAC;EACjE,IAAI,MAAM,GAAG,KAAK,CAAC;EACnB,SAASC,MAAI,IAAI;EACjB,EAAE,MAAM,GAAG,IAAI,CAAC;EAChB,EAAE,IAAI,IAAI,GAAG,kEAAkE,CAAC;EAChF,EAAE,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,GAAG,GAAG,IAAI,CAAC,MAAM,EAAE,CAAC,GAAG,GAAG,EAAE,EAAE,CAAC,EAAE;EACnD,IAAI,MAAM,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC;EACxB,IAAI,SAAS,CAAC,IAAI,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC;EACtC,GAAG;AACH;EACA,EAAE,SAAS,CAAC,GAAG,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,GAAG,EAAE,CAAC;EACpC,EAAE,SAAS,CAAC,GAAG,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,GAAG,EAAE,CAAC;EACpC,CAAC;AACD;EACA,SAAS,WAAW,EAAE,GAAG,EAAE;EAC3B,EAAE,IAAI,CAAC,MAAM,EAAE;each,IAAIA,MAAI,EAAE,CAAC;EACX,GAAG;EACH,EAAE,IAAI,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,GAAG,EAAE,YAAY,EAAE,GAAG,CAAC;EACtC,EAAE,IAAI,GAAG,GAAG,GAAG,CAAC,MAAM,CAAC;AACvB;EACA,EAAE,IAAI,GAAG,GAAG,CAAC,GAAG,CAAC,EAAE;EACnB,IAAI,MAAM,IAAI,KAAK,CAAC,gDAAgD,CAAC;EACrE,GAAG;AACH;EACA;EACA;EACA;EACA;EACA;EACA,EAAE,YAAY,GAAG,GAAG,CAAC,GAAG,GAAG,CAAC,CAAC,KAAK,GAAG,GAAG,CAAC,GAAG,GAAG,CAAC,GAAG,GAAG,CAAC,CAAC,KAAK,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC;AACzE;EACA;EACA,EAAE,GAAG,GAAG,IAAI,GAAG,CAAC,GAAG,GAAG,CAAC,GAAG,CAAC,GAAG,YAAY,CAAC,CAAC;AAC5C;EACA;EACA,EAAE,CAAC,GAAG,YAAY,GAAG,CAAC,GAAG,GAAG,GAAG,CAAC,GAAG,GAAG,CAAC;AACvC;EACA,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC;AACZ;EACA,EAAE,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,EAAE,CAAC,IAAI,CAAC,EAAE;EAC5C,IAAI,GAAG,GAAG,CAAC,SAAS,CAAC,GAAG,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,IAAI,EAAE,KAAK,SAAS,CAAC,GAAG,CAAC,UAAU,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC,IAAI,SAAS,CAAC,GAAG,CAAC,UAAU,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,GAAG,SAAS,CAAC,GAAG,CAAC,UAAU,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;EACvK,IAAI,GAAG,CAAC,CAAC,EAAE,CAAC,GAAG,CAAC,GAAG,IAAI,EAAE,IAAI,IAAI,CAAC;EAClC,IAAI,GAAG,CAAC,CAAC,EAAE,CAAC,GAAG,CAAC,GAAG,IAAI,CAAC,IAAI,IAAI,CAAC;EACjC,IAAI,GAAG,CAAC,CAAC,EAAE,CAAC,GAAG,GAAG,GAAG,IAAI,CAAC;EAC1B,GAAG;AACH;EACA,EAAE,IAAI,YAAY,KAAK,CAAC,EAAE;EAC1B,IAAI,GAAG,GAAG,CAAC,SAAS,CAAC,GAAG,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,SAAS,CAAC,GAAG,CAAC,UAAU,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC;EACxF,IAAI,GAAG,CAAC,CAAC,EAAE,CAAC,GAAG,GAAG,GAAG,IAAI,CAAC;EAC1B,GAAG,MAAM,IAAI,YAAY,KAAK,CAAC,EAAE;EACjC,IAAI,GAAG,GAAG,CAAC,SAAS,CAAC,GAAG,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC,IAAI,EAAE,KAAK,SAAS,CAAC,GAAG,CAAC,UAAU,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,IAAI,SAAS,CAAC,GAAG,CAAC,UAAU,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC;EACnI,IAAI,GAAG,CAAC,CAAC,EAAE,CAAC,GAAG,CAAC,GAAG,IAAI,CAAC,IAAI,IAAI,CAAC;EACjC,IAAI,GAAG,CAAC,CAAC,EAAE,CAAC,GAAG,GAAG,GAAG,IAAI,CAAC;EAC1B,GAAG;AACH;EACA,EAAE,OAAO,GAAG;EACZ,CAAC;AACD;EACA,SAAS,eAAe,EAAE,GAAG,EAAE;EAC/B,EAAE,OAAO,MAAM,CAAC,GAAG,IAAI,EAAE,GAAG,IAAI,CAAC,GAAG,MAAM,CAAC,GAAG,IAAI,EAAE,GAAG,IAAI,CAAC,GAAG,MAAM,CAAC,GAAG,IAAI,CAAC,GAAG,IAAI,CAAC,GAAG,MAAM,CAAC,GAAG,GAAG,IAAI,CAAC;EAC3G,CAAC;AACD;EACA,SAAS,WAAW,EAAE,KAAK,EAAE,KAAK,EAAE,GAAG,EAAE;EACzC,EAAE,IAAI,GAAG,CAAC;EACV,EAAE,IAAI,MAAM,GAAG,EAAE,CAAC;EAClB,EAAE,KAAK,IAAI,CAAC,GAAG,KAAK,EAAE,CAAC,GAAG,GAAG,EAAE,CAAC,IAAI,CAAC,EAAE;EACvC,IAAI,GAAG,GAAG,CAAC,KAAK,CAAC,CAAC,CAAC,IAAI,EAAE,KAAK,KAAK,CAAC,CAAC,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC,IAAI,KAAK,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;EAClE,IAAI,MAAM,CAAC,IAAI,CAAC,eAAe,CAAC,GAAG,CAAC,CAAC,CAAC;EACtC,GAAG;EACH,EAAE,OAAO,MAAM,CAAC,IAAI,CAAC,EAAE,CAAC;EACxB,CAAC;AACD;EACA,SAAS,aAAa,EAAE,KAAK,EAAE;EAC/B,EAAE,IAAI,CAAC,MAAM,EAAE;each,IAAIA,MAAI,EAAE,CAAC;EACX,GAAG;EACH,EAAE,IAAI,GAAG,CAAC;EACV,EAAE,IAAI,GAAG,GAAG,KAAK,CAAC,MAAM,CAAC;EACzB,EAAE,IAAI,UAAU,GAAG,GAAG,GAAG,CAAC,CAAC;EAC3B,EAAE,IAAI,MAAM,GAAG,EAAE,CAAC;EAClB,EAAE,IAAI,KAAK,GAAG,EAAE,CAAC;EACjB,EAAE,IAAI,cAAc,GAAG,KAAK,CAAC;AAC7B;EACA;EACA,EAAE,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,IAAI,GAAG,GAAG,GAAG,UAAU,EAAE,CAAC,GAAG,IAAI,EAAE,CAAC,IAAI,cAAc,EAAE;EAC1E,IAAI,KAAK,CAAC,IAAI,CAAC,WAAW,CAAC,KAAK,EAAE,CAAC,EAAE,CAAC,CAAC,GAAG,cAAc,IAAI,IAAI,GAAG,IAAI,IAAI,CAAC,GAAG,cAAc,CAAC,CAAC,CAAC,CAAC;EACjG,GAAG;AACH;EACA;EACA,EAAE,IAAI,UAAU,KAAK,CAAC,EAAE;EACxB,IAAI,GAAG,GAAG,KAAK,CAAC,GAAG,GAAG,CAAC,CAAC,CAAC;EACzB,IAAI,MAAM,IAAI,MAAM,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC;EAC/B,IAAI,MAAM,IAAI,MAAM,CAAC,CAAC,GAAG,IAAI,CAAC,IAAI,IAAI,CAAC,CAAC;EACxC,IAAI,MAAM,IAAI,IAAI,CAAC;EACnB,GAAG,MAAM,IAAI,UAAU,KAAK,CAAC,EAAE;EAC/B,IAAI,GAAG,GAAG,CAAC,KAAK,CAAC,GAAG,GAAG,CAAC,CAAC,IAAI,CAAC,KAAK,KAAK,CAAC,GAAG,GAAG,CAAC,CAAC,CAAC,CAAC;EACnD,IAAI,MAAM,IAAI,MAAM,CAAC,GAAG,IAAI,EAAE,CAAC,CAAC;EAChC,IAAI,MAAM,IAAI,MAAM,CAAC,CAAC,GAAG,IAAI,CAAC,IAAI,IAAI,CAAC,CAAC;EACxC,IAAI,MAAM,IAAI,MAAM,CAAC,CAAC,GAAG,IAAI,CAAC,IAAI,IAAI,CAAC,CAAC;EACxC,IAAI,MAAM,IAAI,GAAG,CAAC;EAClB,GAAG;AACH;EACA,EAAE,KAAK,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;AACrB;EACA,EAAE,OAAO,KAAK,CAAC,IAAI,CAAC,EAAE,CAAC;EACvB,CAAC;AACD;EACA,SAASC,MAAI,EAAE,MAAM,EAAE,MAAM,EAAE,IAAI,EAAE,IAAI,EAAE,MAAM,EAAE;EACnD,EAAE,IAAI,CAAC,EAAE,CAAC,CAAC;EACX,EAAE,IAAI,IAAI,GAAG,MAAM,GAAG,CAAC,GAAG,IAAI,GAAG,CAAC,CAAC;EACnC,EAAE,IAAI,IAAI,GAAG,CAAC,CAAC,IAAI,IAAI,IAAI,CAAC,CAAC;EAC7B,EAAE,IAAI,KAAK,GAAG,IAAI,IAAI,CAAC,CAAC;EACxB,EAAE,IAAI,KAAK,GAAG,CAAC,CAAC,CAAC;EACjB,EAAE,IAAI,CAAC,GAAG,IAAI,IAAI,MAAM,GAAG,CAAC,IAAI,CAAC,CAAC;EAClC,EAAE,IAAI,CAAC,GAAG,IAAI,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC;EACxB,EAAE,IAAI,CAAC,GAAG,MAAM,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC;AAC7B;EACA,EAAE,CAAC,IAAI,CAAC,CAAC;AACT;EACA,EAAE,CAAC,GAAG,CAAC,IAAI,CAAC,CAAC,KAAK,CAAC,KAAK,CAAC,IAAI,CAAC,CAAC,CAAC;EAChC,EAAE,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC;EACjB,EAAE,KAAK,IAAI,IAAI,CAAC;EAChB,EAAE,OAAO,KAAK,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,GAAG,GAAG,GAAG,MAAM,CAAC,MAAM,GAAG,CAAC,CAAC,EAAE,CAAC,IAAI,CAAC,EAAE,KAAK,IAAI,CAAC,EAAE,EAAE;AAC5E;EACA,EAAE,CAAC,GAAG,CAAC,IAAI,CAAC,CAAC,KAAK,CAAC,KAAK,CAAC,IAAI,CAAC,CAAC,CAAC;EAChC,EAAE,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC;EACjB,EAAE,KAAK,IAAI,IAAI,CAAC;EAChB,EAAE,OAAO,KAAK,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,GAAG,GAAG,GAAG,MAAM,CAAC,MAAM,GAAG,CAAC,CAAC,EAAE,CAAC,IAAI,CAAC,EAAE,KAAK,IAAI,CAAC,EAAE,EAAE;AAC5E;EACA,EAAE,IAAI,CAAC,KAAK,CAAC,EAAE;each,IAAI,CAAC,GAAG,CAAC,GAAG,KAAK,CAAC;EAClB,GAAG,MAAM,IAAI,CAAC,KAAK,IAAI,EAAE;EACzB,IAAI,OAAO,CAAC,GAAG,GAAG,IAAI,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,IAAI,QAAQ,CAAC;EAC9C,GAAG,MAAM;EACT,IAAI,CAAC,GAAG,CAAC,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,IAAI,CAAC,CAAC;EAC9B,IAAI,CAAC,GAAG,CAAC,GAAG,KAAK,CAAC;EAClB,GAAG;EACH,EAAE,OAAO,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,IAAI,CAAC,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,GAAG,IAAI,CAAC;EACjD,CAAC;AACD;EACA,SAAS,KAAK,EAAE,MAAM,EAAE,KAAK,EAAE,MAAM,EAAE,IAAI,EAAE,IAAI,EAAE,MAAM,EAAE;EAC3D,EAAE,IAAI,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC;EACd,EAAE,IAAI,IAAI,GAAG,MAAM,GAAG,CAAC,GAAG,IAAI,GAAG,CAAC,CAAC;EACnC,EAAE,IAAI,IAAI,GAAG,CAAC,CAAC,IAAI,IAAI,IAAI,CAAC,CAAC;EAC7B,EAAE,IAAI,KAAK,GAAG,IAAI,IAAI,CAAC,CAAC;EACxB,EAAE,IAAI,EAAE,IAAI,IAAI,KAAK,EAAE,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC;EACnE,EAAE,IAAI,CAAC,GAAG,IAAI,GAAG,CAAC,IAAI,MAAM,GAAG,CAAC,CAAC,CAAC;EAClC,EAAE,IAAI,CAAC,GAAG,IAAI,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC;EACxB,EAAE,IAAI,CAAC,GAAG,KAAK,GAAG,CAAC,KAAK,KAAK,KAAK,CAAC,IAAI,CAAC,GAAG,KAAK,GAAG,CAAC,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC;AAC9D;EACA,EAAE,KAAK,GAAG,IAAI,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC;AAC1B;EACA,EAAE,IAAI,KAAK,CAAC,KAAK,CAAC,IAAI,KAAK,KAAK,QAAQ,EAAE;EAC1C,IAAI,CAAC,GAAG,KAAK,CAAC,KAAK,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC;EAC7B,IAAI,CAAC,GAAG,IAAI,CAAC;EACb,GAAG,MAAM;EACT,IAAI,CAAC,GAAG,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,GAAG,CAAC,KAAK,CAAC,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC;EAC/C,IAAI,IAAI,KAAK,IAAI,CAAC,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,EAAE;EAC3C,MAAM,CAAC,EAAE,CAAC;EACV,MAAM,CAAC,IAAI,CAAC,CAAC;EACb,KAAK;EACL,IAAI,IAAI,CAAC,GAAG,KAAK,IAAI,CAAC,EAAE;EACxB,MAAM,KAAK,IAAI,EAAE,GAAG,CAAC,CAAC;EACtB,KAAK,MAAM;EACX,MAAM,KAAK,IAAI,EAAE,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,GAAG,KAAK,CAAC,CAAC;EAC3C,KAAK;EACL,IAAI,IAAI,KAAK,GAAG,CAAC,IAAI,CAAC,EAAE;EACxB,MAAM,CAAC,EAAE,CAAC;EACV,MAAM,CAAC,IAAI,CAAC,CAAC;EACb,KAAK;AACL;EACA,IAAI,IAAI,CAAC,GAAG,KAAK,IAAI,IAAI,EAAE;EAC3B,MAAM,CAAC,GAAG,CAAC,CAAC;EACZ,MAAM,CAAC,GAAG,IAAI,CAAC;each,KAAK,MAAM,IAAI,CAAC,GAAG,KAAK,IAAI,CAAC,EAAE;EAC/B,MAAM,CAAC,GAAG,CAAC,KAAK,GAAG,CAAC,GAAG,CAAC,IAAI,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,IAAI,CAAC,CAAC;EAC9C,MAAM,CAAC,GAAG,CAAC,GAAG,KAAK,CAAC;EACpB,KAAK,MAAM;EACX,MAAM,CAAC,GAAG,KAAK,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,KAAK,GAAG,CAAC,CAAC,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,IAAI,CAAC,CAAC;EAC7D,MAAM,CAAC,GAAG,CAAC,CAAC;EACZ,KAAK;EACL,GAAG;AACH;EACA,EAAE,OAAO,IAAI,IAAI,CAAC,EAAE,MAAM,CAAC,MAAM,GAAG,CAAC,CAAC,GAAG,CAAC,GAAG,IAAI,EAAE,CAAC,IAAI,CAAC,EAAE,CAAC,IAAI,GAAG,EAAE,IAAI,IAAI,CAAC,EAAE,EAAE;AAClF;EACA,EAAE,CAAC,GAAG,CAAC,CAAC,IAAI,IAAI,IAAI,CAAC,CAAC;EACtB,EAAE,IAAI,IAAI,IAAI,CAAC;each,EAAE,OAAO,IAAI,GAAG,CAAC,EAAE,MAAM,CAAC,MAAM,GAAG,CAAC,CAAC,GAAG,CAAC,GAAG,IAAI,EAAE,CAAC,IAAI,CAAC,EAAE,CAAC,IAAI,GAAG,EAAE,IAAI,IAAI,CAAC,EAAE,EAAE;AACjF;EACA,EAAE,MAAM,CAAC,MAAM,GAAG,CAAC,GAAG,CAAC,CAAC,IAAI,CAAC,GAAG,GAAG,CAAC;EACpC,CAAC;AACD;EACA,IAAIC,UAAQ,GAAG,EAAE,CAAC,QAAQ,CAAC;AAC3B;EACA,IAAI,OAAO,GAAG,KAAK,CAAC,OAAO,IAAI,UAAU,GAAG,EAAE;EAC9C,EAAE,OAAOA,UAAQ,CAAC,IAAI,CAAC,GAAG,CAAC,IAAI,gBAAgB,CAAC;EAChD,CAAC,CAAC;AACF;EACA;EACA;EACA;EACA;EACA;EACA;AACA;EACA,IAAI,iBAAiB,GAAG,EAAE,CAAC;AAC3B;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;AACA;EACA;EACA;EACA;EACA,MAAM,CAAC,mBAAmB,GAAGC,QAAM,CAAC,mBAAmB,KAAK,SAAS;EACrE,IAAIA,QAAM,CAAC,mBAAmB;EAC9B,IAAI,IAAI,CAAC;AAMT;EACA,SAAS,UAAU,IAAI;EACvB,EAAE,OAAO,MAAM,CAAC,mBAAmB;EACnC,MAAM,UAAU;EAChB,MAAM,UAAU;EAChB,CAAC;AACD;EACA,SAAS,YAAY,EAAE,IAAI,EAAE,MAAM,EAAE;EACrC,EAAE,IAAI,UAAU,EAAE,GAAG,MAAM,EAAE;EAC7B,IAAI,MAAM,IAAI,UAAU,CAAC,4BAA4B,CAAC;EACtD,GAAG;EACH,EAAE,IAAI,MAAM,CAAC,mBAAmB,EAAE;EAClC;EACA,IAAI,IAAI,GAAG,IAAI,UAAU,CAAC,MAAM,CAAC,CAAC;EAClC,IAAI,IAAI,CAAC,SAAS,GAAG,MAAM,CAAC,SAAS,CAAC;EACtC,GAAG,MAAM;EACT;EACA,IAAI,IAAI,IAAI,KAAK,IAAI,EAAE;EACvB,MAAM,IAAI,GAAG,IAAI,MAAM,CAAC,MAAM,CAAC,CAAC;EAChC,KAAK;EACL,IAAI,IAAI,CAAC,MAAM,GAAG,MAAM,CAAC;EACzB,GAAG;AACH;EACA,EAAE,OAAO,IAAI;EACb,CAAC;AACD;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;AACA;EACA,SAAS,MAAM,EAAE,GAAG,EAAE,gBAAgB,EAAE,MAAM,EAAE;EAChD,EAAE,IAAI,CAAC,MAAM,CAAC,mBAAmB,IAAI,EAAE,IAAI,YAAY,MAAM,CAAC,EAAE;EAChE,IAAI,OAAO,IAAI,MAAM,CAAC,GAAG,EAAE,gBAAgB,EAAE,MAAM,CAAC;EACpD,GAAG;AACH;EACA;EACA,EAAE,IAAI,OAAO,GAAG,KAAK,QAAQ,EAAE;EAC/B,IAAI,IAAI,OAAO,gBAAgB,KAAK,QAAQ,EAAE;EAC9C,MAAM,MAAM,IAAI,KAAK;EACrB,QAAQ,mEAAmE;EAC3E,OAAO;EACP,KAAK;EACL,IAAI,OAAO,WAAW,CAAC,IAAI,EAAE,GAAG,CAAC;EACjC,GAAG;EACH,EAAE,OAAO,IAAI,CAAC,IAAI,EAAE,GAAG,EAAE,gBAAgB,EAAE,MAAM,CAAC;EAClD,CAAC;AACD;EACA,MAAM,CAAC,QAAQ,GAAG,IAAI,CAAC;AACvB;EACA;EACA,MAAM,CAAC,QAAQ,GAAG,UAAU,GAAG,EAAE;EACjC,EAAE,GAAG,CAAC,SAAS,GAAG,MAAM,CAAC,SAAS,CAAC;EACnC,EAAE,OAAO,GAAG;EACZ,CAAC,CAAC;AACF;EACA,SAAS,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,gBAAgB,EAAE,MAAM,EAAE;EACtD,EAAE,IAAI,OAAO,KAAK,KAAK,QAAQ,EAAE;EACjC,IAAI,MAAM,IAAI,SAAS,CAAC,uCAAuC,CAAC;EAChE,GAAG;AACH;EACA,EAAE,IAAI,OAAO,WAAW,KAAK,WAAW,IAAI,KAAK,YAAY,WAAW,EAAE;EAC1E,IAAI,OAAO,eAAe,CAAC,IAAI,EAAE,KAAK,EAAE,gBAAgB,EAAE,MAAM,CAAC;EACjE,GAAG;AACH;EACA,EAAE,IAAI,OAAO,KAAK,KAAK,QAAQ,EAAE;EACjC,IAAI,OAAO,UAAU,CAAC,IAAI,EAAE,KAAK,EAAE,gBAAgB,CAAC;EACpD,GAAG;AACH;EACA,EAAE,OAAO,UAAU,CAAC,IAAI,EAAE,KAAK,CAAC;EAChC,CAAC;AACD;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA,MAAM,CAAC,IAAI,GAAG,UAAU,KAAK,EAAE,gBAAgB,EAAE,MAAM,EAAE;EACzD,EAAE,OAAO,IAAI,CAAC,IAAI,EAAE,KAAK,EAAE,gBAAgB,EAAE,MAAM,CAAC;EACpD,CAAC,CAAC;AACF;EACA,IAAI,MAAM,CAAC,mBAAmB,EAAE;EAChC,EAAE,MAAM,CAAC,SAAS,CAAC,SAAS,GAAG,UAAU,CAAC,SAAS,CAAC;EACpD,EAAE,MAAM,CAAC,SAAS,GAAG,UAAU,CAAC;EAChC,CAAC;AACD;EACA,SAAS,UAAU,EAAE,IAAI,EAAE;EAC3B,EAAE,IAAI,OAAO,IAAI,KAAK,QAAQ,EAAE;EAChC,IAAI,MAAM,IAAI,SAAS,CAAC,kCAAkC,CAAC;EAC3D,GAAG,MAAM,IAAI,IAAI,GAAG,CAAC,EAAE;EACvB,IAAI,MAAM,IAAI,UAAU,CAAC,sCAAsC,CAAC;EAChE,GAAG;EACH,CAAC;AACD;EACA,SAAS,KAAK,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,QAAQ,EAAE;EAC5C,EAAE,UAAU,CAAC,IAAI,CAAC,CAAC;EACnB,EAAE,IAAI,IAAI,IAAI,CAAC,EAAE;EACjB,IAAI,OAAO,YAAY,CAAC,IAAI,EAAE,IAAI,CAAC;EACnC,GAAG;EACH,EAAE,IAAI,IAAI,KAAK,SAAS,EAAE;EAC1B;EACA;EACA;EACA,IAAI,OAAO,OAAO,QAAQ,KAAK,QAAQ;EACvC,QAAQ,YAAY,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC,IAAI,CAAC,IAAI,EAAE,QAAQ,CAAC;EACrD,QAAQ,YAAY,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC;EAC3C,GAAG;EACH,EAAE,OAAO,YAAY,CAAC,IAAI,EAAE,IAAI,CAAC;EACjC,CAAC;AACD;EACA;EACA;EACA;EACA;EACA,MAAM,CAAC,KAAK,GAAG,UAAU,IAAI,EAAE,IAAI,EAAE,QAAQ,EAAE;EAC/C,EAAE,OAAO,KAAK,CAAC,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,QAAQ,CAAC;EAC1C,CAAC,CAAC;AACF;EACA,SAAS,WAAW,EAAE,IAAI,EAAE,IAAI,EAAE;EAClC,EAAE,UAAU,CAAC,IAAI,CAAC,CAAC;EACnB,EAAE,IAAI,GAAG,YAAY,CAAC,IAAI,EAAE,IAAI,GAAG,CAAC,GAAG,CAAC,GAAG,OAAO,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC;EAC9D,EAAE,IAAI,CAAC,MAAM,CAAC,mBAAmB,EAAE;EACnC,IAAI,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,EAAE,EAAE,CAAC,EAAE;EACnC,MAAM,IAAI,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC;EAClB,KAAK;EACL,GAAG;EACH,EAAE,OAAO,IAAI;EACb,CAAC;AACD;EACA;EACA;EACA;EACA,MAAM,CAAC,WAAW,GAAG,UAAU,IAAI,EAAE;EACrC,EAAE,OAAO,WAAW,CAAC,IAAI,EAAE,IAAI,CAAC;EAChC,CAAC,CAAC;EACH;EACA;EACA;EACA,MAAM,CAAC,eAAe,GAAG,UAAU,IAAI,EAAE;EACzC,EAAE,OAAO,WAAW,CAAC,IAAI,EAAE,IAAI,CAAC;EAChC,CAAC,CAAC;AACF;EACA,SAAS,UAAU,EAAE,IAAI,EAAE,MAAM,EAAE,QAAQ,EAAE;EAC7C,EAAE,IAAI,OAAO,QAAQ,KAAK,QAAQ,IAAI,QAAQ,KAAK,EAAE,EAAE;EACvD,IAAI,QAAQ,GAAG,MAAM,CAAC;EACtB,GAAG;AACH;EACA,EAAE,IAAI,CAAC,MAAM,CAAC,UAAU,CAAC,QAAQ,CAAC,EAAE;EACpC,IAAI,MAAM,IAAI,SAAS,CAAC,4CAA4C,CAAC;EACrE,GAAG;AACH;EACA,EAAE,IAAI,MAAM,GAAG,UAAU,CAAC,MAAM,EAAE,QAAQ,CAAC,GAAG,CAAC,CAAC;EAChD,EAAE,IAAI,GAAG,YAAY,CAAC,IAAI,EAAE,MAAM,CAAC,CAAC;AACpC;EACA,EAAE,IAAI,MAAM,GAAG,IAAI,CAAC,KAAK,CAAC,MAAM,EAAE,QAAQ,CAAC,CAAC;AAC5C;EACA,EAAE,IAAI,MAAM,KAAK,MAAM,EAAE;EACzB;EACA;EACA;EACA,IAAI,IAAI,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,EAAE,MAAM,CAAC,CAAC;EACjC,GAAG;AACH;EACA,EAAE,OAAO,IAAI;EACb,CAAC;AACD;EACA,SAAS,aAAa,EAAE,IAAI,EAAE,KAAK,EAAE;EACrC,EAAE,IAAI,MAAM,GAAG,KAAK,CAAC,MAAM,GAAG,CAAC,GAAG,CAAC,GAAG,OAAO,CAAC,KAAK,CAAC,MAAM,CAAC,GAAG,CAAC,CAAC;EAChE,EAAE,IAAI,GAAG,YAAY,CAAC,IAAI,EAAE,MAAM,CAAC,CAAC;EACpC,EAAE,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,CAAC,IAAI,CAAC,EAAE;EACtC,IAAI,IAAI,CAAC,CAAC,CAAC,GAAG,KAAK,CAAC,CAAC,CAAC,GAAG,GAAG,CAAC;EAC7B,GAAG;EACH,EAAE,OAAO,IAAI;EACb,CAAC;AACD;EACA,SAAS,eAAe,EAAE,IAAI,EAAE,KAAK,EAAE,UAAU,EAAE,MAAM,EAAE;EAC3D,EAAE,KAAK,CAAC,UAAU,CAAC;AACnB;EACA,EAAE,IAAI,UAAU,GAAG,CAAC,IAAI,KAAK,CAAC,UAAU,GAAG,UAAU,EAAE;EACvD,IAAI,MAAM,IAAI,UAAU,CAAC,6BAA6B,CAAC;EACvD,GAAG;AACH;EACA,EAAE,IAAI,KAAK,CAAC,UAAU,GAAG,UAAU,IAAI,MAAM,IAAI,CAAC,CAAC,EAAE;EACrD,IAAI,MAAM,IAAI,UAAU,CAAC,6BAA6B,CAAC;EACvD,GAAG;AACH;EACA,EAAE,IAAI,UAAU,KAAK,SAAS,IAAI,MAAM,KAAK,SAAS,EAAE;EACxD,IAAI,KAAK,GAAG,IAAI,UAAU,CAAC,KAAK,CAAC,CAAC;EAClC,GAAG,MAAM,IAAI,MAAM,KAAK,SAAS,EAAE;EACnC,IAAI,KAAK,GAAG,IAAI,UAAU,CAAC,KAAK,EAAE,UAAU,CAAC,CAAC;EAC9C,GAAG,MAAM;EACT,IAAI,KAAK,GAAG,IAAI,UAAU,CAAC,KAAK,EAAE,UAAU,EAAE,MAAM,CAAC,CAAC;EACtD,GAAG;AACH;EACA,EAAE,IAAI,MAAM,CAAC,mBAAmB,EAAE;EAClC;EACA,IAAI,IAAI,GAAG,KAAK,CAAC;EACjB,IAAI,IAAI,CAAC,SAAS,GAAG,MAAM,CAAC,SAAS,CAAC;EACtC,GAAG,MAAM;EACT;EACA,IAAI,IAAI,GAAG,aAAa,CAAC,IAAI,EAAE,KAAK,CAAC,CAAC;EACtC,GAAG;EACH,EAAE,OAAO,IAAI;EACb,CAAC;AACD;EACA,SAAS,UAAU,EAAE,IAAI,EAAE,GAAG,EAAE;EAChC,EAAE,IAAI,gBAAgB,CAAC,GAAG,CAAC,EAAE;EAC7B,IAAI,IAAI,GAAG,GAAG,OAAO,CAAC,GAAG,CAAC,MAAM,CAAC,GAAG,CAAC,CAAC;EACtC,IAAI,IAAI,GAAG,YAAY,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;AACnC;EACA,IAAI,IAAI,IAAI,CAAC,MAAM,KAAK,CAAC,EAAE;EAC3B,MAAM,OAAO,IAAI;EACjB,KAAK;AACL;EACA,IAAI,GAAG,CAAC,IAAI,CAAC,IAAI,EAAE,CAAC,EAAE,CAAC,EAAE,GAAG,CAAC,CAAC;EAC9B,IAAI,OAAO,IAAI;each,GAAG;AACH;EACA,EAAE,IAAI,GAAG,EAAE;EACX,IAAI,IAAI,CAAC,OAAO,WAAW,KAAK,WAAW;EAC3C,QAAQ,GAAG,CAAC,MAAM,YAAY,WAAW,KAAK,QAAQ,IAAI,GAAG,EAAE;EAC/D,MAAM,IAAI,OAAO,GAAG,CAAC,MAAM,KAAK,QAAQ,IAAI,KAAK,CAAC,GAAG,CAAC,MAAM,CAAC,EAAE;EAC/D,QAAQ,OAAO,YAAY,CAAC,IAAI,EAAE,CAAC,CAAC;EACpC,OAAO;EACP,MAAM,OAAO,aAAa,CAAC,IAAI,EAAE,GAAG,CAAC;EACrC,KAAK;AACL;EACA,IAAI,IAAI,GAAG,CAAC,IAAI,KAAK,QAAQ,IAAI,OAAO,CAAC,GAAG,CAAC,IAAI,CAAC,EAAE;EACpD,MAAM,OAAO,aAAa,CAAC,IAAI,EAAE,GAAG,CAAC,IAAI,CAAC;EAC1C,KAAK;EACL,GAAG;AACH;EACA,EAAE,MAAM,IAAI,SAAS,CAAC,oFAAoF,CAAC;EAC3G,CAAC;AACD;EACA,SAAS,OAAO,EAAE,MAAM,EAAE;EAC1B;EACA;EACA,EAAE,IAAI,MAAM,IAAI,UAAU,EAAE,EAAE;EAC9B,IAAI,MAAM,IAAI,UAAU,CAAC,iDAAiD;EAC1E,yBAAyB,UAAU,GAAG,UAAU,EAAE,CAAC,QAAQ,CAAC,EAAE,CAAC,GAAG,QAAQ,CAAC;EAC3E,GAAG;EACH,EAAE,OAAO,MAAM,GAAG,CAAC;EACnB,CAAC;EAQD,MAAM,CAAC,QAAQ,GAAG,QAAQ,CAAC;EAC3B,SAAS,gBAAgB,EAAE,CAAC,EAAE;EAC9B,EAAE,OAAO,CAAC,EAAE,CAAC,IAAI,IAAI,IAAI,CAAC,CAAC,SAAS,CAAC;EACrC,CAAC;AACD;EACA,MAAM,CAAC,OAAO,GAAG,SAAS,OAAO,EAAE,CAAC,EAAE,CAAC,EAAE;EACzC,EAAE,IAAI,CAAC,gBAAgB,CAAC,CAAC,CAAC,IAAI,CAAC,gBAAgB,CAAC,CAAC,CAAC,EAAE;EACpD,IAAI,MAAM,IAAI,SAAS,CAAC,2BAA2B,CAAC;EACpD,GAAG;AACH;EACA,EAAE,IAAI,CAAC,KAAK,CAAC,EAAE,OAAO,CAAC;AACvB;EACA,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC,MAAM,CAAC;EACnB,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC,MAAM,CAAC;AACnB;EACA,EAAE,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,GAAG,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC,GAAG,GAAG,EAAE,EAAE,CAAC,EAAE;EACtD,IAAI,IAAI,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,EAAE;EACvB,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;each,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;each,MAAM,KAAK;EACX,KAAK;EACL,GAAG;AACH;EACA,EAAE,IAAI,CAAC,GAAG,CAAC,EAAE,OAAO,CAAC,CAAC;EACtB,EAAE,IAAI,CAAC,GAAG,CAAC,EAAE,OAAO,CAAC;EACrB,EAAE,OAAO,CAAC;EACV,CAAC,CAAC;AACF;EACA,MAAM,CAAC,UAAU,GAAG,SAAS,UAAU,EAAE,QAAQ,EAAE;EACnD,EAAE,QAAQ,MAAM,CAAC,QAAQ,CAAC,CAAC,WAAW,EAAE;EACxC,IAAI,KAAK,KAAK,CAAC;each,IAAI,KAAK,MAAM,CAAC;EAChB,IAAI,KAAK,OAAO,CAAC;EACjB,IAAI,KAAK,OAAO,CAAC;EACjB,IAAI,KAAK,QAAQ,CAAC;EAClB,IAAI,KAAK,QAAQ,CAAC;EAClB,IAAI,KAAK,QAAQ,CAAC;EAClB,IAAI,KAAK,MAAM,CAAC;EAChB,IAAI,KAAK,OAAO,CAAC;EACjB,IAAI,KAAK,SAAS,CAAC;EACnB,IAAI,KAAK,UAAU;EACnB,MAAM,OAAO,IAAI;EACjB,IAAI;EACJ,MAAM,OAAO,KAAK;EAClB,GAAG;EACH,CAAC,CAAC;AACF;EACA,MAAM,CAAC,MAAM,GAAG,SAAS,MAAM,EAAE,IAAI,EAAE,MAAM,EAAE;EAC/C,EAAE,IAAI,CAAC,OAAO,CAAC,IAAI,CAAC,EAAE;EACtB,IAAI,MAAM,IAAI,SAAS,CAAC,6CAA6C,CAAC;EACtE,GAAG;AACH;EACA,EAAE,IAAI,IAAI,CAAC,MAAM,KAAK,CAAC,EAAE;EACzB,IAAI,OAAO,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC;EAC1B,GAAG;AACH;EACA,EAAE,IAAI,CAAC,CAAC;EACR,EAAE,IAAI,MAAM,KAAK,SAAS,EAAE;EAC5B,IAAI,MAAM,GAAG,CAAC,CAAC;each,IAAI,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,CAAC,MAAM,EAAE,EAAE,CAAC,EAAE;EACtC,MAAM,MAAM,IAAI,IAAI,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC;EAC/B,KAAK;EACL,GAAG;AACH;EACA,EAAE,IAAI,MAAM,GAAG,MAAM,CAAC,WAAW,CAAC,MAAM,CAAC,CAAC;EAC1C,EAAE,IAAI,GAAG,GAAG,CAAC,CAAC;EACd,EAAE,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,CAAC,MAAM,EAAE,EAAE,CAAC,EAAE;EACpC,IAAI,IAAI,GAAG,GAAG,IAAI,CAAC,CAAC,CAAC,CAAC;EACtB,IAAI,IAAI,CAAC,gBAAgB,CAAC,GAAG,CAAC,EAAE;EAChC,MAAM,MAAM,IAAI,SAAS,CAAC,6CAA6C,CAAC;EACxE,KAAK;EACL,IAAI,GAAG,CAAC,IAAI,CAAC,MAAM,EAAE,GAAG,CAAC,CAAC;EAC1B,IAAI,GAAG,IAAI,GAAG,CAAC,MAAM,CAAC;EACtB,GAAG;EACH,EAAE,OAAO,MAAM;each,CAAC,CAAC;AACF;EACA,SAAS,UAAU,EAAE,MAAM,EAAE,QAAQ,EAAE;EACvC,EAAE,IAAI,gBAAgB,CAAC,MAAM,CAAC,EAAE;EAChC,IAAI,OAAO,MAAM,CAAC,MAAM;EACxB,GAAG;EACH,EAAE,IAAI,OAAO,WAAW,KAAK,WAAW,IAAI,OAAO,WAAW,CAAC,MAAM,KAAK,UAAU;EACpF,OAAO,WAAW,CAAC,MAAM,CAAC,MAAM,CAAC,IAAI,MAAM,YAAY,WAAW,CAAC,EAAE;EACrE,IAAI,OAAO,MAAM,CAAC,UAAU;EAC5B,GAAG;EACH,EAAE,IAAI,OAAO,MAAM,KAAK,QAAQ,EAAE;EAClC,IAAI,MAAM,GAAG,EAAE,GAAG,MAAM,CAAC;EACzB,GAAG;AACH;EACA,EAAE,IAAI,GAAG,GAAG,MAAM,CAAC,MAAM,CAAC;EAC1B,EAAE,IAAI,GAAG,KAAK,CAAC,EAAE,OAAO,CAAC;AACzB;EACA;EACA,EAAE,IAAI,WAAW,GAAG,KAAK,CAAC;EAC1B,EAAE,SAAS;EACX,IAAI,QAAQ,QAAQ;EACpB,MAAM,KAAK,OAAO,CAAC;EACnB,MAAM,KAAK,QAAQ,CAAC;EACpB,MAAM,KAAK,QAAQ;EACnB,QAAQ,OAAO,GAAG;EAClB,MAAM,KAAK,MAAM,CAAC;EAClB,MAAM,KAAK,OAAO,CAAC;EACnB,MAAM,KAAK,SAAS;EACpB,QAAQ,OAAO,WAAW,CAAC,MAAM,CAAC,CAAC,MAAM;EACzC,MAAM,KAAK,MAAM,CAAC;EAClB,MAAM,KAAK,OAAO,CAAC;EACnB,MAAM,KAAK,SAAS,CAAC;EACrB,MAAM,KAAK,UAAU;EACrB,QAAQ,OAAO,GAAG,GAAG,CAAC;EACtB,MAAM,KAAK,KAAK;EAChB,QAAQ,OAAO,GAAG,KAAK,CAAC;EACxB,MAAM,KAAK,QAAQ;EACnB,QAAQ,OAAO,aAAa,CAAC,MAAM,CAAC,CAAC,MAAM;EAC3C,MAAM;EACN,QAAQ,IAAI,WAAW,EAAE,OAAO,WAAW,CAAC,MAAM,CAAC,CAAC,MAAM;EAC1D,QAAQ,QAAQ,GAAG,CAAC,EAAE,GAAG,QAAQ,EAAE,WAAW,EAAE,CAAC;EACjD,QAAQ,WAAW,GAAG,IAAI,CAAC;EAC3B,KAAK;EACL,GAAG;EACH,CAAC;EACD,MAAM,CAAC,UAAU,GAAG,UAAU,CAAC;AAC/B;EACA,SAAS,YAAY,EAAE,QAAQ,EAAE,KAAK,EAAE,GAAG,EAAE;EAC7C,EAAE,IAAI,WAAW,GAAG,KAAK,CAAC;AAC1B;EACA;EACA;AACA;EACA;EACA;EACA;EACA;EACA,EAAE,IAAI,KAAK,KAAK,SAAS,IAAI,KAAK,GAAG,CAAC,EAAE;EACxC,IAAI,KAAK,GAAG,CAAC,CAAC;EACd,GAAG;EACH;EACA;EACA,EAAE,IAAI,KAAK,GAAG,IAAI,CAAC,MAAM,EAAE;EAC3B,IAAI,OAAO,EAAE;EACb,GAAG;AACH;EACA,EAAE,IAAI,GAAG,KAAK,SAAS,IAAI,GAAG,GAAG,IAAI,CAAC,MAAM,EAAE;EAC9C,IAAI,GAAG,GAAG,IAAI,CAAC,MAAM,CAAC;EACtB,GAAG;AACH;EACA,EAAE,IAAI,GAAG,IAAI,CAAC,EAAE;EAChB,IAAI,OAAO,EAAE;EACb,GAAG;AACH;EACA;EACA,EAAE,GAAG,MAAM,CAAC,CAAC;EACb,EAAE,KAAK,MAAM,CAAC,CAAC;AACf;EACA,EAAE,IAAI,GAAG,IAAI,KAAK,EAAE;EACpB,IAAI,OAAO,EAAE;EACb,GAAG;AACH;EACA,EAAE,IAAI,CAAC,QAAQ,EAAE,QAAQ,GAAG,MAAM,CAAC;AACnC;EACA,EAAE,OAAO,IAAI,EAAE;each,IAAI,QAAQ,QAAQ;EACpB,MAAM,KAAK,KAAK;EAChB,QAAQ,OAAO,QAAQ,CAAC,IAAI,EAAE,KAAK,EAAE,GAAG,CAAC;AACzC;EACA,MAAM,KAAK,MAAM,CAAC;EAClB,MAAM,KAAK,OAAO;EAClB,QAAQ,OAAO,SAAS,CAAC,IAAI,EAAE,KAAK,EAAE,GAAG,CAAC;AAC1C;EACA,MAAM,KAAK,OAAO;EAClB,QAAQ,OAAO,UAAU,CAAC,IAAI,EAAE,KAAK,EAAE,GAAG,CAAC;AAC3C;EACA,MAAM,KAAK,QAAQ,CAAC;EACpB,MAAM,KAAK,QAAQ;EACnB,QAAQ,OAAO,WAAW,CAAC,IAAI,EAAE,KAAK,EAAE,GAAG,CAAC;AAC5C;EACA,MAAM,KAAK,QAAQ;EACnB,QAAQ,OAAO,WAAW,CAAC,IAAI,EAAE,KAAK,EAAE,GAAG,CAAC;AAC5C;EACA,MAAM,KAAK,MAAM,CAAC;EAClB,MAAM,KAAK,OAAO,CAAC;EACnB,MAAM,KAAK,SAAS,CAAC;EACrB,MAAM,KAAK,UAAU;EACrB,QAAQ,OAAO,YAAY,CAAC,IAAI,EAAE,KAAK,EAAE,GAAG,CAAC;AAC7C;EACA,MAAM;EACN,QAAQ,IAAI,WAAW,EAAE,MAAM,IAAI,SAAS,CAAC,oBAAoB,GAAG,QAAQ,CAAC;EAC7E,QAAQ,QAAQ,GAAG,CAAC,QAAQ,GAAG,EAAE,EAAE,WAAW,EAAE,CAAC;EACjD,QAAQ,WAAW,GAAG,IAAI,CAAC;EAC3B,KAAK;EACL,GAAG;EACH,CAAC;AACD;EACA;EACA;EACA,MAAM,CAAC,SAAS,CAAC,SAAS,GAAG,IAAI,CAAC;AAClC;EACA,SAAS,IAAI,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE;EACxB,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;each,EAAE,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;EACd,EAAE,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC;EACX,CAAC;AACD;EACA,MAAM,CAAC,SAAS,CAAC,MAAM,GAAG,SAAS,MAAM,IAAI;EAC7C,EAAE,IAAI,GAAG,GAAG,IAAI,CAAC,MAAM,CAAC;EACxB,EAAE,IAAI,GAAG,GAAG,CAAC,KAAK,CAAC,EAAE;EACrB,IAAI,MAAM,IAAI,UAAU,CAAC,2CAA2C,CAAC;EACrE,GAAG;EACH,EAAE,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,GAAG,EAAE,CAAC,IAAI,CAAC,EAAE;EACnC,IAAI,IAAI,CAAC,IAAI,EAAE,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC;EACzB,GAAG;EACH,EAAE,OAAO,IAAI;EACb,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,MAAM,GAAG,SAAS,MAAM,IAAI;EAC7C,EAAE,IAAI,GAAG,GAAG,IAAI,CAAC,MAAM,CAAC;EACxB,EAAE,IAAI,GAAG,GAAG,CAAC,KAAK,CAAC,EAAE;EACrB,IAAI,MAAM,IAAI,UAAU,CAAC,2CAA2C,CAAC;EACrE,GAAG;EACH,EAAE,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,GAAG,EAAE,CAAC,IAAI,CAAC,EAAE;EACnC,IAAI,IAAI,CAAC,IAAI,EAAE,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC;EACzB,IAAI,IAAI,CAAC,IAAI,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC;EAC7B,GAAG;EACH,EAAE,OAAO,IAAI;EACb,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,MAAM,GAAG,SAAS,MAAM,IAAI;EAC7C,EAAE,IAAI,GAAG,GAAG,IAAI,CAAC,MAAM,CAAC;EACxB,EAAE,IAAI,GAAG,GAAG,CAAC,KAAK,CAAC,EAAE;EACrB,IAAI,MAAM,IAAI,UAAU,CAAC,2CAA2C,CAAC;EACrE,GAAG;EACH,EAAE,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,GAAG,EAAE,CAAC,IAAI,CAAC,EAAE;EACnC,IAAI,IAAI,CAAC,IAAI,EAAE,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC;EACzB,IAAI,IAAI,CAAC,IAAI,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC;EAC7B,IAAI,IAAI,CAAC,IAAI,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC;EAC7B,IAAI,IAAI,CAAC,IAAI,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC;EAC7B,GAAG;EACH,EAAE,OAAO,IAAI;EACb,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,QAAQ,GAAG,SAAS,QAAQ,IAAI;EACjD,EAAE,IAAI,MAAM,GAAG,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC;EAC/B,EAAE,IAAI,MAAM,KAAK,CAAC,EAAE,OAAO,EAAE;EAC7B,EAAE,IAAI,SAAS,CAAC,MAAM,KAAK,CAAC,EAAE,OAAO,SAAS,CAAC,IAAI,EAAE,CAAC,EAAE,MAAM,CAAC;EAC/D,EAAE,OAAO,YAAY,CAAC,KAAK,CAAC,IAAI,EAAE,SAAS,CAAC;EAC5C,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,MAAM,GAAG,SAAS,MAAM,EAAE,CAAC,EAAE;EAC9C,EAAE,IAAI,CAAC,gBAAgB,CAAC,CAAC,CAAC,EAAE,MAAM,IAAI,SAAS,CAAC,2BAA2B,CAAC;EAC5E,EAAE,IAAI,IAAI,KAAK,CAAC,EAAE,OAAO,IAAI;EAC7B,EAAE,OAAO,MAAM,CAAC,OAAO,CAAC,IAAI,EAAE,CAAC,CAAC,KAAK,CAAC;EACtC,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,OAAO,GAAG,SAAS,OAAO,IAAI;EAC/C,EAAE,IAAI,GAAG,GAAG,EAAE,CAAC;each,EAAE,IAAI,GAAG,GAAG,iBAAiB,CAAC;EAC9B,EAAE,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,EAAE;EACvB,IAAI,GAAG,GAAG,IAAI,CAAC,QAAQ,CAAC,KAAK,EAAE,CAAC,EAAE,GAAG,CAAC,CAAC,KAAK,CAAC,OAAO,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;EAChE,IAAI,IAAI,IAAI,CAAC,MAAM,GAAG,GAAG,EAAE,GAAG,IAAI,OAAO,CAAC;EAC1C,GAAG;EACH,EAAE,OAAO,UAAU,GAAG,GAAG,GAAG,GAAG;EAC/B,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,OAAO,GAAG,SAAS,OAAO,EAAE,MAAM,EAAE,KAAK,EAAE,GAAG,EAAE,SAAS,EAAE,OAAO,EAAE;EACrF,EAAE,IAAI,CAAC,gBAAgB,CAAC,MAAM,CAAC,EAAE;EACjC,IAAI,MAAM,IAAI,SAAS,CAAC,2BAA2B,CAAC;EACpD,GAAG;AACH;EACA,EAAE,IAAI,KAAK,KAAK,SAAS,EAAE;EAC3B,IAAI,KAAK,GAAG,CAAC,CAAC;EACd,GAAG;EACH,EAAE,IAAI,GAAG,KAAK,SAAS,EAAE;EACzB,IAAI,GAAG,GAAG,MAAM,GAAG,MAAM,CAAC,MAAM,GAAG,CAAC,CAAC;EACrC,GAAG;EACH,EAAE,IAAI,SAAS,KAAK,SAAS,EAAE;EAC/B,IAAI,SAAS,GAAG,CAAC,CAAC;EAClB,GAAG;EACH,EAAE,IAAI,OAAO,KAAK,SAAS,EAAE;EAC7B,IAAI,OAAO,GAAG,IAAI,CAAC,MAAM,CAAC;EAC1B,GAAG;AACH;EACA,EAAE,IAAI,KAAK,GAAG,CAAC,IAAI,GAAG,GAAG,MAAM,CAAC,MAAM,IAAI,SAAS,GAAG,CAAC,IAAI,OAAO,GAAG,IAAI,CAAC,MAAM,EAAE;EAClF,IAAI,MAAM,IAAI,UAAU,CAAC,oBAAoB,CAAC;EAC9C,GAAG;AACH;EACA,EAAE,IAAI,SAAS,IAAI,OAAO,IAAI,KAAK,IAAI,GAAG,EAAE;EAC5C,IAAI,OAAO,CAAC;EACZ,GAAG;EACH,EAAE,IAAI,SAAS,IAAI,OAAO,EAAE;EAC5B,IAAI,OAAO,CAAC,CAAC;EACb,GAAG;EACH,EAAE,IAAI,KAAK,IAAI,GAAG,EAAE;EACpB,IAAI,OAAO,CAAC;EACZ,GAAG;AACH;EACA,EAAE,KAAK,MAAM,CAAC,CAAC;each,EAAE,GAAG,MAAM,CAAC,CAAC;EACb,EAAE,SAAS,MAAM,CAAC,CAAC;EACnB,EAAE,OAAO,MAAM,CAAC,CAAC;AACjB;EACA,EAAE,IAAI,IAAI,KAAK,MAAM,EAAE,OAAO,CAAC;AAC/B;EACA,EAAE,IAAI,CAAC,GAAG,OAAO,GAAG,SAAS,CAAC;EAC9B,EAAE,IAAI,CAAC,GAAG,GAAG,GAAG,KAAK,CAAC;EACtB,EAAE,IAAI,GAAG,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;AAC3B;EACA,EAAE,IAAI,QAAQ,GAAG,IAAI,CAAC,KAAK,CAAC,SAAS,EAAE,OAAO,CAAC,CAAC;EAChD,EAAE,IAAI,UAAU,GAAG,MAAM,CAAC,KAAK,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;AAC5C;EACA,EAAE,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,GAAG,EAAE,EAAE,CAAC,EAAE;EAChC,IAAI,IAAI,QAAQ,CAAC,CAAC,CAAC,KAAK,UAAU,CAAC,CAAC,CAAC,EAAE;EACvC,MAAM,CAAC,GAAG,QAAQ,CAAC,CAAC,CAAC,CAAC;EACtB,MAAM,CAAC,GAAG,UAAU,CAAC,CAAC,CAAC,CAAC;EACxB,MAAM,KAAK;EACX,KAAK;EACL,GAAG;AACH;EACA,EAAE,IAAI,CAAC,GAAG,CAAC,EAAE,OAAO,CAAC,CAAC;EACtB,EAAE,IAAI,CAAC,GAAG,CAAC,EAAE,OAAO,CAAC;EACrB,EAAE,OAAO,CAAC;EACV,CAAC,CAAC;AACF;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA,SAAS,oBAAoB,EAAE,MAAM,EAAE,GAAG,EAAE,UAAU,EAAE,QAAQ,EAAE,GAAG,EAAE;EACvE;EACA,EAAE,IAAI,MAAM,CAAC,MAAM,KAAK,CAAC,EAAE,OAAO,CAAC,CAAC;AACpC;EACA;EACA,EAAE,IAAI,OAAO,UAAU,KAAK,QAAQ,EAAE;EACtC,IAAI,QAAQ,GAAG,UAAU,CAAC;EAC1B,IAAI,UAAU,GAAG,CAAC,CAAC;EACnB,GAAG,MAAM,IAAI,UAAU,GAAG,UAAU,EAAE;EACtC,IAAI,UAAU,GAAG,UAAU,CAAC;EAC5B,GAAG,MAAM,IAAI,UAAU,GAAG,CAAC,UAAU,EAAE;EACvC,IAAI,UAAU,GAAG,CAAC,UAAU,CAAC;EAC7B,GAAG;EACH,EAAE,UAAU,GAAG,CAAC,UAAU,CAAC;EAC3B,EAAE,IAAI,KAAK,CAAC,UAAU,CAAC,EAAE;EACzB;EACA,IAAI,UAAU,GAAG,GAAG,GAAG,CAAC,IAAI,MAAM,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC;EAC/C,GAAG;AACH;EACA;EACA,EAAE,IAAI,UAAU,GAAG,CAAC,EAAE,UAAU,GAAG,MAAM,CAAC,MAAM,GAAG,UAAU,CAAC;EAC9D,EAAE,IAAI,UAAU,IAAI,MAAM,CAAC,MAAM,EAAE;EACnC,IAAI,IAAI,GAAG,EAAE,OAAO,CAAC,CAAC;EACtB,SAAS,UAAU,GAAG,MAAM,CAAC,MAAM,GAAG,CAAC,CAAC;EACxC,GAAG,MAAM,IAAI,UAAU,GAAG,CAAC,EAAE;EAC7B,IAAI,IAAI,GAAG,EAAE,UAAU,GAAG,CAAC,CAAC;EAC5B,SAAS,OAAO,CAAC,CAAC;EAClB,GAAG;AACH;EACA;EACA,EAAE,IAAI,OAAO,GAAG,KAAK,QAAQ,EAAE;EAC/B,IAAI,GAAG,GAAG,MAAM,CAAC,IAAI,CAAC,GAAG,EAAE,QAAQ,CAAC,CAAC;EACrC,GAAG;AACH;EACA;EACA,EAAE,IAAI,gBAAgB,CAAC,GAAG,CAAC,EAAE;EAC7B;EACA,IAAI,IAAI,GAAG,CAAC,MAAM,KAAK,CAAC,EAAE;EAC1B,MAAM,OAAO,CAAC,CAAC;each,KAAK;EACL,IAAI,OAAO,YAAY,CAAC,MAAM,EAAE,GAAG,EAAE,UAAU,EAAE,QAAQ,EAAE,GAAG,CAAC;EAC/D,GAAG,MAAM,IAAI,OAAO,GAAG,KAAK,QAAQ,EAAE;EACtC,IAAI,GAAG,GAAG,GAAG,GAAG,IAAI,CAAC;EACrB,IAAI,IAAI,MAAM,CAAC,mBAAmB;EAClC,QAAQ,OAAO,UAAU,CAAC,SAAS,CAAC,OAAO,KAAK,UAAU,EAAE;EAC5D,MAAM,IAAI,GAAG,EAAE;each,QAAQ,OAAO,UAAU,CAAC,SAAS,CAAC,OAAO,CAAC,IAAI,CAAC,MAAM,EAAE,GAAG,EAAE,UAAU,CAAC;EACzE,OAAO,MAAM;EACb,QAAQ,OAAO,UAAU,CAAC,SAAS,CAAC,WAAW,CAAC,IAAI,CAAC,MAAM,EAAE,GAAG,EAAE,UAAU,CAAC;EAC7E,OAAO;EACP,KAAK;EACL,IAAI,OAAO,YAAY,CAAC,MAAM,EAAE,EAAE,GAAG,EAAE,EAAE,UAAU,EAAE,QAAQ,EAAE,GAAG,CAAC;EACnE,GAAG;AACH;EACA,EAAE,MAAM,IAAI,SAAS,CAAC,sCAAsC,CAAC;EAC7D,CAAC;AACD;EACA,SAAS,YAAY,EAAE,GAAG,EAAE,GAAG,EAAE,UAAU,EAAE,QAAQ,EAAE,GAAG,EAAE;EAC5D,EAAE,IAAI,SAAS,GAAG,CAAC,CAAC;EACpB,EAAE,IAAI,SAAS,GAAG,GAAG,CAAC,MAAM,CAAC;EAC7B,EAAE,IAAI,SAAS,GAAG,GAAG,CAAC,MAAM,CAAC;AAC7B;EACA,EAAE,IAAI,QAAQ,KAAK,SAAS,EAAE;EAC9B,IAAI,QAAQ,GAAG,MAAM,CAAC,QAAQ,CAAC,CAAC,WAAW,EAAE,CAAC;EAC9C,IAAI,IAAI,QAAQ,KAAK,MAAM,IAAI,QAAQ,KAAK,OAAO;EACnD,QAAQ,QAAQ,KAAK,SAAS,IAAI,QAAQ,KAAK,UAAU,EAAE;EAC3D,MAAM,IAAI,GAAG,CAAC,MAAM,GAAG,CAAC,IAAI,GAAG,CAAC,MAAM,GAAG,CAAC,EAAE;EAC5C,QAAQ,OAAO,CAAC,CAAC;EACjB,OAAO;EACP,MAAM,SAAS,GAAG,CAAC,CAAC;EACpB,MAAM,SAAS,IAAI,CAAC,CAAC;EACrB,MAAM,SAAS,IAAI,CAAC,CAAC;EACrB,MAAM,UAAU,IAAI,CAAC,CAAC;EACtB,KAAK;EACL,GAAG;AACH;EACA,EAAE,SAAS,IAAI,EAAE,GAAG,EAAE,CAAC,EAAE;EACzB,IAAI,IAAI,SAAS,KAAK,CAAC,EAAE;EACzB,MAAM,OAAO,GAAG,CAAC,CAAC,CAAC;EACnB,KAAK,MAAM;EACX,MAAM,OAAO,GAAG,CAAC,YAAY,CAAC,CAAC,GAAG,SAAS,CAAC;EAC5C,KAAK;EACL,GAAG;AACH;EACA,EAAE,IAAI,CAAC,CAAC;EACR,EAAE,IAAI,GAAG,EAAE;EACX,IAAI,IAAI,UAAU,GAAG,CAAC,CAAC,CAAC;EACxB,IAAI,KAAK,CAAC,GAAG,UAAU,EAAE,CAAC,GAAG,SAAS,EAAE,CAAC,EAAE,EAAE;EAC7C,MAAM,IAAI,IAAI,CAAC,GAAG,EAAE,CAAC,CAAC,KAAK,IAAI,CAAC,GAAG,EAAE,UAAU,KAAK,CAAC,CAAC,GAAG,CAAC,GAAG,CAAC,GAAG,UAAU,CAAC,EAAE;EAC9E,QAAQ,IAAI,UAAU,KAAK,CAAC,CAAC,EAAE,UAAU,GAAG,CAAC,CAAC;EAC9C,QAAQ,IAAI,CAAC,GAAG,UAAU,GAAG,CAAC,KAAK,SAAS,EAAE,OAAO,UAAU,GAAG,SAAS;EAC3E,OAAO,MAAM;EACb,QAAQ,IAAI,UAAU,KAAK,CAAC,CAAC,EAAE,CAAC,IAAI,CAAC,GAAG,UAAU,CAAC;EACnD,QAAQ,UAAU,GAAG,CAAC,CAAC,CAAC;EACxB,OAAO;EACP,KAAK;EACL,GAAG,MAAM;EACT,IAAI,IAAI,UAAU,GAAG,SAAS,GAAG,SAAS,EAAE,UAAU,GAAG,SAAS,GAAG,SAAS,CAAC;EAC/E,IAAI,KAAK,CAAC,GAAG,UAAU,EAAE,CAAC,IAAI,CAAC,EAAE,CAAC,EAAE,EAAE;EACtC,MAAM,IAAI,KAAK,GAAG,IAAI,CAAC;EACvB,MAAM,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,SAAS,EAAE,CAAC,EAAE,EAAE;EAC1C,QAAQ,IAAI,IAAI,CAAC,GAAG,EAAE,CAAC,GAAG,CAAC,CAAC,KAAK,IAAI,CAAC,GAAG,EAAE,CAAC,CAAC,EAAE;EAC/C,UAAU,KAAK,GAAG,KAAK,CAAC;EACxB,UAAU,KAAK;each,SAAS;EACT,OAAO;EACP,MAAM,IAAI,KAAK,EAAE,OAAO,CAAC;EACzB,KAAK;EACL,GAAG;AACH;EACA,EAAE,OAAO,CAAC,CAAC;EACX,CAAC;AACD;EACA,MAAM,CAAC,SAAS,CAAC,QAAQ,GAAG,SAAS,QAAQ,EAAE,GAAG,EAAE,UAAU,EAAE,QAAQ,EAAE;EAC1E,EAAE,OAAO,IAAI,CAAC,OAAO,CAAC,GAAG,EAAE,UAAU,EAAE,QAAQ,CAAC,KAAK,CAAC,CAAC;EACvD,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,OAAO,GAAG,SAAS,OAAO,EAAE,GAAG,EAAE,UAAU,EAAE,QAAQ,EAAE;EACxE,EAAE,OAAO,oBAAoB,CAAC,IAAI,EAAE,GAAG,EAAE,UAAU,EAAE,QAAQ,EAAE,IAAI,CAAC;EACpE,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,WAAW,GAAG,SAAS,WAAW,EAAE,GAAG,EAAE,UAAU,EAAE,QAAQ,EAAE;EAChF,EAAE,OAAO,oBAAoB,CAAC,IAAI,EAAE,GAAG,EAAE,UAAU,EAAE,QAAQ,EAAE,KAAK,CAAC;EACrE,CAAC,CAAC;AACF;EACA,SAAS,QAAQ,EAAE,GAAG,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,EAAE;EAChD,EAAE,MAAM,GAAG,MAAM,CAAC,MAAM,CAAC,IAAI,CAAC,CAAC;EAC/B,EAAE,IAAI,SAAS,GAAG,GAAG,CAAC,MAAM,GAAG,MAAM,CAAC;EACtC,EAAE,IAAI,CAAC,MAAM,EAAE;each,IAAI,MAAM,GAAG,SAAS,CAAC;EACvB,GAAG,MAAM;EACT,IAAI,MAAM,GAAG,MAAM,CAAC,MAAM,CAAC,CAAC;EAC5B,IAAI,IAAI,MAAM,GAAG,SAAS,EAAE;EAC5B,MAAM,MAAM,GAAG,SAAS,CAAC;EACzB,KAAK;EACL,GAAG;AACH;EACA;EACA,EAAE,IAAI,MAAM,GAAG,MAAM,CAAC,MAAM,CAAC;EAC7B,EAAE,IAAI,MAAM,GAAG,CAAC,KAAK,CAAC,EAAE,MAAM,IAAI,SAAS,CAAC,oBAAoB,CAAC;AACjE;EACA,EAAE,IAAI,MAAM,GAAG,MAAM,GAAG,CAAC,EAAE;EAC3B,IAAI,MAAM,GAAG,MAAM,GAAG,CAAC,CAAC;EACxB,GAAG;EACH,EAAE,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,EAAE,CAAC,EAAE;EACnC,IAAI,IAAI,MAAM,GAAG,QAAQ,CAAC,MAAM,CAAC,MAAM,CAAC,CAAC,GAAG,CAAC,EAAE,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC;EACvD,IAAI,IAAI,KAAK,CAAC,MAAM,CAAC,EAAE,OAAO,CAAC;EAC/B,IAAI,GAAG,CAAC,MAAM,GAAG,CAAC,CAAC,GAAG,MAAM,CAAC;EAC7B,GAAG;EACH,EAAE,OAAO,CAAC;EACV,CAAC;AACD;EACA,SAAS,SAAS,EAAE,GAAG,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,EAAE;EACjD,EAAE,OAAO,UAAU,CAAC,WAAW,CAAC,MAAM,EAAE,GAAG,CAAC,MAAM,GAAG,MAAM,CAAC,EAAE,GAAG,EAAE,MAAM,EAAE,MAAM,CAAC;EAClF,CAAC;AACD;EACA,SAAS,UAAU,EAAE,GAAG,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,EAAE;EAClD,EAAE,OAAO,UAAU,CAAC,YAAY,CAAC,MAAM,CAAC,EAAE,GAAG,EAAE,MAAM,EAAE,MAAM,CAAC;EAC9D,CAAC;AACD;EACA,SAAS,WAAW,EAAE,GAAG,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,EAAE;EACnD,EAAE,OAAO,UAAU,CAAC,GAAG,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,CAAC;EAChD,CAAC;AACD;EACA,SAAS,WAAW,EAAE,GAAG,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,EAAE;EACnD,EAAE,OAAO,UAAU,CAAC,aAAa,CAAC,MAAM,CAAC,EAAE,GAAG,EAAE,MAAM,EAAE,MAAM,CAAC;EAC/D,CAAC;AACD;EACA,SAAS,SAAS,EAAE,GAAG,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,EAAE;EACjD,EAAE,OAAO,UAAU,CAAC,cAAc,CAAC,MAAM,EAAE,GAAG,CAAC,MAAM,GAAG,MAAM,CAAC,EAAE,GAAG,EAAE,MAAM,EAAE,MAAM,CAAC;EACrF,CAAC;AACD;EACA,MAAM,CAAC,SAAS,CAAC,KAAK,GAAG,SAAS,KAAK,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,EAAE,QAAQ,EAAE;EAC3E;EACA,EAAE,IAAI,MAAM,KAAK,SAAS,EAAE;EAC5B,IAAI,QAAQ,GAAG,MAAM,CAAC;EACtB,IAAI,MAAM,GAAG,IAAI,CAAC,MAAM,CAAC;EACzB,IAAI,MAAM,GAAG,CAAC,CAAC;each;EACA,GAAG,MAAM,IAAI,MAAM,KAAK,SAAS,IAAI,OAAO,MAAM,KAAK,QAAQ,EAAE;EACjE,IAAI,QAAQ,GAAG,MAAM,CAAC;EACtB,IAAI,MAAM,GAAG,IAAI,CAAC,MAAM,CAAC;EACzB,IAAI,MAAM,GAAG,CAAC,CAAC;each;EACA,GAAG,MAAM,IAAI,QAAQ,CAAC,MAAM,CAAC,EAAE;EAC/B,IAAI,MAAM,GAAG,MAAM,GAAG,CAAC,CAAC;EACxB,IAAI,IAAI,QAAQ,CAAC,MAAM,CAAC,EAAE;EAC1B,MAAM,MAAM,GAAG,MAAM,GAAG,CAAC,CAAC;EAC1B,MAAM,IAAI,QAAQ,KAAK,SAAS,EAAE,QAAQ,GAAG,MAAM,CAAC;EACpD,KAAK,MAAM;EACX,MAAM,QAAQ,GAAG,MAAM,CAAC;EACxB,MAAM,MAAM,GAAG,SAAS,CAAC;EACzB,KAAK;EACL;EACA,GAAG,MAAM;EACT,IAAI,MAAM,IAAI,KAAK;EACnB,MAAM,yEAAyE;EAC/E,KAAK;EACL,GAAG;AACH;EACA,EAAE,IAAI,SAAS,GAAG,IAAI,CAAC,MAAM,GAAG,MAAM,CAAC;EACvC,EAAE,IAAI,MAAM,KAAK,SAAS,IAAI,MAAM,GAAG,SAAS,EAAE,MAAM,GAAG,SAAS,CAAC;AACrE;EACA,EAAE,IAAI,CAAC,MAAM,CAAC,MAAM,GAAG,CAAC,KAAK,MAAM,GAAG,CAAC,IAAI,MAAM,GAAG,CAAC,CAAC,KAAK,MAAM,GAAG,IAAI,CAAC,MAAM,EAAE;EACjF,IAAI,MAAM,IAAI,UAAU,CAAC,wCAAwC,CAAC;EAClE,GAAG;AACH;EACA,EAAE,IAAI,CAAC,QAAQ,EAAE,QAAQ,GAAG,MAAM,CAAC;AACnC;EACA,EAAE,IAAI,WAAW,GAAG,KAAK,CAAC;EAC1B,EAAE,SAAS;EACX,IAAI,QAAQ,QAAQ;EACpB,MAAM,KAAK,KAAK;EAChB,QAAQ,OAAO,QAAQ,CAAC,IAAI,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,CAAC;AACrD;EACA,MAAM,KAAK,MAAM,CAAC;EAClB,MAAM,KAAK,OAAO;EAClB,QAAQ,OAAO,SAAS,CAAC,IAAI,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,CAAC;AACtD;EACA,MAAM,KAAK,OAAO;EAClB,QAAQ,OAAO,UAAU,CAAC,IAAI,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,CAAC;AACvD;EACA,MAAM,KAAK,QAAQ,CAAC;EACpB,MAAM,KAAK,QAAQ;EACnB,QAAQ,OAAO,WAAW,CAAC,IAAI,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,CAAC;AACxD;EACA,MAAM,KAAK,QAAQ;EACnB;EACA,QAAQ,OAAO,WAAW,CAAC,IAAI,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,CAAC;AACxD;EACA,MAAM,KAAK,MAAM,CAAC;EAClB,MAAM,KAAK,OAAO,CAAC;EACnB,MAAM,KAAK,SAAS,CAAC;EACrB,MAAM,KAAK,UAAU;EACrB,QAAQ,OAAO,SAAS,CAAC,IAAI,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,CAAC;AACtD;EACA,MAAM;EACN,QAAQ,IAAI,WAAW,EAAE,MAAM,IAAI,SAAS,CAAC,oBAAoB,GAAG,QAAQ,CAAC;EAC7E,QAAQ,QAAQ,GAAG,CAAC,EAAE,GAAG,QAAQ,EAAE,WAAW,EAAE,CAAC;EACjD,QAAQ,WAAW,GAAG,IAAI,CAAC;EAC3B,KAAK;EACL,GAAG;EACH,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,MAAM,GAAG,SAAS,MAAM,IAAI;EAC7C,EAAE,OAAO;EACT,IAAI,IAAI,EAAE,QAAQ;EAClB,IAAI,IAAI,EAAE,KAAK,CAAC,SAAS,CAAC,KAAK,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,IAAI,IAAI,EAAE,CAAC,CAAC;EAC1D,GAAG;EACH,CAAC,CAAC;AACF;EACA,SAAS,WAAW,EAAE,GAAG,EAAE,KAAK,EAAE,GAAG,EAAE;EACvC,EAAE,IAAI,KAAK,KAAK,CAAC,IAAI,GAAG,KAAK,GAAG,CAAC,MAAM,EAAE;EACzC,IAAI,OAAO,aAAa,CAAC,GAAG,CAAC;EAC7B,GAAG,MAAM;EACT,IAAI,OAAO,aAAa,CAAC,GAAG,CAAC,KAAK,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;EAC/C,GAAG;EACH,CAAC;AACD;EACA,SAAS,SAAS,EAAE,GAAG,EAAE,KAAK,EAAE,GAAG,EAAE;EACrC,EAAE,GAAG,GAAG,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC,MAAM,EAAE,GAAG,CAAC,CAAC;EAClC,EAAE,IAAI,GAAG,GAAG,EAAE,CAAC;AACf;EACA,EAAE,IAAI,CAAC,GAAG,KAAK,CAAC;EAChB,EAAE,OAAO,CAAC,GAAG,GAAG,EAAE;EAClB,IAAI,IAAI,SAAS,GAAG,GAAG,CAAC,CAAC,CAAC,CAAC;EAC3B,IAAI,IAAI,SAAS,GAAG,IAAI,CAAC;EACzB,IAAI,IAAI,gBAAgB,GAAG,CAAC,SAAS,GAAG,IAAI,IAAI,CAAC;EACjD,QAAQ,CAAC,SAAS,GAAG,IAAI,IAAI,CAAC;EAC9B,QAAQ,CAAC,SAAS,GAAG,IAAI,IAAI,CAAC;EAC9B,QAAQ,CAAC,CAAC;AACV;EACA,IAAI,IAAI,CAAC,GAAG,gBAAgB,IAAI,GAAG,EAAE;EACrC,MAAM,IAAI,UAAU,EAAE,SAAS,EAAE,UAAU,EAAE,aAAa,CAAC;AAC3D;EACA,MAAM,QAAQ,gBAAgB;EAC9B,QAAQ,KAAK,CAAC;EACd,UAAU,IAAI,SAAS,GAAG,IAAI,EAAE;EAChC,YAAY,SAAS,GAAG,SAAS,CAAC;EAClC,WAAW;EACX,UAAU,KAAK;each,QAAQ,KAAK,CAAC;EACd,UAAU,UAAU,GAAG,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;EAClC,UAAU,IAAI,CAAC,UAAU,GAAG,IAAI,MAAM,IAAI,EAAE;EAC5C,YAAY,aAAa,GAAG,CAAC,SAAS,GAAG,IAAI,KAAK,GAAG,IAAI,UAAU,GAAG,IAAI,CAAC,CAAC;EAC5E,YAAY,IAAI,aAAa,GAAG,IAAI,EAAE;EACtC,cAAc,SAAS,GAAG,aAAa,CAAC;EACxC,aAAa;EACb,WAAW;EACX,UAAU,KAAK;each,QAAQ,KAAK,CAAC;EACd,UAAU,UAAU,GAAG,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;EAClC,UAAU,SAAS,GAAG,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;EACjC,UAAU,IAAI,CAAC,UAAU,GAAG,IAAI,MAAM,IAAI,IAAI,CAAC,SAAS,GAAG,IAAI,MAAM,IAAI,EAAE;EAC3E,YAAY,aAAa,GAAG,CAAC,SAAS,GAAG,GAAG,KAAK,GAAG,GAAG,CAAC,UAAU,GAAG,IAAI,KAAK,GAAG,IAAI,SAAS,GAAG,IAAI,CAAC,CAAC;EACvG,YAAY,IAAI,aAAa,GAAG,KAAK,KAAK,aAAa,GAAG,MAAM,IAAI,aAAa,GAAG,MAAM,CAAC,EAAE;EAC7F,cAAc,SAAS,GAAG,aAAa,CAAC;EACxC,aAAa;EACb,WAAW;EACX,UAAU,KAAK;each,QAAQ,KAAK,CAAC;EACd,UAAU,UAAU,GAAG,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;EAClC,UAAU,SAAS,GAAG,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;EACjC,UAAU,UAAU,GAAG,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;EAClC,UAAU,IAAI,CAAC,UAAU,GAAG,IAAI,MAAM,IAAI,IAAI,CAAC,SAAS,GAAG,IAAI,MAAM,IAAI,IAAI,CAAC,UAAU,GAAG,IAAI,MAAM,IAAI,EAAE;EAC3G,YAAY,aAAa,GAAG,CAAC,SAAS,GAAG,GAAG,KAAK,IAAI,GAAG,CAAC,UAAU,GAAG,IAAI,KAAK,GAAG,GAAG,CAAC,SAAS,GAAG,IAAI,KAAK,GAAG,IAAI,UAAU,GAAG,IAAI,CAAC,CAAC;EACrI,YAAY,IAAI,aAAa,GAAG,MAAM,IAAI,aAAa,GAAG,QAAQ,EAAE;EACpE,cAAc,SAAS,GAAG,aAAa,CAAC;EACxC,aAAa;EACb,WAAW;EACX,OAAO;EACP,KAAK;AACL;EACA,IAAI,IAAI,SAAS,KAAK,IAAI,EAAE;EAC5B;EACA;EACA,MAAM,SAAS,GAAG,MAAM,CAAC;EACzB,MAAM,gBAAgB,GAAG,CAAC,CAAC;EAC3B,KAAK,MAAM,IAAI,SAAS,GAAG,MAAM,EAAE;EACnC;EACA,MAAM,SAAS,IAAI,OAAO,CAAC;EAC3B,MAAM,GAAG,CAAC,IAAI,CAAC,SAAS,KAAK,EAAE,GAAG,KAAK,GAAG,MAAM,CAAC,CAAC;EAClD,MAAM,SAAS,GAAG,MAAM,GAAG,SAAS,GAAG,KAAK,CAAC;EAC7C,KAAK;AACL;EACA,IAAI,GAAG,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC;EACxB,IAAI,CAAC,IAAI,gBAAgB,CAAC;EAC1B,GAAG;AACH;EACA,EAAE,OAAO,qBAAqB,CAAC,GAAG,CAAC;EACnC,CAAC;AACD;EACA;EACA;EACA;EACA,IAAI,oBAAoB,GAAG,MAAM,CAAC;AAClC;EACA,SAAS,qBAAqB,EAAE,UAAU,EAAE;EAC5C,EAAE,IAAI,GAAG,GAAG,UAAU,CAAC,MAAM,CAAC;EAC9B,EAAE,IAAI,GAAG,IAAI,oBAAoB,EAAE;EACnC,IAAI,OAAO,MAAM,CAAC,YAAY,CAAC,KAAK,CAAC,MAAM,EAAE,UAAU,CAAC;EACxD,GAAG;AACH;EACA;EACA,EAAE,IAAI,GAAG,GAAG,EAAE,CAAC;each,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC;EACZ,EAAE,OAAO,CAAC,GAAG,GAAG,EAAE;EAClB,IAAI,GAAG,IAAI,MAAM,CAAC,YAAY,CAAC,KAAK;EACpC,MAAM,MAAM;EACZ,MAAM,UAAU,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,IAAI,oBAAoB,CAAC;EACpD,KAAK,CAAC;EACN,GAAG;EACH,EAAE,OAAO,GAAG;EACZ,CAAC;AACD;EACA,SAAS,UAAU,EAAE,GAAG,EAAE,KAAK,EAAE,GAAG,EAAE;EACtC,EAAE,IAAI,GAAG,GAAG,EAAE,CAAC;each,EAAE,GAAG,GAAG,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC,MAAM,EAAE,GAAG,CAAC,CAAC;AAClC;EACA,EAAE,KAAK,IAAI,CAAC,GAAG,KAAK,EAAE,CAAC,GAAG,GAAG,EAAE,EAAE,CAAC,EAAE;EACpC,IAAI,GAAG,IAAI,MAAM,CAAC,YAAY,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC,CAAC;EAC9C,GAAG;EACH,EAAE,OAAO,GAAG;EACZ,CAAC;AACD;EACA,SAAS,WAAW,EAAE,GAAG,EAAE,KAAK,EAAE,GAAG,EAAE;EACvC,EAAE,IAAI,GAAG,GAAG,EAAE,CAAC;each,EAAE,GAAG,GAAG,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC,MAAM,EAAE,GAAG,CAAC,CAAC;AAClC;EACA,EAAE,KAAK,IAAI,CAAC,GAAG,KAAK,EAAE,CAAC,GAAG,GAAG,EAAE,EAAE,CAAC,EAAE;EACpC,IAAI,GAAG,IAAI,MAAM,CAAC,YAAY,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;EACvC,GAAG;EACH,EAAE,OAAO,GAAG;EACZ,CAAC;AACD;EACA,SAAS,QAAQ,EAAE,GAAG,EAAE,KAAK,EAAE,GAAG,EAAE;EACpC,EAAE,IAAI,GAAG,GAAG,GAAG,CAAC,MAAM,CAAC;AACvB;EACA,EAAE,IAAI,CAAC,KAAK,IAAI,KAAK,GAAG,CAAC,EAAE,KAAK,GAAG,CAAC,CAAC;EACrC,EAAE,IAAI,CAAC,GAAG,IAAI,GAAG,GAAG,CAAC,IAAI,GAAG,GAAG,GAAG,EAAE,GAAG,GAAG,GAAG,CAAC;AAC9C;EACA,EAAE,IAAI,GAAG,GAAG,EAAE,CAAC;each,EAAE,KAAK,IAAI,CAAC,GAAG,KAAK,EAAE,CAAC,GAAG,GAAG,EAAE,EAAE,CAAC,EAAE;EACpC,IAAI,GAAG,IAAI,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;EACzB,GAAG;EACH,EAAE,OAAO,GAAG;EACZ,CAAC;AACD;EACA,SAAS,YAAY,EAAE,GAAG,EAAE,KAAK,EAAE,GAAG,EAAE;EACxC,EAAE,IAAI,KAAK,GAAG,GAAG,CAAC,KAAK,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;EACpC,EAAE,IAAI,GAAG,GAAG,EAAE,CAAC;each,EAAE,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,KAAK,CAAC,MAAM,EAAE,CAAC,IAAI,CAAC,EAAE;EAC5C,IAAI,GAAG,IAAI,MAAM,CAAC,YAAY,CAAC,KAAK,CAAC,CAAC,CAAC,GAAG,KAAK,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,GAAG,CAAC,CAAC;EAC9D,GAAG;EACH,EAAE,OAAO,GAAG;EACZ,CAAC;AACD;EACA,MAAM,CAAC,SAAS,CAAC,KAAK,GAAG,SAAS,KAAK,EAAE,KAAK,EAAE,GAAG,EAAE;EACrD,EAAE,IAAI,GAAG,GAAG,IAAI,CAAC,MAAM,CAAC;EACxB,EAAE,KAAK,GAAG,CAAC,CAAC,KAAK,CAAC;EAClB,EAAE,GAAG,GAAG,GAAG,KAAK,SAAS,GAAG,GAAG,GAAG,CAAC,CAAC,GAAG,CAAC;AACxC;EACA,EAAE,IAAI,KAAK,GAAG,CAAC,EAAE;EACjB,IAAI,KAAK,IAAI,GAAG,CAAC;EACjB,IAAI,IAAI,KAAK,GAAG,CAAC,EAAE,KAAK,GAAG,CAAC,CAAC;EAC7B,GAAG,MAAM,IAAI,KAAK,GAAG,GAAG,EAAE;EAC1B,IAAI,KAAK,GAAG,GAAG,CAAC;EAChB,GAAG;AACH;EACA,EAAE,IAAI,GAAG,GAAG,CAAC,EAAE;each,IAAI,GAAG,IAAI,GAAG,CAAC;each,IAAI,IAAI,GAAG,GAAG,CAAC,EAAE,GAAG,GAAG,CAAC,CAAC;EACzB,GAAG,MAAM,IAAI,GAAG,GAAG,GAAG,EAAE;EACxB,IAAI,GAAG,GAAG,GAAG,CAAC;EACd,GAAG;AACH;EACA,EAAE,IAAI,GAAG,GAAG,KAAK,EAAE,GAAG,GAAG,KAAK,CAAC;AAC/B;EACA,EAAE,IAAI,MAAM,CAAC;EACb,EAAE,IAAI,MAAM,CAAC,mBAAmB,EAAE;EAClC,IAAI,MAAM,GAAG,IAAI,CAAC,QAAQ,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;EACvC,IAAI,MAAM,CAAC,SAAS,GAAG,MAAM,CAAC,SAAS,CAAC;EACxC,GAAG,MAAM;EACT,IAAI,IAAI,QAAQ,GAAG,GAAG,GAAG,KAAK,CAAC;EAC/B,IAAI,MAAM,GAAG,IAAI,MAAM,CAAC,QAAQ,EAAE,SAAS,CAAC,CAAC;EAC7C,IAAI,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,QAAQ,EAAE,EAAE,CAAC,EAAE;EACvC,MAAM,MAAM,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC,CAAC,GAAG,KAAK,CAAC,CAAC;EAClC,KAAK;EACL,GAAG;AACH;EACA,EAAE,OAAO,MAAM;each,CAAC,CAAC;AACF;EACA;EACA;EACA;EACA,SAAS,WAAW,EAAE,MAAM,EAAE,GAAG,EAAE,MAAM,EAAE;EAC3C,EAAE,IAAI,CAAC,MAAM,GAAG,CAAC,MAAM,CAAC,IAAI,MAAM,GAAG,CAAC,EAAE,MAAM,IAAI,UAAU,CAAC,oBAAoB,CAAC;EAClF,EAAE,IAAI,MAAM,GAAG,GAAG,GAAG,MAAM,EAAE,MAAM,IAAI,UAAU,CAAC,uCAAuC,CAAC;EAC1F,CAAC;AACD;EACA,MAAM,CAAC,SAAS,CAAC,UAAU,GAAG,SAAS,UAAU,EAAE,MAAM,EAAE,UAAU,EAAE,QAAQ,EAAE;EACjF,EAAE,MAAM,GAAG,MAAM,GAAG,CAAC,CAAC;EACtB,EAAE,UAAU,GAAG,UAAU,GAAG,CAAC,CAAC;EAC9B,EAAE,IAAI,CAAC,QAAQ,EAAE,WAAW,CAAC,MAAM,EAAE,UAAU,EAAE,IAAI,CAAC,MAAM,CAAC,CAAC;AAC9D;EACA,EAAE,IAAI,GAAG,GAAG,IAAI,CAAC,MAAM,CAAC,CAAC;EACzB,EAAE,IAAI,GAAG,GAAG,CAAC,CAAC;EACd,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC;EACZ,EAAE,OAAO,EAAE,CAAC,GAAG,UAAU,KAAK,GAAG,IAAI,KAAK,CAAC,EAAE;EAC7C,IAAI,GAAG,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,GAAG,GAAG,CAAC;EAClC,GAAG;AACH;EACA,EAAE,OAAO,GAAG;EACZ,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,UAAU,GAAG,SAAS,UAAU,EAAE,MAAM,EAAE,UAAU,EAAE,QAAQ,EAAE;EACjF,EAAE,MAAM,GAAG,MAAM,GAAG,CAAC,CAAC;EACtB,EAAE,UAAU,GAAG,UAAU,GAAG,CAAC,CAAC;EAC9B,EAAE,IAAI,CAAC,QAAQ,EAAE;EACjB,IAAI,WAAW,CAAC,MAAM,EAAE,UAAU,EAAE,IAAI,CAAC,MAAM,CAAC,CAAC;EACjD,GAAG;AACH;EACA,EAAE,IAAI,GAAG,GAAG,IAAI,CAAC,MAAM,GAAG,EAAE,UAAU,CAAC,CAAC;EACxC,EAAE,IAAI,GAAG,GAAG,CAAC,CAAC;EACd,EAAE,OAAO,UAAU,GAAG,CAAC,KAAK,GAAG,IAAI,KAAK,CAAC,EAAE;EAC3C,IAAI,GAAG,IAAI,IAAI,CAAC,MAAM,GAAG,EAAE,UAAU,CAAC,GAAG,GAAG,CAAC;EAC7C,GAAG;AACH;EACA,EAAE,OAAO,GAAG;EACZ,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,SAAS,GAAG,SAAS,SAAS,EAAE,MAAM,EAAE,QAAQ,EAAE;EACnE,EAAE,IAAI,CAAC,QAAQ,EAAE,WAAW,CAAC,MAAM,EAAE,CAAC,EAAE,IAAI,CAAC,MAAM,CAAC,CAAC;EACrD,EAAE,OAAO,IAAI,CAAC,MAAM,CAAC;EACrB,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,YAAY,GAAG,SAAS,YAAY,EAAE,MAAM,EAAE,QAAQ,EAAE;EACzE,EAAE,IAAI,CAAC,QAAQ,EAAE,WAAW,CAAC,MAAM,EAAE,CAAC,EAAE,IAAI,CAAC,MAAM,CAAC,CAAC;EACrD,EAAE,OAAO,IAAI,CAAC,MAAM,CAAC,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC;EAC/C,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,YAAY,GAAG,SAAS,YAAY,EAAE,MAAM,EAAE,QAAQ,EAAE;EACzE,EAAE,IAAI,CAAC,QAAQ,EAAE,WAAW,CAAC,MAAM,EAAE,CAAC,EAAE,IAAI,CAAC,MAAM,CAAC,CAAC;EACrD,EAAE,OAAO,CAAC,IAAI,CAAC,MAAM,CAAC,IAAI,CAAC,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC;EAC/C,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,YAAY,GAAG,SAAS,YAAY,EAAE,MAAM,EAAE,QAAQ,EAAE;EACzE,EAAE,IAAI,CAAC,QAAQ,EAAE,WAAW,CAAC,MAAM,EAAE,CAAC,EAAE,IAAI,CAAC,MAAM,CAAC,CAAC;AACrD;EACA,EAAE,OAAO,CAAC,CAAC,IAAI,CAAC,MAAM,CAAC;EACvB,OAAO,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC;EAC7B,OAAO,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,EAAE,CAAC;EAC9B,OAAO,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,GAAG,SAAS,CAAC;EACpC,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,YAAY,GAAG,SAAS,YAAY,EAAE,MAAM,EAAE,QAAQ,EAAE;EACzE,EAAE,IAAI,CAAC,QAAQ,EAAE,WAAW,CAAC,MAAM,EAAE,CAAC,EAAE,IAAI,CAAC,MAAM,CAAC,CAAC;AACrD;EACA,EAAE,OAAO,CAAC,IAAI,CAAC,MAAM,CAAC,GAAG,SAAS;EAClC,KAAK,CAAC,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,EAAE;EAC5B,KAAK,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC;EAC3B,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC;EACrB,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,SAAS,GAAG,SAAS,SAAS,EAAE,MAAM,EAAE,UAAU,EAAE,QAAQ,EAAE;EAC/E,EAAE,MAAM,GAAG,MAAM,GAAG,CAAC,CAAC;EACtB,EAAE,UAAU,GAAG,UAAU,GAAG,CAAC,CAAC;EAC9B,EAAE,IAAI,CAAC,QAAQ,EAAE,WAAW,CAAC,MAAM,EAAE,UAAU,EAAE,IAAI,CAAC,MAAM,CAAC,CAAC;AAC9D;EACA,EAAE,IAAI,GAAG,GAAG,IAAI,CAAC,MAAM,CAAC,CAAC;EACzB,EAAE,IAAI,GAAG,GAAG,CAAC,CAAC;EACd,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC;EACZ,EAAE,OAAO,EAAE,CAAC,GAAG,UAAU,KAAK,GAAG,IAAI,KAAK,CAAC,EAAE;EAC7C,IAAI,GAAG,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,GAAG,GAAG,CAAC;EAClC,GAAG;EACH,EAAE,GAAG,IAAI,IAAI,CAAC;AACd;EACA,EAAE,IAAI,GAAG,IAAI,GAAG,EAAE,GAAG,IAAI,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,GAAG,UAAU,CAAC,CAAC;AACrD;EACA,EAAE,OAAO,GAAG;EACZ,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,SAAS,GAAG,SAAS,SAAS,EAAE,MAAM,EAAE,UAAU,EAAE,QAAQ,EAAE;EAC/E,EAAE,MAAM,GAAG,MAAM,GAAG,CAAC,CAAC;EACtB,EAAE,UAAU,GAAG,UAAU,GAAG,CAAC,CAAC;EAC9B,EAAE,IAAI,CAAC,QAAQ,EAAE,WAAW,CAAC,MAAM,EAAE,UAAU,EAAE,IAAI,CAAC,MAAM,CAAC,CAAC;AAC9D;EACA,EAAE,IAAI,CAAC,GAAG,UAAU,CAAC;EACrB,EAAE,IAAI,GAAG,GAAG,CAAC,CAAC;EACd,EAAE,IAAI,GAAG,GAAG,IAAI,CAAC,MAAM,GAAG,EAAE,CAAC,CAAC,CAAC;EAC/B,EAAE,OAAO,CAAC,GAAG,CAAC,KAAK,GAAG,IAAI,KAAK,CAAC,EAAE;EAClC,IAAI,GAAG,IAAI,IAAI,CAAC,MAAM,GAAG,EAAE,CAAC,CAAC,GAAG,GAAG,CAAC;EACpC,GAAG;EACH,EAAE,GAAG,IAAI,IAAI,CAAC;AACd;EACA,EAAE,IAAI,GAAG,IAAI,GAAG,EAAE,GAAG,IAAI,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,GAAG,UAAU,CAAC,CAAC;AACrD;EACA,EAAE,OAAO,GAAG;EACZ,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,QAAQ,GAAG,SAAS,QAAQ,EAAE,MAAM,EAAE,QAAQ,EAAE;EACjE,EAAE,IAAI,CAAC,QAAQ,EAAE,WAAW,CAAC,MAAM,EAAE,CAAC,EAAE,IAAI,CAAC,MAAM,CAAC,CAAC;EACrD,EAAE,IAAI,EAAE,IAAI,CAAC,MAAM,CAAC,GAAG,IAAI,CAAC,EAAE,QAAQ,IAAI,CAAC,MAAM,CAAC,CAAC;EACnD,EAAE,QAAQ,CAAC,IAAI,GAAG,IAAI,CAAC,MAAM,CAAC,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC;EACzC,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,WAAW,GAAG,SAAS,WAAW,EAAE,MAAM,EAAE,QAAQ,EAAE;EACvE,EAAE,IAAI,CAAC,QAAQ,EAAE,WAAW,CAAC,MAAM,EAAE,CAAC,EAAE,IAAI,CAAC,MAAM,CAAC,CAAC;EACrD,EAAE,IAAI,GAAG,GAAG,IAAI,CAAC,MAAM,CAAC,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC;EACnD,EAAE,OAAO,CAAC,GAAG,GAAG,MAAM,IAAI,GAAG,GAAG,UAAU,GAAG,GAAG;EAChD,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,WAAW,GAAG,SAAS,WAAW,EAAE,MAAM,EAAE,QAAQ,EAAE;EACvE,EAAE,IAAI,CAAC,QAAQ,EAAE,WAAW,CAAC,MAAM,EAAE,CAAC,EAAE,IAAI,CAAC,MAAM,CAAC,CAAC;EACrD,EAAE,IAAI,GAAG,GAAG,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,IAAI,CAAC,MAAM,CAAC,IAAI,CAAC,CAAC,CAAC;EACnD,EAAE,OAAO,CAAC,GAAG,GAAG,MAAM,IAAI,GAAG,GAAG,UAAU,GAAG,GAAG;EAChD,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,WAAW,GAAG,SAAS,WAAW,EAAE,MAAM,EAAE,QAAQ,EAAE;EACvE,EAAE,IAAI,CAAC,QAAQ,EAAE,WAAW,CAAC,MAAM,EAAE,CAAC,EAAE,IAAI,CAAC,MAAM,CAAC,CAAC;AACrD;EACA,EAAE,OAAO,CAAC,IAAI,CAAC,MAAM,CAAC;EACtB,KAAK,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC;EAC3B,KAAK,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,EAAE,CAAC;EAC5B,KAAK,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,EAAE,CAAC;EAC5B,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,WAAW,GAAG,SAAS,WAAW,EAAE,MAAM,EAAE,QAAQ,EAAE;EACvE,EAAE,IAAI,CAAC,QAAQ,EAAE,WAAW,CAAC,MAAM,EAAE,CAAC,EAAE,IAAI,CAAC,MAAM,CAAC,CAAC;AACrD;EACA,EAAE,OAAO,CAAC,IAAI,CAAC,MAAM,CAAC,IAAI,EAAE;EAC5B,KAAK,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,EAAE,CAAC;EAC5B,KAAK,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC;EAC3B,KAAK,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC;EACtB,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,WAAW,GAAG,SAAS,WAAW,EAAE,MAAM,EAAE,QAAQ,EAAE;EACvE,EAAE,IAAI,CAAC,QAAQ,EAAE,WAAW,CAAC,MAAM,EAAE,CAAC,EAAE,IAAI,CAAC,MAAM,CAAC,CAAC;EACrD,EAAE,OAAOF,MAAI,CAAC,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC,CAAC;EACxC,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,WAAW,GAAG,SAAS,WAAW,EAAE,MAAM,EAAE,QAAQ,EAAE;EACvE,EAAE,IAAI,CAAC,QAAQ,EAAE,WAAW,CAAC,MAAM,EAAE,CAAC,EAAE,IAAI,CAAC,MAAM,CAAC,CAAC;EACrD,EAAE,OAAOA,MAAI,CAAC,IAAI,EAAE,MAAM,EAAE,KAAK,EAAE,EAAE,EAAE,CAAC,CAAC;EACzC,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,YAAY,GAAG,SAAS,YAAY,EAAE,MAAM,EAAE,QAAQ,EAAE;EACzE,EAAE,IAAI,CAAC,QAAQ,EAAE,WAAW,CAAC,MAAM,EAAE,CAAC,EAAE,IAAI,CAAC,MAAM,CAAC,CAAC;EACrD,EAAE,OAAOA,MAAI,CAAC,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC,CAAC;EACxC,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,YAAY,GAAG,SAAS,YAAY,EAAE,MAAM,EAAE,QAAQ,EAAE;EACzE,EAAE,IAAI,CAAC,QAAQ,EAAE,WAAW,CAAC,MAAM,EAAE,CAAC,EAAE,IAAI,CAAC,MAAM,CAAC,CAAC;EACrD,EAAE,OAAOA,MAAI,CAAC,IAAI,EAAE,MAAM,EAAE,KAAK,EAAE,EAAE,EAAE,CAAC,CAAC;EACzC,CAAC,CAAC;AACF;EACA,SAAS,QAAQ,EAAE,GAAG,EAAE,KAAK,EAAE,MAAM,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE;EACtD,EAAE,IAAI,CAAC,gBAAgB,CAAC,GAAG,CAAC,EAAE,MAAM,IAAI,SAAS,CAAC,6CAA6C,CAAC;EAChG,EAAE,IAAI,KAAK,GAAG,GAAG,IAAI,KAAK,GAAG,GAAG,EAAE,MAAM,IAAI,UAAU,CAAC,mCAAmC,CAAC;EAC3F,EAAE,IAAI,MAAM,GAAG,GAAG,GAAG,GAAG,CAAC,MAAM,EAAE,MAAM,IAAI,UAAU,CAAC,oBAAoB,CAAC;EAC3E,CAAC;AACD;EACA,MAAM,CAAC,SAAS,CAAC,WAAW,GAAG,SAAS,WAAW,EAAE,KAAK,EAAE,MAAM,EAAE,UAAU,EAAE,QAAQ,EAAE;EAC1F,EAAE,KAAK,GAAG,CAAC,KAAK,CAAC;EACjB,EAAE,MAAM,GAAG,MAAM,GAAG,CAAC,CAAC;EACtB,EAAE,UAAU,GAAG,UAAU,GAAG,CAAC,CAAC;EAC9B,EAAE,IAAI,CAAC,QAAQ,EAAE;EACjB,IAAI,IAAI,QAAQ,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,GAAG,UAAU,CAAC,GAAG,CAAC,CAAC;EACnD,IAAI,QAAQ,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,UAAU,EAAE,QAAQ,EAAE,CAAC,CAAC,CAAC;EAC3D,GAAG;AACH;EACA,EAAE,IAAI,GAAG,GAAG,CAAC,CAAC;EACd,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC;EACZ,EAAE,IAAI,CAAC,MAAM,CAAC,GAAG,KAAK,GAAG,IAAI,CAAC;EAC9B,EAAE,OAAO,EAAE,CAAC,GAAG,UAAU,KAAK,GAAG,IAAI,KAAK,CAAC,EAAE;EAC7C,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,GAAG,CAAC,KAAK,GAAG,GAAG,IAAI,IAAI,CAAC;EAC5C,GAAG;AACH;EACA,EAAE,OAAO,MAAM,GAAG,UAAU;EAC5B,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,WAAW,GAAG,SAAS,WAAW,EAAE,KAAK,EAAE,MAAM,EAAE,UAAU,EAAE,QAAQ,EAAE;EAC1F,EAAE,KAAK,GAAG,CAAC,KAAK,CAAC;EACjB,EAAE,MAAM,GAAG,MAAM,GAAG,CAAC,CAAC;EACtB,EAAE,UAAU,GAAG,UAAU,GAAG,CAAC,CAAC;EAC9B,EAAE,IAAI,CAAC,QAAQ,EAAE;EACjB,IAAI,IAAI,QAAQ,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,GAAG,UAAU,CAAC,GAAG,CAAC,CAAC;EACnD,IAAI,QAAQ,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,UAAU,EAAE,QAAQ,EAAE,CAAC,CAAC,CAAC;EAC3D,GAAG;AACH;EACA,EAAE,IAAI,CAAC,GAAG,UAAU,GAAG,CAAC,CAAC;EACzB,EAAE,IAAI,GAAG,GAAG,CAAC,CAAC;EACd,EAAE,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,GAAG,KAAK,GAAG,IAAI,CAAC;EAClC,EAAE,OAAO,EAAE,CAAC,IAAI,CAAC,KAAK,GAAG,IAAI,KAAK,CAAC,EAAE;EACrC,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,GAAG,CAAC,KAAK,GAAG,GAAG,IAAI,IAAI,CAAC;EAC5C,GAAG;AACH;EACA,EAAE,OAAO,MAAM,GAAG,UAAU;EAC5B,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,UAAU,GAAG,SAAS,UAAU,EAAE,KAAK,EAAE,MAAM,EAAE,QAAQ,EAAE;EAC5E,EAAE,KAAK,GAAG,CAAC,KAAK,CAAC;EACjB,EAAE,MAAM,GAAG,MAAM,GAAG,CAAC,CAAC;EACtB,EAAE,IAAI,CAAC,QAAQ,EAAE,QAAQ,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,CAAC,EAAE,IAAI,EAAE,CAAC,CAAC,CAAC;EAC3D,EAAE,IAAI,CAAC,MAAM,CAAC,mBAAmB,EAAE,KAAK,GAAG,IAAI,CAAC,KAAK,CAAC,KAAK,CAAC,CAAC;EAC7D,EAAE,IAAI,CAAC,MAAM,CAAC,IAAI,KAAK,GAAG,IAAI,CAAC,CAAC;EAChC,EAAE,OAAO,MAAM,GAAG,CAAC;EACnB,CAAC,CAAC;AACF;EACA,SAAS,iBAAiB,EAAE,GAAG,EAAE,KAAK,EAAE,MAAM,EAAE,YAAY,EAAE;EAC9D,EAAE,IAAI,KAAK,GAAG,CAAC,EAAE,KAAK,GAAG,MAAM,GAAG,KAAK,GAAG,CAAC,CAAC;EAC5C,EAAE,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC,MAAM,GAAG,MAAM,EAAE,CAAC,CAAC,EAAE,CAAC,GAAG,CAAC,EAAE,EAAE,CAAC,EAAE;EACpE,IAAI,GAAG,CAAC,MAAM,GAAG,CAAC,CAAC,GAAG,CAAC,KAAK,IAAI,IAAI,KAAK,CAAC,IAAI,YAAY,GAAG,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;EACzE,MAAM,CAAC,YAAY,GAAG,CAAC,GAAG,CAAC,GAAG,CAAC,IAAI,CAAC,CAAC;EACrC,GAAG;EACH,CAAC;AACD;EACA,MAAM,CAAC,SAAS,CAAC,aAAa,GAAG,SAAS,aAAa,EAAE,KAAK,EAAE,MAAM,EAAE,QAAQ,EAAE;EAClF,EAAE,KAAK,GAAG,CAAC,KAAK,CAAC;EACjB,EAAE,MAAM,GAAG,MAAM,GAAG,CAAC,CAAC;EACtB,EAAE,IAAI,CAAC,QAAQ,EAAE,QAAQ,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,CAAC,EAAE,MAAM,EAAE,CAAC,CAAC,CAAC;EAC7D,EAAE,IAAI,MAAM,CAAC,mBAAmB,EAAE;EAClC,IAAI,IAAI,CAAC,MAAM,CAAC,IAAI,KAAK,GAAG,IAAI,CAAC,CAAC;EAClC,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,KAAK,KAAK,CAAC,CAAC,CAAC;EACrC,GAAG,MAAM;EACT,IAAI,iBAAiB,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,IAAI,CAAC,CAAC;EACjD,GAAG;EACH,EAAE,OAAO,MAAM,GAAG,CAAC;EACnB,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,aAAa,GAAG,SAAS,aAAa,EAAE,KAAK,EAAE,MAAM,EAAE,QAAQ,EAAE;EAClF,EAAE,KAAK,GAAG,CAAC,KAAK,CAAC;EACjB,EAAE,MAAM,GAAG,MAAM,GAAG,CAAC,CAAC;EACtB,EAAE,IAAI,CAAC,QAAQ,EAAE,QAAQ,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,CAAC,EAAE,MAAM,EAAE,CAAC,CAAC,CAAC;EAC7D,EAAE,IAAI,MAAM,CAAC,mBAAmB,EAAE;EAClC,IAAI,IAAI,CAAC,MAAM,CAAC,IAAI,KAAK,KAAK,CAAC,CAAC,CAAC;EACjC,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,KAAK,GAAG,IAAI,CAAC,CAAC;EACtC,GAAG,MAAM;EACT,IAAI,iBAAiB,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,KAAK,CAAC,CAAC;EAClD,GAAG;EACH,EAAE,OAAO,MAAM,GAAG,CAAC;EACnB,CAAC,CAAC;AACF;EACA,SAAS,iBAAiB,EAAE,GAAG,EAAE,KAAK,EAAE,MAAM,EAAE,YAAY,EAAE;EAC9D,EAAE,IAAI,KAAK,GAAG,CAAC,EAAE,KAAK,GAAG,UAAU,GAAG,KAAK,GAAG,CAAC,CAAC;EAChD,EAAE,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC,MAAM,GAAG,MAAM,EAAE,CAAC,CAAC,EAAE,CAAC,GAAG,CAAC,EAAE,EAAE,CAAC,EAAE;EACpE,IAAI,GAAG,CAAC,MAAM,GAAG,CAAC,CAAC,GAAG,CAAC,KAAK,KAAK,CAAC,YAAY,GAAG,CAAC,GAAG,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,IAAI,CAAC;EACxE,GAAG;EACH,CAAC;AACD;EACA,MAAM,CAAC,SAAS,CAAC,aAAa,GAAG,SAAS,aAAa,EAAE,KAAK,EAAE,MAAM,EAAE,QAAQ,EAAE;EAClF,EAAE,KAAK,GAAG,CAAC,KAAK,CAAC;EACjB,EAAE,MAAM,GAAG,MAAM,GAAG,CAAC,CAAC;EACtB,EAAE,IAAI,CAAC,QAAQ,EAAE,QAAQ,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,CAAC,EAAE,UAAU,EAAE,CAAC,CAAC,CAAC;EACjE,EAAE,IAAI,MAAM,CAAC,mBAAmB,EAAE;EAClC,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,KAAK,KAAK,EAAE,CAAC,CAAC;EACtC,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,KAAK,KAAK,EAAE,CAAC,CAAC;EACtC,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,KAAK,KAAK,CAAC,CAAC,CAAC;EACrC,IAAI,IAAI,CAAC,MAAM,CAAC,IAAI,KAAK,GAAG,IAAI,CAAC,CAAC;EAClC,GAAG,MAAM;EACT,IAAI,iBAAiB,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,IAAI,CAAC,CAAC;EACjD,GAAG;EACH,EAAE,OAAO,MAAM,GAAG,CAAC;EACnB,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,aAAa,GAAG,SAAS,aAAa,EAAE,KAAK,EAAE,MAAM,EAAE,QAAQ,EAAE;EAClF,EAAE,KAAK,GAAG,CAAC,KAAK,CAAC;EACjB,EAAE,MAAM,GAAG,MAAM,GAAG,CAAC,CAAC;EACtB,EAAE,IAAI,CAAC,QAAQ,EAAE,QAAQ,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,CAAC,EAAE,UAAU,EAAE,CAAC,CAAC,CAAC;EACjE,EAAE,IAAI,MAAM,CAAC,mBAAmB,EAAE;EAClC,IAAI,IAAI,CAAC,MAAM,CAAC,IAAI,KAAK,KAAK,EAAE,CAAC,CAAC;EAClC,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,KAAK,KAAK,EAAE,CAAC,CAAC;EACtC,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,KAAK,KAAK,CAAC,CAAC,CAAC;EACrC,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,KAAK,GAAG,IAAI,CAAC,CAAC;EACtC,GAAG,MAAM;EACT,IAAI,iBAAiB,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,KAAK,CAAC,CAAC;EAClD,GAAG;EACH,EAAE,OAAO,MAAM,GAAG,CAAC;EACnB,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,UAAU,GAAG,SAAS,UAAU,EAAE,KAAK,EAAE,MAAM,EAAE,UAAU,EAAE,QAAQ,EAAE;EACxF,EAAE,KAAK,GAAG,CAAC,KAAK,CAAC;EACjB,EAAE,MAAM,GAAG,MAAM,GAAG,CAAC,CAAC;EACtB,EAAE,IAAI,CAAC,QAAQ,EAAE;EACjB,IAAI,IAAI,KAAK,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,GAAG,UAAU,GAAG,CAAC,CAAC,CAAC;AAChD;EACA,IAAI,QAAQ,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,UAAU,EAAE,KAAK,GAAG,CAAC,EAAE,CAAC,KAAK,CAAC,CAAC;EACjE,GAAG;AACH;EACA,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC;EACZ,EAAE,IAAI,GAAG,GAAG,CAAC,CAAC;EACd,EAAE,IAAI,GAAG,GAAG,CAAC,CAAC;EACd,EAAE,IAAI,CAAC,MAAM,CAAC,GAAG,KAAK,GAAG,IAAI,CAAC;EAC9B,EAAE,OAAO,EAAE,CAAC,GAAG,UAAU,KAAK,GAAG,IAAI,KAAK,CAAC,EAAE;EAC7C,IAAI,IAAI,KAAK,GAAG,CAAC,IAAI,GAAG,KAAK,CAAC,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,GAAG,CAAC,CAAC,KAAK,CAAC,EAAE;EAC9D,MAAM,GAAG,GAAG,CAAC,CAAC;EACd,KAAK;EACL,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,KAAK,GAAG,GAAG,KAAK,CAAC,IAAI,GAAG,GAAG,IAAI,CAAC;EACzD,GAAG;AACH;EACA,EAAE,OAAO,MAAM,GAAG,UAAU;EAC5B,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,UAAU,GAAG,SAAS,UAAU,EAAE,KAAK,EAAE,MAAM,EAAE,UAAU,EAAE,QAAQ,EAAE;EACxF,EAAE,KAAK,GAAG,CAAC,KAAK,CAAC;EACjB,EAAE,MAAM,GAAG,MAAM,GAAG,CAAC,CAAC;EACtB,EAAE,IAAI,CAAC,QAAQ,EAAE;EACjB,IAAI,IAAI,KAAK,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,GAAG,UAAU,GAAG,CAAC,CAAC,CAAC;AAChD;EACA,IAAI,QAAQ,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,UAAU,EAAE,KAAK,GAAG,CAAC,EAAE,CAAC,KAAK,CAAC,CAAC;EACjE,GAAG;AACH;EACA,EAAE,IAAI,CAAC,GAAG,UAAU,GAAG,CAAC,CAAC;EACzB,EAAE,IAAI,GAAG,GAAG,CAAC,CAAC;EACd,EAAE,IAAI,GAAG,GAAG,CAAC,CAAC;EACd,EAAE,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,GAAG,KAAK,GAAG,IAAI,CAAC;EAClC,EAAE,OAAO,EAAE,CAAC,IAAI,CAAC,KAAK,GAAG,IAAI,KAAK,CAAC,EAAE;EACrC,IAAI,IAAI,KAAK,GAAG,CAAC,IAAI,GAAG,KAAK,CAAC,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,GAAG,CAAC,CAAC,KAAK,CAAC,EAAE;EAC9D,MAAM,GAAG,GAAG,CAAC,CAAC;EACd,KAAK;EACL,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,KAAK,GAAG,GAAG,KAAK,CAAC,IAAI,GAAG,GAAG,IAAI,CAAC;EACzD,GAAG;AACH;EACA,EAAE,OAAO,MAAM,GAAG,UAAU;EAC5B,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,SAAS,GAAG,SAAS,SAAS,EAAE,KAAK,EAAE,MAAM,EAAE,QAAQ,EAAE;EAC1E,EAAE,KAAK,GAAG,CAAC,KAAK,CAAC;EACjB,EAAE,MAAM,GAAG,MAAM,GAAG,CAAC,CAAC;EACtB,EAAE,IAAI,CAAC,QAAQ,EAAE,QAAQ,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,CAAC,EAAE,IAAI,EAAE,CAAC,IAAI,CAAC,CAAC;EAC/D,EAAE,IAAI,CAAC,MAAM,CAAC,mBAAmB,EAAE,KAAK,GAAG,IAAI,CAAC,KAAK,CAAC,KAAK,CAAC,CAAC;EAC7D,EAAE,IAAI,KAAK,GAAG,CAAC,EAAE,KAAK,GAAG,IAAI,GAAG,KAAK,GAAG,CAAC,CAAC;EAC1C,EAAE,IAAI,CAAC,MAAM,CAAC,IAAI,KAAK,GAAG,IAAI,CAAC,CAAC;EAChC,EAAE,OAAO,MAAM,GAAG,CAAC;EACnB,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,YAAY,GAAG,SAAS,YAAY,EAAE,KAAK,EAAE,MAAM,EAAE,QAAQ,EAAE;EAChF,EAAE,KAAK,GAAG,CAAC,KAAK,CAAC;EACjB,EAAE,MAAM,GAAG,MAAM,GAAG,CAAC,CAAC;EACtB,EAAE,IAAI,CAAC,QAAQ,EAAE,QAAQ,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,CAAC,EAAE,MAAM,EAAE,CAAC,MAAM,CAAC,CAAC;EACnE,EAAE,IAAI,MAAM,CAAC,mBAAmB,EAAE;EAClC,IAAI,IAAI,CAAC,MAAM,CAAC,IAAI,KAAK,GAAG,IAAI,CAAC,CAAC;EAClC,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,KAAK,KAAK,CAAC,CAAC,CAAC;EACrC,GAAG,MAAM;EACT,IAAI,iBAAiB,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,IAAI,CAAC,CAAC;EACjD,GAAG;EACH,EAAE,OAAO,MAAM,GAAG,CAAC;EACnB,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,YAAY,GAAG,SAAS,YAAY,EAAE,KAAK,EAAE,MAAM,EAAE,QAAQ,EAAE;EAChF,EAAE,KAAK,GAAG,CAAC,KAAK,CAAC;EACjB,EAAE,MAAM,GAAG,MAAM,GAAG,CAAC,CAAC;EACtB,EAAE,IAAI,CAAC,QAAQ,EAAE,QAAQ,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,CAAC,EAAE,MAAM,EAAE,CAAC,MAAM,CAAC,CAAC;EACnE,EAAE,IAAI,MAAM,CAAC,mBAAmB,EAAE;EAClC,IAAI,IAAI,CAAC,MAAM,CAAC,IAAI,KAAK,KAAK,CAAC,CAAC,CAAC;EACjC,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,KAAK,GAAG,IAAI,CAAC,CAAC;EACtC,GAAG,MAAM;EACT,IAAI,iBAAiB,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,KAAK,CAAC,CAAC;EAClD,GAAG;EACH,EAAE,OAAO,MAAM,GAAG,CAAC;EACnB,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,YAAY,GAAG,SAAS,YAAY,EAAE,KAAK,EAAE,MAAM,EAAE,QAAQ,EAAE;EAChF,EAAE,KAAK,GAAG,CAAC,KAAK,CAAC;EACjB,EAAE,MAAM,GAAG,MAAM,GAAG,CAAC,CAAC;EACtB,EAAE,IAAI,CAAC,QAAQ,EAAE,QAAQ,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,CAAC,EAAE,UAAU,EAAE,CAAC,UAAU,CAAC,CAAC;EAC3E,EAAE,IAAI,MAAM,CAAC,mBAAmB,EAAE;EAClC,IAAI,IAAI,CAAC,MAAM,CAAC,IAAI,KAAK,GAAG,IAAI,CAAC,CAAC;EAClC,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,KAAK,KAAK,CAAC,CAAC,CAAC;EACrC,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,KAAK,KAAK,EAAE,CAAC,CAAC;EACtC,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,KAAK,KAAK,EAAE,CAAC,CAAC;EACtC,GAAG,MAAM;EACT,IAAI,iBAAiB,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,IAAI,CAAC,CAAC;EACjD,GAAG;EACH,EAAE,OAAO,MAAM,GAAG,CAAC;EACnB,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,YAAY,GAAG,SAAS,YAAY,EAAE,KAAK,EAAE,MAAM,EAAE,QAAQ,EAAE;EAChF,EAAE,KAAK,GAAG,CAAC,KAAK,CAAC;EACjB,EAAE,MAAM,GAAG,MAAM,GAAG,CAAC,CAAC;EACtB,EAAE,IAAI,CAAC,QAAQ,EAAE,QAAQ,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,CAAC,EAAE,UAAU,EAAE,CAAC,UAAU,CAAC,CAAC;EAC3E,EAAE,IAAI,KAAK,GAAG,CAAC,EAAE,KAAK,GAAG,UAAU,GAAG,KAAK,GAAG,CAAC,CAAC;EAChD,EAAE,IAAI,MAAM,CAAC,mBAAmB,EAAE;EAClC,IAAI,IAAI,CAAC,MAAM,CAAC,IAAI,KAAK,KAAK,EAAE,CAAC,CAAC;EAClC,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,KAAK,KAAK,EAAE,CAAC,CAAC;EACtC,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,KAAK,KAAK,CAAC,CAAC,CAAC;EACrC,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,KAAK,GAAG,IAAI,CAAC,CAAC;EACtC,GAAG,MAAM;EACT,IAAI,iBAAiB,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,KAAK,CAAC,CAAC;EAClD,GAAG;EACH,EAAE,OAAO,MAAM,GAAG,CAAC;EACnB,CAAC,CAAC;AACF;EACA,SAAS,YAAY,EAAE,GAAG,EAAE,KAAK,EAAE,MAAM,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE;EAC1D,EAAE,IAAI,MAAM,GAAG,GAAG,GAAG,GAAG,CAAC,MAAM,EAAE,MAAM,IAAI,UAAU,CAAC,oBAAoB,CAAC;EAC3E,EAAE,IAAI,MAAM,GAAG,CAAC,EAAE,MAAM,IAAI,UAAU,CAAC,oBAAoB,CAAC;EAC5D,CAAC;AACD;EACA,SAAS,UAAU,EAAE,GAAG,EAAE,KAAK,EAAE,MAAM,EAAE,YAAY,EAAE,QAAQ,EAAE;EACjE,EAAE,IAAI,CAAC,QAAQ,EAAE;EACjB,IAAI,YAAY,CAAC,GAAG,EAAE,KAAK,EAAE,MAAM,EAAE,CAAC,CAAC,CAAC;EACxC,GAAG;EACH,EAAE,KAAK,CAAC,GAAG,EAAE,KAAK,EAAE,MAAM,EAAE,YAAY,EAAE,EAAE,EAAE,CAAC,CAAC,CAAC;EACjD,EAAE,OAAO,MAAM,GAAG,CAAC;EACnB,CAAC;AACD;EACA,MAAM,CAAC,SAAS,CAAC,YAAY,GAAG,SAAS,YAAY,EAAE,KAAK,EAAE,MAAM,EAAE,QAAQ,EAAE;EAChF,EAAE,OAAO,UAAU,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,IAAI,EAAE,QAAQ,CAAC;EACxD,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,YAAY,GAAG,SAAS,YAAY,EAAE,KAAK,EAAE,MAAM,EAAE,QAAQ,EAAE;EAChF,EAAE,OAAO,UAAU,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,KAAK,EAAE,QAAQ,CAAC;EACzD,CAAC,CAAC;AACF;EACA,SAAS,WAAW,EAAE,GAAG,EAAE,KAAK,EAAE,MAAM,EAAE,YAAY,EAAE,QAAQ,EAAE;EAClE,EAAE,IAAI,CAAC,QAAQ,EAAE;EACjB,IAAI,YAAY,CAAC,GAAG,EAAE,KAAK,EAAE,MAAM,EAAE,CAAC,CAAC,CAAC;EACxC,GAAG;EACH,EAAE,KAAK,CAAC,GAAG,EAAE,KAAK,EAAE,MAAM,EAAE,YAAY,EAAE,EAAE,EAAE,CAAC,CAAC,CAAC;EACjD,EAAE,OAAO,MAAM,GAAG,CAAC;EACnB,CAAC;AACD;EACA,MAAM,CAAC,SAAS,CAAC,aAAa,GAAG,SAAS,aAAa,EAAE,KAAK,EAAE,MAAM,EAAE,QAAQ,EAAE;EAClF,EAAE,OAAO,WAAW,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,IAAI,EAAE,QAAQ,CAAC;EACzD,CAAC,CAAC;AACF;EACA,MAAM,CAAC,SAAS,CAAC,aAAa,GAAG,SAAS,aAAa,EAAE,KAAK,EAAE,MAAM,EAAE,QAAQ,EAAE;EAClF,EAAE,OAAO,WAAW,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,KAAK,EAAE,QAAQ,CAAC;EAC1D,CAAC,CAAC;AACF;EACA;EACA,MAAM,CAAC,SAAS,CAAC,IAAI,GAAG,SAAS,IAAI,EAAE,MAAM,EAAE,WAAW,EAAE,KAAK,EAAE,GAAG,EAAE;EACxE,EAAE,IAAI,CAAC,KAAK,EAAE,KAAK,GAAG,CAAC,CAAC;EACxB,EAAE,IAAI,CAAC,GAAG,IAAI,GAAG,KAAK,CAAC,EAAE,GAAG,GAAG,IAAI,CAAC,MAAM,CAAC;EAC3C,EAAE,IAAI,WAAW,IAAI,MAAM,CAAC,MAAM,EAAE,WAAW,GAAG,MAAM,CAAC,MAAM,CAAC;EAChE,EAAE,IAAI,CAAC,WAAW,EAAE,WAAW,GAAG,CAAC,CAAC;EACpC,EAAE,IAAI,GAAG,GAAG,CAAC,IAAI,GAAG,GAAG,KAAK,EAAE,GAAG,GAAG,KAAK,CAAC;AAC1C;EACA;EACA,EAAE,IAAI,GAAG,KAAK,KAAK,EAAE,OAAO,CAAC;EAC7B,EAAE,IAAI,MAAM,CAAC,MAAM,KAAK,CAAC,IAAI,IAAI,CAAC,MAAM,KAAK,CAAC,EAAE,OAAO,CAAC;AACxD;EACA;EACA,EAAE,IAAI,WAAW,GAAG,CAAC,EAAE;EACvB,IAAI,MAAM,IAAI,UAAU,CAAC,2BAA2B,CAAC;EACrD,GAAG;EACH,EAAE,IAAI,KAAK,GAAG,CAAC,IAAI,KAAK,IAAI,IAAI,CAAC,MAAM,EAAE,MAAM,IAAI,UAAU,CAAC,2BAA2B,CAAC;EAC1F,EAAE,IAAI,GAAG,GAAG,CAAC,EAAE,MAAM,IAAI,UAAU,CAAC,yBAAyB,CAAC;AAC9D;EACA;EACA,EAAE,IAAI,GAAG,GAAG,IAAI,CAAC,MAAM,EAAE,GAAG,GAAG,IAAI,CAAC,MAAM,CAAC;EAC3C,EAAE,IAAI,MAAM,CAAC,MAAM,GAAG,WAAW,GAAG,GAAG,GAAG,KAAK,EAAE;EACjD,IAAI,GAAG,GAAG,MAAM,CAAC,MAAM,GAAG,WAAW,GAAG,KAAK,CAAC;EAC9C,GAAG;AACH;EACA,EAAE,IAAI,GAAG,GAAG,GAAG,GAAG,KAAK,CAAC;EACxB,EAAE,IAAI,CAAC,CAAC;AACR;EACA,EAAE,IAAI,IAAI,KAAK,MAAM,IAAI,KAAK,GAAG,WAAW,IAAI,WAAW,GAAG,GAAG,EAAE;EACnE;EACA,IAAI,KAAK,CAAC,GAAG,GAAG,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,EAAE,EAAE,CAAC,EAAE;EACnC,MAAM,MAAM,CAAC,CAAC,GAAG,WAAW,CAAC,GAAG,IAAI,CAAC,CAAC,GAAG,KAAK,CAAC,CAAC;EAChD,KAAK;EACL,GAAG,MAAM,IAAI,GAAG,GAAG,IAAI,IAAI,CAAC,MAAM,CAAC,mBAAmB,EAAE;EACxD;EACA,IAAI,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,GAAG,EAAE,EAAE,CAAC,EAAE;EAC9B,MAAM,MAAM,CAAC,CAAC,GAAG,WAAW,CAAC,GAAG,IAAI,CAAC,CAAC,GAAG,KAAK,CAAC,CAAC;EAChD,KAAK;EACL,GAAG,MAAM;EACT,IAAI,UAAU,CAAC,SAAS,CAAC,GAAG,CAAC,IAAI;EACjC,MAAM,MAAM;EACZ,MAAM,IAAI,CAAC,QAAQ,CAAC,KAAK,EAAE,KAAK,GAAG,GAAG,CAAC;EACvC,MAAM,WAAW;EACjB,KAAK,CAAC;EACN,GAAG;AACH;EACA,EAAE,OAAO,GAAG;EACZ,CAAC,CAAC;AACF;EACA;EACA;EACA;EACA;EACA,MAAM,CAAC,SAAS,CAAC,IAAI,GAAG,SAAS,IAAI,EAAE,GAAG,EAAE,KAAK,EAAE,GAAG,EAAE,QAAQ,EAAE;EAClE;EACA,EAAE,IAAI,OAAO,GAAG,KAAK,QAAQ,EAAE;EAC/B,IAAI,IAAI,OAAO,KAAK,KAAK,QAAQ,EAAE;EACnC,MAAM,QAAQ,GAAG,KAAK,CAAC;EACvB,MAAM,KAAK,GAAG,CAAC,CAAC;EAChB,MAAM,GAAG,GAAG,IAAI,CAAC,MAAM,CAAC;EACxB,KAAK,MAAM,IAAI,OAAO,GAAG,KAAK,QAAQ,EAAE;EACxC,MAAM,QAAQ,GAAG,GAAG,CAAC;EACrB,MAAM,GAAG,GAAG,IAAI,CAAC,MAAM,CAAC;EACxB,KAAK;EACL,IAAI,IAAI,GAAG,CAAC,MAAM,KAAK,CAAC,EAAE;EAC1B,MAAM,IAAI,IAAI,GAAG,GAAG,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC;EACnC,MAAM,IAAI,IAAI,GAAG,GAAG,EAAE;EACtB,QAAQ,GAAG,GAAG,IAAI,CAAC;EACnB,OAAO;EACP,KAAK;EACL,IAAI,IAAI,QAAQ,KAAK,SAAS,IAAI,OAAO,QAAQ,KAAK,QAAQ,EAAE;EAChE,MAAM,MAAM,IAAI,SAAS,CAAC,2BAA2B,CAAC;EACtD,KAAK;EACL,IAAI,IAAI,OAAO,QAAQ,KAAK,QAAQ,IAAI,CAAC,MAAM,CAAC,UAAU,CAAC,QAAQ,CAAC,EAAE;EACtE,MAAM,MAAM,IAAI,SAAS,CAAC,oBAAoB,GAAG,QAAQ,CAAC;EAC1D,KAAK;EACL,GAAG,MAAM,IAAI,OAAO,GAAG,KAAK,QAAQ,EAAE;EACtC,IAAI,GAAG,GAAG,GAAG,GAAG,GAAG,CAAC;EACpB,GAAG;AACH;EACA;EACA,EAAE,IAAI,KAAK,GAAG,CAAC,IAAI,IAAI,CAAC,MAAM,GAAG,KAAK,IAAI,IAAI,CAAC,MAAM,GAAG,GAAG,EAAE;EAC7D,IAAI,MAAM,IAAI,UAAU,CAAC,oBAAoB,CAAC;EAC9C,GAAG;AACH;EACA,EAAE,IAAI,GAAG,IAAI,KAAK,EAAE;EACpB,IAAI,OAAO,IAAI;each,GAAG;AACH;EACA,EAAE,KAAK,GAAG,KAAK,KAAK,CAAC,CAAC;EACtB,EAAE,GAAG,GAAG,GAAG,KAAK,SAAS,GAAG,IAAI,CAAC,MAAM,GAAG,GAAG,KAAK,CAAC,CAAC;AACpD;EACA,EAAE,IAAI,CAAC,GAAG,EAAE,GAAG,GAAG,CAAC,CAAC;AACpB;EACA,EAAE,IAAI,CAAC,CAAC;EACR,EAAE,IAAI,OAAO,GAAG,KAAK,QAAQ,EAAE;EAC/B,IAAI,KAAK,CAAC,GAAG,KAAK,EAAE,CAAC,GAAG,GAAG,EAAE,EAAE,CAAC,EAAE;EAClC,MAAM,IAAI,CAAC,CAAC,CAAC,GAAG,GAAG,CAAC;EACpB,KAAK;EACL,GAAG,MAAM;EACT,IAAI,IAAI,KAAK,GAAG,gBAAgB,CAAC,GAAG,CAAC;EACrC,QAAQ,GAAG;EACX,QAAQ,WAAW,CAAC,IAAI,MAAM,CAAC,GAAG,EAAE,QAAQ,CAAC,CAAC,QAAQ,EAAE,CAAC,CAAC;EAC1D,IAAI,IAAI,GAAG,GAAG,KAAK,CAAC,MAAM,CAAC;EAC3B,IAAI,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,GAAG,GAAG,KAAK,EAAE,EAAE,CAAC,EAAE;EACtC,MAAM,IAAI,CAAC,CAAC,GAAG,KAAK,CAAC,GAAG,KAAK,CAAC,CAAC,GAAG,GAAG,CAAC,CAAC;EACvC,KAAK;EACL,GAAG;AACH;EACA,EAAE,OAAO,IAAI;EACb,CAAC,CAAC;AACF;EACA;EACA;AACA;EACA,IAAI,iBAAiB,GAAG,oBAAoB,CAAC;AAC7C;EACA,SAAS,WAAW,EAAE,GAAG,EAAE;EAC3B;EACA,EAAE,GAAG,GAAG,UAAU,CAAC,GAAG,CAAC,CAAC,OAAO,CAAC,iBAAiB,EAAE,EAAE,CAAC,CAAC;EACvD;EACA,EAAE,IAAI,GAAG,CAAC,MAAM,GAAG,CAAC,EAAE,OAAO,EAAE;EAC/B;EACA,EAAE,OAAO,GAAG,CAAC,MAAM,GAAG,CAAC,KAAK,CAAC,EAAE;EAC/B,IAAI,GAAG,GAAG,GAAG,GAAG,GAAG,CAAC;EACpB,GAAG;EACH,EAAE,OAAO,GAAG;EACZ,CAAC;AACD;EACA,SAAS,UAAU,EAAE,GAAG,EAAE;EAC1B,EAAE,IAAI,GAAG,CAAC,IAAI,EAAE,OAAO,GAAG,CAAC,IAAI,EAAE;EACjC,EAAE,OAAO,GAAG,CAAC,OAAO,CAAC,YAAY,EAAE,EAAE,CAAC;EACtC,CAAC;AACD;EACA,SAAS,KAAK,EAAE,CAAC,EAAE;EACnB,EAAE,IAAI,CAAC,GAAG,EAAE,EAAE,OAAO,GAAG,GAAG,CAAC,CAAC,QAAQ,CAAC,EAAE,CAAC;EACzC,EAAE,OAAO,CAAC,CAAC,QAAQ,CAAC,EAAE,CAAC;EACvB,CAAC;AACD;EACA,SAAS,WAAW,EAAE,MAAM,EAAE,KAAK,EAAE;EACrC,EAAE,KAAK,GAAG,KAAK,IAAI,QAAQ,CAAC;EAC5B,EAAE,IAAI,SAAS,CAAC;EAChB,EAAE,IAAI,MAAM,GAAG,MAAM,CAAC,MAAM,CAAC;EAC7B,EAAE,IAAI,aAAa,GAAG,IAAI,CAAC;EAC3B,EAAE,IAAI,KAAK,GAAG,EAAE,CAAC;AACjB;EACA,EAAE,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,EAAE,CAAC,EAAE;EACnC,IAAI,SAAS,GAAG,MAAM,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC;AACrC;EACA;EACA,IAAI,IAAI,SAAS,GAAG,MAAM,IAAI,SAAS,GAAG,MAAM,EAAE;EAClD;EACA,MAAM,IAAI,CAAC,aAAa,EAAE;EAC1B;EACA,QAAQ,IAAI,SAAS,GAAG,MAAM,EAAE;EAChC;EACA,UAAU,IAAI,CAAC,KAAK,IAAI,CAAC,IAAI,CAAC,CAAC,EAAE,KAAK,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,IAAI,CAAC,CAAC;EAC9D,UAAU,QAAQ;EAClB,SAAS,MAAM,IAAI,CAAC,GAAG,CAAC,KAAK,MAAM,EAAE;EACrC;EACA,UAAU,IAAI,CAAC,KAAK,IAAI,CAAC,IAAI,CAAC,CAAC,EAAE,KAAK,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,IAAI,CAAC,CAAC;EAC9D,UAAU,QAAQ;EAClB,SAAS;AACT;EACA;EACA,QAAQ,aAAa,GAAG,SAAS,CAAC;AAClC;EACA,QAAQ,QAAQ;EAChB,OAAO;AACP;EACA;EACA,MAAM,IAAI,SAAS,GAAG,MAAM,EAAE;EAC9B,QAAQ,IAAI,CAAC,KAAK,IAAI,CAAC,IAAI,CAAC,CAAC,EAAE,KAAK,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,IAAI,CAAC,CAAC;EAC5D,QAAQ,aAAa,GAAG,SAAS,CAAC;EAClC,QAAQ,QAAQ;EAChB,OAAO;AACP;EACA;EACA,MAAM,SAAS,GAAG,CAAC,aAAa,GAAG,MAAM,IAAI,EAAE,GAAG,SAAS,GAAG,MAAM,IAAI,OAAO,CAAC;EAChF,KAAK,MAAM,IAAI,aAAa,EAAE;EAC9B;EACA,MAAM,IAAI,CAAC,KAAK,IAAI,CAAC,IAAI,CAAC,CAAC,EAAE,KAAK,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,IAAI,CAAC,CAAC;EAC1D,KAAK;AACL;EACA,IAAI,aAAa,GAAG,IAAI,CAAC;AACzB;EACA;EACA,IAAI,IAAI,SAAS,GAAG,IAAI,EAAE;EAC1B,MAAM,IAAI,CAAC,KAAK,IAAI,CAAC,IAAI,CAAC,EAAE,KAAK;EACjC,MAAM,KAAK,CAAC,IAAI,CAAC,SAAS,CAAC,CAAC;EAC5B,KAAK,MAAM,IAAI,SAAS,GAAG,KAAK,EAAE;EAClC,MAAM,IAAI,CAAC,KAAK,IAAI,CAAC,IAAI,CAAC,EAAE,KAAK;EACjC,MAAM,KAAK,CAAC,IAAI;EAChB,QAAQ,SAAS,IAAI,GAAG,GAAG,IAAI;EAC/B,QAAQ,SAAS,GAAG,IAAI,GAAG,IAAI;EAC/B,OAAO,CAAC;EACR,KAAK,MAAM,IAAI,SAAS,GAAG,OAAO,EAAE;EACpC,MAAM,IAAI,CAAC,KAAK,IAAI,CAAC,IAAI,CAAC,EAAE,KAAK;EACjC,MAAM,KAAK,CAAC,IAAI;EAChB,QAAQ,SAAS,IAAI,GAAG,GAAG,IAAI;EAC/B,QAAQ,SAAS,IAAI,GAAG,GAAG,IAAI,GAAG,IAAI;EACtC,QAAQ,SAAS,GAAG,IAAI,GAAG,IAAI;EAC/B,OAAO,CAAC;EACR,KAAK,MAAM,IAAI,SAAS,GAAG,QAAQ,EAAE;EACrC,MAAM,IAAI,CAAC,KAAK,IAAI,CAAC,IAAI,CAAC,EAAE,KAAK;EACjC,MAAM,KAAK,CAAC,IAAI;EAChB,QAAQ,SAAS,IAAI,IAAI,GAAG,IAAI;EAChC,QAAQ,SAAS,IAAI,GAAG,GAAG,IAAI,GAAG,IAAI;EACtC,QAAQ,SAAS,IAAI,GAAG,GAAG,IAAI,GAAG,IAAI;EACtC,QAAQ,SAAS,GAAG,IAAI,GAAG,IAAI;EAC/B,OAAO,CAAC;EACR,KAAK,MAAM;EACX,MAAM,MAAM,IAAI,KAAK,CAAC,oBAAoB,CAAC;EAC3C,KAAK;EACL,GAAG;AACH;EACA,EAAE,OAAO,KAAK;EACd,CAAC;AACD;EACA,SAAS,YAAY,EAAE,GAAG,EAAE;EAC5B,EAAE,IAAI,SAAS,GAAG,EAAE,CAAC;EACrB,EAAE,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,GAAG,CAAC,MAAM,EAAE,EAAE,CAAC,EAAE;EACvC;EACA,IAAI,SAAS,CAAC,IAAI,CAAC,GAAG,CAAC,UAAU,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC,CAAC;EAC7C,GAAG;EACH,EAAE,OAAO,SAAS;EAClB,CAAC;AACD;EACA,SAAS,cAAc,EAAE,GAAG,EAAE,KAAK,EAAE;EACrC,EAAE,IAAI,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC;EAChB,EAAE,IAAI,SAAS,GAAG,EAAE,CAAC;EACrB,EAAE,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,GAAG,CAAC,MAAM,EAAE,EAAE,CAAC,EAAE;EACvC,IAAI,IAAI,CAAC,KAAK,IAAI,CAAC,IAAI,CAAC,EAAE,KAAK;AAC/B;EACA,IAAI,CAAC,GAAG,GAAG,CAAC,UAAU,CAAC,CAAC,CAAC,CAAC;EAC1B,IAAI,EAAE,GAAG,CAAC,IAAI,CAAC,CAAC;EAChB,IAAI,EAAE,GAAG,CAAC,GAAG,GAAG,CAAC;EACjB,IAAI,SAAS,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;EACvB,IAAI,SAAS,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;EACvB,GAAG;AACH;EACA,EAAE,OAAO,SAAS;EAClB,CAAC;AACD;AACA;EACA,SAAS,aAAa,EAAE,GAAG,EAAE;EAC7B,EAAE,OAAO,WAAW,CAAC,WAAW,CAAC,GAAG,CAAC,CAAC;EACtC,CAAC;AACD;EACA,SAAS,UAAU,EAAE,GAAG,EAAE,GAAG,EAAE,MAAM,EAAE,MAAM,EAAE;EAC/C,EAAE,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,EAAE,CAAC,EAAE;EACnC,IAAI,IAAI,CAAC,CAAC,GAAG,MAAM,IAAI,GAAG,CAAC,MAAM,MAAM,CAAC,IAAI,GAAG,CAAC,MAAM,CAAC,EAAE,KAAK;EAC9D,IAAI,GAAG,CAAC,CAAC,GAAG,MAAM,CAAC,GAAG,GAAG,CAAC,CAAC,CAAC,CAAC;EAC7B,GAAG;EACH,EAAE,OAAO,CAAC;EACV,CAAC;AACD;EACA,SAAS,KAAK,EAAE,GAAG,EAAE;EACrB,EAAE,OAAO,GAAG,KAAK,GAAG;EACpB,CAAC;AACD;AACA;EACA;EACA;EACA;EACA,SAAS,QAAQ,CAAC,GAAG,EAAE;EACvB,EAAE,OAAO,GAAG,IAAI,IAAI,KAAK,CAAC,CAAC,GAAG,CAAC,SAAS,IAAI,YAAY,CAAC,GAAG,CAAC,IAAI,YAAY,CAAC,GAAG,CAAC,CAAC;EACnF,CAAC;AACD;EACA,SAAS,YAAY,EAAE,GAAG,EAAE;EAC5B,EAAE,OAAO,CAAC,CAAC,GAAG,CAAC,WAAW,IAAI,OAAO,GAAG,CAAC,WAAW,CAAC,QAAQ,KAAK,UAAU,IAAI,GAAG,CAAC,WAAW,CAAC,QAAQ,CAAC,GAAG,CAAC;EAC7G,CAAC;AACD;EACA;EACA,SAAS,YAAY,EAAE,GAAG,EAAE;EAC5B,EAAE,OAAO,OAAO,GAAG,CAAC,WAAW,KAAK,UAAU,IAAI,OAAO,GAAG,CAAC,KAAK,KAAK,UAAU,IAAI,YAAY,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;EAClH;;ECz7DA,IAAI,QAAO;EACX,IAAI;EACJ,CAAC,OAAO,GAAG,IAAI,WAAW,GAAE;EAC5B,CAAC,CAAC,MAAM,KAAK,EAAE,EAAE;EACjB,IAAI,IAAG;EACP,IAAI,OAAM;EACV,IAAIG,UAAQ,GAAG,EAAC;EAGhB,MAAM,aAAa,GAAG,KAAI;EAC1B,MAAM,SAAS,GAAG,GAAE;EAGpB,IAAI,cAAc,GAAG,GAAE;EACvB,IAAI,kBAAiB;EACrB,IAAI,UAAS;EACb,IAAI,cAAc,GAAG,EAAC;EACtB,IAAI,YAAY,GAAG,EAAC;EACpB,IAAI,aAAY;EAChB,IAAI,iBAAiB,GAAG,GAAE;EAC1B,IAAI,SAAQ;EACZ,IAAI,oBAAmB;EACvB,IAAI,cAAc,GAAG;EACrB,CAAC,UAAU,EAAE,KAAK;EAClB,CAAC,aAAa,EAAE,IAAI;EACpB,EAAC;EACD,IAAI,cAAc,GAAG,MAAK;AAC1B;EACO,MAAM,OAAO,CAAC;EACrB,CAAC,WAAW,CAAC,OAAO,EAAE;EACtB,EAAE,IAAI,OAAO,EAAE;each,GAAG,IAAI,OAAO,CAAC,UAAU,KAAK,KAAK,IAAI,OAAO,CAAC,aAAa,KAAK,SAAS;EAC1E,IAAI,OAAO,CAAC,aAAa,GAAG,KAAI;EAChC,GAAG,IAAI,OAAO,CAAC,aAAa,IAAI,CAAC,OAAO,CAAC,UAAU;EACnD,IAAI,CAAC,OAAO,CAAC,UAAU,GAAG,EAAE,EAAE,aAAa,GAAG,KAAI;EAClD,GAAG;EACH,EAAE,MAAM,CAAC,MAAM,CAAC,IAAI,EAAE,OAAO,EAAC;EAC9B,EAAE;EACH,CAAC,MAAM,CAAC,MAAM,EAAE,GAAG,EAAE;EACrB,EAAE,IAAI,GAAG,EAAE;EACX;EACA,GAAG,OAAO,SAAS,CAAC,MAAM;EAC1B,IAAI,WAAW,GAAE;EACjB,IAAI,OAAO,IAAI,GAAG,IAAI,CAAC,MAAM,CAAC,MAAM,EAAE,GAAG,CAAC,GAAG,OAAO,CAAC,SAAS,CAAC,MAAM,CAAC,IAAI,CAAC,cAAc,EAAE,MAAM,EAAE,GAAG,CAAC;EACvG,IAAI,CAAC;EACL,GAAG;EACH,EAAE,MAAM,GAAG,GAAG,GAAG,CAAC,CAAC,GAAG,GAAG,GAAG,MAAM,CAAC,OAAM;EACzC,EAAEA,UAAQ,GAAG,EAAC;EAEd,EAAE,YAAY,GAAG,EAAC;EAClB,EAAE,SAAS,GAAG,KAAI;EAElB,EAAE,GAAG,GAAG,OAAM;EACd;EACA;EACA;EACA,EAAE,QAAQ,GAAG,MAAM,CAAC,QAAQ,KAAK,MAAM,CAAC,QAAQ,GAAG,IAAI,QAAQ,CAAC,MAAM,CAAC,MAAM,EAAE,MAAM,CAAC,UAAU,EAAE,MAAM,CAAC,UAAU,CAAC,EAAC;EACrH,EAAE,IAAI,IAAI,EAAE;EACZ,GAAG,cAAc,GAAG,KAAI;EACxB,GAAG,IAAI,IAAI,CAAC,UAAU,EAAE;EACxB,IAAI,iBAAiB,GAAG,IAAI,CAAC,WAAU;EACvC,IAAI,OAAO,WAAW,EAAE;EACxB,IAAI,MAAM,IAAI,CAAC,iBAAiB,IAAI,iBAAiB,CAAC,MAAM,GAAG,CAAC,EAAE;EAClE,IAAI,iBAAiB,GAAG,GAAE;EAC1B,IAAI;EACJ,GAAG,MAAM;EACT,GAAG,cAAc,GAAG,eAAc;EAClC,GAAG,IAAI,CAAC,iBAAiB,IAAI,iBAAiB,CAAC,MAAM,GAAG,CAAC;EACzD,IAAI,iBAAiB,GAAG,GAAE;EAC1B,GAAG;EACH,EAAE,OAAO,WAAW,EAAE;EACtB,EAAE;EACH,CAAC,cAAc,CAAC,MAAM,EAAE,OAAO,EAAE;EACjC,EAAE,IAAI,MAAM,EAAE,YAAY,GAAG,EAAC;EAC9B,EAAE,IAAI;EACN,GAAG,IAAI,IAAI,GAAG,MAAM,CAAC,OAAM;EAC3B,GAAG,cAAc,GAAG,KAAI;EACxB,GAAG,IAAI,KAAK,GAAG,IAAI,GAAG,IAAI,CAAC,MAAM,CAAC,MAAM,EAAE,IAAI,CAAC,GAAG,cAAc,CAAC,MAAM,CAAC,MAAM,EAAE,IAAI,EAAC;EACrF,GAAG,IAAI,OAAO,EAAE;EAChB,IAAI,OAAO,CAAC,KAAK,EAAC;EAClB,IAAI,MAAMA,UAAQ,GAAG,IAAI,EAAE;EAC3B,KAAK,YAAY,GAAGA,WAAQ;EAC5B,KAAK,IAAI,OAAO,CAAC,WAAW,EAAE,CAAC,KAAK,KAAK,EAAE;EAC3C,MAAM,MAAM;EACZ,MAAM;EACN,KAAK;EACL,IAAI;EACJ,QAAQ;EACR,IAAI,MAAM,GAAG,EAAE,KAAK,GAAE;EACtB,IAAI,MAAMA,UAAQ,GAAG,IAAI,EAAE;EAC3B,KAAK,YAAY,GAAGA,WAAQ;EAC5B,KAAK,MAAM,CAAC,IAAI,CAAC,WAAW,EAAE,EAAC;EAC/B,KAAK;EACL,IAAI,OAAO,MAAM;EACjB,IAAI;EACJ,GAAG,CAAC,MAAM,KAAK,EAAE;EACjB,GAAG,KAAK,CAAC,YAAY,GAAG,aAAY;EACpC,GAAG,KAAK,CAAC,MAAM,GAAG,OAAM;EACxB,GAAG,MAAM,KAAK;EACd,GAAG,SAAS;EACZ,GAAG,cAAc,GAAG,MAAK;EACzB,GAAG,WAAW,GAAE;EAChB,GAAG;EACH,EAAE;EACH,CAAC;EAIM,SAAS,WAAW,GAAG;EAC9B,CAAC,IAAI;EACL,EAAE,IAAI,MAAM,GAAG,IAAI,GAAE;EACrB,EAAE,IAAIA,UAAQ,IAAI,MAAM,EAAE;EAC1B;EACA,GAAG,iBAAiB,GAAG,KAAI;EAC3B,GAAG,GAAG,GAAG,KAAI;EACb,GAAG,IAAI,YAAY;EACnB,IAAI,YAAY,GAAG,KAAI;EACvB,GAAG,MAAM,IAAIA,UAAQ,GAAG,MAAM,EAAE;EAChC;EACA,GAAG,IAAI,KAAK,GAAG,IAAI,KAAK,CAAC,6BAA6B,EAAC;EACvD,GAAG,KAAK,CAAC,UAAU,GAAG,KAAI;EAC1B,GAAG,MAAM,KAAK;EACd,GAAG,MAAM,IAAI,CAAC,cAAc,EAAE;EAC9B,GAAG,MAAM,IAAI,KAAK,CAAC,0CAA0C,CAAC;EAC9D,GAAG;EACH;EACA,EAAE,OAAO,MAAM;each,EAAE,CAAC,MAAM,KAAK,EAAE;EAChB,EAAE,WAAW,GAAE;each,EAAE,IAAI,KAAK,YAAY,UAAU,IAAI,KAAK,CAAC,OAAO,CAAC,UAAU,CAAC,0BAA0B,CAAC,EAAE;EAC3F,GAAG,KAAK,CAAC,UAAU,GAAG,KAAI;EAC1B,GAAG;EACH,EAAE,MAAM,KAAK;EACb,EAAE;EACH,CAAC;AACD;EACO,SAAS,IAAI,GAAG;EACvB,CAAC,IAAI,KAAK,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC5B,CAAC,IAAI,SAAS,GAAG,KAAK,IAAI,EAAC;EAC3B,CAAC,KAAK,GAAG,KAAK,GAAG,KAAI;EACrB,CAAC,IAAI,KAAK,GAAG,IAAI,EAAE;EACnB,EAAE,QAAQ,KAAK;each,GAAG,KAAK,IAAI;EACZ,IAAI,KAAK,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC3B,IAAI,KAAK;EACT,GAAG,KAAK,IAAI;EACZ,IAAI,IAAI,SAAS,IAAI,CAAC,EAAE;EACxB,KAAK,OAAO,UAAU,EAAE;EACxB,KAAK;EACL,IAAI,KAAK,GAAG,QAAQ,CAAC,SAAS,CAACA,UAAQ,EAAC;EACxC,IAAIA,UAAQ,IAAI,EAAC;EACjB,IAAI,KAAK;EACT,GAAG,KAAK,IAAI;EACZ,IAAI,IAAI,SAAS,IAAI,CAAC,EAAE;EACxB,KAAK,IAAI,KAAK,GAAG,QAAQ,CAAC,UAAU,CAACA,UAAQ,EAAC;EAC9C,KAAK,IAAI,cAAc,CAAC,UAAU,GAAG,CAAC,EAAE;EACxC;EACA,MAAM,IAAI,UAAU,GAAG,MAAM,CAAC,CAAC,CAAC,GAAG,CAACA,UAAQ,CAAC,GAAG,IAAI,KAAK,CAAC,KAAK,GAAG,CAACA,UAAQ,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC,EAAC;EACvF,MAAMA,UAAQ,IAAI,EAAC;EACnB,MAAM,OAAO,CAAC,CAAC,UAAU,GAAG,KAAK,IAAI,KAAK,GAAG,CAAC,GAAG,GAAG,GAAG,CAAC,GAAG,CAAC,KAAK,CAAC,IAAI,UAAU;EAChF,MAAM;EACN,KAAKA,UAAQ,IAAI,EAAC;EAClB,KAAK,OAAO,KAAK;EACjB,KAAK;EACL,IAAI,KAAK,GAAG,QAAQ,CAAC,SAAS,CAACA,UAAQ,EAAC;EACxC,IAAIA,UAAQ,IAAI,EAAC;EACjB,IAAI,KAAK;EACT,GAAG,KAAK,IAAI;EACZ,IAAI,IAAI,SAAS,IAAI,CAAC,EAAE;EACxB,KAAK,IAAI,KAAK,GAAG,QAAQ,CAAC,UAAU,CAACA,UAAQ,EAAC;EAC9C,KAAKA,UAAQ,IAAI,EAAC;EAClB,KAAK,OAAO,KAAK;EACjB,KAAK;EACL,IAAI,IAAI,cAAc,CAAC,cAAc;EACrC,KAAK,OAAO,GAAG,CAACA,UAAQ,EAAE,CAAC,GAAG,iBAAiB,GAAG,GAAG,CAACA,UAAQ,EAAE,CAAC,GAAG,eAAe,GAAG,GAAG,CAACA,UAAQ,EAAE,CAAC,GAAG,aAAa,GAAG,GAAG,CAACA,UAAQ,EAAE,CAAC,GAAG,WAAW;EACrJ,MAAM,GAAG,CAACA,UAAQ,EAAE,CAAC,GAAG,SAAS,IAAI,GAAG,CAACA,UAAQ,EAAE,CAAC,IAAI,EAAE,CAAC,IAAI,GAAG,CAACA,UAAQ,EAAE,CAAC,IAAI,CAAC,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,CAAC;EACtG,IAAI,KAAK,GAAG,QAAQ,CAAC,YAAY,CAACA,UAAQ,EAAC;EAC3C,IAAIA,UAAQ,IAAI,EAAC;EACjB,IAAI,KAAK;EACT,GAAG,KAAK,IAAI;EACZ;EACA,IAAI,OAAO,SAAS;EACpB,KAAK,KAAK,CAAC,CAAC;EACZ,KAAK,KAAK,CAAC,CAAC;EACZ,KAAK,KAAK,CAAC;EACX,MAAM,IAAI,KAAK,GAAG,GAAE;EACpB,MAAM,IAAI,KAAK,EAAE,CAAC,GAAG,EAAC;EACtB,MAAM,OAAO,CAAC,KAAK,GAAG,IAAI,EAAE,KAAK,SAAS,EAAE;EAC5C,OAAO,KAAK,CAAC,CAAC,EAAE,CAAC,GAAG,MAAK;EACzB,OAAO;EACP,MAAM,OAAO,SAAS,IAAI,CAAC,GAAG,KAAK,GAAG,SAAS,IAAI,CAAC,GAAG,KAAK,CAAC,IAAI,CAAC,EAAE,CAAC,GAAG,MAAM,CAAC,MAAM,CAAC,KAAK,CAAC;EAC5F,KAAK,KAAK,CAAC;EACX,MAAM,IAAI,IAAG;EACb,MAAM,IAAI,cAAc,CAAC,aAAa,EAAE;EACxC,OAAO,IAAI,MAAM,GAAG,GAAE;EACtB,OAAO,OAAO,CAAC,GAAG,GAAG,OAAO,EAAE,KAAK,SAAS;EAC5C,QAAQ,MAAM,CAAC,GAAG,CAAC,GAAG,IAAI,GAAE;EAC5B,OAAO,OAAO,MAAM;EACpB,OAAO,MAAM;EACb,OAAO,IAAI,mBAAmB,EAAE;EAChC,QAAQ,cAAc,CAAC,aAAa,GAAG,KAAI;EAC3C,QAAQ,mBAAmB,GAAG,MAAK;EACnC,QAAQ;EACR,OAAO,IAAI,GAAG,GAAG,IAAI,GAAG,GAAE;EAC1B,OAAO,OAAO,CAAC,GAAG,GAAG,IAAI,EAAE,KAAK,SAAS;EACzC,QAAQ,GAAG,CAAC,GAAG,CAAC,GAAG,EAAE,IAAI,EAAE,EAAC;EAC5B,OAAO,OAAO,GAAG;EACjB,OAAO;EACP,KAAK,KAAK,CAAC;EACX,MAAM,OAAO,SAAS;EACtB,KAAK;EACL,MAAM,MAAM,IAAI,KAAK,CAAC,2CAA2C,GAAG,SAAS,CAAC;EAC9E,KAAK;EACL,GAAG;EACH,IAAI,MAAM,IAAI,KAAK,CAAC,gBAAgB,GAAG,KAAK,CAAC;EAC7C,GAAG;EACH,EAAE;EACH,CAAC,QAAQ,SAAS;EAClB,EAAE,KAAK,CAAC;EACR,GAAG,OAAO,KAAK;each,EAAE,KAAK,CAAC;EACR,GAAG,OAAO,CAAC,KAAK;EAChB,EAAE,KAAK,CAAC;EACR,GAAG,OAAO,OAAO,CAAC,KAAK,CAAC;EACxB,EAAE,KAAK,CAAC;EACR,GAAG,IAAI,YAAY,IAAIA,UAAQ,EAAE;EACjC,IAAI,OAAO,SAAS,CAAC,KAAK,CAACA,UAAQ,GAAG,cAAc,EAAE,CAACA,UAAQ,IAAI,KAAK,IAAI,cAAc,CAAC;EAC3F,IAAI;EACJ,GAAG,IAAI,YAAY,IAAI,CAAC,IAAI,MAAM,GAAG,GAAG,IAAI,KAAK,GAAG,EAAE,EAAE;EACxD;EACA,IAAI,IAAI,MAAM,GAAG,KAAK,GAAG,EAAE,GAAG,eAAe,CAAC,KAAK,CAAC,GAAG,cAAc,CAAC,KAAK,EAAC;EAC5E,IAAI,IAAI,MAAM,IAAI,IAAI;EACtB,KAAK,OAAO,MAAM;EAClB,IAAI;EACJ,GAAG,OAAO,eAAe,CAAC,KAAK,CAAC;EAChC,EAAE,KAAK,CAAC;EACR,GAAG,IAAI,KAAK,GAAG,IAAI,KAAK,CAAC,KAAK,EAAC;EAC/B,GAAG,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,KAAK,EAAE,CAAC,EAAE,EAAE;EACnC,IAAI,KAAK,CAAC,CAAC,CAAC,GAAG,IAAI,GAAE;EACrB,IAAI;EACJ,GAAG,OAAO,KAAK;each,EAAE,KAAK,CAAC;EACR,GAAG,IAAI,cAAc,CAAC,aAAa,EAAE;EACrC,IAAI,IAAI,MAAM,GAAG,GAAE;EACnB,IAAI,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,KAAK,EAAE,CAAC,EAAE,EAAE;EACpC,KAAK,MAAM,CAAC,OAAO,EAAE,CAAC,GAAG,IAAI,GAAE;EAC/B,KAAK;EACL,IAAI,OAAO,MAAM;EACjB,IAAI,MAAM;EACV,IAAI,IAAI,mBAAmB,EAAE;EAC7B,KAAK,cAAc,CAAC,aAAa,GAAG,KAAI;EACxC,KAAK,mBAAmB,GAAG,MAAK;EAChC,KAAK;EACL,IAAI,IAAI,GAAG,GAAG,IAAI,GAAG,GAAE;EACvB,IAAI,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,KAAK,EAAE,CAAC,EAAE,EAAE;EACpC,KAAK,GAAG,CAAC,GAAG,CAAC,IAAI,EAAE,EAAE,IAAI,EAAE,EAAC;EAC5B,KAAK;EACL,IAAI,OAAO,GAAG;EACd,IAAI;EACJ,EAAE,KAAK,CAAC;EACR,GAAG,IAAI,CAAC,KAAK,IAAI,CAAC,KAAK,aAAa,EAAE;EACtC,IAAI,IAAI,SAAS,GAAG,iBAAiB,CAAC,KAAK,GAAG,IAAI,EAAC;EACnD,IAAI,IAAI,SAAS,EAAE;EACnB,KAAK,IAAI,CAAC,SAAS,CAAC,IAAI;EACxB,MAAM,SAAS,CAAC,IAAI,GAAG,qBAAqB,CAAC,SAAS,EAAC;EACvD,KAAK,OAAO,SAAS,CAAC,IAAI,EAAE;EAC5B,KAAK,MAAM,IAAI,cAAc,CAAC,aAAa,EAAE;EAC7C,KAAK,IAAI,iBAAiB,GAAG,SAAS,CAAC,MAAM;EAC7C;EACA,MAAM,GAAG,GAAG,KAAI;EAChB,MAAM,OAAO,cAAc,CAAC,aAAa,EAAE;EAC3C,MAAM,EAAC;EACP,KAAK,IAAI,iBAAiB,KAAK,IAAI;EACnC,MAAM,cAAc,CAAC,UAAU,GAAG,iBAAiB,GAAG,kBAAiB;EACvE;EACA,MAAM,iBAAiB,CAAC,MAAM,CAAC,KAAK,CAAC,iBAAiB,EAAE,CAAC,CAAC,EAAE,iBAAiB,CAAC,MAAM,CAAC,CAAC,MAAM,CAAC,iBAAiB,CAAC,EAAC;EAChH,KAAK,SAAS,GAAG,iBAAiB,CAAC,KAAK,GAAG,IAAI,EAAC;EAChD,KAAK,IAAI,SAAS,EAAE;EACpB,MAAM,IAAI,CAAC,SAAS,CAAC,IAAI;EACzB,OAAO,SAAS,CAAC,IAAI,GAAG,qBAAqB,CAAC,SAAS,EAAC;EACxD,MAAM,OAAO,SAAS,CAAC,IAAI,EAAE;EAC7B,MAAM;EACN,MAAM,OAAO,KAAK;EAClB,KAAK;EACL,KAAK,OAAO,KAAK;EACjB,IAAI,MAAM;EACV,IAAI,IAAI,SAAS,GAAG,iBAAiB,CAAC,KAAK,EAAC;EAC5C,IAAI,IAAI,SAAS,EAAE;EACnB,KAAK,IAAI,SAAS,CAAC,WAAW;EAC9B,MAAM,OAAO,SAAS,CAAC,IAAI,CAAC;EAC5B;EACA,MAAM,OAAO,SAAS,CAAC,IAAI,EAAE,CAAC;EAC9B,KAAK;EACL;EACA,KAAK,OAAO,IAAI,GAAG,CAAC,IAAI,EAAE,CAAC;EAC3B,IAAI;EACJ,EAAE,KAAK,CAAC;EACR,GAAG,QAAQ,KAAK;EAChB,IAAI,KAAK,IAAI,EAAE,OAAO,KAAK;EAC3B,IAAI,KAAK,IAAI,EAAE,OAAO,IAAI;EAC1B,IAAI,KAAK,IAAI,EAAE,OAAO,IAAI;EAC1B,IAAI,KAAK,IAAI,EAAE,OAAO;EACtB,IAAI,KAAK,IAAI,CAAC;EACd,IAAI;EACJ,KAAK,MAAM,IAAI,KAAK,CAAC,gBAAgB,GAAG,KAAK,CAAC;EAC9C,IAAI;EACJ,EAAE;EACH,GAAG,IAAI,KAAK,CAAC,KAAK,CAAC,EAAE;EACrB,IAAI,IAAI,KAAK,GAAG,IAAI,KAAK,CAAC,6BAA6B,EAAC;EACxD,IAAI,KAAK,CAAC,UAAU,GAAG,KAAI;EAC3B,IAAI,MAAM,KAAK;each,IAAI;EACJ,GAAG,MAAM,IAAI,KAAK,CAAC,qBAAqB,GAAG,KAAK,CAAC;EACjD,EAAE;EACH,CAAC;EACD,MAAM,SAAS,GAAG,4BAA2B;EAC7C,SAAS,qBAAqB,CAAC,SAAS,EAAE;EAC1C,CAAC,IAAI,CAAC,GAAG,SAAS,CAAC,OAAM;EACzB,CAAC,SAAS,UAAU,GAAG;EACvB;EACA,EAAE,IAAI,UAAU,CAAC,KAAK,EAAE,GAAG,CAAC,EAAE;EAC9B,GAAG,IAAI,CAAC,IAAI,GAAG,CAAC,IAAI,QAAQ,CAAC,GAAG,EAAE,GAAG,EAAE,gCAAgC,GAAG,SAAS,CAAC,GAAG,CAAC,GAAG,IAAI,SAAS,CAAC,IAAI,CAAC,GAAG,CAAC,GAAG,GAAG,GAAG,MAAM,IAAI,GAAG,GAAG,IAAI,CAAC,SAAS,CAAC,GAAG,CAAC,GAAG,OAAO,CAAC,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC,GAAG,IAAI,CAAC,EAAE,eAAe,EAAE,IAAI,EAAC;EACpN,GAAG,OAAO,IAAI,CAAC,IAAI,EAAE;EACrB,GAAG;EACH,EAAE,eAAe,CAAE,EAAC;EACpB,EAAE,IAAI,MAAM,GAAG,GAAE;EACjB,EAAE,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE;EAC9B,GAAG,IAAI,GAAG,GAAG,SAAS,CAAC,CAAC,EAAC;EACzB,GAAG,MAAM,CAAC,GAAG,CAAC,GAAG,IAAI,GAAE;EACvB,GAAG;EACH,EAAE,OAAO,MAAM;each,EAAE;EACH,CAAC,UAAU,CAAC,KAAK,GAAG,EAAC;EACrB,CAAC,OAAO,UAAU;EAClB,CAAC;AACD;EACA,SAAS,eAAe,CAAC,cAAc,EAAE;EACzC;EACA,CAAC,IAAI,KAAK,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC5B;EACA,CAAC,KAAK,GAAG,KAAK,GAAG,KAAI;EACrB,CAAC,IAAI,KAAK,GAAG,IAAI,EAAE;EACnB,EAAE,QAAQ,KAAK;each,GAAG,KAAK,IAAI,EAAEA,UAAQ,GAAE;EACxB,IAAI,KAAK;EACT,GAAG,KAAK,IAAI,EAAEA,UAAQ,IAAI,EAAC;EAC3B,IAAI,KAAK;EACT,GAAG,KAAK,IAAI,EAAEA,UAAQ,IAAI,EAAC;EAC3B,GAAG;EACH,EAAE;EACH,CAAC;AACD;EACA,IAAI,eAAe,GAAG,aAAY;EAwClC,SAAS,YAAY,CAAC,MAAM,EAAE;EAC9B,CAAC,IAAI,OAAM;EACX,CAAC,IAAI,MAAM,GAAG,EAAE,EAAE;EAClB,EAAE,IAAI,MAAM,GAAG,eAAe,CAAC,MAAM,CAAC;EACtC,GAAG,OAAO,MAAM;EAChB,EAAE;EACH,CAAC,IAAI,MAAM,GAAG,EAAE,IAAI,OAAO;EAC3B,EAAE,OAAO,OAAO,CAAC,MAAM,CAAC,GAAG,CAAC,QAAQ,CAACA,UAAQ,EAAEA,UAAQ,IAAI,MAAM,CAAC,CAAC;EACnE,CAAC,MAAM,GAAG,GAAGA,UAAQ,GAAG,OAAM;EAC9B,CAAC,MAAM,KAAK,GAAG,GAAE;EACjB,CAAC,MAAM,GAAG,GAAE;EACZ,CAAC,OAAOA,UAAQ,GAAG,GAAG,EAAE;EACxB,EAAE,MAAM,KAAK,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC/B,EAAE,IAAI,CAAC,KAAK,GAAG,IAAI,MAAM,CAAC,EAAE;EAC5B;EACA,GAAG,KAAK,CAAC,IAAI,CAAC,KAAK,EAAC;EACpB,GAAG,MAAM,IAAI,CAAC,KAAK,GAAG,IAAI,MAAM,IAAI,EAAE;EACtC;EACA,GAAG,MAAM,KAAK,GAAG,GAAG,CAACA,UAAQ,EAAE,CAAC,GAAG,KAAI;EACvC,GAAG,KAAK,CAAC,IAAI,CAAC,CAAC,CAAC,KAAK,GAAG,IAAI,KAAK,CAAC,IAAI,KAAK,EAAC;EAC5C,GAAG,MAAM,IAAI,CAAC,KAAK,GAAG,IAAI,MAAM,IAAI,EAAE;EACtC;EACA,GAAG,MAAM,KAAK,GAAG,GAAG,CAACA,UAAQ,EAAE,CAAC,GAAG,KAAI;EACvC,GAAG,MAAM,KAAK,GAAG,GAAG,CAACA,UAAQ,EAAE,CAAC,GAAG,KAAI;EACvC,GAAG,KAAK,CAAC,IAAI,CAAC,CAAC,CAAC,KAAK,GAAG,IAAI,KAAK,EAAE,KAAK,KAAK,IAAI,CAAC,CAAC,GAAG,KAAK,EAAC;EAC5D,GAAG,MAAM,IAAI,CAAC,KAAK,GAAG,IAAI,MAAM,IAAI,EAAE;EACtC;EACA,GAAG,MAAM,KAAK,GAAG,GAAG,CAACA,UAAQ,EAAE,CAAC,GAAG,KAAI;EACvC,GAAG,MAAM,KAAK,GAAG,GAAG,CAACA,UAAQ,EAAE,CAAC,GAAG,KAAI;EACvC,GAAG,MAAM,KAAK,GAAG,GAAG,CAACA,UAAQ,EAAE,CAAC,GAAG,KAAI;EACvC,GAAG,IAAI,IAAI,GAAG,CAAC,CAAC,KAAK,GAAG,IAAI,KAAK,IAAI,KAAK,KAAK,IAAI,IAAI,CAAC,IAAI,KAAK,IAAI,IAAI,CAAC,GAAG,MAAK;EAClF,GAAG,IAAI,IAAI,GAAG,MAAM,EAAE;EACtB,IAAI,IAAI,IAAI,QAAO;EACnB,IAAI,KAAK,CAAC,IAAI,CAAC,CAAC,CAAC,IAAI,KAAK,EAAE,IAAI,KAAK,IAAI,MAAM,EAAC;EAChD,IAAI,IAAI,GAAG,MAAM,IAAI,IAAI,GAAG,KAAK,EAAC;EAClC,IAAI;EACJ,GAAG,KAAK,CAAC,IAAI,CAAC,IAAI,EAAC;EACnB,GAAG,MAAM;EACT,GAAG,KAAK,CAAC,IAAI,CAAC,KAAK,EAAC;EACpB,GAAG;AACH;EACA,EAAE,IAAI,KAAK,CAAC,MAAM,IAAI,MAAM,EAAE;EAC9B,GAAG,MAAM,IAAI,YAAY,CAAC,KAAK,CAAC,MAAM,EAAE,KAAK,EAAC;EAC9C,GAAG,KAAK,CAAC,MAAM,GAAG,EAAC;EACnB,GAAG;EACH,EAAE;AACF;EACA,CAAC,IAAI,KAAK,CAAC,MAAM,GAAG,CAAC,EAAE;EACvB,EAAE,MAAM,IAAI,YAAY,CAAC,KAAK,CAAC,MAAM,EAAE,KAAK,EAAC;EAC7C,EAAE;AACF;EACA,CAAC,OAAO,MAAM;EACd,CAAC;EACD,IAAI,YAAY,GAAG,MAAM,CAAC,aAAY;EACtC,SAAS,cAAc,CAAC,MAAM,EAAE;EAChC,CAAC,IAAI,KAAK,GAAGA,WAAQ;EACrB,CAAC,IAAI,KAAK,GAAG,IAAI,KAAK,CAAC,MAAM,EAAC;EAC9B,CAAC,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,CAAC,EAAE,EAAE;EAClC,EAAE,MAAM,IAAI,GAAG,GAAG,CAACA,UAAQ,EAAE,CAAC,CAAC;EAC/B,EAAE,IAAI,CAAC,IAAI,GAAG,IAAI,IAAI,CAAC,EAAE;EACzB,GAAGA,UAAQ,GAAG,MAAK;EACnB,OAAO,MAAM;EACb,OAAO;EACP,MAAM,KAAK,CAAC,CAAC,CAAC,GAAG,KAAI;EACrB,MAAM;EACN,KAAK,OAAO,YAAY,CAAC,KAAK,CAAC,MAAM,EAAE,KAAK,CAAC;EAC7C,CAAC;EACD,SAAS,eAAe,CAAC,MAAM,EAAE;EACjC,CAAC,IAAI,MAAM,GAAG,CAAC,EAAE;EACjB,EAAE,IAAI,MAAM,GAAG,CAAC,EAAE;EAClB,GAAG,IAAI,MAAM,KAAK,CAAC;EACnB,IAAI,OAAO,EAAE;EACb,QAAQ;EACR,IAAI,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC3B,IAAI,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,EAAE;EACxB,KAAKA,UAAQ,IAAI,EAAC;EAClB,KAAK,MAAM;EACX,KAAK;EACL,IAAI,OAAO,YAAY,CAAC,CAAC,CAAC;EAC1B,IAAI;EACJ,GAAG,MAAM;EACT,GAAG,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC1B,GAAG,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC1B,GAAG,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,EAAE;EACzC,IAAIA,UAAQ,IAAI,EAAC;EACjB,IAAI,MAAM;EACV,IAAI;EACJ,GAAG,IAAI,MAAM,GAAG,CAAC;EACjB,IAAI,OAAO,YAAY,CAAC,CAAC,EAAE,CAAC,CAAC;EAC7B,GAAG,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC1B,GAAG,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,EAAE;EACvB,IAAIA,UAAQ,IAAI,EAAC;EACjB,IAAI,MAAM;EACV,IAAI;EACJ,GAAG,OAAO,YAAY,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC;EAC/B,GAAG;EACH,EAAE,MAAM;EACR,EAAE,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EACzB,EAAE,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EACzB,EAAE,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EACzB,EAAE,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EACzB,EAAE,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,EAAE;EAC5E,GAAGA,UAAQ,IAAI,EAAC;EAChB,GAAG,MAAM;EACT,GAAG;EACH,EAAE,IAAI,MAAM,GAAG,CAAC,EAAE;EAClB,GAAG,IAAI,MAAM,KAAK,CAAC;EACnB,IAAI,OAAO,YAAY,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC;EACnC,QAAQ;EACR,IAAI,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC3B,IAAI,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,EAAE;EACxB,KAAKA,UAAQ,IAAI,EAAC;EAClB,KAAK,MAAM;EACX,KAAK;EACL,IAAI,OAAO,YAAY,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC;EACtC,IAAI;EACJ,GAAG,MAAM,IAAI,MAAM,GAAG,CAAC,EAAE;EACzB,GAAG,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC1B,GAAG,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC1B,GAAG,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,EAAE;EACzC,IAAIA,UAAQ,IAAI,EAAC;EACjB,IAAI,MAAM;EACV,IAAI;EACJ,GAAG,IAAI,MAAM,GAAG,CAAC;EACjB,IAAI,OAAO,YAAY,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC;EACzC,GAAG,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC1B,GAAG,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,EAAE;EACvB,IAAIA,UAAQ,IAAI,EAAC;EACjB,IAAI,MAAM;EACV,IAAI;EACJ,GAAG,OAAO,YAAY,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC;EAC3C,GAAG,MAAM;EACT,GAAG,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC1B,GAAG,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC1B,GAAG,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC1B,GAAG,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC1B,GAAG,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,EAAE;EAC7E,IAAIA,UAAQ,IAAI,EAAC;EACjB,IAAI,MAAM;EACV,IAAI;EACJ,GAAG,IAAI,MAAM,GAAG,EAAE,EAAE;EACpB,IAAI,IAAI,MAAM,KAAK,CAAC;EACpB,KAAK,OAAO,YAAY,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC;EAChD,SAAS;EACT,KAAK,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC5B,KAAK,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,EAAE;EACzB,MAAMA,UAAQ,IAAI,EAAC;EACnB,MAAM,MAAM;EACZ,MAAM;EACN,KAAK,OAAO,YAAY,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC;EACnD,KAAK;EACL,IAAI,MAAM,IAAI,MAAM,GAAG,EAAE,EAAE;EAC3B,IAAI,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC3B,IAAI,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC3B,IAAI,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,EAAE;EAC1C,KAAKA,UAAQ,IAAI,GAAE;EACnB,KAAK,MAAM;EACX,KAAK;EACL,IAAI,IAAI,MAAM,GAAG,EAAE;EACnB,KAAK,OAAO,YAAY,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC;EACtD,IAAI,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC3B,IAAI,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,EAAE;EACxB,KAAKA,UAAQ,IAAI,GAAE;EACnB,KAAK,MAAM;EACX,KAAK;EACL,IAAI,OAAO,YAAY,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC;EACxD,IAAI,MAAM;EACV,IAAI,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC3B,IAAI,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC3B,IAAI,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC3B,IAAI,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC3B,IAAI,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,EAAE;EAC9E,KAAKA,UAAQ,IAAI,GAAE;EACnB,KAAK,MAAM;EACX,KAAK;EACL,IAAI,IAAI,MAAM,GAAG,EAAE,EAAE;EACrB,KAAK,IAAI,MAAM,KAAK,EAAE;EACtB,MAAM,OAAO,YAAY,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC;EAC7D,UAAU;EACV,MAAM,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC7B,MAAM,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,EAAE;EAC1B,OAAOA,UAAQ,IAAI,GAAE;EACrB,OAAO,MAAM;EACb,OAAO;EACP,MAAM,OAAO,YAAY,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC;EAChE,MAAM;EACN,KAAK,MAAM;EACX,KAAK,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC5B,KAAK,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC5B,KAAK,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,EAAE;EAC3C,MAAMA,UAAQ,IAAI,GAAE;EACpB,MAAM,MAAM;EACZ,MAAM;EACN,KAAK,IAAI,MAAM,GAAG,EAAE;EACpB,MAAM,OAAO,YAAY,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC;EACnE,KAAK,IAAI,CAAC,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC5B,KAAK,IAAI,CAAC,CAAC,GAAG,IAAI,IAAI,CAAC,EAAE;EACzB,MAAMA,UAAQ,IAAI,GAAE;EACpB,MAAM,MAAM;EACZ,MAAM;EACN,KAAK,OAAO,YAAY,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC;EACrE,KAAK;EACL,IAAI;EACJ,GAAG;EACH,EAAE;EACH,CAAC;AACD;EACA,SAAS,OAAO,CAAC,MAAM,EAAE;EACzB,CAAC,OAAO,cAAc,CAAC,WAAW;EAClC;EACA,EAAE,UAAU,CAAC,SAAS,CAAC,KAAK,CAAC,IAAI,CAAC,GAAG,EAAEA,UAAQ,EAAEA,UAAQ,IAAI,MAAM,CAAC;EACpE,EAAE,GAAG,CAAC,QAAQ,CAACA,UAAQ,EAAEA,UAAQ,IAAI,MAAM,CAAC;EAC5C,CAAC;AASD;EACA,SAAS,UAAU,GAAG;EACtB,CAAC,IAAI,KAAK,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC5B,CAAC,IAAI,KAAK,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC5B,CAAC,IAAI,IAAI,GAAG,CAAC,KAAK,IAAI,CAAC,IAAI,MAAK;EAChC,CAAC,IAAI,GAAG,GAAG,CAAC,IAAI,IAAI,EAAE,IAAI,KAAI;EAC9B,CAAC,IAAI,IAAI,GAAG,IAAI,GAAG,MAAK;EACxB,CAAC,IAAI,IAAG;EACR,CAAC,IAAI,GAAG,IAAI,CAAC,EAAE,GAAG,GAAG,IAAI,CAAC,GAAG,CAAC,IAAI,EAAE,CAAC,EAAE,EAAC;EACxC,MAAM,IAAI,GAAG,IAAI,EAAE,EAAE,GAAG,GAAG,IAAI,CAAC,GAAG,CAAC,IAAI,GAAG,IAAI,EAAE,GAAG,GAAG,EAAE,EAAC;EAC1D,MAAM,GAAG,GAAG,IAAI,IAAI,CAAC,GAAG,QAAQ,GAAG,IAAG;EACtC,CAAC,OAAO,IAAI,GAAG,MAAM,GAAG,CAAC,GAAG,GAAG,GAAG;EAClC,CAAC;AACD;EACA,IAAI,QAAQ,GAAG,IAAI,KAAK,CAAC,IAAI,EAAC;EAC9B,SAAS,OAAO,GAAG;EACnB,CAAC,IAAI,MAAM,GAAG,GAAG,CAACA,UAAQ,EAAE,EAAC;EAC7B,CAAC,IAAI,MAAM,IAAI,IAAI,IAAI,MAAM,GAAG,IAAI,EAAE;EACtC;EACA,EAAE,MAAM,GAAG,MAAM,GAAG,KAAI;EACxB,EAAE,IAAI,YAAY,IAAIA,UAAQ;EAC9B,GAAG,OAAO,SAAS,CAAC,KAAK,CAACA,UAAQ,GAAG,cAAc,EAAE,CAACA,UAAQ,IAAI,MAAM,IAAI,cAAc,CAAC;EAC3F,OAAO,IAAI,EAAE,YAAY,IAAI,CAAC,IAAI,MAAM,GAAG,GAAG,CAAC;EAC/C,GAAG,OAAO,eAAe,CAAC,MAAM,CAAC;EACjC,EAAE,MAAM;EACR,EAAEA,UAAQ,GAAE;EACZ,EAAE,OAAO,IAAI,EAAE;each,EAAE;EACH,CAAC,IAAI,GAAG,GAAG,CAAC,CAAC,MAAM,IAAI,CAAC,KAAK,MAAM,GAAG,CAAC,GAAG,QAAQ,CAAC,SAAS,CAACA,UAAQ,CAAC,GAAG,MAAM,GAAG,CAAC,GAAG,GAAG,CAACA,UAAQ,CAAC,GAAG,CAAC,CAAC,IAAI,MAAK;EACjH,CAAC,IAAI,KAAK,GAAG,QAAQ,CAAC,GAAG,EAAC;EAC1B,CAAC,IAAI,aAAa,GAAGA,WAAQ;EAC7B,CAAC,IAAI,GAAG,GAAGA,UAAQ,GAAG,MAAM,GAAG,EAAC;EAChC,CAAC,IAAI,MAAK;EACV,CAAC,IAAI,CAAC,GAAG,EAAC;EACV,CAAC,IAAI,KAAK,IAAI,KAAK,CAAC,KAAK,IAAI,MAAM,EAAE;EACrC,EAAE,OAAO,aAAa,GAAG,GAAG,EAAE;EAC9B,GAAG,KAAK,GAAG,QAAQ,CAAC,SAAS,CAAC,aAAa,EAAC;EAC5C,GAAG,IAAI,KAAK,IAAI,KAAK,CAAC,CAAC,EAAE,CAAC,EAAE;EAC5B,IAAI,aAAa,GAAG,WAAU;EAC9B,IAAI,KAAK;EACT,IAAI;EACJ,GAAG,aAAa,IAAI,EAAC;EACrB,GAAG;EACH,EAAE,GAAG,IAAI,EAAC;EACV,EAAE,OAAO,aAAa,GAAG,GAAG,EAAE;EAC9B,GAAG,KAAK,GAAG,GAAG,CAAC,aAAa,EAAE,EAAC;EAC/B,GAAG,IAAI,KAAK,IAAI,KAAK,CAAC,CAAC,EAAE,CAAC,EAAE;EAC5B,IAAI,aAAa,GAAG,WAAU;EAC9B,IAAI,KAAK;EACT,IAAI;EACJ,GAAG;EACH,EAAE,IAAI,aAAa,KAAK,GAAG,EAAE;EAC7B,GAAGA,UAAQ,GAAG,cAAa;EAC3B,GAAG,OAAO,KAAK,CAAC,MAAM;EACtB,GAAG;EACH,EAAE,GAAG,IAAI,EAAC;EACV,EAAE,aAAa,GAAGA,WAAQ;EAC1B,EAAE;EACH,CAAC,KAAK,GAAG,GAAE;EACX,CAAC,QAAQ,CAAC,GAAG,CAAC,GAAG,MAAK;EACtB,CAAC,KAAK,CAAC,KAAK,GAAG,OAAM;EACrB,CAAC,OAAO,aAAa,GAAG,GAAG,EAAE;EAC7B,EAAE,KAAK,GAAG,QAAQ,CAAC,SAAS,CAAC,aAAa,EAAC;EAC3C,EAAE,KAAK,CAAC,IAAI,CAAC,KAAK,EAAC;EACnB,EAAE,aAAa,IAAI,EAAC;EACpB,EAAE;EACH,CAAC,GAAG,IAAI,EAAC;EACT,CAAC,OAAO,aAAa,GAAG,GAAG,EAAE;EAC7B,EAAE,KAAK,GAAG,GAAG,CAAC,aAAa,EAAE,EAAC;EAC9B,EAAE,KAAK,CAAC,IAAI,CAAC,KAAK,EAAC;EACnB,EAAE;EACH;EACA,CAAC,IAAI,MAAM,GAAG,MAAM,GAAG,EAAE,GAAG,eAAe,CAAC,MAAM,CAAC,GAAG,cAAc,CAAC,MAAM,EAAC;EAC5E,CAAC,IAAI,MAAM,IAAI,IAAI;EACnB,EAAE,OAAO,KAAK,CAAC,MAAM,GAAG,MAAM;EAC9B,CAAC,OAAO,KAAK,CAAC,MAAM,GAAG,eAAe,CAAC,MAAM,CAAC;EAC9C,CAAC;AACD;EACO,MAAM,GAAG,CAAC;EACjB,CAAC,WAAW,CAAC,KAAK,EAAE;EACpB,EAAE,IAAI,CAAC,KAAK,GAAG,MAAK;EACpB,EAAE;EACH,CAAC;AACD;EACA,IAAI,IAAI,GAAG,OAAO,MAAM,IAAI,QAAQ,GAAG,MAAM,GAAGD,SAAM;AACtD;EACA,iBAAiB,CAAC,CAAC,CAAC,GAAG,CAAC,UAAU,KAAK;EACvC;EACA,CAAC,OAAO,IAAI,IAAI,CAAC,UAAU,CAAC;EAC5B,EAAC;AACD;EACA,iBAAiB,CAAC,CAAC,CAAC,GAAG,CAAC,QAAQ,KAAK;EACrC;EACA,CAAC,OAAO,IAAI,IAAI,CAAC,QAAQ,GAAG,IAAI,CAAC;EACjC,EAAC;AACD;EACA,iBAAiB,CAAC,CAAC,CAAC,GAAG,CAAC,MAAM,KAAK;EACnC;EACA,CAAC,OAAO,IAAI,QAAQ,CAAC,MAAM,CAAC,MAAM,EAAE,MAAM,CAAC,UAAU,EAAE,MAAM,CAAC,UAAU,CAAC,CAAC,YAAY,CAAC,CAAC,CAAC;EACzF,EAAC;AACD;EACA,iBAAiB,CAAC,CAAC,CAAC,GAAG,CAAC,MAAM,KAAK;EACnC;EACA,CAAC,OAAO,MAAM,CAAC,CAAC,CAAC,CAAC,IAAI,IAAI,QAAQ,CAAC,MAAM,CAAC,MAAM,EAAE,MAAM,CAAC,UAAU,EAAE,MAAM,CAAC,UAAU,CAAC,CAAC,YAAY,CAAC,CAAC,CAAC,CAAC;EACxG,EAAC;AACD;EACA;EACA,MAAM,gBAAgB,GAAG,MAAM;EAC/B,CAAC,IAAI,UAAU,GAAG,IAAI,GAAE;EACxB,CAAC,IAAI,SAAS,GAAG,UAAU,CAAC,CAAC,EAAC;EAC9B,CAAC,IAAI,EAAE,GAAG,UAAU,CAAC,CAAC,EAAC;EACvB,CAAC,iBAAiB,CAAC,EAAE,GAAG,IAAI,CAAC,GAAG,UAAS;EACzC,CAAC,SAAS,CAAC,IAAI,GAAG,qBAAqB,CAAC,SAAS,EAAC;EAClD,CAAC,IAAI,MAAM,GAAG,GAAE;EAChB,CAAC,KAAK,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,UAAU,CAAC,MAAM,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE;EACnD,EAAE,IAAI,GAAG,GAAG,SAAS,CAAC,CAAC,GAAG,CAAC,EAAC;EAC5B,EAAE,MAAM,CAAC,GAAG,CAAC,GAAG,UAAU,CAAC,CAAC,EAAC;EAC7B,EAAE;EACH,CAAC,OAAO,MAAM;EACd,EAAC;AACD;EACA,gBAAgB,CAAC,WAAW,GAAG,KAAI;EACnC,iBAAiB,CAAC,aAAa,CAAC,GAAG,iBAAgB;AACnD;EACA,iBAAiB,CAAC,EAAE,CAAC,GAAG,CAAC,IAAI,KAAK;EAClC,CAAC,OAAO,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,KAAK,EAAE,IAAI,CAAC,CAAC,CAAC,EAAE,IAAI,CAAC,CAAC,CAAC,CAAC;EAClD,EAAC;AACD;EACA,iBAAiB,CAAC,KAAK,CAAC,GAAG,CAAC,EAAE,KAAK;EACnC;EACA,CAAC,IAAI,CAAC,YAAY;EAClB,EAAE,YAAY,GAAG,IAAI,GAAG,GAAE;EAC1B,CAAC,IAAI,KAAK,GAAG,GAAG,CAACC,UAAQ,EAAC;EAC1B,CAAC,IAAI,OAAM;EACX;EACA;EACA,CAAC,IAAI,CAAC,KAAK,IAAI,CAAC,KAAK,CAAC;EACtB,EAAE,MAAM,GAAG,GAAE;EACb;EACA,EAAE,MAAM,GAAG,GAAE;AACb;EACA,CAAC,IAAI,QAAQ,GAAG,EAAE,MAAM,GAAE;EAC1B,CAAC,YAAY,CAAC,GAAG,CAAC,EAAE,EAAE,QAAQ,EAAC;EAC/B,CAAC,IAAI,gBAAgB,GAAG,IAAI,GAAE;EAC9B,CAAC,IAAI,QAAQ,CAAC,IAAI;EAClB,EAAE,OAAO,MAAM,CAAC,MAAM,CAAC,MAAM,EAAE,gBAAgB,CAAC;EAChD,CAAC,QAAQ,CAAC,MAAM,GAAG,iBAAgB;EACnC,CAAC,OAAO,gBAAgB;EACxB,EAAC;AACD;EACA,iBAAiB,CAAC,KAAK,CAAC,GAAG,CAAC,EAAE,KAAK;EACnC;EACA,CAAC,IAAI,QAAQ,GAAG,YAAY,CAAC,GAAG,CAAC,EAAE,EAAC;EACpC,CAAC,QAAQ,CAAC,IAAI,GAAG,KAAI;EACrB,CAAC,OAAO,QAAQ,CAAC,MAAM;EACvB,EAAC;AACD;EACA,iBAAiB,CAAC,GAAG,CAAC,GAAG,CAAC,KAAK,KAAK,IAAI,GAAG,CAAC,KAAK,CAAC,CAAC;EACnD,CAAC,iBAAiB,CAAC,GAAG,CAAC,GAAG,CAAC,IAAI,KAAK;EACpC;EACA;EACA,CAAC,IAAI,cAAc,CAAC,aAAa,EAAE;EACnC,EAAE,cAAc,CAAC,aAAa,GAAG,MAAK;EACtC,EAAE,mBAAmB,GAAG,KAAI;EAC5B,EAAE;EACH,CAAC,OAAO,IAAI,EAAE;EACd,CAAC,EAAE,WAAW,GAAG,KAAI;AACrB;AACA;EACO,MAAM,WAAW,GAAG,CAAC,OAAO,EAAE,cAAc,EAAE,QAAQ,EAAE,QAAQ,EAAE,WAAW,CAAC,MAAM,EAAE,OAAO,EAAE,OAAO,EAAE,UAAU,EAAE,SAAS,EAAE,SAAS,CAAC,CAAC,GAAG,CAAC,IAAI,IAAI,IAAI,GAAG,OAAO,EAAC;EAC5K,MAAM,cAAc,GAAG,CAAC,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAC;EACnE,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,WAAW,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE;EAC7C,CAAC,kBAAkB,CAAC,WAAW,CAAC,CAAC,CAAC,EAAE,cAAc,CAAC,CAAC,CAAC,EAAC;EACtD,CAAC;EACD,SAAS,kBAAkB,CAAC,cAAc,EAAE,GAAG,EAAE;EACjD,CAAC,iBAAiB,CAAC,GAAG,CAAC,GAAG,CAAC,MAAM,KAAK;EACtC,EAAE,IAAI,CAAC,cAAc;EACrB,GAAG,MAAM,IAAI,KAAK,CAAC,sCAAsC,GAAG,QAAQ,CAAC;EACrE;EACA,EAAE,OAAO,IAAI,IAAI,CAAC,cAAc,CAAC,CAAC,UAAU,CAAC,SAAS,CAAC,KAAK,CAAC,IAAI,CAAC,MAAM,EAAE,CAAC,CAAC,CAAC,MAAM,CAAC;EACpF,GAAE;EACH,CAAC;AACD;EACA,SAAS,SAAS,CAAC,QAAQ,EAAE;EAC7B,CAAC,IAAI,WAAW,GAAG,OAAM;EACzB,CAAC,IAAI,aAAa,GAAGA,WAAQ;EAE7B,CAAC,IAAI,mBAAmB,GAAG,eAAc;EACzC,CAAC,IAAI,iBAAiB,GAAG,aAAY;EACrC,CAAC,IAAI,cAAc,GAAG,UAAS;EAE/B,CAAC,IAAI,iBAAiB,GAAG,aAAY;EACrC;EACA,CAAC,IAAI,QAAQ,GAAG,IAAI,UAAU,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC,EAAE,MAAM,CAAC,EAAC;EACpD,CAAC,IAAI,eAAe,GAAG,kBAAiB;EACxC,CAAC,IAAI,YAAY,GAAG,eAAc;EAClC,CAAC,IAAI,mBAAmB,GAAG,eAAc;EACzC,CAAC,IAAI,KAAK,GAAG,QAAQ,GAAE;EACvB,CAAC,MAAM,GAAG,YAAW;EACrB,CAACA,UAAQ,GAAG,cAAa;EAEzB,CAAC,cAAc,GAAG,oBAAmB;EACrC,CAAC,YAAY,GAAG,kBAAiB;EACjC,CAAC,SAAS,GAAG,eAAc;EAE3B,CAAC,YAAY,GAAG,kBAAiB;EACjC,CAAC,GAAG,GAAG,SAAQ;each,CAAC,cAAc,GAAG,oBAAmB;EACrC,CAAC,iBAAiB,GAAG,gBAAe;EACpC,CAAC,cAAc,GAAG,aAAY;EAC9B,CAAC,QAAQ,GAAG,IAAI,QAAQ,CAAC,GAAG,CAAC,MAAM,EAAE,GAAG,CAAC,UAAU,EAAE,GAAG,CAAC,UAAU,EAAC;EACpE,CAAC,OAAO,KAAK;EACb,CAAC;EACM,SAAS,WAAW,GAAG;EAC9B,CAAC,GAAG,GAAG,KAAI;EACX,CAAC,YAAY,GAAG,KAAI;EACpB,CAAC,iBAAiB,GAAG,KAAI;EACzB,CAAC;AACD;EACO,SAASC,cAAY,CAAC,SAAS,EAAE;EACxC,CAAC,iBAAiB,CAAC,SAAS,CAAC,GAAG,CAAC,GAAG,SAAS,CAAC,OAAM;EACpD,CAAC;AACD;EACO,IAAI,MAAM,GAAG,IAAI,KAAK,CAAC,GAAG,EAAC;EAClC,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,GAAG,EAAE,CAAC,EAAE,EAAE;EAC9B,CAAC,MAAM,CAAC,CAAC,CAAC,GAAG,EAAE,IAAI,GAAG,IAAI,CAAC,KAAK,CAAC,KAAK,GAAG,CAAC,GAAG,OAAO,CAAC,EAAC;EACtD,CAAC;EAGD,IAAI,cAAc,GAAG,IAAI,OAAO,CAAC,EAAE,UAAU,EAAE,KAAK,EAAE,EAAC;EACjC,cAAc,CAAC,OAAM;EACb,cAAc,CAAC;;EC50B7C,IAAI,YAAW;each,IAAI;EACJ,CAAC,WAAW,GAAG,IAAI,WAAW,GAAE;EAChC,CAAC,CAAC,OAAO,KAAK,EAAE,EAAE;EAClB,IAAI,UAAU,EAAE,iBAAgB;EAChC,MAAM,aAAa,GAAG,OAAO,MAAM,KAAK,YAAW;EACnD,MAAM,iBAAiB,GAAG,aAAa,GAAG,MAAM,CAAC,eAAe,GAAG,WAAU;EAC7E,MAAM,SAAS,GAAG,aAAa,GAAG,MAAM,GAAG,WAAU;EACrD,MAAM,yBAAyB,GAAG,KAAI;EACtC,MAAM,cAAc,GAAG,MAAK;EAC5B,MAAM,eAAe,GAAG,aAAa,GAAG,WAAW,GAAG,WAAU;EAChE,IAAI,OAAM;EACV,IAAI,WAAU;EACd,IAAI,QAAQ,GAAG,EAAC;EAChB,IAAI,QAAO;EACX,MAAM,aAAa,GAAG,MAAM,CAAC,WAAW,EAAC;EAClC,MAAM,OAAO,SAAS,OAAO,CAAC;EACrC,CAAC,WAAW,CAAC,OAAO,EAAE;EACtB,EAAE,KAAK,CAAC,OAAO,EAAC;EAChB,EAAE,IAAI,CAAC,MAAM,GAAG,EAAC;EAEjB,EAAE,IAAI,MAAK;EACX,EAAE,IAAI,iBAAgB;EACtB,EAAE,IAAI,gBAAe;EACrB,EAAE,IAAI,WAAU;EAChB,EAAE,IAAI,aAAY;EAClB,EAAE,IAAI,0BAA0B,GAAG,EAAC;EACpC,EAAE,IAAI,UAAU,GAAG,SAAS,CAAC,SAAS,CAAC,SAAS,GAAG,SAAS,MAAM,EAAE,QAAQ,EAAE,QAAQ,EAAE;EACxF,GAAG,OAAO,MAAM,CAAC,SAAS,CAAC,MAAM,EAAE,QAAQ,EAAE,QAAQ,CAAC;EACtD,GAAG,GAAG,CAAC,WAAW,IAAI,WAAW,CAAC,UAAU;EAC5C,GAAG,SAAS,MAAM,EAAE,QAAQ,EAAE;EAC9B,IAAI,OAAO,WAAW,CAAC,UAAU,CAAC,MAAM,EAAE,MAAM,CAAC,QAAQ,CAAC,QAAQ,CAAC,CAAC,CAAC,OAAO;EAC5E,IAAI,GAAG,MAAK;AACZ;EACA,EAAE,IAAI,OAAO,GAAG,KAAI;EACpB,EAAE,IAAI,mBAAmB,GAAG,GAAE;EAC9B,EAAE,IAAI,YAAY,GAAG,OAAO,IAAI,OAAO,CAAC,WAAU;EAClD,EAAE,IAAI,YAAY,EAAE;EACpB,GAAG,mBAAmB,GAAG,EAAC;EAC1B,GAAG,IAAI,CAAC,UAAU,GAAG,GAAE;EACvB,GAAG;EACH,EAAE,IAAI,iBAAiB,GAAG,GAAE;EAC5B,EAAE,IAAI,gBAAgB,GAAG,EAAC;EAC1B,EAAE,IAAI,oCAAoC,GAAG,EAAC;EAC9C,EAAE,IAAI,IAAI,CAAC,UAAU,IAAI,IAAI,CAAC,UAAU,CAAC,MAAM,GAAG,mBAAmB,EAAE;EACvE,GAAG,MAAM,IAAI,KAAK,CAAC,4BAA4B,CAAC;EAChD,GAAG;AACH;EACA,EAAE,IAAI,CAAC,MAAM,GAAG,SAAS,KAAK,EAAE;EAChC,GAAG,IAAI,CAAC,MAAM,EAAE;EAChB,IAAI,MAAM,GAAG,IAAI,iBAAiB,CAAC,IAAI,EAAC;EACxC,IAAI,UAAU,GAAG,IAAI,QAAQ,CAAC,MAAM,CAAC,MAAM,EAAE,CAAC,EAAE,IAAI,EAAC;EACrD,IAAI,QAAQ,GAAG,EAAC;EAChB,IAAI;EACJ,GAAG,OAAO,GAAG,MAAM,CAAC,MAAM,GAAG,GAAE;EAC/B,GAAG,IAAI,OAAO,GAAG,QAAQ,GAAG,KAAK,EAAE;EACnC;EACA,IAAI,MAAM,GAAG,IAAI,iBAAiB,CAAC,MAAM,CAAC,MAAM,EAAC;EACjD,IAAI,UAAU,GAAG,IAAI,QAAQ,CAAC,MAAM,CAAC,MAAM,EAAE,CAAC,EAAE,MAAM,CAAC,MAAM,EAAC;EAC9D,IAAI,OAAO,GAAG,MAAM,CAAC,MAAM,GAAG,GAAE;EAChC,IAAI,QAAQ,GAAG,EAAC;EAChB,IAAI;EACJ,GAAG,KAAK,GAAG,SAAQ;EACnB,GAAG,YAAY,GAAG,OAAO,CAAC,eAAe,GAAG,IAAI,GAAG,EAAE,GAAG,KAAI;EAC5D,GAAG,gBAAgB,GAAG,OAAO,CAAC,WAAU;EACxC,GAAG,IAAI,gBAAgB,EAAE;EACzB,IAAI,IAAI,gBAAgB,CAAC,aAAa;EACtC,KAAK,OAAO,CAAC,UAAU,GAAG,gBAAgB,GAAG,OAAO,CAAC,aAAa,GAAE;EACpE,IAAI,IAAI,sBAAsB,GAAG,gBAAgB,CAAC,OAAM;EACxD,IAAI,IAAI,sBAAsB,IAAI,mBAAmB,IAAI,CAAC,YAAY;EACtE,KAAK,sBAAsB,GAAG,oBAAmB;EACjD,IAAI,IAAI,CAAC,gBAAgB,CAAC,WAAW,EAAE;EACvC;EACA,KAAK,gBAAgB,CAAC,WAAW,GAAG,MAAM,CAAC,MAAM,CAAC,IAAI,EAAC;EACvD,KAAK,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,sBAAsB,EAAE,CAAC,EAAE,EAAE;EACtD,MAAM,IAAI,IAAI,GAAG,gBAAgB,CAAC,CAAC,EAAC;EACpC,MAAM,IAAI,CAAC,IAAI;each,OAAO,QAAQ;each,MAAM,IAAI,cAAc,EAAE,UAAU,GAAG,gBAAgB,CAAC,YAAW;EACnE,MAAM,KAAK,IAAI,CAAC,EAAE,CAAC,EAAE,CAAC,GAAG,IAAI,CAAC,MAAM,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE;EAClD,OAAO,IAAI,GAAG,GAAG,IAAI,CAAC,CAAC,EAAC;EACxB,OAAO,cAAc,GAAG,UAAU,CAAC,GAAG,EAAC;EACvC,OAAO,IAAI,CAAC,cAAc,EAAE;EAC5B,QAAQ,cAAc,GAAG,UAAU,CAAC,GAAG,CAAC,GAAG,MAAM,CAAC,MAAM,CAAC,IAAI,EAAC;EAC9D,QAAQ;EACR,OAAO,UAAU,GAAG,eAAc;EAClC,OAAO;EACP,MAAM,UAAU,CAAC,aAAa,CAAC,GAAG,EAAC;EACnC,MAAM;EACN,KAAK,0BAA0B,GAAG,gBAAgB,CAAC,OAAM;EACzD,KAAK;EACL,IAAI,IAAI,CAAC,YAAY;EACrB,KAAK,gBAAgB,CAAC,MAAM,GAAG,uBAAsB;EACrD,IAAI;EACJ,GAAG,IAAI,eAAe;EACtB,IAAI,eAAe,GAAG,MAAK;EAC3B,GAAG,UAAU,GAAG,gBAAgB,IAAI,GAAE;EACtC,GAAG,IAAI;EACP,IAAI,MAAM,CAAC,KAAK,EAAC;EACjB,IAAI,OAAO,CAAC,MAAM,GAAG,SAAQ;EAC7B,IAAI,IAAI,YAAY,IAAI,YAAY,CAAC,WAAW,EAAE;EAClD,KAAK,QAAQ,IAAI,YAAY,CAAC,WAAW,CAAC,MAAM,GAAG,EAAC;EACpD,KAAK,IAAI,QAAQ,GAAG,OAAO;EAC3B,MAAM,QAAQ,CAAC,QAAQ,EAAC;EACxB,KAAK,OAAO,CAAC,MAAM,GAAG,SAAQ;EAC9B,KAAK,IAAI,UAAU,GAAG,SAAS,CAAC,MAAM,CAAC,QAAQ,CAAC,KAAK,EAAE,QAAQ,CAAC,EAAE,YAAY,CAAC,WAAW,EAAC;EAC3F,KAAK,YAAY,GAAG,KAAI;EACxB,KAAK,OAAO,UAAU;EACtB,KAAK;EACL,IAAI,OAAO,MAAM,CAAC,QAAQ,CAAC,KAAK,EAAE,QAAQ,CAAC;EAC3C,IAAI,SAAS;EACb,IAAI,IAAI,gBAAgB,EAAE;EAC1B,KAAK,IAAI,oCAAoC,GAAG,EAAE;EAClD,MAAM,oCAAoC,GAAE;EAC5C,KAAK,IAAI,gBAAgB,GAAG,KAAK,EAAE;EACnC;EACA,MAAM,gBAAgB,CAAC,WAAW,GAAG,KAAI;EACzC,MAAM,oCAAoC,GAAG,EAAC;EAC9C,MAAM,gBAAgB,GAAG,EAAC;EAC1B,MAAM,IAAI,iBAAiB,CAAC,MAAM,GAAG,CAAC;EACtC,OAAO,iBAAiB,GAAG,GAAE;EAC7B,MAAM,MAAM,IAAI,iBAAiB,CAAC,MAAM,GAAG,CAAC,IAAI,CAAC,YAAY,EAAE;EAC/D,MAAM,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,iBAAiB,CAAC,MAAM,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE;EAChE,OAAO,iBAAiB,CAAC,CAAC,CAAC,CAAC,aAAa,CAAC,GAAG,UAAS;EACtD,OAAO;EACP,MAAM,iBAAiB,GAAG,GAAE;EAC5B,MAAM;EACN,KAAK,IAAI,eAAe,IAAI,OAAO,CAAC,cAAc,EAAE;EACpD,MAAM,IAAI,OAAO,CAAC,UAAU,CAAC,MAAM,GAAG,mBAAmB,EAAE;EAC3D,OAAO,OAAO,CAAC,UAAU,GAAG,OAAO,CAAC,UAAU,CAAC,KAAK,CAAC,CAAC,EAAE,mBAAmB,EAAC;EAC5E,OAAO;AACP;EACA,MAAM,IAAI,OAAO,CAAC,cAAc,CAAC,OAAO,CAAC,UAAU,EAAE,0BAA0B,CAAC,KAAK,KAAK,EAAE;EAC5F;EACA,OAAO,OAAO,CAAC,UAAU,GAAG,OAAO,CAAC,aAAa,EAAE,IAAI,GAAE;EACzD,OAAO,OAAO,OAAO,CAAC,MAAM,CAAC,KAAK,CAAC;EACnC,OAAO;EACP,MAAM,0BAA0B,GAAG,OAAO,CAAC,UAAU,CAAC,OAAM;EAC5D,MAAM;EACN,KAAK;EACL,IAAI;EACJ,IAAG;EACH,EAAE,MAAM,MAAM,GAAG,CAAC,KAAK,KAAK;EAC5B,GAAG,IAAI,QAAQ,GAAG,OAAO;EACzB,IAAI,MAAM,GAAG,QAAQ,CAAC,QAAQ,EAAC;AAC/B;EACA,GAAG,IAAI,IAAI,GAAG,OAAO,MAAK;EAC1B,GAAG,IAAI,OAAM;EACb,GAAG,IAAI,IAAI,KAAK,QAAQ,EAAE;EAC1B,IAAI,IAAI,SAAS,GAAG,KAAK,CAAC,OAAM;EAChC,IAAI,IAAI,WAAU;EAClB;EACA,IAAI,IAAI,SAAS,GAAG,IAAI,EAAE;EAC1B,KAAK,UAAU,GAAG,EAAC;EACnB,KAAK,MAAM,IAAI,SAAS,GAAG,KAAK,EAAE;EAClC,KAAK,UAAU,GAAG,EAAC;EACnB,KAAK,MAAM,IAAI,SAAS,GAAG,OAAO,EAAE;EACpC,KAAK,UAAU,GAAG,EAAC;EACnB,KAAK,MAAM;EACX,KAAK,UAAU,GAAG,EAAC;EACnB,KAAK;EACL,IAAI,IAAI,QAAQ,GAAG,SAAS,GAAG,EAAC;EAChC,IAAI,IAAI,QAAQ,GAAG,QAAQ,GAAG,OAAO;EACrC,KAAK,MAAM,GAAG,QAAQ,CAAC,QAAQ,GAAG,QAAQ,EAAC;AAC3C;EACA,IAAI,IAAI,SAAS,GAAG,IAAI,IAAI,CAAC,UAAU,EAAE;EACzC,KAAK,IAAI,CAAC,EAAE,EAAE,EAAE,EAAE,EAAE,WAAW,GAAG,QAAQ,GAAG,WAAU;EACvD,KAAK,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,SAAS,EAAE,CAAC,EAAE,EAAE;EACrC,MAAM,EAAE,GAAG,KAAK,CAAC,UAAU,CAAC,CAAC,EAAC;EAC9B,MAAM,IAAI,EAAE,GAAG,IAAI,EAAE;EACrB,OAAO,MAAM,CAAC,WAAW,EAAE,CAAC,GAAG,GAAE;EACjC,OAAO,MAAM,IAAI,EAAE,GAAG,KAAK,EAAE;EAC7B,OAAO,MAAM,CAAC,WAAW,EAAE,CAAC,GAAG,EAAE,IAAI,CAAC,GAAG,KAAI;EAC7C,OAAO,MAAM,CAAC,WAAW,EAAE,CAAC,GAAG,EAAE,GAAG,IAAI,GAAG,KAAI;EAC/C,OAAO,MAAM;EACb,OAAO,CAAC,EAAE,GAAG,MAAM,MAAM,MAAM;EAC/B,OAAO,CAAC,CAAC,EAAE,GAAG,KAAK,CAAC,UAAU,CAAC,CAAC,GAAG,CAAC,CAAC,IAAI,MAAM,MAAM,MAAM;EAC3D,QAAQ;EACR,OAAO,EAAE,GAAG,OAAO,IAAI,CAAC,EAAE,GAAG,MAAM,KAAK,EAAE,CAAC,IAAI,EAAE,GAAG,MAAM,EAAC;EAC3D,OAAO,CAAC,GAAE;EACV,OAAO,MAAM,CAAC,WAAW,EAAE,CAAC,GAAG,EAAE,IAAI,EAAE,GAAG,KAAI;EAC9C,OAAO,MAAM,CAAC,WAAW,EAAE,CAAC,GAAG,EAAE,IAAI,EAAE,GAAG,IAAI,GAAG,KAAI;EACrD,OAAO,MAAM,CAAC,WAAW,EAAE,CAAC,GAAG,EAAE,IAAI,CAAC,GAAG,IAAI,GAAG,KAAI;EACpD,OAAO,MAAM,CAAC,WAAW,EAAE,CAAC,GAAG,EAAE,GAAG,IAAI,GAAG,KAAI;EAC/C,OAAO,MAAM;EACb,OAAO,MAAM,CAAC,WAAW,EAAE,CAAC,GAAG,EAAE,IAAI,EAAE,GAAG,KAAI;EAC9C,OAAO,MAAM,CAAC,WAAW,EAAE,CAAC,GAAG,EAAE,IAAI,CAAC,GAAG,IAAI,GAAG,KAAI;EACpD,OAAO,MAAM,CAAC,WAAW,EAAE,CAAC,GAAG,EAAE,GAAG,IAAI,GAAG,KAAI;EAC/C,OAAO;EACP,MAAM;EACN,KAAK,MAAM,GAAG,WAAW,GAAG,QAAQ,GAAG,WAAU;EACjD,KAAK,MAAM;EACX,KAAK,MAAM,GAAG,UAAU,CAAC,KAAK,EAAE,QAAQ,GAAG,UAAU,EAAE,QAAQ,EAAC;EAChE,KAAK;AACL;EACA,IAAI,IAAI,MAAM,GAAG,IAAI,EAAE;EACvB,KAAK,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,IAAI,GAAG,OAAM;EACvC,KAAK,MAAM,IAAI,MAAM,GAAG,KAAK,EAAE;EAC/B,KAAK,IAAI,UAAU,GAAG,CAAC,EAAE;EACzB,MAAM,MAAM,CAAC,UAAU,CAAC,QAAQ,GAAG,CAAC,EAAE,QAAQ,GAAG,CAAC,EAAE,QAAQ,GAAG,CAAC,GAAG,MAAM,EAAC;EAC1E,MAAM;EACN,KAAK,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC9B,KAAK,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,OAAM;EAChC,KAAK,MAAM,IAAI,MAAM,GAAG,OAAO,EAAE;EACjC,KAAK,IAAI,UAAU,GAAG,CAAC,EAAE;EACzB,MAAM,MAAM,CAAC,UAAU,CAAC,QAAQ,GAAG,CAAC,EAAE,QAAQ,GAAG,CAAC,EAAE,QAAQ,GAAG,CAAC,GAAG,MAAM,EAAC;EAC1E,MAAM;EACN,KAAK,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC9B,KAAK,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,MAAM,IAAI,EAAC;EACrC,KAAK,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,MAAM,GAAG,KAAI;EACvC,KAAK,MAAM;EACX,KAAK,IAAI,UAAU,GAAG,CAAC,EAAE;EACzB,MAAM,MAAM,CAAC,UAAU,CAAC,QAAQ,GAAG,CAAC,EAAE,QAAQ,GAAG,CAAC,EAAE,QAAQ,GAAG,CAAC,GAAG,MAAM,EAAC;EAC1E,MAAM;EACN,KAAK,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC9B,KAAK,UAAU,CAAC,SAAS,CAAC,QAAQ,EAAE,MAAM,EAAC;EAC3C,KAAK,QAAQ,IAAI,EAAC;EAClB,KAAK;EACL,IAAI,QAAQ,IAAI,OAAM;EACtB,IAAI,MAAM,IAAI,IAAI,KAAK,QAAQ,EAAE;EACjC,IAAI,IAAI,KAAK,KAAK,CAAC,KAAK,KAAK,EAAE;EAC/B;EACA,KAAK,IAAI,KAAK,GAAG,IAAI,EAAE;EACvB,MAAM,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,MAAK;EAChC,MAAM,MAAM,IAAI,KAAK,GAAG,KAAK,EAAE;EAC/B,MAAM,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC/B,MAAM,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,MAAK;EAChC,MAAM,MAAM,IAAI,KAAK,GAAG,OAAO,EAAE;EACjC,MAAM,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC/B,MAAM,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAK,IAAI,EAAC;EACrC,MAAM,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAK,GAAG,KAAI;EACvC,MAAM,MAAM;EACZ,MAAM,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC/B,MAAM,UAAU,CAAC,SAAS,CAAC,QAAQ,EAAE,KAAK,EAAC;EAC3C,MAAM,QAAQ,IAAI,EAAC;EACnB,MAAM;EACN,KAAK,MAAM,IAAI,KAAK,IAAI,CAAC,KAAK,KAAK,EAAE;EACrC,KAAK,IAAI,KAAK,IAAI,CAAC,IAAI,EAAE;EACzB,MAAM,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,IAAI,GAAG,MAAK;EACvC,MAAM,MAAM,IAAI,KAAK,IAAI,CAAC,KAAK,EAAE;EACjC,MAAM,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC/B,MAAM,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,CAAC,MAAK;EACjC,MAAM,MAAM,IAAI,KAAK,IAAI,CAAC,OAAO,EAAE;EACnC,MAAM,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC/B,MAAM,UAAU,CAAC,SAAS,CAAC,QAAQ,EAAE,CAAC,KAAK,EAAC;EAC5C,MAAM,QAAQ,IAAI,EAAC;EACnB,MAAM,MAAM;EACZ,MAAM,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC/B,MAAM,UAAU,CAAC,SAAS,CAAC,QAAQ,EAAE,CAAC,KAAK,EAAC;EAC5C,MAAM,QAAQ,IAAI,EAAC;EACnB,MAAM;EACN,KAAK,MAAM;EACX,KAAK,IAAI,WAAU;EACnB,KAAK,IAAI,CAAC,UAAU,GAAG,IAAI,CAAC,UAAU,IAAI,CAAC,IAAI,KAAK,GAAG,WAAW,IAAI,KAAK,IAAI,CAAC,UAAU,EAAE;EAC5F,MAAM,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC/B,MAAM,UAAU,CAAC,UAAU,CAAC,QAAQ,EAAE,KAAK,EAAC;EAC5C,MAAM,IAAI,SAAQ;EAClB,MAAM,IAAI,UAAU,GAAG,CAAC;EACxB;EACA,QAAQ,CAAC,CAAC,QAAQ,GAAG,KAAK,GAAG,MAAM,CAAC,CAAC,CAAC,MAAM,CAAC,QAAQ,CAAC,GAAG,IAAI,KAAK,CAAC,KAAK,MAAM,CAAC,QAAQ,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,KAAK,CAAC,MAAM,QAAQ,EAAE;EACzH,OAAO,QAAQ,IAAI,EAAC;EACpB,OAAO,MAAM;EACb,OAAO;EACP,OAAO,QAAQ,GAAE;EACjB,MAAM;EACN,KAAK,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC9B,KAAK,UAAU,CAAC,UAAU,CAAC,QAAQ,EAAE,KAAK,EAAC;EAC3C,KAAK,QAAQ,IAAI,EAAC;EAClB,KAAK;EACL,IAAI,MAAM,IAAI,IAAI,KAAK,QAAQ,EAAE;EACjC,IAAI,IAAI,CAAC,KAAK;EACd,KAAK,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC9B,SAAS;EACT,KAAK,IAAI,YAAY,EAAE;EACvB,MAAM,IAAI,OAAO,GAAG,YAAY,CAAC,GAAG,CAAC,KAAK,EAAC;EAC3C,MAAM,IAAI,OAAO,EAAE;EACnB,OAAO,IAAI,CAAC,OAAO,CAAC,EAAE,EAAE;EACxB,QAAQ,IAAI,WAAW,GAAG,YAAY,CAAC,WAAW,KAAK,YAAY,CAAC,WAAW,GAAG,EAAE,EAAC;EACrF,QAAQ,OAAO,CAAC,EAAE,GAAG,WAAW,CAAC,IAAI,CAAC,OAAO,EAAC;EAC9C,QAAQ;EACR,OAAO,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAChC,OAAO,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAK,IAAI,EAAC;EACtC,OAAO,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAK,GAAG,KAAI;EACxC,OAAO,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAChC,OAAO,UAAU,CAAC,SAAS,CAAC,QAAQ,EAAE,OAAO,CAAC,EAAE,EAAC;EACjD,OAAO,QAAQ,IAAI,EAAC;EACpB,OAAO,MAAM;EACb,OAAO;EACP,OAAO,YAAY,CAAC,GAAG,CAAC,KAAK,EAAE,EAAE,MAAM,EAAE,QAAQ,GAAG,KAAK,EAAE,EAAC;EAC5D,MAAM;EACN,KAAK,IAAI,WAAW,GAAG,KAAK,CAAC,YAAW;EACxC,KAAK,IAAI,WAAW,KAAK,MAAM,EAAE;EACjC,MAAM,WAAW,CAAC,KAAK,EAAE,IAAI,EAAC;EAC9B,MAAM,MAAM,IAAI,WAAW,KAAK,KAAK,EAAE;EACvC,MAAM,MAAM,GAAG,KAAK,CAAC,OAAM;EAC3B,MAAM,IAAI,MAAM,GAAG,IAAI,EAAE;EACzB,OAAO,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,IAAI,GAAG,OAAM;EACzC,OAAO,MAAM;EACb,OAAO,gBAAgB,CAAC,MAAM,EAAC;EAC/B,OAAO;EACP,MAAM,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,CAAC,EAAE,EAAE;EACvC,OAAO,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC,EAAC;EACvB,OAAO;EACP,MAAM,MAAM,IAAI,WAAW,KAAK,GAAG,EAAE;EACrC,MAAM,IAAI,IAAI,CAAC,aAAa,GAAG,IAAI,CAAC,gBAAgB,KAAK,KAAK,GAAG,IAAI,CAAC,gBAAgB,EAAE;EACxF;EACA,OAAO,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAChC,OAAO,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,EAAC;EAC7B,OAAO,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,EAAC;EAC7B,OAAO;EACP,MAAM,MAAM,GAAG,KAAK,CAAC,KAAI;EACzB,MAAM,IAAI,MAAM,GAAG,IAAI,EAAE;EACzB,OAAO,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,IAAI,GAAG,OAAM;EACzC,OAAO,MAAM,IAAI,MAAM,GAAG,KAAK,EAAE;EACjC,OAAO,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAChC,OAAO,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,OAAM;EAClC,OAAO,MAAM,IAAI,MAAM,GAAG,OAAO,EAAE;EACnC,OAAO,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAChC,OAAO,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,MAAM,IAAI,EAAC;EACvC,OAAO,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,MAAM,GAAG,KAAI;EACzC,OAAO,MAAM;EACb,OAAO,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAChC,OAAO,UAAU,CAAC,SAAS,CAAC,QAAQ,EAAE,MAAM,EAAC;EAC7C,OAAO,QAAQ,IAAI,EAAC;EACpB,OAAO;EACP,MAAM,KAAK,IAAI,EAAE,GAAG,EAAE,UAAU,EAAE,IAAI,KAAK,EAAE;EAC7C,OAAO,MAAM,CAAC,GAAG,EAAC;EAClB,OAAO,MAAM,CAAC,UAAU,EAAC;EACzB,OAAO;EACP,MAAM,MAAM;EACZ,MAAM,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,UAAU,CAAC,MAAM,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE;EACzD,OAAO,IAAI,cAAc,GAAG,gBAAgB,CAAC,CAAC,EAAC;EAC/C,OAAO,IAAI,KAAK,YAAY,cAAc,EAAE;EAC5C,QAAQ,IAAI,SAAS,GAAG,UAAU,CAAC,CAAC,EAAC;EACrC,QAAQ,IAAI,GAAG,GAAG,SAAS,CAAC,IAAG;EAC/B,QAAQ,IAAI,GAAG,GAAG,IAAI,EAAE;EACxB,SAAS,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,IAAI,GAAG,IAAG;EACxC,SAAS,MAAM,IAAI,GAAG,GAAG,KAAK,EAAE;EAChC,SAAS,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAClC,SAAS,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,IAAG;EACjC,SAAS,MAAM,IAAI,GAAG,GAAG,OAAO,EAAE;EAClC,SAAS,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAClC,SAAS,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,GAAG,IAAI,EAAC;EACtC,SAAS,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,GAAG,GAAG,KAAI;EACxC,SAAS,MAAM,IAAI,GAAG,GAAG,CAAC,CAAC,EAAE;EAC7B,SAAS,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAClC,SAAS,UAAU,CAAC,SAAS,CAAC,QAAQ,EAAE,GAAG,EAAC;EAC5C,SAAS,QAAQ,IAAI,EAAC;EACtB,SAAS;EACT,QAAQ,SAAS,CAAC,MAAM,CAAC,IAAI,CAAC,IAAI,EAAE,KAAK,EAAE,MAAM,EAAE,QAAQ,EAAC;EAC5D,QAAQ,MAAM;EACd,QAAQ;EACR,OAAO;EACP,MAAM,IAAI,KAAK,CAAC,MAAM,CAAC,QAAQ,CAAC,EAAE;EAClC,OAAO,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAChC,OAAO,KAAK,IAAI,KAAK,IAAI,KAAK,EAAE;EAChC,QAAQ,MAAM,CAAC,KAAK,EAAC;EACrB,QAAQ;EACR,OAAO,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAChC,OAAO,MAAM;EACb,OAAO;EACP;EACA,MAAM,WAAW,CAAC,KAAK,EAAE,CAAC,KAAK,CAAC,cAAc,EAAC;EAC/C,MAAM;EACN,KAAK;EACL,IAAI,MAAM,IAAI,IAAI,KAAK,SAAS,EAAE;EAClC,IAAI,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAK,GAAG,IAAI,GAAG,KAAI;EAC5C,IAAI,MAAM,IAAI,IAAI,KAAK,QAAQ,EAAE;EACjC,IAAI,IAAI,KAAK,IAAI,MAAM,CAAC,CAAC,CAAC,EAAE,MAAM,CAAC,EAAE,CAAC,CAAC,IAAI,KAAK,IAAI,CAAC,EAAE;EACvD;EACA,KAAK,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC9B,KAAK,UAAU,CAAC,YAAY,CAAC,QAAQ,EAAE,KAAK,EAAC;EAC7C,KAAK,MAAM,IAAI,KAAK,GAAG,EAAE,MAAM,CAAC,CAAC,CAAC,EAAE,MAAM,CAAC,EAAE,CAAC,CAAC,IAAI,KAAK,GAAG,CAAC,EAAE;EAC9D;EACA,KAAK,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC9B,KAAK,UAAU,CAAC,YAAY,CAAC,QAAQ,EAAE,CAAC,KAAK,GAAG,MAAM,CAAC,CAAC,CAAC,EAAC;EAC1D,KAAK,MAAM;EACX;EACA,KAAK,IAAI,IAAI,CAAC,kBAAkB,EAAE;EAClC,MAAM,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC/B,MAAM,UAAU,CAAC,UAAU,CAAC,QAAQ,EAAE,MAAM,CAAC,KAAK,CAAC,EAAC;EACpD,MAAM,MAAM;EACZ,MAAM,MAAM,IAAI,UAAU,CAAC,KAAK,GAAG,oGAAoG,CAAC;EACxI,MAAM;EACN,KAAK;EACL,IAAI,QAAQ,IAAI,EAAC;EACjB,IAAI,MAAM,IAAI,IAAI,KAAK,WAAW,EAAE;EACpC,IAAI,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC7B,IAAI,MAAM;EACV,IAAI,MAAM,IAAI,KAAK,CAAC,eAAe,GAAG,IAAI,CAAC;EAC3C,IAAI;EACJ,IAAG;AACH;EACA,EAAE,MAAM,WAAW,GAAG,IAAI,CAAC,UAAU,KAAK,KAAK,GAAG,IAAI,CAAC,eAAe,GAAG,CAAC,MAAM,KAAK;EACrF;EACA,GAAG,IAAI,IAAI,GAAG,MAAM,CAAC,IAAI,CAAC,MAAM,EAAC;EACjC,GAAG,IAAI,MAAM,GAAG,IAAI,CAAC,OAAM;EAC3B,GAAG,IAAI,MAAM,GAAG,IAAI,EAAE;EACtB,IAAI,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,IAAI,GAAG,OAAM;EACtC,IAAI,MAAM,IAAI,MAAM,GAAG,KAAK,EAAE;EAC9B,IAAI,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC7B,IAAI,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,OAAM;EAC/B,IAAI,MAAM,IAAI,MAAM,GAAG,OAAO,EAAE;EAChC,IAAI,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC7B,IAAI,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,MAAM,IAAI,EAAC;EACpC,IAAI,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,MAAM,GAAG,KAAI;EACtC,IAAI,MAAM;EACV,IAAI,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC7B,IAAI,UAAU,CAAC,SAAS,CAAC,QAAQ,EAAE,MAAM,EAAC;EAC1C,IAAI,QAAQ,IAAI,EAAC;EACjB,IAAI;EACJ,GAAG,IAAI,IAAG;EACV,GAAG,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,CAAC,EAAE,EAAE;EACpC,IAAI,MAAM,CAAC,GAAG,GAAG,IAAI,CAAC,CAAC,CAAC,EAAC;EACzB,IAAI,MAAM,CAAC,MAAM,CAAC,GAAG,CAAC,EAAC;EACvB,IAAI;EACJ,GAAG;EACH,EAAE,CAAC,MAAM,EAAE,aAAa,KAAK;EAC7B,GAAG,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC5B,GAAG,IAAI,YAAY,GAAG,QAAQ,GAAG,MAAK;EACtC,GAAG,QAAQ,IAAI,EAAC;EAChB,GAAG,IAAI,IAAI,GAAG,EAAC;each,GAAG,KAAK,IAAI,GAAG,IAAI,MAAM,EAAE;EAC3B,IAAI,IAAI,aAAa,IAAI,MAAM,CAAC,cAAc,CAAC,GAAG,CAAC,EAAE;EACrD,KAAK,MAAM,CAAC,GAAG,EAAC;EAChB,KAAK,MAAM,CAAC,MAAM,CAAC,GAAG,CAAC,EAAC;EACxB,KAAK,IAAI,GAAE;EACX,KAAK;EACL,IAAI;EACJ,GAAG,MAAM,CAAC,YAAY,EAAE,GAAG,KAAK,CAAC,GAAG,IAAI,IAAI,EAAC;EAC7C,GAAG,MAAM,CAAC,YAAY,GAAG,KAAK,CAAC,GAAG,IAAI,GAAG,KAAI;EAC7C,GAAG;AACH;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA,EAAE,CAAC,MAAM,KAAK;EACd,GAAG,IAAI,IAAI,GAAG,MAAM,CAAC,IAAI,CAAC,MAAM,EAAC;EACjC,GAAG,IAAI,cAAc,EAAE,UAAU,GAAG,UAAU,CAAC,WAAW,KAAK,UAAU,CAAC,WAAW,GAAG,MAAM,CAAC,MAAM,CAAC,IAAI,CAAC,EAAC;EAC5G,GAAG,IAAI,cAAc,GAAG,EAAC;EACzB,GAAG,IAAI,MAAM,GAAG,IAAI,CAAC,OAAM;EAC3B,GAAG,KAAK,IAAI,CAAC,EAAE,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,CAAC,EAAE,EAAE;EACnC,IAAI,IAAI,GAAG,GAAG,IAAI,CAAC,CAAC,EAAC;EACrB,IAAI,cAAc,GAAG,UAAU,CAAC,GAAG,EAAC;EACpC,IAAI,IAAI,CAAC,cAAc,EAAE;EACzB,KAAK,cAAc,GAAG,UAAU,CAAC,GAAG,CAAC,GAAG,MAAM,CAAC,MAAM,CAAC,IAAI,EAAC;EAC3D,KAAK,cAAc,GAAE;EACrB,KAAK;EACL,IAAI,UAAU,GAAG,eAAc;EAC/B,IAAI;EACJ,GAAG,IAAI,QAAQ,GAAG,UAAU,CAAC,aAAa,EAAC;EAC3C,GAAG,IAAI,QAAQ,KAAK,SAAS,EAAE;EAC/B,IAAI,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC7B,IAAI,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,0BAAyB;EAClD,IAAI,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,SAAQ;EACjC,IAAI,MAAM;EACV,IAAI,QAAQ,GAAG,UAAU,CAAC,MAAM,GAAE;EAClC,IAAI,IAAI,CAAC,QAAQ,EAAE;EACnB,KAAK,QAAQ,GAAG,EAAC;EACjB,KAAK,UAAU,CAAC,MAAM,GAAG,EAAC;EAC1B,KAAK;EACL,IAAI,IAAI,QAAQ,IAAI,cAAc,EAAE;EACpC,KAAK,UAAU,CAAC,MAAM,GAAG,CAAC,QAAQ,GAAG,mBAAmB,IAAI,EAAC;EAC7D,KAAK;EACL,IAAI,UAAU,CAAC,aAAa,CAAC,GAAG,SAAQ;EACxC,IAAI,UAAU,CAAC,QAAQ,CAAC,GAAG,KAAI;EAC/B,IAAI,IAAI,gBAAgB,IAAI,gBAAgB,CAAC,MAAM,IAAI,mBAAmB,EAAE;EAC5E,KAAK,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC9B,KAAK,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,0BAAyB;EACnD,KAAK,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,SAAQ;EAClC,KAAK,eAAe,GAAG,KAAI;EAC3B,KAAK,MAAM;EACX,KAAK,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC9B,KAAK,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,0BAAyB;EACnD,KAAK,IAAI,cAAc;EACvB,MAAM,gBAAgB,IAAI,oCAAoC,GAAG,eAAc;EAC/E;EACA,KAAK,IAAI,iBAAiB,CAAC,MAAM,IAAI,cAAc,GAAG,mBAAmB;EACzE,MAAM,iBAAiB,CAAC,KAAK,EAAE,CAAC,aAAa,CAAC,GAAG,UAAS;EAC1D,KAAK,iBAAiB,CAAC,IAAI,CAAC,UAAU,EAAC;EACvC,KAAK,IAAI,MAAM,GAAG,IAAI;EACtB,MAAM,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,IAAI,GAAG,OAAM;EACxC;EACA,MAAM,gBAAgB,CAAC,MAAM,GAAG,CAAC,EAAC;EAClC,KAAK,MAAM,CAAC,IAAI,EAAC;EACjB,KAAK,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC9B,KAAK,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,0BAAyB;EACnD,KAAK,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,SAAQ;EAClC;EACA,KAAK,KAAK,IAAI,CAAC,EAAE,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,CAAC,EAAE;EACnC,MAAM,MAAM,CAAC,MAAM,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,EAAC;EAC7B,KAAK,MAAM;EACX,KAAK;EACL,IAAI;EACJ,GAAG,IAAI,MAAM,GAAG,IAAI,EAAE;EACtB,IAAI,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,IAAI,GAAG,OAAM;EACtC,IAAI,MAAM;EACV,IAAI,gBAAgB,CAAC,MAAM,EAAC;EAC5B,IAAI;EACJ,GAAG,KAAK,IAAI,CAAC,EAAE,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,CAAC,EAAE;EACjC,IAAI,MAAM,CAAC,MAAM,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,EAAC;EAC3B,IAAG;EACH,EAAE,MAAM,QAAQ,GAAG,CAAC,GAAG,KAAK;EAC5B,GAAG,IAAI,QAAO;EACd,GAAG,IAAI,GAAG,GAAG,SAAS,EAAE;EACxB;EACA,IAAI,IAAI,CAAC,GAAG,GAAG,KAAK,IAAI,eAAe;EACvC,KAAK,MAAM,IAAI,KAAK,CAAC,yDAAyD,CAAC;EAC/E,IAAI,OAAO,GAAG,IAAI,CAAC,GAAG,CAAC,eAAe;EACtC,KAAK,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,GAAG,GAAG,KAAK,KAAK,GAAG,GAAG,SAAS,GAAG,IAAI,GAAG,CAAC,CAAC,EAAE,SAAS,CAAC,GAAG,MAAM,CAAC,GAAG,MAAM,EAAC;EACrG,IAAI;EACJ,IAAI,OAAO,GAAG,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,GAAG,GAAG,KAAK,KAAK,CAAC,EAAE,MAAM,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,EAAE,IAAI,CAAC,KAAK,GAAE;EACjF,GAAG,IAAI,SAAS,GAAG,IAAI,iBAAiB,CAAC,OAAO,EAAC;EACjD,GAAG,UAAU,GAAG,IAAI,QAAQ,CAAC,SAAS,CAAC,MAAM,EAAE,CAAC,EAAE,OAAO,EAAC;EAC1D,GAAG,IAAI,MAAM,CAAC,IAAI;EAClB,IAAI,MAAM,CAAC,IAAI,CAAC,SAAS,EAAE,CAAC,EAAE,KAAK,EAAE,GAAG,EAAC;EACzC;EACA,IAAI,SAAS,CAAC,GAAG,CAAC,MAAM,CAAC,KAAK,CAAC,KAAK,EAAE,GAAG,CAAC,EAAC;EAC3C,GAAG,QAAQ,IAAI,MAAK;EACpB,GAAG,KAAK,GAAG,EAAC;EACZ,GAAG,OAAO,GAAG,SAAS,CAAC,MAAM,GAAG,GAAE;EAClC,GAAG,OAAO,MAAM,GAAG,SAAS;EAC5B,IAAG;EACH,EAAE;EACH,CAAC,SAAS,CAAC,MAAM,EAAE;EACnB;EACA,EAAE,MAAM,GAAG,OAAM;EACjB,EAAE,UAAU,GAAG,IAAI,QAAQ,CAAC,MAAM,CAAC,MAAM,EAAE,MAAM,CAAC,UAAU,EAAE,MAAM,CAAC,UAAU,EAAC;EAChF,EAAE,QAAQ,GAAG,EAAC;EACd,EAAE;EACH,CAAC;AAOD;EACA,SAAS,gBAAgB,CAAC,MAAM,EAAE;EAClC,CAAC,IAAI,MAAM,GAAG,KAAK,EAAE;EACrB,EAAE,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC3B,EAAE,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,OAAM;EAC7B,EAAE,MAAM,IAAI,MAAM,GAAG,OAAO,EAAE;EAC9B,EAAE,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC3B,EAAE,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,MAAM,IAAI,EAAC;EAClC,EAAE,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,MAAM,GAAG,KAAI;EACpC,EAAE,MAAM;EACR,EAAE,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC3B,EAAE,UAAU,CAAC,SAAS,CAAC,QAAQ,EAAE,MAAM,EAAC;EACxC,EAAE,QAAQ,IAAI,EAAC;each,EAAE;EACH,CAAC;AACD;EACA,gBAAgB,GAAG,EAAE,IAAI,EAAE,GAAG,EAAE,KAAK,EAAE,MAAM,EAAE,WAAW,EAAE,SAAS;EACrE,CAAC,UAAU,EAAE,iBAAiB,EAAE,WAAW,EAAE,WAAW,EAAE,cAAc,EAAE,SAAS,EAAE,UAAU,EAAE,UAAU,EAAE,aAAa;EAC1H,CAAC,YAAY,EAAE,YAAY,EAAC;AAC5B;EACA;EACA,UAAU,GAAG,CAAC;EACd,CAAC,GAAG,EAAE,CAAC;EACP,CAAC,MAAM,CAAC,IAAI,EAAE,MAAM,EAAE;EACtB,EAAE,IAAI,OAAO,GAAG,IAAI,CAAC,OAAO,EAAE,GAAG,KAAI;EACrC,EAAE,IAAI,CAAC,IAAI,CAAC,cAAc,IAAI,IAAI,CAAC,eAAe,EAAE,KAAK,CAAC,KAAK,OAAO,IAAI,CAAC,IAAI,OAAO,GAAG,WAAW,EAAE;EACtG;EACA,GAAG,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC5B,GAAG,UAAU,CAAC,SAAS,CAAC,QAAQ,EAAE,OAAO,EAAC;EAC1C,GAAG,QAAQ,IAAI,EAAC;EAChB,GAAG,MAAM;EACT;EACA,GAAG,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC5B,GAAG,UAAU,CAAC,UAAU,CAAC,QAAQ,EAAE,OAAO,EAAC;EAC3C,GAAG,QAAQ,IAAI,EAAC;EAChB,GAAG;EACH,EAAE;EACH,CAAC,EAAE;EACH,CAAC,GAAG,EAAE,GAAG;EACT,CAAC,MAAM,CAAC,GAAG,EAAE,MAAM,EAAE;EACrB,EAAE,IAAI,KAAK,GAAG,KAAK,CAAC,IAAI,CAAC,GAAG,EAAC;EAC7B,EAAE,MAAM,CAAC,KAAK,EAAC;each,EAAE;EACH,CAAC,EAAE;EACH,CAAC,GAAG,EAAE,EAAE;EACR,CAAC,MAAM,CAAC,KAAK,EAAE,MAAM,EAAE;EACvB,EAAE,MAAM,CAAC,EAAE,KAAK,CAAC,IAAI,EAAE,KAAK,CAAC,OAAO,EAAE,EAAC;EACvC,EAAE;EACH,CAAC,EAAE;EACH,CAAC,GAAG,EAAE,EAAE;EACR,CAAC,MAAM,CAAC,KAAK,EAAE,MAAM,EAAE;EACvB,EAAE,MAAM,CAAC,EAAE,QAAQ,EAAE,KAAK,CAAC,MAAM,EAAE,KAAK,CAAC,KAAK,EAAE,EAAC;EACjD,EAAE;EACH,CAAC,EAAE;EACH,CAAC,MAAM,CAAC,WAAW,EAAE,MAAM,EAAE,QAAQ,EAAE;EACvC,EAAE,WAAW,CAAC,WAAW,EAAE,QAAQ,EAAC;EACpC,EAAE;EACH,CAAC,EAAE;EACH,CAAC,MAAM,CAAC,WAAW,EAAE,MAAM,EAAE,QAAQ,EAAE;EACvC,EAAE,WAAW,CAAC,WAAW,EAAE,QAAQ,EAAC;EACpC,EAAE;EACH,CAAC,EAAE,iBAAiB,CAAC,EAAE,CAAC;EACxB,CAAC,iBAAiB,CAAC,EAAE,CAAC;EACtB,CAAC,iBAAiB,CAAC,EAAE,CAAC;EACtB,CAAC,iBAAiB,CAAC,EAAE,CAAC;EACtB,CAAC,iBAAiB,CAAC,EAAE,CAAC;EACtB,CAAC,iBAAiB,CAAC,EAAE,CAAC;EACtB,CAAC,iBAAiB,CAAC,EAAE,CAAC;EACtB,CAAC,iBAAiB,CAAC,EAAE,CAAC;EACtB,CAAC,iBAAiB,CAAC,EAAE,CAAC;EACtB,CAAC,iBAAiB,CAAC,EAAE,CAAC;EACtB,CAAC,iBAAiB,CAAC,EAAE,CAAC,EAAC;AACvB;EACA,SAAS,iBAAiB,CAAC,GAAG,EAAE;EAChC,CAAC,OAAO;EACR,EAAE,GAAG,EAAE,GAAG;EACV,EAAE,MAAM,EAAE,SAAS,cAAc,CAAC,UAAU,EAAE,MAAM,EAAE;EACtD,GAAG,IAAI,MAAM,GAAG,UAAU,CAAC,WAAU;EACrC,GAAG,IAAI,MAAM,GAAG,UAAU,CAAC,UAAU,IAAI,EAAC;EAC1C,GAAG,IAAI,MAAM,GAAG,UAAU,CAAC,MAAM,IAAI,WAAU;EAC/C,GAAG,MAAM,CAAC,aAAa,GAAG,MAAM,CAAC,IAAI,CAAC,MAAM,EAAE,MAAM,EAAE,MAAM,CAAC;EAC7D,IAAI,IAAI,UAAU,CAAC,MAAM,EAAE,MAAM,EAAE,MAAM,CAAC,EAAC;EAC3C,GAAG;EACH,EAAE;EACH,CAAC;EACD,SAAS,WAAW,CAAC,MAAM,EAAE,QAAQ,EAAE;EACvC,CAAC,IAAI,MAAM,GAAG,MAAM,CAAC,WAAU;EAC/B,CAAC,IAAI,MAAM,GAAG,IAAI,EAAE;EACpB,EAAE,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,IAAI,GAAG,OAAM;EACpC,EAAE,MAAM,IAAI,MAAM,GAAG,KAAK,EAAE;EAC5B,EAAE,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC3B,EAAE,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,OAAM;EAC7B,EAAE,MAAM,IAAI,MAAM,GAAG,OAAO,EAAE;EAC9B,EAAE,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC3B,EAAE,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,MAAM,IAAI,EAAC;EAClC,EAAE,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,MAAM,GAAG,KAAI;EACpC,EAAE,MAAM;EACR,EAAE,MAAM,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC3B,EAAE,UAAU,CAAC,SAAS,CAAC,QAAQ,EAAE,MAAM,EAAC;EACxC,EAAE,QAAQ,IAAI,EAAC;each,EAAE;EACH,CAAC,IAAI,QAAQ,GAAG,MAAM,IAAI,MAAM,CAAC,MAAM,EAAE;EACzC,EAAE,QAAQ,CAAC,QAAQ,GAAG,MAAM,EAAC;EAC7B,EAAE;EACH,CAAC,MAAM,CAAC,GAAG,CAAC,MAAM,EAAE,QAAQ,EAAC;EAC7B,CAAC,QAAQ,IAAI,OAAM;EACnB,CAAC;AACD;EACA,SAAS,SAAS,CAAC,UAAU,EAAE,WAAW,EAAE;EAC5C;EACA,CAAC,IAAI,OAAM;EACX,CAAC,IAAI,cAAc,GAAG,WAAW,CAAC,MAAM,GAAG,EAAC;EAC5C,CAAC,IAAI,OAAO,GAAG,UAAU,CAAC,MAAM,GAAG,eAAc;EACjD,CAAC,WAAW,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC,KAAK,CAAC,CAAC,MAAM,GAAG,CAAC,CAAC,MAAM,GAAG,CAAC,GAAG,CAAC,CAAC,EAAC;EACzD,CAAC,OAAO,MAAM,GAAG,WAAW,CAAC,GAAG,EAAE,EAAE;EACpC,EAAE,IAAI,MAAM,GAAG,MAAM,CAAC,OAAM;EAC5B,EAAE,IAAI,EAAE,GAAG,MAAM,CAAC,GAAE;EACpB,EAAE,UAAU,CAAC,UAAU,CAAC,MAAM,GAAG,cAAc,EAAE,MAAM,EAAE,OAAO,EAAC;EACjE,EAAE,cAAc,IAAI,EAAC;EACrB,EAAE,IAAI,QAAQ,GAAG,MAAM,GAAG,eAAc;EACxC,EAAE,UAAU,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC/B,EAAE,UAAU,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAK,IAAI,EAAC;EACrC,EAAE,UAAU,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAK,GAAG,KAAI;EACvC,EAAE,UAAU,CAAC,QAAQ,EAAE,CAAC,GAAG,KAAI;EAC/B,EAAE,UAAU,CAAC,QAAQ,EAAE,CAAC,GAAG,EAAE,IAAI,GAAE;EACnC,EAAE,UAAU,CAAC,QAAQ,EAAE,CAAC,GAAG,CAAC,EAAE,IAAI,EAAE,IAAI,KAAI;EAC5C,EAAE,UAAU,CAAC,QAAQ,EAAE,CAAC,GAAG,CAAC,EAAE,IAAI,CAAC,IAAI,KAAI;EAC3C,EAAE,UAAU,CAAC,QAAQ,EAAE,CAAC,GAAG,EAAE,GAAG,KAAI;EACpC,EAAE,OAAO,GAAG,OAAM;EAClB,EAAE;EACH,CAAC,OAAO,UAAU;EAClB,CAAC;AACD;EACO,SAAS,YAAY,CAAC,SAAS,EAAE;EACxC,CAAC,IAAI,SAAS,CAAC,KAAK,EAAE;EACtB,EAAE,IAAI,CAAC,SAAS,CAAC,MAAM;EACvB,GAAG,MAAM,IAAI,KAAK,CAAC,kCAAkC,CAAC;EACtD,EAAE,gBAAgB,CAAC,OAAO,CAAC,SAAS,CAAC,KAAK,EAAC;EAC3C,EAAE,UAAU,CAAC,OAAO,CAAC,SAAS,EAAC;EAC/B,EAAE;EACH,CAACC,cAAkB,CAAC,SAAS,EAAC;EAC9B,CAAC;EACD,IAAI,cAAc,GAAG,IAAI,OAAO,CAAC,EAAE,UAAU,EAAE,KAAK,EAAE,EAAC;EACjC,cAAc,CAAC;;;;;;;;;;;;;ACnsBrC;EACA,MAAM,CAAC,cAAc,CAAC,QAAO,EAAE,YAAY,EAAE,EAAE,KAAK,EAAE,IAAI,EAAE,CAAC,CAAC;AAC9D;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA,cAAc,IAAI,GAAG,CAAC;EACtB,oBAAoB,UAAU,GAAG,CAAC;EAClC,oBAAoB,SAAS,GAAG,CAAC;EACjC,oBAAoB,SAAS,IAAI,CAAC,CAAC,IAAI,UAAU,KAAK,SAAS,GAAG,CAAC,CAAC,CAAC;EACrE,oBAAoB,WAAW,IAAI,CAAC,CAAC,KAAK,EAAE,GAAG,UAAU,CAAC,IAAI,CAAC,CAAC;EAChE,oBAAoB,WAAW,GAAG,GAAG,CAAC;AACtC;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA,SAAS,QAAQ,CAAC,MAAM,EAAE,MAAM,EAAE;EAClC,IAAI,IAAI,IAAI,GAAG,CAAC;EAChB,QAAQ,GAAG,GAAG,CAAC;each,QAAQ,GAAG,GAAG,CAAC;each,QAAQ,GAAG,GAAG,CAAC;each,QAAQ,OAAO,GAAG,CAAC;EACnB,QAAQ,QAAQ,GAAG,CAAC,KAAK,IAAI,GAAG,CAAC,CAAC;EAClC,QAAQ,IAAI,GAAG,CAAC;EAChB,QAAQ,MAAM,GAAG,CAAC;EAClB,QAAQ,EAAE,GAAG,CAAC;EACd,QAAQ,MAAM,GAAG,IAAI,UAAU,CAAC,WAAW,CAAC;EAC5C,QAAQ,CAAC,GAAG,CAAC,CAAC;AACd;EACA;EACA,IAAI,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,WAAW,EAAE,CAAC,EAAE,EAAE;EACrC,QAAQ,MAAM,CAAC,CAAC,CAAC,GAAG,CAAC,SAAS,CAAC;EAC/B,KAAK;AACL;EACA,IAAI,IAAI,GAAG,MAAM,CAAC,MAAM,CAAC;AACzB;EACA,IAAI,OAAO,GAAG,GAAG,IAAI,EAAE;EACvB,QAAQ,IAAI,CAAC,QAAQ,KAAK,CAAC,MAAM,CAAC,IAAI,IAAI,CAAC,EAAE;EAC7C,YAAY,QAAQ,GAAG,CAAC,CAAC;EACzB,YAAY,OAAO,GAAG,GAAG,CAAC;EAC1B,YAAY,MAAM,CAAC,GAAG,EAAE,CAAC,GAAG,CAAC,CAAC;EAC9B,SAAS;AACT;EACA,QAAQ,IAAI,GAAG,GAAG,IAAI,GAAG,SAAS,EAAE;EACpC,YAAY,MAAM,CAAC,GAAG,EAAE,CAAC,GAAG,MAAM,CAAC,GAAG,EAAE,CAAC,CAAC;EAC1C,YAAY,SAAS;EACrB,SAAS;AACT;EACA,QAAQ,EAAE,GAAG,CAAC,CAAC,MAAM,CAAC,GAAG,CAAC,GAAG,EAAE;EAC/B,eAAe,MAAM,CAAC,GAAG,GAAG,CAAC,CAAC,GAAG,EAAE,CAAC;EACpC,cAAc,MAAM,CAAC,GAAG,GAAG,CAAC,CAAC;EAC7B,aAAa,WAAW,GAAG,CAAC,CAAC,CAAC;AAC9B;EACA,QAAQ,MAAM,GAAG,CAAC,GAAG,GAAG,MAAM,CAAC,EAAE,CAAC,IAAI,WAAW,CAAC;EAClD,QAAQ,MAAM,CAAC,EAAE,CAAC,GAAG,GAAG,CAAC;EACzB,QAAQ,GAAG,GAAG,GAAG,GAAG,MAAM,CAAC;AAC3B;EACA,QAAQ,IAAI,GAAG,IAAI,CAAC,IAAI,GAAG,IAAI,GAAG;EAClC,YAAY,MAAM,CAAC,GAAG,CAAC,IAAI,MAAM,CAAC,GAAG,CAAC;EACtC,YAAY,MAAM,CAAC,GAAG,GAAG,CAAC,CAAC,IAAI,MAAM,CAAC,GAAG,GAAG,CAAC,CAAC;EAC9C,YAAY,MAAM,CAAC,GAAG,GAAG,CAAC,CAAC,IAAI,MAAM,CAAC,GAAG,GAAG,CAAC,CAAC,EAAE;EAChD,YAAY,MAAM,CAAC,OAAO,CAAC,IAAI,QAAQ,CAAC;EACxC,YAAY,KAAK,IAAI,GAAG,SAAS,EAAE,IAAI,GAAG,SAAS,EAAE,IAAI,EAAE;EAC3D,gBAAgB,IAAI,MAAM,CAAC,GAAG,GAAG,IAAI,CAAC,IAAI,MAAM,CAAC,GAAG,GAAG,IAAI,CAAC;EAC5D,oBAAoB,MAAM;EAC1B,YAAY,MAAM,CAAC,GAAG,EAAE,CAAC,GAAG,CAAC,CAAC,IAAI,GAAG,SAAS,MAAM,IAAI,GAAG,UAAU,CAAC;EACtE,iBAAiB,MAAM,IAAI,IAAI,CAAC,CAAC;EACjC,YAAY,MAAM,CAAC,GAAG,EAAE,CAAC,GAAG,MAAM,CAAC;EACnC,YAAY,GAAG,IAAI,IAAI,CAAC;EACxB,SAAS,MAAM;each,YAAY,MAAM,CAAC,GAAG,EAAE,CAAC,GAAG,MAAM,CAAC,GAAG,EAAE,CAAC,CAAC;EAC1C,SAAS;EACT,KAAK;AACL;EACA,IAAI,OAAO,CAAC,MAAM,CAAC,MAAM,CAAC,MAAM,IAAI,GAAG,CAAC,CAAC;AACzC;EACA,IAAI,OAAO,GAAG,CAAC;each,CAAC;AACD;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA,SAAS,UAAU,CAAC,MAAM,EAAE,IAAI,EAAE,MAAM,EAAE;EAC1C,IAAI,IAAI,GAAG,IAAI,GAAG,CAAC,CAAC;AACpB;EACA,IAAI,IAAI,GAAG,GAAG,CAAC;each,QAAQ,GAAG,GAAG,CAAC;each,QAAQ,GAAG,GAAG,CAAC;each,QAAQ,OAAO,GAAG,CAAC;EACnB,QAAQ,QAAQ,GAAG,CAAC,KAAK,IAAI,GAAG,CAAC,GAAG,CAAC,CAAC;EACtC,QAAQ,IAAI,GAAG,CAAC;EAChB,QAAQ,MAAM,GAAG,CAAC,CAAC;AACnB;EACA;AACA;EACA,IAAI,OAAO,GAAG,GAAG,IAAI,EAAE;EACvB,QAAQ,IAAI,CAAC,QAAQ,KAAK,CAAC,OAAO,CAAC,IAAI,IAAI,CAAC,EAAE;EAC9C,YAAY,QAAQ,GAAG,CAAC,CAAC;EACzB,YAAY,OAAO,GAAG,MAAM,CAAC,GAAG,CAAC,CAAC;EAClC,YAAY,GAAG,GAAG,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC;EAC9B,SAAS;AACT;EACA,QAAQ,IAAI,OAAO,GAAG,QAAQ,EAAE;EAChC,YAAY,IAAI,GAAG,CAAC,MAAM,CAAC,GAAG,CAAC,KAAK,IAAI,GAAG,UAAU,GAAG,CAAC,CAAC,IAAI,SAAS,GAAG,CAAC,CAAC;EAC5E,YAAY,MAAM,GAAG,CAAC,CAAC,MAAM,CAAC,GAAG,CAAC,IAAI,IAAI,IAAI,MAAM,CAAC,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC,IAAI,WAAW,CAAC;EACjF,YAAY,GAAG,GAAG,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC;AAC9B;EACA,YAAY,GAAG,GAAG,GAAG,GAAG,MAAM,GAAG,CAAC,CAAC;EACnC;EACA,YAAY;EACZ;EACA;AACA;EACA;EACA;EACA;AACA;EACA;EACA,gBAAgB,OAAO,IAAI,GAAG,CAAC,EAAE;EACjC,oBAAoB,MAAM,CAAC,GAAG,CAAC,GAAG,MAAM,CAAC,GAAG,CAAC,CAAC;EAC9C,oBAAoB,GAAG,GAAG,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC;EACtC,oBAAoB,GAAG,GAAG,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC;AACtC;EACA,oBAAoB,MAAM,CAAC,GAAG,CAAC,GAAG,MAAM,CAAC,GAAG,CAAC,CAAC;EAC9C,oBAAoB,GAAG,GAAG,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC;EACtC,oBAAoB,GAAG,GAAG,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC;AACtC;EACA,oBAAoB,MAAM,CAAC,GAAG,CAAC,GAAG,MAAM,CAAC,GAAG,CAAC,CAAC;EAC9C,oBAAoB,GAAG,GAAG,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC;EACtC,oBAAoB,GAAG,GAAG,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC;AACtC;EACA,oBAAoB,MAAM,CAAC,GAAG,CAAC,GAAG,MAAM,CAAC,GAAG,CAAC,CAAC;EAC9C,oBAAoB,GAAG,GAAG,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC;EACtC,oBAAoB,GAAG,GAAG,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC;AACtC;EACA,oBAAoB,IAAI,GAAG,IAAI,GAAG,CAAC,GAAG,CAAC,CAAC;EACxC,iBAAiB;AACjB;EACA,gBAAgB,OAAO,IAAI,GAAG,CAAC,EAAE;EACjC,oBAAoB,MAAM,CAAC,GAAG,CAAC,GAAG,MAAM,CAAC,GAAG,CAAC,CAAC;EAC9C,oBAAoB,GAAG,GAAG,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC;EACtC,oBAAoB,GAAG,GAAG,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC;EACtC,oBAAoB,IAAI,GAAG,IAAI,GAAG,CAAC,GAAG,CAAC,CAAC;EACxC,iBAAiB;EACjB,aAAa;EACb;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA,SAAS,MAAM;each,YAAY,MAAM,CAAC,GAAG,CAAC,GAAG,MAAM,CAAC,GAAG,CAAC,CAAC;EACtC,YAAY,GAAG,GAAG,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC;EAC9B,YAAY,GAAG,GAAG,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC;EAC9B,SAAS;EACT,KAAK;AACL;EACA;AACA;EACA;EACA;AACA;EACA,IAAI,OAAO,GAAG,CAAC;each,CAAC;AACD;AACA;EACA,SAASC,cAAY,GAAG;EACxB,IAAI,MAAM,OAAO,GAAG,IAAI,WAAW,CAAC,OAAO,CAAC,CAAC;EAC7C,IAAI,OAAO,OAAO,CAAC,MAAM,CAAC,YAAY,CAAC,CAAC;EACxC,CAAC;AACD;EACA,MAAM,YAAY,GAAG,OAAO,CAAC;EAC7B,MAAM,KAAK,GAAGA,cAAY,EAAE,CAAC;AAC7B;EACA,SAASC,mBAAiB,CAAC,GAAG,IAAI,EAAE;EACpC,IAAI,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,EAAE;EACzB,QAAQ,MAAM,GAAG,GAAG,IAAI,CAAC,MAAM,CAAC,CAAC,GAAG,EAAE,GAAG,KAAK,GAAG,GAAG,GAAG,CAAC,MAAM,EAAE,CAAC,CAAC,CAAC;EACnE,QAAQ,MAAM,MAAM,GAAG,IAAI,UAAU,CAAC,GAAG,CAAC,CAAC;EAC3C,QAAQ,IAAI,MAAM,GAAG,CAAC,CAAC;EACvB,QAAQ,IAAI,CAAC,OAAO,CAAC,IAAI,IAAI;EAC7B,YAAY,MAAM,CAAC,GAAG,CAAC,IAAI,EAAE,MAAM,CAAC,CAAC;EACrC,YAAY,MAAM,IAAI,IAAI,CAAC,MAAM,CAAC;EAClC,SAAS,CAAC,CAAC;EACX,QAAQ,OAAO,MAAM,CAAC;EACtB,KAAK,MAAM,IAAI,IAAI,CAAC,MAAM,EAAE;EAC5B,QAAQ,OAAO,IAAI,CAAC,CAAC,CAAC,CAAC;EACvB,KAAK;EACL,CAAC;AACD;EACA,SAAS,eAAe,CAAC,MAAM,EAAE;EACjC,IAAI,MAAM,GAAG,GAAG,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC;EACjD,IAAI,MAAM,SAAS,GAAG,IAAI,UAAU,CAAC,GAAG,CAAC,CAAC;AAC1C;EACA,IAAI,KAAK,IAAI,KAAK,GAAG,CAAC,EAAE,KAAK,GAAG,SAAS,CAAC,MAAM,EAAE,KAAK,GAAG,GAAG;EAC7D,QAAQ,MAAM,IAAI,GAAG,MAAM,GAAG,IAAI,CAAC;EACnC,QAAQ,SAAS,CAAC,KAAK,CAAC,GAAG,IAAI,CAAC;EAChC,QAAQ,MAAM,GAAG,CAAC,MAAM,GAAG,IAAI,IAAI,GAAG,CAAC;EACvC,KAAK;AACL;EACA,IAAI,OAAO,SAAS,CAAC;EACrB,CAAC;AACD;EACA,SAAS,eAAe,CAAC,SAAS,EAAE;EACpC,IAAI,IAAI,MAAM,GAAG,CAAC,CAAC;EACnB,IAAI,KAAK,IAAI,CAAC,GAAG,SAAS,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,EAAE,CAAC,EAAE,EAAE;EACpD,QAAQ,MAAM,GAAG,CAAC,MAAM,GAAG,GAAG,IAAI,SAAS,CAAC,CAAC,CAAC,CAAC;EAC/C,KAAK;AACL;EACA,IAAI,OAAO,MAAM,CAAC;EAClB,CAAC;AACD;EACA,SAAS,IAAI,CAAC,KAAK,EAAE,EAAE,KAAK,GAAG,IAAI,EAAE,GAAG,EAAE,EAAE;EAC5C,IAAI,MAAM,GAAG,GAAG,IAAI,UAAU,CAAC,IAAI,CAAC,GAAG,CAAC,KAAK,CAAC,MAAM,GAAG,GAAG,GAAG,CAAC,EAAE,EAAE,GAAG,IAAI,CAAC,CAAC,CAAC;EAC5E,IAAI,MAAM,GAAG,GAAG,QAAQ,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;EACrC,IAAI,MAAM,SAAS,GAAG,eAAe,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC;EACpD,IAAI,MAAM,OAAO,GAAG;EACpB,QAAQ,UAAU,CAAC,EAAE,CAAC,SAAS,CAAC,MAAM,CAAC;EACvC,QAAQ,SAAS;EACjB,QAAQ,GAAG,CAAC,KAAK,CAAC,CAAC,EAAE,GAAG,CAAC;EACzB,KAAK,CAAC;EACN,IAAI,IAAI,KAAK,EAAE;each,QAAQ,OAAO,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC;EAC/B,KAAK;EACL,IAAI,OAAOA,mBAAiB,CAAC,GAAG,OAAO,CAAC,CAAC;EACzC,CAAC;AACD;EACA,SAAS,MAAM,CAAC,KAAK,EAAE,EAAE,KAAK,GAAG,IAAI,EAAE,GAAG,EAAE,EAAE;EAC9C,IAAI,IAAI,KAAK,EAAE;each,QAAQ,MAAM,OAAO,GAAG,IAAI,WAAW,CAAC,OAAO,CAAC,CAAC;EACjD,QAAQ,MAAM,YAAY,GAAG,OAAO,CAAC,MAAM,CAAC,KAAK,CAAC,KAAK,CAAC,CAAC,EAAE,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC;EAC1E,QAAQ,IAAI,YAAY,KAAK,YAAY,EAAE;EAC3C,YAAY,MAAM,IAAI,KAAK,CAAC,qBAAqB,CAAC,CAAC;EACnD,SAAS;EACT,KAAK;EACL,IAAI,MAAM,YAAY,GAAG,KAAK,GAAG,KAAK,CAAC,MAAM,GAAG,CAAC,CAAC;EAClD,IAAI,MAAM,IAAI,GAAG,KAAK,CAAC,YAAY,CAAC,CAAC;EACrC,IAAI,MAAM,KAAK,GAAG,YAAY,GAAG,CAAC,CAAC;EACnC,IAAI,MAAM,GAAG,GAAG,YAAY,GAAG,IAAI,GAAG,CAAC,CAAC;EACxC,IAAI,MAAM,GAAG,GAAG,eAAe,CAAC,KAAK,CAAC,KAAK,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC,CAAC;EACzD,IAAI,KAAK,GAAG,KAAK,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC;EAC7B,IAAI,MAAM,GAAG,GAAG,IAAI,UAAU,CAAC,GAAG,CAAC,CAAC;EACpC,IAAI,UAAU,CAAC,KAAK,EAAE,KAAK,CAAC,MAAM,EAAE,GAAG,CAAC,CAAC;EACzC,IAAI,OAAO,GAAG,CAAC;each,CAAC;AACD;EACA,0BAAY,GAAG,IAAI,CAAC;EACpB,8BAAc,GAAG,MAAM;;ECpSR,gBAAQ,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,IAAI,OAAO,CAAC,SAAS,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,IAAI,cAAc,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,UAAU,CAAC,OAAM,CAAC,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,UAAU,CAAC,CAAC,CAAC,UAAU,CAAC,MAAM,CAAC,CAAC,CAAC,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,WAAW,CAAC,IAAI,CAAC,UAAU,CAAC,OAAO,OAAO,CAAC,OAAO,CAAC,CAAC,CAAC,YAAY,CAAC,CAAC,CAAC,IAAI,CAAC,UAAU,CAAC,OAAO,OAAO,CAAC,OAAO,CAAC,CAAC,CAAC,YAAY,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,IAAI,CAAC,UAAU,CAAC,OAAO,OAAO,CAAC,OAAO,CAAC,IAAI,IAAI,CAAC,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,IAAI,CAAC,UAAU,CAAC,OAAO,CAAC,CAAC,CAAC,OAAO,CAAC,UAAU,CAAC,OAAO,CAAC,CAAC,CAAC,GAAG,CAAC,SAAS,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,WAAW,EAAE,CAAC,CAAC,CAAC,GAAG,CAAC,SAAS,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,WAAW,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,IAAI,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,MAAM,EAAE,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,UAAU,CAAC,CAAC,CAAC,qBAAqB,EAAE,CAAC,OAAO,CAAC,8BAA8B,CAAC,SAAS,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,WAAW,EAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,EAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,EAAC,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,CAAC,eAAe,CAAC,SAAS,EAAE,CAAC,CAAC,WAAW,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,gBAAgB,CAAC,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,IAAI,EAAE,IAAI,EAAC,CAAC,CAAC;;ECAx4B;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;;;;;;;;;;;;;;;;;EAOA,IAAMC,IAAI,GAAG,OAAON,MAAP,KAAkB,WAAlB,GAAgCA,MAAhC,GAAyCO,IAAtD;;EAMA,IAAI,CAACD,IAAI,CAACE,KAAV,EAAiB;EACbF,EAAAA,IAAI,CAACE,KAAL,GAAaC,OAAb;EACH;;EAED,IAAIC,EAAJ,EAAQC,MAAR,EAAcC,WAAd;EAEA,IAAMC,EAAE,GAAGP,IAAI,CAACO,EAAhB;EAEA;;EACA;;EACA,SAASC,aAAT,CAAuBC,GAAvB,EAA4BC,EAA5B,EAAgC;EAC5B,MAAIC,IAAI,GAAG,KAAX;EAAA,MAAkBC,GAAG,GAAG,IAAxB;EAAA,MAEIC,GAAG,GAAGJ,GAAG,CAACK,QAFd;EAAA,MAGId,IAAI,GAAGa,GAAG,CAACE,eAHf;EAAA,MAIIC,MAAM,GAAGH,GAAG,CAACI,gBAJjB;EAAA,MAMIC,GAAG,GAAGF,MAAM,GAAG,kBAAH,GAAwB,aANxC;EAAA,MAOIG,GAAG,GAAGH,MAAM,GAAG,qBAAH,GAA2B,aAP3C;EAAA,MAQII,GAAG,GAAGJ,MAAM,GAAG,EAAH,GAAQ,IARxB;EAAA,MAUIzB,IAAI,GAAG,SAAPA,IAAO,CAAS8B,CAAT,EAAY;each,QAAIA,CAAC,CAACC,IAAF,IAAU,kBAAV,IAAgCT,GAAG,CAACU,UAAJ,IAAkB,UAAtD,EAAkE;EAClE,KAACF,CAAC,CAACC,IAAF,IAAU,MAAV,GAAmBb,GAAnB,GAAyBI,GAA1B,EAA+BM,GAA/B,EAAoCC,GAAG,GAAGC,CAAC,CAACC,IAA5C,EAAkD/B,IAAlD,EAAwD,KAAxD;EACA,QAAI,CAACoB,IAAD,KAAUA,IAAI,GAAG,IAAjB,CAAJ,EAA4BD,EAAE,CAACc,IAAH,CAAQf,GAAR,EAAaY,CAAC,CAACC,IAAF,IAAUD,CAAvB;EAC/B,GAdL;EAAA,MAgBII,IAAI,GAAG,SAAPA,IAAO,GAAW;EACd,QAAI;EAAEzB,MAAAA,IAAI,CAAC0B,QAAL,CAAc,MAAd;EAAwB,KAA9B,CAA+B,OAAML,CAAN,EAAS;EAAEM,MAAAA,UAAU,CAACF,IAAD,EAAO,EAAP,CAAV;EAAsB;EAAS;;EACzElC,IAAAA,IAAI,CAAC,MAAD,CAAJ;EACH,GAnBL;;EAqBA,MAAIsB,GAAG,CAACU,UAAJ,IAAkB,UAAtB,EAAkCb,EAAE,CAACc,IAAH,CAAQf,GAAR,EAAa,MAAb,EAAlC,KACK;EACD,QAAI,CAACO,MAAD,IAAWhB,IAAI,CAAC0B,QAApB,EAA8B;EAC1B,UAAI;EAAEd,QAAAA,GAAG,GAAG,CAACH,GAAG,CAACmB,YAAX;EAA0B,OAAhC,CAAiC,OAAMP,CAAN,EAAS;;EAC1C,UAAIT,GAAJ,EAASa,IAAI;EAChB;;EACDZ,IAAAA,GAAG,CAACK,GAAD,CAAH,CAASE,GAAG,GAAG,kBAAf,EAAmC7B,IAAnC,EAAyC,KAAzC;EACAsB,IAAAA,GAAG,CAACK,GAAD,CAAH,CAASE,GAAG,GAAG,kBAAf,EAAmC7B,IAAnC,EAAyC,KAAzC;EACAkB,IAAAA,GAAG,CAACS,GAAD,CAAH,CAASE,GAAG,GAAG,MAAf,EAAuB7B,IAAvB,EAA6B,KAA7B;EACH;EACJ;;EAED;;EACA;;;EACA,SAASsC,GAAT,CAAaC,CAAb,EAA8B;EAAA,MAAdC,KAAc,uEAAN,IAAM;EAC1B,MAAIC,OAAO,GAAGC,SAAS,CAAC,CAAD,CAAT,KAAiB,IAA/B;;EACA,WAASC,GAAT,CAAaJ,CAAb,EAAgB;EACZ,QAAI,CAACK,QAAQ,EAAb,EAAiB;EACb;EACH;;EACD,QAAIC,KAAK,GAAGC,UAAU,CAACC,GAAX,CAAe,MAAf,EAAuBR,CAAvB,CAAZ;;EACA,QAAIC,KAAK,KAAK,IAAV,IAAkBA,KAAK,YAAYQ,MAAjB,IAA2BR,KAAK,CAACS,IAAN,CAAWJ,KAAX,CAAjD,EAAoE;EAChEK,MAAAA,OAAO,CAACZ,GAAR,CAAYQ,UAAU,CAACC,GAAX,CAAe,MAAf,EAAuBR,CAAvB,IAA4B,IAA5B,GAAmCM,KAA/C;EACH;;EACD,QAAIJ,OAAJ,EAAa;EACTS,MAAAA,OAAO,CAACZ,GAAR,CAAYC,CAAZ;EACH;EACJ;;EACD,MAAIY,UAAU,CAACZ,CAAD,CAAd,EAAmB;EACfA,IAAAA,CAAC,CAACa,IAAF,CAAOT,GAAP;EACH,GAFD,MAEO;EACHA,IAAAA,GAAG,CAACJ,CAAD,CAAH;EACH;;EACD,SAAOA,CAAP;EACH;;EAED;;;EACA,SAASK,QAAT,GAAoB;EAChB,SAAOS,QAAQ,IAAIA,QAAQ,CAACN,GAAT,CAAa,OAAb,EAAsB;EAAEO,IAAAA,UAAU,EAAE;EAAd,GAAtB,CAAnB;EACH;EACD;;EACA;EACA;;;EACA,SAASC,eAAT,CAAyBC,QAAzB,EAAmC;EAC/B,SAAOA,QAAQ,iBAAUA,QAAV,8BAAsCA,QAAtC,SAAoD,YAAnE;EACH;;EACD,SAASC,eAAT,CAAyBD,QAAzB,EAAmCE,KAAnC,EAA0C;EACtC,mBAAUH,eAAe,CAACC,QAAD,CAAzB,kBAA2CE,KAA3C,eAAqDA,KAArD;EACH;;;EAED,SAASC,cAAT,CAAwBH,QAAxB,EAAkCE,KAAlC,EAAyC;EACrC;EACA,mBAAUH,eAAe,CAACC,QAAD,CAAzB,wBAAiDE,KAAjD,eAA2DA,KAA3D,2BAAiFA,KAAjF,kCAA8GA,KAA9G,eAAwHA,KAAxH,eAAkIA,KAAlI;EACH;;EACD,SAASE,cAAT,CAAwBJ,QAAxB,EAAkCE,KAAlC,EAAyC;EACrC,mBAAUH,eAAe,CAACC,QAAD,CAAzB,kBAA2CE,KAA3C;EACH;;EACD,IAAIG,KAAK,GAAG,uDAAZ;EACA,IAAIC,UAAU,GAAG,oGAAjB;;EAEA,IAAIC,kBAAkB,4DAAqDD,UAArD,+BAAoFA,UAApF,gDAAtB;EACA,IAAIE,QAAQ,GAAG,IAAIhB,MAAJ,oBAAuBc,UAAvB,QAAsC,GAAtC,CAAf;;EACA,SAASG,qBAAT,CAA+BT,QAA/B,EAAyCE,KAAzC,EAAgD;EAC5C;EACA,MAAIQ,GAAG,GAAGV,QAAQ,KAAK,GAAb,oBAA6BE,KAA7B,0BAAkDA,KAAlD,MAAV;EACA,MAAIS,EAAE,GAAG,EAAT;;EACA,MAAIX,QAAQ,KAAK,EAAjB,EAAqB;EACjBW,IAAAA,EAAE,GAAG,mGAAL;EACH;;EACD,SAAO,IAAInB,MAAJ,mBAAsBmB,EAAtB,yCAAuDT,KAAvD,eAAiEA,KAAjE,iBAA6EA,KAA7E,oBAA4FA,KAA5F,eAAsGQ,GAAtG,iBAAgHC,EAAhH,yCAAiJT,KAAjJ,eAA2JA,KAA3J,oBAA0KA,KAA1K,gBAA4L,GAA5L,CAAP;EACH;;EACD,IAAIU,eAAe,GAAI,YAAW;EAC9B,MAAIC,MAAM,GAAG,EAAb;EACA,GACI,CAAC,EAAD,EAAK,EAAL,EAAS,OAAT,CADJ,EAEI,CAAC,EAAD,EAAK,GAAL,EAAU,aAAV,CAFJ,EAGI,CAAC,CAAD,EAAI,GAAJ,EAAS,OAAT,CAHJ,EAII,CAAC,CAAD,EAAI,GAAJ,EAAS,MAAT,CAJJ,EAKEC,OALF,CAKU,gBAA8B;EAAA;EAAA,QAA5BC,KAA4B;EAAA,QAArBf,QAAqB;EAAA,QAAXE,KAAW;;EACpCW,IAAAA,MAAM,CAACE,KAAD,CAAN,GAAgBN,qBAAqB,CAACT,QAAD,EAAWE,KAAX,CAArC;EACH,GAPD;EAQA,SAAOW,MAAP;EACH,CAXqB,EAAtB;;EAYA,IAAMG,UAAU,GAAG;each,WAAS,MADM;EAEf,eAAa,MAFE;EAGf,YAAU,MAHK;EAIf,YAAU,MAJK;EAKf,aAAW,IALI;EAMf,UAAQ,MANO;EAOf,YAAU,IAPK;EAQf,WAAS,GARM;EASf,SAAO,IATQ;EAUf;EACA,SAAO,MAXQ;EAYf,SAAO,MAZQ;EAaf,SAAO,MAbQ;each,SAAO,MAdQ;EAef,SAAO,MAfQ;EAgBf,SAAO,MAhBQ;EAiBf,SAAO,MAjBQ;EAkBf,SAAO,MAlBQ;EAmBf,SAAO,MAnBQ;EAoBf,SAAO,MApBQ;EAqBf,SAAO,MArBQ;EAsBf,SAAO,MAtBQ;EAuBf,SAAO,MAvBQ;EAwBf,SAAO,MAxBQ;EAyBf,SAAO,MAzBQ;EA0Bf,QAAM,MA1BS;EA2Bf,SAAO,MA3BQ;EA4Bf,QAAM,MA5BS;EA6Bf,QAAM,MA7BS;EA8Bf,QAAM,MA9BS;EA+Bf,SAAO,MA/BQ;EAgCf,QAAM,MAhCS;EAiCf,SAAO,MAjCQ;EAkCf,QAAM,MAlCS;EAmCf,QAAM,MAnCS;EAoCf,QAAM,MApCS;EAqCf,QAAM,MArCS;EAsCf,QAAM,MAtCS;EAuCf,QAAM,MAvCS;EAwCf,QAAM,MAxCS;EAyCf,QAAM,MAzCS;EA0Cf,SAAO;EA1CQ,CAAnB;EA6CA;EACA;;EACA,SAASC,UAAT,CAAoBC,MAApB,EAA4B;EACxB,MAAMC,MAAM,GAAG,EAAf;EACA,MAAIC,OAAO,GAAG,CAAd;EACA,MAAMC,MAAM,GAAGH,MAAM,CAACG,MAAtB;;EACA,SAAOD,OAAO,GAAGC,MAAjB,EAAyB;EACrB,QAAMhC,KAAK,GAAG6B,MAAM,CAACI,UAAP,CAAkBF,OAAO,EAAzB,CAAd;;EACA,QAAI/B,KAAK,IAAI,MAAT,IAAmBA,KAAK,IAAI,MAA5B,IAAsC+B,OAAO,GAAGC,MAApD,EAA4D;EACxD;EACA,UAAME,KAAK,GAAGL,MAAM,CAACI,UAAP,CAAkBF,OAAO,EAAzB,CAAd;;EACA,UAAI,CAACG,KAAK,GAAG,MAAT,MAAqB,MAAzB,EAAiC;EAAE;EAC/BJ,QAAAA,MAAM,CAACK,IAAP,CAAY,CAAC,CAACnC,KAAK,GAAG,KAAT,KAAmB,EAApB,KAA2BkC,KAAK,GAAG,KAAnC,IAA4C,OAAxD;EACH,OAFD,MAEO;EACH;EACA;EACAJ,QAAAA,MAAM,CAACK,IAAP,CAAYnC,KAAZ;EACA+B,QAAAA,OAAO;EACV;EACJ,KAXD,MAWO;EACHD,MAAAA,MAAM,CAACK,IAAP,CAAYnC,KAAZ;EACH;EACJ;;EACD,SAAO8B,MAAP;EACH;;;EAED,IAAMM,iBAAiB,GAAGC,MAAM,CAACC,IAAP,CAAYX,UAAZ,EAAwBY,IAAxB,CAA6B,GAA7B,CAA1B;EACA,IAAMC,WAAW,gCAAyBJ,iBAAzB,eAAjB;EACA,IAAMK,OAAO,GAAG,IAAItC,MAAJ,YAAeqC,WAAf,QAA+B,GAA/B,CAAhB;;EAEA,SAASE,aAAT,CAAuBpE,EAAvB,EAA2B;EACvB,MAAMqE,MAAM,GAAG,CACX,CAAC,GAAD,EAAM,OAAN,CADW,EAEX,CAAC,GAAD,EAAM,aAAN,CAFW,EAGX,CAAC,GAAD,EAAM,MAAN,CAHW,EAIX,CAAC,GAAD,EAAM,OAAN,CAJW,EAKX,CAAC,EAAD,EAAK,OAAL,CALW,CAAf,CADuB;;EASvB,MAAInB,MAAM,GAAGmB,MAAM,CAACC,GAAP,CAAW;EAAA;EAAA,QAAEC,CAAF;EAAA,QAAKhC,KAAL;;EAAA,WAAgBvC,EAAE,CAACuE,CAAD,EAAIhC,KAAJ,CAAlB;EAAA,GAAX,EAAyC0B,IAAzC,CAA8C,GAA9C,CAAb;;EACA,MAAIjE,EAAE,KAAKwC,cAAX,EAA2B;EACvBU,IAAAA,MAAM,GAAGN,kBAAkB,GAAG,GAArB,GAA2BM,MAApC;EACH;;EACD,SAAOA,MAAP;EACH;;EACD,SAASsB,YAAT,CAAsBxE,EAAtB,EAA0B;EACtB,SAAO,IAAI6B,MAAJ,CAAW,SAASuC,aAAa,CAACpE,EAAD,CAAtB,GAA6B,IAAxC,EAA8C,GAA9C,CAAP;EACH;;EACD,IAAMyE,UAAU,GAAGD,YAAY,CAAChC,cAAD,CAA/B;EACA,IAAMkC,WAAW,GAAGF,YAAY,CAAClC,eAAD,CAAhC;EACA,IAAMqC,MAAM,GAAGH,YAAY,CAAC/B,cAAD,CAA3B;;EAGA,IAAMmC,WAAW,GAAG,IAAI/C,MAAJ,CAAW,SAASY,cAAc,CAAC,EAAD,EAAK,UAAL,CAAvB,GAA0C,IAArD,EAA2D,GAA3D,CAApB;EACA,IAAMoC,gBAAgB,GAAG,IAAIhD,MAAJ,CAAW,SAASS,eAAe,CAAC,EAAD,EAAK,UAAL,CAAxB,GAA2C,IAAtD,EAA4D,GAA5D,CAAzB;EACA,IAAMwC,eAAe,GAAG,IAAIjD,MAAJ,CAAW,SAASW,cAAc,CAAC,EAAD,EAAK,UAAL,CAAvB,GAA0C,IAArD,EAA2D,GAA3D,CAAxB;EAEA,IAAMuC,qBAAqB,GAAGjC,qBAAqB,CAAC,EAAD,EAAK,aAAL,CAAnD;EAEA,IAAMkC,gBAAgB,GAAG,2BAAzB;EACA;;EACA,SAASC,aAAT,CAAuBC,GAAvB,EAA4B;EACxB,MAAIC,KAAK,GAAGD,GAAG,CAACE,KAAJ,CAAUJ,gBAAV,CAAZ;EACA,MAAIK,OAAO,GAAG,EAAd;;EACA,MAAIF,KAAK,CAAC,CAAD,CAAT,EAAc;EACV,QAAIvE,IAAI,GAAGuE,KAAK,CAAC,CAAD,CAAL,CAASG,OAAT,CAAiB,IAAjB,EAAuB,EAAvB,EAA2BC,WAA3B,GAAyCC,KAAzC,CAA+C,EAA/C,CAAX;;EACA,QAAI5E,IAAI,CAAC6E,QAAL,CAAc,GAAd,CAAJ,EAAwB;EACpBJ,MAAAA,OAAO,CAACjC,KAAR,GAAgB,EAAhB;EACH,KAFD,MAEO,IAAIxC,IAAI,CAAC6E,QAAL,CAAc,GAAd,CAAJ,EAAwB;EAC3BJ,MAAAA,OAAO,CAACjC,KAAR,GAAgB,CAAhB;EACH,KAFM,MAEA,IAAIxC,IAAI,CAAC6E,QAAL,CAAc,GAAd,CAAJ,EAAwB;EAC3BJ,MAAAA,OAAO,CAACjC,KAAR,GAAgB,CAAhB;EACH,KAFM,MAEA,IAAIxC,IAAI,CAAC6E,QAAL,CAAc,GAAd,CAAJ,EAAwB;EAC3BJ,MAAAA,OAAO,CAACjC,KAAR,GAAgB,EAAhB;EACH;;EACD,QAAIxC,IAAI,CAAC6E,QAAL,CAAc,GAAd,CAAJ,EAAwB;EACpBJ,MAAAA,OAAO,CAACK,OAAR,GAAkB,IAAlB;EACH;;EACD,QAAI9E,IAAI,CAAC6E,QAAL,CAAc,GAAd,CAAJ,EAAwB;EACpBJ,MAAAA,OAAO,CAACM,KAAR,GAAgB,IAAhB;EACH;EACJ;;EACDN,EAAAA,OAAO,CAACO,MAAR,GAAiBT,KAAK,CAAC,CAAD,CAAtB;EACA,SAAOE,OAAP;EACH;;;EAED,SAASQ,cAAT,CAAwBX,GAAxB,EAAyC;EAAA,MAAZ9B,KAAY,uEAAJ,EAAI;EACrC,MAAI0C,KAAK,GAAGb,aAAa,CAACC,GAAD,CAAzB;EACA,MAAIC,KAAK,GAAGW,KAAK,CAACF,MAAN,CAAaJ,KAAb,CAAmB,GAAnB,CAAZ;EACA,MAAIO,GAAG,GAAGC,SAAS,CAAC;EAChBD,IAAAA,GAAG,EAAEE,OAAO,CAAC,CAACd,KAAK,CAAC,CAAD,CAAN,EAAWW,KAAK,CAAC1C,KAAN,IAAeA,KAA1B,CAAD,CADI;EAEhB8C,IAAAA,KAAK,EAAED,OAAO,CAAC,CAACd,KAAK,CAAC,CAAD,CAAN,EAAWW,KAAK,CAAC1C,KAAN,IAAeA,KAA1B,CAAD;EAFE,GAAD,CAAnB;;EAIA,MAAI0C,KAAK,CAACJ,OAAV,EAAmB;each,WAAOK,GAAG,CAACI,OAAJ,EAAP;EACH,GAFD,MAEO;EACH,WAAOJ,GAAP;EACH;EACJ;;;EAED,SAASK,aAAT,CAAuBlB,GAAvB,EAAwC;EAAA,MAAZ9B,KAAY,uEAAJ,EAAI;EACpC,MAAI0C,KAAK,GAAGb,aAAa,CAACC,GAAD,CAAzB;;EACA,MAAIY,KAAK,CAACJ,OAAV,EAAmB;each,WAAOW,MAAM,CAACC,QAAQ,CAACR,KAAK,CAACF,MAAP,EAAeE,KAAK,CAAC1C,KAAN,IAAeA,KAA9B,CAAT,CAAb;EACH;;EACD,SAAO6C,OAAO,CAAC,CAACH,KAAK,CAACF,MAAP,EAAeE,KAAK,CAAC1C,KAAN,IAAeA,KAA9B,CAAD,CAAd;EACH;;;EAED,SAASmD,eAAT,CAAyBrB,GAAzB,EAA8B;EAC1B,MAAIX,CAAC,GAAGW,GAAG,CAACE,KAAJ,CAAU,mBAAV,CAAR;;EACA,MAAIoB,KAAJ;;EACA,MAAIjC,CAAJ,EAAO;EACH,QAAIkC,GAAG,GAAGH,QAAQ,CAAC/B,CAAC,CAAC,CAAD,CAAF,EAAO,EAAP,CAAlB;EACAiC,IAAAA,KAAI,GAAGE,MAAM,CAACC,aAAP,CAAqBF,GAArB,CAAP;EACH,GAHD,MAGO;EACHlC,IAAAA,CAAC,GAAGW,GAAG,CAACE,KAAJ,CAAU,UAAV,CAAJ;;EACA,QAAIb,CAAJ,EAAO;EACHiC,MAAAA,KAAI,GAAGjC,CAAC,CAAC,CAAD,CAAR;EACH;EACJ;;EACD,MAAIiC,KAAJ,EAAU;EACN,WAAOI,UAAU,CAACJ,KAAD,CAAjB;EACH;;EACD,QAAM,IAAIK,KAAJ,CAAU,0BAAV,CAAN;EACH;;;EAED,SAASC,aAAT,CAAuB5B,GAAvB,EAAwC;EAAA,MAAZ9B,KAAY,uEAAJ,EAAI;;EACpC,WAAS2D,SAAT,CAAmBC,CAAnB,EAAsB;EAClB,QAAItF,KAAJ;;EACA,QAAIsF,CAAC,KAAK,GAAV,EAAe;EACXtF,MAAAA,KAAK,GAAGuE,OAAO,CAAC,CAAD,CAAf;EACH,KAFD,MAEO,IAAIe,CAAC,KAAK,GAAV,EAAe;EAClBtF,MAAAA,KAAK,GAAGuE,OAAO,CAAC,CAAC,CAAF,CAAf;EACH,KAFM,MAEA,IAAIe,CAAC,CAAC5B,KAAF,CAAQR,WAAR,CAAJ,EAA0B;EAC7BlD,MAAAA,KAAK,GAAGuE,OAAO,CAAC,CAACe,CAAD,EAAI5D,KAAJ,CAAD,CAAf;EACH,KAFM,MAEA,IAAI4D,CAAC,CAAC5B,KAAF,CAAQP,gBAAR,CAAJ,EAA+B;EAClC,UAAIM,KAAK,GAAG6B,CAAC,CAACxB,KAAF,CAAQ,GAAR,CAAZ;EACA9D,MAAAA,KAAK,GAAGsE,SAAS,CAAC;EACdD,QAAAA,GAAG,EAAEE,OAAO,CAAC,CAACd,KAAK,CAAC,CAAD,CAAN,EAAW/B,KAAX,CAAD,CADE;EAEd8C,QAAAA,KAAK,EAAED,OAAO,CAAC,CAACd,KAAK,CAAC,CAAD,CAAN,EAAW/B,KAAX,CAAD;EAFA,OAAD,CAAjB;EAIH,KANM,MAMA,IAAI4D,CAAC,CAAC5B,KAAF,CAAQvC,QAAR,CAAJ,EAAuB;EAC1B,UAAIoE,MAAK,GAAGC,WAAW,CAACF,CAAD,CAAvB;;EACA,UAAIlB,KAAK,CAACH,KAAV,EAAiB;EACb,eAAOsB,MAAK,CAACE,UAAN,EAAP;EACH;;EACD,aAAOF,MAAP;EACH,KANM,MAMA,IAAID,CAAC,CAAC5B,KAAF,CAAQ,QAAR,CAAJ,EAAuB;EAC1B,aAAOa,OAAO,CAACmB,GAAD,CAAd;EACH,KAFM,MAEA,IAAIJ,CAAC,CAAC5B,KAAF,CAAQ,QAAR,CAAJ,EAAuB;EAC1B,UAAI4B,CAAC,CAAC,CAAD,CAAD,KAAS,GAAb,EAAkB;EACd,eAAOf,OAAO,CAACoB,MAAM,CAACC,iBAAR,CAAd;EACH;;EACD,aAAOrB,OAAO,CAACoB,MAAM,CAACE,iBAAR,CAAd;EACH,KALM,MAKE;EACH,YAAM,IAAIV,KAAJ,CAAU,uBAAV,CAAN;EACH;;EACD,QAAIf,KAAK,CAACJ,OAAV,EAAmB;each,aAAOW,MAAM,CAAC3E,KAAK,CAACyE,OAAN,EAAD,CAAb;EACH;;EACD,WAAOzE,KAAP;EACH;;EACD,MAAIoE,KAAK,GAAGb,aAAa,CAACC,GAAD,CAAzB;EACA9B,EAAAA,KAAK,GAAG0C,KAAK,CAAC1C,KAAN,IAAeA,KAAvB;EACA,MAAI+B,KAAJ;EACA,MAAIqC,UAAU,GAAG1B,KAAK,CAACF,MAAN,CAAaR,KAAb,CAAmBL,qBAAnB,CAAjB;;EACA,MAAI3B,KAAK,KAAK,EAAV,IAAgBoE,UAApB,EAAgC;EAC5BrC,IAAAA,KAAK,GAAGqC,UAAR;EACH,GAFD,MAEO;EACHrC,IAAAA,KAAK,GAAGW,KAAK,CAACF,MAAN,CAAaR,KAAb,CAAmBnC,eAAe,CAACG,KAAD,CAAlC,CAAR;EACH;;EACD,MAAIqE,EAAJ,EAAQC,EAAR;EACAA,EAAAA,EAAE,GAAGX,SAAS,CAAC5B,KAAK,CAAC,CAAD,CAAN,CAAd;;EACA,MAAIA,KAAK,CAAC,CAAD,CAAT,EAAc;EACVsC,IAAAA,EAAE,GAAGV,SAAS,CAAC5B,KAAK,CAAC,CAAD,CAAN,CAAd;EACH,GAFD,MAEO;EACHsC,IAAAA,EAAE,GAAGxB,OAAO,CAAC,CAAD,CAAZ;EACH;;EACD,MAAIyB,EAAE,CAACC,GAAH,CAAO,CAAP,MAAc,CAAd,IAAmBD,EAAE,CAACE,QAAH,KAAgB,QAAvC,EAAiD;EAC7C,WAAOH,EAAP;EACH;;EACD,SAAOI,QAAQ,CAAC;EAAEH,IAAAA,EAAE,EAAFA,EAAF;EAAMD,IAAAA,EAAE,EAAFA;EAAN,GAAD,CAAf;EACH;;;EAED,SAASK,MAAT,CAAgBpG,KAAhB,EAAuB;EACnB,SAAO4E,QAAQ,CAAC5E,KAAK,CAAC3C,QAAN,EAAD,EAAmB,EAAnB,CAAR,KAAmC2C,KAA1C;EACH;;;EAED,SAASqG,aAAT,CAAuBC,GAAvB,EAA4B;EACxB,MAAIC,SAAS,GAAGD,GAAG,CAAC5C,KAAJ,CAAU,gDAAV,CAAhB;;EACA,MAAI6C,SAAJ,EAAe;EACX,QAAIC,QAAQ,GAAG5B,QAAQ,CAAC2B,SAAS,CAAC,CAAD,CAAV,EAAe,EAAf,CAAvB;EACA,QAAIE,OAAJ,CAFW;;EAGX,QAAIC,MAAM,GAAGH,SAAS,CAAC,CAAD,CAAT,CAAa3C,OAAb,CAAqB,oBAArB,EAA2C,IAA3C,EAAiD5B,MAA9D;EACA,QAAI2E,cAAc,GAAGJ,SAAS,CAAC,CAAD,CAAT,IAAgBA,SAAS,CAAC,CAAD,CAAT,CAAavE,MAAlD;;EACA,QAAI0E,MAAM,GAAGE,IAAI,CAACC,GAAL,CAASL,QAAT,CAAb,EAAiC;EAC7BC,MAAAA,OAAO,GAAGlC,OAAO,CAAC,CAACgC,SAAS,CAAC,CAAD,CAAT,CAAa3C,OAAb,CAAqB,IAArB,EAA2B,EAA3B,CAAD,EAAiC,EAAjC,CAAD,CAAjB;;EACA,UAAI+C,cAAJ,EAAoB;EAChBH,QAAAA,QAAQ,IAAIG,cAAZ;EACH;EACJ;EACJ;;EACD,SAAO;EAAEH,IAAAA,QAAQ,EAARA,QAAF;EAAYC,IAAAA,OAAO,EAAPA;EAAZ,GAAP;EACH;;;EAED,SAASjB,WAAT,CAAqBhC,GAArB,EAA0B;EACtB,MAAIY,KAAK,GAAGb,aAAa,CAACC,GAAD,CAAzB;EACA,MAAIxD,KAAK,GAAG8G,UAAU,CAAC1C,KAAK,CAACF,MAAP,CAAtB;EACA,MAAI6C,aAAa,GAAG,CAAC3C,KAAK,CAACF,MAAN,CAAaR,KAAb,CAAmB,MAAnB,KACA,CAACU,KAAK,CAACF,MAAN,CAAaR,KAAb,CAAmB,IAAnB,CADF,KAC+B,CAACU,KAAK,CAACF,MAAN,CAAaR,KAAb,CAAmB,IAAnB,CADpD;;EAEA,MAAI,CAACU,KAAK,CAACJ,OAAX,EAAoB;EAChB,QAAII,KAAK,CAACH,KAAN,IAAe8C,aAAnB,EAAkC;EAC9B,aAAOxC,OAAO,CAACvE,KAAD,CAAd;EACH,KAHe;;;EAKhB,QAAIoG,MAAM,CAACpG,KAAD,CAAN,IAAiBoE,KAAK,CAACF,MAAN,CAAaR,KAAb,CAAmB,YAAnB,CAArB,EAAuD;EACnD,aAAOa,OAAO,CAACvE,KAAD,CAAd;EACH,KAPe;;;EAShB,yBAA4BqG,aAAa,CAACjC,KAAK,CAACF,MAAP,CAAzC;EAAA,QAAMuC,OAAN,kBAAMA,OAAN;EAAA,QAAeD,QAAf,kBAAeA,QAAf;;EACA,QAAIC,OAAO,KAAKxJ,SAAZ,IAAyBuJ,QAAQ,KAAKvJ,SAA1C,EAAqD;EACjD,UAAI+J,MAAM,GAAGzC,OAAO,CAAC,EAAD,CAAP,CAAY0C,GAAZ,CAAgB1C,OAAO,CAACqC,IAAI,CAACC,GAAL,CAASL,QAAT,CAAD,CAAvB,CAAb;;EACA,UAAIpC,KAAK,CAACH,KAAN,IAAeuC,QAAQ,GAAG,CAA9B,EAAiC;EAC7B,eAAOlC,SAAS,CAAC;EAAED,UAAAA,GAAG,EAAEoC,OAAP;EAAgBjC,UAAAA,KAAK,EAAEwC;EAAvB,SAAD,CAAhB;EACH,OAFD,MAEO,IAAIR,QAAQ,GAAG,CAAf,EAAkB;EACrB,eAAOjC,OAAO,CAACkC,OAAD,CAAP,CAAiBS,GAAjB,CAAqBF,MAArB,CAAP;EACH;EACJ;EACJ;;EACDhH,EAAAA,KAAK,GAAG2E,MAAM,CAAC3E,KAAD,CAAd;;EACA,MAAIoE,KAAK,CAACH,KAAV,EAAiB;EACb,WAAOjE,KAAK,CAACyF,UAAN,EAAP;EACH;;EACD,SAAOzF,KAAP;EACH;;;EAED,SAASmH,YAAT,CAAsBtF,MAAtB,EAA8B;EAC1B;EACAA,EAAAA,MAAM,GAAGA,MAAM,CAAC+B,OAAP,CAAe,mBAAf,EAAoC,UAASwD,CAAT,EAAYC,GAAZ,EAAiB;EAC1D,WAAO,QAAQA,GAAG,CAACC,QAAJ,CAAa,CAAb,EAAgB,GAAhB,CAAf;EACH,GAFQ,EAEN1D,OAFM,CAEE,KAFF,EAES,KAFT,CAAT,CAF0B;;EAK1B,MAAIf,CAAC,GAAGhB,MAAM,CAAC6B,KAAP,CAAa,qBAAb,CAAR;;EACA,MAAIb,CAAC,IAAIA,CAAC,CAAC,CAAD,CAAD,CAAKb,MAAL,GAAc,CAAd,KAAoB,CAA7B,EAAgC;EAC5B,UAAM,IAAImD,KAAJ,4CAA8CtC,CAAC,CAAC,CAAD,CAA/C,EAAN;EACH;;EACD,MAAI;EACA,WAAO0E,OAAO,CAACC,IAAI,CAACpD,KAAL,CAAWvC,MAAX,CAAD,CAAd;EACH,GAFD,CAEE,OAAO5C,CAAP,EAAU;EACR,UAAM,IAAIkG,KAAJ,CAAU,wBAAV,CAAN;EACH;EACJ;;;EAED,SAASsC,YAAT,CAAsBjE,GAAtB,EAA2B;EACvB,MAAIA,GAAG,CAACE,KAAJ,CAAU,UAAV,CAAJ,EAA2B;EACvBF,IAAAA,GAAG,GAAGA,GAAG,CAACI,OAAJ,CAAY,cAAZ,EAA4B,EAA5B,CAAN;EACA,QAAI8D,KAAK,GAAG;EACRC,MAAAA,CAAC,EAAE,IADK;EAERC,MAAAA,CAAC,EAAE,IAFK;EAGRtC,MAAAA,CAAC,EAAE;EAHK,KAAZ;EAKA9B,IAAAA,GAAG,GAAGA,GAAG,CAACI,OAAJ,CAAY,cAAZ,EAA4B,UAASwD,CAAT,EAAYS,GAAZ,EAAiB;EAC/C,aAAO7C,MAAM,CAAC8C,YAAP,CAAoBlD,QAAQ,CAAC,MAAMiD,GAAP,EAAY,EAAZ,CAA5B,CAAP;EACH,KAFK,EAEHjE,OAFG,CAEK,QAFL,EAEe,UAASwD,CAAT,EAAYS,GAAZ,EAAiB;EAClC,aAAOH,KAAK,CAACG,GAAD,CAAL,IAAcA,GAArB;EACH,KAJK,CAAN;EAKH;;EACD,SAAO,IAAIE,OAAJ,CAAYvE,GAAZ,CAAP;EACH;;;EAED,SAASwE,cAAT,CAAwBxE,GAAxB,EAA6B;EACzB,MAAIyE,SAAS,CAACC,cAAV,CAAyB1E,GAAzB,CAAJ,EAAmC;EAC/B,WAAOyE,SAAS,CAACzE,GAAD,CAAhB;EACH;;EACD,MAAIA,GAAG,CAACE,KAAJ,CAAU,aAAV,CAAJ,EAA8B;EAC1B,WAAOyD,YAAY,CAAC3D,GAAD,CAAnB;EACH,GAFD,MAEO,IAAIA,GAAG,CAAC,CAAD,CAAH,KAAW,GAAf,EAAoB;EACvB,QAAI7D,KAAK,GAAG6D,GAAG,CAACE,KAAJ,CAAU1C,KAAV,CAAZ;;EACA,QAAIrB,KAAJ,EAAW;EACP,aAAO,IAAIQ,MAAJ,CAAWR,KAAK,CAAC,CAAD,CAAhB,EAAqBA,KAAK,CAAC,CAAD,CAA1B,CAAP;EACH,KAFD,MAEO,IAAI6D,GAAG,CAACE,KAAJ,CAAUjB,OAAV,CAAJ,EAAwB;EAC3B,aAAOoC,eAAe,CAACrB,GAAD,CAAtB;EACH,KANsB;;;EAQvB,QAAIX,CAAC,GAAGW,GAAG,CAACE,KAAJ,CAAU,SAAV,CAAR;;EACA,QAAIb,CAAC,IAAIjB,UAAU,CAACiB,CAAC,CAAC,CAAD,CAAF,CAAV,CAAiBb,MAAjB,KAA4B,CAArC,EAAwC;EACpC,aAAO6C,eAAe,CAACrB,GAAD,CAAtB;EACH;EACJ;;EACD,MAAIA,GAAG,CAACE,KAAJ,CAAU,iBAAV,CAAJ,EAAkC;EAC9B,QAAIF,GAAG,CAACE,KAAJ,CAAUT,MAAV,CAAJ,EAAuB;EACnB,aAAOyB,aAAa,CAAClB,GAAD,CAApB;EACH,KAFD,MAEO,IAAIA,GAAG,CAACE,KAAJ,CAAUvC,QAAV,CAAJ,EAAyB;EAC5B,aAAOqE,WAAW,CAAChC,GAAD,CAAlB;EACH,KAFM,MAEA,IAAIA,GAAG,CAACE,KAAJ,CAAUV,WAAV,CAAJ,EAA4B;EAC/B,aAAOmB,cAAc,CAACX,GAAD,CAArB;EACH,KAFM,MAEA,IAAIA,GAAG,CAACE,KAAJ,CAAUX,UAAV,CAAJ,EAA2B;EAC9B,aAAOqC,aAAa,CAAC5B,GAAD,CAApB;EACH;EACJ;;EACD,MAAIA,GAAG,CAACE,KAAJ,CAAU,YAAV,CAAJ,EAA6B;EACzB,UAAM,IAAIyB,KAAJ,CAAU,+BAA+B3B,GAAzC,CAAN;EACH;;EACD,SAAOiE,YAAY,CAACjE,GAAD,CAAnB;EACH;;;EAED,SAAS2E,cAAT,CAAwB7B,GAAxB,EAA6B;EACzB,SAAO,EAAE,CAAC,GAAD,EAAM,GAAN,EAAW,GAAX,EAAgB,GAAhB,EAAqBvC,QAArB,CAA8BuC,GAA9B,KACA8B,QAAQ,CAACC,KAAT,GAAiBtE,QAAjB,CAA0BuC,GAA1B,CADF,CAAP;EAEH;;;EAED,SAASgC,gBAAT,CAA0BhC,GAA1B,EAA+B;EAC3B,SAAO6B,cAAc,CAAC7B,GAAD,CAAd,IACH,EAAEA,GAAG,CAAC5C,KAAJ,CAAU1C,KAAV,KACAsF,GAAG,CAAC5C,KAAJ,CAAU,aAAV,CADA,IAC4B4C,GAAG,CAAC5C,KAAJ,CAAUT,MAAV,CAD5B,IAEAqD,GAAG,CAAC5C,KAAJ,CAAUvC,QAAV,CAFA,IAEuBmF,GAAG,CAAC5C,KAAJ,CAAUX,UAAV,CAFvB,IAGAuD,GAAG,CAAC5C,KAAJ,CAAUV,WAAV,CAHA,IAG0BsD,GAAG,CAAC5C,KAAJ,CAAUjB,OAAV,CAH1B,IAIA,CAAC,IAAD,EAAO,IAAP,EAAa,KAAb,EAAoB,MAApB,EAA4B,OAA5B,EAAqCsB,QAArC,CAA8CuC,GAA9C,CAJF,CADJ;EAMH;;;EAED,IAAIiC,SAAS,GAAG,wBAAhB;;EAEA,SAASC,YAAT,CAAsBlC,GAAtB,EAA2B;EACvB,MAAI,OAAOA,GAAP,KAAe,QAAnB,EAA6B;EACzB,QAAImC,OAAO,GAAG,wBAAd;EACA,WAAOnC,GAAG,CAAC1C,OAAJ,CAAY6E,OAAZ,EAAqB,MAArB,CAAP;EACH;;EACD,SAAOnC,GAAP;EACH;EAED;EACA;EACA;;;EACA,SAASoC,KAAT,GAAiB;EACb,OAAKC,IAAL,GAAY,EAAZ;EACH;;EACDD,KAAK,CAACE,SAAN,CAAgBzG,IAAhB,GAAuB,UAAS0G,IAAT,EAAe;EAClC,OAAKF,IAAL,CAAUxG,IAAV,CAAe0G,IAAf;EACH,CAFD;;EAGAH,KAAK,CAACE,SAAN,CAAgBpK,GAAhB,GAAsB,YAAW;EAC7B,SAAO,KAAKmK,IAAL,CAAU,KAAKA,IAAL,CAAU3G,MAAV,GAAmB,CAA7B,CAAP;EACH,CAFD;;EAGA0G,KAAK,CAACE,SAAN,CAAgBE,GAAhB,GAAsB,YAAW;EAC7B,SAAO,KAAKH,IAAL,CAAUG,GAAV,EAAP;EACH,CAFD;;EAGAJ,KAAK,CAACE,SAAN,CAAgBG,QAAhB,GAA2B,YAAW;EAClC,SAAO,CAAC,KAAKJ,IAAL,CAAU3G,MAAlB;EACH,CAFD;;;EAIA,SAASgH,MAAT,CAAgB1C,GAAhB,EAAqB;EACjB,MAAIA,GAAG,YAAYiB,OAAnB,EAA4B;EACxBjB,IAAAA,GAAG,GAAGA,GAAG,CAAC7B,OAAJ,EAAN;EACH;;EACD,MAAIwE,KAAK,GAAG,IAAIC,KAAJ,CAAU5C,GAAV,EAAe;EAAE6C,IAAAA,UAAU,EAAE;EAAd,GAAf,CAAZ;EACA,MAAI3H,MAAM,GAAG,EAAb;;EACA,SAAO,IAAP,EAAa;EACT,QAAM4H,KAAK,GAAGH,KAAK,CAACI,IAAN,CAAW,IAAX,CAAd;;EACA,QAAID,KAAK,KAAKE,GAAd,EAAmB;each;EACH;;EACD9H,IAAAA,MAAM,CAACW,IAAP,CAAYiH,KAAZ;EACAH,IAAAA,KAAK,CAACM,IAAN;EACH;;EACD,SAAO/H,MAAP;EACH;;;EAED,SAASgI,mBAAT,CAA6BC,IAA7B,EAAmC;EAC/B,MAAML,KAAN,GAAyBK,IAAzB,CAAML,KAAN;EAAA,MAAgBM,IAAhB,4BAAyBD,IAAzB;;EACA,MAAIL,KAAK,CAAC1F,KAAN,CAAY,aAAZ,KAA8B0F,KAAK,CAAC1F,KAAN,CAAY,IAAZ,CAAlC,EAAqD;EACjD,QAAIqC,EAAE,GAAG,IAAI5F,MAAJ,CAAW,WAAWsJ,IAAI,CAACE,GAAL,GAAW,CAAtB,IAA2B,GAAtC,EAA2C,IAA3C,CAAT;EACAP,IAAAA,KAAK,GAAGA,KAAK,CAACxF,OAAN,CAAcmC,EAAd,EAAkB,EAAlB,CAAR;EACH;;EACD;EACIqD,IAAAA,KAAK,EAALA;EADJ,KAEOM,IAFP;EAIH;;;EAED,SAASE,KAAT,CAAetL,EAAf,EAAoC;EAAA,MAAjBuL,IAAiB,uEAAV,YAAM,EAAI;EAChC,OAAKvL,EAAL,GAAUA,EAAV;EACA,OAAKuL,IAAL,GAAYA,IAAZ;EACH;;;EAEDD,KAAK,CAAChB,SAAN,CAAgBvL,QAAhB,GAA2B,YAAW;EAClC,SAAO,UAAP;EACH,CAFD;;;EAIA,SAASyM,UAAT,CAAoBxL,EAApB,EAAwB;EACpB,SAAO,YAAkB;EAAA,sCAANyL,IAAM;EAANA,MAAAA,IAAM;EAAA;;EACrB,WAAOC,MAAM,CAAC1L,EAAE,CAAC2L,KAAH,CAAS,IAAT,EAAeF,IAAf,CAAD,CAAb;EACH,GAFD;EAGH;;;EAED,SAASC,MAAT,CAAgBxI,MAAhB,EAAwB;EACpB,SAAOA,MAAM,YAAYoI,KAAzB,EAAgC;EAC5B,QAAMM,KAAK,GAAG1I,MAAd;EACAA,IAAAA,MAAM,GAAGA,MAAM,CAAClD,EAAP,EAAT;;EACA,QAAI,EAAEkD,MAAM,YAAYoI,KAApB,CAAJ,EAAgC;EAC5BM,MAAAA,KAAK,CAACL,IAAN;EACH;EACJ;;EACD,SAAOrI,MAAP;EACH;;;EAED,SAAS2I,QAAT,CAAkB7D,GAAlB,EAAqC;EAAA,MAAdmD,IAAc,uEAAP,KAAO;;EACjC,MAAInD,GAAG,YAAYiB,OAAnB,EAA4B;EACxBjB,IAAAA,GAAG,GAAGA,GAAG,CAACjJ,QAAJ,EAAN;EACH;;EACD,MAAIoM,IAAJ,EAAU;EACN,WAAOT,MAAM,CAAC1C,GAAD,CAAb;EACH,GAFD,MAEO;EACH,QAAI9E,MAAM,GAAGwH,MAAM,CAAC1C,GAAD,CAAN,CAAY1D,GAAZ,CAAgB,UAASwG,KAAT,EAAgB;EACzC;EACA,UAAIA,KAAK,CAACA,KAAN,KAAgB,MAApB,EAA4B;EACxB,eAAOA,KAAK,CAACA,KAAb;EACH;;EACD,aAAOA,KAAK,CAACA,KAAN,CAAYgB,IAAZ,EAAP;EACH,KANY,EAMVC,MANU,CAMH,UAASjB,KAAT,EAAgB;EACtB,aAAOA,KAAK,IAAI,CAACA,KAAK,CAAC1F,KAAN,CAAY,IAAZ,CAAV,IAA+B,CAAC0F,KAAK,CAAC1F,KAAN,CAAY,iBAAZ,CAAvC;EACH,KARY,CAAb;EASA,WAAO4G,gBAAgB,CAAC9I,MAAD,CAAvB;EACH;EACJ;;;EAED,SAAS8I,gBAAT,CAA0BtB,MAA1B,EAAkC;EAC9B,MAAIuB,OAAO,GAAG,CAAd;EACA,MAAIC,OAAO,GAAG,IAAd;EACA,MAAIC,WAAW,GAAG,EAAlB;;EACA,OAAK,IAAIC,CAAC,GAAG,CAAb,EAAgBA,CAAC,GAAG1B,MAAM,CAAChH,MAA3B,EAAmC,EAAE0I,CAArC,EAAwC;EACpC,QAAMtB,KAAK,GAAGJ,MAAM,CAAC0B,CAAD,CAApB;;EACA,QAAItB,KAAK,KAAK,IAAd,EAAoB;EAChB,UAAI,CAAC,GAAD,EAAM,GAAN,EAAWrF,QAAX,CAAoBiF,MAAM,CAAC0B,CAAC,GAAG,CAAL,CAA1B,CAAJ,EAAwC;EACpCH,QAAAA,OAAO,GAAG,CAAV;EACAC,QAAAA,OAAO,GAAGE,CAAV;EACH,OAHD,MAGO;EACHD,QAAAA,WAAW,CAACtI,IAAZ,CAAiB,CAACuI,CAAD,EAAIA,CAAC,GAAG,CAAR,CAAjB;EACH;;EACDA,MAAAA,CAAC,IAAI,CAAL;EACA;EACH;;EACD,QAAIF,OAAO,KAAK,IAAhB,EAAsB;EAClB,UAAI,CAAC,GAAD,EAAM,GAAN,EAAWzG,QAAX,CAAoBqF,KAApB,CAAJ,EAAgC;EAC5BmB,QAAAA,OAAO;EACV,OAFD,MAEO,IAAI,CAAC,GAAD,EAAM,GAAN,EAAWxG,QAAX,CAAoBqF,KAApB,CAAJ,EAAgC;EACnCmB,QAAAA,OAAO;EACV;;EACD,UAAIA,OAAO,KAAK,CAAhB,EAAmB;EACfE,QAAAA,WAAW,CAACtI,IAAZ,CAAiB,CAACqI,OAAD,EAAUE,CAAC,GAAG,CAAd,CAAjB;EACAF,QAAAA,OAAO,GAAG,IAAV;EACH;EACJ;EACJ;;EACDxB,EAAAA,MAAM,GAAGA,MAAM,CAAC2B,KAAP,EAAT;EACAF,EAAAA,WAAW,CAACG,OAAZ;;EACA,kCAA2BH,WAA3B,kCAAwC;EAAnC;EAAA,QAAOI,KAAP;EAAA,QAAcC,GAAd;;EACD9B,IAAAA,MAAM,CAAC+B,MAAP,CAAcF,KAAd,EAAqBC,GAAG,GAAGD,KAA3B;EACH;;EACD,SAAO7B,MAAP;EACH;EAED;EACA;;;EACA,SAASgC,QAAT,CAAkBtL,CAAlB,EAAqB;EACjB,SAAO,QAAOA,CAAP,MAAa,QAAb,IACH,QAAOA,CAAP,MAAa,QAAb,IACA2C,MAAM,CAACuG,SAAP,CAAiBvL,QAAjB,CAA0B+B,IAA1B,CAA+BM,CAA/B,MAAsC,iBAF1C;EAGH;EAED;EACA;;;EACA,SAASqI,OAAT,CAAiBkD,IAAjB,EAAuB;EACnB,MAAI,OAAO,IAAP,KAAgB,WAAhB,IAA+B,KAAKC,WAAL,KAAqBnD,OAApD,IACA,OAAO,IAAP,KAAgB,WADpB,EACiC;EAC7B,WAAO,IAAIA,OAAJ,CAAYkD,IAAZ,CAAP;EACH;;EACD,MAAIA,IAAI,YAAY1D,OAApB,EAA6B;EACzB0D,IAAAA,IAAI,GAAGA,IAAI,CAACxG,OAAL,EAAP;EACH;;EACD,MAAIsD,OAAO,CAACoD,IAAR,CAAaF,IAAb,aAA8BlD,OAAlC,EAA2C;EACvC,WAAOA,OAAO,CAACoD,IAAR,CAAaF,IAAb,CAAP;EACH;;EACD,OAAKG,QAAL,GAAgBH,IAAhB;;EACA,MAAI,OAAOA,IAAP,KAAgB,QAApB,EAA8B;EAC1BlD,IAAAA,OAAO,CAACoD,IAAR,CAAaF,IAAb,IAAqB,IAArB;EACH;EACJ;;EACDlD,OAAO,CAACoD,IAAR,GAAe,EAAf;EACApD,OAAO,CAACnI,OAAR,GAAkByL,MAAM,OAAN,CAAW,aAAX,CAAlB;EACAtD,OAAO,CAACuD,MAAR,GAAiBD,MAAM,OAAN,CAAW,YAAX,CAAjB;;EAEAtD,OAAO,CAACwD,EAAR,GAAa,UAASC,MAAT,EAAiBP,IAAjB,EAAuB;EAChC,SAAOO,MAAM,YAAYzD,OAAlB,KACDkD,IAAI,YAAYlD,OAAhB,IAA2ByD,MAAM,CAACJ,QAAP,KAAoBH,IAAI,CAACG,QAArD,IACC,OAAOH,IAAP,KAAgB,QAAhB,IAA4BO,MAAM,CAACJ,QAAP,KAAoBH,IADjD,IAECA,IAAI,YAAY9K,MAAhB,IAA0B8K,IAAI,CAAC7K,IAAL,CAAUoL,MAAM,CAACJ,QAAjB,CAHzB,CAAP;EAIH,CALD;;;EAOArD,OAAO,CAACa,SAAR,CAAkBvL,QAAlB,GAA6B,UAASoO,KAAT,EAAgB;EACzC;EACA,MAAIT,QAAQ,CAAC,KAAKI,QAAN,CAAZ,EAA6B;EACzB,WAAOM,gBAAgB,CAAC,KAAKN,QAAN,CAAvB;EACH;;EACD,MAAI9E,GAAG,GAAG,KAAK7B,OAAL,EAAV,CALyC;;EAOzC,MAAIgH,KAAK,IAAInF,GAAG,CAAC5C,KAAJ,CAAU,iBAAV,CAAb,EAA2C;EACvC,sBAAW4C,GAAX;EACH;;EACD,SAAOA,GAAP;EACH,CAXD;;EAYAyB,OAAO,CAACa,SAAR,CAAkBhJ,OAAlB,GAA4B,YAAW;EACnC,MAAI,KAAK+L,SAAL,EAAJ,EAAsB;EAClB,WAAO,KAAK5D,OAAO,CAACnI,OAAb,CAAP;EACH;;EACD,SAAO,KAAK6E,OAAL,EAAP;EACH,CALD;;EAMAsD,OAAO,CAACa,SAAR,CAAkBgD,SAAlB,GAA8B,YAAW;EACrC,MAAIrE,OAAO,CAACsE,QAAR,CAAiB,KAAKT,QAAtB,CAAJ,EAAqC;EACjC,WAAO,KAAKA,QAAZ;EACH;;EACD,SAAO,CAACM,gBAAgB,CAAC,KAAKN,QAAN,CAAjB,CAAP;EACH,CALD;;EAMArD,OAAO,CAACa,SAAR,CAAkBnE,OAAlB,GAA4B,YAAW;EACnC,SAAO,KAAK2G,QAAL,CAAc3G,OAAd,EAAP;EACH,CAFD;;;EAIAsD,OAAO,CAACa,SAAR,CAAkB+C,SAAlB,GAA8B,YAAW;EACrC,SAAOA,SAAS,CAAC,KAAKP,QAAN,CAAhB;EACH,CAFD;;;EAIA,SAASM,gBAAT,CAA0BI,GAA1B,EAA+B;EAC3B,SAAOA,GAAG,CAACzO,QAAJ,GAAeuG,OAAf,CAAuB,oBAAvB,EAA6C,IAA7C,CAAP;EACH;;;EAED,SAAS+H,SAAT,CAAmBH,MAAnB,EAA2B;EACvB,MAAI,QAAOA,MAAP,MAAkB,QAAtB,EAAgC;EAC5B,WAAO,CAAC,CAACA,MAAM,CAACnO,QAAP,GAAkBqG,KAAlB,CAAwB,aAAxB,CAAT;EACH;;EACD,SAAO,KAAP;EACH;;;EAED,IAAIqI,MAAM,GAAI,YAAW;EACrB,MAAIC,KAAK,GAAG,CAAZ;;EACA,WAASC,UAAT,CAAoBhB,IAApB,EAA0BiB,GAA1B,EAA+B;EAC3B,QAAIV,MAAM,GAAG,IAAIzD,OAAJ,CAAYmE,GAAZ,CAAb;EACAC,IAAAA,WAAW,CAACX,MAAD,EAAS,aAAT,EAAwBP,IAAxB,CAAX;EACA,WAAOO,MAAP;EACH;;EACD,SAAO,YAAsB;EAAA,QAAbP,IAAa,uEAAN,IAAM;;EACzB,QAAIA,IAAI,YAAYlD,OAApB,EAA6B;EACzB,UAAIkD,IAAI,CAACU,SAAL,EAAJ,EAAsB;EAClB,eAAOV,IAAP;EACH;;EACDA,MAAAA,IAAI,GAAGA,IAAI,CAACxG,OAAL,EAAP;EACH;;EACD,QAAIkH,SAAS,CAACV,IAAD,CAAb,EAAqB;EACjB;EACA,aAAOlD,OAAO,CAACkD,IAAD,CAAd;EACH,KAVwB;;;EAYzB,QAAIA,IAAI,KAAK,IAAb,EAAmB;each,aAAOgB,UAAU,CAAChB,IAAD,EAAOI,MAAM,aAAMJ,IAAN,EAAb,CAAjB;EACH;;EACDe,IAAAA,KAAK;EACL,WAAOC,UAAU,CAACD,KAAD,EAAQX,MAAM,cAAOW,KAAP,EAAd,CAAjB;EACH,GAjBD;EAkBH,CAzBY,EAAb;EA2BA;EACA;;;EACA,SAASI,aAAT,CAAuBC,OAAvB,EAAgC;EAAA;;EAC5B,MAAIC,QAAQ,GAAG;EACXC,IAAAA,OAAO,EAAE,IADE;EAEXC,IAAAA,QAAQ,EAAE,KAFC;EAGXC,IAAAA,SAAS,EAAE,KAHA;EAIXC,IAAAA,MAAM,EAAEzP,SAJG;EAKXiC,IAAAA,IAAI,EAAEjC;EALK,GAAf,CAD4B;EAS5B;;EACAoP,EAAAA,OAAO,GAAGA,OAAO,CAAC9L,IAAR,CAAa,UAAAoM,CAAC,EAAI;EACxBL,IAAAA,QAAQ,CAACpN,IAAT,GAAgBA,IAAI,CAACyN,CAAD,CAApB;EACAL,IAAAA,QAAQ,CAACG,SAAT,GAAqB,IAArB;EACAH,IAAAA,QAAQ,CAACC,OAAT,GAAmB,KAAnB;EACA,WAAOI,CAAP;EACH,GALS,CAAV,CAV4B;EAiB5B;;EACAC,EAAAA,SAAS,CAAC,IAAD,EAAO,UAAP,EAAmBP,OAAnB,EAA4B;EAAEQ,IAAAA,MAAM,EAAE;EAAV,GAA5B,CAAT;;EACA,MAAIC,WAAW,CAACT,OAAO,SAAR,CAAf,EAAgC;EAC5B;EACA;EACAA,IAAAA,OAAO,GAAGA,OAAO,SAAP,CAAc,UAACU,GAAD,EAAS;EAC7BT,MAAAA,QAAQ,CAACE,QAAT,GAAoB,IAApB;EACAF,MAAAA,QAAQ,CAACC,OAAT,GAAmB,KAAnB;EACAD,MAAAA,QAAQ,CAACI,MAAT,GAAkBK,GAAlB;EACH,KAJS,CAAV;EAKH;;EACD1K,EAAAA,MAAM,CAACC,IAAP,CAAYgK,QAAZ,EAAsB7K,OAAtB,CAA8B,UAAAwJ,IAAI,EAAI;EAClC5I,IAAAA,MAAM,CAAC2K,cAAP,CAAsB,KAAtB,cAAiC/B,IAAjC,SAA2C;EACvCgC,MAAAA,UAAU,EAAE,IAD2B;EAEvC/M,MAAAA,GAAG,EAAE;EAAA,eAAMoM,QAAQ,CAACrB,IAAD,CAAd;EAAA;EAFkC,KAA3C;EAIH,GALD;EAMA2B,EAAAA,SAAS,CAAC,IAAD,EAAO,aAAP,EAAsBP,OAAtB,CAAT,CAlC4B;;EAoC5B,OAAK9L,IAAL,GAAY,KAAZ;EACH;;;EAED6L,aAAa,CAACxD,SAAd,CAAwBrI,IAAxB,GAA+B,UAASjC,EAAT,EAAa;EACxC,SAAO,IAAI8N,aAAJ,CAAkB,KAAK3H,OAAL,GAAelE,IAAf,CAAoBjC,EAApB,CAAlB,CAAP;EACH,CAFD;;;EAIA8N,aAAa,CAACxD,SAAd,YAAgC,UAAStK,EAAT,EAAa;EACzC,SAAO,IAAI8N,aAAJ,CAAkB,KAAK3H,OAAL,YAAqBnG,EAArB,CAAlB,CAAP;EACH,CAFD;;;EAIA8N,aAAa,CAACxD,SAAd,CAAwBnE,OAAxB,GAAkC,YAAW;EACzC,MAAI,CAAC,KAAKyI,QAAV,EAAoB;EAChB,UAAM,IAAI/H,KAAJ,CAAU,wCAAV,CAAN;EACH;;EACD,SAAO,KAAK+H,QAAZ;EACH,CALD;;;EAOAd,aAAa,CAACxD,SAAd,CAAwBvL,QAAxB,GAAmC,YAAW;EAC1C,MAAI,KAAK8P,WAAT,EAAsB;EAClB,WAAOf,aAAa,CAACgB,WAArB;EACH;;EACD,MAAI,KAAKC,YAAT,EAAuB;EACnB,WAAOjB,aAAa,CAACkB,YAArB;EACH;;EACD,0CAAiC,KAAKpH,QAAtC;EACH,CARD;;EASAkG,aAAa,CAACgB,WAAd,GAA4B,yBAA5B;EACAhB,aAAa,CAACkB,YAAd,GAA6B,0BAA7B;EAEA;EACA;;EACA,SAASC,WAAT,CAAqB/J,GAArB,EAA0B;EACtB,MAAIgK,KAAK,CAACC,OAAN,CAAcjK,GAAd,CAAJ,EAAwB;EACpB,WAAOkK,OAAO,CAACC,GAAR,CAAYC,sBAAsB,CAACpK,GAAD,CAAlC,EACFjD,IADE,CACGsN,wBADH,CAAP;EAEH;;EACD,SAAOrK,GAAP;EACH;;;EAED,SAASoK,sBAAT,CAAgCE,KAAhC,EAAuC;EACnC;EACA,MAAIC,OAAO,GAAG,IAAIP,KAAJ,CAAUM,KAAK,CAAC9L,MAAhB,CAAd;EAAA,MAAuC0I,CAAC,GAAGoD,KAAK,CAAC9L,MAAjD;;EACA,SAAO0I,CAAC,EAAR,EAAY;EACR,QAAM1K,KAAK,GAAG8N,KAAK,CAACpD,CAAD,CAAnB;;EACA,QAAI1K,KAAK,YAAYoM,aAArB,EAAoC;EAChC2B,MAAAA,OAAO,CAACrD,CAAD,CAAP,GAAa,IAAIsD,KAAJ,CAAUhO,KAAV,CAAb;EACH,KAFD,MAEO;EACH+N,MAAAA,OAAO,CAACrD,CAAD,CAAP,GAAa1K,KAAb;EACH;EACJ;;EACD,SAAO+N,OAAP;EACH;;;EAED,SAASF,wBAAT,CAAkCC,KAAlC,EAAyC;EACrC,MAAIG,SAAS,GAAG,IAAIT,KAAJ,CAAUM,KAAK,CAAC9L,MAAhB,CAAhB;EAAA,MAAyC0I,CAAC,GAAGoD,KAAK,CAAC9L,MAAnD;;EACA,SAAO0I,CAAC,EAAR,EAAY;EACR,QAAI1K,KAAK,GAAG8N,KAAK,CAACpD,CAAD,CAAjB;;EACA,QAAI1K,KAAK,YAAYgO,KAArB,EAA4B;EACxBC,MAAAA,SAAS,CAACvD,CAAD,CAAT,GAAe1K,KAAK,CAACyE,OAAN,EAAf;EACH,KAFD,MAEO;EACHwJ,MAAAA,SAAS,CAACvD,CAAD,CAAT,GAAe1K,KAAf;EACH;EACJ;;EACD,SAAOiO,SAAP;EACH;EAED;EACA;;;EACA,IAAI7F,QAAQ,GAAG;EACX8F,EAAAA,OAAO,EAAE7C,MAAM,OAAN,CAAW,SAAX,CADE;EAEX8C,EAAAA,MAAM,EAAE9C,MAAM,OAAN,CAAW,QAAX,CAFG;EAGX+C,EAAAA,MAAM,EAAE/C,MAAM,OAAN,CAAW,QAAX,CAHG;EAIXhD,EAAAA,KAAK,EAAE,iBAAW;EACd,WAAOhG,MAAM,CAACC,IAAP,CAAY,KAAK+L,SAAjB,CAAP;EACH,GANU;EAOXnP,EAAAA,IAAI,EAAE,cAAS+L,IAAT,EAAe;EACjB,WAAO,KAAK/K,GAAL,CAAS+K,IAAT,EAAe/L,IAAtB;EACH,GATU;EAUXgB,EAAAA,GAAG,EAAE,aAAS+K,IAAT,EAAe;EAChB,WAAO,KAAKoD,SAAL,CAAepD,IAAf,CAAP;EACH,GAZU;EAaX;EACAqD,EAAAA,GAAG,EAAE,aAASrD,IAAT,EAA0B;EAAA;;EAAA,QAAX3M,EAAW,uEAAN,IAAM;;EAC3B,QAAIkP,KAAK,CAACC,OAAN,CAAcxC,IAAd,CAAJ,EAAyB;EACrBA,MAAAA,IAAI,CAACxJ,OAAL,CAAa,UAAAwJ,IAAI;EAAA,eAAI,MAAI,CAACqD,GAAL,CAASrD,IAAT,EAAe3M,EAAf,CAAJ;EAAA,OAAjB;EACH,KAFD,MAEO,IAAIA,EAAE,KAAK,IAAX,EAAiB;EACpB,aAAO,KAAKiQ,OAAL,CAAatD,IAAb,CAAP;EACH,KAFM,MAEA;EACH,WAAKsD,OAAL,GAAe,KAAKA,OAAL,CAAalE,MAAb,CAAoB,UAAAjK,IAAI;EAAA,eAAIA,IAAI,KAAK9B,EAAb;EAAA,OAAxB,CAAf;EACH;EACJ,GAtBU;EAuBXkQ,EAAAA,EAAE,EAAE,YAASvD,IAAT,EAAe3M,EAAf,EAAmB;EAAA;;EACnB,QAAIkP,KAAK,CAACC,OAAN,CAAcxC,IAAd,CAAJ,EAAyB;EACrBA,MAAAA,IAAI,CAACxJ,OAAL,CAAa,UAAAwJ,IAAI;EAAA,eAAI,MAAI,CAACuD,EAAL,CAAQvD,IAAR,EAAc3M,EAAd,CAAJ;EAAA,OAAjB;EACH,KAFD,MAEO,IAAI,CAAC,KAAKiQ,OAAL,CAAatD,IAAb,CAAL,EAAyB;EAC5B,WAAKsD,OAAL,CAAatD,IAAb,IAAqB,CAAC3M,EAAD,CAArB;EACH,KAFM,MAEA;EACH,WAAKiQ,OAAL,CAAatD,IAAb,EAAmB9I,IAAnB,CAAwB7D,EAAxB;EACH;EACJ,GA/BU;EAgCXmQ,EAAAA,OAAO,EAAE,iBAASxD,IAAT,EAAwB;EAAA,uCAANlB,IAAM;EAANA,MAAAA,IAAM;EAAA;;EAC7B,QAAI,KAAKwE,OAAL,CAAatD,IAAb,CAAJ,EAAwB;EACpB,WAAKsD,OAAL,CAAatD,IAAb,EAAmBxJ,OAAnB,CAA2B,UAAAnD,EAAE;EAAA,eAAIA,EAAE,MAAF,SAAMyL,IAAN,CAAJ;EAAA,OAA7B;EACH;EACJ,GApCU;EAqCX2E,EAAAA,MAAM,EAAE,gBAASzD,IAAT,EAAe;EACnB,SAAKwD,OAAL,CAAa,QAAb;EACA,WAAO,KAAKJ,SAAL,CAAepD,IAAf,CAAP;EACH,GAxCU;EAyCX0D,EAAAA,MAAM,EAAE,gBAAS1D,IAAT,EAAejL,KAAf,EAAsBd,IAAtB,EAA4B;EAChC,SAAKuP,OAAL,CAAa,QAAb;EACA,SAAKJ,SAAL,CAAepD,IAAf,IAAuB;EACnB2D,MAAAA,GAAG,EAAE3D,IADc;EAEnBO,MAAAA,MAAM,EAAExL,KAFW;EAGnBd,MAAAA,IAAI,EAAJA;EAHmB,KAAvB;EAKH,GAhDU;EAiDXqP,EAAAA,OAAO,EAAE,EAjDE;EAkDXF,EAAAA,SAAS,EAAE;EAlDA,CAAf;;EAoDA,SAASQ,UAAT,CAAoBzF,KAApB,EAA2B;EACvB,SAAOhB,QAAQ,CAACC,KAAT,GAAiBtE,QAAjB,CAA0BqF,KAA1B,CAAP;EACH;;EACD,SAAS0F,UAAT,CAAoB1F,KAApB,EAA2B;EACvB,SAAOhB,QAAQ,CAAC2G,OAAT,CAAiBhL,QAAjB,CAA0BqF,KAA1B,CAAP;EACH;;EACD,SAAS4F,UAAT,CAAoBvG,OAApB,EAA6B;EACzB,SAAOL,QAAQ,CAAClJ,IAAT,CAAcuJ,OAAd,MAA2BL,QAAQ,CAAC8F,OAA3C;EACH;;;EAED,IAAIe,gBAAgB,GAAG,CACnB,CAAC,GAAD,EAAM,IAAIlH,OAAJ,CAAY,OAAZ,CAAN,EAA4BK,QAAQ,CAAC8F,OAArC,CADmB,EAEnB,CAAC,GAAD,EAAM,IAAInG,OAAJ,CAAY,YAAZ,CAAN,EAAiCK,QAAQ,CAAC8F,OAA1C,CAFmB,EAGnB,CAAC,IAAD,EAAO,IAAInG,OAAJ,CAAY,kBAAZ,CAAP,EAAwCK,QAAQ,CAAC8F,OAAjD,CAHmB,EAInB,CAAC,GAAD,EAAM,IAAInG,OAAJ,CAAY,SAAZ,CAAN,EAA8BK,QAAQ,CAAC8F,OAAvC,CAJmB,EAKnB,CAAC,IAAD,EAAO,IAAInG,OAAJ,CAAY,eAAZ,CAAP,EAAqCK,QAAQ,CAAC8F,OAA9C,CALmB,CAAvB;EAOA7L,MAAM,CAAC2K,cAAP,CAAsB5E,QAAtB,EAAgC,SAAhC,EAA2C;EACvC8G,EAAAA,QAAQ,EAAE,KAD6B;EAEvClP,EAAAA,KAAK,EAAEiP,gBAAgB,CAACrM,GAAjB,CAAqB,UAAAuM,GAAG;EAAA,WAAIA,GAAG,CAAC,CAAD,CAAP;EAAA,GAAxB;EAFgC,CAA3C;EAIAF,gBAAgB,CAACxN,OAAjB,CAAyB,iBAAyB;EAAA;EAAA,MAAvBmN,GAAuB;EAAA,MAAlBpD,MAAkB;EAAA,MAAVtM,IAAU;;EAC9CkJ,EAAAA,QAAQ,CAACuG,MAAT,CAAgBC,GAAhB,EAAqBpD,MAArB,EAA6BtM,IAA7B;EACH,CAFD;EAIA;EACA;;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;;MACMgK;EACH,iBAAYkG,KAAZ,EAAgD;EAAA;;EAAA,oFAAJ,EAAI;EAAA,iCAA3BjG,UAA2B;EAAA,QAA3BA,UAA2B,iCAAd,KAAc;;EAAA;;EAC5CyD,IAAAA,SAAS,CAAC,IAAD,EAAO,WAAP,EAAoBwC,KAAK,CAACxL,OAAN,CAAc,KAAd,EAAqB,EAArB,CAApB,CAAT;EACA,QAAIyL,SAAS,GAAG,EAAhB,CAF4C;;EAI5C,KACI,IADJ,EACU,aADV,EACyB,MADzB,EACiC,UADjC,EAC6C,OAD7C,EAEI,QAFJ,EAEc,OAFd,EAEuB,QAFvB,EAEiC,YAFjC,EAGE5N,OAHF,CAGU,UAAAwJ,IAAI,EAAI;EACd5I,MAAAA,MAAM,CAAC2K,cAAP,CAAsB,MAAtB,EAA4B/B,IAA5B,EAAkC;EAC9BqE,QAAAA,YAAY,EAAE,KADgB;EAE9BrC,QAAAA,UAAU,EAAE,KAFkB;EAG9B/M,QAAAA,GAH8B,iBAGxB;EACH,iBAAOmP,SAAS,CAACpE,IAAD,CAAhB;EACH,SAL6B;EAM9BsE,QAAAA,GAN8B,eAM1BvP,KAN0B,EAMnB;EACPqP,UAAAA,SAAS,CAACpE,IAAD,CAAT,GAAkBjL,KAAlB;EACH;EAR6B,OAAlC;EAUH,KAdD;EAeA,SAAKwP,WAAL,GAAmBrG,UAAnB;EACA,SAAKsG,EAAL,GAAU,KAAKC,KAAL,GAAa,KAAKC,IAAL,GAAY,KAAKC,QAAL,GAAgB,CAAnD;EACA,SAAKC,MAAL,GAAc,KAAKC,KAAL,GAAa,KAAKC,MAAL,GAAc,IAAzC;EACA,SAAKC,UAAL,GAAkB,EAAlB;EACH;;;;aACD,aAAI/E,IAAJ,EAAU;EACN,aAAO,KAAKgF,UAAL,CAAgBhF,IAAhB,CAAP;EACH;;;aACD,aAAIA,IAAJ,EAAUjL,KAAV,EAAiB;EACb,WAAKiQ,UAAL,CAAgBhF,IAAhB,IAAwBjL,KAAxB;EACH;;;aACD,iBAAoB;EAAA,UAAdyJ,IAAc,uEAAP,KAAO;;EAChB,UAAIA,IAAJ,EAAU;EACN,YAAIyG,IAAI,GAAG,KAAKR,KAAhB;;EACA,YAAI,KAAKF,WAAL,IAAoB,KAAKO,MAAL,KAAgB,IAAxC,EAA8C;EAC1C,YAAEG,IAAF;EACH;;EACD,eAAO;EACH9G,UAAAA,KAAK,EAAE,KAAK2G,MADT;EAEHpG,UAAAA,GAAG,EAAE,KAAKgG,IAFP;EAGHQ,UAAAA,MAAM,EAAE,KAAKV,EAHV;EAIHS,UAAAA,IAAI,EAAJA;EAJG,SAAP;EAMH;;EACD,aAAO,KAAKH,MAAZ;EACH;;;aACD,gBAAmB;EAAA,UAAdtG,IAAc,uEAAP,KAAO;;each,UAAI,KAAKgG,EAAL,IAAW,KAAKW,SAAL,CAAepO,MAA9B,EAAsC;EAClC,eAAOsH,GAAP;EACH;;EACD,UAAI,KAAKyG,MAAT,EAAiB;EACb,eAAO,KAAK3G,KAAL,CAAWK,IAAX,CAAP;EACH;;EACD,UAAI4G,KAAK,GAAG,KAAKC,UAAL,EAAZ;;EACA,UAAID,KAAJ,EAAW;EACP,aAAKN,MAAL,GAAc,KAAKK,SAAL,CAAeG,SAAf,CAAyB,KAAKd,EAA9B,EAAkC,KAAKK,KAAvC,CAAd;EACA,eAAO,KAAK1G,KAAL,CAAWK,IAAX,CAAP;EACH;;EACD,aAAOH,GAAP;EACH;;;aACD,gBAAO;EACH,UAAI,KAAKwG,KAAL,KAAe,IAAnB,EAAyB;EACrB,aAAKC,MAAL,GAAc,IAAd;EACA,aAAKN,EAAL,GAAU,KAAKK,KAAf;EACH;EACJ;;;aACD,qBAAY;EACR,UAAIU,GAAG,GAAG,KAAKJ,SAAL,CAAepO,MAAzB;;EACA,UAAI,KAAKyN,EAAL,IAAWe,GAAf,EAAoB;EAChB,eAAOlH,GAAP;EACH;;EACD,WAAK,IAAIoB,CAAC,GAAG,KAAK+E,EAAlB,EAAsB/E,CAAC,GAAG8F,GAA1B,EAA+B,EAAE9F,CAAjC,EAAoC;EAChC,YAAI5F,MAAI,GAAG,KAAKsL,SAAL,CAAe1F,CAAf,CAAX;;EACA,YAAI5F,MAAI,KAAK,IAAb,EAAmB;each,cAAMoL,IAAI,GAAG,KAAKE,SAAL,CAAeG,SAAf,CAAyB,KAAKd,EAA9B,EAAkC/E,CAAlC,CAAb;;EACA,eAAK+E,EAAL,GAAU/E,CAAC,GAAG,CAAd;EACA,YAAE,KAAKgF,KAAP;EACA,iBAAOQ,IAAP;EACH;EACJ;;EACD,aAAO,KAAKO,SAAL,EAAP;EACH;;;aACD,qBAAY;EACR,UAAM/F,CAAC,GAAG,KAAK+E,EAAf;EACA,WAAKA,EAAL,GAAU,KAAKW,SAAL,CAAepO,MAAzB;EACA,aAAO,KAAKoO,SAAL,CAAeG,SAAf,CAAyB7F,CAAzB,CAAP;EACH;;;aACD,qBAAYrG,GAAZ,EAAiB;EACb,UAAMmM,GAAG,GAAG,KAAKJ,SAAL,CAAepO,MAA3B;;EACA,UAAI,KAAKyN,EAAL,IAAWe,GAAf,EAAoB;EAChB,eAAOlH,GAAP;EACH;;EACD,UAAIjF,GAAG,GAAG,KAAKoL,EAAX,IAAiBe,GAArB,EAA0B;EACtB,eAAO,KAAKC,SAAL,EAAP;EACH;;EACD,UAAM3F,GAAG,GAAG,KAAK2E,EAAL,GAAUpL,GAAtB;;EACA,UAAM7C,MAAM,GAAG,KAAK4O,SAAL,CAAeG,SAAf,CAAyB,KAAKd,EAA9B,EAAkC3E,GAAlC,CAAf;;EACA,UAAMuF,KAAK,GAAG7O,MAAM,CAACkC,KAAP,CAAa,KAAb,CAAd;;EACA,UAAI2M,KAAJ,EAAW;EACP,aAAKX,KAAL,IAAcW,KAAK,CAACrO,MAApB;EACH;;EACD,WAAKyN,EAAL,GAAU3E,GAAV;EACA,aAAOtJ,MAAP;EACH;;;aACD,qBAAY;EACR,UAAI,KAAKiO,EAAL,IAAW,KAAKW,SAAL,CAAepO,MAA9B,EAAsC;EAClC,eAAOsH,GAAP;EACH;;EACD,aAAOpE,UAAU,CAAC,KAAKkL,SAAL,CAAe,KAAKX,EAApB,CAAD,CAAjB;EACH;;;aACD,qBAAY;EACR,UAAM3K,MAAI,GAAG,KAAK4L,SAAL,EAAb;;EACA,WAAKC,SAAL;EACA,aAAO7L,MAAP;EACH;;;aACD,qBAAY;EACR,UAAI,KAAK2K,EAAL,GAAU,KAAKW,SAAL,CAAepO,MAA7B,EAAqC;EACjC,UAAE,KAAKyN,EAAP;EACA,aAAKM,MAAL,GAAc,IAAd;EACH;EACJ;;;aACD,oBAAWa,IAAX,EAAsD;EAAA,sFAAJ,EAAI;EAAA,UAAnCC,SAAmC,SAAnCA,SAAmC;EAAA,UAAxB/L,MAAwB;EAAA,UAAlBgM,SAAkB,SAAlBA,SAAkB;;EAClD,iCAAsCF,IAAtC;EAAA,UAAM7K,EAAN;EAAA,UAAUgL,OAAV;EAAA,UAAmBC,OAAnB;EAAA,UAA4BC,KAA5B;;EACA,UAAIL,IAAI,CAAC5O,MAAL,KAAgB,CAApB,EAAuB;EACnB,cAAM,IAAImD,KAAJ,wCAA0CyL,IAAI,CAAC5O,MAA/C,EAAN;EACH;;EACD,UAAI,CAAC8C,MAAI,CAACpB,KAAL,CAAWqC,EAAX,CAAL,EAAqB;EACjB,eAAO,KAAP;EACH;;EACD,UAAI,CAACmL,aAAa,CAACH,OAAD,EAAUF,SAAV,CAAlB,EAAwC;EACpC,eAAO,KAAP;EACH;;EACD,UAAI,CAACK,aAAa,CAACF,OAAD,EAAUF,SAAV,CAAlB,EAAwC;EACpC,eAAO,KAAP;EACH;;EACD,UAAIG,KAAK,KAAK,KAAKpB,MAAnB,EAA2B;EACvB,eAAO,KAAP;EACH;;EACD,aAAO,IAAP;EACH;;;aACD,sBAAa;EACT,UAAI,KAAKJ,EAAL,IAAW,KAAKW,SAAL,CAAepO,MAA9B,EAAsC;EAClC,eAAO,KAAP;EACH;;EACD,UAAImP,KAAK,GAAG,IAAZ;;EACAC,MAAAA,IAAI,EACJ,KAAK,IAAI1G,CAAC,GAAG,KAAK+E,EAAb,EAAiBe,GAAG,GAAG,KAAKJ,SAAL,CAAepO,MAA3C,EAAmD0I,CAAC,GAAG8F,GAAvD,EAA4D,EAAE9F,CAA9D,EAAiE;EAC7D,YAAI5F,MAAI,GAAG,KAAKsL,SAAL,CAAe1F,CAAf,CAAX;EACA,YAAImG,SAAS,GAAG,KAAKT,SAAL,CAAe1F,CAAC,GAAG,CAAnB,KAAyB,EAAzC;EACA,YAAIoG,SAAS,GAAG,KAAKV,SAAL,CAAe1F,CAAC,GAAG,CAAnB,KAAyB,EAAzC;;EACA,YAAI5F,MAAI,KAAK,IAAb,EAAmB;each,YAAE,KAAK4K,KAAP;EACA,cAAM2B,OAAO,GAAG,KAAKzB,QAArB;;EACA,cAAI,KAAKC,MAAL,KAAgB,IAApB,EAA0B;EACtB;EACA;EACA,iBAAKD,QAAL,GAAgBlF,CAAC,GAAG,CAApB;EACH;;EACD,cAAI,KAAK8E,WAAL,IAAoB,KAAKK,MAAL,KAAgB,IAAxC,EAA8C;EAC1C,iBAAKC,KAAL,GAAapF,CAAC,GAAG,CAAjB;EACA,iBAAKiF,IAAL,GAAY,KAAKF,EAAL,GAAU4B,OAAtB;EACA,mBAAO,IAAP;EACH;EACJ,SAjB4D;;;EAmB7D,YAAIF,KAAK,IAAI,KAAKtB,MAAL,KAAgB,IAAzB,IAAiC/K,MAAI,CAACpB,KAAL,CAAW,IAAX,CAArC,EAAuD;EACnD,cAAI,KAAK8L,WAAT,EAAsB;EAClB,gBAAI,CAACsB,SAAS,CAACpN,KAAV,CAAgB,IAAhB,CAAL,EAA4B;EACxB,mBAAKoM,KAAL,GAAapF,CAAC,GAAG,CAAjB;EACA,mBAAKiF,IAAL,GAAY,KAAKF,EAAL,GAAU,KAAKG,QAA3B;EACA,qBAAO,IAAP;EACH,aAJD,MAIO;EACH;EACH;EACJ,WARD,MAQO;EACH,iBAAKH,EAAL,GAAU/E,CAAC,GAAG,CAAd;EACA;EACH;EACJ;;EACDyG,QAAAA,KAAK,GAAG,KAAR;;EAjC6D,oDAkC5CjI,KAAK,CAACoI,KAlCsC;EAAA;;EAAA;EAkC7D,iEAA8B;EAAA,gBAArBV,IAAqB;;EAC1B,gBAAI,KAAKW,UAAL,CAAgBX,IAAhB,EAAsB;EAAEC,cAAAA,SAAS,EAATA,SAAF;EAAa,sBAAA/L,MAAb;EAAmBgM,cAAAA,SAAS,EAATA;EAAnB,aAAtB,CAAJ,EAA2D;EACvD;EACA,kBAAIU,UAAU,GAAGZ,IAAI,CAACA,IAAI,CAAC5O,MAAL,GAAc,CAAf,CAArB;EACA,mBAAK6N,MAAL,GAAc2B,UAAd;;EACA,kBAAI,KAAK3B,MAAL,KAAgB,IAApB,EAA0B;EACtB,qBAAKC,KAAL,GAAapF,CAAC,GAAG,CAAjB;EACA,qBAAKiF,IAAL,GAAY,KAAKF,EAAL,GAAU,KAAKG,QAA3B;EACA,uBAAO,IAAP;EACH,eARsD;;;EAUvD,uBAASwB,IAAT;EACH;EACJ;EA/C4D;EAAA;EAAA;EAAA;EAAA;;EAgD7D,YAAI,KAAKvB,MAAL,KAAgB,IAApB,EAA0B;EACtB;EACA,mBAASuB,IAAT;EACH,SAnD4D;;;EAqD7D,YAAIlB,IAAI,GAAG,KAAKE,SAAL,CAAetM,KAAf,CAAqB,IAArB,EAA2B,KAAK4L,KAAhC,CAAX;;EACA,cAAM,IAAIvK,KAAJ,kCAAoC,KAAKuK,KAAzC,eAAmDQ,IAAnD,EAAN;EACH;EACJ;;;;;EAGL;EACA;;;EACAhH,KAAK,CAACuI,WAAN,GAAoB,SAASA,WAAT,CAAqB5P,MAArB,EAA6B2J,MAA7B,EAAqC;EACrD,MAAI8F,KAAK,GAAGpI,KAAK,CAACwI,YAAN,CAAmB7P,MAAnB,EAA2B2J,MAA3B,EAAmCtC,KAAK,CAACyI,QAAzC,EAAmD,IAAnD,CAAZ;EAEA,SAAOL,KAAK,CAACM,MAAN,CAAa,CAChB,CAAC,IAAD,EAAO,IAAP,EAAa1I,KAAK,CAACyI,QAAnB,EAA6B,IAA7B,EAAmC,IAAnC,CADgB,EAEhB,CAAC,IAAD,EAAO,IAAP,EAAa,IAAb,EAAmB,IAAnB,EAAyBzI,KAAK,CAACsC,MAA/B,CAFgB,EAGhB,CAAC,IAAD,EAAO,IAAP,EAAatC,KAAK,CAACyI,QAAnB,EAA6BzI,KAAK,CAACsC,MAAnC,EAA2C,IAA3C,CAHgB,CAAb,CAAP;EAKH,CARD;EAUA;EACA;;;EACAtC,KAAK,CAACwI,YAAN,GAAqB,SAASA,YAAT,CAAsB7P,MAAtB,EAA8B2J,MAA9B,EAAgE;EAAA,MAA1BqG,IAA0B,uEAAnB,IAAmB;EAAA,MAAbC,IAAa,uEAAN,IAAM;;EACjF,MAAIjQ,MAAM,CAACG,MAAP,KAAkB,CAAtB,EAAyB;EACrB,UAAM,IAAImD,KAAJ,CAAU,6BAAV,CAAN;EACH;;EACD,MAAItD,MAAM,CAACG,MAAP,KAAkB,CAAtB,EAAyB;EACrB,WAAO,CAAC,CAACH,MAAD,EAASgQ,IAAT,EAAeC,IAAf,EAAqB,IAArB,EAA2B,IAA3B,CAAD,CAAP;EACH;;EACD,MAAIR,KAAK,GAAG,EAAZ;;EACA,OAAK,IAAI5G,CAAC,GAAG,CAAR,EAAW8F,GAAG,GAAG3O,MAAM,CAACG,MAA7B,EAAqC0I,CAAC,GAAG8F,GAAzC,EAA8C,EAAE9F,CAAhD,EAAmD;EAC/C,QAAMkG,IAAI,GAAG,EAAb;EACAA,IAAAA,IAAI,CAACzO,IAAL,CAAUN,MAAM,CAAC6I,CAAD,CAAhB;EACAkG,IAAAA,IAAI,CAACzO,IAAL,CAAUN,MAAM,CAAC6I,CAAC,GAAG,CAAL,CAAN,IAAiBmH,IAA3B;EACAjB,IAAAA,IAAI,CAACzO,IAAL,CAAUN,MAAM,CAAC6I,CAAC,GAAG,CAAL,CAAN,IAAiBoH,IAA3B;;EACA,QAAIpH,CAAC,KAAK,CAAV,EAAa;EACTkG,MAAAA,IAAI,CAACzO,IAAL,CAAU,IAAV;EACAyO,MAAAA,IAAI,CAACzO,IAAL,CAAUqJ,MAAV;EACH,KAHD,MAGO,IAAId,CAAC,KAAK8F,GAAG,GAAG,CAAhB,EAAmB;EACtBI,MAAAA,IAAI,CAACzO,IAAL,CAAUqJ,MAAV;EACAoF,MAAAA,IAAI,CAACzO,IAAL,CAAU,IAAV;EACH,KAHM,MAGA;EACHyO,MAAAA,IAAI,CAACzO,IAAL,CAAUqJ,MAAV;EACAoF,MAAAA,IAAI,CAACzO,IAAL,CAAUqJ,MAAV;EACH;;EACD8F,IAAAA,KAAK,CAACnP,IAAN,CAAWyO,IAAX;EACH;;EACD,SAAOU,KAAP;EACH,CA1BD;;;EA4BApI,KAAK,CAACrH,MAAN,GAAewJ,MAAM,OAAN,CAAW,QAAX,CAAf;EACAnC,KAAK,CAACsC,MAAN,GAAeH,MAAM,OAAN,CAAW,QAAX,CAAf;EACAnC,KAAK,CAAC6I,OAAN,GAAgB1G,MAAM,OAAN,CAAW,SAAX,CAAhB;EACAnC,KAAK,CAACvJ,KAAN,GAAc0L,MAAM,OAAN,CAAW,OAAX,CAAd;EACAnC,KAAK,CAAC8I,WAAN,GAAoB3G,MAAM,OAAN,CAAW,aAAX,CAApB;EACAnC,KAAK,CAAC+I,SAAN,GAAkB5G,MAAM,OAAN,CAAW,WAAX,CAAlB;EACAnC,KAAK,CAACgJ,OAAN,GAAgB7G,MAAM,OAAN,CAAW,SAAX,CAAhB;EACAnC,KAAK,CAACiJ,QAAN,GAAiB9G,MAAM,OAAN,CAAW,UAAX,CAAjB;EACAnC,KAAK,CAACkJ,SAAN,GAAkB/G,MAAM,OAAN,CAAW,WAAX,CAAlB;EACAnC,KAAK,CAACmJ,SAAN,GAAkBhH,MAAM,OAAN,CAAW,WAAX,CAAlB;EACAnC,KAAK,CAACoJ,OAAN,GAAgBjH,MAAM,OAAN,CAAW,SAAX,CAAhB;EACAnC,KAAK,CAACqJ,GAAN,GAAYlH,MAAM,OAAN,CAAW,KAAX,CAAZ;;EAEAnC,KAAK,CAACyI,QAAN,GAAiB,eAAjB;;EAEAzI,KAAK,CAACsJ,MAAN,GAAe;EAEX;EACA;EACA,CAAC,GAAD,EAAM,UAAN,EAAkB,IAAlB,EAAwB,IAAxB,EAA8BtJ,KAAK,CAACrH,MAApC,CAJW,EAKX,CAAC,GAAD,EAAM,UAAN,EAAkB,IAAlB,EAAwBqH,KAAK,CAACrH,MAA9B,EAAsC,IAAtC,CALW;EAQX;EACA,CAAC,GAAD,EAAM,IAAN,EAAY,aAAZ,EAA2B,IAA3B,EAAiCqH,KAAK,CAACsC,MAAvC,CATW;EAYX,CAAC,GAAD,EAAM,IAAN,EAAY,IAAZ,EAAkB,IAAlB,EAAwBtC,KAAK,CAAC+I,SAA9B,CAZW,EAaX,CAAC,IAAD,EAAO,GAAP,EAAY,IAAZ,EAAkB/I,KAAK,CAAC+I,SAAxB,EAAmC/I,KAAK,CAAC+I,SAAzC,CAbW,EAcX,CAAC,IAAD,EAAO,GAAP,EAAY,SAAZ,EAAuB/I,KAAK,CAAC+I,SAA7B,EAAwC/I,KAAK,CAAC+I,SAA9C,CAdW,EAeX,CAAC,IAAD,EAAO,IAAP,EAAa,IAAb,EAAmB/I,KAAK,CAAC+I,SAAzB,EAAoC,IAApC,CAfW,EAgBX,CAAC,IAAD,EAAO,IAAP,EAAa/I,KAAK,CAACyI,QAAnB,EAA6BzI,KAAK,CAAC+I,SAAnC,EAA8C,IAA9C,CAhBW;EAmBX,CAAC,GAAD,EAAM/I,KAAK,CAACyI,QAAZ,EAAsB,IAAtB,EAA4B,IAA5B,EAAkCzI,KAAK,CAACvJ,KAAxC,CAnBW,EAoBX,CAAC,OAAD,EAAU,IAAV,EAAgB,IAAhB,EAAsBuJ,KAAK,CAACvJ,KAA5B,EAAmCuJ,KAAK,CAACvJ,KAAzC,CApBW,EAqBX,CAAC,IAAD,EAAO,IAAP,EAAa,IAAb,EAAmBuJ,KAAK,CAACvJ,KAAzB,EAAgCuJ,KAAK,CAAC8I,WAAtC,CArBW,EAsBX,CAAC,IAAD,EAAO,OAAP,EAAgB,IAAhB,EAAsB9I,KAAK,CAAC8I,WAA5B,EAAyC9I,KAAK,CAACvJ,KAA/C,CAtBW,EAuBX,CAAC,SAAD,EAAY,IAAZ,EAAkB,IAAlB,EAAwBuJ,KAAK,CAACvJ,KAA9B,EAAqCuJ,KAAK,CAACvJ,KAA3C,CAvBW,EAwBX,CAAC,IAAD,EAAO,IAAP,EAAa,IAAb,EAAmBuJ,KAAK,CAACvJ,KAAzB,EAAgCuJ,KAAK,CAACvJ,KAAtC,CAxBW,EAyBX,CAAC,IAAD,EAAO,MAAP,EAAeuJ,KAAK,CAACyI,QAArB,EAA+BzI,KAAK,CAACvJ,KAArC,EAA4C,IAA5C,CAzBW,EA0BX,CAAC,UAAD,EAAa,IAAb,EAAmBuJ,KAAK,CAACyI,QAAzB,EAAmCzI,KAAK,CAACvJ,KAAzC,EAAgD,IAAhD,CA1BW,EA2BX,CAAC,UAAD,EAAa,IAAb,EAAmB,UAAnB,EAA+BuJ,KAAK,CAACvJ,KAArC,EAA4CuJ,KAAK,CAACvJ,KAAlD,CA3BW,EA4BX,CAAC,UAAD,EAAa,UAAb,EAAyBuJ,KAAK,CAACyI,QAA/B,EAAyCzI,KAAK,CAACvJ,KAA/C,EAAsD,IAAtD,CA5BW;EA+BX,CAAC,GAAD,EAAM,SAAN,EAAiB,IAAjB,EAAuB,IAAvB,EAA6BuJ,KAAK,CAAC6I,OAAnC,CA/BW,EAgCX,CAAC,QAAD,EAAW,IAAX,EAAiB,IAAjB,EAAuB7I,KAAK,CAAC6I,OAA7B,EAAsC,IAAtC,CAhCW,EAiCX,CAAC,IAAD,EAAO,IAAP,EAAa,IAAb,EAAmB7I,KAAK,CAAC6I,OAAzB,EAAkC7I,KAAK,CAAC6I,OAAxC,CAjCW;EAoCX,CAAC,GAAD,EAAM,IAAN,EAAY,IAAZ,EAAkB,IAAlB,EAAwB7I,KAAK,CAACkJ,SAA9B,CApCW,EAqCX,CAAC,IAAD,EAAO,IAAP,EAAa,IAAb,EAAmBlJ,KAAK,CAACkJ,SAAzB,EAAoClJ,KAAK,CAACkJ,SAA1C,CArCW,EAsCX,CAAC,GAAD,EAAM,IAAN,EAAY,IAAZ,EAAkBlJ,KAAK,CAACkJ,SAAxB,EAAmC,IAAnC,CAtCW;EAyCX,CAAC,GAAD,EAAM,IAAN,EAAY,GAAZ,EAAiB,IAAjB,EAAuBlJ,KAAK,CAACmJ,SAA7B,CAzCW,EA0CX,CAAC,GAAD,EAAM,GAAN,EAAW,IAAX,EAAiBnJ,KAAK,CAACmJ,SAAvB,EAAkC,IAAlC,CA1CW;EA6CX,CAAC,GAAD,EAAM,IAAN,EAAY,OAAZ,EAAqB,IAArB,EAA2BnJ,KAAK,CAACoJ,OAAjC,CA7CW,EA8CX,CAAC,GAAD,EAAM,OAAN,EAAe,IAAf,EAAqBpJ,KAAK,CAACoJ,OAA3B,EAAoC,IAApC,CA9CW,EA+CX,CAAC,GAAD,EAAM,OAAN,EAAe,IAAf,EAAqBpJ,KAAK,CAACoJ,OAA3B,EAAoC,IAApC,CA/CW;EAkDX,CAAC,IAAD,EAAOpJ,KAAK,CAACyI,QAAb,EAAuB,GAAvB,EAA4B,IAA5B,EAAkC,IAAlC,CAlDW;EAqDX,CAAC,IAAD,EAAO,IAAP,EAAa,IAAb,EAAmB,IAAnB,EAAyBzI,KAAK,CAACiJ,QAA/B,CArDW,EAsDX,CAAC,IAAD,EAAO,IAAP,EAAa,IAAb,EAAmBjJ,KAAK,CAACiJ,QAAzB,EAAmCjJ,KAAK,CAACiJ,QAAzC,CAtDW,EAuDX,CAAC,IAAD,EAAO,IAAP,EAAajJ,KAAK,CAACyI,QAAnB,EAA6BzI,KAAK,CAACiJ,QAAnC,EAA6C,IAA7C,CAvDW,CAAf;;EA0DAjJ,KAAK,CAACuJ,SAAN,GAAkB,CACd,CAAC,SAAD,EAAY,IAAZ,EAAkB,IAAlB,EAAwB,IAAxB,EAA8B,IAA9B,CADc,CAAlB;EAIA;EACA;;EACAvJ,KAAK,CAACwJ,aAAN,GAAsB,CAClB,CAAC,IAAD,EAAOxJ,KAAK,CAACyI,QAAb,EAAuBzI,KAAK,CAACyI,QAA7B,EAAuC,IAAvC,EAA6C,IAA7C,CADkB,EAElB,CAAC,IAAD,EAAOzI,KAAK,CAACyI,QAAb,EAAuB,IAAvB,EAA6B,IAA7B,EAAmCzI,KAAK,CAACsC,MAAzC,CAFkB,EAGlB,CAAC,IAAD,EAAO,IAAP,EAAatC,KAAK,CAACyI,QAAnB,EAA6B,IAA7B,EAAmC,IAAnC,CAHkB,EAIlB,CAAC,IAAD,EAAO,IAAP,EAAa,IAAb,EAAmB,IAAnB,EAAyBzI,KAAK,CAACsC,MAA/B,CAJkB,EAKlB,CAAC,IAAD,EAAO,IAAP,EAAatC,KAAK,CAACyI,QAAnB,EAA6BzI,KAAK,CAACsC,MAAnC,EAA2C,IAA3C,CALkB,CAAtB;EAQA;EACA;EACA;;EACAtC,KAAK,CAACyJ,MAAN,GAAe;EACXC,EAAAA,KAAK,EAAE,KADI;EAEXtB,EAAAA,KAAK,EAAE;EAFI,CAAf;;EAKAlJ,QAAQ,CAACoG,EAAT,CAAY,CAAC,QAAD,EAAW,QAAX,CAAZ,EAAkC,YAAW;EACzCtF,EAAAA,KAAK,CAACyJ,MAAN,CAAaC,KAAb,GAAqB,KAArB;EACA1J,EAAAA,KAAK,CAACyJ,MAAN,CAAarB,KAAb,GAAqB,IAArB;EACH,CAHD;;EAKAjP,MAAM,CAAC2K,cAAP,CAAsB9D,KAAtB,EAA6B,OAA7B,EAAsC;EAClChJ,EAAAA,GADkC,iBAC5B;EACH,QAAIgJ,KAAK,CAACyJ,MAAN,CAAaC,KAAjB,EAAwB;EACpB,aAAO1J,KAAK,CAACyJ,MAAN,CAAarB,KAApB;EACH;;EACD,QAAItI,MAAM,GAAGZ,QAAQ,CAACC,KAAT,GAAiBwK,IAAjB,CAAsB,UAACC,CAAD,EAAIC,CAAJ,EAAU;EACzC,aAAOA,CAAC,CAAC/Q,MAAF,GAAW8Q,CAAC,CAAC9Q,MAAb,IAAuB8Q,CAAC,CAACE,aAAF,CAAgBD,CAAhB,CAA9B;EACH,KAFY,CAAb;EAIA,QAAIE,aAAa,GAAGjK,MAAM,CAACkK,MAAP,CAAc,UAACC,GAAD,EAAM/J,KAAN,EAAgB;EAC9C,0BAAyChB,QAAQ,CAAClI,GAAT,CAAakJ,KAAb,CAAzC;EAAA,UAAQlK,IAAR,iBAAQA,IAAR;EAAA,UAAsBkU,cAAtB,iBAAc5H,MAAd;;EACA,UAAI8F,KAAJ;EACA,UAAI9F,MAAJ,CAH8C;;EAK9C,UAAIpC,KAAK,CAAC,CAAD,CAAL,KAAa,GAAjB,EAAsB;EAClB,YAAIA,KAAK,CAACpH,MAAN,KAAiB,CAArB,EAAwB;EACpBwJ,UAAAA,MAAM,GAAGH,MAAM,OAAN,CAAWjC,KAAX,CAAT;EACH,SAFD,MAEO;EACHoC,UAAAA,MAAM,GAAGH,MAAM,OAAN,CAAWjC,KAAK,CAAC,CAAD,CAAhB,CAAT;EACH;EACJ,OAND,MAMO;EACHoC,QAAAA,MAAM,GAAG4H,cAAT;EACH;;EACD,UAAIlU,IAAI,KAAKkJ,QAAQ,CAACgG,MAAtB,EAA8B;EAC1BkD,QAAAA,KAAK,GAAGpI,KAAK,CAACuI,WAAN,CAAkBrI,KAAlB,EAAyBoC,MAAzB,CAAR;EACH,OAFD,MAEO;EACH8F,QAAAA,KAAK,GAAGpI,KAAK,CAACwI,YAAN,CAAmBtI,KAAnB,EAA0BoC,MAA1B,CAAR;EACH;;EACD,aAAO2H,GAAG,CAACvB,MAAJ,CAAWN,KAAX,CAAP;EACH,KApBmB,EAoBjB,EApBiB,CAApB;EAsBApI,IAAAA,KAAK,CAACyJ,MAAN,CAAarB,KAAb,GAAqBpI,KAAK,CAACsJ,MAAN,CAAaZ,MAAb,CACjB1I,KAAK,CAACuJ,SADW,EAEjBQ,aAFiB,EAGjB/J,KAAK,CAACwJ,aAHW,CAArB;EAMAxJ,IAAAA,KAAK,CAACyJ,MAAN,CAAaC,KAAb,GAAqB,IAArB;EACA,WAAO1J,KAAK,CAACyJ,MAAN,CAAarB,KAApB;EACH;EAvCiC,CAAtC;;EA0CA,SAASJ,aAAT,CAAuBnL,EAAvB,EAA2BjB,MAA3B,EAAiC;EAC7B,SAAOiB,EAAE,KAAK,IAAP,IAAejB,MAAI,CAACpB,KAAL,CAAWqC,EAAX,CAAtB;EACH;EAED;EACA;EACA;;;MACMsN;EACH,kBAAY7P,GAAZ,EAA8E;EAAA,oFAAJ,EAAI;EAAA,QAA3D8P,GAA2D,SAA3DA,GAA2D;EAAA,2BAAtD7J,IAAsD;EAAA,QAAtDA,IAAsD,2BAA/C,KAA+C;EAAA,gCAAxC8J,SAAwC;EAAA,QAAxCA,SAAwC,gCAA5B/J,mBAA4B;;EAAA;;EAC1E,QAAIhG,GAAG,YAAY+D,OAAnB,EAA4B;EACxB/D,MAAAA,GAAG,GAAGA,GAAG,CAACnG,QAAJ,EAAN;EACH;;EAEDuP,IAAAA,SAAS,CAAC,IAAD,EAAO,YAAP,EAAqB2G,SAArB,EAAgC;EAAE1G,MAAAA,MAAM,EAAE;EAAV,KAAhC,CAAT;EACAD,IAAAA,SAAS,CAAC,IAAD,EAAO,WAAP,EAAoB,IAAI1D,KAAJ,CAAU1F,GAAV,CAApB,CAAT;EACAoJ,IAAAA,SAAS,CAAC,IAAD,EAAO,SAAP,EAAkB0G,GAAlB,CAAT;EAEA1G,IAAAA,SAAS,CAAC,IAAD,EAAO,OAAP,EAAgBnD,IAAhB,EAAsB;EAAEoD,MAAAA,MAAM,EAAE;EAAV,KAAtB,CAAT,CAT0E;;EAW1ED,IAAAA,SAAS,CAAC,IAAD,EAAO,OAAP,EAAgB,EAAhB,EAAoB;EAAEC,MAAAA,MAAM,EAAE;EAAV,KAApB,CAAT;EACH;;;;aACD,iBAAQ5B,IAAR,EAAc;EACV,aAAO,KAAKuI,OAAL,IAAgB,KAAKA,OAAL,CAAatT,GAAb,CAAiB+K,IAAjB,EAAuB;EAAExK,QAAAA,UAAU,EAAE;EAAd,OAAvB,CAAvB;EACH;;;;qEACD;EAAA;EAAA;EAAA;EAAA;EAAA;;EAGQ2I,gBAAAA,KAAK,GAAG,KAAKqK,SAAL,CAAepK,IAAf,CAAoB,IAApB,CAAR;;EAHR,sBAIYD,KAAK,KAAKE,GAJtB;EAAA;EAAA;EAAA;;EAAA,kDAKmBA,GALnB;;EAAA;EAAA,qBAOY,KAAKoK,UAAL,CAAgBtK,KAAK,CAACA,KAAtB,CAPZ;EAAA;EAAA;EAAA;;EAQY,qBAAKG,IAAL;EARZ;;EAAA;EAAA,sBAWYH,KAAK,CAACA,KAAN,KAAgB,IAX5B;EAAA;EAAA;EAAA;;EAYY,qBAAKG,IAAL;;EAZZ,sBAagB,KAAKkK,SAAL,CAAepK,IAAf,OAA0BC,GAb1C;EAAA;EAAA;EAAA;;EAAA,sBAcsB,IAAInE,KAAJ,CAAU,6CAAV,CAdtB;;EAAA;EAAA;EAAA,uBAgBkB,KAAKwO,YAAL,EAhBlB;;EAAA;EAAA;;EAAA;EAAA;;EAAA;EAqBIvK,gBAAAA,KAAK,GAAG,KAAKwK,UAAL,CAAgBxK,KAAhB,CAAR;;EArBJ,qBAsBQ,KAAKyK,KAtBb;EAAA;EAAA;EAAA;;EAAA,kDAuBezK,KAvBf;;EAAA;EAAA,kDAyBWA,KAAK,CAACA,KAzBjB;;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;;;;;;;;;;aA2BA,iBAAQ;EACJ,WAAK0K,KAAL,CAAW9R,MAAX,GAAoB,CAApB;EACH;;;aACD,gBAAO;EACH,WAAKyR,SAAL,CAAelK,IAAf;EACH;;;;qEACD;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA,uBACwB,KAAKF,IAAL,EADxB;;EAAA;EACUD,gBAAAA,KADV;EAEI,qBAAKG,IAAL;EAFJ,kDAGWH,KAHX;;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;;;;;;;;;;aAKA,2BAAkBA,KAAlB,EAAyB;EACrB,UAAIvG,CAAC,GAAGuG,KAAK,CAAC1F,KAAN,CAAY,cAAZ,CAAR;EACA,aAAOb,CAAC,IAAIA,CAAC,CAAC,CAAD,CAAb;EACH;;;aACD,yBAAgBuG,KAAhB,EAAuB;EACnB,UAAIvG,CAAC,GAAGuG,KAAK,CAAC1F,KAAN,CAAY,cAAZ,CAAR;EACA,aAAOb,CAAC,IAAIA,CAAC,CAAC,CAAD,CAAb;EACH;;;aACD,iBAAQuG,KAAR,EAAe;EACX,aAAO,CAAC,GAAD,EAAM,GAAN,EAAWrF,QAAX,CAAoBqF,KAApB,CAAP;EACH;;;aACD,kBAASA,KAAT,EAAgB;EACZ,aAAO,CAAC,GAAD,EAAM,GAAN,EAAWrF,QAAX,CAAoBqF,KAApB,CAAP;EACH;;;;0EACD;EAAA;EAAA;EAAA;EAAA;EAAA;EACQ2K,gBAAAA,IADR,GACeC,IADf,EACoBC,IADpB,GAC2BF,IAD3B;;EAAA;;EAAA;EAAA,uBAG4B,KAAK1K,IAAL,EAH5B;;EAAA;EAGcD,gBAAAA,KAHd;;EAAA,sBAIYA,KAAK,KAAKE,GAJtB;EAAA;EAAA;EAAA;;EAAA;;EAAA;EAAA,qBAOY,KAAK4K,QAAL,CAAc9K,KAAd,CAPZ;EAAA;EAAA;EAAA;;EAQY,qBAAKG,IAAL;EARZ;;EAAA;EAAA,sBAWYH,KAAK,KAAK,GAAV,IAAiB2K,IAAI,KAAKC,IAXtC;EAAA;EAAA;EAAA;;EAYY,qBAAKzK,IAAL;EAZZ;EAAA,uBAa6B,KAAKoK,YAAL,EAb7B;;EAAA;EAaYM,gBAAAA,IAAI,CAACE,GAbjB;EAAA;EAAA;;EAAA;EAAA,+BAe4BC,IAf5B;EAAA;EAAA,uBAeuC,KAAKT,YAAL,EAfvC;;EAAA;EAAA;EAAA,+BAe4DK,IAf5D;EAekBK,gBAAAA,GAflB;;EAgBY,oBAAIN,IAAI,KAAKC,IAAb,EAAkB;EACdD,kBAAAA,IAAI,GAAGM,GAAP;EACH,iBAFD,MAEO;EACHJ,kBAAAA,IAAI,CAACE,GAAL,GAAWE,GAAX;EACH;;EACDJ,gBAAAA,IAAI,GAAGI,GAAP;;EArBZ;EAAA;EAAA;;EAAA;EAAA,kDAwBWN,IAxBX;;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;;;;;;;;;;;2EA0BA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA,uBACsB,KAAK3W,IAAL,EADtB;;EAAA;EACQgM,gBAAAA,KADR;;EAAA,sBAEQA,KAAK,KAAKE,GAFlB;EAAA;EAAA;EAAA;;EAAA,sBAGc,IAAInE,KAAJ,CAAU,kCAAV,CAHd;;EAAA;EAAA,kDAKW6C,cAAc,CAACoB,KAAD,CALzB;;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;;;;;;;;;;aAOA,oBAAWA,KAAX,EAAkB;EACd,aAAOA,KAAK,CAAC1F,KAAN,CAAY,IAAZ,KAAsB0F,KAAK,CAAC1F,KAAN,CAAY,MAAZ,KAAuB0F,KAAK,CAAC1F,KAAN,CAAY,MAAZ,CAApD;EACH;;;aACD,kBAAS4Q,IAAT,EAAe;EACX,aAAOC,SAAQ,CAACD,IAAD,EAAO;EAAEhB,QAAAA,GAAG,EAAE,KAAKE,OAAZ;EAAqBgB,QAAAA,KAAK,EAAE,eAACvV,CAAD,EAAO;EACrD,gBAAMA,CAAN;EACH;EAFqB,OAAP,CAAf;EAGH;;;;;6EAED;EAAA;EAAA;EAAA;EAAA;EAAA;EACI,qBAAKwV,KAAL;EADJ;EAAA,uBAEuB,KAAKd,YAAL,EAFvB;;EAAA;EAEQrI,gBAAAA,MAFR;;EAGI,oBAAIA,MAAM,YAAYoJ,cAAtB,EAAsC;EAClCpJ,kBAAAA,MAAM,GAAGA,MAAM,CAAC7G,OAAP,EAAT;EACH;;EALL,qBAMQ,KAAKqP,KAAL,CAAW9R,MANnB;EAAA;EAAA;EAAA;;EAAA,kDAOe,KAAK2S,eAAL,CAAqBrJ,MAArB,CAPf;;EAAA;EAAA,kDASWA,MATX;;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;;;;;;;;;;;gFAWA,kBAAsBA,MAAtB;EAAA;;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA,qBACQkC,KAAK,CAACC,OAAN,CAAcnC,MAAd,CADR;EAAA;EAAA;EAAA;;EAAA,kDAEeA,MAAM,CAAC1I,GAAP,CAAW,UAAAiG,IAAI;EAAA,yBAAI,MAAI,CAAC8L,eAAL,CAAqB9L,IAArB,CAAJ;EAAA,iBAAf,CAFf;;EAAA;EAAA,qBAIQ+L,eAAe,CAACtJ,MAAD,CAJvB;EAAA;EAAA;EAAA;;EAKY9J,gBAAAA,MALZ,GAKqB,EALrB;EAMQa,gBAAAA,MAAM,CAACC,IAAP,CAAYgJ,MAAZ,EAAoB7J,OAApB,CAA4B,UAAAoT,GAAG,EAAI;EAC/BrT,kBAAAA,MAAM,CAACqT,GAAD,CAAN,GAAc,MAAI,CAACF,eAAL,CAAqBrJ,MAAM,CAACuJ,GAAD,CAA3B,CAAd;EACH,iBAFD;EANR,kDASerT,MATf;;EAAA;EAAA,sBAWQ8J,MAAM,YAAY8I,IAX1B;EAAA;EAAA;EAAA;;EAAA,kDAYe,KAAKU,aAAL,CAAmBxJ,MAAnB,CAZf;;EAAA;EAAA,kDAcWA,MAdX;;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;;;;;;;;;;;8EAgBA,kBAAoByJ,IAApB;EAAA;EAAA;EAAA;EAAA;EAAA,sBACQA,IAAI,YAAYX,IADxB;EAAA;EAAA;EAAA;;EAAA,sBAEYW,IAAI,CAACC,GAAL,YAAoBN,cAFhC;EAAA;EAAA;EAAA;;EAAA;EAAA,uBAG6BK,IAAI,CAACC,GAAL,CAASvQ,OAAT,EAH7B;;EAAA;EAGYsQ,gBAAAA,IAAI,CAACC,GAHjB;EAAA;EAAA;;EAAA;EAKY,qBAAKF,aAAL,CAAmBC,IAAI,CAACC,GAAxB;;EALZ;EAAA,sBAOYD,IAAI,CAACZ,GAAL,YAAoBO,cAPhC;EAAA;EAAA;EAAA;;EAAA;EAAA,uBAQ6BK,IAAI,CAACZ,GAAL,CAAS1P,OAAT,EAR7B;;EAAA;EAQYsQ,gBAAAA,IAAI,CAACZ,GARjB;EAAA;EAAA;;EAAA;EAUY,qBAAKW,aAAL,CAAmBC,IAAI,CAACZ,GAAxB;;EAVZ;EAAA,kDAaWY,IAbX;;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;;;;;;;;;;;6EAeA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA,uBACwB,KAAK1L,IAAL,EADxB;;EAAA;EACUD,gBAAAA,KADV;;EAAA,sBAEQA,KAAK,KAAKE,GAFlB;EAAA;EAAA;EAAA;;EAAA,kDAGeF,KAHf;;EAAA;EAAA,qBAKQyF,UAAU,CAACzF,KAAD,CALlB;EAAA;EAAA;EAAA;;EAMQ;EACA;EACA;EACA;EACA;EACA;EACA;EACMX,gBAAAA,OAbd,GAawBL,QAAQ,CAAClI,GAAT,CAAakJ,KAAb,CAbxB;EAcc6L,gBAAAA,MAdd,GAcuBnG,UAAU,CAAC1F,KAAD,CAdjC;EAeQ,qBAAKG,IAAL;EAfR;EAAA,uBAiB6B,KAAKoK,YAAL,EAjB7B;;EAAA;EAiBcrI,gBAAAA,MAjBd;;EAAA,oBAkBa2J,MAlBb;EAAA;EAAA;EAAA;;EAmBgBC,gBAAAA,SAnBhB,GAmB4B,KAAK1B,OAAL,CAAatT,GAAb,CAAiBuI,OAAO,CAAC+C,MAAzB,CAnB5B;;EAAA,sBAoBgB,OAAO0J,SAAP,KAAqB,UApBrC;EAAA;EAAA;EAAA;;EAAA,qBAqBoBlG,UAAU,CAAC5F,KAAD,CArB9B;EAAA;EAAA;EAAA;;EAAA,kDAsB2B8L,SAAS,CAAC9V,IAAV,CAAe,KAAKoU,OAApB,EAA6BlI,MAA7B,CAtB3B;;EAAA;EAAA,sBAuB2BA,MAAM,YAAY8I,IAvB7C;EAAA;EAAA;EAAA;;EAAA,kDAwB2Bc,SAAS,CAACjL,KAAV,CAAgB,KAAKuJ,OAArB,EAA8BlI,MAAM,CAAC6J,QAAP,CAAgB,KAAhB,CAA9B,CAxB3B;;EAAA;EAAA,sBA0BsB,IAAIhQ,KAAJ,CAAU,gEACcsD,OAAO,CAAC+C,MADtB,CAAV,CA1BtB;;EAAA;EA8BQ,oBAAIwD,UAAU,CAAC5F,KAAD,CAAd,EAAuB;EACnBgM,kBAAAA,IAAI,GAAG,IAAIhB,IAAJ,CACH3L,OAAO,CAAC+C,MADL,EAEH,IAAI4I,IAAJ,CACI9I,MADJ,EAEI0I,IAFJ,CAFG,CAAP;EAOH,iBARD,MAQO;EACHoB,kBAAAA,IAAI,GAAG,IAAIhB,IAAJ,CACH3L,OAAO,CAAC+C,MADL,EAEHF,MAFG,CAAP;EAIH,iBA3CT;;;EAAA,qBA6CY2J,MA7CZ;EAAA;EAAA;EAAA;;EAAA,kDA8CmBG,IA9CnB;;EAAA;EAAA,sBAiDYF,SAAS,YAAYG,KAjDjC;EAAA;EAAA;EAAA;;EAAA;EAAA,uBAkD+B,KAAKd,QAAL,CAAca,IAAd,CAlD/B;;EAAA;EAkDgB5T,gBAAAA,MAlDhB;;EAAA,sBAsDgBA,MAAM,YAAY4S,IAAlB,IAA0B5S,MAAM,YAAYuG,OAtD5D;EAAA;EAAA;EAAA;;EAAA,kDAuDuBqM,IAAI,CAACkB,SAAL,CAAe,CAACvN,OAAO,CAAC,OAAD,CAAR,EAAmBvG,MAAnB,CAAf,CAvDvB;;EAAA;EAAA,kDAyDmBA,MAzDnB;;EAAA;EAAA,sBA2DkB,IAAI2D,KAAJ,CAAU,2CACAsD,OAAO,CAAC+C,MADlB,CA3DlB;;EAAA;EA+DQ+J,gBAAAA,GA/DR,GA+Dc,KAAKC,eAAL,CAAqBpM,KAArB,CA/Dd;;EAAA,sBAgEQmM,GAAG,KAAK,IAhEhB;EAAA;EAAA;EAAA;;EAiEQ,qBAAKhM,IAAL;;EAjER,qBAkEY,KAAKuK,KAAL,CAAWyB,GAAX,CAlEZ;EAAA;EAAA;EAAA;;EAAA,kDAmEmB,IAAIb,cAAJ,CAAmBa,GAAnB,EAAwB,KAAKzB,KAAL,CAAWyB,GAAX,CAAxB,CAnEnB;;EAAA;EAAA,sBAqEc,IAAIpQ,KAAJ,6CAA+CoQ,GAA/C,OArEd;;EAAA;EAuEQE,gBAAAA,SAvER,GAuEoB,KAAKC,iBAAL,CAAuBtM,KAAvB,CAvEpB;;EAAA,sBAwEQqM,SAAS,KAAK,IAxEtB;EAAA;EAAA;EAAA;;EAyEQ,qBAAKlM,IAAL;EACA,qBAAKuK,KAAL,CAAW2B,SAAX,IAAwB,KAAK9B,YAAL,EAAxB;EA1ER,kDA2Ee,KAAKG,KAAL,CAAW2B,SAAX,CA3Ef;;EAAA;EAAA,qBA4Ee,KAAKE,OAAL,CAAavM,KAAb,CA5Ef;EAAA;EAAA;EAAA;;EA6EQ,qBAAKG,IAAL;EA7ER,kDA8Ee,KAAKqM,SAAL,EA9Ef;;EAAA;EAAA,kDAgFe,KAAKC,UAAL,EAhFf;;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;;;;;;;;;;;;EAqFJ;EACA;EACA;;;MACMnB;EACH,0BAAYzJ,IAAZ,EAAkBtC,IAAlB,EAAwB;EAAA;;EACpB,SAAKsC,IAAL,GAAYA,IAAZ;EACA,SAAKtC,IAAL,GAAYA,IAAZ;EACH;;;;aACD,mBAAU;EACN,aAAO,KAAKA,IAAZ;EACH;;;;;EAGL;EACA;EACA;EACA;EACA;EACA;;;WACgBvE;;;;;;gEAAhB,kBAAsBZ,GAAtB,EAA2B8P,GAA3B;EAAA;EAAA;EAAA;EAAA;EAAA;EACI,gBAAI,CAACA,GAAL,EAAU;EACN,kBAAIrT,UAAJ,EAAgB;EACZqT,gBAAAA,GAAG,GAAGrT,UAAU,CAACC,GAAX,CAAe,6BAAf,EAA8C;EAChDO,kBAAAA,UAAU,EAAE;EADoC,iBAA9C,CAAN;EAGH,eAJD,MAIO;EACH6S,gBAAAA,GAAG,GAAG9S,QAAN;EACH;EACJ;;EACKsV,YAAAA,MAVV,GAUmB,IAAIzC,MAAJ,CAAW7P,GAAX,EAAgB;EAAE8P,cAAAA,GAAG,EAAHA;EAAF,aAAhB,CAVnB;;EAAA;;EAAA;EAAA,wCAY2BwC,MAAM,CAACC,WAAP,EAZ3B;;EAAA;EAYcX,YAAAA,IAZd;;EAAA,kBAaYA,IAAI,KAAK9L,GAbrB;EAAA;EAAA;EAAA;;EAAA;;EAAA;EAAA;EAgBQ,mBAAM8L,IAAN;;EAhBR;EAAA;EAAA;;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;;;;EAoBA,SAASY,SAAT,CAAmBhW,KAAnB,EAAqD;EAAA,MAA3B1B,EAA2B,uEAAtB,UAAAoB,CAAC;EAAA,WAAIA,CAAJ;EAAA,GAAqB;EAAA,MAAd8U,KAAc,uEAAN,IAAM;;EACjD,MAAIlU,UAAU,CAACN,KAAD,CAAd,EAAuB;EACnB,QAAIiW,GAAG,GAAGjW,KAAK,CAACO,IAAN,CAAWjC,EAAX,CAAV;;EACA,QAAIkW,KAAK,KAAK,IAAd,EAAoB;EAChB,aAAOyB,GAAP;EACH,KAFD,MAEO;EACH,aAAOA,GAAG,SAAH,CAAUzB,KAAV,CAAP;EACH;EACJ;;EACD,MAAIxU,KAAK,YAAYwN,KAArB,EAA4B;EACxB,WAAO0I,eAAe,CAAClW,KAAD,EAAQ1B,EAAR,EAAYkW,KAAZ,CAAtB;EACH;;EACD,MAAII,eAAe,CAAC5U,KAAD,CAAnB,EAA4B;EACxB,WAAOmW,gBAAgB,CAACnW,KAAD,EAAQ1B,EAAR,EAAYkW,KAAZ,CAAvB;EACH;;EACD,SAAOlW,EAAE,CAAC0B,KAAD,CAAT;EACH;;;EAED,SAASkW,eAAT,CAAyBpI,KAAzB,EAAgCxP,EAAhC,EAAoCkW,KAApC,EAA2C;EACvC,MAAI1G,KAAK,CAACsI,IAAN,CAAW9V,UAAX,CAAJ,EAA4B;EACxB,WAAO0V,SAAS,CAACzI,WAAW,CAACO,KAAD,CAAZ,EAAqB,UAACqB,GAAD,EAAS;EAC1C,UAAI9M,MAAM,CAACgU,QAAP,CAAgBvI,KAAhB,CAAJ,EAA4B;EACxBzL,QAAAA,MAAM,CAACiU,MAAP,CAAcnH,GAAd;EACH;;EACD,aAAOA,GAAP;EACH,KALe,EAKbqF,KALa,CAAhB;EAMH;;EACD,SAAOlW,EAAE,CAACwP,KAAD,CAAT;EACH;;;EAED,SAASqI,gBAAT,CAA0B7K,MAA1B,EAAkChN,EAAlC,EAAsCkW,KAAtC,EAA6C;EACzC,MAAMlS,IAAI,GAAGD,MAAM,CAACC,IAAP,CAAYgJ,MAAZ,CAAb;EACA,MAAMiL,MAAM,GAAG,EAAf;EAAA,MAAmBC,UAAU,GAAG,EAAhC;EACA,MAAI9L,CAAC,GAAGpI,IAAI,CAACN,MAAb;;EACA,SAAO0I,CAAC,EAAR,EAAY;EACR,QAAMmK,GAAG,GAAGvS,IAAI,CAACoI,CAAD,CAAhB;EACA,QAAM1K,KAAK,GAAGsL,MAAM,CAACuJ,GAAD,CAApB;EACA0B,IAAAA,MAAM,CAAC7L,CAAD,CAAN,GAAY1K,KAAZ;;EACA,QAAIM,UAAU,CAACN,KAAD,CAAd,EAAuB;EACnBwW,MAAAA,UAAU,CAACrU,IAAX,CAAgBnC,KAAhB;EACH;EACJ;;EACD,MAAIwW,UAAU,CAACxU,MAAf,EAAuB;EACnB,WAAOgU,SAAS,CAACzI,WAAW,CAACgJ,MAAD,CAAZ,EAAsB,UAACA,MAAD,EAAY;EAC9C,UAAM/U,MAAM,GAAG,EAAf;EACA+U,MAAAA,MAAM,CAAC9U,OAAP,CAAe,UAACzB,KAAD,EAAQ0K,CAAR,EAAc;EACzB,YAAMmK,GAAG,GAAGvS,IAAI,CAACoI,CAAD,CAAhB;EACAlJ,QAAAA,MAAM,CAACqT,GAAD,CAAN,GAAc7U,KAAd;EACH,OAHD;;EAIA,UAAIqC,MAAM,CAACgU,QAAP,CAAgB/K,MAAhB,CAAJ,EAA6B;EACzBjJ,QAAAA,MAAM,CAACiU,MAAP,CAAc9U,MAAd;EACH;;EACD,aAAOA,MAAP;EACH,KAVe,EAUbgT,KAVa,CAAhB;EAWH;;EACD,SAAOlW,EAAE,CAACgN,MAAD,CAAT;EACH;;;EAED,SAASsB,SAAT,CAAmBtB,MAAnB,EAA2BmL,QAA3B,EAAqCzW,KAArC,EAAqE;EAAA,mFAAJ,EAAI;EAAA,6BAAvB6M,MAAuB;EAAA,MAAvBA,MAAuB,8BAAd,KAAc;;EACjExK,EAAAA,MAAM,CAAC2K,cAAP,CAAsB1B,MAAtB,EAA8BmL,QAA9B,EAAwC;EACpCzW,IAAAA,KAAK,EAALA,KADoC;EAEpCsP,IAAAA,YAAY,EAAE,IAFsB;EAGpCrC,IAAAA,UAAU,EAAE,CAACJ;EAHuB,GAAxC;EAKH;EAED;EACA;;;EACA,SAAe6J,eAAf,CAA+BpL,MAA/B;EAAA;;EAAA;EAAA;EAAA;EAAA;EACU9J,UAAAA,MADV,GACmB,EADnB;EAAA;EAAA;EAAA;EAAA,qCAE2B8J,MAF3B;;EAAA;EAAA;EAAA;;EAAA;EAAA;EAAA;EAAA;EAAA;;EAEmBzC,UAAAA,IAFnB;EAGQrH,UAAAA,MAAM,CAACW,IAAP,CAAY0G,IAAZ;;EAHR;EAAA;EAAA;EAAA;;EAAA;EAAA;EAAA;;EAAA;EAAA;EAAA;EAAA;EAAA;;EAAA;EAAA;EAAA;;EAAA;EAAA;EAAA;EAAA;;EAAA;EAAA;;EAAA;EAAA;;EAAA;EAAA;EAAA;EAAA;;EAAA;;EAAA;EAAA;;EAAA;EAAA;;EAAA;EAAA,2CAKWrH,MALX;;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAQA;EACA;;;EACA,SAASmV,OAAT,CAAiB1L,IAAjB,EAAuBzH,GAAvB,EAA4B;EACxB,MAAIA,GAAG,YAAYrD,MAAnB,EAA2B;EACvB,WAAO,UAAAT,CAAC;EAAA,aAAIsF,MAAM,CAACtF,CAAD,CAAN,CAAUgE,KAAV,CAAgBF,GAAhB,CAAJ;EAAA,KAAR;EACH,GAFD,MAEO,IAAIsJ,WAAW,CAACtJ,GAAD,CAAf,EAAsB;EACzB;EACA,WAAOA,GAAP;EACH;;EACD,QAAM,IAAI2B,KAAJ,CAAU,iBAAV,CAAN;EACH;EAED;EACA;EACA;EACA;;;EACA,SAAS1G,GAAT,CAAawM,IAAb,EAAmB3M,EAAnB,EAAuBG,GAAvB,EAA4BmY,IAA5B,EAAkC;EAC9B,MAAI,OAAO3L,IAAP,KAAgB,QAApB,EAA8B;EAC1B3M,IAAAA,EAAE,GAAGuB,SAAS,CAAC,CAAD,CAAd;EACApB,IAAAA,GAAG,GAAGoB,SAAS,CAAC,CAAD,CAAf;EACA+W,IAAAA,IAAI,GAAG/W,SAAS,CAAC,CAAD,CAAhB;EACAoL,IAAAA,IAAI,GAAG,IAAP;EACH;;EACD,MAAIxM,GAAJ,EAAS;EACL,QAAImY,IAAJ,EAAU;EACNtY,MAAAA,EAAE,CAACuY,OAAH,GAAapY,GAAb;EACH,KAFD,MAEO;EACHH,MAAAA,EAAE,CAACuY,OAAH,GAAaC,UAAU,CAACrY,GAAD,CAAvB;EACH;EACJ;;EACD,MAAIwM,IAAJ,EAAU;EACN3M,IAAAA,EAAE,CAAC8M,QAAH,GAAcH,IAAd;EACH,GAFD,MAEO,IAAI3M,EAAE,CAAC2M,IAAH,IAAW,CAAC8L,SAAS,CAACzY,EAAD,CAAzB,EAA+B;EAClCA,IAAAA,EAAE,CAAC8M,QAAH,GAAc9M,EAAE,CAAC2M,IAAjB;EACH;;EACD,SAAO3M,EAAP;EACH;;;EAED,SAASwY,UAAT,CAAoBjV,MAApB,EAA4B;EACxB,SAAOA,MAAM,CAACiC,KAAP,CAAa,IAAb,EAAmBlB,GAAnB,CAAuB,UAAAsN,IAAI,EAAI;EAClC,WAAOA,IAAI,CAAC9F,IAAL,EAAP;EACH,GAFM,EAEJ7H,IAFI,CAEC,IAFD,CAAP;EAGH;EAED;EACA;EACA;EACA;;;EACA,SAASyU,YAAT,CAAsBhO,MAAtB,EAAwC;EAAA,MAAViO,IAAU,uEAAH,CAAG;EACpC,MAAIvM,CAAC,GAAG1B,MAAM,CAAChH,MAAf;;EACA,MAAIiV,IAAI,IAAI,CAAZ,EAAe;EACX,UAAM9R,KAAK,iDAA0C8R,IAA1C,EAAX;EACH;;EACDC,EAAAA,KAAK,EAAE,OAAOD,IAAI,MAAMvM,CAAC,IAAI,CAAtB,EAAyB;EAC5B,QAAIsB,KAAK,GAAG,CAAZ;;EACA,WAAOA,KAAK,GAAG,CAAf,EAAkB;EACd,UAAI5C,KAAK,GAAGJ,MAAM,CAAC,EAAE0B,CAAH,CAAlB;;EACA,UAAI,CAACtB,KAAL,EAAY;EACR,cAAM8N,KAAN;EACH;;EACD,UAAI9N,KAAK,KAAK,GAAV,IAAiBA,KAAK,CAACA,KAAN,KAAgB,GAArC,EAA0C;EACtC4C,QAAAA,KAAK;EACR,OAFD,MAEO,IAAI5C,KAAK,KAAK,GAAV,IAAiBA,KAAK,CAACA,KAAN,KAAgB,GAArC,EAA0C;EAC7C4C,QAAAA,KAAK;EACR;EACJ;;EACDtB,IAAAA,CAAC;EACJ;;EACD,SAAO1B,MAAM,CAAC2B,KAAP,CAAaD,CAAC,GAAG,CAAjB,CAAP;EACH;EAED;EACA;;;EACA,SAASyM,UAAT,CAAoBnO,MAApB,EAA4B;EACxB,MAAI,CAACA,MAAD,IAAW,CAACA,MAAM,CAAChH,MAAvB,EAA+B;EAC3B,WAAO,CAAP;EACH;;EACD,MAAI0I,CAAC,GAAG1B,MAAM,CAAChH,MAAf;;EACA,MAAIgH,MAAM,CAAC0B,CAAC,GAAG,CAAL,CAAN,CAActB,KAAd,KAAwB,IAA5B,EAAkC;EAC9B,WAAO,CAAP;EACH;;EACD,SAAO,EAAEsB,CAAT,EAAY;EACR,QAAI1B,MAAM,CAAC0B,CAAD,CAAN,CAAUtB,KAAV,KAAoB,IAAxB,EAA8B;EAC1B,UAAIA,KAAK,GAAG,CAACJ,MAAM,CAAC0B,CAAC,GAAG,CAAL,CAAN,IAAiB,EAAlB,EAAsBtB,KAAlC;;EACA,UAAIA,KAAJ,EAAW;EACP,eAAOA,KAAK,CAACpH,MAAb;EACH;EACJ;EACJ;;EACD,SAAO,CAAP;EACH;EAED;EACA;;EACA;EACA;EACA;EACA;EACA;EACA;EACA;;;EACA,SAAS0B,KAAT,CAAe0T,OAAf,EAAwBhI,KAAxB,EAA+B;EAC3B,SAAOiI,WAAW,CAACD,OAAD,EAAUhI,KAAV,CAAX,KAAgCA,KAAK,CAACpN,MAA7C;;EACA,WAASqV,WAAT,CAAqBD,OAArB,EAA8BhI,KAA9B,EAAqC;EACjC;EACR;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACQ,aAASkI,eAAT,CAAyBC,QAAzB,EAAmCnI,KAAnC,EAA0C;EAAA,kDACxBmI,QADwB;EAAA;;EAAA;EACtC,+DAAwB;EAAA,cAAfC,EAAe;;EACpB,cAAM3U,EAAC,GAAGwU,WAAW,CAACG,EAAD,EAAIpI,KAAJ,CAArB;;EACA,cAAIvM,EAAC,KAAK,CAAC,CAAX,EAAc;EACV,mBAAOA,EAAP;EACH;EACJ;EANqC;EAAA;EAAA;EAAA;EAAA;;EAOtC,aAAO,CAAC,CAAR;EACH;;EACD,aAAS4U,gBAAT,GAA4B;EACxB,aAAOL,OAAO,CAACI,CAAD,CAAP,KAAenM,MAAM,OAAN,CAAW,QAAX,CAAf,IAAuC,CAAC/C,gBAAgB,CAAC8G,KAAK,CAAC1E,CAAD,CAAN,CAA/D;EACH;;EACD,aAASgN,UAAT,GAAsB;EAClB,UAAIC,YAAY,GAAGP,OAAO,CAACI,CAAC,GAAG,CAAL,CAA1B;EACA,UAAII,UAAU,GAAGxI,KAAK,CAAC1E,CAAC,GAAG,CAAL,CAAtB;;EACA,UAAIiN,YAAY,KAAK1a,SAAjB,IAA8B2a,UAAU,KAAK3a,SAAjD,EAA4D;EACxD,eAAOoa,WAAW,CAAC,CAACM,YAAD,CAAD,EAAiB,CAACC,UAAD,CAAjB,CAAlB;EACH;EACJ;;EACD,QAAIJ,CAAC,GAAG,CAAR;EACA,QAAIK,IAAI,GAAG,EAAX;;EACA,SAAK,IAAInN,CAAC,GAAG,CAAb,EAAgBA,CAAC,GAAG0E,KAAK,CAACpN,MAA1B,EAAkC,EAAE0I,CAApC,EAAuC;EACnC,UAAI,OAAO0M,OAAO,CAACI,CAAD,CAAd,KAAsB,WAA1B,EAAuC;EACnC,eAAO9M,CAAP;EACH;;EACD,UAAI0M,OAAO,CAACI,CAAD,CAAP,YAAsBM,OAA1B,EAAmC;EAC/B,YAAIjV,CAAJ;;EACA,YAAI,CAAC,GAAD,EAAM,GAAN,EAAWkB,QAAX,CAAoBqT,OAAO,CAACI,CAAD,CAAP,CAAWO,IAA/B,CAAJ,EAA0C;EACtC,iBAAOrN,CAAC,GAAG0E,KAAK,CAACpN,MAAjB,EAAyB;EACrBa,YAAAA,CAAC,GAAGyU,eAAe,CAACF,OAAO,CAACI,CAAD,CAAP,CAAWD,QAAZ,EAAsBnI,KAAK,CAACzE,KAAN,CAAYD,CAAZ,CAAtB,CAAnB;;EACA,gBAAI7H,CAAC,KAAK,CAAC,CAAX,EAAc;EACV;EACH;;EACD6H,YAAAA,CAAC,IAAI7H,CAAL;EACH;;EACD6H,UAAAA,CAAC,IAAI,CAAL;EACA8M,UAAAA,CAAC;EACD;EACH,SAXD,MAWO,IAAIJ,OAAO,CAACI,CAAD,CAAP,CAAWO,IAAX,KAAoB,GAAxB,EAA6B;EAChClV,UAAAA,CAAC,GAAGyU,eAAe,CAACF,OAAO,CAACI,CAAD,CAAP,CAAWD,QAAZ,EAAsBnI,KAAK,CAACzE,KAAN,CAAYD,CAAZ,CAAtB,CAAnB;;EACA,cAAI7H,CAAC,KAAK,CAAC,CAAX,EAAc;EACV6H,YAAAA,CAAC,IAAI,CAAL,CADU;EAEb,WAFD,MAEO;EACH8M,YAAAA,CAAC;EACJ;;EACD;EACH;EACJ,OAtBD,MAsBO,IAAIJ,OAAO,CAACI,CAAD,CAAP,YAAsBrX,MAA1B,EAAkC;EACrC,YAAI,CAACiP,KAAK,CAAC1E,CAAD,CAAL,CAAShH,KAAT,CAAe0T,OAAO,CAACI,CAAD,CAAtB,CAAL,EAAiC;EAC7B,iBAAO,CAAC,CAAR;EACH;EACJ,OAJM,MAIA,IAAIQ,IAAI,CAACzQ,OAAL,CAAasE,QAAb,CAAsBuL,OAAO,CAACI,CAAD,CAA7B,CAAJ,EAAuC;EAC1C,YAAIJ,OAAO,CAACI,CAAD,CAAP,CAAW/S,OAAX,OAAyB2K,KAAK,CAAC1E,CAAD,CAAlC,EAAuC;EACnC,iBAAO,CAAC,CAAR;EACH;EACJ,OAJM,MAIA,IAAI,QAAO0M,OAAO,CAACI,CAAD,CAAd,MAAsB,QAA1B,EAAoC;EACvC,YAAIJ,OAAO,CAACI,CAAD,CAAP,KAAenM,MAAM,OAAN,CAAW,GAAX,CAAnB,EAAoC;EAChC;EACAwM,UAAAA,IAAI,CAACL,CAAD,CAAJ,GAAUK,IAAI,CAACL,CAAD,CAAJ,IAAW,CAArB,CAFgC;;EAIhC,cAAI,CAAC,GAAD,EAAM,GAAN,EAAWzT,QAAX,CAAoBqL,KAAK,CAAC1E,CAAD,CAAzB,CAAJ,EAAmC;EAC/BmN,YAAAA,IAAI,CAACL,CAAD,CAAJ;EACH,WAFD,MAEO,IAAI,CAAC,GAAD,EAAM,GAAN,EAAWzT,QAAX,CAAoBqL,KAAK,CAAC1E,CAAD,CAAzB,CAAJ,EAAmC;EACtCmN,YAAAA,IAAI,CAACL,CAAD,CAAJ;EACH;;EACD,cAAK,OAAOJ,OAAO,CAACI,CAAC,GAAG,CAAL,CAAd,KAA0B,WAA1B,IACAK,IAAI,CAACL,CAAD,CAAJ,KAAY,CADZ,IACiBE,UAAU,OAAO,CAAC,CADpC,IAEAG,IAAI,CAACL,CAAD,CAAJ,GAAU,CAFd,EAEiB;EACb;EACH;EACJ,SAdD,macro,IAAIC,gBAAgB,EAApB,EAAwB;EAC3B,iBAAO,CAAC,CAAR;EACH;EACJ,OAlBM,MAkBA,IAAIL,OAAO,CAACI,CAAD,CAAP,YAAsBhK,KAA1B,EAAiC;EACpC,YAAIyK,GAAG,GAAGZ,WAAW,CAACD,OAAO,CAACI,CAAD,CAAR,EAAapI,KAAK,CAACzE,KAAN,CAAYD,CAAZ,CAAb,CAArB;;EACA,YAAIuN,GAAG,KAAK,CAAC,CAAT,IAAcA,GAAG,GAAGvN,CAAN,GAAU0E,KAAK,CAACpN,MAAlC,EAA0C;EACtC;EACA,iBAAO,CAAC,CAAR;EACH;;EACD0I,QAAAA,CAAC,IAAIuN,GAAG,GAAG,CAAX;EACAT,QAAAA,CAAC;EACD;EACH,OATM,MASA;EACH,eAAO,CAAC,CAAR;EACH;;EACDA,MAAAA,CAAC;EACJ;;EACD,QAAIJ,OAAO,CAACpV,MAAR,KAAmBwV,CAAvB,EAA0B;EACtB;EACA,aAAO,CAAC,CAAR;EACH;;EACD,WAAOpI,KAAK,CAACpN,MAAb;EACH;EACJ;EAED;EACA;EACA;EACA;EACA;;;EACA,SAASkW,SAAT,CAAmB5D,IAAnB,EAAyB;EACrB,OAAK6D,QAAL,GAAgB7D,IAAI,CAAC1Q,OAAL,CAAa,KAAb,EAAoB,EAApB,CAAhB;EACH;;;EAEDsU,SAAS,CAACE,QAAV,GAAqB;EACjBjI,EAAAA,MAAM,EAAE,CADS;EAEjBkI,EAAAA,MAAM,EAAE,CALVES;EAGjBC,EAAAA,UAAU,EAAE;EACRlQ,IAAAA,QAAQ,EAAE;EACN;EACA;EACA;EAHM,KADF;EAMRmQ,IAAAA,KAAK,EAAE;EACH,SAAG,CAAC,GAAD,EAAM,GAAN;EADA;EANC;EAHK,CAArB;EAcAL,SAAS,CAACxU,KAAV,GAAkBA,KAAlB;EAEA;EACA;;EACAwU,SAAS,CAACtP,SAAV,CAAoB4P,QAApB,GAA+B,SAASA,QAAT,CAAkB7U,OAAlB,EAA2B;EACtD,MAAIyU,QAAQ,GAAGF,SAAS,CAACE,QAAzB;;EACA,MAAI,OAAOzU,OAAP,KAAmB,WAAvB,EAAoC;EAChC,WAAOtB,MAAM,CAACoW,MAAP,CAAc,EAAd,EAAkBL,QAAlB,CAAP;EACH;;EACD,MAAIM,SAAS,GAAG/U,OAAO,IAAIA,OAAO,CAAC2U,UAAnB,IAAiC,EAAjD;EACA,MAAIlQ,QAAQ,GAAGsQ,SAAS,CAACtQ,QAAV,IAAsB,EAArC;EACA,MAAImQ,KAAK,GAAGG,SAAS,CAACH,KAAV,IAAmB;EAAE,OAAG;EAAL,GAA/B;EACA,uDACOH,QADP,GAEOzU,OAFP;EAGI2U,IAAAA,UAAU,EAAE;EACRlQ,MAAAA,QAAQ,+BAAMgQ,QAAQ,CAACE,UAAT,CAAoBlQ,QAA1B,sBAAuCA,QAAvC,EADA;EAERmQ,MAAAA,KAAK,kCACEA,KADF;EAED,wCAAOH,QAAQ,CAACE,UAAT,CAAoBC,KAApB,CAA0B,CAA1B,CAAP,sBAAwCA,KAAK,CAAC,CAAD,CAA7C;EAFC;EAFG;EAHhB;EAWH,CAnBD;;;EAqBAL,SAAS,CAACtP,SAAV,CAAoByP,MAApB,GAA6B,SAASA,MAAT,CAAgB1U,OAAhB,EAAyB;EAClD,MAAIqF,MAAM,GAAGmB,QAAQ,CAAC,KAAKgO,QAAN,EAAgB,IAAhB,CAArB;EACA,SAAO,KAAKQ,OAAL,CAAa3P,MAAb,EAAqBrF,OAArB,CAAP;EACH,CAHD;;;EAKAuU,SAAS,CAACU,eAAV,GAA4B,UAASxP,KAAT,EAAgByP,QAAhB,EAA0B;EAClD,WAASnV,KAAT,CAAeyH,IAAf,EAAqB;EACjB,QAAI,CAACA,IAAI,CAACnJ,MAAV,EAAkB;EACd,aAAO,KAAP;EACH;;EACD,QAAImJ,IAAI,CAAC2N,OAAL,CAAa1P,KAAb,MAAwB,CAAC,CAA7B,EAAgC;EAC5B,aAAO,IAAP;EACH,KAFD,MAEO;EACH,UAAI2P,OAAO,GAAG5N,IAAI,CAACd,MAAL,CAAY,UAAA2O,CAAC;EAAA,eAAIA,CAAC,YAAY7Y,MAAjB;EAAA,OAAb,CAAd;;EACA,UAAI,CAAC4Y,OAAO,CAAC/W,MAAb,EAAqB;EACjB,eAAO,KAAP;EACH;;EAJE,kDAKY+W,OALZ;EAAA;;EAAA;EAKH,+DAAwB;EAAA,cAAfhT,EAAe;;EACpB,cAAIqD,KAAK,CAAC1F,KAAN,CAAYqC,EAAZ,CAAJ,EAAqB;EACjB,mBAAO,IAAP;EACH;EACJ;EATE;EAAA;EAAA;EAAA;EAAA;EAUN;;EACD,WAAO,KAAP;EACH;;EACD,MAAIrC,KAAK,CAACmV,QAAQ,CAACP,UAAT,CAAoBlQ,QAArB,CAAT,EAAyC;EACrC,WAAOyQ,QAAQ,CAACR,MAAhB;EACH;;EACD,MAAIE,KAAK,GAAGM,QAAQ,CAACP,UAAT,CAAoBC,KAAhC;;EACA,sCAA6BlW,MAAM,CAAC4W,OAAP,CAAeV,KAAf,CAA7B,uCAAoD;EAA/C;EAAA,QAAKF,MAAL;EAAA,QAAarP,MAAb;;EACD,QAAItF,KAAK,CAACsF,MAAD,CAAT,EAAmB;each,aAAO,CAACqP,MAAR;EACH;EACJ;;EACD,SAAO,CAAC,CAAR;EACH,CA9BD;;;EAgCAH,SAAS,CAACtP,SAAV,CAAoB+P,OAApB,GAA8B,SAASA,OAAT,CAAiB3P,MAAjB,EAAyBrF,OAAzB,EAAkC;EAC5D,MAAIkV,QAAQ,GAAG,KAAKL,QAAL,CAAc7U,OAAd,CAAf;;EACA,MAAIuV,MAAM,GAAG/B,UAAU,CAACnO,MAAD,CAAvB;EACA,MAAIiO,IAAI,GAAGD,YAAY,CAAChO,MAAD,CAAvB,CAH4D;;EAK5D,MAAImQ,YAAY,GAAGnQ,MAAM,CAACA,MAAM,CAAChH,MAAP,GAAgBiV,IAAI,CAACjV,MAArB,GAA8B,CAA/B,CAAzB;EACA,MAAIoX,IAAI,GAAGpQ,MAAM,CAACA,MAAM,CAAChH,MAAP,GAAgB,CAAjB,CAAjB;;EACA,MAAIoX,IAAI,CAAChQ,KAAL,CAAW1F,KAAX,CAAiB,gBAAjB,CAAJ,EAAwC;EACpC,WAAOwV,MAAM,GAAGL,QAAQ,CAACR,MAAzB;EACH;;EACD,MAAIpB,IAAI,IAAIA,IAAI,CAACjV,MAAjB,EAAyB;EACrB,QAAIiV,IAAI,CAAC,CAAD,CAAJ,CAAQ/G,IAAR,GAAe,CAAnB,EAAsB;EAClB2I,MAAAA,QAAQ,CAAC1I,MAAT,GAAkB,CAAlB;EACH;;EACD,QAAI8G,IAAI,CAAC5Z,QAAL,OAAoB2L,MAAM,CAAC3L,QAAP,EAApB,IAAyCgc,QAAQ,CAACpC,IAAD,CAArD,EAA6D;EACzD,aAAO4B,QAAQ,CAAC1I,MAAT,GAAkB8G,IAAI,CAAC,CAAD,CAAJ,CAAQtN,GAAjC;EACH,KAFD,MAEO,IAAIsN,IAAI,CAACjV,MAAL,KAAgB,CAApB,EAAuB;EAC1B,aAAO6W,QAAQ,CAAC1I,MAAT,GAAkB8G,IAAI,CAAC,CAAD,CAAJ,CAAQtN,GAA1B,GAAgC,CAAvC;EACH,KAFM,MAEA;EACH;EACA,UAAI2P,QAAQ,GAAG,CAAC,CAAhB;;EACA,UAAIH,YAAJ,EAAkB;EACd,YAAIZ,KAAK,GAAGL,SAAS,CAACU,eAAV,CAA0BO,YAAY,CAAC/P,KAAvC,EAA8CyP,QAA9C,CAAZ;;EACA,YAAIN,KAAK,KAAK,CAAC,CAAf,EAAkB;EACde,UAAAA,QAAQ,GAAGf,KAAX;EACH;EACJ;;EACD,UAAIe,QAAQ,KAAK,CAAC,CAAlB,EAAqB;EACjBA,QAAAA,QAAQ,GAAGpB,SAAS,CAACU,eAAV,CAA0B3B,IAAI,CAAC,CAAD,CAAJ,CAAQ7N,KAAlC,EAAyCyP,QAAzC,CAAX;EACH;;EACD,UAAIS,QAAQ,KAAK,CAAC,CAAlB,EAAqB;EACjB,eAAOT,QAAQ,CAAC1I,MAAT,GAAkB8G,IAAI,CAAC,CAAD,CAAJ,CAAQtN,GAA1B,GAAgC2P,QAAvC;EACH,OAFD,MAEO,IAAIrC,IAAI,CAAC,CAAD,CAAJ,CAAQ/G,IAAR,GAAe+G,IAAI,CAAC,CAAD,CAAJ,CAAQ/G,IAA3B,EAAiC;EACpC,eAAO2I,QAAQ,CAAC1I,MAAT,GAAkB8G,IAAI,CAAC,CAAD,CAAJ,CAAQtN,GAA1B,GAAgC,CAAvC;EACH,OAFM,MAEA,IAAIsN,IAAI,CAACjV,MAAL,GAAc,CAAd,IAAmBiV,IAAI,CAAC,CAAD,CAAJ,CAAQ/G,IAAR,KAAiB+G,IAAI,CAAC,CAAD,CAAJ,CAAQ/G,IAAhD,EAAsD;EACzD,YAAI+G,IAAI,CAAC,CAAD,CAAJ,CAAQ7N,KAAR,KAAkB,GAAlB,IAAyB6N,IAAI,CAAC,CAAD,CAAJ,CAAQ7N,KAAR,KAAkB,GAA/C,EAAoD;EAChD,iBAAOyP,QAAQ,CAAC1I,MAAT,GAAkB8G,IAAI,CAAC,CAAD,CAAJ,CAAQtN,GAAjC;EACH;;EACD,eAAOkP,QAAQ,CAAC1I,MAAT,GAAkB8G,IAAI,CAAC,CAAD,CAAJ,CAAQtN,GAAjC;EACH,OALM,MAKE,IAAIsN,IAAI,CAAC,CAAD,CAAJ,CAAQ/G,IAAR,KAAiB+G,IAAI,CAAC,CAAD,CAAJ,CAAQ/G,IAA7B,EAAmC;EACtC,eAAO2I,QAAQ,CAAC1I,MAAT,GAAkB0I,QAAQ,CAACR,MAA3B,GAAoCpB,IAAI,CAAC,CAAD,CAAJ,CAAQtN,GAAnD;EACH,OAFM,MAEA;EACH,YAAI4P,WAAW,GAAGtC,IAAI,CAACtM,KAAL,CAAW,CAAX,CAAlB;;EACA,aAAK,IAAID,CAAC,GAAG,CAAb,EAAgBA,CAAC,GAAG6O,WAAW,CAACvX,MAAhC,EAAwC,EAAE0I,CAA1C,EAA6C;EACzC,cAAItB,KAAK,GAAGmQ,WAAW,CAAC7O,CAAD,CAAvB;;EACA,cAAItB,KAAK,CAACA,KAAN,CAAYgB,IAAZ,EAAJ,EAAwB;EACpB,mBAAOhB,KAAK,CAACO,GAAb;EACH;EACJ;EACJ;EACJ;EACJ,GAzCD,MAyCO;EACH,WAAO,CAAP;EACH;;EACD,SAAOuP,MAAM,GAAGL,QAAQ,CAACR,MAAzB;EACH,CAvDD;;;EAyDA,SAASmB,KAAT,CAAepC,OAAf,EAAwB;EACpB,OAAKA,OAAL,GAAeA,OAAf;EACH;;;EAEDoC,KAAK,CAAC5Q,SAAN,CAAgBvL,QAAhB,GAA2B,YAAW;EAClC,6BAAoB,KAAK+Z,OAAzB;EACH,CAFD;;;EAIAoC,KAAK,CAAC5Q,SAAN,CAAgBlF,KAAhB,GAAwB,UAAS7B,MAAT,EAAiB;EACrC,SAAOA,MAAM,CAAC6B,KAAP,CAAa,KAAK0T,OAAlB,CAAP;EACH,CAFD;EAIA;EACA;EACA;;;EACA,SAASU,OAAT,GAA0B;EAAA,qCAAN/N,IAAM;EAANA,IAAAA,IAAM;EAAA;;EACtB,MAAIgO,IAAI,GAAGhO,IAAI,CAACjB,GAAL,EAAX;EACA,OAAKyO,QAAL,GAAgBxN,IAAhB;EACA,OAAKgO,IAAL,GAAYA,IAAZ;EACH;;EACDD,OAAO,CAAClP,SAAR,CAAkBvL,QAAlB,GAA6B,YAAW;EACpC,MAAIka,QAAQ,GAAG,KAAKA,QAAL,CAAc3U,GAAd,CAAkB,UAAAlD,CAAC;EAAA,WAAIrC,QAAQ,CAACqC,CAAD,CAAZ;EAAA,GAAnB,EAAoC6C,IAApC,CAAyC,GAAzC,CAAf;EACA,6BAAoBgV,QAApB,cAAgC,KAAKQ,IAArC;EACH,CAHD;;;EAKAG,SAAS,CAACJ,OAAV,GAAoBA,OAApB;EACAI,SAAS,CAACsB,KAAV,GAAkBA,KAAlB;EACA,IAAIC,GAAG,GAAG,QAAV;EACA,IAAIC,GAAG,GAAG,SAAV;EACA,IAAIC,KAAK,GAAG,UAAZ;EACA,IAAMC,SAAS,GAAG,IAAIJ,KAAJ,CAAU,QAAV,CAAlB;;EAEA,IAAM3B,IAAI,GAAGxM,MAAM,OAAN,CAAW,GAAX,CAAb;EACA,IAAMwO,YAAY,GAAG,IAAI/B,OAAJ,CAAY,CAAC2B,GAAD,EAAM5B,IAAN,EAAY6B,GAAZ,CAAZ,EAA8B,CAACC,KAAD,CAA9B,EAAuC,GAAvC,CAArB;EACA,IAAM1C,IAAI,GAAG,IAAIa,OAAJ,CAAY,CAAC2B,GAAD,EAAM5B,IAAN,EAAY6B,GAAZ,CAAZ,EAA8B,GAA9B,CAAb;EACA,IAAMlO,MAAM,GAAG,IAAIsM,OAAJ,CAAY,CAACzM,MAAM,OAAN,CAAW,QAAX,CAAD,CAAZ,EAAoC,GAApC,CAAf;EACA,IAAMyO,OAAO,GAAG,IAAIhC,OAAJ,CAAY,CAACzM,MAAM,OAAN,CAAW,QAAX,CAAD,CAAZ,EAAoC,GAApC,CAAhB;EACA,IAAM0O,WAAW,GAAG,CAACN,GAAD,EAAMK,OAAN,EAAeJ,GAAf,CAApB;EACA,IAAMM,SAAS,GAAG,IAAIlC,OAAJ,CAAY,CAAC2B,GAAD,EAAMpO,MAAM,OAAN,CAAW,QAAX,CAAN,EAA4BwM,IAA5B,EAAkC6B,GAAlC,CAAZ,EAAoD,GAApD,CAAlB;;EAEA,IAAIO,aAAa,GAAGC,WAAW,CAAC,QAAD,EAAW,QAAX,EAAqB,cAArB,EAAqC,cAArC,CAA/B;EACA;;EACA,IAAIC,OAAO,GAAG,8FAAd;EACA;;EACA,IAAIC,MAAM,GAAG,wCAAb;;EAEA,SAASF,WAAT,GAA8B;EAAA,qCAANnQ,IAAM;EAANA,IAAAA,IAAM;EAAA;;EAC1B,SAAO,IAAI5J,MAAJ,sBAAyB4J,IAAI,CAACxH,IAAL,CAAU,GAAV,CAAzB,QAAP;EACH;;;EAED2V,SAAS,CAAC5G,KAAV,GAAkB,CACd,CAAC,CAAC2F,IAAD,CAAD,EAAS,CAAT,EAAY2C,SAAZ,CADc,EAEd,CAAC,CAACH,GAAD,EAAMS,WAAW,CAAC,OAAD,EAAU,aAAV,CAAjB,CAAD,EAA6C,CAA7C,CAFc,EAGd,CAAC,CAACT,GAAD,EAAMW,MAAN,EAAc5O,MAAd,EAAsBiO,GAAtB,EAA2BO,SAA3B,EAAsCN,GAAtC,CAAD,EAA6C,CAA7C,cache,EAId,CAAC,CAACD,GAAD,EAAMW,MAAN,EAAc5O,MAAd,EAAsBqO,YAAtB,CAAD,EAAsC,CAAtC,EAAyCD,SAAzC,CAJc,EAKd,CAAC,CAACH,GAAD,EAAMW,MAAN,EAAcX,GAAd,EAAmBO,SAAnB,CAAD,EAAgC,CAAhC,EAAmCJ,SAAnC,CALc;EAOd,CAAC,CAACH,GAAD,EAAMU,OAAN,EAAe,IAAIrC,OAAJ,CAAY,CAAC,UAAD,CAAZ,EAA0B,GAA1B,CAAf,EAA+Cb,IAA/C,CAAD,EAAuD,CAAvD,EAA0D2C,SAA1D,CAPc,EAQd,CAAC,CAACH,GAAD,EAAMxC,IAAN,CAAD,EAAc,CAAd,EAAiB2C,SAAjB,CARc,EASd,CAAC,CAACH,GAAD,EAAME,KAAN,EAAa1C,IAAb,CAAD,EAAqB,CAArB,EAAwB2C,SAAxB,CATc,EAUd,CAAC,CAACH,GAAD,EAAMS,WAAW,CAAC,QAAD,EAAW,IAAX,CAAjB,EAAmCP,KAAnC,CAAD,EAA4C,CAA5C,EAA+CC,SAA/C,CAVc,EAWd,CAAC,CAACH,GAAD,EAAMS,WAAW,CAAC,OAAD,CAAjB,EAA4BP,KAA5B,EAAmC1C,IAAnC,CAAD,EAA2C,CAA3C,EAA8C2C,SAA9C,CAXc,EAYd,CAAC,CAACH,GAAD,EAAMS,WAAW,CAAC,IAAD,CAAjB,EAAyBP,KAAzB,EAAgC9B,IAAhC,CAAD,EAAwC,CAAxC,CAZc,EAad,CAAC,CAAC4B,GAAD,EAAMQ,aAAN,EAAqBF,WAArB,CAAD,EAAoC,CAApC,EAAuCH,SAAvC,CAbc,EAcd,CAAC,CAACH,GAAD,EAAMQ,aAAN,EAAqBF,WAArB,EAAkCxR,SAAlC,CAAD,EAA+C,CAA/C,EAAkDqR,SAAlD,CAdc,EAed,CAAC,CAACH,GAAD,EAAMQ,aAAN,EAAqBF,WAArB,EAAkCxR,SAAlC,EAA6C0O,IAA7C,CAAD,EAAqD,CAArD,EAAwD2C,SAAxD,CAfc,EAgBd,CAAC,CAACH,GAAD,EAAMQ,aAAN,EAAqBF,WAArB,EAAkC9C,IAAlC,CAAD,EAA0C,CAA1C,EAA6C2C,SAA7C,CAhBc,CAAlB;;EAmBA1B,SAAS,CAACtP,SAAV,YAA4B,YAAW;EACnC,MAAI0L,IAAI,GAAG,KAAK6D,QAAL,CAAcvU,OAAd,CAAsB,WAAtB,EAAmC,KAAnC,EAA0CA,OAA1C,CAAkD,MAAlD,EAA0D,EAA1D,CAAX,CADmC;;;EAGnC,MAAMwF,KAAK,GAAG,SAARA,KAAQ,CAAAzB,CAAC,EAAI;each,QAAIA,CAAC,CAACyB,KAAF,CAAQ1F,KAAR,CAAc6E,SAAd,KAA4BZ,CAAC,CAACyB,KAAF,CAAQ1F,KAAR,CAAc1C,KAAd,CAAhC,EAAsD;EAClD,aAAO2G,CAAC,CAACyB,KAAT;EACH,KAFD,MAEO;EACH,aAAOzB,CAAC,CAACyB,KAAF,CAAQxF,OAAR,CAAgB,KAAhB,EAAuB,GAAvB,CAAP;EACH;EACJ,GAND;;EAOA,MAAMyW,iBAAiB,GAAG,SAApBA,iBAAoB,CAAArR,MAAM,EAAI;EAChC,SAAK,IAAI0B,CAAC,GAAG1B,MAAM,CAAChH,MAApB,EAA4B0I,CAAC,EAA7B,GAAkC;EAC9B,UAAMtB,MAAK,GAAGJ,MAAM,CAAC0B,CAAD,CAApB;;EACA,UAAItB,MAAK,CAACgB,IAAN,MAAgB,CAACyE,UAAU,CAACzF,MAAD,CAA/B,EAAwC;EACpC,eAAOJ,MAAM,CAAChH,MAAP,GAAgB0I,CAAhB,GAAoB,CAA3B;EACH;EACJ;EACJ,GAPD,CAVmC;EAmBnC;;;EACA,MAAI1B,MAAM,GAAGmB,QAAQ,CAACmK,IAAD,EAAO,IAAP,CAAR,CAAqB1R,GAArB,CAAyBwG,KAAzB,EAAgCiB,MAAhC,CAAuC,UAAA1C,CAAC;EAAA,WAAIA,CAAC,KAAK,IAAV;EAAA,GAAxC,CAAb;EACA,MAAQ2J,KAAR,GAAkB4G,SAAlB,CAAQ5G,KAAR;;EACA4F,EAAAA,KAAK,EAAE,KAAK,IAAIxM,CAAC,GAAG,CAAb,EAAgBA,CAAC,GAAG1B,MAAM,CAAChH,MAA3B,EAAmC,EAAE0I,CAArC,EAAwC;EAC3C,QAAI,CAAC1B,MAAM,CAAC0B,CAAD,CAAN,CAAUN,IAAV,EAAL,EAAuB;EACnB;EACH;;EACD,QAAIkQ,GAAG,GAAGtR,MAAM,CAAC2B,KAAP,CAAa,CAAb,EAAgBD,CAAhB,CAAV;EACA,QAAIuM,IAAI,GAAG,EAAX;EACA3F,IAAAA,KAAK,CAAC1O,GAAN,CAAU,UAAAmQ,CAAC;EAAA,aAAIA,CAAC,CAAC,CAAD,CAAL;EAAA,KAAX,EAAqBtR,OAArB,CAA6B,UAAAuK,KAAK,EAAI;EAClCA,MAAAA,KAAK,GAAGA,KAAK,CAACvH,OAAN,EAAR,CADkC;EAGlC;;EACA,UAAIuH,KAAK,GAAG,CAAR,IAAa,CAACiL,IAAI,CAACjL,KAAD,CAAtB,EAA+B;EAC3BiL,QAAAA,IAAI,CAACjL,KAAD,CAAJ,GAAcgL,YAAY,CAACsD,GAAD,EAAMtO,KAAN,CAA1B;EACH;EACJ,KAPD;;EAN2C,gDAcTsF,KAdS;EAAA;;EAAA;EAc3C,6DAAyC;EAAA;EAAA,YAA/B8F,OAA+B;EAAA,YAAtBpL,KAAsB;EAAA,YAAfuO,GAAe;;EACrCvO,QAAAA,KAAK,GAAGA,KAAK,CAACvH,OAAN,EAAR,CADqC;;EAGrC,YAAI+V,SAAS,GAAGxO,KAAK,GAAG,CAAR,GAAYiL,IAAI,CAACjL,KAAD,CAAhB,GAA0BsO,GAA1C;EACA,YAAMlL,KAAK,GAAGoL,SAAS,CAACnQ,MAAV,CAAiB,UAAA1C,CAAC;EAAA,iBAAIA,CAAC,CAACyC,IAAF,MAAY,CAACyE,UAAU,CAAClH,CAAD,CAA3B;EAAA,SAAlB,CAAd;EACA,YAAMsQ,GAAG,GAAGoC,iBAAiB,CAACG,SAAD,CAA7B;EACA,YAAI3X,CAAC,GAAGa,KAAK,CAAC0T,OAAD,EAAUhI,KAAV,CAAb;EACA,YAAIqL,IAAI,GAAGzR,MAAM,CAAC2B,KAAP,CAAaD,CAAb,EAAgB0L,IAAhB,CAAqB,UAAAzO,CAAC;EAAA,iBAAIA,CAAC,CAACyC,IAAF,MAAY,CAACyE,UAAU,CAAClH,CAAD,CAA3B;EAAA,SAAtB,CAAX;;EACA,YAAI9E,CAAC,KAAK0X,GAAG,YAAYf,KAAf,IAAwBe,GAAG,CAAC7W,KAAJ,CAAU+W,IAAV,CAAxB,IAA2C,CAACF,GAAjD,CAAL,EAA4D;EACxD,cAAMG,KAAK,GAAGhQ,CAAC,GAAGuN,GAAlB;;EACA,cAAIjP,MAAM,CAAC0R,KAAD,CAAN,KAAkB,IAAtB,EAA4B;EACxB,gBAAI,CAAC1R,MAAM,CAAC0R,KAAD,CAAN,CAActQ,IAAd,EAAL,EAA2B;EACvBpB,cAAAA,MAAM,CAAC0R,KAAD,CAAN,GAAgB,IAAhB;EACH,aAFD,MAEO;EACH1R,cAAAA,MAAM,CAAC+B,MAAP,CAAc2P,KAAd,EAAqB,CAArB,EAAwB,IAAxB;EACAhQ,cAAAA,CAAC;EACJ;EACJ;;EACDA,UAAAA,CAAC,IAAIuN,GAAL;EACA,mBAASf,KAAT;EACH;EACJ;EAnC0C;EAAA;EAAA;EAAA;EAAA;EAoC9C;;EACD,OAAKiB,QAAL,GAAgBnP,MAAM,CAACzG,IAAP,CAAY,EAAZ,CAAhB;EACA,SAAO,IAAP;EACH,CA7DD;;;EA+DA2V,SAAS,CAACtP,SAAV,CAAoB+R,OAApB,GAA8B,UAASjQ,CAAT,EAAY;EACtC,SAAO,IAAI8C,KAAJ,CAAU9C,CAAC,GAAG,CAAd,EAAiBnI,IAAjB,CAAsB,GAAtB,CAAP;EACH,CAFD;EAIA;EACA;;;EACA2V,SAAS,CAACtP,SAAV,CAAoBgS,MAApB,GAA6B,SAASA,MAAT,CAAgBjX,OAAhB,EAAyB;EAClD;EACA;EACA,MAAI2Q,IAAI,GAAG,KAAK6D,QAAL,CAAcvU,OAAd,CAAsB,iBAAtB,EAAyC,KAAzC,CAAX;;EACA,MAAIoF,MAAM,GAAGmB,QAAQ,CAACmK,IAAD,EAAO,IAAP,CAArB;;EACA,MAAIuE,QAAQ,GAAG,KAAKL,QAAL,CAAc7U,OAAd,CAAf;;EACA,MAAI0U,MAAM,GAAG,CAAb;EACA,MAAIlI,MAAM,GAAG,CAAb;;EACA,OAAK,IAAIzF,CAAC,GAAG,CAAb,EAAgBA,CAAC,GAAG1B,MAAM,CAAChH,MAA3B,EAAmC,EAAE0I,CAArC,EAAwC;EACpC,QAAItB,KAAK,GAAGJ,MAAM,CAAC0B,CAAD,CAAlB;;EACA,QAAItB,KAAK,CAACA,KAAN,KAAgB,IAApB,EAA0B;EACtBiP,MAAAA,MAAM,GAAG,KAAKM,OAAL,CAAa3P,MAAM,CAAC2B,KAAP,CAAa,CAAb,EAAgBD,CAAhB,CAAb,EAAiCmO,QAAjC,CAAT;EACA1I,MAAAA,MAAM,IAAIkI,MAAV;;EACA,UAAIrP,MAAM,CAAC0B,CAAC,GAAG,CAAL,CAAV,EAAmB;EACf1B,QAAAA,MAAM,CAAC0B,CAAC,GAAG,CAAL,CAAN,CAActB,KAAd,GAAsB,KAAKuR,OAAL,CAAatC,MAAb,CAAtB,CADe;;EAGfA,QAAAA,MAAM;EACNlI,QAAAA,MAAM;;EACN,aAAK,IAAI0K,CAAC,GAAGnQ,CAAC,GAAG,CAAjB,EAAoBmQ,CAAC,GAAG7R,MAAM,CAAChH,MAA/B,EAAuC,EAAE6Y,CAAzC,EAA4C;EACxC7R,UAAAA,MAAM,CAAC6R,CAAD,CAAN,CAAU1K,MAAV,IAAoBA,MAApB;EACAnH,UAAAA,MAAM,CAAC6R,CAAD,CAAN,CAAUlR,GAAV,IAAiB0O,MAAjB;;EACA,cAAIrP,MAAM,CAAC6R,CAAD,CAAN,CAAUzR,KAAV,KAAoB,IAAxB,EAA8B;EAC1B;EACAsB,YAAAA,CAAC,GAAGmQ,CAAC,GAAG,CAAR;EACA;EACH;EACJ;EACJ;EACJ;EACJ;;EACD,SAAO7R,MAAM,CAACpG,GAAP,CAAW,UAAAwG,KAAK,EAAI;EACvB,QAAIA,KAAK,CAACA,KAAN,CAAY1F,KAAZ,CAAkB6E,SAAlB,CAAJ,EAAkC;EAC9B,UAAIa,KAAK,CAACA,KAAN,CAAY1F,KAAZ,CAAkB,IAAlB,CAAJ,EAA6B;EACzB,YAAIwV,MAAM,GAAG,IAAI1L,KAAJ,CAAUpE,KAAK,CAACO,GAAN,GAAY,CAAtB,EAAyBpH,IAAzB,CAA8B,GAA9B,CAAb;EACA,YAAIuY,KAAK,GAAG1R,KAAK,CAACA,KAAN,CAAYtF,KAAZ,CAAkB,IAAlB,CAAZ;EACAsF,QAAAA,KAAK,CAACA,KAAN,GAAc,CAAC0R,KAAK,CAAC,CAAD,CAAN,EAAWlJ,MAAX,CAAkBkJ,KAAK,CAACnQ,KAAN,CAAY,CAAZ,EAAe/H,GAAf,CAAmB,UAAAsN,IAAI,EAAI;EACvD,iBAAOgJ,MAAM,GAAGhJ,IAAhB;EACH,SAF+B,CAAlB,EAEV3N,IAFU,CAEL,IAFK,CAAd;EAGH;EACJ;;EACD,WAAO6G,KAAK,CAACA,KAAb;EACH,GAXM,EAWJ7G,IAXI,CAWC,EAXD,CAAP;EAYH,CA1CD;EA4CA;EACA;EACA;;;EACA,SAASwY,OAAT,CAAiBjN,KAAjB,EAAwBkN,OAAxB,EAAiC;EAC7B,MAAI3d,QAAQ,GAAGgF,MAAM,CAACuG,SAAP,CAAiBvL,QAAhC;EACA,MAAI4d,YAAY,GAAG,gBAAnB;EAEA,MAAIzZ,MAAM,GAAG,EAAb;EACA,MAAI0Z,KAAK,GAAIF,OAAO,IAAIlN,KAAZ,IAAsBA,KAAK,CAACnD,KAAN,EAAlC;EACA,MAAIwQ,IAAJ;;EAEA,MAAI,CAACrN,KAAK,CAAC9L,MAAX,EAAmB;each,WAAOR,MAAP;EACH;;EAED2Z,EAAAA,IAAI,GAAGD,KAAK,CAACpS,GAAN,EAAP;;EAEA,KAAG;EACC,QAAIzL,QAAQ,CAAC+B,IAAT,CAAc+b,IAAd,MAAwBF,YAA5B,EAA0C;EACtCC,MAAAA,KAAK,CAAC/Y,IAAN,CAAW8H,KAAX,CAAiBiR,KAAjB,EAAwBC,IAAxB;EACH,KAFD,MAEO;EACH3Z,MAAAA,MAAM,CAACW,IAAP,CAAYgZ,IAAZ;EACH;EACJ,GAND,QAMSD,KAAK,CAAClZ,MAAN,IAAgB,CAACmZ,IAAI,GAAGD,KAAK,CAACpS,GAAN,EAAR,MAAyB7L,SANlD;;EAQAuE,EAAAA,MAAM,CAACoJ,OAAP,GAtB6B;;EAuB7B,SAAOpJ,MAAP;EACH;EAED;EACA;;;EACA,SAAS4Z,GAAT,GAAe;;EACfA,GAAG,CAACxS,SAAJ,CAAcvL,QAAd,GAAyB,YAAW;EAChC,SAAO,IAAP;EACH,CAFD;;EAGA+d,GAAG,CAACxS,SAAJ,CAAcnE,OAAd,GAAwB,YAAW;EAC/B,SAAOxH,SAAP;EACH,CAFD;;EAGAme,GAAG,CAACxS,SAAJ,CAAcgD,SAAd,GAA0B,YAAW;EACjC,SAAO,CAAP;EACH,CAFD;;EAGAwP,GAAG,CAACxS,SAAJ,CAAcyS,SAAd,GAA0B,YAAW;EACjC,SAAO,EAAP;EACH,CAFD;;EAGAD,GAAG,CAACxS,SAAJ,CAAc+F,MAAd,GAAuB,UAASjP,CAAT,EAAY;EAC/B,SAAO,IAAI0U,IAAJ,CAAS1U,CAAT,EAAYsU,IAAZ,CAAP;EACH,CAFD;;EAGAoH,GAAG,CAACxS,SAAJ,CAAcuM,QAAd,GAAyB,YAAW;EAChC,SAAO,EAAP;EACH,CAFD;;EAGA,IAAInB,IAAG,GAAG,IAAIoH,GAAJ,EAAV;EAEA;EACA;;;EACA,SAAShH,IAAT,CAAcY,GAAd,EAAmBb,GAAnB,EAAwB;EACpB,MAAI,OAAO,IAAP,KAAgB,WAAhB,IAA+B,KAAKjJ,WAAL,KAAqBkJ,IAApD,IACA,OAAO,IAAP,KAAgB,WADpB,EACiC;EAC7B,WAAO,IAAIA,IAAJ,CAASY,GAAT,EAAcb,GAAd,CAAP;EACH;;EACD,OAAKa,GAAL,GAAWA,GAAX;EACA,OAAKb,GAAL,GAAWA,GAAX;EACH;;;EAED,SAASgB,QAAT,CAAkBlK,IAAlB,EAAwBqQ,IAAxB,EAA8B;EAC1B,SAAO,SAASC,KAAT,CAAepQ,IAAf,EAAqB;EACxBqQ,IAAAA,SAAS,CAACvQ,IAAD,EAAOE,IAAP,EAAa,CAAC,MAAD,EAAS,KAAT,CAAb,CAAT;;EACA,QAAIA,IAAI,KAAK6I,IAAb,EAAkB;EACd,aAAO,EAAP;EACH;;EACD,QAAIxS,MAAM,GAAG,EAAb;EACA,QAAI2Z,IAAI,GAAGhQ,IAAX;;EACA,WAAO,IAAP,EAAa;EACT,UAAIgQ,IAAI,YAAY/G,IAApB,EAA0B;EACtB,YAAI+G,IAAI,CAACM,UAAL,CAAgB,KAAhB,CAAJ,EAA4B;EACxB;EACH;;EACD,YAAIzG,GAAG,GAAGmG,IAAI,CAACnG,GAAf;;EACA,YAAIsG,IAAI,IAAItG,GAAG,YAAYZ,IAA3B,EAAiC;EAC7BY,UAAAA,GAAG,GAAG,KAAK9U,GAAL,CAAS+K,IAAT,EAAe7L,IAAf,CAAoB,IAApB,EAA0B4V,GAA1B,CAAN;EACH;;EACDxT,QAAAA,MAAM,CAACW,IAAP,CAAY6S,GAAZ;EACAmG,QAAAA,IAAI,GAAGA,IAAI,CAAChH,GAAZ;EACH,OAVD,MAUO,IAAIgH,IAAI,KAAKnH,IAAb,EAAkB;EACrB;EACH,OAFM,MAEA;EACH,cAAM,IAAI7O,KAAJ,WAAa8F,IAAb,mCAAN;EACH;EACJ;;EACD,WAAOzJ,MAAP;EACH,GAzBD;EA0BH;;;EAED4S,IAAI,CAACxL,SAAL,CAAemS,OAAf,GAAyB,YAAW;EAChC,SAAO3G,IAAI,CAACkB,SAAL,CAAeyF,OAAO,CAAC,KAAK5F,QAAL,EAAD,CAAtB,CAAP;EACH,CAFD;;;EAIAf,IAAI,CAACxL,SAAL,CAAe5G,MAAf,GAAwB,YAAW;EAC/B,MAAIwO,GAAG,GAAG,CAAV;EACA,MAAI2K,IAAI,GAAG,IAAX;;EACA,SAAO,IAAP,EAAa;EACT,QAAI,CAACA,IAAD,IAASA,IAAI,KAAKnH,IAAlB,IAAyB,EAAEmH,IAAI,YAAY/G,IAAlB,CAAzB,IACA+G,IAAI,CAACM,UAAL,CAAgB,KAAhB,CADJ,EAC4B;EACxB;EACH;;EACDjL,IAAAA,GAAG;EACH2K,IAAAA,IAAI,GAAGA,IAAI,CAAChH,GAAZ;EACH;;EACD,SAAO3D,GAAP;EACH,CAZD;;;EAcA4D,IAAI,CAAC1Q,KAAL,GAAa,UAASoI,GAAT,EAAcjD,IAAd,EAAoB;EAC7B,MAAIiD,GAAG,YAAY/D,OAAnB,EAA4B;EACxB,WAAOA,OAAO,CAACwD,EAAR,CAAWO,GAAX,EAAgBjD,IAAhB,CAAP;EACH,GAFD,MAEO,IAAIiD,GAAG,YAAYsI,IAAnB,EAAyB;EAC5B,WAAOA,IAAI,CAAC1Q,KAAL,CAAWoI,GAAG,CAACkJ,GAAf,EAAoBnM,IAApB,KAA6BuL,IAAI,CAAC1Q,KAAL,CAAWoI,GAAG,CAACqI,GAAf,EAAoBtL,IAApB,CAApC;EACH,GAFM,MAEA,IAAI2E,KAAK,CAACC,OAAN,CAAc3B,GAAd,CAAJ,EAAwB;EAC3B,WAAOA,GAAG,CAAC4P,IAAJ,CAAS,UAAAhc,CAAC,EAAI;EACjB,aAAO0U,IAAI,CAAC1Q,KAAL,CAAWhE,CAAX,EAAcmJ,IAAd,CAAP;EACH,KAFM,CAAP;EAGH,GAJM,MAIA,IAAI+L,eAAe,CAAC9I,GAAD,CAAnB,EAA0B;EAC7B,WAAOzJ,MAAM,CAACkU,MAAP,CAAczK,GAAd,EAAmB4P,IAAnB,CAAwB,UAAAhc,CAAC,EAAI;EAChC,aAAO0U,IAAI,CAAC1Q,KAAL,CAAWhE,CAAX,EAAcmJ,IAAd,CAAP;EACH,KAFM,CAAP;EAGH;;EACD,SAAO,KAAP;EACH,CAfD;;;EAiBAuL,IAAI,CAACxL,SAAL,CAAewN,IAAf,GAAsB,UAASvN,IAAT,EAAe;EACjC,SAAOuL,IAAI,CAAC1Q,KAAL,CAAW,IAAX,EAAiBmF,IAAjB,CAAP;EACH,CAFD;;;EAKAuL,IAAI,CAACxL,SAAL,CAAe+S,KAAf,GAAuB,YAAsB;EAAA,MAAbL,IAAa,uEAAN,IAAM;EACzC,MAAIM,OAAO,GAAG,IAAIC,GAAJ,EAAd;;EACA,WAASF,KAAT,CAAeR,IAAf,EAAqB;EACjB,QAAIA,IAAI,YAAY/G,IAApB,EAA0B;EACtB,UAAIwH,OAAO,CAACE,GAAR,CAAYX,IAAZ,CAAJ,EAAuB;EACnB,eAAOS,OAAO,CAAC1b,GAAR,CAAYib,IAAZ,CAAP;EACH;;EACD,UAAIpG,IAAI,GAAG,IAAIX,IAAJ,EAAX;EACAwH,MAAAA,OAAO,CAACrM,GAAR,CAAY4L,IAAZ,EAAkBpG,IAAlB;;EACA,UAAIuG,IAAJ,EAAU;EACNvG,QAAAA,IAAI,CAACC,GAAL,GAAW2G,KAAK,CAACR,IAAI,CAACnG,GAAN,CAAhB;EACH,OAFD,MAEO;EACHD,QAAAA,IAAI,CAACC,GAAL,GAAWmG,IAAI,CAACnG,GAAhB;EACH;;EACDD,MAAAA,IAAI,CAACZ,GAAL,GAAWwH,KAAK,CAACR,IAAI,CAAChH,GAAN,CAAhB;EACAY,MAAAA,IAAI,CAACgH,UAAD,CAAJ,GAAmBZ,IAAI,CAACY,UAAD,CAAvB;EACA,aAAOhH,IAAP;EACH;;EACD,WAAOoG,IAAP;EACH;;EACD,SAAOQ,KAAK,CAAC,IAAD,CAAZ;EACH,CArBD;;;EAwBAvH,IAAI,CAACxL,SAAL,CAAeoT,SAAf,GAA2B,YAAW;EAClC,MAAIb,IAAI,GAAG,IAAX;;EACA,SAAO,IAAP,EAAa;EACT,QAAIA,IAAI,CAAChH,GAAL,KAAaH,IAAjB,EAAsB;EAClB,aAAOmH,IAAP;EACH;;EACDA,IAAAA,IAAI,GAAGA,IAAI,CAAChH,GAAZ;EACH;EACJ,CARD;;;EAWAC,IAAI,CAACxL,SAAL,CAAeuM,QAAf,GAA0B,YAAsB;EAAA,MAAbmG,IAAa,uEAAN,IAAM;EAC5C,MAAI9Z,MAAM,GAAG,EAAb;;EACA,MAAI,KAAKwT,GAAL,YAAoBZ,IAAxB,EAA8B;EAC1B,QAAIkH,IAAJ,EAAU;EACN9Z,MAAAA,MAAM,CAACW,IAAP,CAAY,KAAK6S,GAAL,CAASG,QAAT,EAAZ;EACH,KAFD,MAEO;EACH3T,MAAAA,MAAM,CAACW,IAAP,CAAY,KAAK6S,GAAjB;EACH;EACJ,GAND,MAMO;EACHxT,IAAAA,MAAM,CAACW,IAAP,CAAY,KAAK6S,GAAL,CAASvQ,OAAT,EAAZ;EACH;;EACD,MAAI,KAAK0P,GAAL,YAAoBC,IAAxB,EAA8B;EAC1B5S,IAAAA,MAAM,GAAGA,MAAM,CAACoQ,MAAP,CAAc,KAAKuC,GAAL,CAASgB,QAAT,EAAd,CAAT;EACH;;EACD,SAAO3T,MAAP;EACH,CAfD;;;EAkBA4S,IAAI,CAACkB,SAAL,GAAiB,UAASxH,KAAT,EAA4C;EAAA,MAA5BwN,IAA4B,uEAArB,IAAqB;EAAA,MAAf7P,KAAe,uEAAP,KAAO;;EACzD,MAAIqC,KAAK,YAAYsG,IAAjB,IAAyB3I,KAAK,IAAIqC,KAAK,YAAYN,KAA1B,IAAmCM,KAAK,CAACmO,QAAD,CAArE,EAAiF;EAC7E,WAAOnO,KAAP;EACH;;EACD,MAAIwN,IAAI,KAAK,KAAb,EAAoB;EAChB,QAAInQ,IAAI,GAAG6I,IAAX;;EACA,SAAK,IAAItJ,GAAC,GAAGoD,KAAK,CAAC9L,MAAnB,EAA2B0I,GAAC,EAA5B,GAAiC;EAC7BS,MAAAA,IAAI,GAAG,IAAIiJ,IAAJ,CAAStG,KAAK,CAACpD,GAAD,CAAd,EAAmBS,IAAnB,CAAP;EACH;;EACD,WAAOA,IAAP;EACH;;EACD,MAAI2C,KAAK,CAAC9L,MAAN,IAAgB,EAAE8L,KAAK,YAAYN,KAAnB,CAApB,EAA+C;EAC3CM,IAAAA,KAAK,sBAAOA,KAAP,CAAL;EACH;;EACD,MAAItM,MAAM,GAAGwS,IAAb;EACA,MAAItJ,CAAC,GAAGoD,KAAK,CAAC9L,MAAd;;EACA,SAAO0I,CAAC,EAAR,EAAY;EACR,QAAIsK,GAAG,GAAGlH,KAAK,CAACpD,CAAD,CAAf;;EACA,QAAIsK,GAAG,YAAYxH,KAAnB,EAA0B;EACtBwH,MAAAA,GAAG,GAAGZ,IAAI,CAACkB,SAAL,CAAeN,GAAf,EAAoBsG,IAApB,EAA0B7P,KAA1B,CAAN;EACH,KAFD,MAEO,IAAI,OAAOuJ,GAAP,KAAe,QAAnB,EAA6B;EAChCA,MAAAA,GAAG,GAAGzN,OAAO,CAACyN,GAAD,CAAb;EACH,KAFM,MAEA,IAAI,OAAOA,GAAP,KAAe,QAAf,IAA2B,CAACrP,MAAM,CAACuW,KAAP,CAAalH,GAAb,CAAhC,EAAmD;EACtDA,MAAAA,GAAG,GAAGzQ,OAAO,CAACyQ,GAAD,CAAb;EACH;;EACDxT,IAAAA,MAAM,GAAG,IAAI4S,IAAJ,CAASY,GAAT,EAAcxT,MAAd,CAAT;EACH;;EACD,SAAOA,MAAP;EACH,CA5BD;EA+BA;EACA;EACA;EACA;;;EACA4S,IAAI,CAACxL,SAAL,CAAeyS,SAAf,GAA2B,YAA0B;EAAA,MAAjBzb,OAAiB,uEAAP,KAAO;EACjD,MAAIub,IAAI,GAAG,IAAX;EACA,MAAI3Z,MAAM,GAAG,EAAb;;EACA,SAAO,IAAP,EAAa;EACT,QAAI2Z,IAAI,YAAY/G,IAAhB,IAAwB+G,IAAI,CAACnG,GAAL,YAAoBZ,IAAhD,EAAsD;EAClD,UAAIW,IAAI,GAAGoG,IAAI,CAACnG,GAAhB;EACA,UAAI/J,IAAI,GAAG8J,IAAI,CAACC,GAAhB;;EACA,UAAI/J,IAAI,YAAYlD,OAApB,EAA6B;EACzBkD,QAAAA,IAAI,GAAGA,IAAI,CAACG,QAAZ;EACH;;EACD,UAAIH,IAAI,YAAY1D,OAApB,EAA6B;EACzB0D,QAAAA,IAAI,GAAGA,IAAI,CAACxG,OAAL,EAAP;EACH;;EACD,UAAI0P,GAAG,GAAGY,IAAI,CAACZ,GAAf;;EACA,UAAIA,GAAG,YAAYC,IAAnB,EAAyB;EACrBD,QAAAA,GAAG,GAAGA,GAAG,CAACkH,SAAJ,CAAczb,OAAd,CAAN;EACH;;EACD,UAAIuc,SAAS,CAAChI,GAAD,CAAb,EAAoB;EAChB,YAAI,CAACvU,OAAL,EAAc;EACVuU,UAAAA,GAAG,GAAGA,GAAG,CAAC1P,OAAJ,EAAN;EACH;EACJ;;EACDjD,MAAAA,MAAM,CAACyJ,IAAD,CAAN,GAAekJ,GAAf;EACAgH,MAAAA,IAAI,GAAGA,IAAI,CAAChH,GAAZ;EACH,KApBD,MAoBO;EACH;EACH;EACJ;;EACD,SAAO3S,MAAP;EACH,CA7BD;;;EAgCA4S,IAAI,CAACgI,SAAL,GAAiB,UAAStO,KAAT,EAAgB;EAC7B,SAAOA,KAAK,CAACoF,MAAN,CAAa,UAAC/H,IAAD,EAAO4J,IAAP,EAAgB;EAChC,WAAO,IAAIX,IAAJ,CACH,IAAIA,IAAJ,CACI,IAAIrM,OAAJ,CAAYgN,IAAI,CAAC,CAAD,CAAhB,CADJ,EAEIA,IAAI,CAAC,CAAD,CAFR,CADG,EAKH5J,IALG,CAAP;EAOH,GARM,EAQJ6I,IARI,CAAP;EASH,CAVD;;;EAaAI,IAAI,CAACiI,UAAL,GAAkB,UAASvQ,GAAT,EAAc;EAC5B,MAAIgC,KAAK,GAAGzL,MAAM,CAACC,IAAP,CAAYwJ,GAAZ,EAAiBlJ,GAAjB,CAAqB,UAACiS,GAAD;EAAA,WAAS,CAACA,GAAD,EAAM/I,GAAG,CAAC+I,GAAD,CAAT,CAAT;EAAA,GAArB,CAAZ;EACA,SAAOT,IAAI,CAACgI,SAAL,CAAetO,KAAf,CAAP;EACH,CAHD;;;EAMAsG,IAAI,CAACxL,SAAL,CAAesK,MAAf,GAAwB,UAAS5U,EAAT,EAAa;EACjC,MAAI6c,IAAI,GAAG,IAAX;EACA,MAAI3Z,MAAM,GAAGwS,IAAb;;EACA,SAAO,IAAP,EAAa;EACT,QAAImH,IAAI,KAAKnH,IAAb,EAAkB;EACdxS,MAAAA,MAAM,GAAGlD,EAAE,CAACkD,MAAD,EAAS2Z,IAAI,CAACnG,GAAd,CAAX;EACAmG,MAAAA,IAAI,GAAGA,IAAI,CAAChH,GAAZ;EACH,KAHD,MAGO;EACH;EACH;EACJ;;EACD,SAAO3S,MAAP;EACH,CAZD;;;EAeA4S,IAAI,CAACxL,SAAL,CAAegC,OAAf,GAAyB,YAAW;EAChC,MAAI,KAAK6Q,UAAL,EAAJ,EAAuB;EACnB,UAAM,IAAItW,KAAJ,CAAU,yCAAV,CAAN;EACH;;EACD,MAAIgW,IAAI,GAAG,IAAX;EACA,MAAIlH,IAAI,GAAGD,IAAX;;EACA,SAAOmH,IAAI,KAAKnH,IAAhB,EAAqB;EACjB,QAAIyG,IAAI,GAAGU,IAAI,CAAChH,GAAhB;EACAgH,IAAAA,IAAI,CAAChH,GAAL,GAAWF,IAAX;EACAA,IAAAA,IAAI,GAAGkH,IAAP;EACAA,IAAAA,IAAI,GAAGV,IAAP;EACH;;EACD,SAAOxG,IAAP;EACH,CAbD;;;EAgBAG,IAAI,CAACxL,SAAL,CAAe0T,SAAf,GAA2B,UAAShe,EAAT,EAAa;;EAEpC,WAASid,KAAT,CAAexG,IAAf,EAAqB;EACjB,QAAIA,IAAI,YAAYX,IAApB,EAA0B;EACtB,UAAIW,IAAI,CAACnR,OAAT,EAAkB;EACd,eAAOmR,IAAI,CAACnR,OAAZ;EACA,eAAOmR,IAAP;EACH;;EACD,UAAIC,GAAG,GAAG1W,EAAE,CAACyW,IAAI,CAACC,GAAN,CAAZ;;EACA,UAAIA,GAAG,YAAYZ,IAAnB,EAAyB;EACrBY,QAAAA,GAAG,GAAGuG,KAAK,CAACvG,GAAD,CAAX;EAEH;;EACD,UAAIb,GAAG,GAAG7V,EAAE,CAACyW,IAAI,CAACZ,GAAN,CAAZ;;EACA,UAAIA,GAAG,YAAYC,IAAnB,EAAyB;EACrBD,QAAAA,GAAG,GAAGoH,KAAK,CAACpH,GAAD,CAAX;EAEH;;EACD,aAAO,IAAIC,IAAJ,CAASY,GAAT,EAAcb,GAAd,CAAP;EACH;;EACD,WAAOY,IAAP;EACH;;EACD,SAAOwG,KAAK,CAAC,IAAD,CAAZ;EACH,CAvBD;;;EA0BAnH,IAAI,CAACxL,SAAL,CAAehG,GAAf,GAAqB,UAAStE,EAAT,EAAa;EAC9B,MAAI,OAAO,KAAK0W,GAAZ,KAAoB,WAAxB,EAAqC;EACjC,WAAO,IAAIZ,IAAJ,CAAS9V,EAAE,CAAC,KAAK0W,GAAN,CAAX,EAAuB,KAAKb,GAAL,KAAaH,IAAb,GAAmBA,IAAnB,GAAyB,KAAKG,GAAL,CAASvR,GAAT,CAAatE,EAAb,CAAhD,CAAP;EACH,GAFD,MAEO;EACH,WAAO0V,IAAP;EACH;EACJ,CAND;;EAOA,IAAIuI,IAAI,GAAG,IAAIV,GAAJ,EAAX;;EAEA,SAASjH,eAAT,CAAyBtJ,MAAzB,EAAiC;EAC7B,SAAOA,MAAM,IAAI,QAAOA,MAAP,MAAkB,QAA5B,IAAwCA,MAAM,CAACJ,WAAP,KAAuB7I,MAAtE;EACH;;;EAED,IAAIma,KAAK,GAAGna,MAAM,CAACoa,mBAAP,CAA2BjP,KAAK,CAAC5E,SAAjC,CAAZ;EACA,IAAI8T,aAAa,GAAG,EAApB;EACAF,KAAK,CAAC/a,OAAN,CAAc,UAAA/B,CAAC,EAAI;EACfgd,EAAAA,aAAa,CAACva,IAAd,CAAmBqL,KAAK,CAAC9N,CAAD,CAAxB,EAA6B8N,KAAK,CAAC5E,SAAN,CAAgBlJ,CAAhB,CAA7B;EACH,CAFD;;EAIA,SAASid,eAAT,CAAyBjd,CAAzB,EAA4B;EACxBA,EAAAA,CAAC,GAAGkd,MAAM,CAACld,CAAD,CAAV;EACA,SAAOgd,aAAa,CAAC3Y,QAAd,CAAuBrE,CAAvB,CAAP;EACH;;;EAED,SAASmd,gBAAT,CAA0Bnd,CAA1B,EAA6B;EACzB,SAAOoN,WAAW,CAACpN,CAAD,CAAX,KAAmBqX,SAAS,CAACrX,CAAD,CAAT,IAAgBA,CAAC,CAACmX,OAArC,CAAP;EACH;;;EAED,SAASiG,SAAT,CAAmBhR,GAAnB,EAAwB;EACpB,MAAIZ,WAAW,GAAGY,GAAG,CAACZ,WAAJ,IAAmB7I,MAArC;EACA,MAAI0a,YAAY,GAAGnI,eAAe,CAAC9I,GAAD,CAAlC;EACA,MAAIkR,QAAQ,GAAGlQ,WAAW,CAAChB,GAAG,CAACT,MAAM,CAAC4R,aAAR,CAAJ,CAAX,IACXnQ,WAAW,CAAChB,GAAG,CAACT,MAAM,CAAC2R,QAAR,CAAJ,CADf;EAEA,MAAI1e,EAAJ;;EACA,MAAIie,IAAI,CAACT,GAAL,CAAS5Q,WAAT,CAAJ,EAA2B;EACvB5M,IAAAA,EAAE,GAAGie,IAAI,CAACrc,GAAL,CAASgL,WAAT,CAAL;EACH,GAFD,MAEO;EACHqR,IAAAA,IAAI,CAAC9a,OAAL,CAAa,UAASzB,KAAT,EAAgB6U,GAAhB,EAAqB;EAC9BA,MAAAA,GAAG,GAAG+H,MAAM,CAAC/H,GAAD,CAAZ,CAD8B;EAG9B;EACA;;EACA,UAAI/I,GAAG,CAACZ,WAAJ,KAAoB2J,GAApB,KACCA,GAAG,KAAKxS,MAAR,IAAkB0a,YAAlB,IAAkC,CAACC,QAAnC,IAA+CnI,GAAG,KAAKxS,MADxD,CAAJ,EACqE;EACjE/D,QAAAA,EAAE,GAAG0B,KAAL;EACH;EACJ,KATD;EAUH;;EACD,SAAO1B,EAAP;EACH;;;EAED,IAAI4e,WAAW,GAAG,IAAIrB,GAAJ,EAAlB;EACA,CACI,CAAC,IAAD,EAAO,IAAP,CADJ,EAEI,CAAC,KAAD,EAAQ,IAAR,CAFJ,EAGI,CAAC,IAAD,EAAO,MAAP,CAHJ,EAII,CAAC5e,SAAD,EAAY,cAAZ,CAJJ,EAKEwE,OALF,CAKU,kBAAkB;EAAA;EAAA,MAAhBoT,GAAgB;EAAA,MAAX7U,KAAW;;EACxBkd,EAAAA,WAAW,CAAC3N,GAAZ,CAAgBsF,GAAhB,EAAqB7U,KAArB;EACH,CAPD;EASA;EACA;EACA;;EACA;;EACA,SAASmd,SAAT,CAAmBrR,GAAnB,EAAwB;EACpB,MAAIA,GAAG,IAAI,QAAOA,GAAP,MAAe,QAA1B,EAAoC;EAChC,QAAItK,MAAM,GAAG,EAAb;;EACA,QAAMsY,QAAO,GAAGzX,MAAM,CAAC+a,qBAAP,CAA6BtR,GAA7B,CAAhB;;EACAgO,IAAAA,QAAO,CAACrY,OAAR,CAAgB,UAACoT,GAAD,EAAS;EACrB,UAAM5J,IAAI,GAAG4J,GAAG,CAACxX,QAAJ,GACRuG,OADQ,CACA,mBADA,EACqB,IADrB,CAAb;EAEApC,MAAAA,MAAM,CAACyJ,IAAD,CAAN,GAAe5N,QAAQ,CAACyO,GAAG,CAAC+I,GAAD,CAAJ,CAAvB;EACH,KAJD;;EAKA,QAAM2H,MAAK,GAAGna,MAAM,CAACoa,mBAAP,CAA2B3Q,GAA3B,CAAd;;EACA0Q,IAAAA,MAAK,CAAC/a,OAAN,CAAc,UAAAoT,GAAG,EAAI;EACjB,UAAMwI,CAAC,GAAGvR,GAAG,CAAC+I,GAAD,CAAb;;EACA,UAAIwI,CAAC,IAAI,QAAOA,CAAP,MAAa,QAAlB,IAA8BA,CAAC,CAACnS,WAAF,KAAkB7I,MAApD,EAA4D;EACxDb,QAAAA,MAAM,CAACqT,GAAD,CAAN,GAAcsI,SAAS,CAACE,CAAD,CAAvB;EACH,OAFD,MAEO;EACH7b,QAAAA,MAAM,CAACqT,GAAD,CAAN,GAAcxX,QAAQ,CAACggB,CAAD,CAAtB;EACH;EACJ,KAPD;;EAQA,WAAO7b,MAAP;EACH;;EACD,SAAOsK,GAAP;EACH;;;EAED,SAASwR,SAAT,CAAmBxR,GAAnB,EAAwB;EACpB,SAAOzJ,MAAM,CAACC,IAAP,CAAYwJ,GAAZ,EAAiB8F,MAAjB,CAAwBvP,MAAM,CAAC+a,qBAAP,CAA6BtR,GAA7B,CAAxB,CAAP;EACH;;;EAED,SAASyR,gBAAT,CAA0BzR,GAA1B,EAA+Bb,IAA/B,EAAqC;EACjC,SAAOa,GAAG,CAAC5D,cAAJ,CAAmB+C,IAAnB,KAA4B6B,WAAW,CAAChB,GAAG,CAACzO,QAAL,CAA9C;EACH;;;EAED,SAASmgB,kBAAT,CAA4Blf,EAA5B,EAAgC;EAC5B,MAAImf,kBAAkB,CAACnf,EAAD,CAAtB,EAA4B;EACxB,WAAO,sBAAP;EACH;;EACD,MAAM4M,WAAW,GAAG5M,EAAE,CAACsK,SAAH,IAAgBtK,EAAE,CAACsK,SAAH,CAAasC,WAAjD;;EACA,MAAI4B,WAAW,CAAC5B,WAAD,CAAX,IAA4B6L,SAAS,CAAC7L,WAAD,CAAzC,EAAwD;EACpD,QAAI5M,EAAE,CAACof,SAAD,CAAF,IAAiBxS,WAAW,CAAChD,cAAZ,CAA2B,UAA3B,CAArB,EAA6D;EACzD,UAAI+C,IAAI,GAAGC,WAAW,CAACE,QAAvB;;EACA,UAAI7D,OAAO,CAACsE,QAAR,CAAiBZ,IAAjB,CAAJ,EAA4B;EACxBA,QAAAA,IAAI,GAAGA,IAAI,CAAC5N,QAAL,EAAP;EACA,iCAAkB4N,IAAlB;EACH;;EACD,aAAO,UAAP;EACH;EACJ;;EACD,MAAI3M,EAAE,CAAC4J,cAAH,CAAkB,UAAlB,CAAJ,EAAmC;EAC/B,QAAI+C,KAAI,GAAG3M,EAAE,CAAC8M,QAAd;;EACA,QAAI,QAAOH,KAAP,MAAgB,QAApB,EAA8B;EAC1BA,MAAAA,KAAI,GAAGS,gBAAgB,CAACT,KAAD,CAAvB;EACH;;EACD,QAAI,OAAOA,KAAP,KAAgB,QAApB,EAA8B;EAC1B,mCAAsBA,KAAtB;EACH;EACJ;;EACD,MAAIsS,gBAAgB,CAACjf,EAAD,EAAK,UAAL,CAApB,EAAsC;EAClC,WAAOA,EAAE,CAACjB,QAAH,EAAP;EACH,GAFD,MAEO,IAAIiB,EAAE,CAAC2M,IAAH,IAAW,CAAC8L,SAAS,CAACzY,EAAD,CAAzB,EAA+B;EAClC,iCAAsBA,EAAE,CAAC2M,IAAH,CAAQb,IAAR,EAAtB;EACH,GAFM,MAEA;EACH,WAAO,cAAP;EACH;EACJ;EAED;;;EACA,IAAMuT,SAAS,GAAG,IAAI9B,GAAJ,EAAlB;;EAEA,CACI,CAAC1W,KAAD,EAAQ,UAASlG,CAAT,EAAY;EAChB,SAAOA,CAAC,CAAC2e,OAAT;EACH,CAFD,CADJ,EAII,CAACxJ,IAAD,EAAO,UAASW,IAAT,UAAkD;EAAA,MAAjCtJ,KAAiC,UAAjCA,KAAiC;EAAA,MAA1BoS,WAA0B,UAA1BA,WAA0B;EAAA,MAAbC,SAAa,UAAbA,SAAa;;EACrD;EACA,MAAI,CAACD,WAAL,EAAkB;EACd9I,IAAAA,IAAI,CAACgJ,UAAL;EACH;;EACD,SAAOhJ,IAAI,CAAC1X,QAAL,OAAA0X,IAAI,GAAUtJ,KAAV,4BAAoBqS,SAApB,GAAX;EACH,CAND,CAJJ,EAWI,CAAC5Y,UAAD,EAAa,UAAS2C,GAAT,UAAyB;EAAA,MAAT4D,KAAS,UAATA,KAAS;;EAClC,MAAIA,KAAJ,EAAW;EACP,WAAO5D,GAAG,CAACxK,QAAJ,EAAP;EACH;;EACD,SAAOwK,GAAG,CAACpD,OAAJ,EAAP;EACH,CALD,CAXJ,EAiBI,CAAC8C,OAAD,EAAU,UAASjB,GAAT,UAAyB;EAAA,MAATmF,KAAS,UAATA,KAAS;EAC/BnF,EAAAA,GAAG,GAAGA,GAAG,CAACjJ,QAAJ,EAAN;;EACA,MAAIoO,KAAJ,EAAW;EACP,WAAOjE,IAAI,CAACwW,SAAL,CAAe1X,GAAf,EAAoB1C,OAApB,CAA4B,MAA5B,EAAoC,IAApC,CAAP;EACH;;EACD,SAAO0C,GAAP;EACH,CAND,CAjBJ,EAwBI,CAACnG,MAAD,EAAS,UAAS4F,EAAT,EAAa;EAClB,SAAO,MAAMA,EAAE,CAAC1I,QAAH,EAAb;EACH,CAFD,CAxBJ,EA2BEoE,OA3BF,CA2BU,kBAAe;EAAA;EAAA,MAAbwc,GAAa;EAAA,MAAR3f,EAAQ;;EACrBqf,EAAAA,SAAS,CAACpO,GAAV,CAAc0O,GAAd,EAAmB3f,EAAnB;EACH,CA7BD;;EA+BA,IAAM4f,YAAY,GAAG,CACjBnW,OADiB,EAEjBxD,OAFiB,EAGjB8Q,KAHiB,EAIjB8I,MAJiB,EAKjBC,SALiB,EAMjBC,UANiB,EAOjBC,WAPiB,EAQjBlS,aARiB,CAArB;;EAWA,SAAS/O,QAAT,CAAkByO,GAAlB,EAAuBL,KAAvB,EAA8BoS,WAA9B,EAAyD;EACrD,MAAI,OAAOU,MAAP,KAAkB,WAAlB,IACAzS,GAAG,YAAYyS,MAAM,CAACjgB,EAAP,CAAUnB,IAD7B,EACmC;EAC/B,WAAO,cAAc2O,GAAG,CAAC9J,MAAlB,GAA2B,IAAlC;EACH;;EACD,MAAIkb,WAAW,CAACpB,GAAZ,CAAgBhQ,GAAhB,CAAJ,EAA0B;EACtB,WAAOoR,WAAW,CAAChd,GAAZ,CAAgB4L,GAAhB,CAAP;EACH;;EACD,MAAI0S,YAAY,CAAC1S,GAAD,CAAhB,EAAuB;EACnB,WAAO,cAAP;EACH;;EACD,MAAIA,GAAJ,EAAS;EACL,QAAImS,GAAG,GAAGnS,GAAG,CAACZ,WAAd;;EACA,QAAIyS,SAAS,CAAC7B,GAAV,CAAcmC,GAAd,CAAJ,EAAwB;EAAA,yCAbcH,SAad;EAbcA,QAAAA,SAad;EAAA;;EACpB,aAAOH,SAAS,CAACzd,GAAV,CAAc+d,GAAd,EAAmBnS,GAAnB,EAAwB;EAAEL,QAAAA,KAAK,EAALA,KAAF;EAASoS,QAAAA,WAAW,EAAXA,WAAT;EAAsBC,QAAAA,SAAS,EAATA;EAAtB,OAAxB,CAAP;EACH;EACJ,GAhBoD;;;EAAA,8CAkBpCI,YAlBoC;EAAA;;EAAA;EAkBrD,2DAA+B;EAAA,UAAtBhf,MAAsB;;EAC3B,UAAI4M,GAAG,YAAY5M,MAAnB,EAAyB;EACrB,eAAO4M,GAAG,CAACzO,QAAJ,CAAaoO,KAAb,CAAP;EACH;EACJ,KAtBoD;;EAAA;EAAA;EAAA;EAAA;EAAA;;EAwBrD,MAAI,CAACuI,IAAD,EAAM1K,GAAN,EAAWvF,QAAX,CAAoB+H,GAApB,CAAJ,EAA8B;EAC1B,WAAOA,GAAG,CAACzO,QAAJ,EAAP;EACH;;EACD,MAAIyP,WAAW,CAAChB,GAAD,CAAf,EAAsB;EAClB,WAAO0R,kBAAkB,CAAC1R,GAAD,CAAzB;EACH;;EACD,MAAIA,GAAG,KAAKlO,IAAZ,EAAkB;EACd,WAAO,cAAP;EACH;;EACD,MAAIkO,GAAG,KAAK,IAAZ,EAAkB;EACd,WAAO,MAAP;EACH;;EACD,MAAI,QAAOA,GAAP,MAAe,QAAnB,EAA6B;EACzB,QAAIZ,WAAW,GAAGY,GAAG,CAACZ,WAAtB;;EACA,QAAI,CAACA,WAAL,EAAkB;EACd;EACA;EACAA,MAAAA,WAAW,GAAG7I,MAAd;EACH;;EACD,QAAI4I,IAAJ;;EACA,QAAI,OAAOC,WAAW,CAACwS,SAAnB,KAAiC,QAArC,EAA+C;EAC3CzS,MAAAA,IAAI,GAAGC,WAAW,CAACwS,SAAnB;EACH,KAFD,MAEO;EACH,UAAIpf,EAAE,GAAGwe,SAAS,CAAChR,GAAD,CAAlB;;EACA,UAAIxN,EAAJ,EAAQ;EACJ,YAAIwO,WAAW,CAACxO,EAAD,CAAf,EAAqB;EACjB,iBAAOA,EAAE,CAACwN,GAAD,EAAML,KAAN,CAAT;EACH,SAFD,MAEO;EACH,gBAAM,IAAItG,KAAJ,CAAU,8BAAV,CAAN;EACH;EACJ;;EACD8F,MAAAA,IAAI,GAAGC,WAAW,CAACD,IAAnB;EACH,KApBwB;;;EAsBzB,QAAI6B,WAAW,CAAChB,GAAG,CAACzO,QAAL,CAAX,IAA6B0Z,SAAS,CAACjL,GAAG,CAACzO,QAAL,CAA1C,EAA0D;EACtD,aAAOyO,GAAG,CAACzO,QAAJ,GAAeoH,OAAf,EAAP;EACH;;EACD,QAAIvF,IAAI,CAAC4M,GAAD,CAAJ,KAAc,UAAlB,EAA8B;EAC1B,UAAIiL,SAAS,CAAC7L,WAAD,CAAT,IAA0BA,WAAW,CAACE,QAA1C,EAAoD;EAChDH,QAAAA,IAAI,GAAGC,WAAW,CAACE,QAAZ,CAAqB3G,OAArB,EAAP;EACH,OAFD,MAEO,IAAI,CAACgZ,kBAAkB,CAACvS,WAAD,CAAvB,EAAsC;EACzCD,QAAAA,IAAI,GAAG,UAAP;EACH;EACJ;;EACD,QAAIwT,WAAW,CAAC3S,GAAD,EAAMT,MAAM,CAAC2R,QAAb,CAAf,EAAuC;EACnC,UAAI/R,IAAJ,EAAU;EACN,oCAAqBA,IAArB;EACH;;EACD,aAAO,aAAP;EACH;;EACD,QAAIwT,WAAW,CAAC3S,GAAD,EAAMT,MAAM,CAAC4R,aAAb,CAAf,EAA4C;EACxC,UAAIhS,IAAJ,EAAU;EACN,yCAA0BA,IAA1B;EACH;;EACD,aAAO,kBAAP;EACH;;EACD,QAAIA,IAAI,KAAK,EAAb,EAAiB;EACb,aAAO,OAAOA,IAAP,GAAc,GAArB;EACH;;EACD,WAAO,WAAP;EACH;;EACD,MAAI,OAAOa,GAAP,KAAe,QAAnB,EAA6B;EACzB,WAAOA,GAAG,CAACzO,QAAJ,EAAP;EACH;;EACD,SAAOyO,GAAP;EACH;;;EAED,SAAS0S,YAAT,CAAsB1S,GAAtB,EAA2B;EACvB,SAAOA,GAAG,IACN,QAAOA,GAAP,MAAe,QADZ,IAEHA,GAAG,CAAC5D,cAFD,IAGH4D,GAAG,CAAC5D,cAAJ,CAAmB,aAAnB,CAHG,IAIH,OAAO4D,GAAG,CAACZ,WAAX,KAA2B,UAJxB,IAKHY,GAAG,CAACZ,WAAJ,CAAgBtC,SAAhB,KAA8BkD,GALlC;EAMH;;;EAEDsI,IAAI,CAACxL,SAAL,CAAemV,UAAf,GAA4B,YAAW;EACnCA,EAAAA,UAAU,CAAC,IAAD,CAAV;EACA,SAAO,IAAP;EACH,CAHD;;;EAMA3J,IAAI,CAACxL,SAAL,CAAe6S,UAAf,GAA4B,YAAsB;EAAA,MAAbxQ,IAAa,uEAAN,IAAM;;EAC9C,MAAI,CAACA,IAAL,EAAW;EACP,WAAO,KAAKwQ,UAAL,CAAgB,KAAhB,KAA0B,KAAKA,UAAL,CAAgB,KAAhB,CAAjC;EACH;;EACD,SAAO,CAAC,EAAE,KAAKM,UAAL,KAAoB,KAAKA,UAAL,EAAiB9Q,IAAjB,CAAtB,CAAR;EACH,CALD;;;EAQA,SAAS8S,UAAT,CAAoBhJ,IAApB,EAA0B;EACtB,MAAI2J,UAAU,GAAG,EAAjB;EACA,MAAIC,MAAM,GAAG,EAAb;EACA,MAAIC,IAAI,GAAG,EAAX;;EACA,WAASC,KAAT,CAAe9J,IAAf,EAAqB;EACjB,QAAI,CAAC2J,UAAU,CAAC3a,QAAX,CAAoBgR,IAApB,CAAL,EAAgC;EAC5B2J,MAAAA,UAAU,CAACvc,IAAX,CAAgB4S,IAAhB;EACH;EACJ;;EACD,WAASxF,GAAT,CAAa4L,IAAb,EAAmBjc,IAAnB,EAAyB4f,KAAzB,EAAgCC,OAAhC,EAAyC;EACrC,QAAID,KAAK,YAAY1K,IAArB,EAA2B;EACvB,UAAI2K,OAAO,CAAChb,QAAR,CAAiB+a,KAAjB,CAAJ,EAA6B;EACzB,YAAI,CAACF,IAAI,CAAC7a,QAAL,CAAc+a,KAAd,CAAL,EAA2B;EACvBF,UAAAA,IAAI,CAACzc,IAAL,CAAU2c,KAAV;EACH;;EACD,YAAI,CAAC3D,IAAI,CAACY,UAAD,CAAT,EAAuB;EACnBZ,UAAAA,IAAI,CAACY,UAAD,CAAJ,GAAmB,EAAnB;EACH;;EACDZ,QAAAA,IAAI,CAACY,UAAD,CAAJ,CAAiB7c,IAAjB,IAAyB4f,KAAzB;;EACA,YAAI,CAACH,MAAM,CAAC5a,QAAP,CAAgBoX,IAAhB,CAAL,EAA4B;EACxBwD,UAAAA,MAAM,CAACxc,IAAP,CAAYgZ,IAAZ;EACH;;EACD,eAAO,IAAP;EACH;EACJ;EACJ;;EACD,MAAM6D,MAAM,GAAGlV,UAAU,CAAC,SAASmV,YAAT,CAAsBlK,IAAtB,EAA4BgK,OAA5B,EAAqC;EAC3D,QAAIhK,IAAI,YAAYX,IAApB,EAA0B;EACtB,aAAOW,IAAI,CAACQ,GAAZ;EACA,aAAOR,IAAI,CAACgH,UAAD,CAAX;EACA8C,MAAAA,KAAK,CAAC9J,IAAD,CAAL;EACAgK,MAAAA,OAAO,CAAC5c,IAAR,CAAa4S,IAAb;EACA,UAAIC,GAAG,GAAGzF,GAAG,CAACwF,IAAD,EAAO,KAAP,EAAcA,IAAI,CAACC,GAAnB,EAAwB+J,OAAxB,CAAb;EACA,UAAI5K,GAAG,GAAG5E,GAAG,CAACwF,IAAD,EAAO,KAAP,EAAcA,IAAI,CAACZ,GAAnB,EAAwB4K,OAAxB,CAAb;;EACA,UAAI,CAAC/J,GAAL,EAAU;EACNgK,QAAAA,MAAM,CAACjK,IAAI,CAACC,GAAN,EAAW+J,OAAO,CAACpU,KAAR,EAAX,CAAN;EACH;;EACD,UAAI,CAACwJ,GAAL,EAAU;EACN,eAAO,IAAIvK,KAAJ,CAAU,YAAM;EACnB,iBAAOqV,YAAY,CAAClK,IAAI,CAACZ,GAAN,EAAW4K,OAAO,CAACpU,KAAR,EAAX,CAAnB;EACH,SAFM,CAAP;EAGH;EACJ;EACJ,GAjBwB,CAAzB;;EAkBA,WAASuU,SAAT,CAAmB/D,IAAnB,EAAyBjc,IAAzB,EAA+B;EAC3B,QAAIic,IAAI,CAACY,UAAD,CAAJ,CAAiB7c,IAAjB,aAAkCkV,IAAtC,EAA4C;EACxC,UAAMpI,KAAK,GAAGmT,SAAS,CAACrG,OAAV,CAAkBqC,IAAI,CAACY,UAAD,CAAJ,CAAiB7c,IAAjB,CAAlB,CAAd;EACAic,MAAAA,IAAI,CAACY,UAAD,CAAJ,CAAiB7c,IAAjB,eAA6B8M,KAA7B;EACH;EACJ;;EACDgT,EAAAA,MAAM,CAACjK,IAAD,EAAO,EAAP,CAAN;EACA,MAAIoK,SAAS,GAAGT,UAAU,CAACrU,MAAX,CAAkB,UAAA8Q,IAAI;EAAA,WAAIyD,IAAI,CAAC7a,QAAL,CAAcoX,IAAd,CAAJ;EAAA,GAAtB,CAAhB;EACAgE,EAAAA,SAAS,CAAC1d,OAAV,CAAkB,UAAC0Z,IAAD,EAAOzQ,CAAP,EAAa;EAC3ByQ,IAAAA,IAAI,CAACiE,OAAD,CAAJ,cAAoB1U,CAApB;EACH,GAFD;EAGAiU,EAAAA,MAAM,CAACld,OAAP,CAAe,UAAA0Z,IAAI,EAAI;EACnB+D,IAAAA,SAAS,CAAC/D,IAAD,EAAO,KAAP,CAAT;EACA+D,IAAAA,SAAS,CAAC/D,IAAD,EAAO,KAAP,CAAT;EACH,GAHD;EAIH;;;EAmED/G,IAAI,CAACxL,SAAL,CAAevL,QAAf,GAA0B,UAASoO,KAAT,EAAyC;EAAA,mFAAJ,EAAI;EAAA,6BAAvB4T,MAAuB;EAAA,MAAvBA,MAAuB,8BAAd,KAAc;;EAC/D,MAAIlQ,GAAG,GAAG,EAAV;;EACA,MAAI,KAAKiQ,OAAL,CAAJ,EAAmB;EACfjQ,IAAAA,GAAG,CAAChN,IAAJ,CAAS,KAAKid,OAAL,IAAgB,GAAzB;EACH,GAFD,MAEO,IAAI,CAACC,MAAL,EAAa;EAChBlQ,IAAAA,GAAG,CAAChN,IAAJ,CAAS,GAAT;EACH;;EACD,MAAInC,KAAJ;;EACA,MAAI,KAAK+b,UAAL,KAAoB,KAAKA,UAAL,EAAiB/G,GAAzC,EAA8C;EAC1ChV,IAAAA,KAAK,GAAG,KAAK+b,UAAL,EAAiB/G,GAAzB;EACH,GAFD,MAEO;EACHhV,IAAAA,KAAK,GAAG3C,QAAQ,CAAC,KAAK2X,GAAN,EAAWvJ,KAAX,EAAkB,IAAlB,CAAhB;EACH;;EACD,MAAIzL,KAAK,KAAK/C,SAAd,EAAyB;EACrBkS,IAAAA,GAAG,CAAChN,IAAJ,CAASnC,KAAT;EACH;;EACD,MAAI,KAAKmU,GAAL,YAAoBC,IAAxB,EAA8B;EAC1B,QAAI,KAAK2H,UAAL,KAAoB,KAAKA,UAAL,EAAiB5H,GAAzC,EAA8C;EAC1ChF,MAAAA,GAAG,CAAChN,IAAJ,CAAS,KAAT;EACAgN,MAAAA,GAAG,CAAChN,IAAJ,CAAS,KAAK4Z,UAAL,EAAiB5H,GAA1B;EACH,KAHD,MAGO;EACH,UAAI,KAAKA,GAAL,CAASiL,OAAT,CAAJ,EAAuB;EACnBjQ,QAAAA,GAAG,CAAChN,IAAJ,CAAS,KAAT;EACH,OAFD,MAEO;EACHgN,QAAAA,GAAG,CAAChN,IAAJ,CAAS,GAAT;EACH;;EACD,UAAMgS,GAAG,GAAG,KAAKA,GAAL,CAAS9W,QAAT,CAAkBoO,KAAlB,EAAyB;EAAE4T,QAAAA,MAAM,EAAE;EAAV,OAAzB,CAAZ;EACAlQ,MAAAA,GAAG,CAAChN,IAAJ,CAASgS,GAAT;EACH;EACJ,GAbD,MAaO,IAAI,KAAKA,GAAL,KAAaH,IAAjB,EAAsB;EACzB7E,IAAAA,GAAG,GAAGA,GAAG,CAACyC,MAAJ,CAAW,CAAC,KAAD,EAAQvU,QAAQ,CAAC,KAAK8W,GAAN,EAAW1I,KAAX,EAAkB,IAAlB,CAAhB,CAAX,CAAN;EACH;;EACD,MAAI,CAAC4T,MAAD,IAAW,KAAKD,OAAL,CAAf,EAA8B;EAC1BjQ,IAAAA,GAAG,CAAChN,IAAJ,CAAS,GAAT;EACH;;EACD,SAAOgN,GAAG,CAAC5M,IAAJ,CAAS,EAAT,CAAP;EACH,CApCD;;;EAuCA6R,IAAI,CAACxL,SAAL,CAAe2G,GAAf,GAAqB,UAAS+P,IAAT,EAAetf,KAAf,EAAsB;EACvC,OAAKsf,IAAL,IAAatf,KAAb;;EACA,MAAIA,KAAK,YAAYoU,IAArB,EAA2B;EACvB,SAAK2J,UAAL;EACH;EACJ,CALD;;;EAQA3J,IAAI,CAACxL,SAAL,CAAe+F,MAAf,GAAwB,UAASnL,GAAT,EAAc;EAClC,MAAIA,GAAG,YAAYgK,KAAnB,EAA0B;EACtB,WAAO,KAAKmB,MAAL,CAAYyF,IAAI,CAACkB,SAAL,CAAe9R,GAAf,CAAZ,CAAP;EACH;;EACD,MAAIgU,CAAC,GAAG,IAAR;;EACA,MAAIA,CAAC,CAACxC,GAAF,KAAU/X,SAAd,EAAyB;EACrB,QAAIuG,GAAG,YAAY4Q,IAAnB,EAAyB;EACrB,WAAKY,GAAL,GAAWxR,GAAG,CAACwR,GAAf;EACA,WAAKb,GAAL,GAAW3Q,GAAG,CAAC2Q,GAAf;EACH,KAHD,MAGO;EACH,WAAKa,GAAL,GAAWxR,GAAX;EACH;EACJ,GAPD,MAOO,IAAIA,GAAG,KAAKwQ,IAAZ,EAAiB;EACpB,WAAO,IAAP,EAAa;EACT,UAAIwD,CAAC,YAAYpD,IAAb,IAAqBoD,CAAC,CAACrD,GAAF,KAAUH,IAAnC,EAAwC;EACpCwD,QAAAA,CAAC,GAAGA,CAAC,CAACrD,GAAN;EACH,OAFD,MAEO;EACH;EACH;EACJ;;EACDqD,IAAAA,CAAC,CAACrD,GAAF,GAAQ3Q,GAAR;EACH;;EACD,SAAO,IAAP;EACH,CAvBD;;;EAyBA4Q,IAAI,CAACxL,SAAL,CAAegD,SAAf,GAA2B,YAAW;EAClC,SAAO,CACH,KAAKoJ,GADF,EAEH,KAAKb,GAFF,CAAP;EAIH,CALD;EAOA;EACA;;;EACAC,IAAI,CAACxL,SAAL,CAAeyC,MAAM,CAAC2R,QAAtB,IAAkC,YAAW;EACzC,MAAI7B,IAAI,GAAG,IAAX;EACA,SAAO;EACHV,IAAAA,IAAI,EAAE,gBAAW;EACb,UAAIpG,GAAG,GAAG8G,IAAV;EACAA,MAAAA,IAAI,GAAG9G,GAAG,CAACF,GAAX;;EACA,UAAIE,GAAG,KAAKL,IAAZ,EAAiB;EACb,eAAO;EAAEhU,UAAAA,KAAK,EAAE/C,SAAT;EAAoBsB,UAAAA,IAAI,EAAE;EAA1B,SAAP;EACH,OAFD,MAEO;EACH,eAAO;EAAEyB,UAAAA,KAAK,EAAEqU,GAAG,CAACW,GAAb;EAAkBzW,UAAAA,IAAI,EAAE;EAAxB,SAAP;EACH;EACJ;EATE,GAAP;EAWH,CAbD;EAeA;EACA;;;EACA,SAASsI,GAAT,CAAanH,CAAb,EAAgB;EACZ,SAAOA,CAAC,GAAG,CAAJ,GAAQ,CAACA,CAAT,GAAaA,CAApB;EACH;;;EAED,SAAS6f,WAAT,CAAqBjhB,EAArB,EAAyByL,IAAzB,EAA+B;EAC3B,yBAAmBA,IAAnB;EAAA,MAAK+I,CAAL;EAAA,MAAWpJ,IAAX;;EACA,SAAOA,IAAI,CAAC1H,MAAL,GAAc,CAArB,EAAwB;EACpB,gBAAU0H,IAAV;EAAA;EAAA,QAAKqJ,CAAL;;EACA,QAAI,CAACzU,EAAE,CAACwU,CAAD,EAAIC,CAAJ,CAAP,EAAe;EACX,aAAO,KAAP;EACH;;EAJmB,iBAKLrJ,IALK;;EAAA;;EAKnBoJ,IAAAA,CALmB;EAKbpJ,IAAAA,IALa;EAMvB;;EACD,SAAO,IAAP;EACH;;;EAGD,SAAS8V,KAAT,CAAe9f,CAAf,EAAkB+f,CAAlB,EAAqB;EACjB,MAAI3S,WAAW,CAACpN,CAAD,CAAf,EAAoB;EAChB,WAAOoN,WAAW,CAAC2S,CAAD,CAAX,IAAkB7C,MAAM,CAACld,CAAD,CAAN,KAAckd,MAAM,CAAC6C,CAAD,CAA7C;EACH,GAFD,MAEO,IAAI/f,CAAC,YAAY6E,OAAjB,EAA0B;EAC7B,QAAI,EAAEkb,CAAC,YAAYlb,OAAf,CAAJ,EAA6B;EACzB,aAAO,KAAP;EACH;;EACD,QAAIrF,MAAJ;;EACA,QAAIQ,CAAC,CAACwG,QAAF,KAAeuZ,CAAC,CAACvZ,QAArB,EAA+B;EAC3B,UAAIxG,CAAC,CAACwG,QAAF,KAAe,SAAnB,EAA8B;EAC1BhH,QAAAA,MAAI,GAAGQ,CAAC,CAACggB,MAAF,CAASxZ,QAAT,KAAsBuZ,CAAC,CAACC,MAAF,CAASxZ,QAA/B,IACHxG,CAAC,CAACigB,MAAF,CAASzZ,QAAT,KAAsBuZ,CAAC,CAACE,MAAF,CAASzZ,QADnC;EAEH,OAHD,MAGO;EACHhH,QAAAA,MAAI,GAAG,IAAP;EACH;;EACD,UAAIA,MAAI,IAAIQ,CAAC,CAACuG,GAAF,CAAMwZ,CAAN,MAAa,CAAzB,EAA4B;EACxB,YAAI/f,CAAC,CAAC+E,OAAF,OAAgB,CAApB,EAAuB;EACnB,iBAAOpC,MAAM,CAACkJ,EAAP,CAAU7L,CAAC,CAAC+E,OAAF,EAAV,EAAuBgb,CAAC,CAAChb,OAAF,EAAvB,CAAP;EACH;;EACD,eAAO,IAAP;EACH;EACJ;;EACD,WAAO,KAAP;EACH,GApBM,MAoBA,IAAI,OAAO/E,CAAP,KAAa,QAAjB,EAA2B;EAC9B,QAAI,OAAO+f,CAAP,KAAa,QAAjB,EAA2B;EACvB,aAAO,KAAP;EACH;;EACD,QAAI9Z,MAAM,CAACuW,KAAP,CAAaxc,CAAb,CAAJ,EAAqB;EACjB,aAAOiG,MAAM,CAACuW,KAAP,CAAauD,CAAb,CAAP;EACH;;EACD,QAAI/f,CAAC,KAAKiG,MAAM,CAACC,iBAAjB,EAAoC;EAChC,aAAO6Z,CAAC,KAAK9Z,MAAM,CAACC,iBAApB;EACH;;EACD,QAAIlG,CAAC,KAAKiG,MAAM,CAACE,iBAAjB,EAAoC;EAChC,aAAO4Z,CAAC,KAAK9Z,MAAM,CAACE,iBAApB;EACH;;EACD,WAAO2Z,KAAK,CAACjb,OAAO,CAAC7E,CAAD,CAAR,EAAa6E,OAAO,CAACkb,CAAD,CAApB,CAAZ;EACH,GAdM,MAcA,IAAI/f,CAAC,YAAYwF,UAAjB,EAA6B;EAChC,QAAI,EAAEua,CAAC,YAAYva,UAAf,CAAJ,EAAgC;EAC5B,aAAO,KAAP;EACH;;EACD,WAAOxF,CAAC,CAACkgB,QAAF,KAAeH,CAAC,CAACG,QAAxB;EACH,GALM,MAKE;EACH,WAAOlgB,CAAC,KAAK+f,CAAb;EACH;EACJ;;;EAED,SAASI,SAAT,CAAmB/M,CAAnB,EAAsBC,CAAtB,EAAyB;EACrB,MAAI7T,IAAI,CAAC4T,CAAD,CAAJ,KAAY5T,IAAI,CAAC6T,CAAD,CAApB,EAAyB;EACrB,WAAO,KAAP;EACH;;EACD,MAAI,CAAC+M,OAAO,CAAChN,CAAD,CAAZ,EAAiB;EACb,WAAO,KAAP;EACH;;EACD,MAAIA,CAAC,YAAY3S,MAAjB,EAAyB;EACrB,WAAO2S,CAAC,CAACiN,MAAF,KAAahN,CAAC,CAACgN,MAAtB;EACH;;EACD,MAAIjN,CAAC,YAAYvL,OAAjB,EAA0B;EACtB,WAAOuL,CAAC,CAACrO,OAAF,OAAgBsO,CAAC,CAACtO,OAAF,EAAvB;EACH;;EACD,SAAO+a,KAAK,CAAC1M,CAAD,EAAIC,CAAJ,CAAZ;EACH;;;EAED,SAAS+M,OAAT,CAAiBhU,GAAjB,EAAsB;EAClB,SAAOA,GAAG,YAAY/D,OAAf,IACHR,OAAO,CAACsE,QAAR,CAAiBC,GAAjB,CADG,IAEHA,GAAG,KAAKkI,IAFL,IAGHlI,GAAG,KAAK,IAHL,IAIHA,GAAG,YAAY5G,UAJZ,IAKH4G,GAAG,YAAYvH,OALZ,IAMHuH,GAAG,KAAK,IANL,IAOHA,GAAG,KAAK,KAPZ;EAQH;;;EAED,IAAIkU,QAAQ,GAAI,YAAW;EACvB,MAAIpZ,IAAI,CAACqZ,KAAT,EAAgB;EACZ,WAAOrZ,IAAI,CAACqZ,KAAZ;EACH,GAFD,MAEO;EACH,WAAO,UAASvgB,CAAT,EAAY;each,UAAIA,CAAC,KAAK,CAAV,EAAa;EACT,eAAO,CAAP;EACH,OAFD,MAEO,IAAIA,CAAC,GAAG,CAAR,EAAW;EACd,eAAOkH,IAAI,CAACsZ,IAAL,CAAUxgB,CAAV,CAAP;EACH,OAFM,MAEA;EACH,eAAOkH,IAAI,CAACuZ,KAAL,CAAWzgB,CAAX,CAAP;EACH;EACJ,KARD;EASH;EACJ,CAdc,EAAf;EAgBA;EACA;;;EACA,SAAS2V,KAAT,CAAepK,IAAf,EAAqB3M,EAArB,EAAyBG,GAAzB,EAA8BmY,IAA9B,EAAoC;EAChC,MAAI,OAAO,IAAP,KAAgB,WAAhB,IAA+B,KAAK1L,WAAL,KAAqBmK,KAApD,IACA,OAAO,IAAP,KAAgB,WADpB,EACiC;EAC7B,WAAO,IAAIA,KAAJ,CAAUpK,IAAV,EAAgB3M,EAAhB,CAAP;EACH;;EACDkd,EAAAA,SAAS,CAAC,OAAD,EAAUvQ,IAAV,EAAgB,QAAhB,EAA0B,CAA1B,CAAT;EACAuQ,EAAAA,SAAS,CAAC,OAAD,EAAUld,EAAV,EAAc,UAAd,EAA0B,CAA1B,CAAT;;EACA,MAAIG,GAAJ,EAAS;EACL,QAAImY,IAAJ,EAAU;EACN,WAAKC,OAAL,GAAepY,GAAf;EACH,KAFD,MAEO;EACH,WAAKoY,OAAL,GAAeC,UAAU,CAACrY,GAAD,CAAzB;EACH;EACJ;;EACD,OAAK2M,QAAL,GAAgBH,IAAhB;EACA,OAAKmV,MAAL,GAAc9hB,EAAd;EACH;;;EAED+W,KAAK,CAACgL,QAAN,GAAiB,UAASpV,IAAT,EAAe3M,EAAf,EAAmBG,GAAnB,EAAwBmY,IAAxB,EAA8B;EAC3C,MAAI0J,KAAK,GAAG,IAAIjL,KAAJ,CAAUpK,IAAV,EAAgB3M,EAAhB,EAAoBG,GAApB,EAAyBmY,IAAzB,CAAZ;EACA0J,EAAAA,KAAK,CAACC,YAAN,GAAqB,IAArB;EACA,SAAOD,KAAP;EACH,CAJD;;;EAMAjL,KAAK,CAACzM,SAAN,CAAgB4X,MAAhB,GAAyB,UAASlM,IAAT,UAA8CmM,YAA9C,EAA4D;EAAA,MAA3CnN,GAA2C,UAA3CA,GAA2C;EAAA,MAAtCoN,aAAsC,UAAtCA,aAAsC;EAAA,MAAvBlM,KAAuB,UAAvBA,KAAuB;EACjF,MAAIzK,IAAI,GAAG;EACP2W,IAAAA,aAAa,EAAbA,aADO;EAEPlM,IAAAA,KAAK,EAALA,KAFO;EAGPiM,IAAAA,YAAY,EAAZA;EAHO,GAAX;;EAKA,MAAIjf,MAAM,GAAG,KAAK4e,MAAL,CAAYhhB,IAAZ,CAAiBkU,GAAjB,EAAsBgB,IAAtB,EAA4BvK,IAA5B,EAAkC,KAAKqB,QAAvC,CAAb;;EACA,SAAO5J,MAAP,CAPiF;EASpF,CATD;;;EAWA6T,KAAK,CAACzM,SAAN,CAAgBvL,QAAhB,GAA2B,YAAW;EAClC,2BAAkB,KAAK+N,QAAvB;EACH,CAFD;;;EAIA,IAAMkV,KAAK,GAAG,cAAd;;EAEA,IAAMK,WAAW,GAAG,CAAC,KAArB;;EACA,SAASF,YAAT,CAAsBG,MAAtB,EAA8B;EAC1B;EAAA,kEAAO,mBAAetM,IAAf,EAAqBvK,IAArB;EAAA,qDAMM8W,YANN,EAUMC,YAVN,EAaM/J,SAbN,EAgBMgK,aAhBN,EAgCMC,WAhCN,EAwCMC,QAxCN,EA6CYC,kBA7CZ,uBA0DYC,QA1DZ;;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA,6EA0DH,mBAAwBhG,IAAxB,EAA8B7V,CAA9B,EAAiCgO,GAAjC;EAAA;;EAAA;EAAA;EAAA;EAAA;EAAA,gCACQ6H,IAAI,YAAY/G,IAAhB,IAAwB+G,IAAI,CAACnG,GAAL,YAAoBjN,OADpD;EAAA;EAAA;EAAA;;EAAA,+BAEYoT,IAAI,CAACc,QAAD,CAFhB;EAAA;EAAA;EAAA;;EAAA,6DAGmBd,IAHnB;;EAAA;EAKYlQ,0BAAAA,IALZ,GAKmBkQ,IAAI,CAACnG,GAAL,CAASvQ,OAAT,EALnB;EAMYzE,0BAAAA,KANZ,GAMoBsT,GAAG,CAACpT,GAAJ,CAAQib,IAAI,CAACnG,GAAb,EAAkB;EAAEvU,4BAAAA,UAAU,EAAE;EAAd,2BAAlB,CANpB;EAOY2gB,0BAAAA,MAPZ,GAOqBP,YAAY,CAAC1F,IAAI,CAACnG,GAAN,CAPjC;EASYqM,0BAAAA,UATZ,GASyBD,MAAM,IACnBN,YAAY,CAAC9gB,KAAD,EAAQmb,IAAR,CADC,IAEbpE,SAAS,CAAC/W,KAAD,CAXrB;;EAAA,gCAaYqhB,UAAU,IAAIlG,IAAI,CAAChH,GAAL,CAASa,GAAT,YAAwBZ,IAblD;EAAA;EAAA;EAAA;;EAAA,+BAegBgN,MAfhB;EAAA;EAAA;EAAA;;EAgBgBE,0BAAAA,QAAQ,GAAGN,WAAW,CAAC7F,IAAI,CAAChH,GAAL,CAASa,GAAV,CAAtB;EAhBhB;EAAA,iCAiB+BkM,kBAAkB,CAAC/F,IAAI,CAAChH,GAAL,CAASa,GAAV,EAAe1P,CAAf,CAjBjD;;EAAA;EAiBgBic,0BAAAA,MAjBhB;EAAA;EAAA;;EAAA;EAmBgBD,0BAAAA,QAAQ,GAAGP,aAAa,CAAC5F,IAAI,CAAChH,GAAL,CAASa,GAAV,CAAxB;EACAuM,0BAAAA,MAAM,GAAGpG,IAAI,CAAChH,GAAL,CAASa,GAAlB;;EApBhB;EAAA,0CAsBuBZ,IAtBvB;EAAA,0CAuBgB+G,IAAI,CAACnG,GAvBrB;EAAA,0CAwBoBZ,IAxBpB;EAAA,0CAyBoBmN,MAzBpB;EAAA;EAAA,iCA0B0BJ,QAAQ,CAAChG,IAAI,CAAChH,GAAL,CAASA,GAAV,EAAe7O,CAAf,EAAkBgO,GAAlB,CA1BlC;;EAAA;EAAA;EAAA;EAAA;;EAAA;EAAA,+BA6BmB2N,QAAQ,CAAChW,IAAD,EAAOjL,KAAP,CA7B3B;EAAA;EAAA;EAAA;;EA8BgBsU,0BAAAA,IA9BhB,GA8BuBtU,KAAK,YAAYwhB,MAAjB,GAA0BrG,IAA1B,GAAiCA,IAAI,CAAChH,GA9B7D;EAAA;EAAA,iCA+B+BnU,KAAK,CAACwgB,MAAN,CAAalM,IAAb,kCAAwBvK,IAAxB;EAA8BuJ,4BAAAA,GAAG,EAAHA;EAA9B,8BAAqC,IAArC,CA/B/B;;EAAA;EA+BgB9R,0BAAAA,MA/BhB;;EAAA,gCAgCgBxB,KAAK,YAAYwhB,MAhCjC;EAAA;EAAA;EAAA;;EAAA,oCAiCwChgB,MAjCxC,EAiCwB4T,IAjCxB,WAiCwBA,IAjCxB,EAiC8BqM,KAjC9B,WAiC8BA,KAjC9B;;EAAA,gCAkCoBrM,IAAI,YAAYhB,IAlCpC;EAAA;EAAA;EAAA;;EAAA,gCAmCwB9O,CAAC,KAAK,CAAC,CAAP,IAAYA,CAAC,IAAI,CAAjB,IAAsBA,CAAC,GAAGqb,WAnClD;EAAA;EAAA;EAAA;;EAAA,6DAoC+BvL,IApC/B;;EAAA;EAsCoB,8BAAI9P,CAAC,KAAK,CAAC,CAAX,EAAc;EACVA,4BAAAA,CAAC,GAAGA,CAAC,GAAG,CAAR;EACH;;EAxCrB,6DAyC2B6b,QAAQ,CAAC/L,IAAD,EAAO9P,CAAP,EAAUmc,KAAV,CAzCnC;;EAAA;EA2CgBjgB,0BAAAA,MAAM,GAAG4T,IAAT;;EA3ChB;EAAA,gCA6CgB5T,MAAM,YAAYuG,OA7ClC;EAAA;EAAA;EAAA;;EAAA,6DA8CuB0D,KAAK,CAACjK,MAAD,CA9C5B;;EAAA;EAAA,gCAgDgBA,MAAM,YAAY4S,IAhDlC;EAAA;EAAA;EAAA;;EAAA,gCAiDoB9O,CAAC,KAAK,CAAC,CAAP,IAAYA,CAAC,IAAI,CAAjB,IAAsBA,CAAC,GAAGqb,WAjD9C;EAAA;EAAA;EAAA;;EAAA,6DAkD2Bnf,MAlD3B;;EAAA;EAoDgB,8BAAI8D,CAAC,KAAK,CAAC,CAAX,EAAc;EACVA,4BAAAA,CAAC,GAAGA,CAAC,GAAG,CAAR;EACH;;EAtDjB,6DAuDuB6b,QAAQ,CAAC3f,MAAD,EAAS8D,CAAT,EAAYgO,GAAZ,CAvD/B;;EAAA;EAAA,+BAyDgBwM,OAAO,CAACte,MAAD,CAzDvB;EAAA;EAAA;EAAA;;EAAA,6DA0DuBA,MA1DvB;;EAAA;EA8DI;EACIwT,0BAAAA,GA/DR,GA+DcmG,IAAI,CAACnG,GA/DnB;;EAAA,gCAgEQA,GAAG,YAAYZ,IAhEvB;EAAA;EAAA;EAAA;;EAAA;EAAA,iCAiEoB+M,QAAQ,CAACnM,GAAD,EAAM1P,CAAN,EAASgO,GAAT,CAjE5B;;EAAA;EAiEQ0B,0BAAAA,GAjER;;EAAA;EAmEQb,0BAAAA,GAnER,GAmEcgH,IAAI,CAAChH,GAnEnB;;EAAA,gCAoEQA,GAAG,YAAYC,IApEvB;EAAA;EAAA;EAAA;;EAAA;EAAA,iCAqEoB+M,QAAQ,CAAChN,GAAD,EAAM7O,CAAN,EAASgO,GAAT,CArE5B;;EAAA;EAqEQa,0BAAAA,GArER;;EAAA;EAuEQY,0BAAAA,IAvER,GAuEe,IAAIX,IAAJ,CAASY,GAAT,EAAcb,GAAd,CAvEf;EAAA,6DAwEWY,IAxEX;;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA,iBA1DG;EAAA;EAAA;;EA0DYoM,cAAAA,QA1DZ;EAAA;EAAA;;EAAA;EAAA,uFA6CH,mBAAkChG,IAAlC,EAAwC7V,CAAxC;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA,gCACQ6V,IAAI,KAAKnH,IADjB;EAAA;EAAA;EAAA;;EAAA,6DAEeA,IAFf;;EAAA;EAIQe,0BAAAA,IAJR,GAIeoG,IAAI,CAACnG,GAJpB;EAAA,0CAKeZ,IALf;EAAA,0CAMYA,IANZ;EAAA,0CAOYW,IAAI,CAACC,GAPjB;EAAA;EAAA,iCAQkBmM,QAAQ,CAACpM,IAAI,CAACZ,GAAN,EAAW7O,CAAX,EAAcgO,GAAd,CAR1B;;EAAA;EAAA;EAAA;EAAA;EAAA,iCAUc4N,kBAAkB,CAAC/F,IAAI,CAAChH,GAAN,CAVhC;;EAAA;EAAA;EAAA;;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA,iBA7CG;EAAA;EAAA;;EA6CY+M,cAAAA,kBA7CZ;EAAA;EAAA;;EAwCMD,cAAAA,QAxCN,sBAwCehW,IAxCf,EAwCqBjL,KAxCrB,EAwC4B;EAC3B,uBAAOA,KAAK,YAAYqV,KAAjB,IACHrV,KAAK,CAACugB,YADH,IAEH,CAACe,QAAQ,CAACvd,QAAT,CAAkBkH,IAAlB,CAFL;EAGH,eA5CE;;EAgCM+V,cAAAA,WAhCN,yBAgCkB7F,IAhClB,EAgCwB;EACvB,oDAAWmG,QAAX,sBAAwBnG,IAAI,CAAChG,QAAL,CAAc,KAAd,EAAqBvS,GAArB,CAAyB,UAASuY,IAAT,EAAe;EAC5D,sBAAIA,IAAI,YAAY/G,IAApB,EAA0B;EACtB,2BAAO+G,IAAI,CAACnG,GAAL,CAASvQ,OAAT,EAAP;EACH;;EACD,wBAAM,IAAIU,KAAJ,CAAU,kCAAV,CAAN;EACH,iBALuB,CAAxB;EAMH,eAvCE;;EAgBM4b,cAAAA,aAhBN,2BAgBoB5F,IAhBpB,EAgB0B;EACzB,oBAAI9S,KAAK,GAAG,EAAZ;;EACA,uBAAO,IAAP,EAAa;EACT,sBAAI8S,IAAI,KAAKnH,IAAb,EAAkB;EACd,wBAAImH,IAAI,YAAYpT,OAApB,EAA6B;EACzBM,sBAAAA,KAAK,CAAClG,IAAN,CAAWgZ,IAAI,CAAC1W,OAAL,EAAX;EACA;EACH;;EACD4D,oBAAAA,KAAK,CAAClG,IAAN,CAAWgZ,IAAI,CAACnG,GAAL,CAASvQ,OAAT,EAAX;EACA0W,oBAAAA,IAAI,GAAGA,IAAI,CAAChH,GAAZ;EACH,mBAPD,MAOO;EACH;EACH;EACJ;;EACD,oDAAWmN,QAAX,GAAwBjZ,KAAxB;EACH,eA/BE;;EAaM0O,cAAAA,SAbN,uBAagB/W,KAbhB,EAauB;EACtB,uBAAOA,KAAK,KAAK0hB,MAAjB;EACH,eAfE;;EAUMZ,cAAAA,YAVN,0BAUmB9gB,KAVnB,EAU0Bmb,IAV1B,EAUgC;EAC/B,uBAAOnb,KAAK,KAAK2hB,MAAV,IAAoBxG,IAAI,CAAChH,GAAL,CAASa,GAAT,YAAwBZ,IAAnD;EACH,eAZE;;EAMMyM,cAAAA,YANN,0BAMmBrV,MANnB,EAM2B;EAC1B,oBAAIP,IAAI,GAAGO,MAAM,CAAC/G,OAAP,EAAX;EACA,uBAAOmd,UAAU,CAAC7d,QAAX,CAAoBkH,IAApB,CAAP;EACH,eATE;;EACCqI,cAAAA,GADD,GACOvJ,IAAI,CAAC,KAAD,CAAJ,GAAc,IADrB;EAECuX,cAAAA,QAFD,GAEY,EAFZ;EAGCM,cAAAA,UAHD,GAGc,CAAC,KAAD,EAAQ,MAAR,EAAgB,QAAhB,CAHd;EAICF,cAAAA,MAJD,GAIUzhB,UAAU,CAACC,GAAX,CAAe,QAAf,CAJV;EAKCyhB,cAAAA,MALD,GAKU1hB,UAAU,CAACC,GAAX,CAAe,QAAf,CALV;;EAAA,oBAqICoU,IAAI,CAACH,GAAL,YAAoBC,IAApB,IAA4B7P,OAAO,CAACsd,QAAR,CAAiBvN,IAAI,CAACH,GAAL,CAASa,GAA1B,CArI7B;EAAA;EAAA;EAAA;;EAAA,8BAsIQvJ,KAtIR;EAAA;EAAA,qBAsIqB0V,QAAQ,CAAC7M,IAAD,EAAOA,IAAI,CAACH,GAAL,CAASa,GAAT,CAAavQ,OAAb,EAAP,EAA+B6O,GAA/B,CAtI7B;;EAAA;EAAA,8CAsIkE0B,GAtIlE;EAAA;;EAAA;EAAA,mBAwIC4L,MAxID;EAAA;EAAA;EAAA;;EAAA,8BAyIQnV,KAzIR;EAAA;EAAA,qBAyIqB0V,QAAQ,CAAC7M,IAAD,EAAO,CAAP,EAAUhB,GAAV,CAzI7B;;EAAA;EAAA,8CAyI6C0B,GAzI7C;EAAA;;EAAA;EAAA,8BA2IIvJ,KA3IJ;EAAA;EAAA,qBA2IiB0V,QAAQ,CAAC7M,IAAD,EAAO,CAAC,CAAR,EAAWhB,GAAX,CA3IzB;;EAAA;EAAA,8CA2I0C0B,GA3I1C;EAAA;;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA,KAAP;;EAAA;EAAA;EAAA;EAAA;EA6IH;EAED;EACA;;;EACA,SAASwM,MAAT,CAAgBljB,EAAhB,EAAoBgV,GAApB,EAAyB;EACrB,OAAKE,OAAL,GAAeF,GAAf;EACA,OAAK8M,MAAL,GAAc9hB,EAAd,CAFqB;;EAIrB,OAAKiiB,YAAL,GAAoB,IAApB;EACH;;EACDiB,MAAM,CAACM,aAAP,GAAuBzW,MAAM,OAAN,CAAW,OAAX,CAAvB;;EAEAmW,MAAM,CAAC5Y,SAAP,GAAmBvG,MAAM,CAAC0f,MAAP,CAAc1M,KAAK,CAACzM,SAApB,CAAnB;;EACA4Y,MAAM,CAAC5Y,SAAP,CAAiB4X,MAAjB,GAA0B,UAASlM,IAAT,UAA+BmM,YAA/B,EAA6C;EAAA,MAA5BjM,KAA4B,UAA5BA,KAA4B;EAAA,MAArBlB,GAAqB,UAArBA,GAAqB;EACnE,MAAIvJ,IAAI,GAAG;EACPyK,IAAAA,KAAK,EAALA,KADO;EAEPlB,IAAAA,GAAG,EAAHA,GAFO;EAGPoN,IAAAA,aAAa,EAAE,KAAKlN,OAHb;EAIPiN,IAAAA,YAAY,EAAZA;EAJO,GAAX;EAMA,SAAO,KAAKL,MAAL,CAAYhhB,IAAZ,CAAiBkU,GAAjB,EAAsBgB,IAAtB,EAA4BvK,IAA5B,EAAkC,KAAKqB,QAAL,IAAiB,QAAnD,CAAP;EACH,CARD;;EASAoW,MAAM,CAAC5Y,SAAP,CAAiBsC,WAAjB,GAA+BsW,MAA/B;;EACAA,MAAM,CAAC5Y,SAAP,CAAiBvL,QAAjB,GAA4B,YAAW;EACnC,MAAI,KAAK+N,QAAT,EAAmB;each,8BAAmB,KAAKA,QAAxB;EACH;;EACD,SAAO,WAAP;EACH,CALD;;EAMAoW,MAAM,CAACQ,SAAP,GAAmB,QAAnB;EAEA;EACA;;MACMC;;;;;;;;;;;;IAAkBT;;EAExBA,MAAM,CAACS,SAAP,GAAmBA,SAAnB;EAEA;EACA;EACA;EACA;;EACA,SAASC,gBAAT,CAA0B9K,OAA1B,EAAmC9C,IAAnC,EAAyCwF,OAAzC,EAAkDqI,eAAlD,EAA+E;EAAA,MAAZV,KAAY,uEAAJ,EAAI;EAC3E,MAAIH,QAAQ,GAAG;EACX,WAAO;EACHxH,MAAAA,OAAO,EAAE,EADN;EACW;EACdsI,MAAAA,KAAK,EAAE;EAFJ,KADI;EAKXtI,IAAAA,OAAO,EAAE;EALE,GAAf;EAOA,MAAQuI,SAAR,GAA8BZ,KAA9B,CAAQY,SAAR;EAAA,MAAmBV,MAAnB,GAA8BF,KAA9B,CAAmBE,MAAnB,CAR2E;EAU3E;EACA;EACA;;EACA,WAASliB,GAAT,CAAaC,CAAb,EAAgB;EACZ;EACA,QAAIK,QAAQ,EAAZ,EAAgB;EACZM,MAAAA,OAAO,CAACZ,GAAR,CAAYC,CAAZ;EACH;EACJ;;EACDD,EAAAA,GAAG,CAACqa,OAAD,CAAH;EACA;;EACA,WAASqH,QAAT,CAAkB/J,OAAlB,EAA2B9C,IAA3B,EAAuE;EAAA,QAAtCgO,aAAsC,uEAAtB,EAAsB;EAAA,QAAlBC,QAAkB,uEAAP,KAAO;EACnE9iB,IAAAA,GAAG,CAAC;EACA6U,MAAAA,IAAI,EAAEA,IAAI,IAAIjX,QAAQ,CAACiX,IAAD,EAAO,IAAP,CADtB;EAEA8C,MAAAA,OAAO,EAAEA,OAAO,IAAI/Z,QAAQ,CAAC+Z,OAAD,EAAU,IAAV;EAF5B,KAAD,CAAH;;EAIA,QAAI0I,OAAO,CAAC1I,OAAD,CAAP,IAAoB,EAAEA,OAAO,YAAYrP,OAArB,CAAxB,EAAuD;EACnD,aAAO8X,SAAS,CAACzI,OAAD,EAAU9C,IAAV,CAAhB;EACH;;EACD,QAAI8C,OAAO,YAAYrP,OAAnB,IACA+R,OAAO,CAAC/V,QAAR,CAAiBqT,OAAO,CAACxX,OAAR,EAAjB,CADJ,EACyC;EACrC,UAAM2V,GAAG,GAAG8M,SAAS,CAAC9M,GAAV,CAAcjB,IAAd,CAAZ,CADqC;;EAGrC,UAAIvM,OAAO,CAACwD,EAAR,CAAW+I,IAAX,EAAiB8C,OAAjB,CAAJ,EAA+B;EAC3B,YAAI,OAAO7B,GAAP,KAAe,WAAnB,EAAgC;EAC5B,iBAAO,IAAP;EACH;;EACD,eAAOA,GAAG,KAAKoM,MAAR,IAAkBpM,GAAG,KAAKtV,UAAjC;EACH;;EACD,aAAO,KAAP;EACH,KAnBkE;;;EAqBnE,QAAImX,OAAO,YAAYhD,IAAnB,IACAgD,OAAO,CAACpC,GAAR,YAAuBZ,IADvB,IAEAgD,OAAO,CAACpC,GAAR,CAAYb,GAAZ,YAA2BC,IAF3B,IAGArM,OAAO,CAACwD,EAAR,CAAW6L,OAAO,CAACpC,GAAR,CAAYb,GAAZ,CAAgBa,GAA3B,EAAgCmN,eAAhC,CAHJ,EAGsD;EAClD1iB,MAAAA,GAAG,CAAC,MAAD,CAAH;;EACA,UAAI6U,IAAI,KAAKN,IAAb,EAAkB;EACdvU,QAAAA,GAAG,CAAC;EAAE2X,UAAAA,OAAO,EAAEA,OAAO,CAAC/Z,QAAR;EAAX,SAAD,CAAH;;EACA,YAAI+Z,OAAO,CAACpC,GAAR,CAAYA,GAAZ,YAA2BjN,OAA/B,EAAwC;EACpC,cAAIqP,OAAO,CAACpC,GAAR,CAAYb,GAAZ,YAA2BC,IAA3B,IACArM,OAAO,CAACwD,EAAR,CAAW6L,OAAO,CAACpC,GAAR,CAAYb,GAAZ,CAAgBa,GAA3B,EAAgCmN,eAAhC,CADJ,EACsD;EAClD,gBAAIlX,MAAI,GAAGmM,OAAO,CAACpC,GAAR,CAAYA,GAAZ,CAAgBvQ,OAAhB,EAAX;;EACA,gBAAM2U,IAAI,GAAGhC,OAAO,CAAC4E,SAAR,EAAb;;EACA,gBAAIjU,OAAO,CAACwD,EAAR,CAAW6N,IAAI,CAACpE,GAAhB,EAAqBmN,eAArB,CAAJ,EAA2C;EACvCb,cAAAA,QAAQ,CAAC,KAAD,CAAR,CAAgBxH,OAAhB,CAAwB7O,MAAxB,IAAgC,IAAhC;EACA,qBAAO,IAAP;EACH,aAHD,MAGO;EACH,qBAAO,KAAP;EACH;EACJ;;EACD,cAAIA,IAAI,GAAGmM,OAAO,CAACpC,GAAR,CAAYA,GAAZ,CAAgBvQ,OAAhB,EAAX;;EACA,cAAI6c,QAAQ,CAAC,KAAD,CAAR,CAAgBxH,OAAhB,CAAwB7O,IAAxB,CAAJ,EAAmC;EAC/B,kBAAM,IAAI9F,KAAJ,CAAU,qCACA,cADV,CAAN;EAEH;;EACDmc,UAAAA,QAAQ,CAAC,KAAD,CAAR,CAAgBxH,OAAhB,CAAwB7O,IAAxB,IAAgCqJ,IAAhC;EACH;EACJ;EACJ;;EACD,QAAI8C,OAAO,YAAYhD,IAAnB,IACAgD,OAAO,CAACjD,GAAR,YAAuBC,IADvB,IAEArM,OAAO,CAACwD,EAAR,CAAW6L,OAAO,CAACjD,GAAR,CAAYa,GAAvB,EAA4BmN,eAA5B,CAFJ,EAEkD;EAC9C;EACA,UAAI/K,OAAO,CAACjD,GAAR,CAAYA,GAAZ,KAAoBH,IAAxB,EAA6B;EACzB,YAAIoD,OAAO,CAACjD,GAAR,CAAYA,GAAZ,YAA2BC,IAA/B,EAAqC;EACjC;EACA,cAAMoO,QAAQ,GAAGpL,OAAO,CAACjD,GAAR,CAAYA,GAAZ,CAAgBnS,MAAhB,EAAjB;EACA,cAAIygB,QAAQ,GAAGnO,IAAI,CAACtS,MAAL,EAAf;EACA,cAAImJ,IAAI,GAAGmJ,IAAX;;EACA,iBAAOmO,QAAQ,GAAG,CAAX,GAAeD,QAAtB,EAAgC;EAC5BrX,YAAAA,IAAI,GAAGA,IAAI,CAACgJ,GAAZ;EACAsO,YAAAA,QAAQ;EACX;;EACD,cAAM/Y,IAAI,GAAGyB,IAAI,CAACgJ,GAAlB;EACAhJ,UAAAA,IAAI,CAACgJ,GAAL,GAAWH,IAAX;;EACA,cAAI,CAACmN,QAAQ,CAAC/J,OAAO,CAACjD,GAAR,CAAYA,GAAb,EAAkBzK,IAAlB,EAAwB4Y,aAAxB,EAAuCC,QAAvC,CAAb,EAA+D;EAC3D,mBAAO,KAAP;EACH;EACJ;EACJ;;EACD,UAAInL,OAAO,CAACpC,GAAR,YAAuBjN,OAA3B,EAAoC;EAChC,YAAIkD,MAAI,GAAGmM,OAAO,CAACpC,GAAR,CAAY5J,QAAvB;;EACA,YAAIkW,QAAQ,CAAC,KAAD,CAAR,CAAgBxH,OAAhB,CAAwB7O,MAAxB,KACA,CAACqX,aAAa,CAACve,QAAd,CAAuBkH,MAAvB,CADD,IACiC,CAACsX,QADtC,EACgD;EAC5C,gBAAM,IAAIpd,KAAJ,CAAU,8CAAV,CAAN;EACH;;EACD1F,QAAAA,GAAG,CAAC,MAAD,CAAH;;EACA,YAAI6U,IAAI,KAAKN,IAAb,EAAkB;EACdvU,UAAAA,GAAG,CAAC,MAAD,CAAH;;EACA,cAAI8iB,QAAJ,EAAc;EACV9iB,YAAAA,GAAG,CAAC,KAAD,CAAH;EACA6hB,YAAAA,QAAQ,CAAC,KAAD,CAAR,CAAgBxH,OAAhB,CAAwB7O,MAAxB,IAAgC+I,IAAhC;EACH,WAHD,MAGO;EACHvU,YAAAA,GAAG,CAAC,MAAD,CAAH;EACA6hB,YAAAA,QAAQ,CAAC,KAAD,CAAR,CAAgBxH,OAAhB,CAAwB7O,MAAxB,IAAgC,IAAhC;EACH;EACJ,SATD,MASO,IAAIqJ,IAAI,YAAYF,IAAhB,KACCE,IAAI,CAACU,GAAL,YAAoBZ,IAApB,IAA4BE,IAAI,CAACU,GAAL,KAAahB,IAD1C,CAAJ,EACoD;EACvDvU,UAAAA,GAAG,CAAC,UAAU8iB,QAAX,CAAH;;EACA,cAAIA,QAAJ,EAAc;EACV,gBAAIjB,QAAQ,CAAC,KAAD,CAAR,CAAgBxH,OAAhB,CAAwB7O,MAAxB,CAAJ,EAAmC;EAC/B,kBAAIkQ,IAAI,GAAGmG,QAAQ,CAAC,KAAD,CAAR,CAAgBxH,OAAhB,CAAwB7O,MAAxB,CAAX;;EACA,kBAAIkQ,IAAI,KAAKnH,IAAb,EAAkB;EACdmH,gBAAAA,IAAI,GAAG,IAAI/G,IAAJ,CAASJ,IAAT,EAAc,IAAII,IAAJ,CAASE,IAAT,EAAeN,IAAf,CAAd,CAAP;EACH,eAFD,MAEO;EACHmH,gBAAAA,IAAI,GAAGA,IAAI,CAACxM,MAAL,CAAY,IAAIyF,IAAJ,CAASE,IAAT,EAAeN,IAAf,CAAZ,CAAP;EACH;;EACDsN,cAAAA,QAAQ,CAAC,KAAD,CAAR,CAAgBxH,OAAhB,CAAwB7O,MAAxB,IAAgCkQ,IAAhC;EACH,aARD,MAQO;EACHmG,cAAAA,QAAQ,CAAC,KAAD,CAAR,CAAgBxH,OAAhB,CAAwB7O,MAAxB,IAAgC,IAAImJ,IAAJ,CAASE,IAAT,EAAeN,IAAf,CAAhC;EACH;EACJ,WAZD,MAYO;EACHvU,YAAAA,GAAG,CAAC,MAAD,CAAH;EACA6hB,YAAAA,QAAQ,CAAC,KAAD,CAAR,CAAgBxH,OAAhB,CAAwB7O,MAAxB,IAAgC,IAAImJ,IAAJ,CAASE,IAAT,EAAeN,IAAf,CAAhC;EACH;EACJ,SAnBM,MAmBA;EACHvU,UAAAA,GAAG,CAAC,MAAD,CAAH;;EACA,cAAI6U,IAAI,YAAYF,IAApB,EAA0B;EACtB3U,YAAAA,GAAG,CAAC,UAAU8iB,QAAX,CAAH;EACAD,YAAAA,aAAa,CAACngB,IAAd,CAAmB8I,MAAnB;;EACA,gBAAI,CAACqW,QAAQ,CAAC,KAAD,CAAR,CAAgBxH,OAAhB,CAAwB7O,MAAxB,CAAL,EAAoC;EAChCqW,cAAAA,QAAQ,CAAC,KAAD,CAAR,CAAgBxH,OAAhB,CAAwB7O,MAAxB,IAAgC,IAAImJ,IAAJ,CAC5BE,IAD4B,EAE5BN,IAF4B,CAAhC;EAIH,aALD,MAKO;EACH,kBAAMmH,KAAI,GAAGmG,QAAQ,CAAC,KAAD,CAAR,CAAgBxH,OAAhB,CAAwB7O,MAAxB,CAAb;EACAqW,cAAAA,QAAQ,CAAC,KAAD,CAAR,CAAgBxH,OAAhB,CAAwB7O,MAAxB,IAAgCkQ,KAAI,CAACxM,MAAL,CAC5B,IAAIyF,IAAJ,CACIE,IADJ,EAEIN,IAFJ,CAD4B,CAAhC;EAMH;;EACDvU,YAAAA,GAAG,CAAC;EAAEijB,cAAAA,MAAM,EAAEpB,QAAQ,CAAC,KAAD,CAAR,CAAgBxH,OAAhB,CAAwB7O,MAAxB,EAA8B5N,QAA9B;EAAV,aAAD,CAAH;EACH,WAlBD,MAkBO;EACHoC,YAAAA,GAAG,CAAC,MAAD,CAAH;EACA,mBAAO,KAAP,CAFG;EAIN;EACJ;;EACD,eAAO,IAAP;EACH,OA9DD,MA8DO,IAAI2X,OAAO,CAACpC,GAAR,YAAuBZ,IAA3B,EAAiC;EACpC,YAAI/L,KAAK,sBAAOia,aAAP,CAAT;;EACA,YAAIhO,IAAI,KAAKN,IAAb,EAAkB;EACdvU,UAAAA,GAAG,CAAC,MAAD,CAAH;EACA6hB,UAAAA,QAAQ,CAAC,KAAD,CAAR,CAAgBc,KAAhB,CAAsBjgB,IAAtB,CAA2B6R,IAA3B;EACA,iBAAO,IAAP;EACH;;EACDvU,QAAAA,GAAG,CAAC,OAAD,CAAH;EACA,YAAI0b,MAAI,GAAG7G,IAAX;;EACA,eAAO6G,MAAI,YAAY/G,IAAvB,EAA6B;EACzB,cAAI,CAAC+M,QAAQ,CAAC/J,OAAO,CAACpC,GAAT,EAAcmG,MAAI,CAACnG,GAAnB,EAAwB3M,KAAxB,EAA+B,IAA/B,CAAb,EAAmD;EAC/C,mBAAO,KAAP;EACH;;EACD8S,UAAAA,MAAI,GAAGA,MAAI,CAAChH,GAAZ;EACH;;EACD,eAAO,IAAP;EACH;;EACD,aAAO,KAAP;EACH;;EACD,QAAIiD,OAAO,YAAYrP,OAAvB,EAAgC;EAC5B,UAAIA,OAAO,CAACwD,EAAR,CAAW6L,OAAX,EAAoB+K,eAApB,CAAJ,EAA0C;EACtC,cAAM,IAAIhd,KAAJ,CAAU,mCAAV,CAAN;EACH;;EACD1F,MAAAA,GAAG,CAAC,OAAD,CAAH;EACA,UAAMwL,MAAI,GAAGmM,OAAO,CAAChM,QAArB;;EACA,UAAI0O,OAAO,CAAC/V,QAAR,CAAiBkH,MAAjB,CAAJ,EAA4B;EACxB,eAAO,IAAP;EACH;;EACDxL,MAAAA,GAAG,CAAC;EAAEwL,QAAAA,IAAI,EAAJA,MAAF;EAAQsX,QAAAA,QAAQ,EAARA;EAAR,OAAD,CAAH;;EACA,UAAIA,QAAJ,EAAc;EACVjB,QAAAA,QAAQ,CAAC,KAAD,CAAR,CAAgBxH,OAAhB,CAAwB7O,MAAxB,IAAgCqW,QAAQ,CAAC,KAAD,CAAR,CAAgBxH,OAAhB,CAAwB7O,MAAxB,KAAiC,EAAjE;;EACAqW,QAAAA,QAAQ,CAAC,KAAD,CAAR,CAAgBxH,OAAhB,CAAwB7O,MAAxB,EAA8B9I,IAA9B,CAAmCmS,IAAnC;EACH;;EACDgN,MAAAA,QAAQ,CAACxH,OAAT,CAAiB7O,MAAjB,IAAyBqJ,IAAzB;;EACA,UAAI,CAACgN,QAAQ,CAACxH,OAAT,CAAiB7O,MAAjB,CAAL,EAA6B;;EAE7B,aAAO,IAAP;EACH;;EACD,QAAImM,OAAO,YAAYhD,IAAnB,IAA2BE,IAAI,YAAYF,IAA/C,EAAqD;EACjD3U,MAAAA,GAAG,CAAC,OAAD,CAAH;EACAA,MAAAA,GAAG,CAAC;EACAqT,QAAAA,CAAC,EAAE,EADH;EAEAwB,QAAAA,IAAI,EAAEA,IAAI,IAAIA,IAAI,CAACjX,QAAL,EAFd;EAGA+Z,QAAAA,OAAO,EAAEA,OAAO,CAAC/Z,QAAR;EAHT,OAAD,CAAH;;EAKA,UAAIiX,IAAI,CAACH,GAAL,KAAaH,IAAjB,EAAsB;EAClB;EACA;EACA;EACA,YAAI2O,YAAY,GAAGvL,OAAO,CAACpC,GAAR,YAAuBjN,OAAvB,IACfqP,OAAO,CAACjD,GAAR,YAAuBpM,OAD3B;;EAEA,YAAI4a,YAAJ,EAAkB;EACd;EACA;EACA,cAAI,CAACxB,QAAQ,CAAC/J,OAAO,CAACpC,GAAT,EAAcV,IAAI,CAACU,GAAnB,EAAwBsN,aAAxB,EAAuCC,QAAvC,CAAb,EAA+D;EAC3D,mBAAO,KAAP;EACH;;EACD9iB,UAAAA,GAAG,CAAC,WAAD,CAAH;;EACA,cAAIwL,MAAI,GAAGmM,OAAO,CAACjD,GAAR,CAAY1P,OAAZ,EAAX;;EACA,cAAI,EAAEwG,MAAI,IAAIqW,QAAQ,CAACxH,OAAnB,CAAJ,EAAiC;EAC7BwH,YAAAA,QAAQ,CAACxH,OAAT,CAAiB7O,MAAjB,IAAyB+I,IAAzB;EACH;;EACD/I,UAAAA,MAAI,GAAGmM,OAAO,CAACpC,GAAR,CAAYvQ,OAAZ,EAAP;;EACA,cAAI,EAAEwG,MAAI,IAAIqW,QAAQ,CAACxH,OAAnB,CAAJ,EAAiC;EAC7BwH,YAAAA,QAAQ,CAACxH,OAAT,CAAiB7O,MAAjB,IAAyBqJ,IAAI,CAACU,GAA9B;EACH;;EACD,iBAAO,IAAP;EACH;EACJ;;EACDvV,MAAAA,GAAG,CAAC;EACA2X,QAAAA,OAAO,EAAEA,OAAO,CAAC/Z,QAAR,EADT;EAEAiX,QAAAA,IAAI,EAAEA,IAAI,CAACjX,QAAL;EAFN,OAAD,CAAH,CA/BiD;;EAoCjD,UAAI+Z,OAAO,CAACjD,GAAR,YAAuBC,IAAvB,IACAgD,OAAO,CAACpC,GAAR,YAAuBjN,OADvB,IAEAqP,OAAO,CAACjD,GAAR,CAAYA,GAAZ,YAA2BC,IAF3B,IAGAgD,OAAO,CAACjD,GAAR,CAAYa,GAAZ,YAA2BjN,OAH3B,IAIAA,OAAO,CAACwD,EAAR,CAAW6L,OAAO,CAACjD,GAAR,CAAYA,GAAZ,CAAgBa,GAA3B,EAAgCmN,eAAhC,CAJA,IAKA/K,OAAO,CAACjD,GAAR,CAAYA,GAAZ,CAAgBA,GAAhB,YAA+BC,IAL/B,IAMA,CAACrM,OAAO,CAACwD,EAAR,CAAW6L,OAAO,CAACjD,GAAR,CAAYA,GAAZ,CAAgBA,GAAhB,CAAoBa,GAA/B,EAAoCmN,eAApC,CAND,IAOAhB,QAAQ,CAAC/J,OAAO,CAACpC,GAAT,EAAcV,IAAI,CAACU,GAAnB,EAAwBsN,aAAxB,EAAuCC,QAAvC,CAPR,IAQApB,QAAQ,CAAC/J,OAAO,CAACjD,GAAR,CAAYA,GAAZ,CAAgBA,GAAjB,EAAsBG,IAAI,CAACH,GAA3B,EAAgCmO,aAAhC,EAA+CC,QAA/C,CARZ,EAQsE;EAClE,YAAMtX,MAAI,GAAGmM,OAAO,CAACjD,GAAR,CAAYa,GAAZ,CAAgB5J,QAA7B;EACA3L,QAAAA,GAAG,CAAC;EACA2X,UAAAA,OAAO,EAAEA,OAAO,CAACpC,GAAR,CAAY3X,QAAZ,EADT;EAEAiX,UAAAA,IAAI,EAAEA,IAAI,CAACU,GAAL,CAAS3X,QAAT,EAFN;EAGA4N,UAAAA,IAAI,EAAJA;EAHA,SAAD,CAAH;;EAKA,YAAI6O,OAAO,CAAC/V,QAAR,CAAiBkH,MAAjB,CAAJ,EAA4B;EACxB,iBAAO,IAAP;EACH;;EACDqW,QAAAA,QAAQ,CAAC,KAAD,CAAR,CAAgBxH,OAAhB,CAAwB7O,MAAxB,IAAgC,IAAhC;EACA,eAAO,IAAP;EACH;;EACDxL,MAAAA,GAAG,CAAC,OAAD,CAAH;;EACA,UAAI0hB,QAAQ,CAAC/J,OAAO,CAACpC,GAAT,EAAcV,IAAI,CAACU,GAAnB,EAAwBsN,aAAxB,EAAuCC,QAAvC,CAAR,IACApB,QAAQ,CAAC/J,OAAO,CAACjD,GAAT,EAAcG,IAAI,CAACH,GAAnB,EAAwBmO,aAAxB,EAAuCC,QAAvC,CADZ,EAC8D;EAC1D,eAAO,IAAP;EACH;EACJ,KA9DD,MA8DO,IAAInL,OAAO,KAAKpD,IAAZ,KAAoBM,IAAI,KAAKN,IAAT,IAAgBM,IAAI,KAAKrX,SAA7C,CAAJ,EAA6D;EAChE;EACA;EACA,aAAO,IAAP;EACH,KAJM,MAIA,IAAIma,OAAO,CAACpC,GAAR,YAAuBZ,IAAvB,IACArM,OAAO,CAACwD,EAAR,CAAW6L,OAAO,CAACpC,GAAR,CAAYA,GAAvB,EAA4BmN,eAA5B,CADJ,EACkD;EACrD;EACA,YAAM,IAAIhd,KAAJ,CAAU,mCAAV,CAAN;EACH,KAJM,MAIA;EACH,aAAO,KAAP;EACH;EACJ;EACD;;;EACA,MAAIgc,QAAQ,CAAC/J,OAAD,EAAU9C,IAAV,CAAZ,EAA6B;EACzB,WAAOgN,QAAP;EACH;EACJ;EAED;EACA;EACA;EACA;;;EACA,SAASsB,aAAT,CAAuBzH,IAAvB,EAA6B0H,OAA7B,EAAsC;EAClC,WAAS1B,QAAT,CAAkBhG,IAAlB,EAAwB;EACpB,QAAIA,IAAI,YAAY/G,IAApB,EAA0B;EACtB,UAAI,CAACyO,OAAO,CAAC7gB,MAAb,EAAqB;EACjB,eAAOmZ,IAAP;EACH;;EACD,UAAMnG,GAAG,GAAGmM,QAAQ,CAAChG,IAAI,CAACnG,GAAN,CAApB;EACA,UAAMb,GAAG,GAAGgN,QAAQ,CAAChG,IAAI,CAAChH,GAAN,CAApB,CALsB;EAOtB;;EACA,aAAO,IAAIC,IAAJ,CAASY,GAAT,EAAcb,GAAd,CAAP;EACH,KATD,MASO,IAAIgH,IAAI,YAAYpT,OAApB,EAA6B;EAChC,UAAI+a,WAAW,GAAGD,OAAO,CAACzM,IAAR,CAAa,UAACrK,MAAD,EAAY;EACvC,eAAOA,MAAM,CAACA,MAAP,KAAkBoP,IAAzB;EACH,OAFiB,CAAlB;;EAGA,UAAI2H,WAAJ,EAAiB;EACb,eAAO/a,OAAO,CAAC+a,WAAW,CAAC7X,IAAb,CAAd;EACH;;EACD,aAAOkQ,IAAP;EACH,KARM,MAQA;EACH,aAAOA,IAAP;EACH;EACJ;;EACD,SAAOgG,QAAQ,CAAChG,IAAD,CAAf;EACH;;;EAED,SAAS4H,gBAAT,GAAwC;EAAA,MAAdpf,OAAc,uEAAJ,EAAI;EACpC,MACI2d,QADJ,GAMkC3d,OANlC,CACI2d,QADJ;EAAA,MAEIlM,IAFJ,GAMkCzR,OANlC,CAEIyR,IAFJ;EAAA,MAGIqM,KAHJ,GAMkC9d,OANlC,CAGI8d,KAHJ;EAAA,MAII3H,OAJJ,GAMkCnW,OANlC,CAIImW,OAJJ;EAAA,MAKIzR,KALJ,GAMkC1E,OANlC,CAKI0E,KALJ;EAAA,MAMc8Z,eANd,GAMkCxe,OANlC,CAMI4e,QANJ;EAOA,MAAIM,OAAO,GAAG,EAAd;;EACA,WAASG,YAAT,CAAsBxX,MAAtB,EAA8B;EAC1B,QAAIA,MAAM,YAAYzD,OAAtB,EAA+B;EAC3B,aAAO,IAAP;EACH;;EACD,WAAO,CAAC,QAAD,EAAW,QAAX,EAAqBhE,QAArB,SAAqCyH,MAArC,EAAP;EACH;;EACD,WAAS8Q,SAAT,CAAmB9Q,MAAnB,EAA2B;EACvB,QAAI,CAACwX,YAAY,CAACxX,MAAD,CAAjB,EAA2B;EACvB,UAAM7D,CAAC,GAAGzI,IAAI,CAACsM,MAAD,CAAd;EACA,YAAM,IAAIrG,KAAJ,mDAAqDwC,CAArD,EAAN;EACH;;EACD,QAAMsD,IAAI,GAAGO,MAAM,CAAC/G,OAAP,EAAb;;EACA,QAAIwG,IAAI,KAAKkX,eAAb,EAA8B;EAC1B,YAAM,IAAIhd,KAAJ,CAAU,iDAAV,CAAN;EACH,KARsB;;;EAUvB,QAAI8d,MAAM,WAAUhY,IAAV,CAAV;;EACA,QAAI,CAAC,QAAD,EAAW,QAAX,EAAqBlH,QAArB,CAA8Bkf,MAA9B,CAAJ,EAA2C;EACvC,UAAIhY,IAAI,IAAIqW,QAAQ,CAACxH,OAArB,EAA8B;EAC1B,eAAOwH,QAAQ,CAACxH,OAAT,CAAiB7O,IAAjB,CAAP;EACH,OAFD,MAEO,IAAIgY,MAAM,KAAK,QAAX,IAAuBhY,IAAI,CAACvH,KAAL,CAAW,IAAX,CAA3B,EAA6C;EAChD;EACA,YAAMD,KAAK,GAAGwH,IAAI,CAACnH,KAAL,CAAW,GAAX,CAAd;EACA,YAAMof,KAAK,GAAGzf,KAAK,CAAC,CAAD,CAAnB;;EACA,YAAIyf,KAAK,IAAI5B,QAAQ,CAACxH,OAAtB,EAA+B;EAC3B,iBAAO1F,IAAI,CAACkB,SAAL,CAAe,CAClBvN,OAAO,CAAC,GAAD,CADW,EAElBuZ,QAAQ,CAACxH,OAAT,CAAiBoJ,KAAjB,CAFkB,EAGpBtR,MAHoB,CAGbnO,KAAK,CAACkH,KAAN,CAAY,CAAZ,EAAe/H,GAAf,CAAmB,UAAAlD,CAAC;EAAA,mBAAI6H,OAAO,CAAC7H,CAAD,CAAX;EAAA,WAApB,CAHa,CAAf,CAAP;EAIH;EACJ;EACJ;;EACD,QAAIoa,OAAO,CAAC/V,QAAR,CAAiBkH,IAAjB,CAAJ,EAA4B;EACxB,aAAOlD,OAAO,CAACkD,IAAD,CAAd;EACH;;EACD,WAAOkY,MAAM,CAAClY,IAAD,CAAb;EACH;;EACD,WAASxL,GAAT,CAAaC,CAAb,EAAgB;EACZ;EACA,QAAIK,QAAQ,EAAZ,EAAgB;EACZM,MAAAA,OAAO,CAACZ,GAAR,CAAYC,CAAZ;EACH;EACJ;;EACD,WAASyjB,MAAT,CAAgBlY,IAAhB,EAAsB;EAClB,QAAI,CAAC4X,OAAO,CAAC5X,IAAD,CAAZ,EAAoB;EAChB,UAAIsK,GAAG,GAAGkM,KAAK,CAAClM,GAAN,CAAUtK,IAAV,CAAV;EACA,UAAMmY,WAAW,GAAGrX,MAAM,CAACd,IAAD,CAA1B;;EACA,UAAIsK,GAAJ,EAAS;EACL,YAAMvV,KAAK,GAAGyhB,KAAK,CAACvhB,GAAN,CAAU+K,IAAV,CAAd;EACAwW,QAAAA,KAAK,CAAClS,GAAN,CAAU6T,WAAV,EAAuBpjB,KAAvB;EACH,OAHD,MAGO;EACH,YAAMA,MAAK,GAAGyhB,KAAK,CAACvhB,GAAN,CAAU+K,IAAV,EAAgB;EAAExK,UAAAA,UAAU,EAAE;EAAd,SAAhB,CAAd,CADG;;;EAGH,YAAI,OAAOT,MAAP,KAAiB,WAArB,EAAkC;EAC9ByhB,UAAAA,KAAK,CAAClS,GAAN,CAAU6T,WAAV,EAAuBpjB,MAAvB;EACH;EACJ,OAZe;EAchB;EACA;;;EACAqI,MAAAA,KAAK,CAAClG,IAAN,CAAW;EACP8I,QAAAA,IAAI,EAAJA,IADO;EACDc,QAAAA,MAAM,EAAEqX;EADP,OAAX;EAGAP,MAAAA,OAAO,CAAC5X,IAAD,CAAP,GAAgBmY,WAAhB,CAnBgB;EAqBhB;;EACA,UAAI,OAAOnY,IAAP,KAAgB,QAAhB,IAA4BA,IAAI,CAACvH,KAAL,CAAW,IAAX,CAAhC,EAAkD;EAC9C,iCAAyBuH,IAAI,CAACnH,KAAL,CAAW,GAAX,EAAgBuG,MAAhB,CAAuBgZ,OAAvB,CAAzB;EAAA;EAAA,YAAOH,KAAP;EAAA,YAAiBxZ,IAAjB,gCAD8C;;;EAG9C,YAAImZ,OAAO,CAACK,KAAD,CAAX,EAAoB;EAChB/W,UAAAA,WAAW,CAACiX,WAAD,EAAc,YAAd,GAA6BP,OAAO,CAACK,KAAD,CAApC,4BAAgDxZ,IAAhD,GAAX;EACH;EACJ;EACJ;;EACD,WAAOmZ,OAAO,CAAC5X,IAAD,CAAd;EACH;;EACD,WAASqY,uBAAT,CAAiClO,IAAjC,EAAuCkM,QAAvC,EAAiDrQ,KAAjD,EAAyE;EAAA,QAAjBwJ,IAAiB,uEAAV,YAAM,EAAI;EACrE,QAAQ4E,MAAR,GAAmBpO,KAAnB,CAAQoO,MAAR;EACA5f,IAAAA,GAAG,CAAC,UAAU2V,IAAI,CAAC/X,QAAL,CAAc,IAAd,CAAX,CAAH;EACAoC,IAAAA,GAAG,CAAC6hB,QAAD,CAAH;;EACA,QAAIlM,IAAI,YAAYrN,OAApB,EAA6B;EACzB,UAAMkD,IAAI,GAAGmK,IAAI,CAAC3Q,OAAL,EAAb;EACAhF,MAAAA,GAAG,CAAC,MAAD,CAAH;;EACA,UAAI6hB,QAAQ,CAACrW,IAAD,CAAZ,EAAoB;EAChB,YAAIqW,QAAQ,CAACrW,IAAD,CAAR,YAA0BmJ,IAA9B,EAAoC;EAChC,+BAAqBkN,QAAQ,CAACrW,IAAD,CAA7B;EAAA,cAAQ+J,GAAR,kBAAQA,GAAR;EAAA,cAAab,GAAb,kBAAaA,GAAb;;EACA,cAAIkL,MAAJ,EAAY;EACR,gBAAakE,IAAb,GAAiCvO,GAAjC,CAAQA,GAAR;EAAA,gBAAwBwO,IAAxB,GAAiCxO,GAAjC,CAAmBb,GAAnB;;EACA,gBAAIqP,IAAI,KAAKxP,IAAb,EAAkB;EACdyG,cAAAA,IAAI,CAACxP,IAAD,EAAO,IAAImJ,IAAJ,CAASoP,IAAT,EAAexP,IAAf,CAAP,CAAJ;EACH;;EACD,mBAAOuP,IAAP;EACH;;EACD,cAAIpP,GAAG,KAAKH,IAAZ,EAAiB;EACbyG,YAAAA,IAAI,CAACxP,IAAD,EAAOkJ,GAAP,CAAJ;EACH;;EACD,iBAAOa,GAAP;EACH,SAbD,MAaO,IAAIsM,QAAQ,CAACrW,IAAD,CAAR,YAA0BuC,KAA9B,EAAqC;EACxCiN,UAAAA,IAAI,CAACxP,IAAD,EAAOqW,QAAQ,CAACrW,IAAD,CAAR,CAAeN,KAAf,CAAqB,CAArB,CAAP,CAAJ;EACA,iBAAO2W,QAAQ,CAACrW,IAAD,CAAR,CAAe,CAAf,CAAP;EACH;EACJ;;EACD,aAAOqR,SAAS,CAACrR,IAAD,CAAhB;EACH;;EACD,QAAImK,IAAI,YAAYhB,IAApB,EAA0B;EACtB,UAAIgB,IAAI,CAACJ,GAAL,YAAoBjN,OAApB,IACAqN,IAAI,CAACjB,GAAL,YAAoBC,IADpB,IAEArM,OAAO,CAACwD,EAAR,CAAW6J,IAAI,CAACjB,GAAL,CAASa,GAApB,EAAyBmN,eAAzB,CAFJ,EAE+C;EAC3C1iB,QAAAA,GAAG,CAAC,MAAD,CAAH;;EACA,YAAMwL,MAAI,GAAGmK,IAAI,CAACJ,GAAL,CAASvQ,OAAT,EAAb;;EACA,YAAMoE,IAAI,GAAGyY,QAAQ,CAACrW,MAAD,CAArB;EACAxL,QAAAA,GAAG,CAAC;EAAE2V,UAAAA,IAAI,EAAEA,IAAI,CAAC/X,QAAL,CAAc,IAAd,CAAR;EAA6B4N,UAAAA,IAAI,EAAJA,MAA7B;EAAmCqW,UAAAA,QAAQ,EAARA,QAAnC;EAA6CzY,UAAAA,IAAI,EAAJA;EAA7C,SAAD,CAAH;;EACA,YAAIA,IAAI,KAAK,IAAb,EAAmB;each;EACH,SAFD,MAEO,IAAIA,IAAJ,EAAU;EACbpJ,UAAAA,GAAG,CAAC;EAAEsT,YAAAA,CAAC,EAAEuO,QAAQ,CAACrW,MAAD,CAAR,CAAe5N,QAAf;EAAL,WAAD,CAAH;;EACA,cAAIwL,IAAI,YAAYuL,IAApB,EAA0B;EACtB3U,YAAAA,GAAG,CAAC,eAAe4f,MAAhB,CAAH;EACA5f,YAAAA,GAAG,CAAC;EAAEgkB,cAAAA,MAAM,EAAE5a,IAAI,CAACxL,QAAL;EAAV,aAAD,CAAH;EACA,gBAAQ2X,IAAR,GAAqBnM,IAArB,CAAQmM,GAAR;EAAA,gBAAab,IAAb,GAAqBtL,IAArB,CAAasL,GAAb;;EACA,gBAAIkL,MAAJ,EAAY;EACR,kBAAIlL,IAAG,KAAKH,IAAZ,EAAiB;EACbvU,gBAAAA,GAAG,CAAC,WAAD,CAAH;EACAgb,gBAAAA,IAAI,CAACxP,MAAD,EAAOkJ,IAAP,CAAJ;EACH;;EACD1U,cAAAA,GAAG,CAAC;EAAEuV,gBAAAA,GAAG,EAAEA,IAAG,CAAC3X,QAAJ;EAAP,eAAD,CAAH;EACA,qBAAO2X,IAAP;EACH,aAPD,MAOO;EACH,kBAAIA,IAAG,CAACb,GAAJ,KAAYH,IAAhB,EAAqB;EACjBvU,gBAAAA,GAAG,CAAC,WAAD,CAAH;EACAgb,gBAAAA,IAAI,CAACxP,MAAD,EAAO,IAAImJ,IAAJ,CAASY,IAAG,CAACb,GAAb,EAAkBA,IAAlB,CAAP,CAAJ;EACH;;EACD1U,cAAAA,GAAG,CAAC;EAAEuV,gBAAAA,GAAG,EAAEA,IAAG,CAACA,GAAJ,CAAQ3X,QAAR;EAAP,eAAD,CAAH;EACA,qBAAO2X,IAAG,CAACA,GAAX;EACH;EACJ,WAnBD,MAmBO,IAAInM,IAAI,YAAY2E,KAApB,EAA2B;EAC9B/N,YAAAA,GAAG,CAAC,gBAAgB4f,MAAjB,CAAH;;EACA,gBAAIA,MAAJ,EAAY;EACR5E,cAAAA,IAAI,CAACxP,MAAD,EAAOpC,IAAI,CAAC8B,KAAL,CAAW,CAAX,CAAP,CAAJ;EACA,qBAAOyJ,IAAI,CAACkB,SAAL,CAAezM,IAAf,CAAP;EACH,aAHD,MAGO;EACH,kBAAMa,MAAI,GAAGb,IAAI,CAAC8B,KAAL,CAAW,CAAX,CAAb;;EACA,kBAAIjB,MAAI,CAAC1H,MAAT,EAAiB;EACbyY,gBAAAA,IAAI,CAACxP,MAAD,EAAOvB,MAAP,CAAJ;EACH;;EACD,qBAAOb,IAAI,CAAC,CAAD,CAAX;EACH;EACJ,WAZM,MAYA;EACH,mBAAOA,IAAP;EACH;EACJ;EACJ;;EACDpJ,MAAAA,GAAG,CAAC,gBAAgB2V,IAAI,CAAC/X,QAAL,EAAjB,CAAH;EACA,UAAM0W,IAAI,GAAGuP,uBAAuB,CAAClO,IAAI,CAACJ,GAAN,EAAWsM,QAAX,EAAqBrQ,KAArB,EAA4BwJ,IAA5B,CAApC;EACA,UAAM/Q,IAAI,GAAG4Z,uBAAuB,CAAClO,IAAI,CAACjB,GAAN,EAAWmN,QAAX,EAAqBrQ,KAArB,EAA4BwJ,IAA5B,CAApC;EACA,aAAO,IAAIrG,IAAJ,CACHL,IADG,EAEHrK,IAFG,CAAP;EAIH;;EACD,WAAO0L,IAAP;EACH;;EACD,WAASsO,YAAT,CAAsBC,MAAtB,EAA8BC,UAA9B,EAA0C;EACtC,QAAMrN,MAAM,GAAGlU,MAAM,CAACkU,MAAP,CAAcoN,MAAd,CAAf;EACA,QAAM7J,OAAO,GAAGzX,MAAM,CAAC+a,qBAAP,CAA6BuG,MAA7B,CAAhB;;EACA,QAAI7J,OAAO,CAAC9X,MAAZ,EAAoB;EAChBuU,MAAAA,MAAM,CAACpU,IAAP,OAAAoU,MAAM,qBAASuD,OAAO,CAAClX,GAAR,CAAY,UAAAlD,CAAC;EAAA,eAAIikB,MAAM,CAACjkB,CAAD,CAAV;EAAA,OAAb,CAAT,EAAN;EACH;;EACD,WAAO6W,MAAM,CAACvU,MAAP,IAAiBuU,MAAM,CAACsN,KAAP,CAAa,UAAAnkB,CAAC,EAAI;EACtC,UAAIA,CAAC,KAAK,IAAV,EAAgB;EACZ,eAAO,CAACkkB,UAAR;EACH;;EACD,aAAOlkB,CAAC,YAAY0U,IAAb,IAAqB1U,CAAC,KAAKsU,IAA3B,IACFtU,CAAC,YAAY8N,KAAb,IAAsB9N,CAAC,CAACsC,MAD7B;EAEH,KANuB,CAAxB;EAOH;;EACD,WAAS8hB,SAAT,CAAmBxY,MAAnB,EAA2B;EACvB,WAAOjJ,MAAM,CAACC,IAAP,CAAYgJ,MAAZ,EAAoBsG,MAApB,CAA2BvP,MAAM,CAAC+a,qBAAP,CAA6B9R,MAA7B,CAA3B,CAAP;EACH;EACD;;;EACA,WAAS6V,QAAT,CAAkB/L,IAAlB,EAA2C;EAAA,qFAAJ,EAAI;EAAA,QAAjB2O,QAAiB,UAAjBA,QAAiB;;EACvCtkB,IAAAA,GAAG,CAAC,gBAAgB2V,IAAI,CAAC/X,QAAL,EAAjB,CAAH;;EACA,QAAI+X,IAAI,YAAYhB,IAApB,EAA0B;EACtB;EACA,UAAI,CAAC2P,QAAD,IAAa3O,IAAI,CAACJ,GAAL,YAAoBZ,IAAjC,IACArM,OAAO,CAACwD,EAAR,CAAW6J,IAAI,CAACJ,GAAL,CAASA,GAApB,EAAyBmN,eAAzB,CADJ,EAC+C;EAC3C,eAAOhB,QAAQ,CAAC/L,IAAI,CAACJ,GAAL,CAASb,GAAV,EAAe;EAAE4P,UAAAA,QAAQ,EAAE;EAAZ,SAAf,CAAf;EACH;;EACD,UAAI3O,IAAI,CAACjB,GAAL,YAAoBC,IAApB,IACArM,OAAO,CAACwD,EAAR,CAAW6J,IAAI,CAACjB,GAAL,CAASa,GAApB,EAAyBmN,eAAzB,CADA,IAC6C,CAAC4B,QADlD,EAC4D;EACxDtkB,QAAAA,GAAG,CAAC,MAAD,CAAH;EACA,YAAMqa,SAAO,GAAGwH,QAAQ,CAAC,KAAD,CAAR,CAAgBxH,OAAhC,CAFwD;EAIxD;;EACA,YAAMvD,MAAM,GAAGlU,MAAM,CAACkU,MAAP,CAAcuD,SAAd,CAAf;;EACA,YAAIvD,MAAM,CAACvU,MAAP,IAAiBuU,MAAM,CAACsN,KAAP,CAAa,UAAAnkB,CAAC;EAAA,iBAAIA,CAAC,KAAK,IAAV;EAAA,SAAd,CAArB,EAAoD;EAChD,iBAAOyhB,QAAQ,CAAC/L,IAAI,CAACjB,GAAL,CAASA,GAAV,EAAe;EAAE4P,YAAAA,QAAQ,EAARA;EAAF,WAAf,CAAf;EACH;;EACD,YAAIzhB,IAAI,GAAGwhB,SAAS,CAAChK,SAAD,CAApB,CATwD;EAWxD;EACA;EACA;EACA;EACA;;EACA,YAAIkK,SAAS,GAAG5O,IAAI,CAACJ,GAAL,YAAoBjN,OAApB,IACZA,OAAO,CAACwD,EAAR,CAAW6J,IAAI,CAACjB,GAAL,CAASA,GAAT,CAAaa,GAAxB,EAA6BmN,eAA7B,CADJ;;EAEA,YAAI/M,IAAI,CAACJ,GAAL,YAAoBZ,IAApB,IAA4B4P,SAAhC,EAA2C;EACvC;EACA;EACA;EACA,cAAI1C,QAAQ,CAAC,KAAD,CAAR,CAAgBc,KAAhB,CAAsB,CAAtB,MAA6BpO,IAAjC,EAAsC;EAClC,mBAAOA,IAAP;EACH;;EACD,cAAIiQ,QAAQ,GAAG7O,IAAI,CAACJ,GAApB;;EACA,cAAIgP,SAAJ,EAAe;EACXC,YAAAA,QAAQ,GAAG,IAAI7P,IAAJ,CACPgB,IAAI,CAACJ,GADE,EAEP,IAAIZ,IAAJ,CACIgB,IAAI,CAACjB,GAAL,CAASa,GADb,EAEIhB,IAFJ,CAFO,CAAX;EAKH;;EACDvU,UAAAA,GAAG,CAAC,MAAD,CAAH;EACA,cAAI+B,MAAJ;;EACA,cAAIc,IAAI,CAACN,MAAT,EAAiB;EACbvC,YAAAA,GAAG,CAAC,UAAD,CAAH;;EACA,gBAAIykB,KAAI,qBAAQpK,SAAR,CAAR;;EACAtY,YAAAA,MAAM,GAAGwS,IAAT;;EAHa;EAKT,kBAAI,CAAC0P,YAAY,CAACQ,KAAD,CAAjB,EAAyB;EACrB;EACH;;EACD,kBAAMC,QAAQ,GAAG,EAAjB;;EACA,kBAAM1J,IAAI,GAAG,SAAPA,IAAO,CAAC5F,GAAD,EAAM7U,KAAN,EAAgB;EACzB;EACA;EACAmkB,gBAAAA,QAAQ,CAACtP,GAAD,CAAR,GAAgB7U,KAAhB;EACH,eAJD;;EAKA,kBAAMgV,GAAG,GAAGsO,uBAAuB,CAC/BW,QAD+B,EAE/BC,KAF+B,EAG/B;EAAE7E,gBAAAA,MAAM,EAAE;EAAV,eAH+B,EAI/B5E,IAJ+B,CAAnC,CAdS;EAqBT;;EACA,kBAAIzF,GAAG,KAAK/X,SAAZ,EAAuB;EACnB,oBAAI+mB,SAAJ,EAAe;EACX,sBAAIxiB,MAAM,KAAKwS,IAAf,EAAoB;EAChBxS,oBAAAA,MAAM,GAAGwT,GAAT;EACH,mBAFD,MAEO;EACHxT,oBAAAA,MAAM,GAAGA,MAAM,CAACmN,MAAP,CAAcqG,GAAd,CAAT;EACH;EACJ,iBAND,MAMO;EACHxT,kBAAAA,MAAM,GAAG,IAAI4S,IAAJ,CACLY,GADK,EAELxT,MAFK,CAAT;EAIH;EACJ;;EACD0iB,cAAAA,KAAI,GAAGC,QAAP;EApCS;;EAIb,mBAAO,IAAP,EAAa;EAAA;;EAAA,oCAEL;EA+BP;;EACD,gBAAI3iB,MAAM,KAAKwS,IAAX,IAAkB,CAACgQ,SAAvB,EAAkC;EAC9BxiB,cAAAA,MAAM,GAAGA,MAAM,CAACoJ,OAAP,EAAT;EACH,aAxCY;;;EA0Cb,gBAAIwK,IAAI,CAACjB,GAAL,CAASA,GAAT,KAAiBH,IAAjB,IACA,CAACjM,OAAO,CAACwD,EAAR,CAAW6J,IAAI,CAACjB,GAAL,CAASA,GAAT,CAAaa,GAAxB,EAA6BmN,eAA7B,CADL,EACoD;EAChD,kBAAMzY,MAAI,GAAGyX,QAAQ,CAAC/L,IAAI,CAACjB,GAAL,CAASA,GAAV,EAAe;EAAE4P,gBAAAA,QAAQ,EAARA;EAAF,eAAf,CAArB;;EACA,qBAAOviB,MAAM,CAACmN,MAAP,CAAcjF,MAAd,CAAP;EACH;;EACD,mBAAOlI,MAAP;EACH,WAhDD,MAgDO;EACH/B,YAAAA,GAAG,CAAC,MAAD,CAAH;EACA,gBAAMuV,GAAG,GAAGsO,uBAAuB,CAAClO,IAAI,CAACJ,GAAN,EAAW8E,SAAX,EAAoB;EACnDuF,cAAAA,MAAM,EAAE;EAD2C,aAApB,CAAnC;;EAGA,gBAAIrK,GAAJ,EAAS;EACL,qBAAO,IAAIZ,IAAJ,CACHY,GADG,EAEHhB,IAFG,CAAP;EAIH;;EACD,mBAAOA,IAAP;EACH;EACJ,SA9ED,MA8EO,IAAIoB,IAAI,CAACJ,GAAL,YAAoBjN,OAAxB,EAAiC;EACpCtI,UAAAA,GAAG,CAAC,MAAD,CAAH;;EACA,cAAIsI,OAAO,CAACwD,EAAR,CAAW6J,IAAI,CAACjB,GAAL,CAASA,GAAT,CAAaa,GAAxB,EAA6BmN,eAA7B,CAAJ,EAAmD;EAC/C;EACA1iB,YAAAA,GAAG,CAAC,UAAD,CAAH;EACH,WAHD,MAGO;EACHA,YAAAA,GAAG,CAAC,UAAD,CAAH;EACH,WAPmC;;;EASpC,cAAIwL,IAAI,GAAGmK,IAAI,CAACJ,GAAL,CAAS5J,QAApB;;EACA,cAAI8Y,MAAI,uBAAMjZ,IAAN,EAAa6O,SAAO,CAAC7O,IAAD,CAApB,CAAR;;EACA,cAAMmZ,QAAO,GAAGtK,SAAO,CAAC7O,IAAD,CAAP,KAAkB,IAAlC;;EACA,cAAIzJ,QAAM,GAAGwS,IAAb;;EAZoC;EAchC,gBAAI,CAAC0P,YAAY,CAACQ,MAAD,EAAO,IAAP,CAAjB,EAA+B;EAC3BzkB,cAAAA,GAAG,CAAC;EAAEykB,gBAAAA,IAAI,EAAJA;EAAF,eAAD,CAAH;EACA;EACH;;EACD,gBAAMC,QAAQ,GAAG,EAAjB;;EACA,gBAAM1J,IAAI,GAAG,SAAPA,IAAO,CAAC5F,GAAD,EAAM7U,KAAN,EAAgB;EACzBmkB,cAAAA,QAAQ,CAACtP,GAAD,CAAR,GAAgB7U,KAAhB;EACH,aAFD;;EAGA,gBAAMA,KAAK,GAAGsjB,uBAAuB,CACjClO,IADiC,EAEjC8O,MAFiC,EAGjC;EAAE7E,cAAAA,MAAM,EAAE;EAAV,aAHiC,EAIjC5E,IAJiC,CAArC;EAMAhb,YAAAA,GAAG,CAAC;EAAEO,cAAAA,KAAK,EAAEA,KAAK,CAAC3C,QAAN;EAAT,aAAD,CAAH;;EACA,gBAAI,OAAO2C,KAAP,KAAiB,WAArB,EAAkC;EAC9BwB,cAAAA,QAAM,GAAG,IAAI4S,IAAJ,CACLpU,KADK,EAELwB,QAFK,CAAT;EAIH;;EACD0iB,YAAAA,MAAI,GAAGC,QAAP;EAnCgC;;EAapC,iBAAO,IAAP,EAAa;EAAA;;EAAA,mCAGL;EAoBP;;EACD,cAAI3iB,QAAM,KAAKwS,IAAf,EAAoB;EAChBxS,YAAAA,QAAM,GAAGA,QAAM,CAACoJ,OAAP,EAAT;EACH,WAvCmC;EAyCpC;EACA;;;EACA,cAAIwK,IAAI,CAACjB,GAAL,YAAoBC,IAAxB,EAA8B;EAC1B,gBAAIgB,IAAI,CAACjB,GAAL,CAASA,GAAT,YAAwBC,IAAxB,IACAgB,IAAI,CAACjB,GAAL,CAASA,GAAT,YAAwBpM,OAD5B,EACqC;EACjC,kBAAMoT,IAAI,GAAGgG,QAAQ,CAAC/L,IAAI,CAACjB,GAAL,CAASA,GAAV,EAAe;EAAE4P,gBAAAA,QAAQ,EAARA;EAAF,eAAf,CAArB;;EACA,kBAAIK,QAAJ,EAAa;EACT,uBAAOjJ,IAAP;EACH;;EACD1b,cAAAA,GAAG,CAAC,QAAD,CAAH;;EACA+B,cAAAA,QAAM,CAACmN,MAAP,CAAcwM,IAAd;EACH;EACJ;;EACD1b,UAAAA,GAAG,CAAC,QAAD,CAAH;EACA,iBAAO+B,QAAP;EACH;EACJ;;EACD,UAAMuS,IAAI,GAAGoN,QAAQ,CAAC/L,IAAI,CAACJ,GAAN,EAAW;EAAE+O,QAAAA,QAAQ,EAARA;EAAF,OAAX,CAArB;EACA,UAAIra,IAAJ;EACA,UAAI2a,SAAJ;;EACA,UAAKjP,IAAI,CAACJ,GAAL,YAAoBjN,OAAzB,EAAmC;EAC/B,YAAM/H,KAAK,GAAGyhB,KAAK,CAACvhB,GAAN,CAAUkV,IAAI,CAACJ,GAAf,EAAoB;EAAEvU,UAAAA,UAAU,EAAE;EAAd,SAApB,CAAd;EACA4jB,QAAAA,SAAS,GAAGrkB,KAAK,YAAYqV,KAAjB,IACRrV,KAAK,CAACoL,QAAN,KAAmB,cADvB;EAEH;;EACD,UAAIiZ,SAAJ,EAAe;EACX,YAAIjP,IAAI,CAACjB,GAAL,CAASa,GAAT,YAAwBjN,OAA5B,EAAqC;EACjC2B,UAAAA,IAAI,GAAG,IAAI0K,IAAJ,CACH+M,QAAQ,CAAC/L,IAAI,CAACjB,GAAL,CAASa,GAAV,EAAe;EAAE+O,YAAAA,QAAQ,EAARA;EAAF,WAAf,CADL,EAEH,IAAI3P,IAAJ,CACIgB,IAAI,CAACjB,GAAL,CAASA,GAAT,CAAaa,GADjB,EAEImM,QAAQ,CAAC/L,IAAI,CAACjB,GAAL,CAASA,GAAT,CAAaA,GAAd,EAAmB;EAAE4P,YAAAA,QAAQ,EAARA;EAAF,WAAnB,CAFZ,CAFG,CAAP;EAOH,SARD,MAQO;EACHra,UAAAA,IAAI,GAAG,IAAI0K,IAAJ,CACHgB,IAAI,CAACjB,GAAL,CAASa,GADN,EAEHmM,QAAQ,CAAC/L,IAAI,CAACjB,GAAL,CAASA,GAAV,EAAe;EAAE4P,YAAAA,QAAQ,EAARA;EAAF,WAAf,CAFL,CAAP;EAIH;;EACDtkB,QAAAA,GAAG,CAAC,eAAeiK,IAAI,CAACrM,QAAL,EAAhB,CAAH;EACH,OAhBD,MAgBO;EACHqM,QAAAA,IAAI,GAAGyX,QAAQ,CAAC/L,IAAI,CAACjB,GAAN,EAAW;EAAE4P,UAAAA,QAAQ,EAARA;EAAF,SAAX,CAAf;EACH;;EACDtkB,MAAAA,GAAG,CAAC;EACAqT,QAAAA,CAAC,EAAE,IADH;EAEAkC,QAAAA,GAAG,EAAE3X,QAAQ,CAAC+X,IAAI,CAACJ,GAAN,CAFb;EAGAb,QAAAA,GAAG,EAAE9W,QAAQ,CAAC+X,IAAI,CAACjB,GAAN,CAHb;EAIAJ,QAAAA,IAAI,EAAE1W,QAAQ,CAAC0W,IAAD,CAJd;EAKArK,QAAAA,IAAI,EAAErM,QAAQ,CAACqM,IAAD;EALd,OAAD,CAAH;EAOA,aAAO,IAAI0K,IAAJ,CACHL,IADG,EAEHrK,IAFG,CAAP;EAIH;;EACD,QAAI0L,IAAI,YAAYrN,OAApB,EAA6B;EACzB,UAAIgc,QAAQ,IAAIhc,OAAO,CAACwD,EAAR,CAAW6J,IAAX,EAAiB+M,eAAjB,CAAhB,EAAmD;EAC/C,eAAO/M,IAAP;EACH;;EACD,UAAM0E,SAAO,GAAGzX,MAAM,CAACC,IAAP,CAAYgf,QAAQ,CAAC,KAAD,CAAR,CAAgBxH,OAA5B,CAAhB;;EACA,UAAM7O,MAAI,GAAGmK,IAAI,CAACxV,OAAL,EAAb;;EACA,UAAIka,SAAO,CAAC/V,QAAR,CAAiBkH,MAAjB,CAAJ,EAA4B;EACxB,YAAMnL,GAAG,mDAA6CmL,MAA7C,MAAT;EACA,cAAM,IAAI9F,KAAJ,yBAA2BrF,GAA3B,EAAN;EACH;;EACD,UAAME,OAAK,GAAGsc,SAAS,CAAClH,IAAD,CAAvB;;EACA,UAAI,OAAOpV,OAAP,KAAiB,WAArB,EAAkC;EAC9B,eAAOA,OAAP;EACH;EACJ;;EACD,WAAOoV,IAAP;EACH;;EACD,SAAO+L,QAAQ,CAAC/L,IAAD,EAAO,EAAP,CAAf;EACH;EAED;EACA;;;EACA,SAASgP,OAAT,CAAiBpkB,KAAjB,EAAwB;EACpB,SAAOskB,QAAQ,CAACtkB,KAAD,CAAR,IAAmBA,KAAK,KAAKgU,IAA7B,IAAoChU,KAAK,KAAK,IAArD;EACH;;;EAED,SAAS8M,WAAT,CAAqBuQ,CAArB,EAAwB;EACpB,SAAO,OAAOA,CAAP,KAAa,UAAb,IAA2B,OAAOA,CAAC,CAAC6G,IAAT,KAAkB,UAApD;EACH;;;EAED,SAASK,eAAT,CAAyBlH,CAAzB,EAA4B;EACxB,SAAOA,CAAC,YAAYmH,YAApB;EACH;;;EAED,SAASC,WAAT,CAAqBpH,CAArB,EAAwB;EACpB,SAAOvQ,WAAW,CAACuQ,CAAD,CAAX,IAAkBkH,eAAe,CAAClH,CAAD,CAAxC;EACH;;;EAED,SAAS/c,UAAT,CAAoB+c,CAApB,EAAuB;EACnB,MAAIA,CAAC,YAAYjR,aAAjB,EAAgC;EAC5B,WAAO,KAAP;EACH;;EACD,MAAIiR,CAAC,YAAY3P,OAAjB,EAA0B;EACtB,WAAO,IAAP;EACH;;EACD,SAAO2P,CAAC,IAAIvQ,WAAW,CAACuQ,CAAC,CAAC9c,IAAH,CAAvB;EACH;;;EAED,SAAS+jB,QAAT,CAAkBtkB,KAAlB,EAAyB;EACrB,SAAO,OAAOA,KAAP,KAAiB,WAAxB;EACH;EAED;EACA;;;EACA,SAAS0kB,GAAT,CAAapZ,MAAb,EAAqB;EACjB;EACA;EACA,kBAAeA,MAAf;EACI,SAAK,QAAL;EACI,aAAO/D,OAAO,CAAC+D,MAAD,CAAd;;EACJ,SAAK,QAAL;EACI,aAAO/G,OAAO,CAAC+G,MAAD,CAAd;;EACJ,SAAK,QAAL;EACI,UAAI3F,MAAM,CAACuW,KAAP,CAAa5Q,MAAb,CAAJ,EAA0B;EACtB,eAAOqZ,GAAP;EACH,OAFD,MAEO;EACH,eAAOpgB,OAAO,CAAC+G,MAAD,CAAd;EACH;;EAVT;;EAYA,SAAOA,MAAP;EACH;;;EAED,SAASsZ,UAAT,CAAoBtZ,MAApB,EAA4BhN,EAA5B,EAAgC;EAC5B,MAAMke,KAAK,GAAGna,MAAM,CAACoa,mBAAP,CAA2BnR,MAA3B,CAAd;EACA,MAAMwO,OAAO,GAAGzX,MAAM,CAAC+a,qBAAP,CAA6B9R,MAA7B,CAAhB;EACAkR,EAAAA,KAAK,CAAC5K,MAAN,CAAakI,OAAb,EAAsBrY,OAAtB,CAA8B,UAAAoT,GAAG,EAAI;EACjC,QAAM7U,KAAK,GAAG1B,EAAE,CAACgN,MAAM,CAACuJ,GAAD,CAAP,CAAhB,CADiC;EAGjC;;EACA,QAAMgQ,UAAU,GAAGxiB,MAAM,CAACyiB,wBAAP,CAAgCxZ,MAAhC,EAAwCuJ,GAAxC,CAAnB;;EACA,QAAI,CAACgQ,UAAD,IAAeA,UAAU,CAAC3V,QAAX,IAAuB5D,MAAM,CAACuJ,GAAD,CAAN,KAAgB7U,KAA1D,EAAiE;EAC7DsL,MAAAA,MAAM,CAACuJ,GAAD,CAAN,GAAc7U,KAAd;EACH;EACJ,GUARD;EASA,SAAOsL,MAAP;EACH;;;EAED,SAASyZ,KAAT,CAAezZ,MAAf,EAAuB;EACnB,MAAI0Z,SAAS,GAAG,CAACzd,OAAD,EAAUrC,UAAV,EAAsBX,OAAtB,EAA+BmX,IAA/B,CAAoC,UAAAhc,CAAC;EAAA,WAAI4L,MAAM,YAAY5L,CAAtB;EAAA,GAArC,CAAhB;;EACA,MAAIslB,SAAJ,EAAe;EACX,WAAO1Z,MAAM,CAAC7G,OAAP,EAAP;EACH;;EACD,MAAI6G,MAAM,YAAYkC,KAAtB,EAA6B;EACzB,WAAOlC,MAAM,CAAC1I,GAAP,CAAWmiB,KAAX,CAAP;EACH;;EACD,MAAIzZ,MAAM,YAAYc,aAAtB,EAAqC;EACjC,WAAOd,MAAM,CAAC/K,IAAd;EACH;;EACD,MAAIqU,eAAe,CAACtJ,MAAD,CAAnB,EAA6B;EACzB,WAAOsZ,UAAU,CAACtZ,MAAD,EAASyZ,KAAT,CAAjB;EACH;;EACD,SAAOzZ,MAAP;EACH;;;EAED,SAAS2Z,WAAT,CAAqBjlB,KAArB,EAA4BklB,OAA5B,EAAqC;EACjC,MAAIllB,KAAK,YAAYoU,IAArB,EAA2B;EACvBpU,IAAAA,KAAK,CAAC+d,UAAN;EACA,WAAOtS,KAAK,CAACzL,KAAD,CAAZ;EACH;;EACD,MAAI8M,WAAW,CAAC9M,KAAD,CAAf,EAAwB;EACpB;EACA;EACA,QAAIklB,OAAJ,EAAa;EACT,aAAOhB,IAAI,CAAClkB,KAAD,EAAQklB,OAAR,CAAX;EACH;EACJ;;EACD,SAAOR,GAAG,CAAC1kB,KAAD,CAAV;EACH;EAED;EACA;;;EACA,SAAS4c,MAAT,CAAgB9Q,GAAhB,EAAqB;EACjB,MAAIqZ,QAAQ,CAACrZ,GAAD,CAAZ,EAAmB;each,WAAOA,GAAG,CAACsU,MAAD,CAAV;EACH;;EACD,SAAOtU,GAAP;EACH;EAED;EACA;EACA;;;EACA,SAASoY,IAAT,CAAc5lB,EAAd,EAAkB4mB,OAAlB,EAA2B;EACvB,MAAI5mB,EAAE,CAAC+M,MAAM,OAAN,CAAW,WAAX,CAAD,CAAN,EAAiC;EAC7B,WAAO/M,EAAP;EACH;;EACD,MAAM8mB,KAAK,GAAG9mB,EAAE,CAAC4lB,IAAH,CAAQgB,OAAR,CAAd;EACA,MAAM1I,KAAK,GAAGna,MAAM,CAACoa,mBAAP,CAA2Bne,EAA3B,CAAd;;EALuB,8CAMNke,KANM;EAAA;;EAAA;EAMvB,2DAAwB;EAAA,UAAf8C,IAAe;;EACpB,UAAI+F,eAAe,CAAC/F,IAAD,CAAnB,EAA2B;EACvB,YAAI;EACA8F,UAAAA,KAAK,CAAC9F,IAAD,CAAL,GAAchhB,EAAE,CAACghB,IAAD,CAAhB;EACH,SAFD,CAEE,OAAOrgB,CAAP,EAAU;EAEX;EACJ;EACJ;EAdsB;EAAA;EAAA;EAAA;EAAA;;EAevBkN,EAAAA,WAAW,CAACiZ,KAAD,EAAQ,QAAR,EAAkB9mB,EAAlB,CAAX;EACA6N,EAAAA,WAAW,CAACiZ,KAAD,EAAQ,aAAR,EAAuBF,OAAvB,CAAX;EACA/Y,EAAAA,WAAW,CAACiZ,KAAD,EAAQ,WAAR,EAAqB,IAArB,CAAX;;EACA,MAAI3H,kBAAkB,CAACnf,EAAD,CAAtB,EAA4B;EACxB6N,IAAAA,WAAW,CAACiZ,KAAD,EAAQ,YAAR,EAAsB,IAAtB,CAAX;EACH;;EACD,MAAIxQ,eAAe,CAACsQ,OAAD,CAAf,IAA4BnO,SAAS,CAACzY,EAAD,CAAzC,EAA+C;EAC3C6N,IAAAA,WAAW,CAACiZ,KAAD,EAAQ,YAAR,EAAsB,IAAtB,CAAX;EACH;;EACDA,EAAAA,KAAK,CAAC3gB,OAAN,GAAgB,YAAW;EACvB,WAAOnG,EAAP;EACH,GAFD;;EAGA,SAAO8mB,KAAP;EACH;EAED;EACA;EACA;EACA;;;EACA,SAASE,eAAT,CAAyBxZ,GAAzB,EAA8B;EAC1B,SAAOqZ,QAAQ,CAACrZ,GAAD,CAAR,IAAiBA,GAAG,CAACT,MAAM,OAAN,CAAW,aAAX,CAAD,CAAH,KAAmChJ,MAA3D;EACH;;;EAED,SAAS8iB,QAAT,CAAkBrZ,GAAlB,EAAuB;EACnB,SAAO,CAAC,EAAEgB,WAAW,CAAChB,GAAD,CAAX,IAAoBA,GAAG,CAACsU,MAAD,CAAzB,CAAR;EACH;;;EAED,SAASmF,YAAT,CAAsBzZ,GAAtB,EAA2B;EACvB,MAAIgB,WAAW,CAAChB,GAAD,CAAf,EAAsB;EAClB,QAAIoZ,OAAO,GAAGpZ,GAAG,CAAC0Z,WAAD,CAAjB;;EACA,QAAIN,OAAO,KAAKA,OAAO,KAAKlN,IAAZ,IACCkN,OAAO,CAACha,WAAR,IACAga,OAAO,CAACha,WAAR,CAAoBwS,SAF1B,CAAX,EAEkD;EAC9C,aAAO,IAAP;EACH;EACJ;;EACD,SAAO,KAAP;EACH;;;EAED,SAAS+H,OAAT,CAAiB3Z,GAAjB,EAAsB;EAClB,SAAOA,GAAG,YAAYsS,SAAf,IAA4BtS,GAAG,YAAYuS,UAAlD;EACH;;;EAED,SAASqH,cAAT,CAAwB5Z,GAAxB,EAA6B;EACzB,MAAIgB,WAAW,CAAChB,GAAD,CAAf,EAAsB;EAClB,QAAI2Z,OAAO,CAAC3Z,GAAG,CAAC0Z,WAAD,CAAJ,CAAX,EAA+B;EAC3B,aAAO,IAAP;EACH;EACJ;;EACD,SAAO,KAAP;EACH;EAED;EACA;;;EACA,IAAIA,WAAW,GAAGna,MAAM,OAAN,CAAW,aAAX,CAAlB;;EACA,IAAI+U,MAAM,GAAG/U,MAAM,OAAN,CAAW,QAAX,CAAb;;EACA,IAAI4Q,QAAQ,GAAG5Q,MAAM,OAAN,CAAW,UAAX,CAAf;;EACA,IAAI+T,OAAO,GAAG/T,MAAM,OAAN,CAAW,SAAX,CAAd;;EACA,IAAI0Q,UAAU,GAAG1Q,MAAM,OAAN,CAAW,YAAX,CAAjB;;EACA,IAAIqS,SAAS,GAAGrS,MAAM,OAAN,CAAW,WAAX,CAAhB;;EACA,IAAIsa,UAAU,GAAGta,MAAM,OAAN,CAAW,YAAX,CAAjB;;EACA,IAAIua,aAAa,GAAGva,MAAM,OAAN,CAAW,eAAX,CAApB;;EACA,IAAIwa,UAAU,GAAGxa,MAAM,OAAN,CAAW,YAAX,CAAjB;EAEA;EACA;EACA;;;EACA,IAAIya,aAAa,GAAG,CAAC,MAAD,EAAS,QAAT,EAAmB,QAAnB,EAA6B,QAA7B,EAAuC,WAAvC,EAAoD,WAApD,CAApB;;EACA,SAAST,eAAT,CAAyBpa,IAAzB,EAA+B;EAC3B,SAAO,CAAC6a,aAAa,CAAC/hB,QAAd,CAAuBkH,IAAvB,CAAR;EACH;;;EAED,SAASkB,WAAT,CAAqBL,GAArB,EAA0Bb,IAA1B,EAAgCjL,KAAhC,EAAuC;EACnCqC,EAAAA,MAAM,CAAC2K,cAAP,CAAsBlB,GAAtB,EAA2BT,MAAM,OAAN,CAAWJ,IAAX,CAA3B,EAA6C;EACzC/K,IAAAA,GAAG,EAAE;EAAA,aAAMF,KAAN;EAAA,KADoC;EAEzCuP,IAAAA,GAAG,EAAE,eAAM,EAF8B;EAGzCD,IAAAA,YAAY,EAAE,KAH2B;EAIzCrC,IAAAA,UAAU,EAAE;EAJ6B,GAA7C;EAMH;;;EAED,SAAS8Y,aAAT,CAAuBznB,EAAvB,EAA2B0D,MAA3B,EAAmC;EAC/B,MAAI;EACAK,IAAAA,MAAM,CAAC2K,cAAP,CAAsB1O,EAAtB,EAA0B,QAA1B,EAAoC;EAChC4B,MAAAA,GAAG,EAAE,eAAW;EACZ,eAAO8B,MAAP;EACH;EAH+B,KAApC;EAKA,WAAO1D,EAAP;EACH,GAPD,CAOE,OAAOW,CAAP,EAAU;EACR;EACA;EACA,QAAI8K,IAAI,GAAG,IAAIyD,KAAJ,CAAUxL,MAAV,EAAkBgkB,IAAlB,CAAuB,CAAvB,EAA0BpjB,GAA1B,CAA8B,UAACwE,CAAD,EAAIsD,CAAJ;EAAA,aAAU,MAAMA,CAAhB;EAAA,KAA9B,EAAiDnI,IAAjD,CAAsD,GAAtD,CAAX;EACA,QAAI0jB,OAAO,GAAG,IAAIC,QAAJ,gCAAqCnc,IAArC,2EAAd;EAGA,WAAOkc,OAAO,CAAC3nB,EAAD,CAAd;EACH;EACJ;;;EAED,SAASyY,SAAT,CAAmBjL,GAAnB,EAAwB;EACpB,SAAOA,GAAG,IAAIA,GAAG,CAAC+Z,UAAD,CAAjB;EACH;;;EAED,SAASM,SAAT,CAAmBra,GAAnB,EAAwB;EACpB,SAAOA,GAAG,IAAIA,GAAG,CAAC6Z,UAAD,CAAjB;EACH;;;EAED,SAASS,aAAT,CAAuB9nB,EAAvB,EAA2B;EACvB,SAAOyY,SAAS,CAACzY,EAAD,CAAT,IAAiB,CAACA,EAAE,CAACsnB,aAAD,CAApB,IACH,CAACO,SAAS,CAAC7nB,EAAD,CADP,IACe,CAAConB,cAAc,CAACpnB,EAAD,CADrC;EAEH;;;EAED,SAASmf,kBAAT,CAA4Bnf,EAA5B,EAAgC;EAC5B,MAAI+nB,OAAM,GAAGhb,MAAM,OAAN,CAAW,YAAX,CAAb;;EACA,SAAOyB,WAAW,CAACxO,EAAD,CAAX,IACHA,EAAE,CAACjB,QAAH,GAAcqG,KAAd,CAAoB,2BAApB,CADG,KAEDpF,EAAE,CAAC2M,IAAH,CAAQvH,KAAR,CAAc,SAAd,KAA4BpF,EAAE,CAAC+nB,OAAD,CAAF,KAAe,IAA5C,IACC,CAAC/nB,EAAE,CAAC2M,IAAH,CAAQvH,KAAR,CAAc,SAAd,CAAD,IAA6B,CAACpF,EAAE,CAAC+nB,OAAD,CAH/B,CAAP;EAIH;EAED;EACA;;;EACA,SAASC,SAAT,CAAmB9a,MAAnB,EAA2B;EACvB,MAAIP,IAAJ;;EACA,UAAQO,MAAR;EACI,SAAKH,MAAM,OAAN,CAAW,QAAX,CAAL;EACIJ,MAAAA,IAAI,GAAG,QAAP;EACA;;EACJ,SAAKI,MAAM,OAAN,CAAW,KAAX,CAAL;EACIJ,MAAAA,IAAI,GAAG,KAAP;EACA;;EACJ,SAAKI,MAAM,OAAN,CAAW,MAAX,CAAL;EACIJ,MAAAA,IAAI,GAAG,MAAP;EACA;;EACJ;EACI,YAAM,IAAI9F,KAAJ,CAAU,yBAAV,CAAN;EAXR;;EAaA,SAAOkQ,KAAK,CAACgL,QAAN,CAAepV,IAAf,EAAqB,UAASqJ,IAAT,EAAe3Q,OAAf,EAAwB;EAChD,QAAM+c,aAAN,GAA6C/c,OAA7C,CAAM+c,aAAN;EAAA,QAAqBlM,KAArB,GAA6C7Q,OAA7C,CAAqB6Q,KAArB;EAAA,QAA4BiM,YAA5B,GAA6C9c,OAA7C,CAA4B8c,YAA5B;EACA,QAAI1W,IAAJ,CAFgD;EAIhD;;EACA,QAAIuK,IAAI,CAACU,GAAL,YAAoBjN,OAAxB,EAAiC;EAC7B,UAAI,EAAEuM,IAAI,CAACH,GAAL,CAASa,GAAT,YAAwBZ,IAAxB,IAAgCE,IAAI,CAACH,GAAL,CAASa,GAAT,KAAiBhB,IAAnD,CAAJ,EAA6D;EACzD,cAAM,IAAI7O,KAAJ,CAAU,2BAAV,CAAN;EACH;;EACD,UAAIohB,MAAJ;;EACA,UAAIjS,IAAI,CAACH,GAAL,CAASa,GAAT,KAAiBhB,IAArB,EAA0B;EACtBjK,QAAAA,IAAI,GAAGiK,IAAP;EACAuS,QAAAA,MAAM,GAAGvS,IAAT;EACH,OAHD,MAGO;EACHuS,QAAAA,MAAM,GAAGjS,IAAI,CAACH,GAAL,CAASa,GAAT,CAAapS,GAAb,CAAiB,UAAAmS,IAAI;EAAA,iBAAIA,IAAI,CAACC,GAAT;EAAA,SAArB,CAAT;EACAjL,QAAAA,IAAI,GAAGuK,IAAI,CAACH,GAAL,CAASa,GAAT,CAAapS,GAAb,CAAiB,UAAAmS,IAAI;EAAA,iBAAIA,IAAI,CAACZ,GAAL,CAASa,GAAb;EAAA,SAArB,CAAP;EACH;;EACD,aAAOZ,IAAI,CAACkB,SAAL,CAAe,CAClBvN,OAAO,CAAC,QAAD,CADW,EAElB,CAAC,CAACuM,IAAI,CAACU,GAAN,EAAWZ,IAAI,CACZrM,OAAO,CAAC,QAAD,CADK,EAEZqM,IAAI,CAACmS,MAAD,EAASjS,IAAI,CAACH,GAAL,CAASA,GAAlB,CAFQ,CAAf,CAAD,CAFkB,EAKlBC,IAAI,CAACE,IAAI,CAACU,GAAN,EAAWjL,IAAX,CALc,CAAf,CAAP;EAOH,KAnBD,MAmBO,IAAI0W,YAAJ,EAAkB;EACrB;EACA;EACA;EACA;EACH;;EACD,QAAI5iB,IAAI,GAAG,IAAX;EACAkM,IAAAA,IAAI,GAAG9J,UAAU,CAACC,GAAX,CAAe,aAAf,EAA8BoU,IAAI,CAACU,GAAnC,CAAP;EACA,QAAI1B,GAAG,GAAGzV,IAAI,CAAC2oB,OAAL,CAAavb,IAAb,CAAV;EACA,QAAIsL,MAAJ,EAAYkQ,YAAZ;;EACA,QAAIxb,IAAI,KAAK,MAAb,EAAqB;EACjBwb,MAAAA,YAAY,GAAGnT,GAAf;EACH,KAFD,MAEO,IAAIrI,IAAI,KAAK,KAAb,EAAoB;EACvBsL,MAAAA,MAAM,GAAG,EAAT,CADuB;EAE1B;;EACD,QAAI7L,CAAC,GAAG,CAAR;;EACA,aAASgc,IAAT,GAAgB;EACZ,UAAI5kB,MAAM,GAAG,IAAIsS,IAAJ,CAAS,IAAIrM,OAAJ,CAAY,OAAZ,CAAT,EAA+BuM,IAAI,CAACH,GAApC,CAAb;EACA,aAAOI,SAAQ,CAACzS,MAAD,EAAS;EACpBwR,QAAAA,GAAG,EAAHA,GADoB;EAEpBoN,QAAAA,aAAa,EAAbA,aAFoB;EAGpBlM,QAAAA,KAAK,EAALA;EAHoB,OAAT,CAAf;EAKH;;EACD,WAAQ,SAASpD,IAAT,GAAgB;EACpB,UAAI2D,IAAI,GAAGhL,IAAI,CAACW,CAAC,EAAF,CAAf;;EACA,UAAIgW,aAAJ,EAAmB;EACfA,QAAAA,aAAa,GAAGzV,IAAI,KAAK,MAAT,GAAkBqI,GAAlB,GAAwBzV,IAAxC;EACH;;EACD,UAAI,CAACkX,IAAL,EAAW;EACP;EACA,YAAIwB,MAAM,IAAIA,MAAM,CAACvU,MAArB,EAA6B;EACzB,cAAI2K,CAAC,GAAG4J,MAAM,CAAC3T,GAAP,CAAW,UAAAlD,CAAC;EAAA,mBAAIA,CAAC,CAACM,KAAN;EAAA,WAAZ,CAAR;EACA,cAAI2mB,QAAQ,GAAGha,CAAC,CAACtC,MAAF,CAAS/J,UAAT,CAAf;;EACA,cAAIqmB,QAAQ,CAAC3kB,MAAb,EAAqB;EACjB,mBAAOuL,WAAW,CAACZ,CAAD,CAAX,CAAepM,IAAf,CAAoB,UAAC4O,GAAD,EAAS;EAChC,mBAAK,IAAIzE,CAAC,GAAG,CAAR,EAAW8F,GAAG,GAAGrB,GAAG,CAACnN,MAA1B,EAAkC0I,CAAC,GAAG8F,GAAtC,EAA2C,EAAE9F,CAA7C,EAAgD;EAC5C4I,gBAAAA,GAAG,CAAC/D,GAAJ,CAAQgH,MAAM,CAAC7L,CAAD,CAAN,CAAUO,IAAlB,EAAwBkE,GAAG,CAACzE,CAAD,CAA3B;EACH;EACJ,aAJM,EAIJnK,IAJI,CAICmmB,IAJD,CAAP;EAKH,WAND,MAMO;EAAA,yDACyBnQ,MADzB;EAAA;;EAAA;EACH,wEAAoC;EAAA;EAAA,oBAAzBtL,MAAyB,iBAAzBA,IAAyB;EAAA,oBAAnBjL,OAAmB,iBAAnBA,KAAmB;EAChCsT,gBAAAA,GAAG,CAAC/D,GAAJ,CAAQtE,MAAR,EAAcjL,OAAd;EACH;EAHE;EAAA;EAAA;EAAA;EAAA;EAIN;EACJ;;EACD,eAAO0mB,IAAI,EAAX;EACH,OAlBD,MAkBO;EACH,YAAIzb,IAAI,KAAK,KAAb,EAAoB;EAChBwb,UAAAA,YAAY,GAAG5oB,IAAf;EACH,SAFD,MAEO,IAAIoN,IAAI,KAAK,QAAb,EAAuB;EAC1Bwb,UAAAA,YAAY,GAAGnT,GAAf;EACH;;EACD,YAAItT,KAAK,GAAGuU,SAAQ,CAACQ,IAAI,CAACZ,GAAL,CAASa,GAAV,EAAe;EAC/B1B,UAAAA,GAAG,EAAEmT,YAD0B;EAE/B/F,UAAAA,aAAa,EAAbA,aAF+B;EAG/BlM,UAAAA,KAAK,EAALA;EAH+B,SAAf,CAApB;;EAKA,YAAIvJ,IAAI,KAAK,MAAb,EAAqB;EACjBwb,UAAAA,YAAY,GAAGnT,GAAG,GAAGmT,YAAY,CAACD,OAAb,CAAqB,UAAU9b,CAAV,GAAc,GAAnC,CAArB;EACH;;EACD,YAAI6L,MAAJ,EAAY;EACRA,UAAAA,MAAM,CAACpU,IAAP,CAAY;EAAE8I,YAAAA,IAAI,EAAE8J,IAAI,CAACC,GAAb;EAAkBhV,YAAAA,KAAK,EAALA;EAAlB,WAAZ;EACA,iBAAOoR,IAAI,EAAX;EACH,SAHD,MAGO;EACH,iBAAO4E,SAAS,CAAChW,KAAD,EAAQ,UAASA,KAAT,EAAgB;EACpCsT,YAAAA,GAAG,CAAC/D,GAAJ,CAAQwF,IAAI,CAACC,GAAb,EAAkBhV,KAAlB;EACA,mBAAOoR,IAAI,EAAX;EACH,WAHe,CAAhB;EAIH;EACJ;EACJ,KA/CM,EAAP;EAgDH,GAhGM,CAAP;EAiGH;;;EAED,SAASwV,OAAT,CAAiB3b,IAAjB,EAAuB3M,EAAvB,EAA2B;EACvB,SAAO,IAAI+W,KAAJ,CAAUpK,IAAV,EAAgB,UAASqJ,IAAT,EAA8C;EAAA,qFAAJ,EAAI;EAAA,QAA7BoM,aAA6B,UAA7BA,aAA6B;EAAA,QAAdlM,KAAc,UAAdA,KAAc;;EACjE,QAAIlB,GAAG,GAAG,IAAV;;EACA,QAAIoN,aAAJ,EAAmB;EACfA,MAAAA,aAAa,GAAG,IAAhB;EACH;;EACD,QAAIvF,IAAI,GAAG7G,IAAX;EACA,QAAIuS,OAAO,GAAG,EAAd;;EACA,WAAO1L,IAAI,YAAY/G,IAAvB,EAA6B;EACzByS,MAAAA,OAAO,CAAC1kB,IAAR,CAAaoS,SAAQ,CAAC4G,IAAI,CAACnG,GAAN,EAAW;EAAE1B,QAAAA,GAAG,EAAHA,GAAF;EAAOoN,QAAAA,aAAa,EAAbA,aAAP;EAAsBlM,QAAAA,KAAK,EAALA;EAAtB,OAAX,CAArB;EACA2G,MAAAA,IAAI,GAAGA,IAAI,CAAChH,GAAZ;EACH;;EACD,QAAI2S,YAAY,GAAGD,OAAO,CAACxc,MAAR,CAAe/J,UAAf,EAA2B0B,MAA9C;;EACA,QAAI8kB,YAAJ,EAAkB;EACd,aAAOvZ,WAAW,CAACsZ,OAAD,CAAX,CAAqBtmB,IAArB,CAA0BjC,EAAE,CAAC4lB,IAAH,CAAQ,IAAR,CAA1B,CAAP;EACH,KAFD,MAEO;EACH,aAAO5lB,EAAE,CAACc,IAAH,CAAQ,IAAR,EAAcynB,OAAd,CAAP;EACH;EACJ,GAjBM,CAAP;EAkBH;;;EAED,SAASE,eAAT,CAAyBzoB,EAAzB,EAAsC;EAAA,qCAANyL,IAAM;EAANA,IAAAA,IAAM;EAAA;;EAClCA,EAAAA,IAAI,CAACtI,OAAL,CAAa,UAAA+B,GAAG,EAAI;EAChBgY,IAAAA,SAAS,CAAC,EAAD,EAAKhY,GAAL,EAAU,QAAV,CAAT;EACH,GAFD;EAGA,SAAOlF,EAAE,MAAF,SAAMyL,IAAN,CAAP;EACH;;;EAED,SAASid,IAAT,GAAsB;EAAA;;EAAA,qCAALC,GAAK;EAALA,IAAAA,GAAK;EAAA;;EAClBA,EAAAA,GAAG,CAACxlB,OAAJ,CAAY,UAACnD,EAAD,EAAKoM,CAAL,EAAW;EACnB8Q,IAAAA,SAAS,CAAC,MAAD,EAASld,EAAT,EAAa,UAAb,EAAyBoM,CAAC,GAAG,CAA7B,CAAT;EACH,GAFD;EAGA,SAAO,YAAa;EAAA,uCAATX,IAAS;EAATA,MAAAA,IAAS;EAAA;;EAChB,WAAOkd,GAAG,CAAC/T,MAAJ,CAAW,UAACnJ,IAAD,EAAOmd,CAAP;EAAA,aAAa,CAACA,CAAC,CAACjd,KAAF,CAAQ,MAAR,EAAcF,IAAd,CAAD,CAAb;EAAA,KAAX,EAA+CA,IAA/C,EAAqD,CAArD,CAAP;EACH,GAFD;EAGH;;;EAED,SAASod,OAAT,GAAyB;EAAA,qCAALF,GAAK;EAALA,IAAAA,GAAK;EAAA;;EACrBA,EAAAA,GAAG,CAACxlB,OAAJ,CAAY,UAACnD,EAAD,EAAKoM,CAAL,EAAW;EACnB8Q,IAAAA,SAAS,CAAC,SAAD,EAAYld,EAAZ,EAAgB,UAAhB,EAA4BoM,CAAC,GAAG,CAAhC,CAAT;EACH,GAFD;EAGA,SAAOsc,IAAI,MAAJ,4BAAQC,GAAG,CAACrc,OAAJ,EAAR,EAAP;EACH;EAED;EACA;;;EACA,SAASwc,IAAT,CAAcnc,IAAd,EAAoBmc,IAApB,EAA0B;EACtB,MAAIvpB,IAAI,GAAG,IAAX;EACA,SAAO,SAAS0d,KAAT,CAAejd,EAAf,EAAmBnB,IAAnB,EAAmC;EACtCqe,IAAAA,SAAS,CAACvQ,IAAD,EAAO3M,EAAP,EAAW,UAAX,CAAT;;EADsC,wCAAP8jB,KAAO;EAAPA,MAAAA,KAAO;EAAA;;EAEtC,QAAIA,KAAK,CAAC1G,IAAN,CAAW0I,OAAX,CAAJ,EAAyB;EACrB,UAAI,OAAOjnB,IAAP,KAAgB,QAApB,EAA8B;EAC1B,eAAOoH,OAAO,CAACpH,IAAD,CAAd;EACH;;EACD,aAAOA,IAAP;EACH,KALD,MAKO;EACH,aAAOiqB,IAAI,CAAChoB,IAAL,OAAAgoB,IAAI,GAAMvpB,IAAN,EAAY0d,KAAZ,EAAmBjd,EAAnB,EAAuBnB,IAAvB,SAAgCilB,KAAhC,EAAX;EACH;EACJ,GAVD;EAWH;;;EAED,SAASiF,aAAT,CAAuB/hB,CAAvB,EAA0BhH,EAA1B,EAA8B;EAC1B;EACA,SAAOgpB,KAAK,CAAChiB,CAAC,GAAG,CAAL,EAAQiiB,KAAK,CAACR,eAAD,EAAkBzoB,EAAlB,CAAb,CAAZ;EACH;EAED;;;EACA,IAAIkpB,cAAc,GAAGD,KAAK,CAACF,aAAD,EAAgB,CAAhB,CAA1B;EACA,IAAII,cAAc,GAAGF,KAAK,CAACF,aAAD,EAAgB,CAAhB,CAA1B;;EAEA,SAASK,cAAT,CAAwBppB,EAAxB,EAAyC;EAAA,MAAbnB,IAAa,uEAAN,IAAM;EACrC,SAAO,YAAkB;EAAA,wCAAN4M,IAAM;EAANA,MAAAA,IAAM;EAAA;;EACrB,QAAI5M,IAAI,KAAK,IAAb,EAAmB;EACf4M,MAAAA,IAAI,IAAI5M,IAAJ,4BAAa4M,IAAb,EAAJ;EACH;;EACD,WAAOA,IAAI,CAACmJ,MAAL,CAAYuU,cAAc,CAACnpB,EAAD,CAA1B,CAAP;EACH,GALD;EAMH;;;EAED,SAASipB,KAAT,CAAejpB,EAAf,EAAiC;EAAA,sCAAXqpB,SAAW;EAAXA,IAAAA,SAAW;EAAA;;EAC7BnM,EAAAA,SAAS,CAAC,OAAD,EAAUld,EAAV,EAAc,UAAd,CAAT;EACA,MAAIkS,GAAG,GAAGlS,EAAE,CAAC0D,MAAb;EACA,SAAO,YAAW;EACd,QAAI+H,IAAI,GAAG4d,SAAS,CAAChd,KAAV,EAAX;;EACA,aAASvL,IAAT,GAA4B;EAAA,0CAAXwoB,SAAW;EAAXA,QAAAA,SAAW;EAAA;;EACxB7d,MAAAA,IAAI,GAAGA,IAAI,CAAC6H,MAAL,CAAYgW,SAAZ,CAAP;;EACA,UAAI7d,IAAI,CAAC/H,MAAL,IAAewO,GAAnB,EAAwB;EACpB,eAAOlS,EAAE,CAAC2L,KAAH,CAAS,IAAT,EAAeF,IAAf,CAAP;EACH,OAFD,MAEO;EACH,eAAO3K,IAAP;EACH;EACJ;;EACD,WAAOA,IAAI,CAAC6K,KAAL,CAAW,IAAX,EAAiBpK,SAAjB,CAAP;EACH,GAXD;EAYH;EAED;;;EACA,SAASynB,KAAT,CAAehiB,CAAf,EAAkBhH,EAAlB,EAAsB;EAClBkd,EAAAA,SAAS,CAAC,OAAD,EAAUld,EAAV,EAAc,UAAd,EAA0B,CAA1B,CAAT;EACA,SAAO,YAAkB;EAAA,wCAANyL,IAAM;EAANA,MAAAA,IAAM;EAAA;;EACrB,WAAOzL,EAAE,MAAF,4BAAMyL,IAAI,CAACY,KAAL,CAAW,CAAX,EAAcrF,CAAd,CAAN,EAAP;EACH,GAFD;EAGH;EAED;EACA;;;EACA,SAASJ,UAAT,CAAoBJ,MAApB,EAA0B;EACtB,MAAI,OAAO,IAAP,KAAgB,WAAhB,IAA+B,EAAE,gBAAgBI,UAAlB,CAA/B,IACA,OAAO,IAAP,KAAgB,WADpB,EACiC;EAC7B,WAAO,IAAIA,UAAJ,CAAeJ,MAAf,CAAP;EACH;;EACD,MAAIA,MAAI,YAAYyC,OAApB,EAA6B;EACzBzC,IAAAA,MAAI,GAAGA,MAAI,CAACL,OAAL,EAAP;EACH;;EACD,MAAIwG,IAAJ;;EACA,MAAIuC,KAAK,CAACqa,IAAN,CAAW/iB,MAAX,EAAiB9C,MAAjB,GAA0B,CAA9B,EAAiC;EAC7B;EACA8C,IAAAA,MAAI,GAAGA,MAAI,CAACjB,WAAL,EAAP;;EACA,QAAIqB,UAAU,CAAC4iB,SAAX,CAAqBhjB,MAArB,CAAJ,EAAgC;EAC5BmG,MAAAA,IAAI,GAAGnG,MAAP;EACAA,MAAAA,MAAI,GAAGI,UAAU,CAAC4iB,SAAX,CAAqBhjB,MAArB,CAAP;EACH,KAHD,MAGO;EACH;EACA;EACA,YAAM,IAAIK,KAAJ,CAAU,mCAAV,CAAN;EACH;EACJ,GAXD,MAWO;EACH8F,IAAAA,IAAI,GAAG/F,UAAU,CAAC6iB,aAAX,CAAyBjjB,MAAzB,CAAP;EACH;;EACDzC,EAAAA,MAAM,CAAC2K,cAAP,CAAsB,IAAtB,EAA4B,UAA5B,EAAwC;EACpChN,IAAAA,KAAK,EAAE8E,MAD6B;EAEpCmI,IAAAA,UAAU,EAAE;EAFwB,GAAxC;;EAIA,MAAIhC,IAAJ,EAAU;EACN5I,IAAAA,MAAM,CAAC2K,cAAP,CAAsB,IAAtB,EAA4B,UAA5B,EAAwC;EACpChN,MAAAA,KAAK,EAAEiL,IAD6B;EAEpCgC,MAAAA,UAAU,EAAE;EAFwB,KAAxC;EAIH;EACJ;;EACD/H,UAAU,CAAC4iB,SAAX,GAAuBnmB,UAAvB;EACAuD,UAAU,CAAC6iB,aAAX,GAA2B,EAA3B;EACA1lB,MAAM,CAACC,IAAP,CAAY4C,UAAU,CAAC4iB,SAAvB,EAAkCrmB,OAAlC,CAA0C,UAAAoT,GAAG,EAAI;EAC7C,MAAI7U,KAAK,GAAGkF,UAAU,CAAC4iB,SAAX,CAAqBjT,GAArB,CAAZ;EACA3P,EAAAA,UAAU,CAAC6iB,aAAX,CAAyB/nB,KAAzB,IAAkC6U,GAAlC;EACH,CAHD;;EAIA3P,UAAU,CAAC0D,SAAX,CAAqBof,WAArB,GAAmC,YAAW;EAC1C,SAAO9iB,UAAU,CAAC,KAAK0a,QAAL,CAAcoI,WAAd,EAAD,CAAjB;EACH,CAFD;;EAGA9iB,UAAU,CAAC0D,SAAX,CAAqB/E,WAArB,GAAmC,YAAW;EAC1C,SAAOqB,UAAU,CAAC,KAAK0a,QAAL,CAAc/b,WAAd,EAAD,CAAjB;EACH,CAFD;;EAGAqB,UAAU,CAAC0D,SAAX,CAAqBvL,QAArB,GAAgC,YAAW;EACvC,SAAO,SAAS,KAAK+N,QAAL,IAAiB,KAAKwU,QAA/B,CAAP;EACH,CAFD;;EAGA1a,UAAU,CAAC0D,SAAX,CAAqBnE,OAArB,GAA+BS,UAAU,CAAC0D,SAAX,CAAqBgD,SAArB,GAAiC,YAAW;EACvE,SAAO,KAAKgU,QAAZ;EACH,CAFD;EAIA;EACA;;;EACA,SAASrY,OAAT,CAAiB1F,MAAjB,EAAyB;EACrB,MAAI,OAAO,IAAP,KAAgB,WAAhB,IAA+B,EAAE,gBAAgB0F,OAAlB,CAA/B,IACA,OAAO,IAAP,KAAgB,WADpB,EACiC;EAC7B,WAAO,IAAIA,OAAJ,CAAY1F,MAAZ,CAAP;EACH;;EACD,MAAIA,MAAM,YAAY2L,KAAtB,EAA6B;EACzB,SAAKya,UAAL,GAAkBpmB,MAAM,CAACe,GAAP,CAAW,UAAClD,CAAD,EAAIgL,CAAJ,EAAU;EACnC8Q,MAAAA,SAAS,CAAC,SAAD,EAAY9b,CAAZ,EAAe,WAAf,EAA4BgL,CAAC,GAAG,CAAhC,CAAT;EACA,aAAOhL,CAAC,CAACrC,QAAF,EAAP;EACH,KAHiB,EAGfkF,IAHe,CAGV,EAHU,CAAlB;EAIH,GALD,MAKO;EACH,SAAK0lB,UAAL,GAAkBpmB,MAAM,CAAC4C,OAAP,EAAlB;EACH;EACJ;;EACD;EACI,MAAMyjB,MAAM,GAAG,CAAC,QAAD,EAAW,aAAX,CAAf;;EACA,MAAMC,KAAK,GAAG9lB,MAAM,CAACoa,mBAAP,CAA2BzX,MAAM,CAAC4D,SAAlC,EAA6CyB,MAA7C,CAAoD,UAAAY,IAAI,EAAI;EACtE,WAAO,CAACid,MAAM,CAACnkB,QAAP,CAAgBkH,IAAhB,CAAR;EACH,GAFa,CAAd;;EAGA,MAAMmd,IAAI,GAAG,SAAPA,IAAO,CAAC9pB,EAAD;EAAA,WAAQ,YAAkB;EAAA,0CAANyL,IAAM;EAANA,QAAAA,IAAM;EAAA;;EACnC,aAAOzL,EAAE,CAAC2L,KAAH,CAAS,KAAKge,UAAd,EAA0Ble,IAA1B,CAAP;EACH,KAFY;EAAA,GAAb;;EALJ,+CAQoBoe,KARpB;EAAA;;EAAA;EAQI,8DAAuB;EAAA,UAAdtT,GAAc;EACnBtN,MAAAA,OAAO,CAACqB,SAAR,CAAkBiM,GAAlB,IAAyBuT,IAAI,CAACpjB,MAAM,CAAC4D,SAAP,CAAiBiM,GAAjB,CAAD,CAA7B;EACH;EAVL;EAAA;EAAA;EAAA;EAAA;EAWC;;EACDtN,OAAO,CAACqB,SAAR,CAAkBgD,SAAlB,GAA8B,YAAW;EACrC,SAAO,KAAKnH,OAAL,EAAP;EACH,CAFD;;EAGA8C,OAAO,CAACsE,QAAR,GAAmB,UAASnM,CAAT,EAAY;EAC3B,SAAOA,CAAC,YAAY6H,OAAb,IAAwB,OAAO7H,CAAP,KAAa,QAA5C;EACH,CAFD;;EAGA6H,OAAO,CAACqB,SAAR,CAAkB1I,GAAlB,GAAwB,UAASoF,CAAT,EAAY;EAChCkW,EAAAA,SAAS,CAAC,cAAD,EAAiBlW,CAAjB,EAAoB,QAApB,CAAT;EACA,SAAOkI,KAAK,CAACqa,IAAN,CAAW,KAAKI,UAAhB,EAA4B3iB,CAAC,CAACb,OAAF,EAA5B,CAAP;EACH,CAHD;;EAIA8C,OAAO,CAACqB,SAAR,CAAkB3C,GAAlB,GAAwB,UAASpE,MAAT,EAAiB;EACrC2Z,EAAAA,SAAS,CAAC,cAAD,EAAiB3Z,MAAjB,EAAyB,QAAzB,CAAT;EACA,MAAIiR,CAAC,GAAG,KAAKrO,OAAL,EAAR;EACA,MAAIsO,CAAC,GAAGlR,MAAM,CAAC4C,OAAP,EAAR;;EACA,MAAIqO,CAAC,GAAGC,CAAR,EAAW;EACP,WAAO,CAAC,CAAR;EACH,GAFD,MAEO,IAAID,CAAC,KAAKC,CAAV,EAAa;EAChB,WAAO,CAAP;EACH,GAFM,MAEA;EACH,WAAO,CAAP;EACH;EACJ,CAXD;;EAYAxL,OAAO,CAACqB,SAAR,CAAkByf,KAAlB,GAA0B,YAAW;EACjC,SAAO9gB,OAAO,CAAC,KAAK0gB,UAAL,CAAgBpkB,WAAhB,EAAD,CAAd;EACH,CAFD;;EAGA0D,OAAO,CAACqB,SAAR,CAAkB0f,KAAlB,GAA0B,YAAW;EACjC,SAAO/gB,OAAO,CAAC,KAAK0gB,UAAL,CAAgBD,WAAhB,EAAD,CAAd;EACH,CAFD;;EAGAzgB,OAAO,CAACqB,SAAR,CAAkB2G,GAAlB,GAAwB,UAASjK,CAAT,EAAYR,MAAZ,EAAkB;EACtC0W,EAAAA,SAAS,CAAC,cAAD,EAAiBlW,CAAjB,EAAoB,QAApB,CAAT;EACAkW,EAAAA,SAAS,CAAC,cAAD,EAAiB1W,MAAjB,EAAuB,CAAC,QAAD,EAAW,WAAX,CAAvB,CAAT;EACAQ,EAAAA,CAAC,GAAGA,CAAC,CAACb,OAAF,EAAJ;;EACA,MAAIK,MAAI,YAAYI,UAApB,EAAgC;EAC5BJ,IAAAA,MAAI,GAAGA,MAAI,CAAC8a,QAAZ;EACH;;EACD,MAAI/d,MAAM,GAAG,EAAb;;EACA,MAAIyD,CAAC,GAAG,CAAR,EAAW;EACPzD,IAAAA,MAAM,CAACM,IAAP,CAAY,KAAK8lB,UAAL,CAAgB1X,SAAhB,CAA0B,CAA1B,EAA6BjL,CAA7B,CAAZ;EACH;;EACDzD,EAAAA,MAAM,CAACM,IAAP,CAAY2C,MAAZ;;EACA,MAAIQ,CAAC,GAAG,KAAK2iB,UAAL,CAAgBjmB,MAAhB,GAAyB,CAAjC,EAAoC;EAChCH,IAAAA,MAAM,CAACM,IAAP,CAAY,KAAK8lB,UAAL,CAAgB1X,SAAhB,CAA0BjL,CAAC,GAAG,CAA9B,CAAZ;EACH;;EACD,OAAK2iB,UAAL,GAAkBpmB,MAAM,CAACU,IAAP,CAAY,EAAZ,CAAlB;EACH,CAhBD;;EAiBAF,MAAM,CAAC2K,cAAP,CAAsBzF,OAAO,CAACqB,SAA9B,EAAyC,QAAzC,EAAmD;EAC/C1I,EAAAA,GAAG,EAAE,eAAW;EACZ,WAAO,KAAK+nB,UAAL,CAAgBjmB,MAAvB;EACH;EAH8C,CAAnD;;EAKAuF,OAAO,CAACqB,SAAR,CAAkB+S,KAAlB,GAA0B,YAAW;EACjC,SAAOpU,OAAO,CAAC,KAAK9C,OAAL,EAAD,CAAd;EACH,CAFD;;EAGA8C,OAAO,CAACqB,SAAR,CAAkBod,IAAlB,GAAyB,UAASlhB,MAAT,EAAe;EACpC0W,EAAAA,SAAS,CAAC,eAAD,EAAkB1W,MAAlB,EAAwB,CAAC,QAAD,EAAW,WAAX,CAAxB,CAAT;;EACA,MAAIA,MAAI,YAAYI,UAApB,EAAgC;EAC5BJ,IAAAA,MAAI,GAAGA,MAAI,CAACzH,QAAL,EAAP;EACH;;EACD,MAAImT,GAAG,GAAG,KAAKyX,UAAL,CAAgBjmB,MAA1B;EACA,OAAKimB,UAAL,GAAkB,IAAIza,KAAJ,CAAUgD,GAAG,GAAG,CAAhB,EAAmBjO,IAAnB,CAAwBuC,MAAxB,CAAlB;EACH,CAPD;EASA;EACA;;;EACA,SAASP,OAAT,CAAiBe,CAAjB,EAAmC;EAAA,MAAfijB,KAAe,uEAAP,KAAO;;EAC/B,MAAIjjB,CAAC,YAAYf,OAAjB,EAA0B;EACtB,WAAOe,CAAP;EACH;;EACD,MAAI,OAAO,IAAP,KAAgB,WAAhB,IAA+B,EAAE,gBAAgBf,OAAlB,CAA/B,IACA,OAAO,IAAP,KAAgB,WADpB,EACiC;EAC7B,WAAO,IAAIA,OAAJ,CAAYe,CAAZ,EAAeijB,KAAf,CAAP;EACH;;EACD,MAAI,OAAOjjB,CAAP,KAAa,WAAjB,EAA8B;EAC1B,UAAM,IAAIH,KAAJ,CAAU,kCAAV,CAAN;EACH;;EACD,MAAIqjB,KAAK,GAAGjkB,OAAO,CAACkkB,OAAR,CAAgBnjB,CAAhB,CAAZ;;EACA,MAAIf,OAAO,CAACmkB,KAAR,CAAcF,KAAd,CAAJ,EAA0B;EACtB,WAAOjkB,OAAO,CAACmkB,KAAR,CAAcF,KAAd,EAAqBljB,CAArB,EAAwBijB,KAAxB,CAAP;EACH;;EACD,MAAII,QAAQ,GAAGrjB,CAAC,YAAYkI,KAAb,IAAsBjG,OAAO,CAACsE,QAAR,CAAiBvG,CAAC,CAAC,CAAD,CAAlB,CAAtB,IACXf,OAAO,CAACsd,QAAR,CAAiBvc,CAAC,CAAC,CAAD,CAAlB,CADJ;;EAEA,MAAIA,CAAC,YAAYf,OAAjB,EAA0B;EACtB,WAAOA,OAAO,CAACe,CAAC,CAACtF,KAAH,CAAd;EACH;;EACD,MAAI,CAACuE,OAAO,CAACsd,QAAR,CAAiBvc,CAAjB,CAAD,IAAwB,CAACqjB,QAA7B,EAAuC;EACnC,UAAM,IAAIxjB,KAAJ,yCAA2CjG,IAAI,CAACoG,CAAD,CAA/C,EAAN;EACH,GAtB8B;;;EAwB/B,MAAIA,CAAC,KAAK,IAAV,EAAgB;EACZA,IAAAA,CAAC,GAAG,CAAJ;EACH;;EACD,MAAItF,KAAJ;;EACA,MAAI2oB,QAAJ,EAAc;EACV,aAAmBrjB,CAAnB;EAAA;EAAA,QAAKgB,GAAL;EAAA,QAAU5E,KAAV;;EACA,QAAI4E,GAAG,YAAYiB,OAAnB,EAA4B;EACxBjB,MAAAA,GAAG,GAAGA,GAAG,CAAC7B,OAAJ,EAAN;EACH;;EACD,QAAI/C,KAAK,YAAY6C,OAArB,EAA8B;EAC1B7C,MAAAA,KAAK,GAAGA,KAAK,CAAC+C,OAAN,EAAR;EACH;;EACD,QAAImkB,IAAI,GAAGtiB,GAAG,CAAC5C,KAAJ,CAAU,SAAV,CAAX;EACA,QAAImlB,KAAK,GAAG,KAAZ;;EACA,QAAID,IAAJ,EAAU;EACNtiB,MAAAA,GAAG,GAAGA,GAAG,CAAC1C,OAAJ,CAAY,OAAZ,EAAqB,EAArB,CAAN;;EACA,UAAIglB,IAAI,CAAC,CAAD,CAAJ,KAAY,GAAhB,EAAqB;EACjBC,QAAAA,KAAK,GAAG,IAAR;EACH;EACJ;EACJ;;EACD,MAAIljB,MAAM,CAACuW,KAAP,CAAa5W,CAAb,CAAJ,EAAqB;EACjB,WAAOX,MAAM,CAACW,CAAD,CAAb;EACH,GAFD,MAEO,IAAI,OAAOwjB,MAAP,KAAkB,WAAtB,EAAmC;EACtC,QAAI,OAAOxjB,CAAP,KAAa,QAAjB,EAA2B;EACvB,UAAIqjB,QAAJ,EAAc;EACV,YAAII,MAAJ,CADU;;EAGV,gBAAQrnB,KAAR;EACI,eAAK,CAAL;EACIqnB,YAAAA,MAAM,GAAG,IAAT;EACA;;EACJ,eAAK,EAAL;EACIA,YAAAA,MAAM,GAAG,IAAT;EACA;;EACJ,eAAK,CAAL;EACIA,YAAAA,MAAM,GAAG,IAAT;EACA;;EACJ,eAAK,EAAL;EACIA,YAAAA,MAAM,GAAG,EAAT;EACA;EAZR;;EAcA,YAAI,OAAOA,MAAP,KAAkB,WAAtB,EAAmC;EAC/B;EACA,cAAIC,OAAO,GAAGF,MAAM,CAACpnB,KAAD,CAApB;EACA1B,UAAAA,KAAK,GAAG,mBAAIsG,GAAJ,EAAS1D,GAAT,CAAa,UAAClD,CAAD,EAAIgL,CAAJ,EAAU;EAC3B,mBAAOoe,MAAM,CAAClkB,QAAQ,CAAClF,CAAD,EAAIgC,KAAJ,CAAT,CAAN,GAA6BuF,GAAG,CAAC+hB,OAAD,EAAUF,MAAM,CAACpe,CAAD,CAAhB,CAAvC;EACH,WAFO,EAELwI,MAFK,CAEE,UAACJ,CAAD,EAAIC,CAAJ;EAAA,mBAAUD,CAAC,GAAGC,CAAd;EAAA,WAFF,CAAR;EAGH,SAND,MAMO;EACH/S,UAAAA,KAAK,GAAG8oB,MAAM,CAACC,MAAM,GAAGziB,GAAV,CAAd;EACH;EACJ,OA1BD,MA0BO;EACHtG,QAAAA,KAAK,GAAG8oB,MAAM,CAACxjB,CAAD,CAAd;EACH;;EACD,UAAIujB,KAAJ,EAAW;EACP7oB,QAAAA,KAAK,IAAI8oB,MAAM,CAAC,CAAC,CAAF,CAAf;EACH;EACJ,KAjCD,MAiCO;EACH9oB,MAAAA,KAAK,GAAGsF,CAAR;EACH;;EACD,WAAO2jB,WAAW,CAACjpB,KAAD,EAAQ,IAAR,CAAlB;EACH,GAtCM,MAsCA,IAAI,OAAO7B,EAAP,KAAc,WAAd,IAA6B,EAAEmH,CAAC,YAAYnH,EAAf,CAAjC,EAAqD;EACxD,QAAImH,CAAC,YAAYkI,KAAjB,EAAwB;EACpB,aAAOyb,WAAW,YAAK9qB,EAAL,qBAAWmH,CAAX,GAAlB;EACH;;EACD,WAAO2jB,WAAW,CAAC,IAAI9qB,EAAJ,CAAOmH,CAAP,CAAD,CAAlB;EACH,GALM,MAKE,IAAIqjB,QAAJ,EAAc;EACjB,SAAKO,QAAL,CAActkB,QAAQ,CAAC0B,GAAD,EAAM5E,KAAN,CAAtB,EAAoC,SAApC;EACH,GAFM,MAEA;EACH,SAAKwnB,QAAL,CAAc5jB,CAAd,EAAiB,SAAjB;EACH;EACJ;;;EAEDf,OAAO,CAACqE,SAAR,CAAkBsgB,QAAlB,GAA6B,UAASlpB,KAAT,EAAgBd,IAAhB,EAAsB;EAC/CmD,EAAAA,MAAM,CAAC2K,cAAP,CAAsB,IAAtB,EAA4B,WAA5B,EAAyC;EACrChN,IAAAA,KAAK,EAALA,KADqC;EAErCiN,IAAAA,UAAU,EAAE;EAFyB,GAAzC;EAIA5K,EAAAA,MAAM,CAAC2K,cAAP,CAAsB,IAAtB,EAA4B,UAA5B,EAAwC;EACpChN,IAAAA,KAAK,EAAEd,IAD6B;EAEpC+N,IAAAA,UAAU,EAAE;EAFwB,GAAxC;EAIH,CATD;;;EAWA1I,OAAO,CAACmkB,KAAR,GAAgB;EACZ,WAAO,eAASpjB,CAAT,EAA2B;EAAA,QAAfijB,KAAe,uEAAP,KAAO;EAC9B,WAAO,IAAI5jB,MAAJ,CAAWW,CAAX,EAAcijB,KAAd,CAAP;EACH,GAHW;EAIZY,EAAAA,OAAO,EAAE,iBAAS7jB,CAAT,EAA2B;EAAA,QAAfijB,KAAe,uEAAP,KAAO;;EAChC,QAAI,CAAChkB,OAAO,CAAC6kB,SAAR,CAAkB9jB,CAAlB,CAAL,EAA2B;EACvBA,MAAAA,CAAC,GAAG;EAAEU,QAAAA,EAAE,EAAE,CAAN;EAASD,QAAAA,EAAE,EAAET;EAAb,OAAJ;EACH;;EACD,WAAO,IAAIa,QAAJ,CAAab,CAAb,EAAgBijB,KAAhB,CAAP;EACH,GATW;EAUZc,EAAAA,QAAQ,EAAE,kBAAS/jB,CAAT,EAA2B;EAAA,QAAfijB,KAAe,uEAAP,KAAO;;EACjC,QAAI,CAAChkB,OAAO,CAAC+kB,UAAR,CAAmBhkB,CAAnB,CAAL,EAA4B;EACxBA,MAAAA,CAAC,GAAG;EAAEjB,QAAAA,GAAG,EAAEiB,CAAP;EAAUd,QAAAA,KAAK,EAAE;EAAjB,OAAJ;EACH;;EACD,WAAO,IAAIF,SAAJ,CAAcgB,CAAd,EAAiBijB,KAAjB,CAAP;EACH;EAfW,CAAhB;;EAkBAhkB,OAAO,CAACqE,SAAR,CAAkBgD,SAAlB,GAA8B,YAAW;EACrC,SAAO,KAAK2d,SAAZ;EACH,CAFD;;;EAIAhlB,OAAO,CAACqE,SAAR,CAAkBsT,KAAlB,GAA0B,YAAW;EACjC,SAAOvW,MAAM,CAACuW,KAAP,CAAa,KAAKqN,SAAlB,CAAP;EACH,CAFD;;;EAIAhlB,OAAO,CAACqE,SAAR,CAAkB4gB,GAAlB,GAAwB,UAASzW,CAAT,EAAY;EAChC;EACA,MAAID,CAAC,GAAG,KAAKjM,GAAL,EAAR;EACAkM,EAAAA,CAAC,GAAGA,CAAC,CAAClM,GAAF,EAAJ;;EACA,MAAIkM,CAAC,CAAC9M,GAAF,CAAM6M,CAAN,MAAa,CAAjB,EAAoB;EAChB,QAAI2W,IAAI,GAAG3W,CAAX;EACAA,IAAAA,CAAC,GAAGC,CAAJ;EACAA,IAAAA,CAAC,GAAG0W,IAAJ;EACH;;EACD,SAAO,IAAP,EAAa;EACT3W,IAAAA,CAAC,GAAGA,CAAC,CAAC/T,GAAF,CAAMgU,CAAN,CAAJ;;EACA,QAAID,CAAC,CAAC7M,GAAF,CAAM,CAAN,MAAa,CAAjB,EAAoB;EAChB,aAAO8M,CAAP;EACH;;EACDA,IAAAA,CAAC,GAAGA,CAAC,CAAChU,GAAF,CAAM+T,CAAN,CAAJ;;EACA,QAAIC,CAAC,CAAC9M,GAAF,CAAM,CAAN,MAAa,CAAjB,EAAoB;EAChB,aAAO6M,CAAP;EACH;EACJ;EACJ,CAnBD;;;EAqBAvO,OAAO,CAACmlB,OAAR,GAAkB,SAASA,OAAT,CAAiBpkB,CAAjB,EAAoB;EAClC,SAAOA,CAAC,YAAYX,MAAb,IAAwBgB,MAAM,CAACL,CAAD,CAAN,KAAcA,CAAd,IAAmBA,CAAC,GAAG,CAAJ,KAAU,CAA5D;EACH,CAFD;;;EAIAf,OAAO,CAACsd,QAAR,GAAmB,UAASvc,CAAT,EAAY;EAC3B,SAAOA,CAAC,YAAYf,OAAb,IACFA,OAAO,CAAColB,QAAR,CAAiBrkB,CAAjB,KAAuBf,OAAO,CAACqlB,IAAR,CAAatkB,CAAb,CAD5B;EAEH,CAHD;;;EAKAf,OAAO,CAAC6kB,SAAR,GAAoB,UAAS9jB,CAAT,EAAY;EAC5B,MAAI,CAACA,CAAL,EAAQ;EACJ,WAAO,KAAP;EACH;;EACD,MAAI2Q,GAAG,GAAG3Q,CAAC,YAAYa,QAAb,IACL,CAAC5B,OAAO,CAACsd,QAAR,CAAiBvc,CAAC,CAACU,EAAnB,KAA0BL,MAAM,CAACuW,KAAP,CAAa5W,CAAC,CAACU,EAAf,CAA3B,MACCzB,OAAO,CAACsd,QAAR,CAAiBvc,CAAC,CAACS,EAAnB,KAA0BJ,MAAM,CAACuW,KAAP,CAAa5W,CAAC,CAACS,EAAf,CAD3B,CADL;EAGA,SAAOkQ,GAAP;EACH,CARD;;;EAUA1R,OAAO,CAAC+kB,UAAR,GAAqB,UAAShkB,CAAT,EAAY;EAC7B,MAAI,CAACA,CAAL,EAAQ;EACJ,WAAO,KAAP;EACH;;EACD,SAAOA,CAAC,YAAYhB,SAAb,IACFC,OAAO,CAACsd,QAAR,CAAiBvc,CAAC,CAACjB,GAAnB,KAA2BE,OAAO,CAACsd,QAAR,CAAiBvc,CAAC,CAACd,KAAnB,CADhC;EAEH,CAND;;;EAQAD,OAAO,CAACslB,SAAR,GAAoB,UAASvkB,CAAT,EAAY;EAC5B,MAAI,EAAEf,OAAO,CAAColB,QAAR,CAAiBrkB,CAAjB,KAAuBA,CAAC,YAAYf,OAAtC,CAAJ,EAAoD;EAChD,WAAO,KAAP;EACH;;EACD,MAAIA,OAAO,CAACmlB,OAAR,CAAgBpkB,CAAhB,CAAJ,EAAwB;EACpB,WAAO,KAAP;EACH;;EACD,MAAIf,OAAO,CAAC+kB,UAAR,CAAmBhkB,CAAnB,CAAJ,EAA2B;EACvB,WAAO,KAAP;EACH;;EACD,MAAIf,OAAO,CAAC6kB,SAAR,CAAkB9jB,CAAlB,CAAJ,EAA0B;EACtB,WAAO,KAAP;EACH;;EACD,SAAO,IAAP;EACH,CAdD;;;EAgBAf,OAAO,CAAColB,QAAR,GAAmB,UAASrkB,CAAT,EAAY;EAC3B,SAAO,OAAOA,CAAP,KAAa,QAAb,IAAyB,OAAOA,CAAP,KAAa,QAA7C;EACH,CAFD;;;EAIAf,OAAO,CAACulB,YAAR,GAAuB,UAASxkB,CAAT,EAAY;EAC/B,SAAOA,CAAC,YAAY2jB,WAAb,IAA4B,OAAO3jB,CAAP,KAAa,QAAzC,IACHf,OAAO,CAACqlB,IAAR,CAAatkB,CAAb,CADJ;EAEH,CAHD;;;EAKAf,OAAO,CAACqlB,IAAR,GAAe,UAAStkB,CAAT,EAAY;EACvB,SAAO,OAAOnH,EAAP,KAAc,WAAd,IAA6BmH,CAAC,YAAYnH,EAAjD;EACH,CAFD;;;EAIAoG,OAAO,CAACwlB,WAAR,GAAsB,UAASjX,CAAT,EAAYC,CAAZ,EAAe;EACjC,MAAID,CAAC,YAAYnO,MAAb,IAAuBoO,CAAC,YAAYpO,MAAxC,EAAgD;EAC5C,WAAOA,MAAP;EACH;;EACD,MAAImO,CAAC,YAAYmW,WAAb,IAA4BlW,CAAC,YAAYkW,WAA7C,EAA0D;EACtD,WAAOA,WAAP;EACH;;EACD,SAAO1kB,OAAP;EACH,CARD;;;EAUAA,OAAO,CAACqE,SAAR,CAAkBvL,QAAlB,GAA6B,UAASqE,KAAT,EAAgB;EACzC,MAAIiE,MAAM,CAACuW,KAAP,CAAa,KAAKqN,SAAlB,CAAJ,EAAkC;EAC9B,WAAO,QAAP;EACH;;EACD,MAAI7nB,KAAK,GAAG,CAAR,IAAaA,KAAK,GAAG,EAAzB,EAA6B;EACzB,WAAO,KAAK6nB,SAAL,CAAelsB,QAAf,CAAwBqE,KAAxB,CAAP;EACH;;EACD,SAAO,KAAK6nB,SAAL,CAAelsB,QAAf,EAAP;EACH,CARD;;;EAUAkH,OAAO,CAACqE,SAAR,CAAkBohB,MAAlB,GAA2B,UAAS1kB,CAAT,EAAY;EACnC,MAAIkjB,KAAK,GAAGjkB,OAAO,CAACkkB,OAAR,CAAgB,IAAhB,CAAZ;;EACA,SAAOlkB,OAAO,CAACmkB,KAAR,CAAcF,KAAd,IAAuBjkB,OAAO,CAACmkB,KAAR,CAAcF,KAAd,EAAqBljB,CAArB,CAAvB,GAAiDf,OAAO,CAACe,CAAD,CAA/D;EACH,CAHD;;;EAKAf,OAAO,CAACqE,SAAR,CAAkBqhB,WAAlB,GAAgC,YAAW;EACvC,SAAO,OAAO,KAAKV,SAAZ,KAA0B,QAA1B,IACH,OAAOprB,EAAP,KAAc,WAAd,IAA6B,EAAE,KAAK6B,KAAL,YAAsB7B,EAAxB,CADjC;EAEH,CAHD;;;EAKA,CAAC,OAAD,EAAU,MAAV,EAAkB,OAAlB,EAA2BsD,OAA3B,CAAmC,UAAAnD,EAAE,EAAI;EACrCiG,EAAAA,OAAO,CAACqE,SAAR,CAAkBtK,EAAlB,IAAwB,YAAW;EAC/B,QAAI,iBAAciG,OAAO,CAACmlB,OAAR,CAAgB,KAAKH,SAArB,CAAlB,EAAmD;EAC/C,aAAOhlB,OAAO,CAACqC,IAAI,CAACtI,EAAD,CAAJ,CAAS,KAAKirB,SAAd,CAAD,CAAd;EACH,KAFD,MAEO;EACH,aAAOhlB,OAAO,CAACqC,IAAI,CAACtI,EAAD,CAAJ,CAAS,KAAKmG,OAAL,EAAT,CAAD,CAAd;EACH;EACJ,GAND;EAOH,CARD;;EAUAF,OAAO,CAACqE,SAAR,CAAkBnE,OAAlB,GAA4B,YAAW;EACnC,MAAIF,OAAO,CAAColB,QAAR,CAAiB,KAAKJ,SAAtB,CAAJ,EAAsC;EAClC,WAAO5jB,MAAM,CAAC,KAAK4jB,SAAN,CAAb;EACH,GAFD,MAEO,IAAIhlB,OAAO,CAACqlB,IAAR,CAAa,KAAKL,SAAlB,CAAJ,EAAkC;EACrC,WAAO,KAAKA,SAAL,CAAeW,QAAf,EAAP;EACH;EACJ,CAND;EAQA;EACA;;;EACA,IAAMC,MAAM,GAAI,YAAW;EACvB,MAAIzf,CAAC,GAAG,SAAJA,CAAI,CAACoI,CAAD,EAAIC,CAAJ;EAAA,WAAU,CAACD,CAAD,EAAIC,CAAJ,CAAV;EAAA,GAAR;;EACA,SAAO;EACHqX,IAAAA,MAAM,EAAE;EACJA,MAAAA,MAAM,EAAE1f,CADJ;EAEJ,eAAO,eAACoI,CAAD,EAAIC,CAAJ;EAAA,eAAU,CAACpO,MAAM,CAACmO,CAAC,CAACrO,OAAF,EAAD,CAAP,EAA4BsO,CAA5B,CAAV;EAAA,OAFH;EAGJsW,MAAAA,QAAQ,EAAE,kBAACvW,CAAD,EAAIC,CAAJ;EAAA,eAAU,CAAC;EAAE1O,UAAAA,GAAG,EAAEyO,CAAP;EAAUtO,UAAAA,KAAK,EAAE;EAAjB,SAAD,EAAuBuO,CAAvB,CAAV;EAAA,OAHN;EAIJoW,MAAAA,OAAO,EAAE,iBAACrW,CAAD,EAAIC,CAAJ;EAAA,eAAU,CAAC;EAAE/M,UAAAA,EAAE,EAAE,CAAN;EAASD,UAAAA,EAAE,EAAE+M;EAAb,SAAD,EAAmBC,CAAnB,CAAV;EAAA;EAJL,KADL;EAOHsX,IAAAA,OAAO,EAAE;EACLA,MAAAA,OAAO,EAAE3f,CADJ;EAEL,eAAO,eAACoI,CAAD,EAAIC,CAAJ;EAAA,eAAU,CAACpO,MAAM,CAACmO,CAAC,CAACrO,OAAF,EAAD,CAAP,EAA4BsO,CAA5B,CAAV;EAAA,OAFF;EAGLsW,MAAAA,QAAQ,EAAE,kBAACvW,CAAD,EAAIC,CAAJ;EAAA,eAAU,CAAC;EAAE1O,UAAAA,GAAG,EAAEyO,CAAP;EAAUtO,UAAAA,KAAK,EAAE;EAAjB,SAAD,EAAuBuO,CAAvB,CAAV;EAAA,OAHL;EAILoW,MAAAA,OAAO,EAAE,iBAACrW,CAAD,EAAIC,CAAJ;EAAA,eAAU,CAAC;EAAE/M,UAAAA,EAAE,EAAE,CAAN;EAASD,UAAAA,EAAE,EAAE+M;EAAb,SAAD,EAAmBC,CAAnB,CAAV;EAAA;EAJJ,KAPN;EAaH,aAAO;EACHqX,MAAAA,MAAM,EAAE,gBAACtX,CAAD,EAAIC,CAAJ;EAAA,eAAU,CAACD,CAAD,EAAIC,CAAC,IAAIpO,MAAM,CAACoO,CAAC,CAACtO,OAAF,EAAD,CAAf,CAAV;EAAA,OADL;EAEH4lB,MAAAA,OAAO,EAAE,iBAACvX,CAAD,EAAIC,CAAJ;EAAA,eAAU,CAACD,CAAD,EAAIC,CAAC,IAAIpO,MAAM,CAACoO,CAAC,CAACtO,OAAF,EAAD,CAAf,CAAV;EAAA,OAFN;EAGH,eAAOiG,CAHJ;EAIH2e,MAAAA,QAAQ,EAAE,kBAACvW,CAAD,EAAIC,CAAJ;EAAA,eAAU,CAACD,CAAD,EAAIC,CAAC,IAAIpO,MAAM,CAACoO,CAAC,CAACtO,OAAF,EAAD,CAAf,CAAV;EAAA,OAJP;EAKH0kB,MAAAA,OAAO,EAAE,iBAACrW,CAAD,EAAIC,CAAJ;EAAA,eAAU,CAAC;EAAEhN,UAAAA,EAAE,EAAE+M,CAAN;EAAS9M,UAAAA,EAAE,EAAErB,MAAM,CAAC,CAAD;EAAnB,SAAD,EAAiCoO,CAAjC,CAAV;EAAA;EALN,KAbJ;EAoBHoW,IAAAA,OAAO,EAAE;EACLiB,MAAAA,MAAM,EAAEjB,OAAO,CAAC,QAAD,CADV;EAELkB,MAAAA,OAAO,EAAElB,OAAO,CAAC,SAAD,CAFX;EAGL,eAAOA,OAAO,CAAC,OAAD,CAHT;EAILE,MAAAA,QAAQ,EAAEF,OAAO,CAAC,UAAD,CAJZ;EAKLA,MAAAA,OAAO,EAAE,iBAACrW,CAAD,EAAIC,CAAJ,EAAU;each,8BAAqBxO,OAAO,CAAC+lB,MAAR,CAAexX,CAAC,CAAC6M,MAAjB,EAAyB5M,CAAC,CAAC4M,MAA3B,CAArB;EAAA;EAAA,YAAO4K,IAAP;EAAA,YAAaC,IAAb;;EACA,+BAAqBjmB,OAAO,CAAC+lB,MAAR,CAAexX,CAAC,CAAC4M,MAAjB,EAAyB3M,CAAC,CAAC2M,MAA3B,CAArB;EAAA;EAAA,YAAO+K,IAAP;EAAA,YAAaC,IAAb;;EACA,eAAO,CACH;EAAE1kB,UAAAA,EAAE,EAAEykB,IAAN;EAAY1kB,UAAAA,EAAE,EAAEwkB;EAAhB,SADG,EAEH;EAAEvkB,UAAAA,EAAE,EAAE0kB,IAAN;EAAY3kB,UAAAA,EAAE,EAAEykB;EAAhB,SAFG,CAAP;EAIH;EAZI,KApBN;EAkCHnB,IAAAA,QAAQ,EAAE;EACNe,MAAAA,MAAM,EAAE,gBAACtX,CAAD,EAAIC,CAAJ;EAAA,eAAU,CAACD,CAAD,EAAIC,CAAC,IAAI;EAAE1O,UAAAA,GAAG,EAAE0O,CAAP;EAAUvO,UAAAA,KAAK,EAAE;EAAjB,SAAT,CAAV;EAAA,OADF;EAEN6lB,MAAAA,OAAO,EAAE,iBAACvX,CAAD,EAAIC,CAAJ;EAAA,eAAU,CAACD,CAAD,EAAIC,CAAC,IAAI;EAAE1O,UAAAA,GAAG,EAAE0O,CAAP;EAAUvO,UAAAA,KAAK,EAAE;EAAjB,SAAT,CAAV;EAAA,OAFH;EAGN,eAAO,eAACsO,CAAD,EAAIC,CAAJ;EAAA,eAAU,CAACpO,MAAM,CAACmO,CAAC,CAACrO,OAAF,EAAD,CAAP,EAAsBsO,CAAtB,CAAV;EAAA,OAHD;EAINsW,MAAAA,QAAQ,EAAE3e,CAJJ;EAKNye,MAAAA,OAAO,EAAE,iBAACrW,CAAD,EAAIC,CAAJ,EAAU;each,eAAO,CACH;EACI/M,UAAAA,EAAE,EAAEskB,MAAM,CAACxX,CAAC,CAAC5M,QAAH,EAAa6M,CAAC,CAAC2M,MAAF,CAASxZ,QAAtB,EAAgC,CAAhC,CAAN,CAAyC,CAAzC,CADR;EAEIH,UAAAA,EAAE,EAAEukB,MAAM,CAACxX,CAAC,CAAC5M,QAAH,EAAa6M,CAAC,CAAC4M,MAAF,CAASzZ,QAAtB,EAAgC4M,CAAhC,CAAN,CAAyC,CAAzC;EAFR,SADG,EAKH;EACI9M,UAAAA,EAAE,EAAEskB,MAAM,CAACxX,CAAC,CAAC5M,QAAH,EAAa6M,CAAC,CAAC2M,MAAF,CAASxZ,QAAtB,EAAgC6M,CAAC,CAAC2M,MAAlC,CAAN,CAAgD,CAAhD,CADR;EAEI3Z,UAAAA,EAAE,EAAEukB,MAAM,CAACxX,CAAC,CAAC5M,QAAH,EAAa6M,CAAC,CAAC4M,MAAF,CAASzZ,QAAtB,EAAgC6M,CAAC,CAAC4M,MAAlC,CAAN,CAAgD,CAAhD;EAFR,SALG,CAAP;EAUH;EAhBK;EAlCP,GAAP;;EAqDA,WAASwJ,OAAT,CAAiBjqB,IAAjB,EAAuB;EACnB,WAAO,UAAC4T,CAAD,EAAIC,CAAJ,EAAU;EACb,aAAO,CACH;EACI/M,QAAAA,EAAE,EAAEskB,MAAM,CAACprB,IAAD,EAAO4T,CAAC,CAAC4M,MAAF,CAASxZ,QAAhB,EAA0B,CAA1B,EAA6B4M,CAAC,CAAC4M,MAA/B,CAAN,CAA6C,CAA7C,CADR;EAEI3Z,QAAAA,EAAE,EAAEukB,MAAM,CAACprB,IAAD,EAAO4T,CAAC,CAAC6M,MAAF,CAASzZ,QAAhB,EAA0B,CAA1B,EAA6B4M,CAAC,CAAC6M,MAA/B,CAAN,CAA6C,CAA7C;EAFR,OADG,EAKH;EACI3Z,QAAAA,EAAE,EAAEskB,MAAM,CAACprB,IAAD,EAAO4T,CAAC,CAAC4M,MAAF,CAASxZ,QAAhB,EAA0B,CAA1B,EAA6B,CAA7B,CAAN,CAAsC,CAAtC,CADR;EAEIH,QAAAA,EAAE,EAAEukB,MAAM,CAACprB,IAAD,EAAO6T,CAAC,CAAC7M,QAAT,EAAmB,CAAnB,EAAsB6M,CAAtB,CAAN,CAA+B,CAA/B;EAFR,OALG,CAAP;EAUH,KAXD;EAYH;EACJ,CArEc,EAAf;;;EAuEA,SAASuX,MAAT,CAAgBK,MAAhB,EAAwBC,MAAxB,EAAgC9X,CAAhC,EAAmCC,CAAnC,EAAsC;EAClC,SAAOoX,MAAM,CAACQ,MAAD,CAAN,CAAeC,MAAf,EAAuB9X,CAAvB,EAA0BC,CAA1B,CAAP;EACH;;;EAEDxO,OAAO,CAAC+lB,MAAR,GAAiB,UAASxX,CAAT,EAAYC,CAAZ,EAAe;EAC5B,MAAM8X,MAAM,GAAGtmB,OAAO,CAACkkB,OAAR,CAAgB3V,CAAhB,CAAf;EACA,MAAMgY,MAAM,GAAGvmB,OAAO,CAACkkB,OAAR,CAAgB1V,CAAhB,CAAf;;EACA,MAAI,CAACoX,MAAM,CAACU,MAAD,CAAX,EAAqB;EACjB,UAAM,IAAI1lB,KAAJ,4CAA8C0lB,MAA9C,EAAN;EACH,GAFD,MAEO,IAAI,CAACV,MAAM,CAACU,MAAD,CAAN,CAAeC,MAAf,CAAL,EAA6B;EAChC,UAAM,IAAI3lB,KAAJ,4CAA8C2lB,MAA9C,EAAN;EACH;;EACD,MAAIC,GAAG,GAAGZ,MAAM,CAACU,MAAD,CAAN,CAAeC,MAAf,EAAuBhY,CAAvB,EAA0BC,CAA1B,CAAV;EACA,SAAOgY,GAAG,CAACnoB,GAAJ,CAAQ,UAAA0C,CAAC;EAAA,WAAIf,OAAO,CAACe,CAAD,EAAI,IAAJ,CAAX;EAAA,GAAT,CAAP;EACH,CAVD;;;EAYAf,OAAO,CAACqE,SAAR,CAAkB0hB,MAAlB,GAA2B,UAAShlB,CAAT,EAAY;EACnC,MAAI,EAAE,OAAOA,CAAP,KAAa,QAAb,IAAyBA,CAAC,YAAYf,OAAxC,CAAJ,EAAsD;EAClD,UAAM,IAAIY,KAAJ,qCAAuCjG,IAAI,CAACoG,CAAD,CAA3C,EAAN;EACH;;EACD,MAAI,OAAOA,CAAP,KAAa,QAAjB,EAA2B;EACvBA,IAAAA,CAAC,GAAGf,OAAO,CAACe,CAAD,CAAX;EACH;;EACD,SAAOf,OAAO,CAAC+lB,MAAR,CAAe,IAAf,EAAqBhlB,CAArB,CAAP;EACH,CARD;;;EAUAf,OAAO,CAACkkB,OAAR,GAAkB,UAASnjB,CAAT,EAAY;EAC1B,MAAIA,CAAC,YAAYf,OAAjB,EAA0B;EACtB,WAAOe,CAAC,CAACY,QAAT;EACH;;EACD,MAAI3B,OAAO,CAACmlB,OAAR,CAAgBpkB,CAAhB,CAAJ,EAAwB;EACpB,WAAO,OAAP;EACH;;EACD,MAAIf,OAAO,CAAC6kB,SAAR,CAAkB9jB,CAAlB,CAAJ,EAA0B;EACtB,WAAO,SAAP;EACH;;EACD,MAAIf,OAAO,CAAC+kB,UAAR,CAAmBhkB,CAAnB,CAAJ,EAA2B;EACvB,WAAO,UAAP;EACH;;EACD,MAAI,OAAOA,CAAP,KAAa,QAAjB,EAA2B;EACvB,WAAO,SAAP;EACH;;EACD,MAAK,OAAOwjB,MAAP,KAAkB,WAAlB,IAAiC,OAAOxjB,CAAP,KAAa,QAA/C,IACC,OAAOnH,EAAP,KAAc,WAAd,IAA6B,EAAEmH,CAAC,YAAYnH,EAAf,CADlC,EACuD;EACnD,WAAO,QAAP;EACH;EACJ,CApBD;;;EAsBAoG,OAAO,CAACqE,SAAR,CAAkB8gB,OAAlB,GAA4B,YAAW;EACnC,SAAO,CAAC,EAAEnlB,OAAO,CAACmlB,OAAR,CAAgB,KAAKH,SAArB,KAAmC,aAArC,CAAR;EACH,CAFD;;;EAIA,IAAIyB,OAAO,GAAG;EACV,SAAO,GADG;EAEV,SAAO,GAFG;EAGV,SAAO,GAHG;EAIV,SAAO,GAJG;EAKV,SAAO,GALG;EAMV,QAAM,GANI;EAOV,SAAO,GAPG;EAQV,SAAO,GARG;EASV,SAAO,IATG;EAUV,SAAO;EAVG,CAAd;EAYA,IAAIC,WAAW,GAAG,EAAlB;EACA5oB,MAAM,CAACC,IAAP,CAAY0oB,OAAZ,EAAqBvpB,OAArB,CAA6B,UAACoT,GAAD,EAAS;EAClCoW,EAAAA,WAAW,CAACD,OAAO,CAACnW,GAAD,CAAR,CAAX,GAA4BA,GAA5B;;EACAtQ,EAAAA,OAAO,CAACqE,SAAR,CAAkBiM,GAAlB,IAAyB,UAASvP,CAAT,EAAY;EACjC,WAAO,KAAK4lB,EAAL,CAAQF,OAAO,CAACnW,GAAD,CAAf,EAAsBvP,CAAtB,CAAP;EACH,GAFD;EAGH,CALD;;EAOAf,OAAO,CAAC4mB,IAAR,GAAe;EACX,OAAK,WAASrY,CAAT,EAAYC,CAAZ,EAAe;EAChB,WAAOD,CAAC,GAAGC,CAAX;EACH,GAHU;EAIX,OAAK,WAASD,CAAT,EAAYC,CAAZ,EAAe;EAChB,WAAOD,CAAC,GAAGC,CAAX;EACH,GANU;EAOX,OAAK,WAASD,CAAT,EAAYC,CAAZ,EAAe;EAChB,QAAI,OAAOA,CAAP,KAAa,WAAjB,EAA8B;EAC1B,aAAO,CAACD,CAAR;EACH;;EACD,WAAOA,CAAC,GAAGC,CAAX;EACH,GAZU;EAaX,OAAK,WAASD,CAAT,EAAYC,CAAZ,EAAe;EAChB,WAAOD,CAAC,GAAGC,CAAX;EACH,GAfU;EAgBX,OAAK,WAASD,CAAT,EAAYC,CAAZ,EAAe;EAChB,WAAOD,CAAC,GAAGC,CAAX;EACH,GAlBU;EAmBX,OAAK,WAASD,CAAT,EAAYC,CAAZ,EAAe;EAChB,WAAOD,CAAC,GAAGC,CAAX;EACH,GArBU;EAsBX,OAAK,WAASD,CAAT,EAAYC,CAAZ,EAAe;EAChB,WAAOD,CAAC,GAAGC,CAAX;EACH,GAxBU;EAyBX,OAAK,WAASD,CAAT,EAAY;EACb,WAAO,CAACA,CAAR;EACH,GA3BU;EA4BX,QAAM,WAASA,CAAT,EAAYC,CAAZ,EAAe;EACjB,WAAOD,CAAC,IAAIC,CAAZ;EACH,GA9BU;EA+BX,QAAM,WAASD,CAAT,EAAYC,CAAZ,EAAe;EACjB,WAAOD,CAAC,IAAIC,CAAZ;EACH;EAjCU,CAAf;;EAoCAxO,OAAO,CAACqE,SAAR,CAAkBsiB,EAAlB,GAAuB,UAASA,EAAT,EAAa5lB,CAAb,EAAgB;EACnC,MAAI,OAAOA,CAAP,KAAa,WAAjB,EAA8B;EAC1B,WAAOf,OAAO,CAACA,OAAO,CAAC4mB,IAAR,CAAaD,EAAb,EAAiB,KAAKzmB,OAAL,EAAjB,CAAD,CAAd;EACH;;EACD,MAAI,OAAOa,CAAP,KAAa,QAAjB,EAA2B;EACvBA,IAAAA,CAAC,GAAGf,OAAO,CAACe,CAAD,CAAX;EACH;;EACD,MAAIK,MAAM,CAACuW,KAAP,CAAa,KAAKqN,SAAlB,KAAgC,CAAChlB,OAAO,CAAC6kB,SAAR,CAAkB9jB,CAAlB,CAAjC,IACA,CAACf,OAAO,CAAC6kB,SAAR,CAAkB,IAAlB,CAAD,IAA4BzjB,MAAM,CAACuW,KAAP,CAAa5W,CAAC,CAACikB,SAAf,CADhC,EAC2D;EACvD,WAAOhlB,OAAO,CAACmB,GAAD,CAAd;EACH;;EACD,qBAAe,KAAK4kB,MAAL,CAAYhlB,CAAZ,CAAf;EAAA;EAAA,MAAOwN,CAAP;EAAA,MAAUC,CAAV;;EACA,MAAID,CAAC,CAACsY,GAAN,EAAW;EACP,WAAOtY,CAAC,CAACsY,GAAF,CAAMF,EAAN,EAAUnY,CAAV,CAAP;EACH;;EACD,SAAOxO,OAAO,CAACA,OAAO,CAAC4mB,IAAR,CAAaD,EAAb,EAAiBpY,CAAjB,EAAoBC,CAApB,CAAD,CAAd;EACH,CAhBD;;;EAkBAxO,OAAO,CAACqE,SAAR,CAAkByiB,IAAlB,GAAyB,YAAW;EAChC,MAAIrrB,KAAK,GAAG,KAAKyE,OAAL,EAAZ;;EACA,MAAI,KAAKwB,GAAL,CAAS,CAAT,IAAc,CAAlB,EAAqB;EACjB,QAAID,EAAE,GAAGY,IAAI,CAACykB,IAAL,CAAU,CAACrrB,KAAX,CAAT;EACA,WAAOmG,QAAQ,CAAC;EAAEJ,MAAAA,EAAE,EAAE,CAAN;EAASC,MAAAA,EAAE,EAAFA;EAAT,KAAD,CAAf;EACH;;EACD,SAAOzB,OAAO,CAACqC,IAAI,CAACykB,IAAL,CAAUrrB,KAAV,CAAD,CAAd;EACH,CAPD;;;EASA,IAAIiH,GAAG,GAAG,aAAS6L,CAAT,EAAYC,CAAZ,EAAe;EACrB,MAAI9T,CAAC,GAAG,OAAO6T,CAAP,KAAa,QAAb,GAAwBgW,MAAM,CAAC,CAAD,CAA9B,GAAoC,CAA5C;EACA,SAAO,IAAItb,KAAJ,CAAU7H,MAAM,CAACoN,CAAD,CAAhB,EAAqBiT,IAArB,CAA0B,CAA1B,EAA6B9S,MAA7B,CAAoC,UAAAxT,CAAC;EAAA,WAAIA,CAAC,GAAGoT,CAAR;EAAA,GAArC,EAAgD7T,CAAhD,CAAP;EACH,CAHD;EAKA;EACA;;;EACA,IAAIqsB,MAAM,GAAG,IAAIpF,QAAJ,CAAa,KAAb,EAAoB,eAApB,CAAb;;EACA,IAAI;EACA,MAAIoF,MAAM,CAAC,CAAD,EAAI,CAAJ,CAAN,KAAiB,CAArB,EAAwB;EACpBrkB,IAAAA,GAAG,GAAGqkB,MAAN;EACH;EACJ,CAJD,CAIE,OAAOrsB,CAAP,EAAU;EAEX;;;EAEDsF,OAAO,CAACqE,SAAR,CAAkB3B,GAAlB,GAAwB,UAAS3B,CAAT,EAAY;EAChC,MAAItF,KAAJ;;EACA,MAAIuE,OAAO,CAACqlB,IAAR,CAAa,KAAKL,SAAlB,CAAJ,EAAkC;EAC9BvpB,IAAAA,KAAK,GAAG,KAAKupB,SAAL,CAAetiB,GAAf,CAAmB3B,CAAC,CAACikB,SAArB,CAAR;EACH,GAFD,MAEO;EACHvpB,IAAAA,KAAK,GAAGiH,GAAG,CAAC,KAAKsiB,SAAN,EAAiBjkB,CAAC,CAACikB,SAAnB,CAAX;EACH;;EACD,SAAOhlB,OAAO,CAACvE,KAAD,CAAd;EACH,CARD;;;EAUAuE,OAAO,CAACqE,SAAR,CAAkB/B,GAAlB,GAAwB,YAAW;EAC/B,MAAI7G,KAAK,GAAG,KAAKupB,SAAjB;;EACA,MAAIhlB,OAAO,CAAColB,QAAR,CAAiB,KAAKJ,SAAtB,CAAJ,EAAsC;EAClC,QAAIvpB,KAAK,GAAG,CAAZ,EAAe;EACXA,MAAAA,KAAK,GAAG,CAACA,KAAT;EACH;EACJ,GAJD,MAIO,IAAIuE,OAAO,CAACqlB,IAAR,CAAa5pB,KAAb,CAAJ,EAAyB;EAC5BA,IAAAA,KAAK,CAACurB,IAAN;EACH;;EACD,SAAO,IAAIhnB,OAAJ,CAAYvE,KAAZ,CAAP;EACH,CAVD;;;EAYAuE,OAAO,CAACqE,SAAR,CAAkB4iB,KAAlB,GAA0B,YAAW;EACjC,MAAIjnB,OAAO,CAAColB,QAAR,CAAiB,KAAKJ,SAAtB,CAAJ,EAAsC;EAClC,QAAI,KAAKU,WAAL,EAAJ,EAAwB;EACpB,aAAO,KAAKV,SAAL,GAAiBT,MAAM,CAAC,CAAD,CAAvB,KAA+BA,MAAM,CAAC,CAAD,CAA5C;EACH;;EACD,WAAO,KAAKS,SAAL,GAAiB,CAAjB,KAAuB,CAA9B;EACH,GALD,MAKO,IAAIhlB,OAAO,CAACqlB,IAAR,CAAa,KAAKL,SAAlB,CAAJ,EAAkC;EACrC,WAAO,KAAKA,SAAL,CAAeiC,KAAf,EAAP;EACH;EACJ,CATD;;;EAWAjnB,OAAO,CAACqE,SAAR,CAAkB6iB,MAAlB,GAA2B,YAAW;EAClC,SAAO,CAAC,KAAKD,KAAL,EAAR;EACH,CAFD;;;EAIAjnB,OAAO,CAACqE,SAAR,CAAkB3C,GAAlB,GAAwB,UAASX,CAAT,EAAY;EAChC,sBAAe,KAAKglB,MAAL,CAAYhlB,CAAZ,CAAf;EAAA;EAAA,MAAOwN,CAAP;EAAA,MAAUC,CAAV;;EACA,WAAS9M,GAAT,CAAa6M,CAAb,EAAgBC,CAAhB,EAAmB;each,QAAID,CAAC,CAACyW,SAAF,GAAcxW,CAAC,CAACwW,SAApB,EAA+B;EAC3B,aAAO,CAAC,CAAR;EACH,KAFD,MAEO,IAAIzW,CAAC,CAACyW,SAAF,KAAgBxW,CAAC,CAACwW,SAAtB,EAAiC;EACpC,aAAO,CAAP;EACH,KAFM,MAEA;EACH,aAAO,CAAP;EACH;EACJ;;EACD,MAAIzW,CAAC,CAAC5M,QAAF,KAAe,QAAnB,EAA6B;EACzB,QAAI3B,OAAO,CAAColB,QAAR,CAAiB7W,CAAC,CAACyW,SAAnB,CAAJ,EAAmC;EAC/B,aAAOtjB,GAAG,CAAC6M,CAAD,EAAIC,CAAJ,CAAV;EACH,KAFD,MAEO,IAAIxO,OAAO,CAACqlB,IAAR,CAAa9W,CAAC,CAACyW,SAAf,CAAJ,EAA+B;EAClC,aAAO,KAAKA,SAAL,CAAetjB,GAAf,CAAmB8M,CAAC,CAACwW,SAArB,CAAP;EACH;EACJ,GAND,MAMO,IAAIzW,CAAC,YAAYnO,MAAjB,EAAyB;EAC5B,WAAOsB,GAAG,CAAC6M,CAAD,EAAIC,CAAJ,CAAV;EACH;EACJ,CApBD;EAsBA;EACA;;;EACA,SAAS5M,QAAT,CAAkBb,CAAlB,EAAoC;EAAA,MAAfijB,KAAe,uEAAP,KAAO;;EAChC,MAAI,OAAO,IAAP,KAAgB,WAAhB,IAA+B,EAAE,gBAAgBpiB,QAAlB,CAA/B,IACA,OAAO,IAAP,KAAgB,WADpB,EACiC;EAC7B,WAAO,IAAIA,QAAJ,CAAab,CAAb,EAAgBijB,KAAhB,CAAP;EACH;;EACD,MAAIjjB,CAAC,YAAYa,QAAjB,EAA2B;EACvB,WAAOA,QAAQ,CAAC;EAAEH,MAAAA,EAAE,EAAEV,CAAC,CAACoa,MAAR;EAAgB3Z,MAAAA,EAAE,EAAET,CAAC,CAACqa;EAAtB,KAAD,CAAf;EACH;;EACD,MAAIpb,OAAO,CAACsd,QAAR,CAAiBvc,CAAjB,KAAuBijB,KAA3B,EAAkC;EAC9B,QAAI,CAACA,KAAL,EAAY;EACR,aAAO5iB,MAAM,CAACL,CAAD,CAAb;EACH;EACJ,GAJD,MAIO,IAAI,CAACf,OAAO,CAAC6kB,SAAR,CAAkB9jB,CAAlB,CAAL,EAA2B;EAC9B,UAAM,IAAIH,KAAJ,CAAU,uCAAV,CAAN;EACH;;EACD,MAAIa,EAAE,GAAGV,CAAC,CAACU,EAAF,YAAgBzB,OAAhB,GAA0Be,CAAC,CAACU,EAA5B,GAAiCzB,OAAO,CAACe,CAAC,CAACU,EAAH,CAAjD;EACA,MAAID,EAAE,GAAGT,CAAC,CAACS,EAAF,YAAgBxB,OAAhB,GAA0Be,CAAC,CAACS,EAA5B,GAAiCxB,OAAO,CAACe,CAAC,CAACS,EAAH,CAAjD;EACA,OAAKmjB,QAAL,CAAcljB,EAAd,EAAkBD,EAAlB;EACH;;;EAEDI,QAAQ,CAACyC,SAAT,GAAqBvG,MAAM,CAAC0f,MAAP,CAAcxd,OAAO,CAACqE,SAAtB,CAArB;EACAzC,QAAQ,CAACyC,SAAT,CAAmBsC,WAAnB,GAAiC/E,QAAjC;;EAEAA,QAAQ,CAACyC,SAAT,CAAmBsgB,QAAnB,GAA8B,UAASljB,EAAT,EAAaD,EAAb,EAAiB;EAC3C1D,EAAAA,MAAM,CAAC2K,cAAP,CAAsB,IAAtB,EAA4B,QAA5B,EAAsC;EAClChN,IAAAA,KAAK,EAAEgG,EAD2B;EAElCiH,IAAAA,UAAU,EAAE;EAFsB,GAAtC;EAIA5K,EAAAA,MAAM,CAAC2K,cAAP,CAAsB,IAAtB,EAA4B,QAA5B,EAAsC;EAClChN,IAAAA,KAAK,EAAE+F,EAD2B;EAElCkH,IAAAA,UAAU,EAAE;EAFsB,GAAtC;EAIA5K,EAAAA,MAAM,CAAC2K,cAAP,CAAsB,IAAtB,EAA4B,UAA5B,EAAwC;EACpChN,IAAAA,KAAK,EAAE,SAD6B;EAEpCiN,IAAAA,UAAU,EAAE;EAFwB,GAAxC;EAIH,CAbD;;;EAeA9G,QAAQ,CAACyC,SAAT,CAAmBgD,SAAnB,GAA+B,YAAW;EACtC,SAAO;EACH7F,IAAAA,EAAE,EAAE,KAAK4Z,MADN;EAEH3Z,IAAAA,EAAE,EAAE,KAAK0Z;EAFN,GAAP;EAIH,CALD;;;EAOAvZ,QAAQ,CAACyC,SAAT,CAAmBnD,UAAnB,GAAgC,UAASH,CAAT,EAAY;EACxC,MAAIf,OAAO,CAACmlB,OAAR,CAAgB,KAAKhK,MAArB,KAAgCnb,OAAO,CAACmlB,OAAR,CAAgB,KAAK/J,MAArB,CAApC,EAAkE;EAC9D,QAAM3Z,EAAE,GAAGrB,MAAM,CAAC,KAAK+a,MAAN,CAAN,CAAoBja,UAApB,CAA+BH,CAA/B,CAAX;EACA,QAAMS,EAAE,GAAGpB,MAAM,CAAC,KAAKgb,MAAN,CAAN,CAAoBla,UAApB,CAA+BH,CAA/B,CAAX;EACA,WAAOa,QAAQ,CAAC;EAAEH,MAAAA,EAAE,EAAFA,EAAF;EAAMD,MAAAA,EAAE,EAAFA;EAAN,KAAD,CAAf;EACH;;EACD,SAAO,IAAP;EACH,CAPD;;;EASAI,QAAQ,CAACyC,SAAT,CAAmB9J,GAAnB,GAAyB,UAASwG,CAAT,EAAY;EACjC,SAAO,KAAKomB,UAAL,CAAgB,KAAhB,EAAuBpmB,CAAvB,EAA0B,UAASilB,IAAT,EAAeC,IAAf,EAAqBC,IAArB,EAA2BC,IAA3B,EAAiC;EAC9D,WAAO;EACH3kB,MAAAA,EAAE,EAAEwkB,IAAI,CAACzrB,GAAL,CAAS0rB,IAAT,CADD;EAEHxkB,MAAAA,EAAE,EAAEykB,IAAI,CAAC3rB,GAAL,CAAS4rB,IAAT;EAFD,KAAP;EAIH,GALM,CAAP;EAMH,CAPD;EASA;EACA;;;EACAvkB,QAAQ,CAACyC,SAAT,CAAmB5B,MAAnB,GAA4B,YAAW;EACnC;EACA,MAAI,KAAK0Y,MAAL,YAAuB/a,MAAvB,IAAiC,KAAK+a,MAAL,YAAuB/a,MAA5D,EAAoE;EAChE,QAAcoB,EAAd,GAAiC,IAAjC,CAAM4Z,MAAN;EAAA,QAA0B3Z,EAA1B,GAAiC,IAAjC,CAAkB0Z,MAAlB;EACA,QAAIhgB,CAAJ,EAAO+f,CAAP;;EACA,QAAI1Z,EAAE,YAAYpB,MAAlB,EAA0B;EACtBjF,MAAAA,CAAC,GAAGqG,EAAE,CAACN,UAAH,GAAgByB,GAAhB,CAAoBnB,EAAE,CAACN,UAAH,EAApB,CAAJ;EACH,KAFD,MAEO;EACH/F,MAAAA,CAAC,GAAGqG,EAAE,CAACmB,GAAH,CAAOnB,EAAP,CAAJ;EACH;;EACD,QAAIC,EAAE,YAAYrB,MAAlB,EAA0B;EACtB8a,MAAAA,CAAC,GAAGzZ,EAAE,CAACP,UAAH,GAAgByB,GAAhB,CAAoBlB,EAAE,CAACP,UAAH,EAApB,CAAJ;EACH,KAFD,MAEO;EACHga,MAAAA,CAAC,GAAGzZ,EAAE,CAACkB,GAAH,CAAOlB,EAAP,CAAJ;EACH;;EACD,WAAOtG,CAAC,CAACZ,GAAF,CAAM2gB,CAAN,CAAP;EACH,GAdD,macro;EACH,WAAO,KAAKE,MAAL,CAAYzY,GAAZ,CAAgB,KAAKyY,MAArB,EAA6B7gB,GAA7B,CAAiC,KAAK4gB,MAAL,CAAYxY,GAAZ,CAAgB,KAAKwY,MAArB,CAAjC,CAAP;EACH;EACJ,CAnBD;;;EAqBAvZ,QAAQ,CAACyC,SAAT,CAAmB+iB,OAAnB,GAA6B,YAAW;EACpC,SAAO,KAAK3kB,MAAL,GAAcqkB,IAAd,EAAP;EACH,CAFD;;;EAIAllB,QAAQ,CAACyC,SAAT,CAAmBgjB,SAAnB,GAA+B,YAAW;EACtC,SAAOzlB,QAAQ,CAAC;EAAEJ,IAAAA,EAAE,EAAE,KAAK4Z,MAAX;EAAmB3Z,IAAAA,EAAE,EAAE,KAAK0Z,MAAL,CAAYpF,GAAZ;EAAvB,GAAD,CAAf;EACH,CAFD;;;EAIAnU,QAAQ,CAACyC,SAAT,CAAmByiB,IAAnB,GAA0B,YAAW;EACjC,MAAMzjB,CAAC,GAAG,KAAK+jB,OAAL,EAAV,CADiC;EAGjC;EACA;;EACA,MAAI5lB,EAAJ,EAAQC,EAAR;;EACA,MAAI4B,CAAC,CAAC3B,GAAF,CAAM,CAAN,MAAa,CAAjB,EAAoB;EAChBF,IAAAA,EAAE,GAAGC,EAAE,GAAG4B,CAAV;EACH,GAFD,MAEO,IAAI,KAAK+X,MAAL,CAAY1Z,GAAZ,CAAgB,CAAhB,MAAuB,CAA3B,EAA8B;EACjCF,IAAAA,EAAE,GAAGpB,MAAM,CAAC,GAAD,CAAN,CAAYuC,GAAZ,CAAgBU,CAAC,CAAC9I,GAAF,CAAM,KAAK6gB,MAAX,CAAhB,EAAoC0L,IAApC,EAAL;EACArlB,IAAAA,EAAE,GAAG,KAAK0Z,MAAL,CAAYmM,GAAZ,CAAgB9lB,EAAhB,EAAoB8lB,GAApB,CAAwB,CAAxB,CAAL;EACH,GAHM,MAGA;EACH7lB,IAAAA,EAAE,GAAGrB,MAAM,CAAC,GAAD,CAAN,CAAYuC,GAAZ,CAAgBU,CAAC,CAAC0S,GAAF,CAAM,KAAKqF,MAAX,CAAhB,EAAoC0L,IAApC,EAAL;;EACA,QAAI,KAAK3L,MAAL,CAAYzZ,GAAZ,CAAgB,CAAhB,MAAuB,CAAC,CAA5B,EAA+B;EAC3BD,MAAAA,EAAE,GAAGA,EAAE,CAACsU,GAAH,EAAL;EACH;;EACDvU,IAAAA,EAAE,GAAG,KAAK2Z,MAAL,CAAYmM,GAAZ,CAAgB7lB,EAAhB,EAAoB6lB,GAApB,CAAwB,CAAxB,CAAL;EACH;;EACD,SAAO1lB,QAAQ,CAAC;EAAEH,IAAAA,EAAE,EAAFA,EAAF;EAAMD,IAAAA,EAAE,EAAFA;EAAN,GAAD,CAAf;EACH,CAnBD;;;EAqBAI,QAAQ,CAACyC,SAAT,CAAmBijB,GAAnB,GAAyB,UAASvmB,CAAT,EAAY;EACjC,MAAIf,OAAO,CAACsd,QAAR,CAAiBvc,CAAjB,KAAuB,CAACf,OAAO,CAAC6kB,SAAR,CAAkB9jB,CAAlB,CAA5B,EAAkD;EAC9C,QAAI,EAAEA,CAAC,YAAYf,OAAf,CAAJ,EAA6B;EACzBe,MAAAA,CAAC,GAAGf,OAAO,CAACe,CAAD,CAAX;EACH;;EACD,QAAMS,GAAE,GAAG,KAAK4Z,MAAL,CAAYkM,GAAZ,CAAgBvmB,CAAhB,CAAX;;EACA,QAAMU,GAAE,GAAG,KAAK0Z,MAAL,CAAYmM,GAAZ,CAAgBvmB,CAAhB,CAAX;;EACA,WAAOa,QAAQ,CAAC;EAAEJ,MAAAA,EAAE,EAAFA,GAAF;EAAMC,MAAAA,EAAE,EAAFA;EAAN,KAAD,CAAf;EACH,GAPD,MAOO,IAAI,CAACzB,OAAO,CAAC6kB,SAAR,CAAkB9jB,CAAlB,CAAL,EAA2B;EAC9B,UAAM,IAAIH,KAAJ,CAAU,+BAAV,CAAN;EACH;;EACD,sBAAiB,KAAKmlB,MAAL,CAAYhlB,CAAZ,CAAjB;EAAA;EAAA,MAAQwN,CAAR;EAAA,MAAWC,CAAX;;EACA,MAAMvO,KAAK,GAAGuO,CAAC,CAAC/L,MAAF,EAAd;EACA,MAAM3C,GAAG,GAAGyO,CAAC,CAAC5L,GAAF,CAAM6L,CAAC,CAAC6Y,SAAF,EAAN,CAAZ;;EACA,MAAM7lB,EAAE,GAAG1B,GAAG,CAACsb,MAAJ,CAAWuL,EAAX,CAAc,GAAd,EAAmB1mB,KAAnB,CAAX;;EACA,MAAMwB,EAAE,GAAG3B,GAAG,CAACqb,MAAJ,CAAWwL,EAAX,CAAc,GAAd,EAAmB1mB,KAAnB,CAAX;;EACA,SAAO2B,QAAQ,CAAC;EAAEJ,IAAAA,EAAE,EAAFA,EAAF;EAAMC,IAAAA,EAAE,EAAFA;EAAN,GAAD,CAAf;EACH,CAjBD;;;EAmBAG,QAAQ,CAACyC,SAAT,CAAmB0R,GAAnB,GAAyB,UAAShV,CAAT,EAAY;EACjC,SAAO,KAAKomB,UAAL,CAAgB,KAAhB,EAAuBpmB,CAAvB,EAA0B,UAASilB,IAAT,EAAeC,IAAf,EAAqBC,IAArB,EAA2BC,IAA3B,EAAiC;EAC9D,WAAO;EACH3kB,MAAAA,EAAE,EAAEwkB,IAAI,CAACjQ,GAAL,CAASkQ,IAAT,CADD;EAEHxkB,MAAAA,EAAE,EAAEykB,IAAI,CAACnQ,GAAL,CAASoQ,IAAT;EAFD,KAAP;EAIH,GALM,CAAP;EAMH,CAPD;;;EASAvkB,QAAQ,CAACyC,SAAT,CAAmB1B,GAAnB,GAAyB,UAAS5B,CAAT,EAAY;EACjC,SAAO,KAAKomB,UAAL,CAAgB,KAAhB,EAAuBpmB,CAAvB,EAA0B,UAASilB,IAAT,EAAeC,IAAf,EAAqBC,IAArB,EAA2BC,IAA3B,EAAiC;EAC9D,QAAIzU,GAAG,GAAG;EACNlQ,MAAAA,EAAE,EAAEwkB,IAAI,CAACrjB,GAAL,CAASsjB,IAAT,EAAelQ,GAAf,CAAmBmQ,IAAI,CAACvjB,GAAL,CAASwjB,IAAT,CAAnB,CADE;EAEN1kB,MAAAA,EAAE,EAAEukB,IAAI,CAACrjB,GAAL,CAASwjB,IAAT,EAAe5rB,GAAf,CAAmB0rB,IAAI,CAACtjB,GAAL,CAASujB,IAAT,CAAnB;EAFE,KAAV;EAIA,WAAOxU,GAAP;EACH,GANM,CAAP;EAOH,CARD;;;EAUA9P,QAAQ,CAACyC,SAAT,CAAmB8iB,UAAnB,GAAgC,UAASzgB,IAAT,EAAe3F,CAAf,EAAkBhH,EAAlB,EAAsB;EAAA;;EAClD,MAAMwtB,IAAI,GAAG,SAAPA,IAAO,CAAC/lB,EAAD,EAAKC,EAAL,EAAY;EACrB,QAAIxE,MAAM,GAAGlD,EAAE,CAAC,MAAI,CAACqhB,MAAN,EAAc5Z,EAAd,EAAkB,MAAI,CAAC2Z,MAAvB,EAA+B1Z,EAA/B,CAAf;;EACA,QAAI,QAAQxE,MAAR,IAAkB,QAAQA,MAA9B,EAAsC;EAClC,UAAIA,MAAM,CAACwE,EAAP,CAAUC,GAAV,CAAc,CAAd,MAAqB,CAArB,IAA0B,CAAC1B,OAAO,CAACmlB,OAAR,CAAgBloB,MAAM,CAACwE,EAAvB,CAA/B,EAA2D;EACvD,eAAOxE,MAAM,CAACuE,EAAd;EACH;;EACD,aAAOI,QAAQ,CAAC3E,MAAD,EAAS,IAAT,CAAf;EACH;;EACD,WAAOA,MAAP;EACH,GATD;;EAUA,MAAI,OAAO8D,CAAP,KAAa,WAAjB,EAA8B;EAC1B,WAAOwmB,IAAI,EAAX;EACH;;EACD,MAAIvnB,OAAO,CAACsd,QAAR,CAAiBvc,CAAjB,KAAuB,CAACf,OAAO,CAAC6kB,SAAR,CAAkB9jB,CAAlB,CAA5B,EAAkD;EAC9C,QAAI,EAAEA,CAAC,YAAYf,OAAf,CAAJ,EAA6B;EACzBe,MAAAA,CAAC,GAAGf,OAAO,CAACe,CAAD,CAAX;EACH;;EACD,QAAMU,IAAE,GAAGV,CAAC,CAAC0kB,MAAF,CAAS,CAAT,CAAX;;EACA1kB,IAAAA,CAAC,GAAG;EAAEoa,MAAAA,MAAM,EAAE1Z,IAAV;EAAc2Z,MAAAA,MAAM,EAAEra;EAAtB,KAAJ;EACH,GAND,MAMO,IAAI,CAACf,OAAO,CAAC6kB,SAAR,CAAkB9jB,CAAlB,CAAL,EAA2B;EAC9B,UAAM,IAAIH,KAAJ,sBAAwB8F,IAAxB,qBAAN;EACH;;EACD,MAAIlF,EAAE,GAAGT,CAAC,CAACqa,MAAF,YAAoBpb,OAApB,GAA8Be,CAAC,CAACqa,MAAhC,GAAyC,KAAKA,MAAL,CAAYqK,MAAZ,CAAmB1kB,CAAC,CAACqa,MAArB,CAAlD;EACA,MAAI3Z,EAAE,GAAGV,CAAC,CAACoa,MAAF,YAAoBnb,OAApB,GAA8Be,CAAC,CAACoa,MAAhC,GAAyC,KAAKA,MAAL,CAAYsK,MAAZ,CAAmB1kB,CAAC,CAACoa,MAArB,CAAlD;EACA,SAAOoM,IAAI,CAAC/lB,EAAD,EAAKC,EAAL,CAAX;EACH,CA1BD;;;EA4BAG,QAAQ,CAACilB,GAAT,GAAe;EACX,OAAK,KADM;EAEX,OAAK,KAFM;EAGX,OAAK,KAHM;EAIX,OAAK;EAJM,CAAf;;EAOAjlB,QAAQ,CAACyC,SAAT,CAAmBwiB,GAAnB,GAAyB,UAASF,EAAT,EAAa5lB,CAAb,EAAgB;EACrC,MAAMhH,EAAE,GAAG6H,QAAQ,CAACilB,GAAT,CAAaF,EAAb,CAAX;EACA,SAAO,KAAK5sB,EAAL,EAASgH,CAAT,CAAP;EACH,CAHD;;;EAKAa,QAAQ,CAACyC,SAAT,CAAmB3C,GAAnB,GAAyB,UAASX,CAAT,EAAY;EACjC,sBAAe,KAAKglB,MAAL,CAAYhlB,CAAZ,CAAf;EAAA;EAAA,MAAOwN,CAAP;EAAA,MAAUC,CAAV;;EACA,yBAAqBD,CAAC,CAAC6M,MAAF,CAAS2K,MAAT,CAAgBvX,CAAC,CAAC4M,MAAlB,CAArB;EAAA;EAAA,MAAOoM,IAAP;EAAA,MAAaC,IAAb;;EACA,MAAMC,MAAM,GAAGF,IAAI,CAAC9lB,GAAL,CAAS+lB,IAAT,CAAf;;EACA,MAAIC,MAAM,KAAK,CAAf,EAAkB;EACd,WAAOA,MAAP;EACH,GAFD,MAEO;EACH,2BAAqBnZ,CAAC,CAAC4M,MAAF,CAAS4K,MAAT,CAAgBvX,CAAC,CAAC2M,MAAlB,CAArB;EAAA;EAAA,QAAOwM,IAAP;EAAA,QAAaC,IAAb;;EACA,WAAOD,IAAI,CAACjmB,GAAL,CAASkmB,IAAT,CAAP;EACH;EACJ,CAVD;;;EAYAhmB,QAAQ,CAACyC,SAAT,CAAmBnE,OAAnB,GAA6B,YAAW;EACpC,SAAO,CAAC,KAAKkb,MAAN,EAAc,KAAKD,MAAnB,EAA2B9c,GAA3B,CAA+B,UAAAlD,CAAC;EAAA,WAAIA,CAAC,CAAC+E,OAAF,EAAJ;EAAA,GAAhC,CAAP;EACH,CAFD;;;EAIA0B,QAAQ,CAACyC,SAAT,CAAmBvL,QAAnB,GAA8B,YAAW;EACrC,MAAImE,MAAJ;;EACA,MAAI,KAAKme,MAAL,CAAY1Z,GAAZ,CAAgB,CAAhB,MAAuB,CAA3B,EAA8B;EAC1BzE,IAAAA,MAAM,GAAG,CAACnE,QAAQ,CAAC,KAAKsiB,MAAN,CAAT,CAAT;EACH,GAFD,MAEO;EACHne,IAAAA,MAAM,GAAG,EAAT;EACH,GANoC;;;EAQrC,MAAIwE,EAAE,GAAG,KAAK0Z,MAAL,CAAYjb,OAAZ,EAAT;;EACA,MAAI2nB,GAAG,GAAG,CAACzmB,MAAM,CAACC,iBAAR,EAA2BD,MAAM,CAACE,iBAAlC,EAAqD9B,QAArD,CAA8DiC,EAA9D,CAAV;EACA,MAAIqmB,MAAM,GAAGhvB,QAAQ,CAAC,KAAKqiB,MAAN,CAArB;;EACA,MAAI,CAAC0M,GAAD,IAAQ,CAACzmB,MAAM,CAACuW,KAAP,CAAalW,EAAb,CAAb,EAA+B;EAC3B,QAAIsmB,UAAU,GAAG,KAAK5M,MAAL,CAAYzZ,GAAZ,CAAgB,CAAhB,CAAjB;;EACA,QAAIqmB,UAAU,GAAG,CAAb,IAAmBA,UAAU,KAAK,CAAf,IAAoB,KAAK5M,MAAL,CAAY6M,MAAvD,EAAgE;EAC5D/qB,MAAAA,MAAM,CAACW,IAAP,CAAY,GAAZ;EACH,KAFD,MAEO;EACHX,MAAAA,MAAM,CAACW,IAAP,CAAY,GAAZ;EACH;;EACDkqB,IAAAA,MAAM,GAAGA,MAAM,CAACzoB,OAAP,CAAe,IAAf,EAAqB,EAArB,CAAT;EACH;;EACDpC,EAAAA,MAAM,CAACW,IAAP,CAAYkqB,MAAZ;EACA7qB,EAAAA,MAAM,CAACW,IAAP,CAAY,GAAZ;EACA,SAAOX,MAAM,CAACe,IAAP,CAAY,EAAZ,CAAP;EACH,CAvBD;EAyBA;EACA;;;EACA,SAASoC,MAAT,CAAgBW,CAAhB,EAAmB;each,MAAI,OAAO,IAAP,KAAgB,WAAhB,IAA+B,EAAE,gBAAgBX,MAAlB,CAA/B,IACA,OAAO,IAAP,KAAgB,WADpB,EACiC;EAC7B,WAAO,IAAIA,MAAJ,CAAWW,CAAX,CAAP;EACH;;EACD,MAAI,CAACf,OAAO,CAACsd,QAAR,CAAiBvc,CAAjB,CAAL,EAA0B;EACtB,UAAM,IAAIH,KAAJ,CAAU,qCAAV,CAAN;EACH;;EACD,MAAIG,CAAC,YAAYf,OAAjB,EAA0B;EACtB,WAAOI,MAAM,CAACW,CAAC,CAACb,OAAF,EAAD,CAAb;EACH;;EACD,MAAI,OAAOa,CAAP,KAAa,QAAjB,EAA2B;EACvB,QAAIjD,MAAM,CAACkJ,EAAP,CAAUjG,CAAV,EAAa,CAAC,CAAd,CAAJ,EAAsB;EAClBjD,MAAAA,MAAM,CAAC2K,cAAP,CAAsB,IAAtB,EAA4B,QAA5B,EAAsC;EAClChN,QAAAA,KAAK,EAAE;EAD2B,OAAtC;EAGH;;EACD,SAAKkpB,QAAL,CAAc5jB,CAAd,EAAiB,OAAjB;EACH;EACJ;;;EAEDX,MAAM,CAACiE,SAAP,GAAmBvG,MAAM,CAAC0f,MAAP,CAAcxd,OAAO,CAACqE,SAAtB,CAAnB;EACAjE,MAAM,CAACiE,SAAP,CAAiBsC,WAAjB,GAA+BvG,MAA/B;;EAEAA,MAAM,CAACiE,SAAP,CAAiBvL,QAAjB,GAA4B,YAAW;EACnC,MAAI,KAAKksB,SAAL,KAAmB5jB,MAAM,CAACC,iBAA9B,EAAiD;EAC7C,WAAO,QAAP;EACH;;EACD,MAAI,KAAK2jB,SAAL,KAAmB5jB,MAAM,CAACE,iBAA9B,EAAiD;EAC7C,WAAO,QAAP;EACH;;EACD,MAAIF,MAAM,CAACuW,KAAP,CAAa,KAAKqN,SAAlB,CAAJ,EAAkC;EAC9B,WAAO,QAAP;EACH;;EACD,MAAIjjB,GAAG,GAAG,KAAKijB,SAAL,CAAelsB,QAAf,EAAV;;EACA,MAAI,CAACkH,OAAO,CAACmlB,OAAR,CAAgB,KAAKH,SAArB,CAAD,IAAoC,CAACjjB,GAAG,CAAC5C,KAAJ,CAAU,IAAV,CAAzC,EAA0D;EACtD,QAAIlC,MAAM,GAAG8E,GAAG,GAAG,IAAnB;EACA,WAAO,KAAKimB,MAAL,GAAe,MAAM/qB,MAArB,GAA+BA,MAAtC;EACH;;EACD,SAAO8E,GAAG,CAAC1C,OAAJ,CAAY,YAAZ,EAA0B,OAA1B,CAAP;EACH,CAhBD;;;EAkBAe,MAAM,CAACiE,SAAP,CAAiBwiB,GAAjB,GAAuB,UAASF,EAAT,EAAa5lB,CAAb,EAAgB;EACnC,MAAIA,CAAC,YAAYf,OAAjB,EAA0B;EACtBe,IAAAA,CAAC,GAAGA,CAAC,CAACikB,SAAN;EACH;;EACD,MAAMjrB,EAAE,GAAGiG,OAAO,CAAC4mB,IAAR,CAAaD,EAAb,CAAX;;EACA,MAAIA,EAAE,KAAK,GAAP,IAAc,KAAK3B,SAAL,KAAmB,CAAjC,IAAsCjkB,CAAC,KAAK,CAAhD,EAAmD;EAC/C,WAAOI,GAAP;EACH;;EACD,SAAOf,MAAM,CAACrG,EAAE,CAAC,KAAKirB,SAAN,EAAiBjkB,CAAjB,CAAH,CAAb;EACH,CATD;EAWA;;;EACAX,MAAM,CAACiE,SAAP,CAAiBnD,UAAjB,GAA8B,YAAmB;EAAA,MAAVH,CAAU,uEAAN,IAAM;;EAC7C,MAAIA,CAAC,KAAK,IAAV,EAAgB;EACZ,WAAOG,UAAU,CAAC,KAAK8jB,SAAL,CAAe9kB,OAAf,EAAD,CAAjB;EACH;;EACD,SAAO+nB,WAAW,CAAClnB,CAAC,CAACb,OAAF,EAAD,CAAX,CAAyB,KAAK8kB,SAAL,CAAe9kB,OAAf,EAAzB,CAAP;EACH,CALD;;;EAOAE,MAAM,CAACiE,SAAP,CAAiByiB,IAAjB,GAAwB,YAAW;EAC/B,MAAIrrB,KAAK,GAAG,KAAKyE,OAAL,EAAZ;;EACA,MAAI,KAAKwB,GAAL,CAAS,CAAT,IAAc,CAAlB,EAAqB;EACjB,QAAID,EAAE,GAAGrB,MAAM,CAACiC,IAAI,CAACykB,IAAL,CAAU,CAACrrB,KAAX,CAAD,CAAf;EACA,WAAOmG,QAAQ,CAAC;EAAEJ,MAAAA,EAAE,EAAE,CAAN;EAASC,MAAAA,EAAE,EAAFA;EAAT,KAAD,CAAf;EACH;;EACD,SAAOrB,MAAM,CAACiC,IAAI,CAACykB,IAAL,CAAUrrB,KAAV,CAAD,CAAb;EACH,CAPD;;;EASA2E,MAAM,CAACiE,SAAP,CAAiB/B,GAAjB,GAAuB,YAAW;EAC9B,MAAI7G,KAAK,GAAG,KAAKyE,OAAL,EAAZ;;EACA,MAAIzE,KAAK,GAAG,CAAZ,EAAe;EACXA,IAAAA,KAAK,GAAG,CAACA,KAAT;EACH;;EACD,SAAO2E,MAAM,CAAC3E,KAAD,CAAb;EACH,CAND;EAQA;EACA;;;EACA,IAAIyF,UAAU,GAAG+mB,WAAW,CAAC,KAAD,CAA5B;;EACA,SAASA,WAAT,CAAqBC,GAArB,EAA0B;EACtB,SAAO,UAASnnB,CAAT,EAAY;each,QAAMonB,IAAI,GAAG,SAAPA,IAAO,CAACztB,CAAD,EAAIS,CAAJ,EAAO+f,CAAP,EAAa;EAClB,UAAMkN,IAAI,GAAG,SAAPA,IAAO,CAAC7Z,CAAD,EAAIC,CAAJ;EAAA,eAAWA,CAAC,GAAG9T,CAAJ,GAAQ6T,CAAR,GAAY6Z,IAAI,CAAC5Z,CAAD,EAAID,CAAC,GAAGC,CAAR,CAA3B;EAAA,OAAb;;EACA,UAAIpN,MAAM,CAACuW,KAAP,CAAaxc,CAAb,KAAmBiG,MAAM,CAACuW,KAAP,CAAauD,CAAb,CAAvB,EAAwC;EACpC,eAAO/Z,GAAP;EACH;;EACD,aAAOinB,IAAI,CAAC/lB,IAAI,CAACC,GAAL,CAASnH,CAAT,CAAD,EAAckH,IAAI,CAACC,GAAL,CAAS4Y,CAAT,CAAd,CAAX;EACH,KANL;EAAA,QAOImN,CAAC,GAAGF,IAAI,CAACD,GAAG,GAAGA,GAAH,GAAU,IAAI,KAAlB,EAA0B,CAA1B,EAA6BnnB,CAA7B,CAPZ;;EAQA,WAAOhB,SAAS,CAAC;EAAED,MAAAA,GAAG,EAAEuC,IAAI,CAACuZ,KAAL,CAAW7a,CAAC,GAAGsnB,CAAf,CAAP;EAA0BpoB,MAAAA,KAAK,EAAEoC,IAAI,CAACuZ,KAAL,CAAW,IAAIyM,CAAf;EAAjC,KAAD,CAAhB;EACH,GAVD;EAWH;EAED;EACA;EACA;EACA;EACA;;;EACA,SAASC,WAAT,CAAqBntB,CAArB,EAAwB+f,CAAxB,EAA2B;EACvB,MAAI3M,CAAC,GAAGpT,CAAC,CAAC4a,GAAF,CAAMmF,CAAN,CAAR;EACA,MAAI1M,CAAC,GAAGrT,CAAC,CAACZ,GAAF,CAAM2gB,CAAN,CAAR;EACA,MAAIje,MAAJ;;EACA,MAAIsR,CAAC,CAAC7M,GAAF,CAAM8M,CAAN,IAAW,CAAf,EAAkB;EACdvR,IAAAA,MAAM,GAAGsrB,kBAAkB,CAAC/Z,CAAD,EAAID,CAAJ,CAA3B;EACH,GAFD,MAEO,IAAIC,CAAC,CAAC9M,GAAF,CAAM6M,CAAN,KAAY,CAAhB,EAAmB;EACtBtR,IAAAA,MAAM,GAAGsR,CAAT;EACH,GAFM,MAEA,IAAIA,CAAC,CAAC7M,GAAF,CAAM,CAAN,IAAW,CAAf,EAAkB;EACrBzE,IAAAA,MAAM,GAAGsrB,kBAAkB,CAACha,CAAD,EAAIC,CAAJ,CAA3B;EACH,GAFM,MAEA,IAAI0M,CAAC,CAACxZ,GAAF,CAAM,CAAN,IAAW,CAAf,EAAkB;EACrBzE,IAAAA,MAAM,GAAG+C,OAAO,CAACuoB,kBAAkB,CAAC/Z,CAAC,CAACuH,GAAF,EAAD,EAAUxH,CAAC,CAACwH,GAAF,EAAV,CAAnB,CAAP,CAA8CA,GAA9C,EAAT;EACH,GAFM,MAEA;EACH9Y,IAAAA,MAAM,GAAG+C,OAAO,CAAC,CAAD,CAAhB;EACH;;EACD,MAAIA,OAAO,CAACmlB,OAAR,CAAgBjK,CAAhB,KAAsBlb,OAAO,CAACmlB,OAAR,CAAgBhqB,CAAhB,CAA1B,EAA8C;EAC1C,WAAOiF,MAAM,CAACnD,MAAD,CAAb;EACH;;EACD,SAAOA,MAAP;EACH;;;EAED,SAASsrB,kBAAT,CAA4BptB,CAA5B,EAA+B+f,CAA/B,EAAkC;EAC9B,MAAIsN,EAAE,GAAGxoB,OAAO,CAAC7E,CAAD,CAAP,CAAWygB,KAAX,EAAT;EACA,MAAI6M,EAAE,GAAGzoB,OAAO,CAACkb,CAAD,CAAP,CAAWU,KAAX,EAAT;;EACA,MAAIzgB,CAAC,CAACuG,GAAF,CAAM8mB,EAAN,IAAY,CAAhB,EAAmB;each,WAAOA,EAAP;EACH,GAFD,MAEO,IAAIA,EAAE,CAAC9mB,GAAH,CAAO+mB,EAAP,MAAe,CAAnB,EAAsB;EACzB,QAAI1nB,CAAC,GAAGf,OAAO,CAAC,CAAD,CAAP,CAAWsnB,GAAX,CAAepM,CAAC,CAACnF,GAAF,CAAM0S,EAAN,CAAf,CAAR;EACA,QAAIC,CAAC,GAAG1oB,OAAO,CAAC,CAAD,CAAP,CAAWsnB,GAAX,CAAensB,CAAC,CAAC4a,GAAF,CAAMyS,EAAN,CAAf,CAAR;EACA,WAAOA,EAAE,CAACjuB,GAAH,CAAOyF,OAAO,CAAC,CAAD,CAAP,CAAWsnB,GAAX,CAAeiB,kBAAkB,CAACxnB,CAAD,EAAI2nB,CAAJ,CAAjC,CAAP,CAAP;EACH,GAJM,MAIA;EACH,WAAOF,EAAE,CAACjuB,GAAH,CAAOyF,OAAO,CAAC,CAAD,CAAd,CAAP;EACH;EACJ;;;EAED,SAASD,SAAT,CAAmBgB,CAAnB,EAAqC;EAAA,MAAfijB,KAAe,uEAAP,KAAO;;EACjC,MAAI,OAAO,IAAP,KAAgB,WAAhB,IAA+B,EAAE,gBAAgBjkB,SAAlB,CAA/B,IACA,OAAO,IAAP,KAAgB,WADpB,EACiC;EAC7B,WAAO,IAAIA,SAAJ,CAAcgB,CAAd,EAAiBijB,KAAjB,CAAP;EACH;;EACD,MAAI,CAAChkB,OAAO,CAAC+kB,UAAR,CAAmBhkB,CAAnB,CAAL,EAA4B;EACxB,UAAM,IAAIH,KAAJ,CAAU,wCAAV,CAAN;EACH;;EACD,MAAId,GAAJ,EAASG,KAAT;;EACA,MAAIc,CAAC,YAAYhB,SAAjB,EAA4B;EACxBD,IAAAA,GAAG,GAAGE,OAAO,CAACe,CAAC,CAAC4nB,OAAH,CAAb;EACA1oB,IAAAA,KAAK,GAAGD,OAAO,CAACe,CAAC,CAAC6nB,SAAH,CAAf;EACH,GAHD,MAGO;EACH9oB,IAAAA,GAAG,GAAGE,OAAO,CAACe,CAAC,CAACjB,GAAH,CAAb;EACAG,IAAAA,KAAK,GAAGD,OAAO,CAACe,CAAC,CAACd,KAAH,CAAf;EACH;;EACD,MAAI,CAAC+jB,KAAD,IAAU/jB,KAAK,CAACyB,GAAN,CAAU,CAAV,MAAiB,CAA/B,EAAkC;EAC9B,QAAImnB,UAAU,GAAG/oB,GAAG,CAAC6mB,EAAJ,CAAO,GAAP,EAAY1mB,KAAZ,EAAmByB,GAAnB,CAAuB,CAAvB,MAA8B,CAA/C;;EACA,QAAImnB,UAAJ,EAAgB;EACZ,aAAO7oB,OAAO,CAACF,GAAG,CAACwnB,GAAJ,CAAQrnB,KAAR,CAAD,CAAd;EACH;EACJ;;EACD,OAAK0kB,QAAL,CAAc7kB,GAAd,EAAmBG,KAAnB;EACH;;;EAEDF,SAAS,CAACsE,SAAV,GAAsBvG,MAAM,CAAC0f,MAAP,CAAcxd,OAAO,CAACqE,SAAtB,CAAtB;EACAtE,SAAS,CAACsE,SAAV,CAAoBsC,WAApB,GAAkC5G,SAAlC;;EAEAA,SAAS,CAACsE,SAAV,CAAoBsgB,QAApB,GAA+B,UAAS7kB,GAAT,EAAcG,KAAd,EAAqB;EAChDnC,EAAAA,MAAM,CAAC2K,cAAP,CAAsB,IAAtB,EAA4B,SAA5B,EAAuC;EACnChN,IAAAA,KAAK,EAAEqE,GAD4B;EAEnC4I,IAAAA,UAAU,EAAE;EAFuB,GAAvC;EAIA5K,EAAAA,MAAM,CAAC2K,cAAP,CAAsB,IAAtB,EAA4B,WAA5B,EAAyC;EACrChN,IAAAA,KAAK,EAAEwE,KAD8B;EAErCyI,IAAAA,UAAU,EAAE;EAFyB,GAAzC;EAIA5K,EAAAA,MAAM,CAAC2K,cAAP,CAAsB,IAAtB,EAA4B,UAA5B,EAAwC;EACpChN,IAAAA,KAAK,EAAE,UAD6B;EAEpCiN,IAAAA,UAAU,EAAE;EAFwB,GAAxC;EAIH,CAbD;;;EAeA3I,SAAS,CAACsE,SAAV,CAAoBgD,SAApB,GAAgC,YAAW;EACvC,SAAO;EACHvH,IAAAA,GAAG,EAAE,KAAK6oB,OADP;EAEH1oB,IAAAA,KAAK,EAAE,KAAK2oB;EAFT,GAAP;EAIH,CALD;;;EAOA7oB,SAAS,CAACsE,SAAV,CAAoB3B,GAApB,GAA0B,UAAS3B,CAAT,EAAY;EAClC,MAAIW,GAAG,GAAGX,CAAC,CAACW,GAAF,CAAM,CAAN,CAAV;;EACA,MAAIA,GAAG,KAAK,CAAZ,EAAe;EACX,WAAO1B,OAAO,CAAC,CAAD,CAAd;EACH;;EACD,MAAI0B,GAAG,KAAK,CAAC,CAAb,EAAgB;EACZX,IAAAA,CAAC,GAAGA,CAAC,CAACgV,GAAF,EAAJ;;EACA,QAAIjW,GAAG,GAAG,KAAK8oB,SAAL,CAAelmB,GAAf,CAAmB3B,CAAnB,CAAV;;EACA,QAAId,KAAK,GAAG,KAAK0oB,OAAL,CAAajmB,GAAb,CAAiB3B,CAAjB,CAAZ;;EACA,WAAOhB,SAAS,CAAC;EAAED,MAAAA,GAAG,EAAHA,GAAF;EAAOG,MAAAA,KAAK,EAALA;EAAP,KAAD,CAAhB;EACH;;EACD,MAAIhD,MAAM,GAAG,IAAb;EACA8D,EAAAA,CAAC,GAAGA,CAAC,CAACb,OAAF,EAAJ;;EACA,SAAOa,CAAC,GAAG,CAAX,EAAc;EACV9D,IAAAA,MAAM,GAAGA,MAAM,CAAC0F,GAAP,CAAW,IAAX,CAAT;EACA5B,IAAAA,CAAC;EACJ;;EACD,SAAO9D,MAAP;EACH,CAlBD;;;EAoBA8C,SAAS,CAACsE,SAAV,CAAoByiB,IAApB,GAA2B,YAAW;EAClC,MAAMhnB,GAAG,GAAG,KAAK6oB,OAAL,CAAa7B,IAAb,EAAZ;;EACA,MAAM7mB,KAAK,GAAG,KAAK2oB,SAAL,CAAe9B,IAAf,EAAd;;EACA,MAAIhnB,GAAG,YAAYM,MAAf,IAAyBH,KAAK,YAAYG,MAA9C,EAAsD;EAClD,WAAON,GAAG,CAACwnB,GAAJ,CAAQrnB,KAAR,CAAP;EACH;;EACD,SAAOF,SAAS,CAAC;EAAED,IAAAA,GAAG,EAAHA,GAAF;EAAOG,IAAAA,KAAK,EAALA;EAAP,GAAD,CAAhB;EACH,CAPD;;;EASAF,SAAS,CAACsE,SAAV,CAAoB/B,GAApB,GAA0B,YAAW;EACjC,MAAIxC,GAAG,GAAG,KAAK6oB,OAAf;EACA,MAAI1oB,KAAK,GAAG,KAAK2oB,SAAjB;;EACA,MAAI9oB,GAAG,CAAC4B,GAAJ,CAAQ,CAAR,MAAe,CAAC,CAApB,EAAuB;EACnB5B,IAAAA,GAAG,GAAGA,GAAG,CAACiW,GAAJ,EAAN;EACH;;EACD,MAAI9V,KAAK,CAACyB,GAAN,CAAU,CAAV,MAAiB,CAArB,EAAwB;EACpBzB,IAAAA,KAAK,GAAGA,KAAK,CAAC8V,GAAN,EAAR;EACH;;EACD,SAAOhW,SAAS,CAAC;EAAED,IAAAA,GAAG,EAAHA,GAAF;EAAOG,IAAAA,KAAK,EAALA;EAAP,GAAD,CAAhB;EACH,CAVD;;;EAYAF,SAAS,CAACsE,SAAV,CAAoB3C,GAApB,GAA0B,UAASX,CAAT,EAAY;EAClC,SAAOf,OAAO,CAAC,KAAKE,OAAL,EAAD,EAAiB,IAAjB,CAAP,CAA8BwB,GAA9B,CAAkCX,CAAlC,CAAP;EACH,CAFD;;;EAIAhB,SAAS,CAACsE,SAAV,CAAoBvL,QAApB,GAA+B,YAAW;EACtC,MAAImsB,GAAG,GAAG,KAAK0D,OAAL,CAAa1D,GAAb,CAAiB,KAAK2D,SAAtB,CAAV;;EACA,MAAI9oB,GAAJ,EAASG,KAAT;;EACA,MAAIglB,GAAG,CAACvjB,GAAJ,CAAQ,CAAR,MAAe,CAAnB,EAAsB;EAClB5B,IAAAA,GAAG,GAAG,KAAK6oB,OAAL,CAAarB,GAAb,CAAiBrC,GAAjB,CAAN;;EACA,QAAInlB,GAAG,YAAYC,SAAnB,EAA8B;EAC1BD,MAAAA,GAAG,GAAGE,OAAO,CAACF,GAAG,CAACI,OAAJ,CAAY,IAAZ,CAAD,CAAb;EACH;;EACDD,IAAAA,KAAK,GAAG,KAAK2oB,SAAL,CAAetB,GAAf,CAAmBrC,GAAnB,CAAR;;EACA,QAAIhlB,KAAK,YAAYF,SAArB,EAAgC;EAC5BE,MAAAA,KAAK,GAAGD,OAAO,CAACC,KAAK,CAACC,OAAN,CAAc,IAAd,CAAD,CAAf;EACH;EACJ,GATD,MASO;EACHJ,IAAAA,GAAG,GAAG,KAAK6oB,OAAX;EACA1oB,IAAAA,KAAK,GAAG,KAAK2oB,SAAb;EACH;;EACD,MAAMtE,KAAK,GAAG,KAAK5iB,GAAL,CAAS,CAAT,IAAc,CAA5B;;EACA,MAAI4iB,KAAJ,EAAW;EACP,QAAIxkB,GAAG,CAACwC,GAAJ,GAAUZ,GAAV,CAAczB,KAAK,CAACqC,GAAN,EAAd,MAA+B,CAAnC,EAAsC;EAClC,aAAOxC,GAAG,CAAChH,QAAJ,EAAP;EACH;EACJ,GAJD,MAIO,IAAIgH,GAAG,CAAC4B,GAAJ,CAAQzB,KAAR,MAAmB,CAAvB,EAA0B;EAC7B,WAAOH,GAAG,CAAChH,QAAJ,EAAP;EACH;;EACD,SAAOgH,GAAG,CAAChH,QAAJ,KAAiB,GAAjB,GAAuBmH,KAAK,CAACnH,QAAN,EAA9B;EACH,CAzBD;;;EA2BAiH,SAAS,CAACsE,SAAV,CAAoBnE,OAApB,GAA8B,UAASR,KAAT,EAAgB;EAC1C,MAAI,KAAKkpB,SAAL,CAAelnB,GAAf,CAAmB,CAAnB,MAA0B,CAA9B,EAAiC;EAC7B,QAAI,KAAKinB,OAAL,CAAajnB,GAAb,CAAiB,CAAjB,IAAsB,CAA1B,EAA6B;EACzB,aAAON,MAAM,CAACC,iBAAd;EACH;;EACD,WAAOD,MAAM,CAACE,iBAAd;EACH;;EACD,MAAI5B,KAAJ,EAAW;EACP,WAAOM,OAAO,CAAC4mB,IAAR,CAAa,GAAb,EAAkB,KAAK+B,OAAL,CAAaltB,KAA/B,EAAsC,KAAKmtB,SAAL,CAAentB,KAArD,CAAP;EACH;;EACD,SAAO2E,MAAM,CAAC,KAAKuoB,OAAL,CAAazoB,OAAb,EAAD,CAAN,CAA+BonB,GAA/B,CAAmC,KAAKsB,SAAL,CAAe1oB,OAAf,EAAnC,CAAP;EACH,CAXD;;;EAaAH,SAAS,CAACsE,SAAV,CAAoB1B,GAApB,GAA0B,UAAS5B,CAAT,EAAY;EAClC,MAAI,EAAEA,CAAC,YAAYf,OAAf,CAAJ,EAA6B;EACzBe,IAAAA,CAAC,GAAGf,OAAO,CAACe,CAAD,CAAX,CADyB;EAE5B;;EACD,MAAIf,OAAO,CAAC+kB,UAAR,CAAmBhkB,CAAnB,CAAJ,EAA2B;EACvB,QAAIjB,GAAG,GAAG,KAAK6oB,OAAL,CAAahmB,GAAb,CAAiB5B,CAAC,CAAC4nB,OAAnB,CAAV;;EACA,QAAI1oB,KAAK,GAAG,KAAK2oB,SAAL,CAAejmB,GAAf,CAAmB5B,CAAC,CAAC6nB,SAArB,CAAZ;;EACA,WAAO7oB,SAAS,CAAC;EAAED,MAAAA,GAAG,EAAHA,GAAF;EAAOG,MAAAA,KAAK,EAALA;EAAP,KAAD,CAAhB;EACH;;EACD,yBAAeD,OAAO,CAAC+lB,MAAR,CAAe,IAAf,EAAqBhlB,CAArB,CAAf;EAAA;EAAA,MAAOwN,CAAP;EAAA,MAAUC,CAAV;;EACA,SAAOD,CAAC,CAAC5L,GAAF,CAAM6L,CAAN,CAAP;EACH,CAXD;;;EAaAzO,SAAS,CAACsE,SAAV,CAAoBijB,GAApB,GAA0B,UAASvmB,CAAT,EAAY;EAClC,MAAI,EAAEA,CAAC,YAAYf,OAAf,CAAJ,EAA6B;EACzBe,IAAAA,CAAC,GAAGf,OAAO,CAACe,CAAD,CAAX,CADyB;EAE5B;;EACD,MAAIf,OAAO,CAAC+kB,UAAR,CAAmBhkB,CAAnB,CAAJ,EAA2B;EACvB,QAAIjB,GAAG,GAAG,KAAK6oB,OAAL,CAAahmB,GAAb,CAAiB5B,CAAC,CAAC6nB,SAAnB,CAAV;;EACA,QAAI3oB,KAAK,GAAG,KAAK2oB,SAAL,CAAejmB,GAAf,CAAmB5B,CAAC,CAAC4nB,OAArB,CAAZ;;EACA,WAAO5oB,SAAS,CAAC;EAAED,MAAAA,GAAG,EAAHA,GAAF;EAAOG,MAAAA,KAAK,EAALA;EAAP,KAAD,CAAhB;EACH;;EACD,yBAAeD,OAAO,CAAC+lB,MAAR,CAAe,IAAf,EAAqBhlB,CAArB,CAAf;EAAA;EAAA,MAAOwN,CAAP;EAAA,MAAUC,CAAV;;EACA,MAAMkD,GAAG,GAAGnD,CAAC,CAAC+Y,GAAF,CAAM9Y,CAAN,CAAZ;EACA,SAAOkD,GAAP;EACH,CAZD;;;EAcA3R,SAAS,CAACsE,SAAV,CAAoBwiB,GAApB,GAA0B,UAASF,EAAT,EAAa5lB,CAAb,EAAgB;EACtC,SAAO,KAAK2lB,WAAW,CAACC,EAAD,CAAhB,EAAsB5lB,CAAtB,CAAP;EACH,CAFD;;;EAIAhB,SAAS,CAACsE,SAAV,CAAoB0R,GAApB,GAA0B,UAAShV,CAAT,EAAY;EAClC,MAAI,OAAOA,CAAP,KAAa,WAAjB,EAA8B;EAC1B,WAAO,KAAK4B,GAAL,CAAS,CAAC,CAAV,CAAP;EACH;;EACD,MAAI,EAAE5B,CAAC,YAAYf,OAAf,CAAJ,EAA6B;EACzBe,IAAAA,CAAC,GAAGf,OAAO,CAACe,CAAD,CAAX,CADyB;EAE5B;;EACD,MAAIf,OAAO,CAAC+kB,UAAR,CAAmBhkB,CAAnB,CAAJ,EAA2B;EACvB,QAAIjB,GAAG,GAAGiB,CAAC,CAAC4nB,OAAF,CAAU5S,GAAV,EAAV;;EACA,QAAI9V,KAAK,GAAGc,CAAC,CAAC6nB,SAAd;EACA,WAAO,KAAKruB,GAAL,CAASwF,SAAS,CAAC;EAAED,MAAAA,GAAG,EAAHA,GAAF;EAAOG,MAAAA,KAAK,EAALA;EAAP,KAAD,CAAlB,CAAP;EACH;;EACD,MAAI,EAAEc,CAAC,YAAYf,OAAf,CAAJ,EAA6B;EACzBe,IAAAA,CAAC,GAAGf,OAAO,CAACe,CAAD,CAAP,CAAWgV,GAAX,EAAJ;EACH,GAFD,MAEO;EACHhV,IAAAA,CAAC,GAAGA,CAAC,CAACgV,GAAF,EAAJ;EACH;;EACD,yBAAe/V,OAAO,CAAC+lB,MAAR,CAAe,IAAf,EAAqBhlB,CAArB,CAAf;EAAA;EAAA,MAAOwN,CAAP;EAAA,MAAUC,CAAV;;EACA,SAAOD,CAAC,CAAChU,GAAF,CAAMiU,CAAN,CAAP;EACH,CAnBD;;;EAqBAzO,SAAS,CAACsE,SAAV,CAAoB9J,GAApB,GAA0B,UAASwG,CAAT,EAAY;EAClC,MAAI,EAAEA,CAAC,YAAYf,OAAf,CAAJ,EAA6B;EACzBe,IAAAA,CAAC,GAAGf,OAAO,CAACe,CAAD,CAAX,CADyB;EAE5B;;EACD,MAAIf,OAAO,CAAC+kB,UAAR,CAAmBhkB,CAAnB,CAAJ,EAA2B;EACvB,QAAM+nB,OAAO,GAAG,KAAKF,SAArB;EACA,QAAMG,OAAO,GAAGhoB,CAAC,CAAC6nB,SAAlB;EACA,QAAMI,KAAK,GAAG,KAAKL,OAAnB;EACA,QAAMM,KAAK,GAAGloB,CAAC,CAAC4nB,OAAhB;EACA,QAAI1oB,KAAJ,EAAWH,GAAX;;EACA,QAAIgpB,OAAO,KAAKC,OAAhB,EAAyB;EACrBjpB,MAAAA,GAAG,GAAGipB,OAAO,CAACpmB,GAAR,CAAYqmB,KAAZ,EAAmBzuB,GAAnB,CAAuB0uB,KAAK,CAACtmB,GAAN,CAAUmmB,OAAV,CAAvB,CAAN;EACA7oB,MAAAA,KAAK,GAAG6oB,OAAO,CAACnmB,GAAR,CAAYomB,OAAZ,CAAR;EACH,KAHD,MAGO;EACHjpB,MAAAA,GAAG,GAAGkpB,KAAK,CAACzuB,GAAN,CAAU0uB,KAAV,CAAN;EACAhpB,MAAAA,KAAK,GAAG6oB,OAAR;EACH;;EACD,WAAO/oB,SAAS,CAAC;EAAED,MAAAA,GAAG,EAAHA,GAAF;EAAOG,MAAAA,KAAK,EAALA;EAAP,KAAD,CAAhB;EACH;;EACD,MAAID,OAAO,CAACmlB,OAAR,CAAgBpkB,CAAhB,CAAJ,EAAwB;EACpB,WAAOX,MAAM,CAAC,KAAKF,OAAL,EAAD,CAAN,CAAuB3F,GAAvB,CAA2BwG,CAA3B,CAAP;EACH;;EACD,0BAAef,OAAO,CAAC+lB,MAAR,CAAe,IAAf,EAAqBhlB,CAArB,CAAf;EAAA;EAAA,MAAOwN,CAAP;EAAA,MAAUC,CAAV;;EACA,SAAOD,CAAC,CAAChU,GAAF,CAAMiU,CAAN,CAAP;EACH,CAxBD;;;EA0BA,SAASkW,WAAT,CAAqB3jB,CAArB,EAAwB+gB,QAAxB,EAAgC;EAC5B,MAAI,OAAO,IAAP,KAAgB,WAAhB,IAA+B,EAAE,gBAAgB4C,WAAlB,CAA/B,IACA,OAAO,IAAP,KAAgB,WADpB,EACiC;EAC7B,WAAO,IAAIA,WAAJ,CAAgB3jB,CAAhB,EAAmB+gB,QAAnB,CAAP;EACH;;EACD,MAAI/gB,CAAC,YAAY2jB,WAAjB,EAA8B;EAC1B,WAAOA,WAAW,CAAC3jB,CAAC,CAACikB,SAAH,EAAcjkB,CAAC,CAACmoB,OAAhB,CAAlB;EACH;;EACD,MAAI,CAAClpB,OAAO,CAACulB,YAAR,CAAqBxkB,CAArB,CAAL,EAA8B;EAC1B,UAAM,IAAIH,KAAJ,CAAU,0CAAV,CAAN;EACH;;EACD,OAAK+jB,QAAL,CAAc5jB,CAAd,EAAiB,QAAjB;EACAjD,EAAAA,MAAM,CAAC2K,cAAP,CAAsB,IAAtB,EAA4B,SAA5B,EAAuC;EACnChN,IAAAA,KAAK,EAAEqmB;EAD4B,GAAvC;EAGH;;;EAED4C,WAAW,CAACrgB,SAAZ,GAAwBvG,MAAM,CAAC0f,MAAP,CAAcxd,OAAO,CAACqE,SAAtB,CAAxB;EACAqgB,WAAW,CAACrgB,SAAZ,CAAsBsC,WAAtB,GAAoC+d,WAApC;;EAEAA,WAAW,CAACyE,KAAZ,GAAoB;EAChB,OAAK,MADW;EAEhB,OAAK,MAFW;EAGhB,OAAK,MAHW;EAIhB,OAAK,MAJW;EAKhB,OAAK,MALW;EAMhB,OAAK,KANW;EAOhB,OAAK,MAPW;EAQhB,OAAK,MARW;EAShB,QAAM,OATU;EAUhB,QAAM;EAVU,CAApB;;EAYAzE,WAAW,CAACrgB,SAAZ,CAAsBgD,SAAtB,GAAkC,YAAW;EACzC,SAAO,KAAK2d,SAAL,CAAelsB,QAAf,EAAP;EACH,CAFD;;;EAIA4rB,WAAW,CAACrgB,SAAZ,CAAsBwiB,GAAtB,GAA4B,UAASF,EAAT,EAAa5lB,CAAb,EAAgB;EACxC,MAAI,OAAOA,CAAP,KAAa,WAAjB,EAA8B;EAC1B,QAAIf,OAAO,CAACqlB,IAAR,CAAa,KAAKL,SAAlB,CAAJ,EAAkC;EAC9B2B,MAAAA,EAAE,GAAGjC,WAAW,CAACyE,KAAZ,CAAkBxC,EAAlB,CAAL;EACA,aAAOjC,WAAW,CAAC,KAAKM,SAAL,CAAe5N,KAAf,GAAuBuP,EAAvB,GAAD,EAA+B,KAA/B,CAAlB;EACH;;EACD,WAAOjC,WAAW,CAAC1kB,OAAO,CAAC4mB,IAAR,CAAaD,EAAb,EAAiB,KAAK3B,SAAtB,CAAD,EAAmC,IAAnC,CAAlB;EACH;;EACD,MAAIhlB,OAAO,CAACqlB,IAAR,CAAa,KAAKL,SAAlB,KAAgChlB,OAAO,CAACqlB,IAAR,CAAatkB,CAAC,CAACikB,SAAf,CAApC,EAA+D;EAC3D2B,IAAAA,EAAE,GAAGjC,WAAW,CAACyE,KAAZ,CAAkBxC,EAAlB,CAAL;EACA,WAAOjC,WAAW,CAAC,KAAKM,SAAL,CAAe5N,KAAf,GAAuBuP,EAAvB,EAA2B5lB,CAA3B,CAAD,EAAgC,KAAhC,CAAlB;EACH;;EACD,MAAM2Q,GAAG,GAAG1R,OAAO,CAAC4mB,IAAR,CAAaD,EAAb,EAAiB,KAAK3B,SAAtB,EAAiCjkB,CAAC,CAACikB,SAAnC,CAAZ;;EACA,MAAI2B,EAAE,KAAK,GAAX,EAAgB;EACZ,QAAIkC,UAAU,GAAG,KAAKlC,EAAL,CAAQ,GAAR,EAAa5lB,CAAb,EAAgBW,GAAhB,CAAoB,CAApB,MAA2B,CAA5C;;EACA,QAAImnB,UAAJ,EAAgB;EACZ,aAAO7oB,OAAO,CAAC0R,GAAD,CAAd;EACH;;EACD,WAAO3R,SAAS,CAAC;EAAED,MAAAA,GAAG,EAAE,IAAP;EAAaG,MAAAA,KAAK,EAAEc;EAApB,KAAD,CAAhB;EACH,GAnBuC;;;EAqBxC,SAAO2jB,WAAW,CAAChT,GAAD,EAAM,IAAN,CAAlB;EACH,CAtBD;;;EAwBAgT,WAAW,CAACrgB,SAAZ,CAAsByiB,IAAtB,GAA6B,YAAW;EACpC,MAAIrrB,KAAJ;EACA,MAAI6oB,KAAK,GAAG,KAAK5iB,GAAL,CAAS,CAAT,IAAc,CAA1B;;EACA,MAAI1B,OAAO,CAAColB,QAAR,CAAiB,KAAKJ,SAAtB,CAAJ,EAAsC;EAClCvpB,IAAAA,KAAK,GAAGuE,OAAO,CAACqC,IAAI,CAACykB,IAAL,CAAUxC,KAAK,GAAG,CAAC,KAAKpkB,OAAL,EAAJ,GAAqB,KAAKA,OAAL,EAApC,CAAD,CAAf;EACH,GAFD,MAEO,IAAIF,OAAO,CAACqlB,IAAR,CAAa,KAAKL,SAAlB,CAAJ,EAAkC;EACrCvpB,IAAAA,KAAK,GAAG6oB,KAAK,GAAG,KAAKU,SAAL,CAAeloB,GAAf,GAAqBgqB,IAArB,EAAH,GAAiC,KAAK9B,SAAL,CAAe8B,IAAf,EAA9C;EACH;;EACD,MAAIxC,KAAJ,EAAW;EACP,WAAO1iB,QAAQ,CAAC;EAAEJ,MAAAA,EAAE,EAAE,CAAN;EAASC,MAAAA,EAAE,EAAEhG;EAAb,KAAD,CAAf;EACH;;EACD,SAAOA,KAAP;EACH,CAZD;;;EAcAuE,OAAO,CAACmB,GAAR,GAAcnB,OAAO,CAACmB,GAAD,CAArB;EAEA;EACA;;EACA,SAAS0Y,SAAT,CAAmBhhB,IAAnB,EAAyB;EAAA;;EACrB,MAAI,OAAO,IAAP,KAAgB,WAAhB,IAA+B,EAAE,gBAAgBghB,SAAlB,CAA/B,IACA,OAAO,IAAP,KAAgB,WADpB,EACiC;EAC7B,WAAO,IAAIA,SAAJ,CAAchhB,IAAd,CAAP;EACH;;EACDoe,EAAAA,SAAS,CAAC,WAAD,EAAcpe,IAAd,EAAoB,UAApB,CAAT;EACAwP,EAAAA,SAAS,CAAC,IAAD,EAAO,UAAP,EAAmB+gB,SAAnB,CAAT;EACA,MAAI7X,MAAJ;EACAzT,EAAAA,MAAM,CAAC2K,cAAP,CAAsB,IAAtB,EAA4B,YAA5B,EAA0C;EACtCC,IAAAA,UAAU,EAAE,IAD0B;EAEtC/M,IAAAA,GAAG,EAAE,eAAW;EACZ,aAAO4V,MAAP;EACH,KAJqC;EAKtCvG,IAAAA,GAAG,EAAE,aAASvP,KAAT,EAAgB;EACjBwb,MAAAA,SAAS,CAAC,uBAAD,EAA0Bxb,KAA1B,EAAiC,QAAjC,CAAT;EACA8V,MAAAA,MAAM,GAAG9V,KAAT;EACH;EARqC,GAA1C;EAUA,OAAK4tB,KAAL,GAAaxwB,IAAb;EACA,OAAKywB,YAAL,GAAoB,KAAKC,iBAAL,CAAuB5J,IAAvB,CAA4B,IAA5B,gEAAkC;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA,gBAC7C,MAAI,CAAC6J,UAAL,EAD6C;EAAA;EAAA;EAAA;;EAAA;EAAA,mBAE3B,MAAI,CAACH,KAAL,EAF2B;;EAAA;EAExC1d,YAAAA,IAFwC;EAG9C4F,YAAAA,MAAM,GAAG,IAAIzC,MAAJ,CAAWnD,IAAX,EAAiB;EAAEoD,cAAAA,GAAG,EAAE;EAAP,aAAjB,CAAT;;EAH8C;EAAA,+CAK3C,MAAI,CAAC0a,UALsC;;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA,GAAlC,GAApB;;EAOA,OAAKD,UAAL,GAAkB,YAAW;EACzB,WAAO,CAAC,CAAC,KAAKC,UAAP,IAAqB,KAAKA,UAAL,CAAgBva,SAAhB,CAA0BpK,IAA1B,OAAqCC,GAAjE;EACH,GAFD;;EAGA,OAAK2kB,cAAL;EACH;;EACD7P,SAAS,CAACxV,SAAV,CAAoBqlB,cAApB,GAAqC,YAAW;EAC5C,OAAK7wB,IAAL,GAAY,KAAKywB,YAAL,CAAkB,UAAC/X,MAAD,EAAY;EACtC,WAAOA,MAAM,CAACC,WAAP,EAAP;EACH,GAFW,CAAZ;EAGA,OAAKmY,SAAL,GAAiB,KAAKL,YAAL,CAAkB,UAAC/X,MAAD,EAAY;EAC3C,WAAOA,MAAM,CAACrC,SAAP,CAAiBya,SAAjB,EAAP;EACH,GAFgB,CAAjB;EAGA,OAAKC,SAAL,GAAiB,KAAKN,YAAL,CAAkB,UAAC/X,MAAD,EAAY;EAC3C,WAAOA,MAAM,CAACrC,SAAP,CAAiB0a,SAAjB,EAAP;EACH,GAFgB,CAAjB;EAGA,OAAKC,WAAL,GAAmB,KAAKP,YAAL,CAAkB,UAAC/X,MAAD,EAAS5R,MAAT,EAAoB;EACrD,QAAI,CAACK,OAAO,CAACslB,SAAR,CAAkB3lB,MAAlB,CAAL,EAAgC;EAC5B,UAAMhF,MAAI,GAAGqF,OAAO,CAACkkB,OAAR,CAAgBvkB,MAAhB,CAAb;;EACAmqB,MAAAA,gBAAgB,CAAC,aAAD,EAAgBnvB,MAAhB,EAAsB,SAAtB,CAAhB;EACH;;EACD,WAAO4W,MAAM,CAACrC,SAAP,CAAiB2a,WAAjB,CAA6BlqB,MAAM,CAACO,OAAP,EAA7B,CAAP;EACH,GANkB,CAAnB;EAOA,OAAKiM,SAAL,GAAiB,KAAKmd,YAAL,CAAkB,UAAC/X,MAAD,EAAY;EAC3C,WAAOA,MAAM,CAACrC,SAAP,CAAiB/C,SAAjB,EAAP;EACH,GAFgB,CAAjB;EAGH,CApBD;;EAqBA0N,SAAS,CAACxV,SAAV,CAAoBklB,iBAApB,GAAwC,UAASQ,WAAT,EAAsBhwB,EAAtB,EAA0B;EAC9D,MAAIT,IAAI,GAAG,IAAX;EACA;EAAA,kEAAO;EAAA;EAAA;EAAA;EAAA;EAAA;;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA,qBACgBywB,WAAW,CAAClvB,IAAZ,CAAiBvB,IAAjB,CADhB;;EAAA;EACCiY,cAAAA,MADD;;EAAA,4CAAkB/L,IAAlB;EAAkBA,gBAAAA,IAAlB;EAAA;;EAAA,iDAEIzL,EAAE,MAAF,UAAGwX,MAAH,SAAc/L,IAAd,EAFJ;;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA,KAAP;;EAAA;EAAA;EAAA;EAAA;EAIH,CAND;;EAOAqU,SAAS,CAACxV,SAAV,CAAoB+M,OAApB,GAA8B,YAAW;EACrC,SAAO,KAAKkY,YAAL,KAAsB,IAA7B;EACH,CAFD;;EAGAzP,SAAS,CAACxV,SAAV,CAAoB2lB,KAApB,GAA4B,YAAW;EAAA;;EACnC,OAAKP,UAAL,GAAkB,IAAlB,CADmC;EAGnC;;EACA,OAAKH,YAAL,GAAoB,IAApB;EACA,GAAC,MAAD,EAAS,OAAT,EAAkB,WAAlB,EAA+B,WAA/B,EAA4C,WAA5C,EAAyDpsB,OAAzD,CAAiE,UAAAwJ,IAAI,EAAI;EACrE,IAAA,MAAI,CAACA,IAAD,CAAJ,GAAa,YAAW;EACpB,YAAM,IAAI9F,KAAJ,CAAU,4BAAV,CAAN;EACH,KAFD;EAGH,GAJD;;EAKA,OAAK4oB,UAAL,GAAkB,YAAW;EACzB,WAAO,KAAP;EACH,GAFD;EAGH,CAbD;;EAcA3P,SAAS,CAACxV,SAAV,CAAoBvL,QAApB,GAA+B,YAAW;EACtC,SAAO,eAAP;EACH,CAFD;;;EAIA,SAASghB,UAAT,CAAoBmQ,KAApB,EAA2B;EACvB,MAAI,OAAO,IAAP,KAAgB,WAAhB,IAA+B,EAAE,gBAAgBnQ,UAAlB,CAA/B,IACA,OAAO,IAAP,KAAgB,WADpB,EACiC;EAC7B,WAAO,IAAIA,UAAJ,CAAemQ,KAAf,CAAP;EACH;;EACDhT,EAAAA,SAAS,CAAC,YAAD,EAAegT,KAAf,EAAsB,UAAtB,CAAT;EACA5hB,EAAAA,SAAS,CAAC,IAAD,EAAO,UAAP,EAAmB+gB,SAAnB,CAAT;EACA,OAAKa,KAAL,GAAaA,KAAb;EACH;;EACDnQ,UAAU,CAACzV,SAAX,CAAqB+M,OAArB,GAA+B,YAAW;EACtC,SAAO,KAAK8Y,OAAL,KAAiB,IAAxB;EACH,CAFD;;EAGApQ,UAAU,CAACzV,SAAX,CAAqB2lB,KAArB,GAA6B,YAAW;EACpClsB,EAAAA,MAAM,CAAC2K,cAAP,CAAsB,IAAtB,EAA4B,SAA5B,EAAuC;EACnC9M,IAAAA,GAAG,EAAE;EAAA,aAAM,IAAN;EAAA,KAD8B;EAEnCqP,IAAAA,GAAG,EAAE,eAAM,EAFwB;EAGnCD,IAAAA,YAAY,EAAE,KAHqB;EAInCrC,IAAAA,UAAU,EAAE;EAJuB,GAAvC;;EAMA,OAAKuhB,KAAL,GAAa,YAAW;EACpB,UAAM,IAAIrpB,KAAJ,CAAU,6BAAV,CAAN;EACH,GAFD;EAGH,CAVD;;EAWAkZ,UAAU,CAACzV,SAAX,CAAqB8lB,KAArB,GAA6B,YAAW;EAEvC,CAFD;;EAGArQ,UAAU,CAACzV,SAAX,CAAqBvL,QAArB,GAAgC,YAAW;EACvC,SAAO,gBAAP;EACH,CAFD;;;MAIMsxB;;;;;EACH,8BAAYrwB,EAAZ,EAAgB;EAAA;;EAAA;;EACZ,iCAAM;EAAA;;EAAA,aAAa,oBAAKswB,MAAL,0BAAb;EAAA,KAAN;EACApT,IAAAA,SAAS,CAAC,oBAAD,EAAuBld,EAAvB,EAA2B,UAA3B,CAAT;EACAsO,IAAAA,SAAS,kCAAO,KAAP,EAActO,EAAd,EAAkB;EAAEuO,MAAAA,MAAM,EAAE;EAAV,KAAlB,CAAT;EACAD,IAAAA,SAAS,kCAAO,SAAP,EAAkB,EAAlB,EAAsB;EAAEC,MAAAA,MAAM,EAAE;EAAV,KAAtB,CAAT;EAJY;EAKf;;;;aACD,iBAAQ;EACJ,UAAI,KAAKgiB,OAAL,CAAa7sB,MAAjB,EAAyB;EACrB,aAAK8sB,GAAL,CAAS,KAAKD,OAAL,CAAatsB,IAAb,CAAkB,EAAlB,CAAT;;EACA,aAAKssB,OAAL,CAAa7sB,MAAb,GAAsB,CAAtB;EACH;EACJ;;;aACD,kBAAgB;EAAA;;EAAA,0CAAN+H,IAAM;EAANA,QAAAA,IAAM;EAAA;;EACZ,UAAIA,IAAI,CAAC/H,MAAT,EAAiB;EACb+H,QAAAA,IAAI,CAACtI,OAAL,CAAa,UAAA+B,GAAG,EAAI;EAChB,UAAA,OAAI,CAACqrB,OAAL,CAAa1sB,IAAb,CAAkBqB,GAAlB;EACH,SAFD;EAGA,YAAMurB,UAAU,GAAG,KAAKF,OAAL,CAAa,KAAKA,OAAL,CAAa7sB,MAAb,GAAsB,CAAnC,CAAnB;;EACA,YAAI+sB,UAAU,CAACrrB,KAAX,CAAiB,KAAjB,CAAJ,EAA6B;EACzB,eAAKmrB,OAAL,CAAa,KAAKA,OAAL,CAAa7sB,MAAb,GAAsB,CAAnC,IAAwC+sB,UAAU,CAACnrB,OAAX,CAAmB,KAAnB,EAA0B,EAA1B,CAAxC;EACA,eAAK8qB,KAAL;EACH;EACJ;EACJ;;;;IAxB4BrQ;;;EA2BjC,SAAS2Q,gBAAT,CAA0B3xB,QAA1B,EAAoC;EAAA;;EAChC,MAAI,OAAO,IAAP,KAAgB,WAAhB,IAA+B,EAAE,gBAAgB2xB,gBAAlB,CAA/B,IACA,OAAO,IAAP,KAAgB,WADpB,EACiC;EAC7B,WAAO,IAAIA,gBAAJ,CAAqB3xB,QAArB,CAAP;EACH;;EACDme,EAAAA,SAAS,CAAC,kBAAD,EAAqBne,QAArB,EAA+B,UAA/B,CAAT;EACAuP,EAAAA,SAAS,CAAC,IAAD,EAAO,UAAP,EAAmB+gB,SAAnB,CAAT;EACA/gB,EAAAA,SAAS,CAAC,IAAD,EAAO,YAAP,EAAqB,EAArB,CAAT;;EACA,OAAK4hB,KAAL,GAAa,UAAC9uB,CAAD,EAAO;EAChB,QAAI,CAAC6H,OAAO,CAACsE,QAAR,CAAiBnM,CAAjB,CAAL,EAA0B;EACtBA,MAAAA,CAAC,GAAGrC,QAAQ,CAACqC,CAAD,CAAZ;EACH,KAFD,MAEO;EACHA,MAAAA,CAAC,GAAGA,CAAC,CAAC+E,OAAF,EAAJ;EACH;;EACD,IAAA,OAAI,CAACwqB,UAAL,CAAgB9sB,IAAhB,CAAqBzC,CAArB;EACH,GAPD;EAQH;;EACDsvB,gBAAgB,CAACpmB,SAAjB,GAA6BvG,MAAM,CAAC0f,MAAP,CAAc1D,UAAU,CAACzV,SAAzB,CAA7B;EACAomB,gBAAgB,CAACpmB,SAAjB,CAA2BsC,WAA3B,GAAyC8jB,gBAAzC;;EACAA,gBAAgB,CAACpmB,SAAjB,CAA2BvL,QAA3B,GAAsC,YAAW;EAC7C,SAAO,yBAAP;EACH,CAFD;;EAGA2xB,gBAAgB,CAACpmB,SAAjB,CAA2BnE,OAA3B,GAAqC,YAAW;EAC5C,SAAO,KAAKwqB,UAAL,CAAgBrsB,GAAhB,CAAoB,UAAAlD,CAAC;EAAA,WAAIA,CAAC,CAAC+E,OAAF,EAAJ;EAAA,GAArB,EAAsClC,IAAtC,CAA2C,EAA3C,CAAP;EACH,CAFD;;;EAIA,SAAS2sB,cAAT,CAAwBC,QAAxB,EAAkCC,EAAlC,EAAsC;EAAA;;EAClC,MAAI,OAAO,IAAP,KAAgB,WAAhB,IAA+B,EAAE,gBAAgBF,cAAlB,CAA/B,IACA,OAAO,IAAP,KAAgB,WADpB,EACiC;EAC7B,WAAO,IAAIA,cAAJ,CAAmBC,QAAnB,EAA6BC,EAA7B,CAAP;EACH;;EACD5T,EAAAA,SAAS,CAAC,gBAAD,EAAmB2T,QAAnB,EAA6B,QAA7B,CAAT;EACAviB,EAAAA,SAAS,CAAC,IAAD,EAAO,cAAP,EAAuBuiB,QAAvB,CAAT;EACAviB,EAAAA,SAAS,CAAC,IAAD,EAAO,KAAP,EAAcwiB,EAAE,CAAC3qB,OAAH,EAAd,EAA4B;EAAEoI,IAAAA,MAAM,EAAE;EAAV,GAA5B,CAAT;EACAD,EAAAA,SAAS,CAAC,IAAD,EAAO,UAAP,EAAmB+gB,SAAnB,CAAT;;EACA,OAAKa,KAAL,GAAa,UAAC9uB,CAAD,EAAO;EAChB,QAAI,CAAC6H,OAAO,CAACsE,QAAR,CAAiBnM,CAAjB,CAAL,EAA0B;EACtBA,MAAAA,CAAC,GAAGrC,QAAQ,CAACqC,CAAD,CAAZ;EACH,KAFD,MAEO;EACHA,MAAAA,CAAC,GAAGA,CAAC,CAAC+E,OAAF,EAAJ;EACH;;EACD,IAAA,OAAI,CAACzG,EAAL,GAAUwwB,KAAV,CAAgB,OAAI,CAACa,GAArB,EAA0B3vB,CAA1B,EAA6B,UAASqN,GAAT,EAAc;EACvC,UAAIA,GAAJ,EAAS;EACL,cAAMA,GAAN;EACH;EACJ,KAJD;EAKH,GAXD;EAYH;;EACDmiB,cAAc,CAACtmB,SAAf,GAA2BvG,MAAM,CAAC0f,MAAP,CAAc1D,UAAU,CAACzV,SAAzB,CAA3B;EACAsmB,cAAc,CAACtmB,SAAf,CAAyBsC,WAAzB,GAAuCgkB,cAAvC;;EACAA,cAAc,CAACtmB,SAAf,CAAyB5K,EAAzB,GAA8B,YAAW;EACrC,MAAI,CAAC,KAAKsxB,GAAV,EAAe;EACX,SAAKA,GAAL,GAAW,KAAKhjB,QAAL,CAAc,IAAd,CAAX;EACH;;EACD,SAAO,KAAKgjB,GAAZ;EACH,CALD;;EAMAJ,cAAc,CAACtmB,SAAf,CAAyB0D,QAAzB,GAAoC,UAASrB,IAAT,EAAe;EAC/C,SAAOzK,QAAQ,CAACN,GAAT,CAAa,kBAAb,EAAiCA,GAAjC,CAAqC+K,IAArC,CAAP;EACH,CAFD;;EAGAikB,cAAc,CAACtmB,SAAf,CAAyB2lB,KAAzB,GAAiC,YAAW;EAAA;;EACxC,SAAO,IAAI7gB,OAAJ,CAAY,UAAC6hB,OAAD,EAAUC,MAAV,EAAqB;EACpC,IAAA,OAAI,CAACxxB,EAAL,GAAUuwB,KAAV,CAAgB,OAAI,CAACc,GAArB,EAA0B,UAACtiB,GAAD,EAAS;EAC/B,UAAIA,GAAJ,EAAS;EACLyiB,QAAAA,MAAM,CAACziB,GAAD,CAAN;EACH,OAFD,MAEO;EACHH,QAAAA,SAAS,CAAC,OAAD,EAAO,KAAP,EAAc,IAAd,EAAoB;EAAEC,UAAAA,MAAM,EAAE;EAAV,SAApB,CAAT;EACAwR,QAAAA,UAAU,CAACzV,SAAX,CAAqB2lB,KAArB,CAA2BnvB,IAA3B,CAAgC,OAAhC;EACAmwB,QAAAA,OAAO;EACV;EACJ,KARD;EASH,GAVM,CAAP;EAWH,CAZD;;EAaAL,cAAc,CAACtmB,SAAf,CAAyBvL,QAAzB,GAAoC,YAAW;EAC3C,iCAAwB,KAAKoyB,YAA7B;EACH,CAFD;;;EAIA,SAASC,eAAT,CAAyB7tB,MAAzB,EAAiCyR,GAAjC,EAAsC;EAAA;;EAClC,MAAI,OAAO,IAAP,KAAgB,WAAhB,IAA+B,EAAE,gBAAgBoc,eAAlB,CAA/B,IACA,OAAO,IAAP,KAAgB,WADpB,EACiC;EAC7B,WAAO,IAAIA,eAAJ,CAAoB7tB,MAApB,CAAP;EACH;;EACD2Z,EAAAA,SAAS,CAAC,iBAAD,EAAoB3Z,MAApB,EAA4B,QAA5B,CAAT;EACAyR,EAAAA,GAAG,GAAGA,GAAG,IAAIrT,UAAb;EACA4B,EAAAA,MAAM,GAAGA,MAAM,CAAC4C,OAAP,EAAT;EACA,OAAKopB,YAAL,GAAoB,KAAKC,iBAAL,CAAuB5J,IAAvB,CAA4B,IAA5B,EAAkC,YAAM;EACxD,QAAI,CAAC,OAAI,CAAC8J,UAAV,EAAsB;EAClB,MAAA,OAAI,CAACA,UAAL,GAAkB,IAAI3a,MAAJ,CAAWxR,MAAX,EAAmB;EAAEyR,QAAAA,GAAG,EAAHA;EAAF,OAAnB,CAAlB;EACH;;EACD,WAAO,OAAI,CAAC0a,UAAZ;EACH,GALmB,CAApB;EAMAphB,EAAAA,SAAS,CAAC,IAAD,EAAO,UAAP,EAAmB+gB,SAAnB,CAAT;;EACA,OAAKM,cAAL;EACH;;EACDyB,eAAe,CAAC9mB,SAAhB,CAA0BmlB,UAA1B,GAAuC,YAAW;EAC9C,SAAO,IAAP;EACH,CAFD;;EAGA2B,eAAe,CAAC9mB,SAAhB,GAA4BvG,MAAM,CAAC0f,MAAP,CAAc3D,SAAS,CAACxV,SAAxB,CAA5B;EACA8mB,eAAe,CAAC9mB,SAAhB,CAA0BsC,WAA1B,GAAwCwkB,eAAxC;;EACAA,eAAe,CAAC9mB,SAAhB,CAA0BvL,QAA1B,GAAqC,YAAW;EAC5C;EACH,CAFD;;;EAIA,SAASsyB,mBAAT,CAA6BC,WAA7B,EAA0C;EACtC,MAAI,OAAO,IAAP,KAAgB,WAAhB,IAA+B,EAAE,gBAAgBD,mBAAlB,CAA/B,IACA,OAAO,IAAP,KAAgB,WADpB,EACiC;EAC7B,WAAO,IAAIA,mBAAJ,CAAwBC,WAAxB,CAAP;EACH;;EACDpU,EAAAA,SAAS,CAAC,qBAAD,EAAwBoU,WAAxB,EAAqC,YAArC,CAAT;EACAhjB,EAAAA,SAAS,CAAC,IAAD,EAAO,YAAP,EAAqBgjB,WAArB,CAAT;EACAhjB,EAAAA,SAAS,CAAC,IAAD,EAAO,UAAP,EAAmBijB,WAAnB,CAAT;EACA,MAAInV,KAAK,GAAG,CAAZ;EACArY,EAAAA,MAAM,CAAC2K,cAAP,CAAsB,IAAtB,EAA4B,WAA5B,EAAyC;EACrCC,IAAAA,UAAU,EAAE,IADyB;EAErC/M,IAAAA,GAAG,EAAE,eAAW;EACZ,aAAOwa,KAAP;EACH,KAJoC;EAKrCnL,IAAAA,GAAG,EAAE,aAASvP,KAAT,EAAgB;EACjBwb,MAAAA,SAAS,CAAC,gCAAD,EAAmCxb,KAAnC,EAA0C,QAA1C,CAAT;;EACA,UAAIA,KAAK,YAAYuE,OAArB,EAA8B;EAC1BvE,QAAAA,KAAK,GAAGA,KAAK,CAACyE,OAAN,EAAR;EACH;;EACD,UAAI,OAAOzE,KAAP,KAAiB,QAArB,EAA+B;EAC3BA,QAAAA,KAAK,GAAG2F,MAAM,CAAC3F,KAAD,CAAd;EACH;;EACD,UAAI4G,IAAI,CAACuZ,KAAL,CAAWngB,KAAX,MAAsBA,KAA1B,EAAiC;EAC7B,cAAM,IAAImF,KAAJ,CAAU,6CACA,aADV,CAAN;EAEH;;EACDuV,MAAAA,KAAK,GAAG1a,KAAR;EACH;EAlBoC,GAAzC;EAoBH;;EACD2vB,mBAAmB,CAAC/mB,SAApB,GAAgCvG,MAAM,CAAC0f,MAAP,CAAc3D,SAAS,CAACxV,SAAxB,CAAhC;EACA+mB,mBAAmB,CAAC/mB,SAApB,CAA8BsC,WAA9B,GAA4CykB,mBAA5C;;EACAA,mBAAmB,CAAC/mB,SAApB,CAA8BvL,QAA9B,GAAyC,YAAW;EAChD;EACH,CAFD;;EAGAsyB,mBAAmB,CAAC/mB,SAApB,CAA8B2lB,KAA9B,GAAsC,YAAW;EAAA;;EAC7C3hB,EAAAA,SAAS,CAAC,IAAD,EAAO,YAAP,EAAqBoH,IAArB,CAAT;EACA,GAAC,SAAD,EAAY,OAAZ,EAAqB,SAArB,EAAgC,gBAAhC,EAAkDvS,OAAlD,CAA0D,UAAAwJ,IAAI,EAAI;EAC9D,IAAA,OAAI,CAACA,IAAD,CAAJ,GAAa,YAAW;EACpB,YAAM,IAAI9F,KAAJ,CAAU,mCAAV,CAAN;EACH,KAFD;EAGH,GAJD;;EAKA,OAAK4oB,UAAL,GAAkB,YAAW;EACzB,WAAO,KAAP;EACH,GAFD;EAGH,CAVD;;EAWA4B,mBAAmB,CAAC/mB,SAApB,CAA8BknB,QAA9B,GAAyC,YAAW;EAChD,SAAO,IAAP;EACH,CAFD;;EAGAH,mBAAmB,CAAC/mB,SAApB,CAA8BmnB,OAA9B,GAAwC,YAAW;EAC/C,MAAI,KAAKC,SAAL,IAAkB,KAAKC,UAAL,CAAgBjuB,MAAtC,EAA8C;EAC1C,WAAOsH,GAAP;EACH;;EACD,SAAO,KAAK2mB,UAAL,CAAgB,KAAKD,SAArB,CAAP;EACH,CALD;;EAMAL,mBAAmB,CAAC/mB,SAApB,CAA8BW,IAA9B,GAAqC,YAAW;EAC5C,MAAI,KAAKymB,SAAL,IAAkB,KAAKC,UAAL,CAAgBjuB,MAAtC,EAA8C;EAC1C,MAAE,KAAKguB,SAAP;EACH;EACJ,CAJD;;EAKAL,mBAAmB,CAAC/mB,SAApB,CAA8BsnB,OAA9B,GAAwC,YAAW;EAC/C,MAAMC,KAAI,GAAG,KAAKJ,OAAL,EAAb;;EACA,OAAKxmB,IAAL;EACA,SAAO4mB,KAAP;EACH,CAJD;;EAKAR,mBAAmB,CAAC/mB,SAApB,CAA8BwnB,cAA9B,GAA+C,UAAS5f,GAAT,EAAc;EACzD,MAAI,OAAOA,GAAP,KAAe,WAAnB,EAAgC;EAC5BA,IAAAA,GAAG,GAAG,KAAKyf,UAAL,CAAgBjuB,MAAtB;EACH,GAFD,MAEO,IAAIwO,GAAG,GAAG,KAAKwf,SAAL,GAAiB,KAAKC,UAAL,CAAgBjuB,MAA3C,EAAmD;EACtDwO,IAAAA,GAAG,GAAG,KAAKwf,SAAL,GAAiB,KAAKC,UAAL,CAAgBjuB,MAAvC;EACH;;EACD,MAAI,KAAK+tB,OAAL,OAAmBzmB,GAAvB,EAA4B;EACxB,WAAOA,GAAP;EACH;;EACD,SAAO,KAAK2mB,UAAL,CAAgBtlB,KAAhB,CAAsB,KAAKqlB,SAA3B,EAAsCxf,GAAtC,CAAP;EACH,CAVD;;;EAYA,SAAS6f,oBAAT,GAAgC;EAC5B,MAAI,OAAO,IAAP,KAAgB,WAAhB,IAA+B,EAAE,gBAAgBA,oBAAlB,CAA/B,IACA,OAAO,IAAP,KAAgB,WADpB,EACiC;EAC7B,WAAO,IAAIA,oBAAJ,EAAP;EACH;;EACDzjB,EAAAA,SAAS,CAAC,IAAD,EAAO,UAAP,EAAmBijB,WAAnB,CAAT;EACAjjB,EAAAA,SAAS,CAAC,IAAD,EAAO,SAAP,EAAkB,EAAlB,EAAsB;EAAEC,IAAAA,MAAM,EAAE;EAAV,GAAtB,CAAT;;EACA,OAAK2hB,KAAL,GAAa,UAAS9uB,CAAT,EAAY;EACrB8b,IAAAA,SAAS,CAAC,OAAD,EAAU9b,CAAV,EAAa,CAAC,QAAD,EAAW,YAAX,CAAb,CAAT;;EACA,QAAI6E,OAAO,CAACsd,QAAR,CAAiBniB,CAAjB,CAAJ,EAAyB;EACrB,WAAKmvB,OAAL,CAAa1sB,IAAb,CAAkBzC,CAAC,CAAC+E,OAAF,EAAlB;EACH,KAFD,MAEO;EAAA;;EACH,4BAAKoqB,OAAL,EAAa1sB,IAAb,yCAAqBqL,KAAK,CAACqa,IAAN,CAAWnoB,CAAX,CAArB;EACH;EACJ,GAPD;;EAQA2C,EAAAA,MAAM,CAAC2K,cAAP,CAAsB,IAAtB,EAA4B,YAA5B,EAA0C;EACtCC,IAAAA,UAAU,EAAE,IAD0B;EAEtC/M,IAAAA,GAAG,EAAE,eAAW;EACZ,aAAOowB,UAAU,CAACzI,IAAX,CAAgB,KAAKgH,OAArB,CAAP;EACH;EAJqC,GAA1C;EAMH;;EACDwB,oBAAoB,CAACznB,SAArB,GAAiCvG,MAAM,CAAC0f,MAAP,CAAc1D,UAAU,CAACzV,SAAzB,CAAjC;EACAynB,oBAAoB,CAACznB,SAArB,CAA+BsC,WAA/B,GAA6CmlB,oBAA7C;;EACAA,oBAAoB,CAACznB,SAArB,CAA+B2lB,KAA/B,GAAuC,YAAW;EAC9ClQ,EAAAA,UAAU,CAACzV,SAAX,CAAqB2lB,KAArB,CAA2BnvB,IAA3B,CAAgC,IAAhC;EACAwN,EAAAA,SAAS,CAAC,IAAD,EAAO,SAAP,EAAkB,IAAlB,EAAwB;EAAEC,IAAAA,MAAM,EAAE;EAAV,GAAxB,CAAT;EACH,CAHD;;EAIAwjB,oBAAoB,CAACznB,SAArB,CAA+B2nB,YAA/B,GAA8C,YAAW;EACrD,MAAI,KAAK9B,OAAT,EAAkB;EACd,UAAM,IAAItpB,KAAJ,CAAU,oCAAV,CAAN;EACH;EACJ,CAJD;;EAKAkrB,oBAAoB,CAACznB,SAArB,CAA+B4nB,QAA/B,GAA0C,UAASL,MAAT,EAAe;EACrD3U,EAAAA,SAAS,CAAC,gCAAD,EAAmC2U,MAAnC,EAAyC,QAAzC,CAAT;EACA,OAAK3B,KAAL,CAAW2B,MAAX;EACH,CAHD;;EAIAE,oBAAoB,CAACznB,SAArB,CAA+B6nB,eAA/B,GAAiD,UAASC,MAAT,EAAiB;EAC9DlV,EAAAA,SAAS,CAAC,uCAAD,EAA0CkV,MAA1C,EAAkD,YAAlD,CAAT;EACA,OAAKlC,KAAL,CAAWkC,MAAX;EACH,CAHD;;EAIAL,oBAAoB,CAACznB,SAArB,CAA+BvL,QAA/B,GAA0C,YAAW;EACjD,SAAO,6BAAP;EACH,CAFD;;EAGAgzB,oBAAoB,CAACznB,SAArB,CAA+BnE,OAA/B,GAAyC,YAAW;EAChD,SAAO,KAAKwqB,UAAZ;EACH,CAFD;;;EAIA,SAAS0B,aAAT,CAAuBC,OAAvB,EAAgCzB,QAAhC,EAA0C;EACtC,MAAI,OAAO,IAAP,KAAgB,WAAhB,IAA+B,EAAE,gBAAgBwB,aAAlB,CAA/B,IACA,OAAO,IAAP,KAAgB,WADpB,EACiC;EAC7B,WAAO,IAAIA,aAAJ,CAAkBC,OAAlB,EAA2BzB,QAA3B,CAAP;EACH;;EACDO,EAAAA,eAAe,CAACtwB,IAAhB,CAAqB,IAArB,EAA2BwxB,OAA3B;EACApV,EAAAA,SAAS,CAAC,eAAD,EAAkB2T,QAAlB,EAA4B,QAA5B,CAAT;EACAviB,EAAAA,SAAS,CAAC,IAAD,EAAO,cAAP,EAAuBuiB,QAAvB,CAAT;EACH;;EACDwB,aAAa,CAAC/nB,SAAd,GAA0BvG,MAAM,CAAC0f,MAAP,CAAc2N,eAAe,CAAC9mB,SAA9B,CAA1B;EACA+nB,aAAa,CAAC/nB,SAAd,CAAwBsC,WAAxB,GAAsCylB,aAAtC;;EACAA,aAAa,CAAC/nB,SAAd,CAAwBvL,QAAxB,GAAmC,YAAW;EAC1C,iCAAwB,KAAKoyB,YAA7B;EACH,CAFD;;;EAIA,SAASoB,mBAAT,CAA6BD,OAA7B,EAAsCzB,QAAtC,EAAgD;EAC5C,MAAI,OAAO,IAAP,KAAgB,WAAhB,IAA+B,EAAE,gBAAgB0B,mBAAlB,CAA/B,IACA,OAAO,IAAP,KAAgB,WADpB,EACiC;EAC7B,WAAO,IAAIA,mBAAJ,CAAwBD,OAAxB,EAAiCzB,QAAjC,CAAP;EACH;;EACDQ,EAAAA,mBAAmB,CAACvwB,IAApB,CAAyB,IAAzB,EAA+BwxB,OAA/B;EACApV,EAAAA,SAAS,CAAC,qBAAD,EAAwB2T,QAAxB,EAAkC,QAAlC,CAAT;EACAviB,EAAAA,SAAS,CAAC,IAAD,EAAO,cAAP,EAAuBuiB,QAAvB,CAAT;EACH;;EACD0B,mBAAmB,CAACjoB,SAApB,GAAgCvG,MAAM,CAAC0f,MAAP,CAAc4N,mBAAmB,CAAC/mB,SAAlC,CAAhC;EACAioB,mBAAmB,CAACjoB,SAApB,CAA8BsC,WAA9B,GAA4C2lB,mBAA5C;;EACAA,mBAAmB,CAACjoB,SAApB,CAA8BvL,QAA9B,GAAyC,YAAW;EAChD,wCAA+B,KAAKoyB,YAApC;EACH,CAFD;;;EAIA,SAASqB,oBAAT,CAA8B3B,QAA9B,EAAwCC,EAAxC,EAA4C;EACxC,MAAI,OAAO,IAAP,KAAgB,WAAhB,IAA+B,EAAE,gBAAgB0B,oBAAlB,CAA/B,IACA,OAAO,IAAP,KAAgB,WADpB,EACiC;EAC7B,WAAO,IAAIA,oBAAJ,CAAyB3B,QAAzB,EAAmCC,EAAnC,CAAP;EACH;;EACD5T,EAAAA,SAAS,CAAC,sBAAD,EAAyB2T,QAAzB,EAAmC,QAAnC,CAAT;EACAviB,EAAAA,SAAS,CAAC,IAAD,EAAO,cAAP,EAAuBuiB,QAAvB,CAAT;EACAviB,EAAAA,SAAS,CAAC,IAAD,EAAO,KAAP,EAAcwiB,EAAE,CAAC3qB,OAAH,EAAd,EAA4B;EAAEoI,IAAAA,MAAM,EAAE;EAAV,GAA5B,CAAT;EACAD,EAAAA,SAAS,CAAC,IAAD,EAAO,UAAP,EAAmBijB,WAAnB,CAAT;EACA,MAAI7xB,EAAJ,EAAQ+yB,MAAR;;EACA,OAAKvC,KAAL,GAAa,UAAS9uB,CAAT,EAAY;EAAA;;EACrB8b,IAAAA,SAAS,CAAC,OAAD,EAAU9b,CAAV,EAAa,CAAC,QAAD,EAAW,YAAX,CAAb,CAAT;EACA,QAAIsxB,MAAJ;;EACA,QAAI,CAAChzB,EAAL,EAAS;EACLA,MAAAA,EAAE,GAAG,KAAKsO,QAAL,CAAc,IAAd,CAAL;EACH;;EACD,QAAI,CAACykB,MAAL,EAAa;EACTA,MAAAA,MAAM,GAAG,KAAKzkB,QAAL,CAAc,QAAd,CAAT;EACH;;EACD,QAAI/H,OAAO,CAACsd,QAAR,CAAiBniB,CAAjB,CAAJ,EAAyB;EACrBsxB,MAAAA,MAAM,GAAGD,MAAM,CAAClJ,IAAP,CAAY,CAACnoB,CAAC,CAAC+E,OAAF,EAAD,CAAZ,CAAT;EACH,KAFD,MAEO;EACHusB,MAAAA,MAAM,GAAGD,MAAM,CAAClJ,IAAP,CAAYra,KAAK,CAACqa,IAAN,CAAWnoB,CAAX,CAAZ,CAAT;EACH;;EACD,WAAO,IAAIgO,OAAJ,CAAY,UAAC6hB,OAAD,EAAUC,MAAV,EAAqB;EACpCxxB,MAAAA,EAAE,CAACwwB,KAAH,CAAS,OAAI,CAACa,GAAd,EAAmB2B,MAAnB,EAA2B,UAASjkB,GAAT,EAAc;EACrC,YAAIA,GAAJ,EAAS;EACLyiB,UAAAA,MAAM,CAACziB,GAAD,CAAN;EACH,SAFD,MAEO;EACHwiB,UAAAA,OAAO;EACV;EACJ,OAND;EAOH,KARM,CAAP;EASH,GAvBD;EAwBH;;EACDuB,oBAAoB,CAACloB,SAArB,GAAiCvG,MAAM,CAAC0f,MAAP,CAAcmN,cAAc,CAACtmB,SAA7B,CAAjC;EACAkoB,oBAAoB,CAACloB,SAArB,CAA+BsC,WAA/B,GAA6C4lB,oBAA7C;;EACAA,oBAAoB,CAACloB,SAArB,CAA+B4nB,QAA/B,GAA0C,UAASL,MAAT,EAAe;EACrD3U,EAAAA,SAAS,CAAC,gCAAD,EAAmC2U,MAAnC,EAAyC,QAAzC,CAAT;EACA,OAAK3B,KAAL,CAAW2B,MAAX;EACH,CAHD;;EAIAW,oBAAoB,CAACloB,SAArB,CAA+B6nB,eAA/B,GAAiD,UAASC,MAAT,EAAiB;EAC9DlV,EAAAA,SAAS,CAAC,uCAAD,EAA0CkV,MAA1C,EAAkD,YAAlD,CAAT;EACA,OAAKlC,KAAL,CAAWkC,MAAX;EACH,CAHD;;;EAKA,IAAMb,WAAW,GAAGxkB,MAAM,OAAN,CAAW,QAAX,CAApB;EACA,IAAMsiB,SAAS,GAAGtiB,MAAM,OAAN,CAAW,MAAX,CAAlB;EACA,IAAI/B,GAAG,GAAG,IAAI2nB,GAAJ,EAAV;;EACA,SAASA,GAAT,GAAe;;EACfA,GAAG,CAACroB,SAAJ,CAAcvL,QAAd,GAAyB,YAAW;EAChC,SAAO,QAAP;EACH,CAFD;EAIA;EACA;;;EACA,SAAS6zB,WAAT,CAAqBjmB,IAArB,EAAmE;EAAA;;EAAA,mFAAJ,EAAI;EAAA,MAAtCkmB,MAAsC,UAAtCA,MAAsC;EAAA,MAA9BC,KAA8B,UAA9BA,KAA8B;EAAA,MAAvBC,MAAuB,UAAvBA,MAAuB;EAAA,MAAZvlB,GAAY;;EAC/D,MAAI,OAAO,IAAP,KAAgB,WAAhB,IAA+B,EAAE,gBAAgBolB,WAAlB,CAA/B,IACA,OAAO,IAAP,KAAgB,WADpB,EACiC;EAC7B,WAAO,IAAIA,WAAJ,CAAgBjmB,IAAhB;EAAwBmmB,MAAAA,KAAK,EAALA,KAAxB;EAA+BC,MAAAA,MAAM,EAANA,MAA/B;EAAuCF,MAAAA,MAAM,EAANA;EAAvC,OAAkDrlB,GAAlD,EAAP;EACH;;EACD,MAAI,OAAOb,IAAP,KAAgB,WAApB,EAAiC;EAC7BA,IAAAA,IAAI,GAAG,WAAP;EACH;;EACD,OAAKuI,OAAL,GAAehT,QAAQ,CAACgmB,OAAT,CAAiBvb,IAAjB,EAAuBa,GAAvB,CAAf;;EACA,OAAK0H,OAAL,CAAajE,GAAb,CAAiB,cAAjB,EAAiC9Q,GAAG,CAAC,cAAD,EAAiB,YAAM;EACvD,WAAO,OAAI,CAAC+U,OAAZ;EACH,GAFmC,EAEjCvT,UAAU,CAACuT,OAAX,CAAmB,cAAnB,EAAmCqD,OAFF,CAApC;;EAGA,MAAMya,aAAa,GAAG,sCAAtB;EACA,OAAK/hB,GAAL,CAAS+hB,aAAT,EAAwBhU,SAAS,CAACxR,GAAD,CAAT,CAAe8F,MAAf,CAAsB0f,aAAtB,CAAxB;EACA,MAAIC,KAAK,GAAGC,YAAY,CAAChL,OAAb,oBAAiCvb,IAAjC,EAAZ;;EACA,MAAIwa,OAAO,CAAC2L,KAAD,CAAX,EAAoB;EAChBG,IAAAA,KAAK,CAAChiB,GAAN,CAAU,OAAV,EAAmB6hB,KAAnB;EACH;;EACD,MAAI3L,OAAO,CAAC0L,MAAD,CAAX,EAAqB;EACjBI,IAAAA,KAAK,CAAChiB,GAAN,CAAU,QAAV,EAAoB4hB,MAApB;EACH;;EACD,MAAI1L,OAAO,CAAC4L,MAAD,CAAX,EAAqB;EACjBE,IAAAA,KAAK,CAAChiB,GAAN,CAAU,QAAV,EAAoB8hB,MAApB;EACH;;EACDI,EAAAA,mBAAmB,CAAC,KAAKje,OAAN,EAAe+d,KAAf,CAAnB;EACH;;;EAEDL,WAAW,CAACtoB,SAAZ,CAAsB8d,IAAtB,GAA6B,UAASpS,IAAT,EAA4C;EAAA,MAA7Bod,OAA6B,uEAAnB,KAAmB;EAAA,MAAZpe,GAAY,uEAAN,IAAM;EACrEkI,EAAAA,SAAS,CAAC,mBAAD,EAAsBlH,IAAtB,EAA4B,CAAC,QAAD,EAAW,OAAX,CAA5B,EAAiD,CAAjD,CAAT;EACAkH,EAAAA,SAAS,CAAC,mBAAD,EAAsBkW,OAAtB,EAA+B,SAA/B,EAA0C,CAA1C,CAAT,CAFqE;EAIrE;;EACAzxB,EAAAA,UAAU,CAACsP,GAAX,CAAe,6BAAf,EAA8C,KAAKiE,OAAnD;;EACA,MAAIF,GAAG,KAAK,IAAZ,EAAkB;EACdA,IAAAA,GAAG,GAAG,KAAKE,OAAX;EACH;;EACD,SAAOkT,IAAI,CAACpS,IAAD,EAAOhB,GAAP,EAAYoe,OAAO,GAAGpe,GAAH,GAAS,KAA5B,CAAX;EACH,CAVD;;;EAYA4d,WAAW,CAACtoB,SAAZ,CAAsB1I,GAAtB,GAA4B,UAASF,KAAT,EAAgB;EACxC,MAAMwB,MAAM,GAAG,KAAKgS,OAAL,CAAatT,GAAb,CAAiBF,KAAjB,CAAf;;EACA,MAAI8M,WAAW,CAACtL,MAAD,CAAf,EAAyB;EACrB,WAAOA,MAAM,CAAC0iB,IAAP,CAAY,KAAK1Q,OAAjB,CAAP;EACH;;EACD,SAAOhS,MAAP;EACH,CAND;;;EAQA0vB,WAAW,CAACtoB,SAAZ,CAAsB2G,GAAtB,GAA4B,UAAStE,IAAT,EAAejL,KAAf,EAAsB;EAC9C,SAAO,KAAKwT,OAAL,CAAajE,GAAb,CAAiBtE,IAAjB,EAAuBjL,KAAvB,CAAP;EACH,CAFD;;;EAIAkxB,WAAW,CAACtoB,SAAZ,CAAsBsgB,QAAtB,GAAiC,UAASje,IAAT,EAAejL,KAAf,EAAsB;EACnD,SAAO,KAAKwT,OAAL,CAAa0V,QAAb,CAAsBje,IAAtB,EAA4BjL,KAA5B,CAAP;EACH,CAFD;EAIA;EACA;;;EACA,SAAS2xB,SAAT,CAAmB/T,OAAnB,EAA4B7T,IAA5B,EAAkC;EAC9B,OAAKkB,IAAL,GAAY,WAAZ;EACA,OAAK2S,OAAL,GAAeA,OAAf;EACA,OAAK7T,IAAL,GAAYA,IAAZ;EACA,OAAK6nB,KAAL,GAAc,IAAIzsB,KAAJ,EAAD,CAAcysB,KAA3B;EACH;;EACDD,SAAS,CAAC/oB,SAAV,GAAsB,IAAIzD,KAAJ,EAAtB;EACAwsB,SAAS,CAAC/oB,SAAV,CAAoBsC,WAApB,GAAkCymB,SAAlC;EAEA;EACA;;EACA,SAASrT,WAAT,CAAqBxS,GAArB,EAA0B+lB,MAA1B,EAAkC5mB,IAAlC,EAAwC;EACpC,MAAIpL,SAAS,CAACmC,MAAV,KAAqB,CAAzB,EAA4B;EACxB,QAAI,QAAOnC,SAAS,CAAC,CAAD,CAAhB,MAAwB,QAA5B,EAAsC;EAClCiM,MAAAA,GAAG,GAAGjM,SAAS,CAAC,CAAD,CAAf;EACAgyB,MAAAA,MAAM,GAAG,IAAT;EACH,KAHD,MAGO,IAAI,OAAOhyB,SAAS,CAAC,CAAD,CAAhB,KAAwB,QAA5B,EAAsC;EACzCiM,MAAAA,GAAG,GAAG,EAAN;EACA+lB,MAAAA,MAAM,GAAG,IAAT;EACA5mB,MAAAA,IAAI,GAAGpL,SAAS,CAAC,CAAD,CAAhB;EACH;EACJ;;EACD,OAAKiyB,QAAL,GAAgB,IAAIjW,GAAJ,EAAhB;EACA,OAAKrI,OAAL,GAAe1H,GAAf;EACA,OAAKimB,UAAL,GAAkBF,MAAlB;EACA,OAAKzmB,QAAL,GAAgBH,IAAI,IAAI,WAAxB;EACH;;;EAEDqT,WAAW,CAAC1V,SAAZ,CAAsBuC,IAAtB,GAA6B,YAAW;EACpC,SAAOmS,SAAS,CAAC,KAAK9J,OAAN,CAAhB;EACH,CAFD;;;EAIA8K,WAAW,CAAC1V,SAAZ,CAAsB5K,EAAtB,GAA2B,YAAW;EAClC,SAAO,KAAKkC,GAAL,CAAS,QAAT,CAAP;EACH,CAFD;;;EAIAoe,WAAW,CAAC1V,SAAZ,CAAsBopB,KAAtB,GAA8B,UAAS/mB,IAAT,EAAe;EACzC,MAAIA,IAAI,YAAYlD,OAApB,EAA6B;EACzBkD,IAAAA,IAAI,GAAGA,IAAI,CAACxG,OAAL,EAAP;EACH;;EACD,MAAIwG,IAAI,YAAY1D,OAApB,EAA6B;EACzB0D,IAAAA,IAAI,GAAGA,IAAI,CAACxG,OAAL,EAAP;EACH;;EACD,SAAO,KAAK+O,OAAL,CAAavI,IAAb,CAAP;EACH,CARD;;;EAUAqT,WAAW,CAAC1V,SAAZ,CAAsB4d,OAAtB,GAAgC,UAASvb,IAAT,EAAyB;EAAA,MAAVa,GAAU,uEAAJ,EAAI;;EACrD,MAAI,QAAOb,IAAP,MAAgB,QAApB,EAA8B;EAC1Ba,IAAAA,GAAG,GAAGb,IAAN;EACH;;EACD,MAAI,CAACA,IAAD,IAAS,QAAOA,IAAP,MAAgB,QAA7B,EAAuC;EACnCA,IAAAA,IAAI,GAAG,eAAe,KAAKG,QAAL,IAAiB,SAAhC,CAAP;EACH;;EACD,SAAO,IAAIkT,WAAJ,CAAgBxS,GAAG,IAAI,EAAvB,EAA2B,IAA3B,EAAiCb,IAAjC,CAAP;EACH,CARD;EAUA;EACA;;;EACAqT,WAAW,CAAC1V,SAAZ,CAAsBnK,GAAtB,GAA4B,UAASwM,IAAT,EAA2C;EAAA,MAA5BjL,KAA4B,uEAApB,IAAoB;EAAA,MAAd4W,IAAc,uEAAP,KAAO;;EACnE,MAAI3L,IAAI,YAAYlD,OAApB,EAA6B;EACzBkD,IAAAA,IAAI,GAAGA,IAAI,CAACG,QAAZ;EACH;;EACD,MAAIH,IAAI,YAAY1D,OAApB,EAA6B;EACzB0D,IAAAA,IAAI,GAAGA,IAAI,CAACxG,OAAL,EAAP;EACH;;EACD,MAAIzE,KAAJ,EAAW;EACP,QAAI,CAAC4W,IAAL,EAAW;EACP5W,MAAAA,KAAK,GAAG8W,UAAU,CAAC9W,KAAD,CAAlB;EACH;;EACD,SAAK8xB,QAAL,CAAcviB,GAAd,CAAkBtE,IAAlB,EAAwBjL,KAAxB;;EACA,WAAO,IAAP;EACH;;EACD,MAAI,KAAK8xB,QAAL,CAAchW,GAAd,CAAkB7Q,IAAlB,CAAJ,EAA6B;EACzB,WAAO,KAAK6mB,QAAL,CAAc5xB,GAAd,CAAkB+K,IAAlB,CAAP;EACH;;EACD,MAAI,KAAK8mB,UAAT,EAAqB;EACjB,WAAO,KAAKA,UAAL,CAAgBtzB,GAAhB,CAAoBwM,IAApB,CAAP;EACH;EACJ,CApBD;EAsBA;EACA;EACA;EACA;;;EACAqT,WAAW,CAAC1V,SAAZ,CAAsBqpB,QAAtB,GAAiC,UAAS3zB,EAAT,EAAayL,IAAb,EAAmB;EAChD,MAAImoB,KAAK,GAAG,KAAK1L,OAAL,CAAa,WAAb,CAAZ;EACA0L,EAAAA,KAAK,CAAC3iB,GAAN,CAAU,cAAV,EAA0B9Q,GAAG,CAAC,cAAD,EAAiB,YAAgB;EAAA,QAAP6G,CAAO,uEAAH,CAAG;EAC1DA,IAAAA,CAAC,GAAGA,CAAC,CAACb,OAAF,EAAJ;EACA,QAAIgd,KAAK,GAAGyQ,KAAK,CAACH,UAAlB;;EACA,QAAI,EAAEtQ,KAAK,YAAYnD,WAAnB,CAAJ,EAAqC;EACjC,aAAOtK,IAAP;EACH;;EACD,QAAI1O,CAAC,IAAI,CAAT,EAAY;EACR,aAAOmc,KAAP;EACH;;EACD,QAAI0Q,YAAY,GAAG1Q,KAAK,CAACvhB,GAAN,CAAU,cAAV,CAAnB;EACA,WAAOiyB,YAAY,CAAC7sB,CAAC,GAAG,CAAL,CAAnB;EACH,GAX4B,EAW1BrF,UAAU,CAACuT,OAAX,CAAmB,cAAnB,EAAmCqD,OAXT,CAA7B;EAYA9M,EAAAA,IAAI,CAACqoB,MAAL,GAAc9zB,EAAd;EACA4zB,EAAAA,KAAK,CAAC3iB,GAAN,CAAU,WAAV,EAAuBxF,IAAvB;EACA,SAAOmoB,KAAP;EACH,CAjBD;;;EAmBA5T,WAAW,CAAC1V,SAAZ,CAAsBypB,OAAtB,GAAgC,UAAS7mB,MAAT,EAAiB;EAC7C,MAAIA,MAAM,YAAYzD,OAAtB,EAA+B;EAC3ByD,IAAAA,MAAM,GAAGA,MAAM,CAACJ,QAAhB;EACH;;EACD,MAAII,MAAM,YAAYjE,OAAtB,EAA+B;EAC3BiE,IAAAA,MAAM,GAAGA,MAAM,CAAC/G,OAAP,EAAT;EACH;;EACD,MAAI,KAAK+O,OAAL,CAAatL,cAAb,CAA4BsD,MAA5B,CAAJ,EAAyC;EACrC,WAAOwC,KAAK,CAAC,KAAKwF,OAAL,CAAahI,MAAb,CAAD,CAAZ;EACH;;EACD,MAAI,KAAKumB,UAAT,EAAqB;EACjB,WAAO,KAAKA,UAAL,CAAgBM,OAAhB,CAAwB7mB,MAAxB,CAAP;EACH;EACJ,CAbD;;;EAeA8S,WAAW,CAAC1V,SAAZ,CAAsBvL,QAAtB,GAAiC,YAAW;EACxC,SAAO,mBAAmB,KAAK+N,QAAxB,GAAmC,GAA1C;EACH,CAFD;;;EAIAkT,WAAW,CAAC1V,SAAZ,CAAsB+S,KAAtB,GAA8B,YAAW;EAAA;;EACrC;EACA,MAAIrI,GAAG,GAAG,EAAV,CAFqC;;EAIrCjR,EAAAA,MAAM,CAACC,IAAP,CAAY,KAAKkR,OAAjB,EAA0B/R,OAA1B,CAAkC,UAAAoT,GAAG,EAAI;EACrCvB,IAAAA,GAAG,CAACuB,GAAD,CAAH,GAAW,OAAI,CAACrB,OAAL,CAAaqB,GAAb,CAAX;EACH,GAFD;EAGA,SAAO,IAAIyJ,WAAJ,CAAgBhL,GAAhB,EAAqB,KAAKye,UAA1B,EAAsC,KAAK3mB,QAA3C,CAAP;EACH,CARD;;;EAUAkT,WAAW,CAAC1V,SAAZ,CAAsB0pB,KAAtB,GAA8B,UAAShf,GAAT,EAA8B;EAAA,MAAhBrI,IAAgB,uEAAT,OAAS;EACxDuQ,EAAAA,SAAS,CAAC,oBAAD,EAAuBlI,GAAvB,EAA4B,aAA5B,CAAT;EACA,SAAO,KAAKkT,OAAL,CAAavb,IAAb,EAAmBqI,GAAG,CAACE,OAAvB,CAAP;EACH,CAHD;EAKA;EACA;;;EACA,SAASxF,KAAT,CAAehO,KAAf,EAAsB;EAClB,MAAI,OAAO,IAAP,KAAgB,WAAhB,IAA+B,EAAE,gBAAgBgO,KAAlB,CAA/B,IACA,OAAO,IAAP,KAAgB,WADpB,EACiC;EAC7B,WAAO,IAAIA,KAAJ,CAAUhO,KAAV,CAAP;EACH;;EACD,OAAKA,KAAL,GAAaA,KAAb;EACH;;;EAEDgO,KAAK,CAACukB,WAAN,GAAoB,UAAS7yB,CAAT,EAAY;EAC5B,SAAOA,CAAC,YAAYsO,KAAb,IAAsB,OAAOtO,CAAC,CAACM,KAAT,KAAmB,WAAhD;EACH,CAFD;;;EAIAgO,KAAK,CAACpF,SAAN,CAAgBnE,OAAhB,GAA0B,YAAW;EACjC,SAAO,KAAKzE,KAAZ;EACH,CAFD;EAIA;EACA;;;EACA,SAASme,MAAT,CAAgB5H,MAAhB,EAAwB;EACpB,MAAIA,MAAM,CAACvU,MAAX,EAAmB;each,QAAIuU,MAAM,CAACvU,MAAP,KAAkB,CAAtB,EAAyB;EACrB,aAAOuU,MAAM,CAAC,CAAD,CAAb;EACH;EACJ;;EACD,MAAI,OAAO,IAAP,KAAgB,WAAhB,IAA+B,EAAE,gBAAgB4H,MAAlB,CAA/B,IACA,OAAO,IAAP,KAAgB,WADpB,EACiC;EAC7B,WAAO,IAAIA,MAAJ,CAAW5H,MAAX,CAAP;EACH;;EACD,OAAKic,UAAL,GAAkBjc,MAAlB;EACH;;EACD4H,MAAM,CAACvV,SAAP,CAAiBvL,QAAjB,GAA4B,YAAW;EACnC,SAAO,KAAKm1B,UAAL,CAAgB5vB,GAAhB,CAAoB,UAAAlD,CAAC;EAAA,WAAIrC,QAAQ,CAACqC,CAAD,CAAZ;EAAA,GAArB,EAAsC6C,IAAtC,CAA2C,IAA3C,CAAP;EACH,CAFD;;EAGA4b,MAAM,CAACvV,SAAP,CAAiBnE,OAAjB,GAA2B,YAAW;EAClC,SAAO,KAAK+tB,UAAZ;EACH,CAFD;;;EAIAlU,WAAW,CAAC1V,SAAZ,CAAsB1I,GAAtB,GAA4B,UAASsL,MAAT,EAA+B;EAAA,MAAd7H,OAAc,uEAAJ,EAAI;EACvD;EACA;EACA6X,EAAAA,SAAS,CAAC,kBAAD,EAAqBhQ,MAArB,EAA6B,CAAC,QAAD,EAAW,QAAX,CAA7B,CAAT;EACA,4BAA8B7H,OAA9B,CAAQlD,UAAR;EAAA,MAAQA,UAAR,oCAAqB,IAArB;EACA,MAAIwK,IAAI,GAAGO,MAAX;;EACA,MAAIP,IAAI,YAAYlD,OAAhB,IAA2BkD,IAAI,YAAY1D,OAA/C,EAAwD;EACpD0D,IAAAA,IAAI,GAAGA,IAAI,CAACxG,OAAL,EAAP;EACH;;EACD,MAAIzE,KAAK,GAAG,KAAKqyB,OAAL,CAAapnB,IAAb,CAAZ;;EACA,MAAIjL,KAAK,YAAYgO,KAArB,EAA4B;EACxB,QAAIA,KAAK,CAACukB,WAAN,CAAkBvyB,KAAlB,CAAJ,EAA8B;EAC1B,aAAO/C,SAAP;EACH;;EACD,WAAOgoB,WAAW,CAACjlB,KAAK,CAACyE,OAAN,EAAD,CAAlB;EACH;;EACD,MAAIhB,KAAJ;;EACA,MAAI+H,MAAM,YAAYzD,OAAlB,IAA6ByD,MAAM,CAACzD,OAAO,CAACuD,MAAT,CAAvC,EAAyD;EACrD;EACA7H,IAAAA,KAAK,GAAG+H,MAAM,CAACzD,OAAO,CAACuD,MAAT,CAAd;EACH,GAHD,MAGO,IAAI,OAAOL,IAAP,KAAgB,QAApB,EAA8B;EACjCxH,IAAAA,KAAK,GAAGwH,IAAI,CAACnH,KAAL,CAAW,GAAX,EAAgBuG,MAAhB,CAAuBgZ,OAAvB,CAAR;EACH;;EACD,MAAI5f,KAAK,IAAIA,KAAK,CAACzB,MAAN,GAAe,CAA5B,EAA+B;EAC3B,iBAAuByB,KAAvB;EAAA;EAAA,QAAKyf,KAAL;EAAA,QAAexZ,IAAf;;EACA1J,IAAAA,KAAK,GAAG,KAAKqyB,OAAL,CAAanP,KAAb,CAAR;;EACA,QAAIxZ,IAAI,CAAC1H,MAAT,EAAiB;EACb,UAAI;EACA,YAAIhC,KAAK,YAAYgO,KAArB,EAA4B;EACxBhO,UAAAA,KAAK,GAAGA,KAAK,CAACyE,OAAN,EAAR;EACH,SAFD,MAEO;EACHzE,UAAAA,KAAK,GAAGE,GAAG,CAACtC,IAAD,EAAOslB,KAAP,CAAX;;EACA,cAAIpW,WAAW,CAAC9M,KAAD,CAAf,EAAwB;EACpBA,YAAAA,KAAK,GAAG4c,MAAM,CAAC5c,KAAD,CAAd;EACH;EACJ;;EACD,YAAI,OAAOA,KAAP,KAAiB,WAArB,EAAkC;EAC9B;EACA,iBAAOE,GAAG,MAAH,UAAIF,KAAJ,4BAAc0J,IAAd,GAAP;EACH;EACJ,OAbD,CAaE,OAAOzK,CAAP,EAAU;EACR,cAAMA,CAAN;EACH;EACJ,KAjBD,MAiBO,IAAIe,KAAK,YAAYgO,KAArB,EAA4B;EAC/B,aAAOiX,WAAW,CAACjlB,KAAK,CAACyE,OAAN,EAAD,CAAlB;EACH;;EACDzE,IAAAA,KAAK,GAAGE,GAAG,CAACtC,IAAD,EAAOqN,IAAP,CAAX;EACH;;EACD,MAAI,OAAOjL,KAAP,KAAiB,WAArB,EAAkC;EAC9B,WAAOA,KAAP;EACH;;EACD,MAAIS,UAAJ,EAAgB;EACZ,UAAM,IAAI0E,KAAJ,CAAU,uBAAuB8F,IAAI,CAAC5N,QAAL,EAAvB,GAAyC,GAAnD,CAAN;EACH;EACJ,CAtDD;;;EAwDAihB,WAAW,CAAC1V,SAAZ,CAAsB2G,GAAtB,GAA4B,UAAStE,IAAT,EAAejL,KAAf,EAAkC;EAAA,MAAZvB,GAAY,uEAAN,IAAM;EAC1D+c,EAAAA,SAAS,CAAC,kBAAD,EAAqBvQ,IAArB,EAA2B,CAAC,QAAD,EAAW,QAAX,CAA3B,CAAT;;EACA,MAAI1G,OAAO,CAACsd,QAAR,CAAiB7hB,KAAjB,CAAJ,EAA6B;EACzBA,IAAAA,KAAK,GAAGuE,OAAO,CAACvE,KAAD,CAAf;EACH;;EACD,MAAIiL,IAAI,YAAYlD,OAApB,EAA6B;EACzBkD,IAAAA,IAAI,GAAGA,IAAI,CAACG,QAAZ;EACH;;EACD,MAAIH,IAAI,YAAY1D,OAApB,EAA6B;EACzB0D,IAAAA,IAAI,GAAGA,IAAI,CAACxG,OAAL,EAAP;EACH;;EACD,OAAK+O,OAAL,CAAavI,IAAb,IAAqBjL,KAArB;;EACA,MAAIvB,GAAJ,EAAS;EACL,SAAKA,GAAL,CAASwM,IAAT,EAAexM,GAAf,EAAoB,IAApB;EACH;;EACD,SAAO,IAAP;EACH,CAhBD;EAkBA;EACA;;;EACA6f,WAAW,CAAC1V,SAAZ,CAAsBsgB,QAAtB,GAAiC,UAASje,IAAT,EAAejL,KAAf,EAAsB;EAAA;;EACnD,MAAI,KAAKwT,OAAL,CAAatL,cAAb,CAA4B+C,IAA5B,CAAJ,EAAuC;EACnC,UAAM,IAAI9F,KAAJ,kCAAoC8F,IAApC,qBAAN;EACH;;EACD,MAAIpL,SAAS,CAACmC,MAAV,KAAqB,CAArB,IAA0B4S,eAAe,CAAC/U,SAAS,CAAC,CAAD,CAAV,CAA7C,EAA6D;EACzD,QAAIiM,GAAG,GAAGjM,SAAS,CAAC,CAAD,CAAnB;EACAwC,IAAAA,MAAM,CAACC,IAAP,CAAYwJ,GAAZ,EAAiBrK,OAAjB,CAAyB,UAAAoT,GAAG,EAAI;EAC5B,MAAA,OAAI,CAACqU,QAAL,CAAcje,IAAd,EAAoBa,GAAG,CAAC+I,GAAD,CAAvB;EACH,KAFD;EAGH,GALD,MAKO;EACHxS,IAAAA,MAAM,CAAC2K,cAAP,CAAsB,KAAKwG,OAA3B,EAAoCvI,IAApC,EAA0C;EACtCjL,MAAAA,KAAK,EAALA,KADsC;EAEtCiN,MAAAA,UAAU,EAAE;EAF0B,KAA1C;EAIH;;EACD,SAAO,IAAP;EACH,CAhBD;;;EAkBAqR,WAAW,CAAC1V,SAAZ,CAAsBkT,GAAtB,GAA4B,UAAS7Q,IAAT,EAAe;EACvC,SAAO,KAAKuI,OAAL,CAAatL,cAAb,CAA4B+C,IAA5B,CAAP;EACH,CAFD;;;EAIAqT,WAAW,CAAC1V,SAAZ,CAAsB2M,GAAtB,GAA4B,UAAStK,IAAT,EAAe;EACvC,MAAIqI,GAAG,GAAG,IAAV;;EACA,SAAO,IAAP,EAAa;EACT,QAAI,CAACA,GAAL,EAAU;EACN;EACH;;EACD,QAAIA,GAAG,CAACwI,GAAJ,CAAQ7Q,IAAR,CAAJ,EAAmB;each,aAAOqI,GAAP;EACH;;EACDA,IAAAA,GAAG,GAAGA,GAAG,CAACye,UAAV;EACH;EACJ,CAXD;;;EAaAzT,WAAW,CAAC1V,SAAZ,CAAsBmW,OAAtB,GAAgC,YAAW;EACvC,MAAIzL,GAAG,GAAG,IAAV;EACA,MAAI9R,MAAM,GAAG,EAAb;;EACA,SAAO8R,GAAP,EAAY;EACR9R,IAAAA,MAAM,CAACixB,OAAP,CAAenf,GAAf;EACAA,IAAAA,GAAG,GAAGA,GAAG,CAACye,UAAV;EACH;;EACD,SAAOvwB,MAAP;EACH,CARD;EAUA;EACA;;;EACA,SAASiK,KAAT,CAAezL,KAAf,EAAsB;EAClB,MAAIM,UAAU,CAACN,KAAD,CAAd,EAAuB;EACnB,WAAOA,KAAK,CAACO,IAAN,CAAWkL,KAAX,CAAP;EACH;;EACD,MAAIzL,KAAK,YAAYoU,IAAjB,IAAyBpU,KAAK,YAAY+H,OAA9C,EAAuD;EACnD/H,IAAAA,KAAK,CAACic,QAAD,CAAL,GAAkB,IAAlB;EACH;;EACD,SAAOjc,KAAP;EACH;;;EAaD,IAAI0yB,aAAa,GAAGtuB,KAAK,CAAC+F,QAAQ,sJAAT,CAAL,CAEuD,CAFvD,CAApB;;EAIA,IAAIjK,GAAG,GAAGzB,GAAG,CAAC,KAAD,EAAQ,SAASyB,GAAT,CAAaoL,MAAb,EAA8B;EAC/C,MAAItL,KAAJ;;EAD+C,sCAAN+J,IAAM;EAANA,IAAAA,IAAM;EAAA;;EAE/C,MAAIyG,GAAG,GAAGzG,IAAI,CAAC/H,MAAf;;EACA,SAAO+H,IAAI,CAAC/H,MAAZ,EAAoB;EAChB;EACA,QAAI8K,WAAW,CAACxB,MAAD,CAAX,IAAuB,QAAOvB,IAAI,CAAC,CAAD,CAAX,MAAmB,QAA9C,EAAwD;EACpDuB,MAAAA,MAAM,GAAGsR,MAAM,CAACtR,MAAD,CAAf;EACH;;EACD,QAAI9H,GAAG,GAAGuG,IAAI,CAACwO,KAAL,EAAV;EACA,QAAItN,IAAI,GAAG8Z,KAAK,CAACvhB,GAAD,CAAhB,CANgB;EAQhB;;EACA,QAAIyH,IAAI,KAAK,MAAT,IAAmBK,MAAM,YAAYc,aAAzC,EAAwD;EACpDpM,MAAAA,KAAK,GAAGoM,aAAa,CAACxD,SAAd,CAAwBrI,IAAhC;EACH,KAFD,MAEO,IAAI0K,IAAI,KAAK,UAAT,IAAuB6B,WAAW,CAACxB,MAAD,CAAlC,IACA,OAAOA,MAAM,CAAC6M,QAAd,KAA2B,WAD/B,EAC4C;EAC/CnY,MAAAA,KAAK,GAAG0yB,aAAR;EACH,KAHM,MAGA;EACH1yB,MAAAA,KAAK,GAAGsL,MAAM,CAACL,IAAD,CAAd;EACH;;EACD,QAAI,OAAOjL,KAAP,KAAiB,WAArB,EAAkC;EAC9B,UAAI+J,IAAI,CAAC/H,MAAT,EAAiB;EACb,cAAM,IAAImD,KAAJ,sBAAwB4E,IAAI,CAAC,CAAD,CAA5B,qBAAN;EACH;;EACD,aAAO/J,KAAP;EACH,KALD,MAKO;EACH,UAAIklB,OAAJ;;EACA,UAAInb,IAAI,CAAC/H,MAAL,GAAc,CAAd,GAAkBwO,GAAtB,EAA2B;EACvB0U,QAAAA,OAAO,GAAG5Z,MAAV;EACH;;EACDtL,MAAAA,KAAK,GAAGilB,WAAW,CAACjlB,KAAD,EAAQklB,OAAR,CAAnB;EACH;;EACD5Z,IAAAA,MAAM,GAAGtL,KAAT;EACH;;EACD,SAAOA,KAAP;EACH,CAnCY,miBAAb;EA+CA;EACA;;EACA,SAASsM,QAAT,CAAkBgH,GAAlB,EAAuBrI,IAAvB,EAA6B;EACzB,MAAIumB,YAAY,GAAGmB,WAAW,CAACrf,GAAD,EAAM,kBAAN,CAA9B;EACA,SAAOke,YAAY,CAACtxB,GAAb,CAAiB+K,IAAjB,CAAP;EACH;EAED;EACA;;;EACA,SAAS0nB,WAAT,CAAqBrf,GAArB,EAA0BrI,IAA1B,EAAgC;EAC5B,MAAI2nB,eAAe,GAAGtf,GAAG,CAACpT,GAAJ,CAAQ,6BAAR,CAAtB;EACA,SAAO0yB,eAAe,CAAC1yB,GAAhB,CAAoB+K,IAApB,CAAP;EACH;;;EAED,IAAIumB,YAAY,GAAG,IAAIlT,WAAJ,CAAgB;EAC/B+S,EAAAA,MAAM,EAAE,IAAI1C,kBAAJ,CAAuB,YAAkB;EAAA;;EAC7C,gBAAAtuB,OAAO,EAACZ,GAAR;EACH,GAFO,CADuB;EAI/B;EACA0xB,EAAAA,MAAM,EAAE,IAAIxC,kBAAJ,CAAuB,YAAkB;EAAA;;EAC7C,iBAAAtuB,OAAO,EAACmU,KAAR;EACH,GAFO,CALuB;EAQ/B;EACA4c,EAAAA,KAAK,EAAEhT,SAAS,CAAC,YAAW;EACxB,WAAO1Q,OAAO,CAAC6hB,OAAR,CAAgBsD,MAAM,CAAC,EAAD,CAAtB,CAAP;EACH,GAFe,CATe;EAY/B;EACA,0BAAwB,6qPAbO;EAc/B,2BAAyB,szDAdM;EAe/B,yBAAuB;EAfQ,CAAhB,EAgBhB51B,SAhBgB,EAgBL,UAhBK,CAAnB;;EAkBA,IAAI0nB,GAAG,GAAGpgB,OAAO,CAACmB,GAAD,CAAjB;EACA,IAAIuC,SAAS,GAAG;EACZ,UAAQ,IADI;EAEZ,WAAS,KAFG;EAGZ,WAAS,IAHG;EAIZ,YAAU,KAJE;EAKZ,QAAM,IALM;EAMZ,QAAM,KANM;EAOZ+L,EAAAA,GAAG,EAAHA,IAPY;EAQZ,eAAa/W,SARD;EASZ,UAAQ,IATI;EAUZ,SAAO0nB,GAVK;EAWZ,YAAUA,GAXE;EAYZ,YAAUA;EAZE,CAAhB;;EAeA,IAAI1kB,UAAU,GAAG,IAAIqe,WAAJ,CAAgB;EAC7BhV,EAAAA,GAAG,EAAHA,GAD6B;EAE7BrM,EAAAA,SAAS,EAATA,SAF6B;EAElB;EACX;EACA,eAAawB,GAAG,CAAC,WAAD,EAAc,YAAsB;EAAA,QAAbq0B,IAAa,uEAAN,IAAM;;EAChD,QAAIA,IAAI,KAAK,IAAb,EAAmB;EACfA,MAAAA,IAAI,GAAGxmB,QAAQ,CAAC,IAAD,EAAO,OAAP,CAAf;EACH;;EACDymB,IAAAA,mBAAmB,CAAC,WAAD,EAAcD,IAAd,EAAoB,YAApB,CAAnB;EACA,WAAOA,IAAI,CAACpiB,SAAL,EAAP;EACH,GANe,uIAJa;EAc7B;EACA,eAAajS,GAAG,CAAC,WAAD,EAAc,YAAsB;EAAA,QAAbq0B,IAAa,uEAAN,IAAM;;EAChD,QAAIA,IAAI,KAAK,IAAb,EAAmB;EACfA,MAAAA,IAAI,GAAGxmB,QAAQ,CAAC,IAAD,EAAO,OAAP,CAAf;EACH;;EACDymB,IAAAA,mBAAmB,CAAC,WAAD,EAAcD,IAAd,EAAoB,YAApB,CAAnB;EACA,WAAOA,IAAI,CAAC5E,SAAL,EAAP;EACH,GANe,kFAfa;EAwB7B;EACA,eAAazvB,GAAG,CAAC,WAAD,EAAc,YAAsB;EAAA,QAAbq0B,IAAa,uEAAN,IAAM;;EAChD,QAAIA,IAAI,KAAK,IAAb,EAAmB;EACfA,MAAAA,IAAI,GAAGxmB,QAAQ,CAAC,IAAD,EAAO,OAAP,CAAf;EACH;;EACDymB,IAAAA,mBAAmB,CAAC,WAAD,EAAcD,IAAd,EAAoB,YAApB,CAAnB;EACA,WAAOA,IAAI,CAAC3E,SAAL,EAAP;EACH,GANe,kFAzBa;EAkC7B;EACA/wB,EAAAA,IAAI,EAAEqB,GAAG,CAAC,MAAD;EAAA,kEAAS;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;;EAAA;EAAA;EAAA;EAAA;EAAoB+E,cAAAA,GAApB,iEAA0B,IAA1B;;EAAA,mBACV+D,OAAO,CAACsE,QAAR,CAAiBrI,GAAjB,CADU;EAAA;EAAA;EAAA;;EAAA;EAAA;EAAA;EAAA,0CAEcY,KAAK,CAACZ,GAAD,EAAM,IAAN,CAFnB;;EAAA;EAAA;EAAA;;EAAA;EAAA;EAAA;EAAA;EAAA;;EAEKxD,cAAAA,KAFL;EAAA,iDAGCA,KAHD;;EAAA;EAAA;EAAA;EAAA;;EAAA;EAAA;EAAA;;EAAA;EAAA;EAAA;EAAA;EAAA;;EAAA;EAAA;EAAA;;EAAA;EAAA;EAAA;EAAA;;EAAA;EAAA;;EAAA;EAAA;;EAAA;EAAA;EAAA;EAAA;;EAAA;;EAAA;EAAA;;EAAA;EAAA;;EAAA;EAOd,kBAAIwD,GAAG,KAAK,IAAZ,EAAkB;EACdsvB,gBAAAA,IAAI,GAAGxmB,QAAQ,CAAC,IAAD,EAAO,OAAP,CAAf;EACH,eAFD,MAEO;EACHwmB,gBAAAA,IAAI,GAAGtvB,GAAP;EACH;;EACDuvB,cAAAA,mBAAmB,CAAC,MAAD,EAASD,IAAT,EAAe,YAAf,CAAnB;EAZc,iDAaPA,IAAI,CAAC11B,IAAL,CAAUgC,IAAV,CAAe,IAAf,CAbO;;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA,KAAT;;EAAA,aAAwBhC,IAAxB;EAAA;EAAA;;EAAA,WAAwBA,IAAxB;EAAA,saAnCoB;EAyD7B;EACA41B,EAAAA,MAAM,EAAEv0B,GAAG,CAAC,QAAD,EAAW,SAASu0B,MAAT,CAAgBxvB,GAAhB,EAAqB;EACvC,QAAIA,GAAG,YAAY4Q,IAAnB,EAAyB;EACrB5Q,MAAAA,GAAG,GAAG,IAAIwU,IAAI,CAACE,SAAT,CAAmB1U,GAAG,CAACnG,QAAJ,CAAa,IAAb,CAAnB,aAA+Cud,MAA/C,EAAN;EACA3a,MAAAA,UAAU,CAACC,GAAX,CAAe,SAAf,EAA0Bd,IAA1B,CAA+Ba,UAA/B,EAA2CuD,GAA3C;EACH,KAHD,MAGO;EACHvD,MAAAA,UAAU,CAACC,GAAX,CAAe,OAAf,EAAwBd,IAAxB,CAA6Ba,UAA7B,EAAyCuD,GAAzC;EACH;;EACDvD,IAAAA,UAAU,CAACC,GAAX,CAAe,SAAf,EAA0Bd,IAA1B,CAA+Ba,UAA/B;EACH,GARU,0JA1DkB;EAsE7B;EACAgzB,EAAAA,KAAK,EAAEx0B,GAAG,CAAC,OAAD,EAAU,SAASw0B,KAAT,GAAwB;EACxC,QAAMC,OAAO,GAAGjzB,UAAU,CAACC,GAAX,CAAe,SAAf,CAAhB;EACA,QAAMmR,OAAO,GAAGpR,UAAU,CAACC,GAAX,CAAe,SAAf,CAAhB;;EAFwC,wCAAN6J,IAAM;EAANA,MAAAA,IAAM;EAAA;;EAGxCA,IAAAA,IAAI,CAACtI,OAAL,CAAa,UAAA+B,GAAG,EAAI;EAChB0vB,MAAAA,OAAO,CAAC9zB,IAAR,CAAaa,UAAb,EAAyBuD,GAAzB;EACA6N,MAAAA,OAAO,CAACjS,IAAR,CAAaa,UAAb;EACH,KAHD;EAIH,GAPS,8PAvEmB;EAmF7B;EACA2a,EAAAA,MAAM,EAAEnc,GAAG,CAAC,QAAD,EAAW,SAASmc,MAAT,CAAgBtU,GAAhB,EAA8B;EAAA,wCAANyD,IAAM;EAANA,MAAAA,IAAM;EAAA;;EAChDyR,IAAAA,SAAS,CAAC,QAAD,EAAWlV,GAAX,EAAgB,QAAhB,CAAT;EACA,QAAMP,EAAE,GAAG,YAAX;EACA,QAAIlD,CAAC,GAAGyD,GAAG,CAAC5C,KAAJ,CAAU,UAAV,CAAR;;EACA,QAAIb,CAAC,IAAIA,CAAC,CAACb,MAAF,GAAW+H,IAAI,CAAC/H,MAAzB,EAAiC;EAC7B,YAAM,IAAImD,KAAJ,CAAU,sBAAV,CAAN;EACH;;EACD,QAAIuF,CAAC,GAAG,CAAR;EACA,QAAI6R,IAAI,GAAGtc,UAAU,CAACC,GAAX,CAAe,MAAf,CAAX;EACAoG,IAAAA,GAAG,GAAGA,GAAG,CAAC1C,OAAJ,CAAYmC,EAAZ,EAAgB,UAACrG,CAAD,EAAO;EACzB,UAAMmI,GAAG,GAAGnI,CAAC,CAAC,CAAD,CAAb;;EACA,UAAImI,GAAG,KAAK,GAAZ,EAAiB;EACb,eAAO,GAAP;EACH,OAFD,MAEO,IAAIA,GAAG,KAAK,GAAZ,EAAiB;EACpB,eAAO,IAAP;EACH,OAFM,MAEA;EACH,YAAMrE,GAAG,GAAGuG,IAAI,CAACW,CAAC,EAAF,CAAhB;;EACA,YAAI7C,GAAG,KAAK,GAAZ,EAAiB;EACb,iBAAO0U,IAAI,CAAC/Y,GAAD,CAAX;EACH,SAFD,MAEO;EACH,iBAAO+Y,IAAI,CAAC/Y,GAAD,EAAM,IAAN,CAAX;EACH;EACJ;EACJ,KAdK,CAAN;EAeAX,IAAAA,CAAC,GAAGyD,GAAG,CAAC5C,KAAJ,CAAU,SAAV,CAAJ;;EACA,QAAIb,CAAJ,EAAO;EACH,YAAM,IAAIsC,KAAJ,+CAAiDtC,CAAC,CAAC,CAAD,CAAlD,EAAN;EACH;;EACD,WAAOyD,GAAP;EACH,GA7BU,8ZApFkB;EA4H7B;EACA4sB,EAAAA,OAAO,EAAEz0B,GAAG,CAAC,SAAD,EAAY,SAASy0B,OAAT,CAAiB1vB,GAAjB,EAAmC;EAAA,QAAbsvB,IAAa,uEAAN,IAAM;;EACvD,QAAIA,IAAI,KAAK,IAAb,EAAmB;EACfA,MAAAA,IAAI,GAAGxmB,QAAQ,CAAC,IAAD,EAAO,QAAP,CAAf;EACH,KAFD,MAEO;EACHkP,MAAAA,SAAS,CAAC,SAAD,EAAYsX,IAAZ,EAAkB,aAAlB,CAAT;EACH;;EACD,QAAM9yB,KAAK,GAAGC,UAAU,CAACC,GAAX,CAAe,MAAf,EAAuBsD,GAAvB,CAAd;EACAsvB,IAAAA,IAAI,CAACtE,KAAL,CAAWpvB,IAAX,CAAgBa,UAAhB,EAA4BD,KAA5B;EACH,GARW,iGA7HiB;EAwI7B;EACA,mBAAiBvB,GAAG,CAAC,eAAD,EAAkB,SAAS+V,KAAT,GAAwB;EAC1D,QAAMse,IAAI,GAAGxmB,QAAQ,CAAC,IAAD,EAAO,QAAP,CAArB;EACA,QAAMiQ,IAAI,GAAGtc,UAAU,CAACC,GAAX,CAAe,MAAf,CAAb;;EAF0D,wCAAN6J,IAAM;EAANA,MAAAA,IAAM;EAAA;;EAG1D,QAAM/J,KAAK,GAAG+J,IAAI,CAACnH,GAAL,CAAS2Z,IAAT,EAAeha,IAAf,CAAoB,GAApB,CAAd;EACAuwB,IAAAA,IAAI,CAACtE,KAAL,CAAWpvB,IAAX,CAAgBa,UAAhB,EAA4BD,KAA5B;EACAC,IAAAA,UAAU,CAACC,GAAX,CAAe,SAAf,EAA0B4yB,IAA1B;EACH,GANmB,iEAzIS;EAkJ7B;EACA,qBAAmBr0B,GAAG,CAAC,iBAAD,EAAoB,UAASqU,CAAT,EAAYC,CAAZ,EAAe;EACrD,QAAI,CAACjG,WAAW,CAACgG,CAAD,CAAhB,EAAqB;EACjB,aAAO,KAAP;EACH;;EACD,QAAI,CAAChG,WAAW,CAACiG,CAAD,CAAhB,EAAqB;EACjB,aAAO,KAAP;EACH;;EACD,WAAO6J,MAAM,CAAC9J,CAAD,CAAN,KAAc8J,MAAM,CAAC7J,CAAD,CAA3B;EACH,GARqB,wGAnJO;EA8J7B;EACAogB,EAAAA,IAAI,EAAE10B,GAAG,CAAC,IAAI4W,KAAJ,CAAU,MAAV,EAAkB,UAASf,IAAT,UAAyC;EAAA,QAAxBoM,aAAwB,UAAxBA,aAAwB;EAAA,QAATlM,KAAS,UAATA,KAAS;EACjE,QAAIhJ,MAAJ;;EACA,QAAI8I,IAAI,CAACU,GAAL,YAAoBjN,OAAxB,EAAiC;EAC7ByD,MAAAA,MAAM,GAAG8I,IAAI,CAACU,GAAd;EACH,KAFD,MAEO,IAAIV,IAAI,CAACU,GAAL,YAAoBZ,IAApB,IAA4BE,IAAI,CAACU,GAAL,CAASA,GAAT,YAAwBjN,OAAxD,EAAiE;EACpEyD,MAAAA,MAAM,GAAG8I,IAAI,CAACU,GAAL,CAASA,GAAlB;EACH,KAFM,MAEA;EACH,UAAI1B,GAAG,GAAG,IAAV;;EACA,UAAIoN,aAAJ,EAAmB;EACfA,QAAAA,aAAa,GAAG,IAAhB;EACH;;EACD,UAAIzK,GAAG,GAAG1B,SAAQ,CAACD,IAAI,CAACU,GAAN,EAAW;EAAE1B,QAAAA,GAAG,EAAHA,GAAF;EAAOkB,QAAAA,KAAK,EAALA,KAAP;EAAckM,QAAAA,aAAa,EAAbA;EAAd,OAAX,CAAlB;;EACA,UAAIzK,GAAG,IAAIA,GAAG,CAACY,OAAf,EAAwB;EACpB,eAAOZ,GAAG,CAACY,OAAX;EACH;;EACD;EACH;;EACD,QAAIA,OAAJ;;EACA,QAAI7W,KAAK,GAAG,KAAKE,GAAL,CAASsL,MAAT,CAAZ;EACAqL,IAAAA,OAAO,GAAG7W,KAAK,IAAIA,KAAK,CAAC6W,OAAzB;;EACA,QAAIA,OAAJ,EAAa;EACT,aAAOA,OAAP;EACH;;EACD,QAAItB,GAAG,GAAG,KAAKA,GAAL,CAAS/J,MAAT,CAAV;;EACA,QAAI+J,GAAJ,EAAS;EACLsB,MAAAA,OAAO,GAAGtB,GAAG,CAAC9W,GAAJ,CAAQ+M,MAAR,CAAV;;EACA,UAAIqL,OAAJ,EAAa;EACT,eAAOA,OAAP;EACH;EACJ;EACJ,GA9BS,CAAD,gPA/JoB;EAkM7B;EACAuc,EAAAA,IAAI,EAAE30B,GAAG,CAAC,MAAD,EAAS,SAAS20B,IAAT,CAAcpe,GAAd,EAAmBb,GAAnB,EAAwB;EACtC,WAAO,IAAIC,IAAJ,CAASY,GAAT,EAAcb,GAAd,CAAP;EACH,GAFQ,oFAnMoB;EAwM7B;EACAa,EAAAA,GAAG,EAAEvW,GAAG,CAAC,KAAD,EAAQ,SAASuW,GAAT,CAAa7J,IAAb,EAAmB;EAC/BqQ,IAAAA,SAAS,CAAC,KAAD,EAAQrQ,IAAR,EAAc,MAAd,CAAT;EACA,WAAOA,IAAI,CAAC6J,GAAZ;EACH,GAHO,4EAzMqB;EA+M7B;EACAb,EAAAA,GAAG,EAAE1V,GAAG,CAAC,KAAD,EAAQ,SAAS0V,GAAT,CAAahJ,IAAb,EAAmB;EAC/BqQ,IAAAA,SAAS,CAAC,KAAD,EAAQrQ,IAAR,EAAc,MAAd,CAAT;EACA,WAAOA,IAAI,CAACgJ,GAAZ;EACH,GAHO,4EAhNqB;EAsN7B;EACA,UAAQ1V,GAAG,CAAC,IAAI4W,KAAJ,CAAU,MAAV,EAAkB,UAASf,IAAT,EAA8C;EAAA;;EAAA,qFAAJ,EAAI;EAAA,QAA7BoM,aAA6B,UAA7BA,aAA6B;EAAA,QAAdlM,KAAc,UAAdA,KAAc;;EACxE,QAAIkM,aAAJ,EAAmB;EACfA,MAAAA,aAAa,GAAG,IAAhB;EACH;;EACD,QAAIpN,GAAG,GAAG,IAAV;EACA,QAAIiC,GAAJ;;EACA,QAAIvV,KAAK,GAAGuU,SAAQ,CAACD,IAAI,CAACH,GAAL,CAASa,GAAV,EAAe;EAAE1B,MAAAA,GAAG,EAAE,IAAP;EAAaoN,MAAAA,aAAa,EAAbA,aAAb;EAA4BlM,MAAAA,KAAK,EAALA;EAA5B,KAAf,CAApB;;EACAxU,IAAAA,KAAK,GAAGqzB,gBAAgB,CAACrzB,KAAD,CAAxB;;EACA,aAASuP,GAAT,CAAajE,MAAb,EAAqBuJ,GAArB,EAA0B7U,KAA1B,EAAiC;EAC7B,UAAIM,UAAU,CAACgL,MAAD,CAAd,EAAwB;EACpB,eAAOA,MAAM,CAAC/K,IAAP,CAAY,UAAAsU,GAAG;EAAA,iBAAItF,GAAG,CAACjE,MAAD,EAASuJ,GAAT,EAAc7U,KAAd,CAAP;EAAA,SAAf,CAAP;EACH;;EACD,UAAIM,UAAU,CAACuU,GAAD,CAAd,EAAqB;EACjB,eAAOA,GAAG,CAACtU,IAAJ,CAAS,UAAAsU,GAAG;EAAA,iBAAItF,GAAG,CAACjE,MAAD,EAASuJ,GAAT,EAAc7U,KAAd,CAAP;EAAA,SAAZ,CAAP;EACH;;EACD,UAAIM,UAAU,CAACN,KAAD,CAAd,EAAuB;EACnB,eAAOA,KAAK,CAACO,IAAN,CAAW,UAAAP,KAAK;EAAA,iBAAIuP,GAAG,CAACjE,MAAD,EAASuJ,GAAT,EAAc7U,KAAd,CAAP;EAAA,SAAhB,CAAP;EACH;;EACDsT,MAAAA,GAAG,CAACpT,GAAJ,CAAQ,UAAR,EAAoBd,IAApB,CAAyBkU,GAAzB,EAA8BhI,MAA9B,EAAsCuJ,GAAtC,EAA2C7U,KAA3C;EACA,aAAOA,KAAP;EACH;;EACD,QAAIsU,IAAI,CAACU,GAAL,YAAoBZ,IAApB,IAA4BrM,OAAO,CAACwD,EAAR,CAAW+I,IAAI,CAACU,GAAL,CAASA,GAApB,EAAyB,GAAzB,CAAhC,EAA+D;EAC3D,UAAIuM,MAAM,GAAGjN,IAAI,CAACU,GAAL,CAASb,GAAT,CAAaa,GAA1B;EACA,UAAIse,KAAK,GAAGhf,IAAI,CAACU,GAAL,CAASb,GAAT,CAAaA,GAAb,CAAiBa,GAA7B;;EACA,UAAI1J,MAAM,GAAGiJ,SAAQ,CAACgN,MAAD,EAAS;EAAEjO,QAAAA,GAAG,EAAE,IAAP;EAAaoN,QAAAA,aAAa,EAAbA,aAAb;EAA4BlM,QAAAA,KAAK,EAALA;EAA5B,OAAT,CAArB;;EACA,UAAIK,GAAG,GAAGN,SAAQ,CAAC+e,KAAD,EAAQ;EAAEhgB,QAAAA,GAAG,EAAE,IAAP;EAAaoN,QAAAA,aAAa,EAAbA,aAAb;EAA4BlM,QAAAA,KAAK,EAALA;EAA5B,OAAR,CAAlB;;EACA,aAAOjF,GAAG,CAACjE,MAAD,EAASuJ,GAAT,EAAc7U,KAAd,CAAV;EACH;;EACD,QAAI,EAAEsU,IAAI,CAACU,GAAL,YAAoBjN,OAAtB,CAAJ,EAAoC;EAChC,YAAM,IAAI5C,KAAJ,CAAU,gDACA,uCADV,CAAN;EAEH;;EACD,QAAIqG,MAAM,GAAG8I,IAAI,CAACU,GAAL,CAASvQ,OAAT,EAAb;EACA8Q,IAAAA,GAAG,GAAG,KAAKA,GAAL,CAASjB,IAAI,CAACU,GAAL,CAAS5J,QAAlB,CAAN,CAjCwE;EAmCxE;;EACA,WAAO4K,SAAS,CAAChW,KAAD,EAAQ,UAAAA,KAAK,EAAI;EAC7B,UAAI,CAACuV,GAAL,EAAU;EACN;EACA,YAAI9R,KAAK,GAAG+H,MAAM,CAAC1H,KAAP,CAAa,GAAb,CAAZ;;EACA,YAAIL,KAAK,CAACzB,MAAN,GAAe,CAAnB,EAAsB;EAClB,cAAI6S,GAAG,GAAGpR,KAAK,CAACqF,GAAN,EAAV;EACA,cAAImC,IAAI,GAAGxH,KAAK,CAAClB,IAAN,CAAW,GAAX,CAAX;;EACA,cAAIuJ,GAAG,GAAG,OAAI,CAAC5L,GAAL,CAAS+K,IAAT,EAAe;EAAExK,YAAAA,UAAU,EAAE;EAAd,WAAf,CAAV;;EACA,cAAIqL,GAAJ,EAAS;EACLyD,YAAAA,GAAG,CAACzD,GAAD,EAAM+I,GAAN,EAAW7U,KAAX,CAAH;EACA;EACH;EACJ;;EACD,cAAM,IAAImF,KAAJ,CAAU,uBAAuBqG,MAAvB,GAAgC,IAA1C,CAAN;EACH;;EACD+J,MAAAA,GAAG,CAAChG,GAAJ,CAAQ/D,MAAR,EAAgBxL,KAAhB;EACH,KAhBe,CAAhB;EAiBH,GArDW,CAAD,6LAvNkB;EAgR7B;EACA,YAAUvB,GAAG,CAAC,IAAI4W,KAAJ,CAAU,MAAV,EAAkB,UAASf,IAAT,EAAe;EAC3C,QAAI,EAAEA,IAAI,CAACU,GAAL,YAAoBjN,OAAtB,CAAJ,EAAoC;EAChC,YAAM,IAAI5C,KAAJ,CAAU,kDACA,uCADV,CAAN;EAEH;;EACD,QAAMqG,MAAM,GAAG8I,IAAI,CAACU,GAApB;EACA,QAAIO,GAAG,GAAG,KAAKA,GAAL,CAAS/J,MAAT,CAAV;;EACA,QAAI+J,GAAJ,EAAS;EACL,aAAOA,GAAG,CAAC/B,OAAJ,CAAYhI,MAAM,CAACJ,QAAnB,CAAP;EACH;EACJ,GAVa,CAAD,kFAjRgB;EA8R7B;EACA,cAAY3M,GAAG,CAAC,UAAD,EAAa,UAAS80B,IAAT,EAAevzB,KAAf,EAAsB;EAC9Cwb,IAAAA,SAAS,CAAC,UAAD,EAAa+X,IAAb,EAAmB,MAAnB,CAAT;EACAA,IAAAA,IAAI,CAACve,GAAL,GAAWhV,KAAX;EACH,GAHc,mKA/Rc;EAsS7B;EACA,cAAYvB,GAAG,CAAC,UAAD,EAAa,UAAS80B,IAAT,EAAevzB,KAAf,EAAsB;EAC9Cwb,IAAAA,SAAS,CAAC,UAAD,EAAa+X,IAAb,EAAmB,MAAnB,CAAT;EACAA,IAAAA,IAAI,CAACpf,GAAL,GAAWnU,KAAX;EACH,GAHc,mKAvSc;EA8S7B;EACA,YAAUvB,GAAG,CAAC,QAAD,EAAW,UAASiB,CAAT,EAAY;EAChC,WAAO,OAAOA,CAAP,KAAa,WAAb,IAA4BA,CAAC,KAAKsU,IAAzC;EACH,GAFY,yFA/SgB;EAoT7B;EACAjI,EAAAA,MAAM,EAAEtN,GAAG,CACP,QADO,EAEPsN,MAFO,+FArTkB;EA2T7B;EACA;EACA;EACAynB,EAAAA,IAAI,EAAE/0B,GAAG,CAAC,MAAD,EAAS,SAAS+0B,IAAT,CAAcC,IAAd,EAAoBngB,GAApB,EAAyB;EACvCkI,IAAAA,SAAS,CAAC,MAAD,EAASiY,IAAT,EAAe,QAAf,CAAT;EACA,QAAIC,KAAK,GAAG,IAAZ;;EACA,QAAIA,KAAK,CAACtoB,QAAN,KAAmB,WAAvB,EAAoC;EAChCsoB,MAAAA,KAAK,GAAGA,KAAK,CAAC3B,UAAd;EACH;;EACD,QAAI,EAAEze,GAAG,YAAYgL,WAAjB,CAAJ,EAAmC;EAC/B,UAAIoV,KAAK,KAAKzzB,UAAd,EAA0B;EACtB;EACA;EACAqT,QAAAA,GAAG,GAAGogB,KAAN;EACH,OAJD,MAIO;EACHpgB,QAAAA,GAAG,GAAG,KAAKpT,GAAL,CAAS,6BAAT,CAAN;EACH;EACJ;;EACD,QAAMyzB,IAAI,GAAG,iBAAb;EACA,QAAIC,WAAW,GAAG3zB,UAAU,CAACC,GAAX,CAAeyzB,IAAf,EAAqB;EAAElzB,MAAAA,UAAU,EAAE;EAAd,KAArB,CAAlB;EACAgzB,IAAAA,IAAI,GAAGA,IAAI,CAAChvB,OAAL,EAAP;;EACA,QAAI,CAACgvB,IAAI,CAAC/vB,KAAL,CAAW,SAAX,CAAL,EAA4B;EACxB+vB,MAAAA,IAAI,IAAI,MAAR;EACH;;EACD,QAAMI,MAAM,GAAGJ,IAAI,CAAC/vB,KAAL,CAAW,QAAX,CAAf;;EACA,aAASowB,GAAT,CAAaxf,IAAb,EAAmB;each,UAAIuf,MAAJ,EAAY;EACRvf,QAAAA,IAAI,GAAGyf,eAAe,CAACzf,IAAD,CAAtB;EACH,OAFD,MAEO;EACH,YAAIpV,IAAI,CAACoV,IAAD,CAAJ,KAAe,QAAnB,EAA6B;EACzBA,UAAAA,IAAI,GAAGA,IAAI,CAACjX,QAAL,EAAP;EACH;;EACDiX,QAAAA,IAAI,GAAGA,IAAI,CAAC1Q,OAAL,CAAa,OAAb,EAAsB,EAAtB,CAAP;;EACA,YAAI0Q,IAAI,CAAC5Q,KAAL,CAAW,KAAX,CAAJ,EAAuB;EACnB4Q,UAAAA,IAAI,GAAG0f,WAAW,CAAC1f,IAAD,CAAlB;EACH;EACJ;;EACD,aAAOoS,IAAI,CAACpS,IAAD,EAAOhB,GAAP,CAAX;EACH;;EACD,aAASxV,KAAT,CAAe21B,IAAf,EAAqB;EACjB,aAAO71B,IAAI,CAACE,KAAL,CAAW21B,IAAX,EACFlzB,IADE,CACG,UAAA0zB,GAAG;EAAA,eAAIJ,MAAM,GAAGI,GAAG,CAACC,WAAJ,EAAH,GAAuBD,GAAG,CAACE,IAAJ,EAAjC;EAAA,OADN,EAEF5zB,IAFE,CAEG,UAAC+T,IAAD,EAAU;EACZ,YAAIuf,MAAJ,EAAY;EACRvf,UAAAA,IAAI,GAAG,IAAIgc,UAAJ,CAAehc,IAAf,CAAP;EACH;;EACD,eAAOA,IAAP;EACH,OAPE,CAAP;EAQH;;EACD,QAAI8f,OAAO,EAAX,EAAe;EACX,aAAO,IAAI1mB,OAAJ,CAAY,UAAC6hB,OAAD,EAAUC,MAAV,EAAqB;EACpC,YAAIvxB,IAAI,GAAGC,WAAW,CAAC,MAAD,CAAtB;;EACA,YAAI01B,WAAJ,EAAiB;EACbA,UAAAA,WAAW,GAAGA,WAAW,CAACnvB,OAAZ,EAAd;EACAgvB,UAAAA,IAAI,GAAGx1B,IAAI,CAACsE,IAAL,CAAUqxB,WAAV,EAAuBH,IAAvB,CAAP;EACH;;EACDxzB,QAAAA,UAAU,CAACsP,GAAX,CAAeokB,IAAf,EAAqB11B,IAAI,CAACo2B,OAAL,CAAaZ,IAAb,CAArB;EACAv1B,QAAAA,WAAW,CAAC,IAAD,CAAX,CAAkBo2B,QAAlB,CAA2Bb,IAA3B,EAAiC,UAAS1mB,GAAT,EAAcpE,IAAd,EAAoB;EACjD,cAAIoE,GAAJ,EAAS;EACLyiB,YAAAA,MAAM,CAACziB,GAAD,CAAN;EACA9M,YAAAA,UAAU,CAACsP,GAAX,CAAeokB,IAAf,EAAqBC,WAArB;EACH,WAHD,MAGO;EACH,gBAAI;EACAE,cAAAA,GAAG,CAACnrB,IAAD,CAAH,CAAUpI,IAAV,CAAe,YAAM;EACjBgvB,gBAAAA,OAAO;EACPtvB,gBAAAA,UAAU,CAACsP,GAAX,CAAeokB,IAAf,EAAqBC,WAArB;EACH,eAHD,WAGSpE,MAHT;EAIH,aALD,CAKE,OAAOvwB,CAAP,EAAU;EACRuwB,cAAAA,MAAM,CAACvwB,CAAD,CAAN;EACH;EACJ;EACJ,SAdD;EAeH,OAtBM,CAAP;EAuBH;;EACD,QAAI20B,WAAJ,EAAiB;EACbA,MAAAA,WAAW,GAAGA,WAAW,CAACnvB,OAAZ,EAAd;EACAgvB,MAAAA,IAAI,GAAGG,WAAW,GAAG,GAAd,GAAoBH,IAAI,CAAC7vB,OAAL,CAAa,SAAb,EAAwB,EAAxB,CAA3B;EACH;;EACD,WAAO9F,KAAK,CAAC21B,IAAD,CAAL,CAAYlzB,IAAZ,CAAiB,UAAA+T,IAAI,EAAI;EAC5BrU,MAAAA,UAAU,CAACsP,GAAX,CAAeokB,IAAf,EAAqBF,IAAI,CAAC7vB,OAAL,CAAa,UAAb,EAAyB,EAAzB,CAArB;EACA,aAAOkwB,GAAG,CAACxf,IAAD,CAAV;EACH,KAHM,EAGJ/T,IAHI,CAGC,YAAM,EAHP,aAGmB,YAAM;EAC5BN,MAAAA,UAAU,CAACsP,GAAX,CAAeokB,IAAf,EAAqBC,WAArB;EACH,KALM,CAAP;EAMH,GAjFQ,yQA9ToB;EAqZ7B;EACA,QAAMn1B,GAAG,CAAC,IAAI4W,KAAJ,CAAU,IAAV;EAAA,kEAAgB,mBAAef,IAAf;EAAA;;EAAA;EAAA;EAAA;EAAA;EAAuBoM,cAAAA,aAAvB,UAAuBA,aAAvB,EAAsClM,KAAtC,UAAsCA,KAAtC;EAClB3W,cAAAA,IADkB,GACX,IADW;;EAEtB,kBAAI6iB,aAAJ,EAAmB;EACfA,gBAAAA,aAAa,GAAG7iB,IAAhB;EACH;;EACG4jB,cAAAA,KALkB,GAKV5jB,IAAI,CAAC2oB,OAAL,CAAa,IAAb,CALU;EAMlB+N,cAAAA,IANkB,GAMXjgB,IAAI,CAACU,GANM;EAOlB5U,cAAAA,IAPkB,GAOXkU,IAAI,CAACH,GAAL,CAASa,GAPE;EAQlBwf,cAAAA,IARkB,GAQXlgB,IAAI,CAACH,GAAL,CAASA,GARE;;EAStB,kBAAIqgB,IAAI,KAAKxgB,IAAb,EAAkB;EACdwgB,gBAAAA,IAAI,GAAG,IAAIpgB,IAAJ,CAASrM,OAAO,CAAC,OAAD,CAAhB,EAA2BysB,IAA3B,CAAP;EACH;;EACGC,cAAAA,SAZkB,GAYN;EAAEnhB,gBAAAA,GAAG,EAAEzV,IAAP;EAAa6iB,gBAAAA,aAAa,EAAbA,aAAb;EAA4BlM,gBAAAA,KAAK,EAALA;EAA5B,eAZM;EAalB2G,cAAAA,IAbkB,GAaXoZ,IAbW;;EAAA;EAAA,oBAcfpZ,IAAI,KAAKnH,IAdM;EAAA;EAAA;EAAA;;EAeZnL,cAAAA,IAfY,GAeLsS,IAAI,CAACnG,GAfA;EAAA,8BAgBlByM,KAhBkB;EAAA,8BAgBR5Y,IAAI,CAACmM,GAhBG;EAAA;EAAA,qBAgBQT,SAAQ,CAAC1L,IAAI,CAACsL,GAAL,CAASa,GAAV,EAAeyf,SAAf,CAhBhB;;EAAA;EAAA;;EAAA,4BAgBZllB,GAhBY;;EAiBlB4L,cAAAA,IAAI,GAAGA,IAAI,CAAChH,GAAZ;EAjBkB;EAAA;;EAAA;EAmBtBsgB,cAAAA,SAAS,GAAG;EAAEnhB,gBAAAA,GAAG,EAAEmO,KAAP;EAAcf,gBAAAA,aAAa,EAAbA,aAAd;EAA6BlM,gBAAAA,KAAK,EAALA;EAA7B,eAAZ;EAnBsB;EAAA;;EAAA;EAAA;EAAA;EAAA;EAAA,8BAqBdggB,IAAI,KAAKxgB,IArBK;EAAA;EAAA;EAAA;;EAAA;EAAA,+BAsBRgE,IAAI,CAACzD,QAAL,CAAcigB,IAAd,EAAoBC,SAApB,CAtBQ;;EAAA;EAwBdtZ,wBAAAA,IAxBc,GAwBPoZ,IAxBO;EAyBZ9Z,wBAAAA,IAzBY,GAyBL,EAzBK;;EAAA;EAAA,8BA0BXU,IAAI,KAAKnH,IA1BE;EAAA;EAAA;EAAA;;EA2BRnL,wBAAAA,KA3BQ,GA2BDsS,IAAI,CAACnG,GA3BJ;;EAAA,8BA4BVnM,KAAI,CAACsL,GAAL,CAASA,GAAT,KAAiBH,IA5BP;EAAA;EAAA;EAAA;;EAAA;EAAA,+BA6BUO,SAAQ,CAAC1L,KAAI,CAACsL,GAAL,CAASA,GAAT,CAAaa,GAAd,EAAmByf,SAAnB,CA7BlB;;EAAA;EA6BJz0B,wBAAAA,KA7BI;EA8BVya,wBAAAA,IAAI,CAAC5R,KAAI,CAACmM,GAAL,CAASvQ,OAAT,EAAD,CAAJ,GAA2BzE,KAA3B;;EA9BU;EAgCdmb,wBAAAA,IAAI,GAAGA,IAAI,CAAChH,GAAZ;EAhCc;EAAA;;EAAA;EAkCZ2F,wBAAAA,OAlCY,GAkCFzX,MAAM,CAAC+a,qBAAP,CAA6B3C,IAA7B,CAlCE;EAmClBpY,wBAAAA,MAAM,CAACC,IAAP,CAAYmY,IAAZ,EAAkB7I,MAAlB,CAAyBkI,OAAzB,EAAkCrY,OAAlC,CAA0C,UAAAoT,GAAG,EAAI;EAC7C4M,0BAAAA,KAAK,CAAClS,GAAN,CAAUsF,GAAV,EAAe4F,IAAI,CAAC5F,GAAD,CAAnB;EACH,yBAFD;;EAnCkB;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;;EAAA;EAAA;EAAA,qBAoBRN,SAAQ,CAACnU,IAAI,CAAC4U,GAAN,EAAWyf,SAAX,CApBA;;EAAA;EAAA;;EAAA,sCAoB2B,KApB3B;EAAA;EAAA;EAAA;;EAAA;;EAAA;EAAA;EAAA;;EAAA;EAAA,oBAuClBr0B,IAAI,CAAC+T,GAAL,KAAaH,IAvCK;EAAA;EAAA;EAAA;;EAAA;EAAA,qBAwCLO,SAAQ,CAACnU,IAAI,CAAC+T,GAAL,CAASa,GAAV,EAAeyf,SAAf,CAxCH;;EAAA;EAAA;;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA,KAAhB;;EAAA;EAAA;EAAA;EAAA,MAAD,6dAtZoB;EAuc7B;EACA,QAAMh2B,GAAG,CAAC,IAAI4W,KAAJ,CAAU,IAAV,EAAgB,UAASf,IAAT,UAAyC;EAAA,QAAxBoM,aAAwB,UAAxBA,aAAwB;EAAA,QAATlM,KAAS,UAATA,KAAS;;EAC/D,QAAIkM,aAAJ,EAAmB;EACfA,MAAAA,aAAa,GAAG,IAAhB;EACH;;EACD,QAAIpN,GAAG,GAAG,IAAV;;EACA,QAAIic,OAAO,GAAG,SAAVA,OAAU,CAACmF,IAAD,EAAU;EACpB,UAAIA,IAAI,KAAK,KAAb,EAAoB;EAChB,eAAOngB,SAAQ,CAACD,IAAI,CAACH,GAAL,CAASA,GAAT,CAAaa,GAAd,EAAmB;EAC9B1B,UAAAA,GAAG,EAAHA,GAD8B;EAE9BoN,UAAAA,aAAa,EAAbA,aAF8B;EAG9BlM,UAAAA,KAAK,EAALA;EAH8B,SAAnB,CAAf;EAKH,OAND,MAMO;EACH,eAAOD,SAAQ,CAACD,IAAI,CAACH,GAAL,CAASa,GAAV,EAAe;EAC1B1B,UAAAA,GAAG,EAAHA,GAD0B;EAE1BoN,UAAAA,aAAa,EAAbA,aAF0B;EAG1BlM,UAAAA,KAAK,EAALA;EAH0B,SAAf,CAAf;EAKH;EACJ,KAdD;;EAeA,QAAIF,IAAI,KAAKN,IAAb,EAAkB;EACd,YAAM,IAAI7O,KAAJ,CAAU,8BAAV,CAAN;EACH;;EACD,QAAIuvB,IAAI,GAAGngB,SAAQ,CAACD,IAAI,CAACU,GAAN,EAAW;EAAE1B,MAAAA,GAAG,EAAHA,GAAF;EAAOoN,MAAAA,aAAa,EAAbA,aAAP;EAAsBlM,MAAAA,KAAK,EAALA;EAAtB,KAAX,CAAnB;;EACA,WAAOwB,SAAS,CAAC0e,IAAD,EAAOnF,OAAP,CAAhB;EACH,GAzBS,CAAD,gOAxcoB;EAse7B;EACA,aAAW,IAAIla,KAAJ,CAAU,SAAV,EAAqB,UAASf,IAAT,EAA6B;EAAA,QAAd3Q,OAAc,uEAAJ,EAAI;EACzD,QAAQ+c,aAAR,GAAiC/c,OAAjC,CAAQ+c,aAAR;EAAA,QAAuBlM,KAAvB,GAAiC7Q,OAAjC,CAAuB6Q,KAAvB;EACAgH,IAAAA,SAAS,CAAC,SAAD,EAAYlH,IAAZ,EAAkB,MAAlB,CAAT;;EACA,QAAI2B,GAAG,GAAG1B,SAAQ,CAACD,IAAI,CAACU,GAAN,EAAW;EAAE1B,MAAAA,GAAG,EAAE,IAAP;EAAaoN,MAAAA,aAAa,EAAbA,aAAb;EAA4BlM,MAAAA,KAAK,EAALA;EAA5B,KAAX,CAAlB;;EACA,WAAOwB,SAAS,CAACC,GAAD,EAAM,UAASjW,KAAT,EAAgB;EAClCwb,MAAAA,SAAS,CAAC,SAAD,EAAYxb,KAAZ,EAAmB,aAAnB,CAAT;EACA,aAAOuU,SAAQ,CAACH,IAAI,CAACrM,OAAO,CAAC,OAAD,CAAR,EAAmBuM,IAAI,CAACH,GAAxB,CAAL,EAAmC;EAC9Cb,QAAAA,GAAG,EAAEtT,KADyC;EAClC0gB,QAAAA,aAAa,EAAbA,aADkC;EACnBlM,QAAAA,KAAK,EAALA;EADmB,OAAnC,CAAf;EAGH,KALe,CAAhB;EAMH,GAVU,8HAvekB;EAqf7B;EACA,YAAU/V,GAAG,CACT6nB,SAAS,CAACjb,MAAM,OAAN,CAAW,QAAX,CAAD,CADA,mUAtfgB;EA8f7B;EACA,aAAW5M,GAAG,CACV6nB,SAAS,CAACjb,MAAM,OAAN,CAAW,QAAX,CAAD,CADC,uRA/fe;EAsgB7B;EACA,UAAQ5M,GAAG,CACP6nB,SAAS,CAACjb,MAAM,OAAN,CAAW,MAAX,CAAD,CADF,0OAvgBkB;EA8gB7B;EACA,SAAO5M,GAAG,CACN6nB,SAAS,CAACjb,MAAM,OAAN,CAAW,KAAX,CAAD,CADH,iZA/gBmB;EAwhB7B;EACA,YAAU5M,GAAG,CAACmoB,OAAO,CAAC,QAAD,EAAW,UAASrQ,MAAT,EAAiB;EAC7C,WAAOA,MAAM,CAACzN,GAAP,EAAP;EACH,GAFoB,CAAR,gOAzhBgB;EAgiB7B;EACA,WAASrK,GAAG,CAAC,IAAI4W,KAAJ,CAAU,OAAV,EAAmB,UAASf,IAAT,EAAe3Q,OAAf,EAAwB;EACpD,QAAIoG,IAAI,GAAG1H,MAAM,CAACoW,MAAP,CAAc,EAAd,EAAmB9U,OAAnB,CAAX;EACA,QAAIwL,GAAG,GAAGlP,UAAU,CAACC,GAAX,CAAe,aAAf,EAA8BoU,IAA9B,CAAV;;EACA,QAAIvK,IAAI,CAAC2W,aAAT,EAAwB;EACpB3W,MAAAA,IAAI,CAAC2W,aAAL,GAAqB,IAArB;EACH;;EACD3W,IAAAA,IAAI,CAACuJ,GAAL,GAAW,IAAX;EACA,QAAI9R,MAAJ;EACA,WAAQ,SAAS4P,IAAT,GAAgB;EACpB,UAAIjC,GAAG,CAACnN,MAAR,EAAgB;EACZ,YAAIsS,IAAI,GAAGnF,GAAG,CAACoJ,KAAJ,EAAX;;EACA,YAAItC,GAAG,GAAG1B,SAAQ,CAACD,IAAD,EAAOvK,IAAP,CAAlB;;EACA,eAAOiM,SAAS,CAACC,GAAD,EAAM,UAAAjW,KAAK,EAAI;EAC3BwB,UAAAA,MAAM,GAAGxB,KAAT;EACA,iBAAOoR,IAAI,EAAX;EACH,SAHe,CAAhB;EAIH,OAPD,MAOO;EACH,eAAO5P,MAAP;EACH;EACJ,KAXM,EAAP;EAYH,GApBY,CAAD,uNAjiBiB;EA0jB7B;EACA,YAAU,IAAI6T,KAAJ,CAAU,QAAV,EAAoB,UAASf,IAAT,UAAyC;EAAA,QAAxBoM,aAAwB,UAAxBA,aAAwB;EAAA,QAATlM,KAAS,UAATA,KAAS;EACnE,QAAIzK,IAAI,GAAG;EAAEuJ,MAAAA,GAAG,EAAE,IAAP;EAAakB,MAAAA,KAAK,EAALA;EAAb,KAAX;;EACA,QAAIkM,aAAJ,EAAmB;EACf3W,MAAAA,IAAI,CAAC2W,aAAL,GAAqB,IAArB;EACH;;EACDnM,IAAAA,SAAQ,CAAC,IAAIH,IAAJ,CAAS,IAAIrM,OAAJ,CAAY,OAAZ,CAAT,EAA+BuM,IAA/B,CAAD,EAAuCvK,IAAvC,CAAR;EACH,GANS,+TA3jBmB;EAukB7B;EACA,aAAWtL,GAAG,CAAC4W,KAAK,CAACgL,QAAN,CAAe,SAAf,EAA0B,UAAS/L,IAAT,EAA+B;EAAA,QAAhBmgB,SAAgB,uEAAJ,EAAI;;EACpE,QAAM1qB,IAAI;EACNuJ,MAAAA,GAAG,EAAE;EADC,OAEHmhB,SAFG,CAAV;;EAIA,WAAOze,SAAS,CAACzB,SAAQ,CAACD,IAAI,CAACU,GAAN,EAAWjL,IAAX,CAAT,EAA2B,UAACvI,MAAD,EAAY;EACnD,UAAIsL,WAAW,CAACtL,MAAD,CAAf,EAAyB;EACrB,eAAOA,MAAM,CAAC,IAAIgjB,YAAJ,CAAiB,IAAjB,CAAD,CAAb;EACH;EACJ,KAJe,CAAhB;EAKH,GAVc,CAAD,yCAxkBe;EAqlB7B;EACA7C,EAAAA,MAAM,EAAEljB,GAAG,CAAC4W,KAAK,CAACgL,QAAN,CAAe,QAAf,EAAyB,UAAS/L,IAAT,EAAemgB,SAAf,EAA0B;EAC3D,QAAInhB,GAAG,GAAG,IAAV;;EACA,QAAIgB,IAAI,CAACU,GAAL,YAAoBZ,IAApB,IACAE,IAAI,CAACU,GAAL,CAASA,GAAT,YAAwBjN,OAD5B,EACqC;EACjC,UAAI4sB,QAAQ,GAAG,IAAIvgB,IAAJ,CACX,IAAIrM,OAAJ,CAAY,QAAZ,CADW,EAEX,IAAIqM,IAAJ,CACIE,IAAI,CAACU,GAAL,CAASA,GADb,EAEI,IAAIZ,IAAJ,CACI,IAAIA,IAAJ,CACI,IAAIrM,OAAJ,CAAY,QAAZ,CADJ,EAEI,IAAIqM,IAAJ,CACIE,IAAI,CAACU,GAAL,CAASb,GADb,EAEIG,IAAI,CAACH,GAFT,CAFJ,CADJ,CAFJ,CAFW,CAAf;EAeA,aAAOwgB,QAAP;EACH,KAlBD,MAkBO,IAAIF,SAAS,CAAChU,YAAd,EAA4B;EAC/B;EACA;EACH;;EACD,QAAIgU,SAAS,CAAC/T,aAAd,EAA6B;EACzB+T,MAAAA,SAAS,CAAC/T,aAAV,GAA0B,IAA1B;EACH;;EACD+T,IAAAA,SAAS,CAACnhB,GAAV,GAAgBA,GAAhB;EACA,QAAItT,KAAK,GAAGsU,IAAI,CAACH,GAAL,CAASa,GAArB;EACA,QAAIiP,QAAJ;;EACA,QAAIjkB,KAAK,YAAYoU,IAArB,EAA2B;EACvBpU,MAAAA,KAAK,GAAGuU,SAAQ,CAACvU,KAAD,EAAQy0B,SAAR,CAAhB;EACAxQ,MAAAA,QAAQ,GAAG,IAAX;EACH,KAHD,MAGO,IAAIjkB,KAAK,YAAY+H,OAArB,EAA8B;EACjC/H,MAAAA,KAAK,GAAGsT,GAAG,CAACpT,GAAJ,CAAQF,KAAR,CAAR;EACH;;EACDwb,IAAAA,SAAS,CAAC,QAAD,EAAWlH,IAAI,CAACU,GAAhB,EAAqB,QAArB,CAAT;EACA,WAAOgB,SAAS,CAAChW,KAAD,EAAQ,UAAAA,KAAK,EAAI;EAC7B,UAAIsT,GAAG,CAAClI,QAAJ,KAAiBoW,MAAM,CAACM,aAA5B,EAA2C;EACvCxO,QAAAA,GAAG,GAAGA,GAAG,CAACye,UAAV;EACH;;EACD,UAAI9N,QAAQ,KACNnX,WAAW,CAAC9M,KAAD,CAAX,IAAsB+W,SAAS,CAAC/W,KAAD,CAAhC,IACCA,KAAK,YAAYwhB,MAFX,CAAZ,EAEiC;EAC7BxhB,QAAAA,KAAK,CAACoL,QAAN,GAAiBkJ,IAAI,CAACU,GAAL,CAASvQ,OAAT,EAAjB;;EACA,YAAIzE,KAAK,CAACoL,QAAN,YAA0B7D,OAA9B,EAAuC;EACnCvH,UAAAA,KAAK,CAACoL,QAAN,GAAiBpL,KAAK,CAACoL,QAAN,CAAe3G,OAAf,EAAjB;EACH;EACJ;;EACD,UAAIoS,OAAJ;;EACA,UAAIvC,IAAI,CAACH,GAAL,CAASA,GAAT,YAAwBC,IAAxB,IACA7M,OAAO,CAACsE,QAAR,CAAiByI,IAAI,CAACH,GAAL,CAASA,GAAT,CAAaa,GAA9B,CADJ,EACwC;EACpC6B,QAAAA,OAAO,GAAGvC,IAAI,CAACH,GAAL,CAASA,GAAT,CAAaa,GAAb,CAAiBvQ,OAAjB,EAAV;EACH;;EACD6O,MAAAA,GAAG,CAAC/D,GAAJ,CAAQ+E,IAAI,CAACU,GAAb,EAAkBhV,KAAlB,EAAyB6W,OAAzB,EAAkC,IAAlC;EACH,KAlBe,CAAhB;EAmBH,GAxDW,CAAD,waAtlBkB;EAspB7B;EACA,cAAYpY,GAAG,CAAC,UAAD,EAAa,UAASqN,GAAT,EAAc+I,GAAd,EAAmB7U,KAAnB,EAA0B;EAClD,QAAI40B,QAAQ,WAAU9oB,GAAV,CAAZ;;EACA,QAAIsY,OAAO,CAACtY,GAAD,CAAP,IAAiB8oB,QAAQ,KAAK,QAAb,IAAyBA,QAAQ,KAAK,UAA3D,EAAwE;EACpE,UAAI90B,GAAG,GAAGuuB,gBAAgB,CAAC,UAAD,EAAanvB,IAAI,CAAC4M,GAAD,CAAjB,EAAwB,CAAC,QAAD,EAAW,UAAX,CAAxB,CAA1B;EACA,YAAM,IAAI3G,KAAJ,CAAUrF,GAAV,CAAN;EACH;;EACD0b,IAAAA,SAAS,CAAC,UAAD,EAAa3G,GAAb,EAAkB,CAAC,QAAD,EAAW,QAAX,EAAqB,QAArB,CAAlB,CAAT;EACA/I,IAAAA,GAAG,GAAG8Q,MAAM,CAAC9Q,GAAD,CAAZ;EACA+I,IAAAA,GAAG,GAAGA,GAAG,CAACpQ,OAAJ,EAAN;;EACA,QAAI5E,SAAS,CAACmC,MAAV,KAAqB,CAAzB,EAA4B;EACxB,aAAO8J,GAAG,CAAC+I,GAAD,CAAV;EACH,KAFD,MAEO,IAAI2J,YAAY,CAAC1S,GAAD,CAAZ,IAAqBgB,WAAW,CAAC9M,KAAD,CAApC,EAA6C;EAChD8L,MAAAA,GAAG,CAAC+I,GAAD,CAAH,GAAW+H,MAAM,CAAC5c,KAAD,CAAjB;EACA8L,MAAAA,GAAG,CAAC+I,GAAD,CAAH,CAAS+Q,aAAT,IAA0B,IAA1B;EACH,KAHM,MAGA,IAAI9Y,WAAW,CAAC9M,KAAD,CAAX,IAAsBmc,SAAS,CAACnc,KAAD,CAA/B,IAA0CA,KAAK,KAAKgU,IAAxD,EAA6D;EAChElI,MAAAA,GAAG,CAAC+I,GAAD,CAAH,GAAW7U,KAAX;EACH,KAFM,MAEA;EACH8L,MAAAA,GAAG,CAAC+I,GAAD,CAAH,GAAW7U,KAAK,IAAI,CAACwe,YAAY,CAACxe,KAAD,CAAtB,GAAgCA,KAAK,CAACyE,OAAN,EAAhC,GAAkDzE,KAA7D;EACH;EACJ,GAnBc,uFAvpBc;EA6qB7B;EACA,sBAAoBvB,GAAG,CAAC,kBAAD,EAAqB,YAAW;EACnD,WAAOwB,UAAU,CAACumB,OAAX,CAAmB,MAAnB,CAAP;EACH,GAFsB,yFA9qBM;EAmrB7B;EACA,YAAU/nB,GAAG,CAAC,QAAD,EAAW,SAAS8X,MAAT,GAAyB;EAAA,wCAANxM,IAAM;EAANA,MAAAA,IAAM;EAAA;;EAC7C,WAAOoU,MAAM,CAACpU,IAAD,CAAb;EACH,GAFY,0KAprBgB;EA0rB7B;EACA,sBAAoBtL,GAAG,CAAC,kBAAD,EAAqB,UAASo2B,QAAT,EAAmBC,QAAnB,EAA6B;EACrEtZ,IAAAA,SAAS,CAAC,kBAAD,EAAqBqZ,QAArB,EAA+B,UAA/B,EAA2C,CAA3C,CAAT;EACArZ,IAAAA,SAAS,CAAC,kBAAD,EAAqBsZ,QAArB,EAA+B,UAA/B,EAA2C,CAA3C,CAAT;EACA,QAAIC,KAAK,GAAGF,QAAQ,EAApB;;EACA,QAAIE,KAAK,YAAY5W,MAArB,EAA6B;EACzB,aAAO2W,QAAQ,MAAR,4BAAYC,KAAK,CAACtwB,OAAN,EAAZ,EAAP;EACH;;EACD,WAAOqwB,QAAQ,CAACC,KAAD,CAAf;EACH,GARsB,4OA3rBM;EAwsB7B;EACA,yBAAuBt2B,GAAG,CAAC,qBAAD,EAAwB,YAAW;EACzD,QAAI,KAAK2M,QAAL,KAAkB,WAAtB,EAAmC;EAC/B,aAAO,KAAK2mB,UAAZ;EACH;;EACD,WAAO,IAAP;EACH,GALyB,+EAzsBG;EAitB7B;EACA,kBAAgBtzB,GAAG,CAAC,cAAD,EAAiB,YAAW;EAC3C,WAAO+B,QAAP;EACH,GAFkB,iJAltBU;EAwtB7B;EACA,UAAQ/B,GAAG,CAAC,MAAD,EAAS,UAAS6V,IAAT,EAAehB,GAAf,EAAoB;EAAA;;EACpCA,IAAAA,GAAG,GAAGA,GAAG,IAAI,KAAKpT,GAAL,CAAS,qBAAT,EAAgCd,IAAhC,CAAqC,IAArC,CAAb;EACA,WAAOmV,SAAQ,CAACD,IAAD,EAAO;EAClBhB,MAAAA,GAAG,EAAHA,GADkB;EAElB;EACAkB,MAAAA,KAAK,EAAE,eAAAvV,CAAC,EAAI;EACR,YAAIuV,KAAK,GAAGvU,UAAU,CAACC,GAAX,CAAe,eAAf,CAAZ;EACAsU,QAAAA,KAAK,CAACpV,IAAN,CAAW,OAAX,EAAiBH,CAAC,CAAC2e,OAAnB;;EACA,YAAI3e,CAAC,CAACqV,IAAN,EAAY;EACR,cAAIsd,KAAK,GAAG3yB,CAAC,CAACqV,IAAF,CAAO1R,GAAP,CAAW,UAACsN,IAAD,EAAOxF,CAAP,EAAa;EAChC,8BAAWA,CAAC,GAAG,CAAf,gBAAsBwF,IAAtB;EACH,WAFW,EAET3N,IAFS,CAEJ,IAFI,CAAZ;EAGAiS,UAAAA,KAAK,CAACpV,IAAN,CAAW,OAAX,EAAiBwyB,KAAjB;EACH;EACJ;EAZiB,KAAP,CAAf;EAcH,GAhBU,uGAztBkB;EA6uB7B;EACAlQ,EAAAA,MAAM,EAAE,IAAIrM,KAAJ,CAAU,QAAV,EAAoB,UAASf,IAAT,EAA8C;EAAA,qFAAJ,EAAI;EAAA,QAA7BoM,aAA6B,UAA7BA,aAA6B;EAAA,QAAdlM,KAAc,UAAdA,KAAc;;EACtE,QAAI3W,IAAI,GAAG,IAAX;;EACA,QAAIgZ,OAAJ;;EACA,QAAIvC,IAAI,CAACH,GAAL,YAAoBC,IAApB,IACA7M,OAAO,CAACsE,QAAR,CAAiByI,IAAI,CAACH,GAAL,CAASa,GAA1B,CADA,IAEAV,IAAI,CAACH,GAAL,CAASA,GAAT,KAAiBH,IAFrB,EAE0B;EACtB6C,MAAAA,OAAO,GAAGvC,IAAI,CAACH,GAAL,CAASa,GAAT,CAAavQ,OAAb,EAAV;EACH;;EACD,aAASid,MAAT,GAAyB;EACrB,UAAIpO,GAAJ,CADqB;EAGrB;;EACA,UAAIoN,aAAJ,EAAmB;each,YAAI,EAAE,gBAAgBpC,WAAlB,CAAJ,EAAoC;EAChChL,UAAAA,GAAG,GAAGzV,IAAN;EACH,SAFD,MAEO;EACHyV,UAAAA,GAAG,GAAG,IAAN;EACH;EACJ,OAND,MAMO;EACHA,QAAAA,GAAG,GAAGzV,IAAN;EACH;;EACDyV,MAAAA,GAAG,GAAGA,GAAG,CAACkT,OAAJ,CAAY,QAAZ,CAAN;EACA,UAAIvb,IAAI,GAAGqJ,IAAI,CAACU,GAAhB;EACA,UAAItK,CAAC,GAAG,CAAR;EACA,UAAI1K,KAAJ;;EACA,UAAI,OAAO,IAAP,KAAgB,WAAhB,IAA+B,EAAE,gBAAgBse,WAAlB,CAAnC,EAAmE;EAC/D,YAAI,QAAQ,CAAC,KAAK0W,YAAlB,EAAgC;EAC5B3yB,UAAAA,MAAM,CAAC2K,cAAP,CAAsB,IAAtB,EAA4B,cAA5B,EAA4C;EACxCC,YAAAA,UAAU,EAAE,KAD4B;EAExC/M,YAAAA,GAAG,EAAE;EAAA,qBAAM,IAAN;EAAA,aAFmC;EAGxCqP,YAAAA,GAAG,EAAE,eAAM,EAH6B;EAIxCD,YAAAA,YAAY,EAAE;EAJ0B,WAA5C;EAMH;;EACDgE,QAAAA,GAAG,CAAC/D,GAAJ,CAAQ,MAAR,EAAgB,IAAhB;EACH,OA3BoB;;;EAAA,0CAANxF,IAAM;EAANA,QAAAA,IAAM;EAAA;;EA6BrB,UAAI,gBAAgBuU,WAApB,EAAiC;EAC7B,YAAI3a,OAAO,GAAG;EAAElD,UAAAA,UAAU,EAAE;EAAd,SAAd;EACA6S,QAAAA,GAAG,CAAC/D,GAAJ,CAAQ,WAAR,EAAqB,KAAKrP,GAAL,CAAS,WAAT,EAAsByD,OAAtB,CAArB;EACA2P,QAAAA,GAAG,CAAC/D,GAAJ,CAAQ,cAAR,EAAwB,KAAKrP,GAAL,CAAS,cAAT,EAAyByD,OAAzB,CAAxB;EACH,OAJD,MAIO;EACH;EACA,YAAIsxB,KAAK,GAAGlrB,IAAI,CAACY,KAAL,EAAZ;;EACAsqB,QAAAA,KAAK,CAAC7C,MAAN,GAAe1Q,MAAf;EACAuT,QAAAA,KAAK,CAAC3hB,GAAN,GAAYA,GAAZ;EACAA,QAAAA,GAAG,CAAC/D,GAAJ,CAAQ,WAAR,EAAqB0lB,KAArB;EACH;;EACD,UAAIhqB,IAAI,YAAYlD,OAAhB,IAA2BkD,IAAI,KAAK+I,IAAxC,EAA6C;EACzC,eAAO,IAAP,EAAa;EACT,cAAI/I,IAAI,CAAC+J,GAAL,KAAahB,IAAjB,EAAsB;EAClB,gBAAI/I,IAAI,YAAYlD,OAApB,EAA6B;EACzB;EACA/H,cAAAA,KAAK,GAAGyL,KAAK,CAAC2I,IAAI,CAACkB,SAAL,CAAevL,IAAI,CAACY,KAAL,CAAWD,CAAX,CAAf,EAA8B,KAA9B,CAAD,CAAb;EACA4I,cAAAA,GAAG,CAACE,OAAJ,CAAYvI,IAAI,CAACG,QAAjB,IAA6BpL,KAA7B;EACA;EACH,aALD,MAKO;EACHA,cAAAA,KAAK,GAAG+J,IAAI,CAACW,CAAD,CAAZ;EACA4I,cAAAA,GAAG,CAACE,OAAJ,CAAYvI,IAAI,CAAC+J,GAAL,CAAS5J,QAArB,IAAiCpL,KAAjC;EACH;EACJ;;EACD,cAAIiL,IAAI,CAACkJ,GAAL,KAAaH,IAAjB,EAAsB;EAClB;EACH;;EACDtJ,UAAAA,CAAC;EACDO,UAAAA,IAAI,GAAGA,IAAI,CAACkJ,GAAZ;EACH;EACJ;;EACD,UAAIuM,aAAJ,EAAmB;EACfA,QAAAA,aAAa,GAAGpN,GAAhB;EACH;;EACD,UAAI5J,IAAI,GAAGmN,OAAO,GAAGvC,IAAI,CAACH,GAAL,CAASA,GAAZ,GAAkBG,IAAI,CAACH,GAAzC;EACA,UAAIrS,MAAM,GAAG,IAAIsS,IAAJ,CAAS,IAAIrM,OAAJ,CAAY,OAAZ,CAAT,EAA+B2B,IAA/B,CAAb;EACA,aAAO6K,SAAQ,CAACzS,MAAD,EAAS;EAAEwR,QAAAA,GAAG,EAAHA,GAAF;EAAOoN,QAAAA,aAAa,EAAbA,aAAP;EAAsBlM,QAAAA,KAAK,EAALA;EAAtB,OAAT,CAAf;EACH;;EACD,QAAIxS,MAAM,GAAGsS,IAAI,CAACU,GAAL,YAAoBZ,IAApB,GAA2BE,IAAI,CAACU,GAAL,CAAShT,MAAT,EAA3B,GAA+C,IAA5D;EACA0f,IAAAA,MAAM,CAACvJ,QAAP,GAAkB,IAAI/D,IAAJ,CAAS,IAAIrM,OAAJ,CAAY,QAAZ,CAAT,EAAgCuM,IAAhC,CAAlB;EACAoN,IAAAA,MAAM,CAACmE,UAAD,CAAN,GAAqB,IAArB;;EACA,QAAI,EAAEvR,IAAI,CAACU,GAAL,YAAoBZ,IAAtB,CAAJ,EAAiC;EAC7B,aAAO3V,GAAG,CAACijB,MAAD,EAAS7K,OAAT,EAAkB,IAAlB,CAAV,CAD6B;EAEhC,KAhFqE;;;EAkFtE,WAAOpY,GAAG,CAACsnB,aAAa,CAACrE,MAAD,EAAS1f,MAAT,CAAd,EAAgC6U,OAAhC,EAAyC,IAAzC,CAAV;EACH,GAnFO,kTA9uBqB;EAw0B7B,iBAAe,IAAIxB,KAAJ,CAAU,aAAV,EAAyBoL,YAAY,EAArC,CAx0Bc;EAy0B7B,mBAAiB,IAAIpL,KAAJ,CAAU,eAAV,EAA2BoL,YAAY,CAAC,IAAD,CAAvC,CAz0BY;EA00B7B;EACA,kBAAgBhiB,GAAG,CAAC,IAAI4W,KAAJ,CAAUiL,KAAV,EAAiB,UAASA,KAAT,UAA0C;EAAA,QAAxBI,aAAwB,UAAxBA,aAAwB;EAAA,QAATlM,KAAS,UAATA,KAAS;;EAC3E,QAAI8L,KAAK,CAACtL,GAAN,YAAqBZ,IAArB,IAA6BkM,KAAK,CAACtL,GAAN,CAAUA,GAAV,YAAyBjN,OAA1D,EAAmE;EAC/D,UAAIkD,IAAI,GAAGqV,KAAK,CAACtL,GAAN,CAAUA,GAAV,CAAc5J,QAAzB;;EACA,UAAIyL,OAAJ;;EACA,UAAItP,OAAO,CAACsE,QAAR,CAAiByU,KAAK,CAACnM,GAAN,CAAUa,GAA3B,KAAmCsL,KAAK,CAACnM,GAAN,CAAUA,GAAV,YAAyBC,IAAhE,EAAsE;EAClEyC,QAAAA,OAAO,GAAGyJ,KAAK,CAACnM,GAAN,CAAUa,GAAV,CAAcvQ,OAAd,EAAV;EACH;;EACD,UAAIywB,cAAc,GAAG7f,KAAK,CAACgL,QAAN,CAAepV,IAAf,EAAqB,UAASqJ,IAAT,EAAe;EACrD,YAAIhB,GAAG,GAAG,IAAIgL,WAAJ,CAAgB,EAAhB,EAAoB,IAApB,EAA0B,UAA1B,CAAV;EACA,YAAIrT,IAAI,GAAGqV,KAAK,CAACtL,GAAN,CAAUb,GAArB;EACA,YAAI3Q,GAAG,GAAG8Q,IAAV;;EACA,eAAO,IAAP,EAAa;EACT,cAAIrJ,IAAI,KAAK+I,IAAb,EAAkB;EACd;EACH;;EACD,cAAI/I,IAAI,YAAYlD,OAApB,EAA6B;EACzBuL,YAAAA,GAAG,CAACE,OAAJ,CAAYvI,IAAI,CAACG,QAAjB,IAA6B5H,GAA7B;EACA;EACH,WAHD,MAGO,IAAIyH,IAAI,CAAC+J,GAAL,KAAahB,IAAjB,EAAsB;EACzB,gBAAIxQ,GAAG,KAAKwQ,IAAZ,EAAiB;EACbV,cAAAA,GAAG,CAACE,OAAJ,CAAYvI,IAAI,CAAC+J,GAAL,CAAS5J,QAArB,IAAiC4I,IAAjC;EACH,aAFD,MAEO;EACH,kBAAIxQ,GAAG,CAACwR,GAAJ,YAAmBZ,IAAvB,EAA6B;EACzB5Q,gBAAAA,GAAG,CAACwR,GAAJ,CAAQiH,QAAR,IAAoB,IAApB;EACH;;EACD3I,cAAAA,GAAG,CAACE,OAAJ,CAAYvI,IAAI,CAAC+J,GAAL,CAAS5J,QAArB,IAAiC5H,GAAG,CAACwR,GAArC;EACH;EACJ;;EACD,cAAI/J,IAAI,CAACkJ,GAAL,KAAaH,IAAjB,EAAsB;EAClB;EACH;;EACD,cAAIxQ,GAAG,KAAKwQ,IAAZ,EAAiB;EACbxQ,YAAAA,GAAG,GAAGA,GAAG,CAAC2Q,GAAV;EACH;;EACDlJ,UAAAA,IAAI,GAAGA,IAAI,CAACkJ,GAAZ;EACH;;EACD,YAAIuM,aAAJ,EAAmB;EACfA,UAAAA,aAAa,GAAGpN,GAAhB;EACH;;EACD,YAAImhB,SAAS,GAAG;EACZnhB,UAAAA,GAAG,EAAHA,GADY;EAEZoN,UAAAA,aAAa,EAAbA,aAFY;EAGZlM,UAAAA,KAAK,EAALA;EAHY,SAAhB,CAhCqD;;EAsCrD,YAAI8L,KAAK,CAACnM,GAAN,YAAqBC,IAAzB,EAA+B;EAC3B;EACA,cAAI1K,IAAI,GAAGmN,OAAO,GAAGyJ,KAAK,CAACnM,GAAN,CAAUA,GAAb,GAAmBmM,KAAK,CAACnM,GAA3C;EACA,cAAI3S,MAAM,GAAGkI,IAAI,CAACwJ,MAAL,CAAY,UAAS1R,MAAT,EAAiB2Z,IAAjB,EAAuB;EAC5C,mBAAO5G,SAAQ,CAAC4G,IAAD,EAAOsZ,SAAP,CAAf;EACH,WAFY,CAAb;EAGA,iBAAOze,SAAS,CAACxU,MAAD,EAAS,UAASA,MAAT,EAAiB;EACtC,gBAAI,QAAOA,MAAP,MAAkB,QAAtB,EAAgC;EAC5B,qBAAOA,MAAM,CAACya,QAAD,CAAb;EACH;;EACD,mBAAOza,MAAP;EACH,WALe,CAAhB;EAMH;EACJ,OAnDoB,EAmDlBqV,OAnDkB,EAmDT,IAnDS,CAArB;EAoDAqe,MAAAA,cAAc,CAAC/c,QAAf,GAA0B,IAAI/D,IAAJ,CAAS,IAAIrM,OAAJ,CAAY,cAAZ,CAAT,EAAsCuY,KAAtC,CAA1B;EACA,WAAK/Q,GAAL,CAAStE,IAAT,EAAeiqB,cAAf;EACH;EACJ,GA9DmB,CAAD,yjBA30BU;EAi5B7B;EACA,kBAAgB,IAAI7f,KAAJ,CAAU,cAAV,EAA0B,UAASiL,KAAT,EAAgB3c,OAAhB,EAAyB;EAC/D,QAAM+c,aAAN,GAA+B/c,OAA/B,CAAM+c,aAAN;EAAA,QAAqBlM,KAArB,GAA+B7Q,OAA/B,CAAqB6Q,KAArB;EACA,QAAIlB,GAAG,GAAG,IAAV;;EACA,aAAS6hB,eAAT,CAAyBha,IAAzB,EAA+B;EAC3B,UAAIrB,OAAO,GAAG,EAAd;;EACA,aAAOqB,IAAI,KAAKnH,IAAhB,EAAqB;EACjB,YAAMtU,CAAC,GAAGyb,IAAI,CAACnG,GAAf;EACA8E,QAAAA,OAAO,CAAC3X,IAAR,CAAazC,CAAC,CAAC+E,OAAF,EAAb;EACA0W,QAAAA,IAAI,GAAGA,IAAI,CAAChH,GAAZ;EACH;;EACD,aAAO2F,OAAP;EACH;;EACD,aAASsb,oBAAT,CAA8Bja,IAA9B,EAAoC;EAChC,aAAOA,IAAI,KAAKnH,IAAhB,EAAqB;EACjB,YAAMtU,CAAC,GAAGyb,IAAI,CAACnG,GAAf;;EACA,YAAI,EAAEtV,CAAC,YAAYqI,OAAf,CAAJ,EAA6B;EACzB,gBAAM,IAAI5C,KAAJ,CAAU,gCAAV,CAAN;EACH;;EACDgW,QAAAA,IAAI,GAAGA,IAAI,CAAChH,GAAZ;EACH;EACJ;;EACD,QAAImM,KAAK,CAACtL,GAAN,YAAqBjN,OAAzB,EAAkC;EAC9BqtB,MAAAA,oBAAoB,CAAC9U,KAAK,CAACnM,GAAN,CAAUa,GAAX,CAApB;EACH,KAFD,MAEO;EACHogB,MAAAA,oBAAoB,CAAC9U,KAAK,CAACtL,GAAP,CAApB;EACH;;EACD,QAAMqgB,MAAM,GAAG,IAAI7T,MAAJ,CAAW,UAASlN,IAAT,UAAiC;EAAA,UAAhBmM,YAAgB,UAAhBA,YAAgB;EACvD,UAAIgB,KAAK,GAAGnO,GAAG,CAACkT,OAAJ,CAAY,QAAZ,CAAZ;;EACA,UAAI9F,aAAJ,EAAmB;EACfA,QAAAA,aAAa,GAAGe,KAAhB;EACH;;EACD,UAAI6T,SAAS,GAAG,IAAhB,CALuD;;EAOvD,UAAIA,SAAS,CAAClqB,QAAV,KAAuBoW,MAAM,CAACM,aAAlC,EAAiD;EAC7C;EACA,YAAMtF,OAAK,GAAGna,MAAM,CAAC+a,qBAAP,CAA6BkY,SAAS,CAAC9hB,OAAvC,CAAd;;EACAgJ,QAAAA,OAAK,CAAC/a,OAAN,CAAc,UAAA+J,MAAM,EAAI;EACpB8pB,UAAAA,SAAS,CAACvD,UAAV,CAAqBxiB,GAArB,CAAyB/D,MAAzB,EAAiC8pB,SAAS,CAAC9hB,OAAV,CAAkBhI,MAAlB,CAAjC;EACH,SAFD;;EAGA8pB,QAAAA,SAAS,GAAGA,SAAS,CAACvD,UAAtB;EACH;;EACD,UAAI0C,SAAS,GAAG;EAAEnhB,QAAAA,GAAG,EAAEmO,KAAP;EAAcf,QAAAA,aAAa,EAAbA,aAAd;EAA6BlM,QAAAA,KAAK,EAALA;EAA7B,OAAhB;EACA,UAAI+N,QAAJ,EAAcjR,KAAd,EAAqBwI,OAArB;;EACA,UAAIwG,KAAK,CAACtL,GAAN,YAAqBjN,OAAzB,EAAkC;EAC9Bwa,QAAAA,QAAQ,GAAGjC,KAAK,CAACtL,GAAjB;EACA8E,QAAAA,OAAO,GAAGqb,eAAe,CAAC7U,KAAK,CAACnM,GAAN,CAAUa,GAAX,CAAzB;EACA1D,QAAAA,KAAK,GAAGgP,KAAK,CAACnM,GAAN,CAAUA,GAAlB;EACH,OAJD,MAIO;EACHoO,QAAAA,QAAQ,GAAG,KAAX;EACAzI,QAAAA,OAAO,GAAGqb,eAAe,CAAC7U,KAAK,CAACtL,GAAP,CAAzB;EACA1D,QAAAA,KAAK,GAAGgP,KAAK,CAACnM,GAAd;EACH;;EACD,UAAI;EACA,eAAO7C,KAAK,KAAK0C,IAAjB,EAAsB;EAClB,cAAIpD,IAAI,GAAGU,KAAK,CAAC0D,GAAN,CAAUA,GAArB;EACA,cAAII,IAAI,GAAG9D,KAAK,CAAC0D,GAAN,CAAUb,GAAV,CAAca,GAAzB;EACAvV,UAAAA,GAAG,CAACmR,IAAD,CAAH;EACA,cAAI0Q,QAAQ,GAAGY,gBAAgB,CAACtR,IAAD,EAAO0D,IAAP,EAAawF,OAAb,EAAsByI,QAAtB,EAAgC;EAC3DF,YAAAA,SAAS,EAAE,IADgD;EAC1CV,YAAAA,MAAM,EAAErO;EADkC,WAAhC,CAA/B;;EAGA,cAAIgO,QAAJ,EAAc;EACV;EACA,gBAAIvhB,QAAQ,EAAZ,EAAgB;EACZM,cAAAA,OAAO,CAACZ,GAAR,CAAY+H,IAAI,CAACwW,SAAL,CAAeb,SAAS,CAACmE,QAAD,CAAxB,EAAoC,IAApC,EAA0C,CAA1C,CAAZ;EACAjhB,cAAAA,OAAO,CAACZ,GAAR,CAAY,cAAcmR,IAAI,CAACvT,QAAL,CAAc,IAAd,CAA1B;EACAgD,cAAAA,OAAO,CAACZ,GAAR,CAAY,YAAY6U,IAAI,CAACjX,QAAL,CAAc,IAAd,CAAxB;EACH,aANS;;;EAQV,gBAAIgL,KAAK,GAAG,EAAZ;EACA,gBAAM4b,QAAQ,GAAGlB,gBAAgB,CAAC;EAC9BzB,cAAAA,QAAQ,EAARA,QAD8B;EAE9BlM,cAAAA,IAAI,EAAJA,IAF8B;EAG9B0E,cAAAA,OAAO,EAAPA,OAH8B;EAI9B2H,cAAAA,KAAK,EAALA,KAJ8B;EAK9B8T,cAAAA,SAAS,EAAED,SALmB;EAM9BjtB,cAAAA,KAAK,EAALA,KAN8B;EAO9Bka,cAAAA,QAAQ,EAARA;EAP8B,aAAD,CAAjC;EASA9iB,YAAAA,GAAG,CAAC,cAAcwkB,QAAQ,CAAC5mB,QAAT,EAAf,CAAH;;EACA,gBAAI4mB,QAAJ,EAAc;EACV7O,cAAAA,IAAI,GAAG6O,QAAP;EACH;;EACD,gBAAIuR,OAAO,GAAGF,SAAS,CAAChD,KAAV,CAAgB7Q,KAAhB,EAAuBD,MAAM,CAACM,aAA9B,CAAd;;EACA,gBAAIrB,YAAJ,EAAkB;EACd,qBAAO;EAAErL,gBAAAA,IAAI,EAAJA,IAAF;EAAQqM,gBAAAA,KAAK,EAAE+T;EAAf,eAAP;EACH;;EACD,gBAAIh0B,MAAM,GAAG+S,SAAQ,CAACa,IAAD,kCAAYqf,SAAZ;EAAuBnhB,cAAAA,GAAG,EAAEkiB;EAA5B,eAArB,CA1BU;EA4BV;EACA;EACA;;;EACA,mBAAO5S,aAAa,CAACphB,MAAD,EAAS6G,KAAT,CAApB;EACH;;EACDiJ,UAAAA,KAAK,GAAGA,KAAK,CAAC6C,GAAd;EACH;EACJ,OA3CD,CA2CE,OAAOlV,CAAP,EAAU;EACRA,QAAAA,CAAC,CAAC2e,OAAF,yBAA2B0C,KAAK,CAACjjB,QAAN,CAAe,IAAf,CAA3B;EACA,cAAM4B,CAAN;EACH;;EACD,YAAM,IAAIkG,KAAJ,0BAA4BmP,IAAI,CAACjX,QAAL,CAAc,IAAd,CAA5B,EAAN;EACH,KA1Ec,EA0EZiW,GA1EY,CAAf;EA2EA+hB,IAAAA,MAAM,CAACld,QAAP,GAAkBmI,KAAlB;EACA,WAAO+U,MAAP;EACH,GAvGe,mKAl5Ba;EA6/B7B;EACA5pB,EAAAA,KAAK,EAAEhN,GAAG,CAAC,IAAI4W,KAAJ,CAAU,OAAV,EAAmB,UAAS7R,GAAT,EAAc;EACxC,WAAOiI,KAAK,CAACjI,GAAG,CAACwR,GAAL,CAAZ;EACH,GAFU,CAAD,4TA9/BmB;EAsgC7B,sBAAoBvW,GAAG,CAAC,kBAAD,EAAqB,YAAW;EACnD,UAAM,IAAI0G,KAAJ,2DAAN;EACH,GAFsB,gWAtgCM;EA8gC7B,aAAW1G,GAAG,CAAC,SAAD,EAAY,YAAW;EACjC,UAAM,IAAI0G,KAAJ,kDAAN;EACH,GAFa,8UA9gCe;EAshC7B;EACAswB,EAAAA,UAAU,EAAEpgB,KAAK,CAACgL,QAAN,CAAe,YAAf,EAA6B,UAAS7c,GAAT,EAAc8P,GAAd,EAAmB;EACxD,QAAMoN,aAAN,GAA+BpN,GAA/B,CAAMoN,aAAN;EAAA,QAAqBlM,KAArB,GAA+BlB,GAA/B,CAAqBkB,KAArB;EACA,QAAI3W,IAAI,GAAG,IAAX,CAFwD;;EAIxD,QAAI6iB,aAAJ,EAAmB;EACfA,MAAAA,aAAa,GAAG7iB,IAAhB;EACH,KANuD;;;EAQxD,aAAS63B,SAAT,CAAmB11B,KAAnB,EAA0B;EACtB,aAAOA,KAAK,YAAYoU,IAAjB,IACHQ,eAAe,CAAC5U,KAAD,CADZ,IAEHwN,KAAK,CAACC,OAAN,CAAczN,KAAd,CAFJ;EAGH,KAZuD;;;EAcxD,aAAS21B,YAAT,CAAsB5gB,IAAtB,EAA4BzW,EAA5B,EAAkD;EAAA,UAAlB8B,IAAkB,uEAAXs1B,SAAW;;EAC9C,UAAI3gB,IAAI,YAAYX,IAApB,EAA0B;EACtB,YAAIY,GAAG,GAAGD,IAAI,CAACC,GAAf;EACA,YAAIb,GAAG,GAAGY,IAAI,CAACZ,GAAf;;EACA,YAAI/T,IAAI,CAAC4U,GAAD,CAAR,EAAe;EACXA,UAAAA,GAAG,GAAG1W,EAAE,CAAC0W,GAAD,CAAR;EACH;;EACD,YAAI5U,IAAI,CAAC+T,GAAD,CAAR,EAAe;EACXA,UAAAA,GAAG,GAAG7V,EAAE,CAAC6V,GAAD,CAAR;EACH;;EACD,YAAI7T,UAAU,CAAC0U,GAAD,CAAV,IAAmB1U,UAAU,CAAC6T,GAAD,CAAjC,EAAwC;EACpC,iBAAO5G,WAAW,CAAC,CAACyH,GAAD,EAAMb,GAAN,CAAD,CAAX,CAAwB5T,IAAxB,CAA6B,kBAAgB;EAAA;EAAA,gBAAdyU,GAAc;EAAA,gBAATb,GAAS;;EAChD,mBAAO,IAAIC,IAAJ,CAASY,GAAT,EAAcb,GAAd,CAAP;EACH,WAFM,CAAP;EAGH,SAJD,MAIO;EACH,iBAAO,IAAIC,IAAJ,CAASY,GAAT,EAAcb,GAAd,CAAP;EACH;EACJ;;EACD,aAAOY,IAAP;EACH,KAjCuD;;;EAmCxD,aAASxS,IAAT,CAAcqzB,SAAd,EAAyB51B,KAAzB,EAAgC;;EAI5B,UAAI41B,SAAS,YAAYxhB,IAAzB,EAA+B;EAC3B,YAAIpU,KAAK,KAAKgU,IAAd,EAAmB;EACf4hB,UAAAA,SAAS,CAACjnB,MAAV,CAAiB3O,KAAjB;EACH;EACJ,OAJD,MAIO;EACH41B,QAAAA,SAAS,GAAG,IAAIxhB,IAAJ,CACRwhB,SADQ,EAER51B,KAFQ,CAAZ;EAIH;;EACD,aAAO41B,SAAP;EACH,KAlDuD;;;EAoDxD,aAASC,YAAT,CAAsB1mB,GAAtB,EAA2B;EACvB,aAAO,CAAC,CAACA,GAAG,CAAC9E,MAAJ,CAAW,UAAArK,KAAK,EAAI;EACzB,eAAOA,KAAK,YAAYoU,IAAjB,IACHrM,OAAO,CAACwD,EAAR,CAAWvL,KAAK,CAACgV,GAAjB,EAAsB,8BAAtB,CADJ;EAEH,OAHQ,EAGNhT,MAHH;EAIH,KAzDuD;;;EA2DxD,aAAS8zB,YAAT,CAAsB3mB,GAAtB,EAA2B4mB,WAA3B,EAAwCC,OAAxC,EAAiD;EAC7C,aAAO7mB,GAAG,CAAC+D,MAAJ,CAAW,UAACC,GAAD,EAAMzT,CAAN,EAAY;EAC1B,YAAI,EAAEA,CAAC,YAAY0U,IAAf,CAAJ,EAA0B;EACtBjB,UAAAA,GAAG,CAAChR,IAAJ,CAASzC,CAAT;EACA,iBAAOyT,GAAP;EACH;;EACD,YAAIpL,OAAO,CAACwD,EAAR,CAAW7L,CAAC,CAACsV,GAAb,EAAkB,kBAAlB,CAAJ,EAA2C;EACvC,cAAIxT,MAAJ;;EACA,cAAIu0B,WAAW,GAAG,CAAd,GAAkBC,OAAtB,EAA+B;EAC3Bx0B,YAAAA,MAAM,GAAG+Z,KAAK,CAAC7b,CAAC,CAACyU,GAAH,EAAQ4hB,WAAW,GAAG,CAAtB,EAAyBC,OAAzB,CAAd;EACH,WAFD,MAEO;EACHx0B,YAAAA,MAAM,GAAG+S,SAAQ,CAAC7U,CAAC,CAACyU,GAAF,CAAMa,GAAP,EAAY;EACzB1B,cAAAA,GAAG,EAAEzV,IADoB;EAEzB6iB,cAAAA,aAAa,EAAbA,aAFyB;EAGzBlM,cAAAA,KAAK,EAALA;EAHyB,aAAZ,CAAjB;EAKH;;EACD,cAAI,EAAEhT,MAAM,YAAY4S,IAApB,CAAJ,EAA+B;EAC3B,kBAAM,IAAIjP,KAAJ,0BAA4BjG,IAAI,CAACQ,CAAD,CAAhC,YAAN;EACH;;EACD,iBAAOyT,GAAG,CAACvB,MAAJ,CAAWpQ,MAAM,CAAC2T,QAAP,EAAX,CAAP;EACH;;EACDhC,QAAAA,GAAG,CAAChR,IAAJ,CAASoZ,KAAK,CAAC7b,CAAD,EAAIq2B,WAAJ,EAAiBC,OAAjB,CAAd;EACA,eAAO7iB,GAAP;EACH,OAvBM,EAuBJ,EAvBI,CAAP;EAwBH,KApFuD;;;EAsFxD,aAAS8iB,YAAT,CAAsB3qB,MAAtB,EAA8ByqB,WAA9B,EAA2CC,OAA3C,EAAoD;EAChD,UAAMx0B,MAAM,GAAG,EAAf;EACAu0B,MAAAA,WAAW;EACX1zB,MAAAA,MAAM,CAACC,IAAP,CAAYgJ,MAAZ,EAAoB7J,OAApB,CAA4B,UAAAoT,GAAG,EAAI;EAC/B,YAAM7U,KAAK,GAAGsL,MAAM,CAACuJ,GAAD,CAApB;;EACA,YAAI7U,KAAK,YAAYoU,IAArB,EAA2B;EACvB,cAAIrM,OAAO,CAACwD,EAAR,CAAWvL,KAAK,CAACgV,GAAjB,EAAsB,kBAAtB,CAAJ,EAA+C;EAC3C,kBAAM,IAAI7P,KAAJ,CAAU,uCACA,eADV,CAAN;EAEH;;EACD,cAAIrD,MAAJ;;EACA,cAAIi0B,WAAW,GAAGC,OAAlB,EAA2B;EACvBl0B,YAAAA,MAAM,GAAGyZ,KAAK,CAACvb,KAAK,CAACmU,GAAN,CAAUa,GAAX,EAAgB+gB,WAAhB,EAA6BC,OAA7B,CAAd;EACH,WAFD,MAEO;EACHl0B,YAAAA,MAAM,GAAGyS,SAAQ,CAACvU,KAAK,CAACmU,GAAN,CAAUa,GAAX,EAAgB;EAC7B1B,cAAAA,GAAG,EAAEzV,IADwB;EAE7B6iB,cAAAA,aAAa,EAAbA,aAF6B;EAG7BlM,cAAAA,KAAK,EAALA;EAH6B,aAAhB,CAAjB;EAKH;;EACDhT,UAAAA,MAAM,CAACqT,GAAD,CAAN,GAAc/S,MAAd;EACH,SAhBD,MAgBO;EACHN,UAAAA,MAAM,CAACqT,GAAD,CAAN,GAAc7U,KAAd;EACH;EACJ,OArBD;;EAsBA,UAAIqC,MAAM,CAACgU,QAAP,CAAgB/K,MAAhB,CAAJ,EAA6B;EACzBjJ,QAAAA,MAAM,CAACiU,MAAP,CAAc9U,MAAd;EACH;;EACD,aAAOA,MAAP;EACH,KAnHuD;;;EAqHxD,aAAS00B,cAAT,CAAwBnhB,IAAxB,EAA8BghB,WAA9B,EAA2CC,OAA3C,EAAoD;EAChD,UAAID,WAAW,GAAGC,OAAlB,EAA2B;EACvB,eAAO,IAAI5hB,IAAJ,CACH,IAAIA,IAAJ,CACIW,IAAI,CAACC,GAAL,CAASA,GADb,EAEIuG,KAAK,CAACxG,IAAI,CAACC,GAAL,CAASb,GAAV,EAAe4hB,WAAf,EAA4BC,OAA5B,CAFT,CADG,EAKHhiB,IALG,CAAP;EAOH;;EACD,UAAIoO,KAAK,GAAG,EAAZ;EACA,aAAQ,SAAS3H,IAAT,CAAcU,IAAd,EAAoB;EACxB,YAAInb,KAAK,GAAGuU,SAAQ,CAAC4G,IAAI,CAACnG,GAAN,EAAW;EAC3B1B,UAAAA,GAAG,EAAEzV,IADsB;EAE3B6iB,UAAAA,aAAa,EAAbA,aAF2B;EAG3BlM,UAAAA,KAAK,EAALA;EAH2B,SAAX,CAApB;;EAKA4N,QAAAA,KAAK,CAACjgB,IAAN,CAAWnC,KAAX;;EACA,YAAImb,IAAI,CAAChH,GAAL,YAAoBC,IAAxB,EAA8B;EAC1B,iBAAOqG,IAAI,CAACU,IAAI,CAAChH,GAAN,CAAX;EACH;;EACD,eAAO6B,SAAS,CAACoM,KAAD,EAAQ,UAASjT,GAAT,EAAc;EAClC,cAAIA,GAAG,CAACuM,IAAJ,CAAS,UAAAhc,CAAC;EAAA,mBAAI,EAAEA,CAAC,YAAY0U,IAAf,CAAJ;EAAA,WAAV,CAAJ,EAAyC;EACrC,gBAAIW,IAAI,CAACZ,GAAL,YAAoBC,IAApB,IACArM,OAAO,CAACwD,EAAR,CAAWwJ,IAAI,CAACZ,GAAL,CAASa,GAApB,EAAyB,GAAzB,CADA,IAEAD,IAAI,CAACZ,GAAL,CAASA,GAAT,YAAwBC,IAFxB,IAGAW,IAAI,CAACZ,GAAL,CAASA,GAAT,CAAaA,GAAb,KAAqBH,IAHzB,EAG8B;EAC1B,qBAAOe,IAAI,CAACZ,GAAL,CAASA,GAAT,CAAaa,GAApB;EACH;;EACD,gBAAI,EAAED,IAAI,CAACZ,GAAL,KAAaH,IAAb,IAAoBe,IAAI,CAACZ,GAAL,YAAoBC,IAA1C,CAAJ,EAAqD;EACjD,kBAAMtU,GAAG,GAAG,mCAAZ;EACA,oBAAM,IAAIqF,KAAJ,CAAUrF,GAAV,CAAN;EACH;;EACD,gBAAIqP,GAAG,CAACnN,MAAJ,GAAa,CAAjB,EAAoB;EAChB,kBAAMlC,IAAG,GAAG,6CAAZ;EACA,oBAAM,IAAIqF,KAAJ,CAAUrF,IAAV,CAAN;EACH;;EACD,gBAAI,EAAEiV,IAAI,CAACZ,GAAL,YAAoBC,IAApB,IAA4BjF,GAAG,CAAC,CAAD,CAAH,KAAW6E,IAAzC,CAAJ,EAAmD;EAC/C,qBAAO7E,GAAG,CAAC,CAAD,CAAV;EACH;EACJ,WAnBiC;;;EAqBlCA,UAAAA,GAAG,GAAGA,GAAG,CAACvM,GAAJ,CAAQ,UAAAgzB,SAAS,EAAI;EACvB,gBAAIO,OAAO,CAACra,GAAR,CAAY8Z,SAAZ,CAAJ,EAA4B;EACxB,qBAAOA,SAAS,CAACja,KAAV,EAAP;EACH,aAFD,MAEO;EACHwa,cAAAA,OAAO,CAACr3B,GAAR,CAAY82B,SAAZ;EACA,qBAAOA,SAAP;EACH;EACJ,WAPK,CAAN;EAQA,cAAM51B,KAAK,GAAGub,KAAK,CAACxG,IAAI,CAACZ,GAAN,EAAW,CAAX,EAAc,CAAd,CAAnB;;EACA,cAAInU,KAAK,KAAKgU,IAAV,IAAiB7E,GAAG,CAAC,CAAD,CAAH,KAAW6E,IAAhC,EAAqC;EACjC,mBAAO/W,SAAP;EACH;;EACD,iBAAO+Y,SAAS,CAAChW,KAAD,EAAQ,UAAAA,KAAK,EAAI;EAC7B,gBAAImP,GAAG,CAAC,CAAD,CAAH,KAAW6E,IAAf,EAAoB;EAChB,qBAAOhU,KAAP;EACH;;EACD,gBAAImP,GAAG,CAACnN,MAAJ,KAAe,CAAnB,EAAsB;EAClB,qBAAOO,IAAI,CAAC4M,GAAG,CAAC,CAAD,CAAJ,EAASnP,KAAT,CAAX;EACH;;EACD,gBAAIwB,MAAM,GAAG2N,GAAG,CAAC+D,MAAJ,CAAW,UAAC1R,MAAD,EAASo0B,SAAT,EAAuB;EAC3C,qBAAOrzB,IAAI,CAACf,MAAD,EAASo0B,SAAT,CAAX;EACH,aAFY,CAAb;EAGA,mBAAOrzB,IAAI,CAACf,MAAD,EAASxB,KAAT,CAAX;EACH,WAXe,CAAhB;EAYH,SA7Ce,CAAhB;EA8CH,OAxDM,CAwDJ+U,IAAI,CAACC,GAAL,CAASb,GAxDL,CAAP;EAyDH,KAzLuD;;;EA2LxD,QAAIgiB,OAAO,GAAG,IAAIC,GAAJ,EAAd;;EACA,aAAS7a,KAAT,CAAexG,IAAf,EAAqBghB,WAArB,EAAkCC,OAAlC,EAA2C;EACvC,UAAIjhB,IAAI,YAAYX,IAApB,EAA0B;EACtB,YAAIW,IAAI,CAACC,GAAL,YAAoBZ,IAAxB,EAA8B;EAC1B,cAAIrM,OAAO,CAACwD,EAAR,CAAWwJ,IAAI,CAACC,GAAL,CAASA,GAApB,EAAyB,kBAAzB,CAAJ,EAAkD;EAC9C,mBAAOkhB,cAAc,CAACnhB,IAAD,EAAOghB,WAAW,GAAG,CAArB,EAAwBC,OAAxB,CAArB;EACH;;EACD,cAAIjuB,OAAO,CAACwD,EAAR,CAAWwJ,IAAI,CAACC,GAAL,CAASA,GAApB,EAAyB,SAAzB,CAAJ,EAAyC;EACrC;EACA,gBAAI+gB,WAAW,GAAG,CAAd,KAAoBC,OAApB,IACAjhB,IAAI,CAACC,GAAL,CAASb,GAAT,YAAwBC,IADxB,IAEAW,IAAI,CAACC,GAAL,CAASb,GAAT,CAAaa,GAAb,YAA4BZ,IAF5B,IAGArM,OAAO,CAACwD,EAAR,CAAWwJ,IAAI,CAACC,GAAL,CAASb,GAAT,CAAaa,GAAb,CAAiBA,GAA5B,EAAiC,kBAAjC,CAHJ,EAG0D;EACtD,kBAAMtL,IAAI,GAAGqL,IAAI,CAACC,GAAL,CAASb,GAAtB;EACA,qBAAO,IAAIC,IAAJ,CACH,IAAIA,IAAJ,CACI,IAAIrM,OAAJ,CAAY,SAAZ,CADJ,EAEImuB,cAAc,CAACxsB,IAAD,EAAOqsB,WAAW,GAAG,CAArB,EAAwBC,OAAxB,CAFlB,CADG,EAKHhiB,IALG,CAAP;EAOH,aAZD,MAYO,IAAIe,IAAI,CAACC,GAAL,CAASb,GAAT,YAAwBC,IAAxB,IACAW,IAAI,CAACC,GAAL,CAASb,GAAT,CAAaA,GAAb,KAAqBH,IADzB,EAC8B;EACjC,kBAAIe,IAAI,CAACC,GAAL,CAASb,GAAT,CAAaa,GAAb,YAA4BZ,IAAhC,EAAsC;EAClC;EACA,oBAAM5S,MAAM,GAAG,EAAf;EACA,uBAAQ,SAAS+Z,KAAT,CAAeJ,IAAf,EAAqB;EACzB,sBAAIA,IAAI,KAAKnH,IAAb,EAAkB;EACd,2BAAOI,IAAI,CAACkB,SAAL,CAAe9T,MAAf,CAAP;EACH;;EACD,yBAAOwU,SAAS,CAACzB,SAAQ,CAAC4G,IAAI,CAACnG,GAAN,EAAW;EAChC1B,oBAAAA,GAAG,EAAEzV,IAD2B;EAEhC6iB,oBAAAA,aAAa,EAAbA,aAFgC;EAGhClM,oBAAAA,KAAK,EAALA;EAHgC,mBAAX,CAAT,EAIZ,UAASiG,IAAT,EAAe;EACfjZ,oBAAAA,MAAM,CAACW,IAAP,CAAYsY,IAAZ;EACA,2BAAOc,KAAK,CAACJ,IAAI,CAAChH,GAAN,CAAZ;EACH,mBAPe,CAAhB;EAQH,iBAZM,CAYJY,IAAI,CAACC,GAAL,CAASb,GAZL,CAAP;EAaH,eAhBD,MAgBO;EACH;EACA;EACA;EACA,uBAAOY,IAAI,CAACC,GAAL,CAASb,GAAhB;EACH;EACJ;EACJ;EACJ;;EACD,YAAIpM,OAAO,CAACwD,EAAR,CAAWwJ,IAAI,CAACC,GAAhB,EAAqB,YAArB,CAAJ,EAAwC;EACpC,cAAIb,GAAG,GAAGoH,KAAK,CAACxG,IAAI,CAACZ,GAAN,EAAW4hB,WAAX,EAAwBC,OAAO,GAAG,CAAlC,CAAf;EACA,iBAAO,IAAI5hB,IAAJ,CAASW,IAAI,CAACC,GAAd,EAAmBb,GAAnB,CAAP;EACH;;EACD,YAAIpM,OAAO,CAACwD,EAAR,CAAWwJ,IAAI,CAACC,GAAhB,EAAqB,OAArB,CAAJ,EAAmC;EAC/B,iBAAO,IAAIZ,IAAJ,CACHW,IAAI,CAACC,GADF,EAEHuG,KAAK,CAACxG,IAAI,CAACZ,GAAN,EAAW4hB,WAAX,EAAwBC,OAAxB,CAFF,CAAP;EAIH;;EACD,YAAIjuB,OAAO,CAACwD,EAAR,CAAWwJ,IAAI,CAACC,GAAhB,EAAqB,SAArB,CAAJ,EAAqC;EACjC+gB,UAAAA,WAAW;;EACX,cAAIA,WAAW,GAAGC,OAAlB,EAA2B;EACvB,mBAAO,IAAI5hB,IAAJ,CACH,IAAIrM,OAAJ,CAAY,SAAZ,CADG,EAEHwT,KAAK,CAACxG,IAAI,CAACZ,GAAN,EAAW4hB,WAAX,EAAwBC,OAAxB,CAFF,CAAP;EAIH;;EACD,cAAID,WAAW,GAAGC,OAAlB,EAA2B;EACvB,kBAAM,IAAI7wB,KAAJ,CAAU,sCACA,eADV,CAAN;EAEH;;EACD,cAAI4P,IAAI,CAACZ,GAAL,YAAoBC,IAAxB,EAA8B;EAC1B,gBAAIW,IAAI,CAACZ,GAAL,CAASA,GAAT,KAAiBH,IAArB,EAA0B;EACtB,kBAAIe,IAAI,CAACZ,GAAL,CAASa,GAAT,YAAwBZ,IAA5B,EAAkC;EAC9B;EACA;EACA;EACA;EACA,oBAAM5S,QAAM,GAAG,EAAf,CAL8B;;EAO9B,uBAAQ,SAAS+Z,KAAT,CAAeJ,IAAf,EAAqB;EACzB,sBAAIA,IAAI,KAAKnH,IAAb,EAAkB;EACd,2BAAOI,IAAI,CAACkB,SAAL,CAAe9T,QAAf,CAAP;EACH;;EACD,yBAAOwU,SAAS,CAACzB,SAAQ,CAAC4G,IAAI,CAACnG,GAAN,EAAW;EAChC1B,oBAAAA,GAAG,EAAEzV,IAD2B;EAEhC6iB,oBAAAA,aAAa,EAAbA,aAFgC;EAGhClM,oBAAAA,KAAK,EAALA;EAHgC,mBAAX,CAAT,EAIZ,UAASiG,IAAT,EAAe;EACfjZ,oBAAAA,QAAM,CAACW,IAAP,CAAYsY,IAAZ;;EACA,2BAAOc,KAAK,CAACJ,IAAI,CAAChH,GAAN,CAAZ;EACH,mBAPe,CAAhB;EAQH,iBAZM,CAYJY,IAAI,CAACZ,GAZD,CAAP;EAaH,eApBD,MAoBO;EACH,uBAAOY,IAAI,CAACZ,GAAZ;EACH;EACJ,aAxBD,MAwBO;EACH,qBAAOI,SAAQ,CAACQ,IAAI,CAACZ,GAAL,CAASa,GAAV,EAAe;EAC1B1B,gBAAAA,GAAG,EAAEzV,IADqB;EAE1B6iB,gBAAAA,aAAa,EAAbA,aAF0B;EAG1BlM,gBAAAA,KAAK,EAALA;EAH0B,eAAf,CAAf;EAKH;EACJ,WAhCD,MAgCO;EACH,mBAAOO,IAAI,CAACZ,GAAZ;EACH;EACJ;;EACD,eAAOwhB,YAAY,CAAC5gB,IAAD,EAAO,UAACA,IAAD,EAAU;EAChC,iBAAOwG,KAAK,CAACxG,IAAD,EAAOghB,WAAP,EAAoBC,OAApB,CAAZ;EACH,SAFkB,CAAnB;EAGH,OA3GD,MA2GO,IAAIphB,eAAe,CAACG,IAAD,CAAnB,EAA2B;EAC9B,eAAOkhB,YAAY,CAAClhB,IAAD,EAAOghB,WAAP,EAAoBC,OAApB,CAAnB;EACH,OAFM,MAEA,IAAIjhB,IAAI,YAAYvH,KAApB,EAA2B;EAC9B,eAAOsoB,YAAY,CAAC/gB,IAAD,EAAOghB,WAAP,EAAoBC,OAApB,CAAnB;EACH;;EACD,aAAOjhB,IAAP;EACH,KA9SuD;;;EAgTxD,aAASshB,KAAT,CAAelb,IAAf,EAAqB;EACjB,UAAIA,IAAI,YAAY/G,IAApB,EAA0B;EACtB,eAAO+G,IAAI,CAACc,QAAD,CAAX;;EACA,YAAI,CAACd,IAAI,CAACM,UAAL,CAAgB,KAAhB,CAAL,EAA6B;EACzB4a,UAAAA,KAAK,CAAClb,IAAI,CAACnG,GAAN,CAAL;EACH;;EACD,YAAI,CAACmG,IAAI,CAACM,UAAL,CAAgB,KAAhB,CAAL,EAA6B;EACzB4a,UAAAA,KAAK,CAAClb,IAAI,CAAChH,GAAN,CAAL;EACH;EACJ;EACJ,KA1TuD;;;EA4TxD,QAAIS,eAAe,CAACpR,GAAG,CAACwR,GAAL,CAAf,IAA4B,CAAC6gB,YAAY,CAACxzB,MAAM,CAACkU,MAAP,CAAc/S,GAAG,CAACwR,GAAlB,CAAD,CAA7C,EAAuE;EACnE,aAAOvJ,KAAK,CAACjI,GAAG,CAACwR,GAAL,CAAZ;EACH;;EACD,QAAIxH,KAAK,CAACC,OAAN,CAAcjK,GAAG,CAACwR,GAAlB,KAA0B,CAAC6gB,YAAY,CAACryB,GAAG,CAACwR,GAAL,CAA3C,EAAsD;EAClD,aAAOvJ,KAAK,CAACjI,GAAG,CAACwR,GAAL,CAAZ;EACH;;EACD,QAAIxR,GAAG,CAACwR,GAAJ,YAAmBZ,IAAnB,IACA,CAAC5Q,GAAG,CAACwR,GAAJ,CAAQoB,IAAR,CAAa,SAAb,CADD,IAEA,CAAC5S,GAAG,CAACwR,GAAJ,CAAQoB,IAAR,CAAa,kBAAb,CAFD,IAGA,CAAC5S,GAAG,CAACwR,GAAJ,CAAQoB,IAAR,CAAa,YAAb,CAHL,EAGiC;EAC7B,aAAO3K,KAAK,CAACjI,GAAG,CAACwR,GAAL,CAAZ;EACH;;EACD,QAAItV,CAAC,GAAG6b,KAAK,CAAC/X,GAAG,CAACwR,GAAL,EAAU,CAAV,EAAa,CAAb,CAAb;EACA,WAAOgB,SAAS,CAACtW,CAAD,EAAI,UAAAM,KAAK,EAAI;EACzB;EACAq2B,MAAAA,KAAK,CAACr2B,KAAD,CAAL;EACA,aAAOyL,KAAK,CAACzL,KAAD,CAAZ;EACH,KAJe,CAAhB;EAKH,GA9UW,mcAvhCiB;EA42C7B;EACA2b,EAAAA,KAAK,EAAEld,GAAG,CAAC,OAAD,EAAU,SAASkd,KAAT,CAAexQ,IAAf,EAAqB;EACrCqQ,IAAAA,SAAS,CAAC,OAAD,EAAUrQ,IAAV,EAAgB,MAAhB,CAAT;EACA,WAAOA,IAAI,CAACwQ,KAAL,EAAP;EACH,GAHS,mEA72CmB;EAm3C7B;EACAhN,EAAAA,MAAM,EAAElQ,GAAG,CAAC,QAAD,EAAW,SAASkQ,MAAT,GAA0B;EAAA;;EAAA,wCAAP2nB,KAAO;EAAPA,MAAAA,KAAO;EAAA;;EAC5CA,IAAAA,KAAK,GAAGA,KAAK,CAAC1zB,GAAN,CAAU,UAAAiG,IAAI,EAAI;EACtB,UAAIA,IAAI,YAAYuL,IAApB,EAA0B;EACtB,eAAOvL,IAAI,CAAC8S,KAAL,EAAP;EACH;;EACD,aAAO9S,IAAP;EACH,KALO,CAAR;EAMA,WAAO,mBAAA5I,UAAU,CAACC,GAAX,CAAe,SAAf,GAA0Bd,IAA1B,yBAA+B,IAA/B,4BAAwCk3B,KAAxC,GAAP;EACH,GARU,qLAp3CkB;EAg4C7B;EACA,aAAW73B,GAAG,CAAC,SAAD,EAAY,YAAmB;EACzC,QAAI83B,OAAO,GAAGt2B,UAAU,CAACC,GAAX,CAAe,OAAf,CAAd;;EADyC,wCAAPo2B,KAAO;EAAPA,MAAAA,KAAO;EAAA;;EAEzC,WAAOA,KAAK,CAACpjB,MAAN,CAAa,UAACC,GAAD,EAAMtK,IAAN,EAAe;EAC/B2S,MAAAA,SAAS,CAAC,SAAD,EAAYrI,GAAZ,EAAiB,CAAC,KAAD,EAAQ,MAAR,CAAjB,CAAT;;EACA,UAAI,CAACtK,IAAI,YAAYuL,IAAhB,IAAwBvL,IAAI,KAAKmL,IAAlC,KAA0C,CAACuiB,OAAO,CAAC1tB,IAAD,CAAtD,EAA8D;EAC1D,cAAM,IAAI1D,KAAJ,CAAU,gDAAV,CAAN;EACH;;EACD,UAAIif,OAAO,CAACvb,IAAD,CAAX,EAAmB;each,eAAOsK,GAAP;EACH;;EACD,UAAIA,GAAG,KAAKa,IAAZ,EAAiB;EACb,YAAInL,IAAI,KAAKmL,IAAb,EAAkB;EACd,iBAAOA,IAAP;EACH;;EACD,eAAOnL,IAAP;EACH;;EACD,aAAOsK,GAAG,CAACxE,MAAJ,CAAW9F,IAAX,CAAP;EACH,KAfM,EAeJmL,IAfI,CAAP;EAgBH,GAlBa,qOAj4Ce;EAw5C7B;EACApJ,EAAAA,OAAO,EAAEnM,GAAG,CAAC,SAAD,EAAY,SAASmM,OAAT,CAAiBpH,GAAjB,EAAsB;EAC1CgY,IAAAA,SAAS,CAAC,SAAD,EAAYhY,GAAZ,EAAiB,CAAC,OAAD,EAAU,MAAV,EAAkB,KAAlB,CAAjB,CAAT;;EACA,QAAIA,GAAG,KAAKwQ,IAAZ,EAAiB;EACb,aAAOA,IAAP;EACH;;EACD,QAAIxQ,GAAG,YAAY4Q,IAAnB,EAAyB;EACrB,UAAIjF,GAAG,GAAGlP,UAAU,CAACC,GAAX,CAAe,aAAf,EAA8BsD,GAA9B,EAAmCoH,OAAnC,EAAV;EACA,aAAO3K,UAAU,CAACC,GAAX,CAAe,aAAf,EAA8BiP,GAA9B,CAAP;EACH,KAHD,MAGO,IAAI,EAAE3L,GAAG,YAAYgK,KAAjB,CAAJ,EAA6B;EAChC,YAAM,IAAIrI,KAAJ,CAAUkpB,gBAAgB,CAAC,SAAD,EAAYnvB,IAAI,CAACsE,GAAD,CAAhB,EAAuB,eAAvB,CAA1B,CAAN;EACH,KAFM,MAEA;EACH,aAAOA,GAAG,CAACoH,OAAJ,EAAP;EACH;EACJ,GAbW,iJAz5CiB;EA06C7B;EACA4rB,EAAAA,GAAG,EAAE/3B,GAAG,CAAC,KAAD,EAAQ,SAAS+3B,GAAT,CAAa9b,KAAb,EAAoB5O,GAApB,EAAyB;EACrC0P,IAAAA,SAAS,CAAC,KAAD,EAAQd,KAAR,EAAe,QAAf,CAAT;EACAc,IAAAA,SAAS,CAAC,KAAD,EAAQ1P,GAAR,EAAa,CAAC,OAAD,EAAU,MAAV,CAAb,CAAT;;EACA,QAAIA,GAAG,YAAYsI,IAAnB,EAAyB;EACrB,UAAI+G,IAAI,GAAGrP,GAAX;EACA,UAAIE,KAAK,GAAG,CAAZ;;EACA,aAAOA,KAAK,GAAG0O,KAAf,EAAsB;EAClB,YAAI,CAACS,IAAI,CAAChH,GAAN,IAAagH,IAAI,CAAChH,GAAL,KAAaH,IAA1B,IAAiCmH,IAAI,CAACM,UAAL,CAAgB,KAAhB,CAArC,EAA6D;EACzD,iBAAOzH,IAAP;EACH;;EACDmH,QAAAA,IAAI,GAAGA,IAAI,CAAChH,GAAZ;EACAnI,QAAAA,KAAK;EACR;;EACD,aAAOmP,IAAI,CAACnG,GAAZ;EACH,KAXD,MAWO,IAAIlJ,GAAG,YAAY0B,KAAnB,EAA0B;EAC7B,aAAO1B,GAAG,CAAC4O,KAAD,CAAV;EACH,KAFM,MAEA;EACH,YAAM,IAAIvV,KAAJ,CAAUkpB,gBAAgB,CAAC,KAAD,EAAQnvB,IAAI,CAAC4M,GAAD,CAAZ,EAAmB,eAAnB,EAAoC,CAApC,CAA1B,CAAN;EACH;EACJ,GAnBO,uJA36CqB;EAk8C7B;EACAX,EAAAA,IAAI,EAAE1M,GAAG,CAAC,MAAD,EAAS,SAAS0M,IAAT,GAAuB;EAAA,wCAANpB,IAAM;EAANA,MAAAA,IAAM;EAAA;;EACrC,WAAOA,IAAI,CAACa,OAAL,GAAesI,MAAf,CAAsB,UAAC/H,IAAD,EAAOtC,IAAP;EAAA,aAAgB,IAAIuL,IAAJ,CAASvL,IAAT,EAAesC,IAAf,CAAhB;EAAA,KAAtB,EAA4D6I,IAA5D,CAAP;EACH,GAFQ,gFAn8CoB;EAw8C7B;EACAzD,EAAAA,SAAS,EAAE9R,GAAG,CAAC,WAAD,EAAc,SAAS8R,SAAT,CAAmB1O,MAAnB,EAA2BsP,KAA3B,EAAkCrG,GAAlC,EAAuC;EAC/D0Q,IAAAA,SAAS,CAAC,WAAD,EAAc3Z,MAAd,EAAsB,QAAtB,CAAT;EACA2Z,IAAAA,SAAS,CAAC,WAAD,EAAcrK,KAAd,EAAqB,QAArB,CAAT;EACAqK,IAAAA,SAAS,CAAC,WAAD,EAAc1Q,GAAd,EAAmB,CAAC,QAAD,EAAW,WAAX,CAAnB,CAAT;EACA,WAAOjJ,MAAM,CAAC0O,SAAP,CAAiBY,KAAK,CAAC1M,OAAN,EAAjB,EAAkCqG,GAAG,IAAIA,GAAG,CAACrG,OAAJ,EAAzC,CAAP;EACH,GALa,sHAz8Ce;EAi9C7B;EACAmN,EAAAA,MAAM,EAAEnT,GAAG,CAAC,QAAD,EAAW,SAASmT,MAAT,GAAyB;EAAA,wCAAN7H,IAAM;EAANA,MAAAA,IAAM;EAAA;;EAC3CA,IAAAA,IAAI,CAACtI,OAAL,CAAa,UAAC+B,GAAD,EAAMkH,CAAN;EAAA,aAAY8Q,SAAS,CAAC,QAAD,EAAWhY,GAAX,EAAgB,QAAhB,EAA0BkH,CAAC,GAAG,CAA9B,CAArB;EAAA,KAAb;EACA,WAAOX,IAAI,CAACxH,IAAL,CAAU,EAAV,CAAP;EACH,GAHU,0FAl9CkB;EAw9C7B;EACAA,EAAAA,IAAI,EAAE9D,GAAG,CAAC,MAAD,EAAS,SAAS8D,IAAT,CAAck0B,SAAd,EAAyBtrB,IAAzB,EAA+B;EAC7CqQ,IAAAA,SAAS,CAAC,MAAD,EAASib,SAAT,EAAoB,QAApB,CAAT;EACAjb,IAAAA,SAAS,CAAC,MAAD,EAASrQ,IAAT,EAAe,CAAC,MAAD,EAAS,KAAT,CAAf,CAAT;EACA,WAAOlL,UAAU,CAACC,GAAX,CAAe,aAAf,EAA8BiL,IAA9B,EAAoC5I,IAApC,CAAyCk0B,SAAzC,CAAP;EACH,GAJQ,gGAz9CoB;EAg+C7B;EACA3yB,EAAAA,KAAK,EAAErF,GAAG,CAAC,OAAD,EAAU,SAASqF,KAAT,CAAe2yB,SAAf,EAA0B50B,MAA1B,EAAkC;EAClD2Z,IAAAA,SAAS,CAAC,OAAD,EAAUib,SAAV,EAAqB,CAAC,OAAD,EAAU,QAAV,CAArB,CAAT;EACAjb,IAAAA,SAAS,CAAC,OAAD,EAAU3Z,MAAV,EAAkB,QAAlB,CAAT;EACA,WAAO5B,UAAU,CAACC,GAAX,CAAe,aAAf,EAA8B2B,MAAM,CAACiC,KAAP,CAAa2yB,SAAb,CAA9B,CAAP;EACH,GAJS,2JAj+CmB;EAy+C7B;EACA7yB,EAAAA,OAAO,EAAEnF,GAAG,CAAC,SAAD,EAAY,SAASmF,OAAT,CAAiBwT,OAAjB,EAA0B0L,WAA1B,EAAuCjhB,MAAvC,EAA+C;EACnE2Z,IAAAA,SAAS,CAAC,SAAD,EAAYpE,OAAZ,EAAqB,CAAC,OAAD,EAAU,QAAV,CAArB,CAAT;EACAoE,IAAAA,SAAS,CAAC,SAAD,EAAYsH,WAAZ,EAAyB,CAAC,QAAD,EAAW,UAAX,CAAzB,CAAT;EACAtH,IAAAA,SAAS,CAAC,SAAD,EAAY3Z,MAAZ,EAAoB,QAApB,CAAT;EACA,WAAOA,MAAM,CAAC+B,OAAP,CAAewT,OAAf,EAAwB0L,WAAxB,CAAP;EACH,GALW,qMA1+CiB;EAm/C7B;EACApf,EAAAA,KAAK,EAAEjF,GAAG,CAAC,OAAD,EAAU,SAASiF,KAAT,CAAe0T,OAAf,EAAwBvV,MAAxB,EAAgC;EAChD2Z,IAAAA,SAAS,CAAC,OAAD,EAAUpE,OAAV,EAAmB,CAAC,OAAD,EAAU,QAAV,CAAnB,CAAT;EACAoE,IAAAA,SAAS,CAAC,OAAD,EAAU3Z,MAAV,EAAkB,QAAlB,CAAT;EACA,QAAIgB,CAAC,GAAGhB,MAAM,CAAC6B,KAAP,CAAa0T,OAAb,CAAR;EACA,WAAOvU,CAAC,GAAG5C,UAAU,CAACC,GAAX,CAAe,aAAf,EAA8B2C,CAA9B,CAAH,GAAsC,KAA9C;EACH,GALS,mHAp/CmB;EA4/C7B;EACA6zB,EAAAA,MAAM,EAAEj4B,GAAG,CAAC,QAAD,EAAW,SAASi4B,MAAT,CAAgBtf,OAAhB,EAAyBvV,MAAzB,EAAiC;EACnD2Z,IAAAA,SAAS,CAAC,QAAD,EAAWpE,OAAX,EAAoB,CAAC,OAAD,EAAU,QAAV,CAApB,CAAT;EACAoE,IAAAA,SAAS,CAAC,QAAD,EAAW3Z,MAAX,EAAmB,QAAnB,CAAT;EACA,WAAOA,MAAM,CAAC60B,MAAP,CAActf,OAAd,CAAP;EACH,GAJU,4GA7/CkB;EAogD7B;EACAmF,EAAAA,IAAI,EAAE9d,GAAG,CAAC,MAAD,EAAS,SAAS8d,IAAT,CAAczQ,GAAd,EAAmBL,KAAnB,EAA0B;EACxC,WAAOpO,QAAQ,CAACyO,GAAD,EAAML,KAAN,CAAf;EACH,GAFQ,iGArgDoB;EA0gD7B;EACA,kBAAgBhN,GAAG,CAAC,cAAD,EAAiB,UAASoD,MAAT,EAAiB;EACjD2Z,IAAAA,SAAS,CAAC,cAAD,EAAiB3Z,MAAjB,EAAyB,QAAzB,CAAT;EACA,WAAO2G,YAAY,CAAC3G,MAAM,CAAC4C,OAAP,EAAD,CAAnB;EACH,GAHkB,kOA3gDU;EAmhD7B;EACA6O,EAAAA,GAAG,EAAE7U,GAAG,CAAC,KAAD,EAAQ,SAAS6U,GAAT,CAAaA,GAAb,EAAkB;EAC9BA,IAAAA,GAAG,GAAGA,GAAG,IAAI,IAAb;EACA,QAAIjL,KAAK,GAAGhG,MAAM,CAACC,IAAP,CAAYgR,GAAG,CAACE,OAAhB,EAAyB5Q,GAAzB,CAA6BmF,OAA7B,CAAZ,CAF8B;;EAI9B,QAAIvG,MAAJ;;EACA,QAAI6G,KAAK,CAACrG,MAAV,EAAkB;EACdR,MAAAA,MAAM,GAAG4S,IAAI,CAACkB,SAAL,CAAejN,KAAf,CAAT;EACH,KAFD,MAEO;EACH7G,MAAAA,MAAM,GAAGwS,IAAT;EACH;;EACD,QAAIV,GAAG,CAACye,UAAJ,YAA0BzT,WAA9B,EAA2C;EACvC,aAAOre,UAAU,CAACC,GAAX,CAAe,KAAf,EAAsBoT,GAAG,CAACye,UAA1B,EAAsCpjB,MAAtC,CAA6CnN,MAA7C,CAAP;EACH;;EACD,WAAOA,MAAP;EACH,GAdO,mKAphDqB;EAuiD7B;EACA,SAAO/C,GAAG,CAAC,KAAD,EAAQ,UAASqN,GAAT,EAAuB;EAAA,wCAAN/B,IAAM;EAANA,MAAAA,IAAM;EAAA;;EACrC,QAAI4sB,QAAQ,cAAQ/Z,MAAM,CAAC9Q,GAAD,CAAd,qBAAwB/B,IAAI,CAACnH,GAAL,CAAS,UAAAlD,CAAC;EAAA,aAAIqlB,KAAK,CAACrlB,CAAD,CAAT;EAAA,KAAV,CAAxB,EAAZ;;EACA,WAAOi3B,QAAP;EACH,GAHS,0FAxiDmB;EA8iD7B;EACA,eAAal4B,GAAG,CACZ+c,SADY,gQA/iDa;EAsjD7B;EACA,oBAAkB/c,GAAG,CAAC,gBAAD,EAAmB,UAAS+M,MAAT,EAAiB;EACrDgQ,IAAAA,SAAS,CAAC,iBAAD,EAAoBhQ,MAApB,EAA4B,QAA5B,CAAT;EACA,WAAOpD,QAAQ,CAACsG,MAAT,CAAgBlD,MAAM,CAAC/G,OAAP,EAAhB,CAAP;EACH,GAHoB,kJAvjDQ;EA8jD7B;EACA,kBAAgBhG,GAAG,CAAC,cAAD,EAAiB,UAASmQ,GAAT,EAAc3D,IAAd,EAA6C;EAAA,QAAzB/L,IAAyB,uEAAlBkJ,QAAQ,CAAC8F,OAAS;EAC7EsN,IAAAA,SAAS,CAAC,cAAD,EAAiB5M,GAAjB,EAAsB,QAAtB,EAAgC,CAAhC,CAAT;EACA4M,IAAAA,SAAS,CAAC,cAAD,EAAiBvQ,IAAjB,EAAuB,QAAvB,EAAiC,CAAjC,CAAT;EACA7C,IAAAA,QAAQ,CAACuG,MAAT,CAAgBC,GAAG,CAACnK,OAAJ,EAAhB,EAA+BwG,IAA/B,EAAqC/L,IAArC;EACH,GAJkB,uhBA/jDU;EA2kD7B;EACA,SAAOgB,GA5kDsB;EA6kD7B,OAAKA,GA7kDwB;EA8kD7B;EACA,YAAUzB,GAAG,CACTme,MADS,oGA/kDgB;EAolD7B;EACA1d,EAAAA,IAAI,EAAET,GAAG,CACLS,IADK,+EArlDoB;EA0lD7B;EACA,cAAYT,GAAG,CAAC,UAAD,EAAa,YAAW;EACnC;EACA;EACA;EACH,GAJc,yEA3lDc;EAkmD7B;EACA,QAAMA,GAAG,CAAC,IAAD,EAAO,UAASqU,CAAT,EAAYC,CAAZ,EAAe;EAC3B,QAAID,CAAC,YAAY/K,OAAb,IACA+K,CAAC,YAAYvL,OADb,IAEAuL,CAAC,YAAYvO,OAFjB,EAE0B;EACtBuO,MAAAA,CAAC,GAAGA,CAAC,CAACrO,OAAF,EAAJ;EACH;;EACD,WAAOqO,CAAC,IAAIiS,KAAK,CAAChS,CAAD,CAAjB;EACH,GAPQ,8FAnmDoB;EA6mD7B;EACA,gBAActU,GAAG,CAAC,YAAD,EAAe,UAASS,IAAT,EAAe4M,GAAf,EAAoB;EAChD,WAAOA,GAAG,YAAY8Q,MAAM,CAAC1d,IAAD,CAA5B;EACH,GAFgB,yFA9mDY;EAmnD7B;EACA,gBAAcT,GAAG,CACb,YADa,EAEb+f,YAFa,6FApnDY;EA0nD7B;EACA,YAAU/f,GAAG,CAAC,QAAD,EAAW,UAASqN,GAAT,EAAc;EAClC,WAAOA,GAAG,YAAYuJ,KAAtB;EACH,GAFY,2EA3nDgB;EAgoD7B;EACA,eAAa5W,GAAG,CACZ,WADY,EAEZqO,WAFY,kFAjoDa;EAuoD7B;EACA,WAASrO,GAAG,CAAC,OAAD,EAAU,UAASuB,KAAT,EAAgB;EAClC,QAAId,IAAI,CAACc,KAAD,CAAJ,KAAgB,QAApB,EAA8B;EAC1B,aAAO,KAAP;EACH;;EACD,QAAIA,KAAK,YAAYuE,OAArB,EAA8B;EAC1B,aAAOvE,KAAK,CAAC0pB,OAAN,EAAP;EACH;;EACD,WAAOnlB,OAAO,CAACmlB,OAAR,CAAgB1pB,KAAhB,CAAP;EACH,GARW,0EAxoDiB;EAmpD7B;EACA,aAAWvB,GAAG,CAAC,SAAD,EAAY,UAASiB,CAAT,EAAY;EAClC,WAAOiG,MAAM,CAACuW,KAAP,CAAaxc,CAAb,KAAmB6E,OAAO,CAACsd,QAAR,CAAiBniB,CAAjB,CAA1B;EACH,GAFa,0FAppDe;EAypD7B;EACA,aAAWjB,GAAG,CAAC,SAAD,EAAY,UAASqN,GAAT,EAAc;EACpC,WAAOvE,OAAO,CAACsE,QAAR,CAAiBC,GAAjB,CAAP;EACH,GAFa,6EA1pDe;EA+pD7B;EACA,WAASrN,GAAG,CAAC,OAAD,EAAU,UAASqN,GAAT,EAAc;EAChC,WAAOA,GAAG,YAAYsI,IAAtB;EACH,GAFW,2FAhqDiB;EAqqD7B;EACA,YAAU3V,GAAG,CAAC,QAAD,EAAW,UAASqN,GAAT,EAAc;EAClC,WAAOA,GAAG,YAAY3L,MAAtB;EACH,GAFY,sFAtqDgB;EA2qD7B;EACA,WAAS1B,GAAG,CAAC,OAAD,EAAU,UAASqN,GAAT,EAAc;EAChC,WAAOsY,OAAO,CAACtY,GAAD,CAAd;EACH,GAFW,yEA5qDiB;EAirD7B;EACA,cAAYrN,GAAG,CAAC,UAAD,EAAa,UAASqN,GAAT,EAAc;EACtC,WAAO,OAAOA,GAAP,KAAe,SAAtB;EACH,GAFc,6EAlrDc;EAurD7B;EACA,aAAWrN,GAAG,CAAC,SAAD,EAAY,UAASqN,GAAT,EAAc;EACpC,WAAOA,GAAG,YAAY/D,OAAtB;EACH,GAFa,+EAxrDe;EA6rD7B;EACA,YAAUtJ,GAAG,CAAC,QAAD,EAAW,UAASqN,GAAT,EAAc;EAClC,WAAOA,GAAG,YAAY0B,KAAtB;EACH,GAFY,6EA9rDgB;EAmsD7B;EACA,aAAW/O,GAAG,CAAC,SAAD,EAAY,UAASqN,GAAT,EAAc;EACpC,WAAOA,GAAG,KAAKkI,IAAR,IAAelI,GAAG,KAAK,IAAvB,IACH,EAAEA,GAAG,YAAY5G,UAAjB,CADG,IAEH,EAAE4G,GAAG,YAAY3L,MAAjB,CAFG,IAGH,EAAE2L,GAAG,YAAYvE,OAAjB,CAHG,IAIH,EAAEuE,GAAG,YAAYsI,IAAjB,CAJG,IAKH,EAAEtI,GAAG,YAAYvH,OAAjB,CALG,IAMH,QAAOuH,GAAP,MAAe,QANZ,IAOH,EAAEA,GAAG,YAAY0B,KAAjB,CAPJ;EAQH,GATa,oFApsDe;EAgtD7B;EACAuN,EAAAA,OAAO,EAAEtc,GAAG,CAAC,SAAD,EAAY,SAASsc,OAAT,CAAiB5P,IAAjB,EAAuB;EAC3CqQ,IAAAA,SAAS,CAAC,SAAD,EAAYrQ,IAAZ,EAAkB,MAAlB,CAAT;EACA,WAAOA,IAAI,CAAC4P,OAAL,EAAP;EACH,GAHW,mFAjtDiB;EAutD7B;EACA,iBAAetc,GAAG,CAAC,aAAD,EAAgB,UAASqP,KAAT,EAAgB;EAC9C0N,IAAAA,SAAS,CAAC,aAAD,EAAgB1N,KAAhB,EAAuB,OAAvB,CAAT;EACA,WAAOsG,IAAI,CAACkB,SAAL,CAAexH,KAAf,CAAP;EACH,GAHiB,uFAxtDW;EA8tD7B;EACA,iBAAerP,GAAG,CACd,aADc,EAEd0W,QAAQ,CAAC,aAAD,EAAgB,IAAhB,CAFM,mGA/tDW;EAquD7B;EACA,iBAAe1W,GAAG,CACd,aADc,EAEd0W,QAAQ,CAAC,aAAD,CAFM,yFAtuDW;EA4uD7B;EACAlL,EAAAA,KAAK,EAAExL,GAAG,CAAC,OAAD,EAAU,SAASwL,KAAT,CAAe3L,EAAf,EAA4B;EAAA,wCAANyL,IAAM;EAANA,MAAAA,IAAM;EAAA;;EAC5CyR,IAAAA,SAAS,CAAC,OAAD,EAAUld,EAAV,EAAc,UAAd,EAA0B,CAA1B,CAAT;EACA,QAAI8a,IAAI,GAAGrP,IAAI,CAACjB,GAAL,EAAX;EACA0S,IAAAA,SAAS,CAAC,OAAD,EAAUpC,IAAV,EAAgB,CAAC,MAAD,EAAS,KAAT,CAAhB,EAAiCrP,IAAI,CAAC/H,MAAL,GAAc,CAA/C,CAAT;EACA+H,IAAAA,IAAI,GAAGA,IAAI,CAAC6H,MAAL,CAAY3R,UAAU,CAACC,GAAX,CAAe,aAAf,EAA8Bd,IAA9B,CAAmC,IAAnC,EAAyCga,IAAzC,CAAZ,CAAP;EACA,WAAO9a,EAAE,CAAC2L,KAAH,CAAS,IAAT,EAAe2sB,eAAe,CAACt4B,EAAD,EAAKyL,IAAL,CAA9B,CAAP;EACH,GANS,uFA7uDmB;EAsvD7B;EACA/H,EAAAA,MAAM,EAAEvD,GAAG,CAAC,QAAD,EAAW,SAASuD,MAAT,CAAgB8J,GAAhB,EAAqB;EACvC,QAAI,CAACA,GAAD,IAAQA,GAAG,KAAKkI,IAApB,EAAyB;EACrB,aAAO,CAAP;EACH;;EACD,QAAIlI,GAAG,YAAYsI,IAAnB,EAAyB;EACrB,aAAOtI,GAAG,CAAC9J,MAAJ,EAAP;EACH;;EACD,QAAI,YAAY8J,GAAhB,EAAqB;EACjB,aAAOA,GAAG,CAAC9J,MAAX;EACH;EACJ,GAVU,0JAvvDkB;EAqwD7B;EACA,oBAAkBvD,GAAG,CAAC,gBAAD,EAAmB,UAAS+E,GAAT,EAA0B;EAAA,QAAZ9B,KAAY,uEAAJ,EAAI;EAC9D8Z,IAAAA,SAAS,CAAC,gBAAD,EAAmBhY,GAAnB,EAAwB,QAAxB,EAAkC,CAAlC,CAAT;EACAgY,IAAAA,SAAS,CAAC,gBAAD,EAAmB9Z,KAAnB,EAA0B,QAA1B,EAAoC,CAApC,CAAT;EACA8B,IAAAA,GAAG,GAAGA,GAAG,CAACiB,OAAJ,EAAN;EACA/C,IAAAA,KAAK,GAAGA,KAAK,CAAC+C,OAAN,EAAR;;EACA,QAAIjB,GAAG,CAACE,KAAJ,CAAUP,gBAAV,KAA+BK,GAAG,CAACE,KAAJ,CAAUV,WAAV,CAAnC,EAA2D;EACvD,aAAOmB,cAAc,CAACX,GAAD,EAAM9B,KAAN,CAArB;EACH,KAFD,MAEO,IAAI8B,GAAG,CAACE,KAAJ,CAAUN,eAAV,KAA8BI,GAAG,CAACE,KAAJ,CAAUX,UAAV,CAAlC,EAAyD;EAC5D,aAAOqC,aAAa,CAAC5B,GAAD,EAAM9B,KAAN,CAApB;EACH,KAFM,MAEA;EACH,UAAMm1B,UAAU,GAAIn1B,KAAK,KAAK,EAAV,IAAgB,CAAC8B,GAAG,CAACE,KAAJ,CAAU,IAAV,CAAlB,IAAsChC,KAAK,KAAK,EAAnE;;EACA,UAAI8B,GAAG,CAACE,KAAJ,CAAUR,WAAV,KAA0B2zB,UAA1B,IAAwCrzB,GAAG,CAACE,KAAJ,CAAUT,MAAV,CAA5C,EAA+D;EAC3D,eAAOyB,aAAa,CAAClB,GAAD,EAAM9B,KAAN,CAApB;EACH;;EACD,UAAI8B,GAAG,CAACE,KAAJ,CAAUvC,QAAV,CAAJ,EAAyB;EACrB,eAAOqE,WAAW,CAAChC,GAAD,CAAlB;EACH;EACJ;;EACD,WAAO,KAAP;EACH,GAnBoB,qFAtwDQ;EA4xD7B;EACA,SAAO/E,GAAG,CAAC,IAAI4W,KAAJ,CAAU,KAAV,EAAiB,UAASf,IAAT,UAAyC;EAAA;;EAAA,QAAxBoM,aAAwB,UAAxBA,aAAwB;EAAA,QAATlM,MAAS,UAATA,KAAS;EACjE,WAAO,IAAI9G,OAAJ,CAAY,UAAC6hB,OAAD,EAAUC,MAAV,EAAqB;EACpC,UAAIsH,YAAJ,EAAkBC,cAAlB;;EACA,UAAIhvB,OAAO,CAACwD,EAAR,CAAW+I,IAAI,CAACH,GAAL,CAASa,GAAT,CAAaA,GAAxB,EAA6B,OAA7B,CAAJ,EAA2C;EACvC8hB,QAAAA,YAAY,GAAGxiB,IAAI,CAACH,GAAL,CAASa,GAAxB;;EACA,YAAIV,IAAI,CAACH,GAAL,CAASA,GAAT,YAAwBC,IAAxB,IACArM,OAAO,CAACwD,EAAR,CAAW+I,IAAI,CAACH,GAAL,CAASA,GAAT,CAAaa,GAAb,CAAiBA,GAA5B,EAAiC,SAAjC,CADJ,EACiD;EAC7C+hB,UAAAA,cAAc,GAAGziB,IAAI,CAACH,GAAL,CAASA,GAAT,CAAaa,GAA9B;EACH;EACJ,OAND,MAMO,IAAIjN,OAAO,CAACwD,EAAR,CAAW+I,IAAI,CAACH,GAAL,CAASa,GAAT,CAAaA,GAAxB,EAA6B,SAA7B,CAAJ,EAA6C;EAChD+hB,QAAAA,cAAc,GAAGziB,IAAI,CAACH,GAAL,CAASa,GAA1B;EACH;;EACD,UAAI,EAAE+hB,cAAc,IAAID,YAApB,CAAJ,EAAuC;EACnC,cAAM,IAAI3xB,KAAJ,CAAU,qBAAV,CAAN;EACH;;EACD,UAAIsV,KAAI,GAAG8U,OAAX;;EACA,UAAIwH,cAAJ,EAAoB;EAChBtc,QAAAA,KAAI,GAAG,cAASjZ,MAAT,EAAiBqI,IAAjB,EAAuB;EAC1B;EACA4Q,UAAAA,KAAI,GAAG+U,MAAP;EACAxZ,UAAAA,SAAS,CAACzB,SAAQ,CAAC,IAAIH,IAAJ,CACf,IAAIrM,OAAJ,CAAY,OAAZ,CADe,EAEfgvB,cAAc,CAAC5iB,GAFA,CAAD,EAGfpK,IAHe,CAAT,EAGC,YAAW;EACjBF,YAAAA,IAAI,CAACrI,MAAD,CAAJ;EACH,WALQ,CAAT;EAMH,SATD;EAUH;;EACD,UAAIuI,IAAI,GAAG;EACPuJ,QAAAA,GAAG,EAAE,OADE;EAEPkB,QAAAA,KAAK,EAAE,eAACvV,CAAD,EAAO;EACV,cAAIqU,GAAG,GAAG,OAAI,CAACkT,OAAL,CAAa,KAAb,CAAV;;EACA,cAAIsQ,YAAJ,EAAkB;EACdxjB,YAAAA,GAAG,CAAC/D,GAAJ,CAAQunB,YAAY,CAAC3iB,GAAb,CAAiBa,GAAjB,CAAqBA,GAA7B,EAAkC/V,CAAlC;EACA,gBAAI8K,IAAI,GAAG;EACPuJ,cAAAA,GAAG,EAAHA,GADO;EAEPkB,cAAAA,KAAK,EAALA;EAFO,aAAX;;EAIA,gBAAIkM,aAAJ,EAAmB;EACf3W,cAAAA,IAAI,CAAC2W,aAAL,GAAqB,OAArB;EACH;;EACD1K,YAAAA,SAAS,CAACzB,SAAQ,CAAC,IAAIH,IAAJ,CACf,IAAIrM,OAAJ,CAAY,OAAZ,CADe,EAEf+uB,YAAY,CAAC3iB,GAAb,CAAiBA,GAFF,CAAD,EAGfpK,IAHe,CAAT,EAGC,UAASvI,MAAT,EAAiB;EACvBiZ,cAAAA,KAAI,CAACjZ,MAAD,EAAS+tB,OAAT,CAAJ;EACH,aALQ,CAAT;EAMH,WAfD,MAeO;EACH9U,YAAAA,KAAI,CAACxb,CAAD,EAAIuV,MAAJ,CAAJ;EACH;EACJ;EAtBM,OAAX;;EAwBA,UAAIkM,aAAJ,EAAmB;EACf3W,QAAAA,IAAI,CAAC2W,aAAL,GAAqB,OAArB;EACH;;EACD,UAAIlf,MAAM,GAAG+S,SAAQ,CAACD,IAAI,CAACU,GAAN,EAAWjL,IAAX,CAArB;;EACA,UAAIzJ,UAAU,CAACkB,MAAD,CAAd,EAAwB;EACpBA,QAAAA,MAAM,CAACjB,IAAP,CAAY,UAAAiB,MAAM,EAAI;EAClBiZ,UAAAA,KAAI,CAACjZ,MAAD,EAAS+tB,OAAT,CAAJ;EACH,SAFD,WAESxlB,IAAI,CAACyK,KAFd;EAGH,OAJD,MAIO;EACHiG,QAAAA,KAAI,CAACjZ,MAAD,EAAS+tB,OAAT,CAAJ;EACH;EACJ,KA9DM,CAAP;EA+DH,GAhEU,CAAD,sVA7xDmB;EAo2D7B;EACA,WAAS9wB,GAAG,CAAC,OAAD,EAAU,UAASqN,GAAT,EAAc;EAChC,UAAMA,GAAN;EACH,GAFW,uEAr2DiB;EA02D7B,WAASrN,GAAG,CAAC,OAAD,EAAU,UAASmf,OAAT,EAAkB;EACpC,UAAM,IAAIzY,KAAJ,CAAUyY,OAAV,CAAN;EACH,GAFW,wDA12DiB;EA+2D7B;EACAxH,EAAAA,IAAI,EAAE3X,GAAG,CAAC,MAAD,EAAS,SAAS2X,IAAT,CAAc5S,GAAd,EAAmB2H,IAAnB,EAAyB;EACvCqQ,IAAAA,SAAS,CAAC,MAAD,EAAShY,GAAT,EAAc,CAAC,OAAD,EAAU,UAAV,CAAd,CAAT;EACAgY,IAAAA,SAAS,CAAC,MAAD,EAASrQ,IAAT,EAAe,CAAC,MAAD,EAAS,KAAT,CAAf,CAAT;;EACA,QAAIiZ,OAAO,CAACjZ,IAAD,CAAX,EAAmB;each,aAAO6I,IAAP;EACH;;EACD,QAAI1V,EAAE,GAAGqY,OAAO,CAAC,MAAD,EAASnT,GAAT,CAAhB;EACA,WAAOwS,SAAS,CAAC1X,EAAE,CAAC6M,IAAI,CAAC6J,GAAN,CAAH,EAAe,UAAShV,KAAT,EAAgB;EAC3C,UAAIA,KAAK,IAAIA,KAAK,KAAKgU,IAAvB,EAA4B;EACxB,eAAO7I,IAAI,CAAC6J,GAAZ;EACH;;EACD,aAAOoB,IAAI,CAAC5S,GAAD,EAAM2H,IAAI,CAACgJ,GAAX,CAAX;EACH,KALe,CAAhB;EAMH,GAbQ,2MAh3DoB;EAk4D7B;EACA,cAAY1V,GAAG,CAAC,UAAD,EAAa,UAASH,EAAT,EAAuB;EAAA;;EAC/Ckd,IAAAA,SAAS,CAAC,UAAD,EAAald,EAAb,EAAiB,UAAjB,CAAT;;EAD+C,wCAAP8jB,KAAO;EAAPA,MAAAA,KAAO;EAAA;;EAE/CA,IAAAA,KAAK,CAAC3gB,OAAN,CAAc,UAAC+B,GAAD,EAAMkH,CAAN,EAAY;EACtB8Q,MAAAA,SAAS,CAAC,UAAD,EAAahY,GAAb,EAAkB,CAAC,MAAD,EAAS,KAAT,CAAlB,EAAmCkH,CAAC,GAAG,CAAvC,CAAT;EACH,KAFD,EAF+C;EAM/C;EACA;;EACA,QAAIuL,GAAG,GAAG,oBAAAhW,UAAU,CAACC,GAAX,CAAe,KAAf,GAAsBd,IAAtB,0BAA2B,IAA3B,EAAiCd,EAAjC,SAAwC8jB,KAAxC,EAAV;;EACA,QAAI9hB,UAAU,CAAC2V,GAAD,CAAd,EAAqB;EACjB,aAAOA,GAAG,CAAC1V,IAAJ,CAAS,YAAM,EAAf,CAAP;EACH;EACJ,GAZc,kUAn4Dc;EAq5D7B;EACAqC,EAAAA,GAAG,EAAEnE,GAAG,CAAC,KAAD,EAAQ,SAASmE,GAAT,CAAatE,EAAb,EAA2B;EAAA;;EAAA,wCAAP8jB,KAAO;EAAPA,MAAAA,KAAO;EAAA;;EACvC5G,IAAAA,SAAS,CAAC,KAAD,EAAQld,EAAR,EAAY,UAAZ,CAAT;EACA,QAAIi4B,OAAO,GAAGt2B,UAAU,CAACC,GAAX,CAAe,OAAf,CAAd;EACAkiB,IAAAA,KAAK,CAAC3gB,OAAN,CAAc,UAAC+B,GAAD,EAAMkH,CAAN,EAAY;EACtB8Q,MAAAA,SAAS,CAAC,KAAD,EAAQhY,GAAR,EAAa,CAAC,MAAD,EAAS,KAAT,CAAb,EAA8BkH,CAAC,GAAG,CAAlC,CAAT,CADsB;;EAGtB,UAAIlH,GAAG,YAAY4Q,IAAf,IAAuB,CAACmiB,OAAO,CAACn3B,IAAR,CAAa,OAAb,EAAmBoE,GAAnB,CAA5B,EAAqD;EACjD,cAAM,IAAI2B,KAAJ,yBAA2BuF,CAAC,GAAG,CAA/B,oBAAN;EACH;EACJ,KAND;;EAOA,QAAI0X,KAAK,CAACpgB,MAAN,KAAiB,CAArB,EAAwB;EACpB,aAAOgS,IAAP;EACH;;EACD,QAAIoO,KAAK,CAAC1G,IAAN,CAAW,UAAAhc,CAAC;EAAA,aAAIA,CAAC,KAAKsU,IAAV;EAAA,KAAZ,CAAJ,EAAgC;EAC5B,aAAOA,IAAP;EACH;;EACD,QAAIjK,IAAI,GAAGqY,KAAK,CAACxf,GAAN,CAAU,UAAAo0B,CAAC;EAAA,aAAIA,CAAC,CAAChiB,GAAN;EAAA,KAAX,CAAX;EACA,QAAImd,YAAY,GAAG,KAAKjyB,GAAL,CAAS,cAAT,CAAnB;EACA,QAAIoT,GAAG,GAAG,KAAK2e,QAAL,CAAc3zB,EAAd,EAAkByL,IAAlB,CAAV;EACAuJ,IAAAA,GAAG,CAAC/D,GAAJ,CAAQ,cAAR,EAAwB4iB,YAAxB;EACA,WAAOnc,SAAS,CAAC1X,EAAE,CAACc,IAAH,OAAAd,EAAE,GAAMgV,GAAN,4BAAcvJ,IAAd,GAAH,EAAwB,UAACgK,IAAD,EAAU;EAC9C,aAAOiC,SAAS,CAACpT,GAAG,CAACxD,IAAJ,OAAAwD,GAAG,GAAM,OAAN,EAAYtE,EAAZ,4BAAmB8jB,KAAK,CAACxf,GAAN,CAAU,UAAAo0B,CAAC;EAAA,eAAIA,CAAC,CAAC7iB,GAAN;EAAA,OAAX,CAAnB,GAAJ,EAA+C,UAACzK,IAAD,EAAU;EACrE,eAAO,IAAI0K,IAAJ,CAASL,IAAT,EAAerK,IAAf,CAAP;EACH,OAFe,CAAhB;EAGH,KAJe,CAAhB;EAKH,GAzBO,4bAt5DqB;EAu7D7B;EACA,WAASjL,GAAG,CAAC,OAAD,EAAU,UAASqN,GAAT,EAAc;EAChC,QAAIqP,IAAI,GAAGrP,GAAX;;EACA,WAAO,IAAP,EAAa;EACT,UAAIqP,IAAI,KAAKnH,IAAb,EAAkB;EACd,eAAO,IAAP;EACH;;EACD,UAAI,EAAEmH,IAAI,YAAY/G,IAAlB,CAAJ,EAA6B;EACzB,eAAO,KAAP;EACH;;EACD,UAAI+G,IAAI,CAACM,UAAL,CAAgB,KAAhB,CAAJ,EAA4B;EACxB,eAAO,KAAP;EACH;;EACDN,MAAAA,IAAI,GAAGA,IAAI,CAAChH,GAAZ;EACH;EACJ,GAdW,wKAx7DiB;EA08D7B;EACAuH,EAAAA,IAAI,EAAEjd,GAAG,CAAC,MAAD,EAAS,SAASid,IAAT,CAAcpd,EAAd,EAAkB6M,IAAlB,EAAwB;EACtCqQ,IAAAA,SAAS,CAAC,MAAD,EAASld,EAAT,EAAa,UAAb,CAAT;EACAkd,IAAAA,SAAS,CAAC,MAAD,EAASrQ,IAAT,EAAe,CAAC,MAAD,EAAS,KAAT,CAAf,CAAT;;EACA,QAAIiZ,OAAO,CAACjZ,IAAD,CAAX,EAAmB;each,aAAO,KAAP;EACH,KAFD,MAEO;EACH,aAAO6K,SAAS,CAAC1X,EAAE,CAAC6M,IAAI,CAAC6J,GAAN,CAAH,EAAe,UAAChV,KAAD,EAAW;EACtC,eAAOA,KAAK,IAAI0b,IAAI,CAACpd,EAAD,EAAK6M,IAAI,CAACgJ,GAAV,CAApB;EACH,OAFe,CAAhB;EAGH;EACJ,GAVQ,0QA38DoB;EA09D7B;EACAiT,EAAAA,IAAI,EAAE3oB,GAAG,CAAC,MAAD,EAAS2oB,IAAI,CAAC,MAAD,EAAS,UAASA,IAAT,EAAe9oB,EAAf,EAAmBnB,IAAnB,EAAmC;EAAA,wCAAPilB,KAAO;EAAPA,MAAAA,KAAO;EAAA;;EAC9D5G,IAAAA,SAAS,CAAC,MAAD,EAASld,EAAT,EAAa,UAAb,CAAT;EACA8jB,IAAAA,KAAK,CAAC3gB,OAAN,CAAc,UAAC+B,GAAD,EAAMkH,CAAN,EAAY;EACtB8Q,MAAAA,SAAS,CAAC,MAAD,EAAShY,GAAT,EAAc,CAAC,MAAD,EAAS,KAAT,CAAd,EAA+BkH,CAAC,GAAG,CAAnC,CAAT;EACH,KAFD;;EAGA,QAAI0X,KAAK,CAAC1G,IAAN,CAAW,UAAAhc,CAAC;EAAA,aAAIA,CAAC,KAAKsU,IAAV;EAAA,KAAZ,CAAJ,EAAgC;EAC5B,aAAO7W,IAAP;EACH;;EACD,QAAM6C,KAAK,GAAGonB,IAAI,CAAChoB,IAAL,OAAAgoB,IAAI,GAAM,IAAN,EAAY9oB,EAAZ,EAAgBnB,IAAhB,4BAAyBilB,KAAK,CAACxf,GAAN,CAAU,UAAAo0B,CAAC;EAAA,aAAIA,CAAC,CAAC7iB,GAAN;EAAA,KAAX,CAAzB,GAAlB;EACA,WAAO6B,SAAS,CAAChW,KAAD,EAAQ,UAAAA,KAAK,EAAI;EAC7B,aAAO1B,EAAE,MAAF,4BAAM8jB,KAAK,CAACxf,GAAN,CAAU,UAAAo0B,CAAC;EAAA,eAAIA,CAAC,CAAChiB,GAAN;EAAA,OAAX,CAAN,UAA6BhV,KAA7B,GAAP;EACH,KAFe,CAAhB;EAGH,GAZqB,CAAb,0RA39DoB;EA6+D7B;EACAi3B,EAAAA,KAAK,EAAEx4B,GAAG,CAAC,OAAD,EAAU,SAASw4B,KAAT,GAAwB;EAAA,wCAAN30B,IAAM;EAANA,MAAAA,IAAM;EAAA;;EACxC,WAAO,UAASwJ,GAAT,EAAc;EACjBxJ,MAAAA,IAAI,GAAGA,IAAI,CAACM,GAAL,CAAS,UAAAlD,CAAC;EAAA,eAAIA,CAAC,YAAYqI,OAAb,GAAuBrI,CAAC,CAAC0L,QAAzB,GAAoC1L,CAAxC;EAAA,OAAV,CAAP;;EACA,UAAI4C,IAAI,CAACN,MAAL,KAAgB,CAApB,EAAuB;EACnB,eAAOgS,IAAP;EACH,OAFD,MAEO,IAAI1R,IAAI,CAACN,MAAL,KAAgB,CAApB,EAAuB;EAC1B,qBAAcM,IAAd;EAAA;EAAA,YAAOuS,MAAP;;EACA,eAAO/I,GAAG,CAAC+I,MAAD,CAAV;EACH;;EACD,UAAIrT,MAAM,GAAG,EAAb;EACAc,MAAAA,IAAI,CAACb,OAAL,CAAa,UAACoT,GAAD,EAAS;EAClBrT,QAAAA,MAAM,CAACqT,GAAD,CAAN,GAAc/I,GAAG,CAAC+I,GAAD,CAAjB;EACH,OAFD;EAGA,aAAOrT,MAAP;EACH,KAbD;EAcH,GAfS,uQA9+DmB;EAkgE7B;EACA0R,EAAAA,MAAM,EAAEzU,GAAG,CAAC,QAAD,EAAW2oB,IAAI,CAAC,QAAD,EAAW,UAASlU,MAAT,EAAiB5U,EAAjB,EAAqBnB,IAArB,EAAqC;EAAA;;EAAA,wCAAPilB,KAAO;EAAPA,MAAAA,KAAO;EAAA;;EACtE5G,IAAAA,SAAS,CAAC,QAAD,EAAWld,EAAX,EAAe,UAAf,CAAT;EACA8jB,IAAAA,KAAK,CAAC3gB,OAAN,CAAc,UAAC+B,GAAD,EAAMkH,CAAN,EAAY;EACtB8Q,MAAAA,SAAS,CAAC,QAAD,EAAWhY,GAAX,EAAgB,CAAC,MAAD,EAAS,KAAT,CAAhB,EAAiCkH,CAAC,GAAG,CAArC,CAAT;EACH,KAFD;;EAGA,QAAI0X,KAAK,CAAC1G,IAAN,CAAW,UAAAhc,CAAC;EAAA,aAAIA,CAAC,KAAKsU,IAAV;EAAA,KAAZ,CAAJ,EAAgC;EAC5B,aAAO7W,IAAP;EACH;;EACD,WAAO6Y,SAAS,CAAC1X,EAAE,MAAF,4BAAM8jB,KAAK,CAACxf,GAAN,CAAU,UAAAo0B,CAAC;EAAA,aAAIA,CAAC,CAAChiB,GAAN;EAAA,KAAX,CAAN,UAA6B7X,IAA7B,GAAD,EAAqC,UAAC6C,KAAD,EAAW;EAC5D,aAAOkT,MAAM,CAAC9T,IAAP,OAAA8T,MAAM,GAAM,OAAN,EAAY5U,EAAZ,EAAgB0B,KAAhB,4BAA0BoiB,KAAK,CAACxf,GAAN,CAAU,UAAAo0B,CAAC;EAAA,eAAIA,CAAC,CAAC7iB,GAAN;EAAA,OAAX,CAA1B,GAAb;EACH,KAFe,CAAhB;EAGH,GAXyB,CAAf,ybAngEkB;EAshE7B;EACA9J,EAAAA,MAAM,EAAE5L,GAAG,CAAC,QAAD,EAAW,SAAS4L,MAAT,CAAgB7G,GAAhB,EAAqB2H,IAArB,EAA2B;EAC7CqQ,IAAAA,SAAS,CAAC,QAAD,EAAWhY,GAAX,EAAgB,CAAC,OAAD,EAAU,UAAV,CAAhB,CAAT;EACAgY,IAAAA,SAAS,CAAC,QAAD,EAAWrQ,IAAX,EAAiB,CAAC,MAAD,EAAS,KAAT,CAAjB,CAAT;EACA,QAAI2C,KAAK,GAAG7N,UAAU,CAACC,GAAX,CAAe,aAAf,EAA8BiL,IAA9B,CAAZ;EACA,QAAI3J,MAAM,GAAG,EAAb;EACA,QAAIlD,EAAE,GAAGqY,OAAO,CAAC,QAAD,EAAWnT,GAAX,CAAhB;EACA,WAAQ,SAAS4N,IAAT,CAAc1G,CAAd,EAAiB;EACrB,eAAS+P,IAAT,CAAcza,KAAd,EAAqB;EACjB,YAAIA,KAAK,IAAIA,KAAK,KAAKgU,IAAvB,EAA4B;EACxBxS,UAAAA,MAAM,CAACW,IAAP,CAAY0G,IAAZ;EACH;;EACD,eAAOuI,IAAI,CAAC,EAAE1G,CAAH,CAAX;EACH;;EACD,UAAIA,CAAC,KAAKoD,KAAK,CAAC9L,MAAhB,EAAwB;EACpB,eAAOoS,IAAI,CAACkB,SAAL,CAAe9T,MAAf,CAAP;EACH;;EACD,UAAIqH,IAAI,GAAGiF,KAAK,CAACpD,CAAD,CAAhB;EACA,aAAOsL,SAAS,CAAC1X,EAAE,CAACuK,IAAD,CAAH,EAAW4R,IAAX,CAAhB;EACH,KAZM,CAYJ,CAZI,CAAP;EAaH,GAnBU,oSAvhEkB;EAgjE7B;EACA0M,EAAAA,OAAO,EAAE1oB,GAAG,CACR0oB,OADQ,8RAjjEiB;EA2jE7BH,EAAAA,IAAI,EAAEvoB,GAAG,CACLuoB,IADK,0QA3jEoB;EAokE7BO,EAAAA,KAAK,EAAE9oB,GAAG,CACN8oB,KADM,2bApkEmB;EAilE7B;EACA;EACA;EACAiC,EAAAA,GAAG,EAAE/qB,GAAG,CAAC,KAAD,EAAQ,SAAS+qB,GAAT,GAAsB;EAAA,wCAANzf,IAAM;EAANA,MAAAA,IAAM;EAAA;;EAClCmtB,IAAAA,cAAc,CAAC,KAAD,EAAQntB,IAAR,EAAc,QAAd,CAAd;EACA,WAAOA,IAAI,CAACmJ,MAAL,CAAY,UAAS1R,MAAT,EAAiBqH,IAAjB,EAAuB;EACtC,aAAOrH,MAAM,CAACgoB,GAAP,CAAW3gB,IAAX,CAAP;EACH,KAFM,CAAP;EAGH,GALO,mGAplEqB;EA4lE7B;EACAsuB,EAAAA,GAAG,EAAE14B,GAAG,CAAC,KAAD,EAAQ,SAAS04B,GAAT,GAAsB;EAAA,wCAANptB,IAAM;EAANA,MAAAA,IAAM;EAAA;;EAClCmtB,IAAAA,cAAc,CAAC,KAAD,EAAQntB,IAAR,EAAc,QAAd,CAAd,CADkC;;EAGlC,QAAIzE,CAAC,GAAGyE,IAAI,CAAC/H,MAAb;EAAA,QAAqB8Q,CAAC,GAAGjM,GAAG,CAACkD,IAAI,CAAC,CAAD,CAAL,CAA5B;;EACA,SAAK,IAAIW,CAAC,GAAG,CAAb,EAAgBA,CAAC,GAAGpF,CAApB,EAAuBoF,CAAC,EAAxB,EAA4B;EACxB,UAAIqI,CAAC,GAAGlM,GAAG,CAACkD,IAAI,CAACW,CAAD,CAAL,CAAX;EAAA,UAAsBkiB,CAAC,GAAG9Z,CAA1B;;EACA,aAAOA,CAAC,IAAIC,CAAZ,EAAe;EACXD,QAAAA,CAAC,GAAGC,CAAJ,GAAQD,CAAC,IAAIC,CAAb,GAAiBA,CAAC,IAAID,CAAtB;EACH;;EACDA,MAAAA,CAAC,GAAGjM,GAAG,CAAC+lB,CAAC,GAAG7iB,IAAI,CAACW,CAAD,CAAT,CAAH,IAAoBoI,CAAC,GAAGC,CAAxB,CAAJ;EACH;;EACD,WAAOxO,OAAO,CAACuO,CAAD,CAAd;EACH,GAZO,iGA7lEqB;EA4mE7B;EACA,UAAQrU,GAAG,CAAC,MAAD,EAAS+oB,cAAc,CAAC,UAASnjB,GAAT,EAAc;EAC7C,WAAOE,OAAO,CAACF,GAAD,CAAP,CAAamnB,KAAb,EAAP;EACH,GAFiC,CAAvB,mEA7mEkB;EAknE7B;EACA,WAAS/sB,GAAG,CAAC,OAAD,EAAU+oB,cAAc,CAAC,UAASnjB,GAAT,EAAc;EAC/C,WAAOE,OAAO,CAACF,GAAD,CAAP,CAAaonB,MAAb,EAAP;EACH,GAFmC,CAAxB,qEAnnEiB;EAwnE7B;EACA;EACA,OAAKhtB,GAAG,CAAC,GAAD,EAAMipB,cAAc,CAAC,UAAS5U,CAAT,EAAYC,CAAZ,EAAe;EACxC,WAAOxO,OAAO,CAACuO,CAAD,CAAP,CAAW5L,GAAX,CAAe6L,CAAf,CAAP;EACH,GAF2B,EAEzBxO,OAAO,CAAC,CAAD,CAFkB,CAApB,yIA1nEqB;EAgoE7B;EACA,OAAK9F,GAAG,CAAC,GAAD,EAAMipB,cAAc,CAAC,UAAS5U,CAAT,EAAYC,CAAZ,EAAe;EACxC,WAAOxO,OAAO,CAACuO,CAAD,CAAP,CAAWhU,GAAX,CAAeiU,CAAf,CAAP;EACH,GAF2B,EAEzBxO,OAAO,CAAC,CAAD,CAFkB,CAApB,gIAjoEqB;EAuoE7B;EACA,OAAK9F,GAAG,CAAC,GAAD,EAAM,YAAkB;EAAA,wCAANsL,IAAM;EAANA,MAAAA,IAAM;EAAA;;EAC5B,QAAIA,IAAI,CAAC/H,MAAL,KAAgB,CAApB,EAAuB;EACnB,YAAM,IAAImD,KAAJ,CAAU,4CAAV,CAAN;EACH;;EACD+xB,IAAAA,cAAc,CAAC,GAAD,EAAMntB,IAAN,EAAY,QAAZ,CAAd;;EACA,QAAIA,IAAI,CAAC/H,MAAL,KAAgB,CAApB,EAAuB;EACnB,aAAOuC,OAAO,CAACwF,IAAI,CAAC,CAAD,CAAL,CAAP,CAAiBuQ,GAAjB,EAAP;EACH;;EACD,QAAIvQ,IAAI,CAAC/H,MAAT,EAAiB;EACb,aAAO+H,IAAI,CAACmJ,MAAL,CAAYuU,cAAc,CAAC,UAAS3U,CAAT,EAAYC,CAAZ,EAAe;EAC7C,eAAOxO,OAAO,CAACuO,CAAD,CAAP,CAAWwH,GAAX,CAAevH,CAAf,CAAP;EACH,OAFgC,CAA1B,CAAP;EAGH;EACJ,GAbO,+JAxoEqB;EA0pE7B;EACA,OAAKtU,GAAG,CAAC,GAAD,EAAM,YAAkB;EAAA,wCAANsL,IAAM;EAANA,MAAAA,IAAM;EAAA;;EAC5B,QAAIA,IAAI,CAAC/H,MAAL,KAAgB,CAApB,EAAuB;EACnB,YAAM,IAAImD,KAAJ,CAAU,4CAAV,CAAN;EACH;;EACD+xB,IAAAA,cAAc,CAAC,GAAD,EAAMntB,IAAN,EAAY,QAAZ,CAAd;;EACA,QAAIA,IAAI,CAAC/H,MAAL,KAAgB,CAApB,EAAuB;EACnB,aAAOuC,OAAO,CAAC,CAAD,CAAP,CAAWsnB,GAAX,CAAe9hB,IAAI,CAAC,CAAD,CAAnB,CAAP;EACH;;EACD,WAAOA,IAAI,CAACmJ,MAAL,CAAYuU,cAAc,CAAC,UAAS3U,CAAT,EAAYC,CAAZ,EAAe;EAC7C,aAAOxO,OAAO,CAACuO,CAAD,CAAP,CAAW+Y,GAAX,CAAe9Y,CAAf,CAAP;EACH,KAFgC,CAA1B,CAAP;EAGH,GAXO,wKA3pEqB;EA2qE7B;EACAlM,EAAAA,GAAG,EAAEpI,GAAG,CAAC,KAAD,EAAQ+oB,cAAc,CAAC,UAASliB,CAAT,EAAY;EACvC,WAAOf,OAAO,CAACe,CAAD,CAAP,CAAWuB,GAAX,EAAP;EACH,GAF6B,CAAtB,6EA5qEqB;EAirE7B;EACAmZ,EAAAA,QAAQ,EAAEvhB,GAAG,CAAC,UAAD,EAAa,UAAS6G,CAAT,EAAY;EAClCkW,IAAAA,SAAS,CAAC,UAAD,EAAalW,CAAb,EAAgB,QAAhB,CAAT;;EACA,QAAIf,OAAO,CAACmlB,OAAR,CAAgBpkB,CAAhB,CAAJ,EAAwB;EACpB,UAAIA,CAAC,YAAYf,OAAjB,EAA0B;EACtBe,QAAAA,CAAC,GAAGA,CAAC,CAACb,OAAF,EAAJ;EACH;;EACD,aAAOE,MAAM,CAACqb,QAAQ,CAAC1a,CAAD,CAAT,CAAb;EACH;;EACD,WAAOA,CAAP;EACH,GATY,gFAlrEgB;EA8rE7B;EACA+lB,EAAAA,IAAI,EAAE5sB,GAAG,CAAC,MAAD,EAAS+oB,cAAc,CAAC,UAASliB,CAAT,EAAY;EACzC,WAAOf,OAAO,CAACe,CAAD,CAAP,CAAW+lB,IAAX,EAAP;EACH,GAF+B,CAAvB,6EA/rEoB;EAosE7B;EACA,QAAM5sB,GAAG,CAAC,IAAD,EAAOgpB,cAAc,CAAC,UAAS3U,CAAT,EAAYC,CAAZ,EAAe;EAC1CD,IAAAA,CAAC,GAAGvO,OAAO,CAACuO,CAAD,CAAX;EACAC,IAAAA,CAAC,GAAGxO,OAAO,CAACwO,CAAD,CAAX;;EACA,QAAIA,CAAC,CAAC9M,GAAF,CAAM,CAAN,MAAa,CAAC,CAAlB,EAAqB;EACjB,aAAOtB,MAAM,CAAC,CAAD,CAAN,CAAUknB,GAAV,CAAc/Y,CAAd,EAAiB7L,GAAjB,CAAqB8L,CAAC,CAACuH,GAAF,EAArB,CAAP;EACH;;EACD,WAAOxH,CAAC,CAAC7L,GAAF,CAAM8L,CAAN,CAAP;EACH,GAP6B,CAArB,8EArsEoB;EA+sE7B;EACA,QAAMtU,GAAG,CAAC,IAAD,EAAO+oB,cAAc,CAAC,UAAStjB,MAAT,EAAiB;EAC5C,WAAOK,OAAO,CAACL,MAAD,CAAP,CAAgBpF,GAAhB,CAAoB,CAApB,CAAP;EACH,GAF6B,CAArB,gFAhtEoB;EAqtE7B;EACA,QAAML,GAAG,CAAC+oB,cAAc,CAAC,UAAStjB,MAAT,EAAiB;EACtC,WAAOK,OAAO,CAACL,MAAD,CAAP,CAAgBoW,GAAhB,CAAoB,CAApB,CAAP;EACH,GAFuB,CAAf,wFAttEoB;EA2tE7B;EACA,OAAK7b,GAAG,CAAC,GAAD,EAAM,UAASqU,CAAT,EAAYC,CAAZ,EAAe;EACzBmkB,IAAAA,cAAc,CAAC,GAAD,EAAM,CAACpkB,CAAD,EAAIC,CAAJ,CAAN,EAAc,QAAd,CAAd;EACA,WAAOxO,OAAO,CAACuO,CAAD,CAAP,CAAW/T,GAAX,CAAegU,CAAf,CAAP;EACH,GAHO,uEA5tEqB;EAkuE7B;EACA;EACA,QAAMtU,GAAG,CAAC,IAAD,EAAO,YAAkB;EAAA,wCAANsL,IAAM;EAANA,MAAAA,IAAM;EAAA;;EAC9BmtB,IAAAA,cAAc,CAAC,IAAD,EAAOntB,IAAP,EAAa,QAAb,CAAd;EACA,WAAOwV,WAAW,CAAC,UAACzM,CAAD,EAAIC,CAAJ;EAAA,aAAUxO,OAAO,CAACuO,CAAD,CAAP,CAAW7M,GAAX,CAAe8M,CAAf,MAAsB,CAAhC;EAAA,KAAD,EAAoChJ,IAApC,CAAlB;EACH,GAHQ,uGApuEoB;EA0uE7B;EACA,OAAKtL,GAAG,CAAC,GAAD,EAAM,YAAkB;EAAA,wCAANsL,IAAM;EAANA,MAAAA,IAAM;EAAA;;EAC5BmtB,IAAAA,cAAc,CAAC,GAAD,EAAMntB,IAAN,EAAY,QAAZ,CAAd;EACA,WAAOwV,WAAW,CAAC,UAACzM,CAAD,EAAIC,CAAJ;EAAA,aAAUxO,OAAO,CAACuO,CAAD,CAAP,CAAW7M,GAAX,CAAe8M,CAAf,MAAsB,CAAhC;EAAA,KAAD,EAAoChJ,IAApC,CAAlB;EACH,GAHO,sIA3uEqB;EAkvE7B;EACA,OAAKtL,GAAG,CAAC,GAAD,EAAM,YAAkB;EAAA,wCAANsL,IAAM;EAANA,MAAAA,IAAM;EAAA;;EAC5BmtB,IAAAA,cAAc,CAAC,GAAD,EAAMntB,IAAN,EAAY,QAAZ,CAAd;EACA,WAAOwV,WAAW,CAAC,UAACzM,CAAD,EAAIC,CAAJ;EAAA,aAAUxO,OAAO,CAACuO,CAAD,CAAP,CAAW7M,GAAX,CAAe8M,CAAf,MAAsB,CAAC,CAAjC;EAAA,KAAD,EAAqChJ,IAArC,CAAlB;EACH,GAHO,sIAnvEqB;EA0vE7B;EACA,QAAMtL,GAAG,CAAC,IAAD,EAAO,YAAkB;EAAA,wCAANsL,IAAM;EAANA,MAAAA,IAAM;EAAA;;EAC9BmtB,IAAAA,cAAc,CAAC,IAAD,EAAOntB,IAAP,EAAa,QAAb,CAAd;EACA,WAAOwV,WAAW,CAAC,UAACzM,CAAD,EAAIC,CAAJ;EAAA,aAAU,CAAC,CAAD,EAAI,CAAC,CAAL,EAAQhP,QAAR,CAAiBQ,OAAO,CAACuO,CAAD,CAAP,CAAW7M,GAAX,CAAe8M,CAAf,CAAjB,CAAV;EAAA,KAAD,EAAgDhJ,IAAhD,CAAlB;EACH,GAHQ,0IA3vEoB;EAkwE7B;EACA,QAAMtL,GAAG,CAAC,IAAD,EAAO,YAAkB;EAAA,wCAANsL,IAAM;EAANA,MAAAA,IAAM;EAAA;;EAC9BmtB,IAAAA,cAAc,CAAC,IAAD,EAAOntB,IAAP,EAAa,QAAb,CAAd;EACA,WAAOwV,WAAW,CAAC,UAACzM,CAAD,EAAIC,CAAJ;EAAA,aAAU,CAAC,CAAD,EAAI,CAAJ,EAAOhP,QAAP,CAAgBQ,OAAO,CAACuO,CAAD,CAAP,CAAW7M,GAAX,CAAe8M,CAAf,CAAhB,CAAV;EAAA,KAAD,EAA+ChJ,IAA/C,CAAlB;EACH,GAHQ,0IAnwEoB;EA0wE7B;EACA,SAAOtL,GAAG,CACN,KADM,EAEN+gB,KAFM,iFA3wEmB;EAixE7B;EACA4X,EAAAA,EAAE,EAAE34B,GAAG,CAAC,IAAI4W,KAAJ,CAAU,IAAV,EAAgB,UAASf,IAAT,UAAyC;EAAA,QAAxBoM,aAAwB,UAAxBA,aAAwB;EAAA,QAATlM,KAAS,UAATA,KAAS;EAC7D,QAAIzK,IAAI,GAAG9J,UAAU,CAACC,GAAX,CAAe,aAAf,EAA8BoU,IAA9B,CAAX;EACA,QAAIzW,IAAI,GAAG,IAAX;;EACA,QAAI6iB,aAAJ,EAAmB;EACfA,MAAAA,aAAa,GAAG7iB,IAAhB;EACH;;EACD,QAAI,CAACkM,IAAI,CAAC/H,MAAV,EAAkB;EACd,aAAO,KAAP;EACH;;EACD,QAAIR,MAAJ;EACA,WAAQ,SAAS4P,IAAT,GAAgB;EACpB,eAASqJ,IAAT,CAAcza,KAAd,EAAqB;EACjBwB,QAAAA,MAAM,GAAGxB,KAAT;;EACA,YAAIwB,MAAM,KAAK,KAAf,EAAsB;EAClB,iBAAOA,MAAP;EACH,SAFD,MAEO;EACH,iBAAO4P,IAAI,EAAX;EACH;EACJ;;EACD,UAAI,CAACrH,IAAI,CAAC/H,MAAV,EAAkB;EACd,YAAIR,MAAM,KAAK,KAAf,EAAsB;EAClB,iBAAOA,MAAP;EACH,SAFD,MAEO;EACH,iBAAO,KAAP;EACH;EACJ,OAND,MAMO;EACH,YAAIgC,GAAG,GAAGuG,IAAI,CAACwO,KAAL,EAAV;;EACA,YAAIvY,KAAK,GAAGuU,SAAQ,CAAC/Q,GAAD,EAAM;EAAE8P,UAAAA,GAAG,EAAEzV,IAAP;EAAa6iB,UAAAA,aAAa,EAAbA,aAAb;EAA4BlM,UAAAA,KAAK,EAALA;EAA5B,SAAN,CAApB;;EACA,eAAOwB,SAAS,CAAChW,KAAD,EAAQya,IAAR,CAAhB;EACH;EACJ,KApBM,EAAP;EAqBH,GA/BO,CAAD,oMAlxEsB;EAqzE7B;EACA4c,EAAAA,GAAG,EAAE54B,GAAG,CAAC,IAAI4W,KAAJ,CAAU,KAAV,EAAiB,UAASf,IAAT,EAA8C;EAAA,qFAAJ,EAAI;EAAA,QAA7BoM,aAA6B,UAA7BA,aAA6B;EAAA,QAAdlM,KAAc,UAAdA,KAAc;;EACpE,QAAIzK,IAAI,GAAG9J,UAAU,CAACC,GAAX,CAAe,aAAf,EAA8BoU,IAA9B,CAAX;EACA,QAAIzW,IAAI,GAAG,IAAX;;EACA,QAAI6iB,aAAJ,EAAmB;EACfA,MAAAA,aAAa,GAAG7iB,IAAhB;EACH;;EACD,QAAI,CAACkM,IAAI,CAAC/H,MAAV,EAAkB;EACd,aAAO,IAAP;EACH;;EACD,QAAIR,MAAJ;EACA,WAAQ,SAAS4P,IAAT,GAAgB;EACpB,eAASqJ,IAAT,CAAcza,KAAd,EAAqB;EACjBwB,QAAAA,MAAM,GAAGxB,KAAT;;EACA,YAAIwB,MAAM,KAAK,KAAf,EAAsB;EAClB,iBAAO,KAAP;EACH,SAFD,MAEO;EACH,iBAAO4P,IAAI,EAAX;EACH;EACJ;;EACD,UAAI,CAACrH,IAAI,CAAC/H,MAAV,EAAkB;EACd,YAAIR,MAAM,KAAK,KAAf,EAAsB;EAClB,iBAAOA,MAAP;EACH,SAFD,MAEO;EACH,iBAAO,KAAP;EACH;EACJ,OAND,MAMO;EACH,YAAIgC,GAAG,GAAGuG,IAAI,CAACwO,KAAL,EAAV;;EACA,YAAIvY,KAAK,GAAGuU,SAAQ,CAAC/Q,GAAD,EAAM;EAAE8P,UAAAA,GAAG,EAAEzV,IAAP;EAAa6iB,UAAAA,aAAa,EAAbA,aAAb;EAA4BlM,UAAAA,KAAK,EAALA;EAA5B,SAAN,CAApB;;EACA,eAAOwB,SAAS,CAAChW,KAAD,EAAQya,IAAR,CAAhB;EACH;EACJ,KApBM,EAAP;EAqBH,GA/BQ,CAAD,6QAtzEqB;EA01E7B;EACA,OAAKhc,GAAG,CAAC,GAAD,EAAM,UAASqU,CAAT,EAAYC,CAAZ,EAAe;EACzB,WAAOxO,OAAO,CAACuO,CAAD,CAAP,CAAWskB,EAAX,CAAcrkB,CAAd,CAAP;EACH,GAFO,gEA31EqB;EAg2E7B,OAAKtU,GAAG,CAAC,GAAD,EAAM,UAASqU,CAAT,EAAYC,CAAZ,EAAe;EACzB,WAAOxO,OAAO,CAACuO,CAAD,CAAP,CAAWukB,GAAX,CAAetkB,CAAf,CAAP;EACH,GAFO,iEAh2EqB;EAq2E7B,OAAKtU,GAAG,CAAC,GAAD,EAAM,UAASqU,CAAT,EAAY;EACtB,WAAOvO,OAAO,CAACuO,CAAD,CAAP,CAAWzR,GAAX,EAAP;EACH,GAFO,yDAr2EqB;EA02E7B,QAAM5C,GAAG,CAAC,IAAD,EAAO,UAASqU,CAAT,EAAYC,CAAZ,EAAe;EAC3B,WAAOxO,OAAO,CAACuO,CAAD,CAAP,CAAWwkB,GAAX,CAAevkB,CAAf,CAAP;EACH,GAFQ,wEA12EoB;EA+2E7B,QAAMtU,GAAG,CAAC,IAAD,EAAO,UAASqU,CAAT,EAAYC,CAAZ,EAAe;EAC3B,WAAOxO,OAAO,CAACuO,CAAD,CAAP,CAAWykB,GAAX,CAAexkB,CAAf,CAAP;EACH,GAFQ,uEA/2EoB;EAo3E7BykB,EAAAA,GAAG,EAAE/4B,GAAG,CAAC,KAAD,EAAQ,SAAS+4B,GAAT,CAAax3B,KAAb,EAAoB;EAChC,QAAIokB,OAAO,CAACpkB,KAAD,CAAX,EAAoB;EAChB,aAAO,IAAP;EACH;;EACD,WAAO,CAACA,KAAR;EACH,GALO;EAp3EqB,CAAhB,EA43Ed/C,SA53Ec,EA43EH,QA53EG,CAAjB;EA63EA,IAAIuD,QAAQ,GAAGP,UAAU,CAACumB,OAAX,CAAmB,UAAnB,CAAf;;EAEA,SAASiL,mBAAT,CAA6BkB,WAA7B,EAA0CrmB,QAA1C,EAAoD;EAChDqmB,EAAAA,WAAW,CAACzJ,QAAZ,CAAqB,kBAArB,EAAyC5c,QAAzC;EACAqmB,EAAAA,WAAW,CAACl0B,GAAZ,CACI,kBADJ;EASAwB,EAAAA,UAAU,CAACsP,GAAX,CAAe,6BAAf,EAA8CojB,WAA9C;EACH;;;EAEDlB,mBAAmB,CAACjxB,QAAD,EAAWgxB,YAAX,CAAnB;EACAvxB,UAAU,CAACxB,GAAX,CACI,6BADJ;;EASA,CAAC,YAAW;EACR,MAAImE,GAAG,GAAG;EAAEsd,IAAAA,IAAI,EAAE;EAAR,GAAV;EACA,GAAC,OAAD,EAAU,OAAV,EAAmB,MAAnB,EAA2Bze,OAA3B,CAAmC,UAAAnD,EAAE,EAAI;EACrC,QAAI2M,IAAI,GAAGrI,GAAG,CAACtE,EAAD,CAAH,GAAUsE,GAAG,CAACtE,EAAD,CAAb,GAAoBA,EAA/B;EACA2B,IAAAA,UAAU,CAACsP,GAAX,CAAetE,IAAf,EAAqBxM,GAAG,CAACwM,IAAD,EAAO,UAASjL,KAAT,EAAgB;EAC3Cwb,MAAAA,SAAS,CAACvQ,IAAD,EAAOjL,KAAP,EAAc,QAAd,CAAT;;EACA,UAAIA,KAAK,YAAYuE,OAArB,EAA8B;EAC1B,eAAOvE,KAAK,CAAC1B,EAAD,CAAL,EAAP;EACH;EACJ,KALuB,aAKjB2M,IALiB,4DAOKA,IAPL,mBAAxB;EAQH,GAVD;EAWH,CAbD;EAeA;;;EACA,SAASwsB,gBAAT,CAA0BtoB,GAA1B,EAA+B;EAC3B,MAAIA,GAAG,CAACnN,MAAJ,KAAe,CAAnB,EAAsB;EAClB,WAAOmN,GAAG,CAAC,CAAD,CAAV;EACH,GAFD,MAEO;EACH,QAAI3N,MAAM,GAAG,EAAb,CADG;;EAGH,QAAIk2B,cAAc,GAAGD,gBAAgB,CAACtoB,GAAG,CAACxE,KAAJ,CAAU,CAAV,CAAD,CAArC;;EACA,SAAK,IAAID,CAAC,GAAG,CAAb,EAAgBA,CAAC,GAAGgtB,cAAc,CAAC11B,MAAnC,EAA2C0I,CAAC,EAA5C,EAAgD;EAC5C,WAAK,IAAImQ,CAAC,GAAG,CAAb,EAAgBA,CAAC,GAAG1L,GAAG,CAAC,CAAD,CAAH,CAAOnN,MAA3B,EAAmC6Y,CAAC,EAApC,EAAwC;EACpCrZ,QAAAA,MAAM,CAACW,IAAP,CAAYgN,GAAG,CAAC,CAAD,CAAH,CAAO0L,CAAP,IAAY6c,cAAc,CAAChtB,CAAD,CAAtC;EACH;EACJ;;EACD,WAAOlJ,MAAP;EACH;EACJ;;;EAGD,SAASm2B,YAAT,CAAsBvoB,KAAtB,EAA6B+B,KAA7B,EAAoCrG,GAApC,EAAyC;EACrC,MAAItJ,MAAM,GAAG,EAAb;;EACA,OAAK,IAAIkJ,CAAC,GAAGyG,KAAb,EAAoBzG,CAAC,IAAII,GAAzB,EAA8B,EAAEJ,CAAhC,EAAmC;EAC/B,QAAIktB,SAAS,GAAG,EAAhB;;EACA,SAAK,IAAI/c,CAAC,GAAG,CAAb,EAAgBA,CAAC,GAAGnQ,CAApB,EAAuB,EAAEmQ,CAAzB,EAA4B;EACxB+c,MAAAA,SAAS,CAACz1B,IAAV,CAAeiN,KAAf;EACH;;EACD5N,IAAAA,MAAM,GAAGA,MAAM,CAACoQ,MAAP,CAAc6lB,gBAAgB,CAACG,SAAD,CAA9B,CAAT;EACH;;EACD,SAAOp2B,MAAP;EACH;EAGD;;;EACAm2B,YAAY,CAAC,CAAC,GAAD,EAAM,GAAN,CAAD,EAAa,CAAb,EAAgB,CAAhB,CAAZ,CAA+Bl2B,OAA/B,CAAuC,UAAAo2B,IAAI,EAAI;EAC3C,MAAM7e,CAAC,GAAG6e,IAAI,CAAC/zB,KAAL,CAAW,EAAX,CAAV;EACA,MAAM4D,KAAK,GAAGsR,CAAC,CAACrO,KAAF,GAAUC,OAAV,EAAd;EACA,MAAM0J,IAAI,GAAG0E,CAAC,CAACpW,GAAF,CAAM,UAAAgqB,CAAC;EAAA,uBAASA,CAAT;EAAA,GAAP,EAAsBrqB,IAAtB,CAA2B,GAA3B,IAAkC,MAAlC,GAA2C,IAAIu1B,MAAJ,CAAW9e,CAAC,CAAChX,MAAb,CAAxD;EACA,MAAMiJ,IAAI,GAAG,MAAM4sB,IAAN,GAAa,GAA1B;EACA53B,EAAAA,UAAU,CAACsP,GAAX,CAAetE,IAAf,EAAqBxM,GAAG,CAACwM,IAAD,EAAO,UAASzH,GAAT,EAAc;EACzC,WAAOkE,KAAK,CAACwL,MAAN,CAAa,UAAS/H,IAAT,EAAejM,IAAf,EAAqB;EACrCsc,MAAAA,SAAS,CAACvQ,IAAD,EAAOE,IAAP,EAAa,MAAb,CAAT;;EACA,UAAIjM,IAAI,KAAK,GAAb,EAAkB;EACd,eAAOiM,IAAI,CAAC6J,GAAZ;EACH,OAFD,MAEO;EACH,eAAO7J,IAAI,CAACgJ,GAAZ;EACH;EACJ,KAPM,EAOJ3Q,GAPI,CAAP;EAQH,GATuB,aASjByH,IATiB,qDAWKqJ,IAXL,EAAxB;EAYH,CAjBD;;EAmBA,SAASyjB,YAAT,CAAsBC,GAAtB,EAA2B15B,EAA3B,EAA+B;EAC3B,MAAImF,KAAK,GAAGu0B,GAAG,CAACl0B,KAAJ,CAAU7F,MAAI,CAACg6B,GAAf,EAAoB5tB,MAApB,CAA2BgZ,OAA3B,CAAZ;;EACA,OAAK,IAAI3Y,CAAC,GAAGjH,KAAK,CAACzB,MAAnB,EAA2B0I,CAAC,EAA5B,GAAiC;EAAA;;EAC7B,QAAI8M,CAAC,GAAG,SAAAvZ,MAAI,EAACsE,IAAL,eAAU,GAAV,4BAAkBkB,KAAK,CAACkH,KAAN,CAAY,CAAZ,EAAeD,CAAC,GAAG,CAAnB,CAAlB,GAAR;;EACA,QAAIpM,EAAE,CAACkZ,CAAD,CAAN,EAAW;EACP,aAAOA,CAAP;EACH;EACJ;EACJ;;;EAGD,SAAS0gB,cAAT,CAAwBF,GAAxB,EAA6B;EACzB,SAAOD,YAAY,CAACC,GAAD,EAAM,UAASA,GAAT,EAAc;EACnC,WAAOh6B,EAAE,CAACm6B,UAAH,CAAcl6B,MAAI,CAACsE,IAAL,CAAUy1B,GAAV,EAAe,cAAf,CAAd,CAAP;EACH,GAFkB,CAAnB;EAGH;;;EAGD,SAAS5D,OAAT,GAAmB;each,SAAO,OAAO92B,MAAP,KAAkB,WAAlB,IAAiCA,MAAM,CAACA,MAAP,KAAkBA,MAA1D;EACH;;;WAGc86B;;;;;;sEAAf;EAAA;;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA,mBACoC,uDADpC;;EAAA;EAAA;EACYC,YAAAA,aADZ,iBACYA,aADZ;EAEIn6B,YAAAA,WAAW,GAAGm6B,aAAa,CAACC,uRAAD,CAA3B;EAFJ;EAAA,mBAGe,uDAHf;;EAAA;EAGIt6B,YAAAA,EAHJ;EAAA;EAAA,mBAIiB,sDAJjB;;EAAA;EAIIC,YAAAA,MAJJ;EAKIgC,YAAAA,UAAU,CAACsP,GAAX,CAAe,QAAf,EAAyBjS,MAAzB;EACA2C,YAAAA,UAAU,CAACsP,GAAX,CAAe,MAAf,EAAuBjS,MAAvB;EACA2C,YAAAA,UAAU,CAACsP,GAAX,CAAe,QAAf,EAAyBtS,SAAzB;EACMs7B,YAAAA,SARV,GAQsB,IAAIC,GAAJ,CAAQF,uRAAR,CARtB;EASUG,YAAAA,SATV,GASsBx6B,MAAI,CAACo2B,OAAL,CAAakE,SAAS,CAACG,QAAvB,CATtB;EAUUC,YAAAA,UAVV,GAUuB16B,MAAI,CAAC26B,QAAL,CAAcL,SAAS,CAACG,QAAxB,CAVvB;EAWIz4B,YAAAA,UAAU,CAACsP,GAAX,CAAe,WAAf,EAA4BkpB,SAA5B;EACAx4B,YAAAA,UAAU,CAACsP,GAAX,CAAe,YAAf,EAA6BopB,UAA7B,EAZJ;;EAcI14B,YAAAA,UAAU,CAACsP,GAAX,CAAe,iBAAf,EAAkC9Q,GAAG,CAAC,iBAAD,EAAoB,UAASR,IAAT,EAAe;EACpEud,cAAAA,SAAS,CAAC,iBAAD,EAAoBvd,IAApB,EAA0B,QAA1B,CAAT;EACA,kBAAIgN,IAAI,GAAGhN,IAAI,CAACwG,OAAL,EAAX;EACA,qBAAOvG,WAAW,CAACqxB,OAAZ,CAAoBtkB,IAApB,CAAP;EACH,aAJoC,kFAArC,EAdJ;;EAsBIhL,YAAAA,UAAU,CAACsP,GAAX,CAAe,SAAf,EAA0B9Q,GAAG,CAAC,SAAD,EAAY,UAASo6B,MAAT,EAAiB;EACtDrd,cAAAA,SAAS,CAAC,SAAD,EAAYqd,MAAZ,EAAoB,QAApB,CAAT;EACAA,cAAAA,MAAM,GAAGA,MAAM,CAACp0B,OAAP,EAAT;EACA,kBAAI7G,IAAI,GAAGk7B,OAAO,CAACC,GAAR,EAAX;EACA,kBAAI/4B,KAAJ;;EACA,kBAAI;EACA,oBAAI64B,MAAM,CAACn1B,KAAP,CAAa,QAAb,CAAJ,EAA4B;EACxB1D,kBAAAA,KAAK,GAAG9B,WAAW,CAACD,MAAI,CAACsE,IAAL,CAAU3E,IAAV,EAAgBi7B,MAAhB,CAAD,CAAnB;EACH,iBAFD,MAEO;EACH,sBAAIb,GAAG,GAAGE,cAAc,CAACt6B,IAAD,CAAxB;;EACA,sBAAIo6B,GAAJ,EAAS;EACLh4B,oBAAAA,KAAK,GAAG9B,WAAW,CAACD,MAAI,CAACsE,IAAL,CAAUy1B,GAAV,EAAe,cAAf,EAA+Ba,MAA/B,CAAD,CAAnB;EACH,mBAFD,MAEO;EACH74B,oBAAAA,KAAK,GAAG9B,WAAW,CAAC26B,MAAD,CAAnB;EACH;EACJ;EACJ,eAXD,CAWE,OAAO55B,CAAP,EAAU;EACRe,gBAAAA,KAAK,GAAG9B,WAAW,CAAC26B,MAAD,CAAnB;EACH;;EACD,qBAAO5T,WAAW,CAACjlB,KAAD,EAAQ1C,MAAR,CAAlB;EACH,aApB4B,6FAA7B;;EAtBJ;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;;;;EA+CA,IAAI82B,OAAO,EAAX,EAAe;EACXgE,EAAAA,aAAa;EAChB,CAFD,MAEO,IAAI,OAAOY,MAAP,KAAkB,WAAlB,IAAiCA,MAAM,KAAKp7B,IAAhD,EAAsD;EACzDqC,EAAAA,UAAU,CAACsP,GAAX,CAAe,QAAf,EAAyBypB,MAAzB;EACA/4B,EAAAA,UAAU,CAACsP,GAAX,CAAe,QAAf,EAAyBtS,SAAzB;EACAgD,EAAAA,UAAU,CAACsP,GAAX,CAAe,MAAf,EAAuBypB,MAAvB;EACH,CAJM,MAIA,IAAI,OAAOn7B,IAAP,KAAgB,WAAhB,IAA+B,OAAOo7B,iBAAP,KAA6B,WAAhE,EAA6E;EAChFh5B,EAAAA,UAAU,CAACsP,GAAX,CAAe,MAAf,EAAuB1R,IAAvB;EACAoC,EAAAA,UAAU,CAACsP,GAAX,CAAe,QAAf,EAAyBtS,SAAzB;EACAgD,EAAAA,UAAU,CAACsP,GAAX,CAAe,QAAf,EAAyBtS,SAAzB;EACH;;;EAED,SAASoxB,gBAAT,CAA0B/vB,EAA1B,EAA8B46B,GAA9B,EAAmCC,QAAnC,EAA8D;EAAA,MAAjB57B,QAAiB,uEAAN,IAAM;EAC1D,MAAI67B,OAAO,GAAG96B,EAAE,6BAAuBA,EAAvB,SAAgC,EAAhD;;EACA,MAAIf,QAAQ,KAAK,IAAjB,EAAuB;EACnB67B,IAAAA,OAAO,yBAAkB77B,QAAlB,MAAP;EACH;;EACD,MAAIuP,WAAW,CAACqsB,QAAD,CAAf,EAA2B;EACvB,sCAA2BD,GAA3B,SAAiCE,OAAjC;EACH;;EACD,MAAID,QAAQ,YAAY3rB,KAAxB,EAA+B;EAC3B,QAAI2rB,QAAQ,CAACn3B,MAAT,KAAoB,CAAxB,EAA2B;EACvBm3B,MAAAA,QAAQ,GAAGA,QAAQ,CAAC,CAAD,CAAnB;EACH,KAFD,MAEO;EACH,UAAM/f,IAAI,GAAG+f,QAAQ,CAACA,QAAQ,CAACn3B,MAAT,GAAkB,CAAnB,CAArB;EACAm3B,MAAAA,QAAQ,GAAGA,QAAQ,CAACxuB,KAAT,CAAe,CAAf,EAAkB,CAAC,CAAnB,EAAsBpI,IAAtB,CAA2B,IAA3B,IAAmC,MAAnC,GAA4C6W,IAAvD;EACH;EACJ;;EACD,6BAAoB+f,QAApB,mBAAqCD,GAArC,SAA2CE,OAA3C;EACH;;;EAED,SAASlC,cAAT,CAAwB54B,EAAxB,EAA4ByL,IAA5B,EAAkCovB,QAAlC,EAA4C;EACxCpvB,EAAAA,IAAI,CAACtI,OAAL,CAAa,UAAC+B,GAAD,EAAMkH,CAAN,EAAY;EACrB8Q,IAAAA,SAAS,CAACld,EAAD,EAAKkF,GAAL,EAAU21B,QAAV,EAAoBzuB,CAAC,GAAG,CAAxB,CAAT;EACH,GAFD;EAGH;;;EAED,SAASqoB,mBAAT,CAA6Bz0B,EAA7B,EAAiCkF,GAAjC,EAAsCtE,IAAtC,EAA4C;EACxCsc,EAAAA,SAAS,CAACld,EAAD,EAAKkF,GAAL,EAAUtE,IAAV,CAAT;;EACA,MAAIsE,GAAG,CAAC0C,QAAJ,KAAiB2pB,WAArB,EAAkC;EAC9B,UAAM,IAAI1qB,KAAJ,CAAUkpB,gBAAgB,CAC5B/vB,EAD4B,EAE5B,aAF4B,EAG5B,cAH4B,CAA1B,CAAN;EAKH;EACJ;;;EAED,SAASkd,SAAT,CAAmBld,EAAnB,EAAuBkF,GAAvB,EAA4B21B,QAA5B,EAAuD;EAAA,MAAjB57B,QAAiB,uEAAN,IAAM;EACnDe,EAAAA,EAAE,GAAGA,EAAE,CAACmG,OAAH,EAAL;EACA,MAAM40B,QAAQ,GAAGn6B,IAAI,CAACsE,GAAD,CAAJ,CAAUK,WAAV,EAAjB;;EACA,MAAIiJ,WAAW,CAACqsB,QAAD,CAAf,EAA2B;EACvB,QAAI,CAACA,QAAQ,CAAC31B,GAAD,CAAb,EAAoB;EAChB,YAAM,IAAI2B,KAAJ,CAAUkpB,gBAAgB,CAAC/vB,EAAD,EAAK+6B,QAAL,EAAeF,QAAf,EAAyB57B,QAAzB,CAA1B,CAAN;EACH;;EACD;EACH;;EACD,MAAImG,KAAK,GAAG,KAAZ;;EACA,MAAIy1B,QAAQ,YAAY/kB,IAAxB,EAA8B;EAC1B+kB,IAAAA,QAAQ,GAAGA,QAAQ,CAAChkB,QAAT,EAAX;EACH;;EACD,MAAIgkB,QAAQ,YAAY3rB,KAAxB,EAA+B;EAC3B2rB,IAAAA,QAAQ,GAAGA,QAAQ,CAACv2B,GAAT,CAAa,UAAAlD,CAAC;EAAA,aAAIA,CAAC,CAAC+E,OAAF,EAAJ;EAAA,KAAd,CAAX;EACH;;EACD,MAAI00B,QAAQ,YAAY3rB,KAAxB,EAA+B;EAC3B2rB,IAAAA,QAAQ,GAAGA,QAAQ,CAACv2B,GAAT,CAAa,UAAAlD,CAAC;EAAA,aAAIA,CAAC,CAAC+E,OAAF,GAAYZ,WAAZ,EAAJ;EAAA,KAAd,CAAX;;EACA,QAAIs1B,QAAQ,CAACp1B,QAAT,CAAkBs1B,QAAlB,CAAJ,EAAiC;EAC7B31B,MAAAA,KAAK,GAAG,IAAR;EACH;EACJ,GALD,MAKO;EACHy1B,IAAAA,QAAQ,GAAGA,QAAQ,CAAC10B,OAAT,GAAmBZ,WAAnB,EAAX;EACH;;EACD,MAAI,CAACH,KAAD,IAAU21B,QAAQ,KAAKF,QAA3B,EAAqC;EACjC,UAAM,IAAIh0B,KAAJ,CAAUkpB,gBAAgB,CAAC/vB,EAAD,EAAK+6B,QAAL,EAAeF,QAAf,EAAyB57B,QAAzB,CAA1B,CAAN;EACH;EACJ;;;EAED,SAAS+7B,cAAT,CAAwBxtB,GAAxB,EAA6B;EACzB,MAAI5M,IAAI,WAAU4M,GAAV,CAAR;;EACA,SAAO,CAAC,QAAD,EAAW,UAAX,EAAuB/H,QAAvB,CAAgC7E,IAAhC,KACH,QAAO4M,GAAP,MAAe,QADZ,IAEHA,GAAG,YAAYM,aAFZ,IAGHN,GAAG,YAAY/D,OAHZ,IAIH+D,GAAG,YAAYvH,OAJZ,IAKHuH,GAAG,YAAYvE,OALZ,IAMHuE,GAAG,YAAY3L,MANnB;EAOH;;;EAED,SAASgc,SAAT,CAAmBrQ,GAAnB,EAAwB;EACpB,SAAOA,GAAG,YAAYvH,OAAf,IACHuH,GAAG,YAAYvE,OADZ,IAEHuE,GAAG,YAAY5G,UAFnB;EAGH;;;EAED,SAASq0B,cAAT,CAAwBztB,GAAxB,EAA6BN,MAA7B,EAAqC;EACjC,MAAIM,GAAG,KAAK,IAAZ,EAAkB;EACd,WAAO,KAAP;EACH;;EACD,SAAO,QAAOA,GAAP,MAAe,QAAf,IACHN,MAAM,IAAInJ,MAAM,CAAC+a,qBAAP,CAA6BtR,GAA7B,CADd;EAEH;;;EAED,SAAS2S,WAAT,CAAqB3S,GAArB,EAA0BN,MAA1B,EAAkC;EAC9B,MAAI+tB,cAAc,CAACztB,GAAD,EAAMN,MAAN,CAAd,IAA+B+tB,cAAc,CAACztB,GAAG,CAAC0tB,SAAL,EAAgBhuB,MAAhB,CAAjD,EAA0E;EACtE,WAAOsB,WAAW,CAAChB,GAAG,CAACN,MAAD,CAAJ,CAAlB;EACH;EACJ;;;EAED,SAAStM,IAAT,CAAc4M,GAAd,EAAmB;each,MAAIkf,OAAO,GAAG;EACV,YAAQ5W,IADE;EAEV,cAAUrM,OAFA;EAGV,iBAAa7C,UAHH;EAIV,cAAUiZ,MAJA;EAKV,kBAAcC,SALJ;EAMV,mBAAeC,UANL;EAOV,cAAU9Z,OAPA;EAQV,aAASpE,MARC;EASV,cAAUqhB,MATA;EAUV,aAASnM,KAVC;EAWV,cAAU9N,OAXA;EAYV,aAASiG,KAZC;EAaV,qBAAiBnC;EAbP,GAAd;;EAeA,MAAI1F,MAAM,CAACuW,KAAP,CAAapQ,GAAb,CAAJ,EAAuB;EACnB,WAAO,KAAP;EACH;;EACD,MAAIA,GAAG,KAAKkI,IAAZ,EAAiB;EACb,WAAO,KAAP;EACH;;EACD,MAAIlI,GAAG,KAAK,IAAZ,EAAkB;EACd,WAAO,MAAP;EACH;;EACD,uCAAyBzJ,MAAM,CAAC4W,OAAP,CAAe+R,OAAf,CAAzB,wCAAkD;EAA7C;EAAA,QAAKnW,MAAL;EAAA,QAAU7U,KAAV;;EACD,QAAI8L,GAAG,YAAY9L,KAAnB,EAA0B;EACtB,aAAO6U,MAAP;EACH;EACJ;;EACD,MAAI,QAAO/I,GAAP,MAAe,QAAnB,EAA6B;EACzB,QAAIA,GAAG,CAACkpB,YAAR,EAAsB;EAClBlpB,MAAAA,GAAG,CAACkpB,YAAJ,GAAmB,KAAnB;;EACA,UAAIlpB,GAAG,CAACkpB,YAAR,EAAsB;EAClB,YAAIloB,WAAW,CAAChB,GAAG,CAAC2tB,MAAL,CAAf,EAA6B;EACzB,iBAAO3tB,GAAG,CAAC2tB,MAAJ,EAAP;EACH;;EACD,eAAO,UAAP;EACH;EACJ;;EACD,QAAI3tB,GAAG,CAACZ,WAAR,EAAqB;EACjB,UAAIY,GAAG,CAACZ,WAAJ,CAAgBwS,SAApB,EAA+B;EAC3B,eAAO5R,GAAG,CAACZ,WAAJ,CAAgBwS,SAAvB;EACH;;EACD,UAAI5R,GAAG,CAACZ,WAAJ,KAAoB7I,MAAxB,EAAgC;EAC5B,YAAIoc,WAAW,CAAC3S,GAAD,EAAMT,MAAM,CAAC2R,QAAb,CAAf,EAAuC;EACnC,iBAAO,UAAP;EACH;;EACD,YAAIyB,WAAW,CAAC3S,GAAD,EAAMT,MAAM,CAAC4R,aAAb,CAAf,EAA4C;EACxC,iBAAO,gBAAP;EACH;EACJ;;EACD,aAAOnR,GAAG,CAACZ,WAAJ,CAAgBD,IAAhB,CAAqBpH,WAArB,EAAP;EACH;EACJ;;EACD,iBAAciI,GAAd;EACH;EAED;EACA;EACA;;;EACA,SAASunB,gBAAT,CAA0B7vB,GAA1B,EAA+B;EAC3B,MAAImjB,QAAQ,GAAG,EAAf;EACAxF,EAAAA,QAAQ,CAAC3d,GAAD,CAAR;;EACA,MAAImjB,QAAQ,CAAC3kB,MAAb,EAAqB;EACjB,WAAOutB,OAAO,CAAC/rB,GAAD,CAAd;EACH;;EACD,SAAOA,GAAP;;EACA,WAAS2d,QAAT,CAAkBhG,IAAlB,EAAwB;EACpB,QAAI7a,UAAU,CAAC6a,IAAD,CAAd,EAAsB;EAClBwL,MAAAA,QAAQ,CAACxkB,IAAT,CAAcgZ,IAAd;EACH,KAFD,MAEO,IAAIA,IAAI,YAAY/G,IAApB,EAA0B;EAC7B,UAAI,CAAC+G,IAAI,CAACM,UAAL,CAAgB,KAAhB,CAAL,EAA6B;EACzB0F,QAAAA,QAAQ,CAAChG,IAAI,CAACnG,GAAN,CAAR;EACH;;EACD,UAAI,CAACmG,IAAI,CAACM,UAAL,CAAgB,KAAhB,CAAL,EAA6B;EACzB0F,QAAAA,QAAQ,CAAChG,IAAI,CAAChH,GAAN,CAAR;EACH;EACJ,KAPM,MAOA,IAAIgH,IAAI,YAAY3N,KAApB,EAA2B;EAC9B2N,MAAAA,IAAI,CAAC1Z,OAAL,CAAa0f,QAAb;EACH;EACJ;;EApB0B,WAqBZ9U,OArBY;EAAA;EAAA;;EAAA;EAAA,gEAqB3B,mBAAuB8O,IAAvB;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA,8BACmB/G,IADnB;;EAAA,mBAEQ+G,IAAI,CAACM,UAAL,CAAgB,KAAhB,CAFR;EAAA;EAAA;EAAA;;EAAA,8BAEiCN,IAAI,CAACnG,GAFtC;EAAA;EAAA;;EAAA;EAAA;EAAA,qBAEkDua,OAAO,CAACpU,IAAI,CAACnG,GAAN,CAFzD;;EAAA;EAAA;;EAAA;EAAA;;EAAA,mBAGQmG,IAAI,CAACM,UAAL,CAAgB,KAAhB,CHAR;EAAA;EAAA;EAAA;;EAAA,8BAGiCN,IAAI,CAAChH,GAHtC;EAAA;EAAA;;EAAA;EAAA;EAAA,qBAGkDob,OAAO,CAACpU,IAAI,CAAChH,GAAN,CAHzD;;EAAA;EAAA;;EAAA;EAAA;EACQY,cAAAA,IADR;;EAKI,kBAAIoG,IAAI,CAACc,QAAD,CAAR,EAAoB;EAChBlH,gBAAAA,IAAI,CAACkH,QAAD,CAAJ,GAAiB,IAAjB;EACH;;EAPL,iDAQWlH,IARX;;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA,KArB2B;EAAA;EAAA;;EA+B3B,WAASwa,OAAT,CAAiBpU,IAAjB,EAAuB;EACnB,QAAIA,IAAI,YAAY3N,KAApB,EAA2B;EACvB,aAAOD,WAAW,CAAC4N,IAAI,CAACvY,GAAL,CAAS2sB,OAAT,CAAD,CAAlB;EACH;;EACD,QAAIpU,IAAI,YAAY/G,IAAhB,IAAwBuS,QAAQ,CAAC3kB,MAArC,EAA6C;EACzC,aAAOqK,OAAO,CAAC8O,IAAD,CAAd;EACH;;EACD,WAAOA,IAAP;EACH;EACJ;;;EAED,SAASue,aAAT,CAAuBhwB,IAAvB,UAA4D;EAAA,MAA7B4J,GAA6B,UAA7BA,GAA6B;EAAA,MAAxBoN,aAAwB,UAAxBA,aAAwB;EAAA,MAATlM,KAAS,UAATA,KAAS;EACxD,MAAIzK,IAAI,GAAG,EAAX;EACA,MAAIoR,IAAI,GAAGzR,IAAX;EACAqU,EAAAA,UAAU,CAAC5C,IAAD,CAAV;;EACA,WAASV,IAAT,GAAgB;EACZ,WAAO1Q,IAAP;EACH;;EACD,SAAQ,SAASqH,IAAT,GAAgB;EACpB,QAAI+J,IAAI,YAAY/G,IAApB,EAA0B;EACtB,UAAI5Q,GAAG,GAAG+Q,SAAQ,CAAC4G,IAAI,CAACnG,GAAN,EAAW;EAAE1B,QAAAA,GAAG,EAAHA,GAAF;EAAOoN,QAAAA,aAAa,EAAbA,aAAP;EAAsBlM,QAAAA,KAAK,EAALA;EAAtB,OAAX,CAAlB;;EACA,UAAIkM,aAAJ,EAAmB;EACfld,QAAAA,GAAG,GAAGwS,SAAS,CAACxS,GAAD,EAAM,UAAAA,GAAG,EAAI;EACxB,cAAIia,kBAAkB,CAACja,GAAD,CAAtB,EAA6B;EACzB,mBAAOA,GAAG,CAAC0gB,IAAJ,CAASxD,aAAT,CAAP;EACH;;EACD,iBAAOld,GAAP;EACH,SALc,CAAf;EAMH;;EACD,aAAOwS,SAAS,CAACqd,gBAAgB,CAAC7vB,GAAD,CAAjB,EAAwB,UAASA,GAAT,EAAc;EAClDuG,QAAAA,IAAI,CAAC5H,IAAL,CAAUqB,GAAV;;EACA,YAAI2X,IAAI,CAACM,UAAL,CAAgB,KAAhB,CAAJ,EAA4B;EACxB,iBAAOhB,IAAI,EAAX;EACH;;EACDU,QAAAA,IAAI,GAAGA,IAAI,CAAChH,GAAZ;EACA,eAAO/C,IAAI,EAAX;EACH,OAPe,CAAhB;EAQH,KAlBD,MAkBO,IAAI+J,IAAI,KAAKnH,IAAb,EAAkB;EACrB,aAAOyG,IAAI,EAAX;EACH,KAFM,MAEA;EACH,YAAM,IAAItV,KAAJ,CAAU,4CAAV,CAAN;EACH;EACJ,GAxBM,EAAP;EAyBH;;;EAED,SAASw0B,eAAT,CAAyBrZ,KAAzB,EAAgChM,IAAhC,EAAsCmgB,SAAtC,EAAiD;EAC7C,MAAIz0B,KAAK,GAAGsgB,KAAK,CAACE,MAAN,CAAalM,IAAb,EAAmBmgB,SAAnB,CAAZ;EACA,SAAOze,SAAS,CAACqd,gBAAgB,CAACrzB,KAAD,CAAjB,EAA0B,UAASA,KAAT,EAAgB;EACtD,QAAIA,KAAK,YAAYoU,IAArB,EAA2B;EACvBpU,MAAAA,KAAK,CAAC+d,UAAN;EACH;;EACD,WAAOtS,KAAK,CAACzL,KAAD,CAAZ;EACH,GALe,CAAhB;EAMH;;;EAED,SAAS45B,cAAT,CAAwBtZ,KAAxB,EAA+BhM,IAA/B,EAAqCmgB,SAArC,EAAgD;EAC5C,WAASoF,QAAT,CAAkBr4B,MAAlB,EAA0B;EACtB,QAAIA,MAAM,YAAY4S,IAAtB,EAA4B;EACxB5S,MAAAA,MAAM,CAACuc,UAAP;EACA,aAAOvc,MAAP;EACH;;EACD,WAAOiK,KAAK,CAACjK,MAAD,CAAZ;EACH;;EACD,MAAIxB,KAAK,GAAGsgB,KAAK,CAACE,MAAN,CAAalM,IAAb,EAAmBmgB,SAAnB,CAAZ;EACA,SAAOze,SAAS,CAACqd,gBAAgB,CAACrzB,KAAD,CAAjB,EAA0B,SAASiW,GAAT,CAAajW,KAAb,EAAoB;EAC1D,QAAI,CAACA,KAAD,IAAUA,KAAK,IAAIA,KAAK,CAACic,QAAD,CAAxB,IAAsCqd,cAAc,CAACt5B,KAAD,CAAxD,EAAiE;EAC7D,aAAOA,KAAP;EACH,KAFD,MAEO;EACH,aAAOgW,SAAS,CAACzB,SAAQ,CAACvU,KAAD,EAAQy0B,SAAR,CAAT,EAA6BoF,QAA7B,CAAhB;EACH;EACJ,GANe,CAAhB;EAOH;;;EAED,SAASjD,eAAT,CAAyBt4B,EAAzB,EAA6ByL,IAA7B,EAAmC;EAC/B,MAAIob,QAAQ,CAAC7mB,EAAD,CAAR,IAAgB,CAACgnB,eAAe,CAAChnB,EAAD,CAAhC,KACC,CAACinB,YAAY,CAACjnB,EAAD,CAAb,IAAqBonB,cAAc,CAACpnB,EAAD,CADpC,CAAJ,EAC+C;EAC3CyL,IAAAA,IAAI,GAAGA,IAAI,CAACnH,GAAL,CAASmiB,KAAT,CAAP;EACH;;EACD,MAAI,CAACqB,aAAa,CAAC9nB,EAAD,CAAd,IACAyL,IAAI,CAAC2R,IAAL,CAAUmB,gBAAV,CADA,IAEA,CAACA,gBAAgB,CAACve,EAAD,CAFjB,IAGA,CAACqe,eAAe,CAACre,EAAD,CAHpB,EAG0B;EACtB;EACA;EACA,QAAIkD,MAAM,GAAG,EAAb;EAAA,QAAiBkJ,CAAC,GAAGX,IAAI,CAAC/H,MAA1B;;EAHsB;EAKlB,UAAIwB,GAAG,GAAGuG,IAAI,CAACW,CAAD,CAAd;;EACA,UAAImS,gBAAgB,CAACrZ,GAAD,CAApB,EAA2B;EACnByiB,QAAAA,OAAO,GAAG,mBAAkB;EAAA,8CAANlc,IAAM;EAANA,YAAAA,IAAM;EAAA;;EAC5B,iBAAOiM,SAAS,CAACxS,GAAG,CAACyG,KAAJ,CAAU,IAAV,EAAgBF,IAAhB,CAAD,EAAwBgb,KAAxB,CAAhB;EACH,SAHsB;;;EAKvB5Y,QAAAA,WAAW,CAAC8Z,OAAD,EAAU,WAAV,EAAuB,IAAvB,CAAX;EACA9Z,QAAAA,WAAW,CAAC8Z,OAAD,EAAU,QAAV,EAAoBziB,GAApB,CAAX,CANuB;EAQvB;EACA;EACA;;EACAyiB,QAAAA,OAAO,CAACrd,SAAR,GAAoBpF,GAAG,CAACoF,SAAxB;EACApH,QAAAA,MAAM,CAACkJ,CAAD,CAAN,GAAYub,OAAZ;EACH,OAbD,MAaO;EACHzkB,QAAAA,MAAM,CAACkJ,CAAD,CAAN,GAAYlH,GAAZ;EACH;EArBiB;;EAItB,WAAOkH,CAAC,EAAR,EAAY;EAAA,UAGAub,OAHA;;EAAA;EAkBX;;EACDlc,IAAAA,IAAI,GAAGvI,MAAP;EACH;;EACD,SAAOuI,IAAP;EACH;;;EAED,SAASE,KAAT,CAAe3L,EAAf,EAAmByL,IAAnB,EAAwE;EAAA,mFAAJ,EAAI;EAAA,MAA7CuJ,GAA6C,UAA7CA,GAA6C;EAAA,MAAxCoN,aAAwC,UAAxCA,aAAwC;EAAA,4BAAzBlM,KAAyB;EAAA,MAAzBA,KAAyB,6BAAjB,YAAM,EAAW;;EACpEzK,EAAAA,IAAI,GAAG2vB,aAAa,CAAC3vB,IAAD,EAAO;EAAEuJ,IAAAA,GAAG,EAAHA,GAAF;EAAOoN,IAAAA,aAAa,EAAbA,aAAP;EAAsBlM,IAAAA,KAAK,EAALA;EAAtB,GAAP,CAApB;EACA,SAAOwB,SAAS,CAACjM,IAAD,EAAO,UAASA,IAAT,EAAe;EAClC,QAAIqc,aAAa,CAAC9nB,EAAD,CAAjB,EAAuB;EACnB;EACA;EACAA,MAAAA,EAAE,GAAGse,MAAM,CAACte,EAAD,CAAX;EACH;;EACDyL,IAAAA,IAAI,GAAG6sB,eAAe,CAACt4B,EAAD,EAAKyL,IAAL,CAAtB;;EACA,QAAIkrB,KAAK,GAAGlrB,IAAI,CAACY,KAAL,EAAZ;;EACA,QAAI8W,KAAK,GAAG,CAACf,aAAa,IAAIpN,GAAlB,EAAuB2e,QAAvB,CAAgC3zB,EAAhC,EAAoC22B,KAApC,CAAZ;EACA,QAAIzzB,MAAM,GAAG6xB,gBAAgB,CAAC/0B,EAAE,CAAC2L,KAAH,CAASwX,KAAT,EAAgB1X,IAAhB,CAAD,CAA7B;EACA,WAAOiM,SAAS,CAACxU,MAAD,EAAS,UAACA,MAAD,EAAY;EACjC,UAAIA,MAAM,YAAY4S,IAAtB,EAA4B;EACxB5S,QAAAA,MAAM,CAACuc,UAAP;EACA,eAAOtS,KAAK,CAACjK,MAAD,CAAZ;EACH;;EACD,aAAOkjB,GAAG,CAACljB,MAAD,CAAV;EACH,KANe,EAMbgT,KANa,CAAhB;EAOH,GAjBe,CAAhB;EAkBH;EAED;EACA;;;MACMgQ;EACH,wBAAYsV,CAAZ,EAAe;EAAA;;EACX,SAAKvQ,SAAL,GAAiBuQ,CAAjB;EACH;;;;aACD,kBAAS;EACL,UAAI,KAAKvQ,SAAL,KAAmB,IAAvB,EAA6B;EACzB,cAAM,IAAIpkB,KAAJ,CAAU,uCAAV,CAAN;EACH;EACJ;;;aACD,oBAAW;EACP,aAAO,iBAAP;EACH;;;;;;;EAGL,IAAM40B,IAAI,GAAG,SAAPA,IAAO,GAAM,EAAnB;;;EAEA,SAASxlB,SAAT,CAAkBD,IAAlB,EAAmE;EAAA,mFAAJ,EAAI;EAAA,MAAzChB,GAAyC,UAAzCA,GAAyC;EAAA,MAApCoN,aAAoC,UAApCA,aAAoC;EAAA,4BAArBlM,KAAqB;EAAA,MAArBA,KAAqB,6BAAbulB,IAAa;;EAC/D,MAAI;EACA,QAAIrZ,aAAa,KAAK,IAAtB,EAA4B;EACxBpN,MAAAA,GAAG,GAAGoN,aAAa,GAAGpN,GAAG,IAAIrT,UAA7B;EACH,KAFD,MAEO,IAAIqT,GAAG,KAAK,IAAZ,EAAkB;EACrBA,MAAAA,GAAG,GAAGoN,aAAa,GAAGzgB,UAAtB;EACH,KAFM,MAEA;EACHqT,MAAAA,GAAG,GAAGA,GAAG,IAAIrT,UAAb;EACH;;EACD,QAAIw0B,SAAS,GAAG;EAAEnhB,MAAAA,GAAG,EAAHA,GAAF;EAAOoN,MAAAA,aAAa,EAAbA,aAAP;EAAsBlM,MAAAA,KAAK,EAALA;EAAtB,KAAhB;EACA,QAAIxU,KAAJ;;EACA,QAAIokB,OAAO,CAAC9P,IAAD,CAAX,EAAmB;each,aAAOA,IAAP;EACH;;EACD,QAAIA,IAAI,YAAYvM,OAApB,EAA6B;EACzB,aAAOuL,GAAG,CAACpT,GAAJ,CAAQoU,IAAR,CAAP;EACH;;EACD,QAAI,EAAEA,IAAI,YAAYF,IAAlB,CAAJ,EAA6B;EACzB,aAAOE,IAAP;EACH;;EACD,QAAI4O,KAAK,GAAG5O,IAAI,CAACU,GAAjB;EACA,QAAItL,IAAI,GAAG4K,IAAI,CAACH,GAAhB;;EACA,QAAI+O,KAAK,YAAY9O,IAArB,EAA2B;EACvBpU,MAAAA,KAAK,GAAGqzB,gBAAgB,CAAC9e,SAAQ,CAAC2O,KAAD,EAAQuR,SAAR,CAAT,CAAxB;;EACA,UAAIn0B,UAAU,CAACN,KAAD,CAAd,EAAuB;EACnB,eAAOA,KAAK,CAACO,IAAN,CAAW,UAACP,KAAD,EAAW;EACzB,iBAAOuU,SAAQ,CAAC,IAAIH,IAAJ,CAASpU,KAAT,EAAgBsU,IAAI,CAACH,GAArB,CAAD,EAA4BsgB,SAA5B,CAAf;EACH,SAFM,CAAP,CADmB;EAKtB,OALD,MAKO,IAAI,CAAChQ,WAAW,CAACzkB,KAAD,CAAhB,EAAyB;EAC5B,cAAM,IAAImF,KAAJ,CACFjG,IAAI,CAACc,KAAD,CAAJ,GAAc,GAAd,GAAoBsT,GAAG,CAACpT,GAAJ,CAAQ,MAAR,EAAgBF,KAAhB,CAApB,GACI,oCADJ,GAC2CsU,IAAI,CAACjX,QAAL,EAFzC,CAAN;EAIH;EACJ;;EACD,QAAI6lB,KAAK,YAAYnb,OAArB,EAA8B;EAC1B/H,MAAAA,KAAK,GAAGsT,GAAG,CAACpT,GAAJ,CAAQgjB,KAAR,CAAR;EACH,KAFD,MAEO,IAAIpW,WAAW,CAACoW,KAAD,CAAf,EAAwB;EAC3BljB,MAAAA,KAAK,GAAGkjB,KAAR;EACH;;EACD,QAAI1hB,MAAJ;;EACA,QAAIxB,KAAK,YAAYwhB,MAArB,EAA6B;EACzBhgB,MAAAA,MAAM,GAAGm4B,eAAe,CAAC35B,KAAD,EAAQsU,IAAR,EAAcmgB,SAAd,CAAxB;EACH,KAFD,MAEO,IAAIz0B,KAAK,YAAYqV,KAArB,EAA4B;EAC/B7T,MAAAA,MAAM,GAAGo4B,cAAc,CAAC55B,KAAD,EAAQ0J,IAAR,EAAc+qB,SAAd,CAAvB;EACH,KAFM,MAEA,IAAI3nB,WAAW,CAAC9M,KAAD,CAAf,EAAwB;EAC3BwB,MAAAA,MAAM,GAAGyI,KAAK,CAACjK,KAAD,EAAQ0J,IAAR,EAAc+qB,SAAd,CAAd;EACH,KAFM,MAEA,IAAIlQ,eAAe,CAACvkB,KAAD,CAAnB,EAA4B;EAC/BwB,MAAAA,MAAM,GAAGxB,KAAK,CAACwgB,MAAN,EAAT;EACH,KAFM,MAEA,IAAIlM,IAAI,YAAYF,IAApB,EAA0B;EAC7BpU,MAAAA,KAAK,GAAGkjB,KAAK,IAAIA,KAAK,CAAC7lB,QAAN,EAAjB;EACA,YAAM,IAAI8H,KAAJ,WAAajG,IAAI,CAACgkB,KAAD,CAAjB,cAA4BljB,KAA5B,wBAAN;EACH,KAHM,MAGA;EACH,aAAOsU,IAAP;EACH,KAtDD;;;EAwDA,QAAI0lB,WAAW,GAAG1mB,GAAG,CAACpT,GAAJ,CAAQmL,MAAM,OAAN,CAAW,aAAX,CAAR,EAAmC;EAAE5K,MAAAA,UAAU,EAAE;EAAd,KAAnC,CAAlB;;EACA,QAAIu5B,WAAW,KAAK,IAAhB,IAAwB15B,UAAU,CAACkB,MAAD,CAAtC,EAAgD;EAC5C;EACA;EACA;EACAA,MAAAA,MAAM,GAAGA,MAAM,CAACjB,IAAP,CAAY,UAAAiB,MAAM,EAAI;EAC3B,YAAIA,MAAM,YAAY4S,IAAlB,IAA0B,CAACpU,KAAK,CAACic,QAAD,CAApC,EAAgD;EAC5C,iBAAO1H,SAAQ,CAAC/S,MAAD,EAASizB,SAAT,CAAf;EACH;;EACD,eAAOjzB,MAAP;EACH,OALQ,CAAT;EAMA,aAAO,IAAI4K,aAAJ,CAAkB5K,MAAlB,CAAP;EACH;;EACD,WAAOA,MAAP;EACH,GAtED,CAsEE,OAAOvC,CAAP,EAAU;EACRuV,IAAAA,KAAK,IAAIA,KAAK,CAACpV,IAAN,CAAWkU,GAAX,EAAgBrU,CAAhB,EAAmBqV,IAAnB,CAAT;EACH;EACJ;;;EAED,IAAM2lB,OAAO,GAAGC,YAAY,CAAC,UAAS5lB,IAAT,EAAe;EACxC,SAAOA,IAAP;EACH,CAF2B,CAA5B;;EAIA,IAAMoS,IAAI,GAAGwT,YAAY,CAAC,UAAS5lB,IAAT,EAAetU,KAAf,EAAsB;EAC5C,SAAOA,KAAP;EACH,CAFwB,CAAzB;;EAIA,SAASk6B,YAAT,CAAsBC,gBAAtB,EAAwC;EACpC;EAAA,wEAAO,mBAA2B32B,GAA3B,EAAgC8P,GAAhC,EAAqCoN,aAArC;EAAA;;EAAA;EAAA;EAAA;EAAA;EACH,kBAAIA,aAAa,KAAK,IAAtB,EAA4B;EACxBpN,gBAAAA,GAAG,GAAGoN,aAAa,GAAGpN,GAAG,IAAI9S,QAA7B;EACH,eAFD,MAEO,IAAI8S,GAAG,KAAK,IAAZ,EAAkB;EACrBA,gBAAAA,GAAG,GAAGoN,aAAa,GAAGlgB,QAAtB;EACH,eAFM,MAEA;EACH8S,gBAAAA,GAAG,GAAGA,GAAG,IAAI9S,QAAb;EACH;;EACGqmB,cAAAA,OARD,GAQW,EARX;EASCzX,cAAAA,KATD,GASS5B,KAAK,CAACC,OAAN,CAAcjK,GAAd,IAAqBA,GAArB,GAA2BY,KAAK,CAACZ,GAAD,CATzC;EAAA;EAAA;EAAA;EAAA,0CAUoB4L,KAVpB;;EAAA;EAAA;EAAA;;EAAA;EAAA;EAAA;EAAA;EAAA;;EAUYkF,cAAAA,IAVZ;EAWOtU,cAAAA,KAXP,GAWeuU,SAAQ,CAACD,IAAD,EAAO;EACzBhB,gBAAAA,GAAG,EAAHA,GADyB;EAEzBoN,gBAAAA,aAAa,EAAbA,aAFyB;EAGzBlM,gBAAAA,KAAK,EAAE,eAACvV,CAAD,EAAIqV,IAAJ,EAAa;EAChB,sBAAIrV,CAAC,IAAIA,CAAC,CAAC2e,OAAX,EAAoB;EAChB,wBAAI3e,CAAC,CAAC2e,OAAF,CAAUla,KAAV,CAAgB,SAAhB,CAAJ,EAAgC;EAC5B,0BAAIqC,EAAE,GAAG,yBAAT,CAD4B;;EAG5B9G,sBAAAA,CAAC,CAAC2e,OAAF,GAAY3e,CAAC,CAAC2e,OAAF,CAAUha,OAAV,CAAkBmC,EAAlB,EAAsB,OAAtB,CAAZ;EACH;;EACD,wBAAIuO,IAAJ,EAAU;EACN;EACA,0BAAI,EAAErV,CAAC,CAACkZ,QAAF,YAAsB3K,KAAxB,CAAJ,EAAoC;EAChCvO,wBAAAA,CAAC,CAACkZ,QAAF,GAAa,EAAb;EACH;;EACDlZ,sBAAAA,CAAC,CAACkZ,QAAF,CAAWhW,IAAX,CAAgBmS,IAAI,CAACjX,QAAL,CAAc,IAAd,CAAhB;EACH;EACJ;;EACD,wBAAM4B,CAAN;EACH;EAnBwB,eAAP,CAXvB;;EAAA,kBAgCMqB,UAAU,CAACN,KAAD,CAhChB;EAAA;EAAA;EAAA;;EAiCK6mB,cAAAA,OAAO,CAAC1kB,IAAR,CAAag4B,gBAAgB,CAAC7lB,IAAD,EAAOtU,KAAP,CAA7B;EAjCL;EAAA;;EAAA;EAAA,8BAmCK6mB,OAnCL;EAAA,8BAmCkBsT,gBAnClB;EAAA,8BAmCmC7lB,IAnCnC;EAAA;EAAA,qBAmC+CtU,KAnC/C;;EAAA;EAAA;EAAA;;EAAA,4BAmCamC,IAnCb;;EAAA;EAAA;EAAA;EAAA;;EAAA;EAAA;EAAA;;EAAA;EAAA;EAAA;EAAA;EAAA;;EAAA;EAAA;EAAA;;EAAA;EAAA;EAAA;EAAA;;EAAA;EAAA;;EAAA;EAAA;;EAAA;EAAA;EAAA;EAAA;;EAAA;;EAAA;EAAA;;EAAA;EAAA;;EAAA;EAAA,iDAsCI0kB,OAtCJ;;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA;EAAA,KAAP;;EAAA,aAAsBuT,WAAtB;EAAA;EAAA;;EAAA,WAAsBA,WAAtB;EAAA;EAwCH;;;EAED,SAAS/gB,QAAT,CAAkB/E,IAAlB,EAAwB;EACpB,MAAI+lB,aAAa,GAAG;EAChB,SAAK,GADW;EAEhB,SAAK;EAFW,GAApB;EAIA,MAAIrxB,MAAJ;;EACA,MAAI,OAAOsL,IAAP,KAAgB,QAApB,EAA8B;EAC1BtL,IAAAA,MAAM,GAAGmB,QAAQ,CAACmK,IAAD,CAAjB;EACH,GAFD,MAEO;EACHtL,IAAAA,MAAM,GAAGsL,IAAI,CAAC1R,GAAL,CAAS,UAAAlD,CAAC;EAAA,aAAIA,CAAC,IAAIA,CAAC,CAAC0J,KAAP,GAAe1J,CAAC,CAAC0J,KAAjB,GAAyB1J,CAA7B;EAAA,KAAV,CAAT;EACH;;EAED,MAAI46B,WAAW,GAAGj4B,MAAM,CAACC,IAAP,CAAY+3B,aAAZ,CAAlB;EACA,MAAIE,QAAQ,GAAGl4B,MAAM,CAACkU,MAAP,CAAc8jB,aAAd,EAA6BzoB,MAA7B,CAAoC0oB,WAApC,CAAf;EACAtxB,EAAAA,MAAM,GAAGA,MAAM,CAACqB,MAAP,CAAc,UAAAjB,KAAK;EAAA,WAAImxB,QAAQ,CAACx2B,QAAT,CAAkBqF,KAAlB,CAAJ;EAAA,GAAnB,CAAT;EAEA,MAAMwoB,KAAK,GAAG,IAAIlpB,KAAJ,EAAd;;EAhBoB,+CAiBAM,MAjBA;EAAA;;EAAA;EAiBpB,8DAA4B;EAAA,UAAjBI,KAAiB;;EACxB,UAAIkxB,WAAW,CAACv2B,QAAZ,CAAqBqF,KAArB,CAAJ,EAAiC;EAC7BwoB,QAAAA,KAAK,CAACzvB,IAAN,CAAWiH,KAAX;EACH,OAFD,MAEO,IAAI,CAACwoB,KAAK,CAAC7oB,QAAN,EAAL,EAAuB;EAAE;EAC5B,YAAIqQ,IAAI,GAAGwY,KAAK,CAACpzB,GAAN,EAAX,CAD0B;;EAG1B,YAAMg8B,aAAa,GAAGH,aAAa,CAACjhB,IAAD,CAAnC;;EACA,YAAIhQ,KAAK,KAAKoxB,aAAd,EAA6B;EACzB5I,UAAAA,KAAK,CAAC9oB,GAAN;EACH,SAFD,MAEO;EACH,gBAAM,IAAI3D,KAAJ,yCAA2Cq1B,aAA3C,EAAN;EACH;EACJ,OATM,MASA;EACH;EACA,cAAM,IAAIr1B,KAAJ,6CAA+CiE,KAA/C,EAAN;EACH;EACJ;EAjCmB;EAAA;EAAA;EAAA;EAAA;;EAkCpB,SAAOwoB,KAAK,CAAC7oB,QAAN,EAAP;EACH;;;EAGD,SAAS0xB,OAAT,CAAiBn8B,EAAjB,EAAqB;EACjB;EACA,MAAIgI,GAAG,GAAG,MAAMhI,EAAE,CAACjB,QAAH,EAAN,GAAsB,KAAhC;EACA,MAAIm7B,GAAG,GAAGQ,MAAM,CAACR,GAAP,IAAcQ,MAAM,CAAC0B,SAA/B;EACA,MAAIC,IAAJ;;EACA,MAAI;EACAA,IAAAA,IAAI,GAAG,IAAIC,IAAJ,CAAS,CAACt0B,GAAD,CAAT,EAAgB;EAAEpH,MAAAA,IAAI,EAAE;EAAR,KAAhB,CAAP;EACH,GAFD,CAEE,OAAOD,CAAP,EAAU;EAAE;EACV,QAAM47B,WAAW,GAAG7B,MAAM,CAAC6B,WAAP,IACd7B,MAAM,CAAC8B,iBADO,IAEd9B,MAAM,CAAC+B,cAFb;EAGAJ,IAAAA,IAAI,GAAG,IAAIE,WAAJ,EAAP;EACAF,IAAAA,IAAI,CAAChsB,MAAL,CAAYrI,GAAZ;EACAq0B,IAAAA,IAAI,GAAGA,IAAI,CAACK,OAAL,EAAP;EACH;;EACD,SAAO,IAAIp9B,IAAI,CAACq9B,MAAT,CAAgBzC,GAAG,CAAC0C,eAAJ,CAAoBP,IAApB,CAAhB,CAAP;EACH;;;EAED,SAASQ,MAAT,GAAkB;EACd,SAAOnjB,IAAI,CAACojB,OAAL,CAAa13B,KAAb,CAAmB,qBAAnB,CAAP;EACH;;;EAED,SAAS23B,SAAT,GAA6B;EAAA,MAAVC,GAAU,uEAAJ,EAAI;EACzB,MAAMC,GAAG,GAAG,cAAZ;;EACA,MAAID,GAAG,KAAK,EAAZ,EAAgB;EACZ,QAAIH,MAAM,EAAV,EAAc;EACVG,MAAAA,GAAG,2DAAoDC,GAApD,CAAH;EACH,KAFD,MAEO;EACHD,MAAAA,GAAG,uDAAgDtjB,IAAI,CAACojB,OAArD,cAAgEG,GAAhE,CAAH;EACH;EACJ;;EACD,MAAI/H,IAAI,GAAGvzB,UAAU,CAACC,GAAX,CAAe,MAAf,CAAX;EACA,SAAOszB,IAAI,CAACp0B,IAAL,CAAUoB,QAAV,EAAoB86B,GAApB,EAAyBr7B,UAAzB,CAAP;EACH;;;EAED,SAASg7B,MAAT,CAAgBK,GAAhB,EAAqB;EACjB,OAAKA,GAAL,GAAWA,GAAX;EACA,MAAME,MAAM,GAAG,KAAKA,MAAL,GAAcf,OAAO,CAAC,YAAW;EAC5C,QAAIgB,WAAJ;EACA,QAAIt+B,IAAJ,CAF4C;;EAI5CU,IAAAA,IAAI,CAACgB,gBAAL,CAAsB,SAAtB,EAAiC,UAAS68B,QAAT,EAAmB;EAChD,UAAI/yB,IAAI,GAAG+yB,QAAQ,CAAC/yB,IAApB;EACA,UAAIgzB,EAAE,GAAGhzB,IAAI,CAACgzB,EAAd;;EACA,UAAIhzB,IAAI,CAACzJ,IAAL,KAAc,KAAd,IAAuBy8B,EAAE,KAAK,IAAlC,EAAwC;EACpC;EACH;;EACD,eAASC,WAAT,CAAqBp6B,MAArB,EAA6B;EACzB3D,QAAAA,IAAI,CAACg+B,WAAL,CAAiB;EAAEF,UAAAA,EAAE,EAAEA,EAAN;EAAUz8B,UAAAA,IAAI,EAAE,KAAhB;EAAuBsC,UAAAA,MAAM,EAAEA;EAA/B,SAAjB;EACH;;EACD,eAASs6B,UAAT,CAAoBle,OAApB,EAA6B;EACzB/f,QAAAA,IAAI,CAACg+B,WAAL,CAAiB;EAAEF,UAAAA,EAAE,EAAEA,EAAN;EAAUz8B,UAAAA,IAAI,EAAE,KAAhB;EAAuBsV,UAAAA,KAAK,EAAEoJ;EAA9B,SAAjB;EACH;;EACD,UAAIjV,IAAI,CAACozB,MAAL,KAAgB,MAApB,EAA4B;EACxB,YAAI,CAAC5+B,IAAL,EAAW;EACP2+B,UAAAA,UAAU,CAAC,kDAAD,CAAV;EACA;EACH;;EACD3+B,QAAAA,IAAI,CAACoD,IAAL,CAAU,YAAW;EACjB;EACA,cAAI+T,IAAI,GAAG3L,IAAI,CAAC4d,MAAL,CAAY,CAAZ,CAAX;EACA,cAAImL,OAAO,GAAG/oB,IAAI,CAAC4d,MAAL,CAAY,CAAZ,CAAd;EACAkV,UAAAA,WAAW,CAAC/U,IAAZ,CAAiBpS,IAAjB,EAAuBod,OAAvB,EAAgCnxB,IAAhC,CAAqC,UAASiB,MAAT,EAAiB;EAClDA,YAAAA,MAAM,GAAGA,MAAM,CAACoB,GAAP,CAAW,UAAS5C,KAAT,EAAgB;EAChC,qBAAOA,KAAK,IAAIA,KAAK,CAACyE,OAAN,EAAhB;EACH,aAFQ,CAAT;EAGAm3B,YAAAA,WAAW,CAACp6B,MAAD,CAAX;EACH,WALD,WAKS,UAAAgT,KAAK,EAAI;EACdsnB,YAAAA,UAAU,CAACtnB,KAAD,CAAV;EACH,WAPD;EAQH,SAZD;EAaH,OAlBD,MAkBO,IAAI7L,IAAI,CAACozB,MAAL,KAAgB,MAApB,EAA4B;EAC/B,YAAIT,GAAG,GAAG3yB,IAAI,CAAC4d,MAAL,CAAY,CAAZ,CAAV;;EACA,YAAI,OAAO+U,GAAP,KAAe,QAAnB,EAA6B;EACzBQ,UAAAA,UAAU,CAAC,iCAAD,CAAV;EACH,SAFD,MAEO;EACHE,UAAAA,aAAa,WAAIV,GAAJ,uBAAb;EACAG,UAAAA,WAAW,GAAG,IAAIzjB,IAAI,CAACkZ,WAAT,CAAqB,QAArB,CAAd;EACA/zB,UAAAA,IAAI,GAAGk+B,SAAS,CAACC,GAAD,CAAhB;EACAn+B,UAAAA,IAAI,CAACoD,IAAL,CAAU,YAAM;EACZq7B,YAAAA,WAAW,CAAC,IAAD,CAAX;EACH,WAFD;EAGH;EACJ;EACJ,KA3CD;EA4CH,GAhDmC,CAApC;;EAiDA,OAAKK,GAAL,GAAY,YAAW;EACnB,QAAIN,EAAE,GAAG,CAAT;EACA,WAAO,SAASM,GAAT,CAAaF,MAAb,EAAqBxV,MAArB,EAA6B;EAChC,UAAI2V,GAAG,GAAG,EAAEP,EAAZ;;EACA,aAAO,IAAIjuB,OAAJ,CAAY,UAAS6hB,OAAT,EAAkBC,MAAlB,EAA0B;EACzCgM,QAAAA,MAAM,CAAC38B,gBAAP,CAAwB,SAAxB,EAAmC,SAASs9B,OAAT,CAAiBT,QAAjB,EAA2B;EAC1D,cAAI/yB,IAAI,GAAG+yB,QAAQ,CAAC/yB,IAApB;;EACA,cAAIA,IAAI,IAAIA,IAAI,CAACzJ,IAAL,KAAc,KAAtB,IAA+ByJ,IAAI,CAACgzB,EAAL,KAAYO,GAA/C,EAAoD;EAChD,gBAAIvzB,IAAI,CAAC6L,KAAT,EAAgB;EACZgb,cAAAA,MAAM,CAAC7mB,IAAI,CAAC6L,KAAN,CAAN;EACH,aAFD,MAEO;EACH+a,cAAAA,OAAO,CAAC5mB,IAAI,CAACnH,MAAN,CAAP;EACH;;EACDg6B,YAAAA,MAAM,CAACY,mBAAP,CAA2B,SAA3B,EAAsCD,OAAtC;EACH;EACJ,SAVD;EAWAX,QAAAA,MAAM,CAACK,WAAP,CAAmB;EACf38B,UAAAA,IAAI,EAAE,KADS;EAEf68B,UAAAA,MAAM,EAAEA,MAFO;EAGfJ,UAAAA,EAAE,EAAEO,GAHW;EAIf3V,UAAAA,MAAM,EAAEA;EAJO,SAAnB;EAMH,OAlBM,CAAP;EAmBH,KArBD;EAsBH,GAxBU,EAAX;;EAyBA,OAAK0V,GAAL,CAAS,MAAT,EAAiB,CAACX,GAAD,CAAjB,WAA8B,UAAC9mB,KAAD,EAAW;EACrCnU,IAAAA,OAAO,CAACmU,KAAR,CAAcA,KAAd;EACH,GAFD;;EAGA,OAAKkS,IAAL,GAAY,UAASpS,IAAT,EAAgC;EAAA,QAAjBod,OAAiB,uEAAP,KAAO;EACxC,WAAO,KAAKuK,GAAL,CAAS,MAAT,EAAiB,CAAC3nB,IAAD,EAAOod,OAAP,CAAjB,CAAP;EACH,GAFD;EAGH;EAGD;EACA;;;EACA,IAAI2K,iBAAiB,GAAG;EACpB,UAAQ;EAAA;EAAA,QAAErnB,GAAF;EAAA,QAAOb,GAAP;;EAAA,WAAgBC,IAAI,CAACY,GAAD,EAAMb,GAAN,CAApB;EAAA,GADY;EAEpB,YAAU,gBAASnU,KAAT,EAAgB;EACtB,QAAIuH,OAAO,CAACsE,QAAR,CAAiB7L,KAAjB,CAAJ,EAA6B;EACzB,aAAOuE,OAAO,CAAC,CAACvE,KAAD,EAAQ,EAAR,CAAD,CAAd;EACH;;EACD,WAAOuE,OAAO,CAACvE,KAAD,CAAd;EACH,GAPmB;EAQpB,WAAS,uBAA0B;EAAA;EAAA,QAAhBoX,OAAgB;EAAA,QAAPW,IAAO;;EAC/B,WAAO,IAAI5X,MAAJ,CAAWiX,OAAX,EAAoBW,IAApB,CAAP;EACH,GAVmB;EAWpB,SAAO,eAAW;EACd,WAAO/D,IAAP;EACH,GAbmB;EAcpB,YAAU,gBAAShU,KAAT,EAAgB;EACtB,QAAIuH,OAAO,CAACsE,QAAR,CAAiB7L,KAAjB,CAAJ,EAA6B;EACzB,aAAO+H,OAAO,CAAC/H,KAAD,CAAd;EACH,KAFD,MAEO,IAAIwN,KAAK,CAACC,OAAN,CAAczN,KAAd,CAAJ,EAA0B;EAC7B,aAAO+H,OAAO,CAACsD,MAAM,OAAN,CAAWrL,KAAK,CAAC,CAAD,CAAhB,CAAD,CAAd;EACH;EACJ,GApBmB;EAqBpB,YAAUuH,OArBU;EAsBpB,eAAarC;EAtBO,CAAxB;EAyBA;;EACA,IAAMo3B,eAAe,GAAGj6B,MAAM,CAACC,IAAP,CAAY+5B,iBAAZ,CAAxB;EACA,IAAME,SAAS,GAAG,EAAlB;;EACA,qCAAqBl6B,MAAM,CAAC4W,OAAP,CAAeqjB,eAAf,CAArB,wCAAsD;EAAjD;EAAA,MAAK5xB,CAAL;EAAA,MAAQuT,GAAR;;EACDse,EAAAA,SAAS,CAACte,GAAD,CAAT,GAAiB,CAACvT,CAAlB;EACH;;EACD,SAAS8xB,WAAT,CAAqBvxB,IAArB,EAA2B;EACvB,SAAOsxB,SAAS,CAACtxB,IAAD,CAAhB;EACH;;EACD,SAASwxB,YAAT,CAAsB/xB,CAAtB,EAAyB;EACrB,SAAO4xB,eAAe,CAAC5xB,CAAD,CAAtB;EACH;;;EAED,SAASkB,SAAT,CAAmBjD,IAAnB,EAAyB;EACrB,SAAOnB,IAAI,CAACwW,SAAL,CAAerV,IAAf,EAAqB,UAASkM,GAAT,EAAc7U,KAAd,EAAqB;EAC7C,QAAM08B,EAAE,GAAG,KAAK7nB,GAAL,CAAX;;EACA,QAAI6nB,EAAJ,EAAQ;EACJ,UAAIA,EAAE,YAAYv8B,MAAlB,EAA0B;EACtB,eAAO;EACH,eAAKq8B,WAAW,CAAC,OAAD,CADb;EAEH,eAAK,CAACE,EAAE,CAAC3c,MAAJ,EAAY2c,EAAE,CAACC,KAAf;EAFF,SAAP;EAIH;;EACD,UAAI1e,GAAG,GAAGue,WAAW,CAACE,EAAE,CAACxxB,WAAH,CAAewS,SAAhB,CAArB;;EACA,UAAI,CAAC4G,QAAQ,CAACrG,GAAD,CAAb,EAAoB;EAChB,eAAO;EACH,eAAKA,GADF;EAEH,eAAKye,EAAE,CAAC9wB,SAAH;EAFF,SAAP;EAIH;EACJ;;EACD,WAAO5L,KAAP;EACH,GAlBM,CAAP;EAmBH;;;EAED,SAASg0B,WAAT,CAAqBnyB,MAArB,EAA6B;EACzB,SAAO2F,IAAI,CAACpD,KAAL,CAAWvC,MAAX,EAAmB,UAACuF,CAAD,EAAIkE,MAAJ,EAAe;EACrC,QAAIA,MAAM,IAAI,QAAOA,MAAP,MAAkB,QAAhC,EAA0C;EACtC,UAAI,CAACgZ,QAAQ,CAAChZ,MAAM,CAAC,GAAD,CAAP,CAAb,EAA4B;EACxB,YAAI2S,GAAG,GAAGwe,YAAY,CAACnxB,MAAM,CAAC,GAAD,CAAP,CAAtB;;EACA,YAAI+wB,iBAAiB,CAACpe,GAAD,CAArB,EAA4B;EACxB,iBAAOoe,iBAAiB,CAACpe,GAAD,CAAjB,CAAuB3S,MAAM,CAAC,GAAD,CAA7B,CAAP;EACH;EACJ;EACJ;;EACD,WAAOA,MAAP;EACH,GAVM,CAAP;EAWH;EAGD;EACA;;;EACA,IAAMsxB,IAAI,GAAI,YAAW;EAErB,MAAIlU,KAAK,GAAG;EACR,YAAQtU,IADA;EAER,cAAUrM,OAFF;EAGR,cAAUxD,OAHF;EAIR,cAAUgD,OAJF;EAKR,iBAAarC,UALL;EAMR,WAAO8O,IAAG,CAAC9I,WANH;EAOR,aAAS/K;EAPD,GAAZ;;EAUA,WAAS08B,UAAT,CAAoBC,KAApB,EAA2Bx+B,EAA3B,EAA+B;EAC3B,WAAO;EACHy+B,MAAAA,WAAW,EAAEz+B,EADV;EAEHw+B,MAAAA,KAAK,EAALA;EAFG,KAAP;EAIH;;EAED,MAAIE,OAAO,GAAG,IAAIC,OAAJ,EAAd;EAEA,MAAMC,sBAAsB,GAAG,EAA/B;;EACA,uCAA2B76B,MAAM,CAAC4W,OAAP,CAAeojB,iBAAf,CAA3B,wCAA8D;EAAzD;EAAA,QAAQpxB,IAAR;EAAA,QAAc3M,EAAd;;EACD,QAAMw+B,KAAK,GAAGpU,KAAK,CAACzd,IAAD,CAAnB;EACAiyB,IAAAA,sBAAsB,CAACjyB,IAAD,CAAtB,GAA+B4xB,UAAU,CAACC,KAAD,EAAQx+B,EAAR,CAAzC;EACH,GAzBoB;;;EA2BrB,MAAI6+B,GAAG,GAAG,KAAV;EACA96B,EAAAA,MAAM,CAACC,IAAP,CAAY46B,sBAAZ,EAAoCz7B,OAApC,CAA4C,UAAAvC,IAAI,EAAI;EAChD,QAAMyJ,IAAI,GAAGu0B,sBAAsB,CAACh+B,IAAD,CAAnC;;EACA,QAAI,OAAOyJ,IAAP,KAAgB,UAApB,EAAgC;EAC5B,UAAMm0B,MAAK,GAAGn0B,IAAd;EACAnL,MAAAA,YAAY,CAAC;EACTs/B,QAAAA,KAAK,EAALA,MADS;EAETK,QAAAA,GAAG,EAAHA,GAFS;EAGTC,QAAAA,MAHS,kBAGFzG,QAHE,EAGQyG,OAHR,EAGgB;EACrBA,UAAAA,OAAM,CAACzG,QAAQ,CAAC/qB,SAAT,EAAD,CAAN;EACH,SALQ;EAMTyxB,QAAAA,MANS,kBAMF10B,IANE,EAMI;EACT,iBAAO,IAAIm0B,MAAJ,CAAUn0B,IAAV,CAAP;EACH;EARQ,OAAD,CAAZ;EAUH,KAZD,MAYO;EACH,UAAQo0B,WAAR,GAA+Bp0B,IAA/B,CAAQo0B,WAAR;EAAA,UAAqBD,OAArB,GAA+Bn0B,IAA/B,CAAqBm0B,KAArB;EACAt/B,MAAAA,YAAY,CAAC;EACTs/B,QAAAA,KAAK,EAALA,OADS;EAETK,QAAAA,GAAG,EAAHA,GAFS;EAGTC,QAAAA,MAHS,kBAGFzG,QAHE,EAGQyG,QAHR,EAGgB;EACrB,cAAIzG,QAAQ,YAAYx2B,MAAxB,EAAgC;EAC5B,mBAAOi9B,QAAM,CAAC,CAACzG,QAAQ,CAAC5W,MAAV,EAAkB4W,QAAQ,CAACgG,KAA3B,CAAD,CAAb;EACH;;EACDS,UAAAA,QAAM,CAACzG,QAAQ,CAAC/qB,SAAT,EAAD,CAAN;EACH,SARQ;EASTyxB,QAAAA,MATS,kBASF10B,IATE,EASI;EACT,iBAAOo0B,WAAW,CAACp0B,IAAD,CAAlB;EACH;EAXQ,OAAD,CAAZ;EAaH;;EACDw0B,IAAAA,GAAG;EACN,GA/BD;EAgCA,SAAOH,OAAP;EACH,CA7DY,EAAb;;;EAgEA,SAASr/B,iBAAT,GAAoC;EAAA,sCAANoM,IAAM;EAANA,IAAAA,IAAM;EAAA;;EAChC,MAAIA,IAAI,CAAC/H,MAAL,GAAc,CAAlB,EAAqB;EACjB,QAAMwO,GAAG,GAAGzG,IAAI,CAACmJ,MAAL,CAAY,UAACC,GAAD,EAAMhE,GAAN;EAAA,aAAcgE,GAAG,GAAGhE,GAAG,CAACnN,MAAxB;EAAA,KAAZ,EAA4C,CAA5C,CAAZ;EACA,QAAMR,MAAM,GAAG,IAAI8uB,UAAJ,CAAe9f,GAAf,CAAf;EACA,QAAIL,MAAM,GAAG,CAAb;EACApG,IAAAA,IAAI,CAACtI,OAAL,CAAa,UAAAoH,IAAI,EAAI;EACjBrH,MAAAA,MAAM,CAAC+N,GAAP,CAAW1G,IAAX,EAAiBsH,MAAjB;EACAA,MAAAA,MAAM,IAAItH,IAAI,CAAC7G,MAAf;EACH,KAHD;EAIA,WAAOR,MAAP;EACH,GATD,MASO,IAAIuI,IAAI,CAAC/H,MAAT,EAAiB;EACpB,WAAO+H,IAAI,CAAC,CAAD,CAAX;EACH;EACJ;;;EAGD,SAASrM,YAAT,GAAwB;EACpB,MAAM4/B,OAAO,GAAG,CAAhB;EACA,MAAMN,OAAO,GAAG,IAAIO,WAAJ,CAAgB,OAAhB,CAAhB;EACA,SAAOP,OAAO,CAACI,MAAR,eAAsBE,OAAO,CAACjgC,QAAR,GAAmBiK,QAAnB,CAA4B,CAA5B,EAA+B,GAA/B,CAAtB,EAAP;EACH;;;EAGD,IAAMk2B,YAAY,GAAG,CAArB;;EAGA,SAASC,YAAT,CAAsB3xB,GAAtB,EAA2B;EACvB,MAAM4xB,OAAO,GAAG,IAAIC,WAAJ,CAAgB,OAAhB,CAAhB;EACA,MAAM5U,MAAM,GAAG2U,OAAO,CAACL,MAAR,CAAevxB,GAAG,CAACnB,KAAJ,CAAU,CAAV,EAAa6yB,YAAb,CAAf,CAAf;EACA,MAAMvyB,IAAI,GAAG8d,MAAM,CAACxY,SAAP,CAAiB,CAAjB,EAAoB,CAApB,CAAb;;EACA,MAAItF,IAAI,KAAK,MAAb,EAAqB;EACjB,QAAMpI,CAAC,GAAGkmB,MAAM,CAACrlB,KAAP,CAAa,oBAAb,CAAV;;EACA,QAAIb,CAAJ,EAAO;EACH,aAAO;EACH3D,QAAAA,IAAI,EAAE2D,CAAC,CAAC,CAAD,CADJ;EAEHu4B,QAAAA,OAAO,EAAEz1B,MAAM,CAAC9C,CAAC,CAAC,CAAD,CAAF;EAFZ,OAAP;EAIH;EACJ;;EACD,SAAO;EACH3D,IAAAA,IAAI,EAAE;EADH,GAAP;EAGH;;;EAGD,SAAS0+B,aAAT,CAAuB9xB,GAAvB,EAA4B;EACxB,MAAM+xB,KAAK,GAAGngC,YAAY,EAA1B;EACA,MAAMogC,OAAO,GAAGlB,IAAI,CAACQ,MAAL,CAAYtxB,GAAZ,CAAhB;EACA,SAAOnO,iBAAiB,CAACkgC,KAAD,EAAQE,MAAI,CAACD,OAAD,EAAU;EAAED,IAAAA,KAAK,EAAE;EAAT,GAAV,CAAZ,CAAxB;EACH;;;EAGD,SAAS9J,eAAT,CAAyBprB,IAAzB,EAA+B;EAC3B,sBAA0B80B,YAAY,CAAC90B,IAAD,CAAtC;EAAA,MAAQzJ,IAAR,iBAAQA,IAAR;EAAA,MAAck8B,OAAd,iBAAcA,OAAd;;EACA,MAAIl8B,IAAI,KAAK,MAAT,IAAmBk8B,OAAO,KAAK,CAAnC,EAAsC;EAClC,QAAMjsB,GAAG,GAAG6uB,QAAM,CAACr1B,IAAI,CAACgC,KAAL,CAAW6yB,YAAX,CAAD,EAA2B;EAAEK,MAAAA,KAAK,EAAE;EAAT,KAA3B,CAAlB;EACA,WAAOjB,IAAI,CAACS,MAAL,CAAYluB,GAAZ,CAAP;EACH,GAHD,MAGO;EACH,UAAM,IAAIhK,KAAJ,+BAAiCjG,IAAjC,EAAN;EACH;EACJ;;;EAGD,SAAS++B,SAAT,CAAmBh/B,CAAnB,EAAsB;EAClBoB,EAAAA,OAAO,CAACmU,KAAR,CAAcvV,CAAC,CAAC2e,OAAF,IAAa3e,CAA3B;;EACA,MAAIA,CAAC,CAACqV,IAAN,EAAY;EACRjU,IAAAA,OAAO,CAACmU,KAAR,CAAcvV,CAAC,CAACqV,IAAF,CAAO1R,GAAP,CAAW,UAACsN,IAAD,EAAOxF,CAAP;EAAA,wBAAiBA,CAAC,GAAG,CAArB,gBAA4BwF,IAA5B;EAAA,KAAX,CAAd;EACH;EACJ;;;EAGD,SAAS/S,IAAT,GAAgB;EACZ,MAAI+gC,UAAU,GAAG,CAAC,aAAD,EAAgB,eAAhB,CAAjB;EACA,MAAIC,WAAJ;;EACA,WAAS3K,IAAT,CAAc4K,MAAd,EAAsB;EAClB,WAAO,IAAI1wB,OAAJ,CAAY,UAAS6hB,OAAT,EAAkB;EACjC,UAAI8O,GAAG,GAAGD,MAAM,CAACE,YAAP,CAAoB,KAApB,CAAV;;EACA,UAAID,GAAJ,EAAS;EACL,eAAOvgC,KAAK,CAACugC,GAAD,CAAL,CAAW99B,IAAX,CAAgB,UAAA0zB,GAAG;EAAA,iBAAIA,GAAG,CAACE,IAAJ,EAAJ;EAAA,SAAnB,EACF5zB,IADE,CACGmmB,IADH,EACSnmB,IADT,CACcgvB,OADd,WAC6B,UAACtwB,CAAD,EAAO;EACnCg/B,UAAAA,SAAS,CAACh/B,CAAD,CAAT;EACAswB,UAAAA,OAAO;EACV,SAJE,CAAP;EAKH,OAND,MAMO;EACH,eAAO7I,IAAI,CAAC0X,MAAM,CAACG,SAAR,CAAJ,CAAuBh+B,IAAvB,CAA4BgvB,OAA5B,WAA2C,UAACtwB,CAAD,EAAO;EACrDg/B,UAAAA,SAAS,CAACh/B,CAAD,CAAT;EACAswB,UAAAA,OAAO;EACV,SAHM,CAAP;EAIH;EACJ,KAdM,CAAP;EAeH;;EAED,WAASne,IAAT,GAAgB;EACZ,WAAO,IAAI1D,OAAJ,CAAY,UAAS6hB,OAAT,EAAkB;EACjC,UAAIiP,OAAO,GAAGhxB,KAAK,CAACqa,IAAN,CAAWnpB,QAAQ,CAAC+/B,gBAAT,CAA0B,QAA1B,CAAX,CAAd;EACA,aAAQ,SAASrtB,IAAT,GAAgB;EACpB,YAAIgtB,MAAM,GAAGI,OAAO,CAACjmB,KAAR,EAAb;;EACA,YAAI,CAAC6lB,MAAL,EAAa;EACT7O,UAAAA,OAAO;EACV,SAFD,MAEO;EACH,cAAIrwB,IAAI,GAAGk/B,MAAM,CAACE,YAAP,CAAoB,MAApB,CAAX;;EACA,cAAIJ,UAAU,CAACn6B,QAAX,CAAoB7E,IAApB,CAAJ,EAA+B;EAC3B,gBAAIw/B,cAAc,GAAGN,MAAM,CAACE,YAAP,CAAoB,WAApB,CAArB;;EACA,gBAAI,CAACH,WAAD,IAAgB,OAAOO,cAAP,KAA0B,QAA9C,EAAwD;EACpD,qBAAOrD,SAAS,CAACqD,cAAD,CAAT,CAA0Bn+B,IAA1B,CAA+B,YAAW;EAC7C,uBAAOizB,IAAI,CAAC4K,MAAD,CAAX;EAGH,eAJM,EAIJ79B,IAJI,CAIC6Q,IAJD,CAAP;EAKH,aAND,MAMO;EACH,qBAAOoiB,IAAI,CAAC4K,MAAD,CAAJ,CAEJ79B,IAFI,CAEC6Q,IAFD,CAAP;EAGH;EACJ,WAbD,MAaO,IAAIlS,IAAI,IAAIA,IAAI,CAACwE,KAAL,CAAW,WAAX,CAAZ,EAAqC;EACxCrD,YAAAA,OAAO,CAACs+B,IAAR,CAAa,eAAeT,UAAU,CAAC37B,IAAX,CAAgB,MAAhB,CAAf,GACA,SADA,GACYrD,IADzB;EAEH;;EACD,iBAAOkS,IAAI,EAAX;EACH;EACJ,OAzBM,EAAP;EA0BH,KA5BM,CAAP;EA6BH;;EACD,MAAI,CAAC4nB,MAAM,CAACt6B,QAAZ,EAAsB;EAClB,WAAOgP,OAAO,CAAC6hB,OAAR,EAAP;EACH,GAFD,MAEO,IAAIqP,aAAJ,EAAmB;EACtB,QAAIR,MAAM,GAAGQ,aAAb;EACA,QAAIF,cAAc,GAAGN,MAAM,CAACE,YAAP,CAAoB,WAApB,CAArB;;EACA,QAAI,OAAOI,cAAP,KAA0B,QAA9B,EAAwC;EACpC,aAAOrD,SAAS,CAACqD,cAAD,CAAT,CAA0Bn+B,IAA1B,CAA+B,YAAW;EAC7C49B,QAAAA,WAAW,GAAG,IAAd;EACA,eAAO/sB,IAAI,EAAX;EACH,OAHM,CAAP;EAIH;EACJ;;EACD,SAAOA,IAAI,EAAX;EACH;;;EAED,IAAMwtB,aAAa,GAAG,OAAO5F,MAAP,KAAkB,WAAlB,IAChBA,MAAM,CAACt6B,QADS,IACGA,QAAQ,CAACkgC,aADlC;;EAGA,IAAI,OAAO5F,MAAP,KAAkB,WAAtB,EAAmC;EAC/B56B,EAAAA,aAAa,CAAC46B,MAAD,EAAS77B,IAAT,CAAb;EACH;;;EAED,IAAI0hC,MAAM,GAAI,YAAW;EACrB;EACA;EACA;EACA;EACA,MAAIC,IAAI,GAAGv3B,OAAO,CAAC,UAAD,CAAP,CAAoB9C,OAApB,EAAX;;EACA,MAAIs6B,KAAK,GAAGD,IAAI,KAAK,OAAO,QAAhB,GAA2B,IAAIE,IAAJ,EAA3B,GAAwC,IAAIA,IAAJ,CAASF,IAAT,CAApD;;EACA,MAAIG,OAAO,GAAG,SAAVA,OAAU,CAAAv/B,CAAC;EAAA,WAAIA,CAAC,CAACrC,QAAF,GAAaiK,QAAb,CAAsB,CAAtB,EAAyB,GAAzB,CAAJ;EAAA,GAAf;;EACA,MAAI43B,KAAK,GAAGH,KAAK,CAACI,WAAN,EAAZ;;EACA,MAAIC,MAAM,GAAG,CACTF,KADS,EAETD,OAAO,CAACF,KAAK,CAACM,QAAN,KAAmB,CAApB,CAFE,EAGTJ,OAAO,CAACF,KAAK,CAACO,OAAN,EAAD,CAHE,EAIX/8B,IAJW,CAIN,GAJM,CAAb;;EAKA,MAAIs8B,MAAM,GAAG,6RAQWO,MARX,yDASIF,KATJ,iSAeft7B,OAfe,CAeP,OAfO,EAeE,EAfF,CAAb;EAgBA,SAAOi7B,MAAP;EACH,CA/BY,EAAb;EAiCA;EACA;;;EACAjyB,SAAS,CAAC4M,KAAD,EAAQ,WAAR,EAAqB,OAArB,CAAT;EACA5M,SAAS,CAACwH,IAAD,EAAO,WAAP,EAAoB,MAApB,CAAT;EACAxH,SAAS,CAACwO,GAAD,EAAM,WAAN,EAAmB,KAAnB,CAAT;EACAxO,SAAS,CAACkL,OAAD,EAAU,WAAV,EAAuB,SAAvB,CAAT;EACAlL,SAAS,CAACsL,SAAD,EAAY,WAAZ,EAAyB,WAAzB,CAAT;EACAtL,SAAS,CAACyI,KAAD,EAAQ,WAAR,EAAqB,OAArB,CAAT;EACAzI,SAAS,CAAC4U,MAAD,EAAS,WAAT,EAAsB,QAAtB,CAAT;EACA5U,SAAS,CAAC0R,WAAD,EAAc,WAAd,EAA2B,aAA3B,CAAT;EACA1R,SAAS,CAACwR,SAAD,EAAY,WAAZ,EAAyB,YAAzB,CAAT;EACAxR,SAAS,CAACyR,UAAD,EAAa,WAAb,EAA0B,aAA1B,CAAT;EACAzR,SAAS,CAAC+hB,kBAAD,EAAqB,WAArB,EAAkC,aAAlC,CAAT;EACA/hB,SAAS,CAACoiB,gBAAD,EAAmB,WAAnB,EAAgC,oBAAhC,CAAT;EACApiB,SAAS,CAAC8iB,eAAD,EAAkB,WAAlB,EAA+B,mBAA/B,CAAT;EACA9iB,SAAS,CAAC+jB,aAAD,EAAgB,WAAhB,EAA6B,iBAA7B,CAAT;EACA/jB,SAAS,CAACsiB,cAAD,EAAiB,WAAjB,EAA8B,kBAA9B,CAAT;EACAtiB,SAAS,CAAC+kB,SAAD,EAAY,WAAZ,EAAyB,YAAzB,CAAT;EACA,CAACptB,OAAD,EAAU4B,QAAV,EAAoB7B,SAApB,EAA+BK,MAA/B,EAAuCskB,WAAvC,EAAoDxnB,OAApD,CAA4D,UAAAwc,GAAG,EAAI;EAC/DrR,EAAAA,SAAS,CAACqR,GAAD,EAAM,WAAN,EAAmB,QAAnB,CAAT;EACH,CAFD;EAGArR,SAAS,CAAC1H,UAAD,EAAa,WAAb,EAA0B,WAA1B,CAAT;EACA0H,SAAS,CAAC7E,OAAD,EAAU,WAAV,EAAuB,QAAvB,CAAT;EACA6E,SAAS,CAACrF,OAAD,EAAU,WAAV,EAAuB,QAAvB,CAAT;EACAqF,SAAS,CAACR,aAAD,EAAgB,WAAhB,EAA6B,SAA7B,CAAT;;MAEM4L,IAAI,GAAG;EACTojB,EAAAA,OAAO,EAAE,SADA;EAETyD,EAAAA,MAAM,EAANA,MAFS;EAGTC,EAAAA,IAAI,EAAE,UAHG;EAITpY,EAAAA,IAAI,EAAJA,IAJS;EAKT;EACAtiB,EAAAA,KAAK,EAAE+iB,OAAO,CAACzQ,eAAD,EAAkBtS,KAAlB,CANL;EAOT+F,EAAAA,QAAQ,EAARA,QAPS;EAQToK,EAAAA,QAAQ,EAARA,SARS;EAST0lB,EAAAA,OAAO,EAAPA,OATS;EAWTruB,EAAAA,SAAS,EAATA,SAXS;EAYTooB,EAAAA,WAAW,EAAXA,WAZS;EAcT4J,EAAAA,aAAa,EAAbA,aAdS;EAeT7J,EAAAA,eAAe,EAAfA,eAfS;EAiBTsH,EAAAA,SAAS,EAATA,SAjBS;EAmBT/c,EAAAA,WAAW,EAAXA,WAnBS;EAoBThL,EAAAA,GAAG,EAAE9S,QApBI;EAsBTy6B,EAAAA,MAAM,EAANA,MAtBS;EAwBT/J,EAAAA,WAAW,EAAXA,WAxBS;EAyBTqO,EAAAA,oBAAoB,EAAElmB,QAzBb;EA0BTmmB,EAAAA,mBAAmB,EAAEnmB,QA1BZ;EA2BTA,EAAAA,QAAQ,EAARA,QA3BS;EA6BThE,EAAAA,KAAK,EAALA,KA7BS;EA8BTmM,EAAAA,MAAM,EAANA,MA9BS;EA+BTpN,EAAAA,IAAI,EAAJA,IA/BS;EAgCT+J,EAAAA,MAAM,EAANA,MAhCS;EAiCT/R,EAAAA,aAAa,EAAbA,aAjCS;EAkCTjH,EAAAA,KAAK,EAAEwsB,SAlCE;EAoCTlmB,EAAAA,KAAK,EAALA,KApCS;EAsCT2S,EAAAA,SAAS,EAATA,SAtCS;EAuCTC,EAAAA,UAAU,EAAVA,UAvCS;EAwCTsQ,EAAAA,kBAAkB,EAAlBA,kBAxCS;EAyCTgC,EAAAA,aAAa,EAAbA,aAzCS;EA0CTzB,EAAAA,cAAc,EAAdA,cA1CS;EA2CTQ,EAAAA,eAAe,EAAfA,eA3CS;EA4CTV,EAAAA,gBAAgB,EAAhBA,gBA5CS;EA6CTW,EAAAA,mBAAmB,EAAnBA,mBA7CS;EA8CTU,EAAAA,oBAAoB,EAApBA,oBA9CS;EA+CTQ,EAAAA,mBAAmB,EAAnBA,mBA/CS;EAgDTC,EAAAA,oBAAoB,EAApBA,oBAhDS;EAkDT5Y,EAAAA,SAAS,EAATA,SAlDS;EAmDT7E,EAAAA,MAAM,EAANA,MAnDS;EAoDTnK,EAAAA,KAAK,EAALA,KApDS;EAqDTd,EAAAA,QAAQ,EAARA,QArDS;EAsDTmU,EAAAA,IAAI,EAAJA,IAtDS;EAuDTvI,EAAAA,GAAG,EAAHA,IAvDS;EAwDT1K,EAAAA,GAAG,EAAHA,GAxDS;EA0DTvB,EAAAA,OAAO,EAAPA,OA1DS;EA2DTxD,EAAAA,OAAO,EAAPA,OA3DS;EA4DTI,EAAAA,MAAM,EAANA,MA5DS;EA6DTwB,EAAAA,QAAQ,EAARA,QA7DS;EA8DT7B,EAAAA,SAAS,EAATA,SA9DS;EA+DT2kB,EAAAA,WAAW,EAAXA,WA/DS;EAgET/jB,EAAAA,UAAU,EAAVA,UAhES;EAiETqC,EAAAA,OAAO,EAAPA,OAjES;EAkETslB,EAAAA,WAAW,EAAXA;EAlES;EAsEb5sB,UAAU,CAACsP,GAAX,CAAe,MAAf,EAAuByI,IAAvB;;ACnyUA,cAAe,EAAE;;;;;;;ECAjB;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;EACA;AACA;EACA;EACA;EACA;EACA;EACA,SAAS,cAAc,CAAC,KAAK,EAAE,cAAc,EAAE;EAC/C;EACA,EAAE,IAAI,EAAE,GAAG,CAAC,CAAC;EACb,EAAE,KAAK,IAAI,CAAC,GAAG,KAAK,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,EAAE,CAAC,EAAE,EAAE;EAC9C,IAAI,IAAI,IAAI,GAAG,KAAK,CAAC,CAAC,CAAC,CAAC;EACxB,IAAI,IAAI,IAAI,KAAK,GAAG,EAAE;EACtB,MAAM,KAAK,CAAC,MAAM,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;EACzB,KAAK,MAAM,IAAI,IAAI,KAAK,IAAI,EAAE;EAC9B,MAAM,KAAK,CAAC,MAAM,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;EACzB,MAAM,EAAE,EAAE,CAAC;EACX,KAAK,MAAM,IAAI,EAAE,EAAE;EACnB,MAAM,KAAK,CAAC,MAAM,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;EACzB,MAAM,EAAE,EAAE,CAAC;EACX,KAAK;EACL,GAAG;AACH;EACA;EACA,EAAE,IAAI,cAAc,EAAE;EACtB,IAAI,OAAO,EAAE,EAAE,EAAE,EAAE,EAAE;EACrB,MAAM,KAAK,CAAC,OAAO,CAAC,IAAI,CAAC,CAAC;EAC1B,KAAK;EACL,GAAG;AACH;EACA,EAAE,OAAO,KAAK,CAAC;each,CAAC;AACD;EACA;EACA;EACA,IAAI,WAAW;each,IAAI,+DATA+D,CAAC;EACpE,IAAI,SAAS,GAAG,SAAS,QAAQ,EAAE;EACnC,EAAE,OAAO,WAAW,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC;EAC7C,CAAC,CAAC;AACF;EACA;EACA;EACO,SAAS,OAAO,GAAG;EAC1B,EAAE,IAAI,YAAY,GAAG,EAAE;EACvB,MAAM,gBAAgB,GAAG,KAAK,CAAC;AAC/B;EACA,EAAE,KAAK,IAAI,CAAC,GAAG,SAAS,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,gBAAgB,EAAE,CAAC,EAAE,EAAE;EACxE,IAAI,IAAI,IAAI,GAAG,CAAC,CAAC,IAAI,CAAC,IAAI,SAAS,CAAC,CAAC,CAAC,GAAG,GAAG,CAAC;AAC7C;EACA;EACA,IAAI,IAAI,OAAO,IAAI,KAAK,QAAQ,EAAE;EAClC,MAAM,MAAM,IAAI,SAAS,CAAC,2CAA2C,CAAC,CAAC;EACvE,KAAK,MAAM,IAAI,CAAC,IAAI,EAAE;EACtB,MAAM,SAAS;each,KAAK;AACL;EACA,IAAI,YAAY,GAAG,IAAI,GAAG,GAAG,GAAG,YAAY,CAAC;EAC7C,IAAI,gBAAgB,GAAG,IAAI,CAAC,MAAM,CAAC,CAAC,CAAC,KAAK,GAAG,CAAC;EAC9C,GAAG;AACH;EACA;EACA;AACA;EACA;EACA,EAAE,YAAY,GAAG,cAAc,CAAC,MAAM,CAAC,YAAY,CAAC,KAAK,CAAC,GAAG,CAAC,EAAE,SAAS,CAAC,EAAE;EAC5E,IAAI,OAAO,CAAC,CAAC,CAAC,CAAC;each,GAAG,CAAC,EAAE,CAAC,gBAAgB,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;AACnC;EACA,EAAE,OAAO,CAAC,CAAC,gBAAgB,GAAG,GAAG,GAAG,EAAE,IAAI,YAAY,KAAK,GAAG,CAAC;EAC/D,CACA;EACA;EACA;EACO,SAAS,SAAS,CAAC,IAAI,EAAE;EAChC,EAAE,IAAI,cAAc,GAAG,UAAU,CAAC,IAAI,CAAC;EACvC,MAAM,aAAa,GAAG,MAAM,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC,KAAK,GAAG,CAAC;AAC/C;EACA;EACA,EAAE,IAAI,GAAG,cAAc,CAAC,MAAM,CAAC,IAAI,CAAC,KAAK,CAAC,GAAG,CAAC,EAAE,SAAS,CAAC,EAAE;EAC5D,IAAI,OAAO,CAAC,CAAC,CAAC,CAAC;each,GAAG,CAAC,EAAE,CAAC,cAAc,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;AACjC;EACA,EAAE,IAAI,CAAC,IAAI,IAAI,CAAC,cAAc,EAAE;EAChC,IAAI,IAAI,GAAG,GAAG,CAAC;each,GAAG;EACH,EAAE,IAAI,IAAI,IAAI,aAAa,EAAE;EAC7B,IAAI,IAAI,IAAI,GAAG,CAAC;EAChB,GAAG;AACH;EACA,EAAE,OAAO,CAAC,cAAc,GAAG,GAAG,GAAG,EAAE,IAAI,IAAI,CAAC;EAC5C,CACA;EACA;EACO,SAAS,UAAU,CAAC,IAAI,EAAE;EACjC,EAAE,OAAO,IAAI,CAAC,MAAM,CAAC,CAAC,CAAC,KAAK,GAAG,CAAC;EAChC,CAAC;AACD;EACA;EACO,SAAS,IAAI,GAAG;EACvB,EAAE,IAAI,KAAK,GAAG,KAAK,CAAC,SAAS,CAAC,KAAK,CAAC,IAAI,CAAC,SAAS,EAAE,CAAC,CAAC,CAAC;EACvD,EAAE,OAAO,SAAS,CAAC,MAAM,CAAC,KAAK,EAAE,SAAS,CAAC,EAAE,KAAK,EAAE;EACpD,IAAI,IAAI,OAAO,CAAC,KAAK,QAAQ,EAAE;EAC/B,MAAM,MAAM,IAAI,SAAS,CAAC,wCAAwC,CAAC,CAAC;EACpE,KAAK;EACL,IAAI,OAAO,CAAC,CAAC;EACb,GAAG,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC;EAChB,CAAC;AACD;AACA;EACA;EACA;EACO,SAAS,QAAQ,CAAC,IAAI,EAAE,EAAE,EAAE;EACnC,EAAE,IAAI,GAAG,OAAO,CAAC,IAAI,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC;EACjC,EAAE,EAAE,GAAG,OAAO,CAAC,EAAE,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC;AAC7B;EACA,EAAE,SAAS,IAAI,CAAC,GAAG,EAAE;EACrB,IAAI,IAAI,KAAK,GAAG,CAAC,CAAC;EAClB,IAAI,OAAO,KAAK,GAAG,GAAG,CAAC,MAAM,EAAE,KAAK,EAAE,EAAE;EACxC,MAAM,IAAI,GAAG,CAAC,KAAK,CAAC,KAAK,EAAE,EAAE,MAAM;EACnC,KAAK;AACL;EACA,IAAI,IAAI,GAAG,GAAG,GAAG,CAAC,MAAM,GAAG,CAAC,CAAC;EAC7B,IAAI,OAAO,GAAG,IAAI,CAAC,EAAE,GAAG,EAAE,EAAE;EAC5B,MAAM,IAAI,GAAG,CAAC,GAAG,CAAC,KAAK,EAAE,EAAE,MAAM;EACjC,KAAK;AACL;EACA,IAAI,IAAI,KAAK,GAAG,GAAG,EAAE,OAAO,EAAE,CAAC;EAC/B,IAAI,OAAO,GAAG,CAAC,KAAK,CAAC,KAAK,EAAE,GAAG,GAAG,KAAK,GAAG,CAAC,CAAC,CAAC;EAC7C,GAAG;AACH;EACA,EAAE,IAAI,SAAS,GAAG,IAAI,CAAC,IAAI,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC;EACxC,EAAE,IAAI,OAAO,GAAG,IAAI,CAAC,EAAE,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC;AACpC;EACA,EAAE,IAAI,MAAM,GAAG,IAAI,CAAC,GAAG,CAAC,SAAS,CAAC,MAAM,EAAE,OAAO,CAAC,MAAM,CAAC,CAAC;EAC1D,EAAE,IAAI,eAAe,GAAG,MAAM,CAAC;EAC/B,EAAE,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,CAAC,EAAE,EAAE;EACnC,IAAI,IAAI,SAAS,CAAC,CAAC,CAAC,KAAK,OAAO,CAAC,CAAC,CAAC,EAAE;EACrC,MAAM,eAAe,GAAG,CAAC,CAAC;EAC1B,MAAM,MAAM;EACZ,KAAK;EACL,GAAG;AACH;EACA,EAAE,IAAI,WAAW,GAAG,EAAE,CAAC;EACvB,EAAE,KAAK,IAAI,CAAC,GAAG,eAAe,EAAE,CAAC,GAAG,SAAS,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE;EAC3D,IAAI,WAAW,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;EAC3B,GAAG;AACH;EACA,EAAE,WAAW,GAAG,WAAW,CAAC,MAAM,CAAC,OAAO,CAAC,KAAK,CAAC,eAAe,CAAC,CAAC,CAAC;AACnE;EACA,EAAE,OAAO,WAAW,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;EAC/B,CAAC;AACD;EACO,IAAI,GAAG,GAAG,GAAG,CAAC;EACd,IAAI,SAAS,GAAG,GAAG,CAAC;AAC3B;EACO,SAAS,OAAO,CAAC,IAAI,EAAE;EAC9B,EAAE,IAAI,MAAM,GAAG,SAAS,CAAC,IAAI,CAAC;EAC9B,MAAM,IAAI,GAAG,MAAM,CAAC,CAAC,CAAC;EACtB,MAAM,GAAG,GAAG,MAAM,CAAC,CAAC,CAAC,CAAC;AACtB;EACA,EAAE,IAAI,CAAC,IAAI,IAAI,CAAC,GAAG,EAAE;EACrB;EACA,IAAI,OAAO,GAAG,CAAC;each,GAAG;AACH;EACA,EAAE,IAAI,GAAG,EAAE;EACX;EACA,IAAI,GAAG,GAAG,GAAG,CAAC,MAAM,CAAC,CAAC,EAAE,GAAG,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC;EACxC,GAAG;AACH;EACA,EAAE,OAAO,IAAI,GAAG,GAAG,CAAC;EACpB,CAAC;AACD;EACO,SAAS,QAAQ,CAAC,IAAI,EAAE,GAAG,EAAE;EACpC,EAAE,IAAI,CAAC,GAAG,SAAS,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC;EAC7B;EACA,EAAE,IAAI,GAAG,IAAI,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,GAAG,GAAG,CAAC,MAAM,CAAC,KAAK,GAAG,EAAE;EAChD,IAAI,CAAC,GAAG,CAAC,CAAC,MAAM,CAAC,CAAC,EAAE,CAAC,CAAC,MAAM,GAAG,GAAG,CAAC,MAAM,CAAC,CAAC;EAC3C,GAAG;EACH,EAAE,OAAO,CAAC,CAAC;EACX,CAAC;AACD;AACA;EACO,SAAS,OAAO,CAAC,IAAI,EAAE;EAC9B,EAAE,OAAO,SAAS,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC;EAC5B,CAAC;AACD,aAAe;each,EAAE,OAAO,EAAE,OAAO;EAClB,EAAE,QAAQ,EAAE,QAAQ;EACpB,EAAE,OAAO,EAAE,OAAO;EAClB,EAAE,GAAG,EAAE,GAAG;EACV,EAAE,SAAS,EAAE,SAAS;EACtB,EAAE,QAAQ,EAAE,QAAQ;EACpB,EAAE,IAAI,EAAE,IAAI;EACZ,EAAE,UAAU,EAAE,UAAU;EACxB,EAAE,SAAS,EAAE,SAAS;EACtB,EAAE,OAAO,EAAE,OAAO;EAClB,CAAC,CAAC;EACH,SAAS,MAAM,EAAE,EAAE,EAAE,CAAC,EAAE;EACxB,IAAI,IAAI,EAAE,CAAC,MAAM,EAAE,OAAO,EAAE,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC;EACvC,IAAI,IAAI,GAAG,GAAG,EAAE,CAAC;EACjB,IAAI,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,EAAE,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE;EACxC,QAAQ,IAAI,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC,EAAE,GAAG,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC;EAC7C,KAAK;EACL,IAAI,OAAO,GAAG,CAAC;each,CAAC;AACD;EACA;EACA,IAAI,MAAM,GAAG,IAAI,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,KAAK,GAAG;EACpC,IAAI,UAAU,GAAG,EAAE,KAAK,EAAE,GAAG,EAAE,EAAE,OAAO,GAAG,CAAC,MAAM,CAAC,KAAK,EAAE,GAAG,CAAC,EAAE;EAChE,IAAI,UAAU,GAAG,EAAE,KAAK,EAAE,GAAG,EAAE;EAC/B,QAAQ,IAAI,KAAK,GAAG,CAAC,EAAE,KAAK,GAAG,GAAG,CAAC,MAAM,GAAG,KAAK,CAAC;EAClD,QAAQ,OAAO,GAAG,CAAC,MAAM,CAAC,KAAK,EAAE,GAAG,CAAC,CAAC;EACtC,KAAK;EACL;;;;;;;;;;;;;;;;;;;;;;;"} \ No newline at end of file diff --git a/dist/lips.min.js b/dist/lips.min.js index af6e3c04c..e4d9092ff 100644 --- a/dist/lips.min.js +++ b/dist/lips.min.js @@ -4,7 +4,7 @@ * | | \ \ | | | || . \/ __> | | * | | > \ | |_ | || _/\__ \ | | * | | / ^ \ |___||_||_| <___/ | | - * \_\ /_/ \_\ /_/ v. 1.0.0-beta.16 + * \_\ /_/ \_\ /_/ v. DEV * * LIPS is Pretty Simple - Scheme based Powerful LISP in JavaScript * @@ -31,15 +31,15 @@ * Copyright (c) 2014-present, Facebook, Inc. * released under MIT license * - * build: Mon, 15 Nov 2021 19:33:52 +0000 + * build: Wed, 22 Nov 2023 13:53:23 +0000 */ -(function(e,t){typeof exports==="object"&&typeof module!=="undefined"?module.exports=t():typeof define==="function"&&define.amd?define(t):(e=typeof globalThis!=="undefined"?globalThis:e||self,e.lips=t())})(this,function(){"use strict";function i(e){if(e===void 0){throw new ReferenceError("this hasn't been initialised - super() hasn't been called")}return e}function o(e,t){o=Object.setPrototypeOf||function e(t,r){t.__proto__=r;return t};return o(e,t)}function n(){if(typeof Reflect==="undefined"||!Reflect.construct)return false;if(Reflect.construct.sham)return false;if(typeof Proxy==="function")return true;try{Boolean.prototype.valueOf.call(Reflect.construct(Boolean,[],function(){}));return true}catch(e){return false}}function p(e,t,r){if(n()){p=Reflect.construct}else{p=function e(t,r,n){var i=[null];i.push.apply(i,r);var u=Function.bind.apply(t,i);var a=new u;if(n)o(a,n.prototype);return a}}return p.apply(null,arguments)}function u(e,t){if(typeof t!=="function"&&t!==null){throw new TypeError("Super expression must either be null or a function")}e.prototype=Object.create(t&&t.prototype,{constructor:{value:e,writable:true,configurable:true}});if(t)o(e,t)}function _(e){"@babel/helpers - typeof";if(typeof Symbol==="function"&&typeof Symbol.iterator==="symbol"){_=function e(t){return typeof t}}else{_=function e(t){return t&&typeof Symbol==="function"&&t.constructor===Symbol&&t!==Symbol.prototype?"symbol":typeof t}}return _(e)}function a(e,t){if(t&&(_(t)==="object"||typeof t==="function")){return t}else if(t!==void 0){throw new TypeError("Derived constructors may only return object or undefined")}return i(e)}function s(e){s=Object.setPrototypeOf?Object.getPrototypeOf:function e(t){return t.__proto__||Object.getPrototypeOf(t)};return s(e)}function r(e){if(Array.isArray(e))return e}function t(e){if(typeof Symbol!=="undefined"&&e[Symbol.iterator]!=null||e["@@iterator"]!=null)return Array.from(e)}function c(e,t){if(t==null||t>e.length)t=e.length;for(var r=0,n=new Array(t);r=0)continue;r[i]=e[i]}return r}function D(e,t){if(e==null)return{};var r=w(e,t);var n,i;if(Object.getOwnPropertySymbols){var u=Object.getOwnPropertySymbols(e);for(i=0;i=0)continue;if(!Object.prototype.propertyIsEnumerable.call(e,n))continue;r[n]=e[n]}}return r}function E(e,t){var r=e==null?null:typeof Symbol!=="undefined"&&e[Symbol.iterator]||e["@@iterator"];if(r==null)return;var n=[];var i=true;var u=false;var a,o;try{for(r=r.call(e);!(i=(a=r.next()).done);i=true){n.push(a.value);if(t&&n.length===t)break}}catch(e){u=true;o=e}finally{try{if(!i&&r["return"]!=null)r["return"]()}finally{if(u)throw o}}return n}function A(e,t){return r(e)||E(e,t)||f(e,t)||l()}function F(e){var t;if(typeof Symbol!=="undefined"){if(Symbol.asyncIterator)t=e[Symbol.asyncIterator];if(t==null&&Symbol.iterator)t=e[Symbol.iterator]}if(t==null)t=e["@@asyncIterator"];if(t==null)t=e["@@iterator"];if(t==null)throw new TypeError("Object is not async iterable");return t.call(e)}function x(e){this.wrapped=e}function C(e){return new x(e)}function S(u){var a,o;function e(n,i){return new Promise(function(e,t){var r={key:n,arg:i,resolve:e,reject:t,next:null};if(o){o=o.next=r}else{a=o=r;s(n,i)}})}function s(t,e){try{var r=u[t](e);var n=r.value;var i=n instanceof x;Promise.resolve(i?n.wrapped:n).then(function(e){if(i){s(t==="return"?"return":"next",e);return}c(r.done?"return":"normal",e)},function(e){s("throw",e)})}catch(e){c("throw",e)}}function c(e,t){switch(e){case"return":a.resolve({value:t,done:true});break;case"throw":a.reject(t);break;default:a.resolve({value:t,done:false});break}a=a.next;if(a){s(a.key,a.arg)}else{o=null}}this._invoke=e;if(typeof u["return"]!=="function"){this["return"]=undefined}}S.prototype[typeof Symbol==="function"&&Symbol.asyncIterator||"@@asyncIterator"]=function(){return this};S.prototype.next=function(e){return this._invoke("next",e)};S.prototype["throw"]=function(e){return this._invoke("throw",e)};S.prototype["return"]=function(e){return this._invoke("return",e)};function e(e){return function(){return new S(e.apply(this,arguments))}}var B={exports:{}};(function(e){var t=function(a){var e=Object.prototype;var f=e.hasOwnProperty;var s;var t=typeof Symbol==="function"?Symbol:{};var i=t.iterator||"@@iterator";var r=t.asyncIterator||"@@asyncIterator";var n=t.toStringTag||"@@toStringTag";function u(e,t,r){Object.defineProperty(e,t,{value:r,enumerable:true,configurable:true,writable:true});return e[t]}try{u({},"")}catch(e){u=function(e,t,r){return e[t]=r}}function o(e,t,r,n){var i=t&&t.prototype instanceof c?t:c;var u=Object.create(i.prototype);var a=new O(n||[]);u._invoke=F(e,r,a);return u}a.wrap=o;function l(e,t,r){try{return{type:"normal",arg:e.call(t,r)}}catch(e){return{type:"throw",arg:e}}}var h="suspendedStart";var p="suspendedYield";var _="executing";var d="completed";var v={};function c(){}function m(){}function y(){}var g={};u(g,i,function(){return this});var b=Object.getPrototypeOf;var w=b&&b(b(S([])));if(w&&w!==e&&f.call(w,i)){g=w}var D=y.prototype=c.prototype=Object.create(g);m.prototype=y;u(D,"constructor",y);u(y,"constructor",m);m.displayName=u(y,n,"GeneratorFunction");function E(e){["next","throw","return"].forEach(function(t){u(e,t,function(e){return this._invoke(t,e)})})}a.isGeneratorFunction=function(e){var t=typeof e==="function"&&e.constructor;return t?t===m||(t.displayName||t.name)==="GeneratorFunction":false};a.mark=function(e){if(Object.setPrototypeOf){Object.setPrototypeOf(e,y)}else{e.__proto__=y;u(e,n,"GeneratorFunction")}e.prototype=Object.create(D);return e};a.awrap=function(e){return{__await:e}};function A(o,s){function c(e,t,r,n){var i=l(o[e],o,t);if(i.type==="throw"){n(i.arg)}else{var u=i.arg;var a=u.value;if(a&&typeof a==="object"&&f.call(a,"__await")){return s.resolve(a.__await).then(function(e){c("next",e,r,n)},function(e){c("throw",e,r,n)})}return s.resolve(a).then(function(e){u.value=e;r(u)},function(e){return c("throw",e,r,n)})}}var t;function e(r,n){function e(){return new s(function(e,t){c(r,n,e,t)})}return t=t?t.then(e,e):e()}this._invoke=e}E(A.prototype);u(A.prototype,r,function(){return this});a.AsyncIterator=A;a.async=function(e,t,r,n,i){if(i===void 0)i=Promise;var u=new A(o(e,t,r,n),i);return a.isGeneratorFunction(t)?u:u.next().then(function(e){return e.done?e.value:u.next()})};function F(a,o,s){var c=h;return function e(t,r){if(c===_){throw new Error("Generator is already running")}if(c===d){if(t==="throw"){throw r}return B()}s.method=t;s.arg=r;while(true){var n=s.delegate;if(n){var i=x(n,s);if(i){if(i===v)continue;return i}}if(s.method==="next"){s.sent=s._sent=s.arg}else if(s.method==="throw"){if(c===h){c=d;throw s.arg}s.dispatchException(s.arg)}else if(s.method==="return"){s.abrupt("return",s.arg)}c=_;var u=l(a,o,s);if(u.type==="normal"){c=s.done?d:p;if(u.arg===v){continue}return{value:u.arg,done:s.done}}else if(u.type==="throw"){c=d;s.method="throw";s.arg=u.arg}}}}function x(e,t){var r=e.iterator[t.method];if(r===s){t.delegate=null;if(t.method==="throw"){if(e.iterator["return"]){t.method="return";t.arg=s;x(e,t);if(t.method==="throw"){return v}}t.method="throw";t.arg=new TypeError("The iterator does not provide a 'throw' method")}return v}var n=l(r,e.iterator,t.arg);if(n.type==="throw"){t.method="throw";t.arg=n.arg;t.delegate=null;return v}var i=n.arg;if(!i){t.method="throw";t.arg=new TypeError("iterator result is not an object");t.delegate=null;return v}if(i.done){t[e.resultName]=i.value;t.next=e.nextLoc;if(t.method!=="return"){t.method="next";t.arg=s}}else{return i}t.delegate=null;return v}E(D);u(D,n,"Generator");u(D,i,function(){return this});u(D,"toString",function(){return"[object Generator]"});function C(e){var t={tryLoc:e[0]};if(1 in e){t.catchLoc=e[1]}if(2 in e){t.finallyLoc=e[2];t.afterLoc=e[3]}this.tryEntries.push(t)}function k(e){var t=e.completion||{};t.type="normal";delete t.arg;e.completion=t}function O(e){this.tryEntries=[{tryLoc:"root"}];e.forEach(C,this);this.reset(true)}a.keys=function(r){var n=[];for(var e in r){n.push(e)}n.reverse();return function e(){while(n.length){var t=n.pop();if(t in r){e.value=t;e.done=false;return e}}e.done=true;return e}};function S(t){if(t){var e=t[i];if(e){return e.call(t)}if(typeof t.next==="function"){return t}if(!isNaN(t.length)){var r=-1,n=function e(){while(++r=0;--t){var i=this.tryEntries[t];var u=i.completion;if(i.tryLoc==="root"){return e("end")}if(i.tryLoc<=this.prev){var a=f.call(i,"catchLoc");var o=f.call(i,"finallyLoc");if(a&&o){if(this.prev=0;--r){var n=this.tryEntries[r];if(n.tryLoc<=this.prev&&f.call(n,"finallyLoc")&&this.prev=0;--t){var r=this.tryEntries[t];if(r.finallyLoc===e){this.complete(r.completion,r.afterLoc);k(r);return v}}},catch:function(e){for(var t=this.tryEntries.length-1;t>=0;--t){var r=this.tryEntries[t];if(r.tryLoc===e){var n=r.completion;if(n.type==="throw"){var i=n.arg;k(r)}return i}}throw new Error("illegal catch attempt")},delegateYield:function(e,t,r){this.delegate={iterator:S(e),resultName:t,nextLoc:r};if(this.method==="next"){this.arg=s}return v}};return a}(e.exports);try{regeneratorRuntime=t}catch(e){if(typeof globalThis==="object"){globalThis.regeneratorRuntime=t}else{Function("r","regeneratorRuntime = r")(t)}}})(B);var j=B.exports;var I=typeof global!=="undefined"?global:typeof self!=="undefined"?self:typeof window!=="undefined"?window:{};var P=[];var N=[];var R=typeof Uint8Array!=="undefined"?Uint8Array:Array;var T=false;function U(){T=true;var e="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";for(var t=0,r=e.length;t0){throw new Error("Invalid string. Length must be a multiple of 4")}u=e[o-2]==="="?2:e[o-1]==="="?1:0;a=new R(o*3/4-u);n=u>0?o-4:o;var s=0;for(t=0,r=0;t>16&255;a[s++]=i>>8&255;a[s++]=i&255}if(u===2){i=N[e.charCodeAt(t)]<<2|N[e.charCodeAt(t+1)]>>4;a[s++]=i&255}else if(u===1){i=N[e.charCodeAt(t)]<<10|N[e.charCodeAt(t+1)]<<4|N[e.charCodeAt(t+2)]>>2;a[s++]=i>>8&255;a[s++]=i&255}return a}function M(e){return P[e>>18&63]+P[e>>12&63]+P[e>>6&63]+P[e&63]}function Y(e,t,r){var n;var i=[];for(var u=t;us?s:o+a))}if(n===1){t=e[r-1];i+=P[t>>2];i+=P[t<<4&63];i+="=="}else if(n===2){t=(e[r-2]<<8)+e[r-1];i+=P[t>>10];i+=P[t>>4&63];i+=P[t<<2&63];i+="="}u.push(i);return u.join("")}function z(e,t,r,n,i){var u,a;var o=i*8-n-1;var s=(1<>1;var f=-7;var l=r?i-1:0;var h=r?-1:1;var p=e[t+l];l+=h;u=p&(1<<-f)-1;p>>=-f;f+=o;for(;f>0;u=u*256+e[t+l],l+=h,f-=8){}a=u&(1<<-f)-1;u>>=-f;f+=n;for(;f>0;a=a*256+e[t+l],l+=h,f-=8){}if(u===0){u=1-c}else if(u===s){return a?NaN:(p?-1:1)*Infinity}else{a=a+Math.pow(2,n);u=u-c}return(p?-1:1)*a*Math.pow(2,u-n)}function V(e,t,r,n,i,u){var a,o,s;var c=u*8-i-1;var f=(1<>1;var h=i===23?Math.pow(2,-24)-Math.pow(2,-77):0;var p=n?0:u-1;var _=n?1:-1;var d=t<0||t===0&&1/t<0?1:0;t=Math.abs(t);if(isNaN(t)||t===Infinity){o=isNaN(t)?1:0;a=f}else{a=Math.floor(Math.log(t)/Math.LN2);if(t*(s=Math.pow(2,-a))<1){a--;s*=2}if(a+l>=1){t+=h/s}else{t+=h*Math.pow(2,1-l)}if(t*s>=2){a++;s/=2}if(a+l>=f){o=0;a=f}else if(a+l>=1){o=(t*s-1)*Math.pow(2,i);a=a+l}else{o=t*Math.pow(2,l-1)*Math.pow(2,i);a=0}}for(;i>=8;e[r+p]=o&255,p+=_,o/=256,i-=8){}a=a<0;e[r+p]=a&255,p+=_,a/=256,c-=8){}e[r+p-_]|=d*128}var J={}.toString;var G=Array.isArray||function(e){return J.call(e)=="[object Array]"}; +(function(e,t){typeof exports==="object"&&typeof module!=="undefined"?module.exports=t():typeof define==="function"&&define.amd?define(t):(e=typeof globalThis!=="undefined"?globalThis:e||self,e.lips=t())})(this,function(){"use strict";function i(e){if(e===void 0){throw new ReferenceError("this hasn't been initialised - super() hasn't been called")}return e}function o(e,t){o=Object.setPrototypeOf||function e(t,r){t.__proto__=r;return t};return o(e,t)}function n(){if(typeof Reflect==="undefined"||!Reflect.construct)return false;if(Reflect.construct.sham)return false;if(typeof Proxy==="function")return true;try{Boolean.prototype.valueOf.call(Reflect.construct(Boolean,[],function(){}));return true}catch(e){return false}}function p(e,t,r){if(n()){p=Reflect.construct}else{p=function e(t,r,n){var i=[null];i.push.apply(i,r);var u=Function.bind.apply(t,i);var a=new u;if(n)o(a,n.prototype);return a}}return p.apply(null,arguments)}function u(e,t){if(typeof t!=="function"&&t!==null){throw new TypeError("Super expression must either be null or a function")}e.prototype=Object.create(t&&t.prototype,{constructor:{value:e,writable:true,configurable:true}});Object.defineProperty(e,"prototype",{writable:false});if(t)o(e,t)}function _(e){"@babel/helpers - typeof";return _="function"==typeof Symbol&&"symbol"==typeof Symbol.iterator?function(e){return typeof e}:function(e){return e&&"function"==typeof Symbol&&e.constructor===Symbol&&e!==Symbol.prototype?"symbol":typeof e},_(e)}function a(e,t){if(t&&(_(t)==="object"||typeof t==="function")){return t}else if(t!==void 0){throw new TypeError("Derived constructors may only return object or undefined")}return i(e)}function c(e){c=Object.setPrototypeOf?Object.getPrototypeOf:function e(t){return t.__proto__||Object.getPrototypeOf(t)};return c(e)}function r(e){if(Array.isArray(e))return e}function t(e){if(typeof Symbol!=="undefined"&&e[Symbol.iterator]!=null||e["@@iterator"]!=null)return Array.from(e)}function f(e,t){if(t==null||t>e.length)t=e.length;for(var r=0,n=new Array(t);r=0)continue;r[i]=e[i]}return r}function F(e,t){if(e==null)return{};var r=x(e,t);var n,i;if(Object.getOwnPropertySymbols){var u=Object.getOwnPropertySymbols(e);for(i=0;i=0)continue;if(!Object.prototype.propertyIsEnumerable.call(e,n))continue;r[n]=e[n]}}return r}function k(e,t){var r=e==null?null:typeof Symbol!=="undefined"&&e[Symbol.iterator]||e["@@iterator"];if(r==null)return;var n=[];var i=true;var u=false;var a,o;try{for(r=r.call(e);!(i=(a=r.next()).done);i=true){n.push(a.value);if(t&&n.length===t)break}}catch(e){u=true;o=e}finally{try{if(!i&&r["return"]!=null)r["return"]()}finally{if(u)throw o}}return n}function j(e,t){return r(e)||k(e,t)||l(e,t)||d()}function I(e){this.wrapped=e}function P(e){return new I(e)}function N(u){var a,o;function e(n,i){return new Promise(function(e,t){var r={key:n,arg:i,resolve:e,reject:t,next:null};if(o){o=o.next=r}else{a=o=r;s(n,i)}})}function s(t,e){try{var r=u[t](e);var n=r.value;var i=n instanceof I;Promise.resolve(i?n.wrapped:n).then(function(e){if(i){s(t==="return"?"return":"next",e);return}c(r.done?"return":"normal",e)},function(e){s("throw",e)})}catch(e){c("throw",e)}}function c(e,t){switch(e){case"return":a.resolve({value:t,done:true});break;case"throw":a.reject(t);break;default:a.resolve({value:t,done:false});break}a=a.next;if(a){s(a.key,a.arg)}else{o=null}}this._invoke=e;if(typeof u["return"]!=="function"){this["return"]=undefined}}N.prototype[typeof Symbol==="function"&&Symbol.asyncIterator||"@@asyncIterator"]=function(){return this};N.prototype.next=function(e){return this._invoke("next",e)};N.prototype["throw"]=function(e){return this._invoke("throw",e)};N.prototype["return"]=function(e){return this._invoke("return",e)};function e(e){return function(){return new N(e.apply(this,arguments))}}function R(e){return e&&e.__esModule&&Object.prototype.hasOwnProperty.call(e,"default")?e["default"]:e}var T={exports:{}};var V={exports:{}};(function(e){var t=function(a){var e=Object.prototype;var f=e.hasOwnProperty;var s;var o=typeof Symbol==="function"?Symbol:{};var i=o.iterator||"@@iterator";var c=o.asyncIterator||"@@asyncIterator";var p=o.toStringTag||"@@toStringTag";function r(e,t,r){Object.defineProperty(e,t,{value:r,enumerable:true,configurable:true,writable:true});return e[t]}try{r({},"")}catch(e){r=function(e,t,r){return e[t]=r}}function _(e,t,r,n){var i=t&&t.prototype instanceof g?t:g;var u=Object.create(i.prototype);var a=new O(n||[]);u._invoke=x(e,r,a);return u}a.wrap=_;function d(e,t,r){try{return{type:"normal",arg:e.call(t,r)}}catch(e){return{type:"throw",arg:e}}}var v="suspendedStart";var y="suspendedYield";var m="executing";var l="completed";var h={};function g(){}function n(){}function t(){}var b={};r(b,i,function(){return this});var w=Object.getPrototypeOf;var D=w&&w(w(S([])));if(D&&D!==e&&f.call(D,i)){b=D}var u=t.prototype=g.prototype=Object.create(b);n.prototype=t;r(u,"constructor",t);r(t,"constructor",n);n.displayName=r(t,p,"GeneratorFunction");function E(e){["next","throw","return"].forEach(function(t){r(e,t,function(e){return this._invoke(t,e)})})}a.isGeneratorFunction=function(e){var t=typeof e==="function"&&e.constructor;return t?t===n||(t.displayName||t.name)==="GeneratorFunction":false};a.mark=function(e){if(Object.setPrototypeOf){Object.setPrototypeOf(e,t)}else{e.__proto__=t;r(e,p,"GeneratorFunction")}e.prototype=Object.create(u);return e};a.awrap=function(e){return{__await:e}};function A(o,s){function c(e,t,r,n){var i=d(o[e],o,t);if(i.type==="throw"){n(i.arg)}else{var u=i.arg;var a=u.value;if(a&&typeof a==="object"&&f.call(a,"__await")){return s.resolve(a.__await).then(function(e){c("next",e,r,n)},function(e){c("throw",e,r,n)})}return s.resolve(a).then(function(e){u.value=e;r(u)},function(e){return c("throw",e,r,n)})}}var t;function e(r,n){function e(){return new s(function(e,t){c(r,n,e,t)})}return t=t?t.then(e,e):e()}this._invoke=e}E(A.prototype);r(A.prototype,c,function(){return this});a.AsyncIterator=A;a.async=function(e,t,r,n,i){if(i===void 0)i=Promise;var u=new A(_(e,t,r,n),i);return a.isGeneratorFunction(t)?u:u.next().then(function(e){return e.done?e.value:u.next()})};function x(a,o,s){var c=v;return function e(t,r){if(c===m){throw new Error("Generator is already running")}if(c===l){if(t==="throw"){throw r}return B()}s.method=t;s.arg=r;while(true){var n=s.delegate;if(n){var i=F(n,s);if(i){if(i===h)continue;return i}}if(s.method==="next"){s.sent=s._sent=s.arg}else if(s.method==="throw"){if(c===v){c=l;throw s.arg}s.dispatchException(s.arg)}else if(s.method==="return"){s.abrupt("return",s.arg)}c=m;var u=d(a,o,s);if(u.type==="normal"){c=s.done?l:y;if(u.arg===h){continue}return{value:u.arg,done:s.done}}else if(u.type==="throw"){c=l;s.method="throw";s.arg=u.arg}}}}function F(e,t){var r=e.iterator[t.method];if(r===s){t.delegate=null;if(t.method==="throw"){if(e.iterator["return"]){t.method="return";t.arg=s;F(e,t);if(t.method==="throw"){return h}}t.method="throw";t.arg=new TypeError("The iterator does not provide a 'throw' method")}return h}var n=d(r,e.iterator,t.arg);if(n.type==="throw"){t.method="throw";t.arg=n.arg;t.delegate=null;return h}var i=n.arg;if(!i){t.method="throw";t.arg=new TypeError("iterator result is not an object");t.delegate=null;return h}if(i.done){t[e.resultName]=i.value;t.next=e.nextLoc;if(t.method!=="return"){t.method="next";t.arg=s}}else{return i}t.delegate=null;return h}E(u);r(u,p,"Generator");r(u,i,function(){return this});r(u,"toString",function(){return"[object Generator]"});function k(e){var t={tryLoc:e[0]};if(1 in e){t.catchLoc=e[1]}if(2 in e){t.finallyLoc=e[2];t.afterLoc=e[3]}this.tryEntries.push(t)}function C(e){var t=e.completion||{};t.type="normal";delete t.arg;e.completion=t}function O(e){this.tryEntries=[{tryLoc:"root"}];e.forEach(k,this);this.reset(true)}a.keys=function(r){var n=[];for(var e in r){n.push(e)}n.reverse();return function e(){while(n.length){var t=n.pop();if(t in r){e.value=t;e.done=false;return e}}e.done=true;return e}};function S(t){if(t){var e=t[i];if(e){return e.call(t)}if(typeof t.next==="function"){return t}if(!isNaN(t.length)){var r=-1,n=function e(){while(++r=0;--t){var i=this.tryEntries[t];var u=i.completion;if(i.tryLoc==="root"){return e("end")}if(i.tryLoc<=this.prev){var a=f.call(i,"catchLoc");var o=f.call(i,"finallyLoc");if(a&&o){if(this.prev=0;--r){var n=this.tryEntries[r];if(n.tryLoc<=this.prev&&f.call(n,"finallyLoc")&&this.prev=0;--t){var r=this.tryEntries[t];if(r.finallyLoc===e){this.complete(r.completion,r.afterLoc);C(r);return h}}},catch:function(e){for(var t=this.tryEntries.length-1;t>=0;--t){var r=this.tryEntries[t];if(r.tryLoc===e){var n=r.completion;if(n.type==="throw"){var i=n.arg;C(r)}return i}}throw new Error("illegal catch attempt")},delegateYield:function(e,t,r){this.delegate={iterator:S(e),resultName:t,nextLoc:r};if(this.method==="next"){this.arg=s}return h}};return a}(e.exports);try{regeneratorRuntime=t}catch(e){if(typeof globalThis==="object"){globalThis.regeneratorRuntime=t}else{Function("r","regeneratorRuntime = r")(t)}}})(V);(function(e){e.exports=V.exports})(T);var z=R(T.exports);var $=typeof global!=="undefined"?global:typeof self!=="undefined"?self:typeof window!=="undefined"?window:{};var J=[];var K=[];var G=typeof Uint8Array!=="undefined"?Uint8Array:Array;var H=false;function W(){H=true;var e="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";for(var t=0,r=e.length;t0){throw new Error("Invalid string. Length must be a multiple of 4")}u=e[o-2]==="="?2:e[o-1]==="="?1:0;a=new G(o*3/4-u);n=u>0?o-4:o;var s=0;for(t=0,r=0;t>16&255;a[s++]=i>>8&255;a[s++]=i&255}if(u===2){i=K[e.charCodeAt(t)]<<2|K[e.charCodeAt(t+1)]>>4;a[s++]=i&255}else if(u===1){i=K[e.charCodeAt(t)]<<10|K[e.charCodeAt(t+1)]<<4|K[e.charCodeAt(t+2)]>>2;a[s++]=i>>8&255;a[s++]=i&255}return a}function Z(e){return J[e>>18&63]+J[e>>12&63]+J[e>>6&63]+J[e&63]}function X(e,t,r){var n;var i=[];for(var u=t;us?s:o+a))}if(n===1){t=e[r-1];i+=J[t>>2];i+=J[t<<4&63];i+="=="}else if(n===2){t=(e[r-2]<<8)+e[r-1];i+=J[t>>10];i+=J[t>>4&63];i+=J[t<<2&63];i+="="}u.push(i);return u.join("")}function te(e,t,r,n,f){var i,u;var l=f*8-n-1;var h=(1<>1;var a=-7;var o=r?f-1:0;var s=r?-1:1;var c=e[t+o];o+=s;i=c&(1<<-a)-1;c>>=-a;a+=l;for(;a>0;i=i*256+e[t+o],o+=s,a-=8){}u=i&(1<<-a)-1;i>>=-a;a+=n;for(;a>0;u=u*256+e[t+o],o+=s,a-=8){}if(i===0){i=1-p}else if(i===h){return u?NaN:(c?-1:1)*Infinity}else{u=u+Math.pow(2,n);i=i-p}return(c?-1:1)*u*Math.pow(2,i-n)}function re(e,t,f,l,r,h){var n,i,u;var a=h*8-r-1;var o=(1<>1;var p=r===23?Math.pow(2,-24)-Math.pow(2,-77):0;var c=l?0:h-1;var _=l?1:-1;var d=t<0||t===0&&1/t<0?1:0;t=Math.abs(t);if(isNaN(t)||t===Infinity){i=isNaN(t)?1:0;n=o}else{n=Math.floor(Math.log(t)/Math.LN2);if(t*(u=Math.pow(2,-n))<1){n--;u*=2}if(n+s>=1){t+=p/u}else{t+=p*Math.pow(2,1-s)}if(t*u>=2){n++;u/=2}if(n+s>=o){i=0;n=o}else if(n+s>=1){i=(t*u-1)*Math.pow(2,r);n=n+s}else{i=t*Math.pow(2,s-1)*Math.pow(2,r);n=0}}for(;r>=8;e[f+c]=i&255,c+=_,i/=256,r-=8){}n=n<0;e[f+c]=n&255,c+=_,n/=256,a-=8){}e[f+c-_]|=d*128}var ne={}.toString;var ie=Array.isArray||function(e){return ne.call(e)=="[object Array]"}; /*! * The buffer module from node.js, for the browser. * * @author Feross Aboukhadijeh * @license MIT - */var H=50;Z.TYPED_ARRAY_SUPPORT=I.TYPED_ARRAY_SUPPORT!==undefined?I.TYPED_ARRAY_SUPPORT:true;function W(){return Z.TYPED_ARRAY_SUPPORT?2147483647:1073741823}function Q(e,t){if(W()=W()){throw new RangeError("Attempt to allocate Buffer larger than maximum "+"size: 0x"+W().toString(16)+" bytes")}return e|0}Z.isBuffer=ze;function oe(e){return!!(e!=null&&e._isBuffer)}Z.compare=function e(t,r){if(!oe(t)||!oe(r)){throw new TypeError("Arguments must be Buffers")}if(t===r)return 0;var n=t.length;var i=r.length;for(var u=0,a=Math.min(n,i);u>>1;case"base64":return Me(e).length;default:if(n)return Le(e).length;t=(""+t).toLowerCase();n=true}}}Z.byteLength=se;function ce(e,t,r){var n=false;if(t===undefined||t<0){t=0}if(t>this.length){return""}if(r===undefined||r>this.length){r=this.length}if(r<=0){return""}r>>>=0;t>>>=0;if(r<=t){return""}if(!e)e="utf8";while(true){switch(e){case"hex":return Fe(this,t,r);case"utf8":case"utf-8":return be(this,t,r);case"ascii":return Ee(this,t,r);case"latin1":case"binary":return Ae(this,t,r);case"base64":return ge(this,t,r);case"ucs2":case"ucs-2":case"utf16le":case"utf-16le":return xe(this,t,r);default:if(n)throw new TypeError("Unknown encoding: "+e);e=(e+"").toLowerCase();n=true}}}Z.prototype._isBuffer=true;function fe(e,t,r){var n=e[t];e[t]=e[r];e[r]=n}Z.prototype.swap16=function e(){var t=this.length;if(t%2!==0){throw new RangeError("Buffer size must be a multiple of 16-bits")}for(var r=0;r0){t=this.toString("hex",0,r).match(/.{2}/g).join(" ");if(this.length>r)t+=" ... "}return""};Z.prototype.compare=function e(t,r,n,i,u){if(!oe(t)){throw new TypeError("Argument must be a Buffer")}if(r===undefined){r=0}if(n===undefined){n=t?t.length:0}if(i===undefined){i=0}if(u===undefined){u=this.length}if(r<0||n>t.length||i<0||u>this.length){throw new RangeError("out of range index")}if(i>=u&&r>=n){return 0}if(i>=u){return-1}if(r>=n){return 1}r>>>=0;n>>>=0;i>>>=0;u>>>=0;if(this===t)return 0;var a=u-i;var o=n-r;var s=Math.min(a,o);var c=this.slice(i,u);var f=t.slice(r,n);for(var l=0;l2147483647){r=2147483647}else if(r<-2147483648){r=-2147483648}r=+r;if(isNaN(r)){r=i?0:e.length-1}if(r<0)r=e.length+r;if(r>=e.length){if(i)return-1;else r=e.length-1}else if(r<0){if(i)r=0;else return-1}if(typeof t==="string"){t=Z.from(t,n)}if(oe(t)){if(t.length===0){return-1}return he(e,t,r,n,i)}else if(typeof t==="number"){t=t&255;if(Z.TYPED_ARRAY_SUPPORT&&typeof Uint8Array.prototype.indexOf==="function"){if(i){return Uint8Array.prototype.indexOf.call(e,t,r)}else{return Uint8Array.prototype.lastIndexOf.call(e,t,r)}}return he(e,[t],r,n,i)}throw new TypeError("val must be string, number or Buffer")}function he(e,t,r,n,i){var u=1;var a=e.length;var o=t.length;if(n!==undefined){n=String(n).toLowerCase();if(n==="ucs2"||n==="ucs-2"||n==="utf16le"||n==="utf-16le"){if(e.length<2||t.length<2){return-1}u=2;a/=2;o/=2;r/=2}}function s(e,t){if(u===1){return e[t]}else{return e.readUInt16BE(t*u)}}var c;if(i){var f=-1;for(c=r;ca)r=a-o;for(c=r;c>=0;c--){var l=true;for(var h=0;hi){n=i}}var u=t.length;if(u%2!==0)throw new TypeError("Invalid hex string");if(n>u/2){n=u/2}for(var a=0;au)n=u;if(t.length>0&&(n<0||r<0)||r>this.length){throw new RangeError("Attempt to write outside buffer bounds")}if(!i)i="utf8";var a=false;for(;;){switch(i){case"hex":return pe(this,t,r,n);case"utf8":case"utf-8":return _e(this,t,r,n);case"ascii":return de(this,t,r,n);case"latin1":case"binary":return ve(this,t,r,n);case"base64":return me(this,t,r,n);case"ucs2":case"ucs-2":case"utf16le":case"utf-16le":return ye(this,t,r,n);default:if(a)throw new TypeError("Unknown encoding: "+i);i=(""+i).toLowerCase();a=true}}};Z.prototype.toJSON=function e(){return{type:"Buffer",data:Array.prototype.slice.call(this._arr||this,0)}};function ge(e,t,r){if(t===0&&r===e.length){return $(e)}else{return $(e.slice(t,r))}}function be(e,t,r){r=Math.min(e.length,r);var n=[];var i=t;while(i239?4:u>223?3:u>191?2:1;if(i+o<=r){var s,c,f,l;switch(o){case 1:if(u<128){a=u}break;case 2:s=e[i+1];if((s&192)===128){l=(u&31)<<6|s&63;if(l>127){a=l}}break;case 3:s=e[i+1];c=e[i+2];if((s&192)===128&&(c&192)===128){l=(u&15)<<12|(s&63)<<6|c&63;if(l>2047&&(l<55296||l>57343)){a=l}}break;case 4:s=e[i+1];c=e[i+2];f=e[i+3];if((s&192)===128&&(c&192)===128&&(f&192)===128){l=(u&15)<<18|(s&63)<<12|(c&63)<<6|f&63;if(l>65535&&l<1114112){a=l}}}}if(a===null){a=65533;o=1}else if(a>65535){a-=65536;n.push(a>>>10&1023|55296);a=56320|a&1023}n.push(a);i+=o}return De(n)}var we=4096;function De(e){var t=e.length;if(t<=we){return String.fromCharCode.apply(String,e)}var r="";var n=0;while(nn)r=n;var i="";for(var u=t;un){t=n}if(r<0){r+=n;if(r<0)r=0}else if(r>n){r=n}if(rr)throw new RangeError("Trying to access beyond buffer length")}Z.prototype.readUIntLE=function e(t,r,n){t=t|0;r=r|0;if(!n)Ce(t,r,this.length);var i=this[t];var u=1;var a=0;while(++a0&&(u*=256)){i+=this[t+--r]*u}return i};Z.prototype.readUInt8=function e(t,r){if(!r)Ce(t,1,this.length);return this[t]};Z.prototype.readUInt16LE=function e(t,r){if(!r)Ce(t,2,this.length);return this[t]|this[t+1]<<8};Z.prototype.readUInt16BE=function e(t,r){if(!r)Ce(t,2,this.length);return this[t]<<8|this[t+1]};Z.prototype.readUInt32LE=function e(t,r){if(!r)Ce(t,4,this.length);return(this[t]|this[t+1]<<8|this[t+2]<<16)+this[t+3]*16777216};Z.prototype.readUInt32BE=function e(t,r){if(!r)Ce(t,4,this.length);return this[t]*16777216+(this[t+1]<<16|this[t+2]<<8|this[t+3])};Z.prototype.readIntLE=function e(t,r,n){t=t|0;r=r|0;if(!n)Ce(t,r,this.length);var i=this[t];var u=1;var a=0;while(++a=u)i-=Math.pow(2,8*r);return i};Z.prototype.readIntBE=function e(t,r,n){t=t|0;r=r|0;if(!n)Ce(t,r,this.length);var i=r;var u=1;var a=this[t+--i];while(i>0&&(u*=256)){a+=this[t+--i]*u}u*=128;if(a>=u)a-=Math.pow(2,8*r);return a};Z.prototype.readInt8=function e(t,r){if(!r)Ce(t,1,this.length);if(!(this[t]&128))return this[t];return(255-this[t]+1)*-1};Z.prototype.readInt16LE=function e(t,r){if(!r)Ce(t,2,this.length);var n=this[t]|this[t+1]<<8;return n&32768?n|4294901760:n};Z.prototype.readInt16BE=function e(t,r){if(!r)Ce(t,2,this.length);var n=this[t+1]|this[t]<<8;return n&32768?n|4294901760:n};Z.prototype.readInt32LE=function e(t,r){if(!r)Ce(t,4,this.length);return this[t]|this[t+1]<<8|this[t+2]<<16|this[t+3]<<24};Z.prototype.readInt32BE=function e(t,r){if(!r)Ce(t,4,this.length);return this[t]<<24|this[t+1]<<16|this[t+2]<<8|this[t+3]};Z.prototype.readFloatLE=function e(t,r){if(!r)Ce(t,4,this.length);return z(this,t,true,23,4)};Z.prototype.readFloatBE=function e(t,r){if(!r)Ce(t,4,this.length);return z(this,t,false,23,4)};Z.prototype.readDoubleLE=function e(t,r){if(!r)Ce(t,8,this.length);return z(this,t,true,52,8)};Z.prototype.readDoubleBE=function e(t,r){if(!r)Ce(t,8,this.length);return z(this,t,false,52,8)};function ke(e,t,r,n,i,u){if(!oe(e))throw new TypeError('"buffer" argument must be a Buffer instance');if(t>i||te.length)throw new RangeError("Index out of range")}Z.prototype.writeUIntLE=function e(t,r,n,i){t=+t;r=r|0;n=n|0;if(!i){var u=Math.pow(2,8*n)-1;ke(this,t,r,n,u,0)}var a=1;var o=0;this[r]=t&255;while(++o=0&&(o*=256)){this[r+a]=t/o&255}return r+n};Z.prototype.writeUInt8=function e(t,r,n){t=+t;r=r|0;if(!n)ke(this,t,r,1,255,0);if(!Z.TYPED_ARRAY_SUPPORT)t=Math.floor(t);this[r]=t&255;return r+1};function Oe(e,t,r,n){if(t<0)t=65535+t+1;for(var i=0,u=Math.min(e.length-r,2);i>>(n?i:1-i)*8}}Z.prototype.writeUInt16LE=function e(t,r,n){t=+t;r=r|0;if(!n)ke(this,t,r,2,65535,0);if(Z.TYPED_ARRAY_SUPPORT){this[r]=t&255;this[r+1]=t>>>8}else{Oe(this,t,r,true)}return r+2};Z.prototype.writeUInt16BE=function e(t,r,n){t=+t;r=r|0;if(!n)ke(this,t,r,2,65535,0);if(Z.TYPED_ARRAY_SUPPORT){this[r]=t>>>8;this[r+1]=t&255}else{Oe(this,t,r,false)}return r+2};function Se(e,t,r,n){if(t<0)t=4294967295+t+1;for(var i=0,u=Math.min(e.length-r,4);i>>(n?i:3-i)*8&255}}Z.prototype.writeUInt32LE=function e(t,r,n){t=+t;r=r|0;if(!n)ke(this,t,r,4,4294967295,0);if(Z.TYPED_ARRAY_SUPPORT){this[r+3]=t>>>24;this[r+2]=t>>>16;this[r+1]=t>>>8;this[r]=t&255}else{Se(this,t,r,true)}return r+4};Z.prototype.writeUInt32BE=function e(t,r,n){t=+t;r=r|0;if(!n)ke(this,t,r,4,4294967295,0);if(Z.TYPED_ARRAY_SUPPORT){this[r]=t>>>24;this[r+1]=t>>>16;this[r+2]=t>>>8;this[r+3]=t&255}else{Se(this,t,r,false)}return r+4};Z.prototype.writeIntLE=function e(t,r,n,i){t=+t;r=r|0;if(!i){var u=Math.pow(2,8*n-1);ke(this,t,r,n,u-1,-u)}var a=0;var o=1;var s=0;this[r]=t&255;while(++a>0)-s&255}return r+n};Z.prototype.writeIntBE=function e(t,r,n,i){t=+t;r=r|0;if(!i){var u=Math.pow(2,8*n-1);ke(this,t,r,n,u-1,-u)}var a=n-1;var o=1;var s=0;this[r+a]=t&255;while(--a>=0&&(o*=256)){if(t<0&&s===0&&this[r+a+1]!==0){s=1}this[r+a]=(t/o>>0)-s&255}return r+n};Z.prototype.writeInt8=function e(t,r,n){t=+t;r=r|0;if(!n)ke(this,t,r,1,127,-128);if(!Z.TYPED_ARRAY_SUPPORT)t=Math.floor(t);if(t<0)t=255+t+1;this[r]=t&255;return r+1};Z.prototype.writeInt16LE=function e(t,r,n){t=+t;r=r|0;if(!n)ke(this,t,r,2,32767,-32768);if(Z.TYPED_ARRAY_SUPPORT){this[r]=t&255;this[r+1]=t>>>8}else{Oe(this,t,r,true)}return r+2};Z.prototype.writeInt16BE=function e(t,r,n){t=+t;r=r|0;if(!n)ke(this,t,r,2,32767,-32768);if(Z.TYPED_ARRAY_SUPPORT){this[r]=t>>>8;this[r+1]=t&255}else{Oe(this,t,r,false)}return r+2};Z.prototype.writeInt32LE=function e(t,r,n){t=+t;r=r|0;if(!n)ke(this,t,r,4,2147483647,-2147483648);if(Z.TYPED_ARRAY_SUPPORT){this[r]=t&255;this[r+1]=t>>>8;this[r+2]=t>>>16;this[r+3]=t>>>24}else{Se(this,t,r,true)}return r+4};Z.prototype.writeInt32BE=function e(t,r,n){t=+t;r=r|0;if(!n)ke(this,t,r,4,2147483647,-2147483648);if(t<0)t=4294967295+t+1;if(Z.TYPED_ARRAY_SUPPORT){this[r]=t>>>24;this[r+1]=t>>>16;this[r+2]=t>>>8;this[r+3]=t&255}else{Se(this,t,r,false)}return r+4};function Be(e,t,r,n,i,u){if(r+n>e.length)throw new RangeError("Index out of range");if(r<0)throw new RangeError("Index out of range")}function je(e,t,r,n,i){if(!i){Be(e,t,r,4)}V(e,t,r,n,23,4);return r+4}Z.prototype.writeFloatLE=function e(t,r,n){return je(this,t,r,true,n)};Z.prototype.writeFloatBE=function e(t,r,n){return je(this,t,r,false,n)};function Ie(e,t,r,n,i){if(!i){Be(e,t,r,8)}V(e,t,r,n,52,8);return r+8}Z.prototype.writeDoubleLE=function e(t,r,n){return Ie(this,t,r,true,n)};Z.prototype.writeDoubleBE=function e(t,r,n){return Ie(this,t,r,false,n)};Z.prototype.copy=function e(t,r,n,i){if(!n)n=0;if(!i&&i!==0)i=this.length;if(r>=t.length)r=t.length;if(!r)r=0;if(i>0&&i=this.length)throw new RangeError("sourceStart out of bounds");if(i<0)throw new RangeError("sourceEnd out of bounds");if(i>this.length)i=this.length;if(t.length-r=0;--a){t[a+r]=this[a+n]}}else if(u<1e3||!Z.TYPED_ARRAY_SUPPORT){for(a=0;a>>0;n=n===undefined?this.length:n>>>0;if(!t)t=0;var a;if(typeof t==="number"){for(a=r;a55295&&r<57344){if(!i){if(r>56319){if((t-=3)>-1)u.push(239,191,189);continue}else if(a+1===n){if((t-=3)>-1)u.push(239,191,189);continue}i=r;continue}if(r<56320){if((t-=3)>-1)u.push(239,191,189);i=r;continue}r=(i-55296<<10|r-56320)+65536}else if(i){if((t-=3)>-1)u.push(239,191,189)}i=null;if(r<128){if((t-=1)<0)break;u.push(r)}else if(r<2048){if((t-=2)<0)break;u.push(r>>6|192,r&63|128)}else if(r<65536){if((t-=3)<0)break;u.push(r>>12|224,r>>6&63|128,r&63|128)}else if(r<1114112){if((t-=4)<0)break;u.push(r>>18|240,r>>12&63|128,r>>6&63|128,r&63|128)}else{throw new Error("Invalid code point")}}return u}function Ue(e){var t=[];for(var r=0;r>8;i=r%256;u.push(i);u.push(n)}return u}function Me(e){return q(Ne(e))}function Ye(e,t,r,n){for(var i=0;i=t.length||i>=e.length)break;t[i+r]=e[i]}return i}function $e(e){return e!==e}function ze(e){return e!=null&&(!!e._isBuffer||Ve(e)||Je(e))}function Ve(e){return!!e.constructor&&typeof e.constructor.isBuffer==="function"&&e.constructor.isBuffer(e)}function Je(e){return typeof e.readFloatLE==="function"&&typeof e.slice==="function"&&Ve(e.slice(0,0))}let Ge;try{Ge=new TextDecoder}catch(e){}let He;let We;let Qe=0;const Ze=105;const Ke={};let Xe={};let et;let tt;let rt=0;let nt=0;let it;let ut=[];let at;let ot;let st={useRecords:false,mapsAsObjects:true};let ct=false;class ft{constructor(e){if(e){if(e.useRecords===false&&e.mapsAsObjects===undefined)e.mapsAsObjects=true;if(e.getStructures&&!e.structures)(e.structures=[]).uninitialized=true}Object.assign(this,e)}decode(e,t){if(He){return Bt(()=>{jt();return this?this.decode(e,t):ft.prototype.decode.call(st,e,t)})}We=t>-1?t:e.length;Qe=0;nt=0;tt=null;He=e;at=e.dataView||(e.dataView=new DataView(e.buffer,e.byteOffset,e.byteLength));if(this){Xe=this;if(this.structures){et=this.structures;return lt()}else if(!et||et.length>0){et=[]}}else{Xe=st;if(!et||et.length>0)et=[]}return lt()}decodeMultiple(r,n){let i,u=0;try{let e=r.length;ct=true;let t=this?this.decode(r,e):Nt.decode(r,e);if(n){n(t);while(QeWe){let e=new Error("Unexpected end of CBOR data");e.incomplete=true;throw e}else if(!ct){throw new Error("Data read, but end of buffer not reached")}return e}catch(e){jt();if(e instanceof RangeError||e.message.startsWith("Unexpected end of buffer")){e.incomplete=true}throw e}}function ht(){let r=He[Qe++];let i=r>>5;r=r&31;if(r>23){switch(r){case 24:r=He[Qe++];break;case 25:if(i==7){return Dt()}r=at.getUint16(Qe);Qe+=2;break;case 26:if(i==7){let t=at.getFloat32(Qe);if(Xe.useFloat32>2){let e=Pt[(He[Qe]&127)<<1|He[Qe+1]>>7];Qe+=4;return(e*t+(t>0?.5:-.5)>>0)/e}Qe+=4;return t}r=at.getUint32(Qe);Qe+=4;break;case 27:if(i==7){let e=at.getFloat64(Qe);Qe+=8;return e}if(Xe.uint64AsNumber)return He[Qe++]*72057594037927940+He[Qe++]*281474976710656+He[Qe++]*1099511627776+He[Qe++]*4294967296+He[Qe++]*16777216+(He[Qe++]<<16)+(He[Qe++]<<8)+He[Qe++];r=at.getBigUint64(Qe);Qe+=8;break;case 31:switch(i){case 2:case 3:case 4:let e=[];let t,r=0;while((t=ht())!=Ke){e[r++]=t}return i==4?e:i==3?e.join(""):Z.concat(e);case 5:let n;if(Xe.mapsAsObjects){let e={};while((n=At())!=Ke)e[n]=ht();return e}else{if(ot){Xe.mapsAsObjects=true;ot=false}let e=new Map;while((n=ht())!=Ke)e.set(n,ht());return e}case 7:return Ke;default:throw new Error("Invalid major type for indefinite length "+i)}default:throw new Error("Unknown token "+r)}}switch(i){case 0:return r;case 1:return~r;case 2:return wt(r);case 3:if(nt>=Qe){return tt.slice(Qe-rt,(Qe+=r)-rt)}if(nt==0&&We<140&&r<32){let e=r<16?bt(r):gt(r);if(e!=null)return e}return vt(r);case 4:let t=new Array(r);for(let e=0;e>8==Ze){let t=et[r&255];if(t){if(!t.read)t.read=_t(t);return t.read()}else if(Xe.getStructures){let e=Bt(()=>{He=null;return Xe.getStructures()});if(et===true)Xe.structures=et=e;else et.splice.apply(et,[0,e.length].concat(e));t=et[r&255];if(t){if(!t.read)t.read=_t(t);return t.read()}else return r}else return r}else{let e=ut[r];if(e){if(e.handlesRead)return e(ht);else return e(ht())}else return new Ft(ht())}case 7:switch(r){case 20:return false;case 21:return true;case 22:return null;case 23:return;case 31:default:throw new Error("Unknown token "+r)}default:if(isNaN(r)){let e=new Error("Unexpected end of CBOR data");e.incomplete=true;throw e}throw new Error("Unknown CBOR token "+r)}}const pt=/^[a-zA-Z_$][a-zA-Z\d_$]*$/;function _t(n){let e=n.length;function t(){if(t.count++>2){this.read=new Function("a","r","return function(){a();return {"+n.map(e=>pt.test(e)?e+":r()":"["+JSON.stringify(e)+"]:r()").join(",")+"}}")(dt,ht);return this.read()}dt();let r={};for(let t=0;t23){switch(t){case 24:Qe++;break;case 25:Qe+=2;break;case 26:Qe+=4}}}let vt=mt;function mt(e){let t;if(e<16){if(t=bt(e))return t}if(e>64&&Ge)return Ge.decode(He.subarray(Qe,Qe+=e));const r=Qe+e;const n=[];t="";while(Qe65535){e-=65536;n.push(e>>>10&1023|55296);e=56320|e&1023}n.push(e)}else{n.push(i)}if(n.length>=4096){t+=yt.apply(String,n);n.length=0}}if(n.length>0){t+=yt.apply(String,n)}return t}let yt=String.fromCharCode;function gt(t){let r=Qe;let n=new Array(t);for(let e=0;e0){Qe=r;return}n[e]=i}return yt.apply(String,n)}function bt(d){if(d<4){if(d<2){if(d===0)return"";else{let e=He[Qe++];if((e&128)>1){Qe-=1;return}return yt(e)}}else{let e=He[Qe++];let t=He[Qe++];if((e&128)>0||(t&128)>0){Qe-=2;return}if(d<3)return yt(e,t);let r=He[Qe++];if((r&128)>0){Qe-=3;return}return yt(e,t,r)}}else{let l=He[Qe++];let h=He[Qe++];let p=He[Qe++];let _=He[Qe++];if((l&128)>0||(h&128)>0||(p&128)>0||(_&128)>0){Qe-=4;return}if(d<6){if(d===4)return yt(l,h,p,_);else{let e=He[Qe++];if((e&128)>0){Qe-=5;return}return yt(l,h,p,_,e)}}else if(d<8){let e=He[Qe++];let t=He[Qe++];if((e&128)>0||(t&128)>0){Qe-=6;return}if(d<7)return yt(l,h,p,_,e,t);let r=He[Qe++];if((r&128)>0){Qe-=7;return}return yt(l,h,p,_,e,t,r)}else{let o=He[Qe++];let s=He[Qe++];let c=He[Qe++];let f=He[Qe++];if((o&128)>0||(s&128)>0||(c&128)>0||(f&128)>0){Qe-=8;return}if(d<10){if(d===8)return yt(l,h,p,_,o,s,c,f);else{let e=He[Qe++];if((e&128)>0){Qe-=9;return}return yt(l,h,p,_,o,s,c,f,e)}}else if(d<12){let e=He[Qe++];let t=He[Qe++];if((e&128)>0||(t&128)>0){Qe-=10;return}if(d<11)return yt(l,h,p,_,o,s,c,f,e,t);let r=He[Qe++];if((r&128)>0){Qe-=11;return}return yt(l,h,p,_,o,s,c,f,e,t,r)}else{let n=He[Qe++];let i=He[Qe++];let u=He[Qe++];let a=He[Qe++];if((n&128)>0||(i&128)>0||(u&128)>0||(a&128)>0){Qe-=12;return}if(d<14){if(d===12)return yt(l,h,p,_,o,s,c,f,n,i,u,a);else{let e=He[Qe++];if((e&128)>0){Qe-=13;return}return yt(l,h,p,_,o,s,c,f,n,i,u,a,e)}}else{let e=He[Qe++];let t=He[Qe++];if((e&128)>0||(t&128)>0){Qe-=14;return}if(d<15)return yt(l,h,p,_,o,s,c,f,n,i,u,a,e,t);let r=He[Qe++];if((r&128)>0){Qe-=15;return}return yt(l,h,p,_,o,s,c,f,n,i,u,a,e,t,r)}}}}}function wt(e){return Xe.copyBuffers?Uint8Array.prototype.slice.call(He,Qe,Qe+=e):He.subarray(Qe,Qe+=e)}function Dt(){let e=He[Qe++];let t=He[Qe++];let r=(e<<8)+t;let n=r>>10&31;let i=r&1023;let u;if(n==0)u=Math.exp(i,-24);else if(n!=31)u=Math.exp(i+1024,n-25);else u=i==0?Infinity:NaN;return r&32768?-u:u}let Et=new Array(4096);function At(){let e=He[Qe++];if(e>=96&&e<120){e=e-96;if(nt>=Qe)return tt.slice(Qe-rt,(Qe+=e)-rt);else if(!(nt==0&&We<180))return vt(e)}else{Qe--;return ht()}let t=(e<<5^(e>1?at.getUint16(Qe):e>0?He[Qe]:0))&4095;let r=Et[t];let n=Qe;let i=Qe+e-3;let u;let a=0;if(r&&r.bytes==e){while(n{return new Date(e)};ut[1]=e=>{return new Date(e*1e3)};ut[2]=e=>{return new DataView(e.buffer,e.byteOffset,e.byteLength).getBigUint64(0)};ut[3]=e=>{return BigInt(-1)-new DataView(e.buffer,e.byteOffset,e.byteLength).getBigUint64(0)};const Ct=()=>{let r=ht();let n=r[0];let e=r[1];et[e&255]=n;n.read=_t(n);let i={};for(let t=2,e=r.length;t{return(xt[e[0]]||Error)(e[1],e[2])};ut[40009]=e=>{if(!it)it=new Map;let t=He[Qe];let r;if(t>>5==4)r=[];else r={};let n={target:r};it.set(e,n);let i=ht();if(n.used)return Object.assign(r,i);n.target=i;return i};ut[40010]=e=>{let t=it.get(e);t.used=true;return t.target};ut[258]=e=>new Set(e);(ut[259]=e=>{if(Xe.mapsAsObjects){Xe.mapsAsObjects=false;ot=true}return e()}).handlesRead=true;const kt=["Uint8","Uint8Clamped","Uint16","Uint32","BigUint64","Int8","Int16","Int32","BigInt64","Float32","Float64"].map(e=>e+"Array");const Ot=[64,68,69,70,71,72,77,78,79,81,82];for(let e=0;e{if(!t)throw new Error("Could not find typed array for code "+typeCode);return new xt[t](Uint8Array.prototype.slice.call(e,0).buffer)}}function Bt(e){let t=We;let r=Qe;let n=rt;let i=nt;let u=tt;let a=it;let o=new Uint8Array(He.slice(0,We));let s=et;let c=Xe;let f=ct;let l=e();We=t;Qe=r;rt=n;nt=i;tt=u;it=a;He=o;ct=f;et=s;Xe=c;at=new DataView(He.buffer,He.byteOffset,He.byteLength);return l}function jt(){He=null;it=null;et=null}function It(e){ut[e.tag]=e.decode}let Pt=new Array(147);for(let e=0;e<256;e++){Pt[e]=+("1e"+Math.floor(45.15-e*.30103))}let Nt=new ft({useRecords:false});Nt.decode;Nt.decodeMultiple;let Rt;try{Rt=new TextEncoder}catch(e){}let Tt,Lt;const Ut=typeof Z!=="undefined";const qt=Ut?Z.allocUnsafeSlow:Uint8Array;const Mt=Ut?Z:Uint8Array;const Yt=105;const $t=256;const zt=Ut?4294967296:2144337920;let Vt;let Jt;let Gt=0;let Ht;const Wt=Symbol("record-id");class Qt extends ft{constructor(e){super(e);this.offset=0;let i;let o;let s;let c;let r;let n=0;let t=Mt.prototype.utf8Write?function(e,t,r){return Vt.utf8Write(e,t,r)}:Rt&&Rt.encodeInto?function(e,t){return Rt.encodeInto(e,Vt.subarray(t)).written}:false;let u=this;let f=64;let a=e&&e.sequential;if(a){f=0;this.structures=[]}let l=[];let h=0;let p=0;if(this.structures&&this.structures.length>f){throw new Error("Too many shared structures")}this.encode=function(e){if(!Vt){Vt=new qt(8192);Jt=new DataView(Vt.buffer,0,8192);Gt=0}Ht=Vt.length-10;if(Ht-Gt<2048){Vt=new qt(Vt.length);Jt=new DataView(Vt.buffer,0,Vt.length);Ht=Vt.length-10;Gt=0}i=Gt;r=u.structuredClone?new Map:null;o=u.structures;if(o){if(o.uninitialized)u.structures=o=u.getStructures();let t=o.length;if(t>f&&!a)t=f;if(!o.transitions){o.transitions=Object.create(null);for(let e=0;eHt)v(Gt);u.offset=Gt;let e=er(Vt.subarray(i,Gt),r.idsToInsert);r=null;return e}return Vt.subarray(i,Gt)}finally{if(o){if(p<10)p++;if(h>1e4){o.transitions=null;p=0;h=0;if(l.length>0)l=[]}else if(l.length>0&&!a){for(let e=0,t=l.length;ef){u.structures=u.structures.slice(0,f)}if(u.saveStructures(u.structures,n)===false){u.structures=u.getStructures()||[];return u.encode(e)}n=u.structures.length}}}};const _=a=>{if(Gt>Ht)Vt=v(Gt);var e=typeof a;var o;if(e==="string"){let i=a.length;let u;if(i<32){u=1}else if(i<256){u=2}else if(i<65536){u=3}else{u=5}let e=i*3;if(Gt+e>Ht)Vt=v(Gt+e);if(i<64||!t){let e,t,r,n=Gt+u;for(e=0;e>6|192;Vt[n++]=t&63|128}else if((t&64512)===55296&&((r=a.charCodeAt(e+1))&64512)===56320){t=65536+((t&1023)<<10)+(r&1023);e++;Vt[n++]=t>>18|240;Vt[n++]=t>>12&63|128;Vt[n++]=t>>6&63|128;Vt[n++]=t&63|128}else{Vt[n++]=t>>12|224;Vt[n++]=t>>6&63|128;Vt[n++]=t&63|128}}o=n-Gt-u}else{o=t(a,Gt+u,e)}if(o<24){Vt[Gt++]=96|o}else if(o<256){if(u<2){Vt.copyWithin(Gt+2,Gt+1,Gt+1+o)}Vt[Gt++]=120;Vt[Gt++]=o}else if(o<65536){if(u<3){Vt.copyWithin(Gt+3,Gt+2,Gt+2+o)}Vt[Gt++]=121;Vt[Gt++]=o>>8;Vt[Gt++]=o&255}else{if(u<5){Vt.copyWithin(Gt+5,Gt+3,Gt+3+o)}Vt[Gt++]=122;Jt.setUint32(Gt,o);Gt+=4}Gt+=o}else if(e==="number"){if(a>>>0===a){if(a<24){Vt[Gt++]=a}else if(a<256){Vt[Gt++]=24;Vt[Gt++]=a}else if(a<65536){Vt[Gt++]=25;Vt[Gt++]=a>>8;Vt[Gt++]=a&255}else{Vt[Gt++]=26;Jt.setUint32(Gt,a);Gt+=4}}else if(a>>0===a){if(a>=-24){Vt[Gt++]=31-a}else if(a>=-256){Vt[Gt++]=56;Vt[Gt++]=~a}else if(a>=-65536){Vt[Gt++]=57;Jt.setUint16(Gt,~a);Gt+=2}else{Vt[Gt++]=58;Jt.setUint32(Gt,~a);Gt+=4}}else{let t;if((t=this.useFloat32)>0&&a<4294967296&&a>=-2147483648){Vt[Gt++]=250;Jt.setFloat32(Gt,a);let e;if(t<4||(e=a*Pt[(Vt[Gt]&127)<<1|Vt[Gt+1]>>7])>>0===e){Gt+=4;return}else Gt--}Vt[Gt++]=251;Jt.setFloat64(Gt,a);Gt+=8}}else if(e==="object"){if(!a)Vt[Gt++]=246;else{if(r){let t=r.get(a);if(t){if(!t.id){let e=r.idsToInsert||(r.idsToInsert=[]);t.id=e.push(t)}Vt[Gt++]=217;Vt[Gt++]=40010>>8;Vt[Gt++]=40010&255;Vt[Gt++]=26;Jt.setUint32(Gt,t.id);Gt+=4;return}else r.set(a,{offset:Gt-i})}let e=a.constructor;if(e===Object){d(a,true)}else if(e===Array){o=a.length;if(o<24){Vt[Gt++]=128|o}else{Zt(o)}for(let e=0;e>8;Vt[Gt++]=o&255}else{Vt[Gt++]=186;Jt.setUint32(Gt,o);Gt+=4}for(let[e,t]of a){_(e);_(t)}}else{for(let r=0,e=Tt.length;r>8;Vt[Gt++]=t&255}else if(t>-1){Vt[Gt++]=218;Jt.setUint32(Gt,t);Gt+=4}e.encode.call(this,a,_,v);return}}if(a[Symbol.iterator]){Vt[Gt++]=159;for(let e of a){_(e)}Vt[Gt++]=255;return}d(a,!a.hasOwnProperty)}}}else if(e==="boolean"){Vt[Gt++]=a?245:244}else if(e==="bigint"){if(a=0){Vt[Gt++]=27;Jt.setBigUint64(Gt,a)}else if(a>-(BigInt(1)<{let r=Object.keys(t);let n=r.length;if(n<24){Vt[Gt++]=160|n}else if(n<256){Vt[Gt++]=184;Vt[Gt++]=n}else if(n<65536){Vt[Gt++]=185;Vt[Gt++]=n>>8;Vt[Gt++]=n&255}else{Vt[Gt++]=186;Jt.setUint32(Gt,n);Gt+=4}let i;for(let e=0;e{Vt[Gt++]=185;let e=Gt-i;Gt+=2;let n=0;for(let e in t){if(r||t.hasOwnProperty(e)){_(e);_(t[e]);n++}}Vt[e+++i]=n>>8;Vt[e+i]=n&255}:t=>{let r=Object.keys(t);let n,i=c.transitions||(c.transitions=Object.create(null));let u=0;let a=r.length;for(let t=0;t=$t){c.nextId=(e=f)+1}i[Wt]=e;c[e]=r;if(o&&o.length<=f){Vt[Gt++]=217;Vt[Gt++]=Yt;Vt[Gt++]=e;s=true}else{Vt[Gt++]=216;Vt[Gt++]=Yt;if(u)h+=p*u;if(l.length>=$t-f)l.shift()[Wt]=undefined;l.push(i);if(a<22)Vt[Gt++]=130+a;else Zt(a+2);_(r);Vt[Gt++]=25;Vt[Gt++]=Yt;Vt[Gt++]=e;for(let e=0;e{let t;if(e>16777216){if(e-i>zt)throw new Error("Encoded buffer would be larger than maximum buffer size");t=Math.min(zt,Math.round(Math.max((e-i)*(e>67108864?1.25:2),16777216)/4096)*4096)}else t=(Math.max(e-i<<2,Vt.length-1)>>12)+1<<12;let r=new qt(t);Jt=new DataView(r.buffer,0,t);if(Vt.copy)Vt.copy(r,0,i,e);else r.set(Vt.slice(i,e));Gt-=i;i=0;Ht=r.length-10;return Vt=r}}useBuffer(e){Vt=e;Jt=new DataView(Vt.buffer,Vt.byteOffset,Vt.byteLength);Gt=0}}function Zt(e){if(e<256){Vt[Gt++]=152;Vt[Gt++]=e}else if(e<65536){Vt[Gt++]=153;Vt[Gt++]=e>>8;Vt[Gt++]=e&255}else{Vt[Gt++]=154;Jt.setUint32(Gt,e);Gt+=4}}Lt=[Date,Set,Error,RegExp,ArrayBuffer,Mt,Uint8Array,Uint8ClampedArray,Uint16Array,Uint32Array,BigUint64Array,Int8Array,Int16Array,Int32Array,BigInt64Array,Float32Array,Float64Array];Tt=[{tag:1,encode(e,t){let r=e.getTime()/1e3;if((this.useTimestamp32||e.getMilliseconds()===0)&&r>=0&&r<4294967296){Vt[Gt++]=26;Jt.setUint32(Gt,r);Gt+=4}else{Vt[Gt++]=251;Jt.setFloat64(Gt,r);Gt+=8}}},{tag:258,encode(e,t){let r=Array.from(e);t(r)}},{tag:27,encode(e,t){t([e.name,e.message])}},{tag:27,encode(e,t){t(["RegExp",e.source,e.flags])}},{encode(e,t,r){Xt(e,r)}},{encode(e,t,r){Xt(e,r)}},Kt(64),Kt(68),Kt(69),Kt(70),Kt(71),Kt(72),Kt(77),Kt(78),Kt(79),Kt(81),Kt(82)];function Kt(e){return{tag:e,encode:function e(t,r){let n=t.byteLength;let i=t.byteOffset||0;let u=t.buffer||t;r(Ut?Z.from(u,i,n):new Uint8Array(u,i,n))}}}function Xt(e,t){let r=e.byteLength;if(r<24){Vt[Gt++]=64+r}else if(r<256){Vt[Gt++]=88;Vt[Gt++]=r}else if(r<65536){Vt[Gt++]=89;Vt[Gt++]=r>>8;Vt[Gt++]=r&255}else{Vt[Gt++]=90;Jt.setUint32(Gt,r);Gt+=4}if(Gt+r>=Vt.length){t(Gt+r)}Vt.set(e,Gt);Gt+=r}function er(n,e){let i;let u=e.length*8;let a=n.length-u;e.sort((e,t)=>e.offset>t.offset?1:-1);while(i=e.pop()){let e=i.offset;let t=i.id;n.copyWithin(e+u,e,a);u-=8;let r=e+u;n[r++]=217;n[r++]=40009>>8;n[r++]=40009&255;n[r++]=26;n[r++]=t>>24;n[r++]=t>>16&255;n[r++]=t>>8&255;n[r++]=t&255;a=e}return n}function tr(e){if(e.Class){if(!e.encode)throw new Error("Extension has no encode function");Lt.unshift(e.Class);Tt.unshift(e)}It(e)}let rr=new Qt({useRecords:false});rr.encode;var nr={}; + */var ue=50;se.TYPED_ARRAY_SUPPORT=$.TYPED_ARRAY_SUPPORT!==undefined?$.TYPED_ARRAY_SUPPORT:true;ae();function ae(){return se.TYPED_ARRAY_SUPPORT?2147483647:1073741823}function oe(e,t){if(ae()=ae()){throw new RangeError("Attempt to allocate Buffer larger than maximum "+"size: 0x"+ae().toString(16)+" bytes")}return e|0}se.isBuffer=tt;function me(e){return!!(e!=null&&e._isBuffer)}se.compare=function e(t,r){if(!me(t)||!me(r)){throw new TypeError("Arguments must be Buffers")}if(t===r)return 0;var n=t.length;var i=r.length;for(var u=0,a=Math.min(n,i);u>>1;case"base64":return Ze(e).length;default:if(n)return He(e).length;t=(""+t).toLowerCase();n=true}}}se.byteLength=ge;function be(e,t,r){var n=false;if(t===undefined||t<0){t=0}if(t>this.length){return""}if(r===undefined||r>this.length){r=this.length}if(r<=0){return""}r>>>=0;t>>>=0;if(r<=t){return""}if(!e)e="utf8";while(true){switch(e){case"hex":return Re(this,t,r);case"utf8":case"utf-8":return Be(this,t,r);case"ascii":return Pe(this,t,r);case"latin1":case"binary":return Ne(this,t,r);case"base64":return Se(this,t,r);case"ucs2":case"ucs-2":case"utf16le":case"utf-16le":return Te(this,t,r);default:if(n)throw new TypeError("Unknown encoding: "+e);e=(e+"").toLowerCase();n=true}}}se.prototype._isBuffer=true;function we(e,t,r){var n=e[t];e[t]=e[r];e[r]=n}se.prototype.swap16=function e(){var t=this.length;if(t%2!==0){throw new RangeError("Buffer size must be a multiple of 16-bits")}for(var r=0;r0){t=this.toString("hex",0,r).match(/.{2}/g).join(" ");if(this.length>r)t+=" ... "}return""};se.prototype.compare=function f(e,t,r,n,i){if(!me(e)){throw new TypeError("Argument must be a Buffer")}if(t===undefined){t=0}if(r===undefined){r=e?e.length:0}if(n===undefined){n=0}if(i===undefined){i=this.length}if(t<0||r>e.length||n<0||i>this.length){throw new RangeError("out of range index")}if(n>=i&&t>=r){return 0}if(n>=i){return-1}if(t>=r){return 1}t>>>=0;r>>>=0;n>>>=0;i>>>=0;if(this===e)return 0;var u=i-n;var a=r-t;var l=Math.min(u,a);var o=this.slice(n,i);var s=e.slice(t,r);for(var c=0;c2147483647){r=2147483647}else if(r<-2147483648){r=-2147483648}r=+r;if(isNaN(r)){r=i?0:e.length-1}if(r<0)r=e.length+r;if(r>=e.length){if(i)return-1;else r=e.length-1}else if(r<0){if(i)r=0;else return-1}if(typeof t==="string"){t=se.from(t,n)}if(me(t)){if(t.length===0){return-1}return Ee(e,t,r,n,i)}else if(typeof t==="number"){t=t&255;if(se.TYPED_ARRAY_SUPPORT&&typeof Uint8Array.prototype.indexOf==="function"){if(i){return Uint8Array.prototype.indexOf.call(e,t,r)}else{return Uint8Array.prototype.lastIndexOf.call(e,t,r)}}return Ee(e,[t],r,n,i)}throw new TypeError("val must be string, number or Buffer")}function Ee(e,t,r,n,f){var i=1;var u=e.length;var a=t.length;if(n!==undefined){n=String(n).toLowerCase();if(n==="ucs2"||n==="ucs-2"||n==="utf16le"||n==="utf-16le"){if(e.length<2||t.length<2){return-1}i=2;u/=2;a/=2;r/=2}}function o(e,t){if(i===1){return e[t]}else{return e.readUInt16BE(t*i)}}var s;if(f){var c=-1;for(s=r;su)r=u-a;for(s=r;s>=0;s--){var l=true;for(var h=0;hi){n=i}}var u=t.length;if(u%2!==0)throw new TypeError("Invalid hex string");if(n>u/2){n=u/2}for(var a=0;au)n=u;if(t.length>0&&(n<0||r<0)||r>this.length){throw new RangeError("Attempt to write outside buffer bounds")}if(!i)i="utf8";var a=false;for(;;){switch(i){case"hex":return Ae(this,t,r,n);case"utf8":case"utf-8":return xe(this,t,r,n);case"ascii":return Fe(this,t,r,n);case"latin1":case"binary":return ke(this,t,r,n);case"base64":return Ce(this,t,r,n);case"ucs2":case"ucs-2":case"utf16le":case"utf-16le":return Oe(this,t,r,n);default:if(a)throw new TypeError("Unknown encoding: "+i);i=(""+i).toLowerCase();a=true}}};se.prototype.toJSON=function e(){return{type:"Buffer",data:Array.prototype.slice.call(this._arr||this,0)}};function Se(e,t,r){if(t===0&&r===e.length){return ee(e)}else{return ee(e.slice(t,r))}}function Be(e,f,t){t=Math.min(e.length,t);var r=[];var n=f;while(n239?4:i>223?3:i>191?2:1;if(n+a<=t){var o,s,l,c;switch(a){case 1:if(i<128){u=i}break;case 2:o=e[n+1];if((o&192)===128){c=(i&31)<<6|o&63;if(c>127){u=c}}break;case 3:o=e[n+1];s=e[n+2];if((o&192)===128&&(s&192)===128){c=(i&15)<<12|(o&63)<<6|s&63;if(c>2047&&(c<55296||c>57343)){u=c}}break;case 4:o=e[n+1];s=e[n+2];l=e[n+3];if((o&192)===128&&(s&192)===128&&(l&192)===128){c=(i&15)<<18|(o&63)<<12|(s&63)<<6|l&63;if(c>65535&&c<1114112){u=c}}}}if(u===null){u=65533;a=1}else if(u>65535){u-=65536;r.push(u>>>10&1023|55296);u=56320|u&1023}r.push(u);n+=a}return Ie(r)}var je=4096;function Ie(e){var t=e.length;if(t<=je){return String.fromCharCode.apply(String,e)}var r="";var n=0;while(nn)r=n;var i="";for(var u=t;un){t=n}if(r<0){r+=n;if(r<0)r=0}else if(r>n){r=n}if(rr)throw new RangeError("Trying to access beyond buffer length")}se.prototype.readUIntLE=function e(t,r,n){t=t|0;r=r|0;if(!n)Le(t,r,this.length);var i=this[t];var u=1;var a=0;while(++a0&&(u*=256)){i+=this[t+--r]*u}return i};se.prototype.readUInt8=function e(t,r){if(!r)Le(t,1,this.length);return this[t]};se.prototype.readUInt16LE=function e(t,r){if(!r)Le(t,2,this.length);return this[t]|this[t+1]<<8};se.prototype.readUInt16BE=function e(t,r){if(!r)Le(t,2,this.length);return this[t]<<8|this[t+1]};se.prototype.readUInt32LE=function e(t,r){if(!r)Le(t,4,this.length);return(this[t]|this[t+1]<<8|this[t+2]<<16)+this[t+3]*16777216};se.prototype.readUInt32BE=function e(t,r){if(!r)Le(t,4,this.length);return this[t]*16777216+(this[t+1]<<16|this[t+2]<<8|this[t+3])};se.prototype.readIntLE=function e(t,r,n){t=t|0;r=r|0;if(!n)Le(t,r,this.length);var i=this[t];var u=1;var a=0;while(++a=u)i-=Math.pow(2,8*r);return i};se.prototype.readIntBE=function e(t,r,n){t=t|0;r=r|0;if(!n)Le(t,r,this.length);var i=r;var u=1;var a=this[t+--i];while(i>0&&(u*=256)){a+=this[t+--i]*u}u*=128;if(a>=u)a-=Math.pow(2,8*r);return a};se.prototype.readInt8=function e(t,r){if(!r)Le(t,1,this.length);if(!(this[t]&128))return this[t];return(255-this[t]+1)*-1};se.prototype.readInt16LE=function e(t,r){if(!r)Le(t,2,this.length);var n=this[t]|this[t+1]<<8;return n&32768?n|4294901760:n};se.prototype.readInt16BE=function e(t,r){if(!r)Le(t,2,this.length);var n=this[t+1]|this[t]<<8;return n&32768?n|4294901760:n};se.prototype.readInt32LE=function e(t,r){if(!r)Le(t,4,this.length);return this[t]|this[t+1]<<8|this[t+2]<<16|this[t+3]<<24};se.prototype.readInt32BE=function e(t,r){if(!r)Le(t,4,this.length);return this[t]<<24|this[t+1]<<16|this[t+2]<<8|this[t+3]};se.prototype.readFloatLE=function e(t,r){if(!r)Le(t,4,this.length);return te(this,t,true,23,4)};se.prototype.readFloatBE=function e(t,r){if(!r)Le(t,4,this.length);return te(this,t,false,23,4)};se.prototype.readDoubleLE=function e(t,r){if(!r)Le(t,8,this.length);return te(this,t,true,52,8)};se.prototype.readDoubleBE=function e(t,r){if(!r)Le(t,8,this.length);return te(this,t,false,52,8)};function Ue(e,t,r,n,i,u){if(!me(e))throw new TypeError('"buffer" argument must be a Buffer instance');if(t>i||te.length)throw new RangeError("Index out of range")}se.prototype.writeUIntLE=function e(t,r,n,i){t=+t;r=r|0;n=n|0;if(!i){var u=Math.pow(2,8*n)-1;Ue(this,t,r,n,u,0)}var a=1;var o=0;this[r]=t&255;while(++o=0&&(o*=256)){this[r+a]=t/o&255}return r+n};se.prototype.writeUInt8=function e(t,r,n){t=+t;r=r|0;if(!n)Ue(this,t,r,1,255,0);if(!se.TYPED_ARRAY_SUPPORT)t=Math.floor(t);this[r]=t&255;return r+1};function Me(e,t,r,n){if(t<0)t=65535+t+1;for(var i=0,u=Math.min(e.length-r,2);i>>(n?i:1-i)*8}}se.prototype.writeUInt16LE=function e(t,r,n){t=+t;r=r|0;if(!n)Ue(this,t,r,2,65535,0);if(se.TYPED_ARRAY_SUPPORT){this[r]=t&255;this[r+1]=t>>>8}else{Me(this,t,r,true)}return r+2};se.prototype.writeUInt16BE=function e(t,r,n){t=+t;r=r|0;if(!n)Ue(this,t,r,2,65535,0);if(se.TYPED_ARRAY_SUPPORT){this[r]=t>>>8;this[r+1]=t&255}else{Me(this,t,r,false)}return r+2};function qe(e,t,r,n){if(t<0)t=4294967295+t+1;for(var i=0,u=Math.min(e.length-r,4);i>>(n?i:3-i)*8&255}}se.prototype.writeUInt32LE=function e(t,r,n){t=+t;r=r|0;if(!n)Ue(this,t,r,4,4294967295,0);if(se.TYPED_ARRAY_SUPPORT){this[r+3]=t>>>24;this[r+2]=t>>>16;this[r+1]=t>>>8;this[r]=t&255}else{qe(this,t,r,true)}return r+4};se.prototype.writeUInt32BE=function e(t,r,n){t=+t;r=r|0;if(!n)Ue(this,t,r,4,4294967295,0);if(se.TYPED_ARRAY_SUPPORT){this[r]=t>>>24;this[r+1]=t>>>16;this[r+2]=t>>>8;this[r+3]=t&255}else{qe(this,t,r,false)}return r+4};se.prototype.writeIntLE=function e(t,r,n,i){t=+t;r=r|0;if(!i){var u=Math.pow(2,8*n-1);Ue(this,t,r,n,u-1,-u)}var a=0;var o=1;var s=0;this[r]=t&255;while(++a>0)-s&255}return r+n};se.prototype.writeIntBE=function e(t,r,n,i){t=+t;r=r|0;if(!i){var u=Math.pow(2,8*n-1);Ue(this,t,r,n,u-1,-u)}var a=n-1;var o=1;var s=0;this[r+a]=t&255;while(--a>=0&&(o*=256)){if(t<0&&s===0&&this[r+a+1]!==0){s=1}this[r+a]=(t/o>>0)-s&255}return r+n};se.prototype.writeInt8=function e(t,r,n){t=+t;r=r|0;if(!n)Ue(this,t,r,1,127,-128);if(!se.TYPED_ARRAY_SUPPORT)t=Math.floor(t);if(t<0)t=255+t+1;this[r]=t&255;return r+1};se.prototype.writeInt16LE=function e(t,r,n){t=+t;r=r|0;if(!n)Ue(this,t,r,2,32767,-32768);if(se.TYPED_ARRAY_SUPPORT){this[r]=t&255;this[r+1]=t>>>8}else{Me(this,t,r,true)}return r+2};se.prototype.writeInt16BE=function e(t,r,n){t=+t;r=r|0;if(!n)Ue(this,t,r,2,32767,-32768);if(se.TYPED_ARRAY_SUPPORT){this[r]=t>>>8;this[r+1]=t&255}else{Me(this,t,r,false)}return r+2};se.prototype.writeInt32LE=function e(t,r,n){t=+t;r=r|0;if(!n)Ue(this,t,r,4,2147483647,-2147483648);if(se.TYPED_ARRAY_SUPPORT){this[r]=t&255;this[r+1]=t>>>8;this[r+2]=t>>>16;this[r+3]=t>>>24}else{qe(this,t,r,true)}return r+4};se.prototype.writeInt32BE=function e(t,r,n){t=+t;r=r|0;if(!n)Ue(this,t,r,4,2147483647,-2147483648);if(t<0)t=4294967295+t+1;if(se.TYPED_ARRAY_SUPPORT){this[r]=t>>>24;this[r+1]=t>>>16;this[r+2]=t>>>8;this[r+3]=t&255}else{qe(this,t,r,false)}return r+4};function Ye(e,t,r,n,i,u){if(r+n>e.length)throw new RangeError("Index out of range");if(r<0)throw new RangeError("Index out of range")}function Ve(e,t,r,n,i){if(!i){Ye(e,t,r,4)}re(e,t,r,n,23,4);return r+4}se.prototype.writeFloatLE=function e(t,r,n){return Ve(this,t,r,true,n)};se.prototype.writeFloatBE=function e(t,r,n){return Ve(this,t,r,false,n)};function ze(e,t,r,n,i){if(!i){Ye(e,t,r,8)}re(e,t,r,n,52,8);return r+8}se.prototype.writeDoubleLE=function e(t,r,n){return ze(this,t,r,true,n)};se.prototype.writeDoubleBE=function e(t,r,n){return ze(this,t,r,false,n)};se.prototype.copy=function e(t,r,n,i){if(!n)n=0;if(!i&&i!==0)i=this.length;if(r>=t.length)r=t.length;if(!r)r=0;if(i>0&&i=this.length)throw new RangeError("sourceStart out of bounds");if(i<0)throw new RangeError("sourceEnd out of bounds");if(i>this.length)i=this.length;if(t.length-r=0;--a){t[a+r]=this[a+n]}}else if(u<1e3||!se.TYPED_ARRAY_SUPPORT){for(a=0;a>>0;n=n===undefined?this.length:n>>>0;if(!t)t=0;var a;if(typeof t==="number"){for(a=r;a55295&&r<57344){if(!i){if(r>56319){if((t-=3)>-1)u.push(239,191,189);continue}else if(a+1===n){if((t-=3)>-1)u.push(239,191,189);continue}i=r;continue}if(r<56320){if((t-=3)>-1)u.push(239,191,189);i=r;continue}r=(i-55296<<10|r-56320)+65536}else if(i){if((t-=3)>-1)u.push(239,191,189)}i=null;if(r<128){if((t-=1)<0)break;u.push(r)}else if(r<2048){if((t-=2)<0)break;u.push(r>>6|192,r&63|128)}else if(r<65536){if((t-=3)<0)break;u.push(r>>12|224,r>>6&63|128,r&63|128)}else if(r<1114112){if((t-=4)<0)break;u.push(r>>18|240,r>>12&63|128,r>>6&63|128,r&63|128)}else{throw new Error("Invalid code point")}}return u}function We(e){var t=[];for(var r=0;r>8;i=r%256;u.push(i);u.push(n)}return u}function Ze(e){return Q(Je(e))}function Xe(e,t,r,n){for(var i=0;i=t.length||i>=e.length)break;t[i+r]=e[i]}return i}function et(e){return e!==e}function tt(e){return e!=null&&(!!e._isBuffer||rt(e)||nt(e))}function rt(e){return!!e.constructor&&typeof e.constructor.isBuffer==="function"&&e.constructor.isBuffer(e)}function nt(e){return typeof e.readFloatLE==="function"&&typeof e.slice==="function"&&rt(e.slice(0,0))}let it;try{it=new TextDecoder}catch(e){}let ut;let at;let v=0;const ot=105;const st=57342;const ct=57343;const ft=57337;const lt=6;const ht={};let pt={};let _t;let dt;let vt=0;let yt=0;let mt;let gt;let bt=[];let wt=[];let Dt;let Et;let At;let xt={useRecords:false,mapsAsObjects:true};let Ft=false;let kt=2;try{new Function("")}catch(e){kt=Infinity}class Ct{constructor(r){if(r){if((r.keyMap||r._keyMap)&&!r.useRecords){r.useRecords=false;r.mapsAsObjects=true}if(r.useRecords===false&&r.mapsAsObjects===undefined)r.mapsAsObjects=true;if(r.getStructures)r.getShared=r.getStructures;if(r.getShared&&!r.structures)(r.structures=[]).uninitialized=true;if(r.keyMap){this.mapKey=new Map;for(let[e,t]of Object.entries(r.keyMap))this.mapKey.set(t,e)}}Object.assign(this,r)}decodeKey(e){return this.keyMap?this.mapKey.get(e)||e:e}encodeKey(e){return this.keyMap&&this.keyMap.hasOwnProperty(e)?this.keyMap[e]:e}encodeKeys(r){if(!this._keyMap)return r;let n=new Map;for(let[e,t]of Object.entries(r))n.set(this._keyMap.hasOwnProperty(e)?this._keyMap[e]:e,t);return n}decodeKeys(e){if(!this._keyMap||e.constructor.name!="Map")return e;if(!this._mapKey){this._mapKey=new Map;for(let[e,t]of Object.entries(this._keyMap))this._mapKey.set(t,e)}let r={};e.forEach((e,t)=>r[It(this._mapKey.has(t)?this._mapKey.get(t):t)]=e);return r}mapDecode(e,t){let r=this.decode(e);if(this._keyMap){switch(r.constructor.name){case"Array":return r.map(e=>this.decodeKeys(e))}}return r}decode(t,e){if(ut){return nr(()=>{ir();return this?this.decode(t,e):Ct.prototype.decode.call(xt,t,e)})}at=e>-1?e:t.length;v=0;yt=0;dt=null;mt=null;ut=t;try{Et=t.dataView||(t.dataView=new DataView(t.buffer,t.byteOffset,t.byteLength))}catch(e){ut=null;if(t instanceof Uint8Array)throw e;throw new Error("Source must be a Uint8Array or Buffer but was a "+(t&&typeof t=="object"?t.constructor.name:typeof t))}if(this instanceof Ct){pt=this;Dt=this.sharedValues&&(this.pack?new Array(this.maxPrivatePackedValues||16).concat(this.sharedValues):this.sharedValues);if(this.structures){_t=this.structures;return Ot()}else if(!_t||_t.length>0){_t=[]}}else{pt=xt;if(!_t||_t.length>0)_t=[];Dt=null}return Ot()}decodeMultiple(r,n){let i,u=0;try{let e=r.length;Ft=true;let t=this?this.decode(r,e):or.decode(r,e);if(n){if(n(t)===false){return}while(v=mt.postBundlePosition){let e=new Error("Unexpected bundle position");e.incomplete=true;throw e}v=mt.postBundlePosition;mt=null}if(v==at){_t=null;ut=null;if(gt)gt=null}else if(v>at){let e=new Error("Unexpected end of CBOR data");e.incomplete=true;throw e}else if(!Ft){throw new Error("Data read, but end of buffer not reached")}return e}catch(e){ir();if(e instanceof RangeError||e.message.startsWith("Unexpected end of buffer")){e.incomplete=true}throw e}}function St(){let n=ut[v++];let i=n>>5;n=n&31;if(n>23){switch(n){case 24:n=ut[v++];break;case 25:if(i==7){return Yt()}n=Et.getUint16(v);v+=2;break;case 26:if(i==7){let t=Et.getFloat32(v);if(pt.useFloat32>2){let e=ar[(ut[v]&127)<<1|ut[v+1]>>7];v+=4;return(e*t+(t>0?.5:-.5)>>0)/e}v+=4;return t}n=Et.getUint32(v);v+=4;break;case 27:if(i==7){let e=Et.getFloat64(v);v+=8;return e}if(i>1){if(Et.getUint32(v)>0)throw new Error("JavaScript does not support arrays, maps, or strings with length over 4294967295");n=Et.getUint32(v+4)}else if(pt.int64AsNumber){n=Et.getUint32(v)*4294967296;n+=Et.getUint32(v+4)}else n=Et.getBigUint64(v);v+=8;break;case 31:switch(i){case 2:case 3:throw new Error("Indefinite length not supported for byte or text strings");case 4:let e=[];let t,r=0;while((t=St())!=ht){e[r++]=t}return i==4?e:i==3?e.join(""):se.concat(e);case 5:let n;if(pt.mapsAsObjects){let e={};if(pt.keyMap)while((n=St())!=ht)e[It(pt.decodeKey(n))]=St();else while((n=St())!=ht)e[It(n)]=St();return e}else{if(At){pt.mapsAsObjects=true;At=false}let e=new Map;if(pt.keyMap)while((n=St())!=ht)e.set(pt.decodeKey(n),St());else while((n=St())!=ht)e.set(n,St());return e}case 7:return ht;default:throw new Error("Invalid major type for indefinite length "+i)}default:throw new Error("Unknown token "+n)}}switch(i){case 0:return n;case 1:return~n;case 2:return Ut(n);case 3:if(yt>=v){return dt.slice(v-vt,(v+=n)-vt)}if(yt==0&&at<140&&n<32){let e=n<16?Lt(n):Tt(n);if(e!=null)return e}return Pt(n);case 4:let t=new Array(n);for(let e=0;e=ft){let e=_t[n&8191];if(e){if(!e.read)e.read=jt(e);return e.read()}if(n<65536){if(n==ct){let e=tr();let t=St();let r=St();zt(t,r);let n={};if(pt.keyMap)for(let t=2;t23){switch(t){case 24:t=ut[v++];break;case 25:t=Et.getUint16(v);v+=2;break;case 26:t=Et.getUint32(v);v+=4;break;default:throw new Error("Expected array header, but got "+ut[v-1])}}let r=this.compiledReader;while(r){if(r.propertyCount===t)return r(St);r=r.next}if(this.slowReads++>=kt){let e=this.length==t?this:this.slice(0,t);r=pt.keyMap?new Function("r","return {"+e.map(e=>pt.decodeKey(e)).map(e=>Bt.test(e)?It(e)+":r()":"["+JSON.stringify(e)+"]:r()").join(",")+"}"):new Function("r","return {"+e.map(e=>Bt.test(e)?It(e)+":r()":"["+JSON.stringify(e)+"]:r()").join(",")+"}");if(this.compiledReader)r.next=this.compiledReader;r.propertyCount=t;this.compiledReader=r;return r(St)}let n={};if(pt.keyMap)for(let e=0;e64&&it)return it.decode(ut.subarray(v,v+=e));const r=v+e;const n=[];t="";while(v65535){e-=65536;n.push(e>>>10&1023|55296);e=56320|e&1023}n.push(e)}else{n.push(i)}if(n.length>=4096){t+=Rt.apply(String,n);n.length=0}}if(n.length>0){t+=Rt.apply(String,n)}return t}let Rt=String.fromCharCode;function Tt(t){let r=v;let n=new Array(t);for(let e=0;e0){v=r;return}n[e]=i}return Rt.apply(String,n)}function Lt(d){if(d<4){if(d<2){if(d===0)return"";else{let e=ut[v++];if((e&128)>1){v-=1;return}return Rt(e)}}else{let e=ut[v++];let t=ut[v++];if((e&128)>0||(t&128)>0){v-=2;return}if(d<3)return Rt(e,t);let r=ut[v++];if((r&128)>0){v-=3;return}return Rt(e,t,r)}}else{let l=ut[v++];let h=ut[v++];let p=ut[v++];let _=ut[v++];if((l&128)>0||(h&128)>0||(p&128)>0||(_&128)>0){v-=4;return}if(d<6){if(d===4)return Rt(l,h,p,_);else{let e=ut[v++];if((e&128)>0){v-=5;return}return Rt(l,h,p,_,e)}}else if(d<8){let e=ut[v++];let t=ut[v++];if((e&128)>0||(t&128)>0){v-=6;return}if(d<7)return Rt(l,h,p,_,e,t);let r=ut[v++];if((r&128)>0){v-=7;return}return Rt(l,h,p,_,e,t,r)}else{let o=ut[v++];let s=ut[v++];let c=ut[v++];let f=ut[v++];if((o&128)>0||(s&128)>0||(c&128)>0||(f&128)>0){v-=8;return}if(d<10){if(d===8)return Rt(l,h,p,_,o,s,c,f);else{let e=ut[v++];if((e&128)>0){v-=9;return}return Rt(l,h,p,_,o,s,c,f,e)}}else if(d<12){let e=ut[v++];let t=ut[v++];if((e&128)>0||(t&128)>0){v-=10;return}if(d<11)return Rt(l,h,p,_,o,s,c,f,e,t);let r=ut[v++];if((r&128)>0){v-=11;return}return Rt(l,h,p,_,o,s,c,f,e,t,r)}else{let n=ut[v++];let i=ut[v++];let u=ut[v++];let a=ut[v++];if((n&128)>0||(i&128)>0||(u&128)>0||(a&128)>0){v-=12;return}if(d<14){if(d===12)return Rt(l,h,p,_,o,s,c,f,n,i,u,a);else{let e=ut[v++];if((e&128)>0){v-=13;return}return Rt(l,h,p,_,o,s,c,f,n,i,u,a,e)}}else{let e=ut[v++];let t=ut[v++];if((e&128)>0||(t&128)>0){v-=14;return}if(d<15)return Rt(l,h,p,_,o,s,c,f,n,i,u,a,e,t);let r=ut[v++];if((r&128)>0){v-=15;return}return Rt(l,h,p,_,o,s,c,f,n,i,u,a,e,t,r)}}}}}function Ut(e){return pt.copyBuffers?Uint8Array.prototype.slice.call(ut,v,v+=e):ut.subarray(v,v+=e)}let Mt=new Float32Array(1);let qt=new Uint8Array(Mt.buffer,0,4);function Yt(){let t=ut[v++];let r=ut[v++];let e=(t&127)>>2;if(e===31){if(r||t&3)return NaN;return t&128?-Infinity:Infinity}if(e===0){let e=((t&3)<<8|r)/(1<<24);return t&128?-e:e}qt[3]=t&128|(e>>1)+56;qt[2]=(t&7)<<5|r>>3;qt[1]=r<<5;qt[0]=0;return Mt[0]}new Array(4096);class Vt{constructor(e,t){this.value=e;this.tag=t}}bt[0]=e=>{return new Date(e)};bt[1]=e=>{return new Date(Math.round(e*1e3))};bt[2]=r=>{let n=BigInt(0);for(let e=0,t=r.byteLength;e{return BigInt(-1)-bt[2](e)};bt[4]=e=>{return+(e[1]+"e"+e[0])};bt[5]=e=>{return e[1]*Math.exp(e[0]*Math.log(2))};const zt=(e,t)=>{e=e-57344;let r=_t[e];if(r&&r.isShared){(_t.restoreStructures||(_t.restoreStructures=[]))[e]=r}_t[e]=t;t.read=jt(t)};bt[ot]=r=>{let e=r.length;let n=r[1];zt(r[0],n);let i={};for(let t=2;t{if(mt)return mt[0].slice(mt.position0,mt.position0+=e);return new Vt(e,14)};bt[15]=e=>{if(mt)return mt[1].slice(mt.position1,mt.position1+=e);return new Vt(e,15)};let $t={Error:Error,RegExp:RegExp};bt[27]=e=>{return($t[e[0]]||Error)(e[1],e[2])};const Jt=e=>{if(ut[v++]!=132)throw new Error("Packed values structure must be followed by a 4 element array");let t=e();Dt=Dt?t.concat(Dt.slice(t.length)):t;Dt.prefixes=e();Dt.suffixes=e();return e()};Jt.handlesRead=true;bt[51]=Jt;bt[lt]=e=>{if(!Dt){if(pt.getShared)rr();else return new Vt(e,lt)}if(typeof e=="number")return Dt[16+(e>=0?2*e:-2*e-1)];throw new Error("No support for non-integer packed references yet")};bt[28]=e=>{if(!gt){gt=new Map;gt.id=0}let t=gt.id++;let r=ut[v];let n;if(r>>5==4)n=[];else n={};let i={target:n};gt.set(t,i);let u=e();if(i.used)return Object.assign(n,u);i.target=u;return u};bt[28].handlesRead=true;bt[29]=e=>{let t=gt.get(e);t.used=true;return t.target};bt[258]=e=>new Set(e);(bt[259]=e=>{if(pt.mapsAsObjects){pt.mapsAsObjects=false;At=true}return e()}).handlesRead=true;function Kt(e,t){if(typeof e==="string")return e+t;if(e instanceof Array)return e.concat(t);return Object.assign({},e,t)}function Gt(){if(!Dt){if(pt.getShared)rr();else throw new Error("No packed values available")}return Dt}const Ht=1399353956;wt.push((e,t)=>{if(e>=225&&e<=255)return Kt(Gt().prefixes[e-224],t);if(e>=28704&&e<=32767)return Kt(Gt().prefixes[e-28672],t);if(e>=1879052288&&e<=2147483647)return Kt(Gt().prefixes[e-1879048192],t);if(e>=216&&e<=223)return Kt(t,Gt().suffixes[e-216]);if(e>=27647&&e<=28671)return Kt(t,Gt().suffixes[e-27639]);if(e>=1811940352&&e<=1879048191)return Kt(t,Gt().suffixes[e-1811939328]);if(e==Ht){return{packedValues:Dt,structures:_t.slice(0),version:t}}if(e==55799)return t});const Wt=new Uint8Array(new Uint16Array([1]).buffer)[0]==1;const Qt=[Uint8Array,Uint8ClampedArray,Uint16Array,Uint32Array,typeof BigUint64Array=="undefined"?{name:"BigUint64Array"}:BigUint64Array,Int8Array,Int16Array,Int32Array,typeof BigInt64Array=="undefined"?{name:"BigInt64Array"}:BigInt64Array,Float32Array,Float64Array];const Zt=[64,68,69,70,71,72,77,78,79,85,86];for(let e=0;e{if(!o)throw new Error("Could not find typed array for code "+s);return new o(Uint8Array.prototype.slice.call(e,0).buffer)}:e=>{if(!o)throw new Error("Could not find typed array for code "+s);let t=new DataView(e.buffer,e.byteOffset,e.byteLength);let r=e.length>>u;let n=new o(r);let i=t[c];for(let e=0;e23){switch(e){case 24:e=ut[v++];break;case 25:e=Et.getUint16(v);v+=2;break;case 26:e=Et.getUint32(v);v+=4;break}}return e}function rr(){if(pt.getShared){let e=nr(()=>{ut=null;return pt.getShared()})||{};let t=e.structures||[];pt.sharedVersion=e.version;Dt=pt.sharedValues=e.packedValues;if(_t===true)pt.structures=_t=t;else _t.splice.apply(_t,[0,t.length].concat(t))}}function nr(e){let t=at;let r=v;let n=vt;let i=yt;let u=dt;let a=gt;let o=mt;let s=new Uint8Array(ut.slice(0,at));let c=_t;let f=pt;let l=Ft;let h=e();at=t;v=r;vt=n;yt=i;dt=u;gt=a;mt=o;ut=s;Ft=l;_t=c;pt=f;Et=new DataView(ut.buffer,ut.byteOffset,ut.byteLength);return h}function ir(){ut=null;gt=null;_t=null}function ur(e){bt[e.tag]=e.decode}const ar=new Array(147);for(let e=0;e<256;e++){ar[e]=+("1e"+Math.floor(45.15-e*.30103))}let or=new Ct({useRecords:false});or.decode;or.decodeMultiple;let sr;try{sr=new TextEncoder}catch(e){}let cr,fr;const lr=typeof globalThis==="object"&&globalThis.Buffer;const hr=typeof lr!=="undefined";const pr=hr?lr.allocUnsafeSlow:Uint8Array;const _r=hr?lr:Uint8Array;const dr=256;const vr=hr?4294967296:2144337920;let yr;let O;let mr;let S=0;let gr;let br=null;const wr=61440;const Dr=/[\u0080-\uFFFF]/;const Er=Symbol("record-id");class Ar extends Ct{constructor(r){super(r);this.offset=0;let s;let a;let _;let f;let n;r=r||{};let c=_r.prototype.utf8Write?function(e,t,r){return O.utf8Write(e,t,r)}:sr&&sr.encodeInto?function(e,t){return sr.encodeInto(e,O.subarray(t)).written}:false;let u=this;let e=r.structures||r.saveStructures;let l=r.maxSharedStructures;if(l==null)l=e?128:0;if(l>8190)throw new Error("Maximum maxSharedStructure is 8190");let o=r.sequential;if(o){l=0}if(!this.structures)this.structures=[];if(this.saveStructures)this.saveShared=this.saveStructures;let d,v,y=r.sharedValues;let i;if(y){i=Object.create(null);for(let e=0,t=y.length;ethis.encodeKeys(e));break}}return this.encode(e,t)};this.encode=function(t,e){if(!O){O=new pr(8192);mr=new DataView(O.buffer,0,8192);S=0}gr=O.length-10;if(gr-S<2048){O=new pr(O.length);mr=new DataView(O.buffer,0,O.length);gr=O.length-10;S=0}else if(e===Lr)S=S+7&2147483640;s=S;if(u.useSelfDescribedHeader){mr.setUint32(S,3654940416);S+=3}n=u.structuredClone?new Map:null;if(u.bundleStrings&&typeof t!=="string"){br=[];br.size=Infinity}else br=null;a=u.structures;if(a){if(a.uninitialized){let e=u.getShared()||{};u.structures=a=e.structures||[];u.sharedVersion=e.version;let r=u.sharedValues=e.packedValues;if(r){i={};for(let e=0,t=r.length;el&&!o)e=l;if(!a.transitions){a.transitions=Object.create(null);for(let u=0;u0){O[S++]=216;O[S++]=51;kr(4);let r=e.values;p(r);kr(0);kr(0);v=Object.create(i||null);for(let e=0,t=r.length;egr)w(S);u.offset=S;let e=Pr(O.subarray(s,S),n.idsToInsert);n=null;return e}if(e&Lr){O.start=s;O.end=S;return O}return O.subarray(s,S)}finally{if(a){if(g<10)g++;if(a.length>l)a.length=l;if(m>1e4){a.transitions=null;g=0;m=0;if(h.length>0)h=[]}else if(h.length>0&&!o){for(let e=0,t=h.length;el){u.structures=u.structures.slice(0,l)}let e=O.subarray(s,S);if(u.updateSharedData()===false)return u.encode(t);return e}if(e&Ur)S=s}};this.findCommonStringsToPack=()=>{d=new Map;if(!i)i=Object.create(null);return e=>{let r=e&&e.threshold||4;let n=this.pack?e.maxPrivatePackedValues||16:0;if(!y)y=this.sharedValues=[];for(let[e,t]of d){if(t.count>r){i[e]=n++;y.push(e);_=true}}while(this.saveShared&&this.updateSharedData()===false){}d=null}};const p=a=>{if(S>gr)O=w(S);var e=typeof a;var o;if(e==="string"){if(v){let e=v[a];if(e>=0){if(e<16)O[S++]=e+224;else{O[S++]=198;if(e&1)p(15-e>>1);else p(e-16>>1)}return}else if(d&&!r.pack){let e=d.get(a);if(e)e.count++;else d.set(a,{count:1})}}let i=a.length;if(br&&i>=4&&i<1024){if((br.size+=i)>wr){let e;let t=(br[0]?br[0].length*3+br[1].length:0)+10;if(S+t>gr)O=w(S+t);O[S++]=217;O[S++]=223;O[S++]=249;O[S++]=br.position?132:130;O[S++]=26;e=S-s;S+=4;if(br.position){Nr(s,p)}br=["",""];br.size=0;br.position=e}let e=Dr.test(a);br[e?0:1]+=a;O[S++]=e?206:207;p(i);return}let u;if(i<32){u=1}else if(i<256){u=2}else if(i<65536){u=3}else{u=5}let e=i*3;if(S+e>gr)O=w(S+e);if(i<64||!c){let e,t,r,n=S+u;for(e=0;e>6|192;O[n++]=t&63|128}else if((t&64512)===55296&&((r=a.charCodeAt(e+1))&64512)===56320){t=65536+((t&1023)<<10)+(r&1023);e++;O[n++]=t>>18|240;O[n++]=t>>12&63|128;O[n++]=t>>6&63|128;O[n++]=t&63|128}else{O[n++]=t>>12|224;O[n++]=t>>6&63|128;O[n++]=t&63|128}}o=n-S-u}else{o=c(a,S+u,e)}if(o<24){O[S++]=96|o}else if(o<256){if(u<2){O.copyWithin(S+2,S+1,S+1+o)}O[S++]=120;O[S++]=o}else if(o<65536){if(u<3){O.copyWithin(S+3,S+2,S+2+o)}O[S++]=121;O[S++]=o>>8;O[S++]=o&255}else{if(u<5){O.copyWithin(S+5,S+3,S+3+o)}O[S++]=122;mr.setUint32(S,o);S+=4}S+=o}else if(e==="number"){if(!this.alwaysUseFloat&&a>>>0===a){if(a<24){O[S++]=a}else if(a<256){O[S++]=24;O[S++]=a}else if(a<65536){O[S++]=25;O[S++]=a>>8;O[S++]=a&255}else{O[S++]=26;mr.setUint32(S,a);S+=4}}else if(!this.alwaysUseFloat&&a>>0===a){if(a>=-24){O[S++]=31-a}else if(a>=-256){O[S++]=56;O[S++]=~a}else if(a>=-65536){O[S++]=57;mr.setUint16(S,~a);S+=2}else{O[S++]=58;mr.setUint32(S,~a);S+=4}}else{let t;if((t=this.useFloat32)>0&&a<4294967296&&a>=-2147483648){O[S++]=250;mr.setFloat32(S,a);let e;if(t<4||(e=a*ar[(O[S]&127)<<1|O[S+1]>>7])>>0===e){S+=4;return}else S--}O[S++]=251;mr.setFloat64(S,a);S+=8}}else if(e==="object"){if(!a)O[S++]=246;else{if(n){let t=n.get(a);if(t){O[S++]=216;O[S++]=29;O[S++]=25;if(!t.references){let e=n.idsToInsert||(n.idsToInsert=[]);t.references=[];e.push(t)}t.references.push(S-s);S+=2;return}else n.set(a,{offset:S-s})}let e=a.constructor;if(e===Object){b(a,true)}else if(e===Array){o=a.length;if(o<24){O[S++]=128|o}else{kr(o)}for(let e=0;e>8;O[S++]=o&255}else{O[S++]=186;mr.setUint32(S,o);S+=4}if(u.keyMap){for(let[e,t]of a){p(u.encodeKey(e));p(t)}}else{for(let[e,t]of a){p(e);p(t)}}}else{for(let r=0,e=cr.length;r>8;O[S++]=t&255}else if(t>-1){O[S++]=218;mr.setUint32(S,t);S+=4}e.encode.call(this,a,p,w);return}}if(a[Symbol.iterator]){if(yr){let e=new Error("Iterable should be serialized as iterator");e.iteratorNotHandled=true;throw e}O[S++]=159;for(let e of a){p(e)}O[S++]=255;return}if(a[Symbol.asyncIterator]||Or(a)){let e=new Error("Iterable/blob should be serialized as iterator");e.iteratorNotHandled=true;throw e}if(this.useToJSON&&a.toJSON){const t=a.toJSON();if(t!==a)return p(t)}b(a,!a.hasOwnProperty)}}}else if(e==="boolean"){O[S++]=a?245:244}else if(e==="bigint"){if(a=0){O[S++]=27;mr.setBigUint64(S,a)}else if(a>-(BigInt(1)<{let t=Object.keys(e);let r=Object.values(e);let n=t.length;if(n<24){O[S++]=160|n}else if(n<256){O[S++]=184;O[S++]=n}else if(n<65536){O[S++]=185;O[S++]=n>>8;O[S++]=n&255}else{O[S++]=186;mr.setUint32(S,n);S+=4}if(u.keyMap){for(let e=0;e{O[S++]=185;let e=S-s;S+=2;let n=0;if(u.keyMap){for(let e in t)if(r||t.hasOwnProperty(e)){p(u.encodeKey(e));p(t[e]);n++}}else{for(let e in t)if(r||t.hasOwnProperty(e)){p(e);p(t[e]);n++}}O[e+++s]=n>>8;O[e+s]=n&255}:(t,r)=>{let n,i=f.transitions||(f.transitions=Object.create(null));let u=0;let a=0;let o;let s;if(this.keyMap){s=Object.keys(t).map(e=>this.encodeKey(e));a=s.length;for(let t=0;t>8|224;O[S++]=c&255}else{if(!s)s=i.__keys__||(i.__keys__=Object.keys(t));if(o===undefined){c=f.nextId++;if(!c){c=0;f.nextId=1}if(c>=dr){f.nextId=(c=l)+1}}else{c=o}f[c]=s;if(c>8|224;O[S++]=c&255;i=f.transitions;for(let e=0;e=dr-l)h.shift()[Er]=undefined;h.push(i);kr(a+2);p(57344+c);p(s);if(r===null)return;for(let e in t)if(r||t.hasOwnProperty(e))p(t[e]);return}}if(a<24){O[S++]=128|a}else{kr(a)}if(r===null)return;for(let e in t)if(r||t.hasOwnProperty(e))p(t[e])};const w=e=>{let t;if(e>16777216){if(e-s>vr)throw new Error("Encoded buffer would be larger than maximum buffer size");t=Math.min(vr,Math.round(Math.max((e-s)*(e>67108864?1.25:2),4194304)/4096)*4096)}else t=(Math.max(e-s<<2,O.length-1)>>12)+1<<12;let r=new pr(t);mr=new DataView(r.buffer,0,t);if(O.copy)O.copy(r,0,s,e);else r.set(O.slice(s,e));S-=s;s=0;gr=r.length-10;return O=r};let D=100;let E=1e3;this.encodeAsIterable=function(e,t){return k(e,t,A)};this.encodeAsAsyncIterable=function(e,t){return k(e,t,C)};function*A(n,i,e){let t=n.constructor;if(t===Object){let r=u.useRecords!==false;if(r)b(n,null);else xr(Object.keys(n).length,160);for(let t in n){let e=n[t];if(!r)p(t);if(e&&typeof e==="object"){if(i[t])yield*A(e,i[t]);else yield*x(e,i,t)}else p(e)}}else if(t===Array){let e=n.length;kr(e);for(let t=0;tD)){if(i.element)yield*A(e,i.element);else yield*x(e,i,"element")}else p(e)}}else if(n[Symbol.iterator]){O[S++]=159;for(let e of n){if(e&&(typeof e==="object"||S-s>D)){if(i.element)yield*A(e,i.element);else yield*x(e,i,"element")}else p(e)}O[S++]=255}else if(Or(n)){xr(n.size,64);yield O.subarray(s,S);yield n;F()}else if(n[Symbol.asyncIterator]){O[S++]=159;yield O.subarray(s,S);yield n;F();O[S++]=255}else{p(n)}if(e&&S>s)yield O.subarray(s,S);else if(S-s>D){yield O.subarray(s,S);F()}}function*x(t,r,n){let i=S-s;try{p(t);if(S-s>D){yield O.subarray(s,S);F()}}catch(e){if(e.iteratorNotHandled){r[n]={};S=s+i;yield*A.call(this,t,r[n])}else throw e}}function F(){D=E;u.encode(null,Mr)}function k(e,t,r){if(t&&t.chunkThreshold)D=E=t.chunkThreshold;else D=100;if(e&&typeof e==="object"){u.encode(null,Mr);return r(e,u.iterateProperties||(u.iterateProperties={}),true)}return[u.encode(e)]}async function*C(e,t){for(let r of A(e,t,true)){let e=r.constructor;if(e===_r||e===Uint8Array)yield r;else if(Or(r)){let e=r.stream().getReader();let t;while(!(t=await e.read()).done){yield t.value}}else if(r[Symbol.asyncIterator]){for await(let e of r){F();if(e)yield*C(e,t.async||(t.async={}));else yield u.encode(e)}}else{yield r}}}}useBuffer(e){O=e;mr=new DataView(O.buffer,O.byteOffset,O.byteLength);S=0}clearSharedData(){if(this.structures)this.structures=[];if(this.sharedValues)this.sharedValues=undefined}updateSharedData(){let t=this.sharedVersion||0;this.sharedVersion=t+1;let e=this.structures.slice(0);let r=new Fr(e,this.sharedValues,this.sharedVersion);let n=this.saveShared(r,e=>(e&&e.version||0)==t);if(n===false){r=this.getShared()||{};this.structures=r.structures||[];this.sharedValues=r.packedValues;this.sharedVersion=r.version;this.structures.nextId=this.structures.length}else{e.forEach((e,t)=>this.structures[t]=e)}return n}}function xr(e,t){if(e<24)O[S++]=t|e;else if(e<256){O[S++]=t|24;O[S++]=e}else if(e<65536){O[S++]=t|25;O[S++]=e>>8;O[S++]=e&255}else{O[S++]=t|26;mr.setUint32(S,e);S+=4}}class Fr{constructor(e,t,r){this.structures=e;this.packedValues=t;this.version=r}}function kr(e){if(e<24)O[S++]=128|e;else if(e<256){O[S++]=152;O[S++]=e}else if(e<65536){O[S++]=153;O[S++]=e>>8;O[S++]=e&255}else{O[S++]=154;mr.setUint32(S,e);S+=4}}const Cr=typeof Blob==="undefined"?function(){}:Blob;function Or(e){if(e instanceof Cr)return true;let t=e[Symbol.toStringTag];return t==="Blob"||t==="File"}function Sr(r,n){switch(typeof r){case"string":if(r.length>3){if(n.objectMap[r]>-1||n.values.length>=n.maxValues)return;let e=n.get(r);if(e){if(++e.count==2){n.values.push(r)}}else{n.set(r,{count:1});if(n.samplingPackedValues){let e=n.samplingPackedValues.get(r);if(e)e.count++;else n.samplingPackedValues.set(r,{count:1})}}}break;case"object":if(r){if(r instanceof Array){for(let e=0,t=r.length;e=0&&r<4294967296){O[S++]=26;mr.setUint32(S,r);S+=4}else{O[S++]=251;mr.setFloat64(S,r);S+=8}}},{tag:258,encode(e,t){let r=Array.from(e);t(r)}},{tag:27,encode(e,t){t([e.name,e.message])}},{tag:27,encode(e,t){t(["RegExp",e.source,e.flags])}},{getTag(e){return e.tag},encode(e,t){t(e.value)}},{encode(e,t,r){Ir(e,r)}},{getTag(e){if(e.constructor===Uint8Array){if(this.tagUint8Array||hr&&this.tagUint8Array!==false)return 64}},encode(e,t,r){Ir(e,r)}},jr(68,1),jr(69,2),jr(70,4),jr(71,8),jr(72,1),jr(77,2),jr(78,4),jr(79,8),jr(85,4),jr(86,8),{encode(t,n){let e=t.packedValues||[];let r=t.structures||[];if(e.values.length>0){O[S++]=216;O[S++]=51;kr(4);let r=e.values;n(r);kr(0);kr(0);packedObjectMap=Object.create(sharedPackedObjectMap||null);for(let e=0,t=r.length;e1)e-=4;return{tag:e,encode:function e(t,r){let n=t.byteLength;let i=t.byteOffset||0;let u=t.buffer||t;r(hr?lr.from(u,i,n):new Uint8Array(u,i,n))}}}function Ir(e,t){let r=e.byteLength;if(r<24){O[S++]=64+r}else if(r<256){O[S++]=88;O[S++]=r}else if(r<65536){O[S++]=89;O[S++]=r>>8;O[S++]=r&255}else{O[S++]=90;mr.setUint32(S,r);S+=4}if(S+r>=O.length){t(S+r)}O.set(e.buffer?e:new Uint8Array(e),S);S+=r}function Pr(n,e){let r;let i=e.length*2;let u=n.length-i;e.sort((e,t)=>e.offset>t.offset?1:-1);for(let r=0;r>8;n[e]=r&255}}while(r=e.pop()){let e=r.offset;n.copyWithin(e+i,e,u);i-=2;let t=e+i;n[t++]=216;n[t++]=28;u=e}return n}function Nr(e,t){mr.setUint32(br.position+e,S-br.position-e+1);let r=br;br=null;t(r[0]);t(r[1])}function Rr(e){if(e.Class){if(!e.encode)throw new Error("Extension has no encode function");fr.unshift(e.Class);cr.unshift(e)}ur(e)}let Tr=new Ar({useRecords:false});Tr.encode;Tr.encodeAsIterable;Tr.encodeAsAsyncIterable;const Lr=512;const Ur=1024;const Mr=2048;var qr={}; /**@license * * No Dependency fast and small LZJB Compression for Browser and Node @@ -48,7 +48,7 @@ * Released under BSD-3-Clause License * * build: Wed, 27 Oct 2021 10:43:10 GMT - */Object.defineProperty(nr,"__esModule",{value:true});const ir=8,ur=6,ar=3,or=(1<r-or){t[i++]=e[n++];continue}f=(e[n]+13^e[n+1]-13^e[n+2])&cr-1;c=n-l[f]&sr;l[f]=n;u=n-c;if(u>=0&&u!=n&&e[n]==e[u]&&e[n+1]==e[u+1]&&e[n+2]==e[u+2]){t[a]|=o;for(s=ar;s>ir;t[i++]=c;n+=s}else{t[i++]=e[n++]}}console.assert(e.length>=n);return i}function lr(e,t,r){t=t|0;var n=0,i=0,u=0,a=0,o=1<<(ir-1|0),s=0,c=0;while(n>(ir-ur|0))+ar|0;c=(e[n]<4){r[i]=r[u];i=i+1|0;u=u+1|0;r[i]=r[u];i=i+1|0;u=u+1|0;r[i]=r[u];i=i+1|0;u=u+1|0;r[i]=r[u];i=i+1|0;u=u+1|0;s=s-4|0}while(s>0){r[i]=r[u];i=i+1|0;u=u+1|0;s=s-1|0}}}else{r[i]=e[n];i=i+1|0;n=n+1|0}}return i}function hr(){const e=new TextEncoder("utf-8");return e.encode(pr)}const pr="@lzjb";const _r=hr();function dr(...e){if(e.length>1){const r=e.reduce((e,t)=>e+t.length,0);const n=new Uint8Array(r);let t=0;e.forEach(e=>{n.set(e,t);t+=e.length});return n}else if(e.length){return e[0]}}function vr(t){const e=Math.ceil(Math.log2(t)/8);const r=new Uint8Array(e);for(let e=0;e=0;e--){r=r*256+t[e]}return r}function yr(e,{magic:t=true}={}){const r=new Uint8Array(Math.max(e.length*1.5|0,16*1024));const n=fr(e,r);const i=vr(e.length);const u=[Uint8Array.of(i.length),i,r.slice(0,n)];if(t){u.unshift(_r)}return dr(...u)}function gr(t,{magic:e=true}={}){if(e){const e=new TextDecoder("utf-8");const s=e.decode(t.slice(0,_r.length));if(s!==pr){throw new Error("Invalid magic value")}}const r=e?_r.length:0;const n=t[r];const i=r+1;const u=r+n+1;const a=mr(t.slice(i,u));t=t.slice(u);const o=new Uint8Array(a);lr(t,t.length,o);return o}var br=nr.pack=yr;var wr=nr.unpack=gr;function Dr(s,c){return c=c||{},new Promise(function(e,t){var r=new XMLHttpRequest,n=[],i=[],u={},a=function(){return{ok:2==(r.status/100|0),statusText:r.statusText,status:r.status,url:r.responseURL,text:function(){return Promise.resolve(r.responseText)},json:function(){return Promise.resolve(r.responseText).then(JSON.parse)},blob:function(){return Promise.resolve(new Blob([r.response]))},clone:a,headers:{keys:function(){return n},entries:function(){return i},get:function(e){return u[e.toLowerCase()]},has:function(e){return e.toLowerCase()in u}}}};for(var o in r.open(c.method||"get",s,!0),r.onload=function(){r.getAllResponseHeaders().replace(/^(.*?):[^\S\n]*([\s\S]*?)$/gm,function(e,t,r){n.push(t=t.toLowerCase()),i.push([t,r]),u[t]=u[t]?u[t]+","+r:r}),e(a())},r.onerror=t,r.withCredentials="include"==c.credentials,c.headers)r.setRequestHeader(o,c.headers[o]);r.send(c.body||null)})} + */Object.defineProperty(qr,"__esModule",{value:true});const Yr=8,Vr=6,zr=3,$r=(1<r-$r){t[i++]=e[n++];continue}l=(e[n]+13^e[n+1]-13^e[n+2])&Kr-1;s=n-h[l]&Jr;h[l]=n;u=n-s;if(u>=0&&u!=n&&e[n]==e[u]&&e[n+1]==e[u+1]&&e[n+2]==e[u+2]){t[f]|=a;for(o=zr;o<$r;o++)if(e[n+o]!=e[u+o])break;t[i++]=o-zr<>Yr;t[i++]=s;n+=o}else{t[i++]=e[n++]}}console.assert(e.length>=n);return i}function Hr(e,t,r){t=t|0;var n=0,i=0,u=0,a=0,o=1<<(Yr-1|0),s=0,c=0;while(n>(Yr-Vr|0))+zr|0;c=(e[n]<4){r[i]=r[u];i=i+1|0;u=u+1|0;r[i]=r[u];i=i+1|0;u=u+1|0;r[i]=r[u];i=i+1|0;u=u+1|0;r[i]=r[u];i=i+1|0;u=u+1|0;s=s-4|0}while(s>0){r[i]=r[u];i=i+1|0;u=u+1|0;s=s-1|0}}}else{r[i]=e[n];i=i+1|0;n=n+1|0}}return i}function Wr(){const e=new TextEncoder("utf-8");return e.encode(Qr)}const Qr="@lzjb";const Zr=Wr();function Xr(...e){if(e.length>1){const r=e.reduce((e,t)=>e+t.length,0);const n=new Uint8Array(r);let t=0;e.forEach(e=>{n.set(e,t);t+=e.length});return n}else if(e.length){return e[0]}}function en(t){const e=Math.ceil(Math.log2(t)/8);const r=new Uint8Array(e);for(let e=0;e=0;e--){r=r*256+t[e]}return r}function rn(e,{magic:t=true}={}){const r=new Uint8Array(Math.max(e.length*1.5|0,16*1024));const n=Gr(e,r);const i=en(e.length);const u=[Uint8Array.of(i.length),i,r.slice(0,n)];if(t){u.unshift(Zr)}return Xr(...u)}function nn(t,{magic:e=true}={}){if(e){const e=new TextDecoder("utf-8");const s=e.decode(t.slice(0,Zr.length));if(s!==Qr){throw new Error("Invalid magic value")}}const r=e?Zr.length:0;const n=t[r];const i=r+1;const u=r+n+1;const a=tn(t.slice(i,u));t=t.slice(u);const o=new Uint8Array(a);Hr(t,t.length,o);return o}var un=qr.pack=rn;var an=qr.unpack=nn;function on(s,c){return c=c||{},new Promise(function(e,t){var r=new XMLHttpRequest,n=[],i=[],u={},a=function(){return{ok:2==(r.status/100|0),statusText:r.statusText,status:r.status,url:r.responseURL,text:function(){return Promise.resolve(r.responseText)},json:function(){return Promise.resolve(r.responseText).then(JSON.parse)},blob:function(){return Promise.resolve(new Blob([r.response]))},clone:a,headers:{keys:function(){return n},entries:function(){return i},get:function(e){return u[e.toLowerCase()]},has:function(e){return e.toLowerCase()in u}}}};for(var o in r.open(c.method||"get",s,!0),r.onload=function(){r.getAllResponseHeaders().replace(/^(.*?):[^\S\n]*([\s\S]*?)$/gm,function(e,t,r){n.push(t=t.toLowerCase()),i.push([t,r]),u[t]=u[t]?u[t]+","+r:r}),e(a())},r.onerror=t,r.withCredentials="include"==c.credentials,c.headers)r.setRequestHeader(o,c.headers[o]);r.send(c.body||null)})} /**@license * __ __ __ * / / \ \ _ _ ___ ___ \ \ @@ -59,12 +59,12 @@ * * * - * LIPS is Pretty Simple - Scheme based Powerful LISP in JavaScript + * LIPS is Pretty Simple - Scheme based powerful LISP in JavaScript * * Copyright (c) 2018-2021 Jakub T. Jankiewicz * Released under the MIT license * - * includes: + * Includes: * * ucs2decode function from Punycode v 2.1.1 by Mathias Bynens MIT License * @@ -83,5 +83,5 @@ * The rationalize algorithm is by Per M.A. Bothner, Alan Bawden and Marc Feeley. * source: Kawa, C-Gambit * - * Build time: Mon, 15 Nov 2021 19:33:52 +0000 - */var Er=["token"],Ar=["stderr","stdin","stdout","command_line"];function Fr(i){var u=xr();return function e(){var t=s(i),r;if(u){var n=s(this).constructor;r=Reflect.construct(t,arguments,n)}else{r=t.apply(this,arguments)}return a(this,r)}}function xr(){if(typeof Reflect==="undefined"||!Reflect.construct)return false;if(Reflect.construct.sham)return false;if(typeof Proxy==="function")return true;try{Boolean.prototype.valueOf.call(Reflect.construct(Boolean,[],function(){}));return true}catch(e){return false}}function Cr(t,e){var r=typeof Symbol!=="undefined"&&t[Symbol.iterator]||t["@@iterator"];if(!r){if(Array.isArray(t)||(r=kr(t))||e&&t&&typeof t.length==="number"){if(r)t=r;var n=0;var i=function e(){};return{s:i,n:function e(){if(n>=t.length)return{done:true};return{done:false,value:t[n++]}},e:function e(t){throw t},f:i}}throw new TypeError("Invalid attempt to iterate non-iterable instance.\nIn order to be iterable, non-array objects must have a [Symbol.iterator]() method.")}var u=true,a=false,o;return{s:function e(){r=r.call(t)},n:function e(){var t=r.next();u=t.done;return t},e:function e(t){a=true;o=t},f:function e(){try{if(!u&&r["return"]!=null)r["return"]()}finally{if(a)throw o}}}}function kr(e,t){if(!e)return;if(typeof e==="string")return Or(e,t);var r=Object.prototype.toString.call(e).slice(8,-1);if(r==="Object"&&e.constructor)r=e.constructor.name;if(r==="Map"||r==="Set")return Array.from(e);if(r==="Arguments"||/^(?:Ui|I)nt(?:8|16|32)(?:Clamped)?Array$/.test(r))return Or(e,t)}function Or(e,t){if(t==null||t>e.length)t=e.length;for(var r=0,n=new Array(t);r1&&arguments[1]!==undefined?arguments[1]:null;var n=arguments[1]===true;function t(e){if(!Mr()){return}var t=io.get("repr")(e);if(r===null||r instanceof RegExp&&r.test(t)){console.log(io.get("type")(e)+": "+t)}if(n){console.log(e)}}if(gu(e)){e.then(t)}else{t(e)}return e}function Mr(){return uo&&uo.get("DEBUG",{throwError:false})}function Yr(e){return e?"(?:#".concat(e,"(?:#[ie])?|#[ie]#").concat(e,")"):"(?:#[ie])?"}function $r(e,t){return"".concat(Yr(e),"[+-]?").concat(t,"+/").concat(t,"+")}function zr(e,t){return"".concat(Yr(e),"(?:[+-]?(?:").concat(t,"+/").concat(t,"+|nan.0|inf.0|").concat(t,"+))?(?:[+-]i|[+-]?(?:").concat(t,"+/").concat(t,"+|").concat(t,"+|nan.0|inf.0)i)(?=[()[\\]\\s]|$)")}function Vr(e,t){return"".concat(Yr(e),"[+-]?").concat(t,"+")}var Jr=/^#\/((?:\\\/|[^/]|\[[^\]]*\/[^\]]*\])+)\/([gimyus]*)$/;var Gr="(?:[-+]?(?:[0-9]+(?:[eE][-+]?[0-9]+)|(?:\\.[0-9]+|[0-9]+\\.[0-9]+)(?:[eE][-+]?[0-9]+)?)|[0-9]+\\.)";var Hr="(?:#[ie])?(?:[+-]?(?:[0-9]+/[0-9]+|nan.0|inf.0|".concat(Gr,"|[+-]?[0-9]+))?(?:").concat(Gr,"|[+-](?:[0-9]+/[0-9]+|[0-9]+|nan.0|inf.0))i");var Wr=new RegExp("^(#[ie])?".concat(Gr,"$"),"i");function Qr(e,t){var r=e==="x"?"(?!\\+|".concat(t,")"):"(?!\\.|".concat(t,")");var n="";if(e===""){n="(?:[-+]?(?:[0-9]+(?:[eE][-+]?[0-9]+)|(?:\\.[0-9]+|[0-9]+\\.[0-9]+(?![0-9]))(?:[eE][-+]?[0-9]+)?))"}return new RegExp("^((?:(?:".concat(n,"|[-+]?inf.0|[-+]?nan.0|[+-]?").concat(t,"+/").concat(t,"+(?!").concat(t,")|[+-]?").concat(t,"+)").concat(r,")?)(").concat(n,"|[-+]?inf.0|[-+]?nan.0|[+-]?").concat(t,"+/").concat(t,"+|[+-]?").concat(t,"+|[+-])i$"),"i")}var Zr=function(){var u={};[[10,"","[0-9]"],[16,"x","[0-9a-fA-F]"],[8,"o","[0-7]"],[2,"b","[01]"]].forEach(function(e){var t=A(e,3),r=t[0],n=t[1],i=t[2];u[r]=Qr(n,i)});return u}();var Kr={alarm:"",backspace:"\b",delete:"",escape:"",newline:"\n",null:"\0",return:"\r",space:" ",tab:"\t",dle:"",soh:"",dc1:"",stx:"",dc2:"",etx:"",dc3:"",eot:"",dc4:"",enq:"",nak:"",ack:"",syn:"",bel:"",etb:"",bs:"\b",can:"",ht:"\t",em:"",lf:"\n",sub:"",vt:"\v",esc:"",ff:"\f",fs:"",cr:"\r",gs:"",so:"",rs:"",si:"",us:"",del:""};function Xr(e){var t=[];var r=0;var n=e.length;while(r=55296&&i<=56319&&r1&&arguments[1]!==undefined?arguments[1]:10;var r=_n(e);var n=r.number.split("/");var i=ka({num:da([n[0],r.radix||t]),denom:da([n[1],r.radix||t])});if(r.inexact){return i.valueOf()}else{return i}}function vn(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:10;var r=_n(e);if(r.inexact){return Ea(parseInt(r.number,r.radix||t))}return da([r.number,r.radix||t])}function mn(e){var t=e.match(/#\\x([0-9a-f]+)$/i);var r;if(t){var n=parseInt(t[1],16);r=String.fromCodePoint(n)}else{t=e.match(/#\\(.+)$/);if(t){r=t[1]}}if(r){return oa(r)}throw new Error("Parse: invalid character")}function yn(e){var i=arguments.length>1&&arguments[1]!==undefined?arguments[1]:10;function t(e){var t;if(e==="+"){t=da(1)}else if(e==="-"){t=da(-1)}else if(e.match(cn)){t=da([e,i])}else if(e.match(fn)){var r=e.split("/");t=ka({num:da([r[0],i]),denom:da([r[1],i])})}else if(e.match(Wr)){var n=wn(e);if(u.exact){return n.toRational()}return n}else if(e.match(/nan.0$/)){return da(NaN)}else if(e.match(/inf.0$/)){if(e[0]==="-"){return da(Number.NEGATIVE_INFINITY)}return da(Number.POSITIVE_INFINITY)}else{throw new Error("Internal Parser Error")}if(u.inexact){return Ea(t.valueOf())}return t}var u=_n(e);i=u.radix||i;var r;var n=u.number.match(hn);if(i!==10&&n){r=n}else{r=u.number.match(Zr[i])}var a,o;o=t(r[2]);if(r[1]){a=t(r[1])}else{a=da(0)}if(o.cmp(0)===0&&o.__type__==="bigint"){return a}return Da({im:o,re:a})}function gn(e){return parseInt(e.toString(),10)===e}function bn(e){var t=e.match(/^(([-+]?[0-9]*)(?:\.([0-9]+))?)e([-+]?[0-9]+)/i);if(t){var r=parseInt(t[4],10);var n;var i=t[1].replace(/[-+]?([0-9]*)\..+$/,"$1").length;var u=t[3]&&t[3].length;if(i0){return da(u).mul(o)}}}r=Ea(r);if(t.exact){return r.toRational()}return r}function Dn(e){e=e.replace(/\\x([0-9a-f]+);/gi,function(e,t){return"\\u"+t.padStart(4,"0")}).replace(/\n/g,"\\n");var t=e.match(/(\\*)(\\x[0-9A-F])/i);if(t&&t[1].length%2===0){throw new Error("Invalid string literal, unclosed ".concat(t[2]))}try{return sa(JSON.parse(e))}catch(e){throw new Error("Invalid string literal")}}function En(e){if(e.match(/^\|.*\|$/)){e=e.replace(/(^\|)|(\|$)/g,"");var r={t:"\t",r:"\r",n:"\n"};e=e.replace(/\\(x[^;]+);/g,function(e,t){return String.fromCharCode(parseInt("0"+t,16))}).replace(/\\(.)/g,function(e,t){return r[t]||t})}return new Ln(e)}function An(e){if(no.hasOwnProperty(e)){return no[e]}if(e.match(/^"[\s\S]*"$/)){return Dn(e)}else if(e[0]==="#"){var t=e.match(Jr);if(t){return new RegExp(t[1],t[2])}else if(e.match(rn)){return mn(e)}var r=e.match(/#\\(.+)/);if(r&&Xr(r[1]).length===1){return mn(e)}}if(e.match(/[0-9a-f]|[+-]i/i)){if(e.match(sn)){return vn(e)}else if(e.match(Wr)){return wn(e)}else if(e.match(on)){return dn(e)}else if(e.match(an)){return yn(e)}}if(e.match(/^#[iexobd]/)){throw new Error("Invalid numeric constant: "+e)}return En(e)}function Fn(e){return!(["(",")","[","]"].includes(e)||Jn.names().includes(e))}function xn(e){return Fn(e)&&!(e.match(Jr)||e.match(/^"[\s\S]*"$/)||e.match(sn)||e.match(Wr)||e.match(an)||e.match(on)||e.match(rn)||["#t","#f","nil","true","false"].includes(e))}var Cn=/"(?:\\[\S\s]|[^"])*"?/g;function kn(e){if(typeof e==="string"){var t=/([-\\^$[\]()+{}?*.|])/g;return e.replace(t,"\\$1")}return e}function On(){this.data=[]}On.prototype.push=function(e){this.data.push(e)};On.prototype.top=function(){return this.data[this.data.length-1]};On.prototype.pop=function(){return this.data.pop()};On.prototype.is_empty=function(){return!this.data.length};function Sn(e){if(e instanceof sa){e=e.valueOf()}var t=new Zn(e,{whitespace:true});var r=[];while(true){var n=t.peek(true);if(n===$a){break}r.push(n);t.skip()}return r}function Bn(e){var t=e.token,r=D(e,Er);if(t.match(/^"[\s\S]*"$/)&&t.match(/\n/)){var n=new RegExp("^ {1,"+(e.col+1)+"}","mg");t=t.replace(n,"")}return Br({token:t},r)}function jn(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:function(){};this.fn=e;this.cont=t}jn.prototype.toString=function(){return"#"};function In(n){return function(){for(var e=arguments.length,t=new Array(e),r=0;r1&&arguments[1]!==undefined?arguments[1]:false;if(e instanceof sa){e=e.toString()}if(t){return Sn(e)}else{var r=Sn(e).map(function(e){if(e.token==="#\\ "){return e.token}return e.token.trim()}).filter(function(e){return e&&!e.match(/^;/)&&!e.match(/^#\|[\s\S]*\|#$/)});return Rn(r)}}function Rn(e){var t=0;var r=null;var n=[];for(var i=0;i0&&arguments[0]!==undefined?arguments[0]:null;if(e instanceof Ln){if(e.is_gensym()){return e}e=e.valueOf()}if(qn(e)){return Ln(e)}if(e!==null){return r(e,Symbol("#:".concat(e)))}t++;return r(t,Symbol("#:g".concat(t)))}}();function Yn(e){var r=this;var n={pending:true,rejected:false,fulfilled:false,reason:undefined,type:undefined};e=e.then(function(e){n.type=Ao(e);n.fulfilled=true;n.pending=false;return e});ai(this,"_promise",e,{hidden:true});if(vu(e["catch"])){e=e["catch"](function(e){n.rejected=true;n.pending=false;n.reason=e})}Object.keys(n).forEach(function(t){Object.defineProperty(r,"__".concat(t,"__"),{enumerable:true,get:function e(){return n[t]}})});ai(this,"__promise__",e);this.then=false}Yn.prototype.then=function(e){return new Yn(this.valueOf().then(e))};Yn.prototype["catch"]=function(e){return new Yn(this.valueOf()["catch"](e))};Yn.prototype.valueOf=function(){if(!this._promise){throw new Error("QuotedPromise: invalid promise created")}return this._promise};Yn.prototype.toString=function(){if(this.__pending__){return Yn.pending_str}if(this.__rejected__){return Yn.rejected_str}return"#")};Yn.pending_str="#";Yn.rejected_str="#";function $n(e){if(Array.isArray(e)){return Promise.all(zn(e)).then(Vn)}return e}function zn(e){var t=new Array(e.length),r=e.length;while(r--){var n=e[r];if(n instanceof Yn){t[r]=new Ha(n)}else{t[r]=n}}return t}function Vn(e){var t=new Array(e.length),r=e.length;while(r--){var n=e[r];if(n instanceof Ha){t[r]=n.valueOf()}else{t[r]=n}}return t}var Jn={LITERAL:Symbol["for"]("literal"),SPLICE:Symbol["for"]("splice"),SYMBOL:Symbol["for"]("symbol"),names:function e(){return Object.keys(this._specials)},type:function e(t){return this.get(t).type},get:function e(t){return this._specials[t]},off:function e(t){var r=this;var n=arguments.length>1&&arguments[1]!==undefined?arguments[1]:null;if(Array.isArray(t)){t.forEach(function(e){return r.off(e,n)})}else if(n===null){delete this._events[t]}else{this._events=this._events.filter(function(e){return e!==n})}},on:function e(t,r){var n=this;if(Array.isArray(t)){t.forEach(function(e){return n.on(e,r)})}else if(!this._events[t]){this._events[t]=[r]}else{this._events[t].push(r)}},trigger:function e(t){for(var r=arguments.length,n=new Array(r>1?r-1:0),i=1;i",new Ln("quote-promise"),Jn.LITERAL]];Object.defineProperty(Jn,"builtin",{writable:false,value:Qn.map(function(e){return e[0]})});Qn.forEach(function(e){var t=A(e,3),r=t[0],n=t[1],i=t[2];Jn.append(r,n,i)});var Zn=function(){function p(e){var t=this;var r=arguments.length>1&&arguments[1]!==undefined?arguments[1]:{},n=r.whitespace,i=n===void 0?false:n;y(this,p);ai(this,"__input__",e.replace(/\r/g,""));var u={};["_i","_whitespace","_col","_newline","_line","_state","_next","_token","_prev_char"].forEach(function(r){Object.defineProperty(t,r,{configurable:false,enumerable:false,get:function e(){return u[r]},set:function e(t){u[r]=t}})});this._whitespace=i;this._i=this._line=this._col=this._newline=0;this._state=this._next=this._token=null;this._prev_char=""}b(p,[{key:"get",value:function e(t){return this.__internal[t]}},{key:"set",value:function e(t,r){this.__internal[t]=r}},{key:"token",value:function e(){var t=arguments.length>0&&arguments[0]!==undefined?arguments[0]:false;if(t){var r=this._line;if(this._whitespace&&this._token==="\n"){--r}return{token:this._token,col:this._col,offset:this._i,line:r}}return this._token}},{key:"peek",value:function e(){var t=arguments.length>0&&arguments[0]!==undefined?arguments[0]:false;if(this._i>=this.__input__.length){return $a}if(this._token){return this.token(t)}var r=this.next_token();if(r){this._token=this.__input__.substring(this._i,this._next);return this.token(t)}return $a}},{key:"skip",value:function e(){if(this._next!==null){this._token=null;this._i=this._next}}},{key:"read_line",value:function e(){var t=this.__input__.length;if(this._i>=t){return $a}for(var r=this._i;r=r){return $a}if(t+this._i>=r){return this.read_rest()}var n=this._i+t;var i=this.__input__.substring(this._i,n);var u=i.match(/\n/g);if(u){this._line+=u.length}this._i=n;return i}},{key:"peek_char",value:function e(){if(this._i>=this.__input__.length){return $a}return oa(this.__input__[this._i])}},{key:"read_char",value:function e(){var t=this.peek_char();this.skip_char();return t}},{key:"skip_char",value:function e(){if(this._i1&&arguments[1]!==undefined?arguments[1]:{},n=r.prev_char,i=r["char"],u=r.next_char;var a=A(t,4),o=a[0],s=a[1],c=a[2],f=a[3];if(t.length!==5){throw new Error("Lexer: Invald rule of length ".concat(t.length))}if(!i.match(o)){return false}if(!Kn(s,n)){return false}if(!Kn(c,u)){return false}if(f!==this._state){return false}return true}},{key:"next_token",value:function e(){if(this._i>=this.__input__.length){return false}var t=true;e:for(var r=this._i,n=this.__input__.length;r2&&arguments[2]!==undefined?arguments[2]:null;var i=arguments.length>3&&arguments[3]!==undefined?arguments[3]:null;if(t.length===0){throw new Error("Lexer: invalid literal rule")}if(t.length===1){return[[t,n,i,null,null]]}var u=[];for(var a=0,o=t.length;a1&&arguments[1]!==undefined?arguments[1]:{},r=t.env,n=t.meta,i=n===void 0?false:n,u=t.formatter,a=u===void 0?Bn:u;y(this,o);if(e instanceof sa){e=e.toString()}ai(this,"_formatter",a,{hidden:true});ai(this,"__lexer__",new Zn(e));ai(this,"__env__",r);ai(this,"_meta",i,{hidden:true});ai(this,"_refs",[],{hidden:true});ai(this,"_state",{parentheses:0},{hidden:true})}b(o,[{key:"resolve",value:function e(t){return this.__env__&&this.__env__.get(t,{throwError:false})}},{key:"peek",value:function(){var e=O(j.mark(function e(){var r;return j.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:r=this.__lexer__.peek(true);if(!(r===$a)){t.next=4;break}return t.abrupt("return",$a);case 4:if(!this.is_comment(r.token)){t.next=7;break}this.skip();return t.abrupt("continue",0);case 7:if(!(r.token==="#;")){t.next=14;break}this.skip();if(!(this.__lexer__.peek()===$a)){t.next=11;break}throw new Error("Lexer: syntax error eof found after comment");case 11:t.next=13;return this._read_object();case 13:return t.abrupt("continue",0);case 14:return t.abrupt("break",17);case 17:r=this._formatter(r);if(!this._meta){t.next=20;break}return t.abrupt("return",r);case 20:return t.abrupt("return",r.token);case 21:case"end":return t.stop()}}},e,this)}));function t(){return e.apply(this,arguments)}return t}()},{key:"reset",value:function e(){this._refs.length=0}},{key:"skip",value:function e(){this.__lexer__.skip()}},{key:"read",value:function(){var e=O(j.mark(function e(){var r;return j.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:t.next=2;return this.peek();case 2:r=t.sent;this.skip();return t.abrupt("return",r);case 5:case"end":return t.stop()}}},e,this)}));function t(){return e.apply(this,arguments)}return t}()},{key:"match_datum_label",value:function e(t){var r=t.match(/^#([0-9]+)=$/);return r&&r[1]}},{key:"match_datum_ref",value:function e(t){var r=t.match(/^#([0-9]+)#$/);return r&&r[1]}},{key:"is_open",value:function e(t){var r=["(","["].includes(t);if(r){this._state.parentheses++}return r}},{key:"is_close",value:function e(t){var r=[")","]"].includes(t);if(r){this._state.parentheses--}return r}},{key:"read_list",value:function(){var e=O(j.mark(function e(){var r,n,i,u;return j.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:r=Pi,n=r;case 1:t.next=4;return this.peek();case 4:i=t.sent;if(!(i===$a)){t.next=7;break}return t.abrupt("break",27);case 7:if(!this.is_close(i)){t.next=10;break}this.skip();return t.abrupt("break",27);case 10:if(!(i==="."&&r!==Pi)){t.next=17;break}this.skip();t.next=14;return this._read_object();case 14:n.cdr=t.sent;t.next=25;break;case 17:t.t0=Ni;t.next=20;return this._read_object();case 20:t.t1=t.sent;t.t2=Pi;u=new t.t0(t.t1,t.t2);if(r===Pi){r=u}else{n.cdr=u}n=u;case 25:t.next=1;break;case 27:return t.abrupt("return",r);case 28:case"end":return t.stop()}}},e,this)}));function t(){return e.apply(this,arguments)}return t}()},{key:"read_value",value:function(){var e=O(j.mark(function e(){var r;return j.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:t.next=2;return this.read();case 2:r=t.sent;if(!(r===$a)){t.next=5;break}throw new Error("Parser: Expected token eof found");case 5:return t.abrupt("return",An(r));case 6:case"end":return t.stop()}}},e,this)}));function t(){return e.apply(this,arguments)}return t}()},{key:"is_comment",value:function e(t){return t.match(/^;/)||t.match(/^#\|/)&&t.match(/\|#$/)}},{key:"evaluate",value:function e(t){return Io(t,{env:this.__env__,error:function e(t){throw t}})}},{key:"read_object",value:function(){var e=O(j.mark(function e(){var r;return j.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:this.reset();t.next=3;return this._read_object();case 3:r=t.sent;if(r instanceof ei){r=r.valueOf()}if(!this._refs.length){t.next=7;break}return t.abrupt("return",this._resolve_object(r));case 7:return t.abrupt("return",r);case 8:case"end":return t.stop()}}},e,this)}));function t(){return e.apply(this,arguments)}return t}()},{key:"ballanced",value:function e(){return this._state.parentheses===0}},{key:"ballancing_error",value:function e(t){var r=this._state.parentheses;var n=new Error("Parser: expected parenthesis but eof found");var i=new RegExp("\\){".concat(r,"}$"));n.__code__=[t.toString().replace(i,"")];throw n}},{key:"_resolve_object",value:function(){var t=O(j.mark(function e(r){var n=this;var i;return j.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:if(!Array.isArray(r)){t.next=2;break}return t.abrupt("return",r.map(function(e){return n._resolve_object(e)}));case 2:if(!Li(r)){t.next=6;break}i={};Object.keys(r).forEach(function(e){i[e]=n._resolve_object(r[e])});return t.abrupt("return",i);case 6:if(!(r instanceof Ni)){t.next=8;break}return t.abrupt("return",this._resolve_pair(r));case 8:return t.abrupt("return",r);case 9:case"end":return t.stop()}}},e,this)}));function e(e){return t.apply(this,arguments)}return e}()},{key:"_resolve_pair",value:function(){var t=O(j.mark(function e(r){return j.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:if(!(r instanceof Ni)){t.next=15;break}if(!(r.car instanceof ei)){t.next=7;break}t.next=4;return r.car.valueOf();case 4:r.car=t.sent;t.next=8;break;case 7:this._resolve_pair(r.car);case 8:if(!(r.cdr instanceof ei)){t.next=14;break}t.next=11;return r.cdr.valueOf();case 11:r.cdr=t.sent;t.next=15;break;case 14:this._resolve_pair(r.cdr);case 15:return t.abrupt("return",r);case 16:case"end":return t.stop()}}},e,this)}));function e(e){return t.apply(this,arguments)}return e}()},{key:"_read_object",value:function(){var e=O(j.mark(function e(){var r,n,i,u,a,o,s,c,f;return j.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:t.next=2;return this.peek();case 2:r=t.sent;if(!(r===$a)){t.next=5;break}return t.abrupt("return",r);case 5:if(!Gn(r)){t.next=35;break}n=Jn.get(r);i=Hn(r);this.skip();t.next=11;return this._read_object();case 11:a=t.sent;if(i){t.next=22;break}o=this.__env__.get(n.symbol);if(!(typeof o==="function")){t.next=22;break}if(!Wn(r)){t.next=19;break}return t.abrupt("return",o.call(this.__env__,a));case 19:if(!(a instanceof Ni)){t.next=21;break}return t.abrupt("return",o.apply(this.__env__,a.to_array(false)));case 21:throw new Error("Parse Error: Invalid parser extension "+"invocation ".concat(n.symbol));case 22:if(Wn(r)){u=new Ni(n.symbol,new Ni(a,Pi))}else{u=new Ni(n.symbol,a)}if(!i){t.next=25;break}return t.abrupt("return",u);case 25:if(!(o instanceof au)){t.next=34;break}t.next=28;return this.evaluate(u);case 28:s=t.sent;if(!(s instanceof Ni||s instanceof Ln)){t.next=31;break}return t.abrupt("return",Ni.fromArray([Ln("quote"),s]));case 31:return t.abrupt("return",s);case 34:throw new Error("Parse Error: invlid parser extension: "+n.symbol);case 35:c=this.match_datum_ref(r);if(!(c!==null)){t.next=41;break}this.skip();if(!this._refs[c]){t.next=40;break}return t.abrupt("return",new ei(c,this._refs[c]));case 40:throw new Error("Parse Error: invalid datum label #".concat(c,"#"));case 41:f=this.match_datum_label(r);if(!(f!==null)){t.next=48;break}this.skip();this._refs[f]=this._read_object();return t.abrupt("return",this._refs[f]);case 48:if(!this.is_open(r)){t.next=53;break}this.skip();return t.abrupt("return",this.read_list());case 53:return t.abrupt("return",this.read_value());case 54:case"end":return t.stop()}}},e,this)}));function t(){return e.apply(this,arguments)}return t}()}]);return o}();var ei=function(){function r(e,t){y(this,r);this.name=e;this.data=t}b(r,[{key:"valueOf",value:function e(){return this.data}}]);return r}();function ti(e,t){return ri.apply(this,arguments)}function ri(){ri=e(j.mark(function e(r,n){var i,u;return j.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:if(!n){if(io){n=io.get("**interaction-environment**",{throwError:false})}else{n=uo}}i=new Xn(r,{env:n});case 2:t.next=5;return C(i.read_object());case 5:u=t.sent;if(!i.ballanced()){i.ballancing_error(u)}if(!(u===$a)){t.next=9;break}return t.abrupt("break",13);case 9:t.next=11;return u;case 11:t.next=2;break;case 13:case"end":return t.stop()}}},e)}));return ri.apply(this,arguments)}function ni(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:function(e){return e};var r=arguments.length>2&&arguments[2]!==undefined?arguments[2]:null;if(gu(e)){var n=e.then(t);if(r===null){return n}else{return n["catch"](r)}}if(e instanceof Array){return ii(e,t,r)}if(Li(e)){return ui(e,t,r)}return t(e)}function ii(t,r,e){if(t.find(gu)){return ni($n(t),function(e){if(Object.isFrozen(t)){Object.freeze(e)}return r(e)},e)}return r(t)}function ui(t,e,r){var i=Object.keys(t);var n=[],u=[];var a=i.length;while(a--){var o=i[a];var s=t[o];n[a]=s;if(gu(s)){u.push(s)}}if(u.length){return ni($n(n),function(e){var n={};e.forEach(function(e,t){var r=i[t];n[r]=e});if(Object.isFrozen(t)){Object.freeze(n)}return n},r)}return e(t)}function ai(e,t,r){var n=arguments.length>3&&arguments[3]!==undefined?arguments[3]:{},i=n.hidden,u=i===void 0?false:i;Object.defineProperty(e,t,{value:r,configurable:true,enumerable:!u})}function oi(r){var n,i,u,a,o,s,c;return j.async(function e(t){while(1){switch(t.prev=t.next){case 0:n=[];i=false;u=false;t.prev=3;o=F(r);case 5:t.next=7;return j.awrap(o.next());case 7:if(!(i=!(s=t.sent).done)){t.next=13;break}c=s.value;n.push(c);case 10:i=false;t.next=5;break;case 13:t.next=19;break;case 15:t.prev=15;t.t0=t["catch"](3);u=true;a=t.t0;case 19:t.prev=19;t.prev=20;if(!(i&&o["return"]!=null)){t.next=24;break}t.next=24;return j.awrap(o["return"]());case 24:t.prev=24;if(!u){t.next=27;break}throw a;case 27:return t.finish(24);case 28:return t.finish(19);case 29:return t.abrupt("return",n);case 30:case"end":return t.stop()}}},null,null,[[3,15,19,29],[20,,24,28]],Promise)}function si(e,t){if(t instanceof RegExp){return function(e){return String(e).match(t)}}else if(vu(t)){return t}throw new Error("Invalid matcher")}function ci(e,t,r,n){if(typeof e!=="string"){t=arguments[0];r=arguments[1];n=arguments[2];e=null}if(r){if(n){t.__doc__=r}else{t.__doc__=fi(r)}}if(e){t.__name__=e}else if(t.name&&!Vu(t)){t.__name__=t.name}return t}function fi(e){return e.split("\n").map(function(e){return e.trim()}).join("\n")}function li(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:1;var r=e.length;if(t<=0){throw Error("previousSexp: Invalid argument sexp = ".concat(t))}e:while(t--&&r>=0){var n=1;while(n>0){var i=e[--r];if(!i){break e}if(i==="("||i.token==="("){n--}else if(i===")"||i.token===")"){n++}}r--}return e.slice(r+1)}function hi(e){if(!e||!e.length){return 0}var t=e.length;if(e[t-1].token==="\n"){return 0}while(--t){if(e[t].token==="\n"){var r=(e[t+1]||{}).token;if(r){return r.length}}}return 0}function pi(e,t){return f(e,t)===t.length;function f(r,n){function e(e,t){var r=Cr(e),n;try{for(r.s();!(n=r.n()).done;){var i=n.value;var u=f(i,t);if(u!==-1){return u}}}catch(e){r.e(e)}finally{r.f()}return-1}function t(){return r[u]===Symbol["for"]("symbol")&&!xn(n[o])}function i(){var e=r[u+1];var t=n[o+1];if(e!==undefined&&t!==undefined){return f([e],[t])}}var u=0;var a={};for(var o=0;o0){continue}}else if(t()){return-1}}else if(r[u]instanceof Array){var c=f(r[u],n.slice(o));if(c===-1||c+o>n.length){return-1}o+=c-1;u++;continue}else{return-1}u++}if(r.length!==u){return-1}return n.length}}function _i(e){this.__code__=e.replace(/\r/g,"")}_i.defaults={offset:0,indent:2,exceptions:{specials:[/^(?:#:)?(?:define(?:-values|-syntax|-macro|-class|-record-type)?|(?:call-with-(?:input-file|output-file|port))|lambda|let-env|try|catch|when|unless|while|syntax-rules|(let|letrec)(-syntax|\*)?)$/],shift:{1:["&","#"]}}};_i.match=pi;_i.prototype._options=function e(t){var r=_i.defaults;if(typeof t==="undefined"){return Object.assign({},r)}var n=t&&t.exceptions||{};var i=n.specials||[];var u=n.shift||{1:[]};return Br(Br(Br({},r),t),{},{exceptions:{specials:[].concat(k(r.exceptions.specials),k(i)),shift:Br(Br({},u),{},{1:[].concat(k(r.exceptions.shift[1]),k(u[1]))})}})};_i.prototype.indent=function e(t){var r=Nn(this.__code__,true);return this._indent(r,t)};_i.exception_shift=function(u,e){function t(e){if(!e.length){return false}if(e.indexOf(u)!==-1){return true}else{var t=e.filter(function(e){return e instanceof RegExp});if(!t.length){return false}var r=Cr(t),n;try{for(r.s();!(n=r.n()).done;){var i=n.value;if(u.match(i)){return true}}}catch(e){r.e(e)}finally{r.f()}}return false}if(t(e.exceptions.specials)){return e.indent}var r=e.exceptions.shift;for(var n=0,i=Object.entries(r);n0){n.offset=0}if(u.toString()===t.toString()&&To(u)){return n.offset+u[0].col}else if(u.length===1){return n.offset+u[0].col+1}else{var s=-1;if(a){var c=_i.exception_shift(a.token,n);if(c!==-1){s=c}}if(s===-1){s=_i.exception_shift(u[1].token,n)}if(s!==-1){return n.offset+u[0].col+s}else if(u[0].line3&&u[1].line===u[3].line){if(u[1].token==="("||u[1].token==="["){return n.offset+u[1].col}return n.offset+u[3].col}else if(u[0].line===u[1].line){return n.offset+n.indent+u[0].col}else{var f=u.slice(2);for(var l=0;l")};di.prototype.match=function(e){return e.match(this.pattern)};function vi(){for(var e=arguments.length,t=new Array(e),r=0;r")};_i.Pattern=vi;_i.Ahead=di;var mi=/^[[(]$/;var yi=/^[\])]$/;var gi=/[^()[\]]/;var bi=new di(/[^)\]]/);var wi=Symbol["for"]("*");var Di=new vi([mi,wi,yi],[gi],"+");var Ei=new vi([mi,wi,yi],"+");var Ai=new vi([Symbol["for"]("symbol")],"?");var Fi=new vi([Symbol["for"]("symbol")],"*");var xi=[mi,Fi,yi];var Ci=new vi([mi,Symbol["for"]("symbol"),wi,yi],"+");var ki=Bi("define","lambda","define-macro","syntax-rules");var Oi=/^(?!.*\b(?:[()[\]]|define(?:-macro)?|let(?:\*|rec|-env|-syntax|)?|lambda|syntax-rules)\b).*$/;var Si=/^(?:#:)?(let(?:\*|rec|-env|-syntax)?)$/;function Bi(){for(var e=arguments.length,t=new Array(e),r=0;r0&&!o[e]){o[e]=li(a,e)}});var s=Cr(i),c;try{for(s.s();!(c=s.n()).done;){var f=A(c.value,3),l=f[0],h=f[1],p=f[2];h=h.valueOf();var _=h>0?o[h]:a;var d=_.filter(function(e){return e.trim()&&!Gn(e)});var v=r(_);var m=pi(l,d);var y=n.slice(u).find(function(e){return e.trim()&&!Gn(e)});if(m&&(p instanceof di&&p.match(y)||!p)){var g=u-v;if(n[g]!=="\n"){if(!n[g].trim()){n[g]="\n"}else{n.splice(g,0,"\n");u++}}u+=v;continue e}}}catch(e){s.e(e)}finally{s.f()}}this.__code__=n.join("");return this};_i.prototype._spaces=function(e){return new Array(e+1).join(" ")};_i.prototype.format=function e(t){var r=this.__code__.replace(/[ \t]*\n[ \t]*/g,"\n ");var n=Nn(r,true);var i=this._options(t);var u=0;var a=0;for(var o=0;o0&&arguments[0]!==undefined?arguments[0]:true;var n=new Map;function i(e){if(e instanceof Ni){if(n.has(e)){return n.get(e)}var t=new Ni;n.set(e,t);if(r){t.car=i(e.car)}else{t.car=e.car}t.cdr=i(e.cdr);t[Ru]=e[Ru];return t}return e}return i(this)};Ni.prototype.last_pair=function(){var e=this;while(true){if(e.cdr===Pi){return e}e=e.cdr}};Ni.prototype.to_array=function(){var e=arguments.length>0&&arguments[0]!==undefined?arguments[0]:true;var t=[];if(this.car instanceof Ni){if(e){t.push(this.car.to_array())}else{t.push(this.car)}}else{t.push(this.car.valueOf())}if(this.cdr instanceof Ni){t=t.concat(this.cdr.to_array())}return t};Ni.fromArray=function(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:true;var r=arguments.length>2&&arguments[2]!==undefined?arguments[2]:false;if(e instanceof Ni||r&&e instanceof Array&&e[Pu]){return e}if(t===false){var n=Pi;for(var i=e.length;i--;){n=new Ni(e[i],n)}return n}if(e.length&&!(e instanceof Array)){e=k(e)}var u=Pi;var a=e.length;while(a--){var o=e[a];if(o instanceof Array){o=Ni.fromArray(o,t,r)}else if(typeof o==="string"){o=sa(o)}else if(typeof o==="number"&&!Number.isNaN(o)){o=da(o)}u=new Ni(o,u)}return u};Ni.prototype.to_object=function(){var e=arguments.length>0&&arguments[0]!==undefined?arguments[0]:false;var t=this;var r={};while(true){if(t instanceof Ni&&t.car instanceof Ni){var n=t.car;var i=n.car;if(i instanceof Ln){i=i.__name__}if(i instanceof sa){i=i.valueOf()}var u=n.cdr;if(u instanceof Ni){u=u.to_object(e)}if(bo(u)){if(!e){u=u.valueOf()}}r[i]=u;t=t.cdr}else{break}}return r};Ni.fromPairs=function(e){return e.reduce(function(e,t){return new Ni(new Ni(new Ln(t[0]),t[1]),e)},Pi)};Ni.fromObject=function(t){var e=Object.keys(t).map(function(e){return[e,t[e]]});return Ni.fromPairs(e)};Ni.prototype.reduce=function(e){var t=this;var r=Pi;while(true){if(t!==Pi){r=e(r,t.car);t=t.cdr}else{break}}return r};Ni.prototype.reverse=function(){if(this.haveCycles()){throw new Error("You can't reverse list that have cycles")}var e=this;var t=Pi;while(e!==Pi){var r=e.cdr;e.cdr=t;t=e;e=r}return t};Ni.prototype.transform=function(n){function i(e){if(e instanceof Ni){if(e.replace){delete e.replace;return e}var t=n(e.car);if(t instanceof Ni){t=i(t)}var r=n(e.cdr);if(r instanceof Ni){r=i(r)}return new Ni(t,r)}return e}return i(this)};Ni.prototype.map=function(e){if(typeof this.car!=="undefined"){return new Ni(e(this.car),this.cdr===Pi?Pi:this.cdr.map(e))}else{return Pi}};var Ti=new Map;function Li(e){return e&&_(e)==="object"&&e.constructor===Object}var Ui=Object.getOwnPropertyNames(Array.prototype);var qi=[];Ui.forEach(function(e){qi.push(Array[e],Array.prototype[e])});function Mi(e){e=Fu(e);return qi.includes(e)}function Yi(e){return vu(e)&&(Vu(e)||e.__doc__)}function $i(r){var e=r.constructor||Object;var n=Li(r);var i=vu(r[Symbol.asyncIterator])||vu(r[Symbol.iterator]);var u;if(Ti.has(e)){u=Ti.get(e)}else{Ti.forEach(function(e,t){t=Fu(t);if(r.constructor===t&&(t===Object&&n&&!i||t!==Object)){u=e}})}return u}var zi=new Map;[[true,"#t"],[false,"#f"],[null,"null"],[undefined,"#"]].forEach(function(e){var t=A(e,2),r=t[0],n=t[1];zi.set(r,n)});function Vi(r){if(r&&_(r)==="object"){var n={};var e=Object.getOwnPropertySymbols(r);e.forEach(function(e){var t=e.toString().replace(/Symbol\(([^)]+)\)/,"$1");n[t]=Zi(r[e])});var t=Object.getOwnPropertyNames(r);t.forEach(function(e){var t=r[e];if(t&&_(t)==="object"&&t.constructor===Object){n[e]=Vi(t)}else{n[e]=Zi(t)}});return n}return r}function Ji(e){return Object.keys(e).concat(Object.getOwnPropertySymbols(e))}function Gi(e,t){return e.hasOwnProperty(t)&&vu(e.toString)}function Hi(e){if(Hu(e)){return"#"}var t=e.prototype&&e.prototype.constructor;if(vu(t)&&Vu(t)){if(e[Tu]&&t.hasOwnProperty("__name__")){var r=t.__name__;if(sa.isString(r)){r=r.toString();return"#")}return"#"}}if(e.hasOwnProperty("__name__")){var n=e.__name__;if(_(n)==="symbol"){n=Un(n)}if(typeof n==="string"){return"#")}}if(Gi(e,"toString")){return e.toString()}else if(e.name&&!Vu(e)){return"#")}else{return"#"}}var Wi=new Map;[[Error,function(e){return e.message}],[Ni,function(e,t){var r=t.quote,n=t.skip_cycles,i=t.pair_args;if(!n){e.markCycles()}return e.toString.apply(e,[r].concat(k(i)))}],[oa,function(e,t){var r=t.quote;if(r){return e.toString()}return e.valueOf()}],[sa,function(e,t){var r=t.quote;e=e.toString();if(r){return JSON.stringify(e).replace(/\\n/g,"\n")}return e}],[RegExp,function(e){return"#"+e.toString()}]].forEach(function(e){var t=A(e,2),r=t[0],n=t[1];Wi.set(r,n)});var Qi=[Ln,da,au,Wa,Sa,Ba,Ga,Yn];function Zi(e,t,r){if(typeof jQuery!=="undefined"&&e instanceof jQuery.fn.init){return"#"}if(zi.has(e)){return zi.get(e)}if(Ki(e)){return"#"}if(e){var n=e.constructor;if(Wi.has(n)){for(var i=arguments.length,u=new Array(i>3?i-3:0),a=3;a"}if(e===null){return"null"}if(_(e)==="object"){var f=e.constructor;if(!f){f=Object}var l;if(typeof f.__class__==="string"){l=f.__class__}else{var h=$i(e);if(h){if(vu(h)){return h(e,t)}else{throw new Error("toString: Invalid repr value")}}l=f.name}if(vu(e.toString)&&Vu(e.toString)){return e.toString().valueOf()}if(Ao(e)==="instance"){if(Vu(f)&&f.__name__){l=f.__name__.valueOf()}else if(!Hu(f)){l="instance"}}if(Do(e,Symbol.iterator)){if(l){return"#")}return"#"}if(Do(e,Symbol.asyncIterator)){if(l){return"#")}return"#"}if(l!==""){return"#<"+l+">"}return"#"}if(typeof e!=="string"){return e.toString()}return e}function Ki(e){return e&&_(e)==="object"&&e.hasOwnProperty&&e.hasOwnProperty("constructor")&&typeof e.constructor==="function"&&e.constructor.prototype===e}Ni.prototype.markCycles=function(){Xi(this);return this};Ni.prototype.haveCycles=function(){var e=arguments.length>0&&arguments[0]!==undefined?arguments[0]:null;if(!e){return this.haveCycles("car")||this.haveCycles("cdr")}return!!(this[Ru]&&this[Ru][e])};function Xi(e){var t=[];var i=[];var u=[];function a(e){if(!t.includes(e)){t.push(e)}}function o(e,t,r,n){if(r instanceof Ni){if(n.includes(r)){if(!u.includes(r)){u.push(r)}if(!e[Ru]){e[Ru]={}}e[Ru][t]=r;if(!i.includes(e)){i.push(e)}return true}}}var s=In(function e(t,r){if(t instanceof Ni){delete t.ref;delete t[Ru];a(t);r.push(t);var n=o(t,"car",t.car,r);var i=o(t,"cdr",t.cdr,r);if(!n){s(t.car,r.slice())}if(!i){return new jn(function(){return e(t.cdr,r.slice())})}}});function r(e,t){if(e[Ru][t]instanceof Ni){var r=n.indexOf(e[Ru][t]);e[Ru][t]="#".concat(r,"#")}}s(e,[]);var n=t.filter(function(e){return u.includes(e)});n.forEach(function(e,t){e[Nu]="#".concat(t,"=")});i.forEach(function(e){r(e,"car");r(e,"cdr")})}Ni.prototype.toString=function(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:{},r=t.nested,n=r===void 0?false:r;var i=[];if(this[Nu]){i.push(this[Nu]+"(")}else if(!n){i.push("(")}var u;if(this[Ru]&&this[Ru].car){u=this[Ru].car}else{u=Zi(this.car,e,true)}if(u!==undefined){i.push(u)}if(this.cdr instanceof Ni){if(this[Ru]&&this[Ru].cdr){i.push(" . ");i.push(this[Ru].cdr)}else{if(this.cdr[Nu]){i.push(" . ")}else{i.push(" ")}var a=this.cdr.toString(e,{nested:true});i.push(a)}}else if(this.cdr!==Pi){i=i.concat([" . ",Zi(this.cdr,e,true)])}if(!n||this[Nu]){i.push(")")}return i.join("")};Ni.prototype.set=function(e,t){this[e]=t;if(t instanceof Ni){this.markCycles()}};Ni.prototype.append=function(e){if(e instanceof Array){return this.append(Ni.fromArray(e))}var t=this;if(t.car===undefined){if(e instanceof Ni){this.car=e.car;this.cdr=e.cdr}else{this.car=e}}else if(e!==Pi){while(true){if(t instanceof Ni&&t.cdr!==Pi){t=t.cdr}else{break}}t.cdr=e}return this};Ni.prototype.serialize=function(){return[this.car,this.cdr]};Ni.prototype[Symbol.iterator]=function(){var r=this;return{next:function e(){var t=r;r=t.cdr;if(t===Pi){return{value:undefined,done:true}}else{return{value:t.car,done:false}}}}};function eu(e){return e<0?-e:e}function tu(e,t){var r=h(t),n=r[0],i=r.slice(1);while(i.length>0){var u=i,a=A(u,1),o=a[0];if(!e(n,o)){return false}var s=i;var c=h(s);n=c[0];i=c.slice(1)}return true}function ru(e,t){if(vu(e)){return vu(t)&&Fu(e)===Fu(t)}else if(e instanceof da){if(!(t instanceof da)){return false}var r;if(e.__type__===t.__type__){if(e.__type__==="complex"){r=e.__im__.__type__===t.__im__.__type__&&e.__re__.__type__===t.__re__.__type__}else{r=true}if(r&&e.cmp(t)===0){if(e.valueOf()===0){return Object.is(e.valueOf(),t.valueOf())}return true}}return false}else if(typeof e==="number"){if(typeof t!=="number"){return false}if(Number.isNaN(e)){return Number.isNaN(t)}if(e===Number.NEGATIVE_INFINITY){return t===Number.NEGATIVE_INFINITY}if(e===Number.POSITIVE_INFINITY){return t===Number.POSITIVE_INFINITY}return ru(da(e),da(t))}else if(e instanceof oa){if(!(t instanceof oa)){return false}return e.__char__===t.__char__}else{return e===t}}function nu(e,t){if(Ao(e)!==Ao(t)){return false}if(!iu(e)){return false}if(e instanceof RegExp){return e.source===t.source}if(e instanceof sa){return e.valueOf()===t.valueOf()}return ru(e,t)}function iu(e){return e instanceof Ln||sa.isString(e)||e===Pi||e===null||e instanceof oa||e instanceof da||e===true||e===false}var uu=function(){if(Math.trunc){return Math.trunc}else{return function(e){if(e===0){return 0}else if(e<0){return Math.ceil(e)}else{return Math.floor(e)}}}}();function au(e,t,r,n){if(typeof this!=="undefined"&&this.constructor!==au||typeof this==="undefined"){return new au(e,t)}yo("Macro",e,"string",1);yo("Macro",t,"function",2);if(r){if(n){this.__doc__=r}else{this.__doc__=fi(r)}}this.__name__=e;this.__fn__=t}au.defmacro=function(e,t,r,n){var i=new au(e,t,r,n);i.__defmacro__=true;return i};au.prototype.invoke=function(e,t,r){var n=t.env,i=t.dynamic_scope,u=t.error;var a={dynamic_scope:i,error:u,macro_expand:r};var o=this.__fn__.call(n,e,a,this.__name__);return o};au.prototype.toString=function(){return"#")};var ou="define-macro";var su=-1e4;function cu(c){return function(){var r=O(j.mark(function e(r,y){var u,g,n,i,a,b,w,D,E,A,F,x,o,C,s;return j.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:s=function e(){s=O(j.mark(function e(r,n,i){var u,a,o,s,c,f,l,h,p,_,d,v,m;return j.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:if(!(r instanceof Ni&&r.car instanceof Ln)){t.next=50;break}if(!r[Pu]){t.next=3;break}return t.abrupt("return",r);case 3:u=r.car.valueOf();a=i.get(r.car,{throwError:false});o=b(r.car);s=o||w(a,r)||D(a);if(!(s&&r.cdr.car instanceof Ni)){t.next=28;break}if(!o){t.next=15;break}g=A(r.cdr.car);t.next=12;return x(r.cdr.car,n);case 12:c=t.sent;t.next=17;break;case 15:g=E(r.cdr.car);c=r.cdr.car;case 17:t.t0=Ni;t.t1=r.car;t.t2=Ni;t.t3=c;t.next=23;return C(r.cdr.cdr,n,i);case 23:t.t4=t.sent;t.t5=new t.t2(t.t3,t.t4);return t.abrupt("return",new t.t0(t.t1,t.t5));case 28:if(!F(u,a)){t.next=50;break}f=a instanceof fu?r:r.cdr;t.next=32;return a.invoke(f,Br(Br({},y),{},{env:i}),true);case 32:l=t.sent;if(!(a instanceof fu)){t.next=41;break}h=l,p=h.expr,_=h.scope;if(!(p instanceof Ni)){t.next=40;break}if(!(n!==-1&&n<=1||n")}return"#"};fu.className="syntax";var lu=function(e){u(r,e);var t=Fr(r);function r(){y(this,r);return t.apply(this,arguments)}return r}(fu);fu.Parameter=lu;function hu(e,t,w,D){var r=arguments.length>4&&arguments[4]!==undefined?arguments[4]:{};var E={"...":{symbols:{},lists:[]},symbols:{}};var A=r.expansion,F=r.define;function x(e){if(Mr()){console.log(e)}}x(w);function C(e,t){var r=arguments.length>2&&arguments[2]!==undefined?arguments[2]:[];var n=arguments.length>3&&arguments[3]!==undefined?arguments[3]:false;x({code:t&&Zi(t,true),pattern:e&&Zi(e,true)});if(iu(e)&&!(e instanceof Ln)){return nu(e,t)}if(e instanceof Ln&&w.includes(e.literal())){var i=A.ref(t);if(Ln.is(t,e)){if(typeof i==="undefined"){return true}return i===F||i===io}return false}if(e instanceof Ni&&e.car instanceof Ni&&e.car.cdr instanceof Ni&&Ln.is(e.car.cdr.car,D)){x(">> 0");if(t===Pi){x({pattern:e.toString()});if(e.car.car instanceof Ln){if(e.car.cdr instanceof Ni&&Ln.is(e.car.cdr.car,D)){var u=e.car.car.valueOf();var a=e.last_pair();if(Ln.is(a.car,D)){E["..."].symbols[u]=null;return true}else{return false}}var o=e.car.car.valueOf();if(E["..."].symbols[o]){throw new Error("syntax: named ellipsis can only "+"appear onces")}E["..."].symbols[o]=t}}}if(e instanceof Ni&&e.cdr instanceof Ni&&Ln.is(e.cdr.car,D)){if(e.cdr.cdr!==Pi){if(e.cdr.cdr instanceof Ni){var s=e.cdr.cdr.length();var c=t.length();var f=t;while(c-1>s){f=f.cdr;c--}var l=f.cdr;f.cdr=Pi;if(!C(e.cdr.cdr,l,r,n)){return false}}}if(e.car instanceof Ln){var h=e.car.__name__;if(E["..."].symbols[h]&&!r.includes(h)&&!n){throw new Error("syntax: named ellipsis can only appear onces")}x(">> 1");if(t===Pi){x(">> 2");if(n){x("NIL");E["..."].symbols[h]=Pi}else{x("NULL");E["..."].symbols[h]=null}}else if(t instanceof Ni&&(t.car instanceof Ni||t.car===Pi)){x(">> 3 "+n);if(n){if(E["..."].symbols[h]){var p=E["..."].symbols[h];if(p===Pi){p=new Ni(Pi,new Ni(t,Pi))}else{p=p.append(new Ni(t,Pi))}E["..."].symbols[h]=p}else{E["..."].symbols[h]=new Ni(t,Pi)}}else{x(">> 4");E["..."].symbols[h]=new Ni(t,Pi)}}else{x(">> 6");if(t instanceof Ni){x(">> 7 "+n);r.push(h);if(!E["..."].symbols[h]){E["..."].symbols[h]=new Ni(t,Pi)}else{var _=E["..."].symbols[h];E["..."].symbols[h]=_.append(new Ni(t,Pi))}x({IIIIII:E["..."].symbols[h].toString()})}else{x(">> 8");return false}}return true}else if(e.car instanceof Ni){var d=k(r);if(t===Pi){x(">> 9");E["..."].lists.push(Pi);return true}x(">> 10");var v=t;while(v instanceof Ni){if(!C(e.car,v.car,d,true)){return false}v=v.cdr}return true}return false}if(e instanceof Ln){if(Ln.is(e,D)){throw new Error("syntax: invalid usage of ellipsis")}x(">> 11");var m=e.__name__;if(w.includes(m)){return true}x({name:m,ellipsis:n});if(n){E["..."].symbols[m]=E["..."].symbols[m]||[];E["..."].symbols[m].push(t)}E.symbols[m]=t;if(!E.symbols[m]);return true}if(e instanceof Ni&&t instanceof Ni){x(">> 12");x({a:12,code:t&&t.toString(),pattern:e.toString()});if(t.cdr===Pi){var y=e.car instanceof Ln&&e.cdr instanceof Ln;if(y){if(!C(e.car,t.car,r,n)){return false}x(">> 12 | 1");var g=e.cdr.valueOf();if(!(g in E.symbols)){E.symbols[g]=Pi}g=e.car.valueOf();if(!(g in E.symbols)){E.symbols[g]=t.car}return true}}x({pattern:e.toString(),code:t.toString()});if(e.cdr instanceof Ni&&e.car instanceof Ln&&e.cdr.cdr instanceof Ni&&e.cdr.car instanceof Ln&&Ln.is(e.cdr.cdr.car,D)&&e.cdr.cdr.cdr instanceof Ni&&!Ln.is(e.cdr.cdr.cdr.car,D)&&C(e.car,t.car,r,n)&&C(e.cdr.cdr.cdr,t.cdr,r,n)){var b=e.cdr.car.__name__;x({pattern:e.car.toString(),code:t.car.toString(),name:b});if(w.includes(b)){return true}E["..."].symbols[b]=null;return true}x("recur");if(C(e.car,t.car,r,n)&&C(e.cdr,t.cdr,r,n)){return true}}else if(e===Pi&&(t===Pi||t===undefined)){return true}else if(e.car instanceof Ni&&Ln.is(e.car.car,D)){throw new Error("syntax: invalid usage of ellipsis")}else{return false}}if(C(e,t)){return E}}function pu(e,i){function u(t){if(t instanceof Ni){if(!i.length){return t}var e=u(t.car);var r=u(t.cdr);return new Ni(e,r)}else if(t instanceof Ln){var n=i.find(function(e){return e.gensym===t});if(n){return Ln(n.name)}return t}else{return t}}return u(e)}function _u(){var e=arguments.length>0&&arguments[0]!==undefined?arguments[0]:{};var O=e.bindings,t=e.expr,S=e.scope,a=e.symbols,c=e.names,B=e.ellipsis;var f={};function o(e){if(e instanceof Ln){return true}return["string","symbol"].includes(_(e))}function j(e){if(!o(e)){var t=Ao(e);throw new Error("syntax: internal error, need symbol got ".concat(t))}var r=e.valueOf();if(r===B){throw new Error("syntax: internal error, ellipis not transformed")}var n=_(r);if(["string","symbol"].includes(n)){if(r in O.symbols){return O.symbols[r]}else if(n==="string"&&r.match(/\./)){var i=r.split(".");var u=i[0];if(u in O.symbols){return Ni.fromArray([Ln("."),O.symbols[u]].concat(i.slice(1).map(function(e){return sa(e)})))}}}if(a.includes(r)){return Ln(r)}return s(r)}function I(e){if(Mr()){console.log(e)}}function s(e){if(!f[e]){var t=S.ref(e);var r=Mn(e);if(t){var n=S.get(e);S.set(r,n)}else{var i=S.get(e,{throwError:false});if(typeof i!=="undefined"){S.set(r,i)}}c.push({name:e,gensym:r});f[e]=r;if(typeof e==="string"&&e.match(/\./)){var u=e.split(".").filter(Boolean),a=h(u),o=a[0],s=a.slice(1);if(f[o]){$u(r,"__object__",[f[o]].concat(k(s)))}}}return f[e]}function P(e,t,r){var n=arguments.length>3&&arguments[3]!==undefined?arguments[3]:function(){};var i=r.nested;I(" ==> "+e.toString(true));I(t);if(e instanceof Ln){var u=e.valueOf();I("[t 1");if(t[u]){if(t[u]instanceof Ni){var a=t[u],o=a.car,s=a.cdr;if(i){var c=o.car,f=o.cdr;if(f!==Pi){n(u,new Ni(f,Pi))}return c}if(s!==Pi){n(u,s)}return o}else if(t[u]instanceof Array){n(u,t[u].slice(1));return t[u][0]}}return j(u)}if(e instanceof Ni){if(e.car instanceof Ln&&e.cdr instanceof Ni&&Ln.is(e.cdr.car,B)){I("[t 2");var l=e.car.valueOf();var h=t[l];I({expr:e.toString(true),name:l,bindings:t,item:h});if(h===null){return}else if(h){I({b:t[l].toString()});if(h instanceof Ni){I("[t 2 Pair "+i);I({______:h.toString()});var p=h.car,_=h.cdr;if(i){if(_!==Pi){I("|| next 1");n(l,_)}I({car:p.toString()});return p}else{if(p.cdr!==Pi){I("|| next 2");n(l,new Ni(p.cdr,_))}I({car:p.car.toString()});return p.car}}else if(h instanceof Array){I("[t 2 Array "+i);if(i){n(l,h.slice(1));return Ni.fromArray(h)}else{var d=h.slice(1);if(d.length){n(l,d)}return h[0]}}else{return h}}}I("[t 3 recur "+e.toString());var v=P(e.car,t,r,n);var m=P(e.cdr,t,r,n);return new Ni(v,m)}return e}function N(t,r){var e=Object.values(t);var n=Object.getOwnPropertySymbols(t);if(n.length){e.push.apply(e,k(n.map(function(e){return t[e]})))}return e.length&&e.every(function(e){if(e===null){return!r}return e instanceof Ni||e===Pi||e instanceof Array&&e.length})}function R(e){return Object.keys(e).concat(Object.getOwnPropertySymbols(e))}function T(i){var e=arguments.length>1&&arguments[1]!==undefined?arguments[1]:{},t=e.disabled;I("traverse>> "+i.toString());if(i instanceof Ni){if(!t&&i.car instanceof Ni&&Ln.is(i.car.car,B)){return T(i.car.cdr,{disabled:true})}if(i.cdr instanceof Ni&&Ln.is(i.cdr.car,B)&&!t){I(">> 1");var r=O["..."].symbols;var n=Object.values(r);if(n.length&&n.every(function(e){return e===null})){return T(i.cdr.cdr,{disabled:t})}var u=R(r);var a=i.car instanceof Ln&&Ln.is(i.cdr.cdr.car,B);if(i.car instanceof Ni||a){if(O["..."].lists[0]===Pi){return Pi}var o=i.car;if(a){o=new Ni(i.car,new Ni(i.cdr.car,Pi))}I(">> 2");var s;if(u.length){I(">> 2 (a)");var c=Br({},r);s=Pi;var f=function e(){if(!N(c)){return"break"}var n={};var t=function e(t,r){n[t]=r};var r=P(o,c,{nested:true},t);if(r!==undefined){if(a){if(s===Pi){s=r}else{s=s.append(r)}}else{s=new Ni(r,s)}}c=n};while(true){var l=f();if(l==="break")break}if(s!==Pi&&!a){s=s.reverse()}if(i.cdr.cdr!==Pi&&!Ln.is(i.cdr.cdr.car,B)){var h=T(i.cdr.cdr,{disabled:t});return s.append(h)}return s}else{I(">> 3");var p=P(i.car,r,{nested:true});if(p){return new Ni(p,Pi)}return Pi}}else if(i.car instanceof Ln){I(">> 4");if(Ln.is(i.cdr.cdr.car,B)){I(">> 4 (a)")}else{I(">> 4 (b)")}var _=i.car.__name__;var d=L({},_,r[_]);var v=r[_]===null;var m=Pi;var y=function e(){if(!N(d,true)){I({bind:d});return"break"}var n={};var t=function e(t,r){n[t]=r};var r=P(i,d,{nested:false},t);I({value:r.toString()});if(typeof r!=="undefined"){m=new Ni(r,m)}d=n};while(true){var g=y();if(g==="break")break}if(m!==Pi){m=m.reverse()}if(i.cdr instanceof Ni){if(i.cdr.cdr instanceof Ni||i.cdr.cdr instanceof Ln){var b=T(i.cdr.cdr,{disabled:t});if(v){return b}I("<<<< 1");m.append(b)}}I("<<<< 2");return m}}var w=T(i.car,{disabled:t});var D;var E;if(i.car instanceof Ln){var A=S.get(i.car,{throwError:false});E=A instanceof au&&A.__name__==="syntax-rules"}if(E){if(i.cdr.car instanceof Ln){D=new Ni(T(i.cdr.car,{disabled:t}),new Ni(i.cdr.cdr.car,T(i.cdr.cdr.cdr,{disabled:t})))}else{D=new Ni(i.cdr.car,T(i.cdr.cdr,{disabled:t}))}I("REST >>>> "+D.toString())}else{D=T(i.cdr,{disabled:t})}I({a:true,car:Zi(i.car),cdr:Zi(i.cdr),head:Zi(w),rest:Zi(D)});return new Ni(w,D)}if(i instanceof Ln){if(t&&Ln.is(i,B)){return i}var F=Object.keys(O["..."].symbols);var x=i.literal();if(F.includes(x)){var C="missing ellipsis symbol next to name `".concat(x,"'");throw new Error("syntax-rules: ".concat(C))}var k=j(i);if(typeof k!=="undefined"){return k}}return i}return T(t,{})}function du(e){return bu(e)||e===Pi||e===null}function vu(e){return typeof e==="function"&&typeof e.bind==="function"}function mu(e){return e instanceof Bo}function yu(e){return vu(e)||mu(e)}function gu(e){if(e instanceof Yn){return false}if(e instanceof Promise){return true}return e&&vu(e.then)}function bu(e){return typeof e==="undefined"}function wu(e){switch(_(e)){case"string":return sa(e);case"bigint":return da(e);case"number":if(Number.isNaN(e)){return ro}else{return da(e)}}return e}function Du(n,i){var e=Object.getOwnPropertyNames(n);var t=Object.getOwnPropertySymbols(n);e.concat(t).forEach(function(e){var t=i(n[e]);var r=Object.getOwnPropertyDescriptor(n,e);if(!r||r.writable&&n[e]!==t){n[e]=t}});return n}function Eu(t){var e=[sa,oa,da].some(function(e){return t instanceof e});if(e){return t.valueOf()}if(t instanceof Array){return t.map(Eu)}if(t instanceof Yn){delete t.then}if(Li(t)){return Du(t,Eu)}return t}function Au(e,t){if(e instanceof Ni){e.markCycles();return Qa(e)}if(vu(e)){if(t){return xu(e,t)}}return wu(e)}function Fu(e){if(ku(e)){return e[Iu]}return e}function xu(e,t){if(e[Symbol["for"]("__bound__")]){return e}var r=e.bind(t);var n=Object.getOwnPropertyNames(e);var i=Cr(n),u;try{for(i.s();!(u=i.n()).done;){var a=u.value;if(Yu(a)){try{r[a]=e[a]}catch(e){}}}}catch(e){i.e(e)}finally{i.f()}$u(r,"__fn__",e);$u(r,"__context__",t);$u(r,"__bound__",true);if(Hu(e)){$u(r,"__native__",true)}if(Li(t)&&Vu(e)){$u(r,"__method__",true)}r.valueOf=function(){return e};return r}function Cu(e){return ku(e)&&e[Symbol["for"]("__context__")]===Object}function ku(e){return!!(vu(e)&&e[Iu])}function Ou(e){if(vu(e)){var t=e[ju];if(t&&(t===ps||t.constructor&&t.constructor.__class__)){return true}}return false}function Su(e){return e instanceof Sa||e instanceof Ba}function Bu(e){if(vu(e)){if(Su(e[ju])){return true}}return false}var ju=Symbol["for"]("__context__");var Iu=Symbol["for"]("__fn__");var Pu=Symbol["for"]("__data__");var Nu=Symbol["for"]("__ref__");var Ru=Symbol["for"]("__cycles__");var Tu=Symbol["for"]("__class__");var Lu=Symbol["for"]("__method__");var Uu=Symbol["for"]("__prototype__");var qu=Symbol["for"]("__lambda__");var Mu=["name","length","caller","callee","arguments","prototype"];function Yu(e){return!Mu.includes(e)}function $u(e,t,r){Object.defineProperty(e,Symbol["for"](t),{get:function e(){return r},set:function e(){},configurable:false,enumerable:false})}function zu(t,r){try{Object.defineProperty(t,"length",{get:function e(){return r}});return t}catch(e){var n=new Array(r).fill(0).map(function(e,t){return"a"+t}).join(",");var i=new Function("f","return function(".concat(n,") {\n return f.apply(this, arguments);\n };"));return i(t)}}function Vu(e){return e&&e[qu]}function Ju(e){return e&&e[Lu]}function Gu(e){return Vu(e)&&!e[Uu]&&!Ju(e)&&!Bu(e)}function Hu(e){var t=Symbol["for"]("__native__");return vu(e)&&e.toString().match(/\{\s*\[native code\]\s*\}/)&&(e.name.match(/^bound /)&&e[t]===true||!e.name.match(/^bound /)&&!e[t])}function Wu(e){var g;switch(e){case Symbol["for"]("letrec"):g="letrec";break;case Symbol["for"]("let"):g="let";break;case Symbol["for"]("let*"):g="let*";break;default:throw new Error("Invalid let_macro value")}return au.defmacro(g,function(t,e){var f=e.dynamic_scope,l=e.error,r=e.macro_expand;var h;if(t.car instanceof Ln){if(!(t.cdr.car instanceof Ni||t.cdr.car===Pi)){throw new Error("let require list of pairs")}var n;if(t.cdr.car===Pi){h=Pi;n=Pi}else{n=t.cdr.car.map(function(e){return e.car});h=t.cdr.car.map(function(e){return e.cdr.car})}return Ni.fromArray([Ln("letrec"),[[t.car,Ni(Ln("lambda"),Ni(n,t.cdr.cdr))]],Ni(t.car,h)])}else if(r){return}var p=this;h=io.get("list->array")(t.car);var _=p.inherit(g);var d,v;if(g==="let*"){v=_}else if(g==="let"){d=[]}var m=0;function y(){var e=new Ni(new Ln("begin"),t.cdr);return Io(e,{env:_,dynamic_scope:f,error:l})}return function t(){var r=h[m++];if(f){f=g==="let*"?_:p}if(!r){if(d&&d.length){var e=d.map(function(e){return e.value});var n=e.filter(gu);if(n.length){return $n(e).then(function(e){for(var t=0,r=e.length;t1&&arguments[1]!==undefined?arguments[1]:{},r=t.dynamic_scope,n=t.error;var i=this;if(r){r=this}var u=e;var a=[];while(u instanceof Ni){a.push(Io(u.car,{env:i,dynamic_scope:r,error:n}));u=u.cdr}var o=a.filter(gu).length;if(o){return $n(a).then(s.bind(this))}else{return s.call(this,a)}})}function Zu(e){for(var t=arguments.length,r=new Array(t>1?t-1:0),n=1;n2?n-2:0),u=2;u1&&arguments[1]!==undefined?arguments[1]:null;return function(){for(var e=arguments.length,t=new Array(e),r=0;r1?e-1:0),r=1;r=a){return u.apply(this,n)}else{return i}}return i.apply(this,arguments)}}function aa(n,i){yo("limit",i,"function",2);return function(){for(var e=arguments.length,t=new Array(e),r=0;r1){e=e.toLowerCase();if(oa.__names__[e]){t=e;e=oa.__names__[e]}else{throw new Error("Internal: Unknown named character")}}else{t=oa.__rev_names__[e]}Object.defineProperty(this,"__char__",{value:e,enumerable:true});if(t){Object.defineProperty(this,"__name__",{value:t,enumerable:true})}}oa.__names__=Kr;oa.__rev_names__={};Object.keys(oa.__names__).forEach(function(e){var t=oa.__names__[e];oa.__rev_names__[t]=e});oa.prototype.toUpperCase=function(){return oa(this.__char__.toUpperCase())};oa.prototype.toLowerCase=function(){return oa(this.__char__.toLowerCase())};oa.prototype.toString=function(){return"#\\"+(this.__name__||this.__char__)};oa.prototype.valueOf=oa.prototype.serialize=function(){return this.__char__};function sa(e){if(typeof this!=="undefined"&&!(this instanceof sa)||typeof this==="undefined"){return new sa(e)}if(e instanceof Array){this.__string__=e.map(function(e,t){yo("LString",e,"character",t+1);return e.toString()}).join("")}else{this.__string__=e.valueOf()}}{var ca=["length","constructor"];var fa=Object.getOwnPropertyNames(String.prototype).filter(function(e){return!ca.includes(e)});var la=function e(n){return function(){for(var e=arguments.length,t=new Array(e),r=0;r0){r.push(this.__string__.substring(0,e))}r.push(t);if(e1&&arguments[1]!==undefined?arguments[1]:false;if(e instanceof da){return e}if(typeof this!=="undefined"&&!(this instanceof da)||typeof this==="undefined"){return new da(e,t)}if(typeof e==="undefined"){throw new Error("Invalid LNumber constructor call")}var r=da.getType(e);if(da.types[r]){return da.types[r](e,t)}var n=e instanceof Array&&sa.isString(e[0])&&da.isNumber(e[1]);if(e instanceof da){return da(e.value)}if(!da.isNumber(e)&&!n){throw new Error("You can't create LNumber from ".concat(Ao(e)))}if(e===null){e=0}var i;if(n){var u=e,a=A(u,2),o=a[0],s=a[1];if(o instanceof sa){o=o.valueOf()}if(s instanceof da){s=s.valueOf()}var c=o.match(/^([+-])/);var f=false;if(c){o=o.replace(/^[+-]/,"");if(c[1]==="-"){f=true}}}if(Number.isNaN(e)){return Ea(e)}else if(typeof BigInt!=="undefined"){if(typeof e!=="bigint"){if(n){var l;switch(s){case 8:l="0o";break;case 16:l="0x";break;case 2:l="0b";break;case 10:l="";break}if(typeof l==="undefined"){var h=BigInt(s);i=k(o).map(function(e,t){return BigInt(parseInt(e,s))*ba(h,BigInt(t))}).reduce(function(e,t){return e+t})}else{i=BigInt(l+o)}}else{i=BigInt(e)}if(f){i*=BigInt(-1)}}else{i=e}return Oa(i,true)}else if(typeof Lr!=="undefined"&&!(e instanceof Lr)){if(e instanceof Array){return Oa(p(Lr,k(e)))}return Oa(new Lr(e))}else if(n){this.constant(parseInt(o,s),"integer")}else{this.constant(e,"integer")}}da.prototype.constant=function(e,t){Object.defineProperty(this,"__value__",{value:e,enumerable:true});Object.defineProperty(this,"__type__",{value:t,enumerable:true})};da.types={float:function e(t){var r=arguments.length>1&&arguments[1]!==undefined?arguments[1]:false;return new Ea(t,r)},complex:function e(t){var r=arguments.length>1&&arguments[1]!==undefined?arguments[1]:false;if(!da.isComplex(t)){t={im:0,re:t}}return new Da(t,r)},rational:function e(t){var r=arguments.length>1&&arguments[1]!==undefined?arguments[1]:false;if(!da.isRational(t)){t={num:t,denom:1}}return new ka(t,r)}};da.prototype.serialize=function(){return this.__value__};da.prototype.isNaN=function(){return Number.isNaN(this.__value__)};da.prototype.gcd=function(e){var t=this.abs();e=e.abs();if(e.cmp(t)===1){var r=t;t=e;e=r}while(true){t=t.rem(e);if(t.cmp(0)===0){return e}e=e.rem(t);if(e.cmp(0)===0){return t}}};da.isFloat=function e(t){return t instanceof Ea||Number(t)===t&&t%1!==0};da.isNumber=function(e){return e instanceof da||da.isNative(e)||da.isBN(e)};da.isComplex=function(e){if(!e){return false}var t=e instanceof Da||(da.isNumber(e.im)||Number.isNaN(e.im))&&(da.isNumber(e.re)||Number.isNaN(e.re));return t};da.isRational=function(e){if(!e){return false}return e instanceof ka||da.isNumber(e.num)&&da.isNumber(e.denom)};da.isInteger=function(e){if(!(da.isNative(e)||e instanceof da)){return false}if(da.isFloat(e)){return false}if(da.isRational(e)){return false}if(da.isComplex(e)){return false}return true};da.isNative=function(e){return typeof e==="bigint"||typeof e==="number"};da.isBigInteger=function(e){return e instanceof Oa||typeof e==="bigint"||da.isBN(e)};da.isBN=function(e){return typeof Lr!=="undefined"&&e instanceof Lr};da.getArgsType=function(e,t){if(e instanceof Ea||t instanceof Ea){return Ea}if(e instanceof Oa||t instanceof Oa){return Oa}return da};da.prototype.toString=function(e){if(Number.isNaN(this.__value__)){return"+nan.0"}if(e>2&&e<36){return this.__value__.toString(e)}return this.__value__.toString()};da.prototype.asType=function(e){var t=da.getType(this);return da.types[t]?da.types[t](e):da(e)};da.prototype.isBigNumber=function(){return typeof this.__value__==="bigint"||typeof Lr!=="undefined"&&!(this.value instanceof Lr)};["floor","ceil","round"].forEach(function(e){da.prototype[e]=function(){if(this["float"]||da.isFloat(this.__value__)){return da(Math[e](this.__value__))}else{return da(Math[e](this.valueOf()))}}});da.prototype.valueOf=function(){if(da.isNative(this.__value__)){return Number(this.__value__)}else if(da.isBN(this.__value__)){return this.__value__.toNumber()}};var va=function(){var e=function e(t,r){return[t,r]};return{bigint:{bigint:e,float:function e(t,r){return[Ea(t.valueOf()),r]},rational:function e(t,r){return[{num:t,denom:1},r]},complex:function e(t,r){return[{im:0,re:t},r]}},integer:{integer:e,float:function e(t,r){return[Ea(t.valueOf()),r]},rational:function e(t,r){return[{num:t,denom:1},r]},complex:function e(t,r){return[{im:0,re:t},r]}},float:{bigint:function e(t,r){return[t,r&&Ea(r.valueOf())]},integer:function e(t,r){return[t,r&&Ea(r.valueOf())]},float:e,rational:function e(t,r){return[t,r&&Ea(r.valueOf())]},complex:function e(t,r){return[{re:t,im:Ea(0)},r]}},complex:{bigint:t("bigint"),integer:t("integer"),float:t("float"),rational:t("rational"),complex:function e(t,r){var n=da.coerce(t.__re__,r.__re__),i=A(n,2),u=i[0],a=i[1];var o=da.coerce(t.__im__,r.__im__),s=A(o,2),c=s[0],f=s[1];return[{im:c,re:u},{im:f,re:a}]}},rational:{bigint:function e(t,r){return[t,r&&{num:r,denom:1}]},integer:function e(t,r){return[t,r&&{num:r,denom:1}]},float:function e(t,r){return[Ea(t.valueOf()),r]},rational:e,complex:function e(t,r){return[{im:ma(t.__type__,r.__im__.__type__,0)[0],re:ma(t.__type__,r.__re__.__type__,t)[0]},{im:ma(t.__type__,r.__im__.__type__,r.__im__)[0],re:ma(t.__type__,r.__re__.__type__,r.__re__)[0]}]}}};function t(r){return function(e,t){return[{im:ma(r,e.__im__.__type__,0,e.__im__)[1],re:ma(r,e.__re__.__type__,0,e.__re__)[1]},{im:ma(r,e.__im__.__type__,0,0)[1],re:ma(r,t.__type__,0,t)[1]}]}}}();function ma(e,t,r,n){return va[e][t](r,n)}da.coerce=function(e,t){var r=da.getType(e);var n=da.getType(t);if(!va[r]){throw new Error("LNumber::coerce unknown lhs type ".concat(r))}else if(!va[r][n]){throw new Error("LNumber::coerce unknown rhs type ".concat(n))}var i=va[r][n](e,t);return i.map(function(e){return da(e,true)})};da.prototype.coerce=function(e){if(!(typeof e==="number"||e instanceof da)){throw new Error("LNumber: you can't coerce ".concat(Ao(e)))}if(typeof e==="number"){e=da(e)}return da.coerce(this,e)};da.getType=function(e){if(e instanceof da){return e.__type__}if(da.isFloat(e)){return"float"}if(da.isComplex(e)){return"complex"}if(da.isRational(e)){return"rational"}if(typeof e==="number"){return"integer"}if(typeof BigInt!=="undefined"&&typeof e!=="bigint"||typeof Lr!=="undefined"&&!(e instanceof Lr)){return"bigint"}};da.prototype.isFloat=function(){return!!(da.isFloat(this.__value__)||this["float"])};var ya={add:"+",sub:"-",mul:"*",div:"/",rem:"%",or:"|",and:"&",neg:"~",shl:">>",shr:"<<"};var ga={};Object.keys(ya).forEach(function(t){ga[ya[t]]=t;da.prototype[t]=function(e){return this.op(ya[t],e)}});da._ops={"*":function e(t,r){return t*r},"+":function e(t,r){return t+r},"-":function e(t,r){if(typeof r==="undefined"){return-t}return t-r},"/":function e(t,r){return t/r},"%":function e(t,r){return t%r},"|":function e(t,r){return t|r},"&":function e(t,r){return t&r},"~":function e(t){return~t},">>":function e(t,r){return t>>r},"<<":function e(t,r){return t<1&&arguments[1]!==undefined?arguments[1]:false;if(typeof this!=="undefined"&&!(this instanceof Da)||typeof this==="undefined"){return new Da(e,t)}if(e instanceof Da){return Da({im:e.__im__,re:e.__re__})}if(da.isNumber(e)&&t){if(!t){return Number(e)}}else if(!da.isComplex(e)){throw new Error("Invalid constructor call for LComplex")}var r=e.im instanceof da?e.im:da(e.im);var n=e.re instanceof da?e.re:da(e.re);this.constant(r,n)}Da.prototype=Object.create(da.prototype);Da.prototype.constructor=Da;Da.prototype.constant=function(e,t){Object.defineProperty(this,"__im__",{value:e,enumerable:true});Object.defineProperty(this,"__re__",{value:t,enumerable:true});Object.defineProperty(this,"__type__",{value:"complex",enumerable:true})};Da.prototype.serialize=function(){return{re:this.__re__,im:this.__im__}};Da.prototype.toRational=function(e){if(da.isFloat(this.__im__)&&da.isFloat(this.__re__)){var t=Ea(this.__im__).toRational(e);var r=Ea(this.__re__).toRational(e);return Da({im:t,re:r})}return this};Da.prototype.add=function(e){return this.complex_op("add",e,function(e,t,r,n){return{re:e.add(t),im:r.add(n)}})};Da.prototype.factor=function(){if(this.__im__ instanceof Ea||this.__im__ instanceof Ea){var e=this.__re__,t=this.__im__;var r,n;if(e instanceof Ea){r=e.toRational().mul(e.toRational())}else{r=e.mul(e)}if(t instanceof Ea){n=t.toRational().mul(t.toRational())}else{n=t.mul(t)}return r.add(n)}else{return this.__re__.mul(this.__re__).add(this.__im__.mul(this.__im__))}};Da.prototype.modulus=function(){return this.factor().sqrt()};Da.prototype.conjugate=function(){return Da({re:this.__re__,im:this.__im__.sub()})};Da.prototype.sqrt=function(){var e=this.modulus();var t,r;if(e.cmp(0)===0){t=r=e}else if(this.__re__.cmp(0)===1){t=Ea(.5).mul(e.add(this.__re__)).sqrt();r=this.__im__.div(t).div(2)}else{r=Ea(.5).mul(e.sub(this.__re__)).sqrt();if(this.__im__.cmp(0)===-1){r=r.sub()}t=this.__im__.div(r).div(2)}return Da({im:r,re:t})};Da.prototype.div=function(e){if(da.isNumber(e)&&!da.isComplex(e)){if(!(e instanceof da)){e=da(e)}var t=this.__re__.div(e);var r=this.__im__.div(e);return Da({re:t,im:r})}else if(!da.isComplex(e)){throw new Error("[LComplex::div] Invalid value")}var n=this.coerce(e),i=A(n,2),u=i[0],a=i[1];var o=a.factor();var s=u.mul(a.conjugate());var c=s.__re__.op("/",o);var f=s.__im__.op("/",o);return Da({re:c,im:f})};Da.prototype.sub=function(e){return this.complex_op("sub",e,function(e,t,r,n){return{re:e.sub(t),im:r.sub(n)}})};Da.prototype.mul=function(e){return this.complex_op("mul",e,function(e,t,r,n){var i={re:e.mul(t).sub(r.mul(n)),im:e.mul(n).add(t.mul(r))};return i})};Da.prototype.complex_op=function(e,t,i){var u=this;var r=function e(t,r){var n=i(u.__re__,t,u.__im__,r);if("im"in n&&"re"in n){if(n.im.cmp(0)===0&&!da.isFloat(n.im)){return n.re}return Da(n,true)}return n};if(typeof t==="undefined"){return r()}if(da.isNumber(t)&&!da.isComplex(t)){if(!(t instanceof da)){t=da(t)}var n=t.asType(0);t={__im__:n,__re__:t}}else if(!da.isComplex(t)){throw new Error("[LComplex::".concat(e,"] Invalid value"))}var a=t.__re__ instanceof da?t.__re__:this.__re__.asType(t.__re__);var o=t.__im__ instanceof da?t.__im__:this.__im__.asType(t.__im__);return r(a,o)};Da._op={"+":"add","-":"sub","*":"mul","/":"div"};Da.prototype._op=function(e,t){var r=Da._op[e];return this[r](t)};Da.prototype.cmp=function(e){var t=this.coerce(e),r=A(t,2),n=r[0],i=r[1];var u=n.__re__.coerce(i.__re__),a=A(u,2),o=a[0],s=a[1];var c=o.cmp(s);if(c!==0){return c}else{var f=n.__im__.coerce(i.__im__),l=A(f,2),h=l[0],p=l[1];return h.cmp(p)}};Da.prototype.valueOf=function(){return[this.__re__,this.__im__].map(function(e){return e.valueOf()})};Da.prototype.toString=function(){var e;if(this.__re__.cmp(0)!==0){e=[Zi(this.__re__)]}else{e=[]}var t=this.__im__.valueOf();var r=[Number.NEGATIVE_INFINITY,Number.POSITIVE_INFINITY].includes(t);var n=Zi(this.__im__);if(!r&&!Number.isNaN(t)){var i=this.__im__.cmp(0);if(i<0||i===0&&this.__im__._minus){e.push("-")}else{e.push("+")}n=n.replace(/^-/,"")}e.push(n);e.push("i");return e.join("")};function Ea(e){if(typeof this!=="undefined"&&!(this instanceof Ea)||typeof this==="undefined"){return new Ea(e)}if(!da.isNumber(e)){throw new Error("Invalid constructor call for LFloat")}if(e instanceof da){return Ea(e.valueOf())}if(typeof e==="number"){if(Object.is(e,-0)){Object.defineProperty(this,"_minus",{value:true})}this.constant(e,"float")}}Ea.prototype=Object.create(da.prototype);Ea.prototype.constructor=Ea;Ea.prototype.toString=function(){if(this.__value__===Number.NEGATIVE_INFINITY){return"-inf.0"}if(this.__value__===Number.POSITIVE_INFINITY){return"+inf.0"}if(Number.isNaN(this.__value__)){return"+nan.0"}var e=this.__value__.toString();if(!da.isFloat(this.__value__)&&!e.match(/e/i)){var t=e+".0";return this._minus?"-"+t:t}return e.replace(/^([0-9]+)e/,"$1.0e")};Ea.prototype._op=function(e,t){if(t instanceof da){t=t.__value__}var r=da._ops[e];if(e==="/"&&this.__value__===0&&t===0){return NaN}return Ea(r(this.__value__,t))};Ea.prototype.toRational=function(){var e=arguments.length>0&&arguments[0]!==undefined?arguments[0]:null;if(e===null){return Aa(this.__value__.valueOf())}return Fa(e.valueOf())(this.__value__.valueOf())};Ea.prototype.sqrt=function(){var e=this.valueOf();if(this.cmp(0)<0){var t=Ea(Math.sqrt(-e));return Da({re:0,im:t})}return Ea(Math.sqrt(e))};Ea.prototype.abs=function(){var e=this.valueOf();if(e<0){e=-e}return Ea(e)};var Aa=Fa(1e-10);function Fa(n){return function(e){var t=function e(n,t,r){var i=function e(t,r){return r0){i=Ca(n,r)}else if(n.cmp(r)<=0){i=r}else if(r.cmp(0)>0){i=Ca(r,n)}else if(t.cmp(0)<0){i=da(Ca(n.sub(),r.sub())).sub()}else{i=da(0)}if(da.isFloat(t)||da.isFloat(e)){return Ea(i)}return i}function Ca(e,t){var r=da(e).floor();var n=da(t).floor();if(e.cmp(r)<1){return r}else if(r.cmp(n)===0){var i=da(1).div(t.sub(n));var u=da(1).div(e.sub(r));return r.add(da(1).div(Ca(i,u)))}else{return r.add(da(1))}}function ka(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:false;if(typeof this!=="undefined"&&!(this instanceof ka)||typeof this==="undefined"){return new ka(e,t)}if(!da.isRational(e)){throw new Error("Invalid constructor call for LRational")}var r,n;if(e instanceof ka){r=da(e.__num__);n=da(e.__denom__)}else{r=da(e.num);n=da(e.denom)}if(!t&&n.cmp(0)!==0){var i=r.op("%",n).cmp(0)===0;if(i){return da(r.div(n))}}this.constant(r,n)}ka.prototype=Object.create(da.prototype);ka.prototype.constructor=ka;ka.prototype.constant=function(e,t){Object.defineProperty(this,"__num__",{value:e,enumerable:true});Object.defineProperty(this,"__denom__",{value:t,enumerable:true});Object.defineProperty(this,"__type__",{value:"rational",enumerable:true})};ka.prototype.serialize=function(){return{num:this.__num__,denom:this.__denom__}};ka.prototype.pow=function(e){var t=e.cmp(0);if(t===0){return da(1)}if(t===-1){e=e.sub();var r=this.__denom__.pow(e);var n=this.__num__.pow(e);return ka({num:r,denom:n})}var i=this;e=e.valueOf();while(e>1){i=i.mul(this);e--}return i};ka.prototype.sqrt=function(){var e=this.__num__.sqrt();var t=this.__denom__.sqrt();if(e instanceof Ea||t instanceof Ea){return e.div(t)}return ka({num:e,denom:t})};ka.prototype.abs=function(){var e=this.__num__;var t=this.__denom__;if(e.cmp(0)===-1){e=e.sub()}if(t.cmp(0)!==1){t=t.sub()}return ka({num:e,denom:t})};ka.prototype.cmp=function(e){return da(this.valueOf(),true).cmp(e)};ka.prototype.toString=function(){var e=this.__num__.gcd(this.__denom__);var t,r;if(e.cmp(1)!==0){t=this.__num__.div(e);if(t instanceof ka){t=da(t.valueOf(true))}r=this.__denom__.div(e);if(r instanceof ka){r=da(r.valueOf(true))}}else{t=this.__num__;r=this.__denom__}var n=this.cmp(0)<0;if(n){if(t.abs().cmp(r.abs())===0){return t.toString()}}else if(t.cmp(r)===0){return t.toString()}return t.toString()+"/"+r.toString()};ka.prototype.valueOf=function(e){if(this.__denom__.cmp(0)===0){if(this.__num__.cmp(0)<0){return Number.NEGATIVE_INFINITY}return Number.POSITIVE_INFINITY}if(e){return da._ops["/"](this.__num__.value,this.__denom__.value)}return Ea(this.__num__.valueOf()).div(this.__denom__.valueOf())};ka.prototype.mul=function(e){if(!(e instanceof da)){e=da(e)}if(da.isRational(e)){var t=this.__num__.mul(e.__num__);var r=this.__denom__.mul(e.__denom__);return ka({num:t,denom:r})}var n=da.coerce(this,e),i=A(n,2),u=i[0],a=i[1];return u.mul(a)};ka.prototype.div=function(e){if(!(e instanceof da)){e=da(e)}if(da.isRational(e)){var t=this.__num__.mul(e.__denom__);var r=this.__denom__.mul(e.__num__);return ka({num:t,denom:r})}var n=da.coerce(this,e),i=A(n,2),u=i[0],a=i[1];var o=u.div(a);return o};ka.prototype._op=function(e,t){return this[ga[e]](t)};ka.prototype.sub=function(e){if(typeof e==="undefined"){return this.mul(-1)}if(!(e instanceof da)){e=da(e)}if(da.isRational(e)){var t=e.__num__.sub();var r=e.__denom__;return this.add(ka({num:t,denom:r}))}if(!(e instanceof da)){e=da(e).sub()}else{e=e.sub()}var n=da.coerce(this,e),i=A(n,2),u=i[0],a=i[1];return u.add(a)};ka.prototype.add=function(e){if(!(e instanceof da)){e=da(e)}if(da.isRational(e)){var t=this.__denom__;var r=e.__denom__;var n=this.__num__;var i=e.__num__;var u,a;if(t!==r){a=r.mul(n).add(i.mul(t));u=t.mul(r)}else{a=n.add(i);u=t}return ka({num:a,denom:u})}if(da.isFloat(e)){return Ea(this.valueOf()).add(e)}var o=da.coerce(this,e),s=A(o,2),c=s[0],f=s[1];return c.add(f)};function Oa(e,t){if(typeof this!=="undefined"&&!(this instanceof Oa)||typeof this==="undefined"){return new Oa(e,t)}if(e instanceof Oa){return Oa(e.__value__,e._native)}if(!da.isBigInteger(e)){throw new Error("Invalid constructor call for LBigInteger")}this.constant(e,"bigint");Object.defineProperty(this,"_native",{value:t})}Oa.prototype=Object.create(da.prototype);Oa.prototype.constructor=Oa;Oa.bn_op={"+":"iadd","-":"isub","*":"imul","/":"idiv","%":"imod","|":"ior","&":"iand","~":"inot","<<":"ishrn",">>":"ishln"};Oa.prototype.serialize=function(){return this.__value__.toString()};Oa.prototype._op=function(e,t){if(typeof t==="undefined"){if(da.isBN(this.__value__)){e=Oa.bn_op[e];return Oa(this.__value__.clone()[e](),false)}return Oa(da._ops[e](this.__value__),true)}if(da.isBN(this.__value__)&&da.isBN(t.__value__)){e=Oa.bn_op[e];return Oa(this.__value__.clone()[e](t),false)}var r=da._ops[e](this.__value__,t.__value__);if(e==="/"){var n=this.op("%",t).cmp(0)===0;if(n){return da(r)}return ka({num:this,denom:t})}return Oa(r,true)};Oa.prototype.sqrt=function(){var e;var t=this.cmp(0)<0;if(da.isNative(this.__value__)){e=da(Math.sqrt(t?-this.valueOf():this.valueOf()))}else if(da.isBN(this.__value__)){e=t?this.__value__.neg().sqrt():this.__value__.sqrt()}if(t){return Da({re:0,im:e})}return e};da.NaN=da(NaN);function Sa(e){var n=this;if(typeof this!=="undefined"&&!(this instanceof Sa)||typeof this==="undefined"){return new Sa(e)}yo("InputPort",e,"function");ai(this,"__type__",Ya);var i;Object.defineProperty(this,"__parser__",{enumerable:true,get:function e(){return i},set:function e(t){yo("InputPort::__parser__",t,"parser");i=t}});this._read=e;this._with_parser=this._with_init_parser.bind(this,O(j.mark(function e(){var r;return j.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:if(n.char_ready()){t.next=5;break}t.next=3;return n._read();case 3:r=t.sent;i=new Xn(r,{env:n});case 5:return t.abrupt("return",n.__parser__);case 6:case"end":return t.stop()}}},e)})));this.char_ready=function(){return!!this.__parser__&&this.__parser__.__lexer__.peek()!==$a};this._make_defaults()}Sa.prototype._make_defaults=function(){this.read=this._with_parser(function(e){return e.read_object()});this.read_line=this._with_parser(function(e){return e.__lexer__.read_line()});this.read_char=this._with_parser(function(e){return e.__lexer__.read_char()});this.read_string=this._with_parser(function(e,t){if(!da.isInteger(t)){var r=da.getType(t);_o("read-string",r,"integer")}return e.__lexer__.read_string(t.valueOf())});this.peek_char=this._with_parser(function(e){return e.__lexer__.peek_char()})};Sa.prototype._with_init_parser=function(o,s){var c=this;return function(){var e=O(j.mark(function e(){var r,n,i,u,a=arguments;return j.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:t.next=2;return o.call(c);case 2:r=t.sent;for(n=a.length,i=new Array(n),u=0;u"};function Ba(e){if(typeof this!=="undefined"&&!(this instanceof Ba)||typeof this==="undefined"){return new Ba(e)}yo("OutputPort",e,"function");ai(this,"__type__",Ya);this.write=e}Ba.prototype.is_open=function(){return this._closed!==true};Ba.prototype.close=function(){Object.defineProperty(this,"_closed",{get:function e(){return true},set:function e(){},configurable:false,enumerable:false});this.write=function(){throw new Error("output-port: port is closed")}};Ba.prototype.flush=function(){};Ba.prototype.toString=function(){return"#"};var ja=function(e){u(n,e);var r=Fr(n);function n(e){var t;y(this,n);t=r.call(this,function(){var e;return(e=t)._write.apply(e,arguments)});yo("BufferedOutputPort",e,"function");ai(i(t),"_fn",e,{hidden:true});ai(i(t),"_buffer",[],{hidden:true});return t}b(n,[{key:"flush",value:function e(){if(this._buffer.length){this._fn(this._buffer.join(""));this._buffer.length=0}}},{key:"_write",value:function e(){var t=this;for(var r=arguments.length,n=new Array(r),i=0;i"};Ia.prototype.valueOf=function(){return this.__buffer__.map(function(e){return e.valueOf()}).join("")};function Pa(e,t){var r=this;if(typeof this!=="undefined"&&!(this instanceof Pa)||typeof this==="undefined"){return new Pa(e,t)}yo("OutputFilePort",e,"string");ai(this,"__filename__",e);ai(this,"_fd",t.valueOf(),{hidden:true});ai(this,"__type__",Ya);this.write=function(e){if(!sa.isString(e)){e=Zi(e)}else{e=e.valueOf()}r.fs().write(r._fd,e,function(e){if(e){throw e}})}}Pa.prototype=Object.create(Ba.prototype);Pa.prototype.constructor=Pa;Pa.prototype.fs=function(){if(!this._fs){this._fs=this.internal("fs")}return this._fs};Pa.prototype.internal=function(e){return uo.get("**internal-env**").get(e)};Pa.prototype.close=function(){var n=this;return new Promise(function(t,r){n.fs().close(n._fd,function(e){if(e){r(e)}else{ai(n,"_fd",null,{hidden:true});Ba.prototype.close.call(n);t()}})})};Pa.prototype.toString=function(){return"#")};function Na(e,t){var r=this;if(typeof this!=="undefined"&&!(this instanceof Na)||typeof this==="undefined"){return new Na(e)}yo("InputStringPort",e,"string");t=t||io;e=e.valueOf();this._with_parser=this._with_init_parser.bind(this,function(){if(!r.__parser__){r.__parser__=new Xn(e,{env:t})}return r.__parser__});ai(this,"__type__",Ya);this._make_defaults()}Na.prototype.char_ready=function(){return true};Na.prototype=Object.create(Sa.prototype);Na.prototype.constructor=Na;Na.prototype.toString=function(){return"#"};function Ra(e){if(typeof this!=="undefined"&&!(this instanceof Ra)||typeof this==="undefined"){return new Ra(e)}yo("InputByteVectorPort",e,"uint8array");ai(this,"__vector__",e);ai(this,"__type__",Ma);var r=0;Object.defineProperty(this,"__index__",{enumerable:true,get:function e(){return r},set:function e(t){yo("InputByteVectorPort::__index__",t,"number");if(t instanceof da){t=t.valueOf()}if(typeof t==="bigint"){t=Number(t)}if(Math.floor(t)!==t){throw new Error("InputByteVectorPort::__index__ value is "+"not integer")}r=t}})}Ra.prototype=Object.create(Sa.prototype);Ra.prototype.constructor=Ra;Ra.prototype.toString=function(){return"#"};Ra.prototype.close=function(){var t=this;ai(this,"__vector__",Pi);["read_u8","close","peek_u8","read_u8_vector"].forEach(function(e){t[e]=function(){throw new Error("Input-binary-port: port is closed")}});this.char_ready=function(){return false}};Ra.prototype.u8_ready=function(){return true};Ra.prototype.peek_u8=function(){if(this.__index__>=this.__vector__.length){return $a}return this.__vector__[this.__index__]};Ra.prototype.skip=function(){if(this.__index__<=this.__vector__.length){++this.__index__}};Ra.prototype.read_u8=function(){var e=this.peek_u8();this.skip();return e};Ra.prototype.read_u8_vector=function(e){if(typeof e==="undefined"){e=this.__vector__.length}else if(e>this.__index__+this.__vector__.length){e=this.__index__+this.__vector__.length}if(this.peek_u8()===$a){return $a}return this.__vector__.slice(this.__index__,e)};function Ta(){if(typeof this!=="undefined"&&!(this instanceof Ta)||typeof this==="undefined"){return new Ta}ai(this,"__type__",Ma);ai(this,"_buffer",[],{hidden:true});this.write=function(e){yo("write",e,["number","uint8array"]);if(da.isNumber(e)){this._buffer.push(e.valueOf())}else{var t;(t=this._buffer).push.apply(t,k(Array.from(e)))}};Object.defineProperty(this,"__buffer__",{enumerable:true,get:function e(){return Uint8Array.from(this._buffer)}})}Ta.prototype=Object.create(Ba.prototype);Ta.prototype.constructor=Ta;Ta.prototype.close=function(){Ba.prototype.close.call(this);ai(this,"_buffer",null,{hidden:true})};Ta.prototype._close_guard=function(){if(this._closed){throw new Error("output-port: binary port is closed")}};Ta.prototype.write_u8=function(e){yo("OutputByteVectorPort::write_u8",e,"number");this.write(e)};Ta.prototype.write_u8_vector=function(e){yo("OutputByteVectorPort::write_u8_vector",e,"uint8array");this.write(e)};Ta.prototype.toString=function(){return"#"};Ta.prototype.valueOf=function(){return this.__buffer__};function La(e,t){if(typeof this!=="undefined"&&!(this instanceof La)||typeof this==="undefined"){return new La(e,t)}Na.call(this,e);yo("InputFilePort",t,"string");ai(this,"__filename__",t)}La.prototype=Object.create(Na.prototype);La.prototype.constructor=La;La.prototype.toString=function(){return"#")};function Ua(e,t){if(typeof this!=="undefined"&&!(this instanceof Ua)||typeof this==="undefined"){return new Ua(e,t)}Ra.call(this,e);yo("InputBinaryFilePort",t,"string");ai(this,"__filename__",t)}Ua.prototype=Object.create(Ra.prototype);Ua.prototype.constructor=Ua;Ua.prototype.toString=function(){return"#")};function qa(e,t){if(typeof this!=="undefined"&&!(this instanceof qa)||typeof this==="undefined"){return new qa(e,t)}yo("OutputBinaryFilePort",e,"string");ai(this,"__filename__",e);ai(this,"_fd",t.valueOf(),{hidden:true});ai(this,"__type__",Ma);var u,r;this.write=function(e){var n=this;yo("write",e,["number","uint8array"]);var i;if(!u){u=this.internal("fs")}if(!r){r=this.internal("Buffer")}if(da.isNumber(e)){i=r.from([e.valueOf()])}else{i=r.from(Array.from(e))}return new Promise(function(t,r){u.write(n._fd,i,function(e){if(e){r(e)}else{t()}})})}}qa.prototype=Object.create(Pa.prototype);qa.prototype.constructor=qa;qa.prototype.write_u8=function(e){yo("OutputByteVectorPort::write_u8",e,"number");this.write(e)};qa.prototype.write_u8_vector=function(e){yo("OutputByteVectorPort::write_u8_vector",e,"uint8array");this.write(e)};var Ma=Symbol["for"]("binary");var Ya=Symbol["for"]("text");var $a=new za;function za(){}za.prototype.toString=function(){return"#"};function Va(e){var t=this;var r=arguments.length>1&&arguments[1]!==undefined?arguments[1]:{},n=r.stderr,i=r.stdin,u=r.stdout,a=r.command_line,o=a===void 0?null:a,s=D(r,Ar);if(typeof this!=="undefined"&&!(this instanceof Va)||typeof this==="undefined"){return new Va(e,Br({stdin:i,stdout:u,stderr:n,command_line:o},s))}if(typeof e==="undefined"){e="anonymous"}this.__env__=uo.inherit(e,s);this.__env__.set("parent.frame",ci("parent.frame",function(){return t.__env__},io.__env__["parent.frame"].__doc__));var c="**interaction-environment-defaults**";this.set(c,Ji(s).concat(c));var f=to.inherit("internal-".concat(e));if(Su(i)){f.set("stdin",i)}if(Su(n)){f.set("stderr",n)}if(Su(u)){f.set("stdout",u)}f.set("command-line",o);ao(this.__env__,f)}Va.prototype.exec=function(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:false;var r=arguments.length>2&&arguments[2]!==undefined?arguments[2]:null;yo("Interpreter::exec",e,["string","array"],1);yo("Interpreter::exec",t,"boolean",2);io.set("**interaction-environment**",this.__env__);if(r===null){r=this.__env__}return No(e,r,t?r:false)};Va.prototype.get=function(e){var t=this.__env__.get(e);if(vu(t)){return t.bind(this.__env__)}return t};Va.prototype.set=function(e,t){return this.__env__.set(e,t)};Va.prototype.constant=function(e,t){return this.__env__.constant(e,t)};function Ja(e,t){this.name="LipsError";this.message=e;this.args=t;this.stack=(new Error).stack}Ja.prototype=new Error;Ja.prototype.constructor=Ja;function Ga(e,t,r){if(arguments.length===1){if(_(arguments[0])==="object"){e=arguments[0];t=null}else if(typeof arguments[0]==="string"){e={};t=null;r=arguments[0]}}this.__docs__=new Map;this.__env__=e;this.__parent__=t;this.__name__=r||"anonymous"}Ga.prototype.list=function(){return Ji(this.__env__)};Ga.prototype.fs=function(){return this.get("**fs**")};Ga.prototype.unset=function(e){if(e instanceof Ln){e=e.valueOf()}if(e instanceof sa){e=e.valueOf()}delete this.__env__[e]};Ga.prototype.inherit=function(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:{};if(_(e)==="object"){t=e}if(!e||_(e)==="object"){e="child of "+(this.__name__||"unknown")}return new Ga(t||{},this,e)};Ga.prototype.doc=function(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:null;var r=arguments.length>2&&arguments[2]!==undefined?arguments[2]:false;if(e instanceof Ln){e=e.__name__}if(e instanceof sa){e=e.valueOf()}if(t){if(!r){t=fi(t)}this.__docs__.set(e,t);return this}if(this.__docs__.has(e)){return this.__docs__.get(e)}if(this.__parent__){return this.__parent__.doc(e)}};Ga.prototype.newFrame=function(e,t){var n=this.inherit("__frame__");n.set("parent.frame",ci("parent.frame",function(){var e=arguments.length>0&&arguments[0]!==undefined?arguments[0]:1;e=e.valueOf();var t=n.__parent__;if(!(t instanceof Ga)){return Pi}if(e<=0){return t}var r=t.get("parent.frame");return r(e-1)},io.__env__["parent.frame"].__doc__));t.callee=e;n.set("arguments",t);return n};Ga.prototype._lookup=function(e){if(e instanceof Ln){e=e.__name__}if(e instanceof sa){e=e.valueOf()}if(this.__env__.hasOwnProperty(e)){return Ha(this.__env__[e])}if(this.__parent__){return this.__parent__._lookup(e)}};Ga.prototype.toString=function(){return"#"};Ga.prototype.clone=function(){var t=this;var r={};Object.keys(this.__env__).forEach(function(e){r[e]=t.__env__[e]});return new Ga(r,this.__parent__,this.__name__)};Ga.prototype.merge=function(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:"merge";yo("Environment::merge",e,"environment");return this.inherit(t,e.__env__)};function Ha(e){if(typeof this!=="undefined"&&!(this instanceof Ha)||typeof this==="undefined"){return new Ha(e)}this.value=e}Ha.isUndefined=function(e){return e instanceof Ha&&typeof e.value==="undefined"};Ha.prototype.valueOf=function(){return this.value};function Wa(e){if(e.length){if(e.length===1){return e[0]}}if(typeof this!=="undefined"&&!(this instanceof Wa)||typeof this==="undefined"){return new Wa(e)}this.__values__=e}Wa.prototype.toString=function(){return this.__values__.map(function(e){return Zi(e)}).join("\n")};Wa.prototype.valueOf=function(){return this.__values__};Ga.prototype.get=function(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:{};yo("Environment::get",e,["symbol","string"]);var r=t.throwError,n=r===void 0?true:r;var i=e;if(i instanceof Ln||i instanceof sa){i=i.valueOf()}var u=this._lookup(i);if(u instanceof Ha){if(Ha.isUndefined(u)){return undefined}return Au(u.valueOf())}var a;if(e instanceof Ln&&e[Ln.object]){a=e[Ln.object]}else if(typeof i==="string"){a=i.split(".").filter(Boolean)}if(a&&a.length>0){var o=a,s=h(o),c=s[0],f=s.slice(1);u=this._lookup(c);if(f.length){try{if(u instanceof Ha){u=u.valueOf()}else{u=Ka(jr,c);if(vu(u)){u=Fu(u)}}if(typeof u!=="undefined"){return Ka.apply(void 0,[u].concat(k(f)))}}catch(e){throw e}}else if(u instanceof Ha){return Au(u.valueOf())}u=Ka(jr,i)}if(typeof u!=="undefined"){return u}if(n){throw new Error("Unbound variable `"+i.toString()+"'")}};Ga.prototype.set=function(e,t){var r=arguments.length>2&&arguments[2]!==undefined?arguments[2]:null;yo("Environment::set",e,["string","symbol"]);if(da.isNumber(t)){t=da(t)}if(e instanceof Ln){e=e.__name__}if(e instanceof sa){e=e.valueOf()}this.__env__[e]=t;if(r){this.doc(e,r,true)}return this};Ga.prototype.constant=function(t,e){var r=this;if(this.__env__.hasOwnProperty(t)){throw new Error("Environment::constant: ".concat(t," already exists"))}if(arguments.length===1&&Li(arguments[0])){var n=arguments[0];Object.keys(n).forEach(function(e){r.constant(t,n[e])})}else{Object.defineProperty(this.__env__,t,{value:e,enumerable:true})}return this};Ga.prototype.has=function(e){return this.__env__.hasOwnProperty(e)};Ga.prototype.ref=function(e){var t=this;while(true){if(!t){break}if(t.has(e)){return t}t=t.__parent__}};Ga.prototype.parents=function(){var e=this;var t=[];while(e){t.unshift(e);e=e.__parent__}return t};function Qa(e){if(gu(e)){return e.then(Qa)}if(e instanceof Ni||e instanceof Ln){e[Pu]=true}return e}var Za=ti(Nn('(lambda ()\n "[native code]"\n (throw "Invalid Invocation"))'))[0];var Ka=ci("get",function e(t){var r;for(var n=arguments.length,i=new Array(n>1?n-1:0),u=1;u0&&arguments[0]!==undefined?arguments[0]:null;if(e===null){e=Xa(this,"stdin")}mo("peek-char",e,"input-port");return e.peek_char()},"(peek-char port)\n\n Function get character from string port or EOF object if no more\n data in string port."),"read-line":ci("read-line",function(){var e=arguments.length>0&&arguments[0]!==undefined?arguments[0]:null;if(e===null){e=Xa(this,"stdin")}mo("read-line",e,"input-port");return e.read_line()},"(read-char port)\n\n Function read next character from input port."),"read-char":ci("read-char",function(){var e=arguments.length>0&&arguments[0]!==undefined?arguments[0]:null;if(e===null){e=Xa(this,"stdin")}mo("read-char",e,"input-port");return e.read_char()},"(read-char port)\n\n Function read next character from input port."),read:ci("read",function(){var e=O(j.mark(function e(){var r,n,i,u,a,o,s,c,f=arguments;return j.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:r=f.length>0&&f[0]!==undefined?f[0]:null;if(!sa.isString(r)){t.next=30;break}n=false;i=false;t.prev=4;a=F(ti(r,this));case 6:t.next=8;return a.next();case 8:if(!(n=!(o=t.sent).done)){t.next=14;break}s=o.value;return t.abrupt("return",s);case 11:n=false;t.next=6;break;case 14:t.next=20;break;case 16:t.prev=16;t.t0=t["catch"](4);i=true;u=t.t0;case 20:t.prev=20;t.prev=21;if(!(n&&a["return"]!=null)){t.next=25;break}t.next=25;return a["return"]();case 25:t.prev=25;if(!i){t.next=28;break}throw u;case 28:return t.finish(25);case 29:return t.finish(20);case 30:if(r===null){c=Xa(this,"stdin")}else{c=r}mo("read",c,"input-port");return t.abrupt("return",c.read.call(this));case 33:case"end":return t.stop()}}},e,this,[[4,16,20,30],[21,,25,29]])}));function t(){return e.apply(this,arguments)}return t}(),"(read [string])\n\n Function if used with string will parse the string and return\n list structure of LIPS code. If called without an argument it\n will read string from standard input (using browser prompt or\n user defined way) and call itself with that string (parse is)\n function can be used together with eval to evaluate code from\n string"),pprint:ci("pprint",function e(t){if(t instanceof Ni){t=new ps.Formatter(t.toString(true))["break"]().format();io.get("display").call(io,t)}else{io.get("write").call(io,t)}io.get("newline").call(io)},"(pprint expression)\n\n Pretty print list expression, if called with non-pair it just call\n print function with passed argument."),print:ci("print",function e(){var t=io.get("display");var r=io.get("newline");for(var n=arguments.length,i=new Array(n),u=0;u1?r-1:0),i=1;in.length){throw new Error("Not enough arguments")}var o=0;var s=io.get("repr");t=t.replace(u,function(e){var t=e[1];if(t==="~"){return"~"}else if(t==="%"){return"\n"}else{var r=n[o++];if(t==="a"){return s(r)}else{return s(r,true)}}});a=t.match(/~([\S])/);if(a){throw new Error("format: Unrecognized escape seqence ".concat(a[1]))}return t},"(format string n1 n2 ...)\n\n Function accepts string template and replacing any escape sequences\n by arguments:\n\n * ~a value as if printed with display\n * ~s value as if printed with write\n * ~% newline character\n * ~~ literal tilde '~' is inserted\n\n if there missing arguments or other escape character it throw exception."),display:ci("display",function e(t){var r=arguments.length>1&&arguments[1]!==undefined?arguments[1]:null;if(r===null){r=Xa(this,"stdout")}else{yo("display",r,"output-port")}var n=io.get("repr")(t);r.write.call(io,n)},"(display arg [port])\n\n Function send string to standard output or provied port."),"display-error":ci("display-error",function e(){var t=Xa(this,"stderr");var r=io.get("repr");for(var n=arguments.length,i=new Array(n),u=0;u1&&arguments[1]!==undefined?arguments[1]:{},r=t.dynamic_scope,n=t.error;if(r){r=this}var i=this;var a;var o=Io(e.cdr.car,{env:this,dynamic_scope:r,error:n});o=Fo(o);function s(t,r,n){if(gu(t)){return t.then(function(e){return s(t,e,n)})}if(gu(r)){return r.then(function(e){return s(t,e,n)})}if(gu(n)){return n.then(function(e){return s(t,r,e)})}i.get("set-obj!").call(i,t,r,n);return n}if(e.car instanceof Ni&&Ln.is(e.car.car,".")){var c=e.car.cdr.car;var f=e.car.cdr.cdr.car;var l=Io(c,{env:this,dynamic_scope:r,error:n});var h=Io(f,{env:this,dynamic_scope:r,error:n});return s(l,h,o)}if(!(e.car instanceof Ln)){throw new Error("set! first argument need to be a symbol or "+"dot accessor that evaluate to object.")}var p=e.car.valueOf();a=this.ref(e.car.__name__);return ni(o,function(e){if(!a){var t=p.split(".");if(t.length>1){var r=t.pop();var n=t.join(".");var i=u.get(n,{throwError:false});if(i){s(i,r,e);return}}throw new Error("Unbound variable `"+p+"'")}a.set(p,e)})}),"(set! name value)\n\n Macro that can be used to set the value of the variable (mutate)\n it search the scope chain until it finds first non emtpy slot and set it."),"unset!":ci(new au("set!",function(e){if(!(e.car instanceof Ln)){throw new Error("unset! first argument need to be a symbol or "+"dot accessor that evaluate to object.")}var t=e.car;var r=this.ref(t);if(r){delete r.__env__[t.__name__]}}),"(unset! name)\n\n Function delete specified name from environment."),"set-car!":ci("set-car!",function(e,t){yo("set-car!",e,"pair");e.car=t},"(set-car! obj value)\n\n Function that set car (head) of the list/pair to specified value.\n It can destroy the list. Old value is lost."),"set-cdr!":ci("set-cdr!",function(e,t){yo("set-cdr!",e,"pair");e.cdr=t},"(set-cdr! obj value)\n\n Function that set cdr (tail) of the list/pair to specified value.\n It can destroy the list. Old value is lost."),"empty?":ci("empty?",function(e){return typeof e==="undefined"||e===Pi},"(empty? object)\n\n Function return true if value is undfined empty list."),gensym:ci("gensym",Mn,"(gensym)\n\n Function generate unique symbol, to use with macros as meta name."),load:ci("load",function e(o,t){yo("load",o,"string");var s=this;if(s.__name__==="__frame__"){s=s.__parent__}if(!(t instanceof Ga)){if(s===io){t=s}else{t=this.get("**interaction-environment**")}}var c="**module-path**";var f=io.get(c,{throwError:false});o=o.valueOf();if(!o.match(/.[^.]+$/)){o+=".scm"}var r=o.match(/\.xcb$/);function l(e){if(r){e=ss(e)}else{if(Ao(e)==="buffer"){e=e.toString()}e=e.replace(/^#!.*/,"");if(e.match(/^\{/)){e=ts(e)}}return No(e,t)}function n(e){return jr.fetch(e).then(function(e){return r?e.arrayBuffer():e.text()}).then(function(e){if(r){e=new Uint8Array(e)}return e})}if(lo()){return new Promise(function(){var r=O(j.mark(function e(r,n){var i,u,a;return j.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:i=Tr("path");if(!f){t.next=6;break}f=f.valueOf();o=i.join(f,o);t.next=12;break;case 6:u=s.get("command-line",{throwError:false});if(!u){t.next=11;break}t.next=10;return u();case 10:a=t.sent;case 11:if(a&&a!==Pi){process.cwd();o=i.join(i.dirname(a.car.valueOf()),o)}case 12:io.set(c,i.dirname(o));Tr("fs").readFile(o,function(e,t){if(e){n(e);io.set(c,f)}else{try{l(t).then(function(){r();io.set(c,f)})["catch"](n)}catch(e){n(e)}}});case 14:case"end":return t.stop()}}},e)}));return function(e,t){return r.apply(this,arguments)}}())}if(f){f=f.valueOf();o=f+"/"+o.replace(/^\.?\/?/,"")}return n(o).then(function(e){io.set(c,o.replace(/\/[^/]*$/,""));return l(e)}).then(function(){})["finally"](function(){io.set(c,f)})},"(load filename)\n (load filename environment)\n\n Function fetch the file and evaluate its content as LIPS code,\n If second argument is provided and it's environment the evaluation\n will happen in that environment."),do:ci(new au("do",function(){var r=O(j.mark(function e(r,n){var i,u,a,o,s,c,f,l,h,p,_;return j.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:i=n.dynamic_scope,u=n.error;a=this;if(i){i=a}o=a.inherit("do");s=r.car;c=r.cdr.car;f=r.cdr.cdr;if(f!==Pi){f=new Ni(Ln("begin"),f)}l={env:a,dynamic_scope:i,error:u};h=s;case 10:if(!(h!==Pi)){t.next=21;break}p=h.car;t.t0=o;t.t1=p.car;t.next=16;return Io(p.cdr.car,l);case 16:t.t2=t.sent;t.t0.set.call(t.t0,t.t1,t.t2);h=h.cdr;t.next=10;break;case 21:l={env:o,dynamic_scope:i,error:u};_=j.mark(function e(){var r,n,i,u,a;return j.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:if(!(f!==Pi)){t.next=3;break}t.next=3;return ps.evaluate(f,l);case 3:r=s;n={};case 5:if(!(r!==Pi)){t.next=15;break}i=r.car;if(!(i.cdr.cdr!==Pi)){t.next=12;break}t.next=10;return Io(i.cdr.cdr.car,l);case 10:u=t.sent;n[i.car.valueOf()]=u;case 12:r=r.cdr;t.next=5;break;case 15:a=Object.getOwnPropertySymbols(n);Object.keys(n).concat(a).forEach(function(e){o.set(e,n[e])});case 17:case"end":return t.stop()}}},e)});case 23:t.next=25;return Io(c.car,l);case 25:t.t3=t.sent;if(!(t.t3===false)){t.next=30;break}return t.delegateYield(_(),"t4",28);case 28:t.next=23;break;case 30:if(!(c.cdr!==Pi)){t.next=34;break}t.next=33;return Io(c.cdr.car,l);case 33:return t.abrupt("return",t.sent);case 34:case"end":return t.stop()}}},e,this)}));return function(e,t){return r.apply(this,arguments)}}()),"(do (( )) (test expression) . body)\n\n Iteration macro that evaluate the expression body in scope of the variables.\n On Eeach loop it increase the variables according to next expression and run\n test to check if the loop should continue. If test is signle call the macro\n will not return anything. If the test is pair of expression and value the\n macro will return that value after finish."),if:ci(new au("if",function(r,e){var n=e.dynamic_scope,i=e.error;if(n){n=this}var u=this;var t=function e(t){if(t===false){return Io(r.cdr.cdr.car,{env:u,dynamic_scope:n,error:i})}else{return Io(r.cdr.car,{env:u,dynamic_scope:n,error:i})}};if(r===Pi){throw new Error("too few expressions for `if`")}var a=Io(r.car,{env:u,dynamic_scope:n,error:i});return ni(a,t)}),"(if cond true-expr false-expr)\n\n Macro evaluate condition expression and if the value is true, it\n evaluate and return true expression if not it evaluate and return\n false expression"),"let-env":new au("let-env",function(t){var e=arguments.length>1&&arguments[1]!==undefined?arguments[1]:{};var r=e.dynamic_scope,n=e.error;yo("let-env",t,"pair");var i=Io(t.car,{env:this,dynamic_scope:r,error:n});return ni(i,function(e){yo("let-env",e,"environment");return Io(Ni(Ln("begin"),t.cdr),{env:e,dynamic_scope:r,error:n})})},"(let-env env . body)\n\n Special macro that evaluate body in context of given environment\n object."),letrec:ci(Wu(Symbol["for"]("letrec")),"(letrec ((a value-a) (b value-b)) body)\n\n Macro that creates new environment, then evaluate and assign values to\n names and then evaluate the body in context of that environment.\n Values are evaluated sequentialy and next value can access to\n previous values/names."),"letrec*":ci(Wu(Symbol["for"]("letrec")),"(letrec* ((a value-a) (b value-b)) body)\n\n Same as letrec but the order of execution of the binding is guaranteed,\n so use can use recursive code as well as reference previous binding.\n In LIPS both letrec and letrec* behave the same."),"let*":ci(Wu(Symbol["for"]("let*")),"(let* ((a value-a) (b value-b)) body)\n\n Macro similar to `let` but next argument get environment\n from previous let variable, so they you can define one variable,\n and use in next argument."),let:ci(Wu(Symbol["for"]("let")),"(let ((a value-a) (b value-b)) body)\n\n Macro that creates new environment, then evaluate and assign values to\n names and then evaluate the body in context of that environment.\n Values are evaluated sequentialy but you can't access\n previous values/names when next are evaluated. You can only get them\n from body of let expression."),"begin*":ci(Qu("begin*",function(e){return e.pop()}),"(begin* . expr)\n\n This macro is parallel version of begin. It evaluate each expression and\n if it's a promise it will evaluate it in parallel and return value\n of last expression."),begin:ci(new au("begin",function(e,t){var n=Object.assign({},t);var i=io.get("list->array")(e);if(n.dynamic_scope){n.dynamic_scope=this}n.env=this;var u;return function t(){if(i.length){var e=i.shift();var r=Io(e,n);return ni(r,function(e){u=e;return t()})}else{return u}}()}),"(begin . args)\n\n Macro runs list of expression and return valuate of the list one.\n It can be used in place where you can only have single exression,\n like if expression."),ignore:new au("ignore",function(e,t){var r=t.dynamic_scope,n=t.error;var i={env:this,error:n};if(r){i.dynamic_scope=this}Io(new Ni(new Ln("begin"),e),i)},"(ignore expression)\n\n Macro that will evaluate expression and swallow any promises that may\n be created. It wil run and ignore any value that may be returned by\n expression. The code should have side effects and/or when it's promise\n it should resolve to undefined."),"call/cc":ci(au.defmacro("call/cc",function(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:{};var r=Br({env:this},t);return ni(Io(e.car,r),function(e){if(vu(e)){return e(new Bo(null))}})}),"(call/cc proc)\n\n TODO"),define:ci(au.defmacro("define",function(r,e){var n=this;if(r.car instanceof Ni&&r.car.car instanceof Ln){var t=new Ni(new Ln("define"),new Ni(r.car.car,new Ni(new Ni(new Ln("lambda"),new Ni(r.car.cdr,r.cdr)))));return t}else if(e.macro_expand){return}if(e.dynamic_scope){e.dynamic_scope=this}e.env=n;var i=r.cdr.car;var u;if(i instanceof Ni){i=Io(i,e);u=true}else if(i instanceof Ln){i=n.get(i)}yo("define",r.car,"symbol");return ni(i,function(e){if(n.__name__===fu.__merge_env__){n=n.__parent__}if(u&&(vu(e)&&Vu(e)||e instanceof fu)){e.__name__=r.car.valueOf();if(e.__name__ instanceof sa){e.__name__=e.__name__.valueOf()}}var t;if(r.cdr.cdr instanceof Ni&&sa.isString(r.cdr.cdr.car)){t=r.cdr.cdr.car.valueOf()}n.set(r.car,e,t,true)})}),'(define name expression)\n (define name expression "doc string")\n (define (function-name . args) body)\n\n Macro for defining values. It can be used to define variables,\n or function. If first argument is list it will create function\n with name beeing first element of the list. The macro evalute\n code `(define function (lambda args body))`'),"set-obj!":ci("set-obj!",function(e,t,r){var n=_(e);if(du(e)||n!=="object"&&n!=="function"){var i=_o("set-obj!",Ao(e),["object","function"]);throw new Error(i)}yo("set-obj!",t,["string","symbol","number"]);e=Fu(e);t=t.valueOf();if(arguments.length===2){delete e[t]}else if(Ki(e)&&vu(r)){e[t]=Fu(r);e[t][Uu]=true}else if(vu(r)||bo(r)||r===Pi){e[t]=r}else{e[t]=r&&!Ki(r)?r.valueOf():r}},"(set-obj! obj key value)\n\n Function set property of JavaScript object"),"null-environment":ci("null-environment",function(){return io.inherit("null")},"(null-environment)\n\n Function return new base environment with std lib."),values:ci("values",function e(){for(var t=arguments.length,r=new Array(t),n=0;n1&&arguments[1]!==undefined?arguments[1]:{},h=e.dynamic_scope,p=e.error;var _=this;var d;if(l.cdr instanceof Ni&&sa.isString(l.cdr.car)&&l.cdr.cdr!==Pi){d=l.cdr.car.valueOf()}function v(){var e;if(h){if(!(this instanceof Ga)){e=_}else{e=this}}else{e=_}e=e.inherit("lambda");var t=l.car;var r=0;var n;if(typeof this!=="undefined"&&!(this instanceof Ga)){if(this&&!this.__instance__){Object.defineProperty(this,"__instance__",{enumerable:false,get:function e(){return true},set:function e(){},configurable:false})}e.set("this",this)}for(var i=arguments.length,u=new Array(i),a=0;a>> "+_.toString());if(_){l=_}var d=i.merge(n,fu.__merge_env__);if(r){return{expr:l,scope:d}}var v=Io(l,Br(Br({},a),{},{env:d}));return pu(v,p)}s=s.cdr}}catch(e){e.message+=" in macro: ".concat(m.toString(true));throw e}throw new Error("Invalid Syntax ".concat(e.toString(true)))},b);r.__code__=m;return r},"(syntax-rules () (pattern expression) ...)\n\n Base of Hygienic macro, it will return new syntax expander\n that works like lisp macros."),quote:ci(new au("quote",function(e){return Qa(e.car)}),"(quote expression)\n\n Macro that return single lips expression as data (it don't evaluate its\n argument). It will return list of pairs if put in front of lips code.\n And if put in fron of symbol it will return that symbol not value\n associated with that name."),"unquote-splicing":ci("unquote-splicing",function(){throw new Error("You can't call `unquote-splicing` outside of quasiquote")},"(unquote-splicing code)\n\n Special form to be used in quasiquote macro, parser is processing special\n characters ,@ and create call to this pseudo function. It can be used\n to evalute expression inside and return the value without parenthesis.\n the value will be joined to the output list structure."),unquote:ci("unquote",function(){throw new Error("You can't call `unquote` outside of quasiquote")},"(unquote code)\n\n Special form to be used in quasiquote macro, parser is processing special\n characters , and create call to this pseudo function. It can be used\n to evalute expression inside and return the value, the output is inserted\n into list structure created by queasiquote."),quasiquote:au.defmacro("quasiquote",function(e,t){var o=t.dynamic_scope,s=t.error;var c=this;if(o){o=c}function u(e){return e instanceof Ni||Li(e)||Array.isArray(e)}function f(e,t){var r=arguments.length>2&&arguments[2]!==undefined?arguments[2]:u;if(e instanceof Ni){var n=e.car;var i=e.cdr;if(r(n)){n=t(n)}if(r(i)){i=t(i)}if(gu(n)||gu(i)){return $n([n,i]).then(function(e){var t=A(e,2),r=t[0],n=t[1];return new Ni(r,n)})}else{return new Ni(n,i)}}return e}function a(e,t){if(e instanceof Ni){if(t!==Pi){e.append(t)}}else{e=new Ni(e,t)}return e}function r(e){return!!e.filter(function(e){return e instanceof Ni&&Ln.is(e.car,/^(unquote|unquote-splicing)$/)}).length}function l(e,n,i){return e.reduce(function(e,t){if(!(t instanceof Ni)){e.push(t);return e}if(Ln.is(t.car,"unquote-splicing")){var r;if(n+11){var t="You can't splice multiple atoms inside list";throw new Error(t)}if(!(i.cdr instanceof Ni&&r[0]===Pi)){return r[0]}}r=r.map(function(e){if(_.has(e)){return e.clone()}else{_.add(e);return e}});var n=d(i.cdr,0,1);if(n===Pi&&r[0]===Pi){return undefined}return ni(n,function(e){if(r[0]===Pi){return e}if(r.length===1){return a(r[0],e)}var t=r.reduce(function(e,t){return a(e,t)});return a(t,e)})})}(i.car.cdr)}var _=new Set;function d(e,t,r){if(e instanceof Ni){if(e.car instanceof Ni){if(Ln.is(e.car.car,"unquote-splicing")){return p(e,t+1,r)}if(Ln.is(e.car.car,"unquote")){if(t+2===r&&e.car.cdr instanceof Ni&&e.car.cdr.car instanceof Ni&&Ln.is(e.car.cdr.car.car,"unquote-splicing")){var n=e.car.cdr;return new Ni(new Ni(new Ln("unquote"),p(n,t+2,r)),Pi)}else if(e.car.cdr instanceof Ni&&e.car.cdr.cdr!==Pi){if(e.car.cdr.car instanceof Ni){var i=[];return function t(r){if(r===Pi){return Ni.fromArray(i)}return ni(Io(r.car,{env:c,dynamic_scope:o,error:s}),function(e){i.push(e);return t(r.cdr)})}(e.car.cdr)}else{return e.car.cdr}}}}if(Ln.is(e.car,"quasiquote")){var u=d(e.cdr,t,r+1);return new Ni(e.car,u)}if(Ln.is(e.car,"quote")){return new Ni(e.car,d(e.cdr,t,r))}if(Ln.is(e.car,"unquote")){t++;if(tr){throw new Error("You can't call `unquote` outside "+"of quasiquote")}if(e.cdr instanceof Ni){if(e.cdr.cdr!==Pi){if(e.cdr.car instanceof Ni){var a=[];return function t(r){if(r===Pi){return Ni.fromArray(a)}return ni(Io(r.car,{env:c,dynamic_scope:o,error:s}),function(e){a.push(e);return t(r.cdr)})}(e.cdr)}else{return e.cdr}}else{return Io(e.cdr.car,{env:c,dynamic_scope:o,error:s})}}else{return e.cdr}}return f(e,function(e){return d(e,t,r)})}else if(Li(e)){return h(e,t,r)}else if(e instanceof Array){return l(e,t,r)}return e}function n(e){if(e instanceof Ni){delete e[Pu];if(!e.haveCycles("car")){n(e.car)}if(!e.haveCycles("cdr")){n(e.cdr)}}}if(Li(e.car)&&!r(Object.values(e.car))){return Qa(e.car)}if(Array.isArray(e.car)&&!r(e.car)){return Qa(e.car)}if(e.car instanceof Ni&&!e.car.find("unquote")&&!e.car.find("unquote-splicing")&&!e.car.find("quasiquote")){return Qa(e.car)}var i=d(e.car,0,1);return ni(i,function(e){n(e);return Qa(e)})},"(quasiquote list ,value ,@value)\n\n Similar macro to `quote` but inside it you can use special\n expressions unquote abbreviated to , that will evaluate expresion inside\n and return its value or unquote-splicing abbreviated to ,@ that will\n evaluate expression but return value without parenthesis (it will join)\n the list with its value. Best used with macros but it can be used outside"),clone:ci("clone",function e(t){yo("clone",t,"pair");return t.clone()},"(clone list)\n\n Function return clone of the list."),append:ci("append",function e(){var t;for(var r=arguments.length,n=new Array(r),i=0;iarray")(t).reverse();return io.get("array->list")(r)}else if(!(t instanceof Array)){throw new Error(_o("reverse",Ao(t),"array or pair"))}else{return t.reverse()}},"(reverse list)\n\n Function will reverse the list or array. If value is not a list\n or array it will throw exception."),nth:ci("nth",function e(t,r){yo("nth",t,"number");yo("nth",r,["array","pair"]);if(r instanceof Ni){var n=r;var i=0;while(iarray")(r).join(t)},"(join separator list)\n\n Function return string by joining elements of the list"),split:ci("split",function e(t,r){yo("split",t,["regex","string"]);yo("split",r,"string");return io.get("array->list")(r.split(t))},"(split separator string)\n\n Function create list by splitting string by separatar that can\n be a string or regular expression."),replace:ci("replace",function e(t,r,n){yo("replace",t,["regex","string"]);yo("replace",r,["string","function"]);yo("replace",n,"string");return n.replace(t,r)},"(replace pattern replacement string)\n\n Function change pattern to replacement inside string. Pattern can be string\n or regex and replacement can be function or string."),match:ci("match",function e(t,r){yo("match",t,["regex","string"]);yo("match",r,"string");var n=r.match(t);return n?io.get("array->list")(n):false},"(match pattern string)\n\n function return match object from JavaScript as list or #f if not match."),search:ci("search",function e(t,r){yo("search",t,["regex","string"]);yo("search",r,"string");return r.search(t)},"(search pattern string)\n\n Function return first found index of the pattern inside a string"),repr:ci("repr",function e(t,r){return Zi(t,r)},"(repr obj)\n\n Function return string LIPS representation of an object as string."),"escape-regex":ci("escape-regex",function(e){yo("escape-regex",e,"string");return kn(e.valueOf())},"(escape-regex string)\n\n Function return new string where all special operators used in regex,\n are escaped with slash so they can be used in RegExp constructor\n to match literal string"),env:ci("env",function e(e){e=e||this;var t=Object.keys(e.__env__).map(Ln);var r;if(t.length){r=Ni.fromArray(t)}else{r=Pi}if(e.__parent__ instanceof Ga){return io.get("env")(e.__parent__).append(r)}return r},"(env)\n (env obj)\n\n Function return list of values (functions, macros and variables)\n inside environment and it's parents."),new:ci("new",function(e){for(var t=arguments.length,r=new Array(t>1?t-1:0),n=1;n2&&arguments[2]!==undefined?arguments[2]:Jn.LITERAL;yo("set-special!",e,"string",1);yo("set-special!",t,"symbol",2);Jn.append(e.valueOf(),t,r)},'(set-special! symbol name [type])\n\n Add special symbol to the list of transforming operators by the parser.\n e.g.: `(add-special! "#" \'x)` will allow to use `#(1 2 3)` and it will be\n transformed into (x (1 2 3)) so you can write x macro that will process\n the list. 3rd argument is optional and it can be constant value\n lips.specials.SPLICE if this constant is used it will transform\n `#(1 2 3)` into (x 1 2 3) that is required by # that define vectors.'),get:Ka,".":Ka,unbind:ci(Fu,"(unbind fn)\n\n Function remove bidning from function so you can get props from it."),type:ci(Ao,"(type object)\n\n Function return type of an object as string."),debugger:ci("debugger",function(){debugger},"(debugger)\n\n Function stop JavaScript code in debugger."),in:ci("in",function(e,t){if(e instanceof Ln||e instanceof sa||e instanceof da){e=e.valueOf()}return e in Eu(t)},"(in key value)\n\n Function use is in operator to check if value is in object."),instanceof:ci("instanceof",function(e,t){return t instanceof Fu(e)},"(instanceof type obj)\n\n Function check of object is instance of object."),"prototype?":ci("prototype?",Ki,"(prototype? obj)\n\n Function check if value is JavaScript Object prototype."),"macro?":ci("macro?",function(e){return e instanceof au},"(macro? expression)\n\n Function check if value is a macro."),"function?":ci("function?",vu,"(function? expression)\n\n Function check if value is a function."),"real?":ci("real?",function(e){if(Ao(e)!=="number"){return false}if(e instanceof da){return e.isFloat()}return da.isFloat(e)},"(real? number)\n\n Function check if value is real number."),"number?":ci("number?",function(e){return Number.isNaN(e)||da.isNumber(e)},"(number? expression)\n\n Function check if value is a number or NaN value."),"string?":ci("string?",function(e){return sa.isString(e)},"(string? expression)\n\n Function check if value is a string."),"pair?":ci("pair?",function(e){return e instanceof Ni},"(pair? expression)\n\n Function check if value is a pair or list structure."),"regex?":ci("regex?",function(e){return e instanceof RegExp},"(regex? expression)\n\n Function check if value is regular expression."),"null?":ci("null?",function(e){return du(e)},"(null? expression)\n\n Function check if value is nulish."),"boolean?":ci("boolean?",function(e){return typeof e==="boolean"},"(boolean? expression)\n\n Function check if value is boolean."),"symbol?":ci("symbol?",function(e){return e instanceof Ln},"(symbol? expression)\n\n Function check if value is LIPS symbol"),"array?":ci("array?",function(e){return e instanceof Array},"(array? expression)\n\n Function check if value is an arrray."),"object?":ci("object?",function(e){return e!==Pi&&e!==null&&!(e instanceof oa)&&!(e instanceof RegExp)&&!(e instanceof sa)&&!(e instanceof Ni)&&!(e instanceof da)&&_(e)==="object"&&!(e instanceof Array)},"(object? expression)\n\n Function check if value is an plain object."),flatten:ci("flatten",function e(t){yo("flatten",t,"pair");return t.flatten()},"(flatten list)\n\n Return shallow list from tree structure (pairs)."),"array->list":ci("array->list",function(e){yo("array->list",e,"array");return Ni.fromArray(e)},"(array->list array)\n\n Function convert JavaScript array to LIPS list."),"tree->array":ci("tree->array",Ri("tree->array",true),"(tree->array list)\n\n Function convert LIPS list structure into JavaScript array."),"list->array":ci("list->array",Ri("list->array"),"(list->array list)\n\n Function convert LIPS list into JavaScript array."),apply:ci("apply",function e(t){for(var r=arguments.length,n=new Array(r>1?r-1:0),i=1;iarray").call(this,u));return t.apply(this,Oo(t,n))},"(apply fn list)\n\n Function that call function with list of arguments."),length:ci("length",function e(t){if(!t||t===Pi){return 0}if(t instanceof Ni){return t.length()}if("length"in t){return t.length}},"(length expression)\n\n Function return length of the object, the object can be list\n or any object that have length property."),"string->number":ci("string->number",function(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:10;yo("string->number",e,"string",1);yo("string->number",t,"number",2);e=e.valueOf();t=t.valueOf();if(e.match(fn)||e.match(on)){return dn(e,t)}else if(e.match(ln)||e.match(an)){return yn(e,t)}else{var r=t===10&&!e.match(/e/i)||t===16;if(e.match(cn)&&r||e.match(sn)){return vn(e,t)}if(e.match(Wr)){return wn(e)}}return false},"(string->number number [radix])\n\n Function convert string to number."),try:ci(new au("try",function(t,e){var c=this;var f=e.dynamic_scope,l=e.error;return new Promise(function(i,n){var u,a;if(Ln.is(t.cdr.car.car,"catch")){u=t.cdr.car;if(t.cdr.cdr instanceof Ni&&Ln.is(t.cdr.cdr.car.car,"finally")){a=t.cdr.cdr.car}}else if(Ln.is(t.cdr.car.car,"finally")){a=t.cdr.car}if(!(a||u)){throw new Error("try: invalid syntax")}var o=i;if(a){o=function e(t,r){o=n;ni(Io(new Ni(new Ln("begin"),a.cdr),s),function(){r(t)})}}var s={env:c,error:function e(t){var r=c.inherit("try");if(u){r.set(u.cdr.car.car,t);var n={env:r,error:l};if(f){n.dynamic_scope=c}ni(Io(new Ni(new Ln("begin"),u.cdr.cdr),n),function(e){o(e,i)})}else{o(t,l)}}};if(f){s.dynamic_scope=c}var e=Io(t.car,s);if(gu(e)){e.then(function(e){o(e,i)})["catch"](s.error)}else{o(e,i)}})}),"(try expr (catch (e) code))\n (try expr (catch (e) code) (finally code))\n (try expr (finally code))\n\n Macro execute user code and catch exception. If catch is provided\n it's executed when expression expr throw error. If finally is provide\n it's always executed at the end."),raise:ci("raise",function(e){throw e},"(raise obj)\n\n Throws new exception with given object."),throw:ci("throw",function(e){throw new Error(e)},"(throw string)\n\n Throws new expection."),find:ci("find",function t(r,n){yo("find",r,["regex","function"]);yo("find",n,["pair","nil"]);if(du(n)){return Pi}var e=si("find",r);return ni(e(n.car),function(e){if(e&&e!==Pi){return n.car}return t(r,n.cdr)})},"(find fn list)\n (find regex list)\n\n Higher order Function find first value for which function return true.\n If called with regex it will create matcher function."),"for-each":ci("for-each",function(e){var t;yo("for-each",e,"function");for(var r=arguments.length,n=new Array(r>1?r-1:0),i=1;i1?t-1:0),u=1;u3?n-3:0),u=3;u3?i-3:0),a=3;aarray")(r);var u=[];var a=si("filter",t);return function t(r){function e(e){if(e&&e!==Pi){u.push(n)}return t(++r)}if(r===i.length){return Ni.fromArray(u)}var n=i[r];return ni(a(n),e)}(0)},"(filter fn list)\n (filter regex list)\n\n Higher order function that call `fn` for each element of the list\n and return list for only those elements for which funtion return\n true value. If called with regex it will create matcher function."),compose:ci(Xu,"(compose . fns)\n\n Higher order function and create new function that apply all functions\n From right to left and return it's value. Reverse of compose.\n e.g.:\n ((compose (curry + 2) (curry * 3)) 3)\n 11\n "),pipe:ci(Ku,"(pipe . fns)\n\n Higher order function and create new function that apply all functions\n From left to right and return it's value. Reverse of compose.\n e.g.:\n ((pipe (curry + 2) (curry * 3)) 3)\n 15"),curry:ci(ua,"(curry fn . args)\n\n Higher order function that create curried version of the function.\n The result function will have parially applied arguments and it\n will keep returning functions until all arguments are added\n\n e.g.:\n (define (add a b c d) (+ a b c d))\n (define add1 (curry add 1))\n (define add12 (add 2))\n (display (add12 3 4))"),gcd:ci("gcd",function e(){for(var t=arguments.length,r=new Array(t),n=0;no?u%=o:o%=u}u=eu(s*r[a])/(u+o)}return da(u)},"(lcm n1 n2 ...)\n\n Function return the least common multiple of their arguments."),"odd?":ci("odd?",ra(function(e){return da(e).isOdd()}),"(odd? number)\n\n Function check if number os odd."),"even?":ci("even?",ra(function(e){return da(e).isEven()}),"(even? number)\n\n Function check if number is even."),"*":ci("*",ia(function(e,t){return da(e).mul(t)},da(1)),"(* . numbers)\n\n Multiplicate all numbers passed as arguments. If single value is passed\n it will return that value."),"+":ci("+",ia(function(e,t){return da(e).add(t)},da(0)),"(+ . numbers)\n\n Sum all numbers passed as arguments. If single value is passed it will\n return that value."),"-":ci("-",function(){for(var e=arguments.length,t=new Array(e),r=0;r":ci(">",function(){for(var e=arguments.length,t=new Array(e),r=0;r",t,"number");return tu(function(e,t){return da(e).cmp(t)===1},t)},"(> x1 x2 ...)\n\n Function compare its numerical arguments and check if they are\n monotonically increasing"),"<":ci("<",function(){for(var e=arguments.length,t=new Array(e),r=0;r=":ci(">=",function(){for(var e=arguments.length,t=new Array(e),r=0;r=",t,"number");return tu(function(e,t){return[0,1].includes(da(e).cmp(t))},t)},"(>= x1 x2 ...)\n\n Function compare its numerical arguments and check if they are\n monotonically nondecreasing"),"eq?":ci("eq?",ru,"(eq? a b)\n\n Function compare two values if they are identical."),or:ci(new au("or",function(e,t){var i=t.dynamic_scope,u=t.error;var a=io.get("list->array")(e);var o=this;if(i){i=o}if(!a.length){return false}var s;return function t(){function e(e){s=e;if(s!==false){return s}else{return t()}}if(!a.length){if(s!==false){return s}else{return false}}else{var r=a.shift();var n=Io(r,{env:o,dynamic_scope:i,error:u});return ni(n,e)}}()}),"(or . expressions)\n\n Macro execute the values one by one and return the one that is truthy value.\n If there are no expression that evaluate to true it return false."),and:ci(new au("and",function(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:{},i=t.dynamic_scope,u=t.error;var a=io.get("list->array")(e);var o=this;if(i){i=o}if(!a.length){return true}var s;return function t(){function e(e){s=e;if(s===false){return false}else{return t()}}if(!a.length){if(s!==false){return s}else{return false}}else{var r=a.shift();var n=Io(r,{env:o,dynamic_scope:i,error:u});return ni(n,e)}}()}),"(and . expressions)\n\n Macro evalute each expression in sequence if any value return false it will\n return false. If each value return true it will return the last value.\n If it's called without arguments it will return true."),"|":ci("|",function(e,t){return da(e).or(t)},"(| a b)\n\n Function calculate or bit operation."),"&":ci("&",function(e,t){return da(e).and(t)},"(& a b)\n\n Function calculate and bit operation."),"~":ci("~",function(e){return da(e).neg()},"(~ number)\n\n Function negate the value."),">>":ci(">>",function(e,t){return da(e).shr(t)},"(>> a b)\n\n Function right shit the value a by value b."),"<<":ci("<<",function(e,t){return da(e).shl(t)},"(<< a b)\n\n Function left shit the value a by value b."),not:ci("not",function e(t){if(du(t)){return true}return!t},"(not object)\n\n Function return negation of the argument.")},undefined,"global");var uo=io.inherit("user-env");function ao(e,t){e.constant("**internal-env**",t);e.doc("**internal-env**","**internal-env**\n\n Constant used to hide stdin, stdout and stderr so they don't interfere\n with variables with the same name. Constants are internal type\n of variables that can't be redefined, defining variable with same name\n will throw an error.");io.set("**interaction-environment**",e)}ao(uo,to);io.doc("**interaction-environment**","**interaction-environment**\n\n Internal dynamic, global variable used to find interpreter environment.\n It's used so the read and write functions can locate **internal-env**\n that contain references to stdin, stdout and stderr.");(function(){var e={ceil:"ceiling"};["floor","round","ceil"].forEach(function(t){var r=e[t]?e[t]:t;io.set(r,ci(r,function(e){yo(r,e,"number");if(e instanceof da){return e[t]()}},"(".concat(r," number)\n\n Function calculate ").concat(r," of a number.")))})})();function oo(e){if(e.length===1){return e[0]}else{var t=[];var r=oo(e.slice(1));for(var n=0;n3&&arguments[3]!==undefined?arguments[3]:null;var i=e?" in expression `".concat(e,"`"):"";if(n!==null){i+=" (argument ".concat(n,")")}if(vu(r)){return"Invalid type got ".concat(t).concat(i)}if(r instanceof Array){if(r.length===1){r=r[0]}else{var u=r[r.length-1];r=r.slice(0,-1).join(", ")+" or "+u}}return"Expecting ".concat(r,", got ").concat(t).concat(i)}function vo(r,e,n){e.forEach(function(e,t){yo(r,e,n,t+1)})}function mo(e,t,r){yo(e,t,r);if(t.__type__===Ma){throw new Error(_o(e,"binary-port","textual-port"))}}function yo(e,t,r){var n=arguments.length>3&&arguments[3]!==undefined?arguments[3]:null;e=e.valueOf();var i=Ao(t).toLowerCase();if(vu(r)){if(!r(t)){throw new Error(_o(e,i,r,n))}return}var u=false;if(r instanceof Ni){r=r.to_array()}if(r instanceof Array){r=r.map(function(e){return e.valueOf()})}if(r instanceof Array){r=r.map(function(e){return e.valueOf().toLowerCase()});if(r.includes(i)){u=true}}else{r=r.valueOf().toLowerCase()}if(!u&&i!==r){throw new Error(_o(e,i,r,n))}}function go(e){var t=_(e);return["string","function"].includes(t)||_(e)==="symbol"||e instanceof Yn||e instanceof Ln||e instanceof da||e instanceof sa||e instanceof RegExp}function bo(e){return e instanceof da||e instanceof sa||e instanceof oa}function wo(e,t){if(e===null){return false}return _(e)==="object"&&t in Object.getOwnPropertySymbols(e)}function Do(e,t){if(wo(e,t)||wo(e.__proto__,t)){return vu(e[t])}}function Eo(r){var n=new WeakMap;return function(e){var t=n.get(e);if(!t){t=r(e)}return t}}Ao=Eo(Ao);function Ao(e){var t=Pr.get(e);if(t){return t}if(_(e)==="object"){for(var r=0,n=Object.entries(Ir);r2&&arguments[2]!==undefined?arguments[2]:{},u=t.env,a=t.dynamic_scope,r=t.error,o=r===void 0?function(){}:r;e=xo(e,{env:u,dynamic_scope:a,error:o});return ni(e,function(e){if(Gu(i)){i=Fu(i)}e=Oo(i,e);var t=e.slice();var r=(a||u).newFrame(i,t);var n=Fo(i.apply(r,e));return ni(n,function(e){if(e instanceof Ni){e.markCycles();return Qa(e)}return wu(e)},o)})}var Bo=function(){function t(e){y(this,t);this.__value__=e}b(t,[{key:"invoke",value:function e(){if(this.__value__===null){throw new Error("Continuations are not implemented yet")}}},{key:"toString",value:function e(){return"#"}}]);return t}();var jo=function e(){};function Io(t){var e=arguments.length>1&&arguments[1]!==undefined?arguments[1]:{},r=e.env,n=e.dynamic_scope,i=e.error,u=i===void 0?jo:i;try{if(n===true){r=n=r||io}else if(r===true){r=n=io}else{r=r||io}var a={env:r,dynamic_scope:n,error:u};var o;if(du(t)){return t}if(t instanceof Ln){return r.get(t)}if(!(t instanceof Ni)){return t}var s=t.car;var c=t.cdr;if(s instanceof Ni){o=Fo(Io(s,a));if(gu(o)){return o.then(function(e){return Io(new Ni(e,t.cdr),a)})}else if(!yu(o)){throw new Error(Ao(o)+" "+r.get("repr")(o)+" is not callable while evaluating "+t.toString())}}if(s instanceof Ln){o=r.get(s)}else if(vu(s)){o=s}var f;if(o instanceof fu){f=Co(o,t,a)}else if(o instanceof au){f=ko(o,c,a)}else if(vu(o)){f=So(o,c,a)}else if(mu(o)){f=o.invoke()}else if(t instanceof Ni){o=s&&s.toString();throw new Error("".concat(Ao(s)," ").concat(o," is not a function"))}else{return t}var l=r.get(Symbol["for"]("__promise__"),{throwError:false});if(l===true&&gu(f)){f=f.then(function(e){if(e instanceof Ni&&!o[Pu]){return Io(e,a)}return e});return new Yn(f)}return f}catch(e){u&&u.call(r,e,t)}}var Po=Ro(function(e){return e});var No=Ro(function(e,t){return t});function Ro(_){return function(){var n=O(j.mark(function e(r,n,i){var u,a,o,s,c,f,l,h,p;return j.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:if(i===true){n=i=n||uo}else if(n===true){n=i=uo}else{n=n||uo}u=[];a=Array.isArray(r)?r:ti(r);o=false;s=false;t.prev=5;f=F(a);case 7:t.next=9;return f.next();case 9:if(!(o=!(l=t.sent).done)){t.next=27;break}h=l.value;p=Io(h,{env:n,dynamic_scope:i,error:function e(t,r){if(t&&t.message){if(t.message.match(/^Error:/)){var n=/^(Error:)\s*([^:]+:\s*)/;t.message=t.message.replace(n,"$1 $2")}if(r){if(!(t.__code__ instanceof Array)){t.__code__=[]}t.__code__.push(r.toString(true))}}throw t}});if(gu(p)){t.next=16;break}u.push(_(h,p));t.next=24;break;case 16:t.t0=u;t.t1=_;t.t2=h;t.next=21;return p;case 21:t.t3=t.sent;t.t4=(0,t.t1)(t.t2,t.t3);t.t0.push.call(t.t0,t.t4);case 24:o=false;t.next=7;break;case 27:t.next=33;break;case 29:t.prev=29;t.t5=t["catch"](5);s=true;c=t.t5;case 33:t.prev=33;t.prev=34;if(!(o&&f["return"]!=null)){t.next=38;break}t.next=38;return f["return"]();case 38:t.prev=38;if(!s){t.next=41;break}throw c;case 41:return t.finish(38);case 42:return t.finish(33);case 43:return t.abrupt("return",u);case 44:case"end":return t.stop()}}},e,null,[[5,29,33,43],[34,,38,42]])}));function e(e,t,r){return n.apply(this,arguments)}return e}()}function To(e){var t={"[":"]","(":")"};var r;if(typeof e==="string"){r=Nn(e)}else{r=e.map(function(e){return e&&e.token?e.token:e})}var n=Object.keys(t);var i=Object.values(t).concat(n);r=r.filter(function(e){return i.includes(e)});var u=new On;var a=Cr(r),o;try{for(a.s();!(o=a.n()).done;){var s=o.value;if(n.includes(s)){u.push(s)}else if(!u.is_empty()){var c=u.top();var f=t[c];if(s===f){u.pop()}else{throw new Error("Syntax error: missing closing ".concat(f))}}else{throw new Error("Syntax error: not matched closing ".concat(s))}}}catch(e){a.e(e)}finally{a.f()}return u.is_empty()}function Lo(e){var t="("+e.toString()+")()";var r=window.URL||window.webkitURL;var n;try{n=new Blob([t],{type:"application/javascript"})}catch(e){var i=window.BlobBuilder||window.WebKitBlobBuilder||window.MozBlobBuilder;n=new i;n.append(t);n=n.getBlob()}return new jr.Worker(r.createObjectURL(n))}function Uo(){return ps.version.match(/^(\{\{VER\}\}|DEV)$/)}function qo(){if(lo()){return}var e;if(document.currentScript){e=document.currentScript}else{var t=document.querySelectorAll("script");if(!t.length){return}e=t[t.length-1]}var r=e.getAttribute("src");return r}var Mo=qo();function Yo(){var e=arguments.length>0&&arguments[0]!==undefined?arguments[0]:"";var t="dist/std.xcb";if(e===""){if(Mo){e=Mo.replace(/[^/]*$/,"std.xcb")}else if(Uo()){e="https://cdn.jsdelivr.net/gh/jcubic/lips@devel/".concat(t)}else{e="https://cdn.jsdelivr.net/npm/@jcubic/lips@".concat(ps.version,"/").concat(t)}}var r=io.get("load");return r.call(uo,e,io)}function $o(e){this.url=e;var a=this.worker=Lo(function(){var a;var o;self.addEventListener("message",function(e){var r=e.data;var t=r.id;if(r.type!=="RPC"||t===null){return}function n(e){self.postMessage({id:t,type:"RPC",result:e})}function i(e){self.postMessage({id:t,type:"RPC",error:e})}if(r.method==="eval"){if(!o){i("Worker RPC: LIPS not initilized, call init first");return}o.then(function(){var e=r.params[0];var t=r.params[1];a.exec(e,t).then(function(e){e=e.map(function(e){return e&&e.valueOf()});n(e)})["catch"](function(e){i(e)})})}else if(r.method==="init"){var u=r.params[0];if(typeof u!=="string"){i("Worker RPC: url is not a string")}else{importScripts("".concat(u,"/dist/lips.min.js"));a=new ps.Interpreter("worker");o=Yo(u);o.then(function(){n(true)})}}})});this.rpc=function(){var n=0;return function e(t,r){var u=++n;return new Promise(function(n,i){a.addEventListener("message",function e(t){var r=t.data;if(r&&r.type==="RPC"&&r.id===u){if(r.error){i(r.error)}else{n(r.result)}a.removeEventListener("message",e)}});a.postMessage({type:"RPC",method:t,id:u,params:r})})}}();this.rpc("init",[e])["catch"](function(e){console.error(e)});this.exec=function(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:false;return this.rpc("eval",[e,t])}}var zo={pair:function e(t){var r=A(t,2),n=r[0],i=r[1];return Ni(n,i)},number:function e(t){if(sa.isString(t)){return da([t,10])}return da(t)},regex:function e(t){var r=A(t,2),n=r[0],i=r[1];return new RegExp(n,i)},nil:function e(){return Pi},symbol:function e(t){if(sa.isString(t)){return Ln(t)}else if(Array.isArray(t)){return Ln(Symbol["for"](t[0]))}},string:sa,character:oa};var Vo=Object.keys(zo);var Jo={};for(var Go=0,Ho=Object.entries(Vo);Go1){var n=t.reduce(function(e,t){return e+t.length},0);var i=new Uint8Array(n);var u=0;t.forEach(function(e){i.set(e,u);u+=e.length});return i}else if(t.length){return t[0]}}function is(){var e=1;var t=new TextEncoder("utf-8");return t.encode("LIPS".concat(e.toString().padStart(3," ")))}var us=7;function as(e){var t=new TextDecoder("utf-8");var r=t.decode(e.slice(0,us));var n=r.substring(0,4);if(n==="LIPS"){var i=r.match(/^(....).*([0-9]+)$/);if(i){return{type:i[1],version:Number(i[2])}}}return{type:"unknown"}}function os(e){var t=is();var r=rs.encode(e);return ns(t,br(r,{magic:false}))}function ss(e){var t=as(e),r=t.type,n=t.version;if(r==="LIPS"&&n===1){var i=wr(e.slice(us),{magic:false});return rs.decode(i)}else{throw new Error("Invalid file format ".concat(r))}}function cs(e){console.error(e.message||e);if(e.code){console.error(e.code.map(function(e,t){return"[".concat(t+1,"]: ").concat(e)}))}}function fs(){var a=["text/x-lips","text/x-scheme"];var o;function s(r){return new Promise(function(t){var e=r.getAttribute("src");if(e){return fetch(e).then(function(e){return e.text()}).then(No).then(t)["catch"](function(e){cs(e);t()})}else{return No(r.innerHTML).then(t)["catch"](function(e){cs(e);t()})}})}function e(){return new Promise(function(i){var u=Array.from(document.querySelectorAll("script"));return function e(){var t=u.shift();if(!t){i()}else{var r=t.getAttribute("type");if(a.includes(r)){var n=t.getAttribute("bootstrap");if(!o&&typeof n==="string"){return Yo(n).then(function(){return s(t)}).then(e)}else{return s(t).then(e)}}else if(r&&r.match(/lips|lisp/)){console.warn("Expecting "+a.join(" or ")+" found "+r)}return e()}}()})}if(!window.document){return Promise.resolve()}else if(ls){var t=ls;var r=t.getAttribute("bootstrap");if(typeof r==="string"){return Yo(r).then(function(){o=true;return e()})}}return e()}var ls=typeof window!=="undefined"&&window.document&&document.currentScript;if(typeof window!=="undefined"){Ur(window,fs)}var hs=function(){var e=sa("Mon, 15 Nov 2021 19:33:52 +0000").valueOf();var t=e==="{{"+"DATE}}"?new Date:new Date(e);var r=function e(t){return t.toString().padStart(2,"0")};var n=t.getFullYear();var i=[n,r(t.getMonth()+1),r(t.getDate())].join("-");var u="\n __ __ __\n / / \\ \\ _ _ ___ ___ \\ \\\n| | \\ \\ | | | || . \\/ __> | |\n| | > \\ | |_ | || _/\\__ \\ | |\n| | / ^ \\ |___||_||_| <___/ | |\n \\_\\ /_/ \\_\\ /_/\n\nLIPS Interpreter 1.0.0-beta.16 (".concat(i,") \nCopyright (c) 2018-").concat(n," Jakub T. Jankiewicz\n\nType (env) to see environment with functions macros and variables. You can also\nuse (help name) to display help for specic function or macro, (apropos name)\nto display list of matched names in environment and (dir object) to list\nproperties of an object.\n").replace(/^.*\n/,"");return u}();ai(di,"__class__","ahead");ai(Ni,"__class__","pair");ai(Ii,"__class__","nil");ai(vi,"__class__","pattern");ai(_i,"__class__","formatter");ai(au,"__class__","macro");ai(fu,"__class__","syntax");ai(Ga,"__class__","environment");ai(Sa,"__class__","input-port");ai(Ba,"__class__","output-port");ai(ja,"__class__","output-port");ai(Ia,"__class__","output-string-port");ai(Na,"__class__","input-string-port");ai(La,"__class__","input-file-port");ai(Pa,"__class__","output-file-port");ai(Ja,"__class__","lips-error");[da,Da,ka,Ea,Oa].forEach(function(e){ai(e,"__class__","number")});ai(oa,"__class__","character");ai(Ln,"__class__","symbol");ai(sa,"__class__","string");ai(Yn,"__class__","promise");var ps={version:"1.0.0-beta.16",banner:hs,date:"Mon, 15 Nov 2021 19:33:52 +0000",exec:No,parse:Xu(oi,ti),tokenize:Nn,evaluate:Io,compile:Po,serialize:es,unserialize:ts,serialize_bin:os,unserialize_bin:ss,bootstrap:Yo,Environment:Ga,env:uo,Worker:$o,Interpreter:Va,balanced_parenthesis:To,balancedParenthesis:To,balanced:To,Macro:au,Syntax:fu,Pair:Ni,Values:Wa,QuotedPromise:Yn,Error:Ja,quote:Qa,InputPort:Sa,OutputPort:Ba,BufferedOutputPort:ja,InputFilePort:La,OutputFilePort:Pa,InputStringPort:Na,OutputStringPort:Ia,InputByteVectorPort:Ra,OutputByteVectorPort:Ta,InputBinaryFilePort:Ua,OutputBinaryFilePort:qa,Formatter:_i,Parser:Xn,Lexer:Zn,specials:Jn,repr:Ti,nil:Pi,eof:$a,LSymbol:Ln,LNumber:da,LFloat:Ea,LComplex:Da,LRational:ka,LBigInteger:Oa,LCharacter:oa,LString:sa,rationalize:xa};io.set("lips",ps);var _s={};var ds=Object.freeze({__proto__:null,default:_s});function vs(e,t){var r=0;for(var n=e.length-1;n>=0;n--){var i=e[n];if(i==="."){e.splice(n,1)}else if(i===".."){e.splice(n,1);r++}else if(r){e.splice(n,1);r--}}if(t){for(;r--;r){e.unshift("..")}}return e}var ms=/^(\/?|)([\s\S]*?)((?:\.{1,2}|[^\/]+?|)(\.[^.\/]*|))(?:[\/]*)$/;var ys=function(e){return ms.exec(e).slice(1)};function gs(){var e="",t=false;for(var r=arguments.length-1;r>=-1&&!t;r--){var n=r>=0?arguments[r]:"/";if(typeof n!=="string"){throw new TypeError("Arguments to path.resolve must be strings")}else if(!n){continue}e=n+"/"+e;t=n.charAt(0)==="/"}e=vs(Ss(e.split("/"),function(e){return!!e}),!t).join("/");return(t?"/":"")+e||"."}function bs(e){var t=ws(e),r=Bs(e,-1)==="/";e=vs(Ss(e.split("/"),function(e){return!!e}),!t).join("/");if(!e&&!t){e="."}if(e&&r){e+="/"}return(t?"/":"")+e}function ws(e){return e.charAt(0)==="/"}function Ds(){var e=Array.prototype.slice.call(arguments,0);return bs(Ss(e,function(e,t){if(typeof e!=="string"){throw new TypeError("Arguments to path.join must be strings")}return e}).join("/"))}function Es(e,t){e=gs(e).substr(1);t=gs(t).substr(1);function r(e){var t=0;for(;t=0;r--){if(e[r]!=="")break}if(t>r)return[];return e.slice(t,r-t+1)}var n=r(e.split("/"));var i=r(t.split("/"));var u=Math.min(n.length,i.length);var a=u;for(var o=0;o=t.length)return{done:true};return{done:false,value:t[n++]}},e:function e(t){throw t},f:i}}throw new TypeError("Invalid attempt to iterate non-iterable instance.\nIn order to be iterable, non-array objects must have a [Symbol.iterator]() method.")}var u=true,a=false,o;return{s:function e(){r=r.call(t)},n:function e(){var t=r.next();u=t.done;return t},e:function e(t){a=true;o=t},f:function e(){try{if(!u&&r["return"]!=null)r["return"]()}finally{if(a)throw o}}}}function pn(e,t){if(!e)return;if(typeof e==="string")return _n(e,t);var r=Object.prototype.toString.call(e).slice(8,-1);if(r==="Object"&&e.constructor)r=e.constructor.name;if(r==="Map"||r==="Set")return Array.from(e);if(r==="Arguments"||/^(?:Ui|I)nt(?:8|16|32)(?:Clamped)?Array$/.test(r))return _n(e,t)}function _n(e,t){if(t==null||t>e.length)t=e.length;for(var r=0,n=new Array(t);r1&&arguments[1]!==undefined?arguments[1]:null;var n=arguments[1]===true;function t(e){if(!Cn()){return}var t=qo.get("repr")(e);if(r===null||r instanceof RegExp&&r.test(t)){console.log(qo.get("type")(e)+": "+t)}if(n){console.log(e)}}if(ra(e)){e.then(t)}else{t(e)}return e}function Cn(){return Yo&&Yo.get("DEBUG",{throwError:false})}function On(e){return e?"(?:#".concat(e,"(?:#[ie])?|#[ie]#").concat(e,")"):"(?:#[ie])?"}function Sn(e,t){return"".concat(On(e),"[+-]?").concat(t,"+/").concat(t,"+")}function Bn(e,t){return"".concat(On(e),"(?:[+-]?(?:").concat(t,"+/").concat(t,"+|nan.0|inf.0|").concat(t,"+))?(?:[+-]i|[+-]?(?:").concat(t,"+/").concat(t,"+|").concat(t,"+|nan.0|inf.0)i)(?=[()[\\]\\s]|$)")}function jn(e,t){return"".concat(On(e),"[+-]?").concat(t,"+")}var In=/^#\/((?:\\\/|[^/]|\[[^\]]*\/[^\]]*\])+)\/([gimyus]*)$/;var Pn="(?:[-+]?(?:[0-9]+(?:[eE][-+]?[0-9]+)|(?:\\.[0-9]+|[0-9]+\\.[0-9]+)(?:[eE][-+]?[0-9]+)?)|[0-9]+\\.)";var Nn="(?:#[ie])?(?:[+-]?(?:[0-9]+/[0-9]+|nan.0|inf.0|".concat(Pn,"|[+-]?[0-9]+))?(?:").concat(Pn,"|[+-](?:[0-9]+/[0-9]+|[0-9]+|nan.0|inf.0))i");var Rn=new RegExp("^(#[ie])?".concat(Pn,"$"),"i");function Tn(e,t){var r=e==="x"?"(?!\\+|".concat(t,")"):"(?!\\.|".concat(t,")");var n="";if(e===""){n="(?:[-+]?(?:[0-9]+(?:[eE][-+]?[0-9]+)|(?:\\.[0-9]+|[0-9]+\\.[0-9]+(?![0-9]))(?:[eE][-+]?[0-9]+)?))"}return new RegExp("^((?:(?:".concat(n,"|[-+]?inf.0|[-+]?nan.0|[+-]?").concat(t,"+/").concat(t,"+(?!").concat(t,")|[+-]?").concat(t,"+)").concat(r,")?)(").concat(n,"|[-+]?inf.0|[-+]?nan.0|[+-]?").concat(t,"+/").concat(t,"+|[+-]?").concat(t,"+|[+-])i$"),"i")}var Ln=function(){var u={};[[10,"","[0-9]"],[16,"x","[0-9a-fA-F]"],[8,"o","[0-7]"],[2,"b","[01]"]].forEach(function(e){var t=j(e,3),r=t[0],n=t[1],i=t[2];u[r]=Tn(n,i)});return u}();var Un={alarm:"",backspace:"\b",delete:"",escape:"",newline:"\n",null:"\0",return:"\r",space:" ",tab:"\t",dle:"",soh:"",dc1:"",stx:"",dc2:"",etx:"",dc3:"",eot:"",dc4:"",enq:"",nak:"",ack:"",syn:"",bel:"",etb:"",bs:"\b",can:"",ht:"\t",em:"",lf:"\n",sub:"",vt:"\v",esc:"",ff:"\f",fs:"",cr:"\r",gs:"",so:"",rs:"",si:"",us:"",del:""};function Mn(e){var t=[];var r=0;var n=e.length;while(r=55296&&i<=56319&&r1&&arguments[1]!==undefined?arguments[1]:10;var r=ei(e);var n=r.number.split("/");var i=fo({num:C([n[0],r.radix||t]),denom:C([n[1],r.radix||t])});if(r.inexact){return i.valueOf()}else{return i}}function ri(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:10;var r=ei(e);if(r.inexact){return uo(parseInt(r.number,r.radix||t))}return C([r.number,r.radix||t])}function ni(e){var t=e.match(/#\\x([0-9a-f]+)$/i);var r;if(t){var n=parseInt(t[1],16);r=String.fromCodePoint(n)}else{t=e.match(/#\\(.+)$/);if(t){r=t[1]}}if(r){return za(r)}throw new Error("Parse: invalid character")}function ii(e){var i=arguments.length>1&&arguments[1]!==undefined?arguments[1]:10;function t(e){var t;if(e==="+"){t=C(1)}else if(e==="-"){t=C(-1)}else if(e.match(Hn)){t=C([e,i])}else if(e.match(Wn)){var r=e.split("/");t=fo({num:C([r[0],i]),denom:C([r[1],i])})}else if(e.match(Rn)){var n=oi(e);if(u.exact){return n.toRational()}return n}else if(e.match(/nan.0$/)){return C(NaN)}else if(e.match(/inf.0$/)){if(e[0]==="-"){return C(Number.NEGATIVE_INFINITY)}return C(Number.POSITIVE_INFINITY)}else{throw new Error("Internal Parser Error")}if(u.inexact){return uo(t.valueOf())}return t}var u=ei(e);i=u.radix||i;var r;var n=u.number.match(Zn);if(i!==10&&n){r=n}else{r=u.number.match(Ln[i])}var a,o;o=t(r[2]);if(r[1]){a=t(r[1])}else{a=C(0)}if(o.cmp(0)===0&&o.__type__==="bigint"){return a}return io({im:o,re:a})}function ui(e){return parseInt(e.toString(),10)===e}function ai(e){var t=e.match(/^(([-+]?[0-9]*)(?:\.([0-9]+))?)e([-+]?[0-9]+)/i);if(t){var r=parseInt(t[4],10);var n;var i=t[1].replace(/[-+]?([0-9]*)\..+$/,"$1").length;var u=t[3]&&t[3].length;if(i0){return C(u).mul(o)}}}r=uo(r);if(t.exact){return r.toRational()}return r}function si(e){e=e.replace(/\\x([0-9a-f]+);/gi,function(e,t){return"\\u"+t.padStart(4,"0")}).replace(/\n/g,"\\n");var t=e.match(/(\\*)(\\x[0-9A-F])/i);if(t&&t[1].length%2===0){throw new Error("Invalid string literal, unclosed ".concat(t[2]))}try{return $a(JSON.parse(e))}catch(e){var r=e.message.replace(/in JSON /,"").replace(/.*Error: /,"");throw new Error("Invalid string literal: ".concat(r))}}function ci(e){if(e.match(/^\|.*\|$/)){e=e.replace(/(^\|)|(\|$)/g,"");var r={t:"\t",r:"\r",n:"\n"};e=e.replace(/\\(x[^;]+);/g,function(e,t){return String.fromCharCode(parseInt("0"+t,16))}).replace(/\\(.)/g,function(e,t){return r[t]||t})}return new L(e)}function fi(e){if(Mo.hasOwnProperty(e)){return Mo[e]}if(e.match(/^"[\s\S]*"$/)){return si(e)}else if(e[0]==="#"){var t=e.match(In);if(t){return new RegExp(t[1],t[2])}else if(e.match(Vn)){return ni(e)}var r=e.match(/#\\(.+)/);if(r&&Mn(r[1]).length===1){return ni(e)}}if(e.match(/[0-9a-f]|[+-]i/i)){if(e.match(Gn)){return ri(e)}else if(e.match(Rn)){return oi(e)}else if(e.match(Kn)){return ti(e)}else if(e.match(Jn)){return ii(e)}}if(e.match(/^#[iexobd]/)){throw new Error("Invalid numeric constant: "+e)}return ci(e)}function li(e){return!(["(",")","[","]"].includes(e)||Bi.names().includes(e))}function hi(e){return li(e)&&!(e.match(In)||e.match(/^"[\s\S]*"$/)||e.match(Gn)||e.match(Rn)||e.match(Jn)||e.match(Kn)||e.match(Vn)||["#t","#f","nil","true","false"].includes(e))}var pi=/"(?:\\[\S\s]|[^"])*"?/g;function _i(e){if(typeof e==="string"){var t=/([-\\^$[\]()+{}?*.|])/g;return e.replace(t,"\\$1")}return e}function di(){this.data=[]}di.prototype.push=function(e){this.data.push(e)};di.prototype.top=function(){return this.data[this.data.length-1]};di.prototype.pop=function(){return this.data.pop()};di.prototype.is_empty=function(){return!this.data.length};function vi(e){if(e instanceof $a){e=e.valueOf()}var t=new s(e,{whitespace:true});var r=[];while(true){var n=t.peek(true);if(n===Fo){break}r.push(n);t.skip()}return r}function yi(e){var t=e.token,r=F(e,sn);if(t.match(/^"[\s\S]*"$/)&&t.match(/\n/)){var n=new RegExp("^ {1,"+(e.col+1)+"}","mg");t=t.replace(n,"")}return vn({token:t},r)}function mi(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:function(){};this.fn=e;this.cont=t}mi.prototype.toString=function(){return"#"};function gi(n){return function(){for(var e=arguments.length,t=new Array(e),r=0;r1&&arguments[1]!==undefined?arguments[1]:false;if(e instanceof $a){e=e.toString()}if(t){return vi(e)}else{var r=vi(e).map(function(e){if(e.token==="#\\ "){return e.token}return e.token.trim()}).filter(function(e){return e&&!e.match(/^;/)&&!e.match(/^#\|[\s\S]*\|#$/)});return Di(r)}}function Di(e){var t=0;var r=null;var n=[];for(var i=0;i0&&arguments[0]!==undefined?arguments[0]:null;if(e instanceof L){if(e.is_gensym()){return e}e=e.valueOf()}if(xi(e)){return L(e)}if(e!==null){return r(e,Symbol("#:".concat(e)))}t++;return r(t,Symbol("#:g".concat(t)))}}();function ki(e){var r=this;var n={pending:true,rejected:false,fulfilled:false,reason:undefined,type:undefined};e=e.then(function(e){n.type=us(e);n.fulfilled=true;n.pending=false;return e});$i(this,"_promise",e,{hidden:true});if(Xu(e["catch"])){e=e["catch"](function(e){n.rejected=true;n.pending=false;n.reason=e})}Object.keys(n).forEach(function(t){Object.defineProperty(r,"__".concat(t,"__"),{enumerable:true,get:function e(){return n[t]}})});$i(this,"__promise__",e);this.then=false}ki.prototype.then=function(e){return new ki(this.valueOf().then(e))};ki.prototype["catch"]=function(e){return new ki(this.valueOf()["catch"](e))};ki.prototype.valueOf=function(){if(!this._promise){throw new Error("QuotedPromise: invalid promise created")}return this._promise};ki.prototype.toString=function(){if(this.__pending__){return ki.pending_str}if(this.__rejected__){return ki.rejected_str}return"#")};ki.pending_str="#";ki.rejected_str="#";function Ci(e){if(Array.isArray(e)){return Promise.all(Oi(e)).then(Si)}return e}function Oi(e){var t=new Array(e.length),r=e.length;while(r--){var n=e[r];if(n instanceof ki){t[r]=new Bo(n)}else{t[r]=n}}return t}function Si(e){var t=new Array(e.length),r=e.length;while(r--){var n=e[r];if(n instanceof Bo){t[r]=n.valueOf()}else{t[r]=n}}return t}var Bi={LITERAL:Symbol["for"]("literal"),SPLICE:Symbol["for"]("splice"),SYMBOL:Symbol["for"]("symbol"),names:function e(){return Object.keys(this.__list__)},type:function e(t){return this.get(t).type},get:function e(t){return this.__list__[t]},off:function e(t){var r=this;var n=arguments.length>1&&arguments[1]!==undefined?arguments[1]:null;if(Array.isArray(t)){t.forEach(function(e){return r.off(e,n)})}else if(n===null){delete this.__events__[t]}else{this.__events__=this.__events__.filter(function(e){return e!==n})}},on:function e(t,r){var n=this;if(Array.isArray(t)){t.forEach(function(e){return n.on(e,r)})}else if(!this.__events__[t]){this.__events__[t]=[r]}else{this.__events__[t].push(r)}},trigger:function e(t){for(var r=arguments.length,n=new Array(r>1?r-1:0),i=1;i",new L("quote-promise"),Bi.LITERAL]];var Ri=Ni.map(function(e){return e[0]});Object.freeze(Ri);Object.defineProperty(Bi,"__builtins__",{writable:false,value:Ri});Ni.forEach(function(e){var t=j(e,3),r=t[0],n=t[1],i=t[2];Bi.append(r,n,i)});var s=function(){function p(e){var t=this;var r=arguments.length>1&&arguments[1]!==undefined?arguments[1]:{},n=r.whitespace,i=n===void 0?false:n;D(this,p);$i(this,"__input__",e.replace(/\r/g,""));var u={};["_i","_whitespace","_col","_newline","_line","_state","_next","_token","_prev_char"].forEach(function(r){Object.defineProperty(t,r,{configurable:false,enumerable:false,get:function e(){return u[r]},set:function e(t){u[r]=t}})});this._whitespace=i;this._i=this._line=this._col=this._newline=0;this._state=this._next=this._token=null;this._prev_char=""}A(p,[{key:"get",value:function e(t){return this.__internal[t]}},{key:"set",value:function e(t,r){this.__internal[t]=r}},{key:"token",value:function e(){var t=arguments.length>0&&arguments[0]!==undefined?arguments[0]:false;if(t){var r=this._line;if(this._whitespace&&this._token==="\n"){--r}return{token:this._token,col:this._col,offset:this._i,line:r}}return this._token}},{key:"peek",value:function e(){var t=arguments.length>0&&arguments[0]!==undefined?arguments[0]:false;if(this._i>=this.__input__.length){return Fo}if(this._token){return this.token(t)}var r=this.next_token();if(r){this._token=this.__input__.substring(this._i,this._next);return this.token(t)}return Fo}},{key:"skip",value:function e(){if(this._next!==null){this._token=null;this._i=this._next}}},{key:"read_line",value:function e(){var t=this.__input__.length;if(this._i>=t){return Fo}for(var r=this._i;r=r){return Fo}if(t+this._i>=r){return this.read_rest()}var n=this._i+t;var i=this.__input__.substring(this._i,n);var u=i.match(/\n/g);if(u){this._line+=u.length}this._i=n;return i}},{key:"peek_char",value:function e(){if(this._i>=this.__input__.length){return Fo}return za(this.__input__[this._i])}},{key:"read_char",value:function e(){var t=this.peek_char();this.skip_char();return t}},{key:"skip_char",value:function e(){if(this._i1&&arguments[1]!==undefined?arguments[1]:{},r=t.prev_char,n=t["char"],i=t.next_char;var u=j(e,4),a=u[0],o=u[1],s=u[2],f=u[3];if(e.length!==5){throw new Error("Lexer: Invalid rule of length ".concat(e.length))}if(!n.match(a)){return false}if(!Ti(o,r)){return false}if(!Ti(s,i)){return false}if(f!==this._state){return false}return true}},{key:"next_token",value:function f(){if(this._i>=this.__input__.length){return false}var e=true;e:for(var t=this._i,r=this.__input__.length;t2&&arguments[2]!==undefined?arguments[2]:null;var i=arguments.length>3&&arguments[3]!==undefined?arguments[3]:null;if(t.length===0){throw new Error("Lexer: invalid literal rule")}if(t.length===1){return[[t,n,i,null,null]]}var u=[];for(var a=0,o=t.length;a1&&arguments[1]!==undefined?arguments[1]:{},r=t.env,n=t.meta,i=n===void 0?false:n,u=t.formatter,a=u===void 0?yi:u;D(this,o);if(e instanceof $a){e=e.toString()}$i(this,"_formatter",a,{hidden:true});$i(this,"__lexer__",new s(e));$i(this,"__env__",r);$i(this,"_meta",i,{hidden:true});$i(this,"_refs",[],{hidden:true});$i(this,"_state",{parentheses:0},{hidden:true})}A(o,[{key:"resolve",value:function e(t){return this.__env__&&this.__env__.get(t,{throwError:false})}},{key:"peek",value:function(){var e=B(z.mark(function e(){var r;return z.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:r=this.__lexer__.peek(true);if(!(r===Fo)){t.next=4;break}return t.abrupt("return",Fo);case 4:if(!this.is_comment(r.token)){t.next=7;break}this.skip();return t.abrupt("continue",0);case 7:if(!(r.token==="#;")){t.next=14;break}this.skip();if(!(this.__lexer__.peek()===Fo)){t.next=11;break}throw new Error("Lexer: syntax error eof found after comment");case 11:t.next=13;return this._read_object();case 13:return t.abrupt("continue",0);case 14:return t.abrupt("break",17);case 17:r=this._formatter(r);if(!this._meta){t.next=20;break}return t.abrupt("return",r);case 20:return t.abrupt("return",r.token);case 21:case"end":return t.stop()}}},e,this)}));function t(){return e.apply(this,arguments)}return t}()},{key:"reset",value:function e(){this._refs.length=0}},{key:"skip",value:function e(){this.__lexer__.skip()}},{key:"read",value:function(){var e=B(z.mark(function e(){var r;return z.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:t.next=2;return this.peek();case 2:r=t.sent;this.skip();return t.abrupt("return",r);case 5:case"end":return t.stop()}}},e,this)}));function t(){return e.apply(this,arguments)}return t}()},{key:"match_datum_label",value:function e(t){var r=t.match(/^#([0-9]+)=$/);return r&&r[1]}},{key:"match_datum_ref",value:function e(t){var r=t.match(/^#([0-9]+)#$/);return r&&r[1]}},{key:"is_open",value:function e(t){var r=["(","["].includes(t);if(r){this._state.parentheses++}return r}},{key:"is_close",value:function e(t){var r=[")","]"].includes(t);if(r){this._state.parentheses--}return r}},{key:"read_list",value:function(){var e=B(z.mark(function e(){var r,n,i,u;return z.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:r=U,n=r;case 1:t.next=4;return this.peek();case 4:i=t.sent;if(!(i===Fo)){t.next=7;break}return t.abrupt("break",27);case 7:if(!this.is_close(i)){t.next=10;break}this.skip();return t.abrupt("break",27);case 10:if(!(i==="."&&r!==U)){t.next=17;break}this.skip();t.next=14;return this._read_object();case 14:n.cdr=t.sent;t.next=25;break;case 17:t.t0=M;t.next=20;return this._read_object();case 20:t.t1=t.sent;t.t2=U;u=new t.t0(t.t1,t.t2);if(r===U){r=u}else{n.cdr=u}n=u;case 25:t.next=1;break;case 27:return t.abrupt("return",r);case 28:case"end":return t.stop()}}},e,this)}));function t(){return e.apply(this,arguments)}return t}()},{key:"read_value",value:function(){var e=B(z.mark(function e(){var r;return z.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:t.next=2;return this.read();case 2:r=t.sent;if(!(r===Fo)){t.next=5;break}throw new Error("Parser: Expected token eof found");case 5:return t.abrupt("return",fi(r));case 6:case"end":return t.stop()}}},e,this)}));function t(){return e.apply(this,arguments)}return t}()},{key:"is_comment",value:function e(t){return t.match(/^;/)||t.match(/^#\|/)&&t.match(/\|#$/)}},{key:"evaluate",value:function e(t){return _s(t,{env:this.__env__,error:function e(t){throw t}})}},{key:"read_object",value:function(){var e=B(z.mark(function e(){var r;return z.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:this.reset();t.next=3;return this._read_object();case 3:r=t.sent;if(r instanceof Ui){r=r.valueOf()}if(!this._refs.length){t.next=7;break}return t.abrupt("return",this._resolve_object(r));case 7:return t.abrupt("return",r);case 8:case"end":return t.stop()}}},e,this)}));function t(){return e.apply(this,arguments)}return t}()},{key:"balanced",value:function e(){return this._state.parentheses===0}},{key:"ballancing_error",value:function e(t){var r=this._state.parentheses;var n=new Error("Parser: expected parenthesis but eof found");var i=new RegExp("\\){".concat(r,"}$"));n.__code__=[t.toString().replace(i,"")];throw n}},{key:"_resolve_object",value:function(){var t=B(z.mark(function e(r){var n=this;var i;return z.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:if(!Array.isArray(r)){t.next=2;break}return t.abrupt("return",r.map(function(e){return n._resolve_object(e)}));case 2:if(!wu(r)){t.next=6;break}i={};Object.keys(r).forEach(function(e){i[e]=n._resolve_object(r[e])});return t.abrupt("return",i);case 6:if(!(r instanceof M)){t.next=8;break}return t.abrupt("return",this._resolve_pair(r));case 8:return t.abrupt("return",r);case 9:case"end":return t.stop()}}},e,this)}));function e(e){return t.apply(this,arguments)}return e}()},{key:"_resolve_pair",value:function(){var t=B(z.mark(function e(r){return z.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:if(!(r instanceof M)){t.next=15;break}if(!(r.car instanceof Ui)){t.next=7;break}t.next=4;return r.car.valueOf();case 4:r.car=t.sent;t.next=8;break;case 7:this._resolve_pair(r.car);case 8:if(!(r.cdr instanceof Ui)){t.next=14;break}t.next=11;return r.cdr.valueOf();case 11:r.cdr=t.sent;t.next=15;break;case 14:this._resolve_pair(r.cdr);case 15:return t.abrupt("return",r);case 16:case"end":return t.stop()}}},e,this)}));function e(e){return t.apply(this,arguments)}return e}()},{key:"_read_object",value:function(){var e=B(z.mark(function e(){var r,n,i,u,a,o,s,c,f;return z.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:t.next=2;return this.peek();case 2:r=t.sent;if(!(r===Fo)){t.next=5;break}return t.abrupt("return",r);case 5:if(!ji(r)){t.next=39;break}n=Bi.get(r);i=Ii(r);this.skip();t.next=11;return this._read_object();case 11:a=t.sent;if(i){t.next=26;break}o=this.__env__.get(n.symbol);if(!(typeof o==="function")){t.next=26;break}if(!Pi(r)){t.next=19;break}return t.abrupt("return",o.call(this.__env__,a));case 19:if(!(a===U)){t.next=23;break}return t.abrupt("return",o.apply(this.__env__));case 23:if(!(a instanceof M)){t.next=25;break}return t.abrupt("return",o.apply(this.__env__,a.to_array(false)));case 25:throw new Error("Parse Error: Invalid parser extension "+"invocation ".concat(n.symbol));case 26:if(Pi(r)){u=new M(n.symbol,new M(a,U))}else{u=new M(n.symbol,a)}if(!i){t.next=29;break}return t.abrupt("return",u);case 29:if(!(o instanceof Vu)){t.next=38;break}t.next=32;return this.evaluate(u);case 32:s=t.sent;if(!(s instanceof M||s instanceof L)){t.next=35;break}return t.abrupt("return",M.fromArray([L("quote"),s]));case 35:return t.abrupt("return",s);case 38:throw new Error("Parse Error: invalid parser extension: "+n.symbol);case 39:c=this.match_datum_ref(r);if(!(c!==null)){t.next=45;break}this.skip();if(!this._refs[c]){t.next=44;break}return t.abrupt("return",new Ui(c,this._refs[c]));case 44:throw new Error("Parse Error: invalid datum label #".concat(c,"#"));case 45:f=this.match_datum_label(r);if(!(f!==null)){t.next=52;break}this.skip();this._refs[f]=this._read_object();return t.abrupt("return",this._refs[f]);case 52:if(!this.is_open(r)){t.next=57;break}this.skip();return t.abrupt("return",this.read_list());case 57:return t.abrupt("return",this.read_value());case 58:case"end":return t.stop()}}},e,this)}));function t(){return e.apply(this,arguments)}return t}()}]);return o}();var Ui=function(){function r(e,t){D(this,r);this.name=e;this.data=t}A(r,[{key:"valueOf",value:function e(){return this.data}}]);return r}();function Mi(e,t){return qi.apply(this,arguments)}function qi(){qi=e(z.mark(function e(r,n){var i,u;return z.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:if(!n){if(qo){n=qo.get("**interaction-environment**",{throwError:false})}else{n=Yo}}i=new Li(r,{env:n});case 2:t.next=5;return P(i.read_object());case 5:u=t.sent;if(!i.balanced()){i.ballancing_error(u)}if(!(u===Fo)){t.next=9;break}return t.abrupt("break",13);case 9:t.next=11;return u;case 11:t.next=2;break;case 13:case"end":return t.stop()}}},e)}));return qi.apply(this,arguments)}function Yi(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:function(e){return e};var r=arguments.length>2&&arguments[2]!==undefined?arguments[2]:null;if(ra(e)){var n=e.then(t);if(r===null){return n}else{return n["catch"](r)}}if(e instanceof Array){return Vi(e,t,r)}if(wu(e)){return zi(e,t,r)}return t(e)}function Vi(t,r,e){if(t.find(ra)){return Yi(Ci(t),function(e){if(Object.isFrozen(t)){Object.freeze(e)}return r(e)},e)}return r(t)}function zi(t,e,r){var i=Object.keys(t);var n=[],u=[];var a=i.length;while(a--){var o=i[a];var s=t[o];n[a]=s;if(ra(s)){u.push(s)}}if(u.length){return Yi(Ci(n),function(e){var n={};e.forEach(function(e,t){var r=i[t];n[r]=e});if(Object.isFrozen(t)){Object.freeze(n)}return n},r)}return e(t)}function $i(e,t,r){var n=arguments.length>3&&arguments[3]!==undefined?arguments[3]:{},i=n.hidden,u=i===void 0?false:i;Object.defineProperty(e,t,{value:r,configurable:true,enumerable:!u})}function Ji(e){return Ki.apply(this,arguments)}function Ki(){Ki=B(z.mark(function e(r){var n,i,u,a,o,s,c;return z.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:n=[];i=false;u=false;t.prev=3;o=yn(r);case 5:t.next=7;return o.next();case 7:if(!(i=!(s=t.sent).done)){t.next=13;break}c=s.value;n.push(c);case 10:i=false;t.next=5;break;case 13:t.next=19;break;case 15:t.prev=15;t.t0=t["catch"](3);u=true;a=t.t0;case 19:t.prev=19;t.prev=20;if(!(i&&o["return"]!=null)){t.next=24;break}t.next=24;return o["return"]();case 24:t.prev=24;if(!u){t.next=27;break}throw a;case 27:return t.finish(24);case 28:return t.finish(19);case 29:return t.abrupt("return",n);case 30:case"end":return t.stop()}}},e,null,[[3,15,19,29],[20,,24,28]])}));return Ki.apply(this,arguments)}function Gi(e,t){if(t instanceof RegExp){return function(e){return String(e).match(t)}}else if(Xu(t)){return t}throw new Error("Invalid matcher")}function y(e,t,r,n){if(typeof e!=="string"){t=arguments[0];r=arguments[1];n=arguments[2];e=null}if(r){if(n){t.__doc__=r}else{t.__doc__=Hi(r)}}if(e){t.__name__=e}else if(t.name&&!Ca(t)){t.__name__=t.name}return t}function Hi(e){return e.split("\n").map(function(e){return e.trim()}).join("\n")}function Wi(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:1;var r=e.length;if(t<=0){throw Error("previousSexp: Invalid argument sexp = ".concat(t))}e:while(t--&&r>=0){var n=1;while(n>0){var i=e[--r];if(!i){break e}if(i==="("||i.token==="("){n--}else if(i===")"||i.token===")"){n++}}r--}return e.slice(r+1)}function Qi(e){if(!e||!e.length){return 0}var t=e.length;if(e[t-1].token==="\n"){return 0}while(--t){if(e[t].token==="\n"){var r=(e[t+1]||{}).token;if(r){return r.length}}}return 0}function Zi(e,t){return f(e,t)===t.length;function f(r,n){function e(e,t){var r=hn(e),n;try{for(r.s();!(n=r.n()).done;){var i=n.value;var u=f(i,t);if(u!==-1){return u}}}catch(e){r.e(e)}finally{r.f()}return-1}function t(){return r[u]===Symbol["for"]("symbol")&&!hi(n[o])}function i(){var e=r[u+1];var t=n[o+1];if(e!==undefined&&t!==undefined){return f([e],[t])}}var u=0;var a={};for(var o=0;o0){continue}}else if(t()){return-1}}else if(r[u]instanceof Array){var c=f(r[u],n.slice(o));if(c===-1||c+o>n.length){return-1}o+=c-1;u++;continue}else{return-1}u++}if(r.length!==u){return-1}return n.length}}function Xi(e){this.__code__=e.replace(/\r/g,"")}Xi.defaults={offset:0,indent:2,exceptions:{specials:[/^(?:#:)?(?:define(?:-values|-syntax|-macro|-class|-record-type)?|(?:call-with-(?:input-file|output-file|port))|lambda|let-env|try|catch|when|unless|while|syntax-rules|(let|letrec)(-syntax|\*)?)$/],shift:{1:["&","#"]}}};Xi.match=Zi;Xi.prototype._options=function e(t){var r=Xi.defaults;if(typeof t==="undefined"){return Object.assign({},r)}var n=t&&t.exceptions||{};var i=n.specials||[];var u=n.shift||{1:[]};return vn(vn(vn({},r),t),{},{exceptions:{specials:[].concat(q(r.exceptions.specials),q(i)),shift:vn(vn({},u),{},{1:[].concat(q(r.exceptions.shift[1]),q(u[1]))})}})};Xi.prototype.indent=function e(t){var r=wi(this.__code__,true);return this._indent(r,t)};Xi.exception_shift=function(u,e){function t(e){if(!e.length){return false}if(e.indexOf(u)!==-1){return true}else{var t=e.filter(function(e){return e instanceof RegExp});if(!t.length){return false}var r=hn(t),n;try{for(r.s();!(n=r.n()).done;){var i=n.value;if(u.match(i)){return true}}}catch(e){r.e(e)}finally{r.f()}}return false}if(t(e.exceptions.specials)){return e.indent}var r=e.exceptions.shift;for(var n=0,i=Object.entries(r);n0){t.offset=0}if(n.toString()===e.toString()&&ms(n)){return t.offset+n[0].col}else if(n.length===1){return t.offset+n[0].col+1}else{var u=-1;if(i){var a=Xi.exception_shift(i.token,t);if(a!==-1){u=a}}if(u===-1){u=Xi.exception_shift(n[1].token,t)}if(u!==-1){return t.offset+n[0].col+u}else if(n[0].line3&&n[1].line===n[3].line){if(n[1].token==="("||n[1].token==="["){return t.offset+n[1].col}return t.offset+n[3].col}else if(n[0].line===n[1].line){return t.offset+t.indent+n[0].col}else{var o=n.slice(2);for(var s=0;s")};eu.prototype.match=function(e){return e.match(this.pattern)};function tu(){for(var e=arguments.length,t=new Array(e),r=0;r")};Xi.Pattern=tu;Xi.Ahead=eu;var ru=/^[[(]$/;var nu=/^[\])]$/;var iu=/[^()[\]]/;var uu=new eu(/[^)\]]/);var au=Symbol["for"]("*");var ou=new tu([ru,au,nu],[iu],"+");var su=new tu([ru,au,nu],"+");var cu=new tu([Symbol["for"]("symbol")],"?");var fu=new tu([Symbol["for"]("symbol")],"*");var lu=[ru,fu,nu];var hu=new tu([ru,Symbol["for"]("symbol"),au,nu],"+");var pu=vu("define","lambda","define-macro","syntax-rules");var _u=/^(?!.*\b(?:[()[\]]|define(?:-macro)?|let(?:\*|rec|-env|-syntax|)?|lambda|syntax-rules)\b).*$/;var du=/^(?:#:)?(let(?:\*|rec|-env|-syntax)?)$/;function vu(){for(var e=arguments.length,t=new Array(e),r=0;r0&&!i[e]){i[e]=Wi(n,e)}});var u=hn(t),p;try{for(u.s();!(p=u.n()).done;){var a=j(p.value,3),_=a[0],o=a[1],s=a[2];o=o.valueOf();var d=o>0?i[o]:n;var v=d.filter(function(e){return e.trim()&&!ji(e)});var y=h(d);var m=Zi(_,v);var g=e.slice(r).find(function(e){return e.trim()&&!ji(e)});if(m&&(s instanceof eu&&s.match(g)||!s)){var c=r-y;if(e[c]!=="\n"){if(!e[c].trim()){e[c]="\n"}else{e.splice(c,0,"\n");r++}}r+=y;continue e}}}catch(e){u.e(e)}finally{u.f()}}this.__code__=e.join("");return this};Xi.prototype._spaces=function(e){return new Array(e+1).join(" ")};Xi.prototype.format=function c(e){var t=this.__code__.replace(/[ \t]*\n[ \t]*/g,"\n ");var r=wi(t,true);var n=this._options(e);var i=0;var u=0;for(var a=0;a0&&arguments[0]!==undefined?arguments[0]:true;var n=new Map;function i(e){if(e instanceof M){if(n.has(e)){return n.get(e)}var t=new M;n.set(e,t);if(r){t.car=i(e.car)}else{t.car=e.car}t.cdr=i(e.cdr);t[ga]=e[ga];return t}return e}return i(this)};M.prototype.last_pair=function(){var e=this;while(true){if(e.cdr===U){return e}e=e.cdr}};M.prototype.to_array=function(){var e=arguments.length>0&&arguments[0]!==undefined?arguments[0]:true;var t=[];if(this.car instanceof M){if(e){t.push(this.car.to_array())}else{t.push(this.car)}}else{t.push(this.car.valueOf())}if(this.cdr instanceof M){t=t.concat(this.cdr.to_array())}return t};M.fromArray=function(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:true;var r=arguments.length>2&&arguments[2]!==undefined?arguments[2]:false;if(e instanceof M||r&&e instanceof Array&&e[ya]){return e}if(t===false){var n=U;for(var i=e.length;i--;){n=new M(e[i],n)}return n}if(e.length&&!(e instanceof Array)){e=q(e)}var u=U;var a=e.length;while(a--){var o=e[a];if(o instanceof Array){o=M.fromArray(o,t,r)}else if(typeof o==="string"){o=$a(o)}else if(typeof o==="number"&&!Number.isNaN(o)){o=C(o)}u=new M(o,u)}return u};M.prototype.to_object=function(){var e=arguments.length>0&&arguments[0]!==undefined?arguments[0]:false;var t=this;var r={};while(true){if(t instanceof M&&t.car instanceof M){var n=t.car;var i=n.car;if(i instanceof L){i=i.__name__}if(i instanceof $a){i=i.valueOf()}var u=n.cdr;if(u instanceof M){u=u.to_object(e)}if(ts(u)){if(!e){u=u.valueOf()}}r[i]=u;t=t.cdr}else{break}}return r};M.fromPairs=function(e){return e.reduce(function(e,t){return new M(new M(new L(t[0]),t[1]),e)},U)};M.fromObject=function(t){var e=Object.keys(t).map(function(e){return[e,t[e]]});return M.fromPairs(e)};M.prototype.reduce=function(e){var t=this;var r=U;while(true){if(t!==U){r=e(r,t.car);t=t.cdr}else{break}}return r};M.prototype.reverse=function(){if(this.haveCycles()){throw new Error("You can't reverse list that have cycles")}var e=this;var t=U;while(e!==U){var r=e.cdr;e.cdr=t;t=e;e=r}return t};M.prototype.transform=function(n){function i(e){if(e instanceof M){if(e.replace){delete e.replace;return e}var t=n(e.car);if(t instanceof M){t=i(t)}var r=n(e.cdr);if(r instanceof M){r=i(r)}return new M(t,r)}return e}return i(this)};M.prototype.map=function(e){if(typeof this.car!=="undefined"){return new M(e(this.car),this.cdr===U?U:this.cdr.map(e))}else{return U}};var bu=new Map;function wu(e){return e&&_(e)==="object"&&e.constructor===Object}var Du=Object.getOwnPropertyNames(Array.prototype);var Eu=[];Du.forEach(function(e){Eu.push(Array[e],Array.prototype[e])});function Au(e){e=sa(e);return Eu.includes(e)}function xu(e){return Xu(e)&&(Ca(e)||e.__doc__)}function Fu(r){var e=r.constructor||Object;var n=wu(r);var i=Xu(r[Symbol.asyncIterator])||Xu(r[Symbol.iterator]);var u;if(bu.has(e)){u=bu.get(e)}else{bu.forEach(function(e,t){t=sa(t);if(r.constructor===t&&(t===Object&&n&&!i||t!==Object)){u=e}})}return u}var ku=new Map;[[true,"#t"],[false,"#f"],[null,"null"],[undefined,"#"]].forEach(function(e){var t=j(e,2),r=t[0],n=t[1];ku.set(r,n)});function Cu(r){if(r&&_(r)==="object"){var n={};var e=Object.getOwnPropertySymbols(r);e.forEach(function(e){var t=e.toString().replace(/Symbol\(([^)]+)\)/,"$1");n[t]=Pu(r[e])});var t=Object.getOwnPropertyNames(r);t.forEach(function(e){var t=r[e];if(t&&_(t)==="object"&&t.constructor===Object){n[e]=Cu(t)}else{n[e]=Pu(t)}});return n}return r}function Ou(e){return Object.keys(e).concat(Object.getOwnPropertySymbols(e))}function Su(e,t){return e.hasOwnProperty(t)&&Xu(e.toString)}function Bu(e){if(Ba(e)){return"#"}var t=e.prototype&&e.prototype.constructor;if(Xu(t)&&Ca(t)){if(e[ba]&&t.hasOwnProperty("__name__")){var r=t.__name__;if($a.isString(r)){r=r.toString();return"#")}return"#"}}if(e.hasOwnProperty("__name__")){var n=e.__name__;if(_(n)==="symbol"){n=Ai(n)}if(typeof n==="string"){return"#")}}if(Su(e,"toString")){return e.toString()}else if(e.name&&!Ca(e)){return"#")}else{return"#"}}var ju=new Map;[[Error,function(e){return e.message}],[M,function(e,t){var r=t.quote,n=t.skip_cycles,i=t.pair_args;if(!n){e.markCycles()}return e.toString.apply(e,[r].concat(q(i)))}],[za,function(e,t){var r=t.quote;if(r){return e.toString()}return e.valueOf()}],[$a,function(e,t){var r=t.quote;e=e.toString();if(r){return JSON.stringify(e).replace(/\\n/g,"\n")}return e}],[RegExp,function(e){return"#"+e.toString()}]].forEach(function(e){var t=j(e,2),r=t[0],n=t[1];ju.set(r,n)});var Iu=[L,C,Vu,jo,ho,po,So,ki];function Pu(e,t,c){if(typeof jQuery!=="undefined"&&e instanceof jQuery.fn.init){return"#"}if(ku.has(e)){return ku.get(e)}if(Nu(e)){return"#"}if(e){var r=e.constructor;if(ju.has(r)){for(var n=arguments.length,f=new Array(n>3?n-3:0),i=3;i"}if(e===null){return"null"}if(_(e)==="object"){var a=e.constructor;if(!a){a=Object}var o;if(typeof a.__class__==="string"){o=a.__class__}else{var s=Fu(e);if(s){if(Xu(s)){return s(e,t)}else{throw new Error("toString: Invalid repr value")}}o=a.name}if(Xu(e.toString)&&Ca(e.toString)){return e.toString().valueOf()}if(us(e)==="instance"){if(Ca(a)&&a.__name__){o=a.__name__.valueOf()}else if(!Ba(a)){o="instance"}}if(ns(e,Symbol.iterator)){if(o){return"#")}return"#"}if(ns(e,Symbol.asyncIterator)){if(o){return"#")}return"#"}if(o!==""){return"#<"+o+">"}return"#"}if(typeof e!=="string"){return e.toString()}return e}function Nu(e){return e&&_(e)==="object"&&e.hasOwnProperty&&e.hasOwnProperty("constructor")&&typeof e.constructor==="function"&&e.constructor.prototype===e}M.prototype.markCycles=function(){Ru(this);return this};M.prototype.haveCycles=function(){var e=arguments.length>0&&arguments[0]!==undefined?arguments[0]:null;if(!e){return this.haveCycles("car")||this.haveCycles("cdr")}return!!(this[ga]&&this[ga][e])};function Ru(e){var t=[];var i=[];var u=[];function a(e){if(!t.includes(e)){t.push(e)}}function o(e,t,r,n){if(r instanceof M){if(n.includes(r)){if(!u.includes(r)){u.push(r)}if(!e[ga]){e[ga]={}}e[ga][t]=r;if(!i.includes(e)){i.push(e)}return true}}}var s=gi(function e(t,r){if(t instanceof M){delete t.ref;delete t[ga];a(t);r.push(t);var n=o(t,"car",t.car,r);var i=o(t,"cdr",t.cdr,r);if(!n){s(t.car,r.slice())}if(!i){return new mi(function(){return e(t.cdr,r.slice())})}}});function r(e,t){if(e[ga][t]instanceof M){var r=n.indexOf(e[ga][t]);e[ga][t]="#".concat(r,"#")}}s(e,[]);var n=t.filter(function(e){return u.includes(e)});n.forEach(function(e,t){e[ma]="#".concat(t,"=")});i.forEach(function(e){r(e,"car");r(e,"cdr")})}M.prototype.toString=function(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:{},r=t.nested,n=r===void 0?false:r;var i=[];if(this[ma]){i.push(this[ma]+"(")}else if(!n){i.push("(")}var u;if(this[ga]&&this[ga].car){u=this[ga].car}else{u=Pu(this.car,e,true)}if(u!==undefined){i.push(u)}if(this.cdr instanceof M){if(this[ga]&&this[ga].cdr){i.push(" . ");i.push(this[ga].cdr)}else{if(this.cdr[ma]){i.push(" . ")}else{i.push(" ")}var a=this.cdr.toString(e,{nested:true});i.push(a)}}else if(this.cdr!==U){i=i.concat([" . ",Pu(this.cdr,e,true)])}if(!n||this[ma]){i.push(")")}return i.join("")};M.prototype.set=function(e,t){this[e]=t;if(t instanceof M){this.markCycles()}};M.prototype.append=function(e){if(e instanceof Array){return this.append(M.fromArray(e))}var t=this;if(t.car===undefined){if(e instanceof M){this.car=e.car;this.cdr=e.cdr}else{this.car=e}}else if(e!==U){while(true){if(t instanceof M&&t.cdr!==U){t=t.cdr}else{break}}t.cdr=e}return this};M.prototype.serialize=function(){return[this.car,this.cdr]};M.prototype[Symbol.iterator]=function(){var r=this;return{next:function e(){var t=r;r=t.cdr;if(t===U){return{value:undefined,done:true}}else{return{value:t.car,done:false}}}}};function Tu(e){return e<0?-e:e}function Lu(e,t){var r=m(t),n=r[0],i=r.slice(1);while(i.length>0){var u=i,a=j(u,1),o=a[0];if(!e(n,o)){return false}var s=i;var c=m(s);n=c[0];i=c.slice(1)}return true}function Uu(e,t){if(Xu(e)){return Xu(t)&&sa(e)===sa(t)}else if(e instanceof C){if(!(t instanceof C)){return false}var r;if(e.__type__===t.__type__){if(e.__type__==="complex"){r=e.__im__.__type__===t.__im__.__type__&&e.__re__.__type__===t.__re__.__type__}else{r=true}if(r&&e.cmp(t)===0){if(e.valueOf()===0){return Object.is(e.valueOf(),t.valueOf())}return true}}return false}else if(typeof e==="number"){if(typeof t!=="number"){return false}if(Number.isNaN(e)){return Number.isNaN(t)}if(e===Number.NEGATIVE_INFINITY){return t===Number.NEGATIVE_INFINITY}if(e===Number.POSITIVE_INFINITY){return t===Number.POSITIVE_INFINITY}return Uu(C(e),C(t))}else if(e instanceof za){if(!(t instanceof za)){return false}return e.__char__===t.__char__}else{return e===t}}function Mu(e,t){if(us(e)!==us(t)){return false}if(!qu(e)){return false}if(e instanceof RegExp){return e.source===t.source}if(e instanceof $a){return e.valueOf()===t.valueOf()}return Uu(e,t)}function qu(e){return e instanceof L||$a.isString(e)||e===U||e===null||e instanceof za||e instanceof C||e===true||e===false}var Yu=function(){if(Math.trunc){return Math.trunc}else{return function(e){if(e===0){return 0}else if(e<0){return Math.ceil(e)}else{return Math.floor(e)}}}}();function Vu(e,t,r,n){if(typeof this!=="undefined"&&this.constructor!==Vu||typeof this==="undefined"){return new Vu(e,t)}h("Macro",e,"string",1);h("Macro",t,"function",2);if(r){if(n){this.__doc__=r}else{this.__doc__=Hi(r)}}this.__name__=e;this.__fn__=t}Vu.defmacro=function(e,t,r,n){var i=new Vu(e,t,r,n);i.__defmacro__=true;return i};Vu.prototype.invoke=function(e,t,r){var n=t.env,i=t.dynamic_scope,u=t.error;var a={dynamic_scope:i,error:u,macro_expand:r};var o=this.__fn__.call(n,e,a,this.__name__);return o};Vu.prototype.toString=function(){return"#")};var zu="define-macro";var $u=-1e4;function Ju(c){return function(){var r=B(z.mark(function e(r,m){var u,g,n,i,s,D,E,A,x,F,k,b,a,w,o;return z.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:o=function e(){o=B(z.mark(function e(r,n,i){var h,u,a,p,o,_,s,d,c,v,f,l,y;return z.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:if(!(r instanceof M&&r.car instanceof L)){t.next=50;break}if(!r[ya]){t.next=3;break}return t.abrupt("return",r);case 3:h=r.car.valueOf();u=i.get(r.car,{throwError:false});a=D(r.car);p=a||E(u,r)||A(u);if(!(p&&r.cdr.car instanceof M)){t.next=28;break}if(!a){t.next=15;break}g=F(r.cdr.car);t.next=12;return b(r.cdr.car,n);case 12:o=t.sent;t.next=17;break;case 15:g=x(r.cdr.car);o=r.cdr.car;case 17:t.t0=M;t.t1=r.car;t.t2=M;t.t3=o;t.next=23;return w(r.cdr.cdr,n,i);case 23:t.t4=t.sent;t.t5=new t.t2(t.t3,t.t4);return t.abrupt("return",new t.t0(t.t1,t.t5));case 28:if(!k(h,u)){t.next=50;break}_=u instanceof Ku?r:r.cdr;t.next=32;return u.invoke(_,vn(vn({},m),{},{env:i}),true);case 32:s=t.sent;if(!(u instanceof Ku)){t.next=41;break}d=s,c=d.expr,v=d.scope;if(!(c instanceof M)){t.next=40;break}if(!(n!==-1&&n<=1||n<$u)){t.next=38;break}return t.abrupt("return",c);case 38:if(n!==-1){n=n-1}return t.abrupt("return",w(c,n,v));case 40:s=c;case 41:if(!(s instanceof L)){t.next=43;break}return t.abrupt("return",Io(s));case 43:if(!(s instanceof M)){t.next=48;break}if(!(n!==-1&&n<=1||n<$u)){t.next=46;break}return t.abrupt("return",s);case 46:if(n!==-1){n=n-1}return t.abrupt("return",w(s,n,i));case 48:if(!qu(s)){t.next=50;break}return t.abrupt("return",s);case 50:f=r.car;if(!(f instanceof M)){t.next=55;break}t.next=54;return w(f,n,i);case 54:f=t.sent;case 55:l=r.cdr;if(!(l instanceof M)){t.next=60;break}t.next=59;return w(l,n,i);case 59:l=t.sent;case 60:y=new M(f,l);return t.abrupt("return",y);case 62:case"end":return t.stop()}}},e)}));return o.apply(this,arguments)};w=function e(t,r,n){return o.apply(this,arguments)};a=function e(){a=B(z.mark(function e(r,n){var i;return z.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:if(!(r===U)){t.next=2;break}return t.abrupt("return",U);case 2:i=r.car;t.t0=M;t.t1=M;t.t2=i.car;t.next=8;return w(i.cdr,n,u);case 8:t.t3=t.sent;t.t4=new t.t1(t.t2,t.t3);t.next=12;return b(r.cdr);case 12:t.t5=t.sent;return t.abrupt("return",new t.t0(t.t4,t.t5));case 14:case"end":return t.stop()}}},e)}));return a.apply(this,arguments)};b=function e(t,r){return a.apply(this,arguments)};k=function e(t,r){return r instanceof Vu&&r.__defmacro__&&!g.includes(t)};F=function e(t){return[].concat(q(g),q(t.to_array(false).map(function(e){if(e instanceof M){return e.car.valueOf()}throw new Error("macroexpand: Invalid let binding")})))};x=function e(t){var r=[];while(true){if(t!==U){if(t instanceof L){r.push(t.valueOf());break}r.push(t.car.valueOf());t=t.cdr}else{break}}return[].concat(q(g),r)};A=function e(t){return t===i};E=function e(t,r){return t===s&&r.cdr.car instanceof M};D=function e(t){var r=t.valueOf();return n.includes(r)};u=m["env"]=this;g=[];n=["let","let*","letrec"];i=qo.get("lambda");s=qo.get("define");if(!(r.cdr instanceof M&&C.isNumber(r.cdr.car))){t.next=21;break}t.t0=Io;t.next=19;return w(r,r.cdr.car.valueOf(),u);case 19:t.t1=t.sent.car;return t.abrupt("return",(0,t.t0)(t.t1));case 21:if(!c){t.next=27;break}t.t2=Io;t.next=25;return w(r,1,u);case 25:t.t3=t.sent.car;return t.abrupt("return",(0,t.t2)(t.t3));case 27:t.t4=Io;t.next=30;return w(r,-1,u);case 30:t.t5=t.sent.car;return t.abrupt("return",(0,t.t4)(t.t5));case 32:case"end":return t.stop()}}},e,this)}));return function(e,t){return r.apply(this,arguments)}}()}function Ku(e,t){this.__env__=t;this.__fn__=e;this.__defmacro__=true}Ku.__merge_env__=Symbol["for"]("merge");Ku.prototype=Object.create(Vu.prototype);Ku.prototype.invoke=function(e,t,r){var n=t.error,i=t.env;var u={error:n,env:i,dynamic_scope:this.__env__,macro_expand:r};return this.__fn__.call(i,e,u,this.__name__||"syntax")};Ku.prototype.constructor=Ku;Ku.prototype.toString=function(){if(this.__name__){return"#")}return"#"};Ku.className="syntax";var Gu=function(e){u(r,e);var t=fn(r);function r(){D(this,r);return t.apply(this,arguments)}return A(r)}(Ku);Ku.Parameter=Gu;function Hu(e,t,w,D){var r=arguments.length>4&&arguments[4]!==undefined?arguments[4]:{};var E={"...":{symbols:{},lists:[]},symbols:{}};var A=r.expansion,k=r.define;function x(e){if(Cn()){console.log(e)}}x(w);function F(e,t){var r=arguments.length>2&&arguments[2]!==undefined?arguments[2]:[];var n=arguments.length>3&&arguments[3]!==undefined?arguments[3]:false;x({code:t&&Pu(t,true),pattern:e&&Pu(e,true)});if(qu(e)&&!(e instanceof L)){return Mu(e,t)}if(e instanceof L&&w.includes(e.literal())){var c=A.ref(t);if(L.is(t,e)){if(typeof c==="undefined"){return true}return c===k||c===qo}return false}if(e instanceof M&&e.car instanceof M&&e.car.cdr instanceof M&&L.is(e.car.cdr.car,D)){x(">> 0");if(t===U){x({pattern:e.toString()});if(e.car.car instanceof L){if(e.car.cdr instanceof M&&L.is(e.car.cdr.car,D)){var f=e.car.car.valueOf();var l=e.last_pair();if(L.is(l.car,D)){E["..."].symbols[f]=null;return true}else{return false}}var h=e.car.car.valueOf();if(E["..."].symbols[h]){throw new Error("syntax: named ellipsis can only "+"appear onces")}E["..."].symbols[h]=t}}}if(e instanceof M&&e.cdr instanceof M&&L.is(e.cdr.car,D)){if(e.cdr.cdr!==U){if(e.cdr.cdr instanceof M){var p=e.cdr.cdr.length();var _=t.length();var i=t;while(_-1>p){i=i.cdr;_--}var d=i.cdr;i.cdr=U;if(!F(e.cdr.cdr,d,r,n)){return false}}}if(e.car instanceof L){var u=e.car.__name__;if(E["..."].symbols[u]&&!r.includes(u)&&!n){throw new Error("syntax: named ellipsis can only appear onces")}x(">> 1");if(t===U){x(">> 2");if(n){x("NIL");E["..."].symbols[u]=U}else{x("NULL");E["..."].symbols[u]=null}}else if(t instanceof M&&(t.car instanceof M||t.car===U)){x(">> 3 "+n);if(n){if(E["..."].symbols[u]){var a=E["..."].symbols[u];if(a===U){a=new M(U,new M(t,U))}else{a=a.append(new M(t,U))}E["..."].symbols[u]=a}else{E["..."].symbols[u]=new M(t,U)}}else{x(">> 4");E["..."].symbols[u]=new M(t,U)}}else{x(">> 6");if(t instanceof M){x(">> 7 "+n);r.push(u);if(!E["..."].symbols[u]){E["..."].symbols[u]=new M(t,U)}else{var v=E["..."].symbols[u];E["..."].symbols[u]=v.append(new M(t,U))}x({IIIIII:E["..."].symbols[u].toString()})}else{x(">> 8");return false}}return true}else if(e.car instanceof M){var y=q(r);if(t===U){x(">> 9");E["..."].lists.push(U);return true}x(">> 10");var m=t;while(m instanceof M){if(!F(e.car,m.car,y,true)){return false}m=m.cdr}return true}return false}if(e instanceof L){if(L.is(e,D)){throw new Error("syntax: invalid usage of ellipsis")}x(">> 11");var o=e.__name__;if(w.includes(o)){return true}x({name:o,ellipsis:n});if(n){E["..."].symbols[o]=E["..."].symbols[o]||[];E["..."].symbols[o].push(t)}E.symbols[o]=t;if(!E.symbols[o]);return true}if(e instanceof M&&t instanceof M){x(">> 12");x({a:12,code:t&&t.toString(),pattern:e.toString()});if(t.cdr===U){var g=e.car instanceof L&&e.cdr instanceof L;if(g){if(!F(e.car,t.car,r,n)){return false}x(">> 12 | 1");var s=e.cdr.valueOf();if(!(s in E.symbols)){E.symbols[s]=U}s=e.car.valueOf();if(!(s in E.symbols)){E.symbols[s]=t.car}return true}}x({pattern:e.toString(),code:t.toString()});if(e.cdr instanceof M&&e.car instanceof L&&e.cdr.cdr instanceof M&&e.cdr.car instanceof L&&L.is(e.cdr.cdr.car,D)&&e.cdr.cdr.cdr instanceof M&&!L.is(e.cdr.cdr.cdr.car,D)&&F(e.car,t.car,r,n)&&F(e.cdr.cdr.cdr,t.cdr,r,n)){var b=e.cdr.car.__name__;x({pattern:e.car.toString(),code:t.car.toString(),name:b});if(w.includes(b)){return true}E["..."].symbols[b]=null;return true}x("recur");if(F(e.car,t.car,r,n)&&F(e.cdr,t.cdr,r,n)){return true}}else if(e===U&&(t===U||t===undefined)){return true}else if(e.car instanceof M&&L.is(e.car.car,D)){throw new Error("syntax: invalid usage of ellipsis")}else{return false}}if(F(e,t)){return E}}function Wu(e,i){function u(t){if(t instanceof M){if(!i.length){return t}var e=u(t.car);var r=u(t.cdr);return new M(e,r)}else if(t instanceof L){var n=i.find(function(e){return e.gensym===t});if(n){return L(n.name)}return t}else{return t}}return u(e)}function Qu(){var e=arguments.length>0&&arguments[0]!==undefined?arguments[0]:{};var O=e.bindings,t=e.expr,S=e.scope,a=e.symbols,f=e.names,B=e.ellipsis;var c={};function o(e){if(e instanceof L){return true}return["string","symbol"].includes(_(e))}function j(e){if(!o(e)){var t=us(e);throw new Error("syntax: internal error, need symbol got ".concat(t))}var r=e.valueOf();if(r===B){throw new Error("syntax: internal error, ellipis not transformed")}var n=_(r);if(["string","symbol"].includes(n)){if(r in O.symbols){return O.symbols[r]}else if(n==="string"&&r.match(/\./)){var i=r.split(".");var u=i[0];if(u in O.symbols){return M.fromArray([L("."),O.symbols[u]].concat(i.slice(1).map(function(e){return $a(e)})))}}}if(a.includes(r)){return L(r)}return s(r)}function I(e){if(Cn()){console.log(e)}}function s(e){if(!c[e]){var t=S.ref(e);var r=Fi(e);if(t){var n=S.get(e);S.set(r,n)}else{var i=S.get(e,{throwError:false});if(typeof i!=="undefined"){S.set(r,i)}}f.push({name:e,gensym:r});c[e]=r;if(typeof e==="string"&&e.match(/\./)){var u=e.split(".").filter(Boolean),a=m(u),o=a[0],s=a.slice(1);if(c[o]){Fa(r,"__object__",[c[o]].concat(q(s)))}}}return c[e]}function P(e,t,r){var n=arguments.length>3&&arguments[3]!==undefined?arguments[3]:function(){};var i=r.nested;I(" ==> "+e.toString(true));I(t);if(e instanceof L){var u=e.valueOf();I("[t 1");if(t[u]){if(t[u]instanceof M){var c=t[u],f=c.car,l=c.cdr;if(i){var h=f.car,p=f.cdr;if(p!==U){n(u,new M(p,U))}return h}if(l!==U){n(u,l)}return f}else if(t[u]instanceof Array){n(u,t[u].slice(1));return t[u][0]}}return j(u)}if(e instanceof M){if(e.car instanceof L&&e.cdr instanceof M&&L.is(e.cdr.car,B)){I("[t 2");var a=e.car.valueOf();var o=t[a];I({expr:e.toString(true),name:a,bindings:t,item:o});if(o===null){return}else if(o){I({b:t[a].toString()});if(o instanceof M){I("[t 2 Pair "+i);I({______:o.toString()});var s=o.car,_=o.cdr;if(i){if(_!==U){I("|| next 1");n(a,_)}I({car:s.toString()});return s}else{if(s.cdr!==U){I("|| next 2");n(a,new M(s.cdr,_))}I({car:s.car.toString()});return s.car}}else if(o instanceof Array){I("[t 2 Array "+i);if(i){n(a,o.slice(1));return M.fromArray(o)}else{var d=o.slice(1);if(d.length){n(a,d)}return o[0]}}else{return o}}}I("[t 3 recur "+e.toString());var v=P(e.car,t,r,n);var y=P(e.cdr,t,r,n);return new M(v,y)}return e}function R(t,r){var e=Object.values(t);var n=Object.getOwnPropertySymbols(t);if(n.length){e.push.apply(e,q(n.map(function(e){return t[e]})))}return e.length&&e.every(function(e){if(e===null){return!r}return e instanceof M||e===U||e instanceof Array&&e.length})}function T(e){return Object.keys(e).concat(Object.getOwnPropertySymbols(e))}function N(i){var n=arguments.length>1&&arguments[1]!==undefined?arguments[1]:{},e=n.disabled;I("traverse>> "+Pu(i));if(i instanceof M){if(!e&&i.car instanceof M&&L.is(i.car.car,B)){return N(i.car.cdr,{disabled:true})}if(i.cdr instanceof M&&L.is(i.cdr.car,B)&&!e){I(">> 1");var t=O["..."].symbols;var f=Object.values(t);if(f.length&&f.every(function(e){return e===null})){return N(i.cdr.cdr,{disabled:e})}var l=T(t);var u=i.car instanceof L&&L.is(i.cdr.cdr.car,B);if(i.car instanceof M||u){if(O["..."].lists[0]===U){return U}var h=i.car;if(u){h=new M(i.car,new M(i.cdr.car,U))}I(">> 2");var a;if(l.length){I(">> 2 (a)");var o=vn({},t);a=U;var p=function e(){if(!R(o)){return"break"}var n={};var t=function e(t,r){n[t]=r};var r=P(h,o,{nested:true},t);if(r!==undefined){if(u){if(a===U){a=r}else{a=a.append(r)}}else{a=new M(r,a)}}o=n};while(true){var _=p();if(_==="break")break}if(a!==U&&!u){a=a.reverse()}if(i.cdr.cdr!==U&&!L.is(i.cdr.cdr.car,B)){var d=N(i.cdr.cdr,{disabled:e});return a.append(d)}return a}else{I(">> 3");var v=P(i.car,t,{nested:true});if(v){return new M(v,U)}return U}}else if(i.car instanceof L){I(">> 4");if(L.is(i.cdr.cdr.car,B)){I(">> 4 (a)")}else{I(">> 4 (b)")}var y=i.car.__name__;var s=Y({},y,t[y]);var m=t[y]===null;var c=U;var g=function e(){if(!R(s,true)){I({bind:s});return"break"}var n={};var t=function e(t,r){n[t]=r};var r=P(i,s,{nested:false},t);I({value:r.toString()});if(typeof r!=="undefined"){c=new M(r,c)}s=n};while(true){var b=g();if(b==="break")break}if(c!==U){c=c.reverse()}if(i.cdr instanceof M){if(i.cdr.cdr instanceof M||i.cdr.cdr instanceof L){var w=N(i.cdr.cdr,{disabled:e});if(m){return w}I("<<<< 1");c.append(w)}}I("<<<< 2");return c}}var D=N(i.car,{disabled:e});var r;var E;if(i.car instanceof L){var A=S.get(i.car,{throwError:false});E=A instanceof Vu&&A.__name__==="syntax-rules"}if(E){if(i.cdr.car instanceof L){r=new M(N(i.cdr.car,{disabled:e}),new M(i.cdr.cdr.car,N(i.cdr.cdr.cdr,{disabled:e})))}else{r=new M(i.cdr.car,N(i.cdr.cdr,{disabled:e}))}I("REST >>>> "+r.toString())}else{r=N(i.cdr,{disabled:e})}I({a:true,car:Pu(i.car),cdr:Pu(i.cdr),head:Pu(D),rest:Pu(r)});return new M(D,r)}if(i instanceof L){if(e&&L.is(i,B)){return i}var x=Object.keys(O["..."].symbols);var F=i.literal();if(x.includes(F)){var k="missing ellipsis symbol next to name `".concat(F,"'");throw new Error("syntax-rules: ".concat(k))}var C=j(i);if(typeof C!=="undefined"){return C}}return i}return N(t,{})}function Zu(e){return na(e)||e===U||e===null}function Xu(e){return typeof e==="function"&&typeof e.bind==="function"}function ea(e){return e instanceof hs}function ta(e){return Xu(e)||ea(e)}function ra(e){if(e instanceof ki){return false}if(e instanceof Promise){return true}return e&&Xu(e.then)}function na(e){return typeof e==="undefined"}function ia(e){switch(_(e)){case"string":return $a(e);case"bigint":return C(e);case"number":if(Number.isNaN(e)){return Uo}else{return C(e)}}return e}function ua(n,i){var e=Object.getOwnPropertyNames(n);var t=Object.getOwnPropertySymbols(n);e.concat(t).forEach(function(e){var t=i(n[e]);var r=Object.getOwnPropertyDescriptor(n,e);if(!r||r.writable&&n[e]!==t){n[e]=t}});return n}function aa(t){var e=[$a,C].some(function(e){return t instanceof e});if(e){return t.valueOf()}if(t instanceof Array){return t.map(aa)}if(t instanceof ki){delete t.then}if(wu(t)){return ua(t,aa)}return t}function oa(e,t){if(e instanceof M){e.markCycles();return Io(e)}if(Xu(e)){if(t){return ca(e,t)}}return ia(e)}function sa(e){if(la(e)){return e[va]}return e}function ca(e,t){if(e[Symbol["for"]("__bound__")]){return e}var r=e.bind(t);var n=Object.getOwnPropertyNames(e);var i=hn(n),u;try{for(i.s();!(u=i.n()).done;){var a=u.value;if(xa(a)){try{r[a]=e[a]}catch(e){}}}}catch(e){i.e(e)}finally{i.f()}Fa(r,"__fn__",e);Fa(r,"__context__",t);Fa(r,"__bound__",true);if(Ba(e)){Fa(r,"__native__",true)}if(wu(t)&&Ca(e)){Fa(r,"__method__",true)}r.valueOf=function(){return e};return r}function fa(e){return la(e)&&e[Symbol["for"]("__context__")]===Object}function la(e){return!!(Xu(e)&&e[va])}function ha(e){if(Xu(e)){var t=e[da];if(t&&(t===Gs||t.constructor&&t.constructor.__class__)){return true}}return false}function pa(e){return e instanceof ho||e instanceof po}function _a(e){if(Xu(e)){if(pa(e[da])){return true}}return false}var da=Symbol["for"]("__context__");var va=Symbol["for"]("__fn__");var ya=Symbol["for"]("__data__");var ma=Symbol["for"]("__ref__");var ga=Symbol["for"]("__cycles__");var ba=Symbol["for"]("__class__");var wa=Symbol["for"]("__method__");var Da=Symbol["for"]("__prototype__");var Ea=Symbol["for"]("__lambda__");var Aa=["name","length","caller","callee","arguments","prototype"];function xa(e){return!Aa.includes(e)}function Fa(e,t,r){Object.defineProperty(e,Symbol["for"](t),{get:function e(){return r},set:function e(){},configurable:false,enumerable:false})}function ka(t,r){try{Object.defineProperty(t,"length",{get:function e(){return r}});return t}catch(e){var n=new Array(r).fill(0).map(function(e,t){return"a"+t}).join(",");var i=new Function("f","return function(".concat(n,") {\n return f.apply(this, arguments);\n };"));return i(t)}}function Ca(e){return e&&e[Ea]}function Oa(e){return e&&e[wa]}function Sa(e){return Ca(e)&&!e[Da]&&!Oa(e)&&!_a(e)}function Ba(e){var t=Symbol["for"]("__native__");return Xu(e)&&e.toString().match(/\{\s*\[native code\]\s*\}/)&&(e.name.match(/^bound /)&&e[t]===true||!e.name.match(/^bound /)&&!e[t])}function ja(e){var g;switch(e){case Symbol["for"]("letrec"):g="letrec";break;case Symbol["for"]("let"):g="let";break;case Symbol["for"]("let*"):g="let*";break;default:throw new Error("Invalid let_macro value")}return Vu.defmacro(g,function(t,e){var f=e.dynamic_scope,l=e.error,n=e.macro_expand;var h;if(t.car instanceof L){if(!(t.cdr.car instanceof M||t.cdr.car===U)){throw new Error("let require list of pairs")}var r;if(t.cdr.car===U){h=U;r=U}else{r=t.cdr.car.map(function(e){return e.car});h=t.cdr.car.map(function(e){return e.cdr.car})}return M.fromArray([L("letrec"),[[t.car,M(L("lambda"),M(r,t.cdr.cdr))]],M(t.car,h)])}else if(n){return}var p=this;h=qo.get("list->array")(t.car);var _=p.inherit(g);var d,v;if(g==="let*"){v=_}else if(g==="let"){d=[]}var y=0;function m(){var e=new M(new L("begin"),t.cdr);return _s(e,{env:_,dynamic_scope:f,error:l})}return function t(){var r=h[y++];if(f){f=g==="let*"?_:p}if(!r){if(d&&d.length){var e=d.map(function(e){return e.value});var n=e.filter(ra);if(n.length){return Ci(e).then(function(e){for(var t=0,r=e.length;t1&&arguments[1]!==undefined?arguments[1]:{},r=t.dynamic_scope,n=t.error;var i=this;if(r){r=this}var u=e;var a=[];while(u instanceof M){a.push(_s(u.car,{env:i,dynamic_scope:r,error:n}));u=u.cdr}var o=a.filter(ra).length;if(o){return Ci(a).then(s.bind(this))}else{return s.call(this,a)}})}function Pa(e){for(var t=arguments.length,r=new Array(t>1?t-1:0),n=1;n2?n-2:0),u=2;u1&&arguments[1]!==undefined?arguments[1]:null;return function(){for(var e=arguments.length,t=new Array(e),r=0;r1?e-1:0),r=1;r=a){return u.apply(this,n)}else{return i}}return i.apply(this,arguments)}}function Va(n,i){h("limit",i,"function",2);return function(){for(var e=arguments.length,t=new Array(e),r=0;r1){e=e.toLowerCase();if(za.__names__[e]){t=e;e=za.__names__[e]}else{throw new Error("Internal: Unknown named character")}}else{t=za.__rev_names__[e]}Object.defineProperty(this,"__char__",{value:e,enumerable:true});if(t){Object.defineProperty(this,"__name__",{value:t,enumerable:true})}}za.__names__=Un;za.__rev_names__={};Object.keys(za.__names__).forEach(function(e){var t=za.__names__[e];za.__rev_names__[t]=e});za.prototype.toUpperCase=function(){return za(this.__char__.toUpperCase())};za.prototype.toLowerCase=function(){return za(this.__char__.toLowerCase())};za.prototype.toString=function(){return"#\\"+(this.__name__||this.__char__)};za.prototype.valueOf=za.prototype.serialize=function(){return this.__char__};function $a(e){if(typeof this!=="undefined"&&!(this instanceof $a)||typeof this==="undefined"){return new $a(e)}if(e instanceof Array){this.__string__=e.map(function(e,t){h("LString",e,"character",t+1);return e.toString()}).join("")}else{this.__string__=e.valueOf()}}{var Ja=["length","constructor"];var Ka=Object.getOwnPropertyNames(String.prototype).filter(function(e){return!Ja.includes(e)});var Ga=function e(n){return function(){for(var e=arguments.length,t=new Array(e),r=0;r0){r.push(this.__string__.substring(0,e))}r.push(t);if(e1&&arguments[1]!==undefined?arguments[1]:false;if(e instanceof C){return e}if(typeof this!=="undefined"&&!(this instanceof C)||typeof this==="undefined"){return new C(e,t)}if(typeof e==="undefined"){throw new Error("Invalid LNumber constructor call")}var r=C.getType(e);if(C.types[r]){return C.types[r](e,t)}var n=e instanceof Array&&$a.isString(e[0])&&C.isNumber(e[1]);if(e instanceof C){return C(e.value)}if(!C.isNumber(e)&&!n){throw new Error("You can't create LNumber from ".concat(us(e)))}if(e===null){e=0}var i;if(n){var c=e,u=j(c,2),a=u[0],o=u[1];if(a instanceof $a){a=a.valueOf()}if(o instanceof C){o=o.valueOf()}var f=a.match(/^([+-])/);var l=false;if(f){a=a.replace(/^[+-]/,"");if(f[1]==="-"){l=true}}}if(Number.isNaN(e)){return uo(e)}else if(typeof BigInt!=="undefined"){if(typeof e!=="bigint"){if(n){var s;switch(o){case 8:s="0o";break;case 16:s="0x";break;case 2:s="0b";break;case 10:s="";break}if(typeof s==="undefined"){var h=BigInt(o);i=q(a).map(function(e,t){return BigInt(parseInt(e,o))*ro(h,BigInt(t))}).reduce(function(e,t){return e+t})}else{i=BigInt(s+a)}}else{i=BigInt(e)}if(l){i*=BigInt(-1)}}else{i=e}return lo(i,true)}else if(typeof xn!=="undefined"&&!(e instanceof xn)){if(e instanceof Array){return lo(p(xn,q(e)))}return lo(new xn(e))}else if(n){this.constant(parseInt(a,o),"integer")}else{this.constant(e,"integer")}}C.prototype.constant=function(e,t){Object.defineProperty(this,"__value__",{value:e,enumerable:true});Object.defineProperty(this,"__type__",{value:t,enumerable:true})};C.types={float:function e(t){return new uo(t)},complex:function e(t){var r=arguments.length>1&&arguments[1]!==undefined?arguments[1]:false;if(!C.isComplex(t)){t={im:0,re:t}}return new io(t,r)},rational:function e(t){var r=arguments.length>1&&arguments[1]!==undefined?arguments[1]:false;if(!C.isRational(t)){t={num:t,denom:1}}return new fo(t,r)}};C.prototype.serialize=function(){return this.__value__};C.prototype.isNaN=function(){return Number.isNaN(this.__value__)};C.prototype.gcd=function(e){var t=this.abs();e=e.abs();if(e.cmp(t)===1){var r=t;t=e;e=r}while(true){t=t.rem(e);if(t.cmp(0)===0){return e}e=e.rem(t);if(e.cmp(0)===0){return t}}};C.isFloat=function e(t){return t instanceof uo||Number(t)===t&&t%1!==0};C.isNumber=function(e){return e instanceof C||C.isNative(e)||C.isBN(e)};C.isComplex=function(e){if(!e){return false}var t=e instanceof io||(C.isNumber(e.im)||Number.isNaN(e.im))&&(C.isNumber(e.re)||Number.isNaN(e.re));return t};C.isRational=function(e){if(!e){return false}return e instanceof fo||C.isNumber(e.num)&&C.isNumber(e.denom)};C.isInteger=function(e){if(!(C.isNative(e)||e instanceof C)){return false}if(C.isFloat(e)){return false}if(C.isRational(e)){return false}if(C.isComplex(e)){return false}return true};C.isNative=function(e){return typeof e==="bigint"||typeof e==="number"};C.isBigInteger=function(e){return e instanceof lo||typeof e==="bigint"||C.isBN(e)};C.isBN=function(e){return typeof xn!=="undefined"&&e instanceof xn};C.getArgsType=function(e,t){if(e instanceof uo||t instanceof uo){return uo}if(e instanceof lo||t instanceof lo){return lo}return C};C.prototype.toString=function(e){if(Number.isNaN(this.__value__)){return"+nan.0"}if(e>2&&e<36){return this.__value__.toString(e)}return this.__value__.toString()};C.prototype.asType=function(e){var t=C.getType(this);return C.types[t]?C.types[t](e):C(e)};C.prototype.isBigNumber=function(){return typeof this.__value__==="bigint"||typeof xn!=="undefined"&&!(this.value instanceof xn)};["floor","ceil","round"].forEach(function(e){C.prototype[e]=function(){if(this["float"]||C.isFloat(this.__value__)){return C(Math[e](this.__value__))}else{return C(Math[e](this.valueOf()))}}});C.prototype.valueOf=function(){if(C.isNative(this.__value__)){return Number(this.__value__)}else if(C.isBN(this.__value__)){return this.__value__.toNumber()}};var Za=function(){var e=function e(t,r){return[t,r]};return{bigint:{bigint:e,float:function e(t,r){return[uo(t.valueOf()),r]},rational:function e(t,r){return[{num:t,denom:1},r]},complex:function e(t,r){return[{im:0,re:t},r]}},integer:{integer:e,float:function e(t,r){return[uo(t.valueOf()),r]},rational:function e(t,r){return[{num:t,denom:1},r]},complex:function e(t,r){return[{im:0,re:t},r]}},float:{bigint:function e(t,r){return[t,r&&uo(r.valueOf())]},integer:function e(t,r){return[t,r&&uo(r.valueOf())]},float:e,rational:function e(t,r){return[t,r&&uo(r.valueOf())]},complex:function e(t,r){return[{re:t,im:uo(0)},r]}},complex:{bigint:t("bigint"),integer:t("integer"),float:t("float"),rational:t("rational"),complex:function f(e,t){var r=C.coerce(e.__re__,t.__re__),n=j(r,2),i=n[0],u=n[1];var a=C.coerce(e.__im__,t.__im__),o=j(a,2),s=o[0],c=o[1];return[{im:s,re:i},{im:c,re:u}]}},rational:{bigint:function e(t,r){return[t,r&&{num:r,denom:1}]},integer:function e(t,r){return[t,r&&{num:r,denom:1}]},float:function e(t,r){return[uo(t.valueOf()),r]},rational:e,complex:function e(t,r){return[{im:Xa(t.__type__,r.__im__.__type__,0)[0],re:Xa(t.__type__,r.__re__.__type__,t)[0]},{im:Xa(t.__type__,r.__im__.__type__,r.__im__)[0],re:Xa(t.__type__,r.__re__.__type__,r.__re__)[0]}]}}};function t(r){return function(e,t){return[{im:Xa(r,e.__im__.__type__,0,e.__im__)[1],re:Xa(r,e.__re__.__type__,0,e.__re__)[1]},{im:Xa(r,e.__im__.__type__,0,0)[1],re:Xa(r,t.__type__,0,t)[1]}]}}}();function Xa(e,t,r,n){return Za[e][t](r,n)}C.coerce=function(e,t){var r=C.getType(e);var n=C.getType(t);if(!Za[r]){throw new Error("LNumber::coerce unknown lhs type ".concat(r))}else if(!Za[r][n]){throw new Error("LNumber::coerce unknown rhs type ".concat(n))}var i=Za[r][n](e,t);return i.map(function(e){return C(e,true)})};C.prototype.coerce=function(e){if(!(typeof e==="number"||e instanceof C)){throw new Error("LNumber: you can't coerce ".concat(us(e)))}if(typeof e==="number"){e=C(e)}return C.coerce(this,e)};C.getType=function(e){if(e instanceof C){return e.__type__}if(C.isFloat(e)){return"float"}if(C.isComplex(e)){return"complex"}if(C.isRational(e)){return"rational"}if(typeof e==="number"){return"integer"}if(typeof BigInt!=="undefined"&&typeof e!=="bigint"||typeof xn!=="undefined"&&!(e instanceof xn)){return"bigint"}};C.prototype.isFloat=function(){return!!(C.isFloat(this.__value__)||this["float"])};var eo={add:"+",sub:"-",mul:"*",div:"/",rem:"%",or:"|",and:"&",neg:"~",shl:">>",shr:"<<"};var to={};Object.keys(eo).forEach(function(t){to[eo[t]]=t;C.prototype[t]=function(e){return this.op(eo[t],e)}});C._ops={"*":function e(t,r){return t*r},"+":function e(t,r){return t+r},"-":function e(t,r){if(typeof r==="undefined"){return-t}return t-r},"/":function e(t,r){return t/r},"%":function e(t,r){return t%r},"|":function e(t,r){return t|r},"&":function e(t,r){return t&r},"~":function e(t){return~t},">>":function e(t,r){return t>>r},"<<":function e(t,r){return t<1&&arguments[1]!==undefined?arguments[1]:false;if(typeof this!=="undefined"&&!(this instanceof io)||typeof this==="undefined"){return new io(e,t)}if(e instanceof io){return io({im:e.__im__,re:e.__re__})}if(C.isNumber(e)&&t){if(!t){return Number(e)}}else if(!C.isComplex(e)){var r="Invalid constructor call for LComplex expect &(:im :re ) object but got ".concat(Pu(e));throw new Error(r)}var n=e.im instanceof C?e.im:C(e.im);var i=e.re instanceof C?e.re:C(e.re);this.constant(n,i)}io.prototype=Object.create(C.prototype);io.prototype.constructor=io;io.prototype.constant=function(e,t){Object.defineProperty(this,"__im__",{value:e,enumerable:true});Object.defineProperty(this,"__re__",{value:t,enumerable:true});Object.defineProperty(this,"__type__",{value:"complex",enumerable:true})};io.prototype.serialize=function(){return{re:this.__re__,im:this.__im__}};io.prototype.toRational=function(e){if(C.isFloat(this.__im__)&&C.isFloat(this.__re__)){var t=uo(this.__im__).toRational(e);var r=uo(this.__re__).toRational(e);return io({im:t,re:r})}return this};io.prototype.pow=function(e){throw new Error("Not yet implemented")};io.prototype.add=function(e){return this.complex_op("add",e,function(e,t,r,n){return{re:e.add(t),im:r.add(n)}})};io.prototype.factor=function(){if(this.__im__ instanceof uo||this.__im__ instanceof uo){var e=this.__re__,t=this.__im__;var r,n;if(e instanceof uo){r=e.toRational().mul(e.toRational())}else{r=e.mul(e)}if(t instanceof uo){n=t.toRational().mul(t.toRational())}else{n=t.mul(t)}return r.add(n)}else{return this.__re__.mul(this.__re__).add(this.__im__.mul(this.__im__))}};io.prototype.modulus=function(){return this.factor().sqrt()};io.prototype.conjugate=function(){return io({re:this.__re__,im:this.__im__.sub()})};io.prototype.sqrt=function(){var e=this.modulus();var t,r;if(e.cmp(0)===0){t=r=e}else if(this.__re__.cmp(0)===1){t=uo(.5).mul(e.add(this.__re__)).sqrt();r=this.__im__.div(t).div(2)}else{r=uo(.5).mul(e.sub(this.__re__)).sqrt();if(this.__im__.cmp(0)===-1){r=r.sub()}t=this.__im__.div(r).div(2)}return io({im:r,re:t})};io.prototype.div=function(e){if(C.isNumber(e)&&!C.isComplex(e)){if(!(e instanceof C)){e=C(e)}var t=this.__re__.div(e);var r=this.__im__.div(e);return io({re:t,im:r})}else if(!C.isComplex(e)){throw new Error("[LComplex::div] Invalid value")}if(this.cmp(e)===0){var n=this.coerce(e),i=j(n,2),f=i[0],u=i[1];var l=f.__im__.div(u.__im__);return l.coerce(u.__re__)[0]}var h=this.coerce(e),a=j(h,2),p=a[0],o=a[1];var s=o.factor();var _=o.conjugate();var c=p.mul(_);if(!C.isComplex(c)){return c.div(s)}var d=c.__re__.op("/",s);var v=c.__im__.op("/",s);return io({re:d,im:v})};io.prototype.sub=function(e){return this.complex_op("sub",e,function(e,t,r,n){return{re:e.sub(t),im:r.sub(n)}})};io.prototype.mul=function(e){return this.complex_op("mul",e,function(e,t,r,n){var i={re:e.mul(t).sub(r.mul(n)),im:e.mul(n).add(t.mul(r))};return i})};io.prototype.complex_op=function(e,t,i){var u=this;var r=function e(t,r){var n=i(u.__re__,t,u.__im__,r);if("im"in n&&"re"in n){if(n.im.cmp(0)===0){return n.re}return io(n,true)}return n};if(typeof t==="undefined"){return r()}if(C.isNumber(t)&&!C.isComplex(t)){if(!(t instanceof C)){t=C(t)}var n=t.asType(0);t={__im__:n,__re__:t}}else if(!C.isComplex(t)){throw new Error("[LComplex::".concat(e,"] Invalid value"))}var a=t.__re__ instanceof C?t.__re__:this.__re__.asType(t.__re__);var o=t.__im__ instanceof C?t.__im__:this.__im__.asType(t.__im__);return r(a,o)};io._op={"+":"add","-":"sub","*":"mul","/":"div"};io.prototype._op=function(e,t){var r=io._op[e];return this[r](t)};io.prototype.cmp=function(e){var t=this.coerce(e),r=j(t,2),n=r[0],i=r[1];var u=n.__re__.coerce(i.__re__),a=j(u,2),o=a[0],f=a[1];var s=o.cmp(f);if(s!==0){return s}else{var l=n.__im__.coerce(i.__im__),c=j(l,2),h=c[0],p=c[1];return h.cmp(p)}};io.prototype.valueOf=function(){return[this.__re__,this.__im__].map(function(e){return e.valueOf()})};io.prototype.toString=function(){var e;if(this.__re__.cmp(0)!==0){e=[Pu(this.__re__)]}else{e=[]}var t=this.__im__.valueOf();var r=[Number.NEGATIVE_INFINITY,Number.POSITIVE_INFINITY].includes(t);var n=Pu(this.__im__);if(!r&&!Number.isNaN(t)){var i=this.__im__.cmp(0);if(i<0||i===0&&this.__im__._minus){e.push("-")}else{e.push("+")}n=n.replace(/^-/,"")}e.push(n);e.push("i");return e.join("")};function uo(e){if(typeof this!=="undefined"&&!(this instanceof uo)||typeof this==="undefined"){return new uo(e)}if(!C.isNumber(e)){throw new Error("Invalid constructor call for LFloat")}if(e instanceof C){return uo(e.valueOf())}if(typeof e==="number"){if(Object.is(e,-0)){Object.defineProperty(this,"_minus",{value:true})}this.constant(e,"float")}}uo.prototype=Object.create(C.prototype);uo.prototype.constructor=uo;uo.prototype.toString=function(){if(this.__value__===Number.NEGATIVE_INFINITY){return"-inf.0"}if(this.__value__===Number.POSITIVE_INFINITY){return"+inf.0"}if(Number.isNaN(this.__value__)){return"+nan.0"}var e=this.__value__.toString();if(!C.isFloat(this.__value__)&&!e.match(/e/i)){var t=e+".0";return this._minus?"-"+t:t}return e.replace(/^([0-9]+)e/,"$1.0e")};uo.prototype._op=function(e,t){if(t instanceof C){t=t.__value__}var r=C._ops[e];if(e==="/"&&this.__value__===0&&t===0){return NaN}return uo(r(this.__value__,t))};uo.prototype.toRational=function(){var e=arguments.length>0&&arguments[0]!==undefined?arguments[0]:null;if(e===null){return ao(this.__value__.valueOf())}return oo(e.valueOf())(this.__value__.valueOf())};uo.prototype.sqrt=function(){var e=this.valueOf();if(this.cmp(0)<0){var t=uo(Math.sqrt(-e));return io({re:0,im:t})}return uo(Math.sqrt(e))};uo.prototype.abs=function(){var e=this.valueOf();if(e<0){e=-e}return uo(e)};var ao=oo(1e-10);function oo(n){return function(e){var t=function e(n,t,r){var i=function e(t,r){return r0){i=co(n,r)}else if(n.cmp(r)<=0){i=r}else if(r.cmp(0)>0){i=co(r,n)}else if(t.cmp(0)<0){i=C(co(n.sub(),r.sub())).sub()}else{i=C(0)}if(C.isFloat(t)||C.isFloat(e)){return uo(i)}return i}function co(e,t){var r=C(e).floor();var n=C(t).floor();if(e.cmp(r)<1){return r}else if(r.cmp(n)===0){var i=C(1).div(t.sub(n));var u=C(1).div(e.sub(r));return r.add(C(1).div(co(i,u)))}else{return r.add(C(1))}}function fo(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:false;if(typeof this!=="undefined"&&!(this instanceof fo)||typeof this==="undefined"){return new fo(e,t)}if(!C.isRational(e)){throw new Error("Invalid constructor call for LRational")}var r,n;if(e instanceof fo){r=C(e.__num__);n=C(e.__denom__)}else{r=C(e.num);n=C(e.denom)}if(!t&&n.cmp(0)!==0){var i=r.op("%",n).cmp(0)===0;if(i){return C(r.div(n))}}this.constant(r,n)}fo.prototype=Object.create(C.prototype);fo.prototype.constructor=fo;fo.prototype.constant=function(e,t){Object.defineProperty(this,"__num__",{value:e,enumerable:true});Object.defineProperty(this,"__denom__",{value:t,enumerable:true});Object.defineProperty(this,"__type__",{value:"rational",enumerable:true})};fo.prototype.serialize=function(){return{num:this.__num__,denom:this.__denom__}};fo.prototype.pow=function(e){var t=e.cmp(0);if(t===0){return C(1)}if(t===-1){e=e.sub();var r=this.__denom__.pow(e);var n=this.__num__.pow(e);return fo({num:r,denom:n})}var i=this;e=e.valueOf();while(e>1){i=i.mul(this);e--}return i};fo.prototype.sqrt=function(){var e=this.__num__.sqrt();var t=this.__denom__.sqrt();if(e instanceof uo||t instanceof uo){return e.div(t)}return fo({num:e,denom:t})};fo.prototype.abs=function(){var e=this.__num__;var t=this.__denom__;if(e.cmp(0)===-1){e=e.sub()}if(t.cmp(0)!==1){t=t.sub()}return fo({num:e,denom:t})};fo.prototype.cmp=function(e){return C(this.valueOf(),true).cmp(e)};fo.prototype.toString=function(){var e=this.__num__.gcd(this.__denom__);var t,r;if(e.cmp(1)!==0){t=this.__num__.div(e);if(t instanceof fo){t=C(t.valueOf(true))}r=this.__denom__.div(e);if(r instanceof fo){r=C(r.valueOf(true))}}else{t=this.__num__;r=this.__denom__}var n=this.cmp(0)<0;if(n){if(t.abs().cmp(r.abs())===0){return t.toString()}}else if(t.cmp(r)===0){return t.toString()}return t.toString()+"/"+r.toString()};fo.prototype.valueOf=function(e){if(this.__denom__.cmp(0)===0){if(this.__num__.cmp(0)<0){return Number.NEGATIVE_INFINITY}return Number.POSITIVE_INFINITY}if(e){return C._ops["/"](this.__num__.value,this.__denom__.value)}return uo(this.__num__.valueOf()).div(this.__denom__.valueOf())};fo.prototype.mul=function(e){if(!(e instanceof C)){e=C(e)}if(C.isRational(e)){var t=this.__num__.mul(e.__num__);var r=this.__denom__.mul(e.__denom__);return fo({num:t,denom:r})}var n=C.coerce(this,e),i=j(n,2),u=i[0],a=i[1];return u.mul(a)};fo.prototype.div=function(e){if(!(e instanceof C)){e=C(e)}if(C.isRational(e)){var t=this.__num__.mul(e.__denom__);var r=this.__denom__.mul(e.__num__);return fo({num:t,denom:r})}var n=C.coerce(this,e),i=j(n,2),u=i[0],a=i[1];var o=u.div(a);return o};fo.prototype._op=function(e,t){return this[to[e]](t)};fo.prototype.sub=function(e){if(typeof e==="undefined"){return this.mul(-1)}if(!(e instanceof C)){e=C(e)}if(C.isRational(e)){var t=e.__num__.sub();var r=e.__denom__;return this.add(fo({num:t,denom:r}))}if(!(e instanceof C)){e=C(e).sub()}else{e=e.sub()}var n=C.coerce(this,e),i=j(n,2),u=i[0],a=i[1];return u.add(a)};fo.prototype.add=function(e){if(!(e instanceof C)){e=C(e)}if(C.isRational(e)){var t=this.__denom__;var r=e.__denom__;var n=this.__num__;var i=e.__num__;var u,a;if(t!==r){a=r.mul(n).add(i.mul(t));u=t.mul(r)}else{a=n.add(i);u=t}return fo({num:a,denom:u})}if(C.isFloat(e)){return uo(this.valueOf()).add(e)}var o=C.coerce(this,e),s=j(o,2),c=s[0],f=s[1];return c.add(f)};function lo(e,t){if(typeof this!=="undefined"&&!(this instanceof lo)||typeof this==="undefined"){return new lo(e,t)}if(e instanceof lo){return lo(e.__value__,e._native)}if(!C.isBigInteger(e)){throw new Error("Invalid constructor call for LBigInteger")}this.constant(e,"bigint");Object.defineProperty(this,"_native",{value:t})}lo.prototype=Object.create(C.prototype);lo.prototype.constructor=lo;lo.bn_op={"+":"iadd","-":"isub","*":"imul","/":"idiv","%":"imod","|":"ior","&":"iand","~":"inot","<<":"ishrn",">>":"ishln"};lo.prototype.serialize=function(){return this.__value__.toString()};lo.prototype._op=function(e,t){if(typeof t==="undefined"){if(C.isBN(this.__value__)){e=lo.bn_op[e];return lo(this.__value__.clone()[e](),false)}return lo(C._ops[e](this.__value__),true)}if(C.isBN(this.__value__)&&C.isBN(t.__value__)){e=lo.bn_op[e];return lo(this.__value__.clone()[e](t),false)}var r=C._ops[e](this.__value__,t.__value__);if(e==="/"){var n=this.op("%",t).cmp(0)===0;if(n){return C(r)}return fo({num:this,denom:t})}return lo(r,true)};lo.prototype.sqrt=function(){var e;var t=this.cmp(0)<0;if(C.isNative(this.__value__)){e=C(Math.sqrt(t?-this.valueOf():this.valueOf()))}else if(C.isBN(this.__value__)){e=t?this.__value__.neg().sqrt():this.__value__.sqrt()}if(t){return io({re:0,im:e})}return e};C.NaN=C(NaN);function ho(e){var n=this;if(typeof this!=="undefined"&&!(this instanceof ho)||typeof this==="undefined"){return new ho(e)}h("InputPort",e,"function");$i(this,"__type__",xo);var i;Object.defineProperty(this,"__parser__",{enumerable:true,get:function e(){return i},set:function e(t){h("InputPort::__parser__",t,"parser");i=t}});this._read=e;this._with_parser=this._with_init_parser.bind(this,B(z.mark(function e(){var r;return z.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:if(n.char_ready()){t.next=5;break}t.next=3;return n._read();case 3:r=t.sent;i=new Li(r,{env:n});case 5:return t.abrupt("return",n.__parser__);case 6:case"end":return t.stop()}}},e)})));this.char_ready=function(){return!!this.__parser__&&this.__parser__.__lexer__.peek()!==Fo};this._make_defaults()}ho.prototype._make_defaults=function(){this.read=this._with_parser(function(e){return e.read_object()});this.read_line=this._with_parser(function(e){return e.__lexer__.read_line()});this.read_char=this._with_parser(function(e){return e.__lexer__.read_char()});this.read_string=this._with_parser(function(e,t){if(!C.isInteger(t)){var r=C.getType(t);Qo("read-string",r,"integer")}return e.__lexer__.read_string(t.valueOf())});this.peek_char=this._with_parser(function(e){return e.__lexer__.peek_char()})};ho.prototype._with_init_parser=function(o,s){var c=this;return B(z.mark(function e(){var r,n,i,u,a=arguments;return z.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:t.next=2;return o.call(c);case 2:r=t.sent;for(n=a.length,i=new Array(n),u=0;u"};function po(e){if(typeof this!=="undefined"&&!(this instanceof po)||typeof this==="undefined"){return new po(e)}h("OutputPort",e,"function");$i(this,"__type__",xo);this.write=e}po.prototype.is_open=function(){return this._closed!==true};po.prototype.close=function(){Object.defineProperty(this,"_closed",{get:function e(){return true},set:function e(){},configurable:false,enumerable:false});this.write=function(){throw new Error("output-port: port is closed")}};po.prototype.flush=function(){};po.prototype.toString=function(){return"#"};var _o=function(e){u(n,e);var r=fn(n);function n(e){var t;D(this,n);t=r.call(this,function(){var e;return(e=t)._write.apply(e,arguments)});h("BufferedOutputPort",e,"function");$i(i(t),"_fn",e,{hidden:true});$i(i(t),"_buffer",[],{hidden:true});return t}A(n,[{key:"flush",value:function e(){if(this._buffer.length){this._fn(this._buffer.join(""));this._buffer.length=0}}},{key:"_write",value:function e(){var t=this;for(var r=arguments.length,n=new Array(r),i=0;i"};vo.prototype.valueOf=function(){return this.__buffer__.map(function(e){return e.valueOf()}).join("")};function yo(e,t){var r=this;if(typeof this!=="undefined"&&!(this instanceof yo)||typeof this==="undefined"){return new yo(e,t)}h("OutputFilePort",e,"string");$i(this,"__filename__",e);$i(this,"_fd",t.valueOf(),{hidden:true});$i(this,"__type__",xo);this.write=function(e){if(!$a.isString(e)){e=Pu(e)}else{e=e.valueOf()}r.fs().write(r._fd,e,function(e){if(e){throw e}})}}yo.prototype=Object.create(po.prototype);yo.prototype.constructor=yo;yo.prototype.fs=function(){if(!this._fs){this._fs=this.internal("fs")}return this._fs};yo.prototype.internal=function(e){return Yo.get("**internal-env**").get(e)};yo.prototype.close=function(){var n=this;return new Promise(function(t,r){n.fs().close(n._fd,function(e){if(e){r(e)}else{$i(n,"_fd",null,{hidden:true});po.prototype.close.call(n);t()}})})};yo.prototype.toString=function(){return"#")};function mo(e,t){var r=this;if(typeof this!=="undefined"&&!(this instanceof mo)||typeof this==="undefined"){return new mo(e)}h("InputStringPort",e,"string");t=t||qo;e=e.valueOf();this._with_parser=this._with_init_parser.bind(this,function(){if(!r.__parser__){r.__parser__=new Li(e,{env:t})}return r.__parser__});$i(this,"__type__",xo);this._make_defaults()}mo.prototype.char_ready=function(){return true};mo.prototype=Object.create(ho.prototype);mo.prototype.constructor=mo;mo.prototype.toString=function(){return"#"};function go(e){if(typeof this!=="undefined"&&!(this instanceof go)||typeof this==="undefined"){return new go(e)}h("InputByteVectorPort",e,"uint8array");$i(this,"__vector__",e);$i(this,"__type__",Ao);var r=0;Object.defineProperty(this,"__index__",{enumerable:true,get:function e(){return r},set:function e(t){h("InputByteVectorPort::__index__",t,"number");if(t instanceof C){t=t.valueOf()}if(typeof t==="bigint"){t=Number(t)}if(Math.floor(t)!==t){throw new Error("InputByteVectorPort::__index__ value is "+"not integer")}r=t}})}go.prototype=Object.create(ho.prototype);go.prototype.constructor=go;go.prototype.toString=function(){return"#"};go.prototype.close=function(){var t=this;$i(this,"__vector__",U);["read_u8","close","peek_u8","read_u8_vector"].forEach(function(e){t[e]=function(){throw new Error("Input-binary-port: port is closed")}});this.char_ready=function(){return false}};go.prototype.u8_ready=function(){return true};go.prototype.peek_u8=function(){if(this.__index__>=this.__vector__.length){return Fo}return this.__vector__[this.__index__]};go.prototype.skip=function(){if(this.__index__<=this.__vector__.length){++this.__index__}};go.prototype.read_u8=function(){var e=this.peek_u8();this.skip();return e};go.prototype.read_u8_vector=function(e){if(typeof e==="undefined"){e=this.__vector__.length}else if(e>this.__index__+this.__vector__.length){e=this.__index__+this.__vector__.length}if(this.peek_u8()===Fo){return Fo}return this.__vector__.slice(this.__index__,e)};function bo(){if(typeof this!=="undefined"&&!(this instanceof bo)||typeof this==="undefined"){return new bo}$i(this,"__type__",Ao);$i(this,"_buffer",[],{hidden:true});this.write=function(e){h("write",e,["number","uint8array"]);if(C.isNumber(e)){this._buffer.push(e.valueOf())}else{var t;(t=this._buffer).push.apply(t,q(Array.from(e)))}};Object.defineProperty(this,"__buffer__",{enumerable:true,get:function e(){return Uint8Array.from(this._buffer)}})}bo.prototype=Object.create(po.prototype);bo.prototype.constructor=bo;bo.prototype.close=function(){po.prototype.close.call(this);$i(this,"_buffer",null,{hidden:true})};bo.prototype._close_guard=function(){if(this._closed){throw new Error("output-port: binary port is closed")}};bo.prototype.write_u8=function(e){h("OutputByteVectorPort::write_u8",e,"number");this.write(e)};bo.prototype.write_u8_vector=function(e){h("OutputByteVectorPort::write_u8_vector",e,"uint8array");this.write(e)};bo.prototype.toString=function(){return"#"};bo.prototype.valueOf=function(){return this.__buffer__};function wo(e,t){if(typeof this!=="undefined"&&!(this instanceof wo)||typeof this==="undefined"){return new wo(e,t)}mo.call(this,e);h("InputFilePort",t,"string");$i(this,"__filename__",t)}wo.prototype=Object.create(mo.prototype);wo.prototype.constructor=wo;wo.prototype.toString=function(){return"#")};function Do(e,t){if(typeof this!=="undefined"&&!(this instanceof Do)||typeof this==="undefined"){return new Do(e,t)}go.call(this,e);h("InputBinaryFilePort",t,"string");$i(this,"__filename__",t)}Do.prototype=Object.create(go.prototype);Do.prototype.constructor=Do;Do.prototype.toString=function(){return"#")};function Eo(e,t){if(typeof this!=="undefined"&&!(this instanceof Eo)||typeof this==="undefined"){return new Eo(e,t)}h("OutputBinaryFilePort",e,"string");$i(this,"__filename__",e);$i(this,"_fd",t.valueOf(),{hidden:true});$i(this,"__type__",Ao);var u,r;this.write=function(e){var n=this;h("write",e,["number","uint8array"]);var i;if(!u){u=this.internal("fs")}if(!r){r=this.internal("Buffer")}if(C.isNumber(e)){i=r.from([e.valueOf()])}else{i=r.from(Array.from(e))}return new Promise(function(t,r){u.write(n._fd,i,function(e){if(e){r(e)}else{t()}})})}}Eo.prototype=Object.create(yo.prototype);Eo.prototype.constructor=Eo;Eo.prototype.write_u8=function(e){h("OutputByteVectorPort::write_u8",e,"number");this.write(e)};Eo.prototype.write_u8_vector=function(e){h("OutputByteVectorPort::write_u8_vector",e,"uint8array");this.write(e)};var Ao=Symbol["for"]("binary");var xo=Symbol["for"]("text");var Fo=new ko;function ko(){}ko.prototype.toString=function(){return"#"};function Co(e){var c=this;var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:{},r=t.stderr,n=t.stdin,i=t.stdout,u=t.command_line,a=u===void 0?null:u,o=F(t,cn);if(typeof this!=="undefined"&&!(this instanceof Co)||typeof this==="undefined"){return new Co(e,vn({stdin:n,stdout:i,stderr:r,command_line:a},o))}if(typeof e==="undefined"){e="anonymous"}this.__env__=Yo.inherit(e,o);this.__env__.set("parent.frame",y("parent.frame",function(){return c.__env__},qo.__env__["parent.frame"].__doc__));var f="**interaction-environment-defaults**";this.set(f,Ou(o).concat(f));var s=Lo.inherit("internal-".concat(e));if(pa(n)){s.set("stdin",n)}if(pa(r)){s.set("stderr",r)}if(pa(i)){s.set("stdout",i)}s.set("command-line",a);Vo(this.__env__,s)}Co.prototype.exec=function(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:false;var r=arguments.length>2&&arguments[2]!==undefined?arguments[2]:null;h("Interpreter::exec",e,["string","array"],1);h("Interpreter::exec",t,"boolean",2);qo.set("**interaction-environment**",this.__env__);if(r===null){r=this.__env__}return vs(e,r,t?r:false)};Co.prototype.get=function(e){var t=this.__env__.get(e);if(Xu(t)){return t.bind(this.__env__)}return t};Co.prototype.set=function(e,t){return this.__env__.set(e,t)};Co.prototype.constant=function(e,t){return this.__env__.constant(e,t)};function Oo(e,t){this.name="LipsError";this.message=e;this.args=t;this.stack=(new Error).stack}Oo.prototype=new Error;Oo.prototype.constructor=Oo;function So(e,t,r){if(arguments.length===1){if(_(arguments[0])==="object"){e=arguments[0];t=null}else if(typeof arguments[0]==="string"){e={};t=null;r=arguments[0]}}this.__docs__=new Map;this.__env__=e;this.__parent__=t;this.__name__=r||"anonymous"}So.prototype.list=function(){return Ou(this.__env__)};So.prototype.fs=function(){return this.get("**fs**")};So.prototype.unset=function(e){if(e instanceof L){e=e.valueOf()}if(e instanceof $a){e=e.valueOf()}delete this.__env__[e]};So.prototype.inherit=function(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:{};if(_(e)==="object"){t=e}if(!e||_(e)==="object"){e="child of "+(this.__name__||"unknown")}return new So(t||{},this,e)};So.prototype.doc=function(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:null;var r=arguments.length>2&&arguments[2]!==undefined?arguments[2]:false;if(e instanceof L){e=e.__name__}if(e instanceof $a){e=e.valueOf()}if(t){if(!r){t=Hi(t)}this.__docs__.set(e,t);return this}if(this.__docs__.has(e)){return this.__docs__.get(e)}if(this.__parent__){return this.__parent__.doc(e)}};So.prototype.newFrame=function(e,t){var n=this.inherit("__frame__");n.set("parent.frame",y("parent.frame",function(){var e=arguments.length>0&&arguments[0]!==undefined?arguments[0]:1;e=e.valueOf();var t=n.__parent__;if(!(t instanceof So)){return U}if(e<=0){return t}var r=t.get("parent.frame");return r(e-1)},qo.__env__["parent.frame"].__doc__));t.callee=e;n.set("arguments",t);return n};So.prototype._lookup=function(e){if(e instanceof L){e=e.__name__}if(e instanceof $a){e=e.valueOf()}if(this.__env__.hasOwnProperty(e)){return Bo(this.__env__[e])}if(this.__parent__){return this.__parent__._lookup(e)}};So.prototype.toString=function(){return"#"};So.prototype.clone=function(){var t=this;var r={};Object.keys(this.__env__).forEach(function(e){r[e]=t.__env__[e]});return new So(r,this.__parent__,this.__name__)};So.prototype.merge=function(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:"merge";h("Environment::merge",e,"environment");return this.inherit(t,e.__env__)};function Bo(e){if(typeof this!=="undefined"&&!(this instanceof Bo)||typeof this==="undefined"){return new Bo(e)}this.value=e}Bo.isUndefined=function(e){return e instanceof Bo&&typeof e.value==="undefined"};Bo.prototype.valueOf=function(){return this.value};function jo(e){if(e.length){if(e.length===1){return e[0]}}if(typeof this!=="undefined"&&!(this instanceof jo)||typeof this==="undefined"){return new jo(e)}this.__values__=e}jo.prototype.toString=function(){return this.__values__.map(function(e){return Pu(e)}).join("\n")};jo.prototype.valueOf=function(){return this.__values__};So.prototype.get=function(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:{};h("Environment::get",e,["symbol","string"]);var r=t.throwError,c=r===void 0?true:r;var n=e;if(n instanceof L||n instanceof $a){n=n.valueOf()}var i=this._lookup(n);if(i instanceof Bo){if(Bo.isUndefined(i)){return undefined}return oa(i.valueOf())}var u;if(e instanceof L&&e[L.object]){u=e[L.object]}else if(typeof n==="string"){u=n.split(".").filter(Boolean)}if(u&&u.length>0){var f=u,a=m(f),o=a[0],s=a.slice(1);i=this._lookup(o);if(s.length){try{if(i instanceof Bo){i=i.valueOf()}else{i=No(gn,o);if(Xu(i)){i=sa(i)}}if(typeof i!=="undefined"){return No.apply(void 0,[i].concat(q(s)))}}catch(e){throw e}}else if(i instanceof Bo){return oa(i.valueOf())}i=No(gn,n)}if(typeof i!=="undefined"){return i}if(c){throw new Error("Unbound variable `"+n.toString()+"'")}};So.prototype.set=function(e,t){var r=arguments.length>2&&arguments[2]!==undefined?arguments[2]:null;h("Environment::set",e,["string","symbol"]);if(C.isNumber(t)){t=C(t)}if(e instanceof L){e=e.__name__}if(e instanceof $a){e=e.valueOf()}this.__env__[e]=t;if(r){this.doc(e,r,true)}return this};So.prototype.constant=function(t,e){var r=this;if(this.__env__.hasOwnProperty(t)){throw new Error("Environment::constant: ".concat(t," already exists"))}if(arguments.length===1&&wu(arguments[0])){var n=arguments[0];Object.keys(n).forEach(function(e){r.constant(t,n[e])})}else{Object.defineProperty(this.__env__,t,{value:e,enumerable:true})}return this};So.prototype.has=function(e){return this.__env__.hasOwnProperty(e)};So.prototype.ref=function(e){var t=this;while(true){if(!t){break}if(t.has(e)){return t}t=t.__parent__}};So.prototype.parents=function(){var e=this;var t=[];while(e){t.unshift(e);e=e.__parent__}return t};function Io(e){if(ra(e)){return e.then(Io)}if(e instanceof M||e instanceof L){e[ya]=true}return e}var Po=Mi(wi('(lambda ()\n "[native code]"\n (throw "Invalid Invocation"))'))[0];var No=y("get",function c(e){var t;for(var r=arguments.length,n=new Array(r>1?r-1:0),i=1;i0&&arguments[0]!==undefined?arguments[0]:null;if(e===null){e=Ro(this,"stdin")}Xo("peek-char",e,"input-port");return e.peek_char()},"(peek-char port)\n\n This function reads and returns a character from the string\n port, or, if there is no more data in the string port, it\n returns an EOF."),"read-line":y("read-line",function(){var e=arguments.length>0&&arguments[0]!==undefined?arguments[0]:null;if(e===null){e=Ro(this,"stdin")}Xo("read-line",e,"input-port");return e.read_line()},"(read-line port)\n\n This function reads and returns the next line from the input\n port."),"read-char":y("read-char",function(){var e=arguments.length>0&&arguments[0]!==undefined?arguments[0]:null;if(e===null){e=Ro(this,"stdin")}Xo("read-char",e,"input-port");return e.read_char()},"(read-char port)\n\n This function reads and returns the next character from the\n input port."),read:y("read",function(){var e=B(z.mark(function e(){var r,n,i,u,a,o,s,c,f=arguments;return z.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:r=f.length>0&&f[0]!==undefined?f[0]:null;if(!$a.isString(r)){t.next=30;break}n=false;i=false;t.prev=4;a=yn(Mi(r,this));case 6:t.next=8;return a.next();case 8:if(!(n=!(o=t.sent).done)){t.next=14;break}s=o.value;return t.abrupt("return",s);case 11:n=false;t.next=6;break;case 14:t.next=20;break;case 16:t.prev=16;t.t0=t["catch"](4);i=true;u=t.t0;case 20:t.prev=20;t.prev=21;if(!(n&&a["return"]!=null)){t.next=25;break}t.next=25;return a["return"]();case 25:t.prev=25;if(!i){t.next=28;break}throw u;case 28:return t.finish(25);case 29:return t.finish(20);case 30:if(r===null){c=Ro(this,"stdin")}else{c=r}Xo("read",c,"input-port");return t.abrupt("return",c.read.call(this));case 33:case"end":return t.stop()}}},e,this,[[4,16,20,30],[21,,25,29]])}));function t(){return e.apply(this,arguments)}return t}(),"(read [string])\n\n This function, if used with a string, will parse it and\n return the LIPS code, if there is any. If called with a\n port, it will parse the next item from the port. If called\n without an input, it will read a string from standard input\n (using the browser's prompt or a user defined input method)\n and calls itself with that string. This function can be used\n together with `eval` to evaluate code from a string."),pprint:y("pprint",function e(t){if(t instanceof M){t=new Gs.Formatter(t.toString(true))["break"]().format();qo.get("display").call(qo,t)}else{qo.get("write").call(qo,t)}qo.get("newline").call(qo)},"(pprint expression)\n\n This function will pretty print its input to stdout. If it is called\n with a non-list, it will just call the print function on its\n input."),print:y("print",function e(){var t=qo.get("display");var r=qo.get("newline");for(var n=arguments.length,i=new Array(n),u=0;u1?r-1:0),i=1;in.length){throw new Error("Not enough arguments")}var o=0;var s=qo.get("repr");t=t.replace(u,function(e){var t=e[1];if(t==="~"){return"~"}else if(t==="%"){return"\n"}else{var r=n[o++];if(t==="a"){return s(r)}else{return s(r,true)}}});a=t.match(/~([\S])/);if(a){throw new Error("format: Unrecognized escape sequence ".concat(a[1]))}return t},"(format string n1 n2 ...)\n\n This function accepts a string template and replaces any\n escape sequences in its inputs:\n\n * ~a value as if printed with `display`\n * ~s value as if printed with `write`\n * ~% newline character\n * ~~ literal tilde '~'\n\n If there are missing inputs or other escape characters it\n will error."),display:y("display",function e(t){var r=arguments.length>1&&arguments[1]!==undefined?arguments[1]:null;if(r===null){r=Ro(this,"stdout")}else{h("display",r,"output-port")}var n=qo.get("repr")(t);r.write.call(qo,n)},"(display string [port])\n\n This function outputs the string to the standard output or\n the port if given. No newline."),"display-error":y("display-error",function e(){var t=Ro(this,"stderr");var r=qo.get("repr");for(var n=arguments.length,i=new Array(n),u=0;u1&&arguments[1]!==undefined?arguments[1]:{},r=t.dynamic_scope,n=t.error;if(r){r=this}var i=this;var u;var a=_s(e.cdr.car,{env:this,dynamic_scope:r,error:n});a=as(a);function o(t,r,n){if(ra(t)){return t.then(function(e){return o(t,e,n)})}if(ra(r)){return r.then(function(e){return o(t,e,n)})}if(ra(n)){return n.then(function(e){return o(t,r,e)})}i.get("set-obj!").call(i,t,r,n);return n}if(e.car instanceof M&&L.is(e.car.car,".")){var f=e.car.cdr.car;var l=e.car.cdr.cdr.car;var h=_s(f,{env:this,dynamic_scope:r,error:n});var p=_s(l,{env:this,dynamic_scope:r,error:n});return o(h,p,a)}if(!(e.car instanceof L)){throw new Error("set! first argument need to be a symbol or "+"dot accessor that evaluate to object.")}var s=e.car.valueOf();u=this.ref(e.car.__name__);return Yi(a,function(e){if(!u){var t=s.split(".");if(t.length>1){var r=t.pop();var n=t.join(".");var i=c.get(n,{throwError:false});if(i){o(i,r,e);return}}throw new Error("Unbound variable `"+s+"'")}u.set(s,e)})}),"(set! name value)\n\n Macro that can be used to set the value of the variable or slot (mutate it).\n set! searches the scope chain until it finds first non empty slot and sets it."),"unset!":y(new Vu("set!",function(e){if(!(e.car instanceof L)){throw new Error("unset! first argument need to be a symbol or "+"dot accessor that evaluate to object.")}var t=e.car;var r=this.ref(t);if(r){delete r.__env__[t.__name__]}}),"(unset! name)\n\n Function to delete the specified name from environment.\n Trying to access the name afterwards will error."),"set-car!":y("set-car!",function(e,t){h("set-car!",e,"pair");e.car=t},"(set-car! obj value)\n\n Function that sets the car (first item) of the list/pair to specified value.\n The old value is lost."),"set-cdr!":y("set-cdr!",function(e,t){h("set-cdr!",e,"pair");e.cdr=t},"(set-cdr! obj value)\n\n Function that sets the cdr (tail) of the list/pair to specified value.\n It will destroy the list. The old tail is lost."),"empty?":y("empty?",function(e){return typeof e==="undefined"||e===U},"(empty? object)\n\n Function that returns #t if value is nil (an empty list) or undefined."),gensym:y("gensym",Fi,"(gensym)\n\n Generates a unique symbol that is not bound anywhere,\n to use with macros as meta name."),load:y("load",function e(o,t){h("load",o,"string");var s=this;if(s.__name__==="__frame__"){s=s.__parent__}if(!(t instanceof So)){if(s===qo){t=s}else{t=this.get("**interaction-environment**")}}var c="**module-path**";var f=qo.get(c,{throwError:false});o=o.valueOf();if(!o.match(/.[^.]+$/)){o+=".scm"}var r=o.match(/\.xcb$/);function l(e){if(r){e=Vs(e)}else{if(us(e)==="buffer"){e=e.toString()}e=e.replace(/^#!.*/,"");if(e.match(/^\{/)){e=Rs(e)}}return vs(e,t)}function n(e){return gn.fetch(e).then(function(e){return r?e.arrayBuffer():e.text()}).then(function(e){if(r){e=new Uint8Array(e)}return e})}if(Go()){return new Promise(function(){var r=B(z.mark(function e(r,n){var i,u,a;return z.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:i=An("path");if(!f){t.next=6;break}f=f.valueOf();o=i.join(f,o);t.next=12;break;case 6:u=s.get("command-line",{throwError:false});if(!u){t.next=11;break}t.next=10;return u();case 10:a=t.sent;case 11:if(a&&a!==U){process.cwd();o=i.join(i.dirname(a.car.valueOf()),o)}case 12:qo.set(c,i.dirname(o));An("fs").readFile(o,function(e,t){if(e){n(e);qo.set(c,f)}else{try{l(t).then(function(){r();qo.set(c,f)})["catch"](n)}catch(e){n(e)}}});case 14:case"end":return t.stop()}}},e)}));return function(e,t){return r.apply(this,arguments)}}())}if(f){f=f.valueOf();o=f+"/"+o.replace(/^\.?\/?/,"")}return n(o).then(function(e){qo.set(c,o.replace(/\/[^/]*$/,""));return l(e)}).then(function(){})["finally"](function(){qo.set(c,f)})},"(load filename)\n (load filename environment)\n\n Fetches the file (from disk or network) and evaluates its content as LIPS code.\n If the second argument is provided and it's an environment the evaluation\n will happen in that environment."),do:y(new Vu("do",function(){var r=B(z.mark(function e(r,h){var n,i,u,o,s,a,c,f,l,p,_;return z.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:n=h.dynamic_scope,i=h.error;u=this;if(n){n=u}o=u.inherit("do");s=r.car;a=r.cdr.car;c=r.cdr.cdr;if(c!==U){c=new M(L("begin"),c)}f={env:u,dynamic_scope:n,error:i};l=s;case 10:if(!(l!==U)){t.next=21;break}p=l.car;t.t0=o;t.t1=p.car;t.next=16;return _s(p.cdr.car,f);case 16:t.t2=t.sent;t.t0.set.call(t.t0,t.t1,t.t2);l=l.cdr;t.next=10;break;case 21:f={env:o,dynamic_scope:n,error:i};_=z.mark(function e(){var r,n,i,u,a;return z.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:if(!(c!==U)){t.next=3;break}t.next=3;return Gs.evaluate(c,f);case 3:r=s;n={};case 5:if(!(r!==U)){t.next=15;break}i=r.car;if(!(i.cdr.cdr!==U)){t.next=12;break}t.next=10;return _s(i.cdr.cdr.car,f);case 10:u=t.sent;n[i.car.valueOf()]=u;case 12:r=r.cdr;t.next=5;break;case 15:a=Object.getOwnPropertySymbols(n);Object.keys(n).concat(a).forEach(function(e){o.set(e,n[e])});case 17:case"end":return t.stop()}}},e)});case 23:t.next=25;return _s(a.car,f);case 25:t.t3=t.sent;if(!(t.t3===false)){t.next=30;break}return t.delegateYield(_(),"t4",28);case 28:t.next=23;break;case 30:if(!(a.cdr!==U)){t.next=34;break}t.next=33;return _s(a.cdr.car,f);case 33:return t.abrupt("return",t.sent);case 34:case"end":return t.stop()}}},e,this)}));return function(e,t){return r.apply(this,arguments)}}()),"(do (( )) (test return) . body)\n\n Iteration macro that evaluates the expression body in scope of the variables.\n On each loop it changes the variables according to the expression and runs\n test to check if the loop should continue. If test is a single value, the macro\n will return undefined. If the test is a pair of expressions the macro will\n evaluate and return the second expression after the loop exits."),if:y(new Vu("if",function(r,e){var n=e.dynamic_scope,i=e.error;if(n){n=this}var u=this;var t=function e(t){if(t===false){return _s(r.cdr.cdr.car,{env:u,dynamic_scope:n,error:i})}else{return _s(r.cdr.car,{env:u,dynamic_scope:n,error:i})}};if(r===U){throw new Error("too few expressions for `if`")}var a=_s(r.car,{env:u,dynamic_scope:n,error:i});return Yi(a,t)}),"(if cond true-expr false-expr)\n\n Macro that evaluates cond expression and if the value is true, it\n evaluates and returns true-expression, if not it evaluates and returns\n false-expression."),"let-env":new Vu("let-env",function(t){var e=arguments.length>1&&arguments[1]!==undefined?arguments[1]:{};var r=e.dynamic_scope,n=e.error;h("let-env",t,"pair");var i=_s(t.car,{env:this,dynamic_scope:r,error:n});return Yi(i,function(e){h("let-env",e,"environment");return _s(M(L("begin"),t.cdr),{env:e,dynamic_scope:r,error:n})})},"(let-env env . body)\n\n Special macro that evaluates body in context of given environment\n object."),letrec:y(ja(Symbol["for"]("letrec")),"(letrec ((a value-a) (b value-b) ...) . body)\n\n Macro that creates a new environment, then evaluates and assigns values to\n names and then evaluates the body in context of that environment.\n Values are evaluated sequentially and the next value can access the\n previous values/names."),"letrec*":y(ja(Symbol["for"]("letrec")),"(letrec* ((a value-a) (b value-b) ...) . body)\n\n Same as letrec but the order of execution of the binding is guaranteed,\n so you can use recursive code as well as referencing the previous binding.\n\n In LIPS both letrec and letrec* behave the same."),"let*":y(ja(Symbol["for"]("let*")),"(let* ((a value-a) (b value-b) ...) . body)\n\n Macro similar to `let`, but the subsequent bindings after the first\n are evaluated in the environment including the previous let variables,\n so you can define one variable, and use it in the next's definition."),let:y(ja(Symbol["for"]("let")),"(let ((a value-a) (b value-b) ...) . body)\n\n Macro that creates a new environment, then evaluates and assigns values to names,\n and then evaluates the body in context of that environment. Values are evaluated\n sequentially but you can't access previous values/names when the next are\n evaluated. You can only get them in the body of the let expression. (If you want\n to define multiple variables and use them in each other's definitions, use\n `let*`.)"),"begin*":y(Ia("begin*",function(e){return e.pop()}),"(begin* . body)\n\n This macro is a parallel version of begin. It evaluates each expression\n in the body and if it's a promise it will await it in parallel and return\n the value of the last expression (i.e. it uses Promise.all())."),begin:y(new Vu("begin",function(e,t){var n=Object.assign({},t);var i=qo.get("list->array")(e);if(n.dynamic_scope){n.dynamic_scope=this}n.env=this;var u;return function t(){if(i.length){var e=i.shift();var r=_s(e,n);return Yi(r,function(e){u=e;return t()})}else{return u}}()}),"(begin . args)\n\n Macro that runs a list of expressions in order and returns the value\n of the last one. It can be used in places where you can only have a\n single expression, like (if)."),ignore:new Vu("ignore",function(e,t){var r=t.dynamic_scope,n=t.error;var i={env:this,error:n};if(r){i.dynamic_scope=this}_s(new M(new L("begin"),e),i)},"(ignore . body)\n\n Macro that will evaluate the expression and swallow any promises that may\n be created. It will discard any value that may be returned by the last body\n expression. The code should have side effects and/or when it's promise\n it should resolve to undefined."),"call/cc":y(Vu.defmacro("call/cc",function(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:{};var r=vn({env:this},t);return Yi(_s(e.car,r),function(e){if(Xu(e)){return e(new hs(null))}})}),"(call/cc proc)\n\n Call-with-current-continuation.\n\n NOT SUPPORTED BY LIPS RIGHT NOW"),define:y(Vu.defmacro("define",function(r,e){var n=this;if(r.car instanceof M&&r.car.car instanceof L){var t=new M(new L("define"),new M(r.car.car,new M(new M(new L("lambda"),new M(r.car.cdr,r.cdr)))));return t}else if(e.macro_expand){return}if(e.dynamic_scope){e.dynamic_scope=this}e.env=n;var i=r.cdr.car;var u;if(i instanceof M){i=_s(i,e);u=true}else if(i instanceof L){i=n.get(i)}h("define",r.car,"symbol");return Yi(i,function(e){if(n.__name__===Ku.__merge_env__){n=n.__parent__}if(u&&(Xu(e)&&Ca(e)||e instanceof Ku)){e.__name__=r.car.valueOf();if(e.__name__ instanceof $a){e.__name__=e.__name__.valueOf()}}var t;if(r.cdr.cdr instanceof M&&$a.isString(r.cdr.cdr.car)){t=r.cdr.cdr.car.valueOf()}n.set(r.car,e,t,true)})}),'(define name expression)\n (define name expression "doc string")\n (define (function-name . args) . body)\n\n Macro for defining values. It can be used to define variables,\n or functions. If the first argument is list it will create a function\n with name being first element of the list. This form expands to\n `(define function-name (lambda args body))`'),"set-obj!":y("set-obj!",function(e,t,r){var n=arguments.length>3&&arguments[3]!==undefined?arguments[3]:null;var i=_(e);if(Zu(e)||i!=="object"&&i!=="function"){var u=Qo("set-obj!",us(e),["object","function"]);throw new Error(u)}h("set-obj!",t,["string","symbol","number"]);e=sa(e);t=t.valueOf();if(arguments.length===2){delete e[t]}else if(Nu(e)&&Xu(r)){e[t]=sa(r);e[t][Da]=true}else if(Xu(r)||ts(r)||r===U){e[t]=r}else{e[t]=r&&!Nu(r)?r.valueOf():r}if(Du){var a=e[t];Object.defineProperty(e,t,vn(vn({},n),{},{value:a}))}},"(set-obj! obj key value)\n (set-obj! obj key value props)\n\n Function set a property of a JavaScript object. props should be a vector of pairs,\n passed to Object.defineProperty."),"null-environment":y("null-environment",function(){return qo.inherit("null")},"(null-environment)\n\n Returns a clean environment with only the standard library."),values:y("values",function e(){for(var t=arguments.length,r=new Array(t),n=0;n1&&arguments[1]!==undefined?arguments[1]:{},h=e.dynamic_scope,p=e.error;var _=this;var d;if(l.cdr instanceof M&&$a.isString(l.cdr.car)&&l.cdr.cdr!==U){d=l.cdr.car.valueOf()}function v(){var e;if(h){if(!(this instanceof So)){e=_}else{e=this}}else{e=_}e=e.inherit("lambda");var t=l.car;var r=0;var n;if(typeof this!=="undefined"&&!(this instanceof So)){if(this&&!this.__instance__){Object.defineProperty(this,"__instance__",{enumerable:false,get:function e(){return true},set:function e(){},configurable:false})}e.set("this",this)}for(var i=arguments.length,u=new Array(i),a=0;a>> "+c.toString());if(c){o=c}var d=r.merge(t,Ku.__merge_env__);if(l){return{expr:o,scope:d}}var v=_s(o,vn(vn({},p),{},{env:d}));return Wu(v,_)}i=i.cdr}}catch(e){e.message+=" in macro: ".concat(y.toString(true));throw e}throw new Error("Invalid Syntax ".concat(e.toString(true)))},b);r.__code__=y;return r},"(syntax-rules () (pattern expression) ...)\n\n Base of hygienic macros, it will return a new syntax expander\n that works like Lisp macros."),quote:y(new Vu("quote",function(e){return Io(e.car)}),"(quote expression) or 'expression\n\n Macro that returns a single LIPS expression as data (it won't evaluate the\n argument). It will return a list if put in front of LIPS code.\n And if put in front of a symbol it will return the symbol itself, not the value\n bound to that name."),"unquote-splicing":y("unquote-splicing",function(){throw new Error("You can't call `unquote-splicing` outside of quasiquote")},"(unquote-splicing code) or ,@code\n\n Special form used in the quasiquote macro. It evaluates the expression inside and\n splices the list into quasiquote's result. If it is not the last element of the\n expression, the computed value must be a pair."),unquote:y("unquote",function(){throw new Error("You can't call `unquote` outside of quasiquote")},"(unquote code) or ,code\n\n Special form used in the quasiquote macro. It evaluates the expression inside and\n substitutes the value into quasiquote's result."),quasiquote:Vu.defmacro("quasiquote",function(e,t){var o=t.dynamic_scope,s=t.error;var c=this;if(o){o=c}function a(e){return e instanceof M||wu(e)||Array.isArray(e)}function h(e,t){var r=arguments.length>2&&arguments[2]!==undefined?arguments[2]:a;if(e instanceof M){var n=e.car;var i=e.cdr;if(r(n)){n=t(n)}if(r(i)){i=t(i)}if(ra(n)||ra(i)){return Ci([n,i]).then(function(e){var t=j(e,2),r=t[0],n=t[1];return new M(r,n)})}else{return new M(n,i)}}return e}function u(e,t){if(e instanceof M){if(t!==U){e.append(t)}}else{e=new M(e,t)}return e}function r(e){return!!e.filter(function(e){return e instanceof M&&L.is(e.car,/^(unquote|unquote-splicing)$/)}).length}function p(e,n,i){return e.reduce(function(e,t){if(!(t instanceof M)){e.push(t);return e}if(L.is(t.car,"unquote-splicing")){var r;if(n+11){var t="You can't splice multiple atoms inside list";throw new Error(t)}if(!(i.cdr instanceof M&&r[0]===U)){return r[0]}}r=r.map(function(e){if(d.has(e)){return e.clone()}else{d.add(e);return e}});var n=l(i.cdr,0,1);if(n===U&&r[0]===U){return undefined}return Yi(n,function(e){if(r[0]===U){return e}if(r.length===1){return u(r[0],e)}var t=r.reduce(function(e,t){return u(e,t)});return u(t,e)})})}(i.car.cdr)}var d=new Set;function l(e,t,r){if(e instanceof M){if(e.car instanceof M){if(L.is(e.car.car,"unquote-splicing")){return f(e,t+1,r)}if(L.is(e.car.car,"unquote")){if(t+2===r&&e.car.cdr instanceof M&&e.car.cdr.car instanceof M&&L.is(e.car.cdr.car.car,"unquote-splicing")){var n=e.car.cdr;return new M(new M(new L("unquote"),f(n,t+2,r)),U)}else if(e.car.cdr instanceof M&&e.car.cdr.cdr!==U){if(e.car.cdr.car instanceof M){var i=[];return function t(r){if(r===U){return M.fromArray(i)}return Yi(_s(r.car,{env:c,dynamic_scope:o,error:s}),function(e){i.push(e);return t(r.cdr)})}(e.car.cdr)}else{return e.car.cdr}}}}if(L.is(e.car,"quasiquote")){var u=l(e.cdr,t,r+1);return new M(e.car,u)}if(L.is(e.car,"quote")){return new M(e.car,l(e.cdr,t,r))}if(L.is(e.car,"unquote")){t++;if(tr){throw new Error("You can't call `unquote` outside "+"of quasiquote")}if(e.cdr instanceof M){if(e.cdr.cdr!==U){if(e.cdr.car instanceof M){var a=[];return function t(r){if(r===U){return M.fromArray(a)}return Yi(_s(r.car,{env:c,dynamic_scope:o,error:s}),function(e){a.push(e);return t(r.cdr)})}(e.cdr)}else{return e.cdr}}else{return _s(e.cdr.car,{env:c,dynamic_scope:o,error:s})}}else{return e.cdr}}return h(e,function(e){return l(e,t,r)})}else if(wu(e)){return _(e,t,r)}else if(e instanceof Array){return p(e,t,r)}return e}function n(e){if(e instanceof M){delete e[ya];if(!e.haveCycles("car")){n(e.car)}if(!e.haveCycles("cdr")){n(e.cdr)}}}if(wu(e.car)&&!r(Object.values(e.car))){return Io(e.car)}if(Array.isArray(e.car)&&!r(e.car)){return Io(e.car)}if(e.car instanceof M&&!e.car.find("unquote")&&!e.car.find("unquote-splicing")&&!e.car.find("quasiquote")){return Io(e.car)}var i=l(e.car,0,1);return Yi(i,function(e){n(e);return Io(e)})},"(quasiquote list)\n\n Similar macro to `quote` but inside it you can use special expressions (unquote\n x) abbreviated to ,x that will evaluate x and insert its value verbatim or\n (unquote-splicing x) abbreviated to ,@x that will evaluate x and splice the value\n into the result. Best used with macros but it can be used outside."),clone:y("clone",function e(t){h("clone",t,"pair");return t.clone()},"(clone list)\n\n Function that returns a clone of the list, that does not share any pairs with the\n original, so the clone can be safely mutated without affecting the original."),append:y("append",function e(){var t;for(var r=arguments.length,n=new Array(r),i=0;iarray")(t).reverse();return qo.get("array->list")(r)}else if(!(t instanceof Array)){throw new Error(Qo("reverse",us(t),"array or pair"))}else{return t.reverse()}},"(reverse list)\n\n Function that reverses the list or array. If value is not a list\n or array it will error."),nth:y("nth",function e(t,r){h("nth",t,"number");h("nth",r,["array","pair"]);if(r instanceof M){var n=r;var i=0;while(iarray")(r).join(t)},"(join separator list)\n\n Function that returns a string by joining elements of the list using separator."),split:y("split",function e(t,r){h("split",t,["regex","string"]);h("split",r,"string");return qo.get("array->list")(r.split(t))},"(split separator string)\n\n Function that creates a list by splitting string by separator which can\n be a string or regular expression."),replace:y("replace",function e(t,r,n){h("replace",t,["regex","string"]);h("replace",r,["string","function"]);h("replace",n,"string");return n.replace(t,r)},"(replace pattern replacement string)\n\n Function that changes pattern to replacement inside string. Pattern can be a\n string or regex and replacement can be function or string. See Javascript\n String.replace()."),match:y("match",function e(t,r){h("match",t,["regex","string"]);h("match",r,"string");var n=r.match(t);return n?qo.get("array->list")(n):false},"(match pattern string)\n\n Function that returns a match object from JavaScript as a list or #f if\n no match."),search:y("search",function e(t,r){h("search",t,["regex","string"]);h("search",r,"string");return r.search(t)},"(search pattern string)\n\n Function that returns the first found index of the pattern inside a string."),repr:y("repr",function e(t,r){return Pu(t,r)},"(repr obj)\n\n Function that returns a LIPS code representation of the object as a string."),"escape-regex":y("escape-regex",function(e){h("escape-regex",e,"string");return _i(e.valueOf())},"(escape-regex string)\n\n Function that returns a new string where all special operators used in regex,\n are escaped with backslashes so they can be used in the RegExp constructor\n to match a literal string."),env:y("env",function e(e){e=e||this;var t=Object.keys(e.__env__).map(L);var r;if(t.length){r=M.fromArray(t)}else{r=U}if(e.__parent__ instanceof So){return qo.get("env")(e.__parent__).append(r)}return r},"(env)\n (env obj)\n\n Function that returns a list of names (functions, macros and variables)\n that are bound in the current environment or one of its parents."),new:y("new",function(e){for(var t=arguments.length,r=new Array(t>1?t-1:0),n=1;n2&&arguments[2]!==undefined?arguments[2]:Bi.LITERAL;h("set-special!",e,"string",1);h("set-special!",t,"symbol",2);Bi.append(e.valueOf(),t,r)},'(set-special! symbol name [type])\n\n Add a special symbol to the list of transforming operators by the parser.\n e.g.: `(add-special! "#" \'x)` will allow to use `#(1 2 3)` and it will be\n transformed into (x (1 2 3)) so you can write x macro that will process\n the list. 3rd argument is optional, and it can be one of two values:\n lips.specials.LITERAL, which is the default behavior, or\n lips.specials.SPLICE which causes the value to be unpacked into the expression.\n This can be used for e.g. to make `#(1 2 3)` into (x 1 2 3) that is needed\n by # that defines vectors.'),get:No,".":No,unbind:y(sa,"(unbind fn)\n\n Function that removes the weak 'this' binding from a function so you\n can get properties from the actual function object."),type:y(us,"(type object)\n\n Function that returns the type of an object as string."),debugger:y("debugger",function(){debugger},'(debugger)\n\n Function that triggers the JavaScript debugger (e.g. the browser devtools)\n using the "debugger;" statement. If a debugger is not running this\n function does nothing.'),in:y("in",function(e,t){if(e instanceof L||e instanceof $a||e instanceof C){e=e.valueOf()}return e in aa(t)},'(in key value)\n\n Function that uses the Javascript "in" operator to check if key is\n a valid property in the value.'),instanceof:y("instanceof",function(e,t){return t instanceof sa(e)},"(instanceof type obj)\n\n Predicate that tests if the obj is an instance of type."),"prototype?":y("prototype?",Nu,"(prototype? obj)\n\n Predicate that tests if value is a valid JavaScript prototype,\n i.e. calling (new) with it will not throw ' is not a constructor'."),"macro?":y("macro?",function(e){return e instanceof Vu},"(macro? expression)\n\n Predicate that tests if value is a macro."),"function?":y("function?",Xu,"(function? expression)\n\n Predicate that tests if value is a callable function."),"real?":y("real?",function(e){if(us(e)!=="number"){return false}if(e instanceof C){return e.isFloat()}return C.isFloat(e)},"(real? number)\n\n Predicate that tests if value is a real number (not complex)."),"number?":y("number?",function(e){return Number.isNaN(e)||C.isNumber(e)},"(number? expression)\n\n Predicate that tests if value is a number or NaN value."),"string?":y("string?",function(e){return $a.isString(e)},"(string? expression)\n\n Predicate that tests if value is a string."),"pair?":y("pair?",function(e){return e instanceof M},"(pair? expression)\n\n Predicate that tests if value is a pair or list structure."),"regex?":y("regex?",function(e){return e instanceof RegExp},"(regex? expression)\n\n Predicate that tests if value is a regular expression."),"null?":y("null?",function(e){return Zu(e)},"(null? expression)\n\n Predicate that tests if value is null-ish (i.e. undefined, nil, or\n Javascript null)."),"boolean?":y("boolean?",function(e){return typeof e==="boolean"},"(boolean? expression)\n\n Predicate that tests if value is a boolean (#t or #f)."),"symbol?":y("symbol?",function(e){return e instanceof L},"(symbol? expression)\n\n Predicate that tests if value is a LIPS symbol."),"array?":y("array?",function(e){return e instanceof Array},"(array? expression)\n\n Predicate that tests if value is an array."),"object?":y("object?",function(e){return e!==U&&e!==null&&!(e instanceof za)&&!(e instanceof RegExp)&&!(e instanceof $a)&&!(e instanceof M)&&!(e instanceof C)&&_(e)==="object"&&!(e instanceof Array)},"(object? expression)\n\n Predicate that tests if value is an plain object (not another LIPS type)."),flatten:y("flatten",function e(t){h("flatten",t,"pair");return t.flatten()},"(flatten list)\n\n Returns a shallow list from tree structure (pairs)."),"array->list":y("array->list",function(e){h("array->list",e,"array");return M.fromArray(e)},"(array->list array)\n\n Function that converts a JavaScript array to a LIPS cons list."),"tree->array":y("tree->array",gu("tree->array",true),"(tree->array list)\n\n Function that converts a LIPS cons tree structure into a JavaScript array."),"list->array":y("list->array",gu("list->array"),"(list->array list)\n\n Function that converts a LIPS list into a JavaScript array."),apply:y("apply",function e(t){for(var r=arguments.length,n=new Array(r>1?r-1:0),i=1;iarray").call(this,u));return t.apply(this,fs(t,n))},"(apply fn list)\n\n Function that calls fn with the list of arguments."),length:y("length",function e(t){if(!t||t===U){return 0}if(t instanceof M){return t.length()}if("length"in t){return t.length}},'(length expression)\n\n Function that returns the length of the object. The object can be a LIPS\n list or any object that has a "length" property. Returns undefined if the\n length could not be found.'),"string->number":y("string->number",function(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:10;h("string->number",e,"string",1);h("string->number",t,"number",2);e=e.valueOf();t=t.valueOf();if(e.match(Wn)||e.match(Kn)){return ti(e,t)}else if(e.match(Qn)||e.match(Jn)){return ii(e,t)}else{var r=t===10&&!e.match(/e/i)||t===16;if(e.match(Hn)&&r||e.match(Gn)){return ri(e,t)}if(e.match(Rn)){return oi(e)}}return false},"(string->number number [radix])\n\n Function that parses a string into a number."),try:y(new Vu("try",function(t,e){var c=this;var f=e.dynamic_scope,l=e.error;return new Promise(function(i,n){var u,a;if(L.is(t.cdr.car.car,"catch")){u=t.cdr.car;if(t.cdr.cdr instanceof M&&L.is(t.cdr.cdr.car.car,"finally")){a=t.cdr.cdr.car}}else if(L.is(t.cdr.car.car,"finally")){a=t.cdr.car}if(!(a||u)){throw new Error("try: invalid syntax")}var o=i;if(a){o=function e(t,r){o=n;Yi(_s(new M(new L("begin"),a.cdr),s),function(){r(t)})}}var s={env:c,error:function e(t){var r=c.inherit("try");if(u){r.set(u.cdr.car.car,t);var n={env:r,error:l};if(f){n.dynamic_scope=c}Yi(_s(new M(new L("begin"),u.cdr.cdr),n),function(e){o(e,i)})}else{o(t,l)}}};if(f){s.dynamic_scope=c}var e=_s(t.car,s);if(ra(e)){e.then(function(e){o(e,i)})["catch"](s.error)}else{o(e,i)}})}),"(try expr (catch (e) code))\n (try expr (catch (e) code) (finally code))\n (try expr (finally code))\n\n Macro that executes expr and catches any exceptions thrown. If catch is provided\n it's executed when an error is thrown. If finally is provided it's always\n executed at the end."),raise:y("raise",function(e){throw e},"(raise obj)\n\n Throws the object verbatim (no wrapping an a new Error)."),throw:y("throw",function(e){throw new Error(e)},"(throw string)\n\n Throws a new exception."),find:y("find",function t(r,n){h("find",r,["regex","function"]);h("find",n,["pair","nil"]);if(Zu(n)){return U}var e=Gi("find",r);return Yi(e(n.car),function(e){if(e&&e!==U){return n.car}return t(r,n.cdr)})},"(find fn list)\n (find regex list)\n\n Higher-order function that finds the first value for which fn return true.\n If called with a regex it will create a matcher function."),"for-each":y("for-each",function(e){var t;h("for-each",e,"function");for(var r=arguments.length,n=new Array(r>1?r-1:0),i=1;i1?t-1:0),u=1;u3?n-3:0),u=3;u3?i-3:0),a=3;aarray")(r);var u=[];var a=Gi("filter",t);return function t(r){function e(e){if(e&&e!==U){u.push(n)}return t(++r)}if(r===i.length){return M.fromArray(u)}var n=i[r];return Yi(a(n),e)}(0)},"(filter fn list)\n (filter regex list)\n\n Higher-order function that calls `fn` for each element of the list\n and return a new list for only those elements for which fn returns\n a truthy value. If called with a regex it will create a matcher function."),compose:y(Ra,"(compose . fns)\n\n Higher-order function that creates a new function that applies all functions\n from right to left and returns the last value. Reverse of pipe.\n e.g.:\n ((compose (curry + 2) (curry * 3)) 10) --\x3e (+ 2 (* 3 10)) --\x3e 32"),pipe:y(Na,"(pipe . fns)\n\n Higher-order function that creates a new function that applies all functions\n from left to right and returns the last value. Reverse of compose.\n e.g.:\n ((pipe (curry + 2) (curry * 3)) 10) --\x3e (* 3 (+ 2 10)) --\x3e 36"),curry:y(Ya,"(curry fn . args)\n\n Higher-order function that creates a curried version of the function.\n The result function will have partially applied arguments and it\n will keep returning one-argument functions until all arguments are provided,\n then it calls the original function with the accumulated arguments.\n\n e.g.:\n (define (add a b c d) (+ a b c d))\n (define add1 (curry add 1))\n (define add12 (add 2))\n (display (add12 3 4))"),gcd:y("gcd",function e(){for(var t=arguments.length,r=new Array(t),n=0;no?u%=o:o%=u}u=Tu(s*r[a])/(u+o)}return C(u)},"(lcm n1 n2 ...)\n\n Function that returns the least common multiple of the arguments."),"odd?":y("odd?",Ua(function(e){return C(e).isOdd()}),"(odd? number)\n\n Checks if number is odd."),"even?":y("even?",Ua(function(e){return C(e).isEven()}),"(even? number)\n\n Checks if number is even."),"*":y("*",qa(function(e,t){return C(e).mul(t)},C(1)),"(* . numbers)\n\n Multiplies all numbers passed as arguments. If single value is passed\n it will return that value."),"+":y("+",qa(function(e,t){return C(e).add(t)},C(0)),"(+ . numbers)\n\n Sums all numbers passed as arguments. If single value is passed it will\n return that value."),"-":y("-",function(){for(var e=arguments.length,t=new Array(e),r=0;r":y(">",function(){for(var e=arguments.length,t=new Array(e),r=0;r",t,"number");return Lu(function(e,t){return C(e).cmp(t)===1},t)},"(> x1 x2 x3 ...)\n\n Function that compares its numerical arguments and checks if they are\n monotonically decreasing, i.e. x1 > x2 and x2 > x3 and so on."),"<":y("<",function(){for(var e=arguments.length,t=new Array(e),r=0;r=":y(">=",function(){for(var e=arguments.length,t=new Array(e),r=0;r=",t,"number");return Lu(function(e,t){return[0,1].includes(C(e).cmp(t))},t)},"(>= x1 x2 ...)\n\n Function that compares its numerical arguments and checks if they are\n monotonically nonincreasing, i.e. x1 >= x2 and x2 >= x3 and so on."),"eq?":y("eq?",Uu,"(eq? a b)\n\n Function that compares two values if they are identical."),or:y(new Vu("or",function(e,t){var i=t.dynamic_scope,u=t.error;var a=qo.get("list->array")(e);var o=this;if(i){i=o}if(!a.length){return false}var s;return function t(){function e(e){s=e;if(s!==false){return s}else{return t()}}if(!a.length){if(s!==false){return s}else{return false}}else{var r=a.shift();var n=_s(r,{env:o,dynamic_scope:i,error:u});return Yi(n,e)}}()}),"(or . expressions)\n\n Macro that executes the values one by one and returns the first that is\n a truthy value. If there are no expressions that evaluate to true it\n returns false."),and:y(new Vu("and",function(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:{},i=t.dynamic_scope,u=t.error;var a=qo.get("list->array")(e);var o=this;if(i){i=o}if(!a.length){return true}var s;return function t(){function e(e){s=e;if(s===false){return false}else{return t()}}if(!a.length){if(s!==false){return s}else{return false}}else{var r=a.shift();var n=_s(r,{env:o,dynamic_scope:i,error:u});return Yi(n,e)}}()}),"(and . expressions)\n\n Macro that evaluates each expression in sequence and if any value returns false\n it will stop and return false. If each value returns true it will return the\n last value. If it's called without arguments it will return true."),"|":y("|",function(e,t){return C(e).or(t)},"(| a b)\n\n Function that calculates the bitwise or operation."),"&":y("&",function(e,t){return C(e).and(t)},"(& a b)\n\n Function that calculates the bitwise and operation."),"~":y("~",function(e){return C(e).neg()},"(~ number)\n\n Function that calculates the bitwise inverse (flip all the bits)."),">>":y(">>",function(e,t){return C(e).shr(t)},"(>> a b)\n\n Function that right shifts the value a by value b bits."),"<<":y("<<",function(e,t){return C(e).shl(t)},"(<< a b)\n\n Function that left shifts the value a by value b bits."),not:y("not",function e(t){if(Zu(t)){return true}return!t},"(not object)\n\n Function that returns the Boolean negation of its argument.")},undefined,"global");var Yo=qo.inherit("user-env");function Vo(e,t){e.constant("**internal-env**",t);e.doc("**internal-env**","**internal-env**\n\n Constant used to hide stdin, stdout and stderr so they don't interfere\n with variables with the same name. Constants are an internal type\n of variable that can't be redefined, defining a variable with the same name\n will throw an error.");qo.set("**interaction-environment**",e)}Vo(Yo,Lo);qo.doc("**interaction-environment**","**interaction-environment**\n\n Internal dynamic, global variable used to find interpreter environment.\n It's used so the read and write functions can locate **internal-env**\n that contains the references to stdin, stdout and stderr.");(function(){var e={ceil:"ceiling"};["floor","round","ceil"].forEach(function(t){var r=e[t]?e[t]:t;qo.set(r,y(r,function(e){h(r,e,"number");if(e instanceof C){return e[t]()}},"(".concat(r," number)\n\n Function that calculates the ").concat(r," of a number.")))})})();function zo(e){if(e.length===1){return e[0]}else{var t=[];var r=zo(e.slice(1));for(var n=0;n3&&arguments[3]!==undefined?arguments[3]:null;var i=e?" in expression `".concat(e,"`"):"";if(n!==null){i+=" (argument ".concat(n,")")}if(Xu(r)){return"Invalid type: got ".concat(t).concat(i)}if(r instanceof Array){if(r.length===1){var u=r[0].toLowerCase();r="a"+("aeiou".includes(u)?"n ":" ")+r[0]}else{var a=r[r.length-1];r=r.slice(0,-1).join(", ")+" or "+a}}return"Expecting ".concat(r,", got ").concat(t).concat(i)}function Zo(r,e,n){e.forEach(function(e,t){h(r,e,n,t+1)})}function Xo(e,t,r){h(e,t,r);if(t.__type__===Ao){throw new Error(Qo(e,"binary-port","textual-port"))}}function h(e,t,r){var n=arguments.length>3&&arguments[3]!==undefined?arguments[3]:null;e=e.valueOf();var i=us(t).toLowerCase();if(Xu(r)){if(!r(t)){throw new Error(Qo(e,i,r,n))}return}var u=false;if(r instanceof M){r=r.to_array()}if(r instanceof Array){r=r.map(function(e){return e.valueOf()})}if(r instanceof Array){r=r.map(function(e){return e.valueOf().toLowerCase()});if(r.includes(i)){u=true}}else{r=r.valueOf().toLowerCase()}if(!u&&i!==r){throw new Error(Qo(e,i,r,n))}}function es(e){var t=_(e);return["string","function"].includes(t)||_(e)==="symbol"||e instanceof ki||e instanceof L||e instanceof C||e instanceof $a||e instanceof RegExp}function ts(e){return e instanceof C||e instanceof $a||e instanceof za}function rs(e,t){if(e===null){return false}return _(e)==="object"&&t in Object.getOwnPropertySymbols(e)}function ns(e,t){if(rs(e,t)||rs(e.__proto__,t)){return Xu(e[t])}}function is(r){var n=new WeakMap;return function(e){var t=n.get(e);if(!t){t=r(e)}return t}}us=is(us);function us(e){var t=wn.get(e);if(t){return t}if(_(e)==="object"){for(var r=0,n=Object.entries(bn);r2&&arguments[2]!==undefined?arguments[2]:{},u=t.env,a=t.dynamic_scope,r=t.error,o=r===void 0?function(){}:r;e=os(e,{env:u,dynamic_scope:a,error:o});return Yi(e,function(e){if(Sa(i)){i=sa(i)}e=fs(i,e);var t=e.slice();var r=(a||u).newFrame(i,t);var n=as(i.apply(r,e));return Yi(n,function(e){if(e instanceof M){e.markCycles();return Io(e)}return ia(e)},o)})}var hs=function(){function t(e){D(this,t);this.__value__=e}A(t,[{key:"invoke",value:function e(){if(this.__value__===null){throw new Error("Continuations are not implemented yet")}}},{key:"toString",value:function e(){return"#"}}]);return t}();var ps=function e(){};function _s(t){var e=arguments.length>1&&arguments[1]!==undefined?arguments[1]:{},r=e.env,n=e.dynamic_scope,c=e.error,i=c===void 0?ps:c;try{if(n===true){r=n=r||qo}else if(r===true){r=n=qo}else{r=r||qo}var u={env:r,dynamic_scope:n,error:i};var a;if(Zu(t)){return t}if(t instanceof L){return r.get(t)}if(!(t instanceof M)){return t}var o=t.car;var f=t.cdr;if(o instanceof M){a=as(_s(o,u));if(ra(a)){return a.then(function(e){return _s(new M(e,t.cdr),u)})}else if(!ta(a)){throw new Error(us(a)+" "+r.get("repr")(a)+" is not callable while evaluating "+t.toString())}}if(o instanceof L){a=r.get(o)}else if(Xu(o)){a=o}var s;if(a instanceof Ku){s=ss(a,t,u)}else if(a instanceof Vu){s=cs(a,f,u)}else if(Xu(a)){s=ls(a,f,u)}else if(ea(a)){s=a.invoke()}else if(t instanceof M){a=o&&o.toString();throw new Error("".concat(us(o)," ").concat(a," is not a function"))}else{return t}var l=r.get(Symbol["for"]("__promise__"),{throwError:false});if(l===true&&ra(s)){s=s.then(function(e){if(e instanceof M&&!a[ya]){return _s(e,u)}return e});return new ki(s)}return s}catch(e){i&&i.call(r,e,t)}}var ds=ys(function(e){return e});var vs=ys(function(e,t){return t});function ys(_){return function(){var n=B(z.mark(function e(r,n,i){var u,a,o,s,h,c,p,f,l;return z.wrap(function e(t){while(1){switch(t.prev=t.next){case 0:if(i===true){n=i=n||Yo}else if(n===true){n=i=Yo}else{n=n||Yo}u=[];a=Array.isArray(r)?r:Mi(r);o=false;s=false;t.prev=5;c=yn(a);case 7:t.next=9;return c.next();case 9:if(!(o=!(p=t.sent).done)){t.next=27;break}f=p.value;l=_s(f,{env:n,dynamic_scope:i,error:function e(t,r){if(t&&t.message){if(t.message.match(/^Error:/)){var n=/^(Error:)\s*([^:]+:\s*)/;t.message=t.message.replace(n,"$1 $2")}if(r){if(!(t.__code__ instanceof Array)){t.__code__=[]}t.__code__.push(r.toString(true))}}throw t}});if(ra(l)){t.next=16;break}u.push(_(f,l));t.next=24;break;case 16:t.t0=u;t.t1=_;t.t2=f;t.next=21;return l;case 21:t.t3=t.sent;t.t4=(0,t.t1)(t.t2,t.t3);t.t0.push.call(t.t0,t.t4);case 24:o=false;t.next=7;break;case 27:t.next=33;break;case 29:t.prev=29;t.t5=t["catch"](5);s=true;h=t.t5;case 33:t.prev=33;t.prev=34;if(!(o&&c["return"]!=null)){t.next=38;break}t.next=38;return c["return"]();case 38:t.prev=38;if(!s){t.next=41;break}throw h;case 41:return t.finish(38);case 42:return t.finish(33);case 43:return t.abrupt("return",u);case 44:case"end":return t.stop()}}},e,null,[[5,29,33,43],[34,,38,42]])}));function e(e,t,r){return n.apply(this,arguments)}return e}()}function ms(e){var t={"[":"]","(":")"};var r;if(typeof e==="string"){r=wi(e)}else{r=e.map(function(e){return e&&e.token?e.token:e})}var n=Object.keys(t);var i=Object.values(t).concat(n);r=r.filter(function(e){return i.includes(e)});var u=new di;var a=hn(r),o;try{for(a.s();!(o=a.n()).done;){var s=o.value;if(n.includes(s)){u.push(s)}else if(!u.is_empty()){var f=u.top();var c=t[f];if(s===c){u.pop()}else{throw new Error("Syntax error: missing closing ".concat(c))}}else{throw new Error("Syntax error: not matched closing ".concat(s))}}}catch(e){a.e(e)}finally{a.f()}return u.is_empty()}function gs(e){var t="("+e.toString()+")()";var r=window.URL||window.webkitURL;var n;try{n=new Blob([t],{type:"application/javascript"})}catch(e){var i=window.BlobBuilder||window.WebKitBlobBuilder||window.MozBlobBuilder;n=new i;n.append(t);n=n.getBlob()}return new gn.Worker(r.createObjectURL(n))}function bs(){return Gs.version.match(/^(\{\{VER\}\}|DEV)$/)}function ws(){if(Go()){return}var e;if(document.currentScript){e=document.currentScript}else{var t=document.querySelectorAll("script");if(!t.length){return}e=t[t.length-1]}var r=e.getAttribute("src");return r}var Ds=ws();function Es(){var e=arguments.length>0&&arguments[0]!==undefined?arguments[0]:"";var t="dist/std.xcb";if(e===""){if(Ds){e=Ds.replace(/[^/]*$/,"std.xcb")}else if(bs()){e="https://cdn.jsdelivr.net/gh/jcubic/lips@devel/".concat(t)}else{e="https://cdn.jsdelivr.net/npm/@jcubic/lips@".concat(Gs.version,"/").concat(t)}}var r=qo.get("load");return r.call(Yo,e,qo)}function As(e){this.url=e;var a=this.worker=gs(function(){var a;var o;self.addEventListener("message",function(e){var r=e.data;var t=r.id;if(r.type!=="RPC"||t===null){return}function n(e){self.postMessage({id:t,type:"RPC",result:e})}function i(e){self.postMessage({id:t,type:"RPC",error:e})}if(r.method==="eval"){if(!o){i("Worker RPC: LIPS not initialized, call init first");return}o.then(function(){var e=r.params[0];var t=r.params[1];a.exec(e,t).then(function(e){e=e.map(function(e){return e&&e.valueOf()});n(e)})["catch"](function(e){i(e)})})}else if(r.method==="init"){var u=r.params[0];if(typeof u!=="string"){i("Worker RPC: url is not a string")}else{importScripts("".concat(u,"/dist/lips.min.js"));a=new Gs.Interpreter("worker");o=Es(u);o.then(function(){n(true)})}}})});this.rpc=function(){var n=0;return function e(t,r){var u=++n;return new Promise(function(n,i){a.addEventListener("message",function e(t){var r=t.data;if(r&&r.type==="RPC"&&r.id===u){if(r.error){i(r.error)}else{n(r.result)}a.removeEventListener("message",e)}});a.postMessage({type:"RPC",method:t,id:u,params:r})})}}();this.rpc("init",[e])["catch"](function(e){console.error(e)});this.exec=function(e){var t=arguments.length>1&&arguments[1]!==undefined?arguments[1]:false;return this.rpc("eval",[e,t])}}var xs={pair:function e(t){var r=j(t,2),n=r[0],i=r[1];return M(n,i)},number:function e(t){if($a.isString(t)){return C([t,10])}return C(t)},regex:function e(t){var r=j(t,2),n=r[0],i=r[1];return new RegExp(n,i)},nil:function e(){return U},symbol:function e(t){if($a.isString(t)){return L(t)}else if(Array.isArray(t)){return L(Symbol["for"](t[0]))}},string:$a,character:za};var Fs=Object.keys(xs);var ks={};for(var Cs=0,Os=Object.entries(Fs);Cs1){var n=t.reduce(function(e,t){return e+t.length},0);var i=new Uint8Array(n);var u=0;t.forEach(function(e){i.set(e,u);u+=e.length});return i}else if(t.length){return t[0]}}function Us(){var e=1;var t=new TextEncoder("utf-8");return t.encode("LIPS".concat(e.toString().padStart(3," ")))}var Ms=7;function qs(e){var t=new TextDecoder("utf-8");var r=t.decode(e.slice(0,Ms));var n=r.substring(0,4);if(n==="LIPS"){var i=r.match(/^(....).*([0-9]+)$/);if(i){return{type:i[1],version:Number(i[2])}}}return{type:"unknown"}}function Ys(e){var t=Us();var r=Ts.encode(e);return Ls(t,un(r,{magic:false}))}function Vs(e){var t=qs(e),r=t.type,n=t.version;if(r==="LIPS"&&n===1){var i=an(e.slice(Ms),{magic:false});return Ts.decode(i)}else{throw new Error("Invalid file format ".concat(r))}}function zs(e){console.error(e.message||e);if(e.code){console.error(e.code.map(function(e,t){return"[".concat(t+1,"]: ").concat(e)}))}}function $s(){var a=["text/x-lips","text/x-scheme"];var o;function s(r){return new Promise(function(t){var e=r.getAttribute("src");if(e){return fetch(e).then(function(e){return e.text()}).then(vs).then(t)["catch"](function(e){zs(e);t()})}else{return vs(r.innerHTML).then(t)["catch"](function(e){zs(e);t()})}})}function e(){return new Promise(function(i){var u=Array.from(document.querySelectorAll("script"));return function e(){var t=u.shift();if(!t){i()}else{var r=t.getAttribute("type");if(a.includes(r)){var n=t.getAttribute("bootstrap");if(!o&&typeof n==="string"){return Es(n).then(function(){return s(t)}).then(e)}else{return s(t).then(e)}}else if(r&&r.match(/lips|lisp/)){console.warn("Expecting "+a.join(" or ")+" found "+r)}return e()}}()})}if(!window.document){return Promise.resolve()}else if(Js){var t=Js;var r=t.getAttribute("bootstrap");if(typeof r==="string"){return Es(r).then(function(){o=true;return e()})}}return e()}var Js=typeof window!=="undefined"&&window.document&&document.currentScript;if(typeof window!=="undefined"){Fn(window,$s)}var Ks=function(){var e=$a("Wed, 22 Nov 2023 13:53:23 +0000").valueOf();var t=e==="{{"+"DATE}}"?new Date:new Date(e);var r=function e(t){return t.toString().padStart(2,"0")};var n=t.getFullYear();var i=[n,r(t.getMonth()+1),r(t.getDate())].join("-");var u="\n __ __ __\n / / \\ \\ _ _ ___ ___ \\ \\\n| | \\ \\ | | | || . \\/ __> | |\n| | > \\ | |_ | || _/\\__ \\ | |\n| | / ^ \\ |___||_||_| <___/ | |\n \\_\\ /_/ \\_\\ /_/\n\nLIPS Interpreter DEV (".concat(i,") \nCopyright (c) 2018-").concat(n," Jakub T. Jankiewicz\n\nType (env) to see environment with functions macros and variables. You can also\nuse (help name) to display help for specific function or macro, (apropos name)\nto display list of matched names in environment and (dir object) to list\nproperties of an object.\n").replace(/^.*\n/,"");return u}();$i(eu,"__class__","ahead");$i(M,"__class__","pair");$i(mu,"__class__","nil");$i(tu,"__class__","pattern");$i(Xi,"__class__","formatter");$i(Vu,"__class__","macro");$i(Ku,"__class__","syntax");$i(So,"__class__","environment");$i(ho,"__class__","input-port");$i(po,"__class__","output-port");$i(_o,"__class__","output-port");$i(vo,"__class__","output-string-port");$i(mo,"__class__","input-string-port");$i(wo,"__class__","input-file-port");$i(yo,"__class__","output-file-port");$i(Oo,"__class__","lips-error");[C,io,fo,uo,lo].forEach(function(e){$i(e,"__class__","number")});$i(za,"__class__","character");$i(L,"__class__","symbol");$i($a,"__class__","string");$i(ki,"__class__","promise");var Gs={version:"DEV",banner:Ks,date:"Wed, 22 Nov 2023 13:53:23 +0000",exec:vs,parse:Ra(Ji,Mi),tokenize:wi,evaluate:_s,compile:ds,serialize:Ns,unserialize:Rs,serialize_bin:Ys,unserialize_bin:Vs,bootstrap:Es,Environment:So,env:Yo,Worker:As,Interpreter:Co,balanced_parenthesis:ms,balancedParenthesis:ms,balanced:ms,Macro:Vu,Syntax:Ku,Pair:M,Values:jo,QuotedPromise:ki,Error:Oo,quote:Io,InputPort:ho,OutputPort:po,BufferedOutputPort:_o,InputFilePort:wo,OutputFilePort:yo,InputStringPort:mo,OutputStringPort:vo,InputByteVectorPort:go,OutputByteVectorPort:bo,InputBinaryFilePort:Do,OutputBinaryFilePort:Eo,Formatter:Xi,Parser:Li,Lexer:s,specials:Bi,repr:bu,nil:U,eof:Fo,LSymbol:L,LNumber:C,LFloat:uo,LComplex:io,LRational:fo,LBigInteger:lo,LCharacter:za,LString:$a,rationalize:so};qo.set("lips",Gs);var Hs={};var Ws=Object.freeze({__proto__:null,default:Hs});function Qs(e,t){var r=0;for(var n=e.length-1;n>=0;n--){var i=e[n];if(i==="."){e.splice(n,1)}else if(i===".."){e.splice(n,1);r++}else if(r){e.splice(n,1);r--}}if(t){for(;r--;r){e.unshift("..")}}return e}var Zs=/^(\/?|)([\s\S]*?)((?:\.{1,2}|[^\/]+?|)(\.[^.\/]*|))(?:[\/]*)$/;var Xs=function(e){return Zs.exec(e).slice(1)};function ec(){var e="",t=false;for(var r=arguments.length-1;r>=-1&&!t;r--){var n=r>=0?arguments[r]:"/";if(typeof n!=="string"){throw new TypeError("Arguments to path.resolve must be strings")}else if(!n){continue}e=n+"/"+e;t=n.charAt(0)==="/"}e=Qs(lc(e.split("/"),function(e){return!!e}),!t).join("/");return(t?"/":"")+e||"."}function tc(e){var t=rc(e),r=hc(e,-1)==="/";e=Qs(lc(e.split("/"),function(e){return!!e}),!t).join("/");if(!e&&!t){e="."}if(e&&r){e+="/"}return(t?"/":"")+e}function rc(e){return e.charAt(0)==="/"}function nc(){var e=Array.prototype.slice.call(arguments,0);return tc(lc(e,function(e,t){if(typeof e!=="string"){throw new TypeError("Arguments to path.join must be strings")}return e}).join("/"))}function ic(e,t){e=ec(e).substr(1);t=ec(t).substr(1);function r(e){var t=0;for(;t=0;r--){if(e[r]!=="")break}if(t>r)return[];return e.slice(t,r-t+1)}var n=r(e.split("/"));var i=r(t.split("/"));var u=Math.min(n.length,i.length);var a=u;for(var o=0;o string (replace #/^ +/gm ""))) fn) -(define-macro (let-syntax vars . body) "(let-syntax ((name fn)) body)\u000A\u000A Macro works like combination of let and define-syntax. It creaates\u000A local macros and evaluate body in context of those macros.\u000A The macro to letrec-syntax is like letrec is to let." (quasiquote (let (unquote vars) (unquote-splicing (map (lambda (rule) (quasiquote (typecheck "let-syntax" (unquote (car rule)) "syntax"))) vars)) (unquote-splicing body)))) -(define-macro (letrec-syntax vars . body) "(letrec-syntax ((name fn)) body)\u000A\u000A Macro works like combination of letrec and define-syntax. It creaates\u000A local macros and evaluate body in context of those macros." (quasiquote (letrec (unquote vars) (unquote-splicing (map (lambda (rule) (quasiquote (typecheck "letrec-syntax" (unquote (car rule)) "syntax"))) vars)) (unquote-splicing body)))) -(define-macro (define-syntax name expr . rest) "(define-syntax name expression [__doc__])\u000A\u000AMacro define new hygienic macro using syntax-rules with optional documentation" (let ((expr-name (gensym "expr-name"))) (quasiquote (define (unquote name) (let (((unquote expr-name) (unquote expr))) (typecheck "define-syntax" (unquote expr-name) "syntax") (unquote expr-name)) (unquote-splicing rest))))) -(define (quoted-symbol? x) "(quoted-symbol? code)\u000A\u000AHelper function that test if value is quoted symbol. To be used in macros\u000Athat pass literal code that is transformed by parser.\u000A\u000Ausage:\u000A\u000A (define-macro (test x)\u000A (if (quoted-symbol? x)\u000A `',(cadr x)))\u000A\u000A (list 'hello (test 'world))" (and (pair? x) (eq? (car x) (quote quote)) (symbol? (cadr x)) (null? (cddr x)))) -(define-macro (--> expr . body) "Helper macro that simplify calling methods on objects. It work with chaining\u000Ausage: (--> ($ \"body\")\u000A (css \"color\" \"red\")\u000A (on \"click\" (lambda () (display \"click\"))))\u000A (--> document (querySelectorAll \"div\"))\u000A (--> (fetch \"https://jcubic.pl\")\u000A (text)\u000A (match #/([^<]+)<\\/title>/)\u000A 1)\u000A (--> document\u000A (querySelectorAll \".cmd-prompt\")\u000A 0\u000A 'innerHTML\u000A (replace #/<(\"[^\"]+\"|[^>])+>/g \"\"))\u000A (--> document.body\u000A (style.setProperty \"--color\" \"red\"))" (let ((obj (gensym "obj"))) (quasiquote (let* (((unquote obj) (unquote expr))) (unquote-splicing (map (lambda (code) (let ((value (gensym "value"))) (quasiquote (let* (((unquote value) (unquote (let ((name (cond ((quoted-symbol? code) (symbol->string (cadr code))) ((pair? code) (symbol->string (car code))) (#t code)))) (if (string? name) (quasiquote (. (unquote obj) (unquote-splicing (split "." name)))) (quasiquote (. (unquote obj) (unquote name)))))))) (unquote (if (and (pair? code) (not (quoted-symbol? code))) (quasiquote (set! (unquote obj) ((unquote value) (unquote-splicing (cdr code))))) (quasiquote (set! (unquote obj) (unquote value))))))))) body)) (unquote obj))))) -(define-macro (define-global first . rest) "(define-global var value)\u000A(define-global (name . args) body)\u000A\u000AMacro that define functions or variables in global context, so they can be used\u000Ainside let and get let variables in closure, Useful for universal macros." (if (pair? first) (let ((name (car first))) (quasiquote (--> lips.env (set (unquote (symbol->string name)) (lambda (unquote (cdr first)) (unquote-splicing rest)))))) (quasiquote (--> lips.env (set (unquote (symbol->string first)) (unquote (car rest))))))) +(define-macro (let-syntax vars . body) "(let-syntax ((name fn) ...) . body)\u000A\u000A Works like a combination of let and define-syntax. It creates\u000A local macros and evaluates body in context of those macros.\u000A The macro to letrec-syntax is like letrec is to let." (quasiquote (let (unquote vars) (unquote-splicing (map (lambda (rule) (quasiquote (typecheck "let-syntax" (unquote (car rule)) "syntax"))) vars)) (unquote-splicing body)))) +(define-macro (letrec-syntax vars . body) "(letrec-syntax ((name fn) ...) . body)\u000A\u000A Works like a combination of letrec and define-syntax. It creates\u000A local macros and evaluates the body in context of those macros." (quasiquote (letrec (unquote vars) (unquote-splicing (map (lambda (rule) (quasiquote (typecheck "letrec-syntax" (unquote (car rule)) "syntax"))) vars)) (unquote-splicing body)))) +(define-macro (define-syntax name expr . rest) "(define-syntax name expression [__doc__])\u000A\u000ADefines a new hygienic macro using syntax-rules with optional documentation." (let ((expr-name (gensym "expr-name"))) (quasiquote (define (unquote name) (let (((unquote expr-name) (unquote expr))) (typecheck "define-syntax" (unquote expr-name) "syntax") (unquote expr-name)) (unquote-splicing rest))))) +(define (quoted-symbol? x) "(quoted-symbol? code)\u000A\u000AHelper function that tests if value is a quoted symbol. To be used in macros\u000Athat pass literal code that is transformed by parser.\u000A\u000Ausage:\u000A\u000A (define-macro (test x)\u000A (if (quoted-symbol? x)\u000A `',(cadr x)))\u000A\u000A (list 'hello (test 'world))" (and (pair? x) (eq? (car x) (quote quote)) (symbol? (cadr x)) (null? (cddr x)))) +(define-macro (--> expr . body) "Helper macro that simplifies calling methods on objects. It works with chaining\u000Ausage: (--> ($ \"body\")\u000A (css \"color\" \"red\")\u000A (on \"click\" (lambda () (display \"click\"))))\u000A\u000A (--> document (querySelectorAll \"div\"))\u000A\u000A (--> (fetch \"https://jcubic.pl\")\u000A (text)\u000A (match #/<title>([^<]+)<\\/title>/)\u000A 1)\u000A\u000A (--> document\u000A (querySelectorAll \".cmd-prompt\")\u000A 0\u000A 'innerHTML\u000A (replace #/<(\"[^\"]+\"|[^>])+>/g \"\"))\u000A\u000A (--> document.body\u000A (style.setProperty \"--color\" \"red\"))" (let ((obj (gensym "obj"))) (quasiquote (let* (((unquote obj) (unquote expr))) (unquote-splicing (map (lambda (code) (let* ((value (gensym "value")) (name (cond ((quoted-symbol? code) (symbol->string (cadr code))) ((pair? code) (symbol->string (car code))) (#t code))) (accessor (if (string? name) (quasiquote (. (unquote obj) (unquote-splicing (split "." name)))) (quasiquote (. (unquote obj) (unquote name))))) (call (and (pair? code) (not (quoted-symbol? code))))) (quasiquote (let (((unquote value) (unquote accessor))) (unquote (if call (quasiquote (if (not (function? (unquote value))) (throw (new Error (string-append "--> " (unquote (repr name)) " is not a function" " in expression " (unquote (repr (quasiquote (--> (unquote expr) unquote body))))))) (set! (unquote obj) ((unquote value) (unquote-splicing (cdr code)))))) (quasiquote (set! (unquote obj) (unquote value))))))))) body)) (unquote obj))))) +(define-macro (define-global first . rest) "(define-global var value)\u000A(define-global (name . args) body)\u000A\u000ADefines functions or variables in the global context, so they can be used\u000Ainside let and get let variables in a closure. Useful for universal macros." (if (pair? first) (let ((name (car first))) (quasiquote (--> lips.env (set (unquote (symbol->string name)) (lambda (unquote (cdr first)) (unquote-splicing rest)))))) (quasiquote (--> lips.env (set (unquote (symbol->string first)) (unquote (car rest))))))) (define-macro (globalize expr . rest) "(globalize expr)\u000A\u000A Macro will get the value of the expression and add each method as function to global\u000A scope." (let* ((env (current-environment)) (obj (eval expr env)) (name (gensym "name")) (env-name (gensym "env-name")) (make-name (if (pair? rest) (let ((pre (symbol->string (car rest)))) (lambda (name) (string->symbol (concat pre name)))) string->symbol))) (quasiquote (let (((unquote name) (unquote expr))) (unquote-splicing (filter pair? (map (lambda (key) (if (and (not (match #/^_/ key)) (function? (. obj key))) (let* ((args (gensym "args"))) (quasiquote (define-global ((unquote (make-name key)) unquote args) (apply (. (unquote name) (unquote key)) (unquote args))))))) (array->list (--> Object (keys obj)))))))))) -(define (single list) "(single list)\u000A\u000AFunction check if argument is list with single element" (and (pair? list) (not (cdr list)))) -(define (iterator? x) "(iterator? x)\u000A\u000A Function check if value is JavaScript iterator object" (and (object? x) (procedure? (. x Symbol.iterator)))) -(define-macro (.. expr) "(.. foo.bar.baz)\u000A\u000AMacro that gets value from nested object where argument is comma separated symbol" (if (not (symbol? expr)) expr (let ((parts (split "." (symbol->string expr)))) (if (single parts) expr (quasiquote (. (unquote (string->symbol (car parts))) (unquote-splicing (cdr parts)))))))) +(define (single list) "(single list)\u000A\u000AChecks if argument is list with one element." (and (pair? list) (not (cdr list)))) +(define (iterator? x) "(iterator? x)\u000A\u000A Checks if value is JavaScript iterator object." (and (object? x) (procedure? (. x Symbol.iterator)))) +(define-macro (.. expr) "(.. foo.bar.baz)\u000A\u000AGets the value from a nested object where the argument is a period separated symbol." (if (not (symbol? expr)) expr (let ((parts (split "." (symbol->string expr)))) (if (single parts) expr (quasiquote (. (unquote (string->symbol (car parts))) (unquote-splicing (cdr parts)))))))) (set-special! "#:" (quote gensym-interal)) -(define (gensym-interal symbol) "(gensym-interal symbol)\u000A\u000AParser extension that create new quoted named gensym." (quasiquote (quote (unquote (gensym symbol))))) -(define (plain-object? x) "(plain-object? x)\u000A\u000AFunction check if value is plain JavaScript object. Created using object macro." (and (== (--> (type x) (cmp "object")) 0) (eq? (. x (quote constructor)) Object))) -(define typed-array? (let ((TypedArray (Object.getPrototypeOf Uint8Array))) (lambda (o) "(typed-array? o)\u000A\u000AFunction test if argumnet is JavaScript typed array (Scheme byte vector)." (instanceof TypedArray o)))) -(define (symbol->string s) "(symbol->string symbol)\u000A\u000AFunction convert LIPS symbol to string." (typecheck "symbol->string" s "symbol") (let ((name s.__name__)) (if (string? name) name (name.toString)))) -(define (string->symbol string) "(string->symbol string)\u000A\u000AFunction convert string to LIPS symbol." (typecheck "string->symbol" string "string") (%as.data (new lips.LSymbol string))) -(define (alist->object alist) "(alist->object alist)\u000A\u000AFunction convert alist pairs to JavaScript object." (if (pair? alist) (alist.to_object) (alist->object (new lips.Pair undefined ())))) -(define (object->alist object) "(object->alist object)\u000A\u000AFunction convert JavaScript object to Alist" (typecheck "object->alist" object "object") (vector->list (--> (Object.entries object) (map (lambda (arr) (apply cons (vector->list arr))))))) -(define (parent.frames) "(parent.frames)\u000A\u000AFuncion return list of environments from parent frames (lambda function calls)" (let iter ((result (quote ())) (frame (parent.frame 1))) (if (eq? frame (interaction-environment)) (cons frame result) (if (null? frame) result (let ((parent.frame (--> frame (get (quote parent.frame) (object :throwError #f))))) (if (function? parent.frame) (iter (cons frame result) (parent.frame 0)) result)))))) -(define (pair-map fn seq-list) "(pair-map fn list)\u000A\u000AFunction call fn argument for pairs in a list and return combined list with\u000Avalues returned from function fn. It work like the map but take two items from list" (let iter ((seq-list seq-list) (result (quote ()))) (if (null? seq-list) result (if (and (pair? seq-list) (pair? (cdr seq-list))) (let* ((first (car seq-list)) (second (cadr seq-list)) (value (fn first second))) (if (null? value) (iter (cddr seq-list) result) (iter (cddr seq-list) (cons value result)))))))) -(define (object-expander readonly expr . rest) "(object-expander reaonly '(:foo (:bar 10) (:baz (1 2 3))))\u000A(object-expander reaonly '(:foo :bar))\u000A\u000A\u000ARecursive function helper for defining LIPS code for create objects\u000Ausing key like syntax. if no values are used it will create JavaScript\u000Ashorthand objects where keys are used for keys and values" (let ((name (gensym "name")) (quot (if (null? rest) #f (car rest)))) (if (null? expr) (quasiquote (alist->object ())) (quasiquote (let (((unquote name) (alist->object (quote ())))) (unquote-splicing (let loop ((lst expr) (result ()) (local-readonly readonly)) (if (null? lst) (reverse result) (let ((first (car lst)) (second (if (null? (cdr lst)) () (cadr lst)))) (if (not (key? first)) (let ((msg (string-append (type first) " " (repr first) " is not a symbol!"))) (throw msg)) (let ((prop (key->string first))) (if (or (key? second) (null? second)) (let ((code (quasiquote (set-obj! (unquote name) (unquote prop) undefined)))) (set! readonly #f) (loop (cdr lst) (cons code result) local-readonly)) (let ((code (if (and (pair? second) (key? (car second))) (quasiquote (set-obj! (unquote name) (unquote prop) (unquote (object-expander local-readonly second)))) (if quot (quasiquote (set-obj! (unquote name) (unquote prop) (quote (unquote second)))) (quasiquote (set-obj! (unquote name) (unquote prop) (unquote second))))))) (loop (cddr lst) (cons code result) local-readonly))))))))) (unquote (if readonly (quasiquote (Object.freeze (unquote name))))) (unquote name)))))) -(define-macro (object . expr) "(object :name value)\u000A\u000AMacro that create JavaScript object using key like syntax." (try (object-expander #f expr) (catch (e) (error e.message)))) -(define-macro (object-literal . expr) "(object-literal :name value)\u000A\u000AMacro that create JavaScript object using key like syntax. This is similar,\u000Ato object but all values are quoted. This macro is used with & object literal." (try (object-expander #t expr #t) (catch (e) (error e.message)))) -(define (alist->assign desc . sources) "(alist->assign alist . list-of-alists)\u000A\u000AFunction that work like Object.assign but for LIPS alist." (for-each (lambda (source) (for-each (lambda (pair) (let* ((key (car pair)) (value (cdr pair)) (d-pair (assoc key desc))) (if (pair? d-pair) (set-cdr! d-pair value) (append! desc (list pair))))) source)) sources) desc) -(define (key? symbol) "(key? symbol)\u000A\u000AFunction check if symbol is key symbol, have colon as first character." (and (symbol? symbol) (== (--> (substring (symbol->string symbol) 0 1) (cmp ":")) 0))) -(define (key->string symbol) "(key->string symbol)\u000A\u000AIf symbol is key it convert that to string - remove colon." (if (key? symbol) (substring (symbol->string symbol) 1))) -(define (%as.data obj) "(%as.data obj)\u000A\u000AMark object as data to stop evaluation." (if (object? obj) (begin (set-obj! obj (quote data) #t) obj))) -(define (%hidden-props obj) "(%hidden-props obj)\u000A\u000AFunction return hidden names of an object, for ES6 class prototype\u000Ait return all methods since they are indistinguishable from hidden property\u000Acreated using defineProperty." (let* ((descriptors (Object.getOwnPropertyDescriptors obj)) (names (Object.keys descriptors))) (--> names (filter (lambda (name) (let ((descriptor (. descriptors name))) (eq? descriptor.enumerable #f))))))) -(define (dir obj . rest) "(dir obj)\u000A\u000AFunction return all props on the object including those in prototype chain." (if (or (null? obj) (eq? obj Object.prototype)) () (let ((proto (if (null? rest) #f (car rest))) (names (Object.getOwnPropertyNames obj))) (if (not proto) (let ((hidden (%hidden-props obj))) (set! names (--> names (filter (lambda (name) (not (hidden.includes name)))))))) (append (array->list (--> names (map (unary string->symbol)))) (dir (Object.getPrototypeOf obj) #t))))) -(define (tree-map f tree) "(tree-map fn tree)\u000A\u000ATree version of map. Function is invoked on every leaf." (if (pair? tree) (cons (tree-map f (car tree)) (tree-map f (cdr tree))) (f tree))) -(define (native.number x) "(native.number obj)\u000A\u000AIf argument is number it will convert to native number." (if (number? x) (value x) x)) -(define (value obj) "(value obj)\u000A\u000AFunction unwrap LNumbers and convert nil value to undefined." (if (eq? obj ()) undefined (if (number? obj) ((. obj "valueOf")) obj))) -(define-macro (define-formatter-rule . patterns) "(rule-pattern pattern)\u000A\u000AAnaphoric Macro for defining patterns for formatter. With Ahead, Pattern and * defined values." (let ((rules (gensym "rules"))) (quasiquote (let (((unquote rules) lips.Formatter.rules) (Ahead (lambda (pattern) (let ((Ahead (.. lips.Formatter.Ahead))) (new Ahead (if (string? pattern) (new RegExp pattern) pattern))))) (* (Symbol.for "*")) (Pattern (lambda (pattern flag) (new lips.Formatter.Pattern (list->array pattern) (if (null? flag) undefined flag))))) (unquote-splicing (map (lambda (pattern) (quasiquote (--> (unquote rules) (push (tree->array (tree-map native.number (unquote-splicing pattern))))))) patterns)))))) +(define (gensym-interal symbol) "(gensym-interal symbol)\u000A\u000AParser extension that creates a new quoted named gensym." (quasiquote (quote (unquote (gensym symbol))))) +(define (plain-object? x) "(plain-object? x)\u000A\u000AChecks if value is a plain JavaScript object created using the object macro." (and (== (--> (type x) (cmp "object")) 0) (eq? (. x (quote constructor)) Object))) +(define typed-array? (let ((TypedArray (Object.getPrototypeOf Uint8Array))) (lambda (o) "(typed-array? o)\u000A\u000AFunction that tests if the arguments is a JavaScript typed array (Scheme byte vector)." (instanceof TypedArray o)))) +(define (symbol->string s) "(symbol->string symbol)\u000A\u000AFunction that converts a LIPS symbol to a string." (typecheck "symbol->string" s "symbol") (let ((name s.__name__)) (if (string? name) name (name.toString)))) +(define (string->symbol string) "(string->symbol string)\u000A\u000AFunction that converts a string to a LIPS symbol." (typecheck "string->symbol" string "string") (%as.data (new lips.LSymbol string))) +(define (alist->object alist) "(alist->object alist)\u000A\u000AFunction that converts alist pairs to a JavaScript object." (if (pair? alist) (alist.to_object) (alist->object (new lips.Pair undefined ())))) +(define (object->alist object) "(object->alist object)\u000A\u000AFunction that converts a JavaScript object to Alist" (typecheck "object->alist" object "object") (vector->list (--> (Object.entries object) (map (lambda (arr) (apply cons (vector->list arr))))))) +(define (parent.frames) "(parent.frames)\u000A\u000AReturns the list of environments from parent frames (lambda function calls)" (let iter ((result (quote ())) (frame (parent.frame 1))) (if (eq? frame (interaction-environment)) (cons frame result) (if (null? frame) result (let ((parent.frame (--> frame (get (quote parent.frame) (object :throwError #f))))) (if (function? parent.frame) (iter (cons frame result) (parent.frame 0)) result)))))) +(define (pair-map fn seq-list) "(pair-map fn list)\u000A\u000AFunction that calls fn argument for pairs in a list and returns a combined list with\u000Avalues returned from function fn. It works likes map but take two items from the list each time." (let iter ((seq-list seq-list) (result (quote ()))) (if (null? seq-list) result (if (and (pair? seq-list) (pair? (cdr seq-list))) (let* ((first (car seq-list)) (second (cadr seq-list)) (value (fn first second))) (if (null? value) (iter (cddr seq-list) result) (iter (cddr seq-list) (cons value result)))))))) +(define (object-expander readonly expr . rest) "(object-expander readonly '(:foo (:bar 10) (:baz (1 2 3))))\u000A(object-expander readonly '(:foo :bar))\u000A\u000ARecursive function helper for defining LIPS code to create objects\u000Ausing key like syntax. If no values are used it will create a JavaScript\u000Ashorthand objects where keys are used for keys and the values." (let ((name (gensym "name")) (r-only (gensym "r-only")) (quot (if (null? rest) #f (car rest)))) (if (null? expr) (quasiquote (alist->object ())) (quasiquote (let (((unquote name) (unquote (Object.fromEntries (new Array)))) ((unquote r-only) (unquote (Object.fromEntries (new Array (new Array "writable" #f)))))) (unquote-splicing (let loop ((lst expr) (result ())) (if (null? lst) (reverse result) (let ((first (car lst)) (second (if (null? (cdr lst)) () (cadr lst)))) (if (not (key? first)) (let ((msg (string-append (type first) " " (repr first) " is not a symbol!"))) (throw msg)) (let ((prop (key->string first))) (if (or (key? second) (null? second)) (let ((code (quasiquote (set-obj! (unquote name) (unquote prop) undefined)))) (loop (cdr lst) (cons code result))) (let ((code (if readonly (if (and (pair? second) (key? (car second))) (quasiquote (set-obj! (unquote name) (unquote prop) (unquote (object-expander readonly second quot)) (unquote r-only))) (if quot (quasiquote (set-obj! (unquote name) (unquote prop) (quote (unquote second)) (unquote r-only))) (quasiquote (set-obj! (unquote name) (unquote prop) (unquote second) (unquote r-only))))) (if (and (pair? second) (key? (car second))) (quasiquote (set-obj! (unquote name) (unquote prop) (unquote (object-expander readonly second)))) (if quot (quasiquote (set-obj! (unquote name) (unquote prop) (quote (unquote second)))) (quasiquote (set-obj! (unquote name) (unquote prop) (unquote second)))))))) (loop (cddr lst) (cons code result)))))))))) (unquote (if readonly (quasiquote (Object.preventExtensions (unquote name))))) (unquote name)))))) +(define-macro (object . expr) "(object :name value)\u000A\u000ACreates a JavaScript object using key like syntax." (try (object-expander #f expr) (catch (e) (try (error e.message) (catch (e) (console.error e.message)))))) +(define-macro (object-literal . expr) "(object-literal :name value)\u000A\u000ACreates a JavaScript object using key like syntax. This is similar,\u000Ato object but all values are quoted. This macro is used by the & object literal." (try (object-expander #t expr #t) (catch (e) (try (error e.message) (catch (e) (console.error e.message)))))) +(define (alist->assign desc . sources) "(alist->assign alist . list-of-alists)\u000A\u000AFunction that works like Object.assign but for LIPS alists." (for-each (lambda (source) (for-each (lambda (pair) (let* ((key (car pair)) (value (cdr pair)) (d-pair (assoc key desc))) (if (pair? d-pair) (set-cdr! d-pair value) (append! desc (list pair))))) source)) sources) desc) +(define (key? symbol) "(key? symbol)\u000A\u000AChecks if symbol is a keyword (has a colon as first character)." (and (symbol? symbol) (== (--> (substring (symbol->string symbol) 0 1) (cmp ":")) 0))) +(define (key->string symbol) "(key->string symbol)\u000A\u000AIf symbol is a keyword it converts that to string and removes the colon." (if (key? symbol) (substring (symbol->string symbol) 1))) +(define (%as.data obj) "(%as.data obj)\u000A\u000AMarks the object as data to stop evaluation." (if (object? obj) (begin (set-obj! obj (quote data) #t) obj))) +(define (%hidden-props obj) "(%hidden-props obj)\u000A\u000AReturns the hidden names of an object, for ES6 class prototypes\u000Ait returns all methods since they are indistinguishable from hidden properties\u000Acreated using defineProperty." (let* ((descriptors (Object.getOwnPropertyDescriptors obj)) (names (Object.keys descriptors))) (--> names (filter (lambda (name) (let ((descriptor (. descriptors name))) (eq? descriptor.enumerable #f))))))) +(define (dir obj . rest) "(dir obj)\u000A\u000AReturns all props on the object including those in prototype chain." (if (or (null? obj) (eq? obj Object.prototype)) () (let ((proto (if (null? rest) #f (car rest))) (names (Object.getOwnPropertyNames obj))) (if (not proto) (let ((hidden (%hidden-props obj))) (set! names (--> names (filter (lambda (name) (not (hidden.includes name)))))))) (append (array->list (--> names (map (unary string->symbol)))) (dir (Object.getPrototypeOf obj) #t))))) +(define (tree-map f tree) "(tree-map fn tree)\u000A\u000ATree version of map. fn is invoked on every leaf." (if (pair? tree) (cons (tree-map f (car tree)) (tree-map f (cdr tree))) (f tree))) +(define (native.number x) "(native.number obj)\u000A\u000AIf argument is a number it will convert it to a native number." (if (number? x) (value x) x)) +(define (value obj) "(value obj)\u000A\u000AFunction that unwraps LNumbers and converts nil to undefined." (if (eq? obj ()) undefined (if (number? obj) ((. obj "valueOf")) obj))) +(define-macro (define-formatter-rule . patterns) "(rule-pattern pattern)\u000A\u000AAnaphoric macro for defining patterns for the formatter. With Ahead, Pattern and * defined values." (let ((rules (gensym "rules"))) (quasiquote (let (((unquote rules) lips.Formatter.rules) (Ahead (lambda (pattern) (let ((Ahead (.. lips.Formatter.Ahead))) (new Ahead (if (string? pattern) (new RegExp pattern) pattern))))) (* (Symbol.for "*")) (Pattern (lambda (pattern flag) (new lips.Formatter.Pattern (list->array pattern) (if (null? flag) undefined flag))))) (unquote-splicing (map (lambda (pattern) (quasiquote (--> (unquote rules) (push (tree->array (tree-map native.number (unquote-splicing pattern))))))) patterns)))))) (define-syntax cond (syntax-rules (=> else) ((cond (else else1 else2 ...)) (if #t (begin else1 else2 ...))) ((cond (test => receiver) more-clause ...) (let ((t test)) (cond/maybe-more t (receiver t) more-clause ...))) ((cond (generator guard => receiver) more-clause ...) (call-with-values (lambda () generator) (lambda t (cond/maybe-more (apply guard t) (apply receiver t) more-clause ...)))) ((cond (test) more-clause ...) (let ((t test)) (cond/maybe-more t t more-clause ...))) ((cond (test body1 body2 ...) more-clause ...) (cond/maybe-more test (begin body1 body2 ...) more-clause ...))) "(cond (predicate? . body)\u000A (predicate? . body)\u000A (else . body))\u000A\u000AMacro for condition checks. For usage instead of nested ifs.") (define-syntax cond/maybe-more (syntax-rules () ((cond/maybe-more test consequent) (if test consequent)) ((cond/maybe-more test consequent clause ...) (if test consequent (cond clause ...)))) "(cond/maybe-more test consequent ...)\u000A\u000AHelper macro used by cond.") (define-macro (cond . list) "(cond (predicate? . body)\u000A (predicate? . body))\u000A\u000A(cond (predicate? => procedure)\u000A (predicate? => procedure))\u000A\u000AMacro for condition checks. For usage instead of nested ifs.\u000AYou can use predicate and any number of expressions. Or symbol =>\u000AFollowed by procedure that will be invoked with result\u000Aof the predicate." (if (pair? list) (let* ((item (car list)) (value (gensym)) (first (car item)) (fn (and (not (null? (cdr item))) (eq? (cadr item) (quote =>)))) (expression (if fn (caddr item) (cdr item))) (rest (cdr list))) (quasiquote (let (((unquote value) (unquote first))) (if (unquote value) (unquote (if fn (quasiquote ((unquote expression) (unquote value))) (quasiquote (begin (unquote-splicing expression))))) (unquote (if (and (pair? rest) (or (eq? (caar rest) #t) (eq? (caar rest) (quote else)))) (quasiquote (begin (unquote-splicing (cdar rest)))) (if (not (null? rest)) (quasiquote (cond (unquote-splicing rest)))))))))) ())) -(define (%r re . rest) "(%r re)\u000A\u000ACreate new regular expression from string, to not break Emacs formatting" (if (null? rest) (new RegExp re) (new RegExp re (car rest)))) -(define (interaction-environment) "(interaction-environment)\u000A\u000AFunction return interaction environement equal to lips.env can be overwritten,\u000Awhen creating new interpreter with lips.Interpreter." **interaction-environment**) -(define (current-output-port) "(current-output-port)\u000A\u000AFunction return default stdout port." (let-env (interaction-environment) (--> **internal-env** (get (quote stdout))))) -(define (current-error-port) "(current-output-port)\u000A\u000AFunction return default stdout port." (let-env (interaction-environment) (--> **internal-env** (get (quote stderr))))) -(define (current-input-port) "(current-input-port)\u000A\u000AFunction return default stdin port." (let-env (interaction-environment) (--> **internal-env** (get (quote stdin))))) -(define (command-line) "(command-line)\u000A\u000AFunction return command line arguments or empty list" (let ((args (let-env (interaction-environment) (--> **internal-env** (get (quote command-line)))))) (if (or (null? args) (zero? (length args))) (quote ("")) (vector->list args)))) -(define (flush-output . rest) "(flush-output)\u000A\u000AIf output-port is buffered, this causes the contents of its buffer to be written to\u000Athe output device. Otherwise it has no effect. Returns an unspecified value." (let ((port (if (null? rest) (current-output-port) (car rest)))) (typecheck "flush-output" port "output-port") (--> port (flush)))) -(define (regex? x) "(regex? x)\u000A\u000AFunction return true of value is regular expression, it return false otherwise." (== (--> (type x) (cmp "regex")) 0)) -(define (set-repr! type fn) "(add-repr! type fn)\u000A\u000AFunction add string represention to the type, which should be constructor function.\u000A\u000AFunction fn should have args (obj q) and it should return string, obj is vlaue that\u000Aneed to be converted to string, if the object is nested and you need to use `repr`,\u000Ait should pass second parameter q to repr, so string will be quoted when it's true.\u000A\u000Ae.g.: (lambda (obj q) (string-append \"<\" (repr obj q) \">\"))" (typecheck "add-repr!" type "function") (typecheck "add-repr!" fn "function") (ignore (--> lips.repr (set type fn)))) -(define (unset-repr! type) "(unset-repr! type)\u000A\u000AFunction remove string represention to the type, which should be constructor function,\u000Aadded by add-repr! function." (typecheck "unset-repr!" type "function") (ignore (--> lips.repr (delete type)))) +(define (%r re . rest) "(%r re)\u000A\u000ACreates a new regular expression from string, to not break Emacs formatting." (if (null? rest) (new RegExp re) (new RegExp re (car rest)))) +(define (interaction-environment) "(interaction-environment)\u000A\u000AReturns the interaction environment equal to lips.env. This can be overwritten\u000Awhen creating new interpreter with lips.Interpreter." **interaction-environment**) +(define (current-output-port) "(current-output-port)\u000A\u000AReturns the default stdout port." (let-env (interaction-environment) (--> **internal-env** (get (quote stdout))))) +(define (current-error-port) "(current-output-port)\u000A\u000AReturns the default stderr port." (let-env (interaction-environment) (--> **internal-env** (get (quote stderr))))) +(define (current-input-port) "(current-input-port)\u000A\u000AReturns the default stdin port." (let-env (interaction-environment) (--> **internal-env** (get (quote stdin))))) +(define (command-line) "(command-line)\u000A\u000AReturns the command line arguments, or an empty list if not running under Node.js." (let ((args (let-env (interaction-environment) (--> **internal-env** (get (quote command-line)))))) (if (or (null? args) (zero? (length args))) (quote ("")) (vector->list args)))) +(define (flush-output . rest) "(flush-output [port])\u000A\u000AIf output-port is buffered, this causes the contents of its buffer to be written to\u000Athe output device. Otherwise it has no effect. Returns an unspecified value." (let ((port (if (null? rest) (current-output-port) (car rest)))) (typecheck "flush-output" port "output-port") (--> port (flush)))) +(define (regex? x) "(regex? x)\u000A\u000AReturns true if value is a regular expression, or false otherwise." (== (--> (type x) (cmp "regex")) 0)) +(define (set-repr! type fn) "(add-repr! type fn)\u000A\u000AFunction that adds the string representation to the type, which should be a constructor function.\u000A\u000AFunction fn should have args (obj q) and it should return a string. obj is the value that\u000Aneed to be converted to a string. If the object is nested and you need to use `repr` recursively,\u000Ait should pass the second parameter q to repr, so string will be quoted when it's true.\u000A\u000Ae.g.: (lambda (obj q) (string-append \"<\" (repr obj q) \">\"))" (typecheck "add-repr!" type "function") (typecheck "add-repr!" fn "function") (ignore (--> lips.repr (set type fn)))) +(define (unset-repr! type) "(unset-repr! type)\u000A\u000ARemoves the string representation of the type, which should be constructor function,\u000Aadded by add-repr! function." (typecheck "unset-repr!" type "function") (ignore (--> lips.repr (delete type)))) (set-special! "&" (quote object-literal) lips.specials.SPLICE) (set-repr! Object (lambda (x q) (concat "&(" (--> (Object.getOwnPropertyNames x) (map (lambda (key) (let ((value (repr (. x key) q)) (key (repr (string->symbol key)))) (concat ":" key " " value)))) (join " ")) ")"))) -(define (bound? x . rest) "(bound? x [env])\u000A\u000AFunction check if variable is defined in given environement or interaction environment\u000Aif not specified." (let ((env (if (null? rest) (interaction-environment) (car rest)))) (try (begin (--> env (get x)) #t) (catch (e) #f)))) -(define (environment-bound? env x) "(environment-bound? env symbol)\u000A\u000AFunction check if symbol is bound variable similar to bound?." (typecheck "environment-bound?" env "environment" 1) (typecheck "environment-bound?" x "symbol" 2) (bound? x env)) -(define (qsort e predicate) "(qsort list predicate)\u000A\u000ASort the list using quick sort alorithm according to predicate." (if (or (null? e) (<= (length e) 1)) e (let loop ((left ()) (right ()) (pivot (car e)) (rest (cdr e))) (if (null? rest) (append (append (qsort left predicate) (list pivot)) (qsort right predicate)) (if (predicate (car rest) pivot) (loop (append left (list (car rest))) right pivot (cdr rest)) (loop left (append right (list (car rest))) pivot (cdr rest))))))) -(define (sort list . rest) "(sort list [predicate])\u000A\u000ASort the list using optional predicate function. if not function is specified\u000Ait will use <= and sort in increasing order." (let ((predicate (if (null? rest) <= (car rest)))) (typecheck "sort" list "pair") (typecheck "sort" predicate "function") (qsort list predicate))) -(define (every fn list) "(every fn list)\u000A\u000AFunction call function fn on each item of the list, if every value is true\u000Ait will return true otherwise it return false." (if (null? list) #t (and (fn (car list)) (every fn (cdr list))))) -(define-macro (promise . body) "(promise . body)\u000A\u000AAnaphoric macro that expose resolve and reject functions from JS promise" (quasiquote (new Promise (lambda (resolve reject) (try (begin (unquote-splicing body)) (catch (e) (error e.message))))))) -(define-macro (timer time . body) "(timer time . body)\u000A\u000AMacro evaluate expression after delay, it return timer. To clear the timer you can use\u000Anative JS clearTimeout function." (quasiquote (setTimeout (lambda () (try (begin (unquote-splicing body)) (catch (e) (error (.. e.message))))) (unquote time)))) -(define-macro (wait time . expr) "(wait time . expr)\u000A\u000AFunction return promise that will resolve with evaluating the expression after delay." (quasiquote (promise (timer (unquote time) (resolve (begin (unquote-splicing expr))))))) -(define (await value) "(await value)\u000A\u000AFunction unquote quoted promise so it can be automagicaly evaluated (resolved\u000Ato its value)." (if (instanceof lips.QuotedPromise value) (value.valueOf) value)) -(define-macro (quote-promise expr) "(quote-promise expr)\u000A'>expr\u000A\u000AMacro used to escape promise the whole expression, will be wrapped\u000Awith JavaScript class that behave like Promise but will not\u000Aauto resolve like normal promise." (quasiquote (let ((env)) (set! env (current-environment)) (env.set (Symbol.for "__promise__") #t) (unquote expr)))) -(define (defmacro? obj) "(defmacro? expression)\u000A\u000AFunction check if object is macro and it's expandable." (and (macro? obj) (. obj (quote defmacro)))) -(define (n-ary n fn) "(n-ary n fn)\u000A\u000AReturn new function that limit number of arguments to n." (lambda args (apply fn (take n args)))) -(define (take n lst) "(take n list)\u000A\u000AReturn n first values of the list." (let iter ((result (quote ())) (i n) (lst lst)) (if (or (null? lst) (<= i 0)) (reverse result) (iter (cons (car lst) result) (- i 1) (cdr lst))))) -(define unary (%doc "(unary fn)\u000A\u000AFunction return new function with arguments limited to one." (curry n-ary 1))) -(define binary (%doc "(binary fn)\u000A\u000AFunction return new function with arguments limited to two." (curry n-ary 2))) -(define (%class-lambda expr) "(class-lambda expr)\u000A\u000AReturn lambda expression where input expression lambda have `this` as first argument." (let ((args (gensym (quote args)))) (quasiquote (lambda (unquote args) (apply (unquote (cadr expr)) this (unquote args)))))) -(define (%class-method-name expr) "(%class-method-name expr)\u000A\u000AHelper function that allow to use [Symbol.asyncIterator] inside method name." (if (pair? expr) (car expr) (list (quote quote) expr))) -(define-macro (define-class name parent . body) "(define-class name parent . body)\u000A\u000ADefine class - JavaScript function constructor with prototype.\u000A\u000Ausage:\u000A\u000A (define-class Person Object\u000A (constructor (lambda (self name)\u000A (set-obj! self '_name name)))\u000A (hi (lambda (self)\u000A (display (string-append self._name \" say hi\"))\u000A (newline))))\u000A (define jack (new Person \"Jack\"))\u000A (jack.hi)" (let iter ((functions (quote ())) (constructor (quote ())) (lst body)) (if (null? lst) (quasiquote (begin (define (unquote name) (unquote (if (null? constructor) (quasiquote (lambda ())) (append (%class-lambda constructor) (list (quote this)))))) (set-obj! (unquote name) (Symbol.for "__class__") #t) (unquote (if (not (null? parent)) (quasiquote (begin (set-obj! (unquote name) (quote prototype) (Object.create (. (unquote parent) (quote prototype)))) (set-obj! (. (unquote name) (quote prototype)) (quote constructor) (unquote name)))))) (set-obj! (unquote name) (quote __name__) (quote (unquote name))) (unquote-splicing (map (lambda (fn) (quasiquote (set-obj! (. (unquote name) (quote prototype)) (unquote (%class-method-name (car fn))) (unquote (%class-lambda fn))))) functions)))) (let ((item (car lst))) (if (eq? (car item) (quote constructor)) (iter functions item (cdr lst)) (iter (cons item functions) constructor (cdr lst))))))) -(define-syntax class (syntax-rules () ((_) (error "class: parent required")) ((_ parent body ...) (let () (define-class temp parent body ...) temp))) "(class <parent> body ...)\u000A\u000AMacro allow to create anonymous classes. See define-class for details.") -(define (make-tags expr) "(make-tags expression)\u000A\u000AFunction that return list structure of code with better syntax then raw LIPS" (quasiquote (h (unquote (let ((val (car expr))) (if (key? val) (key->string val) val))) (alist->object ((unquote (quote quasiquote)) (unquote (pair-map (lambda (car cdr) (quasiquote ((unquote (key->string car)) (unquote (quote unquote)) (unquote cdr)))) (cadr expr))))) (unquote (if (not (null? (cddr expr))) (if (and (pair? (caddr expr)) (let ((s (caaddr expr))) (and (symbol? s) (eq? s (quote list))))) (quasiquote (list->array (list (unquote-splicing (map make-tags (cdaddr expr)))))) (caddr expr))))))) -(define (%sxml h expr) "(%sxml h expr)\u000A\u000AHelper function that render expression using create element function." (let* ((have-attrs (and (not (null? (cdr expr))) (pair? (cadr expr)) (eq? (caadr expr) (quote @)))) (attrs (if have-attrs (cdadr expr) ())) (rest (if have-attrs (cddr expr) (cdr expr)))) (quasiquote ((unquote h) (unquote (let* ((symbol (car expr)) (name (symbol->string symbol))) (if (char-lower-case? (car (string->list name))) name symbol))) (alist->object ((unquote (quote quasiquote)) (unquote (map (lambda (pair) (cons (symbol->string (car pair)) (list (quote unquote) (cadr pair)))) attrs)))) (unquote-splicing (if (null? rest) () (let ((first (car rest))) (if (pair? first) (cond ((symbol=? (quote sxml-unquote) (car first)) (cdr first)) (else (map (lambda (expr) (%sxml h expr)) rest))) (list first))))))))) +(define (bound? x . rest) "(bound? x [env])\u000A\u000AFunction that check if the variable is defined in the given environment, or interaction-environment\u000Aif not specified." (let ((env (if (null? rest) (interaction-environment) (car rest)))) (try (begin (--> env (get x)) #t) (catch (e) #f)))) +(define (environment-bound? env x) "(environment-bound? env symbol)\u000A\u000AChecks if symbol is a bound variable similar to bound?." (typecheck "environment-bound?" env "environment" 1) (typecheck "environment-bound?" x "symbol" 2) (bound? x env)) +(define (qsort e predicate) "(qsort list predicate)\u000A\u000ASorts the list using the quick sort algorithm according to predicate." (if (or (null? e) (<= (length e) 1)) e (let loop ((left ()) (right ()) (pivot (car e)) (rest (cdr e))) (if (null? rest) (append (append (qsort left predicate) (list pivot)) (qsort right predicate)) (if (predicate (car rest) pivot) (loop (append left (list (car rest))) right pivot (cdr rest)) (loop left (append right (list (car rest))) pivot (cdr rest))))))) +(define (sort list . rest) "(sort list [predicate])\u000A\u000ASorts the list using optional predicate function. If no comparison function is given\u000Ait will use <= and sort in increasing order." (let ((predicate (if (null? rest) <= (car rest)))) (typecheck "sort" list "pair") (typecheck "sort" predicate "function") (qsort list predicate))) +(define (every fn list) "(every fn list)\u000A\u000AFunction that calls fn on each item of the list, if every value returns true\u000Ait will return true otherwise it return false.\u000AAnalogous to Python all(map(fn, list))." (if (null? list) #t (and (fn (car list)) (every fn (cdr list))))) +(define-macro (promise . body) "(promise . body)\u000A\u000AAnaphoric macro that exposes resolve and reject functions from JS promise." (quasiquote (new Promise (lambda (resolve reject) (try (begin (unquote-splicing body)) (catch (e) (error e.message))))))) +(define-macro (timer time . body) "(timer time . body)\u000A\u000AEvaluates body after delay, it returns the timer ID from setTimeout.\u000ATo clear the timer you can use native JS clearTimeout function." (quasiquote (setTimeout (lambda () (try (begin (unquote-splicing body)) (catch (e) (error (.. e.message))))) (unquote time)))) +(define-macro (wait time . expr) "(wait time . expr)\u000A\u000AReturns a promise that will resolve with the expression after delay." (quasiquote (promise (timer (unquote time) (resolve (begin (unquote-splicing expr))))))) +(define (await value) "(await value)\u000A\u000AUnquotes a quoted promise so it can be automagically evaluated (resolved\u000Ato its value)." (if (instanceof lips.QuotedPromise value) (value.valueOf) value)) +(define-macro (quote-promise expr) "(quote-promise expr) or '>expr\u000A\u000AMacro used to escape automati awaiting of the expression. It will be wrapped\u000Awith a JavaScript class that behaves like Promise but will not be automatically\u000Aresolved by LIPS like normal promises are." (quasiquote (let ((env)) (set! env (current-environment)) (env.set (Symbol.for "__promise__") #t) (unquote expr)))) +(define (defmacro? obj) "(defmacro? expression)\u000A\u000AChecks if object is a macro and it's expandable." (and (macro? obj) (. obj (quote defmacro)))) +(define (n-ary n fn) "(n-ary n fn)\u000A\u000AReturns a new function that limits the number of arguments to n." (lambda args (apply fn (take n args)))) +(define (take n lst) "(take n list)\u000A\u000AReturns n first values of the list." (let iter ((result (quote ())) (i n) (lst lst)) (if (or (null? lst) (<= i 0)) (reverse result) (iter (cons (car lst) result) (- i 1) (cdr lst))))) +(define unary (%doc "(unary fn)\u000A\u000AReturns a new function with arguments limited to one." (curry n-ary 1))) +(define binary (%doc "(binary fn)\u000A\u000AReturns a new function with arguments limited to two." (curry n-ary 2))) +(define (%class-lambda expr) "(class-lambda expr)\u000A\u000AReturns a lambda expression where input expression lambda have `this` as first argument." (let ((args (gensym (quote args)))) (quasiquote (lambda (unquote args) (apply (unquote (cadr expr)) this (unquote args)))))) +(define (%class-method-name expr) "(%class-method-name expr)\u000A\u000AHelper function that allows to use [Symbol.asyncIterator] inside method name." (if (pair? expr) (car expr) (list (quote quote) expr))) +(define-macro (define-class name parent . body) "(define-class name parent . body)\u000A\u000ADefines a class - JavaScript function constructor with prototype.\u000A\u000Ausage:\u000A\u000A (define-class Person Object\u000A (constructor (lambda (self name)\u000A (set-obj! self '_name name)))\u000A (hi (lambda (self)\u000A (display (string-append self._name \" says hi\"))\u000A (newline))))\u000A (define jack (new Person \"Jack\"))\u000A (jack.hi) ; prints \"Jack says hi\"" (let iter ((functions (quote ())) (constructor (quote ())) (lst body)) (if (null? lst) (quasiquote (begin (define (unquote name) (unquote (if (null? constructor) (quasiquote (lambda ())) (append (%class-lambda constructor) (list (quote this)))))) (set-obj! (unquote name) (Symbol.for "__class__") #t) (unquote (if (not (null? parent)) (quasiquote (begin (set-obj! (unquote name) (quote prototype) (Object.create (. (unquote parent) (quote prototype)))) (set-obj! (. (unquote name) (quote prototype)) (quote constructor) (unquote name)))))) (set-obj! (unquote name) (quote __name__) (quote (unquote name))) (unquote-splicing (map (lambda (fn) (quasiquote (set-obj! (. (unquote name) (quote prototype)) (unquote (%class-method-name (car fn))) (unquote (%class-lambda fn))))) functions)))) (let ((item (car lst))) (if (eq? (car item) (quote constructor)) (iter functions item (cdr lst)) (iter (cons item functions) constructor (cdr lst))))))) +(define-syntax class (syntax-rules () ((_) (error "class: parent required")) ((_ parent body ...) (let () (define-class temp parent body ...) temp))) "(class <parent> body ...)\u000A\u000AAllows to create anonymous classes. See define-class for details.") +(define (make-tags expr) "(make-tags expression)\u000A\u000AReturns a list structure of code with better syntax then raw LIPS" (quasiquote (h (unquote (let ((val (car expr))) (if (key? val) (key->string val) val))) (alist->object ((unquote (quote quasiquote)) (unquote (pair-map (lambda (car cdr) (quasiquote ((unquote (key->string car)) (unquote (quote unquote)) (unquote cdr)))) (cadr expr))))) (unquote (if (not (null? (cddr expr))) (if (and (pair? (caddr expr)) (let ((s (caaddr expr))) (and (symbol? s) (eq? s (quote list))))) (quasiquote (list->array (list (unquote-splicing (map make-tags (cdaddr expr)))))) (caddr expr))))))) +(define (%sxml h expr) "(%sxml h expr)\u000A\u000AHelper function that renders the expression using create element function." (let* ((have-attrs (and (not (null? (cdr expr))) (pair? (cadr expr)) (eq? (caadr expr) (quote @)))) (attrs (if have-attrs (cdadr expr) ())) (rest (if have-attrs (cddr expr) (cdr expr)))) (quasiquote ((unquote h) (unquote (let* ((symbol (car expr)) (name (symbol->string symbol))) (if (char-lower-case? (car (string->list name))) name symbol))) (alist->object ((unquote (quote quasiquote)) (unquote (map (lambda (pair) (cons (symbol->string (car pair)) (list (quote unquote) (cadr pair)))) attrs)))) (unquote-splicing (if (null? rest) () (let ((first (car rest))) (if (pair? first) (cond ((symbol=? (quote sxml-unquote) (car first)) (cdr first)) (else (map (lambda (expr) (%sxml h expr)) rest))) (list first))))))))) (set-special! "~" (quote sxml-unquote-mapper)) (define (sxml-unquote-mapper expression) (quasiquote (sxml-unquote (unquote expression)))) -(define (sxml-unquote) "(sxml-unquote expression)\u000A~expression\u000A\u000AThread expression as code and evaluate it inside sxml, similar to unquote\u000Awith quasiquote." (throw "sxml-unquote: Can't use outside of sxml")) -(define-macro (pragma->sxml pragma) (quasiquote (define-macro (sxml expr) "(sxml expr)\u000A\u000AMacro for JSX like syntax but with SXML.\u000Ae.g. usage:\u000A\u000A(sxml (div (@ (data-foo \"hello\")\u000A (id \"foo\"))\u000A (span \"hello\")\u000A (span \"world\")))" (%sxml (quote (unquote pragma)) expr)))) +(define (sxml-unquote) "(sxml-unquote expression) or ~expression\u000A\u000ATreat expression as code and evaluate it inside sxml, similar to unquote\u000Awith quasiquote." (throw "sxml-unquote: Can't use outside of sxml")) +(define-macro (pragma->sxml pragma) (quasiquote (define-macro (sxml expr) "(sxml expr)\u000A\u000AMacro for JSX like syntax but with SXML.\u000Ae.g. usage:\u000A\u000A(sxml (div (@ (data-foo \"hello\")\u000A (id \"foo\"))\u000A (span \"hello\")\u000A (span \"world\")))\u000A;; ==> <div data-foo=\"hello\" id=\"foo\"><span>hello</span><span>world</span></div>" (%sxml (quote (unquote pragma)) expr)))) (pragma->sxml h) -(define-macro (with-tags expr) "(with-tags expression)\u000A\u000AMacro that evalute LIPS shorter code for S-Expression equivalent of JSX.\u000Ae.g.:\u000A\u000A(with-tags (:div (:class \"item\" :id \"item-1\")\u000A (list (:span () \"Random Item\")\u000A (:a (:onclick (lambda (e) (alert \"close\")))\u000A \"close\"))))\u000A\u000AAbove expression can be passed to function that renders JSX (like render in React, Preact)\u000ATo get the string from the macro you can use vhtml library from npm." (make-tags expr)) -(define (get-resource url) "(get-resource url)\u000A\u000ALoad JavaScript or CSS file in browser by adding script tag to head of the current document.\u000AWhen called from Node it allow it allow to load JavaScript files only." (typecheck "get-resource" url "string") (if (not (bound? (quote document))) (if (eq? self global) (let ((code (%read-file #f url))) (self.eval code)) (throw (new Error "get-script: document not defined"))) (let ((load (lambda (node) (new Promise (lambda (resolve reject) (set! node.onload (lambda () (resolve))) (set! node.onerror (lambda () (reject (string-append "get-resource: Failed to load " url)))) (if document.head (document.head.appendChild node))))))) (cond ((url.match #/.js$/) (let ((script (document.createElement "script"))) (set! script.src url) (load script))) ((url.match #/.css$/) (let ((link (document.createElement "link"))) (set! link.href url) (set! link.rel "stylesheet") (load link))))))) -(define (gensym? value) "(gensym? value)\u000A\u000AFunction return #t if value is symbol and it's gensym. It returns #f otherwise." (and (symbol? value) (--> value (is_gensym)))) -(define (degree->radians x) "(degree->radians x)\u000A\u000AConvert degree to radians." (* x (/ Math.PI 180))) -(define (radians->degree x) "(radians->degree x)\u000A\u000AConvert radians to degree." (* x (/ 180 Math.PI))) -(define-syntax while (syntax-rules () ((_ predicate body ...) (do () ((not predicate)) body ...))) "(while cond . body)\u000A\u000AMacro that create a loop, it exectue body until cond expression is false.") -(define-syntax ++ (syntax-rules () ((++ x) (let ((tmp (+ x 1))) (set! x tmp) tmp))) "(++ variable)\u000A\u000AMacro that work only on variables and increment the value by one.") -(define-syntax -- (syntax-rules () ((-- x) (let ((tmp (- x 1))) (set! x tmp) tmp))) "(-- variable)\u000A\u000AMacro that decrement the value it work only on symbols") -(define (pretty-format . lists) "(pretty-format pair)\u000A\u000AFunction return pretty printed string from pair expression." (let ((code (--> (list->vector lists) (map (lambda (pair i) (typecheck "pretty-pair" pair "pair" i) (repr pair #t))) (join "")))) (--> (new lips.Formatter code) (break) (format)))) -(define (reset) "(reset)\u000A\u000AFunction reset environment and remove all user defined variables." (let-env **interaction-environment** (let ((defaults **interaction-environment-defaults**) (env **interaction-environment**)) (--> env (list) (forEach (lambda (name) (if (not (--> defaults (includes name))) (--> env (unset name))))))))) +(define-macro (with-tags expr) "(with-tags expression)\u000A\u000Avalutes LIPS shorter code for S-Expression equivalent of JSX.\u000Ae.g.:\u000A\u000A(with-tags (:div (:class \"item\" :id \"item-1\")\u000A (list (:span () \"Random Item\")\u000A (:a (:onclick (lambda (e) (alert \"close\")))\u000A \"close\"))))\u000A\u000AAbove expression can be passed to function that renders JSX (like render in React, Preact)\u000ATo get the string from the macro you can use vhtml library from npm." (make-tags expr)) +(define (get-resource url) "(get-resource url)\u000A\u000ALoad JavaScript or CSS file in browser by adding script/link tag to head of the current document.\u000AWhen called from Node it allow it allows to load JavaScript files only." (typecheck "get-resource" url "string") (if (not (bound? (quote document))) (if (eq? self global) (let ((code (%read-file #f url))) (self.eval code)) (throw (new Error "get-script: document not defined"))) (let ((load (lambda (node) (new Promise (lambda (resolve reject) (set! node.onload (lambda () (resolve))) (set! node.onerror (lambda () (reject (string-append "get-resource: Failed to load " url)))) (if document.head (document.head.appendChild node))))))) (cond ((url.match #/.js$/) (let ((script (document.createElement "script"))) (set! script.src url) (load script))) ((url.match #/.css$/) (let ((link (document.createElement "link"))) (set! link.href url) (set! link.rel "stylesheet") (load link))))))) +(define (gensym? value) "(gensym? value)\u000A\u000AReturns #t if value is a symbol created by gensym. It returns #f otherwise." (and (symbol? value) (--> value (is_gensym)))) +(define (degree->radians x) "(degree->radians x)\u000A\u000AConvert degrees to radians." (* x (/ Math.PI 180))) +(define (radians->degree x) "(radians->degree x)\u000A\u000AConvert radians to degrees." (* x (/ 180 Math.PI))) +(define-syntax while (syntax-rules () ((_ predicate body ...) (do () ((not predicate)) body ...))) "(while cond . body)\u000A\u000ACreates a loop, it executes cond and body until cond expression is false.") +(define-syntax ++ (syntax-rules () ((++ x) (let ((tmp (+ x 1))) (set! x tmp) tmp))) "(++ variable)\u000A\u000AWorks only on variables and increment the value by one.") +(define-syntax -- (syntax-rules () ((-- x) (let ((tmp (- x 1))) (set! x tmp) tmp))) "(-- variable)\u000A\u000AWorks only on variables and decrements the value by one.") +(define (pretty-format . lists) "(pretty-format pair)\u000A\u000AReturns a pretty printed string from pair expression." (let ((code (--> (list->vector lists) (map (lambda (pair i) (typecheck "pretty-pair" pair "pair" i) (repr pair #t))) (join "")))) (--> (new lips.Formatter code) (break) (format)))) +(define (reset) "(reset)\u000A\u000AFunction resets the environment and removes all user defined variables." (let-env **interaction-environment** (let ((defaults **interaction-environment-defaults**) (env **interaction-environment**)) (--> env (list) (forEach (lambda (name) (if (not (--> defaults (includes name))) (--> env (unset name))))))))) (define (make-list n . rest) (if (or (not (integer? n)) (<= n 0)) (throw (new Error "make-list: first argument need to be integer larger then 0")) (let ((fill (if (null? rest) undefined (car rest)))) (array->list (--> (new Array n) (fill fill)))))) -(define (range n) "(range n)\u000A\u000AFunction return list of n numbers from 0 to n - 1" (typecheck "range" n "number") (array->list (--> (new Array n) (fill 0) (map (lambda (_ i) i))))) -(define-macro (do-iterator spec cond . body) "(do-iterator (var expr) (test) body ...)\u000A\u000AMacro iterate over iterators (e.g. create with JavaScript generator function)\u000Ait works with normal and async iterators. You can loop over infinite iterators\u000Aand break the loop if you want, using expression like in do macro, long sync iterators\u000Awill block main thread (you can't print 1000 numbers from inf iterators,\u000Abecause it will freeze the browser), but if you use async iterators you can process\u000Athe values as they are generated." (let ((gen (gensym "name")) (name (car spec)) (async (gensym "async")) (sync (gensym "sync")) (iterator (gensym "iterator")) (test (if (null? cond) #f (car cond))) (next (gensym "next")) (stop (gensym "stop")) (item (gensym "item"))) (quasiquote (let* (((unquote gen) (unquote (cadr spec))) ((unquote sync) (. (unquote gen) Symbol.iterator)) ((unquote async) (. (unquote gen) Symbol.asyncIterator)) ((unquote iterator)) ((unquote next) (lambda () ((. (unquote iterator) "next"))))) (if (or (procedure? (unquote sync)) (procedure? (unquote async))) (begin (set! (unquote iterator) (if (procedure? (unquote sync)) ((unquote sync)) ((unquote async)))) (let* (((unquote item) ((unquote next))) ((unquote stop) #f) ((unquote name) (. (unquote item) "value"))) (while (not (or (eq? (. (unquote item) "done") #t) (unquote stop))) (if (unquote test) (set! (unquote stop) #t) (begin (unquote-splicing body))) (set! (unquote item) ((unquote next))) (set! (unquote name) (. (unquote item) "value")))))))))) +(define (range stop . rest) "(range stop)\u000A(range start stop)\u000A(range start stop step)\u000A\u000AReturns a list of numbers from start to stop with optional step.\u000AIf start is not defined it starts from 0. If start is larger than stop\u000Athe step needs to be negative otherwise it will hang in an infinite loop." (let* ((i (if (null? rest) 0 stop)) (stop (if (null? rest) stop (car rest))) (step (if (or (null? rest) (null? (cdr rest))) 1 (cadr rest))) (test (cond ((> i stop) (lambda (i) (and (< step 0) (>= i stop)))) ((< i stop) (lambda (i) (and (> step 0) (< i stop)))) (else (lambda () #f)))) (result (vector))) (typecheck "range" i "number" 1) (typecheck "range" step "number" 2) (typecheck "range" stop "number" 3) (while (test i) (result.push i) (set! i (+ i step))) (array->list result))) +(define-macro (do-iterator spec cond . body) "(do-iterator (var expr) (test) body ...)\u000A\u000AIterates over iterators (e.g. creates with JavaScript generator function)\u000Athat works with normal and async iterators. You can loop over infinite iterators\u000Aand break the loop if you want, using expression like in do macro. Long synchronous iterators\u000Awill block the main thread (you can't print 1000 numbers from infinite iterators,\u000Abecause it will freeze the browser), but if you use async iterators you can process\u000Athe values as they are generated." (let ((gen (gensym "name")) (name (car spec)) (async (gensym "async")) (sync (gensym "sync")) (iterator (gensym "iterator")) (test (if (null? cond) #f (car cond))) (next (gensym "next")) (stop (gensym "stop")) (item (gensym "item"))) (quasiquote (let* (((unquote gen) (unquote (cadr spec))) ((unquote sync) (. (unquote gen) Symbol.iterator)) ((unquote async) (. (unquote gen) Symbol.asyncIterator)) ((unquote iterator)) ((unquote next) (lambda () ((. (unquote iterator) "next"))))) (if (or (procedure? (unquote sync)) (procedure? (unquote async))) (begin (set! (unquote iterator) (if (procedure? (unquote sync)) ((unquote sync)) ((unquote async)))) (let* (((unquote item) ((unquote next))) ((unquote stop) #f) ((unquote name) (. (unquote item) "value"))) (while (not (or (eq? (. (unquote item) "done") #t) (unquote stop))) (if (unquote test) (set! (unquote stop) #t) (begin (unquote-splicing body))) (set! (unquote item) ((unquote next))) (set! (unquote name) (. (unquote item) "value")))))))))) (set-repr! Set (lambda () "#<Set>")) -(set-repr! Map (lambda () "#<Met>")) -(define (native-symbol? x) "(native-symbol? object)\u000A\u000AFunction check if value is JavaScript symbol." (and (string=? (type x) "symbol") (not (symbol? x)))) +(set-repr! Map (lambda () "#<Map>")) +(define (native-symbol? x) "(native-symbol? object)\u000A\u000AChecks if value is JavaScript Symbol." (and (string=? (type x) "symbol") (not (symbol? x)))) (set-special! "’" (quote warn-quote)) -(define-macro (warn-quote) "(warn-quote)\u000A\u000ASimple macro that throw error, when you try to use ’ symbol as quote in code" (throw (new Error (string-append "You're using invalid quote character run: " "(set-special! \"’\" 'quote)" " to allow running this type of quote")))) -(define-macro (let-env-values env spec . body) "(let-env-values env ((name var)) . body)\u000A\u000AMacro add mapping for variables var from specified env,\u000AMacro work similar to let-env but lexical scope is working with it." (let ((env-name (gensym (quote env)))) (quasiquote (let (((unquote env-name) (unquote env))) (let (unquote (map (lambda (pair) (quasiquote ((unquote (car pair)) (--> (unquote env-name) (get (quote (unquote (cadr pair)))))))) spec)) (unquote-splicing body)))))) -(define (apropos name) "(apropos name)\u000A\u000ASearch environment and display names that match the given name.\u000Aname can be regex, string or symbol." (typecheck "apropos" name (quote ("string" "regex" "symbol"))) (let ((regex (lambda (string) (new RegExp (escape-regex string))))) (filter (cond ((string? name) (regex name)) ((symbol? name) (regex (symbol->string name))) (else name)) (env (interaction-environment))))) -(define (promisify fn) "(promisify fn)\u000A\u000ASimple function for adding promises to NodeJS callback based function.\u000AFunction tested only with fs module." (lambda args (new Promise (lambda (resolve reject) (apply fn (append args (list (lambda (err data) (if (null? err) (resolve data) (reject err)))))))))) -(define-macro (list* . args) "(list* arg1 ...)\u000A\u000AParallel version of list." (let ((result (gensym "result"))) (quasiquote (let (((unquote result) (vector))) (unquote-splicing (map (lambda (arg) (quasiquote (--> (unquote result) (push (quote-promise (unquote arg)))))) args)) (map await (vector->list (unquote result))))))) -(define-macro (%not-implemented name) "(not-implemented name)\u000A\u000AReturns new function taht throw exception that function is not implmeneted" (let ((str-name (symbol->string name))) (quasiquote (lambda () (unquote (string-append "(" str-name ")\u000A\u000AThis function is not yet implemented.")) (throw (new Error (unquote (string-append str-name " has not beed implemented")))))))) -(define-macro (%make-env name . names) "(%make-env name f1 f2 ...)\u000A\u000ACreate new Environment with given name and defined symbols in it from global env.\u000AIf given function name f1 f2 ... don't exists, it will define function that\u000Athrow exception that function is not yet implemented." (quasiquote (new lips.Environment (alist->object (list (unquote-splicing (map (lambda (name) (quasiquote (cons (quote (unquote name)) (unquote (let ((ref (lips.env.ref name))) (if (null? ref) (quasiquote (%not-implemented (unquote name))) (quasiquote (lips.env.get (quote (unquote name)))))))))) names)))) null (unquote name)))) +(define-macro (warn-quote) "(warn-quote)\u000A\u000ASimple macro that throws an error, when you try to use ’ symbol as quote in code." (throw (new Error (string-append "You're using an invalid Unicode quote character. Run: " "(set-special! \"’\" 'quote)" " to allow the use of this type of quote")))) +(define-macro (let-env-values env spec . body) "(let-env-values env ((name var)) . body)\u000A\u000AAdds mappings for variables var from specified env.\u000Ait is similar to let-env but lexical scope is working with it." (let ((env-name (gensym (quote env)))) (quasiquote (let (((unquote env-name) (unquote env))) (let (unquote (map (lambda (pair) (quasiquote ((unquote (car pair)) (--> (unquote env-name) (get (quote (unquote (cadr pair)))))))) spec)) (unquote-splicing body)))))) +(define (apropos name) "(apropos name)\u000A\u000ASearch the current environment and display names that match the given name.\u000Aname can be regex, string or symbol." (typecheck "apropos" name (quote ("string" "regex" "symbol"))) (let ((regex (lambda (string) (new RegExp (escape-regex string))))) (filter (cond ((string? name) (regex name)) ((symbol? name) (regex (symbol->string name))) (else name)) (env (interaction-environment))))) +(define (promisify fn) "(promisify fn)\u000A\u000ASimple function for adding promises to NodeJS two-callback based functions.\u000AFunction tested only with fs module." (lambda args (new Promise (lambda (resolve reject) (apply fn (append args (list (lambda (err data) (if (null? err) (resolve data) (reject err)))))))))) +(define-macro (list* . args) "(list* arg1 ...)\u000A\u000AParallel asynchronous version of list. Like begin* except all values are returned in a list." (let ((result (gensym "result"))) (quasiquote (let (((unquote result) (vector))) (unquote-splicing (map (lambda (arg) (quasiquote (--> (unquote result) (push (quote-promise (unquote arg)))))) args)) (map await (vector->list (unquote result))))))) +(define-macro (%not-implemented name) "(%not-implemented name)\u000A\u000AReturns new function that throws an exception with a message that this function is not implemented." (let ((str-name (symbol->string name))) (quasiquote (lambda () (unquote (string-append "(" str-name ")\u000A\u000AThis function is not yet implemented.")) (throw (new Error (unquote (string-append str-name " has not been implemented")))))))) +(define-macro (%make-env name . names) "(%make-env name f1 f2 ...)\u000A\u000ACreates a new Environment with given name and defined symbols in it from the global env.\u000AIf given function name f1 f2 ... don't exist, it will define them as functions that\u000Athrow exception that function is not yet implemented." (quasiquote (new lips.Environment (alist->object (list (unquote-splicing (map (lambda (name) (quasiquote (cons (quote (unquote name)) (unquote (let ((ref (lips.env.ref name))) (if (null? ref) (quasiquote (%not-implemented (unquote name))) (quasiquote (lips.env.get (quote (unquote name)))))))))) names)))) null (unquote name)))) (define Y (lambda (h) "(Y f)\u000A\u000A _ __ __ _ _ _ _ __ __ _ _ _\u000A / \\ \\ / / / __ / ____ \\ / \\ \\ / / ____ \\ \\ \\\u000A+ \\ v / + \\ \\ + / ___| + + \\ v / / ___| + + +\u000A| \\ / | \\ \\ | | |__ | | \\ / | |__ | | |\u000A| | | | / \\ | | __| | | | | | __| | | |\u000A| | | | / /\\ \\ | | | | | | | | | | | |\u000A+ |_| + /_/ \\_\\ + |_| + + |_| |_| + + +\u000A \\_ \\_ \\_ _/ \\_ _/ _/ _/" ((lambda (x) (x x)) (lambda (g) (h (lambda args (apply (g g) args))))))) -(define (indexed-db?) "(indexed-db?)\u000A\u000AFunction test if indexedDB is available." (let* ((any (lambda args (let iter ((args args)) (if (null? args) #f (if (not (null? (car args))) (car args) (iter (cdr args))))))) (indexedDB (any window.indexedDB window.indexedDB window.mozIndexedDB window.webkitIndexedDB))) (if (not (null? indexedDB)) (try (begin (window.indexedDB.open "MyTestDatabase" 3) #t) (catch (e) #f)) #f))) -(define (environment? obj) "(environment? obj)\u000A\u000AFunction check if object is LIPS environment." (instanceof lips.Environment obj)) -(define %read-file (let ((read-file #f) (fetch-url #f)) (lambda (binary path) "(%read-file binary path)\u000A\u000ARead file from url or file system. If binary is false it will return\u000Astring that contain all the content. For HTTP requests, If binary\u000Ais false it will: when in browser return ArrayBuffer and in Node\u000Ait will return Buffer object. When reading from file system\u000Ain both cases it will return Buffer objects.\u000A\u000AThe code that use those function, in binary mode, need to check\u000Aif the result is ArrayBuffer or Node.js/BrowserFS Buffer object." (if (not read-file) (let ((fs (--> (interaction-environment) (get (quote **internal-env**)) (get (quote fs) &(:throwError #f))))) (if (null? fs) (throw (new Error "open-input-file: fs not defined")) (let ((*read-file* (promisify fs.readFile))) (set! read-file (lambda (path binary) (let ((buff (*read-file* path))) (if binary (if (eq? self window) (new Blob (vector buff)) buff) (--> buff (toString)))))))))) (if (not fetch-url) (set! fetch-url (lambda (url binary) (if (eq? self window) (let ((res (fetch url))) (if binary (res.arrayBuffer) (res.text))) (http-get url binary))))) (cond ((char=? (string-ref path 0) #\/) (if (not (file-exists? path)) (throw (new Error (string-append "file " path " don't exists"))) (read-file path binary))) ((--> #/^https?:\/\// (test path)) (fetch-url path binary)) (else (%read-file binary (string-append (current-directory) path))))))) +(define (indexed-db?) "(indexed-db?)\u000A\u000AFunction that tests if IndexedDB is available." (let* ((any (lambda args (let iter ((args args)) (if (null? args) #f (if (not (null? (car args))) (car args) (iter (cdr args))))))) (indexedDB (any window.indexedDB window.indexedDB window.mozIndexedDB window.webkitIndexedDB))) (if (not (null? indexedDB)) (try (begin (window.indexedDB.open "IndexedDBExistenceCheck" 3) #t) (catch (e) #f)) #f))) +(define (environment? obj) "(environment? obj)\u000A\u000AChecks if object is a LIPS environment." (instanceof lips.Environment obj)) +(define %read-file (let ((read-file #f) (fetch-url #f)) (lambda (binary path) "(%read-file binary path)\u000A\u000ARead file from url or file system. If binary is false it will return a\u000Astring that contain all the content. For HTTP requests, if binary\u000Ais false it will return an ArrayBuffer (when in a browser) or a Buffer\u000A(when in NodeJS). When reading from the file system in both cases it will\u000Areturn Buffer objects.\u000A\u000ACode that uses this function in binary mode needs to check\u000Aif the result is ArrayBuffer or Node.js/BrowserFS Buffer object." (if (not read-file) (let ((fs (--> (interaction-environment) (get (quote **internal-env**)) (get (quote fs) &(:throwError #f))))) (if (null? fs) (throw (new Error "open-input-file: fs not defined")) (let ((*read-file* (promisify fs.readFile))) (set! read-file (lambda (path binary) (let ((buff (*read-file* path))) (if binary (if (eq? self window) (new Blob (vector buff)) buff) (--> buff (toString)))))))))) (if (not fetch-url) (set! fetch-url (lambda (url binary) (if (eq? self window) (let ((res (fetch url))) (if binary (res.arrayBuffer) (res.text))) (http-get url binary))))) (cond ((char=? (string-ref path 0) #\/) (if (not (file-exists? path)) (throw (new Error (string-append "file " path " don't exists"))) (read-file path binary))) ((--> #/^https?:\/\// (test path)) (fetch-url path binary)) (else (%read-file binary (string-append (current-directory) path))))))) (define %read-binary-file (curry %read-file #t)) (define %read-text-file (curry %read-file #f)) -(define (%fs-promisify-proc fn message) "(%fs-promisify-proc fn string)\u000A\u000AFunction return promisified version of fs function or throw exception\u000Aif fs is not available." (let ((fs (--> lips.env (get (quote **internal-env**)) (get (quote fs))))) (if (null? fs) (throw (new Error (string-append message ": fs not defined"))) (promisify (. fs fn))))) -(define (response->content binary res) "(response->text binary res)\u000A\u000AFunction read all text from Node.js HTTP response object. If binary argument\u000Ais true it will return Buffer object that can be converted to u8vector.\u000A\u000A***Warrning:*** it may overflow the stack (part of Node) when converting\u000Awhole buffer to u8vector." (let ((result (vector)) (append (if binary (lambda (chunk) (result.push (Buffer.from chunk "binary"))) (lambda (chunk) (result.push chunk))))) (res.setEncoding (if binary "binary" "utf8")) (new Promise (lambda (resolve) (res.on "data" append) (res.on "end" (lambda () (if binary (resolve (Buffer.concat result)) (resolve (result.join ""))))))))) +(define (%fs-promisify-proc fn message) "(%fs-promisify-proc fn string)\u000A\u000AReturns a promisified version of a fs function or throws an exception\u000Aif fs is not available." (let ((fs (--> lips.env (get (quote **internal-env**)) (get (quote fs))))) (if (null? fs) (throw (new Error (string-append message ": fs not defined"))) (promisify (. fs fn))))) +(define (response->content binary res) "(response->text binary res)\u000A\u000AReads all text from a Node.js HTTP response object. If binary argument\u000Ais true it will return Buffer object that can be converted to u8vector.\u000A\u000A***Warning:*** it may overflow the Javascript call stack when converting the\u000Awhole buffer to u8vector, because LIPS doesn't have TCO." (let ((result (vector)) (append (if binary (lambda (chunk) (result.push (Buffer.from chunk "binary"))) (lambda (chunk) (result.push chunk))))) (res.setEncoding (if binary "binary" "utf8")) (new Promise (lambda (resolve) (res.on "data" append) (res.on "end" (lambda () (if binary (resolve (Buffer.concat result)) (resolve (result.join ""))))))))) (define response->buffer (curry response->content #t)) (define response->text (curry response->content #f)) -(define http-get (if (eq? self window) (lambda (url binary) "(http-get url)\u000A\u000ANode.js Function that send HTTP Request and return string or\u000Abinary Buffer object." (throw (new Error "http-get: function is Node.js only."))) (let* ((http (. (require "http") (quote get))) (https (. (require "https") (quote get)))) (lambda (url binary) "(http-get url)\u000A\u000ANode.js Function that send HTTP Request and return string or\u000Abinary Buffer object." (let ((request (if (null? (url.match #/^https/)) http https))) (new Promise (lambda (resolve reject) (--> (request url (lambda (res) (if (= res.statusCode 200) (resolve (response->content binary res)) (let ((code res.statusCode)) (res.resume) (reject (string-append "Request return " (number->string code))))))) (on "error" reject))))))))) -(define (buffer->u8vector bin) "(buffer->u8vector bin)\u000A\u000ACross platform function that can be used in both Node and Browser.\u000AIt can be used together with %read-file or %read-binary-file and convert\u000Athe result ArrayBuffer or Buffer to u8vector." (if (instanceof ArrayBuffer bin) (new Uint8Array bin) (Uint8Array.from bin))) -(define (complement fn) "(complement fn)\u000A\u000AHiger order function that returns complement of the given function. If the function fn\u000Afor a given arguments return true the result function will return false, if it would\u000Areturn false, the result function will return true." (typecheck "complement" fn "function") (lambda args (not (apply fn args)))) -(define (always constant) "(always constant)\u000A\u000AHigher order function returns new function that always return given constant." (lambda () constant)) -(define (once fn) "(once fn)\u000A\u000AHigher order function that return new function, that is guarantee\u000Ato be called only once." (typecheck "once" fn "function") (let ((result)) (lambda args (if (string=? (type result) "undefined") (set! result (apply fn args))) result))) -(define (flip fn) "(flip fn)\u000A\u000AHigher order function that return new function where first two arguments are swapped.\u000A\u000AExample:\u000A\u000A (define first (curry (flip vector-ref) 0))\u000A (first #(1 2 3))\u000A ;; ==> 1" (typecheck "flip" fn "function") (lambda (a b . rest) (apply fn b a rest))) -(define (unfold fn init) "(unfold fn init)\u000A\u000AFunction returns list from given function and init value. The function should\u000Areturn cons where first is the item added to the list and second is next value\u000Apassed to the funtion. If function return false it end the loop." (typecheck "unfold" fn "function") (let iter ((pair (fn init)) (result (quote ()))) (if (not pair) (reverse result) (iter (fn (cdr pair)) (cons (car pair) result))))) +(define http-get (if (eq? self window) (lambda (url binary) "(http-get url)\u000A\u000AThis function is only available when running LIPS in NodeJS." (throw (new Error "http-get: function is Node.js only."))) (let* ((http (. (require "http") (quote get))) (https (. (require "https") (quote get)))) (lambda (url binary) "(http-get url)\u000A\u000ANode.js function that sends a HTTP Request and returns a string or\u000Abinary Buffer object." (let ((request (if (null? (url.match #/^https/)) http https))) (new Promise (lambda (resolve reject) (--> (request url (lambda (res) (if (= res.statusCode 200) (resolve (response->content binary res)) (let ((code res.statusCode)) (res.resume) (reject (string-append "Request return " (number->string code))))))) (on "error" reject))))))))) +(define (buffer->u8vector bin) "(buffer->u8vector bin)\u000A\u000ACross platform function that can be used in both Node and browser.\u000AIt can be used together with %read-file or %read-binary-file to convert\u000Athe result ArrayBuffer or Buffer to u8vector." (if (instanceof ArrayBuffer bin) (new Uint8Array bin) (Uint8Array.from bin))) +(define (complement fn) "(complement fn)\u000A\u000AHigher order function that returns the Boolean complement of the given function. If the function fn\u000Afor a given arguments return true the result function will return false, if it would\u000Areturn false, the result function will return true." (typecheck "complement" fn "function") (lambda args (not (apply fn args)))) +(define (always constant) "(always constant)\u000A\u000AHigher-order function that returns a new thunk that always returns the given constant when called." (lambda () constant)) +(define (once fn) "(once fn)\u000A\u000AHigher-order function that returns a new function, that only calls the original\u000Aon the first invocation, and immediately returns the first call's result again\u000Aon subsequent invocations." (typecheck "once" fn "function") (let ((result)) (lambda args (if (string=? (type result) "undefined") (set! result (apply fn args))) result))) +(define (flip fn) "(flip fn)\u000A\u000AHigher-order function that returns a new function where the first two arguments are swapped.\u000A\u000AExample:\u000A\u000A (define first (curry (flip vector-ref) 0))\u000A (first #(1 2 3))\u000A ;; ==> 1" (typecheck "flip" fn "function") (lambda (a b . rest) (apply fn b a rest))) +(define (unfold fn init) "(unfold fn init)\u000A\u000AReturns a list from the given function and init value. The function should\u000Areturn a pair where first is the item added to the list and second is next value\u000Apassed to the function. If the function returns false it ends the loop." (typecheck "unfold" fn "function") (let iter ((pair (fn init)) (result (quote ()))) (if (not pair) (reverse result) (iter (fn (cdr pair)) (cons (car pair) result))))) (define string-join join) (define string-split split) -(define (symbol-append . rest) "(symbol-append s1 s2 ...)\u000A\u000AFunction create new symbol from symbols passed as arguments." (string->symbol (apply string-append (map symbol->string rest)))) -(define-macro (set-global! name) "(set-global! name)\u000A\u000AMacro make the name global variable." (let ((var (symbol-append (quote self.) name))) (quasiquote (set! (unquote var) (unquote name))))) +(define (symbol-append . rest) "(symbol-append s1 s2 ...)\u000A\u000AFunction that creates a new symbol from symbols passed as arguments." (string->symbol (apply string-append (map symbol->string rest)))) +(define-macro (set-global! name) "(set-global! name)\u000A\u000AMacro to make the name a Javascript global variable (i.e. accessible on globalThis)." (let ((var (symbol-append (quote self.) name))) (quasiquote (set! (unquote var) (unquote name))))) +(define performance (if (and (eq? self global) (not (bound? (quote performance)))) (. (require "perf_hooks") (quote performance)) performance)) (define string-append concat) (define = ==) (define remainder %) @@ -128,158 +129,163 @@ (define list->vector list->array) (define vector->list array->list) (define call-with-current-continuation call/cc) -(define-macro (define-symbol-macro type spec . rest) "(define-symbol-macro type (name . args) . body)\u000A\u000AMacro that creates special symbol macro for evaluator similar to build in , or `.\u000AIt's like alias for real macro. Similar to CL reader macros but it receive already\u000Aparsed code like normal macros. Type can be SPLICE or LITERAL symbols.\u000AALL default symbol macros are literal." (let* ((name (car spec)) (symbol (cadr spec)) (args (cddr spec))) (quasiquote (begin (set-special! (unquote symbol) (quote (unquote name)) (unquote (string->symbol (concat "lips.specials." (symbol->string type))))) (define-macro ((unquote name) (unquote-splicing args)) (unquote-splicing rest)))))) +(define-macro (define-symbol-macro type spec . rest) "(define-symbol-macro type (name . args) . body)\u000A\u000ACreates special symbol macros for evaluator similar to built-in , or `.\u000AIt's like an alias for a real macro. Similar to CL reader macros but it receives already\u000Aparsed code like normal macros. Type can be SPLICE or LITERAL symbols (see set-special!).\u000AALL default symbol macros are literal." (let* ((name (car spec)) (symbol (cadr spec)) (args (cddr spec))) (quasiquote (begin (set-special! (unquote symbol) (quote (unquote name)) (unquote (string->symbol (concat "lips.specials." (symbol->string type))))) (define-macro ((unquote name) (unquote-splicing args)) (unquote-splicing rest)))))) (set-special! "#" (quote vector-literal) lips.specials.SPLICE) (define-macro (vector-literal . args) (if (not (or (pair? args) (eq? args ()))) (throw (new Error (concat "Parse Error: vector require pair got " (type args) " in " (repr args)))) (let ((v (list->array args))) (Object.freeze v) v))) -(define-syntax vector (syntax-rules () ((_ arg ...) (list->array (list arg ...)))) "(vector 1 2 3 (+ 3 1))\u000A#(1 2 3 4)\u000A\u000AMacro for defining vectors (JavaScript arrays). Vectors literals are\u000Aautomatically quoted. So you can use expressions inside them. Only other\u000Aliterals, like other vectors or object.") +(define-syntax vector (syntax-rules () ((_ arg ...) (list->array (list arg ...)))) "(vector 1 2 3 (+ 3 1)) or #(1 2 3 4)\u000A\u000AMacro for defining vectors (Javascript Arrays). Vector literals are\u000Aautomatically quoted, so you can't use expressions inside them, only other\u000Aliterals, like other vectors or objects.") (set-repr! Array (lambda (arr q) (let ((result (--> (Array.from arr) (map (lambda (x i) (if (not (in i arr)) "#<empty>" (repr (. arr i) q))))))) (concat "#(" (--> result (join " ")) ")")))) -(define (eqv? a b) "(eqv? a b)\u000A\u000AFunction compare the values. It return true if they are the same, they\u000Aneed to have same type" (if (string=? (type a) (type b)) (cond ((number? a) (or (and (exact? a) (exact? b) (= a b)) (and (inexact? a) (inexact? b) (cond ((a.isNaN) (b.isNaN)) ((and (zero? a) (zero? b)) (eq? a._minus b._minus)) ((and (complex? a) (complex? b)) (let ((re.a (real-part a)) (re.b (real-part b)) (im.a (imag-part a)) (im.b (imag-part b))) (and (if (and (zero? re.a) (zero? re.b)) (eq? (. re.a (quote _minus)) (. re.b (quote _minus))) #t) (if (and (zero? im.a) (zero? im.b)) (eq? (. im.a (quote _minus)) (. im.b (quote _minus))) #t) (or (= re.a re.b) (and (--> re.a (isNaN)) (--> re.b (isNaN)))) (or (= im.a im.b) (and (--> im.a (isNaN)) (--> im.b (isNaN))))))) (else (= a b)))))) ((and (pair? a) (null? a)) (null? b)) (else (eq? a b))) #f)) -(define (equal? a b) "(equal? a b)\u000A\u000AFunction check if values are equal if both are pair or array\u000Ait compares the their elements recursivly." (cond ((and (pair? a)) (and (pair? b) (equal? (car a) (car b)) (equal? (cdr a) (cdr b)))) ((symbol? a) (and (symbol? b) (equal? a.__name__ b.__name__))) ((regex? a) (and (regex? b) (equal? (. a (quote source)) (. b (quote source))))) ((typed-array? a) (and (typed-array? b) (equal? (Array.from a) (Array.from b)))) ((vector? a) (and (vector? b) (= (length a) (length b)) (--> a (every (lambda (item i) (equal? item (vector-ref b i))))))) ((string? a) (and (string? b) (string=? a b))) ((function? a) (and (function? b) (%same-functions a b))) ((array? a) (and (array? b) (eq? (length a) (length b)) (= (--> a (filter (lambda (item i) (equal? item (. b i)))) (quote length)) (length a)))) ((plain-object? a) (and (plain-object? b) (let ((keys_a (--> (Object.keys a) (sort))) (keys_b (--> (Object.keys b) (sort)))) (and (= (length keys_a) (length keys_b)) (equal? keys_a keys_b) (equal? (--> keys_a (map (lambda (key) (. a key)))) (--> keys_b (map (lambda (key) (. b key))))))))) (else (eqv? a b)))) -(define make-promise (lambda (proc) "(make-promise fn)\u000A\u000AFunction create promise from a function." (typecheck "make-promise" proc "function") (let ((result-ready? #f) (result #f)) (let ((promise (lambda () (if result-ready? result (let ((x (proc))) (if result-ready? result (begin (set! result-ready? #t) (set! result x) result))))))) (set-obj! promise (Symbol.for "promise") #t) (set! promise.toString (lambda () (string-append "#<promise - " (if result-ready? (string-append "forced with " (type result)) "not forced") ">"))) promise)))) -(define-macro (delay expression) "(delay expression)\u000A\u000AMacro will create a promise from expression that can be forced with (force)." (quasiquote (make-promise (lambda () (unquote expression))))) -(define (force promise) "(force promise)\u000A\u000AFunction force the promise and evaluate delayed expression." (promise)) -(define (promise? obj) "(promise? obj)\u000A\u000AFunction check if value is a promise created with delay or make-promise." (string=? (type obj) "promise")) -(define (positive? x) "(positive? x)\u000A\u000AFunction check if number is larger then 0" (typecheck "positive?" x "number") (> x 0)) -(define (negative? x) "(negative? x)\u000A\u000AFunction check if number is smaller then 0" (typecheck "negative?" x "number") (< x 0)) -(define (zero? x) "(zero? x)\u000A\u000AFunction check if number is equal to 0" (typecheck "zero?" x "number") (= x 0)) -(define (quotient a b) "(quotient a b)\u000A\u000AReturn quotient from divition as integer." (typecheck "quotient" a "number") (typecheck "quotient" b "number") (if (zero? b 0) (throw (new Error "quotient: divition by zero")) (let ((quotient (/ a b))) (if (integer? quotient) quotient (if (> quotient 0) (floor quotient) (ceiling quotient)))))) -(define (number->string x . rest) "(number->string x [radix])\u000A\u000AFunction convert number to string with optional radix (number base)." (typecheck "number->string" x "number" 1) (let ((radix (if (null? rest) 10 (car rest)))) (typecheck "number->string" radix "number" 2) (--> x (toString (--> radix (valueOf)))))) -(define (boolean? x) "(boolean? x)\u000A\u000AFunction return true if value is boolean." (string=? (type x) "boolean")) -(define (vector-ref vector i) "(vector-ref vector i)\u000A\u000AReturn i element from vector." (typecheck "number->string" vector "array" 1) (typecheck "number->string" i "number" 2) (. vector i)) -(define (vector-set! vector i obj) "(vector-set! vector i obj)\u000A\u000ASet obj as value in vector at position 1." (typecheck "vector-set!" vector "array" 1) (typecheck "vector-set!" i "number" 2) (set-obj! vector i obj)) +(define (eqv? a b) "(eqv? a b)\u000A\u000AFunction that compares the values. It returns true if they are the same, they\u000Aneed to have the same type." (if (string=? (type a) (type b)) (cond ((number? a) (or (and (exact? a) (exact? b) (= a b)) (and (inexact? a) (inexact? b) (cond ((a.isNaN) (b.isNaN)) ((and (zero? a) (zero? b)) (eq? a._minus b._minus)) ((and (complex? a) (complex? b)) (let ((re.a (real-part a)) (re.b (real-part b)) (im.a (imag-part a)) (im.b (imag-part b))) (and (if (and (zero? re.a) (zero? re.b)) (eq? (. re.a (quote _minus)) (. re.b (quote _minus))) #t) (if (and (zero? im.a) (zero? im.b)) (eq? (. im.a (quote _minus)) (. im.b (quote _minus))) #t) (or (= re.a re.b) (and (--> re.a (isNaN)) (--> re.b (isNaN)))) (or (= im.a im.b) (and (--> im.a (isNaN)) (--> im.b (isNaN))))))) (else (= a b)))))) ((and (pair? a) (null? a)) (null? b)) (else (eq? a b))) #f)) +(define (equal? a b) "(equal? a b)\u000A\u000AThe function checks if values are equal. If both are a pair or an array\u000Ait compares their elements recursively." (cond ((and (pair? a)) (and (pair? b) (equal? (car a) (car b)) (equal? (cdr a) (cdr b)))) ((symbol? a) (and (symbol? b) (equal? a.__name__ b.__name__))) ((regex? a) (and (regex? b) (equal? (. a (quote source)) (. b (quote source))))) ((typed-array? a) (and (typed-array? b) (equal? (Array.from a) (Array.from b)))) ((vector? a) (and (vector? b) (= (length a) (length b)) (--> a (every (lambda (item i) (equal? item (vector-ref b i))))))) ((string? a) (and (string? b) (string=? a b))) ((function? a) (and (function? b) (%same-functions a b))) ((array? a) (and (array? b) (eq? (length a) (length b)) (= (--> a (filter (lambda (item i) (equal? item (. b i)))) (quote length)) (length a)))) ((plain-object? a) (and (plain-object? b) (let ((keys_a (--> (Object.keys a) (sort))) (keys_b (--> (Object.keys b) (sort)))) (and (= (length keys_a) (length keys_b)) (equal? keys_a keys_b) (equal? (--> keys_a (map (lambda (key) (. a key)))) (--> keys_b (map (lambda (key) (. b key))))))))) (else (eqv? a b)))) +(define make-promise (lambda (proc) "(make-promise fn)\u000A\u000AFunction that creates a promise from a function." (typecheck "make-promise" proc "function") (let ((result-ready? #f) (result #f)) (let ((promise (lambda () (if result-ready? result (let ((x (proc))) (if result-ready? result (begin (set! result-ready? #t) (set! result x) result))))))) (set-obj! promise (Symbol.for "promise") #t) (set! promise.toString (lambda () (string-append "#<promise - " (if result-ready? (string-append "forced with " (type result)) "not forced") ">"))) promise)))) +(define-macro (delay expression) "(delay expression)\u000A\u000AWill create a promise from expression that can be forced with (force)." (quasiquote (make-promise (lambda () (unquote expression))))) +(define (force promise) "(force promise)\u000A\u000AFunction that forces the promise and evaluates the delayed expression." (promise)) +(define (promise? obj) "(promise? obj)\u000A\u000AChecks if the value is a promise created with delay or make-promise." (string=? (type obj) "promise")) +(define (positive? x) "(positive? x)\u000A\u000AChecks if the number is larger then 0" (typecheck "positive?" x "number") (> x 0)) +(define (negative? x) "(negative? x)\u000A\u000AChecks if the number is smaller then 0" (typecheck "negative?" x "number") (< x 0)) +(define (zero? x) "(zero? x)\u000A\u000AChecks if the number is equal to 0" (typecheck "zero?" x "number") (= x 0)) +(define (quotient a b) "(quotient a b)\u000A\u000AReturn quotient from division as integer." (typecheck "quotient" a "number") (typecheck "quotient" b "number") (if (zero? b 0) (throw (new Error "quotient: division by zero")) (let ((quotient (/ a b))) (if (integer? quotient) quotient (if (> quotient 0) (floor quotient) (ceiling quotient)))))) +(define (number->string x . rest) "(number->string x [radix])\u000A\u000AFunction that converts number to string with optional radix (number base)." (typecheck "number->string" x "number" 1) (let ((radix (if (null? rest) 10 (car rest)))) (typecheck "number->string" radix "number" 2) (--> x (toString (--> radix (valueOf)))))) +(define (boolean? x) "(boolean? x)\u000A\u000AReturns true if value is boolean." (string=? (type x) "boolean")) +(define (vector-ref vector i) "(vector-ref vector i)\u000A\u000AReturn i-th element from vector." (typecheck "number->string" vector "array" 1) (typecheck "number->string" i "number" 2) (. vector i)) +(define (vector-set! vector i obj) "(vector-set! vector i obj)\u000A\u000ASet obj as value in vector at position i." (typecheck "vector-set!" vector "array" 1) (typecheck "vector-set!" i "number" 2) (set-obj! vector i obj)) (define (%number-type type x) (typecheck "%number-type" type (vector "string" "pair")) (typecheck "%number-type" x "number") (let* ((t x.__type__) (typeof (lambda (type) (string=? t type)))) (and (number? x) (if (pair? type) (some typeof type) (typeof type))))) -(define (real? x) "(real? x)\u000A\u000AFunction check if argument x is real." (and (number? x) (or (eq? x +nan.0) (eq? x Number.NEGATIVE_INFINITY) (eq? x Number.POSITIVE_INFINITY) (and (%number-type "complex" x) (let ((i (imag-part x))) (and (zero? i) (exact? i)))) (%number-type (quote ("float" "bigint" "rational")) x)))) -(define (integer? x) "(integer? x)\u000A\u000AFunction check if argument x is integer." (and (number? x) (not (eq? x +nan.0)) (not (eq? x Number.NEGATIVE_INFINITY)) (not (eq? x Number.POSITIVE_INFINITY)) (or (%number-type "bigint" x) (and (%number-type "float" x) (= (modulo x 2) 1))))) -(define (complex? x) "(complex? x)\u000A\u000AFunction check if argument x is complex." (and (number? x) (or (eq? x +nan.0) (eq? x Number.NEGATIVE_INFINITY) (eq? x Number.POSITIVE_INFINITY) (%number-type (quote ("complex" "float" "bigint" "rational")) x)))) -(define (rational? x) "(rational? x)\u000A\u000AFunction check if value is rational." (and (number? x) (not (eq? x +nan.0)) (not (eq? x Number.NEGATIVE_INFINITY)) (not (eq? x Number.POSITIVE_INFINITY)) (or (%number-type "rational" x) (integer? x)))) -(define (typecheck-args _type name _list) "(typecheck-args args type)\u000A\u000AFunction check if all items in array are of same type." (let iter ((n 1) (_list _list)) (if (pair? _list) (begin (typecheck name (car _list) _type n) (iter (+ n 1) (cdr _list)))))) +(define (real? x) "(real? x)\u000A\u000AChecks if the argument x is real." (and (number? x) (or (eq? x +nan.0) (eq? x Number.NEGATIVE_INFINITY) (eq? x Number.POSITIVE_INFINITY) (and (%number-type "complex" x) (let ((i (imag-part x))) (and (zero? i) (exact? i)))) (%number-type (quote ("float" "bigint" "rational")) x)))) +(define (integer? x) "(integer? x)\u000A\u000AChecks if the argument x is integer." (and (number? x) (not (eq? x +nan.0)) (not (eq? x Number.NEGATIVE_INFINITY)) (not (eq? x Number.POSITIVE_INFINITY)) (or (%number-type "bigint" x) (and (%number-type "float" x) (= (modulo x 2) 1))))) +(define (complex? x) "(complex? x)\u000A\u000AChecks if argument x is complex." (and (number? x) (or (eq? x +nan.0) (eq? x Number.NEGATIVE_INFINITY) (eq? x Number.POSITIVE_INFINITY) (%number-type (quote ("complex" "float" "bigint" "rational")) x)))) +(define (rational? x) "(rational? x)\u000A\u000AChecks if the value is rational." (and (number? x) (not (eq? x +nan.0)) (not (eq? x Number.NEGATIVE_INFINITY)) (not (eq? x Number.POSITIVE_INFINITY)) (or (%number-type "rational" x) (integer? x)))) +(define (typecheck-args _type name _list) "(typecheck-args args type)\u000A\u000AFunction that makes sure that all items in the array are of same type." (let iter ((n 1) (_list _list)) (if (pair? _list) (begin (typecheck name (car _list) _type n) (iter (+ n 1) (cdr _list)))))) (define numbers? (curry typecheck-args "number")) -(define (max . args) "(max n1 n2 ...)\u000A\u000AReturn maximum of it's arguments." (numbers? "max" args) (apply Math.max args)) -(define (min . args) "(min n1 n2 ...)\u000A\u000AReturn minimum of it's arguments." (numbers? "min" args) (apply Math.min args)) -(define (make-rectangular re im) "(make-rectangular im re)\u000A\u000ACreate complex number from imaginary and real part." (let ((value (quasiquote ((re unquote re) (im unquote im))))) (lips.LComplex (--> value (to_object #t))))) +(define (max . args) "(max n1 n2 ...)\u000A\u000AReturns the maximum of its arguments." (numbers? "max" args) (apply Math.max args)) +(define (min . args) "(min n1 n2 ...)\u000A\u000AReturns the minimum of its arguments." (numbers? "min" args) (apply Math.min args)) +(define (make-rectangular re im) "(make-rectangular im re)\u000A\u000ACreates a complex number from imaginary and real part (a+bi form)." (let ((value (quasiquote ((re unquote re) (im unquote im))))) (lips.LComplex (--> value (to_object #t))))) (define (exact? n) "(exact? n)" (typecheck "exact?" n "number") (let ((type n.__type__)) (or (string=? type "bigint") (string=? type "rational") (and (string=? type "complex") (exact? n.__im__) (exact? n.__re__))))) (define (inexact? n) "(inexact? n)" (typecheck "inexact?" n "number") (not (exact? n))) (define (exact->inexact n) "(exact->inexact n)\u000A\u000AConvert exact number to inexact." (typecheck "exact->inexact" n "number") (if (%number-type "complex" n) (lips.LComplex (object :im (exact->inexact (. n (quote __im__))) :re (exact->inexact (. n (quote __re__))))) (if (or (rational? n) (integer? n)) (lips.LFloat (--> n (valueOf)) #t) n))) -(define (inexact->exact n) "(inexact->exact number)\u000A\u000AFuncion convert real number to exact ratioanl number." (typecheck "inexact->exact" n "number") (if (exact? n) n (--> n (toRational)))) -(define (log z) "(log z)\u000A\u000AFuncntion calculates natural logarithm of z. Where argument can be\u000Aany number (including complex negative and rational).\u000AIf the value is 0 it return NaN." (cond ((real? z) (cond ((zero? z) +nan.0) ((> z 0) (Math.log z)) (else (+ (Math.log (abs z)) (* Math.PI +1i))))) ((complex? z) (let ((arg (Math.atan2 (imag-part z) (real-part z)))) (+ (Math.log (z.modulus)) (* +1i arg)))) ((rational? z) (log (exact->inexact z))))) +(define (inexact->exact n) "(inexact->exact number)\u000A\u000AFunction that converts real number to exact rational number." (typecheck "inexact->exact" n "number") (if (exact? n) n (--> n (toRational)))) +(define (log z) "(log z)\u000A\u000AFunction that calculates natural logarithm of z where the argument can be\u000Aany number (including complex negative and rational).\u000AIf the value is 0 it return NaN." (cond ((real? z) (cond ((zero? z) +nan.0) ((> z 0) (Math.log z)) (else (+ (Math.log (abs z)) (* Math.PI +1i))))) ((complex? z) (let ((arg (Math.atan2 (imag-part z) (real-part z)))) (+ (Math.log (z.modulus)) (* +1i arg)))) ((rational? z) (log (exact->inexact z))))) (define _maths (list "sin" "cos" "tan" "asin" "acos" "atan" "atan")) (define _this_env (current-environment)) -(let iter ((fns _maths)) (if (not (null? fns)) (let* ((name (car fns)) (op (. Math name)) (fn (lambda (n) (lips.LNumber (op n))))) (--> _this_env (set name fn)) (set-obj! fn (quote __doc__) (concat "(" name " n)\u000A\u000AFunction calculate " name " math operation (it call JavaScript Math." name " function)")) (iter (cdr fns))))) -(define (exp x) (typecheck "exp" x "number") (if (string=? x.__type__ "complex") (let* ((re (real-part x)) (im (imag-part x)) (factor (Math.exp re))) (make-rectangular (* factor (cos im)) (* factor (sin im)))) (Math.exp x))) -(define (modulo a b) "(modulo a b)\u000A\u000AFunction return modulo operation on it's argumennts." (typecheck "modulo" a "number" 1) (typecheck "modulo" b "number" 2) (- a (* b (floor (/ a b))))) -(define (remainder__ a b) "(modulo a b)\u000A\u000AFunction return reminder from division operation." (typecheck "remainder" a "number" 1) (typecheck "remainder" b "number" 2) (- a (* b (truncate (/ a b))))) +(let iter ((fns _maths)) (if (not (null? fns)) (let* ((name (car fns)) (op (. Math name)) (fn (lambda (n) (lips.LNumber (op n))))) (--> _this_env (set name fn)) (set-obj! fn (quote __doc__) (concat "(" name " n)\u000A\u000AFunction that calculates " name " math operation (it call JavaScript Math." name " function)")) (iter (cdr fns))))) +(define (sin n) "(sin n)\u000A\u000AFunction that calculates sine of a number." (typecheck "sin" n "number") (if (string=? n.__type__ "complex") (let ((re (real-part n)) (im (imag-part n))) (lips.LComplex (object :re (* (Math.sin re) (Math.cosh im)) :im (* (Math.cos re) (Math.sinh im))))) (Math.sin n))) +(define (cos n) "(cos n)\u000A\u000AFunction that calculates cosine of a number." (typecheck "cos" n "number") (if (string=? n.__type__ "complex") (let ((re (real-part n)) (im (imag-part n))) (lips.LComplex (object :re (* (Math.cos re) (Math.cosh im)) :im (- (* (Math.sin re) (Math.sinh im)))))) (Math.cos n))) +(define (tan n) "(tan n)\u000A\u000AFunction that calculates tangent of a number." (typecheck "tan" n "number") (if (string=? n.__type__ "complex") (let* ((re (real-part n)) (im (imag-part n)) (re2 (* 2 re)) (im2 (* 2 im))) (lips.LComplex (object :re (/ (Math.sin re2) (+ (Math.cos re2) (Math.cosh im2))) :im (/ (Math.sinh im2) (+ (Math.cos re2) (Math.cosh im2)))))) (Math.tan n))) +(define (exp n) "(exp n)\u000A\u000AFunction that calculates e raised to the power of n." (typecheck "exp" n "number") (if (string=? n.__type__ "complex") (let* ((re (real-part n)) (im (imag-part n)) (factor (Math.exp re))) (make-rectangular (* factor (cos im)) (* factor (sin im)))) (Math.exp n))) +(define (modulo a b) "(modulo a b)\u000A\u000AReturns modulo operation on its argumennts." (typecheck "modulo" a "number" 1) (typecheck "modulo" b "number" 2) (- a (* b (floor (/ a b))))) +(define (remainder__ a b) "(modulo a b)\u000A\u000AReturns remainder from division operation." (typecheck "remainder" a "number" 1) (typecheck "remainder" b "number" 2) (- a (* b (truncate (/ a b))))) (define (list-tail l k) "(list-tail list k)\u000A\u000AReturns the sublist of list obtained by omitting the first k elements." (typecheck "list-tail" l (quote ("pair" "nil"))) (if (< k 0) (throw (new Error "list-ref: index out of range")) (let ((l l) (k k)) (while (> k 0) (if (null? l) (throw (new Error "list-tail: not enough elements in the list"))) (set! l (cdr l)) (set! k (- k 1))) l))) -(define (list-ref l k) "(list-ref list n)\u000A\u000AReturns n element of a list." (typecheck "list-ref" l (quote ("pair" "nil"))) (if (< k 0) (throw (new Error "list-ref: index out of range")) (let ((l l) (k k)) (while (> k 0) (if (or (null? (cdr l)) (null? l)) (throw (new Error "list-ref: not enough elements in the list"))) (set! l (cdr l)) (set! k (- k 1))) (if (null? l) l (car l))))) -(define (not x) "(not x)\u000A\u000AFunction return true if value is false and false otherwise." (if x #f #t)) -(define (rationalize number tolerance) "(rationalize number tolerance)\u000A\u000AFunction returns simplest rational number differing from number by no more\u000Athan the tolerance." (typecheck "rationalize" number "number" 1) (typecheck "rationalize" tolerance "number" 2) (lips.rationalize number tolerance)) -(define (%mem/search access op obj list) "(%member obj list function)\u000A\u000AHelper method to get first list where car equal to obj\u000Ausing provied functions as comparator." (if (null? list) #f (if (op (access list) obj) list (%mem/search access op obj (cdr list))))) -(define (memq obj list) "(memq obj list)\u000A\u000AFunction return first object in the list that match using eq? function." (typecheck "memq" list (quote ("nil" "pair"))) (%mem/search car eq? obj list)) -(define (memv obj list) "(memv obj list)\u000A\u000AFunction return first object in the list that match using eqv? function." (typecheck "memv" list (quote ("nil" "pair"))) (%mem/search car eqv? obj list)) -(define (member obj list) "(member obj list)\u000A\u000AFunction return first object in the list that match using equal? function." (typecheck "member" list (quote ("nil" "pair"))) (%mem/search car equal? obj list)) -(define (%assoc/acessor name) "(%assoc/acessor name)\u000A\u000AFunction return carr with typecheck using give name." (lambda (x) (typecheck name x "pair") (caar x))) -(define (%assoc/search op obj alist) "(%assoc/search op obj alist)\u000A\u000AGeneric function that used in assoc functions with defined comparator\u000Afunction." (typecheck "assoc" alist (vector "nil" "pair")) (let ((ret (%mem/search (%assoc/acessor "assoc") op obj alist))) (if ret (car ret) ret))) -(define assoc (%doc "(assoc obj alist)\u000A\u000AFunction return pair from alist that match given key using equal? check." (curry %assoc/search equal?))) -(define assq (%doc "(assq obj alist)\u000A\u000AFunction return pair from alist that match given key using eq? check." (curry %assoc/search eq?))) -(define assv (%doc "(assv obj alist)\u000A\u000AFunction return pair from alist that match given key using eqv? check." (curry %assoc/search eqv?))) -(define (make-string k . rest) "(make-string k [char])\u000A\u000AFunction return new string with k elements, if char is provied\u000Ait's filled with that character." (let ((char (if (null? rest) #\space (car rest)))) (typecheck "make-string" k "number" 1) (typecheck "make-string" char "character" 2) (let iter ((result (quote ())) (k k)) (if (<= k 0) (list->string result) (iter (cons char result) (- k 1)))))) -(define (string . args) "(string chr1 chr2 ...)\u000A\u000AFunction create new string from it's arguments. Each argument\u000ANeed to be a character object." (for-each (lambda (x) (typecheck "string" x "character")) args) (list->string args)) +(define (list-ref l k) "(list-ref list n)\u000A\u000AReturns n-th element of a list." (typecheck "list-ref" l (quote ("pair" "nil"))) (if (< k 0) (throw (new Error "list-ref: index out of range")) (let ((l l) (k k)) (while (> k 0) (if (or (null? (cdr l)) (null? l)) (throw (new Error "list-ref: not enough elements in the list"))) (set! l (cdr l)) (set! k (- k 1))) (if (null? l) l (car l))))) +(define (not x) "(not x)\u000A\u000AReturns true if value is false and false otherwise." (if x #f #t)) +(define (rationalize number tolerance) "(rationalize number tolerance)\u000A\u000AReturns simplest rational number approximation differing from number by no more\u000Athan the tolerance." (typecheck "rationalize" number "number" 1) (typecheck "rationalize" tolerance "number" 2) (lips.rationalize number tolerance)) +(define (%mem/search access op obj list) "(%member obj list function)\u000A\u000AHelper method to get first list where car equal to obj\u000Ausing provided function as comparator." (if (null? list) #f (if (op (access list) obj) list (%mem/search access op obj (cdr list))))) +(define (memq obj list) "(memq obj list)\u000A\u000AReturns first object in the list that match using eq? function." (typecheck "memq" list (quote ("nil" "pair"))) (%mem/search car eq? obj list)) +(define (memv obj list) "(memv obj list)\u000A\u000AReturns first object in the list that match using eqv? function." (typecheck "memv" list (quote ("nil" "pair"))) (%mem/search car eqv? obj list)) +(define (member obj list) "(member obj list)\u000A\u000AReturns first object in the list that match using equal? function." (typecheck "member" list (quote ("nil" "pair"))) (%mem/search car equal? obj list)) +(define (%assoc/accessor name) "(%assoc/accessor name)\u000A\u000AReturns carr with typecheck using give name." (lambda (x) (typecheck name x "pair") (caar x))) +(define (%assoc/search op obj alist) "(%assoc/search op obj alist)\u000A\u000AGeneric function that used in assoc functions with defined comparator\u000Afunction." (typecheck "assoc" alist (vector "nil" "pair")) (let ((ret (%mem/search (%assoc/accessor "assoc") op obj alist))) (if ret (car ret) ret))) +(define assoc (%doc "(assoc obj alist)\u000A\u000AReturns pair from alist that match given key using equal? check." (curry %assoc/search equal?))) +(define assq (%doc "(assq obj alist)\u000A\u000AReturns pair from a list that matches given key using eq? check." (curry %assoc/search eq?))) +(define assv (%doc "(assv obj alist)\u000A\u000AReturns pair from alist that match given key using eqv? check." (curry %assoc/search eqv?))) +(define (make-string k . rest) "(make-string k [char])\u000A\u000AReturns new string with k elements. If char is provided\u000Ait's filled with that character." (let ((char (if (null? rest) #\space (car rest)))) (typecheck "make-string" k "number" 1) (typecheck "make-string" char "character" 2) (let iter ((result (quote ())) (k k)) (if (<= k 0) (list->string result) (iter (cons char result) (- k 1)))))) +(define (string . args) "(string chr1 chr2 ...)\u000A\u000AFunction that creates a new string from it's arguments. Each argument\u000Aneeds to be a character object." (for-each (lambda (x) (typecheck "string" x "character")) args) (list->string args)) (define (string-copy string) "(string-copy string)\u000A\u000AReturns a copy of the given string." (typecheck "string-copy" string "string") (--> string (clone))) -(define (string-fill! string char) "(string-fill! symbol char)\u000A\u000AFunction destructively fill the string with given character." (typecheck "string-fill!" string "string" 1) (typecheck "string-fill!" char "character" 2) (--> string (fill char))) -(define (identity n) "(identity n)\u000A\u000ANo op function. it just returns its argument." n) -(define (string-copy x) "(string-copy x)\u000A\u000ACreate new string based of given argument." (typecheck "string-copy" x "string") (lips.LString x)) -(define (list->string _list) "(list->string _list)\u000A\u000AFunction return string from list of characters." (let ((array (list->array (map (lambda (x) (typecheck "list->string" x "character") (x.valueOf)) _list)))) (--> array (join "")))) -(define (string->list string) "(string->list string)\u000A\u000AFunction return list of characters created from string." (typecheck "string->list" string "string") (array->list (--> string (split "") (map (lambda (x) (lips.LCharacter x)))))) -(define-macro (string-set! object index char) "(string-set! object index char)\u000A\u000AMacro that replace character in string in given index, it create new JavaScript\u000Astring and replace old value. Object need to be symbol that point to variable\u000Athat hold the string." (typecheck "string-set!" object "symbol") (let ((chars (gensym "chars"))) (quasiquote (begin (typecheck "string-set!" (unquote object) "string") (typecheck "string-set!" (unquote index) "number") (typecheck "string-set!" (unquote char) "character") (let (((unquote chars) (list->vector (string->list (unquote object))))) (set-obj! (unquote chars) (unquote index) (unquote char)) (set! (unquote object) (list->string (vector->list (unquote chars))))))))) -(define (string-length string) "(string-length string)\u000A\u000AFunction return length of the string." (typecheck "string-ref" string "string") (. string (quote length))) -(define (string-ref string k) "(string-ref string k)\u000A\u000AFunction return character inside string at given zero-based index." (typecheck "string-ref" string "string" 1) (typecheck "string-ref" k "number" 2) (lips.LCharacter (--> string (get k)))) -(define (%string-cmp name string1 string2) "(%string-cmp name a b)\u000A\u000AFunction compare two strings and return 0 if they are equal,\u000A-1 second is smaller and 1 if is larget. The function compare\u000Athe codepoints of the character." (typecheck name string1 "string" 1) (typecheck name string2 "string" 2) (--> string1 (cmp string2))) -(define (string=? string1 string2) "(string=? string1 string2)\u000A\u000AFunction check if two string s are equal." (= (%string-cmp "string=?" string1 string2) 0)) -(define (string<? string1 string2) "(string<? string1 string2)\u000A\u000AFunction return true if second string is smaller then the first one." (= (%string-cmp "string<?" string1 string2) -1)) -(define (string>? string1 string2) "(string<? string1 string2)\u000A\u000AFunction return true if second string is larger then the first one." (= (%string-cmp "string>?" string1 string2) 1)) -(define (string<=? string1 string2) "(string<? string1 string2)\u000A\u000AFunction return true if second string is not larger then the first one." (< (%string-cmp "string<=?" string1 string2) 1)) -(define (string>=? string1 string2) "(string<? string1 string2)\u000A\u000AFunction return true if second character is not smaller then the first one." (> (%string-cmp "string>=?" string1 string2) -1)) -(define (%string-ci-cmp name string1 string2) "(%string-ci-cmp name a b)\u000A\u000AFunction compare two strings ingoring case and return 0 if they are equal,\u000A-1 second is smaller and 1 if is larget. The function compare\u000Athe codepoints of the character." (typecheck name string1 "string" 1) (typecheck name string2 "string" 2) (--> string1 (lower) (cmp (--> string2 (lower))))) -(define (string-ci=? string1 string2) "(string-ci=? string1 string2)\u000A\u000AFunction check if two string s are equal." (= (%string-ci-cmp "string-ci=?" string1 string2) 0)) -(define (string-ci<? string1 string2) "(string-ci<? string1 string2)\u000A\u000AFunction return true if second string is smaller then the first one." (= (%string-ci-cmp "string-ci<?" string1 string2) -1)) -(define (string-ci>? string1 string2) "(string-ci<? string1 string2)\u000A\u000AFunction return true if second string is larger then the first one." (= (%string-ci-cmp "string-ci>?" string1 string2) 1)) -(define (string-ci<=? string1 string2) "(string-ci<? string1 string2)\u000A\u000AFunction return true if second string is not larger then the first one." (< (%string-ci-cmp "string-ci<=?" string1 string2) 1)) -(define (string-ci>=? string1 string2) "(string-ci>=? string1 string2)\u000A\u000AFunction return true if second character is not smaller then the first one." (> (%string-ci-cmp "string-ci>=?" string1 string2) -1)) -(define char? (%doc "(char? obj)\u000A\u000AFunction check if object is character." (curry instanceof lips.LCharacter))) -(define (char->integer chr) "(char->integer chr)\u000A\u000AFunction return codepoint of Unicode character." (typecheck "char->integer" chr "character") (--> chr.__char__ (codePointAt 0))) -(define (integer->char n) "(integer->char chr)\u000A\u000AFunction convert number argument to chararacter." (typecheck "integer->char" n "number") (if (integer? n) (string-ref (String.fromCodePoint n) 0) (throw "argument to integer->char need to be integer."))) -(define-macro (%define-chr-re spec str re) "(%define-chr-re (name chr) sring re)\u000A\u000AMacro define procedure that test character agains regular expression." (quasiquote (define (unquote spec) (unquote str) (typecheck (unquote (symbol->string (car spec))) (unquote (cadr spec)) "character") (not (null? (--> chr (toString) (match (unquote re)))))))) -(%define-chr-re (char-whitespace? chr) "(char-whitespace? chr)\u000A\u000AFunction return true if character is whitespace." (let-env (interaction-environment) (--> **internal-env** (get (quote space-unicode-regex))))) -(%define-chr-re (char-numeric? chr) "(char-numeric? chr)\u000A\u000AFunction return true if character is number." (let-env (interaction-environment) (--> **internal-env** (get (quote numeral-unicode-regex))))) -(%define-chr-re (char-alphabetic? chr) "(char-alphabetic? chr)\u000A\u000AFunction return true if character is leter of the ASCII alphabet." (let-env (interaction-environment) (--> **internal-env** (get (quote letter-unicode-regex))))) -(define (%char-cmp name chr1 chr2) "(%char-cmp name a b)\u000A\u000AFunction compare two characters and return 0 if they are equal,\u000A-1 second is smaller and 1 if is larget. The function compare\u000Athe codepoints of the character." (typecheck name chr1 "character" 1) (typecheck name chr2 "character" 2) (let ((a (char->integer chr1)) (b (char->integer chr2))) (cond ((= a b) 0) ((< a b) -1) (else 1)))) -(define (char=? chr1 chr2) "(char=? chr1 chr2)\u000A\u000AFunction check if two characters are equal." (= (%char-cmp "char=?" chr1 chr2) 0)) -(define (char<? chr1 chr2) "(char<? chr1 chr2)\u000A\u000AFunction return true if second character is smaller then the first one." (= (%char-cmp "char<?" chr1 chr2) -1)) -(define (char>? chr1 chr2) "(char<? chr1 chr2)\u000A\u000AFunction return true if second character is larger then the first one." (= (%char-cmp "char>?" chr1 chr2) 1)) -(define (char<=? chr1 chr2) "(char<? chr1 chr2)\u000A\u000AFunction return true if second character is not larger then the first one." (< (%char-cmp "char<=?" chr1 chr2) 1)) -(define (char>=? chr1 chr2) "(char<? chr1 chr2)\u000A\u000AFunction return true if second character is not smaller then the first one." (> (%char-cmp "char>=?" chr1 chr2) -1)) -(define (%char-ci-cmp name chr1 chr2) "(%char-cmp name a b)\u000A\u000AFunction compare two characters and return 0 if they are equal,\u000A-1 second is smaller and 1 if is larget. The function compare\u000Athe codepoints of the character." (typecheck name chr1 "character" 1) (typecheck name chr2 "character" 2) (%char-cmp name (char-downcase chr1) (char-downcase chr2))) -(define (char-ci=? chr1 chr2) "(char-ci=? chr1 chr2)\u000A\u000AFunction check if two characters are equal." (= (%char-ci-cmp "char-ci=?" chr1 chr2) 0)) -(define (char-ci<? chr1 chr2) "(char-ci<? chr1 chr2)\u000A\u000AFunction return true if second character is smaller then the first one." (= (%char-ci-cmp "char-ci<?" chr1 chr2) -1)) -(define (char-ci>? chr1 chr2) "(char-ci<? chr1 chr2)\u000A\u000AFunction return true if second character is larger then the first one." (= (%char-ci-cmp "char-ci>?" chr1 chr2) 1)) -(define (char-ci<=? chr1 chr2) "(char-ci<? chr1 chr2)\u000A\u000AFunction return true if second character is not larger then the first one." (< (%char-ci-cmp "char-ci<=?" chr1 chr2) 1)) -(define (char-ci>=? chr1 chr2) "(char-ci<? chr1 chr2)\u000A\u000AFunction return true if second character is not smaller then the first one." (> (%char-ci-cmp "char-ci>=?" chr1 chr2) -1)) +(define (string-fill! string char) "(string-fill! symbol char)\u000A\u000AFunction that destructively fills the string with given character." (typecheck "string-fill!" string "string" 1) (typecheck "string-fill!" char "character" 2) (--> string (fill char))) +(define (identity n) "(identity n)\u000A\u000ANo-op function. It just returns its argument." n) +(define (string-copy x) "(string-copy x)\u000A\u000ACreates a new string based on given argument." (typecheck "string-copy" x "string") (lips.LString x)) +(define (list->string _list) "(list->string _list)\u000A\u000AReturns a string from a list of characters." (let ((array (list->array (map (lambda (x) (typecheck "list->string" x "character") (x.valueOf)) _list)))) (--> array (join "")))) +(define (string->list string) "(string->list string)\u000A\u000AReturns a list of characters created from string." (typecheck "string->list" string "string") (array->list (--> (Array.from string) (map (lambda (x) (lips.LCharacter x)))))) +(define-macro (string-set! object index char) "(string-set! object index char)\u000A\u000AReplaces character in string in given index. It create new JavaScript\u000Astring and replaces the old value. Object needs to be symbol that points to the variable\u000Athat holds the string." (typecheck "string-set!" object "symbol") (let ((chars (gensym "chars"))) (quasiquote (begin (typecheck "string-set!" (unquote object) "string") (typecheck "string-set!" (unquote index) "number") (typecheck "string-set!" (unquote char) "character") (let (((unquote chars) (list->vector (string->list (unquote object))))) (set-obj! (unquote chars) (unquote index) (unquote char)) (set! (unquote object) (list->string (vector->list (unquote chars))))))))) +(define (string-length string) "(string-length string)\u000A\u000AReturns the length of the string." (typecheck "string-ref" string "string") (. string (quote length))) +(define (string-ref string k) "(string-ref string k)\u000A\u000AReturns character inside string at given zero-based index." (typecheck "string-ref" string "string" 1) (typecheck "string-ref" k "number" 2) (lips.LCharacter (--> string (get k)))) +(define (%string-cmp name string1 string2) "(%string-cmp name a b)\u000A\u000AFunction that compares two strings and returns 0 if they are equal,\u000A-1 if it is smaller and 1 if is larger. The function compares\u000Athe codepoints of the character." (typecheck name string1 "string" 1) (typecheck name string2 "string" 2) (--> string1 (cmp string2))) +(define (string=? string1 string2) "(string=? string1 string2)\u000A\u000AChecks if two strings are equal." (= (%string-cmp "string=?" string1 string2) 0)) +(define (string<? string1 string2) "(string<? string1 string2)\u000A\u000AReturns true if the second string is smaller than the first one." (= (%string-cmp "string<?" string1 string2) -1)) +(define (string>? string1 string2) "(string<? string1 string2)\u000A\u000AReturns true if the second string is larger than the first one." (= (%string-cmp "string>?" string1 string2) 1)) +(define (string<=? string1 string2) "(string<? string1 string2)\u000A\u000AReturns true if the second string is not larger than the first one." (< (%string-cmp "string<=?" string1 string2) 1)) +(define (string>=? string1 string2) "(string<? string1 string2)\u000A\u000AReturns true if second character is not smaller then the first one." (> (%string-cmp "string>=?" string1 string2) -1)) +(define (%string-ci-cmp name string1 string2) "(%string-ci-cmp name a b)\u000A\u000AFunction that compares two strings ignoring case and returns 0 if they are equal,\u000A-1 if it is smaller and 1 if is larger. The function compares\u000Athe codepoints of the character." (typecheck name string1 "string" 1) (typecheck name string2 "string" 2) (--> string1 (lower) (cmp (--> string2 (lower))))) +(define (string-ci=? string1 string2) "(string-ci=? string1 string2)\u000A\u000AChecks if two strings are equal, ignoring case." (= (%string-ci-cmp "string-ci=?" string1 string2) 0)) +(define (string-ci<? string1 string2) "(string-ci<? string1 string2)\u000A\u000AReturns true if the second string is smaller than the first one, ignoring case." (= (%string-ci-cmp "string-ci<?" string1 string2) -1)) +(define (string-ci>? string1 string2) "(string-ci<? string1 string2)\u000A\u000AReturns true if the second string is larger than the first one, ignoring case." (= (%string-ci-cmp "string-ci>?" string1 string2) 1)) +(define (string-ci<=? string1 string2) "(string-ci<? string1 string2)\u000A\u000AReturns true if the second string is not larger than the first one, ignoring case." (< (%string-ci-cmp "string-ci<=?" string1 string2) 1)) +(define (string-ci>=? string1 string2) "(string-ci>=? string1 string2)\u000A\u000AReturns true if second character is not smaller than the first one, ignoring case." (> (%string-ci-cmp "string-ci>=?" string1 string2) -1)) +(define char? (%doc "(char? obj)\u000A\u000AChecks if the object is a character." (curry instanceof lips.LCharacter))) +(define (char->integer chr) "(char->integer chr)\u000A\u000AReturns the codepoint of Unicode character." (typecheck "char->integer" chr "character") (--> chr.__char__ (codePointAt 0))) +(define (integer->char n) "(integer->char chr)\u000A\u000AFunction that converts number argument to character." (typecheck "integer->char" n "number") (if (integer? n) (string-ref (String.fromCodePoint n) 0) (throw "argument to integer->char need to be integer."))) +(define-macro (%define-chr-re spec str re) "(%define-chr-re (name chr) string re)\u000A\u000AMacro defines the procedure that tests character against regular expression." (quasiquote (define (unquote spec) (unquote str) (typecheck (unquote (symbol->string (car spec))) (unquote (cadr spec)) "character") (not (null? (--> chr (toString) (match (unquote re)))))))) +(%define-chr-re (char-whitespace? chr) "(char-whitespace? chr)\u000A\u000AReturns true if character is whitespace." (let-env (interaction-environment) (--> **internal-env** (get (quote space-unicode-regex))))) +(%define-chr-re (char-numeric? chr) "(char-numeric? chr)\u000A\u000AReturns true if character is number." (let-env (interaction-environment) (--> **internal-env** (get (quote numeral-unicode-regex))))) +(%define-chr-re (char-alphabetic? chr) "(char-alphabetic? chr)\u000A\u000AReturns true if character is leter of the ASCII alphabet." (let-env (interaction-environment) (--> **internal-env** (get (quote letter-unicode-regex))))) +(define (%char-cmp name chr1 chr2) "(%char-cmp name a b)\u000A\u000AFunction that compares two characters and return 0 if they are equal,\u000A-1 second is smaller and 1 if is larger. The function compare\u000Athe codepoints of the character." (typecheck name chr1 "character" 1) (typecheck name chr2 "character" 2) (let ((a (char->integer chr1)) (b (char->integer chr2))) (cond ((= a b) 0) ((< a b) -1) (else 1)))) +(define (char=? chr1 chr2) "(char=? chr1 chr2)\u000A\u000AChecks if two characters are equal." (= (%char-cmp "char=?" chr1 chr2) 0)) +(define (char<? chr1 chr2) "(char<? chr1 chr2)\u000A\u000AReturns true if second character is smaller then the first one." (= (%char-cmp "char<?" chr1 chr2) -1)) +(define (char>? chr1 chr2) "(char<? chr1 chr2)\u000A\u000AReturns true if second character is larger then the first one." (= (%char-cmp "char>?" chr1 chr2) 1)) +(define (char<=? chr1 chr2) "(char<? chr1 chr2)\u000A\u000AReturns true if second character is not larger then the first one." (< (%char-cmp "char<=?" chr1 chr2) 1)) +(define (char>=? chr1 chr2) "(char<? chr1 chr2)\u000A\u000AReturns true if second character is not smaller then the first one." (> (%char-cmp "char>=?" chr1 chr2) -1)) +(define (%char-ci-cmp name chr1 chr2) "(%char-cmp name a b)\u000A\u000AFunction that compares two characters and return 0 if they are equal,\u000A-1 second is smaller and 1 if is larger. The function compare\u000Athe codepoints of the character." (typecheck name chr1 "character" 1) (typecheck name chr2 "character" 2) (%char-cmp name (char-downcase chr1) (char-downcase chr2))) +(define (char-ci=? chr1 chr2) "(char-ci=? chr1 chr2)\u000A\u000AChecks if two characters are equal." (= (%char-ci-cmp "char-ci=?" chr1 chr2) 0)) +(define (char-ci<? chr1 chr2) "(char-ci<? chr1 chr2)\u000A\u000AReturns true if second character is smaller then the first one." (= (%char-ci-cmp "char-ci<?" chr1 chr2) -1)) +(define (char-ci>? chr1 chr2) "(char-ci<? chr1 chr2)\u000A\u000AReturns true if second character is larger then the first one." (= (%char-ci-cmp "char-ci>?" chr1 chr2) 1)) +(define (char-ci<=? chr1 chr2) "(char-ci<? chr1 chr2)\u000A\u000AReturns true if second character is not larger then the first one." (< (%char-ci-cmp "char-ci<=?" chr1 chr2) 1)) +(define (char-ci>=? chr1 chr2) "(char-ci<? chr1 chr2)\u000A\u000AReturns true if second character is not smaller then the first one." (> (%char-ci-cmp "char-ci>=?" chr1 chr2) -1)) (define (char-upcase char) "(char-upcase char)\u000A\u000ACreate uppercase version of the character." (typecheck "char-upcase" char "character") (char.toUpperCase)) (define (char-downcase char) "(char-downcase chr)\u000A\u000ACreate lowercase version of the character." (typecheck "char-upcase" char "character") (char.toLowerCase)) -(define (char-upper-case? char) "(char-upper-case? char)\u000A\u000AFunction check if character is upper case." (typecheck "char-upper-case?" char "character") (and (char-alphabetic? char) (char=? (char-upcase char) char))) -(define (char-lower-case? char) "(char-upper-case? char)\u000A\u000AFunction check if character is lower case." (typecheck "char-lower-case?" char "character") (and (char-alphabetic? char) (char=? (char-downcase char) char))) +(define (char-upper-case? char) "(char-upper-case? char)\u000A\u000AChecks if character is upper case." (typecheck "char-upper-case?" char "character") (and (char-alphabetic? char) (char=? (char-upcase char) char))) +(define (char-lower-case? char) "(char-upper-case? char)\u000A\u000AChecks if character is lower case." (typecheck "char-lower-case?" char "character") (and (char-alphabetic? char) (char=? (char-downcase char) char))) (define (newline . rest) "(newline [port])\u000A\u000AWrite newline character to standard output or given port" (let ((port (if (null? rest) (current-output-port) (car rest)))) (display "\u000A" port))) (define (write obj . rest) "(write obj [port])\u000A\u000AWrite object to standard output or give port. For strings it will include\u000Awrap in quotes." (let ((port (if (null? rest) (current-output-port) (car rest)))) (display (repr obj #t) port))) (define (write-char char . rest) "(write-char char [port])\u000A\u000AWrite single character to given port using write function." (typecheck "write-char" char "character") (if (not (null? rest)) (typecheck "write-char" (car rest) "output-port")) (apply display (cons (char.valueOf) rest))) (define fold-right reduce) (define fold-left fold) -(define (make-vector n . rest) "(make-vector n [fill])\u000A\u000ACreate new vector with n empty elements. If fill is specified it will set\u000Aall elements of the vector to that value." (let ((result (new Array n))) (if (not (null? rest)) (--> result (fill (car rest))) result))) -(define (vector? n) "(vector? n)\u000A\u000AFunction return true of value is vector and false if not." (string=? (type n) "array")) -(define (vector-ref vec n) "(vector-ref vec n)\u000A\u000AFunction return nth element of the vector vec." (typecheck "vector-ref" vec "array" 1) (typecheck "vector-ref" n "number" 2) (. vec n)) -(define (vector-set! vec n value) "(vector-set! vec n value)\u000A\u000AFunction set nth item of the vector to value." (typecheck "vector-ref" vec "array" 1) (typecheck "vector-ref" n "number" 2) (set-obj! vec n value)) +(define (make-vector n . rest) "(make-vector n [fill])\u000A\u000ACreates a new vector with n empty elements. If fill is specified it will set\u000Aall elements of the vector to that value." (let ((result (new Array n))) (if (not (null? rest)) (--> result (fill (car rest))) result))) +(define (vector? n) "(vector? n)\u000A\u000AReturns true if value is vector and false if not." (string=? (type n) "array")) +(define (vector-ref vec n) "(vector-ref vec n)\u000A\u000AReturns nth element of the vector vec." (typecheck "vector-ref" vec "array" 1) (typecheck "vector-ref" n "number" 2) (. vec n)) +(define (vector-set! vec n value) "(vector-set! vec n value)\u000A\u000AFunction that sets nth item of the vector to value." (typecheck "vector-ref" vec "array" 1) (typecheck "vector-ref" n "number" 2) (set-obj! vec n value)) (define (vector-fill! vec value) "(vector-fill! vec value)\u000A\u000ASet every element of the vector to given value." (typecheck "vector-ref" vec "array") (let recur ((n (- (length vec) 1))) (if (>= n 0) (begin (set-obj! vec n value) (recur (- n 1)))))) -(define (vector-length vec) "(vector-length vec)\u000A\u000AFunction return length of the vector. If argument is not vector it throw exception." (typecheck "vector-length" vec "array") (length vec)) -(define-syntax case (syntax-rules (else =>) ((case (key ...) clauses ...) (let ((atom-key (key ...))) (case atom-key clauses ...))) ((case key (else => result)) (result key)) ((case key (else result1 result2 ...)) (begin result1 result2 ...)) ((case key ((atoms ...) => result)) (if (memv key (quote (atoms ...))) (result key))) ((case key ((atoms ...) => result) clause clauses ...) (if (memv key (quote (atoms ...))) (result key) (case key clause clauses ...))) ((case key ((atoms ...) result1 result2 ...)) (if (memv key (quote (atoms ...))) (begin result1 result2 ...))) ((case key ((atoms ...) result1 result2 ...) clause clauses ...) (if (memv key (quote (atoms ...))) (begin result1 result2 ...) (case key clause clauses ...)))) "(case value\u000A ((<items>) result1)\u000A ((<items>) result2)\u000A [else result3])\u000A\u000AMacro for switch case statement. It test if value is any of the item. If\u000Aitem match the value it will return coresponding result expression value.\u000AIf no value match and there is else it will return that result.") +(define (vector-length vec) "(vector-length vec)\u000A\u000AReturns length of the vector. It errors if the argument is not a vector." (typecheck "vector-length" vec "array") (length vec)) +(define-syntax case (syntax-rules (else =>) ((case (key ...) clauses ...) (let ((atom-key (key ...))) (case atom-key clauses ...))) ((case key (else => result)) (result key)) ((case key (else result1 result2 ...)) (begin result1 result2 ...)) ((case key ((atoms ...) => result)) (if (memv key (quote (atoms ...))) (result key))) ((case key ((atoms ...) => result) clause clauses ...) (if (memv key (quote (atoms ...))) (result key) (case key clause clauses ...))) ((case key ((atoms ...) result1 result2 ...)) (if (memv key (quote (atoms ...))) (begin result1 result2 ...))) ((case key ((atoms ...) result1 result2 ...) clause clauses ...) (if (memv key (quote (atoms ...))) (begin result1 result2 ...) (case key clause clauses ...)))) "(case value\u000A ((<items>) result1)\u000A ((<items>) result2)\u000A [else result3])\u000A\u000AMacro for switch case statement. It test if value is any of the item. If\u000Aitem match the value it will return corresponding result expression value.\u000AIf no value match and there is else it will return that result.") (--> lips.Formatter.defaults.exceptions.specials (push "case")) -(define (numerator n) "(numerator n)\u000A\u000AReturn numberator of rational or same number if n is not rational." (typecheck "numerator" n "number") (if (and (rational? n) (not (integer? n))) n.num n)) -(define (denominator n) "(denominator n)\u000A\u000AReturn denominator of rational or same number if one is not rational." (typecheck "denominator" n "number") (if (and (rational? n) (not (integer? n))) n.denom (if (exact? n) 1 1.0))) +(define (numerator n) "(numerator n)\u000A\u000AReturn numerator of rational or same number if n is not rational." (typecheck "numerator" n "number") (cond ((integer? n) n) ((rational? n) n.__num__) (else (numerator (inexact->exact n))))) +(define (denominator n) "(denominator n)\u000A\u000AReturn denominator of rational or same number if one is not rational." (typecheck "denominator" n "number") (cond ((integer? n) n) ((rational? n) n.__denom__) ((exact? n) 1) (else (denominator (inexact->exact n))))) (define (imag-part n) "(imag-part n)\u000A\u000AReturn imaginary part of the complex number n." (typecheck "imag-part" n "number") (if (%number-type "complex" n) n.__im__ 0)) (define (real-part n) "(real-part n)\u000A\u000AReturn real part of the complex number n." (typecheck "real-part" n "number") (if (%number-type "complex" n) n.__re__ n)) (define (make-polar r angle) "(make-polar magnitude angle)\u000A\u000ACreate new complex number from polar parameters." (typecheck "make-polar" r "number") (typecheck "make-polar" angle "number") (if (or (complex? r) (complex? angle)) (error "make-polar: argument can't be complex") (let ((re (* r (sin angle))) (im (* r (cos angle)))) (make-rectangular im re)))) (define (angle x) "(angle x)\u000A\u000AReturns angle of the complex number in polar coordinate system." (if (not (%number-type "complex" x)) (error "angle: number need to be complex") (Math.atan2 x.__im__ x.__re__))) (define (magnitude x) "(magnitude x)\u000A\u000AReturns magnitude of the complex number in polar coordinate system." (if (not (%number-type "complex" x)) (error "magnitude: number need to be complex") (sqrt (+ (* x.__im__ x.__im__) (* x.__re__ x.__re__))))) -(define random (let ((a 69069) (c 1) (m (expt 2 32)) (seed 19380110)) (lambda new-seed "(random)\u000A(random seed)\u000A\u000AFunction generate new random real number using Knuth algorithm." (if (pair? new-seed) (set! seed (car new-seed)) (set! seed (modulo (+ (* seed a) c) m))) (exact->inexact (/ seed m))))) -(define (eof-object? obj) "(eof-object? arg)\u000A\u000AFunction check if value is eof object, returned from input string\u000Aport when there are no more data to read." (eq? obj eof)) -(define (output-port? obj) "(output-port? arg)\u000A\u000AFunction return true if argument is output port." (instanceof lips.OutputPort obj)) -(define (input-port? obj) "(input-port? arg)\u000A\u000AFunction return true if argument is input port." (instanceof lips.InputPort obj)) -(define (char-ready? . rest) "(char-ready?)\u000A(char-ready? port)\u000A\u000AFunction check it characters is ready in input port. This is usefull mostly\u000Afor interactive ports that return false if it would wait for user input.\u000AIt return false if port is closed." (let ((port (if (null? rest) (current-input-port) (car rest)))) (typecheck "char-ready?" port "input-port") (port.char_ready))) -(define open-input-file (let ((readFile #f)) (lambda (filename) "(open-input-file filename)\u000A\u000AFunction return new Input Port with given filename. In Browser user need to\u000Aprovide global fs variable that is instance of FS interface." (new lips.InputFilePort (%read-file #f filename) filename)))) +(define random (let ((a 69069) (c 1) (m (expt 2 32)) (seed 19380110)) (lambda new-seed "(random)\u000A(random seed)\u000A\u000AFunction that generates new random real number using Knuth algorithm." (if (pair? new-seed) (set! seed (car new-seed)) (set! seed (modulo (+ (* seed a) c) m))) (exact->inexact (/ seed m))))) +(define (eof-object? obj) "(eof-object? arg)\u000A\u000AChecks if value is eof object, returned from input string\u000Aport when there are no more data to read." (eq? obj eof)) +(define (output-port? obj) "(output-port? arg)\u000A\u000AReturns true if argument is output port." (instanceof lips.OutputPort obj)) +(define (input-port? obj) "(input-port? arg)\u000A\u000AReturns true if argument is input port." (instanceof lips.InputPort obj)) +(define (char-ready? . rest) "(char-ready?)\u000A(char-ready? port)\u000A\u000AChecks if characters is ready in input port. This is useful mostly\u000Afor interactive ports that return false if it would wait for user input.\u000AIt return false if port is closed." (let ((port (if (null? rest) (current-input-port) (car rest)))) (typecheck "char-ready?" port "input-port") (port.char_ready))) +(define open-input-file (let ((readFile #f)) (lambda (filename) "(open-input-file filename)\u000A\u000AReturns new Input Port with given filename. In Browser user need to\u000Aprovide global fs variable that is instance of FS interface." (new lips.InputFilePort (%read-file #f filename) filename)))) (define (close-input-port port) "(close-input-port port)\u000A\u000AProcedure close port that was opened with open-input-file. After that\u000Ait no longer accept reading from that port." (typecheck "close-input-port" port "input-port") (port.close)) (define (close-output-port port) "(close-output-port port)\u000A\u000AProcedure close port that was opened with open-output-file. After that\u000Ait no longer accept write to that port." (typecheck "close-output-port" port "output-port") (port.close)) (define (call-with-input-file filename proc) "(call-with-input-file filename proc)\u000A\u000AProcedure open file for reading, call user defined procedure with given port\u000Aand then close the port. It return value that was returned by user proc\u000Aand it close the port even if user proc throw exception." (let ((p (open-input-file filename))) (try (proc p) (finally (close-input-port p))))) (define (call-with-output-file filename proc) "(call-with-output-file filename proc)\u000A\u000AProcedure open file for writing, call user defined procedure with port\u000Aand then close the port. It return value that was returned by user proc and it close the port\u000Aeven if user proc throw exception." (let ((p (open-output-file filename))) (try (proc p) (finally (close-output-port p))))) -(define (with-input-from-file string thunk) "(with-input-from-file string thunk)\u000A\u000AProcedure open file and make it current-input-port then thunk is executed.\u000AAfter thunk is executed current-input-port is restored and file port\u000Ais closed." (let* ((port (open-input-file string)) (env **interaction-environment**) (internal-env (env.get (quote **internal-env**))) (old-stdin (internal-env.get "stdin"))) (internal-env.set "stdin" port) (try (thunk) (finally (internal-env.set "stdin" old-stdin) (close-input-port port))))) +(define (with-input-from-port port thunk) "(with-input-from-port port thunk)\u000A\u000AProcedure use port and make it current-input-port then thunk is executed.\u000AAfter thunk is executed current-input-port is restored and given port\u000Ais closed." (let* ((env **interaction-environment**) (internal-env (env.get (quote **internal-env**))) (old-stdin (internal-env.get "stdin"))) (internal-env.set "stdin" port) (try (thunk) (finally (internal-env.set "stdin" old-stdin) (close-input-port port))))) +(define (with-input-from-file string thunk) "(with-input-from-file string thunk)\u000A\u000AProcedure open file and make it current-input-port then thunk is executed.\u000AAfter thunk is executed current-input-port is restored and file port\u000Ais closed." (with-input-from-port (open-input-file string) thunk)) +(define (with-input-from-string string thunk) "(with-input-from-string string thunk)\u000A\u000AProcedure open string and make it current-input-port then thunk is executed.\u000AAfter thunk is executed current-input-port is restored and string port\u000Ais closed." (with-input-from-port (open-input-string string) thunk)) (define (with-output-to-file string thunk) (let* ((port (open-output-file string)) (env **interaction-environment**) (internal-env (env.get (quote **internal-env**))) (old-stdout (internal-env.get "stdout"))) (internal-env.set "stdout" port) (try (thunk) (finally (internal-env.set "stdout" old-stdout) (close-output-port port))))) (define (file-exists? filename) (new Promise (lambda (resolve) (let ((fs (--> lips.env (get (quote **internal-env**)) (get (quote fs))))) (if (null? fs) (throw (new Error "file-exists?: fs not defined")) (fs.stat filename (lambda (err stat) (if (null? err) (resolve (stat.isFile)) (resolve #f))))))))) -(define open-output-file (let ((open)) (lambda (filename) "(open-output-file filename)\u000A\u000AFunction open file and return port that can be used for writing. If file\u000Aexists it will throw an Error." (typecheck "open-output-file" filename "string") (if (not (procedure? open)) (set! open (%fs-promisify-proc (quote open) "open-output-file"))) (if (file-exists? filename) (throw (new Error "open-output-file: file exists")) (lips.OutputFilePort filename (open filename "w")))))) -(define (scheme-report-environment version) "(scheme-report-environment version)\u000A\u000AFunction return new Environment object for given Scheme Spec version.\u000AOnly argument 5 is supported that create environemnt for R5RS." (typecheck "scheme-report-environment" version "number") (case version ((5) (%make-env "R5RS" * + - / < <= = > >= abs acos and angle append apply asin assoc assq assv atan begin boolean? caaaar caaadr caaar caadar caaddr caadr caar cadaar cadadr cadar caddar cadddr caddr cadr call-with-current-continuation call-with-input-file call-with-output-file call-with-values car case cdaaar cdaadr cdaar cdadar cdaddr cdadr cdar cddaar cddadr cddar cdddar cddddr cdddr cddr cdr ceiling char->integer char-alphabetic? char-ci<=? char-ci<? char-ci=? char-ci>=? char-ci>? char-downcase char-lower-case? char-numeric? char-ready? char-upcase char-upper-case? char-whitespace? char<=? char<? char=? char>=? char>? char? close-input-port close-output-port complex? cond cons cos current-input-port current-output-port define define-syntax delay denominator display do dynamic-wind eof-object? eq? equal? eqv? eval even? exact->inexact exact? exp expt floor for-each force gcd if imag-part inexact->exact inexact? input-port? integer->char integer? interaction-environment lambda lcm length let let* let-syntax letrec letrec-syntax list list->string list->vector list-ref list-tail list? load log magnitude make-polar make-rectangular make-string make-vector map max member memq memv min modulo negative? newline not null-environment null? number->string number? numerator odd? open-input-file open-output-file or output-port? pair? peek-char positive? procedure? quasiquote quote quotient rational? rationalize read read-char real-part real? remainder reverse round scheme-report-environment set! set-car! set-cdr! sin sqrt string string->list string->number string->symbol string-append string-ci<=? string-ci<? string-ci=? string-ci>=? string-ci>? string-copy string-fill! string-length string-ref string-set! string<=? string<? string=? string>=? string>? string? substring symbol->string symbol? tan truncate values vector vector->list vector-fill! vector-length vector-ref vector-set! vector? with-input-from-file with-output-to-file write write-char zero?)) ((7) (throw (new Error "not yet implemented"))) (else (throw (new Error (string-append "scheme-report-environment: version " (number->string version) " not supported")))))) -(define-macro (%make-vector prefix type help) "(%make-vector prefix type help)\u000A\u000AMega helper macro that create list of functions for single byte vector\u000Abased on typed array from JavaScript" (letrec ((prefix-str (symbol->string prefix)) (type-str (symbol->string type)) (l-type (--> type-str (toLowerCase))) (static (lambda (name) (string->symbol (format "~a.~a" type-str name)))) (TypedArray.from (static "from")) (fn-name (lambda (str) (string->symbol (format str prefix-str)))) (type-vector (fn-name "~avector")) (make-vector (fn-name "make-~avector")) (vector? (fn-name "~avector?")) (vector-in-range? (fn-name "%~avector-in-range?")) (vector-ref (fn-name "~avector-ref")) (repr-str (format "#~a" prefix-str)) (vector-length (fn-name "~avector-length")) (vector->list (fn-name "~avector->list")) (vector-set! (fn-name "~avector-set!")) (list->tvector (fn-name "list->~avector")) (vector->tvector (fn-name "vector->~avector"))) (quasiquote (begin (define ((unquote type-vector) . args) (unquote (format "(~a v1 v2 ...)\u000A\u000ACreate ~a from give arguments." type-vector help)) ((unquote TypedArray.from) (list->vector args))) (define ((unquote vector-length) v) (unquote (format "(~a v)\u000A\u000Areturn length of ~a." vector-length help)) (typecheck (unquote (symbol->string vector-length)) v (unquote l-type)) v.length) (define ((unquote make-vector) k . fill) (unquote (format "(~a k fill)\u000A\u000AAllocate new ~a of length k, with optional initial values." make-vector help)) (let ((v (new (unquote type) k))) (if (not (null? fill)) (--> v (fill (car fill)))) v)) (define ((unquote vector?) x) (unquote (format "(~a x)\u000A\u000AFunction return #t of argument is ~a otherwise it return #f." vector? help)) (and (object? x) (equal? (. x (quote constructor)) (unquote type)))) (define ((unquote vector-in-range?) vector k) (unquote (format "(~a vector k)\u000A\u000AFunction test if index is range for ~a." vector-in-range? help)) (typecheck (unquote (symbol->string vector-in-range?)) vector (unquote l-type)) (typecheck (unquote (symbol->string vector-in-range?)) k "number") (let ((len (length vector))) (and (>= k 0) (< k len)))) (define ((unquote vector-ref) vector k) (unquote (format "(~a vector k)\u000A\u000AFunction return value frome vector at index k. If index is out of range it throw exception." vector-ref help)) (typecheck (unquote (symbol->string vector-ref)) vector (unquote l-type)) (typecheck (unquote (symbol->string vector-ref)) k "number") (if (not ((unquote vector-in-range?) vector k)) (throw (new Error (unquote (format "~a index out of range" vector-ref)))) (. vector k))) (define ((unquote vector->list) vector) (typecheck (unquote (symbol->string vector->list)) vector (unquote l-type)) (vector->list (Array.from vector))) (define ((unquote vector-set!) vector k v) (unquote (format "(~a vector k)\u000A\u000AFunction set value of ~a at index k. If index is out of range it throw exception." vector-set! help)) (typecheck (unquote (symbol->string vector-set!)) vector (unquote l-type)) (typecheck (unquote (symbol->string vector-set!)) k "number") (if (not ((unquote vector-in-range?) vector k)) (throw (new Error (unquote (format "~a index out of range" vector-set!)))) (set-obj! vector k v))) (define ((unquote list->tvector) lst) (typecheck (unquote (symbol->string list->tvector)) lst "pair") (apply (unquote vector) lst)) (define ((unquote vector->tvector) vector) (typecheck (unquote (symbol->string vector->tvector)) vector "array") ((unquote TypedArray.from) vector)) (set-special! (unquote repr-str) (quote (unquote type-vector)) lips.specials.SPLICE) (set-repr! (unquote type) (lambda (x _quote) (string-append (unquote repr-str) (repr ((unquote vector->list) x) _quote)))))))) -(%make-vector u8 Uint8Array "usigned 8-bit integer vector") -(%make-vector s8 Int8Array "signed 8-bit integer vector") -(%make-vector u16 Uint16Array "usigned 16-bit integer vector") -(%make-vector s16 Int16Array "signed 16-bit integer vector") -(%make-vector u32 Uint16Array "usigned 32-bit integer vector") -(%make-vector s32 Int16Array "signed 32-bit integer vector") -(%make-vector f32 Float32Array "32-bit IEEE floating point number vector") -(%make-vector f64 Float64Array "64-bit IEEE floating point number vector") -(define (list-match? predicate list) "(list-match? predicate list)\u000A\u000AFunction check if consecutive elements of the list match the predicate function." (typecheck "list-match?" predicate #("function" "macro")) (typecheck "list-match?" list "pair") (or (or (null? list) (null? (cdr list))) (and (predicate (car list) (cadr list)) (list-match? predicate (cdr list))))) -(define (symbol=? . args) "(symbol=? s1 s2 ...)\u000A\u000AFunction check if each value is symbol and it's the same acording to string=? predicate." (list-match? (lambda (a b) (and (symbol? a) (symbol? b) (equal? a b))) args)) -(define (values-ref values n) "(values-ref values n)\u000A\u000AFunction return n value of values object which is result of value function." (typecheck "values-ref" values "values" 1) (typecheck "values-ref" n "number" 1) (--> values (valueOf) n)) +(define open-output-file (let ((open)) (lambda (filename) "(open-output-file filename)\u000A\u000AFunction that opens file and return port that can be used for writing. If file\u000Aexists it will throw an Error." (typecheck "open-output-file" filename "string") (if (not (procedure? open)) (set! open (%fs-promisify-proc (quote open) "open-output-file"))) (if (file-exists? filename) (throw (new Error "open-output-file: file exists")) (lips.OutputFilePort filename (open filename "w")))))) +(define (scheme-report-environment version) "(scheme-report-environment version)\u000A\u000AReturns new Environment object for given Scheme Spec version.\u000AOnly argument 5 is supported that create environment for R5RS." (typecheck "scheme-report-environment" version "number") (case version ((5) (%make-env "R5RS" * + - / < <= = > >= abs acos and angle append apply asin assoc assq assv atan begin boolean? caaaar caaadr caaar caadar caaddr caadr caar cadaar cadadr cadar caddar cadddr caddr cadr call-with-current-continuation call-with-input-file call-with-output-file call-with-values car case cdaaar cdaadr cdaar cdadar cdaddr cdadr cdar cddaar cddadr cddar cdddar cddddr cdddr cddr cdr ceiling char->integer char-alphabetic? char-ci<=? char-ci<? char-ci=? char-ci>=? char-ci>? char-downcase char-lower-case? char-numeric? char-ready? char-upcase char-upper-case? char-whitespace? char<=? char<? char=? char>=? char>? char? close-input-port close-output-port complex? cond cons cos current-input-port current-output-port define define-syntax delay denominator display do dynamic-wind eof-object? eq? equal? eqv? eval even? exact->inexact exact? exp expt floor for-each force gcd if imag-part inexact->exact inexact? input-port? integer->char integer? interaction-environment lambda lcm length let let* let-syntax letrec letrec-syntax list list->string list->vector list-ref list-tail list? load log magnitude make-polar make-rectangular make-string make-vector map max member memq memv min modulo negative? newline not null-environment null? number->string number? numerator odd? open-input-file open-output-file or output-port? pair? peek-char positive? procedure? quasiquote quote quotient rational? rationalize read read-char real-part real? remainder reverse round scheme-report-environment set! set-car! set-cdr! sin sqrt string string->list string->number string->symbol string-append string-ci<=? string-ci<? string-ci=? string-ci>=? string-ci>? string-copy string-fill! string-length string-ref string-set! string<=? string<? string=? string>=? string>? string? substring symbol->string symbol? tan truncate values vector vector->list vector-fill! vector-length vector-ref vector-set! vector? with-input-from-file with-output-to-file write write-char zero?)) ((7) (throw (new Error "not yet implemented"))) (else (throw (new Error (string-append "scheme-report-environment: version " (number->string version) " not supported")))))) +(define-macro (%make-vector prefix type help) "(%make-vector prefix type help)\u000A\u000AMega-helper macro that creates a list of functions for single byte vectors\u000Abased on typed arrays from JavaScript." (letrec ((prefix-str (symbol->string prefix)) (type-str (symbol->string type)) (l-type (--> type-str (toLowerCase))) (static (lambda (name) (string->symbol (format "~a.~a" type-str name)))) (TypedArray.from (static "from")) (fn-name (lambda (str) (string->symbol (format str prefix-str)))) (type-vector (fn-name "~avector")) (make-vector (fn-name "make-~avector")) (vector? (fn-name "~avector?")) (vector-in-range? (fn-name "%~avector-in-range?")) (vector-ref (fn-name "~avector-ref")) (repr-str (format "#~a" prefix-str)) (vector-length (fn-name "~avector-length")) (vector->list (fn-name "~avector->list")) (vector-set! (fn-name "~avector-set!")) (list->tvector (fn-name "list->~avector")) (vector->tvector (fn-name "vector->~avector"))) (quasiquote (begin (define ((unquote type-vector) . args) (unquote (format "(~a v1 v2 ...)\u000A\u000ACreate ~a from give arguments." type-vector help)) ((unquote TypedArray.from) (list->vector args))) (define ((unquote vector-length) v) (unquote (format "(~a v)\u000A\u000Areturn length of ~a." vector-length help)) (typecheck (unquote (symbol->string vector-length)) v (unquote l-type)) v.length) (define ((unquote make-vector) k . fill) (unquote (format "(~a k fill)\u000A\u000AAllocate new ~a of length k, with optional initial values." make-vector help)) (let ((v (new (unquote type) k))) (if (not (null? fill)) (--> v (fill (car fill)))) v)) (define ((unquote vector?) x) (unquote (format "(~a x)\u000A\u000AReturns #t of argument is ~a otherwise it return #f." vector? help)) (and (object? x) (equal? (. x (quote constructor)) (unquote type)))) (define ((unquote vector-in-range?) vector k) (unquote (format "(~a vector k)\u000A\u000AFunction that tests if index is range for ~a." vector-in-range? help)) (typecheck (unquote (symbol->string vector-in-range?)) vector (unquote l-type)) (typecheck (unquote (symbol->string vector-in-range?)) k "number") (let ((len (length vector))) (and (>= k 0) (< k len)))) (define ((unquote vector-ref) vector k) (unquote (format "(~a vector k)\u000A\u000AReturns value from vector at index k. If index is out of range it throw exception." vector-ref help)) (typecheck (unquote (symbol->string vector-ref)) vector (unquote l-type)) (typecheck (unquote (symbol->string vector-ref)) k "number") (if (not ((unquote vector-in-range?) vector k)) (throw (new Error (unquote (format "~a index out of range" vector-ref)))) (. vector k))) (define ((unquote vector->list) vector) (typecheck (unquote (symbol->string vector->list)) vector (unquote l-type)) (vector->list (Array.from vector))) (define ((unquote vector-set!) vector k v) (unquote (format "(~a vector k)\u000A\u000AFunction set value of ~a at index k. If index is out of range it throw exception." vector-set! help)) (typecheck (unquote (symbol->string vector-set!)) vector (unquote l-type)) (typecheck (unquote (symbol->string vector-set!)) k "number") (if (not ((unquote vector-in-range?) vector k)) (throw (new Error (unquote (format "~a index out of range" vector-set!)))) (set-obj! vector k v))) (define ((unquote list->tvector) lst) (typecheck (unquote (symbol->string list->tvector)) lst "pair") (apply (unquote vector) lst)) (define ((unquote vector->tvector) vector) (typecheck (unquote (symbol->string vector->tvector)) vector "array") ((unquote TypedArray.from) vector)) (set-special! (unquote repr-str) (quote (unquote type-vector)) lips.specials.SPLICE) (set-repr! (unquote type) (lambda (x _quote) (string-append (unquote repr-str) (repr ((unquote vector->list) x) _quote)))))))) +(%make-vector u8 Uint8Array "unsigned 8-bit integer vector (C unsigned char)") +(%make-vector s8 Int8Array "signed 8-bit integer vector (C signed char)") +(%make-vector u16 Uint16Array "unsigned 16-bit integer vector (C unsigned short)") +(%make-vector s16 Int16Array "signed 16-bit integer vector (C short)") +(%make-vector u32 Uint32Array "unsigned 32-bit integer vector (C int)") +(%make-vector s32 Int32Array "signed 32-bit integer vector (C unsigned int)") +(%make-vector f32 Float32Array "32-bit IEEE-754 floating point number vector (C float)") +(%make-vector f64 Float64Array "64-bit IEEE-754 floating point number vector (C double)") +(define (list-match? predicate list) "(list-match? predicate list)\u000A\u000AChecks if consecutive elements of the list match the predicate function." (typecheck "list-match?" predicate #("function" "macro")) (typecheck "list-match?" list "pair") (or (or (null? list) (null? (cdr list))) (and (predicate (car list) (cadr list)) (list-match? predicate (cdr list))))) +(define (symbol=? . args) "(symbol=? s1 s2 ...)\u000A\u000AChecks if each value is symbol and it's the same according to string=? predicate." (list-match? (lambda (a b) (and (symbol? a) (symbol? b) (equal? a b))) args)) +(define (values-ref values n) "(values-ref values n)\u000A\u000AReturns n value of values object which is result of value function." (typecheck "values-ref" values "values" 1) (typecheck "values-ref" n "number" 1) (--> values (valueOf) n)) (define-syntax let-values (syntax-rules () ((_ ()) ()) ((_ () body ...) (begin body ...)) ((_ (((x ...) values) ...) body ...) (apply (lambda (x ... ...) body ...) (vector->list (apply vector-append (map (lambda (arg) ((. arg "valueOf"))) (list values ...))))))) "(let-values binding body ...)\u000A\u000AThe macro work similar to let but variable is list of values and value\u000Aneed to evaluate to result of calling values.") -(define (vector-append . args) "(vector-append v1 v2 ...)\u000A\u000AFunction return new vector by combining it's arguments that should be vectors." (if (null? args) (vector) (begin (typecheck "vector-append" (car args) "array") (--> (car args) (concat (apply vector-append (cdr args))))))) -(define-macro (%range-function spec . body) "(%range-function spec . body)\u000A\u000AMacro that creates R7RS vector functions that have range start end." (let* ((name (car spec)) (name-str (symbol->string name)) (args (append (cdr spec) (quote rest)))) (quasiquote (define ((unquote name) (unquote-splicing args)) (unquote (if (string? (car body)) (car body))) (let ((start (if (null? rest) 0 (car rest))) (end (if (or (null? rest) (null? (cdr rest))) (. (unquote (car args)) (quote length)) (cadr rest)))) (typecheck (unquote name-str) start "number") (typecheck (unquote name-str) end "number") (unquote-splicing (if (string? (car body)) (cdr body) body))))))) -(%range-function (vector->list vector) "(vector->list vector)\u000A(vector->list vector start)\u000A(vector->list vector start end)\u000A\u000AFunction copy given range of vector to list. If no start is specified it use\u000Astart of the vector, if no end is specified it convert to the end of the vector." (typecheck "vector->list" vector "array") (array->list (vector.slice start end))) -(%range-function (string->vector string) "(string->list string)\u000A(string->list string start)\u000A(string->list string start end)\u000A\u000AFunction copy given range of string to list. If no start is specified it use\u000Astart of the string, if no end is specified it convert to the end of the string." (typecheck "string->vector" string "string") (--> (string.substring start end) (split "") (map (unary lips.LCharacter)))) -(%range-function (vector->string vector) "(vector->string vector)\u000A(vector->string vector start)\u000A(vector->string vector start end)\u000A\u000AFunction return new string created from vector of characters in given range.\u000AIf no start is given it create string from 0, if no end is given it return\u000Astring to the end." (typecheck "vector->string" vector "array") (--> vector (slice start end) (map (lambda (char) (char.valueOf))) (join ""))) +(define (vector-append . args) "(vector-append v1 v2 ...)\u000A\u000AReturns new vector by combining it's arguments that should be vectors." (if (null? args) (vector) (begin (typecheck "vector-append" (car args) "array") (--> (car args) (concat (apply vector-append (cdr args))))))) +(define-macro (%range-function spec . body) "(%range-function spec . body)\u000A\u000ACreates R7RS vector functions that have range start end." (let* ((name (car spec)) (name-str (symbol->string name)) (args (append (cdr spec) (quote rest)))) (quasiquote (define ((unquote name) (unquote-splicing args)) (unquote (if (string? (car body)) (car body))) (let ((start (if (null? rest) 0 (car rest))) (end (if (or (null? rest) (null? (cdr rest))) (. (unquote (car args)) (quote length)) (cadr rest)))) (typecheck (unquote name-str) start "number") (typecheck (unquote name-str) end "number") (unquote-splicing (if (string? (car body)) (cdr body) body))))))) +(%range-function (vector->list vector) "(vector->list vector)\u000A(vector->list vector start)\u000A(vector->list vector start end)\u000A\u000AFunction that copies given range of vector to list. If no start is specified it use\u000Astart of the vector, if no end is specified it convert to the end of the vector." (typecheck "vector->list" vector "array") (array->list (vector.slice start end))) +(%range-function (string->vector string) "(string->list string)\u000A(string->list string start)\u000A(string->list string start end)\u000A\u000AFunction that copies given range of string to list. If no start is specified it use\u000Astart of the string, if no end is specified it convert to the end of the string." (typecheck "string->vector" string "string") (--> (string.substring start end) (split "") (map (unary lips.LCharacter)))) +(%range-function (vector->string vector) "(vector->string vector)\u000A(vector->string vector start)\u000A(vector->string vector start end)\u000A\u000AReturns new string created from vector of characters in given range.\u000AIf no start is given it create string from 0, if no end is given it return\u000Astring to the end." (typecheck "vector->string" vector "array") (--> vector (slice start end) (map (lambda (char) (char.valueOf))) (join ""))) (%range-function (vector-fill! vector fill) "(vector-fill! vector fill)\u000A(vector-fill! vector fill start)\u000A(vector-fill! vector fill start end)\u000A\u000AFill vector with a given value in given range. If start is not given is start\u000Aat 0. If end is not given it fill till the end if the vector." (typecheck "vector->fill!" vector "array") (let recur ((n (- end start))) (if (>= n start) (begin (set-obj! vector n fill) (recur (- n 1)))))) (define-syntax let*-values (syntax-rules () ((_ ()) ()) ((_ () body ...) (begin body ...)) ((_ ((bind values) rest ...) . body) (apply (lambda bind (let*-values (rest ...) . body)) (vector->list ((. values "valueOf")))))) "(let*-values binding body ...)\u000A\u000AThe macro work similar to let* but variable is list of values and value\u000Aneed to evaluate to result of calling values.") (define (quotient&remainder x y) (values (quotient x y) (remainder x y))) @@ -290,20 +296,20 @@ (define (truncate-quotient x y) (quotient x y)) (define (truncate-remainder x y) (remainder x y)) (define-syntax case-lambda (syntax-rules () ((case-lambda (params body0 ...) ...) (lambda args (let ((len (length args))) (letrec-syntax ((cl (syntax-rules ::: () ((cl) (error "no matching clause")) ((cl ((p :::) . body) . rest) (if (= len (length (quote (p :::)))) (apply (lambda (p :::) . body) args) (cl . rest))) ((cl ((p ::: . tail) . body) . rest) (if (>= len (length (quote (p :::)))) (apply (lambda (p ::: . tail) . body) args) (cl . rest)))))) (cl (params body0 ...) ...)))))) "(case-lambda expr ...)\u000A\u000AMacro create new function with different version of the function depend on\u000Anumber of arguments. Each expression is similar to single lambda.\u000A\u000Ae.g.:\u000A\u000A (define sum\u000A (case-lambda\u000A ((x) x)\u000A ((x y) (+ x y))\u000A ((x y z) (+ x y z))))\u000A\u000A (sum 1)\u000A (sum 1 2)\u000A (sum 1 2 3)\u000A\u000AMore arguments will give error.") -(define (boolean=? . args) "(boolean=? b1 b2 ...)\u000A\u000AFunction check if all arguments are boolean and if they are the same." (if (< (length args) 2) (error "boolean=?: too few arguments") (reduce (lambda (acc item) (and (boolean? item) (eq? acc item))) (car args) (cdr args)))) -(define (port? x) "(port? x)\u000A\u000AFunction return true of argumet is nput or output port port object." (or (output-port? x) (input-port? x))) +(define (boolean=? . args) "(boolean=? b1 b2 ...)\u000A\u000AChecks if all arguments are boolean and if they are the same." (if (< (length args) 2) (error "boolean=?: too few arguments") (reduce (lambda (acc item) (and (boolean? item) (eq? acc item))) (car args) (cdr args)))) +(define (port? x) "(port? x)\u000A\u000AReturns true if the argument is an input or output port object." (or (output-port? x) (input-port? x))) (define (square x) "(square z)\u000A\u000AReturns the square of z. This is equivalent to (* z z)." (* x x)) -(define-syntax when (syntax-rules () ((when test result1 result2 ...) (if test (begin result1 result2 ...)))) "(when test body ...)\u000A\u000AMacro execute body when test expression is true.") -(define-syntax unless (syntax-rules () ((unless test result1 result2 ...) (if (not test) (begin result1 result2 ...)))) "(unless test body ...)\u000A\u000AMacro execute body when test expression is false.") +(define-syntax when (syntax-rules () ((when test result1 result2 ...) (if test (begin result1 result2 ...)))) "(when test body ...)\u000A\u000AExecutes body when test expression is true.") +(define-syntax unless (syntax-rules () ((unless test result1 result2 ...) (if (not test) (begin result1 result2 ...)))) "(unless test body ...)\u000A\u000AExecutes body when test expression is false.") (define inexact exact->inexact) (define exact inexact->exact) -(define (exact-integer? n) "(exact-integer? n)\u000A\u000AFunction returns #t if z is both exact and an integer; otherwise\u000Areturns #f." (and (integer? n) (exact? n))) -(define (vector-map fn . rest) "(vector-map fn vector1 vector2 ...)\u000A\u000AFunction return new vector from applying function fn to each element\u000Aof the vectors, similar to map for lists." (if (or (= (length rest) 0) (not (every vector? rest))) (error "vector-map: function require at least 1 vector") (let ((len (apply min (map vector-length rest))) (result (vector))) (do ((i 0 (+ i 1))) ((= i len) result) (let* ((args (map (lambda (v) (vector-ref v i)) rest)) (value (apply fn args))) (--> result (push value))))))) -(define (string-map fn . rest) "(string-map fn string1 stringr2 ...)\u000A\u000AFunction return new string from applying function fn to each element\u000Aof the strings, similar to map for lists." (if (or (= (length rest) 0) (not (every string? rest))) (error "string-map: function require at least 1 string") (vector->string (apply vector-map fn (map string->vector rest))))) -(define (dynamic-wind before thunk after) "(dynamic-wind before thunk after)\u000A\u000AFunction accept 3 procedures/lambdas and execute thunk with before and always\u000Aafter even if error accur" (before) (let ((result (try (thunk) (catch (e) (error e))))) (after) result)) +(define (exact-integer? n) "(exact-integer? n)\u000A\u000AReturns #t if z is both exact and an integer; otherwise\u000Areturns #f." (and (integer? n) (exact? n))) +(define (vector-map fn . rest) "(vector-map fn vector1 vector2 ...)\u000A\u000AReturns new vector from applying function fn to each element\u000Aof the vectors, similar to map for lists." (if (or (= (length rest) 0) (not (every vector? rest))) (error "vector-map: function require at least 1 vector") (let ((len (apply min (map vector-length rest))) (result (vector))) (do ((i 0 (+ i 1))) ((= i len) result) (let* ((args (map (lambda (v) (vector-ref v i)) rest)) (value (apply fn args))) (--> result (push value))))))) +(define (string-map fn . rest) "(string-map fn string1 stringr2 ...)\u000A\u000AReturns new string from applying function fn to each element\u000Aof the strings, similar to map for lists." (if (or (= (length rest) 0) (not (every string? rest))) (error "string-map: function require at least 1 string") (vector->string (apply vector-map fn (map string->vector rest))))) +(define (dynamic-wind before thunk after) "(dynamic-wind before thunk after)\u000A\u000AAccepts 3 procedures/lambdas and executes before, then thunk, and \u000Aalways after even if an error occurs in thunk." (before) (let ((result (try (thunk) (catch (e) (after) (error e))))) (after) result)) (define (with-exception-handler handler thunk) "(with-exception-handler handler thunk)\u000A\u000AProcedure call and return value of thunk function, if exception happen\u000Ait call handler procedure." (try (thunk) (catch (e) (handler e)))) -(define-syntax define-values (syntax-rules () ((define-values () expr) (define dummy (call-with-values (lambda () expr) (lambda args #f)))) ((define-values (var) expr) (define var expr)) ((define-values (var0 var1 ... varn) expr) (begin (define var0 (call-with-values (lambda () expr) list)) (define var1 (let ((v (cadr var0))) (set-cdr! var0 (cddr var0)) v)) ... (define varn (let ((v (cadr var0))) (set! var0 (car var0)) v)))) ((define-values (var0 var1 ... . varn) expr) (begin (define var0 (call-with-values (lambda () expr) list)) (define var1 (let ((v (cadr var0))) (set-cdr! var0 (cddr var0)) v)) ... (define varn (let ((v (cdr var0))) (set! var0 (car var0)) v)))) ((define-values var expr) (define var (call-with-values (lambda () expr) list)))) "(define-values (a b ...) expr)\u000A\u000AFunction evaluate expression expr and if it evaluates to result of values\u000Athen it will defined each value as variable like with define.") -(define-macro (include . files) "(include file ...)\u000A\u000AMacro that load at least one file content and insert them into one,\u000Abody expression." (if (null? files) (throw (new Error "include: at least one file path required")) (let ((result (vector)) (env (interaction-environment))) (if (eq? self global) (let* ((fs (require "fs")) (readFile (lambda (file) (new Promise (lambda (resolve reject) (fs.readFile file (lambda (err data) (if (null? err) (resolve (--> data (toString))) (reject err))))))))) (for-each (lambda (file) (let* ((expr (lips.parse (readFile file) env))) (set! result (--> result (concat expr))))) files)) (for-each (lambda (file) (let* ((text (--> (fetch file) (text))) (expr (lips.parse text env))) (set! result (--> result (concat expr))))) files)) (if (> result.length 0) (quasiquote (begin (unquote-splicing (vector->list result)))))))) +(define-syntax define-values (syntax-rules () ((define-values () expr) (define dummy (call-with-values (lambda () expr) (lambda args #f)))) ((define-values (var) expr) (define var expr)) ((define-values (var0 var1 ... warn) expr) (begin (define var0 (call-with-values (lambda () expr) list)) (define var1 (let ((v (cadr var0))) (set-cdr! var0 (cddr var0)) v)) ... (define warn (let ((v (cadr var0))) (set! var0 (car var0)) v)))) ((define-values (var0 var1 ... . warn) expr) (begin (define var0 (call-with-values (lambda () expr) list)) (define var1 (let ((v (cadr var0))) (set-cdr! var0 (cddr var0)) v)) ... (define warn (let ((v (cdr var0))) (set! var0 (car var0)) v)))) ((define-values var expr) (define var (call-with-values (lambda () expr) list)))) "(define-values (a b ...) expr)\u000A\u000AEvaluates expression expr and if it evaluates to result of values\u000Athen it will defined each value as variable like with define.") +(define-macro (include . files) "(include file ...)\u000A\u000ALoad at least one file content and insert them into one,\u000Abody expression." (if (null? files) (throw (new Error "include: at least one file path required")) (let ((result (vector)) (env (interaction-environment))) (if (eq? self global) (let* ((fs (require "fs")) (readFile (lambda (file) (new Promise (lambda (resolve reject) (fs.readFile file (lambda (err data) (if (null? err) (resolve (--> data (toString))) (reject err))))))))) (for-each (lambda (file) (let* ((expr (lips.parse (readFile file) env))) (set! result (--> result (concat expr))))) files)) (for-each (lambda (file) (let* ((text (--> (fetch file) (text))) (expr (lips.parse text env))) (set! result (--> result (concat expr))))) files)) (if (> result.length 0) (quasiquote (begin (unquote-splicing (vector->list result)))))))) (define-syntax syntax-error (syntax-rules () ((_ "step" arg ...) (join " " (vector->list (vector (repr arg) ...)))) ((_ message arg ...) (error (format "~a ~a" message (_ "step" arg ...)))))) (define-syntax cond-expand (syntax-rules (and or not else r7rs srfi-0 srfi-2 srfi-4 srfi-6 srfi-10 srfi-22 srfi-23 srfi-46 srfi-176 lips complex full-unicode ieee-float ratios exact-complex full-numeric-tower) ((cond-expand) (syntax-error "Unfulfilled cond-expand")) ((cond-expand (else body ...)) (begin body ...)) ((cond-expand ((and) body ...) more-clauses ...) (begin body ...)) ((cond-expand ((and req1 req2 ...) body ...) more-clauses ...) (cond-expand (req1 (cond-expand ((and req2 ...) body ...) more-clauses ...)) more-clauses ...)) ((cond-expand ((or) body ...) more-clauses ...) (cond-expand more-clauses ...)) ((cond-expand ((or req1 req2 ...) body ...) more-clauses ...) (cond-expand (req1 (begin body ...)) (else (cond-expand ((or req2 ...) body ...) more-clauses ...)))) ((cond-expand ((not req) body ...) more-clauses ...) (cond-expand (req (cond-expand more-clauses ...)) (else body ...))) ((cond-expand (r7rs body ...) more-clauses ...) (begin body ...)) ((cond-expand (srfi-0 body ...) more-clauses ...) (begin body ...)) ((cond-expand (srfi-2 body ...) more-clauses ...) (begin body ...)) ((cond-expand (srfi-4 body ...) more-clauses ...) (begin body ...)) ((cond-expand (srfi-6 body ...) more-clauses ...) (begin body ...)) ((cond-expand (srfi-10 body ...) more-clauses ...) (begin body ...)) ((cond-expand (srfi-22 body ...) more-clauses ...) (begin body ...)) ((cond-expand (srfi-23 body ...) more-clauses ...) (begin body ...)) ((cond-expand (srfi-46 body ...) more-clauses ...) (begin body ...)) ((cond-expand (srfi-176 body ...) more-clauses ...) (begin body ...)) ((cond-expand (lips body ...) more-clauses ...) (begin body ...)) ((cond-expand (complex body ...) more-clauses ...) (begin body ...)) ((cond-expand (full-unicode body ...) more-clauses ...) (begin body ...)) ((cond-expand (ieee-float body ...) more-clauses ...) (begin body ...)) ((cond-expand (ratios body ...) more-clauses ...) (begin body ...)) ((cond-expand (exact-complex body ...) more-clauses ...) (begin body ...)) ((cond-expand (full-numeric-tower body ...) more-clauses ...) (begin body ...)))) (define (features) (quote (r7rs srfi-0 srfi-2 srfi-4 srfi-6 srfi-10 srfi-22 srfi-23 srfi-46 srfi-176 lips complex full-unicode ieee-float ratios exact-complex full-numeric-tower))) @@ -316,19 +322,19 @@ (define bytevector-u8-ref u8vector-ref) (define bytevector-u8-set! u8vector-set!) (define (bytevector-append v1 . rest) "(bytevector-append v1 ...)\u000A\u000ACreate new bytevector u8vector that is created from joining each argument." (typecheck "bytevector-append" v1 "uint8array" 1) (map (lambda (arg) (typecheck "bytevector-append" arg "uint8array")) rest) (if (null? rest) v1 (new Uint8Array (apply vector-append (Array.from v1) (map Array.from rest))))) -(define (bytevector-copy v . rest) "(bytevector-copy v)\u000A(bytevector-copy v start)\u000A(bytevector-copy v start end)\u000A\u000AFunction and return new vector from start to end. If no start and end is provided\u000Awhole vector is copied and returned." (if (null? rest) (new Uint8Array v) (let ((start (car rest))) (if (null? (cdr rest)) (v.slice start) (v.slice start (cadr rest)))))) +(define (bytevector-copy v . rest) "(bytevector-copy v)\u000A(bytevector-copy v start)\u000A(bytevector-copy v start end)\u000A\u000AReturns a new vector from start to end. If no start and end is provided\u000Awhole vector is copied and returned." (if (null? rest) (new Uint8Array v) (let ((start (car rest))) (if (null? (cdr rest)) (v.slice start) (v.slice start (cadr rest)))))) (define (bytevector-copy! to at from . rest) "(bytevector-copy! to at from)\u000A(bytevector-copy! to at from start)\u000A(bytevector-copy! to at from start end)\u000A\u000ACopies the bytes of bytevector from between start and end to bytevector to,\u000Astarting at at." (typecheck "bytevector-copy!" to "uint8array") (typecheck "bytevector-copy!" from "uint8array") (cond ((< at 0) (throw (new Error "bytevector-copy! `at` need to be positive"))) ((> at (bytevector-length to)) (throw (new Error "bytevector-copy! `at` need to be less then byte vector length")))) (let* ((start (if (null? rest) 0 (car rest))) (end (if (or (null? rest) (null? (cdr rest))) (- (bytevector-length from) start) (cadr rest)))) (let ((i at) (j start)) (while (and (< i (bytevector-length to)) (< i (bytevector-length from)) (< j (+ start end))) (bytevector-u8-set! to i (bytevector-u8-ref from j)) (set! i (+ i 1)) (set! j (+ j 1)))))) -(define string->utf8 (let ((encoder (new TextEncoder "utf-8"))) (lambda (string . rest) "(string->utf8 string)\u000A(string->utf8 string start)\u000A(string->utf8 string start end)\u000A\u000AFunction converts string into u8 bytevector using utf8 encoding.\u000AThe start and end is the range of the input string for the conversion." (typecheck "string->utf8" string "string") (if (null? rest) (encoder.encode string) (let* ((start (car rest)) (len (--> (Array.from string) (quote length))) (end (if (null? (cdr rest)) len (cadr rest)))) (encoder.encode (substring string start end))))))) -(define utf8->string (let ((decoder (new TextDecoder "utf-8"))) (lambda (v . rest) "(utf8->string u8vector)\u000A(utf8->string u8vector start)\u000A(utf8->string u8vector start end)\u000A\u000AFunction converts u8 bytevector into string using utf8 encoding.\u000AThe start and end is the range of the input byte vector for the conversion." (typecheck "utf8->string" v "uint8array") (if (null? rest) (decoder.decode v) (let* ((start (car rest)) (len (--> (Array.from string) (quote length))) (end (if (null? (cdr rest)) len (cadr rest)))) (decoder.decode (v.slice start end))))))) -(define (open-input-string string) "(open-input-string string)\u000A\u000AFunction create new string port as input that can be used to\u000Aread S-exressions from this port using `read` function." (typecheck "open-input-string" string "string") (new lips.InputStringPort string (interaction-environment))) -(define (open-output-string) "(open-output-string)\u000A\u000AFunction create new output port that can used to write string into\u000Aand after finish get the whole string using `get-output-string`." (new lips.OutputStringPort repr)) +(define string->utf8 (let ((encoder (new TextEncoder "utf-8"))) (lambda (string . rest) "(string->utf8 string)\u000A(string->utf8 string start)\u000A(string->utf8 string start end)\u000A\u000AConverts string into u8 bytevector using utf8 encoding.\u000AThe start and end is the range of the input string for the conversion." (typecheck "string->utf8" string "string") (if (null? rest) (encoder.encode string) (let* ((start (car rest)) (len (--> (Array.from string) (quote length))) (end (if (null? (cdr rest)) len (cadr rest)))) (encoder.encode (substring string start end))))))) +(define utf8->string (let ((decoder (new TextDecoder "utf-8"))) (lambda (v . rest) "(utf8->string u8vector)\u000A(utf8->string u8vector start)\u000A(utf8->string u8vector start end)\u000A\u000AConverts u8 bytevector into string using utf8 encoding.\u000AThe start and end is the range of the input byte vector for the conversion." (typecheck "utf8->string" v "uint8array") (if (null? rest) (decoder.decode v) (let* ((start (car rest)) (len (--> (Array.from string) (quote length))) (end (if (null? (cdr rest)) len (cadr rest)))) (decoder.decode (v.slice start end))))))) +(define (open-input-string string) "(open-input-string string)\u000A\u000ACreates new string port as input that can be used to\u000Aread S-exressions from this port using `read` function." (typecheck "open-input-string" string "string") (new lips.InputStringPort string (interaction-environment))) +(define (open-output-string) "(open-output-string)\u000A\u000ACreates new output port that can used to write string into\u000Aand after finish get the whole string using `get-output-string`." (new lips.OutputStringPort repr)) (define (open-output-bytevector) "(open-output-bytevector)\u000A\u000ACreate new output port that can be used to write binary data.\u000AAfter done with the data the output buffer can be obtained by calling\u000A`get-output-bytevector` function." (new lips.OutputByteVectorPort)) -(define (get-output-bytevector port) "(get-output-string port)\u000A\u000AFunction get full string from string port. If nothing was wrote\u000Ato given port it will return empty string." (if (not (instanceof lips.OutputByteVectorPort port)) (throw (new Error (string-append "get-output-bytevector: expecting output-bytevector-port get " (type port)))) (port.valueOf))) -(define (get-output-string port) "(get-output-string port)\u000A\u000AFunction get full string from string port. If nothing was wrote\u000Ato given port it will return empty string." (if (not (instanceof lips.OutputStringPort port)) (throw (new Error (string-append "get-output-string: expecting output-string-port get " (type port)))) (port.valueOf))) +(define (get-output-bytevector port) "(get-output-string port)\u000A\u000AGets full string from string port. If nothing was wrote\u000Ato given port it will return empty string." (if (not (instanceof lips.OutputByteVectorPort port)) (throw (new Error (string-append "get-output-bytevector: expecting output-bytevector-port get " (type port)))) (port.valueOf))) +(define (get-output-string port) "(get-output-string port)\u000A\u000AGets full string from string port. If nothing was wrote\u000Ato given port it will return empty string." (if (not (instanceof lips.OutputStringPort port)) (throw (new Error (string-append "get-output-string: expecting output-string-port get " (type port)))) (port.valueOf))) (define (open-input-bytevector bytevector) "(open-input-bytevector bytevector)\u000A\u000ACreate new input binary port with given bytevector" (typecheck "open-input-bytevector" bytevector "uint8array") (new lips.InputByteVectorPort bytevector)) -(define (open-binary-input-file filename) "(open-binary-input-file filename)\u000A\u000AFunction return new Input Binary Port with given filename. In Browser\u000Auser need to provide global fs variable that is instance of FS interface." (let ((u8vector (buffer->u8vector (%read-binary-file filename)))) (new lips.InputBinaryFilePort u8vector filename))) -(define (binary-port? port) "(binary-port? port)\u000A\u000AFunction test if argument is binary port." (and (port? port) (eq? port.__type__ (Symbol.for "binary")))) -(define (textual-port? port) "(textual-port? port)\u000A\u000AFunction test if argument is string port." (and (port? port) (eq? port.__type__ (Symbol.for "text")))) +(define (open-binary-input-file filename) "(open-binary-input-file filename)\u000A\u000AReturns new Input Binary Port with given filename. In Browser\u000Auser need to provide global fs variable that is instance of FS interface." (let ((u8vector (buffer->u8vector (%read-binary-file filename)))) (new lips.InputBinaryFilePort u8vector filename))) +(define (binary-port? port) "(binary-port? port)\u000A\u000AFunction that tests if argument is binary port." (and (port? port) (eq? port.__type__ (Symbol.for "binary")))) +(define (textual-port? port) "(textual-port? port)\u000A\u000AFunction that tests if argument is string port." (and (port? port) (eq? port.__type__ (Symbol.for "text")))) (define-macro (%define-binary-input-lambda name docstring fn) (let ((port (gensym)) (name-str (symbol->string name))) (quasiquote (define ((unquote name) . rest) (unquote docstring) (let (((unquote port) (if (null? rest) (current-input-port) (car rest)))) (typecheck (unquote name-str) (unquote port) "input-port") (if (not (binary-port? (unquote port))) (throw (new Error (string-append (unquote name-str) " invalid port. Binary port required."))) ((unquote fn) (unquote port)))))))) (%define-binary-input-lambda peek-u8 "(peek-u8)\u000A(peek-u8 port)\u000A\u000AReturn next byte from input-binary port. If there are no more bytes\u000Ait return eof object." (lambda (port) (port.peek_u8))) (%define-binary-input-lambda read-u8 "(read-u8)\u000A(read-u8 port)\u000A\u000ARead next byte from input-binary port. If there are no more bytes\u000Ait return eof object." (lambda (port) (port.read_u8))) @@ -337,23 +343,23 @@ (define-macro (%define-binary-output-lambda name type docstring fn) (let ((port (gensym (quote port))) (data (gensym (quote data))) (name-str (symbol->string name))) (quasiquote (define ((unquote name) (unquote data) . rest) (unquote docstring) (let (((unquote port) (if (null? rest) (current-output-port) (car rest)))) (typecheck (unquote name-str) (unquote port) "output-port") (typecheck (unquote name-str) (unquote data) (unquote type)) (if (not (binary-port? (unquote port))) (throw (new Error (string-append (unquote name-str) " invalid port. Binary port required."))) ((unquote fn) (unquote data) (unquote port)))))))) (%define-binary-output-lambda write-u8 "number" "(write-u8 byte)\u000A(write-u8 byte port)\u000A\u000AWrite byte into binary output port." (lambda (data port) (port.write_u8 data))) (%define-binary-output-lambda write-bytevector "uint8array" "(write-bytevector bytevector)\u000A(write-bytevector bytevector port)\u000A\u000AWrite byte vector into binary output port." (lambda (data port) (port.write_u8_vector data))) -(define open-binary-output-file (let ((open)) (lambda (filename) "(open-binary-output-file filename)\u000A\u000AFunction open file and return port that can be used for writing. If file\u000Aexists it will throw an Error." (typecheck "open-output-file" filename "string") (if (not (procedure? open)) (set! open (%fs-promisify-proc (quote open) "open-binary-output-file"))) (if (file-exists? filename) (throw (new Error "open-binary-output-file: file exists")) (lips.OutputBinaryFilePort filename (open filename "w")))))) -(define (read-bytevector! vector . rest) "(read-bytevector! bytevector)\u000A(read-bytevector! bytevector port)\u000A(read-bytevector! bytevector port start)\u000A(read-bytevector! bytevector port start end)\u000A\u000AFunction read next bytes from binary input port and write them into byte vector.\u000Aif not start is specified it start to write into 0 position of the vector until\u000Athe end or end the vector if no end is specified." (typecheck "read-bytevector!" vector "uint8array") (let ((port (if (null? rest) (current-input-port) (car rest))) (start (if (or (null? rest) (null? (cdr rest))) 0 (cadr rest))) (end (if (or (null? rest) (null? (cdr rest)) (null? (cddr rest))) (bytevector-length vector) (caddr rest)))) (typecheck "read-bytevector!" port "input-port") (if (not (binary-port? port)) (throw (new Error "read-bytevector!: invalid port. Binary port required.")) (begin (typecheck "read-bytevector!" start "number") (typecheck "read-bytevector!" end "number") (let ((out (read-bytevector (- end start) port))) (vector.set out start end)))))) -(define delete-file (let ((unlink #f)) (lambda (filename) "(delete-file filename)\u000A\u000AFunction delete the file of given name." (typecheck "delete-file" filename "string") (if (not (procedure? unlink)) (set! unlink (%fs-promisify-proc (quote unlink) "delete-file"))) (unlink filename)))) +(define open-binary-output-file (let ((open)) (lambda (filename) "(open-binary-output-file filename)\u000A\u000AOpens file and return port that can be used for writing. If file\u000Aexists it will throw an Error." (typecheck "open-output-file" filename "string") (if (not (procedure? open)) (set! open (%fs-promisify-proc (quote open) "open-binary-output-file"))) (if (file-exists? filename) (throw (new Error "open-binary-output-file: file exists")) (lips.OutputBinaryFilePort filename (open filename "w")))))) +(define (read-bytevector! vector . rest) "(read-bytevector! bytevector)\u000A(read-bytevector! bytevector port)\u000A(read-bytevector! bytevector port start)\u000A(read-bytevector! bytevector port start end)\u000A\u000AReads next bytes from binary input port and write them into byte vector.\u000Aif not start is specified it start to write into 0 position of the vector until\u000Athe end or end the vector if no end is specified." (typecheck "read-bytevector!" vector "uint8array") (let ((port (if (null? rest) (current-input-port) (car rest))) (start (if (or (null? rest) (null? (cdr rest))) 0 (cadr rest))) (end (if (or (null? rest) (null? (cdr rest)) (null? (cddr rest))) (bytevector-length vector) (caddr rest)))) (typecheck "read-bytevector!" port "input-port") (if (not (binary-port? port)) (throw (new Error "read-bytevector!: invalid port. Binary port required.")) (begin (typecheck "read-bytevector!" start "number") (typecheck "read-bytevector!" end "number") (let ((out (read-bytevector (- end start) port))) (vector.set out start end)))))) +(define delete-file (let ((unlink #f)) (lambda (filename) "(delete-file filename)\u000A\u000ADeletes the file of given name." (typecheck "delete-file" filename "string") (if (not (procedure? unlink)) (set! unlink (%fs-promisify-proc (quote unlink) "delete-file"))) (unlink filename)))) (define (call-with-port port proc) "(call-with-port port proc)\u000A\u000AProc is executed with given port and after it returns, the port is closed." (try (proc port) (finally (if (procedure? port.close) (port.close))))) (define (close-port port) "(close-port port)\u000A\u000AClose input or output port." (typecheck "close-port" port #("input-port" "output-port")) (port.close)) (define (eof-object) "(eof-object)\u000A\u000AProcedure returns eof object that indicate end of the port" lips.eof) -(define (output-port-open? port) "(output-port-open? port)\u000A\u000AFunction check if argument is output-port and if you can write to it." (and (output-port? port) (port.is_open))) -(define (input-port-open? port) "(input-port-open? port)\u000A\u000AFunction check if argument is input-port and if you can read from it." (and (input-port? port) (port.is_open))) -(define (flush-output-port port) "(flush-output-port port)\u000A\u000AFunctio do nothing, flush is not needed in LIPS in both NodeJS and Browser.\u000AThe function is added, so it don't throw exception when using R7RS code." (if #f #f)) +(define (output-port-open? port) "(output-port-open? port)\u000A\u000AChecks if argument is output-port and if you can write to it." (and (output-port? port) (port.is_open))) +(define (input-port-open? port) "(input-port-open? port)\u000A\u000AChecks if argument is input-port and if you can read from it." (and (input-port? port) (port.is_open))) +(define (flush-output-port port) "(flush-output-port port)\u000A\u000AFunction do nothing, flush is not needed in LIPS in both NodeJS and Browser.\u000AThe function is added, so it don't throw exception when using R7RS code." (if #f #f)) (define (write-string string . rest) "(write-string string)\u000A(write-string string port)\u000A(write-string string port start)\u000A(write-string string port start end)\u000A\u000AWrites the characters of string from start to end in left-toright order\u000Ato the textual output port." (typecheck "write-string" string "string") (let ((port (if (null? rest) (current-output-port) (car rest))) (start (if (or (null? rest) (null? (cdr rest))) 0 (cadr rest))) (end (if (or (null? rest) (null? (cdr rest)) (null? (cddr rest))) (string-length string) (caddr rest)))) (typecheck "write-string" port "output-port") (typecheck "write-string" start "number") (typecheck "write-string" end "number") (display (substring string start end) port))) (define (write-char char . rest) "(write-char string)\u000A(write-char string port)\u000A\u000AWrites the character char (not an external representation of the character)\u000Ato the given textual output port and returns an unspecified value." (typecheck "write-char" char "character") (let ((port (if (null? rest) (current-output-port) (car rest)))) (typecheck "write-char" port "output-port") (display (string char) port))) (define (read-string k . rest) "(read-string k)\u000A(read-string k port)\u000A\u000AReads the next k characters, or as many as are available\u000Abefore the end of file, from the textual input port into a\u000Anewly allocated string in left-to-right order and returns the\u000Astring. If no characters are available before the end of file,\u000Aan end-of-file object is returned." (typecheck "read-string" k "number") (let ((port (if (null? rest) (current-input-port) (car rest)))) (typecheck "read-string" port "input-port") (port.read_string k))) (define (list-copy obj) "(list-copy obj)\u000A\u000ACopy the object passed as argument but only if it's list. The car elements\u000Aof the list are not copied, they are passed as is." (typecheck "list-copy" obj #("pair" "nil")) (if (null? obj) obj (obj.clone #f))) (define-macro (define-record-type name constructor pred . fields) "(define-record-type name constructor pred . fields)\u000A\u000AMacro for defining records. Example of usage:\u000A\u000A(define-record-type <pare>\u000A (kons x y)\u000A pare?\u000A (x kar set-kar!)\u000A (y kdr set-kdr!))\u000A\u000A(define p (kons 1 2))\u000A(print (kar p))\u000A;; 1\u000A(set-kdr! p 3)\u000A(print (kdr p))\u000A;; 3" (let ((obj-name (gensym (quote obj-name))) (value-name (gensym (quote value-name)))) (quasiquote (begin (define (unquote name) (class Object (constructor (lambda (self (unquote-splicing (cdr constructor))) (unquote-splicing (map (lambda (field) (let* ((name (symbol->string field)) (prop (string-append "self." name))) (quasiquote (set! (unquote (string->symbol prop)) (unquote field))))) (cdr constructor))))) (toType (lambda (self) "record")) (toString (lambda (self) (string-append "#<" (unquote (symbol->string name)) ">"))))) (define (unquote constructor) (new (unquote name) (unquote-splicing (cdr constructor)))) (define ((unquote pred) obj) (instanceof (unquote name) obj)) (unquote-splicing (map (lambda (field) (let ((prop-name (car field)) (get (cadr field)) (set (if (null? (cddr field)) () (caddr field)))) (quasiquote (begin (define ((unquote get) (unquote obj-name)) (typecheck (unquote (symbol->string get)) (unquote obj-name) "record") (if (not ((unquote pred) (unquote obj-name))) (throw (new Error (unquote (string-append "object is not record of type " (symbol->string name))))) (. (unquote obj-name) (quote (unquote prop-name))))) (unquote (if (not (null? set)) (quasiquote (define ((unquote set) (unquote obj-name) (unquote value-name)) (typecheck (unquote (symbol->string get)) (unquote obj-name) "record") (if (not ((unquote pred) (unquote obj-name))) (throw (new Error (unquote (string-append "object is not record of type " (symbol->string name))))) (set-obj! (unquote obj-name) (quote (unquote prop-name)) (unquote value-name))))))))))) fields)))))) -(define (nan? x) "(nan? x)\u000A\u000AFunction check if argument x is Not a Number (NaN) value." (and (number? x) (or (x.isNaN) (and (%number-type "complex" x) (or (nan? (real-part x)) (nan? (imag-part x))))))) -(define (infinite? x) "(infinite? x)\u000A\u000AFunction check if value is infinite." (or (eq? x Number.NEGATIVE_INFINITY) (eq? x Number.POSITIVE_INFINITY) (and (number? x) (not (eq? x +nan.0)) (%number-type "complex" x) (or (infinite? (real-part x)) (infinite? (imag-part x)))))) -(define (finite? x) "(finite? x)\u000A\u000AFunction check if value is finite." (not (infinite? x))) +(define (nan? x) "(nan? x)\u000A\u000AChecks if argument x is Not a Number (NaN) value." (and (number? x) (or (x.isNaN) (and (%number-type "complex" x) (or (nan? (real-part x)) (nan? (imag-part x))))))) +(define (infinite? x) "(infinite? x)\u000A\u000AChecks if value is infinite." (or (eq? x Number.NEGATIVE_INFINITY) (eq? x Number.POSITIVE_INFINITY) (and (number? x) (not (eq? x +nan.0)) (%number-type "complex" x) (or (infinite? (real-part x)) (infinite? (imag-part x)))))) +(define (finite? x) "(finite? x)\u000A\u000AChecks if value is finite." (not (infinite? x))) (define-class %Library Object (constructor (lambda (self name) (set! self.__namespace__ &()) (set! self.__name__ name))) (append (lambda (self namespace env) (if (environment? (. self.__namespace__ namespace)) (throw (new Error (string-append "namespace " namespace " already exists in library " self.__name__))) (set-obj! self.__namespace__ namespace env)))) (env (lambda (self namespace) (let ((env (. self.__namespace__ namespace))) (if (not (environment? env)) (throw (new Error (string-append "namespace " namespace " sdon't exists"))) env)))) (get (lambda (self namespace name) (--> (self.env namespace) (get name)))) (set (lambda (self namespace name value) (--> (self.env namespace) (set name value)))) (toString (lambda (self) (string-append "#<Library(" self.__name__ ")>")))) (define (%import-name library namespace names) (quasiquote (begin (unquote-splicing (map (lambda (name) (quasiquote (define (unquote name) (--> (unquote library) (get (quote (unquote namespace)) (quote (unquote name))))))) names))))) (define-macro (import . specs) "(import (library namespace))\u000A(import (only (library namespace) name1 name2))\u000A\u000AMacro for importing names from library." (let ((parent (current-environment))) (quasiquote (begin (unquote-splicing (map (lambda (spec) (if (not (pair? spec)) (throw (new Error "import: invalid syntax")) (cond ((symbol=? (car spec) (quote only)) (let ((lib (caadr spec)) (namespace (caaddr spec))) (if (pair? (cadr spec)) (%import-name (unquote lib) (quote (unquote namespace)) (quote (unquote (caddr spec)))) (throw (new Error "import: invalid syntax"))))) (else (let* ((lib-name (car spec)) (lib (parent.get lib-name)) (namespace (cadr spec))) (%import-name lib-name namespace (env (lib.env namespace)))))))) specs)))))) @@ -361,15 +367,15 @@ (define (%export module namespace specs) (quasiquote (begin (unquote-splicing (map (lambda (expr) (cond ((symbol? expr) (quasiquote (--> (unquote module) (set (quote (unquote namespace)) (quote (unquote expr)) (unquote expr))))) ((and (pair? expr) (symbol=? (car expr) (quote rename))) (quasiquote (--> (unquote module) (set (quote (unquote namespace)) (quote (unquote (cadr expr))) (unquote (caddr expr)))))))) specs))))) (define-macro (define-library spec . body) "(define-library (library (name namespace) . body)\u000A\u000AMacro for defining modules inside you can use define to create functions.\u000AAnd use export name to add that name to defined environment." (let ((parent (. (current-environment) (quote __parent__))) (module-var (gensym)) (namespace-var (gensym)) (name (car spec)) (namespace (cadr spec))) (quasiquote (let (((unquote module-var) (new-library (unquote (repr name)) (unquote (repr namespace)))) ((unquote namespace-var) (quote (unquote namespace)))) (define-macro (export . body) (%export (unquote module-var) (unquote namespace-var) body)) (unquote-splicing body) (--> (unquote parent) (set (quote (unquote name)) (unquote module-var))))))) (define-syntax define-library/export (syntax-rules (rename :c) ((_ :c (rename to from)) (print (string-append "export " (symbol->string (quote from)) " ==> " (symbol->string (quote to))))) ((_ :c name) (print (string-append "export " (symbol->string (quote name))))) ((_ x ...) (begin (define-library/export :c x) ...)))) -(define-values (current-directory set-current-directory!) (if (eq? self window) (let ((cwd (string-append location.origin (--> location.pathname (replace #/\/[^/]+$/ "/"))))) (values (lambda () "(current-directory)\u000A\u000AReturn corrent working directory, default it's corrent URL." cwd) (lambda (value) "(set-current-directory! string)\u000A\u000AFunction change current working directory to provided string." (typecheck "set-current-directory!" value "string") (set! cwd value)))) (let ((process (require "process"))) (values (lambda () "(current-directory)\u000A\u000AReturn corrent working directory, default it's path from where\u000Athe script was executed." (string-append (process.cwd) "/")) (lambda (value) "(set-current-directory! string)\u000A\u000AFunction change current working directory to provided string." (typecheck "set-current-directory!" value "string") (process.chdir value)))))) +(define-values (current-directory set-current-directory!) (if (eq? self window) (let ((cwd (string-append location.origin (--> location.pathname (replace #/\/[^/]+$/ "/"))))) (values (lambda () "(current-directory)\u000A\u000AReturn current working directory, default is the current URL." cwd) (lambda (value) "(set-current-directory! string)\u000A\u000AChanges the current working directory to provided string." (typecheck "set-current-directory!" value "string") (set! cwd value)))) (let ((process (require "process"))) (values (lambda () "(current-directory)\u000A\u000AReturns the current working directory, default is the path from where\u000Athe script was executed." (string-append (process.cwd) "/")) (lambda (value) "(set-current-directory! string)\u000A\u000AChanges the current working directory to provided string." (typecheck "set-current-directory!" value "string") (process.chdir value)))))) (define (error message . args) "(error message ...)\u000A\u000AFunction raises error with given message and arguments,\u000Awhich are called invariants." (raise (new lips.Error message (args.to_array)))) -(define (error-object? obj) "(error-object? obj)\u000A\u000AFunction check if object is of Error object throwed by error function." (instanceof lips.Error obj)) +(define (error-object? obj) "(error-object? obj)\u000A\u000AChecks if object is of Error object thrown by error function." (instanceof lips.Error obj)) (define (error-object-message obj) "(error-object-message error-object)\u000A\u000AReturns the message encapsulated by error-object." (if (error-object? obj) obj.message)) (define (error-object-irritants obj) "(error-object-irritants error-object)\u000A\u000AReturns a list of the irritants encapsulated by error-object." (if (error-object? obj) obj.args)) -(define (get-environment-variables) "(get-environment-variables)\u000A\u000AFunction returns all variables as alist. This funtion throws exception\u000Awhen called in browser." (if (eq? self window) (throw "get-environment-variables: Node.js only funtion") (object->alist process.env))) -(define (get-environment-variable name) "(get-environment-variable name)\u000A\u000AFunction return given environment variable. This funtion throws exception\u000Awhen called in browser." (. process.env name)) +(define (get-environment-variables) "(get-environment-variables)\u000A\u000AReturns all process environment variables as an alist. This function throws exception\u000Awhen called in browser." (if (eq? self window) (throw "get-environment-variables: Node.js only function") (object->alist process.env))) +(define (get-environment-variable name) "(get-environment-variable name)\u000A\u000AReturns given environment variable. This function throws exception\u000Awhen called in browser." (. process.env name)) (define (current-second) "(current-second)\u000A\u000AFunctionn return exact integer of the seconds since January 1, 1970" (inexact->exact (truncate (/ (+ %%start-jiffy (current-jiffy)) (jiffies-per-second))))) (define %%start-jiffy (truncate (* 1000 (if (eq? self window) performance.timing.navigationStart performance.timeOrigin))) "Constant value that indicates start jiffy of the scheme process.") -(define (current-jiffy) "(current-jiffy)\u000A\u000ARetturn corrent jiffy. In LIPS is jiffy since start of the process.\u000AYou can divide this value by (jiffies-per-second) to get seconds since\u000Astart of the process. And you can add %%start-jiffy to get jiffy since\u000AJanuary 1, 1970." (inexact->exact (truncate (* (performance.now) 1000)))) +(define (current-jiffy) "(current-jiffy)\u000A\u000AReturn current jiffy. In LIPS is jiffy since start of the process.\u000AYou can divide this value by (jiffies-per-second) to get seconds since\u000Astart of the process. And you can add %%start-jiffy to get jiffy since\u000AJanuary 1, 1970." (inexact->exact (truncate (* (performance.now) 1000)))) (define (jiffies-per-second) 1000000) -(let* ((fs (cond ((eq? self global) (require "fs")) ((and (not (null? self.BrowserFS)) (indexed-db?)) (new Promise (lambda (resolve reject) (BrowserFS.configure &(:fs "IndexedDB" :options &()) (lambda (e) (if (null? e) (resolve (BrowserFS.BFSRequire "fs")) (reject e))))))) ((not (null? self.BrowserFS)) (console.warn (string-append "BrowserFS not initilalized " "IndexedDB is not available")) ()))) (Buffer (cond ((eq? self global) self.Buffer) ((not (null? self.BrowserFS)) (. (BrowserFS.BFSRequire "buffer") (quote Buffer)))))) (let ((internal (lips.env.get (quote **internal-env**)))) (if (not (null? Buffer)) (internal.set "Buffer" Buffer)) (if (not (null? fs)) (internal.set "fs" fs)))) +(let* ((fs (cond ((eq? self global) (require "fs")) ((and (not (null? self.BrowserFS)) (indexed-db?)) (new Promise (lambda (resolve reject) (BrowserFS.configure &(:fs "IndexedDB" :options &()) (lambda (e) (if (null? e) (resolve (BrowserFS.BFSRequire "fs")) (reject e))))))) ((not (null? self.BrowserFS)) (console.warn (string-append "BrowserFS is not initialized and " "IndexedDB is not available")) ()))) (Buffer (cond ((eq? self global) self.Buffer) ((not (null? self.BrowserFS)) (. (BrowserFS.BFSRequire "buffer") (quote Buffer)))))) (let ((internal (lips.env.get (quote **internal-env**)))) (if (not (null? Buffer)) (internal.set "Buffer" Buffer)) (if (not (null? fs)) (internal.set "fs" fs)))) diff --git a/dist/std.scm b/dist/std.scm index 2367357f7..9ea1f48b1 100644 --- a/dist/std.scm +++ b/dist/std.scm @@ -22,10 +22,10 @@ ;; ----------------------------------------------------------------------------- (define-macro (let-syntax vars . body) - "(let-syntax ((name fn)) body) + "(let-syntax ((name fn) ...) . body) - Macro works like combination of let and define-syntax. It creaates - local macros and evaluate body in context of those macros. + Works like a combination of let and define-syntax. It creates + local macros and evaluates body in context of those macros. The macro to letrec-syntax is like letrec is to let." `(let ,vars ,@(map (lambda (rule) @@ -35,10 +35,10 @@ ;; ----------------------------------------------------------------------------- (define-macro (letrec-syntax vars . body) - "(letrec-syntax ((name fn)) body) + "(letrec-syntax ((name fn) ...) . body) - Macro works like combination of letrec and define-syntax. It creaates - local macros and evaluate body in context of those macros." + Works like a combination of letrec and define-syntax. It creates + local macros and evaluates the body in context of those macros." `(letrec ,vars ,@(map (lambda (rule) `(typecheck "letrec-syntax" ,(car rule) "syntax")) @@ -49,7 +49,7 @@ (define-macro (define-syntax name expr . rest) "(define-syntax name expression [__doc__]) - Macro define new hygienic macro using syntax-rules with optional documentation" + Defines a new hygienic macro using syntax-rules with optional documentation." (let ((expr-name (gensym "expr-name"))) `(define ,name (let ((,expr-name ,expr)) @@ -61,7 +61,7 @@ (define (quoted-symbol? x) "(quoted-symbol? code) - Helper function that test if value is quoted symbol. To be used in macros + Helper function that tests if value is a quoted symbol. To be used in macros that pass literal code that is transformed by parser. usage: @@ -75,35 +75,46 @@ ;; ----------------------------------------------------------------------------- (define-macro (--> expr . body) - "Helper macro that simplify calling methods on objects. It work with chaining + "Helper macro that simplifies calling methods on objects. It works with chaining usage: (--> ($ \"body\") (css \"color\" \"red\") (on \"click\" (lambda () (display \"click\")))) + (--> document (querySelectorAll \"div\")) + (--> (fetch \"https://jcubic.pl\") (text) (match #/<title>([^<]+)<\\/title>/) 1) + (--> document (querySelectorAll \".cmd-prompt\") 0 'innerHTML (replace #/<(\"[^\"]+\"|[^>])+>/g \"\")) + (--> document.body (style.setProperty \"--color\" \"red\"))" (let ((obj (gensym "obj"))) `(let* ((,obj ,expr)) ,@(map (lambda (code) - (let ((value (gensym "value"))) - `(let* ((,value ,(let ((name (cond ((quoted-symbol? code) (symbol->string (cadr code))) - ((pair? code) (symbol->string (car code))) - (true code)))) - (if (string? name) - `(. ,obj ,@(split "." name)) - `(. ,obj ,name))))) - ,(if (and (pair? code) (not (quoted-symbol? code))) - `(set! ,obj (,value ,@(cdr code))) - `(set! ,obj ,value))))) + (let* ((value (gensym "value")) + (name (cond ((quoted-symbol? code) (symbol->string (cadr code))) + ((pair? code) (symbol->string (car code))) + (true code))) + (accessor (if (string? name) + `(. ,obj ,@(split "." name)) + `(. ,obj ,name))) + (call (and (pair? code) (not (quoted-symbol? code))))) + `(let ((,value ,accessor)) + ,(if call + `(if (not (function? ,value)) + (throw (new Error (string-append "--> " ,(repr name) + " is not a function" + " in expression " + ,(repr `(--> ,expr . ,body))))) + (set! ,obj (,value ,@(cdr code)))) + `(set! ,obj ,value))))) body) ,obj))) @@ -113,8 +124,8 @@ "(define-global var value) (define-global (name . args) body) - Macro that define functions or variables in global context, so they can be used - inside let and get let variables in closure, Useful for universal macros." + Defines functions or variables in the global context, so they can be used + inside let and get let variables in a closure. Useful for universal macros." (if (pair? first) (let ((name (car first))) `(--> lips.env @@ -148,21 +159,21 @@ (define (single list) "(single list) - Function check if argument is list with single element" + Checks if argument is list with one element." (and (pair? list) (not (cdr list)))) ;; ----------------------------------------------------------------------------- (define (iterator? x) "(iterator? x) - Function check if value is JavaScript iterator object" + Checks if value is JavaScript iterator object." (and (object? x) (procedure? (. x Symbol.iterator)))) ;; ----------------------------------------------------------------------------- (define-macro (.. expr) "(.. foo.bar.baz) - Macro that gets value from nested object where argument is comma separated symbol" + Gets the value from a nested object where the argument is a period separated symbol." (if (not (symbol? expr)) expr (let ((parts (split "." (symbol->string expr)))) @@ -177,14 +188,14 @@ (define (gensym-interal symbol) "(gensym-interal symbol) - Parser extension that create new quoted named gensym." + Parser extension that creates a new quoted named gensym." `(quote ,(gensym symbol))) ;; ----------------------------------------------------------------------------- (define (plain-object? x) "(plain-object? x) - Function check if value is plain JavaScript object. Created using object macro." + Checks if value is a plain JavaScript object created using the object macro." ;; here we don't use string=? or equal? because it may not be defined (and (== (--> (type x) (cmp "object")) 0) (eq? (. x 'constructor) Object))) @@ -194,14 +205,14 @@ (lambda (o) "(typed-array? o) - Function test if argumnet is JavaScript typed array (Scheme byte vector)." + Function that tests if the arguments is a JavaScript typed array (Scheme byte vector)." (instanceof TypedArray o)))) ;; ----------------------------------------------------------------------------- (define (symbol->string s) "(symbol->string symbol) - Function convert LIPS symbol to string." + Function that converts a LIPS symbol to a string." (typecheck "symbol->string" s "symbol") (let ((name s.__name__)) (if (string? name) @@ -212,7 +223,7 @@ (define (string->symbol string) "(string->symbol string) - Function convert string to LIPS symbol." + Function that converts a string to a LIPS symbol." (typecheck "string->symbol" string "string") (%as.data (new lips.LSymbol string))) @@ -220,7 +231,7 @@ (define (alist->object alist) "(alist->object alist) - Function convert alist pairs to JavaScript object." + Function that converts alist pairs to a JavaScript object." (if (pair? alist) (alist.to_object) (alist->object (new lips.Pair undefined nil)))) @@ -229,7 +240,7 @@ (define (object->alist object) "(object->alist object) - Function convert JavaScript object to Alist" + Function that converts a JavaScript object to Alist" (typecheck "object->alist" object "object") (vector->list (--> (Object.entries object) (map (lambda (arr) @@ -239,7 +250,7 @@ (define (parent.frames) "(parent.frames) - Funcion return list of environments from parent frames (lambda function calls)" + Returns the list of environments from parent frames (lambda function calls)" (let iter ((result '()) (frame (parent.frame 1))) (if (eq? frame (interaction-environment)) (cons frame result) @@ -254,8 +265,8 @@ (define (pair-map fn seq-list) "(pair-map fn list) - Function call fn argument for pairs in a list and return combined list with - values returned from function fn. It work like the map but take two items from list" + Function that calls fn argument for pairs in a list and returns a combined list with + values returned from function fn. It works likes map but take two items from the list each time." (let iter ((seq-list seq-list) (result '())) (if (null? seq-list) result @@ -270,18 +281,20 @@ ;; ----------------------------------------------------------------------------- (define (object-expander readonly expr . rest) - "(object-expander reaonly '(:foo (:bar 10) (:baz (1 2 3)))) - (object-expander reaonly '(:foo :bar)) - - - Recursive function helper for defining LIPS code for create objects - using key like syntax. if no values are used it will create JavaScript - shorthand objects where keys are used for keys and values" - (let ((name (gensym "name")) (quot (if (null? rest) false (car rest)))) + "(object-expander readonly '(:foo (:bar 10) (:baz (1 2 3)))) + (object-expander readonly '(:foo :bar)) + + Recursive function helper for defining LIPS code to create objects + using key like syntax. If no values are used it will create a JavaScript + shorthand objects where keys are used for keys and the values." + (let ((name (gensym "name")) + (r-only (gensym "r-only")) + (quot (if (null? rest) false (car rest)))) (if (null? expr) `(alist->object ()) - `(let ((,name (alist->object '()))) - ,@(let loop ((lst expr) (result nil) (local-readonly readonly)) + `(let ((,name ,(Object.fromEntries (new Array))) + (,r-only ,(Object.fromEntries (new Array (new Array "writable" false))))) + ,@(let loop ((lst expr) (result nil)) (if (null? lst) (reverse result) (let ((first (car lst)) @@ -295,46 +308,60 @@ (let ((prop (key->string first))) (if (or (key? second) (null? second)) (let ((code `(set-obj! ,name ,prop undefined))) - (set! readonly false) - (loop (cdr lst) (cons code result) local-readonly)) - (let ((code (if (and (pair? second) (key? (car second))) - `(set-obj! ,name - ,prop - ,(object-expander local-readonly second)) - (if quot - `(set-obj! ,name ,prop ',second) - `(set-obj! ,name ,prop ,second))))) - (loop (cddr lst) (cons code result) local-readonly)))))))) + (loop (cdr lst) (cons code result))) + (let ((code (if readonly + (if (and (pair? second) (key? (car second))) + `(set-obj! ,name + ,prop + ,(object-expander readonly second quot) + ,r-only) + (if quot + `(set-obj! ,name ,prop ',second ,r-only) + `(set-obj! ,name ,prop ,second ,r-only))) + (if (and (pair? second) (key? (car second))) + `(set-obj! ,name + ,prop + ,(object-expander readonly second)) + (if quot + `(set-obj! ,name ,prop ',second) + `(set-obj! ,name ,prop ,second)))))) + (loop (cddr lst) (cons code result))))))))) ,(if readonly - `(Object.freeze ,name)) + `(Object.preventExtensions ,name)) ,name)))) ;; ----------------------------------------------------------------------------- (define-macro (object . expr) "(object :name value) - Macro that create JavaScript object using key like syntax." + Creates a JavaScript object using key like syntax." (try (object-expander false expr) (catch (e) - (error e.message)))) + (try + (error e.message) + (catch (e) + (console.error e.message)))))) ;; ----------------------------------------------------------------------------- (define-macro (object-literal . expr) "(object-literal :name value) - Macro that create JavaScript object using key like syntax. This is similar, - to object but all values are quoted. This macro is used with & object literal." + Creates a JavaScript object using key like syntax. This is similar, + to object but all values are quoted. This macro is used by the & object literal." (try (object-expander true expr true) (catch (e) - (error e.message)))) + (try + (error e.message) + (catch (e) + (console.error e.message)))))) ;; ----------------------------------------------------------------------------- (define (alist->assign desc . sources) "(alist->assign alist . list-of-alists) - Function that work like Object.assign but for LIPS alist." + Function that works like Object.assign but for LIPS alists." (for-each (lambda (source) (for-each (lambda (pair) (let* ((key (car pair)) @@ -351,7 +378,7 @@ (define (key? symbol) "(key? symbol) - Function check if symbol is key symbol, have colon as first character." + Checks if symbol is a keyword (has a colon as first character)." ;; we can't use string=? because it's in R5RS.scm we use same code that use cmp (and (symbol? symbol) (== (--> (substring (symbol->string symbol) 0 1) (cmp ":")) 0))) @@ -359,7 +386,7 @@ (define (key->string symbol) "(key->string symbol) - If symbol is key it convert that to string - remove colon." + If symbol is a keyword it converts that to string and removes the colon." (if (key? symbol) (substring (symbol->string symbol) 1))) @@ -367,7 +394,7 @@ (define (%as.data obj) "(%as.data obj) - Mark object as data to stop evaluation." + Marks the object as data to stop evaluation." (if (object? obj) (begin (set-obj! obj 'data true) @@ -377,8 +404,8 @@ (define (%hidden-props obj) "(%hidden-props obj) - Function return hidden names of an object, for ES6 class prototype - it return all methods since they are indistinguishable from hidden property + Returns the hidden names of an object, for ES6 class prototypes + it returns all methods since they are indistinguishable from hidden properties created using defineProperty." (let* ((descriptors (Object.getOwnPropertyDescriptors obj)) (names (Object.keys descriptors))) @@ -390,7 +417,7 @@ (define (dir obj . rest) "(dir obj) - Function return all props on the object including those in prototype chain." + Returns all props on the object including those in prototype chain." (if (or (null? obj) (eq? obj Object.prototype)) nil (let ((proto (if (null? rest) false (car rest))) @@ -407,7 +434,7 @@ (define (tree-map f tree) "(tree-map fn tree) - Tree version of map. Function is invoked on every leaf." + Tree version of map. fn is invoked on every leaf." (if (pair? tree) (cons (tree-map f (car tree)) (tree-map f (cdr tree))) (f tree))) @@ -416,7 +443,7 @@ (define (native.number x) "(native.number obj) - If argument is number it will convert to native number." + If argument is a number it will convert it to a native number." (if (number? x) (value x) x)) @@ -425,7 +452,7 @@ (define (value obj) "(value obj) - Function unwrap LNumbers and convert nil value to undefined." + Function that unwraps LNumbers and converts nil to undefined." (if (eq? obj nil) undefined (if (number? obj) @@ -436,7 +463,7 @@ (define-macro (define-formatter-rule . patterns) "(rule-pattern pattern) - Anaphoric Macro for defining patterns for formatter. With Ahead, Pattern and * defined values." + Anaphoric macro for defining patterns for the formatter. With Ahead, Pattern and * defined values." (let ((rules (gensym "rules"))) `(let ((,rules lips.Formatter.rules) (Ahead (lambda (pattern) @@ -551,7 +578,7 @@ (define (%r re . rest) "(%r re) - Create new regular expression from string, to not break Emacs formatting" + Creates a new regular expression from string, to not break Emacs formatting." (if (null? rest) (new RegExp re) (new RegExp re (car rest)))) @@ -569,7 +596,7 @@ (define (interaction-environment) "(interaction-environment) - Function return interaction environement equal to lips.env can be overwritten, + Returns the interaction environment equal to lips.env. This can be overwritten when creating new interpreter with lips.Interpreter." **interaction-environment**) @@ -577,7 +604,7 @@ (define (current-output-port) "(current-output-port) - Function return default stdout port." + Returns the default stdout port." (let-env (interaction-environment) (--> **internal-env** (get 'stdout)))) @@ -585,7 +612,7 @@ (define (current-error-port) "(current-output-port) - Function return default stdout port." + Returns the default stderr port." (let-env (interaction-environment) (--> **internal-env** (get 'stderr)))) @@ -593,7 +620,7 @@ (define (current-input-port) "(current-input-port) - Function return default stdin port." + Returns the default stdin port." (let-env (interaction-environment) (--> **internal-env** (get 'stdin)))) @@ -601,7 +628,7 @@ (define (command-line) "(command-line) - Function return command line arguments or empty list" + Returns the command line arguments, or an empty list if not running under Node.js." (let ((args (let-env (interaction-environment) (--> **internal-env** (get 'command-line))))) (if (or (null? args) (zero? (length args))) @@ -610,7 +637,7 @@ ;; ----------------------------------------------------------------------------- (define (flush-output . rest) - "(flush-output) + "(flush-output [port]) If output-port is buffered, this causes the contents of its buffer to be written to the output device. Otherwise it has no effect. Returns an unspecified value." @@ -622,18 +649,18 @@ (define (regex? x) "(regex? x) - Function return true of value is regular expression, it return false otherwise." + Returns true if value is a regular expression, or false otherwise." (== (--> (type x) (cmp "regex")) 0)) ;; ----------------------------------------------------------------------------- (define (set-repr! type fn) "(add-repr! type fn) - Function add string represention to the type, which should be constructor function. + Function that adds the string representation to the type, which should be a constructor function. - Function fn should have args (obj q) and it should return string, obj is vlaue that - need to be converted to string, if the object is nested and you need to use `repr`, - it should pass second parameter q to repr, so string will be quoted when it's true. + Function fn should have args (obj q) and it should return a string. obj is the value that + need to be converted to a string. If the object is nested and you need to use `repr` recursively, + it should pass the second parameter q to repr, so string will be quoted when it's true. e.g.: (lambda (obj q) (string-append \"<\" (repr obj q) \">\"))" (typecheck "add-repr!" type "function") @@ -644,7 +671,7 @@ (define (unset-repr! type) "(unset-repr! type) - Function remove string represention to the type, which should be constructor function, + Removes the string representation of the type, which should be constructor function, added by add-repr! function." (typecheck "unset-repr!" type "function") (ignore (--> lips.repr (delete type)))) @@ -669,7 +696,7 @@ (define (bound? x . rest) "(bound? x [env]) - Function check if variable is defined in given environement or interaction environment + Function that check if the variable is defined in the given environment, or interaction-environment if not specified." (let ((env (if (null? rest) (interaction-environment) (car rest)))) (try (begin @@ -682,7 +709,7 @@ (define (environment-bound? env x) "(environment-bound? env symbol) - Function check if symbol is bound variable similar to bound?." + Checks if symbol is a bound variable similar to bound?." (typecheck "environment-bound?" env "environment" 1) (typecheck "environment-bound?" x "symbol" 2) (bound? x env)) @@ -693,7 +720,7 @@ (define (qsort e predicate) "(qsort list predicate) - Sort the list using quick sort alorithm according to predicate." + Sorts the list using the quick sort algorithm according to predicate." (if (or (null? e) (<= (length e) 1)) e (let loop ((left nil) (right nil) @@ -708,7 +735,7 @@ (define (sort list . rest) "(sort list [predicate]) - Sort the list using optional predicate function. if not function is specified + Sorts the list using optional predicate function. If no comparison function is given it will use <= and sort in increasing order." (let ((predicate (if (null? rest) <= (car rest)))) (typecheck "sort" list "pair") @@ -719,8 +746,9 @@ (define (every fn list) "(every fn list) - Function call function fn on each item of the list, if every value is true - it will return true otherwise it return false." + Function that calls fn on each item of the list, if every value returns true + it will return true otherwise it return false. + Analogous to Python all(map(fn, list))." (if (null? list) true (and (fn (car list)) (every fn (cdr list))))) @@ -729,7 +757,7 @@ (define-macro (promise . body) "(promise . body) - Anaphoric macro that expose resolve and reject functions from JS promise" + Anaphoric macro that exposes resolve and reject functions from JS promise." `(new Promise (lambda (resolve reject) (try (begin ,@body) (catch (e) @@ -739,22 +767,22 @@ (define-macro (timer time . body) "(timer time . body) - Macro evaluate expression after delay, it return timer. To clear the timer you can use - native JS clearTimeout function." + Evaluates body after delay, it returns the timer ID from setTimeout. + To clear the timer you can use native JS clearTimeout function." `(setTimeout (lambda () (try (begin ,@body) (catch (e) (error (.. e.message))))) ,time)) ;; ----------------------------------------------------------------------------- (define-macro (wait time . expr) "(wait time . expr) - Function return promise that will resolve with evaluating the expression after delay." + Returns a promise that will resolve with the expression after delay." `(promise (timer ,time (resolve (begin ,@expr))))) ;; ----------------------------------------------------------------------------- (define (await value) "(await value) - Function unquote quoted promise so it can be automagicaly evaluated (resolved + Unquotes a quoted promise so it can be automagically evaluated (resolved to its value)." (if (instanceof lips.QuotedPromise value) (value.valueOf) @@ -762,12 +790,11 @@ ;; ----------------------------------------------------------------------------- (define-macro (quote-promise expr) - "(quote-promise expr) - '>expr + "(quote-promise expr) or '>expr - Macro used to escape promise the whole expression, will be wrapped - with JavaScript class that behave like Promise but will not - auto resolve like normal promise." + Macro used to escape automati awaiting of the expression. It will be wrapped + with a JavaScript class that behaves like Promise but will not be automatically + resolved by LIPS like normal promises are." `(let ((env)) (set! env (current-environment)) (env.set (Symbol.for "__promise__") true) @@ -777,14 +804,14 @@ (define (defmacro? obj) "(defmacro? expression) - Function check if object is macro and it's expandable." + Checks if object is a macro and it's expandable." (and (macro? obj) (. obj 'defmacro))) ;; ----------------------------------------------------------------------------- (define (n-ary n fn) "(n-ary n fn) - Return new function that limit number of arguments to n." + Returns a new function that limits the number of arguments to n." (lambda args (apply fn (take n args)))) @@ -792,7 +819,7 @@ (define (take n lst) "(take n list) - Return n first values of the list." + Returns n first values of the list." (let iter ((result '()) (i n) (lst lst)) (if (or (null? lst) (<= i 0)) (reverse result) @@ -801,13 +828,13 @@ ;; ----------------------------------------------------------------------------- (define unary (%doc "(unary fn) - Function return new function with arguments limited to one." + Returns a new function with arguments limited to one." (curry n-ary 1))) ;; ----------------------------------------------------------------------------- (define binary (%doc "(binary fn) - Function return new function with arguments limited to two." + Returns a new function with arguments limited to two." (curry n-ary 2))) ;; ----------------------------------------------------------------------------- @@ -817,7 +844,7 @@ (define (%class-lambda expr) "(class-lambda expr) - Return lambda expression where input expression lambda have `this` as first argument." + Returns a lambda expression where input expression lambda have `this` as first argument." (let ((args (gensym 'args))) `(lambda ,args (apply ,(cadr expr) this ,args)))) @@ -826,7 +853,7 @@ (define (%class-method-name expr) "(%class-method-name expr) - Helper function that allow to use [Symbol.asyncIterator] inside method name." + Helper function that allows to use [Symbol.asyncIterator] inside method name." (if (pair? expr) (car expr) (list 'quote expr))) @@ -835,7 +862,7 @@ (define-macro (define-class name parent . body) "(define-class name parent . body) - Define class - JavaScript function constructor with prototype. + Defines a class - JavaScript function constructor with prototype. usage: @@ -843,10 +870,10 @@ (constructor (lambda (self name) (set-obj! self '_name name))) (hi (lambda (self) - (display (string-append self._name \" say hi\")) + (display (string-append self._name \" says hi\")) (newline)))) (define jack (new Person \"Jack\")) - (jack.hi)" + (jack.hi) ; prints \"Jack says hi\"" (let iter ((functions '()) (constructor '()) (lst body)) (if (null? lst) `(begin @@ -884,13 +911,13 @@ temp))) "(class <parent> body ...) - Macro allow to create anonymous classes. See define-class for details.") + Allows to create anonymous classes. See define-class for details.") ;; ----------------------------------------------------------------------------- (define (make-tags expr) "(make-tags expression) - Function that return list structure of code with better syntax then raw LIPS" + Returns a list structure of code with better syntax then raw LIPS" `(h ,(let ((val (car expr))) (if (key? val) (key->string val) val)) (alist->object (,'quasiquote ,(pair-map (lambda (car cdr) `(,(key->string car) . (,'unquote ,cdr))) @@ -905,7 +932,7 @@ (define (%sxml h expr) "(%sxml h expr) - Helper function that render expression using create element function." + Helper function that renders the expression using create element function." (let* ((have-attrs (and (not (null? (cdr expr))) (pair? (cadr expr)) (eq? (caadr expr) '@))) @@ -947,10 +974,9 @@ ;; ----------------------------------------------------------------------------- (define (sxml-unquote) - "(sxml-unquote expression) - ~expression + "(sxml-unquote expression) or ~expression - Thread expression as code and evaluate it inside sxml, similar to unquote + Treat expression as code and evaluate it inside sxml, similar to unquote with quasiquote." (throw "sxml-unquote: Can't use outside of sxml")) @@ -965,7 +991,8 @@ (sxml (div (@ (data-foo \"hello\") (id \"foo\")) (span \"hello\") - (span \"world\")))" + (span \"world\"))) + ;; ==> <div data-foo=\"hello\" id=\"foo\"><span>hello</span><span>world</span></div>" (%sxml ',pragma expr))) ;; ----------------------------------------------------------------------------- @@ -975,7 +1002,7 @@ (define-macro (with-tags expr) "(with-tags expression) - Macro that evalute LIPS shorter code for S-Expression equivalent of JSX. + valutes LIPS shorter code for S-Expression equivalent of JSX. e.g.: (with-tags (:div (:class \"item\" :id \"item-1\") @@ -991,8 +1018,8 @@ (define (get-resource url) "(get-resource url) - Load JavaScript or CSS file in browser by adding script tag to head of the current document. - When called from Node it allow it allow to load JavaScript files only." + Load JavaScript or CSS file in browser by adding script/link tag to head of the current document. + When called from Node it allow it allows to load JavaScript files only." (typecheck "get-resource" url "string") (if (not (bound? 'document)) (if (eq? self global) @@ -1023,21 +1050,21 @@ (define (gensym? value) "(gensym? value) - Function return #t if value is symbol and it's gensym. It returns #f otherwise." + Returns #t if value is a symbol created by gensym. It returns #f otherwise." (and (symbol? value) (--> value (is_gensym)))) ;; ----------------------------------------------------------------------------- (define (degree->radians x) "(degree->radians x) - Convert degree to radians." + Convert degrees to radians." (* x (/ Math.PI 180))) ;; ----------------------------------------------------------------------------- (define (radians->degree x) "(radians->degree x) - Convert radians to degree." + Convert radians to degrees." (* x (/ 180 Math.PI))) ;; ----------------------------------------------------------------------------- @@ -1049,7 +1076,7 @@ body ...))) "(while cond . body) - Macro that create a loop, it exectue body until cond expression is false.") + Creates a loop, it executes cond and body until cond expression is false.") ;; ----------------------------------------------------------------------------- (define-syntax ++ @@ -1060,7 +1087,7 @@ tmp))) "(++ variable) - Macro that work only on variables and increment the value by one.") + Works only on variables and increment the value by one.") ;; ----------------------------------------------------------------------------- (define-syntax -- @@ -1071,13 +1098,13 @@ tmp))) "(-- variable) - Macro that decrement the value it work only on symbols") + Works only on variables and decrements the value by one.") ;; ----------------------------------------------------------------------------- (define (pretty-format . lists) "(pretty-format pair) - Function return pretty printed string from pair expression." + Returns a pretty printed string from pair expression." (let ((code (--> (list->vector lists) (map (lambda (pair i) (typecheck "pretty-pair" pair "pair" i) @@ -1089,7 +1116,7 @@ (define (reset) "(reset) - Function reset environment and remove all user defined variables." + Function resets the environment and removes all user defined variables." (let-env **interaction-environment** (let ((defaults **interaction-environment-defaults**) (env **interaction-environment**)) @@ -1105,21 +1132,42 @@ (array->list (--> (new Array n) (fill fill)))))) ;; ----------------------------------------------------------------------------- -(define (range n) - "(range n) - - Function return list of n numbers from 0 to n - 1" - (typecheck "range" n "number") - (array->list (--> (new Array n) (fill 0) (map (lambda (_ i) i))))) +(define (range stop . rest) + "(range stop) + (range start stop) + (range start stop step) + + Returns a list of numbers from start to stop with optional step. + If start is not defined it starts from 0. If start is larger than stop + the step needs to be negative otherwise it will hang in an infinite loop." + (let* ((i (if (null? rest) 0 stop)) + (stop (if (null? rest) stop (car rest))) + (step (if (or (null? rest) (null? (cdr rest))) + 1 + (cadr rest))) + (test (cond + ((> i stop) (lambda (i) + (and (< step 0) (>= i stop)))) + ((< i stop) (lambda + (i) (and (> step 0) (< i stop)))) + (else (lambda () false)))) + (result (vector))) + (typecheck "range" i "number" 1) + (typecheck "range" step "number" 2) + (typecheck "range" stop "number" 3) + (while (test i) + (result.push i) + (set! i (+ i step))) + (array->list result))) ;; ----------------------------------------------------------------------------- (define-macro (do-iterator spec cond . body) "(do-iterator (var expr) (test) body ...) - Macro iterate over iterators (e.g. create with JavaScript generator function) - it works with normal and async iterators. You can loop over infinite iterators - and break the loop if you want, using expression like in do macro, long sync iterators - will block main thread (you can't print 1000 numbers from inf iterators, + Iterates over iterators (e.g. creates with JavaScript generator function) + that works with normal and async iterators. You can loop over infinite iterators + and break the loop if you want, using expression like in do macro. Long synchronous iterators + will block the main thread (you can't print 1000 numbers from infinite iterators, because it will freeze the browser), but if you use async iterators you can process the values as they are generated." (let ((gen (gensym "name")) @@ -1144,22 +1192,22 @@ (,stop #f) (,name (. ,item "value"))) (while (not (or (eq? (. ,item "done") #t) ,stop)) - (if ,test - (set! ,stop #t) - (begin - ,@body)) + (if ,test + (set! ,stop #t) + (begin + ,@body)) (set! ,item (,next)) (set! ,name (. ,item "value"))))))))) ;; ----------------------------------------------------------------------------- (set-repr! Set (lambda () "#<Set>")) -(set-repr! Map (lambda () "#<Met>")) +(set-repr! Map (lambda () "#<Map>")) ;; ----------------------------------------------------------------------------- (define (native-symbol? x) "(native-symbol? object) - Function check if value is JavaScript symbol." + Checks if value is JavaScript Symbol." (and (string=? (type x) "symbol") (not (symbol? x)))) ;; ----------------------------------------------------------------------------- @@ -1169,17 +1217,17 @@ (define-macro (warn-quote) "(warn-quote) - Simple macro that throw error, when you try to use ’ symbol as quote in code" - (throw (new Error (string-append "You're using invalid quote character run: " + Simple macro that throws an error, when you try to use ’ symbol as quote in code." + (throw (new Error (string-append "You're using an invalid Unicode quote character. Run: " "(set-special! \"’\" 'quote)" - " to allow running this type of quote")))) + " to allow the use of this type of quote")))) ;; ----------------------------------------------------------------------------- (define-macro (let-env-values env spec . body) "(let-env-values env ((name var)) . body) - Macro add mapping for variables var from specified env, - Macro work similar to let-env but lexical scope is working with it." + Adds mappings for variables var from specified env. + it is similar to let-env but lexical scope is working with it." (let ((env-name (gensym 'env))) `(let ((,env-name ,env)) (let ,(map (lambda (pair) @@ -1191,7 +1239,7 @@ (define (apropos name) "(apropos name) - Search environment and display names that match the given name. + Search the current environment and display names that match the given name. name can be regex, string or symbol." (typecheck "apropos" name '("string" "regex" "symbol")) (let ((regex (lambda (string) @@ -1205,7 +1253,7 @@ (define (promisify fn) "(promisify fn) - Simple function for adding promises to NodeJS callback based function. + Simple function for adding promises to NodeJS two-callback based functions. Function tested only with fs module." (lambda args (new Promise (lambda (resolve reject) @@ -1218,7 +1266,7 @@ (define-macro (list* . args) "(list* arg1 ...) - Parallel version of list." + Parallel asynchronous version of list. Like begin* except all values are returned in a list." (let ((result (gensym "result"))) `(let ((,result (vector))) ,@(map (lambda (arg) @@ -1228,20 +1276,20 @@ ;; ----------------------------------------------------------------------------- (define-macro (%not-implemented name) - "(not-implemented name) + "(%not-implemented name) - Returns new function taht throw exception that function is not implmeneted" + Returns new function that throws an exception with a message that this function is not implemented." (let ((str-name (symbol->string name))) `(lambda () ,(string-append "(" str-name ")\n\nThis function is not yet implemented.") - (throw (new Error ,(string-append str-name " has not beed implemented")))))) + (throw (new Error ,(string-append str-name " has not been implemented")))))) ;; ----------------------------------------------------------------------------- (define-macro (%make-env name . names) "(%make-env name f1 f2 ...) - Create new Environment with given name and defined symbols in it from global env. - If given function name f1 f2 ... don't exists, it will define function that + Creates a new Environment with given name and defined symbols in it from the global env. + If given function name f1 f2 ... don't exist, it will define them as functions that throw exception that function is not yet implemented." `(new lips.Environment (alist->object (list ,@(map (lambda (name) `(cons ',name ,(let ((ref (lips.env.ref name))) @@ -1273,7 +1321,7 @@ (define (indexed-db?) "(indexed-db?) - Function test if indexedDB is available." + Function that tests if IndexedDB is available." (let* ((any (lambda args (let iter ((args args)) (if (null? args) @@ -1289,7 +1337,7 @@ (try (begin ;; open will fail in about:blank - (window.indexedDB.open "MyTestDatabase" 3) + (window.indexedDB.open "IndexedDBExistenceCheck" 3) true) (catch (e) false)) @@ -1299,7 +1347,7 @@ (define (environment? obj) "(environment? obj) - Function check if object is LIPS environment." + Checks if object is a LIPS environment." (instanceof lips.Environment obj)) ;; ----------------------------------------------------------------------------- @@ -1308,13 +1356,13 @@ (lambda (binary path) "(%read-file binary path) - Read file from url or file system. If binary is false it will return - string that contain all the content. For HTTP requests, If binary - is false it will: when in browser return ArrayBuffer and in Node - it will return Buffer object. When reading from file system - in both cases it will return Buffer objects. + Read file from url or file system. If binary is false it will return a + string that contain all the content. For HTTP requests, if binary + is false it will return an ArrayBuffer (when in a browser) or a Buffer + (when in NodeJS). When reading from the file system in both cases it will + return Buffer objects. - The code that use those function, in binary mode, need to check + Code that uses this function in binary mode needs to check if the result is ArrayBuffer or Node.js/BrowserFS Buffer object." (if (not read-file) (let ((fs (--> (interaction-environment) @@ -1356,7 +1404,7 @@ (define (%fs-promisify-proc fn message) "(%fs-promisify-proc fn string) - Function return promisified version of fs function or throw exception + Returns a promisified version of a fs function or throws an exception if fs is not available." (let ((fs (--> lips.env (get '**internal-env**) (get 'fs)))) (if (null? fs) @@ -1367,11 +1415,11 @@ (define (response->content binary res) "(response->text binary res) - Function read all text from Node.js HTTP response object. If binary argument + Reads all text from a Node.js HTTP response object. If binary argument is true it will return Buffer object that can be converted to u8vector. - ***Warrning:*** it may overflow the stack (part of Node) when converting - whole buffer to u8vector." + ***Warning:*** it may overflow the Javascript call stack when converting the + whole buffer to u8vector, because LIPS doesn't have TCO." (let ((result (vector)) (append (if binary (lambda (chunk) @@ -1396,15 +1444,14 @@ (lambda (url binary) "(http-get url) - Node.js Function that send HTTP Request and return string or - binary Buffer object." + This function is only available when running LIPS in NodeJS." (throw (new Error "http-get: function is Node.js only."))) (let* ((http (. (require "http") 'get)) (https (. (require "https") 'get))) (lambda (url binary) "(http-get url) - Node.js Function that send HTTP Request and return string or + Node.js function that sends a HTTP Request and returns a string or binary Buffer object." (let ((request (if (null? (url.match #/^https/)) http https))) (new Promise @@ -1424,8 +1471,8 @@ (define (buffer->u8vector bin) "(buffer->u8vector bin) - Cross platform function that can be used in both Node and Browser. - It can be used together with %read-file or %read-binary-file and convert + Cross platform function that can be used in both Node and browser. + It can be used together with %read-file or %read-binary-file to convert the result ArrayBuffer or Buffer to u8vector." (if (instanceof ArrayBuffer bin) (new Uint8Array bin) @@ -1435,7 +1482,7 @@ (define (complement fn) "(complement fn) - Higer order function that returns complement of the given function. If the function fn + Higher order function that returns the Boolean complement of the given function. If the function fn for a given arguments return true the result function will return false, if it would return false, the result function will return true." (typecheck "complement" fn "function") @@ -1446,7 +1493,7 @@ (define (always constant) "(always constant) - Higher order function returns new function that always return given constant." + Higher-order function that returns a new thunk that always returns the given constant when called." (lambda () constant)) @@ -1454,8 +1501,9 @@ (define (once fn) "(once fn) - Higher order function that return new function, that is guarantee - to be called only once." + Higher-order function that returns a new function, that only calls the original + on the first invocation, and immediately returns the first call's result again + on subsequent invocations." (typecheck "once" fn "function") (let ((result)) (lambda args @@ -1467,7 +1515,7 @@ (define (flip fn) "(flip fn) - Higher order function that return new function where first two arguments are swapped. + Higher-order function that returns a new function where the first two arguments are swapped. Example: @@ -1482,9 +1530,9 @@ (define (unfold fn init) "(unfold fn init) - Function returns list from given function and init value. The function should - return cons where first is the item added to the list and second is next value - passed to the funtion. If function return false it end the loop." + Returns a list from the given function and init value. The function should + return a pair where first is the item added to the list and second is next value + passed to the function. If the function returns false it ends the loop." (typecheck "unfold" fn "function") (let iter ((pair (fn init)) (result '())) (if (not pair) @@ -1499,16 +1547,21 @@ (define (symbol-append . rest) "(symbol-append s1 s2 ...) - Function create new symbol from symbols passed as arguments." + Function that creates a new symbol from symbols passed as arguments." (string->symbol (apply string-append (map symbol->string rest)))) ;; ----------------------------------------------------------------------------- (define-macro (set-global! name) "(set-global! name) - Macro make the name global variable." + Macro to make the name a Javascript global variable (i.e. accessible on globalThis)." (let ((var (symbol-append 'self. name))) `(set! ,var ,name))) + +;; ----------------------------------------------------------------------------- +(define performance (if (and (eq? self global) (not (bound? 'performance))) + (. (require "perf_hooks") 'performance) + performance)) ;; __ __ __ ;; / / \ \ _ _ ___ ___ \ \ ;; | | \ \ | | | || . \/ __> | | @@ -1546,9 +1599,9 @@ (define-macro (define-symbol-macro type spec . rest) "(define-symbol-macro type (name . args) . body) - Macro that creates special symbol macro for evaluator similar to build in , or `. - It's like alias for real macro. Similar to CL reader macros but it receive already - parsed code like normal macros. Type can be SPLICE or LITERAL symbols. + Creates special symbol macros for evaluator similar to built-in , or `. + It's like an alias for a real macro. Similar to CL reader macros but it receives already + parsed code like normal macros. Type can be SPLICE or LITERAL symbols (see set-special!). ALL default symbol macros are literal." (let* ((name (car spec)) (symbol (cadr spec)) @@ -1577,18 +1630,17 @@ (define-syntax vector (syntax-rules () ((_ arg ...) (list->array (list arg ...)))) - "(vector 1 2 3 (+ 3 1)) - #(1 2 3 4) + "(vector 1 2 3 (+ 3 1)) or #(1 2 3 4) - Macro for defining vectors (JavaScript arrays). Vectors literals are - automatically quoted. So you can use expressions inside them. Only other - literals, like other vectors or object.") + Macro for defining vectors (Javascript Arrays). Vector literals are + automatically quoted, so you can't use expressions inside them, only other + literals, like other vectors or objects.") ;; ----------------------------------------------------------------------------- (set-repr! Array (lambda (arr q) - ;; Array.from is used to convert emtpy to undefined - ;; but we can't use the value because Array.from call + ;; Array.from is used to convert empty to undefined + ;; but we can't use the value because Array.from calls ;; valueOf on its arguments (let ((result (--> (Array.from arr) (map (lambda (x i) @@ -1601,8 +1653,8 @@ (define (eqv? a b) "(eqv? a b) - Function compare the values. It return true if they are the same, they - need to have same type" + Function that compares the values. It returns true if they are the same, they + need to have the same type." (if (string=? (type a) (type b)) (cond ((number? a) (or (and (exact? a) (exact? b) (= a b)) @@ -1638,8 +1690,8 @@ (define (equal? a b) "(equal? a b) - Function check if values are equal if both are pair or array - it compares the their elements recursivly." + The function checks if values are equal. If both are a pair or an array + it compares their elements recursively." (cond ((and (pair? a)) (and (pair? b) (equal? (car a) (car b)) @@ -1687,7 +1739,7 @@ (lambda (proc) "(make-promise fn) - Function create promise from a function." + Function that creates a promise from a function." (typecheck "make-promise" proc "function") (let ((result-ready? #f) (result #f)) @@ -1714,28 +1766,28 @@ (define-macro (delay expression) "(delay expression) - Macro will create a promise from expression that can be forced with (force)." + Will create a promise from expression that can be forced with (force)." `(make-promise (lambda () ,expression))) ;; ----------------------------------------------------------------------------- (define (force promise) "(force promise) - Function force the promise and evaluate delayed expression." + Function that forces the promise and evaluates the delayed expression." (promise)) ;; ----------------------------------------------------------------------------- (define (promise? obj) "(promise? obj) - Function check if value is a promise created with delay or make-promise." + Checks if the value is a promise created with delay or make-promise." (string=? (type obj) "promise")) ;; ----------------------------------------------------------------------------- (define (positive? x) "(positive? x) - Function check if number is larger then 0" + Checks if the number is larger then 0" (typecheck "positive?" x "number") (> x 0)) @@ -1743,7 +1795,7 @@ (define (negative? x) "(negative? x) - Function check if number is smaller then 0" + Checks if the number is smaller then 0" (typecheck "negative?" x "number") (< x 0)) @@ -1751,7 +1803,7 @@ (define (zero? x) "(zero? x) - Function check if number is equal to 0" + Checks if the number is equal to 0" (typecheck "zero?" x "number") (= x 0)) @@ -1759,11 +1811,11 @@ (define (quotient a b) "(quotient a b) - Return quotient from divition as integer." + Return quotient from division as integer." (typecheck "quotient" a "number") (typecheck "quotient" b "number") (if (zero? b 0) - (throw (new Error "quotient: divition by zero")) + (throw (new Error "quotient: division by zero")) (let ((quotient (/ a b))) (if (integer? quotient) quotient @@ -1775,7 +1827,7 @@ (define (number->string x . rest) "(number->string x [radix]) - Function convert number to string with optional radix (number base)." + Function that converts number to string with optional radix (number base)." (typecheck "number->string" x "number" 1) (let ((radix (if (null? rest) 10 (car rest)))) (typecheck "number->string" radix "number" 2) @@ -1785,14 +1837,14 @@ (define (boolean? x) "(boolean? x) - Function return true if value is boolean." + Returns true if value is boolean." (string=? (type x) "boolean")) ;; ----------------------------------------------------------------------------- (define (vector-ref vector i) "(vector-ref vector i) - Return i element from vector." + Return i-th element from vector." (typecheck "number->string" vector "array" 1) (typecheck "number->string" i "number" 2) (. vector i)) @@ -1801,7 +1853,7 @@ (define (vector-set! vector i obj) "(vector-set! vector i obj) - Set obj as value in vector at position 1." + Set obj as value in vector at position i." (typecheck "vector-set!" vector "array" 1) (typecheck "vector-set!" i "number" 2) (set-obj! vector i obj)) @@ -1822,7 +1874,7 @@ (define (real? x) "(real? x) - Function check if argument x is real." + Checks if the argument x is real." (and (number? x) (or (eq? x NaN) (eq? x Number.NEGATIVE_INFINITY) (eq? x Number.POSITIVE_INFINITY) @@ -1835,7 +1887,7 @@ (define (integer? x) "(integer? x) - Function check if argument x is integer." + Checks if the argument x is integer." (and (number? x) (not (eq? x NaN)) (not (eq? x Number.NEGATIVE_INFINITY)) @@ -1848,7 +1900,7 @@ (define (complex? x) "(complex? x) - Function check if argument x is complex." + Checks if argument x is complex." (and (number? x) (or (eq? x NaN) (eq? x Number.NEGATIVE_INFINITY) (eq? x Number.POSITIVE_INFINITY) @@ -1858,7 +1910,7 @@ (define (rational? x) "(rational? x) - Function check if value is rational." + Checks if the value is rational." (and (number? x) (not (eq? x NaN)) (not (eq? x Number.NEGATIVE_INFINITY)) @@ -1869,7 +1921,7 @@ (define (typecheck-args _type name _list) "(typecheck-args args type) - Function check if all items in array are of same type." + Function that makes sure that all items in the array are of same type." (let iter ((n 1) (_list _list)) (if (pair? _list) (begin @@ -1883,7 +1935,7 @@ (define (max . args) "(max n1 n2 ...) - Return maximum of it's arguments." + Returns the maximum of its arguments." (numbers? "max" args) (apply Math.max args)) @@ -1891,7 +1943,7 @@ (define (min . args) "(min n1 n2 ...) - Return minimum of it's arguments." + Returns the minimum of its arguments." (numbers? "min" args) (apply Math.min args)) @@ -1899,7 +1951,7 @@ (define (make-rectangular re im) "(make-rectangular im re) - Create complex number from imaginary and real part." + Creates a complex number from imaginary and real part (a+bi form)." (let ((value `((re . ,re) (im . ,im)))) (lips.LComplex (--> value (to_object true))))) @@ -1937,7 +1989,7 @@ (define (inexact->exact n) "(inexact->exact number) - Funcion convert real number to exact ratioanl number." + Function that converts real number to exact rational number." (typecheck "inexact->exact" n "number") (if (exact? n) n @@ -1947,7 +1999,7 @@ (define (log z) "(log z) - Funcntion calculates natural logarithm of z. Where argument can be + Function that calculates natural logarithm of z where the argument can be any number (including complex negative and rational). If the value is 0 it return NaN." (cond ((real? z) @@ -1978,27 +2030,79 @@ (op (. Math name)) (fn (lambda (n) (lips.LNumber (op n))))) (--> _this_env (set name fn)) - (set-obj! fn '__doc__ (concat "(" name " n)\n\nFunction calculate " name + (set-obj! fn '__doc__ (concat "(" name " n)\n\nFunction that calculates " name " math operation (it call JavaScript Math." name " function)")) (iter (cdr fns))))) ;; ----------------------------------------------------------------------------- -(define (exp x) - (typecheck "exp" x "number") - (if (string=? x.__type__ "complex") - (let* ((re (real-part x)) - (im (imag-part x)) +(define (sin n) + "(sin n) + + Function that calculates sine of a number." + (typecheck "sin" n "number") + (if (string=? n.__type__ "complex") + (let ((re (real-part n)) + (im (imag-part n))) + (lips.LComplex (object :re (* (Math.sin re) + (Math.cosh im)) + :im (* (Math.cos re) + (Math.sinh im))))) + (Math.sin n))) + +;; ----------------------------------------------------------------------------- +(define (cos n) + "(cos n) + + Function that calculates cosine of a number." + (typecheck "cos" n "number") + (if (string=? n.__type__ "complex") + (let ((re (real-part n)) + (im (imag-part n))) + (lips.LComplex (object :re (* (Math.cos re) + (Math.cosh im)) + :im (- (* (Math.sin re) + (Math.sinh im)))))) + (Math.cos n))) + +;; ----------------------------------------------------------------------------- +(define (tan n) + "(tan n) + + Function that calculates tangent of a number." + (typecheck "tan" n "number") + (if (string=? n.__type__ "complex") + (let* ((re (real-part n)) + (im (imag-part n)) + (re2 (* 2 re)) + (im2 (* 2 im))) + (lips.LComplex (object :re (/ (Math.sin re2) + (+ (Math.cos re2) + (Math.cosh im2))) + :im (/ (Math.sinh im2) + (+ (Math.cos re2) + (Math.cosh im2)))))) + (Math.tan n))) + +;; ----------------------------------------------------------------------------- +(define (exp n) + "(exp n) + + Function that calculates e raised to the power of n." + (typecheck "exp" n "number") + (if (string=? n.__type__ "complex") + (let* ((re (real-part n)) + (im (imag-part n)) (factor (Math.exp re))) (make-rectangular (* factor (cos im)) (* factor (sin im)))) - (Math.exp x))) + (Math.exp n))) ;; ----------------------------------------------------------------------------- (define (modulo a b) "(modulo a b) - Function return modulo operation on it's argumennts." + Returns modulo operation on its argumennts." (typecheck "modulo" a "number" 1) (typecheck "modulo" b "number" 2) (- a (* b (floor (/ a b))))) @@ -2006,7 +2110,7 @@ (define (remainder__ a b) "(modulo a b) - Function return reminder from division operation." + Returns remainder from division operation." (typecheck "remainder" a "number" 1) (typecheck "remainder" b "number" 2) (- a (* b (truncate (/ a b))))) @@ -2031,7 +2135,7 @@ (define (list-ref l k) "(list-ref list n) - Returns n element of a list." + Returns n-th element of a list." (typecheck "list-ref" l '("pair" "nil")) (if (< k 0) (throw (new Error "list-ref: index out of range")) @@ -2049,14 +2153,14 @@ (define (not x) "(not x) - Function return true if value is false and false otherwise." + Returns true if value is false and false otherwise." (if x false true)) ;; ----------------------------------------------------------------------------- (define (rationalize number tolerance) "(rationalize number tolerance) - Function returns simplest rational number differing from number by no more + Returns simplest rational number approximation differing from number by no more than the tolerance." (typecheck "rationalize" number "number" 1) (typecheck "rationalize" tolerance "number" 2) @@ -2067,7 +2171,7 @@ "(%member obj list function) Helper method to get first list where car equal to obj - using provied functions as comparator." + using provided function as comparator." (if (null? list) false (if (op (access list) obj) @@ -2078,7 +2182,7 @@ (define (memq obj list) "(memq obj list) - Function return first object in the list that match using eq? function." + Returns first object in the list that match using eq? function." (typecheck "memq" list '("nil" "pair")) (%mem/search car eq? obj list )) @@ -2086,7 +2190,7 @@ (define (memv obj list) "(memv obj list) - Function return first object in the list that match using eqv? function." + Returns first object in the list that match using eqv? function." (typecheck "memv" list '("nil" "pair")) (%mem/search car eqv? obj list)) @@ -2094,15 +2198,15 @@ (define (member obj list) "(member obj list) - Function return first object in the list that match using equal? function." + Returns first object in the list that match using equal? function." (typecheck "member" list '("nil" "pair")) (%mem/search car equal? obj list)) ;; ----------------------------------------------------------------------------- -(define (%assoc/acessor name) - "(%assoc/acessor name) +(define (%assoc/accessor name) + "(%assoc/accessor name) - Function return carr with typecheck using give name." + Returns carr with typecheck using give name." (lambda (x) (typecheck name x "pair") (caar x))) @@ -2114,7 +2218,7 @@ Generic function that used in assoc functions with defined comparator function." (typecheck "assoc" alist (vector "nil" "pair")) - (let ((ret (%mem/search (%assoc/acessor "assoc") op obj alist))) + (let ((ret (%mem/search (%assoc/accessor "assoc") op obj alist))) (if ret (car ret) ret))) @@ -2123,21 +2227,21 @@ (define assoc (%doc "(assoc obj alist) - Function return pair from alist that match given key using equal? check." + Returns pair from alist that match given key using equal? check." (curry %assoc/search equal?))) ;; ----------------------------------------------------------------------------- (define assq (%doc "(assq obj alist) - Function return pair from alist that match given key using eq? check." + Returns pair from a list that matches given key using eq? check." (curry %assoc/search eq?))) ;; ----------------------------------------------------------------------------- (define assv (%doc "(assv obj alist) - Function return pair from alist that match given key using eqv? check." + Returns pair from alist that match given key using eqv? check." (curry %assoc/search eqv?))) ;; ----------------------------------------------------------------------------- @@ -2150,7 +2254,7 @@ (define (make-string k . rest) "(make-string k [char]) - Function return new string with k elements, if char is provied + Returns new string with k elements. If char is provided it's filled with that character." (let ((char (if (null? rest) #\space (car rest)))) (typecheck "make-string" k "number" 1) @@ -2164,8 +2268,8 @@ (define (string . args) "(string chr1 chr2 ...) - Function create new string from it's arguments. Each argument - Need to be a character object." + Function that creates a new string from it's arguments. Each argument + needs to be a character object." (for-each (lambda (x) (typecheck "string" x "character")) args) @@ -2187,7 +2291,7 @@ (define (string-fill! string char) "(string-fill! symbol char) - Function destructively fill the string with given character." + Function that destructively fills the string with given character." (typecheck "string-fill!" string "string" 1) (typecheck "string-fill!" char "character" 2) (--> string (fill char))) @@ -2196,14 +2300,14 @@ (define (identity n) "(identity n) - No op function. it just returns its argument." + No-op function. It just returns its argument." n) ;; ----------------------------------------------------------------------------- (define (string-copy x) "(string-copy x) - Create new string based of given argument." + Creates a new string based on given argument." (typecheck "string-copy" x "string") (lips.LString x)) @@ -2211,7 +2315,7 @@ (define (list->string _list) "(list->string _list) - Function return string from list of characters." + Returns a string from a list of characters." (let ((array (list->array (map (lambda (x) (typecheck "list->string" x "character") @@ -2223,18 +2327,20 @@ (define (string->list string) "(string->list string) - Function return list of characters created from string." + Returns a list of characters created from string." (typecheck "string->list" string "string") - (array->list (--> string (split "") (map (lambda (x) (lips.LCharacter x)))))) + (array->list (--> (Array.from string) + (map (lambda (x) + (lips.LCharacter x)))))) ;; ----------------------------------------------------------------------------- ;; (let ((x "hello")) (string-set! x 0 #\H) x) (define-macro (string-set! object index char) "(string-set! object index char) - Macro that replace character in string in given index, it create new JavaScript - string and replace old value. Object need to be symbol that point to variable - that hold the string." + Replaces character in string in given index. It create new JavaScript + string and replaces the old value. Object needs to be symbol that points to the variable + that holds the string." (typecheck "string-set!" object "symbol") (let ((chars (gensym "chars"))) `(begin @@ -2249,7 +2355,7 @@ (define (string-length string) "(string-length string) - Function return length of the string." + Returns the length of the string." (typecheck "string-ref" string "string") (. string 'length)) @@ -2257,7 +2363,7 @@ (define (string-ref string k) "(string-ref string k) - Function return character inside string at given zero-based index." + Returns character inside string at given zero-based index." (typecheck "string-ref" string "string" 1) (typecheck "string-ref" k "number" 2) (lips.LCharacter (--> string (get k)))) @@ -2265,8 +2371,8 @@ (define (%string-cmp name string1 string2) "(%string-cmp name a b) - Function compare two strings and return 0 if they are equal, - -1 second is smaller and 1 if is larget. The function compare + Function that compares two strings and returns 0 if they are equal, + -1 if it is smaller and 1 if is larger. The function compares the codepoints of the character." (typecheck name string1 "string" 1) (typecheck name string2 "string" 2) @@ -2276,43 +2382,43 @@ (define (string=? string1 string2) "(string=? string1 string2) - Function check if two string s are equal." + Checks if two strings are equal." (= (%string-cmp "string=?" string1 string2) 0)) ;; ----------------------------------------------------------------------------- (define (string<? string1 string2) "(string<? string1 string2) - Function return true if second string is smaller then the first one." + Returns true if the second string is smaller than the first one." (= (%string-cmp "string<?" string1 string2) -1)) ;; ----------------------------------------------------------------------------- (define (string>? string1 string2) "(string<? string1 string2) - Function return true if second string is larger then the first one." + Returns true if the second string is larger than the first one." (= (%string-cmp "string>?" string1 string2) 1)) ;; ----------------------------------------------------------------------------- (define (string<=? string1 string2) "(string<? string1 string2) - Function return true if second string is not larger then the first one." + Returns true if the second string is not larger than the first one." (< (%string-cmp "string<=?" string1 string2) 1)) ;; ----------------------------------------------------------------------------- (define (string>=? string1 string2) "(string<? string1 string2) - Function return true if second character is not smaller then the first one." + Returns true if second character is not smaller then the first one." (> (%string-cmp "string>=?" string1 string2) -1)) ;; ----------------------------------------------------------------------------- (define (%string-ci-cmp name string1 string2) "(%string-ci-cmp name a b) - Function compare two strings ingoring case and return 0 if they are equal, - -1 second is smaller and 1 if is larget. The function compare + Function that compares two strings ignoring case and returns 0 if they are equal, + -1 if it is smaller and 1 if is larger. The function compares the codepoints of the character." (typecheck name string1 "string" 1) (typecheck name string2 "string" 2) @@ -2322,35 +2428,35 @@ (define (string-ci=? string1 string2) "(string-ci=? string1 string2) - Function check if two string s are equal." + Checks if two strings are equal, ignoring case." (= (%string-ci-cmp "string-ci=?" string1 string2) 0)) ;; ----------------------------------------------------------------------------- (define (string-ci<? string1 string2) "(string-ci<? string1 string2) - Function return true if second string is smaller then the first one." + Returns true if the second string is smaller than the first one, ignoring case." (= (%string-ci-cmp "string-ci<?" string1 string2) -1)) ;; ----------------------------------------------------------------------------- (define (string-ci>? string1 string2) "(string-ci<? string1 string2) - Function return true if second string is larger then the first one." + Returns true if the second string is larger than the first one, ignoring case." (= (%string-ci-cmp "string-ci>?" string1 string2) 1)) ;; ----------------------------------------------------------------------------- (define (string-ci<=? string1 string2) "(string-ci<? string1 string2) - Function return true if second string is not larger then the first one." + Returns true if the second string is not larger than the first one, ignoring case." (< (%string-ci-cmp "string-ci<=?" string1 string2) 1)) ;; ----------------------------------------------------------------------------- (define (string-ci>=? string1 string2) "(string-ci>=? string1 string2) - Function return true if second character is not smaller then the first one." + Returns true if second character is not smaller than the first one, ignoring case." (> (%string-ci-cmp "string-ci>=?" string1 string2) -1)) ;; ----------------------------------------------------------------------------- @@ -2362,14 +2468,14 @@ (define char? (%doc "(char? obj) - Function check if object is character." + Checks if the object is a character." (curry instanceof lips.LCharacter))) ;; ----------------------------------------------------------------------------- (define (char->integer chr) "(char->integer chr) - Function return codepoint of Unicode character." + Returns the codepoint of Unicode character." (typecheck "char->integer" chr "character") (--> chr.__char__ (codePointAt 0))) @@ -2377,7 +2483,7 @@ (define (integer->char n) "(integer->char chr) - Function convert number argument to chararacter." + Function that converts number argument to character." (typecheck "integer->char" n "number") (if (integer? n) (string-ref (String.fromCodePoint n) 0) @@ -2385,9 +2491,9 @@ ;; ----------------------------------------------------------------------------- (define-macro (%define-chr-re spec str re) - "(%define-chr-re (name chr) sring re) + "(%define-chr-re (name chr) string re) - Macro define procedure that test character agains regular expression." + Macro defines the procedure that tests character against regular expression." `(define ,spec ,str (typecheck ,(symbol->string (car spec)) ,(cadr spec) "character") @@ -2397,7 +2503,7 @@ (%define-chr-re (char-whitespace? chr) "(char-whitespace? chr) - Function return true if character is whitespace." + Returns true if character is whitespace." (let-env (interaction-environment) (--> **internal-env** (get 'space-unicode-regex)))) @@ -2405,7 +2511,7 @@ (%define-chr-re (char-numeric? chr) "(char-numeric? chr) - Function return true if character is number." + Returns true if character is number." (let-env (interaction-environment) (--> **internal-env** (get 'numeral-unicode-regex)))) @@ -2413,7 +2519,7 @@ (%define-chr-re (char-alphabetic? chr) "(char-alphabetic? chr) - Function return true if character is leter of the ASCII alphabet." + Returns true if character is leter of the ASCII alphabet." (let-env (interaction-environment) (--> **internal-env** (get 'letter-unicode-regex)))) @@ -2421,8 +2527,8 @@ (define (%char-cmp name chr1 chr2) "(%char-cmp name a b) - Function compare two characters and return 0 if they are equal, - -1 second is smaller and 1 if is larget. The function compare + Function that compares two characters and return 0 if they are equal, + -1 second is smaller and 1 if is larger. The function compare the codepoints of the character." (typecheck name chr1 "character" 1) (typecheck name chr2 "character" 2) @@ -2436,43 +2542,43 @@ (define (char=? chr1 chr2) "(char=? chr1 chr2) - Function check if two characters are equal." + Checks if two characters are equal." (= (%char-cmp "char=?" chr1 chr2) 0)) ;; ----------------------------------------------------------------------------- (define (char<? chr1 chr2) "(char<? chr1 chr2) - Function return true if second character is smaller then the first one." + Returns true if second character is smaller then the first one." (= (%char-cmp "char<?" chr1 chr2) -1)) ;; ----------------------------------------------------------------------------- (define (char>? chr1 chr2) "(char<? chr1 chr2) - Function return true if second character is larger then the first one." + Returns true if second character is larger then the first one." (= (%char-cmp "char>?" chr1 chr2) 1)) ;; ----------------------------------------------------------------------------- (define (char<=? chr1 chr2) "(char<? chr1 chr2) - Function return true if second character is not larger then the first one." + Returns true if second character is not larger then the first one." (< (%char-cmp "char<=?" chr1 chr2) 1)) ;; ----------------------------------------------------------------------------- (define (char>=? chr1 chr2) "(char<? chr1 chr2) - Function return true if second character is not smaller then the first one." + Returns true if second character is not smaller then the first one." (> (%char-cmp "char>=?" chr1 chr2) -1)) ;; ----------------------------------------------------------------------------- (define (%char-ci-cmp name chr1 chr2) "(%char-cmp name a b) - Function compare two characters and return 0 if they are equal, - -1 second is smaller and 1 if is larget. The function compare + Function that compares two characters and return 0 if they are equal, + -1 second is smaller and 1 if is larger. The function compare the codepoints of the character." (typecheck name chr1 "character" 1) (typecheck name chr2 "character" 2) @@ -2482,35 +2588,35 @@ (define (char-ci=? chr1 chr2) "(char-ci=? chr1 chr2) - Function check if two characters are equal." + Checks if two characters are equal." (= (%char-ci-cmp "char-ci=?" chr1 chr2) 0)) ;; ----------------------------------------------------------------------------- (define (char-ci<? chr1 chr2) "(char-ci<? chr1 chr2) - Function return true if second character is smaller then the first one." + Returns true if second character is smaller then the first one." (= (%char-ci-cmp "char-ci<?" chr1 chr2) -1)) ;; ----------------------------------------------------------------------------- (define (char-ci>? chr1 chr2) "(char-ci<? chr1 chr2) - Function return true if second character is larger then the first one." + Returns true if second character is larger then the first one." (= (%char-ci-cmp "char-ci>?" chr1 chr2) 1)) ;; ----------------------------------------------------------------------------- (define (char-ci<=? chr1 chr2) "(char-ci<? chr1 chr2) - Function return true if second character is not larger then the first one." + Returns true if second character is not larger then the first one." (< (%char-ci-cmp "char-ci<=?" chr1 chr2) 1)) ;; ----------------------------------------------------------------------------- (define (char-ci>=? chr1 chr2) "(char-ci<? chr1 chr2) - Function return true if second character is not smaller then the first one." + Returns true if second character is not smaller then the first one." (> (%char-ci-cmp "char-ci>=?" chr1 chr2) -1)) ;; ----------------------------------------------------------------------------- @@ -2533,7 +2639,7 @@ (define (char-upper-case? char) "(char-upper-case? char) - Function check if character is upper case." + Checks if character is upper case." (typecheck "char-upper-case?" char "character") (and (char-alphabetic? char) (char=? (char-upcase char) char))) @@ -2542,7 +2648,7 @@ (define (char-lower-case? char) "(char-upper-case? char) - Function check if character is lower case." + Checks if character is lower case." (typecheck "char-lower-case?" char "character") (and (char-alphabetic? char) (char=? (char-downcase char) char))) @@ -2582,7 +2688,7 @@ (define (make-vector n . rest) "(make-vector n [fill]) - Create new vector with n empty elements. If fill is specified it will set + Creates a new vector with n empty elements. If fill is specified it will set all elements of the vector to that value." (let ((result (new Array n))) (if (not (null? rest)) @@ -2593,14 +2699,14 @@ (define (vector? n) "(vector? n) - Function return true of value is vector and false if not." + Returns true if value is vector and false if not." (string=? (type n) "array")) ;; ----------------------------------------------------------------------------- (define (vector-ref vec n) "(vector-ref vec n) - Function return nth element of the vector vec." + Returns nth element of the vector vec." (typecheck "vector-ref" vec "array" 1) (typecheck "vector-ref" n "number" 2) (. vec n)) @@ -2609,7 +2715,7 @@ (define (vector-set! vec n value) "(vector-set! vec n value) - Function set nth item of the vector to value." + Function that sets nth item of the vector to value." (typecheck "vector-ref" vec "array" 1) (typecheck "vector-ref" n "number" 2) (set-obj! vec n value)) @@ -2630,7 +2736,7 @@ (define (vector-length vec) "(vector-length vec) - Function return length of the vector. If argument is not vector it throw exception." + Returns length of the vector. It errors if the argument is not a vector." (typecheck "vector-length" vec "array") (length vec)) @@ -2675,7 +2781,7 @@ [else result3]) Macro for switch case statement. It test if value is any of the item. If - item match the value it will return coresponding result expression value. + item match the value it will return corresponding result expression value. If no value match and there is else it will return that result.") ;; ----------------------------------------------------------------------------- @@ -2685,11 +2791,12 @@ (define (numerator n) "(numerator n) - Return numberator of rational or same number if n is not rational." + Return numerator of rational or same number if n is not rational." (typecheck "numerator" n "number") - (if (and (rational? n) (not (integer? n))) - n.num - n)) + (cond ((integer? n) n) + ((rational? n) n.__num__) + (else + (numerator (inexact->exact n))))) ;; ----------------------------------------------------------------------------- (define (denominator n) @@ -2697,9 +2804,11 @@ Return denominator of rational or same number if one is not rational." (typecheck "denominator" n "number") - (if (and (rational? n) (not (integer? n))) - n.denom - (if (exact? n) 1 1.0))) + (cond ((integer? n) n) + ((rational? n) n.__denom__) + ((exact? n) 1) + (else + (denominator (inexact->exact n))))) ;; ----------------------------------------------------------------------------- (define (imag-part n) @@ -2761,7 +2870,7 @@ "(random) (random seed) - Function generate new random real number using Knuth algorithm." + Function that generates new random real number using Knuth algorithm." (if (pair? new-seed) (set! seed (car new-seed)) (set! seed (modulo (+ (* seed a) c) m))) @@ -2771,7 +2880,7 @@ (define (eof-object? obj) "(eof-object? arg) - Function check if value is eof object, returned from input string + Checks if value is eof object, returned from input string port when there are no more data to read." (eq? obj eof)) @@ -2779,14 +2888,14 @@ (define (output-port? obj) "(output-port? arg) - Function return true if argument is output port." + Returns true if argument is output port." (instanceof lips.OutputPort obj)) ;; ----------------------------------------------------------------------------- (define (input-port? obj) "(input-port? arg) - Function return true if argument is input port." + Returns true if argument is input port." (instanceof lips.InputPort obj)) ;; ----------------------------------------------------------------------------- @@ -2794,7 +2903,7 @@ "(char-ready?) (char-ready? port) - Function check it characters is ready in input port. This is usefull mostly + Checks if characters is ready in input port. This is useful mostly for interactive ports that return false if it would wait for user input. It return false if port is closed." (let ((port (if (null? rest) (current-input-port) (car rest)))) @@ -2807,7 +2916,7 @@ (lambda(filename) "(open-input-file filename) - Function return new Input Port with given filename. In Browser user need to + Returns new Input Port with given filename. In Browser user need to provide global fs variable that is instance of FS interface." (new lips.InputFilePort (%read-file false filename) filename)))) @@ -2853,15 +2962,13 @@ (finally (close-output-port p))))) -;; ----------------------------------------------------------------------------- -(define (with-input-from-file string thunk) - "(with-input-from-file string thunk) +(define (with-input-from-port port thunk) + "(with-input-from-port port thunk) - Procedure open file and make it current-input-port then thunk is executed. - After thunk is executed current-input-port is restored and file port + Procedure use port and make it current-input-port then thunk is executed. + After thunk is executed current-input-port is restored and given port is closed." - (let* ((port (open-input-file string)) - (env **interaction-environment**) + (let* ((env **interaction-environment**) (internal-env (env.get '**internal-env**)) (old-stdin (internal-env.get "stdin"))) (internal-env.set "stdin" port) @@ -2871,6 +2978,24 @@ (internal-env.set "stdin" old-stdin) (close-input-port port))))) +;; ----------------------------------------------------------------------------- +(define (with-input-from-file string thunk) + "(with-input-from-file string thunk) + + Procedure open file and make it current-input-port then thunk is executed. + After thunk is executed current-input-port is restored and file port + is closed." + (with-input-from-port (open-input-file string) thunk)) + +;; ----------------------------------------------------------------------------- +(define (with-input-from-string string thunk) + "(with-input-from-string string thunk) + + Procedure open string and make it current-input-port then thunk is executed. + After thunk is executed current-input-port is restored and string port + is closed." + (with-input-from-port (open-input-string string) thunk)) + ;; ----------------------------------------------------------------------------- (define (with-output-to-file string thunk) (let* ((port (open-output-file string)) @@ -2903,7 +3028,7 @@ (lambda (filename) "(open-output-file filename) - Function open file and return port that can be used for writing. If file + Function that opens file and return port that can be used for writing. If file exists it will throw an Error." (typecheck "open-output-file" filename "string") (if (not (procedure? open)) @@ -2916,8 +3041,8 @@ (define (scheme-report-environment version) "(scheme-report-environment version) - Function return new Environment object for given Scheme Spec version. - Only argument 5 is supported that create environemnt for R5RS." + Returns new Environment object for given Scheme Spec version. + Only argument 5 is supported that create environment for R5RS." (typecheck "scheme-report-environment" version "number") (case version ((5) (%make-env "R5RS" * + - / < <= = > >= abs acos and angle append apply asin assoc assq assv @@ -2952,7 +3077,7 @@ ;; Implementation of byte vector functions - SRFI-4 and SRFI-160 ;; ;; original code was based on https://small.r7rs.org/wiki/NumericVectorsCowan/17/ -;; latest verion is defined in +;; latest version is defined in ;; https://srfi.schemers.org/srfi-160/srfi-160.html ;; ;; it uses JavaScript typed arrays @@ -2966,8 +3091,8 @@ (define-macro (%make-vector prefix type help) "(%make-vector prefix type help) - Mega helper macro that create list of functions for single byte vector - based on typed array from JavaScript" + Mega-helper macro that creates a list of functions for single byte vectors + based on typed arrays from JavaScript." (letrec ((prefix-str (symbol->string prefix)) (type-str (symbol->string type)) (l-type (--> type-str (toLowerCase))) @@ -3018,7 +3143,7 @@ (define (,vector? x) ,(format "(~a x) - Function return #t of argument is ~a otherwise it return #f." + Returns #t of argument is ~a otherwise it return #f." vector? help) (and (object? x) (equal? (. x 'constructor) ,type))) @@ -3026,7 +3151,7 @@ (define (,vector-in-range? vector k) ,(format "(~a vector k) - Function test if index is range for ~a." + Function that tests if index is range for ~a." vector-in-range? help) (typecheck ,(symbol->string vector-in-range?) vector ,l-type) @@ -3037,7 +3162,7 @@ (define (,vector-ref vector k) ,(format "(~a vector k) - Function return value frome vector at index k. If index is out of range it throw exception." + Returns value from vector at index k. If index is out of range it throw exception." vector-ref help) (typecheck ,(symbol->string vector-ref) vector ,l-type) @@ -3077,14 +3202,14 @@ (string-append ,repr-str (repr (,vector->list x) _quote)))) ))) ;; ----------------------------------------------------------------------------- -(%make-vector u8 Uint8Array "usigned 8-bit integer vector") -(%make-vector s8 Int8Array "signed 8-bit integer vector") -(%make-vector u16 Uint16Array "usigned 16-bit integer vector") -(%make-vector s16 Int16Array "signed 16-bit integer vector") -(%make-vector u32 Uint16Array "usigned 32-bit integer vector") -(%make-vector s32 Int16Array "signed 32-bit integer vector") -(%make-vector f32 Float32Array "32-bit IEEE floating point number vector") -(%make-vector f64 Float64Array "64-bit IEEE floating point number vector") +(%make-vector u8 Uint8Array "unsigned 8-bit integer vector (C unsigned char)") +(%make-vector s8 Int8Array "signed 8-bit integer vector (C signed char)") +(%make-vector u16 Uint16Array "unsigned 16-bit integer vector (C unsigned short)") +(%make-vector s16 Int16Array "signed 16-bit integer vector (C short)") +(%make-vector u32 Uint32Array "unsigned 32-bit integer vector (C int)") +(%make-vector s32 Int32Array "signed 32-bit integer vector (C unsigned int)") +(%make-vector f32 Float32Array "32-bit IEEE-754 floating point number vector (C float)") +(%make-vector f64 Float64Array "64-bit IEEE-754 floating point number vector (C double)") ;;vector->[type]vector! ;;list->[type]vector! @@ -3110,7 +3235,7 @@ (define (list-match? predicate list) "(list-match? predicate list) - Function check if consecutive elements of the list match the predicate function." + Checks if consecutive elements of the list match the predicate function." (typecheck "list-match?" predicate #("function" "macro")) (typecheck "list-match?" list "pair") (or (or (null? list) @@ -3122,7 +3247,7 @@ (define (symbol=? . args) "(symbol=? s1 s2 ...) - Function check if each value is symbol and it's the same acording to string=? predicate." + Checks if each value is symbol and it's the same according to string=? predicate." (list-match? (lambda (a b) (and (symbol? a) (symbol? b) (equal? a b))) args)) @@ -3133,7 +3258,7 @@ (define (values-ref values n) "(values-ref values n) - Function return n value of values object which is result of value function." + Returns n value of values object which is result of value function." (typecheck "values-ref" values "values" 1) (typecheck "values-ref" n "number" 1) (--> values (valueOf) n)) @@ -3157,7 +3282,7 @@ (define (vector-append . args) "(vector-append v1 v2 ...) - Function return new vector by combining it's arguments that should be vectors." + Returns new vector by combining it's arguments that should be vectors." (if (null? args) (vector) (begin @@ -3168,7 +3293,7 @@ (define-macro (%range-function spec . body) "(%range-function spec . body) - Macro that creates R7RS vector functions that have range start end." + Creates R7RS vector functions that have range start end." (let* ((name (car spec)) (name-str (symbol->string name)) (args (append (cdr spec) 'rest))) @@ -3192,7 +3317,7 @@ (vector->list vector start) (vector->list vector start end) - Function copy given range of vector to list. If no start is specified it use + Function that copies given range of vector to list. If no start is specified it use start of the vector, if no end is specified it convert to the end of the vector." (typecheck "vector->list" vector "array") (array->list (vector.slice start end))) @@ -3204,7 +3329,7 @@ (string->list string start) (string->list string start end) - Function copy given range of string to list. If no start is specified it use + Function that copies given range of string to list. If no start is specified it use start of the string, if no end is specified it convert to the end of the string." (typecheck "string->vector" string "string") (--> (string.substring start end) @@ -3218,7 +3343,7 @@ (vector->string vector start) (vector->string vector start end) - Function return new string created from vector of characters in given range. + Returns new string created from vector of characters in given range. If no start is given it create string from 0, if no end is given it return string to the end." (typecheck "vector->string" vector "array") @@ -3327,7 +3452,7 @@ (define (boolean=? . args) "(boolean=? b1 b2 ...) - Function check if all arguments are boolean and if they are the same." + Checks if all arguments are boolean and if they are the same." (if (< (length args) 2) (error "boolean=?: too few arguments") (reduce (lambda (acc item) @@ -3339,7 +3464,7 @@ (define (port? x) "(port? x) - Function return true of argumet is nput or output port port object." + Returns true if the argument is an input or output port object." (or (output-port? x) (input-port? x))) ;; ----------------------------------------------------------------------------- @@ -3357,7 +3482,7 @@ (begin result1 result2 ...)))) "(when test body ...) - Macro execute body when test expression is true.") + Executes body when test expression is true.") ;; ----------------------------------------------------------------------------- (define-syntax unless @@ -3367,7 +3492,7 @@ (begin result1 result2 ...)))) "(unless test body ...) - Macro execute body when test expression is false.") + Executes body when test expression is false.") ;; ----------------------------------------------------------------------------- (define inexact exact->inexact) @@ -3377,7 +3502,7 @@ (define (exact-integer? n) "(exact-integer? n) - Function returns #t if z is both exact and an integer; otherwise + Returns #t if z is both exact and an integer; otherwise returns #f." (and (integer? n) (exact? n))) @@ -3385,7 +3510,7 @@ (define (vector-map fn . rest) "(vector-map fn vector1 vector2 ...) - Function return new vector from applying function fn to each element + Returns new vector from applying function fn to each element of the vectors, similar to map for lists." (if (or (= (length rest) 0) (not (every vector? rest))) (error "vector-map: function require at least 1 vector") @@ -3401,7 +3526,7 @@ (define (string-map fn . rest) "(string-map fn string1 stringr2 ...) - Function return new string from applying function fn to each element + Returns new string from applying function fn to each element of the strings, similar to map for lists." (if (or (= (length rest) 0) (not (every string? rest))) (error "string-map: function require at least 1 string") @@ -3411,11 +3536,12 @@ (define (dynamic-wind before thunk after) "(dynamic-wind before thunk after) - Function accept 3 procedures/lambdas and execute thunk with before and always - after even if error accur" + Accepts 3 procedures/lambdas and executes before, then thunk, and + always after even if an error occurs in thunk." (before) (let ((result (try (thunk) (catch (e) + (after) (error e))))) (after) result)) @@ -3441,7 +3567,7 @@ (lambda args #f)))) ((define-values (var) expr) (define var expr)) - ((define-values (var0 var1 ... varn) expr) + ((define-values (var0 var1 ... warn) expr) (begin (define var0 (call-with-values (lambda () expr) @@ -3450,11 +3576,11 @@ (let ((v (cadr var0))) (set-cdr! var0 (cddr var0)) v)) ... - (define varn + (define warn (let ((v (cadr var0))) (set! var0 (car var0)) v)))) - ((define-values (var0 var1 ... . varn) expr) + ((define-values (var0 var1 ... . warn) expr) (begin (define var0 (call-with-values (lambda () expr) @@ -3463,7 +3589,7 @@ (let ((v (cadr var0))) (set-cdr! var0 (cddr var0)) v)) ... - (define varn + (define warn (let ((v (cdr var0))) (set! var0 (car var0)) v)))) @@ -3473,14 +3599,14 @@ list)))) "(define-values (a b ...) expr) - Function evaluate expression expr and if it evaluates to result of values + Evaluates expression expr and if it evaluates to result of values then it will defined each value as variable like with define.") ;; ----------------------------------------------------------------------------- (define-macro (include . files) "(include file ...) - Macro that load at least one file content and insert them into one, + Load at least one file content and insert them into one, body expression." (if (null? files) (throw (new Error "include: at least one file path required")) @@ -3652,7 +3778,7 @@ (bytevector-copy v start) (bytevector-copy v start end) - Function and return new vector from start to end. If no start and end is provided + Returns a new vector from start to end. If no start and end is provided whole vector is copied and returned." (if (null? rest) (new Uint8Array v) @@ -3696,7 +3822,7 @@ (string->utf8 string start) (string->utf8 string start end) - Function converts string into u8 bytevector using utf8 encoding. + Converts string into u8 bytevector using utf8 encoding. The start and end is the range of the input string for the conversion." (typecheck "string->utf8" string "string") (if (null? rest) @@ -3714,7 +3840,7 @@ (utf8->string u8vector start) (utf8->string u8vector start end) - Function converts u8 bytevector into string using utf8 encoding. + Converts u8 bytevector into string using utf8 encoding. The start and end is the range of the input byte vector for the conversion." (typecheck "utf8->string" v "uint8array") (if (null? rest) @@ -3728,7 +3854,7 @@ (define (open-input-string string) "(open-input-string string) - Function create new string port as input that can be used to + Creates new string port as input that can be used to read S-exressions from this port using `read` function." (typecheck "open-input-string" string "string") (new lips.InputStringPort string (interaction-environment))) @@ -3737,7 +3863,7 @@ (define (open-output-string) "(open-output-string) - Function create new output port that can used to write string into + Creates new output port that can used to write string into and after finish get the whole string using `get-output-string`." (new lips.OutputStringPort repr)) @@ -3754,7 +3880,7 @@ (define (get-output-bytevector port) "(get-output-string port) - Function get full string from string port. If nothing was wrote + Gets full string from string port. If nothing was wrote to given port it will return empty string." (if (not (instanceof lips.OutputByteVectorPort port)) (throw (new Error (string-append @@ -3766,7 +3892,7 @@ (define (get-output-string port) "(get-output-string port) - Function get full string from string port. If nothing was wrote + Gets full string from string port. If nothing was wrote to given port it will return empty string." (if (not (instanceof lips.OutputStringPort port)) (throw (new Error (string-append "get-output-string: expecting output-string-port get " @@ -3785,7 +3911,7 @@ (define (open-binary-input-file filename) "(open-binary-input-file filename) - Function return new Input Binary Port with given filename. In Browser + Returns new Input Binary Port with given filename. In Browser user need to provide global fs variable that is instance of FS interface." (let ((u8vector (buffer->u8vector (%read-binary-file filename)))) (new lips.InputBinaryFilePort u8vector filename))) @@ -3794,14 +3920,14 @@ (define (binary-port? port) "(binary-port? port) - Function test if argument is binary port." + Function that tests if argument is binary port." (and (port? port) (eq? port.__type__ (Symbol.for "binary")))) ;; ----------------------------------------------------------------------------- (define (textual-port? port) "(textual-port? port) - Function test if argument is string port." + Function that tests if argument is string port." (and (port? port) (eq? port.__type__ (Symbol.for "text")))) ;; ----------------------------------------------------------------------------- @@ -3914,7 +4040,7 @@ (lambda (filename) "(open-binary-output-file filename) - Function open file and return port that can be used for writing. If file + Opens file and return port that can be used for writing. If file exists it will throw an Error." (typecheck "open-output-file" filename "string") (if (not (procedure? open)) @@ -3930,7 +4056,7 @@ (read-bytevector! bytevector port start) (read-bytevector! bytevector port start end) - Function read next bytes from binary input port and write them into byte vector. + Reads next bytes from binary input port and write them into byte vector. if not start is specified it start to write into 0 position of the vector until the end or end the vector if no end is specified." (typecheck "read-bytevector!" vector "uint8array") @@ -3954,7 +4080,7 @@ (lambda (filename) "(delete-file filename) - Function delete the file of given name." + Deletes the file of given name." (typecheck "delete-file" filename "string") (if (not (procedure? unlink)) (set! unlink (%fs-promisify-proc 'unlink "delete-file"))) @@ -3990,21 +4116,21 @@ (define (output-port-open? port) "(output-port-open? port) - Function check if argument is output-port and if you can write to it." + Checks if argument is output-port and if you can write to it." (and (output-port? port) (port.is_open))) ;; ----------------------------------------------------------------------------- (define (input-port-open? port) "(input-port-open? port) - Function check if argument is input-port and if you can read from it." + Checks if argument is input-port and if you can read from it." (and (input-port? port) (port.is_open))) ;; ----------------------------------------------------------------------------- (define (flush-output-port port) "(flush-output-port port) - Functio do nothing, flush is not needed in LIPS in both NodeJS and Browser. + Function do nothing, flush is not needed in LIPS in both NodeJS and Browser. The function is added, so it don't throw exception when using R7RS code." (if #f #f)) @@ -4129,7 +4255,7 @@ (define (nan? x) "(nan? x) - Function check if argument x is Not a Number (NaN) value." + Checks if argument x is Not a Number (NaN) value." (and (number? x) (or (x.isNaN) (and (%number-type "complex" x) @@ -4140,7 +4266,7 @@ (define (infinite? x) "(infinite? x) - Function check if value is infinite." + Checks if value is infinite." (or (eq? x Number.NEGATIVE_INFINITY) (eq? x Number.POSITIVE_INFINITY) (and (number? x) @@ -4153,7 +4279,7 @@ (define (finite? x) "(finite? x) - Function check if value is finite." + Checks if value is finite." (not (infinite? x))) ;; ----------------------------------------------------------------------------- @@ -4299,12 +4425,12 @@ (lambda () "(current-directory) - Return corrent working directory, default it's corrent URL." + Return current working directory, default is the current URL." cwd) (lambda (value) "(set-current-directory! string) - Function change current working directory to provided string." + Changes the current working directory to provided string." (typecheck "set-current-directory!" value "string") (set! cwd value)))) (let ((process (require "process"))) @@ -4312,13 +4438,13 @@ (lambda () "(current-directory) - Return corrent working directory, default it's path from where + Returns the current working directory, default is the path from where the script was executed." (string-append (process.cwd) "/")) (lambda (value) "(set-current-directory! string) - Function change current working directory to provided string." + Changes the current working directory to provided string." (typecheck "set-current-directory!" value "string") (process.chdir value)))))) @@ -4334,7 +4460,7 @@ (define (error-object? obj) "(error-object? obj) - Function check if object is of Error object throwed by error function." + Checks if object is of Error object thrown by error function." (instanceof lips.Error obj)) ;; ----------------------------------------------------------------------------- @@ -4357,17 +4483,17 @@ (define (get-environment-variables) "(get-environment-variables) - Function returns all variables as alist. This funtion throws exception + Returns all process environment variables as an alist. This function throws exception when called in browser." (if (eq? self window) - (throw "get-environment-variables: Node.js only funtion") + (throw "get-environment-variables: Node.js only function") (object->alist process.env))) ;; ----------------------------------------------------------------------------- (define (get-environment-variable name) "(get-environment-variable name) - Function return given environment variable. This funtion throws exception + Returns given environment variable. This function throws exception when called in browser." (. process.env name)) @@ -4389,7 +4515,7 @@ (define (current-jiffy) "(current-jiffy) - Retturn corrent jiffy. In LIPS is jiffy since start of the process. + Return current jiffy. In LIPS is jiffy since start of the process. You can divide this value by (jiffies-per-second) to get seconds since start of the process. And you can add %%start-jiffy to get jiffy since January 1, 1970." @@ -4412,7 +4538,7 @@ (resolve (BrowserFS.BFSRequire "fs")) (reject e))))))) ((not (null? self.BrowserFS)) - (console.warn (string-append "BrowserFS not initilalized " + (console.warn (string-append "BrowserFS is not initialized and " "IndexedDB is not available")) nil))) (Buffer (cond ((eq? self global) diff --git a/dist/std.xcb b/dist/std.xcb index e2da5d0ed..0437260a3 100644 Binary files a/dist/std.xcb and b/dist/std.xcb differ diff --git a/dist/std.xcm b/dist/std.xcm index 5c69b7780..8e7226b75 100644 --- a/dist/std.xcm +++ b/dist/std.xcm @@ -1 +1 @@ -[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%doc"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"%doc"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":4,"#":"function"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"%doc"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"__doc__"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"replace"},{"@":0,"#":[{},{"@":0,"#":[{"@":4,"#":""},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let-syntax"},{"@":0,"#":[{"@":3,"#":"vars"},{"@":3,"#":"body"}]}]},{"@":0,"#":[{"@":4,"#":"(let-syntax ((name fn)) body)\n\n Macro works like combination of let and define-syntax. It creaates\n local macros and evaluate body in context of those macros.\n The macro to letrec-syntax is like letrec is to let."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vars"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"rule"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"let-syntax"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rule"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"syntax"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"vars"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"letrec-syntax"},{"@":0,"#":[{"@":3,"#":"vars"},{"@":3,"#":"body"}]}]},{"@":0,"#":[{"@":4,"#":"(letrec-syntax ((name fn)) body)\n\n Macro works like combination of letrec and define-syntax. It creaates\n local macros and evaluate body in context of those macros."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"letrec"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vars"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"rule"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"letrec-syntax"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rule"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"syntax"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"vars"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":3,"#":"rest"}]}]}]},{"@":0,"#":[{"@":4,"#":"(define-syntax name expression [__doc__])\n\nMacro define new hygienic macro using syntax-rules with optional documentation"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"expr-name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"expr-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"expr-name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"define-syntax"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"expr-name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"syntax"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"expr-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quoted-symbol?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(quoted-symbol? code)\n\nHelper function that test if value is quoted symbol. To be used in macros\nthat pass literal code that is transformed by parser.\n\nusage:\n\n (define-macro (test x)\n (if (quoted-symbol? x)\n `',(cadr x)))\n\n (list 'hello (test 'world))"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"quote"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cddr"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":3,"#":"code"}]}]},{"@":0,"#":[{"@":4,"#":"Helper macro that simplify calling methods on objects. It work with chaining\n\nusage: (--> ($ \"body\")\n (css \"color\" \"red\")\n (on \"click\" (lambda () (display \"click\"))))\n\n (--> document (querySelectorAll \"div\"))\n\n (--> (fetch \"https://jcubic.pl\")\n (text)\n (match #/<title>([^<]+)<\\/title>/)\n 1)\n \n (--> document\n (querySelectorAll \".cmd-prompt\")\n 0\n 'innerHTML\n (replace #/<(\"[^\"]+\"|[^>])+>/g \"\"))\n\n (--> document.body\n (style.setProperty \"--color\" \"red\"))"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"obj"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"code"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"value"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"value"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quoted-symbol?"},{"@":0,"#":[{"@":3,"#":"code"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"code"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"code"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"code"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[true,{"@":0,"#":[{"@":3,"#":"code"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string?"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"split"},{"@":0,"#":[{"@":4,"#":"."},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"code"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quoted-symbol?"},{"@":0,"#":[{"@":3,"#":"code"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"code"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"code"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-global"},{"@":0,"#":[{"@":3,"#":"first"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(define-global var value)\n(define-global (name . args) body)\n\nMacro that define functions or variables in global context, so they can be used\ninside let and get let variables in closure, Useful for universal macros."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"first"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"first"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"lips.env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"first"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"lips.env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"first"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"globalize"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(globalize expr)\n\n Macro will get the value of the expression and add each method as function to global\n scope."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-environment"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eval"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":0,"#":[{"@":3,"#":"env"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env-name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"env-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"make-name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pre"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string->symbol"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"concat"},{"@":0,"#":[{"@":3,"#":"pre"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"string->symbol"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"filter"},{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"match"},{"@":0,"#":[{"@":3,"#":"/^_/"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"function?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-global"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"make-name"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"array->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"Object"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"keys"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"single"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(single list)\n\nFunction check if argument is list with single element"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iterator?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(iterator? x)\n\n Function check if value is JavaScript iterator object"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"object?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"procedure?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"Symbol.iterator"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":".."},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(.. foo.bar.baz)\n\nMacro that gets value from nested object where argument is comma separated symbol"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"expr"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"parts"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"split"},{"@":0,"#":[{"@":4,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"single"},{"@":0,"#":[{"@":3,"#":"parts"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"expr"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string->symbol"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"parts"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"parts"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"set-special!"},{"@":0,"#":[{"@":4,"#":"#:"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"gensym-interal"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym-interal"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(gensym-interal symbol)\n\nParser extension that create new quoted named gensym."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"plain-object?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(plain-object? x)\n\nFunction check if value is plain JavaScript object. Created using object macro."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"=="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cmp"},{"@":0,"#":[{"@":4,"#":"object"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"constructor"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"Object"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"typed-array?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"TypedArray"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Object.getPrototypeOf"},{"@":0,"#":[{"@":3,"#":"Uint8Array"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"o"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(typed-array? o)\n\nFunction test if argumnet is JavaScript typed array (Scheme byte vector)."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"instanceof"},{"@":0,"#":[{"@":3,"#":"TypedArray"},{"@":0,"#":[{"@":3,"#":"o"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"s"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(symbol->string symbol)\n\nFunction convert LIPS symbol to string."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"s"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"s.__name__"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string?"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toString"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string->symbol"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(string->symbol string)\n\nFunction convert string to LIPS symbol."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string?"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%as.data"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"lips"},{"@":0,"#":[{"@":4,"#":"LSymbol"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"alist->object"},{"@":0,"#":[{"@":3,"#":"alist"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(alist->object alist)\n\nFunction convert alist pairs to JavaScript object."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"alist"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"alist.to_object"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"alist->object"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"lips.Pair"},{"@":0,"#":[{"@":3,"#":"undefined"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"parent.frames"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(parent.frames)\n\nFuncion return list of environments from parent frames (lambda function calls)"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"frame"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"parent.frame"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"frame"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"interaction-environment"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":3,"#":"frame"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"frame"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"parent.frame"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"frame"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"parent.frame"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"object"},{"@":0,"#":[{"@":3,"#":":throwError"},{"@":0,"#":[false,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"function?"},{"@":0,"#":[{"@":3,"#":"parent.frame"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":3,"#":"frame"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"parent.frame"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair-map"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":3,"#":"seq-list"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(pair-map fn list)\n\nFunction call fn argument for pairs in a list and return combined list with\nvalues returned from function fn. It work like the map but take two items from list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"seq-list"},{"@":0,"#":[{"@":3,"#":"seq-list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"seq-list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"seq-list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"seq-list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"first"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"seq-list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"second"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"seq-list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"value"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":3,"#":"first"},{"@":0,"#":[{"@":3,"#":"second"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cddr"},{"@":0,"#":[{"@":3,"#":"seq-list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cddr"},{"@":0,"#":[{"@":3,"#":"seq-list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":3,"#":"value"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"object-expander"},{"@":0,"#":[{"@":3,"#":"readonly"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":3,"#":"rest"}]}]}]},{"@":0,"#":[{"@":4,"#":"(object-expander reaonly '(:foo (:bar 10) (:baz (1 2 3))))\n\nRecursive function helper for defining LIPS code for create objects\nusing key like syntax."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quot"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[false,{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"alist->object"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"alist->object"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair-map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key?"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"msg"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":" "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"repr"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":" is not a symbol!"},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":3,"#":"msg"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"prop"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key->string"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"prop"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"object-expander"},{"@":0,"#":[{"@":3,"#":"readonly"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"quot"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"prop"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"prop"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"readonly"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Object.freeze"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"object"},{"@":3,"#":"expr"}]},{"@":0,"#":[{"@":4,"#":"(object :name value)\n\nMacro that create JavaScript object using key like syntax."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"object-expander"},{"@":0,"#":[false,{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"catch"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":3,"#":"e.message"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"object-literal"},{"@":3,"#":"expr"}]},{"@":0,"#":[{"@":4,"#":"(object-literal :name value)\n\nMacro that create JavaScript object using key like syntax. This is similar,\nto object but all values are quoted. This macro is used with & object literal."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"object-expander"},{"@":0,"#":[true,{"@":0,"#":[{"@":3,"#":"expr"},{"@":0,"#":[true,{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"catch"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":3,"#":"e.message"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"alist->assign"},{"@":0,"#":[{"@":3,"#":"desc"},{"@":3,"#":"sources"}]}]},{"@":0,"#":[{"@":4,"#":"(alist->assign alist . list-of-alists)\n\nFunction that work like Object.assign but for LIPS alist."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"for-each"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"source"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"for-each"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"value"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"d-pair"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"assoc"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":3,"#":"desc"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"d-pair"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-cdr!"},{"@":0,"#":[{"@":3,"#":"d-pair"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"append!"},{"@":0,"#":[{"@":3,"#":"desc"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"source"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"sources"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"desc"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key?"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(key? symbol)\n\nFunction check if symbol is key symbol, have colon as first character."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"=="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"substring"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cmp"},{"@":0,"#":[{"@":4,"#":":"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key->string"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(key->string symbol)\n\nIf symbol is key it convert that to string - remove colon."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key?"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"substring"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%as.data"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(%as.data obj)\n\nMark object as data to stop evaluation."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"object?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"data"},{"@":2,"#":0}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%hidden-props"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(%hidden-props obj)\n\nFunction return hidden names of an object, for ES6 class prototype\nit return all methods since they are indistinguishable from hidden property\ncreated using defineProperty."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"descriptors"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Object.getOwnPropertyDescriptors"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"names"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Object.keys"},{"@":0,"#":[{"@":3,"#":"descriptors"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"names"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"filter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"descriptor"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"descriptors"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"descriptor.enumerable"},{"@":0,"#":[false,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"dir"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(dir obj)\n\nFunction return all props on the object including those in prototype chain."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":3,"#":"Object.prototype"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"proto"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[false,{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"names"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Object.getOwnPropertyNames"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":3,"#":"proto"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"hidden"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%hidden-props"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"names"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"names"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"filter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"hidden.includes"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"array->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"names"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unary"},{"@":0,"#":[{"@":3,"#":"string->symbol"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"dir"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Object.getPrototypeOf"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"tree-map"},{"@":0,"#":[{"@":3,"#":"f"},{"@":0,"#":[{"@":3,"#":"tree"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(tree-map fn tree)\n\nTree version of map. Function is invoked on every leaf."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"tree"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"tree-map"},{"@":0,"#":[{"@":3,"#":"f"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"tree"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"tree-map"},{"@":0,"#":[{"@":3,"#":"f"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"tree"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"f"},{"@":0,"#":[{"@":3,"#":"tree"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"native.number"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(native.number obj)\n\nIf argument is number it will convert to native number."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"value"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"value"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(value obj)\n\nFunction unwrap LNumbers and convert nil value to undefined."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"undefined"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":4,"#":"valueOf"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-formatter-rule"},{"@":3,"#":"patterns"}]},{"@":0,"#":[{"@":4,"#":"(rule-pattern pattern)\n\nAnaphoric Macro for defining patterns for formatter. With Ahead, Pattern and * defined values."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"rules"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"rules"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"rules"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"lips.Formatter.rules"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Ahead"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pattern"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Ahead"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":".."},{"@":0,"#":[{"@":3,"#":"lips.Formatter.Ahead"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Ahead"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string?"},{"@":0,"#":[{"@":3,"#":"pattern"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"RegExp"},{"@":0,"#":[{"@":3,"#":"pattern"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"pattern"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Symbol.for"},{"@":0,"#":[{"@":4,"#":"*"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Pattern"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pattern"},{"@":0,"#":[{"@":3,"#":"flag"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"lips.Formatter.Pattern"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->array"},{"@":0,"#":[{"@":3,"#":"pattern"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"flag"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"undefined"},{"@":0,"#":[{"@":3,"#":"flag"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pattern"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"rules"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"push"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"tree->array"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"tree-map"},{"@":0,"#":[{"@":3,"#":"native.number"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"pattern"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"patterns"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"=>"},{"@":0,"#":[{"@":3,"#":"else"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":3,"#":"else1"},{"@":0,"#":[{"@":3,"#":"else2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[true,{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"else1"},{"@":0,"#":[{"@":3,"#":"else2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"test"},{"@":0,"#":[{"@":3,"#":"=>"},{"@":0,"#":[{"@":3,"#":"receiver"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clause"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"t"},{"@":0,"#":[{"@":3,"#":"test"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond/maybe-more"},{"@":0,"#":[{"@":3,"#":"t"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"receiver"},{"@":0,"#":[{"@":3,"#":"t"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"more-clause"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"generator"},{"@":0,"#":[{"@":3,"#":"guard"},{"@":0,"#":[{"@":3,"#":"=>"},{"@":0,"#":[{"@":3,"#":"receiver"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clause"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"call-with-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":3,"#":"generator"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":3,"#":"t"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond/maybe-more"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"guard"},{"@":0,"#":[{"@":3,"#":"t"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"receiver"},{"@":0,"#":[{"@":3,"#":"t"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clause"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"test"},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"more-clause"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"t"},{"@":0,"#":[{"@":3,"#":"test"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond/maybe-more"},{"@":0,"#":[{"@":3,"#":"t"},{"@":0,"#":[{"@":3,"#":"t"},{"@":0,"#":[{"@":3,"#":"more-clause"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"test"},{"@":0,"#":[{"@":3,"#":"body1"},{"@":0,"#":[{"@":3,"#":"body2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clause"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond/maybe-more"},{"@":0,"#":[{"@":3,"#":"test"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body1"},{"@":0,"#":[{"@":3,"#":"body2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clause"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(cond (predicate? . body)\n (predicate? . body)\n (else . body))\n\nMacro for condition checks. For usage instead of nested ifs."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"cond/maybe-more"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond/maybe-more"},{"@":0,"#":[{"@":3,"#":"test"},{"@":0,"#":[{"@":3,"#":"consequent"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"test"},{"@":0,"#":[{"@":3,"#":"consequent"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond/maybe-more"},{"@":0,"#":[{"@":3,"#":"test"},{"@":0,"#":[{"@":3,"#":"consequent"},{"@":0,"#":[{"@":3,"#":"clause"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"test"},{"@":0,"#":[{"@":3,"#":"consequent"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":3,"#":"clause"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(cond/maybe-more test consequent ...)\n\nHelper macro used by cond."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":3,"#":"list"}]},{"@":0,"#":[{"@":4,"#":"(cond (predicate? . body)\n (predicate? . body))\nMacro for condition check. For usage instead of nested ifs."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"item"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"first"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"item"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"forms"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"item"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"rest"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"first"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"forms"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caar"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caar"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"else"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdar"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%r"},{"@":0,"#":[{"@":3,"#":"re"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(%r re)\n\nCreate new regular expression from string, to not break Emacs formatting"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"RegExp"},{"@":0,"#":[{"@":3,"#":"re"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"RegExp"},{"@":0,"#":[{"@":3,"#":"re"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"interaction-environment"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(interaction-environment)\n\nFunction return interaction environement equal to lips.env can be overwritten,\nwhen creating new interpreter with lips.Interpreter."},{"@":0,"#":[{"@":3,"#":"**interaction-environment**"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-output-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(current-output-port)\n\nFunction return default stdout port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let-env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"interaction-environment"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"stdout"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-error-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(current-output-port)\n\nFunction return default stdout port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let-env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"interaction-environment"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"stderr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-input-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"current-input-port)\n\nFunction return default stdin port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let-env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"interaction-environment"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"stdin"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"regex?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(regex? x)\n\nFunction return true of value is regular expression, it return false otherwise."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"=="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cmp"},{"@":0,"#":[{"@":4,"#":"regex"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-repr!"},{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(add-repr! type fn)\n\nFunction add string represention to the type, which should be constructor function.\n\nFunction fn should have args (obj q) and it should return string, obj is vlaue that\nneed to be converted to string, if the object is nested and you need to use `repr`,\nit should pass second parameter q to repr, so string will be quoted when it's true.\n\ne.g.: (lambda (obj q) (string-append \"<\" (repr obj q) \">\"))"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"add-repr!"},{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":4,"#":"function"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"add-repr!"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":4,"#":"function"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"ignore"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"lips.repr"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set"},{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unset-repr!"},{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(unset-repr! type)\n\nFunction remove string represention to the type, which should be constructor function,\nadded by add-repr! function."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"unset-repr!"},{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":4,"#":"function"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"ignore"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"lips.repr"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"delete"},{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"set-special!"},{"@":0,"#":[{"@":4,"#":"&"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"object-literal"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"lips.specials.SPLICE"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"set-repr!"},{"@":0,"#":[{"@":3,"#":"Object"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"q"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"concat"},{"@":0,"#":[{"@":4,"#":"&("},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Object.getOwnPropertyNames"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"concat"},{"@":0,"#":[{"@":4,"#":":"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":4,"#":" "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"repr"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"q"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"join"},{"@":0,"#":[{"@":4,"#":" "},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":")"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bound?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(bound? x [env])\n\nFunction check if variable is defined in given environement or interaction environment\nif not specified."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"interaction-environment"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"catch"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]},{"@":0,"#":[false,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"environment-bound?"},{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(environment-bound? env symbol)\n\nFunction check if symbol is bound variable similar to bound?."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"environment-bound?"},{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":4,"#":"environment"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"environment-bound?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":4,"#":"symbol"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bound?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"env"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"qsort"},{"@":0,"#":[{"@":3,"#":"e"},{"@":0,"#":[{"@":3,"#":"predicate"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(qsort list predicate)\n\nSort the list using quick sort alorithm according to predicate."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"e"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"loop"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"left"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"right"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pivot"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"rest"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"qsort"},{"@":0,"#":[{"@":3,"#":"left"},{"@":0,"#":[{"@":3,"#":"predicate"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":3,"#":"pivot"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"qsort"},{"@":0,"#":[{"@":3,"#":"right"},{"@":0,"#":[{"@":3,"#":"predicate"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"predicate"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"pivot"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"loop"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"append"},{"@":0,"#":[{"@":3,"#":"left"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"right"},{"@":0,"#":[{"@":3,"#":"pivot"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"loop"},{"@":0,"#":[{"@":3,"#":"left"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"append"},{"@":0,"#":[{"@":3,"#":"right"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"pivot"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"sort"},{"@":0,"#":[{"@":3,"#":"list"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(sort list [predicate])\n\nSort the list using optional predicate function. if not function is specified\nit will use <= and sort in increasing order."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"predicate"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"<="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"sort"},{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":4,"#":"pair"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"sort"},{"@":0,"#":[{"@":3,"#":"predicate"},{"@":0,"#":[{"@":4,"#":"function"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"qsort"},{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":3,"#":"predicate"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"every"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(every fn list)\n\nFunction call function fn on each item of the list, if every value is true\nit will return true otherwise it return false."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":0,"#":[true,{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"every"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"promise"},{"@":3,"#":"body"}]},{"@":0,"#":[{"@":4,"#":"(promise . body)\n\nAnaphoric macro that expose resolve and reject functions from JS promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":3,"#":"reject"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"catch"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":3,"#":"e.message"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"timer"},{"@":0,"#":[{"@":3,"#":"time"},{"@":3,"#":"body"}]}]},{"@":0,"#":[{"@":4,"#":"(timer time . body)\n\nMacro evaluate expression after delay, it return timer. To clear the timer you can use\nnative JS clearTimeout function."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"setTimeout"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"catch"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":".."},{"@":0,"#":[{"@":3,"#":"e.message"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"time"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"wait"},{"@":0,"#":[{"@":3,"#":"time"},{"@":3,"#":"expr"}]}]},{"@":0,"#":[{"@":4,"#":"(wait time . expr)\n\nFunction return promise that will resolve with evaluating the expression after delay."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"timer"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"time"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"await"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(await value)\n\nFunction unquote quoted promise so it can be automagicaly evaluated (resolved\nto its value)."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"instanceof"},{"@":0,"#":[{"@":3,"#":"lips.QuotedPromise"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"value.valueOf"},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote-promise"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(quote-promise expr)\n'>expr\n\nMacro used to escape promise the whole expression, will be wrapped\nwith JavaScript class that behave like Promise but will not\nauto resolve like normal promise."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env"},{"@":2,"#":0}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-environment"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env.set"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Symbol.for"},{"@":0,"#":[{"@":4,"#":"__promise__"},{"@":2,"#":0}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"defmacro?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(defmacro? expression)\n\nFunction check if object is macro and it's expandable."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"macro?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"defmacro"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"n-ary"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(n-ary n fn)\n\nReturn new function that limit number of arguments to n."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"take"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"take"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":3,"#":"lst"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(take n list)\n\nReturn n first values of the list."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lst"},{"@":0,"#":[{"@":3,"#":"lst"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"lst"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<="},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"reverse"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"lst"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"lst"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"unary"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%doc"},{"@":0,"#":[{"@":4,"#":"(unary fn)\n\nFunction return new function with arguments limited to one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"curry"},{"@":0,"#":[{"@":3,"#":"n-ary"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%doc"},{"@":0,"#":[{"@":4,"#":"(binary fn)\n\nFunction return new function with arguments limited to two."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"curry"},{"@":0,"#":[{"@":3,"#":"n-ary"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%class-lambda"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(class-lambda expr)\n\nReturn lambda expression where input expression lambda have `this` as first argument."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"this"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%class-lambda"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(%class-lambda expr)\n\nDefine lambda that have self is first argument. The expr is in a form:\n(constructor (lambda (self ...) . body)) as given by define-class macro."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdadadr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"this"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%class-method-name"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(%class-method-name expr)\n\nHelper function that allow to use [Symbol.asyncIterator] inside method name."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"quote"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-class"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"parent"},{"@":3,"#":"body"}]}]}]},{"@":0,"#":[{"@":4,"#":"(define-class name parent . body)\n\nDefine class - JavaScript function constructor with prototype.\n\nusage:\n\n (define-class Person Object\n (constructor (lambda (self name)\n (set-obj! self '_name name)))\n (hi (lambda (self)\n (display (string-append self._name \" say hi\"))\n (newline))))\n (define jack (new Person \"Jack\"))\n (jack.hi)"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"functions"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"constructor"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lst"},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"lst"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"constructor"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%class-lambda"},{"@":0,"#":[{"@":3,"#":"constructor"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Symbol.for"},{"@":0,"#":[{"@":4,"#":"__class__"},{"@":2,"#":0}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"parent"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"parent"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"Object"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"prototype"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Object.create"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"parent"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"prototype"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"prototype"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"constructor"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"prototype"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%class-method-name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%class-lambda"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"functions"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"item"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"lst"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"item"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"constructor"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":3,"#":"functions"},{"@":0,"#":[{"@":3,"#":"item"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"lst"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":3,"#":"item"},{"@":0,"#":[{"@":3,"#":"functions"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"constructor"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"lst"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"class"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":4,"#":"class: parent required"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":3,"#":"parent"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-class"},{"@":0,"#":[{"@":3,"#":"temp"},{"@":0,"#":[{"@":3,"#":"parent"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"temp"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(class <parent> body ...)\n\nMacro allow to create anonymous classes. See define-class for details."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"make-tags"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(make-tags expression)\n\nFunction that return list structure of code with better syntax then raw LIPS"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"h"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"val"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key?"},{"@":0,"#":[{"@":3,"#":"val"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key->string"},{"@":0,"#":[{"@":3,"#":"val"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"val"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"alist->object"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair-map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"cdr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key->string"},{"@":0,"#":[{"@":3,"#":"car"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"unquote"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"cdr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cddr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caddr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"s"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caaddr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"s"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"s"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->array"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":3,"#":"make-tags"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdaddr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caddr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%sxml"},{"@":0,"#":[{"@":3,"#":"h"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(%sxml h expr)\n\nHelper function that render expression using create element function."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"have-attrs"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caadr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"@"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"attrs"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"have-attrs"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdadr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"rest"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"have-attrs"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cddr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"h"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-lower-case?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string->list"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"alist->object"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"unquote"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"attrs"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"first"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"first"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%sxml"},{"@":0,"#":[{"@":3,"#":"h"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":3,"#":"first"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pragma->sxml"},{"@":0,"#":[{"@":3,"#":"pragma"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"sxml"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(sxml expr)\n\nMacro for JSX like syntax but with SXML.\ne.g. usage:\n\n(sxml (div (@ (data-foo \"hello\")\n (id \"foo\"))\n (span \"hello\")\n (span \"world\")))"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%sxml"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"pragma"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"pragma->sxml"},{"@":0,"#":[{"@":3,"#":"h"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"with-tags"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(with-tags expression)\n\nMacro that evalute LIPS shorter code for S-Expression equivalent of JSX.\ne.g.:\n\n(with-tags (:div (:class \"item\" :id \"item-1\")\n (list (:span () \"Random Item\")\n (:a (:onclick (lambda (e) (alert \"close\")))\n \"close\"))))\n\nAbove expression can be passed to function that renders JSX (like render in React, Preact)\nTo get the string from the macro you can use vhtml library from npm."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"make-tags"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get-script"},{"@":0,"#":[{"@":3,"#":"url"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(get-script url)\n\nLoad JavaScript file in browser by adding script tag to head of the current document."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bound?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"document"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"get-script: document not defined"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"script"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"document.createElement"},{"@":0,"#":[{"@":4,"#":"script"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":3,"#":"reject"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"script"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"src"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"url"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"script"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"onload"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"script"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"onerror"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"reject"},{"@":0,"#":[{"@":4,"#":"get-script: Failed to load"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"document.head"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"document.head.appendChild"},{"@":0,"#":[{"@":3,"#":"script"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym?"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(gensym? value)\n\nFunction return #t if value is symbol and it's gensym. It returns #f otherwise."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"value"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"is_gensym"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"degree->radians"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(degree->radians x)\n\nConvert degree to radians."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"/"},{"@":0,"#":[{"@":3,"#":"Math.PI"},{"@":0,"#":[{"@":1,"#":"180"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"radians->degree"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(radians->degree x)\n\nConvert radians to degree."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"/"},{"@":0,"#":[{"@":1,"#":"180"},{"@":0,"#":[{"@":3,"#":"Math.PI"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"while"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":3,"#":"predicate"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"do"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":3,"#":"predicate"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(while cond . body)\n\nMacro that create a loop, it exectue body until cond expression is false."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"++"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"++"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"tmp"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"+"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"tmp"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"tmp"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(++ variable)\n\nMacro that work only on variables and increment the value by one."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"--"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"--"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"tmp"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"tmp"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"tmp"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(-- variable)\n\nMacro that decrement the value it work only on symbols"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pretty-format"},{"@":3,"#":"lists"}]},{"@":0,"#":[{"@":4,"#":"(pretty-format pair)\n\nFunction return pretty printed string from pair expression."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"code"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->vector"},{"@":0,"#":[{"@":3,"#":"lists"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"pretty-pair"},{"@":0,"#":[{"@":3,"#":"pair"},{"@":0,"#":[{"@":4,"#":"pair"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"repr"},{"@":0,"#":[{"@":3,"#":"pair"},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"join"},{"@":0,"#":[{"@":4,"#":""},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"lips.Formatter"},{"@":0,"#":[{"@":3,"#":"code"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"break"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"reset"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(reset)\n\nFunction reset environment and remove all user defined variables."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let-env"},{"@":0,"#":[{"@":3,"#":"**interaction-environment**"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"defaults"},{"@":0,"#":[{"@":3,"#":"**interaction-environment-defaults**"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":3,"#":"**interaction-environment**"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"forEach"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"defaults"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"includes"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unset"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"make-list"},{"@":0,"#":[{"@":3,"#":"n"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"integer?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<="},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"make-list: first argument need to be integer larger then 0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fill"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"undefined"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"array->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Array"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fill"},{"@":0,"#":[{"@":3,"#":"fill"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"range"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(range n)\n\nFunction return list of n numbers from 0 to n - 1"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"range"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"array->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Array"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fill"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"do-iterator"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":0,"#":[{"@":3,"#":"cond"},{"@":3,"#":"body"}]}]}]},{"@":0,"#":[{"@":4,"#":"(do-iterator (var expr) (test) body ...)\n\nMacro iterate over iterators (e.g. create with JavaScript generator function)\nit works with normal and async iterators. You can loop over infinite iterators\nand break the loop if you want, using expression like in do macro, long sync iterators\nwill block main thread (you can't print 1000 numbers from inf iterators,\nbecause it will freeze the browser), but if you use async iterators you can process\nthe values as they are generated."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gen"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"async"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"async"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"sync"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"sync"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iterator"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"iterator"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"test"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"cond"},{"@":2,"#":0}]}]},{"@":0,"#":[false,{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"cond"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"next"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"next"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"stop"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"stop"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"item"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"item"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"gen"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"sync"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"gen"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"Symbol.iterator"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"async"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"gen"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"Symbol.asyncIterator"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"iterator"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"next"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"iterator"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"next"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"procedure?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"sync"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"procedure?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"async"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"iterator"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"procedure?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"sync"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"sync"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"async"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"item"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"next"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"stop"},{"@":2,"#":0}]}]},{"@":0,"#":[false,{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"item"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"value"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"while"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"item"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"done"},{"@":2,"#":0}]}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"stop"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"test"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"stop"},{"@":2,"#":0}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"item"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"next"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"item"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"value"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"set-repr!"},{"@":0,"#":[{"@":3,"#":"Set"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":4,"#":"#<Set>"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"set-repr!"},{"@":0,"#":[{"@":3,"#":"Map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":4,"#":"#<Met>"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"native-symbol?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(native-symbol? object)\n\nFunction check if value is JavaScript symbol."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"symbol"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"set-special!"},{"@":0,"#":[{"@":4,"#":"’"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"warn-quote"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"warn-quote"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(warn-quote)\n\nSimple macro that throw error, when you try to use ’ symbol as quote in code"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"You're using invalid quote character run: "},{"@":0,"#":[{"@":4,"#":"(set-special! \"’\" 'quote)"},{"@":0,"#":[{"@":4,"#":" to allow running this type of quote"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let-env-values"},{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":3,"#":"body"}]}]}]},{"@":0,"#":[{"@":4,"#":"(let-env-values env ((name var)) . body)\n\nMacro add mapping for variables var from specified env,\nMacro work similar to let-env but lexical scope is working with it."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env-name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"env"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"env-name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"env"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"env-name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apropos"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(apropos name)\n\nSearch environment and display names that match the given name.\nname can be regex, string or symbol."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"apropos"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":4,"#":"string"},{"@":0,"#":[{"@":4,"#":"regex"},{"@":0,"#":[{"@":4,"#":"symbol"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"regex"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"RegExp"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"escape-regex"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"filter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string?"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"regex"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"regex"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"promisify"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(promisify fn)\n\nSimple function for adding promises to NodeJS callback based function.\nFunction tested only with fs module."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":3,"#":"reject"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"append"},{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"err"},{"@":0,"#":[{"@":3,"#":"data"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"err"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":3,"#":"data"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"reject"},{"@":0,"#":[{"@":3,"#":"err"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list*"},{"@":3,"#":"args"}]},{"@":0,"#":[{"@":4,"#":"(list* arg1 ...)\n\nParallel version of list."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"result"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"arg"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"push"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote-promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"arg"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":3,"#":"await"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%not-implemented"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(not-implemented name)\n\nReturns new function taht throw exception that function is not implmeneted"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"str-name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"("},{"@":0,"#":[{"@":3,"#":"str-name"},{"@":0,"#":[{"@":4,"#":")\n\nThis function is not yet implemented."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":3,"#":"str-name"},{"@":0,"#":[{"@":4,"#":" has not beed implemented"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%make-env"},{"@":0,"#":[{"@":3,"#":"name"},{"@":3,"#":"names"}]}]},{"@":0,"#":[{"@":4,"#":"(%make-env name f1 f2 ...)\n\nCreate new Environment with given name and defined symbols in it from global env.\nIf given function name f1 f2 ... don't exists, it will define function that\nthrow exception that function is not yet implemented."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"lips.Environment"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"alist->object"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"ref"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.env.ref"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"ref"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%not-implemented"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.env.get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"names"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"null"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"Y"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"h"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(Y f)\n\n _ __ __ _ _ _ _ __ __ _ _ _\n / \\ \\ / / / __ / ____ \\ / \\ \\ / / ____ \\ \\ \\\n+ \\ v / + \\ \\ + / ___| + + \\ v / / ___| + + +\n| \\ / | \\ \\ | | |__ | | \\ / | |__ | | |\n| | | | / \\ | | __| | | | | | __| | | |\n| | | | / /\\ \\ | | | | | | | | | | | |\n+ |_| + /_/ \\_\\ + |_| + + |_| |_| + + +\n \\_ \\_ \\_ _/ \\_ _/ _/ _/"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"g"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"h"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"g"},{"@":0,"#":[{"@":3,"#":"g"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"indexed-db?"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(indexed-db?)\n\nFunction test if indexedDB is available."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"any"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":0,"#":[false,{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"indexedDB"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"any"},{"@":0,"#":[{"@":3,"#":"window.indexedDB"},{"@":0,"#":[{"@":3,"#":"window.indexedDB"},{"@":0,"#":[{"@":3,"#":"window.mozIndexedDB"},{"@":0,"#":[{"@":3,"#":"window.webkitIndexedDB"},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"indexedDB"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"window.indexedDB.open"},{"@":0,"#":[{"@":4,"#":"MyTestDatabase"},{"@":0,"#":[{"@":1,"#":"3"},{"@":2,"#":0}]}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"catch"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]},{"@":0,"#":[false,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[false,{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"environment?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(environment? obj)\n\nFunction check if object is LIPS environment."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"instanceof"},{"@":0,"#":[{"@":3,"#":"lips.Environment"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"%read-file"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"read-file"},{"@":0,"#":[false,{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fetch-url"},{"@":0,"#":[false,{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"binary"},{"@":0,"#":[{"@":3,"#":"path"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(%read-file binary path)\n\nRead file from url or file system. If binary is false it will return\nstring that contain all the content. For HTTP requests, If binary\nis false it will: when in browser return ArrayBuffer and in Node\nit will return Buffer object. When reading from file system\nin both cases it will return Buffer objects.\n\nThe code that use those function, in binary mode, need to check\nif the result is ArrayBuffer or Node.js/BrowserFS Buffer object."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":3,"#":"read-file"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fs"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"lips.env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"fs"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"fs"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"open-input-file: fs not defined"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*read-file*"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"promisify"},{"@":0,"#":[{"@":3,"#":"fs.readFile"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"read-file"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"path"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"buff"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*read-file*"},{"@":0,"#":[{"@":3,"#":"path"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":3,"#":"window"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Blob"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"buff"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"buff"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"buff"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toString"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":3,"#":"fetch-url"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"fetch-url"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"url"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":3,"#":"window"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"res"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fetch"},{"@":0,"#":[{"@":3,"#":"url"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"res.arrayBuffer"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"res.text"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"http-get"},{"@":0,"#":[{"@":3,"#":"url"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char=?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-ref"},{"@":0,"#":[{"@":3,"#":"path"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":5,"#":"/"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"file-exists?"},{"@":0,"#":[{"@":3,"#":"path"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"file "},{"@":0,"#":[{"@":3,"#":"path"},{"@":0,"#":[{"@":4,"#":" don't exists"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"read-file"},{"@":0,"#":[{"@":3,"#":"path"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"test"},{"@":0,"#":[{"@":3,"#":"path"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fetch-url"},{"@":0,"#":[{"@":3,"#":"path"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%read-file"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-directory"},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"path"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"%read-binary-file"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"curry"},{"@":0,"#":[{"@":3,"#":"%read-file"},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"%read-text-file"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"curry"},{"@":0,"#":[{"@":3,"#":"%read-file"},{"@":0,"#":[false,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%fs-promisify-proc"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":3,"#":"message"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(%fs-promisify-proc fn string)\n\nFunction return promisified version of fs function or throw exception\nif fs is not available."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fs"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"lips.env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"fs"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"fs"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":3,"#":"message"},{"@":0,"#":[{"@":4,"#":": fs not defined"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"promisify"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"fs"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"response->content"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":0,"#":[{"@":3,"#":"res"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(response->text binary res)\n\nFunction read all text from Node.js HTTP response object. If binary argument\nis true it will return Buffer object that can be converted to u8vector.\n\n***Warrning:*** it may overflow the stack (part of Node) when converting\nwhole buffer to u8vector."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"chunk"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result.push"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Buffer.from"},{"@":0,"#":[{"@":3,"#":"chunk"},{"@":0,"#":[{"@":4,"#":"binary"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"chunk"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result.push"},{"@":0,"#":[{"@":3,"#":"chunk"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"res.setEncoding"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":0,"#":[{"@":4,"#":"binary"},{"@":0,"#":[{"@":4,"#":"utf8"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"res.on"},{"@":0,"#":[{"@":4,"#":"data"},{"@":0,"#":[{"@":3,"#":"append"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"res.on"},{"@":0,"#":[{"@":4,"#":"end"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Buffer.concat"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result.join"},{"@":0,"#":[{"@":4,"#":""},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"response->buffer"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"curry"},{"@":0,"#":[{"@":3,"#":"response->content"},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"response->text"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"curry"},{"@":0,"#":[{"@":3,"#":"response->content"},{"@":0,"#":[false,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"http-get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":3,"#":"window"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"url"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(http-get url)\n\nNode.js Function that send HTTP Request and return string or\nbinary Buffer object."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"http-get: function is Node.js only."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"http"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"require"},{"@":0,"#":[{"@":4,"#":"http"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"get"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"https"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"require"},{"@":0,"#":[{"@":4,"#":"https"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"get"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"url"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(http-get url)\n\nNode.js Function that send HTTP Request and return string or\nbinary Buffer object."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"request"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"url.match"},{"@":0,"#":[{},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"http"},{"@":0,"#":[{"@":3,"#":"https"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":3,"#":"reject"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"request"},{"@":0,"#":[{"@":3,"#":"url"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"res"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":3,"#":"res.statusCode"},{"@":0,"#":[{"@":1,"#":"200"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"response->content"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":0,"#":[{"@":3,"#":"res"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"code"},{"@":0,"#":[{"@":3,"#":"res.statusCode"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"res.resume"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"reject"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"Request return "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number->string"},{"@":0,"#":[{"@":3,"#":"code"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"on"},{"@":0,"#":[{"@":4,"#":"error"},{"@":0,"#":[{"@":3,"#":"reject"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"buffer->u8vector"},{"@":0,"#":[{"@":3,"#":"bin"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(buffer->u8vector bin)\n\nCross platform function that can be used in both Node and Browser.\nIt can be used together with %read-file or %read-binary-file and convert\nthe result ArrayBuffer or Buffer to u8vector."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"instanceof"},{"@":0,"#":[{"@":3,"#":"ArrayBuffer"},{"@":0,"#":[{"@":3,"#":"bin"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Uint8Array"},{"@":0,"#":[{"@":3,"#":"bin"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Uint8Array.from"},{"@":0,"#":[{"@":3,"#":"bin"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"complement"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(complement fn)\n\nHiger order function that returns complement of the given function. If the function fn\nfor a given arguments return true the result function will return false, if it would\nreturn false, the result function will return true."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"complement"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":4,"#":"function"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"always"},{"@":0,"#":[{"@":3,"#":"constant"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(always constant)\n\nHigher order function returns new function that always return given constant."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":3,"#":"constant"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"once"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(once fn)\n\nHigher order function that return new function, that is guarantee\nto be called only once."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"once"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":4,"#":"function"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"undefined"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"flip"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(flip fn)\n\nHigher order function that return new function where first two arguments are swapped.\n\nExample:\n\n (define first (curry (flip vector-ref) 0))\n (first #(1 2 3))\n ;; ==> 1"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"flip"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":4,"#":"function"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":3,"#":"b"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unfold"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":3,"#":"init"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(unfold fn init)\n\nFunction returns list from given function and init value. The function should\nreturn cons where first is the item added to the list and second is next value\npassed to the funtion. If function return false it end the loop."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"unfold"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":4,"#":"function"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":3,"#":"init"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"reverse"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":3,"#":"concat"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":3,"#":"=="},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"remainder"},{"@":0,"#":[{"@":3,"#":"%"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"-inf.0"},{"@":0,"#":[{"@":3,"#":"Number.NEGATIVE_INFINITY"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"+inf.0"},{"@":0,"#":[{"@":3,"#":"Number.POSITIVE_INFINITY"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"procedure?"},{"@":0,"#":[{"@":3,"#":"function?"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"expt"},{"@":0,"#":[{"@":3,"#":"**"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"list->vector"},{"@":0,"#":[{"@":3,"#":"list->array"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":0,"#":[{"@":3,"#":"array->list"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-symbol-macro"},{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":3,"#":"rest"}]}]}]},{"@":0,"#":[{"@":4,"#":"(define-symbol-macro type (name . args) . body)\n\nMacro that creates special symbol macro for evaluator similar to build in , or `.\nIt's like alias for real macro. Similar to CL reader macros but it receive already\nparsed code like normal macros. Type can be SPLICE or LITERAL symbols.\nALL default symbol macros are literal."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cddr"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-special!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string->symbol"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"concat"},{"@":0,"#":[{"@":4,"#":"lips.specials."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"set-special!"},{"@":0,"#":[{"@":4,"#":"#"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"vector-literal"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"lips.specials.SPLICE"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-literal"},{"@":3,"#":"args"}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"concat"},{"@":0,"#":[{"@":4,"#":"Parse Error: vector require pair got "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":" in "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"repr"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"v"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->array"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Object.freeze"},{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":3,"#":"arg"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->array"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":3,"#":"arg"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(vector 1 2 3 (+ 3 1))\n#(1 2 3 4)\n\nMacro for defining vectors (JavaScript arrays). Vectors literals are\nautomatically quoted. So you can use expressions inside them. Only other\nliterals, like other vectors or object."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"set-repr!"},{"@":0,"#":[{"@":3,"#":"Array"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"arr"},{"@":0,"#":[{"@":3,"#":"q"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Array.from"},{"@":0,"#":[{"@":3,"#":"arr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"in"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":3,"#":"arr"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"#<empty>"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"repr"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"arr"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"q"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"concat"},{"@":0,"#":[{"@":4,"#":"#("},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"join"},{"@":0,"#":[{"@":4,"#":" "},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":")"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eqv?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(eqv? a b)\n\nFunction compare the values. It return true if they are the same, they\nneed to have same type"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"inexact?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"inexact?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"a.isNaN"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"b.isNaN"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"a._minus"},{"@":0,"#":[{"@":3,"#":"b._minus"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"complex?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"complex?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"re.a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"real-part"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"re.b"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"real-part"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"im.a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"imag-part"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"im.b"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"imag-part"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"re.a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"re.b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"re.a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"_minus"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"re.b"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"_minus"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"im.a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"im.b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"im.a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"_minus"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"im.b"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"_minus"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":3,"#":"re.a"},{"@":0,"#":[{"@":3,"#":"re.b"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"re.a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"isNaN"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"re.b"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"isNaN"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":3,"#":"im.a"},{"@":0,"#":[{"@":3,"#":"im.b"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"im.a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"isNaN"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"im.b"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"isNaN"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[false,{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(equal? a b)\n\nFunction check if values are equal if both are pair or array\nit compares the their elements recursivly."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":3,"#":"a.__name__"},{"@":0,"#":[{"@":3,"#":"b.__name__"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"regex?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"regex?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"source"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"b"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"source"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typed-array?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typed-array?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Array.from"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Array.from"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"every"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"item"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":3,"#":"item"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-ref"},{"@":0,"#":[{"@":3,"#":"b"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"function?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"function?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%same-functions"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"array?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"array?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"filter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"item"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":3,"#":"item"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"b"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"length"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"plain-object?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"plain-object?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"keys_a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Object.keys"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"sort"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"keys_b"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Object.keys"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"sort"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"keys_a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"keys_b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":3,"#":"keys_a"},{"@":0,"#":[{"@":3,"#":"keys_b"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"keys_a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"keys_b"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"b"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eqv?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"make-promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"proc"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(make-promise fn)\n\nFunction create promise from a function."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"make-promise"},{"@":0,"#":[{"@":3,"#":"proc"},{"@":0,"#":[{"@":4,"#":"function"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result-ready?"},{"@":0,"#":[false,{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[false,{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"result-ready?"},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"proc"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"result-ready?"},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"result-ready?"},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Symbol.for"},{"@":0,"#":[{"@":4,"#":"promise"},{"@":2,"#":0}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"promise.toString"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"#<promise - "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"result-ready?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"forced with "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"not forced"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":">"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"promise"},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"delay"},{"@":0,"#":[{"@":3,"#":"expression"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(delay expression)\n\nMacro will create a promise from expression that can be forced with (force)."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"make-promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"expression"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"force"},{"@":0,"#":[{"@":3,"#":"promise"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(force promise)\n\nFunction force the promise and evaluate delayed expression."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"promise"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"promise?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(promise? obj)\n\nFunction check if value is a promise created with delay or make-promise."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"promise"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"positive?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(positive? x)\n\nFunction check if number is larger then 0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"positive?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"negative?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(negative? x)\n\nFunction check if number is smaller then 0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"negative?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(zero? x)\n\nFunction check if number is equal to 0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quotient"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(quotient a b)\n\nReturn quotient from divition as integer."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"quotient"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"quotient"},{"@":0,"#":[{"@":3,"#":"b"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"quotient: divition by zero"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quotient"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"/"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"integer?"},{"@":0,"#":[{"@":3,"#":"quotient"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"quotient"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":3,"#":"quotient"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"floor"},{"@":0,"#":[{"@":3,"#":"quotient"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"ceiling"},{"@":0,"#":[{"@":3,"#":"quotient"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number->string"},{"@":0,"#":[{"@":3,"#":"x"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(number->string x [radix])\n\nFunction convert number to string with optional radix (number base)."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"number->string"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"radix"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":1,"#":"10"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"number->string"},{"@":0,"#":[{"@":3,"#":"radix"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toString"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"radix"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"valueOf"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"boolean?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(boolean? x)\n\nFunction return true if value is boolean."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"boolean"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-ref"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(vector-ref vector i)\n\nReturn i element from vector."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"number->string"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":4,"#":"array"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"number->string"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-set!"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(vector-set! vector i obj)\n\nSet obj as value in vector at position 1."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"vector-set!"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":4,"#":"array"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"vector-set!"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"%number-type"},{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":4,"#":"string"},{"@":0,"#":[{"@":4,"#":"pair"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"%number-type"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"t"},{"@":0,"#":[{"@":3,"#":"x.__type__"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typeof"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":3,"#":"t"},{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"some"},{"@":0,"#":[{"@":3,"#":"typeof"},{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typeof"},{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"real?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(real? x)\n\nFunction check if argument x is real."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"NaN"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"Number.NEGATIVE_INFINITY"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"Number.POSITIVE_INFINITY"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":4,"#":"complex"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"imag-part"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact?"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":4,"#":"float"},{"@":0,"#":[{"@":4,"#":"bigint"},{"@":0,"#":[{"@":4,"#":"rational"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"integer?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(integer? x)\n\nFunction check if argument x is integer."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"NaN"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"Number.NEGATIVE_INFINITY"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"Number.POSITIVE_INFINITY"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":4,"#":"bigint"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":4,"#":"float"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"modulo"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"complex?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(complex? x)\n\nFunction check if argument x is complex."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"NaN"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"Number.NEGATIVE_INFINITY"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"Number.POSITIVE_INFINITY"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":4,"#":"complex"},{"@":0,"#":[{"@":4,"#":"float"},{"@":0,"#":[{"@":4,"#":"bigint"},{"@":0,"#":[{"@":4,"#":"rational"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"rational?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(rational? x)\n\nFunction check if value is rational."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"NaN"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"Number.NEGATIVE_INFINITY"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"Number.POSITIVE_INFINITY"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":4,"#":"rational"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"integer?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck-args"},{"@":0,"#":[{"@":3,"#":"_type"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"_list"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(typecheck-args args type)\n\nFunction check if all items in array are of same type."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_list"},{"@":0,"#":[{"@":3,"#":"_list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"_list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"_list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"_type"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"+"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"_list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"numbers?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"curry"},{"@":0,"#":[{"@":3,"#":"typecheck-args"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"max"},{"@":3,"#":"args"}]},{"@":0,"#":[{"@":4,"#":"(max n1 n2 ...)\n\nReturn maximum of it's arguments."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"numbers?"},{"@":0,"#":[{"@":4,"#":"max"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":".."},{"@":0,"#":[{"@":3,"#":"Math.max"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"min"},{"@":3,"#":"args"}]},{"@":0,"#":[{"@":4,"#":"(min n1 n2 ...)\n\nReturn minimum of it's arguments."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"numbers?"},{"@":0,"#":[{"@":4,"#":"min"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":".."},{"@":0,"#":[{"@":3,"#":"Math.min"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"make-rectangular"},{"@":0,"#":[{"@":3,"#":"re"},{"@":0,"#":[{"@":3,"#":"im"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(make-rectangular im re)\n\nCreate complex number from imaginary and real part."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"value"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"re"},{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"re"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"im"},{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"im"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.LComplex"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"value"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"to_object"},{"@":0,"#":[true,{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(exact? n)"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"exact?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"n.__type__"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":4,"#":"bigint"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":4,"#":"rational"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":4,"#":"complex"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact?"},{"@":0,"#":[{"@":3,"#":"n.__im__"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact?"},{"@":0,"#":[{"@":3,"#":"n.__re__"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"inexact?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(inexact? n)"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"inexact?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact->inexact"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(exact->inexact n)\n\nConvert exact number to inexact."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"exact->inexact"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":4,"#":"complex"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.LComplex"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"object"},{"@":0,"#":[{"@":3,"#":":im"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact->inexact"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"__im__"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":":re"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact->inexact"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"__re__"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"rational?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"integer?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.LFloat"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"valueOf"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"inexact->exact"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(inexact->exact number)\n\nFuncion convert real number to exact ratioanl number."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"inexact->exact"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"real?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":4,"#":"complex"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toRational"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"_maths"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":4,"#":"exp"},{"@":0,"#":[{"@":4,"#":"log"},{"@":0,"#":[{"@":4,"#":"sin"},{"@":0,"#":[{"@":4,"#":"cos"},{"@":0,"#":[{"@":4,"#":"tan"},{"@":0,"#":[{"@":4,"#":"asin"},{"@":0,"#":[{"@":4,"#":"acos"},{"@":0,"#":[{"@":4,"#":"atan"},{"@":0,"#":[{"@":4,"#":"atan"},{"@":2,"#":0}]}]}]}]}]}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"_this_env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-environment"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fns"},{"@":0,"#":[{"@":3,"#":"_maths"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"fns"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"fns"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"LNumber"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":".."},{"@":0,"#":[{"@":3,"#":"lips.LNumber"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"op"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"Math"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"LNumber"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"op"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"_this_env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"__doc__"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"concat"},{"@":0,"#":[{"@":4,"#":"("},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":4,"#":" n)\n\nFunction calculate "},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":4,"#":" math operation (it call JavaScript Math)."},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":4,"#":" function."},{"@":2,"#":0}]}]}]}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"fns"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"modulo"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(modulo a b)\n\nFunction return modulo operation on it's argumennts."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"modulo"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"modulo"},{"@":0,"#":[{"@":3,"#":"b"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*"},{"@":0,"#":[{"@":3,"#":"b"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"floor"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"/"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"remainder__"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(modulo a b)\n\nFunction return reminder from division operation."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"remainder"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"remainder"},{"@":0,"#":[{"@":3,"#":"b"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*"},{"@":0,"#":[{"@":3,"#":"b"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"truncate"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"/"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list-tail"},{"@":0,"#":[{"@":3,"#":"l"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(list-tail list k)\n\nReturns the sublist of list obtained by omitting the first k elements."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"list-tail"},{"@":0,"#":[{"@":3,"#":"l"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":4,"#":"pair"},{"@":0,"#":[{"@":4,"#":"nil"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"list-ref: index out of range"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"l"},{"@":0,"#":[{"@":3,"#":"l"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"while"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"l"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"list-tail: not enough elements in the list"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"l"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"l"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"l"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list-ref"},{"@":0,"#":[{"@":3,"#":"l"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(list-ref list n)\n\nReturns n element of a list."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"list-ref"},{"@":0,"#":[{"@":3,"#":"l"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":4,"#":"pair"},{"@":0,"#":[{"@":4,"#":"nil"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"list-ref: index out of range"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"l"},{"@":0,"#":[{"@":3,"#":"l"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"while"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"l"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"l"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"list-ref: not enough elements in the list"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"l"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"l"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"l"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"l"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"l"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(not x)\n\nFunction return true if value is false and false otherwise."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[false,{"@":0,"#":[true,{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"rationalize"},{"@":0,"#":[{"@":3,"#":"number"},{"@":0,"#":[{"@":3,"#":"tolerance"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(rationalize number tolerance)\n\nFunction returns simplest rational number differing from number by no more\nthan the tolerance."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"rationalize"},{"@":0,"#":[{"@":3,"#":"number"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"rationalize"},{"@":0,"#":[{"@":3,"#":"tolerance"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.rationalize"},{"@":0,"#":[{"@":3,"#":"number"},{"@":0,"#":[{"@":3,"#":"tolerance"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%mem/search"},{"@":0,"#":[{"@":3,"#":"access"},{"@":0,"#":[{"@":3,"#":"op"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(%member obj list function)\n\nHelper method to get first list where car equal to obj\nusing provied functions as comparator."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":0,"#":[false,{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"op"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"access"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%mem/search"},{"@":0,"#":[{"@":3,"#":"access"},{"@":0,"#":[{"@":3,"#":"op"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"memq"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(memq obj list)\n\nFunction return first object in the list that match using eq? function."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"memq"},{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":4,"#":"nil"},{"@":0,"#":[{"@":4,"#":"pair"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%mem/search"},{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"memv"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(memv obj list)\n\nFunction return first object in the list that match using eqv? function."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"memv"},{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":4,"#":"nil"},{"@":0,"#":[{"@":4,"#":"pair"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%mem/search"},{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"eqv?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"member"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(member obj list)\n\nFunction return first object in the list that match using equal? function."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"member"},{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":4,"#":"nil"},{"@":0,"#":[{"@":4,"#":"pair"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%mem/search"},{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%assoc/acessor"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(%assoc/acessor name)\n\nFunction return carr with typecheck using give name."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":4,"#":"pair"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caar"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%assoc/search"},{"@":0,"#":[{"@":3,"#":"op"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":3,"#":"alist"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(%assoc/search op obj alist)\n\nGeneric function that used in assoc functions with defined comparator\nfunction."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"assoc"},{"@":0,"#":[{"@":3,"#":"alist"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":4,"#":"nil"},{"@":0,"#":[{"@":4,"#":"pair"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"ret"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%mem/search"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%assoc/acessor"},{"@":0,"#":[{"@":4,"#":"assoc"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"op"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":3,"#":"alist"},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"ret"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"ret"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"ret"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"assoc"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%doc"},{"@":0,"#":[{"@":4,"#":"(assoc obj alist)\n\nFunction return pair from alist that match given key using equal? check."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"curry"},{"@":0,"#":[{"@":3,"#":"%assoc/search"},{"@":0,"#":[{"@":3,"#":"equal?"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"assq"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%doc"},{"@":0,"#":[{"@":4,"#":"(assq obj alist)\n\nFunction return pair from alist that match given key using eq? check."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"curry"},{"@":0,"#":[{"@":3,"#":"%assoc/search"},{"@":0,"#":[{"@":3,"#":"eq?"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"assv"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%doc"},{"@":0,"#":[{"@":4,"#":"(assv obj alist)\n\nFunction return pair from alist that match given key using eqv? check."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"curry"},{"@":0,"#":[{"@":3,"#":"%assoc/search"},{"@":0,"#":[{"@":3,"#":"eqv?"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"make-string"},{"@":0,"#":[{"@":3,"#":"k"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(make-string k [char])\n\nFunction return new string with k elements, if char is provied\nit's filled with that character."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":5,"#":" "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"make-string"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"make-string"},{"@":0,"#":[{"@":3,"#":"char"},{"@":0,"#":[{"@":4,"#":"character"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<="},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->string"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":3,"#":"char"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string"},{"@":3,"#":"args"}]},{"@":0,"#":[{"@":4,"#":"(string chr1 chr2 ...)\n\nFunction create new string from it's arguments. Each argument\nNeed to be a character object."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"for-each"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":4,"#":"character"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->string"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-copy"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(string-copy string)\n\nReturns a copy of the given string."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string-copy"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"clone"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-fill!"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(string-fill! symbol char)\n\nFunction destructively fill the string with given character."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string-fill!"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":4,"#":"string"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string-fill!"},{"@":0,"#":[{"@":3,"#":"char"},{"@":0,"#":[{"@":4,"#":"character"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fill"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"identity"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(identity n)\n\nNo op function. it just returns its argument."},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-copy"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(string-copy x)\n\nCreate new string based of given argument."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string-copy"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.LString"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->string"},{"@":0,"#":[{"@":3,"#":"_list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(list->string _list)\n\nFunction return string from list of characters."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"array"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->array"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"list->string"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":4,"#":"character"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x.valueOf"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"_list"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"array"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"join"},{"@":0,"#":[{"@":4,"#":""},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string->list"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(string->list string)\n\nFunction return list of characters created from string."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string->list"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"array->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"split"},{"@":0,"#":[{"@":4,"#":""},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.LCharacter"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-set!"},{"@":0,"#":[{"@":3,"#":"object"},{"@":0,"#":[{"@":3,"#":"index"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(string-set! object index char)\n\nMacro that replace character in string in given index, it create new JavaScript\nstring and replace old value. Object need to be symbol that point to variable\nthat hold the string."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string-set!"},{"@":0,"#":[{"@":3,"#":"object"},{"@":0,"#":[{"@":4,"#":"symbol"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"chars"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"chars"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string-set!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"object"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string-set!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"index"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string-set!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"character"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"chars"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->vector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"object"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"chars"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"index"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"object"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"chars"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-length"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(string-length string)\n\nFunction return length of the string."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string-ref"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"length"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-ref"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(string-ref string k)\n\nFunction return character inside string at given zero-based index."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string-ref"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":4,"#":"string"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string-ref"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.LCharacter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%string-cmp"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(%string-cmp name a b)\n\nFunction compare two strings and return 0 if they are equal,\n-1 second is smaller and 1 if is larget. The function compare\nthe codepoints of the character."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":4,"#":"string"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":0,"#":[{"@":4,"#":"string"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cmp"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(string=? string1 string2)\n\nFunction check if two string s are equal."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%string-cmp"},{"@":0,"#":[{"@":4,"#":"string=?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string<?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(string<? string1 string2)\n\nFunction return true if second string is smaller then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%string-cmp"},{"@":0,"#":[{"@":4,"#":"string<?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"-1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string>?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(string<? string1 string2)\n\nFunction return true if second string is larger then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%string-cmp"},{"@":0,"#":[{"@":4,"#":"string>?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string<=?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(string<? string1 string2)\n\nFunction return true if second string is not larger then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%string-cmp"},{"@":0,"#":[{"@":4,"#":"string<=?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string>=?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(string<? string1 string2)\n\nFunction return true if second character is not smaller then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%string-cmp"},{"@":0,"#":[{"@":4,"#":"string>=?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"-1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%string-ci-cmp"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(%string-ci-cmp name a b)\n\nFunction compare two strings ingoring case and return 0 if they are equal,\n-1 second is smaller and 1 if is larget. The function compare\nthe codepoints of the character."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":4,"#":"string"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":0,"#":[{"@":4,"#":"string"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lower"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cmp"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lower"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-ci=?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(string-ci=? string1 string2)\n\nFunction check if two string s are equal."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%string-ci-cmp"},{"@":0,"#":[{"@":4,"#":"string-ci=?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-ci<?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(string-ci<? string1 string2)\n\nFunction return true if second string is smaller then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%string-ci-cmp"},{"@":0,"#":[{"@":4,"#":"string-ci<?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"-1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-ci>?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(string-ci<? string1 string2)\n\nFunction return true if second string is larger then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%string-ci-cmp"},{"@":0,"#":[{"@":4,"#":"string-ci>?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-ci<=?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(string-ci<? string1 string2)\n\nFunction return true if second string is not larger then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%string-ci-cmp"},{"@":0,"#":[{"@":4,"#":"string-ci<=?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-ci>=?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(string-ci>=? string1 string2)\n\nFunction return true if second character is not smaller then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%string-ci-cmp"},{"@":0,"#":[{"@":4,"#":"string-ci>=?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"-1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"char?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%doc"},{"@":0,"#":[{"@":4,"#":"(char? obj)\n\nFunction check if object is character."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"curry"},{"@":0,"#":[{"@":3,"#":"instanceof"},{"@":0,"#":[{"@":3,"#":"lips.LCharacter"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char->integer"},{"@":0,"#":[{"@":3,"#":"chr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(char->integer chr)\n\nFunction return codepoint of Unicode character."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"char->integer"},{"@":0,"#":[{"@":3,"#":"chr"},{"@":0,"#":[{"@":4,"#":"character"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"chr.__char__"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"codePointAt"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"integer->char"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(integer->char chr)\n\nFunction convert number argument to chararacter."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"integer->char"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"integer?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-ref"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"String.fromCodePoint"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":4,"#":"argument to integer->char need to be integer."},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%define-chr-re"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":0,"#":[{"@":3,"#":"str"},{"@":0,"#":[{"@":3,"#":"re"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(%define-chr-re (name chr) sring re)\n\nMacro define procedure that test character agains regular expression."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"str"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"character"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"chr"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toString"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"match"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"re"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%define-chr-re"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-whitespace?"},{"@":0,"#":[{"@":3,"#":"chr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(char-whitespace? chr)\n\nFunction return true if character is whitespace."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let-env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"interaction-environment"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"space-unicode-regex"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%define-chr-re"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-numeric?"},{"@":0,"#":[{"@":3,"#":"chr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(char-numeric? chr)\n\nFunction return true if character is number."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let-env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"interaction-environment"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"numeral-unicode-regex"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%define-chr-re"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-alphabetic?"},{"@":0,"#":[{"@":3,"#":"chr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(char-alphabetic? chr)\n\nFunction return true if character is leter of the ASCII alphabet."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let-env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"interaction-environment"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"letter-unicode-regex"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-cmp"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(%char-cmp name a b)\n\nFunction compare two characters and return 0 if they are equal,\n-1 second is smaller and 1 if is larget. The function compare\nthe codepoints of the character."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":4,"#":"character"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":0,"#":[{"@":4,"#":"character"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char->integer"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"b"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char->integer"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":1,"#":"-1"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char=?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(char=? chr1 chr2)\n\nFunction check if two characters are equal."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-cmp"},{"@":0,"#":[{"@":4,"#":"char=?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char<?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(char<? chr1 chr2)\n\nFunction return true if second character is smaller then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-cmp"},{"@":0,"#":[{"@":4,"#":"char<?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"-1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char>?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(char<? chr1 chr2)\n\nFunction return true if second character is larger then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-cmp"},{"@":0,"#":[{"@":4,"#":"char>?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char<=?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(char<? chr1 chr2)\n\nFunction return true if second character is not larger then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-cmp"},{"@":0,"#":[{"@":4,"#":"char<=?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char>=?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(char<? chr1 chr2)\n\nFunction return true if second character is not smaller then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-cmp"},{"@":0,"#":[{"@":4,"#":"char>=?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"-1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-ci-cmp"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(%char-cmp name a b)\n\nFunction compare two characters and return 0 if they are equal,\n-1 second is smaller and 1 if is larget. The function compare\nthe codepoints of the character."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":4,"#":"character"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":0,"#":[{"@":4,"#":"character"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-cmp"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-downcase"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-downcase"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-ci=?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(char-ci=? chr1 chr2)\n\nFunction check if two characters are equal."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-ci-cmp"},{"@":0,"#":[{"@":4,"#":"char-ci=?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-ci<?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(char-ci<? chr1 chr2)\n\nFunction return true if second character is smaller then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-ci-cmp"},{"@":0,"#":[{"@":4,"#":"char-ci<?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"-1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-ci>?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(char-ci<? chr1 chr2)\n\nFunction return true if second character is larger then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-ci-cmp"},{"@":0,"#":[{"@":4,"#":"char-ci>?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-ci<=?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(char-ci<? chr1 chr2)\n\nFunction return true if second character is not larger then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-ci-cmp"},{"@":0,"#":[{"@":4,"#":"char-ci<=?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-ci>=?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(char-ci<? chr1 chr2)\n\nFunction return true if second character is not smaller then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-ci-cmp"},{"@":0,"#":[{"@":4,"#":"char-ci>=?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"-1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-upcase"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(char-upcase char)\n\nCreate uppercase version of the character."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"char-upcase"},{"@":0,"#":[{"@":3,"#":"char"},{"@":0,"#":[{"@":4,"#":"character"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char.toUpperCase"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-downcase"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(char-downcase chr)\n\nCreate lowercase version of the character."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"char-upcase"},{"@":0,"#":[{"@":3,"#":"char"},{"@":0,"#":[{"@":4,"#":"character"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char.toLowerCase"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-upper-case?"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(char-upper-case? char)\n\nFunction check if character is upper case."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"char-upper-case?"},{"@":0,"#":[{"@":3,"#":"char"},{"@":0,"#":[{"@":4,"#":"character"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-alphabetic?"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char=?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-upcase"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-lower-case?"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(char-upper-case? char)\n\nFunction check if character is lower case."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"char-lower-case?"},{"@":0,"#":[{"@":3,"#":"char"},{"@":0,"#":[{"@":4,"#":"character"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-alphabetic?"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char=?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-downcase"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"newline"},{"@":3,"#":"rest"}]},{"@":0,"#":[{"@":4,"#":"(newline [port])\n\nWrite newline character to standard output or given port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-output-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"display"},{"@":0,"#":[{"@":4,"#":"\n"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"write"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(write obj [port])\n\nWrite object to standard output or give port. For strings it will include\nwrap in quotes."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-output-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"display"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"repr"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"write-char"},{"@":0,"#":[{"@":3,"#":"char"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(write-char char [port])\n\nWrite single character to given port using write function."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"write-char"},{"@":0,"#":[{"@":3,"#":"char"},{"@":0,"#":[{"@":4,"#":"character"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"write-char"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"output-port"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"display"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char.valueOf"},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"fold-right"},{"@":0,"#":[{"@":3,"#":"reduce"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"fold-left"},{"@":0,"#":[{"@":3,"#":"fold"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"make-vector"},{"@":0,"#":[{"@":3,"#":"n"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(make-vector n [fill])\n\nCreate new vector with n empty elements. If fill is specified it will set\nall elements of the vector to that value."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Array"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fill"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(vector? n)\n\nFunction return true of value is vector and false if not."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"array"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-ref"},{"@":0,"#":[{"@":3,"#":"vec"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(vector-ref vec n)\n\nFunction return nth element of the vector vec."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"vector-ref"},{"@":0,"#":[{"@":3,"#":"vec"},{"@":0,"#":[{"@":4,"#":"array"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"vector-ref"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"vec"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-set!"},{"@":0,"#":[{"@":3,"#":"vec"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(vector-set! vec n value)\n\nFunction set nth item of the vector to value."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"vector-ref"},{"@":0,"#":[{"@":3,"#":"vec"},{"@":0,"#":[{"@":4,"#":"array"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"vector-ref"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"vec"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-fill!"},{"@":0,"#":[{"@":3,"#":"vec"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(vector-fill! vec value)\n\nSet every element of the vector to given value."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"vector-ref"},{"@":0,"#":[{"@":3,"#":"vec"},{"@":0,"#":[{"@":4,"#":"array"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"recur"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"vec"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">="},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"vec"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"recur"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-length"},{"@":0,"#":[{"@":3,"#":"vec"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(vector-length vec)\n\nFunction return length of the vector. If argument is not vector it throw exception."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"vector-length"},{"@":0,"#":[{"@":3,"#":"vec"},{"@":0,"#":[{"@":4,"#":"array"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"vec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":3,"#":"=>"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"atom-key"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":3,"#":"atom-key"},{"@":0,"#":[{"@":3,"#":"clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":3,"#":"=>"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":3,"#":"result1"},{"@":0,"#":[{"@":3,"#":"result2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"result1"},{"@":0,"#":[{"@":3,"#":"result2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"atoms"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"result1"},{"@":0,"#":[{"@":3,"#":"result2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"memv"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"atoms"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"result1"},{"@":0,"#":[{"@":3,"#":"result2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"atoms"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"=>"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"memv"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"atoms"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"atoms"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"=>"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"clause"},{"@":0,"#":[{"@":3,"#":"clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"memv"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"atoms"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":3,"#":"clause"},{"@":0,"#":[{"@":3,"#":"clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"atoms"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"result1"},{"@":0,"#":[{"@":3,"#":"result2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"clause"},{"@":0,"#":[{"@":3,"#":"clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"memv"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"atoms"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"result1"},{"@":0,"#":[{"@":3,"#":"result2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":3,"#":"clause"},{"@":0,"#":[{"@":3,"#":"clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(case value\n ((<items>) result1)\n ((<items>) result2)\n [else result3])\n\nMacro for switch case statement. It test if value is any of the item. If\nitem match the value it will return coresponding result expression value.\nIf no value match and there is else it will return that result."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"lips.Formatter.defaults.exceptions.specials"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"push"},{"@":0,"#":[{"@":4,"#":"case"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"numerator"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(numerator n)\n\nReturn numberator of rational or same number if n is not rational."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"numerator"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"rational?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"integer?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"n.num"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"denominator"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(denominator n)\n\nReturn denominator of rational or same number if one is not rational."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"denominator"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"rational?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"integer?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"n.denom"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":0,"#":[{"@":1,"#":1},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"imag-part"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(imag-part n)\n\nReturn imaginary part of the complex number n."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"imag-part"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":4,"#":"complex"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"n.__im__"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"real-part"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(real-part n)\n\nReturn real part of the complex number n."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"real-part"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":4,"#":"complex"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"n.__re__"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"make-polar"},{"@":0,"#":[{"@":3,"#":"r"},{"@":0,"#":[{"@":3,"#":"angle"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(make-polar magnitude angle)\n\nCreate new complex number from polar parameters."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"make-polar"},{"@":0,"#":[{"@":3,"#":"r"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"make-polar"},{"@":0,"#":[{"@":3,"#":"angle"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"complex?"},{"@":0,"#":[{"@":3,"#":"r"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"complex?"},{"@":0,"#":[{"@":3,"#":"angle"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":4,"#":"make-polar: argument can't be complex"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"re"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*"},{"@":0,"#":[{"@":3,"#":"r"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"sin"},{"@":0,"#":[{"@":3,"#":"angle"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"im"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*"},{"@":0,"#":[{"@":3,"#":"r"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cos"},{"@":0,"#":[{"@":3,"#":"angle"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"make-rectangular"},{"@":0,"#":[{"@":3,"#":"im"},{"@":0,"#":[{"@":3,"#":"re"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"angle"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(angle x)\n\nReturns angle of the complex number in polar coordinate system."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":4,"#":"complex"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":4,"#":"angle: number need to be complex"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Math.atan2"},{"@":0,"#":[{"@":3,"#":"x.__im__"},{"@":0,"#":[{"@":3,"#":"x.__re__"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"magnitude"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(magnitude x)\n\nReturns magnitude of the complex number in polar coordinate system."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":4,"#":"complex"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":4,"#":"magnitude: number need to be complex"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"sqrt"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"+"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*"},{"@":0,"#":[{"@":3,"#":"x.__im__"},{"@":0,"#":[{"@":3,"#":"x.__im__"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*"},{"@":0,"#":[{"@":3,"#":"x.__re__"},{"@":0,"#":[{"@":3,"#":"x.__re__"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"random"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":1,"#":"69069"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"c"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"m"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"expt"},{"@":0,"#":[{"@":1,"#":"2"},{"@":0,"#":[{"@":1,"#":"32"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"seed"},{"@":0,"#":[{"@":1,"#":"19380110"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":3,"#":"new-seed"},{"@":0,"#":[{"@":4,"#":"(random)\n(random seed)\n\nFunction generate new random real number using Knuth algorithm."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"new-seed"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"seed"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"new-seed"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"seed"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"modulo"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"+"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*"},{"@":0,"#":[{"@":3,"#":"seed"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"c"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"m"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact->inexact"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"/"},{"@":0,"#":[{"@":3,"#":"seed"},{"@":0,"#":[{"@":3,"#":"m"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eof-object?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(eof-object? arg)\n\nFunction check if value is eof object, returned from input string\nport when there are no more data to read."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":3,"#":"eof"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"output-port?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(output-port? arg)\n\nFunction return true if argument is output port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"instanceof"},{"@":0,"#":[{"@":3,"#":"lips.OutputPort"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"input-port?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(input-port? arg)\n\nFunction return true if argument is input port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"instanceof"},{"@":0,"#":[{"@":3,"#":"lips.InputPort"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-ready?"},{"@":3,"#":"rest"}]},{"@":0,"#":[{"@":4,"#":"(char-ready?)\n(char-ready? port)\n\nFunction check it characters is ready in input port. This is usefull mostly\nfor interactive ports that return false if it would wait for user input.\nIt return false if port is closed."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-input-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"char-ready?"},{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":4,"#":"input-port"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.char_ready"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"open-input-file"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"readFile"},{"@":0,"#":[false,{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(open-input-file filename)\n\nFunction return new Input Port with given filename. In Browser user need to\nprovide global fs variable that is instance of FS interface."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fs"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"lips.env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"fs"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"fs"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"open-input-file: fs not defined"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"procedure?"},{"@":0,"#":[{"@":3,"#":"readFile"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_readFile"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"promisify"},{"@":0,"#":[{"@":3,"#":"fs.readFile"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"readFile"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_readFile"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toString"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"lips.InputFilePort"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"readFile"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"close-input-port"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(close-input-port port)\n\nProcedure close port that was opened with open-input-file. After that\nit no longer accept reading from that port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"close-input-port"},{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":4,"#":"input-port"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.close"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"close-output-port"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(close-output-port port)\n\nProcedure close port that was opened with open-output-file. After that\nit no longer accept write to that port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"close-output-port"},{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":4,"#":"output-port"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.close"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"call-with-input-file"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":0,"#":[{"@":3,"#":"proc"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(call-with-input-file filename proc)\n\nProcedure open file for reading, call user defined procedure with given port\nand then close the port. It return value that was returned by user proc\nand it close the port even if user proc throw exception."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"p"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open-input-file"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"proc"},{"@":0,"#":[{"@":3,"#":"p"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"finally"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"close-input-port"},{"@":0,"#":[{"@":3,"#":"p"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"call-with-output-file"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":0,"#":[{"@":3,"#":"proc"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(call-with-output-file filename proc)\n\nProcedure open file for writing, call user defined procedure with port\nand then close the port. It return value that was returned by user proc and it close the port\neven if user proc throw exception."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"p"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open-output-file"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"proc"},{"@":0,"#":[{"@":3,"#":"p"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"finally"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"close-output-port"},{"@":0,"#":[{"@":3,"#":"p"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"with-input-from-file"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":3,"#":"thunk"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(with-input-from-file string thunk)\n\nProcedure open file and make it current-input-port then thunk is executed.\nAfter thunk is executed current-input-port is restored and file port\nis closed."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open-input-file"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":3,"#":"**interaction-environment**"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"internal-env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env.get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"old-stdin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"internal-env.get"},{"@":0,"#":[{"@":4,"#":"stdin"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"internal-env.set"},{"@":0,"#":[{"@":4,"#":"stdin"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"thunk"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"finally"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"internal-env.set"},{"@":0,"#":[{"@":4,"#":"stdin"},{"@":0,"#":[{"@":3,"#":"old-stdin"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"close-input-port"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"with-output-to-file"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":3,"#":"thunk"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open-output-file"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":3,"#":"**interaction-environment**"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"internal-env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env.get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"old-stdout"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"internal-env.get"},{"@":0,"#":[{"@":4,"#":"stdout"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"internal-env.set"},{"@":0,"#":[{"@":4,"#":"stdout"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"thunk"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"finally"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"internal-env.set"},{"@":0,"#":[{"@":4,"#":"stdout"},{"@":0,"#":[{"@":3,"#":"old-stdout"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"close-output-port"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"file-exists?"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fs"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"lips.env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"fs"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"fs"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"file-exists?: fs not defined"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fs.stat"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"err"},{"@":0,"#":[{"@":3,"#":"stat"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"err"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"stat.isFile"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[false,{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"open-output-file"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open"},{"@":2,"#":0}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(open-output-file filename)\n\nFunction open file and return port that can be used for writing. If file\nexists it will throw an Error."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"open-output-file"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"procedure?"},{"@":0,"#":[{"@":3,"#":"open"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"open"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%fs-promisify-proc"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"open"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"open-output-file"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"file-exists?"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"open-output-file: file exists"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.OutputFilePort"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":0,"#":[{"@":4,"#":"w"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"scheme-report-environment"},{"@":0,"#":[{"@":3,"#":"version"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(scheme-report-environment version)\n\nFunction return new Environment object for given Scheme Spec version.\nOnly argument 5 is supported that create environemnt for R5RS."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"scheme-report-environment"},{"@":0,"#":[{"@":3,"#":"version"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":3,"#":"version"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":1,"#":"5"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%make-env"},{"@":0,"#":[{"@":4,"#":"R5RS"},{"@":0,"#":[{"@":3,"#":"*"},{"@":0,"#":[{"@":3,"#":"+"},{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"/"},{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":3,"#":"<="},{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":3,"#":">="},{"@":0,"#":[{"@":3,"#":"abs"},{"@":0,"#":[{"@":3,"#":"acos"},{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":3,"#":"angle"},{"@":0,"#":[{"@":3,"#":"append"},{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"asin"},{"@":0,"#":[{"@":3,"#":"assoc"},{"@":0,"#":[{"@":3,"#":"assq"},{"@":0,"#":[{"@":3,"#":"assv"},{"@":0,"#":[{"@":3,"#":"atan"},{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"boolean?"},{"@":0,"#":[{"@":3,"#":"caaaar"},{"@":0,"#":[{"@":3,"#":"caaadr"},{"@":0,"#":[{"@":3,"#":"caaar"},{"@":0,"#":[{"@":3,"#":"caadar"},{"@":0,"#":[{"@":3,"#":"caaddr"},{"@":0,"#":[{"@":3,"#":"caadr"},{"@":0,"#":[{"@":3,"#":"caar"},{"@":0,"#":[{"@":3,"#":"cadaar"},{"@":0,"#":[{"@":3,"#":"cadadr"},{"@":0,"#":[{"@":3,"#":"cadar"},{"@":0,"#":[{"@":3,"#":"caddar"},{"@":0,"#":[{"@":3,"#":"cadddr"},{"@":0,"#":[{"@":3,"#":"caddr"},{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"call-with-current-continuation"},{"@":0,"#":[{"@":3,"#":"call-with-input-file"},{"@":0,"#":[{"@":3,"#":"call-with-output-file"},{"@":0,"#":[{"@":3,"#":"call-with-values"},{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":3,"#":"cdaaar"},{"@":0,"#":[{"@":3,"#":"cdaadr"},{"@":0,"#":[{"@":3,"#":"cdaar"},{"@":0,"#":[{"@":3,"#":"cdadar"},{"@":0,"#":[{"@":3,"#":"cdaddr"},{"@":0,"#":[{"@":3,"#":"cdadr"},{"@":0,"#":[{"@":3,"#":"cdar"},{"@":0,"#":[{"@":3,"#":"cddaar"},{"@":0,"#":[{"@":3,"#":"cddadr"},{"@":0,"#":[{"@":3,"#":"cddar"},{"@":0,"#":[{"@":3,"#":"cdddar"},{"@":0,"#":[{"@":3,"#":"cddddr"},{"@":0,"#":[{"@":3,"#":"cdddr"},{"@":0,"#":[{"@":3,"#":"cddr"},{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"ceiling"},{"@":0,"#":[{"@":3,"#":"char->integer"},{"@":0,"#":[{"@":3,"#":"char-alphabetic?"},{"@":0,"#":[{"@":3,"#":"char-ci<=?"},{"@":0,"#":[{"@":3,"#":"char-ci<?"},{"@":0,"#":[{"@":3,"#":"char-ci=?"},{"@":0,"#":[{"@":3,"#":"char-ci>=?"},{"@":0,"#":[{"@":3,"#":"char-ci>?"},{"@":0,"#":[{"@":3,"#":"char-downcase"},{"@":0,"#":[{"@":3,"#":"char-lower-case?"},{"@":0,"#":[{"@":3,"#":"char-numeric?"},{"@":0,"#":[{"@":3,"#":"char-ready?"},{"@":0,"#":[{"@":3,"#":"char-upcase"},{"@":0,"#":[{"@":3,"#":"char-upper-case?"},{"@":0,"#":[{"@":3,"#":"char-whitespace?"},{"@":0,"#":[{"@":3,"#":"char<=?"},{"@":0,"#":[{"@":3,"#":"char<?"},{"@":0,"#":[{"@":3,"#":"char=?"},{"@":0,"#":[{"@":3,"#":"char>=?"},{"@":0,"#":[{"@":3,"#":"char>?"},{"@":0,"#":[{"@":3,"#":"char?"},{"@":0,"#":[{"@":3,"#":"close-input-port"},{"@":0,"#":[{"@":3,"#":"close-output-port"},{"@":0,"#":[{"@":3,"#":"complex?"},{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":3,"#":"cos"},{"@":0,"#":[{"@":3,"#":"current-input-port"},{"@":0,"#":[{"@":3,"#":"current-output-port"},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"delay"},{"@":0,"#":[{"@":3,"#":"denominator"},{"@":0,"#":[{"@":3,"#":"display"},{"@":0,"#":[{"@":3,"#":"do"},{"@":0,"#":[{"@":3,"#":"dynamic-wind"},{"@":0,"#":[{"@":3,"#":"eof-object?"},{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":3,"#":"eqv?"},{"@":0,"#":[{"@":3,"#":"eval"},{"@":0,"#":[{"@":3,"#":"even?"},{"@":0,"#":[{"@":3,"#":"exact->inexact"},{"@":0,"#":[{"@":3,"#":"exact?"},{"@":0,"#":[{"@":3,"#":"exp"},{"@":0,"#":[{"@":3,"#":"expt"},{"@":0,"#":[{"@":3,"#":"floor"},{"@":0,"#":[{"@":3,"#":"for-each"},{"@":0,"#":[{"@":3,"#":"force"},{"@":0,"#":[{"@":3,"#":"gcd"},{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"imag-part"},{"@":0,"#":[{"@":3,"#":"inexact->exact"},{"@":0,"#":[{"@":3,"#":"inexact?"},{"@":0,"#":[{"@":3,"#":"input-port?"},{"@":0,"#":[{"@":3,"#":"integer->char"},{"@":0,"#":[{"@":3,"#":"integer?"},{"@":0,"#":[{"@":3,"#":"interaction-environment"},{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":3,"#":"lcm"},{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":3,"#":"let-syntax"},{"@":0,"#":[{"@":3,"#":"letrec"},{"@":0,"#":[{"@":3,"#":"letrec-syntax"},{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":3,"#":"list->string"},{"@":0,"#":[{"@":3,"#":"list->vector"},{"@":0,"#":[{"@":3,"#":"list-ref"},{"@":0,"#":[{"@":3,"#":"list-tail"},{"@":0,"#":[{"@":3,"#":"list?"},{"@":0,"#":[{"@":3,"#":"load"},{"@":0,"#":[{"@":3,"#":"log"},{"@":0,"#":[{"@":3,"#":"magnitude"},{"@":0,"#":[{"@":3,"#":"make-polar"},{"@":0,"#":[{"@":3,"#":"make-rectangular"},{"@":0,"#":[{"@":3,"#":"make-string"},{"@":0,"#":[{"@":3,"#":"make-vector"},{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":3,"#":"max"},{"@":0,"#":[{"@":3,"#":"member"},{"@":0,"#":[{"@":3,"#":"memq"},{"@":0,"#":[{"@":3,"#":"memv"},{"@":0,"#":[{"@":3,"#":"min"},{"@":0,"#":[{"@":3,"#":"modulo"},{"@":0,"#":[{"@":3,"#":"negative?"},{"@":0,"#":[{"@":3,"#":"newline"},{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":3,"#":"null-environment"},{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"number->string"},{"@":0,"#":[{"@":3,"#":"number?"},{"@":0,"#":[{"@":3,"#":"numerator"},{"@":0,"#":[{"@":3,"#":"odd?"},{"@":0,"#":[{"@":3,"#":"open-input-file"},{"@":0,"#":[{"@":3,"#":"open-output-file"},{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":3,"#":"output-port?"},{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"peek-char"},{"@":0,"#":[{"@":3,"#":"positive?"},{"@":0,"#":[{"@":3,"#":"procedure?"},{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"quotient"},{"@":0,"#":[{"@":3,"#":"rational?"},{"@":0,"#":[{"@":3,"#":"rationalize"},{"@":0,"#":[{"@":3,"#":"read"},{"@":0,"#":[{"@":3,"#":"read-char"},{"@":0,"#":[{"@":3,"#":"real-part"},{"@":0,"#":[{"@":3,"#":"real?"},{"@":0,"#":[{"@":3,"#":"remainder"},{"@":0,"#":[{"@":3,"#":"reverse"},{"@":0,"#":[{"@":3,"#":"round"},{"@":0,"#":[{"@":3,"#":"scheme-report-environment"},{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"set-car!"},{"@":0,"#":[{"@":3,"#":"set-cdr!"},{"@":0,"#":[{"@":3,"#":"sin"},{"@":0,"#":[{"@":3,"#":"sqrt"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":3,"#":"string->list"},{"@":0,"#":[{"@":3,"#":"string->number"},{"@":0,"#":[{"@":3,"#":"string->symbol"},{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":3,"#":"string-ci<=?"},{"@":0,"#":[{"@":3,"#":"string-ci<?"},{"@":0,"#":[{"@":3,"#":"string-ci=?"},{"@":0,"#":[{"@":3,"#":"string-ci>=?"},{"@":0,"#":[{"@":3,"#":"string-ci>?"},{"@":0,"#":[{"@":3,"#":"string-copy"},{"@":0,"#":[{"@":3,"#":"string-fill!"},{"@":0,"#":[{"@":3,"#":"string-length"},{"@":0,"#":[{"@":3,"#":"string-ref"},{"@":0,"#":[{"@":3,"#":"string-set!"},{"@":0,"#":[{"@":3,"#":"string<=?"},{"@":0,"#":[{"@":3,"#":"string<?"},{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":3,"#":"string>=?"},{"@":0,"#":[{"@":3,"#":"string>?"},{"@":0,"#":[{"@":3,"#":"string?"},{"@":0,"#":[{"@":3,"#":"substring"},{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"tan"},{"@":0,"#":[{"@":3,"#":"truncate"},{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":0,"#":[{"@":3,"#":"vector-fill!"},{"@":0,"#":[{"@":3,"#":"vector-length"},{"@":0,"#":[{"@":3,"#":"vector-ref"},{"@":0,"#":[{"@":3,"#":"vector-set!"},{"@":0,"#":[{"@":3,"#":"vector?"},{"@":0,"#":[{"@":3,"#":"with-input-from-file"},{"@":0,"#":[{"@":3,"#":"with-output-to-file"},{"@":0,"#":[{"@":3,"#":"write"},{"@":0,"#":[{"@":3,"#":"write-char"},{"@":0,"#":[{"@":3,"#":"zero?"},{"@":2,"#":0}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":1,"#":"7"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"not yet implemented"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"scheme-report-environment: version "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number->string"},{"@":0,"#":[{"@":3,"#":"version"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":" not supported"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%make-vector"},{"@":0,"#":[{"@":3,"#":"prefix"},{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"help"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(%make-vector prefix type help)\n\nMega helper macro that create list of functions for single byte vector\nbased on typed array from JavaScript"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"letrec"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"prefix-str"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"prefix"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type-str"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"l-type"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"type-str"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toLowerCase"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"static"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string->symbol"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":4,"#":"~a.~a"},{"@":0,"#":[{"@":3,"#":"type-str"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"TypedArray.from"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"static"},{"@":0,"#":[{"@":4,"#":"from"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn-name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"str"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string->symbol"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":3,"#":"str"},{"@":0,"#":[{"@":3,"#":"prefix-str"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type-vector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn-name"},{"@":0,"#":[{"@":4,"#":"~avector"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"make-vector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn-name"},{"@":0,"#":[{"@":4,"#":"make-~avector"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn-name"},{"@":0,"#":[{"@":4,"#":"~avector?"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-in-range?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn-name"},{"@":0,"#":[{"@":4,"#":"%~avector-in-range?"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-ref"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn-name"},{"@":0,"#":[{"@":4,"#":"~avector-ref"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"repr-str"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":4,"#":"#~a"},{"@":0,"#":[{"@":3,"#":"prefix-str"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-length"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn-name"},{"@":0,"#":[{"@":4,"#":"~avector-length"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn-name"},{"@":0,"#":[{"@":4,"#":"~avector->list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-set!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn-name"},{"@":0,"#":[{"@":4,"#":"~avector-set!"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->tvector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn-name"},{"@":0,"#":[{"@":4,"#":"list->~avector"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector->tvector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn-name"},{"@":0,"#":[{"@":4,"#":"vector->~avector"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"type-vector"},{"@":2,"#":0}]}]},{"@":3,"#":"args"}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":4,"#":"(~a v1 v2 ...)\n\nCreate ~a from give arguments."},{"@":0,"#":[{"@":3,"#":"type-vector"},{"@":0,"#":[{"@":3,"#":"help"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"TypedArray.from"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->vector"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vector-length"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":4,"#":"(~a v)\n\nreturn length of ~a."},{"@":0,"#":[{"@":3,"#":"vector-length"},{"@":0,"#":[{"@":3,"#":"help"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"vector-length"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"v"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"l-type"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"v.length"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"make-vector"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"k"},{"@":3,"#":"fill"}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":4,"#":"(~a k fill)\n\nAllocate new ~a of length k, with optional initial values."},{"@":0,"#":[{"@":3,"#":"make-vector"},{"@":0,"#":[{"@":3,"#":"help"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"v"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"fill"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"v"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fill"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"fill"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vector?"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":4,"#":"(~a x)\n\nFunction return #t of argument is ~a otherwise it return #f."},{"@":0,"#":[{"@":3,"#":"vector?"},{"@":0,"#":[{"@":3,"#":"help"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"object?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"constructor"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vector-in-range?"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":4,"#":"(~a vector k)\n\nFunction test if index is range for ~a."},{"@":0,"#":[{"@":3,"#":"vector-in-range?"},{"@":0,"#":[{"@":3,"#":"help"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"vector-in-range?"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"l-type"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"vector-in-range?"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"len"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">="},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":3,"#":"len"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vector-ref"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":4,"#":"(~a vector k)\n\nFunction return value frome vector at index k. If index is out of range it throw exception."},{"@":0,"#":[{"@":3,"#":"vector-ref"},{"@":0,"#":[{"@":3,"#":"help"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"vector-ref"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"l-type"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"vector-ref"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vector-in-range?"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":4,"#":"~a index out of range"},{"@":0,"#":[{"@":3,"#":"vector-ref"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"l-type"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Array.from"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vector-set!"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":4,"#":"(~a vector k)\n\nFunction set value of ~a at index k. If index is out of range it throw exception."},{"@":0,"#":[{"@":3,"#":"vector-set!"},{"@":0,"#":[{"@":3,"#":"help"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"vector-set!"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"l-type"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"vector-set!"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vector-in-range?"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":4,"#":"~a index out of range"},{"@":0,"#":[{"@":3,"#":"vector-set!"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"list->tvector"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"lst"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"list->tvector"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"lst"},{"@":0,"#":[{"@":4,"#":"pair"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"lst"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vector->tvector"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"vector->tvector"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":4,"#":"array"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"TypedArray.from"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-special!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"repr-str"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"type-vector"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"lips.specials.SPLICE"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-repr!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"_quote"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"repr-str"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"repr"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"_quote"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]}]}]}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%make-vector"},{"@":0,"#":[{"@":3,"#":"u8"},{"@":0,"#":[{"@":3,"#":"Uint8Array"},{"@":0,"#":[{"@":4,"#":"usigned 8-bit integer vector"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%make-vector"},{"@":0,"#":[{"@":3,"#":"s8"},{"@":0,"#":[{"@":3,"#":"Int8Array"},{"@":0,"#":[{"@":4,"#":"signed 8-bit integer vector"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%make-vector"},{"@":0,"#":[{"@":3,"#":"u16"},{"@":0,"#":[{"@":3,"#":"Uint16Array"},{"@":0,"#":[{"@":4,"#":"usigned 16-bit integer vector"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%make-vector"},{"@":0,"#":[{"@":3,"#":"s16"},{"@":0,"#":[{"@":3,"#":"Int16Array"},{"@":0,"#":[{"@":4,"#":"signed 16-bit integer vector"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%make-vector"},{"@":0,"#":[{"@":3,"#":"u32"},{"@":0,"#":[{"@":3,"#":"Uint16Array"},{"@":0,"#":[{"@":4,"#":"usigned 32-bit integer vector"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%make-vector"},{"@":0,"#":[{"@":3,"#":"s32"},{"@":0,"#":[{"@":3,"#":"Int16Array"},{"@":0,"#":[{"@":4,"#":"signed 32-bit integer vector"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%make-vector"},{"@":0,"#":[{"@":3,"#":"f32"},{"@":0,"#":[{"@":3,"#":"Float32Array"},{"@":0,"#":[{"@":4,"#":"32-bit IEEE floating point number vector"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%make-vector"},{"@":0,"#":[{"@":3,"#":"f64"},{"@":0,"#":[{"@":3,"#":"Float64Array"},{"@":0,"#":[{"@":4,"#":"64-bit IEEE floating point number vector"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list-match?"},{"@":0,"#":[{"@":3,"#":"predicate"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(list-match? predicate list)\n\nFunction check if consecutive elements of the list match the predicate function."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"list-match?"},{"@":0,"#":[{"@":3,"#":"predicate"},{"@":0,"#":[[{"@":4,"#":"function"},{"@":4,"#":"macro"}],{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"list-match?"},{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":4,"#":"pair"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"predicate"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list-match?"},{"@":0,"#":[{"@":3,"#":"predicate"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol=?"},{"@":3,"#":"args"}]},{"@":0,"#":[{"@":4,"#":"(symbol=? s1 s2 ...)\n\nFunction check if each value is symbol and it's the same acording to string=? predicate."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list-match?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"values-ref"},{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(values-ref values n)\n\nFunction return n value of values object which is result of value function."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"values-ref"},{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":4,"#":"values"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"values-ref"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"valueOf"},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"let-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"values"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"..."},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"vector-append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":4,"#":"valueOf"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(let-values binding body ...)\n\nThe macro work similar to let but variable is list of values and value\nneed to evaluate to result of calling values."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-append"},{"@":3,"#":"args"}]},{"@":0,"#":[{"@":4,"#":"(vector-append v1 v2 ...)\n\nFunction return new vector by combining it's arguments that should be vectors."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"vector-append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"array"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"concat"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"vector-append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%range-function"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":3,"#":"body"}]}]},{"@":0,"#":[{"@":4,"#":"(%range-function spec . body)\n\nMacro that creates R7RS vector functions that have range start end."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name-str"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"end"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"length"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name-str"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name-str"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"end"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%range-function"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(vector->list vector)\n(vector->list vector start)\n(vector->list vector start end)\n\nFunction copy given range of vector to list. If no start is specified it use\nstart of the vector, if no end is specified it convert to the end of the vector."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"vector->list"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":4,"#":"array"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"array->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector.slice"},{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":3,"#":"end"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%range-function"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string->vector"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(string->list string)\n(string->list string start)\n(string->list string start end)\n\nFunction copy given range of string to list. If no start is specified it use\nstart of the string, if no end is specified it convert to the end of the string."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string->vector"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string.substring"},{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":3,"#":"end"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"split"},{"@":0,"#":[{"@":4,"#":""},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unary"},{"@":0,"#":[{"@":3,"#":"lips.LCharacter"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%range-function"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector->string"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(vector->string vector)\n(vector->string vector start)\n(vector->string vector start end)\n\nFunction return new string created from vector of characters in given range.\nIf no start is given it create string from 0, if no end is given it return\nstring to the end."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"vector->string"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":4,"#":"array"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"slice"},{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":3,"#":"end"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char.valueOf"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"join"},{"@":0,"#":[{"@":4,"#":""},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%range-function"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-fill!"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"fill"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(vector-fill! vector fill)\n(vector-fill! vector fill start)\n(vector-fill! vector fill start end)\n\nFill vector with a given value in given range. If start is not given is start\nat 0. If end is not given it fill till the end if the vector."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"vector->fill!"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":4,"#":"array"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"recur"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"end"},{"@":0,"#":[{"@":3,"#":"start"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">="},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":3,"#":"start"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":3,"#":"fill"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"recur"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"let*-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bind"},{"@":0,"#":[{"@":3,"#":"values"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"rest"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":3,"#":"body"}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":3,"#":"bind"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"rest"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":3,"#":"body"}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":4,"#":"valueOf"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(let*-values binding body ...)\n\nThe macro work similar to let* but variable is list of values and value\nneed to evaluate to result of calling values."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quotient&remainder"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quotient"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"remainder"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"floor/"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"q"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quotient"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"r"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"remainder"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">="},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":3,"#":"y"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"r"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":3,"#":"q"},{"@":0,"#":[{"@":3,"#":"r"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"q"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"+"},{"@":0,"#":[{"@":3,"#":"r"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":3,"#":"y"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"r"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"q"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"+"},{"@":0,"#":[{"@":3,"#":"r"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":3,"#":"q"},{"@":0,"#":[{"@":3,"#":"r"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"floor-quotient"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"values-ref"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"floor/"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"floor-remainder"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"modulo"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"truncate/"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quotient&remainder"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"truncate-quotient"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quotient"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"truncate-remainder"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"remainder"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"case-lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"case-lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"params"},{"@":0,"#":[{"@":3,"#":"body0"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"len"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"letrec-syntax"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cl"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":3,"#":":::"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cl"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":4,"#":"no matching clause"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cl"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"p"},{"@":0,"#":[{"@":3,"#":":::"},{"@":2,"#":0}]}]},{"@":3,"#":"body"}]},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":3,"#":"len"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"p"},{"@":0,"#":[{"@":3,"#":":::"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"p"},{"@":0,"#":[{"@":3,"#":":::"},{"@":2,"#":0}]}]},{"@":3,"#":"body"}]}]},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cl"},{"@":3,"#":"rest"}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cl"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"p"},{"@":0,"#":[{"@":3,"#":":::"},{"@":3,"#":"tail"}]}]},{"@":3,"#":"body"}]},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">="},{"@":0,"#":[{"@":3,"#":"len"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"p"},{"@":0,"#":[{"@":3,"#":":::"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"p"},{"@":0,"#":[{"@":3,"#":":::"},{"@":3,"#":"tail"}]}]},{"@":3,"#":"body"}]}]},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cl"},{"@":3,"#":"rest"}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cl"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"params"},{"@":0,"#":[{"@":3,"#":"body0"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(case-lambda expr ...)\n\nMacro create new function with different version of the function depend on\nnumber of arguments. Each expression is similar to single lambda.\n\ne.g.:\n\n (define sum\n (case-lambda\n ((x) x)\n ((x y) (+ x y))\n ((x y z) (+ x y z))))\n\n (sum 1)\n (sum 1 2)\n (sum 1 2 3)\n\nMore arguments will give error."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"boolean=?"},{"@":3,"#":"args"}]},{"@":0,"#":[{"@":4,"#":"(boolean=? b1 b2 ...)\n\nFunction check if all arguments are boolean and if they are the same."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":4,"#":"boolean=?: too few arguments"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"reduce"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"acc"},{"@":0,"#":[{"@":3,"#":"item"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"boolean?"},{"@":0,"#":[{"@":3,"#":"item"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"acc"},{"@":0,"#":[{"@":3,"#":"item"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(port? x)\n\nFunction return true of argumet is nput or output port port object."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"output-port?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"input-port?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"square"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(square z)\n\nReturns the square of z. This is equivalent to (* z z)."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"when"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"when"},{"@":0,"#":[{"@":3,"#":"test"},{"@":0,"#":[{"@":3,"#":"result1"},{"@":0,"#":[{"@":3,"#":"result2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"test"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"result1"},{"@":0,"#":[{"@":3,"#":"result2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(when test body ...)\n\nMacro execute body when test expression is true."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"unless"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unless"},{"@":0,"#":[{"@":3,"#":"test"},{"@":0,"#":[{"@":3,"#":"result1"},{"@":0,"#":[{"@":3,"#":"result2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":3,"#":"test"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"result1"},{"@":0,"#":[{"@":3,"#":"result2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(unless test body ...)\n\nMacro execute body when test expression is false."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"inexact"},{"@":0,"#":[{"@":3,"#":"exact->inexact"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"exact"},{"@":0,"#":[{"@":3,"#":"inexact->exact"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact-integer?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(exact-integer? n)\n\nFunction returns #t if z is both exact and an integer; otherwise\nreturns #f."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"integer?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-map"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(vector-map fn vector1 vector2 ...)\n\nFunction return new vector from applying function fn to each element\nof the vectors, similar to map for lists."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"every"},{"@":0,"#":[{"@":3,"#":"vector?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":4,"#":"vector-map: function require at least 1 vector"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"len"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"min"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":3,"#":"vector-length"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"do"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":1,"#":"0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"+"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":3,"#":"len"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-ref"},{"@":0,"#":[{"@":3,"#":"v"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"value"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"push"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-map"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(string-map fn string1 stringr2 ...)\n\nFunction return new string from applying function fn to each element\nof the strings, similar to map for lists."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"every"},{"@":0,"#":[{"@":3,"#":"string?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":4,"#":"string-map: function require at least 1 string"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector->string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"vector-map"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":3,"#":"string->vector"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"dynamic-wind"},{"@":0,"#":[{"@":3,"#":"before"},{"@":0,"#":[{"@":3,"#":"thunk"},{"@":0,"#":[{"@":3,"#":"after"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(dynamic-wind before thunk after)\n\nFunction accept 3 procedures/lambdas and execute thunk with before and always\nafter even if error accur"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"before"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"thunk"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"catch"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"after"},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"with-exception-handler"},{"@":0,"#":[{"@":3,"#":"handler"},{"@":0,"#":[{"@":3,"#":"thunk"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(with-exception-handler handler thunk)\n\nProcedure call and return value of thunk function, if exception happen\nit call handler procedure."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"thunk"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"catch"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"handler"},{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"raise"},{"@":0,"#":[{"@":3,"#":"throw"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"define-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-values"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"dummy"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"call-with-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[false,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"var"},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"var"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"var0"},{"@":0,"#":[{"@":3,"#":"var1"},{"@":0,"#":[{"@":3,"#":"..."},{"@":0,"#":[{"@":3,"#":"varn"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"call-with-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"var1"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"v"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-cdr!"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cddr"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"..."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"varn"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"v"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"var0"},{"@":0,"#":[{"@":3,"#":"var1"},{"@":0,"#":[{"@":3,"#":"..."},{"@":3,"#":"varn"}]}]}]},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"call-with-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"var1"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"v"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-cdr!"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cddr"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"..."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"varn"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"v"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-values"},{"@":0,"#":[{"@":3,"#":"var"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"var"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"call-with-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(define-values (a b ...) expr)\n\nFunction evaluate expression expr and if it evaluates to result of values\nthen it will defined each value as variable like with define."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"include"},{"@":3,"#":"files"}]},{"@":0,"#":[{"@":4,"#":"(include file ...)\n\nMacro that load at least one file content and insert them into one,\nbody expression."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"files"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"include: at least one file path required"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"interaction-environment"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":3,"#":"global"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fs"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"require"},{"@":0,"#":[{"@":4,"#":"fs"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"readFile"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"file"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":3,"#":"reject"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fs.readFile"},{"@":0,"#":[{"@":3,"#":"file"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"err"},{"@":0,"#":[{"@":3,"#":"data"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"err"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"data"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toString"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"reject"},{"@":0,"#":[{"@":3,"#":"err"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"for-each"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"file"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"expr"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.parse"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"readFile"},{"@":0,"#":[{"@":3,"#":"file"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"env"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"concat"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"files"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"for-each"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"file"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"text"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fetch"},{"@":0,"#":[{"@":3,"#":"file"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"text"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"expr"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.parse"},{"@":0,"#":[{"@":3,"#":"text"},{"@":0,"#":[{"@":3,"#":"env"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"concat"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"files"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":3,"#":"result.length"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"syntax-error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":4,"#":"step"},{"@":0,"#":[{"@":3,"#":"arg"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"join"},{"@":0,"#":[{"@":4,"#":" "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"repr"},{"@":0,"#":[{"@":3,"#":"arg"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":3,"#":"message"},{"@":0,"#":[{"@":3,"#":"arg"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"raise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":4,"#":"~a ~a"},{"@":0,"#":[{"@":3,"#":"message"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":4,"#":"step"},{"@":0,"#":[{"@":3,"#":"arg"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":3,"#":"r7rs"},{"@":0,"#":[{"@":3,"#":"srfi-0"},{"@":0,"#":[{"@":3,"#":"srfi-2"},{"@":0,"#":[{"@":3,"#":"srfi-4"},{"@":0,"#":[{"@":3,"#":"srfi-6"},{"@":0,"#":[{"@":3,"#":"srfi-10"},{"@":0,"#":[{"@":3,"#":"srfi-22"},{"@":0,"#":[{"@":3,"#":"srfi-23"},{"@":0,"#":[{"@":3,"#":"srfi-46"},{"@":0,"#":[{"@":3,"#":"srfi-176"},{"@":0,"#":[{"@":3,"#":"lips"},{"@":0,"#":[{"@":3,"#":"complex"},{"@":0,"#":[{"@":3,"#":"full-unicode"},{"@":0,"#":[{"@":3,"#":"ieee-float"},{"@":0,"#":[{"@":3,"#":"ratios"},{"@":0,"#":[{"@":3,"#":"exact-complex"},{"@":0,"#":[{"@":3,"#":"full-numeric-tower"},{"@":2,"#":0}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-error"},{"@":0,"#":[{"@":4,"#":"Unfulfilled cond-expand"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":3,"#":"req1"},{"@":0,"#":[{"@":3,"#":"req2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"req1"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":3,"#":"req2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":3,"#":"req1"},{"@":0,"#":[{"@":3,"#":"req2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"req1"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":3,"#":"req2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":3,"#":"req"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"req"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"r7rs"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"srfi-0"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"srfi-2"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"srfi-4"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"srfi-6"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"srfi-10"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"srfi-22"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"srfi-23"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"srfi-46"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"srfi-176"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"complex"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"full-unicode"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"ieee-float"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"ratios"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact-complex"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"full-numeric-tower"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"features"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"r7rs"},{"@":0,"#":[{"@":3,"#":"srfi-0"},{"@":0,"#":[{"@":3,"#":"srfi-2"},{"@":0,"#":[{"@":3,"#":"srfi-4"},{"@":0,"#":[{"@":3,"#":"srfi-6"},{"@":0,"#":[{"@":3,"#":"srfi-10"},{"@":0,"#":[{"@":3,"#":"srfi-22"},{"@":0,"#":[{"@":3,"#":"srfi-23"},{"@":0,"#":[{"@":3,"#":"srfi-46"},{"@":0,"#":[{"@":3,"#":"srfi-176"},{"@":0,"#":[{"@":3,"#":"lips"},{"@":0,"#":[{"@":3,"#":"complex"},{"@":0,"#":[{"@":3,"#":"full-unicode"},{"@":0,"#":[{"@":3,"#":"ieee-float"},{"@":0,"#":[{"@":3,"#":"ratios"},{"@":0,"#":[{"@":3,"#":"exact-complex"},{"@":0,"#":[{"@":3,"#":"full-numeric-tower"},{"@":2,"#":0}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"*zero-number-chars*"},{"@":0,"#":[[{"@":1,"#":"48"},{"@":1,"#":"1632"},{"@":1,"#":"1776"},{"@":1,"#":"1984"},{"@":1,"#":"2406"},{"@":1,"#":"2534"},{"@":1,"#":"2662"},{"@":1,"#":"2790"},{"@":1,"#":"2918"},{"@":1,"#":"3046"},{"@":1,"#":"3174"},{"@":1,"#":"3302"},{"@":1,"#":"3430"},{"@":1,"#":"3558"},{"@":1,"#":"3664"},{"@":1,"#":"3792"},{"@":1,"#":"3872"},{"@":1,"#":"4160"},{"@":1,"#":"4240"},{"@":1,"#":"6112"},{"@":1,"#":"6160"},{"@":1,"#":"6470"},{"@":1,"#":"6608"},{"@":1,"#":"6784"},{"@":1,"#":"6800"},{"@":1,"#":"6992"},{"@":1,"#":"7088"},{"@":1,"#":"7232"},{"@":1,"#":"7248"},{"@":1,"#":"42528"},{"@":1,"#":"43216"},{"@":1,"#":"43264"},{"@":1,"#":"43472"},{"@":1,"#":"43504"},{"@":1,"#":"43600"},{"@":1,"#":"44016"},{"@":1,"#":"65296"},{"@":1,"#":"66720"},{"@":1,"#":"68912"},{"@":1,"#":"69734"},{"@":1,"#":"69872"},{"@":1,"#":"69942"},{"@":1,"#":"70096"},{"@":1,"#":"70384"},{"@":1,"#":"70736"},{"@":1,"#":"70864"},{"@":1,"#":"71248"},{"@":1,"#":"71360"},{"@":1,"#":"71472"},{"@":1,"#":"71904"},{"@":1,"#":"72016"},{"@":1,"#":"72784"},{"@":1,"#":"73040"},{"@":1,"#":"73120"},{"@":1,"#":"92768"},{"@":1,"#":"93008"},{"@":1,"#":"120782"},{"@":1,"#":"120792"},{"@":1,"#":"120802"},{"@":1,"#":"120812"},{"@":1,"#":"120822"},{"@":1,"#":"123200"},{"@":1,"#":"123632"},{"@":1,"#":"125264"},{"@":1,"#":"130032"}],{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"digit-value"},{"@":0,"#":[{"@":3,"#":"chr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(digit-value chr)\n\nReturn digit number if character is numeral (as per char-numeric?)\nor #f otherwise."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"digit-value"},{"@":0,"#":[{"@":3,"#":"chr"},{"@":0,"#":[{"@":4,"#":"character"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-numeric?"},{"@":0,"#":[{"@":3,"#":"chr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"ord"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char->integer"},{"@":0,"#":[{"@":3,"#":"chr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"do"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-length"},{"@":0,"#":[{"@":3,"#":"*zero-number-chars*"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"found"},{"@":0,"#":[false,{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[false,{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"found"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-ref"},{"@":0,"#":[{"@":3,"#":"*zero-number-chars*"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"diff"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"ord"},{"@":0,"#":[{"@":3,"#":"zero"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">="},{"@":0,"#":[{"@":3,"#":"diff"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<="},{"@":0,"#":[{"@":3,"#":"diff"},{"@":0,"#":[{"@":1,"#":"9"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":3,"#":"diff"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"found"},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[false,{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"make-bytevector"},{"@":0,"#":[{"@":3,"#":"make-u8vector"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"bytevector"},{"@":0,"#":[{"@":3,"#":"u8vector"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"bytevector?"},{"@":0,"#":[{"@":3,"#":"u8vector?"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"bytevector-length"},{"@":0,"#":[{"@":3,"#":"u8vector-length"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"bytevector-u8-ref"},{"@":0,"#":[{"@":3,"#":"u8vector-ref"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"bytevector-u8-set!"},{"@":0,"#":[{"@":3,"#":"u8vector-set!"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bytevector-append"},{"@":0,"#":[{"@":3,"#":"v1"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(bytevector-append v1 ...)\n\nCreate new bytevector u8vector that is created from joining each argument."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"bytevector-append"},{"@":0,"#":[{"@":3,"#":"v1"},{"@":0,"#":[{"@":4,"#":"uint8array"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"arg"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"bytevector-append"},{"@":0,"#":[{"@":3,"#":"arg"},{"@":0,"#":[{"@":4,"#":"uint8array"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"v1"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Uint8Array"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"vector-append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Array.from"},{"@":0,"#":[{"@":3,"#":"v1"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":3,"#":"Array.from"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bytevector-copy"},{"@":0,"#":[{"@":3,"#":"v"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(bytevector-copy v)\n(bytevector-copy v start)\n(bytevector-copy v start end)\n\nFunction and return new vector from start to end. If no start and end is provided\nwhole vector is copied and returned."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Uint8Array"},{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"v.slice"},{"@":0,"#":[{"@":3,"#":"start"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"v.slice"},{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bytevector-copy!"},{"@":0,"#":[{"@":3,"#":"to"},{"@":0,"#":[{"@":3,"#":"at"},{"@":0,"#":[{"@":3,"#":"from"},{"@":3,"#":"rest"}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(bytevector-copy! to at from)\n(bytevector-copy! to at from start)\n(bytevector-copy! to at from start end)\n\nCopies the bytes of bytevector from between start and end to bytevector to,\nstarting at at."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"bytevector-copy!"},{"@":0,"#":[{"@":3,"#":"to"},{"@":0,"#":[{"@":4,"#":"uint8array"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"bytevector-copy!"},{"@":0,"#":[{"@":3,"#":"from"},{"@":0,"#":[{"@":4,"#":"uint8array"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":3,"#":"at"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"bytevector-copy! `at` need to be positive"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":3,"#":"at"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bytevector-length"},{"@":0,"#":[{"@":3,"#":"to"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"bytevector-copy! `at` need to be less then byte vector length"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"end"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bytevector-length"},{"@":0,"#":[{"@":3,"#":"from"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"start"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":3,"#":"at"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"j"},{"@":0,"#":[{"@":3,"#":"start"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"while"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bytevector-length"},{"@":0,"#":[{"@":3,"#":"to"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bytevector-length"},{"@":0,"#":[{"@":3,"#":"from"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":3,"#":"j"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"+"},{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":3,"#":"end"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bytevector-u8-set!"},{"@":0,"#":[{"@":3,"#":"to"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bytevector-u8-ref"},{"@":0,"#":[{"@":3,"#":"from"},{"@":0,"#":[{"@":3,"#":"j"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"+"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"j"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"+"},{"@":0,"#":[{"@":3,"#":"j"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"string->utf8"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"encoder"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"TextEncoder"},{"@":0,"#":[{"@":4,"#":"utf-8"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string"},{"@":3,"#":"rest"}]},{"@":0,"#":[{"@":4,"#":"(string->utf8 string)\n(string->utf8 string start)\n(string->utf8 string start end)\n\nFunction converts string into u8 bytevector using utf8 encoding.\nThe start and end is the range of the input string for the conversion."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string->utf8"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"encoder.encode"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"len"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Array.from"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"length"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"end"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"len"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"encoder.encode"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"substring"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":3,"#":"end"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"utf8->string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"decoder"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"TextDecoder"},{"@":0,"#":[{"@":4,"#":"utf-8"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"v"},{"@":3,"#":"rest"}]},{"@":0,"#":[{"@":4,"#":"(utf8->string u8vector)\n(utf8->string u8vector start)\n(utf8->string u8vector start end)\n\nFunction converts u8 bytevector into string using utf8 encoding.\nThe start and end is the range of the input byte vector for the conversion."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"utf8->string"},{"@":0,"#":[{"@":3,"#":"v"},{"@":0,"#":[{"@":4,"#":"uint8array"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"decoder.decode"},{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"len"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Array.from"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"length"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"end"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"len"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"decoder.decode"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"v.slice"},{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":3,"#":"end"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open-input-string"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(open-input-string string)\n\nFunction create new string port as input that can be used to\nread S-exressions from this port using `read` function."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"open-input-string"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"lips.InputStringPort"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"interaction-environment"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open-output-string"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(open-output-string)\n\nFunction create new output port that can used to write string into\nand after finish get the whole string using `get-output-string`."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"lips.OutputStringPort"},{"@":0,"#":[{"@":3,"#":"repr"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open-output-bytevector"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(open-output-bytevector)\n\nCreate new output port that can be used to write binary data.\nAfter done with the data the output buffer can be obtained by calling\n`get-output-bytevector` function."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"lips.OutputByteVectorPort"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get-output-bytevector"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(get-output-string port)\n\nFunction get full string from string port. If nothing was wrote\nto given port it will return empty string."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"instanceof"},{"@":0,"#":[{"@":3,"#":"lips.OutputByteVectorPort"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"get-output-bytevector: expecting output-bytevector-port get "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.valueOf"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get-output-string"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(get-output-string port)\n\nFunction get full string from string port. If nothing was wrote\nto given port it will return empty string."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"instanceof"},{"@":0,"#":[{"@":3,"#":"lips.OutputStringPort"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"get-output-string: expecting output-string-port get "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.valueOf"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open-input-bytevector"},{"@":0,"#":[{"@":3,"#":"bytevector"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(open-input-bytevector bytevector)\n\nCreate new input binary port with given bytevector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"open-input-bytevector"},{"@":0,"#":[{"@":3,"#":"bytevector"},{"@":0,"#":[{"@":4,"#":"uint8array"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"lips.InputByteVectorPort"},{"@":0,"#":[{"@":3,"#":"bytevector"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open-binary-input-file"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(open-binary-input-file filename)\n\nFunction return new Input Binary Port with given filename. In Browser\nuser need to provide global fs variable that is instance of FS interface."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"u8vector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"buffer->u8vector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%read-binary-file"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"lips.InputBinaryFilePort"},{"@":0,"#":[{"@":3,"#":"u8vector"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"binary-port?"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(binary-port? port)\n\nFunction test if argument is binary port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port?"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"port.__type__"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Symbol.for"},{"@":0,"#":[{"@":4,"#":"binary"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"textual-port?"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(textual-port? port)\n\nFunction test if argument is string port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port?"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"port.__type__"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Symbol.for"},{"@":0,"#":[{"@":4,"#":"text"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%define-binary-input-lambda"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"docstring"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name-str"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":3,"#":"rest"}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"docstring"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-input-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name-str"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"input-port"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"binary-port?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name-str"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":" invalid port. Binary port required."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"%define-binary-input-lambda"},{"@":0,"#":[{"@":3,"#":"peek-u8"},{"@":0,"#":[{"@":4,"#":"(peek-u8)\n(peek-u8 port)\n\nReturn next byte from input-binary port. If there are no more bytes\nit return eof object."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.peek_u8"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%define-binary-input-lambda"},{"@":0,"#":[{"@":3,"#":"read-u8"},{"@":0,"#":[{"@":4,"#":"(read-u8)\n(read-u8 port)\n\nRead next byte from input-binary port. If there are no more bytes\nit return eof object."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.read_u8"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%define-binary-input-lambda"},{"@":0,"#":[{"@":3,"#":"u8-ready?"},{"@":0,"#":[{"@":4,"#":"(u8-ready?)\n(u8-ready? port)\n\nReturns #t if a byte is ready on the binary input port and returns #f otherwise.\nIf u8-ready? returns #t then the next read-u8 operation on the given port is\nguaranteed not to hang. If the port is at end of file then u8-ready? returns #t."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.u8_ready"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"read-bytevector"},{"@":0,"#":[{"@":3,"#":"k"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(read-bytevector k)\n(read-bytevector k port)\n\nRead next n bytes from input-binary port. If there are no more bytes\nit returns eof object. If there are less then n bytes in port it\nreturn the only bytes that are available"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-input-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"read-bytevector"},{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":4,"#":"input-port"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"binary-port?"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"read-bytevector: invalid port"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.read_u8_vector"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%define-binary-output-lambda"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"docstring"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"data"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"data"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name-str"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"data"},{"@":2,"#":0}]}]},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"docstring"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-output-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name-str"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"output-port"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name-str"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"data"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"binary-port?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name-str"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":" invalid port. Binary port required."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"data"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"%define-binary-output-lambda"},{"@":0,"#":[{"@":3,"#":"write-u8"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":4,"#":"(write-u8 byte)\n(write-u8 byte port)\n\nWrite byte into binary output port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"data"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.write_u8"},{"@":0,"#":[{"@":3,"#":"data"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%define-binary-output-lambda"},{"@":0,"#":[{"@":3,"#":"write-bytevector"},{"@":0,"#":[{"@":4,"#":"uint8array"},{"@":0,"#":[{"@":4,"#":"(write-bytevector bytevector)\n(write-bytevector bytevector port)\n\nWrite byte vector into binary output port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"data"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.write_u8_vector"},{"@":0,"#":[{"@":3,"#":"data"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"open-binary-output-file"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open"},{"@":2,"#":0}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(open-binary-output-file filename)\n\nFunction open file and return port that can be used for writing. If file\nexists it will throw an Error."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"open-output-file"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"procedure?"},{"@":0,"#":[{"@":3,"#":"open"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"open"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%fs-promisify-proc"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"open"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"open-binary-output-file"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"file-exists?"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"open-binary-output-file: file exists"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.OutputBinaryFilePort"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":0,"#":[{"@":4,"#":"w"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"read-bytevector!"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(read-bytevector! bytevector)\n(read-bytevector! bytevector port)\n(read-bytevector! bytevector port start)\n(read-bytevector! bytevector port start end)\n\nFunction read next bytes from binary input port and write them into byte vector.\nif not start is specified it start to write into 0 position of the vector until\nthe end or end the vector if no end is specified."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"read-bytevector!"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":4,"#":"uint8array"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-input-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"end"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cddr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bytevector-length"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caddr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"read-bytevector!"},{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":4,"#":"input-port"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"binary-port?"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"read-bytevector!: invalid port. Binary port required."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"read-bytevector!"},{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"read-bytevector!"},{"@":0,"#":[{"@":3,"#":"end"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"out"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"read-bytevector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"end"},{"@":0,"#":[{"@":3,"#":"start"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector.set"},{"@":0,"#":[{"@":3,"#":"out"},{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":3,"#":"end"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"delete-file"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unlink"},{"@":0,"#":[false,{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(delete-file filename)\n\nFunction delete the file of given name."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"delete-file"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"procedure?"},{"@":0,"#":[{"@":3,"#":"unlink"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"unlink"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%fs-promisify-proc"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"unlink"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"delete-file"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unlink"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"call-with-port"},{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":3,"#":"proc"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(call-with-port port proc)\n\nProc is executed with given port and after it returns, the port is closed."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"proc"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"finally"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"procedure?"},{"@":0,"#":[{"@":3,"#":"port.close"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.close"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"close-port"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(close-port port)\n\nClose input or output port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"close-port"},{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[[{"@":4,"#":"input-port"},{"@":4,"#":"output-port"}],{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.close"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eof-object"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(eof-object)\n\nProcedure returns eof object that indicate end of the port"},{"@":0,"#":[{"@":3,"#":"lips.eof"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"output-port-open?"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(output-port-open? port)\n\nFunction check if argument is output-port and if you can write to it."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"output-port?"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.is_open"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"input-port-open?"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(input-port-open? port)\n\nFunction check if argument is input-port and if you can read from it."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"input-port?"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.is_open"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"flush-output-port"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(flush-output-port port)\n\nFunctio do nothing, flush is not needed in LIPS in both NodeJS and Browser.\nThe function is added, so it don't throw exception when using R7RS code."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[false,{"@":0,"#":[false,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"write-string"},{"@":0,"#":[{"@":3,"#":"string"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(write-string string)\n(write-string string port)\n(write-string string port start)\n(write-string string port start end)\n\nWrites the characters of string from start to end in left-toright order\nto the textual output port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"write-string"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-output-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"end"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cddr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-length"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caddr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"write-string"},{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":4,"#":"output-port"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"write-string"},{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"write-string"},{"@":0,"#":[{"@":3,"#":"end"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"display"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"substring"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":3,"#":"end"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"write-char"},{"@":0,"#":[{"@":3,"#":"char"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(write-char string)\n(write-char string port)\n\nWrites the character char (not an external representation of the character)\nto the given textual output port and returns an unspecified value."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"write-char"},{"@":0,"#":[{"@":3,"#":"char"},{"@":0,"#":[{"@":4,"#":"character"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-output-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"write-char"},{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":4,"#":"output-port"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"display"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"read-string"},{"@":0,"#":[{"@":3,"#":"k"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(read-string k)\n(read-string k port)\n\nReads the next k characters, or as many as are available\nbefore the end of file, from the textual input port into a\nnewly allocated string in left-to-right order and returns the\nstring. If no characters are available before the end of file,\nan end-of-file object is returned."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"read-string"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-input-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"read-string"},{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":4,"#":"input-port"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.read_string"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list-copy"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(list-copy obj)\n\nCopy the object passed as argument but only if it's list. The car elements\nof the list are not copied, they are passed as is."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"list-copy"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[[{"@":4,"#":"pair"},{"@":4,"#":"nil"}],{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"obj.clone"},{"@":0,"#":[false,{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-record-type"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"constructor"},{"@":0,"#":[{"@":3,"#":"pred"},{"@":3,"#":"fields"}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(define-record-type name constructor pred . fields)\n\nMacro for defining records. Example of usage:\n\n(define-record-type <pare>\n (kons x y)\n pare?\n (x kar set-kar!)\n (y kdr set-kdr!))\n\n(define p (kons 1 2))\n(print (kar p))\n;; 1\n(set-kdr! p 3)\n(print (kdr p))\n;; 3"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"obj-name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"obj-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"value-name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"value-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"class"},{"@":0,"#":[{"@":3,"#":"Object"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"constructor"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"constructor"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"field"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"field"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"prop"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"self."},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string->symbol"},{"@":0,"#":[{"@":3,"#":"prop"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"field"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"constructor"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toType"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"self"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"record"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toString"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"self"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"#<"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":">"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"constructor"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"constructor"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"pred"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"instanceof"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"field"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"prop-name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"field"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"field"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cddr"},{"@":0,"#":[{"@":3,"#":"field"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caddr"},{"@":0,"#":[{"@":3,"#":"field"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"get"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"get"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj-name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"record"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"pred"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"object is not record of type "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj-name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"prop-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"set"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"set"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj-name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"value-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"get"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj-name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"record"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"pred"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"object is not record of type "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj-name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"prop-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"value-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"fields"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"nan?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(nan? x)\n\nFunction check if argument x is Not a Number (NaN) value."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x.isNaN"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":4,"#":"complex"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"nan?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"real-part"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"nan?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"imag-part"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"infinite?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(infinite? x)\n\nFunction check if value is infinite."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"Number.NEGATIVE_INFINITY"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"Number.POSITIVE_INFINITY"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"NaN"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":4,"#":"complex"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"infinite?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"real-part"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"infinite?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"imag-part"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"finite?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(finite? x)\n\nFunction check if value is finite."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"infinite?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-class"},{"@":0,"#":[{"@":3,"#":"%Library"},{"@":0,"#":[{"@":3,"#":"Object"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"constructor"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"self.__namespace__"},{"@":0,"#":[{},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"self.__name__"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":3,"#":"env"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"environment?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"self.__namespace__"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"namespace "},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":4,"#":" already exists in library "},{"@":0,"#":[{"@":3,"#":"self.__name__"},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"self.__namespace__"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":3,"#":"env"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"self.__namespace__"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"environment?"},{"@":0,"#":[{"@":3,"#":"env"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"namespace "},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":4,"#":" sdon't exists"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"env"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"self.env"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"self.env"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toString"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"self"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"#<Library("},{"@":0,"#":[{"@":3,"#":"self.__name__"},{"@":0,"#":[{"@":4,"#":")>"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%import-name"},{"@":0,"#":[{"@":3,"#":"library"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":3,"#":"names"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"library"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"names"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"import"},{"@":3,"#":"specs"}]},{"@":0,"#":[{"@":4,"#":"(import (library namespace))\n(import (only (library namespace) name1 name2))\n\nMacro for importing names from library."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"parent"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-environment"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"import: invalid syntax"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol=?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"only"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lib"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caadr"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caaddr"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%import-name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"lib"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caddr"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"import: invalid syntax"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lib-name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lib"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"parent.get"},{"@":0,"#":[{"@":3,"#":"lib-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%import-name"},{"@":0,"#":[{"@":3,"#":"lib-name"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lib.env"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"specs"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new-library"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(new-library name)\n\nCreate new empty library object with empty namespace."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"parent"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-environment"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"__parent__"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lib"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lib"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"parent"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"throwError":false},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"lib"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"%Library"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"lib"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"lips.Environment"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"library-"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toLowerCase"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"-"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toLowerCase"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lib.append"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"lib"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%export"},{"@":0,"#":[{"@":3,"#":"module"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":3,"#":"specs"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"module"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol=?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"rename"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"module"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caddr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"specs"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-library"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":3,"#":"body"}]}]},{"@":0,"#":[{"@":4,"#":"(define-library (library (name namespace) . body)\n\nMacro for defining modules inside you can use define to create functions.\nAnd use export name to add that name to defined environment."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"parent"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-environment"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"__parent__"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"module-var"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"namespace-var"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"module-var"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new-library"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"namespace-var"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"export"},{"@":3,"#":"body"}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%export"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"module-var"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"namespace-var"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"parent"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"module-var"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-directory"},{"@":0,"#":[{"@":3,"#":"set-current-directory!"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":3,"#":"window"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cwd"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":3,"#":"location.origin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"location.pathname"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"replace"},{"@":0,"#":[{},{"@":0,"#":[{"@":4,"#":"/"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":4,"#":"(current-directory)\n\nReturn corrent working directory, default it's corrent URL."},{"@":0,"#":[{"@":3,"#":"cwd"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(set-current-directory! string)\n\nFunction change current working directory to provided string."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"set-current-directory!"},{"@":0,"#":[{"@":3,"#":"value"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"cwd"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"process"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"require"},{"@":0,"#":[{"@":4,"#":"process"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":4,"#":"(current-directory)\n\nReturn corrent working directory, default it's path from where\nthe script was executed."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"process.cwd"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"/"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(set-current-directory! string)\n\nFunction change current working directory to provided string."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"set-current-directory!"},{"@":0,"#":[{"@":3,"#":"value"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"process.chdir"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"and-let*"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"expression"},{"@":2,"#":0}]},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"expression"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol"},{"@":0,"#":[{"@":3,"#":"expression"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol"},{"@":0,"#":[{"@":3,"#":"expression"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol"},{"@":0,"#":[{"@":3,"#":"expression"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"expr"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol"},{"@":0,"#":[{"@":3,"#":"expression"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and-let*"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"expr"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"expression"},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"expr"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":3,"#":"expression"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and-let*"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"expr"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(and-let* ((name expression) expression ...) body)\n\nMacro that combine let and and. First expression need to be in form of let.\nSymbol expression the rest can be boolean expression or name expreession.\nThis is implementation of SRFI-2."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"set-special!"},{"@":0,"#":[{"@":4,"#":"#,"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"sharp-comma"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"**reader-ctor-list**"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-reader-ctor"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(define-reader-ctor symbol fn)\n\nDefine the value for #, syntax. SRFI-10\nExample:\n\n(define-reader-ctor '+ +)\n(print #,(+ 1 2))"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"node"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"assoc"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":0,"#":[{"@":3,"#":"**reader-ctor-list**"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"node"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-cdr!"},{"@":0,"#":[{"@":3,"#":"node"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"**reader-ctor-list**"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"**reader-ctor-list**"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"sharp-comma"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":3,"#":"arg"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"node"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"assoc"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"**reader-ctor-list**"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"node"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"node"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"arg"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"Invalid symbol "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":" in expression "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"repr"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":3,"#":"arg"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(sharp-comma expr)\n#,(ctor ...)\n\nThis is syntax extension for SRFI-10. To define the function to be used with\nThis syntax you need to call `define-reader-ctor` function and define\nsymbol function mapping."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fs"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":3,"#":"global"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"require"},{"@":0,"#":[{"@":4,"#":"fs"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"self.BrowserFS"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"indexed-db?"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":3,"#":"reject"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"BrowserFS.configure"},{"@":0,"#":[{"options":{},"fs":{"@":4,"#":"IndexedDB"}},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"BrowserFS.BFSRequire"},{"@":0,"#":[{"@":4,"#":"fs"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"reject"},{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"self.BrowserFS"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"console.warn"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"BrowserFS not initilalized "},{"@":0,"#":[{"@":4,"#":"IndexedDB is not available"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Buffer"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":3,"#":"global"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"self.Buffer"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"self.BrowserFS"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"BrowserFS.BFSRequire"},{"@":0,"#":[{"@":4,"#":"buffer"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"Buffer"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"internal"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.env.get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"Buffer"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"internal.set"},{"@":0,"#":[{"@":4,"#":"Buffer"},{"@":0,"#":[{"@":3,"#":"Buffer"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"fs"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"internal.set"},{"@":0,"#":[{"@":4,"#":"fs"},{"@":0,"#":[{"@":3,"#":"fs"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}] \ No newline at end of file +[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%doc"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"%doc"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":4,"#":"function"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"%doc"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"__doc__"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"replace"},{"@":0,"#":[{},{"@":0,"#":[{"@":4,"#":""},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let-syntax"},{"@":0,"#":[{"@":3,"#":"vars"},{"@":3,"#":"body"}]}]},{"@":0,"#":[{"@":4,"#":"(let-syntax ((name fn)) body)\n\n Macro works like combination of let and define-syntax. It creates\n local macros and evaluate body in context of those macros.\n The macro to letrec-syntax is like letrec is to let."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vars"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"rule"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"let-syntax"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rule"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"syntax"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"vars"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"letrec-syntax"},{"@":0,"#":[{"@":3,"#":"vars"},{"@":3,"#":"body"}]}]},{"@":0,"#":[{"@":4,"#":"(letrec-syntax ((name fn)) body)\n\n Macro works like combination of letrec and define-syntax. It creates\n local macros and evaluate body in context of those macros."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"letrec"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vars"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"rule"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"letrec-syntax"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rule"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"syntax"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"vars"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":3,"#":"rest"}]}]}]},{"@":0,"#":[{"@":4,"#":"(define-syntax name expression [__doc__])\n\nMacro define new hygienic macro using syntax-rules with optional documentation"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"expr-name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"expr-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"expr-name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"define-syntax"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"expr-name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"syntax"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"expr-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quoted-symbol?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(quoted-symbol? code)\n\nHelper function that test if value is quoted symbol. To be used in macros\nthat pass literal code that is transformed by parser.\n\nusage:\n\n (define-macro (test x)\n (if (quoted-symbol? x)\n `',(cadr x)))\n\n (list 'hello (test 'world))"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"quote"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cddr"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":3,"#":"code"}]}]},{"@":0,"#":[{"@":4,"#":"Helper macro that simplify calling methods on objects. It work with chaining\n\nusage: (--> ($ \"body\")\n (css \"color\" \"red\")\n (on \"click\" (lambda () (display \"click\"))))\n\n (--> document (querySelectorAll \"div\"))\n\n (--> (fetch \"https://jcubic.pl\")\n (text)\n (match #/<title>([^<]+)<\\/title>/)\n 1)\n \n (--> document\n (querySelectorAll \".cmd-prompt\")\n 0\n 'innerHTML\n (replace #/<(\"[^\"]+\"|[^>])+>/g \"\"))\n\n (--> document.body\n (style.setProperty \"--color\" \"red\"))"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"obj"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"code"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"value"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"value"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quoted-symbol?"},{"@":0,"#":[{"@":3,"#":"code"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"code"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"code"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"code"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[true,{"@":0,"#":[{"@":3,"#":"code"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string?"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"split"},{"@":0,"#":[{"@":4,"#":"."},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"code"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quoted-symbol?"},{"@":0,"#":[{"@":3,"#":"code"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"code"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"code"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-global"},{"@":0,"#":[{"@":3,"#":"first"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(define-global var value)\n(define-global (name . args) body)\n\nMacro that define functions or variables in global context, so they can be used\ninside let and get let variables in closure, Useful for universal macros."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"first"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"first"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"lips.env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"first"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"lips.env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"first"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"globalize"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(globalize expr)\n\n Macro will get the value of the expression and add each method as function to global\n scope."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-environment"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eval"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":0,"#":[{"@":3,"#":"env"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env-name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"env-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"make-name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pre"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string->symbol"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"concat"},{"@":0,"#":[{"@":3,"#":"pre"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"string->symbol"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"filter"},{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"match"},{"@":0,"#":[{"@":3,"#":"/^_/"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"function?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-global"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"make-name"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"array->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"Object"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"keys"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"single"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(single list)\n\nFunction check if argument is list with single element"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iterator?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(iterator? x)\n\n Function check if value is JavaScript iterator object"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"object?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"procedure?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"Symbol.iterator"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":".."},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(.. foo.bar.baz)\n\nMacro that gets value from nested object where argument is comma separated symbol"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"expr"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"parts"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"split"},{"@":0,"#":[{"@":4,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"single"},{"@":0,"#":[{"@":3,"#":"parts"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"expr"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string->symbol"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"parts"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"parts"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"set-special!"},{"@":0,"#":[{"@":4,"#":"#:"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"gensym-interal"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym-interal"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(gensym-interal symbol)\n\nParser extension that create new quoted named gensym."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"plain-object?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(plain-object? x)\n\nFunction check if value is plain JavaScript object. Created using object macro."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"=="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cmp"},{"@":0,"#":[{"@":4,"#":"object"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"constructor"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"Object"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"typed-array?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"TypedArray"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Object.getPrototypeOf"},{"@":0,"#":[{"@":3,"#":"Uint8Array"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"o"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(typed-array? o)\n\nFunction test if argument is JavaScript typed array (Scheme byte vector)."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"instanceof"},{"@":0,"#":[{"@":3,"#":"TypedArray"},{"@":0,"#":[{"@":3,"#":"o"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"s"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(symbol->string symbol)\n\nFunction convert LIPS symbol to string."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"s"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"s.__name__"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string?"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toString"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string->symbol"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(string->symbol string)\n\nFunction convert string to LIPS symbol."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string?"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%as.data"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"lips"},{"@":0,"#":[{"@":4,"#":"LSymbol"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"alist->object"},{"@":0,"#":[{"@":3,"#":"alist"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(alist->object alist)\n\nFunction convert alist pairs to JavaScript object."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"alist"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"alist.to_object"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"alist->object"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"lips.Pair"},{"@":0,"#":[{"@":3,"#":"undefined"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"parent.frames"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(parent.frames)\n\nFuncion return list of environments from parent frames (lambda function calls)"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"frame"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"parent.frame"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"frame"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"interaction-environment"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":3,"#":"frame"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"frame"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"parent.frame"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"frame"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"parent.frame"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"object"},{"@":0,"#":[{"@":3,"#":":throwError"},{"@":0,"#":[false,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"function?"},{"@":0,"#":[{"@":3,"#":"parent.frame"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":3,"#":"frame"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"parent.frame"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair-map"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":3,"#":"seq-list"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(pair-map fn list)\n\nFunction call fn argument for pairs in a list and return combined list with\nvalues returned from function fn. It work like the map but take two items from list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"seq-list"},{"@":0,"#":[{"@":3,"#":"seq-list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"seq-list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"seq-list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"seq-list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"first"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"seq-list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"second"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"seq-list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"value"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":3,"#":"first"},{"@":0,"#":[{"@":3,"#":"second"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cddr"},{"@":0,"#":[{"@":3,"#":"seq-list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cddr"},{"@":0,"#":[{"@":3,"#":"seq-list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":3,"#":"value"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"object-expander"},{"@":0,"#":[{"@":3,"#":"readonly"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":3,"#":"rest"}]}]}]},{"@":0,"#":[{"@":4,"#":"(object-expander reaonly '(:foo (:bar 10) (:baz (1 2 3))))\n\nRecursive function helper for defining LIPS code for create objects\nusing key like syntax."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quot"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[false,{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"alist->object"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"alist->object"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair-map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key?"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"msg"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":" "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"repr"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":" is not a symbol!"},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":3,"#":"msg"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"prop"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key->string"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"prop"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"object-expander"},{"@":0,"#":[{"@":3,"#":"readonly"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"quot"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"prop"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"prop"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"readonly"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Object.freeze"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"object"},{"@":3,"#":"expr"}]},{"@":0,"#":[{"@":4,"#":"(object :name value)\n\nMacro that create JavaScript object using key like syntax."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"object-expander"},{"@":0,"#":[false,{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"catch"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":3,"#":"e.message"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"object-literal"},{"@":3,"#":"expr"}]},{"@":0,"#":[{"@":4,"#":"(object-literal :name value)\n\nMacro that create JavaScript object using key like syntax. This is similar,\nto object but all values are quoted. This macro is used with & object literal."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"object-expander"},{"@":0,"#":[true,{"@":0,"#":[{"@":3,"#":"expr"},{"@":0,"#":[true,{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"catch"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":3,"#":"e.message"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"alist->assign"},{"@":0,"#":[{"@":3,"#":"desc"},{"@":3,"#":"sources"}]}]},{"@":0,"#":[{"@":4,"#":"(alist->assign alist . list-of-alists)\n\nFunction that work like Object.assign but for LIPS alist."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"for-each"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"source"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"for-each"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"value"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"d-pair"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"assoc"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":3,"#":"desc"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"d-pair"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-cdr!"},{"@":0,"#":[{"@":3,"#":"d-pair"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"append!"},{"@":0,"#":[{"@":3,"#":"desc"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"source"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"sources"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"desc"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key?"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(key? symbol)\n\nFunction check if symbol is key symbol, have colon as first character."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"=="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"substring"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cmp"},{"@":0,"#":[{"@":4,"#":":"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key->string"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(key->string symbol)\n\nIf symbol is key it convert that to string - remove colon."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key?"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"substring"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%as.data"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(%as.data obj)\n\nMark object as data to stop evaluation."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"object?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"data"},{"@":2,"#":0}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%hidden-props"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(%hidden-props obj)\n\nFunction return hidden names of an object, for ES6 class prototype\nit return all methods since they are indistinguishable from hidden property\ncreated using defineProperty."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"descriptors"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Object.getOwnPropertyDescriptors"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"names"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Object.keys"},{"@":0,"#":[{"@":3,"#":"descriptors"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"names"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"filter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"descriptor"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"descriptors"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"descriptor.enumerable"},{"@":0,"#":[false,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"dir"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(dir obj)\n\nFunction return all props on the object including those in prototype chain."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":3,"#":"Object.prototype"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"proto"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[false,{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"names"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Object.getOwnPropertyNames"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":3,"#":"proto"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"hidden"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%hidden-props"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"names"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"names"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"filter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"hidden.includes"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"array->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"names"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unary"},{"@":0,"#":[{"@":3,"#":"string->symbol"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"dir"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Object.getPrototypeOf"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"tree-map"},{"@":0,"#":[{"@":3,"#":"f"},{"@":0,"#":[{"@":3,"#":"tree"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(tree-map fn tree)\n\nTree version of map. Function is invoked on every leaf."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"tree"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"tree-map"},{"@":0,"#":[{"@":3,"#":"f"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"tree"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"tree-map"},{"@":0,"#":[{"@":3,"#":"f"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"tree"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"f"},{"@":0,"#":[{"@":3,"#":"tree"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"native.number"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(native.number obj)\n\nIf argument is number it will convert to native number."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"value"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"value"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(value obj)\n\nFunction unwrap LNumbers and convert nil value to undefined."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"undefined"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":4,"#":"valueOf"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-formatter-rule"},{"@":3,"#":"patterns"}]},{"@":0,"#":[{"@":4,"#":"(rule-pattern pattern)\n\nAnaphoric Macro for defining patterns for formatter. With Ahead, Pattern and * defined values."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"rules"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"rules"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"rules"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"lips.Formatter.rules"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Ahead"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pattern"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Ahead"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":".."},{"@":0,"#":[{"@":3,"#":"lips.Formatter.Ahead"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Ahead"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string?"},{"@":0,"#":[{"@":3,"#":"pattern"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"RegExp"},{"@":0,"#":[{"@":3,"#":"pattern"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"pattern"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Symbol.for"},{"@":0,"#":[{"@":4,"#":"*"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Pattern"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pattern"},{"@":0,"#":[{"@":3,"#":"flag"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"lips.Formatter.Pattern"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->array"},{"@":0,"#":[{"@":3,"#":"pattern"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"flag"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"undefined"},{"@":0,"#":[{"@":3,"#":"flag"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pattern"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"rules"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"push"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"tree->array"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"tree-map"},{"@":0,"#":[{"@":3,"#":"native.number"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"pattern"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"patterns"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"=>"},{"@":0,"#":[{"@":3,"#":"else"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":3,"#":"else1"},{"@":0,"#":[{"@":3,"#":"else2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[true,{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"else1"},{"@":0,"#":[{"@":3,"#":"else2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"test"},{"@":0,"#":[{"@":3,"#":"=>"},{"@":0,"#":[{"@":3,"#":"receiver"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clause"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"t"},{"@":0,"#":[{"@":3,"#":"test"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond/maybe-more"},{"@":0,"#":[{"@":3,"#":"t"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"receiver"},{"@":0,"#":[{"@":3,"#":"t"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"more-clause"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"generator"},{"@":0,"#":[{"@":3,"#":"guard"},{"@":0,"#":[{"@":3,"#":"=>"},{"@":0,"#":[{"@":3,"#":"receiver"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clause"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"call-with-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":3,"#":"generator"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":3,"#":"t"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond/maybe-more"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"guard"},{"@":0,"#":[{"@":3,"#":"t"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"receiver"},{"@":0,"#":[{"@":3,"#":"t"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clause"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"test"},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"more-clause"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"t"},{"@":0,"#":[{"@":3,"#":"test"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond/maybe-more"},{"@":0,"#":[{"@":3,"#":"t"},{"@":0,"#":[{"@":3,"#":"t"},{"@":0,"#":[{"@":3,"#":"more-clause"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"test"},{"@":0,"#":[{"@":3,"#":"body1"},{"@":0,"#":[{"@":3,"#":"body2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clause"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond/maybe-more"},{"@":0,"#":[{"@":3,"#":"test"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body1"},{"@":0,"#":[{"@":3,"#":"body2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clause"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(cond (predicate? . body)\n (predicate? . body)\n (else . body))\n\nMacro for condition checks. For usage instead of nested ifs."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"cond/maybe-more"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond/maybe-more"},{"@":0,"#":[{"@":3,"#":"test"},{"@":0,"#":[{"@":3,"#":"consequent"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"test"},{"@":0,"#":[{"@":3,"#":"consequent"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond/maybe-more"},{"@":0,"#":[{"@":3,"#":"test"},{"@":0,"#":[{"@":3,"#":"consequent"},{"@":0,"#":[{"@":3,"#":"clause"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"test"},{"@":0,"#":[{"@":3,"#":"consequent"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":3,"#":"clause"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(cond/maybe-more test consequent ...)\n\nHelper macro used by cond."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":3,"#":"list"}]},{"@":0,"#":[{"@":4,"#":"(cond (predicate? . body)\n (predicate? . body))\nMacro for condition check. For usage instead of nested ifs."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"item"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"first"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"item"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"forms"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"item"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"rest"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"first"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"forms"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caar"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caar"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"else"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdar"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%r"},{"@":0,"#":[{"@":3,"#":"re"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(%r re)\n\nCreate new regular expression from string, to not break Emacs formatting"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"RegExp"},{"@":0,"#":[{"@":3,"#":"re"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"RegExp"},{"@":0,"#":[{"@":3,"#":"re"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"interaction-environment"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(interaction-environment)\n\nFunction return interaction environment equal to lips.env can be overwritten,\nwhen creating new interpreter with lips.Interpreter."},{"@":0,"#":[{"@":3,"#":"**interaction-environment**"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-output-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(current-output-port)\n\nFunction return default stdout port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let-env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"interaction-environment"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"stdout"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-error-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(current-output-port)\n\nFunction return default stdout port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let-env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"interaction-environment"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"stderr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-input-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"current-input-port)\n\nFunction return default stdin port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let-env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"interaction-environment"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"stdin"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"regex?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(regex? x)\n\nFunction return true of value is regular expression, it return false otherwise."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"=="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cmp"},{"@":0,"#":[{"@":4,"#":"regex"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-repr!"},{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(add-repr! type fn)\n\nFunction add string representation to the type, which should be constructor function.\n\nFunction fn should have args (obj q) and it should return string, obj is value that\nneed to be converted to string, if the object is nested and you need to use `repr`,\nit should pass second parameter q to repr, so string will be quoted when it's true.\n\ne.g.: (lambda (obj q) (string-append \"<\" (repr obj q) \">\"))"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"add-repr!"},{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":4,"#":"function"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"add-repr!"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":4,"#":"function"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"ignore"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"lips.repr"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set"},{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unset-repr!"},{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(unset-repr! type)\n\nFunction remove string representation to the type, which should be constructor function,\nadded by add-repr! function."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"unset-repr!"},{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":4,"#":"function"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"ignore"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"lips.repr"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"delete"},{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"set-special!"},{"@":0,"#":[{"@":4,"#":"&"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"object-literal"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"lips.specials.SPLICE"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"set-repr!"},{"@":0,"#":[{"@":3,"#":"Object"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"q"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"concat"},{"@":0,"#":[{"@":4,"#":"&("},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Object.getOwnPropertyNames"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"concat"},{"@":0,"#":[{"@":4,"#":":"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":4,"#":" "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"repr"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"q"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"join"},{"@":0,"#":[{"@":4,"#":" "},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":")"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bound?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(bound? x [env])\n\nFunction check if variable is defined in given environment or interaction environment\nif not specified."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"interaction-environment"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"catch"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]},{"@":0,"#":[false,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"environment-bound?"},{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(environment-bound? env symbol)\n\nFunction check if symbol is bound variable similar to bound?."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"environment-bound?"},{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":4,"#":"environment"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"environment-bound?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":4,"#":"symbol"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bound?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"env"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"qsort"},{"@":0,"#":[{"@":3,"#":"e"},{"@":0,"#":[{"@":3,"#":"predicate"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(qsort list predicate)\n\nSort the list using quick sort algorithm according to predicate."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"e"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"loop"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"left"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"right"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pivot"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"rest"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"qsort"},{"@":0,"#":[{"@":3,"#":"left"},{"@":0,"#":[{"@":3,"#":"predicate"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":3,"#":"pivot"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"qsort"},{"@":0,"#":[{"@":3,"#":"right"},{"@":0,"#":[{"@":3,"#":"predicate"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"predicate"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"pivot"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"loop"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"append"},{"@":0,"#":[{"@":3,"#":"left"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"right"},{"@":0,"#":[{"@":3,"#":"pivot"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"loop"},{"@":0,"#":[{"@":3,"#":"left"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"append"},{"@":0,"#":[{"@":3,"#":"right"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"pivot"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"sort"},{"@":0,"#":[{"@":3,"#":"list"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(sort list [predicate])\n\nSort the list using optional predicate function. if not function is specified\nit will use <= and sort in increasing order."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"predicate"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"<="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"sort"},{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":4,"#":"pair"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"sort"},{"@":0,"#":[{"@":3,"#":"predicate"},{"@":0,"#":[{"@":4,"#":"function"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"qsort"},{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":3,"#":"predicate"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"every"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(every fn list)\n\nFunction call function fn on each item of the list, if every value is true\nit will return true otherwise it return false."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":0,"#":[true,{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"every"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"promise"},{"@":3,"#":"body"}]},{"@":0,"#":[{"@":4,"#":"(promise . body)\n\nAnaphoric macro that expose resolve and reject functions from JS promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":3,"#":"reject"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"catch"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":3,"#":"e.message"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"timer"},{"@":0,"#":[{"@":3,"#":"time"},{"@":3,"#":"body"}]}]},{"@":0,"#":[{"@":4,"#":"(timer time . body)\n\nMacro evaluate expression after delay, it return timer. To clear the timer you can use\nnative JS clearTimeout function."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"setTimeout"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"catch"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":".."},{"@":0,"#":[{"@":3,"#":"e.message"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"time"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"wait"},{"@":0,"#":[{"@":3,"#":"time"},{"@":3,"#":"expr"}]}]},{"@":0,"#":[{"@":4,"#":"(wait time . expr)\n\nFunction return promise that will resolve with evaluating the expression after delay."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"timer"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"time"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"await"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(await value)\n\nFunction unquote quoted promise so it can be automagically evaluated (resolved\nto its value)."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"instanceof"},{"@":0,"#":[{"@":3,"#":"lips.QuotedPromise"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"value.valueOf"},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote-promise"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(quote-promise expr)\n'>expr\n\nMacro used to escape promise the whole expression, will be wrapped\nwith JavaScript class that behave like Promise but will not\nauto resolve like normal promise."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env"},{"@":2,"#":0}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-environment"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env.set"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Symbol.for"},{"@":0,"#":[{"@":4,"#":"__promise__"},{"@":2,"#":0}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"defmacro?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(defmacro? expression)\n\nFunction check if object is macro and it's expandable."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"macro?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"defmacro"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"n-ary"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(n-ary n fn)\n\nReturn new function that limit number of arguments to n."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"take"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"take"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":3,"#":"lst"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(take n list)\n\nReturn n first values of the list."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lst"},{"@":0,"#":[{"@":3,"#":"lst"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"lst"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<="},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"reverse"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"lst"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"lst"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"unary"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%doc"},{"@":0,"#":[{"@":4,"#":"(unary fn)\n\nFunction return new function with arguments limited to one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"curry"},{"@":0,"#":[{"@":3,"#":"n-ary"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%doc"},{"@":0,"#":[{"@":4,"#":"(binary fn)\n\nFunction return new function with arguments limited to two."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"curry"},{"@":0,"#":[{"@":3,"#":"n-ary"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%class-lambda"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(class-lambda expr)\n\nReturn lambda expression where input expression lambda have `this` as first argument."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"this"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%class-lambda"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(%class-lambda expr)\n\nDefine lambda that have self is first argument. The expr is in a form:\n(constructor (lambda (self ...) . body)) as given by define-class macro."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdadadr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"this"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%class-method-name"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(%class-method-name expr)\n\nHelper function that allow to use [Symbol.asyncIterator] inside method name."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"quote"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-class"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"parent"},{"@":3,"#":"body"}]}]}]},{"@":0,"#":[{"@":4,"#":"(define-class name parent . body)\n\nDefine class - JavaScript function constructor with prototype.\n\nusage:\n\n (define-class Person Object\n (constructor (lambda (self name)\n (set-obj! self '_name name)))\n (hi (lambda (self)\n (display (string-append self._name \" say hi\"))\n (newline))))\n (define jack (new Person \"Jack\"))\n (jack.hi)"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"functions"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"constructor"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lst"},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"lst"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"constructor"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%class-lambda"},{"@":0,"#":[{"@":3,"#":"constructor"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Symbol.for"},{"@":0,"#":[{"@":4,"#":"__class__"},{"@":2,"#":0}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"parent"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"parent"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"Object"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"prototype"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Object.create"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"parent"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"prototype"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"prototype"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"constructor"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"prototype"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%class-method-name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%class-lambda"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"functions"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"item"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"lst"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"item"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"constructor"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":3,"#":"functions"},{"@":0,"#":[{"@":3,"#":"item"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"lst"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":3,"#":"item"},{"@":0,"#":[{"@":3,"#":"functions"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"constructor"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"lst"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"class"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":4,"#":"class: parent required"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":3,"#":"parent"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-class"},{"@":0,"#":[{"@":3,"#":"temp"},{"@":0,"#":[{"@":3,"#":"parent"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"temp"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(class <parent> body ...)\n\nMacro allow to create anonymous classes. See define-class for details."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"make-tags"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(make-tags expression)\n\nFunction that return list structure of code with better syntax then raw LIPS"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"h"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"val"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key?"},{"@":0,"#":[{"@":3,"#":"val"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key->string"},{"@":0,"#":[{"@":3,"#":"val"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"val"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"alist->object"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair-map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"cdr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key->string"},{"@":0,"#":[{"@":3,"#":"car"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"unquote"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"cdr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cddr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caddr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"s"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caaddr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"s"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"s"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->array"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":3,"#":"make-tags"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdaddr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caddr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%sxml"},{"@":0,"#":[{"@":3,"#":"h"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(%sxml h expr)\n\nHelper function that render expression using create element function."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"have-attrs"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caadr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"@"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"attrs"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"have-attrs"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdadr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"rest"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"have-attrs"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cddr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"h"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-lower-case?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string->list"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"alist->object"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"unquote"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"attrs"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"first"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"first"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%sxml"},{"@":0,"#":[{"@":3,"#":"h"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":3,"#":"first"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pragma->sxml"},{"@":0,"#":[{"@":3,"#":"pragma"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"sxml"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(sxml expr)\n\nMacro for JSX like syntax but with SXML.\ne.g. usage:\n\n(sxml (div (@ (data-foo \"hello\")\n (id \"foo\"))\n (span \"hello\")\n (span \"world\")))"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%sxml"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"pragma"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"pragma->sxml"},{"@":0,"#":[{"@":3,"#":"h"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"with-tags"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(with-tags expression)\n\nMacro that evaluate LIPS shorter code for S-Expression equivalent of JSX.\ne.g.:\n\n(with-tags (:div (:class \"item\" :id \"item-1\")\n (list (:span () \"Random Item\")\n (:a (:onclick (lambda (e) (alert \"close\")))\n \"close\"))))\n\nAbove expression can be passed to function that renders JSX (like render in React, Preact)\nTo get the string from the macro you can use vhtml library from npm."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"make-tags"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get-script"},{"@":0,"#":[{"@":3,"#":"url"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(get-script url)\n\nLoad JavaScript file in browser by adding script tag to head of the current document."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bound?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"document"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"get-script: document not defined"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"script"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"document.createElement"},{"@":0,"#":[{"@":4,"#":"script"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":3,"#":"reject"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"script"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"src"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"url"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"script"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"onload"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"script"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"onerror"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"reject"},{"@":0,"#":[{"@":4,"#":"get-script: Failed to load"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"document.head"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"document.head.appendChild"},{"@":0,"#":[{"@":3,"#":"script"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym?"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(gensym? value)\n\nFunction return #t if value is symbol and it's gensym. It returns #f otherwise."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"value"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"is_gensym"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"degree->radians"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(degree->radians x)\n\nConvert degree to radians."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"/"},{"@":0,"#":[{"@":3,"#":"Math.PI"},{"@":0,"#":[{"@":1,"#":"180"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"radians->degree"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(radians->degree x)\n\nConvert radians to degree."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"/"},{"@":0,"#":[{"@":1,"#":"180"},{"@":0,"#":[{"@":3,"#":"Math.PI"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"while"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":3,"#":"predicate"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"do"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":3,"#":"predicate"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(while cond . body)\n\nMacro that create a loop, it execute body until cond expression is false."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"++"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"++"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"tmp"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"+"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"tmp"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"tmp"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(++ variable)\n\nMacro that work only on variables and increment the value by one."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"--"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"--"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"tmp"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"tmp"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"tmp"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(-- variable)\n\nMacro that decrement the value it work only on symbols"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pretty-format"},{"@":3,"#":"lists"}]},{"@":0,"#":[{"@":4,"#":"(pretty-format pair)\n\nFunction return pretty printed string from pair expression."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"code"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->vector"},{"@":0,"#":[{"@":3,"#":"lists"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"pretty-pair"},{"@":0,"#":[{"@":3,"#":"pair"},{"@":0,"#":[{"@":4,"#":"pair"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"repr"},{"@":0,"#":[{"@":3,"#":"pair"},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"join"},{"@":0,"#":[{"@":4,"#":""},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"lips.Formatter"},{"@":0,"#":[{"@":3,"#":"code"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"break"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"reset"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(reset)\n\nFunction reset environment and remove all user defined variables."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let-env"},{"@":0,"#":[{"@":3,"#":"**interaction-environment**"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"defaults"},{"@":0,"#":[{"@":3,"#":"**interaction-environment-defaults**"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":3,"#":"**interaction-environment**"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"forEach"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"defaults"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"includes"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unset"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"make-list"},{"@":0,"#":[{"@":3,"#":"n"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"integer?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<="},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"make-list: first argument need to be integer larger then 0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fill"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"undefined"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"array->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Array"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fill"},{"@":0,"#":[{"@":3,"#":"fill"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"range"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(range n)\n\nFunction return list of n numbers from 0 to n - 1"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"range"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"array->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Array"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fill"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"do-iterator"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":0,"#":[{"@":3,"#":"cond"},{"@":3,"#":"body"}]}]}]},{"@":0,"#":[{"@":4,"#":"(do-iterator (var expr) (test) body ...)\n\nMacro iterate over iterators (e.g. create with JavaScript generator function)\nit works with normal and async iterators. You can loop over infinite iterators\nand break the loop if you want, using expression like in do macro, long sync iterators\nwill block main thread (you can't print 1000 numbers from inf iterators,\nbecause it will freeze the browser), but if you use async iterators you can process\nthe values as they are generated."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gen"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"async"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"async"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"sync"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"sync"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iterator"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"iterator"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"test"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"cond"},{"@":2,"#":0}]}]},{"@":0,"#":[false,{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"cond"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"next"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"next"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"stop"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"stop"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"item"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"item"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"gen"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"sync"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"gen"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"Symbol.iterator"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"async"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"gen"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"Symbol.asyncIterator"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"iterator"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"next"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"iterator"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"next"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"procedure?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"sync"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"procedure?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"async"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"iterator"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"procedure?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"sync"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"sync"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"async"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"item"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"next"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"stop"},{"@":2,"#":0}]}]},{"@":0,"#":[false,{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"item"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"value"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"while"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"item"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"done"},{"@":2,"#":0}]}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"stop"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"test"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"stop"},{"@":2,"#":0}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"item"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"next"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"item"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"value"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"set-repr!"},{"@":0,"#":[{"@":3,"#":"Set"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":4,"#":"#<Set>"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"set-repr!"},{"@":0,"#":[{"@":3,"#":"Map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":4,"#":"#<Met>"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"native-symbol?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(native-symbol? object)\n\nFunction check if value is JavaScript symbol."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"symbol"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"set-special!"},{"@":0,"#":[{"@":4,"#":"’"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"warn-quote"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"warn-quote"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(warn-quote)\n\nSimple macro that throw error, when you try to use ’ symbol as quote in code"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"You're using invalid quote character run: "},{"@":0,"#":[{"@":4,"#":"(set-special! \"’\" 'quote)"},{"@":0,"#":[{"@":4,"#":" to allow running this type of quote"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let-env-values"},{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":3,"#":"body"}]}]}]},{"@":0,"#":[{"@":4,"#":"(let-env-values env ((name var)) . body)\n\nMacro add mapping for variables var from specified env,\nMacro work similar to let-env but lexical scope is working with it."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env-name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"env"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"env-name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"env"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"env-name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apropos"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(apropos name)\n\nSearch environment and display names that match the given name.\nname can be regex, string or symbol."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"apropos"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":4,"#":"string"},{"@":0,"#":[{"@":4,"#":"regex"},{"@":0,"#":[{"@":4,"#":"symbol"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"regex"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"RegExp"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"escape-regex"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"filter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string?"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"regex"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"regex"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"promisify"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(promisify fn)\n\nSimple function for adding promises to NodeJS callback based function.\nFunction tested only with fs module."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":3,"#":"reject"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"append"},{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"err"},{"@":0,"#":[{"@":3,"#":"data"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"err"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":3,"#":"data"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"reject"},{"@":0,"#":[{"@":3,"#":"err"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list*"},{"@":3,"#":"args"}]},{"@":0,"#":[{"@":4,"#":"(list* arg1 ...)\n\nParallel version of list."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"result"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"arg"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"push"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote-promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"arg"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":3,"#":"await"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%not-implemented"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(not-implemented name)\n\nReturns new function that throw exception that function is not implemented"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"str-name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"("},{"@":0,"#":[{"@":3,"#":"str-name"},{"@":0,"#":[{"@":4,"#":")\n\nThis function is not yet implemented."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":3,"#":"str-name"},{"@":0,"#":[{"@":4,"#":" has not beed implemented"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%make-env"},{"@":0,"#":[{"@":3,"#":"name"},{"@":3,"#":"names"}]}]},{"@":0,"#":[{"@":4,"#":"(%make-env name f1 f2 ...)\n\nCreate new Environment with given name and defined symbols in it from global env.\nIf given function name f1 f2 ... don't exists, it will define function that\nthrow exception that function is not yet implemented."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"lips.Environment"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"alist->object"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"ref"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.env.ref"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"ref"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%not-implemented"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.env.get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"names"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"null"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"Y"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"h"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(Y f)\n\n _ __ __ _ _ _ _ __ __ _ _ _\n / \\ \\ / / / __ / ____ \\ / \\ \\ / / ____ \\ \\ \\\n+ \\ v / + \\ \\ + / ___| + + \\ v / / ___| + + +\n| \\ / | \\ \\ | | |__ | | \\ / | |__ | | |\n| | | | / \\ | | __| | | | | | __| | | |\n| | | | / /\\ \\ | | | | | | | | | | | |\n+ |_| + /_/ \\_\\ + |_| + + |_| |_| + + +\n \\_ \\_ \\_ _/ \\_ _/ _/ _/"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"g"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"h"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"g"},{"@":0,"#":[{"@":3,"#":"g"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"indexed-db?"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(indexed-db?)\n\nFunction test if indexedDB is available."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"any"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":0,"#":[false,{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"indexedDB"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"any"},{"@":0,"#":[{"@":3,"#":"window.indexedDB"},{"@":0,"#":[{"@":3,"#":"window.indexedDB"},{"@":0,"#":[{"@":3,"#":"window.mozIndexedDB"},{"@":0,"#":[{"@":3,"#":"window.webkitIndexedDB"},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"indexedDB"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"window.indexedDB.open"},{"@":0,"#":[{"@":4,"#":"MyTestDatabase"},{"@":0,"#":[{"@":1,"#":"3"},{"@":2,"#":0}]}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"catch"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]},{"@":0,"#":[false,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[false,{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"environment?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(environment? obj)\n\nFunction check if object is LIPS environment."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"instanceof"},{"@":0,"#":[{"@":3,"#":"lips.Environment"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"%read-file"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"read-file"},{"@":0,"#":[false,{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fetch-url"},{"@":0,"#":[false,{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"binary"},{"@":0,"#":[{"@":3,"#":"path"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(%read-file binary path)\n\nRead file from url or file system. If binary is false it will return\nstring that contain all the content. For HTTP requests, If binary\nis false it will: when in browser return ArrayBuffer and in Node\nit will return Buffer object. When reading from file system\nin both cases it will return Buffer objects.\n\nThe code that use those function, in binary mode, need to check\nif the result is ArrayBuffer or Node.js/BrowserFS Buffer object."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":3,"#":"read-file"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fs"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"lips.env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"fs"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"fs"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"open-input-file: fs not defined"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*read-file*"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"promisify"},{"@":0,"#":[{"@":3,"#":"fs.readFile"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"read-file"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"path"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"buff"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*read-file*"},{"@":0,"#":[{"@":3,"#":"path"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":3,"#":"window"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Blob"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"buff"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"buff"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"buff"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toString"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":3,"#":"fetch-url"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"fetch-url"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"url"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":3,"#":"window"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"res"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fetch"},{"@":0,"#":[{"@":3,"#":"url"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"res.arrayBuffer"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"res.text"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"http-get"},{"@":0,"#":[{"@":3,"#":"url"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char=?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-ref"},{"@":0,"#":[{"@":3,"#":"path"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":5,"#":"/"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"file-exists?"},{"@":0,"#":[{"@":3,"#":"path"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"file "},{"@":0,"#":[{"@":3,"#":"path"},{"@":0,"#":[{"@":4,"#":" don't exists"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"read-file"},{"@":0,"#":[{"@":3,"#":"path"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"test"},{"@":0,"#":[{"@":3,"#":"path"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fetch-url"},{"@":0,"#":[{"@":3,"#":"path"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%read-file"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-directory"},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"path"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"%read-binary-file"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"curry"},{"@":0,"#":[{"@":3,"#":"%read-file"},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"%read-text-file"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"curry"},{"@":0,"#":[{"@":3,"#":"%read-file"},{"@":0,"#":[false,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%fs-promisify-proc"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":3,"#":"message"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(%fs-promisify-proc fn string)\n\nFunction return promisified version of fs function or throw exception\nif fs is not available."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fs"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"lips.env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"fs"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"fs"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":3,"#":"message"},{"@":0,"#":[{"@":4,"#":": fs not defined"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"promisify"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"fs"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"response->content"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":0,"#":[{"@":3,"#":"res"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(response->text binary res)\n\nFunction read all text from Node.js HTTP response object. If binary argument\nis true it will return Buffer object that can be converted to u8vector.\n\n***Warning:*** it may overflow the stack (part of Node) when converting\nwhole buffer to u8vector."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"chunk"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result.push"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Buffer.from"},{"@":0,"#":[{"@":3,"#":"chunk"},{"@":0,"#":[{"@":4,"#":"binary"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"chunk"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result.push"},{"@":0,"#":[{"@":3,"#":"chunk"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"res.setEncoding"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":0,"#":[{"@":4,"#":"binary"},{"@":0,"#":[{"@":4,"#":"utf8"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"res.on"},{"@":0,"#":[{"@":4,"#":"data"},{"@":0,"#":[{"@":3,"#":"append"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"res.on"},{"@":0,"#":[{"@":4,"#":"end"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Buffer.concat"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result.join"},{"@":0,"#":[{"@":4,"#":""},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"response->buffer"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"curry"},{"@":0,"#":[{"@":3,"#":"response->content"},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"response->text"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"curry"},{"@":0,"#":[{"@":3,"#":"response->content"},{"@":0,"#":[false,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"http-get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":3,"#":"window"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"url"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(http-get url)\n\nNode.js Function that send HTTP Request and return string or\nbinary Buffer object."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"http-get: function is Node.js only."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"http"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"require"},{"@":0,"#":[{"@":4,"#":"http"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"get"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"https"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"require"},{"@":0,"#":[{"@":4,"#":"https"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"get"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"url"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(http-get url)\n\nNode.js Function that send HTTP Request and return string or\nbinary Buffer object."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"request"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"url.match"},{"@":0,"#":[{},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"http"},{"@":0,"#":[{"@":3,"#":"https"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":3,"#":"reject"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"request"},{"@":0,"#":[{"@":3,"#":"url"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"res"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":3,"#":"res.statusCode"},{"@":0,"#":[{"@":1,"#":"200"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"response->content"},{"@":0,"#":[{"@":3,"#":"binary"},{"@":0,"#":[{"@":3,"#":"res"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"code"},{"@":0,"#":[{"@":3,"#":"res.statusCode"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"res.resume"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"reject"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"Request return "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number->string"},{"@":0,"#":[{"@":3,"#":"code"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"on"},{"@":0,"#":[{"@":4,"#":"error"},{"@":0,"#":[{"@":3,"#":"reject"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"buffer->u8vector"},{"@":0,"#":[{"@":3,"#":"bin"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(buffer->u8vector bin)\n\nCross platform function that can be used in both Node and Browser.\nIt can be used together with %read-file or %read-binary-file and convert\nthe result ArrayBuffer or Buffer to u8vector."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"instanceof"},{"@":0,"#":[{"@":3,"#":"ArrayBuffer"},{"@":0,"#":[{"@":3,"#":"bin"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Uint8Array"},{"@":0,"#":[{"@":3,"#":"bin"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Uint8Array.from"},{"@":0,"#":[{"@":3,"#":"bin"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"complement"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(complement fn)\n\nHiger order function that returns complement of the given function. If the function fn\nfor a given arguments return true the result function will return false, if it would\nreturn false, the result function will return true."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"complement"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":4,"#":"function"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"always"},{"@":0,"#":[{"@":3,"#":"constant"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(always constant)\n\nHigher order function returns new function that always return given constant."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":3,"#":"constant"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"once"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(once fn)\n\nHigher order function that return new function, that is guarantee\nto be called only once."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"once"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":4,"#":"function"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"undefined"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"flip"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(flip fn)\n\nHigher order function that return new function where first two arguments are swapped.\n\nExample:\n\n (define first (curry (flip vector-ref) 0))\n (first #(1 2 3))\n ;; ==> 1"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"flip"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":4,"#":"function"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":3,"#":"b"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unfold"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":3,"#":"init"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(unfold fn init)\n\nFunction returns list from given function and init value. The function should\nreturn cons where first is the item added to the list and second is next value\npassed to the function. If function return false it end the loop."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"unfold"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":4,"#":"function"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":3,"#":"init"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"reverse"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"pair"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":3,"#":"concat"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":3,"#":"=="},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"remainder"},{"@":0,"#":[{"@":3,"#":"%"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"-inf.0"},{"@":0,"#":[{"@":3,"#":"Number.NEGATIVE_INFINITY"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"+inf.0"},{"@":0,"#":[{"@":3,"#":"Number.POSITIVE_INFINITY"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"procedure?"},{"@":0,"#":[{"@":3,"#":"function?"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"expt"},{"@":0,"#":[{"@":3,"#":"**"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"list->vector"},{"@":0,"#":[{"@":3,"#":"list->array"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":0,"#":[{"@":3,"#":"array->list"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-symbol-macro"},{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":3,"#":"rest"}]}]}]},{"@":0,"#":[{"@":4,"#":"(define-symbol-macro type (name . args) . body)\n\nMacro that creates special symbol macro for evaluator similar to build in , or `.\nIt's like alias for real macro. Similar to CL reader macros but it receive already\nparsed code like normal macros. Type can be SPLICE or LITERAL symbols.\nALL default symbol macros are literal."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cddr"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-special!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string->symbol"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"concat"},{"@":0,"#":[{"@":4,"#":"lips.specials."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"set-special!"},{"@":0,"#":[{"@":4,"#":"#"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"vector-literal"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"lips.specials.SPLICE"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-literal"},{"@":3,"#":"args"}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"concat"},{"@":0,"#":[{"@":4,"#":"Parse Error: vector require pair got "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":" in "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"repr"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"v"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->array"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Object.freeze"},{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":3,"#":"arg"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->array"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":3,"#":"arg"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(vector 1 2 3 (+ 3 1))\n#(1 2 3 4)\n\nMacro for defining vectors (JavaScript arrays). Vectors literals are\nautomatically quoted. So you can use expressions inside them. Only other\nliterals, like other vectors or object."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"set-repr!"},{"@":0,"#":[{"@":3,"#":"Array"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"arr"},{"@":0,"#":[{"@":3,"#":"q"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Array.from"},{"@":0,"#":[{"@":3,"#":"arr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"in"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":3,"#":"arr"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"#<empty>"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"repr"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"arr"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"q"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"concat"},{"@":0,"#":[{"@":4,"#":"#("},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"join"},{"@":0,"#":[{"@":4,"#":" "},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":")"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eqv?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(eqv? a b)\n\nFunction compare the values. It return true if they are the same, they\nneed to have same type"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"inexact?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"inexact?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"a.isNaN"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"b.isNaN"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"a._minus"},{"@":0,"#":[{"@":3,"#":"b._minus"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"complex?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"complex?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"re.a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"real-part"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"re.b"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"real-part"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"im.a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"imag-part"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"im.b"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"imag-part"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"re.a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"re.b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"re.a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"_minus"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"re.b"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"_minus"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"im.a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"im.b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"im.a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"_minus"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"im.b"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"_minus"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":3,"#":"re.a"},{"@":0,"#":[{"@":3,"#":"re.b"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"re.a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"isNaN"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"re.b"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"isNaN"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":3,"#":"im.a"},{"@":0,"#":[{"@":3,"#":"im.b"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"im.a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"isNaN"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"im.b"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"isNaN"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[false,{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(equal? a b)\n\nFunction check if values are equal if both are pair or array\nit compares the their elements recursively."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":3,"#":"a.__name__"},{"@":0,"#":[{"@":3,"#":"b.__name__"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"regex?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"regex?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"source"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"b"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"source"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typed-array?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typed-array?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Array.from"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Array.from"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"every"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"item"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":3,"#":"item"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-ref"},{"@":0,"#":[{"@":3,"#":"b"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"function?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"function?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%same-functions"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"array?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"array?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"filter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"item"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":3,"#":"item"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"b"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"length"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"plain-object?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"plain-object?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"keys_a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Object.keys"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"sort"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"keys_b"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Object.keys"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"sort"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"keys_a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"keys_b"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":3,"#":"keys_a"},{"@":0,"#":[{"@":3,"#":"keys_b"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"keys_a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"keys_b"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"b"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eqv?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"make-promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"proc"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(make-promise fn)\n\nFunction create promise from a function."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"make-promise"},{"@":0,"#":[{"@":3,"#":"proc"},{"@":0,"#":[{"@":4,"#":"function"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result-ready?"},{"@":0,"#":[false,{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[false,{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"result-ready?"},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"proc"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"result-ready?"},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"result-ready?"},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Symbol.for"},{"@":0,"#":[{"@":4,"#":"promise"},{"@":2,"#":0}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"promise.toString"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"#<promise - "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"result-ready?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"forced with "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"not forced"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":">"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"promise"},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"delay"},{"@":0,"#":[{"@":3,"#":"expression"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(delay expression)\n\nMacro will create a promise from expression that can be forced with (force)."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"make-promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"expression"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"force"},{"@":0,"#":[{"@":3,"#":"promise"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(force promise)\n\nFunction force the promise and evaluate delayed expression."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"promise"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"promise?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(promise? obj)\n\nFunction check if value is a promise created with delay or make-promise."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"promise"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"positive?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(positive? x)\n\nFunction check if number is larger then 0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"positive?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"negative?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(negative? x)\n\nFunction check if number is smaller then 0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"negative?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(zero? x)\n\nFunction check if number is equal to 0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quotient"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(quotient a b)\n\nReturn quotient from divition as integer."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"quotient"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"quotient"},{"@":0,"#":[{"@":3,"#":"b"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"quotient: divition by zero"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quotient"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"/"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"integer?"},{"@":0,"#":[{"@":3,"#":"quotient"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"quotient"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":3,"#":"quotient"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"floor"},{"@":0,"#":[{"@":3,"#":"quotient"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"ceiling"},{"@":0,"#":[{"@":3,"#":"quotient"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number->string"},{"@":0,"#":[{"@":3,"#":"x"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(number->string x [radix])\n\nFunction convert number to string with optional radix (number base)."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"number->string"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"radix"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":1,"#":"10"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"number->string"},{"@":0,"#":[{"@":3,"#":"radix"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toString"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"radix"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"valueOf"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"boolean?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(boolean? x)\n\nFunction return true if value is boolean."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"boolean"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-ref"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(vector-ref vector i)\n\nReturn i element from vector."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"number->string"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":4,"#":"array"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"number->string"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-set!"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(vector-set! vector i obj)\n\nSet obj as value in vector at position 1."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"vector-set!"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":4,"#":"array"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"vector-set!"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"%number-type"},{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":4,"#":"string"},{"@":0,"#":[{"@":4,"#":"pair"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"%number-type"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"t"},{"@":0,"#":[{"@":3,"#":"x.__type__"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typeof"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":3,"#":"t"},{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"some"},{"@":0,"#":[{"@":3,"#":"typeof"},{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typeof"},{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"real?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(real? x)\n\nFunction check if argument x is real."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"NaN"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"Number.NEGATIVE_INFINITY"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"Number.POSITIVE_INFINITY"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":4,"#":"complex"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"imag-part"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact?"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":4,"#":"float"},{"@":0,"#":[{"@":4,"#":"bigint"},{"@":0,"#":[{"@":4,"#":"rational"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"integer?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(integer? x)\n\nFunction check if argument x is integer."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"NaN"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"Number.NEGATIVE_INFINITY"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"Number.POSITIVE_INFINITY"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":4,"#":"bigint"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":4,"#":"float"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"modulo"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"complex?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(complex? x)\n\nFunction check if argument x is complex."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"NaN"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"Number.NEGATIVE_INFINITY"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"Number.POSITIVE_INFINITY"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":4,"#":"complex"},{"@":0,"#":[{"@":4,"#":"float"},{"@":0,"#":[{"@":4,"#":"bigint"},{"@":0,"#":[{"@":4,"#":"rational"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"rational?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(rational? x)\n\nFunction check if value is rational."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"NaN"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"Number.NEGATIVE_INFINITY"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"Number.POSITIVE_INFINITY"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":4,"#":"rational"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"integer?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck-args"},{"@":0,"#":[{"@":3,"#":"_type"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"_list"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(typecheck-args args type)\n\nFunction check if all items in array are of same type."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_list"},{"@":0,"#":[{"@":3,"#":"_list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"_list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"_list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"_type"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"+"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"_list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"numbers?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"curry"},{"@":0,"#":[{"@":3,"#":"typecheck-args"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"max"},{"@":3,"#":"args"}]},{"@":0,"#":[{"@":4,"#":"(max n1 n2 ...)\n\nReturn maximum of it's arguments."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"numbers?"},{"@":0,"#":[{"@":4,"#":"max"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":".."},{"@":0,"#":[{"@":3,"#":"Math.max"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"min"},{"@":3,"#":"args"}]},{"@":0,"#":[{"@":4,"#":"(min n1 n2 ...)\n\nReturn minimum of it's arguments."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"numbers?"},{"@":0,"#":[{"@":4,"#":"min"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":".."},{"@":0,"#":[{"@":3,"#":"Math.min"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"make-rectangular"},{"@":0,"#":[{"@":3,"#":"re"},{"@":0,"#":[{"@":3,"#":"im"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(make-rectangular im re)\n\nCreate complex number from imaginary and real part."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"value"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"re"},{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"re"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"im"},{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"im"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.LComplex"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"value"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"to_object"},{"@":0,"#":[true,{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(exact? n)"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"exact?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"n.__type__"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":4,"#":"bigint"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":4,"#":"rational"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":4,"#":"complex"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact?"},{"@":0,"#":[{"@":3,"#":"n.__im__"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact?"},{"@":0,"#":[{"@":3,"#":"n.__re__"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"inexact?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(inexact? n)"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"inexact?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact->inexact"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(exact->inexact n)\n\nConvert exact number to inexact."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"exact->inexact"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":4,"#":"complex"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.LComplex"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"object"},{"@":0,"#":[{"@":3,"#":":im"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact->inexact"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"__im__"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":":re"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact->inexact"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"__re__"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"rational?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"integer?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.LFloat"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"valueOf"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"inexact->exact"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(inexact->exact number)\n\nFuncion convert real number to exact ratioanl number."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"inexact->exact"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"real?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":4,"#":"complex"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toRational"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"_maths"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":4,"#":"exp"},{"@":0,"#":[{"@":4,"#":"log"},{"@":0,"#":[{"@":4,"#":"sin"},{"@":0,"#":[{"@":4,"#":"cos"},{"@":0,"#":[{"@":4,"#":"tan"},{"@":0,"#":[{"@":4,"#":"asin"},{"@":0,"#":[{"@":4,"#":"acos"},{"@":0,"#":[{"@":4,"#":"atan"},{"@":0,"#":[{"@":4,"#":"atan"},{"@":2,"#":0}]}]}]}]}]}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"_this_env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-environment"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fns"},{"@":0,"#":[{"@":3,"#":"_maths"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"fns"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"fns"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"LNumber"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":".."},{"@":0,"#":[{"@":3,"#":"lips.LNumber"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"op"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"Math"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"LNumber"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"op"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"_this_env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"__doc__"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"concat"},{"@":0,"#":[{"@":4,"#":"("},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":4,"#":" n)\n\nFunction calculate "},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":4,"#":" math operation (it call JavaScript Math)."},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":4,"#":" function."},{"@":2,"#":0}]}]}]}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"fns"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"modulo"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(modulo a b)\n\nFunction return modulo operation on it's argumennts."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"modulo"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"modulo"},{"@":0,"#":[{"@":3,"#":"b"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*"},{"@":0,"#":[{"@":3,"#":"b"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"floor"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"/"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"remainder__"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(modulo a b)\n\nFunction return reminder from division operation."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"remainder"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"remainder"},{"@":0,"#":[{"@":3,"#":"b"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*"},{"@":0,"#":[{"@":3,"#":"b"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"truncate"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"/"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list-tail"},{"@":0,"#":[{"@":3,"#":"l"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(list-tail list k)\n\nReturns the sublist of list obtained by omitting the first k elements."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"list-tail"},{"@":0,"#":[{"@":3,"#":"l"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":4,"#":"pair"},{"@":0,"#":[{"@":4,"#":"nil"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"list-ref: index out of range"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"l"},{"@":0,"#":[{"@":3,"#":"l"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"while"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"l"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"list-tail: not enough elements in the list"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"l"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"l"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"l"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list-ref"},{"@":0,"#":[{"@":3,"#":"l"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(list-ref list n)\n\nReturns n element of a list."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"list-ref"},{"@":0,"#":[{"@":3,"#":"l"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":4,"#":"pair"},{"@":0,"#":[{"@":4,"#":"nil"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"list-ref: index out of range"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"l"},{"@":0,"#":[{"@":3,"#":"l"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"while"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"l"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"l"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"list-ref: not enough elements in the list"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"l"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"l"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"l"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"l"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"l"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(not x)\n\nFunction return true if value is false and false otherwise."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[false,{"@":0,"#":[true,{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"rationalize"},{"@":0,"#":[{"@":3,"#":"number"},{"@":0,"#":[{"@":3,"#":"tolerance"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(rationalize number tolerance)\n\nFunction returns simplest rational number differing from number by no more\nthan the tolerance."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"rationalize"},{"@":0,"#":[{"@":3,"#":"number"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"rationalize"},{"@":0,"#":[{"@":3,"#":"tolerance"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.rationalize"},{"@":0,"#":[{"@":3,"#":"number"},{"@":0,"#":[{"@":3,"#":"tolerance"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%mem/search"},{"@":0,"#":[{"@":3,"#":"access"},{"@":0,"#":[{"@":3,"#":"op"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(%member obj list function)\n\nHelper method to get first list where car equal to obj\nusing provied functions as comparator."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":0,"#":[false,{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"op"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"access"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%mem/search"},{"@":0,"#":[{"@":3,"#":"access"},{"@":0,"#":[{"@":3,"#":"op"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"memq"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(memq obj list)\n\nFunction return first object in the list that match using eq? function."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"memq"},{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":4,"#":"nil"},{"@":0,"#":[{"@":4,"#":"pair"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%mem/search"},{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"memv"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(memv obj list)\n\nFunction return first object in the list that match using eqv? function."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"memv"},{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":4,"#":"nil"},{"@":0,"#":[{"@":4,"#":"pair"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%mem/search"},{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"eqv?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"member"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(member obj list)\n\nFunction return first object in the list that match using equal? function."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"member"},{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":4,"#":"nil"},{"@":0,"#":[{"@":4,"#":"pair"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%mem/search"},{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%assoc/accessor"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(%assoc/accessor name)\n\nFunction return carr with typecheck using give name."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":4,"#":"pair"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caar"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%assoc/search"},{"@":0,"#":[{"@":3,"#":"op"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":3,"#":"alist"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(%assoc/search op obj alist)\n\nGeneric function that used in assoc functions with defined comparator\nfunction."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"assoc"},{"@":0,"#":[{"@":3,"#":"alist"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":4,"#":"nil"},{"@":0,"#":[{"@":4,"#":"pair"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"ret"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%mem/search"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%assoc/accessor"},{"@":0,"#":[{"@":4,"#":"assoc"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"op"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":3,"#":"alist"},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"ret"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"ret"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"ret"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"assoc"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%doc"},{"@":0,"#":[{"@":4,"#":"(assoc obj alist)\n\nFunction return pair from alist that match given key using equal? check."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"curry"},{"@":0,"#":[{"@":3,"#":"%assoc/search"},{"@":0,"#":[{"@":3,"#":"equal?"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"assq"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%doc"},{"@":0,"#":[{"@":4,"#":"(assq obj alist)\n\nFunction return pair from alist that match given key using eq? check."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"curry"},{"@":0,"#":[{"@":3,"#":"%assoc/search"},{"@":0,"#":[{"@":3,"#":"eq?"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"assv"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%doc"},{"@":0,"#":[{"@":4,"#":"(assv obj alist)\n\nFunction return pair from alist that match given key using eqv? check."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"curry"},{"@":0,"#":[{"@":3,"#":"%assoc/search"},{"@":0,"#":[{"@":3,"#":"eqv?"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"make-string"},{"@":0,"#":[{"@":3,"#":"k"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(make-string k [char])\n\nFunction return new string with k elements, if char is provied\nit's filled with that character."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":5,"#":" "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"make-string"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"make-string"},{"@":0,"#":[{"@":3,"#":"char"},{"@":0,"#":[{"@":4,"#":"character"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<="},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->string"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"iter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":3,"#":"char"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string"},{"@":3,"#":"args"}]},{"@":0,"#":[{"@":4,"#":"(string chr1 chr2 ...)\n\nFunction create new string from it's arguments. Each argument\nNeed to be a character object."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"for-each"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":4,"#":"character"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->string"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-copy"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(string-copy string)\n\nReturns a copy of the given string."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string-copy"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"clone"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-fill!"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(string-fill! symbol char)\n\nFunction destructively fill the string with given character."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string-fill!"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":4,"#":"string"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string-fill!"},{"@":0,"#":[{"@":3,"#":"char"},{"@":0,"#":[{"@":4,"#":"character"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fill"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"identity"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(identity n)\n\nNo op function. it just returns its argument."},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-copy"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(string-copy x)\n\nCreate new string based of given argument."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string-copy"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.LString"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->string"},{"@":0,"#":[{"@":3,"#":"_list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(list->string _list)\n\nFunction return string from list of characters."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"array"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->array"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"list->string"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":4,"#":"character"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x.valueOf"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"_list"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"array"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"join"},{"@":0,"#":[{"@":4,"#":""},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string->list"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(string->list string)\n\nFunction return list of characters created from string."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string->list"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"array->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"split"},{"@":0,"#":[{"@":4,"#":""},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.LCharacter"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-set!"},{"@":0,"#":[{"@":3,"#":"object"},{"@":0,"#":[{"@":3,"#":"index"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(string-set! object index char)\n\nMacro that replace character in string in given index, it create new JavaScript\nstring and replace old value. Object need to be symbol that point to variable\nthat hold the string."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string-set!"},{"@":0,"#":[{"@":3,"#":"object"},{"@":0,"#":[{"@":4,"#":"symbol"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"chars"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":4,"#":"chars"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string-set!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"object"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string-set!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"index"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string-set!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"character"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"chars"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->vector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"object"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"chars"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"index"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"object"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"chars"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-length"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(string-length string)\n\nFunction return length of the string."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string-ref"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"length"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-ref"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(string-ref string k)\n\nFunction return character inside string at given zero-based index."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string-ref"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":4,"#":"string"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string-ref"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.LCharacter"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%string-cmp"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(%string-cmp name a b)\n\nFunction compare two strings and return 0 if they are equal,\n-1 second is smaller and 1 if is larget. The function compare\nthe codepoints of the character."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":4,"#":"string"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":0,"#":[{"@":4,"#":"string"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cmp"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(string=? string1 string2)\n\nFunction check if two string s are equal."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%string-cmp"},{"@":0,"#":[{"@":4,"#":"string=?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string<?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(string<? string1 string2)\n\nFunction return true if second string is smaller then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%string-cmp"},{"@":0,"#":[{"@":4,"#":"string<?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"-1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string>?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(string<? string1 string2)\n\nFunction return true if second string is larger then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%string-cmp"},{"@":0,"#":[{"@":4,"#":"string>?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string<=?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(string<? string1 string2)\n\nFunction return true if second string is not larger then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%string-cmp"},{"@":0,"#":[{"@":4,"#":"string<=?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string>=?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(string<? string1 string2)\n\nFunction return true if second character is not smaller then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%string-cmp"},{"@":0,"#":[{"@":4,"#":"string>=?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"-1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%string-ci-cmp"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(%string-ci-cmp name a b)\n\nFunction compare two strings ignoring case and return 0 if they are equal,\n-1 second is smaller and 1 if is larget. The function compare\nthe codepoints of the character."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":4,"#":"string"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":0,"#":[{"@":4,"#":"string"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lower"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cmp"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lower"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-ci=?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(string-ci=? string1 string2)\n\nFunction check if two string s are equal."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%string-ci-cmp"},{"@":0,"#":[{"@":4,"#":"string-ci=?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-ci<?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(string-ci<? string1 string2)\n\nFunction return true if second string is smaller then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%string-ci-cmp"},{"@":0,"#":[{"@":4,"#":"string-ci<?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"-1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-ci>?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(string-ci<? string1 string2)\n\nFunction return true if second string is larger then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%string-ci-cmp"},{"@":0,"#":[{"@":4,"#":"string-ci>?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-ci<=?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(string-ci<? string1 string2)\n\nFunction return true if second string is not larger then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%string-ci-cmp"},{"@":0,"#":[{"@":4,"#":"string-ci<=?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-ci>=?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(string-ci>=? string1 string2)\n\nFunction return true if second character is not smaller then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%string-ci-cmp"},{"@":0,"#":[{"@":4,"#":"string-ci>=?"},{"@":0,"#":[{"@":3,"#":"string1"},{"@":0,"#":[{"@":3,"#":"string2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"-1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"char?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%doc"},{"@":0,"#":[{"@":4,"#":"(char? obj)\n\nFunction check if object is character."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"curry"},{"@":0,"#":[{"@":3,"#":"instanceof"},{"@":0,"#":[{"@":3,"#":"lips.LCharacter"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char->integer"},{"@":0,"#":[{"@":3,"#":"chr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(char->integer chr)\n\nFunction return codepoint of Unicode character."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"char->integer"},{"@":0,"#":[{"@":3,"#":"chr"},{"@":0,"#":[{"@":4,"#":"character"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"chr.__char__"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"codePointAt"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"integer->char"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(integer->char chr)\n\nFunction convert number argument to character."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"integer->char"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"integer?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-ref"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"String.fromCodePoint"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":4,"#":"argument to integer->char need to be integer."},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%define-chr-re"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":0,"#":[{"@":3,"#":"str"},{"@":0,"#":[{"@":3,"#":"re"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(%define-chr-re (name chr) string re)\n\nMacro define procedure that test character agains regular expression."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"str"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"character"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"chr"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toString"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"match"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"re"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%define-chr-re"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-whitespace?"},{"@":0,"#":[{"@":3,"#":"chr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(char-whitespace? chr)\n\nFunction return true if character is whitespace."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let-env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"interaction-environment"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"space-unicode-regex"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%define-chr-re"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-numeric?"},{"@":0,"#":[{"@":3,"#":"chr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(char-numeric? chr)\n\nFunction return true if character is number."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let-env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"interaction-environment"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"numeral-unicode-regex"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%define-chr-re"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-alphabetic?"},{"@":0,"#":[{"@":3,"#":"chr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(char-alphabetic? chr)\n\nFunction return true if character is leter of the ASCII alphabet."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let-env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"interaction-environment"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"letter-unicode-regex"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-cmp"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(%char-cmp name a b)\n\nFunction compare two characters and return 0 if they are equal,\n-1 second is smaller and 1 if is larget. The function compare\nthe codepoints of the character."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":4,"#":"character"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":0,"#":[{"@":4,"#":"character"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char->integer"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"b"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char->integer"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":1,"#":"-1"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char=?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(char=? chr1 chr2)\n\nFunction check if two characters are equal."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-cmp"},{"@":0,"#":[{"@":4,"#":"char=?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char<?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(char<? chr1 chr2)\n\nFunction return true if second character is smaller then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-cmp"},{"@":0,"#":[{"@":4,"#":"char<?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"-1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char>?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(char<? chr1 chr2)\n\nFunction return true if second character is larger then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-cmp"},{"@":0,"#":[{"@":4,"#":"char>?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char<=?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(char<? chr1 chr2)\n\nFunction return true if second character is not larger then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-cmp"},{"@":0,"#":[{"@":4,"#":"char<=?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char>=?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(char<? chr1 chr2)\n\nFunction return true if second character is not smaller then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-cmp"},{"@":0,"#":[{"@":4,"#":"char>=?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"-1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-ci-cmp"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(%char-cmp name a b)\n\nFunction compare two characters and return 0 if they are equal,\n-1 second is smaller and 1 if is larget. The function compare\nthe codepoints of the character."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":4,"#":"character"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":0,"#":[{"@":4,"#":"character"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-cmp"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-downcase"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-downcase"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-ci=?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(char-ci=? chr1 chr2)\n\nFunction check if two characters are equal."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-ci-cmp"},{"@":0,"#":[{"@":4,"#":"char-ci=?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-ci<?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(char-ci<? chr1 chr2)\n\nFunction return true if second character is smaller then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-ci-cmp"},{"@":0,"#":[{"@":4,"#":"char-ci<?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"-1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-ci>?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(char-ci<? chr1 chr2)\n\nFunction return true if second character is larger then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-ci-cmp"},{"@":0,"#":[{"@":4,"#":"char-ci>?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-ci<=?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(char-ci<? chr1 chr2)\n\nFunction return true if second character is not larger then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-ci-cmp"},{"@":0,"#":[{"@":4,"#":"char-ci<=?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-ci>=?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(char-ci<? chr1 chr2)\n\nFunction return true if second character is not smaller then the first one."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%char-ci-cmp"},{"@":0,"#":[{"@":4,"#":"char-ci>=?"},{"@":0,"#":[{"@":3,"#":"chr1"},{"@":0,"#":[{"@":3,"#":"chr2"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":1,"#":"-1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-upcase"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(char-upcase char)\n\nCreate uppercase version of the character."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"char-upcase"},{"@":0,"#":[{"@":3,"#":"char"},{"@":0,"#":[{"@":4,"#":"character"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char.toUpperCase"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-downcase"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(char-downcase chr)\n\nCreate lowercase version of the character."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"char-upcase"},{"@":0,"#":[{"@":3,"#":"char"},{"@":0,"#":[{"@":4,"#":"character"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char.toLowerCase"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-upper-case?"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(char-upper-case? char)\n\nFunction check if character is upper case."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"char-upper-case?"},{"@":0,"#":[{"@":3,"#":"char"},{"@":0,"#":[{"@":4,"#":"character"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-alphabetic?"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char=?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-upcase"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-lower-case?"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(char-upper-case? char)\n\nFunction check if character is lower case."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"char-lower-case?"},{"@":0,"#":[{"@":3,"#":"char"},{"@":0,"#":[{"@":4,"#":"character"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-alphabetic?"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char=?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-downcase"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"newline"},{"@":3,"#":"rest"}]},{"@":0,"#":[{"@":4,"#":"(newline [port])\n\nWrite newline character to standard output or given port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-output-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"display"},{"@":0,"#":[{"@":4,"#":"\n"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"write"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(write obj [port])\n\nWrite object to standard output or give port. For strings it will include\nwrap in quotes."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-output-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"display"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"repr"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"write-char"},{"@":0,"#":[{"@":3,"#":"char"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(write-char char [port])\n\nWrite single character to given port using write function."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"write-char"},{"@":0,"#":[{"@":3,"#":"char"},{"@":0,"#":[{"@":4,"#":"character"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"write-char"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"output-port"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"display"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char.valueOf"},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"fold-right"},{"@":0,"#":[{"@":3,"#":"reduce"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"fold-left"},{"@":0,"#":[{"@":3,"#":"fold"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"make-vector"},{"@":0,"#":[{"@":3,"#":"n"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(make-vector n [fill])\n\nCreate new vector with n empty elements. If fill is specified it will set\nall elements of the vector to that value."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Array"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fill"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(vector? n)\n\nFunction return true of value is vector and false if not."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"array"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-ref"},{"@":0,"#":[{"@":3,"#":"vec"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(vector-ref vec n)\n\nFunction return nth element of the vector vec."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"vector-ref"},{"@":0,"#":[{"@":3,"#":"vec"},{"@":0,"#":[{"@":4,"#":"array"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"vector-ref"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"vec"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-set!"},{"@":0,"#":[{"@":3,"#":"vec"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(vector-set! vec n value)\n\nFunction set nth item of the vector to value."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"vector-ref"},{"@":0,"#":[{"@":3,"#":"vec"},{"@":0,"#":[{"@":4,"#":"array"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"vector-ref"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"vec"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-fill!"},{"@":0,"#":[{"@":3,"#":"vec"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(vector-fill! vec value)\n\nSet every element of the vector to given value."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"vector-ref"},{"@":0,"#":[{"@":3,"#":"vec"},{"@":0,"#":[{"@":4,"#":"array"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"recur"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"vec"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">="},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"vec"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"recur"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-length"},{"@":0,"#":[{"@":3,"#":"vec"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(vector-length vec)\n\nFunction return length of the vector. If argument is not vector it throw exception."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"vector-length"},{"@":0,"#":[{"@":3,"#":"vec"},{"@":0,"#":[{"@":4,"#":"array"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"vec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":3,"#":"=>"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"atom-key"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":3,"#":"atom-key"},{"@":0,"#":[{"@":3,"#":"clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":3,"#":"=>"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":3,"#":"result1"},{"@":0,"#":[{"@":3,"#":"result2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"result1"},{"@":0,"#":[{"@":3,"#":"result2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"atoms"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"result1"},{"@":0,"#":[{"@":3,"#":"result2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"memv"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"atoms"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"result1"},{"@":0,"#":[{"@":3,"#":"result2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"atoms"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"=>"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"memv"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"atoms"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"atoms"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"=>"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"clause"},{"@":0,"#":[{"@":3,"#":"clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"memv"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"atoms"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":3,"#":"key"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":3,"#":"clause"},{"@":0,"#":[{"@":3,"#":"clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"atoms"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"result1"},{"@":0,"#":[{"@":3,"#":"result2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"clause"},{"@":0,"#":[{"@":3,"#":"clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"memv"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"atoms"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"result1"},{"@":0,"#":[{"@":3,"#":"result2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":3,"#":"key"},{"@":0,"#":[{"@":3,"#":"clause"},{"@":0,"#":[{"@":3,"#":"clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(case value\n ((<items>) result1)\n ((<items>) result2)\n [else result3])\n\nMacro for switch case statement. It test if value is any of the item. If\nitem match the value it will return corresponding result expression value.\nIf no value match and there is else it will return that result."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"lips.Formatter.defaults.exceptions.specials"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"push"},{"@":0,"#":[{"@":4,"#":"case"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"numerator"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(numerator n)\n\nReturn numerator of rational or same number if n is not rational."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"numerator"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"rational?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"integer?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"n.num"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"denominator"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(denominator n)\n\nReturn denominator of rational or same number if one is not rational."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"denominator"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"rational?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"integer?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"n.denom"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":1,"#":"1"},{"@":0,"#":[{"@":1,"#":1},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"imag-part"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(imag-part n)\n\nReturn imaginary part of the complex number n."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"imag-part"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":4,"#":"complex"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"n.__im__"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"real-part"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(real-part n)\n\nReturn real part of the complex number n."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"real-part"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":4,"#":"complex"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"n.__re__"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"make-polar"},{"@":0,"#":[{"@":3,"#":"r"},{"@":0,"#":[{"@":3,"#":"angle"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(make-polar magnitude angle)\n\nCreate new complex number from polar parameters."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"make-polar"},{"@":0,"#":[{"@":3,"#":"r"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"make-polar"},{"@":0,"#":[{"@":3,"#":"angle"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"complex?"},{"@":0,"#":[{"@":3,"#":"r"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"complex?"},{"@":0,"#":[{"@":3,"#":"angle"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":4,"#":"make-polar: argument can't be complex"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"re"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*"},{"@":0,"#":[{"@":3,"#":"r"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"sin"},{"@":0,"#":[{"@":3,"#":"angle"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"im"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*"},{"@":0,"#":[{"@":3,"#":"r"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cos"},{"@":0,"#":[{"@":3,"#":"angle"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"make-rectangular"},{"@":0,"#":[{"@":3,"#":"im"},{"@":0,"#":[{"@":3,"#":"re"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"angle"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(angle x)\n\nReturns angle of the complex number in polar coordinate system."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":4,"#":"complex"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":4,"#":"angle: number need to be complex"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Math.atan2"},{"@":0,"#":[{"@":3,"#":"x.__im__"},{"@":0,"#":[{"@":3,"#":"x.__re__"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"magnitude"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(magnitude x)\n\nReturns magnitude of the complex number in polar coordinate system."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":4,"#":"complex"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":4,"#":"magnitude: number need to be complex"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"sqrt"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"+"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*"},{"@":0,"#":[{"@":3,"#":"x.__im__"},{"@":0,"#":[{"@":3,"#":"x.__im__"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*"},{"@":0,"#":[{"@":3,"#":"x.__re__"},{"@":0,"#":[{"@":3,"#":"x.__re__"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"random"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":1,"#":"69069"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"c"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"m"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"expt"},{"@":0,"#":[{"@":1,"#":"2"},{"@":0,"#":[{"@":1,"#":"32"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"seed"},{"@":0,"#":[{"@":1,"#":"19380110"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":3,"#":"new-seed"},{"@":0,"#":[{"@":4,"#":"(random)\n(random seed)\n\nFunction generate new random real number using Knuth algorithm."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"new-seed"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"seed"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"new-seed"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"seed"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"modulo"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"+"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*"},{"@":0,"#":[{"@":3,"#":"seed"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"c"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"m"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact->inexact"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"/"},{"@":0,"#":[{"@":3,"#":"seed"},{"@":0,"#":[{"@":3,"#":"m"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eof-object?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(eof-object? arg)\n\nFunction check if value is eof object, returned from input string\nport when there are no more data to read."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":3,"#":"eof"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"output-port?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(output-port? arg)\n\nFunction return true if argument is output port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"instanceof"},{"@":0,"#":[{"@":3,"#":"lips.OutputPort"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"input-port?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(input-port? arg)\n\nFunction return true if argument is input port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"instanceof"},{"@":0,"#":[{"@":3,"#":"lips.InputPort"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-ready?"},{"@":3,"#":"rest"}]},{"@":0,"#":[{"@":4,"#":"(char-ready?)\n(char-ready? port)\n\nFunction check it characters is ready in input port. This is useful mostly\nfor interactive ports that return false if it would wait for user input.\nIt return false if port is closed."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-input-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"char-ready?"},{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":4,"#":"input-port"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.char_ready"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"open-input-file"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"readFile"},{"@":0,"#":[false,{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(open-input-file filename)\n\nFunction return new Input Port with given filename. In Browser user need to\nprovide global fs variable that is instance of FS interface."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fs"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"lips.env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"fs"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"fs"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"open-input-file: fs not defined"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"procedure?"},{"@":0,"#":[{"@":3,"#":"readFile"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_readFile"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"promisify"},{"@":0,"#":[{"@":3,"#":"fs.readFile"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"readFile"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_readFile"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toString"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"lips.InputFilePort"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"readFile"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"close-input-port"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(close-input-port port)\n\nProcedure close port that was opened with open-input-file. After that\nit no longer accept reading from that port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"close-input-port"},{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":4,"#":"input-port"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.close"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"close-output-port"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(close-output-port port)\n\nProcedure close port that was opened with open-output-file. After that\nit no longer accept write to that port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"close-output-port"},{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":4,"#":"output-port"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.close"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"call-with-input-file"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":0,"#":[{"@":3,"#":"proc"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(call-with-input-file filename proc)\n\nProcedure open file for reading, call user defined procedure with given port\nand then close the port. It return value that was returned by user proc\nand it close the port even if user proc throw exception."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"p"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open-input-file"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"proc"},{"@":0,"#":[{"@":3,"#":"p"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"finally"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"close-input-port"},{"@":0,"#":[{"@":3,"#":"p"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"call-with-output-file"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":0,"#":[{"@":3,"#":"proc"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(call-with-output-file filename proc)\n\nProcedure open file for writing, call user defined procedure with port\nand then close the port. It return value that was returned by user proc and it close the port\neven if user proc throw exception."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"p"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open-output-file"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"proc"},{"@":0,"#":[{"@":3,"#":"p"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"finally"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"close-output-port"},{"@":0,"#":[{"@":3,"#":"p"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"with-input-from-file"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":3,"#":"thunk"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(with-input-from-file string thunk)\n\nProcedure open file and make it current-input-port then thunk is executed.\nAfter thunk is executed current-input-port is restored and file port\nis closed."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open-input-file"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":3,"#":"**interaction-environment**"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"internal-env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env.get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"old-stdin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"internal-env.get"},{"@":0,"#":[{"@":4,"#":"stdin"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"internal-env.set"},{"@":0,"#":[{"@":4,"#":"stdin"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"thunk"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"finally"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"internal-env.set"},{"@":0,"#":[{"@":4,"#":"stdin"},{"@":0,"#":[{"@":3,"#":"old-stdin"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"close-input-port"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"with-output-to-file"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":3,"#":"thunk"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open-output-file"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":3,"#":"**interaction-environment**"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"internal-env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env.get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"old-stdout"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"internal-env.get"},{"@":0,"#":[{"@":4,"#":"stdout"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"internal-env.set"},{"@":0,"#":[{"@":4,"#":"stdout"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"thunk"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"finally"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"internal-env.set"},{"@":0,"#":[{"@":4,"#":"stdout"},{"@":0,"#":[{"@":3,"#":"old-stdout"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"close-output-port"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"file-exists?"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fs"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"lips.env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"fs"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"fs"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"file-exists?: fs not defined"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fs.stat"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"err"},{"@":0,"#":[{"@":3,"#":"stat"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"err"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"stat.isFile"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[false,{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"open-output-file"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open"},{"@":2,"#":0}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(open-output-file filename)\n\nFunction open file and return port that can be used for writing. If file\nexists it will throw an Error."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"open-output-file"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"procedure?"},{"@":0,"#":[{"@":3,"#":"open"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"open"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%fs-promisify-proc"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"open"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"open-output-file"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"file-exists?"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"open-output-file: file exists"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.OutputFilePort"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":0,"#":[{"@":4,"#":"w"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"scheme-report-environment"},{"@":0,"#":[{"@":3,"#":"version"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(scheme-report-environment version)\n\nFunction return new Environment object for given Scheme Spec version.\nOnly argument 5 is supported that create environment for R5RS."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"scheme-report-environment"},{"@":0,"#":[{"@":3,"#":"version"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":3,"#":"version"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":1,"#":"5"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%make-env"},{"@":0,"#":[{"@":4,"#":"R5RS"},{"@":0,"#":[{"@":3,"#":"*"},{"@":0,"#":[{"@":3,"#":"+"},{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"/"},{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":3,"#":"<="},{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":3,"#":">="},{"@":0,"#":[{"@":3,"#":"abs"},{"@":0,"#":[{"@":3,"#":"acos"},{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":3,"#":"angle"},{"@":0,"#":[{"@":3,"#":"append"},{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"asin"},{"@":0,"#":[{"@":3,"#":"assoc"},{"@":0,"#":[{"@":3,"#":"assq"},{"@":0,"#":[{"@":3,"#":"assv"},{"@":0,"#":[{"@":3,"#":"atan"},{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"boolean?"},{"@":0,"#":[{"@":3,"#":"caaaar"},{"@":0,"#":[{"@":3,"#":"caaadr"},{"@":0,"#":[{"@":3,"#":"caaar"},{"@":0,"#":[{"@":3,"#":"caadar"},{"@":0,"#":[{"@":3,"#":"caaddr"},{"@":0,"#":[{"@":3,"#":"caadr"},{"@":0,"#":[{"@":3,"#":"caar"},{"@":0,"#":[{"@":3,"#":"cadaar"},{"@":0,"#":[{"@":3,"#":"cadadr"},{"@":0,"#":[{"@":3,"#":"cadar"},{"@":0,"#":[{"@":3,"#":"caddar"},{"@":0,"#":[{"@":3,"#":"cadddr"},{"@":0,"#":[{"@":3,"#":"caddr"},{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"call-with-current-continuation"},{"@":0,"#":[{"@":3,"#":"call-with-input-file"},{"@":0,"#":[{"@":3,"#":"call-with-output-file"},{"@":0,"#":[{"@":3,"#":"call-with-values"},{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"case"},{"@":0,"#":[{"@":3,"#":"cdaaar"},{"@":0,"#":[{"@":3,"#":"cdaadr"},{"@":0,"#":[{"@":3,"#":"cdaar"},{"@":0,"#":[{"@":3,"#":"cdadar"},{"@":0,"#":[{"@":3,"#":"cdaddr"},{"@":0,"#":[{"@":3,"#":"cdadr"},{"@":0,"#":[{"@":3,"#":"cdar"},{"@":0,"#":[{"@":3,"#":"cddaar"},{"@":0,"#":[{"@":3,"#":"cddadr"},{"@":0,"#":[{"@":3,"#":"cddar"},{"@":0,"#":[{"@":3,"#":"cdddar"},{"@":0,"#":[{"@":3,"#":"cddddr"},{"@":0,"#":[{"@":3,"#":"cdddr"},{"@":0,"#":[{"@":3,"#":"cddr"},{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"ceiling"},{"@":0,"#":[{"@":3,"#":"char->integer"},{"@":0,"#":[{"@":3,"#":"char-alphabetic?"},{"@":0,"#":[{"@":3,"#":"char-ci<=?"},{"@":0,"#":[{"@":3,"#":"char-ci<?"},{"@":0,"#":[{"@":3,"#":"char-ci=?"},{"@":0,"#":[{"@":3,"#":"char-ci>=?"},{"@":0,"#":[{"@":3,"#":"char-ci>?"},{"@":0,"#":[{"@":3,"#":"char-downcase"},{"@":0,"#":[{"@":3,"#":"char-lower-case?"},{"@":0,"#":[{"@":3,"#":"char-numeric?"},{"@":0,"#":[{"@":3,"#":"char-ready?"},{"@":0,"#":[{"@":3,"#":"char-upcase"},{"@":0,"#":[{"@":3,"#":"char-upper-case?"},{"@":0,"#":[{"@":3,"#":"char-whitespace?"},{"@":0,"#":[{"@":3,"#":"char<=?"},{"@":0,"#":[{"@":3,"#":"char<?"},{"@":0,"#":[{"@":3,"#":"char=?"},{"@":0,"#":[{"@":3,"#":"char>=?"},{"@":0,"#":[{"@":3,"#":"char>?"},{"@":0,"#":[{"@":3,"#":"char?"},{"@":0,"#":[{"@":3,"#":"close-input-port"},{"@":0,"#":[{"@":3,"#":"close-output-port"},{"@":0,"#":[{"@":3,"#":"complex?"},{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":3,"#":"cos"},{"@":0,"#":[{"@":3,"#":"current-input-port"},{"@":0,"#":[{"@":3,"#":"current-output-port"},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"delay"},{"@":0,"#":[{"@":3,"#":"denominator"},{"@":0,"#":[{"@":3,"#":"display"},{"@":0,"#":[{"@":3,"#":"do"},{"@":0,"#":[{"@":3,"#":"dynamic-wind"},{"@":0,"#":[{"@":3,"#":"eof-object?"},{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":3,"#":"eqv?"},{"@":0,"#":[{"@":3,"#":"eval"},{"@":0,"#":[{"@":3,"#":"even?"},{"@":0,"#":[{"@":3,"#":"exact->inexact"},{"@":0,"#":[{"@":3,"#":"exact?"},{"@":0,"#":[{"@":3,"#":"exp"},{"@":0,"#":[{"@":3,"#":"expt"},{"@":0,"#":[{"@":3,"#":"floor"},{"@":0,"#":[{"@":3,"#":"for-each"},{"@":0,"#":[{"@":3,"#":"force"},{"@":0,"#":[{"@":3,"#":"gcd"},{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"imag-part"},{"@":0,"#":[{"@":3,"#":"inexact->exact"},{"@":0,"#":[{"@":3,"#":"inexact?"},{"@":0,"#":[{"@":3,"#":"input-port?"},{"@":0,"#":[{"@":3,"#":"integer->char"},{"@":0,"#":[{"@":3,"#":"integer?"},{"@":0,"#":[{"@":3,"#":"interaction-environment"},{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":3,"#":"lcm"},{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":3,"#":"let-syntax"},{"@":0,"#":[{"@":3,"#":"letrec"},{"@":0,"#":[{"@":3,"#":"letrec-syntax"},{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":3,"#":"list->string"},{"@":0,"#":[{"@":3,"#":"list->vector"},{"@":0,"#":[{"@":3,"#":"list-ref"},{"@":0,"#":[{"@":3,"#":"list-tail"},{"@":0,"#":[{"@":3,"#":"list?"},{"@":0,"#":[{"@":3,"#":"load"},{"@":0,"#":[{"@":3,"#":"log"},{"@":0,"#":[{"@":3,"#":"magnitude"},{"@":0,"#":[{"@":3,"#":"make-polar"},{"@":0,"#":[{"@":3,"#":"make-rectangular"},{"@":0,"#":[{"@":3,"#":"make-string"},{"@":0,"#":[{"@":3,"#":"make-vector"},{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":3,"#":"max"},{"@":0,"#":[{"@":3,"#":"member"},{"@":0,"#":[{"@":3,"#":"memq"},{"@":0,"#":[{"@":3,"#":"memv"},{"@":0,"#":[{"@":3,"#":"min"},{"@":0,"#":[{"@":3,"#":"modulo"},{"@":0,"#":[{"@":3,"#":"negative?"},{"@":0,"#":[{"@":3,"#":"newline"},{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":3,"#":"null-environment"},{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"number->string"},{"@":0,"#":[{"@":3,"#":"number?"},{"@":0,"#":[{"@":3,"#":"numerator"},{"@":0,"#":[{"@":3,"#":"odd?"},{"@":0,"#":[{"@":3,"#":"open-input-file"},{"@":0,"#":[{"@":3,"#":"open-output-file"},{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":3,"#":"output-port?"},{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"peek-char"},{"@":0,"#":[{"@":3,"#":"positive?"},{"@":0,"#":[{"@":3,"#":"procedure?"},{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"quotient"},{"@":0,"#":[{"@":3,"#":"rational?"},{"@":0,"#":[{"@":3,"#":"rationalize"},{"@":0,"#":[{"@":3,"#":"read"},{"@":0,"#":[{"@":3,"#":"read-char"},{"@":0,"#":[{"@":3,"#":"real-part"},{"@":0,"#":[{"@":3,"#":"real?"},{"@":0,"#":[{"@":3,"#":"remainder"},{"@":0,"#":[{"@":3,"#":"reverse"},{"@":0,"#":[{"@":3,"#":"round"},{"@":0,"#":[{"@":3,"#":"scheme-report-environment"},{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"set-car!"},{"@":0,"#":[{"@":3,"#":"set-cdr!"},{"@":0,"#":[{"@":3,"#":"sin"},{"@":0,"#":[{"@":3,"#":"sqrt"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":3,"#":"string->list"},{"@":0,"#":[{"@":3,"#":"string->number"},{"@":0,"#":[{"@":3,"#":"string->symbol"},{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":3,"#":"string-ci<=?"},{"@":0,"#":[{"@":3,"#":"string-ci<?"},{"@":0,"#":[{"@":3,"#":"string-ci=?"},{"@":0,"#":[{"@":3,"#":"string-ci>=?"},{"@":0,"#":[{"@":3,"#":"string-ci>?"},{"@":0,"#":[{"@":3,"#":"string-copy"},{"@":0,"#":[{"@":3,"#":"string-fill!"},{"@":0,"#":[{"@":3,"#":"string-length"},{"@":0,"#":[{"@":3,"#":"string-ref"},{"@":0,"#":[{"@":3,"#":"string-set!"},{"@":0,"#":[{"@":3,"#":"string<=?"},{"@":0,"#":[{"@":3,"#":"string<?"},{"@":0,"#":[{"@":3,"#":"string=?"},{"@":0,"#":[{"@":3,"#":"string>=?"},{"@":0,"#":[{"@":3,"#":"string>?"},{"@":0,"#":[{"@":3,"#":"string?"},{"@":0,"#":[{"@":3,"#":"substring"},{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"tan"},{"@":0,"#":[{"@":3,"#":"truncate"},{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":0,"#":[{"@":3,"#":"vector-fill!"},{"@":0,"#":[{"@":3,"#":"vector-length"},{"@":0,"#":[{"@":3,"#":"vector-ref"},{"@":0,"#":[{"@":3,"#":"vector-set!"},{"@":0,"#":[{"@":3,"#":"vector?"},{"@":0,"#":[{"@":3,"#":"with-input-from-file"},{"@":0,"#":[{"@":3,"#":"with-output-to-file"},{"@":0,"#":[{"@":3,"#":"write"},{"@":0,"#":[{"@":3,"#":"write-char"},{"@":0,"#":[{"@":3,"#":"zero?"},{"@":2,"#":0}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":1,"#":"7"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"not yet implemented"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"scheme-report-environment: version "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number->string"},{"@":0,"#":[{"@":3,"#":"version"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":" not supported"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%make-vector"},{"@":0,"#":[{"@":3,"#":"prefix"},{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"help"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(%make-vector prefix type help)\n\nMega helper macro that create list of functions for single byte vector\nbased on typed array from JavaScript"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"letrec"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"prefix-str"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"prefix"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type-str"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"l-type"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"type-str"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toLowerCase"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"static"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string->symbol"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":4,"#":"~a.~a"},{"@":0,"#":[{"@":3,"#":"type-str"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"TypedArray.from"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"static"},{"@":0,"#":[{"@":4,"#":"from"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn-name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"str"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string->symbol"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":3,"#":"str"},{"@":0,"#":[{"@":3,"#":"prefix-str"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type-vector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn-name"},{"@":0,"#":[{"@":4,"#":"~avector"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"make-vector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn-name"},{"@":0,"#":[{"@":4,"#":"make-~avector"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn-name"},{"@":0,"#":[{"@":4,"#":"~avector?"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-in-range?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn-name"},{"@":0,"#":[{"@":4,"#":"%~avector-in-range?"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-ref"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn-name"},{"@":0,"#":[{"@":4,"#":"~avector-ref"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"repr-str"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":4,"#":"#~a"},{"@":0,"#":[{"@":3,"#":"prefix-str"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-length"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn-name"},{"@":0,"#":[{"@":4,"#":"~avector-length"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn-name"},{"@":0,"#":[{"@":4,"#":"~avector->list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-set!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn-name"},{"@":0,"#":[{"@":4,"#":"~avector-set!"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->tvector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn-name"},{"@":0,"#":[{"@":4,"#":"list->~avector"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector->tvector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn-name"},{"@":0,"#":[{"@":4,"#":"vector->~avector"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"type-vector"},{"@":2,"#":0}]}]},{"@":3,"#":"args"}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":4,"#":"(~a v1 v2 ...)\n\nCreate ~a from give arguments."},{"@":0,"#":[{"@":3,"#":"type-vector"},{"@":0,"#":[{"@":3,"#":"help"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"TypedArray.from"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list->vector"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vector-length"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":4,"#":"(~a v)\n\nreturn length of ~a."},{"@":0,"#":[{"@":3,"#":"vector-length"},{"@":0,"#":[{"@":3,"#":"help"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"vector-length"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"v"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"l-type"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"v.length"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"make-vector"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"k"},{"@":3,"#":"fill"}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":4,"#":"(~a k fill)\n\nAllocate new ~a of length k, with optional initial values."},{"@":0,"#":[{"@":3,"#":"make-vector"},{"@":0,"#":[{"@":3,"#":"help"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"v"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"fill"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"v"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fill"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"fill"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vector?"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":4,"#":"(~a x)\n\nFunction return #t of argument is ~a otherwise it return #f."},{"@":0,"#":[{"@":3,"#":"vector?"},{"@":0,"#":[{"@":3,"#":"help"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"object?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"constructor"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vector-in-range?"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":4,"#":"(~a vector k)\n\nFunction test if index is range for ~a."},{"@":0,"#":[{"@":3,"#":"vector-in-range?"},{"@":0,"#":[{"@":3,"#":"help"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"vector-in-range?"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"l-type"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"vector-in-range?"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"len"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">="},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":3,"#":"len"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vector-ref"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":4,"#":"(~a vector k)\n\nFunction return value from vector at index k. If index is out of range it throw exception."},{"@":0,"#":[{"@":3,"#":"vector-ref"},{"@":0,"#":[{"@":3,"#":"help"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"vector-ref"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"l-type"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"vector-ref"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vector-in-range?"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":4,"#":"~a index out of range"},{"@":0,"#":[{"@":3,"#":"vector-ref"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"l-type"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Array.from"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vector-set!"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":4,"#":"(~a vector k)\n\nFunction set value of ~a at index k. If index is out of range it throw exception."},{"@":0,"#":[{"@":3,"#":"vector-set!"},{"@":0,"#":[{"@":3,"#":"help"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"vector-set!"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"l-type"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"vector-set!"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vector-in-range?"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":4,"#":"~a index out of range"},{"@":0,"#":[{"@":3,"#":"vector-set!"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"list->tvector"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"lst"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"list->tvector"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"lst"},{"@":0,"#":[{"@":4,"#":"pair"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"lst"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vector->tvector"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"vector->tvector"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":4,"#":"array"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"TypedArray.from"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-special!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"repr-str"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"type-vector"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"lips.specials.SPLICE"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-repr!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"_quote"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"repr-str"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"repr"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"_quote"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]}]}]}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%make-vector"},{"@":0,"#":[{"@":3,"#":"u8"},{"@":0,"#":[{"@":3,"#":"Uint8Array"},{"@":0,"#":[{"@":4,"#":"unsigned 8-bit integer vector"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%make-vector"},{"@":0,"#":[{"@":3,"#":"s8"},{"@":0,"#":[{"@":3,"#":"Int8Array"},{"@":0,"#":[{"@":4,"#":"signed 8-bit integer vector"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%make-vector"},{"@":0,"#":[{"@":3,"#":"u16"},{"@":0,"#":[{"@":3,"#":"Uint16Array"},{"@":0,"#":[{"@":4,"#":"unsigned 16-bit integer vector"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%make-vector"},{"@":0,"#":[{"@":3,"#":"s16"},{"@":0,"#":[{"@":3,"#":"Int16Array"},{"@":0,"#":[{"@":4,"#":"signed 16-bit integer vector"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%make-vector"},{"@":0,"#":[{"@":3,"#":"u32"},{"@":0,"#":[{"@":3,"#":"Uint16Array"},{"@":0,"#":[{"@":4,"#":"unsigned 32-bit integer vector"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%make-vector"},{"@":0,"#":[{"@":3,"#":"s32"},{"@":0,"#":[{"@":3,"#":"Int16Array"},{"@":0,"#":[{"@":4,"#":"signed 32-bit integer vector"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%make-vector"},{"@":0,"#":[{"@":3,"#":"f32"},{"@":0,"#":[{"@":3,"#":"Float32Array"},{"@":0,"#":[{"@":4,"#":"32-bit IEEE floating point number vector"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%make-vector"},{"@":0,"#":[{"@":3,"#":"f64"},{"@":0,"#":[{"@":3,"#":"Float64Array"},{"@":0,"#":[{"@":4,"#":"64-bit IEEE floating point number vector"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list-match?"},{"@":0,"#":[{"@":3,"#":"predicate"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(list-match? predicate list)\n\nFunction check if consecutive elements of the list match the predicate function."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"list-match?"},{"@":0,"#":[{"@":3,"#":"predicate"},{"@":0,"#":[[{"@":4,"#":"function"},{"@":4,"#":"macro"}],{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"list-match?"},{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":4,"#":"pair"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"predicate"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list-match?"},{"@":0,"#":[{"@":3,"#":"predicate"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol=?"},{"@":3,"#":"args"}]},{"@":0,"#":[{"@":4,"#":"(symbol=? s1 s2 ...)\n\nFunction check if each value is symbol and it's the same according to string=? predicate."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list-match?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"equal?"},{"@":0,"#":[{"@":3,"#":"a"},{"@":0,"#":[{"@":3,"#":"b"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"values-ref"},{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(values-ref values n)\n\nFunction return n value of values object which is result of value function."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"values-ref"},{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":4,"#":"values"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"values-ref"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"valueOf"},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"let-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"values"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"..."},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"vector-append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":4,"#":"valueOf"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list"},{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(let-values binding body ...)\n\nThe macro work similar to let but variable is list of values and value\nneed to evaluate to result of calling values."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-append"},{"@":3,"#":"args"}]},{"@":0,"#":[{"@":4,"#":"(vector-append v1 v2 ...)\n\nFunction return new vector by combining it's arguments that should be vectors."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"vector-append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"array"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"concat"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"vector-append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%range-function"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":3,"#":"body"}]}]},{"@":0,"#":[{"@":4,"#":"(%range-function spec . body)\n\nMacro that creates R7RS vector functions that have range start end."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name-str"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"end"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"length"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name-str"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name-str"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"end"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%range-function"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(vector->list vector)\n(vector->list vector start)\n(vector->list vector start end)\n\nFunction copy given range of vector to list. If no start is specified it use\nstart of the vector, if no end is specified it convert to the end of the vector."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"vector->list"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":4,"#":"array"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"array->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector.slice"},{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":3,"#":"end"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%range-function"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string->vector"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(string->list string)\n(string->list string start)\n(string->list string start end)\n\nFunction copy given range of string to list. If no start is specified it use\nstart of the string, if no end is specified it convert to the end of the string."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string->vector"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string.substring"},{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":3,"#":"end"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"split"},{"@":0,"#":[{"@":4,"#":""},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unary"},{"@":0,"#":[{"@":3,"#":"lips.LCharacter"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%range-function"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector->string"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(vector->string vector)\n(vector->string vector start)\n(vector->string vector start end)\n\nFunction return new string created from vector of characters in given range.\nIf no start is given it create string from 0, if no end is given it return\nstring to the end."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"vector->string"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":4,"#":"array"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"slice"},{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":3,"#":"end"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char.valueOf"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"join"},{"@":0,"#":[{"@":4,"#":""},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%range-function"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-fill!"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"fill"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(vector-fill! vector fill)\n(vector-fill! vector fill start)\n(vector-fill! vector fill start end)\n\nFill vector with a given value in given range. If start is not given is start\nat 0. If end is not given it fill till the end if the vector."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"vector->fill!"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":4,"#":"array"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":3,"#":"recur"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"end"},{"@":0,"#":[{"@":3,"#":"start"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">="},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":3,"#":"start"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":3,"#":"fill"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"recur"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"n"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"let*-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bind"},{"@":0,"#":[{"@":3,"#":"values"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"rest"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":3,"#":"body"}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":3,"#":"bind"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"rest"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":3,"#":"body"}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":4,"#":"valueOf"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(let*-values binding body ...)\n\nThe macro work similar to let* but variable is list of values and value\nneed to evaluate to result of calling values."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quotient&remainder"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quotient"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"remainder"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"floor/"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"q"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quotient"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"r"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"remainder"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">="},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":3,"#":"y"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"r"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":3,"#":"q"},{"@":0,"#":[{"@":3,"#":"r"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"q"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"+"},{"@":0,"#":[{"@":3,"#":"r"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":3,"#":"y"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"r"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"q"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"+"},{"@":0,"#":[{"@":3,"#":"r"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":3,"#":"q"},{"@":0,"#":[{"@":3,"#":"r"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"floor-quotient"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"values-ref"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"floor/"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"floor-remainder"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"modulo"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"truncate/"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quotient&remainder"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"truncate-quotient"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quotient"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"truncate-remainder"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"remainder"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"y"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"case-lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"case-lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"params"},{"@":0,"#":[{"@":3,"#":"body0"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"len"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"letrec-syntax"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cl"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":3,"#":":::"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cl"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":4,"#":"no matching clause"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cl"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"p"},{"@":0,"#":[{"@":3,"#":":::"},{"@":2,"#":0}]}]},{"@":3,"#":"body"}]},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":3,"#":"len"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"p"},{"@":0,"#":[{"@":3,"#":":::"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"p"},{"@":0,"#":[{"@":3,"#":":::"},{"@":2,"#":0}]}]},{"@":3,"#":"body"}]}]},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cl"},{"@":3,"#":"rest"}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cl"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"p"},{"@":0,"#":[{"@":3,"#":":::"},{"@":3,"#":"tail"}]}]},{"@":3,"#":"body"}]},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">="},{"@":0,"#":[{"@":3,"#":"len"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"p"},{"@":0,"#":[{"@":3,"#":":::"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"p"},{"@":0,"#":[{"@":3,"#":":::"},{"@":3,"#":"tail"}]}]},{"@":3,"#":"body"}]}]},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cl"},{"@":3,"#":"rest"}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cl"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"params"},{"@":0,"#":[{"@":3,"#":"body0"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(case-lambda expr ...)\n\nMacro create new function with different version of the function depend on\nnumber of arguments. Each expression is similar to single lambda.\n\ne.g.:\n\n (define sum\n (case-lambda\n ((x) x)\n ((x y) (+ x y))\n ((x y z) (+ x y z))))\n\n (sum 1)\n (sum 1 2)\n (sum 1 2 3)\n\nMore arguments will give error."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"boolean=?"},{"@":3,"#":"args"}]},{"@":0,"#":[{"@":4,"#":"(boolean=? b1 b2 ...)\n\nFunction check if all arguments are boolean and if they are the same."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":1,"#":"2"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":4,"#":"boolean=?: too few arguments"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"reduce"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"acc"},{"@":0,"#":[{"@":3,"#":"item"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"boolean?"},{"@":0,"#":[{"@":3,"#":"item"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"acc"},{"@":0,"#":[{"@":3,"#":"item"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(port? x)\n\nFunction return true of argument is nput or output port port object."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"output-port?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"input-port?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"square"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(square z)\n\nReturns the square of z. This is equivalent to (* z z)."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"*"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"when"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"when"},{"@":0,"#":[{"@":3,"#":"test"},{"@":0,"#":[{"@":3,"#":"result1"},{"@":0,"#":[{"@":3,"#":"result2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"test"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"result1"},{"@":0,"#":[{"@":3,"#":"result2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(when test body ...)\n\nMacro execute body when test expression is true."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"unless"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unless"},{"@":0,"#":[{"@":3,"#":"test"},{"@":0,"#":[{"@":3,"#":"result1"},{"@":0,"#":[{"@":3,"#":"result2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":3,"#":"test"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"result1"},{"@":0,"#":[{"@":3,"#":"result2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(unless test body ...)\n\nMacro execute body when test expression is false."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"inexact"},{"@":0,"#":[{"@":3,"#":"exact->inexact"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"exact"},{"@":0,"#":[{"@":3,"#":"inexact->exact"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact-integer?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(exact-integer? n)\n\nFunction returns #t if z is both exact and an integer; otherwise\nreturns #f."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"integer?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact?"},{"@":0,"#":[{"@":3,"#":"n"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-map"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(vector-map fn vector1 vector2 ...)\n\nFunction return new vector from applying function fn to each element\nof the vectors, similar to map for lists."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"every"},{"@":0,"#":[{"@":3,"#":"vector?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":4,"#":"vector-map: function require at least 1 vector"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"len"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"min"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":3,"#":"vector-length"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"do"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":1,"#":"0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"+"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":3,"#":"len"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-ref"},{"@":0,"#":[{"@":3,"#":"v"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"value"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":3,"#":"args"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"push"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-map"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(string-map fn string1 stringr2 ...)\n\nFunction return new string from applying function fn to each element\nof the strings, similar to map for lists."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"="},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"length"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"every"},{"@":0,"#":[{"@":3,"#":"string?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":4,"#":"string-map: function require at least 1 string"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector->string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"vector-map"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":3,"#":"string->vector"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"dynamic-wind"},{"@":0,"#":[{"@":3,"#":"before"},{"@":0,"#":[{"@":3,"#":"thunk"},{"@":0,"#":[{"@":3,"#":"after"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(dynamic-wind before thunk after)\n\nFunction accept 3 procedures/lambdas and execute thunk with before and always\nafter even if error accur"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"before"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"thunk"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"catch"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"error"},{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"after"},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"with-exception-handler"},{"@":0,"#":[{"@":3,"#":"handler"},{"@":0,"#":[{"@":3,"#":"thunk"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(with-exception-handler handler thunk)\n\nProcedure call and return value of thunk function, if exception happen\nit call handler procedure."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"thunk"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"catch"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"handler"},{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"raise"},{"@":0,"#":[{"@":3,"#":"throw"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"define-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-values"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"dummy"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"call-with-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":3,"#":"args"},{"@":0,"#":[false,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"var"},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"var"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"var0"},{"@":0,"#":[{"@":3,"#":"var1"},{"@":0,"#":[{"@":3,"#":"..."},{"@":0,"#":[{"@":3,"#":"warn"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"call-with-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"var1"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"v"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-cdr!"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cddr"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"..."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"warn"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"v"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"var0"},{"@":0,"#":[{"@":3,"#":"var1"},{"@":0,"#":[{"@":3,"#":"..."},{"@":3,"#":"warn"}]}]}]},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"call-with-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"var1"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"v"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-cdr!"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cddr"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"..."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"warn"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"v"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"var0"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-values"},{"@":0,"#":[{"@":3,"#":"var"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"var"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"call-with-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"list"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(define-values (a b ...) expr)\n\nFunction evaluate expression expr and if it evaluates to result of values\nthen it will defined each value as variable like with define."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"include"},{"@":3,"#":"files"}]},{"@":0,"#":[{"@":4,"#":"(include file ...)\n\nMacro that load at least one file content and insert them into one,\nbody expression."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"files"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"include: at least one file path required"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"interaction-environment"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":3,"#":"global"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fs"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"require"},{"@":0,"#":[{"@":4,"#":"fs"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"readFile"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"file"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":3,"#":"reject"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fs.readFile"},{"@":0,"#":[{"@":3,"#":"file"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"err"},{"@":0,"#":[{"@":3,"#":"data"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"err"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"data"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toString"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"reject"},{"@":0,"#":[{"@":3,"#":"err"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"for-each"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"file"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"expr"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.parse"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"readFile"},{"@":0,"#":[{"@":3,"#":"file"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"env"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"concat"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"files"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"for-each"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"file"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"text"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fetch"},{"@":0,"#":[{"@":3,"#":"file"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"text"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"expr"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.parse"},{"@":0,"#":[{"@":3,"#":"text"},{"@":0,"#":[{"@":3,"#":"env"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"concat"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"files"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":3,"#":"result.length"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"syntax-error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":4,"#":"step"},{"@":0,"#":[{"@":3,"#":"arg"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"join"},{"@":0,"#":[{"@":4,"#":" "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector->list"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"repr"},{"@":0,"#":[{"@":3,"#":"arg"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":3,"#":"message"},{"@":0,"#":[{"@":3,"#":"arg"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"raise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"format"},{"@":0,"#":[{"@":4,"#":"~a ~a"},{"@":0,"#":[{"@":3,"#":"message"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":4,"#":"step"},{"@":0,"#":[{"@":3,"#":"arg"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":3,"#":"r7rs"},{"@":0,"#":[{"@":3,"#":"srfi-0"},{"@":0,"#":[{"@":3,"#":"srfi-2"},{"@":0,"#":[{"@":3,"#":"srfi-4"},{"@":0,"#":[{"@":3,"#":"srfi-6"},{"@":0,"#":[{"@":3,"#":"srfi-10"},{"@":0,"#":[{"@":3,"#":"srfi-22"},{"@":0,"#":[{"@":3,"#":"srfi-23"},{"@":0,"#":[{"@":3,"#":"srfi-46"},{"@":0,"#":[{"@":3,"#":"srfi-176"},{"@":0,"#":[{"@":3,"#":"lips"},{"@":0,"#":[{"@":3,"#":"complex"},{"@":0,"#":[{"@":3,"#":"full-unicode"},{"@":0,"#":[{"@":3,"#":"ieee-float"},{"@":0,"#":[{"@":3,"#":"ratios"},{"@":0,"#":[{"@":3,"#":"exact-complex"},{"@":0,"#":[{"@":3,"#":"full-numeric-tower"},{"@":2,"#":0}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-error"},{"@":0,"#":[{"@":4,"#":"Unfulfilled cond-expand"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":3,"#":"req1"},{"@":0,"#":[{"@":3,"#":"req2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"req1"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":3,"#":"req2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":3,"#":"req1"},{"@":0,"#":[{"@":3,"#":"req2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"req1"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":3,"#":"req2"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":3,"#":"req"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"req"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"r7rs"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"srfi-0"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"srfi-2"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"srfi-4"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"srfi-6"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"srfi-10"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"srfi-22"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"srfi-23"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"srfi-46"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"srfi-176"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"complex"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"full-unicode"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"ieee-float"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"ratios"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"exact-complex"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond-expand"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"full-numeric-tower"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"more-clauses"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"features"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"r7rs"},{"@":0,"#":[{"@":3,"#":"srfi-0"},{"@":0,"#":[{"@":3,"#":"srfi-2"},{"@":0,"#":[{"@":3,"#":"srfi-4"},{"@":0,"#":[{"@":3,"#":"srfi-6"},{"@":0,"#":[{"@":3,"#":"srfi-10"},{"@":0,"#":[{"@":3,"#":"srfi-22"},{"@":0,"#":[{"@":3,"#":"srfi-23"},{"@":0,"#":[{"@":3,"#":"srfi-46"},{"@":0,"#":[{"@":3,"#":"srfi-176"},{"@":0,"#":[{"@":3,"#":"lips"},{"@":0,"#":[{"@":3,"#":"complex"},{"@":0,"#":[{"@":3,"#":"full-unicode"},{"@":0,"#":[{"@":3,"#":"ieee-float"},{"@":0,"#":[{"@":3,"#":"ratios"},{"@":0,"#":[{"@":3,"#":"exact-complex"},{"@":0,"#":[{"@":3,"#":"full-numeric-tower"},{"@":2,"#":0}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"*zero-number-chars*"},{"@":0,"#":[[{"@":1,"#":"48"},{"@":1,"#":"1632"},{"@":1,"#":"1776"},{"@":1,"#":"1984"},{"@":1,"#":"2406"},{"@":1,"#":"2534"},{"@":1,"#":"2662"},{"@":1,"#":"2790"},{"@":1,"#":"2918"},{"@":1,"#":"3046"},{"@":1,"#":"3174"},{"@":1,"#":"3302"},{"@":1,"#":"3430"},{"@":1,"#":"3558"},{"@":1,"#":"3664"},{"@":1,"#":"3792"},{"@":1,"#":"3872"},{"@":1,"#":"4160"},{"@":1,"#":"4240"},{"@":1,"#":"6112"},{"@":1,"#":"6160"},{"@":1,"#":"6470"},{"@":1,"#":"6608"},{"@":1,"#":"6784"},{"@":1,"#":"6800"},{"@":1,"#":"6992"},{"@":1,"#":"7088"},{"@":1,"#":"7232"},{"@":1,"#":"7248"},{"@":1,"#":"42528"},{"@":1,"#":"43216"},{"@":1,"#":"43264"},{"@":1,"#":"43472"},{"@":1,"#":"43504"},{"@":1,"#":"43600"},{"@":1,"#":"44016"},{"@":1,"#":"65296"},{"@":1,"#":"66720"},{"@":1,"#":"68912"},{"@":1,"#":"69734"},{"@":1,"#":"69872"},{"@":1,"#":"69942"},{"@":1,"#":"70096"},{"@":1,"#":"70384"},{"@":1,"#":"70736"},{"@":1,"#":"70864"},{"@":1,"#":"71248"},{"@":1,"#":"71360"},{"@":1,"#":"71472"},{"@":1,"#":"71904"},{"@":1,"#":"72016"},{"@":1,"#":"72784"},{"@":1,"#":"73040"},{"@":1,"#":"73120"},{"@":1,"#":"92768"},{"@":1,"#":"93008"},{"@":1,"#":"120782"},{"@":1,"#":"120792"},{"@":1,"#":"120802"},{"@":1,"#":"120812"},{"@":1,"#":"120822"},{"@":1,"#":"123200"},{"@":1,"#":"123632"},{"@":1,"#":"125264"},{"@":1,"#":"130032"}],{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"digit-value"},{"@":0,"#":[{"@":3,"#":"chr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(digit-value chr)\n\nReturn digit number if character is numeral (as per char-numeric?)\nor #f otherwise."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"digit-value"},{"@":0,"#":[{"@":3,"#":"chr"},{"@":0,"#":[{"@":4,"#":"character"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char-numeric?"},{"@":0,"#":[{"@":3,"#":"chr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"ord"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"char->integer"},{"@":0,"#":[{"@":3,"#":"chr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"do"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-length"},{"@":0,"#":[{"@":3,"#":"*zero-number-chars*"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"found"},{"@":0,"#":[false,{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[false,{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero?"},{"@":0,"#":[{"@":3,"#":"i"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"found"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"result"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"zero"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector-ref"},{"@":0,"#":[{"@":3,"#":"*zero-number-chars*"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"diff"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"ord"},{"@":0,"#":[{"@":3,"#":"zero"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">="},{"@":0,"#":[{"@":3,"#":"diff"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<="},{"@":0,"#":[{"@":3,"#":"diff"},{"@":0,"#":[{"@":1,"#":"9"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"result"},{"@":0,"#":[{"@":3,"#":"diff"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"found"},{"@":0,"#":[true,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[false,{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"make-bytevector"},{"@":0,"#":[{"@":3,"#":"make-u8vector"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"bytevector"},{"@":0,"#":[{"@":3,"#":"u8vector"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"bytevector?"},{"@":0,"#":[{"@":3,"#":"u8vector?"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"bytevector-length"},{"@":0,"#":[{"@":3,"#":"u8vector-length"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"bytevector-u8-ref"},{"@":0,"#":[{"@":3,"#":"u8vector-ref"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"bytevector-u8-set!"},{"@":0,"#":[{"@":3,"#":"u8vector-set!"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bytevector-append"},{"@":0,"#":[{"@":3,"#":"v1"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(bytevector-append v1 ...)\n\nCreate new bytevector u8vector that is created from joining each argument."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"bytevector-append"},{"@":0,"#":[{"@":3,"#":"v1"},{"@":0,"#":[{"@":4,"#":"uint8array"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"arg"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"bytevector-append"},{"@":0,"#":[{"@":3,"#":"arg"},{"@":0,"#":[{"@":4,"#":"uint8array"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"v1"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Uint8Array"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"apply"},{"@":0,"#":[{"@":3,"#":"vector-append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Array.from"},{"@":0,"#":[{"@":3,"#":"v1"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":3,"#":"Array.from"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bytevector-copy"},{"@":0,"#":[{"@":3,"#":"v"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(bytevector-copy v)\n(bytevector-copy v start)\n(bytevector-copy v start end)\n\nFunction and return new vector from start to end. If no start and end is provided\nwhole vector is copied and returned."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Uint8Array"},{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"v.slice"},{"@":0,"#":[{"@":3,"#":"start"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"v.slice"},{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bytevector-copy!"},{"@":0,"#":[{"@":3,"#":"to"},{"@":0,"#":[{"@":3,"#":"at"},{"@":0,"#":[{"@":3,"#":"from"},{"@":3,"#":"rest"}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(bytevector-copy! to at from)\n(bytevector-copy! to at from start)\n(bytevector-copy! to at from start end)\n\nCopies the bytes of bytevector from between start and end to bytevector to,\nstarting at at."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"bytevector-copy!"},{"@":0,"#":[{"@":3,"#":"to"},{"@":0,"#":[{"@":4,"#":"uint8array"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"bytevector-copy!"},{"@":0,"#":[{"@":3,"#":"from"},{"@":0,"#":[{"@":4,"#":"uint8array"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":3,"#":"at"},{"@":0,"#":[{"@":1,"#":"0"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"bytevector-copy! `at` need to be positive"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":">"},{"@":0,"#":[{"@":3,"#":"at"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bytevector-length"},{"@":0,"#":[{"@":3,"#":"to"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"bytevector-copy! `at` need to be less then byte vector length"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"end"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bytevector-length"},{"@":0,"#":[{"@":3,"#":"from"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"start"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":3,"#":"at"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"j"},{"@":0,"#":[{"@":3,"#":"start"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"while"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bytevector-length"},{"@":0,"#":[{"@":3,"#":"to"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bytevector-length"},{"@":0,"#":[{"@":3,"#":"from"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"<"},{"@":0,"#":[{"@":3,"#":"j"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"+"},{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":3,"#":"end"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bytevector-u8-set!"},{"@":0,"#":[{"@":3,"#":"to"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bytevector-u8-ref"},{"@":0,"#":[{"@":3,"#":"from"},{"@":0,"#":[{"@":3,"#":"j"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"+"},{"@":0,"#":[{"@":3,"#":"i"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"j"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"+"},{"@":0,"#":[{"@":3,"#":"j"},{"@":0,"#":[{"@":1,"#":"1"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"string->utf8"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"encoder"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"TextEncoder"},{"@":0,"#":[{"@":4,"#":"utf-8"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string"},{"@":3,"#":"rest"}]},{"@":0,"#":[{"@":4,"#":"(string->utf8 string)\n(string->utf8 string start)\n(string->utf8 string start end)\n\nFunction converts string into u8 bytevector using utf8 encoding.\nThe start and end is the range of the input string for the conversion."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"string->utf8"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"encoder.encode"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"len"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Array.from"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"length"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"end"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"len"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"encoder.encode"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"substring"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":3,"#":"end"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"utf8->string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"decoder"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"TextDecoder"},{"@":0,"#":[{"@":4,"#":"utf-8"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"v"},{"@":3,"#":"rest"}]},{"@":0,"#":[{"@":4,"#":"(utf8->string u8vector)\n(utf8->string u8vector start)\n(utf8->string u8vector start end)\n\nFunction converts u8 bytevector into string using utf8 encoding.\nThe start and end is the range of the input byte vector for the conversion."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"utf8->string"},{"@":0,"#":[{"@":3,"#":"v"},{"@":0,"#":[{"@":4,"#":"uint8array"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"decoder.decode"},{"@":0,"#":[{"@":3,"#":"v"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"len"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Array.from"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"length"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"end"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"len"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"decoder.decode"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"v.slice"},{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":3,"#":"end"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open-input-string"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(open-input-string string)\n\nFunction create new string port as input that can be used to\nread S-exressions from this port using `read` function."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"open-input-string"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"lips.InputStringPort"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"interaction-environment"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open-output-string"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(open-output-string)\n\nFunction create new output port that can used to write string into\nand after finish get the whole string using `get-output-string`."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"lips.OutputStringPort"},{"@":0,"#":[{"@":3,"#":"repr"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open-output-bytevector"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(open-output-bytevector)\n\nCreate new output port that can be used to write binary data.\nAfter done with the data the output buffer can be obtained by calling\n`get-output-bytevector` function."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"lips.OutputByteVectorPort"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get-output-bytevector"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(get-output-string port)\n\nFunction get full string from string port. If nothing was wrote\nto given port it will return empty string."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"instanceof"},{"@":0,"#":[{"@":3,"#":"lips.OutputByteVectorPort"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"get-output-bytevector: expecting output-bytevector-port get "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.valueOf"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get-output-string"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(get-output-string port)\n\nFunction get full string from string port. If nothing was wrote\nto given port it will return empty string."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"instanceof"},{"@":0,"#":[{"@":3,"#":"lips.OutputStringPort"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"get-output-string: expecting output-string-port get "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.valueOf"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open-input-bytevector"},{"@":0,"#":[{"@":3,"#":"bytevector"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(open-input-bytevector bytevector)\n\nCreate new input binary port with given bytevector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"open-input-bytevector"},{"@":0,"#":[{"@":3,"#":"bytevector"},{"@":0,"#":[{"@":4,"#":"uint8array"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"lips.InputByteVectorPort"},{"@":0,"#":[{"@":3,"#":"bytevector"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open-binary-input-file"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(open-binary-input-file filename)\n\nFunction return new Input Binary Port with given filename. In Browser\nuser need to provide global fs variable that is instance of FS interface."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"u8vector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"buffer->u8vector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%read-binary-file"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"lips.InputBinaryFilePort"},{"@":0,"#":[{"@":3,"#":"u8vector"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"binary-port?"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(binary-port? port)\n\nFunction test if argument is binary port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port?"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"port.__type__"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Symbol.for"},{"@":0,"#":[{"@":4,"#":"binary"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"textual-port?"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(textual-port? port)\n\nFunction test if argument is string port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port?"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"port.__type__"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Symbol.for"},{"@":0,"#":[{"@":4,"#":"text"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%define-binary-input-lambda"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"docstring"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name-str"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":3,"#":"rest"}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"docstring"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-input-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name-str"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"input-port"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"binary-port?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name-str"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":" invalid port. Binary port required."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"%define-binary-input-lambda"},{"@":0,"#":[{"@":3,"#":"peek-u8"},{"@":0,"#":[{"@":4,"#":"(peek-u8)\n(peek-u8 port)\n\nReturn next byte from input-binary port. If there are no more bytes\nit return eof object."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.peek_u8"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%define-binary-input-lambda"},{"@":0,"#":[{"@":3,"#":"read-u8"},{"@":0,"#":[{"@":4,"#":"(read-u8)\n(read-u8 port)\n\nRead next byte from input-binary port. If there are no more bytes\nit return eof object."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.read_u8"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%define-binary-input-lambda"},{"@":0,"#":[{"@":3,"#":"u8-ready?"},{"@":0,"#":[{"@":4,"#":"(u8-ready?)\n(u8-ready? port)\n\nReturns #t if a byte is ready on the binary input port and returns #f otherwise.\nIf u8-ready? returns #t then the next read-u8 operation on the given port is\nguaranteed not to hang. If the port is at end of file then u8-ready? returns #t."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.u8_ready"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"read-bytevector"},{"@":0,"#":[{"@":3,"#":"k"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(read-bytevector k)\n(read-bytevector k port)\n\nRead next n bytes from input-binary port. If there are no more bytes\nit returns eof object. If there are less then n bytes in port it\nreturn the only bytes that are available"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-input-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"read-bytevector"},{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":4,"#":"input-port"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"binary-port?"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"read-bytevector: invalid port"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.read_u8_vector"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%define-binary-output-lambda"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"type"},{"@":0,"#":[{"@":3,"#":"docstring"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"data"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"data"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name-str"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"data"},{"@":2,"#":0}]}]},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"docstring"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-output-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name-str"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"output-port"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name-str"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"data"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"type"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"binary-port?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name-str"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":" invalid port. Binary port required."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"data"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"%define-binary-output-lambda"},{"@":0,"#":[{"@":3,"#":"write-u8"},{"@":0,"#":[{"@":4,"#":"number"},{"@":0,"#":[{"@":4,"#":"(write-u8 byte)\n(write-u8 byte port)\n\nWrite byte into binary output port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"data"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.write_u8"},{"@":0,"#":[{"@":3,"#":"data"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"%define-binary-output-lambda"},{"@":0,"#":[{"@":3,"#":"write-bytevector"},{"@":0,"#":[{"@":4,"#":"uint8array"},{"@":0,"#":[{"@":4,"#":"(write-bytevector bytevector)\n(write-bytevector bytevector port)\n\nWrite byte vector into binary output port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"data"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.write_u8_vector"},{"@":0,"#":[{"@":3,"#":"data"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"open-binary-output-file"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open"},{"@":2,"#":0}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(open-binary-output-file filename)\n\nFunction open file and return port that can be used for writing. If file\nexists it will throw an Error."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"open-output-file"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"procedure?"},{"@":0,"#":[{"@":3,"#":"open"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"open"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%fs-promisify-proc"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"open"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"open-binary-output-file"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"file-exists?"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"open-binary-output-file: file exists"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.OutputBinaryFilePort"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"open"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":0,"#":[{"@":4,"#":"w"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"read-bytevector!"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(read-bytevector! bytevector)\n(read-bytevector! bytevector port)\n(read-bytevector! bytevector port start)\n(read-bytevector! bytevector port start end)\n\nFunction read next bytes from binary input port and write them into byte vector.\nif not start is specified it start to write into 0 position of the vector until\nthe end or end the vector if no end is specified."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"read-bytevector!"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":0,"#":[{"@":4,"#":"uint8array"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-input-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"end"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cddr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"bytevector-length"},{"@":0,"#":[{"@":3,"#":"vector"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caddr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"read-bytevector!"},{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":4,"#":"input-port"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"binary-port?"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"read-bytevector!: invalid port. Binary port required."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"read-bytevector!"},{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"read-bytevector!"},{"@":0,"#":[{"@":3,"#":"end"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"out"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"read-bytevector"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-"},{"@":0,"#":[{"@":3,"#":"end"},{"@":0,"#":[{"@":3,"#":"start"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"vector.set"},{"@":0,"#":[{"@":3,"#":"out"},{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":3,"#":"end"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"delete-file"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unlink"},{"@":0,"#":[false,{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(delete-file filename)\n\nFunction delete the file of given name."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"delete-file"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"procedure?"},{"@":0,"#":[{"@":3,"#":"unlink"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"unlink"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%fs-promisify-proc"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"unlink"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"delete-file"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unlink"},{"@":0,"#":[{"@":3,"#":"filename"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"call-with-port"},{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":3,"#":"proc"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(call-with-port port proc)\n\nProc is executed with given port and after it returns, the port is closed."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"try"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"proc"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"finally"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"procedure?"},{"@":0,"#":[{"@":3,"#":"port.close"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.close"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"close-port"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(close-port port)\n\nClose input or output port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"close-port"},{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[[{"@":4,"#":"input-port"},{"@":4,"#":"output-port"}],{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.close"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eof-object"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(eof-object)\n\nProcedure returns eof object that indicate end of the port"},{"@":0,"#":[{"@":3,"#":"lips.eof"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"output-port-open?"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(output-port-open? port)\n\nFunction check if argument is output-port and if you can write to it."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"output-port?"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.is_open"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"input-port-open?"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(input-port-open? port)\n\nFunction check if argument is input-port and if you can read from it."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"input-port?"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.is_open"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"flush-output-port"},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(flush-output-port port)\n\nFunctio do nothing, flush is not needed in LIPS in both NodeJS and Browser.\nThe function is added, so it don't throw exception when using R7RS code."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[false,{"@":0,"#":[false,{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"write-string"},{"@":0,"#":[{"@":3,"#":"string"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(write-string string)\n(write-string string port)\n(write-string string port start)\n(write-string string port start end)\n\nWrites the characters of string from start to end in left-toright order\nto the textual output port."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"write-string"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-output-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":1,"#":"0"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"end"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cddr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-length"},{"@":0,"#":[{"@":3,"#":"string"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caddr"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"write-string"},{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":4,"#":"output-port"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"write-string"},{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"write-string"},{"@":0,"#":[{"@":3,"#":"end"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"display"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"substring"},{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":3,"#":"start"},{"@":0,"#":[{"@":3,"#":"end"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"write-char"},{"@":0,"#":[{"@":3,"#":"char"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(write-char string)\n(write-char string port)\n\nWrites the character char (not an external representation of the character)\nto the given textual output port and returns an unspecified value."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"write-char"},{"@":0,"#":[{"@":3,"#":"char"},{"@":0,"#":[{"@":4,"#":"character"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-output-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"write-char"},{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":4,"#":"output-port"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"display"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string"},{"@":0,"#":[{"@":3,"#":"char"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"port"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"read-string"},{"@":0,"#":[{"@":3,"#":"k"},{"@":3,"#":"rest"}]}]},{"@":0,"#":[{"@":4,"#":"(read-string k)\n(read-string k port)\n\nReads the next k characters, or as many as are available\nbefore the end of file, from the textual input port into a\nnewly allocated string in left-to-right order and returns the\nstring. If no characters are available before the end of file,\nan end-of-file object is returned."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"read-string"},{"@":0,"#":[{"@":3,"#":"k"},{"@":0,"#":[{"@":4,"#":"number"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-input-port"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"rest"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"read-string"},{"@":0,"#":[{"@":3,"#":"port"},{"@":0,"#":[{"@":4,"#":"input-port"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"port.read_string"},{"@":0,"#":[{"@":3,"#":"k"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"list-copy"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(list-copy obj)\n\nCopy the object passed as argument but only if it's list. The car elements\nof the list are not copied, they are passed as is."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"list-copy"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[[{"@":4,"#":"pair"},{"@":4,"#":"nil"}],{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"obj"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"obj.clone"},{"@":0,"#":[false,{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-record-type"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"constructor"},{"@":0,"#":[{"@":3,"#":"pred"},{"@":3,"#":"fields"}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(define-record-type name constructor pred . fields)\n\nMacro for defining records. Example of usage:\n\n(define-record-type <pare>\n (kons x y)\n pare?\n (x kar set-kar!)\n (y kdr set-kdr!))\n\n(define p (kons 1 2))\n(print (kar p))\n;; 1\n(set-kdr! p 3)\n(print (kdr p))\n;; 3"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"obj-name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"obj-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"value-name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"value-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"class"},{"@":0,"#":[{"@":3,"#":"Object"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"constructor"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"constructor"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"field"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"field"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"prop"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"self."},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string->symbol"},{"@":0,"#":[{"@":3,"#":"prop"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"field"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"constructor"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toType"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"self"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"record"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toString"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"self"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"#<"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":">"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"constructor"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"constructor"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"pred"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"instanceof"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"obj"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"field"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"prop-name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"field"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"field"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cddr"},{"@":0,"#":[{"@":3,"#":"field"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caddr"},{"@":0,"#":[{"@":3,"#":"field"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"get"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"get"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj-name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"record"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"pred"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"object is not record of type "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj-name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"prop-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"set"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"set"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj-name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"value-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"get"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj-name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"record"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"pred"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"object is not record of type "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"obj-name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"prop-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"value-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"fields"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"nan?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(nan? x)\n\nFunction check if argument x is Not a Number (NaN) value."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x.isNaN"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":4,"#":"complex"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"nan?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"real-part"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"nan?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"imag-part"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"infinite?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(infinite? x)\n\nFunction check if value is infinite."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"Number.NEGATIVE_INFINITY"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"Number.POSITIVE_INFINITY"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"number?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":3,"#":"NaN"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%number-type"},{"@":0,"#":[{"@":4,"#":"complex"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"or"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"infinite?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"real-part"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"infinite?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"imag-part"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"finite?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":"(finite? x)\n\nFunction check if value is finite."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"infinite?"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-class"},{"@":0,"#":[{"@":3,"#":"%Library"},{"@":0,"#":[{"@":3,"#":"Object"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"constructor"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"self.__namespace__"},{"@":0,"#":[{},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"self.__name__"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":3,"#":"env"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"environment?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"self.__namespace__"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"namespace "},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":4,"#":" already exists in library "},{"@":0,"#":[{"@":3,"#":"self.__name__"},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-obj!"},{"@":0,"#":[{"@":3,"#":"self.__namespace__"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":3,"#":"env"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":3,"#":"self.__namespace__"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"environment?"},{"@":0,"#":[{"@":3,"#":"env"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"namespace "},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":4,"#":" sdon't exists"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"env"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"self.env"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"self.env"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toString"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"self"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"#<Library("},{"@":0,"#":[{"@":3,"#":"self.__name__"},{"@":0,"#":[{"@":4,"#":")>"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%import-name"},{"@":0,"#":[{"@":3,"#":"library"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":3,"#":"names"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"library"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"names"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"import"},{"@":3,"#":"specs"}]},{"@":0,"#":[{"@":4,"#":"(import (library namespace))\n(import (only (library namespace) name1 name2))\n\nMacro for importing names from library."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"parent"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-environment"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"import: invalid syntax"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol=?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"only"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lib"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caadr"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caaddr"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%import-name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"lib"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caddr"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"throw"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Error"},{"@":0,"#":[{"@":4,"#":"import: invalid syntax"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"else"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lib-name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lib"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"parent.get"},{"@":0,"#":[{"@":3,"#":"lib-name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%import-name"},{"@":0,"#":[{"@":3,"#":"lib-name"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"env"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lib.env"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"specs"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new-library"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(new-library name)\n\nCreate new empty library object with empty namespace."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"parent"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-environment"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"__parent__"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lib"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lib"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"parent"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"get"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"throwError":false},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"lib"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"%Library"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"lib"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"x"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"lips.Environment"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"library-"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toLowerCase"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"-"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"toLowerCase"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lib.append"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":3,"#":"x"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"lib"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%export"},{"@":0,"#":[{"@":3,"#":"module"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":3,"#":"specs"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"map"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol?"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"module"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol=?"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"rename"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"module"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"caddr"},{"@":0,"#":[{"@":3,"#":"expr"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"specs"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-library"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":3,"#":"body"}]}]},{"@":0,"#":[{"@":4,"#":"(define-library (library (name namespace) . body)\n\nMacro for defining modules inside you can use define to create functions.\nAnd use export name to add that name to defined environment."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"parent"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-environment"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"__parent__"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"module-var"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"namespace-var"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"gensym"},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"name"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"car"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"namespace"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cadr"},{"@":0,"#":[{"@":3,"#":"spec"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quasiquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"module-var"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new-library"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"namespace-var"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"namespace"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-macro"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"export"},{"@":3,"#":"body"}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"%export"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"module-var"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"namespace-var"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote-splicing"},{"@":0,"#":[{"@":3,"#":"body"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"parent"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"name"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"unquote"},{"@":0,"#":[{"@":3,"#":"module-var"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"current-directory"},{"@":0,"#":[{"@":3,"#":"set-current-directory!"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":3,"#":"window"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cwd"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":3,"#":"location.origin"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"-->"},{"@":0,"#":[{"@":3,"#":"location.pathname"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"replace"},{"@":0,"#":[{},{"@":0,"#":[{"@":4,"#":"/"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":4,"#":"(current-directory)\n\nReturn corrent working directory, default it's corrent URL."},{"@":0,"#":[{"@":3,"#":"cwd"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(set-current-directory! string)\n\nFunction change current working directory to provided string."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"set-current-directory!"},{"@":0,"#":[{"@":3,"#":"value"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"cwd"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"process"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"require"},{"@":0,"#":[{"@":4,"#":"process"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"values"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":4,"#":"(current-directory)\n\nReturn corrent working directory, default it's path from where\nthe script was executed."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"process.cwd"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"/"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]},{"@":0,"#":[{"@":4,"#":"(set-current-directory! string)\n\nFunction change current working directory to provided string."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"typecheck"},{"@":0,"#":[{"@":4,"#":"set-current-directory!"},{"@":0,"#":[{"@":3,"#":"value"},{"@":0,"#":[{"@":4,"#":"string"},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"process.chdir"},{"@":0,"#":[{"@":3,"#":"value"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"and-let*"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":0,"#":[true,{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"expression"},{"@":2,"#":0}]},{"@":2,"#":0}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"expression"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol"},{"@":0,"#":[{"@":3,"#":"expression"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol"},{"@":0,"#":[{"@":3,"#":"expression"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"begin"},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol"},{"@":0,"#":[{"@":3,"#":"expression"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"expr"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol"},{"@":0,"#":[{"@":3,"#":"expression"},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and-let*"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"expr"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"expression"},{"@":2,"#":0}]},{"@":0,"#":[{"@":3,"#":"expr"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":3,"#":"expression"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and-let*"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"expr"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"body"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]}]}]}]},{"@":0,"#":[{"@":4,"#":"(and-let* ((name expression) expression ...) body)\n\nMacro that combine let and and. First expression need to be in form of let.\nSymbol expression the rest can be boolean expression or name expreession.\nThis is implementation of SRFI-2."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"set-special!"},{"@":0,"#":[{"@":4,"#":"#,"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"sharp-comma"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":3,"#":"**reader-ctor-list**"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"define"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"define-reader-ctor"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(define-reader-ctor symbol fn)\n\nDefine the value for #, syntax. SRFI-10\nExample:\n\n(define-reader-ctor '+ +)\n(print #,(+ 1 2))"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"node"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"assoc"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":0,"#":[{"@":3,"#":"**reader-ctor-list**"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"node"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set-cdr!"},{"@":0,"#":[{"@":3,"#":"node"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"set!"},{"@":0,"#":[{"@":3,"#":"**reader-ctor-list**"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cons"},{"@":0,"#":[{"@":3,"#":"symbol"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"**reader-ctor-list**"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"define-syntax"},{"@":0,"#":[{"@":3,"#":"sharp-comma"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-rules"},{"@":0,"#":[{"@":2,"#":0},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"_"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":3,"#":"arg"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"node"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"assoc"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"**reader-ctor-list**"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"pair?"},{"@":0,"#":[{"@":3,"#":"node"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cdr"},{"@":0,"#":[{"@":3,"#":"node"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"arg"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"syntax-error"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"Invalid symbol "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"symbol->string"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"fn"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":4,"#":" in expression "},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"repr"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fn"},{"@":0,"#":[{"@":3,"#":"arg"},{"@":0,"#":[{"@":3,"#":"..."},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":4,"#":"(sharp-comma expr)\n#,(ctor ...)\n\nThis is syntax extension for SRFI-10. To define the function to be used with\nThis syntax you need to call `define-reader-ctor` function and define\nsymbol function mapping."},{"@":2,"#":0}]}]}]}]},{"@":0,"#":[{"@":3,"#":"let*"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"fs"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":3,"#":"global"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"require"},{"@":0,"#":[{"@":4,"#":"fs"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"and"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"self.BrowserFS"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"indexed-db?"},{"@":2,"#":0}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"new"},{"@":0,"#":[{"@":3,"#":"Promise"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":3,"#":"reject"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"BrowserFS.configure"},{"@":0,"#":[{"options":{},"fs":{"@":4,"#":"IndexedDB"}},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lambda"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"resolve"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"BrowserFS.BFSRequire"},{"@":0,"#":[{"@":4,"#":"fs"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"reject"},{"@":0,"#":[{"@":3,"#":"e"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"self.BrowserFS"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"console.warn"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"string-append"},{"@":0,"#":[{"@":4,"#":"BrowserFS not initialized "},{"@":0,"#":[{"@":4,"#":"IndexedDB is not available"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":2,"#":0},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"Buffer"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"cond"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"eq?"},{"@":0,"#":[{"@":3,"#":"self"},{"@":0,"#":[{"@":3,"#":"global"},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":3,"#":"self.Buffer"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"self.BrowserFS"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"."},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"BrowserFS.BFSRequire"},{"@":0,"#":[{"@":4,"#":"buffer"},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"Buffer"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"let"},{"@":0,"#":[{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"internal"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"lips.env.get"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"quote"},{"@":0,"#":[{"@":3,"#":"**internal-env**"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":2,"#":0}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"Buffer"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"internal.set"},{"@":0,"#":[{"@":4,"#":"Buffer"},{"@":0,"#":[{"@":3,"#":"Buffer"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"if"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"not"},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"null?"},{"@":0,"#":[{"@":3,"#":"fs"},{"@":2,"#":0}]}]},{"@":2,"#":0}]}]},{"@":0,"#":[{"@":0,"#":[{"@":3,"#":"internal.set"},{"@":0,"#":[{"@":4,"#":"fs"},{"@":0,"#":[{"@":3,"#":"fs"},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]},{"@":2,"#":0}]}]}]}]},{"@":2,"#":0}]}]}]}] \ No newline at end of file diff --git a/docs/Gemfile.lock b/docs/Gemfile.lock index 111d29545..d5c3c77a8 100644 --- a/docs/Gemfile.lock +++ b/docs/Gemfile.lock @@ -26,7 +26,7 @@ GEM liquid (~> 4.0) mercenary (~> 0.4.0) pathutil (~> 0.9) - rouge (~> 3.0) + rogue (~> 3.0) safe_yaml (~> 1.0) terminal-table (~> 1.8) jekyll-feed (0.15.1) @@ -58,7 +58,7 @@ GEM rb-inotify (0.10.1) ffi (~> 1.0) rexml (3.2.5) - rouge (3.26.0) + rogue (3.26.0) safe_yaml (1.0.5) sassc (2.4.0) ffi (~> 1.9) diff --git a/examples/defstruct.scm b/examples/defstruct.scm index 2f2df7cfd..5674dffcd 100644 --- a/examples/defstruct.scm +++ b/examples/defstruct.scm @@ -4,13 +4,13 @@ ;; Copyright (C) 2019 Jakub T. Jankiewicz <https://jcubic.pl> ;; Released under MIT license ;; -;; the macro defstruct generate bunch of helper functions +;; the macro defstruct generates a bunch of helper functions ;; to work with single type of structures like in Common Lisp ;; original macro was created for Guile Scheme -;; at the begging there are functions that were missing in LIPS +;; at the beginning there are functions that were missing in LIPS ;; -;; when you call macro amd if name is `point` and -;; arguments are `x` and `y` it will create those functions: +;; when you call macro and if name is `point` and +;; arguments are `x` and `y` it will create these functions: ;; ;; make-point ;; point-x @@ -32,12 +32,12 @@ ;; (define (defstruct:alist->object arg) - "Function create JavaScript object from AList" + "Function creates JavaScript object from AList" (typecheck "defstruct:every" arg "pair") (--> arg (to_object))) (define (defstruct:every fn list) - "return true if every element return true for a function applied to every element" + "return true if every element returns true for a function applied to every element" (typecheck "defstruct:every" fn "function") (typecheck "defstruct:every" list "pair") (== (length list) (length (filter fn list)))) @@ -62,7 +62,7 @@ (define (defstruct:make-getter name field) - "create filed acess function name." + "create filed access function name." (typecheck "defstruct:make-getter" name "symbol") (typecheck "defstruct:make-getter" field "symbol") (string->symbol (string-append (symbol->string name) "-" @@ -112,18 +112,18 @@ (define (defstruct:unique item lst) - "check if item ocour only once." + "check if item occurs only once." (typecheck "last" lst "pair" 2) (== (length (filter (lambda (i) (eq? item i)) lst)) 1)) (define (defstruct:every-unique lst) - "check if every element ocour only once." + "check if every element occurs only once." (typecheck "last" lst "pair") (defstruct:every (lambda (item) (defstruct:unique item lst)) lst)) (define (struct? struct) - "check if argument is structure (not that structures are alist)." + "check if argument is structure (not that structures are AList)." (and (pair? struct) (defstruct:every pair? struct))) diff --git a/examples/pattern_matching.scm b/examples/pattern_matching.scm index 1d2a021c9..aab2f42de 100644 --- a/examples/pattern_matching.scm +++ b/examples/pattern_matching.scm @@ -1,7 +1,7 @@ ;; Example pattern matching macro ;; ;; This file is part of the LIPS - Scheme implementation in JavaScript -;; Copyriht (C) 2019-2021 Jakub T. Jankiewicz <https://jcubic.pl/me> +;; Copyright (C) 2019-2021 Jakub T. Jankiewicz <https://jcubic.pl/me> ;; Released under MIT license (cond-expand @@ -21,8 +21,8 @@ (define (compare a b) "(compare a b) - Function that compare two values. it compare lists and any element of the list - can be a function that will be called with other value. e.g.: + Function that compares two values. it compares lists and any element of the list + can be a function that will be called with another value. e.g.: (compare (list (list 'a) 'b) (list pair? 'b))" (cond ((and (pair? a) (pair? b)) (and (compare (car a) (car b)) @@ -43,7 +43,7 @@ (define-macro (auto-quote arg) "(auto-quote list) - Macro that create list recursively but take symbols from scope" + Macro that creates list recursively but takes symbols from scope" (if (pair? arg) `(list ,@(map (lambda (item) (if (symbol? item) diff --git a/examples/preact.scm b/examples/preact.scm index 1e87310f8..e3e4912c8 100644 --- a/examples/preact.scm +++ b/examples/preact.scm @@ -5,7 +5,7 @@ (define h (.. preact.h)) -(define (ls.get namspace) +(define (ls.get namespace) (--> localStorage (getItem namespace))) (define (ls.set namespace data) @@ -28,7 +28,7 @@ (define-class Button Component - (constructor (lambda (self))) ;; constructor is required - TODO: alow to skip + (constructor (lambda (self))) ;; constructor is required - TODO: allow to skip (render (lambda (self props state) (with-tags (:button (:onclick (lambda (e) (alert "foo"))) diff --git a/examples/reader-macros.js b/examples/reader-macros.js index aaa32d9df..b2ee91b75 100644 --- a/examples/reader-macros.js +++ b/examples/reader-macros.js @@ -1,17 +1,17 @@ /** - * This is example how you can extend LIPS parser using reader macros + * This is an example of how you can extend LIPS parser using reader macros * * This is part of the LIPS JavaScript interpter - * Copyriht (C) Jakub T. Jankiewicz <https://jcubic.pl> + * Copyright (C) Jakub T. Jankiewicz <https://jcubic.pl> * Released under MIT license */ /* global lips */ (function() { const { env, specials, Symbol, Pair, Macro, evaluate, LNumber } = lips; // new vector type #(1 2 3) will create new array - // you can use any expression inside that will evalute to list that in turn will be - // converter to array by the macro. Parser will convert #(1 2 3) into (vector (1 2 3)) - // so vector need to be LIPS macro + // you can use any expression inside that will evaluate to list that in turn will be + // converted to array by the macro. Parser will convert #(1 2 3) into (vector (1 2 3)) + // so vector needs to be LIPS macro specials['#'] = Symbol('vector'); env.set('vector', new Macro('vector', function(code, { dynamic_scope, error }) { const args = { env: this, error }; @@ -22,9 +22,9 @@ return this.get('list->array')(evaluate(wrap, args)); })); - // new Alist ot object syntax you use is like this: - // {}((foo . 10)) it will also evalute all pairs expressions like: - // {}(((concat "foo" "-" "bar") . (+ 2 1))) it will create obect {"foo-bar": 3} + // new Alist of object syntax you use is like this: + // {}((foo . 10)) it will also evaluate all pairs expressions like: + // {}(((concat "foo" "-" "bar") . (+ 2 1))) it will create object {"foo-bar": 3} specials['{}'] = Symbol('make-object'); env.set('make-object', new Macro('make-object', function(code, { dynamic_scope, error }) { const args = { env: this, error }; diff --git a/examples/streams.scm b/examples/streams.scm index 9a917572a..2c1de7120 100644 --- a/examples/streams.scm +++ b/examples/streams.scm @@ -4,7 +4,7 @@ ;; http://people.cs.aau.dk/~normark/prog3-03/html/notes/eval-order_themes-delay-stream-section.html ;; ;; This file is part of the LIPS - Scheme based Powerful lisp in JavaScript -;; Copyriht (C) 2019-2021 Jakub T. Jankiewicz <https://jcubic.pl/me> +;; Copyright (C) 2019-2021 Jakub T. Jankiewicz <https://jcubic.pl/me> ;; Released under MIT license ;; @@ -101,7 +101,7 @@ ;; -------------------------------------------------------------------------- (define (stream-limit n stream) - "return stream of n element of stream <stream> ( -> stream = {0 .. n})" + "return stream of n elements of stream <stream> ( -> stream = {0 .. n})" (let iter ((n n) (stream stream)) (if (or (empty-stream? stream) (eq? n 0)) the-empty-stream diff --git a/examples/worker.html b/examples/worker.html index d0f68533a..ce9e7ce41 100644 --- a/examples/worker.html +++ b/examples/worker.html @@ -11,8 +11,8 @@ <script src="../src/lips.js"></script> <script> // worker example - included code is little bit slower because LIPS url - // is sent to worker using RPC system, but vanila JavaScript example use url - // directly in function that is converted to Blob so it load faster + // is sent to worker using RPC system, but vanilla JavaScript example uses url + // directly in function that is converted to Blob so it loads faster var worker = new lips.Worker("http://localhost/projects/jcubic/lips"); (async function() { const [ result ] = await worker.rpc('eval', [`(let* ((what "hello") @@ -24,7 +24,7 @@ })(); (function manual_init() { - // below is the code that can be used to initalize LIPS in worker withtou extra code + // below is the code that can be used to initialize LIPS in worker without extra code // almost the same code is in the library function fworker(fn) { // ref: https://stackoverflow.com/a/10372280/387194 diff --git a/lib/R5RS.scm b/lib/R5RS.scm index 75688a0a7..2cfb19f47 100755 --- a/lib/R5RS.scm +++ b/lib/R5RS.scm @@ -35,9 +35,9 @@ (define-macro (define-symbol-macro type spec . rest) "(define-symbol-macro type (name . args) . body) - Macro that creates special symbol macro for evaluator similar to build in , or `. - It's like alias for real macro. Similar to CL reader macros but it receive already - parsed code like normal macros. Type can be SPLICE or LITERAL symbols. + Creates special symbol macros for evaluator similar to built-in , or `. + It's like an alias for a real macro. Similar to CL reader macros but it receives already + parsed code like normal macros. Type can be SPLICE or LITERAL symbols (see set-special!). ALL default symbol macros are literal." (let* ((name (car spec)) (symbol (cadr spec)) @@ -66,18 +66,17 @@ (define-syntax vector (syntax-rules () ((_ arg ...) (list->array (list arg ...)))) - "(vector 1 2 3 (+ 3 1)) - #(1 2 3 4) + "(vector 1 2 3 (+ 3 1)) or #(1 2 3 4) - Macro for defining vectors (JavaScript arrays). Vectors literals are - automatically quoted. So you can use expressions inside them. Only other - literals, like other vectors or object.") + Macro for defining vectors (Javascript Arrays). Vector literals are + automatically quoted, so you can't use expressions inside them, only other + literals, like other vectors or objects.") ;; ----------------------------------------------------------------------------- (set-repr! Array (lambda (arr q) - ;; Array.from is used to convert emtpy to undefined - ;; but we can't use the value because Array.from call + ;; Array.from is used to convert empty to undefined + ;; but we can't use the value because Array.from calls ;; valueOf on its arguments (let ((result (--> (Array.from arr) (map (lambda (x i) @@ -90,8 +89,8 @@ (define (eqv? a b) "(eqv? a b) - Function compare the values. It return true if they are the same, they - need to have same type" + Function that compares the values. It returns true if they are the same, they + need to have the same type." (if (string=? (type a) (type b)) (cond ((number? a) (or (and (exact? a) (exact? b) (= a b)) @@ -127,8 +126,8 @@ (define (equal? a b) "(equal? a b) - Function check if values are equal if both are pair or array - it compares the their elements recursivly." + The function checks if values are equal. If both are a pair or an array + it compares their elements recursively." (cond ((and (pair? a)) (and (pair? b) (equal? (car a) (car b)) @@ -176,7 +175,7 @@ (lambda (proc) "(make-promise fn) - Function create promise from a function." + Function that creates a promise from a function." (typecheck "make-promise" proc "function") (let ((result-ready? #f) (result #f)) @@ -203,28 +202,28 @@ (define-macro (delay expression) "(delay expression) - Macro will create a promise from expression that can be forced with (force)." + Will create a promise from expression that can be forced with (force)." `(make-promise (lambda () ,expression))) ;; ----------------------------------------------------------------------------- (define (force promise) "(force promise) - Function force the promise and evaluate delayed expression." + Function that forces the promise and evaluates the delayed expression." (promise)) ;; ----------------------------------------------------------------------------- (define (promise? obj) "(promise? obj) - Function check if value is a promise created with delay or make-promise." + Checks if the value is a promise created with delay or make-promise." (string=? (type obj) "promise")) ;; ----------------------------------------------------------------------------- (define (positive? x) "(positive? x) - Function check if number is larger then 0" + Checks if the number is larger then 0" (typecheck "positive?" x "number") (> x 0)) @@ -232,7 +231,7 @@ (define (negative? x) "(negative? x) - Function check if number is smaller then 0" + Checks if the number is smaller then 0" (typecheck "negative?" x "number") (< x 0)) @@ -240,7 +239,7 @@ (define (zero? x) "(zero? x) - Function check if number is equal to 0" + Checks if the number is equal to 0" (typecheck "zero?" x "number") (= x 0)) @@ -248,11 +247,11 @@ (define (quotient a b) "(quotient a b) - Return quotient from divition as integer." + Return quotient from division as integer." (typecheck "quotient" a "number") (typecheck "quotient" b "number") (if (zero? b 0) - (throw (new Error "quotient: divition by zero")) + (throw (new Error "quotient: division by zero")) (let ((quotient (/ a b))) (if (integer? quotient) quotient @@ -264,7 +263,7 @@ (define (number->string x . rest) "(number->string x [radix]) - Function convert number to string with optional radix (number base)." + Function that converts number to string with optional radix (number base)." (typecheck "number->string" x "number" 1) (let ((radix (if (null? rest) 10 (car rest)))) (typecheck "number->string" radix "number" 2) @@ -274,14 +273,14 @@ (define (boolean? x) "(boolean? x) - Function return true if value is boolean." + Returns true if value is boolean." (string=? (type x) "boolean")) ;; ----------------------------------------------------------------------------- (define (vector-ref vector i) "(vector-ref vector i) - Return i element from vector." + Return i-th element from vector." (typecheck "number->string" vector "array" 1) (typecheck "number->string" i "number" 2) (. vector i)) @@ -290,7 +289,7 @@ (define (vector-set! vector i obj) "(vector-set! vector i obj) - Set obj as value in vector at position 1." + Set obj as value in vector at position i." (typecheck "vector-set!" vector "array" 1) (typecheck "vector-set!" i "number" 2) (set-obj! vector i obj)) @@ -311,7 +310,7 @@ (define (real? x) "(real? x) - Function check if argument x is real." + Checks if the argument x is real." (and (number? x) (or (eq? x NaN) (eq? x Number.NEGATIVE_INFINITY) (eq? x Number.POSITIVE_INFINITY) @@ -324,7 +323,7 @@ (define (integer? x) "(integer? x) - Function check if argument x is integer." + Checks if the argument x is integer." (and (number? x) (not (eq? x NaN)) (not (eq? x Number.NEGATIVE_INFINITY)) @@ -337,7 +336,7 @@ (define (complex? x) "(complex? x) - Function check if argument x is complex." + Checks if argument x is complex." (and (number? x) (or (eq? x NaN) (eq? x Number.NEGATIVE_INFINITY) (eq? x Number.POSITIVE_INFINITY) @@ -347,7 +346,7 @@ (define (rational? x) "(rational? x) - Function check if value is rational." + Checks if the value is rational." (and (number? x) (not (eq? x NaN)) (not (eq? x Number.NEGATIVE_INFINITY)) @@ -358,7 +357,7 @@ (define (typecheck-args _type name _list) "(typecheck-args args type) - Function check if all items in array are of same type." + Function that makes sure that all items in the array are of same type." (let iter ((n 1) (_list _list)) (if (pair? _list) (begin @@ -372,7 +371,7 @@ (define (max . args) "(max n1 n2 ...) - Return maximum of it's arguments." + Returns the maximum of its arguments." (numbers? "max" args) (apply Math.max args)) @@ -380,7 +379,7 @@ (define (min . args) "(min n1 n2 ...) - Return minimum of it's arguments." + Returns the minimum of its arguments." (numbers? "min" args) (apply Math.min args)) @@ -388,7 +387,7 @@ (define (make-rectangular re im) "(make-rectangular im re) - Create complex number from imaginary and real part." + Creates a complex number from imaginary and real part (a+bi form)." (let ((value `((re . ,re) (im . ,im)))) (lips.LComplex (--> value (to_object true))))) @@ -426,7 +425,7 @@ (define (inexact->exact n) "(inexact->exact number) - Funcion convert real number to exact ratioanl number." + Function that converts real number to exact rational number." (typecheck "inexact->exact" n "number") (if (exact? n) n @@ -436,7 +435,7 @@ (define (log z) "(log z) - Funcntion calculates natural logarithm of z. Where argument can be + Function that calculates natural logarithm of z where the argument can be any number (including complex negative and rational). If the value is 0 it return NaN." (cond ((real? z) @@ -467,27 +466,79 @@ (op (. Math name)) (fn (lambda (n) (lips.LNumber (op n))))) (--> _this_env (set name fn)) - (set-obj! fn '__doc__ (concat "(" name " n)\n\nFunction calculate " name + (set-obj! fn '__doc__ (concat "(" name " n)\n\nFunction that calculates " name " math operation (it call JavaScript Math." name " function)")) (iter (cdr fns))))) ;; ----------------------------------------------------------------------------- -(define (exp x) - (typecheck "exp" x "number") - (if (string=? x.__type__ "complex") - (let* ((re (real-part x)) - (im (imag-part x)) +(define (sin n) + "(sin n) + + Function that calculates sine of a number." + (typecheck "sin" n "number") + (if (string=? n.__type__ "complex") + (let ((re (real-part n)) + (im (imag-part n))) + (lips.LComplex (object :re (* (Math.sin re) + (Math.cosh im)) + :im (* (Math.cos re) + (Math.sinh im))))) + (Math.sin n))) + +;; ----------------------------------------------------------------------------- +(define (cos n) + "(cos n) + + Function that calculates cosine of a number." + (typecheck "cos" n "number") + (if (string=? n.__type__ "complex") + (let ((re (real-part n)) + (im (imag-part n))) + (lips.LComplex (object :re (* (Math.cos re) + (Math.cosh im)) + :im (- (* (Math.sin re) + (Math.sinh im)))))) + (Math.cos n))) + +;; ----------------------------------------------------------------------------- +(define (tan n) + "(tan n) + + Function that calculates tangent of a number." + (typecheck "tan" n "number") + (if (string=? n.__type__ "complex") + (let* ((re (real-part n)) + (im (imag-part n)) + (re2 (* 2 re)) + (im2 (* 2 im))) + (lips.LComplex (object :re (/ (Math.sin re2) + (+ (Math.cos re2) + (Math.cosh im2))) + :im (/ (Math.sinh im2) + (+ (Math.cos re2) + (Math.cosh im2)))))) + (Math.tan n))) + +;; ----------------------------------------------------------------------------- +(define (exp n) + "(exp n) + + Function that calculates e raised to the power of n." + (typecheck "exp" n "number") + (if (string=? n.__type__ "complex") + (let* ((re (real-part n)) + (im (imag-part n)) (factor (Math.exp re))) (make-rectangular (* factor (cos im)) (* factor (sin im)))) - (Math.exp x))) + (Math.exp n))) ;; ----------------------------------------------------------------------------- (define (modulo a b) "(modulo a b) - Function return modulo operation on it's argumennts." + Returns modulo operation on its argumennts." (typecheck "modulo" a "number" 1) (typecheck "modulo" b "number" 2) (- a (* b (floor (/ a b))))) @@ -495,7 +546,7 @@ (define (remainder__ a b) "(modulo a b) - Function return reminder from division operation." + Returns remainder from division operation." (typecheck "remainder" a "number" 1) (typecheck "remainder" b "number" 2) (- a (* b (truncate (/ a b))))) @@ -520,7 +571,7 @@ (define (list-ref l k) "(list-ref list n) - Returns n element of a list." + Returns n-th element of a list." (typecheck "list-ref" l '("pair" "nil")) (if (< k 0) (throw (new Error "list-ref: index out of range")) @@ -538,14 +589,14 @@ (define (not x) "(not x) - Function return true if value is false and false otherwise." + Returns true if value is false and false otherwise." (if x false true)) ;; ----------------------------------------------------------------------------- (define (rationalize number tolerance) "(rationalize number tolerance) - Function returns simplest rational number differing from number by no more + Returns simplest rational number approximation differing from number by no more than the tolerance." (typecheck "rationalize" number "number" 1) (typecheck "rationalize" tolerance "number" 2) @@ -556,7 +607,7 @@ "(%member obj list function) Helper method to get first list where car equal to obj - using provied functions as comparator." + using provided function as comparator." (if (null? list) false (if (op (access list) obj) @@ -567,7 +618,7 @@ (define (memq obj list) "(memq obj list) - Function return first object in the list that match using eq? function." + Returns first object in the list that match using eq? function." (typecheck "memq" list '("nil" "pair")) (%mem/search car eq? obj list )) @@ -575,7 +626,7 @@ (define (memv obj list) "(memv obj list) - Function return first object in the list that match using eqv? function." + Returns first object in the list that match using eqv? function." (typecheck "memv" list '("nil" "pair")) (%mem/search car eqv? obj list)) @@ -583,15 +634,15 @@ (define (member obj list) "(member obj list) - Function return first object in the list that match using equal? function." + Returns first object in the list that match using equal? function." (typecheck "member" list '("nil" "pair")) (%mem/search car equal? obj list)) ;; ----------------------------------------------------------------------------- -(define (%assoc/acessor name) - "(%assoc/acessor name) +(define (%assoc/accessor name) + "(%assoc/accessor name) - Function return carr with typecheck using give name." + Returns carr with typecheck using give name." (lambda (x) (typecheck name x "pair") (caar x))) @@ -603,7 +654,7 @@ Generic function that used in assoc functions with defined comparator function." (typecheck "assoc" alist (vector "nil" "pair")) - (let ((ret (%mem/search (%assoc/acessor "assoc") op obj alist))) + (let ((ret (%mem/search (%assoc/accessor "assoc") op obj alist))) (if ret (car ret) ret))) @@ -612,21 +663,21 @@ (define assoc (%doc "(assoc obj alist) - Function return pair from alist that match given key using equal? check." + Returns pair from alist that match given key using equal? check." (curry %assoc/search equal?))) ;; ----------------------------------------------------------------------------- (define assq (%doc "(assq obj alist) - Function return pair from alist that match given key using eq? check." + Returns pair from a list that matches given key using eq? check." (curry %assoc/search eq?))) ;; ----------------------------------------------------------------------------- (define assv (%doc "(assv obj alist) - Function return pair from alist that match given key using eqv? check." + Returns pair from alist that match given key using eqv? check." (curry %assoc/search eqv?))) ;; ----------------------------------------------------------------------------- @@ -639,7 +690,7 @@ (define (make-string k . rest) "(make-string k [char]) - Function return new string with k elements, if char is provied + Returns new string with k elements. If char is provided it's filled with that character." (let ((char (if (null? rest) #\space (car rest)))) (typecheck "make-string" k "number" 1) @@ -653,8 +704,8 @@ (define (string . args) "(string chr1 chr2 ...) - Function create new string from it's arguments. Each argument - Need to be a character object." + Function that creates a new string from it's arguments. Each argument + needs to be a character object." (for-each (lambda (x) (typecheck "string" x "character")) args) @@ -676,7 +727,7 @@ (define (string-fill! string char) "(string-fill! symbol char) - Function destructively fill the string with given character." + Function that destructively fills the string with given character." (typecheck "string-fill!" string "string" 1) (typecheck "string-fill!" char "character" 2) (--> string (fill char))) @@ -685,14 +736,14 @@ (define (identity n) "(identity n) - No op function. it just returns its argument." + No-op function. It just returns its argument." n) ;; ----------------------------------------------------------------------------- (define (string-copy x) "(string-copy x) - Create new string based of given argument." + Creates a new string based on given argument." (typecheck "string-copy" x "string") (lips.LString x)) @@ -700,7 +751,7 @@ (define (list->string _list) "(list->string _list) - Function return string from list of characters." + Returns a string from a list of characters." (let ((array (list->array (map (lambda (x) (typecheck "list->string" x "character") @@ -712,18 +763,20 @@ (define (string->list string) "(string->list string) - Function return list of characters created from string." + Returns a list of characters created from string." (typecheck "string->list" string "string") - (array->list (--> string (split "") (map (lambda (x) (lips.LCharacter x)))))) + (array->list (--> (Array.from string) + (map (lambda (x) + (lips.LCharacter x)))))) ;; ----------------------------------------------------------------------------- ;; (let ((x "hello")) (string-set! x 0 #\H) x) (define-macro (string-set! object index char) "(string-set! object index char) - Macro that replace character in string in given index, it create new JavaScript - string and replace old value. Object need to be symbol that point to variable - that hold the string." + Replaces character in string in given index. It create new JavaScript + string and replaces the old value. Object needs to be symbol that points to the variable + that holds the string." (typecheck "string-set!" object "symbol") (let ((chars (gensym "chars"))) `(begin @@ -738,7 +791,7 @@ (define (string-length string) "(string-length string) - Function return length of the string." + Returns the length of the string." (typecheck "string-ref" string "string") (. string 'length)) @@ -746,7 +799,7 @@ (define (string-ref string k) "(string-ref string k) - Function return character inside string at given zero-based index." + Returns character inside string at given zero-based index." (typecheck "string-ref" string "string" 1) (typecheck "string-ref" k "number" 2) (lips.LCharacter (--> string (get k)))) @@ -754,8 +807,8 @@ (define (%string-cmp name string1 string2) "(%string-cmp name a b) - Function compare two strings and return 0 if they are equal, - -1 second is smaller and 1 if is larget. The function compare + Function that compares two strings and returns 0 if they are equal, + -1 if it is smaller and 1 if is larger. The function compares the codepoints of the character." (typecheck name string1 "string" 1) (typecheck name string2 "string" 2) @@ -765,43 +818,43 @@ (define (string=? string1 string2) "(string=? string1 string2) - Function check if two string s are equal." + Checks if two strings are equal." (= (%string-cmp "string=?" string1 string2) 0)) ;; ----------------------------------------------------------------------------- (define (string<? string1 string2) "(string<? string1 string2) - Function return true if second string is smaller then the first one." + Returns true if the second string is smaller than the first one." (= (%string-cmp "string<?" string1 string2) -1)) ;; ----------------------------------------------------------------------------- (define (string>? string1 string2) "(string<? string1 string2) - Function return true if second string is larger then the first one." + Returns true if the second string is larger than the first one." (= (%string-cmp "string>?" string1 string2) 1)) ;; ----------------------------------------------------------------------------- (define (string<=? string1 string2) "(string<? string1 string2) - Function return true if second string is not larger then the first one." + Returns true if the second string is not larger than the first one." (< (%string-cmp "string<=?" string1 string2) 1)) ;; ----------------------------------------------------------------------------- (define (string>=? string1 string2) "(string<? string1 string2) - Function return true if second character is not smaller then the first one." + Returns true if second character is not smaller then the first one." (> (%string-cmp "string>=?" string1 string2) -1)) ;; ----------------------------------------------------------------------------- (define (%string-ci-cmp name string1 string2) "(%string-ci-cmp name a b) - Function compare two strings ingoring case and return 0 if they are equal, - -1 second is smaller and 1 if is larget. The function compare + Function that compares two strings ignoring case and returns 0 if they are equal, + -1 if it is smaller and 1 if is larger. The function compares the codepoints of the character." (typecheck name string1 "string" 1) (typecheck name string2 "string" 2) @@ -811,35 +864,35 @@ (define (string-ci=? string1 string2) "(string-ci=? string1 string2) - Function check if two string s are equal." + Checks if two strings are equal, ignoring case." (= (%string-ci-cmp "string-ci=?" string1 string2) 0)) ;; ----------------------------------------------------------------------------- (define (string-ci<? string1 string2) "(string-ci<? string1 string2) - Function return true if second string is smaller then the first one." + Returns true if the second string is smaller than the first one, ignoring case." (= (%string-ci-cmp "string-ci<?" string1 string2) -1)) ;; ----------------------------------------------------------------------------- (define (string-ci>? string1 string2) "(string-ci<? string1 string2) - Function return true if second string is larger then the first one." + Returns true if the second string is larger than the first one, ignoring case." (= (%string-ci-cmp "string-ci>?" string1 string2) 1)) ;; ----------------------------------------------------------------------------- (define (string-ci<=? string1 string2) "(string-ci<? string1 string2) - Function return true if second string is not larger then the first one." + Returns true if the second string is not larger than the first one, ignoring case." (< (%string-ci-cmp "string-ci<=?" string1 string2) 1)) ;; ----------------------------------------------------------------------------- (define (string-ci>=? string1 string2) "(string-ci>=? string1 string2) - Function return true if second character is not smaller then the first one." + Returns true if second character is not smaller than the first one, ignoring case." (> (%string-ci-cmp "string-ci>=?" string1 string2) -1)) ;; ----------------------------------------------------------------------------- @@ -851,14 +904,14 @@ (define char? (%doc "(char? obj) - Function check if object is character." + Checks if the object is a character." (curry instanceof lips.LCharacter))) ;; ----------------------------------------------------------------------------- (define (char->integer chr) "(char->integer chr) - Function return codepoint of Unicode character." + Returns the codepoint of Unicode character." (typecheck "char->integer" chr "character") (--> chr.__char__ (codePointAt 0))) @@ -866,7 +919,7 @@ (define (integer->char n) "(integer->char chr) - Function convert number argument to chararacter." + Function that converts number argument to character." (typecheck "integer->char" n "number") (if (integer? n) (string-ref (String.fromCodePoint n) 0) @@ -874,9 +927,9 @@ ;; ----------------------------------------------------------------------------- (define-macro (%define-chr-re spec str re) - "(%define-chr-re (name chr) sring re) + "(%define-chr-re (name chr) string re) - Macro define procedure that test character agains regular expression." + Macro defines the procedure that tests character against regular expression." `(define ,spec ,str (typecheck ,(symbol->string (car spec)) ,(cadr spec) "character") @@ -886,7 +939,7 @@ (%define-chr-re (char-whitespace? chr) "(char-whitespace? chr) - Function return true if character is whitespace." + Returns true if character is whitespace." (let-env (interaction-environment) (--> **internal-env** (get 'space-unicode-regex)))) @@ -894,7 +947,7 @@ (%define-chr-re (char-numeric? chr) "(char-numeric? chr) - Function return true if character is number." + Returns true if character is number." (let-env (interaction-environment) (--> **internal-env** (get 'numeral-unicode-regex)))) @@ -902,7 +955,7 @@ (%define-chr-re (char-alphabetic? chr) "(char-alphabetic? chr) - Function return true if character is leter of the ASCII alphabet." + Returns true if character is leter of the ASCII alphabet." (let-env (interaction-environment) (--> **internal-env** (get 'letter-unicode-regex)))) @@ -910,8 +963,8 @@ (define (%char-cmp name chr1 chr2) "(%char-cmp name a b) - Function compare two characters and return 0 if they are equal, - -1 second is smaller and 1 if is larget. The function compare + Function that compares two characters and return 0 if they are equal, + -1 second is smaller and 1 if is larger. The function compare the codepoints of the character." (typecheck name chr1 "character" 1) (typecheck name chr2 "character" 2) @@ -925,43 +978,43 @@ (define (char=? chr1 chr2) "(char=? chr1 chr2) - Function check if two characters are equal." + Checks if two characters are equal." (= (%char-cmp "char=?" chr1 chr2) 0)) ;; ----------------------------------------------------------------------------- (define (char<? chr1 chr2) "(char<? chr1 chr2) - Function return true if second character is smaller then the first one." + Returns true if second character is smaller then the first one." (= (%char-cmp "char<?" chr1 chr2) -1)) ;; ----------------------------------------------------------------------------- (define (char>? chr1 chr2) "(char<? chr1 chr2) - Function return true if second character is larger then the first one." + Returns true if second character is larger then the first one." (= (%char-cmp "char>?" chr1 chr2) 1)) ;; ----------------------------------------------------------------------------- (define (char<=? chr1 chr2) "(char<? chr1 chr2) - Function return true if second character is not larger then the first one." + Returns true if second character is not larger then the first one." (< (%char-cmp "char<=?" chr1 chr2) 1)) ;; ----------------------------------------------------------------------------- (define (char>=? chr1 chr2) "(char<? chr1 chr2) - Function return true if second character is not smaller then the first one." + Returns true if second character is not smaller then the first one." (> (%char-cmp "char>=?" chr1 chr2) -1)) ;; ----------------------------------------------------------------------------- (define (%char-ci-cmp name chr1 chr2) "(%char-cmp name a b) - Function compare two characters and return 0 if they are equal, - -1 second is smaller and 1 if is larget. The function compare + Function that compares two characters and return 0 if they are equal, + -1 second is smaller and 1 if is larger. The function compare the codepoints of the character." (typecheck name chr1 "character" 1) (typecheck name chr2 "character" 2) @@ -971,35 +1024,35 @@ (define (char-ci=? chr1 chr2) "(char-ci=? chr1 chr2) - Function check if two characters are equal." + Checks if two characters are equal." (= (%char-ci-cmp "char-ci=?" chr1 chr2) 0)) ;; ----------------------------------------------------------------------------- (define (char-ci<? chr1 chr2) "(char-ci<? chr1 chr2) - Function return true if second character is smaller then the first one." + Returns true if second character is smaller then the first one." (= (%char-ci-cmp "char-ci<?" chr1 chr2) -1)) ;; ----------------------------------------------------------------------------- (define (char-ci>? chr1 chr2) "(char-ci<? chr1 chr2) - Function return true if second character is larger then the first one." + Returns true if second character is larger then the first one." (= (%char-ci-cmp "char-ci>?" chr1 chr2) 1)) ;; ----------------------------------------------------------------------------- (define (char-ci<=? chr1 chr2) "(char-ci<? chr1 chr2) - Function return true if second character is not larger then the first one." + Returns true if second character is not larger then the first one." (< (%char-ci-cmp "char-ci<=?" chr1 chr2) 1)) ;; ----------------------------------------------------------------------------- (define (char-ci>=? chr1 chr2) "(char-ci<? chr1 chr2) - Function return true if second character is not smaller then the first one." + Returns true if second character is not smaller then the first one." (> (%char-ci-cmp "char-ci>=?" chr1 chr2) -1)) ;; ----------------------------------------------------------------------------- @@ -1022,7 +1075,7 @@ (define (char-upper-case? char) "(char-upper-case? char) - Function check if character is upper case." + Checks if character is upper case." (typecheck "char-upper-case?" char "character") (and (char-alphabetic? char) (char=? (char-upcase char) char))) @@ -1031,7 +1084,7 @@ (define (char-lower-case? char) "(char-upper-case? char) - Function check if character is lower case." + Checks if character is lower case." (typecheck "char-lower-case?" char "character") (and (char-alphabetic? char) (char=? (char-downcase char) char))) @@ -1071,7 +1124,7 @@ (define (make-vector n . rest) "(make-vector n [fill]) - Create new vector with n empty elements. If fill is specified it will set + Creates a new vector with n empty elements. If fill is specified it will set all elements of the vector to that value." (let ((result (new Array n))) (if (not (null? rest)) @@ -1082,14 +1135,14 @@ (define (vector? n) "(vector? n) - Function return true of value is vector and false if not." + Returns true if value is vector and false if not." (string=? (type n) "array")) ;; ----------------------------------------------------------------------------- (define (vector-ref vec n) "(vector-ref vec n) - Function return nth element of the vector vec." + Returns nth element of the vector vec." (typecheck "vector-ref" vec "array" 1) (typecheck "vector-ref" n "number" 2) (. vec n)) @@ -1098,7 +1151,7 @@ (define (vector-set! vec n value) "(vector-set! vec n value) - Function set nth item of the vector to value." + Function that sets nth item of the vector to value." (typecheck "vector-ref" vec "array" 1) (typecheck "vector-ref" n "number" 2) (set-obj! vec n value)) @@ -1119,7 +1172,7 @@ (define (vector-length vec) "(vector-length vec) - Function return length of the vector. If argument is not vector it throw exception." + Returns length of the vector. It errors if the argument is not a vector." (typecheck "vector-length" vec "array") (length vec)) @@ -1164,7 +1217,7 @@ [else result3]) Macro for switch case statement. It test if value is any of the item. If - item match the value it will return coresponding result expression value. + item match the value it will return corresponding result expression value. If no value match and there is else it will return that result.") ;; ----------------------------------------------------------------------------- @@ -1174,11 +1227,12 @@ (define (numerator n) "(numerator n) - Return numberator of rational or same number if n is not rational." + Return numerator of rational or same number if n is not rational." (typecheck "numerator" n "number") - (if (and (rational? n) (not (integer? n))) - n.num - n)) + (cond ((integer? n) n) + ((rational? n) n.__num__) + (else + (numerator (inexact->exact n))))) ;; ----------------------------------------------------------------------------- (define (denominator n) @@ -1186,9 +1240,11 @@ Return denominator of rational or same number if one is not rational." (typecheck "denominator" n "number") - (if (and (rational? n) (not (integer? n))) - n.denom - (if (exact? n) 1 1.0))) + (cond ((integer? n) n) + ((rational? n) n.__denom__) + ((exact? n) 1) + (else + (denominator (inexact->exact n))))) ;; ----------------------------------------------------------------------------- (define (imag-part n) @@ -1250,7 +1306,7 @@ "(random) (random seed) - Function generate new random real number using Knuth algorithm." + Function that generates new random real number using Knuth algorithm." (if (pair? new-seed) (set! seed (car new-seed)) (set! seed (modulo (+ (* seed a) c) m))) @@ -1260,7 +1316,7 @@ (define (eof-object? obj) "(eof-object? arg) - Function check if value is eof object, returned from input string + Checks if value is eof object, returned from input string port when there are no more data to read." (eq? obj eof)) @@ -1268,14 +1324,14 @@ (define (output-port? obj) "(output-port? arg) - Function return true if argument is output port." + Returns true if argument is output port." (instanceof lips.OutputPort obj)) ;; ----------------------------------------------------------------------------- (define (input-port? obj) "(input-port? arg) - Function return true if argument is input port." + Returns true if argument is input port." (instanceof lips.InputPort obj)) ;; ----------------------------------------------------------------------------- @@ -1283,7 +1339,7 @@ "(char-ready?) (char-ready? port) - Function check it characters is ready in input port. This is usefull mostly + Checks if characters is ready in input port. This is useful mostly for interactive ports that return false if it would wait for user input. It return false if port is closed." (let ((port (if (null? rest) (current-input-port) (car rest)))) @@ -1296,7 +1352,7 @@ (lambda(filename) "(open-input-file filename) - Function return new Input Port with given filename. In Browser user need to + Returns new Input Port with given filename. In Browser user need to provide global fs variable that is instance of FS interface." (new lips.InputFilePort (%read-file false filename) filename)))) @@ -1342,15 +1398,13 @@ (finally (close-output-port p))))) -;; ----------------------------------------------------------------------------- -(define (with-input-from-file string thunk) - "(with-input-from-file string thunk) +(define (with-input-from-port port thunk) + "(with-input-from-port port thunk) - Procedure open file and make it current-input-port then thunk is executed. - After thunk is executed current-input-port is restored and file port + Procedure use port and make it current-input-port then thunk is executed. + After thunk is executed current-input-port is restored and given port is closed." - (let* ((port (open-input-file string)) - (env **interaction-environment**) + (let* ((env **interaction-environment**) (internal-env (env.get '**internal-env**)) (old-stdin (internal-env.get "stdin"))) (internal-env.set "stdin" port) @@ -1360,6 +1414,24 @@ (internal-env.set "stdin" old-stdin) (close-input-port port))))) +;; ----------------------------------------------------------------------------- +(define (with-input-from-file string thunk) + "(with-input-from-file string thunk) + + Procedure open file and make it current-input-port then thunk is executed. + After thunk is executed current-input-port is restored and file port + is closed." + (with-input-from-port (open-input-file string) thunk)) + +;; ----------------------------------------------------------------------------- +(define (with-input-from-string string thunk) + "(with-input-from-string string thunk) + + Procedure open string and make it current-input-port then thunk is executed. + After thunk is executed current-input-port is restored and string port + is closed." + (with-input-from-port (open-input-string string) thunk)) + ;; ----------------------------------------------------------------------------- (define (with-output-to-file string thunk) (let* ((port (open-output-file string)) @@ -1392,7 +1464,7 @@ (lambda (filename) "(open-output-file filename) - Function open file and return port that can be used for writing. If file + Function that opens file and return port that can be used for writing. If file exists it will throw an Error." (typecheck "open-output-file" filename "string") (if (not (procedure? open)) @@ -1405,8 +1477,8 @@ (define (scheme-report-environment version) "(scheme-report-environment version) - Function return new Environment object for given Scheme Spec version. - Only argument 5 is supported that create environemnt for R5RS." + Returns new Environment object for given Scheme Spec version. + Only argument 5 is supported that create environment for R5RS." (typecheck "scheme-report-environment" version "number") (case version ((5) (%make-env "R5RS" * + - / < <= = > >= abs acos and angle append apply asin assoc assq assv diff --git a/lib/R7RS.scm b/lib/R7RS.scm index fe4e01ee7..49c605046 100755 --- a/lib/R7RS.scm +++ b/lib/R7RS.scm @@ -20,7 +20,7 @@ (define (list-match? predicate list) "(list-match? predicate list) - Function check if consecutive elements of the list match the predicate function." + Checks if consecutive elements of the list match the predicate function." (typecheck "list-match?" predicate #("function" "macro")) (typecheck "list-match?" list "pair") (or (or (null? list) @@ -32,7 +32,7 @@ (define (symbol=? . args) "(symbol=? s1 s2 ...) - Function check if each value is symbol and it's the same acording to string=? predicate." + Checks if each value is symbol and it's the same according to string=? predicate." (list-match? (lambda (a b) (and (symbol? a) (symbol? b) (equal? a b))) args)) @@ -43,7 +43,7 @@ (define (values-ref values n) "(values-ref values n) - Function return n value of values object which is result of value function." + Returns n value of values object which is result of value function." (typecheck "values-ref" values "values" 1) (typecheck "values-ref" n "number" 1) (--> values (valueOf) n)) @@ -67,7 +67,7 @@ (define (vector-append . args) "(vector-append v1 v2 ...) - Function return new vector by combining it's arguments that should be vectors." + Returns new vector by combining it's arguments that should be vectors." (if (null? args) (vector) (begin @@ -78,7 +78,7 @@ (define-macro (%range-function spec . body) "(%range-function spec . body) - Macro that creates R7RS vector functions that have range start end." + Creates R7RS vector functions that have range start end." (let* ((name (car spec)) (name-str (symbol->string name)) (args (append (cdr spec) 'rest))) @@ -102,7 +102,7 @@ (vector->list vector start) (vector->list vector start end) - Function copy given range of vector to list. If no start is specified it use + Function that copies given range of vector to list. If no start is specified it use start of the vector, if no end is specified it convert to the end of the vector." (typecheck "vector->list" vector "array") (array->list (vector.slice start end))) @@ -114,7 +114,7 @@ (string->list string start) (string->list string start end) - Function copy given range of string to list. If no start is specified it use + Function that copies given range of string to list. If no start is specified it use start of the string, if no end is specified it convert to the end of the string." (typecheck "string->vector" string "string") (--> (string.substring start end) @@ -128,7 +128,7 @@ (vector->string vector start) (vector->string vector start end) - Function return new string created from vector of characters in given range. + Returns new string created from vector of characters in given range. If no start is given it create string from 0, if no end is given it return string to the end." (typecheck "vector->string" vector "array") @@ -237,7 +237,7 @@ (define (boolean=? . args) "(boolean=? b1 b2 ...) - Function check if all arguments are boolean and if they are the same." + Checks if all arguments are boolean and if they are the same." (if (< (length args) 2) (error "boolean=?: too few arguments") (reduce (lambda (acc item) @@ -249,7 +249,7 @@ (define (port? x) "(port? x) - Function return true of argumet is nput or output port port object." + Returns true if the argument is an input or output port object." (or (output-port? x) (input-port? x))) ;; ----------------------------------------------------------------------------- @@ -267,7 +267,7 @@ (begin result1 result2 ...)))) "(when test body ...) - Macro execute body when test expression is true.") + Executes body when test expression is true.") ;; ----------------------------------------------------------------------------- (define-syntax unless @@ -277,7 +277,7 @@ (begin result1 result2 ...)))) "(unless test body ...) - Macro execute body when test expression is false.") + Executes body when test expression is false.") ;; ----------------------------------------------------------------------------- (define inexact exact->inexact) @@ -287,7 +287,7 @@ (define (exact-integer? n) "(exact-integer? n) - Function returns #t if z is both exact and an integer; otherwise + Returns #t if z is both exact and an integer; otherwise returns #f." (and (integer? n) (exact? n))) @@ -295,7 +295,7 @@ (define (vector-map fn . rest) "(vector-map fn vector1 vector2 ...) - Function return new vector from applying function fn to each element + Returns new vector from applying function fn to each element of the vectors, similar to map for lists." (if (or (= (length rest) 0) (not (every vector? rest))) (error "vector-map: function require at least 1 vector") @@ -311,7 +311,7 @@ (define (string-map fn . rest) "(string-map fn string1 stringr2 ...) - Function return new string from applying function fn to each element + Returns new string from applying function fn to each element of the strings, similar to map for lists." (if (or (= (length rest) 0) (not (every string? rest))) (error "string-map: function require at least 1 string") @@ -321,11 +321,12 @@ (define (dynamic-wind before thunk after) "(dynamic-wind before thunk after) - Function accept 3 procedures/lambdas and execute thunk with before and always - after even if error accur" + Accepts 3 procedures/lambdas and executes before, then thunk, and + always after even if an error occurs in thunk." (before) (let ((result (try (thunk) (catch (e) + (after) (error e))))) (after) result)) @@ -351,7 +352,7 @@ (lambda args #f)))) ((define-values (var) expr) (define var expr)) - ((define-values (var0 var1 ... varn) expr) + ((define-values (var0 var1 ... warn) expr) (begin (define var0 (call-with-values (lambda () expr) @@ -360,11 +361,11 @@ (let ((v (cadr var0))) (set-cdr! var0 (cddr var0)) v)) ... - (define varn + (define warn (let ((v (cadr var0))) (set! var0 (car var0)) v)))) - ((define-values (var0 var1 ... . varn) expr) + ((define-values (var0 var1 ... . warn) expr) (begin (define var0 (call-with-values (lambda () expr) @@ -373,7 +374,7 @@ (let ((v (cadr var0))) (set-cdr! var0 (cddr var0)) v)) ... - (define varn + (define warn (let ((v (cdr var0))) (set! var0 (car var0)) v)))) @@ -383,14 +384,14 @@ list)))) "(define-values (a b ...) expr) - Function evaluate expression expr and if it evaluates to result of values + Evaluates expression expr and if it evaluates to result of values then it will defined each value as variable like with define.") ;; ----------------------------------------------------------------------------- (define-macro (include . files) "(include file ...) - Macro that load at least one file content and insert them into one, + Load at least one file content and insert them into one, body expression." (if (null? files) (throw (new Error "include: at least one file path required")) @@ -562,7 +563,7 @@ (bytevector-copy v start) (bytevector-copy v start end) - Function and return new vector from start to end. If no start and end is provided + Returns a new vector from start to end. If no start and end is provided whole vector is copied and returned." (if (null? rest) (new Uint8Array v) @@ -606,7 +607,7 @@ (string->utf8 string start) (string->utf8 string start end) - Function converts string into u8 bytevector using utf8 encoding. + Converts string into u8 bytevector using utf8 encoding. The start and end is the range of the input string for the conversion." (typecheck "string->utf8" string "string") (if (null? rest) @@ -624,7 +625,7 @@ (utf8->string u8vector start) (utf8->string u8vector start end) - Function converts u8 bytevector into string using utf8 encoding. + Converts u8 bytevector into string using utf8 encoding. The start and end is the range of the input byte vector for the conversion." (typecheck "utf8->string" v "uint8array") (if (null? rest) @@ -638,7 +639,7 @@ (define (open-input-string string) "(open-input-string string) - Function create new string port as input that can be used to + Creates new string port as input that can be used to read S-exressions from this port using `read` function." (typecheck "open-input-string" string "string") (new lips.InputStringPort string (interaction-environment))) @@ -647,7 +648,7 @@ (define (open-output-string) "(open-output-string) - Function create new output port that can used to write string into + Creates new output port that can used to write string into and after finish get the whole string using `get-output-string`." (new lips.OutputStringPort repr)) @@ -664,7 +665,7 @@ (define (get-output-bytevector port) "(get-output-string port) - Function get full string from string port. If nothing was wrote + Gets full string from string port. If nothing was wrote to given port it will return empty string." (if (not (instanceof lips.OutputByteVectorPort port)) (throw (new Error (string-append @@ -676,7 +677,7 @@ (define (get-output-string port) "(get-output-string port) - Function get full string from string port. If nothing was wrote + Gets full string from string port. If nothing was wrote to given port it will return empty string." (if (not (instanceof lips.OutputStringPort port)) (throw (new Error (string-append "get-output-string: expecting output-string-port get " @@ -695,7 +696,7 @@ (define (open-binary-input-file filename) "(open-binary-input-file filename) - Function return new Input Binary Port with given filename. In Browser + Returns new Input Binary Port with given filename. In Browser user need to provide global fs variable that is instance of FS interface." (let ((u8vector (buffer->u8vector (%read-binary-file filename)))) (new lips.InputBinaryFilePort u8vector filename))) @@ -704,14 +705,14 @@ (define (binary-port? port) "(binary-port? port) - Function test if argument is binary port." + Function that tests if argument is binary port." (and (port? port) (eq? port.__type__ (Symbol.for "binary")))) ;; ----------------------------------------------------------------------------- (define (textual-port? port) "(textual-port? port) - Function test if argument is string port." + Function that tests if argument is string port." (and (port? port) (eq? port.__type__ (Symbol.for "text")))) ;; ----------------------------------------------------------------------------- @@ -824,7 +825,7 @@ (lambda (filename) "(open-binary-output-file filename) - Function open file and return port that can be used for writing. If file + Opens file and return port that can be used for writing. If file exists it will throw an Error." (typecheck "open-output-file" filename "string") (if (not (procedure? open)) @@ -840,7 +841,7 @@ (read-bytevector! bytevector port start) (read-bytevector! bytevector port start end) - Function read next bytes from binary input port and write them into byte vector. + Reads next bytes from binary input port and write them into byte vector. if not start is specified it start to write into 0 position of the vector until the end or end the vector if no end is specified." (typecheck "read-bytevector!" vector "uint8array") @@ -864,7 +865,7 @@ (lambda (filename) "(delete-file filename) - Function delete the file of given name." + Deletes the file of given name." (typecheck "delete-file" filename "string") (if (not (procedure? unlink)) (set! unlink (%fs-promisify-proc 'unlink "delete-file"))) @@ -900,21 +901,21 @@ (define (output-port-open? port) "(output-port-open? port) - Function check if argument is output-port and if you can write to it." + Checks if argument is output-port and if you can write to it." (and (output-port? port) (port.is_open))) ;; ----------------------------------------------------------------------------- (define (input-port-open? port) "(input-port-open? port) - Function check if argument is input-port and if you can read from it." + Checks if argument is input-port and if you can read from it." (and (input-port? port) (port.is_open))) ;; ----------------------------------------------------------------------------- (define (flush-output-port port) "(flush-output-port port) - Functio do nothing, flush is not needed in LIPS in both NodeJS and Browser. + Function do nothing, flush is not needed in LIPS in both NodeJS and Browser. The function is added, so it don't throw exception when using R7RS code." (if #f #f)) @@ -1039,7 +1040,7 @@ (define (nan? x) "(nan? x) - Function check if argument x is Not a Number (NaN) value." + Checks if argument x is Not a Number (NaN) value." (and (number? x) (or (x.isNaN) (and (%number-type "complex" x) @@ -1050,7 +1051,7 @@ (define (infinite? x) "(infinite? x) - Function check if value is infinite." + Checks if value is infinite." (or (eq? x Number.NEGATIVE_INFINITY) (eq? x Number.POSITIVE_INFINITY) (and (number? x) @@ -1063,7 +1064,7 @@ (define (finite? x) "(finite? x) - Function check if value is finite." + Checks if value is finite." (not (infinite? x))) ;; ----------------------------------------------------------------------------- @@ -1209,12 +1210,12 @@ (lambda () "(current-directory) - Return corrent working directory, default it's corrent URL." + Return current working directory, default is the current URL." cwd) (lambda (value) "(set-current-directory! string) - Function change current working directory to provided string." + Changes the current working directory to provided string." (typecheck "set-current-directory!" value "string") (set! cwd value)))) (let ((process (require "process"))) @@ -1222,13 +1223,13 @@ (lambda () "(current-directory) - Return corrent working directory, default it's path from where + Returns the current working directory, default is the path from where the script was executed." (string-append (process.cwd) "/")) (lambda (value) "(set-current-directory! string) - Function change current working directory to provided string." + Changes the current working directory to provided string." (typecheck "set-current-directory!" value "string") (process.chdir value)))))) @@ -1244,7 +1245,7 @@ (define (error-object? obj) "(error-object? obj) - Function check if object is of Error object throwed by error function." + Checks if object is of Error object thrown by error function." (instanceof lips.Error obj)) ;; ----------------------------------------------------------------------------- @@ -1267,17 +1268,17 @@ (define (get-environment-variables) "(get-environment-variables) - Function returns all variables as alist. This funtion throws exception + Returns all process environment variables as an alist. This function throws exception when called in browser." (if (eq? self window) - (throw "get-environment-variables: Node.js only funtion") + (throw "get-environment-variables: Node.js only function") (object->alist process.env))) ;; ----------------------------------------------------------------------------- (define (get-environment-variable name) "(get-environment-variable name) - Function return given environment variable. This funtion throws exception + Returns given environment variable. This function throws exception when called in browser." (. process.env name)) @@ -1299,7 +1300,7 @@ (define (current-jiffy) "(current-jiffy) - Retturn corrent jiffy. In LIPS is jiffy since start of the process. + Return current jiffy. In LIPS is jiffy since start of the process. You can divide this value by (jiffies-per-second) to get seconds since start of the process. And you can add %%start-jiffy to get jiffy since January 1, 1970." diff --git a/lib/bootstrap.scm b/lib/bootstrap.scm index a22c89c1c..9a11df06b 100755 --- a/lib/bootstrap.scm +++ b/lib/bootstrap.scm @@ -22,10 +22,10 @@ ;; ----------------------------------------------------------------------------- (define-macro (let-syntax vars . body) - "(let-syntax ((name fn)) body) + "(let-syntax ((name fn) ...) . body) - Macro works like combination of let and define-syntax. It creaates - local macros and evaluate body in context of those macros. + Works like a combination of let and define-syntax. It creates + local macros and evaluates body in context of those macros. The macro to letrec-syntax is like letrec is to let." `(let ,vars ,@(map (lambda (rule) @@ -35,10 +35,10 @@ ;; ----------------------------------------------------------------------------- (define-macro (letrec-syntax vars . body) - "(letrec-syntax ((name fn)) body) + "(letrec-syntax ((name fn) ...) . body) - Macro works like combination of letrec and define-syntax. It creaates - local macros and evaluate body in context of those macros." + Works like a combination of letrec and define-syntax. It creates + local macros and evaluates the body in context of those macros." `(letrec ,vars ,@(map (lambda (rule) `(typecheck "letrec-syntax" ,(car rule) "syntax")) @@ -49,7 +49,7 @@ (define-macro (define-syntax name expr . rest) "(define-syntax name expression [__doc__]) - Macro define new hygienic macro using syntax-rules with optional documentation" + Defines a new hygienic macro using syntax-rules with optional documentation." (let ((expr-name (gensym "expr-name"))) `(define ,name (let ((,expr-name ,expr)) @@ -61,7 +61,7 @@ (define (quoted-symbol? x) "(quoted-symbol? code) - Helper function that test if value is quoted symbol. To be used in macros + Helper function that tests if value is a quoted symbol. To be used in macros that pass literal code that is transformed by parser. usage: @@ -75,35 +75,46 @@ ;; ----------------------------------------------------------------------------- (define-macro (--> expr . body) - "Helper macro that simplify calling methods on objects. It work with chaining + "Helper macro that simplifies calling methods on objects. It works with chaining usage: (--> ($ \"body\") (css \"color\" \"red\") (on \"click\" (lambda () (display \"click\")))) + (--> document (querySelectorAll \"div\")) + (--> (fetch \"https://jcubic.pl\") (text) (match #/<title>([^<]+)<\\/title>/) 1) + (--> document (querySelectorAll \".cmd-prompt\") 0 'innerHTML (replace #/<(\"[^\"]+\"|[^>])+>/g \"\")) + (--> document.body (style.setProperty \"--color\" \"red\"))" (let ((obj (gensym "obj"))) `(let* ((,obj ,expr)) ,@(map (lambda (code) - (let ((value (gensym "value"))) - `(let* ((,value ,(let ((name (cond ((quoted-symbol? code) (symbol->string (cadr code))) - ((pair? code) (symbol->string (car code))) - (true code)))) - (if (string? name) - `(. ,obj ,@(split "." name)) - `(. ,obj ,name))))) - ,(if (and (pair? code) (not (quoted-symbol? code))) - `(set! ,obj (,value ,@(cdr code))) - `(set! ,obj ,value))))) + (let* ((value (gensym "value")) + (name (cond ((quoted-symbol? code) (symbol->string (cadr code))) + ((pair? code) (symbol->string (car code))) + (true code))) + (accessor (if (string? name) + `(. ,obj ,@(split "." name)) + `(. ,obj ,name))) + (call (and (pair? code) (not (quoted-symbol? code))))) + `(let ((,value ,accessor)) + ,(if call + `(if (not (function? ,value)) + (throw (new Error (string-append "--> " ,(repr name) + " is not a function" + " in expression " + ,(repr `(--> ,expr . ,body))))) + (set! ,obj (,value ,@(cdr code)))) + `(set! ,obj ,value))))) body) ,obj))) @@ -113,8 +124,8 @@ "(define-global var value) (define-global (name . args) body) - Macro that define functions or variables in global context, so they can be used - inside let and get let variables in closure, Useful for universal macros." + Defines functions or variables in the global context, so they can be used + inside let and get let variables in a closure. Useful for universal macros." (if (pair? first) (let ((name (car first))) `(--> lips.env @@ -148,21 +159,21 @@ (define (single list) "(single list) - Function check if argument is list with single element" + Checks if argument is list with one element." (and (pair? list) (not (cdr list)))) ;; ----------------------------------------------------------------------------- (define (iterator? x) "(iterator? x) - Function check if value is JavaScript iterator object" + Checks if value is JavaScript iterator object." (and (object? x) (procedure? (. x Symbol.iterator)))) ;; ----------------------------------------------------------------------------- (define-macro (.. expr) "(.. foo.bar.baz) - Macro that gets value from nested object where argument is comma separated symbol" + Gets the value from a nested object where the argument is a period separated symbol." (if (not (symbol? expr)) expr (let ((parts (split "." (symbol->string expr)))) @@ -177,14 +188,14 @@ (define (gensym-interal symbol) "(gensym-interal symbol) - Parser extension that create new quoted named gensym." + Parser extension that creates a new quoted named gensym." `(quote ,(gensym symbol))) ;; ----------------------------------------------------------------------------- (define (plain-object? x) "(plain-object? x) - Function check if value is plain JavaScript object. Created using object macro." + Checks if value is a plain JavaScript object created using the object macro." ;; here we don't use string=? or equal? because it may not be defined (and (== (--> (type x) (cmp "object")) 0) (eq? (. x 'constructor) Object))) @@ -194,14 +205,14 @@ (lambda (o) "(typed-array? o) - Function test if argumnet is JavaScript typed array (Scheme byte vector)." + Function that tests if the arguments is a JavaScript typed array (Scheme byte vector)." (instanceof TypedArray o)))) ;; ----------------------------------------------------------------------------- (define (symbol->string s) "(symbol->string symbol) - Function convert LIPS symbol to string." + Function that converts a LIPS symbol to a string." (typecheck "symbol->string" s "symbol") (let ((name s.__name__)) (if (string? name) @@ -212,7 +223,7 @@ (define (string->symbol string) "(string->symbol string) - Function convert string to LIPS symbol." + Function that converts a string to a LIPS symbol." (typecheck "string->symbol" string "string") (%as.data (new lips.LSymbol string))) @@ -220,7 +231,7 @@ (define (alist->object alist) "(alist->object alist) - Function convert alist pairs to JavaScript object." + Function that converts alist pairs to a JavaScript object." (if (pair? alist) (alist.to_object) (alist->object (new lips.Pair undefined nil)))) @@ -229,7 +240,7 @@ (define (object->alist object) "(object->alist object) - Function convert JavaScript object to Alist" + Function that converts a JavaScript object to Alist" (typecheck "object->alist" object "object") (vector->list (--> (Object.entries object) (map (lambda (arr) @@ -239,7 +250,7 @@ (define (parent.frames) "(parent.frames) - Funcion return list of environments from parent frames (lambda function calls)" + Returns the list of environments from parent frames (lambda function calls)" (let iter ((result '()) (frame (parent.frame 1))) (if (eq? frame (interaction-environment)) (cons frame result) @@ -254,8 +265,8 @@ (define (pair-map fn seq-list) "(pair-map fn list) - Function call fn argument for pairs in a list and return combined list with - values returned from function fn. It work like the map but take two items from list" + Function that calls fn argument for pairs in a list and returns a combined list with + values returned from function fn. It works likes map but take two items from the list each time." (let iter ((seq-list seq-list) (result '())) (if (null? seq-list) result @@ -270,18 +281,20 @@ ;; ----------------------------------------------------------------------------- (define (object-expander readonly expr . rest) - "(object-expander reaonly '(:foo (:bar 10) (:baz (1 2 3)))) - (object-expander reaonly '(:foo :bar)) - - - Recursive function helper for defining LIPS code for create objects - using key like syntax. if no values are used it will create JavaScript - shorthand objects where keys are used for keys and values" - (let ((name (gensym "name")) (quot (if (null? rest) false (car rest)))) + "(object-expander readonly '(:foo (:bar 10) (:baz (1 2 3)))) + (object-expander readonly '(:foo :bar)) + + Recursive function helper for defining LIPS code to create objects + using key like syntax. If no values are used it will create a JavaScript + shorthand objects where keys are used for keys and the values." + (let ((name (gensym "name")) + (r-only (gensym "r-only")) + (quot (if (null? rest) false (car rest)))) (if (null? expr) `(alist->object ()) - `(let ((,name (alist->object '()))) - ,@(let loop ((lst expr) (result nil) (local-readonly readonly)) + `(let ((,name ,(Object.fromEntries (new Array))) + (,r-only ,(Object.fromEntries (new Array (new Array "writable" false))))) + ,@(let loop ((lst expr) (result nil)) (if (null? lst) (reverse result) (let ((first (car lst)) @@ -295,46 +308,60 @@ (let ((prop (key->string first))) (if (or (key? second) (null? second)) (let ((code `(set-obj! ,name ,prop undefined))) - (set! readonly false) - (loop (cdr lst) (cons code result) local-readonly)) - (let ((code (if (and (pair? second) (key? (car second))) - `(set-obj! ,name - ,prop - ,(object-expander local-readonly second)) - (if quot - `(set-obj! ,name ,prop ',second) - `(set-obj! ,name ,prop ,second))))) - (loop (cddr lst) (cons code result) local-readonly)))))))) + (loop (cdr lst) (cons code result))) + (let ((code (if readonly + (if (and (pair? second) (key? (car second))) + `(set-obj! ,name + ,prop + ,(object-expander readonly second quot) + ,r-only) + (if quot + `(set-obj! ,name ,prop ',second ,r-only) + `(set-obj! ,name ,prop ,second ,r-only))) + (if (and (pair? second) (key? (car second))) + `(set-obj! ,name + ,prop + ,(object-expander readonly second)) + (if quot + `(set-obj! ,name ,prop ',second) + `(set-obj! ,name ,prop ,second)))))) + (loop (cddr lst) (cons code result))))))))) ,(if readonly - `(Object.freeze ,name)) + `(Object.preventExtensions ,name)) ,name)))) ;; ----------------------------------------------------------------------------- (define-macro (object . expr) "(object :name value) - Macro that create JavaScript object using key like syntax." + Creates a JavaScript object using key like syntax." (try (object-expander false expr) (catch (e) - (error e.message)))) + (try + (error e.message) + (catch (e) + (console.error e.message)))))) ;; ----------------------------------------------------------------------------- (define-macro (object-literal . expr) "(object-literal :name value) - Macro that create JavaScript object using key like syntax. This is similar, - to object but all values are quoted. This macro is used with & object literal." + Creates a JavaScript object using key like syntax. This is similar, + to object but all values are quoted. This macro is used by the & object literal." (try (object-expander true expr true) (catch (e) - (error e.message)))) + (try + (error e.message) + (catch (e) + (console.error e.message)))))) ;; ----------------------------------------------------------------------------- (define (alist->assign desc . sources) "(alist->assign alist . list-of-alists) - Function that work like Object.assign but for LIPS alist." + Function that works like Object.assign but for LIPS alists." (for-each (lambda (source) (for-each (lambda (pair) (let* ((key (car pair)) @@ -351,7 +378,7 @@ (define (key? symbol) "(key? symbol) - Function check if symbol is key symbol, have colon as first character." + Checks if symbol is a keyword (has a colon as first character)." ;; we can't use string=? because it's in R5RS.scm we use same code that use cmp (and (symbol? symbol) (== (--> (substring (symbol->string symbol) 0 1) (cmp ":")) 0))) @@ -359,7 +386,7 @@ (define (key->string symbol) "(key->string symbol) - If symbol is key it convert that to string - remove colon." + If symbol is a keyword it converts that to string and removes the colon." (if (key? symbol) (substring (symbol->string symbol) 1))) @@ -367,7 +394,7 @@ (define (%as.data obj) "(%as.data obj) - Mark object as data to stop evaluation." + Marks the object as data to stop evaluation." (if (object? obj) (begin (set-obj! obj 'data true) @@ -377,8 +404,8 @@ (define (%hidden-props obj) "(%hidden-props obj) - Function return hidden names of an object, for ES6 class prototype - it return all methods since they are indistinguishable from hidden property + Returns the hidden names of an object, for ES6 class prototypes + it returns all methods since they are indistinguishable from hidden properties created using defineProperty." (let* ((descriptors (Object.getOwnPropertyDescriptors obj)) (names (Object.keys descriptors))) @@ -390,7 +417,7 @@ (define (dir obj . rest) "(dir obj) - Function return all props on the object including those in prototype chain." + Returns all props on the object including those in prototype chain." (if (or (null? obj) (eq? obj Object.prototype)) nil (let ((proto (if (null? rest) false (car rest))) @@ -407,7 +434,7 @@ (define (tree-map f tree) "(tree-map fn tree) - Tree version of map. Function is invoked on every leaf." + Tree version of map. fn is invoked on every leaf." (if (pair? tree) (cons (tree-map f (car tree)) (tree-map f (cdr tree))) (f tree))) @@ -416,7 +443,7 @@ (define (native.number x) "(native.number obj) - If argument is number it will convert to native number." + If argument is a number it will convert it to a native number." (if (number? x) (value x) x)) @@ -425,7 +452,7 @@ (define (value obj) "(value obj) - Function unwrap LNumbers and convert nil value to undefined." + Function that unwraps LNumbers and converts nil to undefined." (if (eq? obj nil) undefined (if (number? obj) @@ -436,7 +463,7 @@ (define-macro (define-formatter-rule . patterns) "(rule-pattern pattern) - Anaphoric Macro for defining patterns for formatter. With Ahead, Pattern and * defined values." + Anaphoric macro for defining patterns for the formatter. With Ahead, Pattern and * defined values." (let ((rules (gensym "rules"))) `(let ((,rules lips.Formatter.rules) (Ahead (lambda (pattern) @@ -551,7 +578,7 @@ (define (%r re . rest) "(%r re) - Create new regular expression from string, to not break Emacs formatting" + Creates a new regular expression from string, to not break Emacs formatting." (if (null? rest) (new RegExp re) (new RegExp re (car rest)))) @@ -569,7 +596,7 @@ (define (interaction-environment) "(interaction-environment) - Function return interaction environement equal to lips.env can be overwritten, + Returns the interaction environment equal to lips.env. This can be overwritten when creating new interpreter with lips.Interpreter." **interaction-environment**) @@ -577,7 +604,7 @@ (define (current-output-port) "(current-output-port) - Function return default stdout port." + Returns the default stdout port." (let-env (interaction-environment) (--> **internal-env** (get 'stdout)))) @@ -585,7 +612,7 @@ (define (current-error-port) "(current-output-port) - Function return default stdout port." + Returns the default stderr port." (let-env (interaction-environment) (--> **internal-env** (get 'stderr)))) @@ -593,7 +620,7 @@ (define (current-input-port) "(current-input-port) - Function return default stdin port." + Returns the default stdin port." (let-env (interaction-environment) (--> **internal-env** (get 'stdin)))) @@ -601,7 +628,7 @@ (define (command-line) "(command-line) - Function return command line arguments or empty list" + Returns the command line arguments, or an empty list if not running under Node.js." (let ((args (let-env (interaction-environment) (--> **internal-env** (get 'command-line))))) (if (or (null? args) (zero? (length args))) @@ -610,7 +637,7 @@ ;; ----------------------------------------------------------------------------- (define (flush-output . rest) - "(flush-output) + "(flush-output [port]) If output-port is buffered, this causes the contents of its buffer to be written to the output device. Otherwise it has no effect. Returns an unspecified value." @@ -622,18 +649,18 @@ (define (regex? x) "(regex? x) - Function return true of value is regular expression, it return false otherwise." + Returns true if value is a regular expression, or false otherwise." (== (--> (type x) (cmp "regex")) 0)) ;; ----------------------------------------------------------------------------- (define (set-repr! type fn) "(add-repr! type fn) - Function add string represention to the type, which should be constructor function. + Function that adds the string representation to the type, which should be a constructor function. - Function fn should have args (obj q) and it should return string, obj is vlaue that - need to be converted to string, if the object is nested and you need to use `repr`, - it should pass second parameter q to repr, so string will be quoted when it's true. + Function fn should have args (obj q) and it should return a string. obj is the value that + need to be converted to a string. If the object is nested and you need to use `repr` recursively, + it should pass the second parameter q to repr, so string will be quoted when it's true. e.g.: (lambda (obj q) (string-append \"<\" (repr obj q) \">\"))" (typecheck "add-repr!" type "function") @@ -644,7 +671,7 @@ (define (unset-repr! type) "(unset-repr! type) - Function remove string represention to the type, which should be constructor function, + Removes the string representation of the type, which should be constructor function, added by add-repr! function." (typecheck "unset-repr!" type "function") (ignore (--> lips.repr (delete type)))) @@ -669,7 +696,7 @@ (define (bound? x . rest) "(bound? x [env]) - Function check if variable is defined in given environement or interaction environment + Function that check if the variable is defined in the given environment, or interaction-environment if not specified." (let ((env (if (null? rest) (interaction-environment) (car rest)))) (try (begin @@ -682,7 +709,7 @@ (define (environment-bound? env x) "(environment-bound? env symbol) - Function check if symbol is bound variable similar to bound?." + Checks if symbol is a bound variable similar to bound?." (typecheck "environment-bound?" env "environment" 1) (typecheck "environment-bound?" x "symbol" 2) (bound? x env)) @@ -693,7 +720,7 @@ (define (qsort e predicate) "(qsort list predicate) - Sort the list using quick sort alorithm according to predicate." + Sorts the list using the quick sort algorithm according to predicate." (if (or (null? e) (<= (length e) 1)) e (let loop ((left nil) (right nil) @@ -708,7 +735,7 @@ (define (sort list . rest) "(sort list [predicate]) - Sort the list using optional predicate function. if not function is specified + Sorts the list using optional predicate function. If no comparison function is given it will use <= and sort in increasing order." (let ((predicate (if (null? rest) <= (car rest)))) (typecheck "sort" list "pair") @@ -719,8 +746,9 @@ (define (every fn list) "(every fn list) - Function call function fn on each item of the list, if every value is true - it will return true otherwise it return false." + Function that calls fn on each item of the list, if every value returns true + it will return true otherwise it return false. + Analogous to Python all(map(fn, list))." (if (null? list) true (and (fn (car list)) (every fn (cdr list))))) @@ -729,7 +757,7 @@ (define-macro (promise . body) "(promise . body) - Anaphoric macro that expose resolve and reject functions from JS promise" + Anaphoric macro that exposes resolve and reject functions from JS promise." `(new Promise (lambda (resolve reject) (try (begin ,@body) (catch (e) @@ -739,22 +767,22 @@ (define-macro (timer time . body) "(timer time . body) - Macro evaluate expression after delay, it return timer. To clear the timer you can use - native JS clearTimeout function." + Evaluates body after delay, it returns the timer ID from setTimeout. + To clear the timer you can use native JS clearTimeout function." `(setTimeout (lambda () (try (begin ,@body) (catch (e) (error (.. e.message))))) ,time)) ;; ----------------------------------------------------------------------------- (define-macro (wait time . expr) "(wait time . expr) - Function return promise that will resolve with evaluating the expression after delay." + Returns a promise that will resolve with the expression after delay." `(promise (timer ,time (resolve (begin ,@expr))))) ;; ----------------------------------------------------------------------------- (define (await value) "(await value) - Function unquote quoted promise so it can be automagicaly evaluated (resolved + Unquotes a quoted promise so it can be automagically evaluated (resolved to its value)." (if (instanceof lips.QuotedPromise value) (value.valueOf) @@ -762,12 +790,11 @@ ;; ----------------------------------------------------------------------------- (define-macro (quote-promise expr) - "(quote-promise expr) - '>expr + "(quote-promise expr) or '>expr - Macro used to escape promise the whole expression, will be wrapped - with JavaScript class that behave like Promise but will not - auto resolve like normal promise." + Macro used to escape automati awaiting of the expression. It will be wrapped + with a JavaScript class that behaves like Promise but will not be automatically + resolved by LIPS like normal promises are." `(let ((env)) (set! env (current-environment)) (env.set (Symbol.for "__promise__") true) @@ -777,14 +804,14 @@ (define (defmacro? obj) "(defmacro? expression) - Function check if object is macro and it's expandable." + Checks if object is a macro and it's expandable." (and (macro? obj) (. obj 'defmacro))) ;; ----------------------------------------------------------------------------- (define (n-ary n fn) "(n-ary n fn) - Return new function that limit number of arguments to n." + Returns a new function that limits the number of arguments to n." (lambda args (apply fn (take n args)))) @@ -792,7 +819,7 @@ (define (take n lst) "(take n list) - Return n first values of the list." + Returns n first values of the list." (let iter ((result '()) (i n) (lst lst)) (if (or (null? lst) (<= i 0)) (reverse result) @@ -801,13 +828,13 @@ ;; ----------------------------------------------------------------------------- (define unary (%doc "(unary fn) - Function return new function with arguments limited to one." + Returns a new function with arguments limited to one." (curry n-ary 1))) ;; ----------------------------------------------------------------------------- (define binary (%doc "(binary fn) - Function return new function with arguments limited to two." + Returns a new function with arguments limited to two." (curry n-ary 2))) ;; ----------------------------------------------------------------------------- @@ -817,7 +844,7 @@ (define (%class-lambda expr) "(class-lambda expr) - Return lambda expression where input expression lambda have `this` as first argument." + Returns a lambda expression where input expression lambda have `this` as first argument." (let ((args (gensym 'args))) `(lambda ,args (apply ,(cadr expr) this ,args)))) @@ -826,7 +853,7 @@ (define (%class-method-name expr) "(%class-method-name expr) - Helper function that allow to use [Symbol.asyncIterator] inside method name." + Helper function that allows to use [Symbol.asyncIterator] inside method name." (if (pair? expr) (car expr) (list 'quote expr))) @@ -835,7 +862,7 @@ (define-macro (define-class name parent . body) "(define-class name parent . body) - Define class - JavaScript function constructor with prototype. + Defines a class - JavaScript function constructor with prototype. usage: @@ -843,10 +870,10 @@ (constructor (lambda (self name) (set-obj! self '_name name))) (hi (lambda (self) - (display (string-append self._name \" say hi\")) + (display (string-append self._name \" says hi\")) (newline)))) (define jack (new Person \"Jack\")) - (jack.hi)" + (jack.hi) ; prints \"Jack says hi\"" (let iter ((functions '()) (constructor '()) (lst body)) (if (null? lst) `(begin @@ -884,13 +911,13 @@ temp))) "(class <parent> body ...) - Macro allow to create anonymous classes. See define-class for details.") + Allows to create anonymous classes. See define-class for details.") ;; ----------------------------------------------------------------------------- (define (make-tags expr) "(make-tags expression) - Function that return list structure of code with better syntax then raw LIPS" + Returns a list structure of code with better syntax then raw LIPS" `(h ,(let ((val (car expr))) (if (key? val) (key->string val) val)) (alist->object (,'quasiquote ,(pair-map (lambda (car cdr) `(,(key->string car) . (,'unquote ,cdr))) @@ -905,7 +932,7 @@ (define (%sxml h expr) "(%sxml h expr) - Helper function that render expression using create element function." + Helper function that renders the expression using create element function." (let* ((have-attrs (and (not (null? (cdr expr))) (pair? (cadr expr)) (eq? (caadr expr) '@))) @@ -947,10 +974,9 @@ ;; ----------------------------------------------------------------------------- (define (sxml-unquote) - "(sxml-unquote expression) - ~expression + "(sxml-unquote expression) or ~expression - Thread expression as code and evaluate it inside sxml, similar to unquote + Treat expression as code and evaluate it inside sxml, similar to unquote with quasiquote." (throw "sxml-unquote: Can't use outside of sxml")) @@ -965,7 +991,8 @@ (sxml (div (@ (data-foo \"hello\") (id \"foo\")) (span \"hello\") - (span \"world\")))" + (span \"world\"))) + ;; ==> <div data-foo=\"hello\" id=\"foo\"><span>hello</span><span>world</span></div>" (%sxml ',pragma expr))) ;; ----------------------------------------------------------------------------- @@ -975,7 +1002,7 @@ (define-macro (with-tags expr) "(with-tags expression) - Macro that evalute LIPS shorter code for S-Expression equivalent of JSX. + valutes LIPS shorter code for S-Expression equivalent of JSX. e.g.: (with-tags (:div (:class \"item\" :id \"item-1\") @@ -991,8 +1018,8 @@ (define (get-resource url) "(get-resource url) - Load JavaScript or CSS file in browser by adding script tag to head of the current document. - When called from Node it allow it allow to load JavaScript files only." + Load JavaScript or CSS file in browser by adding script/link tag to head of the current document. + When called from Node it allow it allows to load JavaScript files only." (typecheck "get-resource" url "string") (if (not (bound? 'document)) (if (eq? self global) @@ -1023,21 +1050,21 @@ (define (gensym? value) "(gensym? value) - Function return #t if value is symbol and it's gensym. It returns #f otherwise." + Returns #t if value is a symbol created by gensym. It returns #f otherwise." (and (symbol? value) (--> value (is_gensym)))) ;; ----------------------------------------------------------------------------- (define (degree->radians x) "(degree->radians x) - Convert degree to radians." + Convert degrees to radians." (* x (/ Math.PI 180))) ;; ----------------------------------------------------------------------------- (define (radians->degree x) "(radians->degree x) - Convert radians to degree." + Convert radians to degrees." (* x (/ 180 Math.PI))) ;; ----------------------------------------------------------------------------- @@ -1049,7 +1076,7 @@ body ...))) "(while cond . body) - Macro that create a loop, it exectue body until cond expression is false.") + Creates a loop, it executes cond and body until cond expression is false.") ;; ----------------------------------------------------------------------------- (define-syntax ++ @@ -1060,7 +1087,7 @@ tmp))) "(++ variable) - Macro that work only on variables and increment the value by one.") + Works only on variables and increment the value by one.") ;; ----------------------------------------------------------------------------- (define-syntax -- @@ -1071,13 +1098,13 @@ tmp))) "(-- variable) - Macro that decrement the value it work only on symbols") + Works only on variables and decrements the value by one.") ;; ----------------------------------------------------------------------------- (define (pretty-format . lists) "(pretty-format pair) - Function return pretty printed string from pair expression." + Returns a pretty printed string from pair expression." (let ((code (--> (list->vector lists) (map (lambda (pair i) (typecheck "pretty-pair" pair "pair" i) @@ -1089,7 +1116,7 @@ (define (reset) "(reset) - Function reset environment and remove all user defined variables." + Function resets the environment and removes all user defined variables." (let-env **interaction-environment** (let ((defaults **interaction-environment-defaults**) (env **interaction-environment**)) @@ -1105,21 +1132,42 @@ (array->list (--> (new Array n) (fill fill)))))) ;; ----------------------------------------------------------------------------- -(define (range n) - "(range n) - - Function return list of n numbers from 0 to n - 1" - (typecheck "range" n "number") - (array->list (--> (new Array n) (fill 0) (map (lambda (_ i) i))))) +(define (range stop . rest) + "(range stop) + (range start stop) + (range start stop step) + + Returns a list of numbers from start to stop with optional step. + If start is not defined it starts from 0. If start is larger than stop + the step needs to be negative otherwise it will hang in an infinite loop." + (let* ((i (if (null? rest) 0 stop)) + (stop (if (null? rest) stop (car rest))) + (step (if (or (null? rest) (null? (cdr rest))) + 1 + (cadr rest))) + (test (cond + ((> i stop) (lambda (i) + (and (< step 0) (>= i stop)))) + ((< i stop) (lambda + (i) (and (> step 0) (< i stop)))) + (else (lambda () false)))) + (result (vector))) + (typecheck "range" i "number" 1) + (typecheck "range" step "number" 2) + (typecheck "range" stop "number" 3) + (while (test i) + (result.push i) + (set! i (+ i step))) + (array->list result))) ;; ----------------------------------------------------------------------------- (define-macro (do-iterator spec cond . body) "(do-iterator (var expr) (test) body ...) - Macro iterate over iterators (e.g. create with JavaScript generator function) - it works with normal and async iterators. You can loop over infinite iterators - and break the loop if you want, using expression like in do macro, long sync iterators - will block main thread (you can't print 1000 numbers from inf iterators, + Iterates over iterators (e.g. creates with JavaScript generator function) + that works with normal and async iterators. You can loop over infinite iterators + and break the loop if you want, using expression like in do macro. Long synchronous iterators + will block the main thread (you can't print 1000 numbers from infinite iterators, because it will freeze the browser), but if you use async iterators you can process the values as they are generated." (let ((gen (gensym "name")) @@ -1144,22 +1192,22 @@ (,stop #f) (,name (. ,item "value"))) (while (not (or (eq? (. ,item "done") #t) ,stop)) - (if ,test - (set! ,stop #t) - (begin - ,@body)) + (if ,test + (set! ,stop #t) + (begin + ,@body)) (set! ,item (,next)) (set! ,name (. ,item "value"))))))))) ;; ----------------------------------------------------------------------------- (set-repr! Set (lambda () "#<Set>")) -(set-repr! Map (lambda () "#<Met>")) +(set-repr! Map (lambda () "#<Map>")) ;; ----------------------------------------------------------------------------- (define (native-symbol? x) "(native-symbol? object) - Function check if value is JavaScript symbol." + Checks if value is JavaScript Symbol." (and (string=? (type x) "symbol") (not (symbol? x)))) ;; ----------------------------------------------------------------------------- @@ -1169,17 +1217,17 @@ (define-macro (warn-quote) "(warn-quote) - Simple macro that throw error, when you try to use ’ symbol as quote in code" - (throw (new Error (string-append "You're using invalid quote character run: " + Simple macro that throws an error, when you try to use ’ symbol as quote in code." + (throw (new Error (string-append "You're using an invalid Unicode quote character. Run: " "(set-special! \"’\" 'quote)" - " to allow running this type of quote")))) + " to allow the use of this type of quote")))) ;; ----------------------------------------------------------------------------- (define-macro (let-env-values env spec . body) "(let-env-values env ((name var)) . body) - Macro add mapping for variables var from specified env, - Macro work similar to let-env but lexical scope is working with it." + Adds mappings for variables var from specified env. + it is similar to let-env but lexical scope is working with it." (let ((env-name (gensym 'env))) `(let ((,env-name ,env)) (let ,(map (lambda (pair) @@ -1191,7 +1239,7 @@ (define (apropos name) "(apropos name) - Search environment and display names that match the given name. + Search the current environment and display names that match the given name. name can be regex, string or symbol." (typecheck "apropos" name '("string" "regex" "symbol")) (let ((regex (lambda (string) @@ -1205,7 +1253,7 @@ (define (promisify fn) "(promisify fn) - Simple function for adding promises to NodeJS callback based function. + Simple function for adding promises to NodeJS two-callback based functions. Function tested only with fs module." (lambda args (new Promise (lambda (resolve reject) @@ -1218,7 +1266,7 @@ (define-macro (list* . args) "(list* arg1 ...) - Parallel version of list." + Parallel asynchronous version of list. Like begin* except all values are returned in a list." (let ((result (gensym "result"))) `(let ((,result (vector))) ,@(map (lambda (arg) @@ -1228,20 +1276,20 @@ ;; ----------------------------------------------------------------------------- (define-macro (%not-implemented name) - "(not-implemented name) + "(%not-implemented name) - Returns new function taht throw exception that function is not implmeneted" + Returns new function that throws an exception with a message that this function is not implemented." (let ((str-name (symbol->string name))) `(lambda () ,(string-append "(" str-name ")\n\nThis function is not yet implemented.") - (throw (new Error ,(string-append str-name " has not beed implemented")))))) + (throw (new Error ,(string-append str-name " has not been implemented")))))) ;; ----------------------------------------------------------------------------- (define-macro (%make-env name . names) "(%make-env name f1 f2 ...) - Create new Environment with given name and defined symbols in it from global env. - If given function name f1 f2 ... don't exists, it will define function that + Creates a new Environment with given name and defined symbols in it from the global env. + If given function name f1 f2 ... don't exist, it will define them as functions that throw exception that function is not yet implemented." `(new lips.Environment (alist->object (list ,@(map (lambda (name) `(cons ',name ,(let ((ref (lips.env.ref name))) @@ -1273,7 +1321,7 @@ (define (indexed-db?) "(indexed-db?) - Function test if indexedDB is available." + Function that tests if IndexedDB is available." (let* ((any (lambda args (let iter ((args args)) (if (null? args) @@ -1289,7 +1337,7 @@ (try (begin ;; open will fail in about:blank - (window.indexedDB.open "MyTestDatabase" 3) + (window.indexedDB.open "IndexedDBExistenceCheck" 3) true) (catch (e) false)) @@ -1299,7 +1347,7 @@ (define (environment? obj) "(environment? obj) - Function check if object is LIPS environment." + Checks if object is a LIPS environment." (instanceof lips.Environment obj)) ;; ----------------------------------------------------------------------------- @@ -1308,13 +1356,13 @@ (lambda (binary path) "(%read-file binary path) - Read file from url or file system. If binary is false it will return - string that contain all the content. For HTTP requests, If binary - is false it will: when in browser return ArrayBuffer and in Node - it will return Buffer object. When reading from file system - in both cases it will return Buffer objects. + Read file from url or file system. If binary is false it will return a + string that contain all the content. For HTTP requests, if binary + is false it will return an ArrayBuffer (when in a browser) or a Buffer + (when in NodeJS). When reading from the file system in both cases it will + return Buffer objects. - The code that use those function, in binary mode, need to check + Code that uses this function in binary mode needs to check if the result is ArrayBuffer or Node.js/BrowserFS Buffer object." (if (not read-file) (let ((fs (--> (interaction-environment) @@ -1356,7 +1404,7 @@ (define (%fs-promisify-proc fn message) "(%fs-promisify-proc fn string) - Function return promisified version of fs function or throw exception + Returns a promisified version of a fs function or throws an exception if fs is not available." (let ((fs (--> lips.env (get '**internal-env**) (get 'fs)))) (if (null? fs) @@ -1367,11 +1415,11 @@ (define (response->content binary res) "(response->text binary res) - Function read all text from Node.js HTTP response object. If binary argument + Reads all text from a Node.js HTTP response object. If binary argument is true it will return Buffer object that can be converted to u8vector. - ***Warrning:*** it may overflow the stack (part of Node) when converting - whole buffer to u8vector." + ***Warning:*** it may overflow the Javascript call stack when converting the + whole buffer to u8vector, because LIPS doesn't have TCO." (let ((result (vector)) (append (if binary (lambda (chunk) @@ -1396,15 +1444,14 @@ (lambda (url binary) "(http-get url) - Node.js Function that send HTTP Request and return string or - binary Buffer object." + This function is only available when running LIPS in NodeJS." (throw (new Error "http-get: function is Node.js only."))) (let* ((http (. (require "http") 'get)) (https (. (require "https") 'get))) (lambda (url binary) "(http-get url) - Node.js Function that send HTTP Request and return string or + Node.js function that sends a HTTP Request and returns a string or binary Buffer object." (let ((request (if (null? (url.match #/^https/)) http https))) (new Promise @@ -1424,8 +1471,8 @@ (define (buffer->u8vector bin) "(buffer->u8vector bin) - Cross platform function that can be used in both Node and Browser. - It can be used together with %read-file or %read-binary-file and convert + Cross platform function that can be used in both Node and browser. + It can be used together with %read-file or %read-binary-file to convert the result ArrayBuffer or Buffer to u8vector." (if (instanceof ArrayBuffer bin) (new Uint8Array bin) @@ -1435,7 +1482,7 @@ (define (complement fn) "(complement fn) - Higer order function that returns complement of the given function. If the function fn + Higher order function that returns the Boolean complement of the given function. If the function fn for a given arguments return true the result function will return false, if it would return false, the result function will return true." (typecheck "complement" fn "function") @@ -1446,7 +1493,7 @@ (define (always constant) "(always constant) - Higher order function returns new function that always return given constant." + Higher-order function that returns a new thunk that always returns the given constant when called." (lambda () constant)) @@ -1454,8 +1501,9 @@ (define (once fn) "(once fn) - Higher order function that return new function, that is guarantee - to be called only once." + Higher-order function that returns a new function, that only calls the original + on the first invocation, and immediately returns the first call's result again + on subsequent invocations." (typecheck "once" fn "function") (let ((result)) (lambda args @@ -1467,7 +1515,7 @@ (define (flip fn) "(flip fn) - Higher order function that return new function where first two arguments are swapped. + Higher-order function that returns a new function where the first two arguments are swapped. Example: @@ -1482,9 +1530,9 @@ (define (unfold fn init) "(unfold fn init) - Function returns list from given function and init value. The function should - return cons where first is the item added to the list and second is next value - passed to the funtion. If function return false it end the loop." + Returns a list from the given function and init value. The function should + return a pair where first is the item added to the list and second is next value + passed to the function. If the function returns false it ends the loop." (typecheck "unfold" fn "function") (let iter ((pair (fn init)) (result '())) (if (not pair) @@ -1499,13 +1547,18 @@ (define (symbol-append . rest) "(symbol-append s1 s2 ...) - Function create new symbol from symbols passed as arguments." + Function that creates a new symbol from symbols passed as arguments." (string->symbol (apply string-append (map symbol->string rest)))) ;; ----------------------------------------------------------------------------- (define-macro (set-global! name) "(set-global! name) - Macro make the name global variable." + Macro to make the name a Javascript global variable (i.e. accessible on globalThis)." (let ((var (symbol-append 'self. name))) `(set! ,var ,name))) + +;; ----------------------------------------------------------------------------- +(define performance (if (and (eq? self global) (not (bound? 'performance))) + (. (require "perf_hooks") 'performance) + performance)) diff --git a/lib/byte-vectors.scm b/lib/byte-vectors.scm index ffd005467..68acb99f1 100644 --- a/lib/byte-vectors.scm +++ b/lib/byte-vectors.scm @@ -1,7 +1,7 @@ ;; Implementation of byte vector functions - SRFI-4 and SRFI-160 ;; ;; original code was based on https://small.r7rs.org/wiki/NumericVectorsCowan/17/ -;; latest verion is defined in +;; latest version is defined in ;; https://srfi.schemers.org/srfi-160/srfi-160.html ;; ;; it uses JavaScript typed arrays @@ -15,8 +15,8 @@ (define-macro (%make-vector prefix type help) "(%make-vector prefix type help) - Mega helper macro that create list of functions for single byte vector - based on typed array from JavaScript" + Mega-helper macro that creates a list of functions for single byte vectors + based on typed arrays from JavaScript." (letrec ((prefix-str (symbol->string prefix)) (type-str (symbol->string type)) (l-type (--> type-str (toLowerCase))) @@ -67,7 +67,7 @@ (define (,vector? x) ,(format "(~a x) - Function return #t of argument is ~a otherwise it return #f." + Returns #t of argument is ~a otherwise it return #f." vector? help) (and (object? x) (equal? (. x 'constructor) ,type))) @@ -75,7 +75,7 @@ (define (,vector-in-range? vector k) ,(format "(~a vector k) - Function test if index is range for ~a." + Function that tests if index is range for ~a." vector-in-range? help) (typecheck ,(symbol->string vector-in-range?) vector ,l-type) @@ -86,7 +86,7 @@ (define (,vector-ref vector k) ,(format "(~a vector k) - Function return value frome vector at index k. If index is out of range it throw exception." + Returns value from vector at index k. If index is out of range it throw exception." vector-ref help) (typecheck ,(symbol->string vector-ref) vector ,l-type) @@ -126,14 +126,14 @@ (string-append ,repr-str (repr (,vector->list x) _quote)))) ))) ;; ----------------------------------------------------------------------------- -(%make-vector u8 Uint8Array "usigned 8-bit integer vector") -(%make-vector s8 Int8Array "signed 8-bit integer vector") -(%make-vector u16 Uint16Array "usigned 16-bit integer vector") -(%make-vector s16 Int16Array "signed 16-bit integer vector") -(%make-vector u32 Uint16Array "usigned 32-bit integer vector") -(%make-vector s32 Int16Array "signed 32-bit integer vector") -(%make-vector f32 Float32Array "32-bit IEEE floating point number vector") -(%make-vector f64 Float64Array "64-bit IEEE floating point number vector") +(%make-vector u8 Uint8Array "unsigned 8-bit integer vector (C unsigned char)") +(%make-vector s8 Int8Array "signed 8-bit integer vector (C signed char)") +(%make-vector u16 Uint16Array "unsigned 16-bit integer vector (C unsigned short)") +(%make-vector s16 Int16Array "signed 16-bit integer vector (C short)") +(%make-vector u32 Uint32Array "unsigned 32-bit integer vector (C int)") +(%make-vector s32 Int32Array "signed 32-bit integer vector (C unsigned int)") +(%make-vector f32 Float32Array "32-bit IEEE-754 floating point number vector (C float)") +(%make-vector f64 Float64Array "64-bit IEEE-754 floating point number vector (C double)") ;;vector->[type]vector! ;;list->[type]vector! diff --git a/lib/css/terminal.css b/lib/css/terminal.css index aa85e95b3..a5f35c2f3 100644 --- a/lib/css/terminal.css +++ b/lib/css/terminal.css @@ -1,8 +1,8 @@ -:root { - --background: transparent; +.lips.terminal { + --terminal: black; } -.terminal { - --background: black; +.terminal .token.__doc__::before { + color: var(--base-background, #000); } .terminal-output > :not(.raw) { position: relative; diff --git a/lib/init.scm b/lib/init.scm index e8cfbe786..2309f5566 100644 --- a/lib/init.scm +++ b/lib/init.scm @@ -12,7 +12,7 @@ (resolve (BrowserFS.BFSRequire "fs")) (reject e))))))) ((not (null? self.BrowserFS)) - (console.warn (string-append "BrowserFS not initilalized " + (console.warn (string-append "BrowserFS is not initialized and " "IndexedDB is not available")) nil))) (Buffer (cond ((eq? self global) diff --git a/lib/js/bookmark.js b/lib/js/bookmark.js index 3790de119..14df848eb 100755 --- a/lib/js/bookmark.js +++ b/lib/js/bookmark.js @@ -5,7 +5,7 @@ javascript:(function(next) { * Copyright (C) Jakub T. Jankiewicz <https://jcubic.pl/me> * Released under MIT license */ - /* global jQuery, terminal, lips */ + /* global jQuery, terminal, lips, Prism */ var orig_jQuery; var dolar; if (window.jQuery) { @@ -28,7 +28,7 @@ javascript:(function(next) { window.addEventListener('securitypolicyviolation', function handler(event) { if (event.blockedURI === 'https://cdn.jsdelivr.net/npm/jquery') { clearTimeout(timer); - alert('[WARN]: This bookmark will not run on this page becase of ' + + alert('[WARN]: This bookmark will not run on this page because of ' + 'Content Security Policy'); } window.removeEventListener('securitypolicyviolation', handler); @@ -159,10 +159,11 @@ javascript:(function(next) { next(); } var LIPS = `gh/jcubic/lips@${REF}`; + var cdn = 'https://cdn.jsdelivr.net'; [ - 'https://cdn.jsdelivr.net/gh/jcubic/jquery.terminal@devel/css/jquery.terminal.min.css', - `https://cdn.jsdelivr.net/${LIPS}/lib/css/terminal.css`, - 'https://cdn.jsdelivr.net/npm/terminal-prism/css/prism-coy.css' + `${cdn}/gh/jcubic/jquery.terminal@devel/css/jquery.terminal.min.css`, + `${cdn}/${LIPS}/lib/css/terminal.css`, + `${cdn}/npm/terminal-prism/css/prism-coy.css` ].forEach(function(url) { if (!$('link[href="' + url + '"]').length) { var link = $('<link href="' + url + '" rel="stylesheet"/>'); @@ -179,16 +180,16 @@ javascript:(function(next) { init(); } else { var scripts = [ - 'https://cdn.jsdelivr.net/npm/prismjs/prism.js', + `${cdn}/npm/prismjs/prism.js`, [ - 'https://cdn.jsdelivr.net/combine/gh/jcubic/jquery.terminal@3c8166de596b2e4ad539da5f0e1f8a48a937a2bc/js/jquery.terminal.min.js', + `${cdn}/combine/npm/jquery.terminal/js/jquery.terminal.min.js`, 'npm/jquery.terminal/js/prism.js', 'npm/prismjs/components/prism-scheme.min.js', `${LIPS}/lib/js/terminal.js`, `${LIPS}/lib/js/prism.js`, 'npm/js-polyfills/keyboard.js' ].join(','), - 'https://cdn.jsdelivr.net/npm/browserfs@1.x.x/dist/browserfs.min.js' + `${cdn}/npm/browserfs@1.x.x/dist/browserfs.min.js` ]; (function recur() { var script = scripts.shift(); @@ -196,7 +197,7 @@ javascript:(function(next) { if (window.lips) { init(); } else { - var url = `https://cdn.jsdelivr.net/${LIPS}/dist/lips.min.js`; + var url = `${cdn}/${LIPS}/dist/lips.min.js`; $.getScript(url, init); } } else if (script.match(/prism.js$/) && diff --git a/lib/js/codemirror.js b/lib/js/codemirror.js index 50e4d2cf2..c98948037 100644 --- a/lib/js/codemirror.js +++ b/lib/js/codemirror.js @@ -16,7 +16,7 @@ "use strict"; CodeMirror.defineMode("lips", function () { - var BUILTIN = "builtin", COMMENT = "comment", STRING = "string", + var BUILTIN = "builtin", COMMENT = "comment", STRING = "string", SYMBOL = "symbol", ATOM = "atom", NUMBER = "number", BRACKET = "bracket", REGEX = 'string-2'; var INDENT_WORD_SKIP = 2; @@ -67,6 +67,18 @@ CodeMirror.defineMode("lips", function () { function isHexNumber (stream) { return stream.match(hexMatcher); } + + function processEscapedSequence(stream, options) { + var next, escaped = false; + while ((next = stream.next()) != null) { + if (next == options.token && !escaped) { + + options.state.mode = false; + break; + } + escaped = !escaped && next == "\\"; + } + } return { startState: function () { @@ -93,17 +105,19 @@ CodeMirror.defineMode("lips", function () { switch(state.mode){ case "string": // multi-line string parsing mode - var next, escaped = false; - while ((next = stream.next()) != null) { - if (next == "\"" && !escaped) { - - state.mode = false; - break; - } - escaped = !escaped && next == "\\"; - } + processEscapedSequence(stream, { + token: "\"", + state: state + }); returnType = STRING; // continue on in scheme-string mode break; + case "symbol": // escape symbol + processEscapedSequence(stream, { + token: "|", + state: state + }); + returnType = SYMBOL; // continue on in scheme-symbol mode + break; case "comment": // comment parsing mode var next, maybeEnd = false; while ((next = stream.next()) != null) { @@ -147,6 +161,9 @@ CodeMirror.defineMode("lips", function () { stream.eatWhile(/[\w_\-!$%&*+\.\/:<=>?@\^~]/); returnType = ATOM; } + } else if (ch == '|') { + state.mode = "symbol"; + returnType = SYMBOL; } else if (ch == '#') { if (stream.eat("|")) { // Multi-line comment state.mode = "comment"; // toggle to comment mode @@ -174,7 +191,7 @@ CodeMirror.defineMode("lips", function () { } else if (stream.match(/^[-+0-9.]/, false)) { hasRadix = false; numTest = isDecimalNumber; - // re-consume the intial # if all matches failed + // re-consume the initial # if all matches failed } else if (!hasExactness) { stream.eat('#'); } diff --git a/lib/js/prism.js b/lib/js/prism.js index 1e32cafe0..45e3ef79e 100755 --- a/lib/js/prism.js +++ b/lib/js/prism.js @@ -1,5 +1,5 @@ /** - * This is file that extend scheme PrismJS sytnax to work better with LIPS + * This is file that extend scheme PrismJS syntax to work better with LIPS * This file is part of LIPS interpreter * Copyright (C) Jakub T. Jankiewicz <https://jcubic.pl> * @@ -8,7 +8,7 @@ */ /* global Prism */ -// extend scheme syntax in PrismJS to inlcude regular expressions +// extend scheme syntax in PrismJS to include regular expressions // (it's modification of JavaScript regex, only look behind was modified) Prism.languages.insertBefore('scheme', 'string', { 'regex': { diff --git a/lib/js/terminal.js b/lib/js/terminal.js index ceed883fe..cdf5d8788 100755 --- a/lib/js/terminal.js +++ b/lib/js/terminal.js @@ -1,5 +1,5 @@ /** - * This is example of usuage of LIPS interprter with jQuery Terminal + * This is example of usage of LIPS interprter with jQuery Terminal * * Features: tab completion * parenthesis matching @@ -62,7 +62,7 @@ var terminal = (function($) { } }, `(stack-trace) - Function display stack trace of last error`), + Displays the stack trace of the last error.`), // --------------------------------------------------------------------- 'display-error': doc(function(message) { term.error(message); @@ -172,9 +172,9 @@ var terminal = (function($) { mobileIngoreAutoSpace: [',', '.', ')'], completionEscape: false, wordAutocomplete: false, - doubleTab: function(string, maches, echo_command) { + doubleTab: function(string, matches, echo_command) { echo_command(); - this.echo(maches.map(command => { + this.echo(matches.map(command => { return lips.tokenize(command).pop(); }), { formatters: false diff --git a/lib/srfi/1.scm b/lib/srfi/1.scm index 04d667551..5e732d40a 100644 --- a/lib/srfi/1.scm +++ b/lib/srfi/1.scm @@ -228,7 +228,7 @@ (define-macro (check-arg fn value symbol) "(check-arg fn value symbol) - Macro typecheck using function. Used in SRFI-1 code" + Another form of the (typecheck) function. Used in SRFI-1 code." `(typecheck ,(symbol->string symbol) ,value ,fn)) ;; SRFI-8 diff --git a/lib/srfi/10.scm b/lib/srfi/10.scm index a8674dbc4..95bb09790 100644 --- a/lib/srfi/10.scm +++ b/lib/srfi/10.scm @@ -28,7 +28,7 @@ (define (define-reader-ctor symbol fn) "(define-reader-ctor symbol fn) - Define the value for #, syntax. SRFI-10 + Define the value for SRFI-10 #, syntax. Example: (define-reader-ctor '+ +) @@ -48,9 +48,8 @@ ((cdr node) 'arg ...) (syntax-error (string-append "Invalid symbol " (symbol->string 'fn) " in expression " (repr '(fn arg ...)))))))) - "(sharp-comma expr) - #,(ctor ...) + "(sharp-comma expr) or #,(expr ...) This is syntax extension for SRFI-10. To define the function to be used with - This syntax you need to call `define-reader-ctor` function and define - symbol function mapping.") + this syntax you need to call `define-reader-ctor` to and define a + symbol-to-function mapping.") diff --git a/lib/srfi/193.scm b/lib/srfi/193.scm index e376f607b..314f2e65d 100644 --- a/lib/srfi/193.scm +++ b/lib/srfi/193.scm @@ -18,7 +18,7 @@ (define (command-name) "(command-name) - Function returns LIPS script that was executed or #f." + Returns the LIPS script that was executed or #f." (let* ((cmd (command-line)) (name (car cmd))) (and (> (length name) 0) name))) @@ -27,7 +27,7 @@ (define (command-args) "(command-args) - Function returns list of arguments for LIPS script that was executed." + Returns the list of arguments for LIPS script that was executed." (let* ((cmd (command-line)) (args (cdr cmd))) (if (null? args) @@ -38,7 +38,7 @@ (define (script-file) "(script-file) - Function returns absolute path for LIPS script that was executed or #f." + Returns absolute path for LIPS script that was executed or #f." (if (eq? self window) #f (let ((name (command-name))) @@ -48,7 +48,7 @@ (define (script-directory) "(script-file) - Function returns list of absolute path for directory of LIPS script that was executed or #f." + Returns list of absolute path for directory of LIPS script that was executed or #f." (if (eq? self window) #f (let ((path (require "path")) diff --git a/lib/srfi/2.scm b/lib/srfi/2.scm index 07c8b4b3b..76824ebbb 100644 --- a/lib/srfi/2.scm +++ b/lib/srfi/2.scm @@ -25,6 +25,6 @@ (syntax-error "ill-formed and-let* form"))) "(and-let* ((name expression) expression ...) body) - Macro that combine let and and. First expression need to be in form of let. + Combines let and and. First expression needs to be in form of let. Symbol expression the rest can be boolean expression or name expreession. This is implementation of SRFI-2.") diff --git a/package-lock.json b/package-lock.json index 169358695..197c1691d 100644 --- a/package-lock.json +++ b/package-lock.json @@ -10,13 +10,9 @@ "license": "MIT", "dependencies": { "@jcubic/lily": "^0.3.0", - "@mermaid-js/mermaid-cli": "^9.0.3", - "@rollup/plugin-babel": "^5.3.0", - "@rollup/plugin-commonjs": "^21.0.1", - "@rollup/plugin-node-resolve": "^13.1.3", "bn.js": "^5.2.0", - "cbor-extract": "^1.0.0", - "cbor-x": "^0.8.3", + "cbor-extract": "^2.1.1", + "cbor-x": "^1.5.4", "lzjb-pack": "^0.2.0", "prism-cli": "^0.5.3", "prismjs": "^1.27.0", @@ -35,6 +31,10 @@ "@babel/preset-env": "^7.16.11", "@babel/runtime": "^7.17.2", "@babel/runtime-corejs2": "^7.17.2", + "@mermaid-js/mermaid-cli": "^10.0.2", + "@rollup/plugin-babel": "^5.3.1", + "@rollup/plugin-commonjs": "^22.0.0", + "@rollup/plugin-node-resolve": "^13.3.0", "acorn": "^8.7.0", "ava": "^4.0.1", "babel-preset-env": "^1.7.0", @@ -42,6 +42,7 @@ "babel-preset-stage-0": "^6.24.1", "benchmark": "^2.1.4", "c8": "^7.11.0", + "compare-versions": "^6.1.0", "coveralls": "^3.1.1", "eslint": "^8.8.0", "microtime": "^3.0.0", @@ -58,6 +59,7 @@ "version": "2.1.1", "resolved": "https://registry.npmjs.org/@ampproject/remapping/-/remapping-2.1.1.tgz", "integrity": "sha512-Aolwjd7HSC2PyY0fDj/wA/EimQT4HfEnFYNp5s9CQlrdhyvWTtvZ5YzrUPu6R6/1jKiUlxu8bUhkdSnKHNAHMA==", + "dev": true, "dependencies": { "@jridgewell/trace-mapping": "^0.3.0" }, @@ -69,6 +71,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/code-frame/-/code-frame-7.16.7.tgz", "integrity": "sha512-iAXqUn8IIeBTNd72xsFlgaXHkMBMt6y4HJp1tIaK465CWLT/fG1aqB7ykr95gHHmlBdGbFeWWfyB4NJJ0nmeIg==", + "dev": true, "dependencies": { "@babel/highlight": "^7.16.7" }, @@ -80,6 +83,7 @@ "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/compat-data/-/compat-data-7.17.0.tgz", "integrity": "sha512-392byTlpGWXMv4FbyWw3sAZ/FrW/DrwqLGXpy0mbyNe9Taqv1mg9yON5/o0cnr8XYCkFTZbC1eV+c+LAROgrng==", + "dev": true, "engines": { "node": ">=6.9.0" } @@ -88,6 +92,7 @@ "version": "7.17.2", "resolved": "https://registry.npmjs.org/@babel/core/-/core-7.17.2.tgz", "integrity": "sha512-R3VH5G42VSDolRHyUO4V2cfag8WHcZyxdq5Z/m8Xyb92lW/Erm/6kM+XtRFGf3Mulre3mveni2NHfEUws8wSvw==", + "dev": true, "dependencies": { "@ampproject/remapping": "^2.0.0", "@babel/code-frame": "^7.16.7", @@ -117,6 +122,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true, "engines": { "node": ">=6.9.0" } @@ -125,6 +131,7 @@ "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.17.0.tgz", "integrity": "sha512-TmKSNO4D5rzhL5bjWFcVHHLETzfQ/AmbKpKPOSjlP0WoHZ6L911fgoOKY4Alp/emzG4cHJdyN49zpgkbXFEHHw==", + "dev": true, "dependencies": { "@babel/helper-validator-identifier": "^7.16.7", "to-fast-properties": "^2.0.0" @@ -137,6 +144,7 @@ "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/generator/-/generator-7.17.0.tgz", "integrity": "sha512-I3Omiv6FGOC29dtlZhkfXO6pgkmukJSlT26QjVvS1DGZe/NzSVCPG41X0tS21oZkJYlovfj9qDWgKP+Cn4bXxw==", + "dev": true, "dependencies": { "@babel/types": "^7.17.0", "jsesc": "^2.5.1", @@ -150,6 +158,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true, "engines": { "node": ">=6.9.0" } @@ -158,6 +167,7 @@ "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.17.0.tgz", "integrity": "sha512-TmKSNO4D5rzhL5bjWFcVHHLETzfQ/AmbKpKPOSjlP0WoHZ6L911fgoOKY4Alp/emzG4cHJdyN49zpgkbXFEHHw==", + "dev": true, "dependencies": { "@babel/helper-validator-identifier": "^7.16.7", "to-fast-properties": "^2.0.0" @@ -239,6 +249,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-compilation-targets/-/helper-compilation-targets-7.16.7.tgz", "integrity": "sha512-mGojBwIWcwGD6rfqgRXVlVYmPAv7eOpIemUG3dGnDdCY4Pae70ROij3XmfrH6Fa1h1aiDylpglbZyktfzyo/hA==", + "dev": true, "dependencies": { "@babel/compat-data": "^7.16.4", "@babel/helper-validator-option": "^7.16.7", @@ -312,6 +323,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-environment-visitor/-/helper-environment-visitor-7.16.7.tgz", "integrity": "sha512-SLLb0AAn6PkUeAfKJCCOl9e1R53pQlGAfc4y4XuMRZfqeMYLE0dM1LMhqbGAlGQY0lfw5/ohoYWAe9V1yibRag==", + "dev": true, "dependencies": { "@babel/types": "^7.16.7" }, @@ -323,6 +335,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true, "engines": { "node": ">=6.9.0" } @@ -331,6 +344,7 @@ "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.17.0.tgz", "integrity": "sha512-TmKSNO4D5rzhL5bjWFcVHHLETzfQ/AmbKpKPOSjlP0WoHZ6L911fgoOKY4Alp/emzG4cHJdyN49zpgkbXFEHHw==", + "dev": true, "dependencies": { "@babel/helper-validator-identifier": "^7.16.7", "to-fast-properties": "^2.0.0" @@ -377,6 +391,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-function-name/-/helper-function-name-7.16.7.tgz", "integrity": "sha512-QfDfEnIUyyBSR3HtrtGECuZ6DAyCkYFp7GHl75vFtTnn6pjKeK0T1DB5lLkFvBea8MdaiUABx3osbgLyInoejA==", + "dev": true, "dependencies": { "@babel/helper-get-function-arity": "^7.16.7", "@babel/template": "^7.16.7", @@ -390,6 +405,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true, "engines": { "node": ">=6.9.0" } @@ -398,6 +414,7 @@ "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.17.0.tgz", "integrity": "sha512-TmKSNO4D5rzhL5bjWFcVHHLETzfQ/AmbKpKPOSjlP0WoHZ6L911fgoOKY4Alp/emzG4cHJdyN49zpgkbXFEHHw==", + "dev": true, "dependencies": { "@babel/helper-validator-identifier": "^7.16.7", "to-fast-properties": "^2.0.0" @@ -410,6 +427,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-get-function-arity/-/helper-get-function-arity-7.16.7.tgz", "integrity": "sha512-flc+RLSOBXzNzVhcLu6ujeHUrD6tANAOU5ojrRx/as+tbzf8+stUCj7+IfRRoAbEZqj/ahXEMsjhOhgeZsrnTw==", + "dev": true, "dependencies": { "@babel/types": "^7.16.7" }, @@ -421,6 +439,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true, "engines": { "node": ">=6.9.0" } @@ -429,6 +448,7 @@ "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.17.0.tgz", "integrity": "sha512-TmKSNO4D5rzhL5bjWFcVHHLETzfQ/AmbKpKPOSjlP0WoHZ6L911fgoOKY4Alp/emzG4cHJdyN49zpgkbXFEHHw==", + "dev": true, "dependencies": { "@babel/helper-validator-identifier": "^7.16.7", "to-fast-properties": "^2.0.0" @@ -441,6 +461,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-hoist-variables/-/helper-hoist-variables-7.16.7.tgz", "integrity": "sha512-m04d/0Op34H5v7pbZw6pSKP7weA6lsMvfiIAMeIvkY/R4xQtBSMFEigu9QTZ2qB/9l22vsxtM8a+Q8CzD255fg==", + "dev": true, "dependencies": { "@babel/types": "^7.16.7" }, @@ -452,6 +473,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true, "engines": { "node": ">=6.9.0" } @@ -460,6 +482,7 @@ "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.17.0.tgz", "integrity": "sha512-TmKSNO4D5rzhL5bjWFcVHHLETzfQ/AmbKpKPOSjlP0WoHZ6L911fgoOKY4Alp/emzG4cHJdyN49zpgkbXFEHHw==", + "dev": true, "dependencies": { "@babel/helper-validator-identifier": "^7.16.7", "to-fast-properties": "^2.0.0" @@ -506,6 +529,7 @@ "version": "7.15.4", "resolved": "https://registry.npmjs.org/@babel/helper-module-imports/-/helper-module-imports-7.15.4.tgz", "integrity": "sha512-jeAHZbzUwdW/xHgHQ3QmWR4Jg6j15q4w/gCfwZvtqOxoo5DKtLHk8Bsf4c5RZRC7NmLEs+ohkdq8jFefuvIxAA==", + "dev": true, "dependencies": { "@babel/types": "^7.15.4" }, @@ -517,6 +541,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-module-transforms/-/helper-module-transforms-7.16.7.tgz", "integrity": "sha512-gaqtLDxJEFCeQbYp9aLAefjhkKdjKcdh6DB7jniIGU3Pz52WAmP268zK0VgPz9hUNkMSYeH976K2/Y6yPadpng==", + "dev": true, "dependencies": { "@babel/helper-environment-visitor": "^7.16.7", "@babel/helper-module-imports": "^7.16.7", @@ -535,6 +560,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-module-imports/-/helper-module-imports-7.16.7.tgz", "integrity": "sha512-LVtS6TqjJHFc+nYeITRo6VLXve70xmq7wPhWTqDJusJEgGmkAACWwMiTNrvfoQo6hEhFwAIixNkvB0jPXDL8Wg==", + "dev": true, "dependencies": { "@babel/types": "^7.16.7" }, @@ -546,6 +572,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true, "engines": { "node": ">=6.9.0" } @@ -554,6 +581,7 @@ "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.17.0.tgz", "integrity": "sha512-TmKSNO4D5rzhL5bjWFcVHHLETzfQ/AmbKpKPOSjlP0WoHZ6L911fgoOKY4Alp/emzG4cHJdyN49zpgkbXFEHHw==", + "dev": true, "dependencies": { "@babel/helper-validator-identifier": "^7.16.7", "to-fast-properties": "^2.0.0" @@ -683,6 +711,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-simple-access/-/helper-simple-access-7.16.7.tgz", "integrity": "sha512-ZIzHVyoeLMvXMN/vok/a4LWRy8G2v205mNP0XOuf9XRLyX5/u9CnVulUtDgUTama3lT+bf/UqucuZjqiGuTS1g==", + "dev": true, "dependencies": { "@babel/types": "^7.16.7" }, @@ -694,6 +723,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true, "engines": { "node": ">=6.9.0" } @@ -702,6 +732,7 @@ "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.17.0.tgz", "integrity": "sha512-TmKSNO4D5rzhL5bjWFcVHHLETzfQ/AmbKpKPOSjlP0WoHZ6L911fgoOKY4Alp/emzG4cHJdyN49zpgkbXFEHHw==", + "dev": true, "dependencies": { "@babel/helper-validator-identifier": "^7.16.7", "to-fast-properties": "^2.0.0" @@ -748,6 +779,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-split-export-declaration/-/helper-split-export-declaration-7.16.7.tgz", "integrity": "sha512-xbWoy/PFoxSWazIToT9Sif+jJTlrMcndIsaOKvTA6u7QEo7ilkRZpjew18/W3c7nm8fXdUDXh02VXTbZ0pGDNw==", + "dev": true, "dependencies": { "@babel/types": "^7.16.7" }, @@ -759,6 +791,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true, "engines": { "node": ">=6.9.0" } @@ -767,6 +800,7 @@ "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.17.0.tgz", "integrity": "sha512-TmKSNO4D5rzhL5bjWFcVHHLETzfQ/AmbKpKPOSjlP0WoHZ6L911fgoOKY4Alp/emzG4cHJdyN49zpgkbXFEHHw==", + "dev": true, "dependencies": { "@babel/helper-validator-identifier": "^7.16.7", "to-fast-properties": "^2.0.0" @@ -779,6 +813,7 @@ "version": "7.15.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.15.7.tgz", "integrity": "sha512-K4JvCtQqad9OY2+yTU8w+E82ywk/fe+ELNlt1G8z3bVGlZfn/hOcQQsUhGhW/N+tb3fxK800wLtKOE/aM0m72w==", + "dev": true, "engines": { "node": ">=6.9.0" } @@ -787,6 +822,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-option/-/helper-validator-option-7.16.7.tgz", "integrity": "sha512-TRtenOuRUVo9oIQGPC5G9DgK4743cdxvtOw0weQNpZXaS16SCBi5MNjZF8vba3ETURjZpTbVn7Vvcf2eAwFozQ==", + "dev": true, "engines": { "node": ">=6.9.0" } @@ -832,6 +868,7 @@ "version": "7.17.2", "resolved": "https://registry.npmjs.org/@babel/helpers/-/helpers-7.17.2.tgz", "integrity": "sha512-0Qu7RLR1dILozr/6M0xgj+DFPmi6Bnulgm9M8BVa9ZCWxDqlSnqt3cf8IDPB5m45sVXUZ0kuQAgUrdSFFH79fQ==", + "dev": true, "dependencies": { "@babel/template": "^7.16.7", "@babel/traverse": "^7.17.0", @@ -845,6 +882,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true, "engines": { "node": ">=6.9.0" } @@ -853,6 +891,7 @@ "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.17.0.tgz", "integrity": "sha512-TmKSNO4D5rzhL5bjWFcVHHLETzfQ/AmbKpKPOSjlP0WoHZ6L911fgoOKY4Alp/emzG4cHJdyN49zpgkbXFEHHw==", + "dev": true, "dependencies": { "@babel/helper-validator-identifier": "^7.16.7", "to-fast-properties": "^2.0.0" @@ -865,6 +904,7 @@ "version": "7.16.10", "resolved": "https://registry.npmjs.org/@babel/highlight/-/highlight-7.16.10.tgz", "integrity": "sha512-5FnTQLSLswEj6IkgVw5KusNUUFY9ZGqe/TRFnP/BKYHYgfh7tc+C7mwiy95/yNP7Dh9x580Vv8r7u7ZfTBFxdw==", + "dev": true, "dependencies": { "@babel/helper-validator-identifier": "^7.16.7", "chalk": "^2.0.0", @@ -878,6 +918,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true, "engines": { "node": ">=6.9.0" } @@ -886,6 +927,7 @@ "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/parser/-/parser-7.17.0.tgz", "integrity": "sha512-VKXSCQx5D8S04ej+Dqsr1CzYvvWgf20jIw2D+YhQCrIlr2UZGaDds23Y0xg75/skOxpLCRpUZvk/1EAVkGoDOw==", + "dev": true, "bin": { "parser": "bin/babel-parser.js" }, @@ -2123,6 +2165,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/template/-/template-7.16.7.tgz", "integrity": "sha512-I8j/x8kHUrbYRTUxXrrMbfCa7jxkE7tZre39x3kjr9hvI82cK1FfqLygotcWN5kdPGWcLdWMHpSBavse5tWw3w==", + "dev": true, "dependencies": { "@babel/code-frame": "^7.16.7", "@babel/parser": "^7.16.7", @@ -2136,6 +2179,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true, "engines": { "node": ">=6.9.0" } @@ -2144,6 +2188,7 @@ "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.17.0.tgz", "integrity": "sha512-TmKSNO4D5rzhL5bjWFcVHHLETzfQ/AmbKpKPOSjlP0WoHZ6L911fgoOKY4Alp/emzG4cHJdyN49zpgkbXFEHHw==", + "dev": true, "dependencies": { "@babel/helper-validator-identifier": "^7.16.7", "to-fast-properties": "^2.0.0" @@ -2156,6 +2201,7 @@ "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/traverse/-/traverse-7.17.0.tgz", "integrity": "sha512-fpFIXvqD6kC7c7PUNnZ0Z8cQXlarCLtCUpt2S1Dx7PjoRtCFffvOkHHSom+m5HIxMZn5bIBVb71lhabcmjEsqg==", + "dev": true, "dependencies": { "@babel/code-frame": "^7.16.7", "@babel/generator": "^7.17.0", @@ -2176,6 +2222,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true, "engines": { "node": ">=6.9.0" } @@ -2184,6 +2231,7 @@ "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.17.0.tgz", "integrity": "sha512-TmKSNO4D5rzhL5bjWFcVHHLETzfQ/AmbKpKPOSjlP0WoHZ6L911fgoOKY4Alp/emzG4cHJdyN49zpgkbXFEHHw==", + "dev": true, "dependencies": { "@babel/helper-validator-identifier": "^7.16.7", "to-fast-properties": "^2.0.0" @@ -2196,6 +2244,7 @@ "version": "7.15.6", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.15.6.tgz", "integrity": "sha512-BPU+7QhqNjmWyDO0/vitH/CuhpV8ZmK1wpKva8nuyNF5MJfuRNWMc+hc14+u9xT93kvykMdncrJT19h74uB1Ig==", + "dev": true, "dependencies": { "@babel/helper-validator-identifier": "^7.14.9", "to-fast-properties": "^2.0.0" @@ -2210,10 +2259,77 @@ "integrity": "sha512-0hYQ8SB4Db5zvZB4axdMHGwEaQjkZzFjQiN9LVYvIFB2nSUHW9tYpxWriPrWDASIxiaXax83REcLxuSdnGPZtw==", "dev": true }, - "node_modules/@braintree/sanitize-url": { - "version": "6.0.0", - "resolved": "https://registry.npmjs.org/@braintree/sanitize-url/-/sanitize-url-6.0.0.tgz", - "integrity": "sha512-mgmE7XBYY/21erpzhexk4Cj1cyTQ9LzvnTxtzM17BJ7ERMNE6W72mQRo0I1Ud8eFJ+RVVIcBNhLFZ3GX4XFz5w==" + "node_modules/@cbor-extract/cbor-extract-darwin-arm64": { + "version": "2.1.1", + "resolved": "https://registry.npmjs.org/@cbor-extract/cbor-extract-darwin-arm64/-/cbor-extract-darwin-arm64-2.1.1.tgz", + "integrity": "sha512-blVBy5MXz6m36Vx0DfLd7PChOQKEs8lK2bD1WJn/vVgG4FXZiZmZb2GECHFvVPA5T7OnODd9xZiL3nMCv6QUhA==", + "cpu": [ + "arm64" + ], + "optional": true, + "os": [ + "darwin" + ] + }, + "node_modules/@cbor-extract/cbor-extract-darwin-x64": { + "version": "2.1.1", + "resolved": "https://registry.npmjs.org/@cbor-extract/cbor-extract-darwin-x64/-/cbor-extract-darwin-x64-2.1.1.tgz", + "integrity": "sha512-h6KFOzqk8jXTvkOftyRIWGrd7sKQzQv2jVdTL9nKSf3D2drCvQB/LHUxAOpPXo3pv2clDtKs3xnHalpEh3rDsw==", + "cpu": [ + "x64" + ], + "optional": true, + "os": [ + "darwin" + ] + }, + "node_modules/@cbor-extract/cbor-extract-linux-arm": { + "version": "2.1.1", + "resolved": "https://registry.npmjs.org/@cbor-extract/cbor-extract-linux-arm/-/cbor-extract-linux-arm-2.1.1.tgz", + "integrity": "sha512-ds0uikdcIGUjPyraV4oJqyVE5gl/qYBpa/Wnh6l6xLE2lj/hwnjT2XcZCChdXwW/YFZ1LUHs6waoYN8PmK0nKQ==", + "cpu": [ + "arm" + ], + "optional": true, + "os": [ + "linux" + ] + }, + "node_modules/@cbor-extract/cbor-extract-linux-arm64": { + "version": "2.1.1", + "resolved": "https://registry.npmjs.org/@cbor-extract/cbor-extract-linux-arm64/-/cbor-extract-linux-arm64-2.1.1.tgz", + "integrity": "sha512-SxAaRcYf8S0QHaMc7gvRSiTSr7nUYMqbUdErBEu+HYA4Q6UNydx1VwFE68hGcp1qvxcy9yT5U7gA+a5XikfwSQ==", + "cpu": [ + "arm64" + ], + "optional": true, + "os": [ + "linux" + ] + }, + "node_modules/@cbor-extract/cbor-extract-linux-x64": { + "version": "2.1.1", + "resolved": "https://registry.npmjs.org/@cbor-extract/cbor-extract-linux-x64/-/cbor-extract-linux-x64-2.1.1.tgz", + "integrity": "sha512-GVK+8fNIE9lJQHAlhOROYiI0Yd4bAZ4u++C2ZjlkS3YmO6hi+FUxe6Dqm+OKWTcMpL/l71N6CQAmaRcb4zyJuA==", + "cpu": [ + "x64" + ], + "optional": true, + "os": [ + "linux" + ] + }, + "node_modules/@cbor-extract/cbor-extract-win32-x64": { + "version": "2.1.1", + "resolved": "https://registry.npmjs.org/@cbor-extract/cbor-extract-win32-x64/-/cbor-extract-win32-x64-2.1.1.tgz", + "integrity": "sha512-2Niq1C41dCRIDeD8LddiH+mxGlO7HJ612Ll3D/E73ZWBmycued+8ghTr/Ho3CMOWPUEr08XtyBMVXAjqF+TcKw==", + "cpu": [ + "x64" + ], + "optional": true, + "os": [ + "win32" + ] }, "node_modules/@eslint/eslintrc": { "version": "1.0.5", @@ -2343,6 +2459,7 @@ "version": "3.0.5", "resolved": "https://registry.npmjs.org/@jridgewell/resolve-uri/-/resolve-uri-3.0.5.tgz", "integrity": "sha512-VPeQ7+wH0itvQxnG+lIzWgkysKIr3L9sslimFW55rHMdGu/qCQ5z5h9zq4gI8uBtqkpHhsF4Z/OwExufUCThew==", + "dev": true, "engines": { "node": ">=6.0.0" } @@ -2350,79 +2467,48 @@ "node_modules/@jridgewell/sourcemap-codec": { "version": "1.4.11", "resolved": "https://registry.npmjs.org/@jridgewell/sourcemap-codec/-/sourcemap-codec-1.4.11.tgz", - "integrity": "sha512-Fg32GrJo61m+VqYSdRSjRXMjQ06j8YIYfcTqndLYVAaHmroZHLJZCydsWBOTDqXS2v+mjxohBWEMfg97GXmYQg==" + "integrity": "sha512-Fg32GrJo61m+VqYSdRSjRXMjQ06j8YIYfcTqndLYVAaHmroZHLJZCydsWBOTDqXS2v+mjxohBWEMfg97GXmYQg==", + "dev": true }, "node_modules/@jridgewell/trace-mapping": { "version": "0.3.4", "resolved": "https://registry.npmjs.org/@jridgewell/trace-mapping/-/trace-mapping-0.3.4.tgz", "integrity": "sha512-vFv9ttIedivx0ux3QSjhgtCVjPZd5l46ZOMDSCwnH1yUO2e964gO8LZGyv2QkqcgR6TnBU1v+1IFqmeoG+0UJQ==", + "dev": true, "dependencies": { "@jridgewell/resolve-uri": "^3.0.3", "@jridgewell/sourcemap-codec": "^1.4.10" } }, "node_modules/@mermaid-js/mermaid-cli": { - "version": "9.0.3", - "resolved": "https://registry.npmjs.org/@mermaid-js/mermaid-cli/-/mermaid-cli-9.0.3.tgz", - "integrity": "sha512-Frh3pInE16H3GA9J1/uYIHIAaqB6nJBbwU5XHCbVoyPs+LOU91sVM6fTI5SZYqyn8intu1cL1hfu6z74G7Lorw==", + "version": "10.0.2", + "resolved": "https://registry.npmjs.org/@mermaid-js/mermaid-cli/-/mermaid-cli-10.0.2.tgz", + "integrity": "sha512-dz5ye9wWJjL3jtWtL6pYeKwo74CeCbn8SpvxKEH4Wuc0esDvSpxC+J/Wlsbd6BKvMzLN2J+5voy03kto0J7mOg==", + "dev": true, "dependencies": { - "chalk": "^4.1.0", - "commander": "^9.0.0", - "mermaid": "^9.0.0", - "puppeteer": "^13.0.0" + "chalk": "^5.0.1", + "commander": "^10.0.0", + "puppeteer": "^19.0.0" }, "bin": { - "mmdc": "index.bundle.js" - } - }, - "node_modules/@mermaid-js/mermaid-cli/node_modules/ansi-styles": { - "version": "4.3.0", - "resolved": "https://registry.npmjs.org/ansi-styles/-/ansi-styles-4.3.0.tgz", - "integrity": "sha512-zbB9rCJAT1rbjiVDb2hqKFHNYLxgtk8NURxZ3IZwD3F6NtxbXZQCnnSi1Lkx+IDohdPlFp222wVALIheZJQSEg==", - "dependencies": { - "color-convert": "^2.0.1" + "mmdc": "src/cli.js" }, "engines": { - "node": ">=8" - }, - "funding": { - "url": "https://github.com/chalk/ansi-styles?sponsor=1" + "node": "^14.13 || >=16.0" } }, "node_modules/@mermaid-js/mermaid-cli/node_modules/chalk": { - "version": "4.1.2", - "resolved": "https://registry.npmjs.org/chalk/-/chalk-4.1.2.tgz", - "integrity": "sha512-oKnbhFyRIXpUuez8iBMmyEa4nbj4IOQyuhc/wy9kY7/WVPcwIO9VA668Pu8RkO7+0G76SLROeyw9CpQ061i4mA==", - "dependencies": { - "ansi-styles": "^4.1.0", - "supports-color": "^7.1.0" - }, + "version": "5.2.0", + "resolved": "https://registry.npmjs.org/chalk/-/chalk-5.2.0.tgz", + "integrity": "sha512-ree3Gqw/nazQAPuJJEy+avdl7QfZMcUvmHIKgEZkGL+xOBzRvup5Hxo6LHuMceSxOabuJLJm5Yp/92R9eMmMvA==", + "dev": true, "engines": { - "node": ">=10" + "node": "^12.17.0 || ^14.13 || >=16.0.0" }, "funding": { "url": "https://github.com/chalk/chalk?sponsor=1" } }, - "node_modules/@mermaid-js/mermaid-cli/node_modules/has-flag": { - "version": "4.0.0", - "resolved": "https://registry.npmjs.org/has-flag/-/has-flag-4.0.0.tgz", - "integrity": "sha512-EykJT/Q1KjTWctppgIAgfSO0tKVuZUjhgMr17kqTumMl6Afv3EISleU7qZUzoXDFTAHTDC4NOoG/ZxU3EvlMPQ==", - "engines": { - "node": ">=8" - } - }, - "node_modules/@mermaid-js/mermaid-cli/node_modules/supports-color": { - "version": "7.2.0", - "resolved": "https://registry.npmjs.org/supports-color/-/supports-color-7.2.0.tgz", - "integrity": "sha512-qpCAvRl9stuOHveKsn7HncJRvv501qIacKzQlO/+Lwxc9+0q2wLyv4Dfvt80/DPn2pqOBsJdDiogXGR9+OvwRw==", - "dependencies": { - "has-flag": "^4.0.0" - }, - "engines": { - "node": ">=8" - } - }, "node_modules/@nodelib/fs.scandir": { "version": "2.1.5", "resolved": "https://registry.npmjs.org/@nodelib/fs.scandir/-/fs.scandir-2.1.5.tgz", @@ -2458,10 +2544,41 @@ "node": ">= 8" } }, + "node_modules/@puppeteer/browsers": { + "version": "0.3.2", + "resolved": "https://registry.npmjs.org/@puppeteer/browsers/-/browsers-0.3.2.tgz", + "integrity": "sha512-YAwrqy68PskkCDnSsv0afR8l8u90KhodcIFXCage5NLAoeWm0STGmtVugLBp2wc5PnhnCapCKkMjp9fYjvJl2g==", + "dev": true, + "dependencies": { + "debug": "4.3.4", + "extract-zip": "2.0.1", + "https-proxy-agent": "5.0.1", + "progress": "2.0.3", + "proxy-from-env": "1.1.0", + "tar-fs": "2.1.1", + "unbzip2-stream": "1.4.3", + "yargs": "17.7.1" + }, + "bin": { + "browsers": "lib/cjs/main-cli.js" + }, + "engines": { + "node": ">=14.1.0" + }, + "peerDependencies": { + "typescript": ">= 4.7.4" + }, + "peerDependenciesMeta": { + "typescript": { + "optional": true + } + } + }, "node_modules/@rollup/plugin-babel": { - "version": "5.3.0", - "resolved": "https://registry.npmjs.org/@rollup/plugin-babel/-/plugin-babel-5.3.0.tgz", - "integrity": "sha512-9uIC8HZOnVLrLHxayq/PTzw+uS25E14KPUBh5ktF+18Mjo5yK0ToMMx6epY0uEgkjwJw0aBW4x2horYXh8juWw==", + "version": "5.3.1", + "resolved": "https://registry.npmjs.org/@rollup/plugin-babel/-/plugin-babel-5.3.1.tgz", + "integrity": "sha512-WFfdLWU/xVWKeRQnKmIAQULUI7Il0gZnBIH/ZFO069wYIfPu+8zrfp/KMW0atmELoRDq8FbiP3VCss9MhCut7Q==", + "dev": true, "dependencies": { "@babel/helper-module-imports": "^7.10.4", "@rollup/pluginutils": "^3.1.0" @@ -2481,9 +2598,10 @@ } }, "node_modules/@rollup/plugin-commonjs": { - "version": "21.0.1", - "resolved": "https://registry.npmjs.org/@rollup/plugin-commonjs/-/plugin-commonjs-21.0.1.tgz", - "integrity": "sha512-EA+g22lbNJ8p5kuZJUYyhhDK7WgJckW5g4pNN7n4mAFUM96VuwUnNT3xr2Db2iCZPI1pJPbGyfT5mS9T1dHfMg==", + "version": "22.0.0", + "resolved": "https://registry.npmjs.org/@rollup/plugin-commonjs/-/plugin-commonjs-22.0.0.tgz", + "integrity": "sha512-Ktvf2j+bAO+30awhbYoCaXpBcyPmJbaEUYClQns/+6SNCYFURbvBiNbWgHITEsIgDDWCDUclWRKEuf8cwZCFoQ==", + "dev": true, "dependencies": { "@rollup/pluginutils": "^3.1.0", "commondir": "^1.0.1", @@ -2494,26 +2612,28 @@ "resolve": "^1.17.0" }, "engines": { - "node": ">= 8.0.0" + "node": ">= 12.0.0" }, "peerDependencies": { - "rollup": "^2.38.3" + "rollup": "^2.68.0" } }, "node_modules/@rollup/plugin-commonjs/node_modules/estree-walker": { "version": "2.0.2", "resolved": "https://registry.npmjs.org/estree-walker/-/estree-walker-2.0.2.tgz", - "integrity": "sha512-Rfkk/Mp/DL7JVje3u18FxFujQlTNR2q6QfMSMB7AvCBx91NGj/ba3kCfza0f6dVDbw7YlRf/nDrn7pQrCCyQ/w==" + "integrity": "sha512-Rfkk/Mp/DL7JVje3u18FxFujQlTNR2q6QfMSMB7AvCBx91NGj/ba3kCfza0f6dVDbw7YlRf/nDrn7pQrCCyQ/w==", + "dev": true }, "node_modules/@rollup/plugin-node-resolve": { - "version": "13.1.3", - "resolved": "https://registry.npmjs.org/@rollup/plugin-node-resolve/-/plugin-node-resolve-13.1.3.tgz", - "integrity": "sha512-BdxNk+LtmElRo5d06MGY4zoepyrXX1tkzX2hrnPEZ53k78GuOMWLqmJDGIIOPwVRIFZrLQOo+Yr6KtCuLIA0AQ==", + "version": "13.3.0", + "resolved": "https://registry.npmjs.org/@rollup/plugin-node-resolve/-/plugin-node-resolve-13.3.0.tgz", + "integrity": "sha512-Lus8rbUo1eEcnS4yTFKLZrVumLPY+YayBdWXgFSHYhTT2iJbMhoaaBL3xl5NCdeRytErGr8tZ0L71BMRmnlwSw==", + "dev": true, "dependencies": { "@rollup/pluginutils": "^3.1.0", "@types/resolve": "1.17.1", - "builtin-modules": "^3.1.0", "deepmerge": "^4.2.2", + "is-builtin-module": "^3.1.0", "is-module": "^1.0.0", "resolve": "^1.19.0" }, @@ -2528,6 +2648,7 @@ "version": "3.1.0", "resolved": "https://registry.npmjs.org/@rollup/pluginutils/-/pluginutils-3.1.0.tgz", "integrity": "sha512-GksZ6pr6TpIjHm8h9lSQ8pi8BE9VeubNT0OMJ3B5uZJ8pz73NPiqOtCog/x2/QzM1ENChPKxMDhiQuRHsqc+lg==", + "dev": true, "dependencies": { "@types/estree": "0.0.39", "estree-walker": "^1.0.1", @@ -2543,17 +2664,20 @@ "node_modules/@rollup/pluginutils/node_modules/@types/estree": { "version": "0.0.39", "resolved": "https://registry.npmjs.org/@types/estree/-/estree-0.0.39.tgz", - "integrity": "sha512-EYNwp3bU+98cpU4lAWYYL7Zz+2gryWH1qbdDTidVd6hkiR6weksdbMadyXKXNPEkQFhXM+hVO9ZygomHXp+AIw==" + "integrity": "sha512-EYNwp3bU+98cpU4lAWYYL7Zz+2gryWH1qbdDTidVd6hkiR6weksdbMadyXKXNPEkQFhXM+hVO9ZygomHXp+AIw==", + "dev": true }, "node_modules/@rollup/pluginutils/node_modules/estree-walker": { "version": "1.0.1", "resolved": "https://registry.npmjs.org/estree-walker/-/estree-walker-1.0.1.tgz", - "integrity": "sha512-1fMXF3YP4pZZVozF8j/ZLfvnR8NSIljt56UhbZ5PeeDmmGHpgpdwQt7ITlGvYaQukCvuBRMLEiKiYC+oeIg4cg==" + "integrity": "sha512-1fMXF3YP4pZZVozF8j/ZLfvnR8NSIljt56UhbZ5PeeDmmGHpgpdwQt7ITlGvYaQukCvuBRMLEiKiYC+oeIg4cg==", + "dev": true }, "node_modules/@types/estree": { "version": "0.0.50", "resolved": "https://registry.npmjs.org/@types/estree/-/estree-0.0.50.tgz", - "integrity": "sha512-C6N5s2ZFtuZRj54k2/zyRhNDjJwwcViAM3Nbm8zjBpbqAdZ00mr0CFxvSKeO8Y/e03WVFLpQMdHYVfUd6SB+Hw==" + "integrity": "sha512-C6N5s2ZFtuZRj54k2/zyRhNDjJwwcViAM3Nbm8zjBpbqAdZ00mr0CFxvSKeO8Y/e03WVFLpQMdHYVfUd6SB+Hw==", + "dev": true }, "node_modules/@types/istanbul-lib-coverage": { "version": "2.0.4", @@ -2564,20 +2688,23 @@ "node_modules/@types/node": { "version": "17.0.17", "resolved": "https://registry.npmjs.org/@types/node/-/node-17.0.17.tgz", - "integrity": "sha512-e8PUNQy1HgJGV3iU/Bp2+D/DXh3PYeyli8LgIwsQcs1Ar1LoaWHSIT6Rw+H2rNJmiq6SNWiDytfx8+gYj7wDHw==" + "integrity": "sha512-e8PUNQy1HgJGV3iU/Bp2+D/DXh3PYeyli8LgIwsQcs1Ar1LoaWHSIT6Rw+H2rNJmiq6SNWiDytfx8+gYj7wDHw==", + "dev": true }, "node_modules/@types/resolve": { "version": "1.17.1", "resolved": "https://registry.npmjs.org/@types/resolve/-/resolve-1.17.1.tgz", "integrity": "sha512-yy7HuzQhj0dhGpD8RLXSZWEkLsV9ibvxvi6EiJ3bkqLAO1RGo0WbkWQiwpRlSFymTJRz0d3k5LM3kkx8ArDbLw==", + "dev": true, "dependencies": { "@types/node": "*" } }, "node_modules/@types/yauzl": { - "version": "2.9.2", - "resolved": "https://registry.npmjs.org/@types/yauzl/-/yauzl-2.9.2.tgz", - "integrity": "sha512-8uALY5LTvSuHgloDVUvWP3pIauILm+8/0pDMokuDYIoNsOkSwd5AiHBTSEJjKTDcZr5z8UpgOWZkxBF4iJftoA==", + "version": "2.10.0", + "resolved": "https://registry.npmjs.org/@types/yauzl/-/yauzl-2.10.0.tgz", + "integrity": "sha512-Cn6WYCm0tXv8p6k+A8PvbDG763EDpBoTzHdA+Q/MF6H3sapGjCm9NzoaJncJS9tUKSuCoDs9XHxYYsQDgxR6kw==", + "dev": true, "optional": true, "dependencies": { "@types/node": "*" @@ -2617,6 +2744,7 @@ "version": "6.0.2", "resolved": "https://registry.npmjs.org/agent-base/-/agent-base-6.0.2.tgz", "integrity": "sha512-RZNwNclF7+MS/8bDg70amg32dyeZGZxiDuQmZxKLAlQjr3jGyLx+4Kkk58UO7D2QdgFIQCovuSuZESne6RG6XQ==", + "dev": true, "dependencies": { "debug": "4" }, @@ -2666,6 +2794,7 @@ "version": "3.2.1", "resolved": "https://registry.npmjs.org/ansi-styles/-/ansi-styles-3.2.1.tgz", "integrity": "sha512-VT0ZI6kZRdTh8YyJw3SMbYm/u+NqfsAxEpWO0Pf9sq8/e94WxxOpPKx9FR1FlyCtOVDNOQ+8ntlqFxiRc+r5qA==", + "dev": true, "dependencies": { "color-convert": "^1.9.0" }, @@ -2677,6 +2806,7 @@ "version": "1.9.3", "resolved": "https://registry.npmjs.org/color-convert/-/color-convert-1.9.3.tgz", "integrity": "sha512-QfAUtd+vFdAtFQcC8CCyYt1fYWxSqAiK2cSD6zDB8N3cpsEBAvRxp9zOGg6G/SHHJYAT88/az/IuDGALsNVbGg==", + "dev": true, "dependencies": { "color-name": "1.1.3" } @@ -2684,7 +2814,8 @@ "node_modules/ansi-styles/node_modules/color-name": { "version": "1.1.3", "resolved": "https://registry.npmjs.org/color-name/-/color-name-1.1.3.tgz", - "integrity": "sha1-p9BVi9icQveV3UIyj3QIMcpTvCU=" + "integrity": "sha1-p9BVi9icQveV3UIyj3QIMcpTvCU=", + "dev": true }, "node_modules/anymatch": { "version": "3.1.2", @@ -2892,29 +3023,6 @@ "url": "https://github.com/chalk/chalk?sponsor=1" } }, - "node_modules/ava/node_modules/debug": { - "version": "4.3.3", - "resolved": "https://registry.npmjs.org/debug/-/debug-4.3.3.tgz", - "integrity": "sha512-/zxw5+vh1Tfv+4Qn7a5nsbcJKPaSvCDhojn6FEl9vupwK2VCSDtEiEtqr8DFtzYFOdz63LBkxec7DYuc2jon6Q==", - "dev": true, - "dependencies": { - "ms": "2.1.2" - }, - "engines": { - "node": ">=6.0" - }, - "peerDependenciesMeta": { - "supports-color": { - "optional": true - } - } - }, - "node_modules/ava/node_modules/debug/node_modules/ms": { - "version": "2.1.2", - "resolved": "https://registry.npmjs.org/ms/-/ms-2.1.2.tgz", - "integrity": "sha512-sGkPx+VjMtmA6MX27oA4FBFELFCZZ4S4XqeGOXCv68tT+jb3vk/RyaKWP0PTKyWtmLSM0b+adUTEvbs1PEaH2w==", - "dev": true - }, "node_modules/ava/node_modules/indent-string": { "version": "5.0.0", "resolved": "https://registry.npmjs.org/indent-string/-/indent-string-5.0.0.tgz", @@ -3977,12 +4085,14 @@ "node_modules/balanced-match": { "version": "1.0.2", "resolved": "https://registry.npmjs.org/balanced-match/-/balanced-match-1.0.2.tgz", - "integrity": "sha512-3oSeUO0TMV67hN1AmbXsK4yaqU7tjiHlbxRDZOpH0KW9+CeX4bRAaX0Anxt0tx2MrpRpWwQaPwIlISEJhYU5Pw==" + "integrity": "sha512-3oSeUO0TMV67hN1AmbXsK4yaqU7tjiHlbxRDZOpH0KW9+CeX4bRAaX0Anxt0tx2MrpRpWwQaPwIlISEJhYU5Pw==", + "dev": true }, "node_modules/base64-js": { "version": "1.5.1", "resolved": "https://registry.npmjs.org/base64-js/-/base64-js-1.5.1.tgz", "integrity": "sha512-AKpaYlHn8t4SVbOHCy+b5+KKgvR4vrsD8vbvrbiQJps7fKDTkjkDry6ji0rUJjC0kzbNePLwzxq8iypo41qeWA==", + "dev": true, "funding": [ { "type": "github", @@ -4030,6 +4140,7 @@ "version": "4.1.0", "resolved": "https://registry.npmjs.org/bl/-/bl-4.1.0.tgz", "integrity": "sha512-1W07cM9gS6DcLperZfFSj+bWLtaPGSOHWhPiGzXmvVJbRLdG82sH/Kn8EtW1VqWVA54AKf2h5k5BbnIbwF3h6w==", + "dev": true, "dependencies": { "buffer": "^5.5.0", "inherits": "^2.0.4", @@ -4051,6 +4162,7 @@ "version": "1.1.11", "resolved": "https://registry.npmjs.org/brace-expansion/-/brace-expansion-1.1.11.tgz", "integrity": "sha512-iCuPHDFgrHX7H2vEI/5xpz07zSHB00TpugqhmYtVmMO6518mCuRMoOYFldEBl0g187ufozdaHgWKcYFb61qGiA==", + "dev": true, "dependencies": { "balanced-match": "^1.0.0", "concat-map": "0.0.1" @@ -4072,6 +4184,7 @@ "version": "4.19.1", "resolved": "https://registry.npmjs.org/browserslist/-/browserslist-4.19.1.tgz", "integrity": "sha512-u2tbbG5PdKRTUoctO3NBD8FQ5HdPh1ZXPHzp1rwaa5jTc+RV9/+RlWiAIKmjRPQF+xbGM9Kklj5bZQFa2s/38A==", + "dev": true, "dependencies": { "caniuse-lite": "^1.0.30001286", "electron-to-chromium": "^1.4.17", @@ -4090,24 +4203,17 @@ "url": "https://opencollective.com/browserslist" } }, - "node_modules/browserslist/node_modules/caniuse-lite": { - "version": "1.0.30001311", - "resolved": "https://registry.npmjs.org/caniuse-lite/-/caniuse-lite-1.0.30001311.tgz", - "integrity": "sha512-mleTFtFKfykEeW34EyfhGIFjGCqzhh38Y0LhdQ9aWF+HorZTtdgKV/1hEE0NlFkG2ubvisPV6l400tlbPys98A==", - "funding": { - "type": "opencollective", - "url": "https://opencollective.com/browserslist" - } - }, "node_modules/browserslist/node_modules/electron-to-chromium": { "version": "1.4.68", "resolved": "https://registry.npmjs.org/electron-to-chromium/-/electron-to-chromium-1.4.68.tgz", - "integrity": "sha512-cId+QwWrV8R1UawO6b9BR1hnkJ4EJPCPAr4h315vliHUtVUJDk39Sg1PMNnaWKfj5x+93ssjeJ9LKL6r8LaMiA==" + "integrity": "sha512-cId+QwWrV8R1UawO6b9BR1hnkJ4EJPCPAr4h315vliHUtVUJDk39Sg1PMNnaWKfj5x+93ssjeJ9LKL6r8LaMiA==", + "dev": true }, "node_modules/buffer": { "version": "5.7.1", "resolved": "https://registry.npmjs.org/buffer/-/buffer-5.7.1.tgz", "integrity": "sha512-EHcyIPBQ4BSGlvjB16k5KgAJ27CIsHY/2JBmCRReo48y9rQ3MaUzWX3KVlBa4U7MyX02HdVj0K7C3WaB3ju7FQ==", + "dev": true, "funding": [ { "type": "github", @@ -4130,7 +4236,8 @@ "node_modules/buffer-crc32": { "version": "0.2.13", "resolved": "https://registry.npmjs.org/buffer-crc32/-/buffer-crc32-0.2.13.tgz", - "integrity": "sha1-DTM+PwDqxQqhRUq9MO+MKl2ackI=", + "integrity": "sha512-VO9Ht/+p3SN7SKWqcrgEzjGbRSJYTx+Q1pTQC0wrWqHx0vpJraQ6GtHx8tvcg1rlK1byhU5gccxgOgj7B0TDkQ==", + "dev": true, "engines": { "node": "*" } @@ -4142,9 +4249,10 @@ "dev": true }, "node_modules/builtin-modules": { - "version": "3.2.0", - "resolved": "https://registry.npmjs.org/builtin-modules/-/builtin-modules-3.2.0.tgz", - "integrity": "sha512-lGzLKcioL90C7wMczpkY0n/oART3MbBa8R9OFGE1rJxoVI86u4WAGfEk8Wjv10eKSyTHVGkSo3bvBylCEtk7LA==", + "version": "3.3.0", + "resolved": "https://registry.npmjs.org/builtin-modules/-/builtin-modules-3.3.0.tgz", + "integrity": "sha512-zhaCDicdLuWN5UbN5IMnFqNMhNfo919sH85y2/ea+5Yg9TsTkeZxpL+JLbp6cgYFS4sRLp3YV4S6yDuqVWHYOw==", + "dev": true, "engines": { "node": ">=6" }, @@ -4328,14 +4436,24 @@ } }, "node_modules/caniuse-lite": { - "version": "1.0.30001270", - "resolved": "https://registry.npmjs.org/caniuse-lite/-/caniuse-lite-1.0.30001270.tgz", - "integrity": "sha512-TcIC7AyNWXhcOmv2KftOl1ShFAaHQYcB/EPL/hEyMrcS7ZX0/DvV1aoy6BzV0+16wTpoAyTMGDNAJfSqS/rz7A==", + "version": "1.0.30001564", + "resolved": "https://registry.npmjs.org/caniuse-lite/-/caniuse-lite-1.0.30001564.tgz", + "integrity": "sha512-DqAOf+rhof+6GVx1y+xzbFPeOumfQnhYzVnZD6LAXijR77yPtm9mfOcqOnT3mpnJiZVT+kwLAFnRlZcIz+c6bg==", "dev": true, - "funding": { - "type": "opencollective", - "url": "https://opencollective.com/browserslist" - } + "funding": [ + { + "type": "opencollective", + "url": "https://opencollective.com/browserslist" + }, + { + "type": "tidelift", + "url": "https://tidelift.com/funding/github/npm/caniuse-lite" + }, + { + "type": "github", + "url": "https://github.com/sponsors/ai" + } + ] }, "node_modules/caseless": { "version": "0.12.0", @@ -4356,59 +4474,38 @@ } }, "node_modules/cbor-extract": { - "version": "1.0.0", - "resolved": "https://registry.npmjs.org/cbor-extract/-/cbor-extract-1.0.0.tgz", - "integrity": "sha512-2y71EsPT4dJjtS24JIZfzUodm7kNrJJouIL7U4YiO1bl5QJyCHz9j810x/d+A/L+1BWQCE0771TiBrVmDL0MOA==", + "version": "2.1.1", + "resolved": "https://registry.npmjs.org/cbor-extract/-/cbor-extract-2.1.1.tgz", + "integrity": "sha512-1UX977+L+zOJHsp0mWFG13GLwO6ucKgSmSW6JTl8B9GUvACvHeIVpFqhU92299Z6PfD09aTXDell5p+lp1rUFA==", "hasInstallScript": true, "dependencies": { - "nan": "^2.14.2", - "node-gyp-build": "^4.2.3" - } - }, - "node_modules/cbor-extract/node_modules/node-gyp-build": { - "version": "4.3.0", - "resolved": "https://registry.npmjs.org/node-gyp-build/-/node-gyp-build-4.3.0.tgz", - "integrity": "sha512-iWjXZvmboq0ja1pUGULQBexmxq8CV4xBhX7VDOTbL7ZR4FOowwY/VOtRxBN/yKxmdGoIp4j5ysNT4u3S2pDQ3Q==", + "node-gyp-build-optional-packages": "5.0.3" + }, "bin": { - "node-gyp-build": "bin.js", - "node-gyp-build-optional": "optional.js", - "node-gyp-build-test": "build-test.js" + "download-cbor-prebuilds": "bin/download-prebuilds.js" + }, + "optionalDependencies": { + "@cbor-extract/cbor-extract-darwin-arm64": "2.1.1", + "@cbor-extract/cbor-extract-darwin-x64": "2.1.1", + "@cbor-extract/cbor-extract-linux-arm": "2.1.1", + "@cbor-extract/cbor-extract-linux-arm64": "2.1.1", + "@cbor-extract/cbor-extract-linux-x64": "2.1.1", + "@cbor-extract/cbor-extract-win32-x64": "2.1.1" } }, "node_modules/cbor-x": { - "version": "0.8.3", - "resolved": "https://registry.npmjs.org/cbor-x/-/cbor-x-0.8.3.tgz", - "integrity": "sha512-tc/+0i31OpHEzPlztuhqpKF4dze/onFK6acJBiDDKLt5U3NY6snX0AVZinfl3PhMwJBy+0eYHEtBPBM8Wtr/cA==", + "version": "1.5.4", + "resolved": "https://registry.npmjs.org/cbor-x/-/cbor-x-1.5.4.tgz", + "integrity": "sha512-PVKILDn+Rf6MRhhcyzGXi5eizn1i0i3F8Fe6UMMxXBnWkalq9+C5+VTmlIjAYM4iF2IYF2N+zToqAfYOp+3rfw==", "optionalDependencies": { - "cbor-extract": "^0.3.1" - } - }, - "node_modules/cbor-x/node_modules/cbor-extract": { - "version": "0.3.2", - "resolved": "https://registry.npmjs.org/cbor-extract/-/cbor-extract-0.3.2.tgz", - "integrity": "sha512-euTSudP3MORNR9+DLDY6seMBZ5EA32CLdobmN5IjmU00zZDnim1zSZZAVrNubKfoBFhckDJFJXSx6zOLNbIYqw==", - "hasInstallScript": true, - "optional": true, - "dependencies": { - "nan": "^2.14.2", - "node-gyp-build": "^4.2.3" - } - }, - "node_modules/cbor-x/node_modules/node-gyp-build": { - "version": "4.4.0", - "resolved": "https://registry.npmjs.org/node-gyp-build/-/node-gyp-build-4.4.0.tgz", - "integrity": "sha512-amJnQCcgtRVw9SvoebO3BKGESClrfXGCUTX9hSn1OuGQTQBOZmVd0Z0OlecpuRksKvbsUqALE8jls/ErClAPuQ==", - "optional": true, - "bin": { - "node-gyp-build": "bin.js", - "node-gyp-build-optional": "optional.js", - "node-gyp-build-test": "build-test.js" + "cbor-extract": "^2.1.1" } }, "node_modules/chalk": { "version": "2.4.2", "resolved": "https://registry.npmjs.org/chalk/-/chalk-2.4.2.tgz", "integrity": "sha512-Mti+f9lpJNcwF4tWV8/OrTTtF1gZi+f8FqlyAdouralcFWFQWF2+NgCHShjkCb+IFBLq9buZwE1xckQU4peSuQ==", + "dev": true, "dependencies": { "ansi-styles": "^3.2.1", "escape-string-regexp": "^1.0.5", @@ -4448,7 +4545,20 @@ "node_modules/chownr": { "version": "1.1.4", "resolved": "https://registry.npmjs.org/chownr/-/chownr-1.1.4.tgz", - "integrity": "sha512-jJ0bqzaylmJtVnNgzTeSOs8DPavpbYgEr/b0YL8/2GO3xJEhInFmhKMUnEJQjZumK7KXGFhUy89PrsJWlakBVg==" + "integrity": "sha512-jJ0bqzaylmJtVnNgzTeSOs8DPavpbYgEr/b0YL8/2GO3xJEhInFmhKMUnEJQjZumK7KXGFhUy89PrsJWlakBVg==", + "dev": true + }, + "node_modules/chromium-bidi": { + "version": "0.4.6", + "resolved": "https://registry.npmjs.org/chromium-bidi/-/chromium-bidi-0.4.6.tgz", + "integrity": "sha512-TQOkWRaLI/IWvoP8XC+7jO4uHTIiAUiklXU1T0qszlUFEai9LgKXIBXy3pOS3EnQZ3bQtMbKUPkug0fTAEHCSw==", + "dev": true, + "dependencies": { + "mitt": "3.0.0" + }, + "peerDependencies": { + "devtools-protocol": "*" + } }, "node_modules/chunkd": { "version": "2.0.1", @@ -4579,6 +4689,7 @@ "version": "2.0.1", "resolved": "https://registry.npmjs.org/color-convert/-/color-convert-2.0.1.tgz", "integrity": "sha512-RRECPsj7iu/xb5oKYcsFHSppFNnsj/52OVTRKb4zP5onXwVF3zVmmToNcOfGC+CRDpfK/U584fMg38ZHCaElKQ==", + "dev": true, "dependencies": { "color-name": "~1.1.4" }, @@ -4589,7 +4700,8 @@ "node_modules/color-name": { "version": "1.1.4", "resolved": "https://registry.npmjs.org/color-name/-/color-name-1.1.4.tgz", - "integrity": "sha512-dOy+3AuW3a2wNbZHIuMZpTcgjGuLU/uBL/ubcZF9OXbDo8ff4O8yVp5Bf0efS8uEoYo5q4Fx7dY9OgQGXgAsQA==" + "integrity": "sha512-dOy+3AuW3a2wNbZHIuMZpTcgjGuLU/uBL/ubcZF9OXbDo8ff4O8yVp5Bf0efS8uEoYo5q4Fx7dY9OgQGXgAsQA==", + "dev": true }, "node_modules/combined-stream": { "version": "1.0.8", @@ -4604,11 +4716,12 @@ } }, "node_modules/commander": { - "version": "9.2.0", - "resolved": "https://registry.npmjs.org/commander/-/commander-9.2.0.tgz", - "integrity": "sha512-e2i4wANQiSXgnrBlIatyHtP1odfUp0BbV5Y5nEGbxtIrStkEOAAzCUirvLBNXHLr7kwLvJl6V+4V3XV9x7Wd9w==", + "version": "10.0.0", + "resolved": "https://registry.npmjs.org/commander/-/commander-10.0.0.tgz", + "integrity": "sha512-zS5PnTI22FIRM6ylNW8G4Ap0IEOyk62fhLSD0+uHRT9McRCLGpkVNvao4bjimpK/GShynyQkFFxHhwMcETmduA==", + "dev": true, "engines": { - "node": "^12.20.0 || >=14" + "node": ">=14" } }, "node_modules/common-path-prefix": { @@ -4620,12 +4733,20 @@ "node_modules/commondir": { "version": "1.0.1", "resolved": "https://registry.npmjs.org/commondir/-/commondir-1.0.1.tgz", - "integrity": "sha1-3dgA2gxmEnOTzKWVDqloo6rxJTs=" + "integrity": "sha1-3dgA2gxmEnOTzKWVDqloo6rxJTs=", + "dev": true + }, + "node_modules/compare-versions": { + "version": "6.1.0", + "resolved": "https://registry.npmjs.org/compare-versions/-/compare-versions-6.1.0.tgz", + "integrity": "sha512-LNZQXhqUvqUTotpZ00qLSaify3b4VFD588aRr8MKFw4CMUr98ytzCW5wDH5qx/DEY5kCDXcbcRuCqL0szEf2tg==", + "dev": true }, "node_modules/concat-map": { "version": "0.0.1", "resolved": "https://registry.npmjs.org/concat-map/-/concat-map-0.0.1.tgz", - "integrity": "sha1-2Klr13/Wjfd5OnMDajug1UBdR3s=" + "integrity": "sha1-2Klr13/Wjfd5OnMDajug1UBdR3s=", + "dev": true }, "node_modules/concordance": { "version": "5.0.4", @@ -4665,6 +4786,7 @@ "version": "1.8.0", "resolved": "https://registry.npmjs.org/convert-source-map/-/convert-source-map-1.8.0.tgz", "integrity": "sha512-+OQdjP49zViI/6i7nIJpA8rAl4sV/JdPfU9nZs3VqOwGIgizICvuN2ru6fMd+4llL0tar18UYJXfZ/TWtmhUjA==", + "dev": true, "dependencies": { "safe-buffer": "~5.1.1" } @@ -4682,7 +4804,7 @@ "version": "2.6.12", "resolved": "https://registry.npmjs.org/core-js/-/core-js-2.6.12.tgz", "integrity": "sha512-Kb2wC0fvsWfQrgk8HU5lW6U/Lcs8+9aaYcy4ZFc6DDlo4nZ7n70dEgE5rtR0oG6ufKDUnrwfWL1mXR5ljDatrQ==", - "deprecated": "core-js@<3.4 is no longer maintained and not recommended for usage due to the number of issues. Because of the V8 engine whims, feature detection in old core-js versions could cause a slowdown up to 100x even if nothing is polyfilled. Please, upgrade your dependencies to the actual version of core-js.", + "deprecated": "core-js@<3.23.3 is no longer maintained and not recommended for usage due to the number of issues. Because of the V8 engine whims, feature detection in old core-js versions could cause a slowdown up to 100x even if nothing is polyfilled. Some versions have web compatibility issues. Please, upgrade your dependencies to the actual version of core-js.", "dev": true, "hasInstallScript": true }, @@ -4715,6 +4837,42 @@ "integrity": "sha1-tf1UIgqivFq1eqtxQMlAdUUDwac=", "dev": true }, + "node_modules/cosmiconfig": { + "version": "8.1.3", + "resolved": "https://registry.npmjs.org/cosmiconfig/-/cosmiconfig-8.1.3.tgz", + "integrity": "sha512-/UkO2JKI18b5jVMJUp0lvKFMpa/Gye+ZgZjKD+DGEN9y7NRcf/nK1A0sp67ONmKtnDCNMS44E6jrk0Yc3bDuUw==", + "dev": true, + "dependencies": { + "import-fresh": "^3.2.1", + "js-yaml": "^4.1.0", + "parse-json": "^5.0.0", + "path-type": "^4.0.0" + }, + "engines": { + "node": ">=14" + }, + "funding": { + "url": "https://github.com/sponsors/d-fischer" + } + }, + "node_modules/cosmiconfig/node_modules/argparse": { + "version": "2.0.1", + "resolved": "https://registry.npmjs.org/argparse/-/argparse-2.0.1.tgz", + "integrity": "sha512-8+9WqebbFzpX9OR+Wa6O29asIogeRMzcGtAINdpMHHyAg10f05aSFVBbcEqGf/PXw1EjAZ+q2/bEBg3DvurK3Q==", + "dev": true + }, + "node_modules/cosmiconfig/node_modules/js-yaml": { + "version": "4.1.0", + "resolved": "https://registry.npmjs.org/js-yaml/-/js-yaml-4.1.0.tgz", + "integrity": "sha512-wpxZs9NoxZaJESJGIZTyDEaYpl0FKSA+FB9aJiyemKhMwkxQg63h4T1KJgUGHpTqPDNRcmmYLugrRjJlBtWvRA==", + "dev": true, + "dependencies": { + "argparse": "^2.0.1" + }, + "bin": { + "js-yaml": "bin/js-yaml.js" + } + }, "node_modules/coveralls": { "version": "3.1.1", "resolved": "https://registry.npmjs.org/coveralls/-/coveralls-3.1.1.tgz", @@ -4738,6 +4896,7 @@ "version": "3.1.5", "resolved": "https://registry.npmjs.org/cross-fetch/-/cross-fetch-3.1.5.tgz", "integrity": "sha512-lvb1SBsI0Z7GDwmuid+mU3kWVBwTVUbe7S0H52yaaAdQOXq2YktTCZdlAcNKFzE6QtRz0snpw9bNiPeOIkkQvw==", + "dev": true, "dependencies": { "node-fetch": "2.6.7" } @@ -4768,695 +4927,6 @@ "node": ">=0.10.0" } }, - "node_modules/d3": { - "version": "7.4.4", - "resolved": "https://registry.npmjs.org/d3/-/d3-7.4.4.tgz", - "integrity": "sha512-97FE+MYdAlV3R9P74+R3Uar7wUKkIFu89UWMjEaDhiJ9VxKvqaMxauImy8PC2DdBkdM2BxJOIoLxPrcZUyrKoQ==", - "dependencies": { - "d3-array": "3", - "d3-axis": "3", - "d3-brush": "3", - "d3-chord": "3", - "d3-color": "3", - "d3-contour": "3", - "d3-delaunay": "6", - "d3-dispatch": "3", - "d3-drag": "3", - "d3-dsv": "3", - "d3-ease": "3", - "d3-fetch": "3", - "d3-force": "3", - "d3-format": "3", - "d3-geo": "3", - "d3-hierarchy": "3", - "d3-interpolate": "3", - "d3-path": "3", - "d3-polygon": "3", - "d3-quadtree": "3", - "d3-random": "3", - "d3-scale": "4", - "d3-scale-chromatic": "3", - "d3-selection": "3", - "d3-shape": "3", - "d3-time": "3", - "d3-time-format": "4", - "d3-timer": "3", - "d3-transition": "3", - "d3-zoom": "3" - }, - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-array": { - "version": "3.1.6", - "resolved": "https://registry.npmjs.org/d3-array/-/d3-array-3.1.6.tgz", - "integrity": "sha512-DCbBBNuKOeiR9h04ySRBMW52TFVc91O9wJziuyXw6Ztmy8D3oZbmCkOO3UHKC7ceNJsN2Mavo9+vwV8EAEUXzA==", - "dependencies": { - "internmap": "1 - 2" - }, - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-axis": { - "version": "3.0.0", - "resolved": "https://registry.npmjs.org/d3-axis/-/d3-axis-3.0.0.tgz", - "integrity": "sha512-IH5tgjV4jE/GhHkRV0HiVYPDtvfjHQlQfJHs0usq7M30XcSBvOotpmH1IgkcXsO/5gEQZD43B//fc7SRT5S+xw==", - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-brush": { - "version": "3.0.0", - "resolved": "https://registry.npmjs.org/d3-brush/-/d3-brush-3.0.0.tgz", - "integrity": "sha512-ALnjWlVYkXsVIGlOsuWH1+3udkYFI48Ljihfnh8FZPF2QS9o+PzGLBslO0PjzVoHLZ2KCVgAM8NVkXPJB2aNnQ==", - "dependencies": { - "d3-dispatch": "1 - 3", - "d3-drag": "2 - 3", - "d3-interpolate": "1 - 3", - "d3-selection": "3", - "d3-transition": "3" - }, - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-chord": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-chord/-/d3-chord-3.0.1.tgz", - "integrity": "sha512-VE5S6TNa+j8msksl7HwjxMHDM2yNK3XCkusIlpX5kwauBfXuyLAtNg9jCp/iHH61tgI4sb6R/EIMWCqEIdjT/g==", - "dependencies": { - "d3-path": "1 - 3" - }, - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-collection": { - "version": "1.0.7", - "resolved": "https://registry.npmjs.org/d3-collection/-/d3-collection-1.0.7.tgz", - "integrity": "sha512-ii0/r5f4sjKNTfh84Di+DpztYwqKhEyUlKoPrzUFfeSkWxjW49xU2QzO9qrPrNkpdI0XJkfzvmTu8V2Zylln6A==" - }, - "node_modules/d3-color": { - "version": "3.1.0", - "resolved": "https://registry.npmjs.org/d3-color/-/d3-color-3.1.0.tgz", - "integrity": "sha512-zg/chbXyeBtMQ1LbD/WSoW2DpC3I0mpmPdW+ynRTj/x2DAWYrIY7qeZIHidozwV24m4iavr15lNwIwLxRmOxhA==", - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-contour": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-contour/-/d3-contour-3.0.1.tgz", - "integrity": "sha512-0Oc4D0KyhwhM7ZL0RMnfGycLN7hxHB8CMmwZ3+H26PWAG0ozNuYG5hXSDNgmP1SgJkQMrlG6cP20HoaSbvcJTQ==", - "dependencies": { - "d3-array": "2 - 3" - }, - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-delaunay": { - "version": "6.0.2", - "resolved": "https://registry.npmjs.org/d3-delaunay/-/d3-delaunay-6.0.2.tgz", - "integrity": "sha512-IMLNldruDQScrcfT+MWnazhHbDJhcRJyOEBAJfwQnHle1RPh6WDuLvxNArUju2VSMSUuKlY5BGHRJ2cYyoFLQQ==", - "dependencies": { - "delaunator": "5" - }, - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-dispatch": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-dispatch/-/d3-dispatch-3.0.1.tgz", - "integrity": "sha512-rzUyPU/S7rwUflMyLc1ETDeBj0NRuHKKAcvukozwhshr6g6c5d8zh4c2gQjY2bZ0dXeGLWc1PF174P2tVvKhfg==", - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-drag": { - "version": "3.0.0", - "resolved": "https://registry.npmjs.org/d3-drag/-/d3-drag-3.0.0.tgz", - "integrity": "sha512-pWbUJLdETVA8lQNJecMxoXfH6x+mO2UQo8rSmZ+QqxcbyA3hfeprFgIT//HW2nlHChWeIIMwS2Fq+gEARkhTkg==", - "dependencies": { - "d3-dispatch": "1 - 3", - "d3-selection": "3" - }, - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-dsv": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-dsv/-/d3-dsv-3.0.1.tgz", - "integrity": "sha512-UG6OvdI5afDIFP9w4G0mNq50dSOsXHJaRE8arAS5o9ApWnIElp8GZw1Dun8vP8OyHOZ/QJUKUJwxiiCCnUwm+Q==", - "dependencies": { - "commander": "7", - "iconv-lite": "0.6", - "rw": "1" - }, - "bin": { - "csv2json": "bin/dsv2json.js", - "csv2tsv": "bin/dsv2dsv.js", - "dsv2dsv": "bin/dsv2dsv.js", - "dsv2json": "bin/dsv2json.js", - "json2csv": "bin/json2dsv.js", - "json2dsv": "bin/json2dsv.js", - "json2tsv": "bin/json2dsv.js", - "tsv2csv": "bin/dsv2dsv.js", - "tsv2json": "bin/dsv2json.js" - }, - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-dsv/node_modules/commander": { - "version": "7.2.0", - "resolved": "https://registry.npmjs.org/commander/-/commander-7.2.0.tgz", - "integrity": "sha512-QrWXB+ZQSVPmIWIhtEO9H+gwHaMGYiF5ChvoJ+K9ZGHG/sVsa6yiesAD1GC/x46sET00Xlwo1u49RVVVzvcSkw==", - "engines": { - "node": ">= 10" - } - }, - "node_modules/d3-ease": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-ease/-/d3-ease-3.0.1.tgz", - "integrity": "sha512-wR/XK3D3XcLIZwpbvQwQ5fK+8Ykds1ip7A2Txe0yxncXSdq1L9skcG7blcedkOX+ZcgxGAmLX1FrRGbADwzi0w==", - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-fetch": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-fetch/-/d3-fetch-3.0.1.tgz", - "integrity": "sha512-kpkQIM20n3oLVBKGg6oHrUchHM3xODkTzjMoj7aWQFq5QEM+R6E4WkzT5+tojDY7yjez8KgCBRoj4aEr99Fdqw==", - "dependencies": { - "d3-dsv": "1 - 3" - }, - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-force": { - "version": "3.0.0", - "resolved": "https://registry.npmjs.org/d3-force/-/d3-force-3.0.0.tgz", - "integrity": "sha512-zxV/SsA+U4yte8051P4ECydjD/S+qeYtnaIyAs9tgHCqfguma/aAQDjo85A9Z6EKhBirHRJHXIgJUlffT4wdLg==", - "dependencies": { - "d3-dispatch": "1 - 3", - "d3-quadtree": "1 - 3", - "d3-timer": "1 - 3" - }, - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-format": { - "version": "3.1.0", - "resolved": "https://registry.npmjs.org/d3-format/-/d3-format-3.1.0.tgz", - "integrity": "sha512-YyUI6AEuY/Wpt8KWLgZHsIU86atmikuoOmCfommt0LYHiQSPjvX2AcFc38PX0CBpr2RCyZhjex+NS/LPOv6YqA==", - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-geo": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-geo/-/d3-geo-3.0.1.tgz", - "integrity": "sha512-Wt23xBych5tSy9IYAM1FR2rWIBFWa52B/oF/GYe5zbdHrg08FU8+BuI6X4PvTwPDdqdAdq04fuWJpELtsaEjeA==", - "dependencies": { - "d3-array": "2.5.0 - 3" - }, - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-hierarchy": { - "version": "3.1.2", - "resolved": "https://registry.npmjs.org/d3-hierarchy/-/d3-hierarchy-3.1.2.tgz", - "integrity": "sha512-FX/9frcub54beBdugHjDCdikxThEqjnR93Qt7PvQTOHxyiNCAlvMrHhclk3cD5VeAaq9fxmfRp+CnWw9rEMBuA==", - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-interpolate": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-interpolate/-/d3-interpolate-3.0.1.tgz", - "integrity": "sha512-3bYs1rOD33uo8aqJfKP3JWPAibgw8Zm2+L9vBKEHJ2Rg+viTR7o5Mmv5mZcieN+FRYaAOWX5SJATX6k1PWz72g==", - "dependencies": { - "d3-color": "1 - 3" - }, - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-path": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-path/-/d3-path-3.0.1.tgz", - "integrity": "sha512-gq6gZom9AFZby0YLduxT1qmrp4xpBA1YZr19OI717WIdKE2OM5ETq5qrHLb301IgxhLwcuxvGZVLeeWc/k1I6w==", - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-polygon": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-polygon/-/d3-polygon-3.0.1.tgz", - "integrity": "sha512-3vbA7vXYwfe1SYhED++fPUQlWSYTTGmFmQiany/gdbiWgU/iEyQzyymwL9SkJjFFuCS4902BSzewVGsHHmHtXg==", - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-quadtree": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-quadtree/-/d3-quadtree-3.0.1.tgz", - "integrity": "sha512-04xDrxQTDTCFwP5H6hRhsRcb9xxv2RzkcsygFzmkSIOJy3PeRJP7sNk3VRIbKXcog561P9oU0/rVH6vDROAgUw==", - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-random": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-random/-/d3-random-3.0.1.tgz", - "integrity": "sha512-FXMe9GfxTxqd5D6jFsQ+DJ8BJS4E/fT5mqqdjovykEB2oFbTMDVdg1MGFxfQW+FBOGoB++k8swBrgwSHT1cUXQ==", - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-scale": { - "version": "4.0.2", - "resolved": "https://registry.npmjs.org/d3-scale/-/d3-scale-4.0.2.tgz", - "integrity": "sha512-GZW464g1SH7ag3Y7hXjf8RoUuAFIqklOAq3MRl4OaWabTFJY9PN/E1YklhXLh+OQ3fM9yS2nOkCoS+WLZ6kvxQ==", - "dependencies": { - "d3-array": "2.10.0 - 3", - "d3-format": "1 - 3", - "d3-interpolate": "1.2.0 - 3", - "d3-time": "2.1.1 - 3", - "d3-time-format": "2 - 4" - }, - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-scale-chromatic": { - "version": "3.0.0", - "resolved": "https://registry.npmjs.org/d3-scale-chromatic/-/d3-scale-chromatic-3.0.0.tgz", - "integrity": "sha512-Lx9thtxAKrO2Pq6OO2Ua474opeziKr279P/TKZsMAhYyNDD3EnCffdbgeSYN5O7m2ByQsxtuP2CSDczNUIZ22g==", - "dependencies": { - "d3-color": "1 - 3", - "d3-interpolate": "1 - 3" - }, - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-selection": { - "version": "3.0.0", - "resolved": "https://registry.npmjs.org/d3-selection/-/d3-selection-3.0.0.tgz", - "integrity": "sha512-fmTRWbNMmsmWq6xJV8D19U/gw/bwrHfNXxrIN+HfZgnzqTHp9jOmKMhsTUjXOJnZOdZY9Q28y4yebKzqDKlxlQ==", - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-shape": { - "version": "3.1.0", - "resolved": "https://registry.npmjs.org/d3-shape/-/d3-shape-3.1.0.tgz", - "integrity": "sha512-tGDh1Muf8kWjEDT/LswZJ8WF85yDZLvVJpYU9Nq+8+yW1Z5enxrmXOhTArlkaElU+CTn0OTVNli+/i+HP45QEQ==", - "dependencies": { - "d3-path": "1 - 3" - }, - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-time": { - "version": "3.0.0", - "resolved": "https://registry.npmjs.org/d3-time/-/d3-time-3.0.0.tgz", - "integrity": "sha512-zmV3lRnlaLI08y9IMRXSDshQb5Nj77smnfpnd2LrBa/2K281Jijactokeak14QacHs/kKq0AQ121nidNYlarbQ==", - "dependencies": { - "d3-array": "2 - 3" - }, - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-time-format": { - "version": "4.1.0", - "resolved": "https://registry.npmjs.org/d3-time-format/-/d3-time-format-4.1.0.tgz", - "integrity": "sha512-dJxPBlzC7NugB2PDLwo9Q8JiTR3M3e4/XANkreKSUxF8vvXKqm1Yfq4Q5dl8budlunRVlUUaDUgFt7eA8D6NLg==", - "dependencies": { - "d3-time": "1 - 3" - }, - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-timer": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-timer/-/d3-timer-3.0.1.tgz", - "integrity": "sha512-ndfJ/JxxMd3nw31uyKoY2naivF+r29V+Lc0svZxe1JvvIRmi8hUsrMvdOwgS1o6uBHmiz91geQ0ylPP0aj1VUA==", - "engines": { - "node": ">=12" - } - }, - "node_modules/d3-transition": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-transition/-/d3-transition-3.0.1.tgz", - "integrity": "sha512-ApKvfjsSR6tg06xrL434C0WydLr7JewBB3V+/39RMHsaXTOG0zmt/OAXeng5M5LBm0ojmxJrpomQVZ1aPvBL4w==", - "dependencies": { - "d3-color": "1 - 3", - "d3-dispatch": "1 - 3", - "d3-ease": "1 - 3", - "d3-interpolate": "1 - 3", - "d3-timer": "1 - 3" - }, - "engines": { - "node": ">=12" - }, - "peerDependencies": { - "d3-selection": "2 - 3" - } - }, - "node_modules/d3-voronoi": { - "version": "1.1.4", - "resolved": "https://registry.npmjs.org/d3-voronoi/-/d3-voronoi-1.1.4.tgz", - "integrity": "sha512-dArJ32hchFsrQ8uMiTBLq256MpnZjeuBtdHpaDlYuQyjU0CVzCJl/BVW+SkszaAeH95D/8gxqAhgx0ouAWAfRg==" - }, - "node_modules/d3-zoom": { - "version": "3.0.0", - "resolved": "https://registry.npmjs.org/d3-zoom/-/d3-zoom-3.0.0.tgz", - "integrity": "sha512-b8AmV3kfQaqWAuacbPuNbL6vahnOJflOhexLzMMNLga62+/nh0JzvJ0aO/5a5MVgUFGS7Hu1P9P03o3fJkDCyw==", - "dependencies": { - "d3-dispatch": "1 - 3", - "d3-drag": "2 - 3", - "d3-interpolate": "1 - 3", - "d3-selection": "2 - 3", - "d3-transition": "2 - 3" - }, - "engines": { - "node": ">=12" - } - }, - "node_modules/dagre": { - "version": "0.8.5", - "resolved": "https://registry.npmjs.org/dagre/-/dagre-0.8.5.tgz", - "integrity": "sha512-/aTqmnRta7x7MCCpExk7HQL2O4owCT2h8NT//9I1OQ9vt29Pa0BzSAkR5lwFUcQ7491yVi/3CXU9jQ5o0Mn2Sw==", - "dependencies": { - "graphlib": "^2.1.8", - "lodash": "^4.17.15" - } - }, - "node_modules/dagre-d3": { - "version": "0.6.4", - "resolved": "https://registry.npmjs.org/dagre-d3/-/dagre-d3-0.6.4.tgz", - "integrity": "sha512-e/6jXeCP7/ptlAM48clmX4xTZc5Ek6T6kagS7Oz2HrYSdqcLZFLqpAfh7ldbZRFfxCZVyh61NEPR08UQRVxJzQ==", - "dependencies": { - "d3": "^5.14", - "dagre": "^0.8.5", - "graphlib": "^2.1.8", - "lodash": "^4.17.15" - } - }, - "node_modules/dagre-d3/node_modules/commander": { - "version": "2.20.3", - "resolved": "https://registry.npmjs.org/commander/-/commander-2.20.3.tgz", - "integrity": "sha512-GpVkmM8vF2vQUkj2LvZmD35JxeJOLCwJ9cUkugyk2nuhbv3+mJvpLYYt+0+USMxE+oj+ey/lJEnhZw75x/OMcQ==" - }, - "node_modules/dagre-d3/node_modules/d3": { - "version": "5.16.0", - "resolved": "https://registry.npmjs.org/d3/-/d3-5.16.0.tgz", - "integrity": "sha512-4PL5hHaHwX4m7Zr1UapXW23apo6pexCgdetdJ5kTmADpG/7T9Gkxw0M0tf/pjoB63ezCCm0u5UaFYy2aMt0Mcw==", - "dependencies": { - "d3-array": "1", - "d3-axis": "1", - "d3-brush": "1", - "d3-chord": "1", - "d3-collection": "1", - "d3-color": "1", - "d3-contour": "1", - "d3-dispatch": "1", - "d3-drag": "1", - "d3-dsv": "1", - "d3-ease": "1", - "d3-fetch": "1", - "d3-force": "1", - "d3-format": "1", - "d3-geo": "1", - "d3-hierarchy": "1", - "d3-interpolate": "1", - "d3-path": "1", - "d3-polygon": "1", - "d3-quadtree": "1", - "d3-random": "1", - "d3-scale": "2", - "d3-scale-chromatic": "1", - "d3-selection": "1", - "d3-shape": "1", - "d3-time": "1", - "d3-time-format": "2", - "d3-timer": "1", - "d3-transition": "1", - "d3-voronoi": "1", - "d3-zoom": "1" - } - }, - "node_modules/dagre-d3/node_modules/d3-array": { - "version": "1.2.4", - "resolved": "https://registry.npmjs.org/d3-array/-/d3-array-1.2.4.tgz", - "integrity": "sha512-KHW6M86R+FUPYGb3R5XiYjXPq7VzwxZ22buHhAEVG5ztoEcZZMLov530mmccaqA1GghZArjQV46fuc8kUqhhHw==" - }, - "node_modules/dagre-d3/node_modules/d3-axis": { - "version": "1.0.12", - "resolved": "https://registry.npmjs.org/d3-axis/-/d3-axis-1.0.12.tgz", - "integrity": "sha512-ejINPfPSNdGFKEOAtnBtdkpr24c4d4jsei6Lg98mxf424ivoDP2956/5HDpIAtmHo85lqT4pruy+zEgvRUBqaQ==" - }, - "node_modules/dagre-d3/node_modules/d3-brush": { - "version": "1.1.6", - "resolved": "https://registry.npmjs.org/d3-brush/-/d3-brush-1.1.6.tgz", - "integrity": "sha512-7RW+w7HfMCPyZLifTz/UnJmI5kdkXtpCbombUSs8xniAyo0vIbrDzDwUJB6eJOgl9u5DQOt2TQlYumxzD1SvYA==", - "dependencies": { - "d3-dispatch": "1", - "d3-drag": "1", - "d3-interpolate": "1", - "d3-selection": "1", - "d3-transition": "1" - } - }, - "node_modules/dagre-d3/node_modules/d3-chord": { - "version": "1.0.6", - "resolved": "https://registry.npmjs.org/d3-chord/-/d3-chord-1.0.6.tgz", - "integrity": "sha512-JXA2Dro1Fxw9rJe33Uv+Ckr5IrAa74TlfDEhE/jfLOaXegMQFQTAgAw9WnZL8+HxVBRXaRGCkrNU7pJeylRIuA==", - "dependencies": { - "d3-array": "1", - "d3-path": "1" - } - }, - "node_modules/dagre-d3/node_modules/d3-color": { - "version": "1.4.1", - "resolved": "https://registry.npmjs.org/d3-color/-/d3-color-1.4.1.tgz", - "integrity": "sha512-p2sTHSLCJI2QKunbGb7ocOh7DgTAn8IrLx21QRc/BSnodXM4sv6aLQlnfpvehFMLZEfBc6g9pH9SWQccFYfJ9Q==" - }, - "node_modules/dagre-d3/node_modules/d3-contour": { - "version": "1.3.2", - "resolved": "https://registry.npmjs.org/d3-contour/-/d3-contour-1.3.2.tgz", - "integrity": "sha512-hoPp4K/rJCu0ladiH6zmJUEz6+u3lgR+GSm/QdM2BBvDraU39Vr7YdDCicJcxP1z8i9B/2dJLgDC1NcvlF8WCg==", - "dependencies": { - "d3-array": "^1.1.1" - } - }, - "node_modules/dagre-d3/node_modules/d3-dispatch": { - "version": "1.0.6", - "resolved": "https://registry.npmjs.org/d3-dispatch/-/d3-dispatch-1.0.6.tgz", - "integrity": "sha512-fVjoElzjhCEy+Hbn8KygnmMS7Or0a9sI2UzGwoB7cCtvI1XpVN9GpoYlnb3xt2YV66oXYb1fLJ8GMvP4hdU1RA==" - }, - "node_modules/dagre-d3/node_modules/d3-drag": { - "version": "1.2.5", - "resolved": "https://registry.npmjs.org/d3-drag/-/d3-drag-1.2.5.tgz", - "integrity": "sha512-rD1ohlkKQwMZYkQlYVCrSFxsWPzI97+W+PaEIBNTMxRuxz9RF0Hi5nJWHGVJ3Om9d2fRTe1yOBINJyy/ahV95w==", - "dependencies": { - "d3-dispatch": "1", - "d3-selection": "1" - } - }, - "node_modules/dagre-d3/node_modules/d3-dsv": { - "version": "1.2.0", - "resolved": "https://registry.npmjs.org/d3-dsv/-/d3-dsv-1.2.0.tgz", - "integrity": "sha512-9yVlqvZcSOMhCYzniHE7EVUws7Fa1zgw+/EAV2BxJoG3ME19V6BQFBwI855XQDsxyOuG7NibqRMTtiF/Qup46g==", - "dependencies": { - "commander": "2", - "iconv-lite": "0.4", - "rw": "1" - }, - "bin": { - "csv2json": "bin/dsv2json", - "csv2tsv": "bin/dsv2dsv", - "dsv2dsv": "bin/dsv2dsv", - "dsv2json": "bin/dsv2json", - "json2csv": "bin/json2dsv", - "json2dsv": "bin/json2dsv", - "json2tsv": "bin/json2dsv", - "tsv2csv": "bin/dsv2dsv", - "tsv2json": "bin/dsv2json" - } - }, - "node_modules/dagre-d3/node_modules/d3-ease": { - "version": "1.0.7", - "resolved": "https://registry.npmjs.org/d3-ease/-/d3-ease-1.0.7.tgz", - "integrity": "sha512-lx14ZPYkhNx0s/2HX5sLFUI3mbasHjSSpwO/KaaNACweVwxUruKyWVcb293wMv1RqTPZyZ8kSZ2NogUZNcLOFQ==" - }, - "node_modules/dagre-d3/node_modules/d3-fetch": { - "version": "1.2.0", - "resolved": "https://registry.npmjs.org/d3-fetch/-/d3-fetch-1.2.0.tgz", - "integrity": "sha512-yC78NBVcd2zFAyR/HnUiBS7Lf6inSCoWcSxFfw8FYL7ydiqe80SazNwoffcqOfs95XaLo7yebsmQqDKSsXUtvA==", - "dependencies": { - "d3-dsv": "1" - } - }, - "node_modules/dagre-d3/node_modules/d3-force": { - "version": "1.2.1", - "resolved": "https://registry.npmjs.org/d3-force/-/d3-force-1.2.1.tgz", - "integrity": "sha512-HHvehyaiUlVo5CxBJ0yF/xny4xoaxFxDnBXNvNcfW9adORGZfyNF1dj6DGLKyk4Yh3brP/1h3rnDzdIAwL08zg==", - "dependencies": { - "d3-collection": "1", - "d3-dispatch": "1", - "d3-quadtree": "1", - "d3-timer": "1" - } - }, - "node_modules/dagre-d3/node_modules/d3-format": { - "version": "1.4.5", - "resolved": "https://registry.npmjs.org/d3-format/-/d3-format-1.4.5.tgz", - "integrity": "sha512-J0piedu6Z8iB6TbIGfZgDzfXxUFN3qQRMofy2oPdXzQibYGqPB/9iMcxr/TGalU+2RsyDO+U4f33id8tbnSRMQ==" - }, - "node_modules/dagre-d3/node_modules/d3-geo": { - "version": "1.12.1", - "resolved": "https://registry.npmjs.org/d3-geo/-/d3-geo-1.12.1.tgz", - "integrity": "sha512-XG4d1c/UJSEX9NfU02KwBL6BYPj8YKHxgBEw5om2ZnTRSbIcego6dhHwcxuSR3clxh0EpE38os1DVPOmnYtTPg==", - "dependencies": { - "d3-array": "1" - } - }, - "node_modules/dagre-d3/node_modules/d3-hierarchy": { - "version": "1.1.9", - "resolved": "https://registry.npmjs.org/d3-hierarchy/-/d3-hierarchy-1.1.9.tgz", - "integrity": "sha512-j8tPxlqh1srJHAtxfvOUwKNYJkQuBFdM1+JAUfq6xqH5eAqf93L7oG1NVqDa4CpFZNvnNKtCYEUC8KY9yEn9lQ==" - }, - "node_modules/dagre-d3/node_modules/d3-interpolate": { - "version": "1.4.0", - "resolved": "https://registry.npmjs.org/d3-interpolate/-/d3-interpolate-1.4.0.tgz", - "integrity": "sha512-V9znK0zc3jOPV4VD2zZn0sDhZU3WAE2bmlxdIwwQPPzPjvyLkd8B3JUVdS1IDUFDkWZ72c9qnv1GK2ZagTZ8EA==", - "dependencies": { - "d3-color": "1" - } - }, - "node_modules/dagre-d3/node_modules/d3-path": { - "version": "1.0.9", - "resolved": "https://registry.npmjs.org/d3-path/-/d3-path-1.0.9.tgz", - "integrity": "sha512-VLaYcn81dtHVTjEHd8B+pbe9yHWpXKZUC87PzoFmsFrJqgFwDe/qxfp5MlfsfM1V5E/iVt0MmEbWQ7FVIXh/bg==" - }, - "node_modules/dagre-d3/node_modules/d3-polygon": { - "version": "1.0.6", - "resolved": "https://registry.npmjs.org/d3-polygon/-/d3-polygon-1.0.6.tgz", - "integrity": "sha512-k+RF7WvI08PC8reEoXa/w2nSg5AUMTi+peBD9cmFc+0ixHfbs4QmxxkarVal1IkVkgxVuk9JSHhJURHiyHKAuQ==" - }, - "node_modules/dagre-d3/node_modules/d3-quadtree": { - "version": "1.0.7", - "resolved": "https://registry.npmjs.org/d3-quadtree/-/d3-quadtree-1.0.7.tgz", - "integrity": "sha512-RKPAeXnkC59IDGD0Wu5mANy0Q2V28L+fNe65pOCXVdVuTJS3WPKaJlFHer32Rbh9gIo9qMuJXio8ra4+YmIymA==" - }, - "node_modules/dagre-d3/node_modules/d3-random": { - "version": "1.1.2", - "resolved": "https://registry.npmjs.org/d3-random/-/d3-random-1.1.2.tgz", - "integrity": "sha512-6AK5BNpIFqP+cx/sreKzNjWbwZQCSUatxq+pPRmFIQaWuoD+NrbVWw7YWpHiXpCQ/NanKdtGDuB+VQcZDaEmYQ==" - }, - "node_modules/dagre-d3/node_modules/d3-scale": { - "version": "2.2.2", - "resolved": "https://registry.npmjs.org/d3-scale/-/d3-scale-2.2.2.tgz", - "integrity": "sha512-LbeEvGgIb8UMcAa0EATLNX0lelKWGYDQiPdHj+gLblGVhGLyNbaCn3EvrJf0A3Y/uOOU5aD6MTh5ZFCdEwGiCw==", - "dependencies": { - "d3-array": "^1.2.0", - "d3-collection": "1", - "d3-format": "1", - "d3-interpolate": "1", - "d3-time": "1", - "d3-time-format": "2" - } - }, - "node_modules/dagre-d3/node_modules/d3-scale-chromatic": { - "version": "1.5.0", - "resolved": "https://registry.npmjs.org/d3-scale-chromatic/-/d3-scale-chromatic-1.5.0.tgz", - "integrity": "sha512-ACcL46DYImpRFMBcpk9HhtIyC7bTBR4fNOPxwVSl0LfulDAwyiHyPOTqcDG1+t5d4P9W7t/2NAuWu59aKko/cg==", - "dependencies": { - "d3-color": "1", - "d3-interpolate": "1" - } - }, - "node_modules/dagre-d3/node_modules/d3-selection": { - "version": "1.4.2", - "resolved": "https://registry.npmjs.org/d3-selection/-/d3-selection-1.4.2.tgz", - "integrity": "sha512-SJ0BqYihzOjDnnlfyeHT0e30k0K1+5sR3d5fNueCNeuhZTnGw4M4o8mqJchSwgKMXCNFo+e2VTChiSJ0vYtXkg==" - }, - "node_modules/dagre-d3/node_modules/d3-shape": { - "version": "1.3.7", - "resolved": "https://registry.npmjs.org/d3-shape/-/d3-shape-1.3.7.tgz", - "integrity": "sha512-EUkvKjqPFUAZyOlhY5gzCxCeI0Aep04LwIRpsZ/mLFelJiUfnK56jo5JMDSE7yyP2kLSb6LtF+S5chMk7uqPqw==", - "dependencies": { - "d3-path": "1" - } - }, - "node_modules/dagre-d3/node_modules/d3-time": { - "version": "1.1.0", - "resolved": "https://registry.npmjs.org/d3-time/-/d3-time-1.1.0.tgz", - "integrity": "sha512-Xh0isrZ5rPYYdqhAVk8VLnMEidhz5aP7htAADH6MfzgmmicPkTo8LhkLxci61/lCB7n7UmE3bN0leRt+qvkLxA==" - }, - "node_modules/dagre-d3/node_modules/d3-time-format": { - "version": "2.3.0", - "resolved": "https://registry.npmjs.org/d3-time-format/-/d3-time-format-2.3.0.tgz", - "integrity": "sha512-guv6b2H37s2Uq/GefleCDtbe0XZAuy7Wa49VGkPVPMfLL9qObgBST3lEHJBMUp8S7NdLQAGIvr2KXk8Hc98iKQ==", - "dependencies": { - "d3-time": "1" - } - }, - "node_modules/dagre-d3/node_modules/d3-timer": { - "version": "1.0.10", - "resolved": "https://registry.npmjs.org/d3-timer/-/d3-timer-1.0.10.tgz", - "integrity": "sha512-B1JDm0XDaQC+uvo4DT79H0XmBskgS3l6Ve+1SBCfxgmtIb1AVrPIoqd+nPSv+loMX8szQ0sVUhGngL7D5QPiXw==" - }, - "node_modules/dagre-d3/node_modules/d3-transition": { - "version": "1.3.2", - "resolved": "https://registry.npmjs.org/d3-transition/-/d3-transition-1.3.2.tgz", - "integrity": "sha512-sc0gRU4PFqZ47lPVHloMn9tlPcv8jxgOQg+0zjhfZXMQuvppjG6YuwdMBE0TuqCZjeJkLecku/l9R0JPcRhaDA==", - "dependencies": { - "d3-color": "1", - "d3-dispatch": "1", - "d3-ease": "1", - "d3-interpolate": "1", - "d3-selection": "^1.1.0", - "d3-timer": "1" - } - }, - "node_modules/dagre-d3/node_modules/d3-zoom": { - "version": "1.8.3", - "resolved": "https://registry.npmjs.org/d3-zoom/-/d3-zoom-1.8.3.tgz", - "integrity": "sha512-VoLXTK4wvy1a0JpH2Il+F2CiOhVu7VRXWF5M/LroMIh3/zBAC3WAt7QoIvPibOavVo20hN6/37vwAsdBejLyKQ==", - "dependencies": { - "d3-dispatch": "1", - "d3-drag": "1", - "d3-interpolate": "1", - "d3-selection": "1", - "d3-transition": "1" - } - }, - "node_modules/dagre-d3/node_modules/iconv-lite": { - "version": "0.4.24", - "resolved": "https://registry.npmjs.org/iconv-lite/-/iconv-lite-0.4.24.tgz", - "integrity": "sha512-v3MXnZAcvnywkTUEZomIActle7RXXeedOR31wwl7VlyoXO4Qi9arvSenNQWne1TcRwhCL1HwLI21bEqdpj8/rA==", - "dependencies": { - "safer-buffer": ">= 2.1.2 < 3" - }, - "engines": { - "node": ">=0.10.0" - } - }, "node_modules/dashdash": { "version": "1.14.1", "resolved": "https://registry.npmjs.org/dashdash/-/dashdash-1.14.1.tgz", @@ -5482,9 +4952,10 @@ } }, "node_modules/debug": { - "version": "4.3.2", - "resolved": "https://registry.npmjs.org/debug/-/debug-4.3.2.tgz", - "integrity": "sha512-mOp8wKcvj7XxC78zLgw/ZA+6TSgkoE2C/ienthhRD298T7UNwAg9diBpLRxC0mOezLl4B0xV7M0cCO6P/O0Xhw==", + "version": "4.3.4", + "resolved": "https://registry.npmjs.org/debug/-/debug-4.3.4.tgz", + "integrity": "sha512-PRWFHuSU3eDtQJPvnNY7Jcket1j0t5OuOsFzPPzsekD52Zl8qUfFIPEiswXqIvHWGVHOgX+7G/vCNNhehwxfkQ==", + "dev": true, "dependencies": { "ms": "2.1.2" }, @@ -5516,6 +4987,7 @@ "version": "4.2.2", "resolved": "https://registry.npmjs.org/deepmerge/-/deepmerge-4.2.2.tgz", "integrity": "sha512-FJ3UgI4gIl+PHZm53knsuSFpE+nESMr7M4v9QcgB7S63Kj/6WqMiFQJpBBYz1Pt+66bZpP3Q7Lye0Oo9MPKEdg==", + "dev": true, "engines": { "node": ">=0.10.0" } @@ -5601,14 +5073,6 @@ "url": "https://github.com/sponsors/sindresorhus" } }, - "node_modules/delaunator": { - "version": "5.0.0", - "resolved": "https://registry.npmjs.org/delaunator/-/delaunator-5.0.0.tgz", - "integrity": "sha512-AyLvtyJdbv/U1GkiS6gUUzclRoAY4Gs75qkMygJJhU75LW4DNuSF2RMzpxs9jw9Oz1BobHjTdkG3zdP55VxAqw==", - "dependencies": { - "robust-predicates": "^3.0.0" - } - }, "node_modules/delayed-stream": { "version": "1.0.0", "resolved": "https://registry.npmjs.org/delayed-stream/-/delayed-stream-1.0.0.tgz", @@ -5619,9 +5083,10 @@ } }, "node_modules/devtools-protocol": { - "version": "0.0.960912", - "resolved": "https://registry.npmjs.org/devtools-protocol/-/devtools-protocol-0.0.960912.tgz", - "integrity": "sha512-I3hWmV9rWHbdnUdmMKHF2NuYutIM2kXz2mdXW8ha7TbRlGTVs+PF+PsB5QWvpCek4Fy9B+msiispCfwlhG5Sqg==" + "version": "0.0.1107588", + "resolved": "https://registry.npmjs.org/devtools-protocol/-/devtools-protocol-0.0.1107588.tgz", + "integrity": "sha512-yIR+pG9x65Xko7bErCUSQaDLrO/P1p3JUzEk7JCU4DowPcGHkTGUGQapcfcLc4qj0UaALwZ+cr0riFgiqpixcg==", + "dev": true }, "node_modules/dir-glob": { "version": "3.0.1", @@ -5647,11 +5112,6 @@ "node": ">=6.0.0" } }, - "node_modules/dompurify": { - "version": "2.3.6", - "resolved": "https://registry.npmjs.org/dompurify/-/dompurify-2.3.6.tgz", - "integrity": "sha512-OFP2u/3T1R5CEgWCEONuJ1a5+MFKnOYpkywpUSxv/dj1LeBT1erK+JwM7zK0ROy2BRhqVCf0LRw/kHqKuMkVGg==" - }, "node_modules/eastasianwidth": { "version": "0.2.0", "resolved": "https://registry.npmjs.org/eastasianwidth/-/eastasianwidth-0.2.0.tgz", @@ -5696,10 +5156,20 @@ "version": "1.4.4", "resolved": "https://registry.npmjs.org/end-of-stream/-/end-of-stream-1.4.4.tgz", "integrity": "sha512-+uw1inIHVPQoaVuHzRyXd21icM+cnt4CzD5rW+NC1wjOUSTOs+Te7FOv7AhN7vS9x/oIyhLP5PR1H+phQAHu5Q==", + "dev": true, "dependencies": { "once": "^1.4.0" } }, + "node_modules/error-ex": { + "version": "1.3.2", + "resolved": "https://registry.npmjs.org/error-ex/-/error-ex-1.3.2.tgz", + "integrity": "sha512-7dFHNmqeFSEt2ZBsCriorKnn3Z2pj+fd9kmI6QoWw4//DL+icEBfc0U7qJCisqrTsKTjw4fNFy2pW9OqStD84g==", + "dev": true, + "dependencies": { + "is-arrayish": "^0.2.1" + } + }, "node_modules/es6-error": { "version": "4.1.1", "resolved": "https://registry.npmjs.org/es6-error/-/es6-error-4.1.1.tgz", @@ -5710,6 +5180,7 @@ "version": "3.1.1", "resolved": "https://registry.npmjs.org/escalade/-/escalade-3.1.1.tgz", "integrity": "sha512-k0er2gUkLf8O0zKJiAhmkTnJlTvINGv7ygDNPbeIsX/TJjGJZHuh9B2UxbsaEkmlEo9MfhrSzmhIlhRlI2GXnw==", + "dev": true, "engines": { "node": ">=6" } @@ -5718,6 +5189,7 @@ "version": "1.0.5", "resolved": "https://registry.npmjs.org/escape-string-regexp/-/escape-string-regexp-1.0.5.tgz", "integrity": "sha1-G2HAViGQqN/2rjuyzwIAyhMLhtQ=", + "dev": true, "engines": { "node": ">=0.8.0" } @@ -6029,6 +5501,7 @@ "version": "2.0.1", "resolved": "https://registry.npmjs.org/extract-zip/-/extract-zip-2.0.1.tgz", "integrity": "sha512-GDhU9ntwuKyGXdZBUgTIe+vXnWj0fppUEtMDL0+idd5Sta8TGpHssn/eusA9mrPr9qNDym6SxAYZjNvCn/9RBg==", + "dev": true, "dependencies": { "debug": "^4.1.1", "get-stream": "^5.1.0", @@ -6105,7 +5578,8 @@ "node_modules/fd-slicer": { "version": "1.1.0", "resolved": "https://registry.npmjs.org/fd-slicer/-/fd-slicer-1.1.0.tgz", - "integrity": "sha1-JcfInLH5B3+IkbvmHY85Dq4lbx4=", + "integrity": "sha512-cE1qsB/VwyQozZ+q1dGxR8LBYNZeofhEdUNGSMbQD3Gw2lAzX9Zb3uIU6Ebc/Fmyjo9AWWfnn0AUCHqtevs/8g==", + "dev": true, "dependencies": { "pend": "~1.2.0" } @@ -6183,6 +5657,7 @@ "version": "4.1.0", "resolved": "https://registry.npmjs.org/find-up/-/find-up-4.1.0.tgz", "integrity": "sha512-PpOwAdQ/YlXQ2vj8a3h8IipDuYRi3wceVQQGYWxNINccq40Anw7BlsEXCMbt1Zt+OLA6Fq9suIpIWD0OsnISlw==", + "dev": true, "dependencies": { "locate-path": "^5.0.0", "path-exists": "^4.0.0" @@ -6269,30 +5744,20 @@ "node_modules/fs-constants": { "version": "1.0.0", "resolved": "https://registry.npmjs.org/fs-constants/-/fs-constants-1.0.0.tgz", - "integrity": "sha512-y6OAwoSIf7FyjMIv94u+b5rdheZEjzR63GTyZJm5qh4Bi+2YgwLCcI/fPFZkL5PSixOt6ZNKm+w+Hfp/Bciwow==" + "integrity": "sha512-y6OAwoSIf7FyjMIv94u+b5rdheZEjzR63GTyZJm5qh4Bi+2YgwLCcI/fPFZkL5PSixOt6ZNKm+w+Hfp/Bciwow==", + "dev": true }, "node_modules/fs.realpath": { "version": "1.0.0", "resolved": "https://registry.npmjs.org/fs.realpath/-/fs.realpath-1.0.0.tgz", - "integrity": "sha1-FQStJSMVjKpA20onh8sBQRmU6k8=" - }, - "node_modules/fsevents": { - "version": "2.3.2", - "resolved": "https://registry.npmjs.org/fsevents/-/fsevents-2.3.2.tgz", - "integrity": "sha512-xiqMQR4xAeHTuB9uWm+fFRcIOgKBMiOBP+eXiyT7jsgVCq1bkVygt00oASowB7EdtpOHaaPgKt812P9ab+DDKA==", - "hasInstallScript": true, - "optional": true, - "os": [ - "darwin" - ], - "engines": { - "node": "^8.16.0 || ^10.6.0 || >=11.0.0" - } + "integrity": "sha1-FQStJSMVjKpA20onh8sBQRmU6k8=", + "dev": true }, "node_modules/function-bind": { "version": "1.1.1", "resolved": "https://registry.npmjs.org/function-bind/-/function-bind-1.1.1.tgz", - "integrity": "sha512-yIovAzMX49sF8Yl58fSCWJ5svSLuaibPxXQJFLmBObTuCr0Mf1KiPopGM9NiFjiYBCbfaa2Fh6breQ6ANVTI0A==" + "integrity": "sha512-yIovAzMX49sF8Yl58fSCWJ5svSLuaibPxXQJFLmBObTuCr0Mf1KiPopGM9NiFjiYBCbfaa2Fh6breQ6ANVTI0A==", + "dev": true }, "node_modules/functional-red-black-tree": { "version": "1.0.1", @@ -6304,6 +5769,7 @@ "version": "1.0.0-beta.2", "resolved": "https://registry.npmjs.org/gensync/-/gensync-1.0.0-beta.2.tgz", "integrity": "sha512-3hN7NaskYvMDLQY55gnW3NQ+mesEAepTqlg+VEbj7zzqEMBVNhzcGYYeqFo/TlYz6eQiFcp1HcsCZO+nGgS8zg==", + "dev": true, "engines": { "node": ">=6.9.0" } @@ -6344,6 +5810,7 @@ "version": "5.2.0", "resolved": "https://registry.npmjs.org/get-stream/-/get-stream-5.2.0.tgz", "integrity": "sha512-nBF+F1rAZVCu/p7rjzgA+Yb4lfYXrpl7a6VmJrU8wF9I1CKvP/QwPNZHnOlwbTkY6dvtFIzFMSyQXbLoTQPRpA==", + "dev": true, "dependencies": { "pump": "^3.0.0" }, @@ -6367,6 +5834,7 @@ "version": "7.2.0", "resolved": "https://registry.npmjs.org/glob/-/glob-7.2.0.tgz", "integrity": "sha512-lmLf6gtyrPq8tTjSmrO94wBeQbFR3HbLHbuyD69wuyQkImp2hWqMGB47OX65FBkPffO641IP9jWa1z4ivqG26Q==", + "dev": true, "dependencies": { "fs.realpath": "^1.0.0", "inflight": "^1.0.4", @@ -6398,6 +5866,7 @@ "version": "11.12.0", "resolved": "https://registry.npmjs.org/globals/-/globals-11.12.0.tgz", "integrity": "sha512-WOBp/EEGUiIsJSp7wcv/y6MO+lV9UoncWqxuFfm8eBwzWNgyfBd6Gz+IeKQ9jCmyhoH99g15M3T+QaVHFjizVA==", + "dev": true, "engines": { "node": ">=4" } @@ -6452,14 +5921,6 @@ "integrity": "sha512-qkIilPUYcNhJpd33n0GBXTB1MMPp14TxEsEs0pTrsSVucApsYzW5V+Q8Qxhik6KU3evy+qkAAowTByymK0avdg==", "dev": true }, - "node_modules/graphlib": { - "version": "2.1.8", - "resolved": "https://registry.npmjs.org/graphlib/-/graphlib-2.1.8.tgz", - "integrity": "sha512-jcLLfkpoVGmH7/InMC/1hIvOPSUh38oJtGhvrOFGzioE1DZ+0YW16RgmOJhHiuWTvGiJQ9Z1Ik43JvkRPRvE+A==", - "dependencies": { - "lodash": "^4.17.15" - } - }, "node_modules/har-schema": { "version": "2.0.0", "resolved": "https://registry.npmjs.org/har-schema/-/har-schema-2.0.0.tgz", @@ -6487,6 +5948,7 @@ "version": "1.0.3", "resolved": "https://registry.npmjs.org/has/-/has-1.0.3.tgz", "integrity": "sha512-f2dvO0VU6Oej7RkWJGrehjbzMAjFp5/VKPp5tTpWIV4JHHZK1/BxbFRtf/siA2SWTe09caDmVtYYzWEIbBS4zw==", + "dev": true, "dependencies": { "function-bind": "^1.1.1" }, @@ -6519,6 +5981,7 @@ "version": "3.0.0", "resolved": "https://registry.npmjs.org/has-flag/-/has-flag-3.0.0.tgz", "integrity": "sha1-tdRU3CGZriJWmfNGfloH87lVuv0=", + "dev": true, "engines": { "node": ">=4" } @@ -6573,9 +6036,10 @@ } }, "node_modules/https-proxy-agent": { - "version": "5.0.0", - "resolved": "https://registry.npmjs.org/https-proxy-agent/-/https-proxy-agent-5.0.0.tgz", - "integrity": "sha512-EkYm5BcKUGiduxzSt3Eppko+PiNWNEpa4ySk9vTC6wDsQJW9rHSa+UhGNJoRYp7bz6Ht1eaRIa6QaJqO5rCFbA==", + "version": "5.0.1", + "resolved": "https://registry.npmjs.org/https-proxy-agent/-/https-proxy-agent-5.0.1.tgz", + "integrity": "sha512-dFcAjpTQFgoLMzC2VwU+C/CbS7uRL0lWmxDITmqm7C+7F0Odmj6s9l6alZc6AELXhrnggM2CeWSXHGOdX2YtwA==", + "dev": true, "dependencies": { "agent-base": "6", "debug": "4" @@ -6584,21 +6048,11 @@ "node": ">= 6" } }, - "node_modules/iconv-lite": { - "version": "0.6.3", - "resolved": "https://registry.npmjs.org/iconv-lite/-/iconv-lite-0.6.3.tgz", - "integrity": "sha512-4fCk79wshMdzMp2rH06qWrJE4iolqLhCUH+OiuIgU++RB0+94NlDL81atO7GX55uUKueo0txHNtvEyI6D7WdMw==", - "dependencies": { - "safer-buffer": ">= 2.1.2 < 3.0.0" - }, - "engines": { - "node": ">=0.10.0" - } - }, "node_modules/ieee754": { "version": "1.2.1", "resolved": "https://registry.npmjs.org/ieee754/-/ieee754-1.2.1.tgz", "integrity": "sha512-dcyqhDvX1C46lXZcVqCpK+FtMRQVdIMN6/Df5js2zouUsqG7I6sFxitIC+7KYK29KdXOLHdu9zL4sFnoVQnqaA==", + "dev": true, "funding": [ { "type": "github", @@ -6679,6 +6133,7 @@ "version": "1.0.6", "resolved": "https://registry.npmjs.org/inflight/-/inflight-1.0.6.tgz", "integrity": "sha1-Sb1jMdfQLQwJvJEKEHW6gWW1bfk=", + "dev": true, "dependencies": { "once": "^1.3.0", "wrappy": "1" @@ -6687,15 +6142,8 @@ "node_modules/inherits": { "version": "2.0.4", "resolved": "https://registry.npmjs.org/inherits/-/inherits-2.0.4.tgz", - "integrity": "sha512-k/vGaX4/Yla3WzyMCvTQOXYeIHvqOKtnqBduzTHpzpQZzAskKMhZ2K+EnBiSM9zGSoIFeMpXKxa4dYeZIQqewQ==" - }, - "node_modules/internmap": { - "version": "2.0.3", - "resolved": "https://registry.npmjs.org/internmap/-/internmap-2.0.3.tgz", - "integrity": "sha512-5Hh7Y1wQbvY5ooGgPbDaL5iYLAPzMTUrjMulskHLH6wnv/A+1q5rgEaiuqEjB+oxGXIVZs1FF+R/KPN3ZSQYYg==", - "engines": { - "node": ">=12" - } + "integrity": "sha512-k/vGaX4/Yla3WzyMCvTQOXYeIHvqOKtnqBduzTHpzpQZzAskKMhZ2K+EnBiSM9zGSoIFeMpXKxa4dYeZIQqewQ==", + "dev": true }, "node_modules/invariant": { "version": "2.2.4", @@ -6715,6 +6163,12 @@ "node": ">=8" } }, + "node_modules/is-arrayish": { + "version": "0.2.1", + "resolved": "https://registry.npmjs.org/is-arrayish/-/is-arrayish-0.2.1.tgz", + "integrity": "sha512-zz06S8t0ozoDXMG+ube26zeCTNXcKIPJZJi8hBrF4idCLms4CG9QtK7qBl1boi5ODzFpjswb5JPmHCbMpjaYzg==", + "dev": true + }, "node_modules/is-binary-path": { "version": "2.1.0", "resolved": "https://registry.npmjs.org/is-binary-path/-/is-binary-path-2.1.0.tgz", @@ -6727,10 +6181,23 @@ "node": ">=8" } }, + "node_modules/is-builtin-module": { + "version": "3.1.0", + "resolved": "https://registry.npmjs.org/is-builtin-module/-/is-builtin-module-3.1.0.tgz", + "integrity": "sha512-OV7JjAgOTfAFJmHZLvpSTb4qi0nIILDV1gWPYDnDJUTNFM5aGlRAhk4QcT8i7TuAleeEV5Fdkqn3t4mS+Q11fg==", + "dev": true, + "dependencies": { + "builtin-modules": "^3.0.0" + }, + "engines": { + "node": ">=6" + } + }, "node_modules/is-core-module": { "version": "2.8.0", "resolved": "https://registry.npmjs.org/is-core-module/-/is-core-module-2.8.0.tgz", "integrity": "sha512-vd15qHsaqrRL7dtH6QNuy0ndJmRDrS9HAM1CAiSifNUFv4x1a0CCVsj18hJ1mShxIG6T2i1sO78MkP56r0nYRw==", + "dev": true, "dependencies": { "has": "^1.0.3" }, @@ -6777,7 +6244,8 @@ "node_modules/is-module": { "version": "1.0.0", "resolved": "https://registry.npmjs.org/is-module/-/is-module-1.0.0.tgz", - "integrity": "sha1-Mlj7afeMFNW4FdZkM2tM/7ZEFZE=" + "integrity": "sha1-Mlj7afeMFNW4FdZkM2tM/7ZEFZE=", + "dev": true }, "node_modules/is-number": { "version": "7.0.0", @@ -6825,6 +6293,7 @@ "version": "1.2.1", "resolved": "https://registry.npmjs.org/is-reference/-/is-reference-1.2.1.tgz", "integrity": "sha512-U82MsXXiFIrjCK4otLT+o2NA2Cd2g5MLoOVXUZjIOhLurrRxpEXzI8O0KZHr3IjLvlAH1kTPYSuqer5T9ZVBKQ==", + "dev": true, "dependencies": { "@types/estree": "*" } @@ -7029,7 +6498,8 @@ "node_modules/js-tokens": { "version": "4.0.0", "resolved": "https://registry.npmjs.org/js-tokens/-/js-tokens-4.0.0.tgz", - "integrity": "sha512-RdJUflcE3cUzKiMqQgsCu06FPu9UdIJO0beYbPhHN4k6apgJtifcoCtT9bcxOpYBtpD2kCM6Sbzg4CausW/PKQ==" + "integrity": "sha512-RdJUflcE3cUzKiMqQgsCu06FPu9UdIJO0beYbPhHN4k6apgJtifcoCtT9bcxOpYBtpD2kCM6Sbzg4CausW/PKQ==", + "dev": true }, "node_modules/js-yaml": { "version": "3.14.1", @@ -7054,6 +6524,7 @@ "version": "2.5.2", "resolved": "https://registry.npmjs.org/jsesc/-/jsesc-2.5.2.tgz", "integrity": "sha512-OYu7XEzjkCQ3C5Ps3QIZsQfNpqoJyZZA99wd9aWd05NCtC5pWOkShK2mkL6HXQR6/Cy2lbNdPlZBpuQHXE63gA==", + "dev": true, "bin": { "jsesc": "bin/jsesc" }, @@ -7061,6 +6532,12 @@ "node": ">=4" } }, + "node_modules/json-parse-even-better-errors": { + "version": "2.3.1", + "resolved": "https://registry.npmjs.org/json-parse-even-better-errors/-/json-parse-even-better-errors-2.3.1.tgz", + "integrity": "sha512-xyFwyhro/JEof6Ghe2iz2NcXoj2sloNsWr/XsERDK/oiPCfaNhl5ONfp+jQdAZRQQ0IJWNzH9zIZF7li91kh2w==", + "dev": true + }, "node_modules/json-schema": { "version": "0.4.0", "resolved": "https://registry.npmjs.org/json-schema/-/json-schema-0.4.0.tgz", @@ -7086,12 +6563,10 @@ "dev": true }, "node_modules/json5": { - "version": "2.2.0", - "resolved": "https://registry.npmjs.org/json5/-/json5-2.2.0.tgz", - "integrity": "sha512-f+8cldu7X/y7RAJurMEJmdoKXGB/X550w2Nr3tTbezL6RwEE/iMcm+tZnXeoZtKuOq6ft8+CqzEkrIgx1fPoQA==", - "dependencies": { - "minimist": "^1.2.5" - }, + "version": "2.2.3", + "resolved": "https://registry.npmjs.org/json5/-/json5-2.2.3.tgz", + "integrity": "sha512-XmOWe7eyHYH14cLdVPoyg+GOH3rYX++KpzrylJwSW98t3Nk+U8XOl8FWKOgwtzdb8lXGf6zYwDUzeHMWfxasyg==", + "dev": true, "bin": { "json5": "lib/cli.js" }, @@ -7114,11 +6589,6 @@ "node": ">=0.6.0" } }, - "node_modules/khroma": { - "version": "2.0.0", - "resolved": "https://registry.npmjs.org/khroma/-/khroma-2.0.0.tgz", - "integrity": "sha512-2J8rDNlQWbtiNYThZRvmMv5yt44ZakX+Tz5ZIp/mN1pt4snn+m030Va5Z4v8xA0cQFDXBwO/8i42xL4QPsVk3g==" - }, "node_modules/lcov-parse": { "version": "1.0.0", "resolved": "https://registry.npmjs.org/lcov-parse/-/lcov-parse-1.0.0.tgz", @@ -7141,6 +6611,12 @@ "node": ">= 0.8.0" } }, + "node_modules/lines-and-columns": { + "version": "1.2.4", + "resolved": "https://registry.npmjs.org/lines-and-columns/-/lines-and-columns-1.2.4.tgz", + "integrity": "sha512-7ylylesZQ/PV29jhEDl3Ufjo6ZX7gCqJr5F7PKrqc93v7fzSymt1BpwEU8nAUXs8qzzvqhbjhK5QZg6Mt/HkBg==", + "dev": true + }, "node_modules/load-json-file": { "version": "7.0.1", "resolved": "https://registry.npmjs.org/load-json-file/-/load-json-file-7.0.1.tgz", @@ -7157,6 +6633,7 @@ "version": "5.0.0", "resolved": "https://registry.npmjs.org/locate-path/-/locate-path-5.0.0.tgz", "integrity": "sha512-t7hw9pI+WvuwNJXwk5zVHpyhIqzg2qTlklJOf0mVxGSbe3Fp2VieZcduNYjaLDoy6p9uGpQEGWG87WpMKlNq8g==", + "dev": true, "dependencies": { "p-locate": "^4.1.0" }, @@ -7167,7 +6644,8 @@ "node_modules/lodash": { "version": "4.17.21", "resolved": "https://registry.npmjs.org/lodash/-/lodash-4.17.21.tgz", - "integrity": "sha512-v2kDEe57lecTulaDIuNTPy3Ry4gLGJ6Z1O3vE1krgXZNrsQ+LFTGHVxVjcXPs17LhbZVGedAJv8XZ1tvj5FvSg==" + "integrity": "sha512-v2kDEe57lecTulaDIuNTPy3Ry4gLGJ6Z1O3vE1krgXZNrsQ+LFTGHVxVjcXPs17LhbZVGedAJv8XZ1tvj5FvSg==", + "dev": true }, "node_modules/lodash.debounce": { "version": "4.0.8", @@ -7229,6 +6707,7 @@ "version": "0.25.7", "resolved": "https://registry.npmjs.org/magic-string/-/magic-string-0.25.7.tgz", "integrity": "sha512-4CrMT5DOHTDk4HYDlzmwu4FVCcIYI8gauveasrdCu2IKIFOJ3f0v/8MDGJCDL9oD2ppz/Av1b0Nj345H9M+XIA==", + "dev": true, "dependencies": { "sourcemap-codec": "^1.4.4" } @@ -7324,22 +6803,6 @@ "node": ">= 8" } }, - "node_modules/mermaid": { - "version": "9.1.1", - "resolved": "https://registry.npmjs.org/mermaid/-/mermaid-9.1.1.tgz", - "integrity": "sha512-2RVD+WkzZ4VDyO9gQvQAuQ/ux2gLigJtKDTlbwjYqOR/NwsVzTSfGm/kx648/qWJsg6Sv04tE9BWCO8s6a+pFA==", - "dependencies": { - "@braintree/sanitize-url": "^6.0.0", - "d3": "^7.0.0", - "dagre": "^0.8.5", - "dagre-d3": "^0.6.4", - "dompurify": "2.3.6", - "graphlib": "^2.1.8", - "khroma": "^2.0.0", - "moment-mini": "^2.24.0", - "stylis": "^4.0.10" - } - }, "node_modules/micromatch": { "version": "4.0.4", "resolved": "https://registry.npmjs.org/micromatch/-/micromatch-4.0.4.tgz", @@ -7401,9 +6864,10 @@ } }, "node_modules/minimatch": { - "version": "3.0.4", - "resolved": "https://registry.npmjs.org/minimatch/-/minimatch-3.0.4.tgz", - "integrity": "sha512-yJHVQEhyqPLUTgt9B83PXu6W3rx4MvvHvSUvToogpwoGDOUQ+yDrR0HRot+yOCdCO7u4hX3pWft6kWBBcqh0UA==", + "version": "3.1.2", + "resolved": "https://registry.npmjs.org/minimatch/-/minimatch-3.1.2.tgz", + "integrity": "sha512-J7p63hRiAjw1NDEww1W7i37+ByIrOWO5XQQAzZ3VOcL0PNybwpfmV/N05zFAzwQ9USyEcX6t3UO+K5aqBQOIHw==", + "dev": true, "dependencies": { "brace-expansion": "^1.1.7" }, @@ -7414,27 +6878,26 @@ "node_modules/minimist": { "version": "1.2.6", "resolved": "https://registry.npmjs.org/minimist/-/minimist-1.2.6.tgz", - "integrity": "sha512-Jsjnk4bw3YJqYzbdyBiNsPWHPfO++UGG749Cxs6peCu5Xg4nrena6OVxOYxrQTqww0Jmwt+Ref8rggumkTLz9Q==" + "integrity": "sha512-Jsjnk4bw3YJqYzbdyBiNsPWHPfO++UGG749Cxs6peCu5Xg4nrena6OVxOYxrQTqww0Jmwt+Ref8rggumkTLz9Q==", + "dev": true + }, + "node_modules/mitt": { + "version": "3.0.0", + "resolved": "https://registry.npmjs.org/mitt/-/mitt-3.0.0.tgz", + "integrity": "sha512-7dX2/10ITVyqh4aOSVI9gdape+t9l2/8QxHrFmUXu4EEUpdlxl6RudZUPZoc+zuY2hk1j7XxVroIVIan/pD/SQ==", + "dev": true }, "node_modules/mkdirp-classic": { "version": "0.5.3", "resolved": "https://registry.npmjs.org/mkdirp-classic/-/mkdirp-classic-0.5.3.tgz", - "integrity": "sha512-gKLcREMhtuZRwRAfqP3RFW+TK4JqApVBtOIftVgjuABpAtpxhPGaDcfvbhNvD0B8iD1oUr/txX35NjcaY6Ns/A==" - }, - "node_modules/moment-mini": { - "version": "2.24.0", - "resolved": "https://registry.npmjs.org/moment-mini/-/moment-mini-2.24.0.tgz", - "integrity": "sha512-9ARkWHBs+6YJIvrIp0Ik5tyTTtP9PoV0Ssu2Ocq5y9v8+NOOpWiRshAp8c4rZVWTOe+157on/5G+zj5pwIQFEQ==" + "integrity": "sha512-gKLcREMhtuZRwRAfqP3RFW+TK4JqApVBtOIftVgjuABpAtpxhPGaDcfvbhNvD0B8iD1oUr/txX35NjcaY6Ns/A==", + "dev": true }, "node_modules/ms": { "version": "2.1.2", "resolved": "https://registry.npmjs.org/ms/-/ms-2.1.2.tgz", - "integrity": "sha512-sGkPx+VjMtmA6MX27oA4FBFELFCZZ4S4XqeGOXCv68tT+jb3vk/RyaKWP0PTKyWtmLSM0b+adUTEvbs1PEaH2w==" - }, - "node_modules/nan": { - "version": "2.15.0", - "resolved": "https://registry.npmjs.org/nan/-/nan-2.15.0.tgz", - "integrity": "sha512-8ZtvEnA2c5aYCZYd1cvgdnU6cqwixRoYg70xPLWUws5ORTa/lnw+u4amixRS/Ac5U5mQVgp9pnlSUnbNWFaWZQ==" + "integrity": "sha512-sGkPx+VjMtmA6MX27oA4FBFELFCZZ4S4XqeGOXCv68tT+jb3vk/RyaKWP0PTKyWtmLSM0b+adUTEvbs1PEaH2w==", + "dev": true }, "node_modules/natural-compare": { "version": "1.4.0", @@ -7452,6 +6915,7 @@ "version": "2.6.7", "resolved": "https://registry.npmjs.org/node-fetch/-/node-fetch-2.6.7.tgz", "integrity": "sha512-ZjMPFEfVx5j+y2yF35Kzx5sF7kDzxuDj6ziH4FFbOp87zKDZNx8yExJIb05OGF4Nlt9IHFIMBkRl41VdvcNdbQ==", + "dev": true, "dependencies": { "whatwg-url": "^5.0.0" }, @@ -7478,6 +6942,16 @@ "node-gyp-build-test": "build-test.js" } }, + "node_modules/node-gyp-build-optional-packages": { + "version": "5.0.3", + "resolved": "https://registry.npmjs.org/node-gyp-build-optional-packages/-/node-gyp-build-optional-packages-5.0.3.tgz", + "integrity": "sha512-k75jcVzk5wnnc/FMxsf4udAoTEUv2jY3ycfdSd3yWu6Cnd1oee6/CfZJApyscA4FJOmdoixWwiwOyf16RzD5JA==", + "bin": { + "node-gyp-build-optional-packages": "bin.js", + "node-gyp-build-optional-packages-optional": "optional.js", + "node-gyp-build-optional-packages-test": "build-test.js" + } + }, "node_modules/node-preload": { "version": "0.2.1", "resolved": "https://registry.npmjs.org/node-preload/-/node-preload-0.2.1.tgz", @@ -7493,7 +6967,8 @@ "node_modules/node-releases": { "version": "2.0.2", "resolved": "https://registry.npmjs.org/node-releases/-/node-releases-2.0.2.tgz", - "integrity": "sha512-XxYDdcQ6eKqp/YjI+tb2C5WM2LgjnZrfYg4vgQt49EK268b6gYCHsBLrK2qvJo4FmCtqmKezb0WZFK4fkrZNsg==" + "integrity": "sha512-XxYDdcQ6eKqp/YjI+tb2C5WM2LgjnZrfYg4vgQt49EK268b6gYCHsBLrK2qvJo4FmCtqmKezb0WZFK4fkrZNsg==", + "dev": true }, "node_modules/nofilter": { "version": "3.1.0", @@ -7687,6 +7162,7 @@ "version": "1.4.0", "resolved": "https://registry.npmjs.org/once/-/once-1.4.0.tgz", "integrity": "sha1-WDsap3WWHUsROsF9nFC6753Xa9E=", + "dev": true, "dependencies": { "wrappy": "1" } @@ -7736,6 +7212,7 @@ "version": "2.3.0", "resolved": "https://registry.npmjs.org/p-limit/-/p-limit-2.3.0.tgz", "integrity": "sha512-//88mFWSJx8lxCzwdAABTJL2MyWB12+eIY7MDL2SqLmAkeKU9qxRvWuSyTjm3FUmpBEMuFfckAIqEaVGUDxb6w==", + "dev": true, "dependencies": { "p-try": "^2.0.0" }, @@ -7750,6 +7227,7 @@ "version": "4.1.0", "resolved": "https://registry.npmjs.org/p-locate/-/p-locate-4.1.0.tgz", "integrity": "sha512-R79ZZ/0wAxKGu3oYMlz8jy/kbhsNrS7SKZ7PxEHBgJ5+F2mtFW2fK2cOtBh1cHYkQsbzFV7I+EoRKe6Yt0oK7A==", + "dev": true, "dependencies": { "p-limit": "^2.2.0" }, @@ -7843,6 +7321,7 @@ "version": "2.2.0", "resolved": "https://registry.npmjs.org/p-try/-/p-try-2.2.0.tgz", "integrity": "sha512-R4nPAVTAU0B9D35/Gk3uJf/7XYbQcyohSKdvAxIRSNghFl4e71hVoGnBNQz9cWaXxO2I10KTC+3jMdvvoKw6dQ==", + "dev": true, "engines": { "node": ">=6" } @@ -7883,6 +7362,24 @@ "node": ">=6" } }, + "node_modules/parse-json": { + "version": "5.2.0", + "resolved": "https://registry.npmjs.org/parse-json/-/parse-json-5.2.0.tgz", + "integrity": "sha512-ayCKvm/phCGxOkYRSCM82iDwct8/EonSEgCSxWxD7ve6jHggsFl4fZVQBPRNgQoKiuV/odhFrGzQXZwbifC8Rg==", + "dev": true, + "dependencies": { + "@babel/code-frame": "^7.0.0", + "error-ex": "^1.3.1", + "json-parse-even-better-errors": "^2.3.0", + "lines-and-columns": "^1.1.6" + }, + "engines": { + "node": ">=8" + }, + "funding": { + "url": "https://github.com/sponsors/sindresorhus" + } + }, "node_modules/parse-ms": { "version": "2.1.0", "resolved": "https://registry.npmjs.org/parse-ms/-/parse-ms-2.1.0.tgz", @@ -7896,6 +7393,7 @@ "version": "4.0.0", "resolved": "https://registry.npmjs.org/path-exists/-/path-exists-4.0.0.tgz", "integrity": "sha512-ak9Qy5Q7jYb2Wwcey5Fpvg2KoAc/ZIhLSLOSBmRmygPsGwkVVt0fZa0qrtMz+m6tJTAHfZQ8FnmB4MG4LWy7/w==", + "dev": true, "engines": { "node": ">=8" } @@ -7904,6 +7402,7 @@ "version": "1.0.1", "resolved": "https://registry.npmjs.org/path-is-absolute/-/path-is-absolute-1.0.1.tgz", "integrity": "sha1-F0uSaHNVNP+8es5r9TpanhtcX18=", + "dev": true, "engines": { "node": ">=0.10.0" } @@ -7920,7 +7419,8 @@ "node_modules/path-parse": { "version": "1.0.7", "resolved": "https://registry.npmjs.org/path-parse/-/path-parse-1.0.7.tgz", - "integrity": "sha512-LDJzPVEEEPR+y48z93A0Ed0yXb8pAByGWo/k5YYdYgpY2/2EsOsksJrq7lOHxryrVOn1ejG6oAp8ahvOIQD8sw==" + "integrity": "sha512-LDJzPVEEEPR+y48z93A0Ed0yXb8pAByGWo/k5YYdYgpY2/2EsOsksJrq7lOHxryrVOn1ejG6oAp8ahvOIQD8sw==", + "dev": true }, "node_modules/path-type": { "version": "4.0.0", @@ -7934,7 +7434,8 @@ "node_modules/pend": { "version": "1.2.0", "resolved": "https://registry.npmjs.org/pend/-/pend-1.2.0.tgz", - "integrity": "sha1-elfrVQpng/kRUzH89GY9XI4AelA=" + "integrity": "sha512-F3asv42UuXchdzt+xXqfW1OGlVBe+mxa2mqI0pg5yAHZPvFmY3Y6drSf/GQ1A86WgWEN9Kzh/WrgKa6iGcHXLg==", + "dev": true }, "node_modules/performance-now": { "version": "2.1.0", @@ -7945,12 +7446,14 @@ "node_modules/picocolors": { "version": "1.0.0", "resolved": "https://registry.npmjs.org/picocolors/-/picocolors-1.0.0.tgz", - "integrity": "sha512-1fygroTLlHu66zi26VoTDv8yRgm0Fccecssto+MhsZ0D/DGW2sm8E8AjW7NU5VVTRt5GxbeZ5qBuJr+HyLYkjQ==" + "integrity": "sha512-1fygroTLlHu66zi26VoTDv8yRgm0Fccecssto+MhsZ0D/DGW2sm8E8AjW7NU5VVTRt5GxbeZ5qBuJr+HyLYkjQ==", + "dev": true }, "node_modules/picomatch": { "version": "2.3.0", "resolved": "https://registry.npmjs.org/picomatch/-/picomatch-2.3.0.tgz", "integrity": "sha512-lY1Q/PiJGC2zOv/z391WOTD+Z02bCgsFfvxoXXf6h7kv9o+WmsmzYqrAwY63sNgOxE4xEdq0WyUnXfKeBrSvYw==", + "dev": true, "engines": { "node": ">=8.6" }, @@ -8048,6 +7551,7 @@ "version": "4.2.0", "resolved": "https://registry.npmjs.org/pkg-dir/-/pkg-dir-4.2.0.tgz", "integrity": "sha512-HRDzbaKjC+AOWVXxAU/x54COGeIv9eb+6CkDSQoNTt4XyWoIJvuPsXizxu/Fr23EiekbtZwmh1IcIG/l/a10GQ==", + "dev": true, "dependencies": { "find-up": "^4.0.0" }, @@ -8204,6 +7708,7 @@ "version": "2.0.3", "resolved": "https://registry.npmjs.org/progress/-/progress-2.0.3.tgz", "integrity": "sha512-7PiHtLll5LdnKIMw100I+8xJXR5gW2QwWYkT6iJva0bXitZKa/XMrSbdmg3r2Xnaidz9Qumd0VPaMrZlF9V9sA==", + "dev": true, "engines": { "node": ">=0.4.0" } @@ -8211,7 +7716,8 @@ "node_modules/proxy-from-env": { "version": "1.1.0", "resolved": "https://registry.npmjs.org/proxy-from-env/-/proxy-from-env-1.1.0.tgz", - "integrity": "sha512-D+zkORCbA9f1tdWRK0RaCR3GPv50cMxcrz4X8k5LTSUD1Dkw47mKJEZQNunItRTkWwgtaUSo1RVFRIG9ZXiFYg==" + "integrity": "sha512-D+zkORCbA9f1tdWRK0RaCR3GPv50cMxcrz4X8k5LTSUD1Dkw47mKJEZQNunItRTkWwgtaUSo1RVFRIG9ZXiFYg==", + "dev": true }, "node_modules/psl": { "version": "1.8.0", @@ -8223,6 +7729,7 @@ "version": "3.0.0", "resolved": "https://registry.npmjs.org/pump/-/pump-3.0.0.tgz", "integrity": "sha512-LwZy+p3SFs1Pytd/jYct4wpv49HiYCqd9Rlc5ZVdk0V+8Yzv6jR5Blk3TRmPL1ft69TxP0IMZGJ+WPFU2BFhww==", + "dev": true, "dependencies": { "end-of-stream": "^1.1.0", "once": "^1.3.1" @@ -8238,48 +7745,53 @@ } }, "node_modules/puppeteer": { - "version": "13.3.1", - "resolved": "https://registry.npmjs.org/puppeteer/-/puppeteer-13.3.1.tgz", - "integrity": "sha512-nYTR+LP1amGs5BALSoGLbw+QxQZS//7HsKKSrxaMAIic0AE3iIr10E7gcZEsP/4JcxBfgNyT3SPUyEOS6Wb0fQ==", + "version": "19.8.3", + "resolved": "https://registry.npmjs.org/puppeteer/-/puppeteer-19.8.3.tgz", + "integrity": "sha512-sKtt3aDRAcWuemeEtRaJqWKRlQ72OyKVcxX3Ur3KyFUEEzb2sEHpFc2mBlTMPmzOiNg5dB4dnxfelV9/xypJrA==", + "dev": true, "hasInstallScript": true, "dependencies": { + "@puppeteer/browsers": "0.3.2", + "cosmiconfig": "8.1.3", + "https-proxy-agent": "5.0.1", + "progress": "2.0.3", + "proxy-from-env": "1.1.0", + "puppeteer-core": "19.8.3" + } + }, + "node_modules/puppeteer-core": { + "version": "19.8.3", + "resolved": "https://registry.npmjs.org/puppeteer-core/-/puppeteer-core-19.8.3.tgz", + "integrity": "sha512-+gPT43K3trUIr+7+tNjCg95vMgM9RkFIeeyck3SXUTBpGkrf6sxfWckncqY8MnzHfRcyapvztKNmqvJ+Ngukyg==", + "dev": true, + "dependencies": { + "chromium-bidi": "0.4.6", "cross-fetch": "3.1.5", - "debug": "4.3.3", - "devtools-protocol": "0.0.960912", + "debug": "4.3.4", + "devtools-protocol": "0.0.1107588", "extract-zip": "2.0.1", - "https-proxy-agent": "5.0.0", - "pkg-dir": "4.2.0", - "progress": "2.0.3", + "https-proxy-agent": "5.0.1", "proxy-from-env": "1.1.0", - "rimraf": "3.0.2", "tar-fs": "2.1.1", "unbzip2-stream": "1.4.3", - "ws": "8.5.0" + "ws": "8.13.0" }, "engines": { - "node": ">=10.18.1" - } - }, - "node_modules/puppeteer/node_modules/debug": { - "version": "4.3.3", - "resolved": "https://registry.npmjs.org/debug/-/debug-4.3.3.tgz", - "integrity": "sha512-/zxw5+vh1Tfv+4Qn7a5nsbcJKPaSvCDhojn6FEl9vupwK2VCSDtEiEtqr8DFtzYFOdz63LBkxec7DYuc2jon6Q==", - "dependencies": { - "ms": "2.1.2" + "node": ">=14.14.0" }, - "engines": { - "node": ">=6.0" + "peerDependencies": { + "typescript": ">= 4.7.4" }, "peerDependenciesMeta": { - "supports-color": { + "typescript": { "optional": true } } }, "node_modules/qs": { - "version": "6.5.2", - "resolved": "https://registry.npmjs.org/qs/-/qs-6.5.2.tgz", - "integrity": "sha512-N5ZAX4/LxJmF+7wN74pUD6qAh9/wnvdQcjq9TZjevvXzSUo7bfmw91saqMjzGS2xq91/odN2dW/WOl7qQHNDGA==", + "version": "6.5.3", + "resolved": "https://registry.npmjs.org/qs/-/qs-6.5.3.tgz", + "integrity": "sha512-qxXIEh4pCGfHICj1mAJQ2/2XVZkjCDTcEgfoSQxc/fYivUZxTkk7L3bDBJSoNrEzXI17oUO5Dp07ktqE5KzczA==", "dev": true, "engines": { "node": ">=0.6" @@ -8306,9 +7818,10 @@ ] }, "node_modules/readable-stream": { - "version": "3.6.0", - "resolved": "https://registry.npmjs.org/readable-stream/-/readable-stream-3.6.0.tgz", - "integrity": "sha512-BViHy7LKeTz4oNnkcLJ+lVSL6vpiFeX6/d3oSH8zCW7UxP2onchk+vTGB143xuFjHS3deTgkKoXXymXqymiIdA==", + "version": "3.6.2", + "resolved": "https://registry.npmjs.org/readable-stream/-/readable-stream-3.6.2.tgz", + "integrity": "sha512-9u/sniCrY3D5WdsERHzHE4G2YCXqoG5FTHUiCC4SIbr6XcLZBY05ya9EKjYek9O5xOAwjGq+1JdGBAS7Q9ScoA==", + "dev": true, "dependencies": { "inherits": "^2.0.3", "string_decoder": "^1.1.1", @@ -8482,6 +7995,7 @@ "version": "1.20.0", "resolved": "https://registry.npmjs.org/resolve/-/resolve-1.20.0.tgz", "integrity": "sha512-wENBPt4ySzg4ybFQW2TT1zMQucPK95HSh/nq2CFTZVOGut2+pQvSsgtda4d26YrYcr067wjbmzOG8byDPBX63A==", + "dev": true, "dependencies": { "is-core-module": "^2.2.0", "path-parse": "^1.0.6" @@ -8525,6 +8039,7 @@ "version": "3.0.2", "resolved": "https://registry.npmjs.org/rimraf/-/rimraf-3.0.2.tgz", "integrity": "sha512-JZkJMZkAGFFPP2YqXZXPbMlMBgsxzE8ILs4lMIX/2o0L9UBw9O/Y3o6wFw/i9YLapcUJWwqbi3kdxIPdC62TIA==", + "dev": true, "dependencies": { "glob": "^7.1.3" }, @@ -8535,15 +8050,11 @@ "url": "https://github.com/sponsors/isaacs" } }, - "node_modules/robust-predicates": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/robust-predicates/-/robust-predicates-3.0.1.tgz", - "integrity": "sha512-ndEIpszUHiG4HtDsQLeIuMvRsDnn8c8rYStabochtUeCvfuvNptb5TUbVD68LRAILPX7p9nqQGh4xJgn3EHS/g==" - }, "node_modules/rollup": { - "version": "2.67.2", - "resolved": "https://registry.npmjs.org/rollup/-/rollup-2.67.2.tgz", - "integrity": "sha512-hoEiBWwZtf1QdK3jZIq59L0FJj4Fiv4RplCO4pvCRC86qsoFurWB4hKQIjoRf3WvJmk5UZ9b0y5ton+62fC7Tw==", + "version": "2.75.6", + "resolved": "https://registry.npmjs.org/rollup/-/rollup-2.75.6.tgz", + "integrity": "sha512-OEf0TgpC9vU6WGROJIk1JA3LR5vk/yvqlzxqdrE2CzzXnqKXNzbAwlWUXis8RS3ZPe7LAq+YUxsRa0l3r27MLA==", + "dev": true, "bin": { "rollup": "dist/bin/rollup" }, @@ -8648,25 +8159,23 @@ "queue-microtask": "^1.2.2" } }, - "node_modules/rw": { - "version": "1.3.3", - "resolved": "https://registry.npmjs.org/rw/-/rw-1.3.3.tgz", - "integrity": "sha1-P4Yt+pGrdmsUiF700BEkv9oHT7Q=" - }, "node_modules/safe-buffer": { "version": "5.1.2", "resolved": "https://registry.npmjs.org/safe-buffer/-/safe-buffer-5.1.2.tgz", - "integrity": "sha512-Gd2UZBJDkXlY7GbJxfsE8/nvKkUEU1G38c1siN6QP6a9PT9MmHB8GnpscSmMJSoF8LOIrt8ud/wPtojys4G6+g==" + "integrity": "sha512-Gd2UZBJDkXlY7GbJxfsE8/nvKkUEU1G38c1siN6QP6a9PT9MmHB8GnpscSmMJSoF8LOIrt8ud/wPtojys4G6+g==", + "dev": true }, "node_modules/safer-buffer": { "version": "2.1.2", "resolved": "https://registry.npmjs.org/safer-buffer/-/safer-buffer-2.1.2.tgz", - "integrity": "sha512-YZo3K82SD7Riyi0E1EQPojLz7kpepnSQI9IyPbHHg1XXXevb5dJI7tpyN2ADxGcQbHG7vcyRHk0cbwqcQriUtg==" + "integrity": "sha512-YZo3K82SD7Riyi0E1EQPojLz7kpepnSQI9IyPbHHg1XXXevb5dJI7tpyN2ADxGcQbHG7vcyRHk0cbwqcQriUtg==", + "dev": true }, "node_modules/semver": { "version": "6.3.0", "resolved": "https://registry.npmjs.org/semver/-/semver-6.3.0.tgz", "integrity": "sha512-b39TBaTSfV6yBrapU89p5fKekE2m/NwnDocOVruQFS1/veMgdzuPcnOM34M6CwxW8jH/lxEa5rBoDeUwu5HHTw==", + "dev": true, "bin": { "semver": "bin/semver.js" } @@ -8784,6 +8293,7 @@ "version": "0.5.7", "resolved": "https://registry.npmjs.org/source-map/-/source-map-0.5.7.tgz", "integrity": "sha1-igOdLRAh0i0eoUyA2OpGi6LvP8w=", + "dev": true, "engines": { "node": ">=0.10.0" } @@ -8791,7 +8301,9 @@ "node_modules/sourcemap-codec": { "version": "1.4.8", "resolved": "https://registry.npmjs.org/sourcemap-codec/-/sourcemap-codec-1.4.8.tgz", - "integrity": "sha512-9NykojV5Uih4lgo5So5dtw+f0JgJX30KCNI8gwhz2J9A15wD0Ml6tjHKwf6fTSa6fAdVBdZeNOs9eJ71qCk8vA==" + "integrity": "sha512-9NykojV5Uih4lgo5So5dtw+f0JgJX30KCNI8gwhz2J9A15wD0Ml6tjHKwf6fTSa6fAdVBdZeNOs9eJ71qCk8vA==", + "deprecated": "Please use @jridgewell/sourcemap-codec instead", + "dev": true }, "node_modules/spawn-wrap": { "version": "2.0.0", @@ -8866,6 +8378,7 @@ "version": "1.3.0", "resolved": "https://registry.npmjs.org/string_decoder/-/string_decoder-1.3.0.tgz", "integrity": "sha512-hkRX8U1WjJFd8LsDJ2yQ/wWWxaopEsABU1XfkM8A+j0+85JAGppt16cr1Whg6KIbb4okU6Mql6BOj+uup/wKeA==", + "dev": true, "dependencies": { "safe-buffer": "~5.2.0" } @@ -8874,6 +8387,7 @@ "version": "5.2.1", "resolved": "https://registry.npmjs.org/safe-buffer/-/safe-buffer-5.2.1.tgz", "integrity": "sha512-rp3So07KcdmmKbGvgaNxQSJr7bGVSVk5S9Eq1F+ppbRo70+YeaDxkw5Dd8NPN+GD6bjnYm2VuPuCXmpuYvmCXQ==", + "dev": true, "funding": [ { "type": "github", @@ -8936,11 +8450,6 @@ "url": "https://github.com/sponsors/sindresorhus" } }, - "node_modules/stylis": { - "version": "4.1.1", - "resolved": "https://registry.npmjs.org/stylis/-/stylis-4.1.1.tgz", - "integrity": "sha512-lVrM/bNdhVX2OgBFNa2YJ9Lxj7kPzylieHd3TNjuGE0Re9JB7joL5VUKOVH1kdNNJTgGPpT8hmwIAPLaSyEVFQ==" - }, "node_modules/supertap": { "version": "2.0.0", "resolved": "https://registry.npmjs.org/supertap/-/supertap-2.0.0.tgz", @@ -8970,6 +8479,7 @@ "version": "5.5.0", "resolved": "https://registry.npmjs.org/supports-color/-/supports-color-5.5.0.tgz", "integrity": "sha512-QjVjwdXIt408MIiAqCX4oUKsgU2EqAGzs2Ppkm4aQYbjm+ZEWEcW4SfFNTr4uMNZma0ey4f5lgLrkB0aX0QMow==", + "dev": true, "dependencies": { "has-flag": "^3.0.0" }, @@ -8981,6 +8491,7 @@ "version": "2.1.1", "resolved": "https://registry.npmjs.org/tar-fs/-/tar-fs-2.1.1.tgz", "integrity": "sha512-V0r2Y9scmbDRLCNex/+hYzvp/zyYjvFbHPNgVTKfQvVrb6guiE/fxP+XblDNR011utopbkex2nM4dHNV6GDsng==", + "dev": true, "dependencies": { "chownr": "^1.1.1", "mkdirp-classic": "^0.5.2", @@ -8992,6 +8503,7 @@ "version": "2.2.0", "resolved": "https://registry.npmjs.org/tar-stream/-/tar-stream-2.2.0.tgz", "integrity": "sha512-ujeqbceABgwMZxEJnk2HDY2DlnUZ+9oEcb1KzTVfYHio0UE6dG71n60d8D2I4qNvleWrrXpmjpt7vZeF1LnMZQ==", + "dev": true, "dependencies": { "bl": "^4.0.3", "end-of-stream": "^1.4.1", @@ -9035,7 +8547,8 @@ "node_modules/through": { "version": "2.3.8", "resolved": "https://registry.npmjs.org/through/-/through-2.3.8.tgz", - "integrity": "sha1-DdTJ/6q8NXlgsbckEV1+Doai4fU=" + "integrity": "sha512-w89qg7PI8wAdvX60bMDP+bFoD5Dvhm9oLheFp5O4a2QF0cSBGsBX4qZmadPMvVqlLJBBci+WqGGOAPvcDeNSVg==", + "dev": true }, "node_modules/time-zone": { "version": "1.0.0", @@ -9050,6 +8563,7 @@ "version": "2.0.0", "resolved": "https://registry.npmjs.org/to-fast-properties/-/to-fast-properties-2.0.0.tgz", "integrity": "sha1-3F5pjL0HkmW8c+A3doGk5Og/YW4=", + "dev": true, "engines": { "node": ">=4" } @@ -9082,7 +8596,8 @@ "node_modules/tr46": { "version": "0.0.3", "resolved": "https://registry.npmjs.org/tr46/-/tr46-0.0.3.tgz", - "integrity": "sha1-gYT9NH2snNwYWZLzpmIuFLnZq2o=" + "integrity": "sha512-N3WMsuqV66lT30CrXNbEjx4GEwlow3v6rr4mCcv6prnfwhS01rkgyFdjPNBYd9br7LpXV1+Emh01fHnq2Gdgrw==", + "dev": true }, "node_modules/tunnel-agent": { "version": "0.6.0", @@ -9148,6 +8663,7 @@ "version": "1.4.3", "resolved": "https://registry.npmjs.org/unbzip2-stream/-/unbzip2-stream-1.4.3.tgz", "integrity": "sha512-mlExGW4w71ebDJviH16lQLtZS32VKqsSfk80GCfUlwT/4/hNRFsoscrF/c++9xinkMzECL1uL9DDwXqFWkruPg==", + "dev": true, "dependencies": { "buffer": "^5.2.1", "through": "^2.3.8" @@ -9210,7 +8726,8 @@ "node_modules/util-deprecate": { "version": "1.0.2", "resolved": "https://registry.npmjs.org/util-deprecate/-/util-deprecate-1.0.2.tgz", - "integrity": "sha1-RQ1Nyfpw3nMnYvvS1KKJgUGaDM8=" + "integrity": "sha512-EPD5q1uXyFxJpCrLnCc1nHnq3gOa6DZBocAIiI2TaSCA7VCJ1UJDMagCzIkXNsUYfD1daK//LTEQ8xiIbrHtcw==", + "dev": true }, "node_modules/uuid": { "version": "3.4.0", @@ -9274,7 +8791,8 @@ "node_modules/webidl-conversions": { "version": "3.0.1", "resolved": "https://registry.npmjs.org/webidl-conversions/-/webidl-conversions-3.0.1.tgz", - "integrity": "sha1-JFNCdeKnvGvnvIZhHMFq4KVlSHE=" + "integrity": "sha512-2JAn3z8AR6rjK8Sm8orRC0h/bcl/DqL7tRPdGZ4I1CjdF+EaMLmYxBHyXuKL849eucPFhvBoxMsflfOb8kxaeQ==", + "dev": true }, "node_modules/well-known-symbols": { "version": "2.0.0", @@ -9288,7 +8806,8 @@ "node_modules/whatwg-url": { "version": "5.0.0", "resolved": "https://registry.npmjs.org/whatwg-url/-/whatwg-url-5.0.0.tgz", - "integrity": "sha1-lmRU6HZUYuN2RNNib2dCzotwll0=", + "integrity": "sha512-saE57nupxk6v3HY35+jzBwYa0rKSy0XR8JSxZPwgLr7ys0IBzhGviA1/TUGJLmSVqs8pb9AnvICXEuOHLprYTw==", + "dev": true, "dependencies": { "tr46": "~0.0.3", "webidl-conversions": "^3.0.0" @@ -9359,7 +8878,8 @@ "node_modules/wrappy": { "version": "1.0.2", "resolved": "https://registry.npmjs.org/wrappy/-/wrappy-1.0.2.tgz", - "integrity": "sha1-tSQ9jz7BqjXxNkYFvA0QNuMKtp8=" + "integrity": "sha1-tSQ9jz7BqjXxNkYFvA0QNuMKtp8=", + "dev": true }, "node_modules/write-file-atomic": { "version": "3.0.3", @@ -9374,15 +8894,16 @@ } }, "node_modules/ws": { - "version": "8.5.0", - "resolved": "https://registry.npmjs.org/ws/-/ws-8.5.0.tgz", - "integrity": "sha512-BWX0SWVgLPzYwF8lTzEy1egjhS4S4OEAHfsO8o65WOVsrnSRGaSiUaa9e0ggGlkMTtBlmOpEXiie9RUcBO86qg==", + "version": "8.13.0", + "resolved": "https://registry.npmjs.org/ws/-/ws-8.13.0.tgz", + "integrity": "sha512-x9vcZYTrFPC7aSIbj7sRCYo7L/Xb8Iy+pW0ng0wt2vCJv7M9HOMy0UoN3rr+IFC7hb7vXoqS+P9ktyLLLhO+LA==", + "dev": true, "engines": { "node": ">=10.0.0" }, "peerDependencies": { "bufferutil": "^4.0.1", - "utf-8-validate": "^5.0.2" + "utf-8-validate": ">=5.0.2" }, "peerDependenciesMeta": { "bufferutil": { @@ -9409,28 +8930,42 @@ "dev": true }, "node_modules/yargs": { - "version": "17.3.1", - "resolved": "https://registry.npmjs.org/yargs/-/yargs-17.3.1.tgz", - "integrity": "sha512-WUANQeVgjLbNsEmGk20f+nlHgOqzRFpiGWVaBrYGYIGANIIu3lWjoyi0fNlFmJkvfhCZ6BXINe7/W2O2bV4iaA==", + "version": "17.7.1", + "resolved": "https://registry.npmjs.org/yargs/-/yargs-17.7.1.tgz", + "integrity": "sha512-cwiTb08Xuv5fqF4AovYacTFNxk62th7LKJ6BL9IGUpTJrWoU7/7WdQGTP2SjKf1dUNBGzDd28p/Yfs/GI6JrLw==", "dev": true, "dependencies": { - "cliui": "^7.0.2", + "cliui": "^8.0.1", "escalade": "^3.1.1", "get-caller-file": "^2.0.5", "require-directory": "^2.1.1", "string-width": "^4.2.3", "y18n": "^5.0.5", - "yargs-parser": "^21.0.0" + "yargs-parser": "^21.1.1" }, "engines": { "node": ">=12" } }, "node_modules/yargs-parser": { - "version": "21.0.0", - "resolved": "https://registry.npmjs.org/yargs-parser/-/yargs-parser-21.0.0.tgz", - "integrity": "sha512-z9kApYUOCwoeZ78rfRYYWdiU/iNL6mwwYlkkZfJoyMR1xps+NEBX5X7XmRpxkZHhXJ6+Ey00IwKxBBSW9FIjyA==", + "version": "21.1.1", + "resolved": "https://registry.npmjs.org/yargs-parser/-/yargs-parser-21.1.1.tgz", + "integrity": "sha512-tVpsJW7DdjecAiFpbIB1e3qxIQsE6NoPc5/eTdrbbIC4h0LVsWhnoa3g+m2HclBIujHzsxZ4VJVA+GUuc2/LBw==", + "dev": true, + "engines": { + "node": ">=12" + } + }, + "node_modules/yargs/node_modules/cliui": { + "version": "8.0.1", + "resolved": "https://registry.npmjs.org/cliui/-/cliui-8.0.1.tgz", + "integrity": "sha512-BSeNnyus75C4//NQ9gQt1/csTXyo/8Sb+afLAkzAptFuMsod9HFokGNudZpi/oQV73hnVK+sR+5PVRMd+Dr7YQ==", "dev": true, + "dependencies": { + "string-width": "^4.2.0", + "strip-ansi": "^6.0.1", + "wrap-ansi": "^7.0.0" + }, "engines": { "node": ">=12" } @@ -9438,7 +8973,8 @@ "node_modules/yauzl": { "version": "2.10.0", "resolved": "https://registry.npmjs.org/yauzl/-/yauzl-2.10.0.tgz", - "integrity": "sha1-x+sXyT4RLLEIb6bY5R+wZnt5pfk=", + "integrity": "sha512-p4a9I6X6nu6IhoGmBqAcbJy1mlC4j27vEPZX9F4L4/vZT3Lyq1VkFHw/V/PUcB9Buo+DG3iHkT0x3Qya58zc3g==", + "dev": true, "dependencies": { "buffer-crc32": "~0.2.3", "fd-slicer": "~1.1.0" @@ -9462,6 +8998,7 @@ "version": "2.1.1", "resolved": "https://registry.npmjs.org/@ampproject/remapping/-/remapping-2.1.1.tgz", "integrity": "sha512-Aolwjd7HSC2PyY0fDj/wA/EimQT4HfEnFYNp5s9CQlrdhyvWTtvZ5YzrUPu6R6/1jKiUlxu8bUhkdSnKHNAHMA==", + "dev": true, "requires": { "@jridgewell/trace-mapping": "^0.3.0" } @@ -9470,6 +9007,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/code-frame/-/code-frame-7.16.7.tgz", "integrity": "sha512-iAXqUn8IIeBTNd72xsFlgaXHkMBMt6y4HJp1tIaK465CWLT/fG1aqB7ykr95gHHmlBdGbFeWWfyB4NJJ0nmeIg==", + "dev": true, "requires": { "@babel/highlight": "^7.16.7" } @@ -9477,12 +9015,14 @@ "@babel/compat-data": { "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/compat-data/-/compat-data-7.17.0.tgz", - "integrity": "sha512-392byTlpGWXMv4FbyWw3sAZ/FrW/DrwqLGXpy0mbyNe9Taqv1mg9yON5/o0cnr8XYCkFTZbC1eV+c+LAROgrng==" + "integrity": "sha512-392byTlpGWXMv4FbyWw3sAZ/FrW/DrwqLGXpy0mbyNe9Taqv1mg9yON5/o0cnr8XYCkFTZbC1eV+c+LAROgrng==", + "dev": true }, "@babel/core": { "version": "7.17.2", "resolved": "https://registry.npmjs.org/@babel/core/-/core-7.17.2.tgz", "integrity": "sha512-R3VH5G42VSDolRHyUO4V2cfag8WHcZyxdq5Z/m8Xyb92lW/Erm/6kM+XtRFGf3Mulre3mveni2NHfEUws8wSvw==", + "dev": true, "requires": { "@ampproject/remapping": "^2.0.0", "@babel/code-frame": "^7.16.7", @@ -9504,12 +9044,14 @@ "@babel/helper-validator-identifier": { "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", - "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==" + "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true }, "@babel/types": { "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.17.0.tgz", "integrity": "sha512-TmKSNO4D5rzhL5bjWFcVHHLETzfQ/AmbKpKPOSjlP0WoHZ6L911fgoOKY4Alp/emzG4cHJdyN49zpgkbXFEHHw==", + "dev": true, "requires": { "@babel/helper-validator-identifier": "^7.16.7", "to-fast-properties": "^2.0.0" @@ -9521,6 +9063,7 @@ "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/generator/-/generator-7.17.0.tgz", "integrity": "sha512-I3Omiv6FGOC29dtlZhkfXO6pgkmukJSlT26QjVvS1DGZe/NzSVCPG41X0tS21oZkJYlovfj9qDWgKP+Cn4bXxw==", + "dev": true, "requires": { "@babel/types": "^7.17.0", "jsesc": "^2.5.1", @@ -9530,12 +9073,14 @@ "@babel/helper-validator-identifier": { "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", - "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==" + "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true }, "@babel/types": { "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.17.0.tgz", "integrity": "sha512-TmKSNO4D5rzhL5bjWFcVHHLETzfQ/AmbKpKPOSjlP0WoHZ6L911fgoOKY4Alp/emzG4cHJdyN49zpgkbXFEHHw==", + "dev": true, "requires": { "@babel/helper-validator-identifier": "^7.16.7", "to-fast-properties": "^2.0.0" @@ -9602,6 +9147,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-compilation-targets/-/helper-compilation-targets-7.16.7.tgz", "integrity": "sha512-mGojBwIWcwGD6rfqgRXVlVYmPAv7eOpIemUG3dGnDdCY4Pae70ROij3XmfrH6Fa1h1aiDylpglbZyktfzyo/hA==", + "dev": true, "requires": { "@babel/compat-data": "^7.16.4", "@babel/helper-validator-option": "^7.16.7", @@ -9654,6 +9200,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-environment-visitor/-/helper-environment-visitor-7.16.7.tgz", "integrity": "sha512-SLLb0AAn6PkUeAfKJCCOl9e1R53pQlGAfc4y4XuMRZfqeMYLE0dM1LMhqbGAlGQY0lfw5/ohoYWAe9V1yibRag==", + "dev": true, "requires": { "@babel/types": "^7.16.7" }, @@ -9661,12 +9208,14 @@ "@babel/helper-validator-identifier": { "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", - "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==" + "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true }, "@babel/types": { "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.17.0.tgz", "integrity": "sha512-TmKSNO4D5rzhL5bjWFcVHHLETzfQ/AmbKpKPOSjlP0WoHZ6L911fgoOKY4Alp/emzG4cHJdyN49zpgkbXFEHHw==", + "dev": true, "requires": { "@babel/helper-validator-identifier": "^7.16.7", "to-fast-properties": "^2.0.0" @@ -9705,6 +9254,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-function-name/-/helper-function-name-7.16.7.tgz", "integrity": "sha512-QfDfEnIUyyBSR3HtrtGECuZ6DAyCkYFp7GHl75vFtTnn6pjKeK0T1DB5lLkFvBea8MdaiUABx3osbgLyInoejA==", + "dev": true, "requires": { "@babel/helper-get-function-arity": "^7.16.7", "@babel/template": "^7.16.7", @@ -9714,12 +9264,14 @@ "@babel/helper-validator-identifier": { "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", - "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==" + "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true }, "@babel/types": { "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.17.0.tgz", "integrity": "sha512-TmKSNO4D5rzhL5bjWFcVHHLETzfQ/AmbKpKPOSjlP0WoHZ6L911fgoOKY4Alp/emzG4cHJdyN49zpgkbXFEHHw==", + "dev": true, "requires": { "@babel/helper-validator-identifier": "^7.16.7", "to-fast-properties": "^2.0.0" @@ -9731,6 +9283,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-get-function-arity/-/helper-get-function-arity-7.16.7.tgz", "integrity": "sha512-flc+RLSOBXzNzVhcLu6ujeHUrD6tANAOU5ojrRx/as+tbzf8+stUCj7+IfRRoAbEZqj/ahXEMsjhOhgeZsrnTw==", + "dev": true, "requires": { "@babel/types": "^7.16.7" }, @@ -9738,12 +9291,14 @@ "@babel/helper-validator-identifier": { "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", - "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==" + "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true }, "@babel/types": { "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.17.0.tgz", "integrity": "sha512-TmKSNO4D5rzhL5bjWFcVHHLETzfQ/AmbKpKPOSjlP0WoHZ6L911fgoOKY4Alp/emzG4cHJdyN49zpgkbXFEHHw==", + "dev": true, "requires": { "@babel/helper-validator-identifier": "^7.16.7", "to-fast-properties": "^2.0.0" @@ -9755,6 +9310,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-hoist-variables/-/helper-hoist-variables-7.16.7.tgz", "integrity": "sha512-m04d/0Op34H5v7pbZw6pSKP7weA6lsMvfiIAMeIvkY/R4xQtBSMFEigu9QTZ2qB/9l22vsxtM8a+Q8CzD255fg==", + "dev": true, "requires": { "@babel/types": "^7.16.7" }, @@ -9762,12 +9318,14 @@ "@babel/helper-validator-identifier": { "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", - "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==" + "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true }, "@babel/types": { "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.17.0.tgz", "integrity": "sha512-TmKSNO4D5rzhL5bjWFcVHHLETzfQ/AmbKpKPOSjlP0WoHZ6L911fgoOKY4Alp/emzG4cHJdyN49zpgkbXFEHHw==", + "dev": true, "requires": { "@babel/helper-validator-identifier": "^7.16.7", "to-fast-properties": "^2.0.0" @@ -9806,6 +9364,7 @@ "version": "7.15.4", "resolved": "https://registry.npmjs.org/@babel/helper-module-imports/-/helper-module-imports-7.15.4.tgz", "integrity": "sha512-jeAHZbzUwdW/xHgHQ3QmWR4Jg6j15q4w/gCfwZvtqOxoo5DKtLHk8Bsf4c5RZRC7NmLEs+ohkdq8jFefuvIxAA==", + "dev": true, "requires": { "@babel/types": "^7.15.4" } @@ -9814,6 +9373,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-module-transforms/-/helper-module-transforms-7.16.7.tgz", "integrity": "sha512-gaqtLDxJEFCeQbYp9aLAefjhkKdjKcdh6DB7jniIGU3Pz52WAmP268zK0VgPz9hUNkMSYeH976K2/Y6yPadpng==", + "dev": true, "requires": { "@babel/helper-environment-visitor": "^7.16.7", "@babel/helper-module-imports": "^7.16.7", @@ -9829,6 +9389,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-module-imports/-/helper-module-imports-7.16.7.tgz", "integrity": "sha512-LVtS6TqjJHFc+nYeITRo6VLXve70xmq7wPhWTqDJusJEgGmkAACWwMiTNrvfoQo6hEhFwAIixNkvB0jPXDL8Wg==", + "dev": true, "requires": { "@babel/types": "^7.16.7" } @@ -9836,12 +9397,14 @@ "@babel/helper-validator-identifier": { "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", - "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==" + "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true }, "@babel/types": { "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.17.0.tgz", "integrity": "sha512-TmKSNO4D5rzhL5bjWFcVHHLETzfQ/AmbKpKPOSjlP0WoHZ6L911fgoOKY4Alp/emzG4cHJdyN49zpgkbXFEHHw==", + "dev": true, "requires": { "@babel/helper-validator-identifier": "^7.16.7", "to-fast-properties": "^2.0.0" @@ -9946,6 +9509,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-simple-access/-/helper-simple-access-7.16.7.tgz", "integrity": "sha512-ZIzHVyoeLMvXMN/vok/a4LWRy8G2v205mNP0XOuf9XRLyX5/u9CnVulUtDgUTama3lT+bf/UqucuZjqiGuTS1g==", + "dev": true, "requires": { "@babel/types": "^7.16.7" }, @@ -9953,12 +9517,14 @@ "@babel/helper-validator-identifier": { "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", - "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==" + "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true }, "@babel/types": { "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.17.0.tgz", "integrity": "sha512-TmKSNO4D5rzhL5bjWFcVHHLETzfQ/AmbKpKPOSjlP0WoHZ6L911fgoOKY4Alp/emzG4cHJdyN49zpgkbXFEHHw==", + "dev": true, "requires": { "@babel/helper-validator-identifier": "^7.16.7", "to-fast-properties": "^2.0.0" @@ -9997,6 +9563,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-split-export-declaration/-/helper-split-export-declaration-7.16.7.tgz", "integrity": "sha512-xbWoy/PFoxSWazIToT9Sif+jJTlrMcndIsaOKvTA6u7QEo7ilkRZpjew18/W3c7nm8fXdUDXh02VXTbZ0pGDNw==", + "dev": true, "requires": { "@babel/types": "^7.16.7" }, @@ -10004,12 +9571,14 @@ "@babel/helper-validator-identifier": { "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", - "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==" + "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true }, "@babel/types": { "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.17.0.tgz", "integrity": "sha512-TmKSNO4D5rzhL5bjWFcVHHLETzfQ/AmbKpKPOSjlP0WoHZ6L911fgoOKY4Alp/emzG4cHJdyN49zpgkbXFEHHw==", + "dev": true, "requires": { "@babel/helper-validator-identifier": "^7.16.7", "to-fast-properties": "^2.0.0" @@ -10020,12 +9589,14 @@ "@babel/helper-validator-identifier": { "version": "7.15.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.15.7.tgz", - "integrity": "sha512-K4JvCtQqad9OY2+yTU8w+E82ywk/fe+ELNlt1G8z3bVGlZfn/hOcQQsUhGhW/N+tb3fxK800wLtKOE/aM0m72w==" + "integrity": "sha512-K4JvCtQqad9OY2+yTU8w+E82ywk/fe+ELNlt1G8z3bVGlZfn/hOcQQsUhGhW/N+tb3fxK800wLtKOE/aM0m72w==", + "dev": true }, "@babel/helper-validator-option": { "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-option/-/helper-validator-option-7.16.7.tgz", - "integrity": "sha512-TRtenOuRUVo9oIQGPC5G9DgK4743cdxvtOw0weQNpZXaS16SCBi5MNjZF8vba3ETURjZpTbVn7Vvcf2eAwFozQ==" + "integrity": "sha512-TRtenOuRUVo9oIQGPC5G9DgK4743cdxvtOw0weQNpZXaS16SCBi5MNjZF8vba3ETURjZpTbVn7Vvcf2eAwFozQ==", + "dev": true }, "@babel/helper-wrap-function": { "version": "7.16.8", @@ -10061,6 +9632,7 @@ "version": "7.17.2", "resolved": "https://registry.npmjs.org/@babel/helpers/-/helpers-7.17.2.tgz", "integrity": "sha512-0Qu7RLR1dILozr/6M0xgj+DFPmi6Bnulgm9M8BVa9ZCWxDqlSnqt3cf8IDPB5m45sVXUZ0kuQAgUrdSFFH79fQ==", + "dev": true, "requires": { "@babel/template": "^7.16.7", "@babel/traverse": "^7.17.0", @@ -10070,12 +9642,14 @@ "@babel/helper-validator-identifier": { "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", - "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==" + "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true }, "@babel/types": { "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.17.0.tgz", "integrity": "sha512-TmKSNO4D5rzhL5bjWFcVHHLETzfQ/AmbKpKPOSjlP0WoHZ6L911fgoOKY4Alp/emzG4cHJdyN49zpgkbXFEHHw==", + "dev": true, "requires": { "@babel/helper-validator-identifier": "^7.16.7", "to-fast-properties": "^2.0.0" @@ -10087,6 +9661,7 @@ "version": "7.16.10", "resolved": "https://registry.npmjs.org/@babel/highlight/-/highlight-7.16.10.tgz", "integrity": "sha512-5FnTQLSLswEj6IkgVw5KusNUUFY9ZGqe/TRFnP/BKYHYgfh7tc+C7mwiy95/yNP7Dh9x580Vv8r7u7ZfTBFxdw==", + "dev": true, "requires": { "@babel/helper-validator-identifier": "^7.16.7", "chalk": "^2.0.0", @@ -10096,14 +9671,16 @@ "@babel/helper-validator-identifier": { "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", - "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==" + "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true } } }, "@babel/parser": { "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/parser/-/parser-7.17.0.tgz", - "integrity": "sha512-VKXSCQx5D8S04ej+Dqsr1CzYvvWgf20jIw2D+YhQCrIlr2UZGaDds23Y0xg75/skOxpLCRpUZvk/1EAVkGoDOw==" + "integrity": "sha512-VKXSCQx5D8S04ej+Dqsr1CzYvvWgf20jIw2D+YhQCrIlr2UZGaDds23Y0xg75/skOxpLCRpUZvk/1EAVkGoDOw==", + "dev": true }, "@babel/plugin-bugfix-safari-id-destructuring-collision-in-function-expression": { "version": "7.16.7", @@ -10944,6 +10521,7 @@ "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/template/-/template-7.16.7.tgz", "integrity": "sha512-I8j/x8kHUrbYRTUxXrrMbfCa7jxkE7tZre39x3kjr9hvI82cK1FfqLygotcWN5kdPGWcLdWMHpSBavse5tWw3w==", + "dev": true, "requires": { "@babel/code-frame": "^7.16.7", "@babel/parser": "^7.16.7", @@ -10953,12 +10531,14 @@ "@babel/helper-validator-identifier": { "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", - "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==" + "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true }, "@babel/types": { "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.17.0.tgz", "integrity": "sha512-TmKSNO4D5rzhL5bjWFcVHHLETzfQ/AmbKpKPOSjlP0WoHZ6L911fgoOKY4Alp/emzG4cHJdyN49zpgkbXFEHHw==", + "dev": true, "requires": { "@babel/helper-validator-identifier": "^7.16.7", "to-fast-properties": "^2.0.0" @@ -10970,6 +10550,7 @@ "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/traverse/-/traverse-7.17.0.tgz", "integrity": "sha512-fpFIXvqD6kC7c7PUNnZ0Z8cQXlarCLtCUpt2S1Dx7PjoRtCFffvOkHHSom+m5HIxMZn5bIBVb71lhabcmjEsqg==", + "dev": true, "requires": { "@babel/code-frame": "^7.16.7", "@babel/generator": "^7.17.0", @@ -10986,12 +10567,14 @@ "@babel/helper-validator-identifier": { "version": "7.16.7", "resolved": "https://registry.npmjs.org/@babel/helper-validator-identifier/-/helper-validator-identifier-7.16.7.tgz", - "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==" + "integrity": "sha512-hsEnFemeiW4D08A5gUAZxLBTXpZ39P+a+DGDsHw1yxqyQ/jzFEnxf5uTEGp+3bzAbNOxU1paTgYS4ECU/IgfDw==", + "dev": true }, "@babel/types": { "version": "7.17.0", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.17.0.tgz", "integrity": "sha512-TmKSNO4D5rzhL5bjWFcVHHLETzfQ/AmbKpKPOSjlP0WoHZ6L911fgoOKY4Alp/emzG4cHJdyN49zpgkbXFEHHw==", + "dev": true, "requires": { "@babel/helper-validator-identifier": "^7.16.7", "to-fast-properties": "^2.0.0" @@ -11003,6 +10586,7 @@ "version": "7.15.6", "resolved": "https://registry.npmjs.org/@babel/types/-/types-7.15.6.tgz", "integrity": "sha512-BPU+7QhqNjmWyDO0/vitH/CuhpV8ZmK1wpKva8nuyNF5MJfuRNWMc+hc14+u9xT93kvykMdncrJT19h74uB1Ig==", + "dev": true, "requires": { "@babel/helper-validator-identifier": "^7.14.9", "to-fast-properties": "^2.0.0" @@ -11014,10 +10598,41 @@ "integrity": "sha512-0hYQ8SB4Db5zvZB4axdMHGwEaQjkZzFjQiN9LVYvIFB2nSUHW9tYpxWriPrWDASIxiaXax83REcLxuSdnGPZtw==", "dev": true }, - "@braintree/sanitize-url": { - "version": "6.0.0", - "resolved": "https://registry.npmjs.org/@braintree/sanitize-url/-/sanitize-url-6.0.0.tgz", - "integrity": "sha512-mgmE7XBYY/21erpzhexk4Cj1cyTQ9LzvnTxtzM17BJ7ERMNE6W72mQRo0I1Ud8eFJ+RVVIcBNhLFZ3GX4XFz5w==" + "@cbor-extract/cbor-extract-darwin-arm64": { + "version": "2.1.1", + "resolved": "https://registry.npmjs.org/@cbor-extract/cbor-extract-darwin-arm64/-/cbor-extract-darwin-arm64-2.1.1.tgz", + "integrity": "sha512-blVBy5MXz6m36Vx0DfLd7PChOQKEs8lK2bD1WJn/vVgG4FXZiZmZb2GECHFvVPA5T7OnODd9xZiL3nMCv6QUhA==", + "optional": true + }, + "@cbor-extract/cbor-extract-darwin-x64": { + "version": "2.1.1", + "resolved": "https://registry.npmjs.org/@cbor-extract/cbor-extract-darwin-x64/-/cbor-extract-darwin-x64-2.1.1.tgz", + "integrity": "sha512-h6KFOzqk8jXTvkOftyRIWGrd7sKQzQv2jVdTL9nKSf3D2drCvQB/LHUxAOpPXo3pv2clDtKs3xnHalpEh3rDsw==", + "optional": true + }, + "@cbor-extract/cbor-extract-linux-arm": { + "version": "2.1.1", + "resolved": "https://registry.npmjs.org/@cbor-extract/cbor-extract-linux-arm/-/cbor-extract-linux-arm-2.1.1.tgz", + "integrity": "sha512-ds0uikdcIGUjPyraV4oJqyVE5gl/qYBpa/Wnh6l6xLE2lj/hwnjT2XcZCChdXwW/YFZ1LUHs6waoYN8PmK0nKQ==", + "optional": true + }, + "@cbor-extract/cbor-extract-linux-arm64": { + "version": "2.1.1", + "resolved": "https://registry.npmjs.org/@cbor-extract/cbor-extract-linux-arm64/-/cbor-extract-linux-arm64-2.1.1.tgz", + "integrity": "sha512-SxAaRcYf8S0QHaMc7gvRSiTSr7nUYMqbUdErBEu+HYA4Q6UNydx1VwFE68hGcp1qvxcy9yT5U7gA+a5XikfwSQ==", + "optional": true + }, + "@cbor-extract/cbor-extract-linux-x64": { + "version": "2.1.1", + "resolved": "https://registry.npmjs.org/@cbor-extract/cbor-extract-linux-x64/-/cbor-extract-linux-x64-2.1.1.tgz", + "integrity": "sha512-GVK+8fNIE9lJQHAlhOROYiI0Yd4bAZ4u++C2ZjlkS3YmO6hi+FUxe6Dqm+OKWTcMpL/l71N6CQAmaRcb4zyJuA==", + "optional": true + }, + "@cbor-extract/cbor-extract-win32-x64": { + "version": "2.1.1", + "resolved": "https://registry.npmjs.org/@cbor-extract/cbor-extract-win32-x64/-/cbor-extract-win32-x64-2.1.1.tgz", + "integrity": "sha512-2Niq1C41dCRIDeD8LddiH+mxGlO7HJ612Ll3D/E73ZWBmycued+8ghTr/Ho3CMOWPUEr08XtyBMVXAjqF+TcKw==", + "optional": true }, "@eslint/eslintrc": { "version": "1.0.5", @@ -11118,62 +10733,41 @@ "@jridgewell/resolve-uri": { "version": "3.0.5", "resolved": "https://registry.npmjs.org/@jridgewell/resolve-uri/-/resolve-uri-3.0.5.tgz", - "integrity": "sha512-VPeQ7+wH0itvQxnG+lIzWgkysKIr3L9sslimFW55rHMdGu/qCQ5z5h9zq4gI8uBtqkpHhsF4Z/OwExufUCThew==" + "integrity": "sha512-VPeQ7+wH0itvQxnG+lIzWgkysKIr3L9sslimFW55rHMdGu/qCQ5z5h9zq4gI8uBtqkpHhsF4Z/OwExufUCThew==", + "dev": true }, "@jridgewell/sourcemap-codec": { "version": "1.4.11", "resolved": "https://registry.npmjs.org/@jridgewell/sourcemap-codec/-/sourcemap-codec-1.4.11.tgz", - "integrity": "sha512-Fg32GrJo61m+VqYSdRSjRXMjQ06j8YIYfcTqndLYVAaHmroZHLJZCydsWBOTDqXS2v+mjxohBWEMfg97GXmYQg==" + "integrity": "sha512-Fg32GrJo61m+VqYSdRSjRXMjQ06j8YIYfcTqndLYVAaHmroZHLJZCydsWBOTDqXS2v+mjxohBWEMfg97GXmYQg==", + "dev": true }, "@jridgewell/trace-mapping": { "version": "0.3.4", "resolved": "https://registry.npmjs.org/@jridgewell/trace-mapping/-/trace-mapping-0.3.4.tgz", "integrity": "sha512-vFv9ttIedivx0ux3QSjhgtCVjPZd5l46ZOMDSCwnH1yUO2e964gO8LZGyv2QkqcgR6TnBU1v+1IFqmeoG+0UJQ==", + "dev": true, "requires": { "@jridgewell/resolve-uri": "^3.0.3", "@jridgewell/sourcemap-codec": "^1.4.10" } }, "@mermaid-js/mermaid-cli": { - "version": "9.0.3", - "resolved": "https://registry.npmjs.org/@mermaid-js/mermaid-cli/-/mermaid-cli-9.0.3.tgz", - "integrity": "sha512-Frh3pInE16H3GA9J1/uYIHIAaqB6nJBbwU5XHCbVoyPs+LOU91sVM6fTI5SZYqyn8intu1cL1hfu6z74G7Lorw==", + "version": "10.0.2", + "resolved": "https://registry.npmjs.org/@mermaid-js/mermaid-cli/-/mermaid-cli-10.0.2.tgz", + "integrity": "sha512-dz5ye9wWJjL3jtWtL6pYeKwo74CeCbn8SpvxKEH4Wuc0esDvSpxC+J/Wlsbd6BKvMzLN2J+5voy03kto0J7mOg==", + "dev": true, "requires": { - "chalk": "^4.1.0", - "commander": "^9.0.0", - "mermaid": "^9.0.0", - "puppeteer": "^13.0.0" + "chalk": "^5.0.1", + "commander": "^10.0.0", + "puppeteer": "^19.0.0" }, "dependencies": { - "ansi-styles": { - "version": "4.3.0", - "resolved": "https://registry.npmjs.org/ansi-styles/-/ansi-styles-4.3.0.tgz", - "integrity": "sha512-zbB9rCJAT1rbjiVDb2hqKFHNYLxgtk8NURxZ3IZwD3F6NtxbXZQCnnSi1Lkx+IDohdPlFp222wVALIheZJQSEg==", - "requires": { - "color-convert": "^2.0.1" - } - }, "chalk": { - "version": "4.1.2", - "resolved": "https://registry.npmjs.org/chalk/-/chalk-4.1.2.tgz", - "integrity": "sha512-oKnbhFyRIXpUuez8iBMmyEa4nbj4IOQyuhc/wy9kY7/WVPcwIO9VA668Pu8RkO7+0G76SLROeyw9CpQ061i4mA==", - "requires": { - "ansi-styles": "^4.1.0", - "supports-color": "^7.1.0" - } - }, - "has-flag": { - "version": "4.0.0", - "resolved": "https://registry.npmjs.org/has-flag/-/has-flag-4.0.0.tgz", - "integrity": "sha512-EykJT/Q1KjTWctppgIAgfSO0tKVuZUjhgMr17kqTumMl6Afv3EISleU7qZUzoXDFTAHTDC4NOoG/ZxU3EvlMPQ==" - }, - "supports-color": { - "version": "7.2.0", - "resolved": "https://registry.npmjs.org/supports-color/-/supports-color-7.2.0.tgz", - "integrity": "sha512-qpCAvRl9stuOHveKsn7HncJRvv501qIacKzQlO/+Lwxc9+0q2wLyv4Dfvt80/DPn2pqOBsJdDiogXGR9+OvwRw==", - "requires": { - "has-flag": "^4.0.0" - } + "version": "5.2.0", + "resolved": "https://registry.npmjs.org/chalk/-/chalk-5.2.0.tgz", + "integrity": "sha512-ree3Gqw/nazQAPuJJEy+avdl7QfZMcUvmHIKgEZkGL+xOBzRvup5Hxo6LHuMceSxOabuJLJm5Yp/92R9eMmMvA==", + "dev": true } } }, @@ -11203,19 +10797,37 @@ "fastq": "^1.6.0" } }, + "@puppeteer/browsers": { + "version": "0.3.2", + "resolved": "https://registry.npmjs.org/@puppeteer/browsers/-/browsers-0.3.2.tgz", + "integrity": "sha512-YAwrqy68PskkCDnSsv0afR8l8u90KhodcIFXCage5NLAoeWm0STGmtVugLBp2wc5PnhnCapCKkMjp9fYjvJl2g==", + "dev": true, + "requires": { + "debug": "4.3.4", + "extract-zip": "2.0.1", + "https-proxy-agent": "5.0.1", + "progress": "2.0.3", + "proxy-from-env": "1.1.0", + "tar-fs": "2.1.1", + "unbzip2-stream": "1.4.3", + "yargs": "17.7.1" + } + }, "@rollup/plugin-babel": { - "version": "5.3.0", - "resolved": "https://registry.npmjs.org/@rollup/plugin-babel/-/plugin-babel-5.3.0.tgz", - "integrity": "sha512-9uIC8HZOnVLrLHxayq/PTzw+uS25E14KPUBh5ktF+18Mjo5yK0ToMMx6epY0uEgkjwJw0aBW4x2horYXh8juWw==", + "version": "5.3.1", + "resolved": "https://registry.npmjs.org/@rollup/plugin-babel/-/plugin-babel-5.3.1.tgz", + "integrity": "sha512-WFfdLWU/xVWKeRQnKmIAQULUI7Il0gZnBIH/ZFO069wYIfPu+8zrfp/KMW0atmELoRDq8FbiP3VCss9MhCut7Q==", + "dev": true, "requires": { "@babel/helper-module-imports": "^7.10.4", "@rollup/pluginutils": "^3.1.0" } }, "@rollup/plugin-commonjs": { - "version": "21.0.1", - "resolved": "https://registry.npmjs.org/@rollup/plugin-commonjs/-/plugin-commonjs-21.0.1.tgz", - "integrity": "sha512-EA+g22lbNJ8p5kuZJUYyhhDK7WgJckW5g4pNN7n4mAFUM96VuwUnNT3xr2Db2iCZPI1pJPbGyfT5mS9T1dHfMg==", + "version": "22.0.0", + "resolved": "https://registry.npmjs.org/@rollup/plugin-commonjs/-/plugin-commonjs-22.0.0.tgz", + "integrity": "sha512-Ktvf2j+bAO+30awhbYoCaXpBcyPmJbaEUYClQns/+6SNCYFURbvBiNbWgHITEsIgDDWCDUclWRKEuf8cwZCFoQ==", + "dev": true, "requires": { "@rollup/pluginutils": "^3.1.0", "commondir": "^1.0.1", @@ -11229,19 +10841,21 @@ "estree-walker": { "version": "2.0.2", "resolved": "https://registry.npmjs.org/estree-walker/-/estree-walker-2.0.2.tgz", - "integrity": "sha512-Rfkk/Mp/DL7JVje3u18FxFujQlTNR2q6QfMSMB7AvCBx91NGj/ba3kCfza0f6dVDbw7YlRf/nDrn7pQrCCyQ/w==" + "integrity": "sha512-Rfkk/Mp/DL7JVje3u18FxFujQlTNR2q6QfMSMB7AvCBx91NGj/ba3kCfza0f6dVDbw7YlRf/nDrn7pQrCCyQ/w==", + "dev": true } } }, "@rollup/plugin-node-resolve": { - "version": "13.1.3", - "resolved": "https://registry.npmjs.org/@rollup/plugin-node-resolve/-/plugin-node-resolve-13.1.3.tgz", - "integrity": "sha512-BdxNk+LtmElRo5d06MGY4zoepyrXX1tkzX2hrnPEZ53k78GuOMWLqmJDGIIOPwVRIFZrLQOo+Yr6KtCuLIA0AQ==", + "version": "13.3.0", + "resolved": "https://registry.npmjs.org/@rollup/plugin-node-resolve/-/plugin-node-resolve-13.3.0.tgz", + "integrity": "sha512-Lus8rbUo1eEcnS4yTFKLZrVumLPY+YayBdWXgFSHYhTT2iJbMhoaaBL3xl5NCdeRytErGr8tZ0L71BMRmnlwSw==", + "dev": true, "requires": { "@rollup/pluginutils": "^3.1.0", "@types/resolve": "1.17.1", - "builtin-modules": "^3.1.0", "deepmerge": "^4.2.2", + "is-builtin-module": "^3.1.0", "is-module": "^1.0.0", "resolve": "^1.19.0" } @@ -11250,6 +10864,7 @@ "version": "3.1.0", "resolved": "https://registry.npmjs.org/@rollup/pluginutils/-/pluginutils-3.1.0.tgz", "integrity": "sha512-GksZ6pr6TpIjHm8h9lSQ8pi8BE9VeubNT0OMJ3B5uZJ8pz73NPiqOtCog/x2/QzM1ENChPKxMDhiQuRHsqc+lg==", + "dev": true, "requires": { "@types/estree": "0.0.39", "estree-walker": "^1.0.1", @@ -11259,19 +10874,22 @@ "@types/estree": { "version": "0.0.39", "resolved": "https://registry.npmjs.org/@types/estree/-/estree-0.0.39.tgz", - "integrity": "sha512-EYNwp3bU+98cpU4lAWYYL7Zz+2gryWH1qbdDTidVd6hkiR6weksdbMadyXKXNPEkQFhXM+hVO9ZygomHXp+AIw==" + "integrity": "sha512-EYNwp3bU+98cpU4lAWYYL7Zz+2gryWH1qbdDTidVd6hkiR6weksdbMadyXKXNPEkQFhXM+hVO9ZygomHXp+AIw==", + "dev": true }, "estree-walker": { "version": "1.0.1", "resolved": "https://registry.npmjs.org/estree-walker/-/estree-walker-1.0.1.tgz", - "integrity": "sha512-1fMXF3YP4pZZVozF8j/ZLfvnR8NSIljt56UhbZ5PeeDmmGHpgpdwQt7ITlGvYaQukCvuBRMLEiKiYC+oeIg4cg==" + "integrity": "sha512-1fMXF3YP4pZZVozF8j/ZLfvnR8NSIljt56UhbZ5PeeDmmGHpgpdwQt7ITlGvYaQukCvuBRMLEiKiYC+oeIg4cg==", + "dev": true } } }, "@types/estree": { "version": "0.0.50", "resolved": "https://registry.npmjs.org/@types/estree/-/estree-0.0.50.tgz", - "integrity": "sha512-C6N5s2ZFtuZRj54k2/zyRhNDjJwwcViAM3Nbm8zjBpbqAdZ00mr0CFxvSKeO8Y/e03WVFLpQMdHYVfUd6SB+Hw==" + "integrity": "sha512-C6N5s2ZFtuZRj54k2/zyRhNDjJwwcViAM3Nbm8zjBpbqAdZ00mr0CFxvSKeO8Y/e03WVFLpQMdHYVfUd6SB+Hw==", + "dev": true }, "@types/istanbul-lib-coverage": { "version": "2.0.4", @@ -11282,20 +10900,23 @@ "@types/node": { "version": "17.0.17", "resolved": "https://registry.npmjs.org/@types/node/-/node-17.0.17.tgz", - "integrity": "sha512-e8PUNQy1HgJGV3iU/Bp2+D/DXh3PYeyli8LgIwsQcs1Ar1LoaWHSIT6Rw+H2rNJmiq6SNWiDytfx8+gYj7wDHw==" + "integrity": "sha512-e8PUNQy1HgJGV3iU/Bp2+D/DXh3PYeyli8LgIwsQcs1Ar1LoaWHSIT6Rw+H2rNJmiq6SNWiDytfx8+gYj7wDHw==", + "dev": true }, "@types/resolve": { "version": "1.17.1", "resolved": "https://registry.npmjs.org/@types/resolve/-/resolve-1.17.1.tgz", "integrity": "sha512-yy7HuzQhj0dhGpD8RLXSZWEkLsV9ibvxvi6EiJ3bkqLAO1RGo0WbkWQiwpRlSFymTJRz0d3k5LM3kkx8ArDbLw==", + "dev": true, "requires": { "@types/node": "*" } }, "@types/yauzl": { - "version": "2.9.2", - "resolved": "https://registry.npmjs.org/@types/yauzl/-/yauzl-2.9.2.tgz", - "integrity": "sha512-8uALY5LTvSuHgloDVUvWP3pIauILm+8/0pDMokuDYIoNsOkSwd5AiHBTSEJjKTDcZr5z8UpgOWZkxBF4iJftoA==", + "version": "2.10.0", + "resolved": "https://registry.npmjs.org/@types/yauzl/-/yauzl-2.10.0.tgz", + "integrity": "sha512-Cn6WYCm0tXv8p6k+A8PvbDG763EDpBoTzHdA+Q/MF6H3sapGjCm9NzoaJncJS9tUKSuCoDs9XHxYYsQDgxR6kw==", + "dev": true, "optional": true, "requires": { "@types/node": "*" @@ -11324,6 +10945,7 @@ "version": "6.0.2", "resolved": "https://registry.npmjs.org/agent-base/-/agent-base-6.0.2.tgz", "integrity": "sha512-RZNwNclF7+MS/8bDg70amg32dyeZGZxiDuQmZxKLAlQjr3jGyLx+4Kkk58UO7D2QdgFIQCovuSuZESne6RG6XQ==", + "dev": true, "requires": { "debug": "4" } @@ -11360,6 +10982,7 @@ "version": "3.2.1", "resolved": "https://registry.npmjs.org/ansi-styles/-/ansi-styles-3.2.1.tgz", "integrity": "sha512-VT0ZI6kZRdTh8YyJw3SMbYm/u+NqfsAxEpWO0Pf9sq8/e94WxxOpPKx9FR1FlyCtOVDNOQ+8ntlqFxiRc+r5qA==", + "dev": true, "requires": { "color-convert": "^1.9.0" }, @@ -11368,6 +10991,7 @@ "version": "1.9.3", "resolved": "https://registry.npmjs.org/color-convert/-/color-convert-1.9.3.tgz", "integrity": "sha512-QfAUtd+vFdAtFQcC8CCyYt1fYWxSqAiK2cSD6zDB8N3cpsEBAvRxp9zOGg6G/SHHJYAT88/az/IuDGALsNVbGg==", + "dev": true, "requires": { "color-name": "1.1.3" } @@ -11375,7 +10999,8 @@ "color-name": { "version": "1.1.3", "resolved": "https://registry.npmjs.org/color-name/-/color-name-1.1.3.tgz", - "integrity": "sha1-p9BVi9icQveV3UIyj3QIMcpTvCU=" + "integrity": "sha1-p9BVi9icQveV3UIyj3QIMcpTvCU=", + "dev": true } } }, @@ -11529,23 +11154,6 @@ "integrity": "sha512-/duVOqst+luxCQRKEo4bNxinsOQtMP80ZYm7mMqzuh5PociNL0PvmHFvREJ9ueYL2TxlHjBcmLCdmocx9Vg+IQ==", "dev": true }, - "debug": { - "version": "4.3.3", - "resolved": "https://registry.npmjs.org/debug/-/debug-4.3.3.tgz", - "integrity": "sha512-/zxw5+vh1Tfv+4Qn7a5nsbcJKPaSvCDhojn6FEl9vupwK2VCSDtEiEtqr8DFtzYFOdz63LBkxec7DYuc2jon6Q==", - "dev": true, - "requires": { - "ms": "2.1.2" - }, - "dependencies": { - "ms": { - "version": "2.1.2", - "resolved": "https://registry.npmjs.org/ms/-/ms-2.1.2.tgz", - "integrity": "sha512-sGkPx+VjMtmA6MX27oA4FBFELFCZZ4S4XqeGOXCv68tT+jb3vk/RyaKWP0PTKyWtmLSM0b+adUTEvbs1PEaH2w==", - "dev": true - } - } - }, "indent-string": { "version": "5.0.0", "resolved": "https://registry.npmjs.org/indent-string/-/indent-string-5.0.0.tgz", @@ -12563,12 +12171,14 @@ "balanced-match": { "version": "1.0.2", "resolved": "https://registry.npmjs.org/balanced-match/-/balanced-match-1.0.2.tgz", - "integrity": "sha512-3oSeUO0TMV67hN1AmbXsK4yaqU7tjiHlbxRDZOpH0KW9+CeX4bRAaX0Anxt0tx2MrpRpWwQaPwIlISEJhYU5Pw==" + "integrity": "sha512-3oSeUO0TMV67hN1AmbXsK4yaqU7tjiHlbxRDZOpH0KW9+CeX4bRAaX0Anxt0tx2MrpRpWwQaPwIlISEJhYU5Pw==", + "dev": true }, "base64-js": { "version": "1.5.1", "resolved": "https://registry.npmjs.org/base64-js/-/base64-js-1.5.1.tgz", - "integrity": "sha512-AKpaYlHn8t4SVbOHCy+b5+KKgvR4vrsD8vbvrbiQJps7fKDTkjkDry6ji0rUJjC0kzbNePLwzxq8iypo41qeWA==" + "integrity": "sha512-AKpaYlHn8t4SVbOHCy+b5+KKgvR4vrsD8vbvrbiQJps7fKDTkjkDry6ji0rUJjC0kzbNePLwzxq8iypo41qeWA==", + "dev": true }, "bcrypt-pbkdf": { "version": "1.0.2", @@ -12599,6 +12209,7 @@ "version": "4.1.0", "resolved": "https://registry.npmjs.org/bl/-/bl-4.1.0.tgz", "integrity": "sha512-1W07cM9gS6DcLperZfFSj+bWLtaPGSOHWhPiGzXmvVJbRLdG82sH/Kn8EtW1VqWVA54AKf2h5k5BbnIbwF3h6w==", + "dev": true, "requires": { "buffer": "^5.5.0", "inherits": "^2.0.4", @@ -12620,6 +12231,7 @@ "version": "1.1.11", "resolved": "https://registry.npmjs.org/brace-expansion/-/brace-expansion-1.1.11.tgz", "integrity": "sha512-iCuPHDFgrHX7H2vEI/5xpz07zSHB00TpugqhmYtVmMO6518mCuRMoOYFldEBl0g187ufozdaHgWKcYFb61qGiA==", + "dev": true, "requires": { "balanced-match": "^1.0.0", "concat-map": "0.0.1" @@ -12638,6 +12250,7 @@ "version": "4.19.1", "resolved": "https://registry.npmjs.org/browserslist/-/browserslist-4.19.1.tgz", "integrity": "sha512-u2tbbG5PdKRTUoctO3NBD8FQ5HdPh1ZXPHzp1rwaa5jTc+RV9/+RlWiAIKmjRPQF+xbGM9Kklj5bZQFa2s/38A==", + "dev": true, "requires": { "caniuse-lite": "^1.0.30001286", "electron-to-chromium": "^1.4.17", @@ -12646,15 +12259,11 @@ "picocolors": "^1.0.0" }, "dependencies": { - "caniuse-lite": { - "version": "1.0.30001311", - "resolved": "https://registry.npmjs.org/caniuse-lite/-/caniuse-lite-1.0.30001311.tgz", - "integrity": "sha512-mleTFtFKfykEeW34EyfhGIFjGCqzhh38Y0LhdQ9aWF+HorZTtdgKV/1hEE0NlFkG2ubvisPV6l400tlbPys98A==" - }, "electron-to-chromium": { "version": "1.4.68", "resolved": "https://registry.npmjs.org/electron-to-chromium/-/electron-to-chromium-1.4.68.tgz", - "integrity": "sha512-cId+QwWrV8R1UawO6b9BR1hnkJ4EJPCPAr4h315vliHUtVUJDk39Sg1PMNnaWKfj5x+93ssjeJ9LKL6r8LaMiA==" + "integrity": "sha512-cId+QwWrV8R1UawO6b9BR1hnkJ4EJPCPAr4h315vliHUtVUJDk39Sg1PMNnaWKfj5x+93ssjeJ9LKL6r8LaMiA==", + "dev": true } } }, @@ -12662,6 +12271,7 @@ "version": "5.7.1", "resolved": "https://registry.npmjs.org/buffer/-/buffer-5.7.1.tgz", "integrity": "sha512-EHcyIPBQ4BSGlvjB16k5KgAJ27CIsHY/2JBmCRReo48y9rQ3MaUzWX3KVlBa4U7MyX02HdVj0K7C3WaB3ju7FQ==", + "dev": true, "requires": { "base64-js": "^1.3.1", "ieee754": "^1.1.13" @@ -12670,7 +12280,8 @@ "buffer-crc32": { "version": "0.2.13", "resolved": "https://registry.npmjs.org/buffer-crc32/-/buffer-crc32-0.2.13.tgz", - "integrity": "sha1-DTM+PwDqxQqhRUq9MO+MKl2ackI=" + "integrity": "sha512-VO9Ht/+p3SN7SKWqcrgEzjGbRSJYTx+Q1pTQC0wrWqHx0vpJraQ6GtHx8tvcg1rlK1byhU5gccxgOgj7B0TDkQ==", + "dev": true }, "buffer-es6": { "version": "4.9.3", @@ -12679,9 +12290,10 @@ "dev": true }, "builtin-modules": { - "version": "3.2.0", - "resolved": "https://registry.npmjs.org/builtin-modules/-/builtin-modules-3.2.0.tgz", - "integrity": "sha512-lGzLKcioL90C7wMczpkY0n/oART3MbBa8R9OFGE1rJxoVI86u4WAGfEk8Wjv10eKSyTHVGkSo3bvBylCEtk7LA==" + "version": "3.3.0", + "resolved": "https://registry.npmjs.org/builtin-modules/-/builtin-modules-3.3.0.tgz", + "integrity": "sha512-zhaCDicdLuWN5UbN5IMnFqNMhNfo919sH85y2/ea+5Yg9TsTkeZxpL+JLbp6cgYFS4sRLp3YV4S6yDuqVWHYOw==", + "dev": true }, "c8": { "version": "7.11.0", @@ -12804,9 +12416,9 @@ "dev": true }, "caniuse-lite": { - "version": "1.0.30001270", - "resolved": "https://registry.npmjs.org/caniuse-lite/-/caniuse-lite-1.0.30001270.tgz", - "integrity": "sha512-TcIC7AyNWXhcOmv2KftOl1ShFAaHQYcB/EPL/hEyMrcS7ZX0/DvV1aoy6BzV0+16wTpoAyTMGDNAJfSqS/rz7A==", + "version": "1.0.30001564", + "resolved": "https://registry.npmjs.org/caniuse-lite/-/caniuse-lite-1.0.30001564.tgz", + "integrity": "sha512-DqAOf+rhof+6GVx1y+xzbFPeOumfQnhYzVnZD6LAXijR77yPtm9mfOcqOnT3mpnJiZVT+kwLAFnRlZcIz+c6bg==", "dev": true }, "caseless": { @@ -12825,51 +12437,32 @@ } }, "cbor-extract": { - "version": "1.0.0", - "resolved": "https://registry.npmjs.org/cbor-extract/-/cbor-extract-1.0.0.tgz", - "integrity": "sha512-2y71EsPT4dJjtS24JIZfzUodm7kNrJJouIL7U4YiO1bl5QJyCHz9j810x/d+A/L+1BWQCE0771TiBrVmDL0MOA==", + "version": "2.1.1", + "resolved": "https://registry.npmjs.org/cbor-extract/-/cbor-extract-2.1.1.tgz", + "integrity": "sha512-1UX977+L+zOJHsp0mWFG13GLwO6ucKgSmSW6JTl8B9GUvACvHeIVpFqhU92299Z6PfD09aTXDell5p+lp1rUFA==", "requires": { - "nan": "^2.14.2", - "node-gyp-build": "^4.2.3" - }, - "dependencies": { - "node-gyp-build": { - "version": "4.3.0", - "resolved": "https://registry.npmjs.org/node-gyp-build/-/node-gyp-build-4.3.0.tgz", - "integrity": "sha512-iWjXZvmboq0ja1pUGULQBexmxq8CV4xBhX7VDOTbL7ZR4FOowwY/VOtRxBN/yKxmdGoIp4j5ysNT4u3S2pDQ3Q==" - } + "@cbor-extract/cbor-extract-darwin-arm64": "2.1.1", + "@cbor-extract/cbor-extract-darwin-x64": "2.1.1", + "@cbor-extract/cbor-extract-linux-arm": "2.1.1", + "@cbor-extract/cbor-extract-linux-arm64": "2.1.1", + "@cbor-extract/cbor-extract-linux-x64": "2.1.1", + "@cbor-extract/cbor-extract-win32-x64": "2.1.1", + "node-gyp-build-optional-packages": "5.0.3" } }, "cbor-x": { - "version": "0.8.3", - "resolved": "https://registry.npmjs.org/cbor-x/-/cbor-x-0.8.3.tgz", - "integrity": "sha512-tc/+0i31OpHEzPlztuhqpKF4dze/onFK6acJBiDDKLt5U3NY6snX0AVZinfl3PhMwJBy+0eYHEtBPBM8Wtr/cA==", + "version": "1.5.4", + "resolved": "https://registry.npmjs.org/cbor-x/-/cbor-x-1.5.4.tgz", + "integrity": "sha512-PVKILDn+Rf6MRhhcyzGXi5eizn1i0i3F8Fe6UMMxXBnWkalq9+C5+VTmlIjAYM4iF2IYF2N+zToqAfYOp+3rfw==", "requires": { - "cbor-extract": "^0.3.1" - }, - "dependencies": { - "cbor-extract": { - "version": "0.3.2", - "resolved": "https://registry.npmjs.org/cbor-extract/-/cbor-extract-0.3.2.tgz", - "integrity": "sha512-euTSudP3MORNR9+DLDY6seMBZ5EA32CLdobmN5IjmU00zZDnim1zSZZAVrNubKfoBFhckDJFJXSx6zOLNbIYqw==", - "optional": true, - "requires": { - "nan": "^2.14.2", - "node-gyp-build": "^4.2.3" - } - }, - "node-gyp-build": { - "version": "4.4.0", - "resolved": "https://registry.npmjs.org/node-gyp-build/-/node-gyp-build-4.4.0.tgz", - "integrity": "sha512-amJnQCcgtRVw9SvoebO3BKGESClrfXGCUTX9hSn1OuGQTQBOZmVd0Z0OlecpuRksKvbsUqALE8jls/ErClAPuQ==", - "optional": true - } + "cbor-extract": "^2.1.1" } }, "chalk": { "version": "2.4.2", "resolved": "https://registry.npmjs.org/chalk/-/chalk-2.4.2.tgz", "integrity": "sha512-Mti+f9lpJNcwF4tWV8/OrTTtF1gZi+f8FqlyAdouralcFWFQWF2+NgCHShjkCb+IFBLq9buZwE1xckQU4peSuQ==", + "dev": true, "requires": { "ansi-styles": "^3.2.1", "escape-string-regexp": "^1.0.5", @@ -12895,7 +12488,17 @@ "chownr": { "version": "1.1.4", "resolved": "https://registry.npmjs.org/chownr/-/chownr-1.1.4.tgz", - "integrity": "sha512-jJ0bqzaylmJtVnNgzTeSOs8DPavpbYgEr/b0YL8/2GO3xJEhInFmhKMUnEJQjZumK7KXGFhUy89PrsJWlakBVg==" + "integrity": "sha512-jJ0bqzaylmJtVnNgzTeSOs8DPavpbYgEr/b0YL8/2GO3xJEhInFmhKMUnEJQjZumK7KXGFhUy89PrsJWlakBVg==", + "dev": true + }, + "chromium-bidi": { + "version": "0.4.6", + "resolved": "https://registry.npmjs.org/chromium-bidi/-/chromium-bidi-0.4.6.tgz", + "integrity": "sha512-TQOkWRaLI/IWvoP8XC+7jO4uHTIiAUiklXU1T0qszlUFEai9LgKXIBXy3pOS3EnQZ3bQtMbKUPkug0fTAEHCSw==", + "dev": true, + "requires": { + "mitt": "3.0.0" + } }, "chunkd": { "version": "2.0.1", @@ -12995,6 +12598,7 @@ "version": "2.0.1", "resolved": "https://registry.npmjs.org/color-convert/-/color-convert-2.0.1.tgz", "integrity": "sha512-RRECPsj7iu/xb5oKYcsFHSppFNnsj/52OVTRKb4zP5onXwVF3zVmmToNcOfGC+CRDpfK/U584fMg38ZHCaElKQ==", + "dev": true, "requires": { "color-name": "~1.1.4" } @@ -13002,7 +12606,8 @@ "color-name": { "version": "1.1.4", "resolved": "https://registry.npmjs.org/color-name/-/color-name-1.1.4.tgz", - "integrity": "sha512-dOy+3AuW3a2wNbZHIuMZpTcgjGuLU/uBL/ubcZF9OXbDo8ff4O8yVp5Bf0efS8uEoYo5q4Fx7dY9OgQGXgAsQA==" + "integrity": "sha512-dOy+3AuW3a2wNbZHIuMZpTcgjGuLU/uBL/ubcZF9OXbDo8ff4O8yVp5Bf0efS8uEoYo5q4Fx7dY9OgQGXgAsQA==", + "dev": true }, "combined-stream": { "version": "1.0.8", @@ -13014,9 +12619,10 @@ } }, "commander": { - "version": "9.2.0", - "resolved": "https://registry.npmjs.org/commander/-/commander-9.2.0.tgz", - "integrity": "sha512-e2i4wANQiSXgnrBlIatyHtP1odfUp0BbV5Y5nEGbxtIrStkEOAAzCUirvLBNXHLr7kwLvJl6V+4V3XV9x7Wd9w==" + "version": "10.0.0", + "resolved": "https://registry.npmjs.org/commander/-/commander-10.0.0.tgz", + "integrity": "sha512-zS5PnTI22FIRM6ylNW8G4Ap0IEOyk62fhLSD0+uHRT9McRCLGpkVNvao4bjimpK/GShynyQkFFxHhwMcETmduA==", + "dev": true }, "common-path-prefix": { "version": "3.0.0", @@ -13027,12 +12633,20 @@ "commondir": { "version": "1.0.1", "resolved": "https://registry.npmjs.org/commondir/-/commondir-1.0.1.tgz", - "integrity": "sha1-3dgA2gxmEnOTzKWVDqloo6rxJTs=" + "integrity": "sha1-3dgA2gxmEnOTzKWVDqloo6rxJTs=", + "dev": true + }, + "compare-versions": { + "version": "6.1.0", + "resolved": "https://registry.npmjs.org/compare-versions/-/compare-versions-6.1.0.tgz", + "integrity": "sha512-LNZQXhqUvqUTotpZ00qLSaify3b4VFD588aRr8MKFw4CMUr98ytzCW5wDH5qx/DEY5kCDXcbcRuCqL0szEf2tg==", + "dev": true }, "concat-map": { "version": "0.0.1", "resolved": "https://registry.npmjs.org/concat-map/-/concat-map-0.0.1.tgz", - "integrity": "sha1-2Klr13/Wjfd5OnMDajug1UBdR3s=" + "integrity": "sha1-2Klr13/Wjfd5OnMDajug1UBdR3s=", + "dev": true }, "concordance": { "version": "5.0.4", @@ -13065,6 +12679,7 @@ "version": "1.8.0", "resolved": "https://registry.npmjs.org/convert-source-map/-/convert-source-map-1.8.0.tgz", "integrity": "sha512-+OQdjP49zViI/6i7nIJpA8rAl4sV/JdPfU9nZs3VqOwGIgizICvuN2ru6fMd+4llL0tar18UYJXfZ/TWtmhUjA==", + "dev": true, "requires": { "safe-buffer": "~5.1.1" } @@ -13086,635 +12701,96 @@ "resolved": "https://registry.npmjs.org/core-js-compat/-/core-js-compat-3.21.0.tgz", "integrity": "sha512-OSXseNPSK2OPJa6GdtkMz/XxeXx8/CJvfhQWTqd6neuUraujcL4jVsjkLQz1OWnax8xVQJnRPe0V2jqNWORA+A==", "dev": true, - "requires": { - "browserslist": "^4.19.1", - "semver": "7.0.0" - }, - "dependencies": { - "semver": { - "version": "7.0.0", - "resolved": "https://registry.npmjs.org/semver/-/semver-7.0.0.tgz", - "integrity": "sha512-+GB6zVA9LWh6zovYQLALHwv5rb2PHGlJi3lfiqIHxR0uuwCgefcOJc59v9fv1w8GbStwxuuqqAjI9NMAOOgq1A==", - "dev": true - } - } - }, - "core-util-is": { - "version": "1.0.2", - "resolved": "https://registry.npmjs.org/core-util-is/-/core-util-is-1.0.2.tgz", - "integrity": "sha1-tf1UIgqivFq1eqtxQMlAdUUDwac=", - "dev": true - }, - "coveralls": { - "version": "3.1.1", - "resolved": "https://registry.npmjs.org/coveralls/-/coveralls-3.1.1.tgz", - "integrity": "sha512-+dxnG2NHncSD1NrqbSM3dn/lE57O6Qf/koe9+I7c+wzkqRmEvcp0kgJdxKInzYzkICKkFMZsX3Vct3++tsF9ww==", - "dev": true, - "requires": { - "js-yaml": "^3.13.1", - "lcov-parse": "^1.0.0", - "log-driver": "^1.2.7", - "minimist": "^1.2.5", - "request": "^2.88.2" - } - }, - "cross-fetch": { - "version": "3.1.5", - "resolved": "https://registry.npmjs.org/cross-fetch/-/cross-fetch-3.1.5.tgz", - "integrity": "sha512-lvb1SBsI0Z7GDwmuid+mU3kWVBwTVUbe7S0H52yaaAdQOXq2YktTCZdlAcNKFzE6QtRz0snpw9bNiPeOIkkQvw==", - "requires": { - "node-fetch": "2.6.7" - } - }, - "cross-spawn": { - "version": "7.0.3", - "resolved": "https://registry.npmjs.org/cross-spawn/-/cross-spawn-7.0.3.tgz", - "integrity": "sha512-iRDPJKUPVEND7dHPO8rkbOnPpyDygcDFtWjpeWNCgy8WP2rXcxXL8TskReQl6OrB2G7+UJrags1q15Fudc7G6w==", - "dev": true, - "requires": { - "path-key": "^3.1.0", - "shebang-command": "^2.0.0", - "which": "^2.0.1" - } - }, - "currently-unhandled": { - "version": "0.4.1", - "resolved": "https://registry.npmjs.org/currently-unhandled/-/currently-unhandled-0.4.1.tgz", - "integrity": "sha1-mI3zP+qxke95mmE2nddsF635V+o=", - "dev": true, - "requires": { - "array-find-index": "^1.0.1" - } - }, - "d3": { - "version": "7.4.4", - "resolved": "https://registry.npmjs.org/d3/-/d3-7.4.4.tgz", - "integrity": "sha512-97FE+MYdAlV3R9P74+R3Uar7wUKkIFu89UWMjEaDhiJ9VxKvqaMxauImy8PC2DdBkdM2BxJOIoLxPrcZUyrKoQ==", - "requires": { - "d3-array": "3", - "d3-axis": "3", - "d3-brush": "3", - "d3-chord": "3", - "d3-color": "3", - "d3-contour": "3", - "d3-delaunay": "6", - "d3-dispatch": "3", - "d3-drag": "3", - "d3-dsv": "3", - "d3-ease": "3", - "d3-fetch": "3", - "d3-force": "3", - "d3-format": "3", - "d3-geo": "3", - "d3-hierarchy": "3", - "d3-interpolate": "3", - "d3-path": "3", - "d3-polygon": "3", - "d3-quadtree": "3", - "d3-random": "3", - "d3-scale": "4", - "d3-scale-chromatic": "3", - "d3-selection": "3", - "d3-shape": "3", - "d3-time": "3", - "d3-time-format": "4", - "d3-timer": "3", - "d3-transition": "3", - "d3-zoom": "3" - } - }, - "d3-array": { - "version": "3.1.6", - "resolved": "https://registry.npmjs.org/d3-array/-/d3-array-3.1.6.tgz", - "integrity": "sha512-DCbBBNuKOeiR9h04ySRBMW52TFVc91O9wJziuyXw6Ztmy8D3oZbmCkOO3UHKC7ceNJsN2Mavo9+vwV8EAEUXzA==", - "requires": { - "internmap": "1 - 2" - } - }, - "d3-axis": { - "version": "3.0.0", - "resolved": "https://registry.npmjs.org/d3-axis/-/d3-axis-3.0.0.tgz", - "integrity": "sha512-IH5tgjV4jE/GhHkRV0HiVYPDtvfjHQlQfJHs0usq7M30XcSBvOotpmH1IgkcXsO/5gEQZD43B//fc7SRT5S+xw==" - }, - "d3-brush": { - "version": "3.0.0", - "resolved": "https://registry.npmjs.org/d3-brush/-/d3-brush-3.0.0.tgz", - "integrity": "sha512-ALnjWlVYkXsVIGlOsuWH1+3udkYFI48Ljihfnh8FZPF2QS9o+PzGLBslO0PjzVoHLZ2KCVgAM8NVkXPJB2aNnQ==", - "requires": { - "d3-dispatch": "1 - 3", - "d3-drag": "2 - 3", - "d3-interpolate": "1 - 3", - "d3-selection": "3", - "d3-transition": "3" - } - }, - "d3-chord": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-chord/-/d3-chord-3.0.1.tgz", - "integrity": "sha512-VE5S6TNa+j8msksl7HwjxMHDM2yNK3XCkusIlpX5kwauBfXuyLAtNg9jCp/iHH61tgI4sb6R/EIMWCqEIdjT/g==", - "requires": { - "d3-path": "1 - 3" - } - }, - "d3-collection": { - "version": "1.0.7", - "resolved": "https://registry.npmjs.org/d3-collection/-/d3-collection-1.0.7.tgz", - "integrity": "sha512-ii0/r5f4sjKNTfh84Di+DpztYwqKhEyUlKoPrzUFfeSkWxjW49xU2QzO9qrPrNkpdI0XJkfzvmTu8V2Zylln6A==" - }, - "d3-color": { - "version": "3.1.0", - "resolved": "https://registry.npmjs.org/d3-color/-/d3-color-3.1.0.tgz", - "integrity": "sha512-zg/chbXyeBtMQ1LbD/WSoW2DpC3I0mpmPdW+ynRTj/x2DAWYrIY7qeZIHidozwV24m4iavr15lNwIwLxRmOxhA==" - }, - "d3-contour": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-contour/-/d3-contour-3.0.1.tgz", - "integrity": "sha512-0Oc4D0KyhwhM7ZL0RMnfGycLN7hxHB8CMmwZ3+H26PWAG0ozNuYG5hXSDNgmP1SgJkQMrlG6cP20HoaSbvcJTQ==", - "requires": { - "d3-array": "2 - 3" - } - }, - "d3-delaunay": { - "version": "6.0.2", - "resolved": "https://registry.npmjs.org/d3-delaunay/-/d3-delaunay-6.0.2.tgz", - "integrity": "sha512-IMLNldruDQScrcfT+MWnazhHbDJhcRJyOEBAJfwQnHle1RPh6WDuLvxNArUju2VSMSUuKlY5BGHRJ2cYyoFLQQ==", - "requires": { - "delaunator": "5" - } - }, - "d3-dispatch": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-dispatch/-/d3-dispatch-3.0.1.tgz", - "integrity": "sha512-rzUyPU/S7rwUflMyLc1ETDeBj0NRuHKKAcvukozwhshr6g6c5d8zh4c2gQjY2bZ0dXeGLWc1PF174P2tVvKhfg==" - }, - "d3-drag": { - "version": "3.0.0", - "resolved": "https://registry.npmjs.org/d3-drag/-/d3-drag-3.0.0.tgz", - "integrity": "sha512-pWbUJLdETVA8lQNJecMxoXfH6x+mO2UQo8rSmZ+QqxcbyA3hfeprFgIT//HW2nlHChWeIIMwS2Fq+gEARkhTkg==", - "requires": { - "d3-dispatch": "1 - 3", - "d3-selection": "3" - } - }, - "d3-dsv": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-dsv/-/d3-dsv-3.0.1.tgz", - "integrity": "sha512-UG6OvdI5afDIFP9w4G0mNq50dSOsXHJaRE8arAS5o9ApWnIElp8GZw1Dun8vP8OyHOZ/QJUKUJwxiiCCnUwm+Q==", - "requires": { - "commander": "7", - "iconv-lite": "0.6", - "rw": "1" - }, - "dependencies": { - "commander": { - "version": "7.2.0", - "resolved": "https://registry.npmjs.org/commander/-/commander-7.2.0.tgz", - "integrity": "sha512-QrWXB+ZQSVPmIWIhtEO9H+gwHaMGYiF5ChvoJ+K9ZGHG/sVsa6yiesAD1GC/x46sET00Xlwo1u49RVVVzvcSkw==" - } - } - }, - "d3-ease": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-ease/-/d3-ease-3.0.1.tgz", - "integrity": "sha512-wR/XK3D3XcLIZwpbvQwQ5fK+8Ykds1ip7A2Txe0yxncXSdq1L9skcG7blcedkOX+ZcgxGAmLX1FrRGbADwzi0w==" - }, - "d3-fetch": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-fetch/-/d3-fetch-3.0.1.tgz", - "integrity": "sha512-kpkQIM20n3oLVBKGg6oHrUchHM3xODkTzjMoj7aWQFq5QEM+R6E4WkzT5+tojDY7yjez8KgCBRoj4aEr99Fdqw==", - "requires": { - "d3-dsv": "1 - 3" - } - }, - "d3-force": { - "version": "3.0.0", - "resolved": "https://registry.npmjs.org/d3-force/-/d3-force-3.0.0.tgz", - "integrity": "sha512-zxV/SsA+U4yte8051P4ECydjD/S+qeYtnaIyAs9tgHCqfguma/aAQDjo85A9Z6EKhBirHRJHXIgJUlffT4wdLg==", - "requires": { - "d3-dispatch": "1 - 3", - "d3-quadtree": "1 - 3", - "d3-timer": "1 - 3" - } - }, - "d3-format": { - "version": "3.1.0", - "resolved": "https://registry.npmjs.org/d3-format/-/d3-format-3.1.0.tgz", - "integrity": "sha512-YyUI6AEuY/Wpt8KWLgZHsIU86atmikuoOmCfommt0LYHiQSPjvX2AcFc38PX0CBpr2RCyZhjex+NS/LPOv6YqA==" - }, - "d3-geo": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-geo/-/d3-geo-3.0.1.tgz", - "integrity": "sha512-Wt23xBych5tSy9IYAM1FR2rWIBFWa52B/oF/GYe5zbdHrg08FU8+BuI6X4PvTwPDdqdAdq04fuWJpELtsaEjeA==", - "requires": { - "d3-array": "2.5.0 - 3" - } - }, - "d3-hierarchy": { - "version": "3.1.2", - "resolved": "https://registry.npmjs.org/d3-hierarchy/-/d3-hierarchy-3.1.2.tgz", - "integrity": "sha512-FX/9frcub54beBdugHjDCdikxThEqjnR93Qt7PvQTOHxyiNCAlvMrHhclk3cD5VeAaq9fxmfRp+CnWw9rEMBuA==" - }, - "d3-interpolate": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-interpolate/-/d3-interpolate-3.0.1.tgz", - "integrity": "sha512-3bYs1rOD33uo8aqJfKP3JWPAibgw8Zm2+L9vBKEHJ2Rg+viTR7o5Mmv5mZcieN+FRYaAOWX5SJATX6k1PWz72g==", - "requires": { - "d3-color": "1 - 3" - } - }, - "d3-path": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-path/-/d3-path-3.0.1.tgz", - "integrity": "sha512-gq6gZom9AFZby0YLduxT1qmrp4xpBA1YZr19OI717WIdKE2OM5ETq5qrHLb301IgxhLwcuxvGZVLeeWc/k1I6w==" - }, - "d3-polygon": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-polygon/-/d3-polygon-3.0.1.tgz", - "integrity": "sha512-3vbA7vXYwfe1SYhED++fPUQlWSYTTGmFmQiany/gdbiWgU/iEyQzyymwL9SkJjFFuCS4902BSzewVGsHHmHtXg==" - }, - "d3-quadtree": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-quadtree/-/d3-quadtree-3.0.1.tgz", - "integrity": "sha512-04xDrxQTDTCFwP5H6hRhsRcb9xxv2RzkcsygFzmkSIOJy3PeRJP7sNk3VRIbKXcog561P9oU0/rVH6vDROAgUw==" - }, - "d3-random": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-random/-/d3-random-3.0.1.tgz", - "integrity": "sha512-FXMe9GfxTxqd5D6jFsQ+DJ8BJS4E/fT5mqqdjovykEB2oFbTMDVdg1MGFxfQW+FBOGoB++k8swBrgwSHT1cUXQ==" - }, - "d3-scale": { - "version": "4.0.2", - "resolved": "https://registry.npmjs.org/d3-scale/-/d3-scale-4.0.2.tgz", - "integrity": "sha512-GZW464g1SH7ag3Y7hXjf8RoUuAFIqklOAq3MRl4OaWabTFJY9PN/E1YklhXLh+OQ3fM9yS2nOkCoS+WLZ6kvxQ==", - "requires": { - "d3-array": "2.10.0 - 3", - "d3-format": "1 - 3", - "d3-interpolate": "1.2.0 - 3", - "d3-time": "2.1.1 - 3", - "d3-time-format": "2 - 4" - } - }, - "d3-scale-chromatic": { - "version": "3.0.0", - "resolved": "https://registry.npmjs.org/d3-scale-chromatic/-/d3-scale-chromatic-3.0.0.tgz", - "integrity": "sha512-Lx9thtxAKrO2Pq6OO2Ua474opeziKr279P/TKZsMAhYyNDD3EnCffdbgeSYN5O7m2ByQsxtuP2CSDczNUIZ22g==", - "requires": { - "d3-color": "1 - 3", - "d3-interpolate": "1 - 3" - } - }, - "d3-selection": { - "version": "3.0.0", - "resolved": "https://registry.npmjs.org/d3-selection/-/d3-selection-3.0.0.tgz", - "integrity": "sha512-fmTRWbNMmsmWq6xJV8D19U/gw/bwrHfNXxrIN+HfZgnzqTHp9jOmKMhsTUjXOJnZOdZY9Q28y4yebKzqDKlxlQ==" - }, - "d3-shape": { - "version": "3.1.0", - "resolved": "https://registry.npmjs.org/d3-shape/-/d3-shape-3.1.0.tgz", - "integrity": "sha512-tGDh1Muf8kWjEDT/LswZJ8WF85yDZLvVJpYU9Nq+8+yW1Z5enxrmXOhTArlkaElU+CTn0OTVNli+/i+HP45QEQ==", - "requires": { - "d3-path": "1 - 3" - } - }, - "d3-time": { - "version": "3.0.0", - "resolved": "https://registry.npmjs.org/d3-time/-/d3-time-3.0.0.tgz", - "integrity": "sha512-zmV3lRnlaLI08y9IMRXSDshQb5Nj77smnfpnd2LrBa/2K281Jijactokeak14QacHs/kKq0AQ121nidNYlarbQ==", - "requires": { - "d3-array": "2 - 3" - } - }, - "d3-time-format": { - "version": "4.1.0", - "resolved": "https://registry.npmjs.org/d3-time-format/-/d3-time-format-4.1.0.tgz", - "integrity": "sha512-dJxPBlzC7NugB2PDLwo9Q8JiTR3M3e4/XANkreKSUxF8vvXKqm1Yfq4Q5dl8budlunRVlUUaDUgFt7eA8D6NLg==", - "requires": { - "d3-time": "1 - 3" - } - }, - "d3-timer": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-timer/-/d3-timer-3.0.1.tgz", - "integrity": "sha512-ndfJ/JxxMd3nw31uyKoY2naivF+r29V+Lc0svZxe1JvvIRmi8hUsrMvdOwgS1o6uBHmiz91geQ0ylPP0aj1VUA==" - }, - "d3-transition": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/d3-transition/-/d3-transition-3.0.1.tgz", - "integrity": "sha512-ApKvfjsSR6tg06xrL434C0WydLr7JewBB3V+/39RMHsaXTOG0zmt/OAXeng5M5LBm0ojmxJrpomQVZ1aPvBL4w==", - "requires": { - "d3-color": "1 - 3", - "d3-dispatch": "1 - 3", - "d3-ease": "1 - 3", - "d3-interpolate": "1 - 3", - "d3-timer": "1 - 3" - } - }, - "d3-voronoi": { - "version": "1.1.4", - "resolved": "https://registry.npmjs.org/d3-voronoi/-/d3-voronoi-1.1.4.tgz", - "integrity": "sha512-dArJ32hchFsrQ8uMiTBLq256MpnZjeuBtdHpaDlYuQyjU0CVzCJl/BVW+SkszaAeH95D/8gxqAhgx0ouAWAfRg==" - }, - "d3-zoom": { - "version": "3.0.0", - "resolved": "https://registry.npmjs.org/d3-zoom/-/d3-zoom-3.0.0.tgz", - "integrity": "sha512-b8AmV3kfQaqWAuacbPuNbL6vahnOJflOhexLzMMNLga62+/nh0JzvJ0aO/5a5MVgUFGS7Hu1P9P03o3fJkDCyw==", - "requires": { - "d3-dispatch": "1 - 3", - "d3-drag": "2 - 3", - "d3-interpolate": "1 - 3", - "d3-selection": "2 - 3", - "d3-transition": "2 - 3" - } - }, - "dagre": { - "version": "0.8.5", - "resolved": "https://registry.npmjs.org/dagre/-/dagre-0.8.5.tgz", - "integrity": "sha512-/aTqmnRta7x7MCCpExk7HQL2O4owCT2h8NT//9I1OQ9vt29Pa0BzSAkR5lwFUcQ7491yVi/3CXU9jQ5o0Mn2Sw==", - "requires": { - "graphlib": "^2.1.8", - "lodash": "^4.17.15" - } - }, - "dagre-d3": { - "version": "0.6.4", - "resolved": "https://registry.npmjs.org/dagre-d3/-/dagre-d3-0.6.4.tgz", - "integrity": "sha512-e/6jXeCP7/ptlAM48clmX4xTZc5Ek6T6kagS7Oz2HrYSdqcLZFLqpAfh7ldbZRFfxCZVyh61NEPR08UQRVxJzQ==", - "requires": { - "d3": "^5.14", - "dagre": "^0.8.5", - "graphlib": "^2.1.8", - "lodash": "^4.17.15" - }, - "dependencies": { - "commander": { - "version": "2.20.3", - "resolved": "https://registry.npmjs.org/commander/-/commander-2.20.3.tgz", - "integrity": "sha512-GpVkmM8vF2vQUkj2LvZmD35JxeJOLCwJ9cUkugyk2nuhbv3+mJvpLYYt+0+USMxE+oj+ey/lJEnhZw75x/OMcQ==" - }, - "d3": { - "version": "5.16.0", - "resolved": "https://registry.npmjs.org/d3/-/d3-5.16.0.tgz", - "integrity": "sha512-4PL5hHaHwX4m7Zr1UapXW23apo6pexCgdetdJ5kTmADpG/7T9Gkxw0M0tf/pjoB63ezCCm0u5UaFYy2aMt0Mcw==", - "requires": { - "d3-array": "1", - "d3-axis": "1", - "d3-brush": "1", - "d3-chord": "1", - "d3-collection": "1", - "d3-color": "1", - "d3-contour": "1", - "d3-dispatch": "1", - "d3-drag": "1", - "d3-dsv": "1", - "d3-ease": "1", - "d3-fetch": "1", - "d3-force": "1", - "d3-format": "1", - "d3-geo": "1", - "d3-hierarchy": "1", - "d3-interpolate": "1", - "d3-path": "1", - "d3-polygon": "1", - "d3-quadtree": "1", - "d3-random": "1", - "d3-scale": "2", - "d3-scale-chromatic": "1", - "d3-selection": "1", - "d3-shape": "1", - "d3-time": "1", - "d3-time-format": "2", - "d3-timer": "1", - "d3-transition": "1", - "d3-voronoi": "1", - "d3-zoom": "1" - } - }, - "d3-array": { - "version": "1.2.4", - "resolved": "https://registry.npmjs.org/d3-array/-/d3-array-1.2.4.tgz", - "integrity": "sha512-KHW6M86R+FUPYGb3R5XiYjXPq7VzwxZ22buHhAEVG5ztoEcZZMLov530mmccaqA1GghZArjQV46fuc8kUqhhHw==" - }, - "d3-axis": { - "version": "1.0.12", - "resolved": "https://registry.npmjs.org/d3-axis/-/d3-axis-1.0.12.tgz", - "integrity": "sha512-ejINPfPSNdGFKEOAtnBtdkpr24c4d4jsei6Lg98mxf424ivoDP2956/5HDpIAtmHo85lqT4pruy+zEgvRUBqaQ==" - }, - "d3-brush": { - "version": "1.1.6", - "resolved": "https://registry.npmjs.org/d3-brush/-/d3-brush-1.1.6.tgz", - "integrity": "sha512-7RW+w7HfMCPyZLifTz/UnJmI5kdkXtpCbombUSs8xniAyo0vIbrDzDwUJB6eJOgl9u5DQOt2TQlYumxzD1SvYA==", - "requires": { - "d3-dispatch": "1", - "d3-drag": "1", - "d3-interpolate": "1", - "d3-selection": "1", - "d3-transition": "1" - } - }, - "d3-chord": { - "version": "1.0.6", - "resolved": "https://registry.npmjs.org/d3-chord/-/d3-chord-1.0.6.tgz", - "integrity": "sha512-JXA2Dro1Fxw9rJe33Uv+Ckr5IrAa74TlfDEhE/jfLOaXegMQFQTAgAw9WnZL8+HxVBRXaRGCkrNU7pJeylRIuA==", - "requires": { - "d3-array": "1", - "d3-path": "1" - } - }, - "d3-color": { - "version": "1.4.1", - "resolved": "https://registry.npmjs.org/d3-color/-/d3-color-1.4.1.tgz", - "integrity": "sha512-p2sTHSLCJI2QKunbGb7ocOh7DgTAn8IrLx21QRc/BSnodXM4sv6aLQlnfpvehFMLZEfBc6g9pH9SWQccFYfJ9Q==" - }, - "d3-contour": { - "version": "1.3.2", - "resolved": "https://registry.npmjs.org/d3-contour/-/d3-contour-1.3.2.tgz", - "integrity": "sha512-hoPp4K/rJCu0ladiH6zmJUEz6+u3lgR+GSm/QdM2BBvDraU39Vr7YdDCicJcxP1z8i9B/2dJLgDC1NcvlF8WCg==", - "requires": { - "d3-array": "^1.1.1" - } - }, - "d3-dispatch": { - "version": "1.0.6", - "resolved": "https://registry.npmjs.org/d3-dispatch/-/d3-dispatch-1.0.6.tgz", - "integrity": "sha512-fVjoElzjhCEy+Hbn8KygnmMS7Or0a9sI2UzGwoB7cCtvI1XpVN9GpoYlnb3xt2YV66oXYb1fLJ8GMvP4hdU1RA==" - }, - "d3-drag": { - "version": "1.2.5", - "resolved": "https://registry.npmjs.org/d3-drag/-/d3-drag-1.2.5.tgz", - "integrity": "sha512-rD1ohlkKQwMZYkQlYVCrSFxsWPzI97+W+PaEIBNTMxRuxz9RF0Hi5nJWHGVJ3Om9d2fRTe1yOBINJyy/ahV95w==", - "requires": { - "d3-dispatch": "1", - "d3-selection": "1" - } - }, - "d3-dsv": { - "version": "1.2.0", - "resolved": "https://registry.npmjs.org/d3-dsv/-/d3-dsv-1.2.0.tgz", - "integrity": "sha512-9yVlqvZcSOMhCYzniHE7EVUws7Fa1zgw+/EAV2BxJoG3ME19V6BQFBwI855XQDsxyOuG7NibqRMTtiF/Qup46g==", - "requires": { - "commander": "2", - "iconv-lite": "0.4", - "rw": "1" - } - }, - "d3-ease": { - "version": "1.0.7", - "resolved": "https://registry.npmjs.org/d3-ease/-/d3-ease-1.0.7.tgz", - "integrity": "sha512-lx14ZPYkhNx0s/2HX5sLFUI3mbasHjSSpwO/KaaNACweVwxUruKyWVcb293wMv1RqTPZyZ8kSZ2NogUZNcLOFQ==" - }, - "d3-fetch": { - "version": "1.2.0", - "resolved": "https://registry.npmjs.org/d3-fetch/-/d3-fetch-1.2.0.tgz", - "integrity": "sha512-yC78NBVcd2zFAyR/HnUiBS7Lf6inSCoWcSxFfw8FYL7ydiqe80SazNwoffcqOfs95XaLo7yebsmQqDKSsXUtvA==", - "requires": { - "d3-dsv": "1" - } - }, - "d3-force": { - "version": "1.2.1", - "resolved": "https://registry.npmjs.org/d3-force/-/d3-force-1.2.1.tgz", - "integrity": "sha512-HHvehyaiUlVo5CxBJ0yF/xny4xoaxFxDnBXNvNcfW9adORGZfyNF1dj6DGLKyk4Yh3brP/1h3rnDzdIAwL08zg==", - "requires": { - "d3-collection": "1", - "d3-dispatch": "1", - "d3-quadtree": "1", - "d3-timer": "1" - } - }, - "d3-format": { - "version": "1.4.5", - "resolved": "https://registry.npmjs.org/d3-format/-/d3-format-1.4.5.tgz", - "integrity": "sha512-J0piedu6Z8iB6TbIGfZgDzfXxUFN3qQRMofy2oPdXzQibYGqPB/9iMcxr/TGalU+2RsyDO+U4f33id8tbnSRMQ==" - }, - "d3-geo": { - "version": "1.12.1", - "resolved": "https://registry.npmjs.org/d3-geo/-/d3-geo-1.12.1.tgz", - "integrity": "sha512-XG4d1c/UJSEX9NfU02KwBL6BYPj8YKHxgBEw5om2ZnTRSbIcego6dhHwcxuSR3clxh0EpE38os1DVPOmnYtTPg==", - "requires": { - "d3-array": "1" - } - }, - "d3-hierarchy": { - "version": "1.1.9", - "resolved": "https://registry.npmjs.org/d3-hierarchy/-/d3-hierarchy-1.1.9.tgz", - "integrity": "sha512-j8tPxlqh1srJHAtxfvOUwKNYJkQuBFdM1+JAUfq6xqH5eAqf93L7oG1NVqDa4CpFZNvnNKtCYEUC8KY9yEn9lQ==" - }, - "d3-interpolate": { - "version": "1.4.0", - "resolved": "https://registry.npmjs.org/d3-interpolate/-/d3-interpolate-1.4.0.tgz", - "integrity": "sha512-V9znK0zc3jOPV4VD2zZn0sDhZU3WAE2bmlxdIwwQPPzPjvyLkd8B3JUVdS1IDUFDkWZ72c9qnv1GK2ZagTZ8EA==", - "requires": { - "d3-color": "1" - } - }, - "d3-path": { - "version": "1.0.9", - "resolved": "https://registry.npmjs.org/d3-path/-/d3-path-1.0.9.tgz", - "integrity": "sha512-VLaYcn81dtHVTjEHd8B+pbe9yHWpXKZUC87PzoFmsFrJqgFwDe/qxfp5MlfsfM1V5E/iVt0MmEbWQ7FVIXh/bg==" - }, - "d3-polygon": { - "version": "1.0.6", - "resolved": "https://registry.npmjs.org/d3-polygon/-/d3-polygon-1.0.6.tgz", - "integrity": "sha512-k+RF7WvI08PC8reEoXa/w2nSg5AUMTi+peBD9cmFc+0ixHfbs4QmxxkarVal1IkVkgxVuk9JSHhJURHiyHKAuQ==" - }, - "d3-quadtree": { - "version": "1.0.7", - "resolved": "https://registry.npmjs.org/d3-quadtree/-/d3-quadtree-1.0.7.tgz", - "integrity": "sha512-RKPAeXnkC59IDGD0Wu5mANy0Q2V28L+fNe65pOCXVdVuTJS3WPKaJlFHer32Rbh9gIo9qMuJXio8ra4+YmIymA==" - }, - "d3-random": { - "version": "1.1.2", - "resolved": "https://registry.npmjs.org/d3-random/-/d3-random-1.1.2.tgz", - "integrity": "sha512-6AK5BNpIFqP+cx/sreKzNjWbwZQCSUatxq+pPRmFIQaWuoD+NrbVWw7YWpHiXpCQ/NanKdtGDuB+VQcZDaEmYQ==" - }, - "d3-scale": { - "version": "2.2.2", - "resolved": "https://registry.npmjs.org/d3-scale/-/d3-scale-2.2.2.tgz", - "integrity": "sha512-LbeEvGgIb8UMcAa0EATLNX0lelKWGYDQiPdHj+gLblGVhGLyNbaCn3EvrJf0A3Y/uOOU5aD6MTh5ZFCdEwGiCw==", - "requires": { - "d3-array": "^1.2.0", - "d3-collection": "1", - "d3-format": "1", - "d3-interpolate": "1", - "d3-time": "1", - "d3-time-format": "2" - } - }, - "d3-scale-chromatic": { - "version": "1.5.0", - "resolved": "https://registry.npmjs.org/d3-scale-chromatic/-/d3-scale-chromatic-1.5.0.tgz", - "integrity": "sha512-ACcL46DYImpRFMBcpk9HhtIyC7bTBR4fNOPxwVSl0LfulDAwyiHyPOTqcDG1+t5d4P9W7t/2NAuWu59aKko/cg==", - "requires": { - "d3-color": "1", - "d3-interpolate": "1" - } - }, - "d3-selection": { - "version": "1.4.2", - "resolved": "https://registry.npmjs.org/d3-selection/-/d3-selection-1.4.2.tgz", - "integrity": "sha512-SJ0BqYihzOjDnnlfyeHT0e30k0K1+5sR3d5fNueCNeuhZTnGw4M4o8mqJchSwgKMXCNFo+e2VTChiSJ0vYtXkg==" - }, - "d3-shape": { - "version": "1.3.7", - "resolved": "https://registry.npmjs.org/d3-shape/-/d3-shape-1.3.7.tgz", - "integrity": "sha512-EUkvKjqPFUAZyOlhY5gzCxCeI0Aep04LwIRpsZ/mLFelJiUfnK56jo5JMDSE7yyP2kLSb6LtF+S5chMk7uqPqw==", - "requires": { - "d3-path": "1" - } - }, - "d3-time": { - "version": "1.1.0", - "resolved": "https://registry.npmjs.org/d3-time/-/d3-time-1.1.0.tgz", - "integrity": "sha512-Xh0isrZ5rPYYdqhAVk8VLnMEidhz5aP7htAADH6MfzgmmicPkTo8LhkLxci61/lCB7n7UmE3bN0leRt+qvkLxA==" - }, - "d3-time-format": { - "version": "2.3.0", - "resolved": "https://registry.npmjs.org/d3-time-format/-/d3-time-format-2.3.0.tgz", - "integrity": "sha512-guv6b2H37s2Uq/GefleCDtbe0XZAuy7Wa49VGkPVPMfLL9qObgBST3lEHJBMUp8S7NdLQAGIvr2KXk8Hc98iKQ==", - "requires": { - "d3-time": "1" - } - }, - "d3-timer": { - "version": "1.0.10", - "resolved": "https://registry.npmjs.org/d3-timer/-/d3-timer-1.0.10.tgz", - "integrity": "sha512-B1JDm0XDaQC+uvo4DT79H0XmBskgS3l6Ve+1SBCfxgmtIb1AVrPIoqd+nPSv+loMX8szQ0sVUhGngL7D5QPiXw==" - }, - "d3-transition": { - "version": "1.3.2", - "resolved": "https://registry.npmjs.org/d3-transition/-/d3-transition-1.3.2.tgz", - "integrity": "sha512-sc0gRU4PFqZ47lPVHloMn9tlPcv8jxgOQg+0zjhfZXMQuvppjG6YuwdMBE0TuqCZjeJkLecku/l9R0JPcRhaDA==", - "requires": { - "d3-color": "1", - "d3-dispatch": "1", - "d3-ease": "1", - "d3-interpolate": "1", - "d3-selection": "^1.1.0", - "d3-timer": "1" - } - }, - "d3-zoom": { - "version": "1.8.3", - "resolved": "https://registry.npmjs.org/d3-zoom/-/d3-zoom-1.8.3.tgz", - "integrity": "sha512-VoLXTK4wvy1a0JpH2Il+F2CiOhVu7VRXWF5M/LroMIh3/zBAC3WAt7QoIvPibOavVo20hN6/37vwAsdBejLyKQ==", - "requires": { - "d3-dispatch": "1", - "d3-drag": "1", - "d3-interpolate": "1", - "d3-selection": "1", - "d3-transition": "1" - } + "requires": { + "browserslist": "^4.19.1", + "semver": "7.0.0" + }, + "dependencies": { + "semver": { + "version": "7.0.0", + "resolved": "https://registry.npmjs.org/semver/-/semver-7.0.0.tgz", + "integrity": "sha512-+GB6zVA9LWh6zovYQLALHwv5rb2PHGlJi3lfiqIHxR0uuwCgefcOJc59v9fv1w8GbStwxuuqqAjI9NMAOOgq1A==", + "dev": true + } + } + }, + "core-util-is": { + "version": "1.0.2", + "resolved": "https://registry.npmjs.org/core-util-is/-/core-util-is-1.0.2.tgz", + "integrity": "sha1-tf1UIgqivFq1eqtxQMlAdUUDwac=", + "dev": true + }, + "cosmiconfig": { + "version": "8.1.3", + "resolved": "https://registry.npmjs.org/cosmiconfig/-/cosmiconfig-8.1.3.tgz", + "integrity": "sha512-/UkO2JKI18b5jVMJUp0lvKFMpa/Gye+ZgZjKD+DGEN9y7NRcf/nK1A0sp67ONmKtnDCNMS44E6jrk0Yc3bDuUw==", + "dev": true, + "requires": { + "import-fresh": "^3.2.1", + "js-yaml": "^4.1.0", + "parse-json": "^5.0.0", + "path-type": "^4.0.0" + }, + "dependencies": { + "argparse": { + "version": "2.0.1", + "resolved": "https://registry.npmjs.org/argparse/-/argparse-2.0.1.tgz", + "integrity": "sha512-8+9WqebbFzpX9OR+Wa6O29asIogeRMzcGtAINdpMHHyAg10f05aSFVBbcEqGf/PXw1EjAZ+q2/bEBg3DvurK3Q==", + "dev": true }, - "iconv-lite": { - "version": "0.4.24", - "resolved": "https://registry.npmjs.org/iconv-lite/-/iconv-lite-0.4.24.tgz", - "integrity": "sha512-v3MXnZAcvnywkTUEZomIActle7RXXeedOR31wwl7VlyoXO4Qi9arvSenNQWne1TcRwhCL1HwLI21bEqdpj8/rA==", + "js-yaml": { + "version": "4.1.0", + "resolved": "https://registry.npmjs.org/js-yaml/-/js-yaml-4.1.0.tgz", + "integrity": "sha512-wpxZs9NoxZaJESJGIZTyDEaYpl0FKSA+FB9aJiyemKhMwkxQg63h4T1KJgUGHpTqPDNRcmmYLugrRjJlBtWvRA==", + "dev": true, "requires": { - "safer-buffer": ">= 2.1.2 < 3" + "argparse": "^2.0.1" } } } }, + "coveralls": { + "version": "3.1.1", + "resolved": "https://registry.npmjs.org/coveralls/-/coveralls-3.1.1.tgz", + "integrity": "sha512-+dxnG2NHncSD1NrqbSM3dn/lE57O6Qf/koe9+I7c+wzkqRmEvcp0kgJdxKInzYzkICKkFMZsX3Vct3++tsF9ww==", + "dev": true, + "requires": { + "js-yaml": "^3.13.1", + "lcov-parse": "^1.0.0", + "log-driver": "^1.2.7", + "minimist": "^1.2.5", + "request": "^2.88.2" + } + }, + "cross-fetch": { + "version": "3.1.5", + "resolved": "https://registry.npmjs.org/cross-fetch/-/cross-fetch-3.1.5.tgz", + "integrity": "sha512-lvb1SBsI0Z7GDwmuid+mU3kWVBwTVUbe7S0H52yaaAdQOXq2YktTCZdlAcNKFzE6QtRz0snpw9bNiPeOIkkQvw==", + "dev": true, + "requires": { + "node-fetch": "2.6.7" + } + }, + "cross-spawn": { + "version": "7.0.3", + "resolved": "https://registry.npmjs.org/cross-spawn/-/cross-spawn-7.0.3.tgz", + "integrity": "sha512-iRDPJKUPVEND7dHPO8rkbOnPpyDygcDFtWjpeWNCgy8WP2rXcxXL8TskReQl6OrB2G7+UJrags1q15Fudc7G6w==", + "dev": true, + "requires": { + "path-key": "^3.1.0", + "shebang-command": "^2.0.0", + "which": "^2.0.1" + } + }, + "currently-unhandled": { + "version": "0.4.1", + "resolved": "https://registry.npmjs.org/currently-unhandled/-/currently-unhandled-0.4.1.tgz", + "integrity": "sha1-mI3zP+qxke95mmE2nddsF635V+o=", + "dev": true, + "requires": { + "array-find-index": "^1.0.1" + } + }, "dashdash": { "version": "1.14.1", "resolved": "https://registry.npmjs.org/dashdash/-/dashdash-1.14.1.tgz", @@ -13734,9 +12810,10 @@ } }, "debug": { - "version": "4.3.2", - "resolved": "https://registry.npmjs.org/debug/-/debug-4.3.2.tgz", - "integrity": "sha512-mOp8wKcvj7XxC78zLgw/ZA+6TSgkoE2C/ienthhRD298T7UNwAg9diBpLRxC0mOezLl4B0xV7M0cCO6P/O0Xhw==", + "version": "4.3.4", + "resolved": "https://registry.npmjs.org/debug/-/debug-4.3.4.tgz", + "integrity": "sha512-PRWFHuSU3eDtQJPvnNY7Jcket1j0t5OuOsFzPPzsekD52Zl8qUfFIPEiswXqIvHWGVHOgX+7G/vCNNhehwxfkQ==", + "dev": true, "requires": { "ms": "2.1.2" } @@ -13756,7 +12833,8 @@ "deepmerge": { "version": "4.2.2", "resolved": "https://registry.npmjs.org/deepmerge/-/deepmerge-4.2.2.tgz", - "integrity": "sha512-FJ3UgI4gIl+PHZm53knsuSFpE+nESMr7M4v9QcgB7S63Kj/6WqMiFQJpBBYz1Pt+66bZpP3Q7Lye0Oo9MPKEdg==" + "integrity": "sha512-FJ3UgI4gIl+PHZm53knsuSFpE+nESMr7M4v9QcgB7S63Kj/6WqMiFQJpBBYz1Pt+66bZpP3Q7Lye0Oo9MPKEdg==", + "dev": true }, "default-require-extensions": { "version": "3.0.0", @@ -13817,14 +12895,6 @@ } } }, - "delaunator": { - "version": "5.0.0", - "resolved": "https://registry.npmjs.org/delaunator/-/delaunator-5.0.0.tgz", - "integrity": "sha512-AyLvtyJdbv/U1GkiS6gUUzclRoAY4Gs75qkMygJJhU75LW4DNuSF2RMzpxs9jw9Oz1BobHjTdkG3zdP55VxAqw==", - "requires": { - "robust-predicates": "^3.0.0" - } - }, "delayed-stream": { "version": "1.0.0", "resolved": "https://registry.npmjs.org/delayed-stream/-/delayed-stream-1.0.0.tgz", @@ -13832,9 +12902,10 @@ "dev": true }, "devtools-protocol": { - "version": "0.0.960912", - "resolved": "https://registry.npmjs.org/devtools-protocol/-/devtools-protocol-0.0.960912.tgz", - "integrity": "sha512-I3hWmV9rWHbdnUdmMKHF2NuYutIM2kXz2mdXW8ha7TbRlGTVs+PF+PsB5QWvpCek4Fy9B+msiispCfwlhG5Sqg==" + "version": "0.0.1107588", + "resolved": "https://registry.npmjs.org/devtools-protocol/-/devtools-protocol-0.0.1107588.tgz", + "integrity": "sha512-yIR+pG9x65Xko7bErCUSQaDLrO/P1p3JUzEk7JCU4DowPcGHkTGUGQapcfcLc4qj0UaALwZ+cr0riFgiqpixcg==", + "dev": true }, "dir-glob": { "version": "3.0.1", @@ -13854,11 +12925,6 @@ "esutils": "^2.0.2" } }, - "dompurify": { - "version": "2.3.6", - "resolved": "https://registry.npmjs.org/dompurify/-/dompurify-2.3.6.tgz", - "integrity": "sha512-OFP2u/3T1R5CEgWCEONuJ1a5+MFKnOYpkywpUSxv/dj1LeBT1erK+JwM7zK0ROy2BRhqVCf0LRw/kHqKuMkVGg==" - }, "eastasianwidth": { "version": "0.2.0", "resolved": "https://registry.npmjs.org/eastasianwidth/-/eastasianwidth-0.2.0.tgz", @@ -13897,10 +12963,20 @@ "version": "1.4.4", "resolved": "https://registry.npmjs.org/end-of-stream/-/end-of-stream-1.4.4.tgz", "integrity": "sha512-+uw1inIHVPQoaVuHzRyXd21icM+cnt4CzD5rW+NC1wjOUSTOs+Te7FOv7AhN7vS9x/oIyhLP5PR1H+phQAHu5Q==", + "dev": true, "requires": { "once": "^1.4.0" } }, + "error-ex": { + "version": "1.3.2", + "resolved": "https://registry.npmjs.org/error-ex/-/error-ex-1.3.2.tgz", + "integrity": "sha512-7dFHNmqeFSEt2ZBsCriorKnn3Z2pj+fd9kmI6QoWw4//DL+icEBfc0U7qJCisqrTsKTjw4fNFy2pW9OqStD84g==", + "dev": true, + "requires": { + "is-arrayish": "^0.2.1" + } + }, "es6-error": { "version": "4.1.1", "resolved": "https://registry.npmjs.org/es6-error/-/es6-error-4.1.1.tgz", @@ -13910,12 +12986,14 @@ "escalade": { "version": "3.1.1", "resolved": "https://registry.npmjs.org/escalade/-/escalade-3.1.1.tgz", - "integrity": "sha512-k0er2gUkLf8O0zKJiAhmkTnJlTvINGv7ygDNPbeIsX/TJjGJZHuh9B2UxbsaEkmlEo9MfhrSzmhIlhRlI2GXnw==" + "integrity": "sha512-k0er2gUkLf8O0zKJiAhmkTnJlTvINGv7ygDNPbeIsX/TJjGJZHuh9B2UxbsaEkmlEo9MfhrSzmhIlhRlI2GXnw==", + "dev": true }, "escape-string-regexp": { "version": "1.0.5", "resolved": "https://registry.npmjs.org/escape-string-regexp/-/escape-string-regexp-1.0.5.tgz", - "integrity": "sha1-G2HAViGQqN/2rjuyzwIAyhMLhtQ=" + "integrity": "sha1-G2HAViGQqN/2rjuyzwIAyhMLhtQ=", + "dev": true }, "eslint": { "version": "8.8.0", @@ -14137,6 +13215,7 @@ "version": "2.0.1", "resolved": "https://registry.npmjs.org/extract-zip/-/extract-zip-2.0.1.tgz", "integrity": "sha512-GDhU9ntwuKyGXdZBUgTIe+vXnWj0fppUEtMDL0+idd5Sta8TGpHssn/eusA9mrPr9qNDym6SxAYZjNvCn/9RBg==", + "dev": true, "requires": { "@types/yauzl": "^2.9.1", "debug": "^4.1.1", @@ -14199,7 +13278,8 @@ "fd-slicer": { "version": "1.1.0", "resolved": "https://registry.npmjs.org/fd-slicer/-/fd-slicer-1.1.0.tgz", - "integrity": "sha1-JcfInLH5B3+IkbvmHY85Dq4lbx4=", + "integrity": "sha512-cE1qsB/VwyQozZ+q1dGxR8LBYNZeofhEdUNGSMbQD3Gw2lAzX9Zb3uIU6Ebc/Fmyjo9AWWfnn0AUCHqtevs/8g==", + "dev": true, "requires": { "pend": "~1.2.0" } @@ -14255,6 +13335,7 @@ "version": "4.1.0", "resolved": "https://registry.npmjs.org/find-up/-/find-up-4.1.0.tgz", "integrity": "sha512-PpOwAdQ/YlXQ2vj8a3h8IipDuYRi3wceVQQGYWxNINccq40Anw7BlsEXCMbt1Zt+OLA6Fq9suIpIWD0OsnISlw==", + "dev": true, "requires": { "locate-path": "^5.0.0", "path-exists": "^4.0.0" @@ -14312,23 +13393,20 @@ "fs-constants": { "version": "1.0.0", "resolved": "https://registry.npmjs.org/fs-constants/-/fs-constants-1.0.0.tgz", - "integrity": "sha512-y6OAwoSIf7FyjMIv94u+b5rdheZEjzR63GTyZJm5qh4Bi+2YgwLCcI/fPFZkL5PSixOt6ZNKm+w+Hfp/Bciwow==" + "integrity": "sha512-y6OAwoSIf7FyjMIv94u+b5rdheZEjzR63GTyZJm5qh4Bi+2YgwLCcI/fPFZkL5PSixOt6ZNKm+w+Hfp/Bciwow==", + "dev": true }, "fs.realpath": { "version": "1.0.0", "resolved": "https://registry.npmjs.org/fs.realpath/-/fs.realpath-1.0.0.tgz", - "integrity": "sha1-FQStJSMVjKpA20onh8sBQRmU6k8=" - }, - "fsevents": { - "version": "2.3.2", - "resolved": "https://registry.npmjs.org/fsevents/-/fsevents-2.3.2.tgz", - "integrity": "sha512-xiqMQR4xAeHTuB9uWm+fFRcIOgKBMiOBP+eXiyT7jsgVCq1bkVygt00oASowB7EdtpOHaaPgKt812P9ab+DDKA==", - "optional": true + "integrity": "sha1-FQStJSMVjKpA20onh8sBQRmU6k8=", + "dev": true }, "function-bind": { "version": "1.1.1", "resolved": "https://registry.npmjs.org/function-bind/-/function-bind-1.1.1.tgz", - "integrity": "sha512-yIovAzMX49sF8Yl58fSCWJ5svSLuaibPxXQJFLmBObTuCr0Mf1KiPopGM9NiFjiYBCbfaa2Fh6breQ6ANVTI0A==" + "integrity": "sha512-yIovAzMX49sF8Yl58fSCWJ5svSLuaibPxXQJFLmBObTuCr0Mf1KiPopGM9NiFjiYBCbfaa2Fh6breQ6ANVTI0A==", + "dev": true }, "functional-red-black-tree": { "version": "1.0.1", @@ -14339,7 +13417,8 @@ "gensync": { "version": "1.0.0-beta.2", "resolved": "https://registry.npmjs.org/gensync/-/gensync-1.0.0-beta.2.tgz", - "integrity": "sha512-3hN7NaskYvMDLQY55gnW3NQ+mesEAepTqlg+VEbj7zzqEMBVNhzcGYYeqFo/TlYz6eQiFcp1HcsCZO+nGgS8zg==" + "integrity": "sha512-3hN7NaskYvMDLQY55gnW3NQ+mesEAepTqlg+VEbj7zzqEMBVNhzcGYYeqFo/TlYz6eQiFcp1HcsCZO+nGgS8zg==", + "dev": true }, "get-caller-file": { "version": "2.0.5", @@ -14368,6 +13447,7 @@ "version": "5.2.0", "resolved": "https://registry.npmjs.org/get-stream/-/get-stream-5.2.0.tgz", "integrity": "sha512-nBF+F1rAZVCu/p7rjzgA+Yb4lfYXrpl7a6VmJrU8wF9I1CKvP/QwPNZHnOlwbTkY6dvtFIzFMSyQXbLoTQPRpA==", + "dev": true, "requires": { "pump": "^3.0.0" } @@ -14385,6 +13465,7 @@ "version": "7.2.0", "resolved": "https://registry.npmjs.org/glob/-/glob-7.2.0.tgz", "integrity": "sha512-lmLf6gtyrPq8tTjSmrO94wBeQbFR3HbLHbuyD69wuyQkImp2hWqMGB47OX65FBkPffO641IP9jWa1z4ivqG26Q==", + "dev": true, "requires": { "fs.realpath": "^1.0.0", "inflight": "^1.0.4", @@ -14406,7 +13487,8 @@ "globals": { "version": "11.12.0", "resolved": "https://registry.npmjs.org/globals/-/globals-11.12.0.tgz", - "integrity": "sha512-WOBp/EEGUiIsJSp7wcv/y6MO+lV9UoncWqxuFfm8eBwzWNgyfBd6Gz+IeKQ9jCmyhoH99g15M3T+QaVHFjizVA==" + "integrity": "sha512-WOBp/EEGUiIsJSp7wcv/y6MO+lV9UoncWqxuFfm8eBwzWNgyfBd6Gz+IeKQ9jCmyhoH99g15M3T+QaVHFjizVA==", + "dev": true }, "globby": { "version": "12.2.0", @@ -14442,14 +13524,6 @@ "integrity": "sha512-qkIilPUYcNhJpd33n0GBXTB1MMPp14TxEsEs0pTrsSVucApsYzW5V+Q8Qxhik6KU3evy+qkAAowTByymK0avdg==", "dev": true }, - "graphlib": { - "version": "2.1.8", - "resolved": "https://registry.npmjs.org/graphlib/-/graphlib-2.1.8.tgz", - "integrity": "sha512-jcLLfkpoVGmH7/InMC/1hIvOPSUh38oJtGhvrOFGzioE1DZ+0YW16RgmOJhHiuWTvGiJQ9Z1Ik43JvkRPRvE+A==", - "requires": { - "lodash": "^4.17.15" - } - }, "har-schema": { "version": "2.0.0", "resolved": "https://registry.npmjs.org/har-schema/-/har-schema-2.0.0.tgz", @@ -14470,6 +13544,7 @@ "version": "1.0.3", "resolved": "https://registry.npmjs.org/has/-/has-1.0.3.tgz", "integrity": "sha512-f2dvO0VU6Oej7RkWJGrehjbzMAjFp5/VKPp5tTpWIV4JHHZK1/BxbFRtf/siA2SWTe09caDmVtYYzWEIbBS4zw==", + "dev": true, "requires": { "function-bind": "^1.1.1" } @@ -14494,7 +13569,8 @@ "has-flag": { "version": "3.0.0", "resolved": "https://registry.npmjs.org/has-flag/-/has-flag-3.0.0.tgz", - "integrity": "sha1-tdRU3CGZriJWmfNGfloH87lVuv0=" + "integrity": "sha1-tdRU3CGZriJWmfNGfloH87lVuv0=", + "dev": true }, "has-symbols": { "version": "1.0.2", @@ -14530,26 +13606,20 @@ } }, "https-proxy-agent": { - "version": "5.0.0", - "resolved": "https://registry.npmjs.org/https-proxy-agent/-/https-proxy-agent-5.0.0.tgz", - "integrity": "sha512-EkYm5BcKUGiduxzSt3Eppko+PiNWNEpa4ySk9vTC6wDsQJW9rHSa+UhGNJoRYp7bz6Ht1eaRIa6QaJqO5rCFbA==", + "version": "5.0.1", + "resolved": "https://registry.npmjs.org/https-proxy-agent/-/https-proxy-agent-5.0.1.tgz", + "integrity": "sha512-dFcAjpTQFgoLMzC2VwU+C/CbS7uRL0lWmxDITmqm7C+7F0Odmj6s9l6alZc6AELXhrnggM2CeWSXHGOdX2YtwA==", + "dev": true, "requires": { "agent-base": "6", "debug": "4" } }, - "iconv-lite": { - "version": "0.6.3", - "resolved": "https://registry.npmjs.org/iconv-lite/-/iconv-lite-0.6.3.tgz", - "integrity": "sha512-4fCk79wshMdzMp2rH06qWrJE4iolqLhCUH+OiuIgU++RB0+94NlDL81atO7GX55uUKueo0txHNtvEyI6D7WdMw==", - "requires": { - "safer-buffer": ">= 2.1.2 < 3.0.0" - } - }, "ieee754": { "version": "1.2.1", "resolved": "https://registry.npmjs.org/ieee754/-/ieee754-1.2.1.tgz", - "integrity": "sha512-dcyqhDvX1C46lXZcVqCpK+FtMRQVdIMN6/Df5js2zouUsqG7I6sFxitIC+7KYK29KdXOLHdu9zL4sFnoVQnqaA==" + "integrity": "sha512-dcyqhDvX1C46lXZcVqCpK+FtMRQVdIMN6/Df5js2zouUsqG7I6sFxitIC+7KYK29KdXOLHdu9zL4sFnoVQnqaA==", + "dev": true }, "ignore": { "version": "5.2.0", @@ -14597,6 +13667,7 @@ "version": "1.0.6", "resolved": "https://registry.npmjs.org/inflight/-/inflight-1.0.6.tgz", "integrity": "sha1-Sb1jMdfQLQwJvJEKEHW6gWW1bfk=", + "dev": true, "requires": { "once": "^1.3.0", "wrappy": "1" @@ -14605,12 +13676,8 @@ "inherits": { "version": "2.0.4", "resolved": "https://registry.npmjs.org/inherits/-/inherits-2.0.4.tgz", - "integrity": "sha512-k/vGaX4/Yla3WzyMCvTQOXYeIHvqOKtnqBduzTHpzpQZzAskKMhZ2K+EnBiSM9zGSoIFeMpXKxa4dYeZIQqewQ==" - }, - "internmap": { - "version": "2.0.3", - "resolved": "https://registry.npmjs.org/internmap/-/internmap-2.0.3.tgz", - "integrity": "sha512-5Hh7Y1wQbvY5ooGgPbDaL5iYLAPzMTUrjMulskHLH6wnv/A+1q5rgEaiuqEjB+oxGXIVZs1FF+R/KPN3ZSQYYg==" + "integrity": "sha512-k/vGaX4/Yla3WzyMCvTQOXYeIHvqOKtnqBduzTHpzpQZzAskKMhZ2K+EnBiSM9zGSoIFeMpXKxa4dYeZIQqewQ==", + "dev": true }, "invariant": { "version": "2.2.4", @@ -14627,6 +13694,12 @@ "integrity": "sha512-MVBLKUTangM3EfRPFROhmWQQKRDsrgI83J8GS3jXy+OwYqiR2/aoWndYQ5416jLE3uaGgLH7ncme3X9y09gZ3g==", "dev": true }, + "is-arrayish": { + "version": "0.2.1", + "resolved": "https://registry.npmjs.org/is-arrayish/-/is-arrayish-0.2.1.tgz", + "integrity": "sha512-zz06S8t0ozoDXMG+ube26zeCTNXcKIPJZJi8hBrF4idCLms4CG9QtK7qBl1boi5ODzFpjswb5JPmHCbMpjaYzg==", + "dev": true + }, "is-binary-path": { "version": "2.1.0", "resolved": "https://registry.npmjs.org/is-binary-path/-/is-binary-path-2.1.0.tgz", @@ -14636,10 +13709,20 @@ "binary-extensions": "^2.0.0" } }, + "is-builtin-module": { + "version": "3.1.0", + "resolved": "https://registry.npmjs.org/is-builtin-module/-/is-builtin-module-3.1.0.tgz", + "integrity": "sha512-OV7JjAgOTfAFJmHZLvpSTb4qi0nIILDV1gWPYDnDJUTNFM5aGlRAhk4QcT8i7TuAleeEV5Fdkqn3t4mS+Q11fg==", + "dev": true, + "requires": { + "builtin-modules": "^3.0.0" + } + }, "is-core-module": { "version": "2.8.0", "resolved": "https://registry.npmjs.org/is-core-module/-/is-core-module-2.8.0.tgz", "integrity": "sha512-vd15qHsaqrRL7dtH6QNuy0ndJmRDrS9HAM1CAiSifNUFv4x1a0CCVsj18hJ1mShxIG6T2i1sO78MkP56r0nYRw==", + "dev": true, "requires": { "has": "^1.0.3" } @@ -14674,7 +13757,8 @@ "is-module": { "version": "1.0.0", "resolved": "https://registry.npmjs.org/is-module/-/is-module-1.0.0.tgz", - "integrity": "sha1-Mlj7afeMFNW4FdZkM2tM/7ZEFZE=" + "integrity": "sha1-Mlj7afeMFNW4FdZkM2tM/7ZEFZE=", + "dev": true }, "is-number": { "version": "7.0.0", @@ -14710,6 +13794,7 @@ "version": "1.2.1", "resolved": "https://registry.npmjs.org/is-reference/-/is-reference-1.2.1.tgz", "integrity": "sha512-U82MsXXiFIrjCK4otLT+o2NA2Cd2g5MLoOVXUZjIOhLurrRxpEXzI8O0KZHr3IjLvlAH1kTPYSuqer5T9ZVBKQ==", + "dev": true, "requires": { "@types/estree": "*" } @@ -14869,7 +13954,8 @@ "js-tokens": { "version": "4.0.0", "resolved": "https://registry.npmjs.org/js-tokens/-/js-tokens-4.0.0.tgz", - "integrity": "sha512-RdJUflcE3cUzKiMqQgsCu06FPu9UdIJO0beYbPhHN4k6apgJtifcoCtT9bcxOpYBtpD2kCM6Sbzg4CausW/PKQ==" + "integrity": "sha512-RdJUflcE3cUzKiMqQgsCu06FPu9UdIJO0beYbPhHN4k6apgJtifcoCtT9bcxOpYBtpD2kCM6Sbzg4CausW/PKQ==", + "dev": true }, "js-yaml": { "version": "3.14.1", @@ -14890,7 +13976,14 @@ "jsesc": { "version": "2.5.2", "resolved": "https://registry.npmjs.org/jsesc/-/jsesc-2.5.2.tgz", - "integrity": "sha512-OYu7XEzjkCQ3C5Ps3QIZsQfNpqoJyZZA99wd9aWd05NCtC5pWOkShK2mkL6HXQR6/Cy2lbNdPlZBpuQHXE63gA==" + "integrity": "sha512-OYu7XEzjkCQ3C5Ps3QIZsQfNpqoJyZZA99wd9aWd05NCtC5pWOkShK2mkL6HXQR6/Cy2lbNdPlZBpuQHXE63gA==", + "dev": true + }, + "json-parse-even-better-errors": { + "version": "2.3.1", + "resolved": "https://registry.npmjs.org/json-parse-even-better-errors/-/json-parse-even-better-errors-2.3.1.tgz", + "integrity": "sha512-xyFwyhro/JEof6Ghe2iz2NcXoj2sloNsWr/XsERDK/oiPCfaNhl5ONfp+jQdAZRQQ0IJWNzH9zIZF7li91kh2w==", + "dev": true }, "json-schema": { "version": "0.4.0", @@ -14917,12 +14010,10 @@ "dev": true }, "json5": { - "version": "2.2.0", - "resolved": "https://registry.npmjs.org/json5/-/json5-2.2.0.tgz", - "integrity": "sha512-f+8cldu7X/y7RAJurMEJmdoKXGB/X550w2Nr3tTbezL6RwEE/iMcm+tZnXeoZtKuOq6ft8+CqzEkrIgx1fPoQA==", - "requires": { - "minimist": "^1.2.5" - } + "version": "2.2.3", + "resolved": "https://registry.npmjs.org/json5/-/json5-2.2.3.tgz", + "integrity": "sha512-XmOWe7eyHYH14cLdVPoyg+GOH3rYX++KpzrylJwSW98t3Nk+U8XOl8FWKOgwtzdb8lXGf6zYwDUzeHMWfxasyg==", + "dev": true }, "jsprim": { "version": "1.4.2", @@ -14936,11 +14027,6 @@ "verror": "1.10.0" } }, - "khroma": { - "version": "2.0.0", - "resolved": "https://registry.npmjs.org/khroma/-/khroma-2.0.0.tgz", - "integrity": "sha512-2J8rDNlQWbtiNYThZRvmMv5yt44ZakX+Tz5ZIp/mN1pt4snn+m030Va5Z4v8xA0cQFDXBwO/8i42xL4QPsVk3g==" - }, "lcov-parse": { "version": "1.0.0", "resolved": "https://registry.npmjs.org/lcov-parse/-/lcov-parse-1.0.0.tgz", @@ -14957,6 +14043,12 @@ "type-check": "~0.4.0" } }, + "lines-and-columns": { + "version": "1.2.4", + "resolved": "https://registry.npmjs.org/lines-and-columns/-/lines-and-columns-1.2.4.tgz", + "integrity": "sha512-7ylylesZQ/PV29jhEDl3Ufjo6ZX7gCqJr5F7PKrqc93v7fzSymt1BpwEU8nAUXs8qzzvqhbjhK5QZg6Mt/HkBg==", + "dev": true + }, "load-json-file": { "version": "7.0.1", "resolved": "https://registry.npmjs.org/load-json-file/-/load-json-file-7.0.1.tgz", @@ -14967,6 +14059,7 @@ "version": "5.0.0", "resolved": "https://registry.npmjs.org/locate-path/-/locate-path-5.0.0.tgz", "integrity": "sha512-t7hw9pI+WvuwNJXwk5zVHpyhIqzg2qTlklJOf0mVxGSbe3Fp2VieZcduNYjaLDoy6p9uGpQEGWG87WpMKlNq8g==", + "dev": true, "requires": { "p-locate": "^4.1.0" } @@ -14974,7 +14067,8 @@ "lodash": { "version": "4.17.21", "resolved": "https://registry.npmjs.org/lodash/-/lodash-4.17.21.tgz", - "integrity": "sha512-v2kDEe57lecTulaDIuNTPy3Ry4gLGJ6Z1O3vE1krgXZNrsQ+LFTGHVxVjcXPs17LhbZVGedAJv8XZ1tvj5FvSg==" + "integrity": "sha512-v2kDEe57lecTulaDIuNTPy3Ry4gLGJ6Z1O3vE1krgXZNrsQ+LFTGHVxVjcXPs17LhbZVGedAJv8XZ1tvj5FvSg==", + "dev": true }, "lodash.debounce": { "version": "4.0.8", @@ -15027,6 +14121,7 @@ "version": "0.25.7", "resolved": "https://registry.npmjs.org/magic-string/-/magic-string-0.25.7.tgz", "integrity": "sha512-4CrMT5DOHTDk4HYDlzmwu4FVCcIYI8gauveasrdCu2IKIFOJ3f0v/8MDGJCDL9oD2ppz/Av1b0Nj345H9M+XIA==", + "dev": true, "requires": { "sourcemap-codec": "^1.4.4" } @@ -15091,22 +14186,6 @@ "integrity": "sha512-8q7VEgMJW4J8tcfVPy8g09NcQwZdbwFEqhe/WZkoIzjn/3TGDwtOCYtXGxA3O8tPzpczCCDgv+P2P5y00ZJOOg==", "dev": true }, - "mermaid": { - "version": "9.1.1", - "resolved": "https://registry.npmjs.org/mermaid/-/mermaid-9.1.1.tgz", - "integrity": "sha512-2RVD+WkzZ4VDyO9gQvQAuQ/ux2gLigJtKDTlbwjYqOR/NwsVzTSfGm/kx648/qWJsg6Sv04tE9BWCO8s6a+pFA==", - "requires": { - "@braintree/sanitize-url": "^6.0.0", - "d3": "^7.0.0", - "dagre": "^0.8.5", - "dagre-d3": "^0.6.4", - "dompurify": "2.3.6", - "graphlib": "^2.1.8", - "khroma": "^2.0.0", - "moment-mini": "^2.24.0", - "stylis": "^4.0.10" - } - }, "micromatch": { "version": "4.0.4", "resolved": "https://registry.npmjs.org/micromatch/-/micromatch-4.0.4.tgz", @@ -15149,9 +14228,10 @@ "dev": true }, "minimatch": { - "version": "3.0.4", - "resolved": "https://registry.npmjs.org/minimatch/-/minimatch-3.0.4.tgz", - "integrity": "sha512-yJHVQEhyqPLUTgt9B83PXu6W3rx4MvvHvSUvToogpwoGDOUQ+yDrR0HRot+yOCdCO7u4hX3pWft6kWBBcqh0UA==", + "version": "3.1.2", + "resolved": "https://registry.npmjs.org/minimatch/-/minimatch-3.1.2.tgz", + "integrity": "sha512-J7p63hRiAjw1NDEww1W7i37+ByIrOWO5XQQAzZ3VOcL0PNybwpfmV/N05zFAzwQ9USyEcX6t3UO+K5aqBQOIHw==", + "dev": true, "requires": { "brace-expansion": "^1.1.7" } @@ -15159,27 +14239,26 @@ "minimist": { "version": "1.2.6", "resolved": "https://registry.npmjs.org/minimist/-/minimist-1.2.6.tgz", - "integrity": "sha512-Jsjnk4bw3YJqYzbdyBiNsPWHPfO++UGG749Cxs6peCu5Xg4nrena6OVxOYxrQTqww0Jmwt+Ref8rggumkTLz9Q==" + "integrity": "sha512-Jsjnk4bw3YJqYzbdyBiNsPWHPfO++UGG749Cxs6peCu5Xg4nrena6OVxOYxrQTqww0Jmwt+Ref8rggumkTLz9Q==", + "dev": true + }, + "mitt": { + "version": "3.0.0", + "resolved": "https://registry.npmjs.org/mitt/-/mitt-3.0.0.tgz", + "integrity": "sha512-7dX2/10ITVyqh4aOSVI9gdape+t9l2/8QxHrFmUXu4EEUpdlxl6RudZUPZoc+zuY2hk1j7XxVroIVIan/pD/SQ==", + "dev": true }, "mkdirp-classic": { "version": "0.5.3", "resolved": "https://registry.npmjs.org/mkdirp-classic/-/mkdirp-classic-0.5.3.tgz", - "integrity": "sha512-gKLcREMhtuZRwRAfqP3RFW+TK4JqApVBtOIftVgjuABpAtpxhPGaDcfvbhNvD0B8iD1oUr/txX35NjcaY6Ns/A==" - }, - "moment-mini": { - "version": "2.24.0", - "resolved": "https://registry.npmjs.org/moment-mini/-/moment-mini-2.24.0.tgz", - "integrity": "sha512-9ARkWHBs+6YJIvrIp0Ik5tyTTtP9PoV0Ssu2Ocq5y9v8+NOOpWiRshAp8c4rZVWTOe+157on/5G+zj5pwIQFEQ==" + "integrity": "sha512-gKLcREMhtuZRwRAfqP3RFW+TK4JqApVBtOIftVgjuABpAtpxhPGaDcfvbhNvD0B8iD1oUr/txX35NjcaY6Ns/A==", + "dev": true }, "ms": { "version": "2.1.2", "resolved": "https://registry.npmjs.org/ms/-/ms-2.1.2.tgz", - "integrity": "sha512-sGkPx+VjMtmA6MX27oA4FBFELFCZZ4S4XqeGOXCv68tT+jb3vk/RyaKWP0PTKyWtmLSM0b+adUTEvbs1PEaH2w==" - }, - "nan": { - "version": "2.15.0", - "resolved": "https://registry.npmjs.org/nan/-/nan-2.15.0.tgz", - "integrity": "sha512-8ZtvEnA2c5aYCZYd1cvgdnU6cqwixRoYg70xPLWUws5ORTa/lnw+u4amixRS/Ac5U5mQVgp9pnlSUnbNWFaWZQ==" + "integrity": "sha512-sGkPx+VjMtmA6MX27oA4FBFELFCZZ4S4XqeGOXCv68tT+jb3vk/RyaKWP0PTKyWtmLSM0b+adUTEvbs1PEaH2w==", + "dev": true }, "natural-compare": { "version": "1.4.0", @@ -15197,6 +14276,7 @@ "version": "2.6.7", "resolved": "https://registry.npmjs.org/node-fetch/-/node-fetch-2.6.7.tgz", "integrity": "sha512-ZjMPFEfVx5j+y2yF35Kzx5sF7kDzxuDj6ziH4FFbOp87zKDZNx8yExJIb05OGF4Nlt9IHFIMBkRl41VdvcNdbQ==", + "dev": true, "requires": { "whatwg-url": "^5.0.0" } @@ -15207,6 +14287,11 @@ "integrity": "sha512-zLcTg6P4AbcHPq465ZMFNXx7XpKKJh+7kkN699NiQWisR2uWYOWNWqRHAmbnmKiL4e9aLSlmy5U7rEMUXV59+A==", "dev": true }, + "node-gyp-build-optional-packages": { + "version": "5.0.3", + "resolved": "https://registry.npmjs.org/node-gyp-build-optional-packages/-/node-gyp-build-optional-packages-5.0.3.tgz", + "integrity": "sha512-k75jcVzk5wnnc/FMxsf4udAoTEUv2jY3ycfdSd3yWu6Cnd1oee6/CfZJApyscA4FJOmdoixWwiwOyf16RzD5JA==" + }, "node-preload": { "version": "0.2.1", "resolved": "https://registry.npmjs.org/node-preload/-/node-preload-0.2.1.tgz", @@ -15219,7 +14304,8 @@ "node-releases": { "version": "2.0.2", "resolved": "https://registry.npmjs.org/node-releases/-/node-releases-2.0.2.tgz", - "integrity": "sha512-XxYDdcQ6eKqp/YjI+tb2C5WM2LgjnZrfYg4vgQt49EK268b6gYCHsBLrK2qvJo4FmCtqmKezb0WZFK4fkrZNsg==" + "integrity": "sha512-XxYDdcQ6eKqp/YjI+tb2C5WM2LgjnZrfYg4vgQt49EK268b6gYCHsBLrK2qvJo4FmCtqmKezb0WZFK4fkrZNsg==", + "dev": true }, "nofilter": { "version": "3.1.0", @@ -15373,6 +14459,7 @@ "version": "1.4.0", "resolved": "https://registry.npmjs.org/once/-/once-1.4.0.tgz", "integrity": "sha1-WDsap3WWHUsROsF9nFC6753Xa9E=", + "dev": true, "requires": { "wrappy": "1" } @@ -15410,6 +14497,7 @@ "version": "2.3.0", "resolved": "https://registry.npmjs.org/p-limit/-/p-limit-2.3.0.tgz", "integrity": "sha512-//88mFWSJx8lxCzwdAABTJL2MyWB12+eIY7MDL2SqLmAkeKU9qxRvWuSyTjm3FUmpBEMuFfckAIqEaVGUDxb6w==", + "dev": true, "requires": { "p-try": "^2.0.0" } @@ -15418,6 +14506,7 @@ "version": "4.1.0", "resolved": "https://registry.npmjs.org/p-locate/-/p-locate-4.1.0.tgz", "integrity": "sha512-R79ZZ/0wAxKGu3oYMlz8jy/kbhsNrS7SKZ7PxEHBgJ5+F2mtFW2fK2cOtBh1cHYkQsbzFV7I+EoRKe6Yt0oK7A==", + "dev": true, "requires": { "p-limit": "^2.2.0" } @@ -15473,7 +14562,8 @@ "p-try": { "version": "2.2.0", "resolved": "https://registry.npmjs.org/p-try/-/p-try-2.2.0.tgz", - "integrity": "sha512-R4nPAVTAU0B9D35/Gk3uJf/7XYbQcyohSKdvAxIRSNghFl4e71hVoGnBNQz9cWaXxO2I10KTC+3jMdvvoKw6dQ==" + "integrity": "sha512-R4nPAVTAU0B9D35/Gk3uJf/7XYbQcyohSKdvAxIRSNghFl4e71hVoGnBNQz9cWaXxO2I10KTC+3jMdvvoKw6dQ==", + "dev": true }, "package-hash": { "version": "4.0.0", @@ -15504,6 +14594,18 @@ } } }, + "parse-json": { + "version": "5.2.0", + "resolved": "https://registry.npmjs.org/parse-json/-/parse-json-5.2.0.tgz", + "integrity": "sha512-ayCKvm/phCGxOkYRSCM82iDwct8/EonSEgCSxWxD7ve6jHggsFl4fZVQBPRNgQoKiuV/odhFrGzQXZwbifC8Rg==", + "dev": true, + "requires": { + "@babel/code-frame": "^7.0.0", + "error-ex": "^1.3.1", + "json-parse-even-better-errors": "^2.3.0", + "lines-and-columns": "^1.1.6" + } + }, "parse-ms": { "version": "2.1.0", "resolved": "https://registry.npmjs.org/parse-ms/-/parse-ms-2.1.0.tgz", @@ -15513,12 +14615,14 @@ "path-exists": { "version": "4.0.0", "resolved": "https://registry.npmjs.org/path-exists/-/path-exists-4.0.0.tgz", - "integrity": "sha512-ak9Qy5Q7jYb2Wwcey5Fpvg2KoAc/ZIhLSLOSBmRmygPsGwkVVt0fZa0qrtMz+m6tJTAHfZQ8FnmB4MG4LWy7/w==" + "integrity": "sha512-ak9Qy5Q7jYb2Wwcey5Fpvg2KoAc/ZIhLSLOSBmRmygPsGwkVVt0fZa0qrtMz+m6tJTAHfZQ8FnmB4MG4LWy7/w==", + "dev": true }, "path-is-absolute": { "version": "1.0.1", "resolved": "https://registry.npmjs.org/path-is-absolute/-/path-is-absolute-1.0.1.tgz", - "integrity": "sha1-F0uSaHNVNP+8es5r9TpanhtcX18=" + "integrity": "sha1-F0uSaHNVNP+8es5r9TpanhtcX18=", + "dev": true }, "path-key": { "version": "3.1.1", @@ -15529,7 +14633,8 @@ "path-parse": { "version": "1.0.7", "resolved": "https://registry.npmjs.org/path-parse/-/path-parse-1.0.7.tgz", - "integrity": "sha512-LDJzPVEEEPR+y48z93A0Ed0yXb8pAByGWo/k5YYdYgpY2/2EsOsksJrq7lOHxryrVOn1ejG6oAp8ahvOIQD8sw==" + "integrity": "sha512-LDJzPVEEEPR+y48z93A0Ed0yXb8pAByGWo/k5YYdYgpY2/2EsOsksJrq7lOHxryrVOn1ejG6oAp8ahvOIQD8sw==", + "dev": true }, "path-type": { "version": "4.0.0", @@ -15540,7 +14645,8 @@ "pend": { "version": "1.2.0", "resolved": "https://registry.npmjs.org/pend/-/pend-1.2.0.tgz", - "integrity": "sha1-elfrVQpng/kRUzH89GY9XI4AelA=" + "integrity": "sha512-F3asv42UuXchdzt+xXqfW1OGlVBe+mxa2mqI0pg5yAHZPvFmY3Y6drSf/GQ1A86WgWEN9Kzh/WrgKa6iGcHXLg==", + "dev": true }, "performance-now": { "version": "2.1.0", @@ -15551,12 +14657,14 @@ "picocolors": { "version": "1.0.0", "resolved": "https://registry.npmjs.org/picocolors/-/picocolors-1.0.0.tgz", - "integrity": "sha512-1fygroTLlHu66zi26VoTDv8yRgm0Fccecssto+MhsZ0D/DGW2sm8E8AjW7NU5VVTRt5GxbeZ5qBuJr+HyLYkjQ==" + "integrity": "sha512-1fygroTLlHu66zi26VoTDv8yRgm0Fccecssto+MhsZ0D/DGW2sm8E8AjW7NU5VVTRt5GxbeZ5qBuJr+HyLYkjQ==", + "dev": true }, "picomatch": { "version": "2.3.0", "resolved": "https://registry.npmjs.org/picomatch/-/picomatch-2.3.0.tgz", - "integrity": "sha512-lY1Q/PiJGC2zOv/z391WOTD+Z02bCgsFfvxoXXf6h7kv9o+WmsmzYqrAwY63sNgOxE4xEdq0WyUnXfKeBrSvYw==" + "integrity": "sha512-lY1Q/PiJGC2zOv/z391WOTD+Z02bCgsFfvxoXXf6h7kv9o+WmsmzYqrAwY63sNgOxE4xEdq0WyUnXfKeBrSvYw==", + "dev": true }, "pkg-conf": { "version": "4.0.0", @@ -15617,6 +14725,7 @@ "version": "4.2.0", "resolved": "https://registry.npmjs.org/pkg-dir/-/pkg-dir-4.2.0.tgz", "integrity": "sha512-HRDzbaKjC+AOWVXxAU/x54COGeIv9eb+6CkDSQoNTt4XyWoIJvuPsXizxu/Fr23EiekbtZwmh1IcIG/l/a10GQ==", + "dev": true, "requires": { "find-up": "^4.0.0" } @@ -15731,12 +14840,14 @@ "progress": { "version": "2.0.3", "resolved": "https://registry.npmjs.org/progress/-/progress-2.0.3.tgz", - "integrity": "sha512-7PiHtLll5LdnKIMw100I+8xJXR5gW2QwWYkT6iJva0bXitZKa/XMrSbdmg3r2Xnaidz9Qumd0VPaMrZlF9V9sA==" + "integrity": "sha512-7PiHtLll5LdnKIMw100I+8xJXR5gW2QwWYkT6iJva0bXitZKa/XMrSbdmg3r2Xnaidz9Qumd0VPaMrZlF9V9sA==", + "dev": true }, "proxy-from-env": { "version": "1.1.0", "resolved": "https://registry.npmjs.org/proxy-from-env/-/proxy-from-env-1.1.0.tgz", - "integrity": "sha512-D+zkORCbA9f1tdWRK0RaCR3GPv50cMxcrz4X8k5LTSUD1Dkw47mKJEZQNunItRTkWwgtaUSo1RVFRIG9ZXiFYg==" + "integrity": "sha512-D+zkORCbA9f1tdWRK0RaCR3GPv50cMxcrz4X8k5LTSUD1Dkw47mKJEZQNunItRTkWwgtaUSo1RVFRIG9ZXiFYg==", + "dev": true }, "psl": { "version": "1.8.0", @@ -15748,6 +14859,7 @@ "version": "3.0.0", "resolved": "https://registry.npmjs.org/pump/-/pump-3.0.0.tgz", "integrity": "sha512-LwZy+p3SFs1Pytd/jYct4wpv49HiYCqd9Rlc5ZVdk0V+8Yzv6jR5Blk3TRmPL1ft69TxP0IMZGJ+WPFU2BFhww==", + "dev": true, "requires": { "end-of-stream": "^1.1.0", "once": "^1.3.1" @@ -15760,38 +14872,41 @@ "dev": true }, "puppeteer": { - "version": "13.3.1", - "resolved": "https://registry.npmjs.org/puppeteer/-/puppeteer-13.3.1.tgz", - "integrity": "sha512-nYTR+LP1amGs5BALSoGLbw+QxQZS//7HsKKSrxaMAIic0AE3iIr10E7gcZEsP/4JcxBfgNyT3SPUyEOS6Wb0fQ==", + "version": "19.8.3", + "resolved": "https://registry.npmjs.org/puppeteer/-/puppeteer-19.8.3.tgz", + "integrity": "sha512-sKtt3aDRAcWuemeEtRaJqWKRlQ72OyKVcxX3Ur3KyFUEEzb2sEHpFc2mBlTMPmzOiNg5dB4dnxfelV9/xypJrA==", + "dev": true, + "requires": { + "@puppeteer/browsers": "0.3.2", + "cosmiconfig": "8.1.3", + "https-proxy-agent": "5.0.1", + "progress": "2.0.3", + "proxy-from-env": "1.1.0", + "puppeteer-core": "19.8.3" + } + }, + "puppeteer-core": { + "version": "19.8.3", + "resolved": "https://registry.npmjs.org/puppeteer-core/-/puppeteer-core-19.8.3.tgz", + "integrity": "sha512-+gPT43K3trUIr+7+tNjCg95vMgM9RkFIeeyck3SXUTBpGkrf6sxfWckncqY8MnzHfRcyapvztKNmqvJ+Ngukyg==", + "dev": true, "requires": { + "chromium-bidi": "0.4.6", "cross-fetch": "3.1.5", - "debug": "4.3.3", - "devtools-protocol": "0.0.960912", + "debug": "4.3.4", + "devtools-protocol": "0.0.1107588", "extract-zip": "2.0.1", - "https-proxy-agent": "5.0.0", - "pkg-dir": "4.2.0", - "progress": "2.0.3", + "https-proxy-agent": "5.0.1", "proxy-from-env": "1.1.0", - "rimraf": "3.0.2", "tar-fs": "2.1.1", "unbzip2-stream": "1.4.3", - "ws": "8.5.0" - }, - "dependencies": { - "debug": { - "version": "4.3.3", - "resolved": "https://registry.npmjs.org/debug/-/debug-4.3.3.tgz", - "integrity": "sha512-/zxw5+vh1Tfv+4Qn7a5nsbcJKPaSvCDhojn6FEl9vupwK2VCSDtEiEtqr8DFtzYFOdz63LBkxec7DYuc2jon6Q==", - "requires": { - "ms": "2.1.2" - } - } + "ws": "8.13.0" } }, "qs": { - "version": "6.5.2", - "resolved": "https://registry.npmjs.org/qs/-/qs-6.5.2.tgz", - "integrity": "sha512-N5ZAX4/LxJmF+7wN74pUD6qAh9/wnvdQcjq9TZjevvXzSUo7bfmw91saqMjzGS2xq91/odN2dW/WOl7qQHNDGA==", + "version": "6.5.3", + "resolved": "https://registry.npmjs.org/qs/-/qs-6.5.3.tgz", + "integrity": "sha512-qxXIEh4pCGfHICj1mAJQ2/2XVZkjCDTcEgfoSQxc/fYivUZxTkk7L3bDBJSoNrEzXI17oUO5Dp07ktqE5KzczA==", "dev": true }, "queue-microtask": { @@ -15801,9 +14916,10 @@ "dev": true }, "readable-stream": { - "version": "3.6.0", - "resolved": "https://registry.npmjs.org/readable-stream/-/readable-stream-3.6.0.tgz", - "integrity": "sha512-BViHy7LKeTz4oNnkcLJ+lVSL6vpiFeX6/d3oSH8zCW7UxP2onchk+vTGB143xuFjHS3deTgkKoXXymXqymiIdA==", + "version": "3.6.2", + "resolved": "https://registry.npmjs.org/readable-stream/-/readable-stream-3.6.2.tgz", + "integrity": "sha512-9u/sniCrY3D5WdsERHzHE4G2YCXqoG5FTHUiCC4SIbr6XcLZBY05ya9EKjYek9O5xOAwjGq+1JdGBAS7Q9ScoA==", + "dev": true, "requires": { "inherits": "^2.0.3", "string_decoder": "^1.1.1", @@ -15945,6 +15061,7 @@ "version": "1.20.0", "resolved": "https://registry.npmjs.org/resolve/-/resolve-1.20.0.tgz", "integrity": "sha512-wENBPt4ySzg4ybFQW2TT1zMQucPK95HSh/nq2CFTZVOGut2+pQvSsgtda4d26YrYcr067wjbmzOG8byDPBX63A==", + "dev": true, "requires": { "is-core-module": "^2.2.0", "path-parse": "^1.0.6" @@ -15975,19 +15092,16 @@ "version": "3.0.2", "resolved": "https://registry.npmjs.org/rimraf/-/rimraf-3.0.2.tgz", "integrity": "sha512-JZkJMZkAGFFPP2YqXZXPbMlMBgsxzE8ILs4lMIX/2o0L9UBw9O/Y3o6wFw/i9YLapcUJWwqbi3kdxIPdC62TIA==", + "dev": true, "requires": { "glob": "^7.1.3" } }, - "robust-predicates": { - "version": "3.0.1", - "resolved": "https://registry.npmjs.org/robust-predicates/-/robust-predicates-3.0.1.tgz", - "integrity": "sha512-ndEIpszUHiG4HtDsQLeIuMvRsDnn8c8rYStabochtUeCvfuvNptb5TUbVD68LRAILPX7p9nqQGh4xJgn3EHS/g==" - }, "rollup": { - "version": "2.67.2", - "resolved": "https://registry.npmjs.org/rollup/-/rollup-2.67.2.tgz", - "integrity": "sha512-hoEiBWwZtf1QdK3jZIq59L0FJj4Fiv4RplCO4pvCRC86qsoFurWB4hKQIjoRf3WvJmk5UZ9b0y5ton+62fC7Tw==", + "version": "2.75.6", + "resolved": "https://registry.npmjs.org/rollup/-/rollup-2.75.6.tgz", + "integrity": "sha512-OEf0TgpC9vU6WGROJIk1JA3LR5vk/yvqlzxqdrE2CzzXnqKXNzbAwlWUXis8RS3ZPe7LAq+YUxsRa0l3r27MLA==", + "dev": true, "requires": { "fsevents": "~2.3.2" } @@ -16067,25 +15181,23 @@ "queue-microtask": "^1.2.2" } }, - "rw": { - "version": "1.3.3", - "resolved": "https://registry.npmjs.org/rw/-/rw-1.3.3.tgz", - "integrity": "sha1-P4Yt+pGrdmsUiF700BEkv9oHT7Q=" - }, "safe-buffer": { "version": "5.1.2", "resolved": "https://registry.npmjs.org/safe-buffer/-/safe-buffer-5.1.2.tgz", - "integrity": "sha512-Gd2UZBJDkXlY7GbJxfsE8/nvKkUEU1G38c1siN6QP6a9PT9MmHB8GnpscSmMJSoF8LOIrt8ud/wPtojys4G6+g==" + "integrity": "sha512-Gd2UZBJDkXlY7GbJxfsE8/nvKkUEU1G38c1siN6QP6a9PT9MmHB8GnpscSmMJSoF8LOIrt8ud/wPtojys4G6+g==", + "dev": true }, "safer-buffer": { "version": "2.1.2", "resolved": "https://registry.npmjs.org/safer-buffer/-/safer-buffer-2.1.2.tgz", - "integrity": "sha512-YZo3K82SD7Riyi0E1EQPojLz7kpepnSQI9IyPbHHg1XXXevb5dJI7tpyN2ADxGcQbHG7vcyRHk0cbwqcQriUtg==" + "integrity": "sha512-YZo3K82SD7Riyi0E1EQPojLz7kpepnSQI9IyPbHHg1XXXevb5dJI7tpyN2ADxGcQbHG7vcyRHk0cbwqcQriUtg==", + "dev": true }, "semver": { "version": "6.3.0", "resolved": "https://registry.npmjs.org/semver/-/semver-6.3.0.tgz", - "integrity": "sha512-b39TBaTSfV6yBrapU89p5fKekE2m/NwnDocOVruQFS1/veMgdzuPcnOM34M6CwxW8jH/lxEa5rBoDeUwu5HHTw==" + "integrity": "sha512-b39TBaTSfV6yBrapU89p5fKekE2m/NwnDocOVruQFS1/veMgdzuPcnOM34M6CwxW8jH/lxEa5rBoDeUwu5HHTw==", + "dev": true }, "serialize-error": { "version": "7.0.1", @@ -16164,12 +15276,14 @@ "source-map": { "version": "0.5.7", "resolved": "https://registry.npmjs.org/source-map/-/source-map-0.5.7.tgz", - "integrity": "sha1-igOdLRAh0i0eoUyA2OpGi6LvP8w=" + "integrity": "sha1-igOdLRAh0i0eoUyA2OpGi6LvP8w=", + "dev": true }, "sourcemap-codec": { "version": "1.4.8", "resolved": "https://registry.npmjs.org/sourcemap-codec/-/sourcemap-codec-1.4.8.tgz", - "integrity": "sha512-9NykojV5Uih4lgo5So5dtw+f0JgJX30KCNI8gwhz2J9A15wD0Ml6tjHKwf6fTSa6fAdVBdZeNOs9eJ71qCk8vA==" + "integrity": "sha512-9NykojV5Uih4lgo5So5dtw+f0JgJX30KCNI8gwhz2J9A15wD0Ml6tjHKwf6fTSa6fAdVBdZeNOs9eJ71qCk8vA==", + "dev": true }, "spawn-wrap": { "version": "2.0.0", @@ -16229,6 +15343,7 @@ "version": "1.3.0", "resolved": "https://registry.npmjs.org/string_decoder/-/string_decoder-1.3.0.tgz", "integrity": "sha512-hkRX8U1WjJFd8LsDJ2yQ/wWWxaopEsABU1XfkM8A+j0+85JAGppt16cr1Whg6KIbb4okU6Mql6BOj+uup/wKeA==", + "dev": true, "requires": { "safe-buffer": "~5.2.0" }, @@ -16236,7 +15351,8 @@ "safe-buffer": { "version": "5.2.1", "resolved": "https://registry.npmjs.org/safe-buffer/-/safe-buffer-5.2.1.tgz", - "integrity": "sha512-rp3So07KcdmmKbGvgaNxQSJr7bGVSVk5S9Eq1F+ppbRo70+YeaDxkw5Dd8NPN+GD6bjnYm2VuPuCXmpuYvmCXQ==" + "integrity": "sha512-rp3So07KcdmmKbGvgaNxQSJr7bGVSVk5S9Eq1F+ppbRo70+YeaDxkw5Dd8NPN+GD6bjnYm2VuPuCXmpuYvmCXQ==", + "dev": true } } }, @@ -16272,11 +15388,6 @@ "integrity": "sha512-6fPc+R4ihwqP6N/aIv2f1gMH8lOVtWQHoqC4yK6oSDVVocumAsfCqjkXnqiYMhmMwS/mEHLp7Vehlt3ql6lEig==", "dev": true }, - "stylis": { - "version": "4.1.1", - "resolved": "https://registry.npmjs.org/stylis/-/stylis-4.1.1.tgz", - "integrity": "sha512-lVrM/bNdhVX2OgBFNa2YJ9Lxj7kPzylieHd3TNjuGE0Re9JB7joL5VUKOVH1kdNNJTgGPpT8hmwIAPLaSyEVFQ==" - }, "supertap": { "version": "2.0.0", "resolved": "https://registry.npmjs.org/supertap/-/supertap-2.0.0.tgz", @@ -16302,6 +15413,7 @@ "version": "5.5.0", "resolved": "https://registry.npmjs.org/supports-color/-/supports-color-5.5.0.tgz", "integrity": "sha512-QjVjwdXIt408MIiAqCX4oUKsgU2EqAGzs2Ppkm4aQYbjm+ZEWEcW4SfFNTr4uMNZma0ey4f5lgLrkB0aX0QMow==", + "dev": true, "requires": { "has-flag": "^3.0.0" } @@ -16310,6 +15422,7 @@ "version": "2.1.1", "resolved": "https://registry.npmjs.org/tar-fs/-/tar-fs-2.1.1.tgz", "integrity": "sha512-V0r2Y9scmbDRLCNex/+hYzvp/zyYjvFbHPNgVTKfQvVrb6guiE/fxP+XblDNR011utopbkex2nM4dHNV6GDsng==", + "dev": true, "requires": { "chownr": "^1.1.1", "mkdirp-classic": "^0.5.2", @@ -16321,6 +15434,7 @@ "version": "2.2.0", "resolved": "https://registry.npmjs.org/tar-stream/-/tar-stream-2.2.0.tgz", "integrity": "sha512-ujeqbceABgwMZxEJnk2HDY2DlnUZ+9oEcb1KzTVfYHio0UE6dG71n60d8D2I4qNvleWrrXpmjpt7vZeF1LnMZQ==", + "dev": true, "requires": { "bl": "^4.0.3", "end-of-stream": "^1.4.1", @@ -16355,7 +15469,8 @@ "through": { "version": "2.3.8", "resolved": "https://registry.npmjs.org/through/-/through-2.3.8.tgz", - "integrity": "sha1-DdTJ/6q8NXlgsbckEV1+Doai4fU=" + "integrity": "sha512-w89qg7PI8wAdvX60bMDP+bFoD5Dvhm9oLheFp5O4a2QF0cSBGsBX4qZmadPMvVqlLJBBci+WqGGOAPvcDeNSVg==", + "dev": true }, "time-zone": { "version": "1.0.0", @@ -16366,7 +15481,8 @@ "to-fast-properties": { "version": "2.0.0", "resolved": "https://registry.npmjs.org/to-fast-properties/-/to-fast-properties-2.0.0.tgz", - "integrity": "sha1-3F5pjL0HkmW8c+A3doGk5Og/YW4=" + "integrity": "sha1-3F5pjL0HkmW8c+A3doGk5Og/YW4=", + "dev": true }, "to-regex-range": { "version": "5.0.1", @@ -16390,7 +15506,8 @@ "tr46": { "version": "0.0.3", "resolved": "https://registry.npmjs.org/tr46/-/tr46-0.0.3.tgz", - "integrity": "sha1-gYT9NH2snNwYWZLzpmIuFLnZq2o=" + "integrity": "sha512-N3WMsuqV66lT30CrXNbEjx4GEwlow3v6rr4mCcv6prnfwhS01rkgyFdjPNBYd9br7LpXV1+Emh01fHnq2Gdgrw==", + "dev": true }, "tunnel-agent": { "version": "0.6.0", @@ -16441,6 +15558,7 @@ "version": "1.4.3", "resolved": "https://registry.npmjs.org/unbzip2-stream/-/unbzip2-stream-1.4.3.tgz", "integrity": "sha512-mlExGW4w71ebDJviH16lQLtZS32VKqsSfk80GCfUlwT/4/hNRFsoscrF/c++9xinkMzECL1uL9DDwXqFWkruPg==", + "dev": true, "requires": { "buffer": "^5.2.1", "through": "^2.3.8" @@ -16491,7 +15609,8 @@ "util-deprecate": { "version": "1.0.2", "resolved": "https://registry.npmjs.org/util-deprecate/-/util-deprecate-1.0.2.tgz", - "integrity": "sha1-RQ1Nyfpw3nMnYvvS1KKJgUGaDM8=" + "integrity": "sha512-EPD5q1uXyFxJpCrLnCc1nHnq3gOa6DZBocAIiI2TaSCA7VCJ1UJDMagCzIkXNsUYfD1daK//LTEQ8xiIbrHtcw==", + "dev": true }, "uuid": { "version": "3.4.0", @@ -16544,7 +15663,8 @@ "webidl-conversions": { "version": "3.0.1", "resolved": "https://registry.npmjs.org/webidl-conversions/-/webidl-conversions-3.0.1.tgz", - "integrity": "sha1-JFNCdeKnvGvnvIZhHMFq4KVlSHE=" + "integrity": "sha512-2JAn3z8AR6rjK8Sm8orRC0h/bcl/DqL7tRPdGZ4I1CjdF+EaMLmYxBHyXuKL849eucPFhvBoxMsflfOb8kxaeQ==", + "dev": true }, "well-known-symbols": { "version": "2.0.0", @@ -16555,7 +15675,8 @@ "whatwg-url": { "version": "5.0.0", "resolved": "https://registry.npmjs.org/whatwg-url/-/whatwg-url-5.0.0.tgz", - "integrity": "sha1-lmRU6HZUYuN2RNNib2dCzotwll0=", + "integrity": "sha512-saE57nupxk6v3HY35+jzBwYa0rKSy0XR8JSxZPwgLr7ys0IBzhGviA1/TUGJLmSVqs8pb9AnvICXEuOHLprYTw==", + "dev": true, "requires": { "tr46": "~0.0.3", "webidl-conversions": "^3.0.0" @@ -16607,7 +15728,8 @@ "wrappy": { "version": "1.0.2", "resolved": "https://registry.npmjs.org/wrappy/-/wrappy-1.0.2.tgz", - "integrity": "sha1-tSQ9jz7BqjXxNkYFvA0QNuMKtp8=" + "integrity": "sha1-tSQ9jz7BqjXxNkYFvA0QNuMKtp8=", + "dev": true }, "write-file-atomic": { "version": "3.0.3", @@ -16622,9 +15744,10 @@ } }, "ws": { - "version": "8.5.0", - "resolved": "https://registry.npmjs.org/ws/-/ws-8.5.0.tgz", - "integrity": "sha512-BWX0SWVgLPzYwF8lTzEy1egjhS4S4OEAHfsO8o65WOVsrnSRGaSiUaa9e0ggGlkMTtBlmOpEXiie9RUcBO86qg==", + "version": "8.13.0", + "resolved": "https://registry.npmjs.org/ws/-/ws-8.13.0.tgz", + "integrity": "sha512-x9vcZYTrFPC7aSIbj7sRCYo7L/Xb8Iy+pW0ng0wt2vCJv7M9HOMy0UoN3rr+IFC7hb7vXoqS+P9ktyLLLhO+LA==", + "dev": true, "requires": {} }, "y18n": { @@ -16640,30 +15763,44 @@ "dev": true }, "yargs": { - "version": "17.3.1", - "resolved": "https://registry.npmjs.org/yargs/-/yargs-17.3.1.tgz", - "integrity": "sha512-WUANQeVgjLbNsEmGk20f+nlHgOqzRFpiGWVaBrYGYIGANIIu3lWjoyi0fNlFmJkvfhCZ6BXINe7/W2O2bV4iaA==", + "version": "17.7.1", + "resolved": "https://registry.npmjs.org/yargs/-/yargs-17.7.1.tgz", + "integrity": "sha512-cwiTb08Xuv5fqF4AovYacTFNxk62th7LKJ6BL9IGUpTJrWoU7/7WdQGTP2SjKf1dUNBGzDd28p/Yfs/GI6JrLw==", "dev": true, "requires": { - "cliui": "^7.0.2", + "cliui": "^8.0.1", "escalade": "^3.1.1", "get-caller-file": "^2.0.5", "require-directory": "^2.1.1", "string-width": "^4.2.3", "y18n": "^5.0.5", - "yargs-parser": "^21.0.0" + "yargs-parser": "^21.1.1" + }, + "dependencies": { + "cliui": { + "version": "8.0.1", + "resolved": "https://registry.npmjs.org/cliui/-/cliui-8.0.1.tgz", + "integrity": "sha512-BSeNnyus75C4//NQ9gQt1/csTXyo/8Sb+afLAkzAptFuMsod9HFokGNudZpi/oQV73hnVK+sR+5PVRMd+Dr7YQ==", + "dev": true, + "requires": { + "string-width": "^4.2.0", + "strip-ansi": "^6.0.1", + "wrap-ansi": "^7.0.0" + } + } } }, "yargs-parser": { - "version": "21.0.0", - "resolved": "https://registry.npmjs.org/yargs-parser/-/yargs-parser-21.0.0.tgz", - "integrity": "sha512-z9kApYUOCwoeZ78rfRYYWdiU/iNL6mwwYlkkZfJoyMR1xps+NEBX5X7XmRpxkZHhXJ6+Ey00IwKxBBSW9FIjyA==", + "version": "21.1.1", + "resolved": "https://registry.npmjs.org/yargs-parser/-/yargs-parser-21.1.1.tgz", + "integrity": "sha512-tVpsJW7DdjecAiFpbIB1e3qxIQsE6NoPc5/eTdrbbIC4h0LVsWhnoa3g+m2HclBIujHzsxZ4VJVA+GUuc2/LBw==", "dev": true }, "yauzl": { "version": "2.10.0", "resolved": "https://registry.npmjs.org/yauzl/-/yauzl-2.10.0.tgz", - "integrity": "sha1-x+sXyT4RLLEIb6bY5R+wZnt5pfk=", + "integrity": "sha512-p4a9I6X6nu6IhoGmBqAcbJy1mlC4j27vEPZX9F4L4/vZT3Lyq1VkFHw/V/PUcB9Buo+DG3iHkT0x3Qya58zc3g==", + "dev": true, "requires": { "buffer-crc32": "~0.2.3", "fd-slicer": "~1.1.0" diff --git a/package.json b/package.json index b47448342..6d374a3f2 100644 --- a/package.json +++ b/package.json @@ -8,7 +8,7 @@ "scripts": { "test": "c8 ava --timeout 10m --verbose tests/test.js", "test-update": "c8 ava --update-snapshots --timeout 10m --verbose tests/test.js", - "coverage": "c8 report --reporter=text-lcov | coveralls" + "coverage": "c8 report --reporter=lcov --reporter=text" }, "repository": { "type": "git", @@ -94,7 +94,7 @@ "no-return-assign": "error", "no-self-compare": "error", "no-throw-literal": "error", - "no-unused-labels": "error", + "no-unused-labels": 0, "no-useless-call": "error", "no-useless-escape": "error", "no-void": "error", @@ -221,6 +221,10 @@ "@babel/preset-env": "^7.16.11", "@babel/runtime": "^7.17.2", "@babel/runtime-corejs2": "^7.17.2", + "@mermaid-js/mermaid-cli": "^10.0.2", + "@rollup/plugin-babel": "^5.3.1", + "@rollup/plugin-commonjs": "^22.0.0", + "@rollup/plugin-node-resolve": "^13.3.0", "acorn": "^8.7.0", "ava": "^4.0.1", "babel-preset-env": "^1.7.0", @@ -228,6 +232,7 @@ "babel-preset-stage-0": "^6.24.1", "benchmark": "^2.1.4", "c8": "^7.11.0", + "compare-versions": "^6.1.0", "coveralls": "^3.1.1", "eslint": "^8.8.0", "microtime": "^3.0.0", @@ -245,13 +250,9 @@ }, "dependencies": { "@jcubic/lily": "^0.3.0", - "@mermaid-js/mermaid-cli": "^9.0.3", - "@rollup/plugin-babel": "^5.3.0", - "@rollup/plugin-commonjs": "^21.0.1", - "@rollup/plugin-node-resolve": "^13.1.3", "bn.js": "^5.2.0", - "cbor-extract": "^1.0.0", - "cbor-x": "^0.8.3", + "cbor-extract": "^2.1.1", + "cbor-x": "^1.5.4", "lzjb-pack": "^0.2.0", "prism-cli": "^0.5.3", "prismjs": "^1.27.0", diff --git a/spec/lips.spec.js b/spec/lips.spec.js index 90f594af4..db18c8312 100644 --- a/spec/lips.spec.js +++ b/spec/lips.spec.js @@ -121,7 +121,7 @@ describe('scope', function() { expect(result).toEqual([undefined, LNumber(30)]); }); }); - it('should evalute lambda', function() { + it('should evaluate lambda', function() { var code = `(define x 10) ((let ((x 20)) (lambda () x)))`; return exec(code).then((result) => { @@ -145,7 +145,7 @@ describe('scope', function() { expect(result).toEqual([undefined, LNumber(200)]); }); }); - it('should evalute simple lambda', function() { + it('should evaluate simple lambda', function() { var code = `(define y 20) (define (foo x) (* x y)) ((lambda (y) (foo 10)) 2)`; @@ -153,7 +153,7 @@ describe('scope', function() { expect(result).toEqual([undefined, undefined, LNumber(20)]); }); }); - it('should evalute let over lambda', function() { + it('should evaluate let over lambda', function() { var code = `(define y 10) ((let ((y 2)) (lambda () y)))`; return exec(code, true).then(result => { diff --git a/src/lips.js b/src/lips.js index 243938c9e..5d68f1d28 100644 --- a/src/lips.js +++ b/src/lips.js @@ -8,12 +8,12 @@ * * <https://lips.js.org> * - * LIPS is Pretty Simple - Scheme based Powerful LISP in JavaScript + * LIPS is Pretty Simple - Scheme based powerful LISP in JavaScript * * Copyright (c) 2018-2021 Jakub T. Jankiewicz <https://jcubic.pl/me> * Released under the MIT license * - * includes: + * Includes: * * ucs2decode function from Punycode v 2.1.1 by Mathias Bynens MIT License * @@ -146,7 +146,7 @@ function is_debug() { } /* eslint-enable */ /* eslint-disable max-len */ -// functions generate regexes to match number rational, integer, complex, complex+ratioanl +// functions generate regexes to match number rational, integer, complex, complex+rational function num_mnemicic_re(mnemonic) { return mnemonic ? `(?:#${mnemonic}(?:#[ie])?|#[ie]#${mnemonic})` : '(?:#[ie])?'; } @@ -261,7 +261,7 @@ function ucs2decode(string) { const character_symbols = Object.keys(characters).join('|'); const char_sre_re = `#\\\\(?:x[0-9a-f]+|${character_symbols}|[\\s\\S])`; const char_re = new RegExp(`^${char_sre_re}$`, 'i'); -// complex with (int) (float) (rational) +// Complex with (int) (float) (rational) function make_num_stre(fn) { const ranges = [ ['o', '[0-7]'], @@ -450,7 +450,7 @@ function parse_float(arg) { if (is_int(value) && parse.number.match(/e\+?[0-9]/i)) { return LNumber(value); } - // calculate big int and big fration by hand - it don't fit into JS float + // calculate big int and big fraction by hand - it don't fit into JS float var { mantisa, exponent } = parse_big_int(parse.number); if (mantisa !== undefined && exponent !== undefined) { var factor = LNumber(10).pow(LNumber(Math.abs(exponent))); @@ -480,7 +480,8 @@ function parse_string(string) { try { return LString(JSON.parse(string)); } catch (e) { - throw new Error('Invalid string literal'); + const msg = e.message.replace(/in JSON /, '').replace(/.*Error: /, ''); + throw new Error(`Invalid string literal: ${msg}`); } } // ---------------------------------------------------------------------- @@ -691,7 +692,7 @@ function strip_s_comments(tokens) { return tokens; } // ---------------------------------------------------------------------- -// detect if object is ES6 Symbol that work with polyfills +// Detect if object is ES6 Symbol that work with polyfills // ---------------------------------------------------------------------- function isSymbol(x) { return typeof x === 'symbol' || @@ -798,7 +799,7 @@ var gensym = (function() { }; })(); // ---------------------------------------------------------------------- -// class used to escape promises feature #54 +// Class used to escape promises: feature #54 // ---------------------------------------------------------------------- function QuotedPromise(promise) { var internal = { @@ -910,73 +911,77 @@ var specials = { SPLICE: Symbol.for('splice'), SYMBOL: Symbol.for('symbol'), names: function() { - return Object.keys(this._specials); + return Object.keys(this.__list__); }, type: function(name) { return this.get(name).type; }, get: function(name) { - return this._specials[name]; + return this.__list__[name]; }, // events are used in Lexer dynamic rules off: function(name, fn = null) { if (Array.isArray(name)) { name.forEach(name => this.off(name, fn)); } else if (fn === null) { - delete this._events[name]; + delete this.__events__[name]; } else { - this._events = this._events.filter(test => test !== fn); + this.__events__ = this.__events__.filter(test => test !== fn); } }, on: function(name, fn) { if (Array.isArray(name)) { name.forEach(name => this.on(name, fn)); - } else if (!this._events[name]) { - this._events[name] = [fn]; + } else if (!this.__events__[name]) { + this.__events__[name] = [fn]; } else { - this._events[name].push(fn); + this.__events__[name].push(fn); } }, trigger: function(name, ...args) { - if (this._events[name]) { - this._events[name].forEach(fn => fn(...args)); + if (this.__events__[name]) { + this.__events__[name].forEach(fn => fn(...args)); } }, remove: function(name) { this.trigger('remove'); - delete this._specials[name]; + delete this.__list__[name]; }, append: function(name, value, type) { this.trigger('append'); - this._specials[name] = { + this.__list__[name] = { seq: name, symbol: value, type }; }, - _events: {}, - _specials: {} + __events__: {}, + __list__: {} }; function is_special(token) { return specials.names().includes(token); } function is_builtin(token) { - return specials.builtin.includes(token); + return specials.__builtins__.includes(token); } function is_literal(special) { return specials.type(special) === specials.LITERAL; } // ---------------------------------------------------------------------- -var defined_specials = [ +const defined_specials = [ ["'", new LSymbol('quote'), specials.LITERAL], ['`', new LSymbol('quasiquote'), specials.LITERAL], [',@', new LSymbol('unquote-splicing'), specials.LITERAL], [',', new LSymbol('unquote'), specials.LITERAL], ["'>", new LSymbol('quote-promise'), specials.LITERAL] ]; -Object.defineProperty(specials, 'builtin', { + +const builtins = defined_specials.map(arr => arr[0]); +Object.freeze(builtins); + +Object.defineProperty(specials, '__builtins__', { writable: false, - value: defined_specials.map(arr => arr[0]) + value: builtins }); defined_specials.forEach(([seq, symbol, type]) => { specials.append(seq, symbol, type); @@ -1116,7 +1121,7 @@ class Lexer { match_rule(rule, { prev_char, char, next_char } = {}) { var [ re, prev_re, next_re, state ] = rule; if (rule.length !== 5) { - throw new Error(`Lexer: Invald rule of length ${rule.length}`); + throw new Error(`Lexer: Invalid rule of length ${rule.length}`); } if (!char.match(re)) { return false; @@ -1146,7 +1151,7 @@ class Lexer { ++this._line; const newline = this._newline; if (this._state === null) { - // keep beging of newline to calculate col + // keep beginning of the newline to calculate col // we don't want to check inside the token (e.g. strings) this._newline = i + 1; } @@ -1156,7 +1161,7 @@ class Lexer { return true; } } - // skip leadning spaces + // skip leading spaces if (start && this._state === null && char.match(/\s/)) { if (this._whitespace) { if (!next_char.match(/\s/)) { @@ -1174,7 +1179,7 @@ class Lexer { start = false; for (let rule of Lexer.rules) { if (this.match_rule(rule, { prev_char, char, next_char })) { - // change state to null is end of the token + // change state to null if end of the token var next_state = rule[rule.length - 1]; this._state = next_state; if (this._state === null) { @@ -1209,7 +1214,7 @@ Lexer.symbol_rule = function symbol_rule(string, symbol) { ]); }; // ---------------------------------------------------------------------- -// state rule for literal symbol +// State rule for literal symbol // ---------------------------------------------------------------------- Lexer.literal_rule = function literal_rule(string, symbol, p_re = null, n_re = null) { if (string.length === 0) { @@ -1240,9 +1245,11 @@ Lexer.literal_rule = function literal_rule(string, symbol, p_re = null, n_re = n }; // ---------------------------------------------------------------------- Lexer.string = Symbol.for('string'); +Lexer.string_escape = Symbol.for('string_escape'); Lexer.symbol = Symbol.for('symbol'); Lexer.comment = Symbol.for('comment'); Lexer.regex = Symbol.for('regex'); +Lexer.regex_init = Symbol.for('regex_init'); Lexer.regex_class = Symbol.for('regex_class'); Lexer.character = Symbol.for('character'); Lexer.bracket = Symbol.for('bracket'); @@ -1258,10 +1265,13 @@ Lexer._rules = [ // char_re prev_re next_re from_state to_state // null as to_state mean that is single char token // string - [/"/, /^$|[^\\]/, null, null, Lexer.string], - [/"/, /^$|[^\\]/, null, Lexer.string, null], + [/"/, null, null, Lexer.string, null], + [/"/, null, null, null, Lexer.string], + [/"/, null, null, Lexer.string_escape, Lexer.string], + [/\\/, null, null, Lexer.string, Lexer.string_escape], + [/./, /\\/, null, Lexer.string_escape, Lexer.string], - // hash special symbols, lexer don't need to distingiush those + // hash special symbols, lexer don't need to distinguish those // we only care if it's not pick up by vectors literals [/#/, null, /[bdxoeitf]/i, null, Lexer.symbol], @@ -1273,7 +1283,8 @@ Lexer._rules = [ [/\S/, null, Lexer.boundary, Lexer.character, null], // regex - [/#/, Lexer.boundary, /\//, null, Lexer.regex], + [/#/, Lexer.boundary, /\//, null, Lexer.regex_init], + [/./, /\//, null, Lexer.regex_init, Lexer.regex], [/[ \t]/, null, null, Lexer.regex, Lexer.regex], [/\[/, null, null, Lexer.regex, Lexer.regex_class], [/\]/, /[^\\]/, null, Lexer.regex_class, Lexer.regex], @@ -1326,8 +1337,8 @@ Lexer._symbol_rules = [ [/\S/, null, Lexer.boundary, Lexer.symbol, null] ]; // ---------------------------------------------------------------------- -// :: dynamic getter or Lexer state rules, parser use this -// :: so in fact user code can modify lexer using syntax extensions +// :: Dynamic getter or Lexer state rules, parser uses this +// :: so user code can modify Lexer using syntax extensions // ---------------------------------------------------------------------- Lexer._cache = { valid: false, @@ -1521,7 +1532,7 @@ class Parser { } return object; } - ballanced() { + balanced() { return this._state.parentheses === 0; } ballancing_error(expr) { @@ -1568,23 +1579,25 @@ class Parser { return token; } if (is_special(token)) { - // bultin parser extensions are mapping short symbol to longer symbol - // that can be function or macro, parser don't care - // if it's not bultin then the extension can be macro or function - // FUNCTION: when it's used it get arguments like FEXPR and - // result is returned by parser as is - // MACRO: if macros are used they are evaluated in place and - // result is returned by parser but they are quoted + // Built-in parser extensions are mapping short symbols to longer symbols + // that can be function or macro. Parser doesn't care + // if it's not built-in and the extension can be macro or function. + // FUNCTION: when it's used, it gets arguments like FEXPR and the + // result is returned by parser as is the macro. + // MACRO: if macro is used, then it is evaluated in place and the + // result is returned by parser and it is quoted. const special = specials.get(token); - const bultin = is_builtin(token); + const builtin = is_builtin(token); this.skip(); let expr; const object = await this._read_object(); - if (!bultin) { + if (!builtin) { var extension = this.__env__.get(special.symbol); if (typeof extension === 'function') { if (is_literal(token)) { return extension.call(this.__env__, object); + } else if (object === nil) { + return extension.apply(this.__env__); } else if (object instanceof Pair) { return extension.apply(this.__env__, object.to_array(false)); } @@ -1606,22 +1619,22 @@ class Parser { object ); } - // builtin parser extensions just expand into lists like 'x ==> (quote x) - if (bultin) { + // Built-in parser extensions just expand into lists like 'x ==> (quote x) + if (builtin) { return expr; } - // evaluate parser extension at parse time + // Evaluate parser extension at parse time if (extension instanceof Macro) { var result = await this.evaluate(expr); - // we need literal quote to make macro that return pair works - // because after parser return the value it will be evaluated again - // by the interpreter, so we create quoted expression + // We need literal quotes to make that macro's return pairs works + // because after the parser returns the value it will be evaluated again + // by the interpreter, so we create quoted expressions. if (result instanceof Pair || result instanceof LSymbol) { return Pair.fromArray([LSymbol('quote'), result]); } return result; } else { - throw new Error('Parse Error: invlid parser extension: ' + + throw new Error('Parse Error: invalid parser extension: ' + special.symbol); } } @@ -1647,7 +1660,7 @@ class Parser { } } // ---------------------------------------------------------------------- -// :: parser helper that allow to handle circular list structures +// :: Parser helper that handles circular list structures // :: using datum labels // ---------------------------------------------------------------------- class DatumReference { @@ -1660,11 +1673,11 @@ class DatumReference { } } // ---------------------------------------------------------------------- -// :: tokens are the array of strings from tokenizer -// :: the return value is array of lisp code created out of Pair class +// :: Tokens are the array of strings from tokenizer +// :: the return value is an array of lips code created out of Pair class. // :: env is needed for parser extensions that will invoke the function // :: or macro assigned to symbol, this function is async because -// :: it evaluate the code, from parser extensions, that may return promise +// :: it evaluates the code, from parser extensions, that may return a promise. // ---------------------------------------------------------------------- async function* parse(arg, env) { if (!env) { @@ -1679,7 +1692,7 @@ async function* parse(arg, env) { const parser = new Parser(arg, { env }); while (true) { const expr = await parser.read_object(); - if (!parser.ballanced()) { + if (!parser.balanced()) { parser.ballancing_error(expr); } if (expr === eof) { @@ -1765,7 +1778,7 @@ async function uniterate_async(object) { return result; } // ---------------------------------------------------------------------- -// :: function that return mather function that match string against string +// :: Function that return matcher function that match string against string // ---------------------------------------------------------------------- function matcher(name, arg) { if (arg instanceof RegExp) { @@ -1777,8 +1790,8 @@ function matcher(name, arg) { throw new Error('Invalid matcher'); } // ---------------------------------------------------------------------- -// :: documentaton decorator to LIPS functions if lines starts with : -// :: they are ignored (not trim) otherwise it trim so +// :: Documentation decorator to LIPS functions if lines starts with : +// :: they are ignored (not trimmed) otherwise it trims so // :: so you can have indent in source code // ---------------------------------------------------------------------- function doc(name, fn, doc, dump) { @@ -1836,7 +1849,7 @@ function previousSexp(tokens, sexp = 1) { return tokens.slice(i + 1); } // ---------------------------------------------------------------------- -// :: find number of spaces in line +// :: Find the number of spaces in line // ---------------------------------------------------------------------- function lineIndent(tokens) { if (!tokens || !tokens.length) { @@ -1857,10 +1870,10 @@ function lineIndent(tokens) { return 0; } // ---------------------------------------------------------------------- -// :: token based pattern matching (used by formatter) +// :: Token based pattern matching (used by formatter) // ---------------------------------------------------------------------- /* - function nested_pattern(pattern) { + Function nested_pattern(pattern) { return pattern instanceof Array || pattern instanceof Pattern; } @@ -2006,16 +2019,16 @@ Formatter.defaults = { }; Formatter.match = match; // ---------------------------------------------------------------------- -// :: return indent for next line +// :: Return indent for next line // ---------------------------------------------------------------------- Formatter.prototype._options = function _options(options) { var defaults = Formatter.defaults; if (typeof options === 'undefined') { return Object.assign({}, defaults); } - var exeptions = options && options.exceptions || {}; - var specials = exeptions.specials || []; - var shift = exeptions.shift || { 1: [] }; + var exceptions = options && options.exceptions || {}; + var specials = exceptions.specials || []; + var shift = exceptions.shift || { 1: [] }; return { ...defaults, ...options, @@ -2086,18 +2099,18 @@ Formatter.prototype._indent = function _indent(tokens, options) { return settings.offset + sexp[0].col + 1; } else { // search for token before S-Expression for case like #(10 or &(:x - var exeption = -1; + var exception = -1; if (before_sexpr) { var shift = Formatter.exception_shift(before_sexpr.token, settings); if (shift !== -1) { - exeption = shift; + exception = shift; } } - if (exeption === -1) { - exeption = Formatter.exception_shift(sexp[1].token, settings); + if (exception === -1) { + exception = Formatter.exception_shift(sexp[1].token, settings); } - if (exeption !== -1) { - return settings.offset + sexp[0].col + exeption; + if (exception !== -1) { + return settings.offset + sexp[0].col + exception; } else if (sexp[0].line < sexp[1].line) { return settings.offset + sexp[0].col + 1; } else if (sexp.length > 3 && sexp[1].line === sexp[3].line) { @@ -2135,8 +2148,8 @@ Ahead.prototype.match = function(string) { return string.match(this.pattern); }; // ---------------------------------------------------------------------- -// Pattern have any number of patterns that is match using OR operator -// pattern is in form of array with regular expressions +// Pattern has any number of patterns that it matches using OR operator +// Pattern is in form of array with regular expressions // ---------------------------------------------------------------------- function Pattern(...args) { var flag = args.pop(); @@ -2210,7 +2223,7 @@ Formatter.prototype.break = function() { } } }; - // tokenize is part of the parser/lexer that split code into tokens and inclue + // Tokenize is part of the parser/lexer that split code into tokens and includes // meta data like number of column or line var tokens = tokenize(code, true).map(token).filter(t => t !== '\n'); const { rules } = Formatter; @@ -2259,7 +2272,7 @@ Formatter.prototype._spaces = function(i) { return new Array(i + 1).join(' '); }; // ---------------------------------------------------------------------- -// :: auto formatting of code, it require to have newlines +// :: Auto formatting of code, it requires to have newlines // ---------------------------------------------------------------------- Formatter.prototype.format = function format(options) { // prepare code with single space after newline @@ -2305,7 +2318,7 @@ Formatter.prototype.format = function format(options) { }).join(''); }; // ---------------------------------------------------------------------- -// :: flatten nested arrays +// :: Flatten nested arrays // :: ref: https://stackoverflow.com/a/27282907/387194 // ---------------------------------------------------------------------- function flatten(array, mutable) { @@ -2521,9 +2534,9 @@ Pair.fromArray = function(array, deep = true, quote = false) { }; // ---------------------------------------------------------------------- -// by default to_object was created to create JavaScript objects, -// so it use valueOf to get native values -// literal parameter was a hack to allow create LComplex from LIPS code +// By default to_object was created to create JavaScript objects, +// so it uses valueOf to get native values. +// Literal parameter was a hack to allow creating LComplex from LIPS code // ---------------------------------------------------------------------- Pair.prototype.to_object = function(literal = false) { var node = this; @@ -2694,7 +2707,7 @@ var str_mapping = new Map(); str_mapping.set(key, value); }); // ---------------------------------------------------------------------- -// :: debug function that can be used with JSON.stringify +// :: Debug function that can be used with JSON.stringify // :: that will show symbols // ---------------------------------------------------------------------- /* istanbul ignore next */ @@ -2762,7 +2775,7 @@ function function_to_string(fn) { } } // ---------------------------------------------------------------------- -// instances extracted to make cyclomatic complexity of toString smaller +// Instances extracted to make cyclomatic complexity of toString smaller const instances = new Map(); // ---------------------------------------------------------------------- [ @@ -2846,8 +2859,8 @@ function toString(obj, quote, skip_cycles, ...pair_args) { if (typeof obj === 'object') { var constructor = obj.constructor; if (!constructor) { - // this is case of fs.constants in Node.js that is null constructor object - // this object can be handled like normal object that have properties + // This is case of fs.constants in Node.js that is null constructor object. + // This object can be handled like normal objects that have properties constructor = Object; } var name; @@ -2983,7 +2996,7 @@ function markCycles(pair) { } // ---------------------------------------------------------------------- -// trampoline based recursive pair to string that don't overflow the stack +// Trampoline based recursive pair to string that don't overflow the stack // ---------------------------------------------------------------------- /* eslint-disable no-unused-vars */ /* istanbul ignore next */ @@ -3489,7 +3502,7 @@ function extract_patterns(pattern, code, symbols, ellipsis_symbol, scope = {}) { }; const { expansion, define } = scope; // pattern_names parameter is used to distinguish - // multiple matches of ((x ...) ...) agains ((1 2 3) (1 2 3)) + // multiple matches of ((x ...) ...) against ((1 2 3) (1 2 3)) // in loop we add x to the list so we know that this is not // duplicated ellipsis symbol function log(x) { @@ -3509,9 +3522,9 @@ function extract_patterns(pattern, code, symbols, ellipsis_symbol, scope = {}) { return same_atom(pattern, code); } if (pattern instanceof LSymbol && - symbols.includes(pattern.literal())) { + symbols.includes(pattern.literal())) { // TODO: literal() may be SLOW const ref = expansion.ref(code); - // shadowing the indentifier works only with lambda and let + // shadowing the identifier works only with lambda and let if (LSymbol.is(code, pattern)) { if (typeof ref === 'undefined') { return true; @@ -3705,7 +3718,7 @@ function extract_patterns(pattern, code, symbols, ellipsis_symbol, scope = {}) { pattern: pattern.toString(), code: code.toString() }); - // case (x y) ===> (var0 var1 ... varn) where var1 match nil + // case (x y) ===> (var0 var1 ... warn) where var1 match nil if (pattern.cdr instanceof Pair && pattern.car instanceof LSymbol && pattern.cdr.cdr instanceof Pair && @@ -3970,7 +3983,7 @@ function transform_syntax(options = {}) { } /* eslint-disable complexity */ function traverse(expr, { disabled } = {}) { - log('traverse>> ' + expr.toString()); + log('traverse>> ' + toString(expr)); if (expr instanceof Pair) { // escape ellispsis from R7RS e.g. (... ...) if (!disabled && expr.car instanceof Pair && @@ -4176,7 +4189,7 @@ function transform_syntax(options = {}) { return expr; } const symbols = Object.keys(bindings['...'].symbols); - const name = expr.literal(); + const name = expr.literal(); // TODO: slow if (symbols.includes(name)) { const msg = `missing ellipsis symbol next to name \`${name}'`; throw new Error(`syntax-rules: ${msg}`); @@ -4191,7 +4204,7 @@ function transform_syntax(options = {}) { return traverse(expr, {}); } // ---------------------------------------------------------------------- -// :: check for nullish values +// :: Check for nullish values // ---------------------------------------------------------------------- function is_null(value) { return is_undef(value) || value === nil || value === null; @@ -4226,8 +4239,8 @@ function is_undef(value) { // :: Function utilities // ---------------------------------------------------------------------- function box(object) { - // we only need to box lips data, arrays and object don't need - // to be boxed, values from objects will be boxed when accessed + // We only need to box lips data and arrays. Object don't need + // to be boxed, but values from objects will be boxed when accessed. switch (typeof object) { case 'string': return LString(object); @@ -4259,7 +4272,8 @@ function map_object(object, fn) { } // ---------------------------------------------------------------------- function unbox(object) { - var lips_type = [LString, LCharacter, LNumber].some(x => object instanceof x); + // LCharacter is unboxable #233 + var lips_type = [LString, LNumber].some(x => object instanceof x); if (lips_type) { return object.valueOf(); } @@ -4290,7 +4304,7 @@ function patch_value(value, context) { return box(value); } // ---------------------------------------------------------------------- -// :: function get original function that was binded with props +// :: Function gets original function that was binded with props // ---------------------------------------------------------------------- function unbind(obj) { if (is_bound(obj)) { @@ -4299,7 +4313,7 @@ function unbind(obj) { return obj; } // ---------------------------------------------------------------------- -// :: function bind with contex that can be optionaly unbind +// :: Function binds with context that can be optionally unbind // :: get original function with unbind // ---------------------------------------------------------------------- function bind(fn, context) { @@ -4332,7 +4346,7 @@ function bind(fn, context) { return bound; } // ---------------------------------------------------------------------- -// function used to check if function should not get unboxed arguments, +// Function used to check if function should not get unboxed arguments, // so you can call Object.getPrototypeOf for lips data types // this is case, see dir function and #73 // ---------------------------------------------------------------------- @@ -4369,7 +4383,7 @@ function is_port_method(obj) { return false; } // ---------------------------------------------------------------------- -// hidden props +// Hidden props // ---------------------------------------------------------------------- var __context__ = Symbol.for('__context__'); var __fn__ = Symbol.for('__fn__'); @@ -4381,7 +4395,7 @@ var __method__ = Symbol.for('__method__'); var __prototype__ = Symbol.for('__prototype__'); var __lambda__ = Symbol.for('__lambda__'); // ---------------------------------------------------------------------- -// :: function bind fn with context but it also move all props +// :: Function bind fn with context but it also move all props // :: mostly used for Object function // ---------------------------------------------------------------------- var exluded_names = ['name', 'length', 'caller', 'callee', 'arguments', 'prototype']; @@ -4480,7 +4494,7 @@ function let_macro(symbol) { Pair(code.car, args) ]); } else if (macro_expand) { - // Macro.defmacro are special macros that should return lisp code + // Macro.defmacro are special macros that should return lips code // here we use evaluate, so we need to check special flag set by // macroexpand to prevent evaluation of code in normal let return; @@ -4616,7 +4630,7 @@ function fold(name, fold) { } // ------------------------------------------------------------------------- function limit_math_op(n, fn) { - // + 1 so it inlcude function in guard_math_call + // + 1 so it include function in guard_math_call return limit(n + 1, curry(guard_math_call, fn)); } // ------------------------------------------------------------------------- @@ -4659,7 +4673,7 @@ function limit(n, fn) { }; } // ------------------------------------------------------------------------- -// :: character object representation +// :: Character object representation // ------------------------------------------------------------------------- function LCharacter(char) { if (typeof this !== 'undefined' && !(this instanceof LCharacter) || @@ -4678,7 +4692,7 @@ function LCharacter(char) { char = LCharacter.__names__[char]; } else { // this should never happen - // parser don't alow not defined named characters + // parser don't allow not defined named characters throw new Error('Internal: Unknown named character'); } } else { @@ -4742,6 +4756,12 @@ function LString(string) { LString.prototype[key] = wrap(String.prototype[key]); } } +LString.prototype[Symbol.iterator] = function*() { + const chars = Array.from(this.__string__); + for (const char of chars) { + yield LCharacter(char); + } +}; LString.prototype.serialize = function() { return this.valueOf(); }; @@ -4829,7 +4849,7 @@ function LNumber(n, force = false) { if (!LNumber.isNumber(n) && !parsable) { throw new Error(`You can't create LNumber from ${type(n)}`); } - // prevent infite loop https://github.com/indutny/bn.js/issues/186 + // prevent infinite loop https://github.com/indutny/bn.js/issues/186 if (n === null) { n = 0; } @@ -5065,7 +5085,7 @@ LNumber.prototype.valueOf = function() { } }; // ------------------------------------------------------------------------- -// type coercion matrix +// Type coercion matrix // ------------------------------------------------------------------------- const matrix = (function() { var i = (a, b) => [a, b]; @@ -5291,10 +5311,13 @@ try { // ------------------------------------------------------------------------- LNumber.prototype.pow = function(n) { var value; - if (LNumber.isBN(this.__value__)) { + const [a, b] = this.coerce(n); + if (LNumber.isNative(a.__value__) && LNumber.isNative(b.__value__)) { + value = pow(a.__value__, b.__value__); + } else if (LNumber.isBN(a.__value__) && LNumber.isBN(b.__value__)) { value = this.__value__.pow(n.__value__); - } else { - value = pow(this.__value__, n.__value__); + } else if (a.pow) { + return a.pow(b); } return LNumber(value); }; @@ -5363,7 +5386,9 @@ function LComplex(n, force = false) { return Number(n); } } else if (!LNumber.isComplex(n)) { - throw new Error('Invalid constructor call for LComplex'); + const msg = `Invalid constructor call for LComplex expect &(:im <num> :re <num>) \ +object but got ${toString(n)}`; + throw new Error(msg); } var im = n.im instanceof LNumber ? n.im : LNumber(n.im); var re = n.re instanceof LNumber ? n.re : LNumber(n.re); @@ -5404,6 +5429,10 @@ LComplex.prototype.toRational = function(n) { return this; }; // ------------------------------------------------------------------------- +LComplex.prototype.pow = function(n) { + throw new Error('Not yet implemented'); +}; +// ------------------------------------------------------------------------- LComplex.prototype.add = function(n) { return this.complex_op('add', n, function(a_re, b_re, a_im, b_im) { return { @@ -5476,9 +5505,18 @@ LComplex.prototype.div = function(n) { } else if (!LNumber.isComplex(n)) { throw new Error('[LComplex::div] Invalid value'); } + if (this.cmp(n) === 0) { + const [ a, b ] = this.coerce(n); + const ret = a.__im__.div(b.__im__); + return ret.coerce(b.__re__)[0]; + } const [ a, b ] = this.coerce(n); const denom = b.factor(); - const num = a.mul(b.conjugate()); + const conj = b.conjugate(); + const num = a.mul(conj); + if (!LNumber.isComplex(num)) { + return num.div(denom); + } const re = num.__re__.op('/', denom); const im = num.__im__.op('/', denom); return LComplex({ re, im }); @@ -5507,7 +5545,7 @@ LComplex.prototype.complex_op = function(name, n, fn) { const calc = (re, im) => { var result = fn(this.__re__, re, this.__im__, im); if ('im' in result && 're' in result) { - if (result.im.cmp(0) === 0 && !LNumber.isFloat(result.im)) { + if (result.im.cmp(0) === 0) { return result.re; } return LComplex(result, true); @@ -5639,7 +5677,7 @@ LFloat.prototype._op = function(op, n) { return LFloat(fn(this.__value__, n), true); }; // ------------------------------------------------------------------------- -// same aproximation as in guile scheme +// same approximation as in guile scheme LFloat.prototype.toRational = function(n = null) { if (n === null) { return toRational(this.__value__.valueOf()); @@ -5681,7 +5719,7 @@ function approxRatio(eps) { }; } // ------------------------------------------------------------------------- -// :: source: Kawa gnu.math.RatNum.java +// :: Source: Kawa gnu.math.RatNum.java // :: This algorithm is by Alan Bawden. It has been transcribed // :: with permission from Kawa copyright M.A. Bothner. // :: which was transcribed from from C-Gambit, copyright Marc Feeley. @@ -5990,10 +6028,10 @@ LBigInteger.prototype._op = function(op, n) { } return LRational({ num: this, denom: n }); } - // use native calucaltion becuase it's real bigint value + // use native calculation because it's real bigint value return LBigInteger(ret, true); }; -// -------------------------- ----------------------------------------------- +// ------------------------------------------------------------------------- LBigInteger.prototype.sqrt = function() { var value; var minus = this.cmp(0) < 0; @@ -6010,7 +6048,7 @@ LBigInteger.prototype.sqrt = function() { // ------------------------------------------------------------------------- LNumber.NaN = LNumber(NaN); // ------------------------------------------------------------------------- -// :: Port abstration - read should be a function that return next line +// :: Port abstraction - read should be a function that return next line // ------------------------------------------------------------------------- function InputPort(read) { if (typeof this !== 'undefined' && !(this instanceof InputPort) || @@ -6460,7 +6498,7 @@ EOF.prototype.toString = function() { return '#<eof>'; }; // ------------------------------------------------------------------------- -// simpler way to create interpreter with interaction-environment +// Simpler way to create interpreter with interaction-environment // ------------------------------------------------------------------------- function Interpreter(name, { stderr, stdin, stdout, command_line = null, ...obj } = {}) { if (typeof this !== 'undefined' && !(this instanceof Interpreter) || @@ -6576,7 +6614,7 @@ Environment.prototype.inherit = function(name, obj = {}) { return new Environment(obj || {}, this, name); }; // ------------------------------------------------------------------------- -// :: lookup function for variable doc strings +// :: Lookup function for variable doc strings // ------------------------------------------------------------------------- Environment.prototype.doc = function(name, value = null, dump = false) { if (name instanceof LSymbol) { @@ -6600,7 +6638,7 @@ Environment.prototype.doc = function(name, value = null, dump = false) { } }; // ------------------------------------------------------------------------- -// :: function create frame environment for usage in functions +// :: Function creates frame environment for usage in functions // :: frames are used to it's easier to find environments of the functions // :: in scope chain, they are dummy environments just for lookup // ------------------------------------------------------------------------- @@ -6657,7 +6695,7 @@ Environment.prototype.merge = function(env, name = 'merge') { return this.inherit(name, env.__env__); }; // ------------------------------------------------------------------------- -// value returned in lookup if found value in env and in promise_all +// Value returned in lookup if found value in env and in promise_all // ------------------------------------------------------------------------- function Value(value) { if (typeof this !== 'undefined' && !(this instanceof Value) || @@ -6675,7 +6713,7 @@ Value.prototype.valueOf = function() { return this.value; }; // ------------------------------------------------------------------------- -// :: differnt object than value used as object for (values) +// :: Different object than value used as object for (values) // ------------------------------------------------------------------------- function Values(values) { if (values.length) { @@ -6770,7 +6808,7 @@ Environment.prototype.set = function(name, value, doc = null) { return this; }; // ------------------------------------------------------------------------- -// for internal use only +// For internal use only // ------------------------------------------------------------------------- Environment.prototype.constant = function(name, value) { if (this.__env__.hasOwnProperty(name)) { @@ -6817,7 +6855,7 @@ Environment.prototype.parents = function() { return result; }; // ------------------------------------------------------------------------- -// :: Quote funtion used to pause evaluation from Macro +// :: Quote function used to pause evaluation from Macro // ------------------------------------------------------------------------- function quote(value) { if (is_promise(value)) { @@ -6841,8 +6879,8 @@ Unquote.prototype.toString = function() { }; // ------------------------------------------------------------------------------- var native_lambda = parse(tokenize(`(lambda () - "[native code]" - (throw "Invalid Invocation"))`))[0]; + "[native code]" + (throw "Invalid Invocation"))`))[0]; // ------------------------------------------------------------------------------- var get = doc('get', function get(object, ...args) { var value; @@ -6880,25 +6918,25 @@ var get = doc('get', function get(object, ...args) { } return value; }, `(. obj . args) - (get obj . args) + (get obj . args) - Function use object as base and keep using arguments to get the - property of JavaScript object. Arguments need to be a strings. - e.g. \`(. console "log")\` if you use any function inside LIPS is - will be weakly bind (can be rebind), so you can call this log function - without problem unlike in JavaScript when you use - \`var log = console.log\`. - \`get\` is an alias because . don't work in every place, e.g. you can't - pass it as argument.`); + This function uses an object as a base and keeps using arguments to get the + property of JavaScript object. Arguments need to be a strings. + e.g. \`(. console "log")\` if you use any function inside LIPS it + will be weakly bound (can be rebound), so you can call this log function + without problem unlike in JavaScript when you use + \`var log = console.log\`. + \`get\` is an alias because . doesn't work everywhere, e.g. you can't + pass it as an argument.`); // ------------------------------------------------------------------------- -// function get internal protected data +// Function gets internal protected data // ------------------------------------------------------------------------- function internal(env, name) { var internal_env = interaction(env, '**internal-env**'); return internal_env.get(name); } // ------------------------------------------------------------------------- -// get variable from interaction environment +// Get variable from interaction environment // ------------------------------------------------------------------------- function interaction(env, name) { var interaction_env = env.get('**interaction-environment**'); @@ -6952,8 +6990,9 @@ var global_env = new Environment({ return port.peek_char(); }, `(peek-char port) - Function get character from string port or EOF object if no more - data in string port.`), + This function reads and returns a character from the string + port, or, if there is no more data in the string port, it + returns an EOF.`), // ------------------------------------------------------------------ 'read-line': doc('read-line', function(port = null) { if (port === null) { @@ -6961,9 +7000,10 @@ var global_env = new Environment({ } typecheck_text_port('read-line', port, 'input-port'); return port.read_line(); - }, `(read-char port) + }, `(read-line port) - Function read next character from input port.`), + This function reads and returns the next line from the input + port.`), // ------------------------------------------------------------------ 'read-char': doc('read-char', function(port = null) { if (port === null) { @@ -6973,7 +7013,8 @@ var global_env = new Environment({ return port.read_char(); }, `(read-char port) - Function read next character from input port.`), + This function reads and returns the next character from the + input port.`), // ------------------------------------------------------------------ read: doc('read', async function read(arg = null) { if (LString.isString(arg)) { @@ -6991,12 +7032,13 @@ var global_env = new Environment({ return port.read.call(this); }, `(read [string]) - Function if used with string will parse the string and return - list structure of LIPS code. If called without an argument it - will read string from standard input (using browser prompt or - user defined way) and call itself with that string (parse is) - function can be used together with eval to evaluate code from - string`), + This function, if used with a string, will parse it and + return the LIPS code, if there is any. If called with a + port, it will parse the next item from the port. If called + without an input, it will read a string from standard input + (using the browser's prompt or a user defined input method) + and calls itself with that string. This function can be used + together with \`eval\` to evaluate code from a string.`), // ------------------------------------------------------------------ pprint: doc('pprint', function pprint(arg) { if (arg instanceof Pair) { @@ -7008,8 +7050,9 @@ var global_env = new Environment({ global_env.get('newline').call(global_env); }, `(pprint expression) - Pretty print list expression, if called with non-pair it just call - print function with passed argument.`), + This function will pretty print its input to stdout. If it is called + with a non-list, it will just call the print function on its + input.`), // ------------------------------------------------------------------ print: doc('print', function print(...args) { const display = global_env.get('display'); @@ -7020,9 +7063,10 @@ var global_env = new Environment({ }); }, `(print . args) - Function convert each argument to string and print the result to - standard output (by default it's console but it can be defined - it user code), the function call newline after printing each arg.`), + This function converts each input into a string and prints + the result to the standard output (by default it's the + console but it can be defined in user code). This function + calls \`(newline)\` after printing each input.`), // ------------------------------------------------------------------ format: doc('format', function format(str, ...args) { typecheck('format', str, 'string'); @@ -7050,20 +7094,21 @@ var global_env = new Environment({ }); m = str.match(/~([\S])/); if (m) { - throw new Error(`format: Unrecognized escape seqence ${m[1]}`); + throw new Error(`format: Unrecognized escape sequence ${m[1]}`); } return str; }, `(format string n1 n2 ...) - Function accepts string template and replacing any escape sequences - by arguments: + This function accepts a string template and replaces any + escape sequences in its inputs: - * ~a value as if printed with display - * ~s value as if printed with write - * ~% newline character - * ~~ literal tilde '~' is inserted + * ~a value as if printed with \`display\` + * ~s value as if printed with \`write\` + * ~% newline character + * ~~ literal tilde '~' - if there missing arguments or other escape character it throw exception.`), + If there are missing inputs or other escape characters it + will error.`), // ------------------------------------------------------------------ display: doc('display', function display(arg, port = null) { if (port === null) { @@ -7073,9 +7118,10 @@ var global_env = new Environment({ } const value = global_env.get('repr')(arg); port.write.call(global_env, value); - }, `(display arg [port]) + }, `(display string [port]) - Function send string to standard output or provied port.`), + This function outputs the string to the standard output or + the port if given. No newline.`), // ------------------------------------------------------------------ 'display-error': doc('display-error', function error(...args) { const port = internal(this, 'stderr'); @@ -7085,7 +7131,7 @@ var global_env = new Environment({ global_env.get('newline')(port); }, `(display-error . args) - Display error message.`), + Display an error message on stderr.`), // ------------------------------------------------------------------ '%same-functions': doc('%same-functions', function(a, b) { if (!is_function(a)) { @@ -7097,7 +7143,8 @@ var global_env = new Environment({ return unbind(a) === unbind(b); }, `(%same-functions a b) - Helper function that check if two bound functions are the same`), + A helper function that checks if the two input functions are + the same.`), // ------------------------------------------------------------------ help: doc(new Macro('help', function(code, { dynamic_scope, error }) { var symbol; @@ -7131,29 +7178,32 @@ var global_env = new Environment({ } }), `(help object) - Macro returns documentation for function or macro. You can save the function - or macro in variable and use it in context. But help for variable require - to pass the symbol itself.`), + This macro returns documentation for a function or macro. + You can save the function or macro in a variable and use it + here. But getting help for a variable requires passing the + variable in a \`quote\`.`), // ------------------------------------------------------------------ cons: doc('cons', function cons(car, cdr) { return new Pair(car, cdr); }, `(cons left right) - Function return new Pair out of two arguments.`), + This function returns a new list with the first appended + before the second. If the second is not a list cons will + return a dotted pair.`), // ------------------------------------------------------------------ car: doc('car', function car(list) { typecheck('car', list, 'pair'); return list.car; }, `(car pair) - Function returns car (head) of the list/pair.`), + This function returns the car (item 1) of the list.`), // ------------------------------------------------------------------ cdr: doc('cdr', function cdr(list) { typecheck('cdr', list, 'pair'); return list.cdr; }, `(cdr pair) - Function returns cdr (tail) of the list/pair.`), + This function returns the cdr (all but first) of the list.`), // ------------------------------------------------------------------ 'set!': doc(new Macro('set!', function(code, { dynamic_scope, error } = {}) { if (dynamic_scope) { @@ -7178,9 +7228,9 @@ var global_env = new Environment({ } if (code.car instanceof Pair && LSymbol.is(code.car.car, '.')) { var second = code.car.cdr.car; - var thrid = code.car.cdr.cdr.car; + var third = code.car.cdr.cdr.car; var object = evaluate(second, { env: this, dynamic_scope, error }); - var key = evaluate(thrid, { env: this, dynamic_scope, error }); + var key = evaluate(third, { env: this, dynamic_scope, error }); return set(object, key, value); } if (!(code.car instanceof LSymbol)) { @@ -7210,8 +7260,8 @@ var global_env = new Environment({ }); }), `(set! name value) - Macro that can be used to set the value of the variable (mutate) - it search the scope chain until it finds first non emtpy slot and set it.`), + Macro that can be used to set the value of the variable or slot (mutate it). + set! searches the scope chain until it finds first non empty slot and sets it.`), // ------------------------------------------------------------------ 'unset!': doc(new Macro('set!', function(code) { if (!(code.car instanceof LSymbol)) { @@ -7225,36 +7275,38 @@ var global_env = new Environment({ } }), `(unset! name) - Function delete specified name from environment.`), + Function to delete the specified name from environment. + Trying to access the name afterwards will error.`), // ------------------------------------------------------------------ 'set-car!': doc('set-car!', function(slot, value) { typecheck('set-car!', slot, 'pair'); slot.car = value; }, `(set-car! obj value) - Function that set car (head) of the list/pair to specified value. - It can destroy the list. Old value is lost.`), + Function that sets the car (first item) of the list/pair to specified value. + The old value is lost.`), // ------------------------------------------------------------------ 'set-cdr!': doc('set-cdr!', function(slot, value) { typecheck('set-cdr!', slot, 'pair'); slot.cdr = value; }, `(set-cdr! obj value) - Function that set cdr (tail) of the list/pair to specified value. - It can destroy the list. Old value is lost.`), + Function that sets the cdr (tail) of the list/pair to specified value. + It will destroy the list. The old tail is lost.`), // ------------------------------------------------------------------ 'empty?': doc('empty?', function(x) { return typeof x === 'undefined' || x === nil; }, `(empty? object) - Function return true if value is undfined empty list.`), + Function that returns #t if value is nil (an empty list) or undefined.`), // ------------------------------------------------------------------ gensym: doc( 'gensym', gensym, `(gensym) - Function generate unique symbol, to use with macros as meta name.`), + Generates a unique symbol that is not bound anywhere, + to use with macros as meta name.`), // ------------------------------------------------------------------ load: doc('load', function load(file, env) { typecheck('load', file, 'string'); @@ -7350,11 +7402,11 @@ var global_env = new Environment({ global_env.set(PATH, module_path); }); }, `(load filename) - (load filename environment) + (load filename environment) - Function fetch the file and evaluate its content as LIPS code, - If second argument is provided and it's environment the evaluation - will happen in that environment.`), + Fetches the file (from disk or network) and evaluates its content as LIPS code. + If the second argument is provided and it's an environment the evaluation + will happen in that environment.`), // ------------------------------------------------------------------ 'do': doc(new Macro('do', async function(code, { dynamic_scope, error }) { var self = this; @@ -7398,13 +7450,13 @@ var global_env = new Environment({ if (test.cdr !== nil) { return await evaluate(test.cdr.car, eval_args); } - }), `(do ((<var> <init> <next>)) (test expression) . body) + }), `(do ((<var> <init> <next>)) (test return) . body) - Iteration macro that evaluate the expression body in scope of the variables. - On Eeach loop it increase the variables according to next expression and run - test to check if the loop should continue. If test is signle call the macro - will not return anything. If the test is pair of expression and value the - macro will return that value after finish.`), + Iteration macro that evaluates the expression body in scope of the variables. + On each loop it changes the variables according to the <next> expression and runs + test to check if the loop should continue. If test is a single value, the macro + will return undefined. If the test is a pair of expressions the macro will + evaluate and return the second expression after the loop exits.`), // ------------------------------------------------------------------ 'if': doc(new Macro('if', function(code, { dynamic_scope, error }) { if (dynamic_scope) { @@ -7433,9 +7485,9 @@ var global_env = new Environment({ return unpromise(cond, resolve); }), `(if cond true-expr false-expr) - Macro evaluate condition expression and if the value is true, it - evaluate and return true expression if not it evaluate and return - false expression`), + Macro that evaluates cond expression and if the value is true, it + evaluates and returns true-expression, if not it evaluates and returns + false-expression.`), // ------------------------------------------------------------------ 'let-env': new Macro('let-env', function(code, options = {}) { const { dynamic_scope, error } = options; @@ -7449,51 +7501,53 @@ var global_env = new Environment({ }); }, `(let-env env . body) - Special macro that evaluate body in context of given environment - object.`), + Special macro that evaluates body in context of given environment + object.`), // ------------------------------------------------------------------ 'letrec': doc( let_macro(Symbol.for('letrec')), - `(letrec ((a value-a) (b value-b)) body) + `(letrec ((a value-a) (b value-b) ...) . body) - Macro that creates new environment, then evaluate and assign values to - names and then evaluate the body in context of that environment. - Values are evaluated sequentialy and next value can access to - previous values/names.`), + Macro that creates a new environment, then evaluates and assigns values to + names and then evaluates the body in context of that environment. + Values are evaluated sequentially and the next value can access the + previous values/names.`), // --------------------------------------------------------------------- 'letrec*': doc( let_macro(Symbol.for('letrec')), - `(letrec* ((a value-a) (b value-b)) body) + `(letrec* ((a value-a) (b value-b) ...) . body) + + Same as letrec but the order of execution of the binding is guaranteed, + so you can use recursive code as well as referencing the previous binding. - Same as letrec but the order of execution of the binding is guaranteed, - so use can use recursive code as well as reference previous binding. - In LIPS both letrec and letrec* behave the same.`), + In LIPS both letrec and letrec* behave the same.`), // --------------------------------------------------------------------- 'let*': doc( let_macro(Symbol.for('let*')), - `(let* ((a value-a) (b value-b)) body) + `(let* ((a value-a) (b value-b) ...) . body) - Macro similar to \`let\` but next argument get environment - from previous let variable, so they you can define one variable, - and use in next argument.`), + Macro similar to \`let\`, but the subsequent bindings after the first + are evaluated in the environment including the previous let variables, + so you can define one variable, and use it in the next's definition.`), // --------------------------------------------------------------------- 'let': doc( let_macro(Symbol.for('let')), - `(let ((a value-a) (b value-b)) body) - - Macro that creates new environment, then evaluate and assign values to - names and then evaluate the body in context of that environment. - Values are evaluated sequentialy but you can't access - previous values/names when next are evaluated. You can only get them - from body of let expression.`), + `(let ((a value-a) (b value-b) ...) . body) + + Macro that creates a new environment, then evaluates and assigns values to names, + and then evaluates the body in context of that environment. Values are evaluated + sequentially but you can't access previous values/names when the next are + evaluated. You can only get them in the body of the let expression. (If you want + to define multiple variables and use them in each other's definitions, use + \`let*\`.)`), // ------------------------------------------------------------------ 'begin*': doc(pararel('begin*', function(values) { return values.pop(); - }), `(begin* . expr) + }), `(begin* . body) - This macro is parallel version of begin. It evaluate each expression and - if it's a promise it will evaluate it in parallel and return value - of last expression.`), + This macro is a parallel version of begin. It evaluates each expression + in the body and if it's a promise it will await it in parallel and return + the value of the last expression (i.e. it uses Promise.all()).`), // ------------------------------------------------------------------ 'begin': doc(new Macro('begin', function(code, options) { var args = Object.assign({ }, options); @@ -7517,9 +7571,9 @@ var global_env = new Environment({ })(); }), `(begin . args) - Macro runs list of expression and return valuate of the list one. - It can be used in place where you can only have single exression, - like if expression.`), + Macro that runs a list of expressions in order and returns the value + of the last one. It can be used in places where you can only have a + single expression, like (if).`), // ------------------------------------------------------------------ 'ignore': new Macro('ignore', function(code, { dynamic_scope, error }) { var args = { env: this, error }; @@ -7527,12 +7581,12 @@ var global_env = new Environment({ args.dynamic_scope = this; } evaluate(new Pair(new LSymbol('begin'), code), args); - }, `(ignore expression) + }, `(ignore . body) - Macro that will evaluate expression and swallow any promises that may - be created. It wil run and ignore any value that may be returned by - expression. The code should have side effects and/or when it's promise - it should resolve to undefined.`), + Macro that will evaluate the expression and swallow any promises that may + be created. It will discard any value that may be returned by the last body + expression. The code should have side effects and/or when it's promise + it should resolve to undefined.`), // ------------------------------------------------------------------ 'call/cc': doc(Macro.defmacro('call/cc', function(code, eval_args = {}) { const args = { @@ -7546,7 +7600,9 @@ var global_env = new Environment({ }); }), `(call/cc proc) - TODO`), + Call-with-current-continuation. + + NOT SUPPORTED BY LIPS RIGHT NOW`), // ------------------------------------------------------------------ define: doc(Macro.defmacro('define', function(code, eval_args) { var env = this; @@ -7605,15 +7661,15 @@ var global_env = new Environment({ env.set(code.car, value, __doc__, true); }); }), `(define name expression) - (define name expression "doc string") - (define (function-name . args) body) + (define name expression "doc string") + (define (function-name . args) . body) - Macro for defining values. It can be used to define variables, - or function. If first argument is list it will create function - with name beeing first element of the list. The macro evalute - code \`(define function (lambda args body))\``), + Macro for defining values. It can be used to define variables, + or functions. If the first argument is list it will create a function + with name being first element of the list. This form expands to + \`(define function-name (lambda args body))\``), // ------------------------------------------------------------------ - 'set-obj!': doc('set-obj!', function(obj, key, value) { + 'set-obj!': doc('set-obj!', function(obj, key, value, options = null) { var obj_type = typeof obj; if (is_null(obj) || (obj_type !== 'object' && obj_type !== 'function')) { var msg = typeErrorMessage('set-obj!', type(obj), ['object', 'function']); @@ -7632,22 +7688,28 @@ var global_env = new Environment({ } else { obj[key] = value && !is_prototype(value) ? value.valueOf() : value; } + if (props) { + const value = obj[key]; + Object.defineProperty(obj, key, { ...options, value }); + } }, `(set-obj! obj key value) + (set-obj! obj key value props) - Function set property of JavaScript object`), + Function set a property of a JavaScript object. props should be a vector of pairs, + passed to Object.defineProperty.`), // ------------------------------------------------------------------ 'null-environment': doc('null-environment', function() { return global_env.inherit('null'); }, `(null-environment) - Function return new base environment with std lib.`), + Returns a clean environment with only the standard library.`), // ------------------------------------------------------------------ 'values': doc('values', function values(...args) { return Values(args); }, `(values a1 a2 ...) - If called with more then one elment it will create special - Values object that can be used in call-with-values function`), + If called with more then one element it will create a special + Values object that can be used in the call-with-values function.`), // ------------------------------------------------------------------ 'call-with-values': doc('call-with-values', function(producer, consumer) { typecheck('call-with-values', producer, 'function', 1); @@ -7659,9 +7721,10 @@ var global_env = new Environment({ return consumer(maybe); }, `(call-with-values producer consumer) - Calls its producer argument with no values and a continuation that, - when passed some values, calls the consumer procedure with those - values as arguments.`), + Calls the producer procedure with no arguments, then calls the + consumer procedure with the returned value as an argument -- unless + the returned value is a special Values object created by (values), if it is + the values are unpacked and the consumer is called with multiple arguments.`), // ------------------------------------------------------------------ 'current-environment': doc('current-environment', function() { if (this.__name__ === '__frame__') { @@ -7670,14 +7733,14 @@ var global_env = new Environment({ return this; }, `(current-environment) - Function return current environement.`), + Function that returns the current environment (they're first-class objects!)`), // ------------------------------------------------------------------ 'parent.frame': doc('parent.frame', function() { return user_env; }, `(parent.frame) - Return parent environment if called from inside function. - If no parent frame found it return nil.`), + Returns the parent environment if called from inside a function. + If no parent frame can be found it returns nil.`), // ------------------------------------------------------------------ 'eval': doc('eval', function(code, env) { env = env || this.get('current-environment').call(this); @@ -7696,9 +7759,10 @@ var global_env = new Environment({ } }); }, `(eval expr) - (eval expr environment) + (eval expr environment) - Function evalute LIPS Scheme code.`), + Function that evaluates LIPS Scheme code. If the second argument is provided + it will be the environment that the code is evaluated in.`), // ------------------------------------------------------------------ lambda: new Macro('lambda', function(code, { dynamic_scope, error } = {}) { var self = this; @@ -7784,12 +7848,12 @@ var global_env = new Environment({ // wrap and decorate with __doc__ return doc(set_fn_length(lambda, length), __doc__, true); }, `(lambda (a b) body) - (lambda args body) - (lambda (a b . rest) body) + (lambda args body) + (lambda (a b . rest) body) - Macro lambda create new anonymous function, if first element of the body - is string and there is more elements it will be documentation, that can - be read using (help fn)`), + The lambda macro creates a new anonymous function. If the first element of + the body is a string and there is more elements the string is used as the + documentation string, that can be read using (help fn).`), 'macroexpand': new Macro('macroexpand', macro_expand()), 'macroexpand-1': new Macro('macroexpand-1', macro_expand(true)), // ------------------------------------------------------------------ @@ -7857,12 +7921,13 @@ var global_env = new Environment({ } }), `(define-macro (name . args) body) - Meta macro, macro that create new macros, if return value is list structure - it will be evaluated when macro is invoked. You can use quasiquote \` and - unquote , and unquote-splicing ,@ inside to create expression that will be - evaluated on runtime. Macros works like this: if you pass any expression to - macro the arguments will not be evaluated unless macro itself evaluate it. - Because of this macro can manipulate expression (arguments) as lists.`), + The meta-macro, that creates new macros. If the return value is a list structure + it will be evaluated where the macro is invoked from. You can use quasiquote \` + and unquote , and unquote-splicing ,@ inside to create an expression that will be + evaluated at runtime. Macros works like this: if you pass any expression to a + macro the arguments will not be evaluated unless the macro's body explicitly + calls (eval) on it. Because of this a macro can manipulate the expression + (arguments) as lists.`), // ------------------------------------------------------------------ 'syntax-rules': new Macro('syntax-rules', function(macro, options) { var { dynamic_scope, error } = options; @@ -7969,33 +8034,30 @@ var global_env = new Environment({ return syntax; }, `(syntax-rules () (pattern expression) ...) - Base of Hygienic macro, it will return new syntax expander - that works like lisp macros.`), + Base of hygienic macros, it will return a new syntax expander + that works like Lisp macros.`), // ------------------------------------------------------------------ quote: doc(new Macro('quote', function(arg) { return quote(arg.car); - }), `(quote expression) + }), `(quote expression) or 'expression - Macro that return single lips expression as data (it don't evaluate its - argument). It will return list of pairs if put in front of lips code. - And if put in fron of symbol it will return that symbol not value - associated with that name.`), + Macro that returns a single LIPS expression as data (it won't evaluate the + argument). It will return a list if put in front of LIPS code. + And if put in front of a symbol it will return the symbol itself, not the value + bound to that name.`), 'unquote-splicing': doc('unquote-splicing', function() { throw new Error(`You can't call \`unquote-splicing\` outside of quasiquote`); - }, `(unquote-splicing code) + }, `(unquote-splicing code) or ,@code - Special form to be used in quasiquote macro, parser is processing special - characters ,@ and create call to this pseudo function. It can be used - to evalute expression inside and return the value without parenthesis. - the value will be joined to the output list structure.`), + Special form used in the quasiquote macro. It evaluates the expression inside and + splices the list into quasiquote's result. If it is not the last element of the + expression, the computed value must be a pair.`), 'unquote': doc('unquote', function() { throw new Error(`You can't call \`unquote\` outside of quasiquote`); - }, `(unquote code) + }, `(unquote code) or ,code - Special form to be used in quasiquote macro, parser is processing special - characters , and create call to this pseudo function. It can be used - to evalute expression inside and return the value, the output is inserted - into list structure created by queasiquote.`), + Special form used in the quasiquote macro. It evaluates the expression inside and + substitutes the value into quasiquote's result.`), // ------------------------------------------------------------------ quasiquote: Macro.defmacro('quasiquote', function(arg, env) { var { dynamic_scope, error } = env; @@ -8331,20 +8393,20 @@ var global_env = new Environment({ clear(value); return quote(value); }); - }, `(quasiquote list ,value ,@value) + }, `(quasiquote list) - Similar macro to \`quote\` but inside it you can use special - expressions unquote abbreviated to , that will evaluate expresion inside - and return its value or unquote-splicing abbreviated to ,@ that will - evaluate expression but return value without parenthesis (it will join) - the list with its value. Best used with macros but it can be used outside`), + Similar macro to \`quote\` but inside it you can use special expressions (unquote + x) abbreviated to ,x that will evaluate x and insert its value verbatim or + (unquote-splicing x) abbreviated to ,@x that will evaluate x and splice the value + into the result. Best used with macros but it can be used outside.`), // ------------------------------------------------------------------ clone: doc('clone', function clone(list) { typecheck('clone', list, 'pair'); return list.clone(); }, `(clone list) - Function return clone of the list.`), + Function that returns a clone of the list, that does not share any pairs with the + original, so the clone can be safely mutated without affecting the original.`), // ------------------------------------------------------------------ append: doc('append', function append(...items) { items = items.map(item => { @@ -8356,8 +8418,8 @@ var global_env = new Environment({ return global_env.get('append!').call(this, ...items); }, `(append item ...) - Function will create new list with eac argument appended to the end. - It will always return new list and not modify it's arguments.`), + Function that creates a new list with each argument appended end-to-end. + It will always return a new list and not modify its arguments.`), // ------------------------------------------------------------------ 'append!': doc('append!', function(...items) { var is_list = global_env.get('list?'); @@ -8379,9 +8441,9 @@ var global_env = new Environment({ }, nil); }, `(append! arg1 ...) - Destructive version of append, it modify the list in place. It return - new list where each argument is appened to the end. It may modify - lists added as arguments.`), + Destructive version of append, it can modify the lists in place. It returns + a new list where each argument is appended to the end. It may modify + lists added as arguments.`), // ------------------------------------------------------------------ reverse: doc('reverse', function reverse(arg) { typecheck('reverse', arg, ['array', 'pair', 'nil']); @@ -8398,8 +8460,8 @@ var global_env = new Environment({ } }, `(reverse list) - Function will reverse the list or array. If value is not a list - or array it will throw exception.`), + Function that reverses the list or array. If value is not a list + or array it will error.`), // ------------------------------------------------------------------ nth: doc('nth', function nth(index, obj) { typecheck('nth', index, 'number'); @@ -8422,14 +8484,14 @@ var global_env = new Environment({ } }, `(nth index obj) - Function return nth element of the list or array. If used with different - value it will throw exception`), + Function that returns the nth element of the list or array. + If used with a non-indexable value it will error.`), // ------------------------------------------------------------------ list: doc('list', function list(...args) { return args.reverse().reduce((list, item) => new Pair(item, list), nil); }, `(list . args) - Function create new list out of its arguments.`), + Function that creates a new list out of its arguments.`), // ------------------------------------------------------------------ substring: doc('substring', function substring(string, start, end) { typecheck('substring', string, 'string'); @@ -8438,14 +8500,15 @@ var global_env = new Environment({ return string.substring(start.valueOf(), end && end.valueOf()); }, `(substring string start end) - Function return part of the string starting at start ending with end.`), + Function that returns the slice of the string starting at start and ending + with end.`), // ------------------------------------------------------------------ concat: doc('concat', function concat(...args) { args.forEach((arg, i) => typecheck('concat', arg, 'string', i + 1)); return args.join(''); }, `(concat . strings) - Function create new string by joining its arguments`), + Function that creates a new string by joining its arguments.`), // ------------------------------------------------------------------ join: doc('join', function join(separator, list) { typecheck('join', separator, 'string'); @@ -8453,7 +8516,7 @@ var global_env = new Environment({ return global_env.get('list->array')(list).join(separator); }, `(join separator list) - Function return string by joining elements of the list`), + Function that returns a string by joining elements of the list using separator.`), // ------------------------------------------------------------------ split: doc('split', function split(separator, string) { typecheck('split', separator, ['regex', 'string']); @@ -8461,8 +8524,8 @@ var global_env = new Environment({ return global_env.get('array->list')(string.split(separator)); }, `(split separator string) - Function create list by splitting string by separatar that can - be a string or regular expression.`), + Function that creates a list by splitting string by separator which can + be a string or regular expression.`), // ------------------------------------------------------------------ replace: doc('replace', function replace(pattern, replacement, string) { typecheck('replace', pattern, ['regex', 'string']); @@ -8471,8 +8534,9 @@ var global_env = new Environment({ return string.replace(pattern, replacement); }, `(replace pattern replacement string) - Function change pattern to replacement inside string. Pattern can be string - or regex and replacement can be function or string.`), + Function that changes pattern to replacement inside string. Pattern can be a + string or regex and replacement can be function or string. See Javascript + String.replace().`), // ------------------------------------------------------------------ match: doc('match', function match(pattern, string) { typecheck('match', pattern, ['regex', 'string']); @@ -8481,7 +8545,8 @@ var global_env = new Environment({ return m ? global_env.get('array->list')(m) : false; }, `(match pattern string) - function return match object from JavaScript as list or #f if not match.`), + Function that returns a match object from JavaScript as a list or #f if + no match.`), // ------------------------------------------------------------------ search: doc('search', function search(pattern, string) { typecheck('search', pattern, ['regex', 'string']); @@ -8489,22 +8554,22 @@ var global_env = new Environment({ return string.search(pattern); }, `(search pattern string) - Function return first found index of the pattern inside a string`), + Function that returns the first found index of the pattern inside a string.`), // ------------------------------------------------------------------ repr: doc('repr', function repr(obj, quote) { return toString(obj, quote); }, `(repr obj) - Function return string LIPS representation of an object as string.`), + Function that returns a LIPS code representation of the object as a string.`), // ------------------------------------------------------------------ 'escape-regex': doc('escape-regex', function(string) { typecheck('escape-regex', string, 'string'); return escape_regex(string.valueOf()); }, `(escape-regex string) - Function return new string where all special operators used in regex, - are escaped with slash so they can be used in RegExp constructor - to match literal string`), + Function that returns a new string where all special operators used in regex, + are escaped with backslashes so they can be used in the RegExp constructor + to match a literal string.`), // ------------------------------------------------------------------ env: doc('env', function env(env) { env = env || this; @@ -8521,33 +8586,33 @@ var global_env = new Environment({ } return result; }, `(env) - (env obj) + (env obj) - Function return list of values (functions, macros and variables) - inside environment and it's parents.`), + Function that returns a list of names (functions, macros and variables) + that are bound in the current environment or one of its parents.`), // ------------------------------------------------------------------ 'new': doc('new', function(obj, ...args) { var instance = new (unbind(obj))(...args.map(x => unbox(x))); return instance; }, `(new obj . args) - Function create new JavaScript instance of an object.`), + Function that creates new JavaScript instance of an object.`), // ------------------------------------------------------------------ 'typecheck': doc( typecheck, `(typecheck label value type [position]) - Function check type and throw exception if type don't match. - Type can be string or list of strings. Position optional argument - is used to created proper error message.`), + Checks the type of value and errors if the type is not one allowed. Type can be + string or list of strings. The position optional argument is used to create a + proper error message for the nth argument of function calls.`), // ------------------------------------------------------------------ 'unset-special!': doc('unset-special!', function(symbol) { typecheck('remove-special!', symbol, 'string'); delete specials.remove(symbol.valueOf()); }, `(unset-special! name) - Function remove special symbol from parser. Added by \`set-special!\`, - name must be a string.`), + Function that removes a special symbol from parser added by \`set-special!\`, + name must be a string.`), // ------------------------------------------------------------------ 'set-special!': doc('set-special!', function(seq, name, type = specials.LITERAL) { typecheck('set-special!', seq, 'string', 1); @@ -8555,12 +8620,14 @@ var global_env = new Environment({ specials.append(seq.valueOf(), name, type); }, `(set-special! symbol name [type]) - Add special symbol to the list of transforming operators by the parser. - e.g.: \`(add-special! "#" 'x)\` will allow to use \`#(1 2 3)\` and it will be - transformed into (x (1 2 3)) so you can write x macro that will process - the list. 3rd argument is optional and it can be constant value - lips.specials.SPLICE if this constant is used it will transform - \`#(1 2 3)\` into (x 1 2 3) that is required by # that define vectors.`), + Add a special symbol to the list of transforming operators by the parser. + e.g.: \`(add-special! "#" 'x)\` will allow to use \`#(1 2 3)\` and it will be + transformed into (x (1 2 3)) so you can write x macro that will process + the list. 3rd argument is optional, and it can be one of two values: + lips.specials.LITERAL, which is the default behavior, or + lips.specials.SPLICE which causes the value to be unpacked into the expression. + This can be used for e.g. to make \`#(1 2 3)\` into (x 1 2 3) that is needed + by # that defines vectors.`), // ------------------------------------------------------------------ 'get': get, '.': get, @@ -8569,13 +8636,14 @@ var global_env = new Environment({ unbind, `(unbind fn) - Function remove bidning from function so you can get props from it.`), + Function that removes the weak 'this' binding from a function so you + can get properties from the actual function object.`), // ------------------------------------------------------------------ type: doc( type, `(type object) - Function return type of an object as string.`), + Function that returns the type of an object as string.`), // ------------------------------------------------------------------ 'debugger': doc('debugger', function() { /* eslint-disable */ @@ -8583,7 +8651,9 @@ var global_env = new Environment({ /* eslint-enable */ }, `(debugger) - Function stop JavaScript code in debugger.`), + Function that triggers the JavaScript debugger (e.g. the browser devtools) + using the "debugger;" statement. If a debugger is not running this + function does nothing.`), // ------------------------------------------------------------------ 'in': doc('in', function(a, b) { if (a instanceof LSymbol || @@ -8594,33 +8664,35 @@ var global_env = new Environment({ return a in unbox(b); }, `(in key value) - Function use is in operator to check if value is in object.`), + Function that uses the Javascript "in" operator to check if key is + a valid property in the value.`), // ------------------------------------------------------------------ 'instanceof': doc('instanceof', function(type, obj) { return obj instanceof unbind(type); }, `(instanceof type obj) - Function check of object is instance of object.`), + Predicate that tests if the obj is an instance of type.`), // ------------------------------------------------------------------ 'prototype?': doc( 'prototype?', is_prototype, `(prototype? obj) - Function check if value is JavaScript Object prototype.`), + Predicate that tests if value is a valid JavaScript prototype, + i.e. calling (new) with it will not throw '<x> is not a constructor'.`), // ------------------------------------------------------------------ 'macro?': doc('macro?', function(obj) { return obj instanceof Macro; }, `(macro? expression) - Function check if value is a macro.`), + Predicate that tests if value is a macro.`), // ------------------------------------------------------------------ 'function?': doc( 'function?', is_function, `(function? expression) - Function check if value is a function.`), + Predicate that tests if value is a callable function.`), // ------------------------------------------------------------------ 'real?': doc('real?', function(value) { if (type(value) !== 'number') { @@ -8632,55 +8704,56 @@ var global_env = new Environment({ return LNumber.isFloat(value); }, `(real? number) - Function check if value is real number.`), + Predicate that tests if value is a real number (not complex).`), // ------------------------------------------------------------------ 'number?': doc('number?', function(x) { return Number.isNaN(x) || LNumber.isNumber(x); }, `(number? expression) - Function check if value is a number or NaN value.`), + Predicate that tests if value is a number or NaN value.`), // ------------------------------------------------------------------ 'string?': doc('string?', function(obj) { return LString.isString(obj); }, `(string? expression) - Function check if value is a string.`), + Predicate that tests if value is a string.`), // ------------------------------------------------------------------ 'pair?': doc('pair?', function(obj) { return obj instanceof Pair; }, `(pair? expression) - Function check if value is a pair or list structure.`), + Predicate that tests if value is a pair or list structure.`), // ------------------------------------------------------------------ 'regex?': doc('regex?', function(obj) { return obj instanceof RegExp; }, `(regex? expression) - Function check if value is regular expression.`), + Predicate that tests if value is a regular expression.`), // ------------------------------------------------------------------ 'null?': doc('null?', function(obj) { return is_null(obj); }, `(null? expression) - Function check if value is nulish.`), + Predicate that tests if value is null-ish (i.e. undefined, nil, or + Javascript null).`), // ------------------------------------------------------------------ 'boolean?': doc('boolean?', function(obj) { return typeof obj === 'boolean'; }, `(boolean? expression) - Function check if value is boolean.`), + Predicate that tests if value is a boolean (#t or #f).`), // ------------------------------------------------------------------ 'symbol?': doc('symbol?', function(obj) { return obj instanceof LSymbol; }, `(symbol? expression) - Function check if value is LIPS symbol`), + Predicate that tests if value is a LIPS symbol.`), // ------------------------------------------------------------------ 'array?': doc('array?', function(obj) { return obj instanceof Array; }, `(array? expression) - Function check if value is an arrray.`), + Predicate that tests if value is an array.`), // ------------------------------------------------------------------ 'object?': doc('object?', function(obj) { return obj !== nil && obj !== null && @@ -8693,35 +8766,35 @@ var global_env = new Environment({ !(obj instanceof Array); }, `(object? expression) - Function check if value is an plain object.`), + Predicate that tests if value is an plain object (not another LIPS type).`), // ------------------------------------------------------------------ flatten: doc('flatten', function flatten(list) { typecheck('flatten', list, 'pair'); return list.flatten(); }, `(flatten list) - Return shallow list from tree structure (pairs).`), + Returns a shallow list from tree structure (pairs).`), // ------------------------------------------------------------------ 'array->list': doc('array->list', function(array) { typecheck('array->list', array, 'array'); return Pair.fromArray(array); }, `(array->list array) - Function convert JavaScript array to LIPS list.`), + Function that converts a JavaScript array to a LIPS cons list.`), // ------------------------------------------------------------------ 'tree->array': doc( 'tree->array', to_array('tree->array', true), `(tree->array list) - Function convert LIPS list structure into JavaScript array.`), + Function that converts a LIPS cons tree structure into a JavaScript array.`), // ------------------------------------------------------------------ 'list->array': doc( 'list->array', to_array('list->array'), `(list->array list) - Function convert LIPS list into JavaScript array.`), + Function that converts a LIPS list into a JavaScript array.`), // ------------------------------------------------------------------ apply: doc('apply', function apply(fn, ...args) { typecheck('apply', fn, 'function', 1); @@ -8731,7 +8804,7 @@ var global_env = new Environment({ return fn.apply(this, prepare_fn_args(fn, args)); }, `(apply fn list) - Function that call function with list of arguments.`), + Function that calls fn with the list of arguments.`), // ------------------------------------------------------------------ length: doc('length', function length(obj) { if (!obj || obj === nil) { @@ -8745,8 +8818,9 @@ var global_env = new Environment({ } }, `(length expression) - Function return length of the object, the object can be list - or any object that have length property.`), + Function that returns the length of the object. The object can be a LIPS + list or any object that has a "length" property. Returns undefined if the + length could not be found.`), // ------------------------------------------------------------------ 'string->number': doc('string->number', function(arg, radix = 10) { typecheck('string->number', arg, 'string', 1); @@ -8769,7 +8843,7 @@ var global_env = new Environment({ return false; }, `(string->number number [radix]) - Function convert string to number.`), + Function that parses a string into a number.`), // ------------------------------------------------------------------ 'try': doc(new Macro('try', function(code, { dynamic_scope, error }) { return new Promise((resolve, reject) => { @@ -8836,23 +8910,23 @@ var global_env = new Environment({ } }); }), `(try expr (catch (e) code)) - (try expr (catch (e) code) (finally code)) - (try expr (finally code)) + (try expr (catch (e) code) (finally code)) + (try expr (finally code)) - Macro execute user code and catch exception. If catch is provided - it's executed when expression expr throw error. If finally is provide - it's always executed at the end.`), + Macro that executes expr and catches any exceptions thrown. If catch is provided + it's executed when an error is thrown. If finally is provided it's always + executed at the end.`), // ------------------------------------------------------------------ 'raise': doc('raise', function(obj) { throw obj; }, `(raise obj) - Throws new exception with given object.`), + Throws the object verbatim (no wrapping an a new Error).`), 'throw': doc('throw', function(message) { throw new Error(message); }, `(throw string) - Throws new expection.`), + Throws a new exception.`), // ------------------------------------------------------------------ find: doc('find', function find(arg, list) { typecheck('find', arg, ['regex', 'function']); @@ -8868,10 +8942,10 @@ var global_env = new Environment({ return find(arg, list.cdr); }); }, `(find fn list) - (find regex list) + (find regex list) - Higher order Function find first value for which function return true. - If called with regex it will create matcher function.`), + Higher-order function that finds the first value for which fn return true. + If called with a regex it will create a matcher function.`), // ------------------------------------------------------------------ 'for-each': doc('for-each', function(fn, ...lists) { typecheck('for-each', fn, 'function'); @@ -8887,10 +8961,10 @@ var global_env = new Environment({ } }, `(for-each fn . lists) - Higher order function that call function \`fn\` by for each - value of the argument. If you provide more then one list as argument - it will take each value from each list and call \`fn\` function - with that many argument as number of list arguments.`), + Higher-order function that calls function \`fn\` on each + value of the argument. If you provide more than one list + it will take each value from each list and call \`fn\` function + with that many arguments as number of list arguments.`), // ------------------------------------------------------------------ map: doc('map', function map(fn, ...lists) { typecheck('map', fn, 'function'); @@ -8919,12 +8993,12 @@ var global_env = new Environment({ }); }, `(map fn . lists) - Higher order function that call function \`fn\` by for each - value of the argument. If you provide more then one list as argument - it will take each value from each list and call \`fn\` function - with that many argument as number of list arguments. The return - values of the function call is acumulated in result list and - returned by the call to map.`), + Higher-order function that calls function \`fn\` with each + value of the list. If you provide more then one list as argument + it will take each value from each list and call \`fn\` function + with that many argument as number of list arguments. The return + values of the fn calls are accumulated in a result list and + returned by map.`), // ------------------------------------------------------------------ 'list?': doc('list?', function(obj) { var node = obj; @@ -8942,8 +9016,8 @@ var global_env = new Environment({ } }, `(list? obj) - Function test if value is proper linked list structure. - The car of each pair can be any value. It return false on cycles."`), + Predicate that tests if value is a proper linked list structure. + The car of each pair can be any value. It returns false on cyclic lists."`), // ------------------------------------------------------------------ some: doc('some', function some(fn, list) { typecheck('some', fn, 'function'); @@ -8957,9 +9031,10 @@ var global_env = new Environment({ } }, `(some fn list) - Higher order function that call argument on each element of the list. - It stops when function fn return true for a value if so it will - return true. If none of the values give true, the function return false`), + Higher-order function that calls fn on each element of the list. + It stops and returns true when fn returns true for a value. + If none of the values give true, some will return false. + Analogous to Python any(map(fn, list)).`), // ------------------------------------------------------------------ fold: doc('fold', fold('fold', function(fold, fn, init, ...lists) { typecheck('fold', fn, 'function'); @@ -8975,10 +9050,10 @@ var global_env = new Environment({ }); }), `(fold fn init . lists) - Function fold is reverse of the reduce. it call function \`fn\` - on each elements of the list and return single value. - e.g. it call (fn a1 b1 (fn a2 b2 (fn a3 b3 '()))) - for: (fold fn '() alist blist)`), + Function fold is left-to-right reversal of reduce. It call \`fn\` + on each pair of elements of the list and returns a single value. + e.g. it computes (fn 'a 'x (fn 'b 'y (fn 'c 'z 'foo))) + for: (fold fn 'foo '(a b c) '(x y z))`), // ------------------------------------------------------------------ pluck: doc('pluck', function pluck(...keys) { return function(obj) { @@ -8995,11 +9070,12 @@ var global_env = new Environment({ }); return result; }; - }, `(pluck . string) + }, `(pluck . strings) - If called with single string it will return function that will return - key from object. If called with more then one argument function will - return new object by taking all properties from given object.`), + If called with a single string it will return a function that when + called with an object will return that key from the object. + If called with more then one string the returned function will + create a new object by copying all properties from the given object.`), // ------------------------------------------------------------------ reduce: doc('reduce', fold('reduce', function(reduce, fn, init, ...lists) { typecheck('reduce', fn, 'function'); @@ -9014,12 +9090,12 @@ var global_env = new Environment({ }); }), `(reduce fn init list . lists) - Higher order function take each element of the list and call - the function with result of previous call or init and next element - on the list until each element is processed and return single value - as result of last call to \`fn\` function. - e.g. it call (fn a3 b3 (fn a2 b2 (fn a1 b1 init))) - for (reduce fn init alist blist)`), + Higher-order function that takes each element of the list and calls + the fn with result of previous call or init and the next element + of the list until each element is processed, and returns a single value + as result of last call to \`fn\` function. + e.g. it computes (fn 'c 'z (fn 'b 'y (fn 'a 'x 'foo))) + for: (reduce fn 'foo '(a b c) '(x y z))`), // ------------------------------------------------------------------ filter: doc('filter', function filter(arg, list) { typecheck('filter', arg, ['regex', 'function']); @@ -9041,44 +9117,42 @@ var global_env = new Environment({ return unpromise(fn(item), next); })(0); }, `(filter fn list) - (filter regex list) + (filter regex list) - Higher order function that call \`fn\` for each element of the list - and return list for only those elements for which funtion return - true value. If called with regex it will create matcher function.`), + Higher-order function that calls \`fn\` for each element of the list + and return a new list for only those elements for which fn returns + a truthy value. If called with a regex it will create a matcher function.`), // ------------------------------------------------------------------ compose: doc( compose, `(compose . fns) - Higher order function and create new function that apply all functions - From right to left and return it's value. Reverse of compose. - e.g.: - ((compose (curry + 2) (curry * 3)) 3) - 11 - `), + Higher-order function that creates a new function that applies all functions + from right to left and returns the last value. Reverse of pipe. + e.g.: + ((compose (curry + 2) (curry * 3)) 10) --> (+ 2 (* 3 10)) --> 32`), pipe: doc( pipe, `(pipe . fns) - Higher order function and create new function that apply all functions - From left to right and return it's value. Reverse of compose. - e.g.: - ((pipe (curry + 2) (curry * 3)) 3) - 15`), + Higher-order function that creates a new function that applies all functions + from left to right and returns the last value. Reverse of compose. + e.g.: + ((pipe (curry + 2) (curry * 3)) 10) --> (* 3 (+ 2 10)) --> 36`), curry: doc( curry, `(curry fn . args) - Higher order function that create curried version of the function. - The result function will have parially applied arguments and it - will keep returning functions until all arguments are added + Higher-order function that creates a curried version of the function. + The result function will have partially applied arguments and it + will keep returning one-argument functions until all arguments are provided, + then it calls the original function with the accumulated arguments. - e.g.: - (define (add a b c d) (+ a b c d)) - (define add1 (curry add 1)) - (define add12 (add 2)) - (display (add12 3 4))`), + e.g.: + (define (add a b c d) (+ a b c d)) + (define add1 (curry add 1)) + (define add12 (add 2)) + (display (add12 3 4))`), // ------------------------------------------------------------------ // Numbers // ------------------------------------------------------------------ @@ -9089,7 +9163,7 @@ var global_env = new Environment({ }); }, `(gcd n1 n2 ...) - Function return the greatest common divisor of their arguments.`), + Function that returns the greatest common divisor of the arguments.`), // ------------------------------------------------------------------ lcm: doc('lcm', function lcm(...args) { typecheck_args('lcm', args, 'number'); @@ -9105,33 +9179,33 @@ var global_env = new Environment({ return LNumber(a); }, `(lcm n1 n2 ...) - Function return the least common multiple of their arguments.`), + Function that returns the least common multiple of the arguments.`), // ------------------------------------------------------------------ 'odd?': doc('odd?', single_math_op(function(num) { return LNumber(num).isOdd(); }), `(odd? number) - Function check if number os odd.`), + Checks if number is odd.`), // ------------------------------------------------------------------ 'even?': doc('even?', single_math_op(function(num) { return LNumber(num).isEven(); }), `(even? number) - Function check if number is even.`), + Checks if number is even.`), // ------------------------------------------------------------------ // math functions '*': doc('*', reduce_math_op(function(a, b) { return LNumber(a).mul(b); }, LNumber(1)), `(* . numbers) - Multiplicate all numbers passed as arguments. If single value is passed + Multiplies all numbers passed as arguments. If single value is passed it will return that value.`), // ------------------------------------------------------------------ '+': doc('+', reduce_math_op(function(a, b) { return LNumber(a).add(b); }, LNumber(0)), `(+ . numbers) - Sum all numbers passed as arguments. If single value is passed it will + Sums all numbers passed as arguments. If single value is passed it will return that value.`), // ------------------------------------------------------------------ '-': doc('-', function(...args) { @@ -9148,10 +9222,10 @@ var global_env = new Environment({ })); } }, `(- n1 n2 ...) - (- n) + (- n) - Substract number passed as argument. If only one argument is passed - it will negate the value.`), + Subtracts n2 and subsequent numbers from n1. If only one argument is passed + it will negate the value.`), // ------------------------------------------------------------------ '/': doc('/', function(...args) { if (args.length === 0) { @@ -9165,16 +9239,16 @@ var global_env = new Environment({ return LNumber(a).div(b); })); }, `(/ n1 n2 ...) - (/ n) + (/ n) - Divide number passed as arguments one by one. If single argument - is passed it will calculate (/ 1 n1).`), + Divides n1 by n2 and subsequent arguments one by one. If single argument + is passed it will calculate (/ 1 n).`), // ------------------------------------------------------------------ abs: doc('abs', single_math_op(function(n) { return LNumber(n).abs(); }), `(abs number) - Function create absolute value from number.`), + Function that returns the absolute value (magnitude) of number.`), // ------------------------------------------------------------------ truncate: doc('truncate', function(n) { typecheck('truncate', n, 'number'); @@ -9187,13 +9261,13 @@ var global_env = new Environment({ return n; }, `(truncate n) - Function return integer value from real number.`), + Function that returns the integer part (floor) of a real number.`), // ------------------------------------------------------------------ sqrt: doc('sqrt', single_math_op(function(n) { return LNumber(n).sqrt(); }), `(sqrt number) - Function return square root of the number.`), + Function that returns the square root of the number.`), // ------------------------------------------------------------------ '**': doc('**', binary_math_op(function(a, b) { a = LNumber(a); @@ -9204,26 +9278,26 @@ var global_env = new Environment({ return a.pow(b); }), `(** a b) - Function calculate number a to to the power of b.`), + Function that calculates number a to to the power of b.`), // ------------------------------------------------------------------ '1+': doc('1+', single_math_op(function(number) { return LNumber(number).add(1); }), `(1+ number) - Function add 1 to the number and return result.`), + Function that adds 1 to the number and return result.`), // ------------------------------------------------------------------ '1-': doc(single_math_op(function(number) { return LNumber(number).sub(1); }), `(1- number) - Function substract 1 from the number and return result.`), + Function that subtracts 1 from the number and return result.`), // ------------------------------------------------------------------ '%': doc('%', function(a, b) { typecheck_args('%', [a, b], 'number'); return LNumber(a).rem(b); }, `(% n1 n2) - Function get reminder of it's arguments.`), + Function returns the remainder of n1/n2 (modulo).`), // ------------------------------------------------------------------ // Booleans '==': doc('==', function(...args) { @@ -9231,46 +9305,47 @@ var global_env = new Environment({ return seq_compare((a, b) => LNumber(a).cmp(b) === 0, args); }, `(== x1 x2 ...) - Function compare its numerical arguments and check if they are equal`), + Function that compares its numerical arguments and checks if they are + all equal.`), // ------------------------------------------------------------------ '>': doc('>', function(...args) { typecheck_args('>', args, 'number'); return seq_compare((a, b) => LNumber(a).cmp(b) === 1, args); - }, `(> x1 x2 ...) + }, `(> x1 x2 x3 ...) - Function compare its numerical arguments and check if they are - monotonically increasing`), + Function that compares its numerical arguments and checks if they are + monotonically decreasing, i.e. x1 > x2 and x2 > x3 and so on.`), // ------------------------------------------------------------------ '<': doc('<', function(...args) { typecheck_args('<', args, 'number'); return seq_compare((a, b) => LNumber(a).cmp(b) === -1, args); }, `(< x1 x2 ...) - Function compare its numerical arguments and check if they are - monotonically decreasing`), + Function that compares its numerical arguments and checks if they are + monotonically increasing, i.e. x1 < x2 and x2 < x3 and so on.`), // ------------------------------------------------------------------ '<=': doc('<=', function(...args) { typecheck_args('<=', args, 'number'); return seq_compare((a, b) => [0, -1].includes(LNumber(a).cmp(b)), args); }, `(<= x1 x2 ...) - Function compare its numerical arguments and check if they are - monotonically nonincreasing`), + Function that compares its numerical arguments and checks if they are + monotonically nondecreasing, i.e. x1 <= x2 and x2 <= x3 and so on.`), // ------------------------------------------------------------------ '>=': doc('>=', function(...args) { typecheck_args('>=', args, 'number'); return seq_compare((a, b) => [0, 1].includes(LNumber(a).cmp(b)), args); }, `(>= x1 x2 ...) - Function compare its numerical arguments and check if they are - monotonically nondecreasing`), + Function that compares its numerical arguments and checks if they are + monotonically nonincreasing, i.e. x1 >= x2 and x2 >= x3 and so on.`), // ------------------------------------------------------------------ 'eq?': doc( 'eq?', equal, `(eq? a b) - Function compare two values if they are identical.`), + Function that compares two values if they are identical.`), // ------------------------------------------------------------------ or: doc(new Macro('or', function(code, { dynamic_scope, error }) { var args = global_env.get('list->array')(code); @@ -9305,8 +9380,9 @@ var global_env = new Environment({ })(); }), `(or . expressions) - Macro execute the values one by one and return the one that is truthy value. - If there are no expression that evaluate to true it return false.`), + Macro that executes the values one by one and returns the first that is + a truthy value. If there are no expressions that evaluate to true it + returns false.`), // ------------------------------------------------------------------ and: doc(new Macro('and', function(code, { dynamic_scope, error } = {}) { var args = global_env.get('list->array')(code); @@ -9341,35 +9417,35 @@ var global_env = new Environment({ })(); }), `(and . expressions) - Macro evalute each expression in sequence if any value return false it will - return false. If each value return true it will return the last value. - If it's called without arguments it will return true.`), + Macro that evaluates each expression in sequence and if any value returns false + it will stop and return false. If each value returns true it will return the + last value. If it's called without arguments it will return true.`), // bit operations '|': doc('|', function(a, b) { return LNumber(a).or(b); }, `(| a b) - Function calculate or bit operation.`), + Function that calculates the bitwise or operation.`), '&': doc('&', function(a, b) { return LNumber(a).and(b); }, `(& a b) - Function calculate and bit operation.`), + Function that calculates the bitwise and operation.`), '~': doc('~', function(a) { return LNumber(a).neg(); }, `(~ number) - Function negate the value.`), + Function that calculates the bitwise inverse (flip all the bits).`), '>>': doc('>>', function(a, b) { return LNumber(a).shr(b); }, `(>> a b) - Function right shit the value a by value b.`), + Function that right shifts the value a by value b bits.`), '<<': doc('<<', function(a, b) { return LNumber(a).shl(b); }, `(<< a b) - Function left shit the value a by value b.`), + Function that left shifts the value a by value b bits.`), not: doc('not', function not(value) { if (is_null(value)) { return true; @@ -9377,7 +9453,7 @@ var global_env = new Environment({ return !value; }, `(not object) - Function return negation of the argument.`) + Function that returns the Boolean negation of its argument.`) }, undefined, 'global'); var user_env = global_env.inherit('user-env'); // ------------------------------------------------------------------------- @@ -9387,10 +9463,10 @@ function set_interaction_env(interaction, internal) { '**internal-env**', `**internal-env** - Constant used to hide stdin, stdout and stderr so they don't interfere - with variables with the same name. Constants are internal type - of variables that can't be redefined, defining variable with same name - will throw an error.` + Constant used to hide stdin, stdout and stderr so they don't interfere + with variables with the same name. Constants are an internal type + of variable that can't be redefined, defining a variable with the same name + will throw an error.` ); global_env.set('**interaction-environment**', interaction); } @@ -9400,9 +9476,9 @@ global_env.doc( '**interaction-environment**', `**interaction-environment** - Internal dynamic, global variable used to find interpreter environment. - It's used so the read and write functions can locate **internal-env** - that contain references to stdin, stdout and stderr.` + Internal dynamic, global variable used to find interpreter environment. + It's used so the read and write functions can locate **internal-env** + that contains the references to stdin, stdout and stderr.` ); // ------------------------------------------------------------------------- (function() { @@ -9416,7 +9492,7 @@ global_env.doc( } }, `(${name} number) - Function calculate ${name} of a number.`)); + Function that calculates the ${name} of a number.`)); }); })(); // ------------------------------------------------------------------------- @@ -9468,7 +9544,7 @@ combinations(['d', 'a'], 2, 5).forEach(spec => { }, arg); }, `(${name} arg) - Function calculate ${code}`)); + Function that calculates ${code}`)); }); // ----------------------------------------------------------------------------- function reversseFind(dir, fn) { @@ -9514,7 +9590,9 @@ async function node_specific() { return nodeRequire.resolve(name); }, `(require.resolve path) - Return path relative the current module.`)); + Returns the path relative to the current module. + + Only available when LIPS is running under Node.js.`)); // --------------------------------------------------------------------- global_env.set('require', doc('require', function(module) { typecheck('require', module, 'string'); @@ -9538,7 +9616,7 @@ async function node_specific() { return patch_value(value, global); }, `(require module) - Function to be used inside Node.js to import the module.`)); + Function used inside Node.js to import a module.`)); } // ------------------------------------------------------------------------- if (is_node()) { @@ -9559,11 +9637,12 @@ function typeErrorMessage(fn, got, expected, position = null) { postfix += ` (argument ${position})`; } if (is_function(expected)) { - return `Invalid type got ${got}${postfix}`; + return `Invalid type: got ${got}${postfix}`; } if (expected instanceof Array) { if (expected.length === 1) { - expected = expected[0]; + const first = expected[0].toLowerCase(); + expected = 'a' + ('aeiou'.includes(first) ? 'n ' : ' ') + expected[0]; } else { const last = expected[expected.length - 1]; expected = expected.slice(0, -1).join(', ') + ' or ' + last; @@ -9949,7 +10028,7 @@ function evaluate(code, { env, dynamic_scope, error = noop } = {}) { var __promise__ = env.get(Symbol.for('__promise__'), { throwError: false }); if (__promise__ === true && is_promise(result)) { // fix #139 evaluate the code inside the promise that is not data. - // When promise is not quoted it happen automatically, when returing + // When promise is not quoted it happen automatically, when returning // promise from evaluate. result = result.then(result => { if (result instanceof Pair && !value[__data__]) { @@ -10135,7 +10214,7 @@ function Worker(url) { } if (data.method === 'eval') { if (!init) { - send_error('Worker RPC: LIPS not initilized, call init first'); + send_error('Worker RPC: LIPS not initialized, call init first'); return; } init.then(function() { @@ -10416,7 +10495,7 @@ function execError(e) { // ------------------------------------------------------------------------- function init() { var lips_mimes = ['text/x-lips', 'text/x-scheme']; - var bootstraped; + var bootstrapped; function load(script) { return new Promise(function(resolve) { var src = script.getAttribute('src'); @@ -10446,7 +10525,7 @@ function init() { var type = script.getAttribute('type'); if (lips_mimes.includes(type)) { var bootstrap_attr = script.getAttribute('bootstrap'); - if (!bootstraped && typeof bootstrap_attr === 'string') { + if (!bootstrapped && typeof bootstrap_attr === 'string') { return bootstrap(bootstrap_attr).then(function() { return load(script, function(e) { console.error(e); @@ -10473,7 +10552,7 @@ function init() { var bootstrap_attr = script.getAttribute('bootstrap'); if (typeof bootstrap_attr === 'string') { return bootstrap(bootstrap_attr).then(function() { - bootstraped = true; + bootstrapped = true; return loop(); }); } @@ -10491,7 +10570,7 @@ if (typeof window !== 'undefined') { var banner = (function() { // Rollup tree-shaking is removing the variable if it's normal string because // obviously '{{DATE}}' == '{{' + 'DATE}}'; can be removed - // but disablig Tree-shaking is adding lot of not used code so we use this + // but disabling Tree-shaking is adding lot of not used code so we use this // hack instead var date = LString('{{DATE}}').valueOf(); var _date = date === '{{' + 'DATE}}' ? new Date() : new Date(date); @@ -10514,7 +10593,7 @@ LIPS Interpreter {{VER}} (${_build}) <https://lips.js.org> Copyright (c) 2018-${_year} Jakub T. Jankiewicz Type (env) to see environment with functions macros and variables. You can also -use (help name) to display help for specic function or macro, (apropos name) +use (help name) to display help for specific function or macro, (apropos name) to display list of matched names in environment and (dir object) to list properties of an object. `.replace(/^.*\n/, ''); diff --git a/templates/Makefile b/templates/Makefile index 0f1cb54ee..fa228e370 100755 --- a/templates/Makefile +++ b/templates/Makefile @@ -1,4 +1,4 @@ -.PHONY: publish test coveralls lint zero +.PHONY: publish test coveralls lint zero coverage VERSION={{VERSION}} VERSION_DASH=`echo -n "{{VERSION}}" | sed "s/-/%E2%80%93/"` @@ -65,10 +65,10 @@ assets/classDiagram.svg: assets/classDiagram README.md: templates/README.md dist/lips.js .$(VERSION) $(GIT) branch | grep '* devel' > /dev/null && $(SED) -e "s/{{VER}}/DEV/g" -e \ - "s/{{VER_DASH}}/$(VERSION_DASH)/g" -e "s/{{BRANCH}}/$(BRANCH)/g" -e "s/{{CHECKSUM}}/$(TESTS_CHECKSUM)/g" \ + "s/{{VER_DASH}}/$(VERSION_DASH)/g" -e "s#{{BRANCH}}#$(BRANCH)#g" -e "s/{{CHECKSUM}}/$(TESTS_CHECKSUM)/g" \ -e "s/{{YEAR}}/${YEAR}/g" -e "s/{{DATE}}/${DATE_SHORT}/" -e "s/{{COMMIT}}/$(COMMIT)/g" \ < templates/README.md > README.md || \ - $(SED) -e "s/{{VER}}/$(VERSION)/g" -e "s/{{BRANCH}}/$(BRANCH)/g" -e "s/{{YEAR}}/${YEAR}/g" \ + $(SED) -e "s/{{VER}}/$(VERSION)/g" -e "s#{{BRANCH}}#$(BRANCH)#g" -e "s/{{YEAR}}/${YEAR}/g" \ -e "s/{{CHECKSUM}}/$(TESTS_CHECKSUM)/g" -e "s/{{COMMIT}}/$(COMMIT)/g" -e "s/{{DATE}}/${DATE_SHORT}/" \ -e "s/{{VER_DASH}}/$(VERSION_DASH)/g" < templates/README.md > README.md @@ -112,7 +112,7 @@ watch-lint: watch-make: @inotifywait -m -e close_write src/lips.js | while read even; do $(MAKE) --no-print-directory; done -coveralls: +coverage: $(NPM) run coverage lint: diff --git a/templates/README.md b/templates/README.md index b40290e9e..c1422a527 100644 --- a/templates/README.md +++ b/templates/README.md @@ -6,7 +6,7 @@ [![npm](https://img.shields.io/badge/npm-{{VER_DASH}}-blue.svg)](https://www.npmjs.com/package/@jcubic/lips) ![1.0.0 Complete](https://img.shields.io/github/milestones/progress-percent/jcubic/lips/1?label=1.0.0%20Complete) -[![travis](https://travis-ci.com/jcubic/lips.svg?branch={{BRANCH}}&{{COMMIT}})](https://travis-ci.com/github/jcubic/lips) +[![Build and test](https://github.com/jcubic/lips/actions/workflows/build.yaml/badge.svg?branch={{BRANCH}}&event=push)](https://github.com/jcubic/lips/actions/workflows/build.yaml) [![Coverage Status](https://coveralls.io/repos/github/jcubic/lips/badge.svg?branch={{BRANCH}}&{{CHECKSUM}})](https://coveralls.io/github/jcubic/lips?branch={{BRANCH}}) [![Join Gitter Chat](https://badges.gitter.im/Join%20Chat.svg)](https://gitter.im/jcubic/lips) ![NPM Download Count](https://img.shields.io/npm/dm/@jcubic/lips) @@ -79,7 +79,7 @@ https://github.com/jcubic/lips/blob/master/lib/js/bookmark.js ``` Create any link in your bookmarks, edit it and copy paste the content of that file. -Affter you click on the link it will create the REPL at the bottom of the page. +After you click on the link it will create the REPL at the bottom of the page. (NOTE: It may not work on every page because of content security policy; e.g. google.com or gihub.com) @@ -95,7 +95,7 @@ The simplest way is to include the lips code in the script tag: <script type="text/x-scheme" bootstrap> (let ((what "world") (greet "hello")) - (display (string-append "hello" " " what))) + (display (string-append greet " " what))) </script> ``` @@ -203,7 +203,7 @@ Executables also return a S-Expression according to SRFI-176 use `lips --version ## Limitations Because LIPS is tree walking interpreter sometimes it may be slow. Especially if you want to -process long arrays and use callback function. If the array is quite large each pice of code +process long arrays and use callback function. If the array is quite large each piece of code inside the callback may slow down the processing. For example see: script [reference.scm](https://github.com/jcubic/lips/blob/{{BRANCH}}/scripts/reference.scm) @@ -222,12 +222,12 @@ something like this: (arr.sort fn)) ``` -Another example of slow performace is using LIPS with React, the more code you put into components +Another example of slow performance is using LIPS with React, the more code you put into components the slower the app will become. Examples: * [Preact app that update SVG](https://codepen.io/jcubic/pen/PojYxBP) - it requires to use debounce. -* [React with Hooks](https://codepen.io/jcubic/pen/PoKQmpq?editors=1000) - on click the UI freezes for ~300ms, you can see warnigs in dev tools. +* [React with Hooks](https://codepen.io/jcubic/pen/PoKQmpq?editors=1000) - on click the UI freezes for ~300ms, you can see warnings in dev tools. The issue with performance is tracked in [#197](https://github.com/jcubic/lips/issues/197). diff --git a/tests/core.scm b/tests/core.scm index 8963c4eeb..240965173 100644 --- a/tests/core.scm +++ b/tests/core.scm @@ -91,13 +91,14 @@ (set! obj.x 10) (t.is obj &(:x 10 :y &(:foo "bar")))))) -#;(test "core: it should throw when change object literals long property after short property" +(test "core: it should throw when change object literals long property after short property" (lambda (t) (let ((obj &(:x :y 20))) (set! obj.x 10) (t.is (to.throw (set! obj.y 30)) true) (t.is obj &(:x 10 :y 20))))) + (test "core: it should throw when change nested object in shorthand object literals" (lambda (t) (let ((obj &(:x :y &(:foo "bar")))) @@ -305,10 +306,12 @@ (test "core: regex" (lambda (t) - (let* ((str "#/(\\((?:env|dir|help|apropos)[^)]*\\))/g") - (re (. (lips.parse str) 0))) - (t.is (regex? re) true) - (t.is (repr re) str)))) + (for-each (lambda (str) + (let ((re (. (lips.parse str) 0))) + (t.is (regex? re) true) + (t.is (repr re) str))) + '("#/(\\((?:env|dir|help|apropos)[^)]*\\))/g" + "#/u[0-9]+/")))) ;; regex for #238 (test "core: try..catch" (lambda (t) diff --git a/tests/helpers/helpers.scm b/tests/helpers/helpers.scm index b30920c04..ea09d5659 100644 --- a/tests/helpers/helpers.scm +++ b/tests/helpers/helpers.scm @@ -2,7 +2,7 @@ "(t.is a b) Helper comparator for ava. It use equal? so it match two lists and strings. - It use undecumented API that allow to delete StackTrace when assersion fail." + It use undecumented API that allow to delete StackTrace when assertion fail." (let ((attempt (gensym)) (a_name (gensym)) (b_name (gensym))) @@ -35,7 +35,7 @@ (define (%test-specs t specs) "(%test-specs t list) - Funtion test list of specs (\"name\" function result . args)" + Function test list of specs (\"name\" function result . args)" (let iter ((specs specs)) (if (not (null? specs)) (let* ((spec (car specs)) diff --git a/tests/numbers.scm b/tests/numbers.scm index 4e9cd6e5d..8b64c240f 100644 --- a/tests/numbers.scm +++ b/tests/numbers.scm @@ -45,7 +45,7 @@ (t.is (number->string 10.0-nan.0i) "10.0+nan.0i") (t.is (number->string 1/2-nan.0i) "1/2+nan.0i"))) -(test "numbers: operators + with NaN" +(test "numbers: operator + with NaN" (lambda (t) (t.is (+ +nan.0+nan.0i 10) +nan.0+nan.0i) (t.is (+ +nan.0+nan.0i 10.0) +nan.0+nan.0i) @@ -101,7 +101,7 @@ (t.is (+ 1/2 +nan.0) +nan.0) (t.is (+ 10+10i +nan.0) +nan.0+10i))) -(test "numbers: operators + with +inf.0" +(test "numbers: operator + with +inf.0" (lambda (t) (t.is (+ +inf.0+inf.0i 10) +inf.0+inf.0i) (t.is (+ +inf.0+inf.0i 10.0) +inf.0+inf.0i) @@ -157,7 +157,7 @@ (t.is (+ 1/2 +inf.0) +inf.0) (t.is (+ 10+10i +inf.0) +inf.0+10i))) -(test "operators: / with NaN" +(test "numbers: operator / with NaN" (lambda (t) (t.is (/ +nan.0+nan.0i 10) +nan.0+nan.0i) (t.is (/ +nan.0+nan.0i 10.0) +nan.0+nan.0i) @@ -504,7 +504,7 @@ (t.is (remainder -13 -4.0) -1.0))) -(test "numbers: operators +" +(test "numbers: operator +" (lambda (t) (t.is (+ 1 1.0 1/10) 2.1) (t.is (number->string (+ 1/2 1/2 1.0)) "2.0") @@ -564,7 +564,7 @@ (t.is (+ 1/2+0.1i 1/2) 1+0.1i) (t.is (+ 1/2+0.1i 0.1) 0.6+0.1i))) -(test "numbers: operators -" +(test "numbers: operator -" (lambda (t) (t.is (- 1 1.0 1/10) -0.1) (t.is (number->string (- 1/2 1/2 1.0)) "-1.0") @@ -626,13 +626,26 @@ (t.is (- 1/2+0.1i 1/2) 0.1i) (t.is (- 1/2+0.1i 0.1) 0.4+0.1i))) -(test "numbers: operators /" +(test "numbers: operator /" (lambda (t) ;; single arg (t.is (/ 10) 1/10) (t.is (/ 10.0) 0.1) (t.is (/ 1/10) 10) + (t.is (/ 10+10i) 1/20-1/20i) + (t.is (/ 0.1+0.1i) 5.0-5.0i) + (t.is (/ 1/10+1/10i) 5-5i) + + (t.is (/ 1/10+0.1i) 5-5.0i) + (t.is (/ 1/10+10i) 10/10001-1000/10001i) + + (t.is (/ 0.1+1/10i) 4.999999999999999-4.999999999999999i) + (t.is (/ 0.1+10i) 0.000999900009999-0.0999900009999i) + + (t.is (/ 10+1/10i) 1000/10001-10/10001i) + (t.is (/ 10+0.1i) 0.0999900009999-0.000999900009999i) + (t.is (/ 10 10) 1) (t.is (/ 10 1/10) 100) @@ -640,6 +653,11 @@ (t.is (/ 10 3) 10/3) (t.is (/ 10 2.0) 5.0) + (t.is (/ 10+10i 10+10i) 1) + (t.is (/ 0.1+0.1i 0.1+0.1i) 1.0) + (t.is (/ 1/10+1/10i 1/10+1/10i) 1) + (t.is (/ 3+6i 2+4i) 3/2) + (t.is (/ 1 10+10i) 1/20-1/20i) (t.is (/ 1 10+10.0i) 0.05-0.05i) (t.is (/ 1 10+1/10i) 1000/10001-10/10001i) @@ -672,6 +690,9 @@ (t.is (/ 1.0 2) 0.5) (t.is (/ 1.0 1/10) 10.0) + (t.is (/ 2 1.0) 2.0) + (t.is (/ 1/10 1.0) 0.1) + (t.is (/ 1.0 1+1i) 0.5-0.5i) (t.is (/ 1.0 1+1.0i) 0.5-0.5i) (t.is (/ 1.0 1+1/2i) 0.8-0.4i) @@ -682,9 +703,21 @@ (t.is (/ 1.0 1/2+1/2i) 1.0-1.0i) (t.is (/ 1.0 1/2+1.0i) 0.4-0.8i) - (t.is (/ 1.0 1/2+1i) 0.4-0.8i))) + (t.is (/ 1.0 1/2+1i) 0.4-0.8i) + + (t.is (/ 1+1i 1.0) 1.0+1.0i) + (t.is (/ 1+1.0i 1.0) 1.0+1.0i) + (t.is (/ 1+1/2i 1.0) 1.0+0.5i) + + (t.is (/ 1.0+1.0i 1.0) 1.0+1.0i) + (t.is (/ 1.0+1i 1.0) 1.0+1.0i) + (t.is (/ 1.0+1/2i 1.0) 1.0+0.5i) -(test "numbers: operators *" + (t.is (/ 1/2+1/2i 1.0) 0.5+0.5i) + (t.is (/ 1/2+1.0i 1.0) 0.5+1.0i) + (t.is (/ 1/2+1i 1.0) 0.5+1.0i))) + +(test "numbers: operator *" (lambda (t) (t.is (* 10 10) 100) (t.is (* 10 1/10) 1) @@ -765,10 +798,24 @@ (t.is (sqrt -9) 3i))) +(test.failing "numbers: expt" + (lambda (t) + (for-each (lambda (x) + (let ((base (car x)) + (expontent (cadr x)) + (result (caddr x))) + (t.is (= (expt base expontent) result) #t))) + '((1/2 2 1/4) + #;(10+10i 10 ...) + (9 1/2 9.0) + (2 1/2 1.4142135623730951) + (3.0 10 59049.0) + (10 3.0 1000.0))))) + (test "numbers: eq?" (lambda (t) - ;; eq? on numbers is unspecifed - in lisp if two numbers are the same + ;; eq? on numbers is unspecified - in lisp if two numbers are the same ;; but not the same object they are equal (t.is (eq? 10.0i 10i) #f) @@ -898,7 +945,7 @@ (t.is (exact->inexact 1/2+10i) 0.5+10.0i) (t.is (exact->inexact 1/2+10.0i) 0.5+10.0i))) -(test "operation: exp" +(test "numbers: operation exp" (lambda (t) ;; big int (t.is (exp 2) 7.38905609893065) @@ -914,3 +961,48 @@ (t.is (exp -2-2i) -0.05631934999212789-0.12306002480577674i) (t.is (exp +2-2i) -3.074932320639359-6.71884969742825i) (t.is (exp -2+2i) -0.05631934999212789+0.12306002480577674i))) + +(test "numbers: sin" + (lambda (t) + (for-each (lambda (l) + (let ((num (car l)) + (result (cadr l))) + (t.is (= (sin num) result) #t))) + '((10 -0.5440211108893698) + (1/2 0.479425538604203) + (-1/2 -0.479425538604203) + (10+10i -5991.431207677988-9240.89014825243i) + (1/2+1/2i 0.5406126857131534+0.4573041531842493i) + (1/2i +0.5210953054937474i) + (0.5+0.5i 0.5406126857131534+0.4573041531842493i) + (0.5i +0.5210953054937474i))))) + +(test "numbers: cos" + (lambda (t) + (for-each (lambda (l) + (let* ((num (car l)) + (result (cadr l))) + (t.is (= (cos num) result) #t))) + '((10 -0.8390715290764524) + (1/2 0.8775825618903728) + (-1/2 0.8775825618903728) + (10+10i -9240.89018634622+5991.431182979468i) + (1/2+1/2i 0.9895848833999199-0.24982639750046154i) + (+1/2i 1.1276259652063807) + (0.5+0.5i 0.9895848833999199-0.24982639750046154i) + (+0.5i 1.1276259652063807))))) + +(test "numbers: tan" + (lambda (t) + (for-each (lambda (l) + (let* ((num (car l)) + (result (cadr l))) + (t.is (= (tan num) result) #t))) + '((10 0.6483608274590866) + (1/2 0.5463024898437905) + (-1/2 -0.5463024898437905) + (10.0+10.0i 3.763440814919645e-9+0.9999999983177603i) + (0.5+0.5i 0.40389645531602575+0.5640831412674985i) + (0.5i +0.46211715726000974i) + (1/2+1/2i 0.40389645531602575+0.5640831412674985i) + (+1/2i +0.46211715726000974i))))) diff --git a/tests/parser.scm b/tests/parser.scm index 907c106e1..3872c777f 100644 --- a/tests/parser.scm +++ b/tests/parser.scm @@ -109,6 +109,7 @@ (t.is (list #;(foo bar (quux)) 10 20) (list 10 20)) (t.is (list #;foo 10 20) (list 10 20)) (t.is (list 10 #;10+10i 20) (list 10 20)) + (t.is (list #;#;42 10 10) (list 10)) (t.is (list 10 ;foo bar 20) (list 10 @@ -150,6 +151,10 @@ 1)")) (t.is (eval (. code 0)) "hello-world"))) +(test "parser: processing strings" + (lambda (t) + (define list "\\" "\"" "\\\\" "\\\"") + (t.is true true))) (test "parse: datum labels" (lambda (t) diff --git a/tests/quotation.scm b/tests/quotation.scm index 9ad68bcbb..3d14d1a29 100644 --- a/tests/quotation.scm +++ b/tests/quotation.scm @@ -9,7 +9,7 @@ Iteration macro that evaluate the expression body in scope of the variables. On Eeach loop it increase the variables according to next expression and run - test to check if the loop should continue. If test is signle call the macro + test to check if the loop should continue. If test is single call the macro will not return anything. If the test is pair of expression and value the macro will return that value after finish." (let ((return? (eq? (length test) 2)) (loop (gensym))) diff --git a/tests/std.scm b/tests/std.scm index c96168454..f029d664f 100644 --- a/tests/std.scm +++ b/tests/std.scm @@ -77,7 +77,7 @@ (lambda (t) (t.is (to.throw (typecheck "test" 10 (list "string"))) true) (t.is (try (typecheck "test" 10 (list "string") 0) (catch (e) e.message)) - "Expecting string, got number in expression `test` (argument 0)") + "Expecting a string, got number in expression `test` (argument 0)") (t.is (try (typecheck "test" 10 (list "string" "character") 0) (catch (e) e.message)) "Expecting string or character, got number in expression `test` (argument 0)"))) @@ -223,3 +223,7 @@ 2)) (t.is (atanh -2) -0.5493061443340548+1.5707963267948966i))) + +(test.failing "std: Petrofsky let" + (lambda (t) + (t.is (let - ((n (- 1))) n) -1))) diff --git a/tests/syntax.scm b/tests/syntax.scm index 3803b9bc7..0b4bb817d 100644 --- a/tests/syntax.scm +++ b/tests/syntax.scm @@ -260,7 +260,7 @@ (t.is (foo (1 2) (3 4)) '((1 . 2) (3 . 4))) (t.is (foo (1 2) (3 4) (5 6)) '((1 . 2) (3 . 4) (5 . 6))))) -(test "syntax: zip trasformation" +(test "syntax: zip transformation" (lambda (t) (define-syntax foo @@ -524,7 +524,7 @@ (define-matcher-macro is-literal-foo? "foo") - (t.is (is-literal-foo? "foo") #t) ;; this fail + (t.is (is-literal-foo? "foo") #t) (t.is (is-literal-foo? "bar") #f) (let ((foo "foo")) (t.is (is-literal-foo? foo) #f)))) @@ -907,7 +907,7 @@ (t.is (foo (1 2 3) (4 5 6)) '(((1 2 3) (1 2 3)) ((4 5 6) (4 5 6)))))) -(test "syntax: R7RS multiple elipsis extensions" +(test "syntax: R7RS multiple ellipsis extensions" (lambda (t) ;; source https://practical-scheme.net/gauche/man/gauche-refe/Hygienic-macros.html diff --git a/tests/test.js b/tests/test.js index 6437c06c9..d9d8b2fd8 100644 --- a/tests/test.js +++ b/tests/test.js @@ -1,5 +1,5 @@ /* - * Boostrap tests written in Scheme using AVA testing framework + * Bootstrap tests written in Scheme using AVA testing framework * * This file is part of the LIPS - Scheme based Powerful lips in JavaScript * diff --git a/todo.lips b/todo.lips index 7cf580e3e..a6de93c8c 100644 --- a/todo.lips +++ b/todo.lips @@ -45,7 +45,7 @@ (define (uuid) - "Generatates unique ID (comments are because of scheme highligting in emacs (| |) is commnent)" + "Generatates unique ID (comments are because of scheme highlighting in emacs (| |) is comment)" (let ((i 0) (rnd) (uuid "")) (while (< i 32) (set! rnd (| (* (--> Math (random)) 16) 0)) ;;|) @@ -189,7 +189,7 @@ (--> $el (data "abort" false)) (render)) (if (not val) - (detroy event) + (destroy event) (begin (on-todo (lambda (todo) (set-cdr! (assoc 'title todo) val))