From 287d934c6605f180b3834156ee0f48eb8f1c1f01 Mon Sep 17 00:00:00 2001 From: tiye Date: Sun, 27 Aug 2023 01:06:01 +0800 Subject: [PATCH] change snapshot format; tag 0.0.7 --- .github/workflows/tests.yaml | 8 +- calcit.cirru | 4734 +++++++++++++++++++++++----------- compact.cirru | 470 ++-- package.json | 4 +- yarn.lock | 28 +- 5 files changed, 3548 insertions(+), 1696 deletions(-) diff --git a/.github/workflows/tests.yaml b/.github/workflows/tests.yaml index cba5a9f..c09b735 100644 --- a/.github/workflows/tests.yaml +++ b/.github/workflows/tests.yaml @@ -19,15 +19,15 @@ jobs: - uses: supplypike/setup-bin@v3 with: - uri: 'https://github.com/calcit-lang/calcit/releases/download/0.7.2/cr' + uri: 'https://github.com/calcit-lang/calcit/releases/download/0.8.0-a2/cr' name: 'cr' - version: '0.7.2' + version: '0.8.0-a2' - uses: supplypike/setup-bin@v3 with: - uri: 'https://github.com/calcit-lang/calcit/releases/download/0.7.2/caps' + uri: 'https://github.com/calcit-lang/calcit/releases/download/0.8.0-a2/caps' name: 'caps' - version: '0.7.2' + version: '0.8.0-a2' - name: "test" run: caps --ci && cr -1 diff --git a/calcit.cirru b/calcit.cirru index d5f0002..d80e96b 100644 --- a/calcit.cirru +++ b/calcit.cirru @@ -1,1758 +1,3574 @@ -{} - :configs $ {} (:init-fn |quaternion.test/main!) (:port 6001) (:reload-fn |quaternion.test/reload!) (:version |0.0.6) +{} (:package |quaternion) + :configs $ {} (:init-fn |quaternion.test/main!) (:port 6001) (:reload-fn |quaternion.test/reload!) (:version |0.0.7) :modules $ [] |calcit-test/ :entries $ {} :test $ {} (:init-fn |quaternion.test/main!) (:reload-fn |quaternion.test/reload!) :modules $ [] |calcit-test/ - :ir $ {} (:package |quaternion) - :files $ {} - |quaternion.core $ {} - :defs $ {} - |&c* $ {} (:at 1658490540128) (:by |u0) (:type :expr) + :files $ {} + |quaternion.core $ {} + :defs $ {} + |&c* $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |&c*) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&c*) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |b) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |let-sugar) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let-sugar) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x0) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |y0) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y0) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x1) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |y1) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |b) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y1) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1672158898970) (:by |u0) (:text |&-) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158898970) (:by |u0) (:text |&-) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1672158903637) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x0) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |x1) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158903637) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x1) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1672158906627) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y0) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |y1) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158906627) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y1) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1672158901524) (:by |u0) (:text |&+) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158901524) (:by |u0) (:text |&+) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1672158911006) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x0) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |y1) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158911006) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y1) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1672158908195) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x1) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |y0) (:type :leaf) - |&c+ $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158908195) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y0) + |&c+ $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |&c+) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&c+) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |b) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |let-sugar) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let-sugar) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x0) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |y0) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y0) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x1) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |y1) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |b) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y1) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1672158890719) (:by |u0) (:text |&+) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x0) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |x1) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158890719) (:by |u0) (:text |&+) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x1) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1672158892673) (:by |u0) (:text |&+) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y0) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |y1) (:type :leaf) - |&c- $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158892673) (:by |u0) (:text |&+) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y1) + |&c- $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |&c-) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&c-) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |b) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |let-sugar) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let-sugar) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x0) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |y0) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y0) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x1) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |y1) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |b) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y1) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1687587213358) (:by |u0) (:text |&-) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x0) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |x1) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1687587213358) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x1) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1687587215361) (:by |u0) (:text |&-) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y0) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |y1) (:type :leaf) - |&q* $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1687587215361) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y1) + |&q* $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |&q*) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&q*) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |b) (:type :leaf) - |j $ {} (:at 1658491111089) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |j $ %{} :Expr (:at 1658491111089) (:by |u0) :data $ {} - |T $ {} (:at 1687541232367) (:by |u0) (:text |doc-fn) (:type :leaf) - |b $ {} (:at 1658491111089) (:by |u0) (:text "|\"w placed at last element") (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1687541232367) (:by |u0) (:text |doc-fn) + |b $ %{} :Leaf (:at 1658491111089) (:by |u0) (:text "|\"w placed at last element") + |l $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490866200) (:by |u0) (:text |let-sugar) (:type :leaf) - |a $ {} (:at 1658490866653) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490866200) (:by |u0) (:text |let-sugar) + |a $ %{} :Expr (:at 1658490866653) (:by |u0) :data $ {} - |T $ {} (:at 1658490874303) (:by |u0) (:type :expr) + |T $ %{} :Expr (:at 1658490874303) (:by |u0) :data $ {} - |T $ {} (:at 1658490866766) (:by |u0) (:type :expr) + |T $ %{} :Expr (:at 1658490866766) (:by |u0) :data $ {} - |T $ {} (:at 1658490867163) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490868714) (:by |u0) (:text |x1) (:type :leaf) - |h $ {} (:at 1658490870101) (:by |u0) (:text |y1) (:type :leaf) - |l $ {} (:at 1658490871145) (:by |u0) (:text |z1) (:type :leaf) - |o $ {} (:at 1658490873307) (:by |u0) (:text |w1) (:type :leaf) - |b $ {} (:at 1658490877011) (:by |u0) (:text |a) (:type :leaf) - |b $ {} (:at 1658490874303) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490867163) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490868714) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1658490870101) (:by |u0) (:text |y1) + |l $ %{} :Leaf (:at 1658490871145) (:by |u0) (:text |z1) + |o $ %{} :Leaf (:at 1658490873307) (:by |u0) (:text |w1) + |b $ %{} :Leaf (:at 1658490877011) (:by |u0) (:text |a) + |b $ %{} :Expr (:at 1658490874303) (:by |u0) :data $ {} - |T $ {} (:at 1658490866766) (:by |u0) (:type :expr) + |T $ %{} :Expr (:at 1658490866766) (:by |u0) :data $ {} - |T $ {} (:at 1658490867163) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490880297) (:by |u0) (:text |x2) (:type :leaf) - |h $ {} (:at 1658490881162) (:by |u0) (:text |y2) (:type :leaf) - |l $ {} (:at 1658490883388) (:by |u0) (:text |z2) (:type :leaf) - |o $ {} (:at 1658490882525) (:by |u0) (:text |w2) (:type :leaf) - |b $ {} (:at 1658491116996) (:by |u0) (:text |b) (:type :leaf) - |g $ {} (:at 1658490885932) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490867163) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490880297) (:by |u0) (:text |x2) + |h $ %{} :Leaf (:at 1658490881162) (:by |u0) (:text |y2) + |l $ %{} :Leaf (:at 1658490883388) (:by |u0) (:text |z2) + |o $ %{} :Leaf (:at 1658490882525) (:by |u0) (:text |w2) + |b $ %{} :Leaf (:at 1658491116996) (:by |u0) (:text |b) + |g $ %{} :Expr (:at 1658490885932) (:by |u0) :data $ {} - |T $ {} (:at 1658490889085) (:by |u0) (:text |[]) (:type :leaf) - |X $ {} (:at 1658490924319) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490889085) (:by |u0) (:text |[]) + |X $ %{} :Expr (:at 1658490924319) (:by |u0) :data $ {} - |T $ {} (:at 1658490925594) (:by |u0) (:text |->) (:type :leaf) - |b $ {} (:at 1658490926793) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490925594) (:by |u0) (:text |->) + |b $ %{} :Expr (:at 1658490926793) (:by |u0) :data $ {} - |T $ {} (:at 1658490927430) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490932033) (:by |u0) (:text |w1) (:type :leaf) - |h $ {} (:at 1658490973809) (:by |u0) (:text |x2) (:type :leaf) - |h $ {} (:at 1658490934662) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490927430) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490932033) (:by |u0) (:text |w1) + |h $ %{} :Leaf (:at 1658490973809) (:by |u0) (:text |x2) + |h $ %{} :Expr (:at 1658490934662) (:by |u0) :data $ {} - |T $ {} (:at 1658491142746) (:by |u0) (:text |&+) (:type :leaf) - |b $ {} (:at 1658490938525) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658491142746) (:by |u0) (:text |&+) + |b $ %{} :Expr (:at 1658490938525) (:by |u0) :data $ {} - |T $ {} (:at 1658490939760) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490941863) (:by |u0) (:text |x1) (:type :leaf) - |h $ {} (:at 1658490943763) (:by |u0) (:text |w2) (:type :leaf) - |l $ {} (:at 1658490934662) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490939760) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490941863) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1658490943763) (:by |u0) (:text |w2) + |l $ %{} :Expr (:at 1658490934662) (:by |u0) :data $ {} - |T $ {} (:at 1658490948263) (:by |u0) (:text |&+) (:type :leaf) - |b $ {} (:at 1658490938525) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490948263) (:by |u0) (:text |&+) + |b $ %{} :Expr (:at 1658490938525) (:by |u0) :data $ {} - |T $ {} (:at 1658490939760) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490953307) (:by |u0) (:text |y1) (:type :leaf) - |h $ {} (:at 1658490955014) (:by |u0) (:text |z2) (:type :leaf) - |o $ {} (:at 1658490934662) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490939760) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490953307) (:by |u0) (:text |y1) + |h $ %{} :Leaf (:at 1658490955014) (:by |u0) (:text |z2) + |o $ %{} :Expr (:at 1658490934662) (:by |u0) :data $ {} - |T $ {} (:at 1658490962973) (:by |u0) (:text |&-) (:type :leaf) - |b $ {} (:at 1658490938525) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490962973) (:by |u0) (:text |&-) + |b $ %{} :Expr (:at 1658490938525) (:by |u0) :data $ {} - |T $ {} (:at 1658490939760) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490964929) (:by |u0) (:text |z1) (:type :leaf) - |h $ {} (:at 1658490966428) (:by |u0) (:text |y2) (:type :leaf) - |Z $ {} (:at 1658490924319) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490939760) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490964929) (:by |u0) (:text |z1) + |h $ %{} :Leaf (:at 1658490966428) (:by |u0) (:text |y2) + |Z $ %{} :Expr (:at 1658490924319) (:by |u0) :data $ {} - |T $ {} (:at 1658490925594) (:by |u0) (:text |->) (:type :leaf) - |b $ {} (:at 1658490926793) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490925594) (:by |u0) (:text |->) + |b $ %{} :Expr (:at 1658490926793) (:by |u0) :data $ {} - |T $ {} (:at 1658490927430) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490932033) (:by |u0) (:text |w1) (:type :leaf) - |h $ {} (:at 1658490982067) (:by |u0) (:text |y2) (:type :leaf) - |h $ {} (:at 1658490934662) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490927430) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490932033) (:by |u0) (:text |w1) + |h $ %{} :Leaf (:at 1658490982067) (:by |u0) (:text |y2) + |h $ %{} :Expr (:at 1658490934662) (:by |u0) :data $ {} - |T $ {} (:at 1658490938162) (:by |u0) (:text |&-) (:type :leaf) - |b $ {} (:at 1658490938525) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490938162) (:by |u0) (:text |&-) + |b $ %{} :Expr (:at 1658490938525) (:by |u0) :data $ {} - |T $ {} (:at 1658490939760) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490941863) (:by |u0) (:text |x1) (:type :leaf) - |h $ {} (:at 1658491020306) (:by |u0) (:text |z2) (:type :leaf) - |l $ {} (:at 1658490934662) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490939760) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490941863) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1658491020306) (:by |u0) (:text |z2) + |l $ %{} :Expr (:at 1658490934662) (:by |u0) :data $ {} - |T $ {} (:at 1658490948263) (:by |u0) (:text |&+) (:type :leaf) - |b $ {} (:at 1658490938525) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490948263) (:by |u0) (:text |&+) + |b $ %{} :Expr (:at 1658490938525) (:by |u0) :data $ {} - |T $ {} (:at 1658490939760) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658491018413) (:by |u0) (:text |y1) (:type :leaf) - |h $ {} (:at 1658490991985) (:by |u0) (:text |w2) (:type :leaf) - |o $ {} (:at 1658490934662) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490939760) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658491018413) (:by |u0) (:text |y1) + |h $ %{} :Leaf (:at 1658490991985) (:by |u0) (:text |w2) + |o $ %{} :Expr (:at 1658490934662) (:by |u0) :data $ {} - |T $ {} (:at 1658491164029) (:by |u0) (:text |&+) (:type :leaf) - |b $ {} (:at 1658490938525) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658491164029) (:by |u0) (:text |&+) + |b $ %{} :Expr (:at 1658490938525) (:by |u0) :data $ {} - |T $ {} (:at 1658490939760) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490996688) (:by |u0) (:text |z1) (:type :leaf) - |h $ {} (:at 1658490997855) (:by |u0) (:text |x2) (:type :leaf) - |a $ {} (:at 1658490924319) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490939760) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490996688) (:by |u0) (:text |z1) + |h $ %{} :Leaf (:at 1658490997855) (:by |u0) (:text |x2) + |a $ %{} :Expr (:at 1658490924319) (:by |u0) :data $ {} - |T $ {} (:at 1658490925594) (:by |u0) (:text |->) (:type :leaf) - |b $ {} (:at 1658490926793) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490925594) (:by |u0) (:text |->) + |b $ %{} :Expr (:at 1658490926793) (:by |u0) :data $ {} - |T $ {} (:at 1658490927430) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490932033) (:by |u0) (:text |w1) (:type :leaf) - |h $ {} (:at 1658491040492) (:by |u0) (:text |z2) (:type :leaf) - |h $ {} (:at 1658490934662) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490927430) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490932033) (:by |u0) (:text |w1) + |h $ %{} :Leaf (:at 1658491040492) (:by |u0) (:text |z2) + |h $ %{} :Expr (:at 1658490934662) (:by |u0) :data $ {} - |T $ {} (:at 1658491044866) (:by |u0) (:text |&+) (:type :leaf) - |b $ {} (:at 1658490938525) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658491044866) (:by |u0) (:text |&+) + |b $ %{} :Expr (:at 1658490938525) (:by |u0) :data $ {} - |T $ {} (:at 1658490939760) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490941863) (:by |u0) (:text |x1) (:type :leaf) - |h $ {} (:at 1658491047939) (:by |u0) (:text |y2) (:type :leaf) - |l $ {} (:at 1658490934662) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490939760) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490941863) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1658491047939) (:by |u0) (:text |y2) + |l $ %{} :Expr (:at 1658490934662) (:by |u0) :data $ {} - |T $ {} (:at 1658491053860) (:by |u0) (:text |&-) (:type :leaf) - |b $ {} (:at 1658490938525) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658491053860) (:by |u0) (:text |&-) + |b $ %{} :Expr (:at 1658490938525) (:by |u0) :data $ {} - |T $ {} (:at 1658490939760) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658491067420) (:by |u0) (:text |y1) (:type :leaf) - |h $ {} (:at 1658491069268) (:by |u0) (:text |x2) (:type :leaf) - |o $ {} (:at 1658490934662) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490939760) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658491067420) (:by |u0) (:text |y1) + |h $ %{} :Leaf (:at 1658491069268) (:by |u0) (:text |x2) + |o $ %{} :Expr (:at 1658490934662) (:by |u0) :data $ {} - |T $ {} (:at 1658491055365) (:by |u0) (:text |&+) (:type :leaf) - |b $ {} (:at 1658490938525) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658491055365) (:by |u0) (:text |&+) + |b $ %{} :Expr (:at 1658490938525) (:by |u0) :data $ {} - |T $ {} (:at 1658490939760) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658491073299) (:by |u0) (:text |z1) (:type :leaf) - |h $ {} (:at 1658491074649) (:by |u0) (:text |w2) (:type :leaf) - |b $ {} (:at 1658490890021) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490939760) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658491073299) (:by |u0) (:text |z1) + |h $ %{} :Leaf (:at 1658491074649) (:by |u0) (:text |w2) + |b $ %{} :Expr (:at 1658490890021) (:by |u0) :data $ {} - |T $ {} (:at 1658490893199) (:by |u0) (:text |->) (:type :leaf) - |b $ {} (:at 1658490893773) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490893199) (:by |u0) (:text |->) + |b $ %{} :Expr (:at 1658490893773) (:by |u0) :data $ {} - |T $ {} (:at 1658490894821) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490898015) (:by |u0) (:text |w1) (:type :leaf) - |h $ {} (:at 1658490900083) (:by |u0) (:text |w2) (:type :leaf) - |h $ {} (:at 1658490900796) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490894821) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490898015) (:by |u0) (:text |w1) + |h $ %{} :Leaf (:at 1658490900083) (:by |u0) (:text |w2) + |h $ %{} :Expr (:at 1658490900796) (:by |u0) :data $ {} - |T $ {} (:at 1658490903560) (:by |u0) (:text |&-) (:type :leaf) - |b $ {} (:at 1658490904053) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490903560) (:by |u0) (:text |&-) + |b $ %{} :Expr (:at 1658490904053) (:by |u0) :data $ {} - |T $ {} (:at 1658490904598) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490906847) (:by |u0) (:text |x1) (:type :leaf) - |h $ {} (:at 1658490907659) (:by |u0) (:text |x2) (:type :leaf) - |l $ {} (:at 1658490900796) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490904598) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490906847) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1658490907659) (:by |u0) (:text |x2) + |l $ %{} :Expr (:at 1658490900796) (:by |u0) :data $ {} - |T $ {} (:at 1658490903560) (:by |u0) (:text |&-) (:type :leaf) - |b $ {} (:at 1658490904053) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490903560) (:by |u0) (:text |&-) + |b $ %{} :Expr (:at 1658490904053) (:by |u0) :data $ {} - |T $ {} (:at 1658490904598) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490914147) (:by |u0) (:text |y1) (:type :leaf) - |h $ {} (:at 1658490915390) (:by |u0) (:text |y2) (:type :leaf) - |o $ {} (:at 1658490900796) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490904598) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490914147) (:by |u0) (:text |y1) + |h $ %{} :Leaf (:at 1658490915390) (:by |u0) (:text |y2) + |o $ %{} :Expr (:at 1658490900796) (:by |u0) :data $ {} - |T $ {} (:at 1658490903560) (:by |u0) (:text |&-) (:type :leaf) - |b $ {} (:at 1658490904053) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490903560) (:by |u0) (:text |&-) + |b $ %{} :Expr (:at 1658490904053) (:by |u0) :data $ {} - |T $ {} (:at 1658490904598) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490920258) (:by |u0) (:text |z1) (:type :leaf) - |h $ {} (:at 1658490921729) (:by |u0) (:text |z2) (:type :leaf) - |&q+ $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490904598) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490920258) (:by |u0) (:text |z1) + |h $ %{} :Leaf (:at 1658490921729) (:by |u0) (:text |z2) + |&q+ $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |&q+) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |b) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |let-sugar) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:text |z) (:type :leaf) - |o $ {} (:at 1658490540128) (:by |u0) (:text |w) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x1) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |y1) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:text |z1) (:type :leaf) - |o $ {} (:at 1658490540128) (:by |u0) (:text |w1) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |b) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1672158933140) (:by |u0) (:text |&+) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |x1) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1672158935509) (:by |u0) (:text |&+) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |y1) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1672158936283) (:by |u0) (:text |&+) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |z) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |z1) (:type :leaf) - |o $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1672158938122) (:by |u0) (:text |&+) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |w) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |w1) (:type :leaf) - |&q- $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&q+) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let-sugar) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |l $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |o $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y1) + |l $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z1) + |o $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w1) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158933140) (:by |u0) (:text |&+) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x1) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158935509) (:by |u0) (:text |&+) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y1) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158936283) (:by |u0) (:text |&+) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z1) + |o $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158938122) (:by |u0) (:text |&+) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w1) + |&q- $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |&q-) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |b) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |let-sugar) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:text |z) (:type :leaf) - |o $ {} (:at 1658490540128) (:by |u0) (:text |w) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x1) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |y1) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:text |z1) (:type :leaf) - |o $ {} (:at 1658490540128) (:by |u0) (:text |w1) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |b) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1672158947350) (:by |u0) (:text |&-) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |x1) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1672158948561) (:by |u0) (:text |&-) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |y1) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1672158949444) (:by |u0) (:text |&-) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |z) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |z1) (:type :leaf) - |o $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1672158950091) (:by |u0) (:text |&-) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |w) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |w1) (:type :leaf) - |&v+ $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&q-) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let-sugar) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |l $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |o $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y1) + |l $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z1) + |o $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w1) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158947350) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x1) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158948561) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y1) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158949444) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z1) + |o $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158950091) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w1) + |&v+ $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |&v+) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |b) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |let[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |z) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |let[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |x2) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y2) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |z2) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |b) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&+) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |x2) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&+) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |y2) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&+) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |z) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |z2) (:type :leaf) - |&v- $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&v+) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x2) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y2) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z2) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&+) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x2) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&+) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y2) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&+) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z2) + |&v- $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |&v-) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |b) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |let[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |z) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |let[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |x2) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y2) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |z2) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |b) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&-) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |x2) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&-) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |y2) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&-) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |z) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |z2) (:type :leaf) - |c* $ {} (:at 1672158354635) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&v-) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x2) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y2) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z2) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x2) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y2) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z2) + |c* $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1672158354635) (:by |u0) :data $ {} - |T $ {} (:at 1672158354635) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1672158354635) (:by |u0) (:text |c*) (:type :leaf) - |h $ {} (:at 1672158366507) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158354635) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1672158354635) (:by |u0) (:text |c*) + |h $ %{} :Expr (:at 1672158366507) (:by |u0) :data $ {} - |T $ {} (:at 1672158366507) (:by |u0) (:text |&) (:type :leaf) - |b $ {} (:at 1672158366507) (:by |u0) (:text |xs) (:type :leaf) - |l $ {} (:at 1672158366507) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158366507) (:by |u0) (:text |&) + |b $ %{} :Leaf (:at 1672158366507) (:by |u0) (:text |xs) + |l $ %{} :Expr (:at 1672158366507) (:by |u0) :data $ {} - |T $ {} (:at 1672158366507) (:by |u0) (:text |foldl) (:type :leaf) - |b $ {} (:at 1672158592836) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158366507) (:by |u0) (:text |foldl) + |b $ %{} :Expr (:at 1672158592836) (:by |u0) :data $ {} - |D $ {} (:at 1672158595330) (:by |u0) (:text |rest) (:type :leaf) - |T $ {} (:at 1672158366507) (:by |u0) (:text |xs) (:type :leaf) - |g $ {} (:at 1672158598146) (:by |u0) (:type :expr) + |D $ %{} :Leaf (:at 1672158595330) (:by |u0) (:text |rest) + |T $ %{} :Leaf (:at 1672158366507) (:by |u0) (:text |xs) + |g $ %{} :Expr (:at 1672158598146) (:by |u0) :data $ {} - |T $ {} (:at 1672158598951) (:by |u0) (:text |first) (:type :leaf) - |b $ {} (:at 1672158599938) (:by |u0) (:text |xs) (:type :leaf) - |l $ {} (:at 1672158366507) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158598951) (:by |u0) (:text |first) + |b $ %{} :Leaf (:at 1672158599938) (:by |u0) (:text |xs) + |l $ %{} :Expr (:at 1672158366507) (:by |u0) :data $ {} - |T $ {} (:at 1672158366507) (:by |u0) (:text |fn) (:type :leaf) - |b $ {} (:at 1672158366507) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158366507) (:by |u0) (:text |fn) + |b $ %{} :Expr (:at 1672158366507) (:by |u0) :data $ {} - |T $ {} (:at 1672158366507) (:by |u0) (:text |acc) (:type :leaf) - |b $ {} (:at 1672158366507) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1672158366507) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158366507) (:by |u0) (:text |acc) + |b $ %{} :Leaf (:at 1672158366507) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1672158366507) (:by |u0) :data $ {} - |T $ {} (:at 1672158511951) (:by |u0) (:text |&c*) (:type :leaf) - |b $ {} (:at 1672158366507) (:by |u0) (:text |acc) (:type :leaf) - |h $ {} (:at 1672158366507) (:by |u0) (:text |x) (:type :leaf) - |c+ $ {} (:at 1672158328455) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158511951) (:by |u0) (:text |&c*) + |b $ %{} :Leaf (:at 1672158366507) (:by |u0) (:text |acc) + |h $ %{} :Leaf (:at 1672158366507) (:by |u0) (:text |x) + |c+ $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1672158328455) (:by |u0) :data $ {} - |T $ {} (:at 1672158328455) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1672158328455) (:by |u0) (:text |c+) (:type :leaf) - |h $ {} (:at 1672158333053) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158328455) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1672158328455) (:by |u0) (:text |c+) + |h $ %{} :Expr (:at 1672158333053) (:by |u0) :data $ {} - |T $ {} (:at 1672158333053) (:by |u0) (:text |&) (:type :leaf) - |b $ {} (:at 1672158333053) (:by |u0) (:text |xs) (:type :leaf) - |l $ {} (:at 1672158333053) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158333053) (:by |u0) (:text |&) + |b $ %{} :Leaf (:at 1672158333053) (:by |u0) (:text |xs) + |l $ %{} :Expr (:at 1672158333053) (:by |u0) :data $ {} - |T $ {} (:at 1672158333053) (:by |u0) (:text |foldl) (:type :leaf) - |b $ {} (:at 1672158878695) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158333053) (:by |u0) (:text |foldl) + |b $ %{} :Expr (:at 1672158878695) (:by |u0) :data $ {} - |D $ {} (:at 1672158879903) (:by |u0) (:text |rest) (:type :leaf) - |T $ {} (:at 1672158333053) (:by |u0) (:text |xs) (:type :leaf) - |g $ {} (:at 1672158873771) (:by |u0) (:type :expr) + |D $ %{} :Leaf (:at 1672158879903) (:by |u0) (:text |rest) + |T $ %{} :Leaf (:at 1672158333053) (:by |u0) (:text |xs) + |g $ %{} :Expr (:at 1672158873771) (:by |u0) :data $ {} - |T $ {} (:at 1672158875952) (:by |u0) (:text |first) (:type :leaf) - |b $ {} (:at 1672158877389) (:by |u0) (:text |xs) (:type :leaf) - |l $ {} (:at 1672158333053) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158875952) (:by |u0) (:text |first) + |b $ %{} :Leaf (:at 1672158877389) (:by |u0) (:text |xs) + |l $ %{} :Expr (:at 1672158333053) (:by |u0) :data $ {} - |T $ {} (:at 1672158333053) (:by |u0) (:text |fn) (:type :leaf) - |b $ {} (:at 1672158333053) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158333053) (:by |u0) (:text |fn) + |b $ %{} :Expr (:at 1672158333053) (:by |u0) :data $ {} - |T $ {} (:at 1672158333053) (:by |u0) (:text |acc) (:type :leaf) - |b $ {} (:at 1672158333053) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1672158333053) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158333053) (:by |u0) (:text |acc) + |b $ %{} :Leaf (:at 1672158333053) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1672158333053) (:by |u0) :data $ {} - |T $ {} (:at 1672158338131) (:by |u0) (:text |&c+) (:type :leaf) - |b $ {} (:at 1672158333053) (:by |u0) (:text |acc) (:type :leaf) - |h $ {} (:at 1672158333053) (:by |u0) (:text |x) (:type :leaf) - |c-conjutate $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158338131) (:by |u0) (:text |&c+) + |b $ %{} :Leaf (:at 1672158333053) (:by |u0) (:text |acc) + |h $ %{} :Leaf (:at 1672158333053) (:by |u0) (:text |x) + |c-conjutate $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |c-conjutate) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |let[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&-) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |0) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |w) (:type :leaf) - |c-length $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |c-conjutate) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |c-length $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |c-length) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |c-length) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |v) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |let[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |v) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1687587624937) (:by |u0) (:text |sqrt) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1687587624937) (:by |u0) (:text |sqrt) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1672158959991) (:by |u0) (:text |&+) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158959991) (:by |u0) (:text |&+) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1687587618717) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1687587620115) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1687587618717) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1687587620115) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1687587621788) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |h $ {} (:at 1687587623104) (:by |u0) (:text |y) (:type :leaf) - |c-length2 $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1687587621788) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1687587623104) (:by |u0) (:text |y) + |c-length2 $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |c-length2) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |v) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |let[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |v) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1672158921539) (:by |u0) (:text |&+) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1687587250956) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |e $ {} (:at 1687587252390) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1687587255430) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |h $ {} (:at 1687587256991) (:by |u0) (:text |y) (:type :leaf) - |c-scale $ {} (:at 1672159178398) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |c-length2) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158921539) (:by |u0) (:text |&+) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587250956) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |e $ %{} :Leaf (:at 1687587252390) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587255430) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1687587256991) (:by |u0) (:text |y) + |c-scale $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1672159178398) (:by |u0) :data $ {} - |T $ {} (:at 1672159178398) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1672159178398) (:by |u0) (:text |c-scale) (:type :leaf) - |h $ {} (:at 1672159191632) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1672159191632) (:by |u0) (:text |v) (:type :leaf) - |b $ {} (:at 1672159191632) (:by |u0) (:text |n) (:type :leaf) - |l $ {} (:at 1672159191632) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1672159191632) (:by |u0) (:text |let[]) (:type :leaf) - |b $ {} (:at 1672159191632) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1672159191632) (:by |u0) (:text |x) (:type :leaf) - |b $ {} (:at 1672159191632) (:by |u0) (:text |y) (:type :leaf) - |h $ {} (:at 1672159191632) (:by |u0) (:text |v) (:type :leaf) - |l $ {} (:at 1672159191632) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1672159191632) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1672159191632) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1672159191632) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1672159191632) (:by |u0) (:text |n) (:type :leaf) - |h $ {} (:at 1672159191632) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1672159191632) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1672159191632) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1672159191632) (:by |u0) (:text |n) (:type :leaf) - |h $ {} (:at 1672159191632) (:by |u0) (:text |y) (:type :leaf) - |q+ $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672159178398) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1672159178398) (:by |u0) (:text |c-scale) + |h $ %{} :Expr (:at 1672159191632) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |v) + |b $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |n) + |l $ %{} :Expr (:at 1672159191632) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1672159191632) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |v) + |l $ %{} :Expr (:at 1672159191632) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1672159191632) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1672159191632) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |y) + |q+ $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |q+) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |xs) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |foldl) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |xs) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |0) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |0) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:text |0) (:type :leaf) - |o $ {} (:at 1658490540128) (:by |u0) (:text |0) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |fn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |acc) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&q+) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |acc) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |q- $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |q+) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |xs) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |foldl) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |xs) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |0) + |l $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |0) + |o $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |0) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |fn) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |acc) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&q+) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |acc) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |q- $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |q-) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |q-) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |xs) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |xs) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |foldl) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |foldl) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |rest) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |xs) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |rest) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |xs) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |first) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |xs) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |first) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |xs) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |fn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |fn) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |acc) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |acc) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&q-) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |acc) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |q-conjugate $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&q-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |acc) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |q-conjugate $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |q-conjugate) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |let[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |z) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:text |w) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&-) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |0) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&-) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |0) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&-) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |0) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |z) (:type :leaf) - |o $ {} (:at 1658490540128) (:by |u0) (:text |w) (:type :leaf) - |q-inverse $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |q-conjugate) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |l $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |o $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |q-inverse $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |q-inverse) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |q-inverse) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |l $ {} (:at 1687587318489) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |l $ %{} :Expr (:at 1687587318489) (:by |u0) :data $ {} - |D $ {} (:at 1687587319230) (:by |u0) (:text |let) (:type :leaf) - |L $ {} (:at 1687587320538) (:by |u0) (:type :expr) + |D $ %{} :Leaf (:at 1687587319230) (:by |u0) (:text |let) + |L $ %{} :Expr (:at 1687587320538) (:by |u0) :data $ {} - |T $ {} (:at 1687587320671) (:by |u0) (:type :expr) + |T $ %{} :Expr (:at 1687587320671) (:by |u0) :data $ {} - |D $ {} (:at 1687587323191) (:by |u0) (:text |l) (:type :leaf) - |T $ {} (:at 1687587322139) (:by |u0) (:type :expr) + |D $ %{} :Leaf (:at 1687587323191) (:by |u0) (:text |l) + |T $ %{} :Expr (:at 1687587322139) (:by |u0) :data $ {} - |T $ {} (:at 1687587322139) (:by |u0) (:text |q-length2) (:type :leaf) - |b $ {} (:at 1687587322139) (:by |u0) (:text |a) (:type :leaf) - |P $ {} (:at 1687587327364) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1687587322139) (:by |u0) (:text |q-length2) + |b $ %{} :Leaf (:at 1687587322139) (:by |u0) (:text |a) + |P $ %{} :Expr (:at 1687587327364) (:by |u0) :data $ {} - |T $ {} (:at 1687587327753) (:by |u0) (:text |if) (:type :leaf) - |b $ {} (:at 1687587330701) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1687587327753) (:by |u0) (:text |if) + |b $ %{} :Expr (:at 1687587330701) (:by |u0) :data $ {} - |D $ {} (:at 1687587331800) (:by |u0) (:text |&=) (:type :leaf) - |T $ {} (:at 1687587329646) (:by |u0) (:text |l) (:type :leaf) - |b $ {} (:at 1687587333369) (:by |u0) (:text |0) (:type :leaf) - |h $ {} (:at 1687587334235) (:by |u0) (:type :expr) + |D $ %{} :Leaf (:at 1687587331800) (:by |u0) (:text |&=) + |T $ %{} :Leaf (:at 1687587329646) (:by |u0) (:text |l) + |b $ %{} :Leaf (:at 1687587333369) (:by |u0) (:text |0) + |h $ %{} :Expr (:at 1687587334235) (:by |u0) :data $ {} - |T $ {} (:at 1687587337379) (:by |u0) (:text |eprintln) (:type :leaf) - |b $ {} (:at 1687587350571) (:by |u0) (:text "|\"length is zero:") (:type :leaf) - |h $ {} (:at 1687587348037) (:by |u0) (:text |a) (:type :leaf) - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1687587337379) (:by |u0) (:text |eprintln) + |b $ %{} :Leaf (:at 1687587350571) (:by |u0) (:text "|\"length is zero:") + |h $ %{} :Leaf (:at 1687587348037) (:by |u0) (:text |a) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |q-scale) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |q-scale) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |q-conjugate) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |q-conjugate) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&/) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |1) (:type :leaf) - |h $ {} (:at 1687587325927) (:by |u0) (:text |l) (:type :leaf) - |q-length $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&/) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |1) + |h $ %{} :Leaf (:at 1687587325927) (:by |u0) (:text |l) + |q-length $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |q-length) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |q-length) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |let[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |z) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:text |w) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |l $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |sqrt) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |sqrt) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1687587936865) (:by |u0) (:text |->) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1687587936865) (:by |u0) (:text |->) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1687587946892) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1687587948426) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1687587937959) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1687587946892) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1687587948426) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1687587937959) (:by |u0) :data $ {} - |D $ {} (:at 1687587940052) (:by |u0) (:text |&+) (:type :leaf) - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |D $ %{} :Leaf (:at 1687587940052) (:by |u0) (:text |&+) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1687587950219) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |h $ {} (:at 1687587951358) (:by |u0) (:text |y) (:type :leaf) - |l $ {} (:at 1687587940959) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1687587950219) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1687587951358) (:by |u0) (:text |y) + |l $ %{} :Expr (:at 1687587940959) (:by |u0) :data $ {} - |D $ {} (:at 1687587942202) (:by |u0) (:text |&+) (:type :leaf) - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |D $ %{} :Leaf (:at 1687587942202) (:by |u0) (:text |&+) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1687587952970) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |z) (:type :leaf) - |h $ {} (:at 1687587956158) (:by |u0) (:text |z) (:type :leaf) - |o $ {} (:at 1687587943175) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1687587952970) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |h $ %{} :Leaf (:at 1687587956158) (:by |u0) (:text |z) + |o $ %{} :Expr (:at 1687587943175) (:by |u0) :data $ {} - |D $ {} (:at 1687587944318) (:by |u0) (:text |&+) (:type :leaf) - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |D $ %{} :Leaf (:at 1687587944318) (:by |u0) (:text |&+) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1687587955077) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |w) (:type :leaf) - |h $ {} (:at 1687587956870) (:by |u0) (:text |w) (:type :leaf) - |q-length2 $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1687587955077) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |h $ %{} :Leaf (:at 1687587956870) (:by |u0) (:text |w) + |q-length2 $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |q-length2) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |let[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |z) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:text |w) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |a) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1687587968482) (:by |u0) (:text |->) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1687587286488) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1687587287743) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1687587969547) (:by |u0) (:type :expr) - :data $ {} - |D $ {} (:at 1687587972189) (:by |u0) (:text |&+) (:type :leaf) - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1687587290719) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |h $ {} (:at 1687587291769) (:by |u0) (:text |y) (:type :leaf) - |l $ {} (:at 1687587973704) (:by |u0) (:type :expr) - :data $ {} - |D $ {} (:at 1687587974234) (:by |u0) (:text |&+) (:type :leaf) - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1687587293172) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |z) (:type :leaf) - |h $ {} (:at 1687587294473) (:by |u0) (:text |z) (:type :leaf) - |o $ {} (:at 1687587975109) (:by |u0) (:type :expr) - :data $ {} - |D $ {} (:at 1687587975655) (:by |u0) (:text |&+) (:type :leaf) - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1687587296266) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |w) (:type :leaf) - |h $ {} (:at 1687587297724) (:by |u0) (:text |w) (:type :leaf) - |q-scale $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |q-length2) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |l $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587968482) (:by |u0) (:text |->) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587286488) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1687587287743) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1687587969547) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1687587972189) (:by |u0) (:text |&+) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587290719) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1687587291769) (:by |u0) (:text |y) + |l $ %{} :Expr (:at 1687587973704) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1687587974234) (:by |u0) (:text |&+) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587293172) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |h $ %{} :Leaf (:at 1687587294473) (:by |u0) (:text |z) + |o $ %{} :Expr (:at 1687587975109) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1687587975655) (:by |u0) (:text |&+) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587296266) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |h $ %{} :Leaf (:at 1687587297724) (:by |u0) (:text |w) + |q-scale $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |q-scale) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |v) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |n) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |let[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |z) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:text |w) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |v) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |n) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |n) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |n) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |z) (:type :leaf) - |o $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |n) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |w) (:type :leaf) - |v+ $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |q-scale) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |l $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |o $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |v+ $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |v+) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |xs) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |foldl) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |xs) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |0) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |0) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:text |0) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |fn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |acc) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&v+) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |acc) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |v- $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v+) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |xs) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |foldl) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |xs) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |0) + |l $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |0) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |fn) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |acc) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&v+) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |acc) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |v- $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |v-) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v-) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |xs) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |xs) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |foldl) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |foldl) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |rest) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |xs) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |rest) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |xs) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |first) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |xs) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |first) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |xs) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |fn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |fn) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |acc) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |acc) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&v-) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |acc) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |v-cross $ {} (:at 1659691903601) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&v-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |acc) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |v-cross $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1659691903601) (:by |u0) :data $ {} - |T $ {} (:at 1659691903601) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1659691903601) (:by |u0) (:text |v-cross) (:type :leaf) - |h $ {} (:at 1659691903601) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1659691903601) (:by |u0) (:text |v1) (:type :leaf) - |b $ {} (:at 1659691903601) (:by |u0) (:text |v2) (:type :leaf) - |l $ {} (:at 1659691903601) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1659691903601) (:by |u0) (:text |let-sugar) (:type :leaf) - |b $ {} (:at 1659691903601) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1659691903601) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1659691903601) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1659691903601) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1659691903601) (:by |u0) (:text |x1) (:type :leaf) - |h $ {} (:at 1659691903601) (:by |u0) (:text |y1) (:type :leaf) - |l $ {} (:at 1659691903601) (:by |u0) (:text |z1) (:type :leaf) - |b $ {} (:at 1659691903601) (:by |u0) (:text |v1) (:type :leaf) - |b $ {} (:at 1659691903601) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1659691903601) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1659691903601) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1659691903601) (:by |u0) (:text |x2) (:type :leaf) - |h $ {} (:at 1659691903601) (:by |u0) (:text |y2) (:type :leaf) - |l $ {} (:at 1659691903601) (:by |u0) (:text |z2) (:type :leaf) - |b $ {} (:at 1659691903601) (:by |u0) (:text |v2) (:type :leaf) - |h $ {} (:at 1659691903601) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1659691903601) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1659691903601) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1659691903601) (:by |u0) (:text |&-) (:type :leaf) - |b $ {} (:at 1659691903601) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1659691903601) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1659691903601) (:by |u0) (:text |y1) (:type :leaf) - |h $ {} (:at 1659691903601) (:by |u0) (:text |z2) (:type :leaf) - |h $ {} (:at 1659691903601) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1659691903601) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1659691903601) (:by |u0) (:text |y2) (:type :leaf) - |h $ {} (:at 1659691903601) (:by |u0) (:text |z1) (:type :leaf) - |h $ {} (:at 1659691903601) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1659691903601) (:by |u0) (:text |&-) (:type :leaf) - |b $ {} (:at 1659691903601) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1659691903601) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1659691903601) (:by |u0) (:text |x2) (:type :leaf) - |h $ {} (:at 1659691903601) (:by |u0) (:text |z1) (:type :leaf) - |h $ {} (:at 1659691903601) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1659691903601) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1659691903601) (:by |u0) (:text |x1) (:type :leaf) - |h $ {} (:at 1659691903601) (:by |u0) (:text |z2) (:type :leaf) - |l $ {} (:at 1659691903601) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1659691903601) (:by |u0) (:text |&-) (:type :leaf) - |b $ {} (:at 1659691903601) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1659691903601) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1659691903601) (:by |u0) (:text |x1) (:type :leaf) - |h $ {} (:at 1659691903601) (:by |u0) (:text |y2) (:type :leaf) - |h $ {} (:at 1659691903601) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1659691903601) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1659691903601) (:by |u0) (:text |x2) (:type :leaf) - |h $ {} (:at 1659691903601) (:by |u0) (:text |y1) (:type :leaf) - |v-dot $ {} (:at 1659691882443) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |v-cross) + |h $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |v1) + |b $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |v2) + |l $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |let-sugar) + |b $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |y1) + |l $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |z1) + |b $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |v1) + |b $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |x2) + |h $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |y2) + |l $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |z2) + |b $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |v2) + |h $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |&-) + |b $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |y1) + |h $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |z2) + |h $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |y2) + |h $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |z1) + |h $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |&-) + |b $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |x2) + |h $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |z1) + |h $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |z2) + |l $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |&-) + |b $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |y2) + |h $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |x2) + |h $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |y1) + |v-dot $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1659691882443) (:by |u0) :data $ {} - |T $ {} (:at 1659691882443) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1659691882443) (:by |u0) (:text |v-dot) (:type :leaf) - |h $ {} (:at 1659691882443) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |v-dot) + |h $ %{} :Expr (:at 1659691882443) (:by |u0) :data $ {} - |T $ {} (:at 1659691882443) (:by |u0) (:text |v1) (:type :leaf) - |b $ {} (:at 1659691882443) (:by |u0) (:text |v2) (:type :leaf) - |l $ {} (:at 1659691882443) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |v1) + |b $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |v2) + |l $ %{} :Expr (:at 1659691882443) (:by |u0) :data $ {} - |T $ {} (:at 1659691882443) (:by |u0) (:text |let-sugar) (:type :leaf) - |b $ {} (:at 1659691882443) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |let-sugar) + |b $ %{} :Expr (:at 1659691882443) (:by |u0) :data $ {} - |T $ {} (:at 1659691882443) (:by |u0) (:type :expr) + |T $ %{} :Expr (:at 1659691882443) (:by |u0) :data $ {} - |T $ {} (:at 1659691882443) (:by |u0) (:type :expr) + |T $ %{} :Expr (:at 1659691882443) (:by |u0) :data $ {} - |T $ {} (:at 1659691882443) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1659691882443) (:by |u0) (:text |x1) (:type :leaf) - |h $ {} (:at 1659691882443) (:by |u0) (:text |y1) (:type :leaf) - |l $ {} (:at 1659691882443) (:by |u0) (:text |z1) (:type :leaf) - |b $ {} (:at 1659691882443) (:by |u0) (:text |v1) (:type :leaf) - |b $ {} (:at 1659691882443) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |y1) + |l $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |z1) + |b $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |v1) + |b $ %{} :Expr (:at 1659691882443) (:by |u0) :data $ {} - |T $ {} (:at 1659691882443) (:by |u0) (:type :expr) + |T $ %{} :Expr (:at 1659691882443) (:by |u0) :data $ {} - |T $ {} (:at 1659691882443) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1659691882443) (:by |u0) (:text |x2) (:type :leaf) - |h $ {} (:at 1659691882443) (:by |u0) (:text |y2) (:type :leaf) - |l $ {} (:at 1659691882443) (:by |u0) (:text |z2) (:type :leaf) - |b $ {} (:at 1659691882443) (:by |u0) (:text |v2) (:type :leaf) - |h $ {} (:at 1659691882443) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |x2) + |h $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |y2) + |l $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |z2) + |b $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |v2) + |h $ %{} :Expr (:at 1659691882443) (:by |u0) :data $ {} - |T $ {} (:at 1687587410920) (:by |u0) (:text |->) (:type :leaf) - |b $ {} (:at 1659691882443) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1687587410920) (:by |u0) (:text |->) + |b $ %{} :Expr (:at 1659691882443) (:by |u0) :data $ {} - |T $ {} (:at 1659691882443) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1659691882443) (:by |u0) (:text |x1) (:type :leaf) - |h $ {} (:at 1659691882443) (:by |u0) (:text |x2) (:type :leaf) - |h $ {} (:at 1687587411728) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |x2) + |h $ %{} :Expr (:at 1687587411728) (:by |u0) :data $ {} - |D $ {} (:at 1687587413492) (:by |u0) (:text |&+) (:type :leaf) - |T $ {} (:at 1659691882443) (:by |u0) (:type :expr) + |D $ %{} :Leaf (:at 1687587413492) (:by |u0) (:text |&+) + |T $ %{} :Expr (:at 1659691882443) (:by |u0) :data $ {} - |T $ {} (:at 1659691882443) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1659691882443) (:by |u0) (:text |y1) (:type :leaf) - |h $ {} (:at 1659691882443) (:by |u0) (:text |y2) (:type :leaf) - |l $ {} (:at 1687587415720) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |y1) + |h $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |y2) + |l $ %{} :Expr (:at 1687587415720) (:by |u0) :data $ {} - |D $ {} (:at 1687587417884) (:by |u0) (:text |&+) (:type :leaf) - |T $ {} (:at 1659691882443) (:by |u0) (:type :expr) + |D $ %{} :Leaf (:at 1687587417884) (:by |u0) (:text |&+) + |T $ %{} :Expr (:at 1659691882443) (:by |u0) :data $ {} - |T $ {} (:at 1659691882443) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1659691882443) (:by |u0) (:text |z1) (:type :leaf) - |h $ {} (:at 1659691882443) (:by |u0) (:text |z2) (:type :leaf) - |v-length $ {} (:at 1659691959012) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |z1) + |h $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |z2) + |v-length $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1659691959012) (:by |u0) :data $ {} - |T $ {} (:at 1659691959012) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1659691959012) (:by |u0) (:text |v-length) (:type :leaf) - |h $ {} (:at 1659691959012) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |v-length) + |h $ %{} :Expr (:at 1659691959012) (:by |u0) :data $ {} - |T $ {} (:at 1659691959012) (:by |u0) (:text |a) (:type :leaf) - |l $ {} (:at 1659691959012) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |a) + |l $ %{} :Expr (:at 1659691959012) (:by |u0) :data $ {} - |T $ {} (:at 1659691959012) (:by |u0) (:text |let-sugar) (:type :leaf) - |b $ {} (:at 1659691959012) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |let-sugar) + |b $ %{} :Expr (:at 1659691959012) (:by |u0) :data $ {} - |T $ {} (:at 1659691959012) (:by |u0) (:type :expr) + |T $ %{} :Expr (:at 1659691959012) (:by |u0) :data $ {} - |T $ {} (:at 1659691959012) (:by |u0) (:type :expr) + |T $ %{} :Expr (:at 1659691959012) (:by |u0) :data $ {} - |T $ {} (:at 1659691959012) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1659691959012) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1659691959012) (:by |u0) (:text |y) (:type :leaf) - |l $ {} (:at 1659691959012) (:by |u0) (:text |z) (:type :leaf) - |b $ {} (:at 1659691959012) (:by |u0) (:text |a) (:type :leaf) - |h $ {} (:at 1659691959012) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |y) + |l $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |z) + |b $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |a) + |h $ %{} :Expr (:at 1659691959012) (:by |u0) :data $ {} - |T $ {} (:at 1659691959012) (:by |u0) (:text |sqrt) (:type :leaf) - |b $ {} (:at 1659691959012) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |sqrt) + |b $ %{} :Expr (:at 1659691959012) (:by |u0) :data $ {} - |T $ {} (:at 1687588026913) (:by |u0) (:text |->) (:type :leaf) - |b $ {} (:at 1659691959012) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1687588026913) (:by |u0) (:text |->) + |b $ %{} :Expr (:at 1659691959012) (:by |u0) :data $ {} - |T $ {} (:at 1687587377107) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1659691959012) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1687587378352) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1687587396566) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1687587377107) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1687587378352) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1687587396566) (:by |u0) :data $ {} - |D $ {} (:at 1687587398469) (:by |u0) (:text |&+) (:type :leaf) - |T $ {} (:at 1659691959012) (:by |u0) (:type :expr) + |D $ %{} :Leaf (:at 1687587398469) (:by |u0) (:text |&+) + |T $ %{} :Expr (:at 1659691959012) (:by |u0) :data $ {} - |T $ {} (:at 1687587379662) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1659691959012) (:by |u0) (:text |y) (:type :leaf) - |h $ {} (:at 1687587381557) (:by |u0) (:text |y) (:type :leaf) - |l $ {} (:at 1687587399549) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1687587379662) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1687587381557) (:by |u0) (:text |y) + |l $ %{} :Expr (:at 1687587399549) (:by |u0) :data $ {} - |D $ {} (:at 1687587401134) (:by |u0) (:text |&+) (:type :leaf) - |T $ {} (:at 1659691959012) (:by |u0) (:type :expr) + |D $ %{} :Leaf (:at 1687587401134) (:by |u0) (:text |&+) + |T $ %{} :Expr (:at 1659691959012) (:by |u0) :data $ {} - |T $ {} (:at 1687587384088) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1659691959012) (:by |u0) (:text |z) (:type :leaf) - |h $ {} (:at 1687587385087) (:by |u0) (:text |z) (:type :leaf) - |v-normalize $ {} (:at 1659691922768) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1687587384088) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |z) + |h $ %{} :Leaf (:at 1687587385087) (:by |u0) (:text |z) + |v-normalize $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1659691922768) (:by |u0) :data $ {} - |T $ {} (:at 1659691922768) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1659691922768) (:by |u0) (:text |v-normalize) (:type :leaf) - |h $ {} (:at 1659691922768) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |v-normalize) + |h $ %{} :Expr (:at 1659691922768) (:by |u0) :data $ {} - |T $ {} (:at 1659691922768) (:by |u0) (:text |v) (:type :leaf) - |l $ {} (:at 1659691922768) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |v) + |l $ %{} :Expr (:at 1659691922768) (:by |u0) :data $ {} - |T $ {} (:at 1659691922768) (:by |u0) (:text |let[]) (:type :leaf) - |b $ {} (:at 1659691922768) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1659691922768) (:by |u0) :data $ {} - |T $ {} (:at 1659691922768) (:by |u0) (:text |x) (:type :leaf) - |b $ {} (:at 1659691922768) (:by |u0) (:text |y) (:type :leaf) - |h $ {} (:at 1659691922768) (:by |u0) (:text |z) (:type :leaf) - |h $ {} (:at 1659691922768) (:by |u0) (:text |v) (:type :leaf) - |l $ {} (:at 1659691922768) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |z) + |h $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |v) + |l $ %{} :Expr (:at 1659691922768) (:by |u0) :data $ {} - |T $ {} (:at 1659691922768) (:by |u0) (:text |let) (:type :leaf) - |b $ {} (:at 1659691922768) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |let) + |b $ %{} :Expr (:at 1659691922768) (:by |u0) :data $ {} - |T $ {} (:at 1659691922768) (:by |u0) (:type :expr) + |T $ %{} :Expr (:at 1659691922768) (:by |u0) :data $ {} - |T $ {} (:at 1659691922768) (:by |u0) (:text |length) (:type :leaf) - |b $ {} (:at 1659691922768) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |length) + |b $ %{} :Expr (:at 1659691922768) (:by |u0) :data $ {} - |T $ {} (:at 1659691922768) (:by |u0) (:text |sqrt) (:type :leaf) - |b $ {} (:at 1659691922768) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |sqrt) + |b $ %{} :Expr (:at 1659691922768) (:by |u0) :data $ {} - |T $ {} (:at 1687587542737) (:by |u0) (:text |->) (:type :leaf) - |b $ {} (:at 1687587543618) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1687587542737) (:by |u0) (:text |->) + |b $ %{} :Expr (:at 1687587543618) (:by |u0) :data $ {} - |T $ {} (:at 1659691922768) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1659691922768) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1659691922768) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1687587544902) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1687587544902) (:by |u0) :data $ {} - |D $ {} (:at 1687587546674) (:by |u0) (:text |&+) (:type :leaf) - |T $ {} (:at 1659691922768) (:by |u0) (:type :expr) + |D $ %{} :Leaf (:at 1687587546674) (:by |u0) (:text |&+) + |T $ %{} :Expr (:at 1659691922768) (:by |u0) :data $ {} - |T $ {} (:at 1659691922768) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1659691922768) (:by |u0) (:text |y) (:type :leaf) - |h $ {} (:at 1659691922768) (:by |u0) (:text |y) (:type :leaf) - |l $ {} (:at 1687587547785) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |y) + |l $ %{} :Expr (:at 1687587547785) (:by |u0) :data $ {} - |D $ {} (:at 1687587549815) (:by |u0) (:text |&+) (:type :leaf) - |T $ {} (:at 1659691922768) (:by |u0) (:type :expr) + |D $ %{} :Leaf (:at 1687587549815) (:by |u0) (:text |&+) + |T $ %{} :Expr (:at 1659691922768) (:by |u0) :data $ {} - |T $ {} (:at 1659691922768) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1659691922768) (:by |u0) (:text |z) (:type :leaf) - |h $ {} (:at 1659691922768) (:by |u0) (:text |z) (:type :leaf) - |e $ {} (:at 1687587553654) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1687587554112) (:by |u0) (:text |if) (:type :leaf) - |b $ {} (:at 1687587555378) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1687587557375) (:by |u0) (:text |&=) (:type :leaf) - |b $ {} (:at 1687587559171) (:by |u0) (:text |length) (:type :leaf) - |h $ {} (:at 1687587559766) (:by |u0) (:text |0) (:type :leaf) - |h $ {} (:at 1687587565218) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1687587566747) (:by |u0) (:text |eprintln) (:type :leaf) - |b $ {} (:at 1687587874263) (:by |u0) (:text "|\"Unexpected zero length:") (:type :leaf) - |h $ {} (:at 1687587583743) (:by |u0) (:text |length) (:type :leaf) - |h $ {} (:at 1659691922768) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1659691922768) (:by |u0) (:text |v-scale) (:type :leaf) - |b $ {} (:at 1659691922768) (:by |u0) (:text |v) (:type :leaf) - |h $ {} (:at 1659691922768) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1687587551815) (:by |u0) (:text |&/) (:type :leaf) - |b $ {} (:at 1659691922768) (:by |u0) (:text |1) (:type :leaf) - |h $ {} (:at 1659691922768) (:by |u0) (:text |length) (:type :leaf) - |v-scale $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |z) + |h $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |z) + |e $ %{} :Expr (:at 1687587553654) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587554112) (:by |u0) (:text |if) + |b $ %{} :Expr (:at 1687587555378) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587557375) (:by |u0) (:text |&=) + |b $ %{} :Leaf (:at 1687587559171) (:by |u0) (:text |length) + |h $ %{} :Leaf (:at 1687587559766) (:by |u0) (:text |0) + |h $ %{} :Expr (:at 1687587565218) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587566747) (:by |u0) (:text |eprintln) + |b $ %{} :Leaf (:at 1687587874263) (:by |u0) (:text "|\"Unexpected zero length:") + |h $ %{} :Leaf (:at 1687587583743) (:by |u0) (:text |length) + |h $ %{} :Expr (:at 1659691922768) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |v-scale) + |b $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |v) + |h $ %{} :Expr (:at 1659691922768) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587551815) (:by |u0) (:text |&/) + |b $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |1) + |h $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |length) + |v-scale $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |v-scale) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v-scale) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |v) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |n) (:type :leaf) - |l $ {} (:at 1659524782429) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |l $ %{} :Expr (:at 1659524782429) (:by |u0) :data $ {} - |D $ {} (:at 1659524785313) (:by |u0) (:text |case-default) (:type :leaf) - |L $ {} (:at 1659524788130) (:by |u0) (:type :expr) + |D $ %{} :Leaf (:at 1659524785313) (:by |u0) (:text |case-default) + |L $ %{} :Expr (:at 1659524788130) (:by |u0) :data $ {} - |T $ {} (:at 1659524788779) (:by |u0) (:text |count) (:type :leaf) - |b $ {} (:at 1659524789073) (:by |u0) (:text |v) (:type :leaf) - |T $ {} (:at 1659524841066) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659524788779) (:by |u0) (:text |count) + |b $ %{} :Leaf (:at 1659524789073) (:by |u0) (:text |v) + |T $ %{} :Expr (:at 1659524841066) (:by |u0) :data $ {} - |T $ {} (:at 1659524843170) (:by |u0) (:text |raise) (:type :leaf) - |b $ {} (:at 1659524850389) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659524843170) (:by |u0) (:text |raise) + |b $ %{} :Expr (:at 1659524850389) (:by |u0) :data $ {} - |D $ {} (:at 1659524851203) (:by |u0) (:text |str) (:type :leaf) - |T $ {} (:at 1659524854065) (:by |u0) (:text "|\"unknown vector: ") (:type :leaf) - |b $ {} (:at 1659524851893) (:by |u0) (:text |v) (:type :leaf) - |b $ {} (:at 1659524792412) (:by |u0) (:type :expr) + |D $ %{} :Leaf (:at 1659524851203) (:by |u0) (:text |str) + |T $ %{} :Leaf (:at 1659524854065) (:by |u0) (:text "|\"unknown vector: ") + |b $ %{} :Leaf (:at 1659524851893) (:by |u0) (:text |v) + |b $ %{} :Expr (:at 1659524792412) (:by |u0) :data $ {} - |D $ {} (:at 1659524793414) (:by |u0) (:text |4) (:type :leaf) - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |D $ %{} :Leaf (:at 1659524793414) (:by |u0) (:text |4) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |let[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |z) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:text |w) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |v) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |l $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |n) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |n) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |n) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |z) (:type :leaf) - |o $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |o $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |n) (:type :leaf) - |h $ {} (:at 1659524821418) (:by |u0) (:text |w) (:type :leaf) - |h $ {} (:at 1659524792412) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1659524821418) (:by |u0) (:text |w) + |h $ %{} :Expr (:at 1659524792412) (:by |u0) :data $ {} - |D $ {} (:at 1659524809034) (:by |u0) (:text |3) (:type :leaf) - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |D $ %{} :Leaf (:at 1659524809034) (:by |u0) (:text |3) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |let[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |z) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |v) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |n) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |n) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |l $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |n) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |z) (:type :leaf) - |l $ {} (:at 1659524792412) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |l $ %{} :Expr (:at 1659524792412) (:by |u0) :data $ {} - |D $ {} (:at 1659524824419) (:by |u0) (:text |2) (:type :leaf) - |T $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |D $ %{} :Leaf (:at 1659524824419) (:by |u0) (:text |2) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |let[]) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |x) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |y) (:type :leaf) - |h $ {} (:at 1658490540128) (:by |u0) (:text |v) (:type :leaf) - |l $ {} (:at 1659524832791) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v) + |l $ %{} :Expr (:at 1659524832791) (:by |u0) :data $ {} - |T $ {} (:at 1659524832791) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1659524832791) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659524832791) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1659524832791) (:by |u0) :data $ {} - |T $ {} (:at 1659524832791) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1659524832791) (:by |u0) (:text |n) (:type :leaf) - |h $ {} (:at 1659524832791) (:by |u0) (:text |x) (:type :leaf) - |h $ {} (:at 1659524832791) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659524832791) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659524832791) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1659524832791) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1659524832791) (:by |u0) :data $ {} - |T $ {} (:at 1659524832791) (:by |u0) (:text |&*) (:type :leaf) - |b $ {} (:at 1659524832791) (:by |u0) (:text |n) (:type :leaf) - |h $ {} (:at 1659524832791) (:by |u0) (:text |y) (:type :leaf) - :ns $ {} (:at 1658490540128) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659524832791) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659524832791) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1659524832791) (:by |u0) (:text |y) + :ns $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) :data $ {} - |T $ {} (:at 1658490540128) (:by |u0) (:text |ns) (:type :leaf) - |b $ {} (:at 1658490540128) (:by |u0) (:text |quaternion.core) (:type :leaf) - |quaternion.test $ {} - :configs $ {} - :defs $ {} - |main! $ {} (:at 1651385630841) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |ns) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |quaternion.core) + |quaternion.test $ {} + :configs $ {} + :defs $ {} + |main! $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1651385630841) (:by |u0) :data $ {} - |T $ {} (:at 1651385630841) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1651385630841) (:by |u0) (:text |main!) (:type :leaf) - |h $ {} (:at 1651385630841) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1651385630841) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1651385630841) (:by |u0) (:text |main!) + |h $ %{} :Expr (:at 1651385630841) (:by |u0) :data $ {} - |l $ {} (:at 1651385633767) (:by |u0) (:type :expr) + |l $ %{} :Expr (:at 1651385633767) (:by |u0) :data $ {} - |T $ {} (:at 1651385635804) (:by |u0) (:text |run-tests) (:type :leaf) - |reload! $ {} (:at 1651385641606) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1651385635804) (:by |u0) (:text |run-tests) + |reload! $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1651385641606) (:by |u0) :data $ {} - |T $ {} (:at 1651385641606) (:by |u0) (:text |defn) (:type :leaf) - |b $ {} (:at 1651385641606) (:by |u0) (:text |reload!) (:type :leaf) - |h $ {} (:at 1651385641606) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1651385641606) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1651385641606) (:by |u0) (:text |reload!) + |h $ %{} :Expr (:at 1651385641606) (:by |u0) :data $ {} - |l $ {} (:at 1651385642773) (:by |u0) (:type :expr) + |l $ %{} :Expr (:at 1651385642773) (:by |u0) :data $ {} - |T $ {} (:at 1651385643658) (:by |u0) (:text |println) (:type :leaf) - |b $ {} (:at 1659524996297) (:by |u0) (:text "|\"reload...") (:type :leaf) - |o $ {} (:at 1659524982610) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1651385643658) (:by |u0) (:text |println) + |b $ %{} :Leaf (:at 1659524996297) (:by |u0) (:text "|\"reload...") + |o $ %{} :Expr (:at 1659524982610) (:by |u0) :data $ {} - |T $ {} (:at 1659524988891) (:by |u0) (:text |run-tests) (:type :leaf) - |run-tests $ {} (:at 1625339970921) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659524988891) (:by |u0) (:text |run-tests) + |run-tests $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1625339970921) (:by |u0) :data $ {} - |T $ {} (:at 1625339972421) (:by |u0) (:text |defn) (:type :leaf) - |j $ {} (:at 1625339970921) (:by |u0) (:text |run-tests) (:type :leaf) - |r $ {} (:at 1625339970921) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1625339972421) (:by |u0) (:text |defn) + |j $ %{} :Leaf (:at 1625339970921) (:by |u0) (:text |run-tests) + |r $ %{} :Expr (:at 1625339970921) (:by |u0) :data $ {} - |t $ {} (:at 1625340033281) (:by |u0) (:type :expr) + |t $ %{} :Expr (:at 1625340033281) (:by |u0) :data $ {} - |T $ {} (:at 1625340034982) (:by |u0) (:text |reset!) (:type :leaf) - |j $ {} (:at 1625340036265) (:by |u0) (:text |*quit-on-failure?) (:type :leaf) - |r $ {} (:at 1625340037959) (:by |u0) (:text |true) (:type :leaf) - |v $ {} (:at 1625339973401) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1625340034982) (:by |u0) (:text |reset!) + |j $ %{} :Leaf (:at 1625340036265) (:by |u0) (:text |*quit-on-failure?) + |r $ %{} :Leaf (:at 1625340037959) (:by |u0) (:text |true) + |v $ %{} :Expr (:at 1625339973401) (:by |u0) :data $ {} - |T $ {} (:at 1625339982550) (:by |u0) (:text |test-add) (:type :leaf) - |w $ {} (:at 1659524862313) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1625339982550) (:by |u0) (:text |test-add) + |w $ %{} :Expr (:at 1659524862313) (:by |u0) :data $ {} - |T $ {} (:at 1659524868944) (:by |u0) (:text |test-v-scale) (:type :leaf) - |x $ {} (:at 1672158639858) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659524868944) (:by |u0) (:text |test-v-scale) + |x $ %{} :Expr (:at 1672158639858) (:by |u0) :data $ {} - |T $ {} (:at 1672158863953) (:by |u0) (:text |test-multiply) (:type :leaf) - |test-add $ {} (:at 1625339983101) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158863953) (:by |u0) (:text |test-multiply) + |test-add $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1625339983101) (:by |u0) :data $ {} - |T $ {} (:at 1625339986557) (:by |u0) (:text |deftest) (:type :leaf) - |j $ {} (:at 1625339983101) (:by |u0) (:text |test-add) (:type :leaf) - |r $ {} (:at 1625340048519) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1625339986557) (:by |u0) (:text |deftest) + |j $ %{} :Leaf (:at 1625339983101) (:by |u0) (:text |test-add) + |r $ %{} :Expr (:at 1625340048519) (:by |u0) :data $ {} - |T $ {} (:at 1625340049484) (:by |u0) (:text |testing) (:type :leaf) - |j $ {} (:at 1672158413268) (:by |u0) (:text "||add quaternion") (:type :leaf) - |r $ {} (:at 1625340054484) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1625340049484) (:by |u0) (:text |testing) + |j $ %{} :Leaf (:at 1672158413268) (:by |u0) (:text "||add quaternion") + |r $ %{} :Expr (:at 1625340054484) (:by |u0) :data $ {} - |T $ {} (:at 1625340055860) (:by |u0) (:text |is) (:type :leaf) - |j $ {} (:at 1625340056137) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1625340055860) (:by |u0) (:text |is) + |j $ %{} :Expr (:at 1625340056137) (:by |u0) :data $ {} - |T $ {} (:at 1625340056311) (:by |u0) (:text |=) (:type :leaf) - |j $ {} (:at 1658491742078) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1625340056311) (:by |u0) (:text |=) + |j $ %{} :Expr (:at 1658491742078) (:by |u0) :data $ {} - |T $ {} (:at 1658491742078) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1658491742078) (:by |u0) (:text |12) (:type :leaf) - |h $ {} (:at 1658491742078) (:by |u0) (:text |30) (:type :leaf) - |l $ {} (:at 1658491742078) (:by |u0) (:text |24) (:type :leaf) - |o $ {} (:at 1658491742078) (:by |u0) (:text |-60) (:type :leaf) - |r $ {} (:at 1625340057796) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658491742078) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658491742078) (:by |u0) (:text |12) + |h $ %{} :Leaf (:at 1658491742078) (:by |u0) (:text |30) + |l $ %{} :Leaf (:at 1658491742078) (:by |u0) (:text |24) + |o $ %{} :Leaf (:at 1658491742078) (:by |u0) (:text |-60) + |r $ %{} :Expr (:at 1625340057796) (:by |u0) :data $ {} - |T $ {} (:at 1658491641263) (:by |u0) (:text |&q*) (:type :leaf) - |j $ {} (:at 1658491642189) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658491641263) (:by |u0) (:text |&q*) + |j $ %{} :Expr (:at 1658491642189) (:by |u0) :data $ {} - |T $ {} (:at 1658491642493) (:by |u0) (:text |[]) (:type :leaf) - |h $ {} (:at 1658491643158) (:by |u0) (:text |2) (:type :leaf) - |l $ {} (:at 1658491643489) (:by |u0) (:text |3) (:type :leaf) - |o $ {} (:at 1658491643793) (:by |u0) (:text |4) (:type :leaf) - |q $ {} (:at 1658491708525) (:by |u0) (:text |1) (:type :leaf) - |r $ {} (:at 1658491645375) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658491642493) (:by |u0) (:text |[]) + |h $ %{} :Leaf (:at 1658491643158) (:by |u0) (:text |2) + |l $ %{} :Leaf (:at 1658491643489) (:by |u0) (:text |3) + |o $ %{} :Leaf (:at 1658491643793) (:by |u0) (:text |4) + |q $ %{} :Leaf (:at 1658491708525) (:by |u0) (:text |1) + |r $ %{} :Expr (:at 1658491645375) (:by |u0) :data $ {} - |T $ {} (:at 1658491645595) (:by |u0) (:text |[]) (:type :leaf) - |l $ {} (:at 1658491649413) (:by |u0) (:text |6) (:type :leaf) - |m $ {} (:at 1658491654190) (:by |u0) (:text |7) (:type :leaf) - |o $ {} (:at 1658491648117) (:by |u0) (:text |8) (:type :leaf) - |q $ {} (:at 1658491713020) (:by |u0) (:text |5) (:type :leaf) - |t $ {} (:at 1672158414156) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1672158415760) (:by |u0) (:text |testing) (:type :leaf) - |b $ {} (:at 1672158419666) (:by |u0) (:text "|\"add complex") (:type :leaf) - |h $ {} (:at 1672158420806) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1672158421167) (:by |u0) (:text |is) (:type :leaf) - |b $ {} (:at 1672158421767) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1672158421874) (:by |u0) (:text |=) (:type :leaf) - |b $ {} (:at 1672158425146) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1672158424822) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1672158442324) (:by |u0) (:text |9) (:type :leaf) - |h $ {} (:at 1672158445886) (:by |u0) (:text |12) (:type :leaf) - |h $ {} (:at 1672158428343) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1672158431587) (:by |u0) (:text |c+) (:type :leaf) - |b $ {} (:at 1672158432492) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1658491645595) (:by |u0) (:text |[]) + |l $ %{} :Leaf (:at 1658491649413) (:by |u0) (:text |6) + |m $ %{} :Leaf (:at 1658491654190) (:by |u0) (:text |7) + |o $ %{} :Leaf (:at 1658491648117) (:by |u0) (:text |8) + |q $ %{} :Leaf (:at 1658491713020) (:by |u0) (:text |5) + |t $ %{} :Expr (:at 1672158414156) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158415760) (:by |u0) (:text |testing) + |b $ %{} :Leaf (:at 1672158419666) (:by |u0) (:text "|\"add complex") + |h $ %{} :Expr (:at 1672158420806) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158421167) (:by |u0) (:text |is) + |b $ %{} :Expr (:at 1672158421767) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158421874) (:by |u0) (:text |=) + |b $ %{} :Expr (:at 1672158425146) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158424822) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158442324) (:by |u0) (:text |9) + |h $ %{} :Leaf (:at 1672158445886) (:by |u0) (:text |12) + |h $ %{} :Expr (:at 1672158428343) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158431587) (:by |u0) (:text |c+) + |b $ %{} :Expr (:at 1672158432492) (:by |u0) :data $ {} - |T $ {} (:at 1672158432691) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1672158433195) (:by |u0) (:text |1) (:type :leaf) - |h $ {} (:at 1672158433435) (:by |u0) (:text |2) (:type :leaf) - |h $ {} (:at 1672158433942) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158432691) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158433195) (:by |u0) (:text |1) + |h $ %{} :Leaf (:at 1672158433435) (:by |u0) (:text |2) + |h $ %{} :Expr (:at 1672158433942) (:by |u0) :data $ {} - |T $ {} (:at 1672158434317) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1672158435303) (:by |u0) (:text |3) (:type :leaf) - |h $ {} (:at 1672158435561) (:by |u0) (:text |4) (:type :leaf) - |l $ {} (:at 1672158436027) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158434317) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158435303) (:by |u0) (:text |3) + |h $ %{} :Leaf (:at 1672158435561) (:by |u0) (:text |4) + |l $ %{} :Expr (:at 1672158436027) (:by |u0) :data $ {} - |T $ {} (:at 1672158437346) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1672158438300) (:by |u0) (:text |5) (:type :leaf) - |h $ {} (:at 1672158438562) (:by |u0) (:text |6) (:type :leaf) - |l $ {} (:at 1672158420806) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158437346) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158438300) (:by |u0) (:text |5) + |h $ %{} :Leaf (:at 1672158438562) (:by |u0) (:text |6) + |l $ %{} :Expr (:at 1672158420806) (:by |u0) :data $ {} - |T $ {} (:at 1672158421167) (:by |u0) (:text |is) (:type :leaf) - |b $ {} (:at 1672158421767) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158421167) (:by |u0) (:text |is) + |b $ %{} :Expr (:at 1672158421767) (:by |u0) :data $ {} - |T $ {} (:at 1672158421874) (:by |u0) (:text |=) (:type :leaf) - |b $ {} (:at 1672158425146) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158421874) (:by |u0) (:text |=) + |b $ %{} :Expr (:at 1672158425146) (:by |u0) :data $ {} - |T $ {} (:at 1672158424822) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1672158459441) (:by |u0) (:text |4) (:type :leaf) - |h $ {} (:at 1672158460986) (:by |u0) (:text |6) (:type :leaf) - |h $ {} (:at 1672158428343) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158424822) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158459441) (:by |u0) (:text |4) + |h $ %{} :Leaf (:at 1672158460986) (:by |u0) (:text |6) + |h $ %{} :Expr (:at 1672158428343) (:by |u0) :data $ {} - |T $ {} (:at 1672158431587) (:by |u0) (:text |c+) (:type :leaf) - |b $ {} (:at 1672158432492) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158431587) (:by |u0) (:text |c+) + |b $ %{} :Expr (:at 1672158432492) (:by |u0) :data $ {} - |T $ {} (:at 1672158432691) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1672158433195) (:by |u0) (:text |1) (:type :leaf) - |h $ {} (:at 1672158433435) (:by |u0) (:text |2) (:type :leaf) - |h $ {} (:at 1672158433942) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158432691) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158433195) (:by |u0) (:text |1) + |h $ %{} :Leaf (:at 1672158433435) (:by |u0) (:text |2) + |h $ %{} :Expr (:at 1672158433942) (:by |u0) :data $ {} - |T $ {} (:at 1672158434317) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1672158435303) (:by |u0) (:text |3) (:type :leaf) - |h $ {} (:at 1672158435561) (:by |u0) (:text |4) (:type :leaf) - |test-multiply $ {} (:at 1672158642870) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158434317) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158435303) (:by |u0) (:text |3) + |h $ %{} :Leaf (:at 1672158435561) (:by |u0) (:text |4) + |test-multiply $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1672158642870) (:by |u0) :data $ {} - |T $ {} (:at 1672158644426) (:by |u0) (:text |deftest) (:type :leaf) - |b $ {} (:at 1672158642870) (:by |u0) (:text |test-multiply) (:type :leaf) - |h $ {} (:at 1672158646492) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158644426) (:by |u0) (:text |deftest) + |b $ %{} :Leaf (:at 1672158642870) (:by |u0) (:text |test-multiply) + |h $ %{} :Expr (:at 1672158646492) (:by |u0) :data $ {} - |T $ {} (:at 1672158646492) (:by |u0) (:text |testing) (:type :leaf) - |b $ {} (:at 1672158646492) (:by |u0) (:text "|\"multiply complex") (:type :leaf) - |e $ {} (:at 1672158681933) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |testing) + |b $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text "|\"multiply complex") + |e $ %{} :Expr (:at 1672158681933) (:by |u0) :data $ {} - |T $ {} (:at 1672158682496) (:by |u0) (:text |is) (:type :leaf) - |b $ {} (:at 1672158683110) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158682496) (:by |u0) (:text |is) + |b $ %{} :Expr (:at 1672158683110) (:by |u0) :data $ {} - |T $ {} (:at 1672158683206) (:by |u0) (:text |=) (:type :leaf) - |b $ {} (:at 1672158684764) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158683206) (:by |u0) (:text |=) + |b $ %{} :Expr (:at 1672158684764) (:by |u0) :data $ {} - |T $ {} (:at 1672158684478) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1672158722855) (:by |u0) (:text |-5) (:type :leaf) - |h $ {} (:at 1672158745623) (:by |u0) (:text |10) (:type :leaf) - |h $ {} (:at 1672158685856) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158684478) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158722855) (:by |u0) (:text |-5) + |h $ %{} :Leaf (:at 1672158745623) (:by |u0) (:text |10) + |h $ %{} :Expr (:at 1672158685856) (:by |u0) :data $ {} - |T $ {} (:at 1672158687456) (:by |u0) (:text |&c*) (:type :leaf) - |b $ {} (:at 1672158687917) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158687456) (:by |u0) (:text |&c*) + |b $ %{} :Expr (:at 1672158687917) (:by |u0) :data $ {} - |T $ {} (:at 1672158688091) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1672158688407) (:by |u0) (:text |1) (:type :leaf) - |h $ {} (:at 1672158688644) (:by |u0) (:text |2) (:type :leaf) - |h $ {} (:at 1672158689314) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158688091) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158688407) (:by |u0) (:text |1) + |h $ %{} :Leaf (:at 1672158688644) (:by |u0) (:text |2) + |h $ %{} :Expr (:at 1672158689314) (:by |u0) :data $ {} - |T $ {} (:at 1672158689618) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1672158690373) (:by |u0) (:text |3) (:type :leaf) - |h $ {} (:at 1672158690636) (:by |u0) (:text |4) (:type :leaf) - |h $ {} (:at 1672158646492) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158689618) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158690373) (:by |u0) (:text |3) + |h $ %{} :Leaf (:at 1672158690636) (:by |u0) (:text |4) + |h $ %{} :Expr (:at 1672158646492) (:by |u0) :data $ {} - |T $ {} (:at 1672158646492) (:by |u0) (:text |is) (:type :leaf) - |b $ {} (:at 1672158646492) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |is) + |b $ %{} :Expr (:at 1672158646492) (:by |u0) :data $ {} - |T $ {} (:at 1672158646492) (:by |u0) (:text |=) (:type :leaf) - |b $ {} (:at 1672158748639) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |=) + |b $ %{} :Expr (:at 1672158748639) (:by |u0) :data $ {} - |T $ {} (:at 1672158748639) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1672158748639) (:by |u0) (:text |-5) (:type :leaf) - |h $ {} (:at 1672158748639) (:by |u0) (:text |10) (:type :leaf) - |h $ {} (:at 1672158646492) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158748639) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158748639) (:by |u0) (:text |-5) + |h $ %{} :Leaf (:at 1672158748639) (:by |u0) (:text |10) + |h $ %{} :Expr (:at 1672158646492) (:by |u0) :data $ {} - |T $ {} (:at 1672158646492) (:by |u0) (:text |c*) (:type :leaf) - |b $ {} (:at 1672158646492) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |c*) + |b $ %{} :Expr (:at 1672158646492) (:by |u0) :data $ {} - |T $ {} (:at 1672158646492) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1672158646492) (:by |u0) (:text |1) (:type :leaf) - |h $ {} (:at 1672158646492) (:by |u0) (:text |2) (:type :leaf) - |h $ {} (:at 1672158646492) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |1) + |h $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |2) + |h $ %{} :Expr (:at 1672158646492) (:by |u0) :data $ {} - |T $ {} (:at 1672158646492) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1672158646492) (:by |u0) (:text |3) (:type :leaf) - |h $ {} (:at 1672158646492) (:by |u0) (:text |4) (:type :leaf) - |l $ {} (:at 1672158646492) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |3) + |h $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |4) + |l $ %{} :Expr (:at 1672158646492) (:by |u0) :data $ {} - |T $ {} (:at 1672158646492) (:by |u0) (:text |is) (:type :leaf) - |b $ {} (:at 1672158646492) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |is) + |b $ %{} :Expr (:at 1672158646492) (:by |u0) :data $ {} - |T $ {} (:at 1672158646492) (:by |u0) (:text |=) (:type :leaf) - |b $ {} (:at 1672158748639) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |=) + |b $ %{} :Expr (:at 1672158748639) (:by |u0) :data $ {} - |T $ {} (:at 1672158748639) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1672158850166) (:by |u0) (:text |-85) (:type :leaf) - |h $ {} (:at 1672158851401) (:by |u0) (:text |20) (:type :leaf) - |h $ {} (:at 1672158646492) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158748639) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158850166) (:by |u0) (:text |-85) + |h $ %{} :Leaf (:at 1672158851401) (:by |u0) (:text |20) + |h $ %{} :Expr (:at 1672158646492) (:by |u0) :data $ {} - |T $ {} (:at 1672158646492) (:by |u0) (:text |c*) (:type :leaf) - |b $ {} (:at 1672158646492) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |c*) + |b $ %{} :Expr (:at 1672158646492) (:by |u0) :data $ {} - |T $ {} (:at 1672158646492) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1672158646492) (:by |u0) (:text |1) (:type :leaf) - |h $ {} (:at 1672158646492) (:by |u0) (:text |2) (:type :leaf) - |h $ {} (:at 1672158646492) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |1) + |h $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |2) + |h $ %{} :Expr (:at 1672158646492) (:by |u0) :data $ {} - |T $ {} (:at 1672158646492) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1672158646492) (:by |u0) (:text |3) (:type :leaf) - |h $ {} (:at 1672158646492) (:by |u0) (:text |4) (:type :leaf) - |l $ {} (:at 1672158755393) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |3) + |h $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |4) + |l $ %{} :Expr (:at 1672158755393) (:by |u0) :data $ {} - |T $ {} (:at 1672158755812) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1672158757046) (:by |u0) (:text |5) (:type :leaf) - |h $ {} (:at 1672158758230) (:by |u0) (:text |6) (:type :leaf) - |test-v-scale $ {} (:at 1659524886692) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672158755812) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158757046) (:by |u0) (:text |5) + |h $ %{} :Leaf (:at 1672158758230) (:by |u0) (:text |6) + |test-v-scale $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1659524886692) (:by |u0) :data $ {} - |T $ {} (:at 1659524886692) (:by |u0) (:text |deftest) (:type :leaf) - |b $ {} (:at 1659524902272) (:by |u0) (:text |test-v-scale) (:type :leaf) - |h $ {} (:at 1659524886692) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659524886692) (:by |u0) (:text |deftest) + |b $ %{} :Leaf (:at 1659524902272) (:by |u0) (:text |test-v-scale) + |h $ %{} :Expr (:at 1659524886692) (:by |u0) :data $ {} - |T $ {} (:at 1659524886692) (:by |u0) (:text |testing) (:type :leaf) - |b $ {} (:at 1659524906116) (:by |u0) (:text ||v-scale) (:type :leaf) - |h $ {} (:at 1659524886692) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659524886692) (:by |u0) (:text |testing) + |b $ %{} :Leaf (:at 1659524906116) (:by |u0) (:text ||v-scale) + |h $ %{} :Expr (:at 1659524886692) (:by |u0) :data $ {} - |T $ {} (:at 1659524886692) (:by |u0) (:text |is) (:type :leaf) - |b $ {} (:at 1659524886692) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659524886692) (:by |u0) (:text |is) + |b $ %{} :Expr (:at 1659524886692) (:by |u0) :data $ {} - |T $ {} (:at 1659524886692) (:by |u0) (:text |=) (:type :leaf) - |b $ {} (:at 1659524908786) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659524886692) (:by |u0) (:text |=) + |b $ %{} :Expr (:at 1659524908786) (:by |u0) :data $ {} - |D $ {} (:at 1659524911378) (:by |u0) (:text |v-scale) (:type :leaf) - |P $ {} (:at 1659524914379) (:by |u0) (:type :expr) + |D $ %{} :Leaf (:at 1659524911378) (:by |u0) (:text |v-scale) + |P $ %{} :Expr (:at 1659524914379) (:by |u0) :data $ {} - |T $ {} (:at 1659524914547) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1659524915405) (:by |u0) (:text |1) (:type :leaf) - |h $ {} (:at 1659524915695) (:by |u0) (:text |2) (:type :leaf) - |Y $ {} (:at 1659524917108) (:by |u0) (:text |3) (:type :leaf) - |h $ {} (:at 1659524923391) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659524914547) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1659524915405) (:by |u0) (:text |1) + |h $ %{} :Leaf (:at 1659524915695) (:by |u0) (:text |2) + |Y $ %{} :Leaf (:at 1659524917108) (:by |u0) (:text |3) + |h $ %{} :Expr (:at 1659524923391) (:by |u0) :data $ {} - |T $ {} (:at 1659524922932) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1659524924872) (:by |u0) (:text |3) (:type :leaf) - |h $ {} (:at 1659524925982) (:by |u0) (:text |6) (:type :leaf) - |l $ {} (:at 1659524886692) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659524922932) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1659524924872) (:by |u0) (:text |3) + |h $ %{} :Leaf (:at 1659524925982) (:by |u0) (:text |6) + |l $ %{} :Expr (:at 1659524886692) (:by |u0) :data $ {} - |T $ {} (:at 1659524886692) (:by |u0) (:text |is) (:type :leaf) - |b $ {} (:at 1659524886692) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659524886692) (:by |u0) (:text |is) + |b $ %{} :Expr (:at 1659524886692) (:by |u0) :data $ {} - |T $ {} (:at 1659524886692) (:by |u0) (:text |=) (:type :leaf) - |b $ {} (:at 1659524908786) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659524886692) (:by |u0) (:text |=) + |b $ %{} :Expr (:at 1659524908786) (:by |u0) :data $ {} - |D $ {} (:at 1659524911378) (:by |u0) (:text |v-scale) (:type :leaf) - |P $ {} (:at 1659524914379) (:by |u0) (:type :expr) + |D $ %{} :Leaf (:at 1659524911378) (:by |u0) (:text |v-scale) + |P $ %{} :Expr (:at 1659524914379) (:by |u0) :data $ {} - |T $ {} (:at 1659524914547) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1659524915405) (:by |u0) (:text |1) (:type :leaf) - |h $ {} (:at 1659524915695) (:by |u0) (:text |2) (:type :leaf) - |l $ {} (:at 1659524950703) (:by |u0) (:text |3) (:type :leaf) - |Y $ {} (:at 1659524951754) (:by |u0) (:text |4) (:type :leaf) - |h $ {} (:at 1659524923391) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1659524922932) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1659524956655) (:by |u0) (:text |4) (:type :leaf) - |h $ {} (:at 1659524957632) (:by |u0) (:text |8) (:type :leaf) - |l $ {} (:at 1659524959852) (:by |u0) (:text |12) (:type :leaf) - |o $ {} (:at 1659524886692) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1659524886692) (:by |u0) (:text |is) (:type :leaf) - |b $ {} (:at 1659524886692) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1659524886692) (:by |u0) (:text |=) (:type :leaf) - |b $ {} (:at 1659524908786) (:by |u0) (:type :expr) - :data $ {} - |D $ {} (:at 1659524911378) (:by |u0) (:text |v-scale) (:type :leaf) - |P $ {} (:at 1659524914379) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659524914547) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1659524915405) (:by |u0) (:text |1) + |h $ %{} :Leaf (:at 1659524915695) (:by |u0) (:text |2) + |l $ %{} :Leaf (:at 1659524950703) (:by |u0) (:text |3) + |Y $ %{} :Leaf (:at 1659524951754) (:by |u0) (:text |4) + |h $ %{} :Expr (:at 1659524923391) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524922932) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1659524956655) (:by |u0) (:text |4) + |h $ %{} :Leaf (:at 1659524957632) (:by |u0) (:text |8) + |l $ %{} :Leaf (:at 1659524959852) (:by |u0) (:text |12) + |o $ %{} :Expr (:at 1659524886692) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524886692) (:by |u0) (:text |is) + |b $ %{} :Expr (:at 1659524886692) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524886692) (:by |u0) (:text |=) + |b $ %{} :Expr (:at 1659524908786) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1659524911378) (:by |u0) (:text |v-scale) + |P $ %{} :Expr (:at 1659524914379) (:by |u0) :data $ {} - |T $ {} (:at 1659524914547) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1659524915405) (:by |u0) (:text |1) (:type :leaf) - |h $ {} (:at 1659524915695) (:by |u0) (:text |2) (:type :leaf) - |l $ {} (:at 1659524950703) (:by |u0) (:text |3) (:type :leaf) - |o $ {} (:at 1659524963643) (:by |u0) (:text |4) (:type :leaf) - |Y $ {} (:at 1659524964754) (:by |u0) (:text |5) (:type :leaf) - |h $ {} (:at 1659524923391) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1659524922932) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1659524966257) (:by |u0) (:text |5) (:type :leaf) - |h $ {} (:at 1659524967738) (:by |u0) (:text |10) (:type :leaf) - |l $ {} (:at 1659524970851) (:by |u0) (:text |15) (:type :leaf) - |o $ {} (:at 1659524972114) (:by |u0) (:text |20) (:type :leaf) - |q $ {} (:at 1672159211078) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1672159227824) (:by |u0) (:text |is) (:type :leaf) - |b $ {} (:at 1672159226315) (:by |u0) (:type :expr) - :data $ {} - |D $ {} (:at 1672159226901) (:by |u0) (:text |=) (:type :leaf) - |T $ {} (:at 1672159212485) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1672159216044) (:by |u0) (:text |c-scale) (:type :leaf) - |b $ {} (:at 1672159221930) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1659524914547) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1659524915405) (:by |u0) (:text |1) + |h $ %{} :Leaf (:at 1659524915695) (:by |u0) (:text |2) + |l $ %{} :Leaf (:at 1659524950703) (:by |u0) (:text |3) + |o $ %{} :Leaf (:at 1659524963643) (:by |u0) (:text |4) + |Y $ %{} :Leaf (:at 1659524964754) (:by |u0) (:text |5) + |h $ %{} :Expr (:at 1659524923391) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524922932) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1659524966257) (:by |u0) (:text |5) + |h $ %{} :Leaf (:at 1659524967738) (:by |u0) (:text |10) + |l $ %{} :Leaf (:at 1659524970851) (:by |u0) (:text |15) + |o $ %{} :Leaf (:at 1659524972114) (:by |u0) (:text |20) + |q $ %{} :Expr (:at 1672159211078) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672159227824) (:by |u0) (:text |is) + |b $ %{} :Expr (:at 1672159226315) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1672159226901) (:by |u0) (:text |=) + |T $ %{} :Expr (:at 1672159212485) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672159216044) (:by |u0) (:text |c-scale) + |b $ %{} :Expr (:at 1672159221930) (:by |u0) :data $ {} - |T $ {} (:at 1672159222115) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1672159222459) (:by |u0) (:text |1) (:type :leaf) - |h $ {} (:at 1672159222696) (:by |u0) (:text |2) (:type :leaf) - |h $ {} (:at 1672159225797) (:by |u0) (:text |3) (:type :leaf) - |b $ {} (:at 1672159229506) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1672159229795) (:by |u0) (:text |[]) (:type :leaf) - |b $ {} (:at 1672159236048) (:by |u0) (:text |3) (:type :leaf) - |h $ {} (:at 1672159233813) (:by |u0) (:text |6) (:type :leaf) - :ns $ {} (:at 1625339956346) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1672159222115) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672159222459) (:by |u0) (:text |1) + |h $ %{} :Leaf (:at 1672159222696) (:by |u0) (:text |2) + |h $ %{} :Leaf (:at 1672159225797) (:by |u0) (:text |3) + |b $ %{} :Expr (:at 1672159229506) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672159229795) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672159236048) (:by |u0) (:text |3) + |h $ %{} :Leaf (:at 1672159233813) (:by |u0) (:text |6) + :ns $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1625339956346) (:by |u0) :data $ {} - |T $ {} (:at 1625339956346) (:by |u0) (:text |ns) (:type :leaf) - |j $ {} (:at 1625339956346) (:by |u0) (:text |quaternion.test) (:type :leaf) - |r $ {} (:at 1625340009385) (:by |u0) (:type :expr) + |T $ %{} :Leaf (:at 1625339956346) (:by |u0) (:text |ns) + |j $ %{} :Leaf (:at 1625339956346) (:by |u0) (:text |quaternion.test) + |r $ %{} :Expr (:at 1625340009385) (:by |u0) :data $ {} - |T $ {} (:at 1625340010270) (:by |u0) (:text |:require) (:type :leaf) - |j $ {} (:at 1625340010573) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1625340015655) (:by |u0) (:text |calcit-test.core) (:type :leaf) - |j $ {} (:at 1625340016422) (:by |u0) (:text |:refer) (:type :leaf) - |r $ {} (:at 1625340016945) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1625340018567) (:by |u0) (:text |deftest) (:type :leaf) - |j $ {} (:at 1625340020648) (:by |u0) (:text |testing) (:type :leaf) - |r $ {} (:at 1625340021012) (:by |u0) (:text |is) (:type :leaf) - |v $ {} (:at 1625340040078) (:by |u0) (:text |*quit-on-failure?) (:type :leaf) - |n $ {} (:at 1658491621213) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658491626471) (:by |u0) (:text |quaternion.core) (:type :leaf) - |b $ {} (:at 1658491627109) (:by |u0) (:text |:refer) (:type :leaf) - |h $ {} (:at 1658491627388) (:by |u0) (:type :expr) - :data $ {} - |T $ {} (:at 1658491632530) (:by |u0) (:text |&q*) (:type :leaf) - |b $ {} (:at 1659524935822) (:by |u0) (:text |v-scale) (:type :leaf) - |h $ {} (:at 1672158400562) (:by |u0) (:text |c+) (:type :leaf) - |l $ {} (:at 1672158403539) (:by |u0) (:text |c*) (:type :leaf) - |o $ {} (:at 1672158697021) (:by |u0) (:text |&c*) (:type :leaf) - |q $ {} (:at 1672159218858) (:by |u0) (:text |c-scale) (:type :leaf) - :proc $ {} (:at 1625339956346) (:by |u0) (:type :expr) - :data $ {} + |T $ %{} :Leaf (:at 1625340010270) (:by |u0) (:text |:require) + |j $ %{} :Expr (:at 1625340010573) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1625340015655) (:by |u0) (:text |calcit-test.core) + |j $ %{} :Leaf (:at 1625340016422) (:by |u0) (:text |:refer) + |r $ %{} :Expr (:at 1625340016945) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1625340018567) (:by |u0) (:text |deftest) + |j $ %{} :Leaf (:at 1625340020648) (:by |u0) (:text |testing) + |r $ %{} :Leaf (:at 1625340021012) (:by |u0) (:text |is) + |v $ %{} :Leaf (:at 1625340040078) (:by |u0) (:text |*quit-on-failure?) + |n $ %{} :Expr (:at 1658491621213) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658491626471) (:by |u0) (:text |quaternion.core) + |b $ %{} :Leaf (:at 1658491627109) (:by |u0) (:text |:refer) + |h $ %{} :Expr (:at 1658491627388) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658491632530) (:by |u0) (:text |&q*) + |b $ %{} :Leaf (:at 1659524935822) (:by |u0) (:text |v-scale) + |h $ %{} :Leaf (:at 1672158400562) (:by |u0) (:text |c+) + |l $ %{} :Leaf (:at 1672158403539) (:by |u0) (:text |c*) + |o $ %{} :Leaf (:at 1672158697021) (:by |u0) (:text |&c*) + |q $ %{} :Leaf (:at 1672159218858) (:by |u0) (:text |c-scale) + :ir $ {} (:package |quaternion) + :files $ {} + |quaternion.core $ {} + :defs $ {} + |&c* $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&c*) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let-sugar) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y0) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y1) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158898970) (:by |u0) (:text |&-) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158903637) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x1) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158906627) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y1) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158901524) (:by |u0) (:text |&+) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158911006) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y1) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158908195) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y0) + |&c+ $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&c+) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let-sugar) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y0) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y1) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158890719) (:by |u0) (:text |&+) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x1) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158892673) (:by |u0) (:text |&+) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y1) + |&c- $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&c-) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let-sugar) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y0) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y1) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587213358) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x1) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587215361) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y1) + |&q* $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&q*) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |j $ %{} :Expr (:at 1658491111089) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687541232367) (:by |u0) (:text |doc-fn) + |b $ %{} :Leaf (:at 1658491111089) (:by |u0) (:text "|\"w placed at last element") + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490866200) (:by |u0) (:text |let-sugar) + |a $ %{} :Expr (:at 1658490866653) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1658490874303) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1658490866766) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490867163) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490868714) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1658490870101) (:by |u0) (:text |y1) + |l $ %{} :Leaf (:at 1658490871145) (:by |u0) (:text |z1) + |o $ %{} :Leaf (:at 1658490873307) (:by |u0) (:text |w1) + |b $ %{} :Leaf (:at 1658490877011) (:by |u0) (:text |a) + |b $ %{} :Expr (:at 1658490874303) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1658490866766) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490867163) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490880297) (:by |u0) (:text |x2) + |h $ %{} :Leaf (:at 1658490881162) (:by |u0) (:text |y2) + |l $ %{} :Leaf (:at 1658490883388) (:by |u0) (:text |z2) + |o $ %{} :Leaf (:at 1658490882525) (:by |u0) (:text |w2) + |b $ %{} :Leaf (:at 1658491116996) (:by |u0) (:text |b) + |g $ %{} :Expr (:at 1658490885932) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490889085) (:by |u0) (:text |[]) + |X $ %{} :Expr (:at 1658490924319) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490925594) (:by |u0) (:text |->) + |b $ %{} :Expr (:at 1658490926793) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490927430) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490932033) (:by |u0) (:text |w1) + |h $ %{} :Leaf (:at 1658490973809) (:by |u0) (:text |x2) + |h $ %{} :Expr (:at 1658490934662) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658491142746) (:by |u0) (:text |&+) + |b $ %{} :Expr (:at 1658490938525) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490939760) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490941863) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1658490943763) (:by |u0) (:text |w2) + |l $ %{} :Expr (:at 1658490934662) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490948263) (:by |u0) (:text |&+) + |b $ %{} :Expr (:at 1658490938525) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490939760) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490953307) (:by |u0) (:text |y1) + |h $ %{} :Leaf (:at 1658490955014) (:by |u0) (:text |z2) + |o $ %{} :Expr (:at 1658490934662) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490962973) (:by |u0) (:text |&-) + |b $ %{} :Expr (:at 1658490938525) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490939760) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490964929) (:by |u0) (:text |z1) + |h $ %{} :Leaf (:at 1658490966428) (:by |u0) (:text |y2) + |Z $ %{} :Expr (:at 1658490924319) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490925594) (:by |u0) (:text |->) + |b $ %{} :Expr (:at 1658490926793) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490927430) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490932033) (:by |u0) (:text |w1) + |h $ %{} :Leaf (:at 1658490982067) (:by |u0) (:text |y2) + |h $ %{} :Expr (:at 1658490934662) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490938162) (:by |u0) (:text |&-) + |b $ %{} :Expr (:at 1658490938525) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490939760) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490941863) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1658491020306) (:by |u0) (:text |z2) + |l $ %{} :Expr (:at 1658490934662) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490948263) (:by |u0) (:text |&+) + |b $ %{} :Expr (:at 1658490938525) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490939760) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658491018413) (:by |u0) (:text |y1) + |h $ %{} :Leaf (:at 1658490991985) (:by |u0) (:text |w2) + |o $ %{} :Expr (:at 1658490934662) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658491164029) (:by |u0) (:text |&+) + |b $ %{} :Expr (:at 1658490938525) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490939760) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490996688) (:by |u0) (:text |z1) + |h $ %{} :Leaf (:at 1658490997855) (:by |u0) (:text |x2) + |a $ %{} :Expr (:at 1658490924319) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490925594) (:by |u0) (:text |->) + |b $ %{} :Expr (:at 1658490926793) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490927430) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490932033) (:by |u0) (:text |w1) + |h $ %{} :Leaf (:at 1658491040492) (:by |u0) (:text |z2) + |h $ %{} :Expr (:at 1658490934662) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658491044866) (:by |u0) (:text |&+) + |b $ %{} :Expr (:at 1658490938525) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490939760) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490941863) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1658491047939) (:by |u0) (:text |y2) + |l $ %{} :Expr (:at 1658490934662) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658491053860) (:by |u0) (:text |&-) + |b $ %{} :Expr (:at 1658490938525) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490939760) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658491067420) (:by |u0) (:text |y1) + |h $ %{} :Leaf (:at 1658491069268) (:by |u0) (:text |x2) + |o $ %{} :Expr (:at 1658490934662) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658491055365) (:by |u0) (:text |&+) + |b $ %{} :Expr (:at 1658490938525) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490939760) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658491073299) (:by |u0) (:text |z1) + |h $ %{} :Leaf (:at 1658491074649) (:by |u0) (:text |w2) + |b $ %{} :Expr (:at 1658490890021) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490893199) (:by |u0) (:text |->) + |b $ %{} :Expr (:at 1658490893773) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490894821) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490898015) (:by |u0) (:text |w1) + |h $ %{} :Leaf (:at 1658490900083) (:by |u0) (:text |w2) + |h $ %{} :Expr (:at 1658490900796) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490903560) (:by |u0) (:text |&-) + |b $ %{} :Expr (:at 1658490904053) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490904598) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490906847) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1658490907659) (:by |u0) (:text |x2) + |l $ %{} :Expr (:at 1658490900796) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490903560) (:by |u0) (:text |&-) + |b $ %{} :Expr (:at 1658490904053) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490904598) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490914147) (:by |u0) (:text |y1) + |h $ %{} :Leaf (:at 1658490915390) (:by |u0) (:text |y2) + |o $ %{} :Expr (:at 1658490900796) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490903560) (:by |u0) (:text |&-) + |b $ %{} :Expr (:at 1658490904053) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490904598) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490920258) (:by |u0) (:text |z1) + |h $ %{} :Leaf (:at 1658490921729) (:by |u0) (:text |z2) + |&q+ $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&q+) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let-sugar) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |l $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |o $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y1) + |l $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z1) + |o $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w1) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158933140) (:by |u0) (:text |&+) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x1) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158935509) (:by |u0) (:text |&+) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y1) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158936283) (:by |u0) (:text |&+) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z1) + |o $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158938122) (:by |u0) (:text |&+) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w1) + |&q- $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&q-) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let-sugar) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |l $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |o $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y1) + |l $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z1) + |o $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w1) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158947350) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x1) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158948561) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y1) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158949444) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z1) + |o $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158950091) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w1) + |&v+ $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&v+) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x2) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y2) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z2) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&+) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x2) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&+) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y2) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&+) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z2) + |&v- $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&v-) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x2) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y2) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z2) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |b) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x2) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y2) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z2) + |c* $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1672158354635) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158354635) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1672158354635) (:by |u0) (:text |c*) + |h $ %{} :Expr (:at 1672158366507) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158366507) (:by |u0) (:text |&) + |b $ %{} :Leaf (:at 1672158366507) (:by |u0) (:text |xs) + |l $ %{} :Expr (:at 1672158366507) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158366507) (:by |u0) (:text |foldl) + |b $ %{} :Expr (:at 1672158592836) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1672158595330) (:by |u0) (:text |rest) + |T $ %{} :Leaf (:at 1672158366507) (:by |u0) (:text |xs) + |g $ %{} :Expr (:at 1672158598146) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158598951) (:by |u0) (:text |first) + |b $ %{} :Leaf (:at 1672158599938) (:by |u0) (:text |xs) + |l $ %{} :Expr (:at 1672158366507) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158366507) (:by |u0) (:text |fn) + |b $ %{} :Expr (:at 1672158366507) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158366507) (:by |u0) (:text |acc) + |b $ %{} :Leaf (:at 1672158366507) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1672158366507) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158511951) (:by |u0) (:text |&c*) + |b $ %{} :Leaf (:at 1672158366507) (:by |u0) (:text |acc) + |h $ %{} :Leaf (:at 1672158366507) (:by |u0) (:text |x) + |c+ $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1672158328455) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158328455) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1672158328455) (:by |u0) (:text |c+) + |h $ %{} :Expr (:at 1672158333053) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158333053) (:by |u0) (:text |&) + |b $ %{} :Leaf (:at 1672158333053) (:by |u0) (:text |xs) + |l $ %{} :Expr (:at 1672158333053) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158333053) (:by |u0) (:text |foldl) + |b $ %{} :Expr (:at 1672158878695) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1672158879903) (:by |u0) (:text |rest) + |T $ %{} :Leaf (:at 1672158333053) (:by |u0) (:text |xs) + |g $ %{} :Expr (:at 1672158873771) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158875952) (:by |u0) (:text |first) + |b $ %{} :Leaf (:at 1672158877389) (:by |u0) (:text |xs) + |l $ %{} :Expr (:at 1672158333053) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158333053) (:by |u0) (:text |fn) + |b $ %{} :Expr (:at 1672158333053) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158333053) (:by |u0) (:text |acc) + |b $ %{} :Leaf (:at 1672158333053) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1672158333053) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158338131) (:by |u0) (:text |&c+) + |b $ %{} :Leaf (:at 1672158333053) (:by |u0) (:text |acc) + |h $ %{} :Leaf (:at 1672158333053) (:by |u0) (:text |x) + |c-conjutate $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |c-conjutate) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |c-length $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |c-length) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587624937) (:by |u0) (:text |sqrt) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158959991) (:by |u0) (:text |&+) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587618717) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1687587620115) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587621788) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1687587623104) (:by |u0) (:text |y) + |c-length2 $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |c-length2) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158921539) (:by |u0) (:text |&+) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587250956) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |e $ %{} :Leaf (:at 1687587252390) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587255430) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1687587256991) (:by |u0) (:text |y) + |c-scale $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1672159178398) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672159178398) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1672159178398) (:by |u0) (:text |c-scale) + |h $ %{} :Expr (:at 1672159191632) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |v) + |b $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |n) + |l $ %{} :Expr (:at 1672159191632) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1672159191632) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |v) + |l $ %{} :Expr (:at 1672159191632) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1672159191632) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1672159191632) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1672159191632) (:by |u0) (:text |y) + |q+ $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |q+) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |xs) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |foldl) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |xs) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |0) + |l $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |0) + |o $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |0) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |fn) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |acc) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&q+) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |acc) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |q- $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |q-) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |xs) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |foldl) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |rest) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |xs) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |first) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |xs) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |fn) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |acc) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&q-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |acc) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |q-conjugate $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |q-conjugate) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |l $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |o $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |q-inverse $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |q-inverse) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |l $ %{} :Expr (:at 1687587318489) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1687587319230) (:by |u0) (:text |let) + |L $ %{} :Expr (:at 1687587320538) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1687587320671) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1687587323191) (:by |u0) (:text |l) + |T $ %{} :Expr (:at 1687587322139) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587322139) (:by |u0) (:text |q-length2) + |b $ %{} :Leaf (:at 1687587322139) (:by |u0) (:text |a) + |P $ %{} :Expr (:at 1687587327364) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587327753) (:by |u0) (:text |if) + |b $ %{} :Expr (:at 1687587330701) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1687587331800) (:by |u0) (:text |&=) + |T $ %{} :Leaf (:at 1687587329646) (:by |u0) (:text |l) + |b $ %{} :Leaf (:at 1687587333369) (:by |u0) (:text |0) + |h $ %{} :Expr (:at 1687587334235) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587337379) (:by |u0) (:text |eprintln) + |b $ %{} :Leaf (:at 1687587350571) (:by |u0) (:text "|\"length is zero:") + |h $ %{} :Leaf (:at 1687587348037) (:by |u0) (:text |a) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |q-scale) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |q-conjugate) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&/) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |1) + |h $ %{} :Leaf (:at 1687587325927) (:by |u0) (:text |l) + |q-length $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |q-length) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |l $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |sqrt) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587936865) (:by |u0) (:text |->) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587946892) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1687587948426) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1687587937959) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1687587940052) (:by |u0) (:text |&+) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587950219) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1687587951358) (:by |u0) (:text |y) + |l $ %{} :Expr (:at 1687587940959) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1687587942202) (:by |u0) (:text |&+) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587952970) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |h $ %{} :Leaf (:at 1687587956158) (:by |u0) (:text |z) + |o $ %{} :Expr (:at 1687587943175) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1687587944318) (:by |u0) (:text |&+) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587955077) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |h $ %{} :Leaf (:at 1687587956870) (:by |u0) (:text |w) + |q-length2 $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |q-length2) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |l $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |a) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587968482) (:by |u0) (:text |->) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587286488) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1687587287743) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1687587969547) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1687587972189) (:by |u0) (:text |&+) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587290719) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1687587291769) (:by |u0) (:text |y) + |l $ %{} :Expr (:at 1687587973704) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1687587974234) (:by |u0) (:text |&+) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587293172) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |h $ %{} :Leaf (:at 1687587294473) (:by |u0) (:text |z) + |o $ %{} :Expr (:at 1687587975109) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1687587975655) (:by |u0) (:text |&+) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587296266) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |h $ %{} :Leaf (:at 1687587297724) (:by |u0) (:text |w) + |q-scale $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |q-scale) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |l $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |o $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |v+ $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v+) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |xs) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |foldl) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |xs) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |0) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |0) + |l $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |0) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |fn) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |acc) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&v+) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |acc) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |v- $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v-) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |xs) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |foldl) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |rest) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |xs) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |first) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |xs) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |fn) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |acc) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&v-) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |acc) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |v-cross $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |v-cross) + |h $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |v1) + |b $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |v2) + |l $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |let-sugar) + |b $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |y1) + |l $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |z1) + |b $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |v1) + |b $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |x2) + |h $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |y2) + |l $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |z2) + |b $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |v2) + |h $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |&-) + |b $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |y1) + |h $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |z2) + |h $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |y2) + |h $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |z1) + |h $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |&-) + |b $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |x2) + |h $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |z1) + |h $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |z2) + |l $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |&-) + |b $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |y2) + |h $ %{} :Expr (:at 1659691903601) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |x2) + |h $ %{} :Leaf (:at 1659691903601) (:by |u0) (:text |y1) + |v-dot $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1659691882443) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |v-dot) + |h $ %{} :Expr (:at 1659691882443) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |v1) + |b $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |v2) + |l $ %{} :Expr (:at 1659691882443) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |let-sugar) + |b $ %{} :Expr (:at 1659691882443) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1659691882443) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1659691882443) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |y1) + |l $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |z1) + |b $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |v1) + |b $ %{} :Expr (:at 1659691882443) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1659691882443) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |x2) + |h $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |y2) + |l $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |z2) + |b $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |v2) + |h $ %{} :Expr (:at 1659691882443) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587410920) (:by |u0) (:text |->) + |b $ %{} :Expr (:at 1659691882443) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |x1) + |h $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |x2) + |h $ %{} :Expr (:at 1687587411728) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1687587413492) (:by |u0) (:text |&+) + |T $ %{} :Expr (:at 1659691882443) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |y1) + |h $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |y2) + |l $ %{} :Expr (:at 1687587415720) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1687587417884) (:by |u0) (:text |&+) + |T $ %{} :Expr (:at 1659691882443) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |z1) + |h $ %{} :Leaf (:at 1659691882443) (:by |u0) (:text |z2) + |v-length $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1659691959012) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |v-length) + |h $ %{} :Expr (:at 1659691959012) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |a) + |l $ %{} :Expr (:at 1659691959012) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |let-sugar) + |b $ %{} :Expr (:at 1659691959012) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1659691959012) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1659691959012) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |y) + |l $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |z) + |b $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |a) + |h $ %{} :Expr (:at 1659691959012) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |sqrt) + |b $ %{} :Expr (:at 1659691959012) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687588026913) (:by |u0) (:text |->) + |b $ %{} :Expr (:at 1659691959012) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587377107) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1687587378352) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1687587396566) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1687587398469) (:by |u0) (:text |&+) + |T $ %{} :Expr (:at 1659691959012) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587379662) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1687587381557) (:by |u0) (:text |y) + |l $ %{} :Expr (:at 1687587399549) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1687587401134) (:by |u0) (:text |&+) + |T $ %{} :Expr (:at 1659691959012) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587384088) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691959012) (:by |u0) (:text |z) + |h $ %{} :Leaf (:at 1687587385087) (:by |u0) (:text |z) + |v-normalize $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1659691922768) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |v-normalize) + |h $ %{} :Expr (:at 1659691922768) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |v) + |l $ %{} :Expr (:at 1659691922768) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1659691922768) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |z) + |h $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |v) + |l $ %{} :Expr (:at 1659691922768) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |let) + |b $ %{} :Expr (:at 1659691922768) (:by |u0) + :data $ {} + |T $ %{} :Expr (:at 1659691922768) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |length) + |b $ %{} :Expr (:at 1659691922768) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |sqrt) + |b $ %{} :Expr (:at 1659691922768) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587542737) (:by |u0) (:text |->) + |b $ %{} :Expr (:at 1687587543618) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |x) + |h $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1687587544902) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1687587546674) (:by |u0) (:text |&+) + |T $ %{} :Expr (:at 1659691922768) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |y) + |l $ %{} :Expr (:at 1687587547785) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1687587549815) (:by |u0) (:text |&+) + |T $ %{} :Expr (:at 1659691922768) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |z) + |h $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |z) + |e $ %{} :Expr (:at 1687587553654) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587554112) (:by |u0) (:text |if) + |b $ %{} :Expr (:at 1687587555378) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587557375) (:by |u0) (:text |&=) + |b $ %{} :Leaf (:at 1687587559171) (:by |u0) (:text |length) + |h $ %{} :Leaf (:at 1687587559766) (:by |u0) (:text |0) + |h $ %{} :Expr (:at 1687587565218) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587566747) (:by |u0) (:text |eprintln) + |b $ %{} :Leaf (:at 1687587874263) (:by |u0) (:text "|\"Unexpected zero length:") + |h $ %{} :Leaf (:at 1687587583743) (:by |u0) (:text |length) + |h $ %{} :Expr (:at 1659691922768) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |v-scale) + |b $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |v) + |h $ %{} :Expr (:at 1659691922768) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1687587551815) (:by |u0) (:text |&/) + |b $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |1) + |h $ %{} :Leaf (:at 1659691922768) (:by |u0) (:text |length) + |v-scale $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v-scale) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |l $ %{} :Expr (:at 1659524782429) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1659524785313) (:by |u0) (:text |case-default) + |L $ %{} :Expr (:at 1659524788130) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524788779) (:by |u0) (:text |count) + |b $ %{} :Leaf (:at 1659524789073) (:by |u0) (:text |v) + |T $ %{} :Expr (:at 1659524841066) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524843170) (:by |u0) (:text |raise) + |b $ %{} :Expr (:at 1659524850389) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1659524851203) (:by |u0) (:text |str) + |T $ %{} :Leaf (:at 1659524854065) (:by |u0) (:text "|\"unknown vector: ") + |b $ %{} :Leaf (:at 1659524851893) (:by |u0) (:text |v) + |b $ %{} :Expr (:at 1659524792412) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1659524793414) (:by |u0) (:text |4) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |l $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |w) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |o $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1659524821418) (:by |u0) (:text |w) + |h $ %{} :Expr (:at 1659524792412) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1659524809034) (:by |u0) (:text |3) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |l $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |z) + |l $ %{} :Expr (:at 1659524792412) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1659524824419) (:by |u0) (:text |2) + |T $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |let[]) + |b $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |x) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |y) + |h $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |v) + |l $ %{} :Expr (:at 1659524832791) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524832791) (:by |u0) (:text |[]) + |b $ %{} :Expr (:at 1659524832791) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524832791) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659524832791) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1659524832791) (:by |u0) (:text |x) + |h $ %{} :Expr (:at 1659524832791) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524832791) (:by |u0) (:text |&*) + |b $ %{} :Leaf (:at 1659524832791) (:by |u0) (:text |n) + |h $ %{} :Leaf (:at 1659524832791) (:by |u0) (:text |y) + :ns $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1658490540128) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |ns) + |b $ %{} :Leaf (:at 1658490540128) (:by |u0) (:text |quaternion.core) + |quaternion.test $ {} + :configs $ {} + :defs $ {} + |main! $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1651385630841) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1651385630841) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1651385630841) (:by |u0) (:text |main!) + |h $ %{} :Expr (:at 1651385630841) (:by |u0) + :data $ {} + |l $ %{} :Expr (:at 1651385633767) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1651385635804) (:by |u0) (:text |run-tests) + |reload! $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1651385641606) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1651385641606) (:by |u0) (:text |defn) + |b $ %{} :Leaf (:at 1651385641606) (:by |u0) (:text |reload!) + |h $ %{} :Expr (:at 1651385641606) (:by |u0) + :data $ {} + |l $ %{} :Expr (:at 1651385642773) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1651385643658) (:by |u0) (:text |println) + |b $ %{} :Leaf (:at 1659524996297) (:by |u0) (:text "|\"reload...") + |o $ %{} :Expr (:at 1659524982610) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524988891) (:by |u0) (:text |run-tests) + |run-tests $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1625339970921) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1625339972421) (:by |u0) (:text |defn) + |j $ %{} :Leaf (:at 1625339970921) (:by |u0) (:text |run-tests) + |r $ %{} :Expr (:at 1625339970921) (:by |u0) + :data $ {} + |t $ %{} :Expr (:at 1625340033281) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1625340034982) (:by |u0) (:text |reset!) + |j $ %{} :Leaf (:at 1625340036265) (:by |u0) (:text |*quit-on-failure?) + |r $ %{} :Leaf (:at 1625340037959) (:by |u0) (:text |true) + |v $ %{} :Expr (:at 1625339973401) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1625339982550) (:by |u0) (:text |test-add) + |w $ %{} :Expr (:at 1659524862313) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524868944) (:by |u0) (:text |test-v-scale) + |x $ %{} :Expr (:at 1672158639858) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158863953) (:by |u0) (:text |test-multiply) + |test-add $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1625339983101) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1625339986557) (:by |u0) (:text |deftest) + |j $ %{} :Leaf (:at 1625339983101) (:by |u0) (:text |test-add) + |r $ %{} :Expr (:at 1625340048519) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1625340049484) (:by |u0) (:text |testing) + |j $ %{} :Leaf (:at 1672158413268) (:by |u0) (:text "||add quaternion") + |r $ %{} :Expr (:at 1625340054484) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1625340055860) (:by |u0) (:text |is) + |j $ %{} :Expr (:at 1625340056137) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1625340056311) (:by |u0) (:text |=) + |j $ %{} :Expr (:at 1658491742078) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658491742078) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1658491742078) (:by |u0) (:text |12) + |h $ %{} :Leaf (:at 1658491742078) (:by |u0) (:text |30) + |l $ %{} :Leaf (:at 1658491742078) (:by |u0) (:text |24) + |o $ %{} :Leaf (:at 1658491742078) (:by |u0) (:text |-60) + |r $ %{} :Expr (:at 1625340057796) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658491641263) (:by |u0) (:text |&q*) + |j $ %{} :Expr (:at 1658491642189) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658491642493) (:by |u0) (:text |[]) + |h $ %{} :Leaf (:at 1658491643158) (:by |u0) (:text |2) + |l $ %{} :Leaf (:at 1658491643489) (:by |u0) (:text |3) + |o $ %{} :Leaf (:at 1658491643793) (:by |u0) (:text |4) + |q $ %{} :Leaf (:at 1658491708525) (:by |u0) (:text |1) + |r $ %{} :Expr (:at 1658491645375) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658491645595) (:by |u0) (:text |[]) + |l $ %{} :Leaf (:at 1658491649413) (:by |u0) (:text |6) + |m $ %{} :Leaf (:at 1658491654190) (:by |u0) (:text |7) + |o $ %{} :Leaf (:at 1658491648117) (:by |u0) (:text |8) + |q $ %{} :Leaf (:at 1658491713020) (:by |u0) (:text |5) + |t $ %{} :Expr (:at 1672158414156) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158415760) (:by |u0) (:text |testing) + |b $ %{} :Leaf (:at 1672158419666) (:by |u0) (:text "|\"add complex") + |h $ %{} :Expr (:at 1672158420806) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158421167) (:by |u0) (:text |is) + |b $ %{} :Expr (:at 1672158421767) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158421874) (:by |u0) (:text |=) + |b $ %{} :Expr (:at 1672158425146) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158424822) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158442324) (:by |u0) (:text |9) + |h $ %{} :Leaf (:at 1672158445886) (:by |u0) (:text |12) + |h $ %{} :Expr (:at 1672158428343) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158431587) (:by |u0) (:text |c+) + |b $ %{} :Expr (:at 1672158432492) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158432691) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158433195) (:by |u0) (:text |1) + |h $ %{} :Leaf (:at 1672158433435) (:by |u0) (:text |2) + |h $ %{} :Expr (:at 1672158433942) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158434317) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158435303) (:by |u0) (:text |3) + |h $ %{} :Leaf (:at 1672158435561) (:by |u0) (:text |4) + |l $ %{} :Expr (:at 1672158436027) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158437346) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158438300) (:by |u0) (:text |5) + |h $ %{} :Leaf (:at 1672158438562) (:by |u0) (:text |6) + |l $ %{} :Expr (:at 1672158420806) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158421167) (:by |u0) (:text |is) + |b $ %{} :Expr (:at 1672158421767) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158421874) (:by |u0) (:text |=) + |b $ %{} :Expr (:at 1672158425146) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158424822) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158459441) (:by |u0) (:text |4) + |h $ %{} :Leaf (:at 1672158460986) (:by |u0) (:text |6) + |h $ %{} :Expr (:at 1672158428343) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158431587) (:by |u0) (:text |c+) + |b $ %{} :Expr (:at 1672158432492) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158432691) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158433195) (:by |u0) (:text |1) + |h $ %{} :Leaf (:at 1672158433435) (:by |u0) (:text |2) + |h $ %{} :Expr (:at 1672158433942) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158434317) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158435303) (:by |u0) (:text |3) + |h $ %{} :Leaf (:at 1672158435561) (:by |u0) (:text |4) + |test-multiply $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1672158642870) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158644426) (:by |u0) (:text |deftest) + |b $ %{} :Leaf (:at 1672158642870) (:by |u0) (:text |test-multiply) + |h $ %{} :Expr (:at 1672158646492) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |testing) + |b $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text "|\"multiply complex") + |e $ %{} :Expr (:at 1672158681933) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158682496) (:by |u0) (:text |is) + |b $ %{} :Expr (:at 1672158683110) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158683206) (:by |u0) (:text |=) + |b $ %{} :Expr (:at 1672158684764) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158684478) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158722855) (:by |u0) (:text |-5) + |h $ %{} :Leaf (:at 1672158745623) (:by |u0) (:text |10) + |h $ %{} :Expr (:at 1672158685856) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158687456) (:by |u0) (:text |&c*) + |b $ %{} :Expr (:at 1672158687917) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158688091) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158688407) (:by |u0) (:text |1) + |h $ %{} :Leaf (:at 1672158688644) (:by |u0) (:text |2) + |h $ %{} :Expr (:at 1672158689314) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158689618) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158690373) (:by |u0) (:text |3) + |h $ %{} :Leaf (:at 1672158690636) (:by |u0) (:text |4) + |h $ %{} :Expr (:at 1672158646492) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |is) + |b $ %{} :Expr (:at 1672158646492) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |=) + |b $ %{} :Expr (:at 1672158748639) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158748639) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158748639) (:by |u0) (:text |-5) + |h $ %{} :Leaf (:at 1672158748639) (:by |u0) (:text |10) + |h $ %{} :Expr (:at 1672158646492) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |c*) + |b $ %{} :Expr (:at 1672158646492) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |1) + |h $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |2) + |h $ %{} :Expr (:at 1672158646492) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |3) + |h $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |4) + |l $ %{} :Expr (:at 1672158646492) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |is) + |b $ %{} :Expr (:at 1672158646492) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |=) + |b $ %{} :Expr (:at 1672158748639) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158748639) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158850166) (:by |u0) (:text |-85) + |h $ %{} :Leaf (:at 1672158851401) (:by |u0) (:text |20) + |h $ %{} :Expr (:at 1672158646492) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |c*) + |b $ %{} :Expr (:at 1672158646492) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |1) + |h $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |2) + |h $ %{} :Expr (:at 1672158646492) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |3) + |h $ %{} :Leaf (:at 1672158646492) (:by |u0) (:text |4) + |l $ %{} :Expr (:at 1672158755393) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672158755812) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672158757046) (:by |u0) (:text |5) + |h $ %{} :Leaf (:at 1672158758230) (:by |u0) (:text |6) + |test-v-scale $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1659524886692) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524886692) (:by |u0) (:text |deftest) + |b $ %{} :Leaf (:at 1659524902272) (:by |u0) (:text |test-v-scale) + |h $ %{} :Expr (:at 1659524886692) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524886692) (:by |u0) (:text |testing) + |b $ %{} :Leaf (:at 1659524906116) (:by |u0) (:text ||v-scale) + |h $ %{} :Expr (:at 1659524886692) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524886692) (:by |u0) (:text |is) + |b $ %{} :Expr (:at 1659524886692) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524886692) (:by |u0) (:text |=) + |b $ %{} :Expr (:at 1659524908786) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1659524911378) (:by |u0) (:text |v-scale) + |P $ %{} :Expr (:at 1659524914379) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524914547) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1659524915405) (:by |u0) (:text |1) + |h $ %{} :Leaf (:at 1659524915695) (:by |u0) (:text |2) + |Y $ %{} :Leaf (:at 1659524917108) (:by |u0) (:text |3) + |h $ %{} :Expr (:at 1659524923391) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524922932) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1659524924872) (:by |u0) (:text |3) + |h $ %{} :Leaf (:at 1659524925982) (:by |u0) (:text |6) + |l $ %{} :Expr (:at 1659524886692) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524886692) (:by |u0) (:text |is) + |b $ %{} :Expr (:at 1659524886692) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524886692) (:by |u0) (:text |=) + |b $ %{} :Expr (:at 1659524908786) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1659524911378) (:by |u0) (:text |v-scale) + |P $ %{} :Expr (:at 1659524914379) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524914547) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1659524915405) (:by |u0) (:text |1) + |h $ %{} :Leaf (:at 1659524915695) (:by |u0) (:text |2) + |l $ %{} :Leaf (:at 1659524950703) (:by |u0) (:text |3) + |Y $ %{} :Leaf (:at 1659524951754) (:by |u0) (:text |4) + |h $ %{} :Expr (:at 1659524923391) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524922932) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1659524956655) (:by |u0) (:text |4) + |h $ %{} :Leaf (:at 1659524957632) (:by |u0) (:text |8) + |l $ %{} :Leaf (:at 1659524959852) (:by |u0) (:text |12) + |o $ %{} :Expr (:at 1659524886692) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524886692) (:by |u0) (:text |is) + |b $ %{} :Expr (:at 1659524886692) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524886692) (:by |u0) (:text |=) + |b $ %{} :Expr (:at 1659524908786) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1659524911378) (:by |u0) (:text |v-scale) + |P $ %{} :Expr (:at 1659524914379) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524914547) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1659524915405) (:by |u0) (:text |1) + |h $ %{} :Leaf (:at 1659524915695) (:by |u0) (:text |2) + |l $ %{} :Leaf (:at 1659524950703) (:by |u0) (:text |3) + |o $ %{} :Leaf (:at 1659524963643) (:by |u0) (:text |4) + |Y $ %{} :Leaf (:at 1659524964754) (:by |u0) (:text |5) + |h $ %{} :Expr (:at 1659524923391) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1659524922932) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1659524966257) (:by |u0) (:text |5) + |h $ %{} :Leaf (:at 1659524967738) (:by |u0) (:text |10) + |l $ %{} :Leaf (:at 1659524970851) (:by |u0) (:text |15) + |o $ %{} :Leaf (:at 1659524972114) (:by |u0) (:text |20) + |q $ %{} :Expr (:at 1672159211078) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672159227824) (:by |u0) (:text |is) + |b $ %{} :Expr (:at 1672159226315) (:by |u0) + :data $ {} + |D $ %{} :Leaf (:at 1672159226901) (:by |u0) (:text |=) + |T $ %{} :Expr (:at 1672159212485) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672159216044) (:by |u0) (:text |c-scale) + |b $ %{} :Expr (:at 1672159221930) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672159222115) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672159222459) (:by |u0) (:text |1) + |h $ %{} :Leaf (:at 1672159222696) (:by |u0) (:text |2) + |h $ %{} :Leaf (:at 1672159225797) (:by |u0) (:text |3) + |b $ %{} :Expr (:at 1672159229506) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1672159229795) (:by |u0) (:text |[]) + |b $ %{} :Leaf (:at 1672159236048) (:by |u0) (:text |3) + |h $ %{} :Leaf (:at 1672159233813) (:by |u0) (:text |6) + :ns $ %{} :CodeEntry (:doc |) + :code $ %{} :Expr (:at 1625339956346) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1625339956346) (:by |u0) (:text |ns) + |j $ %{} :Leaf (:at 1625339956346) (:by |u0) (:text |quaternion.test) + |r $ %{} :Expr (:at 1625340009385) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1625340010270) (:by |u0) (:text |:require) + |j $ %{} :Expr (:at 1625340010573) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1625340015655) (:by |u0) (:text |calcit-test.core) + |j $ %{} :Leaf (:at 1625340016422) (:by |u0) (:text |:refer) + |r $ %{} :Expr (:at 1625340016945) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1625340018567) (:by |u0) (:text |deftest) + |j $ %{} :Leaf (:at 1625340020648) (:by |u0) (:text |testing) + |r $ %{} :Leaf (:at 1625340021012) (:by |u0) (:text |is) + |v $ %{} :Leaf (:at 1625340040078) (:by |u0) (:text |*quit-on-failure?) + |n $ %{} :Expr (:at 1658491621213) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658491626471) (:by |u0) (:text |quaternion.core) + |b $ %{} :Leaf (:at 1658491627109) (:by |u0) (:text |:refer) + |h $ %{} :Expr (:at 1658491627388) (:by |u0) + :data $ {} + |T $ %{} :Leaf (:at 1658491632530) (:by |u0) (:text |&q*) + |b $ %{} :Leaf (:at 1659524935822) (:by |u0) (:text |v-scale) + |h $ %{} :Leaf (:at 1672158400562) (:by |u0) (:text |c+) + |l $ %{} :Leaf (:at 1672158403539) (:by |u0) (:text |c*) + |o $ %{} :Leaf (:at 1672158697021) (:by |u0) (:text |&c*) + |q $ %{} :Leaf (:at 1672159218858) (:by |u0) (:text |c-scale) :users $ {} |u0 $ {} (:avatar nil) (:id |u0) (:name |chen) (:nickname |chen) (:password |d41d8cd98f00b204e9800998ecf8427e) (:theme :star-trail) diff --git a/compact.cirru b/compact.cirru index d72f51a..03bd56e 100644 --- a/compact.cirru +++ b/compact.cirru @@ -1,6 +1,6 @@ {} (:package |quaternion) - :configs $ {} (:init-fn |quaternion.test/main!) (:reload-fn |quaternion.test/reload!) (:version |0.0.6) + :configs $ {} (:init-fn |quaternion.test/main!) (:reload-fn |quaternion.test/reload!) (:version |0.0.7) :modules $ [] |calcit-test/ :entries $ {} :test $ {} (:init-fn |quaternion.test/main!) (:reload-fn |quaternion.test/reload!) @@ -8,224 +8,260 @@ :files $ {} |quaternion.core $ {} :defs $ {} - |&c* $ quote - defn &c* (a b) - let-sugar - [] x0 y0 - , a - ([] x1 y1) b - [] - &- (&* x0 x1) (&* y0 y1) - &+ (&* x0 y1) (&* x1 y0) - |&c+ $ quote - defn &c+ (a b) - let-sugar - [] x0 y0 - , a - ([] x1 y1) b - [] (&+ x0 x1) (&+ y0 y1) - |&c- $ quote - defn &c- (a b) - let-sugar - [] x0 y0 - , a - ([] x1 y1) b - [] (&- x0 x1) (&- y0 y1) - |&q* $ quote - defn &q* (a b) (doc-fn "\"w placed at last element") - let-sugar - [] x1 y1 z1 w1 - , a - ([] x2 y2 z2 w2) b - [] - -> (&* w1 x2) - &+ $ &* x1 w2 - &+ $ &* y1 z2 - &- $ &* z1 y2 - -> (&* w1 y2) - &- $ &* x1 z2 - &+ $ &* y1 w2 - &+ $ &* z1 x2 - -> (&* w1 z2) - &+ $ &* x1 y2 - &- $ &* y1 x2 - &+ $ &* z1 w2 - -> (&* w1 w2) - &- $ &* x1 x2 - &- $ &* y1 y2 - &- $ &* z1 z2 - |&q+ $ quote - defn &q+ (a b) - let-sugar - [] x y z w - , a - ([] x1 y1 z1 w1) b - [] (&+ x x1) (&+ y y1) (&+ z z1) (&+ w w1) - |&q- $ quote - defn &q- (a b) - let-sugar - [] x y z w - , a - ([] x1 y1 z1 w1) b - [] (&- x x1) (&- y y1) (&- z z1) (&- w w1) - |&v+ $ quote - defn &v+ (a b) - let[] (x y z) a $ let[] (x2 y2 z2) b - [] (&+ x x2) (&+ y y2) (&+ z z2) - |&v- $ quote - defn &v- (a b) - let[] (x y z) a $ let[] (x2 y2 z2) b - [] (&- x x2) (&- y y2) (&- z z2) - |c* $ quote - defn c* (& xs) - foldl (rest xs) (first xs) - fn (acc x) (&c* acc x) - |c+ $ quote - defn c+ (& xs) - foldl (rest xs) (first xs) - fn (acc x) (&c+ acc x) - |c-conjutate $ quote - defn c-conjutate (a) - let[] (x y) a $ [] (&- 0 x) w - |c-length $ quote - defn c-length (v) - let[] (x y) v $ sqrt - &+ (&* x x) (&* y y) - |c-length2 $ quote - defn c-length2 (v) - let[] (x y) v $ &+ (&* x x) (&* y y) - |c-scale $ quote - defn c-scale (v n) - let[] (x y) v $ [] (&* n x) (&* n y) - |q+ $ quote - defn q+ (& xs) - foldl xs ([] 0 0 0 0) - fn (acc x) (&q+ acc x) - |q- $ quote - defn q- (& xs) - foldl (rest xs) (first xs) - fn (acc x) (&q- acc x) - |q-conjugate $ quote - defn q-conjugate (a) - let[] (x y z w) a $ [] (&- 0 x) (&- 0 y) (&- 0 z) w - |q-inverse $ quote - defn q-inverse (a) - let - l $ q-length2 a - if (&= l 0) (eprintln "\"length is zero:" a) - q-scale (q-conjugate a) (&/ 1 l) - |q-length $ quote - defn q-length (a) - let[] (x y z w) a $ sqrt - -> (&* x x) + |&c* $ %{} :CodeEntry (:doc |) + :code $ quote + defn &c* (a b) + let-sugar + [] x0 y0 + , a + ([] x1 y1) b + [] + &- (&* x0 x1) (&* y0 y1) + &+ (&* x0 y1) (&* x1 y0) + |&c+ $ %{} :CodeEntry (:doc |) + :code $ quote + defn &c+ (a b) + let-sugar + [] x0 y0 + , a + ([] x1 y1) b + [] (&+ x0 x1) (&+ y0 y1) + |&c- $ %{} :CodeEntry (:doc |) + :code $ quote + defn &c- (a b) + let-sugar + [] x0 y0 + , a + ([] x1 y1) b + [] (&- x0 x1) (&- y0 y1) + |&q* $ %{} :CodeEntry (:doc |) + :code $ quote + defn &q* (a b) (doc-fn "\"w placed at last element") + let-sugar + [] x1 y1 z1 w1 + , a + ([] x2 y2 z2 w2) b + [] + -> (&* w1 x2) + &+ $ &* x1 w2 + &+ $ &* y1 z2 + &- $ &* z1 y2 + -> (&* w1 y2) + &- $ &* x1 z2 + &+ $ &* y1 w2 + &+ $ &* z1 x2 + -> (&* w1 z2) + &+ $ &* x1 y2 + &- $ &* y1 x2 + &+ $ &* z1 w2 + -> (&* w1 w2) + &- $ &* x1 x2 + &- $ &* y1 y2 + &- $ &* z1 z2 + |&q+ $ %{} :CodeEntry (:doc |) + :code $ quote + defn &q+ (a b) + let-sugar + [] x y z w + , a + ([] x1 y1 z1 w1) b + [] (&+ x x1) (&+ y y1) (&+ z z1) (&+ w w1) + |&q- $ %{} :CodeEntry (:doc |) + :code $ quote + defn &q- (a b) + let-sugar + [] x y z w + , a + ([] x1 y1 z1 w1) b + [] (&- x x1) (&- y y1) (&- z z1) (&- w w1) + |&v+ $ %{} :CodeEntry (:doc |) + :code $ quote + defn &v+ (a b) + let[] (x y z) a $ let[] (x2 y2 z2) b + [] (&+ x x2) (&+ y y2) (&+ z z2) + |&v- $ %{} :CodeEntry (:doc |) + :code $ quote + defn &v- (a b) + let[] (x y z) a $ let[] (x2 y2 z2) b + [] (&- x x2) (&- y y2) (&- z z2) + |c* $ %{} :CodeEntry (:doc |) + :code $ quote + defn c* (& xs) + foldl (rest xs) (first xs) + fn (acc x) (&c* acc x) + |c+ $ %{} :CodeEntry (:doc |) + :code $ quote + defn c+ (& xs) + foldl (rest xs) (first xs) + fn (acc x) (&c+ acc x) + |c-conjutate $ %{} :CodeEntry (:doc |) + :code $ quote + defn c-conjutate (a) + let[] (x y) a $ [] (&- 0 x) w + |c-length $ %{} :CodeEntry (:doc |) + :code $ quote + defn c-length (v) + let[] (x y) v $ sqrt + &+ (&* x x) (&* y y) + |c-length2 $ %{} :CodeEntry (:doc |) + :code $ quote + defn c-length2 (v) + let[] (x y) v $ &+ (&* x x) (&* y y) + |c-scale $ %{} :CodeEntry (:doc |) + :code $ quote + defn c-scale (v n) + let[] (x y) v $ [] (&* n x) (&* n y) + |q+ $ %{} :CodeEntry (:doc |) + :code $ quote + defn q+ (& xs) + foldl xs ([] 0 0 0 0) + fn (acc x) (&q+ acc x) + |q- $ %{} :CodeEntry (:doc |) + :code $ quote + defn q- (& xs) + foldl (rest xs) (first xs) + fn (acc x) (&q- acc x) + |q-conjugate $ %{} :CodeEntry (:doc |) + :code $ quote + defn q-conjugate (a) + let[] (x y z w) a $ [] (&- 0 x) (&- 0 y) (&- 0 z) w + |q-inverse $ %{} :CodeEntry (:doc |) + :code $ quote + defn q-inverse (a) + let + l $ q-length2 a + if (&= l 0) (eprintln "\"length is zero:" a) + q-scale (q-conjugate a) (&/ 1 l) + |q-length $ %{} :CodeEntry (:doc |) + :code $ quote + defn q-length (a) + let[] (x y z w) a $ sqrt + -> (&* x x) + &+ $ &* y y + &+ $ &* z z + &+ $ &* w w + |q-length2 $ %{} :CodeEntry (:doc |) + :code $ quote + defn q-length2 (a) + let[] (x y z w) a $ -> (&* x x) &+ $ &* y y &+ $ &* z z &+ $ &* w w - |q-length2 $ quote - defn q-length2 (a) - let[] (x y z w) a $ -> (&* x x) - &+ $ &* y y - &+ $ &* z z - &+ $ &* w w - |q-scale $ quote - defn q-scale (v n) - let[] (x y z w) v $ [] (&* n x) (&* n y) (&* n z) (&* n w) - |v+ $ quote - defn v+ (& xs) - foldl xs ([] 0 0 0) - fn (acc x) (&v+ acc x) - |v- $ quote - defn v- (& xs) - foldl (rest xs) (first xs) - fn (acc x) (&v- acc x) - |v-cross $ quote - defn v-cross (v1 v2) - let-sugar - [] x1 y1 z1 - , v1 - ([] x2 y2 z2) v2 - [] - &- (&* y1 z2) (&* y2 z1) - &- (&* x2 z1) (&* x1 z2) - &- (&* x1 y2) (&* x2 y1) - |v-dot $ quote - defn v-dot (v1 v2) - let-sugar - [] x1 y1 z1 - , v1 - ([] x2 y2 z2) v2 - -> (&* x1 x2) - &+ $ &* y1 y2 - &+ $ &* z1 z2 - |v-length $ quote - defn v-length (a) - let-sugar - [] x y z - , a - sqrt $ -> (&* x x) - &+ $ &* y y - &+ $ &* z z - |v-normalize $ quote - defn v-normalize (v) - let[] (x y z) v $ let - length $ sqrt - -> (&* x x) - &+ $ &* y y - &+ $ &* z z - if (&= length 0) (eprintln "\"Unexpected zero length:" length) - v-scale v $ &/ 1 length - |v-scale $ quote - defn v-scale (v n) - case-default (count v) - raise $ str "\"unknown vector: " v - 4 $ let[] (x y z w) v - [] (&* n x) (&* n y) (&* n z) (&* n w) - 3 $ let[] (x y z) v - [] (&* n x) (&* n y) (&* n z) - 2 $ let[] (x y) v - [] (&* n x) (&* n y) - :ns $ quote (ns quaternion.core) + |q-scale $ %{} :CodeEntry (:doc |) + :code $ quote + defn q-scale (v n) + let[] (x y z w) v $ [] (&* n x) (&* n y) (&* n z) (&* n w) + |v+ $ %{} :CodeEntry (:doc |) + :code $ quote + defn v+ (& xs) + foldl xs ([] 0 0 0) + fn (acc x) (&v+ acc x) + |v- $ %{} :CodeEntry (:doc |) + :code $ quote + defn v- (& xs) + foldl (rest xs) (first xs) + fn (acc x) (&v- acc x) + |v-cross $ %{} :CodeEntry (:doc |) + :code $ quote + defn v-cross (v1 v2) + let-sugar + [] x1 y1 z1 + , v1 + ([] x2 y2 z2) v2 + [] + &- (&* y1 z2) (&* y2 z1) + &- (&* x2 z1) (&* x1 z2) + &- (&* x1 y2) (&* x2 y1) + |v-dot $ %{} :CodeEntry (:doc |) + :code $ quote + defn v-dot (v1 v2) + let-sugar + [] x1 y1 z1 + , v1 + ([] x2 y2 z2) v2 + -> (&* x1 x2) + &+ $ &* y1 y2 + &+ $ &* z1 z2 + |v-length $ %{} :CodeEntry (:doc |) + :code $ quote + defn v-length (a) + let-sugar + [] x y z + , a + sqrt $ -> (&* x x) + &+ $ &* y y + &+ $ &* z z + |v-normalize $ %{} :CodeEntry (:doc |) + :code $ quote + defn v-normalize (v) + let[] (x y z) v $ let + length $ sqrt + -> (&* x x) + &+ $ &* y y + &+ $ &* z z + if (&= length 0) (eprintln "\"Unexpected zero length:" length) + v-scale v $ &/ 1 length + |v-scale $ %{} :CodeEntry (:doc |) + :code $ quote + defn v-scale (v n) + case-default (count v) + raise $ str "\"unknown vector: " v + 4 $ let[] (x y z w) v + [] (&* n x) (&* n y) (&* n z) (&* n w) + 3 $ let[] (x y z) v + [] (&* n x) (&* n y) (&* n z) + 2 $ let[] (x y) v + [] (&* n x) (&* n y) + :ns $ %{} :CodeEntry (:doc |) + :code $ quote (ns quaternion.core) |quaternion.test $ {} :defs $ {} - |main! $ quote - defn main! () $ run-tests - |reload! $ quote - defn reload! () (println "\"reload...") (run-tests) - |run-tests $ quote - defn run-tests () (reset! *quit-on-failure? true) (test-add) (test-v-scale) (test-multiply) - |test-add $ quote - deftest test-add - testing "|add quaternion" $ is - = ([] 12 30 24 -60) - &q* ([] 2 3 4 1) ([] 6 7 8 5) - testing "\"add complex" - is $ = ([] 9 12) - c+ ([] 1 2) ([] 3 4) ([] 5 6) - is $ = ([] 4 6) - c+ ([] 1 2) ([] 3 4) - |test-multiply $ quote - deftest test-multiply $ testing "\"multiply complex" - is $ = ([] -5 10) - &c* ([] 1 2) ([] 3 4) - is $ = ([] -5 10) - c* ([] 1 2) ([] 3 4) - is $ = ([] -85 20) - c* ([] 1 2) ([] 3 4) ([] 5 6) - |test-v-scale $ quote - deftest test-v-scale $ testing |v-scale - is $ = - v-scale ([] 1 2) 3 - [] 3 6 - is $ = - v-scale ([] 1 2 3) 4 - [] 4 8 12 - is $ = - v-scale ([] 1 2 3 4) 5 - [] 5 10 15 20 - is $ = - c-scale ([] 1 2) 3 - [] 3 6 - :ns $ quote - ns quaternion.test $ :require - calcit-test.core :refer $ deftest testing is *quit-on-failure? - quaternion.core :refer $ &q* v-scale c+ c* &c* c-scale + |main! $ %{} :CodeEntry (:doc |) + :code $ quote + defn main! () $ run-tests + |reload! $ %{} :CodeEntry (:doc |) + :code $ quote + defn reload! () (println "\"reload...") (run-tests) + |run-tests $ %{} :CodeEntry (:doc |) + :code $ quote + defn run-tests () (reset! *quit-on-failure? true) (test-add) (test-v-scale) (test-multiply) + |test-add $ %{} :CodeEntry (:doc |) + :code $ quote + deftest test-add + testing "|add quaternion" $ is + = ([] 12 30 24 -60) + &q* ([] 2 3 4 1) ([] 6 7 8 5) + testing "\"add complex" + is $ = ([] 9 12) + c+ ([] 1 2) ([] 3 4) ([] 5 6) + is $ = ([] 4 6) + c+ ([] 1 2) ([] 3 4) + |test-multiply $ %{} :CodeEntry (:doc |) + :code $ quote + deftest test-multiply $ testing "\"multiply complex" + is $ = ([] -5 10) + &c* ([] 1 2) ([] 3 4) + is $ = ([] -5 10) + c* ([] 1 2) ([] 3 4) + is $ = ([] -85 20) + c* ([] 1 2) ([] 3 4) ([] 5 6) + |test-v-scale $ %{} :CodeEntry (:doc |) + :code $ quote + deftest test-v-scale $ testing |v-scale + is $ = + v-scale ([] 1 2) 3 + [] 3 6 + is $ = + v-scale ([] 1 2 3) 4 + [] 4 8 12 + is $ = + v-scale ([] 1 2 3 4) 5 + [] 5 10 15 20 + is $ = + c-scale ([] 1 2) 3 + [] 3 6 + :ns $ %{} :CodeEntry (:doc |) + :code $ quote + ns quaternion.test $ :require + calcit-test.core :refer $ deftest testing is *quit-on-failure? + quaternion.core :refer $ &q* v-scale c+ c* &c* c-scale diff --git a/package.json b/package.json index 9db4ffc..fed2b77 100644 --- a/package.json +++ b/package.json @@ -1,7 +1,7 @@ { - "version": "0.0.6", + "version": "0.0.7", "dependencies": { - "@calcit/procs": "^0.7.2" + "@calcit/procs": "^0.8.0-a2" }, "scripts": {}, "devDependencies": {} diff --git a/yarn.lock b/yarn.lock index 82b7221..1bd6438 100644 --- a/yarn.lock +++ b/yarn.lock @@ -2,26 +2,26 @@ # yarn lockfile v1 -"@calcit/procs@^0.7.2": - version "0.7.2" - resolved "https://registry.yarnpkg.com/@calcit/procs/-/procs-0.7.2.tgz#4121b737c1a48682f6c1aaf8b45226bbe7d217ea" - integrity sha512-hfTSX4N/pYQW9GNf8aWDp95TByTujk49wJcPGbUivxEa+K2WlJ0jefbhe0N2Xv8wVd6k5AlYljneGDIs61fRnA== +"@calcit/procs@^0.8.0-a2": + version "0.8.0-a2" + resolved "https://registry.yarnpkg.com/@calcit/procs/-/procs-0.8.0-a2.tgz#2df06f18030dcac8bc3ea3e308baad5fa942acfa" + integrity sha512-v18GEiq54+WrvNouBDtk30Ta212W8DSPY1uo7JghVNNDMWh5Hab7Y6pVCw5HpF0REyBs/7+sibKjneJtrcr5kg== dependencies: - "@calcit/ternary-tree" "0.0.19" + "@calcit/ternary-tree" "0.0.23" "@cirru/parser.ts" "^0.0.6" - "@cirru/writer.ts" "^0.1.3" + "@cirru/writer.ts" "^0.1.4" -"@calcit/ternary-tree@0.0.19": - version "0.0.19" - resolved "https://registry.yarnpkg.com/@calcit/ternary-tree/-/ternary-tree-0.0.19.tgz#b5b33a3d07a9e603feeef7cd642958c83628122f" - integrity sha512-dn2kNlcOQOPtCAeE68MHcRgrZzRP+jNKBmDW2wO0S8HTUA2SeAbpzZoK0HfcTHFmlGl6yKpjZ95rICQ319AjcA== +"@calcit/ternary-tree@0.0.23": + version "0.0.23" + resolved "https://registry.yarnpkg.com/@calcit/ternary-tree/-/ternary-tree-0.0.23.tgz#a299f7ffd614ac2dfe2cbcf78506934df4008c77" + integrity sha512-GKHfokm1YBUvPprV9p227fDpE+w4lVl4YKQpfKoNEqvprJnC4HRXaa+QSLwZkvZlXr09hAA0x4l4ZKUIcbYydg== "@cirru/parser.ts@^0.0.6": version "0.0.6" resolved "https://registry.yarnpkg.com/@cirru/parser.ts/-/parser.ts-0.0.6.tgz#b95a84e02273fcbd71ff100925782b6f86410234" integrity sha512-qpDNPq+IuuwYjQFI+wzpd3ntbF7lwJs90v1XWyLQbL9Ru4ld4aHxVGwW/9F/QOu5mEGCMXtagCoYDf0HtOpDZg== -"@cirru/writer.ts@^0.1.3": - version "0.1.3" - resolved "https://registry.yarnpkg.com/@cirru/writer.ts/-/writer.ts-0.1.3.tgz#5f54bdecaa20ba3dab16cbe6da711854138a9c0a" - integrity sha512-vJnhmhm7we5UfQIwmZfQpF3bAFbVybzT6LbmkbQHxgijaQg3gPfNVsnSIa3g3KpmWVtvkzEx+nUy5aMwsJiV1A== +"@cirru/writer.ts@^0.1.4": + version "0.1.4" + resolved "https://registry.yarnpkg.com/@cirru/writer.ts/-/writer.ts-0.1.4.tgz#4b5851d002ab7c4891457bf8c707f09620c8f122" + integrity sha512-Uy3Y7jjLdaxLW9ajZuIS9rp+dhaSVU95hRRwvnP6E16PwgPl+zGs6Xqn1L7Lqw07ypujrdBBdFQyRJOLc6IHQQ==