From 6328b810bdb78f8e6303eed9efb7431752ff816a Mon Sep 17 00:00:00 2001 From: giles Date: Thu, 7 May 2026 01:20:32 +0000 Subject: [PATCH] =?UTF-8?q?sx:=20step=2011=20=E2=80=94=20migrate=20prolog?= =?UTF-8?q?=20hook=20+=20add=20worker=20plugin?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Move `hs-prolog-hook` / `hs-set-prolog-hook!` / `prolog` out of `lib/hyperscript/runtime.sx` into a self-contained plugin file at `lib/hyperscript/plugins/prolog.sx`. The API surface is preserved — `lib/prolog/hs-bridge.sx::pl-install-hs-hook!` still calls `hs-set-prolog-hook!` exactly as before, just resolved to the plugin file's binding rather than runtime.sx's. Move the E39 worker stub registration out of `lib/hyperscript/parser.sx` into `lib/hyperscript/plugins/worker.sx`. The plugin calls `(hs-register-feature! "worker" ...)` at file load time. Behaviour is identical — `worker MyWorker ...` raises the same helpful "plugin not installed" error, just routed through the registry from a separate file. The pre-existing `behavioral` test for the helpful error ("raises a helpful error when the worker plugin is not installed") still passes via the new path. Wire-up: - OCaml `bin/run_tests.ml`: load `plugins/worker.sx` and `plugins/prolog.sx` after `runtime.sx`, before `integration.sx`. - JS `tests/hs-kernel-eval.js`: extend HS module list with `hs-worker` / `hs-prolog`; add `HS_PLUGINS` resolver branch so the `hs-` prefix maps to `lib/hyperscript/plugins/`. - WASM `hosts/ocaml/browser/bundle.sh`: copy plugin files into `dist/sx/hs-.sx`. - WASM `hosts/ocaml/browser/compile-modules.js`: add `hs-worker` / `hs-prolog` to `FILES`, `HS_DEPS`, and `HS_LAZY` so the lazy loader resolves them on first reference. - Worker plugin carries a sentinel `(define hs-worker-loaded? true)` so `extractDefines` indexes it in the module manifest (the lazy loader skips files with no defines). Mirrors `shared/static/wasm/sx/hs-{parser,runtime}.sx` are byte-identical to source; new mirrors `hs-{prolog,worker}.sx` written via sx_write_file. OCaml: 4545 passed, 1339 failed — matches baseline. JS: 2591 passed, 2465 failed — matches baseline. Smoke tests: `(prolog ...)` raises "prolog hook not installed" cleanly, `(hs-set-prolog-hook! ...)` then `(prolog ...)` returns the hook result, `(hs-compile "worker MyWorker def noop() end end")` raises the worker stub error via the registry path. Co-Authored-By: Claude Opus 4.7 (1M context) --- hosts/ocaml/bin/run_tests.ml | 3 + hosts/ocaml/browser/bundle.sh | 3 + hosts/ocaml/browser/compile-modules.js | 9 +- lib/hyperscript/parser.sx | 3 - lib/hyperscript/plugins/prolog.sx | 24 ++ lib/hyperscript/plugins/worker.sx | 19 ++ lib/hyperscript/runtime.sx | 13 - lib/prolog/hs-bridge.sx | 2 +- plans/sx-improvements.md | 2 +- shared/static/wasm/sx/hs-htmx.sxbc | 2 +- shared/static/wasm/sx/hs-integration.sxbc | 4 +- shared/static/wasm/sx/hs-parser.sx | 3 - shared/static/wasm/sx/hs-parser.sxbc | 4 +- shared/static/wasm/sx/hs-prolog.sx | 24 ++ shared/static/wasm/sx/hs-prolog.sxbc | 3 + shared/static/wasm/sx/hs-runtime.sx | 285 ++++++++++++++++----- shared/static/wasm/sx/hs-runtime.sxbc | 4 +- shared/static/wasm/sx/hs-worker.sx | 19 ++ shared/static/wasm/sx/hs-worker.sxbc | 3 + shared/static/wasm/sx/module-manifest.json | 161 +++++++++++- tests/hs-kernel-eval.js | 8 +- 21 files changed, 492 insertions(+), 106 deletions(-) create mode 100644 lib/hyperscript/plugins/prolog.sx create mode 100644 lib/hyperscript/plugins/worker.sx create mode 100644 shared/static/wasm/sx/hs-prolog.sx create mode 100644 shared/static/wasm/sx/hs-prolog.sxbc create mode 100644 shared/static/wasm/sx/hs-worker.sx create mode 100644 shared/static/wasm/sx/hs-worker.sxbc diff --git a/hosts/ocaml/bin/run_tests.ml b/hosts/ocaml/bin/run_tests.ml index cdae24d6..17e35393 100644 --- a/hosts/ocaml/bin/run_tests.ml +++ b/hosts/ocaml/bin/run_tests.ml @@ -2899,6 +2899,9 @@ let run_spec_tests env test_files = load_module "parser.sx" hs_dir; load_module "compiler.sx" hs_dir; load_module "runtime.sx" hs_dir; + let hs_plugins_dir = Filename.concat hs_dir "plugins" in + load_module "worker.sx" hs_plugins_dir; + load_module "prolog.sx" hs_plugins_dir; load_module "integration.sx" hs_dir; load_module "htmx.sx" hs_dir; (* Override console-log to avoid str on circular mock DOM refs *) diff --git a/hosts/ocaml/browser/bundle.sh b/hosts/ocaml/browser/bundle.sh index 2b82e803..5e833b20 100755 --- a/hosts/ocaml/browser/bundle.sh +++ b/hosts/ocaml/browser/bundle.sh @@ -75,6 +75,9 @@ cp "$ROOT/shared/sx/templates/tw.sx" "$DIST/sx/" for f in tokenizer parser compiler runtime integration htmx; do cp "$ROOT/lib/hyperscript/$f.sx" "$DIST/sx/hs-$f.sx" done +for f in worker prolog; do + cp "$ROOT/lib/hyperscript/plugins/$f.sx" "$DIST/sx/hs-$f.sx" +done # Summary WASM_SIZE=$(du -sh "$DIST/sx_browser.bc.wasm.assets" | cut -f1) diff --git a/hosts/ocaml/browser/compile-modules.js b/hosts/ocaml/browser/compile-modules.js index 55ebc1e0..11c64058 100644 --- a/hosts/ocaml/browser/compile-modules.js +++ b/hosts/ocaml/browser/compile-modules.js @@ -85,6 +85,7 @@ const FILES = [ 'harness-web.sx', 'engine.sx', 'orchestration.sx', // Hyperscript modules — loaded on demand via transparent lazy loader 'hs-tokenizer.sx', 'hs-parser.sx', 'hs-compiler.sx', 'hs-runtime.sx', + 'hs-worker.sx', 'hs-prolog.sx', 'hs-integration.sx', 'hs-htmx.sx', 'boot.sx', ]; @@ -455,8 +456,10 @@ for (const file of FILES) { 'hs-parser': ['hs-tokenizer'], 'hs-compiler': ['hs-tokenizer', 'hs-parser'], 'hs-runtime': ['hs-tokenizer', 'hs-parser', 'hs-compiler'], - 'hs-integration': ['hs-tokenizer', 'hs-parser', 'hs-compiler', 'hs-runtime'], - 'hs-htmx': ['hs-tokenizer', 'hs-parser', 'hs-compiler', 'hs-runtime', 'hs-integration'], + 'hs-worker': ['hs-tokenizer', 'hs-parser'], + 'hs-prolog': ['hs-tokenizer', 'hs-parser', 'hs-compiler', 'hs-runtime'], + 'hs-integration': ['hs-tokenizer', 'hs-parser', 'hs-compiler', 'hs-runtime', 'hs-worker', 'hs-prolog'], + 'hs-htmx': ['hs-tokenizer', 'hs-parser', 'hs-compiler', 'hs-runtime', 'hs-worker', 'hs-prolog', 'hs-integration'], }; manifest[key] = { file: sxbcFile, @@ -477,7 +480,7 @@ if (entryFile) { const lazyDeps = entryFile.deps.filter(d => LAZY_ENTRY_DEPS.has(d)); // Hyperscript modules aren't define-library, so not auto-detected as deps. // Load them lazily after boot — eager loading breaks the boot sequence. - const HS_LAZY = ['hs-tokenizer', 'hs-parser', 'hs-compiler', 'hs-runtime', 'hs-integration', 'hs-htmx']; + const HS_LAZY = ['hs-tokenizer', 'hs-parser', 'hs-compiler', 'hs-runtime', 'hs-worker', 'hs-prolog', 'hs-integration', 'hs-htmx']; for (const m of HS_LAZY) { if (manifest[m] && !lazyDeps.includes(m)) lazyDeps.push(m); } diff --git a/lib/hyperscript/parser.sx b/lib/hyperscript/parser.sx index 6c98e9ef..7b08aa96 100644 --- a/lib/hyperscript/parser.sx +++ b/lib/hyperscript/parser.sx @@ -3373,9 +3373,6 @@ (hs-register-feature! "when" (fn (ctx) (begin ((dict-get ctx :adv!)) ((dict-get ctx :parse-when-feat))))) - (hs-register-feature! - "worker" - (fn (ctx) (error "worker plugin is not installed — see https://hyperscript.org/features/worker"))) (hs-register-feature! "bind" (fn (ctx) (begin ((dict-get ctx :adv!)) ((dict-get ctx :parse-bind-feat))))) diff --git a/lib/hyperscript/plugins/prolog.sx b/lib/hyperscript/plugins/prolog.sx new file mode 100644 index 00000000..24f66195 --- /dev/null +++ b/lib/hyperscript/plugins/prolog.sx @@ -0,0 +1,24 @@ +;; lib/hyperscript/plugins/prolog.sx — Prolog plugin +;; +;; Provides the `prolog` HS-level function. Replaces the ad-hoc +;; hs-prolog-hook / hs-set-prolog-hook! slots that previously lived in +;; lib/hyperscript/runtime.sx (nodes 140–142 of the plugin design doc). +;; +;; Two-step wiring preserves the original API: +;; 1. lib/prolog/runtime.sx loaded → defines pl-query-one +;; 2. lib/prolog/hs-bridge.sx (or this file's auto-wire) calls +;; (hs-set-prolog-hook! (fn (db goal) (not (= nil (pl-query-one db goal))))) +;; If neither is loaded, calling (prolog db goal) raises a clear error. + +(define hs-prolog-hook nil) + +(define hs-set-prolog-hook! (fn (f) (set! hs-prolog-hook f))) + +(define + prolog + (fn + (db goal) + (if + (nil? hs-prolog-hook) + (raise "prolog hook not installed") + (hs-prolog-hook db goal)))) diff --git a/lib/hyperscript/plugins/worker.sx b/lib/hyperscript/plugins/worker.sx new file mode 100644 index 00000000..14718ce6 --- /dev/null +++ b/lib/hyperscript/plugins/worker.sx @@ -0,0 +1,19 @@ +;; lib/hyperscript/plugins/worker.sx — Worker plugin (stub) +;; +;; Phase 1 of the worker plugin: the registration formerly inlined in +;; lib/hyperscript/parser.sx (E39 stub) moves here. Behaviour is +;; identical — `worker MyWorker ...` raises a helpful error directing +;; users to the full plugin (not yet implemented). +;; +;; Phase 2 (future) replaces this stub with parse-worker-feat, a +;; compiler entry, hs-worker-define!, and the postMessage-based +;; method dispatch documented in plans/designs/hs-plugin-system.md §4a. + +(define hs-worker-loaded? true) + +(hs-register-feature! + "worker" + (fn + (ctx) + (error + "worker plugin is not installed — see https://hyperscript.org/features/worker"))) diff --git a/lib/hyperscript/runtime.sx b/lib/hyperscript/runtime.sx index 6cc13368..a0cfe523 100644 --- a/lib/hyperscript/runtime.sx +++ b/lib/hyperscript/runtime.sx @@ -2911,19 +2911,6 @@ ((nth entry 2) val))) _hs-dom-watchers))) -(define hs-prolog-hook nil) - -(define hs-set-prolog-hook! (fn (f) (set! hs-prolog-hook f))) - -(define - prolog - (fn - (db goal) - (if - (nil? hs-prolog-hook) - (raise "prolog hook not installed") - (hs-prolog-hook db goal)))) - (define hs-null-error! (fn (selector) (raise (str "'" selector "' is null")))) diff --git a/lib/prolog/hs-bridge.sx b/lib/prolog/hs-bridge.sx index 66982aba..fd1019db 100644 --- a/lib/prolog/hs-bridge.sx +++ b/lib/prolog/hs-bridge.sx @@ -4,7 +4,7 @@ ;; ;; 1. Hook style — for `prolog(db, "goal(args)")` call syntax in Hyperscript: ;; (pl-install-hs-hook!) ;; call once at startup -;; Requires lib/hyperscript/runtime.sx (provides hs-set-prolog-hook!) +;; Requires lib/hyperscript/plugins/prolog.sx (provides hs-set-prolog-hook!) ;; ;; 2. Factory style — for named conditions like `when allowed(user, action)`: ;; (define allowed (pl-hs-predicate/2 pl-db "allowed")) diff --git a/plans/sx-improvements.md b/plans/sx-improvements.md index b500bc38..b1058681 100644 --- a/plans/sx-improvements.md +++ b/plans/sx-improvements.md @@ -217,7 +217,7 @@ these when operands are known numbers/lists. | 8 — exhaustiveness warnings | [x] | 6d391119 | | 9 — parser feature registry | [x] | 986d6411 | | 10 — compiler + as converter registry | [x] | d22361e4 | -| 11 — plugin migration + worker | [ ] | — | +| 11 — plugin migration + worker | [x] | (pending) | | 12 — frame records | [ ] | — | | 13 — buffer primitive | [ ] | — | | 14 — inline primitives JIT | [ ] | — | diff --git a/shared/static/wasm/sx/hs-htmx.sxbc b/shared/static/wasm/sx/hs-htmx.sxbc index 9b81647c..fa78e930 100644 --- a/shared/static/wasm/sx/hs-htmx.sxbc +++ b/shared/static/wasm/sx/hs-htmx.sxbc @@ -1,3 +1,3 @@ (sxbc 1 "ca358d21a134783c" (code - :constants ("HX-CONFIG-DEFAULTS" "defaultTimeout" 60000 "transitions" "defaultSwap" "innerHTML" "requestClass" "htmx-request" "defaultSettleDelay" 1 "implicitInheritance" "noSwap" "list" 204 304 "HX-REQUEST-CLASS" "url-encode-params" {:upvalue-count 0 :arity 1 :constants ("Encode dict as URL query string: {:a 1 :b 2} → 'a=1&b=2'." "map" {:upvalue-count 1 :arity 1 :constants ("str" "=" "get") :bytecode (16 0 52 0 0 1 1 1 0 18 0 16 0 52 2 0 2 52 0 0 3 50)} "keys" "join" "&") :bytecode (1 0 0 5 51 2 0 1 0 16 0 52 3 0 1 52 1 0 2 17 1 1 5 0 16 1 52 4 0 2 50)} "sx-url-with-params" {:upvalue-count 0 :arity 2 :constants ("Embed params as :key \"value\" keywords inside an SX URL's innermost paren.\n /sx/(a.(b)) + {:q \"hi\"} → /sx/(a.(b :q \"hi\"))" "not" "contains?" "(" "str" "?" "url-encode-params" "-" "len" 1 0 ">=" "=" "nth" ")" "+" "slice" "join" " " "map" {:upvalue-count 1 :arity 1 :constants ("str" ":" " \"" "get" "\"") :bytecode (1 1 0 16 0 1 2 0 18 0 16 0 52 3 0 2 1 4 0 52 0 0 5 50)} "keys") :bytecode (1 0 0 5 16 0 1 3 0 52 2 0 2 52 1 0 1 33 19 0 16 0 1 5 0 20 6 0 16 1 48 1 52 4 0 3 32 198 1 16 0 52 8 0 1 1 9 0 52 7 0 2 17 2 1 10 0 17 3 16 2 1 10 0 52 11 0 2 6 33 16 0 5 16 0 16 2 52 13 0 2 1 14 0 52 12 0 2 33 26 0 16 3 1 9 0 52 15 0 2 17 3 5 16 2 1 9 0 52 7 0 2 17 2 32 1 0 2 5 16 2 1 10 0 52 11 0 2 6 33 16 0 5 16 0 16 2 52 13 0 2 1 14 0 52 12 0 2 33 26 0 16 3 1 9 0 52 15 0 2 17 3 5 16 2 1 9 0 52 7 0 2 17 2 32 1 0 2 5 16 2 1 10 0 52 11 0 2 6 33 16 0 5 16 0 16 2 52 13 0 2 1 14 0 52 12 0 2 33 26 0 16 3 1 9 0 52 15 0 2 17 3 5 16 2 1 9 0 52 7 0 2 17 2 32 1 0 2 5 16 2 1 10 0 52 11 0 2 6 33 16 0 5 16 0 16 2 52 13 0 2 1 14 0 52 12 0 2 33 26 0 16 3 1 9 0 52 15 0 2 17 3 5 16 2 1 9 0 52 7 0 2 17 2 32 1 0 2 5 16 2 1 10 0 52 11 0 2 6 33 16 0 5 16 0 16 2 52 13 0 2 1 14 0 52 12 0 2 33 26 0 16 3 1 9 0 52 15 0 2 17 3 5 16 2 1 9 0 52 7 0 2 17 2 32 1 0 2 5 16 2 1 10 0 52 11 0 2 6 33 16 0 5 16 0 16 2 52 13 0 2 1 14 0 52 12 0 2 33 26 0 16 3 1 9 0 52 15 0 2 17 3 5 16 2 1 9 0 52 7 0 2 17 2 32 1 0 2 5 16 0 1 10 0 16 2 1 9 0 52 15 0 2 52 16 0 3 17 4 16 0 16 2 1 9 0 52 15 0 2 52 16 0 2 17 5 1 18 0 51 20 0 1 1 16 1 52 21 0 1 52 19 0 2 52 17 0 2 17 6 16 4 1 18 0 16 6 16 5 52 4 0 4 50)} "hx-element-config" {:upvalue-count 0 :arity 2 :constants ("Read config value: hx-config JSON on element → global defaults." "dom-get-attr" "hx-config" "json-parse" "get" "HX-CONFIG-DEFAULTS") :bytecode (1 0 0 5 20 1 0 16 0 1 2 0 48 2 17 2 16 2 33 34 0 20 3 0 16 2 48 1 17 3 16 3 16 1 52 4 0 2 6 34 10 0 5 20 5 0 16 1 52 4 0 2 32 9 0 20 5 0 16 1 52 4 0 2 50)} "hx-walk-inherited" {:upvalue-count 0 :arity 2 :constants ("Walk ancestors looking for attr:inherited." "str" ":inherited" "dom-parent" "not" "dom-get-attr" "hx-walk-inherited") :bytecode (1 0 0 5 16 1 1 2 0 52 1 0 2 17 2 20 3 0 16 0 48 1 17 3 16 3 52 4 0 1 33 4 0 2 32 30 0 20 5 0 16 3 16 2 48 2 17 4 16 4 33 5 0 16 4 32 9 0 20 6 0 16 3 16 1 49 2 50)} "hx-resolve-attr" {:upvalue-count 0 :arity 2 :constants ("Resolve attribute, checking :inherited on ancestors.\n v4 default: no implicit inheritance." "dom-get-attr" "hx-walk-inherited") :bytecode (1 0 0 5 20 1 0 16 0 16 1 48 2 6 34 10 0 5 20 2 0 16 0 16 1 49 2 50)} "hx-verb-info" {:upvalue-count 0 :arity 1 :constants ("Scan verb attributes. Returns (method url) or nil.\n v4 supports both hx-get='/url' and hx-action='/url' hx-method='get'." "dom-get-attr" "hx-get" "hx-post" "hx-put" "hx-delete" "hx-patch" "hx-action" "hx-method" "list" "GET" "POST" "PUT" "DELETE" "PATCH" "upcase") :bytecode (1 0 0 5 20 1 0 16 0 1 2 0 48 2 17 1 20 1 0 16 0 1 3 0 48 2 17 2 20 1 0 16 0 1 4 0 48 2 17 3 20 1 0 16 0 1 5 0 48 2 17 4 20 1 0 16 0 1 6 0 48 2 17 5 20 1 0 16 0 1 7 0 48 2 17 6 20 1 0 16 0 1 8 0 48 2 17 7 16 1 33 12 0 1 10 0 16 1 52 9 0 2 32 113 0 16 2 33 12 0 1 11 0 16 2 52 9 0 2 32 96 0 16 3 33 12 0 1 12 0 16 3 52 9 0 2 32 79 0 16 4 33 12 0 1 13 0 16 4 52 9 0 2 32 62 0 16 5 33 12 0 1 14 0 16 5 52 9 0 2 32 45 0 16 6 6 33 3 0 5 16 7 33 15 0 16 7 52 15 0 1 16 6 52 9 0 2 32 18 0 16 6 33 12 0 1 10 0 16 6 52 9 0 2 32 1 0 2 50)} "hx-default-trigger" {:upvalue-count 0 :arity 1 :constants ("Default trigger: form→submit, input/select/textarea→change, else→click." "downcase" "dom-tag-name" "=" "form" "submit" "input" "textarea" "select" "change" "click") :bytecode (1 0 0 5 20 2 0 16 0 48 1 52 1 0 1 17 1 16 1 1 4 0 52 3 0 2 33 6 0 1 5 0 32 49 0 16 1 1 6 0 52 3 0 2 6 34 24 0 5 16 1 1 7 0 52 3 0 2 6 34 10 0 5 16 1 1 8 0 52 3 0 2 33 6 0 1 9 0 32 3 0 1 10 0 50)} "hx-parse-time" {:upvalue-count 0 :arity 1 :constants ("Parse time spec: '500ms'→500, '1s'→1000, '2m'→120000." "not" "ends-with?" "ms" "parse-number" "slice" 0 "-" "len" 2 "s" "*" 1000 1 "m" 60000) :bytecode (1 0 0 5 16 0 52 1 0 1 33 4 0 2 32 143 0 16 0 1 3 0 52 2 0 2 33 29 0 16 0 1 6 0 16 0 52 8 0 1 1 9 0 52 7 0 2 52 5 0 3 52 4 0 1 32 102 0 16 0 1 10 0 52 2 0 2 33 36 0 1 12 0 16 0 1 6 0 16 0 52 8 0 1 1 13 0 52 7 0 2 52 5 0 3 52 4 0 1 52 11 0 2 32 54 0 16 0 1 14 0 52 2 0 2 33 36 0 1 15 0 16 0 1 6 0 16 0 52 8 0 1 1 13 0 52 7 0 2 52 5 0 3 52 4 0 1 52 11 0 2 32 6 0 16 0 52 4 0 1 50)} "hx-parse-trigger" {:upvalue-count 0 :arity 2 :constants ("Parse hx-trigger spec. Returns {:event :delay :throttle :once :changed :from :filter}." "not" "filter" "delay" "throttle" "from" "event" "hx-default-trigger" "changed" "once" "split" "trim" " " "first" "for-each" {:upvalue-count 6 :arity 1 :constants ("starts-with?" "delay:" "hx-parse-time" "slice" 6 "throttle:" 9 "=" "once" "changed" "from:" 5 "[") :bytecode (16 0 1 1 0 52 0 0 2 33 19 0 20 2 0 16 0 1 4 0 52 3 0 2 48 1 19 0 32 113 0 16 0 1 5 0 52 0 0 2 33 19 0 20 2 0 16 0 1 6 0 52 3 0 2 48 1 19 1 32 82 0 16 0 1 8 0 52 7 0 2 33 6 0 3 19 2 32 64 0 16 0 1 9 0 52 7 0 2 33 6 0 3 19 3 32 46 0 16 0 1 10 0 52 0 0 2 33 14 0 16 0 1 11 0 52 3 0 2 19 4 32 20 0 16 0 1 12 0 52 0 0 2 33 7 0 16 0 19 5 32 1 0 2 50)} "rest") :bytecode (1 0 0 5 16 0 52 1 0 1 33 40 0 1 2 0 2 1 3 0 2 1 4 0 2 1 5 0 2 1 6 0 20 7 0 16 1 48 1 1 8 0 4 1 9 0 4 65 7 0 32 105 0 16 0 52 11 0 1 1 12 0 52 10 0 2 17 2 16 2 52 13 0 1 17 3 2 17 4 2 17 5 4 17 6 4 17 7 2 17 8 2 17 9 51 15 0 1 4 1 5 1 6 1 7 1 8 1 9 16 2 52 16 0 1 52 14 0 2 5 1 2 0 16 9 1 3 0 16 4 1 4 0 16 5 1 5 0 16 8 1 6 0 16 3 1 8 0 16 7 1 9 0 16 6 65 7 0 50)} "hx-resolve-target" {:upvalue-count 0 :arity 2 :constants ("Resolve hx-target: nil→el, 'this'→el, 'closest sel'→walk up, '#id'→query." "hx-resolve-attr" "hx-target" "not" "=" "this" "body" "dom-body" "starts-with?" "closest " "dom-closest" "slice" 8 "find " "dom-query" 5 "next " "hs-next" "previous " "hs-previous" 9) :bytecode (1 0 0 5 16 1 6 34 11 0 5 20 1 0 16 0 1 2 0 48 2 17 2 16 2 52 3 0 1 33 5 0 16 0 32 173 0 16 2 1 5 0 52 4 0 2 33 5 0 16 0 32 156 0 16 2 1 6 0 52 4 0 2 33 8 0 20 7 0 49 0 32 136 0 16 2 1 9 0 52 8 0 2 33 19 0 20 10 0 16 0 16 2 1 12 0 52 11 0 2 49 2 32 105 0 16 2 1 13 0 52 8 0 2 33 19 0 20 14 0 16 0 16 2 1 15 0 52 11 0 2 49 2 32 74 0 16 2 1 16 0 52 8 0 2 33 19 0 20 17 0 16 0 16 2 1 15 0 52 11 0 2 49 2 32 43 0 16 2 1 18 0 52 8 0 2 33 19 0 20 19 0 16 0 16 2 1 20 0 52 11 0 2 49 2 32 12 0 20 14 0 20 7 0 48 0 16 2 49 2 50)} "hx-normalize-swap-mode" {:upvalue-count 0 :arity 1 :constants ("Normalize v4 swap aliases to canonical names." "=" "before" "beforebegin" "after" "afterend" "prepend" "afterbegin" "append" "beforeend") :bytecode (1 0 0 5 16 0 1 2 0 52 1 0 2 33 6 0 1 3 0 32 56 0 16 0 1 4 0 52 1 0 2 33 6 0 1 5 0 32 38 0 16 0 1 6 0 52 1 0 2 33 6 0 1 7 0 32 20 0 16 0 1 8 0 52 1 0 2 33 6 0 1 9 0 32 2 0 16 0 50)} "hx-parse-swap-spec" {:upvalue-count 0 :arity 1 :constants ("Parse swap spec with all v4 modifiers.\n Returns {:mode :swap-delay :settle-delay :scroll :show-target :transition :strip :target :ignore-title}." "not" "ignore-title" "transition" "target" "strip" "scroll" "mode" "innerHTML" "settle-delay" "show-target" "swap-delay" "split" " " "hx-normalize-swap-mode" "first" "for-each" {:upvalue-count 8 :arity 1 :constants ("starts-with?" "swap:" "hx-parse-time" "slice" 5 "settle:" 7 "scroll:" "show:" "showTarget:" 11 "scrollTarget:" 13 "=" "transition:true" "strip:true" "target:" "ignoreTitle:true") :bytecode (16 0 1 1 0 52 0 0 2 33 19 0 20 2 0 16 0 1 4 0 52 3 0 2 48 1 19 0 32 216 0 16 0 1 5 0 52 0 0 2 33 19 0 20 2 0 16 0 1 6 0 52 3 0 2 48 1 19 1 32 185 0 16 0 1 7 0 52 0 0 2 33 14 0 16 0 1 6 0 52 3 0 2 19 2 32 159 0 16 0 1 8 0 52 0 0 2 33 14 0 16 0 1 4 0 52 3 0 2 19 2 32 133 0 16 0 1 9 0 52 0 0 2 33 14 0 16 0 1 10 0 52 3 0 2 19 3 32 107 0 16 0 1 11 0 52 0 0 2 33 14 0 16 0 1 12 0 52 3 0 2 19 3 32 81 0 16 0 1 14 0 52 13 0 2 33 6 0 3 19 4 32 63 0 16 0 1 15 0 52 13 0 2 33 6 0 3 19 5 32 45 0 16 0 1 16 0 52 0 0 2 33 14 0 16 0 1 6 0 52 3 0 2 19 6 32 19 0 16 0 1 17 0 52 13 0 2 33 6 0 3 19 7 32 1 0 2 50)} "rest") :bytecode (1 0 0 5 16 0 52 1 0 1 33 44 0 1 2 0 4 1 3 0 4 1 4 0 2 1 5 0 4 1 6 0 2 1 7 0 1 8 0 1 9 0 2 1 10 0 2 1 11 0 2 65 9 0 32 126 0 16 0 1 13 0 52 12 0 2 17 1 20 14 0 16 1 52 15 0 1 48 1 17 2 2 17 3 2 17 4 2 17 5 2 17 6 4 17 7 4 17 8 2 17 9 4 17 10 51 17 0 1 3 1 4 1 5 1 6 1 7 1 8 1 9 1 10 16 1 52 18 0 1 52 16 0 2 5 1 2 0 16 10 1 3 0 16 7 1 4 0 16 9 1 5 0 16 8 1 6 0 16 5 1 7 0 16 2 1 9 0 16 4 1 10 0 16 6 1 11 0 16 3 65 9 0 50)} "hx-swap!" {:upvalue-count 0 :arity 3 :constants ("Swap content into target. Supports all v4 modes." "=" "innerHTML" "dom-set-inner-html" "outerHTML" "dom-insert-adjacent-html" "afterend" "dom-remove" "beforeend" "afterbegin" "beforebegin" "delete" "none" "textContent" "dom-set-text-content" "innerMorph" "outerMorph") :bytecode (1 0 0 5 16 2 1 2 0 52 1 0 2 33 12 0 20 3 0 16 0 16 1 49 2 32 17 1 16 2 1 4 0 52 1 0 2 33 23 0 20 5 0 16 0 1 6 0 16 1 48 3 5 20 7 0 16 0 49 1 32 238 0 16 2 1 6 0 52 1 0 2 33 15 0 20 5 0 16 0 1 6 0 16 1 49 3 32 211 0 16 2 1 8 0 52 1 0 2 33 15 0 20 5 0 16 0 1 8 0 16 1 49 3 32 184 0 16 2 1 9 0 52 1 0 2 33 15 0 20 5 0 16 0 1 9 0 16 1 49 3 32 157 0 16 2 1 10 0 52 1 0 2 33 15 0 20 5 0 16 0 1 10 0 16 1 49 3 32 130 0 16 2 1 11 0 52 1 0 2 33 10 0 20 7 0 16 0 49 1 32 108 0 16 2 1 12 0 52 1 0 2 33 4 0 2 32 92 0 16 2 1 13 0 52 1 0 2 33 12 0 20 14 0 16 0 16 1 49 2 32 68 0 16 2 1 15 0 52 1 0 2 33 12 0 20 3 0 16 0 16 1 49 2 32 44 0 16 2 1 16 0 52 1 0 2 33 23 0 20 5 0 16 0 1 6 0 16 1 48 3 5 20 7 0 16 0 49 1 32 9 0 20 3 0 16 0 16 1 49 2 50)} "hx-select-fragment" {:upvalue-count 0 :arity 2 :constants ("Extract fragment matching selector from HTML response (hx-select)." "not" "dom-parse-html" "dom-query" "dom-outer-html") :bytecode (1 0 0 5 16 1 52 1 0 1 33 5 0 16 0 32 37 0 20 2 0 16 0 48 1 17 2 20 3 0 16 2 16 1 48 2 17 3 16 3 33 10 0 20 4 0 16 3 49 1 32 2 0 16 0 50)} "hx-element-source-id" {:upvalue-count 0 :arity 1 :constants ("Format element as tagName#id for v4 HX-Source header." "downcase" "dom-tag-name" "dom-get-attr" "id" "str" "#") :bytecode (1 0 0 5 20 2 0 16 0 48 1 52 1 0 1 17 1 20 3 0 16 0 1 4 0 48 2 17 2 16 2 33 14 0 16 1 1 6 0 16 2 52 5 0 3 32 2 0 16 1 50)} "hx-form-values" {:upvalue-count 0 :arity 1 :constants ("Extract name=value pairs from form inputs." "dom-query-all" "input, select, textarea" "for-each" {:upvalue-count 1 :arity 1 :constants ("dom-get-attr" "name" "element-value" "assoc") :bytecode (20 0 0 16 0 1 1 0 48 2 17 1 20 2 0 16 0 48 1 17 2 16 1 33 15 0 18 0 16 1 16 2 52 3 0 3 19 0 32 1 0 2 50)}) :bytecode (1 0 0 5 20 1 0 16 0 1 2 0 48 2 17 1 65 0 0 17 2 51 4 0 1 2 16 1 52 3 0 2 5 16 2 50)} "hx-collect-params" {:upvalue-count 0 :arity 2 :constants ("Collect request params: form values + hx-include + hx-vals + element name/value." "=" "downcase" "dom-tag-name" "form" "hx-form-values" "input" "select" "textarea" "dom-get-attr" "name" "assoc" "element-value" "hx-include" "dom-query" "merge" "hx-vals" "json-parse") :bytecode (1 0 0 5 65 0 0 17 2 20 3 0 16 0 48 1 52 2 0 1 1 4 0 52 1 0 2 33 12 0 20 5 0 16 0 48 1 17 2 32 1 0 2 5 20 3 0 16 0 48 1 52 2 0 1 17 3 16 3 1 6 0 52 1 0 2 6 34 24 0 5 16 3 1 7 0 52 1 0 2 6 34 10 0 5 16 3 1 8 0 52 1 0 2 33 41 0 20 9 0 16 0 1 10 0 48 2 17 4 16 4 33 20 0 16 2 16 4 20 12 0 16 0 48 1 52 11 0 3 17 2 32 1 0 2 32 1 0 2 5 20 9 0 16 0 1 13 0 48 2 17 3 16 3 33 36 0 20 14 0 16 3 48 1 17 4 16 4 33 18 0 16 2 20 5 0 16 4 48 1 52 15 0 2 17 2 32 1 0 2 32 1 0 2 5 20 9 0 16 0 1 16 0 48 2 17 3 16 3 33 31 0 20 17 0 16 3 48 1 17 4 16 4 33 13 0 16 2 16 4 52 15 0 2 17 2 32 1 0 2 32 1 0 2 5 16 2 50)} "hx-build-headers" {:upvalue-count 0 :arity 2 :constants ("Build v4 request headers." "HX-Source" "hx-element-source-id" "HX-Request" "true" "Accept" "text/html" "HX-Request-Type" "partial" "assoc" "HX-Target" "HX-Current-URL" "browser-location-href" "hx-resolve-attr" "hx-headers" "json-parse" "merge") :bytecode (1 0 0 5 1 1 0 20 2 0 16 0 48 1 1 3 0 1 4 0 1 5 0 1 6 0 1 7 0 1 8 0 65 4 0 17 2 16 1 33 21 0 16 2 1 10 0 20 2 0 16 1 48 1 52 9 0 3 17 2 32 1 0 2 5 16 2 1 11 0 20 12 0 48 0 52 9 0 3 17 2 5 20 13 0 16 0 1 14 0 48 2 17 3 16 3 33 31 0 20 15 0 16 3 48 1 17 4 16 4 33 13 0 16 2 16 4 52 16 0 2 17 2 32 1 0 2 32 1 0 2 5 16 2 50)} "hx-request" {:upvalue-count 0 :arity 4 :constants ("Issue HTTP request with v4 conventions.\n Returns {:status :body :headers} for status-based dispatch." "hx-collect-params" "hx-build-headers" "dom-get-attr" "hx-encoding" "dom-get-data" "hx-etag" "=" "GET" "DELETE" "empty?" "str" "?" "url-encode-params" "multipart/form-data" "json-stringify" "not" "assoc" "Content-Type" "application/json" "If-None-Match" "list" io-fetch "host-get" "status" "body" "headers" "etag" "dom-set-data") :bytecode (1 0 0 5 20 1 0 16 0 16 2 48 2 17 4 20 2 0 16 0 16 3 48 2 17 5 20 3 0 16 0 1 4 0 48 2 17 6 20 5 0 16 0 1 6 0 48 2 17 7 16 2 1 8 0 52 7 0 2 6 34 10 0 5 16 2 1 9 0 52 7 0 2 33 33 0 16 4 52 10 0 1 33 5 0 16 1 32 16 0 16 1 1 12 0 20 13 0 16 4 48 1 52 11 0 3 32 2 0 16 1 17 8 16 2 1 8 0 52 7 0 2 6 34 10 0 5 16 2 1 9 0 52 7 0 2 33 4 0 2 32 24 0 16 6 1 14 0 52 7 0 2 33 5 0 16 4 32 7 0 20 15 0 16 4 48 1 17 9 16 9 6 33 14 0 5 16 6 1 14 0 52 7 0 2 52 16 0 1 33 17 0 16 5 1 18 0 1 19 0 52 17 0 3 17 5 32 1 0 2 5 16 7 33 16 0 16 5 1 20 0 16 7 52 17 0 3 17 5 32 1 0 2 5 1 22 0 16 8 16 2 16 9 16 5 52 21 0 5 112 17 10 16 10 1 24 0 52 23 0 2 17 11 16 10 1 25 0 52 23 0 2 17 12 16 10 1 26 0 52 23 0 2 17 13 16 13 1 27 0 52 23 0 2 33 22 0 20 28 0 16 0 1 6 0 16 13 1 27 0 52 23 0 2 48 3 32 1 0 2 5 1 24 0 16 11 1 26 0 16 13 1 25 0 16 12 65 3 0 50)} "hx-process-oob!" {:upvalue-count 0 :arity 1 :constants ("Process out-of-band swaps: elements with hx-swap-oob." "dom-parse-html" "dom-query-all" "[hx-swap-oob]" "for-each" {:upvalue-count 0 :arity 1 :constants ("dom-get-attr" "hx-swap-oob" "id" "dom-query" "dom-body" "str" "#" "hx-normalize-swap-mode" "=" "true" "innerHTML" "dom-remove-attr" "hx-swap!" "dom-outer-html") :bytecode (20 0 0 16 0 1 1 0 48 2 17 1 20 0 0 16 0 1 2 0 48 2 17 2 16 2 33 87 0 20 3 0 20 4 0 48 0 1 6 0 16 2 52 5 0 2 48 2 17 3 20 7 0 16 1 1 9 0 52 8 0 2 33 6 0 1 10 0 32 2 0 16 1 48 1 17 4 16 3 33 30 0 20 11 0 16 0 1 1 0 48 2 5 20 12 0 16 3 20 13 0 16 0 48 1 16 4 49 3 32 1 0 2 32 1 0 2 50)}) :bytecode (1 0 0 5 20 1 0 16 0 48 1 17 1 20 2 0 16 1 1 3 0 48 2 17 2 51 5 0 16 2 52 4 0 2 50)} "hx-process-partials!" {:upvalue-count 0 :arity 1 :constants ("Process elements: each specifies its own target + swap.\n v4: swaps in document order after main content." "dom-parse-html" "dom-query-all" "hx-partial" "for-each" {:upvalue-count 0 :arity 1 :constants ("dom-get-attr" "hx-target" "hx-swap" "innerHTML" "dom-query" "dom-body" "hx-normalize-swap-mode" "hx-swap!" "dom-inner-html") :bytecode (20 0 0 16 0 1 1 0 48 2 17 1 20 0 0 16 0 1 2 0 48 2 6 34 4 0 5 1 3 0 17 2 16 1 33 51 0 20 4 0 20 5 0 48 0 16 1 48 2 17 3 20 6 0 16 2 48 1 17 4 16 3 33 19 0 20 7 0 16 3 20 8 0 16 0 48 1 16 4 49 3 32 1 0 2 32 1 0 2 50)}) :bytecode (1 0 0 5 20 1 0 16 0 48 1 17 1 20 2 0 16 1 1 3 0 48 2 17 2 51 5 0 16 2 52 4 0 2 50)} "hx-parse-status-modifiers" {:upvalue-count 0 :arity 1 :constants ("Parse hx-status modifier string: 'swap:innerHTML target:#errors push:false'." "split" " " "target" "transition" "swap" "select" "push" "replace" "for-each" {:upvalue-count 1 :arity 1 :constants ("starts-with?" "swap:" "assoc" "swap" "slice" 5 "target:" "target" 7 "select:" "select" "push:" "push" "replace:" "replace" 8 "transition:" "transition" 11) :bytecode (16 0 1 1 0 52 0 0 2 33 23 0 18 0 1 3 0 16 0 1 5 0 52 4 0 2 52 2 0 3 19 0 32 176 0 16 0 1 6 0 52 0 0 2 33 23 0 18 0 1 7 0 16 0 1 8 0 52 4 0 2 52 2 0 3 19 0 32 141 0 16 0 1 9 0 52 0 0 2 33 23 0 18 0 1 10 0 16 0 1 8 0 52 4 0 2 52 2 0 3 19 0 32 106 0 16 0 1 11 0 52 0 0 2 33 23 0 18 0 1 12 0 16 0 1 5 0 52 4 0 2 52 2 0 3 19 0 32 71 0 16 0 1 13 0 52 0 0 2 33 23 0 18 0 1 14 0 16 0 1 15 0 52 4 0 2 52 2 0 3 19 0 32 36 0 16 0 1 16 0 52 0 0 2 33 23 0 18 0 1 17 0 16 0 1 18 0 52 4 0 2 52 2 0 3 19 0 32 1 0 2 50)}) :bytecode (1 0 0 5 16 0 1 2 0 52 1 0 2 17 1 1 3 0 2 1 4 0 2 1 5 0 2 1 6 0 2 1 7 0 2 1 8 0 2 65 6 0 17 2 51 10 0 1 2 16 1 52 9 0 2 5 16 2 50)} "hx-status-matches?" {:upvalue-count 0 :arity 2 :constants ("Check if status matches pattern: '404'='404', '50x'=500-509, '5xx'=500-599." "=" "len" 3 "ends-with?" "xx" "slice" 0 1 "x" "not" 2) :bytecode (1 0 0 5 16 0 16 1 52 1 0 2 33 4 0 3 32 153 0 16 1 52 2 0 1 1 3 0 52 1 0 2 6 33 43 0 5 16 1 1 5 0 52 4 0 2 6 33 29 0 5 16 0 1 7 0 1 8 0 52 6 0 3 16 1 1 7 0 1 8 0 52 6 0 3 52 1 0 2 33 4 0 3 32 86 0 16 1 52 2 0 1 1 3 0 52 1 0 2 6 33 61 0 5 16 1 1 9 0 52 4 0 2 6 33 47 0 5 16 1 1 5 0 52 4 0 2 52 10 0 1 6 33 29 0 5 16 0 1 7 0 1 11 0 52 6 0 3 16 1 1 7 0 1 11 0 52 6 0 3 52 1 0 2 33 4 0 3 32 1 0 4 50)} "hx-parse-status-rules" {:upvalue-count 0 :arity 1 :constants ("Scan element for hx-status:CODE attributes. Returns list of rule dicts." "dom-attr-list" "list" "for-each" {:upvalue-count 1 :arity 1 :constants ("get" "name" "value" "starts-with?" "hx-status:" "slice" 10 "not" "ends-with?" "x" 3 "xx" 2 1 "append" "list" "merge" "specificity" "code" "hx-parse-status-modifiers") :bytecode (16 0 1 1 0 52 0 0 2 17 1 16 0 1 2 0 52 0 0 2 17 2 16 1 1 4 0 52 3 0 2 33 113 0 16 1 1 6 0 52 5 0 2 17 3 16 3 1 9 0 52 8 0 2 52 7 0 1 33 6 0 1 10 0 32 39 0 16 3 1 9 0 52 8 0 2 6 33 14 0 5 16 3 1 11 0 52 8 0 2 52 7 0 1 33 6 0 1 12 0 32 3 0 1 13 0 17 4 18 0 1 17 0 16 4 1 18 0 16 3 65 2 0 20 19 0 16 2 48 1 52 16 0 2 52 15 0 1 52 14 0 2 19 0 32 1 0 2 50)}) :bytecode (1 0 0 5 20 1 0 16 0 48 1 17 1 52 2 0 0 17 2 51 4 0 1 2 16 1 52 3 0 2 5 16 2 50)} "hx-match-status" {:upvalue-count 0 :arity 2 :constants ("Match HTTP status against rules. Returns best match (highest specificity) or nil." "str" 0 "for-each" {:upvalue-count 3 :arity 1 :constants ("get" "code" "specificity" "hx-status-matches?" ">") :bytecode (16 0 1 1 0 52 0 0 2 17 1 16 0 1 2 0 52 0 0 2 17 2 20 3 0 18 0 16 1 48 2 6 33 9 0 5 16 2 18 1 52 4 0 2 33 12 0 16 0 19 2 5 16 2 19 1 32 1 0 2 50)}) :bytecode (1 0 0 5 16 0 52 1 0 1 17 2 2 17 3 1 2 0 17 4 51 4 0 1 2 1 4 1 3 16 1 52 3 0 2 5 16 3 50)} "hx-handle-history!" {:upvalue-count 0 :arity 2 :constants ("Push or replace URL based on hx-push-url / hx-replace-url." "hx-resolve-attr" "hx-push-url" "hx-replace-url" "=" "true" "browser-push-state" "scrollY" 0 "" "not" "false" "browser-replace-state") :bytecode (1 0 0 5 20 1 0 16 0 1 2 0 48 2 17 2 20 1 0 16 0 1 3 0 48 2 17 3 16 2 1 5 0 52 4 0 2 33 22 0 20 6 0 1 7 0 1 8 0 65 1 0 1 9 0 16 1 49 3 32 125 0 16 2 6 33 14 0 5 16 2 1 11 0 52 4 0 2 52 10 0 1 33 22 0 20 6 0 1 7 0 1 8 0 65 1 0 1 9 0 16 2 49 3 32 80 0 16 3 1 5 0 52 4 0 2 33 22 0 20 12 0 1 7 0 1 8 0 65 1 0 1 9 0 16 1 49 3 32 46 0 16 3 6 33 14 0 5 16 3 1 11 0 52 4 0 2 52 10 0 1 33 22 0 20 12 0 1 7 0 1 8 0 65 1 0 1 9 0 16 3 49 3 32 1 0 2 50)} "hx-indicator-on!" {:upvalue-count 0 :arity 1 :constants ("Add request class to element + indicator targets." "dom-add-class" "HX-REQUEST-CLASS" "hx-resolve-attr" "hx-indicator" "for-each" {:upvalue-count 0 :arity 1 :constants ("dom-add-class" "HX-REQUEST-CLASS") :bytecode (20 0 0 16 0 20 1 0 49 2 50)} "dom-query-all" "dom-body") :bytecode (1 0 0 5 20 1 0 16 0 20 2 0 48 2 5 20 3 0 16 0 1 4 0 48 2 17 1 16 1 33 22 0 51 6 0 20 7 0 20 8 0 48 0 16 1 48 2 52 5 0 2 32 1 0 2 50)} "hx-indicator-off!" {:upvalue-count 0 :arity 1 :constants ("Remove request class from element + indicator targets." "dom-remove-class" "HX-REQUEST-CLASS" "hx-resolve-attr" "hx-indicator" "for-each" {:upvalue-count 0 :arity 1 :constants ("dom-remove-class" "HX-REQUEST-CLASS") :bytecode (20 0 0 16 0 20 1 0 49 2 50)} "dom-query-all" "dom-body") :bytecode (1 0 0 5 20 1 0 16 0 20 2 0 48 2 5 20 3 0 16 0 1 4 0 48 2 17 1 16 1 33 22 0 51 6 0 20 7 0 20 8 0 48 0 16 1 48 2 52 5 0 2 32 1 0 2 50)} "hx-disable-inputs!" {:upvalue-count 0 :arity 1 :constants ("Disable form elements during request (v4 hx-disable)." "dom-get-attr" "hx-disable" "for-each" {:upvalue-count 0 :arity 1 :constants ("dom-set-attr" "disabled" "true") :bytecode (20 0 0 16 0 1 1 0 1 2 0 49 3 50)} "dom-query-all" "dom-body") :bytecode (1 0 0 5 20 1 0 16 0 1 2 0 48 2 17 1 16 1 33 22 0 51 4 0 20 5 0 20 6 0 48 0 16 1 48 2 52 3 0 2 32 1 0 2 50)} "hx-enable-inputs!" {:upvalue-count 0 :arity 1 :constants ("Re-enable form elements after request." "dom-get-attr" "hx-disable" "for-each" {:upvalue-count 0 :arity 1 :constants ("dom-remove-attr" "disabled") :bytecode (20 0 0 16 0 1 1 0 49 2 50)} "dom-query-all" "dom-body") :bytecode (1 0 0 5 20 1 0 16 0 1 2 0 48 2 17 1 16 1 33 22 0 51 4 0 20 5 0 20 6 0 48 0 16 1 48 2 52 3 0 2 32 1 0 2 50)} "hx-confirm?" {:upvalue-count 0 :arity 1 :constants ("Show confirm dialog if hx-confirm set. Returns true to proceed." "hx-resolve-attr" "hx-confirm" "browser-confirm") :bytecode (1 0 0 5 20 1 0 16 0 1 2 0 48 2 17 1 16 1 33 10 0 20 3 0 16 1 49 1 32 1 0 3 50)} "hx-validate-form?" {:upvalue-count 0 :arity 1 :constants ("Check form validity if hx-validate is set. Returns true to proceed." "dom-get-attr" "hx-validate" "=" "downcase" "dom-tag-name" "form" "dom-closest" "host-call" "checkValidity") :bytecode (1 0 0 5 20 1 0 16 0 1 2 0 48 2 17 1 16 1 33 59 0 20 5 0 16 0 48 1 52 4 0 1 1 6 0 52 3 0 2 33 5 0 16 0 32 10 0 20 7 0 16 0 1 6 0 48 2 17 2 16 2 33 12 0 16 2 1 9 0 52 8 0 2 32 1 0 3 32 1 0 3 50)} "hx-parse-sync-spec" {:upvalue-count 0 :arity 1 :constants ("Parse hx-sync='selector:strategy'. Returns {:selector :strategy :queue-mode} or nil." "not" "index-of" ":" "strategy" "drop" "selector" "queue-mode" "trim" "slice" 0 "+" 1 "starts-with?" "queue" "split" " " ">" "len" "nth" "last") :bytecode (1 0 0 5 16 0 52 1 0 1 33 4 0 2 32 179 0 16 0 1 3 0 52 2 0 2 17 1 16 1 52 1 0 1 33 21 0 1 4 0 1 5 0 1 6 0 16 0 1 7 0 2 65 3 0 32 138 0 16 0 1 10 0 16 1 52 9 0 3 52 8 0 1 17 2 16 0 16 1 1 12 0 52 11 0 2 52 9 0 2 52 8 0 1 17 3 16 3 1 14 0 52 13 0 2 33 6 0 1 14 0 32 2 0 16 3 17 4 16 3 1 14 0 52 13 0 2 33 45 0 16 3 1 16 0 52 15 0 2 17 5 16 5 52 18 0 1 1 12 0 52 17 0 2 33 12 0 16 5 1 12 0 52 19 0 2 32 3 0 1 20 0 32 1 0 2 17 5 1 4 0 16 4 1 6 0 16 2 1 7 0 16 5 65 3 0 50)} "hx-sync-resolve-target" {:upvalue-count 0 :arity 2 :constants ("Resolve sync target element." "=" "this" "closest form" "dom-closest" "form" "dom-query" "dom-body") :bytecode (1 0 0 5 16 1 1 2 0 52 1 0 2 33 5 0 16 0 32 37 0 16 1 1 3 0 52 1 0 2 33 13 0 20 4 0 16 0 1 5 0 49 2 32 12 0 20 6 0 20 7 0 48 0 16 1 49 2 50)} "hx-sync-check!" {:upvalue-count 0 :arity 1 :constants ("Check sync strategy. Returns true if request should proceed." "hx-parse-sync-spec" "dom-get-attr" "hx-sync" "not" "hx-sync-resolve-target" "get" "selector" "strategy" "dom-get-data" "hx-sync-in-flight" "=" "drop" "dom-set-data" "abort" "replace" "dom-dispatch" "htmx:abort" "queue" "hx-sync-queued") :bytecode (1 0 0 5 20 1 0 20 2 0 16 0 1 3 0 48 2 48 1 17 1 16 1 52 4 0 1 33 4 0 3 32 205 0 20 5 0 16 0 16 1 1 7 0 52 6 0 2 48 2 17 2 16 1 1 8 0 52 6 0 2 17 3 16 2 52 4 0 1 33 4 0 3 32 163 0 20 9 0 16 2 1 10 0 48 2 17 4 16 3 1 12 0 52 11 0 2 33 25 0 16 4 33 4 0 4 32 13 0 20 13 0 16 2 1 10 0 3 48 3 5 3 32 114 0 16 3 1 14 0 52 11 0 2 6 34 10 0 5 16 3 1 15 0 52 11 0 2 33 37 0 16 4 33 14 0 20 16 0 16 2 1 17 0 2 48 3 32 1 0 2 5 20 13 0 16 2 1 10 0 3 48 3 5 3 32 51 0 16 3 1 18 0 52 11 0 2 33 38 0 16 4 33 17 0 20 13 0 16 2 1 19 0 16 0 48 3 5 4 32 13 0 20 13 0 16 2 1 10 0 3 48 3 5 3 32 1 0 3 50)} "hx-sync-complete!" {:upvalue-count 0 :arity 1 :constants ("Mark request complete. Fire queued request if any." "hx-parse-sync-spec" "dom-get-attr" "hx-sync" "hx-sync-resolve-target" "get" "selector" "dom-set-data" "hx-sync-in-flight" "dom-get-data" "hx-sync-queued" "dom-dispatch" "click") :bytecode (1 0 0 5 20 1 0 20 2 0 16 0 1 3 0 48 2 48 1 17 1 16 1 33 86 0 20 4 0 16 0 16 1 1 6 0 52 5 0 2 48 2 17 2 16 2 33 59 0 20 7 0 16 2 1 8 0 4 48 3 5 20 9 0 16 2 1 10 0 48 2 17 3 16 3 33 26 0 20 7 0 16 2 1 10 0 2 48 3 5 20 11 0 16 3 1 12 0 2 49 3 32 1 0 2 32 1 0 2 32 1 0 2 50)} "hx-dispatch!" {:upvalue-count 0 :arity 3 :constants ("Dispatch htmx event with v4 naming (htmx:phase:action)." "dom-dispatch") :bytecode (1 0 0 5 20 1 0 16 0 16 1 16 2 49 3 50)} "hx-strip-outer" {:upvalue-count 0 :arity 1 :constants ("Remove outer element, return inner content." "dom-parse-html" "dom-first-child" "dom-inner-html") :bytecode (1 0 0 5 20 1 0 16 0 48 1 17 1 20 2 0 16 1 48 1 17 2 16 2 33 10 0 20 3 0 16 2 49 1 32 2 0 16 0 50)} "hx-do-swap" {:upvalue-count 0 :arity 8 :constants ("Execute swap phase: status overrides → select → strip → transition → swap → partials → OOB → history → settle." "hx-match-status" "get" "swap" "hx-normalize-swap-mode" "mode" "target" "dom-query" "dom-body" "select" "transition" "=" "true" "hx-dispatch!" "htmx:before:swap" "status" "starts-with?" "trim" "(" "first" "parse" "list?" <> "filter" {:upvalue-count 0 :arity 1 :constants ("not" "list?" "some" {:upvalue-count 0 :arity 1 :constants ("=" "type-of" "keyword" "keyword-name" "sx-swap-oob") :bytecode (16 0 52 1 0 1 1 2 0 52 0 0 2 6 33 14 0 5 16 0 52 3 0 1 1 4 0 52 0 0 2 50)}) :bytecode (16 0 52 1 0 1 6 33 10 0 5 51 3 0 16 0 52 2 0 2 52 0 0 1 50)} "rest" "render-to-html" "cons" "hx-select-fragment" "strip" "hx-strip-outer" "list" io-view-transition {:upvalue-count 3 :arity 0 :constants ("hx-swap!") :bytecode (20 0 0 18 0 18 1 18 2 49 3 50)} "hx-swap!" "htmx:after:swap" "not" "push" "false" "hx-handle-history!" "hs-wait" "settle-delay" 1 "htmx:after:settle") :bytecode (1 0 0 5 20 1 0 16 2 16 3 48 2 17 8 16 8 6 33 10 0 5 16 8 1 3 0 52 2 0 2 33 17 0 20 4 0 16 8 1 3 0 52 2 0 2 48 1 32 9 0 16 4 1 5 0 52 2 0 2 17 9 16 8 6 33 10 0 5 16 8 1 6 0 52 2 0 2 33 22 0 20 7 0 20 8 0 48 0 16 8 1 6 0 52 2 0 2 48 2 32 9 0 16 6 6 34 3 0 5 16 0 17 10 16 8 6 33 10 0 5 16 8 1 9 0 52 2 0 2 33 12 0 16 8 1 9 0 52 2 0 2 32 2 0 16 5 17 11 16 4 1 10 0 52 2 0 2 6 34 24 0 5 16 8 6 33 17 0 5 16 8 1 10 0 52 2 0 2 1 12 0 52 11 0 2 17 12 20 13 0 16 0 1 14 0 1 6 0 16 10 1 3 0 16 9 1 15 0 16 2 65 3 0 48 3 5 16 1 6 33 14 0 5 16 1 52 17 0 1 1 18 0 52 16 0 2 33 81 0 16 1 52 20 0 1 52 19 0 1 17 13 16 13 52 21 0 1 6 33 14 0 5 16 13 52 19 0 1 1 22 0 52 11 0 2 33 32 0 51 24 0 16 13 52 25 0 1 52 23 0 2 17 14 20 26 0 1 22 0 16 14 52 27 0 2 48 1 32 7 0 20 26 0 16 13 48 1 32 2 0 16 1 17 13 16 11 33 12 0 20 28 0 16 13 16 11 48 2 32 2 0 16 13 17 14 16 4 1 29 0 52 2 0 2 33 10 0 20 30 0 16 14 48 1 32 2 0 16 14 17 15 16 12 33 20 0 1 32 0 51 33 0 1 10 1 15 1 9 52 31 0 2 112 32 11 0 20 34 0 16 10 16 15 16 9 48 3 5 20 13 0 16 0 1 35 0 2 48 3 5 16 8 6 33 17 0 5 16 8 1 37 0 52 2 0 2 1 38 0 52 11 0 2 52 36 0 1 33 12 0 20 39 0 16 0 16 7 48 2 32 1 0 2 5 20 40 0 16 4 1 41 0 52 2 0 2 6 34 4 0 5 1 42 0 48 1 5 20 13 0 16 0 1 43 0 2 49 3 50)} "hx-make-handler" {:upvalue-count 0 :arity 3 :constants ("Build handler fn — Phase 2: status dispatch, sync, validate, partials, transitions, etag." "hx-resolve-attr" "hx-target" "hx-parse-swap-spec" "hx-swap" "innerHTML" "dom-get-attr" "hx-select" "hx-parse-status-rules" {:upvalue-count 7 :arity 1 :constants ("prevent-default" "hx-sync-check!" "hx-validate-form?" "hx-confirm?" "hx-dispatch!" "htmx:before:request" "method" "url" "hx-indicator-on!" "hx-disable-inputs!" "get" "swap-delay" "hs-wait" "hx-resolve-target" "hx-request" "status" "body" "htmx:after:request" "not" "=" 204 304 "hx-do-swap" "hx-enable-inputs!" "hx-indicator-off!" "hx-sync-complete!" "htmx-boot-subtree!" "hs-boot-subtree!") :bytecode (16 0 33 10 0 20 0 0 16 0 48 1 32 1 0 2 5 20 1 0 18 0 48 1 6 33 20 0 5 20 2 0 18 0 48 1 6 33 8 0 5 20 3 0 18 0 48 1 33 38 1 20 4 0 18 0 1 5 0 1 6 0 18 1 1 7 0 18 2 65 2 0 48 3 5 20 8 0 18 0 48 1 5 20 9 0 18 0 48 1 5 18 3 1 11 0 52 10 0 2 33 17 0 20 12 0 18 3 1 11 0 52 10 0 2 48 1 32 1 0 2 5 20 13 0 18 0 18 4 48 2 17 1 20 14 0 18 0 18 2 18 1 16 1 48 4 17 2 16 2 1 15 0 52 10 0 2 17 3 16 2 1 16 0 52 10 0 2 17 4 20 4 0 18 0 1 17 0 1 6 0 18 1 1 7 0 18 2 1 15 0 16 3 65 3 0 48 3 5 16 3 1 20 0 52 19 0 2 6 34 10 0 5 16 3 1 21 0 52 19 0 2 52 18 0 1 33 24 0 20 22 0 18 0 16 4 16 3 18 5 18 3 18 6 16 1 18 2 48 8 32 1 0 2 5 20 23 0 18 0 48 1 5 20 24 0 18 0 48 1 5 20 25 0 18 0 48 1 5 16 3 1 20 0 52 19 0 2 6 34 10 0 5 16 3 1 21 0 52 19 0 2 52 18 0 1 33 32 0 20 26 0 16 1 6 34 3 0 5 18 0 48 1 5 20 27 0 16 1 6 34 3 0 5 18 0 49 1 32 1 0 2 32 1 0 2 50)}) :bytecode (1 0 0 5 20 1 0 16 0 1 2 0 48 2 17 3 20 3 0 20 1 0 16 0 1 4 0 48 2 6 34 4 0 5 1 5 0 48 1 17 4 20 6 0 16 0 1 7 0 48 2 17 5 20 8 0 16 0 48 1 17 6 51 9 0 1 0 1 1 1 2 1 4 1 3 1 6 1 5 50)} "hx-wrap-debounce" {:upvalue-count 0 :arity 2 :constants ("Wrap handler with debounce (delay: ms before firing)" {:upvalue-count 3 :arity 1 :constants ("clear-timeout" "set-timeout" {:upvalue-count 3 :arity 0 :constants () :bytecode (2 19 0 5 18 1 18 2 49 1 50)}) :bytecode (18 0 33 10 0 20 0 0 18 0 48 1 32 1 0 2 5 20 1 0 51 2 0 0 0 0 1 1 0 18 2 48 2 19 0 50)}) :bytecode (1 0 0 5 2 17 2 51 1 0 1 2 1 0 1 1 50)} "hx-wrap-throttle" {:upvalue-count 0 :arity 2 :constants ("Wrap handler with throttle." 0 {:upvalue-count 3 :arity 1 :constants ("now-ms" ">" "-") :bytecode (20 0 0 48 0 17 1 16 1 18 0 52 2 0 2 18 1 52 1 0 2 33 14 0 16 1 19 0 5 18 2 16 0 49 1 32 1 0 2 50)}) :bytecode (1 0 0 5 1 1 0 17 2 51 2 0 1 2 1 1 1 0 50)} "hx-wrap-changed" {:upvalue-count 0 :arity 2 :constants ("Wrap handler: only fire if element value changed since last fire." {:upvalue-count 3 :arity 1 :constants ("element-value" "not" "=") :bytecode (20 0 0 18 0 48 1 17 1 16 1 18 1 52 2 0 2 52 1 0 1 33 14 0 16 1 19 1 5 18 2 16 0 49 1 32 1 0 2 50)}) :bytecode (1 0 0 5 2 17 2 51 1 0 1 1 1 2 1 0 50)} "hx-register-trigger!" {:upvalue-count 0 :arity 3 :constants ("Register event handler with trigger modifiers applied." "get" "event" "delay" "throttle" "once" "changed" "from" "hx-wrap-changed" "hx-wrap-debounce" "hx-wrap-throttle" "dom-query" "dom-body" "=" "load" "revealed" "intersect" "list" io-observe-intersection {:upvalue-count 1 :arity 0 :constants () :bytecode (18 0 2 49 1 50)} "every" io-set-interval "hs-on") :bytecode (1 0 0 5 16 1 1 2 0 52 1 0 2 17 3 16 1 1 3 0 52 1 0 2 17 4 16 1 1 4 0 52 1 0 2 17 5 16 1 1 5 0 52 1 0 2 17 6 16 1 1 6 0 52 1 0 2 17 7 16 1 1 7 0 52 1 0 2 17 8 16 2 17 9 16 7 33 14 0 20 8 0 16 9 16 0 48 2 17 9 32 1 0 2 5 16 4 33 14 0 20 9 0 16 9 16 4 48 2 17 9 32 1 0 2 5 16 5 33 14 0 20 10 0 16 9 16 5 48 2 17 9 32 1 0 2 5 16 8 33 15 0 20 11 0 20 12 0 48 0 16 8 48 2 32 2 0 16 0 17 10 16 3 1 14 0 52 13 0 2 33 8 0 16 9 2 49 1 32 94 0 16 3 1 15 0 52 13 0 2 6 34 10 0 5 16 3 1 16 0 52 13 0 2 33 18 0 1 18 0 16 0 51 19 0 1 9 52 17 0 3 112 32 50 0 16 3 1 20 0 52 13 0 2 33 27 0 16 4 33 18 0 1 21 0 51 19 0 1 9 16 4 52 17 0 3 112 32 1 0 2 32 11 0 20 22 0 16 10 16 3 16 9 49 3 50)} "htmx-activate!" {:upvalue-count 0 :arity 1 :constants ("Scan hx-* attributes on element, build and register handler.\n Also handles: hx-preload, hx-sse-connect, hx-ignore." "not" "dom-get-attr" "hx-ignore" "hx-verb-info" "dom-get-data" "hx-active" "dom-set-data" "first" "nth" 1 "hx-parse-trigger" "hx-trigger" "hx-make-handler" "hx-register-trigger!" "hx-preload" "hx-preload-register!" "hx-sse-connect" "hx-sse-connect!") :bytecode (1 0 0 5 20 2 0 16 0 1 3 0 48 2 52 1 0 1 33 164 0 20 4 0 16 0 48 1 17 1 16 1 6 33 15 0 5 20 5 0 16 0 1 6 0 48 2 52 1 0 1 33 77 0 20 7 0 16 0 1 6 0 3 48 3 5 16 1 52 8 0 1 17 2 16 1 1 10 0 52 9 0 2 17 3 20 11 0 20 2 0 16 0 1 12 0 48 2 16 0 48 2 17 4 20 13 0 16 0 16 2 16 3 48 3 17 5 20 14 0 16 0 16 4 16 5 48 3 32 1 0 2 5 20 2 0 16 0 1 15 0 48 2 33 10 0 20 16 0 16 0 48 1 32 1 0 2 5 20 2 0 16 0 1 17 0 48 2 33 10 0 20 18 0 16 0 49 1 32 1 0 2 32 1 0 2 50)} "HX-VERB-SELECTORS" "[hx-get],[hx-post],[hx-put],[hx-delete],[hx-patch],[hx-action],[hx-sse-connect],[hx-preload]" "htmx-boot!" {:upvalue-count 0 :arity 0 :constants ("Scan entire document for hx-* elements and activate." "for-each" "htmx-activate!" "dom-query-all" "dom-body" "HX-VERB-SELECTORS" "hx-boost-subtree!") :bytecode (1 0 0 5 20 2 0 20 3 0 20 4 0 48 0 20 5 0 48 2 52 1 0 2 5 20 6 0 2 49 1 50)} "hx-preload-cache" "hx-preload-register!" {:upvalue-count 0 :arity 1 :constants ("Register preload: prefetch GET on mouseenter, cache result." "hx-verb-info" "=" "first" "GET" "nth" 1 "hs-on" "mouseenter" {:upvalue-count 1 :arity 1 :constants ("not" "get" "hx-preload-cache" "list" io-fetch "GET" "Accept" "text/html" io-parse-text "assoc") :bytecode (20 2 0 18 0 52 1 0 2 52 0 0 1 33 54 0 1 4 0 18 0 1 5 0 2 1 6 0 1 7 0 65 1 0 52 3 0 5 112 17 1 1 8 0 16 1 52 3 0 2 112 17 2 20 2 0 18 0 16 2 52 9 0 3 21 2 0 32 1 0 2 50)}) :bytecode (1 0 0 5 20 1 0 16 0 48 1 17 1 16 1 6 33 14 0 5 16 1 52 3 0 1 1 4 0 52 2 0 2 33 29 0 16 1 1 6 0 52 5 0 2 17 2 20 7 0 16 0 1 8 0 51 9 0 1 2 49 3 32 1 0 2 50)} "hx-parse-sse-swap" {:upvalue-count 0 :arity 1 :constants ("Parse hx-sse-swap='event:#target,event2:#target2:outerHTML'." "not" "list" "map" {:upvalue-count 0 :arity 1 :constants ("split" "trim" ":" "=" "len" 2 "target" "nth" 1 "swap" "innerHTML" "event" 0 ">=" 3) :bytecode (16 0 52 1 0 1 1 2 0 52 0 0 2 17 1 16 1 52 4 0 1 1 5 0 52 3 0 2 33 36 0 1 6 0 16 1 1 8 0 52 7 0 2 1 9 0 1 10 0 1 11 0 16 1 1 12 0 52 7 0 2 65 3 0 32 80 0 16 1 52 4 0 1 1 14 0 52 13 0 2 33 42 0 1 6 0 16 1 1 8 0 52 7 0 2 1 9 0 16 1 1 5 0 52 7 0 2 1 11 0 16 1 1 12 0 52 7 0 2 65 3 0 32 22 0 1 6 0 2 1 9 0 1 10 0 1 11 0 16 0 52 1 0 1 65 3 0 50)} "split" ",") :bytecode (1 0 0 5 16 0 52 1 0 1 33 7 0 52 2 0 0 32 16 0 51 4 0 16 0 1 6 0 52 5 0 2 52 3 0 2 50)} "hx-sse-connect!" {:upvalue-count 0 :arity 1 :constants ("Connect to SSE endpoint. Dispatch events to swap targets." "dom-get-attr" "hx-sse-connect" "hx-parse-sse-swap" "hx-sse-swap" "list" io-event-source {:upvalue-count 1 :arity 2 :constants ("for-each" {:upvalue-count 2 :arity 1 :constants ("=" "get" "event" "dom-query" "dom-body" "target" "hx-swap!" "hx-normalize-swap-mode" "swap" "htmx-boot-subtree!" "hs-boot-subtree!") :bytecode (18 0 16 0 1 2 0 52 1 0 2 52 0 0 2 33 72 0 20 3 0 20 4 0 48 0 16 0 1 5 0 52 1 0 2 48 2 17 1 16 1 33 42 0 20 6 0 16 1 18 1 20 7 0 16 0 1 8 0 52 1 0 2 48 1 48 3 5 20 9 0 16 1 48 1 5 20 10 0 16 1 49 1 32 1 0 2 32 1 0 2 50)}) :bytecode (51 1 0 1 0 1 1 18 0 52 0 0 2 50)}) :bytecode (1 0 0 5 20 1 0 16 0 1 2 0 48 2 17 1 16 1 33 35 0 20 3 0 20 1 0 16 0 1 4 0 48 2 48 1 17 2 1 6 0 16 1 51 7 0 1 2 52 5 0 3 112 32 1 0 2 50)} "htmx-boot-subtree!" {:upvalue-count 0 :arity 1 :constants ("Activate hx-* elements in subtree. Called after swaps." "for-each" "htmx-activate!" "dom-query-all" "HX-VERB-SELECTORS") :bytecode (1 0 0 5 16 0 33 28 0 20 2 0 20 3 0 16 0 20 4 0 48 2 52 1 0 2 5 20 2 0 16 0 49 1 32 1 0 2 50)} "hx-boost-link!" {:upvalue-count 0 :arity 1 :constants ("Boost an anchor: click → AJAX fetch → swap body → push URL." "dom-get-attr" "href" "not" "hx-verb-info" "starts-with?" "http" "mailto" "#" "dom-set-attr" "hx-get" "hx-target" "body" "hx-swap" "innerHTML" "hx-push-url" "true" "htmx-activate!") :bytecode (1 0 0 5 20 1 0 16 0 1 2 0 48 2 17 1 16 1 6 33 66 0 5 20 4 0 16 0 48 1 52 3 0 1 6 33 50 0 5 16 1 1 6 0 52 5 0 2 52 3 0 1 6 33 32 0 5 16 1 1 7 0 52 5 0 2 52 3 0 1 6 33 14 0 5 16 1 1 8 0 52 5 0 2 52 3 0 1 33 128 0 20 9 0 16 0 1 10 0 16 1 48 3 5 20 1 0 16 0 1 11 0 48 2 52 3 0 1 33 16 0 20 9 0 16 0 1 11 0 1 12 0 48 3 32 1 0 2 5 20 1 0 16 0 1 13 0 48 2 52 3 0 1 33 16 0 20 9 0 16 0 1 13 0 1 14 0 48 3 32 1 0 2 5 20 1 0 16 0 1 15 0 48 2 52 3 0 1 33 16 0 20 9 0 16 0 1 15 0 1 16 0 48 3 32 1 0 2 5 20 17 0 16 0 49 1 32 1 0 2 50)} "hx-boost-form!" {:upvalue-count 0 :arity 1 :constants ("Boost a form: submit → AJAX." "dom-get-attr" "action" "" "downcase" "method" "post" "not" "hx-verb-info" "dom-set-attr" "str" "hx-" "hx-target" "body" "hx-swap" "innerHTML" "htmx-activate!") :bytecode (1 0 0 5 20 1 0 16 0 1 2 0 48 2 6 34 4 0 5 1 3 0 17 1 20 1 0 16 0 1 5 0 48 2 6 34 4 0 5 1 6 0 52 4 0 1 17 2 20 8 0 16 0 48 1 52 7 0 1 33 99 0 20 9 0 16 0 1 11 0 16 2 52 10 0 2 16 1 48 3 5 20 1 0 16 0 1 12 0 48 2 52 7 0 1 33 16 0 20 9 0 16 0 1 12 0 1 13 0 48 3 32 1 0 2 5 20 1 0 16 0 1 14 0 48 2 52 7 0 1 33 16 0 20 9 0 16 0 1 14 0 1 15 0 48 3 32 1 0 2 5 20 16 0 16 0 49 1 32 1 0 2 50)} "hx-boost-subtree!" {:upvalue-count 0 :arity 1 :constants ("Apply hx-boost to links and forms within scope." "dom-body" "for-each" "hx-boost-link!" "dom-query-all" "[hx-boost] a, a[hx-boost]" "hx-boost-form!" "[hx-boost] form, form[hx-boost]") :bytecode (1 0 0 5 16 0 6 34 6 0 5 20 1 0 48 0 17 1 20 3 0 20 4 0 16 1 1 5 0 48 2 52 2 0 2 5 20 6 0 20 4 0 16 1 1 7 0 48 2 52 2 0 2 50)}) :bytecode (1 1 0 1 2 0 1 3 0 4 1 4 0 1 5 0 1 6 0 1 7 0 1 8 0 1 9 0 1 10 0 4 1 11 0 1 13 0 1 14 0 52 12 0 2 65 7 0 128 0 0 5 1 7 0 128 15 0 5 51 17 0 128 16 0 5 51 19 0 128 18 0 5 51 21 0 128 20 0 5 51 23 0 128 22 0 5 51 25 0 128 24 0 5 51 27 0 128 26 0 5 51 29 0 128 28 0 5 51 31 0 128 30 0 5 51 33 0 128 32 0 5 51 35 0 128 34 0 5 51 37 0 128 36 0 5 51 39 0 128 38 0 5 51 41 0 128 40 0 5 51 43 0 128 42 0 5 51 45 0 128 44 0 5 51 47 0 128 46 0 5 51 49 0 128 48 0 5 51 51 0 128 50 0 5 51 53 0 128 52 0 5 51 55 0 128 54 0 5 51 57 0 128 56 0 5 51 59 0 128 58 0 5 51 61 0 128 60 0 5 51 63 0 128 62 0 5 51 65 0 128 64 0 5 51 67 0 128 66 0 5 51 69 0 128 68 0 5 51 71 0 128 70 0 5 51 73 0 128 72 0 5 51 75 0 128 74 0 5 51 77 0 128 76 0 5 51 79 0 128 78 0 5 51 81 0 128 80 0 5 51 83 0 128 82 0 5 51 85 0 128 84 0 5 51 87 0 128 86 0 5 51 89 0 128 88 0 5 51 91 0 128 90 0 5 51 93 0 128 92 0 5 51 95 0 128 94 0 5 51 97 0 128 96 0 5 51 99 0 128 98 0 5 51 101 0 128 100 0 5 51 103 0 128 102 0 5 51 105 0 128 104 0 5 1 107 0 128 106 0 5 51 109 0 128 108 0 5 52 12 0 0 128 110 0 5 51 112 0 128 111 0 5 51 114 0 128 113 0 5 51 116 0 128 115 0 5 51 118 0 128 117 0 5 51 120 0 128 119 0 5 51 122 0 128 121 0 5 51 124 0 128 123 0 50))) + :constants ("HX-CONFIG-DEFAULTS" "defaultTimeout" nil "transitions" "defaultSwap" "innerHTML" "requestClass" "htmx-request" "defaultSettleDelay" nil "implicitInheritance" "noSwap" "list" nil nil "HX-REQUEST-CLASS" "url-encode-params" {:upvalue-count nil :arity nil :constants ("Encode dict as URL query string: {:a 1 :b 2} → 'a=1&b=2'." "map" {:upvalue-count nil :arity nil :constants ("str" "=" "get") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "keys" "join" "&") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "sx-url-with-params" {:upvalue-count nil :arity nil :constants ("Embed params as :key \"value\" keywords inside an SX URL's innermost paren.\n /sx/(a.(b)) + {:q \"hi\"} → /sx/(a.(b :q \"hi\"))" "not" "contains?" "(" "str" "?" "url-encode-params" "-" "len" nil nil ">=" "=" "nth" ")" "+" "slice" "join" " " "map" {:upvalue-count nil :arity nil :constants ("str" ":" " \"" "get" "\"") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "keys") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-element-config" {:upvalue-count nil :arity nil :constants ("Read config value: hx-config JSON on element → global defaults." "dom-get-attr" "hx-config" "json-parse" "get" "HX-CONFIG-DEFAULTS") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-walk-inherited" {:upvalue-count nil :arity nil :constants ("Walk ancestors looking for attr:inherited." "str" ":inherited" "dom-parent" "not" "dom-get-attr" "hx-walk-inherited") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-resolve-attr" {:upvalue-count nil :arity nil :constants ("Resolve attribute, checking :inherited on ancestors.\n v4 default: no implicit inheritance." "dom-get-attr" "hx-walk-inherited") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-verb-info" {:upvalue-count nil :arity nil :constants ("Scan verb attributes. Returns (method url) or nil.\n v4 supports both hx-get='/url' and hx-action='/url' hx-method='get'." "dom-get-attr" "hx-get" "hx-post" "hx-put" "hx-delete" "hx-patch" "hx-action" "hx-method" "list" "GET" "POST" "PUT" "DELETE" "PATCH" "upcase") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-default-trigger" {:upvalue-count nil :arity nil :constants ("Default trigger: form→submit, input/select/textarea→change, else→click." "downcase" "dom-tag-name" "=" "form" "submit" "input" "textarea" "select" "change" "click") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-parse-time" {:upvalue-count nil :arity nil :constants ("Parse time spec: '500ms'→500, '1s'→1000, '2m'→120000." "not" "ends-with?" "ms" "parse-number" "slice" nil "-" "len" nil "s" "*" nil nil "m" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-parse-trigger" {:upvalue-count nil :arity nil :constants ("Parse hx-trigger spec. Returns {:event :delay :throttle :once :changed :from :filter}." "not" "filter" "delay" "throttle" "from" "event" "hx-default-trigger" "changed" "once" "split" "trim" " " "first" "for-each" {:upvalue-count nil :arity nil :constants ("starts-with?" "delay:" "hx-parse-time" "slice" nil "throttle:" nil "=" "once" "changed" "from:" nil "[") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "rest") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-resolve-target" {:upvalue-count nil :arity nil :constants ("Resolve hx-target: nil→el, 'this'→el, 'closest sel'→walk up, '#id'→query." "hx-resolve-attr" "hx-target" "not" "=" "this" "body" "dom-body" "starts-with?" "closest " "dom-closest" "slice" nil "find " "dom-query" nil "next " "hs-next" "previous " "hs-previous" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-normalize-swap-mode" {:upvalue-count nil :arity nil :constants ("Normalize v4 swap aliases to canonical names." "=" "before" "beforebegin" "after" "afterend" "prepend" "afterbegin" "append" "beforeend") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-parse-swap-spec" {:upvalue-count nil :arity nil :constants ("Parse swap spec with all v4 modifiers.\n Returns {:mode :swap-delay :settle-delay :scroll :show-target :transition :strip :target :ignore-title}." "not" "ignore-title" "transition" "target" "strip" "scroll" "mode" "innerHTML" "settle-delay" "show-target" "swap-delay" "split" " " "hx-normalize-swap-mode" "first" "for-each" {:upvalue-count nil :arity nil :constants ("starts-with?" "swap:" "hx-parse-time" "slice" nil "settle:" nil "scroll:" "show:" "showTarget:" nil "scrollTarget:" nil "=" "transition:true" "strip:true" "target:" "ignoreTitle:true") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "rest") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-swap!" {:upvalue-count nil :arity nil :constants ("Swap content into target. Supports all v4 modes." "=" "innerHTML" "dom-set-inner-html" "outerHTML" "dom-insert-adjacent-html" "afterend" "dom-remove" "beforeend" "afterbegin" "beforebegin" "delete" "none" "textContent" "dom-set-text-content" "innerMorph" "outerMorph") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-select-fragment" {:upvalue-count nil :arity nil :constants ("Extract fragment matching selector from HTML response (hx-select)." "not" "dom-parse-html" "dom-query" "dom-outer-html") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-element-source-id" {:upvalue-count nil :arity nil :constants ("Format element as tagName#id for v4 HX-Source header." "downcase" "dom-tag-name" "dom-get-attr" "id" "str" "#") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-form-values" {:upvalue-count nil :arity nil :constants ("Extract name=value pairs from form inputs." "dom-query-all" "input, select, textarea" "for-each" {:upvalue-count nil :arity nil :constants ("dom-get-attr" "name" "element-value" "assoc") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-collect-params" {:upvalue-count nil :arity nil :constants ("Collect request params: form values + hx-include + hx-vals + element name/value." "=" "downcase" "dom-tag-name" "form" "hx-form-values" "input" "select" "textarea" "dom-get-attr" "name" "assoc" "element-value" "hx-include" "dom-query" "merge" "hx-vals" "json-parse") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-build-headers" {:upvalue-count nil :arity nil :constants ("Build v4 request headers." "HX-Source" "hx-element-source-id" "HX-Request" "true" "Accept" "text/html" "HX-Request-Type" "partial" "assoc" "HX-Target" "HX-Current-URL" "browser-location-href" "hx-resolve-attr" "hx-headers" "json-parse" "merge") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-request" {:upvalue-count nil :arity nil :constants ("Issue HTTP request with v4 conventions.\n Returns {:status :body :headers} for status-based dispatch." "hx-collect-params" "hx-build-headers" "dom-get-attr" "hx-encoding" "dom-get-data" "hx-etag" "=" "GET" "DELETE" "empty?" "str" "?" "url-encode-params" "multipart/form-data" "json-stringify" "not" "assoc" "Content-Type" "application/json" "If-None-Match" "list" io-fetch "host-get" "status" "body" "headers" "etag" "dom-set-data") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-process-oob!" {:upvalue-count nil :arity nil :constants ("Process out-of-band swaps: elements with hx-swap-oob." "dom-parse-html" "dom-query-all" "[hx-swap-oob]" "for-each" {:upvalue-count nil :arity nil :constants ("dom-get-attr" "hx-swap-oob" "id" "dom-query" "dom-body" "str" "#" "hx-normalize-swap-mode" "=" "true" "innerHTML" "dom-remove-attr" "hx-swap!" "dom-outer-html") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-process-partials!" {:upvalue-count nil :arity nil :constants ("Process elements: each specifies its own target + swap.\n v4: swaps in document order after main content." "dom-parse-html" "dom-query-all" "hx-partial" "for-each" {:upvalue-count nil :arity nil :constants ("dom-get-attr" "hx-target" "hx-swap" "innerHTML" "dom-query" "dom-body" "hx-normalize-swap-mode" "hx-swap!" "dom-inner-html") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-parse-status-modifiers" {:upvalue-count nil :arity nil :constants ("Parse hx-status modifier string: 'swap:innerHTML target:#errors push:false'." "split" " " "target" "transition" "swap" "select" "push" "replace" "for-each" {:upvalue-count nil :arity nil :constants ("starts-with?" "swap:" "assoc" "swap" "slice" nil "target:" "target" nil "select:" "select" "push:" "push" "replace:" "replace" nil "transition:" "transition" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-status-matches?" {:upvalue-count nil :arity nil :constants ("Check if status matches pattern: '404'='404', '50x'=500-509, '5xx'=500-599." "=" "len" nil "ends-with?" "xx" "slice" nil nil "x" "not" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-parse-status-rules" {:upvalue-count nil :arity nil :constants ("Scan element for hx-status:CODE attributes. Returns list of rule dicts." "dom-attr-list" "list" "for-each" {:upvalue-count nil :arity nil :constants ("get" "name" "value" "starts-with?" "hx-status:" "slice" nil "not" "ends-with?" "x" nil "xx" nil nil "append" "list" "merge" "specificity" "code" "hx-parse-status-modifiers") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-match-status" {:upvalue-count nil :arity nil :constants ("Match HTTP status against rules. Returns best match (highest specificity) or nil." "str" nil "for-each" {:upvalue-count nil :arity nil :constants ("get" "code" "specificity" "hx-status-matches?" ">") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-handle-history!" {:upvalue-count nil :arity nil :constants ("Push or replace URL based on hx-push-url / hx-replace-url." "hx-resolve-attr" "hx-push-url" "hx-replace-url" "=" "true" "browser-push-state" "scrollY" nil "" "not" "false" "browser-replace-state") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-indicator-on!" {:upvalue-count nil :arity nil :constants ("Add request class to element + indicator targets." "dom-add-class" "HX-REQUEST-CLASS" "hx-resolve-attr" "hx-indicator" "for-each" {:upvalue-count nil :arity nil :constants ("dom-add-class" "HX-REQUEST-CLASS") :bytecode (nil nil nil nil nil nil nil nil nil nil nil)} "dom-query-all" "dom-body") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-indicator-off!" {:upvalue-count nil :arity nil :constants ("Remove request class from element + indicator targets." "dom-remove-class" "HX-REQUEST-CLASS" "hx-resolve-attr" "hx-indicator" "for-each" {:upvalue-count nil :arity nil :constants ("dom-remove-class" "HX-REQUEST-CLASS") :bytecode (nil nil nil nil nil nil nil nil nil nil nil)} "dom-query-all" "dom-body") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-disable-inputs!" {:upvalue-count nil :arity nil :constants ("Disable form elements during request (v4 hx-disable)." "dom-get-attr" "hx-disable" "for-each" {:upvalue-count nil :arity nil :constants ("dom-set-attr" "disabled" "true") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "dom-query-all" "dom-body") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-enable-inputs!" {:upvalue-count nil :arity nil :constants ("Re-enable form elements after request." "dom-get-attr" "hx-disable" "for-each" {:upvalue-count nil :arity nil :constants ("dom-remove-attr" "disabled") :bytecode (nil nil nil nil nil nil nil nil nil nil nil)} "dom-query-all" "dom-body") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-confirm?" {:upvalue-count nil :arity nil :constants ("Show confirm dialog if hx-confirm set. Returns true to proceed." "hx-resolve-attr" "hx-confirm" "browser-confirm") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-validate-form?" {:upvalue-count nil :arity nil :constants ("Check form validity if hx-validate is set. Returns true to proceed." "dom-get-attr" "hx-validate" "=" "downcase" "dom-tag-name" "form" "dom-closest" "host-call" "checkValidity") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-parse-sync-spec" {:upvalue-count nil :arity nil :constants ("Parse hx-sync='selector:strategy'. Returns {:selector :strategy :queue-mode} or nil." "not" "index-of" ":" "strategy" "drop" "selector" "queue-mode" "trim" "slice" nil "+" nil "starts-with?" "queue" "split" " " ">" "len" "nth" "last") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-sync-resolve-target" {:upvalue-count nil :arity nil :constants ("Resolve sync target element." "=" "this" "closest form" "dom-closest" "form" "dom-query" "dom-body") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-sync-check!" {:upvalue-count nil :arity nil :constants ("Check sync strategy. Returns true if request should proceed." "hx-parse-sync-spec" "dom-get-attr" "hx-sync" "not" "hx-sync-resolve-target" "get" "selector" "strategy" "dom-get-data" "hx-sync-in-flight" "=" "drop" "dom-set-data" "abort" "replace" "dom-dispatch" "htmx:abort" "queue" "hx-sync-queued") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-sync-complete!" {:upvalue-count nil :arity nil :constants ("Mark request complete. Fire queued request if any." "hx-parse-sync-spec" "dom-get-attr" "hx-sync" "hx-sync-resolve-target" "get" "selector" "dom-set-data" "hx-sync-in-flight" "dom-get-data" "hx-sync-queued" "dom-dispatch" "click") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-dispatch!" {:upvalue-count nil :arity nil :constants ("Dispatch htmx event with v4 naming (htmx:phase:action)." "dom-dispatch") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-strip-outer" {:upvalue-count nil :arity nil :constants ("Remove outer element, return inner content." "dom-parse-html" "dom-first-child" "dom-inner-html") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-do-swap" {:upvalue-count nil :arity nil :constants ("Execute swap phase: status overrides → select → strip → transition → swap → partials → OOB → history → settle." "hx-match-status" "get" "swap" "hx-normalize-swap-mode" "mode" "target" "dom-query" "dom-body" "select" "transition" "=" "true" "hx-dispatch!" "htmx:before:swap" "status" "starts-with?" "trim" "(" "first" "parse" "list?" <> "filter" {:upvalue-count nil :arity nil :constants ("not" "list?" "some" {:upvalue-count nil :arity nil :constants ("=" "type-of" "keyword" "keyword-name" "sx-swap-oob") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "rest" "render-to-html" "cons" "hx-select-fragment" "strip" "hx-strip-outer" "list" io-view-transition {:upvalue-count nil :arity nil :constants ("hx-swap!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-swap!" "htmx:after:swap" "not" "push" "false" "hx-handle-history!" "hs-wait" "settle-delay" nil "htmx:after:settle") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-make-handler" {:upvalue-count nil :arity nil :constants ("Build handler fn — Phase 2: status dispatch, sync, validate, partials, transitions, etag." "hx-resolve-attr" "hx-target" "hx-parse-swap-spec" "hx-swap" "innerHTML" "dom-get-attr" "hx-select" "hx-parse-status-rules" {:upvalue-count nil :arity nil :constants ("prevent-default" "hx-sync-check!" "hx-validate-form?" "hx-confirm?" "hx-dispatch!" "htmx:before:request" "method" "url" "hx-indicator-on!" "hx-disable-inputs!" "get" "swap-delay" "hs-wait" "hx-resolve-target" "hx-request" "status" "body" "htmx:after:request" "not" "=" nil nil "hx-do-swap" "hx-enable-inputs!" "hx-indicator-off!" "hx-sync-complete!" "htmx-boot-subtree!" "hs-boot-subtree!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-wrap-debounce" {:upvalue-count nil :arity nil :constants ("Wrap handler with debounce (delay: ms before firing)" {:upvalue-count nil :arity nil :constants ("clear-timeout" "set-timeout" {:upvalue-count nil :arity nil :constants () :bytecode (nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-wrap-throttle" {:upvalue-count nil :arity nil :constants ("Wrap handler with throttle." nil {:upvalue-count nil :arity nil :constants ("now-ms" ">" "-") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-wrap-changed" {:upvalue-count nil :arity nil :constants ("Wrap handler: only fire if element value changed since last fire." {:upvalue-count nil :arity nil :constants ("element-value" "not" "=") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-register-trigger!" {:upvalue-count nil :arity nil :constants ("Register event handler with trigger modifiers applied." "get" "event" "delay" "throttle" "once" "changed" "from" "hx-wrap-changed" "hx-wrap-debounce" "hx-wrap-throttle" "dom-query" "dom-body" "=" "load" "revealed" "intersect" "list" io-observe-intersection {:upvalue-count nil :arity nil :constants () :bytecode (nil nil nil nil nil nil)} "every" io-set-interval "hs-on") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "htmx-activate!" {:upvalue-count nil :arity nil :constants ("Scan hx-* attributes on element, build and register handler.\n Also handles: hx-preload, hx-sse-connect, hx-ignore." "not" "dom-get-attr" "hx-ignore" "hx-verb-info" "dom-get-data" "hx-active" "dom-set-data" "first" "nth" nil "hx-parse-trigger" "hx-trigger" "hx-make-handler" "hx-register-trigger!" "hx-preload" "hx-preload-register!" "hx-sse-connect" "hx-sse-connect!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "HX-VERB-SELECTORS" "[hx-get],[hx-post],[hx-put],[hx-delete],[hx-patch],[hx-action],[hx-sse-connect],[hx-preload]" "htmx-boot!" {:upvalue-count nil :arity nil :constants ("Scan entire document for hx-* elements and activate." "for-each" "htmx-activate!" "dom-query-all" "dom-body" "HX-VERB-SELECTORS" "hx-boost-subtree!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-preload-cache" "hx-preload-register!" {:upvalue-count nil :arity nil :constants ("Register preload: prefetch GET on mouseenter, cache result." "hx-verb-info" "=" "first" "GET" "nth" nil "hs-on" "mouseenter" {:upvalue-count nil :arity nil :constants ("not" "get" "hx-preload-cache" "list" io-fetch "GET" "Accept" "text/html" io-parse-text "assoc") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-parse-sse-swap" {:upvalue-count nil :arity nil :constants ("Parse hx-sse-swap='event:#target,event2:#target2:outerHTML'." "not" "list" "map" {:upvalue-count nil :arity nil :constants ("split" "trim" ":" "=" "len" nil "target" "nth" nil "swap" "innerHTML" "event" nil ">=" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "split" ",") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-sse-connect!" {:upvalue-count nil :arity nil :constants ("Connect to SSE endpoint. Dispatch events to swap targets." "dom-get-attr" "hx-sse-connect" "hx-parse-sse-swap" "hx-sse-swap" "list" io-event-source {:upvalue-count nil :arity nil :constants ("for-each" {:upvalue-count nil :arity nil :constants ("=" "get" "event" "dom-query" "dom-body" "target" "hx-swap!" "hx-normalize-swap-mode" "swap" "htmx-boot-subtree!" "hs-boot-subtree!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "htmx-boot-subtree!" {:upvalue-count nil :arity nil :constants ("Activate hx-* elements in subtree. Called after swaps." "for-each" "htmx-activate!" "dom-query-all" "HX-VERB-SELECTORS") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-boost-link!" {:upvalue-count nil :arity nil :constants ("Boost an anchor: click → AJAX fetch → swap body → push URL." "dom-get-attr" "href" "not" "hx-verb-info" "starts-with?" "http" "mailto" "#" "dom-set-attr" "hx-get" "hx-target" "body" "hx-swap" "innerHTML" "hx-push-url" "true" "htmx-activate!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-boost-form!" {:upvalue-count nil :arity nil :constants ("Boost a form: submit → AJAX." "dom-get-attr" "action" "" "downcase" "method" "post" "not" "hx-verb-info" "dom-set-attr" "str" "hx-" "hx-target" "body" "hx-swap" "innerHTML" "htmx-activate!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hx-boost-subtree!" {:upvalue-count nil :arity nil :constants ("Apply hx-boost to links and forms within scope." "dom-body" "for-each" "hx-boost-link!" "dom-query-all" "[hx-boost] a, a[hx-boost]" "hx-boost-form!" "[hx-boost] form, form[hx-boost]") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil))) diff --git a/shared/static/wasm/sx/hs-integration.sxbc b/shared/static/wasm/sx/hs-integration.sxbc index 5fd7ef72..e648a93c 100644 --- a/shared/static/wasm/sx/hs-integration.sxbc +++ b/shared/static/wasm/sx/hs-integration.sxbc @@ -1,3 +1,3 @@ -(sxbc 1 "886d830f7097651c" +(sxbc 1 "ba90ab33541c30a0" (code - :constants ("hs-collect-vars" {:upvalue-count 0 :arity 3 :constants ("list" {:upvalue-count 2 :arity 1 :constants ("list?" ">" "len" 1 "=" "first" set! "symbol?" "nth" "not" "some" {:upvalue-count 1 :arity 1 :constants ("=") :bytecode (16 0 18 0 52 0 0 2 50)} "cons" "for-each") :bytecode (16 0 52 0 0 1 33 111 0 16 0 52 2 0 1 1 3 0 52 1 0 2 6 33 32 0 5 16 0 52 5 0 1 1 6 0 52 4 0 2 6 33 14 0 5 16 0 1 3 0 52 8 0 2 52 7 0 1 33 46 0 16 0 1 3 0 52 8 0 2 17 1 51 11 0 1 1 18 0 52 10 0 2 52 9 0 1 33 13 0 16 1 18 0 52 12 0 2 19 0 32 1 0 2 32 1 0 2 5 18 1 16 0 52 13 0 2 32 1 0 2 50)}) :bytecode (52 0 0 0 17 1 5 51 1 0 1 1 1 2 17 2 5 16 2 16 0 48 1 5 16 1 50)} "hs-handler" {:upvalue-count 0 :arity 1 :constants ("hs-to-sx-from-source" "hs-collect-vars" "append" "list" it event "map" {:upvalue-count 0 :arity 1 :constants ("list") :bytecode (16 0 2 52 0 0 2 50)} "eval-expr-cek" fn me let) :bytecode (20 0 0 16 0 48 1 17 1 20 1 0 16 1 48 1 17 2 1 4 0 2 52 3 0 2 1 5 0 2 52 3 0 2 52 3 0 2 51 7 0 16 2 52 6 0 2 52 2 0 2 17 3 20 8 0 1 9 0 1 10 0 52 3 0 1 1 11 0 16 3 16 1 52 3 0 3 52 3 0 3 49 1 50)} "hs-activate!" {:upvalue-count 0 :arity 1 :constants ("dom-get-attr" "_" "not" "dom-get-data" "hs-active" "dom-set-data" "hs-handler") :bytecode (20 0 0 16 0 1 1 0 48 2 17 1 16 1 6 33 15 0 5 20 3 0 16 0 1 4 0 48 2 52 2 0 1 33 30 0 20 5 0 16 0 1 4 0 3 48 3 5 20 6 0 16 1 48 1 17 2 16 2 16 0 49 1 32 1 0 2 50)} "hs-boot!" {:upvalue-count 0 :arity 0 :constants ("dom-query-all" "host-get" "host-global" "document" "body" "[_]" "for-each" {:upvalue-count 0 :arity 1 :constants ("hs-activate!") :bytecode (20 0 0 16 0 49 1 50)}) :bytecode (20 0 0 1 3 0 52 2 0 1 1 4 0 52 1 0 2 1 5 0 48 2 17 0 51 7 0 16 0 52 6 0 2 50)} "hs-boot-subtree!" {:upvalue-count 0 :arity 1 :constants ("dom-query-all" "[_]" "for-each" {:upvalue-count 0 :arity 1 :constants ("hs-activate!") :bytecode (20 0 0 16 0 49 1 50)} "dom-get-attr" "_" "hs-activate!") :bytecode (20 0 0 16 0 1 1 0 48 2 17 1 51 3 0 16 1 52 2 0 2 5 20 4 0 16 0 1 5 0 48 2 33 10 0 20 6 0 16 0 49 1 32 1 0 2 50)}) :bytecode (51 1 0 128 0 0 5 51 3 0 128 2 0 5 51 5 0 128 4 0 5 51 7 0 128 6 0 5 51 9 0 128 8 0 50))) + :constants ("hs-collect-vars" {:upvalue-count nil :arity nil :constants ("list" beingTold me it event you yourself {:upvalue-count nil :arity nil :constants ("list?" ">" "len" nil "=" "first" set! "symbol?" "nth" "not" "some" {:upvalue-count nil :arity nil :constants ("=") :bytecode (nil nil nil nil nil nil nil nil nil)} "cons" "for-each") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-handler" {:upvalue-count nil :arity nil :constants ("hs-to-sx-from-source" "hs-collect-vars" "for-each" {:upvalue-count nil :arity nil :constants ("eval-expr-cek" "list" define) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "list" guard _e true if and list? = first "hs-return" nth nil raise "eval-expr-cek" fn me let beingTold it event) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-register-scripts!" {:upvalue-count nil :arity nil :constants ("for-each" {:upvalue-count nil :arity nil :constants ("not" "dom-get-data" "hs-script-loaded" "host-get" "innerHTML" "eval-expr-cek" "hs-to-sx-from-source" "dom-body") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-query-all" "script[type=text/hyperscript]") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-scripting-disabled?" {:upvalue-count nil :arity nil :constants ("=" "dom-get-attr" "disable-scripting" "hs-scripting-disabled?" "dom-parent") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-activate!" {:upvalue-count nil :arity nil :constants ("hs-register-scripts!" "dom-get-attr" "_" "dom-get-data" "hs-script" "not" "=" "hs-scripting-disabled?" "dom-dispatch" "hyperscript:before:init" "hs-log-event!" "hyperscript:init" "dom-set-data" "hs-active" "dom-set-attr" "data-hyperscript-powered" "true" "host-set!" "host-global" "window" "__hs_current_me" "hs-handler" "type" "component" {:upvalue-count nil :arity nil :constants ("host-call-fn" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "text/hyperscript-template" "for-each" "hs-query-all" "" "hyperscript:parse-error" "errors" "list" "hyperscript:after:init") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-deactivate!" {:upvalue-count nil :arity nil :constants ("dom-get-data" "hs-unlisteners" "list" "for-each" {:upvalue-count nil :arity nil :constants () :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "dom-set-data" "hs-active" "hs-script") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-boot!" {:upvalue-count nil :arity nil :constants ("dom-query-all" "host-get" "host-global" "document" "body" "[_]" "for-each" {:upvalue-count nil :arity nil :constants ("hs-activate!") :bytecode (nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-boot-subtree!" {:upvalue-count nil :arity nil :constants ("dom-query-all" "[_]" "for-each" {:upvalue-count nil :arity nil :constants ("hs-activate!") :bytecode (nil nil nil nil nil nil nil nil)} "dom-get-attr" "_" "hs-activate!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil))) diff --git a/shared/static/wasm/sx/hs-parser.sx b/shared/static/wasm/sx/hs-parser.sx index 6c98e9ef..7b08aa96 100644 --- a/shared/static/wasm/sx/hs-parser.sx +++ b/shared/static/wasm/sx/hs-parser.sx @@ -3373,9 +3373,6 @@ (hs-register-feature! "when" (fn (ctx) (begin ((dict-get ctx :adv!)) ((dict-get ctx :parse-when-feat))))) - (hs-register-feature! - "worker" - (fn (ctx) (error "worker plugin is not installed — see https://hyperscript.org/features/worker"))) (hs-register-feature! "bind" (fn (ctx) (begin ((dict-get ctx :adv!)) ((dict-get ctx :parse-bind-feat))))) diff --git a/shared/static/wasm/sx/hs-parser.sxbc b/shared/static/wasm/sx/hs-parser.sxbc index 09575530..0fa9bac1 100644 --- a/shared/static/wasm/sx/hs-parser.sxbc +++ b/shared/static/wasm/sx/hs-parser.sxbc @@ -1,3 +1,3 @@ -(sxbc 1 "3c0d58c5ef95516a" +(sxbc 1 "9c87becdbb46cc55" (code - :constants ("hs-parse" {:upvalue-count 0 :arity 2 :constants (0 "len" {:upvalue-count 3 :arity 0 :constants ("<" "nth") :bytecode (18 0 18 1 52 0 0 2 33 11 0 18 2 18 0 52 1 0 2 32 1 0 2 50)} {:upvalue-count 1 :arity 0 :constants ("get" "type" "eof") :bytecode (18 0 48 0 17 0 16 0 33 12 0 16 0 1 1 0 52 0 0 2 32 3 0 1 2 0 50)} {:upvalue-count 1 :arity 0 :constants ("get" "value") :bytecode (18 0 48 0 17 0 16 0 33 12 0 16 0 1 1 0 52 0 0 2 32 1 0 2 50)} {:upvalue-count 2 :arity 0 :constants ("nth" "+" 1) :bytecode (18 0 18 1 52 0 0 2 17 0 18 1 1 2 0 52 1 0 2 19 1 5 16 0 50)} {:upvalue-count 3 :arity 0 :constants (">=" "=" "eof") :bytecode (18 0 18 1 52 0 0 2 6 34 12 0 5 18 2 48 0 1 2 0 52 1 0 2 50)} {:upvalue-count 3 :arity 1 :constants ("=" "keyword") :bytecode (18 0 48 0 1 1 0 52 0 0 2 6 33 11 0 5 18 1 48 0 16 0 52 0 0 2 33 9 0 18 2 48 0 5 3 32 1 0 2 50)} {:upvalue-count 2 :arity 1 :constants ("error" "str" "Expected '" "' at position ") :bytecode (18 0 16 0 48 1 33 4 0 3 32 18 0 1 2 0 16 0 1 3 0 18 1 52 1 0 4 52 0 0 1 50)} {:upvalue-count 0 :arity 1 :constants ("len" ">=" 3 "=" "substring" "-" 2 "ms" "parse-number" 0 "nth" 1 "s" "*" 1000) :bytecode (16 0 52 0 0 1 17 1 16 1 1 2 0 52 1 0 2 6 33 25 0 5 16 0 16 1 1 6 0 52 5 0 2 16 1 52 4 0 3 1 7 0 52 3 0 2 33 25 0 16 0 1 9 0 16 1 1 6 0 52 5 0 2 52 4 0 3 52 8 0 1 32 77 0 16 1 1 6 0 52 1 0 2 6 33 23 0 5 16 0 16 1 1 11 0 52 5 0 2 52 10 0 2 1 12 0 52 3 0 2 33 32 0 1 14 0 16 0 1 9 0 16 1 1 11 0 52 5 0 2 52 4 0 3 52 8 0 1 52 13 0 2 32 6 0 16 0 52 8 0 1 50)} {:upvalue-count 4 :arity 1 :constants ("=" "ident" "keyword" "list" . "attr" attr "class" "get" "value" "style" style) :bytecode (18 0 48 0 17 1 18 1 48 0 17 2 16 1 1 1 0 52 0 0 2 6 34 10 0 5 16 1 1 2 0 52 0 0 2 33 23 0 18 2 48 0 5 18 3 1 4 0 16 0 16 2 52 3 0 3 49 1 32 107 0 16 1 1 5 0 52 0 0 2 33 19 0 18 2 48 0 5 1 6 0 16 2 16 0 52 3 0 3 32 76 0 16 1 1 7 0 52 0 0 2 33 31 0 18 2 48 0 1 9 0 52 8 0 2 17 3 18 3 1 4 0 16 0 16 3 52 3 0 3 49 1 32 33 0 16 1 1 10 0 52 0 0 2 33 19 0 18 2 48 0 5 1 11 0 16 2 16 0 52 3 0 3 32 2 0 16 0 50)} {:upvalue-count 6 :arity 1 :constants ("=" "class" "not" "list" "make-symbol" "." "paren-open" method-call) :bytecode (18 0 48 0 1 1 0 52 0 0 2 6 33 9 0 5 18 1 48 0 52 2 0 1 33 33 0 18 2 48 0 17 1 18 3 48 0 5 18 4 1 5 0 52 4 0 1 16 0 16 1 52 3 0 3 49 1 32 40 0 18 0 48 0 1 6 0 52 0 0 2 33 24 0 18 5 48 0 17 1 18 4 1 7 0 16 0 16 1 52 3 0 3 49 1 32 2 0 16 0 50)} {:upvalue-count 3 :arity 1 :constants ("=" "selector" "list" me "class" "str" "." "id" "#" "*") :bytecode (18 0 48 0 17 1 18 1 48 0 17 2 16 1 1 1 0 52 0 0 2 33 23 0 18 2 48 0 5 16 0 16 2 1 3 0 52 2 0 1 52 2 0 3 32 100 0 16 1 1 4 0 52 0 0 2 33 30 0 18 2 48 0 5 16 0 1 6 0 16 2 52 5 0 2 1 3 0 52 2 0 1 52 2 0 3 32 58 0 16 1 1 7 0 52 0 0 2 33 30 0 18 2 48 0 5 16 0 1 8 0 16 2 52 5 0 2 1 3 0 52 2 0 1 52 2 0 3 32 16 0 16 0 1 9 0 1 3 0 52 2 0 1 52 2 0 3 50)} {:upvalue-count 5 :arity 1 :constants ("=" "selector" "class" "str" "." "id" "#" "*" "in" "list") :bytecode (18 0 48 0 17 1 18 1 48 0 17 2 16 1 1 1 0 52 0 0 2 33 10 0 18 2 48 0 5 16 2 32 61 0 16 1 1 2 0 52 0 0 2 33 17 0 18 2 48 0 5 1 4 0 16 2 52 3 0 2 32 32 0 16 1 1 5 0 52 0 0 2 33 17 0 18 2 48 0 5 1 6 0 16 2 52 3 0 2 32 3 0 1 7 0 17 3 18 3 1 8 0 48 1 33 15 0 16 0 16 3 18 4 48 0 52 9 0 3 32 8 0 16 0 16 3 52 9 0 2 50)} {:upvalue-count 17 :arity 0 :constants ("=" "number" "string" "template" "list" template "keyword" "true" "false" "null" "nil" null-literal "undefined" "beep" "op" "!" beep! "not" not "no" no "eval" "paren-open" sx-eval "the" "me" me "I" "it" "result" it "event" event "target" "make-symbol" "." "detail" "my" "your" "its" "closest" closest "next" next "previous" previous "first" first "last" last "id" query "str" "#" "selector" "attr" attr "style" style "local" local "class" "ident" ref "paren-close" "brace-open" {:upvalue-count 6 :arity 1 :constants ("=" "brace-close" "string" "local" "true" "false" "null" "list" ref "colon" "comma" "cons") :bytecode (18 0 48 0 6 34 12 0 5 18 1 48 0 1 1 0 52 0 0 2 33 28 0 18 1 48 0 1 1 0 52 0 0 2 33 7 0 18 2 48 0 32 1 0 2 5 16 0 32 203 0 18 1 48 0 1 2 0 52 0 0 2 33 16 0 18 3 48 0 17 1 18 2 48 0 5 16 1 32 13 0 18 3 48 0 17 1 18 2 48 0 5 16 1 17 1 18 1 48 0 1 3 0 52 0 0 2 33 71 0 18 3 48 0 17 2 18 2 48 0 5 16 2 1 4 0 52 0 0 2 33 4 0 3 32 41 0 16 2 1 5 0 52 0 0 2 33 4 0 4 32 25 0 16 2 1 6 0 52 0 0 2 33 4 0 2 32 9 0 1 8 0 16 2 52 7 0 2 32 30 0 18 1 48 0 1 9 0 52 0 0 2 33 12 0 18 2 48 0 5 18 4 48 0 32 4 0 18 4 48 0 17 2 18 1 48 0 1 10 0 52 0 0 2 33 7 0 18 2 48 0 32 1 0 2 5 18 5 16 1 16 2 52 7 0 2 16 0 52 11 0 2 49 1 50)} object-literal "\\" {:upvalue-count 6 :arity 1 :constants ("=" "op" "-" "<" "+" 1 "len" "get" "nth" "value" ">" "ident" "comma" "append") :bytecode (18 0 48 0 1 1 0 52 0 0 2 6 33 12 0 5 18 1 48 0 1 2 0 52 0 0 2 33 76 0 18 2 1 5 0 52 4 0 2 18 3 52 6 0 1 52 3 0 2 6 33 30 0 5 18 3 18 2 1 5 0 52 4 0 2 52 8 0 2 1 9 0 52 7 0 2 1 10 0 52 0 0 2 33 15 0 18 4 48 0 5 18 4 48 0 5 16 0 32 2 0 16 0 32 65 0 18 0 48 0 1 11 0 52 0 0 2 33 49 0 18 1 48 0 17 1 18 4 48 0 5 18 0 48 0 1 12 0 52 0 0 2 33 7 0 18 4 48 0 32 1 0 2 5 18 5 16 0 16 1 52 13 0 2 49 1 32 2 0 16 0 50)} block-literal "bracket-open" "-" - 0 "component" component "some" ">" "len" "+" 1 "get" "nth" "value" "in" "with" some "every" every "type" call) :bytecode (18 0 48 0 17 0 18 1 48 0 17 1 16 0 1 1 0 52 0 0 2 33 14 0 18 2 48 0 5 18 3 16 1 49 1 32 186 7 16 0 1 2 0 52 0 0 2 33 10 0 18 2 48 0 5 16 1 32 164 7 16 0 1 3 0 52 0 0 2 33 17 0 18 2 48 0 5 1 5 0 16 1 52 4 0 2 32 135 7 16 0 1 6 0 52 0 0 2 6 33 10 0 5 16 1 1 7 0 52 0 0 2 33 9 0 18 2 48 0 5 3 32 100 7 16 0 1 6 0 52 0 0 2 6 33 10 0 5 16 1 1 8 0 52 0 0 2 33 9 0 18 2 48 0 5 4 32 65 7 16 0 1 6 0 52 0 0 2 6 33 24 0 5 16 1 1 9 0 52 0 0 2 6 34 10 0 5 16 1 1 10 0 52 0 0 2 33 15 0 18 2 48 0 5 1 11 0 52 4 0 1 32 10 7 16 0 1 6 0 52 0 0 2 6 33 10 0 5 16 1 1 12 0 52 0 0 2 33 15 0 18 2 48 0 5 1 11 0 52 4 0 1 32 225 6 16 0 1 6 0 52 0 0 2 6 33 10 0 5 16 1 1 13 0 52 0 0 2 33 58 0 18 2 48 0 5 18 0 48 0 1 14 0 52 0 0 2 6 33 12 0 5 18 1 48 0 1 15 0 52 0 0 2 33 7 0 18 2 48 0 32 1 0 2 5 1 16 0 18 4 48 0 52 4 0 2 32 141 6 16 0 1 6 0 52 0 0 2 6 33 10 0 5 16 1 1 17 0 52 0 0 2 33 19 0 18 2 48 0 5 1 18 0 18 4 48 0 52 4 0 2 32 96 6 16 0 1 6 0 52 0 0 2 6 33 10 0 5 16 1 1 19 0 52 0 0 2 33 19 0 18 2 48 0 5 1 20 0 18 4 48 0 52 4 0 2 32 51 6 16 0 1 6 0 52 0 0 2 6 33 10 0 5 16 1 1 21 0 52 0 0 2 33 47 0 18 2 48 0 5 18 0 48 0 1 22 0 52 0 0 2 33 14 0 1 23 0 18 5 48 0 52 4 0 2 32 11 0 1 23 0 18 4 48 0 52 4 0 2 32 234 5 16 0 1 6 0 52 0 0 2 6 33 10 0 5 16 1 1 24 0 52 0 0 2 33 12 0 18 2 48 0 5 18 6 49 0 32 196 5 16 0 1 6 0 52 0 0 2 6 33 10 0 5 16 1 1 25 0 52 0 0 2 33 15 0 18 2 48 0 5 1 26 0 52 4 0 1 32 155 5 16 0 1 6 0 52 0 0 2 6 33 10 0 5 16 1 1 27 0 52 0 0 2 33 15 0 18 2 48 0 5 1 26 0 52 4 0 1 32 114 5 16 0 1 6 0 52 0 0 2 6 33 24 0 5 16 1 1 28 0 52 0 0 2 6 34 10 0 5 16 1 1 29 0 52 0 0 2 33 15 0 18 2 48 0 5 1 30 0 52 4 0 1 32 59 5 16 0 1 6 0 52 0 0 2 6 33 10 0 5 16 1 1 31 0 52 0 0 2 33 15 0 18 2 48 0 5 1 32 0 52 4 0 1 32 18 5 16 0 1 6 0 52 0 0 2 6 33 10 0 5 16 1 1 33 0 52 0 0 2 33 29 0 18 2 48 0 5 1 35 0 52 34 0 1 1 32 0 52 4 0 1 1 33 0 52 4 0 3 32 219 4 16 0 1 6 0 52 0 0 2 6 33 10 0 5 16 1 1 36 0 52 0 0 2 33 29 0 18 2 48 0 5 1 35 0 52 34 0 1 1 32 0 52 4 0 1 1 36 0 52 4 0 3 32 164 4 16 0 1 6 0 52 0 0 2 6 33 24 0 5 16 1 1 37 0 52 0 0 2 6 34 10 0 5 16 1 1 38 0 52 0 0 2 33 19 0 18 2 48 0 5 18 7 1 26 0 52 4 0 1 49 1 32 105 4 16 0 1 6 0 52 0 0 2 6 33 10 0 5 16 1 1 39 0 52 0 0 2 33 19 0 18 2 48 0 5 18 7 1 30 0 52 4 0 1 49 1 32 60 4 16 0 1 6 0 52 0 0 2 6 33 10 0 5 16 1 1 40 0 52 0 0 2 33 15 0 18 2 48 0 5 18 8 1 41 0 49 1 32 19 4 16 0 1 6 0 52 0 0 2 6 33 10 0 5 16 1 1 42 0 52 0 0 2 33 15 0 18 2 48 0 5 18 8 1 43 0 49 1 32 234 3 16 0 1 6 0 52 0 0 2 6 33 10 0 5 16 1 1 44 0 52 0 0 2 33 15 0 18 2 48 0 5 18 8 1 45 0 49 1 32 193 3 16 0 1 6 0 52 0 0 2 6 33 10 0 5 16 1 1 46 0 52 0 0 2 33 15 0 18 2 48 0 5 18 9 1 47 0 49 1 32 152 3 16 0 1 6 0 52 0 0 2 6 33 10 0 5 16 1 1 48 0 52 0 0 2 33 15 0 18 2 48 0 5 18 9 1 49 0 49 1 32 111 3 16 0 1 50 0 52 0 0 2 33 24 0 18 2 48 0 5 1 51 0 1 53 0 16 1 52 52 0 2 52 4 0 2 32 75 3 16 0 1 54 0 52 0 0 2 33 17 0 18 2 48 0 5 1 51 0 16 1 52 4 0 2 32 46 3 16 0 1 55 0 52 0 0 2 33 24 0 18 2 48 0 5 1 56 0 16 1 1 26 0 52 4 0 1 52 4 0 3 32 10 3 16 0 1 57 0 52 0 0 2 33 24 0 18 2 48 0 5 1 58 0 16 1 1 26 0 52 4 0 1 52 4 0 3 32 230 2 16 0 1 59 0 52 0 0 2 33 17 0 18 2 48 0 5 1 60 0 16 1 52 4 0 2 32 201 2 16 0 1 61 0 52 0 0 2 33 24 0 18 2 48 0 5 1 51 0 1 35 0 16 1 52 52 0 2 52 4 0 2 32 165 2 16 0 1 62 0 52 0 0 2 33 17 0 18 2 48 0 5 1 63 0 16 1 52 4 0 2 32 136 2 16 0 1 22 0 52 0 0 2 33 39 0 18 2 48 0 5 18 4 48 0 17 2 18 0 48 0 1 64 0 52 0 0 2 33 7 0 18 2 48 0 32 1 0 2 5 16 2 32 85 2 16 0 1 65 0 52 0 0 2 33 41 0 18 2 48 0 5 51 66 0 0 10 0 0 0 2 0 1 0 4 1 2 17 2 5 1 67 0 16 2 52 4 0 0 48 1 52 4 0 2 32 32 2 16 0 1 14 0 52 0 0 2 6 33 10 0 5 16 1 1 68 0 52 0 0 2 33 49 0 18 2 48 0 5 51 69 0 0 0 0 1 0 11 0 12 0 2 1 3 17 3 5 16 3 52 4 0 0 48 1 17 4 1 70 0 16 4 18 4 48 0 52 4 0 3 32 213 1 16 0 1 71 0 52 0 0 2 33 12 0 18 2 48 0 5 18 13 49 0 32 189 1 16 0 1 14 0 52 0 0 2 6 33 10 0 5 16 1 1 72 0 52 0 0 2 33 26 0 18 2 48 0 5 18 14 48 0 17 4 1 73 0 1 74 0 16 4 52 4 0 3 32 137 1 16 0 1 75 0 52 0 0 2 33 17 0 18 2 48 0 5 1 76 0 16 1 52 4 0 2 32 108 1 16 0 1 6 0 52 0 0 2 6 33 10 0 5 16 1 1 77 0 52 0 0 2 33 149 0 18 2 48 0 5 18 0 48 0 1 62 0 52 0 0 2 6 33 54 0 5 18 12 52 79 0 1 18 11 1 81 0 52 80 0 2 52 78 0 2 6 33 30 0 5 18 12 18 11 1 81 0 52 80 0 2 52 83 0 2 1 84 0 52 82 0 2 1 85 0 52 0 0 2 33 51 0 18 1 48 0 17 4 18 2 48 0 5 18 15 1 85 0 48 1 5 18 4 48 0 17 5 18 15 1 86 0 48 1 5 1 87 0 16 4 16 5 18 4 48 0 52 4 0 4 32 18 0 1 18 0 1 20 0 18 4 48 0 52 4 0 2 52 4 0 2 32 189 0 16 0 1 6 0 52 0 0 2 6 33 10 0 5 16 1 1 88 0 52 0 0 2 33 56 0 18 2 48 0 5 18 1 48 0 17 4 18 2 48 0 5 18 15 1 85 0 48 1 5 18 4 48 0 17 5 18 15 1 86 0 48 1 5 1 89 0 16 4 16 5 18 4 48 0 52 4 0 4 32 107 0 16 0 1 6 0 52 0 0 2 6 33 54 0 5 18 12 52 79 0 1 18 11 1 81 0 52 80 0 2 52 78 0 2 6 33 30 0 5 18 12 18 11 1 81 0 52 80 0 2 52 83 0 2 1 90 0 52 82 0 2 1 22 0 52 0 0 2 33 36 0 18 2 48 0 5 16 1 17 4 18 16 48 0 17 5 1 91 0 1 63 0 16 4 52 4 0 2 16 5 52 4 0 3 32 1 0 2 50)} {:upvalue-count 8 :arity 1 :constants ("=" "op" "'s" "class" "paren-open" "list" call "bracket-open" ".." "bracket-close" array-slice array-index) :bytecode (18 0 48 0 1 1 0 52 0 0 2 6 33 12 0 5 18 1 48 0 1 2 0 52 0 0 2 33 14 0 18 2 48 0 5 18 3 16 0 49 1 32 74 1 18 0 48 0 1 3 0 52 0 0 2 33 9 0 18 4 16 0 49 1 32 51 1 18 0 48 0 1 4 0 52 0 0 2 33 20 0 18 5 48 0 17 1 1 6 0 16 0 16 1 52 5 0 3 32 17 1 18 0 48 0 1 7 0 52 0 0 2 33 1 1 18 2 48 0 5 18 0 48 0 1 1 0 52 0 0 2 6 33 12 0 5 18 1 48 0 1 8 0 52 0 0 2 33 53 0 18 2 48 0 5 18 6 48 0 17 1 18 0 48 0 1 9 0 52 0 0 2 33 7 0 18 2 48 0 32 1 0 2 5 18 7 1 10 0 16 0 2 16 1 52 5 0 4 49 1 32 166 0 18 6 48 0 17 1 18 0 48 0 1 1 0 52 0 0 2 6 33 12 0 5 18 1 48 0 1 8 0 52 0 0 2 33 92 0 18 2 48 0 5 18 0 48 0 1 9 0 52 0 0 2 33 24 0 18 2 48 0 5 18 7 1 10 0 16 0 16 1 2 52 5 0 4 49 1 32 46 0 18 6 48 0 17 2 18 0 48 0 1 9 0 52 0 0 2 33 7 0 18 2 48 0 32 1 0 2 5 18 7 1 10 0 16 0 16 1 16 2 52 5 0 4 49 1 32 38 0 18 0 48 0 1 9 0 52 0 0 2 33 7 0 18 2 48 0 32 1 0 2 5 18 7 1 11 0 16 0 16 1 52 5 0 3 49 1 32 2 0 16 0 50)} {:upvalue-count 7 :arity 1 :constants ("=" "op" "==" "!=" "<" ">" "<=" ">=" "===" "!==" "list" = strict-eq not "keyword" "is" "not" "empty" empty? "in" not-in? "between" "and" and >= <= "really" "equal" "to" "a" "an" "!" type-check-strict type-check "ignoring" "case" eq-ignore-case "less" "than" "or" < "greater" > in? "ident" "hs-keyword?" prop-is "am" "exists" exists? "starts" "with" starts-with-ic? starts-with? "ends" ends-with-ic? ends-with? "matches" matches-ignore-case? matches? "contains" contains-ignore-case? contains? "as" "colon" as "str" ":" "of" "list?" "first" ref "make-symbol" "." "nth" 1 of "does" "exist" "match" "contain" "include" "includes" "start" "end" "equals" "precedes" precedes? "follows" follows?) :bytecode (18 0 48 0 17 1 18 1 48 0 17 2 16 1 1 1 0 52 0 0 2 6 33 108 0 5 16 2 1 2 0 52 0 0 2 6 34 94 0 5 16 2 1 3 0 52 0 0 2 6 34 80 0 5 16 2 1 4 0 52 0 0 2 6 34 66 0 5 16 2 1 5 0 52 0 0 2 6 34 52 0 5 16 2 1 6 0 52 0 0 2 6 34 38 0 5 16 2 1 7 0 52 0 0 2 6 34 24 0 5 16 2 1 8 0 52 0 0 2 6 34 10 0 5 16 2 1 9 0 52 0 0 2 33 109 0 18 2 48 0 5 18 3 48 0 17 3 16 2 1 2 0 52 0 0 2 33 14 0 1 11 0 16 0 16 3 52 10 0 3 32 69 0 16 2 1 8 0 52 0 0 2 33 14 0 1 12 0 16 0 16 3 52 10 0 3 32 43 0 16 2 1 9 0 52 0 0 2 33 21 0 1 13 0 1 12 0 16 0 16 3 52 10 0 3 52 10 0 2 32 10 0 16 2 16 0 16 3 52 10 0 3 32 54 10 16 1 1 14 0 52 0 0 2 6 33 10 0 5 16 2 1 15 0 52 0 0 2 33 244 3 18 2 48 0 5 18 4 1 16 0 48 1 33 166 1 18 4 1 17 0 48 1 33 19 0 1 13 0 1 18 0 16 0 52 10 0 2 52 10 0 2 32 134 1 18 4 1 19 0 48 1 33 16 0 1 20 0 16 0 18 3 48 0 52 10 0 3 32 108 1 18 4 1 21 0 48 1 33 59 0 18 5 48 0 17 3 18 4 1 22 0 48 1 5 18 5 48 0 17 4 1 13 0 1 23 0 1 24 0 16 0 16 3 52 10 0 3 1 25 0 16 0 16 4 52 10 0 3 52 10 0 3 52 10 0 2 32 39 1 18 4 1 26 0 48 1 33 39 0 18 4 1 27 0 48 1 5 18 4 1 28 0 48 1 5 1 13 0 1 12 0 16 0 18 3 48 0 52 10 0 3 52 10 0 2 32 246 0 18 4 1 27 0 48 1 33 31 0 18 4 1 28 0 48 1 5 1 13 0 1 11 0 16 0 18 3 48 0 52 10 0 3 52 10 0 2 32 205 0 18 1 48 0 1 29 0 52 0 0 2 6 34 12 0 5 18 1 48 0 1 30 0 52 0 0 2 6 33 7 0 5 18 2 48 0 5 3 33 101 0 18 1 48 0 17 3 18 2 48 0 5 18 0 48 0 1 1 0 52 0 0 2 6 33 12 0 5 18 1 48 0 1 31 0 52 0 0 2 17 4 16 4 33 7 0 18 2 48 0 32 1 0 2 5 16 4 33 21 0 1 13 0 1 32 0 16 0 16 3 52 10 0 3 52 10 0 2 32 18 0 1 13 0 1 33 0 16 0 16 3 52 10 0 3 52 10 0 2 32 63 0 18 3 48 0 17 3 18 4 1 34 0 48 1 33 29 0 18 4 1 35 0 48 1 5 1 13 0 1 36 0 16 0 16 3 52 10 0 3 52 10 0 2 32 18 0 1 13 0 1 11 0 16 0 16 3 52 10 0 3 52 10 0 2 32 60 2 18 4 1 17 0 48 1 33 12 0 1 18 0 16 0 52 10 0 2 32 38 2 18 4 1 37 0 48 1 33 66 0 18 4 1 38 0 48 1 5 18 4 1 39 0 48 1 33 32 0 18 4 1 27 0 48 1 5 18 4 1 28 0 48 1 5 1 25 0 16 0 18 3 48 0 52 10 0 3 32 13 0 1 40 0 16 0 18 3 48 0 52 10 0 3 32 218 1 18 4 1 41 0 48 1 33 66 0 18 4 1 38 0 48 1 5 18 4 1 39 0 48 1 33 32 0 18 4 1 27 0 48 1 5 18 4 1 28 0 48 1 5 1 24 0 16 0 18 3 48 0 52 10 0 3 32 13 0 1 42 0 16 0 18 3 48 0 52 10 0 3 32 142 1 18 4 1 21 0 48 1 33 52 0 18 5 48 0 17 3 18 4 1 22 0 48 1 5 18 5 48 0 17 4 1 23 0 1 24 0 16 0 16 3 52 10 0 3 1 25 0 16 0 16 4 52 10 0 3 52 10 0 3 32 80 1 18 4 1 19 0 48 1 33 16 0 1 43 0 16 0 18 3 48 0 52 10 0 3 32 54 1 18 4 1 26 0 48 1 33 32 0 18 4 1 27 0 48 1 5 18 4 1 28 0 48 1 5 1 12 0 16 0 18 3 48 0 52 10 0 3 32 12 1 18 4 1 27 0 48 1 33 24 0 18 4 1 28 0 48 1 5 1 11 0 16 0 18 3 48 0 52 10 0 3 32 234 0 18 1 48 0 1 29 0 52 0 0 2 6 34 12 0 5 18 1 48 0 1 30 0 52 0 0 2 6 33 7 0 5 18 2 48 0 5 3 33 87 0 18 1 48 0 17 3 18 2 48 0 5 18 0 48 0 1 1 0 52 0 0 2 6 33 12 0 5 18 1 48 0 1 31 0 52 0 0 2 17 4 16 4 33 7 0 18 2 48 0 32 1 0 2 5 16 4 33 14 0 1 32 0 16 0 16 3 52 10 0 3 32 11 0 1 33 0 16 0 16 3 52 10 0 3 32 106 0 18 0 48 0 1 44 0 52 0 0 2 6 33 14 0 5 20 45 0 18 1 48 0 48 1 52 16 0 1 33 25 0 18 1 48 0 17 3 18 2 48 0 5 1 46 0 16 0 16 3 52 10 0 3 32 49 0 18 3 48 0 17 3 18 4 1 34 0 48 1 33 22 0 18 4 1 35 0 48 1 5 1 36 0 16 0 16 3 52 10 0 3 32 11 0 1 11 0 16 0 16 3 52 10 0 3 32 40 6 16 1 1 14 0 52 0 0 2 6 33 10 0 5 16 2 1 47 0 52 0 0 2 33 165 0 18 2 48 0 5 18 4 1 16 0 48 1 33 82 0 18 4 1 19 0 48 1 33 16 0 1 20 0 16 0 18 3 48 0 52 10 0 3 32 53 0 18 4 1 17 0 48 1 33 19 0 1 13 0 1 18 0 16 0 52 10 0 2 52 10 0 2 32 24 0 18 3 48 0 17 3 1 13 0 1 11 0 16 0 16 3 52 10 0 3 52 10 0 2 32 65 0 18 4 1 19 0 48 1 33 16 0 1 43 0 16 0 18 3 48 0 52 10 0 3 32 39 0 18 4 1 17 0 48 1 33 12 0 1 18 0 16 0 52 10 0 2 32 17 0 18 3 48 0 17 3 1 11 0 16 0 16 3 52 10 0 3 32 105 5 16 1 1 14 0 52 0 0 2 6 33 10 0 5 16 2 1 48 0 52 0 0 2 33 17 0 18 2 48 0 5 1 49 0 16 0 52 10 0 2 32 62 5 16 1 1 14 0 52 0 0 2 6 34 10 0 5 16 1 1 44 0 52 0 0 2 6 33 10 0 5 16 2 1 50 0 52 0 0 2 33 65 0 18 2 48 0 5 18 4 1 51 0 48 1 5 18 5 48 0 17 3 18 4 1 34 0 48 1 33 22 0 18 4 1 35 0 48 1 5 1 52 0 16 0 16 3 52 10 0 3 32 11 0 1 53 0 16 0 16 3 52 10 0 3 32 213 4 16 1 1 14 0 52 0 0 2 6 34 10 0 5 16 1 1 44 0 52 0 0 2 6 33 10 0 5 16 2 1 54 0 52 0 0 2 33 65 0 18 2 48 0 5 18 4 1 51 0 48 1 5 18 5 48 0 17 3 18 4 1 34 0 48 1 33 22 0 18 4 1 35 0 48 1 5 1 55 0 16 0 16 3 52 10 0 3 32 11 0 1 56 0 16 0 16 3 52 10 0 3 32 108 4 16 1 1 14 0 52 0 0 2 6 33 10 0 5 16 2 1 57 0 52 0 0 2 33 57 0 18 2 48 0 5 18 3 48 0 17 3 18 4 1 34 0 48 1 33 22 0 18 4 1 35 0 48 1 5 1 58 0 16 0 16 3 52 10 0 3 32 11 0 1 59 0 16 0 16 3 52 10 0 3 32 25 4 16 1 1 14 0 52 0 0 2 6 33 10 0 5 16 2 1 60 0 52 0 0 2 33 57 0 18 2 48 0 5 18 3 48 0 17 3 18 4 1 34 0 48 1 33 22 0 18 4 1 35 0 48 1 5 1 61 0 16 0 16 3 52 10 0 3 32 11 0 1 62 0 16 0 16 3 52 10 0 3 32 198 3 16 1 1 14 0 52 0 0 2 6 33 10 0 5 16 2 1 63 0 52 0 0 2 33 135 0 18 2 48 0 5 18 1 48 0 1 29 0 52 0 0 2 6 34 12 0 5 18 1 48 0 1 30 0 52 0 0 2 33 7 0 18 2 48 0 32 1 0 2 5 18 1 48 0 17 3 18 2 48 0 5 18 0 48 0 1 64 0 52 0 0 2 6 33 9 0 5 18 6 48 0 52 16 0 1 33 39 0 18 2 48 0 5 18 1 48 0 17 4 18 2 48 0 5 1 65 0 16 0 16 3 1 67 0 16 4 52 66 0 3 52 10 0 3 32 11 0 1 65 0 16 0 16 3 52 10 0 3 32 37 3 16 1 1 64 0 52 0 0 2 33 92 0 18 2 48 0 5 18 1 48 0 17 3 18 2 48 0 5 18 0 48 0 1 1 0 52 0 0 2 6 33 12 0 5 18 1 48 0 1 31 0 52 0 0 2 17 4 16 4 33 7 0 18 2 48 0 32 1 0 2 5 16 4 33 14 0 1 32 0 16 0 16 3 52 10 0 3 32 11 0 1 33 0 16 0 16 3 52 10 0 3 32 189 2 16 1 1 14 0 52 0 0 2 6 33 10 0 5 16 2 1 68 0 52 0 0 2 33 77 0 18 2 48 0 5 18 3 48 0 17 3 16 0 52 69 0 1 6 33 14 0 5 16 0 52 70 0 1 1 71 0 52 0 0 2 33 25 0 1 73 0 52 72 0 1 16 3 16 0 1 75 0 52 74 0 2 52 10 0 3 32 11 0 1 76 0 16 0 16 3 52 10 0 3 32 86 2 16 1 1 14 0 52 0 0 2 6 33 10 0 5 16 2 1 19 0 52 0 0 2 33 21 0 18 2 48 0 5 1 43 0 16 0 18 3 48 0 52 10 0 3 32 39 2 16 1 1 14 0 52 0 0 2 6 33 10 0 5 16 2 1 77 0 52 0 0 2 33 252 0 18 2 48 0 5 18 4 1 16 0 48 1 5 18 4 1 78 0 48 1 33 19 0 1 13 0 1 49 0 16 0 52 10 0 2 52 10 0 2 32 207 0 18 4 1 79 0 48 1 33 23 0 1 13 0 1 59 0 16 0 18 3 48 0 52 10 0 3 52 10 0 2 32 174 0 18 4 1 80 0 48 1 6 34 8 0 5 18 4 1 60 0 48 1 33 23 0 1 13 0 1 62 0 16 0 18 3 48 0 52 10 0 3 52 10 0 2 32 129 0 18 4 1 81 0 48 1 6 34 8 0 5 18 4 1 82 0 48 1 33 23 0 1 13 0 1 62 0 16 0 18 3 48 0 52 10 0 3 52 10 0 2 32 84 0 18 4 1 83 0 48 1 33 31 0 18 4 1 51 0 48 1 5 1 13 0 1 53 0 16 0 18 3 48 0 52 10 0 3 52 10 0 2 32 43 0 18 4 1 84 0 48 1 33 31 0 18 4 1 51 0 48 1 5 1 13 0 1 56 0 16 0 18 3 48 0 52 10 0 3 52 10 0 2 32 2 0 16 0 32 17 1 16 1 1 14 0 52 0 0 2 6 33 10 0 5 16 2 1 85 0 52 0 0 2 33 21 0 18 2 48 0 5 1 11 0 16 0 18 3 48 0 52 10 0 3 32 226 0 16 1 1 14 0 52 0 0 2 6 33 10 0 5 16 2 1 26 0 52 0 0 2 33 29 0 18 2 48 0 5 18 4 1 85 0 48 1 5 1 12 0 16 0 18 3 48 0 52 10 0 3 32 171 0 16 1 1 14 0 52 0 0 2 6 33 38 0 5 16 2 1 80 0 52 0 0 2 6 34 24 0 5 16 2 1 81 0 52 0 0 2 6 34 10 0 5 16 2 1 82 0 52 0 0 2 33 21 0 18 2 48 0 5 1 62 0 16 0 18 3 48 0 52 10 0 3 32 96 0 16 1 1 14 0 52 0 0 2 6 33 10 0 5 16 2 1 86 0 52 0 0 2 33 21 0 18 2 48 0 5 1 87 0 16 0 18 5 48 0 52 10 0 3 32 49 0 16 1 1 14 0 52 0 0 2 6 33 10 0 5 16 2 1 88 0 52 0 0 2 33 21 0 18 2 48 0 5 1 89 0 16 0 18 5 48 0 52 10 0 3 32 2 0 16 0 50)} {:upvalue-count 6 :arity 1 :constants ("where" "list" coll-where "sorted" "by" "descending" "not" "ascending" coll-sorted-desc coll-sorted "mapped" "to" coll-mapped "split" coll-split "joined" coll-joined) :bytecode (18 0 1 0 0 48 1 33 36 0 18 1 18 2 18 3 18 4 48 0 48 1 48 1 48 1 17 1 18 5 1 2 0 16 0 16 1 52 1 0 3 49 1 32 11 1 18 0 1 3 0 48 1 33 93 0 18 0 1 4 0 48 1 5 18 1 18 2 18 3 18 4 48 0 48 1 48 1 48 1 17 1 18 0 1 5 0 48 1 17 2 16 2 52 6 0 1 33 10 0 18 0 1 7 0 48 1 32 1 0 2 5 18 5 16 2 33 14 0 1 8 0 16 0 16 1 52 1 0 3 32 11 0 1 9 0 16 0 16 1 52 1 0 3 49 1 32 164 0 18 0 1 10 0 48 1 33 44 0 18 0 1 11 0 48 1 5 18 1 18 2 18 3 18 4 48 0 48 1 48 1 48 1 17 1 18 5 1 12 0 16 0 16 1 52 1 0 3 49 1 32 110 0 18 0 1 13 0 48 1 33 44 0 18 0 1 4 0 48 1 5 18 1 18 2 18 3 18 4 48 0 48 1 48 1 48 1 17 1 18 5 1 14 0 16 0 16 1 52 1 0 3 49 1 32 56 0 18 0 1 15 0 48 1 33 44 0 18 0 1 4 0 48 1 5 18 1 18 2 18 3 18 4 48 0 48 1 48 1 48 1 17 1 18 5 1 16 0 16 0 16 1 52 1 0 3 49 1 32 2 0 16 0 50)} {:upvalue-count 7 :arity 1 :constants ("and" "list" and "or" or) :bytecode (18 0 1 0 0 48 1 33 40 0 18 1 18 2 18 3 18 4 18 5 48 0 48 1 48 1 48 1 48 1 17 1 18 6 1 2 0 16 0 16 1 52 1 0 3 49 1 32 52 0 18 0 1 3 0 48 1 33 40 0 18 1 18 2 18 3 18 4 18 5 48 0 48 1 48 1 48 1 48 1 17 1 18 6 1 4 0 16 0 16 1 52 1 0 3 49 1 32 2 0 16 0 50)} {:upvalue-count 9 :arity 0 :constants ("nil?" "number?" "=" "ident" "not" "starts" "ends" "contains" "matches" "is" "does" "in" "precedes" "follows" "list" string-postfix "then" "end" "else" "otherwise" "op" "%") :bytecode (18 0 48 0 17 0 16 0 52 0 0 1 33 4 0 2 32 134 1 16 0 52 1 0 1 6 33 160 0 5 18 1 48 0 1 3 0 52 2 0 2 6 33 144 0 5 18 2 48 0 1 5 0 52 2 0 2 6 34 124 0 5 18 2 48 0 1 6 0 52 2 0 2 6 34 108 0 5 18 2 48 0 1 7 0 52 2 0 2 6 34 92 0 5 18 2 48 0 1 8 0 52 2 0 2 6 34 76 0 5 18 2 48 0 1 9 0 52 2 0 2 6 34 60 0 5 18 2 48 0 1 10 0 52 2 0 2 6 34 44 0 5 18 2 48 0 1 11 0 52 2 0 2 6 34 28 0 5 18 2 48 0 1 12 0 52 2 0 2 6 34 12 0 5 18 2 48 0 1 13 0 52 2 0 2 52 4 0 1 33 27 0 18 2 48 0 17 1 18 3 48 0 5 1 15 0 16 0 16 1 52 14 0 3 17 0 32 1 0 2 5 18 4 16 0 48 1 17 1 18 5 16 1 48 1 17 2 18 6 16 2 48 1 17 3 18 7 16 3 48 1 17 4 18 8 16 4 48 1 17 5 16 5 6 33 112 0 5 18 1 48 0 1 3 0 52 2 0 2 6 33 64 0 5 18 2 48 0 1 16 0 52 2 0 2 6 34 44 0 5 18 2 48 0 1 17 0 52 2 0 2 6 34 28 0 5 18 2 48 0 1 18 0 52 2 0 2 6 34 12 0 5 18 2 48 0 1 19 0 52 2 0 2 52 4 0 1 6 34 28 0 5 18 1 48 0 1 20 0 52 2 0 2 6 33 12 0 5 18 2 48 0 1 21 0 52 2 0 2 33 25 0 18 2 48 0 17 6 18 3 48 0 5 1 15 0 16 5 16 6 52 14 0 3 32 2 0 16 5 50)} {:upvalue-count 2 :arity 2 :constants () :bytecode (18 0 16 0 48 1 33 7 0 18 1 49 0 32 2 0 16 1 50)} {:upvalue-count 6 :arity 0 :constants ("=" "class" "get" "value" "list" {:upvalue-count 4 :arity 0 :constants ("=" "class" "append" "list" "get" "value") :bytecode (18 0 48 0 1 1 0 52 0 0 2 33 31 0 18 1 18 2 48 0 1 5 0 52 4 0 2 52 3 0 1 52 2 0 2 19 1 5 18 3 49 0 32 1 0 2 50)} "to" me "when" "empty?" add-class-when add-class multi-add-class-when "cons" multi-add-class "style" "local" set-style "brace-open" {:upvalue-count 6 :arity 0 :constants ("not" "=" "brace-close" "get" "value" "colon" "cons" "list") :bytecode (18 0 48 0 1 2 0 52 1 0 2 52 0 0 1 6 33 9 0 5 18 1 48 0 52 0 0 1 33 71 0 18 2 48 0 1 4 0 52 3 0 2 17 0 18 0 48 0 1 5 0 52 1 0 2 33 7 0 18 2 48 0 32 1 0 2 5 18 3 48 0 17 1 18 2 48 0 5 16 0 16 1 52 7 0 2 18 4 52 6 0 2 19 4 5 18 5 49 0 32 1 0 2 50)} "brace-close" set-styles "reverse" add-value) :bytecode (18 0 48 0 1 1 0 52 0 0 2 33 175 0 18 1 48 0 1 3 0 52 2 0 2 17 0 52 4 0 0 17 1 51 5 0 0 0 1 1 0 1 1 2 17 2 5 16 2 48 0 5 18 2 1 6 0 48 1 33 7 0 18 3 48 0 32 7 0 1 7 0 52 4 0 1 17 3 18 2 1 8 0 48 1 33 7 0 18 3 48 0 32 1 0 2 17 4 16 1 52 9 0 1 33 35 0 16 4 33 16 0 1 10 0 16 0 16 3 16 4 52 4 0 4 32 11 0 1 11 0 16 0 16 3 52 4 0 3 32 44 0 16 4 33 18 0 1 12 0 16 3 16 4 16 0 16 1 52 4 0 5 32 21 0 1 14 0 16 3 16 0 16 1 52 13 0 2 52 13 0 2 52 13 0 2 32 255 0 18 0 48 0 1 15 0 52 0 0 2 33 89 0 18 1 48 0 1 3 0 52 2 0 2 17 0 18 0 48 0 1 16 0 52 0 0 2 33 14 0 18 1 48 0 1 3 0 52 2 0 2 32 4 0 18 3 48 0 17 1 18 2 1 6 0 48 1 33 7 0 18 3 48 0 32 7 0 1 7 0 52 4 0 1 17 2 1 17 0 16 0 16 1 16 2 52 4 0 4 32 152 0 18 0 48 0 1 18 0 52 0 0 2 33 101 0 18 1 48 0 5 52 4 0 0 17 0 51 19 0 0 0 0 4 0 1 0 5 1 0 1 1 17 1 5 16 1 48 0 5 18 0 48 0 1 20 0 52 0 0 2 33 7 0 18 1 48 0 32 1 0 2 5 18 2 1 6 0 48 1 33 7 0 18 3 48 0 32 7 0 1 7 0 52 4 0 1 17 2 1 21 0 16 0 52 22 0 1 16 2 52 4 0 3 32 37 0 18 3 48 0 17 0 18 2 1 6 0 48 1 33 20 0 18 3 48 0 17 1 1 23 0 16 0 16 1 52 4 0 3 32 1 0 2 50)} {:upvalue-count 5 :arity 0 :constants ("=" "class" "get" "value" "list" {:upvalue-count 4 :arity 0 :constants ("=" "class" "append" "list" "get" "value") :bytecode (18 0 48 0 1 1 0 52 0 0 2 33 31 0 18 1 18 2 48 0 1 5 0 52 4 0 2 52 3 0 1 52 2 0 2 19 1 5 18 3 49 0 32 1 0 2 50)} "from" "empty?" remove-class "cons" multi-remove-class "bracket-open" "[" "attr" "]" remove-attr "{" {:upvalue-count 4 :arity 0 :constants ("not" "=" "}" ";" "append" "list" "get" "value") :bytecode (18 0 48 0 1 2 0 52 1 0 2 52 0 0 1 33 76 0 18 0 48 0 1 3 0 52 1 0 2 33 7 0 18 1 48 0 32 1 0 2 5 18 0 48 0 1 2 0 52 1 0 2 52 0 0 1 33 31 0 18 2 18 1 48 0 1 7 0 52 6 0 2 52 5 0 1 52 4 0 2 19 2 5 18 3 49 0 32 1 0 2 32 1 0 2 50)} "}" remove-css remove-value remove-element) :bytecode (18 0 48 0 1 1 0 52 0 0 2 33 105 0 18 1 48 0 1 3 0 52 2 0 2 17 0 52 4 0 0 17 1 51 5 0 0 0 1 1 0 1 1 2 17 2 5 16 2 48 0 5 18 2 1 6 0 48 1 33 7 0 18 3 48 0 32 1 0 2 17 3 16 1 52 7 0 1 33 14 0 1 8 0 16 0 16 3 52 4 0 3 32 21 0 1 10 0 16 3 16 0 16 1 52 9 0 2 52 9 0 2 52 9 0 2 32 239 0 18 0 48 0 1 11 0 52 0 0 2 6 33 12 0 5 18 4 48 0 1 12 0 52 0 0 2 33 78 0 18 1 48 0 5 18 0 48 0 1 13 0 52 0 0 2 33 55 0 18 1 48 0 1 3 0 52 2 0 2 17 0 18 2 1 14 0 48 1 5 18 2 1 6 0 48 1 33 7 0 18 3 48 0 32 1 0 2 17 1 1 15 0 16 0 16 1 52 4 0 3 32 1 0 2 32 131 0 18 4 48 0 1 16 0 52 0 0 2 33 72 0 18 1 48 0 5 52 4 0 0 17 0 51 17 0 0 4 0 1 1 0 1 1 17 1 5 16 1 48 0 5 18 2 1 18 0 48 1 5 18 2 1 6 0 48 1 33 7 0 18 3 48 0 32 1 0 2 17 2 1 19 0 16 0 16 2 52 4 0 3 32 45 0 18 3 48 0 17 0 18 2 1 6 0 48 1 33 20 0 18 3 48 0 17 1 1 20 0 16 0 16 1 52 4 0 3 32 9 0 1 21 0 16 0 52 4 0 2 50)} {:upvalue-count 9 :arity 0 :constants ("between" "=" "class" "and" "on" "list" me toggle-between "for" toggle-class-for toggle-class "style" "get" "value" "of" toggle-style-cycle toggle-style-between toggle-style "attr" toggle-attr-between toggle-attr "keyword" "my" "the" "list?" "first" style "nth" 1 2 attr has-class?) :bytecode (18 0 1 0 0 48 1 33 106 0 18 1 48 0 1 2 0 52 1 0 2 33 88 0 18 2 48 0 17 0 18 3 48 0 5 16 0 17 0 18 4 1 3 0 48 1 5 18 1 48 0 1 2 0 52 1 0 2 33 47 0 18 2 48 0 17 1 18 3 48 0 5 16 1 17 1 18 5 1 4 0 1 6 0 52 5 0 1 48 2 17 2 1 7 0 16 0 16 1 16 2 52 5 0 4 32 1 0 2 32 1 0 2 32 139 3 18 1 48 0 1 2 0 52 1 0 2 33 77 0 18 2 48 0 17 0 18 3 48 0 5 16 0 17 0 18 5 1 4 0 1 6 0 52 5 0 1 48 2 17 1 18 0 1 8 0 48 1 33 22 0 18 6 48 0 17 2 1 9 0 16 0 16 1 16 2 52 5 0 4 32 11 0 1 10 0 16 0 16 1 52 5 0 3 32 48 3 18 1 48 0 1 11 0 52 1 0 2 33 175 0 18 3 48 0 1 13 0 52 12 0 2 17 0 18 0 1 14 0 48 1 33 7 0 18 6 48 0 32 7 0 1 6 0 52 5 0 1 17 1 18 0 1 0 0 48 1 33 112 0 18 7 48 0 17 2 18 4 1 3 0 48 1 5 18 7 48 0 17 3 18 0 1 3 0 48 1 33 64 0 18 7 48 0 17 4 18 0 1 3 0 48 1 33 28 0 18 7 48 0 17 5 1 15 0 16 0 16 1 16 2 16 3 16 4 16 5 52 5 0 7 32 17 0 1 15 0 16 0 16 1 16 2 16 3 16 4 52 5 0 6 32 15 0 1 16 0 16 0 16 2 16 3 16 1 52 5 0 5 32 11 0 1 17 0 16 0 16 1 52 5 0 3 32 115 2 18 1 48 0 1 18 0 52 1 0 2 33 101 0 18 3 48 0 1 13 0 52 12 0 2 17 0 18 0 1 4 0 48 1 33 7 0 18 6 48 0 32 7 0 1 6 0 52 5 0 1 17 1 18 0 1 0 0 48 1 33 38 0 18 6 48 0 17 2 18 4 1 3 0 48 1 5 18 6 48 0 17 3 1 19 0 16 0 16 2 16 3 16 1 52 5 0 5 32 11 0 1 20 0 16 0 16 1 52 5 0 3 32 0 2 18 1 48 0 1 21 0 52 1 0 2 6 33 12 0 5 18 2 48 0 1 22 0 52 1 0 2 33 199 0 18 3 48 0 5 18 1 48 0 1 11 0 52 1 0 2 33 115 0 18 3 48 0 1 13 0 52 12 0 2 17 0 18 0 1 0 0 48 1 33 58 0 18 6 48 0 17 1 18 4 1 3 0 48 1 5 18 6 48 0 17 2 18 0 1 4 0 48 1 33 7 0 18 6 48 0 32 1 0 2 17 3 1 16 0 16 0 16 1 16 2 16 3 52 5 0 5 32 31 0 18 0 1 4 0 48 1 33 7 0 18 6 48 0 32 1 0 2 17 1 1 17 0 16 0 16 1 52 5 0 3 32 62 0 18 1 48 0 1 18 0 52 1 0 2 33 47 0 18 3 48 0 1 13 0 52 12 0 2 17 0 18 0 1 4 0 48 1 33 7 0 18 6 48 0 32 1 0 2 17 1 1 20 0 16 0 16 1 52 5 0 3 32 1 0 2 32 27 1 18 1 48 0 1 21 0 52 1 0 2 6 33 12 0 5 18 2 48 0 1 23 0 52 1 0 2 33 252 0 18 3 48 0 5 18 8 48 0 17 0 16 0 52 24 0 1 6 33 14 0 5 16 0 52 25 0 1 1 26 0 52 1 0 2 33 84 0 16 0 1 28 0 52 27 0 2 17 1 16 0 1 29 0 52 27 0 2 17 2 18 0 1 0 0 48 1 33 38 0 18 6 48 0 17 3 18 4 1 3 0 48 1 5 18 6 48 0 17 4 1 16 0 16 1 16 3 16 4 16 2 52 5 0 5 32 11 0 1 17 0 16 1 16 2 52 5 0 3 32 127 0 16 0 52 24 0 1 6 33 14 0 5 16 0 52 25 0 1 1 30 0 52 1 0 2 33 36 0 16 0 1 28 0 52 27 0 2 17 1 16 0 1 29 0 52 27 0 2 17 2 1 20 0 16 1 16 2 52 5 0 3 32 64 0 16 0 52 24 0 1 6 33 14 0 5 16 0 52 25 0 1 1 31 0 52 1 0 2 33 36 0 16 0 1 28 0 52 27 0 2 17 1 16 0 1 29 0 52 27 0 2 17 2 1 10 0 16 2 16 1 52 5 0 3 32 1 0 2 32 1 0 2 50)} {:upvalue-count 3 :arity 0 :constants ("to" "list" set! "on" set-on "error" "str" "Expected to/on at position ") :bytecode (18 0 48 0 17 0 18 1 1 0 0 48 1 33 20 0 18 0 48 0 17 1 1 2 0 16 0 16 1 52 1 0 3 32 43 0 18 1 1 3 0 48 1 33 20 0 18 0 48 0 17 1 1 4 0 16 0 16 1 52 1 0 3 32 13 0 1 7 0 18 2 52 6 0 2 52 5 0 1 50)} {:upvalue-count 4 :arity 0 :constants ("into" "list" set! "before" put! "after" "at" "the" "start" "of" "end" "error" "str" "Expected start/end after at, position " "Expected into/before/after/at at position ") :bytecode (18 0 48 0 17 0 18 1 1 0 0 48 1 33 16 0 1 2 0 18 0 48 0 16 0 52 1 0 3 32 179 0 18 1 1 3 0 48 1 33 19 0 1 4 0 16 0 1 3 0 18 0 48 0 52 1 0 4 32 150 0 18 1 1 5 0 48 1 33 19 0 1 4 0 16 0 1 5 0 18 0 48 0 52 1 0 4 32 121 0 18 1 1 6 0 48 1 33 98 0 18 1 1 7 0 48 1 5 18 1 1 8 0 48 1 33 27 0 18 2 1 9 0 48 1 5 1 4 0 16 0 1 8 0 18 0 48 0 52 1 0 4 32 50 0 18 1 1 10 0 48 1 33 27 0 18 2 1 9 0 48 1 5 1 4 0 16 0 1 10 0 18 0 48 0 52 1 0 4 32 13 0 1 13 0 18 3 52 12 0 2 52 11 0 1 32 13 0 1 14 0 18 3 52 12 0 2 52 11 0 1 50)} {:upvalue-count 3 :arity 0 :constants ("then" "else" "otherwise" "end" "list" if) :bytecode (18 0 48 0 17 0 18 1 1 0 0 48 1 5 18 2 48 0 17 1 18 1 1 1 0 48 1 6 34 8 0 5 18 1 1 2 0 48 1 33 7 0 18 2 48 0 32 1 0 2 17 2 18 1 1 3 0 48 1 5 16 2 33 16 0 1 5 0 16 0 16 1 16 2 52 4 0 4 32 11 0 1 5 0 16 0 16 1 52 4 0 3 50)} {:upvalue-count 6 :arity 0 :constants ("for" "from" "list" wait-for "=" "number" wait "get" "value" 0) :bytecode (18 0 1 0 0 48 1 33 65 0 18 1 48 0 17 0 18 2 48 0 5 18 0 1 1 0 48 1 33 7 0 18 3 48 0 32 1 0 2 17 1 16 1 33 17 0 1 3 0 16 0 1 1 0 16 1 52 2 0 4 32 9 0 1 3 0 16 0 52 2 0 2 32 53 0 18 4 48 0 1 5 0 52 4 0 2 33 29 0 18 2 48 0 17 0 1 6 0 18 5 16 0 1 8 0 52 7 0 2 48 1 52 2 0 2 32 10 0 1 6 0 1 9 0 52 2 0 2 50)} {:upvalue-count 4 :arity 1 :constants ({:upvalue-count 5 :arity 1 :constants ("=" "paren-close" "get" "value" "colon" "comma" "append" "list") :bytecode (18 0 48 0 1 1 0 52 0 0 2 6 34 5 0 5 18 1 48 0 33 28 0 18 0 48 0 1 1 0 52 0 0 2 33 7 0 18 2 48 0 32 1 0 2 5 16 0 32 83 0 18 2 48 0 1 3 0 52 2 0 2 17 1 18 0 48 0 1 4 0 52 0 0 2 33 7 0 18 2 48 0 32 1 0 2 5 18 3 48 0 17 2 18 0 48 0 1 5 0 52 0 0 2 33 7 0 18 2 48 0 32 1 0 2 5 18 4 16 0 16 1 16 2 52 7 0 2 52 6 0 2 49 1 50)} "cons" dict "list") :bytecode (18 0 48 0 5 51 0 0 0 1 0 2 0 0 0 3 1 0 17 0 5 1 2 0 16 0 52 3 0 0 48 1 52 1 0 2 50)} {:upvalue-count 4 :arity 0 :constants ("get" "value" {:upvalue-count 6 :arity 0 :constants ("not" "=" "class" "str" "." "local" ":") :bytecode (18 0 48 0 52 0 0 1 33 96 0 18 1 48 0 1 2 0 52 1 0 2 33 32 0 18 2 48 0 17 0 18 3 48 0 5 18 4 1 4 0 16 0 52 3 0 3 19 4 5 18 5 49 0 32 47 0 18 1 48 0 1 5 0 52 1 0 2 33 32 0 18 2 48 0 17 0 18 3 48 0 5 18 4 1 6 0 16 0 52 3 0 3 19 4 5 18 5 49 0 32 1 0 2 32 1 0 2 50)}) :bytecode (18 0 48 0 1 1 0 52 0 0 2 17 0 51 2 0 0 1 0 2 0 3 0 0 1 0 1 1 17 1 5 16 1 48 0 5 16 0 50)} {:upvalue-count 4 :arity 0 :constants ("=" "paren-open" "to" "list" me send) :bytecode (18 0 48 0 17 0 18 1 48 0 1 1 0 52 0 0 2 33 7 0 18 2 48 0 32 1 0 2 17 1 18 3 1 2 0 1 4 0 52 3 0 1 48 2 17 2 16 1 33 16 0 1 5 0 16 0 16 1 16 2 52 3 0 4 32 11 0 1 5 0 16 0 16 2 52 3 0 3 50)} {:upvalue-count 2 :arity 0 :constants ("get" "value" "on" "list" me trigger) :bytecode (18 0 48 0 1 1 0 52 0 0 2 17 0 18 1 1 2 0 1 4 0 52 3 0 1 48 2 17 1 1 5 0 16 0 16 1 52 3 0 3 50)} {:upvalue-count 1 :arity 0 :constants ("list" log) :bytecode (1 1 0 18 0 48 0 52 0 0 2 50)} {:upvalue-count 3 :arity 0 :constants ("by" 1 "on" "list" me increment!) :bytecode (18 0 48 0 17 0 18 1 1 0 0 48 1 33 7 0 18 0 48 0 32 3 0 1 1 0 17 1 18 2 1 2 0 1 4 0 52 3 0 1 48 2 17 2 1 5 0 16 0 16 1 16 2 52 3 0 4 50)} {:upvalue-count 3 :arity 0 :constants ("by" 1 "on" "list" me decrement!) :bytecode (18 0 48 0 17 0 18 1 1 0 0 48 1 33 7 0 18 0 48 0 32 3 0 1 1 0 17 1 18 2 1 2 0 1 4 0 52 3 0 1 48 2 17 2 1 5 0 16 0 16 1 16 2 52 3 0 4 50)} {:upvalue-count 6 :arity 0 :constants ("list" me "=" "keyword" "then" "end" "with" "add" "remove" "set" "put" "toggle" "hide" "show" "display" hide) :bytecode (18 0 48 0 33 10 0 1 1 0 52 0 0 1 32 188 0 18 1 48 0 1 3 0 52 2 0 2 6 33 156 0 5 18 2 48 0 1 4 0 52 2 0 2 6 34 140 0 5 18 2 48 0 1 5 0 52 2 0 2 6 34 124 0 5 18 2 48 0 1 6 0 52 2 0 2 6 34 108 0 5 18 2 48 0 1 7 0 52 2 0 2 6 34 92 0 5 18 2 48 0 1 8 0 52 2 0 2 6 34 76 0 5 18 2 48 0 1 9 0 52 2 0 2 6 34 60 0 5 18 2 48 0 1 10 0 52 2 0 2 6 34 44 0 5 18 2 48 0 1 11 0 52 2 0 2 6 34 28 0 5 18 2 48 0 1 12 0 52 2 0 2 6 34 12 0 5 18 2 48 0 1 13 0 52 2 0 2 33 10 0 1 1 0 52 0 0 1 32 4 0 18 3 48 0 17 0 18 4 1 6 0 48 1 33 29 0 18 0 48 0 33 6 0 1 14 0 32 13 0 18 2 48 0 17 1 18 5 48 0 5 16 1 32 3 0 1 14 0 17 1 1 15 0 16 0 16 1 52 0 0 3 50)} {:upvalue-count 6 :arity 0 :constants ("list" me "=" "keyword" "then" "end" "with" "add" "remove" "set" "put" "toggle" "hide" "show" "display" show) :bytecode (18 0 48 0 33 10 0 1 1 0 52 0 0 1 32 188 0 18 1 48 0 1 3 0 52 2 0 2 6 33 156 0 5 18 2 48 0 1 4 0 52 2 0 2 6 34 140 0 5 18 2 48 0 1 5 0 52 2 0 2 6 34 124 0 5 18 2 48 0 1 6 0 52 2 0 2 6 34 108 0 5 18 2 48 0 1 7 0 52 2 0 2 6 34 92 0 5 18 2 48 0 1 8 0 52 2 0 2 6 34 76 0 5 18 2 48 0 1 9 0 52 2 0 2 6 34 60 0 5 18 2 48 0 1 10 0 52 2 0 2 6 34 44 0 5 18 2 48 0 1 11 0 52 2 0 2 6 34 28 0 5 18 2 48 0 1 12 0 52 2 0 2 6 34 12 0 5 18 2 48 0 1 13 0 52 2 0 2 33 10 0 1 1 0 52 0 0 1 32 4 0 18 3 48 0 17 0 18 4 1 6 0 48 1 33 29 0 18 0 48 0 33 6 0 1 14 0 32 13 0 18 2 48 0 17 1 18 5 48 0 5 16 1 32 3 0 1 14 0 17 1 1 15 0 16 0 16 1 52 0 0 3 50)} {:upvalue-count 8 :arity 0 :constants ("=" "ident" "element" "id" "class" "selector" {:upvalue-count 8 :arity 0 :constants ("=" "style" "get" "value" "my" "'s" "of" "from" "ident" "not" "hs-keyword?" "list" string-postfix "to" "over" "number?" "using" transition-from transition) :bytecode (18 0 48 0 1 1 0 52 0 0 2 33 14 0 18 1 48 0 1 3 0 52 2 0 2 32 133 0 18 2 48 0 1 4 0 52 0 0 2 33 47 0 18 1 48 0 5 18 0 48 0 1 1 0 52 0 0 2 33 14 0 18 1 48 0 1 3 0 52 2 0 2 32 11 0 18 1 48 0 1 3 0 52 2 0 2 32 72 0 18 2 48 0 1 5 0 52 0 0 2 33 47 0 18 1 48 0 5 18 0 48 0 1 1 0 52 0 0 2 33 14 0 18 1 48 0 1 3 0 52 2 0 2 32 11 0 18 1 48 0 1 3 0 52 2 0 2 32 11 0 18 1 48 0 1 3 0 52 2 0 2 17 0 18 3 1 6 0 48 1 33 7 0 18 4 48 0 32 1 0 2 17 1 16 1 33 5 0 16 1 32 2 0 18 5 17 2 18 3 1 7 0 48 1 33 77 0 18 6 48 0 17 3 16 3 6 33 30 0 5 18 0 48 0 1 8 0 52 0 0 2 6 33 14 0 5 20 10 0 18 2 48 0 48 1 52 9 0 1 33 27 0 18 1 48 0 1 3 0 52 2 0 2 17 4 1 12 0 16 3 16 4 52 11 0 3 32 2 0 16 3 32 1 0 2 17 3 18 7 1 13 0 48 1 5 18 6 48 0 17 4 16 4 6 33 30 0 5 18 0 48 0 1 8 0 52 0 0 2 6 33 14 0 5 20 10 0 18 2 48 0 48 1 52 9 0 1 33 27 0 18 1 48 0 1 3 0 52 2 0 2 17 5 1 12 0 16 4 16 5 52 11 0 3 32 2 0 16 4 17 4 18 3 1 14 0 48 1 33 81 0 18 6 48 0 17 5 16 5 52 15 0 1 6 33 30 0 5 18 0 48 0 1 8 0 52 0 0 2 6 33 14 0 5 20 10 0 18 2 48 0 48 1 52 9 0 1 33 27 0 18 1 48 0 1 3 0 52 2 0 2 17 6 1 12 0 16 5 16 6 52 11 0 3 32 2 0 16 5 32 1 0 2 17 5 18 3 1 16 0 48 1 33 7 0 18 4 48 0 32 1 0 2 17 6 16 3 33 20 0 1 17 0 16 0 16 3 16 4 16 5 16 2 52 11 0 6 32 15 0 1 18 0 16 0 16 4 16 5 16 2 52 11 0 5 50)} {:upvalue-count 5 :arity 1 :constants ("not" "=" "ident" "hs-keyword?" "append" "list") :bytecode (18 0 48 0 52 0 0 1 6 33 30 0 5 18 1 48 0 1 2 0 52 1 0 2 6 33 14 0 5 20 3 0 18 2 48 0 48 1 52 0 0 1 33 21 0 18 3 16 0 18 4 48 0 52 5 0 1 52 4 0 2 49 1 32 2 0 16 0 50)} "list" "len" 1 "first" "cons" do) :bytecode (18 0 48 0 1 1 0 52 0 0 2 6 33 12 0 5 18 1 48 0 1 2 0 52 0 0 2 33 12 0 18 2 48 0 5 18 3 48 0 32 64 0 18 0 48 0 1 3 0 52 0 0 2 33 7 0 18 3 48 0 32 43 0 18 0 48 0 1 4 0 52 0 0 2 33 7 0 18 3 48 0 32 22 0 18 0 48 0 1 5 0 52 0 0 2 33 7 0 18 3 48 0 32 1 0 2 17 0 51 6 0 0 0 0 2 0 1 0 4 0 5 1 0 0 3 0 6 17 1 5 16 1 48 0 17 2 51 7 0 0 7 0 0 0 1 1 3 1 1 17 3 5 16 3 16 2 52 8 0 1 48 1 17 4 16 4 52 9 0 1 1 10 0 52 0 0 2 33 9 0 16 4 52 11 0 1 32 9 0 1 13 0 16 4 52 12 0 2 50)} {:upvalue-count 7 :arity 0 :constants ("=" "keyword" "for" "in" "end" "list" for "it" "forever" forever "while" while "until" until "times" times "then" repeat-until repeat-while repeat) :bytecode (18 0 48 0 1 1 0 52 0 0 2 6 33 12 0 5 18 1 48 0 1 2 0 52 0 0 2 33 12 0 18 2 48 0 5 18 3 49 0 32 30 1 18 0 48 0 1 1 0 52 0 0 2 6 33 12 0 5 18 1 48 0 1 3 0 52 0 0 2 33 42 0 18 2 48 0 5 18 4 48 0 17 0 18 5 48 0 17 1 18 6 1 4 0 48 1 5 1 6 0 1 7 0 16 0 16 1 52 5 0 4 32 214 0 18 6 1 8 0 48 1 33 10 0 1 9 0 52 5 0 1 32 83 0 18 6 1 10 0 48 1 33 14 0 1 11 0 18 4 48 0 52 5 0 2 32 59 0 18 6 1 12 0 48 1 33 14 0 1 13 0 18 4 48 0 52 5 0 2 32 35 0 18 4 48 0 17 0 18 6 1 14 0 48 1 33 12 0 1 15 0 16 0 52 5 0 2 32 7 0 1 9 0 52 5 0 1 17 0 18 6 1 16 0 48 1 5 18 5 48 0 17 1 18 6 1 12 0 48 1 33 28 0 18 4 48 0 17 2 18 6 1 4 0 48 1 5 1 17 0 16 2 16 1 52 5 0 3 32 57 0 18 6 1 10 0 48 1 33 28 0 18 4 48 0 17 2 18 6 1 4 0 48 1 5 1 18 0 16 2 16 1 52 5 0 3 32 19 0 18 6 1 4 0 48 1 5 1 19 0 16 0 16 1 52 5 0 3 50)} {:upvalue-count 9 :arity 0 :constants ("=" "keyword" "gql" "brace-open" {:upvalue-count 5 :arity 2 :constants ("join" " " "=" "brace-open" "append" "list" "{" "+" 1 "brace-close" 0 "}" "-" "") :bytecode (18 0 48 0 33 12 0 1 1 0 16 0 52 0 0 2 32 165 0 18 1 48 0 1 3 0 52 2 0 2 33 34 0 18 2 48 0 5 18 3 16 0 1 6 0 52 5 0 1 52 4 0 2 16 1 1 8 0 52 7 0 2 49 2 32 117 0 18 1 48 0 1 9 0 52 2 0 2 33 63 0 16 1 1 10 0 52 2 0 2 33 17 0 18 2 48 0 5 1 1 0 16 0 52 0 0 2 32 31 0 18 2 48 0 5 18 3 16 0 1 11 0 52 5 0 1 52 4 0 2 16 1 1 8 0 52 12 0 2 49 2 32 40 0 18 4 48 0 17 2 18 2 48 0 5 18 3 16 0 16 2 33 5 0 16 2 32 3 0 1 13 0 52 5 0 1 52 4 0 2 16 1 49 2 50)} "str" "{ " "list" 0 " }" "query" "mutation" "subscription" " { " "" "from" fetch-gql "op" "/" {:upvalue-count 6 :arity 0 :constants ("not" "=" "ident" "op" "dot" "number" "append!") :bytecode (18 0 48 0 52 0 0 1 6 33 60 0 5 18 1 48 0 1 2 0 52 1 0 2 6 34 44 0 5 18 1 48 0 1 3 0 52 1 0 2 6 34 28 0 5 18 1 48 0 1 4 0 52 1 0 2 6 34 12 0 5 18 1 48 0 1 5 0 52 1 0 2 33 23 0 18 2 18 3 48 0 52 6 0 2 5 18 4 48 0 5 18 5 49 0 32 1 0 2 50)} "join" "nil?" "as" "with" "not" "text" fetch) :bytecode (18 0 48 0 1 1 0 52 0 0 2 6 33 12 0 5 18 1 48 0 1 2 0 52 0 0 2 33 58 1 18 2 48 0 5 18 0 48 0 1 3 0 52 0 0 2 33 45 0 18 2 48 0 5 51 4 0 0 3 0 0 0 2 1 0 0 1 17 0 5 1 6 0 16 0 52 7 0 0 1 8 0 48 2 1 9 0 52 5 0 3 32 181 0 18 0 48 0 1 1 0 52 0 0 2 6 33 12 0 5 18 1 48 0 1 10 0 52 0 0 2 6 34 60 0 5 18 0 48 0 1 1 0 52 0 0 2 6 33 12 0 5 18 1 48 0 1 11 0 52 0 0 2 6 34 28 0 5 18 0 48 0 1 1 0 52 0 0 2 6 33 12 0 5 18 1 48 0 1 12 0 52 0 0 2 33 84 0 18 1 48 0 17 1 18 2 48 0 5 18 0 48 0 1 3 0 52 0 0 2 33 47 0 18 2 48 0 5 51 4 0 0 3 0 0 0 2 1 2 0 1 17 2 5 16 1 1 13 0 16 2 52 7 0 0 1 8 0 48 2 1 9 0 52 5 0 4 32 9 0 16 1 1 14 0 52 5 0 2 32 3 0 1 14 0 17 1 18 0 48 0 1 1 0 52 0 0 2 6 33 12 0 5 18 1 48 0 1 15 0 52 0 0 2 33 20 0 18 2 48 0 5 18 4 18 5 18 6 48 0 48 1 48 1 32 1 0 2 17 2 1 16 0 16 1 16 2 52 7 0 3 32 17 1 18 0 48 0 1 17 0 52 0 0 2 6 33 12 0 5 18 1 48 0 1 18 0 52 0 0 2 33 49 0 18 2 48 0 5 1 18 0 52 7 0 1 17 0 51 19 0 0 3 0 0 1 0 0 1 0 2 1 1 17 1 5 16 1 48 0 5 1 14 0 16 0 52 20 0 2 32 4 0 18 6 48 0 17 0 16 0 52 21 0 1 33 5 0 16 0 32 10 0 18 4 18 5 16 0 48 1 48 1 17 1 18 7 1 22 0 48 1 33 16 0 18 1 48 0 17 2 18 2 48 0 5 16 2 32 1 0 2 17 2 18 0 48 0 1 3 0 52 0 0 2 33 7 0 18 8 48 0 32 1 0 2 5 18 7 1 23 0 48 1 33 28 0 18 0 48 0 1 3 0 52 0 0 2 33 7 0 18 8 48 0 32 4 0 18 8 48 0 32 1 0 2 5 16 2 52 24 0 1 6 33 8 0 5 18 7 1 22 0 48 1 33 16 0 18 1 48 0 17 3 18 2 48 0 5 16 3 32 1 0 2 17 3 16 2 6 34 11 0 5 16 3 6 34 4 0 5 1 25 0 17 4 1 26 0 16 1 16 4 52 7 0 3 50)} {:upvalue-count 4 :arity 1 :constants ({:upvalue-count 5 :arity 1 :constants ("=" "paren-close" "comma" "append" "list") :bytecode (18 0 48 0 1 1 0 52 0 0 2 6 34 5 0 5 18 1 48 0 33 28 0 18 0 48 0 1 1 0 52 0 0 2 33 7 0 18 2 48 0 32 1 0 2 5 16 0 32 45 0 18 3 48 0 17 1 18 0 48 0 1 2 0 52 0 0 2 33 7 0 18 2 48 0 32 1 0 2 5 18 4 16 0 16 1 52 4 0 1 52 3 0 2 49 1 50)} "list") :bytecode (18 0 48 0 5 51 0 0 0 1 0 2 0 0 0 3 1 0 17 0 5 16 0 52 1 0 0 49 1 50)} {:upvalue-count 3 :arity 0 :constants ("get" "value" "=" "paren-open" "cons" call "list") :bytecode (18 0 48 0 1 1 0 52 0 0 2 17 0 18 1 48 0 1 3 0 52 2 0 2 33 24 0 18 2 48 0 17 1 1 5 0 16 0 16 1 52 4 0 2 52 4 0 2 32 9 0 1 5 0 16 0 52 6 0 2 50)} {:upvalue-count 5 :arity 0 :constants ("=" "class" "from" "for" "list" take! "attr" "get" "value" "op" "with") :bytecode (18 0 48 0 1 1 0 52 0 0 2 33 74 0 18 1 48 0 17 0 18 2 48 0 5 16 0 17 0 18 3 1 2 0 48 1 33 7 0 18 4 48 0 32 1 0 2 17 1 18 3 1 3 0 48 1 33 7 0 18 4 48 0 32 1 0 2 17 2 1 5 0 1 1 0 16 0 16 1 16 2 52 4 0 5 32 163 0 18 0 48 0 1 6 0 52 0 0 2 33 148 0 18 2 48 0 1 8 0 52 7 0 2 17 0 18 0 48 0 1 9 0 52 0 0 2 6 33 12 0 5 18 1 48 0 1 0 0 52 0 0 2 33 19 0 18 2 48 0 5 18 2 48 0 1 8 0 52 7 0 2 32 1 0 2 17 1 18 3 1 10 0 48 1 33 7 0 18 4 48 0 32 1 0 2 17 2 18 3 1 2 0 48 1 33 7 0 18 4 48 0 32 1 0 2 17 3 18 3 1 3 0 48 1 33 7 0 18 4 48 0 32 1 0 2 17 4 1 5 0 1 6 0 16 0 16 3 16 4 16 1 16 2 52 4 0 7 32 1 0 2 50)} {:upvalue-count 2 :arity 0 :constants ("to" "list" go) :bytecode (18 0 1 0 0 48 1 5 1 2 0 18 1 48 0 52 1 0 2 50)} {:upvalue-count 6 :arity 1 :constants ("=" "op" "+" "-" "*" "/" "%" "keyword" "mod" + - * / "make-symbol" "nil?" "list") :bytecode (18 0 48 0 17 1 18 1 48 0 17 2 16 1 1 1 0 52 0 0 2 6 33 66 0 5 16 2 1 2 0 52 0 0 2 6 34 52 0 5 16 2 1 3 0 52 0 0 2 6 34 38 0 5 16 2 1 4 0 52 0 0 2 6 34 24 0 5 16 2 1 5 0 52 0 0 2 6 34 10 0 5 16 2 1 6 0 52 0 0 2 6 34 24 0 5 16 1 1 7 0 52 0 0 2 6 33 10 0 5 16 2 1 8 0 52 0 0 2 33 161 0 18 2 48 0 5 16 2 1 2 0 52 0 0 2 33 6 0 1 9 0 32 91 0 16 2 1 3 0 52 0 0 2 33 6 0 1 10 0 32 73 0 16 2 1 4 0 52 0 0 2 33 6 0 1 11 0 32 55 0 16 2 1 5 0 52 0 0 2 33 6 0 1 12 0 32 37 0 16 2 1 6 0 52 0 0 2 6 34 10 0 5 16 2 1 8 0 52 0 0 2 33 10 0 1 6 0 52 13 0 1 32 1 0 2 17 3 18 3 48 0 17 4 16 4 52 14 0 1 33 5 0 16 4 32 6 0 18 4 16 4 48 1 17 4 18 5 16 3 16 0 16 4 52 15 0 3 49 1 32 2 0 16 0 50)} {:upvalue-count 8 :arity 0 :constants ("=" "style" "of" "list" style me "attr" attr "class" has-class? "selector" "in" in? query "ident" "keyword" "make-symbol" "." "result" it "first" first "last" last "closest" closest "next" next "previous" previous ref) :bytecode (18 0 48 0 17 0 18 1 48 0 17 1 16 0 1 1 0 52 0 0 2 33 50 0 18 2 48 0 5 18 3 1 2 0 48 1 33 16 0 1 4 0 16 1 18 4 48 0 52 3 0 3 32 16 0 1 4 0 16 1 1 5 0 52 3 0 1 52 3 0 3 32 139 1 16 0 1 6 0 52 0 0 2 33 50 0 18 2 48 0 5 18 3 1 2 0 48 1 33 16 0 1 7 0 16 1 18 4 48 0 52 3 0 3 32 16 0 1 7 0 16 1 1 5 0 52 3 0 1 52 3 0 3 32 77 1 16 0 1 8 0 52 0 0 2 33 50 0 18 2 48 0 5 18 3 1 2 0 48 1 33 16 0 1 9 0 18 4 48 0 16 1 52 3 0 3 32 16 0 1 9 0 1 5 0 52 3 0 1 16 1 52 3 0 3 32 15 1 16 0 1 10 0 52 0 0 2 33 50 0 18 2 48 0 5 18 3 1 11 0 48 1 33 23 0 1 12 0 1 13 0 16 1 52 3 0 2 18 4 48 0 52 3 0 3 32 9 0 1 13 0 16 1 52 3 0 2 32 209 0 16 0 1 14 0 52 0 0 2 6 34 10 0 5 16 0 1 15 0 52 0 0 2 33 179 0 18 2 48 0 5 18 3 1 2 0 48 1 33 20 0 1 17 0 52 16 0 1 18 4 48 0 16 1 52 3 0 3 32 141 0 16 1 1 18 0 52 0 0 2 33 10 0 1 19 0 52 3 0 1 32 119 0 16 1 1 20 0 52 0 0 2 33 10 0 18 5 1 21 0 49 1 32 97 0 16 1 1 22 0 52 0 0 2 33 10 0 18 5 1 23 0 49 1 32 75 0 16 1 1 24 0 52 0 0 2 33 10 0 18 6 1 25 0 49 1 32 53 0 16 1 1 26 0 52 0 0 2 33 10 0 18 6 1 27 0 49 1 32 31 0 16 1 1 28 0 52 0 0 2 33 10 0 18 6 1 29 0 49 1 32 9 0 1 30 0 16 1 52 3 0 2 32 4 0 18 7 49 0 50)} {:upvalue-count 4 :arity 1 :constants ({:upvalue-count 5 :arity 1 :constants ("=" "bracket-close" "comma" "append" "list") :bytecode (18 0 48 0 1 1 0 52 0 0 2 6 34 5 0 5 18 1 48 0 33 28 0 18 0 48 0 1 1 0 52 0 0 2 33 7 0 18 2 48 0 32 1 0 2 5 16 0 32 45 0 18 3 48 0 17 1 18 0 48 0 1 2 0 52 0 0 2 33 7 0 18 2 48 0 32 1 0 2 5 18 4 16 0 16 1 52 4 0 1 52 3 0 2 49 1 50)} "cons" array "list") :bytecode (51 0 0 0 0 0 1 0 2 0 3 1 0 17 0 5 1 2 0 16 0 52 3 0 0 48 1 52 1 0 2 50)} {:upvalue-count 4 :arity 0 :constants ("=" "keyword" "end" "then" "else" "list" return) :bytecode (18 0 48 0 6 34 60 0 5 18 1 48 0 1 1 0 52 0 0 2 6 33 44 0 5 18 2 48 0 1 2 0 52 0 0 2 6 34 28 0 5 18 2 48 0 1 3 0 52 0 0 2 6 34 12 0 5 18 2 48 0 1 4 0 52 0 0 2 33 11 0 1 6 0 2 52 5 0 2 32 11 0 1 6 0 18 3 48 0 52 5 0 2 50)} {:upvalue-count 1 :arity 0 :constants ("list" throw) :bytecode (1 1 0 18 0 48 0 52 0 0 2 50)} {:upvalue-count 2 :arity 0 :constants ("to" "list" append! it) :bytecode (18 0 48 0 17 0 18 1 1 0 0 48 1 33 20 0 18 0 48 0 17 1 1 2 0 16 0 16 1 52 1 0 3 32 16 0 1 2 0 16 0 1 3 0 52 1 0 1 52 1 0 3 50)} {:upvalue-count 3 :arity 0 :constants ("then" "end" "list" tell) :bytecode (18 0 48 0 17 0 18 1 1 0 0 48 1 5 18 2 48 0 17 1 18 1 1 1 0 48 1 5 1 3 0 16 0 16 1 52 2 0 3 50)} {:upvalue-count 6 :arity 0 :constants ("in" "index" "indexed" "by" "then" "end" "list" for) :bytecode (18 0 48 0 17 0 18 1 48 0 5 18 2 1 0 0 48 1 5 18 3 48 0 17 1 18 4 1 1 0 48 1 33 16 0 18 0 48 0 17 2 18 1 48 0 5 16 2 32 35 0 18 4 1 2 0 48 1 33 24 0 18 4 1 3 0 48 1 5 18 0 48 0 17 2 18 1 48 0 5 16 2 32 1 0 2 17 2 18 4 1 4 0 48 1 5 18 5 48 0 17 3 18 4 1 5 0 48 1 5 16 2 33 21 0 1 7 0 16 0 16 1 16 3 1 1 0 16 2 52 6 0 6 32 13 0 1 7 0 16 0 16 1 16 3 52 6 0 4 50)} {:upvalue-count 3 :arity 0 :constants ("=" "a" "called" "list" make) :bytecode (18 0 48 0 1 1 0 52 0 0 2 33 7 0 18 1 48 0 32 1 0 2 5 18 0 48 0 17 0 18 1 48 0 5 18 2 1 2 0 48 1 33 16 0 18 0 48 0 17 1 18 1 48 0 5 16 1 32 1 0 2 17 1 16 1 33 14 0 1 4 0 16 0 16 1 52 3 0 3 32 9 0 1 4 0 16 0 52 3 0 2 50)} {:upvalue-count 4 :arity 0 :constants ("=" "paren-open" "cons" install "list") :bytecode (18 0 48 0 17 0 18 1 48 0 5 18 2 48 0 1 1 0 52 0 0 2 33 24 0 18 3 48 0 17 1 1 3 0 16 0 16 1 52 2 0 2 52 2 0 2 32 9 0 1 3 0 16 0 52 4 0 2 50)} {:upvalue-count 1 :arity 0 :constants ("list" measure "nil?" me) :bytecode (18 0 48 0 17 0 1 1 0 16 0 52 2 0 1 33 10 0 1 3 0 52 0 0 1 32 2 0 16 0 52 0 0 2 50)} {:upvalue-count 5 :arity 0 :constants ("=" "keyword" "then" "end" "list" me "top" "bottom" "left" "right" scroll!) :bytecode (18 0 48 0 6 34 44 0 5 18 1 48 0 1 1 0 52 0 0 2 6 33 28 0 5 18 2 48 0 1 2 0 52 0 0 2 6 34 12 0 5 18 2 48 0 1 3 0 52 0 0 2 33 10 0 1 5 0 52 4 0 1 32 4 0 18 3 48 0 17 0 18 4 1 6 0 48 1 33 6 0 1 6 0 32 51 0 18 4 1 7 0 48 1 33 6 0 1 7 0 32 35 0 18 4 1 8 0 48 1 33 6 0 1 8 0 32 19 0 18 4 1 9 0 48 1 33 6 0 1 9 0 32 3 0 1 6 0 17 1 1 10 0 16 0 16 1 52 4 0 3 50)} {:upvalue-count 4 :arity 0 :constants ("=" "keyword" "then" "end" "list" me select!) :bytecode (18 0 48 0 6 34 44 0 5 18 1 48 0 1 1 0 52 0 0 2 6 33 28 0 5 18 2 48 0 1 2 0 52 0 0 2 6 34 12 0 5 18 2 48 0 1 3 0 52 0 0 2 33 10 0 1 5 0 52 4 0 1 32 4 0 18 3 48 0 17 0 1 6 0 16 0 52 4 0 2 50)} {:upvalue-count 4 :arity 0 :constants ("=" "keyword" "then" "end" "list" me reset!) :bytecode (18 0 48 0 6 34 44 0 5 18 1 48 0 1 1 0 52 0 0 2 6 33 28 0 5 18 2 48 0 1 2 0 52 0 0 2 6 34 12 0 5 18 2 48 0 1 3 0 52 0 0 2 33 10 0 1 5 0 52 4 0 1 32 4 0 18 3 48 0 17 0 1 6 0 16 0 52 4 0 2 50)} {:upvalue-count 2 :arity 0 :constants ("to" "list" default!) :bytecode (18 0 48 0 17 0 18 1 1 0 0 48 1 5 18 0 48 0 17 1 1 2 0 16 0 16 1 52 1 0 3 50)} {:upvalue-count 3 :arity 0 :constants ("the" "event" "'s" "default" "=" "bubbling" "list" halt!) :bytecode (18 0 1 0 0 48 1 33 22 0 18 0 1 1 0 48 1 5 18 0 1 2 0 48 1 5 1 1 0 32 89 0 18 0 1 3 0 48 1 6 34 23 0 5 18 1 48 0 1 3 0 52 4 0 2 6 33 7 0 5 18 2 48 0 5 3 33 6 0 1 3 0 32 46 0 18 0 1 5 0 48 1 6 34 23 0 5 18 1 48 0 1 5 0 52 4 0 2 6 33 7 0 5 18 2 48 0 5 3 33 6 0 1 5 0 32 3 0 1 1 0 17 0 1 7 0 16 0 52 6 0 2 50)} {:upvalue-count 2 :arity 0 :constants ("=" "paren-open" "list") :bytecode (18 0 48 0 1 1 0 52 0 0 2 33 7 0 18 1 49 0 32 4 0 52 2 0 0 50)} {:upvalue-count 4 :arity 0 :constants ("list" me "=" "keyword" "then" "end" focus!) :bytecode (18 0 48 0 33 10 0 1 1 0 52 0 0 1 32 60 0 18 1 48 0 1 3 0 52 2 0 2 6 33 28 0 5 18 2 48 0 1 4 0 52 2 0 2 6 34 12 0 5 18 2 48 0 1 5 0 52 2 0 2 33 10 0 1 1 0 52 0 0 1 32 4 0 18 3 48 0 17 0 1 6 0 16 0 52 0 0 2 50)} {:upvalue-count 4 :arity 1 :constants ({:upvalue-count 5 :arity 1 :constants ("=" "keyword" "end" "nil?" "append" "list") :bytecode (18 0 48 0 6 34 28 0 5 18 1 48 0 1 1 0 52 0 0 2 6 33 12 0 5 18 2 48 0 1 2 0 52 0 0 2 33 5 0 16 0 32 36 0 18 3 48 0 17 1 16 1 52 3 0 1 33 5 0 16 0 32 16 0 18 4 16 0 16 1 52 5 0 1 52 4 0 2 49 1 50)} "list") :bytecode (51 0 0 0 0 0 1 0 2 0 3 1 0 17 0 5 16 0 52 1 0 0 49 1 50)} {:upvalue-count 5 :arity 0 :constants ("end" "list" def) :bytecode (18 0 48 0 17 0 18 1 48 0 5 18 2 48 0 17 1 18 3 48 0 17 2 18 4 1 0 0 48 1 5 1 2 0 16 0 16 1 16 2 52 1 0 4 50)} {:upvalue-count 5 :arity 0 :constants ("end" "list" behavior) :bytecode (18 0 48 0 17 0 18 1 48 0 5 18 2 48 0 17 1 18 3 48 0 17 2 18 4 1 0 0 48 1 5 1 2 0 16 0 16 1 16 2 52 1 0 4 50)} {:upvalue-count 4 :arity 1 :constants ({:upvalue-count 5 :arity 1 :constants ("=" "local" "append" "list") :bytecode (18 0 48 0 1 1 0 52 0 0 2 33 38 0 18 1 48 0 17 1 18 2 48 0 5 18 3 48 0 17 2 18 4 16 0 16 1 16 2 52 3 0 2 52 2 0 2 49 1 32 2 0 16 0 50)} "list") :bytecode (51 0 0 0 0 0 1 0 2 0 3 1 0 17 0 5 16 0 52 1 0 0 49 1 50)} {:upvalue-count 6 :arity 0 :constants ("=" "component" "paren-open" "paren-close" "into" "before" "after" "list" render) :bytecode (18 0 48 0 1 1 0 52 0 0 2 33 16 0 18 1 48 0 17 0 18 2 48 0 5 16 0 32 66 0 18 0 48 0 1 2 0 52 0 0 2 33 39 0 18 2 48 0 5 18 3 48 0 17 0 18 0 48 0 1 3 0 52 0 0 2 33 7 0 18 2 48 0 32 1 0 2 5 16 0 32 13 0 18 1 48 0 17 0 18 2 48 0 5 16 0 17 0 18 4 48 0 17 1 18 5 1 4 0 48 1 33 6 0 1 4 0 32 33 0 18 5 1 5 0 48 1 33 6 0 1 5 0 32 17 0 18 5 1 6 0 48 1 33 6 0 1 6 0 32 1 0 2 17 2 16 2 33 7 0 18 3 48 0 32 1 0 2 17 3 16 2 33 18 0 1 8 0 16 0 16 1 16 2 16 3 52 7 0 5 32 11 0 1 8 0 16 0 16 1 52 7 0 3 50)} {:upvalue-count 5 :arity 0 :constants ("get" "pos" {:upvalue-count 6 :arity 1 :constants ("=" "paren-open" "+" 1 "paren-close" 0 "get" "pos" "-") :bytecode (18 0 48 0 33 5 0 18 1 32 123 0 18 2 48 0 1 1 0 52 0 0 2 33 21 0 18 3 48 0 5 18 4 16 0 1 3 0 52 2 0 2 49 1 32 88 0 18 2 48 0 1 4 0 52 0 0 2 33 63 0 16 0 1 5 0 52 0 0 2 33 30 0 18 5 48 0 1 7 0 52 6 0 2 1 3 0 52 2 0 2 17 1 18 3 48 0 5 16 1 32 18 0 18 3 48 0 5 18 4 16 0 1 3 0 52 8 0 2 49 1 32 11 0 18 3 48 0 5 18 4 16 0 49 1 50)} 0 "substring") :bytecode (18 0 48 0 1 1 0 52 0 0 2 17 0 18 1 48 0 5 51 2 0 0 2 1 0 0 3 0 1 1 1 0 0 17 1 5 16 1 1 3 0 48 1 17 2 18 4 16 0 16 2 52 4 0 3 50)} {:upvalue-count 4 :arity 0 :constants ("list" sym "me" "=" "keyword" "then" "end" empty-target) :bytecode (18 0 48 0 33 13 0 1 1 0 1 2 0 52 0 0 2 32 63 0 18 1 48 0 1 4 0 52 3 0 2 6 33 28 0 5 18 2 48 0 1 5 0 52 3 0 2 6 34 12 0 5 18 2 48 0 1 6 0 52 3 0 2 33 13 0 1 1 0 1 2 0 52 0 0 2 32 4 0 18 3 48 0 17 0 1 7 0 16 0 52 0 0 2 50)} {:upvalue-count 2 :arity 0 :constants ("with" "list" swap!) :bytecode (18 0 48 0 17 0 18 1 1 0 0 48 1 5 18 0 48 0 17 1 1 2 0 16 0 16 1 52 1 0 3 50)} {:upvalue-count 4 :arity 0 :constants ("list" me "=" "keyword" "then" "end" open-element) :bytecode (18 0 48 0 33 10 0 1 1 0 52 0 0 1 32 60 0 18 1 48 0 1 3 0 52 2 0 2 6 33 28 0 5 18 2 48 0 1 4 0 52 2 0 2 6 34 12 0 5 18 2 48 0 1 5 0 52 2 0 2 33 10 0 1 1 0 52 0 0 1 32 4 0 18 3 48 0 17 0 1 6 0 16 0 52 0 0 2 50)} {:upvalue-count 4 :arity 0 :constants ("list" me "=" "keyword" "then" "end" close-element) :bytecode (18 0 48 0 33 10 0 1 1 0 52 0 0 1 32 60 0 18 1 48 0 1 3 0 52 2 0 2 6 33 28 0 5 18 2 48 0 1 4 0 52 2 0 2 6 34 12 0 5 18 2 48 0 1 5 0 52 2 0 2 33 10 0 1 1 0 52 0 0 1 32 4 0 18 3 48 0 17 0 1 6 0 16 0 52 0 0 2 50)} {:upvalue-count 43 :arity 0 :constants ("=" "keyword" "catch" "finally" "end" "else" "otherwise" "add" "remove" "toggle" "set" "put" "if" "wait" "send" "trigger" "log" "increment" "decrement" "hide" "show" "transition" "repeat" "fetch" "call" "take" "settle" "list" settle "go" "return" "throw" "append" "tell" "for" "make" "install" "measure" "render" "scroll" "select" "reset" "default" "halt" "focus" "empty" "clear" "swap" "open" "close" "break" break "continue" continue "exit" exit) :bytecode (18 0 48 0 17 0 18 1 48 0 17 1 16 0 1 1 0 52 0 0 2 6 33 66 0 5 16 1 1 2 0 52 0 0 2 6 34 52 0 5 16 1 1 3 0 52 0 0 2 6 34 38 0 5 16 1 1 4 0 52 0 0 2 6 34 24 0 5 16 1 1 5 0 52 0 0 2 6 34 10 0 5 16 1 1 6 0 52 0 0 2 33 4 0 2 32 166 6 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 7 0 52 0 0 2 33 12 0 18 2 48 0 5 18 3 49 0 32 128 6 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 8 0 52 0 0 2 33 12 0 18 2 48 0 5 18 4 49 0 32 90 6 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 9 0 52 0 0 2 33 12 0 18 2 48 0 5 18 5 49 0 32 52 6 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 10 0 52 0 0 2 33 12 0 18 2 48 0 5 18 6 49 0 32 14 6 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 11 0 52 0 0 2 33 12 0 18 2 48 0 5 18 7 49 0 32 232 5 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 12 0 52 0 0 2 33 12 0 18 2 48 0 5 18 8 49 0 32 194 5 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 13 0 52 0 0 2 33 12 0 18 2 48 0 5 18 9 49 0 32 156 5 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 14 0 52 0 0 2 33 12 0 18 2 48 0 5 18 10 49 0 32 118 5 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 15 0 52 0 0 2 33 12 0 18 2 48 0 5 18 11 49 0 32 80 5 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 16 0 52 0 0 2 33 12 0 18 2 48 0 5 18 12 49 0 32 42 5 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 17 0 52 0 0 2 33 12 0 18 2 48 0 5 18 13 49 0 32 4 5 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 18 0 52 0 0 2 33 12 0 18 2 48 0 5 18 14 49 0 32 222 4 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 19 0 52 0 0 2 33 12 0 18 2 48 0 5 18 15 49 0 32 184 4 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 20 0 52 0 0 2 33 12 0 18 2 48 0 5 18 16 49 0 32 146 4 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 21 0 52 0 0 2 33 12 0 18 2 48 0 5 18 17 49 0 32 108 4 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 22 0 52 0 0 2 33 12 0 18 2 48 0 5 18 18 49 0 32 70 4 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 23 0 52 0 0 2 33 12 0 18 2 48 0 5 18 19 49 0 32 32 4 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 24 0 52 0 0 2 33 12 0 18 2 48 0 5 18 20 49 0 32 250 3 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 25 0 52 0 0 2 33 12 0 18 2 48 0 5 18 21 49 0 32 212 3 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 26 0 52 0 0 2 33 15 0 18 2 48 0 5 1 28 0 52 27 0 1 32 171 3 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 29 0 52 0 0 2 33 12 0 18 2 48 0 5 18 22 49 0 32 133 3 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 30 0 52 0 0 2 33 12 0 18 2 48 0 5 18 23 49 0 32 95 3 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 31 0 52 0 0 2 33 12 0 18 2 48 0 5 18 24 49 0 32 57 3 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 32 0 52 0 0 2 33 12 0 18 2 48 0 5 18 25 49 0 32 19 3 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 33 0 52 0 0 2 33 12 0 18 2 48 0 5 18 26 49 0 32 237 2 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 34 0 52 0 0 2 33 12 0 18 2 48 0 5 18 27 49 0 32 199 2 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 35 0 52 0 0 2 33 12 0 18 2 48 0 5 18 28 49 0 32 161 2 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 36 0 52 0 0 2 33 12 0 18 2 48 0 5 18 29 49 0 32 123 2 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 37 0 52 0 0 2 33 12 0 18 2 48 0 5 18 30 49 0 32 85 2 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 38 0 52 0 0 2 33 12 0 18 2 48 0 5 18 31 49 0 32 47 2 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 39 0 52 0 0 2 33 12 0 18 2 48 0 5 18 32 49 0 32 9 2 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 40 0 52 0 0 2 33 12 0 18 2 48 0 5 18 33 49 0 32 227 1 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 41 0 52 0 0 2 33 12 0 18 2 48 0 5 18 34 49 0 32 189 1 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 42 0 52 0 0 2 33 12 0 18 2 48 0 5 18 35 49 0 32 151 1 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 43 0 52 0 0 2 33 12 0 18 2 48 0 5 18 36 49 0 32 113 1 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 44 0 52 0 0 2 33 12 0 18 2 48 0 5 18 37 49 0 32 75 1 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 45 0 52 0 0 2 33 12 0 18 2 48 0 5 18 38 49 0 32 37 1 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 46 0 52 0 0 2 33 12 0 18 2 48 0 5 18 38 49 0 32 255 0 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 47 0 52 0 0 2 33 12 0 18 2 48 0 5 18 39 49 0 32 217 0 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 48 0 52 0 0 2 33 12 0 18 2 48 0 5 18 40 49 0 32 179 0 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 49 0 52 0 0 2 33 12 0 18 2 48 0 5 18 41 49 0 32 141 0 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 50 0 52 0 0 2 33 15 0 18 2 48 0 5 1 51 0 52 27 0 1 32 100 0 16 0 1 1 0 52 0 0 2 6 33 10 0 5 16 1 1 52 0 52 0 0 2 33 15 0 18 2 48 0 5 1 53 0 52 27 0 1 32 59 0 16 0 1 1 0 52 0 0 2 6 33 24 0 5 16 1 1 54 0 52 0 0 2 6 34 10 0 5 16 1 1 43 0 52 0 0 2 33 15 0 18 2 48 0 5 1 55 0 52 27 0 1 32 4 0 18 42 49 0 50)} {:upvalue-count 5 :arity 2 :constants ({:upvalue-count 0 :arity 1 :constants ("=" "add" "remove" "toggle" "set" "put" "if" "wait" "send" "trigger" "log" "increment" "decrement" "hide" "show" "transition" "repeat" "fetch" "call" "take" "settle" "go" "return" "throw" "append" "tell" "for" "make" "install" "measure" "render" "halt" "default" "scroll" "select" "reset" "focus" "empty" "clear" "swap" "open" "close") :bytecode (16 0 1 1 0 52 0 0 2 6 34 44 2 5 16 0 1 2 0 52 0 0 2 6 34 30 2 5 16 0 1 3 0 52 0 0 2 6 34 16 2 5 16 0 1 4 0 52 0 0 2 6 34 2 2 5 16 0 1 5 0 52 0 0 2 6 34 244 1 5 16 0 1 6 0 52 0 0 2 6 34 230 1 5 16 0 1 7 0 52 0 0 2 6 34 216 1 5 16 0 1 8 0 52 0 0 2 6 34 202 1 5 16 0 1 9 0 52 0 0 2 6 34 188 1 5 16 0 1 10 0 52 0 0 2 6 34 174 1 5 16 0 1 11 0 52 0 0 2 6 34 160 1 5 16 0 1 12 0 52 0 0 2 6 34 146 1 5 16 0 1 13 0 52 0 0 2 6 34 132 1 5 16 0 1 14 0 52 0 0 2 6 34 118 1 5 16 0 1 15 0 52 0 0 2 6 34 104 1 5 16 0 1 16 0 52 0 0 2 6 34 90 1 5 16 0 1 17 0 52 0 0 2 6 34 76 1 5 16 0 1 18 0 52 0 0 2 6 34 62 1 5 16 0 1 19 0 52 0 0 2 6 34 48 1 5 16 0 1 20 0 52 0 0 2 6 34 34 1 5 16 0 1 21 0 52 0 0 2 6 34 20 1 5 16 0 1 22 0 52 0 0 2 6 34 6 1 5 16 0 1 23 0 52 0 0 2 6 34 248 0 5 16 0 1 24 0 52 0 0 2 6 34 234 0 5 16 0 1 25 0 52 0 0 2 6 34 220 0 5 16 0 1 26 0 52 0 0 2 6 34 206 0 5 16 0 1 27 0 52 0 0 2 6 34 192 0 5 16 0 1 28 0 52 0 0 2 6 34 178 0 5 16 0 1 29 0 52 0 0 2 6 34 164 0 5 16 0 1 30 0 52 0 0 2 6 34 150 0 5 16 0 1 31 0 52 0 0 2 6 34 136 0 5 16 0 1 32 0 52 0 0 2 6 34 122 0 5 16 0 1 33 0 52 0 0 2 6 34 108 0 5 16 0 1 34 0 52 0 0 2 6 34 94 0 5 16 0 1 35 0 52 0 0 2 6 34 80 0 5 16 0 1 36 0 52 0 0 2 6 34 66 0 5 16 0 1 37 0 52 0 0 2 6 34 52 0 5 16 0 1 38 0 52 0 0 2 6 34 38 0 5 16 0 1 39 0 52 0 0 2 6 34 24 0 5 16 0 1 40 0 52 0 0 2 6 34 10 0 5 16 0 1 41 0 52 0 0 2 50)} {:upvalue-count 7 :arity 1 :constants ("nil?" "append" "list" "then" __then__ "not" "=" "keyword") :bytecode (18 0 48 0 17 1 16 1 52 0 0 1 33 5 0 16 0 32 95 0 16 0 16 1 52 2 0 1 52 1 0 2 17 2 18 1 1 3 0 48 1 33 20 0 18 2 16 2 1 4 0 52 2 0 1 52 1 0 2 49 1 32 51 0 18 3 48 0 52 5 0 1 6 33 25 0 5 18 4 48 0 1 7 0 52 6 0 2 6 33 9 0 5 18 5 18 6 48 0 48 1 33 9 0 18 2 16 2 49 1 32 2 0 16 2 50)} "list" "=" "len" 0 1 "first" "cons" do "filter" {:upvalue-count 0 :arity 1 :constants ("not" "=" __then__) :bytecode (16 0 1 2 0 52 1 0 2 52 0 0 1 50)}) :bytecode (51 0 0 17 0 5 51 1 0 0 0 0 1 1 1 0 2 0 3 1 0 0 4 17 1 5 16 1 52 2 0 0 48 1 17 2 16 2 52 4 0 1 1 5 0 52 3 0 2 33 4 0 2 32 41 0 16 2 52 4 0 1 1 6 0 52 3 0 2 33 9 0 16 2 52 7 0 1 32 16 0 1 9 0 51 11 0 16 2 52 10 0 2 52 8 0 2 50)} {:upvalue-count 7 :arity 0 :constants ("every" "=" "bracket-open" "bracket-close" "from" "catch" "list" "finally" "end" on "append" "filter") :bytecode (18 0 1 0 0 48 1 17 0 18 1 48 0 17 1 18 2 48 0 1 2 0 52 1 0 2 33 39 0 18 3 48 0 5 18 4 48 0 17 2 18 2 48 0 1 3 0 52 1 0 2 33 7 0 18 3 48 0 32 1 0 2 5 16 2 32 1 0 2 17 2 18 0 1 4 0 48 1 33 7 0 18 4 48 0 32 1 0 2 17 3 18 5 48 0 17 4 18 0 1 5 0 48 1 33 32 0 18 6 48 0 17 5 18 3 48 0 5 16 5 17 5 18 5 48 0 17 6 16 5 16 6 52 6 0 2 32 1 0 2 17 5 18 0 1 7 0 48 1 33 7 0 18 5 48 0 32 1 0 2 17 6 18 0 1 8 0 48 1 5 1 9 0 16 1 52 6 0 2 17 7 16 0 33 17 0 16 7 1 0 0 3 52 6 0 2 52 10 0 2 32 2 0 16 7 17 8 16 2 33 18 0 16 8 1 11 0 16 2 52 6 0 2 52 10 0 2 32 2 0 16 8 17 9 16 3 33 18 0 16 9 1 4 0 16 3 52 6 0 2 52 10 0 2 32 2 0 16 9 17 10 16 5 33 18 0 16 10 1 5 0 16 5 52 6 0 2 52 10 0 2 32 2 0 16 10 17 11 16 6 33 18 0 16 11 1 7 0 16 6 52 6 0 2 52 10 0 2 32 2 0 16 11 17 12 16 12 16 4 52 6 0 1 52 10 0 2 17 13 16 13 50)} {:upvalue-count 2 :arity 0 :constants ("end" "list" init) :bytecode (18 0 48 0 17 0 18 1 1 0 0 48 1 5 1 2 0 16 0 52 1 0 2 50)} {:upvalue-count 7 :arity 0 :constants ("=" "on" "init" "def" "behavior") :bytecode (18 0 48 0 17 0 16 0 1 1 0 52 0 0 2 33 12 0 18 1 48 0 5 18 2 49 0 32 76 0 16 0 1 2 0 52 0 0 2 33 12 0 18 1 48 0 5 18 3 49 0 32 52 0 16 0 1 3 0 52 0 0 2 33 12 0 18 1 48 0 5 18 4 49 0 32 28 0 16 0 1 4 0 52 0 0 2 33 12 0 18 1 48 0 5 18 5 49 0 32 4 0 18 6 49 0 50)} {:upvalue-count 3 :arity 1 :constants ("nil?" "append" "list") :bytecode (18 0 48 0 33 5 0 16 0 32 36 0 18 1 48 0 17 1 16 1 52 0 0 1 33 5 0 16 0 32 16 0 18 2 16 0 16 1 52 2 0 1 52 1 0 2 49 1 50)} "list" "=" 1 "first" "cons" do) :bytecode (1 0 0 17 2 16 0 52 1 0 1 17 3 51 2 0 1 2 1 3 1 0 17 4 5 51 3 0 1 4 17 5 5 51 4 0 1 4 17 6 5 51 5 0 1 0 1 2 17 7 5 51 6 0 1 2 1 3 1 5 17 8 5 51 7 0 1 5 1 6 1 7 17 9 5 51 8 0 1 9 1 2 17 10 5 51 9 0 17 11 5 51 10 0 1 5 1 6 1 7 1 13 17 12 5 51 11 0 1 5 1 8 1 6 1 7 1 13 1 42 17 13 5 51 12 0 1 5 1 6 1 7 17 14 5 51 13 0 1 5 1 6 1 7 1 9 1 21 17 15 5 51 14 0 1 5 1 6 1 7 1 11 1 21 1 69 1 47 1 12 1 14 1 15 1 8 1 2 1 0 1 48 1 16 1 9 1 42 17 16 5 51 15 0 1 5 1 6 1 7 1 12 1 13 1 42 1 21 1 17 17 17 5 51 16 0 1 5 1 6 1 7 1 21 1 9 1 16 1 8 17 18 5 51 17 0 1 9 1 18 1 46 1 17 1 16 1 19 17 19 5 51 18 0 1 9 1 19 1 18 1 46 1 17 1 16 1 20 17 20 5 51 19 0 1 16 1 5 1 6 1 7 1 17 1 46 1 18 1 19 1 20 17 21 5 51 20 0 1 9 1 21 17 22 5 51 21 0 1 5 1 7 1 9 1 21 1 8 1 6 17 23 5 51 22 0 1 5 1 7 1 9 1 21 1 6 17 24 5 51 23 0 1 9 1 5 1 6 1 7 1 10 1 22 1 21 1 16 1 47 17 25 5 51 24 0 1 21 1 9 1 2 17 26 5 51 25 0 1 21 1 9 1 10 1 2 17 27 5 51 26 0 1 21 1 9 1 75 17 28 5 51 27 0 1 9 1 6 1 7 1 21 1 5 1 11 17 29 5 51 28 0 1 7 1 5 1 8 1 21 17 30 5 51 29 0 1 7 1 8 1 5 1 6 17 31 5 51 30 0 1 31 1 5 1 30 1 22 17 32 5 51 31 0 1 7 1 22 17 33 5 51 32 0 1 21 17 34 5 51 33 0 1 21 1 9 1 22 17 35 5 51 34 0 1 21 1 9 1 22 17 36 5 51 35 0 1 8 1 5 1 6 1 21 1 9 1 7 17 37 5 51 36 0 1 8 1 5 1 6 1 21 1 9 1 7 17 38 5 51 37 0 1 5 1 6 1 7 1 16 1 9 1 21 1 10 1 8 17 39 5 51 38 0 1 5 1 6 1 7 1 53 1 21 1 75 1 9 17 40 5 51 39 0 1 5 1 6 1 7 1 8 1 46 1 17 1 16 1 9 1 21 17 41 5 51 40 0 1 7 1 5 1 8 1 21 17 42 5 51 41 0 1 7 1 5 1 42 17 43 5 51 42 0 1 5 1 6 1 7 1 9 1 21 17 44 5 51 43 0 1 9 1 21 17 45 5 51 44 0 1 5 1 6 1 7 1 16 1 17 1 46 17 46 5 51 45 0 1 5 1 6 1 7 1 9 1 21 1 15 1 14 1 16 17 47 5 51 46 0 1 5 1 8 1 7 1 21 17 48 5 51 47 0 1 8 1 5 1 6 1 21 17 49 5 51 48 0 1 21 17 50 5 51 49 0 1 21 1 9 17 51 5 51 50 0 1 21 1 9 1 75 17 52 5 51 51 0 1 6 1 7 1 10 1 21 1 9 1 75 17 53 5 51 52 0 1 6 1 7 1 9 17 54 5 51 53 0 1 6 1 7 1 5 1 42 17 55 5 51 54 0 1 21 17 56 5 51 55 0 1 8 1 5 1 6 1 21 1 9 17 57 5 51 56 0 1 8 1 5 1 6 1 21 17 58 5 51 57 0 1 8 1 5 1 6 1 21 17 59 5 51 58 0 1 21 1 10 17 60 5 51 59 0 1 9 1 6 1 7 17 61 5 51 60 0 1 5 1 42 17 62 5 51 61 0 1 8 1 5 1 6 1 21 17 63 5 51 62 0 1 8 1 5 1 6 1 78 17 64 5 51 63 0 1 6 1 7 1 62 1 75 1 9 17 65 5 51 64 0 1 6 1 7 1 62 1 64 1 9 17 66 5 51 65 0 1 5 1 6 1 7 1 21 17 67 5 51 66 0 1 5 1 6 1 7 1 21 1 67 1 9 17 68 5 51 67 0 1 4 1 7 1 8 1 5 1 1 17 69 5 51 68 0 1 8 1 5 1 6 1 21 17 70 5 51 69 0 1 21 1 9 17 71 5 51 70 0 1 8 1 5 1 6 1 21 17 72 5 51 71 0 1 8 1 5 1 6 1 21 17 73 5 51 72 0 1 5 1 6 1 7 1 23 1 24 1 25 1 26 1 27 1 28 1 29 1 32 1 33 1 34 1 35 1 36 1 37 1 38 1 39 1 40 1 41 1 43 1 44 1 45 1 49 1 50 1 51 1 52 1 53 1 54 1 55 1 56 1 68 1 57 1 58 1 59 1 60 1 61 1 63 1 70 1 71 1 72 1 73 1 21 17 74 5 51 73 0 1 74 1 9 1 8 1 5 1 6 17 75 5 51 74 0 1 9 1 31 1 5 1 7 1 21 1 75 1 6 17 76 5 51 75 0 1 75 1 9 17 77 5 51 76 0 1 6 1 7 1 76 1 77 1 65 1 66 1 75 17 78 5 51 77 0 1 8 1 78 1 79 17 79 5 16 79 52 78 0 0 48 1 17 80 16 80 52 1 0 1 1 80 0 52 79 0 2 33 9 0 16 80 52 81 0 1 32 9 0 1 83 0 16 80 52 82 0 2 50)} "hs-compile" {:upvalue-count 0 :arity 1 :constants ("hs-parse" "hs-tokenize") :bytecode (20 0 0 20 1 0 16 0 48 1 16 0 49 2 50)}) :bytecode (51 1 0 128 0 0 5 51 3 0 128 2 0 50))) + :constants ("_hs-feature-registry" "hs-register-feature!" {:upvalue-count nil :arity nil :constants ("dict-set!" "_hs-feature-registry") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-parse" {:upvalue-count nil :arity nil :constants ("filter" {:upvalue-count nil :arity nil :constants ("not" "=" "get" "type" "whitespace") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} nil "len" {:upvalue-count nil :arity nil :constants ("<" "nth") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("get" "type" "eof") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("get" "value") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("nth" "+" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants (">=" "=" "eof") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("<" "get" "pos" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("<" "get" "line" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants (">" nil "get" "nth" "-" nil "end") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("hs-span-mode" "children" "end" "kind" "line" "src" "start" "hs-ast" "fields") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "keyword") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("error" "str" "Expected '" "' at position ") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("len" ">=" nil "=" "substring" "-" nil "ms" "parse-number" nil "nth" nil "s" "*" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "ident" "keyword" "list" poss "bracket-open" "attr" attr "class" "get" "value" "style" style) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("dict?" "get" "hs-ast" "start" "line" "=" "class" "not" "list" "make-symbol" "." "member" "root" "paren-open" method-call "call" "op" "'s" "poss") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" closest "ident" "parent" closest-parent "selector" "list" "to" beingTold "class" "str" "." "id" "#" "attr" attr "[" "]" "*") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "selector" "class" "str" "." "id" "#" "*" "in" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "number" "string" "template" "list" template "keyword" "true" "false" "null" "nil" null-literal "undefined" "beep" "op" "!" beep! "not" hs-falsy? "no" no "eval" "paren-open" sx-eval "the" "me" me "sender" sender "I" "it" it "result" the-result "event" event "target" "make-symbol" "." "detail" "my" "your" ref "you" "its" "yourself" "closest" closest "next" next "previous" previous "first" first "last" last "id" query "str" "#" "selector" "in" query-scoped "attr" attr beingTold "style" style "local" local "hat" dom-ref "dom" "class" "ident" "ref" "paren-close" "brace-open" {:upvalue-count nil :arity nil :constants ("=" "brace-close" "string" "bracket-open" "bracket-close" "list" computed-key "local" "true" "false" "null" ref "colon" "comma" "append") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} object-literal "\\" {:upvalue-count nil :arity nil :constants ("=" "op" "-" "<" "+" nil "len" "get" "nth" "value" ">" "ident" "comma" "append") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} block-literal "bracket-open" "-" - nil "component" component "some" ">" "len" "+" nil "get" "nth" "value" "with" some not "every" every "type" "cons" call) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "op" "'s" "class" "dot" "ident" "keyword" "list" "make-symbol" "." "paren-open" "cons" call "bracket-open" ".." "bracket-close" array-slice array-index) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "op" "==" "!=" "<" ">" "<=" ">=" "===" "!==" "list" = strict-eq not "keyword" "is" "not" "empty" empty? "in" not-in? "between" "and" and >= <= "really" "equal" "to" "a" "an" "!" type-check-strict type-check "ignoring" "case" eq-ignore-case hs-id= "less" "than" "or" < "greater" > in-bool? "list?" "len" nil "first" ref "string?" "nth" nil hs-is fn "am" "exists" exists? "ident" "starts" "with" starts-with-ic? starts-with? "ends" ends-with-ic? ends-with? "matches" "match" matches-ignore-case? matches? "contains" contains-ignore-case? contains? "as" "colon" as "str" ":" {:upvalue-count nil :arity nil :constants ("=" "op" "|" "a" "an" "list" as) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} type-assert-strict type-assert "of" {:upvalue-count nil :arity nil :constants ("list?" "=" "first" ref "list" "make-symbol" "." "nth" nil "str" nil of) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} in? "does" "exist" "contain" "include" "includes" "start" "end" "precede" "precedes" precedes? "follow" "follows" follows? "equals") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("where" "list" coll-where "sorted" "by" "descending" "not" "ascending" coll-sorted-desc coll-sorted "mapped" "to" coll-mapped "split" coll-split "joined" coll-joined) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("and" "list?" ">" "len" nil "=" "first" or "error" "You must parenthesize logical operations with different operators" "list" and "or") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("nil?" "number?" "list?" "=" "ident" "not" "starts" "ends" "contains" "matches" "match" "is" "does" "in" "precedes" "follows" "list" string-postfix "then" "end" "else" "otherwise" "op" "%") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants () :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "class" "get" "value" "list" {:upvalue-count nil :arity nil :constants ("=" "class" "append" "list" "get" "value") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "to" beingTold "when" "empty?" add-class-when add-class multi-add-class-when "cons" multi-add-class "style" "local" set-style "brace-open" {:upvalue-count nil :arity nil :constants ("not" "=" "brace-close" "get" "value" "colon" "ident" "$" "brace-open" "" "cons" "list" "op" ";") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "brace-close" set-styles "reverse" "bracket-open" ">" "len" "+" nil "nth" "type" "attr" "op" "bracket-close" add-attr-when add-attr "" add-value "error" "str" "Invalid 'add' syntax: expected a class (.foo), attribute, or expression with 'to'") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "class" "get" "value" "list" {:upvalue-count nil :arity nil :constants ("=" "class" "append" "list" "get" "value") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "from" beingTold "when" "empty?" remove-class-when remove-class "cons" multi-remove-class "attr" remove-attr "bracket-open" "[" "bracket-close" "{" {:upvalue-count nil :arity nil :constants ("not" "=" "}" ";" "append" "list" "get" "value") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "}" remove-css remove-value remove-element) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("between" "=" "class" "and" "on" "list" beingTold toggle-between "bracket-open" ">" "len" "+" nil "get" "nth" "type" "attr" "value" "op" "bracket-close" toggle-attr-between toggle-attr-diff {:upvalue-count nil :arity nil :constants ("=" "class" "append" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} nil "first" "for" toggle-class-for "until" "from" toggle-class-until toggle-class "style" "of" "comma" "keyword" toggle-style-cycle toggle-style-between toggle-style toggle-attr toggle-attr-val "my" "the" "list?" style nil attr has-class? "ident" "substring" "$" {:upvalue-count nil :arity nil :constants ("=" "comma" "keyword" "and" "append" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} toggle-var-cycle "cons") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "ident" "global" "local" "element" "op" "'s" "list" ref "attr" "get" "value" attr "to" "list?" "first" query set-el! set! "on" set-on! set-on "error" "str" "Expected to/on at position ") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("list?" "=" "first" dom-ref "on" "list" "nth" nil "into" set! "before" put! "after" "at" "the" "start" "of" "end" "error" "str" "Expected start/end after at, position " "Expected into/before/after/at at position ") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("then" "else" "otherwise" "end" "list" if) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("for" "=" "a" "an" "the" "paren-open" {:upvalue-count nil :arity nil :constants ("=" "paren-close" "comma" "append" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "list" "from" "or" "number" "get" "value" "ident" "ms" "s" "" "str" wait-for "append" "destructure" wait nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ({:upvalue-count nil :arity nil :constants ("=" "paren-close" "get" "value" "colon" "comma" "append" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "cons" dict "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("get" "value" {:upvalue-count nil :arity nil :constants ("not" "=" "class" "str" "." "local" ":") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "paren-open" "to" "list" beingTold send) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "paren-open" "on" "list" beingTold trigger) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ({:upvalue-count nil :arity nil :constants ("=" "comma" "append" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "cons" log "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("by" "on" "list" me increment!) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("by" "on" "list" me decrement!) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("list" beingTold "=" "keyword" "then" "end" "with" "when" "add" "remove" "set" "put" "toggle" "hide" "show" "on" "display" "colon" "str" ":" "local" hide) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("list" beingTold "=" "keyword" "then" "end" "with" "when" "add" "remove" "set" "put" "toggle" "hide" "show" "on" "display" "colon" "str" ":" "local" show) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "ident" "element" "keyword" "its" "list" ref "it" "id" "class" "selector" "the" {:upvalue-count nil :arity nil :constants ("=" "style" "get" "value" "my" "'s" "of" "from" "ident" "not" "hs-keyword?" "list" string-postfix "to" "initial" "over" "number?" "using" transition-from transition) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("not" "=" "style" "ident" "hs-keyword?" "append" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "len" nil "first" "cons" do) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "keyword" "for" "in" "end" "list" for "it" "forever" forever "while" while "until" until "number" "ident" "paren-open" "times" times "then" repeat-until repeat-while repeat) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "keyword" "ident" "gql" "brace-open" {:upvalue-count nil :arity nil :constants ("join" " " "=" "brace-open" "append" "list" "{" "+" nil "brace-close" nil "}" "-" "") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "str" "{ " "list" nil " }" "query" "mutation" "subscription" " { " "" "from" fetch-gql "op" "/" {:upvalue-count nil :arity nil :constants ("not" "=" "ident" "string-contains?" "'" "op" "dot" "number" "append!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "join" "nil?" "as" "an" "a" "with" "not" "text" "do" "throw" "don't" fetch) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ({:upvalue-count nil :arity nil :constants ("=" "paren-close" "comma" "append" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants () :bytecode (nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("list" ask) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("with" "or" "list" answer answer-alert) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("list" __get-cmd) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "class" "list" {:upvalue-count nil :arity nil :constants ("=" "class" "append" "list" "collect") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("nil?" "with" "=" "class" "giving" "from" "for") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "len" nil take! "first" "cons" do "map" {:upvalue-count nil :arity nil :constants ("list" take! "class") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "attr" "get" "value" "op" {:upvalue-count nil :arity nil :constants ("nil?" "with" "giving" "from" "for") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "keyword" "first" "not" "of" "from" "error" "str" "Expected 'of' or 'from' at position " "list" pick-first "last" pick-last "random" pick-random "ident" "items" "start" "hs-pick-start" "end" "hs-pick-end" "to" pick-items "match" "op" "|" "Expected of/from after pick match regex at " pick-match "nil?" list "matches" "Expected of/from after pick matches regex at " pick-matches "item" + nil "Expected first/last/random/item/items/match/matches after 'pick' at ") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("to" "list" go) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "op" "+" "-" "*" "/" "%" "keyword" "mod" "list?" ">" "len" nil "first" + - * / "make-symbol" "error" "You must parenthesize math operations with different operators" "nil?" "dict?" "get" "hs-ast" "start" "line" nil "list" "arith" "rhs" "lhs") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "style" "of" "list" style beingTold "attr" attr "class" has-class? "selector" "in" in? query "ident" "keyword" "make-symbol" "." "result" the-result "first" first "last" last "closest" closest "next" next "previous" previous ref) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ({:upvalue-count nil :arity nil :constants ("=" "bracket-close" "comma" "append" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "cons" array "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "keyword" "end" "then" "else" "list" return) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("list" throw) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("to" "list" append! it) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("then" "end" "list" tell) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("in" "index" "indexed" "by" "then" "end" "list" for) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "a" "selector" element object {:upvalue-count nil :arity nil :constants ("append" "list" "=" "comma") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("from" "called") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "list" make) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "paren-open" "cons" install "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("list" measure "nil?" beingTold) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "keyword" "then" "end" "list" beingTold "top" "bottom" "left" "right" scroll!) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "keyword" "then" "end" "list" beingTold select!) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "keyword" "then" "end" "list" beingTold reset!) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("to" "list" default!) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("the" "event" "=" "op" "'s" "bubbling" "the-event" "default" "all" "list" halt!) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "paren-open" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("list" beingTold "=" "keyword" "then" "end" focus!) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ({:upvalue-count nil :arity nil :constants ("=" "keyword" "end" "behavior" "nil?" "append" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("end" "list" def) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("end" "list" behavior) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ({:upvalue-count nil :arity nil :constants ("=" "local" "append" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "component" "paren-open" "paren-close" "into" "before" "after" "list" render) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("get" "pos" {:upvalue-count nil :arity nil :constants ("=" "paren-open" "+" nil "paren-close" nil "get" "pos" "-") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} nil "substring") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("list" beingTold "=" "keyword" "then" "end" empty-target) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("with" "list" swap!) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("to" "list" morph!) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("list" beingTold "=" "keyword" "then" "end" open-element) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("list" beingTold "=" "keyword" "then" "end" close-element) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "paren-open" {:upvalue-count nil :arity nil :constants ("=" "paren-close" "comma" "append") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "list" {:upvalue-count nil :arity nil :constants ("=" "keyword" "end") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "substring" "keyword" "end" js-block) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "paren-close" "paren-open" "keyword" "catch" "finally" "end" "else" "otherwise" "add" "remove" "toggle" "set" "put" "if" "list?" ">" "len" nil "nth" "true-branch" "first" do nil "wait" "send" "trigger" "log" "cmd" "increment" "decrement" "hide" "show" "transition" "repeat" "fetch" "get" "call" "take" "pick" "ask" "answer" "settle" "then" "with" "when" "on" "nil?" "list" settle "go" "return" "throw" "append" "tell" "for" "make" "install" "measure" "render" "scroll" "select" "reset" "default" "halt" "focus" "empty" "clear" "swap" "morph" "open" "close" "break" break "continue" continue "exit" exit "js" "start" "view" "using" view-transition! "init" "def" "behavior" "live" "bind" "not" + - * / "make-symbol" "%" "error" "Pseudo-commands must be function calls") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ({:upvalue-count nil :arity nil :constants ("=" "add" "remove" "toggle" "set" "put" "if" "wait" "send" "trigger" "log" "increment" "decrement" "hide" "show" "transition" "repeat" "fetch" "get" "call" "take" "settle" "go" "return" "throw" "append" "tell" "for" "make" "install" "measure" "render" "halt" "default" "scroll" "select" "reset" "focus" "empty" "clear" "swap" "morph" "open" "close" "pick" "ask" "answer" "js" "start") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "keyword" "then" "nil?" "append" "list" "unless" if no __then__ "not" "paren-open") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "list" {:upvalue-count nil :arity nil :constants ({:upvalue-count nil :arity nil :constants ("<" "-" "len" nil "nth" "+" "dict?" "get" "hs-ast" "dict-set!" "fields" "next") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-span-mode" "=" "len" nil nil "first" "cons" do "filter" {:upvalue-count nil :arity nil :constants ("not" "=" __then__) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("first" nil "=" "number" "parse-number" "to" "and" "on" nil "dict" "min" "max" "mutation" "of" "ident" "attributes" "childList" "characterData" "type" "attr" "list" {:upvalue-count nil :arity nil :constants ("or" "=" "attr" "append" "list" "-" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "attrs" "paren-open" "keyword" {:upvalue-count nil :arity nil :constants ("=" "paren-close" "eof" "list" "ident" "keyword" "cons") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "bracket-open" "bracket-close" "elsewhere" "from" "<" "+" "nth" "get" "value" {:upvalue-count nil :arity nil :constants ("or" "from" "append" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "ident" "having" "margin" "threshold") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "queue" "every" "margin" "threshold" "catch" "finally" "end" on "append" "filter" ">" "len" nil "or-sources" "count-filter" "of-filter" "having" "cons" do "map" {:upvalue-count nil :arity nil :constants ("list" ref) :bytecode (nil nil nil nil nil nil nil nil nil nil)} "list?" "rest") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("end" "list" init) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ({:upvalue-count nil :arity nil :constants ("=" "keyword" "on" "init" "def" "behavior" "live" "when" "end" ">" nil "-" nil "if" "repeat" "+") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} nil "end" "list" live-no-op) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ({:upvalue-count nil :arity nil :constants ("=" "keyword" "on" "init" "def" "behavior" "live" "when" "end" ">" nil "-" nil "if" "repeat" "+") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "=" "hat" "local" "keyword" "dom" "changes" "end" "list" when-changes nil when-feat-no-op) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("to" "with" "end" "list" bind-feat "and") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ({:upvalue-count nil :arity nil :constants ("=" "class" "append" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "list" "with" "=" "ident" "keyword" "timeout" "on" "message" "as" "JSON" on-message "end" socket) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("parse-on-feat" "parse-def-feat" "parse-socket-feat" "adv!" "tp-type" "parse-expr" "parse-behavior-feat" "parse-when-feat" "tp-val" "at-end?" "parse-init-feat" "parse-live-feat" "parse-cmd-list" "parse-bind-feat") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "paren-open" "paren-close" "ident" "not" "then" "end" "else" "otherwise" "op" "%" "list" string-postfix "dict-get" "_hs-feature-registry" "keyword") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("nil?" "error" "str" "Parse error: Unexpected token '" "' (line " "get" "nth" "line" ")" "append" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "list" "=" nil "first" "cons" do) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-span-mode" "hs-compile" {:upvalue-count nil :arity nil :constants ("hs-parse" "hs-tokenize") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-parse-ast" {:upvalue-count nil :arity nil :constants ("hs-span-mode" "hs-parse" "hs-tokenize") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "on" {:upvalue-count nil :arity nil :constants ("dict-get" "adv!" "parse-on-feat") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "init" {:upvalue-count nil :arity nil :constants ("dict-get" "adv!" "parse-init-feat") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "def" {:upvalue-count nil :arity nil :constants ("dict-get" "adv!" "parse-def-feat") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "behavior" {:upvalue-count nil :arity nil :constants ("dict-get" "adv!" "parse-behavior-feat") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "live" {:upvalue-count nil :arity nil :constants ("dict-get" "adv!" "parse-live-feat") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "when" {:upvalue-count nil :arity nil :constants ("dict-get" "adv!" "parse-when-feat") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "bind" {:upvalue-count nil :arity nil :constants ("dict-get" "adv!" "parse-bind-feat") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "socket" {:upvalue-count nil :arity nil :constants ("dict-get" "adv!" "parse-socket-feat") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil))) diff --git a/shared/static/wasm/sx/hs-prolog.sx b/shared/static/wasm/sx/hs-prolog.sx new file mode 100644 index 00000000..24f66195 --- /dev/null +++ b/shared/static/wasm/sx/hs-prolog.sx @@ -0,0 +1,24 @@ +;; lib/hyperscript/plugins/prolog.sx — Prolog plugin +;; +;; Provides the `prolog` HS-level function. Replaces the ad-hoc +;; hs-prolog-hook / hs-set-prolog-hook! slots that previously lived in +;; lib/hyperscript/runtime.sx (nodes 140–142 of the plugin design doc). +;; +;; Two-step wiring preserves the original API: +;; 1. lib/prolog/runtime.sx loaded → defines pl-query-one +;; 2. lib/prolog/hs-bridge.sx (or this file's auto-wire) calls +;; (hs-set-prolog-hook! (fn (db goal) (not (= nil (pl-query-one db goal))))) +;; If neither is loaded, calling (prolog db goal) raises a clear error. + +(define hs-prolog-hook nil) + +(define hs-set-prolog-hook! (fn (f) (set! hs-prolog-hook f))) + +(define + prolog + (fn + (db goal) + (if + (nil? hs-prolog-hook) + (raise "prolog hook not installed") + (hs-prolog-hook db goal)))) diff --git a/shared/static/wasm/sx/hs-prolog.sxbc b/shared/static/wasm/sx/hs-prolog.sxbc new file mode 100644 index 00000000..6a0addf8 --- /dev/null +++ b/shared/static/wasm/sx/hs-prolog.sxbc @@ -0,0 +1,3 @@ +(sxbc 1 "b07521593ca7ed98" + (code + :constants ("hs-prolog-hook" "hs-set-prolog-hook!" {:upvalue-count nil :arity nil :constants ("hs-prolog-hook") :bytecode (nil nil nil nil nil nil)} "prolog" {:upvalue-count nil :arity nil :constants ("nil?" "hs-prolog-hook" "prolog hook not installed") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil))) diff --git a/shared/static/wasm/sx/hs-runtime.sx b/shared/static/wasm/sx/hs-runtime.sx index bd651b78..a0cfe523 100644 --- a/shared/static/wasm/sx/hs-runtime.sx +++ b/shared/static/wasm/sx/hs-runtime.sx @@ -12,29 +12,6 @@ ;; Register an event listener. Returns unlisten function. ;; (hs-on target event-name handler) → unlisten-fn -(begin - (define _hs-config-log-all false) - (define _hs-log-captured (list)) - (define - hs-set-log-all! - (fn (flag) (set! _hs-config-log-all (if flag true false)))) - (define hs-get-log-captured (fn () _hs-log-captured)) - (define - hs-clear-log-captured! - (fn () (begin (set! _hs-log-captured (list)) nil))) - (define - hs-log-event! - (fn - (msg) - (when - _hs-config-log-all - (begin - (set! _hs-log-captured (append _hs-log-captured (list msg))) - (host-call (host-global "console") "log" msg) - nil))))) - -;; Register for every occurrence (no queuing — each fires independently). -;; Stock hyperscript queues by default; "every" disables queuing. (define hs-each (fn @@ -45,6 +22,12 @@ ;; (hs-init thunk) — called at element boot time (define meta (host-new "Object")) +;; Run an initializer function immediately. +;; (hs-init thunk) — called at element boot time +(define + hs-on-every + (fn (target event-name handler) (dom-listen target event-name handler))) + ;; ── Async / timing ────────────────────────────────────────────── ;; Wait for a duration in milliseconds. @@ -68,13 +51,20 @@ hs-on (fn (target event-name handler) - (let - ((wrapped (fn (event) (do (host-set! meta "caller" _hs-on-caller) (host-set! meta "owner" target) (let ((__hs-no-stop false)) (guard (e ((and (not (= event-name "exception")) (not (= event-name "error"))) (do (when (and (list? e) (= (first e) "hs-halt-default")) (set! __hs-no-stop true)) (when (not __hs-no-stop) (dom-dispatch target "exception" {:error e})))) (true (raise e))) (handler event)) (when (not __hs-no-stop) (host-call event "stopPropagation"))))))) + (when + (not (nil? target)) (let - ((unlisten (dom-listen target event-name wrapped)) - (prev (or (dom-get-data target "hs-unlisteners") (list)))) - (dom-set-data target "hs-unlisteners" (append prev (list unlisten))) - unlisten)))) + ((me-el (host-get (host-global "window") "__hs_current_me"))) + (let + ((wrapped (fn (event) (when (not (and me-el (not (hs-ref-eq me-el target)) (nil? (host-get me-el "parentElement")))) (do (host-set! meta "caller" _hs-on-caller) (host-set! meta "owner" target) (let ((__hs-no-stop false)) (guard (e ((and (not (= event-name "exception")) (not (= event-name "error"))) (do (when (and (list? e) (= (first e) "hs-halt-default")) (set! __hs-no-stop true)) (when (not __hs-no-stop) (dom-dispatch target "exception" {:error e})))) (true (raise e))) (handler event)) (when (not __hs-no-stop) (host-call event "stopPropagation")))))))) + (let + ((unlisten (dom-listen target event-name wrapped)) + (prev (or (dom-get-data target "hs-unlisteners") (list)))) + (dom-set-data + target + "hs-unlisteners" + (append prev (list unlisten))) + unlisten)))))) ;; Wait for CSS transitions/animations to settle on an element. (define @@ -279,7 +269,8 @@ (when with-cls (dom-remove-class target with-cls)))) (let ((attr-val (if (> (len extra) 0) (first extra) nil)) - (with-val (if (> (len extra) 1) (nth extra 1) nil))) + (with-val + (if (> (len extra) 1) (nth extra 1) nil))) (do (for-each (fn @@ -503,7 +494,10 @@ ((i (if (< idx 0) (+ n idx) idx))) (cond ((or (< i 0) (>= i n)) target) - (true (concat (slice target 0 i) (slice target (+ i 1) n)))))) + (true + (concat + (slice target 0 i) + (slice target (+ i 1) n)))))) (do (when target @@ -603,6 +597,11 @@ ((w (host-global "window"))) (if w (if (host-call w "confirm" msg) yes-val no-val) no-val)))) + +;; ── Transition ────────────────────────────────────────────────── + +;; Transition a CSS property to a value, optionally with duration. +;; (hs-transition target prop value duration) (define hs-answer-alert (fn @@ -993,7 +992,7 @@ (host-get value "outerHTML") (str value)))) (true nil))))) - +;; Collection: joined by (define hs-sender (fn @@ -1210,7 +1209,14 @@ ((= type-name "Array") (if (list? value) value (list value))) ((= type-name "HTML") (cond - ((list? value) (join "" (map (fn (x) (str x)) value))) + ((list? value) + (join + "" + (map + (fn + (x) + (if (hs-element? x) (host-get x "outerHTML") (str x))) + value))) ((hs-element? value) (host-get value "outerHTML")) (true (str value)))) ((= type-name "JSON") @@ -1261,7 +1267,25 @@ ((factor (pow 10 digits))) (str (/ (floor (+ (* num factor) 0.5)) factor)))))) ((= type-name "Selector") (str value)) - ((= type-name "Fragment") value) + ((= type-name "Fragment") + (let + ((frag (host-call (dom-document) "createDocumentFragment"))) + (do + (for-each + (fn + (item) + (if + (hs-element? item) + (dom-append frag item) + (let + ((tmp (dom-create-element "div"))) + (do + (dom-set-inner-html tmp (str item)) + (for-each + (fn (k) (dom-append frag k)) + (host-get tmp "children")))))) + (if (list? value) value (list value))) + frag))) ((= type-name "Values") (hs-as-values value)) ((= type-name "Keys") (if @@ -1599,10 +1623,14 @@ ((ch (substring sel i (+ i 1)))) (cond ((= ch ".") - (do (flush!) (set! mode "class") (walk (+ i 1)))) + (do + (flush!) + (set! mode "class") + (walk (+ i 1)))) ((= ch "#") (do (flush!) (set! mode "id") (walk (+ i 1)))) - (true (do (set! cur (str cur ch)) (walk (+ i 1))))))))) + (true + (do (set! cur (str cur ch)) (walk (+ i 1))))))))) (walk 0) (flush!) {:tag tag :classes classes :id id})))) @@ -1700,6 +1728,7 @@ hs-strict-eq (fn (a b) (and (= (type-of a) (type-of b)) (= a b)))) + (define hs-id= (fn @@ -1776,7 +1805,10 @@ ((and (dict? a) (dict? b)) (let ((pos (host-call a "compareDocumentPosition" b))) - (if (number? pos) (not (= 0 (mod (/ pos 4) 2))) false))) + (if + (number? pos) + (not (= 0 (mod (/ pos 4) 2))) + false))) (true (< (str a) (str b)))))) (define @@ -1897,7 +1929,10 @@ ((and (dict? a) (dict? b)) (let ((pos (host-call a "compareDocumentPosition" b))) - (if (number? pos) (not (= 0 (mod (/ pos 4) 2))) false))) + (if + (number? pos) + (not (= 0 (mod (/ pos 4) 2))) + false))) (true (< (str a) (str b)))))) (define @@ -1950,7 +1985,9 @@ (define hs-morph-char - (fn (s p) (if (or (< p 0) (>= p (string-length s))) nil (nth s p)))) + (fn + (s p) + (if (or (< p 0) (>= p (string-length s))) nil (nth s p)))) (define hs-morph-index-from @@ -1978,7 +2015,10 @@ (q) (let ((c (hs-morph-char s q))) - (if (and c (< (index-of stop c) 0)) (loop (+ q 1)) q)))) + (if + (and c (< (index-of stop c) 0)) + (loop (+ q 1)) + q)))) (let ((e (loop p))) (list (substring s p e) e)))) (define @@ -2020,7 +2060,9 @@ (append acc (list - (list name (substring s (+ p4 1) close))))))) + (list + name + (substring s (+ p4 1) close))))))) ((= c2 "'") (let ((close (hs-morph-index-from s "'" (+ p4 1)))) @@ -2030,7 +2072,9 @@ (append acc (list - (list name (substring s (+ p4 1) close))))))) + (list + name + (substring s (+ p4 1) close))))))) (true (let ((r2 (hs-morph-read-until s p4 " \t\n/>"))) @@ -2114,7 +2158,9 @@ (for-each (fn (c) - (when (> (string-length c) 0) (dom-add-class el c))) + (when + (> (string-length c) 0) + (dom-add-class el c))) (split v " "))) ((and keep-id (= n "id")) nil) (true (dom-set-attr el n v))))) @@ -2215,7 +2261,8 @@ ((parts (split resolved ":"))) (let ((prop (first parts)) - (val (if (> (len parts) 1) (nth parts 1) nil))) + (val + (if (> (len parts) 1) (nth parts 1) nil))) (cond ((and (not (= prop "display")) (not (= prop "opacity")) (not (= prop "visibility")) (not (= prop "hidden")) (not (= prop "class-hidden")) (not (= prop "class-invisible")) (not (= prop "class-opacity")) (not (= prop "details")) (not (= prop "dialog")) (dict-has? _hs-hide-strategies prop)) (let @@ -2255,7 +2302,8 @@ ((parts (split resolved ":"))) (let ((prop (first parts)) - (val (if (> (len parts) 1) (nth parts 1) nil))) + (val + (if (> (len parts) 1) (nth parts 1) nil))) (cond ((and (not (= prop "display")) (not (= prop "opacity")) (not (= prop "visibility")) (not (= prop "hidden")) (not (= prop "class-hidden")) (not (= prop "class-invisible")) (not (= prop "class-opacity")) (not (= prop "details")) (not (= prop "dialog")) (dict-has? _hs-hide-strategies prop)) (let @@ -2360,10 +2408,14 @@ (if (= depth 1) j - (find-close (+ j 1) (- depth 1))) + (find-close + (+ j 1) + (- depth 1))) (if (= (nth raw j) "{") - (find-close (+ j 1) (+ depth 1)) + (find-close + (+ j 1) + (+ depth 1)) (find-close (+ j 1) depth)))))) (let ((close (find-close start 1))) @@ -2474,7 +2526,10 @@ (if (= (len lst) 0) -1 - (if (= (first lst) item) i (idx-loop (rest lst) (+ i 1)))))) + (if + (= (first lst) item) + i + (idx-loop (rest lst) (+ i 1)))))) (idx-loop obj 0))) (true (let @@ -2566,7 +2621,8 @@ (cond ((= end "hs-pick-end") n) ((= end "hs-pick-start") 0) - ((and (number? end) (< end 0)) (max 0 (+ n end))) + ((and (number? end) (< end 0)) + (max 0 (+ n end))) (true end)))) (cond ((string? col) (slice col s e)) @@ -2877,7 +2933,9 @@ ((results (hs-query-all selector))) (if (and - (or (nil? results) (and (list? results) (= (len results) 0))) + (or + (nil? results) + (and (list? results) (= (len results) 0))) (string? selector) (> (len selector) 0) (= (substring selector 0 1) "#")) @@ -2902,21 +2960,27 @@ (if fn (let - ((result (host-call-fn fn args))) + ((result (host-call-fn-raising fn args))) (if - (= (host-typeof result) "promise") - (let - ((state (host-promise-state result))) + (= result "__hs_js_throw__") + (raise (host-take-js-throw)) + (if + (= result "__hs_async_error__") + (raise "__hs_async_error__") (if - (and state (= (host-get state "ok") false)) - (do - (host-set! - (host-global "window") - "__hs_async_error" - (host-get state "value")) - (raise "__hs_async_error__")) - (if state (host-get state "value") result))) - result)) + (= (host-typeof result) "promise") + (let + ((state (host-promise-state result))) + (if + (and state (= (host-get state "ok") false)) + (do + (host-set! + (host-global "window") + "__hs_async_error" + (host-get state "value")) + (raise "__hs_async_error__")) + (if state (host-get state "value") result))) + result)))) (let ((msg (str "'" fn-name "' is null"))) (host-set! (host-global "window") "_hs_null_error" msg) @@ -3138,3 +3202,98 @@ (define hs-token-value (fn (tok) (dict-get tok :value))) (define hs-token-op? (fn (tok) (dict-get tok :op))) + +(define + hs-try-json-parse + (fn (data) (if (string? data) (guard (_e nil) (json-parse data)) nil))) + +(define + hs-socket-normalise-url + (fn + (url) + (if + (or (starts-with? url "ws://") (starts-with? url "wss://")) + url + (let + ((proto (host-get (host-global "location") "protocol")) + (host-str (host-get (host-global "location") "host"))) + (let + ((scheme (if (= proto "https:") "wss://" "ws://"))) + (str scheme host-str url)))))) + +(define + hs-socket-bind-name! + (fn + (name-path wrapper) + (let + ((win (host-global "window"))) + (if + (= (len name-path) 1) + (host-set! win (first name-path) wrapper) + (do + (when + (nil? (host-get win (first name-path))) + (host-set! win (first name-path) (host-new "Object"))) + (host-set! + (host-get win (first name-path)) + (nth name-path 1) + wrapper)))))) + +(define + hs-socket-resolve-rpc! + (fn + (wrapper data) + (let + ((iid (host-get data "iid"))) + (when + (not (nil? iid)) + (let + ((pending (host-get wrapper "_pending"))) + (when + (not (nil? pending)) + (let + ((entry (host-get pending iid))) + (when + (not (nil? entry)) + (host-set! pending iid nil) + (if + (not (nil? (host-get data "throw"))) + (host-call-fn + (host-get entry "reject") + (list (host-get data "throw"))) + (host-call-fn + (host-get entry "resolve") + (list (host-get data "return")))))))))))) + +(define + hs-socket-register! + (fn + (name-path url timeout on-message-handler json?) + (let + ((norm-url (hs-socket-normalise-url url))) + (let + ((wrapper (host-new "Object"))) + (do + (host-set! wrapper "_url" norm-url) + (host-set! wrapper "_timeout" (if (nil? timeout) 0 timeout)) + (host-set! wrapper "_pending" (host-new "Object")) + (host-set! wrapper "_closed" false) + (let + ((ws (host-new "WebSocket" norm-url))) + (do + (host-set! wrapper "_ws" ws) + (let + ((msg-handler (host-callback (fn (evt) (do (let ((parsed (hs-try-json-parse (host-get evt "data")))) (when (and (not (nil? parsed)) (not (nil? (host-get parsed "iid")))) (hs-socket-resolve-rpc! wrapper parsed))) (when (not (nil? on-message-handler)) (if json? (let ((data (hs-try-json-parse (host-get evt "data")))) (when (not (nil? data)) (on-message-handler data))) (on-message-handler evt)))))))) + (do + (host-set! ws "onmessage" msg-handler) + (host-set! wrapper "_onmessage_handler" msg-handler) + (host-set! + ws + "onclose" + (host-callback + (fn (e) (host-set! wrapper "_closed" true)))) + (host-call-fn + (host-global "_hsSetupSocket") + (list wrapper)) + (hs-socket-bind-name! name-path wrapper) + wrapper))))))))) diff --git a/shared/static/wasm/sx/hs-runtime.sxbc b/shared/static/wasm/sx/hs-runtime.sxbc index b0535f59..ae3497d6 100644 --- a/shared/static/wasm/sx/hs-runtime.sxbc +++ b/shared/static/wasm/sx/hs-runtime.sxbc @@ -1,3 +1,3 @@ -(sxbc 1 "d0fcc22cbe0ba27f" +(sxbc 1 "667044db63324e86" (code - :constants ("hs-each" {:upvalue-count 0 :arity 2 :constants ("list?" "for-each") :bytecode (16 0 52 0 0 1 33 11 0 16 1 16 0 52 1 0 2 32 6 0 16 1 16 0 49 1 50)} "hs-on" {:upvalue-count 0 :arity 3 :constants ("dom-listen") :bytecode (20 0 0 16 0 16 1 16 2 49 3 50)} "hs-on-every" "hs-init" {:upvalue-count 0 :arity 1 :constants () :bytecode (16 0 49 0 50)} "hs-wait" {:upvalue-count 0 :arity 1 :constants ("list" io-sleep) :bytecode (1 1 0 16 0 52 0 0 2 112 50)} "hs-wait-for" {:upvalue-count 0 :arity 2 :constants ("list" io-wait-event) :bytecode (1 1 0 16 0 16 1 52 0 0 3 112 50)} "hs-settle" {:upvalue-count 0 :arity 1 :constants ("list" io-settle) :bytecode (1 1 0 16 0 52 0 0 2 112 50)} "hs-toggle-class!" {:upvalue-count 0 :arity 2 :constants ("host-call" "host-get" "classList" "toggle") :bytecode (16 0 1 2 0 52 1 0 2 1 3 0 16 1 52 0 0 3 50)} "hs-toggle-between!" {:upvalue-count 0 :arity 3 :constants ("dom-has-class?" "dom-remove-class" "dom-add-class") :bytecode (20 0 0 16 0 16 1 48 2 33 22 0 20 1 0 16 0 16 1 48 2 5 20 2 0 16 0 16 2 49 2 32 19 0 20 1 0 16 0 16 2 48 2 5 20 2 0 16 0 16 1 49 2 50)} "hs-toggle-style!" {:upvalue-count 0 :arity 2 :constants ("dom-get-style" "=" "visibility" "hidden" "dom-set-style" "visible" "display" "opacity" "none" "0" "1" "") :bytecode (20 0 0 16 0 16 1 48 2 17 2 16 1 1 2 0 52 1 0 2 33 42 0 16 2 1 3 0 52 1 0 2 33 15 0 20 4 0 16 0 16 1 1 5 0 49 3 32 12 0 20 4 0 16 0 16 1 1 3 0 49 3 32 169 0 16 1 1 6 0 52 1 0 2 6 34 10 0 5 16 1 1 7 0 52 1 0 2 33 92 0 16 2 1 8 0 52 1 0 2 6 34 10 0 5 16 2 1 9 0 52 1 0 2 33 33 0 20 4 0 16 0 16 1 16 1 1 7 0 52 1 0 2 33 6 0 1 10 0 32 3 0 1 11 0 49 3 32 30 0 20 4 0 16 0 16 1 16 1 1 6 0 52 1 0 2 33 6 0 1 8 0 32 3 0 1 9 0 49 3 32 51 0 16 2 1 11 0 52 1 0 2 6 34 8 0 5 16 2 2 52 1 0 2 33 15 0 20 4 0 16 0 16 1 1 3 0 49 3 32 12 0 20 4 0 16 0 16 1 1 11 0 49 3 50)} "hs-toggle-style-between!" {:upvalue-count 0 :arity 4 :constants ("dom-get-style" "=" "dom-set-style") :bytecode (20 0 0 16 0 16 1 48 2 17 4 16 4 16 2 52 1 0 2 33 14 0 20 2 0 16 0 16 1 16 3 49 3 32 11 0 20 2 0 16 0 16 1 16 2 49 3 50)} "hs-toggle-style-cycle!" {:upvalue-count 0 :arity 3 :constants ("dom-get-style" {:upvalue-count 3 :arity 1 :constants ("empty?" "first" "=" "rest") :bytecode (16 0 52 0 0 1 33 9 0 18 0 52 1 0 1 32 60 0 18 1 16 0 52 1 0 1 52 2 0 2 33 35 0 16 0 52 3 0 1 52 0 0 1 33 9 0 18 0 52 1 0 1 32 10 0 16 0 52 3 0 1 52 1 0 1 32 10 0 18 2 16 0 52 3 0 1 49 1 50)} "dom-set-style") :bytecode (20 0 0 16 0 16 1 48 2 17 3 51 1 0 1 2 1 3 1 4 17 4 5 20 2 0 16 0 16 1 16 4 16 2 48 1 49 3 50)} "hs-take!" {:upvalue-count 0 :arity 5 :constants ("list?" "list" "dom-parent" "dom-child-list" "=" "class" "for-each" {:upvalue-count 1 :arity 1 :constants ("dom-remove-class") :bytecode (20 0 0 16 0 18 0 49 2 50)} "dom-add-class" ">" "len" 0 "first" 1 "nth" {:upvalue-count 2 :arity 1 :constants ("dom-set-attr") :bytecode (20 0 0 16 0 18 0 18 1 49 3 50)} "dom-set-attr" "") :rest-arity 4 :bytecode (16 3 33 23 0 16 3 52 0 0 1 33 5 0 16 3 32 6 0 16 3 52 1 0 1 32 28 0 20 2 0 16 0 48 1 17 5 16 5 33 10 0 20 3 0 16 5 48 1 32 4 0 52 1 0 0 17 5 16 1 1 5 0 52 4 0 2 33 24 0 51 7 0 1 2 16 5 52 6 0 2 5 20 8 0 16 0 16 2 49 2 32 113 0 16 4 52 10 0 1 1 11 0 52 9 0 2 33 9 0 16 4 52 12 0 1 32 1 0 2 17 6 16 4 52 10 0 1 1 13 0 52 9 0 2 33 12 0 16 4 1 13 0 52 14 0 2 32 1 0 2 17 7 16 7 33 16 0 51 15 0 1 2 1 7 16 5 52 6 0 2 32 1 0 2 5 16 6 33 14 0 20 16 0 16 0 16 2 16 6 49 3 32 12 0 20 16 0 16 0 16 2 1 17 0 49 3 50)} "hs-put!" {:upvalue-count 0 :arity 3 :constants ("=" "into" "list?" "dom-set-inner-html" "before" "dom-insert-adjacent-html" "beforebegin" "after" "afterend" "start" "append!" 0 "afterbegin" "end" "beforeend") :bytecode (16 1 1 1 0 52 0 0 2 33 26 0 16 2 52 2 0 1 33 5 0 16 2 32 9 0 20 3 0 16 2 16 0 49 2 32 152 0 16 1 1 4 0 52 0 0 2 33 15 0 20 5 0 16 2 1 6 0 16 0 49 3 32 125 0 16 1 1 7 0 52 0 0 2 33 15 0 20 5 0 16 2 1 8 0 16 0 49 3 32 98 0 16 1 1 9 0 52 0 0 2 33 38 0 16 2 52 2 0 1 33 14 0 16 2 16 0 1 11 0 52 10 0 3 32 12 0 20 5 0 16 2 1 12 0 16 0 49 3 32 48 0 16 1 1 13 0 52 0 0 2 33 35 0 16 2 52 2 0 1 33 11 0 16 2 16 0 52 10 0 2 32 12 0 20 5 0 16 2 1 14 0 16 0 49 3 32 1 0 2 50)} "hs-add-to!" {:upvalue-count 0 :arity 2 :constants ("list?" "append" "list" "host-call" "push") :bytecode (16 1 52 0 0 1 33 15 0 16 1 16 0 52 2 0 1 52 1 0 2 32 11 0 16 1 1 4 0 16 0 52 3 0 3 50)} "hs-remove-from!" {:upvalue-count 0 :arity 2 :constants ("list?" "filter" {:upvalue-count 1 :arity 1 :constants ("not" "=") :bytecode (16 0 18 0 52 1 0 2 52 0 0 1 50)} "host-call" "splice" "indexOf" 1) :bytecode (16 1 52 0 0 1 33 14 0 51 2 0 1 0 16 1 52 1 0 2 32 23 0 16 1 1 4 0 16 1 1 5 0 16 0 52 3 0 3 1 6 0 52 3 0 4 50)} "hs-set-on!" {:upvalue-count 0 :arity 2 :constants ("for-each" {:upvalue-count 2 :arity 1 :constants ("host-set!" "get") :bytecode (18 0 16 0 18 1 16 0 52 1 0 2 52 0 0 3 50)} "keys") :bytecode (51 1 0 1 1 1 0 16 0 52 2 0 1 52 0 0 2 50)} "hs-navigate!" {:upvalue-count 0 :arity 1 :constants ("list" io-navigate) :bytecode (1 1 0 16 0 52 0 0 2 112 50)} "hs-scroll!" {:upvalue-count 0 :arity 2 :constants ("host-call" "scrollIntoView" "list" "=" "bottom" "dict" "block" "end" "start") :bytecode (16 0 1 1 0 16 1 1 4 0 52 3 0 2 33 13 0 1 6 0 1 7 0 52 5 0 2 32 10 0 1 6 0 1 8 0 52 5 0 2 52 2 0 1 52 0 0 3 50)} "hs-halt!" {:upvalue-count 0 :arity 1 :constants ("event" "=" "default" "host-call" "preventDefault" "bubbling" "stopPropagation") :bytecode (20 0 0 33 74 0 16 0 1 2 0 52 1 0 2 33 13 0 20 0 0 1 4 0 52 3 0 2 32 46 0 16 0 1 5 0 52 1 0 2 33 13 0 20 0 0 1 6 0 52 3 0 2 32 21 0 20 0 0 1 4 0 52 3 0 2 5 20 0 0 1 6 0 52 3 0 2 32 1 0 2 50)} "hs-select!" {:upvalue-count 0 :arity 1 :constants ("host-call" "select" "list") :bytecode (16 0 1 1 0 52 2 0 0 52 0 0 3 50)} "hs-reset!" {:upvalue-count 0 :arity 1 :constants ("host-call" "reset" "list") :bytecode (16 0 1 1 0 52 2 0 0 52 0 0 3 50)} "hs-next" {:upvalue-count 0 :arity 2 :constants ("=" "*" "dom-next-sibling" {:upvalue-count 2 :arity 1 :constants ("nil?" "dom-matches?" "dom-next-sibling") :bytecode (16 0 52 0 0 1 33 4 0 2 32 28 0 20 1 0 16 0 18 0 48 2 33 5 0 16 0 32 11 0 18 1 20 2 0 16 0 48 1 49 1 50)}) :bytecode (16 1 1 1 0 52 0 0 2 33 10 0 20 2 0 16 0 49 1 32 25 0 20 2 0 16 0 48 1 17 2 51 3 0 1 1 1 3 17 3 5 16 3 16 2 49 1 50)} "hs-previous" {:upvalue-count 0 :arity 2 :constants ("=" "*" "dom-get-prop" "previousElementSibling" {:upvalue-count 2 :arity 1 :constants ("nil?" "dom-matches?" "dom-get-prop" "previousElementSibling") :bytecode (16 0 52 0 0 1 33 4 0 2 32 31 0 20 1 0 16 0 18 0 48 2 33 5 0 16 0 32 14 0 18 1 20 2 0 16 0 1 3 0 48 2 49 1 50)}) :bytecode (16 1 1 1 0 52 0 0 2 33 13 0 20 2 0 16 0 1 3 0 49 2 32 28 0 20 2 0 16 0 1 3 0 48 2 17 2 51 4 0 1 1 1 3 17 3 5 16 3 16 2 49 1 50)} "hs-query-all" {:upvalue-count 0 :arity 1 :constants ("host-call" "dom-body" "querySelectorAll") :bytecode (20 1 0 48 0 1 2 0 16 0 52 0 0 3 50)} "hs-query-first" {:upvalue-count 0 :arity 1 :constants ("host-call" "host-global" "document" "querySelector") :bytecode (1 2 0 52 1 0 1 1 3 0 16 0 52 0 0 3 50)} "hs-query-last" {:upvalue-count 0 :arity 1 :constants ("dom-query-all" "dom-body" ">" "len" 0 "nth" "-" 1) :bytecode (20 0 0 20 1 0 48 0 16 0 48 2 17 1 16 1 52 3 0 1 1 4 0 52 2 0 2 33 22 0 16 1 16 1 52 3 0 1 1 7 0 52 6 0 2 52 5 0 2 32 1 0 2 50)} "hs-first" {:upvalue-count 0 :arity 2 :constants ("dom-query-all") :bytecode (20 0 0 16 0 16 1 49 2 50)} "hs-last" {:upvalue-count 0 :arity 2 :constants ("dom-query-all" ">" "len" 0 "nth" "-" 1) :bytecode (20 0 0 16 0 16 1 48 2 17 2 16 2 52 2 0 1 1 3 0 52 1 0 2 33 22 0 16 2 16 2 52 2 0 1 1 6 0 52 5 0 2 52 4 0 2 32 1 0 2 50)} "hs-repeat-times" {:upvalue-count 0 :arity 3 :constants ({:upvalue-count 3 :arity 1 :constants ("<" "=" "str" "hs-break" "hs-continue" "+" 1) :bytecode (16 0 18 0 52 0 0 2 33 124 0 35 10 0 18 1 48 0 5 2 36 32 49 0 17 0 5 16 0 52 2 0 1 1 3 0 52 1 0 2 6 34 14 0 5 16 0 52 2 0 1 1 4 0 52 1 0 2 33 9 0 16 0 52 2 0 1 32 3 0 16 0 37 17 1 16 1 1 3 0 52 1 0 2 33 4 0 2 32 41 0 16 1 1 4 0 52 1 0 2 33 16 0 18 2 16 0 1 6 0 52 5 0 2 49 1 32 13 0 18 2 16 0 1 6 0 52 5 0 2 49 1 32 1 0 2 50)} 0) :bytecode (51 0 0 1 0 1 1 1 2 17 2 5 16 2 1 1 0 49 1 50)} "hs-repeat-forever" {:upvalue-count 0 :arity 2 :constants ({:upvalue-count 2 :arity 0 :constants ("=" "str" "hs-break" "hs-continue") :bytecode (35 10 0 18 0 48 0 5 2 36 32 49 0 17 0 5 16 0 52 1 0 1 1 2 0 52 0 0 2 6 34 14 0 5 16 0 52 1 0 1 1 3 0 52 0 0 2 33 9 0 16 0 52 1 0 1 32 3 0 16 0 37 17 0 16 0 1 2 0 52 0 0 2 33 4 0 2 32 23 0 16 0 1 3 0 52 0 0 2 33 7 0 18 1 49 0 32 4 0 18 1 49 0 50)}) :bytecode (51 0 0 1 0 1 1 17 1 5 16 1 49 0 50)} "hs-repeat-while" {:upvalue-count 0 :arity 2 :constants ("=" "str" "hs-break" "hs-continue" "hs-repeat-while") :bytecode (16 0 48 0 33 116 0 35 10 0 16 1 48 0 5 2 36 32 49 0 17 0 5 16 0 52 1 0 1 1 2 0 52 0 0 2 6 34 14 0 5 16 0 52 1 0 1 1 3 0 52 0 0 2 33 9 0 16 0 52 1 0 1 32 3 0 16 0 37 17 2 16 2 1 2 0 52 0 0 2 33 4 0 2 32 33 0 16 2 1 3 0 52 0 0 2 33 12 0 20 4 0 16 0 16 1 49 2 32 9 0 20 4 0 16 0 16 1 49 2 32 1 0 2 50)} "hs-repeat-until" {:upvalue-count 0 :arity 2 :constants ("=" "str" "hs-break" "hs-continue" "hs-repeat-until") :bytecode (35 10 0 16 1 48 0 5 2 36 32 49 0 17 0 5 16 0 52 1 0 1 1 2 0 52 0 0 2 6 34 14 0 5 16 0 52 1 0 1 1 3 0 52 0 0 2 33 9 0 16 0 52 1 0 1 32 3 0 16 0 37 17 2 16 2 1 2 0 52 0 0 2 33 4 0 2 32 55 0 16 2 1 3 0 52 0 0 2 33 23 0 16 0 48 0 33 4 0 2 32 9 0 20 4 0 16 0 16 1 49 2 32 20 0 16 0 48 0 33 4 0 2 32 9 0 20 4 0 16 0 16 1 49 2 50)} "hs-for-each" {:upvalue-count 0 :arity 2 :constants ("list?" "dict?" "keys" "nil?" "list" {:upvalue-count 2 :arity 1 :constants ("not" "empty?" "first" "=" "str" "hs-break" "hs-continue" "rest") :bytecode (16 0 52 1 0 1 52 0 0 1 33 124 0 35 16 0 18 0 16 0 52 2 0 1 48 1 5 2 36 32 49 0 17 0 5 16 0 52 4 0 1 1 5 0 52 3 0 2 6 34 14 0 5 16 0 52 4 0 1 1 6 0 52 3 0 2 33 9 0 16 0 52 4 0 1 32 3 0 16 0 37 17 1 16 1 1 5 0 52 3 0 2 33 4 0 2 32 35 0 16 1 1 6 0 52 3 0 2 33 13 0 18 1 16 0 52 7 0 1 49 1 32 10 0 18 1 16 0 52 7 0 1 49 1 32 1 0 2 50)}) :bytecode (16 1 52 0 0 1 33 5 0 16 1 32 38 0 16 1 52 1 0 1 33 9 0 16 1 52 2 0 1 32 20 0 16 1 52 3 0 1 33 7 0 52 4 0 0 32 4 0 52 4 0 0 17 2 51 5 0 1 0 1 3 17 3 5 16 3 16 2 49 1 50)} "hs-append" {:upvalue-count 0 :arity 2 :constants ("string?" "str" "list?" "append" "list") :bytecode (16 0 52 0 0 1 33 11 0 16 0 16 1 52 1 0 2 32 32 0 16 0 52 2 0 1 33 15 0 16 0 16 1 52 4 0 1 52 3 0 2 32 8 0 16 0 16 1 52 1 0 2 50)} "hs-append!" {:upvalue-count 0 :arity 2 :constants ("dom-insert-adjacent-html" "beforeend") :bytecode (20 0 0 16 1 1 1 0 16 0 49 3 50)} "hs-fetch" {:upvalue-count 0 :arity 2 :constants ("list" "io-fetch" "text") :bytecode (1 1 0 16 0 16 1 33 5 0 16 1 32 3 0 1 2 0 52 0 0 3 112 50)} "hs-coerce" {:upvalue-count 0 :arity 2 :constants ("=" "Int" "floor" "+" 0 "Integer" "Float" "Number" "String" "list?" "join" "," "map" {:upvalue-count 0 :arity 1 :constants ("str") :bytecode (16 0 52 0 0 1 50)} "str" "Bool" "not" "hs-falsy?" "Boolean" "Array" "list" "HTML" "JSON" "string?" "host-call" "host-global" "stringify" "Object" "parse" "Fixed" "Fixed:" ">" "string-length" 6 "substring" "**" 10 "/" "*" 0.5 "Selector" "Fragment" "Values" "dict?" {:upvalue-count 1 :arity 1 :constants ("get") :bytecode (18 0 16 0 52 0 0 2 50)} "keys" "Keys" "Entries" {:upvalue-count 1 :arity 1 :constants ("list" "get") :bytecode (16 0 18 0 16 0 52 1 0 2 52 0 0 2 50)} "Reversed" "reverse" "Unique" "reduce" {:upvalue-count 0 :arity 2 :constants ("some" {:upvalue-count 1 :arity 1 :constants ("=") :bytecode (16 0 18 0 52 0 0 2 50)} "append" "list") :bytecode (51 1 0 1 1 16 0 52 0 0 2 33 5 0 16 0 32 12 0 16 0 16 1 52 3 0 1 52 2 0 2 50)} "Flattened" "Flat" {:upvalue-count 0 :arity 2 :constants ("list?" "append" "list") :bytecode (16 1 52 0 0 1 33 11 0 16 0 16 1 52 1 0 2 32 12 0 16 0 16 1 52 2 0 1 52 1 0 2 50)} "Set" "Map") :bytecode (16 1 1 1 0 52 0 0 2 33 16 0 16 0 1 4 0 52 3 0 2 52 2 0 1 32 89 3 16 1 1 5 0 52 0 0 2 33 16 0 16 0 1 4 0 52 3 0 2 52 2 0 1 32 61 3 16 1 1 6 0 52 0 0 2 33 12 0 16 0 1 4 0 52 3 0 2 32 37 3 16 1 1 7 0 52 0 0 2 33 12 0 16 0 1 4 0 52 3 0 2 32 13 3 16 1 1 8 0 52 0 0 2 33 37 0 16 0 52 9 0 1 33 19 0 1 11 0 51 13 0 16 0 52 12 0 2 52 10 0 2 32 6 0 16 0 52 14 0 1 32 220 2 16 1 1 15 0 52 0 0 2 33 14 0 20 17 0 16 0 48 1 52 16 0 1 32 194 2 16 1 1 18 0 52 0 0 2 33 14 0 20 17 0 16 0 48 1 52 16 0 1 32 168 2 16 1 1 19 0 52 0 0 2 33 23 0 16 0 52 9 0 1 33 5 0 16 0 32 6 0 16 0 52 20 0 1 32 133 2 16 1 1 21 0 52 0 0 2 33 9 0 16 0 52 14 0 1 32 112 2 16 1 1 22 0 52 0 0 2 33 33 0 16 0 52 23 0 1 33 5 0 16 0 32 16 0 1 22 0 52 25 0 1 1 26 0 16 0 52 24 0 3 32 67 2 16 1 1 27 0 52 0 0 2 33 33 0 16 0 52 23 0 1 33 19 0 1 22 0 52 25 0 1 1 28 0 16 0 52 24 0 3 32 2 0 16 0 32 22 2 16 1 1 29 0 52 0 0 2 6 34 10 0 5 16 1 1 30 0 52 0 0 2 33 126 0 16 1 52 32 0 1 1 33 0 52 31 0 2 33 25 0 16 1 1 33 0 16 1 52 32 0 1 52 34 0 3 1 4 0 52 3 0 2 32 3 0 1 4 0 17 2 16 0 1 4 0 52 3 0 2 17 3 16 2 1 4 0 52 0 0 2 33 13 0 16 3 52 2 0 1 52 14 0 1 32 41 0 20 35 0 1 36 0 16 2 48 2 17 4 16 3 16 4 52 38 0 2 1 39 0 52 3 0 2 52 2 0 1 16 4 52 37 0 2 52 14 0 1 32 126 1 16 1 1 40 0 52 0 0 2 33 9 0 16 0 52 14 0 1 32 105 1 16 1 1 41 0 52 0 0 2 33 5 0 16 0 32 88 1 16 1 1 42 0 52 0 0 2 33 32 0 16 0 52 43 0 1 33 18 0 51 44 0 1 0 16 0 52 45 0 1 52 12 0 2 32 2 0 16 0 32 44 1 16 1 1 46 0 52 0 0 2 33 23 0 16 0 52 43 0 1 33 9 0 16 0 52 45 0 1 32 2 0 16 0 32 9 1 16 1 1 47 0 52 0 0 2 33 32 0 16 0 52 43 0 1 33 18 0 51 48 0 1 0 16 0 52 45 0 1 52 12 0 2 32 2 0 16 0 32 221 0 16 1 1 49 0 52 0 0 2 33 23 0 16 0 52 9 0 1 33 9 0 16 0 52 50 0 1 32 2 0 16 0 32 186 0 16 1 1 51 0 52 0 0 2 33 30 0 16 0 52 9 0 1 33 16 0 51 53 0 52 20 0 0 16 0 52 52 0 3 32 2 0 16 0 32 144 0 16 1 1 54 0 52 0 0 2 6 34 10 0 5 16 1 1 55 0 52 0 0 2 33 30 0 16 0 52 9 0 1 33 16 0 51 56 0 52 20 0 0 16 0 52 52 0 3 32 2 0 16 0 32 88 0 16 1 1 57 0 52 0 0 2 33 30 0 16 0 52 9 0 1 33 16 0 51 53 0 52 20 0 0 16 0 52 52 0 3 32 2 0 16 0 32 46 0 16 1 1 58 0 52 0 0 2 33 32 0 16 0 52 43 0 1 33 18 0 51 48 0 1 0 16 0 52 45 0 1 52 12 0 2 32 2 0 16 0 32 2 0 16 0 50)} "hs-add" {:upvalue-count 0 :arity 2 :constants ("list?" "append" "list" "cons" "string?" "str" "+") :bytecode (16 0 52 0 0 1 33 35 0 16 1 52 0 0 1 33 11 0 16 0 16 1 52 1 0 2 32 12 0 16 0 16 1 52 2 0 1 52 1 0 2 32 59 0 16 1 52 0 0 1 33 11 0 16 0 16 1 52 3 0 2 32 39 0 16 0 52 4 0 1 6 34 7 0 5 16 1 52 4 0 1 33 11 0 16 0 16 1 52 5 0 2 32 8 0 16 0 16 1 52 6 0 2 50)} "hs-make" {:upvalue-count 0 :arity 1 :constants ("=" "Object" "dict" "Array" "list" "Set" "Map") :bytecode (16 0 1 1 0 52 0 0 2 33 7 0 52 2 0 0 32 61 0 16 0 1 3 0 52 0 0 2 33 7 0 52 4 0 0 32 42 0 16 0 1 5 0 52 0 0 2 33 7 0 52 4 0 0 32 23 0 16 0 1 6 0 52 0 0 2 33 7 0 52 2 0 0 32 4 0 52 2 0 0 50)} "hs-install" {:upvalue-count 0 :arity 1 :constants ("me") :bytecode (16 0 20 0 0 49 1 50)} "hs-measure" {:upvalue-count 0 :arity 1 :constants ("list" io-measure) :bytecode (1 1 0 16 0 52 0 0 2 112 50)} "hs-transition" {:upvalue-count 0 :arity 4 :constants ("dom-set-style" "transition" "str" " " "/" 1000 "s" "hs-settle") :bytecode (16 3 33 34 0 20 0 0 16 0 1 1 0 16 1 1 3 0 16 3 1 5 0 52 4 0 2 1 6 0 52 2 0 4 48 3 32 1 0 2 5 20 0 0 16 0 16 1 16 2 48 3 5 16 3 33 10 0 20 7 0 16 0 49 1 32 1 0 2 50)} "hs-transition-from" {:upvalue-count 0 :arity 5 :constants ("dom-set-style" "str" "transition" " " "/" 1000 "s" "hs-settle") :bytecode (20 0 0 16 0 16 1 16 2 52 1 0 1 48 3 5 16 4 33 34 0 20 0 0 16 0 1 2 0 16 1 1 3 0 16 4 1 5 0 52 4 0 2 1 6 0 52 1 0 4 48 3 32 1 0 2 5 20 0 0 16 0 16 1 16 3 52 1 0 1 48 3 5 16 4 33 10 0 20 7 0 16 0 49 1 32 1 0 2 50)} "hs-type-check" {:upvalue-count 0 :arity 2 :constants ("nil?" "=" "Number" "number?" "String" "string?" "Boolean" "Array" "list?" "Object" "dict?" "Element" "host-typeof" "element" "Node" "text" "downcase") :bytecode (16 0 52 0 0 1 33 4 0 3 32 208 0 16 1 1 2 0 52 1 0 2 33 9 0 16 0 52 3 0 1 32 187 0 16 1 1 4 0 52 1 0 2 33 9 0 16 0 52 5 0 1 32 166 0 16 1 1 6 0 52 1 0 2 33 22 0 16 0 3 52 1 0 2 6 34 8 0 5 16 0 4 52 1 0 2 32 132 0 16 1 1 7 0 52 1 0 2 33 9 0 16 0 52 8 0 1 32 111 0 16 1 1 9 0 52 1 0 2 33 9 0 16 0 52 10 0 1 32 90 0 16 1 1 11 0 52 1 0 2 33 16 0 16 0 52 12 0 1 1 13 0 52 1 0 2 32 62 0 16 1 1 14 0 52 1 0 2 33 34 0 16 0 52 12 0 1 1 13 0 52 1 0 2 6 34 14 0 5 16 0 52 12 0 1 1 15 0 52 1 0 2 32 16 0 16 0 52 12 0 1 16 1 52 16 0 1 52 1 0 2 50)} "hs-type-check-strict" {:upvalue-count 0 :arity 2 :constants ("nil?" "hs-type-check") :bytecode (16 0 52 0 0 1 33 4 0 4 32 9 0 20 1 0 16 0 16 1 49 2 50)} "hs-strict-eq" {:upvalue-count 0 :arity 2 :constants ("=" "type-of") :bytecode (16 0 52 1 0 1 16 1 52 1 0 1 52 0 0 2 6 33 9 0 5 16 0 16 1 52 0 0 2 50)} "hs-eq-ignore-case" {:upvalue-count 0 :arity 2 :constants ("=" "downcase" "str") :bytecode (16 0 52 2 0 1 52 1 0 1 16 1 52 2 0 1 52 1 0 1 52 0 0 2 50)} "hs-starts-with-ic?" {:upvalue-count 0 :arity 2 :constants ("starts-with?" "downcase") :bytecode (16 0 52 1 0 1 16 1 52 1 0 1 52 0 0 2 50)} "hs-contains-ignore-case?" {:upvalue-count 0 :arity 2 :constants ("contains?" "downcase" "str") :bytecode (16 0 52 2 0 1 52 1 0 1 16 1 52 2 0 1 52 1 0 1 52 0 0 2 50)} "hs-falsy?" {:upvalue-count 0 :arity 1 :constants ("nil?" "=" "string?" "" "list?" "len" 0) :bytecode (16 0 52 0 0 1 33 4 0 3 32 89 0 16 0 4 52 1 0 2 33 4 0 3 32 75 0 16 0 52 2 0 1 6 33 10 0 5 16 0 1 3 0 52 1 0 2 33 4 0 3 32 48 0 16 0 52 4 0 1 6 33 14 0 5 16 0 52 5 0 1 1 6 0 52 1 0 2 33 4 0 3 32 17 0 16 0 1 6 0 52 1 0 2 33 4 0 3 32 1 0 4 50)} "hs-matches?" {:upvalue-count 0 :arity 2 :constants ("string?" "=" ".*" "string-contains?" "host-typeof" "element" "host-call" "matches") :bytecode (16 0 52 0 0 1 33 27 0 16 1 1 2 0 52 1 0 2 33 4 0 3 32 8 0 16 0 16 1 52 3 0 2 32 44 0 16 0 52 4 0 1 1 5 0 52 1 0 2 33 27 0 16 1 52 0 0 1 33 14 0 16 0 1 7 0 16 1 52 6 0 3 32 1 0 4 32 1 0 4 50)} "hs-contains?" {:upvalue-count 0 :arity 2 :constants ("nil?" "string?" "string-contains?" "str" "list?" "filter" {:upvalue-count 1 :arity 1 :constants ("hs-contains?") :bytecode (20 0 0 18 0 16 0 49 2 50)} "=" "len" 0 "first" "hs-contains?" "rest") :bytecode (16 0 52 0 0 1 33 4 0 4 32 112 0 16 0 52 1 0 1 33 15 0 16 0 16 1 52 3 0 1 52 2 0 2 32 88 0 16 0 52 4 0 1 33 78 0 16 1 52 4 0 1 33 14 0 51 6 0 1 0 16 1 52 5 0 2 32 52 0 16 0 52 8 0 1 1 9 0 52 7 0 2 33 4 0 4 32 32 0 16 0 52 10 0 1 16 1 52 7 0 2 33 4 0 3 32 13 0 20 11 0 16 0 52 12 0 1 16 1 49 2 32 1 0 4 50)} "precedes?" {:upvalue-count 0 :arity 2 :constants ("<" "str") :bytecode (16 0 52 1 0 1 16 1 52 1 0 1 52 0 0 2 50)} "hs-empty?" {:upvalue-count 0 :arity 1 :constants ("nil?" "string?" "=" "len" 0 "list?" "dict?" "keys") :bytecode (16 0 52 0 0 1 33 4 0 3 32 80 0 16 0 52 1 0 1 33 16 0 16 0 52 3 0 1 1 4 0 52 2 0 2 32 55 0 16 0 52 5 0 1 33 16 0 16 0 52 3 0 1 1 4 0 52 2 0 2 32 30 0 16 0 52 6 0 1 33 20 0 16 0 52 7 0 1 52 3 0 1 1 4 0 52 2 0 2 32 1 0 4 50)} "hs-empty-target!" {:upvalue-count 0 :arity 1 :constants ("list?" "for-each" {:upvalue-count 0 :arity 1 :constants ("hs-empty-target!") :bytecode (20 0 0 16 0 49 1 50)} "nil?" "dom-get-prop" "tagName" "=" "INPUT" "TEXTAREA" "type" "checkbox" "radio" "dom-set-prop" "checked" "value" "" "FORM" "dom-set-inner-html" "host-call" "querySelectorAll" "input, textarea, select") :bytecode (16 0 52 0 0 1 33 12 0 51 2 0 16 0 52 1 0 2 32 192 0 16 0 52 3 0 1 33 4 0 2 32 179 0 20 4 0 16 0 1 5 0 48 2 17 1 16 1 1 7 0 52 6 0 2 6 34 10 0 5 16 1 1 8 0 52 6 0 2 33 68 0 20 4 0 16 0 1 9 0 48 2 17 2 16 2 1 10 0 52 6 0 2 6 34 10 0 5 16 2 1 11 0 52 6 0 2 33 14 0 20 12 0 16 0 1 13 0 4 49 3 32 13 0 20 12 0 16 0 1 14 0 1 15 0 49 3 32 73 0 16 1 1 16 0 52 6 0 2 33 13 0 20 17 0 16 0 1 15 0 49 2 32 48 0 16 1 1 16 0 52 6 0 2 33 26 0 16 0 1 19 0 1 20 0 52 18 0 3 17 2 51 2 0 16 2 52 1 0 2 32 10 0 20 17 0 16 0 1 15 0 49 2 50)} "hs-open!" {:upvalue-count 0 :arity 1 :constants ("dom-get-prop" "tagName" "=" "DIALOG" "host-call" "showModal" "dom-set-prop" "open") :bytecode (20 0 0 16 0 1 1 0 48 2 17 1 16 1 1 3 0 52 2 0 2 33 12 0 16 0 1 5 0 52 4 0 2 32 11 0 20 6 0 16 0 1 7 0 3 49 3 50)} "hs-close!" {:upvalue-count 0 :arity 1 :constants ("dom-get-prop" "tagName" "=" "DIALOG" "host-call" "close" "dom-set-prop" "open") :bytecode (20 0 0 16 0 1 1 0 48 2 17 1 16 1 1 3 0 52 2 0 2 33 12 0 16 0 1 5 0 52 4 0 2 32 11 0 20 6 0 16 0 1 7 0 4 49 3 50)} "hs-hide!" {:upvalue-count 0 :arity 2 :constants ("dom-get-prop" "tagName" "=" "DIALOG" "dom-has-attr?" "open" "host-call" "close" "DETAILS" "dom-set-prop" "opacity" "dom-set-style" "0" "visibility" "hidden" "display" "none") :bytecode (20 0 0 16 0 1 1 0 48 2 17 2 16 2 1 3 0 52 2 0 2 33 29 0 20 4 0 16 0 1 5 0 48 2 33 12 0 16 0 1 7 0 52 6 0 2 32 1 0 2 32 95 0 16 2 1 8 0 52 2 0 2 33 14 0 20 9 0 16 0 1 5 0 4 49 3 32 69 0 16 1 1 10 0 52 2 0 2 33 16 0 20 11 0 16 0 1 10 0 1 12 0 49 3 32 41 0 16 1 1 13 0 52 2 0 2 33 16 0 20 11 0 16 0 1 13 0 1 14 0 49 3 32 13 0 20 11 0 16 0 1 15 0 1 16 0 49 3 50)} "hs-show!" {:upvalue-count 0 :arity 2 :constants ("dom-get-prop" "tagName" "=" "DIALOG" "not" "dom-has-attr?" "open" "host-call" "showModal" "DETAILS" "dom-set-prop" "opacity" "dom-set-style" "1" "visibility" "visible" "display" "") :bytecode (20 0 0 16 0 1 1 0 48 2 17 2 16 2 1 3 0 52 2 0 2 33 33 0 20 5 0 16 0 1 6 0 48 2 52 4 0 1 33 12 0 16 0 1 8 0 52 7 0 2 32 1 0 2 32 95 0 16 2 1 9 0 52 2 0 2 33 14 0 20 10 0 16 0 1 6 0 3 49 3 32 69 0 16 1 1 11 0 52 2 0 2 33 16 0 20 12 0 16 0 1 11 0 1 13 0 49 3 32 41 0 16 1 1 14 0 52 2 0 2 33 16 0 20 12 0 16 0 1 14 0 1 15 0 49 3 32 13 0 20 12 0 16 0 1 16 0 1 17 0 49 3 50)} {:upvalue-count 0 :arity 1 :constants ("first") :bytecode (16 0 52 0 0 1 50)} {:upvalue-count 0 :arity 1 :constants ("last") :bytecode (16 0 52 0 0 1 50)} "hs-template" {:upvalue-count 0 :arity 1 :constants ("" 0 "len" {:upvalue-count 5 :arity 0 :constants ("<" "nth" "=" "$" "+" 1 "{" 2 {:upvalue-count 3 :arity 2 :constants (">=" "=" "nth" "}" 1 "+" "-" "{") :bytecode (16 0 18 0 52 0 0 2 33 5 0 16 0 32 118 0 18 1 16 0 52 2 0 2 1 3 0 52 1 0 2 33 42 0 16 1 1 4 0 52 1 0 2 33 5 0 16 0 32 22 0 18 2 16 0 1 4 0 52 5 0 2 16 1 1 4 0 52 6 0 2 49 2 32 58 0 18 1 16 0 52 2 0 2 1 7 0 52 1 0 2 33 25 0 18 2 16 0 1 4 0 52 5 0 2 16 1 1 4 0 52 5 0 2 49 2 32 15 0 18 2 16 0 1 4 0 52 5 0 2 16 1 49 2 50)} "slice" "str" "cek-eval" "hs-to-sx" "hs-compile" {:upvalue-count 3 :arity 1 :constants ("<" "nth" ">=" "a" "<=" "z" "A" "Z" "0" "9" "=" "_" "." "+" 1) :bytecode (16 0 18 0 52 0 0 2 6 33 118 0 5 18 1 16 0 52 1 0 2 17 1 16 1 1 3 0 52 2 0 2 6 33 10 0 5 16 1 1 5 0 52 4 0 2 6 34 80 0 5 16 1 1 6 0 52 2 0 2 6 33 10 0 5 16 1 1 7 0 52 4 0 2 6 34 52 0 5 16 1 1 8 0 52 2 0 2 6 33 10 0 5 16 1 1 9 0 52 4 0 2 6 34 24 0 5 16 1 1 11 0 52 10 0 2 6 34 10 0 5 16 1 1 12 0 52 10 0 2 33 16 0 18 2 16 0 1 14 0 52 13 0 2 49 1 32 2 0 16 0 50)}) :bytecode (18 0 18 1 52 0 0 2 33 13 1 18 2 18 0 52 1 0 2 17 0 16 0 1 3 0 52 2 0 2 6 33 16 0 5 18 0 1 5 0 52 4 0 2 18 1 52 0 0 2 33 197 0 18 2 18 0 1 5 0 52 4 0 2 52 1 0 2 1 6 0 52 2 0 2 33 91 0 18 0 1 7 0 52 4 0 2 17 1 51 8 0 0 1 0 2 1 2 17 2 5 16 2 16 1 1 5 0 48 2 17 3 18 2 16 1 16 3 52 9 0 3 17 4 18 3 20 11 0 20 12 0 20 13 0 16 4 48 1 48 1 48 1 52 10 0 2 19 3 5 16 3 1 5 0 52 4 0 2 19 0 5 18 4 49 0 32 78 0 18 0 1 5 0 52 4 0 2 17 1 51 14 0 0 1 0 2 1 2 17 2 5 16 2 16 1 48 1 17 3 18 2 16 1 16 3 52 9 0 3 17 4 18 3 20 11 0 20 12 0 20 13 0 16 4 48 1 48 1 48 1 52 10 0 2 19 3 5 16 3 19 0 5 18 4 49 0 32 27 0 18 3 16 0 52 10 0 2 19 3 5 18 0 1 5 0 52 4 0 2 19 0 5 18 4 49 0 32 1 0 2 50)}) :bytecode (1 0 0 17 1 1 1 0 17 2 16 0 52 2 0 1 17 3 51 3 0 1 2 1 3 1 0 1 1 1 4 17 4 5 16 4 48 0 5 16 1 50)} "hs-make-object" {:upvalue-count 0 :arity 1 :constants ("for-each" {:upvalue-count 1 :arity 1 :constants ("dict-set!" "first" "nth" 1) :bytecode (18 0 16 0 52 1 0 1 16 0 1 3 0 52 2 0 2 52 0 0 3 50)}) :bytecode (65 0 0 17 1 51 1 0 1 1 16 0 52 0 0 2 5 16 1 50)} "hs-method-call" {:upvalue-count 0 :arity 3 :constants ("=" "map" "first" "push" "append!" "filter" "join" "indexOf" {:upvalue-count 2 :arity 2 :constants ("=" "len" 0 -1 "first" "rest" "+" 1) :bytecode (16 0 52 1 0 1 1 2 0 52 0 0 2 33 6 0 1 3 0 32 39 0 16 0 52 4 0 1 18 0 52 0 0 2 33 5 0 16 1 32 19 0 18 1 16 0 52 5 0 1 16 1 1 7 0 52 6 0 2 49 2 50)} 0) :rest-arity 2 :bytecode (16 1 1 1 0 52 0 0 2 33 15 0 16 2 52 2 0 1 16 0 52 1 0 2 32 127 0 16 1 1 3 0 52 0 0 2 33 18 0 16 0 16 2 52 2 0 1 52 4 0 2 5 16 0 32 97 0 16 1 1 5 0 52 0 0 2 33 15 0 16 2 52 2 0 1 16 0 52 5 0 2 32 70 0 16 1 1 6 0 52 0 0 2 33 15 0 16 0 16 2 52 2 0 1 52 6 0 2 32 43 0 16 1 1 7 0 52 0 0 2 33 30 0 16 2 52 2 0 1 17 3 51 8 0 1 3 1 4 17 4 5 16 4 16 0 1 9 0 49 2 32 1 0 2 50)} "hs-beep" {:upvalue-count 0 :arity 1 :constants () :bytecode (16 0 50)} "hs-prop-is" {:upvalue-count 0 :arity 2 :constants ("not" "hs-falsy?" "host-get") :bytecode (20 1 0 16 0 16 1 52 2 0 2 48 1 52 0 0 1 50)} "hs-slice" {:upvalue-count 0 :arity 3 :constants ("nil?" 0 "len" "+" 1 "slice") :bytecode (16 1 52 0 0 1 33 6 0 1 1 0 32 2 0 16 1 17 3 16 2 52 0 0 1 33 9 0 16 0 52 2 0 1 32 9 0 16 2 1 4 0 52 3 0 2 17 4 16 0 16 3 16 4 52 5 0 3 50)} "hs-sorted-by" {:upvalue-count 0 :arity 2 :constants ("map" {:upvalue-count 1 :arity 1 :constants ("list") :bytecode (18 0 16 0 48 1 16 0 52 0 0 2 50)} {:upvalue-count 0 :arity 1 :constants ("nth" 1) :bytecode (16 0 1 1 0 52 0 0 2 50)} "sort" {:upvalue-count 0 :arity 2 :constants ("<" "first") :bytecode (16 0 52 1 0 1 16 1 52 1 0 1 52 0 0 2 33 4 0 3 32 1 0 4 50)}) :bytecode (51 1 0 1 1 16 0 52 0 0 2 17 2 51 2 0 51 4 0 16 2 52 3 0 2 52 0 0 2 50)} "hs-sorted-by-desc" {:upvalue-count 0 :arity 2 :constants ("map" {:upvalue-count 1 :arity 1 :constants ("list") :bytecode (18 0 16 0 48 1 16 0 52 0 0 2 50)} {:upvalue-count 0 :arity 1 :constants ("nth" 1) :bytecode (16 0 1 1 0 52 0 0 2 50)} "sort" {:upvalue-count 0 :arity 2 :constants (">" "first") :bytecode (16 0 52 1 0 1 16 1 52 1 0 1 52 0 0 2 33 4 0 3 32 1 0 4 50)}) :bytecode (51 1 0 1 1 16 0 52 0 0 2 17 2 51 2 0 51 4 0 16 2 52 3 0 2 52 0 0 2 50)} "hs-split-by" {:upvalue-count 0 :arity 2 :constants ("split") :bytecode (16 0 16 1 52 0 0 2 50)} "hs-joined-by" {:upvalue-count 0 :arity 2 :constants ("join") :bytecode (16 1 16 0 52 0 0 2 50)} {:upvalue-count 0 :arity 2 :constants ("map" {:upvalue-count 1 :arity 1 :constants ("list") :bytecode (18 0 16 0 48 1 16 0 52 0 0 2 50)} "sort" "first" {:upvalue-count 1 :arity 3 :constants ("=" "len" 0 "first" {:upvalue-count 2 :arity 1 :constants ("=" "len" 0 "first" "rest") :bytecode (16 0 52 1 0 1 1 2 0 52 0 0 2 33 4 0 2 32 38 0 16 0 52 3 0 1 52 3 0 1 18 0 52 0 0 2 33 9 0 16 0 52 3 0 1 32 10 0 18 1 16 0 52 4 0 1 49 1 50)} "rest" "append" "list" "nth" 1 "filter" {:upvalue-count 1 :arity 1 :constants ("not" "=") :bytecode (16 0 18 0 52 1 0 2 52 0 0 1 50)}) :bytecode (16 0 52 1 0 1 1 2 0 52 0 0 2 33 5 0 16 1 32 66 0 16 0 52 3 0 1 17 3 51 4 0 1 3 1 4 17 4 5 16 4 16 2 48 1 17 5 18 0 16 0 52 5 0 1 16 1 16 5 1 9 0 52 8 0 2 52 7 0 1 52 6 0 2 51 11 0 1 5 16 2 52 10 0 2 49 3 50)} "list") :bytecode (51 1 0 1 1 16 0 52 0 0 2 17 2 20 3 0 16 2 52 0 0 2 52 2 0 1 17 3 51 4 0 1 4 17 4 5 16 4 16 3 52 5 0 0 16 2 49 3 50)} {:upvalue-count 0 :arity 2 :constants ("reverse" "hs-sorted-by") :bytecode (20 1 0 16 0 16 1 48 2 52 0 0 1 50)}) :bytecode (51 1 0 128 0 0 5 51 3 0 128 2 0 5 51 3 0 128 4 0 5 51 6 0 128 5 0 5 51 8 0 128 7 0 5 51 10 0 128 9 0 5 51 12 0 128 11 0 5 51 14 0 128 13 0 5 51 16 0 128 15 0 5 51 18 0 128 17 0 5 51 20 0 128 19 0 5 51 22 0 128 21 0 5 51 24 0 128 23 0 5 51 26 0 128 25 0 5 51 28 0 128 27 0 5 51 30 0 128 29 0 5 51 32 0 128 31 0 5 51 34 0 128 33 0 5 51 36 0 128 35 0 5 51 38 0 128 37 0 5 51 40 0 128 39 0 5 51 42 0 128 41 0 5 51 44 0 128 43 0 5 51 46 0 128 45 0 5 51 48 0 128 47 0 5 51 50 0 128 49 0 5 51 52 0 128 51 0 5 51 54 0 128 53 0 5 51 56 0 128 55 0 5 51 58 0 128 57 0 5 51 60 0 128 59 0 5 51 62 0 128 61 0 5 51 64 0 128 63 0 5 51 66 0 128 65 0 5 51 68 0 128 67 0 5 51 70 0 128 69 0 5 51 72 0 128 71 0 5 51 74 0 128 73 0 5 51 76 0 128 75 0 5 51 78 0 128 77 0 5 51 80 0 128 79 0 5 51 82 0 128 81 0 5 51 84 0 128 83 0 5 51 86 0 128 85 0 5 51 88 0 128 87 0 5 51 90 0 128 89 0 5 51 92 0 128 91 0 5 51 94 0 128 93 0 5 51 96 0 128 95 0 5 51 98 0 128 97 0 5 51 100 0 128 99 0 5 51 102 0 128 101 0 5 51 104 0 128 103 0 5 51 106 0 128 105 0 5 51 108 0 128 107 0 5 51 110 0 128 109 0 5 51 112 0 128 111 0 5 51 114 0 128 113 0 5 51 116 0 128 115 0 5 51 118 0 128 117 0 5 51 119 0 128 53 0 5 51 120 0 128 55 0 5 51 122 0 128 121 0 5 51 124 0 128 123 0 5 51 126 0 128 125 0 5 51 128 0 128 127 0 5 51 130 0 128 129 0 5 51 132 0 128 131 0 5 51 134 0 128 133 0 5 51 136 0 128 135 0 5 51 138 0 128 137 0 5 51 140 0 128 139 0 5 51 141 0 128 133 0 5 51 142 0 128 135 0 50))) + :constants ("hs-each" {:upvalue-count nil :arity nil :constants ("list?" "for-each") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "meta" "host-new" "Object" "hs-on-every" {:upvalue-count nil :arity nil :constants ("dom-listen") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil)} "_hs-on-caller" "host-set!" "type" "onFeature" "feature" "hs-on" {:upvalue-count nil :arity nil :constants ("not" "nil?" "host-get" "host-global" "window" "__hs_current_me" {:upvalue-count nil :arity nil :constants ("not" "hs-ref-eq" "nil?" "host-get" "parentElement" "host-set!" "meta" "caller" "_hs-on-caller" "owner" "=" "exception" "error" "list?" "first" "hs-halt-default" "dom-dispatch" "host-call" "stopPropagation") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "dom-listen" "dom-get-data" "hs-unlisteners" "list" "dom-set-data" "append") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-on-intersection-attach!" {:upvalue-count nil :arity nil :constants ("dict" "dict-set!" "rootMargin" "threshold" {:upvalue-count nil :arity nil :constants (">" "len" nil "nth" "host-get" "isIntersecting" "dom-dispatch" "intersection" "dict" "intersecting" "entry") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "host-new" "IntersectionObserver" "host-call" "observe") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-on-mutation-attach!" {:upvalue-count nil :arity nil :constants ("=" "any" "attributes" "attrs" "childList" "characterData" "dict" "subtree" "dict-set!" "attributeFilter" {:upvalue-count nil :arity nil :constants ("dom-dispatch" "mutation" "dict" "records") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "host-new" "MutationObserver" "host-call" "observe") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-init" {:upvalue-count nil :arity nil :constants () :bytecode (nil nil nil nil nil)} "hs-wait" {:upvalue-count nil :arity nil :constants ("list" io-sleep) :bytecode (nil nil nil nil nil nil nil nil nil nil nil)} "hs-wait-for" {:upvalue-count nil :arity nil :constants ("list" io-wait-event) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-wait-for-or" {:upvalue-count nil :arity nil :constants ("list" io-wait-event) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-settle" {:upvalue-count nil :arity nil :constants ("hs-null-raise!" "not" "nil?" "list" io-settle) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-toggle-class!" {:upvalue-count nil :arity nil :constants ("hs-null-raise!" "not" "nil?" "host-call" "host-get" "classList" "toggle") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-toggle-var-cycle!" {:upvalue-count nil :arity nil :constants ("host-get" "len" {:upvalue-count nil :arity nil :constants (">=" nil "=" "nth" "+" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} nil "host-set!" "=" nil "first" "nth" "mod" "+" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-toggle-between!" {:upvalue-count nil :arity nil :constants ("hs-null-raise!" "not" "nil?" "dom-has-class?" "dom-remove-class" "dom-add-class") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-toggle-style!" {:upvalue-count nil :arity nil :constants ("dom-get-style" "=" "visibility" "hidden" "dom-set-style" "visible" "display" "opacity" "none" "0" "1" "block" "") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-toggle-style-between!" {:upvalue-count nil :arity nil :constants ("dom-get-style" "=" "dom-set-style") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-toggle-style-cycle!" {:upvalue-count nil :arity nil :constants ("dom-get-style" {:upvalue-count nil :arity nil :constants ("empty?" "first" "=" "rest") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "dom-set-style") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-take!" {:upvalue-count nil :arity nil :constants ("list?" "list" "dom-parent" "dom-child-list" "=" "class" ">" "len" nil "nth" "for-each" {:upvalue-count nil :arity nil :constants ("dom-remove-class" "dom-add-class") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "dom-add-class" "dom-remove-class" nil "first" {:upvalue-count nil :arity nil :constants ("not" "=" "dom-set-attr" "dom-remove-attr") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "dom-set-attr" "") :rest-arity nil :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-element?" {:upvalue-count nil :arity nil :constants ("host-get" "nodeType" "__mock_type") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-set-attr!" {:upvalue-count nil :arity nil :constants ("hs-null-raise!" "not" "nil?" "dom-remove-attr" "dom-set-attr") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-toggle-attr!" {:upvalue-count nil :arity nil :constants ("hs-null-raise!" "not" "nil?" "dom-has-attr?" "dom-remove-attr" "dom-set-attr" "") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-toggle-attr-val!" {:upvalue-count nil :arity nil :constants ("=" "dom-get-attr" "dom-remove-attr" "dom-set-attr") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-toggle-attr-between!" {:upvalue-count nil :arity nil :constants ("=" "dom-get-attr" "dom-set-attr") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-toggle-attr-diff!" {:upvalue-count nil :arity nil :constants ("dom-has-attr?" "dom-remove-attr" "dom-set-attr") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-set-inner-html!" {:upvalue-count nil :arity nil :constants ("hs-null-raise!" "not" "nil?" "list?" "join" "" "map" {:upvalue-count nil :arity nil :constants ("str") :bytecode (nil nil nil nil nil nil nil)} "=" "null" "str" "dom-set-inner-html" "hs-boot-subtree!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-set-element!" {:upvalue-count nil :arity nil :constants ("dom-parent" "dom-create-element" "div" "list?" "join" "" "map" {:upvalue-count nil :arity nil :constants ("str") :bytecode (nil nil nil nil nil nil nil)} "dom-set-inner-html" "host-get" "children" ">" "len" nil "first" "host-call" "replaceChild" "hs-boot-subtree!" "hs-set-inner-html!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-put!" {:upvalue-count nil :arity nil :constants ("hs-null-raise!" "not" "nil?" "=" "innerHTML" "list?" "hs-element?" "dom-set-inner-html" "" "host-call" "appendChild" "hs-boot-subtree!" "beforebegin" "before" "host-get" "parentNode" "insertBefore" "dom-insert-adjacent-html" "afterend" "after" "nextSibling" "afterbegin" "start" "append!" nil "dom-prepend" "beforeend" "end" "dom-append") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-add-to!" {:upvalue-count nil :arity nil :constants ("list?" "some" {:upvalue-count nil :arity nil :constants ("=") :bytecode (nil nil nil nil nil nil nil nil nil)} "append" "list" "hs-is-set?" "host-call" "add" "push") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-remove-from!" {:upvalue-count nil :arity nil :constants ("list?" "filter" {:upvalue-count nil :arity nil :constants ("not" "=") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-is-set?" "host-call" "delete" "splice" "indexOf" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-splice-at!" {:upvalue-count nil :arity nil :constants ("list?" "len" "<" nil "+" ">=" "concat" "slice" nil "host-get" "length" "nil?" "host-call" "splice") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-index" {:upvalue-count nil :arity nil :constants ("nil?" "dict?" "get" "list?" "nth" "string?" "host-get") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-put-at!" {:upvalue-count nil :arity nil :constants ("nil?" "list" "list?" "=" "start" "cons" "append" "hs-element?" "hs-put!" "end" "host-call" "push" "unshift") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-dict-without" {:upvalue-count nil :arity nil :constants ("nil?" "dict" "dict?" "for-each" {:upvalue-count nil :arity nil :constants ("not" "=" "dict-set!" "get") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "keys" "host-call" "host-global" "Object" "assign" "Reflect" "deleteProperty") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-set-on!" {:upvalue-count nil :arity nil :constants ("for-each" {:upvalue-count nil :arity nil :constants ("host-set!" "get") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "keys") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-navigate!" {:upvalue-count nil :arity nil :constants ("list" io-navigate) :bytecode (nil nil nil nil nil nil nil nil nil nil nil)} "hs-ask" {:upvalue-count nil :arity nil :constants ("host-global" "window" "host-call" "prompt") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-answer" {:upvalue-count nil :arity nil :constants ("host-global" "window" "host-call" "confirm") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-answer-alert" {:upvalue-count nil :arity nil :constants ("host-global" "window" "host-call" "alert") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-scroll!" {:upvalue-count nil :arity nil :constants ("host-call" "scrollIntoView" "list" "=" "bottom" "dict" "block" "end" "start") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-halt!" {:upvalue-count nil :arity nil :constants ("=" "default" "host-call" "preventDefault" "bubbling" "stopPropagation" "the-event" "not" "list" "hs-halt-default" "hs-return") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-select!" {:upvalue-count nil :arity nil :constants ("host-call" "select" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-get-selection" {:upvalue-count nil :arity nil :constants ("host-global" "window" "host-get" "__test_selection" "nil?" "host-call" "getSelection" "list" "" "toString") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-reset!" {:upvalue-count nil :arity nil :constants ("list?" "for-each" {:upvalue-count nil :arity nil :constants ("hs-reset!") :bytecode (nil nil nil nil nil nil nil nil)} "nil?" "dom-get-prop" "tagName" "=" "FORM" "host-call" "reset" "list" "INPUT" "TEXTAREA" "type" "checkbox" "radio" "dom-set-prop" "checked" "defaultChecked" "value" "defaultValue" "SELECT" "querySelectorAll" "option" {:upvalue-count nil :arity nil :constants ("nil?" "dom-get-prop" "defaultSelected" "value") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} ">" "len" nil "first") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-next" {:upvalue-count nil :arity nil :constants ("=" "*" "dom-next-sibling" {:upvalue-count nil :arity nil :constants ("nil?" "dom-matches?" "dom-next-sibling") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-previous" {:upvalue-count nil :arity nil :constants ("=" "*" "dom-get-prop" "previousElementSibling" {:upvalue-count nil :arity nil :constants ("nil?" "dom-matches?" "dom-get-prop" "previousElementSibling") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "_hs-last-query-sel" "hs-null-raise!" {:upvalue-count nil :arity nil :constants ("nil?" "str" "'" "host-get" "host-global" "window" "_hs_last_query_sel" "target" "' is null" "host-set!" "_hs_null_error") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-empty-raise!" {:upvalue-count nil :arity nil :constants ("nil?" "list?" "=" "len" nil "host-get" "length" "str" "'" "host-global" "window" "_hs_last_query_sel" "target" "' is null" "host-set!" "_hs_null_error") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-query-all-checked" {:upvalue-count nil :arity nil :constants ("hs-query-all" "hs-empty-raise!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-dispatch!" {:upvalue-count nil :arity nil :constants ("hs-null-raise!" "not" "nil?" "dom-dispatch") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-query-all" {:upvalue-count nil :arity nil :constants ("host-set!" "host-global" "window" "_hs_last_query_sel" "dom-query-all" "dom-document") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-query-all-in" {:upvalue-count nil :arity nil :constants ("nil?" "hs-query-all" "host-call" "querySelectorAll") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-list-set" {:upvalue-count nil :arity nil :constants ("append" "take" "cons" "drop" "+" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-to-number" {:upvalue-count nil :arity nil :constants ("number?" "parse-number" "str" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-query-first" {:upvalue-count nil :arity nil :constants ("host-set!" "host-global" "window" "_hs_last_query_sel" "host-call" "document" "querySelector") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-query-last" {:upvalue-count nil :arity nil :constants ("dom-query-all" "dom-body" ">" "len" nil "nth" "-" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-first" {:upvalue-count nil :arity nil :constants ("dom-query-all") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "hs-last" {:upvalue-count nil :arity nil :constants ("dom-query-all" ">" "len" nil "nth" "-" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-repeat-times" {:upvalue-count nil :arity nil :constants ({:upvalue-count nil :arity nil :constants ("<" "not" "+" nil "=" "str" "hs-break" "hs-continue") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-repeat-forever" {:upvalue-count nil :arity nil :constants ({:upvalue-count nil :arity nil :constants ("not" "=" "str" "hs-break" "hs-continue") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-repeat-while" {:upvalue-count nil :arity nil :constants ("not" "hs-repeat-while" "=" "str" "hs-break" "hs-continue") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-repeat-until" {:upvalue-count nil :arity nil :constants ("not" "hs-repeat-until" "=" "str" "hs-break" "hs-continue") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-for-each" {:upvalue-count nil :arity nil :constants ("list?" "nil?" "list" "host-iter?" "host-to-list" "dict?" "dict-has?" "_order" "get" "filter" {:upvalue-count nil :arity nil :constants ("not" "=" "_order") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "keys" {:upvalue-count nil :arity nil :constants ("not" "empty?" "first" "rest" "=" "str" "hs-break" "hs-continue") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-append" {:upvalue-count nil :arity nil :constants ("nil?" "string?" "str" "list?" "some" {:upvalue-count nil :arity nil :constants ("=") :bytecode (nil nil nil nil nil nil nil nil nil)} "append" "list" "hs-is-set?" "host-call" "add" "hs-element?" "dom-insert-adjacent-html" "beforeend" "host-get" "outerHTML") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-append!" {:upvalue-count nil :arity nil :constants ("nil?" "hs-element?" "dom-insert-adjacent-html" "beforeend" "host-get" "outerHTML" "str") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-sender" {:upvalue-count nil :arity nil :constants ("host-get" "detail" "get" "sender") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-host-to-sx" {:upvalue-count nil :arity nil :constants ("nil?" "number?" "string?" "boolean?" "host-get" "_type" "=" "dict" "for-each" {:upvalue-count nil :arity nil :constants ("dict-set!" "hs-host-to-sx" "get") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "keys" "list" "map" "hs-host-to-sx" "host-call" "host-global" "Array" "isArray" "length" nil {:upvalue-count nil :arity nil :constants ("append" "list" "hs-host-to-sx" "host-get" "+" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "range" {:upvalue-count nil :arity nil :constants ("dict-set!" "hs-host-to-sx" "host-get") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "Object") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-fetch-impl" {:upvalue-count nil :arity nil :constants ("nil?" "text" "=" "json" "JSON" "Object" "html" "HTML" "response" "Response" "Text" "number" "Number" "host-get" "meta" "owner" "dom-dispatch" "hyperscript:beforeFetch" "url" "list" "io-fetch" "_network-error" "message" "Network error" "not" "ok" "str" "HTTP Error: " "status" "hs-host-to-sx" "io-parse-json" "hs-to-number" "io-parse-text") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-fetch" {:upvalue-count nil :arity nil :constants ("hs-fetch-impl") :bytecode (nil nil nil nil nil nil nil nil nil nil nil)} "hs-fetch-no-throw" {:upvalue-count nil :arity nil :constants ("hs-fetch-impl") :bytecode (nil nil nil nil nil nil nil nil nil nil nil)} "hs-json-escape" {:upvalue-count nil :arity nil :constants ("str" "\"" "" nil "string-length" {:upvalue-count nil :arity nil :constants ("<" "substring" "+" nil "=" "\\" "str" "\\\\" "\"" "\\\"" "\n" "\\n" "\r" "\\r" "\t" "\\t") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-json-stringify" {:upvalue-count nil :arity nil :constants ("nil?" "null" "=" "true" "false" "number?" "str" "string?" "hs-json-escape" "list?" "[" "join" "," "map" "hs-json-stringify" "]" "dict?" "get" "_order" "filter" {:upvalue-count nil :arity nil :constants ("not" "=" "_order") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "keys" "{" {:upvalue-count nil :arity nil :constants ("not" "=" "") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "_order" "" "str" "hs-json-escape" ":" "hs-json-stringify" "get") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "}") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "_hs-custom-conversions" "_hs-dynamic-converters" "list" "hs-set-conversion!" {:upvalue-count nil :arity nil :constants ("dict-set!" "_hs-custom-conversions") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-clear-conversion!" {:upvalue-count nil :arity nil :constants ("dict-set!" "_hs-custom-conversions") :bytecode (nil nil nil nil nil nil nil nil nil nil nil)} "hs-add-dynamic-converter!" {:upvalue-count nil :arity nil :constants ("append" "_hs-dynamic-converters" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-pop-dynamic-converter!" {:upvalue-count nil :arity nil :constants ("len" "_hs-dynamic-converters" ">" nil "slice" "-" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-clear-converters!" {:upvalue-count nil :arity nil :constants ("_hs-custom-conversions" "list" "_hs-dynamic-converters") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-coerce" {:upvalue-count nil :arity nil :constants ("=" "Int" "floor" "+" nil "Integer" "Float" "Number" "String" "list?" "join" "," "map" {:upvalue-count nil :arity nil :constants ("str") :bytecode (nil nil nil nil nil nil nil)} "str" "Bool" "not" "hs-falsy?" "Boolean" "Array" "list" "HTML" "" {:upvalue-count nil :arity nil :constants ("hs-element?" "host-get" "outerHTML" "str") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-element?" "host-get" "outerHTML" "JSON" "string?" "hs-host-to-sx" "json-parse" "nil?" "_json" "io-parse-json" "dict?" "Object" "JSONString" "hs-json-stringify" "FormEncoded" "get" "_order" "filter" {:upvalue-count nil :arity nil :constants ("not" "=" "_order") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "keys" "&" {:upvalue-count nil :arity nil :constants ("not" "=" "") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("=" "_order" "" "get" "list?" "join" "&" "map" {:upvalue-count nil :arity nil :constants ("str" "=") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil)} "str") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "Fixed" "Fixed:" "starts-with?" ">" "string-length" nil "substring" "pow" nil "/" "*" 0.5 "Selector" "Fragment" "host-call" "dom-document" "createDocumentFragment" "for-each" {:upvalue-count nil :arity nil :constants ("hs-element?" "dom-append" "dom-create-element" "div" "dom-set-inner-html" "str" "for-each" {:upvalue-count nil :arity nil :constants ("dom-append") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "host-get" "children") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "Values" "hs-as-values" "Keys" "sort" "Entries" "dict-has?" {:upvalue-count nil :arity nil :constants ("list" "get") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "Reversed" "reverse" "Unique" "reduce" {:upvalue-count nil :arity nil :constants ("some" {:upvalue-count nil :arity nil :constants ("=") :bytecode (nil nil nil nil nil nil nil nil nil)} "append" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "Flattened" "Flat" {:upvalue-count nil :arity nil :constants ("list?" "append" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "Set" "host-new" {:upvalue-count nil :arity nil :constants ("host-call" "add") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil)} "Map" {:upvalue-count nil :arity nil :constants ("host-call" "set" "get") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "Date" "_hs-custom-conversions" {:upvalue-count nil :arity nil :constants ("not" "nil?") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "_hs-dynamic-converters") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-gather-form-nodes" {:upvalue-count nil :arity nil :constants ("list" {:upvalue-count nil :arity nil :constants ("host-get" "tagName" "=" "INPUT" "SELECT" "TEXTAREA" "append" "list" "children" "not" "nil?" "list?" "len" {:upvalue-count nil :arity nil :constants ("<" "nth" "+" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} nil "length" {:upvalue-count nil :arity nil :constants ("<" "host-get" "+" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-values-from-nodes" {:upvalue-count nil :arity nil :constants ("reduce" "hs-values-absorb" "dict") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-value-of-node" {:upvalue-count nil :arity nil :constants ("host-get" "tagName" "type" "=" "SELECT" "multiple" "hs-select-multi-values" "selectedIndex" "options" "value" "not" "nil?" "" ">=" nil "list?" "nth" "checkbox" "radio" "checked") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-select-multi-values" {:upvalue-count nil :arity nil :constants ("host-get" "options" "list" "nil?" "not" "list?" "len" {:upvalue-count nil :arity nil :constants ("<" "nth" "host-get" "selected" "append" "list" "value" "+" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-values-absorb" {:upvalue-count nil :arity nil :constants ("host-get" "name" "nil?" "=" "" "hs-value-of-node" "has-key?" "get" "list?" "dict-set!" "append" "list" "_order" "not" "some" {:upvalue-count nil :arity nil :constants ("=") :bytecode (nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-as-values" {:upvalue-count nil :arity nil :constants ("nil?" "dict" "list?" "hs-values-from-nodes" "host-get" "tagName" "=" "INPUT" "SELECT" "TEXTAREA" "list" "hs-gather-form-nodes") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-default?" {:upvalue-count nil :arity nil :constants ("nil?" "string?" "=" "") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-array-set!" {:upvalue-count nil :arity nil :constants ("list?" "set-nth!" "host-set!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-add" {:upvalue-count nil :arity nil :constants ("list?" "append" "list" "cons" "string?" "str" "+") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-make" {:upvalue-count nil :arity nil :constants ("hs-make-element?" "hs-make-element" "host-global" "nil?" "=" "Object" "dict" "Array" "list" "Set" "host-new" "Map" "apply" "cons") :rest-arity nil :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-make-element?" {:upvalue-count nil :arity nil :constants ("string?" ">" "len" nil "substring" nil "=" "." "#" "contains?" "hs-lower-letter?" "not" "any-upper?") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-lower-letter?" {:upvalue-count nil :arity nil :constants (">=" "a" "<=" "z") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "any-upper?" {:upvalue-count nil :arity nil :constants ("len" {:upvalue-count nil :arity nil :constants (">=" "substring" "+" nil "A" "<=" "Z") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-make-element" {:upvalue-count nil :arity nil :constants ("hs-parse-element-selector" "get" "tag" "id" "classes" "dom-create-element" "=" "" "div" "not" "dom-set-attr" "for-each" {:upvalue-count nil :arity nil :constants ("dom-add-class") :bytecode (nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-parse-element-selector" {:upvalue-count nil :arity nil :constants ("len" "" "list" "tag" {:upvalue-count nil :arity nil :constants ("=" "tag" "id" "class" "append" "list" "") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("<" "substring" "+" nil "=" "." "class" "#" "id" "str") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} nil "classes" "id") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-install" {:upvalue-count nil :arity nil :constants ("me") :bytecode (nil nil nil nil nil nil nil nil)} "hs-measure" {:upvalue-count nil :arity nil :constants ("hs-null-raise!" "not" "nil?" "list" io-measure) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-transition" {:upvalue-count nil :arity nil :constants ("hs-null-raise!" "not" "nil?" "str" "data-hs-transition-" "dom-get-attr" "dom-set-attr" "dom-get-style" "=" "initial" "dom-set-style" "transition" " " "/" nil "s" "hs-settle") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-transition-from" {:upvalue-count nil :arity nil :constants ("dom-set-style" "str" "transition" " " "/" nil "s" "hs-settle") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-type-check" {:upvalue-count nil :arity nil :constants ("nil?" "=" "Number" "number?" "String" "string?" "Boolean" "Array" "list?" "Object" "dict?" "Element" "host-typeof" "element" "Node" "text" "downcase") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-type-assert" {:upvalue-count nil :arity nil :constants ("hs-type-check" "str" "Typecheck failed! expected ") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-type-assert-strict" {:upvalue-count nil :arity nil :constants ("nil?" "str" "Typecheck failed! expected " " but got nil" "hs-type-assert") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-type-check-strict" {:upvalue-count nil :arity nil :constants ("nil?" "hs-type-check") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-strict-eq" {:upvalue-count nil :arity nil :constants ("=" "type-of") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-id=" {:upvalue-count nil :arity nil :constants ("=" "host-typeof" "element" "hs-ref-eq") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-eq-ignore-case" {:upvalue-count nil :arity nil :constants ("=" "downcase" "str") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-starts-with?" {:upvalue-count nil :arity nil :constants ("nil?" "starts-with?" "str") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-ends-with?" {:upvalue-count nil :arity nil :constants ("nil?" "ends-with?" "str") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-scoped-set!" {:upvalue-count nil :arity nil :constants ("not" "=" "hs-scoped-get" "dom-set-data" "str" "hs-local-" "hs-scoped-fire-watchers!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "_hs-scoped-watchers" "hs-scoped-watch!" {:upvalue-count nil :arity nil :constants ("cons" "list" "_hs-scoped-watchers") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-scoped-fire-watchers!" {:upvalue-count nil :arity nil :constants ("for-each" {:upvalue-count nil :arity nil :constants ("=" "nth" nil nil nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "_hs-scoped-watchers") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-scoped-get" {:upvalue-count nil :arity nil :constants ("dom-get-data" "str" "hs-local-") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-precedes?" {:upvalue-count nil :arity nil :constants ("nil?" "dict?" "host-call" "compareDocumentPosition" "number?" "not" "=" nil "mod" "/" nil nil "<" "str") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-follows?" {:upvalue-count nil :arity nil :constants ("nil?" ">" "str") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-starts-with-ic?" {:upvalue-count nil :arity nil :constants ("starts-with?" "downcase") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-ends-with-ic?" {:upvalue-count nil :arity nil :constants ("ends-with?" "downcase") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-matches-ignore-case?" {:upvalue-count nil :arity nil :constants ("string?" "contains?" "downcase" "str") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-contains-ignore-case?" {:upvalue-count nil :arity nil :constants ("contains?" "downcase" "str") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-falsy?" {:upvalue-count nil :arity nil :constants ("nil?" "=" "string?" "" "list?" "len" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-matches?" {:upvalue-count nil :arity nil :constants ("string?" "=" ".*" "string-contains?" "host-typeof" "element" "host-call" "matches") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-contains?" {:upvalue-count nil :arity nil :constants ("nil?" "string?" "string-contains?" "str" "list?" "list" "filter" {:upvalue-count nil :arity nil :constants ("hs-contains?") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "=" "len" nil "first" "hs-contains?" "rest") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-in?" {:upvalue-count nil :arity nil :constants ("nil?" "list" "list?" "filter" {:upvalue-count nil :arity nil :constants ("hs-contains?") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "hs-contains?") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-in-bool?" {:upvalue-count nil :arity nil :constants ("not" "hs-falsy?" "hs-in?") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-is" {:upvalue-count nil :arity nil :constants ("dict?" "some" {:upvalue-count nil :arity nil :constants ("=") :bytecode (nil nil nil nil nil nil nil nil nil)} "keys" "not" "hs-falsy?" "get" "cek-try" "list?" "=" "first" ok "nth" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "precedes?" "hs-empty?" {:upvalue-count nil :arity nil :constants ("nil?" "string?" "=" "len" nil "list?" "dict?" "keys") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-empty-like" {:upvalue-count nil :arity nil :constants ("list?" "list" "dict?" "dict" "hs-is-set?" "host-new" "Set" "hs-is-map?" "Map" "string?" "" "nil?") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-empty-target!" {:upvalue-count nil :arity nil :constants ("list?" "for-each" {:upvalue-count nil :arity nil :constants ("hs-empty-target!") :bytecode (nil nil nil nil nil nil nil nil)} "nil?" "dom-get-prop" "tagName" "=" "INPUT" "TEXTAREA" "type" "checkbox" "radio" "dom-set-prop" "checked" "value" "" "FORM" "host-call" "querySelectorAll" "input, textarea, select" "dom-set-inner-html") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-morph-char" {:upvalue-count nil :arity nil :constants ("<" nil ">=" "string-length" "nth") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-morph-index-from" {:upvalue-count nil :arity nil :constants ("index-of" "substring" "string-length" "<" nil nil "+") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-morph-sws" {:upvalue-count nil :arity nil :constants ("hs-morph-char" "hs-ws?" "hs-morph-sws" "+" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-morph-read-until" {:upvalue-count nil :arity nil :constants ({:upvalue-count nil :arity nil :constants ("hs-morph-char" "<" "index-of" nil "+" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "list" "substring") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-morph-parse-attrs" {:upvalue-count nil :arity nil :constants ("hs-morph-sws" "hs-morph-char" "nil?" "list" "=" ">" "+" nil "/" nil "hs-morph-read-until" " \t\n=/>" "first" "nth" "\"" "hs-morph-index-from" "hs-morph-parse-attrs" "append" "substring" "'" " \t\n/>" "") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-morph-parse-element" {:upvalue-count nil :arity nil :constants ("hs-morph-sws" "not" "=" "hs-morph-char" "<" "hs-morph-read-until" "+" nil " \t\n/>" "first" "nth" "hs-morph-parse-attrs" "list" nil "children" "end" "tag" "type" "element" "attrs" "hs-morph-parse-children") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-morph-parse-children" {:upvalue-count nil :arity nil :constants ("hs-morph-char" "nil?" "list" "=" "<" "+" nil "/" "hs-morph-index-from" ">" "hs-morph-parse-element" "hs-morph-parse-children" "get" "end" "append" "hs-morph-read-until" "nth" "text" "first" "type") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-morph-apply-attrs" {:upvalue-count nil :arity nil :constants ("for-each" {:upvalue-count nil :arity nil :constants ("first" "nth" nil "=" "class" "for-each" {:upvalue-count nil :arity nil :constants (">" "string-length" nil "dom-add-class") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "split" " " "id" "dom-set-attr") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-morph-build-children" {:upvalue-count nil :arity nil :constants ("=" "len" nil nil "get" "first" "type" "text" "dom-set-inner-html" "for-each" {:upvalue-count nil :arity nil :constants ("hs-morph-build-child") :bytecode (nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-morph-build-child" {:upvalue-count nil :arity nil :constants ("=" "get" "type" "element" "dom-create-element" "tag" "hs-morph-apply-attrs" "attrs" "hs-morph-build-children" "children" "dom-append" "hs-activate!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-morph!" {:upvalue-count nil :arity nil :constants ("hs-morph-parse-element" nil "hs-morph-apply-attrs" "get" "attrs" "dom-set-inner-html" "" "hs-morph-build-children" "children") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-open!" {:upvalue-count nil :arity nil :constants ("dom-get-prop" "tagName" "=" "DIALOG" "host-call" "showModal" "dom-set-attr" "open" "" "dom-set-prop") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-close!" {:upvalue-count nil :arity nil :constants ("dom-get-prop" "tagName" "=" "DIALOG" "host-call" "close" "removeAttribute" "open" "dom-set-prop") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "_hs-hide-strategies" "dict" "_hs-default-hide-strategy" "hs-set-hide-strategies!" {:upvalue-count nil :arity nil :constants ("for-each" {:upvalue-count nil :arity nil :constants ("dict-set!" "_hs-hide-strategies" "get") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "keys") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-set-default-hide-strategy!" {:upvalue-count nil :arity nil :constants ("_hs-default-hide-strategy") :bytecode (nil nil nil nil nil nil)} "_hs-resolve-strategy" {:upvalue-count nil :arity nil :constants ("=" "display" "_hs-default-hide-strategy") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-hide-one!" {:upvalue-count nil :arity nil :constants ("_hs-resolve-strategy" "split" ":" "first" ">" "len" nil "nth" "not" "=" "display" "opacity" "visibility" "hidden" "class-hidden" "class-invisible" "class-opacity" "details" "dialog" "dict-has?" "_hs-hide-strategies" "get" "hide" "dom-get-prop" "tagName" "DIALOG" "dom-has-attr?" "open" "host-call" "close" "DETAILS" "dom-set-prop" "dom-set-style" "0" "dom-set-attr" "" "dom-add-class" "invisible" "opacity-0" "none") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-hide!" {:upvalue-count nil :arity nil :constants ("hs-empty-raise!" "list?" "for-each" {:upvalue-count nil :arity nil :constants ("hs-hide-one!") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "hs-hide-one!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-show-one!" {:upvalue-count nil :arity nil :constants ("_hs-resolve-strategy" "split" ":" "first" ">" "len" nil "nth" "not" "=" "display" "opacity" "visibility" "hidden" "class-hidden" "class-invisible" "class-opacity" "details" "dialog" "dict-has?" "_hs-hide-strategies" "get" "show" "dom-get-prop" "tagName" "DIALOG" "dom-has-attr?" "open" "host-call" "showModal" "DETAILS" "dom-set-prop" "dom-set-style" "1" "visible" "dom-remove-attr" "dom-remove-class" "invisible" "opacity-0" "block") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-show!" {:upvalue-count nil :arity nil :constants ("hs-empty-raise!" "list?" "for-each" {:upvalue-count nil :arity nil :constants ("hs-show-one!") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "hs-show-one!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-show-when!" {:upvalue-count nil :arity nil :constants ("list?" "list" "for-each" {:upvalue-count nil :arity nil :constants ("hs-show-one!" "append!" "hs-hide-one!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-hide-when!" {:upvalue-count nil :arity nil :constants ("list?" "list" "for-each" {:upvalue-count nil :arity nil :constants ("hs-hide-one!" "append!" "hs-show-one!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("first") :bytecode (nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("last") :bytecode (nil nil nil nil nil nil nil)} "hs-template" {:upvalue-count nil :arity nil :constants ("" nil "len" {:upvalue-count nil :arity nil :constants ("<" "nth" "=" "$" "+" nil "{" nil {:upvalue-count nil :arity nil :constants (">=" "=" "nth" "}" nil "+" "-" "{") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "slice" "str" "cek-eval" "hs-to-sx" "hs-compile" {:upvalue-count nil :arity nil :constants ("<" "nth" ">=" "a" "<=" "z" "A" "Z" "0" "9" "=" "_" "." "+" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-make-object" {:upvalue-count nil :arity nil :constants ("for-each" {:upvalue-count nil :arity nil :constants ("first" "dict-set!" "nth" nil "_order" "append" "get" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-strip-order-deep" {:upvalue-count nil :arity nil :constants ("dict?" "dict" "for-each" {:upvalue-count nil :arity nil :constants ("not" "=" "_order" "dict-set!" "hs-strip-order-deep" "get") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "filter" {:upvalue-count nil :arity nil :constants ("not" "=" "_order") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "keys" "list?" "map" "hs-strip-order-deep") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-method-call" {:upvalue-count nil :arity nil :constants ("=" "map" "first" "push" "append!" "filter" "join" "indexOf" {:upvalue-count nil :arity nil :constants ("=" "len" nil nil "first" "rest" "+" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} nil "host-get" "callable?" "apply" "host-call" "cons") :rest-arity nil :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-beep" {:upvalue-count nil :arity nil :constants () :bytecode (nil nil nil)} "hs-prop-is" {:upvalue-count nil :arity nil :constants ("not" "hs-falsy?" "host-get") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-slice" {:upvalue-count nil :arity nil :constants ("nil?" "not" "list?" nil "len" "+" nil "slice") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-pick-first" {:upvalue-count nil :arity nil :constants ("nil?" nil "string?" "slice" nil "list?") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-pick-last" {:upvalue-count nil :arity nil :constants ("nil?" "string?" "len" "list?" nil "max" "-" "slice") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-pick-random" {:upvalue-count nil :arity nil :constants ("nil?" "string?" "len" "list?" nil "=" "list" "nth" "max" ">" "slice") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-pick-items" {:upvalue-count nil :arity nil :constants ("nil?" "string?" "len" "list?" nil "=" "hs-pick-start" "hs-pick-end" "number?" "<" "max" "+" "slice") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-pick-match" {:upvalue-count nil :arity nil :constants ("nil?" "regex-match" "hs-pick-regex-pattern") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-pick-regex-ci-char" {:upvalue-count nil :arity nil :constants ("lower" "upper" "=" "str" "[" "]") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-pick-regex-ci" {:upvalue-count nil :arity nil :constants ("len" "" nil {:upvalue-count nil :arity nil :constants () :bytecode (nil nil)} {:upvalue-count nil :arity nil :constants (">=" "char-at" "=" "\\" "str" "+" nil "<" "hs-pick-regex-ci-char") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-pick-regex-pattern" {:upvalue-count nil :arity nil :constants ("nil?" "" "list?" "nth" nil nil "string-contains?" "i" "hs-pick-regex-ci") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-pick-matches" {:upvalue-count nil :arity nil :constants ("nil?" "hs-pick-regex-pattern" "regex-find-all" "map" {:upvalue-count nil :arity nil :constants ("list") :bytecode (nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-sorted-by" {:upvalue-count nil :arity nil :constants ("map" {:upvalue-count nil :arity nil :constants ("list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("nth" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil)} "sort" {:upvalue-count nil :arity nil :constants ("<" "first") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-sorted-by-desc" {:upvalue-count nil :arity nil :constants ("map" {:upvalue-count nil :arity nil :constants ("list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("nth" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil)} "sort" {:upvalue-count nil :arity nil :constants (">" "first") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-split-by" {:upvalue-count nil :arity nil :constants ("nil?" "split") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-joined-by" {:upvalue-count nil :arity nil :constants ("nil?" "list?" "join" "map" {:upvalue-count nil :arity nil :constants ("nil?" "" "str") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("not" "list?" "sort" {:upvalue-count nil :arity nil :constants ("nil?" "not" "<") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("map" {:upvalue-count nil :arity nil :constants ("list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil)} "sort" "first" {:upvalue-count nil :arity nil :constants ("=" "len" nil "first" {:upvalue-count nil :arity nil :constants ("=" "len" nil "first" "rest") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "rest" "append" "list" "nth" nil "filter" {:upvalue-count nil :arity nil :constants ("not" "=") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("reverse" "hs-sorted-by") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-dom-has-var?" {:upvalue-count nil :arity nil :constants ("nil?" "host-get" "__hs_vars" "host-call" "hasOwnProperty") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-dom-get-var-raw" {:upvalue-count nil :arity nil :constants ("host-get" "__hs_vars" "nil?") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-dom-set-var-raw!" {:upvalue-count nil :arity nil :constants ("not" "hs-dom-has-var?" "=" "hs-dom-get-var-raw" "nil?" "host-get" "__hs_vars" "host-set!" "host-new" "Object" "hs-dom-fire-watchers!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-dom-resolve-start" {:upvalue-count nil :arity nil :constants ("nil?" "dom-get-attr" "dom-scope" "=" "" "isolated" "starts-with?" "closest " "dom-closest" "slice" nil "len" "parent of " nil "dom-parent") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-dom-walk" {:upvalue-count nil :arity nil :constants ("nil?" "hs-dom-has-var?" "hs-dom-get-var-raw" "=" "dom-get-attr" "dom-scope" "isolated" "hs-dom-walk" "dom-parent") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-dom-find-owner" {:upvalue-count nil :arity nil :constants ("nil?" "hs-dom-has-var?" "=" "dom-get-attr" "dom-scope" "isolated" "hs-dom-find-owner" "dom-parent") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-dom-get" {:upvalue-count nil :arity nil :constants ("hs-dom-walk" "hs-dom-resolve-start") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-dom-set!" {:upvalue-count nil :arity nil :constants ("hs-dom-resolve-start" "hs-dom-find-owner" "hs-dom-set-var-raw!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "_hs-dom-watchers" "hs-dom-watch!" {:upvalue-count nil :arity nil :constants ("cons" "list" "_hs-dom-watchers") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-dom-fire-watchers!" {:upvalue-count nil :arity nil :constants ("for-each" {:upvalue-count nil :arity nil :constants ("=" "nth" nil "hs-dom-is-ancestor?" nil nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "_hs-dom-watchers") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-null-error!" {:upvalue-count nil :arity nil :constants ("str" "'" "' is null") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-named-target" {:upvalue-count nil :arity nil :constants ("nil?" "hs-null-error!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-named-target-list" "hs-query-named-all" {:upvalue-count nil :arity nil :constants ("hs-query-all" "nil?" "list?" "=" "len" nil "string?" ">" "substring" nil "#" "hs-null-error!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-dom-is-ancestor?" {:upvalue-count nil :arity nil :constants ("nil?" "=" "hs-dom-is-ancestor?" "dom-parent") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-win-call" {:upvalue-count nil :arity nil :constants ("host-get" "host-global" "window" "host-call-fn-raising" "=" "__hs_js_throw__" "host-take-js-throw" "__hs_async_error__" "host-typeof" "promise" "host-promise-state" "ok" "host-set!" "__hs_async_error" "value" "str" "'" "' is null" "_hs_null_error") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-source-for" {:upvalue-count nil :arity nil :constants ("substring" "get" "src" "start" "end") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-line-for" {:upvalue-count nil :arity nil :constants ("split" "get" "src" "\n" "-" "line" nil "<" "len" "nth" "") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-node-get" {:upvalue-count nil :arity nil :constants ("get" "fields") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-src" {:upvalue-count nil :arity nil :constants ("hs-source-for" "hs-parse-ast") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-src-at" {:upvalue-count nil :arity nil :constants ({:upvalue-count nil :arity nil :constants ("nil?" "=" "len" nil "hs-node-get" "first" "rest") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-source-for" "hs-parse-ast") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-line-at" {:upvalue-count nil :arity nil :constants ({:upvalue-count nil :arity nil :constants ("nil?" "=" "len" nil "hs-node-get" "first" "rest") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-line-for" "hs-parse-ast") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-js-exec" {:upvalue-count nil :arity nil :constants ("host-new-function" "host-call-fn" "=" "host-typeof" "promise" "host-promise-state" "host-get" "ok" "value") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-raw->api-token" {:upvalue-count nil :arity nil :constants ("dict-get" "type" "value" "=" "ident" "IDENTIFIER" "op" "keyword" "number" "NUMBER" "string" "STRING" "class" "str" "." "CLASS_REF" "id" "#" "ID_REF" "attr" "ATTRIBUTE_REF" "style" "STYLE_REF" "selector" "QUERY_REF" "eof" "<<>>" "EOF" "paren-open" "L_PAREN" "paren-close" "R_PAREN" "bracket-open" "L_BRACKET" "bracket-close" "R_BRACKET" "brace-open" "L_BRACE" "brace-close" "R_BRACE" "comma" "COMMA" "dot" "PERIOD" "colon" "COLON" "+" "PLUS" "-" "MINUS" "*" "MULTIPLY" "/" "SLASH" "!" "EXCLAMATION" "?" "QUESTION" "POUND" "&" "AMPERSAND" "EQUALS" "<" "L_ANG" ">" "R_ANG" "<=" "LTE_ANG" ">=" "GTE_ANG" "==" "EQ" "===" "EQQ" ".." "PERIOD_PERIOD" "") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-eof-sentinel" "value" "<<>>" "EOF" "op" "hs-tokens-of" {:upvalue-count nil :arity nil :constants ("some" {:upvalue-count nil :arity nil :constants ("equal?" "template") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "hs-tokenize-template" "hs-tokenize" "pos" nil "list" "filter" {:upvalue-count nil :arity nil :constants ("not" "=" "dict-get" "type" "EOF") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "map" "hs-raw->api-token" "source") :rest-arity nil :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-stream-token" {:upvalue-count nil :arity nil :constants ("dict-get" "list" "len" {:upvalue-count nil :arity nil :constants (">=" "hs-eof-sentinel" "nth" "=" "dict-get" "type" "whitespace" "+" nil nil "-") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "pos") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-stream-consume" {:upvalue-count nil :arity nil :constants ("dict-get" "list" "len" {:upvalue-count nil :arity nil :constants (">=" "=" "dict-get" "nth" "type" "whitespace" "+" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "pos" ">=" "hs-eof-sentinel" "nth" "not" "=" "type" "EOF" "dict-set!" "+" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-stream-has-more" {:upvalue-count nil :arity nil :constants ("not" "=" "dict-get" "hs-stream-token" nil "type" "EOF") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-token-type" {:upvalue-count nil :arity nil :constants ("dict-get" "type") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "hs-token-value" {:upvalue-count nil :arity nil :constants ("dict-get" "value") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "hs-token-op?" {:upvalue-count nil :arity nil :constants ("dict-get" "op") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "hs-try-json-parse" {:upvalue-count nil :arity nil :constants ("string?" "json-parse") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-socket-normalise-url" {:upvalue-count nil :arity nil :constants ("starts-with?" "ws://" "wss://" "host-get" "host-global" "location" "protocol" "host" "=" "https:" "str") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-socket-bind-name!" {:upvalue-count nil :arity nil :constants ("host-global" "window" "=" "len" nil "host-set!" "first" "nil?" "host-get" "host-new" "Object" "nth") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-socket-resolve-rpc!" {:upvalue-count nil :arity nil :constants ("host-get" "iid" "not" "nil?" "_pending" "host-set!" "throw" "host-call-fn" "reject" "list" "resolve" "return") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "hs-socket-register!" {:upvalue-count nil :arity nil :constants ("hs-socket-normalise-url" "host-new" "Object" "host-set!" "_url" "_timeout" "nil?" nil "_pending" "_closed" "WebSocket" "_ws" "host-callback" {:upvalue-count nil :arity nil :constants ("hs-try-json-parse" "host-get" "data" "not" "nil?" "iid" "hs-socket-resolve-rpc!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "onmessage" "_onmessage_handler" "onclose" {:upvalue-count nil :arity nil :constants ("host-set!" "_closed") :bytecode (nil nil nil nil nil nil nil nil nil nil nil)} "host-call-fn" "host-global" "_hsSetupSocket" "list" "hs-socket-bind-name!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil))) diff --git a/shared/static/wasm/sx/hs-worker.sx b/shared/static/wasm/sx/hs-worker.sx new file mode 100644 index 00000000..14718ce6 --- /dev/null +++ b/shared/static/wasm/sx/hs-worker.sx @@ -0,0 +1,19 @@ +;; lib/hyperscript/plugins/worker.sx — Worker plugin (stub) +;; +;; Phase 1 of the worker plugin: the registration formerly inlined in +;; lib/hyperscript/parser.sx (E39 stub) moves here. Behaviour is +;; identical — `worker MyWorker ...` raises a helpful error directing +;; users to the full plugin (not yet implemented). +;; +;; Phase 2 (future) replaces this stub with parse-worker-feat, a +;; compiler entry, hs-worker-define!, and the postMessage-based +;; method dispatch documented in plans/designs/hs-plugin-system.md §4a. + +(define hs-worker-loaded? true) + +(hs-register-feature! + "worker" + (fn + (ctx) + (error + "worker plugin is not installed — see https://hyperscript.org/features/worker"))) diff --git a/shared/static/wasm/sx/hs-worker.sxbc b/shared/static/wasm/sx/hs-worker.sxbc new file mode 100644 index 00000000..e95a654a --- /dev/null +++ b/shared/static/wasm/sx/hs-worker.sxbc @@ -0,0 +1,3 @@ +(sxbc 1 "857de8641ad2e912" + (code + :constants ("hs-worker-loaded?" "hs-register-feature!" "worker" {:upvalue-count nil :arity nil :constants ("error" "worker plugin is not installed — see https://hyperscript.org/features/worker") :bytecode (nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil))) diff --git a/shared/static/wasm/sx/module-manifest.json b/shared/static/wasm/sx/module-manifest.json index 21108997..1b1463b1 100644 --- a/shared/static/wasm/sx/module-manifest.json +++ b/shared/static/wasm/sx/module-manifest.json @@ -946,9 +946,12 @@ "hs-ident-start?", "hs-ident-char?", "hs-ws?", + "hs-hex-digit?", + "hs-hex-val", "hs-keywords", "hs-keyword?", - "hs-tokenize" + "hs-tokenize", + "hs-tokenize-template" ] }, "hs-parser": { @@ -958,7 +961,9 @@ ], "exports": [ "hs-parse", - "hs-compile" + "hs-span-mode", + "hs-compile", + "hs-parse-ast" ] }, "hs-compiler": { @@ -969,6 +974,7 @@ ], "exports": [ "hs-to-sx", + "hs-receiver-selector", "hs-to-sx-from-source" ] }, @@ -981,30 +987,50 @@ ], "exports": [ "hs-each", + "meta", + "hs-on-every", + "_hs-on-caller", "hs-on", "hs-on-every", + "hs-on-intersection-attach!", + "hs-on-mutation-attach!", "hs-init", "hs-wait", - "hs-wait-for", "hs-settle", "hs-toggle-class!", + "hs-toggle-var-cycle!", "hs-toggle-between!", "hs-toggle-style!", "hs-toggle-style-between!", "hs-toggle-style-cycle!", "hs-take!", - "hs-put!", "hs-add-to!", "hs-remove-from!", + "hs-splice-at!", + "hs-index", + "hs-put-at!", + "hs-dict-without", "hs-set-on!", "hs-navigate!", + "hs-ask", + "hs-answer", + "hs-answer-alert", "hs-scroll!", "hs-halt!", "hs-select!", + "hs-get-selection", "hs-reset!", "hs-next", "hs-previous", + "_hs-last-query-sel", + "hs-null-raise!", + "hs-empty-raise!", + "hs-query-all-checked", + "hs-dispatch!", "hs-query-all", + "hs-query-all-in", + "hs-list-set", + "hs-to-number", "hs-query-first", "hs-query-last", "hs-first", @@ -1014,44 +1040,150 @@ "hs-repeat-while", "hs-repeat-until", "hs-for-each", + "hs-sender", + "hs-host-to-sx", + "hs-fetch-impl", "hs-fetch", + "hs-fetch-no-throw", + "hs-json-escape", + "hs-json-stringify", "hs-coerce", + "hs-gather-form-nodes", + "hs-values-from-nodes", + "hs-value-of-node", + "hs-select-multi-values", + "hs-values-absorb", + "hs-as-values", + "hs-default?", + "hs-array-set!", "hs-add", - "hs-make", "hs-install", "hs-measure", "hs-transition", "hs-transition-from", - "hs-type-check", "hs-type-check-strict", "hs-strict-eq", + "hs-id=", "hs-eq-ignore-case", + "hs-starts-with?", + "hs-ends-with?", + "hs-scoped-set!", + "hs-scoped-get", + "hs-precedes?", + "hs-follows?", "hs-starts-with-ic?", + "hs-ends-with-ic?", + "hs-matches-ignore-case?", "hs-contains-ignore-case?", "hs-falsy?", "hs-matches?", "hs-contains?", + "hs-in?", + "hs-in-bool?", + "hs-is", "precedes?", "hs-empty?", + "hs-empty-like", "hs-empty-target!", + "hs-morph-char", + "hs-morph-index-from", + "hs-morph-sws", + "hs-morph-read-until", + "hs-morph-parse-attrs", + "hs-morph-parse-element", + "hs-morph-parse-children", + "hs-morph-apply-attrs", + "hs-morph-build-children", + "hs-morph-build-child", + "hs-morph!", "hs-open!", "hs-close!", - "hs-hide!", - "hs-show!", + "hs-show-when!", + "hs-hide-when!", "hs-first", "hs-last", "hs-template", "hs-make-object", + "hs-strip-order-deep", "hs-method-call", "hs-beep", "hs-prop-is", "hs-slice", + "hs-pick-first", + "hs-pick-last", + "hs-pick-random", + "hs-pick-items", + "hs-pick-match", + "hs-pick-matches", "hs-sorted-by", "hs-sorted-by-desc", "hs-split-by", "hs-joined-by", "hs-sorted-by", - "hs-sorted-by-desc" + "hs-sorted-by", + "hs-sorted-by-desc", + "hs-dom-has-var?", + "hs-dom-get-var-raw", + "hs-dom-set-var-raw!", + "hs-dom-resolve-start", + "hs-dom-walk", + "hs-dom-find-owner", + "hs-dom-get", + "hs-dom-set!", + "_hs-dom-watchers", + "hs-dom-watch!", + "hs-dom-fire-watchers!", + "hs-null-error!", + "hs-named-target", + "hs-named-target-list", + "hs-query-named-all", + "hs-dom-is-ancestor?", + "hs-win-call", + "hs-source-for", + "hs-line-for", + "hs-node-get", + "hs-src", + "hs-src-at", + "hs-line-at", + "hs-js-exec", + "hs-raw->api-token", + "hs-eof-sentinel", + "hs-tokens-of", + "hs-stream-token", + "hs-stream-consume", + "hs-stream-has-more", + "hs-token-type", + "hs-token-value", + "hs-token-op?", + "hs-try-json-parse", + "hs-socket-normalise-url", + "hs-socket-bind-name!", + "hs-socket-resolve-rpc!", + "hs-socket-register!" + ] + }, + "hs-worker": { + "file": "hs-worker.sxbc", + "deps": [ + "hs-tokenizer", + "hs-parser" + ], + "exports": [ + "hs-worker-loaded?" + ] + }, + "hs-prolog": { + "file": "hs-prolog.sxbc", + "deps": [ + "hs-tokenizer", + "hs-parser", + "hs-compiler", + "hs-runtime" + ], + "exports": [ + "hs-prolog-hook", + "hs-set-prolog-hook!", + "prolog" ] }, "hs-integration": { @@ -1060,10 +1192,15 @@ "hs-tokenizer", "hs-parser", "hs-compiler", - "hs-runtime" + "hs-runtime", + "hs-worker", + "hs-prolog" ], "exports": [ + "hs-register-scripts!", + "hs-scripting-disabled?", "hs-activate!", + "hs-deactivate!", "hs-boot!", "hs-boot-subtree!" ] @@ -1075,6 +1212,8 @@ "hs-parser", "hs-compiler", "hs-runtime", + "hs-worker", + "hs-prolog", "hs-integration" ], "exports": [ @@ -1158,6 +1297,8 @@ "hs-parser", "hs-compiler", "hs-runtime", + "hs-worker", + "hs-prolog", "hs-integration", "hs-htmx" ] diff --git a/tests/hs-kernel-eval.js b/tests/hs-kernel-eval.js index dd15d9f1..8f7a1aec 100644 --- a/tests/hs-kernel-eval.js +++ b/tests/hs-kernel-eval.js @@ -207,11 +207,15 @@ K.eval('(define serialize sx-serialize)'); // ── Load HS modules ───────────────────────────────────────────── const WEB = ['render','core-signals','signals','deps','router','page-helpers','freeze','dom','browser', 'adapter-html','adapter-sx','adapter-dom','boot-helpers','hypersx','engine','orchestration','boot']; -const HS = ['hs-tokenizer','hs-parser','hs-compiler','hs-runtime','hs-integration']; +const HS = ['hs-tokenizer','hs-parser','hs-compiler','hs-runtime','hs-worker','hs-prolog','hs-integration']; +const HS_PLUGINS = new Set(['hs-worker','hs-prolog']); K.beginModuleLoad(); for (const mod of [...WEB, ...HS]) { const sp = path.join(SX_DIR, mod+'.sx'); - const lp = path.join(PROJECT, 'lib/hyperscript', mod.replace(/^hs-/,'')+'.sx'); + const stem = mod.replace(/^hs-/,''); + const lp = HS_PLUGINS.has(mod) + ? path.join(PROJECT, 'lib/hyperscript/plugins', stem+'.sx') + : path.join(PROJECT, 'lib/hyperscript', stem+'.sx'); let s; try { const lpExists = mod.startsWith('hs-') && fs.existsSync(lp);