{"header":{"message":".","description":null,"timestamp":"2024-02-03T15:41:10.92682588Z","authors":[{}]},"hash":"TASKOQAMYAU44TDZKT6KS5VQELOQ5DREUADSBCNAOXMOQHJEH5YAC","authors":[{"login":"tankf33der","key":"3HmWcyeqNyRzSEmcUEQ9JKvA73thfkwLBKf1kCYkCc5Y"}],"deps":{"hashes":[["TASKOQAMYAU44TDZKT6KS5VQELOQ5DREUADSBCNAOXMOQHJEH5YAC","."],["AA",null],["6CJ5LIYWEZQBJ565DCNKXONVBZ67KF2TDPFB6HT6AR7NURUAN4ZQC",""]],"deps":["6CJ5LIYWEZQBJ565DCNKXONVBZ67KF2TDPFB6HT6AR7NURUAN4ZQC"],"known":[]},"hunks":[{"FileAdd":{"meta":{"basename":"vip","metadata":64},"context":[{"change":2,"pos":1}],"contents":[{"Add":"#!/bin/sh"},{"Add":"exec ${0%/*}/bin/picolisp ${0%/*}/lib.l @bin/vip \"$@\""}]}},{"FileAdd":{"meta":{"basename":"test","metadata":576},"context":[{"change":2,"pos":1}],"contents":[]}},{"FileAdd":{"meta":{"basename":"src","metadata":576},"context":[{"change":0,"pos":96}],"contents":[]}},{"FileAdd":{"meta":{"basename":"sym.l","metadata":0},"context":[{"change":0,"pos":114}],"contents":[{"Add":"# 04jun23 Software Lab. Alexander Burger"},{"Add":""},{"Add":"### name ###"},{"Add":"(test \"abc\" (name 'abc))"},{"Add":"(test \"A123\" (name '{A123}))"},{"Add":"(let X (box)"},{"Add":" (test NIL (name X)) )"},{"Add":""},{"Add":""},{"Add":"### sp? ###"},{"Add":"(test T (sp? \" \\t\\n\"))"},{"Add":"(test NIL (sp? \" abc\"))"},{"Add":"(test NIL (sp? 123))"},{"Add":""},{"Add":""},{"Add":"### pat? ###"},{"Add":"(test `(char '@) (char (pat? '@)))"},{"Add":"(test NIL (pat? \"ABC\"))"},{"Add":"(test NIL (pat? 123))"},{"Add":""},{"Add":""},{"Add":"### fun? ###"},{"Add":"(test 1000000000 (fun? 1000000000))"},{"Add":"(test NIL (fun? 12345678901234567890))"},{"Add":"(test '(A B) (fun? '((A B) (* A B))))"},{"Add":"(test NIL (fun? '((A B) (* A B) . C)))"},{"Add":"(test NIL (fun? (1 2 3 4)))"},{"Add":"(test NIL (fun? '((A 2 B) (* A B))))"},{"Add":"(test T (fun? '(NIL (* 3 4))))"},{"Add":""},{"Add":""},{"Add":"### getd ###"},{"Add":"(test car (getd 'car))"},{"Add":"(test '((File . @) (load File))"},{"Add":" (getd 'script) )"},{"Add":"(test NIL (getd 1))"},{"Add":""},{"Add":""},{"Add":"### all ###"},{"Add":"(test '(test)"},{"Add":" (filter '((S) (= S \"test\")) (all)) )"},{"Add":""},{"Add":""},{"Add":"### symbols nsp ###"},{"Add":"(when symbols"},{"Add":" (test T (bool (pair pico)))"},{"Add":" (test '(pico) (symbols 'myLib 'pico)) )"},{"Add":""},{"Add":"(when symbols"},{"Add":" (one Foo)"},{"Add":" (test 'pico (nsp 'symbols))"},{"Add":" (test 'myLib (nsp 'Foo))"},{"Add":" (test '(myLib pico) (symbols 'pico)) )"},{"Add":""},{"Add":"(when symbols"},{"Add":" (test 1 myLib~Foo)"},{"Add":" (test NIL (nsp 'myLib~Foo)) )"},{"Add":""},{"Add":"### intern ###"},{"Add":"(test car (val (intern (pack \"c\" \"a\" \"r\"))))"},{"Add":"(test car (val (intern '(\"c\" \"a\" \"r\"))))"},{"Add":""},{"Add":""},{"Add":"### ==== ###"},{"Add":"(setq *Sym \"abc\")"},{"Add":"(test T (== *Sym \"abc\"))"},{"Add":"(====)"},{"Add":"(test NIL (== *Sym \"abc\"))"},{"Add":""},{"Add":""},{"Add":"### box? ###"},{"Add":"(let X (box)"},{"Add":" (test X (box? X)) )"},{"Add":"(test NIL (box? 123))"},{"Add":"(test NIL (box? 'a))"},{"Add":"(test NIL (box? NIL))"},{"Add":""},{"Add":""},{"Add":"### str? ###"},{"Add":"(test NIL (str? 123))"},{"Add":"(test NIL (str? '{A123}))"},{"Add":"(test NIL (str? 'abc))"},{"Add":"(test \"abc\" (str? \"abc\"))"},{"Add":""},{"Add":""},{"Add":"### zap ###"},{"Add":"(test \"abc\" (str? (zap 'abc)))"},{"Add":""},{"Add":""},{"Add":"### chop ###"},{"Add":"(test '(\"c\" \"a\" \"r\") (chop 'car))"},{"Add":"(test '(\"H\" \"e\" \"l\" \"l\" \"o\") (chop \"Hello\"))"},{"Add":"(test '(\"1\" \"2\" \"3\") (chop 123))"},{"Add":"(test (1 2 3) (chop (1 2 3)))"},{"Add":"(test NIL (chop NIL))"},{"Add":""},{"Add":""},{"Add":"### pack ###"},{"Add":"(test \"car is 1 symbol name\""},{"Add":" (pack 'car \" is \" 1 '(\" symbol \" name)) )"},{"Add":""},{"Add":""},{"Add":"### glue ###"},{"Add":"(test 1 (glue NIL 1))"},{"Add":"(test \"a\" (glue NIL '(a)))"},{"Add":"(test \"ab\" (glue NIL '(a b)))"},{"Add":"(test \"a,b\" (glue \",\" '(a b)))"},{"Add":"(test \"a8b\" (glue 8 '(a b)))"},{"Add":"(test \"a123b123c\" (glue (1 2 3) '(a b c)))"},{"Add":""},{"Add":""},{"Add":"### text ###"},{"Add":"(test \"abc XYZ def 123\" (text \"abc @1 def @2\" 'XYZ 123))"},{"Add":"(test \"aXYZz\" (text \"a@3z\" 1 2 '(X Y Z)))"},{"Add":"(test \"a@bc.de\" (text \"a@@bc.@1\" \"de\"))"},{"Add":"(test \"10.11.12\" (text \"@A.@B.@C\" 1 2 3 4 5 6 7 8 9 10 11 12))"},{"Add":"(test \"1 2 3 4 5 6 7 8 9 10 11 12\""},{"Add":" (text \"@1 @2 @3 @4 @5 @6 @7 @8 @9 @A @B @C\" 1 2 3 4 5 6 7 8 9 10 11 12) )"},{"Add":""},{"Add":""},{"Add":"### pre? ###"},{"Add":"(test \"abcdefg\" (pre? \"\" \"abcdefg\"))"},{"Add":"(test NIL (pre? \"abc\" \"\"))"},{"Add":"(test \"abcdefg\" (pre? \"abc\" \"abcdefg\"))"},{"Add":"(test NIL (pre? \"def\" \"abcdefg\"))"},{"Add":"(test \"abcdefg\" (pre? \"\" \"abcdefg\"))"},{"Add":"(test \"7fach\" (pre? (+ 3 4) \"7fach\"))"},{"Add":""},{"Add":""},{"Add":"### sub? ###"},{"Add":"(test \"abcdefg\" (sub? \"\" \"abcdefg\"))"},{"Add":"(test NIL (sub? \"abc\" \"\"))"},{"Add":"(test \"abcdefg\" (sub? \"cde\" \"abcdefg\"))"},{"Add":"(test \"abcdefg\" (sub? \"def\" \"abcdefg\"))"},{"Add":"(test NIL (sub? \"abb\" \"abcdefg\"))"},{"Add":"(test \"abcdefg\" (sub? \"\" \"abcdefg\"))"},{"Add":""},{"Add":""},{"Add":"### val ###"},{"Add":"(let L '(a b c)"},{"Add":" (test '(a b c) (val 'L))"},{"Add":" (test 'b (val (cdr L))) )"},{"Add":""},{"Add":""},{"Add":"### set ###"},{"Add":"(use L"},{"Add":" (test '(a b c) (set 'L '(a b c)))"},{"Add":" (test 999 (set (cdr L) 999))"},{"Add":" (test '(a 999 c) L) )"},{"Add":""},{"Add":""},{"Add":"### setq ###"},{"Add":"(use (A B)"},{"Add":" (test (123 123)"},{"Add":" (setq A 123 B (list A A)) )"},{"Add":" (test 123 A)"},{"Add":" (test (123 123) B) )"},{"Add":""},{"Add":""},{"Add":"### swap ###"},{"Add":"(let (A 1 L (1 2 3))"},{"Add":" (test 1 (swap 'A 7))"},{"Add":" (test 7 (swap 'A 'xyz))"},{"Add":" (test 3 (swap (cddr L) A))"},{"Add":" (test (1 2 xyz) L) )"},{"Add":""},{"Add":""},{"Add":"### xchg ###"},{"Add":"(let (A 1 B 2 C '(a b c))"},{"Add":" (test 2 (xchg 'A C 'B (cdr C)))"},{"Add":" (test 'a A)"},{"Add":" (test 'b B)"},{"Add":" (test (1 2 c) C) )"},{"Add":""},{"Add":""},{"Add":"### on off onOff zero one ###"},{"Add":"(use (A B)"},{"Add":" (test T (on A B))"},{"Add":" (test T A)"},{"Add":" (test T B)"},{"Add":" (test NIL (off A))"},{"Add":" (test NIL A)"},{"Add":" (test NIL (onOff B))"},{"Add":" (test NIL B)"},{"Add":" (test T (onOff A B))"},{"Add":" (test T A)"},{"Add":" (test T B)"},{"Add":" (test 0 (zero A B))"},{"Add":" (test 0 A)"},{"Add":" (test 0 B)"},{"Add":" (test 1 (one A B))"},{"Add":" (test 1 A)"},{"Add":" (test 1 B) )"},{"Add":""},{"Add":""},{"Add":"### default ###"},{"Add":"(let (A NIL B NIL)"},{"Add":" (test 2 (default A 1 B 2))"},{"Add":" (test A 1)"},{"Add":" (test B 2)"},{"Add":" (test 2 (default A 7 B 8))"},{"Add":" (test A 1)"},{"Add":" (test B 2) )"},{"Add":""},{"Add":""},{"Add":"### push push1 pop ++ shift cut ###"},{"Add":"(let L NIL"},{"Add":" (test 0 (push 'L 4 3 2 1 0))"},{"Add":" (test L (0 1 2 3 4))"},{"Add":" (test (1 2 3 4) (shift 'L))"},{"Add":" (test 0 (push1 'L 0))"},{"Add":" (test 1 (push1 'L 1))"},{"Add":" (test L (0 1 2 3 4))"},{"Add":" (test 0 (pop 'L))"},{"Add":" (test 1 (++ L))"},{"Add":" (test (2 3) (cut 2 'L))"},{"Add":" (test (4) L) )"},{"Add":""},{"Add":"### push1q ###"},{"Add":"(let L NIL"},{"Add":" (test (2) (push1q 'L 'a (1) 'b (2)))"},{"Add":" (test (1) (push1q 'L 'b (1)))"},{"Add":" (test '((1) (2) b (1) a) L) )"},{"Add":""},{"Add":"### del ###"},{"Add":"(let (L '((a b c) (d e f)) S (new))"},{"Add":" (put S 'lst L)"},{"Add":" (test '((a b c)) (del '(d e f) 'L))"},{"Add":" (test '(a b c) (del 'x L))"},{"Add":" (test '(a c) (del 'b L))"},{"Add":" (with S"},{"Add":" (test '((a b c)) (del '(d e f) (:: lst)))"},{"Add":" (test NIL (del '(a b c) (:: lst)))"},{"Add":" (test NIL (: lst)) ) )"},{"Add":"(let L (1 1 2 3 1 2 3)"},{"Add":" (test (2 3 2 3) (del 1 'L T)) )"},{"Add":""},{"Add":""},{"Add":"### queue ###"},{"Add":"(let A NIL"},{"Add":" (test 1 (queue 'A 1))"},{"Add":" (test 2 (queue 'A 2))"},{"Add":" (test 3 (queue 'A 3))"},{"Add":" (test (1 2 3) A) )"},{"Add":""},{"Add":""},{"Add":"### fifo ###"},{"Add":"(let X NIL"},{"Add":" (test 1 (fifo 'X 1))"},{"Add":" (test 3 (fifo 'X 2 3))"},{"Add":" (test 1 (fifo 'X))"},{"Add":" (test 2 (fifo 'X))"},{"Add":" (test 3 (fifo 'X)) )"},{"Add":""},{"Add":""},{"Add":"### rid ###"},{"Add":"(let E (1 . 2)"},{"Add":" (test 2 (rid 'E 1)) )"},{"Add":"(let E (1 2 3 2 4 . 2)"},{"Add":" (test (1 3 4) (rid 'E 2))"},{"Add":" (test (3 4) (rid 'E 1))"},{"Add":" (test (3) (rid 'E 4))"},{"Add":" (test (3) (rid 'E 7))"},{"Add":" (test NIL (rid 'E 3)) )"},{"Add":"(let E NIL"},{"Add":" (fifo 'E 1 2 3 2 4 2)"},{"Add":" (test (2 1 2 3 2 4 . @Z) E)"},{"Add":" (test (4 1 3 . @Z) (rid 'E 2)) )"},{"Add":""},{"Add":""},{"Add":"### idx lup ###"},{"Add":"(let X NIL"},{"Add":" (test NIL (idx 'X 'd T))"},{"Add":" (test NIL (idx 'X (2 . f) T))"},{"Add":" (test NIL (idx 'X (3 . g) T))"},{"Add":" (test NIL (idx 'X '(a b c) T))"},{"Add":" (test NIL (idx 'X 17 T))"},{"Add":" (test NIL (idx 'X 'A T))"},{"Add":" (test '(d . @) (idx 'X 'd T))"},{"Add":" (test NIL (idx 'X T T))"},{"Add":" (test '(A) (idx 'X 'A))"},{"Add":" (test '(17 A d (2 . f) (3 . g) (a b c) T)"},{"Add":" (idx 'X) )"},{"Add":" (test (2 . f) (lup X 2))"},{"Add":" (test '((2 . f) (3 . g)) (lup X 1 4))"},{"Add":" (test '(17 . @) (idx 'X 17 NIL))"},{"Add":" (test '(A d (2 . f) (3 . g) (a b c) T)"},{"Add":" (idx 'X) )"},{"Add":" (off X)"},{"Add":" (for N '((4 . D) 3 (2 . B) Y (3 . C) Z (6 . F) 7 (7 . G) X (1 . A) T (5 . E) 5)"},{"Add":" (idx 'X N T) )"},{"Add":" (test '(3 5 7 X Y Z (1 . A) (2 . B) (3 . C) (4 . D) (5 . E) (6 . F) (7 . G) T)"},{"Add":" (idx 'X) )"},{"Add":" (test '((3 . C) (4 . D) (5 . E))"},{"Add":" (lup X 3 5) )"},{"Add":" (test '((1 . A) (2 . B) (3 . C) (4 . D) (5 . E) (6 . F) (7 . G))"},{"Add":" (lup X 0 9) ) )"},{"Add":""},{"Add":""},{"Add":"### enum enum? ###"},{"Add":"(let E NIL"},{"Add":" (for (I . S) '(a b c d e f g h i j k l m n o)"},{"Add":" (set (enum 'E I) S) )"},{"Add":" (test '(a (b (d (h) l) f (j) n) c (e (i) m) g (k) o)"},{"Add":" E )"},{"Add":" (test '(a b c d e f g h i j k l m n o)"},{"Add":" (make (for I 15 (link (val (enum 'E I))))) )"},{"Add":" (test NIL"},{"Add":" (enum 'E 0) )"},{"Add":" (test '((8 . h) (4 . d) (12 . l) (2 . b) (10 . j) (6 . f) (14 . n) (1 . a) (9 . i) (5 . e) (13 . m) (3 . c) (11 . k) (7 . g) (15 . o))"},{"Add":" (enum 'E) )"},{"Add":" (test '(g . @) (enum? E 7))"},{"Add":" (test NIL (enum? E 16)) )"},{"Add":""},{"Add":"(let G NIL"},{"Add":" (for I 4"},{"Add":" (for J 4"},{"Add":" (set (enum 'G I J) (* I J)) ) )"},{"Add":" (test (1 . @) (enum? G 1 1))"},{"Add":" (test (6 . @) (enum? G 2 3))"},{"Add":" (test (12 . @) (enum? G 3 4))"},{"Add":" (test NIL (enum? G 5))"},{"Add":" (test NIL (enum? G 1 5)) )"},{"Add":""},{"Add":"### put get prop ; =: : :: putl getl ###"},{"Add":"(let (A (box) B (box A) C (box (cons A B)))"},{"Add":" (put B 'a A)"},{"Add":" (put C 'b B)"},{"Add":" (put A 'x 1)"},{"Add":" (put B 'a 'y 2)"},{"Add":" (put C 0 -1 'a 'z 3)"},{"Add":" (test '(NIL . p) (prop 'A 'p))"},{"Add":" (test 1 (get A 'x))"},{"Add":" (test 1 (; A x))"},{"Add":" (test 2 (with A (: y)))"},{"Add":" (test 2 (get A 'y))"},{"Add":" (test 2 (; A y))"},{"Add":" (test 2 (with B (: 0 y)))"},{"Add":" (test 2 (get B 0 'y))"},{"Add":" (test 2 (; B 0 y))"},{"Add":" (test 3 (with C (: b a z)))"},{"Add":" (test 3 (with C (: 0 1 z)))"},{"Add":" (test 3 (with C (: 0 -1 a z)))"},{"Add":" (test 3 (get C 0 1 'z))"},{"Add":" (test 3 (get C 0 -1 'a 'z))"},{"Add":" (test 3 (; C 0 -1 a z))"},{"Add":" (test 1 (push (prop 'A 'p) 1))"},{"Add":" (test 1 (with 'A (pop (:: p))))"},{"Add":" (test NIL (get 'A 'p))"},{"Add":" (test (3 . z) (prop C 0 -1 'a 'z))"},{"Add":" (test 9 (with C (=: 0 -1 a z (* 3 3))))"},{"Add":" (test (9 . z) (with C (:: 0 -1 a z)))"},{"Add":" (test (putl C 0 -1 'a '((1 . x) (2 . y))) (flip (getl C 'b 0))) )"},{"Add":""},{"Add":"(test NIL (get (1 2 3) 0))"},{"Add":"(test 1 (get (1 2 3) 1))"},{"Add":"(test 3 (get (1 2 3) 3))"},{"Add":"(test NIL (get (1 2 3) 4))"},{"Add":"(test (3) (get (1 2 3) -2))"},{"Add":"(test 1 (get '((a (b . 1) (c . 2)) (d (e . 3) (f . 4))) 'a 'b))"},{"Add":"(test 4 (get '((a (b . 1) (c . 2)) (d (e . 3) (f . 4))) 'd 'f))"},{"Add":""},{"Add":""},{"Add":"### wipe ###"},{"Add":"(let X (box (1 2 3 4))"},{"Add":" (put X 'a 1)"},{"Add":" (put X 'b 2)"},{"Add":" (test (1 2 3 4) (val X))"},{"Add":" (test '((2 . b) (1 . a)) (getl X))"},{"Add":" (wipe X)"},{"Add":" (test NIL (val X))"},{"Add":" (test NIL (getl X)) )"},{"Add":""},{"Add":"(setq \"W\" (1 2 3 4))"},{"Add":"(put '\"W\" 'a 1)"},{"Add":"(put '\"W\" 'b 2)"},{"Add":"(test (1 2 3 4) \"W\")"},{"Add":"(test '((2 . b) (1 . a)) (getl '\"W\"))"},{"Add":"(wipe '\"W\")"},{"Add":"(test NIL \"W\")"},{"Add":"(test NIL (getl '\"W\"))"},{"Add":""},{"Add":""},{"Add":"### meta ###"},{"Add":"(let A '(\"B\")"},{"Add":" (put '\"B\" 'a 123)"},{"Add":" (test 123 (meta 'A 'a)) )"},{"Add":""},{"Add":""},{"Add":"### low? ###"},{"Add":"(test \"a\" (low? \"a\"))"},{"Add":"(test NIL (low? \"A\"))"},{"Add":"(test NIL (low? 123))"},{"Add":"(test NIL (low? \".\"))"},{"Add":""},{"Add":""},{"Add":"### upp? ###"},{"Add":"(test \"A\" (upp? \"A\"))"},{"Add":"(test NIL (upp? \"a\"))"},{"Add":"(test NIL (upp? 123))"},{"Add":"(test NIL (upp? \".\"))"},{"Add":""},{"Add":""},{"Add":"### lowc ###"},{"Add":"(test \"abc\" (lowc \"ABC\"))"},{"Add":"(test \"äöü\" (lowc \"ÄÖÜ\"))"},{"Add":"(test \"äöü\" (lowc \"äöü\"))"},{"Add":"(test 123 (lowc 123))"},{"Add":""},{"Add":""},{"Add":"### uppc ###"},{"Add":"(test \"ABC\" (uppc \"abc\"))"},{"Add":"(test \"ÄÖÜ\" (uppc \"äöü\"))"},{"Add":"(test \"ÄÖÜ\" (uppc \"ÄÖÜ\"))"},{"Add":"(test 123 (lowc 123))"},{"Add":""},{"Add":""},{"Add":"### fold ###"},{"Add":"(test \"1a2b3\" (fold \" 1A 2-b/3\"))"},{"Add":"(test \"1a2\" (fold \" 1A 2-B/3\" 3))"}]}},{"FileAdd":{"meta":{"basename":"subr.l","metadata":0},"context":[{"change":0,"pos":114}],"contents":[{"Add":"# 20jul22 Software Lab. Alexander Burger"},{"Add":""},{"Add":"### c[ad]*r ###"},{"Add":"(let L '(1 2 3 4 5)"},{"Add":" (test 1 (car L))"},{"Add":" (test (2 3 4 5) (cdr L))"},{"Add":" (test 2 (cadr L))"},{"Add":" (test (3 4 5) (cddr L))"},{"Add":" (test 3 (caddr L))"},{"Add":" (test (4 5) (cdddr L))"},{"Add":" (test 4 (cadddr L))"},{"Add":" (test (5) (cddddr L)) )"},{"Add":"(let L '((1 2 3) (4 5))"},{"Add":" (test 1 (caar L))"},{"Add":" (test (2 3) (cdar L))"},{"Add":" (test 2 (cadar L))"},{"Add":" (test (3) (cddar L))"},{"Add":" (test 4 (caadr L))"},{"Add":" (test (5) (cdadr L)) )"},{"Add":"(let L '(((1 2)))"},{"Add":" (test 1 (caaar L))"},{"Add":" (test (2) (cdaar L)) )"},{"Add":""},{"Add":""},{"Add":"### nth ###"},{"Add":"(test '(b c d) (nth '(a b c d) 2))"},{"Add":"(test '(c) (nth '(a (b c) d) 2 2))"},{"Add":""},{"Add":""},{"Add":"### con ###"},{"Add":"(let C (1 . a)"},{"Add":" (test '(b c d) (con C '(b c d)))"},{"Add":" (test (1 b c d) C) )"},{"Add":""},{"Add":""},{"Add":"### cons ###"},{"Add":"(test (1 . 2) (cons 1 2))"},{"Add":"(test '(a b c d) (cons 'a '(b c d)))"},{"Add":"(test '((a b) c d) (cons '(a b) '(c d)))"},{"Add":"(test '(a b c . d) (cons 'a 'b 'c 'd))"},{"Add":""},{"Add":""},{"Add":"### conc ###"},{"Add":"(let (A (1 2 3) B '(a b c))"},{"Add":" (test (1 2 3 a b c) (conc A B))"},{"Add":" (test (1 2 3 a b c) A) )"},{"Add":""},{"Add":"(test (1 2 3 4 5 6)"},{"Add":" (conc (1 2 3) NIL (4 5 6)) )"},{"Add":""},{"Add":""},{"Add":"### circ ###"},{"Add":"(let C (circ 'a 'b 'c)"},{"Add":" (test '(a b c . @) C)"},{"Add":" (test T (== C (cdddr C))) )"},{"Add":""},{"Add":""},{"Add":"### rot ###"},{"Add":"(test (4 1 2 3) (rot (1 2 3 4)))"},{"Add":"(test (3 1 2 4 5 6) (rot (1 2 3 4 5 6) 3))"},{"Add":"(test (3 1 2 . @Z) (rot (1 2 3 .)))"},{"Add":""},{"Add":""},{"Add":"### list ###"},{"Add":"(test (1 2 3 4) (list 1 2 3 4))"},{"Add":"(test '(a (2 3) \"OK\") (list 'a (2 3) \"OK\"))"},{"Add":""},{"Add":""},{"Add":"### need ###"},{"Add":"(test '(NIL NIL NIL NIL NIL) (need 5))"},{"Add":"(test '(NIL NIL a b c) (need 5 '(a b c)))"},{"Add":"(test '(a b c NIL NIL) (need -5 '(a b c)))"},{"Add":"(test '(\" \" \" \" a b c) (need 5 '(a b c) \" \"))"},{"Add":"(test (0 0 0) (need 3 0))"},{"Add":""},{"Add":""},{"Add":"### range ###"},{"Add":"(test (1 2 3 4 5 6) (range 1 6))"},{"Add":"(test (6 5 4 3 2 1) (range 6 1))"},{"Add":"(test (-3 -2 -1 0 1 2 3) (range -3 3))"},{"Add":"(test (3 1 -1 -3) (range 3 -3 2))"},{"Add":"(test (-3 -2 -1) (range -3 -1))"},{"Add":""},{"Add":""},{"Add":"### full ###"},{"Add":"(test T (full (1 2 3)))"},{"Add":"(test NIL (full (1 NIL 3)))"},{"Add":"(test T (full 123))"},{"Add":""},{"Add":""},{"Add":"### make made chain link yoke ###"},{"Add":"(let (A 'a I 'i)"},{"Add":" (test '(x y z z a)"},{"Add":" (make"},{"Add":" (link (for A '(x y z) (link A)))"},{"Add":" (link A) ) )"},{"Add":" (test (-1 0 1 x 2 y 3 z i a)"},{"Add":" (make"},{"Add":" (made (cons 0 (box)))"},{"Add":" (for (I . A) '(x y z) (link I A))"},{"Add":" (test (0 1 x 2 y 3 z) (made))"},{"Add":" (made (cons -1 (made)))"},{"Add":" (link I A) ) )"},{"Add":" (test (1 2 3 4 5 6 7 8 9)"},{"Add":" (make (chain (1 2 3)) (chain (4 5 6) (7 8 9))) )"},{"Add":" (test '(a b c)"},{"Add":" (make (yoke 'b) (link 'c) (yoke 'a)) )"},{"Add":" (test '((x y z) (y z) (z) (z) a)"},{"Add":" (make (link (for (A '(x y z) A (cdr A)) (link A))) (link A)) )"},{"Add":" (test (1 (x y z) 2 (y z) 3 (z) (z) i a)"},{"Add":" (make (link (for ((I . A) '(x y z) A (cdr A)) (link I A))) (link I A)) ) )"},{"Add":""},{"Add":""},{"Add":"### copy ###"},{"Add":"(test T (=T (copy T)))"},{"Add":"(let L (1 2 3)"},{"Add":" (test T (== L L))"},{"Add":" (test NIL (== L (copy L)))"},{"Add":" (test T (= L (copy L)))"},{"Add":" (test T (= (1 2 3) (copy L))) )"},{"Add":""},{"Add":""},{"Add":"### mix ###"},{"Add":"(test '(c d a b) (mix '(a b c d) 3 4 1 2))"},{"Add":"(test '(a A d D) (mix '(a b c d) 1 'A 4 'D))"},{"Add":""},{"Add":""},{"Add":"### append ###"},{"Add":"(test '(a b c 1 2 3) (append '(a b c) (1 2 3)))"},{"Add":"(test (1 2 3 . 4) (append (1) (2) (3) 4))"},{"Add":""},{"Add":""},{"Add":"### delete ###"},{"Add":"(test (1 3)"},{"Add":" (delete 2 (1 2 3)) )"},{"Add":"(test '((1 2) (5 6) (3 4))"},{"Add":" (delete (3 4) '((1 2) (3 4) (5 6) (3 4))) )"},{"Add":"(test (1 2 3 1 2 3)"},{"Add":" (delete 1 (1 1 2 3 1 2 3)) )"},{"Add":"(test (2 3 2 3)"},{"Add":" (delete 1 (1 1 2 3 1 2 3) T) )"},{"Add":""},{"Add":""},{"Add":"### delq ###"},{"Add":"(test '(a c)"},{"Add":" (delq 'b '(a b c)) )"},{"Add":"(test (1 (2) 3)"},{"Add":" (delq (2) (1 (2) 3)) )"},{"Add":"(test '(a b c a b c)"},{"Add":" (delq 'a '(a a b c a b c)) )"},{"Add":"(test '(b c b c)"},{"Add":" (delq 'a '(a a b c a b c) T) )"},{"Add":""},{"Add":""},{"Add":"### replace ###"},{"Add":"(test '(A b b A) (replace '(a b b a) 'a 'A))"},{"Add":"(test '(a B B a) (replace '(a b b a) 'b 'B))"},{"Add":"(test '(B A A B) (replace '(a b b a) 'a 'B 'b 'A))"},{"Add":""},{"Add":""},{"Add":"### insert ###"},{"Add":"(test '(a b 777 c d e) (insert 3 '(a b c d e) 777))"},{"Add":"(test (777 a b c d e) (insert 1 '(a b c d e) 777))"},{"Add":"(test '(a b c d e 777) (insert 9 '(a b c d e) 777))"},{"Add":""},{"Add":""},{"Add":"### remove ###"},{"Add":"(test '(a b d e) (remove 3 '(a b c d e)))"},{"Add":"(test '(b c d e) (remove 1 '(a b c d e)))"},{"Add":"(test '(a b c d e) (remove 9 '(a b c d e)))"},{"Add":""},{"Add":""},{"Add":"### place ###"},{"Add":"(test (7) (place 1 NIL 7))"},{"Add":"(test (7 2 3) (place -1 (1 2 3) 7))"},{"Add":"(test '(a b 777 d e) (place 3 '(a b c d e) 777))"},{"Add":"(test (777 b c d e) (place 1 '(a b c d e) 777))"},{"Add":"(test '(a b c d e 777) (place 9 '(a b c d e) 777))"},{"Add":""},{"Add":""},{"Add":"### strip ###"},{"Add":"(test 123 (strip 123))"},{"Add":"(test '(a) (strip '''(a)))"},{"Add":"(test '(a b c) (strip (quote quote a b c)))"},{"Add":""},{"Add":""},{"Add":"### split ###"},{"Add":"(test '((1) (2 b) (c 4 d 5) (6))"},{"Add":" (split (1 a 2 b 3 c 4 d 5 e 6) 'e 3 'a) )"},{"Add":"(test '(\"The\" \"quick\" \"brown\" \"fox\")"},{"Add":" (mapcar pack (split (chop \"The quick brown fox\") \" \")) )"},{"Add":""},{"Add":""},{"Add":"### reverse ###"},{"Add":"(test (4 3 2 1) (reverse (1 2 3 4)))"},{"Add":"(test NIL (reverse NIL))"},{"Add":""},{"Add":""},{"Add":"### flip ###"},{"Add":"(test (4 3 2 1) (flip (1 2 3 4)))"},{"Add":"(test (3 2 1 4 5 6) (flip (1 2 3 4 5 6) 3))"},{"Add":"(test NIL (flip NIL))"},{"Add":""},{"Add":""},{"Add":"### trim ###"},{"Add":"(test (1 NIL 2) (trim (1 NIL 2 NIL NIL)))"},{"Add":"(test '(a b) (trim '(a b \" \" \" \")))"},{"Add":""},{"Add":""},{"Add":"### clip ###"},{"Add":"(test (1 NIL 2) (clip '(NIL 1 NIL 2 NIL)))"},{"Add":"(test '(a \" \" b) (clip '(\" \" a \" \" b \" \")))"},{"Add":""},{"Add":""},{"Add":"### head ###"},{"Add":"(test '(a b c) (head 3 '(a b c d e f)))"},{"Add":"(test NIL (head NIL '(a b c d e f)))"},{"Add":"(test NIL (head 0 '(a b c d e f)))"},{"Add":"(test '(a b c d e f) (head 10 '(a b c d e f)))"},{"Add":"(test '(a b c d) (head -2 '(a b c d e f)))"},{"Add":"(test '(a b c) (head '(a b c) '(a b c d e f)))"},{"Add":""},{"Add":""},{"Add":"### tail ###"},{"Add":"(test '(d e f) (tail 3 '(a b c d e f)))"},{"Add":"(test '(c d e f) (tail -2 '(a b c d e f)))"},{"Add":"(test NIL (tail NIL '(a b c d e f)))"},{"Add":"(test NIL (tail 0 '(a b c d e f)))"},{"Add":"(test '(a b c d e f) (tail 10 '(a b c d e f)))"},{"Add":"(test '(d e f) (tail '(d e f) '(a b c d e f)))"},{"Add":""},{"Add":""},{"Add":"### stem ###"},{"Add":"(test '(\"g\" \"h\" \"i\") (stem (chop \"abc/def\\\\ghi\") \"/\" \"\\\\\"))"},{"Add":"(test '(\"g\" \"h\" \"i\") (stem (chop \"abc/def\\\\ghi\") \"\\\\\" \"/\"))"},{"Add":""},{"Add":""},{"Add":"### fin ###"},{"Add":"(test 'a (fin 'a))"},{"Add":"(test 'b (fin '(a . b)))"},{"Add":"(test 'c (fin '(a b . c)))"},{"Add":"(test NIL (fin '(a b c)))"},{"Add":""},{"Add":""},{"Add":"### last ###"},{"Add":"(test 4 (last (1 2 3 4)))"},{"Add":"(test '(d e f) (last '((a b) c (d e f))))"},{"Add":""},{"Add":""},{"Add":"### == ###"},{"Add":"(test T (== 'a 'a))"},{"Add":"(test T (== 'NIL NIL (val NIL) (car NIL) (cdr NIL)))"},{"Add":"(test NIL (== (1 2 3) (1 2 3)))"},{"Add":""},{"Add":""},{"Add":"### n== ###"},{"Add":"(test NIL (n== 'a 'a))"},{"Add":"(test T (n== (1) (1)))"},{"Add":""},{"Add":""},{"Add":"### = ###"},{"Add":"(test T (= 6 (* 1 2 3)))"},{"Add":"(test T (= \"a\" \"a\"))"},{"Add":"(test T (== \"a\" \"a\"))"},{"Add":"(test T (= (1 (2) 3) (1 (2) 3)))"},{"Add":"(test T (= (1 . (2 3 .)) (1 . (2 3 .))))"},{"Add":"(test T (= (1 .) (1 .)))"},{"Add":""},{"Add":""},{"Add":"### <> ###"},{"Add":"(test T (<> 'a 'b))"},{"Add":"(test T (<> 'a 'b 'b))"},{"Add":"(test NIL (<> 'a 'a 'a))"},{"Add":""},{"Add":""},{"Add":"### =0 ###"},{"Add":"(test 0 (=0 (- 6 3 2 1)))"},{"Add":"(test NIL (=0 'a))"},{"Add":""},{"Add":""},{"Add":"### =1 ###"},{"Add":"(test 1 (=1 (- 6 3 2)))"},{"Add":"(test NIL (=0 'a))"},{"Add":""},{"Add":""},{"Add":"### =T ###"},{"Add":"(test NIL (=T 0))"},{"Add":"(test NIL (=T \"T\"))"},{"Add":"(test T (=T T))"},{"Add":""},{"Add":""},{"Add":"### n0 ###"},{"Add":"(test NIL (n0 (- 6 3 2 1)))"},{"Add":"(test T (n0 'a))"},{"Add":""},{"Add":""},{"Add":"### nT ###"},{"Add":"(test T (nT 0))"},{"Add":"(test T (nT \"T\"))"},{"Add":"(test NIL (nT T))"},{"Add":""},{"Add":""},{"Add":"### < ###"},{"Add":"(test T (< 3 4))"},{"Add":"(test T (< 'a 'b 'c))"},{"Add":"(test T (< 999 'a))"},{"Add":"(test T (< NIL 7 'x (1) T))"},{"Add":""},{"Add":""},{"Add":"### <= ###"},{"Add":"(test T (<= 3 3))"},{"Add":"(test T (<= 1 2 3))"},{"Add":"(test T (<= \"abc\" \"abc\" \"def\"))"},{"Add":""},{"Add":""},{"Add":"### > ###"},{"Add":"(test T (> 4 3))"},{"Add":"(test T (> 'A 999))"},{"Add":"(test T (> T (1) 'x 7 NIL))"},{"Add":"(test T (> (1 1 .) (1 .)))"},{"Add":""},{"Add":""},{"Add":"### >= ###"},{"Add":"(test T (>= 'A 999))"},{"Add":"(test T (>= 3 2 2 1))"},{"Add":""},{"Add":""},{"Add":"### max ###"},{"Add":"(test 'z (max 2 'a 'z 9))"},{"Add":"(test (5) (max (5) (2 3) 'X))"},{"Add":""},{"Add":""},{"Add":"### min ###"},{"Add":"(test 2 (min 2 'a 'z 9))"},{"Add":"(test 'X (min (5) (2 3) 'X))"},{"Add":""},{"Add":""},{"Add":"### atom ###"},{"Add":"(test T (atom 123))"},{"Add":"(test T (atom 'a))"},{"Add":"(test T (atom NIL))"},{"Add":"(test NIL (atom (123)))"},{"Add":""},{"Add":""},{"Add":"### pair ###"},{"Add":"(test NIL (pair NIL))"},{"Add":"(test (1 . 2) (pair (1 . 2)))"},{"Add":"(test (1 2 3) (pair (1 2 3)))"},{"Add":""},{"Add":""},{"Add":"### circ? ###"},{"Add":"(test NIL (circ? 'a))"},{"Add":"(test NIL (circ? (1 2 3)))"},{"Add":"(test (2 3 . @) (circ? (1 . (2 3 .))))"},{"Add":""},{"Add":""},{"Add":"### lst? ###"},{"Add":"(test T (lst? NIL))"},{"Add":"(test NIL (lst? T))"},{"Add":"(test T (lst? (1 . 2)))"},{"Add":"(test T (lst? (1 2 3)))"},{"Add":""},{"Add":""},{"Add":"### num? ###"},{"Add":"(test 123 (num? 123))"},{"Add":"(test NIL (num? 'abc))"},{"Add":"(test NIL (num? (1 2 3)))"},{"Add":""},{"Add":""},{"Add":"### sym? ###"},{"Add":"(test T (sym? 'a))"},{"Add":"(test T (sym? NIL))"},{"Add":"(test NIL (sym? 123))"},{"Add":"(test NIL (sym? '(a b)))"},{"Add":""},{"Add":""},{"Add":"### flg? ###"},{"Add":"(test T (flg? T))"},{"Add":"(test T (flg? NIL))"},{"Add":"(test NIL (flg? 0))"},{"Add":"(test T (flg? (= 3 3)))"},{"Add":"(test T (flg? (= 3 4)))"},{"Add":"(test NIL (flg? (+ 3 4)))"},{"Add":""},{"Add":""},{"Add":"### member ###"},{"Add":"(test (3 4 5 6) (member 3 (1 2 3 4 5 6)))"},{"Add":"(test (3 . @) (member 3 (1 2 3 4 5 6 .)))"},{"Add":"(test NIL (member 9 (1 2 3 4 5 6)))"},{"Add":"(test NIL (member 9 (1 2 3 4 5 6 .)))"},{"Add":"(test '((d e f) (g h i))"},{"Add":" (member '(d e f) '((a b c) (d e f) (g h i))) )"},{"Add":""},{"Add":""},{"Add":"### memq ###"},{"Add":"(test '(c d e f) (memq 'c '(a b c d e f)))"},{"Add":"(test '(c . @) (memq 'c '(a b c d e f .)))"},{"Add":"(test NIL (memq (2) '((1) (2) (3))))"},{"Add":"(test NIL (memq (2) '((1) (2) (3) .)))"},{"Add":"(test 'c (memq 'c '(a b . c)))"},{"Add":"(test '(b c a . @Z) (memq 'b '(a b c .)))"},{"Add":"(test NIL (memq 'd '(a b c .)))"},{"Add":""},{"Add":""},{"Add":"### mmeq ###"},{"Add":"(test NIL (mmeq '(a b c) '(d e f)))"},{"Add":"(test '(b x) (mmeq '(a b c) '(d b x)))"},{"Add":""},{"Add":""},{"Add":"### sect ###"},{"Add":"(test (3 4) (sect (1 2 3 4) (3 4 5 6)))"},{"Add":"(test (1 2 3) (sect (1 2 3) (1 2 3)))"},{"Add":"(test NIL (sect (1 2 3) (4 5 6)))"},{"Add":""},{"Add":""},{"Add":"### diff ###"},{"Add":"(test (1 3 5) (diff (1 2 3 4 5) (2 4)))"},{"Add":"(test (1 2 3) (diff (1 2 3) NIL))"},{"Add":"(test NIL (diff (1 2 3) (1 2 3)))"},{"Add":""},{"Add":""},{"Add":"### index ###"},{"Add":"(test 3 (index 'c '(a b c d e f)))"},{"Add":"(test NIL (index 'z '(a b c d e f)))"},{"Add":"(test 3 (index '(5 6) '((1 2) (3 4) (5 6) (7 8))))"},{"Add":""},{"Add":""},{"Add":"### offset ###"},{"Add":"(test 3 (offset '(c d e f) '(a b c d e f)))"},{"Add":"(test NIL (offset '(c d e) '(a b c d e f)))"},{"Add":""},{"Add":""},{"Add":"### prior ###"},{"Add":"(let (L (1 2 3 4 5 6) X (cdddr L))"},{"Add":" (test NIL (prior L L))"},{"Add":" (test NIL (prior NIL L))"},{"Add":" (test (3 4 5 6) (prior X L)) )"},{"Add":""},{"Add":""},{"Add":"### length ###"},{"Add":"(test 3 (length \"abc\"))"},{"Add":"(test 3 (length \"äbc\"))"},{"Add":"(test 3 (length 123))"},{"Add":"(test 3 (length (1 (2) 3)))"},{"Add":"(test T (length (1 2 3 .)))"},{"Add":"(test T (length (1 . (2 3 .))))"},{"Add":""},{"Add":""},{"Add":"### size ###"},{"Add":"(test 3 (size \"abc\"))"},{"Add":"(test 4 (size \"äbc\"))"},{"Add":"(test 1 (size 127))"},{"Add":"(test 2 (size 128))"},{"Add":"(test 4 (size (1 (2) 3)))"},{"Add":"(test 3 (size (1 2 3 .)))"},{"Add":"(test 8 (size '((1 2 3) (4 5 6))))"},{"Add":"(test 6 (size '((1 2 .) (4 5 .))))"},{"Add":"(test 3 (size (1 . (2 3 .))))"},{"Add":""},{"Add":""},{"Add":"### bytes ###"},{"Add":"(test 4 (bytes \"abc\"))"},{"Add":"(test 5 (bytes \"äbc\"))"},{"Add":"(test 9 (bytes \"abcdefgh\"))"},{"Add":"(test 2 (bytes 127))"},{"Add":"(test 3 (bytes 128))"},{"Add":"(test 10 (bytes (101 (102) 103)))"},{"Add":"(test 9 (bytes (101 102 103 .)))"},{"Add":"(let (L (7 \"abc\" (1 2 3) 'a) F (tmp \"bytes\"))"},{"Add":" (out F (pr L))"},{"Add":" (test (bytes L) (car (info F))) )"},{"Add":""},{"Add":""},{"Add":"### assoc ###"},{"Add":"(test '(\"b\" . 7)"},{"Add":" (assoc \"b\" '((999 1 2 3) (\"b\" . 7) (\"ok\" \"Hello\"))) )"},{"Add":"(test '(\"b\" . 7)"},{"Add":" (assoc \"b\" '((999 1 2 3) (\"b\" . 7) (\"ok\" \"Hello\") .)) )"},{"Add":"(test (999 1 2 3)"},{"Add":" (assoc 999 '((999 1 2 3) (\"b\" . 7) (\"ok\" \"Hello\"))) )"},{"Add":"(test NIL"},{"Add":" (assoc 'u '((999 1 2 3) (\"b\" . 7) (\"ok\" \"Hello\"))) )"},{"Add":"(test NIL"},{"Add":" (assoc 'u '((999 1 2 3) (\"b\" . 7) (\"ok\" \"Hello\") .)) )"},{"Add":""},{"Add":""},{"Add":"### rassoc ###"},{"Add":"(test '(\"b\" . 7)"},{"Add":" (rassoc 7 '((999 1 2 3) (\"b\" . 7) (\"ok\" \"Hello\"))) )"},{"Add":"(test '(\"b\" . 7)"},{"Add":" (rassoc 7 '((999 1 2 3) (\"b\" . 7) (\"ok\" \"Hello\") .)) )"},{"Add":"(test (999 1 2 3)"},{"Add":" (rassoc (1 2 3) '((999 1 2 3) (\"b\" . 7) (\"ok\" \"Hello\"))) )"},{"Add":"(test NIL"},{"Add":" (rassoc 'u '((999 1 2 3) (\"b\" . 7) (\"ok\" \"Hello\"))) )"},{"Add":"(test NIL"},{"Add":" (rassoc 'u '((999 1 2 3) (\"b\" . 7) (\"ok\" \"Hello\") .)) )"},{"Add":""},{"Add":""},{"Add":"### asoq ###"},{"Add":"(test NIL"},{"Add":" (asoq (9) '(((9) 1 2 3) (b . 7) (\"ok\" \"Hello\"))) )"},{"Add":"(test NIL"},{"Add":" (asoq (9) '(((9) 1 2 3) (b . 7) (\"ok\" \"Hello\") .)) )"},{"Add":"(test '(b . 7)"},{"Add":" (asoq 'b '(((9) 1 2 3) (b . 7) (\"ok\" \"Hello\"))) )"},{"Add":"(test '(b . 7)"},{"Add":" (asoq 'b '(((9) 1 2 3) (b . 7) (\"ok\" \"Hello\") .)) )"},{"Add":""},{"Add":""},{"Add":"### rasoq ###"},{"Add":"(test '(2 . b)"},{"Add":" (rasoq 'b '((1 . a) (2 . b) (3 . c))) )"},{"Add":"(test '(2 . b)"},{"Add":" (rasoq 'b '((1 . a) (2 . b) (3 . c) .)) )"},{"Add":"(test NIL"},{"Add":" (rasoq \"b\" '((1 . a) (2 . b) (3 . c))) )"},{"Add":"(test NIL"},{"Add":" (rasoq \"b\" '((1 . a) (2 . b) (3 . c) .)) )"},{"Add":""},{"Add":""},{"Add":"### rank ###"},{"Add":"(test NIL"},{"Add":" (rank 0 '((1 . a) (100 . b) (1000 . c))) )"},{"Add":"(test (1 . a)"},{"Add":" (rank 50 '((1 . a) (100 . b) (1000 . c))) )"},{"Add":"(test (100 . b)"},{"Add":" (rank 100 '((1 . a) (100 . b) (1000 . c))) )"},{"Add":"(test (100 . b)"},{"Add":" (rank 300 '((1 . a) (100 . b) (1000 . c))) )"},{"Add":"(test (1000 . c)"},{"Add":" (rank 9999 '((1 . a) (100 . b) (1000 . c))) )"},{"Add":"(test (100 . b)"},{"Add":" (rank 50 '((1000 . a) (100 . b) (1 . c)) T) )"},{"Add":""},{"Add":""},{"Add":"### match ###"},{"Add":"(use (@A @B @X @Y @Z)"},{"Add":" (test T"},{"Add":" (match '(@A is @B) '(This is a test)) )"},{"Add":" (test '(This) @A)"},{"Add":" (test '(a test) @B)"},{"Add":" (test T"},{"Add":" (match '(@X (d @Y) @Z) '((a b c) (d (e f) g) h i)) )"},{"Add":" (test '((a b c)) @X)"},{"Add":" (test '((e f) g) @Y)"},{"Add":" (test '(h i) @Z) )"},{"Add":""},{"Add":""},{"Add":"### fill ###"},{"Add":"(let (@X 1234 @Y (1 2 3 4))"},{"Add":" (test 1234 (fill '@X))"},{"Add":" (test '(a b (c 1234) (((1 2 3 4) . d) e))"},{"Add":" (fill '(a b (c @X) ((@Y . d) e))) ) )"},{"Add":"(test (1 a b c 9)"},{"Add":" (fill (1 ^(list 'a 'b 'c) 9)) )"},{"Add":"(test (1 5 7)"},{"Add":" (fill (1 ^(+ 2 3) 7)) )"},{"Add":"(let X 2 (test (1 2 3) (fill (1 X 3) 'X)))"},{"Add":"(let X 2 (test (1 2 3) (fill (1 X 3) '(X))))"},{"Add":"(test (1 (a (7 . 2) c) 3)"},{"Add":" (fill (1 (a (b . 2) c) 3) 'b 7) )"},{"Add":"(test (1 (a (b . 123) c) 3)"},{"Add":" (fill (1 (a (b . 2) c) 3) 2 123) )"},{"Add":""},{"Add":""},{"Add":"### prove ###"},{"Add":"(test T"},{"Add":" (prove (goal '((equal 3 3)))) )"},{"Add":"(test '((@X . 3))"},{"Add":" (prove (goal '((equal 3 @X)))) )"},{"Add":"(test NIL"},{"Add":" (prove (goal '((equal 3 4)))) )"},{"Add":""},{"Add":""},{"Add":"### -> ###"},{"Add":"(test '((@A . 3) (@B . 7))"},{"Add":" (prove (goal '(@A 3 (^ @B (+ 4 (-> @A)))))) )"},{"Add":"(test '((@A . 3) (@B . 7))"},{"Add":" (prove (goal '(@A 3 (^ @B (+ 4 @A))))) )"},{"Add":"(test '((@A . 3) (@B . 4) (@N . 12))"},{"Add":" (prove (goal '(@A 3 @B 4 (^ @N (* @A @B))))) )"},{"Add":""},{"Add":""},{"Add":"### unify ###"},{"Add":"(test '((@A ((NIL . @C) 0 . @C) ((NIL . @B) 0 . @B) T))"},{"Add":" (prove (goal '((^ @A (unify '(@B @C)))))) )"},{"Add":""},{"Add":""},{"Add":"### not/1 call/1 or/2 nil/1 uniq/2 ###"},{"Add":"(test NIL"},{"Add":" (prove (goal '(@A 3 @B 3 (not (equal @A @B))))) )"},{"Add":"(test '((@A . 3) (@B . 4))"},{"Add":" (prove (goal '(@A 3 @B 4 (not (equal @A @B))))) )"},{"Add":"(test '((@A 1 2 3) (@X 4 5 6))"},{"Add":" (prove (goal '(@A (1 2 3) (call append @A @X (1 2 3 4 5 6))))) )"},{"Add":"(test '((@X . 7))"},{"Add":" (prove (goal '((or ((equal 3 @X) (equal @X 4)) ((equal 7 @X) (equal @X 7)))))) )"},{"Add":"(test '((@X)) (prove (goal '(@X NIL (nil @X)))))"},{"Add":"(test '(a b c d)"},{"Add":" (solve '((^ @B (box)) (lst @X (a b c b c d)) (uniq @B @X)) @X) )"},{"Add":""},{"Add":""},{"Add":"### asserta/1 assertz/1 retract/1 ###"},{"Add":"(test T"},{"Add":" (prove"},{"Add":" (goal"},{"Add":" (quote"},{"Add":" (asserta (a (2)))"},{"Add":" (assertz (a (3)))"},{"Add":" (asserta (a (1))) ) ) ) )"},{"Add":"(test '(((1)) ((2)) ((3)))"},{"Add":" (get 'a T) )"},{"Add":"(test T"},{"Add":" (prove (goal '((retract (a 2))))) )"},{"Add":"(test '(((1)) ((3)))"},{"Add":" (get 'a T) )"},{"Add":""},{"Add":""},{"Add":"### clause/2 ###"},{"Add":"(test T"},{"Add":" (prove (goal '((clause append ((NIL @X @X)))))) )"},{"Add":"(test '((@C (NIL @X @X)))"},{"Add":" (prove (goal '((clause append @C)))) )"},{"Add":""},{"Add":""},{"Add":"### for/2 for/3 for/4 ###"},{"Add":"(test '(((@I . 1)) ((@I . 2)) ((@I . 3)))"},{"Add":" (solve '((for @I 3))) )"},{"Add":"(test '(((@I . 3)) ((@I . 4)) ((@I . 5)) ((@I . 6)) ((@I . 7)))"},{"Add":" (solve '((for @I 3 7))) )"},{"Add":"(test '(((@I . 7)) ((@I . 5)) ((@I . 3)))"},{"Add":" (solve '((for @I 7 3 2))) )"},{"Add":""},{"Add":""},{"Add":"### group ###"},{"Add":"(test '((1 a b c) (2 d e f))"},{"Add":" (group '((1 . a) (1 . b) (1 . c) (2 . d) (2 . e) (2 . f))) )"},{"Add":""},{"Add":""},{"Add":"### sort ###"},{"Add":"(test '(NIL 1 2 3 4 a b c d (1 2 3) (a b c) (x y z) T)"},{"Add":" (sort '(a 3 1 (1 2 3) d b 4 T NIL (a b c) (x y z) c 2)) )"},{"Add":"(test '(T (x y z) (a b c) (1 2 3) d c b a 4 3 2 1 NIL)"},{"Add":" (sort '(a 3 1 (1 2 3) d b 4 T NIL (a b c) (x y z) c 2) >) )"}]}},{"FileAdd":{"meta":{"basename":"net.l","metadata":0},"context":[{"change":0,"pos":114}],"contents":[{"Add":"# 06oct20 Software Lab. Alexander Burger"},{"Add":""},{"Add":"### port listen connect ###"},{"Add":"(test '(a b c)"},{"Add":" (let P (port 0 \"ListenPort\")"},{"Add":" (unless (fork)"},{"Add":" (close P)"},{"Add":" (until (connect \"localhost\" \"ListenPort\")"},{"Add":" (wait 80) )"},{"Add":" (out @ (pr '(a b c)))"},{"Add":" (bye) )"},{"Add":" (prog1"},{"Add":" (in (listen P) (rd))"},{"Add":" (close P) ) ) )"},{"Add":""},{"Add":""},{"Add":"### udp ###"},{"Add":"(test '(a b c)"},{"Add":" (let P (port T 0 \"UdpPort\")"},{"Add":" (if (fork)"},{"Add":" (udp P)"},{"Add":" (close P)"},{"Add":" (wait 400)"},{"Add":" (udp \"localhost\" \"UdpPort\" '(a b c))"},{"Add":" (bye) ) ) )"}]}},{"FileAdd":{"meta":{"basename":"main.l","metadata":0},"context":[{"change":0,"pos":114}],"contents":[{"Add":"# 13dec23 Software Lab. Alexander Burger"},{"Add":""},{"Add":"### Evaluation ###"},{"Add":"(test 2"},{"Add":" (when 1"},{"Add":" ('((N) N) (and 2))"},{"Add":" @ ) )"},{"Add":""},{"Add":"### alarm ###"},{"Add":"(let N 6"},{"Add":" (alarm 1 (inc 'N))"},{"Add":" (test 6 N)"},{"Add":" (wait 2000)"},{"Add":" (test 7 N)"},{"Add":" (alarm 0) )"},{"Add":""},{"Add":""},{"Add":"### sigio ###"},{"Add":"(unless (member *OS '(\"SunOS\" \"OpenBSD\" \"Cygwin\" \"AIX\" \"HP-UX\" \"IRIX64\"))"},{"Add":" (sigio (setq \"SigSock\" (port T 0 \"SigPort\"))"},{"Add":" (setq \"SigVal\" (udp \"SigSock\")) )"},{"Add":" (udp \"localhost\" \"SigPort\" '(a b c))"},{"Add":" (wait 200)"},{"Add":" (test '(a b c) \"SigVal\")"},{"Add":" (close \"SigSock\") )"},{"Add":""},{"Add":""},{"Add":"### kids ###"},{"Add":"(test"},{"Add":" (make"},{"Add":" (do 7"},{"Add":" (link (or (fork) (wait 2000) (bye))) ) )"},{"Add":" (flip (kids)) )"},{"Add":""},{"Add":"### protect ###"},{"Add":"(test NIL (pipe (prog (kill *Pid) (pr 7)) (rd)))"},{"Add":"(test 7 (pipe (protect (kill *Pid) (pr 7)) (rd)))"},{"Add":""},{"Add":""},{"Add":"### quit ###"},{"Add":"(test \"Quit\" (catch '(\"Quit\") (quit \"Quit\")))"},{"Add":""},{"Add":""},{"Add":"### byte ###"},{"Add":"(test (18 18)"},{"Add":" (let A (adr (81064793292668929)) # cnt 1200000000000012"},{"Add":" (list (byte A) (byte (+ A 7))) ) )"},{"Add":""},{"Add":"(test \"ABC\""},{"Add":" (let P (native \"@\" \"malloc\" 'P 8)"},{"Add":" (byte P (char \"A\"))"},{"Add":" (byte (inc P) (char \"B\"))"},{"Add":" (byte (+ P 2) (char \"C\"))"},{"Add":" (byte (+ P 3) 0)"},{"Add":" (prog1"},{"Add":" (native \"@\" \"strdup\" 'S P)"},{"Add":" (native \"@\" \"free\" NIL P) ) ) )"},{"Add":""},{"Add":""},{"Add":"### adr ###"},{"Add":"(let (X (box 7) L (123))"},{"Add":" (test 7 (val (adr (adr X))))"},{"Add":" (test 123 (car (adr (adr L)))) )"},{"Add":""},{"Add":"### env ###"},{"Add":"(setq *E (env))"},{"Add":"(test NIL *E)"},{"Add":""},{"Add":"(let (A 1 B 2)"},{"Add":" (setq *E (env)) )"},{"Add":"(test '((A . 1) (B . 2)) *E)"},{"Add":""},{"Add":"(let (A 1 B 2)"},{"Add":" (setq *E (env '(A B))) )"},{"Add":"(test '((B . 2) (A . 1)) *E)"},{"Add":""},{"Add":"(let (A 1 B 2)"},{"Add":" (setq *E (env 'X 7 '(A B (C . 3)) 'Y 8)) )"},{"Add":"(test '((Y . 8) (C . 3) (B . 2) (A . 1) (X . 7)) *E)"},{"Add":""},{"Add":""},{"Add":"### trail ###"},{"Add":"(when trail"},{"Add":" (let"},{"Add":" (F '((A B) (G (inc A) (dec B)))"},{"Add":" G '((X Y) (trail T)) )"},{"Add":" (test '(@X (F 3 4) A 3 B 4 (G (inc A) (dec B)) X 4 Y 3)"},{"Add":" (F 3 4) ) ) )"},{"Add":""},{"Add":"### up ###"},{"Add":"(test 1"},{"Add":" (let N 1"},{"Add":" ((quote (N) (up N)) 2) ) )"},{"Add":"(test 7"},{"Add":" (let N 1"},{"Add":" ((quote (N) (up N 7)) 2)"},{"Add":" N ) )"},{"Add":""},{"Add":""},{"Add":"### sys ###"},{"Add":"(test \"PicoLisp\" (sys \"TEST\" \"PicoLisp\"))"},{"Add":"(test \"PicoLisp\" (sys \"TEST\"))"},{"Add":""},{"Add":""},{"Add":"### args next arg rest ####"},{"Add":"(test '(T 1 3 (2 3 4))"},{"Add":" (let foo '(@ (list (args) (next) (arg 2) (rest)))"},{"Add":" (foo 1 2 3 4) ) )"},{"Add":""},{"Add":"(test (7 NIL)"},{"Add":" ((quote @ (list (next) (next))) 7) )"},{"Add":""},{"Add":""},{"Add":"### usec ###"},{"Add":"(let U (usec)"},{"Add":" (wait 400)"},{"Add":" (test 4 (*/ (- (usec) U) 100000)) )"},{"Add":""},{"Add":""},{"Add":"### pwd ###"},{"Add":"(test *PWD (pwd))"},{"Add":""},{"Add":""},{"Add":"### cd ###"},{"Add":"(chdir \"/\""},{"Add":" (test \"/\" (pwd)) )"},{"Add":""},{"Add":""},{"Add":"### info ###"},{"Add":"(test '(T . @) (info \"@test\"))"},{"Add":"(test (5 . @)"},{"Add":" (out (tmp \"info\") (prinl \"info\"))"},{"Add":" (info (tmp \"info\")) )"},{"Add":""},{"Add":""},{"Add":"### file ###"},{"Add":"(test (cons (tmp) \"file\" 1)"},{"Add":" (out (tmp \"file\") (println '(file)))"},{"Add":" (load (tmp \"file\")) )"},{"Add":""},{"Add":""},{"Add":"### dir ###"},{"Add":"(call \"mkdir\" \"-p\" (tmp \"dir\"))"},{"Add":"(out (tmp \"dir/.abc\"))"},{"Add":"(out (tmp \"dir/a\"))"},{"Add":"(out (tmp \"dir/b\"))"},{"Add":"(out (tmp \"dir/c\"))"},{"Add":""},{"Add":"(test '(\"a\" \"b\" \"c\") (sort (dir (tmp \"dir\"))))"},{"Add":"(test '(\".\" \"..\" \".abc\" \"a\" \"b\" \"c\") (sort (dir (tmp \"dir\") T)))"},{"Add":""},{"Add":""},{"Add":"### cmd ###"},{"Add":"(cmd \"test\")"},{"Add":"(test \"test\" (cmd))"},{"Add":""},{"Add":""},{"Add":"### argv ###"},{"Add":"(test '(\"abc\" \"123\")"},{"Add":" (pipe"},{"Add":" (call *CMD \"-prog (println (argv)) (bye)\" \"abc\" 123)"},{"Add":" (read) ) )"},{"Add":"(test '(\"abc\" \"123\")"},{"Add":" (pipe"},{"Add":" (call *CMD \"-prog (argv A B) (println (list A B)) (bye)\" \"abc\" 123)"},{"Add":" (read) ) )"},{"Add":""},{"Add":""},{"Add":"### opt ###"},{"Add":"(test '(\"abc\" \"123\")"},{"Add":" (pipe"},{"Add":" (call *CMD \"-prog (println (list (opt) (opt))) (bye)\" \"abc\" 123)"},{"Add":" (read) ) )"},{"Add":"(test \"abc\""},{"Add":" (pipe"},{"Add":" (call *CMD \"-de f () (println (opt))\" \"-f\" \"abc\" \"-bye\")"},{"Add":" (read) ) )"},{"Add":""},{"Add":""},{"Add":"### date time ###"},{"Add":"(use (Dat1 Tim1 Dat2 Tim2 D1 T1 D2 T2)"},{"Add":" (until"},{"Add":" (="},{"Add":" (setq Dat1 (date) Tim1 (time T))"},{"Add":" (prog"},{"Add":" (setq"},{"Add":" Dat2 (date T)"},{"Add":" Tim2 (time T)"},{"Add":" D1 (in '(date \"+%Y %m %d\") (list (read) (read) (read)))"},{"Add":" T1 (in '(date \"+%H %M %S\") (list (read) (read) (read)))"},{"Add":" D2 (in '(date \"-u\" \"+%Y %m %d\") (list (read) (read) (read)))"},{"Add":" T2 (in '(date \"-u\" \"+%H %M %S\") (list (read) (read) (read))) )"},{"Add":" (time) ) ) )"},{"Add":" (test Tim1 (time T1))"},{"Add":" (test Tim1 (apply time T1))"},{"Add":" (test Tim2 (time T2))"},{"Add":" (test Dat1 (date D1))"},{"Add":" (test Dat1 (apply date D1))"},{"Add":" (test Dat2 (date D2)) )"},{"Add":""},{"Add":"(test (2000 7 15) (date 730622))"},{"Add":"(test 730622 (date 2000 7 15))"},{"Add":"(test 730622 (date (2000 7 15)))"},{"Add":"(test NIL (date NIL))"},{"Add":""},{"Add":"(test (11 17 23) (time 40643))"},{"Add":"(test 40643 (time 11 17 23))"},{"Add":"(test 40643 (time (11 17 23)))"},{"Add":"(test NIL (time NIL))"}]}},{"FileAdd":{"meta":{"basename":"io.l","metadata":0},"context":[{"change":0,"pos":114}],"contents":[{"Add":"# 26may22 Software Lab. Alexander Burger"},{"Add":""},{"Add":"### path ###"},{"Add":"(test 'task (cadr (in (path \"@lib.l\") (read))))"},{"Add":"(test (char \"+\") (char (path \"+@\")))"},{"Add":""},{"Add":""},{"Add":"### read ###"},{"Add":"(test (1 2 3) (~(1 2) 3))"},{"Add":"(test (1 3) (~(1 . 2) 3))"},{"Add":"(test (1 2 3 4) (1 ~(2 3) 4))"},{"Add":"(test (1 2 4) (1 ~(2 . 3) 4))"},{"Add":"(test (1 2 3) [1 2 3])"},{"Add":"(test (1 2 3) (1 2 3]"},{"Add":"(test (1 2 3) (1 2 3)]"},{"Add":"(test (1 (2 3)) (1 (2 3]"},{"Add":"(test (quote 1 (2 (3))) '(1 (2 (3]"},{"Add":"(test (quote 1 (2 (3))) '[1 (2 (3])"},{"Add":"(test (1 abc (d e f))"},{"Add":" (pipe (prinl \"(1 abc (d e f))\")"},{"Add":" (read) ) )"},{"Add":"(test '(abc \"=\" def_ghi \"(\" (\"x\" \"y\" \"z\") \"+\" \"-\" 123 \")\")"},{"Add":" (pipe (prinl \"abc = def_ghi(\\\"xyz\\\"+-123) # Comment\")"},{"Add":" (make"},{"Add":" (while (read \"_\" \"#\")"},{"Add":" (link @) ) ) ) )"},{"Add":""},{"Add":""},{"Add":"### wait ###"},{"Add":"(let (*Run NIL *Cnt 0)"},{"Add":" (test (1 2 3 4 5 6 7)"},{"Add":" (make"},{"Add":" (task -10 0 (link (inc '*Cnt)))"},{"Add":" (wait NIL (>= *Cnt 7)) ) ) )"},{"Add":""},{"Add":""},{"Add":"### peek char ###"},{"Add":"(pipe (prin \"ab\")"},{"Add":" (test \"a\" (peek))"},{"Add":" (test \"a\" (char))"},{"Add":" (test \"b\" (peek))"},{"Add":" (test \"b\" (char))"},{"Add":" (test NIL (peek))"},{"Add":" (test NIL (char)) )"},{"Add":"(test \"A\" (char 65))"},{"Add":"(test 65 (char \"A\"))"},{"Add":""},{"Add":""},{"Add":"### skip ###"},{"Add":"(test \"a\""},{"Add":" (pipe (prinl \"# Comment\\na\")"},{"Add":" (skip \"#\") ) )"},{"Add":"(test \"#\""},{"Add":" (pipe (prinl \"# Comment\\na\")"},{"Add":" (skip) ) )"},{"Add":""},{"Add":""},{"Add":"### eof ###"},{"Add":"(test T (pipe NIL (eof)))"},{"Add":"(test NIL (pipe (prin \"a\") (eof)))"},{"Add":"(test T (pipe (prin \"a\") (eof T) (eof)))"},{"Add":""},{"Add":""},{"Add":"### from till ###"},{"Add":"(test \"cd\""},{"Add":" (pipe (prin \"ab.cd:ef\")"},{"Add":" (from \".\")"},{"Add":" (till \":\" T) ) )"},{"Add":""},{"Add":""},{"Add":"### line ###"},{"Add":"(test '(\"a\" \"b\" \"c\")"},{"Add":" (pipe (prin \"abc\\n\") (line)) )"},{"Add":"(test \"abc\""},{"Add":" (pipe (prin \"abc\") (line T)) )"},{"Add":"(test '(\"abc\" \"def\")"},{"Add":" (pipe (prin \"abc\\ndef\")"},{"Add":" (list (line T) (line T)) ) )"},{"Add":"(test '(\"abc\" \"def\")"},{"Add":" (pipe (prin \"abc\\rdef\")"},{"Add":" (list (line T) (line T)) ) )"},{"Add":"(test '(\"abc\" \"def\")"},{"Add":" (pipe (prin \"abc\\r\\ndef\")"},{"Add":" (list (line T) (line T)) ) )"},{"Add":"(test '(\"a\" \"bc\" \"def\")"},{"Add":" (pipe (prin \"abcdef\")"},{"Add":" (line T 1 2 3) ) )"},{"Add":""},{"Add":""},{"Add":"### any ###"},{"Add":"(test '(a b c d) (any \"(a b # Comment\\nc d)\"))"},{"Add":"(test \"A String\" (any \"\\\"A String\\\"\"))"},{"Add":""},{"Add":""},{"Add":"### sym ###"},{"Add":"(test \"(abc \\\"Hello\\\" 123)\""},{"Add":" (sym '(abc \"Hello\" 123)) )"},{"Add":""},{"Add":""},{"Add":"### str ###"},{"Add":"(test '(a (1 2) b)"},{"Add":" (str \"a (1 2) b\") )"},{"Add":"(test '(a (1 2))"},{"Add":" (str \"a (1 2) # b\") )"},{"Add":"(test \"a \\\"Hello\\\" DEF\""},{"Add":" (str '(a \"Hello\" DEF)) )"},{"Add":""},{"Add":""},{"Add":"### load ###"},{"Add":"(test 6 (load \"-* 1 2 3\"))"},{"Add":""},{"Add":""},{"Add":"### in out err ###"},{"Add":"(out (tmp \"file\")"},{"Add":" (println 123)"},{"Add":" (println 'abc)"},{"Add":" (println '(d e f)) )"},{"Add":"(in (tmp \"file\")"},{"Add":" (test 123 (read))"},{"Add":" (in (tmp \"file\")"},{"Add":" (test 123 (read))"},{"Add":" (test 'abc (in -1 (read))) )"},{"Add":" (test '(d e f) (read)) )"},{"Add":""},{"Add":"(let Err (tmp \"err\")"},{"Add":" (test 1 (err Err (msg 1)))"},{"Add":" (test 2 (err (pack \"+\" Err) (msg 2)))"},{"Add":" (test \"1\\n2\\n\" (in Err (till NIL T))) )"},{"Add":""},{"Add":""},{"Add":"### input output ###"},{"Add":"(test \"A\" (input \"A\" (char)))"},{"Add":"(test '(+ 2 (* 3 4))"},{"Add":" (let S (chop \"(+ 2 (* 3 4))\") (input (++ S) (read))) )"},{"Add":""},{"Add":"(test \"(+ 2 (* 3 4))\""},{"Add":" (pack (make (output (link @@) (print '(+ 2 (* 3 4)))))) )"},{"Add":""},{"Add":""},{"Add":"### pipe ###"},{"Add":"(test 123 (pipe (println 123) (read)))"},{"Add":"(test \"ABC DEF GHI\""},{"Add":" (pipe"},{"Add":" (out '(tr \"[a-z]\" \"[A-Z]\") (prinl \"abc def ghi\"))"},{"Add":" (line T) ) )"},{"Add":""},{"Add":""},{"Add":"### open close ###"},{"Add":"(let F (open (tmp \"file\"))"},{"Add":" (test 123 (in F (read)))"},{"Add":" (test 'abc (in F (read)))"},{"Add":" (test '(d e f) (in F (read)))"},{"Add":" (test F (close F)) )"},{"Add":""},{"Add":""},{"Add":"### echo ###"},{"Add":"(out (tmp \"echo\")"},{"Add":" (in (tmp \"file\")"},{"Add":" (echo) ) )"},{"Add":"(in (tmp \"echo\")"},{"Add":" (test 123 (read))"},{"Add":" (test 'abc (read))"},{"Add":" (test '(d e f) (read)) )"},{"Add":"(let F (tmp \"file\")"},{"Add":" (test \"12\""},{"Add":" (pipe (in F (echo 2))"},{"Add":" (line T) ) )"},{"Add":" (test \"23\""},{"Add":" (pipe (in F (echo 1 2))"},{"Add":" (line T) ) ) )"},{"Add":""},{"Add":""},{"Add":"### prin prinl space print printsp println ###"},{"Add":"(out (tmp \"prin\")"},{"Add":" (prin 1)"},{"Add":" (prinl 2)"},{"Add":" (space)"},{"Add":" (print 3)"},{"Add":" (printsp 4)"},{"Add":" (println 5) )"},{"Add":"(test (12 \"\\n\" \" \" 34 5)"},{"Add":" (in (tmp \"prin\")"},{"Add":" (list (read) (char) (char) (read) (read)) ) )"},{"Add":""},{"Add":""},{"Add":"### flush rewind ###"},{"Add":"(out (tmp \"prin\")"},{"Add":" (prinl \"abc\")"},{"Add":" (flush)"},{"Add":" (test \"abc\" (in (tmp \"prin\") (line T)))"},{"Add":" (rewind) )"},{"Add":"(out (tmp \"prin\") (prinl \"def\"))"},{"Add":"(test \"def\" (in (tmp \"prin\") (line T)))"},{"Add":""},{"Add":""},{"Add":"### ext rd pr ###"},{"Add":"(let L (list (id 1 2) (cons (id 3 9) 'a) (cons (id 2 7) 'b))"},{"Add":" (let L5 (list (id 6 2) (cons (id 8 9) 'a) (cons (id 7 7) 'b))"},{"Add":" (out (tmp \"ext\")"},{"Add":" (ext 5 (pr L5)) )"},{"Add":" (test L"},{"Add":" (in (tmp \"ext\") (rd)) )"},{"Add":" (test L5"},{"Add":" (in (tmp \"ext\") (ext 5 (rd))) ) ) )"},{"Add":""},{"Add":"(pipe"},{"Add":" (for N 4096"},{"Add":" (pr N) )"},{"Add":" (for N 4096"},{"Add":" (test N (rd)) ) )"},{"Add":"(pipe"},{"Add":" (for C 4096"},{"Add":" (pr (char C)) )"},{"Add":" (for C 4096"},{"Add":" (test C (char (rd))) ) )"},{"Add":"(pipe"},{"Add":" (pr (7 \"abc\" (1 2 3) 'a))"},{"Add":" (test (7 \"abc\" (1 2 3) 'a) (rd)) )"},{"Add":"(test \"def\""},{"Add":" (out (tmp \"pr\")"},{"Add":" (pr 'abc \"EOF\" 123 \"def\") ) )"},{"Add":"(test '(abc \"EOF\" 123 \"def\")"},{"Add":" (in (tmp \"pr\")"},{"Add":" (make"},{"Add":" (use X"},{"Add":" (until (== \"EOF\" (setq X (rd \"EOF\")))"},{"Add":" (link X) ) ) ) ) )"},{"Add":""},{"Add":"(let N 1"},{"Add":" (do 200"},{"Add":" (test N"},{"Add":" (pipe (pr N) (rd)) )"},{"Add":" (test (- N)"},{"Add":" (pipe (pr (- N)) (rd)) )"},{"Add":" (setq N (* 2 N))"},{"Add":" (wait 10) ) )"},{"Add":""},{"Add":"### wr ###"},{"Add":"(test 3"},{"Add":" (out (tmp \"wr\")"},{"Add":" (wr 1 2 3) ) )"},{"Add":"(test (hex \"010203\")"},{"Add":" (in (tmp \"wr\")"},{"Add":" (rd 3) ) )"},{"Add":""},{"Add":"(for I 100"},{"Add":" (let (L (need I \"01\") N (hex (pack L)))"},{"Add":" (test N"},{"Add":" (pipe (apply wr (mapcar format L)) (rd I)) )"},{"Add":" (wait 10) ) )"}]}},{"FileAdd":{"meta":{"basename":"ht.l","metadata":0},"context":[{"change":0,"pos":114}],"contents":[{"Add":"# 06oct20 Software Lab. Alexander Burger"},{"Add":""},{"Add":"### ht:Prin ###"},{"Add":"(test \"1<2>3&äöü<i>ÄÖÜß\""},{"Add":" (pipe (ht:Prin \"1<2>3&äöüÄÖÜß\") (line T)) )"},{"Add":""},{"Add":""},{"Add":"### ht:Fmt ###"},{"Add":"(test \"+123&abc&$def&-123&_+1_xyz_+7\""},{"Add":" (ht:Fmt 123 \"abc\" 'def '{123} (1 \"xyz\" 7)) )"},{"Add":""},{"Add":""},{"Add":"### ht:Pack ###"},{"Add":"(test \"A+B%20C\""},{"Add":" (ht:Pack '(\"A\" \"+\" \"B\" \"%\" \"2\" \"0\" \"C\")) )"},{"Add":"(test \"A+B C\""},{"Add":" (ht:Pack '(\"A\" \"+\" \"B\" \"%\" \"2\" \"0\" \"C\") T) )"},{"Add":"(test \"a b>c\""},{"Add":" (ht:Pack '(\"a\" \"%\" \"2\" \"0\" \"b\" \"&\" \"g\" \"t\" \";\" \"c\") T) )"},{"Add":"(test \"a€z\""},{"Add":" (ht:Pack '(\"a\" \"&\" \"#\" \"8\" \"3\" \"6\" \"4\" \";\" \"z\")) )"},{"Add":"(test \"äöü\""},{"Add":" (ht:Pack '(\"%\" \"C\" \"3\" \"%\" \"A\" \"4\" \"%\" \"C\" \"3\" \"%\" \"B\" \"6\" \"%\" \"C\" \"3\" \"%\" \"B\" \"C\") T) )"},{"Add":""},{"Add":""},{"Add":"### ht:Read ###"},{"Add":"(test NIL"},{"Add":" (pipe (prin \"abcde\") (ht:Read 0)) )"},{"Add":"(test NIL"},{"Add":" (pipe (prin \"abcde\") (ht:Read 6)) )"},{"Add":"(test NIL"},{"Add":" (pipe NIL (ht:Read 3)) )"},{"Add":"(test NIL"},{"Add":" (pipe (prin \"äö\") (ht:Read 3)) )"},{"Add":"(test '(\"ä\" \"ö\")"},{"Add":" (pipe (prin \"äö\") (ht:Read 4)) )"},{"Add":"(test '(\"a\" \"b\" \"c\")"},{"Add":" (pipe (prin \"abcde\") (ht:Read 3)) )"},{"Add":"(test '(\"ä\" \"ö\" \"ü\")"},{"Add":" (pipe (prin \"äöüxyz\") (ht:Read 6)) )"},{"Add":""},{"Add":""},{"Add":"### ht:In ht:Out ###"},{"Add":"(test \"Hello world\""},{"Add":" (pipe (ht:Out T (prinl \"Hello world\")) (ht:In T (line T))) )"}]}},{"FileAdd":{"meta":{"basename":"flow.l","metadata":0},"context":[{"change":0,"pos":114}],"contents":[{"Add":"# 14dec20 Software Lab. Alexander Burger"},{"Add":""},{"Add":"### quote ###"},{"Add":"(test (1 2 3) (quote 1 2 3))"},{"Add":""},{"Add":""},{"Add":"### as ###"},{"Add":"(test NIL (as (= 3 4) A B C))"},{"Add":"(test '(A B C) (as (= 3 3) A B C))"},{"Add":""},{"Add":""},{"Add":"### lit ###"},{"Add":"(test 123 (lit 123))"},{"Add":"(test NIL (lit NIL))"},{"Add":"(test T (lit T))"},{"Add":"(test (1) (lit '(1)))"},{"Add":"(test ''\"abc\" (lit \"abc\"))"},{"Add":"(test ''a (lit 'a))"},{"Add":"(test (1 2 3) (lit '(1 2 3)))"},{"Add":"(test ''(a b c) (lit '(a b c)))"},{"Add":""},{"Add":""},{"Add":"### eval ###"},{"Add":"(test 6 (eval (list '+ 1 2 3)))"},{"Add":"(let (X 'Y Y 7)"},{"Add":" (test 7 (eval X)) )"},{"Add":"(when 3"},{"Add":" ((quote (N)"},{"Add":" (when 2"},{"Add":" (test 1 N)"},{"Add":" (test 2 (eval '@ 1))"},{"Add":" (test 3 (eval '@ 2)) ) )"},{"Add":" 1 ) )"},{"Add":""},{"Add":""},{"Add":"### run ###"},{"Add":"(test 6 (run (list (list '+ 1 2 3))))"},{"Add":"(test 5"},{"Add":" (when 2"},{"Add":" ((quote (N)"},{"Add":" (and 1 (run '((+ N @)) 1)) )"},{"Add":" 3 ) ) )"},{"Add":""},{"Add":""},{"Add":"### def ###"},{"Add":"(test '\"a\""},{"Add":" (def '\"a\" '((X Y) (* X (+ X Y)))) )"},{"Add":"(test '((X Y) (* X (+ X Y)))"},{"Add":" \"a\" )"},{"Add":""},{"Add":""},{"Add":"### de ###"},{"Add":"(test '\"b\""},{"Add":" (de \"b\" (X Y) (* X (+ X Y))) )"},{"Add":"(test '((X Y) (* X (+ X Y)))"},{"Add":" \"b\" )"},{"Add":""},{"Add":""},{"Add":"### dm ###"},{"Add":"(off \"+Cls\" \"+A\")"},{"Add":"(class \"+Cls\" \"+A\")"},{"Add":""},{"Add":"(test '\"foo>\""},{"Add":" (dm \"foo>\" (X Y)"},{"Add":" (* X (+ X Y)) ) )"},{"Add":"(test '\"foo>\""},{"Add":" (dm (\"foo>\" . \"+Cls\") (X Y)"},{"Add":" (* X (+ X Y)) ) )"},{"Add":"(test '((\"foo>\" (X Y) (* X (+ X Y))) \"+A\")"},{"Add":" \"+Cls\" )"},{"Add":""},{"Add":""},{"Add":"### box ###"},{"Add":"(let X (box '(A B C))"},{"Add":" (test X (box? X))"},{"Add":" (test '(A B C) (val X)) )"},{"Add":""},{"Add":""},{"Add":"### new type isa method meth send try ###"},{"Add":"(let X (new '(\"+Cls\"))"},{"Add":" (test X (box? X))"},{"Add":" (test 21 (\"foo>\" X 3 4))"},{"Add":" (test '(\"+Cls\") (type X))"},{"Add":" (test X (isa '\"+Cls\" X))"},{"Add":" (test NIL (isa '(A B C) X))"},{"Add":" (test '((X Y) (* X (+ X Y)))"},{"Add":" (method '\"foo>\" X) )"},{"Add":" (test meth \"foo>\")"},{"Add":" (test 21 (send '\"foo>\" X 3 4))"},{"Add":" (test NIL (try '\"bar>\" X))"},{"Add":" (test 21 (try '\"foo>\" X 3 4)) )"},{"Add":""},{"Add":""},{"Add":"### super ###"},{"Add":"(off \"+Sub\")"},{"Add":"(class \"+Sub\" \"+Cls\")"},{"Add":""},{"Add":"(dm (\"foo>\" . \"+Sub\") (X Y)"},{"Add":" (super X Y) )"},{"Add":"(let X (new '(\"+Sub\"))"},{"Add":" (test 21 (\"foo>\" X 3 4)) )"},{"Add":""},{"Add":""},{"Add":"### super ###"},{"Add":"(off \"+Pref\")"},{"Add":"(class \"+Pref\")"},{"Add":""},{"Add":"(dm (\"foo>\" . \"+Pref\") (X Y)"},{"Add":" (extra X Y) )"},{"Add":"(let X (new '(\"+Pref\" \"+Sub\"))"},{"Add":" (test 21 (\"foo>\" X 3 4)) )"},{"Add":""},{"Add":""},{"Add":"### with ###"},{"Add":"(let X (box)"},{"Add":" (put X 'a 1)"},{"Add":" (put X 'b 2)"},{"Add":" (test (1 2)"},{"Add":" (with X (list (: a) (: b))) ) )"},{"Add":""},{"Add":""},{"Add":"### bind ###"},{"Add":"(let X 123"},{"Add":" (test \"Hello\""},{"Add":" (bind 'X"},{"Add":" (setq X \"Hello\")"},{"Add":" X ) )"},{"Add":" (test (3 4 12)"},{"Add":" (bind '((X . 3) (Y . 4))"},{"Add":" (list X Y (* X Y)) ) ) )"},{"Add":""},{"Add":""},{"Add":"### job ###"},{"Add":"(off \"tst\")"},{"Add":""},{"Add":"(de \"tst\" ()"},{"Add":" (job '((A . 0) (B . 0))"},{"Add":" (cons (inc 'A) (inc 'B 2)) ) )"},{"Add":""},{"Add":"(test (1 . 2) (\"tst\"))"},{"Add":"(test (2 . 4) (\"tst\"))"},{"Add":"(test (3 . 6) (\"tst\"))"},{"Add":""},{"Add":""},{"Add":"### let let? use ###"},{"Add":"(let N 1"},{"Add":" (test NIL (let? N NIL N))"},{"Add":" (test 7 (let? N 7 N))"},{"Add":" (use N"},{"Add":" (setq N 2)"},{"Add":" (let N 3"},{"Add":" (test 3 N) )"},{"Add":" (test 2 N) )"},{"Add":" (test 1 N) )"},{"Add":"(let N 1"},{"Add":" (use (N)"},{"Add":" (setq N 2)"},{"Add":" (let (N 3)"},{"Add":" (test 3 N) )"},{"Add":" (test 2 N) )"},{"Add":" (test 1 N) )"},{"Add":""},{"Add":"(test (1 2 (3) 4)"},{"Add":" (let (A 1 (B . C) (2 3) D 4)"},{"Add":" (list A B C D) ) )"},{"Add":"(test (1 (2 3) 4 (7 8 9))"},{"Add":" (let (((A . B) (C) . D) '((1 2 3) (4 5 6) 7 8 9))"},{"Add":" (list A B C D) ) )"},{"Add":"(test (1 8)"},{"Add":" (let (((A . NIL) NIL NIL D) '((1 2 3) (4 5 6) 7 8 9))"},{"Add":" (list A D) ) )"},{"Add":""},{"Add":"### and ###"},{"Add":"(test 7 (and T 123 7))"},{"Add":"(test NIL (and NIL 123))"},{"Add":""},{"Add":""},{"Add":"### or ###"},{"Add":"(test NIL (or NIL))"},{"Add":"(test 7 (or NIL 7 123))"},{"Add":""},{"Add":""},{"Add":"### nand ###"},{"Add":"(test NIL (nand T 123 7))"},{"Add":"(test T (nand NIL 123))"},{"Add":""},{"Add":""},{"Add":"### nor ###"},{"Add":"(test T (nor NIL))"},{"Add":"(test NIL (nor NIL 7 123))"},{"Add":""},{"Add":""},{"Add":"### xor ###"},{"Add":"(test T (xor T NIL))"},{"Add":"(test T (xor NIL T))"},{"Add":"(test NIL (xor NIL NIL))"},{"Add":"(test NIL (xor T T))"},{"Add":""},{"Add":""},{"Add":"### bool ###"},{"Add":"(test T (bool 'a))"},{"Add":"(test T (bool 123))"},{"Add":"(test NIL (bool NIL))"},{"Add":""},{"Add":""},{"Add":"### not ###"},{"Add":"(test T (not NIL))"},{"Add":"(test NIL (not T))"},{"Add":"(test NIL (not 'a))"},{"Add":""},{"Add":""},{"Add":"### nil ###"},{"Add":"(test NIL (nil (+ 1 2 3)))"},{"Add":""},{"Add":""},{"Add":"### t ###"},{"Add":"(test T (t (+ 1 2 3)))"},{"Add":""},{"Add":""},{"Add":"### prog ###"},{"Add":"(let N 7"},{"Add":" (test 3"},{"Add":" (prog (dec 'N) (dec 'N) (dec 'N) (dec 'N) N) ) )"},{"Add":""},{"Add":""},{"Add":"### prog1 prog2 ###"},{"Add":"(test 1 (prog1 1 2 3))"},{"Add":"(test 2 (prog2 1 2 3))"},{"Add":""},{"Add":""},{"Add":"### if ###"},{"Add":"(test 1 (if (= 3 3) 1 2))"},{"Add":"(test 2 (if (= 3 4) 1 2))"},{"Add":""},{"Add":""},{"Add":"### if2 ###"},{"Add":"(test 'both"},{"Add":" (if2 T T 'both 'first 'second 'none) )"},{"Add":"(test 'first"},{"Add":" (if2 T NIL 'both 'first 'second 'none) )"},{"Add":"(test 'second"},{"Add":" (if2 NIL T 'both 'first 'second 'none) )"},{"Add":"(test 'none"},{"Add":" (if2 NIL NIL 'both 'first 'second 'none) )"},{"Add":"(test 4 (if2 3 4 @))"},{"Add":"(test 7 (and 7 (if2 @ @ @)))"},{"Add":"(test 7 (and 7 (if2 @ NIL 1 @)))"},{"Add":"(test 7 (and 7 (if2 NIL @ 1 2 @)))"},{"Add":""},{"Add":""},{"Add":"### ifn ###"},{"Add":"(test 2 (ifn (= 3 3) 1 2))"},{"Add":"(test 1 (ifn (= 3 4) 1 2))"},{"Add":""},{"Add":""},{"Add":"### when ###"},{"Add":"(test 7 (when (= 3 3) 7))"},{"Add":"(test NIL (when (= 3 4) 7))"},{"Add":""},{"Add":""},{"Add":"### unless ###"},{"Add":"(test NIL (unless (= 3 3) 7))"},{"Add":"(test 7 (unless (= 3 4) 7))"},{"Add":""},{"Add":""},{"Add":"### cond ###"},{"Add":"(test 1 (cond ((= 3 3) 1) (T 2)))"},{"Add":"(test 2 (cond ((= 3 4) 1) (T 2)))"},{"Add":""},{"Add":""},{"Add":"### nond ###"},{"Add":"(test 2 (nond ((= 3 3) 1) (NIL 2)))"},{"Add":"(test 1 (nond ((= 3 4) 1) (NIL 2)))"},{"Add":"(test (1 . a)"},{"Add":" (nond ((num? 'a) (cons 1 'a)) (NIL (cons 2 @))) )"},{"Add":"(test (2 . 7)"},{"Add":" (nond ((num? 7) (cons 1 7)) (NIL (cons 2 @))) )"},{"Add":""},{"Add":""},{"Add":"### case ###"},{"Add":"(test 1 (case 'a (a 1) ((b c) 2) (T 3)))"},{"Add":"(test 2 (case 'b (a 1) ((b c) 2) (T 3)))"},{"Add":"(test 2 (case '\"b\" (a 1) ((b c) 2) (T 3)))"},{"Add":"(test 2 (case 'c (a 1) ((b c) 2) (T 3)))"},{"Add":"(test 2 (case \"c\" (a 1) ((b c) 2) (T 3)))"},{"Add":"(test 3 (case 'd (a 1) ((b c) 2) (T 3)))"},{"Add":""},{"Add":"(test 3 (casq 'a (\"a\" 1) ((\"b\" \"c\") 2) (T 3)))"},{"Add":"(test 3 (casq 'b (\"a\" 1) ((\"b\" \"c\") 2) (T 3)))"},{"Add":"(test 2 (casq '\"b\" (\"a\" 1) ((\"b\" \"c\") 2) (T 3)))"},{"Add":"(test 2 (casq '\"c\" (\"a\" 1) ((\"b\" \"c\") 2) (T 3)))"},{"Add":"(test 3 (casq 'b (a 1) (\"b\" 2) ((a b c) 3) (c 4)))"},{"Add":""},{"Add":""},{"Add":"### state ###"},{"Add":"(off \"tst\")"},{"Add":""},{"Add":"(de \"tst\" ()"},{"Add":" (job '((Cnt . 4))"},{"Add":" (state '(start)"},{"Add":" (start 'run"},{"Add":" (link 'start) )"},{"Add":" (run (and (gt0 (dec 'Cnt)) 'run)"},{"Add":" (link 'run) )"},{"Add":" (run 'stop"},{"Add":" (link 'run) )"},{"Add":" (stop 'start"},{"Add":" (setq Cnt 4)"},{"Add":" (link 'stop) ) ) ) )"},{"Add":""},{"Add":"(test '(start run run run run stop start run run run run stop)"},{"Add":" (make (do 12 (\"tst\"))) )"},{"Add":"(test '(start run run)"},{"Add":" (make (do 3 (\"tst\"))) )"},{"Add":""},{"Add":""},{"Add":"### while ###"},{"Add":"(test (1 2 3 4 5 6 7)"},{"Add":" (make"},{"Add":" (let N 0"},{"Add":" (while (>= 7 (inc 'N))"},{"Add":" (link N) ) ) ) )"},{"Add":""},{"Add":""},{"Add":"### until ###"},{"Add":"(test (1 2 3 4 5 6 7)"},{"Add":" (make"},{"Add":" (let N 0"},{"Add":" (until (> (inc 'N) 7)"},{"Add":" (link N) ) ) ) )"},{"Add":""},{"Add":""},{"Add":"### loop ###"},{"Add":"(test (1 2 3 4 5 6 7)"},{"Add":" (make"},{"Add":" (let N 1"},{"Add":" (loop"},{"Add":" (link N)"},{"Add":" (T (> (inc 'N) 7)) ) ) ) )"},{"Add":"(test (1 2 3 4 5 6 7)"},{"Add":" (make"},{"Add":" (let N 1"},{"Add":" (loop"},{"Add":" (link N)"},{"Add":" (NIL (>= 7 (inc 'N))) ) ) ) )"},{"Add":""},{"Add":"(test"},{"Add":" '(a . 3)"},{"Add":" (loop (T NIL (cons @ 1)) (NIL 'a (cons @ 2)) (NIL NIL (cons @ 3))) )"},{"Add":""},{"Add":""},{"Add":"### do ###"},{"Add":"(test (1 2 3 4 5 6 7)"},{"Add":" (make"},{"Add":" (let N 0"},{"Add":" (do 7"},{"Add":" (link (inc 'N)) ) ) ) )"},{"Add":"(test (1 2 3 4 5 6 7)"},{"Add":" (make"},{"Add":" (let N 1"},{"Add":" (do T"},{"Add":" (link N)"},{"Add":" (T (> (inc 'N) 7)) ) ) ) )"},{"Add":""},{"Add":""},{"Add":"### at ###"},{"Add":"(test (1 2 3 - 4 5 6 - 7 8 9 -)"},{"Add":" (make"},{"Add":" (let N 0"},{"Add":" (do 9"},{"Add":" (link (inc 'N))"},{"Add":" (at (0 . 3) (link '-)) ) ) ) )"},{"Add":""},{"Add":""},{"Add":"### for ###"},{"Add":"(test (1 2 3 4 5 6 7)"},{"Add":" (make"},{"Add":" (for N (1 2 3 4 5 6 7)"},{"Add":" (link N) ) ) )"},{"Add":"(test (1 2 3 4 5 6 7)"},{"Add":" (make"},{"Add":" (for (N . X) '(a b c d e f g)"},{"Add":" (link N) ) ) )"},{"Add":"(test (1 2 3 4 5 6 7)"},{"Add":" (make"},{"Add":" (for N 7"},{"Add":" (link N) ) ) )"},{"Add":"(test (1 2 3 4 5 6 7)"},{"Add":" (make"},{"Add":" (for (N 1 (>= 7 N) (inc N))"},{"Add":" (link N) ) ) )"},{"Add":"(test (1 2 3 4 5 6 7)"},{"Add":" (make"},{"Add":" (for ((N . X) 7 (gt0 X) (dec X))"},{"Add":" (link N) ) ) )"},{"Add":"(test (1 2 3 4 5 6 7)"},{"Add":" (make"},{"Add":" (for (N 1 T)"},{"Add":" (link N)"},{"Add":" (T (> (inc 'N) 7)) ) ) )"},{"Add":""},{"Add":""},{"Add":"### catch throw ###"},{"Add":"(test NIL (catch NIL (throw)))"},{"Add":"(test 'b (catch 'a (throw 'a 'b)))"},{"Add":"(test 123 (catch T (throw 'a 123)))"},{"Add":"(test \"Undefined\""},{"Add":" (catch '(\"Undefined\") (mist)) )"},{"Add":"(test \"No such file\""},{"Add":" (catch '(\"No such file\")"},{"Add":" (in \"doesntExist\" (foo)) ) )"},{"Add":"(test 6"},{"Add":" (casq"},{"Add":" (catch '(\"No such file\" \"Undefined\" \"expected\")"},{"Add":" (+ 1 2 3) )"},{"Add":" (\"No such file\" (shouldNotComeHere))"},{"Add":" (\"Undefined\" (shouldNotComeHere))"},{"Add":" (\"expected\" (shouldNotComeHere))"},{"Add":" (T @) ) )"},{"Add":""},{"Add":""},{"Add":"### finally ###"},{"Add":"(test 'B"},{"Add":" (let X 'A"},{"Add":" (catch NIL"},{"Add":" (finally (setq X 'B)"},{"Add":" (setq X 'C)"},{"Add":" (throw)"},{"Add":" (setq X 'D) ) )"},{"Add":" X ) )"},{"Add":""},{"Add":""},{"Add":"### co yield ###"},{"Add":"(test (1 2 3 (1 2 3))"},{"Add":" (make"},{"Add":" (do 4"},{"Add":" (link"},{"Add":" (co \"co123\""},{"Add":" (make"},{"Add":" (yield (link 1))"},{"Add":" (yield (link 2))"},{"Add":" (yield (link 3)) ) ) ) ) ) )"},{"Add":""},{"Add":""},{"Add":"### exec ###"},{"Add":"(test"},{"Add":" (123 abc)"},{"Add":" (pipe (exec 'echo 123 \"abc\")"},{"Add":" (list (read) (read)) ) )"},{"Add":""},{"Add":"### call ###"},{"Add":"(test T (call \"test\" \"-d\" (path \"@test\")))"},{"Add":"(test NIL (call \"test\" \"-f\" (path \"@test\")))"},{"Add":""},{"Add":""},{"Add":"### kill ###"},{"Add":"(test T (kill *Pid 0))"}]}},{"FileAdd":{"meta":{"basename":"ext.l","metadata":0},"context":[{"change":0,"pos":114}],"contents":[{"Add":"# 03apr23 Software Lab. Alexander Burger"},{"Add":""},{"Add":"### ext:Snx ###"},{"Add":"(test \"PSLSFSNTSNNLSF\""},{"Add":" (ext:Snx \"PicoLisp is not Common Lisp\") )"},{"Add":"(test \"PSLSFSNT\""},{"Add":" (ext:Snx \"PicoLisp is not Common Lisp\" 8) )"},{"Add":""},{"Add":""},{"Add":"### ext:Base64 ###"},{"Add":"(test \"TQ==\""},{"Add":" (pipe (ext:Base64 77) (line T)) )"},{"Add":"(test \"AQID\""},{"Add":" (pipe (ext:Base64 1 2 3) (line T)) )"},{"Add":"(test '(\"A\" \"Q\" \"I\" \"D\" \"B\" \"A\" \"U\" \"G\" \"B\" \"w\" \"=\" \"=\")"},{"Add":" (make"},{"Add":" (let L (1 2 3 4 5 6 7)"},{"Add":" (output (link @@)"},{"Add":" (while L"},{"Add":" (ext:Base64 (++ L) (++ L) (++ L)) ) ) ) ) )"},{"Add":""},{"Add":"(test (77)"},{"Add":" (pipe"},{"Add":" (prinl \"TQ==\")"},{"Add":" (make (while (ext:Base64) (link @))) ) )"},{"Add":"(test (1 2 3)"},{"Add":" (pipe"},{"Add":" (prinl \"AQID\")"},{"Add":" (make (while (ext:Base64) (link @))) ) )"},{"Add":"(test (1 2 3 4 5 6 7)"},{"Add":" (let L '(\"A\" \"Q\" \"I\" \"D\" \"B\" \"A\" \"U\" \"G\" \"B\" \"w\" \"=\" \"=\")"},{"Add":" (make"},{"Add":" (input (++ L)"},{"Add":" (while (ext:Base64) (link @)) ) ) ) )"},{"Add":""},{"Add":"(let F (tmp \"base64\")"},{"Add":" (out F"},{"Add":" (pipe"},{"Add":" (prin \"Polyfon zwitschernd aßen Mäxchens Vögel Rüben, Joghurt und Quark\")"},{"Add":" (while (ext:Base64 (rd 1) (rd 1) (rd 1))) ) )"},{"Add":""},{"Add":" (test \"UG9seWZvbiB6d2l0c2NoZXJuZCBhw59lbiBNw6R4Y2hlbnMgVsO2Z2VsIFLDvGJlbiwgSm9naHVydCB1bmQgUXVhcms=\""},{"Add":" (in F (line T)) )"},{"Add":""},{"Add":" (test \"Polyfon zwitschernd aßen Mäxchens Vögel Rüben, Joghurt und Quark\""},{"Add":" (pipe"},{"Add":" (in F (while (ext:Base64) (wr @)))"},{"Add":" (line T) ) ) )"}]}},{"FileAdd":{"meta":{"basename":"db.l","metadata":0},"context":[{"change":0,"pos":114}],"contents":[{"Add":"# 21aug22 Software Lab. Alexander Burger"},{"Add":""},{"Add":"(test T (pool (tmp \"db\") (2 3)))"},{"Add":""},{"Add":"### extern ###"},{"Add":"(test NIL (extern (box)))"},{"Add":"(test *DB (extern \"1\"))"},{"Add":""},{"Add":""},{"Add":"### ext? ###"},{"Add":"(test *DB (ext? *DB))"},{"Add":"(test NIL (ext? 'abc))"},{"Add":"(test NIL (ext? \"abc\"))"},{"Add":"(test NIL (ext? 123))"},{"Add":""},{"Add":""},{"Add":"### touch ###"},{"Add":"(test *DB (touch *DB))"},{"Add":"(rollback)"},{"Add":""},{"Add":""},{"Add":"### id ###"},{"Add":"(test *DB (id 1))"},{"Add":"(test 1 (id *DB))"},{"Add":"(let I (id 3 4)"},{"Add":" (test (3 . 4) (id I T)) )"},{"Add":""},{"Add":""},{"Add":"### wipe ###"},{"Add":"(set *DB (1 2 3 4))"},{"Add":"(put *DB 'a 1)"},{"Add":"(put *DB 'b 2)"},{"Add":"(test (1 2 3 4) (val *DB))"},{"Add":"(test '((2 . b) (1 . a)) (getl *DB))"},{"Add":"(wipe *DB)"},{"Add":"(test (1 2 3 4) (val *DB))"},{"Add":"(test '((2 . b) (1 . a)) (getl *DB))"},{"Add":"(rollback)"},{"Add":""},{"Add":""},{"Add":"### lieu ###"},{"Add":"(test NIL (lieu *DB))"},{"Add":"(test *DB (val *DB) (lieu *DB))"},{"Add":"(rollback)"},{"Add":""},{"Add":""},{"Add":"### commit rollback ###"},{"Add":"(let (X (new 1) Y (new 2))"},{"Add":" (set X 1 Y 2)"},{"Add":" (commit)"},{"Add":" (test 1 (val X))"},{"Add":" (test 2 (val Y))"},{"Add":" (set X 111)"},{"Add":" (set Y 222)"},{"Add":" (test 111 (val X))"},{"Add":" (test 222 (val Y))"},{"Add":" (rollback)"},{"Add":" (test 1 (val X))"},{"Add":" (test 2 (val Y)) )"},{"Add":""},{"Add":""},{"Add":"### mark ###"},{"Add":"(test NIL (mark *DB))"},{"Add":"(test NIL (mark *DB T))"},{"Add":"(test T (mark *DB))"},{"Add":"(test T (mark *DB 0))"},{"Add":"(test NIL (mark *DB))"},{"Add":""},{"Add":""},{"Add":"### dbck ###"},{"Add":"(test NIL (dbck))"},{"Add":""},{"Add":"(rollback)"}]}},{"FileAdd":{"meta":{"basename":"big.l","metadata":0},"context":[{"change":0,"pos":114}],"contents":[{"Add":"# 06oct20 Software Lab. Alexander Burger"},{"Add":""},{"Add":"### format ###"},{"Add":"(scl 0)"},{"Add":"(test \"123456789\" (format 123456789))"},{"Add":"(test \"12346\" (format 12345.6789))"},{"Add":"(test \"1234567.89\" (format 123456789 2))"},{"Add":"(test \"1234567,89\" (format 123456789 2 \",\"))"},{"Add":"(test \"1.234.567,89\" (format 123456789 2 \",\" \".\"))"},{"Add":"(test 123456789 (format \"123456789\"))"},{"Add":"(test 12345678900 (format \"1234567.89\" 4))"},{"Add":"(test NIL (format \"1.234.567,89\"))"},{"Add":"(test 12345678900 (format \"1234567,89\" 4 \",\"))"},{"Add":"(test NIL (format \"1.234.567,89\" 4 \",\"))"},{"Add":"(test 12345678900 (format \"1.234.567,89\" 4 \",\" \".\"))"},{"Add":"(test 123456 (format (1 \"23\" (4 5 6))))"},{"Add":""},{"Add":""},{"Add":"### + ###"},{"Add":"(test 6 (+ 1 2 3))"},{"Add":"(test 0 (+ 1 2 -3))"},{"Add":"(test NIL (+ NIL 7))"},{"Add":""},{"Add":""},{"Add":"### - ###"},{"Add":"(test -7 (- 7))"},{"Add":"(test 7 (- -7))"},{"Add":"(test 6 (- 7 2 -1))"},{"Add":"(test NIL (- NIL 7))"},{"Add":""},{"Add":""},{"Add":"### inc ###"},{"Add":"(test 8 (inc 7))"},{"Add":"(test -6 (inc -7))"},{"Add":"(test 0 (inc -1))"},{"Add":"(test 1 (inc 0))"},{"Add":"(test (8 -6 0 1) (let L (7 -7 -1 0) (map inc L) L))"},{"Add":"(test NIL (inc NIL))"},{"Add":"(let N 0"},{"Add":" (test 1 (inc 'N))"},{"Add":" (test 1 N)"},{"Add":" (test 8 (inc 'N 7))"},{"Add":" (test 8 N) )"},{"Add":"(let L (1 2 3 4)"},{"Add":" (test 3 (inc (cdr L)))"},{"Add":" (test (1 3 3 4) L) )"},{"Add":""},{"Add":""},{"Add":"### dec ###"},{"Add":"(test 7 (dec 8))"},{"Add":"(test -8 (dec -7))"},{"Add":"(test -1 (dec 0))"},{"Add":"(test (7 -8 -1) (let L (8 -7 0) (map dec L) L))"},{"Add":"(test NIL (dec NIL))"},{"Add":"(let N 7"},{"Add":" (test 6 (dec 'N))"},{"Add":" (test 6 N)"},{"Add":" (test 3 (dec 'N 3))"},{"Add":" (test 3 N) )"},{"Add":""},{"Add":""},{"Add":"### * ###"},{"Add":"(test 6 (* 1 2 3))"},{"Add":"(test -60 (* -5 3 2 2))"},{"Add":"(test NIL (* NIL 7))"},{"Add":""},{"Add":""},{"Add":"### */ ###"},{"Add":"(test 6 (*/ 3 4 2))"},{"Add":"(test -247 (*/ 1234 -2 10))"},{"Add":"(test 17 (*/ 100 6))"},{"Add":"(test NIL (*/ 3 4 NIL))"},{"Add":""},{"Add":""},{"Add":"### / ###"},{"Add":"(test 4 (/ 12 3))"},{"Add":"(test -5 (/ 60 -3 2 2))"},{"Add":"(test NIL (/ 10 NIL))"},{"Add":""},{"Add":""},{"Add":"### % ###"},{"Add":"(test 2 (% 17 5))"},{"Add":"(test -2 (% -17 5))"},{"Add":"(test 1 (% 5 2))"},{"Add":"(test 5 (% 15 10))"},{"Add":"(test 1 (% 15 10 2))"},{"Add":"(test NIL (% NIL 7))"},{"Add":""},{"Add":""},{"Add":"### >> ###"},{"Add":"(test 4 (>> 1 8))"},{"Add":"(test 2 (>> 3 16))"},{"Add":"(test 128 (>> -3 16))"},{"Add":"(test -32 (>> -1 -16))"},{"Add":"(test 0 (>> 1 -1))"},{"Add":""},{"Add":""},{"Add":"### lt0 ###"},{"Add":"(test -2 (lt0 -2))"},{"Add":"(test NIL (lt0 7))"},{"Add":"(test NIL (lt0 0))"},{"Add":""},{"Add":""},{"Add":"### le0 ###"},{"Add":"(test -7 (le0 -7))"},{"Add":"(test NIL (le0 2))"},{"Add":"(test 0 (le0 0))"},{"Add":""},{"Add":""},{"Add":"### ge0 ###"},{"Add":"(test 7 (ge0 7))"},{"Add":"(test NIL (ge0 -2))"},{"Add":"(test 0 (ge0 0))"},{"Add":""},{"Add":""},{"Add":"### gt0 ###"},{"Add":"(test 7 (gt0 7))"},{"Add":"(test NIL (gt0 -2))"},{"Add":"(test NIL (gt0 0))"},{"Add":""},{"Add":""},{"Add":"### abs ###"},{"Add":"(test 7 (abs -7))"},{"Add":"(test 7 (abs 7))"},{"Add":"(test NIL (abs NIL))"},{"Add":""},{"Add":""},{"Add":"### bit? ###"},{"Add":"(test 7 (bit? 7 15 255))"},{"Add":"(test NIL (bit? 1 2))"},{"Add":"(test 1 (bit? 1 3))"},{"Add":"(test 1 (bit? 1 -3))"},{"Add":"(test 1 (bit? -1 3))"},{"Add":"(test 1 (bit? -1 -3))"},{"Add":"(test (hex \"100000000000000000000\")"},{"Add":" (bit? (hex \"100000000000000000000\") (hex \"300000000000000000000\")) )"},{"Add":""},{"Add":""},{"Add":"### & ###"},{"Add":"(test 2 (& 6 3))"},{"Add":"(test 1 (& 7 3 1))"},{"Add":"(test NIL (& 7 NIL))"},{"Add":"(test 1 (& 1 3))"},{"Add":"(test 1 (& 1 -3))"},{"Add":"(test 1 (& -1 3))"},{"Add":"(test 1 (& -1 -3))"},{"Add":"(test (hex \"100000000000000000000\")"},{"Add":" (& (hex \"100000000000000000000\") (hex \"300000000000000000000\")) )"},{"Add":""},{"Add":""},{"Add":"### | ###"},{"Add":"(test 15 (| 1 2 4 8))"},{"Add":"(test NIL (| NIL 1))"},{"Add":"(test 3 (| 1 2))"},{"Add":"(test 3 (| 1 -2))"},{"Add":"(test 3 (| -1 2))"},{"Add":"(test 3 (| -1 -2))"},{"Add":"(test (hex \"300000000000000000000\")"},{"Add":" (| (hex \"100000000000000000000\") (hex \"200000000000000000000\")) )"},{"Add":""},{"Add":""},{"Add":"### x| ###"},{"Add":"(test 5 (x| 2 7))"},{"Add":"(test 4 (x| 2 7 1))"},{"Add":"(test NIL (x| NIL 1))"},{"Add":"(test 3 (x| 1 2))"},{"Add":"(test 3 (x| 1 -2))"},{"Add":"(test 3 (x| -1 2))"},{"Add":"(test 3 (x| -1 -2))"},{"Add":"(test (hex \"300000000000000000000\")"},{"Add":" (x| (hex \"100000000000000000000\") (hex \"200000000000000000000\")) )"},{"Add":""},{"Add":""},{"Add":"### sqrt ###"},{"Add":"(test 8 (sqrt 64))"},{"Add":"(test 4 (sqrt 21))"},{"Add":"(test 5 (sqrt 21 T))"},{"Add":"(test 31 (sqrt 1000))"},{"Add":"(test 32 (sqrt 1000 T))"},{"Add":"(test 458 (sqrt 2100 100))"},{"Add":"(test 479 (sqrt 230000))"},{"Add":"(test 480 (sqrt 2300 100))"},{"Add":"(test 800 (sqrt 6400 100))"},{"Add":"(test 100000000000000000000"},{"Add":" (sqrt 10000000000000000000000000000000000000000) )"},{"Add":"(test NIL (sqrt NIL))"},{"Add":""},{"Add":""},{"Add":"### seed rand hash ###"},{"Add":"(test -417605464 (seed \"init string\"))"},{"Add":"(test -1061886707 (rand))"},{"Add":"(test 822065436 (rand))"},{"Add":"(test 5 (rand 3 9))"},{"Add":"(test 3 (rand 3 9))"},{"Add":"(test 1 (hash 0))"},{"Add":"(test 55682 (hash 1))"},{"Add":"(test 35970 (hash 7))"},{"Add":"(test 29691 (hash 1234567))"}]}},{"FileAdd":{"meta":{"basename":"apply.l","metadata":0},"context":[{"change":0,"pos":114}],"contents":[{"Add":"# 01may22 Software Lab. Alexander Burger"},{"Add":""},{"Add":"### apply ###"},{"Add":"(test 6 (apply + (1 2 3)))"},{"Add":"(test 360 (apply * (5 6) 3 4))"},{"Add":"(test 27 (apply '((X Y Z) (* X (+ Y Z))) (3 4 5)))"},{"Add":"(test (5 7 9) (apply mapcar '((1 2 3) (4 5 6)) +))"},{"Add":""},{"Add":""},{"Add":"### pass ###"},{"Add":"(test 24 ((quote (N . @) (* N (pass + 6))) 2 1 2 3))"},{"Add":""},{"Add":""},{"Add":"### fun ###"},{"Add":"(test '(NIL NIL NIL)"},{"Add":" (mapcar fun"},{"Add":" '(gt0 ((N) (bit? 1 N)) ((N) (> N 4)))"},{"Add":" -2 ) )"},{"Add":"(test (2 NIL NIL)"},{"Add":" (mapcar fun"},{"Add":" '(gt0 ((N) (bit? 1 N)) ((N) (> N 4)))"},{"Add":" 2 ) )"},{"Add":"(test (3 1 NIL)"},{"Add":" (mapcar fun"},{"Add":" '(gt0 ((N) (bit? 1 N)) ((N) (> N 4)))"},{"Add":" 3 ) )"},{"Add":"(test (7 1 T)"},{"Add":" (mapcar fun"},{"Add":" '(gt0 ((N) (bit? 1 N)) ((N) (> N 4)))"},{"Add":" 7 ) )"},{"Add":""},{"Add":""},{"Add":"### maps ###"},{"Add":"(let L '((1 . a) (2 . b) flg)"},{"Add":" (test L (let X (box) (putl X (reverse L)) (make (maps link X)))) )"},{"Add":""},{"Add":""},{"Add":"### map ###"},{"Add":"(test '((1 2 3) (2 3) (3)) (make (map link (1 2 3))))"},{"Add":""},{"Add":""},{"Add":"### mapc ###"},{"Add":"(test (1 2 3) (make (mapc link (1 2 3))))"},{"Add":""},{"Add":""},{"Add":"### maplist ###"},{"Add":"(test '(((1 2 3) A B C) ((2 3) B C) ((3) C)) (maplist cons (1 2 3) '(A B C)))"},{"Add":""},{"Add":""},{"Add":"### mapcar ###"},{"Add":"(test (5 7 9) (mapcar + (1 2 3) (4 5 6)))"},{"Add":"(test (26 38 52 68) (mapcar '((X Y) (+ X (* Y Y))) (1 2 3 4) (5 6 7 8)))"},{"Add":""},{"Add":""},{"Add":"### mapcon ###"},{"Add":"(test (1 2 3 4 5 2 3 4 5 3 4 5 4 5 5) (mapcon copy (1 2 3 4 5)))"},{"Add":""},{"Add":""},{"Add":"### mapcan ###"},{"Add":"(test '(c b a f e d i h g) (mapcan reverse '((a b c) (d e f) (g h i))))"},{"Add":""},{"Add":""},{"Add":"### filter ###"},{"Add":"(test (1 2 3) (filter num? (1 A 2 (B) 3 CDE)))"},{"Add":""},{"Add":""},{"Add":"### extract ###"},{"Add":"(let (A NIL B 1 C NIL D 2 E NIL F 3)"},{"Add":" (test (1 2 3)"},{"Add":" (extract val '(A B C D E F)) )"},{"Add":" (test (1 2 3)"},{"Add":" (extract val '(B D E F)) ) )"},{"Add":""},{"Add":""},{"Add":"### seek ###"},{"Add":"(test (12 19 22) (seek '((X) (> (car X) 9)) (1 5 8 12 19 22)))"},{"Add":"(let (A -1 B 2 C 3)"},{"Add":" (test '(B C) (seek '((L) (gt0 (val (car L)))) '(A B C)))"},{"Add":" (test 2 @@) )"},{"Add":""},{"Add":""},{"Add":"### find ###"},{"Add":"(test '(B) (find pair (1 A 2 (B) 3 CDE)))"},{"Add":"(test 4 (find > (1 2 3 4 5 6) (6 5 4 3 2 1)))"},{"Add":"(test 4 (find '((A B) (> A B)) (1 2 3 4 5 6) (6 5 4 3 2 1)))"},{"Add":"(let (A -1 B 2 C 3)"},{"Add":" (test 'B (find '((X) (gt0 (val X))) '(A B C)))"},{"Add":" (test 2 @@) )"},{"Add":""},{"Add":""},{"Add":"### pick ###"},{"Add":"(test \"Hello\""},{"Add":" (pick '((X) (get X 'str))"},{"Add":" (list (box) (prog1 (box) (put @ 'str \"Hello\")) (box)) ) )"},{"Add":""},{"Add":""},{"Add":"### fully ###"},{"Add":"(test T (fully gt0 (1 2 3)))"},{"Add":"(test NIL (fully gt0 (1 -2 3)))"},{"Add":""},{"Add":"### cnt ###"},{"Add":"(test 2 (cnt cdr '((1 . T) (2) (3 4) (5))))"},{"Add":""},{"Add":""},{"Add":"### sum ###"},{"Add":"(test 6 (sum val (list (box 1) (box) (box 2) (box 'a) (box 3))))"},{"Add":""},{"Add":""},{"Add":"### maxi mini ###"},{"Add":"(let (A 1 B 2 C 3)"},{"Add":" (test 'C (maxi val '(A B C)))"},{"Add":" (test 3 @@)"},{"Add":" (test 'A (mini val '(A B C)))"},{"Add":" (test 1 @@)"},{"Add":" (test '(A B C) (by val sort '(C A B))) )"},{"Add":""},{"Add":""},{"Add":"### fish ###"},{"Add":"(test (1 2 3)"},{"Add":" (fish gt0 '(a -2 (1 b (-3 c 2)) 3 d -1)) )"},{"Add":"(test (-2 1 -3 -1)"},{"Add":" (fish < '(a -2 (1 b (-3 c 2)) 3 d -1) NIL 2) )"},{"Add":"(test '(a b c d)"},{"Add":" (fish sym? '(a -2 (1 b (-3 c 2)) 3 d -1)) )"},{"Add":"(test (3 7)"},{"Add":" (fish"},{"Add":" '((X)"},{"Add":" (if (and (pair X) (=1 (car X)))"},{"Add":" \"skip\""},{"Add":" (gt0 X) ) )"},{"Add":" '(a -2 (1 b (-3 c 2)) 3 d -1 7)"},{"Add":" \"skip\" ) )"},{"Add":"(test '(b b)"},{"Add":" (fish == '(a 1 (b (3 b)) 3) NIL 'b) )"},{"Add":""},{"Add":""},{"Add":"### by ###"},{"Add":"(test '(A B C)"},{"Add":" (let (A 1 B 2 C 3)"},{"Add":" (by val sort '(C A B)) ) )"},{"Add":"(test '((3 11 9 5 7 1) (6 2 4 10 12 8))"},{"Add":" (by '((N) (bit? 1 N))"},{"Add":" group"},{"Add":" (3 11 6 2 9 5 4 10 12 7 8 1) ) )"},{"Add":"(test '((\"x\" \"x\" \"x\") (\"y\") (\"z\" \"z\"))"},{"Add":" (by name group '(\"x\" \"x\" \"y\" \"z\" \"x\" \"z\")) )"},{"Add":"(test '((123 \"xyz\") ((1 2) \"XY\") (\"abcd\" (1 2 3 4)))"},{"Add":" (by length group '(123 (1 2) \"abcd\" \"xyz\" (1 2 3 4) \"XY\")) )"}]}},{"FileAdd":{"meta":{"basename":"lib.l","metadata":0},"context":[{"change":0,"pos":96}],"contents":[{"Add":"# 01jun21 Software Lab. Alexander Burger"},{"Add":""},{"Add":"### task ###"},{"Add":"(test (3 . 4)"},{"Add":" (let (*Run NIL *A NIL *B NIL)"},{"Add":" (task -10 0 (setq *A 3))"},{"Add":" (task (port T 0 \"TaskPort\") (eval (udp @)))"},{"Add":" (udp \"localhost\" \"TaskPort\" '(setq *B 4))"},{"Add":" (wait NIL (and *A *B))"},{"Add":" (cons *A *B) ) )"},{"Add":""},{"Add":""},{"Add":"### timeout ###"},{"Add":"(test '((-1 3600000 (bye)))"},{"Add":" (let *Run NIL"},{"Add":" (timeout 3600000)"},{"Add":" *Run ) )"},{"Add":""},{"Add":""},{"Add":"### abort ###"},{"Add":"(test 6 (abort 2 (+ 1 2 3)))"},{"Add":"(test NIL (abort 2 (wait 4000)))"},{"Add":""},{"Add":""},{"Add":"### macro ###"},{"Add":"(test 6"},{"Add":" (let (@A 1 @B 2 @C 3)"},{"Add":" (macro (* @A @B @C)) ) )"},{"Add":""},{"Add":""},{"Add":"### later ###"},{"Add":"(test '((@ . 1) (@ . 4) (@ . 9) (@ . 16) (@ . 25) (@ . 36))"},{"Add":" (prog1"},{"Add":" (mapcan"},{"Add":" '((N) (later (cons) (cons *Pid (* N N))))"},{"Add":" (1 2 3 4 5 6) )"},{"Add":" (wait NIL (full @)) ) )"},{"Add":""},{"Add":""},{"Add":"### recur recurse ###"},{"Add":"(test 720"},{"Add":" (let N 6"},{"Add":" (recur (N)"},{"Add":" (if (=0 N)"},{"Add":" 1"},{"Add":" (* N (recurse (dec N))) ) ) ) )"},{"Add":""},{"Add":""},{"Add":"### curry ###"},{"Add":"(test '((N) (* 7 N))"},{"Add":" ((quote (@X) (curry (@X) (N) (* @X N))) 7) )"},{"Add":"(test 21"},{"Add":" (((quote (@X) (curry (@X) (N) (* @X N))) 7) 3) )"},{"Add":"(test '((N) (job '((A . 1)) (+ A 7 N)))"},{"Add":" (let (A 1 @X 7) (curry (A @X) (N) (+ A @X N))) )"},{"Add":""},{"Add":""},{"Add":"### cache ###"},{"Add":"(let C NIL"},{"Add":" (test 0 (cache 'C 1234 0))"},{"Add":" (test 7 (cache 'C 4321 7))"},{"Add":" (test 7 (cache 'C 4321 8))"},{"Add":" (inc (cache 'C 4321))"},{"Add":" (test 8 (val (cache 'C 4321))) )"},{"Add":""},{"Add":""},{"Add":"### expr subr undef ###"},{"Add":"(let foo car"},{"Add":" (test 7 (foo (7)))"},{"Add":" (test T (== 'pass (caadr (expr 'foo))))"},{"Add":" (test car (subr 'foo))"},{"Add":" (test car (undef 'foo))"},{"Add":" (test NIL (val 'foo)) )"},{"Add":""},{"Add":""},{"Add":"### redef ###"},{"Add":"(let foo inc"},{"Add":" (redef foo (N) (inc (foo N)))"},{"Add":" (test 3 (foo 1)) )"},{"Add":""},{"Add":""},{"Add":"### daemon patch ###"},{"Add":"(let foo car"},{"Add":" (daemon 'foo (msg 'daemon))"},{"Add":" (test T (= '(msg 'daemon) (cadr (getd 'foo))))"},{"Add":" (patch foo 'daemon 'patch)"},{"Add":" (test T (= '(msg 'patch) (cadr (getd 'foo)))) )"},{"Add":""},{"Add":""},{"Add":"### scl ###"},{"Add":"(scl 0)"},{"Add":"(test 123 (any \"123.45\"))"},{"Add":"(scl 1)"},{"Add":"(test (1235) (scl 1 (str \"123.45\")))"},{"Add":"(test 1235 (any \"123.45\"))"},{"Add":"(scl 3)"},{"Add":"(test 123450 (any \"123.45\"))"},{"Add":""},{"Add":""},{"Add":"### ** ###"},{"Add":"(test 32768 (** 2 15))"},{"Add":"(test 1 (** 123 0))"},{"Add":"(test 0 (** 3 -1))"},{"Add":""},{"Add":""},{"Add":"### accu ###"},{"Add":"(off Sum)"},{"Add":""},{"Add":"(test '(a . 1) (accu 'Sum 'a 1))"},{"Add":"(test 6 (accu 'Sum 'a 5))"},{"Add":"(test (22 . 100) (accu 'Sum 22 100))"},{"Add":"(test '((22 . 100) (a . 6)) Sum)"},{"Add":""},{"Add":"(test '((b . 2) (a . 3))"},{"Add":" (let L NIL (accu 'L 'a 2) (accu 'L 'b 2) (accu 'L 'a 1) L) )"},{"Add":""},{"Add":""},{"Add":"### script ###"},{"Add":"(out (tmp \"script\")"},{"Add":" (println '(pass * 7)) )"},{"Add":"(test 42 (script (tmp \"script\") 2 3))"},{"Add":""},{"Add":""},{"Add":"### once ###"},{"Add":"(let N 0"},{"Add":" (test 1"},{"Add":" (once (inc 'N))"},{"Add":" (once (inc 'N))"},{"Add":" N ) )"},{"Add":""},{"Add":""},{"Add":"### rc ###"},{"Add":"(let F (tmp \"rc\")"},{"Add":" (rc F 'a 123)"},{"Add":" (rc F 'b \"test\" 'c (1 2 3))"},{"Add":" (test '((c 1 2 3) (b . \"test\") (a . 123))"},{"Add":" (in F (read)) )"},{"Add":" (test 123 (rc F 'a))"},{"Add":" (test \"test\" (rc F 'b))"},{"Add":" (test (1 2 3) (rc F 'c)) )"},{"Add":""},{"Add":""},{"Add":"### acquire release ###"},{"Add":"(let F (tmp \"sema\")"},{"Add":" (test *Pid (acquire F))"},{"Add":" (test T (acquire F))"},{"Add":" (test *Pid (in F (rd)))"},{"Add":" (test NIL (release F))"},{"Add":" (test NIL (in F (rd))) )"},{"Add":""},{"Add":""},{"Add":"### uniq ###"},{"Add":"(test (2 4 6 1 3 5) (uniq (2 4 6 1 2 3 4 5 6 1 3 5)))"},{"Add":""},{"Add":""},{"Add":"### qsym ###"},{"Add":"(let \"A\" 1234"},{"Add":" (put '\"A\" 'a 1)"},{"Add":" (put '\"A\" 'b 2)"},{"Add":" (put '\"A\" 'f T)"},{"Add":" (test (1234 f (2 . b) (1 . a))"},{"Add":" (qsym . \"A\") ) )"},{"Add":""},{"Add":"### loc ###"},{"Add":"(let (X 'foo bar '((A B) (foo B A)))"},{"Add":" (test \"foo\" (zap 'foo))"},{"Add":" (test \"foo\" (str? \"foo\"))"},{"Add":" (test T (== X (loc \"foo\" bar))) )"},{"Add":""},{"Add":""},{"Add":"### class ###"},{"Add":"(off \"+A\" \"+B\" \"+C\")"},{"Add":"(test '\"+A\" (class \"+A\" \"+B\" \"+C\"))"},{"Add":"(test '\"+A\" *Class)"},{"Add":"(test '(\"+B\" \"+C\") \"+A\")"},{"Add":""},{"Add":""},{"Add":"### object ###"},{"Add":"(off \"Obj\")"},{"Add":"(test '\"Obj\""},{"Add":" (object '\"Obj\" '(\"+A\" \"+B\" \"+C\") 'a 1 'b 2 'c 3) )"},{"Add":"(test '((3 . c) (2 . b) (1 . a) (@X . *Dbg))"},{"Add":" (getl '\"Obj\") )"},{"Add":""},{"Add":""},{"Add":"### extend var var: ###"},{"Add":"(test '\"+B\" (extend \"+B\"))"},{"Add":"(test T (== *Class '\"+B\"))"},{"Add":""},{"Add":"(test 1 (var a . 1))"},{"Add":"(test 2 (var (b . \"+B\") . 2))"},{"Add":"(test '((2 . b) (1 . a)) (cdr (getl '\"+B\")))"},{"Add":""},{"Add":"(with '\"Obj\""},{"Add":" (test 1 (var: a))"},{"Add":" (test 2 (var: b)) )"}]}},{"FileAdd":{"meta":{"basename":"lib","metadata":576},"context":[{"change":0,"pos":96}],"contents":[]}},{"FileAdd":{"meta":{"basename":"misc.l","metadata":0},"context":[{"change":0,"pos":56047}],"contents":[{"Add":"# 26may22 Software Lab. Alexander Burger"},{"Add":""},{"Add":"### locale ###"},{"Add":"(locale \"DE\" \"de\")"},{"Add":"(test \"Ja\" (val ,\"Yes\"))"},{"Add":"(locale)"},{"Add":""},{"Add":""},{"Add":"### align ###"},{"Add":"(test \" a\" (align 4 'a))"},{"Add":"(test \" a\" (align 4 \"a\"))"},{"Add":"(test \"12 \" (align -4 12))"},{"Add":"(test \" a 12 b\" (align (4 4 4) \"a\" 12 \"b\"))"},{"Add":""},{"Add":""},{"Add":"### center ###"},{"Add":"(test \" 12\" (center 4 12))"},{"Add":"(test \" a\" (center 4 \"a\"))"},{"Add":"(test \" a\" (center 7 'a))"},{"Add":"(test \" a b c\" (center (3 3 3) \"a\" \"b\" \"c\"))"},{"Add":""},{"Add":""},{"Add":"### wrap ###"},{"Add":"(test \"The quick brown fox\\njumps over the lazy\\ndog\""},{"Add":" (wrap 20 (chop \"The quick brown fox jumps over the lazy dog\")) )"},{"Add":"(test \"The\\nquick\\nbrown\\nfox\\njumps\\nover the\\nlazy dog\""},{"Add":" (wrap 8 (chop \"The quick brown fox jumps over the lazy dog\")) )"},{"Add":"(test \"The\\nquick\\nbrown\\nfox\\njumps\\nover\\nthe\\nlazy\\ndog\""},{"Add":" (wrap 2 (chop \"The quick brown fox jumps over the lazy dog\")) )"},{"Add":"(test '(\"The\" \"quick\" \"brown\" \"fox\" \"jumps\" \"over the\" \"lazy dog\")"},{"Add":" (wrap 8 \"The quick brown fox jumps over the lazy dog\") )"},{"Add":""},{"Add":""},{"Add":"### pad ###"},{"Add":"(test \"00001\" (pad 5 1))"},{"Add":"(test \"123456789\" (pad 5 123456789))"},{"Add":""},{"Add":""},{"Add":"### bin ###"},{"Add":"(test \"1001001\" (bin (+ 64 8 1)))"},{"Add":"(test (+ 64 8 1) (bin \"1001001\"))"},{"Add":"(test \"-110110\" (bin -54))"},{"Add":"(test -54 (bin \"-110110\"))"},{"Add":""},{"Add":""},{"Add":"### oct ###"},{"Add":"(test \"111\" (oct (+ 64 8 1)))"},{"Add":"(test (+ 64 8 1) (oct \"111\"))"},{"Add":"(test \"-66\" (oct -54))"},{"Add":"(test -54 (oct \"-66\"))"},{"Add":""},{"Add":""},{"Add":"### hex ###"},{"Add":"(test \"111\" (hex (+ 256 16 1)))"},{"Add":"(test (+ 256 16 1) (hex \"111\"))"},{"Add":"(test \"-FFFF\" (hex -65535))"},{"Add":""},{"Add":""},{"Add":"### money ###"},{"Add":"(test \"1,234,567.89\" (money 123456789))"},{"Add":"(test \"1,234,567.89 EUR\" (money 123456789 \"EUR\"))"},{"Add":""},{"Add":"(locale \"DE\" \"de\")"},{"Add":"(test \"1.234.567,89 EUR\" (money 123456789 \"EUR\"))"},{"Add":"(locale)"},{"Add":""},{"Add":""},{"Add":"### round ###"},{"Add":"(scl 4)"},{"Add":"(test \"12.35\" (round 123456 2))"},{"Add":"(test \"12.3456\" (round 123456 6))"},{"Add":"(test \"12.346\" (round 123456))"},{"Add":""},{"Add":""},{"Add":"### balance ###"},{"Add":"(test (5 (2 (1) 3 NIL 4) 7 (6) 8 NIL 9)"},{"Add":" (let I NIL (balance 'I (sort (1 4 2 5 3 6 7 9 8))) I) )"},{"Add":""},{"Add":""},{"Add":"### *Allow allowed allow ###"},{"Add":"(allowed (\"app/\")"},{"Add":" \"start\" \"stop\" \"lib.css\" \"psh\" )"},{"Add":"(allow \"myFoo\")"},{"Add":"(allow \"myDir/\" T)"},{"Add":""},{"Add":"(test '((\"psh\" (\"lib.css\" NIL \"myFoo\") \"start\" NIL \"stop\") \"app/\" \"myDir/\")"},{"Add":" *Allow )"},{"Add":""},{"Add":"(test '(\"lib.css\" \"myFoo\" \"psh\" \"start\" \"stop\")"},{"Add":" (idx *Allow) )"},{"Add":""},{"Add":"(test '(\"app/\" \"myDir/\")"},{"Add":" (cdr *Allow) )"},{"Add":""},{"Add":""},{"Add":"### telStr ###"},{"Add":"(test \"+49 1234 5678-0\" (telStr \"49 1234 5678-0\"))"},{"Add":""},{"Add":"(locale \"DE\" \"de\")"},{"Add":"(test \"01234 5678-0\" (telStr \"49 1234 5678-0\"))"},{"Add":"(locale)"},{"Add":""},{"Add":""},{"Add":"### expTel ###"},{"Add":"(test \"49 1234 5678-0\" (expTel \"+49 1234 5678-0\"))"},{"Add":"(test \"49 1234 5678-0\" (expTel \"0049 1234 5678-0\"))"},{"Add":"(test NIL (expTel \"01234 5678-0\"))"},{"Add":""},{"Add":"(locale \"DE\" \"de\")"},{"Add":"(test \"49 1234 5678-0\" (expTel \"01234 5678-0\"))"},{"Add":"(locale)"},{"Add":""},{"Add":""},{"Add":"### dat$ ###"},{"Add":"(test \"20070601\" (dat$ (date 2007 6 1)))"},{"Add":"(test \"2007-06-01\" (dat$ (date 2007 6 1) \"-\"))"},{"Add":""},{"Add":""},{"Add":"### $dat ###"},{"Add":"(test 733134 ($dat \"20070601\"))"},{"Add":"(test 733134 ($dat \"2007-06-01\" \"-\"))"},{"Add":""},{"Add":""},{"Add":"### datSym ###"},{"Add":"(test \"01jun07\" (datSym (date 2007 6 1)))"},{"Add":""},{"Add":""},{"Add":"### datStr ###"},{"Add":"(test \"2007-06-01\" (datStr (date 2007 6 1)))"},{"Add":""},{"Add":"(locale \"DE\" \"de\")"},{"Add":"(test \"01.06.2007\" (datStr (date 2007 6 1)))"},{"Add":"(test \"01.06.07\" (datStr (date 2007 6 1) T))"},{"Add":"(locale)"},{"Add":""},{"Add":""},{"Add":"### strDat ###"},{"Add":"(test 733134 (strDat \"2007-06-01\"))"},{"Add":"(test NIL (strDat \"01.06.2007\"))"},{"Add":""},{"Add":"(locale \"DE\" \"de\")"},{"Add":"(test 733134 (strDat \"01.06.2007\"))"},{"Add":"(test 733134 (strDat \"1.6.2007\"))"},{"Add":"(locale)"},{"Add":""},{"Add":""},{"Add":"### expDat ###"},{"Add":"(test 733133 (date 2007 5 31))"},{"Add":"(test 733133 (expDat \"31057\"))"},{"Add":"(test 733133 (expDat \"310507\"))"},{"Add":"(test 733133 (expDat \"2007-05-31\"))"},{"Add":"(test 733133 (expDat \"7-5-31\"))"},{"Add":""},{"Add":"(let D (date)"},{"Add":" (test D (expDat \".\"))"},{"Add":" (test (inc D) (expDat \"+1\"))"},{"Add":" (test (dec D) (expDat \"-1\")) )"},{"Add":""},{"Add":"(locale \"DE\" \"de\")"},{"Add":"(test 733133 (expDat \"31.5.7\"))"},{"Add":"(locale)"},{"Add":""},{"Add":""},{"Add":"### day ###"},{"Add":"(test \"Friday\" (day (date 2007 6 1)))"},{"Add":""},{"Add":"(locale \"DE\" \"de\")"},{"Add":"(test \"Freitag\" (day (date 2007 6 1)))"},{"Add":"(test \"Fr\""},{"Add":" (day (date 2007 6 1) '(\"Mo\" \"Tu\" \"We\" \"Th\" \"Fr\" \"Sa\" \"Su\")) )"},{"Add":"(locale)"},{"Add":""},{"Add":""},{"Add":"### week ###"},{"Add":"(test 22 (week (date 2007 6 1)))"},{"Add":""},{"Add":""},{"Add":"### ultimo ###"},{"Add":"(test (2007 1 31) (date (ultimo 2007 1)))"},{"Add":"(test (2007 2 28) (date (ultimo 2007 2)))"},{"Add":"(test (2004 2 29) (date (ultimo 2004 2)))"},{"Add":"(test (2000 2 29) (date (ultimo 2000 2)))"},{"Add":"(test (1900 2 28) (date (ultimo 1900 2)))"},{"Add":""},{"Add":""},{"Add":"### tim$ ###"},{"Add":"(test \"10:57\" (tim$ (time 10 57 56)))"},{"Add":"(test \"10:57:56\" (tim$ (time 10 57 56) T))"},{"Add":""},{"Add":""},{"Add":"### $tim ###"},{"Add":"(test (10 57 56) (time ($tim \"10:57:56\")))"},{"Add":"(test (10 57 0) (time ($tim \"10:57\")))"},{"Add":"(test (10 0 0) (time ($tim \"10\")))"},{"Add":""},{"Add":""},{"Add":"### stamp ###"},{"Add":"(test \"2007-06-01 10:57:56\""},{"Add":" (stamp (date 2007 6 1) (time 10 57 56)) )"},{"Add":""},{"Add":""},{"Add":"### chdir ###"},{"Add":"(let P (pwd)"},{"Add":" (chdir \"/\""},{"Add":" (test \"/\" (pwd)) )"},{"Add":" (test P *PWD) )"},{"Add":""},{"Add":""},{"Add":"### dirname basename ###"},{"Add":"(test \"a/b/c/\" (dirname \"a/b/c/d\"))"},{"Add":"(test \"a/b/c/\" (dirname \"a/b/c/d/\"))"},{"Add":"(test \"d\" (basename \"a/b/c/d\"))"},{"Add":"(test \"d\" (basename \"a/b/c/d/\"))"}]}},{"FileAdd":{"meta":{"basename":"math.l","metadata":0},"context":[{"change":0,"pos":56047}],"contents":[{"Add":"# 06oct20 Software Lab. Alexander Burger"},{"Add":""},{"Add":"(scl 6)"},{"Add":"(load \"@lib/math.l\")"},{"Add":""},{"Add":"### pow ###"},{"Add":"(test 8.0 (pow 2.0 3.0))"},{"Add":"(test 8.0 (pow 64.0 0.5))"},{"Add":""},{"Add":"### exp ###"},{"Add":"(test 2.718282 (exp 1.0))"},{"Add":""},{"Add":"### log ###"},{"Add":"(test 0.693147 (log 2.0))"},{"Add":""},{"Add":"### sin ###"},{"Add":"(test 0.0 (sin 0.0))"},{"Add":"(test 1.0 (sin (/ pi 2)))"},{"Add":""},{"Add":"### cos ###"},{"Add":"(test 1.0 (cos 0.0))"},{"Add":"(test -1.0 (cos pi))"},{"Add":""},{"Add":"### tan ###"},{"Add":"(test 0.0 (tan 0.0))"},{"Add":"(test 0.0 (tan pi))"},{"Add":""},{"Add":"### asin ###"},{"Add":"(test 0.0 (asin 0.0))"},{"Add":"(test (/ pi 2) (asin 1.0))"},{"Add":""},{"Add":"### acos ###"},{"Add":"(test 0.0 (acos 1.0))"},{"Add":"(test pi (acos -1.0))"},{"Add":""},{"Add":"### atan ###"},{"Add":"(test 0.0 (atan 0.0))"},{"Add":""},{"Add":"### atan2 ###"},{"Add":"(test 0.0 (atan2 0.0 1.0))"},{"Add":"(test (/ pi 2) (atan2 1.0 0.0))"}]}},{"FileAdd":{"meta":{"basename":"lint.l","metadata":0},"context":[{"change":0,"pos":56047}],"contents":[{"Add":"# 06oct20 Software Lab. Alexander Burger"},{"Add":""},{"Add":"### noLint ###"},{"Add":"(let foo '(() (bar FreeVariable))"},{"Add":" (use *NoLint"},{"Add":" (noLint 'bar)"},{"Add":" (noLint 'foo 'FreeVariable)"},{"Add":" (test NIL (lint 'foo)) ) )"},{"Add":""},{"Add":""},{"Add":"### lint ###"},{"Add":"(let foo '((R S T R) (let N 7 (bar X Y)))"},{"Add":" (test '((var T) (dup R) (def bar) (bnd Y X) (use N))"},{"Add":" (lint 'foo) ) )"},{"Add":""},{"Add":"(let foo '(() (task -6000 0 X 7 (println N)))"},{"Add":" (test '((bnd N) (use X))"},{"Add":" (lint 'foo) ) )"}]}},{"FileAdd":{"meta":{"basename":"db.l","metadata":0},"context":[{"change":0,"pos":56047}],"contents":[{"Add":"# 21aug22 Software Lab. Alexander Burger"},{"Add":""},{"Add":"### +Joint ###"},{"Add":"(test T (pool (tmp \"db\")))"},{"Add":""},{"Add":"(class +A +Entity)"},{"Add":"(rel k (+Key +String))"},{"Add":"(rel b (+List +Bag)"},{"Add":" ((+Joint) a (+B))"},{"Add":" ((+Number)) )"},{"Add":""},{"Add":"(class +B +Entity)"},{"Add":"(rel k (+Key +String))"},{"Add":"(rel a (+Joint) b (+A) list asoq)"},{"Add":""},{"Add":"(let"},{"Add":" (A (new T '(+A) 'k \"a\")"},{"Add":" B (new T '(+B) 'k \"b\")"},{"Add":" C (new T '(+B) 'k \"c\") )"},{"Add":""},{"Add":" (test T (bool (has> A 'k \"a\")))"},{"Add":" (test T (bool (has> B 'k \"b\")))"},{"Add":" (test A (db 'k '+A \"a\"))"},{"Add":" (test B (db 'k '+B \"b\"))"},{"Add":" (test C (db 'k '+B \"c\"))"},{"Add":""},{"Add":" (put> B 'a A)"},{"Add":" (test (list (list B)) (; A b))"},{"Add":" (test A (; B a))"},{"Add":""},{"Add":" (test T (bool (has> A 'b B)))"},{"Add":" (test T (bool (has> A 'b (list B))))"},{"Add":" (test T (bool (has> A 'b (list (list B)))))"},{"Add":""},{"Add":" (test T (bool (has> B 'a A)))"},{"Add":""},{"Add":" (put> B 'a NIL)"},{"Add":" (test NIL (; A b))"},{"Add":" (test NIL (; B a))"},{"Add":""},{"Add":" (put> A 'b (list (list B 123)))"},{"Add":" (test (list (list B 123)) (; A b))"},{"Add":" (test A (; B a))"},{"Add":""},{"Add":" (put> A 'b (list (list C 7)))"},{"Add":" (test (list (list C 7)) (; A b))"},{"Add":" (test NIL (; B a))"},{"Add":" (test A (; C a))"},{"Add":""},{"Add":" (put> A 'b NIL)"},{"Add":" (test NIL (; A b))"},{"Add":" (test NIL (; B a)) )"},{"Add":""},{"Add":"(rollback)"},{"Add":""},{"Add":"### +Swap ###"},{"Add":"(class +C +Entity)"},{"Add":"(rel s (+Swap +String))"},{"Add":"(rel l (+Swap +List +String))"},{"Add":"(rel b (+List +Bag)"},{"Add":" ((+Number))"},{"Add":" ((+Swap +String)) )"},{"Add":"(rel c (+Swap +List +Bag)"},{"Add":" ((+Number))"},{"Add":" ((+String)) )"},{"Add":""},{"Add":"(let A"},{"Add":" (new T '(+C)"},{"Add":" 's \"a\""},{"Add":" 'l '(\"b\" \"c\")"},{"Add":" 'b '((123 \"def\"))"},{"Add":" 'c '((123 \"def\")) )"},{"Add":""},{"Add":" (test T (bool (has> A 's \"a\")))"},{"Add":" (test NIL (has> A 's \"x\"))"},{"Add":" (test T (bool (has> A 'l '(\"b\" \"c\"))))"},{"Add":" (test NIL (has> A 'l '(\"b\")))"},{"Add":" (test NIL (has> A 'l '(\"c\")))"},{"Add":" (test NIL (has> A 'l '(\"x\")))"},{"Add":" (test T (bool (has> A 'b '((123 \"def\")))))"},{"Add":" (test NIL (has> A 'b '((123))))"},{"Add":" (test NIL (has> A 'b '((\"def\"))))"},{"Add":" (test T (bool (has> A 'c '((123 \"def\")))))"},{"Add":" (test NIL (has> A 'c '((123))))"},{"Add":" (test NIL (has> A 'c '((\"def\"))))"},{"Add":""},{"Add":" (let S (; A l)"},{"Add":" (put> A 'l '(\"x\"))"},{"Add":" (test S (; A l))"},{"Add":" (test '(\"x\") (; A l 0)) )"},{"Add":""},{"Add":" (let S (; A b 1 2)"},{"Add":" (put> A 'b (list (list 4 S)))"},{"Add":" (test S (; A b 1 2))"},{"Add":" (test \"def\" (; A b 1 2 0))"},{"Add":" (test 4 (; A b 1 1))"},{"Add":" (put> A 'b '((7 \"y\")))"},{"Add":" (test S (; A b 1 2))"},{"Add":" (test 7 (; A b 1 1))"},{"Add":" (test \"y\" (; A b 1 2 0)) ) )"},{"Add":""},{"Add":"(rollback)"}]}},{"FileAdd":{"meta":{"basename":"src","metadata":576},"context":[{"change":2,"pos":1}],"contents":[]}},{"FileAdd":{"meta":{"basename":"vers.l","metadata":0},"context":[{"change":0,"pos":63931}],"contents":[{"Add":"# 03feb24 Software Lab. Alexander Burger"},{"Add":""},{"Add":"(symbols '(llvm))"},{"Add":""},{"Add":"(local) *Version"},{"Add":""},{"Add":"(pico~de *Version 24 2 3)"}]}},{"FileAdd":{"meta":{"basename":"sysdefs.c","metadata":0},"context":[{"change":0,"pos":63931}],"contents":[{"Add":"// 24apr22 Software Lab. Alexander Burger"},{"Add":""},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":""},{"Add":"static void ttl(char *nm) {"},{"Add":" printf(\"\\n[%s]\\n\", nm);"},{"Add":"}"},{"Add":""},{"Add":"static void num(char *sym, long val) {"},{"Add":" printf(\"%s\\t%ld\\n\", sym, val);"},{"Add":"}"},{"Add":""},{"Add":"static void str(char *sym, char *val) {"},{"Add":" printf(\"%s\\t\\\"%s\\\"\\n\", sym, val);"},{"Add":"}"},{"Add":""},{"Add":"int main(void) {"},{"Add":" struct winsize term;"},{"Add":" struct sockaddr_in6 addr;"},{"Add":" struct addrinfo ai;"},{"Add":""},{"Add":" printf(\"# %s\\n\", __VERSION__);"},{"Add":" printf(\"# %s\\n\", _OS);"},{"Add":" printf(\"# %s\\n\", _CPU);"},{"Add":""},{"Add":" ttl(\"errno\");"},{"Add":" num(\"EINTR\", EINTR);"},{"Add":" num(\"EAGAIN\", EAGAIN);"},{"Add":" num(\"EACCES\", EACCES);"},{"Add":""},{"Add":" ttl(\"stdio\");"},{"Add":" num(\"BUFSIZ\", BUFSIZ);"},{"Add":""},{"Add":" ttl(\"unistd\");"},{"Add":" num(\"PIPE_BUF\", PIPE_BUF);"},{"Add":" num(\"PATH_MAX\", PATH_MAX);"},{"Add":""},{"Add":" ttl(\"terminal\");"},{"Add":" num(\"TIOCGWINSZ\", TIOCGWINSZ);"},{"Add":" num(\"TIOCSWINSZ\", TIOCSWINSZ);"},{"Add":" num(\"winsize\", sizeof(struct winsize));"},{"Add":" num(\"ws_row\", (char*)&term.ws_row - (char*)&term);"},{"Add":" num(\"ws_col\", (char*)&term.ws_col - (char*)&term);"},{"Add":""},{"Add":" ttl(\"networking\");"},{"Add":" num(\"SOCK_STREAM\", SOCK_STREAM);"},{"Add":" num(\"SOCK_DGRAM\", SOCK_DGRAM);"},{"Add":" num(\"AF_INET6\", AF_INET6);"},{"Add":" num(\"SOL_SOCKET\", SOL_SOCKET);"},{"Add":" num(\"SO_REUSEADDR\", SO_REUSEADDR);"},{"Add":" num(\"IPPROTO_IPV6\", IPPROTO_IPV6);"},{"Add":" num(\"IPV6_V6ONLY\", IPV6_V6ONLY);"},{"Add":" num(\"INET6_ADDRSTRLEN\", INET6_ADDRSTRLEN);"},{"Add":" num(\"sockaddr_in6\", sizeof(struct sockaddr_in6));"},{"Add":" num(\"sin6_family\", (char*)&addr.sin6_family - (char*)&addr);"},{"Add":" num(\"sin6_addr\", (char*)&addr.sin6_addr - (char*)&addr);"},{"Add":" num(\"sin6_port\", (char*)&addr.sin6_port - (char*)&addr);"},{"Add":" num(\"NI_MAXHOST\", NI_MAXHOST);"},{"Add":" num(\"NI_NAMEREQD\", NI_NAMEREQD);"},{"Add":" num(\"addrinfo\", sizeof(struct addrinfo));"},{"Add":" num(\"ai_family\", (char*)&ai.ai_family - (char*)&ai);"},{"Add":" num(\"ai_socktype\", (char*)&ai.ai_socktype - (char*)&ai);"},{"Add":" num(\"socklen_t\", sizeof(socklen_t));"},{"Add":" num(\"ai_addrlen\", (char*)&ai.ai_addrlen - (char*)&ai);"},{"Add":" num(\"ai_addr\", (char*)&ai.ai_addr - (char*)&ai);"},{"Add":" num(\"ai_next\", (char*)&ai.ai_next - (char*)&ai);"},{"Add":" num(\"AF_UNSPEC\", AF_UNSPEC);"},{"Add":""},{"Add":" return 0;"},{"Add":"}"}]}},{"FileAdd":{"meta":{"basename":"sym.l","metadata":0},"context":[{"change":0,"pos":63931}],"contents":[{"Add":"# 08aug23 Software Lab. Alexander Burger"},{"Add":""},{"Add":"(symbols '(llvm))"},{"Add":""},{"Add":"(local) (bufSize pathSize bufString pathString)"},{"Add":""},{"Add":"(de i64 bufSize (Nm)"},{"Add":" (let N 1"},{"Add":" (while (big? Nm)"},{"Add":" (inc 'N 8)"},{"Add":" (setq Nm (val (big Nm))) )"},{"Add":" (setq Nm (int Nm))"},{"Add":" (while Nm"},{"Add":" (inc 'N)"},{"Add":" (setq Nm (shr Nm 8)) )"},{"Add":" N ) )"},{"Add":""},{"Add":"(de i64 pathSize (Nm)"},{"Add":" (let"},{"Add":" (Len (bufSize Nm)"},{"Add":" N (if (cnt? Nm) (int @) (val (dig @)))"},{"Add":" B (i8 N) )"},{"Add":" (cond"},{"Add":" ((or"},{"Add":" (== B (char \"@\"))"},{"Add":" (and"},{"Add":" (== B (char \"+\"))"},{"Add":" (== (i8 (shr N 8)) (char \"@\")) ) )"},{"Add":" (+ (val $PilLen) (dec Len)) )"},{"Add":" ((or"},{"Add":" (== B (char \"~\"))"},{"Add":" (and"},{"Add":" (== B (char \"+\"))"},{"Add":" (== (i8 (shr N 8)) (char \"~\")) ) )"},{"Add":" (+ (val $UsrLen) (dec Len)) )"},{"Add":" (T Len) ) ) )"},{"Add":""},{"Add":"(de i8* bufString (Nm (i8* . P))"},{"Add":" (let Q (push 0 Nm) # [cnt name]"},{"Add":" (prog1 P"},{"Add":" (while (set P (symByte Q))"},{"Add":" (inc 'P) ) ) ) )"},{"Add":""},{"Add":"(de i8* pathString (Nm (i8* . P))"},{"Add":" (let (Q (push 0 Nm) B (symByte Q)) # [cnt name]"},{"Add":" (prog1 P"},{"Add":" (when (== B (char \"+\"))"},{"Add":" (set P B)"},{"Add":" (inc 'P)"},{"Add":" (setq B (symByte Q)) )"},{"Add":" (case B"},{"Add":" ((char \"@\")"},{"Add":" (when (val $PilLen)"},{"Add":" (memcpy P (val $PilHome) @)"},{"Add":" (inc 'P @) ) )"},{"Add":" ((char \"~\")"},{"Add":" (when (val $UsrLen)"},{"Add":" (memcpy P (val $UsrHome) @)"},{"Add":" (inc 'P @) ) )"},{"Add":" (T"},{"Add":" (set P B)"},{"Add":" (inc 'P) ) )"},{"Add":" (while (set P (symByte Q))"},{"Add":" (inc 'P) ) ) ) )"},{"Add":""},{"Add":"(local) (mkChar mkStr firstByte firstChar isBlank)"},{"Add":""},{"Add":"(de mkChar ((i32 . C))"},{"Add":" (consStr"},{"Add":" (cnt"},{"Add":" (cond"},{"Add":" ((>= 127 C) (i64 C)) # Single byte"},{"Add":" ((== TOP C) (hex \"FF\")) # Infinite"},{"Add":" ((> (hex \"800\") C) # Double-byte"},{"Add":" (i64"},{"Add":" (|"},{"Add":" (| (hex \"C0\") (& (shr C 6) (hex \"1F\"))) # 10xxxxx 10xxxxxx"},{"Add":" (shl (| (hex \"80\") (& C (hex \"3F\"))) 8) ) ) )"},{"Add":" ((> (hex \"10000\") C) # Three bytes"},{"Add":" (i64"},{"Add":" (|"},{"Add":" (|"},{"Add":" (| (hex \"E0\") (& (shr C 12) (hex \"0F\"))) # 1110xxxx 10xxxxxx 10xxxxxx"},{"Add":" (shl (| (hex \"80\") (& (shr C 6) (hex \"3F\"))) 8) )"},{"Add":" (shl (| (hex \"80\") (& C (hex \"3F\"))) 16) ) ) )"},{"Add":" (T"},{"Add":" (|"},{"Add":" (i64"},{"Add":" (|"},{"Add":" (|"},{"Add":" (| (hex \"F0\") (& (shr C 18) (hex \"07\"))) # 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx"},{"Add":" (shl (| (hex \"80\") (& (shr C 12) (hex \"3F\"))) 8) )"},{"Add":" (shl (| (hex \"80\") (& (shr C 6) (hex \"3F\"))) 16) ) )"},{"Add":" (shl"},{"Add":" (| (hex \"80\") (& (i64 C) (hex \"3F\")))"},{"Add":" 24 ) ) ) ) ) ) )"},{"Add":""},{"Add":"(de mkStr ((i8* . Str))"},{"Add":" (if Str"},{"Add":" (let P (push 4 NIL ZERO NIL) # [cnt last name link]"},{"Add":" (link (ofs P 2) T)"},{"Add":" (while (val Str)"},{"Add":" (byteSym @ P)"},{"Add":" (inc 'Str) )"},{"Add":" (consStr (val 3 P)) )"},{"Add":" $Nil ) )"},{"Add":""},{"Add":"(de mkStrE ((i8* . Str) (i8* . End))"},{"Add":" (let P (push 4 NIL ZERO NIL) # [cnt last name link]"},{"Add":" (link (ofs P 2) T)"},{"Add":" (loop"},{"Add":" (? (== Str End))"},{"Add":" (? (=0 (val Str)))"},{"Add":" (byteSym @ P)"},{"Add":" (inc 'Str) )"},{"Add":" (consStr (val 3 P)) ) )"},{"Add":""},{"Add":"(de i8 firstByte (Sym)"},{"Add":" (i8"},{"Add":" (cond"},{"Add":" ((nil? Sym) 0)"},{"Add":" ((sym? (val (tail Sym))) 0)"},{"Add":" ((cnt? (name @)) (int @))"},{"Add":" (T (val (dig @))) ) ) )"},{"Add":""},{"Add":"(de i32 firstChar (Sym)"},{"Add":" (cond"},{"Add":" ((nil? Sym) 0)"},{"Add":" ((sym? (val (tail Sym))) 0) # External symbol"},{"Add":" (T (symChar (push 0 (name @)))) ) ) # Else get name"},{"Add":""},{"Add":"(de i1 isBlank (X)"},{"Add":" (or"},{"Add":" (nil? X)"},{"Add":" (and"},{"Add":" (symb? X)"},{"Add":" (not (sym? (val (tail X))))"},{"Add":" (let P (push 0 (name @)) # [cnt name]"},{"Add":" (loop"},{"Add":" (? (=0 (symByte P)) YES)"},{"Add":" (? (> @ 32) NO) ) ) ) ) )"},{"Add":""},{"Add":"# Build external symbol name"},{"Add":"(local) extNm"},{"Add":""},{"Add":"(de extNm ((i32 . File) (i64 . Obj))"},{"Add":" (cnt"},{"Add":" (|"},{"Add":" (& Obj (hex \"FFFFF\")) # Lowest 20 bits"},{"Add":" (|"},{"Add":" (shl (i64 (& File (hex \"FF\"))) 20) # Lower 8 bits"},{"Add":" (|"},{"Add":" (shl"},{"Add":" (& (setq Obj (shr Obj 20)) (hex \"FFF\")) # Middle 12 bits"},{"Add":" 28 )"},{"Add":" (|"},{"Add":" (shl (i64 (shr File 8)) 40) # Upper 8 bits"},{"Add":" (shl (shr Obj 12) 48) ) ) ) ) ) ) # Highest 10 bits"},{"Add":""},{"Add":"(local) (objFile objId packAO packOct packExtNm pack chopExtNm)"},{"Add":""},{"Add":"# Get file number from external symbol name"},{"Add":"(de i32 objFile (Name)"},{"Add":" (|"},{"Add":" (& (i32 (setq Name (shr Name 24))) (hex \"FF\")) # Low 8 bits"},{"Add":" (& (i32 (shr Name 12)) (hex \"FF00\")) ) ) # High 8 bits"},{"Add":""},{"Add":"# Get object ID from external symbol name"},{"Add":"(de i64 objId (Name)"},{"Add":" (|"},{"Add":" (|"},{"Add":" (& (setq Name (shr Name 4)) (hex \"FFFFF\")) # Lowest 20 bits"},{"Add":" (& (setq Name (shr Name 8)) (hex \"FFF00000\")) ) # Middle 12 bits"},{"Add":" (& (shr Name 8) (hex \"3FF00000000\")) ) ) # Highest 10 bits"},{"Add":""},{"Add":"# Pack external symbol name"},{"Add":"(de void packAO ((i32 . File) (i64* . P))"},{"Add":" (when (> File 15)"},{"Add":" (packAO (shr File 4) P) ) # Divide by 16"},{"Add":" (byteSym (+ (& (i8 File) 15) (char \"@\")) P) ) # Make ASCII letter"},{"Add":""},{"Add":"(de void packOct ((i64 . Obj) (i64* . P))"},{"Add":" (when (> Obj 7)"},{"Add":" (packOct (shr Obj 3) P) ) # Divide by 8"},{"Add":" (byteSym (+ (& (i8 Obj) 7) (char \"0\")) P) ) # Make ASCII digit"},{"Add":""},{"Add":"(de void packExtNm (Name (i64* . P))"},{"Add":" (when (objFile Name)"},{"Add":" (packAO @ P) )"},{"Add":" (packOct (objId Name) P) )"},{"Add":""},{"Add":"# General pack"},{"Add":"(de void pack (X (i64* . P))"},{"Add":" (when (pair X)"},{"Add":" (stkChk 0)"},{"Add":" (loop"},{"Add":" (pack (++ X) P)"},{"Add":" (? (atom X)) ) )"},{"Add":" (cond"},{"Add":" ((nil? X))"},{"Add":" ((num? X) (fmtNum X 0 0 0 P))"},{"Add":" ((sym? (val (tail X)))"},{"Add":" (byteSym (char \"{\") P)"},{"Add":" (packExtNm (name (& @ -9)) P)"},{"Add":" (byteSym (char \"}\") P) )"},{"Add":" (T"},{"Add":" (let Q (push 0 (name @)) # [cnt name]"},{"Add":" (while (symByte Q)"},{"Add":" (byteSym @ P) ) ) ) ) )"},{"Add":""},{"Add":"# Chop external symbol name"},{"Add":"(de chopExtNm (Name)"},{"Add":" (let (R (link (push $Nil NIL)) N (objId Name))"},{"Add":" (loop"},{"Add":" (let A (+ (& N 7) (char \"0\")) # Make ASCII digit"},{"Add":" (when (setq N (shr N 3))"},{"Add":" (setq A"},{"Add":" (|"},{"Add":" (shl A 8)"},{"Add":" (+ (& N 7) (char \"0\")) ) ) # Second octal digit"},{"Add":" (when (setq N (shr N 3))"},{"Add":" (setq A"},{"Add":" (|"},{"Add":" (shl A 8)"},{"Add":" (+ (& N 7) (char \"0\")) ) ) ) ) # Third octal digit"},{"Add":" (set R"},{"Add":" (cons (consSym (cnt A) 0) (val R)) ) )"},{"Add":" (? (=0 (setq N (shr N 3)))) )"},{"Add":" (when (setq N (objFile Name))"},{"Add":" (let F (i32 0)"},{"Add":" (loop"},{"Add":" (setq F"},{"Add":" (| F (+ (& N 15) (char \"@\"))) ) # Make ASCII letter"},{"Add":" (? (=0 (setq N (shr N 4))))"},{"Add":" (setq F (shl F 8)) )"},{"Add":" (set R"},{"Add":" (cons (consStr (cnt (i64 F))) (val R)) ) ) )"},{"Add":" (pop R) ) )"},{"Add":""},{"Add":"### Interning ###"},{"Add":"(local) (cmpLong isIntern isLstIntern findSym)"},{"Add":""},{"Add":"# Compare long names"},{"Add":"(de i64 cmpLong (X Y)"},{"Add":" (loop"},{"Add":" (? (sub (val (dig X)) (val (dig Y)))"},{"Add":" (if @@ -1 +1) )"},{"Add":" (setq X (val (big X)) Y (val (big Y)))"},{"Add":" (? (cnt? X)"},{"Add":" (cond"},{"Add":" ((big? Y) -1)"},{"Add":" ((== Y X) 0)"},{"Add":" ((> Y X) -1)"},{"Add":" (T +1) ) )"},{"Add":" (? (cnt? Y) +1) ) )"},{"Add":""},{"Add":"# Is name interned?"},{"Add":"(de isIntern (Name Tree)"},{"Add":" (if (cnt? Name) # Short name"},{"Add":" (let X (car Tree) # First tree"},{"Add":" (loop"},{"Add":" (? (atom X) 0) # Empty"},{"Add":" (let (S (car X) Nm (name (val (tail S))))"},{"Add":" (? (== Name Nm) S)"},{"Add":" (setq X"},{"Add":" (if (> Name Nm) # Symbol is smaller"},{"Add":" (cddr X)"},{"Add":" (cadr X) ) ) ) ) )"},{"Add":" # Long name"},{"Add":" (let X (cdr Tree) # Second tree"},{"Add":" (loop"},{"Add":" (? (atom X) 0) # Empty"},{"Add":" (let (S (car X) Nm (name (val (tail S))))"},{"Add":" (? (=0 (cmpLong Nm Name)) S)"},{"Add":" (setq X"},{"Add":" (if (lt0 @) # Symbol is smaller"},{"Add":" (cddr X)"},{"Add":" (cadr X) ) ) ) ) ) ) )"},{"Add":""},{"Add":"(de isLstIntern (Name Lst)"},{"Add":" (loop"},{"Add":" (? (atom Lst) 0)"},{"Add":" (? (isIntern Name (cdar (car Lst))) @)"},{"Add":" (shift Lst) ) )"},{"Add":""},{"Add":"(de i1 findSym (Sym Name Lst)"},{"Add":" (loop"},{"Add":" (? (atom Lst) NO)"},{"Add":" (? (== Sym (isIntern Name (cdar (car Lst)))) YES)"},{"Add":" (shift Lst) ) )"},{"Add":""},{"Add":"(local) (intern1 intern2 internRight internLeft)"},{"Add":""},{"Add":"(inline intern1 (Sym Val Name Node More)"},{"Add":" (if (isLstIntern Name More)"},{"Add":" @"},{"Add":" (unless Sym # New symbol"},{"Add":" (setq Sym (consSym Name Val)) )"},{"Add":" (set Node (cons Sym $Nil))"},{"Add":" Sym ) )"},{"Add":""},{"Add":"(inline intern2 (Sym Val Name Node More)"},{"Add":" (if (isLstIntern Name More)"},{"Add":" @"},{"Add":" (unless Sym # New symbol"},{"Add":" (setq Sym (consSym Name Val)) )"},{"Add":" (set 2 Node (cons Sym $Nil))"},{"Add":" Sym ) )"},{"Add":""},{"Add":"(inline internRight (Sym Val Name Node More)"},{"Add":" (if (isLstIntern Name More)"},{"Add":" @"},{"Add":" (unless Sym # New symbol"},{"Add":" (setq Sym (consSym Name Val)) )"},{"Add":" (set 2 Node (cons $Nil (cons Sym $Nil)))"},{"Add":" Sym ) )"},{"Add":""},{"Add":"(inline internLeft (Sym Val Name Node More)"},{"Add":" (if (isLstIntern Name More)"},{"Add":" @"},{"Add":" (unless Sym # New symbol"},{"Add":" (setq Sym (consSym Name Val)) )"},{"Add":" (set 2 Node (cons (cons Sym $Nil) $Nil))"},{"Add":" Sym ) )"},{"Add":""},{"Add":"(local) (intern requestSym extern delNode unintern)"},{"Add":""},{"Add":"# Intern a symbol/name"},{"Add":"(de intern (Sym Val Name Tree More (i1 . Rpl))"},{"Add":" (if (cnt? Name) # Short name"},{"Add":" (let X (car Tree) # First tree"},{"Add":" (if (pair X) # Not empty"},{"Add":" (loop"},{"Add":" (let (S (car X) Nm (name (val (tail S))))"},{"Add":" (? (== Name Nm) # Found name"},{"Add":" (if Rpl"},{"Add":" (set X Sym) # Replace with argument symbol"},{"Add":" S ) ) # Return found symbol"},{"Add":" (let Y (cdr X) # Get link cell"},{"Add":" (cond"},{"Add":" ((> Name Nm) # Symbol is smaller"},{"Add":" (? (atom Y) (internRight Sym Val Name X More)) # No link yet"},{"Add":" (? (atom (setq Y (cdr (setq X Y))))"},{"Add":" (intern2 Sym Val Name X More) ) )"},{"Add":" (T # Symbol is greater"},{"Add":" (? (atom Y) (internLeft Sym Val Name X More)) # No link yet"},{"Add":" (? (atom (setq Y (car (setq X Y))))"},{"Add":" (intern1 Sym Val Name X More) ) ) )"},{"Add":" (setq X Y) ) ) )"},{"Add":" # Empty"},{"Add":" (intern1 Sym Val Name Tree More) ) )"},{"Add":" # Long name"},{"Add":" (let X (cdr Tree) # Second tree"},{"Add":" (if (pair X) # Not empty"},{"Add":" (loop"},{"Add":" (let (S (car X) Nm (name (val (tail S))))"},{"Add":" (? (=0 (cmpLong Nm Name)) # Found name"},{"Add":" (if Rpl"},{"Add":" (set X Sym) # Replace with argument symbol"},{"Add":" S ) ) # Return found symbol"},{"Add":" (let Y (cdr X) # Get link cell"},{"Add":" (cond"},{"Add":" ((lt0 @) # Symbol is smaller"},{"Add":" (? (atom Y) (internRight Sym Val Name X More)) # No link yet"},{"Add":" (? (atom (setq Y (cdr (setq X Y))))"},{"Add":" (intern2 Sym Val Name X More) ) )"},{"Add":" (T # Symbol is greater"},{"Add":" (? (atom Y) (internLeft Sym Val Name X More)) # No link yet"},{"Add":" (? (atom (setq Y (car (setq X Y))))"},{"Add":" (intern1 Sym Val Name X More) ) ) )"},{"Add":" (setq X Y) ) ) )"},{"Add":" # Empty"},{"Add":" (intern2 Sym Val Name Tree More) ) ) ) )"},{"Add":""},{"Add":"(de requestSym (Name)"},{"Add":" (if (isIntern Name $PrivT)"},{"Add":" @"},{"Add":" (let L (val $Intern)"},{"Add":" (intern 0 $Nil Name"},{"Add":" (cdar (car L))"},{"Add":" (cdr L)"},{"Add":" NO ) ) ) )"},{"Add":""},{"Add":"# Intern an external symbol"},{"Add":"(de extern (Name)"},{"Add":" (need3) # Reserve 3 cells"},{"Add":" (let (X (val $Extern) C 0 Sym T)"},{"Add":" (loop"},{"Add":" (inc 'C) # Next level"},{"Add":" (setq Sym (car X)) # Next symbol"},{"Add":" (let Nm"},{"Add":" (&"},{"Add":" (name (& (val (tail Sym)) -9))"},{"Add":" (hex \"3FFFFFFFFFFFFFF7\") ) # Mask status and extern bits"},{"Add":" (? (== Nm Name)) # Found"},{"Add":" (let Y (cdr X) # Get link cell"},{"Add":" (cond"},{"Add":" ((> Name Nm) # Symbol is smaller"},{"Add":" (? (atom Y) # No link yet"},{"Add":" (set 2 X"},{"Add":" (cons $Nil (cons (setq Sym (consExt Name)) $Nil)) ) )"},{"Add":" (? (atom (setq Y (cdr (setq X Y))))"},{"Add":" (set 2 X"},{"Add":" (cons (setq Sym (consExt Name)) $Nil) ) ) )"},{"Add":" (T # Symbol is greater"},{"Add":" (? (atom Y) # No link yet"},{"Add":" (set 2 X"},{"Add":" (cons (cons (setq Sym (consExt Name)) $Nil) $Nil) ) )"},{"Add":" (? (atom (setq Y (car (setq X Y))))"},{"Add":" (set X"},{"Add":" (cons (setq Sym (consExt Name)) $Nil) ) ) ) )"},{"Add":" (setq X Y) ) ) )"},{"Add":" (setq C (shr C 1)) # Half depth"},{"Add":" (when (> (shl 1 C) (val $ExtCnt)) # 2 ** (C/2)"},{"Add":" (setq X (val $Extern))"},{"Add":" (let N (val $ExtSkip) # Levels to skip"},{"Add":" (if (> (inc 'N) C) # Beyond half depth"},{"Add":" (set $ExtSkip 0) # Don't skip"},{"Add":" (set $ExtSkip N)"},{"Add":" (loop # Skip"},{"Add":" (setq X"},{"Add":" (if"},{"Add":" (>"},{"Add":" Name"},{"Add":" (&"},{"Add":" (name (& (val (tail (++ X))) -9))"},{"Add":" (hex \"3FFFFFFFFFFFFFF7\") ) )"},{"Add":" (cdr X)"},{"Add":" (car X) ) )"},{"Add":" (? (=0 (dec 'C))) ) ) )"},{"Add":" (loop # Pivot"},{"Add":" (let"},{"Add":" (Nm"},{"Add":" (&"},{"Add":" (name (& (val (tail (car X))) -9))"},{"Add":" (hex \"3FFFFFFFFFFFFFF7\") )"},{"Add":" Y (cdr X) )"},{"Add":" (? (== Nm Name)) # Done"},{"Add":" (if (> Name Nm) # Symbol is smaller"},{"Add":" (let Z (cdr Y) # Get right node"},{"Add":" (? (atom (cdr Z)))"},{"Add":" (xchg Z X) # Pivot left"},{"Add":" (setq Z (cdr Z) X (cdr Z))"},{"Add":" (set # Rotate pointers"},{"Add":" 2 Z (val Z)"},{"Add":" Z (val Y)"},{"Add":" Y (cdr Y)"},{"Add":" 2 Y X) )"},{"Add":" (let Z (car Y) # Get left node"},{"Add":" (? (atom (cdr Z)))"},{"Add":" (xchg Z X) # Pivot right"},{"Add":" (setq Z (cdr Z) X (val Z))"},{"Add":" (set # Rotate pointers"},{"Add":" Z (cdr Z)"},{"Add":" 2 Z (cdr Y)"},{"Add":" 2 Y (val Y)"},{"Add":" Y X) ) ) ) ) )"},{"Add":" Sym ) )"},{"Add":""},{"Add":"(de void delNode (X P)"},{"Add":" (let Y (cdr X) # Subtrees"},{"Add":" (cond"},{"Add":" ((atom (car Y)) # No left branch"},{"Add":" (set P (cdr Y)) ) # Use right branch"},{"Add":" ((atom (cdr Y)) # No right branch"},{"Add":" (set P (car Y)) ) # Use left branch"},{"Add":" ((atom (car (setq P (cdr (shift Y))))) # Y on right branch, P on sub-branches"},{"Add":" (set # No left sub-branch"},{"Add":" X (car Y) # Insert right sub-branch"},{"Add":" 2 (cdr X) (cdr P) ) )"},{"Add":" (T"},{"Add":" (setq P (car P)) # Left sub-branch"},{"Add":" (loop"},{"Add":" (let Z (cdr P) # More left branches"},{"Add":" (? (atom (car Z))"},{"Add":" (set"},{"Add":" X (car P) # Insert left sub-branch"},{"Add":" (cdr Y) (cdr Z) ) )"},{"Add":" (setq Y P P (car Z)) ) ) ) ) ) ) # Go down left"},{"Add":""},{"Add":"(de void unintern (Sym Name P)"},{"Add":" (if (cnt? Name) # Short name"},{"Add":" (loop # First tree"},{"Add":" (let X (car P) # Next node"},{"Add":" (? (atom X)) # Empty"},{"Add":" (let (S (car X) Nm (name (val (tail S))))"},{"Add":" (? (== Name Nm)"},{"Add":" (when (== S Sym) # Correct symbol"},{"Add":" (delNode X P) ) )"},{"Add":" (? (atom (shift X)))"},{"Add":" (setq P"},{"Add":" (if (> Name Nm) (ofs X 1) X) ) ) ) )"},{"Add":" # Long name"},{"Add":" (setq P (ofs P 1)) # Second tree"},{"Add":" (loop"},{"Add":" (let X (car P) # Next node"},{"Add":" (? (atom X)) # Empty"},{"Add":" (let"},{"Add":" (S (car X)"},{"Add":" Nm (name (val (tail S)))"},{"Add":" I (cmpLong Nm Name) )"},{"Add":" (? (=0 I)"},{"Add":" (when (== S Sym) # Correct symbol"},{"Add":" (delNode X P) ) )"},{"Add":" (? (atom (shift X)))"},{"Add":" (setq P"},{"Add":" (if (lt0 I) (ofs X 1) X) ) ) ) ) ) )"},{"Add":""},{"Add":"# (name 'sym) -> sym"},{"Add":"(de _Name (Exe)"},{"Add":" (let Tail (val (tail (needSymb Exe (eval (cadr Exe)))))"},{"Add":" (if (sym? Tail) # External"},{"Add":" (let P (push 4 NIL ZERO NIL) # [cnt last name link]"},{"Add":" (link (ofs P 2) T)"},{"Add":" (packExtNm (name (& Tail -9)) P)"},{"Add":" (consStr (val 3 P)) )"},{"Add":" (consStr (name Tail)) ) ) )"},{"Add":""},{"Add":"# (nsp 'sym) -> sym"},{"Add":"(de _Nsp (Exe)"},{"Add":" (let Sym (needSymb Exe (eval (cadr Exe)))"},{"Add":" (if (sym? (val (tail Sym)))"},{"Add":" $Nil"},{"Add":" (let Nm (name @)"},{"Add":" (if (== Sym (isIntern Nm $PrivT)) # Private?"},{"Add":" $priv"},{"Add":" (let Lst (val $Intern) # Search namespaces"},{"Add":" (loop"},{"Add":" (? (atom Lst) $Nil)"},{"Add":" (let Nsp (car Lst)"},{"Add":" (? (== Sym (isIntern Nm (cdar Nsp))) Nsp) )"},{"Add":" (shift Lst) ) ) ) ) ) ) )"},{"Add":""},{"Add":"# (sp? 'any) -> flg"},{"Add":"(de _SpQ (Exe)"},{"Add":" (if (isBlank (eval (cadr Exe)))"},{"Add":" $T"},{"Add":" $Nil ) )"},{"Add":""},{"Add":"# (pat? 'any) -> sym | NIL"},{"Add":"(de _PatQ (Exe)"},{"Add":" (let X (eval (cadr Exe))"},{"Add":" (if (and (symb? X) (== (firstChar X) (char \"@\")))"},{"Add":" X"},{"Add":" $Nil ) ) )"},{"Add":""},{"Add":"# (fun? 'any) -> any"},{"Add":"(de _FunQ (Exe)"},{"Add":" (if (funq (eval (cadr Exe)))"},{"Add":" @"},{"Add":" $Nil ) )"},{"Add":""},{"Add":"# (getd 'any) -> fun | NIL"},{"Add":"(de _Getd (Exe)"},{"Add":" (let (X (eval (cadr Exe)) V T)"},{"Add":" (cond"},{"Add":" ((not (symb? X)) $Nil)"},{"Add":" ((funq (setq V (val X))) V)"},{"Add":" ((and (nil? V) (sharedLib X)) (val X))"},{"Add":" (T $Nil) ) ) )"},{"Add":""},{"Add":"### Namespaces ###"},{"Add":"(local) consTree"},{"Add":""},{"Add":"# Build sorted list from tree"},{"Add":"(de consTree (P Lst)"},{"Add":" (if (atom P)"},{"Add":" Lst"},{"Add":" (let"},{"Add":" (Q (link (push NIL NIL))"},{"Add":" Tos (link (push -ZERO NIL)))"},{"Add":" (loop"},{"Add":" (loop"},{"Add":" (let X (cdr P) # Get subtrees"},{"Add":" (? (atom (cdr X))) # Right subtree"},{"Add":" (let Y P # Go right"},{"Add":" (setq P @) # Invert tree"},{"Add":" (set 2 X (val Tos))"},{"Add":" (set Tos Y) ) ) )"},{"Add":" (set Q P) # Save tree"},{"Add":" (loop"},{"Add":" (setq Lst (cons (car P) Lst)) # Cons symbol"},{"Add":" (let X (cdr P)"},{"Add":" (? (pair (car X)) # Left subtree"},{"Add":" (let Y P # Go left"},{"Add":" (setq P @) # Invert tree"},{"Add":" (set X (val Tos))"},{"Add":" (set Tos (| Y 8)) # First visit"},{"Add":" (set Q P) ) ) ) # Save tree"},{"Add":" (loop"},{"Add":" (let X (val Tos)"},{"Add":" (when (== -ZERO X)"},{"Add":" (drop Q)"},{"Add":" (ret Lst) )"},{"Add":" (? (=0 (& X 8)) # Second visit"},{"Add":" (let Y (cdr X) # Nodes"},{"Add":" (set Tos (cdr Y)) # TOS on up link"},{"Add":" (set 2 Y P)"},{"Add":" (setq P X)"},{"Add":" (set Q P) ) ) # Save tree"},{"Add":" (setq X (& X -9)) # Clear visit bit"},{"Add":" (let Y (cdr X) # Nodes"},{"Add":" (set Tos (car Y))"},{"Add":" (set Y P)"},{"Add":" (setq P X)"},{"Add":" (set Q P) ) ) ) ) ) ) ) ) # Save tree"},{"Add":""},{"Add":"# (all ['NIL | 'T | '0 | 'sym | '(NIL . flg) | '(T . flg) | '(0)]) -> lst"},{"Add":"(de _All (Exe)"},{"Add":" (let X (eval (cadr Exe))"},{"Add":" (cond"},{"Add":" ((nil? X) # Internal symbols"},{"Add":" (let Y (val $Intern)"},{"Add":" (loop"},{"Add":" (let Z (cdar (++ Y))"},{"Add":" (setq X"},{"Add":" (consTree (car Z) (consTree (cdr Z) X)) ) )"},{"Add":" (? (atom Y) X) ) ) )"},{"Add":" ((t? X) # Transient symbols"},{"Add":" (consTree (val $Transient) (consTree (val 2 $Transient) $Nil)) )"},{"Add":" ((num? X) # External symbols"},{"Add":" (consTree (val $Extern) $Nil) )"},{"Add":" ((sym? X) # Given namespace"},{"Add":" (let Y (cdar X)"},{"Add":" (if (pair Y)"},{"Add":" (consTree (car Y) (consTree (cdr Y) $Nil))"},{"Add":" $Nil ) ) )"},{"Add":" ((nil? (car X)) # Direct internal tree"},{"Add":" (let Y (val (car (val $Intern)))"},{"Add":" (if (nil? (cdr X))"},{"Add":" (val Y)"},{"Add":" (val 2 Y) ) ) )"},{"Add":" ((t? (car X)) # Direct transient trees"},{"Add":" (if (nil? (cdr X))"},{"Add":" (val $Transient)"},{"Add":" (val 2 $Transient) ) )"},{"Add":" (T (val $Extern)) ) ) ) # Direct external tree"},{"Add":""},{"Add":"# (symbols) -> lst"},{"Add":"# (symbols 'lst) -> lst"},{"Add":"# (symbols 'lst . prg) -> any"},{"Add":"# (symbols 'sym1 'sym2 ..) -> lst"},{"Add":"(de _Symbols (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if (atom X) # No args"},{"Add":" (val $Intern)"},{"Add":" (let Y (eval (++ X))"},{"Add":" (if (pair Y) # List argument"},{"Add":" (let L Y"},{"Add":" (loop"},{"Add":" (needNsp Exe (needSymb Exe (++ L)))"},{"Add":" (? (atom L)) )"},{"Add":" (if (atom X) # No 'prg'"},{"Add":" (prog1"},{"Add":" (val $Intern)"},{"Add":" (set $Intern Y) )"},{"Add":" (let Z (save (val $Intern))"},{"Add":" (set $Intern Y)"},{"Add":" (prog1"},{"Add":" (run X) # Run 'prg'"},{"Add":" (set $Intern Z) ) ) ) )"},{"Add":" (if"},{"Add":" (or # New namespace"},{"Add":" (nil? (val (needSymb Exe Y)))"},{"Add":" (== @ Y) )"},{"Add":" (set"},{"Add":" (chkVar Exe Y)"},{"Add":" (cons $Tilde (cons $Nil $Nil)) )"},{"Add":" (needNsp Exe Y) )"},{"Add":" (let R (setq Y (save (cons Y $Nil)))"},{"Add":" (while (pair X)"},{"Add":" (setq Y"},{"Add":" (set 2 Y"},{"Add":" (cons"},{"Add":" (needNsp Exe (needSymb Exe (eval (++ X))))"},{"Add":" $Nil ) ) ) )"},{"Add":" (prog1"},{"Add":" (val $Intern)"},{"Add":" (set $Intern R)"},{"Add":" (putSrc (car R) 0) ) ) ) ) ) ) )"},{"Add":""},{"Add":"# (intern 'any ['nsp]) -> sym"},{"Add":"(de _Intern (Exe)"},{"Add":" (let (X (cdr Exe) Sym (save (evSym X)))"},{"Add":" (cond"},{"Add":" ((sym? (val (tail Sym))) $Nil) # External symbol"},{"Add":" ((== (name @) ZERO) $Nil) # Anonymous symbol"},{"Add":" (T"},{"Add":" (let Nm @"},{"Add":" (if (nil? (eval (cadr X)))"},{"Add":" (let L (val $Intern)"},{"Add":" (intern Sym 0 Nm"},{"Add":" (cdar (car L))"},{"Add":" (cdr L)"},{"Add":" NO ) )"},{"Add":" (intern Sym 0 Nm"},{"Add":" (if (t? @)"},{"Add":" (cdar (car (val $Intern)))"},{"Add":" (cdar @) )"},{"Add":" $Nil"},{"Add":" NO ) ) ) ) ) ) )"},{"Add":""},{"Add":"# (====) -> NIL"},{"Add":"(de _Hide (Exe)"},{"Add":" (set $Transient (set 2 $Transient $Nil)) )"},{"Add":""},{"Add":"# (box? 'any) -> sym | NIL"},{"Add":"(de _BoxQ (Exe)"},{"Add":" (let X (eval (cadr Exe))"},{"Add":" (if"},{"Add":" (and"},{"Add":" (symb? X)"},{"Add":" (not (sym? (val (tail X))))"},{"Add":" (== ZERO (name @)) )"},{"Add":" X"},{"Add":" $Nil ) ) )"},{"Add":""},{"Add":"# (str? 'any) -> sym | NIL"},{"Add":"(de _StrQ (Exe)"},{"Add":" (let X (eval (cadr Exe))"},{"Add":" (cond"},{"Add":" ((not (symb? X)) $Nil)"},{"Add":" ((or"},{"Add":" (sym? (val (tail X))) # External"},{"Add":" (findSym X (name @) (val $Intern)) )"},{"Add":" $Nil )"},{"Add":" (T X) ) ) )"},{"Add":""},{"Add":"# (zap 'sym) -> sym"},{"Add":"(de _Zap (Exe)"},{"Add":" (let Sym (needSymb Exe (eval (cadr Exe)))"},{"Add":" (if (sym? (val (tail Sym))) # External"},{"Add":" (dbZap Sym)"},{"Add":" (unintern Sym (name @) (cdar (car (val $Intern)))) )"},{"Add":" Sym ) )"},{"Add":""},{"Add":"# (chop 'any) -> lst"},{"Add":"(de _Chop (Exe)"},{"Add":" (let X (eval (cadr Exe))"},{"Add":" (if (or (pair X) (nil? X))"},{"Add":" X"},{"Add":" (let Tail (val (tail (xSym X)))"},{"Add":" (if (sym? Tail) # External"},{"Add":" (chopExtNm (name (& Tail -9)))"},{"Add":" (let (P (push 0 (name Tail)) C (symChar P))"},{"Add":" (if C"},{"Add":" (save Tail"},{"Add":" (let (Y (cons (mkChar C) $Nil) R (save Y))"},{"Add":" (while (setq C (symChar P))"},{"Add":" (setq Y"},{"Add":" (set 2 Y (cons (mkChar C) $Nil)) ) )"},{"Add":" R ) )"},{"Add":" $Nil ) ) ) ) ) ) )"},{"Add":""},{"Add":"# (pack 'any ..) -> sym"},{"Add":"(de _Pack (Exe)"},{"Add":" (save -ZERO"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" P (push 4 NIL ZERO NIL) ) # [cnt last name link]"},{"Add":" (link (ofs P 2))"},{"Add":" (while (pair X)"},{"Add":" (pack (safe (eval (++ X))) P) )"},{"Add":" (consStr (val 3 P)) ) ) )"},{"Add":""},{"Add":"# (glue 'any 'lst) -> sym"},{"Add":"(de _Glue (Exe)"},{"Add":" (let (X (cdr Exe) Y (save (eval (++ X)))) # 'any'"},{"Add":" (if (atom (eval (++ X))) # 'lst'"},{"Add":" @"},{"Add":" (let (Z (save @) P (push 4 NIL ZERO NIL)) # [cnt last name link]"},{"Add":" (link (ofs P 2))"},{"Add":" (loop"},{"Add":" (pack (++ Z) P)"},{"Add":" (? (atom Z))"},{"Add":" (pack Y P) )"},{"Add":" (consStr (val 3 P)) ) ) ) )"},{"Add":""},{"Add":"# (text 'any1 'any ..) -> sym"},{"Add":"(de _Text (Exe)"},{"Add":" (let (X (cdr Exe) Y (evSym X))"},{"Add":" (if (nil? Y)"},{"Add":" Y"},{"Add":" (let"},{"Add":" (P (push 0 (xName Exe Y) NIL) # [cnt name link]"},{"Add":" Q (link (ofs P 1) T)"},{"Add":" R (push 4 NIL ZERO NIL) # [cnt last name link]"},{"Add":" A (link (ofs R 2))"},{"Add":" N 0"},{"Add":" C T )"},{"Add":" (while (pair (shift X))"},{"Add":" (setq A (link (push (eval (car X)) NIL)))"},{"Add":" (inc 'N) )"},{"Add":" (while (setq C (symByte P))"},{"Add":" (cond"},{"Add":" ((<> C (char \"@\")) (byteSym C R))"},{"Add":" ((== (setq C (symByte P)) (char \"@\"))"},{"Add":" (byteSym C R) ) # \"@@\""},{"Add":" ((gt0 (dec 'C (char \"0\")))"},{"Add":" (when (> C 9)"},{"Add":" (dec 'C 7) ) # Adjust for letter"},{"Add":" (when (ge0 (setq C (- N (i64 C))))"},{"Add":" (let I A"},{"Add":" (while (ge0 (dec 'C))"},{"Add":" (shift I) )"},{"Add":" (pack (val I) R) ) ) ) ) )"},{"Add":" (consStr (val 3 R)) ) ) ) )"},{"Add":""},{"Add":"### Matching ###"},{"Add":"(local) (preStr subStr)"},{"Add":""},{"Add":"(de i1 preStr (Nm (i8 . B) (i64* . P))"},{"Add":" (let (Q (push 0 (i64 Nm)) C (symByte Q))"},{"Add":" (loop"},{"Add":" (? (<> B C) NO)"},{"Add":" (? (=0 (setq C (symByte Q))) YES)"},{"Add":" (? (=0 (setq B (symByte P))) NO) ) ) )"},{"Add":""},{"Add":"(de i1 subStr (X Y)"},{"Add":" (or"},{"Add":" (nil? X)"},{"Add":" (== ZERO (setq X (xName 0 X)))"},{"Add":" (let (P (push 0 (xName 0 Y)) B T)"},{"Add":" (loop"},{"Add":" (? (=0 (setq B (symByte P))) NO)"},{"Add":" (let (Cnt (val P) Nm (val 2 P))"},{"Add":" (? (preStr X B P) YES)"},{"Add":" (set P Cnt 2 P Nm) ) ) ) ) )"},{"Add":""},{"Add":"# (pre? 'any1 'any2) -> any2 | NIL"},{"Add":"(de _PreQ (Exe)"},{"Add":" (let (X (cdr Exe) Y (save (evSym X)) Z (evSym (shift X)))"},{"Add":" (cond"},{"Add":" ((nil? Y) Z)"},{"Add":" ((== ZERO (setq Y (xName Exe Y)))"},{"Add":" Z )"},{"Add":" (T"},{"Add":" (let P (push 0 (xName Exe Z))"},{"Add":" (cond"},{"Add":" ((=0 (symByte P)) $Nil)"},{"Add":" ((preStr Y @ P) Z)"},{"Add":" (T $Nil) ) ) ) ) ) )"},{"Add":""},{"Add":"# (sub? 'any1 'any2) -> any2 | NIL"},{"Add":"(de _SubQ (Exe)"},{"Add":" (let (X (cdr Exe) Y (save (evSym X)) Z (evSym (shift X)))"},{"Add":" (if (subStr Y Z)"},{"Add":" Z"},{"Add":" $Nil ) ) )"},{"Add":""},{"Add":"# (val 'var) -> any"},{"Add":"(de _Val (Exe)"},{"Add":" (let V (needVar Exe (eval (cadr Exe)))"},{"Add":" (when (and (sym? V) (sym? (val (tail V))))"},{"Add":" (dbFetch Exe V) )"},{"Add":" (val V) ) )"},{"Add":""},{"Add":"# (set 'var 'any ..) -> any"},{"Add":"(de _Set (Exe)"},{"Add":" (save -ZERO"},{"Add":" (let X (cdr Exe)"},{"Add":" (loop"},{"Add":" (let Y (safe (needChkVar Exe (eval (++ X))))"},{"Add":" (when (and (sym? Y) (sym? (val (tail Y))))"},{"Add":" (dbTouch Exe Y) )"},{"Add":" (let Z (eval (++ X))"},{"Add":" (set Y Z)"},{"Add":" (? (atom X) Z) ) ) ) ) ) )"},{"Add":""},{"Add":"# (setq var 'any ..) -> any"},{"Add":"(de _Setq (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (loop"},{"Add":" (let Y (set (needChkVar Exe (++ X)) (eval (++ X)))"},{"Add":" (? (atom X) Y) ) ) ) )"},{"Add":""},{"Add":"# (swap 'var 'any) -> any"},{"Add":"(de _Swap (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (needChkVar Exe (eval (++ X)))) )"},{"Add":" (when (and (sym? Y) (sym? (val (tail Y))))"},{"Add":" (dbTouch Exe Y) )"},{"Add":" (let (Z (eval (car X)) V (val Y))"},{"Add":" (set Y Z)"},{"Add":" V ) ) )"},{"Add":""},{"Add":"# (xchg 'var 'var ..) -> any"},{"Add":"(de _Xchg (Exe)"},{"Add":" (save -ZERO"},{"Add":" (let X (cdr Exe)"},{"Add":" (loop"},{"Add":" (let Y (safe (needChkVar Exe (eval (++ X))))"},{"Add":" (when (and (sym? Y) (sym? (val (tail Y))))"},{"Add":" (dbTouch Exe Y) )"},{"Add":" (let Z (needChkVar Exe (eval (++ X)))"},{"Add":" (when (and (sym? Z) (sym? (val (tail Z))))"},{"Add":" (dbTouch Exe Z) )"},{"Add":" (setq Z (xchg Y Z))"},{"Add":" (? (atom X) Z) ) ) ) ) ) )"},{"Add":""},{"Add":"# (on var ..) -> T"},{"Add":"(de _On (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (loop"},{"Add":" (set (needChkVar Exe (++ X)) $T)"},{"Add":" (? (atom X) $T) ) ) )"},{"Add":""},{"Add":"# (off var ..) -> NIL"},{"Add":"(de _Off (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (loop"},{"Add":" (set (needChkVar Exe (++ X)) $Nil)"},{"Add":" (? (atom X) $Nil) ) ) )"},{"Add":""},{"Add":"# (onOff var ..) -> flg"},{"Add":"(de _OnOff (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (loop"},{"Add":" (let"},{"Add":" (Y (needChkVar Exe (++ X))"},{"Add":" Z (if (nil? (val Y)) $T $Nil) )"},{"Add":" (set Y Z)"},{"Add":" (? (atom X) Z) ) ) ) )"},{"Add":""},{"Add":"# (zero var ..) -> 0"},{"Add":"(de _Zero (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (loop"},{"Add":" (set (needChkVar Exe (++ X)) ZERO)"},{"Add":" (? (atom X) ZERO) ) ) )"},{"Add":""},{"Add":"# (one var ..) -> 1"},{"Add":"(de _One (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (loop"},{"Add":" (set (needChkVar Exe (++ X)) ONE)"},{"Add":" (? (atom X) ONE) ) ) )"},{"Add":""},{"Add":"# (default sym 'any ..) -> any"},{"Add":"(de _Default (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (loop"},{"Add":" (let Y (needChkVar Exe (++ X))"},{"Add":" (when (nil? (val Y))"},{"Add":" (set Y (eval (car X))) )"},{"Add":" (? (atom (shift X)) (val Y)) ) ) ) )"},{"Add":""},{"Add":"# (push 'var 'any ..) -> any"},{"Add":"(de _Push (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (needChkVar Exe (eval (++ X)))) )"},{"Add":" (when (and (sym? Y) (sym? (val (tail Y))))"},{"Add":" (dbTouch Exe Y) )"},{"Add":" (loop"},{"Add":" (let Z (eval (++ X))"},{"Add":" (set Y (cons Z (val Y)))"},{"Add":" (? (atom X) Z) ) ) ) )"},{"Add":""},{"Add":"# (push1 'var 'any ..) -> any"},{"Add":"(de _Push1 (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (needChkVar Exe (eval (++ X)))) )"},{"Add":" (when (and (sym? Y) (sym? (val (tail Y))))"},{"Add":" (dbTouch Exe Y) )"},{"Add":" (loop"},{"Add":" (let (Z (eval (++ X)) V (val Y))"},{"Add":" (unless (member Z V)"},{"Add":" (set Y (cons Z V)) )"},{"Add":" (? (atom X) Z) ) ) ) )"},{"Add":""},{"Add":"# (push1q 'var 'any ..) -> any"},{"Add":"(de _Push1q (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (needChkVar Exe (eval (++ X)))) )"},{"Add":" (when (and (sym? Y) (sym? (val (tail Y))))"},{"Add":" (dbTouch Exe Y) )"},{"Add":" (loop"},{"Add":" (let (Z (eval (++ X)) V (val Y))"},{"Add":" (unless (memq Z V)"},{"Add":" (set Y (cons Z V)) )"},{"Add":" (? (atom X) Z) ) ) ) )"},{"Add":""},{"Add":"# (pop 'var) -> any"},{"Add":"(de _Pop (Exe)"},{"Add":" (let X (needChkVar Exe (eval (cadr Exe)))"},{"Add":" (when (and (sym? X) (sym? (val (tail X))))"},{"Add":" (dbTouch Exe X) )"},{"Add":" (if (atom (val X))"},{"Add":" @"},{"Add":" (set X (cdr @))"},{"Add":" (car @) ) ) )"},{"Add":""},{"Add":"# (++ var) -> any"},{"Add":"(de _Popq (Exe)"},{"Add":" (let X (needChkVar Exe (cadr Exe))"},{"Add":" (if (atom (val X))"},{"Add":" @"},{"Add":" (set X (cdr @))"},{"Add":" (car @) ) ) )"},{"Add":""},{"Add":"# (shift 'var) -> any"},{"Add":"(de _Shift (Exe)"},{"Add":" (let X (needChkVar Exe (eval (cadr Exe)))"},{"Add":" (when (and (sym? X) (sym? (val (tail X))))"},{"Add":" (dbTouch Exe X) )"},{"Add":" (set X (cdr (needLst Exe (val X)))) ) )"},{"Add":""},{"Add":"# (cut 'cnt 'var) -> lst"},{"Add":"(de _Cut (Exe)"},{"Add":" (let (X (cdr Exe) N (evCnt Exe X))"},{"Add":" (if (le0 N)"},{"Add":" $Nil"},{"Add":" (let Y (needChkVar Exe (eval (cadr X)))"},{"Add":" (when (and (sym? Y) (sym? (val (tail Y))))"},{"Add":" (dbTouch Exe Y) )"},{"Add":" (if (atom (val Y))"},{"Add":" @"},{"Add":" (let"},{"Add":" (V (save @)"},{"Add":" Z (cons (++ V) $Nil)"},{"Add":" R (save Z) )"},{"Add":" (while (and (pair V) (dec 'N))"},{"Add":" (setq Z (set 2 Z (cons (++ V) $Nil))) )"},{"Add":" (set Y V) # Set new value"},{"Add":" R ) ) ) ) ) )"},{"Add":""},{"Add":"# (del 'any 'var ['flg]) -> lst"},{"Add":"(de _Del (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (eval (++ X)))"},{"Add":" Var (save (needChkVar Exe (eval (++ X))))"},{"Add":" Flg (nil? (eval (car X))) )"},{"Add":" (when (and (sym? Var) (sym? (val (tail Var))))"},{"Add":" (dbTouch Exe Var) )"},{"Add":" (let V (val Var)"},{"Add":" (loop"},{"Add":" (? (atom V) V)"},{"Add":" (let Z (++ V)"},{"Add":" (? (not (equal Y Z))"},{"Add":" (let (P (cons Z $Nil) R P)"},{"Add":" (save R"},{"Add":" (loop"},{"Add":" (? (atom V))"},{"Add":" (if (equal Y (setq Z (++ V)))"},{"Add":" (? Flg)"},{"Add":" (setq P (set 2 P (cons Z $Nil))) ) ) )"},{"Add":" (set 2 P V Var R) ) ) )"},{"Add":" (set Var V)"},{"Add":" (? Flg V) ) ) ) )"},{"Add":""},{"Add":"# (queue 'var 'any) -> any"},{"Add":"(de _Queue (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (needChkVar Exe (eval (++ X)))) )"},{"Add":" (when (and (sym? Y) (sym? (val (tail Y))))"},{"Add":" (dbTouch Exe Y) )"},{"Add":" (let"},{"Add":" (Z (eval (car X))"},{"Add":" L (cons Z $Nil)"},{"Add":" V (val Y) )"},{"Add":" (if (atom V)"},{"Add":" (set Y L)"},{"Add":" (while (pair (cdr V))"},{"Add":" (shift V) )"},{"Add":" (set 2 V L) )"},{"Add":" Z ) ) )"},{"Add":""},{"Add":"# (fifo 'var ['any ..]) -> any"},{"Add":"(de _Fifo (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (needChkVar Exe (eval (++ X)))) )"},{"Add":" (when (and (sym? Y) (sym? (val (tail Y))))"},{"Add":" (dbTouch Exe Y) ) # External symbol"},{"Add":" (let V (val Y)"},{"Add":" (cond"},{"Add":" ((pair X) # Add to fifo"},{"Add":" (let E (eval (car X))"},{"Add":" (if (pair V)"},{"Add":" (setq V (set 2 V (cons E (cdr V)))) # Concat into value"},{"Add":" (setq V (cons E -ZERO)) # Circular cell"},{"Add":" (set 2 V V) )"},{"Add":" (while (pair (shift X))"},{"Add":" (setq V"},{"Add":" (set 2 V"},{"Add":" (cons"},{"Add":" (setq E (eval (car X)))"},{"Add":" (cdr V) ) ) ) )"},{"Add":" (set Y V)"},{"Add":" E ) )"},{"Add":" ((atom V) $Nil) # Empty"},{"Add":" ((== (cdr V) V) # Single cell"},{"Add":" (set Y $Nil) # Clear value"},{"Add":" (car V) )"},{"Add":" (T"},{"Add":" (set 2 V (cdr @)) # Remove"},{"Add":" (car @) ) ) ) ) ) # and return"},{"Add":""},{"Add":"# (rid 'var 'any) -> any"},{"Add":"(de _Rid (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (needChkVar Exe (eval (++ X)))) )"},{"Add":" (when (and (sym? Y) (sym? (val (tail Y))))"},{"Add":" (dbTouch Exe Y) ) # External symbol"},{"Add":" (setq X (eval (car X)))"},{"Add":" (let V (val Y)"},{"Add":" (cond"},{"Add":" ((pair V)"},{"Add":" (let (Z V L (cdr Z))"},{"Add":" (loop"},{"Add":" (? (atom L) # Non-circular"},{"Add":" (when (equal L X)"},{"Add":" (set 2 Z $Nil) )"},{"Add":" (if (equal (car V) X)"},{"Add":" (set Y (cdr V))"},{"Add":" V ) )"},{"Add":" (? (== L V) # Circular"},{"Add":" (nond"},{"Add":" ((equal (car L) X) V)"},{"Add":" ((== L Z)"},{"Add":" (set 2 Z (cdr L))"},{"Add":" (set Y Z) )"},{"Add":" (NIL (set Y $Nil)) ) )"},{"Add":" (if (equal (car L) X)"},{"Add":" (set 2 Z (shift L))"},{"Add":" (setq L (cdr (shift Z))) ) ) ) )"},{"Add":" ((equal V X) (set Y $Nil))"},{"Add":" (T V) ) ) ) )"},{"Add":""},{"Add":"# (enum 'var 'cnt ['cnt ..]) -> lst"},{"Add":"# (enum 'var) -> lst"},{"Add":"(de _Enum (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Var (save (needChkVar Exe (eval (++ X))))"},{"Add":" Cnt T )"},{"Add":" (if (pair X)"},{"Add":" (loop"},{"Add":" (? (le0 (setq Cnt (evCnt Exe X))) $Nil)"},{"Add":" (let P (val Var)"},{"Add":" (loop"},{"Add":" (let N (shr Cnt 1)"},{"Add":" (? (=0 N)"},{"Add":" (setq Var"},{"Add":" (if (pair P)"},{"Add":" @"},{"Add":" (set Var (cons $Nil $Nil)) ) ) )"},{"Add":" (if (& Cnt 1)"},{"Add":" (cond"},{"Add":" ((atom P)"},{"Add":" (let Y (cons $Nil (setq P $Nil))"},{"Add":" (set Var (cons $Nil Y))"},{"Add":" (setq Var (ofs Y 1)) ) )"},{"Add":" ((atom (cdr P))"},{"Add":" (setq Var"},{"Add":" (ofs"},{"Add":" (set 2 P (cons $Nil (setq P $Nil)))"},{"Add":" 1 ) ) )"},{"Add":" (T"},{"Add":" (setq P (val (setq Var (ofs @ 1)))) ) )"},{"Add":" (cond"},{"Add":" ((atom P)"},{"Add":" (let Y (cons (setq P $Nil) $Nil)"},{"Add":" (set Var (cons $Nil Y))"},{"Add":" (setq Var Y) ) )"},{"Add":" ((atom (cdr P))"},{"Add":" (setq Var"},{"Add":" (set 2 P (cons (setq P $Nil) $Nil)) ) )"},{"Add":" (T (setq P (val (setq Var @)))) ) )"},{"Add":" (setq Cnt N) ) ) )"},{"Add":" (? (atom (shift X)) Var) )"},{"Add":" (setq Cnt 0)"},{"Add":" (let"},{"Add":" (Q (link (push NIL NIL))"},{"Add":" Tos (link (push -ZERO NIL))"},{"Add":" R (link (push $Nil NIL))"},{"Add":" P (val Var)"},{"Add":" M 1 )"},{"Add":" (loop"},{"Add":" (loop"},{"Add":" (let Y (cdr P) # Get subtrees"},{"Add":" (? (atom (cdr Y))) # Right subtree"},{"Add":" (let Z P # Go right"},{"Add":" (setq P @) # Invert tree"},{"Add":" (set 2 Y (val Tos))"},{"Add":" (set Tos Z) )"},{"Add":" (setq"},{"Add":" Cnt (| Cnt M)"},{"Add":" M (shl M 1) ) ) )"},{"Add":" (set Q P) # Save tree"},{"Add":" (loop"},{"Add":" (unless (nil? (car P))"},{"Add":" (set R"},{"Add":" (cons # (cnt . any)"},{"Add":" (cons (cnt (| Cnt M)) @)"},{"Add":" (val R) ) ) )"},{"Add":" (let Y (cdr P)"},{"Add":" (? (pair (car Y)) # Left subtree"},{"Add":" (let Z P # Go left"},{"Add":" (setq P @) # Invert tree"},{"Add":" (set Y (val Tos))"},{"Add":" (set Tos (| Z 8)) # First visit"},{"Add":" (set Q P) ) # Save tree"},{"Add":" (setq M (shl M 1)) ) )"},{"Add":" (loop"},{"Add":" (let Y (val Tos)"},{"Add":" (when (== -ZERO Y)"},{"Add":" (ret (val R)) )"},{"Add":" (? (=0 (& Y 8)) # Second visit"},{"Add":" (setq"},{"Add":" M (shr M 1)"},{"Add":" Cnt (& Cnt (x| M -1)) )"},{"Add":" (let Z (cdr Y) # Nodes"},{"Add":" (set Tos (cdr Z)) # TOS on up link"},{"Add":" (set 2 Z P)"},{"Add":" (setq P Y)"},{"Add":" (set Q P) ) ) # Save tree"},{"Add":" (setq"},{"Add":" Y (& Y -9) # Clear visit bit"},{"Add":" M (shr M 1)"},{"Add":" Cnt (& Cnt (x| M -1)) )"},{"Add":" (let Z (cdr Y) # Nodes"},{"Add":" (set Tos (car Z))"},{"Add":" (set Z P)"},{"Add":" (setq P Y)"},{"Add":" (set Q P) ) ) ) ) ) ) ) ) ) # Save tree"},{"Add":""},{"Add":"# (enum? 'lst 'cnt ['cnt ..]) -> lst | NIL"},{"Add":"(de _EnumQ (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" P (save (eval (++ X)))"},{"Add":" Cnt T )"},{"Add":" (loop"},{"Add":" (? (le0 (setq Cnt (evCnt Exe X))) $Nil)"},{"Add":" (loop"},{"Add":" (let N (shr Cnt 1)"},{"Add":" (? (=0 N))"},{"Add":" (setq P"},{"Add":" (if (& Cnt 1) (cddr P) (cadr P)) )"},{"Add":" (? (atom P) (ret $Nil))"},{"Add":" (setq Cnt N) ) )"},{"Add":" (? (atom (shift X)) P)"},{"Add":" (setq P (car P)) ) ) )"},{"Add":""},{"Add":"(local) (idxPut idxGet idxDel)"},{"Add":""},{"Add":"(de idxPut (Var Key Flg)"},{"Add":" (let X (val Var)"},{"Add":" (if (pair X)"},{"Add":" (loop"},{"Add":" (? (=0 (compare (car X) Key)) X) # Found key"},{"Add":" (let Y (cdr X) # Get link cell"},{"Add":" (cond"},{"Add":" ((lt0 @) # Entry is smaller"},{"Add":" (? (atom Y) # No link yet"},{"Add":" (if (or (t? Flg) (chance 1))"},{"Add":" (set 2 X (cons $Nil (cons Key $Nil)))"},{"Add":" (set 2 X (cons (cons (car X) $Nil) $Nil))"},{"Add":" (set X Key) )"},{"Add":" $Nil )"},{"Add":" (? (atom (setq Y (cdr Y)))"},{"Add":" (if (or (t? Flg) (chance 1))"},{"Add":" (set 2 (cdr X) (cons Key $Nil))"},{"Add":" (set (cdr X)"},{"Add":" (cons (car X) (cons (cadr X) $Nil)) )"},{"Add":" (set X Key) )"},{"Add":" $Nil )"},{"Add":" (if"},{"Add":" (or"},{"Add":" (t? Flg)"},{"Add":" (atom (cdr Y))"},{"Add":" (gt0 (compare (car Y) Key))"},{"Add":" (chance (hex \"FFF\")) )"},{"Add":" (setq X Y)"},{"Add":" (xchg X Y)"},{"Add":" (set"},{"Add":" 2 (cdr X) (cddr Y)"},{"Add":" 2 (cdr Y) (cadr Y)"},{"Add":" (cdr Y) (cadr X)"},{"Add":" (cdr X) Y ) ) )"},{"Add":" (T # Entry is greater"},{"Add":" (? (atom Y) # No link yet"},{"Add":" (if (or (t? Flg) (chance 1))"},{"Add":" (set 2 X (cons (cons Key $Nil) $Nil))"},{"Add":" (set 2 X (cons $Nil (cons (car X) $Nil)))"},{"Add":" (set X Key) )"},{"Add":" $Nil )"},{"Add":" (? (atom (setq Y (car Y)))"},{"Add":" (if (or (t? Flg) (chance 1))"},{"Add":" (set (cdr X) (cons Key $Nil))"},{"Add":" (set 2 (cdr X)"},{"Add":" (cons (car X) (cons $Nil (cddr X))) )"},{"Add":" (set X Key) )"},{"Add":" $Nil )"},{"Add":" (if"},{"Add":" (or"},{"Add":" (t? Flg)"},{"Add":" (atom (cdr Y))"},{"Add":" (lt0 (compare (car Y) Key))"},{"Add":" (chance (hex \"FFF\")) )"},{"Add":" (setq X Y)"},{"Add":" (xchg X Y)"},{"Add":" (set"},{"Add":" (cdr X) (cadr Y)"},{"Add":" (cdr Y) (cddr Y)"},{"Add":" 2 (cdr Y) (cddr X)"},{"Add":" 2 (cdr X) Y ) ) ) ) ) )"},{"Add":" (set Var (cons Key $Nil))"},{"Add":" $Nil ) ) )"},{"Add":""},{"Add":"(de idxGet (Var Key)"},{"Add":" (let X (val Var)"},{"Add":" (cond"},{"Add":" ((nil? Key)"},{"Add":" (while (pair (cadr X))"},{"Add":" (setq X @) )"},{"Add":" X )"},{"Add":" ((t? Key)"},{"Add":" (while (pair (cddr X))"},{"Add":" (setq X @) )"},{"Add":" X )"},{"Add":" (T"},{"Add":" (loop"},{"Add":" (? (atom X) $Nil)"},{"Add":" (? (=0 (compare (car X) Key)) X) # Found key"},{"Add":" (let Y (cdr X) # Get link cell"},{"Add":" (setq X"},{"Add":" (if (lt0 @) (cdr Y) (car Y)) ) ) ) ) ) ) )"},{"Add":""},{"Add":"(de idxDel (Var Key)"},{"Add":" (loop"},{"Add":" (let X (val Var)"},{"Add":" (? (atom X) $Nil)"},{"Add":" (let Y (cdr X) # Subtrees"},{"Add":" (let I (compare (car X) Key)"},{"Add":" (? (=0 I) # Found key"},{"Add":" (cond"},{"Add":" ((atom (car Y)) # No left branch"},{"Add":" (set Var (cdr Y)) ) # Use right branch"},{"Add":" ((atom (cdr Y)) # No right branch"},{"Add":" (set Var (car Y)) ) # Use left branch"},{"Add":" (T"},{"Add":" (let Z (cdr (setq Y (cdr Y))) # Sub-branches"},{"Add":" (if (atom (car Z)) # No left sub-branch"},{"Add":" (set # Insert right sub-branch"},{"Add":" X (car Y)"},{"Add":" 2 (cdr X) (cdr Z) )"},{"Add":" (let L (cdr (setq Z (car Z))) # Left sub-branch"},{"Add":" (loop"},{"Add":" (? (atom (car L)))"},{"Add":" (setq Y Z Z (car L) L (cdr Z)) )"},{"Add":" (set"},{"Add":" X (car Z)"},{"Add":" (cdr Y) (cdr L) ) ) ) ) ) )"},{"Add":" X )"},{"Add":" (? (atom Y) $Nil) # No link cell"},{"Add":" (setq Var Y) # Default point to left subtree"},{"Add":" (and (lt0 I) (setq Var (ofs Var 1))) ) ) ) ) ) # Point to right"},{"Add":""},{"Add":"# (idx 'var 'any 'flg) -> lst"},{"Add":"# (idx 'var 'any) -> lst"},{"Add":"# (idx 'var) -> lst"},{"Add":"(de _Idx (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Var (needChkVar Exe (eval (++ X))) )"},{"Add":" (if (atom X)"},{"Add":" (consTree (val Var) $Nil) # Single arg"},{"Add":" (save Var"},{"Add":" (let Key (save (eval (++ X)))"},{"Add":" (cond"},{"Add":" ((atom X) (idxGet Var Key)) # Two args"},{"Add":" ((nil? (eval (car X))) (idxDel Var Key)) # Delete"},{"Add":" (T (idxPut Var Key @)) ) ) ) ) ) )"},{"Add":""},{"Add":"# (lup 'lst 'any) -> lst"},{"Add":"# (lup 'lst 'any 'any2) -> lst"},{"Add":"(de _Lup (Exe)"},{"Add":" (let (X (cdr Exe) P (save (eval (++ X))))"},{"Add":" (if (atom P)"},{"Add":" P"},{"Add":" (let Key (eval (++ X))"},{"Add":" (if (atom X)"},{"Add":" (loop"},{"Add":" (let Y (car P)"},{"Add":" (cond"},{"Add":" ((t? Y) (setq P (cadr P)))"},{"Add":" ((atom Y) (setq P (cddr P)))"},{"Add":" (T"},{"Add":" (? (=0 (compare (car Y) Key)) (car P))"},{"Add":" (setq"},{"Add":" P (cdr P)"},{"Add":" P (if (lt0 @) (cdr P) (car P)) ) ) ) )"},{"Add":" (? (atom P) $Nil) )"},{"Add":" (save Key)"},{"Add":" (let"},{"Add":" (Key2 (save (eval (car X)))"},{"Add":" Q (link (push NIL NIL))"},{"Add":" Tos (link (push -ZERO NIL))"},{"Add":" R $Nil )"},{"Add":" (loop"},{"Add":" (loop"},{"Add":" (let Y (cdr (setq X (cdr P))) # Right subtree"},{"Add":" (? (atom Y))"},{"Add":" (let Z (car P)"},{"Add":" (? (t? Z))"},{"Add":" (? (and (pair Z) (gt0 (compare (car Z) Key2)))) )"},{"Add":" (let Z P # Go right"},{"Add":" (setq P Y) # Invert tree"},{"Add":" (set 2 X (val Tos))"},{"Add":" (set Tos Z) ) ) )"},{"Add":" (set Q P) # Save tree"},{"Add":" (loop"},{"Add":" (when"},{"Add":" (and"},{"Add":" (pair (setq X (car P)))"},{"Add":" (ge0 (compare (car X) Key)) )"},{"Add":" (when (le0 (compare (car X) Key2))"},{"Add":" (setq R (cons X R)) ) # Cons symbol"},{"Add":" (? (pair (car (setq X (cdr P)))) # Left subtree"},{"Add":" (let Z P # Go left"},{"Add":" (setq P @) # Invert tree"},{"Add":" (set X (val Tos))"},{"Add":" (set Tos (| Z 8)) # First visit"},{"Add":" (set Q P) ) ) ) # Save tree"},{"Add":" (loop"},{"Add":" (when (== -ZERO (setq X (val Tos)))"},{"Add":" (ret R) )"},{"Add":" (? (=0 (& X 8)) # Second visit"},{"Add":" (let Y (cdr X) # Nodes"},{"Add":" (set Tos (cdr Y)) # TOS on up link"},{"Add":" (set 2 Y P)"},{"Add":" (setq P X)"},{"Add":" (set Q P) ) ) # Save tree"},{"Add":" (setq X (& X -9)) # Clear visit bit"},{"Add":" (let Y (cdr X) # Nodes"},{"Add":" (set Tos (car Y))"},{"Add":" (set Y P)"},{"Add":" (setq P X)"},{"Add":" (set Q P) ) ) ) ) ) ) ) ) ) ) # Save tree"},{"Add":""},{"Add":"### Property access ###"},{"Add":"(local) (put putn get getn prop)"},{"Add":""},{"Add":"(de void put (Sym Key Val)"},{"Add":" (let Tail (val (tail Sym))"},{"Add":" (unless (num? Tail) # Property list"},{"Add":" (let (L (any (& Tail -9)) X (car L))"},{"Add":" (if (atom X)"},{"Add":" (when (== Key X)"},{"Add":" (cond"},{"Add":" ((nil? Val)"},{"Add":" (shift L) # Remove first property"},{"Add":" (set (tail Sym)"},{"Add":" (if (sym? Tail) (sym L) L) ) )"},{"Add":" ((<> Val $T) # Change to cell"},{"Add":" (set L (cons Val Key)) ) )"},{"Add":" (ret) )"},{"Add":" (when (== Key (cdr X))"},{"Add":" (cond"},{"Add":" ((nil? Val)"},{"Add":" (shift L) # Remove first property"},{"Add":" (set (tail Sym)"},{"Add":" (if (sym? Tail) (sym L) L) ) )"},{"Add":" ((t? Val) (set L Key)) # Change to flag"},{"Add":" (T (set X Val)) ) # Set new value"},{"Add":" (ret) ) )"},{"Add":" (while (pair (setq X (cdr L)))"},{"Add":" (let Y (car X)"},{"Add":" (if (atom Y)"},{"Add":" (when (== Key Y)"},{"Add":" (if (nil? Val)"},{"Add":" (set 2 L (cdr X)) # Remove cell"},{"Add":" (unless (t? Val)"},{"Add":" (set X (cons Val Key)) )"},{"Add":" (set 2 L (cdr X)) # Unlink cell"},{"Add":" (ifn (sym? Tail)"},{"Add":" (set 2 X Tail)"},{"Add":" (set 2 X (& Tail -9))"},{"Add":" (setq X (sym X)) )"},{"Add":" (set (tail Sym) X) )"},{"Add":" (ret) )"},{"Add":" (when (== Key (cdr Y))"},{"Add":" (if (nil? Val)"},{"Add":" (set 2 L (cdr X)) # Remove cell"},{"Add":" (if (t? Val)"},{"Add":" (set X Key) # Change to flag"},{"Add":" (set Y Val) ) # Set new value"},{"Add":" (set 2 L (cdr X)) # Unlink cell"},{"Add":" (ifn (sym? Tail)"},{"Add":" (set 2 X Tail)"},{"Add":" (set 2 X (& Tail -9))"},{"Add":" (setq X (sym X)) )"},{"Add":" (set (tail Sym) X) )"},{"Add":" (ret) ) ) )"},{"Add":" (setq L X) ) ) )"},{"Add":" (unless (nil? Val) # Non-NIL value"},{"Add":" (setq Val"},{"Add":" (if (t? Val) Key (cons Val Key)) )"},{"Add":" (set (tail Sym)"},{"Add":" (if (sym? Tail)"},{"Add":" (sym (cons Val (& Tail -9)))"},{"Add":" (cons Val Tail) ) ) ) ) )"},{"Add":""},{"Add":"(de void putn (Exe Lst Key Val)"},{"Add":" (nond"},{"Add":" ((num? Key)"},{"Add":" (loop # asoq"},{"Add":" (let X (car Lst)"},{"Add":" (? (and (pair X) (== Key (car X)))"},{"Add":" (set 2 X Val) ) )"},{"Add":" (when (atom (shift Lst))"},{"Add":" (itemErr Exe Key) ) ) )"},{"Add":" ((== ZERO Key)"},{"Add":" (let Cnt (int Key) # index"},{"Add":" (while (dec 'Cnt)"},{"Add":" (when (atom (shift Lst))"},{"Add":" (itemErr Exe Key) ) ) )"},{"Add":" (if (sign? Key)"},{"Add":" (set 2 Lst Val)"},{"Add":" (set Lst Val) ) )"},{"Add":" (NIL (argErr Exe Key)) ) )"},{"Add":""},{"Add":"(de get (Sym Key)"},{"Add":" (let Tail (val (tail Sym))"},{"Add":" (unless (num? Tail)"},{"Add":" (let (L (any (& Tail -9)) X (car L))"},{"Add":" (if (atom X)"},{"Add":" (when (== Key X)"},{"Add":" (ret $T) )"},{"Add":" (when (== Key (cdr X))"},{"Add":" (ret (car X)) ) )"},{"Add":" (while (pair (setq X (cdr L)))"},{"Add":" (let Y (car X)"},{"Add":" (if (atom Y)"},{"Add":" (when (== Key Y)"},{"Add":" (set 2 L (cdr X)) # Unlink cell"},{"Add":" (ifn (sym? Tail)"},{"Add":" (set 2 X Tail)"},{"Add":" (set 2 X (& Tail -9))"},{"Add":" (setq X (sym X)) )"},{"Add":" (set (tail Sym) X)"},{"Add":" (ret $T) )"},{"Add":" (when (== Key (cdr Y))"},{"Add":" (set 2 L (cdr X)) # Unlink cell"},{"Add":" (ifn (sym? Tail)"},{"Add":" (set 2 X Tail)"},{"Add":" (set 2 X (& Tail -9))"},{"Add":" (setq X (sym X)) )"},{"Add":" (set (tail Sym) X)"},{"Add":" (ret (car Y)) ) )"},{"Add":" (setq L X) ) ) ) )"},{"Add":" $Nil ) )"},{"Add":""},{"Add":"(de getn (Exe X Key)"},{"Add":" (when (num? X) # Need symbol or pair"},{"Add":" (argErr Exe X) )"},{"Add":" (if (pair X)"},{"Add":" (nond"},{"Add":" ((num? Key)"},{"Add":" (loop # asoq"},{"Add":" (let Y (car X)"},{"Add":" (? (and (pair Y) (== Key (car Y)))"},{"Add":" (cdr Y) ) )"},{"Add":" (? (atom (shift X)) $Nil) ) )"},{"Add":" ((== ZERO Key) (nth Key X))"},{"Add":" (NIL $Nil) )"},{"Add":" (when (sym? (val (tail X)))"},{"Add":" (dbFetch Exe X) )"},{"Add":" (if (== Key ZERO)"},{"Add":" (val X)"},{"Add":" (tailcall (get X Key)) ) ) )"},{"Add":""},{"Add":"(de prop (Sym Key)"},{"Add":" (let Tail (val (tail Sym))"},{"Add":" (unless (num? Tail)"},{"Add":" (let (L (any (& Tail -9)) X (car L))"},{"Add":" (if (atom X)"},{"Add":" (when (== Key X)"},{"Add":" (ret Key) )"},{"Add":" (when (== Key (cdr X))"},{"Add":" (ret X) ) )"},{"Add":" (while (pair (setq X (cdr L)))"},{"Add":" (let Y (car X)"},{"Add":" (if (atom Y)"},{"Add":" (when (== Key Y)"},{"Add":" (set 2 L (cdr X)) # Unlink cell"},{"Add":" (ifn (sym? Tail)"},{"Add":" (set 2 X Tail)"},{"Add":" (set 2 X (& Tail -9))"},{"Add":" (setq X (sym X)) )"},{"Add":" (set (tail Sym) X)"},{"Add":" (ret Key) )"},{"Add":" (when (== Key (cdr Y))"},{"Add":" (set 2 L (cdr X)) # Unlink cell"},{"Add":" (ifn (sym? Tail)"},{"Add":" (set 2 X Tail)"},{"Add":" (set 2 X (& Tail -9))"},{"Add":" (setq X (sym X)) )"},{"Add":" (set (tail Sym) X)"},{"Add":" (ret Y) ) ) )"},{"Add":" (setq L X) ) ) )"},{"Add":" (let R (cons $Nil Key)"},{"Add":" (set (tail Sym)"},{"Add":" (if (sym? Tail)"},{"Add":" (sym (cons R (& Tail -9)))"},{"Add":" (cons R Tail) ) )"},{"Add":" R ) ) )"},{"Add":""},{"Add":"# (put 'sym1|lst ['sym2|cnt ..] 'any) -> any"},{"Add":"(de _Put (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (eval (++ X)))"},{"Add":" Key T )"},{"Add":" (loop"},{"Add":" (setq Key (eval (++ X)))"},{"Add":" (? (atom (cdr X)))"},{"Add":" (setq Y (safe (getn Exe Y Key))) )"},{"Add":" (when (num? Y) # Need symbol or pair"},{"Add":" (argErr Exe Y) )"},{"Add":" (link (push Key NIL))"},{"Add":" (let Val (eval (car X))"},{"Add":" (if (pair Y)"},{"Add":" (putn Exe Y Key Val)"},{"Add":" (when (sym? (val (tail Y)))"},{"Add":" (if (nil? Key)"},{"Add":" (dbFetch Exe Y) # Volatile property"},{"Add":" (dbTouch Exe Y) ) )"},{"Add":" (if (== ZERO Key)"},{"Add":" (set (chkVar Exe Y) Val)"},{"Add":" (put Y Key Val) ) )"},{"Add":" Val ) ) )"},{"Add":""},{"Add":"# (get 'sym1|lst ['sym2|cnt ..]) -> any"},{"Add":"(de _Get (Exe)"},{"Add":" (let (X (cdr Exe) Y (eval (++ X)))"},{"Add":" (when (pair X)"},{"Add":" (save Y"},{"Add":" (loop"},{"Add":" (setq Y (getn Exe Y (eval (++ X))))"},{"Add":" (? (atom X))"},{"Add":" (safe Y) ) ) )"},{"Add":" Y ) )"},{"Add":""},{"Add":"# (prop 'sym1|lst ['sym2|cnt ..] 'sym) -> var"},{"Add":"(de _Prop (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (eval (++ X)))"},{"Add":" Key T )"},{"Add":" (loop"},{"Add":" (setq Key (eval (++ X)))"},{"Add":" (? (atom X))"},{"Add":" (setq Y (safe (getn Exe Y Key))) )"},{"Add":" (needSymb Exe Y)"},{"Add":" (link (push Key NIL))"},{"Add":" (when (sym? (val (tail Y)))"},{"Add":" (if (nil? Key)"},{"Add":" (dbFetch Exe Y) # Volatile property"},{"Add":" (dbTouch Exe Y) ) )"},{"Add":" (prop Y Key) ) )"},{"Add":""},{"Add":"# (; 'sym1|lst [sym2|cnt ..]) -> any"},{"Add":"(de _Semicol (Exe)"},{"Add":" (let (X (cdr Exe) Y (eval (++ X)))"},{"Add":" (when (pair X)"},{"Add":" (save Y"},{"Add":" (loop"},{"Add":" (setq Y (getn Exe Y (++ X)))"},{"Add":" (? (atom X))"},{"Add":" (safe Y) ) ) )"},{"Add":" Y ) )"},{"Add":""},{"Add":"# (=: sym|0 [sym1|cnt ..] 'any) -> any"},{"Add":"(de _SetCol (Exe)"},{"Add":" (let (X (cdr Exe) Y (val $This) Key T)"},{"Add":" (loop"},{"Add":" (setq Key (++ X))"},{"Add":" (? (atom (cdr X)))"},{"Add":" (setq Y (getn Exe Y Key)) )"},{"Add":" (when (num? Y) # Need symbol or pair"},{"Add":" (argErr Exe Y) )"},{"Add":" (let Val (eval (car X))"},{"Add":" (if (pair Y)"},{"Add":" (putn Exe Y Key Val)"},{"Add":" (when (sym? (val (tail Y)))"},{"Add":" (if (nil? Key)"},{"Add":" (dbFetch Exe Y) # Volatile property"},{"Add":" (dbTouch Exe Y) ) )"},{"Add":" (if (== ZERO Key)"},{"Add":" (set (chkVar Exe Y) Val)"},{"Add":" (put Y Key Val) ) )"},{"Add":" Val ) ) )"},{"Add":""},{"Add":"# (: sym|0 [sym1|cnt ..]) -> any"},{"Add":"(de _Col (Exe)"},{"Add":" (let (X (cdr Exe) Y (val $This))"},{"Add":" (loop"},{"Add":" (setq Y (getn Exe Y (++ X)))"},{"Add":" (? (atom X) Y) ) ) )"},{"Add":""},{"Add":"# (:: sym|0 [sym1|cnt .. sym2]) -> var"},{"Add":"(de _PropCol (Exe)"},{"Add":" (let (X (cdr Exe) Y (val $This) Key T)"},{"Add":" (loop"},{"Add":" (setq Key (++ X))"},{"Add":" (? (atom X))"},{"Add":" (setq Y (getn Exe Y Key)) )"},{"Add":" (needSymb Exe Y)"},{"Add":" (when (sym? (val (tail Y)))"},{"Add":" (if (nil? Key)"},{"Add":" (dbFetch Exe Y) # Volatile property"},{"Add":" (dbTouch Exe Y) ) )"},{"Add":" (prop Y Key) ) )"},{"Add":""},{"Add":"# (putl 'sym1|lst1 ['sym2|cnt ..] 'lst) -> lst"},{"Add":"(de _Putl (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (eval (++ X)))"},{"Add":" Z T )"},{"Add":" (loop"},{"Add":" (setq Z (eval (++ X)))"},{"Add":" (? (atom X))"},{"Add":" (setq Y (safe (getn Exe Y Z))) )"},{"Add":" (let"},{"Add":" (R (save Z)"},{"Add":" Tail (val (tail (needSymb Exe Y))) )"},{"Add":" (when (sym? (setq X Tail))"},{"Add":" (dbTouch Exe Y)"},{"Add":" (setq X (& (val (tail Y)) -9)) )"},{"Add":" (until (num? X) # Skip old properties"},{"Add":" (shift X) )"},{"Add":" (while (pair Z) # New property list"},{"Add":" (let P (++ Z)"},{"Add":" (if (atom P)"},{"Add":" (setq X (cons P X))"},{"Add":" (unless (nil? (car P))"},{"Add":" (when (t? (car P))"},{"Add":" (setq P (cdr P)) )"},{"Add":" (setq X (cons P X)) ) ) ) )"},{"Add":" (set (tail Y)"},{"Add":" (if (sym? Tail) (sym X) X) )"},{"Add":" R ) ) )"},{"Add":""},{"Add":"# (getl 'sym1|lst1 ['sym2|cnt ..]) -> lst"},{"Add":"(de _Getl (Exe)"},{"Add":" (let (X (cdr Exe) Y (save (eval (car X))))"},{"Add":" (while (pair (shift X))"},{"Add":" (setq Y"},{"Add":" (safe (getn Exe Y (eval (car X)))) ) )"},{"Add":" (when (sym? (setq X (val (tail (needSymb Exe Y)))))"},{"Add":" (dbFetch Exe Y)"},{"Add":" (setq X (& (val (tail Y)) -9)) )"},{"Add":" (if (num? X)"},{"Add":" $Nil"},{"Add":" (let R (setq Y (cons (car X) $Nil))"},{"Add":" (link (push R NIL))"},{"Add":" (while (pair (shift X))"},{"Add":" (setq Y"},{"Add":" (set 2 Y (cons (car X) $Nil)) ) )"},{"Add":" R ) ) ) )"},{"Add":""},{"Add":"(local) wipe"},{"Add":""},{"Add":"(de void wipe (Exe X)"},{"Add":" (let"},{"Add":" (Tail (val (tail (needSymb Exe X)))"},{"Add":" Nm (name (& Tail -9)) )"},{"Add":" (ifn (sym? Tail) # External symbol"},{"Add":" (set"},{"Add":" X $Nil # Clear value"},{"Add":" (tail X) Nm ) # and properties"},{"Add":" (setq Nm (add Nm Nm)) # Get carry"},{"Add":" (unless @@ # Not dirty"},{"Add":" (setq Nm (add Nm Nm))"},{"Add":" (when @@ # and loaded"},{"Add":" (set"},{"Add":" X $Nil"},{"Add":" (tail X) (sym (shr Nm 2)) ) ) ) ) ) ) # Set \"not loaded\""},{"Add":""},{"Add":"# (wipe 'sym|lst) -> sym|lst"},{"Add":"(de _Wipe (Exe)"},{"Add":" (let X (eval (cadr Exe))"},{"Add":" (unless (nil? X)"},{"Add":" (if (atom X)"},{"Add":" (wipe Exe X)"},{"Add":" (let Y X"},{"Add":" (loop"},{"Add":" (wipe Exe (++ Y))"},{"Add":" (? (atom Y)) ) ) ) )"},{"Add":" X ) )"},{"Add":""},{"Add":"(local) meta"},{"Add":""},{"Add":"(de meta (X Key)"},{"Add":" (loop"},{"Add":" (? (atom X) $Nil)"},{"Add":" (let Y (car X)"},{"Add":" (when (symb? Y)"},{"Add":" (?"},{"Add":" (not"},{"Add":" (nil?"},{"Add":" (if (== Key ZERO) (val Y) (get Y Key)) ) )"},{"Add":" @ )"},{"Add":" (stkChk 0)"},{"Add":" (? (not (nil? (meta (car Y) Key))) @) ) )"},{"Add":" (shift X) ) )"},{"Add":""},{"Add":"# (meta 'obj|typ 'sym ['sym2|cnt ..]) -> any"},{"Add":"(de _Meta (Exe)"},{"Add":" (let (X (cdr Exe) Y (save (eval (++ X))))"},{"Add":" (when (num? Y) # Need symbol or pair"},{"Add":" (argErr Exe Y) )"},{"Add":" (when (sym? Y)"},{"Add":" (when (sym? (val (tail Y)))"},{"Add":" (dbFetch Exe Y) )"},{"Add":" (setq Y (val Y)) )"},{"Add":" (setq Y (meta Y (eval (car X))))"},{"Add":" (while (pair (shift X))"},{"Add":" (safe Y)"},{"Add":" (setq Y (getn Exe Y (eval (car X)))) )"},{"Add":" Y ) )"},{"Add":""},{"Add":"# (low? 'any) -> sym | NIL"},{"Add":"(de _LowQ (Exe)"},{"Add":" (let X (eval (cadr Exe))"},{"Add":" (if (and (symb? X) (isLowc (firstChar X)))"},{"Add":" X"},{"Add":" $Nil ) ) )"},{"Add":""},{"Add":"# (upp? 'any) -> sym | NIL"},{"Add":"(de _UppQ (Exe)"},{"Add":" (let X (eval (cadr Exe))"},{"Add":" (if (and (symb? X) (isUppc (firstChar X)))"},{"Add":" X"},{"Add":" $Nil ) ) )"},{"Add":""},{"Add":"# (lowc 'any) -> any"},{"Add":"(de _Lowc (Exe)"},{"Add":" (let X (eval (cadr Exe))"},{"Add":" (if (or (not (symb? X)) (nil? X))"},{"Add":" X"},{"Add":" (let"},{"Add":" (P (push 0 (xName Exe X) NIL) # [cnt name link]"},{"Add":" Q (link (ofs P 1) T)"},{"Add":" R (push 4 NIL ZERO NIL) # [cnt last name link]"},{"Add":" C T )"},{"Add":" (link (ofs R 2))"},{"Add":" (while (setq C (symChar P))"},{"Add":" (charSym (toLowerCase C) R) )"},{"Add":" (consStr (val 3 R)) ) ) ) )"},{"Add":""},{"Add":"# (uppc 'any) -> any"},{"Add":"(de _Uppc (Exe)"},{"Add":" (let X (eval (cadr Exe))"},{"Add":" (if (or (not (symb? X)) (nil? X))"},{"Add":" X"},{"Add":" (let"},{"Add":" (P (push 0 (xName Exe X) NIL) # [cnt name link]"},{"Add":" Q (link (ofs P 1) T)"},{"Add":" R (push 4 NIL ZERO NIL) # [cnt last name link]"},{"Add":" C T )"},{"Add":" (link (ofs R 2))"},{"Add":" (while (setq C (symChar P))"},{"Add":" (ifn (== C (char \"ß\"))"},{"Add":" (charSym (toUpperCase C) R)"},{"Add":" (charSym (char \"S\") R)"},{"Add":" (charSym (char \"S\") R) ) )"},{"Add":" (consStr (val 3 R)) ) ) ) )"},{"Add":""},{"Add":"# (fold 'any ['cnt]) -> sym"},{"Add":"(de _Fold (Exe)"},{"Add":" (let (X (cdr Exe) Y (eval (++ X)))"},{"Add":" (if (or (not (symb? Y)) (nil? Y))"},{"Add":" Y"},{"Add":" (let"},{"Add":" (N (if (atom X) 0 (evCnt Exe X))"},{"Add":" P (push 0 (xName Exe Y) NIL) # [cnt name link]"},{"Add":" Q (link (ofs P 1) T)"},{"Add":" R (push 4 NIL ZERO NIL) # [cnt last name link]"},{"Add":" C T )"},{"Add":" (link (ofs R 2))"},{"Add":" (while (setq C (symChar P))"},{"Add":" (when (isLetterOrDigit C)"},{"Add":" (charSym (toLowerCase C) R)"},{"Add":" (? (=0 (dec 'N))) ) )"},{"Add":" (consStr (val 3 R)) ) ) ) )"}]}},{"FileAdd":{"meta":{"basename":"subr.l","metadata":0},"context":[{"change":0,"pos":63931}],"contents":[{"Add":"# 26nov23 Software Lab. Alexander Burger"},{"Add":""},{"Add":"(symbols '(llvm))"},{"Add":""},{"Add":"(local) (chkA chkD makeErr)"},{"Add":""},{"Add":"(inline (Exe) chkA (X)"},{"Add":" (car (needVar Exe X)) )"},{"Add":""},{"Add":"(inline (Exe) chkD (X)"},{"Add":" (cdr (needLst Exe X)) )"},{"Add":""},{"Add":"(de NIL makeErr (Exe)"},{"Add":" (err Exe 0 ($ \"Not making\") null) )"},{"Add":""},{"Add":"# (car 'var) -> any"},{"Add":"(de _Car (Exe)"},{"Add":" (chkA (eval (cadr Exe))) )"},{"Add":""},{"Add":"# (cdr 'lst) -> any"},{"Add":"(de _Cdr (Exe)"},{"Add":" (chkD (eval (cadr Exe))) )"},{"Add":""},{"Add":"(de _Caar (Exe)"},{"Add":" (chkA (chkA (eval (cadr Exe)))) )"},{"Add":""},{"Add":"(de _Cadr (Exe)"},{"Add":" (chkA (chkD (eval (cadr Exe)))) )"},{"Add":""},{"Add":"(de _Cdar (Exe)"},{"Add":" (chkD (chkA (eval (cadr Exe)))) )"},{"Add":""},{"Add":"(de _Cddr (Exe)"},{"Add":" (chkD (chkD (eval (cadr Exe)))) )"},{"Add":""},{"Add":"(de _Caaar (Exe)"},{"Add":" (chkA (chkA (chkA (eval (cadr Exe))))) )"},{"Add":""},{"Add":"(de _Caadr (Exe)"},{"Add":" (chkA (chkA (chkD (eval (cadr Exe))))) )"},{"Add":""},{"Add":"(de _Cadar (Exe)"},{"Add":" (chkA (chkD (chkA (eval (cadr Exe))))) )"},{"Add":""},{"Add":"(de _Caddr (Exe)"},{"Add":" (chkA (chkD (chkD (eval (cadr Exe))))) )"},{"Add":""},{"Add":"(de _Cdaar (Exe)"},{"Add":" (chkD (chkA (chkA (eval (cadr Exe))))) )"},{"Add":""},{"Add":"(de _Cdadr (Exe)"},{"Add":" (chkD (chkA (chkD (eval (cadr Exe))))) )"},{"Add":""},{"Add":"(de _Cddar (Exe)"},{"Add":" (chkD (chkD (chkA (eval (cadr Exe))))) )"},{"Add":""},{"Add":"(de _Cdddr (Exe)"},{"Add":" (chkD (chkD (chkD (eval (cadr Exe))))) )"},{"Add":""},{"Add":"(de _Caaaar (Exe)"},{"Add":" (chkA (chkA (chkA (chkA (eval (cadr Exe)))))) )"},{"Add":""},{"Add":"(de _Caaadr (Exe)"},{"Add":" (chkA (chkA (chkA (chkD (eval (cadr Exe)))))) )"},{"Add":""},{"Add":"(de _Caadar (Exe)"},{"Add":" (chkA (chkA (chkD (chkA (eval (cadr Exe)))))) )"},{"Add":""},{"Add":"(de _Caaddr (Exe)"},{"Add":" (chkA (chkA (chkD (chkD (eval (cadr Exe)))))) )"},{"Add":""},{"Add":"(de _Cadaar (Exe)"},{"Add":" (chkA (chkD (chkA (chkA (eval (cadr Exe)))))) )"},{"Add":""},{"Add":"(de _Cadadr (Exe)"},{"Add":" (chkA (chkD (chkA (chkD (eval (cadr Exe)))))) )"},{"Add":""},{"Add":"(de _Caddar (Exe)"},{"Add":" (chkA (chkD (chkD (chkA (eval (cadr Exe)))))) )"},{"Add":""},{"Add":"(de _Cadddr (Exe)"},{"Add":" (chkA (chkD (chkD (chkD (eval (cadr Exe)))))) )"},{"Add":""},{"Add":"(de _Cdaaar (Exe)"},{"Add":" (chkD (chkA (chkA (chkA (eval (cadr Exe)))))) )"},{"Add":""},{"Add":"(de _Cdaadr (Exe)"},{"Add":" (chkD (chkA (chkA (chkD (eval (cadr Exe)))))) )"},{"Add":""},{"Add":"(de _Cdadar (Exe)"},{"Add":" (chkD (chkA (chkD (chkA (eval (cadr Exe)))))) )"},{"Add":""},{"Add":"(de _Cdaddr (Exe)"},{"Add":" (chkD (chkA (chkD (chkD (eval (cadr Exe)))))) )"},{"Add":""},{"Add":"(de _Cddaar (Exe)"},{"Add":" (chkD (chkD (chkA (chkA (eval (cadr Exe)))))) )"},{"Add":""},{"Add":"(de _Cddadr (Exe)"},{"Add":" (chkD (chkD (chkA (chkD (eval (cadr Exe)))))) )"},{"Add":""},{"Add":"(de _Cdddar (Exe)"},{"Add":" (chkD (chkD (chkD (chkA (eval (cadr Exe)))))) )"},{"Add":""},{"Add":"(de _Cddddr (Exe)"},{"Add":" (chkD (chkD (chkD (chkD (eval (cadr Exe)))))) )"},{"Add":""},{"Add":"# (nth 'lst 'cnt ..) -> lst"},{"Add":"(de _Nth (Exe)"},{"Add":" (let (X (cdr Exe) Y (save (eval (++ X))))"},{"Add":" (loop"},{"Add":" (? (atom Y) Y)"},{"Add":" (let C (evCnt Exe X)"},{"Add":" (? (lt0 (dec 'C)) $Nil)"},{"Add":" (while (ge0 (dec 'C))"},{"Add":" (shift Y) ) )"},{"Add":" (? (atom (shift X)) Y)"},{"Add":" (setq Y (car Y)) ) ) )"},{"Add":""},{"Add":"# (con 'lst 'any) -> any"},{"Add":"(de _Con (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (set 2"},{"Add":" (save (needPair Exe (eval (++ X))))"},{"Add":" (eval (car X)) ) ) )"},{"Add":""},{"Add":"# (cons 'any ['any ..]) -> lst"},{"Add":"(de _Cons (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (cons (eval (car X)) $Nil)"},{"Add":" R (save Y) )"},{"Add":" (while (pair (cdr (shift X)))"},{"Add":" (setq Y"},{"Add":" (set 2 Y (cons (eval (car X)) $Nil)) ) )"},{"Add":" (set 2 Y (eval (car X)))"},{"Add":" R ) )"},{"Add":""},{"Add":"# (conc 'lst ..) -> lst"},{"Add":"(de _Conc (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (eval (car X))"},{"Add":" R (save Y) )"},{"Add":" (while (pair (shift X))"},{"Add":" (let Z (eval (car X))"},{"Add":" (if (atom Y)"},{"Add":" (setq Y (setq R (safe Z)))"},{"Add":" (while (pair (cdr Y))"},{"Add":" (setq Y @) )"},{"Add":" (set 2 Y Z) ) ) )"},{"Add":" R ) )"},{"Add":""},{"Add":"# (circ 'any ..) -> lst"},{"Add":"(de _Circ (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (cons (eval (car X)) $Nil)"},{"Add":" R (save Y) )"},{"Add":" (while (pair (shift X))"},{"Add":" (setq Y"},{"Add":" (set 2 Y (cons (eval (car X)) $Nil)) ) )"},{"Add":" (set 2 Y R) ) )"},{"Add":""},{"Add":"# (rot 'lst ['cnt]) -> lst"},{"Add":"(de _Rot (Exe)"},{"Add":" (let (X (cdr Exe) R (eval (car X)))"},{"Add":" (when (pair R)"},{"Add":" (let (Y R A (++ Y))"},{"Add":" (if (pair (shift X))"},{"Add":" (let N (save R (evCnt Exe X))"},{"Add":" (while (and (pair Y) (gt0 (dec 'N)))"},{"Add":" (let B (car Y)"},{"Add":" (set Y A)"},{"Add":" (setq A B) )"},{"Add":" (? (== R (shift Y))) )"},{"Add":" (set R A) )"},{"Add":" (while (pair Y)"},{"Add":" (let B (car Y)"},{"Add":" (set Y A)"},{"Add":" (setq A B) )"},{"Add":" (? (== R (shift Y))) )"},{"Add":" (set R A) ) ) )"},{"Add":" R ) )"},{"Add":""},{"Add":"# (list 'any ['any ..]) -> lst"},{"Add":"(de _List (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (cons (eval (car X)) $Nil)"},{"Add":" R (save Y) )"},{"Add":" (while (pair (shift X))"},{"Add":" (setq Y"},{"Add":" (set 2 Y (cons (eval (car X)) $Nil)) ) )"},{"Add":" R ) )"},{"Add":""},{"Add":"# (need 'cnt ['lst ['any]]) -> lst"},{"Add":"# (need 'cnt ['num|sym]) -> lst"},{"Add":"(de _Need (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" C (evCnt Exe X)"},{"Add":" R (save (eval (car (shift X))))"},{"Add":" Y"},{"Add":" (save"},{"Add":" (if (or (pair R) (nil? R))"},{"Add":" (eval (cadr X))"},{"Add":" (prog1"},{"Add":" R"},{"Add":" (setq R $Nil) ) ) )"},{"Add":" Z R )"},{"Add":" (when C"},{"Add":" (cond"},{"Add":" ((gt0 C)"},{"Add":" (while (pair Z)"},{"Add":" (dec 'C)"},{"Add":" (shift Z) )"},{"Add":" (while (ge0 (dec 'C))"},{"Add":" (setq R (safe (cons Y R))) ) )"},{"Add":" (T"},{"Add":" (if (atom R)"},{"Add":" (setq Z (setq R (safe (cons Y $Nil))))"},{"Add":" (while (pair (cdr Z))"},{"Add":" (inc 'C)"},{"Add":" (shift Z) ) )"},{"Add":" (while (lt0 (inc 'C))"},{"Add":" (setq Z (set 2 Z (cons Y $Nil))) ) ) ) )"},{"Add":" R ) )"},{"Add":""},{"Add":"# (range 'num1 'num2 ['num3]) -> lst"},{"Add":"(de _Range (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" N (needNum Exe (eval (++ X)))"},{"Add":" R (save (cons N $Nil))"},{"Add":" Lim (save (needNum Exe (eval (++ X))))"},{"Add":" Inc"},{"Add":" (if (nil? (eval (car X)))"},{"Add":" ONE"},{"Add":" (save (needNum Exe @)) ) )"},{"Add":" (when (or (== Inc ZERO) (sign? Inc))"},{"Add":" (argErr Exe Inc) )"},{"Add":" (let P R"},{"Add":" (if (le0 (cmpNum N Lim))"},{"Add":" (while (le0 (cmpNum (setq N (adds N Inc)) Lim))"},{"Add":" (setq P (set 2 P (cons N $Nil))) )"},{"Add":" (while (ge0 (cmpNum (setq N (subs N Inc)) Lim))"},{"Add":" (setq P (set 2 P (cons N $Nil))) ) ) )"},{"Add":" R ) )"},{"Add":""},{"Add":"# (full 'any) -> bool"},{"Add":"(de _Full (Exe)"},{"Add":" (let X (eval (cadr Exe))"},{"Add":" (loop"},{"Add":" (? (atom X) $T)"},{"Add":" (? (nil? (car X)) $Nil)"},{"Add":" (shift X) ) ) )"},{"Add":""},{"Add":"# (make .. [(made 'lst ..)] .. [(link 'any ..)] ..) -> any"},{"Add":"(de _Make (Exe)"},{"Add":" (let"},{"Add":" (Make (val $Make)"},{"Add":" Yoke (val $Yoke)"},{"Add":" R (link (push $Nil NIL)) )"},{"Add":" (set $Make (set $Yoke R))"},{"Add":" (exec (cdr Exe))"},{"Add":" (set $At2"},{"Add":" (if (pair (val R))"},{"Add":" (ofs (val $Make) -1)"},{"Add":" $Nil ) )"},{"Add":" (set $Make Make $Yoke Yoke)"},{"Add":" (pop R) ) )"},{"Add":""},{"Add":"# (made ['lst1 ['lst2]]) -> lst"},{"Add":"(de _Made (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (unless (val $Make)"},{"Add":" (makeErr Exe) )"},{"Add":" (when (pair X)"},{"Add":" (if (atom (set (val $Yoke) (eval (++ X))))"},{"Add":" (set $Make (val $Yoke))"},{"Add":" (let Y (eval (car X))"},{"Add":" (when (atom Y)"},{"Add":" (setq Y (val (val $Yoke)))"},{"Add":" (while (pair (cdr Y))"},{"Add":" (setq Y @) ) )"},{"Add":" (set $Make (ofs Y 1)) ) ) )"},{"Add":" (val (val $Yoke)) ) )"},{"Add":""},{"Add":"# (chain 'any ..) -> any"},{"Add":"(de _Chain (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (unless (val $Make)"},{"Add":" (makeErr Exe) )"},{"Add":" (loop"},{"Add":" (let Y (set (val $Make) (eval (++ X)))"},{"Add":" (when (pair Y)"},{"Add":" (let Z Y"},{"Add":" (while (pair (cdr Z))"},{"Add":" (setq Z @) )"},{"Add":" (set $Make (ofs Z 1)) ) )"},{"Add":" (? (atom X) Y) ) ) ) )"},{"Add":""},{"Add":"# (link 'any ..) -> any"},{"Add":"(de _Link (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (unless (val $Make)"},{"Add":" (makeErr Exe) )"},{"Add":" (loop"},{"Add":" (let Y (eval (++ X))"},{"Add":" (set $Make"},{"Add":" (ofs"},{"Add":" (set (val $Make) (cons Y $Nil))"},{"Add":" 1 ) )"},{"Add":" (? (atom X) Y) ) ) ) )"},{"Add":""},{"Add":"# (yoke 'any ..) -> any"},{"Add":"(de _Yoke (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (unless (val $Make)"},{"Add":" (makeErr Exe) )"},{"Add":" (loop"},{"Add":" (let Y (eval (++ X))"},{"Add":" (let P (val $Yoke)"},{"Add":" (set P (cons Y (val P))) )"},{"Add":" (? (atom X)"},{"Add":" (let Z (val $Make)"},{"Add":" (while (pair (val Z))"},{"Add":" (setq Z (ofs @ 1)) )"},{"Add":" (set $Make Z) )"},{"Add":" Y ) ) ) ) )"},{"Add":""},{"Add":"# (copy 'any) -> any"},{"Add":"(de _Copy (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if (atom (setq X (eval (car X))))"},{"Add":" X"},{"Add":" (let"},{"Add":" (Y (cons (car X) (cdr X))"},{"Add":" R (save Y)"},{"Add":" Z X )"},{"Add":" (while (pair (setq X (cdr Y)))"},{"Add":" (? (== X Z) (set 2 Y R))"},{"Add":" (setq Y"},{"Add":" (set 2 Y (cons (car X) (cdr X))) ) )"},{"Add":" R ) ) ) )"},{"Add":""},{"Add":"# (mix 'lst cnt|'any ..) -> lst"},{"Add":"(de _Mix (Exe)"},{"Add":" (let (X (cdr Exe) Y (eval (car X)))"},{"Add":" (nond"},{"Add":" ((or (pair Y) (nil? Y)) Y)"},{"Add":" ((pair (shift X)) $Nil)"},{"Add":" (NIL"},{"Add":" (save Y"},{"Add":" (let"},{"Add":" (Z"},{"Add":" (cons"},{"Add":" (if (cnt? (car X))"},{"Add":" (nth @ Y)"},{"Add":" (eval @) )"},{"Add":" $Nil )"},{"Add":" R (save Z) )"},{"Add":" (while (pair (shift X))"},{"Add":" (setq Z"},{"Add":" (set 2 Z"},{"Add":" (cons"},{"Add":" (if (cnt? (car X))"},{"Add":" (nth @ Y)"},{"Add":" (eval @) )"},{"Add":" $Nil ) ) ) )"},{"Add":" R ) ) ) ) ) )"},{"Add":""},{"Add":"# (append 'lst ..) -> lst"},{"Add":"(de _Append (Exe)"},{"Add":" (let X Exe"},{"Add":" (loop"},{"Add":" (? (atom (cdr (shift X)))"},{"Add":" (eval (car X)) )"},{"Add":" (? (pair (eval (car X)))"},{"Add":" (let"},{"Add":" (Y @"},{"Add":" R (save (cons (++ Y) Y))"},{"Add":" Z R )"},{"Add":" (while (pair Y)"},{"Add":" (setq Z (set 2 Z (cons (++ Y) Y))) )"},{"Add":" (while (pair (cdr (shift X)))"},{"Add":" (save (setq Y (eval (car X)))"},{"Add":" (while (pair Y)"},{"Add":" (setq Z (set 2 Z (cons (++ Y) Y))) ) ) )"},{"Add":" (set 2 Z (eval (car X)))"},{"Add":" R ) ) ) ) )"},{"Add":""},{"Add":"# (delete 'any 'lst ['flg]) -> lst"},{"Add":"(de _Delete (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (eval (++ X)))"},{"Add":" L (save (eval (++ X)))"},{"Add":" F (nil? (eval (car X))) )"},{"Add":" (loop"},{"Add":" (? (atom L) L)"},{"Add":" (? (not (equal Y (car L)))"},{"Add":" (let R (save (setq X (cons (car L) $Nil)))"},{"Add":" (loop"},{"Add":" (? (atom (shift L))"},{"Add":" (set 2 X L) )"},{"Add":" (ifn (equal Y (car L))"},{"Add":" (setq X (set 2 X (cons (car L) $Nil)))"},{"Add":" (? F (set 2 X (cdr L))) ) )"},{"Add":" R ) )"},{"Add":" (shift L)"},{"Add":" (? F L) ) ) )"},{"Add":""},{"Add":"# (delq 'any 'lst ['flg]) -> lst"},{"Add":"(de _Delq (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (eval (++ X)))"},{"Add":" L (save (eval (++ X)))"},{"Add":" F (nil? (eval (car X))) )"},{"Add":" (loop"},{"Add":" (? (atom L) L)"},{"Add":" (? (<> Y (car L))"},{"Add":" (let R (save (setq X (cons (car L) $Nil)))"},{"Add":" (loop"},{"Add":" (? (atom (shift L))"},{"Add":" (set 2 X L) )"},{"Add":" (if (<> Y (car L))"},{"Add":" (setq X (set 2 X (cons (car L) $Nil)))"},{"Add":" (? F (set 2 X (cdr L))) ) )"},{"Add":" R ) )"},{"Add":" (shift L)"},{"Add":" (? F L) ) ) )"},{"Add":""},{"Add":"# (replace 'lst 'any1 'any2 ..) -> lst"},{"Add":"(de _Replace (Exe)"},{"Add":" (let (X (cdr Exe) L (save (eval (car X))))"},{"Add":" (if (atom L)"},{"Add":" @"},{"Add":" (let (A $Nil N 0 R (push NIL NIL))"},{"Add":" (while (pair (shift X))"},{"Add":" (link (push (eval (++ X)) NIL))"},{"Add":" (setq A (link (push (eval (car X)) NIL)))"},{"Add":" (inc 'N) )"},{"Add":" (let (Y (++ L) Z A I N)"},{"Add":" (until (lt0 (dec 'I))"},{"Add":" (let (V (++ Z) K (++ Z))"},{"Add":" (? (equal Y K)"},{"Add":" (setq Y V) ) ) )"},{"Add":" (let P (set (link R) (cons Y $Nil))"},{"Add":" (while (pair L)"},{"Add":" (setq Y (++ L) Z A I N)"},{"Add":" (until (lt0 (dec 'I))"},{"Add":" (let (V (++ Z) K (++ Z))"},{"Add":" (? (equal Y K)"},{"Add":" (setq Y V) ) ) )"},{"Add":" (setq P (set 2 P (cons Y $Nil))) ) ) )"},{"Add":" (val R) ) ) ) )"},{"Add":""},{"Add":"# (insert 'cnt 'lst 'any) -> lst"},{"Add":"(de _Insert (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" N (evCnt Exe X)"},{"Add":" L (save (eval (car (shift X)))) )"},{"Add":" (setq X (eval (car (shift X))))"},{"Add":" (if (or (atom L) (le0 (dec 'N)))"},{"Add":" (cons X L)"},{"Add":" (let (Y (cons (car L) $Nil) R (save Y))"},{"Add":" (while (and (pair (shift L)) (dec 'N))"},{"Add":" (setq Y (set 2 Y (cons (car L) $Nil))) )"},{"Add":" (set 2 Y (cons X L))"},{"Add":" R ) ) ) )"},{"Add":""},{"Add":"# (remove 'cnt 'lst) -> lst"},{"Add":"(de _Remove (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" N (evCnt Exe X)"},{"Add":" L (save (eval (car (shift X)))) )"},{"Add":" (cond"},{"Add":" ((or (atom L) (lt0 (dec 'N))) L)"},{"Add":" ((=0 N) (cdr L))"},{"Add":" (T"},{"Add":" (let (Y (cons (car L) $Nil) R (save Y))"},{"Add":" (loop"},{"Add":" (? (atom (shift L))"},{"Add":" (set 2 Y L) )"},{"Add":" (? (=0 (dec 'N))"},{"Add":" (set 2 Y (cdr L)) )"},{"Add":" (setq Y (set 2 Y (cons (car L) $Nil))) )"},{"Add":" R ) ) ) ) )"},{"Add":""},{"Add":"# (place 'cnt 'lst 'any) -> lst"},{"Add":"(de _Place (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" N (evCnt Exe X)"},{"Add":" L (save (eval (car (shift X))))"},{"Add":" Y (save (eval (car (shift X)))) )"},{"Add":" (cond"},{"Add":" ((atom L) (cons Y $Nil))"},{"Add":" ((le0 (dec 'N)) (cons Y (cdr L)))"},{"Add":" (T"},{"Add":" (let (Z (cons (car L) $Nil) R (save Z))"},{"Add":" (loop"},{"Add":" (? (atom (shift L))"},{"Add":" (set 2 Z (cons Y L)) )"},{"Add":" (? (=0 (dec 'N))"},{"Add":" (set 2 Z (cons Y (cdr L))) )"},{"Add":" (setq Z (set 2 Z (cons (car L) $Nil))) )"},{"Add":" R ) ) ) ) )"},{"Add":""},{"Add":"# (strip 'any) -> any"},{"Add":"(de _Strip (Exe)"},{"Add":" (let X (eval (cadr Exe))"},{"Add":" (while (and (pair X) (== $Quote (car X)))"},{"Add":" (? (== (cdr X) X)) # Circular"},{"Add":" (setq X @) )"},{"Add":" X ) )"},{"Add":""},{"Add":"# (split 'lst 'any ..) -> lst"},{"Add":"(de _Split (Exe)"},{"Add":" (let (X (cdr Exe) L (save (eval (car X))))"},{"Add":" (if (atom L)"},{"Add":" @"},{"Add":" (let (A $Nil N 0)"},{"Add":" (while (pair (shift X))"},{"Add":" (setq A (link (push (eval (car X)) NIL)))"},{"Add":" (inc 'N) )"},{"Add":" (let"},{"Add":" (P $Nil"},{"Add":" R (link (push P NIL))"},{"Add":" Q $Nil"},{"Add":" S (link (push Q NIL)) )"},{"Add":" (loop"},{"Add":" (let (Y (++ L) Z A I N)"},{"Add":" (loop"},{"Add":" (? (lt0 (dec 'I)) # Not a delimiter"},{"Add":" (let C (cons Y $Nil)"},{"Add":" (setq Q"},{"Add":" (if (nil? Q)"},{"Add":" (set S C)"},{"Add":" (set 2 Q C) ) ) ) )"},{"Add":" (? (equal Y (++ Z)) # Delimiter"},{"Add":" (let C (cons (val S) $Nil)"},{"Add":" (setq P"},{"Add":" (if (nil? P)"},{"Add":" (set R C)"},{"Add":" (set 2 P C) ) ) )"},{"Add":" (setq Q (set S $Nil)) ) ) )"},{"Add":" (? (atom L)) )"},{"Add":" (let C (cons (val S) $Nil)"},{"Add":" (if (nil? P)"},{"Add":" C"},{"Add":" (set 2 P C)"},{"Add":" (val R) ) ) ) ) ) ) )"},{"Add":""},{"Add":"# (reverse 'lst) -> lst"},{"Add":"(de _Reverse (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (eval (car X)))"},{"Add":" Z $Nil )"},{"Add":" (while (pair Y)"},{"Add":" (setq Z (cons (++ Y) Z)) )"},{"Add":" Z ) )"},{"Add":""},{"Add":"# (flip 'lst ['cnt]) -> lst"},{"Add":"(de _Flip (Exe)"},{"Add":" (let (X (cdr Exe) Y (eval (car X)))"},{"Add":" (if (atom Y)"},{"Add":" Y"},{"Add":" (let Z (cdr Y)"},{"Add":" (cond"},{"Add":" ((atom Z) Y)"},{"Add":" ((atom (shift X))"},{"Add":" (set 2 Y $Nil)"},{"Add":" (loop"},{"Add":" (setq X (cdr Z))"},{"Add":" (set 2 Z Y)"},{"Add":" (? (atom X) Z)"},{"Add":" (setq Y Z Z X) ) )"},{"Add":" (T"},{"Add":" (let N (save Y (evCnt Exe X))"},{"Add":" (if (le0 (dec 'N))"},{"Add":" Y"},{"Add":" (set 2 Y (cdr Z) 2 Z Y)"},{"Add":" (until"},{"Add":" (or"},{"Add":" (=0 (dec 'N))"},{"Add":" (atom (setq X (cdr Y))) )"},{"Add":" (set 2 Y (cdr X) 2 X Z)"},{"Add":" (setq Z X) )"},{"Add":" Z ) ) ) ) ) ) ) )"},{"Add":""},{"Add":"(local) trim"},{"Add":""},{"Add":"(de trim (X)"},{"Add":" (if (atom X)"},{"Add":" X"},{"Add":" (stkChk 0)"},{"Add":" (let Y (trim (cdr X))"},{"Add":" (if (and (nil? Y) (isBlank (car X)))"},{"Add":" $Nil"},{"Add":" (cons (car X) Y) ) ) ) )"},{"Add":""},{"Add":"# (trim 'lst) -> lst"},{"Add":"(de _Trim (Exe)"},{"Add":" (trim (save (eval (cadr Exe)))) )"},{"Add":""},{"Add":"# (clip 'lst) -> lst"},{"Add":"(de _Clip (Exe)"},{"Add":" (let (X (cdr Exe) Y (eval (car X)))"},{"Add":" (while (and (pair Y) (isBlank (car Y)))"},{"Add":" (shift Y) )"},{"Add":" (trim (save Y)) ) )"},{"Add":""},{"Add":"# (head 'cnt|lst 'lst) -> lst"},{"Add":"(de _Head (Exe)"},{"Add":" (let (X (cdr Exe) Y (eval (++ X)))"},{"Add":" (cond"},{"Add":" ((nil? Y) Y)"},{"Add":" ((pair Y)"},{"Add":" (save Y"},{"Add":" (let (Z Y L (eval (car X)))"},{"Add":" (loop"},{"Add":" (?"},{"Add":" (or"},{"Add":" (atom L)"},{"Add":" (not (equal (car Z) (car L))) )"},{"Add":" $Nil )"},{"Add":" (? (atom (shift Z)) Y)"},{"Add":" (shift L) ) ) ) )"},{"Add":" ((=0 (xCnt Exe Y)) $Nil)"},{"Add":" (T"},{"Add":" (let (N @ L (eval (car X)))"},{"Add":" (cond"},{"Add":" ((atom L) L)"},{"Add":" ((and"},{"Add":" (lt0 N)"},{"Add":" (le0 (inc 'N (length L))) )"},{"Add":" $Nil )"},{"Add":" (T"},{"Add":" (save L"},{"Add":" (let (Z (cons (car L) $Nil) R (save Z))"},{"Add":" (while (and (dec 'N) (pair (shift L)))"},{"Add":" (setq Z"},{"Add":" (set 2 Z (cons (car L) $Nil)) ) )"},{"Add":" R ) ) ) ) ) ) ) ) )"},{"Add":""},{"Add":"# (tail 'cnt|lst 'lst) -> lst"},{"Add":"(de _Tail (Exe)"},{"Add":" (let (X (cdr Exe) Y (eval (++ X)))"},{"Add":" (cond"},{"Add":" ((nil? Y) Y)"},{"Add":" ((pair Y)"},{"Add":" (save Y"},{"Add":" (let L (eval (car X))"},{"Add":" (loop"},{"Add":" (? (atom L) $Nil)"},{"Add":" (? (equal L Y) Y)"},{"Add":" (? (atom (shift L)) $Nil) ) ) ) )"},{"Add":" ((=0 (xCnt Exe Y)) $Nil)"},{"Add":" (T"},{"Add":" (let (N @ L (eval (car X)))"},{"Add":" (cond"},{"Add":" ((atom L) L)"},{"Add":" ((lt0 N)"},{"Add":" (loop"},{"Add":" (shift L)"},{"Add":" (? (=0 (inc 'N)) L) ) )"},{"Add":" (T"},{"Add":" (let Z L"},{"Add":" (loop"},{"Add":" (? (=0 (dec 'N)))"},{"Add":" (? (atom (shift Z))) )"},{"Add":" (while (pair (shift Z))"},{"Add":" (shift L) )"},{"Add":" L ) ) ) ) ) ) ) )"},{"Add":""},{"Add":"# (stem 'lst 'any ..) -> lst"},{"Add":"(de _Stem (Exe)"},{"Add":" (let (X (cdr Exe) L (save (eval (++ X))))"},{"Add":" (if (atom X)"},{"Add":" L"},{"Add":" (let (R L N 1 A T)"},{"Add":" (loop"},{"Add":" (setq A (link (push (eval (car X)) NIL)))"},{"Add":" (? (atom (shift X)))"},{"Add":" (inc 'N) )"},{"Add":" (loop"},{"Add":" (let (P A I N)"},{"Add":" (loop"},{"Add":" (? (equal (car L) (car P))"},{"Add":" (setq R (cdr L)) )"},{"Add":" (? (=0 (dec 'I)))"},{"Add":" (shift P) ) )"},{"Add":" (? (atom (shift L))) )"},{"Add":" R ) ) ) )"},{"Add":""},{"Add":"# (fin 'any) -> num|sym"},{"Add":"(de _Fin (Exe)"},{"Add":" (let X (eval (cadr Exe))"},{"Add":" (while (pair X)"},{"Add":" (shift X) )"},{"Add":" X ) )"},{"Add":""},{"Add":"# (last 'lst) -> any"},{"Add":"(de _Last (Exe)"},{"Add":" (let X (eval (cadr Exe))"},{"Add":" (if (atom X)"},{"Add":" X"},{"Add":" (while (pair (cdr X))"},{"Add":" (setq X @) )"},{"Add":" (car X) ) ) )"},{"Add":""},{"Add":"# (== 'any ..) -> flg"},{"Add":"(de _Eq (Exe)"},{"Add":" (let (X (cdr Exe) Y (save (eval (car X))))"},{"Add":" (loop"},{"Add":" (? (atom (shift X)) $T)"},{"Add":" (? (<> Y (eval (car X))) $Nil) ) ) )"},{"Add":""},{"Add":"# (n== 'any ..) -> flg"},{"Add":"(de _Neq (Exe)"},{"Add":" (let (X (cdr Exe) Y (save (eval (car X))))"},{"Add":" (loop"},{"Add":" (? (atom (shift X)) $Nil)"},{"Add":" (? (<> Y (eval (car X))) $T) ) ) )"},{"Add":""},{"Add":"# (= 'any ..) -> flg"},{"Add":"(de _Equal (Exe)"},{"Add":" (let (X (cdr Exe) Y (save (eval (car X))))"},{"Add":" (loop"},{"Add":" (? (atom (shift X)) $T)"},{"Add":" (? (not (equal Y (eval (car X)))) $Nil) ) ) )"},{"Add":""},{"Add":"# (<> 'any ..) -> flg"},{"Add":"(de _Nequal (Exe)"},{"Add":" (let (X (cdr Exe) Y (save (eval (car X))))"},{"Add":" (loop"},{"Add":" (? (atom (shift X)) $Nil)"},{"Add":" (? (not (equal Y (eval (car X)))) $T) ) ) )"},{"Add":""},{"Add":"# (=0 'any) -> 0 | NIL"},{"Add":"(de _Eq0 (Exe)"},{"Add":" (if (== (eval (cadr Exe)) ZERO) @ $Nil) )"},{"Add":""},{"Add":"# (=1 'any) -> 1 | NIL"},{"Add":"(de _Eq1 (Exe)"},{"Add":" (if (== (eval (cadr Exe)) ONE) @ $Nil) )"},{"Add":""},{"Add":"# (=T 'any) -> flg"},{"Add":"(de _EqT (Exe)"},{"Add":" (if (t? (eval (cadr Exe))) @ $Nil) )"},{"Add":""},{"Add":"# (n0 'any) -> flg"},{"Add":"(de _Neq0 (Exe)"},{"Add":" (if (== (eval (cadr Exe)) ZERO) $Nil $T) )"},{"Add":""},{"Add":"# (nT 'any) -> flg"},{"Add":"(de _NeqT (Exe)"},{"Add":" (if (t? (eval (cadr Exe))) $Nil $T) )"},{"Add":""},{"Add":"# (< 'any ..) -> flg"},{"Add":"(de _Lt (Exe)"},{"Add":" (let (X (cdr Exe) Y (save (eval (car X))))"},{"Add":" (loop"},{"Add":" (? (atom (shift X)) $T)"},{"Add":" (let Z (eval (car X))"},{"Add":" (? (ge0 (compare Y Z)) $Nil)"},{"Add":" (setq Y (safe Z)) ) ) ) )"},{"Add":""},{"Add":"# (<= 'any ..) -> flg"},{"Add":"(de _Le (Exe)"},{"Add":" (let (X (cdr Exe) Y (save (eval (car X))))"},{"Add":" (loop"},{"Add":" (? (atom (shift X)) $T)"},{"Add":" (let Z (eval (car X))"},{"Add":" (? (gt0 (compare Y Z)) $Nil)"},{"Add":" (setq Y (safe Z)) ) ) ) )"},{"Add":""},{"Add":"# (> 'any ..) -> flg"},{"Add":"(de _Gt (Exe)"},{"Add":" (let (X (cdr Exe) Y (save (eval (car X))))"},{"Add":" (loop"},{"Add":" (? (atom (shift X)) $T)"},{"Add":" (let Z (eval (car X))"},{"Add":" (? (le0 (compare Y Z)) $Nil)"},{"Add":" (setq Y (safe Z)) ) ) ) )"},{"Add":""},{"Add":"# (>= 'any ..) -> flg"},{"Add":"(de _Ge (Exe)"},{"Add":" (let (X (cdr Exe) Y (save (eval (car X))))"},{"Add":" (loop"},{"Add":" (? (atom (shift X)) $T)"},{"Add":" (let Z (eval (car X))"},{"Add":" (? (lt0 (compare Y Z)) $Nil)"},{"Add":" (setq Y (safe Z)) ) ) ) )"},{"Add":""},{"Add":"# (max 'any ..) -> any"},{"Add":"(de _Max (Exe)"},{"Add":" (let (X (cdr Exe) R (save (eval (car X))))"},{"Add":" (while (pair (shift X))"},{"Add":" (let Z (eval (car X))"},{"Add":" (when (gt0 (compare Z R))"},{"Add":" (setq R (safe Z)) ) ) )"},{"Add":" R ) )"},{"Add":""},{"Add":"# (min 'any ..) -> any"},{"Add":"(de _Min (Exe)"},{"Add":" (let (X (cdr Exe) R (save (eval (car X))))"},{"Add":" (while (pair (shift X))"},{"Add":" (let Z (eval (car X))"},{"Add":" (when (lt0 (compare Z R))"},{"Add":" (setq R (safe Z)) ) ) )"},{"Add":" R ) )"},{"Add":""},{"Add":"# (atom 'any) -> flg"},{"Add":"(de _Atom (Exe)"},{"Add":" (if (atom (eval (cadr Exe))) $T $Nil) )"},{"Add":""},{"Add":"# (pair 'any) -> any"},{"Add":"(de _Pair (Exe)"},{"Add":" (if (pair (eval (cadr Exe))) @ $Nil) )"},{"Add":""},{"Add":"# (circ? 'any) -> any"},{"Add":"(de _CircQ (Exe)"},{"Add":" (if (circ (eval (cadr Exe))) @ $Nil) )"},{"Add":""},{"Add":"# (lst? 'any) -> flg"},{"Add":"(de _LstQ (Exe)"},{"Add":" (if (or (pair (eval (cadr Exe))) (nil? @))"},{"Add":" $T"},{"Add":" $Nil ) )"},{"Add":""},{"Add":"# (num? 'any) -> num | NIL"},{"Add":"(de _NumQ (Exe)"},{"Add":" (if (num? (eval (cadr Exe))) @ $Nil) )"},{"Add":""},{"Add":"# (sym? 'any) -> flg"},{"Add":"(de _SymQ (Exe)"},{"Add":" (if (symb? (eval (cadr Exe)))"},{"Add":" $T"},{"Add":" $Nil ) )"},{"Add":""},{"Add":"# (flg? 'any) -> flg"},{"Add":"(de _FlgQ (Exe)"},{"Add":" (if (or (t? (eval (cadr Exe))) (nil? @))"},{"Add":" $T"},{"Add":" $Nil ) )"},{"Add":""},{"Add":"# (member 'any 'lst) -> any"},{"Add":"(de _Member (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (eval (++ X)))"},{"Add":" Z (eval (car X))"},{"Add":" H Z )"},{"Add":" (loop"},{"Add":" (? (atom Z)"},{"Add":" (if (equal Y Z) Z $Nil) )"},{"Add":" (? (equal Y (car Z)) Z)"},{"Add":" (? (== H (shift Z)) $Nil) ) ) )"},{"Add":""},{"Add":"# (memq 'any 'lst) -> any"},{"Add":"(de _Memq (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (eval (++ X)))"},{"Add":" Z (eval (car X))"},{"Add":" H Z )"},{"Add":" (loop"},{"Add":" (? (atom Z)"},{"Add":" (if (== Y Z) Z $Nil) )"},{"Add":" (? (== Y (car Z)) Z)"},{"Add":" (? (== H (shift Z)) $Nil) ) ) )"},{"Add":""},{"Add":"# (mmeq 'lst 'lst) -> any"},{"Add":"(de _Mmeq (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (eval (++ X)))"},{"Add":" Z (eval (car X)) )"},{"Add":" (while (pair Y)"},{"Add":" (let (U (++ Y) V Z)"},{"Add":" (while (pair V)"},{"Add":" (when (== U (car V))"},{"Add":" (ret V) )"},{"Add":" (when (== Z (shift V)) # Hit head"},{"Add":" (ret $Nil) ) )"},{"Add":" (? (== U V) V) ) )"},{"Add":" $Nil ) )"},{"Add":""},{"Add":"# (sect 'lst 'lst) -> lst"},{"Add":"(de _Sect (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (eval (++ X)))"},{"Add":" Z (save (eval (car X)))"},{"Add":" P 0"},{"Add":" R (link (push $Nil NIL)) )"},{"Add":" (while (pair Y)"},{"Add":" (let U (++ Y)"},{"Add":" (when (member U Z)"},{"Add":" (let V (cons U $Nil)"},{"Add":" (setq P"},{"Add":" (if P"},{"Add":" (set 2 P V)"},{"Add":" (set R V) ) ) ) ) ) )"},{"Add":" (val R) ) )"},{"Add":""},{"Add":"# (diff 'lst 'lst) -> lst"},{"Add":"(de _Diff (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (eval (++ X)))"},{"Add":" Z (save (eval (car X)))"},{"Add":" P 0"},{"Add":" R (link (push $Nil NIL)) )"},{"Add":" (while (pair Y)"},{"Add":" (let U (++ Y)"},{"Add":" (unless (member U Z)"},{"Add":" (let V (cons U $Nil)"},{"Add":" (setq P"},{"Add":" (if P"},{"Add":" (set 2 P V)"},{"Add":" (set R V) ) ) ) ) ) )"},{"Add":" (val R) ) )"},{"Add":""},{"Add":"# (index 'any 'lst) -> cnt | NIL"},{"Add":"(de _Index (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (eval (++ X)))"},{"Add":" Z (eval (car X))"},{"Add":" Cnt 1"},{"Add":" U Z )"},{"Add":" (loop"},{"Add":" (? (atom Z) $Nil)"},{"Add":" (? (equal Y (car Z)) (cnt Cnt))"},{"Add":" (inc 'Cnt)"},{"Add":" (? (== U (shift Z)) $Nil) ) ) )"},{"Add":""},{"Add":"# (offset 'lst1 'lst2) -> cnt | NIL"},{"Add":"(de _Offset (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (eval (++ X)))"},{"Add":" Z (eval (car X))"},{"Add":" Cnt 1 )"},{"Add":" (loop"},{"Add":" (? (atom Z) $Nil)"},{"Add":" (? (equal Y Z) (cnt Cnt))"},{"Add":" (inc 'Cnt)"},{"Add":" (shift Z) ) ) )"},{"Add":""},{"Add":"# (prior 'lst1 'lst2) -> lst | NIL"},{"Add":"(de _Prior (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (eval (++ X)))"},{"Add":" Z (eval (car X)) )"},{"Add":" (when (and (pair Y) (<> Y Z))"},{"Add":" (while (pair Z)"},{"Add":" (when (== (cdr Z) Y)"},{"Add":" (ret Z) )"},{"Add":" (setq Z @) ) )"},{"Add":" $Nil ) )"},{"Add":""},{"Add":"# (length 'any) -> cnt | T"},{"Add":"(de _Length (Exe)"},{"Add":" (let X (eval (cadr Exe))"},{"Add":" (cond"},{"Add":" ((num? X) (fmtNum X -2 0 0 null))"},{"Add":" ((pair X)"},{"Add":" (let (C ONE Y X)"},{"Add":" (loop"},{"Add":" (set X (| (car X) 1))"},{"Add":" (? (atom (shift X)) # Normal list"},{"Add":" (loop"},{"Add":" (set Y (& (car Y) -2))"},{"Add":" (? (== X (shift Y))) )"},{"Add":" C )"},{"Add":" (? (& (car X) 1)"},{"Add":" (until (== X Y)"},{"Add":" (set Y (& (car Y) -2))"},{"Add":" (shift Y) )"},{"Add":" (loop"},{"Add":" (set Y (& (car Y) -2))"},{"Add":" (? (== X (shift Y))) )"},{"Add":" $T ) # Infinite"},{"Add":" (inc 'C (hex \"10\")) ) ) )"},{"Add":" ((nil? X) ZERO)"},{"Add":" ((sym? (val (tail X))) ZERO)"},{"Add":" (T"},{"Add":" (let (C ZERO P (push 0 (name @)))"},{"Add":" (while (symChar P)"},{"Add":" (inc 'C (hex \"10\")) )"},{"Add":" C ) ) ) ) )"},{"Add":""},{"Add":"(local) (size binSize)"},{"Add":""},{"Add":"(de size (L)"},{"Add":" (let (C 1 X L Y (car X))"},{"Add":" (loop"},{"Add":" (when (pair Y)"},{"Add":" (stkChk 0)"},{"Add":" (inc 'C (size Y)) )"},{"Add":" (set X (| Y 1))"},{"Add":" (? (atom (shift X))"},{"Add":" (loop"},{"Add":" (set L (& (car L) -2))"},{"Add":" (? (== X (shift L))) )"},{"Add":" C )"},{"Add":" (? (& (setq Y (car X)) 1)"},{"Add":" (until (== X L)"},{"Add":" (set L (& (car L) -2))"},{"Add":" (shift L) )"},{"Add":" (loop"},{"Add":" (set L (& (car L) -2))"},{"Add":" (? (== X (shift L))) )"},{"Add":" C )"},{"Add":" (inc 'C) ) ) )"},{"Add":""},{"Add":"(de binSize (X)"},{"Add":" (cond"},{"Add":" ((cnt? X)"},{"Add":" (setq X (shr X 3)) # Normalize short, keep sign bit"},{"Add":" (: 1"},{"Add":" (let C 2 # Count significant bytes plus 1"},{"Add":" (while (setq X (shr X 8))"},{"Add":" (inc 'C) )"},{"Add":" C ) ) )"},{"Add":" ((big? X)"},{"Add":" (setq X (pos X))"},{"Add":" (let C 9 # Count 8 significant bytes plus 1"},{"Add":" (loop"},{"Add":" (setq D (val (dig X)))"},{"Add":" (? (cnt? (setq X (val (big X)))))"},{"Add":" (inc 'C 8) ) # Increment count by 8"},{"Add":" (setq X (int X))"},{"Add":" (add D D) # Get most significant bit of last digit"},{"Add":" (setq X (+ X X @@))"},{"Add":" (: 2"},{"Add":" (when X"},{"Add":" (loop"},{"Add":" (inc 'C)"},{"Add":" (? (=0 (setq X (shr X 8)))) ) )"},{"Add":" (if (>= C (+ 63 1)) # More than one chunk"},{"Add":" (+ C (/ (- C 64) 255) 1)"},{"Add":" C ) ) ) )"},{"Add":" ((sym? X)"},{"Add":" (cond"},{"Add":" ((nil? X) 1)"},{"Add":" ((== (name (& (val (tail X)) -9)) ZERO) 1)"},{"Add":" ((cnt? (setq X @))"},{"Add":" (setq X (shr (shl X 2) 6)) # Strip status bits"},{"Add":" (goto 1) )"},{"Add":" (T"},{"Add":" (let C 9 # Count 8 significant bytes plus 1"},{"Add":" (until (cnt? (setq X (val (big X))))"},{"Add":" (inc 'C 8) ) # Increment count by 8"},{"Add":" (setq X (int X))"},{"Add":" (goto 2) ) ) ) )"},{"Add":" (T"},{"Add":" (let (C 2 Y X)"},{"Add":" (loop"},{"Add":" (inc 'C (binSize (++ X)))"},{"Add":" (? (nil? X) C)"},{"Add":" (? (== Y X) (inc C)) # Circular"},{"Add":" (? (atom X) (+ C (binSize X))) ) ) ) ) )"},{"Add":""},{"Add":"# (size 'any) -> cnt"},{"Add":"(de _Size (Exe)"},{"Add":" (let X (eval (cadr Exe))"},{"Add":" (cond"},{"Add":" ((cnt? X)"},{"Add":" (setq X (shr X 3)) # Normalize short, keep sign bit"},{"Add":" (let C ONE"},{"Add":" (while (setq X (shr X 8))"},{"Add":" (inc 'C (hex \"10\")) )"},{"Add":" C ) )"},{"Add":" ((big? X)"},{"Add":" (setq X (pos X))"},{"Add":" (let (C (hex \"82\") D T) # Count '8' significant bytes"},{"Add":" (loop"},{"Add":" (setq D (val (dig X)))"},{"Add":" (? (cnt? (setq X (val (big X)))))"},{"Add":" (inc 'C (hex \"80\")) ) # Increment count by '8'"},{"Add":" (setq X (int X))"},{"Add":" (add D D) # Get most significant bit of last digit"},{"Add":" (when (setq X (+ X X @@))"},{"Add":" (loop"},{"Add":" (inc 'C (hex \"10\"))"},{"Add":" (? (=0 (setq X (shr X 8)))) ) )"},{"Add":" C ) )"},{"Add":" ((pair X) (cnt (size X)))"},{"Add":" ((nil? X) ZERO)"},{"Add":" ((sym? (val (tail X)))"},{"Add":" (dbFetch Exe X)"},{"Add":" (let"},{"Add":" (C (+ (binSize (val X)) (inc BLK)) # Value"},{"Add":" Y (& (val (tail X)) -9) )"},{"Add":" (while (pair Y) # Properties"},{"Add":" (let Z (++ Y)"},{"Add":" (setq C"},{"Add":" (+ C"},{"Add":" (if (atom Z)"},{"Add":" (+ (binSize Z) 2)"},{"Add":" (+"},{"Add":" (binSize (car Z))"},{"Add":" (binSize (cdr Z)) ) ) ) ) ) )"},{"Add":" (cnt C) ) )"},{"Add":" ((== (name @) ZERO) @)"},{"Add":" ((cnt? @)"},{"Add":" (let (C ONE Z (int @))"},{"Add":" (while (setq Z (shr Z 8))"},{"Add":" (inc 'C (hex \"10\")) )"},{"Add":" C ) )"},{"Add":" (T"},{"Add":" (let (C (hex \"82\") Z @) # Count '8' significant bytes"},{"Add":" (until (cnt? (setq Z (val (big Z))))"},{"Add":" (inc 'C (hex \"80\")) ) # Increment count by '8'"},{"Add":" (when (setq Z (int Z))"},{"Add":" (loop"},{"Add":" (inc 'C (hex \"10\"))"},{"Add":" (? (=0 (setq Z (shr Z 8)))) ) )"},{"Add":" C ) ) ) ) )"},{"Add":""},{"Add":"# (bytes 'any) -> cnt"},{"Add":"(de _Bytes (Exe)"},{"Add":" (cnt (binSize (eval (cadr Exe)))) )"},{"Add":""},{"Add":"# (assoc 'any 'lst) -> lst"},{"Add":"(de _Assoc (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (eval (++ X)))"},{"Add":" Z (eval (car X))"},{"Add":" H Z )"},{"Add":" (loop"},{"Add":" (? (atom Z) $Nil)"},{"Add":" (let C (car Z)"},{"Add":" (? (and (pair C) (equal Y (car C))) C) )"},{"Add":" (? (== H (shift Z)) $Nil) ) ) )"},{"Add":""},{"Add":"# (rassoc 'any 'lst) -> lst"},{"Add":"(de _Rassoc (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (eval (++ X)))"},{"Add":" Z (eval (car X))"},{"Add":" H Z )"},{"Add":" (loop"},{"Add":" (? (atom Z) $Nil)"},{"Add":" (let C (car Z)"},{"Add":" (? (and (pair C) (equal Y (cdr C))) C) )"},{"Add":" (? (== H (shift Z)) $Nil) ) ) )"},{"Add":""},{"Add":"# (asoq 'any 'lst) -> lst"},{"Add":"(de _Asoq (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (eval (++ X)))"},{"Add":" Z (eval (car X))"},{"Add":" H Z )"},{"Add":" (loop"},{"Add":" (? (atom Z) $Nil)"},{"Add":" (let C (car Z)"},{"Add":" (? (and (pair C) (== Y (car C))) C) )"},{"Add":" (? (== H (shift Z)) $Nil) ) ) )"},{"Add":""},{"Add":"# (rasoq 'any 'lst) -> lst"},{"Add":"(de _Rasoq (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (eval (++ X)))"},{"Add":" Z (eval (car X))"},{"Add":" H Z )"},{"Add":" (loop"},{"Add":" (? (atom Z) $Nil)"},{"Add":" (let C (car Z)"},{"Add":" (? (and (pair C) (== Y (cdr C))) C) )"},{"Add":" (? (== H (shift Z)) $Nil) ) ) )"},{"Add":""},{"Add":"# (rank 'any 'lst ['flg]) -> lst"},{"Add":"(de _Rank (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (eval (++ X)))"},{"Add":" Z (save (eval (++ X)))"},{"Add":" R $Nil )"},{"Add":" (if (nil? (eval (car X)))"},{"Add":" (until (gt0 (compare (caar Z) Y))"},{"Add":" (setq R Z)"},{"Add":" (? (atom (shift Z))) )"},{"Add":" (until (lt0 (compare (caar Z) Y))"},{"Add":" (setq R Z)"},{"Add":" (? (atom (shift Z))) ) )"},{"Add":" (car R) ) )"},{"Add":""},{"Add":"(local) match"},{"Add":""},{"Add":"(de i1 match (Pat Dat)"},{"Add":" (loop"},{"Add":" (? (atom Pat)"},{"Add":" (if (or (num? Pat) (<> (firstByte Pat) (char \"@\")))"},{"Add":" (equal Pat Dat)"},{"Add":" (set Pat Dat)"},{"Add":" YES ) )"},{"Add":" (stkChk 0)"},{"Add":" (let X (car Pat)"},{"Add":" (when (and (symb? X) (== (firstByte X) (char \"@\")))"},{"Add":" (? (atom Dat)"},{"Add":" (and"},{"Add":" (equal (cdr Pat) Dat)"},{"Add":" (prog (set X $Nil) YES) ) )"},{"Add":" (? (match (cdr Pat) (cdr Dat))"},{"Add":" (set X (cons (car Dat) $Nil))"},{"Add":" YES )"},{"Add":" (? (match (cdr Pat) Dat)"},{"Add":" (set X $Nil)"},{"Add":" YES )"},{"Add":" (? (match Pat (cdr Dat))"},{"Add":" (set X (cons (car Dat) (val X)))"},{"Add":" YES ) )"},{"Add":" (? (or (atom Dat) (not (match X (car Dat))))"},{"Add":" NO ) )"},{"Add":" (shift Pat)"},{"Add":" (shift Dat) ) )"},{"Add":""},{"Add":"# (match 'lst1 'lst2) -> flg"},{"Add":"(de _Match (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if"},{"Add":" (match"},{"Add":" (save (eval (++ X)))"},{"Add":" (save (eval (car X))) )"},{"Add":" $T"},{"Add":" $Nil ) ) )"},{"Add":""},{"Add":"(local) (fill2 fill3)"},{"Add":""},{"Add":"(de fill2 (X Y)"},{"Add":" (cond"},{"Add":" ((num? X) 0)"},{"Add":" ((sym? X)"},{"Add":" (let V (val X)"},{"Add":" (cond"},{"Add":" ((== X V) 0) # Auto-quoting"},{"Add":" ((nil? Y)"},{"Add":" (cond"},{"Add":" ((== X $At) 0)"},{"Add":" ((== (firstByte X) (char \"@\")) V)"},{"Add":" (T 0) ) )"},{"Add":" ((or (== X Y) (memq X Y)) V)"},{"Add":" (T 0) ) ) )"},{"Add":" (T"},{"Add":" (stkChk 0)"},{"Add":" (let Z (++ X)"},{"Add":" (if (== Z $Up) # Expand expression"},{"Add":" (let V (eval (++ X))"},{"Add":" (if (nil? V)"},{"Add":" (if (fill2 X Y) @ X)"},{"Add":" (save (setq Z V)"},{"Add":" (if (atom V)"},{"Add":" (safe (setq Z (setq V (cons V $Nil))))"},{"Add":" (while (pair (cdr V))"},{"Add":" (setq V @) ) )"},{"Add":" (set 2 V"},{"Add":" (if (fill2 X Y) @ X) )"},{"Add":" Z ) ) )"},{"Add":" (cond"},{"Add":" ((fill2 Z Y)"},{"Add":" (save @"},{"Add":" (cons @ (if (fill2 X Y) @ X)) ) )"},{"Add":" ((fill2 X Y) (cons Z @))"},{"Add":" (T 0) ) ) ) ) ) )"},{"Add":""},{"Add":"(de fill3 (X Y Z)"},{"Add":" (if (atom X)"},{"Add":" (if (== X Y) Z 0)"},{"Add":" (stkChk 0)"},{"Add":" (let A (++ X)"},{"Add":" (cond"},{"Add":" ((fill3 A Y Z)"},{"Add":" (save @"},{"Add":" (cons @ (if (fill3 X Y Z) @ X)) ) )"},{"Add":" ((fill3 X Y Z) (cons A @))"},{"Add":" (T 0) ) ) ) )"},{"Add":""},{"Add":"# (fill 'any ['sym|lst]) -> any"},{"Add":"# (fill 'any ['cnt|sym] 'any2) -> any"},{"Add":"(de _Fill (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (eval (++ X)))"},{"Add":" Z (save (eval (++ X))) )"},{"Add":" (if"},{"Add":" (if (pair X)"},{"Add":" (fill3 Y Z (save (eval (car X))))"},{"Add":" (fill2 Y Z) )"},{"Add":" @"},{"Add":" Y ) ) )"},{"Add":""},{"Add":"(local) ($Penv $Pnl unify lup lookup uniFill uniRun)"},{"Add":""},{"Add":"(var $Penv 0)"},{"Add":"(var $Pnl 0)"},{"Add":""},{"Add":"(de i1 unify (N1 X1 N2 X2)"},{"Add":" (let Penv (val $Penv)"},{"Add":" (: 1"},{"Add":" (when (and (symb? X1) (== (firstByte X1) (char \"@\")))"},{"Add":" (let X (val Penv)"},{"Add":" (while (pair (car X))"},{"Add":" (let (Y @ Z (car Y))"},{"Add":" (when (and (== N1 (car Z)) (== X1 (cdr Z)))"},{"Add":" (setq"},{"Add":" Z (cdr Y)"},{"Add":" N1 (car Z)"},{"Add":" X1 (cdr Z) )"},{"Add":" (goto 1) ) )"},{"Add":" (shift X) ) ) ) )"},{"Add":" (: 2"},{"Add":" (when (and (symb? X2) (== (firstByte X2) (char \"@\")))"},{"Add":" (let X (val Penv)"},{"Add":" (while (pair (car X))"},{"Add":" (let (Y @ Z (car Y))"},{"Add":" (when (and (== N2 (car Z)) (== X2 (cdr Z)))"},{"Add":" (setq"},{"Add":" Z (cdr Y)"},{"Add":" N2 (car Z)"},{"Add":" X2 (cdr Z) )"},{"Add":" (goto 2) ) )"},{"Add":" (shift X) ) ) ) )"},{"Add":" (cond"},{"Add":" ((and (== N1 N2) (equal X1 X2)) YES)"},{"Add":" ((and (symb? X1) (== (firstByte X1) (char \"@\")))"},{"Add":" (unless (== X1 $At)"},{"Add":" (set Penv # (((n1 . x1) . (n2 . x2)) . Penv)"},{"Add":" (cons (cons3 N1 X1 N2 X2) (val Penv)) ) )"},{"Add":" YES )"},{"Add":" ((and (symb? X2) (== (firstByte X2) (char \"@\")))"},{"Add":" (unless (== X2 $At)"},{"Add":" (set Penv # (((n2 . x2) . (n1 . x1)) . Penv)"},{"Add":" (cons (cons3 N2 X2 N1 X1) (val Penv)) ) )"},{"Add":" YES )"},{"Add":" ((or (atom X1) (atom X2)) (equal X1 X2))"},{"Add":" (T"},{"Add":" (stkChk 0)"},{"Add":" (let Env (val Penv)"},{"Add":" (or"},{"Add":" (and"},{"Add":" (unify N1 (car X1) N2 (car X2))"},{"Add":" (unify N1 (cdr X1) N2 (cdr X2)) )"},{"Add":" (prog (set Penv Env) NO) ) ) ) ) ) )"},{"Add":""},{"Add":"(de lup (N X)"},{"Add":" (let Penv (val $Penv)"},{"Add":" (: 1"},{"Add":" (when (and (symb? X) (== (firstByte X) (char \"@\")))"},{"Add":" (let V (val Penv)"},{"Add":" (while (pair (car V))"},{"Add":" (let (Y @ Z (car Y))"},{"Add":" (when"},{"Add":" (and"},{"Add":" (== N (car Z))"},{"Add":" (== X (cdr Z)) )"},{"Add":" (setq"},{"Add":" Z (cdr Y)"},{"Add":" N (car Z)"},{"Add":" X (cdr Z) )"},{"Add":" (goto 1) ) )"},{"Add":" (shift V) ) ) ) ) )"},{"Add":" (if"},{"Add":" (or"},{"Add":" (atom X)"},{"Add":" (cnt? (car X))"},{"Add":" (== @ $Up) )"},{"Add":" X"},{"Add":" (stkChk 0)"},{"Add":" (let Z (save (lup N (car X)))"},{"Add":" (cons Z (lup N (cdr X))) ) ) )"},{"Add":""},{"Add":"(de lookup (N X)"},{"Add":" (if"},{"Add":" (and"},{"Add":" (symb? (setq X (lup N X)))"},{"Add":" (== (firstByte X) (char \"@\")) )"},{"Add":" $Nil"},{"Add":" X ) )"},{"Add":""},{"Add":"(de uniFill (X)"},{"Add":" (cond"},{"Add":" ((num? X) X)"},{"Add":" ((sym? X)"},{"Add":" (lup (car (val (val $Pnl))) X) )"},{"Add":" (T"},{"Add":" (stkChk 0)"},{"Add":" (let Y (save (uniFill (car X)))"},{"Add":" (cons Y (uniFill (cdr X))) ) ) ) )"},{"Add":""},{"Add":"(de uniRun (Prg)"},{"Add":" (let (P (val $Bind) Q P Z Prg Tos 0)"},{"Add":" (loop"},{"Add":" (until (atom (car Z))"},{"Add":" (let U Z # Go left"},{"Add":" (setq Z @) # Invert tree"},{"Add":" (set U Tos)"},{"Add":" (setq Tos U) ) )"},{"Add":" (let Y (car Z)"},{"Add":" (when"},{"Add":" (and"},{"Add":" (symb? Y)"},{"Add":" (<> -ZERO (val Y))"},{"Add":" (== (firstByte Y) (char \"@\")) )"},{"Add":" (set $Bind (setq P (push (val Y) Y P)))"},{"Add":" (set Y -ZERO) ) )"},{"Add":" (loop"},{"Add":" (? (pair (cdr Z)) # Right subtree"},{"Add":" (let U Z # Go right"},{"Add":" (setq Z @) # Invert tree"},{"Add":" (set 2 U Tos)"},{"Add":" (setq Tos (| U 8)) ) )"},{"Add":" (let Y @ # Dotted structure symbol?"},{"Add":" (when"},{"Add":" (and"},{"Add":" (symb? Y)"},{"Add":" (<> -ZERO (val Y))"},{"Add":" (== (firstByte Y) (char \"@\")) )"},{"Add":" (set $Bind (setq P (push (val Y) Y P)))"},{"Add":" (set Y -ZERO) ) )"},{"Add":" (loop"},{"Add":" (unless Tos"},{"Add":" (let (X P N (car (val (val $Pnl))))"},{"Add":" (until (== Q X)"},{"Add":" (let Y (val 2 X)"},{"Add":" (set Y (lookup N Y)) )"},{"Add":" (setq X (val 3 X)) ) )"},{"Add":" (loop"},{"Add":" (let X (++ Prg)"},{"Add":" (when (atom Prg)"},{"Add":" (setq X (eval X))"},{"Add":" (until (== Q P)"},{"Add":" (set (val 2 P) (val P)) # Restore values"},{"Add":" (setq P (val 3 P)) )"},{"Add":" (set $Bind P)"},{"Add":" (ret X) )"},{"Add":" (and (pair X) (evList X)) ) ) )"},{"Add":" (? (=0 (& Tos 8)) # Second visit"},{"Add":" (let U Tos"},{"Add":" (setq Tos (car U)) # TOS on up link"},{"Add":" (set U Z)"},{"Add":" (setq Z U) ) )"},{"Add":" (let U (& Tos -9) # Set second visit"},{"Add":" (setq Tos (cdr U))"},{"Add":" (set 2 U Z)"},{"Add":" (setq Z U) ) ) ) ) ) )"},{"Add":""},{"Add":"# (prove 'lst ['lst]) -> lst"},{"Add":"(de _Prove (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if (atom (eval (car X)))"},{"Add":" $Nil"},{"Add":" (let"},{"Add":" (Q (save @)"},{"Add":" Dbg (if (nil? (eval (cadr X))) 0 (save @))"},{"Add":" P (prog1 (caar Q) (set Q (cdar Q)))"},{"Add":" N (++ P)"},{"Add":" Nl (link (push (++ P) NIL))"},{"Add":" Alt (link (push (++ P) NIL))"},{"Add":" Tp1 (link (push (++ P) NIL))"},{"Add":" Tp2 (link (push (++ P) NIL))"},{"Add":" Env (link (push P NIL))"},{"Add":" E (link (push $Nil NIL))"},{"Add":" At (save (val $At))"},{"Add":" Penv (val $Penv)"},{"Add":" Pnl (val $Pnl) )"},{"Add":" (set $Penv Env $Pnl Nl)"},{"Add":" (while (or (pair (val Tp1)) (pair (val Tp2)))"},{"Add":" (sigChk Exe)"},{"Add":" (cond"},{"Add":" ((pair (val Alt))"},{"Add":" (set E (val Env))"},{"Add":" (ifn"},{"Add":" (unify"},{"Add":" (car (val Nl))"},{"Add":" (cdar (val Tp1))"},{"Add":" N"},{"Add":" (caar (val Alt)) )"},{"Add":" (when (atom (set Alt (cdr (val Alt))))"},{"Add":" (setq P (caar Q))"},{"Add":" (set Q (cdar Q))"},{"Add":" (setq N (++ P))"},{"Add":" (set"},{"Add":" Nl (++ P)"},{"Add":" Alt (++ P)"},{"Add":" Tp1 (++ P)"},{"Add":" Tp2 (++ P)"},{"Add":" Env P ) )"},{"Add":" (when Dbg"},{"Add":" (let Y (car (val Tp1))"},{"Add":" (when (memq (car Y) Dbg)"},{"Add":" (let (L (get (car Y) $T) I 1)"},{"Add":" (until (equal (car (val Alt)) (car L))"},{"Add":" (inc 'I)"},{"Add":" (shift L) )"},{"Add":" (outWord I) )"},{"Add":" (space)"},{"Add":" (print (uniFill Y))"},{"Add":" (newline) ) ) )"},{"Add":" (when (pair (cdr (val Alt)))"},{"Add":" (set Q"},{"Add":" (cons"},{"Add":" (cons N"},{"Add":" (cons (val Nl)"},{"Add":" (cons @"},{"Add":" (cons (val Tp1) (cons (val Tp2) (val E))) ) ) )"},{"Add":" (car Q) ) ) )"},{"Add":" (set"},{"Add":" Nl (cons N (val Nl))"},{"Add":" Tp2 (cons (cdr (val Tp1)) (val Tp2))"},{"Add":" Tp1 (cdar (val Alt))"},{"Add":" Alt $Nil )"},{"Add":" (inc 'N (hex \"10\")) ) ) # Increment"},{"Add":" ((atom (setq X (val Tp1)))"},{"Add":" (set"},{"Add":" Tp1 (car (val Tp2))"},{"Add":" Tp2 (cdr (val Tp2))"},{"Add":" Nl (cdr (val Nl)) ) )"},{"Add":" ((atom (car X)) # Cut operator"},{"Add":" (while"},{"Add":" (and"},{"Add":" (pair (car Q))"},{"Add":" (>= (caar @) (car (val Nl))) )"},{"Add":" (set Q (cdar Q)) )"},{"Add":" (set Tp1 (cdr X)) )"},{"Add":" ((cnt? (car @))"},{"Add":" (set E (uniRun (cdar X)))"},{"Add":" (let (I (int (caar X)) Y (val Nl))"},{"Add":" (while (gt0 (dec 'I))"},{"Add":" (shift Y) )"},{"Add":" (set"},{"Add":" Nl (cons (car Y) (val Nl))"},{"Add":" Tp2 (cons (cdr X) (val Tp2))"},{"Add":" Tp1 (val E) ) ) )"},{"Add":" ((== @ $Up)"},{"Add":" (if"},{"Add":" (and"},{"Add":" (not"},{"Add":" (nil? (set E (uniRun (cddr (car X))))) )"},{"Add":" (unify"},{"Add":" (car (val Nl))"},{"Add":" (cadr (car X))"},{"Add":" (car (val Nl))"},{"Add":" (val E) ) )"},{"Add":" (set Tp1 (cdr X))"},{"Add":" (setq P (caar Q))"},{"Add":" (set Q (cdar Q))"},{"Add":" (setq N (++ P))"},{"Add":" (set"},{"Add":" Nl (++ P)"},{"Add":" Alt (++ P)"},{"Add":" Tp1 (++ P)"},{"Add":" Tp2 (++ P)"},{"Add":" Env P ) ) )"},{"Add":" ((atom (set Alt (get (caar X) $T)))"},{"Add":" (setq P (caar Q))"},{"Add":" (set Q (cdar Q))"},{"Add":" (setq N (++ P))"},{"Add":" (set"},{"Add":" Nl (++ P)"},{"Add":" Alt (++ P)"},{"Add":" Tp1 (++ P)"},{"Add":" Tp2 (++ P)"},{"Add":" Env P ) ) ) )"},{"Add":" (set E $Nil)"},{"Add":" (let Y (val Env)"},{"Add":" (while (pair (cdr Y))"},{"Add":" (let Z (caar Y)"},{"Add":" (when (== (car Z) ZERO)"},{"Add":" (set E"},{"Add":" (cons"},{"Add":" (cons (shift Z) (lookup ZERO Z))"},{"Add":" (val E) ) ) ) )"},{"Add":" (shift Y) ) )"},{"Add":" (set $Pnl Pnl $Penv Penv $At At)"},{"Add":" (cond"},{"Add":" ((pair (val E)) @)"},{"Add":" ((pair (val Env)) $T)"},{"Add":" (T $Nil) ) ) ) ) )"},{"Add":""},{"Add":"# (-> any [cnt]) -> any"},{"Add":"(de _Arrow (Exe)"},{"Add":" (let (X (cdr Exe) L (val (val $Pnl)))"},{"Add":" (when (cnt? (cadr X))"},{"Add":" (let I (int @)"},{"Add":" (while (gt0 (dec 'I))"},{"Add":" (shift L) ) ) )"},{"Add":" (lookup (car L) (car X)) ) )"},{"Add":""},{"Add":"# (unify 'any) -> lst"},{"Add":"# (unify 'cnt) -> cnt"},{"Add":"(de _Unify (Exe)"},{"Add":" (let"},{"Add":" (X (eval (cadr Exe))"},{"Add":" Pnl (val (val $Pnl))"},{"Add":" N (car Pnl) )"},{"Add":" (ifn (cnt? X)"},{"Add":" (save X"},{"Add":" (if (unify (cadr Pnl) X N X)"},{"Add":" (val (val $Penv))"},{"Add":" $Nil ) )"},{"Add":" (let (I (int @) Penv (val (val $Penv)))"},{"Add":" (while (gt0 (dec 'I))"},{"Add":" (shift Pnl) )"},{"Add":" (let M (car Pnl)"},{"Add":" (while (pair (car Penv))"},{"Add":" (let Y (car @)"},{"Add":" (when (== (car Y) M)"},{"Add":" (let S (cdr Y)"},{"Add":" (unify M S N S) ) ) )"},{"Add":" (shift Penv) ) )"},{"Add":" X ) ) ) )"},{"Add":""},{"Add":"# (group 'lst) -> lst"},{"Add":"(de _Group (Exe)"},{"Add":" (let X (save (eval (cadr Exe)))"},{"Add":" (if (atom X)"},{"Add":" $Nil"},{"Add":" (let Y (cons (cdar X) $Nil)"},{"Add":" (setq Y"},{"Add":" (cons (cons (caar X) (cons Y Y)) $Nil) )"},{"Add":" (let R (save Y)"},{"Add":" (while (pair (shift X))"},{"Add":" (let (L (car X) K (car L))"},{"Add":" (setq Y (cons (cdr L) $Nil))"},{"Add":" (let Z R"},{"Add":" (loop"},{"Add":" (let V (car Z)"},{"Add":" (? (equal K (car V))"},{"Add":" (set"},{"Add":" (shift V)"},{"Add":" (set 2 (car V) Y) ) )"},{"Add":" (? (atom (cdr Z))"},{"Add":" (set 2 Z"},{"Add":" (cons (cons K (cons Y Y)) $Nil) ) )"},{"Add":" (setq Z @) ) ) ) ) )"},{"Add":" (let Z R"},{"Add":" (loop"},{"Add":" (let V (car Z)"},{"Add":" (set 2 V (cddr V)) )"},{"Add":" (? (atom (shift Z))) ) )"},{"Add":" R ) ) ) ) )"},{"Add":""},{"Add":"(local) cmpSort"},{"Add":""},{"Add":"(inline (E A B) cmpSort (X Y)"},{"Add":" (set 4 A X 4 B Y)"},{"Add":" (if (nil? (evList E)) 0 -1) )"},{"Add":""},{"Add":"# (sort 'lst ['fun]) -> lst"},{"Add":"(de _Sort (Exe)"},{"Add":" (let (X (cdr Exe) Y (eval (++ X)))"},{"Add":" (cond"},{"Add":" ((atom Y) @)"},{"Add":" ((atom X)"},{"Add":" (let (Out0 Y Out1 $Nil)"},{"Add":" (loop"},{"Add":" (let (In0 Out0 In1 Out1 P)"},{"Add":" (if"},{"Add":" (and"},{"Add":" (pair In1)"},{"Add":" (ge0 (compare (car In0) (car In1))) )"},{"Add":" (setq In1 (cdr (setq P In1)))"},{"Add":" (setq In0 (cdr (setq P In0))) )"},{"Add":" (let (Tail0 (ofs P 1) Tail1 0 Last (car P))"},{"Add":" (setq Out0 P Out1 $Nil)"},{"Add":" (set 2 P $Nil)"},{"Add":" (while (or (pair In0) (pair In1))"},{"Add":" (cond"},{"Add":" ((atom In1)"},{"Add":" (setq In0 (cdr (setq P In0)))"},{"Add":" (when (lt0 (compare (car P) Last))"},{"Add":" (xchg 'Tail0 'Tail1) ) )"},{"Add":" ((atom In0)"},{"Add":" (setq In1 (cdr (setq P In1)))"},{"Add":" (when (lt0 (compare (car P) Last))"},{"Add":" (xchg 'Tail0 'Tail1) ) )"},{"Add":" ((lt0 (compare (car In0) Last))"},{"Add":" (if (ge0 (compare (car In1) Last))"},{"Add":" (setq In1 (cdr (setq P In1)))"},{"Add":" (if (lt0 (compare (car In0) (car In1)))"},{"Add":" (setq In0 (cdr (setq P In0)))"},{"Add":" (setq In1 (cdr (setq P In1))) )"},{"Add":" (xchg 'Tail0 'Tail1) ) )"},{"Add":" ((lt0 (compare (car In1) Last))"},{"Add":" (setq In0 (cdr (setq P In0))) )"},{"Add":" ((lt0 (compare (car In0) (car In1)))"},{"Add":" (setq In0 (cdr (setq P In0))) )"},{"Add":" (T (setq In1 (cdr (setq P In1)))) )"},{"Add":" (setq Tail0"},{"Add":" (ofs"},{"Add":" (if Tail0"},{"Add":" (set Tail0 P)"},{"Add":" (setq Out1 P) )"},{"Add":" 1 ) )"},{"Add":" (set 2 P $Nil)"},{"Add":" (setq Last (car P)) ) ) )"},{"Add":" (? (atom Out1) Out0) ) ) )"},{"Add":" (T"},{"Add":" (let"},{"Add":" (Out0 (link (push Y NIL) T)"},{"Add":" Out1 (link (push $Nil NIL))"},{"Add":" In0 (link (push -ZERO NIL))"},{"Add":" In1 (link (push -ZERO NIL))"},{"Add":" P (link (push -ZERO NIL))"},{"Add":" B (push NIL $Nil ZERO NIL NIL) # [car cdr name arg2 link]"},{"Add":" A (push NIL B ZERO NIL NIL) # [car cdr name arg1 link]"},{"Add":" E (push NIL A ZERO (eval (car X)) NIL) ) # [car cdr name fun link]"},{"Add":" (set"},{"Add":" B (link (ofs B 3))"},{"Add":" A (link (ofs A 3))"},{"Add":" E (link (ofs E 3)) )"},{"Add":" (loop"},{"Add":" (set In0 (val Out0) In1 (val Out1))"},{"Add":" (if"},{"Add":" (and"},{"Add":" (pair (val In1))"},{"Add":" (ge0 (cmpSort (caar In0) (caar In1))) )"},{"Add":" (set In1 (cdr (set P (val In1))))"},{"Add":" (set In0 (cdr (set P (val In0)))) )"},{"Add":" (let (Tail0 (ofs (val P) 1) Tail1 0 Last (caar P))"},{"Add":" (set Out0 (val P) Out1 $Nil)"},{"Add":" (set 2 (val P) $Nil)"},{"Add":" (while (or (pair (val In0)) (pair (val In1)))"},{"Add":" (cond"},{"Add":" ((atom (val In1))"},{"Add":" (set In0 (cdr (set P (val In0))))"},{"Add":" (when (lt0 (cmpSort (caar P) Last))"},{"Add":" (xchg 'Tail0 'Tail1) ) )"},{"Add":" ((atom (val In0))"},{"Add":" (set In1 (cdr (set P (val In1))))"},{"Add":" (when (lt0 (cmpSort (caar P) Last))"},{"Add":" (xchg 'Tail0 'Tail1) ) )"},{"Add":" ((lt0 (cmpSort (caar In0) Last))"},{"Add":" (if (ge0 (cmpSort (caar In1) Last))"},{"Add":" (set In1 (cdr (set P (val In1))))"},{"Add":" (if (lt0 (cmpSort (caar In0) (caar In1)))"},{"Add":" (set In0 (cdr (set P (val In0))))"},{"Add":" (set In1 (cdr (set P (val In1)))) )"},{"Add":" (xchg 'Tail0 'Tail1) ) )"},{"Add":" ((lt0 (cmpSort (caar In1) Last))"},{"Add":" (set In0 (cdr (set P (val In0)))) )"},{"Add":" ((lt0 (cmpSort (caar In0) (caar In1)))"},{"Add":" (set In0 (cdr (set P (val In0)))) )"},{"Add":" (T (set In1 (cdr (set P (val In1))))) )"},{"Add":" (setq Tail0"},{"Add":" (ofs"},{"Add":" (if Tail0"},{"Add":" (set Tail0 (val P))"},{"Add":" (set Out1 (val P)) )"},{"Add":" 1 ) )"},{"Add":" (set 2 (val P) $Nil)"},{"Add":" (setq Last (caar P)) ) )"},{"Add":" (? (atom (val Out1)) (val Out0)) ) ) ) ) ) )"}]}},{"FileAdd":{"meta":{"basename":"ssl.c","metadata":0},"context":[{"change":0,"pos":63931}],"contents":[{"Add":"// 09nov22 Software Lab. Alexander Burger"},{"Add":""},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":""},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":""},{"Add":"typedef enum {NO,YES} bool;"},{"Add":""},{"Add":"static bool Safe, Hold, Done;"},{"Add":""},{"Add":"static char Node[40]; // 0000:0000:0000:0000:0000:0000:0000:0000"},{"Add":""},{"Add":"static char Ciphers[] = \"EECDH+AESGCM:EDH+AESGCM:AES256+EECDH:AES256+EDH\";"},{"Add":""},{"Add":"static char Get[] ="},{"Add":" \"GET /%s HTTP/1.0\\r\\n\""},{"Add":" \"User-Agent: PicoLisp\\r\\n\""},{"Add":" \"Host: %s:%s\\r\\n\""},{"Add":" \"Accept-Charset: utf-8\\r\\n\\r\\n\";"},{"Add":""},{"Add":"static void giveup(char *msg) {"},{"Add":" fprintf(stderr, \"ssl: %s\", msg);"},{"Add":" putc('\\n',stderr);"},{"Add":" exit(1);"},{"Add":"}"},{"Add":""},{"Add":"static int sslConnect(SSL *ssl, char *node, char *service) {"},{"Add":" struct addrinfo hints, *lst, *p;"},{"Add":" int n, fd, sd;"},{"Add":" char *q;"},{"Add":""},{"Add":" if (strchr(node, '/') && (fd = open(node, O_RDONLY)) >= 0) {"},{"Add":" if ((n = read(fd, Node, sizeof(Node))) > 0) {"},{"Add":" if ((q = strchr(Node, '\\n')) && q < Node+n)"},{"Add":" *q = '\\0';"},{"Add":" node = Node;"},{"Add":" }"},{"Add":" close(fd);"},{"Add":" }"},{"Add":" memset(&hints, 0, sizeof(hints));"},{"Add":" hints.ai_family = AF_UNSPEC;"},{"Add":" hints.ai_socktype = SOCK_STREAM;"},{"Add":" if (getaddrinfo(node, service, &hints, &lst) == 0) {"},{"Add":" for (p = lst; p; p = p->ai_next) {"},{"Add":" if ((sd = socket(p->ai_family, p->ai_socktype, 0)) >= 0) {"},{"Add":" if (connect(sd, p->ai_addr, p->ai_addrlen) == 0) {"},{"Add":" SSL_set_fd(ssl, sd);"},{"Add":" if (SSL_connect(ssl) == 1) {"},{"Add":" X509 *cert;"},{"Add":""},{"Add":" freeaddrinfo(lst);"},{"Add":" if (Safe)"},{"Add":" return sd;"},{"Add":" if (cert = SSL_get_peer_certificate(ssl)) {"},{"Add":" X509_free(cert);"},{"Add":" if (SSL_get_verify_result(ssl) == X509_V_OK)"},{"Add":" return sd;"},{"Add":" }"},{"Add":" return -1;"},{"Add":" }"},{"Add":" }"},{"Add":" close(sd);"},{"Add":" }"},{"Add":" }"},{"Add":" freeaddrinfo(lst);"},{"Add":" }"},{"Add":" return -1;"},{"Add":"}"},{"Add":""},{"Add":"static void sslClose(SSL *ssl, int sd) {"},{"Add":" SSL_shutdown(ssl);"},{"Add":" SSL_clear(ssl);"},{"Add":" close(sd);"},{"Add":"}"},{"Add":""},{"Add":"static bool sslFile(SSL *ssl, char *file) {"},{"Add":" int fd, n;"},{"Add":" char buf[BUFSIZ];"},{"Add":""},{"Add":" if (file[0] == '-') {"},{"Add":" if (file[1] != '\\0')"},{"Add":" return SSL_write(ssl, file+1, strlen(file)-1) >= 0;"},{"Add":" fd = STDIN_FILENO;"},{"Add":" }"},{"Add":" else if ((fd = open(file, O_RDONLY)) < 0)"},{"Add":" return NO;"},{"Add":" while ((n = read(fd, buf, sizeof(buf))) > 0)"},{"Add":" if (SSL_write(ssl, buf, n) < 0) {"},{"Add":" close(fd);"},{"Add":" return NO;"},{"Add":" }"},{"Add":" close(fd);"},{"Add":" return n == 0;"},{"Add":"}"},{"Add":""},{"Add":"static off_t lockFile(int fd) {"},{"Add":" struct flock fl;"},{"Add":" struct stat st;"},{"Add":""},{"Add":" fl.l_type = F_WRLCK;"},{"Add":" fl.l_whence = SEEK_SET;"},{"Add":" fl.l_start = 0;"},{"Add":" fl.l_len = 0;"},{"Add":" if (fcntl(fd, F_SETLKW, &fl) < 0)"},{"Add":" giveup(\"Can't lock\");"},{"Add":" if (fstat(fd, &st) < 0)"},{"Add":" giveup(\"Can't access\");"},{"Add":" if (st.st_size == 0)"},{"Add":" giveup(\"Size error\");"},{"Add":" return st.st_size;"},{"Add":"}"},{"Add":""},{"Add":"static void doSigTerm(int n __attribute__((unused))) {"},{"Add":" if (Hold)"},{"Add":" Done = YES;"},{"Add":" else"},{"Add":" exit(0);"},{"Add":"}"},{"Add":""},{"Add":"static void iSigTerm(int n) {"},{"Add":" struct sigaction act;"},{"Add":""},{"Add":" act.sa_handler = doSigTerm;"},{"Add":" sigemptyset(&act.sa_mask);"},{"Add":" act.sa_flags = 0;"},{"Add":" sigaction(n, &act, NULL);"},{"Add":"}"},{"Add":""},{"Add":"// ssl host port [url key file]"},{"Add":"// ssl host port url key file dir sec [min] [dir ..]"},{"Add":"int main(int ac, char *av[]) {"},{"Add":" bool dbg;"},{"Add":" SSL_CTX *ctx;"},{"Add":" SSL *ssl;"},{"Add":" int i, n, sec, lim, getLen, lenLen, fd, sd;"},{"Add":" char *file, *dir, *data;"},{"Add":" DIR *dp;"},{"Add":" struct dirent *p;"},{"Add":" struct stat st;"},{"Add":" off_t size, size2;"},{"Add":" char get[1024], buf[4096], nm[4096], len[64];"},{"Add":""},{"Add":" if (dbg = strcmp(av[ac-1], \"+\") == 0)"},{"Add":" --ac;"},{"Add":" if (!(ac >= 3 && ac <= 6 || ac >= 8))"},{"Add":" giveup(\"host port [url key file] | host port url key file dir sec [min] [dir ..]\");"},{"Add":" if (*av[2] == '-')"},{"Add":" ++av[2], Safe = YES;"},{"Add":" if (ac <= 3)"},{"Add":" getLen = 0;"},{"Add":" else {"},{"Add":" if (strlen(Get)+strlen(av[1])+strlen(av[2])+strlen(av[3]) >= sizeof(get))"},{"Add":" giveup(\"Names too long\");"},{"Add":" getLen = sprintf(get, Get, av[3], av[1], av[2]);"},{"Add":" }"},{"Add":""},{"Add":" SSL_library_init();"},{"Add":" SSL_load_error_strings();"},{"Add":" if (!(ctx = SSL_CTX_new(SSLv23_client_method())) || !SSL_CTX_set_default_verify_paths(ctx)) {"},{"Add":" ERR_print_errors_fp(stderr);"},{"Add":" giveup(\"SSL init\");"},{"Add":" }"},{"Add":" SSL_CTX_set_options(ctx,"},{"Add":" SSL_OP_NO_SSLv2 | SSL_OP_NO_SSLv3 | SSL_OP_NO_TLSv1 |"},{"Add":" SSL_OP_NO_TLSv1_1 | SSL_OP_ALL | SSL_OP_NO_COMPRESSION );"},{"Add":" SSL_CTX_set_cipher_list(ctx, Ciphers);"},{"Add":" ssl = SSL_new(ctx);"},{"Add":" SSL_set_tlsext_host_name(ssl, av[1]);"},{"Add":" if (!Safe) {"},{"Add":" X509_VERIFY_PARAM *par = SSL_get0_param(ssl);"},{"Add":" X509_VERIFY_PARAM_set_hostflags(par, X509_CHECK_FLAG_NO_PARTIAL_WILDCARDS);"},{"Add":" X509_VERIFY_PARAM_set1_host(par, av[1], 0);"},{"Add":" SSL_set_verify(ssl, SSL_VERIFY_PEER, NULL);"},{"Add":" }"},{"Add":""},{"Add":" signal(SIGCHLD,SIG_IGN); /* Prevent zombies */"},{"Add":" signal(SIGPIPE, SIG_IGN);"},{"Add":" if (ac <= 6) {"},{"Add":" if (sslConnect(ssl, av[1], av[2]) < 0) {"},{"Add":" ERR_print_errors_fp(stderr);"},{"Add":" exit(1);"},{"Add":" }"},{"Add":" if (getLen && SSL_write(ssl, get, getLen) < 0) {"},{"Add":" ERR_print_errors_fp(stderr);"},{"Add":" giveup(\"SSL GET\");"},{"Add":" }"},{"Add":" if (ac > 4) {"},{"Add":" if (*av[4] && !sslFile(ssl,av[4]))"},{"Add":" giveup(\"Can't send\");"},{"Add":" if (ac > 5 && *av[5] && !sslFile(ssl,av[5]))"},{"Add":" giveup(\"Can't send\");"},{"Add":" }"},{"Add":" if (!getLen && !fork()) {"},{"Add":" while ((n = read(STDIN_FILENO, buf, sizeof(buf))) > 0)"},{"Add":" SSL_write(ssl, buf, n);"},{"Add":" return 0;"},{"Add":" }"},{"Add":" while ((n = SSL_read(ssl, buf, sizeof(buf))) > 0)"},{"Add":" write(STDOUT_FILENO, buf, n);"},{"Add":" if (dbg)"},{"Add":" ERR_print_errors_fp(stderr);"},{"Add":" return 0;"},{"Add":" }"},{"Add":" if (!dbg) {"},{"Add":" if ((n = fork()) < 0)"},{"Add":" giveup(\"Can't detach\");"},{"Add":" if (n)"},{"Add":" return 0;"},{"Add":" setsid();"},{"Add":" }"},{"Add":" file = av[5];"},{"Add":" dir = av[6];"},{"Add":" sec = atoi(av[7]);"},{"Add":" iSigTerm(SIGINT);"},{"Add":" iSigTerm(SIGTERM);"},{"Add":" lim = 0;"},{"Add":" if (ac >= 9 && *av[8]) {"},{"Add":" if ((lim = atoi(av[8])) == 0) {"},{"Add":" printf(\"%d\\n\", getpid());"},{"Add":" fflush(stdout);"},{"Add":" }"},{"Add":" else {"},{"Add":" iSigTerm(SIGALRM);"},{"Add":" alarm(lim *= 60);"},{"Add":" }"},{"Add":" }"},{"Add":" for (;;) {"},{"Add":" if (*file && (fd = open(file, O_RDWR)) >= 0) {"},{"Add":" if (fstat(fd,&st) < 0 || st.st_size == 0)"},{"Add":" close(fd);"},{"Add":" else {"},{"Add":" lenLen = sprintf(len, \"%ld\\n\", size = lockFile(fd));"},{"Add":" if ((data = malloc(size)) == NULL)"},{"Add":" giveup(\"Can't alloc\");"},{"Add":" if (read(fd, data, size) != size)"},{"Add":" giveup(\"Can't read\");"},{"Add":" close(fd);"},{"Add":" alarm(0);"},{"Add":" for (nm[0] = '\\0', i = 9; i < ac; ++i) {"},{"Add":" if (dp = opendir(av[i])) {"},{"Add":" int max = 0;"},{"Add":" char *q;"},{"Add":""},{"Add":" while (p = readdir(dp))"},{"Add":" if ((n = (int)strtol(p->d_name, &q, 10)) > max && !*q)"},{"Add":" max = n;"},{"Add":" if (nm[0]) {"},{"Add":" snprintf(buf, sizeof(buf), \"%s%d\", av[i], max + 1);"},{"Add":" link(nm, buf);"},{"Add":" }"},{"Add":" else {"},{"Add":" snprintf(nm, sizeof(nm), \"%s%d\", av[i], max + 1);"},{"Add":" if ((fd = open(nm, O_CREAT|O_EXCL|O_WRONLY, 0666)) < 0)"},{"Add":" nm[0] = '\\0';"},{"Add":" else {"},{"Add":" write(fd, data, size);"},{"Add":" close(fd);"},{"Add":" }"},{"Add":" }"},{"Add":" closedir(dp);"},{"Add":" }"},{"Add":" }"},{"Add":" if (!*av[4])"},{"Add":" goto truncate;"},{"Add":" for (;;) {"},{"Add":" if ((sd = sslConnect(ssl, av[1], av[2])) >= 0) {"},{"Add":" if (SSL_write(ssl, get, getLen) == getLen &&"},{"Add":" sslFile(ssl,av[4]) && // key"},{"Add":" SSL_write(ssl, len, lenLen) == lenLen && // length"},{"Add":" SSL_write(ssl, data, size) == size && // data"},{"Add":" SSL_write(ssl, \"T\", 1) == 1 && // ack"},{"Add":" SSL_read(ssl, buf, 1) == 1 && buf[0] == 'T' ) {"},{"Add":" sslClose(ssl,sd);"},{"Add":" truncate:"},{"Add":" if ((fd = open(file, O_RDWR)) < 0)"},{"Add":" giveup(\"Can't re-open\");"},{"Add":" if (size2 = lockFile(fd) - size) {"},{"Add":" if ((data = realloc(data, size2)) == NULL)"},{"Add":" giveup(\"Can't re-alloc\");"},{"Add":" if (pread(fd, data, size2, size) != size2)"},{"Add":" giveup(\"Can't re-read\");"},{"Add":" Hold = YES;"},{"Add":" if (pwrite(fd, data, size2, 0) != size2)"},{"Add":" giveup(\"Can't re-write\");"},{"Add":" }"},{"Add":" if (ftruncate(fd, size2) < 0)"},{"Add":" giveup(\"Can't truncate\");"},{"Add":" close(fd);"},{"Add":" Hold = NO;"},{"Add":" if (Done)"},{"Add":" exit(0);"},{"Add":" break;"},{"Add":" }"},{"Add":" sslClose(ssl,sd);"},{"Add":" }"},{"Add":" if (dbg)"},{"Add":" ERR_print_errors_fp(stderr);"},{"Add":" sleep(sec);"},{"Add":" }"},{"Add":" alarm(lim);"},{"Add":" free(data);"},{"Add":" }"},{"Add":" }"},{"Add":" if (*av[4] && *dir && (dp = opendir(dir))) {"},{"Add":" char *pwd = getcwd(NULL, 0);"},{"Add":""},{"Add":" while (p = readdir(dp)) {"},{"Add":" if (p->d_name[0] == '=') {"},{"Add":" snprintf(nm, sizeof(nm), \"%s%s\", dir, p->d_name);"},{"Add":" if ((n = readlink(nm, buf, sizeof(buf))) > 0)"},{"Add":" if (stat(nm, &st) < 0)"},{"Add":" unlink(nm);"},{"Add":" else {"},{"Add":" buf[n] = '\\0';"},{"Add":" for (i = 9; i < ac; ++i) {"},{"Add":" if (chdir(av[i]) == 0) {"},{"Add":" char *q = av[i];"},{"Add":" char nm2[4096];"},{"Add":""},{"Add":" nm2[0] = '\\0';"},{"Add":" do"},{"Add":" if (*q == '/')"},{"Add":" strcat(nm2, \"../\");"},{"Add":" while (*++q);"},{"Add":" strcat(nm2, dir);"},{"Add":" strcat(nm2, buf);"},{"Add":" symlink(nm2, p->d_name);"},{"Add":" chdir(pwd);"},{"Add":" }"},{"Add":" }"},{"Add":" lenLen = sprintf(len, \"%ld\\n\", st.st_size);"},{"Add":" buf[n++] = '\\n';"},{"Add":" alarm(lim);"},{"Add":" if ((sd = sslConnect(ssl, av[1], av[2])) >= 0) {"},{"Add":" if (SSL_write(ssl, get, getLen) == getLen &&"},{"Add":" sslFile(ssl,av[4]) && // key"},{"Add":" SSL_write(ssl, buf, n) == n && // path"},{"Add":" SSL_write(ssl, len, lenLen) == lenLen && // length"},{"Add":" sslFile(ssl, nm) && // file"},{"Add":" SSL_write(ssl, \"T\", 1) == 1 && // ack"},{"Add":" SSL_read(ssl, buf, 1) == 1 && buf[0] == 'T' )"},{"Add":" unlink(nm);"},{"Add":" sslClose(ssl,sd);"},{"Add":" }"},{"Add":" if (dbg)"},{"Add":" ERR_print_errors_fp(stderr);"},{"Add":" }"},{"Add":" }"},{"Add":" }"},{"Add":" free(pwd);"},{"Add":" closedir(dp);"},{"Add":" }"},{"Add":" sleep(sec);"},{"Add":" }"},{"Add":"}"}]}},{"FileAdd":{"meta":{"basename":"pico.h","metadata":0},"context":[{"change":0,"pos":63931}],"contents":[{"Add":"// 09apr22 Software Lab. Alexander Burger"},{"Add":""},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":""},{"Add":"typedef void (*sighandler_t)(int);"},{"Add":""},{"Add":"// Lisp data access"},{"Add":"typedef uint64_t any;"},{"Add":""},{"Add":"#define cnt(x) ((x) & 2)"},{"Add":"#define num(x) ((x) & 6)"},{"Add":"#define sym(x) ((x) & 8)"},{"Add":"#define sign(x) ((x) & 8)"},{"Add":"#define atom(x) ((x) & 15)"},{"Add":""},{"Add":"#define car(x) (*(uint64_t*)(x))"},{"Add":"#define cdr(x) (*(uint64_t*)((x) + 8))"},{"Add":"#define set(p,x) (*(uint64_t*)(p) = (x))"},{"Add":"#define val(x) (*(uint64_t*)(x))"},{"Add":"#define dig(x) ((x) - 4)"},{"Add":"#define big(x) ((x) + 4)"},{"Add":"#define tail(x) ((x) - 8)"},{"Add":""},{"Add":"any name(any);"},{"Add":"any number(any);"},{"Add":"any length(any);"},{"Add":"any box64(any);"},{"Add":""},{"Add":"extern uint64_t SymTab[];"},{"Add":"#define Nil (0+1)"},{"Add":"// Sync src/glob.l 'T'"},{"Add":"#define T (17*2+1)"},{"Add":"#define N (18*2+1)"},{"Add":"#define C (19*2+1)"},{"Add":"#define S (20*2+1)"},{"Add":"#define B (21*2+1)"},{"Add":"#define I (22*2+1)"},{"Add":"#define P (23*2+1)"},{"Add":"#define W (24*2+1)"},{"Add":""},{"Add":"uint64_t boxNum(uint64_t);"},{"Add":"int32_t bufSize(uint64_t);"},{"Add":"char *bufString(uint64_t, char*);"},{"Add":"uint64_t natBuf(uint64_t, char*);"},{"Add":"uint64_t natRetBuf(uint64_t, char**);"},{"Add":""},{"Add":"void argErr(uint64_t, uint64_t) __attribute__ ((noreturn));"},{"Add":"void err(uint64_t, uint64_t, char*, char*) __attribute__ ((noreturn));"}]}},{"FileAdd":{"meta":{"basename":"main.l","metadata":0},"context":[{"change":0,"pos":63931}],"contents":[{"Add":"# 13dec23 Software Lab. Alexander Burger"},{"Add":""},{"Add":"(symbols '(llvm))"},{"Add":""},{"Add":"(begin \"base\" NIL"},{"Add":" \"vers.l\" \"defs.l\" \"glob.l\" \"dec.l\" )"},{"Add":""},{"Add":"(local) (execAt runAt wrnl dbg)"},{"Add":""},{"Add":"(de execAt (Prg)"},{"Add":" (let At (save (val $At))"},{"Add":" (exec Prg)"},{"Add":" (set $At At) ) )"},{"Add":""},{"Add":"(de runAt (Prg)"},{"Add":" (let At (save (val $At))"},{"Add":" (prog1"},{"Add":" (run Prg)"},{"Add":" (set $At At) ) ) )"},{"Add":""},{"Add":"(de wrnl ()"},{"Add":" (write 1 ($ \"\\n\") 1) )"},{"Add":""},{"Add":"(de dbg ((i64 . N) X)"},{"Add":" (let (Out (val $OutFile) Put (val (i8** $Put)))"},{"Add":" (set"},{"Add":" $OutFile (val 3 (val $OutFiles)) # Stderr"},{"Add":" $Put (fun (void i8) _putStdout) )"},{"Add":" (outWord N)"},{"Add":" (when X"},{"Add":" (space)"},{"Add":" (print X) )"},{"Add":" (newline)"},{"Add":" (set (i8** $Put) Put $OutFile Out) )"},{"Add":" X )"},{"Add":""},{"Add":""},{"Add":"(local) (put get popInFiles popOutFiles popErrFiles"},{"Add":"popCtlFiles)"},{"Add":""},{"Add":"(de void put (any any any))"},{"Add":"(de any get (any any))"},{"Add":"(de void popInFiles ())"},{"Add":"(de void popOutFiles ())"},{"Add":"(de void popErrFiles ())"},{"Add":"(de void popCtlFiles ())"},{"Add":""},{"Add":"(local) (stop unwind)"},{"Add":""},{"Add":"# Stop coroutine"},{"Add":"(de void stop ((i8* . Crt))"},{"Add":" (let Crt: (coroutine Crt)"},{"Add":" (when (symb? (Crt: tag))"},{"Add":" (put @ ZERO $Nil) )"},{"Add":" (Crt: tag 0) # Set unused"},{"Add":" (Crt: lim (val $CrtFree)) # Link into free list"},{"Add":" (set $CrtFree Crt) ) )"},{"Add":""},{"Add":"# Unwind stack"},{"Add":"(de void unwind ((i8* . Catch))"},{"Add":" (let (Ca (val $Catch) Bnd (val $Bind))"},{"Add":" (while Ca"},{"Add":" (let Ca: (caFrame Ca)"},{"Add":" (while (and Bnd (<> Bnd (Ca: (env $Bind any))))"},{"Add":" (set (val 2 Bnd) (val Bnd)) # Restore values"},{"Add":" (setq Bnd (val 3 Bnd)) )"},{"Add":" (until (== (val $CtlFrames) (Ca: (env $CtlFrames i8*)))"},{"Add":" (popCtlFiles) )"},{"Add":" (until (== (val $ErrFrames) (Ca: (env $ErrFrames i8*)))"},{"Add":" (popErrFiles) )"},{"Add":" (unless (== (val $OutFrames) (Ca: (env $OutFrames i8*)))"},{"Add":" (loop"},{"Add":" (popOutFiles)"},{"Add":" (? (== (val $OutFrames) (Ca: (env $OutFrames i8*)))) ) )"},{"Add":" (unless (== (val $InFrames) (Ca: (env $InFrames i8*)))"},{"Add":" (loop"},{"Add":" (popInFiles)"},{"Add":" (? (== (val $InFrames) (Ca: (env $InFrames i8*)))) ) )"},{"Add":" (let (Src (val $Current) Dst (Ca: co))"},{"Add":" (unless Dst"},{"Add":" (setq Dst (val $Coroutines)) )"},{"Add":" (unless (== Src Dst)"},{"Add":" (stop Src)"},{"Add":" (let Crt: (coroutine (set $Current Dst))"},{"Add":" (getCrtEnv (Crt:))"},{"Add":" (set $At (Crt: at)) ) ) )"},{"Add":" (getCaEnv (Ca:))"},{"Add":" (eval (Ca: fin)) # Evaluate 'finally' expression"},{"Add":" (set $Catch (Ca: link))"},{"Add":" (when (== Ca Catch)"},{"Add":" (ret) )"},{"Add":" (setq Ca (Ca: link)) ) )"},{"Add":" (while Bnd"},{"Add":" (set (val 2 Bnd) (val Bnd)) # Restore values"},{"Add":" (setq Bnd (val 3 Bnd)) )"},{"Add":" (set $Bind 0)"},{"Add":" (while (val $CtlFrames)"},{"Add":" (popCtlFiles) )"},{"Add":" (while (val $ErrFrames)"},{"Add":" (popErrFiles) )"},{"Add":" (unless (== (val $OutFrames) (val $Stdout))"},{"Add":" (loop"},{"Add":" (popOutFiles)"},{"Add":" (? (== (val $OutFrames) (val $Stdout))) ) )"},{"Add":" (unless (== (val $InFrames) (val $Stdin))"},{"Add":" (loop"},{"Add":" (popInFiles)"},{"Add":" (? (== (val $InFrames) (val $Stdin))) ) )"},{"Add":" (let (Src (val $Current) Dst (val $Coroutines))"},{"Add":" (unless (== Src Dst)"},{"Add":" (stop Src)"},{"Add":" (let Crt: (coroutine (set $Current Dst))"},{"Add":" (getCrtEnv (Crt:))"},{"Add":" (set $At (Crt: at)) ) ) ) ) )"},{"Add":""},{"Add":"# Exit"},{"Add":"(local) (finish giveup bye execErr)"},{"Add":""},{"Add":"(de NIL finish ((i32 . N))"},{"Add":" (setCooked)"},{"Add":" (exit N) )"},{"Add":""},{"Add":"(de NIL giveup ((i8* . Msg))"},{"Add":" (stderrMsg ($ \"Give up: %s\\n\") Msg)"},{"Add":" (finish 1) )"},{"Add":""},{"Add":"(de NIL bye ((i32 . N))"},{"Add":" (unless (val $InBye)"},{"Add":" (set $InBye YES)"},{"Add":" (unwind null)"},{"Add":" (exec (val $Bye)) )"},{"Add":" (flushAll)"},{"Add":" (finish N) )"},{"Add":""},{"Add":"(de NIL execErr ((i8* . Cmd))"},{"Add":" (stderrMsg ($ \"%s: Can't exec\\n\") Cmd)"},{"Add":" (exit 127) )"},{"Add":""},{"Add":"# Memory"},{"Add":"(local) (alloc heapAlloc)"},{"Add":""},{"Add":"(de i8* alloc ((i8* . Ptr) (i64 . Siz))"},{"Add":" (unless (realloc Ptr Siz) # Reallocate pointer"},{"Add":" (giveup ($ \"No memory\")) )"},{"Add":" @ )"},{"Add":""},{"Add":"(de void heapAlloc ()"},{"Add":" (let"},{"Add":" (H (any (alloc null (* 8 (inc HEAP))))"},{"Add":" P (ofs H HEAP)"},{"Add":" A (val $Avail) )"},{"Add":" (set P (val $Heaps) $Heaps H)"},{"Add":" (loop"},{"Add":" (set (setq P (ofs P -2)) A) # Link avail"},{"Add":" (? (== (setq A P) H)) )"},{"Add":" (set $Avail A) ) )"},{"Add":""},{"Add":"# Signals"},{"Add":"(local) (sig sigTerm sighandler)"},{"Add":""},{"Add":"(de void sig ((i32 . N))"},{"Add":" (if (val $TtyPid)"},{"Add":" (kill @ N)"},{"Add":" (set $Signal (+ (val $Signal) 1))"},{"Add":" (let P (ofs $Signal (gSignal N))"},{"Add":" (set P (+ (val P) 1)) ) ) )"},{"Add":""},{"Add":"(de void sigTerm ((i32 . N))"},{"Add":" (if (val $TtyPid)"},{"Add":" (kill @ N)"},{"Add":" (set $Signal (+ (val $Signal) 1))"},{"Add":" (let P (ofs $Signal (gSignal (val SIGTERM Sig)))"},{"Add":" (set P (+ (val P) 1)) ) ) )"},{"Add":""},{"Add":"(de void sighandler (Exe)"},{"Add":" (unless (val $Protect)"},{"Add":" (set $Protect 1)"},{"Add":" (let P T"},{"Add":" (loop"},{"Add":" (cond"},{"Add":" ((val (setq P (ofs $Signal SIGIO)))"},{"Add":" (set P (dec @))"},{"Add":" (set $Signal (dec (val $Signal)))"},{"Add":" (execAt (val $Sigio)) )"},{"Add":" ((val (setq P (ofs $Signal SIGUSR1)))"},{"Add":" (set P (dec @))"},{"Add":" (set $Signal (dec (val $Signal)))"},{"Add":" (execAt (val $Sig1)) )"},{"Add":" ((val (setq P (ofs $Signal SIGUSR2)))"},{"Add":" (set P (dec @))"},{"Add":" (set $Signal (dec (val $Signal)))"},{"Add":" (execAt (val $Sig2)) )"},{"Add":" ((val (setq P (ofs $Signal SIGALRM)))"},{"Add":" (set P (dec @))"},{"Add":" (set $Signal (dec (val $Signal)))"},{"Add":" (execAt (val $Alarm)) )"},{"Add":" ((val (setq P (ofs $Signal SIGHUP)))"},{"Add":" (set P (dec @))"},{"Add":" (set $Signal (dec (val $Signal)))"},{"Add":" (execAt (val $Hup)) )"},{"Add":" ((val (setq P (ofs $Signal SIGINT)))"},{"Add":" (set P (dec @))"},{"Add":" (set $Signal (dec (val $Signal)))"},{"Add":" (unless (val $PRepl) # Not child of REPL process?"},{"Add":" (wrnl)"},{"Add":" (rlSigBeg)"},{"Add":" (brkLoad (if Exe @ $Nil))"},{"Add":" (rlSigEnd) ) )"},{"Add":" ((val (setq P (ofs $Signal SIGWINCH)))"},{"Add":" (set P (dec @))"},{"Add":" (set $Signal (dec (val $Signal)))"},{"Add":" (execAt (val $Winch)) )"},{"Add":" ((val (setq P (ofs $Signal SIGTSTP)))"},{"Add":" (set P (dec @))"},{"Add":" (set $Signal (dec (val $Signal)))"},{"Add":" (rlSigBeg)"},{"Add":" (execAt (val $TStp1)) # Run 'TStp1'"},{"Add":" (stopTerm) # Stop"},{"Add":" (iSignal (val SIGTSTP Sig) (fun sig)) # Set signal again"},{"Add":" (execAt (val $TStp2)) # Run 'TStp2'"},{"Add":" (rlSigEnd) )"},{"Add":" ((val (setq P (ofs $Signal SIGTERM)))"},{"Add":" (if (nil? (run (val $Term)))"},{"Add":" (let"},{"Add":" (Cld (val $Child) # Iterate children"},{"Add":" any"},{"Add":"(de _Tty (Exe)"},{"Add":" (let (Out (val $OutFile) Put (val (i8** $Put)))"},{"Add":" (set"},{"Add":" $OutFile (val 3 (val $OutFiles)) # Stderr"},{"Add":" $Put (fun (void i8) _putStdout) )"},{"Add":" (rlHide)"},{"Add":" (prog1"},{"Add":" (run (cdr Exe))"},{"Add":" (flush (val $OutFile))"},{"Add":" (rlShow)"},{"Add":" (set (i8** $Put) Put $OutFile Out) ) ) )"},{"Add":""},{"Add":"# (raw ['flg]) -> flg"},{"Add":"(de _Raw (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (cond"},{"Add":" ((atom X)"},{"Add":" (if (val Termio) $T $Nil) )"},{"Add":" ((nil? (eval (car X))) (setCooked) @)"},{"Add":" (T (setRaw) @) ) ) )"},{"Add":""},{"Add":"# (alarm 'cnt . prg) -> cnt"},{"Add":"(de _Alarm (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (prog1"},{"Add":" (cnt (i64 (alarm (i32 (evCnt Exe X)))))"},{"Add":" (set $Alarm (cdr X)) ) ) )"},{"Add":""},{"Add":"# (sigio 'cnt . prg) -> cnt"},{"Add":"(de _Sigio (Exe)"},{"Add":" (let (X (cdr Exe) Fd (evCnt Exe X))"},{"Add":" (set $Sigio (cdr X))"},{"Add":" (fcntlSetOwn (i32 Fd) (i32 (int (val $Pid))))"},{"Add":" (cnt Fd) ) )"},{"Add":""},{"Add":"# (kids) -> lst"},{"Add":"(de _Kids (Exe)"},{"Add":" (let"},{"Add":" (X $Nil"},{"Add":" Cld (val $Child) # Iterate children"},{"Add":" any"},{"Add":"(de _Protect (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (prog2"},{"Add":" (set $Protect (+ (val $Protect) 1))"},{"Add":" (run X)"},{"Add":" (set $Protect (- (val $Protect) 1)) ) ) )"},{"Add":""},{"Add":"# (heap 'flg) -> cnt"},{"Add":"(de _Heap (Exe)"},{"Add":" (if (nil? (eval (cadr Exe)))"},{"Add":" (let (N 1 P (val $Heaps))"},{"Add":" (while (setq P (val (ofs P HEAP)))"},{"Add":" (inc 'N) )"},{"Add":" (cnt N) )"},{"Add":" (let (N 0 P (val $Avail))"},{"Add":" (while P"},{"Add":" (inc 'N)"},{"Add":" (setq P (car P)) )"},{"Add":" (cnt (shr N (- 20 4))) ) ) ) # Divide by CELLS (1M/16)"},{"Add":""},{"Add":"# (stack ['cnt ['cnt]]) -> cnt | (.. (any . cnt) . cnt)"},{"Add":"(de _Stack (Exe)"},{"Add":" (let (X (cdr Exe) Crt (val $Coroutines))"},{"Add":" (if (or (atom X) (and Crt ((coroutine Crt) nxt)))"},{"Add":" (let R (cnt (shr (val $StkSize) 10))"},{"Add":" (while Crt"},{"Add":" (let Crt: (coroutine Crt)"},{"Add":" (when (Crt: tag) # In use"},{"Add":" (let P (Crt: lim)"},{"Add":" (while (== 7 (val P))"},{"Add":" (inc 'P) )"},{"Add":" (setq R"},{"Add":" (cons2"},{"Add":" (Crt: tag)"},{"Add":" (cnt (shr (- P (Crt: lim)) 10))"},{"Add":" R ) ) ) )"},{"Add":" (setq Crt (Crt: nxt)) ) )"},{"Add":" R )"},{"Add":" (let N (evCnt Exe X)"},{"Add":" (set $StkSize (shl N 10))"},{"Add":" (when (pair (shift X))"},{"Add":" (set $StkSizeT (shl (evCnt Exe X) 10)) )"},{"Add":" (when Crt"},{"Add":" (let (Siz (val $StkSizeT) Stk (stack))"},{"Add":" (memset"},{"Add":" ((coroutine Crt) lim (stack (ofs Stk (- Siz))))"},{"Add":" 7 (- Siz 256) T )"},{"Add":" (stack Stk) ) )"},{"Add":" (cnt N) ) ) ) )"},{"Add":""},{"Add":"# Date and time"},{"Add":"(local) (tmDate tmTime)"},{"Add":""},{"Add":"(de tmDate ((i64 . Y) (i64 . M) (i64 . D))"},{"Add":" (if"},{"Add":" (and"},{"Add":" (gt0 Y)"},{"Add":" (gt0 M)"},{"Add":" (>= 12 M)"},{"Add":" (gt0 D)"},{"Add":" (or"},{"Add":" (>= (i64 (val (ofs $Month M))) D)"},{"Add":" (and"},{"Add":" (== D 29)"},{"Add":" (== M 2)"},{"Add":" (=0 (% Y 4))"},{"Add":" (or (% Y 100) (=0 (% Y 400))) ) ) )"},{"Add":" (let N (/ (+ (* Y 12) M -3) 12)"},{"Add":" (cnt"},{"Add":" (-"},{"Add":" (+"},{"Add":" (/"},{"Add":" (+ (* Y 4404) (* M 367) -1094)"},{"Add":" 12 )"},{"Add":" (/ N 4)"},{"Add":" (/ N 400)"},{"Add":" D )"},{"Add":" (* 2 N)"},{"Add":" (/ N 100) ) ) )"},{"Add":" $Nil ) )"},{"Add":""},{"Add":"(de tmTime ((i64 . H) (i64 . M) (i64 . S))"},{"Add":" (if"},{"Add":" (and"},{"Add":" (ge0 H)"},{"Add":" (ge0 M)"},{"Add":" (> 60 M)"},{"Add":" (ge0 S)"},{"Add":" (> 60 S) )"},{"Add":" (cnt (+ (* H 3600) (* M 60) S))"},{"Add":" $Nil ) )"},{"Add":""},{"Add":"# (date ['T]) -> dat"},{"Add":"# (date 'dat) -> (y m d)"},{"Add":"# (date 'y 'm 'd) -> dat | NIL"},{"Add":"# (date '(y m d)) -> dat | NIL"},{"Add":"(de _Date (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (cond"},{"Add":" ((atom X)"},{"Add":" (let N (getDate)"},{"Add":" (tmDate"},{"Add":" (& N (hex \"FFFF\"))"},{"Add":" (& (shr N 16) (hex \"FF\"))"},{"Add":" (& (shr N 24) (hex \"FF\")) ) ) )"},{"Add":" ((t? (eval (car X)))"},{"Add":" (let N (getGmDate)"},{"Add":" (tmDate"},{"Add":" (& N (hex \"FFFF\"))"},{"Add":" (& (shr N 16) (hex \"FF\"))"},{"Add":" (& (shr N 24) (hex \"FF\")) ) ) )"},{"Add":" ((nil? @) @)"},{"Add":" ((pair @)"},{"Add":" (let L @"},{"Add":" (tmDate"},{"Add":" (xCnt Exe (++ L))"},{"Add":" (xCnt Exe (++ L))"},{"Add":" (xCnt Exe (car L)) ) ) )"},{"Add":" (T"},{"Add":" (let N @"},{"Add":" (cond"},{"Add":" ((pair (shift X))"},{"Add":" (tmDate"},{"Add":" (xCnt Exe N)"},{"Add":" (evCnt Exe X)"},{"Add":" (evCnt Exe (cdr X)) ) )"},{"Add":" ((lt0 (setq N (xCnt Exe N))) $Nil)"},{"Add":" (T"},{"Add":" (let Y (/ (- (* N 100) 20) 3652425)"},{"Add":" (setq"},{"Add":" N (+ N (- Y (/ Y 4)))"},{"Add":" Y (/ (- (* N 100) 20) 36525)"},{"Add":" N (* (- N (/ (* Y 36525) 100)) 10) )"},{"Add":" (let"},{"Add":" (M (/ (- N 5) 306)"},{"Add":" D (/ (+ N (* M -306) 5) 10) )"},{"Add":" (if (> 10 M)"},{"Add":" (inc 'M 3)"},{"Add":" (inc 'Y)"},{"Add":" (dec 'M 9) )"},{"Add":" (cons (cnt Y)"},{"Add":" (cons (cnt M)"},{"Add":" (cons (cnt D) $Nil) ) ) ) ) ) ) ) ) ) ) )"},{"Add":""},{"Add":"# (time ['T]) -> tim"},{"Add":"# (time 'tim) -> (h m s)"},{"Add":"# (time 'h 'm ['s]) -> tim | NIL"},{"Add":"# (time '(h m [s])) -> tim | NIL"},{"Add":"(de _Time (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (cond"},{"Add":" ((atom X) (cnt (getTime)))"},{"Add":" ((t? (eval (car X)))"},{"Add":" (if (lt0 (getGmTime)) $Nil (cnt @)) )"},{"Add":" ((nil? @) @)"},{"Add":" ((pair @)"},{"Add":" (let L @"},{"Add":" (tmTime"},{"Add":" (xCnt Exe (++ L))"},{"Add":" (xCnt Exe (++ L))"},{"Add":" (if (pair L)"},{"Add":" (xCnt Exe (car L))"},{"Add":" 0 ) ) ) )"},{"Add":" (T"},{"Add":" (let N @"},{"Add":" (cond"},{"Add":" ((pair (shift X))"},{"Add":" (tmTime"},{"Add":" (xCnt Exe N)"},{"Add":" (evCnt Exe X)"},{"Add":" (if (pair (shift X)) (evCnt Exe X) 0) ) )"},{"Add":" ((lt0 (setq N (xCnt Exe N))) $Nil)"},{"Add":" (T"},{"Add":" (cons (cnt (/ N 3600))"},{"Add":" (cons (cnt (% (/ N 60) 60))"},{"Add":" (cons (cnt (% N 60)) $Nil) ) ) ) ) ) ) ) ) )"},{"Add":""},{"Add":"# (usec ['flg]) -> num"},{"Add":"(de _Usec (Exe)"},{"Add":" (cnt"},{"Add":" (if (nil? (eval (cadr Exe)))"},{"Add":" (- (getUsec YES) (val $USec))"},{"Add":" (getUsec NO) ) ) )"},{"Add":""},{"Add":"# Try to load dynamic library"},{"Add":"(local) sharedLib"},{"Add":""},{"Add":"(de i1 sharedLib (Sym)"},{"Add":" (let"},{"Add":" (Nm (xName 0 Sym)"},{"Add":" S (bufString Nm (b8 (bufSize Nm)))"},{"Add":" P (strchr S (char \":\")) )"},{"Add":" (and"},{"Add":" P"},{"Add":" (<> P S)"},{"Add":" (val 2 P)"},{"Add":" (let N (val $PilLen)"},{"Add":" (set P 0)"},{"Add":" (let (Len (strlen S) Q (b8 (+ N Len (+ 4 3 1))))"},{"Add":" (if (strchr S (char \"/\"))"},{"Add":" (strcpy Q S)"},{"Add":" (when N"},{"Add":" (memcpy Q (val $PilHome) N) )"},{"Add":" (strcpy (ofs Q N) ($ \"lib/\"))"},{"Add":" (strcpy (ofs Q (+ N 4)) S)"},{"Add":" (setq Len (+ Len N 4)) )"},{"Add":" (strcpy (ofs Q Len) ($ \".so\"))"},{"Add":" (and"},{"Add":" (dlOpen Q)"},{"Add":" (dlsym @ (inc P))"},{"Add":" (prog"},{"Add":" (set Sym (| (i64 @) 2))"},{"Add":" YES ) ) ) ) ) ) )"},{"Add":""},{"Add":"(load \"gc.l\" \"big.l\" \"sym.l\")"},{"Add":""},{"Add":"# Comparisons"},{"Add":"(local) (equalBig equal compare)"},{"Add":""},{"Add":"(inline equalBig (X Y)"},{"Add":" (loop"},{"Add":" (? (<> (val (dig X)) (val (dig Y))) NO)"},{"Add":" (?"},{"Add":" (=="},{"Add":" (setq X (val (big X)))"},{"Add":" (setq Y (val (big Y))) )"},{"Add":" YES )"},{"Add":" (? (cnt? X) NO)"},{"Add":" (? (cnt? Y) NO) ) )"},{"Add":""},{"Add":"(de i1 equal (X Y)"},{"Add":" (cond"},{"Add":" ((== X Y) YES)"},{"Add":" ((cnt? X) NO)"},{"Add":" ((big? X)"},{"Add":" (if (cnt? Y)"},{"Add":" NO"},{"Add":" (when (sign? X)"},{"Add":" (unless (sign? Y)"},{"Add":" (ret NO) )"},{"Add":" (setq X (pos X) Y (pos Y)) )"},{"Add":" (equalBig X Y) ) )"},{"Add":" ((sym? X)"},{"Add":" (cond"},{"Add":" ((num? Y) NO)"},{"Add":" ((pair Y) NO)"},{"Add":" ((sym? (val (tail X))) NO)"},{"Add":" ((== ZERO (setq X (name @))) NO)"},{"Add":" ((sym? (val (tail Y))) NO)"},{"Add":" ((== ZERO (setq Y (name @))) NO)"},{"Add":" ((== X Y) YES)"},{"Add":" ((cnt? X) NO)"},{"Add":" ((cnt? Y) NO)"},{"Add":" (T (equalBig X Y)) ) )"},{"Add":" ((atom Y) NO)"},{"Add":" (T"},{"Add":" (stkChk 0)"},{"Add":" (let (A X B Y)"},{"Add":" (prog1"},{"Add":" (loop"},{"Add":" (? (not (equal (car X) (& (car Y) -2)))"},{"Add":" NO)"},{"Add":" (? (atom (cdr X))"},{"Add":" (equal (cdr X) (cdr Y)) )"},{"Add":" (? (atom (cdr Y)) NO)"},{"Add":" (set X (| (val X) 1)) # Mark"},{"Add":" (shift X)"},{"Add":" (shift Y)"},{"Add":" (? (& (val X) 1) # Detected circularity"},{"Add":" (prog1"},{"Add":" (loop"},{"Add":" (? (== A X)"},{"Add":" (if (== B Y)"},{"Add":" (loop"},{"Add":" (shift A)"},{"Add":" (? (== (shift B) Y) (== A X))"},{"Add":" (? (== A X) YES) )"},{"Add":" NO ) )"},{"Add":" (? (== B Y) NO)"},{"Add":" (set A (& (val A) -2)) # Unmark"},{"Add":" (shift A)"},{"Add":" (shift B) )"},{"Add":" (set A (& (val A) -2)) # Unmark"},{"Add":" (shift A) ) ) )"},{"Add":" (until (== A X)"},{"Add":" (set A (& (val A) -2)) # Unmark"},{"Add":" (shift A) ) ) ) ) ) )"},{"Add":""},{"Add":"(de i64 compare (X Y)"},{"Add":" (cond"},{"Add":" ((== X Y) 0)"},{"Add":" ((nil? X) -1)"},{"Add":" ((t? X) +1)"},{"Add":" ((num? X)"},{"Add":" (cond"},{"Add":" ((num? Y) (cmpNum X Y))"},{"Add":" ((nil? Y) +1)"},{"Add":" (T -1) ) )"},{"Add":" ((sym? X)"},{"Add":" (cond"},{"Add":" ((or (num? Y) (nil? Y)) +1)"},{"Add":" ((or (pair Y) (t? Y)) -1)"},{"Add":" (T"},{"Add":" (let"},{"Add":" (NmX (name (& (val (tail X)) -9))"},{"Add":" NmY (name (& (val (tail Y)) -9)) )"},{"Add":" (cond"},{"Add":" ((== ZERO NmX)"},{"Add":" (nond"},{"Add":" ((== ZERO NmY) -1)"},{"Add":" ((> X Y) -1)"},{"Add":" (NIL +1) ) )"},{"Add":" ((== ZERO NmY) +1)"},{"Add":" (T"},{"Add":" (loop"},{"Add":" (let"},{"Add":" (A"},{"Add":" (if (cnt? NmX)"},{"Add":" (prog1"},{"Add":" (shr (shl (name NmX) 2) 6) # Clear status bits"},{"Add":" (setq NmX 0) )"},{"Add":" (prog1"},{"Add":" (val (dig NmX)) # Next digit"},{"Add":" (setq NmX (val (big NmX))) ) )"},{"Add":" B"},{"Add":" (if (cnt? NmY)"},{"Add":" (prog1"},{"Add":" (shr (shl (name NmY) 2) 6) # Clear status bits"},{"Add":" (setq NmY 0) )"},{"Add":" (prog1"},{"Add":" (val (dig NmY)) # Next digit"},{"Add":" (setq NmY (val (big NmY))) ) ) )"},{"Add":" (loop"},{"Add":" (when (- (& A 255) (& B 255))"},{"Add":" (ret (if (gt0 @) +1 -1)) )"},{"Add":" (? (=0 (setq A (shr A 8)))"},{"Add":" (when (setq B (shr B 8))"},{"Add":" (ret -1) )"},{"Add":" (unless NmX"},{"Add":" (ret (if NmY -1 0)) )"},{"Add":" (unless NmY"},{"Add":" (ret +1) ) )"},{"Add":" (unless (setq B (shr B 8))"},{"Add":" (ret +1) ) ) ) ) ) ) ) ) ) )"},{"Add":" ((atom Y) (if (t? Y) -1 +1))"},{"Add":" (T"},{"Add":" (stkChk 0)"},{"Add":" (let (A X B Y)"},{"Add":" (loop"},{"Add":" (? (compare (car X) (car Y)) @)"},{"Add":" (? (atom (shift X))"},{"Add":" (compare X (cdr Y)) )"},{"Add":" (? (atom (shift Y))"},{"Add":" (if (t? Y) -1 +1) )"},{"Add":" (? (== X A)"},{"Add":" (if (== Y B) 0 -1) )"},{"Add":" (? (== Y B) 1)"},{"Add":" (sigChk 0) ) ) ) ) )"},{"Add":""},{"Add":"# Evaluation"},{"Add":"(local) (undefined evExpr evList)"},{"Add":""},{"Add":"(de NIL undefined (Fun Exe)"},{"Add":" (err Exe Fun ($ \"Undefined\") null) )"},{"Add":""},{"Add":"# Apply EXPR to CDR of list"},{"Add":"(de evExpr (Exe Lst)"},{"Add":" (stkChk Exe)"},{"Add":" (let"},{"Add":" (X (cdr Lst) # Arguments"},{"Add":" Y (car Exe) # Parameters"},{"Add":" P (set $Bind (push (val $At) $At (val $Bind) Lst)) ) # [[@] @ LINK Expr]"},{"Add":" (while (pair Y)"},{"Add":" (let (V (eval (++ X)) Z (++ Y)) # Evaluate next argument"},{"Add":" (if (atom Z)"},{"Add":" (set $Bind"},{"Add":" (setq P (push V (needChkVar Exe Z) P)) ) # [val sym LINK]"},{"Add":" (loop"},{"Add":" (set $Bind"},{"Add":" (setq P"},{"Add":" (push # [val sym LINK]"},{"Add":" (if (pair V) (++ V) $Nil)"},{"Add":" (needChkVar Exe (++ Z))"},{"Add":" P ) ) )"},{"Add":" (? (atom Z)) )"},{"Add":" (unless (nil? Z)"},{"Add":" (set $Bind"},{"Add":" (setq P (push V (needChkVar Exe Z) P)) ) ) ) ) ) # [val sym LINK]"},{"Add":" (prog1"},{"Add":" (if (== Y $At) # VarArgs"},{"Add":" (if (pair X)"},{"Add":" (let (L (push NIL (eval (car X)) NIL) Q L)"},{"Add":" (link (ofs L 1))"},{"Add":" (while (pair (shift X))"},{"Add":" (setq L"},{"Add":" (set L (push NIL (eval (car X)) NIL)) )"},{"Add":" (link (ofs L 1)) )"},{"Add":" (let Next (val $Next)"},{"Add":" (set L $Nil $Next Q)"},{"Add":" (loop"},{"Add":" (let Sym (val 2 P)"},{"Add":" (xchg Sym P) # Exchange symbol value"},{"Add":" (? (== $At Sym))"},{"Add":" (setq P (val 3 P)) ) )"},{"Add":" (prog1"},{"Add":" (run (cdr Exe)) # Run body"},{"Add":" (set $Next Next)"},{"Add":" (drop (ofs Q 1)) ) ) )"},{"Add":" (let Next (val $Next)"},{"Add":" (set $Next $Nil)"},{"Add":" (loop"},{"Add":" (let Sym (val 2 P)"},{"Add":" (xchg Sym P) # Exchange symbol value"},{"Add":" (? (== $At Sym))"},{"Add":" (setq P (val 3 P)) ) )"},{"Add":" (prog1"},{"Add":" (run (cdr Exe)) # Run body"},{"Add":" (set $Next Next) ) ) )"},{"Add":" (unless (nil? Y)"},{"Add":" (needChkVar Exe Y)"},{"Add":" (set"},{"Add":" $Bind (push (val Y) Y P) # Last parameter"},{"Add":" Y X ) ) # Set to unevaluated argument(s)"},{"Add":" (loop"},{"Add":" (let Sym (val 2 P)"},{"Add":" (xchg Sym P) # Exchange symbol value"},{"Add":" (? (== $At Sym))"},{"Add":" (setq P (val 3 P)) ) )"},{"Add":" (run (cdr Exe)) ) # Run body"},{"Add":" (setq P (val $Bind))"},{"Add":" (loop"},{"Add":" (let Sym (val 2 P)"},{"Add":" (set Sym (val P)) # Restore values"},{"Add":" (? (== $At Sym))"},{"Add":" (setq P (val 3 P)) ) )"},{"Add":" (set $Bind (val 3 P)) ) ) )"},{"Add":""},{"Add":"(de evList (Exe)"},{"Add":" (let Fun (car Exe)"},{"Add":" (cond"},{"Add":" ((num? Fun) Exe) # Number: Return list"},{"Add":" ((sym? Fun) # Symbol: Find function"},{"Add":" (loop"},{"Add":" (sigChk Exe)"},{"Add":" (let V (val Fun) # Get VAL"},{"Add":" (? (num? V) (subr V Exe Fun))"},{"Add":" (? (pair V) (evExpr V Exe))"},{"Add":" (? (== V (val V))"},{"Add":" (if (sharedLib Fun)"},{"Add":" (subr (val Fun) Exe Fun)"},{"Add":" (undefined Fun Exe) ) )"},{"Add":" (setq Fun V) ) ) )"},{"Add":" (T # List: Evaluate"},{"Add":" (stkChk Exe)"},{"Add":" (let F (save (evList Fun)) # Save computed function"},{"Add":" (loop"},{"Add":" (sigChk Exe)"},{"Add":" (? (num? F) (subr F Exe Fun))"},{"Add":" (? (pair F) (evExpr F Exe))"},{"Add":" (let V (val F)"},{"Add":" (? (== V (val V))"},{"Add":" (if (sharedLib F)"},{"Add":" (subr (val F) Exe F)"},{"Add":" (undefined F Exe) ) )"},{"Add":" (setq Fun F F V) ) ) ) ) ) ) )"},{"Add":""},{"Add":"(load \"io.l\" \"db.l\" \"apply.l\" \"flow.l\" \"subr.l\")"},{"Add":""},{"Add":"# (quit ['any ['any]])"},{"Add":"(de _Quit (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Nm (xName Exe (evSym X))"},{"Add":" Msg (bufString Nm (b8 (bufSize Nm))) )"},{"Add":" (err 0"},{"Add":" (if (atom (shift X))"},{"Add":" 0"},{"Add":" (eval (car X)) )"},{"Add":" ($ \"%s\")"},{"Add":" Msg ) ) )"},{"Add":""},{"Add":"# (sys 'any ['any]) -> sym"},{"Add":"(de _Sys (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Nm (xName Exe (evSym X))"},{"Add":" S (bufString Nm (b8 (bufSize Nm))) )"},{"Add":" (if (atom (shift X))"},{"Add":" (mkStr (getenv S))"},{"Add":" (let (Y (evSym X) Nm2 (xName Exe Y))"},{"Add":" (if"},{"Add":" (setenv S"},{"Add":" (bufString Nm2 (b8 (bufSize Nm2)))"},{"Add":" 1 )"},{"Add":" $Nil"},{"Add":" Y ) ) ) ) )"},{"Add":""},{"Add":"# (pwd) -> sym"},{"Add":"(de _Pwd (Exe)"},{"Add":" (let P (getcwd null 0)"},{"Add":" (if P"},{"Add":" (prog1 (mkStr P) (free P))"},{"Add":" $Nil ) ) )"},{"Add":""},{"Add":"# (cd 'any) -> sym"},{"Add":"(de _Cd (Exe)"},{"Add":" (let"},{"Add":" (Nm (xName Exe (evSym (cdr Exe)))"},{"Add":" P (getcwd null 0) )"},{"Add":" (if P"},{"Add":" (prog1"},{"Add":" (if (lt0 (chdir (pathString Nm (b8 (pathSize Nm)))))"},{"Add":" $Nil"},{"Add":" (mkStr P) )"},{"Add":" (free P) )"},{"Add":" $Nil ) ) )"},{"Add":""},{"Add":"# (ctty 'pid) -> pid"},{"Add":"# (ctty 'any) -> any | NIL"},{"Add":"(de _Ctty (Exe)"},{"Add":" (let X (eval (cadr Exe))"},{"Add":" (cond"},{"Add":" ((cnt? X)"},{"Add":" (set $TtyPid (i32 (int @)))"},{"Add":" X )"},{"Add":" ((nil? X)"},{"Add":" (let Pty (b32 2) # Master + Slave"},{"Add":" (when (lt0 (openpty Pty (ofs Pty 1) null null null))"},{"Add":" (err Exe 0 ($ \"Can't open PTY: %s\") (strErrno)) )"},{"Add":" (cond"},{"Add":" ((lt0 (fork)) (forkErr Exe))"},{"Add":" ((=0 @) # Master in child"},{"Add":" (close (val 2 Pty))"},{"Add":" (let (Fd (val Pty) Poll (b64 2) Buf (b8 BUFSIZ))"},{"Add":" (loop"},{"Add":" (pollIn 0 Poll)"},{"Add":" (pollIn Fd (ofs Poll 1))"},{"Add":" (if (lt0 (poll Poll 2 -1))"},{"Add":" (? (<> (gErrno) EINTR))"},{"Add":" (when (readyIn Poll)"},{"Add":" (let N (read 0 Buf BUFSIZ)"},{"Add":" (? (le0 N))"},{"Add":" (write Fd Buf N) ) )"},{"Add":" (when (readyIn (ofs Poll 1))"},{"Add":" (let N (read Fd Buf BUFSIZ)"},{"Add":" (? (le0 N))"},{"Add":" (write 1 Buf N) ) ) ) )"},{"Add":" (exit 0) ) ) )"},{"Add":" # Slave in parent"},{"Add":" (close (val Pty))"},{"Add":" (login_tty (val 2 Pty)) )"},{"Add":" (signal (val SIGINT Sig) (val SigIgn))"},{"Add":" ((inFile (val (val $InFiles))) tty YES)"},{"Add":" ((outFile (val 2 (val $OutFiles))) tty YES)"},{"Add":" ((outFile (val 3 (val $OutFiles))) tty YES)"},{"Add":" (set Tio (=0 (tcgetattr 0 OrgTermio))) # Init terminal I/O"},{"Add":" $T )"},{"Add":" (T"},{"Add":" (let Nm (xName Exe (xSym X))"},{"Add":" (if (reopenTty (bufString Nm (b8 (bufSize Nm))))"},{"Add":" (let"},{"Add":" (In: (inFile (val (val $InFiles))) # Stdin"},{"Add":" Out: (outFile (val 2 (val $OutFiles))) ) # Stdout"},{"Add":" (In: chr 0)"},{"Add":" (In: ix (In: cnt 0))"},{"Add":" (In: tty YES)"},{"Add":" (set Tio (=0 (tcgetattr 0 OrgTermio))) # Save terminal I/O"},{"Add":" (Out: ix 0)"},{"Add":" (Out: tty YES)"},{"Add":" ((outFile (val 3 (val $OutFiles))) tty YES) # Stderr"},{"Add":" X )"},{"Add":" $Nil ) ) ) ) ) )"},{"Add":""},{"Add":"# (cmd ['any]) -> sym"},{"Add":"(de _Cmd (Exe)"},{"Add":" (if (nil? (evSym (cdr Exe)))"},{"Add":" (mkStr (val $AV0))"},{"Add":" (bufString (xName Exe @) (val $AV0))"},{"Add":" @ ) )"},{"Add":""},{"Add":"# (dir ['any] ['flg]) -> lst"},{"Add":"(de _Dir (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if"},{"Add":" (getDir"},{"Add":" (if (nil? (evSym X))"},{"Add":" ($ \".\")"},{"Add":" (let Nm (xName Exe @)"},{"Add":" (pathString Nm (b8 (pathSize Nm))) ) ) )"},{"Add":" (let (P @ F (eval (car (shift X))))"},{"Add":" (when (nil? F)"},{"Add":" (while (== (val P) (char \".\"))"},{"Add":" (unless (setq P (getDir null))"},{"Add":" (ret $Nil) ) ) )"},{"Add":" (let (Y (cons (mkStr P) $Nil) R (save Y))"},{"Add":" (while (setq P (getDir null))"},{"Add":" (unless (and (nil? F) (== (val P) (char \".\")))"},{"Add":" (setq Y (set 2 Y (cons (mkStr P) $Nil))) ) )"},{"Add":" R ) )"},{"Add":" $Nil ) ) )"},{"Add":""},{"Add":"# (info 'any ['flg]) -> (cnt|flg dat . tim)"},{"Add":"(de _Info (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Nm (xName Exe (set $At2 (evSym X)))"},{"Add":" Size (b64 1) )"},{"Add":" (if"},{"Add":" (lt0"},{"Add":" (fileInfo"},{"Add":" (nil? (eval (car (shift X))))"},{"Add":" (== ZERO @)"},{"Add":" (pathString Nm (b8 (pathSize Nm)))"},{"Add":" Size ) )"},{"Add":" $Nil"},{"Add":" (let N @"},{"Add":" (cons"},{"Add":" (case (& N 3)"},{"Add":" (1 $T)"},{"Add":" (2 $Nil)"},{"Add":" (T (box64 (val Size))) )"},{"Add":" (cons"},{"Add":" (tmDate"},{"Add":" (& (setq N (shr N 2)) (hex \"FFFF\"))"},{"Add":" (& (setq N (shr N 16)) (hex \"FF\"))"},{"Add":" (& (setq N (shr N 8)) (hex \"FF\")) )"},{"Add":" (cnt (shr N 8)) ) ) ) ) ) )"},{"Add":""},{"Add":"# (file) -> (sym1 sym2 . num) | NIL"},{"Add":"(de _File (Exe)"},{"Add":" (let In: (inFile (val $InFile))"},{"Add":" (ifn (and (In:) (In: name))"},{"Add":" $Nil"},{"Add":" (let"},{"Add":" (N (cnt (i64 (In: src)))"},{"Add":" S (In: name)"},{"Add":" P (strrchr S (char \"/\")) )"},{"Add":" (if P"},{"Add":" (let X (save (mkStrE S (inc 'P)))"},{"Add":" (cons X (cons (mkStr P) N)) )"},{"Add":" (cons $Nil (cons (mkStr S) N)) ) ) ) ) )"},{"Add":""},{"Add":"# (argv [var ..] [. sym]) -> lst|sym"},{"Add":"(de _Argv (Exe)"},{"Add":" (let (X (cdr Exe) A (val $AV) P (val A))"},{"Add":" (when"},{"Add":" (and"},{"Add":" P"},{"Add":" (== (val P) (char \"-\"))"},{"Add":" (=0 (val 2 P)) ) # Single-dash argument"},{"Add":" (inc 'A) ) # Skip \"-\""},{"Add":" (if (nil? X) # No args"},{"Add":" (if (setq P (val A))"},{"Add":" (let (Y (cons (mkStr P) $Nil) R (save Y))"},{"Add":" (while (setq P (val (inc 'A)))"},{"Add":" (setq Y (set 2 Y (cons (mkStr P) $Nil))) )"},{"Add":" R )"},{"Add":" $Nil )"},{"Add":" (loop"},{"Add":" (? (atom X)"},{"Add":" (set (needChkVar Exe X)"},{"Add":" (if (setq P (val A))"},{"Add":" (let (Y (cons (mkStr P) $Nil) R Y)"},{"Add":" (save R"},{"Add":" (while (setq P (val (inc 'A)))"},{"Add":" (setq Y (set 2 Y (cons (mkStr P) $Nil))) ) )"},{"Add":" R )"},{"Add":" $Nil ) ) )"},{"Add":" (let Y"},{"Add":" (ifn (setq P (val A))"},{"Add":" $Nil"},{"Add":" (inc 'A)"},{"Add":" (mkStr P) )"},{"Add":" (set (needChkVar Exe (++ X)) Y)"},{"Add":" (? (nil? X) Y) ) ) ) ) )"},{"Add":""},{"Add":"# (opt) -> sym"},{"Add":"(de _Opt (Exe)"},{"Add":" (let (A (val $AV) P (val A))"},{"Add":" (if"},{"Add":" (or"},{"Add":" (=0 P)"},{"Add":" (and"},{"Add":" (== (val P) (char \"-\"))"},{"Add":" (=0 (val 2 P)) ) )"},{"Add":" $Nil"},{"Add":" (set $AV (inc A))"},{"Add":" (mkStr P) ) ) )"},{"Add":""},{"Add":"# (errno) -> cnt"},{"Add":"(de _Errno (Exe)"},{"Add":" (cnt (i64 (nErrno))) )"},{"Add":""},{"Add":"# Native calls"},{"Add":"(local) (fetchChar natBuf natErr natRetFloat natRetDouble natRetBuf ffi)"},{"Add":""},{"Add":"(de i32 fetchChar ((i8** . Ptr))"},{"Add":" (let (P (val Ptr) C (i32 (val P)))"},{"Add":" (prog2"},{"Add":" (inc 'P)"},{"Add":" (cond"},{"Add":" ((>= 127 C) C) # Single byte"},{"Add":" ((== C (hex \"FF\")) (i32 TOP)) # Infinite"},{"Add":" (T"},{"Add":" (|"},{"Add":" (shl"},{"Add":" (ifn (& C (hex \"20\"))"},{"Add":" (& C (hex \"1F\"))"},{"Add":" (|"},{"Add":" (shl"},{"Add":" (ifn (& C (hex \"10\"))"},{"Add":" (& C (hex \"0F\"))"},{"Add":" (|"},{"Add":" (shl (& C (hex \"7\")) 6)"},{"Add":" (&"},{"Add":" (i32 (prog1 (val P) (inc 'P)))"},{"Add":" (hex \"3F\") ) ) )"},{"Add":" 6 )"},{"Add":" (&"},{"Add":" (i32 (prog1 (val P) (inc 'P)))"},{"Add":" (hex \"3F\") ) ) )"},{"Add":" 6 )"},{"Add":" (&"},{"Add":" (i32 (prog1 (val P) (inc 'P)))"},{"Add":" (hex \"3F\") ) ) ) )"},{"Add":" (set Ptr P) ) ) )"},{"Add":""},{"Add":"(de i64 natBuf (Val (i8* . Ptr))"},{"Add":" (if (atom Val) # Byte or unsigned"},{"Add":" (if (sign? Val) # Unsigned 32 bit"},{"Add":" (let P (i32* Ptr)"},{"Add":" (set P (i32 (int Val)))"},{"Add":" 4 )"},{"Add":" (set Ptr (i8 (int Val)))"},{"Add":" 1 )"},{"Add":" (let X (++ Val) # 'num', 'sym' or [-]1.0"},{"Add":" (if (cnt? Val) # 'cnt' or 'lst'"},{"Add":" (let Siz (int Val)"},{"Add":" (cond"},{"Add":" ((num? X) # (num . cnt)"},{"Add":" (let N"},{"Add":" (if (cnt? X)"},{"Add":" (int @)"},{"Add":" (val (dig @)) )"},{"Add":" (when (sign? X)"},{"Add":" (setq N (- N)) )"},{"Add":" (case Siz"},{"Add":" (1 (set Ptr (i8 N)))"},{"Add":" (2 (set (i16* Ptr) (i16 N)))"},{"Add":" (4 (set (i32* Ptr) (i32 N)))"},{"Add":" (T (set (i64* Ptr) N)) ) ) )"},{"Add":" ((nil? X) (set Ptr (i8 0)))"},{"Add":" ((sym? X) # (sym . cnt)"},{"Add":" (setq X (name (val (tail X))))"},{"Add":" (bufString X Ptr) ) )"},{"Add":" Siz )"},{"Add":" (let (N 0 Scl (int X))"},{"Add":" (if (sign? X) # ([-]1.0 . lst)"},{"Add":" (while (pair Val)"},{"Add":" (bufFloat (++ Val) Scl Ptr)"},{"Add":" (inc 'N 4)"},{"Add":" (setq Ptr (ofs Ptr 4)) )"},{"Add":" (while (pair Val)"},{"Add":" (bufDouble (++ Val) Scl Ptr)"},{"Add":" (inc 'N 8)"},{"Add":" (setq Ptr (ofs Ptr 8)) ) )"},{"Add":" N ) ) ) ) )"},{"Add":""},{"Add":"(de NIL natErr (Spec)"},{"Add":" (err 0 Spec ($ \"Bad result spec\") null) )"},{"Add":""},{"Add":"(de natRetFloat ((i32 . Val) (i64 . Scl))"},{"Add":" (let R (boxFloat Val Scl)"},{"Add":" (unless R"},{"Add":" (let X (setq R (save (boxNum (val Fdigit))))"},{"Add":" (until (boxFlt)"},{"Add":" (setq X (set (big X) (boxNum (val Fdigit)))) )"},{"Add":" (set (big X) @) ) )"},{"Add":" (if (val Fsign) (neg R) R) ) )"},{"Add":""},{"Add":"(de natRetDouble ((i64 . Val) (i64 . Scl))"},{"Add":" (let R (boxDouble Val Scl)"},{"Add":" (unless R"},{"Add":" (let X (setq R (save (boxNum (val Fdigit))))"},{"Add":" (until (boxDbl)"},{"Add":" (setq X (set (big X) (boxNum (val Fdigit)))) )"},{"Add":" (set (big X) @) ) )"},{"Add":" (if (val Fsign) (neg R) R) ) )"},{"Add":""},{"Add":"(de natRetBuf (Spec (i8** . Ptr))"},{"Add":" (cond"},{"Add":" ((t? Spec) # 'T' Direct Lisp value"},{"Add":" (let P (i64* (val Ptr))"},{"Add":" (set Ptr (i8* (inc P)))"},{"Add":" (val P) ) )"},{"Add":" ((== Spec $N) # 'N' Number (signed 64 bit)"},{"Add":" (let P (i64* (val Ptr))"},{"Add":" (set Ptr (i8* (inc P)))"},{"Add":" (box (val P)) ) )"},{"Add":" ((== Spec $P) # 'P' Pointer (unsigned 64 bit)"},{"Add":" (let P (i64* (val Ptr))"},{"Add":" (set Ptr (i8* (inc P)))"},{"Add":" (box64 (val P)) ) )"},{"Add":" ((== Spec $I) # 'I' Integer (signed 32 bit)"},{"Add":" (if"},{"Add":" (ge0"},{"Add":" (let P (i32* (val Ptr))"},{"Add":" (set Ptr (i8* (inc P)))"},{"Add":" (val P) ) )"},{"Add":" (cnt (i64 @))"},{"Add":" (sign (cnt (i64 (- @)))) ) )"},{"Add":" ((== Spec $C) # 'C' Character (UTF-8, 1-4 bytes)"},{"Add":" (if (fetchChar Ptr) (mkChar @) $Nil) )"},{"Add":" ((== Spec $W) # 'W' Word (signed 16 bit)"},{"Add":" (if"},{"Add":" (ge0"},{"Add":" (let P (i16* (val Ptr))"},{"Add":" (set Ptr (i8* (inc P)))"},{"Add":" (val P) ) )"},{"Add":" (cnt (i64 @))"},{"Add":" (sign (cnt (i64 (- @)))) ) )"},{"Add":" ((== Spec $B) # 'B' Byte (unsigned 8 bit)"},{"Add":" (let P (val Ptr)"},{"Add":" (set Ptr (inc P))"},{"Add":" (cnt (i64 (val P))) ) )"},{"Add":" ((== Spec $S) # 'S' String (UTF-8)"},{"Add":" (let P (i8** (val Ptr))"},{"Add":" (set Ptr (i8* (inc P)))"},{"Add":" (mkStr (val P)) ) )"},{"Add":" ((cnt? Spec) # [+-]1.0 Scaled fixpoint number"},{"Add":" (if (sign? Spec)"},{"Add":" (natRetFloat"},{"Add":" (let P (i32* (val Ptr))"},{"Add":" (set Ptr (i8* (inc P)))"},{"Add":" (val P) )"},{"Add":" (int Spec) )"},{"Add":" (natRetDouble"},{"Add":" (let P (i64* (val Ptr))"},{"Add":" (set Ptr (i8* (inc P)))"},{"Add":" (val P) )"},{"Add":" (int Spec) ) ) )"},{"Add":" ((pair Spec) # Arrary or structure"},{"Add":" (let (S (++ Spec) R (natRetBuf S Ptr))"},{"Add":" (unless (and (nil? R) (== S $C))"},{"Add":" (let X (setq R (save (cons R $Nil)))"},{"Add":" (loop"},{"Add":" (? (cnt? Spec) # (sym . cnt)"},{"Add":" (let C (int Spec)"},{"Add":" (while (dec 'C)"},{"Add":" (let Y (natRetBuf S Ptr)"},{"Add":" (? (and (nil? Y) (== S $C)))"},{"Add":" (setq X (set 2 X (cons Y $Nil))) ) ) ) )"},{"Add":" (? (atom Spec))"},{"Add":" (let Y (natRetBuf (setq S (++ Spec)) Ptr)"},{"Add":" (? (and (nil? Y) (== S $C)))"},{"Add":" (setq X (set 2 X (cons Y $Nil))) ) ) ) )"},{"Add":" R ) )"},{"Add":" (T (natErr Spec)) ) )"},{"Add":""},{"Add":"(de ffi (Exe (i8* . Lib) Fun Args)"},{"Add":" (let"},{"Add":" (Spec (car Args)"},{"Add":" Val"},{"Add":" (ffiCall"},{"Add":" (cond"},{"Add":" ((cnt? Fun) (i8* (int Fun)))"},{"Add":" ((big? Fun) (i8* (val (dig Fun))))"},{"Add":" ((pair Fun) (argErr Exe Fun))"},{"Add":" (T"},{"Add":" (let Nm (xName Exe Fun)"},{"Add":" (unless (ffiPrep Lib (bufString Nm (b8 (bufSize Nm))) Args)"},{"Add":" (err Exe 0 ($ \"Bad ffi\") null) )"},{"Add":" (set Fun (box64 (i64 @)))"},{"Add":" @ ) ) )"},{"Add":" (cdr Args) ) )"},{"Add":" (cond"},{"Add":" ((nil? Spec) $Nil)"},{"Add":" ((== Spec $T) Val) # 'T' Direct Lisp value"},{"Add":" ((== Spec $N) (box Val)) # 'N' Number (signed 64 bit)"},{"Add":" ((== Spec $P) (box64 Val)) # 'P' Pointer (unsigned 64 bit)"},{"Add":" ((== Spec $I) # 'I' Integer (signed 32 bit)"},{"Add":" (if (ge0 (i32 Val))"},{"Add":" (cnt (i64 @))"},{"Add":" (sign (cnt (i64 (- @)))) ) )"},{"Add":" ((== Spec $C) # 'C' Character (UTF-8, 1-4 bytes)"},{"Add":" (if (i32 Val) (mkChar @) $Nil) )"},{"Add":" ((== Spec $W) # 'W' Word (signed 16 bit)"},{"Add":" (if (ge0 (i16 Val))"},{"Add":" (cnt (i64 @))"},{"Add":" (sign (cnt (i64 (- @)))) ) )"},{"Add":" ((== Spec $B) # 'B' Byte (unsigned 8 bit)"},{"Add":" (cnt (i64 (i8 Val))) )"},{"Add":" ((== Spec $S) # 'S' String (UTF-8)"},{"Add":" (mkStr (i8* Val)) )"},{"Add":" ((cnt? Spec) # [+-]1.0 Scaled fixpoint number"},{"Add":" (if (sign? Spec)"},{"Add":" (natRetFloat (i32 Val) (int Spec))"},{"Add":" (natRetDouble Val (int Spec)) ) )"},{"Add":" ((and (pair Spec) Val) # Arrary or structure"},{"Add":" (let"},{"Add":" (Ptr (i8** (push Val))"},{"Add":" S (++ Spec)"},{"Add":" R (natRetBuf S Ptr) )"},{"Add":" (unless (and (nil? R) (== S $C))"},{"Add":" (let X (setq R (save (cons R $Nil)))"},{"Add":" (loop"},{"Add":" (? (cnt? Spec) # (sym . cnt)"},{"Add":" (let C (int Spec)"},{"Add":" (while (dec 'C)"},{"Add":" (let Y (natRetBuf S Ptr)"},{"Add":" (? (and (nil? Y) (== S $C)))"},{"Add":" (setq X (set 2 X (cons Y $Nil))) ) ) ) )"},{"Add":" (? (atom Spec))"},{"Add":" (let Y (natRetBuf (setq S (++ Spec)) Ptr)"},{"Add":" (? (and (nil? Y) (== S $C)))"},{"Add":" (setq X (set 2 X (cons Y $Nil))) ) ) ) )"},{"Add":" R ) )"},{"Add":" (T (natErr Spec)) ) ) )"},{"Add":""},{"Add":"# (%@ 'cnt2|sym2 'any 'any ..) -> any"},{"Add":"(de _Nat (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Fun (save (eval (++ X))) # Eval function 'cnt2|sym2'"},{"Add":" Args (save (cons (eval (++ X)) $Nil))"},{"Add":" L Args ) # [ret args]"},{"Add":" (while (pair X)"},{"Add":" (let Z (push (save (eval (++ X))) $Nil) # [argN next]"},{"Add":" (set 2 L Z)"},{"Add":" (setq L Z) ) )"},{"Add":" (tailcall (ffi Exe null Fun Args)) ) )"},{"Add":""},{"Add":"# (native 'cnt1|sym1 'cnt2|sym2 'any 'any ..) -> any"},{"Add":"(de _Native (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (eval (++ X)) # Eval library 'cnt1|sym1'"},{"Add":" Lib"},{"Add":" (cond"},{"Add":" ((cnt? Y) (i8* (int Y)))"},{"Add":" ((big? Y) (i8* (val (dig Y))))"},{"Add":" ((pair Y) (argErr Exe Y))"},{"Add":" ((== (xName Exe Y) (| 2 (>> -4 (char \"@\"))))"},{"Add":" (set Y ZERO)"},{"Add":" null ) # RTLD_DEFAULT"},{"Add":" (T"},{"Add":" (unless (dlOpen (pathString @ (b8 (pathSize @))))"},{"Add":" (err Exe Y ($ \"[DLL] %s\") (dlerror)) )"},{"Add":" (set Y (box64 (i64 @)))"},{"Add":" @ ) )"},{"Add":" Fun (save (eval (++ X))) # Eval function 'cnt2|sym2'"},{"Add":" Args (save (cons (eval (++ X)) $Nil))"},{"Add":" L Args ) # [ret args]"},{"Add":" (while (pair X)"},{"Add":" (let Z (push (save (eval (++ X))) $Nil) # [argN next]"},{"Add":" (set 2 L Z)"},{"Add":" (setq L Z) ) )"},{"Add":" (tailcall (ffi Exe Lib Fun Args)) ) )"},{"Add":""},{"Add":"# (struct 'num 'any 'any ..) -> any"},{"Add":"(de _Struct (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" N # Native value (pointer or scalar)"},{"Add":" (if (cnt? (needNum Exe (eval (++ X))))"},{"Add":" (int @)"},{"Add":" (val (dig @)) )"},{"Add":" P (i8* N)"},{"Add":" Y (save (eval (car X))) ) # Result specification"},{"Add":" (while (pair (shift X))"},{"Add":" (setq P"},{"Add":" (ofs P (natBuf (eval (car X)) P)) ) )"},{"Add":" (cond"},{"Add":" ((nil? Y) @)"},{"Add":" ((== Y $S) (mkStr (i8* N)))"},{"Add":" (T (natRetBuf Y (i8** (push N)))) ) ) )"},{"Add":""},{"Add":"# Lisp callbacks"},{"Add":"(local) cbl"},{"Add":""},{"Add":"(de cbl (Fun A B C D E)"},{"Add":" (let Exe (push NIL NIL ZERO Fun) # [car cdr name fun]"},{"Add":" (set Exe (ofs Exe 3))"},{"Add":" (let P (set 2 Exe (push NIL NIL ZERO (box A)))"},{"Add":" (set P (ofs P 3))"},{"Add":" (setq P"},{"Add":" (set 2 P (push NIL NIL ZERO (box B))) )"},{"Add":" (set P (ofs P 3))"},{"Add":" (setq P"},{"Add":" (set 2 P (push NIL NIL ZERO (box C))) )"},{"Add":" (set P (ofs P 3))"},{"Add":" (setq P"},{"Add":" (set 2 P (push NIL NIL ZERO (box D))) )"},{"Add":" (set P (ofs P 3))"},{"Add":" (setq P"},{"Add":" (set 2 P (push NIL $Nil ZERO (box E))) )"},{"Add":" (set P (ofs P 3)) )"},{"Add":" (xCnt 0 (evList Exe)) ) )"},{"Add":""},{"Add":"(de _Cb1 (A B C D E)"},{"Add":" (cbl (val 2 $Lisp) A B C D E) )"},{"Add":""},{"Add":"(de _Cb2 (A B C D E)"},{"Add":" (cbl (val 4 $Lisp) A B C D E) )"},{"Add":""},{"Add":"(de _Cb3 (A B C D E)"},{"Add":" (cbl (val 6 $Lisp) A B C D E) )"},{"Add":""},{"Add":"(de _Cb4 (A B C D E)"},{"Add":" (cbl (val 8 $Lisp) A B C D E) )"},{"Add":""},{"Add":"(de _Cb5 (A B C D E)"},{"Add":" (cbl (val 10 $Lisp) A B C D E) )"},{"Add":""},{"Add":"(de _Cb6 (A B C D E)"},{"Add":" (cbl (val 12 $Lisp) A B C D E) )"},{"Add":""},{"Add":"(de _Cb7 (A B C D E)"},{"Add":" (cbl (val 14 $Lisp) A B C D E) )"},{"Add":""},{"Add":"(de _Cb8 (A B C D E)"},{"Add":" (cbl (val 16 $Lisp) A B C D E) )"},{"Add":""},{"Add":"(de _Cb9 (A B C D E)"},{"Add":" (cbl (val 18 $Lisp) A B C D E) )"},{"Add":""},{"Add":"(de _Cb10 (A B C D E)"},{"Add":" (cbl (val 20 $Lisp) A B C D E) )"},{"Add":""},{"Add":"(de _Cb11 (A B C D E)"},{"Add":" (cbl (val 22 $Lisp) A B C D E) )"},{"Add":""},{"Add":"(de _Cb12 (A B C D E)"},{"Add":" (cbl (val 24 $Lisp) A B C D E) )"},{"Add":""},{"Add":"(de _Cb13 (A B C D E)"},{"Add":" (cbl (val 26 $Lisp) A B C D E) )"},{"Add":""},{"Add":"(de _Cb14 (A B C D E)"},{"Add":" (cbl (val 28 $Lisp) A B C D E) )"},{"Add":""},{"Add":"(de _Cb15 (A B C D E)"},{"Add":" (cbl (val 30 $Lisp) A B C D E) )"},{"Add":""},{"Add":"(de _Cb16 (A B C D E)"},{"Add":" (cbl (val 32 $Lisp) A B C D E) )"},{"Add":""},{"Add":"(de _Cb17 (A B C D E)"},{"Add":" (cbl (val 34 $Lisp) A B C D E) )"},{"Add":""},{"Add":"(de _Cb18 (A B C D E)"},{"Add":" (cbl (val 36 $Lisp) A B C D E) )"},{"Add":""},{"Add":"(de _Cb19 (A B C D E)"},{"Add":" (cbl (val 38 $Lisp) A B C D E) )"},{"Add":""},{"Add":"(de _Cb20 (A B C D E)"},{"Add":" (cbl (val 40 $Lisp) A B C D E) )"},{"Add":""},{"Add":"(de _Cb21 (A B C D E)"},{"Add":" (cbl (val 42 $Lisp) A B C D E) )"},{"Add":""},{"Add":"(de _Cb22 (A B C D E)"},{"Add":" (cbl (val 44 $Lisp) A B C D E) )"},{"Add":""},{"Add":"(de _Cb23 (A B C D E)"},{"Add":" (cbl (val 46 $Lisp) A B C D E) )"},{"Add":""},{"Add":"(de _Cb24 (A B C D E)"},{"Add":" (cbl (val 48 $Lisp) A B C D E) )"},{"Add":""},{"Add":"# (lisp 'sym ['fun]) -> num"},{"Add":"(de _Lisp (Exe)"},{"Add":" (let (X (cdr Exe) Y (evSym X))"},{"Add":" (let (P $Lisp Q (i8** (cbFuns)))"},{"Add":" (loop # Search for tag 'sym'"},{"Add":" (? (== Y (val P))) # Found"},{"Add":" (setq P (ofs P 2) Q (ofs Q 1))"},{"Add":" (? (> P $LispEnd) # Not found"},{"Add":" (setq P $Lisp Q (i8** (cbFuns)))"},{"Add":" (until (nil? (val 2 P)) # Search for empty slot"},{"Add":" (setq P (ofs P 2) Q (ofs Q 1))"},{"Add":" (when (> P $LispEnd)"},{"Add":" (err Exe 0 ($ \"Too many callbacks\") null) ) )"},{"Add":" (set P Y) ) )"},{"Add":" (set 2 P (eval (cadr X))) # Eval 'fun'"},{"Add":" (box64 (i64 (val Q))) ) ) )"},{"Add":""},{"Add":"# (args) -> flg"},{"Add":"(de _Args (Exe)"},{"Add":" (if (pair (val $Next)) $T $Nil) )"},{"Add":""},{"Add":"# (next) -> any"},{"Add":"(de _Next (Exe)"},{"Add":" (let X (val $Next)"},{"Add":" (set $Next (car X))"},{"Add":" (cdr X) ) )"},{"Add":""},{"Add":"# (arg 'cnt) -> any"},{"Add":"(de _Arg (Exe)"},{"Add":" (if (le0 (evCnt Exe (cdr Exe)))"},{"Add":" $Nil"},{"Add":" (let (N @ X (val $Next))"},{"Add":" (while (gt0 (dec 'N))"},{"Add":" (setq X (car X)) )"},{"Add":" (cdr X) ) ) )"},{"Add":""},{"Add":"# (rest) -> lst"},{"Add":"(de _Rest (Exe)"},{"Add":" (let X (val $Next)"},{"Add":" (if (atom X)"},{"Add":" X"},{"Add":" (let (Y (cons (cdr X) $Nil) R (save Y))"},{"Add":" (while (pair (setq X (car X)))"},{"Add":" (setq Y (set 2 Y (cons (cdr X) $Nil))) )"},{"Add":" R ) ) ) )"},{"Add":""},{"Add":"# (adr 'var) -> num"},{"Add":"# (adr 'num) -> var"},{"Add":"(de _Adr (Exe)"},{"Add":" (cond"},{"Add":" ((cnt? (eval (cadr Exe))) (int @)) # Make 'var'"},{"Add":" ((big? @) (val (dig @)))"},{"Add":" (T (box64 @)) ) ) # Make 'num'"},{"Add":""},{"Add":"# (byte 'num ['cnt]) -> cnt"},{"Add":"(de _Byte (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" P"},{"Add":" (i8*"},{"Add":" (if (cnt? (needNum Exe (eval (++ X))))"},{"Add":" (int @)"},{"Add":" (val (dig @)) ) ) )"},{"Add":" (if (atom X)"},{"Add":" (cnt (i64 (val P)))"},{"Add":" (let"},{"Add":" (Y (needCnt Exe (eval (car X)))"},{"Add":" N (int @) )"},{"Add":" (set P"},{"Add":" (i8 (if (sign? Y) (- N) N)) )"},{"Add":" Y ) ) ) )"},{"Add":""},{"Add":"# (env ['lst] | ['sym 'val] ..) -> lst"},{"Add":"(de _Env (Exe)"},{"Add":" (let (X (cdr Exe) R (save $Nil))"},{"Add":" (if (atom X)"},{"Add":" (let Bnd (val $Bind)"},{"Add":" (while Bnd"},{"Add":" (let (S (val 2 Bnd) Y R)"},{"Add":" (loop"},{"Add":" (? (atom Y)"},{"Add":" (setq R"},{"Add":" (safe (cons (cons S (val S)) R)) ) ) # (sym . val)"},{"Add":" (? (== S (caar Y)))"},{"Add":" (shift Y) ) )"},{"Add":" (setq Bnd (val 3 Bnd)) ) )"},{"Add":" (let Y (link (push $Nil NIL))"},{"Add":" (loop"},{"Add":" (let Z (set Y (eval (++ X))) # Eval 'lst' or 'sym'"},{"Add":" (nond"},{"Add":" ((atom Z)"},{"Add":" (loop"},{"Add":" (let V (++ Z)"},{"Add":" (setq R"},{"Add":" (safe"},{"Add":" (cons"},{"Add":" (if (pair V)"},{"Add":" (cons (car V) (cdr V))"},{"Add":" (cons V (val V)) )"},{"Add":" R ) ) ) )"},{"Add":" (? (atom Z)) ) )"},{"Add":" ((nil? Z)"},{"Add":" (setq R"},{"Add":" (safe (cons (cons Z (eval (++ X))) R)) ) ) ) )"},{"Add":" (? (atom X)) ) ) )"},{"Add":" R ) )"},{"Add":""},{"Add":"# (trail ['flg]) -> lst"},{"Add":"(de _Trail (Exe)"},{"Add":" (let"},{"Add":" (F (not (nil? (eval (cadr Exe))))"},{"Add":" Bnd (val $Bind)"},{"Add":" R $Nil )"},{"Add":" (while Bnd"},{"Add":" (let S (val 2 Bnd)"},{"Add":" (cond"},{"Add":" ((== S $At)"},{"Add":" (when (val 4 Bnd)"},{"Add":" (setq R (cons @ R)) ) ) # Expr"},{"Add":" (F"},{"Add":" (setq R (cons S (cons (val S) R)))"},{"Add":" (set S (val Bnd)) ) ) )"},{"Add":" (setq Bnd (val 3 Bnd)) )"},{"Add":" (let X R"},{"Add":" (until (atom X)"},{"Add":" (when (atom (++ X))"},{"Add":" (set @ (++ X)) ) ) )"},{"Add":" R ) )"},{"Add":""},{"Add":"# (up [cnt] sym ['val]) -> any"},{"Add":"(de _Up (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (car X)"},{"Add":" N 1"},{"Add":" Bnd (val $Bind) )"},{"Add":" (when (num? Y)"},{"Add":" (setq N (int Y) Y (car (shift X))) )"},{"Add":" (if (nil? Y)"},{"Add":" (if N"},{"Add":" (loop"},{"Add":" (? (=0 Bnd) $Nil)"},{"Add":" (?"},{"Add":" (and"},{"Add":" (== $At (val 2 Bnd))"},{"Add":" (=0 (dec 'N)) )"},{"Add":" (if (val 4 Bnd) @ $Nil) )"},{"Add":" (setq Bnd (val 3 Bnd)) )"},{"Add":" $Nil )"},{"Add":" (let Z Y"},{"Add":" (when N"},{"Add":" (loop"},{"Add":" (? (=0 Bnd))"},{"Add":" (?"},{"Add":" (and"},{"Add":" (== Y (val 2 Bnd))"},{"Add":" (prog"},{"Add":" (setq Z Bnd)"},{"Add":" (=0 (dec 'N)) ) ) )"},{"Add":" (setq Bnd (val 3 Bnd)) ) )"},{"Add":" (if (atom (shift X))"},{"Add":" (val Z)"},{"Add":" (set Z (eval (car X))) ) ) ) ) )"},{"Add":""},{"Add":"# (history ['lst]) -> lst"},{"Add":"(de _History (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if (atom X)"},{"Add":" (let P (history_list)"},{"Add":" (if (and P (val P))"},{"Add":" (let"},{"Add":" (Y (cons (mkStr (val (val P))) $Nil)"},{"Add":" R (save Y)"},{"Add":" I 0 )"},{"Add":" (while (val (ofs P (inc 'I)))"},{"Add":" (setq Y"},{"Add":" (set 2 Y (cons (mkStr (val @)) $Nil)) ) )"},{"Add":" R )"},{"Add":" $Nil ) )"},{"Add":" (let (Y (needLst Exe (eval (car X))) Z Y)"},{"Add":" (clear_history)"},{"Add":" (while (pair Z)"},{"Add":" (let (Nm (xName Exe (xSym (++ Z))) Stk (stack))"},{"Add":" (add_history (bufString Nm (b8 (bufSize Nm))) )"},{"Add":" (stack Stk) ) )"},{"Add":" Y ) ) ) )"},{"Add":""},{"Add":"# (version ['flg]) -> lst"},{"Add":"(de _Version (Exe)"},{"Add":" (when (nil? (eval (cadr Exe)))"},{"Add":" (outWord (int (val $Y)))"},{"Add":" (call $Put (char \".\"))"},{"Add":" (outWord (int (val $M)))"},{"Add":" (call $Put (char \".\"))"},{"Add":" (outWord (int (val $D)))"},{"Add":" (newline) )"},{"Add":" (cons (val $Y)"},{"Add":" (cons (val $M)"},{"Add":" (cons (val $D) $Nil) ) ) )"},{"Add":""},{"Add":"# Main entry point"},{"Add":"(local) (main sigChld)"},{"Add":""},{"Add":"(de i32 main ((i32 . Ac) (i8** . Av))"},{"Add":" (set"},{"Add":" $AV0 (val Av) # Save command"},{"Add":" $AV (setq Av (ofs Av 1)) # and argument vector"},{"Add":" $StkLimit (ulimStk) )"},{"Add":" # Check debug mode"},{"Add":" (let P (ofs Av (- Ac 2))"},{"Add":" (unless (strcmp (val P) ($ \"+\"))"},{"Add":" (set $Dbg $T P null) ) )"},{"Add":" # Locate home directory"},{"Add":" (let P (val Av) # First argument"},{"Add":" (when (and P (<> (val P) (char \"-\")))"},{"Add":" (let Q (strrchr P (char \"/\"))"},{"Add":" (unless"},{"Add":" (or"},{"Add":" (=0 Q)"},{"Add":" (and"},{"Add":" (== Q (+ P 1))"},{"Add":" (== (val P) (char \".\")) ) )"},{"Add":" (let (N (+ (- Q P) 1) H (malloc (+ N 1)))"},{"Add":" (set $PilHome H $PilLen N)"},{"Add":" (memcpy H P N)"},{"Add":" (set (ofs H N) 0) ) ) ) ) )"},{"Add":" (when (getenv ($ \"HOME\"))"},{"Add":" (set $UsrHome @ $UsrLen (strlen @)) )"},{"Add":" (heapAlloc)"},{"Add":" (let P $Nil # Init internal symbols"},{"Add":" (loop"},{"Add":" (let Nm (val (tail P))"},{"Add":" (when (num? Nm)"},{"Add":" (intern P 0 @ (cdr $Pico) $Nil NO)"},{"Add":" (? (== P $LastSym))"},{"Add":" (when (big? Nm) # Max 15 chars"},{"Add":" (setq P (ofs P 2)) ) ) )"},{"Add":" (setq P (ofs P 2)) ) )"},{"Add":" # Initialize globals"},{"Add":" (set"},{"Add":" $OS (mkStr TgOS)"},{"Add":" $CPU (mkStr TgCPU)"},{"Add":" $Pid (cnt (i64 (getpid)))"},{"Add":" (tail $Db1) DB1 # Name of external root symbol '{1}'"},{"Add":" $Extern (cons $Db1 $Nil) ) # External symbol tree root node"},{"Add":" (pushOutFile (b8+ (ioFrame T)) (initOutFile 2) 0) # Standard error"},{"Add":" (pushOutFile"},{"Add":" (set $Stdout (b8+ (ioFrame T)))"},{"Add":" (initOutFile 1) # Standard output"},{"Add":" 0 )"},{"Add":" (pushInFile"},{"Add":" (set $Stdin (b8+ (ioFrame T)))"},{"Add":" (initInFile 0 null) # Standard input"},{"Add":" 0 )"},{"Add":" (set Tio (=0 (tcgetattr 0 OrgTermio))) # Save terminal I/O"},{"Add":" (sigUnblock 0) # Set all signals to unblocked"},{"Add":" (iSignal (val SIGHUP Sig) (fun sig))"},{"Add":" (iSignal (val SIGUSR1 Sig) (fun sig))"},{"Add":" (iSignal (val SIGUSR2 Sig) (fun sig))"},{"Add":" (iSignal (val SIGALRM Sig) (fun sig))"},{"Add":" (iSignal (val SIGTERM Sig) (fun sig))"},{"Add":" (iSignal (val SIGWINCH Sig) (fun sig))"},{"Add":" (iSignal (val SIGIO Sig) (fun sig))"},{"Add":" (when (== (signal (val SIGTSTP Sig) (val SigIgn)) (val SigDfl))"},{"Add":" (iSignal (val SIGTSTP Sig) (fun sig)) )"},{"Add":" (iSignal (val SIGINT Sig) (fun sigTerm))"},{"Add":" (signal (val SIGCHLD Sig) (fun sigChld))"},{"Add":" (signal (val SIGPIPE Sig) (val SigIgn))"},{"Add":" (signal (val SIGTTIN Sig) (val SigIgn))"},{"Add":" (signal (val SIGTTOU Sig) (val SigIgn))"},{"Add":" (initReadline)"},{"Add":" (set $USec (getUsec YES))"},{"Add":" (unless (setjmp QuitRst)"},{"Add":" (loadAll 0) ) # Load arguments"},{"Add":" (unless (val $Repl)"},{"Add":" (set $Repl YES)"},{"Add":" (iSignal (val SIGINT Sig) (fun sig)) )"},{"Add":" (save -ZERO)"},{"Add":" (loop"},{"Add":" (let X (safe (stdRead ($ \": \")))"},{"Add":" (cond"},{"Add":" ((lt0 (val $Chr)) (bye 0))"},{"Add":" ((=0 (val $Chr))"},{"Add":" (unless (nil? X)"},{"Add":" (stdEval X) ) )"},{"Add":" (T (eval X)) ) ) ) )"},{"Add":""},{"Add":"(end \"base.map\" \"lib.c\")"}]}},{"FileAdd":{"meta":{"basename":"lib.c","metadata":0},"context":[{"change":0,"pos":63931}],"contents":[{"Add":"// 05dec23 Software Lab. Alexander Burger"},{"Add":""},{"Add":"#include \"pico.h\""},{"Add":""},{"Add":"const char TgOS[] = _OS;"},{"Add":"const char TgCPU[] = _CPU;"},{"Add":""},{"Add":"// I/O"},{"Add":"const int32_t PipeBufSize = PIPE_BUF;"},{"Add":""},{"Add":"char *stderrMsg(char *fmt, char *s) {"},{"Add":" fprintf(stderr, fmt, s);"},{"Add":" return s;"},{"Add":"}"},{"Add":""},{"Add":"void gPrintf(char *buf, int32_t siz, char *fmt, char *arg) {"},{"Add":" if (snprintf(buf, siz, fmt, arg) >= siz)"},{"Add":" fprintf(stderr, \"!! gPrintf() truncated !!\\n\");"},{"Add":"}"},{"Add":""},{"Add":"char *strErrno(void) {"},{"Add":" return strerror(errno);"},{"Add":"}"},{"Add":""},{"Add":"int32_t openRd(char *nm) {"},{"Add":" return (int32_t)open(nm, O_RDONLY);"},{"Add":"}"},{"Add":""},{"Add":"int32_t openWr(char *nm) {"},{"Add":" return (int32_t)open(nm, O_CREAT|O_TRUNC|O_WRONLY, 0666);"},{"Add":"}"},{"Add":""},{"Add":"int32_t openRdWr(char *nm) {"},{"Add":" return (int32_t)open(nm, O_RDWR);"},{"Add":"}"},{"Add":""},{"Add":"int32_t openRdWrExcl(char *nm) {"},{"Add":" return (int32_t)open(nm, O_CREAT|O_EXCL|O_RDWR, 0666);"},{"Add":"}"},{"Add":""},{"Add":"int32_t openRdWrCreate(char *nm) {"},{"Add":" return (int32_t)open(nm, O_CREAT|O_RDWR, 0666);"},{"Add":"}"},{"Add":""},{"Add":"int32_t openRdWrAppend(char *nm) {"},{"Add":" return (int32_t)open(nm, O_APPEND|O_CREAT|O_RDWR, 0666);"},{"Add":"}"},{"Add":""},{"Add":"int32_t openWrAppend(char *nm) {"},{"Add":" return (int32_t)open(nm, O_APPEND|O_CREAT|O_WRONLY, 0666);"},{"Add":"}"},{"Add":""},{"Add":"int fseekOfs(FILE *fp, int32_t ofs) {"},{"Add":" return fseek(fp, (long)ofs, SEEK_CUR) == 0;"},{"Add":"}"},{"Add":""},{"Add":"int fseek0(FILE *fp) {"},{"Add":" return fseek(fp, 0L, SEEK_SET) == 0;"},{"Add":"}"},{"Add":""},{"Add":"int seek0(int32_t fd) {"},{"Add":" return lseek(fd, 0L, SEEK_SET) == 0;"},{"Add":"}"},{"Add":""},{"Add":"int truncate0(int32_t fd) {"},{"Add":" return ftruncate(fd, 0) == 0;"},{"Add":"}"},{"Add":""},{"Add":"int32_t socketPair(int32_t *sv) {"},{"Add":" return (int32_t)socketpair(AF_UNIX, SOCK_STREAM, 0, sv);"},{"Add":"}"},{"Add":""},{"Add":"int32_t fcntlCloExec(int32_t fd) {"},{"Add":" return (int32_t)fcntl(fd, F_SETFD, FD_CLOEXEC);"},{"Add":"}"},{"Add":""},{"Add":"void fcntlSetFl(int32_t fd, int32_t flg) {"},{"Add":" fcntl(fd, F_SETFL, flg);"},{"Add":"}"},{"Add":""},{"Add":"int32_t nonBlocking(int32_t fd) {"},{"Add":" int flg = fcntl(fd, F_GETFL, 0);"},{"Add":""},{"Add":" fcntlSetFl(fd, flg | O_NONBLOCK);"},{"Add":" return (int32_t)flg;"},{"Add":"}"},{"Add":""},{"Add":"void fcntlSetOwn(int32_t fd, int32_t pid) {"},{"Add":" fcntl(fd, F_SETOWN, pid);"},{"Add":" fcntlSetFl(fd, fcntl(fd, F_GETFL, 0) | O_NONBLOCK|O_ASYNC);"},{"Add":"}"},{"Add":""},{"Add":"char *getDir(char *nm) {"},{"Add":" static DIR *dp;"},{"Add":" struct dirent *p;"},{"Add":""},{"Add":" if (nm && (dp = opendir(nm)) == NULL)"},{"Add":" return NULL;"},{"Add":" if ((p = readdir(dp)) != NULL)"},{"Add":" return p->d_name;"},{"Add":" closedir(dp);"},{"Add":" return NULL;"},{"Add":"}"},{"Add":""},{"Add":"// Readline"},{"Add":"#include "},{"Add":"#include "},{"Add":""},{"Add":"static char *tabEntry(const char *text, int stat) {"},{"Add":" extern char *tabComplete(const char*);"},{"Add":""},{"Add":" rl_completion_append_character = '\\0';"},{"Add":" return tabComplete(stat? NULL : text);"},{"Add":"}"},{"Add":""},{"Add":"void initReadline(void) {"},{"Add":" extern int rlGetc(FILE*);"},{"Add":" extern int rlAvail(void);"},{"Add":""},{"Add":" rl_catch_signals = 0;"},{"Add":" rl_getc_function = rlGetc;"},{"Add":" rl_input_available_hook = rlAvail;"},{"Add":" rl_completion_entry_function = tabEntry;"},{"Add":" rl_special_prefixes = \"$%&*+-<=>?@\";"},{"Add":" rl_basic_quote_characters = NULL;"},{"Add":"}"},{"Add":""},{"Add":"char *gReadline(const char *prompt) {"},{"Add":" int e = errno;"},{"Add":" char *p = readline(prompt);"},{"Add":""},{"Add":" errno = e;"},{"Add":" return p;"},{"Add":"}"},{"Add":""},{"Add":"void rlHide(void) {"},{"Add":" if (rl_readline_state & RL_STATE_INITIALIZED && !(rl_readline_state & RL_STATE_DONE)) {"},{"Add":" rl_clear_visible_line();"},{"Add":" fflush(stdout);"},{"Add":" }"},{"Add":"}"},{"Add":""},{"Add":"void rlShow(void) {"},{"Add":" if (rl_readline_state & RL_STATE_INITIALIZED && !(rl_readline_state & RL_STATE_DONE))"},{"Add":" rl_forced_update_display();"},{"Add":"}"},{"Add":""},{"Add":"void rlSigBeg(void) {"},{"Add":" if (rl_readline_state & RL_STATE_INITIALIZED) {"},{"Add":" rl_save_prompt();"},{"Add":" rl_free_line_state();"},{"Add":" rl_cleanup_after_signal();"},{"Add":" }"},{"Add":"}"},{"Add":""},{"Add":"void rlSigEnd(void) {"},{"Add":" if (rl_readline_state & RL_STATE_SIGHANDLER) {"},{"Add":" rl_reset_after_signal();"},{"Add":" rl_restore_prompt();"},{"Add":" }"},{"Add":"}"},{"Add":""},{"Add":"char *currentLine(void) {"},{"Add":" HIST_ENTRY *h;"},{"Add":""},{"Add":" return (h = history_get(history_length))? h->line : NULL;"},{"Add":"}"},{"Add":""},{"Add":"// Signals"},{"Add":"const int32_t Sig[] = {"},{"Add":" SIGHUP, SIGINT, SIGUSR1, SIGUSR2, SIGPIPE, SIGALRM, SIGTERM, SIGCHLD,"},{"Add":" SIGCONT, SIGSTOP, SIGTSTP, SIGTTIN, SIGTTOU, SIGWINCH, SIGIO"},{"Add":"};"},{"Add":""},{"Add":"const sighandler_t SigDfl = SIG_DFL;"},{"Add":"const sighandler_t SigIgn = SIG_IGN;"},{"Add":""},{"Add":"// Sync src/defs.l 'SIGHUP' and src/glob.l '$Signal'"},{"Add":"int32_t gSignal(int32_t n) {"},{"Add":" switch (n) {"},{"Add":" case SIGHUP: return 1;"},{"Add":" case SIGINT: return 2;"},{"Add":" case SIGUSR1: return 3;"},{"Add":" case SIGUSR2: return 4;"},{"Add":" case SIGPIPE: return 5;"},{"Add":" case SIGALRM: return 6;"},{"Add":" case SIGTERM: return 7;"},{"Add":" case SIGCHLD: return 8;"},{"Add":" case SIGCONT: return 9;"},{"Add":" case SIGSTOP: return 10;"},{"Add":" case SIGTSTP: return 11;"},{"Add":" case SIGTTIN: return 12;"},{"Add":" case SIGTTOU: return 13;"},{"Add":" case SIGWINCH: return 14;"},{"Add":" case SIGIO: return 15;"},{"Add":" }"},{"Add":" return 0;"},{"Add":"}"},{"Add":""},{"Add":"void iSignal(int32_t n, void (*fun)(int)) {"},{"Add":" struct sigaction act;"},{"Add":""},{"Add":" act.sa_handler = fun;"},{"Add":" sigemptyset(&act.sa_mask);"},{"Add":" act.sa_flags = 0;"},{"Add":" sigaction((int)n, &act, NULL);"},{"Add":"}"},{"Add":""},{"Add":"void sigUnblock(int32_t sig) {"},{"Add":" sigset_t mask;"},{"Add":""},{"Add":" if (sig == 0)"},{"Add":" sigfillset(&mask);"},{"Add":" else {"},{"Add":" sigemptyset(&mask);"},{"Add":" sigaddset(&mask, (int)sig);"},{"Add":" }"},{"Add":" sigprocmask(SIG_UNBLOCK, &mask, NULL);"},{"Add":"}"},{"Add":""},{"Add":"void sigChld(int n __attribute__((unused))) {"},{"Add":" int e, stat;"},{"Add":" pid_t pid;"},{"Add":""},{"Add":" e = errno;"},{"Add":" while ((pid = waitpid(0, &stat, WNOHANG)) > 0)"},{"Add":" if (WIFSIGNALED(stat))"},{"Add":" fprintf(stderr, \"%d SIG-%d\\n\", (int)pid, WTERMSIG(stat));"},{"Add":" errno = e;"},{"Add":"}"},{"Add":""},{"Add":"int32_t waitWuntraced(int32_t pid, int32_t *res) {"},{"Add":" return waitpid((pid_t)pid, (int*)res, WUNTRACED);"},{"Add":"}"},{"Add":""},{"Add":"int32_t wifStopped(int32_t *res) {"},{"Add":" return WIFSTOPPED(*(int*)res);"},{"Add":"}"},{"Add":""},{"Add":"int32_t nErrno(void) {"},{"Add":" return errno;"},{"Add":"}"},{"Add":""},{"Add":"// Sync src/defs.l 'ENOENT'"},{"Add":"int32_t gErrno(void) {"},{"Add":" switch (errno) {"},{"Add":" case ENOENT: return 1;"},{"Add":" case EINTR: return 2;"},{"Add":" case EBADF: return 3;"},{"Add":" case EAGAIN: return 4;"},{"Add":" case EACCES: return 5;"},{"Add":" case EPIPE: return 6;"},{"Add":" case ECONNRESET: return 7;"},{"Add":" }"},{"Add":" return 0;"},{"Add":"}"},{"Add":""},{"Add":"// Terminal"},{"Add":"char Tio;"},{"Add":"struct termios OrgTermio;"},{"Add":"struct termios *Termio;"},{"Add":""},{"Add":"static void tcSet(struct termios *p) {"},{"Add":" while (tcsetattr(STDIN_FILENO, TCSADRAIN, p) && errno == EINTR);"},{"Add":"}"},{"Add":""},{"Add":"void stopTerm(void) {"},{"Add":" sigset_t mask;"},{"Add":""},{"Add":" if (Tio) {"},{"Add":" sigUnblock(SIGTSTP);"},{"Add":" signal(SIGTSTP, SIG_DFL), raise(SIGTSTP);"},{"Add":" if (Termio)"},{"Add":" tcSet(Termio);"},{"Add":" else"},{"Add":" tcSet(&OrgTermio);"},{"Add":" }"},{"Add":"}"},{"Add":""},{"Add":"void setRaw(void) {"},{"Add":" if (Tio && !Termio) {"},{"Add":" *(Termio = malloc(sizeof(struct termios))) = OrgTermio;"},{"Add":" tcgetattr(STDIN_FILENO, Termio);"},{"Add":" Termio->c_iflag = 0;"},{"Add":" Termio->c_lflag = ISIG;"},{"Add":" Termio->c_cc[VMIN] = 1;"},{"Add":" Termio->c_cc[VTIME] = 0;"},{"Add":" tcSet(Termio);"},{"Add":" }"},{"Add":"}"},{"Add":""},{"Add":"void setCooked(void) {"},{"Add":" rl_deprep_terminal();"},{"Add":" if (Termio) {"},{"Add":" tcSet(&OrgTermio);"},{"Add":" free(Termio), Termio = NULL;"},{"Add":" }"},{"Add":"}"},{"Add":""},{"Add":"int reopenTty(char* tty) {"},{"Add":" return"},{"Add":" freopen(tty, \"r\", stdin) != NULL &&"},{"Add":" freopen(tty, \"w\", stdout) != NULL &&"},{"Add":" freopen(tty, \"w\", stderr) != NULL;"},{"Add":"}"},{"Add":""},{"Add":"// System"},{"Add":"static struct timeval Tv;"},{"Add":"static struct tm *Time;"},{"Add":""},{"Add":"int64_t getUsec(int flg) {"},{"Add":" if (flg) {"},{"Add":" struct timeval tim;"},{"Add":""},{"Add":" if (gettimeofday(&tim, NULL))"},{"Add":" return 0;"},{"Add":" return (int64_t)tim.tv_sec * 1000000 + (int64_t)tim.tv_usec;"},{"Add":" }"},{"Add":" return (int64_t)Tv.tv_usec;"},{"Add":"}"},{"Add":""},{"Add":"int64_t getMsec(void) {"},{"Add":" struct timeval tim;"},{"Add":""},{"Add":" if (gettimeofday(&tim, NULL))"},{"Add":" return 0;"},{"Add":" return (int64_t)tim.tv_sec * 1000 + ((int64_t)tim.tv_usec + 500) / 1000;"},{"Add":"}"},{"Add":""},{"Add":"int64_t getDate(void) {"},{"Add":" if (gettimeofday(&Tv, NULL))"},{"Add":" return 0;"},{"Add":" Time = localtime(&Tv.tv_sec);"},{"Add":" return Time->tm_year+1900 | (Time->tm_mon+1) << 16 | Time->tm_mday << 24;"},{"Add":"}"},{"Add":""},{"Add":"int64_t getGmDate(void) {"},{"Add":" if (gettimeofday(&Tv, NULL))"},{"Add":" return 0;"},{"Add":" Time = gmtime(&Tv.tv_sec);"},{"Add":" return Time->tm_year+1900 | (Time->tm_mon+1) << 16 | Time->tm_mday << 24;"},{"Add":"}"},{"Add":""},{"Add":"int64_t getTime(void) {"},{"Add":" struct tm *p;"},{"Add":""},{"Add":" if (gettimeofday(&Tv, NULL))"},{"Add":" return 0;"},{"Add":" p = localtime(&Tv.tv_sec);"},{"Add":" return p->tm_hour * 3600 + p->tm_min * 60 + p->tm_sec;"},{"Add":"}"},{"Add":""},{"Add":"int64_t getGmTime(void) {"},{"Add":" return Time? (Time->tm_hour * 3600 + Time->tm_min * 60 + Time->tm_sec) : -1;"},{"Add":"}"},{"Add":""},{"Add":"char *ulimStk(void) {"},{"Add":" struct rlimit stk;"},{"Add":""},{"Add":" if (getrlimit(RLIMIT_STACK, &stk) < 0)"},{"Add":" return NULL;"},{"Add":" if (stk.rlim_cur == RLIM_INFINITY)"},{"Add":" return (char*)1;"},{"Add":" return (char*)&stk - stk.rlim_cur + 16384;"},{"Add":"}"},{"Add":""},{"Add":"int64_t fileInfo(int lnk, int loc, char *nm, int64_t *siz) {"},{"Add":" int64_t n;"},{"Add":" struct tm *p;"},{"Add":" struct stat st;"},{"Add":""},{"Add":" if ((lnk? stat(nm, &st) : lstat(nm, &st)) < 0)"},{"Add":" return -1;"},{"Add":" p = loc? localtime(&st.st_mtime) : gmtime(&st.st_mtime);"},{"Add":" n = (p->tm_year+1900 | (p->tm_mon+1) << 16 | p->tm_mday << 24 |"},{"Add":" (int64_t)(p->tm_hour * 3600 + p->tm_min * 60 + p->tm_sec) << 32 ) << 2;"},{"Add":" if ((st.st_mode & S_IFMT) == S_IFDIR)"},{"Add":" return n + 1;"},{"Add":" if ((st.st_mode & S_IFMT) != S_IFREG)"},{"Add":" return n + 2;"},{"Add":" *siz = st.st_size;"},{"Add":" return n;"},{"Add":"}"},{"Add":""},{"Add":"// Polling"},{"Add":"void pollIn(int32_t fd, struct pollfd *p) {"},{"Add":" p->fd = fd;"},{"Add":" p->events = POLLIN;"},{"Add":"}"},{"Add":""},{"Add":"void pollOut(int32_t fd, struct pollfd *p) {"},{"Add":" p->fd = fd;"},{"Add":" p->events = POLLOUT;"},{"Add":"}"},{"Add":""},{"Add":"void pollIgn(struct pollfd *p) {"},{"Add":" p->fd = -1;"},{"Add":"}"},{"Add":""},{"Add":"int32_t gPoll(struct pollfd *fds, int32_t nfds, int64_t timeout) {"},{"Add":"#ifdef __linux__"},{"Add":" struct timespec ts, *tp;"},{"Add":" extern int ppoll(struct pollfd *fds, nfds_t nfds, const struct timespec *tmo_p, const sigset_t *sigmask);"},{"Add":""},{"Add":" if (timeout == 9223372036854775807) { // 292MY"},{"Add":" int i = nfds;"},{"Add":" do"},{"Add":" if (--i < 0)"},{"Add":" return 0;"},{"Add":" while (fds[i].fd < 0);"},{"Add":" tp = NULL;"},{"Add":" }"},{"Add":" else {"},{"Add":" ts.tv_sec = timeout / 1000;"},{"Add":" ts.tv_nsec = timeout % 1000 * 1000000;"},{"Add":" tp = &ts;"},{"Add":" }"},{"Add":" return (int32_t)ppoll(fds, (nfds_t)nfds, tp, NULL);"},{"Add":"#else"},{"Add":" int to;"},{"Add":""},{"Add":" if (timeout > 2147483647) { // Fit into 32 bits (max 24 days)"},{"Add":" int i = nfds;"},{"Add":" do"},{"Add":" if (--i < 0)"},{"Add":" return 0;"},{"Add":" while (fds[i].fd < 0);"},{"Add":" to = -1;"},{"Add":" }"},{"Add":" else"},{"Add":" to = (int)timeout;"},{"Add":" return (int32_t)poll(fds, (nfds_t)nfds, to);"},{"Add":"#endif"},{"Add":"}"},{"Add":""},{"Add":"int readyIn(struct pollfd *p) {"},{"Add":" if (p->fd < 0)"},{"Add":" return 0;"},{"Add":" p->fd = -1;"},{"Add":" return (p->revents & (POLLIN | POLLHUP | POLLERR | POLLNVAL)) != 0;"},{"Add":"}"},{"Add":""},{"Add":"int readyOut(struct pollfd *p) {"},{"Add":" if (p->fd < 0)"},{"Add":" return 0;"},{"Add":" p->fd = -1;"},{"Add":" return (p->revents & POLLOUT | POLLERR | POLLNVAL) != 0;"},{"Add":"}"},{"Add":""},{"Add":"// Locking"},{"Add":"int32_t rdLock(int32_t fd, off_t n, off_t len, int wait) {"},{"Add":" struct flock fl;"},{"Add":""},{"Add":" fl.l_type = F_RDLCK;"},{"Add":" fl.l_whence = SEEK_SET;"},{"Add":" fl.l_start = n;"},{"Add":" fl.l_len = len;"},{"Add":" return (int32_t)fcntl(fd, wait? F_SETLKW : F_SETLK, &fl);"},{"Add":"}"},{"Add":""},{"Add":"int32_t wrLock(int32_t fd, off_t n, off_t len, int wait) {"},{"Add":" struct flock fl;"},{"Add":""},{"Add":" fl.l_type = F_WRLCK;"},{"Add":" fl.l_whence = SEEK_SET;"},{"Add":" fl.l_start = n;"},{"Add":" fl.l_len = len;"},{"Add":" return (int32_t)fcntl(fd, wait? F_SETLKW : F_SETLK, &fl);"},{"Add":"}"},{"Add":""},{"Add":"int32_t unLock(int32_t fd, off_t n, off_t len) {"},{"Add":" struct flock fl;"},{"Add":""},{"Add":" fl.l_type = F_UNLCK;"},{"Add":" fl.l_whence = SEEK_SET;"},{"Add":" fl.l_start = n;"},{"Add":" fl.l_len = len;"},{"Add":" return (int32_t)fcntl(fd, F_SETLK, &fl);"},{"Add":"}"},{"Add":""},{"Add":"int32_t getLock(int32_t fd, off_t n, off_t len) {"},{"Add":" struct flock fl;"},{"Add":""},{"Add":" fl.l_type = F_WRLCK;"},{"Add":" fl.l_whence = SEEK_SET;"},{"Add":" fl.l_start = n;"},{"Add":" fl.l_len = len;"},{"Add":" if (fcntl(fd, F_GETLK, &fl) < 0)"},{"Add":" return -1;"},{"Add":" return fl.l_type == F_UNLCK? 0 : fl.l_pid;"},{"Add":"}"},{"Add":""},{"Add":"// Catch and Throw"},{"Add":"const int64_t JmpBufSize = sizeof(jmp_buf);"},{"Add":"jmp_buf QuitRst;"},{"Add":""},{"Add":"// Lisp data access from C"},{"Add":"any name(any x) {"},{"Add":" while (!num(x))"},{"Add":" x = cdr(x);"},{"Add":" return x;"},{"Add":"}"},{"Add":""},{"Add":"any number(any x) {"},{"Add":" any n = cnt(x)? x >> 4 : val(dig(x));"},{"Add":" return sign(x)? -n : n;"},{"Add":"}"},{"Add":""},{"Add":"any length(any x) {"},{"Add":" int n = 0;"},{"Add":""},{"Add":" while (!atom(x))"},{"Add":" ++n, x = cdr(x);"},{"Add":" return (int32_t)n;"},{"Add":"}"},{"Add":""},{"Add":"any box64(any x) {"},{"Add":" return x & 0xF000000000000000? boxNum(x) : x << 4 | 2;"},{"Add":"}"},{"Add":""},{"Add":"// Native library interface"},{"Add":"#define FMAX ((float)UINT64_MAX)"},{"Add":"#define DMAX ((double)UINT64_MAX)"},{"Add":""},{"Add":"char Fsign;"},{"Add":"uint64_t Fdigit;"},{"Add":""},{"Add":"static union {"},{"Add":" float f;"},{"Add":" double d;"},{"Add":"} Fval;"},{"Add":""},{"Add":"uint64_t boxFloat(uint32_t value, int64_t scl) {"},{"Add":" float f = *(float*)&value * (float)scl;"},{"Add":""},{"Add":" if (isnan(f) || isinf(f) < 0)"},{"Add":" return (uint64_t)(SymTab + Nil);"},{"Add":" if (isinf(f) > 0)"},{"Add":" return (uint64_t)(SymTab + T);"},{"Add":" Fsign = 0;"},{"Add":" if (f < 0.0)"},{"Add":" Fsign = 1, f = -f;"},{"Add":" f += 0.5;"},{"Add":" if (f < FMAX)"},{"Add":" return box64((uint64_t)f);"},{"Add":" Fdigit = (uint64_t)fmod(f, FMAX);"},{"Add":" Fval.f = f / FMAX;"},{"Add":" return 0;"},{"Add":"}"},{"Add":""},{"Add":"uint64_t boxFlt(void) {"},{"Add":" if (Fval.f < FMAX)"},{"Add":" return box64((uint64_t)Fval.f);"},{"Add":" Fdigit = (uint64_t)fmod(Fval.f, FMAX);"},{"Add":" Fval.f /= FMAX;"},{"Add":" return 0;"},{"Add":"}"},{"Add":""},{"Add":"uint64_t boxDouble(uint64_t value, int64_t scl) {"},{"Add":" double d = *(double*)&value * (double)scl;"},{"Add":""},{"Add":" if (isnan(d) || isinf(d) < 0)"},{"Add":" return (uint64_t)(SymTab + Nil);"},{"Add":" if (isinf(d) > 0)"},{"Add":" return (uint64_t)(SymTab + T);"},{"Add":" Fsign = 0;"},{"Add":" if (d < 0.0)"},{"Add":" Fsign = 1, d = -d;"},{"Add":" d += 0.5;"},{"Add":" if (d < DMAX)"},{"Add":" return box64((uint64_t)d);"},{"Add":" Fdigit = (uint64_t)fmod(d, DMAX);"},{"Add":" Fval.d = d / DMAX;"},{"Add":" return 0;"},{"Add":"}"},{"Add":""},{"Add":"uint64_t boxDbl(void) {"},{"Add":" if (Fval.d < DMAX)"},{"Add":" return box64((uint64_t)Fval.d);"},{"Add":" Fdigit = (uint64_t)fmod(Fval.d, DMAX);"},{"Add":" Fval.d /= DMAX;"},{"Add":" return 0;"},{"Add":"}"},{"Add":""},{"Add":"void bufFloat(uint64_t value, int64_t scl, char *p) {"},{"Add":" float f, m;"},{"Add":" uint64_t x;"},{"Add":""},{"Add":" if (cnt(value))"},{"Add":" f = (float)(value >> 4);"},{"Add":" else {"},{"Add":" f = (float)val(dig(x = value)), m = FMAX;"},{"Add":" while (!cnt(x = val(big(x))))"},{"Add":" f += m * (float)val(dig(x)), m *= FMAX;"},{"Add":" f += m * (float)(x >> 4);"},{"Add":" }"},{"Add":" f /= (float)scl;"},{"Add":" *(float*)p = sign(value)? -f : f;"},{"Add":"}"},{"Add":""},{"Add":"void bufDouble(uint64_t value, int64_t scl, char *p) {"},{"Add":" double d, m;"},{"Add":" uint64_t x;"},{"Add":""},{"Add":" if (cnt(value))"},{"Add":" d = (double)(value >> 4);"},{"Add":" else {"},{"Add":" d = (double)val(dig(x = value)), m = DMAX;"},{"Add":" while (!cnt(x = val(big(x))))"},{"Add":" d += m * (double)val(dig(x)), m *= DMAX;"},{"Add":" d += m * (double)(x >> 4);"},{"Add":" }"},{"Add":" d /= (double)scl;"},{"Add":" *(double*)p = sign(value)? -d : d;"},{"Add":"}"},{"Add":""},{"Add":"#define _GNU_SOURCE"},{"Add":"#define __USE_GNU"},{"Add":"#include "},{"Add":""},{"Add":"#include "},{"Add":""},{"Add":"typedef struct ffi {"},{"Add":" ffi_cif cif;"},{"Add":" void (*fun)(void);"},{"Add":" ffi_type *args[0];"},{"Add":"} ffi;"},{"Add":""},{"Add":"void *dlOpen(char *lib) {"},{"Add":" return dlopen(lib, RTLD_LAZY | RTLD_GLOBAL);"},{"Add":"}"},{"Add":""},{"Add":"ffi *ffiPrep(char *lib, char *fun, uint64_t lst) {"},{"Add":" uint64_t x = car(lst);"},{"Add":" uint64_t y = cdr(lst);"},{"Add":" int i, nargs = length(y);"},{"Add":" ffi *p = malloc(sizeof(ffi) + nargs * sizeof(ffi_type*));"},{"Add":" ffi_type *rtype;"},{"Add":""},{"Add":" if (x == (uint64_t)(SymTab + Nil))"},{"Add":" rtype = &ffi_type_void;"},{"Add":" else if (x == (uint64_t)(SymTab + T))"},{"Add":" rtype = &ffi_type_sint64;"},{"Add":" else if (x == (uint64_t)(SymTab + N))"},{"Add":" rtype = &ffi_type_sint64;"},{"Add":" else if (x == (uint64_t)(SymTab + P))"},{"Add":" rtype = &ffi_type_uint64;"},{"Add":" else if (x == (uint64_t)(SymTab + I))"},{"Add":" rtype = &ffi_type_sint32;"},{"Add":" else if (x == (uint64_t)(SymTab + C))"},{"Add":" rtype = &ffi_type_uint32;"},{"Add":" else if (x == (uint64_t)(SymTab + W))"},{"Add":" rtype = &ffi_type_sint16;"},{"Add":" else if (x == (uint64_t)(SymTab + B))"},{"Add":" rtype = &ffi_type_uint8;"},{"Add":" else if (cnt(x))"},{"Add":" rtype = (x & 8)? &ffi_type_float : &ffi_type_double;"},{"Add":" else"},{"Add":" rtype = &ffi_type_pointer;"},{"Add":" for (i = 0; i < nargs; ++i, y = cdr(y)) {"},{"Add":" x = car(y);"},{"Add":" if (num(x))"},{"Add":" p->args[i] = &ffi_type_sint64;"},{"Add":" else if (sym(x) || car(x) == (uint64_t)(SymTab + T))"},{"Add":" p->args[i] = &ffi_type_pointer;"},{"Add":" else if (cnt(cdr(x)))"},{"Add":" p->args[i] = (cdr(x) & 8)? &ffi_type_float : &ffi_type_double;"},{"Add":" else"},{"Add":" p->args[i] = &ffi_type_pointer;"},{"Add":" }"},{"Add":" if (ffi_prep_cif(&p->cif, FFI_DEFAULT_ABI, nargs, rtype, p->args) == FFI_OK &&"},{"Add":" (p->fun = dlsym(lib ?: RTLD_DEFAULT, fun)) )"},{"Add":" return p;"},{"Add":" free(p);"},{"Add":" return NULL;"},{"Add":"}"},{"Add":""},{"Add":"uint64_t ffiCall(ffi *p, uint64_t lst) {"},{"Add":" uint64_t x, y, z;"},{"Add":" int i, nargs = length(lst);"},{"Add":" uint64_t value[nargs];"},{"Add":" void *ptr[nargs];"},{"Add":" uint64_t rc;"},{"Add":""},{"Add":" for (i = 0, z = lst; i < nargs; ++i, z = cdr(z)) {"},{"Add":" x = car(z);"},{"Add":" ptr[i] = &value[i];"},{"Add":" if (num(x)) // Number"},{"Add":" value[i] = number(x);"},{"Add":" else if (sym(x)) { // String"},{"Add":" if (x == (uint64_t)(SymTab + Nil))"},{"Add":" value[i] = (uint64_t)\"\";"},{"Add":" else {"},{"Add":" uint64_t nm = name(val(tail(x)));"},{"Add":" bufString(nm, (char*)(value[i] = (uint64_t)alloca(bufSize(nm))));"},{"Add":" }"},{"Add":" }"},{"Add":" else if (car(x) == (uint64_t)(SymTab + T)) // Direct Lisp value"},{"Add":" value[i] = cdr(x);"},{"Add":" else if (cnt(y = cdr(x))) { // Fixpoint"},{"Add":" if (y & 8)"},{"Add":" bufFloat(car(x), y >> 4, &value[i]);"},{"Add":" else"},{"Add":" bufDouble(car(x), y >> 4, &value[i]);"},{"Add":" }"},{"Add":" else if (!atom(y)) { // Structure"},{"Add":" int64_t d, n = car(car(y)) >> 4;"},{"Add":" char *q = alloca(n);"},{"Add":""},{"Add":" value[i] = (uint64_t)q;"},{"Add":" for (;;) {"},{"Add":" if (cnt(y = cdr(y))) {"},{"Add":" char b = y >> 4; // Byte value"},{"Add":""},{"Add":" while (--n >= 0)"},{"Add":" *q++ = b;"},{"Add":" break;"},{"Add":" }"},{"Add":" if (atom(y))"},{"Add":" break;"},{"Add":" if (n <= 0)"},{"Add":" err(0, 0, \"Init oversize\", NULL);"},{"Add":" d = natBuf(car(y), q);"},{"Add":" n -= d, q += d;"},{"Add":" }"},{"Add":" }"},{"Add":" else"},{"Add":" argErr(0, x);"},{"Add":" }"},{"Add":" ffi_call(&p->cif, p->fun, &rc, ptr);"},{"Add":" for (i = 0; i < nargs; ++i, lst = cdr(lst)) {"},{"Add":" x = car(lst);"},{"Add":" if (!atom(x) && !num(y = cdr(x)) && (z = car(x)) != (uint64_t)(SymTab + Nil) && z != (uint64_t)(SymTab + T))"},{"Add":" set(z, natRetBuf(cdr(car(y)), (char**)&value[i]));"},{"Add":" }"},{"Add":" return rc;"},{"Add":"}"},{"Add":""},{"Add":"void *arg(void *p) {"},{"Add":" return p;"},{"Add":"}"},{"Add":""},{"Add":"// Util"},{"Add":"int chance(int64_t m) {"},{"Add":" static uint32_t seed = 1664525;"},{"Add":""},{"Add":" return (((seed = seed * 1664525 + 1) >> 16) & (int32_t)m) != 0;"},{"Add":"}"},{"Add":""},{"Add":""},{"Add":"// Case mappings from the GNU Kaffe Project"},{"Add":"#define CHAR_UPPERCASE 1"},{"Add":"#define CHAR_LOWERCASE 2"},{"Add":"#define CHAR_LETTER 62"},{"Add":"#define CHAR_DIGIT 512"},{"Add":""},{"Add":"static uint16_t Blocks[] = {"},{"Add":" 0x1C2, 0x1C2, 0x1C1, 0x12C, 0x12B, 0x1A0, 0x1F8, 0x2DC, 0x25F, 0x2EE, 0x215, 0x346, 0x2DC, 0x326, 0x2BC, 0x216,"},{"Add":" 0x15F, 0x2D4, 0x376, 0x376, 0x376, 0x369, 0xFE8F, 0x344, 0xFF85, 0xFF65, 0xFDB5, 0xFDA1, 0x1B, 0x2C4, 0x1C, 0x47,"},{"Add":" 0xFEA8, 0xFF8C, 0x235, 0xFEFF, 0x1A, 0xFEBF, 0x26, 0xFB20, 0xFE28, 0x113, 0x104, 0xFB61, 0xFB5A, 0x10B, 0x109, 0xFE,"},{"Add":" 0xFF08, 0x229, 0x25E, 0x1C7, 0x1FC, 0x1DC, 0xFC46, 0x229, 0xFE27, 0xFB55, 0x169, 0xFBC8, 0xFC, 0x103, 0xFB68, 0xFB48,"},{"Add":" 0xFB28, 0xFB08, 0xFAE8, 0xFAC8, 0xFAA8, 0xFA88, 0xFA68, 0xFA48, 0x65, 0x50, 0xAB, 0x139, 0xFE0E, 0x63, 0x155, 0x1A8,"},{"Add":" 0xF669, 0x129, 0x128, 0xF91F, 0xFE56, 0x108, 0x107, 0xFAC0, 0xFC8E, 0xFEAD, 0xC6, 0xFCA7, 0xFB95, 0xF47D, 0x9F, 0xFB17,"},{"Add":" 0xFE20, 0xFD28, 0xFB2F, 0x3B, 0xF3B9, 0xFE57, 0xFCCE, 0xFFBB, 0xF339, 0xFA98, 0xFF8B, 0xFF3B, 0xFA54, 0xF7E3, 0xFF2B, 0xFAD7,"},{"Add":" 0xFB69, 0xFC3A, 0xFEE5, 0xF4C8, 0xFCB0, 0xFA88, 0xFDBF, 0xF448, 0xFE45, 0xFCC7, 0xFE4F, 0xF7F1, 0xF715, 0xF2E8, 0xFD9F, 0xF348,"},{"Add":" 0xF96A, 0xFC02, 0xFD97, 0xF2C8, 0xF2A8, 0xF4B9, 0xF4B3, 0xEF6B, 0xF86A, 0xF84A, 0xFC58, 0xF80A, 0xF7EA, 0xFC0F, 0xF7AA, 0xEE9C,"},{"Add":" 0xFB90, 0xF74A, 0xF7FA, 0xF70A, 0xF7CA, 0xF792, 0xF471, 0xF4D2, 0xF732, 0xF64A, 0xF401, 0xF64D, 0xEFA8, 0xF5CA, 0xF5AA, 0xECA1,"},{"Add":" 0xF569, 0xF54A, 0xF52A, 0xF50A, 0xF4EA, 0xF4CA, 0xF4AA, 0xF48A, 0xF46A, 0xF44A, 0xF42A, 0xF40A, 0xF3EA, 0xF3CA, 0xF3AA, 0xF38A,"},{"Add":" 0xF36A, 0xF34A, 0xF32A, 0xF289, 0xF777, 0xF2CA, 0xF2AA, 0xF737, 0xEC28, 0xEC08, 0xEBE8, 0xEBC8, 0xF1EA, 0xF4A2, 0xF545, 0xEDC6,"},{"Add":" 0xF2D7, 0xF14A, 0xE8ED, 0xE81E, 0xF0EA, 0xF597, 0xEA68, 0xEA48, 0xEA28, 0xEA08, 0xE9E8, 0xE9C8, 0xE9A8, 0xE988, 0xE968, 0xE948,"},{"Add":" 0xE928, 0xE908, 0xE8E8, 0xE8C8, 0xE8A8, 0xE888, 0xE868, 0xE848, 0xE828, 0xE808, 0xE7E8, 0xE7C8, 0xE7A8, 0xE788, 0xE768, 0xE748,"},{"Add":" 0xE728, 0xE708, 0xE6E8, 0xE6C8, 0xE6A8, 0xE688, 0xE668, 0xE648, 0xE628, 0xE608, 0xE5E8, 0xE5C8, 0xE5A8, 0xE588, 0xE568, 0xE548,"},{"Add":" 0xE55F, 0xE53F, 0xE51F, 0xE4FF, 0xEFD7, 0xE4BF, 0xE49F, 0xE485, 0xEF87, 0xEF57, 0xEF57, 0xEF57, 0xEF57, 0xEF47, 0xE1AD, 0xEF46,"},{"Add":" 0xEF46, 0xEF46, 0xE1E0, 0xE3DD, 0xEF06, 0xE9D9, 0xEBEB, 0xE244, 0xEED4, 0xEF65, 0xE1F5, 0xEF45, 0xEEE9, 0xEF7C, 0xEE74, 0xEF70,"},{"Add":" 0xEF7D, 0xEF78, 0xEE91, 0xEFD3, 0xEE7D, 0xEE25, 0xEE27, 0xEF65, 0xEFDD, 0xEE96, 0xEFD3, 0xEFE1, 0xEF69, 0xDF88, 0xDF68, 0xDF48,"},{"Add":" 0xED2B, 0xED3D, 0xED19, 0xEF1C, 0xEF08, 0xED47, 0xED3D, 0xED33, 0xEC2B, 0xEC0B, 0xEBEB, 0xEBCB, 0xEBCE, 0xEA7C, 0xEB69, 0xEB6C,"},{"Add":" 0xE9B6, 0xEB0B, 0xEAEB, 0xE9E9, 0xDCA8, 0xDC88, 0xDC68, 0xDC48, 0xE910, 0xEA23, 0xEB58, 0xEB4F, 0xEB45, 0xEAE5, 0xDB68, 0xDB48,"},{"Add":" 0xE92B, 0xE90B, 0xE8EB, 0xE8CB, 0xE8AB, 0xE88B, 0xE86B, 0xE84B, 0xDA28, 0xDA08, 0xD9E8, 0xD9C8, 0xD9A8, 0xD988, 0xD968, 0xD948,"},{"Add":" 0xD928, 0xD908, 0xD8E8, 0xD8C8, 0xD8A8, 0xD888, 0xD868, 0xD848, 0xD828, 0xD808, 0xD7E8, 0xD7C8, 0xD7A8, 0xD788, 0xD768, 0xD748,"},{"Add":" 0xD728, 0xD708, 0xD6E8, 0xD6C8, 0xD6A8, 0xD688, 0xD668, 0xD648, 0xD628, 0xD608, 0xD5E8, 0xD5C8, 0xD5A8, 0xD588, 0xD568, 0xD548,"},{"Add":" 0xD528, 0xD508, 0xD4E8, 0xD4C8, 0xE2B1, 0xE28B, 0xE26B, 0xE270, 0xE22B, 0xE20B, 0xE1EB, 0xE1CB, 0xE1AB, 0xE18B, 0xE18E, 0xDD8F,"},{"Add":" 0xE3A8, 0xDFD3, 0xD929, 0xD90A, 0xE348, 0xD8C9, 0xD8AA, 0xDCD7, 0xDCB2, 0xD681, 0xD82A, 0xD80A, 0xE268, 0xCEDE, 0xD168, 0xD148,"},{"Add":" 0xE116, 0xE0E9, 0xE1CB, 0xE0B7, 0xE0B7, 0xE15E, 0xDF17, 0xE034, 0xE013, 0xDFF3, 0xDFD3, 0xDE6C, 0xDF93, 0xDF73, 0xDF55, 0xDF34,"},{"Add":" 0xD56A, 0xD54A, 0xD52A, 0xD50A, 0xD4EA, 0xD4CA, 0xD4AA, 0xD48A, 0xD46A, 0xD44A, 0xD42A, 0xD40A, 0xD3EA, 0xD3CA, 0xD3AA, 0xD38A,"},{"Add":" 0xD36A, 0xD34A, 0xD32A, 0xD30A, 0xD2EA, 0xD2CA, 0xD2AA, 0xD28A, 0xD26A, 0xD24A, 0xD22A, 0xD20A, 0xD1EA, 0xD1CA, 0xD1AA, 0xD18A,"},{"Add":" 0xD16A, 0xD14A, 0xD12A, 0xD10A, 0xD0EA, 0xD0CA, 0xD0AA, 0xD08A, 0xD06A, 0xD04A, 0xD02A, 0xD00A, 0xCFEA, 0xCFCA, 0xCFAA, 0xCF8A,"},{"Add":" 0xCF6A, 0xCF4A, 0xCF2A, 0xCF0A, 0xCEEA, 0xCECA, 0xCEAA, 0xCE8A, 0xCE6A, 0xCE4A, 0xCE2A, 0xCE0A, 0xCDEA, 0xCDCA, 0xCDAA, 0xCD8A,"},{"Add":" 0xCD6A, 0xCD4A, 0xCD2A, 0xCD0A, 0xCCEA, 0xCCCA, 0xCCAA, 0xCC8A, 0xCC6A, 0xCC4A, 0xCC2A, 0xCC0A, 0xCBEA, 0xCBCA, 0xCBAA, 0xCB8A,"},{"Add":" 0xCB6A, 0xCB4A, 0xCB2A, 0xCB0A, 0xCAEA, 0xCACA, 0xCAAA, 0xCA8A, 0xCA6A, 0xCA4A, 0xCA2A, 0xCA0A, 0xC9EA, 0xC9CA, 0xC9AA, 0xC98A,"},{"Add":" 0xC96A, 0xC94A, 0xC92A, 0xC90A, 0xC8EA, 0xC8CA, 0xC8AA, 0xC88A, 0xC86A, 0xC84A, 0xC82A, 0xC80A, 0xC7EA, 0xC7CA, 0xC7AA, 0xC78A,"},{"Add":" 0xC76A, 0xC74A, 0xC72A, 0xC70A, 0xC6EA, 0xC6CA, 0xC6AA, 0xC68A, 0xC66A, 0xC64A, 0xC62A, 0xC60A, 0xC5EA, 0xC5CA, 0xC5AA, 0xC58A,"},{"Add":" 0xC56A, 0xC54A, 0xC52A, 0xC50A, 0xC4EA, 0xC4CA, 0xC4AA, 0xC48A, 0xC46A, 0xC44A, 0xC42A, 0xC40A, 0xC3EA, 0xC3CA, 0xC3AA, 0xC38A,"},{"Add":" 0xC36A, 0xC34A, 0xC32A, 0xC30A, 0xC2EA, 0xC2CA, 0xC2AA, 0xC28A, 0xC26A, 0xC24A, 0xC22A, 0xC20A, 0xC1EA, 0xC1CA, 0xC1AA, 0xC18A,"},{"Add":" 0xC16A, 0xC14A, 0xC12A, 0xC10A, 0xC0EA, 0xC0CA, 0xC0AA, 0xC08A, 0xC06A, 0xC04A, 0xC02A, 0xC00A, 0xBFEA, 0xBFCA, 0xBFAA, 0xBF8A,"},{"Add":" 0xBF6A, 0xBF4A, 0xBF2A, 0xBF0A, 0xBEEA, 0xBECA, 0xBEAA, 0xBE8A, 0xBE6A, 0xBE4A, 0xBE2A, 0xBE0A, 0xBDEA, 0xBDCA, 0xBDAA, 0xBD8A,"},{"Add":" 0xBD6A, 0xBD4A, 0xBD2A, 0xBD0A, 0xBCEA, 0xBCCA, 0xBCAA, 0xBC8A, 0xBC6A, 0xBC4A, 0xBC2A, 0xBC0A, 0xBBEA, 0xB2E0, 0xB568, 0xB548,"},{"Add":" 0xBB6A, 0xBB4A, 0xBB2A, 0xBB0A, 0xBAEA, 0xBACA, 0xBAAA, 0xBA8A, 0xBA6A, 0xBA4A, 0xBA2A, 0xBA0A, 0xB9EA, 0xB9CA, 0xB9AA, 0xB98A,"},{"Add":" 0xB96A, 0xB94A, 0xB92A, 0xB90A, 0xB8EA, 0xB8CA, 0xB8AA, 0xB88A, 0xB86A, 0xB84A, 0xB82A, 0xB80A, 0xB7EA, 0xB7CA, 0xB7AA, 0xB78A,"},{"Add":" 0xB76A, 0xB74A, 0xB72A, 0xB70A, 0xB6EA, 0xB6CA, 0xB6AA, 0xB68A, 0xB66A, 0xB64A, 0xB62A, 0xB60A, 0xB5EA, 0xB5CA, 0xB5AA, 0xB58A,"},{"Add":" 0xB56A, 0xB54A, 0xB52A, 0xB50A, 0xB4EA, 0xB4CA, 0xB4AA, 0xB48A, 0xB46A, 0xB44A, 0xB42A, 0xB40A, 0xB3EA, 0xB3CA, 0xB3AA, 0xB38A,"},{"Add":" 0xB36A, 0xB34A, 0xB32A, 0xB30A, 0xB2EA, 0xB2CA, 0xB2AA, 0xB28A, 0xB26A, 0xB24A, 0xB22A, 0xB20A, 0xB1EA, 0xB1CA, 0xB1AA, 0xB18A,"},{"Add":" 0xB16A, 0xB14A, 0xB12A, 0xB10A, 0xB0EA, 0xB0CA, 0xB0AA, 0xB08A, 0xB06A, 0xB04A, 0xB02A, 0xB00A, 0xAFEA, 0xAFCA, 0xAFAA, 0xAF8A,"},{"Add":" 0xAF6A, 0xAF4A, 0xAF2A, 0xAF0A, 0xAEEA, 0xAECA, 0xAEAA, 0xAE8A, 0xAE6A, 0xAE4A, 0xAE2A, 0xAE0A, 0xADEA, 0xADCA, 0xADAA, 0xAD8A,"},{"Add":" 0xAD6A, 0xAD4A, 0xAD2A, 0xAD0A, 0xACEA, 0xACCA, 0xACAA, 0xAC8A, 0xAC6A, 0xAC4A, 0xAC2A, 0xAC0A, 0xABEA, 0xABCA, 0xABAA, 0xAB8A,"},{"Add":" 0xAB6A, 0xAB4A, 0xAB2A, 0xAB0A, 0xAAEA, 0xAACA, 0xAAAA, 0xAA8A, 0xAA6A, 0xAA4A, 0xAA2A, 0xAA0A, 0xA9EA, 0xA9CA, 0xA9AA, 0xA98A,"},{"Add":" 0xA96A, 0xA94A, 0xA92A, 0xA90A, 0xA8EA, 0xA8CA, 0xA8AA, 0xA88A, 0xA86A, 0xA84A, 0xA82A, 0xA80A, 0xA7EA, 0xA7CA, 0xA7AA, 0xA78A,"},{"Add":" 0xA76A, 0xA74A, 0xA72A, 0xA70A, 0xA6EA, 0xA6CA, 0xA6AA, 0xA68A, 0xA66A, 0xA64A, 0xA62A, 0xA60A, 0xA5EA, 0xA5CA, 0xA5AA, 0xA58A,"},{"Add":" 0xA56A, 0xA54A, 0xA52A, 0xA50A, 0xA4EA, 0xA4CA, 0xA4AA, 0xA48A, 0xA46A, 0xA44A, 0xA42A, 0xA40A, 0xA3EA, 0xA3CA, 0xA3AA, 0xA38A,"},{"Add":" 0xA36A, 0xA34A, 0xA32A, 0xA30A, 0xA2EA, 0xA2CA, 0xA2AA, 0xA28A, 0xA26A, 0xA24A, 0xA22A, 0xA20A, 0xA1EA, 0xA1CA, 0xA1AA, 0xA18A,"},{"Add":" 0xA16A, 0xA14A, 0xA12A, 0xA10A, 0xA0EA, 0xA0CA, 0xA0AA, 0xA08A, 0xA06A, 0xA04A, 0xA02A, 0xA00A, 0x9FEA, 0x9FCA, 0x9FAA, 0x9F8A,"},{"Add":" 0x9F6A, 0x9F4A, 0x9F2A, 0x9F0A, 0x9EEA, 0x9ECA, 0x9EAA, 0x9E8A, 0x9E6A, 0x9E4A, 0x9E2A, 0x9E0A, 0x9DEA, 0x9DCA, 0x9DAA, 0x9D8A,"},{"Add":" 0x9D6A, 0x9D4A, 0x9D2A, 0x9D0A, 0x9CEA, 0x9CCA, 0x9CAA, 0x9C8A, 0x9C6A, 0x9C4A, 0x9C2A, 0x9C0A, 0x9BEA, 0x9BCA, 0x9BAA, 0x9B8A,"},{"Add":" 0x9B6A, 0x9B4A, 0x9B2A, 0x9B0A, 0x9AEA, 0x9ACA, 0x9AAA, 0x9A8A, 0x9A6A, 0x9A4A, 0x9A2A, 0x9A0A, 0x99EA, 0x99CA, 0x99AA, 0x998A,"},{"Add":" 0x996A, 0x994A, 0x992A, 0x990A, 0x98EA, 0x98CA, 0x98AA, 0x988A, 0x986A, 0x984A, 0x982A, 0x980A, 0x97EA, 0x97CA, 0x97AA, 0x978A,"},{"Add":" 0x976A, 0x974A, 0x972A, 0x970A, 0x96EA, 0x96CA, 0x96AA, 0x968A, 0x966A, 0x964A, 0x962A, 0x960A, 0x95EA, 0x95CA, 0x95AA, 0x958A,"},{"Add":" 0x956A, 0x954A, 0x952A, 0x950A, 0x94EA, 0x94CA, 0x94AA, 0x948A, 0x946A, 0x944A, 0x942A, 0x940A, 0x93EA, 0x93CA, 0x93AA, 0x938A,"},{"Add":" 0x936A, 0x934A, 0x932A, 0x930A, 0x92EA, 0x92CA, 0x92AA, 0x928A, 0x926A, 0x924A, 0x922A, 0x920A, 0x91EA, 0x91CA, 0x91AA, 0x918A,"},{"Add":" 0x916A, 0x914A, 0x912A, 0x910A, 0x90EA, 0x90CA, 0x90AA, 0x908A, 0x906A, 0x904A, 0x902A, 0x900A, 0x8FEA, 0x8FCA, 0x8FAA, 0x8F8A,"},{"Add":" 0x8F6A, 0x8F4A, 0x8F2A, 0x8F0A, 0x8EEA, 0x8ECA, 0x8EAA, 0x8E8A, 0x8E6A, 0x8E4A, 0x8E2A, 0x8E0A, 0x8DEA, 0x8DCA, 0x8DAA, 0x8D8A,"},{"Add":" 0x8D6A, 0x8D4A, 0x8D2A, 0x8D0A, 0x8CEA, 0x8CCA, 0x8CAA, 0x8C8A, 0x8C6A, 0x8C4A, 0x8C2A, 0x8C0A, 0x8BEA, 0x8BCA, 0x8BAA, 0x8B8A,"},{"Add":" 0x8B6A, 0x8B4A, 0x8B2A, 0x8B0A, 0x8AEA, 0x8ACA, 0x8AAA, 0x8A8A, 0x8A6A, 0x8A4A, 0x8A2A, 0x8A0A, 0x89EA, 0x89CA, 0x89AA, 0x898A,"},{"Add":" 0x896A, 0x894A, 0x892A, 0x890A, 0x88EA, 0x88CA, 0x88AA, 0x888A, 0x886A, 0x884A, 0x882A, 0x880A, 0x87EA, 0x87CA, 0x87AA, 0x878A,"},{"Add":" 0x876A, 0x874A, 0x872A, 0x870A, 0x86EA, 0x86CA, 0x86AA, 0x868A, 0x866A, 0x864A, 0x862A, 0x860A, 0x85EA, 0x85CA, 0x85AA, 0x858A,"},{"Add":" 0x856A, 0x854A, 0x852A, 0x850A, 0x84EA, 0x84CA, 0x84AA, 0x848A, 0x846A, 0x844A, 0x842A, 0x840A, 0x83EA, 0x83CA, 0x83AA, 0x838A,"},{"Add":" 0x836A, 0x834A, 0x832A, 0x830A, 0x82EA, 0x82CA, 0x82AA, 0x828A, 0x826A, 0x824A, 0x822A, 0x820A, 0x81EA, 0x81CA, 0x81AA, 0x818A,"},{"Add":" 0x816A, 0x814A, 0x812A, 0x810A, 0x80EA, 0x80CA, 0x80AA, 0x808A, 0x806A, 0x804A, 0x802A, 0x800A, 0x7FEA, 0x7FCA, 0x7FAA, 0x7F8A,"},{"Add":" 0x7F6A, 0x7F4A, 0x7F2A, 0x7F0A, 0x7EEA, 0x7ECA, 0x7EAA, 0x7E8A, 0x7E6A, 0x7E4A, 0x7E2A, 0x7E0A, 0x7DEA, 0x7DCA, 0x7DAA, 0x7D8A,"},{"Add":" 0x7D6A, 0x7D4A, 0x7D2A, 0x7D0A, 0x7CEA, 0x7CCA, 0x7CAA, 0x7C8A, 0x7C6A, 0x7C4A, 0x7C2A, 0x7C0A, 0x7BEA, 0x7BCA, 0x7BAA, 0x7B8A,"},{"Add":" 0x7B6A, 0x7B4A, 0x7B2A, 0x7B0A, 0x7AEA, 0x7ACA, 0x7AAA, 0x7A8A, 0x7A6A, 0x7A4A, 0x7A2A, 0x7A0A, 0x79EA, 0x79CA, 0x79AA, 0x798A,"},{"Add":" 0x796A, 0x794A, 0x792A, 0x790A, 0x78EA, 0x78CA, 0x78AA, 0x788A, 0x786A, 0x784A, 0x782A, 0x780A, 0x77EA, 0x77CA, 0x77AA, 0x778A,"},{"Add":" 0x776A, 0x774A, 0x772A, 0x770A, 0x76EA, 0x76CA, 0x76AA, 0x768A, 0x766A, 0x764A, 0x762A, 0x760A, 0x75EA, 0x75CA, 0x75AA, 0x758A,"},{"Add":" 0x756A, 0x754A, 0x752A, 0x750A, 0x74EA, 0x74CA, 0x74AA, 0x748A, 0x746A, 0x744A, 0x742A, 0x740A, 0x73EA, 0x73CA, 0x73AA, 0x738A,"},{"Add":" 0x736A, 0x734A, 0x732A, 0x730A, 0x72EA, 0x72CA, 0x72AA, 0x728A, 0x726A, 0x724A, 0x722A, 0x720A, 0x71EA, 0x71CA, 0x71AA, 0x718A,"},{"Add":" 0x716A, 0x714A, 0x712A, 0x710A, 0x70EA, 0x70CA, 0x70AA, 0x708A, 0x706A, 0x704A, 0x702A, 0x700A, 0x6FEA, 0x6FCA, 0x6FAA, 0x6F8A,"},{"Add":" 0x6F6A, 0x6F4A, 0x6F2A, 0x6F0A, 0x6EEA, 0x6ECA, 0x6EAA, 0x6E8A, 0x6E6A, 0x6E4A, 0x6E2A, 0x6E0A, 0x6DEA, 0x6DCA, 0x6DAA, 0x6D8A,"},{"Add":" 0x6D6A, 0x6D4A, 0x6D2A, 0x6D0A, 0x6CEA, 0x6CCA, 0x6CAA, 0x6C8A, 0x6C6A, 0x6C4A, 0x6C2A, 0x6C0A, 0x6BEA, 0x6BCA, 0x6BAA, 0x6B8A,"},{"Add":" 0x6B6A, 0x6B4A, 0x6B2A, 0x6B0A, 0x6AEA, 0x6ACA, 0x6AAA, 0x6A8A, 0x6A6A, 0x6A4A, 0x6A2A, 0x6A0A, 0x69EA, 0x60F0, 0x6368, 0x6348,"},{"Add":" 0x696A, 0x694A, 0x692A, 0x690A, 0x68EA, 0x68CA, 0x68AA, 0x688A, 0x686A, 0x684A, 0x682A, 0x680A, 0x67EA, 0x67CA, 0x67AA, 0x678A,"},{"Add":" 0x676A, 0x674A, 0x672A, 0x670A, 0x66EA, 0x66CA, 0x66AA, 0x668A, 0x666A, 0x664A, 0x662A, 0x660A, 0x65EA, 0x65CA, 0x65AA, 0x658A,"},{"Add":" 0x656A, 0x654A, 0x652A, 0x650A, 0x6B26, 0x6DE1, 0x6E9C, 0x5E48, 0x5E28, 0x5E08, 0x5DE8, 0x5DC8, 0x5DA8, 0x5D88, 0x5D68, 0x5D48,"},{"Add":" 0x5D28, 0x5D08, 0x5CE8, 0x5CC8, 0x5CA8, 0x5C88, 0x5C68, 0x5C48, 0x5C28, 0x5C08, 0x5BE8, 0x5BC8, 0x5BA8, 0x5B88, 0x5B68, 0x5B48,"},{"Add":" 0x5B28, 0x5B08, 0x5AE8, 0x5AC8, 0x5AA8, 0x5A88, 0x5A68, 0x5A48, 0x5A28, 0x5A08, 0x59E8, 0x59C8, 0x59A8, 0x5988, 0x5968, 0x5948,"},{"Add":" 0x5928, 0x5908, 0x58E8, 0x58C8, 0x58A8, 0x5888, 0x5868, 0x5848, 0x5828, 0x5808, 0x57E8, 0x57C8, 0x57A8, 0x5788, 0x5768, 0x5748,"},{"Add":" 0x5D6A, 0x5D4A, 0x5D2A, 0x5D0A, 0x5CEA, 0x5CCA, 0x5CAA, 0x5C8A, 0x5C6A, 0x5C4A, 0x5C2A, 0x5C0A, 0x5BEA, 0x5BCA, 0x5BAA, 0x5B8A,"},{"Add":" 0x5B6A, 0x5B4A, 0x5B2A, 0x5B0A, 0x5AEA, 0x5ACA, 0x5AAA, 0x5A8A, 0x5A6A, 0x5A4A, 0x5A2A, 0x5A0A, 0x59EA, 0x59CA, 0x59AA, 0x598A,"},{"Add":" 0x596A, 0x594A, 0x592A, 0x590A, 0x58EA, 0x58CA, 0x58AA, 0x588A, 0x586A, 0x584A, 0x582A, 0x580A, 0x57EA, 0x57CA, 0x57AA, 0x578A,"},{"Add":" 0x576A, 0x574A, 0x572A, 0x570A, 0x56EA, 0x56CA, 0x56AA, 0x568A, 0x566A, 0x564A, 0x562A, 0x560A, 0x55EA, 0x55CA, 0x55AA, 0x558A,"},{"Add":" 0x556A, 0x554A, 0x552A, 0x550A, 0x54EA, 0x54CA, 0x54AA, 0x548A, 0x546A, 0x544A, 0x542A, 0x540A, 0x53EA, 0x53CA, 0x53AA, 0x538A,"},{"Add":" 0x536A, 0x534A, 0x532A, 0x530A, 0x52EA, 0x52CA, 0x52AA, 0x528A, 0x526A, 0x524A, 0x522A, 0x520A, 0x51EA, 0x51CA, 0x51AA, 0x518A,"},{"Add":" 0x516A, 0x514A, 0x512A, 0x510A, 0x50EA, 0x50CA, 0x50AA, 0x508A, 0x506A, 0x504A, 0x502A, 0x500A, 0x4FEA, 0x4FCA, 0x4FAA, 0x4F8A,"},{"Add":" 0x4F6A, 0x4F4A, 0x4F2A, 0x4F0A, 0x4EEA, 0x4ECA, 0x4EAA, 0x4E8A, 0x4E6A, 0x4E4A, 0x4E2A, 0x4E0A, 0x4DEA, 0x4DCA, 0x4DAA, 0x4D8A,"},{"Add":" 0x4D6A, 0x4D4A, 0x4D2A, 0x4D0A, 0x4CEA, 0x4CCA, 0x4CAA, 0x4C8A, 0x4C6A, 0x4C4A, 0x4C2A, 0x4C0A, 0x4BEA, 0x4BCA, 0x4BAA, 0x4B8A,"},{"Add":" 0x4B6A, 0x4B4A, 0x4B2A, 0x4B0A, 0x4AEA, 0x4ACA, 0x4AAA, 0x4A8A, 0x4A6A, 0x4A4A, 0x4A2A, 0x4A0A, 0x49EA, 0x49CA, 0x49AA, 0x498A,"},{"Add":" 0x496A, 0x494A, 0x492A, 0x490A, 0x48EA, 0x48CA, 0x48AA, 0x488A, 0x486A, 0x484A, 0x482A, 0x480A, 0x47EA, 0x47CA, 0x47AA, 0x478A,"},{"Add":" 0x476A, 0x474A, 0x472A, 0x470A, 0x46EA, 0x46CA, 0x46AA, 0x468A, 0x466A, 0x464A, 0x462A, 0x460A, 0x45EA, 0x45CA, 0x45AA, 0x458A,"},{"Add":" 0x456A, 0x454A, 0x452A, 0x450A, 0x44EA, 0x44CA, 0x44AA, 0x448A, 0x446A, 0x444A, 0x442A, 0x440A, 0x43EA, 0x43CA, 0x43AA, 0x438A,"},{"Add":" 0x436A, 0x434A, 0x432A, 0x430A, 0x42EA, 0x42CA, 0x42AA, 0x428A, 0x426A, 0x424A, 0x422A, 0x420A, 0x41EA, 0x41CA, 0x41AA, 0x418A,"},{"Add":" 0x416A, 0x414A, 0x412A, 0x410A, 0x40EA, 0x40CA, 0x40AA, 0x408A, 0x406A, 0x404A, 0x402A, 0x400A, 0x3FEA, 0x3FCA, 0x3FAA, 0x3F8A,"},{"Add":" 0x3F6A, 0x3F4A, 0x3F2A, 0x3F0A, 0x3EEA, 0x3ECA, 0x3EAA, 0x3E8A, 0x3E6A, 0x3E4A, 0x3E2A, 0x3E0A, 0x3DEA, 0x3DCA, 0x3DAA, 0x3D8A,"},{"Add":" 0x3D6A, 0x3D4A, 0x3D2A, 0x3D0A, 0x3CEA, 0x3CCA, 0x3CAA, 0x3C8A, 0x3C6A, 0x3C4A, 0x3C2A, 0x3C0A, 0x3BEA, 0x3BCA, 0x3BAA, 0x3B8A,"},{"Add":" 0x3B6A, 0x3B4A, 0x3B2A, 0x3B0A, 0x3AEA, 0x3ACA, 0x3AAA, 0x3A8A, 0x3A6A, 0x3A4A, 0x3A2A, 0x3A0A, 0x39EA, 0x39CA, 0x39AA, 0x398A,"},{"Add":" 0x396A, 0x394A, 0x392A, 0x390A, 0x38EA, 0x38CA, 0x38AA, 0x388A, 0x386A, 0x384A, 0x382A, 0x380A, 0x37EA, 0x37CA, 0x37AA, 0x378A,"},{"Add":" 0x376A, 0x374A, 0x372A, 0x370A, 0x36EA, 0x36CA, 0x36AA, 0x368A, 0x366A, 0x364A, 0x362A, 0x360A, 0x35EA, 0x35CA, 0x35AA, 0x358A,"},{"Add":" 0x356A, 0x354A, 0x352A, 0x350A, 0x34EA, 0x34CA, 0x34AA, 0x348A, 0x346A, 0x344A, 0x342A, 0x340A, 0x33EA, 0x33CA, 0x33AA, 0x338A,"},{"Add":" 0x336A, 0x334A, 0x332A, 0x330A, 0x32EA, 0x32CA, 0x32AA, 0x328A, 0x326A, 0x324A, 0x322A, 0x320A, 0x31EA, 0x28F2, 0x2B68, 0x2B48,"},{"Add":" 0x3C2B, 0x3C0B, 0x3BEB, 0x3BCB, 0x3BAB, 0x3B8B, 0x3B6B, 0x3B4B, 0x3B2B, 0x3B0B, 0x3AEB, 0x3ACB, 0x3AAB, 0x3A8B, 0x3A6B, 0x3A4B,"},{"Add":" 0x3A2B, 0x3A0B, 0x39EB, 0x39CB, 0x39AB, 0x398B, 0x396B, 0x394B, 0x392B, 0x390B, 0x38EB, 0x38CB, 0x38AB, 0x388B, 0x386B, 0x384B,"},{"Add":" 0x382B, 0x380B, 0x37EB, 0x37CB, 0x37AB, 0x378B, 0x376B, 0x374B, 0x372B, 0x370B, 0x36EB, 0x36CB, 0x36AB, 0x368B, 0x366B, 0x364B,"},{"Add":" 0x362B, 0x360B, 0x35EB, 0x35CB, 0x35AB, 0x358B, 0x356B, 0x354B, 0x352B, 0x350B, 0x34EB, 0x34CB, 0x34AB, 0x348B, 0x346B, 0x344B,"},{"Add":" 0x344B, 0x342B, 0x340B, 0x33EB, 0x33CB, 0x33AB, 0x338B, 0x336B, 0x334B, 0x332B, 0x330B, 0x32EB, 0x32CB, 0x32AB, 0x328B, 0x326B,"},{"Add":" 0x324B, 0x322B, 0x320B, 0x31EB, 0x31CB, 0x31AB, 0x318B, 0x316B, 0x314B, 0x312B, 0x310B, 0x30EB, 0x30CB, 0x30AB, 0x308B, 0x306B,"},{"Add":" 0x304B, 0x302B, 0x300B, 0x2FEB, 0x2FCB, 0x2FAB, 0x2F8B, 0x2F6B, 0x2F4B, 0x2F2B, 0x2F0B, 0x2EEB, 0x2ECB, 0x2EAB, 0x2E8B, 0x2E6B,"},{"Add":" 0x2E4B, 0x2E2B, 0x2E0B, 0x2DEB, 0x2DCB, 0x2DAB, 0x2D8B, 0x2D6B, 0x2D4B, 0x2D2B, 0x2D0B, 0x2CEB, 0x2CCB, 0x2CAB, 0x2C8B, 0x2C6B,"},{"Add":" 0x2C4B, 0x2C2B, 0x2C0B, 0x2BEB, 0x2BCB, 0x2BAB, 0x2B8B, 0x2B6B, 0x2B4B, 0x2B2B, 0x2B0B, 0x2AEB, 0x2ACB, 0x2AAB, 0x2A8B, 0x2A6B,"},{"Add":" 0x2A4B, 0x2A2B, 0x2A0B, 0x29EB, 0x29CB, 0x29AB, 0x298B, 0x296B, 0x294B, 0x292B, 0x290B, 0x28EB, 0x28CB, 0x28AB, 0x288B, 0x286B,"},{"Add":" 0x284B, 0x282B, 0x280B, 0x27EB, 0x27CB, 0x27AB, 0x278B, 0x276B, 0x274B, 0x272B, 0x270B, 0x26EB, 0x26CB, 0x26AB, 0x268B, 0x266B,"},{"Add":" 0x264B, 0x262B, 0x260B, 0x25EB, 0x25CB, 0x25AB, 0x258B, 0x256B, 0x254B, 0x252B, 0x250B, 0x24EB, 0x24CB, 0x24AB, 0x248B, 0x246B,"},{"Add":" 0x244B, 0x242B, 0x240B, 0x23EB, 0x23CB, 0x23AB, 0x238B, 0x236B, 0x234B, 0x232B, 0x230B, 0x22EB, 0x22CB, 0x22AB, 0x228B, 0x226B,"},{"Add":" 0x224B, 0x222B, 0x220B, 0x21EB, 0x21CB, 0x21AB, 0x218B, 0x216B, 0x214B, 0x212B, 0x210B, 0x20EB, 0x20CB, 0x20AB, 0x208B, 0x206B,"},{"Add":" 0x204B, 0x202B, 0x200B, 0x1FEB, 0x1FCB, 0x1FAB, 0x1F8B, 0x1F6B, 0x1F4B, 0x1F2B, 0x1F0B, 0x1EEB, 0x1ECB, 0x1EAB, 0x1E8B, 0x1E6B,"},{"Add":" 0x1E4B, 0x1E2B, 0x1E0B, 0x1DEB, 0x1DCB, 0x1DAB, 0x1D8B, 0x1D6B, 0x1D4B, 0x1D2B, 0x1D0B, 0x1CEB, 0x1CCB, 0x1CAB, 0x1C8B, 0x1C6B,"},{"Add":" 0x1C4B, 0x1C2B, 0x1C0B, 0x1BEB, 0x1BCB, 0x1BAB, 0x1B8B, 0x1B6B, 0x106A, 0x104A, 0x102A, 0x100A, 0xFEA, 0xFCA, 0xFAA, 0xF8A,"},{"Add":" 0xF6A, 0x668, 0x8E8, 0x8C8, 0x8A8, 0x888, 0x868, 0x848, 0x7D7, 0x194B, 0x7B6, 0xD1C, 0xCFC, 0xCB2, 0xCA9, 0xC9C,"},{"Add":" 0xC7C, 0xC5C, 0xC3C, 0xC1C, 0xBFC, 0xBDC, 0xBBC, 0xB9C, 0xB7C, 0xB5E, 0xB2C, 0xB1C, 0xAB8, 0xADC, 0xA9C, 0x2C2,"},{"Add":" 0x528, 0x166B, 0x1667, 0x3FF, 0x9FC, 0x9DC, 0x9BC, 0x659, 0xBB8, 0x15A7, 0xFC6, 0x1C0, 0x1B1, 0x9CB, 0x82C, 0x1285,"},{"Add":"};"},{"Add":""},{"Add":"static uint16_t Data[] = {"},{"Add":" 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082,"},{"Add":" 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3E80, 0x3E80, 0x3001, 0x3082, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x5B88, 0x5B88, 0x3E80, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x5198, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x4606, 0x3E80, 0x3E80, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x5202, 0x5202, 0x5202, 0x5202, 0x5202, 0x5202, 0x5202, 0x5202, 0x5202, 0x5202, 0x5202, 0x5202, 0x5202, 0x5202,"},{"Add":" 0x5202, 0x5202, 0x5202, 0x5202, 0x5202, 0x5202, 0x5202, 0x5202, 0x5202, 0x5202, 0x5202, 0x5202, 0x5202, 0x5202, 0x5202, 0x5202,"},{"Add":" 0x5202, 0x2E82, 0x3E80, 0x5198, 0x2A14, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606,"},{"Add":" 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4686, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606,"},{"Add":" 0x4606, 0x4606, 0x4606, 0x4606, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x1A1B, 0x1A1B, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x4584, 0x3E80, 0x3E80, 0x3E80, 0x298,"},{"Add":" 0x3E80, 0x298, 0x6615, 0x6696, 0x298, 0x1A97, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x4584, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x4584,"},{"Add":" 0x4584, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x4584,"},{"Add":" 0x4584, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x2E82,"},{"Add":" 0x7282, 0x2E82, 0x3E80, 0x2E82, 0x4902, 0x7481, 0x7481, 0x7481, 0x7481, 0x7383, 0x1A1B, 0x1A1B, 0x1A1B, 0x6D82, 0x6D82, 0x4902,"},{"Add":" 0x4902, 0x3E80, 0x3E80, 0x2E82, 0x4902, 0x6E01, 0x6E01, 0x7501, 0x7501, 0x3E80, 0x1A1B, 0x1A1B, 0x1A1B, 0x1B02, 0x1B82, 0x1C02,"},{"Add":" 0x1C82, 0x1D02, 0x1D82, 0x1E02, 0x1E82, 0x1F02, 0x1F82, 0x2002, 0x2082, 0x2102, 0x2182, 0x2202, 0x2282, 0x2302, 0x2382, 0x2402,"},{"Add":" 0x2482, 0x2502, 0x2582, 0x2602, 0x2682, 0x2702, 0x2782, 0x455, 0xC99, 0x4D6, 0xC99, 0xF, 0xF, 0xF, 0xF, 0xF,"},{"Add":" 0x10F, 0xF, 0xF, 0xF, 0xF, 0xF, 0xF, 0xF, 0xF, 0xF, 0xF, 0xF, 0xF, 0xF, 0xF, 0xF,"},{"Add":" 0xF, 0xF, 0xF, 0xF, 0xF, 0xF, 0xF, 0xF, 0xF, 0xF, 0xF, 0x8F, 0x10F, 0x8F, 0x18F, 0x10F,"},{"Add":" 0xF, 0xF, 0xF, 0xF, 0xF, 0xF, 0xF, 0xF, 0xF, 0xF, 0xF, 0xF, 0xF, 0xF, 0x10F, 0x10F,"},{"Add":" 0x10F, 0x8F, 0x20C, 0x298, 0x298, 0x318, 0x39A, 0x318, 0x298, 0x298, 0x455, 0x4D6, 0x298, 0x519, 0x598, 0x614,"},{"Add":" 0x598, 0x698, 0x709, 0x789, 0x809, 0x889, 0x909, 0x989, 0xA09, 0xA89, 0xB09, 0xB89, 0x598, 0x298, 0xC59, 0xC99,"},{"Add":" 0xC59, 0x298, 0xD01, 0xD81, 0xE01, 0xE81, 0xF01, 0xF81, 0x1001, 0x1081, 0x1101, 0x1181, 0x1201, 0x1281, 0x1301, 0x1381,"},{"Add":" 0x1401, 0x1481, 0x1501, 0x1581, 0x1601, 0x1681, 0x1701, 0x1781, 0x1801, 0x1881, 0x1901, 0x1981, 0x455, 0x298, 0x4D6, 0x1A1B,"},{"Add":" 0x1A97, 0x298, 0x298, 0x298, 0xC99, 0x455, 0x4D6, 0x3E80, 0x298, 0x298, 0x298, 0x298, 0x298, 0x298, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x282C, 0x298, 0x39A, 0x39A, 0x39A, 0x39A, 0x289C, 0x289C, 0x1A1B, 0x289C, 0x2902, 0x29DD, 0xC99, 0x2A14, 0x289C, 0x1A1B,"},{"Add":" 0x2A9C, 0x519, 0x2B0B, 0x2B8B, 0x1A1B, 0x2C02, 0x289C, 0x298, 0x1A1B, 0x2C8B, 0x2902, 0x2D5E, 0x2D8B, 0x2D8B, 0x2D8B, 0x298,"},{"Add":" 0x298, 0x519, 0x614, 0xC99, 0xC99, 0xC99, 0x3E80, 0x298, 0x39A, 0x318, 0x298, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x5405,"},{"Add":" 0x5405, 0x5405, 0x3E80, 0x5405, 0x3E80, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405,"},{"Add":" 0x5405, 0x5405, 0x3E80, 0x3E80, 0x3E80, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606,"},{"Add":" 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606,"},{"Add":" 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x3E80, 0x501C, 0x501C, 0x4F81, 0x4F81, 0x4F81, 0x4F81, 0x4F81, 0x4F81, 0x4F81, 0x4F81,"},{"Add":" 0x4F81, 0x4F81, 0x4F81, 0x4F81, 0x4F81, 0x4F81, 0x4F81, 0x4F81, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01,"},{"Add":" 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0xC99,"},{"Add":" 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E82, 0x2E82, 0x2E82, 0x4902, 0x4902, 0x2E82, 0x2E82, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x2E82, 0x2E82, 0x2E82, 0x2E82, 0x2E82, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x5305, 0x4606, 0x5305, 0x5305, 0x3E80, 0x5305, 0x5305, 0x3E80, 0x5305, 0x5305, 0x5305, 0x5305,"},{"Add":" 0x5305, 0x5305, 0x5305, 0x5305, 0x5305, 0x5305, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405,"},{"Add":" 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5398, 0x5405, 0x4606, 0x4606, 0x4606, 0x4606,"},{"Add":" 0x4606, 0x4606, 0x4606, 0x5087, 0x5087, 0x4606, 0x5087, 0x5087, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x2D8B, 0x2D8B, 0x2D8B, 0x2D8B, 0x2D8B, 0x2D8B, 0x2D8B, 0x2D8B,"},{"Add":" 0x2D8B, 0x2D8B, 0x2D8B, 0x2D8B, 0x840B, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x2E82, 0x3001,"},{"Add":" 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001,"},{"Add":" 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x5C09, 0x5C89, 0x5D09, 0x5D89, 0x5E09, 0x5E89, 0x5F09, 0x5F89, 0x6009, 0x6089, 0x4606,"},{"Add":" 0x4606, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x1A1B,"},{"Add":" 0x1A1B, 0x4701, 0x298, 0x4781, 0x4781, 0x4781, 0x3E80, 0x4801, 0x3E80, 0x4881, 0x4881, 0x4902, 0x2E01, 0x2E01, 0x2E01, 0x2E01,"},{"Add":" 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2F02, 0x2F02, 0x2F02, 0x2F02,"},{"Add":" 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02,"},{"Add":" 0x2F02, 0x2F02, 0x2F02, 0xC99, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F82, 0x2F02, 0x2F02, 0x4A82, 0x2F02,"},{"Add":" 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x4B02, 0x4B82, 0x4B82, 0x3E80, 0x4C02, 0x4C82, 0x4D01, 0x4D01,"},{"Add":" 0x4D01, 0x4D82, 0x4E02, 0x2902, 0x3E80, 0x3E80, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082,"},{"Add":" 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x2E82, 0x3B81, 0x3C03, 0x3C82, 0x3001, 0x3082, 0x3D81, 0x3E01, 0x3001, 0x3082,"},{"Add":" 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3101, 0x3182,"},{"Add":" 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x2902, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001,"},{"Add":" 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x4E82, 0x4F02, 0x3D02, 0x2902, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x5B10, 0x5B10, 0x5B10, 0x5B10, 0x5B10, 0x5B10, 0x7F0B, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x7F8B, 0x800B, 0x808B, 0x810B, 0x818B, 0x820B, 0x519, 0x519, 0xC99, 0x455, 0x4D6, 0x2902, 0x3301, 0x3001, 0x3082,"},{"Add":" 0x3001, 0x3082, 0x3381, 0x3001, 0x3082, 0x3401, 0x3401, 0x3001, 0x3082, 0x2902, 0x3481, 0x3501, 0x3581, 0x3001, 0x3082, 0x3401,"},{"Add":" 0x3601, 0x3682, 0x3701, 0x3781, 0x3001, 0x3082, 0x2902, 0x2902, 0x3701, 0x3801, 0x2902, 0x3881, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3B81, 0x3C03, 0x3C82, 0x3B81, 0x3C03, 0x3C82, 0x3B81, 0x3C03, 0x3C82, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001,"},{"Add":" 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3D02, 0x3001, 0x3082, 0x501C, 0x4606, 0x4606, 0x4606,"},{"Add":" 0x4606, 0x3E80, 0x5087, 0x5087, 0x3E80, 0x3E80, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082,"},{"Add":" 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3201, 0x3001,"},{"Add":" 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3282, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3901, 0x3001, 0x3082, 0x3901,"},{"Add":" 0x2902, 0x2902, 0x3001, 0x3082, 0x3901, 0x3001, 0x3082, 0x3981, 0x3981, 0x3001, 0x3082, 0x3001, 0x3082, 0x3A01, 0x3001, 0x3082,"},{"Add":" 0x2902, 0x3A85, 0x3001, 0x3082, 0x2902, 0x3B02, 0x4D01, 0x3001, 0x3082, 0x3001, 0x3082, 0x3E80, 0x3E80, 0x3001, 0x3082, 0x3E80,"},{"Add":" 0x3E80, 0x3001, 0x3082, 0x3E80, 0x3E80, 0x3E80, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082,"},{"Add":" 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x598, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x5398, 0x3E80, 0x3E80, 0x3E80, 0x5398, 0x5398, 0x5398, 0x5398, 0x5398, 0x5398, 0x5398, 0x5398, 0x5398,"},{"Add":" 0x5398, 0x5398, 0x5398, 0x5398, 0x5398, 0x3E80, 0x5B10, 0x5405, 0x4606, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405,"},{"Add":" 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405,"},{"Add":" 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x3E80, 0x3E80, 0x5B10, 0x4D01, 0x4D01, 0x4D01, 0x4D01, 0x4D01, 0x4D01, 0x4D01,"},{"Add":" 0x4D01, 0x4D01, 0x4D01, 0x4D01, 0x4D01, 0x4D01, 0x4D01, 0x4D01, 0x4D01, 0x4D01, 0x4D01, 0x4D01, 0x4D01, 0x4D01, 0x4D01, 0x4D01,"},{"Add":" 0x4D01, 0x4D01, 0x4D01, 0x4D01, 0x4D01, 0x4D01, 0x4D01, 0x4D01, 0x4D01, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80,"},{"Add":" 0x3A85, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x5C09, 0x5C89, 0x5D09, 0x5D89, 0x5E09, 0x5E89, 0x5F09, 0x5F89, 0x6009, 0x6089,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x2902, 0x2902, 0x2902, 0x3F02, 0x3F82, 0x2902, 0x4002, 0x4002, 0x2902, 0x4082,"},{"Add":" 0x2902, 0x4102, 0x2902, 0x2902, 0x2902, 0x2902, 0x4002, 0x2902, 0x2902, 0x4182, 0x2902, 0x2902, 0x2902, 0x2902, 0x4202, 0x4282,"},{"Add":" 0x2902, 0x2902, 0x2902, 0x2902, 0x2902, 0x4282, 0x2902, 0x2902, 0x4302, 0x2902, 0x2902, 0x4382, 0x2902, 0x2902, 0x2902, 0x2902,"},{"Add":" 0x2902, 0x2902, 0x2902, 0x2902, 0x2902, 0x2902, 0x4402, 0x2902, 0x2902, 0x4402, 0x2902, 0x2902, 0x2902, 0x2902, 0x4402, 0x2902,"},{"Add":" 0x4482, 0x4482, 0x2902, 0x2902, 0x2902, 0x2902, 0x2902, 0x2902, 0x4502, 0x2902, 0x2902, 0x2902, 0x2902, 0x2902, 0x2902, 0x2902,"},{"Add":" 0x2902, 0x2902, 0x2902, 0x2902, 0x2902, 0x2902, 0x2902, 0x3E80, 0x3E80, 0x4584, 0x4584, 0x4584, 0x4584, 0x4584, 0x4584, 0x4584,"},{"Add":" 0x4584, 0x4584, 0x1A1B, 0x1A1B, 0x4584, 0x4584, 0x4584, 0x4584, 0x4584, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B, 0x1A1B,"},{"Add":" 0x1A1B, 0x1A1B, 0x4584, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x5101, 0x5101, 0x5101, 0x5101, 0x5101, 0x5101, 0x5101, 0x5101, 0x5101, 0x5101, 0x5101, 0x5101,"},{"Add":" 0x5101, 0x5101, 0x5101, 0x5101, 0x5101, 0x5101, 0x5101, 0x5101, 0x5101, 0x5101, 0x5101, 0x3E80, 0x3E80, 0x4584, 0x5198, 0x5198,"},{"Add":" 0x5198, 0x5198, 0x5198, 0x5198, 0x2E01, 0x2E01, 0x3E80, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01, 0x2E01,"},{"Add":" 0x4982, 0x4A02, 0x4A02, 0x4A02, 0x4902, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02,"},{"Add":" 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x2F02, 0x4F02, 0x4F02, 0x4F02, 0x4F02, 0x4F02, 0x4F02, 0x4F02, 0x4F02, 0x4F02, 0x4F02, 0x4F02,"},{"Add":" 0x4F02, 0x4F02, 0x4F02, 0x4F02, 0x4F02, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x5198, 0x4606, 0x4606, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x3E80, 0x4606, 0x4606,"},{"Add":" 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606,"},{"Add":" 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x3E80, 0x4606, 0x4606, 0x4606, 0x5298, 0x4606, 0x4606, 0x5298, 0x4606, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x5305, 0x5305, 0x5305, 0x5305, 0x5305, 0x5305, 0x5305,"},{"Add":" 0x5305, 0x5305, 0x5305, 0x5305, 0x5305, 0x5305, 0x5305, 0x5305, 0x5305, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x5305, 0x5305,"},{"Add":" 0x5305, 0x5298, 0x5298, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x5C89, 0x5D09,"},{"Add":" 0x5D89, 0x5E09, 0x5E89, 0x5F09, 0x5F89, 0x6009, 0x6089, 0x640B, 0x648B, 0x650B, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x4606, 0x5B88, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x3A85,"},{"Add":" 0x3E80, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606,"},{"Add":" 0x5B88, 0x5B88, 0x5B88, 0x5B88, 0x3E80, 0x4606, 0x4606, 0x4606, 0x3E80, 0x4606, 0x4606, 0x4606, 0x4606, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x4606, 0x4606, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x4606,"},{"Add":" 0x5B88, 0x5B88, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3E80,"},{"Add":" 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x5B88, 0x5B88, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x5C09, 0x5C89, 0x5D09,"},{"Add":" 0x5D89, 0x5E09, 0x5E89, 0x5F09, 0x5F89, 0x6009, 0x6089, 0x501C, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x5509, 0x5589, 0x5609, 0x5689, 0x5709, 0x5789, 0x5809, 0x5889, 0x5909,"},{"Add":" 0x5989, 0x318, 0x5A18, 0x5A18, 0x5398, 0x3E80, 0x3E80, 0x4606, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405,"},{"Add":" 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x3E80, 0x3E80, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405,"},{"Add":" 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405,"},{"Add":" 0x5405, 0x5405, 0x5405, 0x5405, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x5405, 0x5405, 0x5405, 0x5405,"},{"Add":" 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405,"},{"Add":" 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x6615, 0x6696, 0x5484, 0x5405,"},{"Add":" 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x5405, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606,"},{"Add":" 0x4606, 0x4606, 0x4606, 0x4606, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x5B88, 0x5B88, 0x5198, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x4606, 0x4606, 0x5B88, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x5198, 0x5198, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x5484, 0x5484,"},{"Add":" 0x4606, 0x4606, 0x289C, 0x4606, 0x4606, 0x4606, 0x4606, 0x3E80, 0x3E80, 0x709, 0x789, 0x809, 0x889, 0x909, 0x989, 0xA09,"},{"Add":" 0xA89, 0xB09, 0xB89, 0x5405, 0x5405, 0x5405, 0x5A9C, 0x5A9C, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3E80, 0x3A85,"},{"Add":" 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x4606, 0x3A85, 0x3A85, 0x4606, 0x4606, 0x4606, 0x4606,"},{"Add":" 0x4606, 0x4606, 0x3E80, 0x4606, 0x4606, 0x3A85, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x4606, 0x4606, 0x5B88, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x4606, 0x3A85, 0x5B88, 0x5B88,"},{"Add":" 0x5B88, 0x5B88, 0x5B88, 0x3E80, 0x4606, 0x5B88, 0x5B88, 0x3E80, 0x5B88, 0x5B88, 0x4606, 0x4606, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x5B88, 0x5B88, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x3E80, 0x5198, 0x5198,"},{"Add":" 0x5198, 0x5198, 0x5198, 0x5198, 0x5198, 0x5198, 0x5C89, 0x5D09, 0x5D89, 0x5E09, 0x5E89, 0x5F09, 0x5F89, 0x6009, 0x6089, 0x640B,"},{"Add":" 0x670B, 0x678B, 0x680B, 0x688B, 0x690B, 0x698B, 0x6A0B, 0x6A8B, 0x648B, 0x6B0B, 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3A85,"},{"Add":" 0x3A85, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x4606, 0x3A85, 0x5B88, 0x4606, 0x4606, 0x4606, 0x4606,"},{"Add":" 0x4606, 0x4606, 0x4606, 0x4606, 0x5B88, 0x5B88, 0x5B88, 0x5B88, 0x4606, 0x3E80, 0x3E80, 0x3A85, 0x4606, 0x4606, 0x4606, 0x4606,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x4606,"},{"Add":" 0x3E80, 0x5B88, 0x5B88, 0x5B88, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3E80, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3E80, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x4606, 0x3A85, 0x3A85, 0x4606, 0x4606,"},{"Add":" 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x39A, 0x39A, 0x39A, 0x39A, 0x39A, 0x39A, 0x39A,"},{"Add":" 0x39A, 0x39A, 0x39A, 0x39A, 0x39A, 0x39A, 0x39A, 0x39A, 0x39A, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x4606, 0x4606, 0x5198, 0x5198, 0x5C09,"},{"Add":" 0x5C89, 0x5D09, 0x5D89, 0x5E09, 0x5E89, 0x5F09, 0x5F89, 0x6009, 0x6089, 0x5198, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x298, 0x298, 0x318, 0x39A, 0x318, 0x298, 0x298,"},{"Add":" 0x6615, 0x6696, 0x298, 0x519, 0x598, 0x614, 0x598, 0x698, 0x709, 0x789, 0x809, 0x889, 0x909, 0x989, 0xA09, 0xA89,"},{"Add":" 0xB09, 0xB89, 0x598, 0x298, 0xC99, 0xC99, 0xC99, 0x298, 0x298, 0x298, 0x298, 0x298, 0x298, 0x2A14, 0x298, 0x298,"},{"Add":" 0x298, 0x298, 0x5B10, 0x5B10, 0x5B10, 0x5B10, 0x3E80, 0x5C09, 0x5C89, 0x5D09, 0x5D89, 0x5E09, 0x5E89, 0x5F09, 0x5F89, 0x6009,"},{"Add":" 0x6089, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x5B88, 0x4606, 0x4606, 0x4606, 0x4606, 0x3E80, 0x3E80, 0x5B88, 0x5B88, 0x3E80, 0x3E80,"},{"Add":" 0x5B88, 0x5B88, 0x4606, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x5B88, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3E80, 0x3E80, 0x3A85, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3A85,"},{"Add":" 0x3E80, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x4606, 0x3E80, 0x5B88, 0x5B88, 0x4606, 0x4606, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x4606,"},{"Add":" 0x4606, 0x3E80, 0x3E80, 0x4606, 0x4606, 0x4606, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x4606, 0x4606, 0x3E80, 0x3E80, 0x5C09, 0x5C89,"},{"Add":" 0x5D09, 0x5D89, 0x5E09, 0x5E89, 0x5F09, 0x5F89, 0x6009, 0x6089, 0x3A85, 0x3A85, 0x39A, 0x39A, 0x610B, 0x618B, 0x620B, 0x628B,"},{"Add":" 0x630B, 0x638B, 0x501C, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x4606, 0x3A85, 0x5B88, 0x5B88, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x3E80, 0x4606, 0x4606,"},{"Add":" 0x5B88, 0x3E80, 0x5B88, 0x5B88, 0x4606, 0x3E80, 0x3E80, 0x3A85, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x5C09, 0x5C89, 0x5D09, 0x5D89, 0x5E09, 0x5E89, 0x5F09, 0x5F89, 0x6009,"},{"Add":" 0x6089, 0x630B, 0x630B, 0x630B, 0x630B, 0x630B, 0x630B, 0x630B, 0x630B, 0x630B, 0x630B, 0x501C, 0x4606, 0x501C, 0x4606, 0x501C,"},{"Add":" 0x4606, 0x6615, 0x6696, 0x6615, 0x6696, 0x5B88, 0x5B88, 0x4606, 0x4606, 0x4606, 0x3E80, 0x3E80, 0x3E80, 0x5B88, 0x5B88, 0x3E80,"},{"Add":" 0x3E80, 0x5B88, 0x5B88, 0x4606, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x4606, 0x5B88, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3E80, 0x5B88, 0x4606,"},{"Add":" 0x4606, 0x4606, 0x4606, 0x5B88, 0x4606, 0x3E80, 0x3E80, 0x3E80, 0x4606, 0x4606, 0x5B88, 0x4606, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x5B88, 0x5B88, 0x5B88, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606,"},{"Add":" 0x5B88, 0x5B88, 0x3E80, 0x3E80, 0x3E80, 0x5B88, 0x5B88, 0x5B88, 0x3E80, 0x5B88, 0x5B88, 0x5B88, 0x4606, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x5B88, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x4584, 0x3E80, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x3E80, 0x3E80, 0x5C09,"},{"Add":" 0x5C89, 0x5D09, 0x5D89, 0x5E09, 0x5E89, 0x5F09, 0x5F89, 0x6009, 0x6089, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x5C09, 0x5C89, 0x5D09, 0x5D89, 0x5E09, 0x5E89, 0x5F09, 0x5F89, 0x6009, 0x6089, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606,"},{"Add":" 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x5087, 0x5087, 0x5087, 0x5B88, 0x4606, 0x4606, 0x4606, 0x3E80,"},{"Add":" 0x3E80, 0x5B88, 0x5B88, 0x5B88, 0x3E80, 0x5B88, 0x5B88, 0x5B88, 0x4606, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x5B88, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3E80, 0x4606, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x5B88, 0x5B88, 0x5B88, 0x4606, 0x4606, 0x4606,"},{"Add":" 0x3E80, 0x4606, 0x3E80, 0x5B88, 0x5B88, 0x5B88, 0x5B88, 0x5B88, 0x5B88, 0x5B88, 0x5B88, 0x4606, 0x5B88, 0x5B88, 0x4606, 0x4606,"},{"Add":" 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x4606, 0x5198, 0x5198, 0x5198, 0x5198, 0x5198, 0x5198, 0x5198,"},{"Add":" 0x39A, 0x5198, 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x4584, 0x4606, 0x4606, 0x4606, 0x4606,"},{"Add":" 0x4606, 0x4606, 0x4606, 0x4606, 0x5198, 0x5C09, 0x5C89, 0x5D09, 0x5D89, 0x5E09, 0x5E89, 0x5F09, 0x5F89, 0x6009, 0x6089, 0x5198,"},{"Add":" 0x5198, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x501C, 0x501C, 0x501C, 0x5198, 0x5198, 0x5198, 0x5198, 0x5198, 0x5198, 0x5198,"},{"Add":" 0x5198, 0x65B8, 0x5198, 0x5198, 0x5198, 0x5198, 0x5198, 0x5198, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x4606, 0x4606, 0x501C,"},{"Add":" 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x4606, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x3E80, 0x3E80, 0x501C, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x289C,"},{"Add":" 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x1A97, 0x4584, 0x4584, 0x4584, 0x3E80, 0x5C09, 0x5C89, 0x5D09, 0x5D89, 0x5E09, 0x5E89, 0x5F09, 0x5F89, 0x6009,"},{"Add":" 0x6089, 0x5198, 0x5198, 0x5198, 0x5198, 0x5198, 0x5198, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x5B88, 0x5B88, 0x4606,"},{"Add":" 0x4606, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x20C, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x6615, 0x6696, 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x5198, 0x5198, 0x5198, 0x6B8B, 0x6C0B, 0x6C8B, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x4606, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001,"},{"Add":" 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x3001, 0x3082, 0x2E82, 0x2E82, 0x2E82,"},{"Add":" 0x2E82, 0x2E82, 0x6D02, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x6D82, 0x6D82, 0x6D82, 0x6D82, 0x6D82, 0x6D82, 0x6D82, 0x6D82, 0x6E01,"},{"Add":" 0x6E01, 0x6E01, 0x6E01, 0x6E01, 0x6E01, 0x6E01, 0x6E01, 0x6D82, 0x6D82, 0x6D82, 0x6D82, 0x6D82, 0x6D82, 0x6D82, 0x6D82, 0x6E01,"},{"Add":" 0x6E01, 0x6E01, 0x6E01, 0x6E01, 0x6E01, 0x6E01, 0x6E01, 0x6D82, 0x6D82, 0x6D82, 0x6D82, 0x6D82, 0x6D82, 0x3E80, 0x3E80, 0x6E01,"},{"Add":" 0x6E01, 0x6E01, 0x6E01, 0x6E01, 0x6E01, 0x3E80, 0x3E80, 0x2E82, 0x6D82, 0x4902, 0x6D82, 0x4902, 0x6D82, 0x4902, 0x6D82, 0x3E80,"},{"Add":" 0x6E01, 0x3E80, 0x6E01, 0x3E80, 0x6E01, 0x3E80, 0x6E01, 0x6D82, 0x6D82, 0x6D82, 0x6D82, 0x6D82, 0x6D82, 0x6D82, 0x6D82, 0x6E01,"},{"Add":" 0x6E01, 0x6E01, 0x6E01, 0x6E01, 0x6E01, 0x6E01, 0x6E01, 0x6E82, 0x6E82, 0x6F02, 0x6F02, 0x6F02, 0x6F02, 0x6F82, 0x6F82, 0x7002,"},{"Add":" 0x7002, 0x7082, 0x7082, 0x7102, 0x7102, 0x3E80, 0x3E80, 0x7182, 0x7182, 0x7182, 0x7182, 0x7182, 0x7182, 0x7182, 0x7182, 0x7203,"},{"Add":" 0x7203, 0x7203, 0x7203, 0x7203, 0x7203, 0x7203, 0x7203, 0x7182, 0x7182, 0x7182, 0x7182, 0x7182, 0x7182, 0x7182, 0x7182, 0x7203,"},{"Add":" 0x7203, 0x7203, 0x7203, 0x7203, 0x7203, 0x7203, 0x7203, 0x6D82, 0x6D82, 0x2E82, 0x7282, 0x2E82, 0x3E80, 0x2E82, 0x4902, 0x6E01,"},{"Add":" 0x6E01, 0x7301, 0x7301, 0x7383, 0x1A1B, 0x7402, 0x1A1B, 0x1B02, 0x1B82, 0x1C02, 0x1C82, 0x1D02, 0x1D82, 0x1E02, 0x1E82, 0x1F02,"},{"Add":" 0x1F82, 0x2002, 0x2082, 0x2102, 0x2182, 0x2202, 0x2282, 0x2302, 0x2382, 0x2402, 0x2482, 0x2502, 0x2582, 0x2602, 0x2682, 0x2702,"},{"Add":" 0x2782, 0x6615, 0xC99, 0x6696, 0xC99, 0x3E80, 0x6D82, 0x6D82, 0x4902, 0x4902, 0x2E82, 0x7582, 0x2E82, 0x4902, 0x6E01, 0x6E01,"},{"Add":" 0x7601, 0x7601, 0x7681, 0x1A1B, 0x1A1B, 0x1A1B, 0x3E80, 0x3E80, 0x2E82, 0x7282, 0x2E82, 0x3E80, 0x2E82, 0x4902, 0x7701, 0x7701,"},{"Add":" 0x7781, 0x7781, 0x7383, 0x1A1B, 0x1A1B, 0x3E80, 0x20C, 0x20C, 0x20C, 0x20C, 0x20C, 0x20C, 0x20C, 0x782C, 0x20C, 0x20C,"},{"Add":" 0x20C, 0x788C, 0x5B10, 0x5B10, 0x7910, 0x7990, 0x2A14, 0x7A34, 0x2A14, 0x2A14, 0x2A14, 0x2A14, 0x298, 0x298, 0x7A9D, 0x7B1E,"},{"Add":" 0x6615, 0x7A9D, 0x7A9D, 0x7B1E, 0x6615, 0x7A9D, 0x298, 0x298, 0x298, 0x298, 0x298, 0x298, 0x298, 0x298, 0x7B8D, 0x7C0E,"},{"Add":" 0x7C90, 0x7D10, 0x7D90, 0x7E10, 0x7E90, 0x782C, 0x318, 0x318, 0x318, 0x318, 0x318, 0x298, 0x298, 0x298, 0x298, 0x29DD,"},{"Add":" 0x2D5E, 0x298, 0x298, 0x298, 0x298, 0x1A97, 0x7F0B, 0x2C8B, 0x2B0B, 0x2B8B, 0x7F8B, 0x800B, 0x808B, 0x810B, 0x818B, 0x820B,"},{"Add":" 0x519, 0x519, 0xC99, 0x455, 0x4D6, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3E80, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C,"},{"Add":" 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x289C,"},{"Add":" 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x4D01, 0x289C, 0x289C, 0x289C, 0x289C, 0x4D01, 0x289C, 0x289C, 0x2902, 0x4D01,"},{"Add":" 0x4D01, 0x4D01, 0x2902, 0x2902, 0x4D01, 0x4D01, 0x4D01, 0x2902, 0x289C, 0x4D01, 0x289C, 0x289C, 0x289C, 0x4D01, 0x4D01, 0x4D01,"},{"Add":" 0x4D01, 0x4D01, 0x289C, 0x289C, 0xA20A, 0xA28A, 0xA30A, 0xA38A, 0xA40A, 0xA48A, 0xA50A, 0xA58A, 0xA60A, 0x4606, 0x4606, 0x4606,"},{"Add":" 0x4606, 0x4606, 0x4606, 0x2A14, 0x4584, 0x4584, 0x4584, 0x4584, 0x4584, 0x289C, 0x289C, 0xA68A, 0xA70A, 0xA78A, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x289C, 0x289C, 0x289C, 0x289C, 0x3E80, 0x289C, 0x289C, 0x289C, 0x289C, 0x3E80, 0x3E80, 0x289C, 0x289C, 0x289C, 0x289C,"},{"Add":" 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C,"},{"Add":" 0x289C, 0x289C, 0x289C, 0xC99, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C,"},{"Add":" 0x289C, 0x289C, 0xC99, 0xC99, 0x289C, 0x289C, 0xC99, 0x289C, 0xC99, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C,"},{"Add":" 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0xC99, 0x289C, 0x289C, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x948A, 0x950A, 0x958A, 0x960A, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0xC99, 0xC99, 0xC99, 0xC99, 0xC99, 0x289C, 0x289C,"},{"Add":" 0x289C, 0x289C, 0x289C, 0xC99, 0xC99, 0x289C, 0x289C, 0x289C, 0x289C, 0x4D01, 0x289C, 0x8281, 0x289C, 0x4D01, 0x289C, 0x8301,"},{"Add":" 0x8381, 0x4D01, 0x4D01, 0x2A9C, 0x2902, 0x4D01, 0x4D01, 0x289C, 0x4D01, 0x2902, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x2902, 0x289C,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x848A, 0x850A, 0x858A, 0x860A, 0x868A, 0x870A, 0x878A, 0x880A, 0x888A, 0x890A, 0x898A,"},{"Add":" 0x8A0A, 0x8A8A, 0x8B0A, 0x8B8A, 0x8C0A, 0x8C8A, 0x8D0A, 0x8D8A, 0x8E0A, 0x8E8A, 0x8F0A, 0x8F8A, 0x900A, 0x908A, 0x910A, 0x918A,"},{"Add":" 0x920A, 0x928A, 0x930A, 0x938A, 0x940A, 0xC99, 0xC99, 0xC59, 0xC59, 0xC99, 0xC99, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59,"},{"Add":" 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC99, 0xC99,"},{"Add":" 0xC99, 0xC99, 0xC99, 0xC59, 0xC59, 0xC59, 0xC59, 0xC99, 0xC99, 0xC99, 0xC99, 0xC99, 0xC99, 0xC99, 0xC99, 0xC99,"},{"Add":" 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC99, 0xC99, 0xC59, 0xC59, 0xC99, 0xC99, 0xC99, 0xC99, 0xC59, 0xC59, 0xC59,"},{"Add":" 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC99, 0xC99, 0xC59, 0xC59, 0xC59, 0xC59,"},{"Add":" 0xC99, 0xC99, 0xC99, 0xC99, 0xC99, 0xC59, 0xC99, 0xC99, 0xC99, 0xC99, 0xC99, 0xC99, 0xC99, 0x289C, 0x289C, 0xC99,"},{"Add":" 0x289C, 0x289C, 0xC99, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0xC99, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C,"},{"Add":" 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C,"},{"Add":" 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x3E80, 0x289C, 0x289C, 0x289C, 0x289C,"},{"Add":" 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C,"},{"Add":" 0x289C, 0x289C, 0x289C, 0x289C, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0xC99, 0xC59, 0xC59,"},{"Add":" 0xC59, 0xC59, 0xC99, 0xC99, 0xC99, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC99, 0xC99, 0xC99, 0xC59, 0x519,"},{"Add":" 0x519, 0xC99, 0xC59, 0xC59, 0xC99, 0xC99, 0xC99, 0xC59, 0xC59, 0xC59, 0xC59, 0xC99, 0xC59, 0xC99, 0xC59, 0xC99,"},{"Add":" 0xC99, 0xC99, 0xC99, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC99, 0xC99, 0xC99, 0xC99,"},{"Add":" 0xC99, 0xC59, 0xC99, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x455,"},{"Add":" 0x4D6, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x501C, 0x501C, 0x501C, 0x501C,"},{"Add":" 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C,"},{"Add":" 0x501C, 0x501C, 0x501C, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C,"},{"Add":" 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x9C1C, 0x9C1C, 0x9C1C,"},{"Add":" 0x9C1C, 0x9C1C, 0x9C1C, 0x9C1C, 0x9C1C, 0x9C1C, 0x9C1C, 0x9C1C, 0x9C1C, 0x9C1C, 0x9C1C, 0x9C1C, 0x9C1C, 0x9C9C, 0x9C9C, 0x9C9C,"},{"Add":" 0x9C9C, 0x9C9C, 0x9C9C, 0x9C9C, 0x9C9C, 0x9C9C, 0x9C9C, 0x9C9C, 0x9C9C, 0x9C9C, 0x9C9C, 0x9C9C, 0x9C9C, 0x7F0B, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0xC59, 0xC99, 0xC59, 0xC99, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC99,"},{"Add":" 0xC99, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59, 0xC59,"},{"Add":" 0xC59, 0xC59, 0xC59, 0xC99, 0xC99, 0xC59, 0xC59, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x39A, 0x39A, 0xC99, 0x1A1B, 0x289C, 0x39A, 0x39A, 0x3E80, 0x289C, 0xC99, 0xC99,"},{"Add":" 0xC99, 0xC99, 0x289C, 0x289C, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x5B10, 0x5B10,"},{"Add":" 0x5B10, 0x289C, 0x289C, 0x3E80, 0x3E80, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C,"},{"Add":" 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x3E80, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C,"},{"Add":" 0x289C, 0x289C, 0x289C, 0x289C, 0x3E80, 0x289C, 0x3E80, 0x289C, 0x289C, 0x289C, 0x289C, 0x3E80, 0x3E80, 0x3E80, 0x289C, 0x3E80,"},{"Add":" 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x840B, 0x9D0B, 0x9D8B, 0x9E0B, 0x9E8B, 0x9F0B, 0x9F8B, 0xA00B, 0xA08B, 0xA10B, 0x840B,"},{"Add":" 0x9D0B, 0x9D8B, 0x9E0B, 0x9E8B, 0x9F0B, 0x9F8B, 0xA00B, 0xA08B, 0xA10B, 0x289C, 0x3E80, 0x3E80, 0x3E80, 0x289C, 0x289C, 0x289C,"},{"Add":" 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0xC59, 0xC59, 0xC59, 0xC59, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C,"},{"Add":" 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x289C, 0x501C, 0x289C,"},{"Add":" 0x289C, 0x289C, 0x289C, 0x289C, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x630B, 0x630B, 0x630B, 0x630B, 0x630B, 0x630B, 0x630B,"},{"Add":" 0x630B, 0x630B, 0x630B, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C,"},{"Add":" 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C,"},{"Add":" 0x501C, 0x501C, 0x501C, 0x3E80, 0x3E80, 0x3E80, 0x501C, 0x610B, 0x618B, 0x620B, 0x628B, 0xA80B, 0xA88B, 0xA90B, 0xA98B, 0xAA0B,"},{"Add":" 0x640B, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C,"},{"Add":" 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x289C, 0x3E80, 0x289C, 0x289C,"},{"Add":" 0x289C, 0x3E80, 0x289C, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x2C8B, 0x2B0B, 0x2B8B, 0x7F8B,"},{"Add":" 0x800B, 0x808B, 0x810B, 0x818B, 0x820B, 0x968B, 0x970B, 0x978B, 0x980B, 0x988B, 0x990B, 0x998B, 0x9A0B, 0x9A8B, 0x9B0B, 0x9B8B,"},{"Add":" 0x2C8B, 0x2B0B, 0x2B8B, 0x7F8B, 0x800B, 0x808B, 0x810B, 0x818B, 0x820B, 0x968B, 0x970B, 0x978B, 0x980B, 0x988B, 0x990B, 0x998B,"},{"Add":" 0x9A0B, 0x9A8B, 0x9B0B, 0x9B8B, 0x501C, 0x501C, 0x501C, 0x501C, 0x20C, 0x298, 0x298, 0x298, 0x289C, 0x4584, 0x3A85, 0xA18A,"},{"Add":" 0x455, 0x4D6, 0x455, 0x4D6, 0x455, 0x4D6, 0x455, 0x4D6, 0x455, 0x4D6, 0x289C, 0x289C, 0x455, 0x4D6, 0x455, 0x4D6,"},{"Add":" 0x455, 0x4D6, 0x455, 0x4D6, 0x2A14, 0x6615, 0x6696, 0x6696, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x4606, 0x4606, 0x1A1B, 0x1A1B, 0x4584, 0x4584, 0x3E80, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85,"},{"Add":" 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3A85, 0x3E80, 0x501C, 0x501C, 0x630B, 0x630B, 0x630B, 0x630B, 0x501C, 0x501C,"},{"Add":" 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x501C, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0xAA93, 0xAA93, 0xAA93, 0xAA93, 0xAA93,"},{"Add":" 0xAA93, 0xAA93, 0xAA93, 0xAA93, 0xAA93, 0xAA93, 0xAA93, 0xAA93, 0xAA93, 0xAA93, 0xAA93, 0xAA93, 0xAA93, 0xAA93, 0xAA93, 0xAA93,"},{"Add":" 0xAA93, 0xAA93, 0xAA93, 0xAA93, 0xAA93, 0xAA93, 0xAA93, 0xAA93, 0xAA93, 0xAA93, 0xAA93, 0xAB12, 0xAB12, 0xAB12, 0xAB12, 0xAB12,"},{"Add":" 0xAB12, 0xAB12, 0xAB12, 0xAB12, 0xAB12, 0xAB12, 0xAB12, 0xAB12, 0xAB12, 0xAB12, 0xAB12, 0xAB12, 0xAB12, 0xAB12, 0xAB12, 0xAB12,"},{"Add":" 0xAB12, 0xAB12, 0xAB12, 0xAB12, 0xAB12, 0xAB12, 0xAB12, 0xAB12, 0xAB12, 0xAB12, 0xAB12, 0x5305, 0x5305, 0x5305, 0x5305, 0x5305,"},{"Add":" 0x5305, 0x5305, 0x5305, 0x5305, 0x519, 0x5305, 0x5305, 0x5305, 0x5305, 0x5305, 0x5305, 0x5305, 0x5305, 0x5305, 0x5305, 0x5305,"},{"Add":" 0x5305, 0x5305, 0x3E80, 0x5305, 0x5305, 0x5305, 0x5305, 0x5305, 0x3E80, 0x5305, 0x3E80, 0x4606, 0x4606, 0x4606, 0x4606, 0x3E80,"},{"Add":" 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x3E80, 0x298, 0x2A14, 0x2A14, 0x1A97, 0x1A97,"},{"Add":" 0x6615, 0x6696, 0x6615, 0x6696, 0x6615, 0x6696, 0x6615, 0x6696, 0x6615, 0x6696, 0x6615, 0x6696, 0x3E80, 0x3E80, 0x3E80, 0x3E80,"},{"Add":" 0x298, 0x298, 0x298, 0x298, 0x1A97, 0x1A97, 0x1A97, 0x598, 0x298, 0x598, 0x3E80, 0x298, 0x598, 0x298, 0x298, 0x2A14,"},{"Add":" 0x6615, 0x6696, 0x6615, 0x6696, 0x6615, 0x6696, 0x318, 0x298, 0xD01, 0xD81, 0xE01, 0xE81, 0xF01, 0xF81, 0x1001, 0x1081,"},{"Add":" 0x1101, 0x1181, 0x1201, 0x1281, 0x1301, 0x1381, 0x1401, 0x1481, 0x1501, 0x1581, 0x1601, 0x1681, 0x1701, 0x1781, 0x1801, 0x1881,"},{"Add":" 0x1901, 0x1981, 0x6615, 0x298, 0x6696, 0x1A1B, 0x1A97,"},{"Add":"};"},{"Add":""},{"Add":"static int16_t Upper[] = {"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0xFFE0, 0xFFE0, 0xFFE0, 0xFFE0, 0xFFE0, 0xFFE0, 0xFFE0, 0xFFE0, 0xFFE0, 0xFFE0,"},{"Add":" 0xFFE0, 0xFFE0, 0xFFE0, 0xFFE0, 0xFFE0, 0xFFE0, 0xFFE0, 0xFFE0, 0xFFE0, 0xFFE0, 0xFFE0, 0xFFE0, 0xFFE0, 0xFFE0, 0xFFE0, 0xFFE0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x2E7, 0x0, 0x0, 0x0, 0x0, 0x0, 0xFFE0, 0x79,"},{"Add":" 0x0, 0xFFFF, 0x0, 0xFF18, 0x0, 0xFED4, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x61, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x38, 0x0, 0xFFFF, 0xFFFE, 0xFFB1, 0x0, 0x0, 0x0, 0xFF2E, 0xFF32,"},{"Add":" 0xFF33, 0xFF36, 0xFF35, 0xFF31, 0xFF2F, 0xFF2D, 0xFF2B, 0xFF2A, 0xFF26, 0xFF27, 0xFF25, 0x0, 0x0, 0x54, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0xFFDA, 0xFFDB, 0xFFE1, 0xFFC0, 0xFFC1, 0xFFC2, 0xFFC7, 0x0, 0xFFD1, 0xFFCA, 0xFFAA, 0xFFB0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0xFFD0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0xFFC5, 0x8, 0x0, 0x4A, 0x56, 0x64,"},{"Add":" 0x80, 0x70, 0x7E, 0x8, 0x0, 0x9, 0x0, 0x0, 0xE3DB, 0x0, 0x0, 0x7, 0x0, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0xFFF0, 0xFFF0, 0xFFF0, 0xFFF0, 0xFFF0, 0xFFF0, 0xFFF0,"},{"Add":" 0xFFF0, 0xFFF0, 0xFFF0, 0xFFF0, 0xFFF0, 0xFFF0, 0xFFF0, 0xFFF0, 0xFFF0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0xFFE6, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,"},{"Add":"};"},{"Add":""},{"Add":"static int16_t Lower[] = {"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,"},{"Add":" 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,"},{"Add":" 0x20, 0x20, 0x20, 0x20, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x20, 0x0, 0x0, 0x0,"},{"Add":" 0x1, 0x0, 0xFF39, 0x0, 0xFF87, 0x0, 0xD2, 0xCE, 0xCD, 0x4F, 0xCA, 0xCB, 0xCF, 0x0, 0xD3, 0xD1,"},{"Add":" 0xD5, 0xD6, 0xDA, 0xD9, 0xDB, 0x0, 0x0, 0x2, 0x1, 0x0, 0x0, 0xFF9F, 0xFFC8, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x26, 0x25,"},{"Add":" 0x40, 0x3F, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x50,"},{"Add":" 0x0, 0x0, 0x30, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0xFFF8, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0xFFF8, 0x0, 0xFFB6, 0xFFF7, 0x0, 0xFFAA, 0xFF9C, 0x0, 0xFF90, 0xFFF9, 0xFF80, 0xFF82,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0xE2A3, 0xDF41, 0xDFBA, 0x0, 0x10, 0x10, 0x10, 0x10, 0x10, 0x10, 0x10,"},{"Add":" 0x10, 0x10, 0x10, 0x10, 0x10, 0x10, 0x10, 0x10, 0x10, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x1A, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,"},{"Add":" 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,"},{"Add":"};"},{"Add":""},{"Add":"static inline int32_t charType(int32_t c) {return Data[Blocks[c>>5]+c & 0xFFFF] & 0x1F;}"},{"Add":""},{"Add":"int isLowc(int32_t c) {"},{"Add":" if (c > 0xFFFF)"},{"Add":" return 0;"},{"Add":" return charType(c) == CHAR_LOWERCASE;"},{"Add":"}"},{"Add":""},{"Add":"int isUppc(int32_t c) {"},{"Add":" if (c > 0xFFFF)"},{"Add":" return 0;"},{"Add":" return charType(c) == CHAR_UPPERCASE;"},{"Add":"}"},{"Add":""},{"Add":"int isLetterOrDigit(int32_t c) {"},{"Add":" if (c > 0xFFFF)"},{"Add":" return 0;"},{"Add":" return (1 << charType(c) & (CHAR_DIGIT | CHAR_LETTER)) != 0;"},{"Add":"}"},{"Add":""},{"Add":"int32_t toUpperCase(int32_t c) {"},{"Add":" if (c > 0xFFFF)"},{"Add":" return c;"},{"Add":" return c + Upper[Data[Blocks[c>>5]+c & 0xFFFF] >> 7];"},{"Add":"}"},{"Add":""},{"Add":"int32_t toLowerCase(int32_t c) {"},{"Add":" if (c > 0xFFFF)"},{"Add":" return c;"},{"Add":" return c + Lower[Data[Blocks[c>>5]+c & 0xFFFF] >> 7];"},{"Add":"}"}]}},{"FileAdd":{"meta":{"basename":"lib","metadata":576},"context":[{"change":0,"pos":63931}],"contents":[]}},{"FileAdd":{"meta":{"basename":"llvm.l","metadata":0},"context":[{"change":0,"pos":336443}],"contents":[{"Add":"# 17nov23 Software Lab. Alexander Burger"},{"Add":""},{"Add":"### PicoLisp LLVM frontend ###"},{"Add":"(zap 'llvm) (symbols 'llvm 'pico)"},{"Add":""},{"Add":"(local) (@ @@ @@@ cross void null i1 i1* i1** i8 i8* i8** i8*** i16 i16* i16**"},{"Add":"i32 i32* i32** i64 i64* i64** any YES NO ZERO -ZERO ONE SymTab begin end $ ?"},{"Add":"short equ global var str const globals array table symTab inline tailcall define"},{"Add":"struct $Nil $T $Link drop)"},{"Add":""},{"Add":"(import pico llvm symbols local T NIL load use setq prog */ ** >> char hex)"},{"Add":""},{"Add":""},{"Add":"### Cross-compiler private ###"},{"Add":"(symbols 'cross 'llvm 'pico)"},{"Add":""},{"Add":"(import any inc dec ++ shift)"},{"Add":""},{"Add":"(local) (*Map *Map2 putMap *Shared *Strings *Ssa *Lbl *Log *Curr *Exit *Bind"},{"Add":"*Phi *Call *Ret log asm ssa phi +phi br label +lbl +bind type func ptr pointee"},{"Add":"store A B C I L M N P Q V X Y Exe Prg Typ Sym Ret Args Ext Table Body Var Val"},{"Add":"Lst Lbl Flg Skip True False Beg End Safe *Safe)"},{"Add":""},{"Add":"(off *Map *Map2)"},{"Add":""},{"Add":"(de *Err"},{"Add":" (and *Dbg (symbols '(cross llvm pico))) )"},{"Add":""},{"Add":"(de *Call . \"call\")"},{"Add":""},{"Add":"(de putMap (Sym N)"},{"Add":" (let F (file)"},{"Add":" (idx '*Map"},{"Add":" (def (name Sym)"},{"Add":" (cons"},{"Add":" (+ (cddr F) (or N 0))"},{"Add":" (pack (car F) (cadr F)) ) )"},{"Add":" T ) )"},{"Add":" Sym )"},{"Add":""},{"Add":"(local) de"},{"Add":""},{"Add":"(pico~de de Prg"},{"Add":" (def (putMap (car Prg)) (cdr Prg)) )"},{"Add":""},{"Add":"# Constant primitives"},{"Add":"(de void . void)"},{"Add":"(de null . null)"},{"Add":""},{"Add":"(de NO . `(def \"0\" 'i1)) # Booleans"},{"Add":"(de YES . `(def \"1\" 'i1))"},{"Add":"(de ZERO . `(def \"2\" 'any)) # Short number '0'"},{"Add":"(de -ZERO . `(def \"10\" 'any)) # Placeholder '-0'"},{"Add":"(de ONE . `(def \"18\" 'any)) # Short number '1'"},{"Add":""},{"Add":"# Generate LLVM-IR"},{"Add":"(de begin (Name Flg . pico~@)"},{"Add":" (off *Strings)"},{"Add":" (prinl \"source_filename = \\\"\" Name \".l\\\"\")"},{"Add":" (prinl)"},{"Add":" (prinl \"declare {i64, i1} @llvm.uadd.with.overflow.i64(i64, i64)\")"},{"Add":" (prinl \"declare {i64, i1} @llvm.usub.with.overflow.i64(i64, i64)\")"},{"Add":" (prinl \"declare i64 @llvm.fshl.i64(i64, i64, i64)\")"},{"Add":" (prinl \"declare i64 @llvm.fshr.i64(i64, i64, i64)\")"},{"Add":" (prinl \"declare void @llvm.memcpy.p0i8.p0i8.i64(i8*, i8*, i64, i1)\")"},{"Add":" (prinl \"declare void @llvm.memset.p0i8.i64(i8*, i8, i64, i1)\")"},{"Add":" (prinl \"declare i8* @llvm.stacksave()\")"},{"Add":" (prinl \"declare void @llvm.stackrestore(i8*)\")"},{"Add":" (prinl)"},{"Add":" (let *Shared Flg"},{"Add":" (pass load) ) )"},{"Add":""},{"Add":"(de *C-Defs"},{"Add":" (~(chop \"const \") @A \" \" @Sym \"[\" @Z)"},{"Add":" (~(chop \"const \") @A \" \" @Sym \" \" @Z)"},{"Add":" (~(chop \"struct \") @A \" \" \"*\" @Sym \";\" @Z)"},{"Add":" (~(chop \"struct \") @A \" \" @Sym \";\" @Z)"},{"Add":" (~(chop \"void *\") @Sym \"(\" @Z)"},{"Add":" (~(chop \"void \") @Sym \"(\" @Z)"},{"Add":" (~(chop \"char *\") @Sym \"(\" @Z)"},{"Add":" (~(chop \"int \") @Sym \";\" @Z)"},{"Add":" (~(chop \"int \") @Sym \"(\" @Z)"},{"Add":" (~(chop \"int32_t \") @Sym \"(\" @Z)"},{"Add":" (~(chop \"int64_t \") @Sym \"(\" @Z)"},{"Add":" (~(chop \"uint64_t \") @Sym \";\" @Z)"},{"Add":" (~(chop \"uint64_t \") @Sym \"(\" @Z)"},{"Add":" (~(chop \"jmp_buf \") @Sym \";\" @Z)"},{"Add":" (~(chop \"ffi *\") @Sym \"(\" @Z) )"},{"Add":""},{"Add":"(de end (Map . pico~@)"},{"Add":" (prinl)"},{"Add":" (for L *Strings"},{"Add":" (prinl (caddr L) \" = \" (cdddr L)) )"},{"Add":" (when Map"},{"Add":" (out Map"},{"Add":" (for Sym (idx '*Map)"},{"Add":" (let X (val Sym)"},{"Add":" (prinl \"llvm~\" Sym \" (\" (car X) \" \\\"@src/\" (cdr X) \"\\\" llvm pico)\") ) )"},{"Add":" (while (args)"},{"Add":" (let (F (next) N 1)"},{"Add":" (use (@A @Sym @Z)"},{"Add":" (in F"},{"Add":" (until (eof)"},{"Add":" (let L (circ (line))"},{"Add":" (when (find match *C-Defs L)"},{"Add":" (prinl \"llvm~\" @Sym \" (\" N \" \\\"@src/\" F \"\\\" llvm pico)\") ) )"},{"Add":" (inc 'N) ) ) ) ) )"},{"Add":" (for Sym (idx '*Map2)"},{"Add":" (let X (val (car (idx '*Map (val Sym))))"},{"Add":" (prinl \"pico~\" Sym \" (\" (car X) \" \\\"@src/\" (cdr X) \"\\\" llvm pico)\") ) ) ) ) )"},{"Add":""},{"Add":"(de log (A)"},{"Add":" (let? L"},{"Add":" (chop"},{"Add":" (or A"},{"Add":" (and *Log"},{"Add":" (symbols '(llvm pico cross) (sym (up 2))) ) ) )"},{"Add":" (and (nth L 65) (con pico~@ \"...\"))"},{"Add":" (link (cons NIL L)) ) )"},{"Add":""},{"Add":"(de asm Lst"},{"Add":" (for L (cddr Lst)"},{"Add":" (def (putMap (car L))"},{"Add":" (bind (car Lst)"},{"Add":" (mapc set (car Lst) (cdr L))"},{"Add":" (cons (caadr Lst)"},{"Add":" '(log)"},{"Add":" (let (@ '@ @@ '@@ @@@ '@@@)"},{"Add":" (fill (cdadr Lst)) ) ) ) ) ) )"},{"Add":""},{"Add":"(de ssa (N . pico~@)"},{"Add":" (link"},{"Add":" (cons"},{"Add":" (pack \"%\" N)"},{"Add":" (pass pack) ) ) )"},{"Add":""},{"Add":"(de phi (Lbl Var)"},{"Add":" (let? Val (val Var)"},{"Add":" (if (asoq Lbl *Phi)"},{"Add":" (let L pico~@"},{"Add":" (if (asoq Var L)"},{"Add":" (conc pico~@ (list (cons *Curr Val)))"},{"Add":" (con L"},{"Add":" (cons"},{"Add":" (list Var NIL (cons *Curr Val))"},{"Add":" (cdr L) ) ) ) )"},{"Add":" (queue '*Phi"},{"Add":" (list Lbl (list Var NIL (cons *Curr Val))) ) ) ) )"},{"Add":""},{"Add":"(de +phi (Lbl)"},{"Add":" (let M NIL"},{"Add":" (for Var *Bind"},{"Add":" (unless (memq Var M)"},{"Add":" (phi Lbl Var)"},{"Add":" (push 'M Var) ) ) )"},{"Add":" Lbl )"},{"Add":""},{"Add":"(de br (A B C)"},{"Add":" (link"},{"Add":" (if B"},{"Add":" (pack \"br i1 \" A \", label %$\" (+phi B) \", label %$\" (+phi C))"},{"Add":" (pack \"br label %$\" (+phi A)) ) ) )"},{"Add":""},{"Add":"(de label (N)"},{"Add":" (for L (cdr (asoq (link (setq *Curr N)) *Phi))"},{"Add":" (when"},{"Add":" (or"},{"Add":" (not (name (car L)))"},{"Add":" (memq (car L) *Bind) )"},{"Add":" (let Typ"},{"Add":" (or"},{"Add":" (pick"},{"Add":" '((X)"},{"Add":" (and (sym? (cdr X)) (val (cdr X))) )"},{"Add":" (cddr L) )"},{"Add":" 'i64 )"},{"Add":" (cond"},{"Add":" ((== void Typ) void)"},{"Add":" ((fully"},{"Add":" '((X)"},{"Add":" (cond"},{"Add":" ((=T (cdr X)))"},{"Add":" ((num? (cdr X))"},{"Add":" (memq Typ '(i8 i16 i32 i64 any)) )"},{"Add":" (T"},{"Add":" (== (type Typ) (type (val (cdr X)))) ) ) )"},{"Add":" (cddr L) )"},{"Add":" (set"},{"Add":" (car L) # Var"},{"Add":" (set"},{"Add":" (cdr L) # Ssa"},{"Add":" (def (pack \"%\" (inc '*Ssa)) Typ) ) ) )"},{"Add":" (T void) ) ) ) ) )"},{"Add":""},{"Add":"(de +lbl ()"},{"Add":" (inc '*Lbl) )"},{"Add":""},{"Add":"(de +bind (Lst Var)"},{"Add":" (when"},{"Add":" (fish"},{"Add":" '((X)"},{"Add":" (when (pair X)"},{"Add":" (or"},{"Add":" (and"},{"Add":" (memq (car X) '(llvm~inc llvm~dec))"},{"Add":" (pair (cadr X))"},{"Add":" (== 'quote (caadr X))"},{"Add":" (== Var (cdadr X)) )"},{"Add":" (and"},{"Add":" (memq (car X) '(llvm~setq llvm~++ llvm~shift))"},{"Add":" (for (L (cdr X) L (cddr L))"},{"Add":" (T (== Var (car L)) T) ) )"},{"Add":" (and"},{"Add":" (== (car X) 'llvm~xchg)"},{"Add":" (or"},{"Add":" (and (== 'quote (caadr X)) (== Var (cdadr X)))"},{"Add":" (and (== 'quote (caaddr X)) (== Var (cdaddr X))) ) )"},{"Add":" (and"},{"Add":" (sym? (car X))"},{"Add":" (memq Var (; X 1 phi)) ) ) ) )"},{"Add":" Lst )"},{"Add":" (push '*Bind Var) ) )"},{"Add":""},{"Add":"(de type (Typ)"},{"Add":" (cond"},{"Add":" ((== 'any Typ) 'i64)"},{"Add":" ((== null Typ) 'i8*)"},{"Add":" ((pair Typ) (func pico~@))"},{"Add":" (T Typ) ) )"},{"Add":""},{"Add":"(de func (Lst)"},{"Add":" (pack"},{"Add":" (type (car Lst))"},{"Add":" \"(\""},{"Add":" (glue \",\" (mapcar type (cdr Lst)))"},{"Add":" \")*\" ) )"},{"Add":""},{"Add":"(de ptr (Typ)"},{"Add":" (or"},{"Add":" (pair Typ)"},{"Add":" (if (== 'any Typ)"},{"Add":" Typ"},{"Add":" (intern (pack Typ \"*\")) ) ) )"},{"Add":""},{"Add":"(de pointee (Typ)"},{"Add":" (if (== 'any Typ)"},{"Add":" Typ"},{"Add":" (intern (head -1 (chop Typ))) ) )"},{"Add":""},{"Add":"(de store (X P Ofs)"},{"Add":" (nond"},{"Add":" ((memq (val P) '(i64 any))"},{"Add":" (when (num? X)"},{"Add":" (setq X (def (format X) (pointee (val P)))) )"},{"Add":" (ifn Ofs"},{"Add":" (link"},{"Add":" (pack \"store \" (type (val X)) \" \" X \", \""},{"Add":" (type (val P)) (and (pair (val P)) \"*\")"},{"Add":" \" \" P ) )"},{"Add":" (ssa (inc '*Ssa) \"getelementptr \""},{"Add":" (type (val X)) \", \""},{"Add":" (type (val P)) (and (pair (val P)) \"*\")"},{"Add":" \" \" P \", i32 \" Ofs )"},{"Add":" (link"},{"Add":" (pack \"store \" (type (val X)) \" \" X \", \""},{"Add":" (type (val P)) (and (pair (val P)) \"*\")"},{"Add":" \" %\" *Ssa ) ) ) )"},{"Add":" ((pre? \"@\" P)"},{"Add":" (ssa (inc '*Ssa) \"inttoptr i64 \" P \" to i64*\")"},{"Add":" (when Ofs"},{"Add":" (ssa (inc '*Ssa) \"getelementptr i64, i64* %\" (dec *Ssa) \", i32 \" Ofs) )"},{"Add":" (link (pack \"store i64 \" X \", i64* %\" *Ssa)) )"},{"Add":" (NIL"},{"Add":" (link (pack \"store i64 \" X \", i64* \" P)) ) )"},{"Add":" X )"},{"Add":""},{"Add":"(de $ (Str)"},{"Add":" (if (assoc Str *Strings)"},{"Add":" (cadr pico~@)"},{"Add":" (let"},{"Add":" (Sym (pack \"@$\" (inc (length *Strings)))"},{"Add":" Arr (pack \"[\" (inc (size Str)) \" x i8]\")"},{"Add":" Val (def (pack \"bitcast (\" Arr \"* \" Sym \" to i8*)\") 'i8*) )"},{"Add":" (push '*Strings"},{"Add":" (cons Str Val Sym"},{"Add":" (pack"},{"Add":" (make"},{"Add":" (link \"private constant \" Arr \" c\\\"\")"},{"Add":" (for C (chop Str)"},{"Add":" (if (or (> \" \" C) (sub? C \"\\\"\"))"},{"Add":" (link \"\\\\\" (pad 2 (hex (char C))))"},{"Add":" (link C) ) )"},{"Add":" (link \"\\\\00\\\"\") ) ) ) )"},{"Add":" Val ) ) )"},{"Add":""},{"Add":"(de short (N)"},{"Add":" (| 2 (>> -4 N)) )"},{"Add":""},{"Add":"(de equ Lst"},{"Add":" (while Lst"},{"Add":" (set (putMap (++ Lst)) (eval (++ Lst))) ) )"},{"Add":""},{"Add":"(de global (Sym Typ Val)"},{"Add":" (prin"},{"Add":" \"@\" Sym \" = \""},{"Add":" (unless (and Val (not *Shared)) \"external \")"},{"Add":" \"global \" (type Typ) )"},{"Add":" (and Val (putMap Sym))"},{"Add":" (cond"},{"Add":" (*Shared)"},{"Add":" ((pre? \"_\" Val) (prin \" @\" pico~@))"},{"Add":" ((pre? \"$\" Val)"},{"Add":" (if (; Val offset)"},{"Add":" (prin"},{"Add":" \" ptrtoint (i8* getelementptr (i8, i8* bitcast ([\""},{"Add":" (; Val table length)"},{"Add":" \" x i64]* @\""},{"Add":" (; Val table)"},{"Add":" \" to i8*), i32 \""},{"Add":" pico~@"},{"Add":" \") to i64)\" )"},{"Add":" (prin \" ptrtoint (\""},{"Add":" (if (== 'any Typ) 'i64 Typ)"},{"Add":" \"* @\" pico~@ \" to \""},{"Add":" (if (== 'any Typ) 'i64 Typ)"},{"Add":" \")\" ) ) )"},{"Add":" (Val (prin \" \" pico~@)) )"},{"Add":" (prinl)"},{"Add":" (def Sym (def (pack \"@\" Sym) (ptr Typ))) )"},{"Add":""},{"Add":"(de var Lst"},{"Add":" (global"},{"Add":" (++ Lst)"},{"Add":" (if (cdr Lst) (++ Lst) 'any)"},{"Add":" (eval (car Lst)) ) )"},{"Add":""},{"Add":"(de str Lst"},{"Add":" (let ((Sym Val) Lst Arr (pack \"[\" (inc (size Val)) \" x i8]\"))"},{"Add":" (def (putMap Sym)"},{"Add":" (def (pack \"bitcast (\" Arr \"* @\" Sym \" to i8*)\") 'i8*) )"},{"Add":" (prin \"@\" Sym \" = constant \" Arr \" c\\\"\")"},{"Add":" (for C (chop Val)"},{"Add":" (if (or (> \" \" C) (sub? C \"\\\"\\\\\"))"},{"Add":" (prin \"\\\\\" (pad 2 (hex (char C))))"},{"Add":" (prin C) ) )"},{"Add":" (prinl \"\\\\00\\\"\") ) )"},{"Add":""},{"Add":"(de const (Val)"},{"Add":" (cond"},{"Add":" ((pre? \"_\" Val)"},{"Add":" (prin"},{"Add":" \" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast \""},{"Add":" (if (pre? \"__\" Val) \"(i64(i64,i64)*\" \"(i64(i64)*\")"},{"Add":" \" @\""},{"Add":" pico~@"},{"Add":" \" to i8*), i32 2) to i64)\" ) )"},{"Add":" ((pre? \"$\" Val)"},{"Add":" (if (; Val offset)"},{"Add":" (prin"},{"Add":" \" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([\""},{"Add":" (; Val table length)"},{"Add":" \" x i64]* @\""},{"Add":" (; Val table)"},{"Add":" \" to i8*), i32 \""},{"Add":" pico~@"},{"Add":" \") to i64)\" )"},{"Add":" (prin Val) ) )"},{"Add":" (T"},{"Add":" (prin \" i64 \" (eval Val)) ) ) )"},{"Add":""},{"Add":"(de array Lst"},{"Add":" (let"},{"Add":" (Sym (++ Lst)"},{"Add":" Typ (++ Lst)"},{"Add":" Len (if (pair Lst) (length Lst) (eval Lst)) )"},{"Add":" (def (putMap Sym)"},{"Add":" (def"},{"Add":" (pack"},{"Add":" \"bitcast ([\""},{"Add":" Len \" x \" (setq Typ (type Typ))"},{"Add":" \"]* @\" Sym \" to \" (ptr Typ) \")\" )"},{"Add":" (ptr Typ) ) )"},{"Add":" (prin"},{"Add":" \"@\" Sym \" = \" (when *Shared \"external \")"},{"Add":" \"global [\" Len \" x \" Typ \"]\" )"},{"Add":" (cond"},{"Add":" (*Shared (prinl))"},{"Add":" ((atom Lst) (prinl \" zeroinitializer\"))"},{"Add":" (T"},{"Add":" (prinl *Shared \" [\")"},{"Add":" (for (I . X) Lst"},{"Add":" (prinl"},{"Add":" \" \" Typ \" \" (eval X)"},{"Add":" (unless (== I Len) \",\") ) )"},{"Add":" (prinl \"]\") ) ) ) )"},{"Add":""},{"Add":"(de table Args"},{"Add":" (let"},{"Add":" (Table (++ Args)"},{"Add":" I 0"},{"Add":" @N (* 8 (put Table 'length (length Args)))"},{"Add":" @S (caar Args) )"},{"Add":" (def (putMap Table)"},{"Add":" (curry (@N @S) A"},{"Add":" (if A @N (i8* @S)) ) )"},{"Add":" (prinl"},{"Add":" \"@\" Table \" = \" (when *Shared \"external \")"},{"Add":" \"global [\" (; Table length) \" x i64]\" (unless *Shared \" [\") )"},{"Add":" (for (I . Lst) Args"},{"Add":" (let Typ (if (caddr Lst) (cadr Lst) 'any)"},{"Add":" (let? Sym (car Lst)"},{"Add":" (put (putMap Sym I) 'table Table)"},{"Add":" (put Sym 'offset (* 8 (dec I)))"},{"Add":" (def Sym"},{"Add":" (def"},{"Add":" (pack"},{"Add":" (if (== 'any Typ)"},{"Add":" \"ptrtoint (i8* getelementptr (i8, i8* bitcast ([\""},{"Add":" \"bitcast (i8* getelementptr (i8, i8* bitcast ([\" )"},{"Add":" (; Table length)"},{"Add":" \" x i64]* @\""},{"Add":" Table"},{"Add":" \" to i8*), i32 \""},{"Add":" (; Sym offset)"},{"Add":" \") to \""},{"Add":" (type Typ)"},{"Add":" (unless (== 'any Typ) \"*\")"},{"Add":" \")\" )"},{"Add":" (ptr Typ) ) ) )"},{"Add":" (unless *Shared"},{"Add":" (nond"},{"Add":" ((caddr Lst) (const (cadr Lst)))"},{"Add":" ((pair Typ)"},{"Add":" (if (sub? \"*\" Typ)"},{"Add":" (prin \" i64 ptrtoint\" \" (\" (cadr Lst) \" \" (caddr Lst) \" to i64)\")"},{"Add":" (prin \" i64 \" (caddr Lst)) ) )"},{"Add":" (NIL"},{"Add":" (prin"},{"Add":" \" i64 ptrtoint (\""},{"Add":" (func pico~@)"},{"Add":" (if (== null (caddr Lst)) \" \" \" @\")"},{"Add":" (caddr Lst)"},{"Add":" \" to i64)\" ) ) )"},{"Add":" (prinl (unless (== Lst (last Args)) \",\")) ) ) ) )"},{"Add":" (unless *Shared"},{"Add":" (prinl \"], align 8\") ) )"},{"Add":""},{"Add":"(de symTab Args"},{"Add":" (let (Table 'SymTab I 0)"},{"Add":" (put Table 'length"},{"Add":" (sum"},{"Add":" '((L)"},{"Add":" (if (> (length (cadr L)) 7) 4 2) )"},{"Add":" Args ) )"},{"Add":" (prinl"},{"Add":" \"@\" Table \" = \" (when *Shared \"external \")"},{"Add":" \"global [\" (; Table length) \" x i64]\" (unless *Shared \" [\") )"},{"Add":" (for (J . Lst) Args"},{"Add":" (let? Sym (car Lst)"},{"Add":" (put (putMap Sym J) 'table Table)"},{"Add":" (put Sym 'offset (+ I (or (cadddr Lst) 8)))"},{"Add":" (def Sym"},{"Add":" (def"},{"Add":" (pack"},{"Add":" \"ptrtoint (i8* getelementptr (i8, i8* bitcast ([\" (; Table length) \" x i64]* @\""},{"Add":" Table"},{"Add":" \" to i8*), i32 \""},{"Add":" (; Sym offset)"},{"Add":" \") to i64)\" )"},{"Add":" 'any ) ) )"},{"Add":" (unless *Shared"},{"Add":" (let Name"},{"Add":" (when (str? (cadr Lst))"},{"Add":" (prinl \" ; # [\" I \"] \" pico~@)"},{"Add":" (let L (chop pico~@)"},{"Add":" (make"},{"Add":" (when (nth L 8) # Max 15 ASCII characters"},{"Add":" (let (D 0 N 0)"},{"Add":" (do 8"},{"Add":" (setq"},{"Add":" N (| N (>> D (char (++ L))))"},{"Add":" D (- D 8) ) )"},{"Add":" (link N) ) )"},{"Add":" (let (D 0 N 0)"},{"Add":" (while L"},{"Add":" (setq"},{"Add":" N (| N (>> D (char (++ L))))"},{"Add":" D (- D 8) ) )"},{"Add":" (link (short N)) ) ) ) )"},{"Add":" (nond # Name"},{"Add":" (Name"},{"Add":" (const (cadr Lst))"},{"Add":" (prinl \",\") )"},{"Add":" ((cdr Name)"},{"Add":" (prinl \" i64 \" (car Name) \",\") )"},{"Add":" (NIL"},{"Add":" (prinl"},{"Add":" \" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([\" (; Table length) \" x i64]* @\""},{"Add":" Table"},{"Add":" \" to i8*), i32 \""},{"Add":" (+ I 16 4)"},{"Add":" \") to i64),\" ) ) )"},{"Add":" (const (caddr Lst)) # Value"},{"Add":" (and"},{"Add":" (cadr Lst)"},{"Add":" (pre? \"_\" (caddr Lst))"},{"Add":" (idx '*Map2 (def (cadr Lst) (caddr Lst)) T) )"},{"Add":" (when (cdr Name) # Long name"},{"Add":" (prinl \",\")"},{"Add":" (inc 'I 16)"},{"Add":" (prinl \" i64 \" (car Name) \",\")"},{"Add":" (prin \" i64 \" (cadr Name)) ) )"},{"Add":" (prinl (unless (== Lst (last Args)) \",\")) )"},{"Add":" (inc 'I 16) ) )"},{"Add":" (unless *Shared"},{"Add":" (prinl \"], align 16\") ) )"},{"Add":""},{"Add":"(de inline Lst"},{"Add":" (let L (and (lst? (car Lst)) (++ Lst))"},{"Add":" (put"},{"Add":" (def (putMap (++ Lst))"},{"Add":" (let ((@Args . @Body) Lst)"},{"Add":" (bind"},{"Add":" (mapcar"},{"Add":" '((X) (cons X (name X)))"},{"Add":" @Args )"},{"Add":" (setq"},{"Add":" @Body (fill @Body @Args)"},{"Add":" @Args (mapcar val @Args) ) )"},{"Add":" (fill"},{"Add":" '(@Args"},{"Add":" (log)"},{"Add":" (let *Log NIL"},{"Add":" (let *Bind NIL"},{"Add":" (for Var '@Args"},{"Add":" (+bind '@Body Var) )"},{"Add":" . @Body ) ) ) ) ) )"},{"Add":" 'phi"},{"Add":" L ) ) )"},{"Add":""},{"Add":"(de tailcall Prg"},{"Add":" (let *Call \"tail call\""},{"Add":" (run Prg) ) )"},{"Add":""},{"Add":"(de define (Ext Ret Sym Args Body)"},{"Add":" (and Body (prinl))"},{"Add":" (setq *Ssa -1)"},{"Add":" (off *Bind *Phi *Safe)"},{"Add":" (bind (and Body (mapcar fin Args))"},{"Add":" (with Sym"},{"Add":" (setq *Ret"},{"Add":" (if Ret"},{"Add":" (type Ret)"},{"Add":" (=: noreturn T)"},{"Add":" void ) )"},{"Add":" (cond"},{"Add":" (Ext (prin \"declare \" *Ret \" @\" Sym \"(\"))"},{"Add":" (Body"},{"Add":" (putMap Sym)"},{"Add":" (prin \"define \" *Ret \" @\" Sym \"(\") ) )"},{"Add":" (when"},{"Add":" (=: args"},{"Add":" (replace"},{"Add":" (ifn Body"},{"Add":" Args"},{"Add":" (mapcar"},{"Add":" '((A)"},{"Add":" (+bind Body (fin A))"},{"Add":" (set"},{"Add":" (set (fin A) (pack \"%\" (inc '*Ssa)))"},{"Add":" (if (atom A) 'any (car A)) ) )"},{"Add":" Args ) )"},{"Add":" 'any 'i64 ) )"},{"Add":" (=: sign (cons *Ret (: args)))"},{"Add":" (when (or Ext Body)"},{"Add":" (prin (car (: args)))"},{"Add":" (for A (cdr (: args))"},{"Add":" (prin \", \" A) ) ) )"},{"Add":" (cond"},{"Add":" (Ext (prinl \")\"))"},{"Add":" (Body (prinl \") align 8 {\")) )"},{"Add":" (def This"},{"Add":" (list 'pico~@"},{"Add":" (make"},{"Add":" (link 'let 'A"},{"Add":" (list 'mapcar"},{"Add":" ''((Typ) (pack Typ \" \" (next)))"},{"Add":" (lit (: args)) ) )"},{"Add":" (link '(log))"},{"Add":" (let L"},{"Add":" (list"},{"Add":" '*Call \" \" (lit *Ret) \" @\" (lit Sym)"},{"Add":" \"(\" '(glue \", \" A) \")\" )"},{"Add":" (link"},{"Add":" (if (== void *Ret)"},{"Add":" (list 'link (cons 'pack L))"},{"Add":" (cons 'ssa '(inc '*Ssa) L) ) ) )"},{"Add":" (if (: noreturn)"},{"Add":" (link '(link \"unreachable\") NIL)"},{"Add":" (link"},{"Add":" (or"},{"Add":" (== void *Ret)"},{"Add":" (list 'def '(pack \"%\" *Ssa) (lit Ret)) ) ) ) ) ) ) )"},{"Add":" (when Body"},{"Add":" (let (*Lbl 1 *Log T)"},{"Add":" (for X"},{"Add":" (make"},{"Add":" (label *Lbl)"},{"Add":" (let? R (run Body)"},{"Add":" (and *Safe (drop *Safe))"},{"Add":" (if (== void *Ret)"},{"Add":" (link \"ret void\")"},{"Add":" (link (pack \"ret \" *Ret \" \" R)) ) ) )"},{"Add":" (cond"},{"Add":" ((num? X)"},{"Add":" (prinl \"$\" X \":\")"},{"Add":" (for L (cdr (asoq X *Phi))"},{"Add":" (when (cadr L)"},{"Add":" (prin"},{"Add":" \" \" (cadr L) \" = phi \""},{"Add":" (type (val (cadr L)))"},{"Add":" \" [\" (cdaddr L) \", %$\" (caaddr L) \"]\" )"},{"Add":" (for X (cdddr L)"},{"Add":" (prin \", [\" (cdr X) \", %$\" (car X) \"]\") )"},{"Add":" (prinl \" ; # \" (or (name (car L)) \"->\")) ) ) )"},{"Add":" ((atom X) (prinl \" \" X))"},{"Add":" ((not (car X)) (prinl \"; # \" (cdr X)))"},{"Add":" (T (prinl \" \" (car X) \" = \" (cdr X))) ) ) )"},{"Add":" (prinl \"}\") ) ) )"},{"Add":""},{"Add":"(de struct Lst"},{"Add":" (def (putMap (car Lst))"},{"Add":" (let"},{"Add":" (@N 0"},{"Add":" @L"},{"Add":" (mapcar"},{"Add":" '((X)"},{"Add":" (prog1"},{"Add":" (cons (car X) @N (cddr X))"},{"Add":" (inc '@N (eval (cadr X))) ) )"},{"Add":" (cdr Lst) ) )"},{"Add":" (curry (@N @L) (@P)"},{"Add":" (if (=T @P)"},{"Add":" @N"},{"Add":" (curry (@P) Args"},{"Add":" (log)"},{"Add":" (let *Log NIL"},{"Add":" (nond"},{"Add":" (Args '@P)"},{"Add":" ((or"},{"Add":" (asoq (car Args) '@L)"},{"Add":" (and"},{"Add":" (pair (car Args))"},{"Add":" (asoq (car pico~@) '@L) ) )"},{"Add":" (quit \"Bad struct item\" (car Args)) )"},{"Add":" (NIL"},{"Add":" (let P (llvm~ofs '@P (cadr pico~@))"},{"Add":" (let Q ((ptr (caddr pico~@)) P)"},{"Add":" (if (atom (car Args))"},{"Add":" (if (cadr Args)"},{"Add":" (llvm~set Q (eval pico~@ 1 '(*Log)))"},{"Add":" (llvm~val Q) )"},{"Add":" (ifn (cdar Args)"},{"Add":" P"},{"Add":" (let A (cadar Args)"},{"Add":" (setq P"},{"Add":" (llvm~ofs P"},{"Add":" (if (sym? A) (; A offset) (eval A 1 '(*Log))) ) ) )"},{"Add":" (ifn (cddar Args)"},{"Add":" P"},{"Add":" (let Q ((ptr (caddar Args)) P)"},{"Add":" (if (cadr Args)"},{"Add":" (llvm~set Q (eval pico~@ 1 '(*Log)))"},{"Add":" (llvm~val Q) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) )"},{"Add":""},{"Add":""},{"Add":"### Cross compiler overridden ###"},{"Add":"(symbols '(cross pico llvm))"},{"Add":""},{"Add":"(de llvm~de Lst"},{"Add":" (define"},{"Add":" (or"},{"Add":" (and (=T (car Lst)) (++ Lst))"},{"Add":" (and"},{"Add":" *Shared"},{"Add":" (not ((if (lst? (cadr Lst)) cddr cdddr) Lst)) ) )"},{"Add":" (if (lst? (cadr Lst)) 'any (++ Lst))"},{"Add":" (car Lst)"},{"Add":" (cadr Lst)"},{"Add":" (cddr Lst) ) )"},{"Add":""},{"Add":"(de llvm~evBool (Exe)"},{"Add":" (let X (eval Exe)"},{"Add":" (cond"},{"Add":" ((num? X) (if (=0 X) NO YES))"},{"Add":" ((== 'i1 (val X)) X)"},{"Add":" (T"},{"Add":" (let *Log NIL"},{"Add":" (llvm~n0 X) ) ) ) ) )"},{"Add":""},{"Add":"# Type casts"},{"Add":"(asm ()"},{"Add":" ((X)"},{"Add":" (if (num? X)"},{"Add":" (def (format X) 'i8)"},{"Add":" (let V (type (val X))"},{"Add":" (casq V"},{"Add":" ((i16 i32 i64 any) (ssa (inc '*Ssa) \"trunc \" V \" \" X \" to i8\"))"},{"Add":" (T (quit \"Bad type\" V)) ) )"},{"Add":" (def (pack \"%\" *Ssa) 'i8) ) )"},{"Add":" (llvm~i8) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" ((X)"},{"Add":" (if (num? X)"},{"Add":" (def (format X) 'i16)"},{"Add":" (let V (type (val X))"},{"Add":" (casq V"},{"Add":" ((i1 i8) (ssa (inc '*Ssa) \"zext \" V \" \" X \" to i16\"))"},{"Add":" ((i64 any) (ssa (inc '*Ssa) \"trunc \" V \" \" X \" to i16\"))"},{"Add":" (T (quit \"Bad type\" V)) ) )"},{"Add":" (def (pack \"%\" *Ssa) 'i16) ) )"},{"Add":" (llvm~i16) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" ((X)"},{"Add":" (if (num? X)"},{"Add":" (def (format X) 'i32)"},{"Add":" (let V (type (val X))"},{"Add":" (casq V"},{"Add":" ((i1 i8) (ssa (inc '*Ssa) \"zext \" V \" \" X \" to i32\"))"},{"Add":" ((i64 any) (ssa (inc '*Ssa) \"trunc \" V \" \" X \" to i32\"))"},{"Add":" (T (quit \"Bad type\" V)) ) )"},{"Add":" (def (pack \"%\" *Ssa) 'i32) ) )"},{"Add":" (llvm~i32) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" ((X)"},{"Add":" (let V (val X)"},{"Add":" (if (== 'any V)"},{"Add":" (def (name X) 'i64)"},{"Add":" (casq V"},{"Add":" ((i1 i8) (ssa (inc '*Ssa) \"zext \" V \" \" X \" to i64\"))"},{"Add":" ((i16 i32) (ssa (inc '*Ssa) \"sext \" V \" \" X \" to i64\"))"},{"Add":" ((i1* i8* i8** i16* i16** i32* i32** i64* i64**)"},{"Add":" (ssa (inc '*Ssa) \"ptrtoint \" V \" \" X \" to i64\") )"},{"Add":" (T (quit \"Bad type\" V)) )"},{"Add":" (def (pack \"%\" *Ssa) 'i64) ) ) )"},{"Add":" (llvm~i64) )"},{"Add":""},{"Add":"(asm (@Typ)"},{"Add":" ((X)"},{"Add":" (let V (val X)"},{"Add":" (cond"},{"Add":" ((pair V)"},{"Add":" (ssa (inc '*Ssa) \"bitcast \" (func V) \"* \" X \" to \" '@Typ)"},{"Add":" (def (pack \"%\" *Ssa) '@Typ) )"},{"Add":" ((memq V '(i64 any))"},{"Add":" (ssa (inc '*Ssa) \"inttoptr i64 \" X \" to \" '@Typ)"},{"Add":" (def (pack \"%\" *Ssa) '@Typ) )"},{"Add":" ((== null V)"},{"Add":" (ssa (inc '*Ssa) \"inttoptr i64 0 to \" '@Typ)"},{"Add":" (def (pack \"%\" *Ssa) '@Typ) )"},{"Add":" ((sub? \"*\" V)"},{"Add":" (if (== V '@Typ)"},{"Add":" X"},{"Add":" (ssa (inc '*Ssa) \"bitcast \" V \" \" X \" to \" '@Typ)"},{"Add":" (def (pack \"%\" *Ssa) '@Typ) ) )"},{"Add":" (T (quit \"Bad type\" V)) ) ) )"},{"Add":" (llvm~i1* llvm~i1*)"},{"Add":" (llvm~i8* llvm~i8*)"},{"Add":" (llvm~i8** llvm~i8**)"},{"Add":" (llvm~i16* llvm~i16*)"},{"Add":" (llvm~i32* llvm~i32*)"},{"Add":" (llvm~i64* llvm~i64*) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" ((X)"},{"Add":" (if (num? X)"},{"Add":" (def (format X) 'any)"},{"Add":" (let V (val X)"},{"Add":" (cond"},{"Add":" ((pre? \"@$\" X)"},{"Add":" (ssa (inc '*Ssa) \"ptrtoint i64* \" X \" to i64\") )"},{"Add":" ((== 'i64 V)"},{"Add":" (def (name X) 'any) )"},{"Add":" ((memq V '(i1* i8* i16* i32* i64*))"},{"Add":" (ssa (inc '*Ssa) \"ptrtoint \" V \" \" X \" to i64\") )"},{"Add":" (T (quit \"Bad type\" V)) )"},{"Add":" (def (pack \"%\" *Ssa) 'any) ) ) )"},{"Add":" (llvm~any) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" (Args"},{"Add":" (if (pair (car Args))"},{"Add":" (def (pack \"@\" (cadr Args)) @)"},{"Add":" (i8*"},{"Add":" (def (pack \"@\" (car Args))"},{"Add":" (func (; Args 1 sign)) ) ) ) )"},{"Add":" (llvm~fun) )"},{"Add":""},{"Add":"(asm (@Tag)"},{"Add":" ((X)"},{"Add":" (let V (val X)"},{"Add":" (casq V"},{"Add":" ((i64 any)"},{"Add":" (ssa (inc '*Ssa) \"add i64 \" X \", \" @Tag)"},{"Add":" (def (pack \"%\" *Ssa) 'any) )"},{"Add":" ((i1* i8* i64*)"},{"Add":" (ssa (inc '*Ssa) \"ptrtoint \" V \" \" X \" to i64\")"},{"Add":" (ssa (inc '*Ssa) \"add i64 %\" (dec *Ssa) \", \" @Tag)"},{"Add":" (ssa (inc '*Ssa) \"inttoptr i64 %\" (dec *Ssa) \" to \" V)"},{"Add":" (def (pack \"%\" *Ssa) V) )"},{"Add":" (T (quit \"Bad type\" V)) ) ) )"},{"Add":" (llvm~big 4)"},{"Add":" (llvm~dig -4)"},{"Add":" (llvm~tail -8) )"},{"Add":""},{"Add":"# Type checks"},{"Add":"(asm (@Tag @Pred)"},{"Add":" ((X)"},{"Add":" (setq llvm~@ X)"},{"Add":" (ssa (inc '*Ssa) \"and i64 \" X \", \" @Tag)"},{"Add":" (ssa (inc '*Ssa) \"icmp \" @Pred \" i64 %\" (dec *Ssa) \", 0\")"},{"Add":" (def (pack \"%\" *Ssa) 'i1) )"},{"Add":" (llvm~cnt? 2 \"ne\")"},{"Add":" (llvm~big? 4 \"ne\")"},{"Add":" (llvm~num? 6 \"ne\")"},{"Add":" (llvm~sym? 8 \"ne\")"},{"Add":" (llvm~sign? 8 \"ne\")"},{"Add":" (llvm~atom 15 \"ne\")"},{"Add":" (llvm~pair 15 \"eq\") )"},{"Add":""},{"Add":"(asm ()"},{"Add":" ((X)"},{"Add":" (setq llvm~@ X)"},{"Add":" (ssa (inc '*Ssa) \"xor i64 \" X \", 8\")"},{"Add":" (ssa (inc '*Ssa) \"and i64 %\" (dec *Ssa) \", 14\")"},{"Add":" (ssa (inc '*Ssa) \"icmp eq i64 %\" (dec *Ssa) \", 0\")"},{"Add":" (def (pack \"%\" *Ssa) 'i1) )"},{"Add":" (llvm~symb?) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" ((X)"},{"Add":" (ssa (inc '*Ssa) \"icmp eq i1 \" X \", 0\")"},{"Add":" (def (pack \"%\" *Ssa) 'i1) )"},{"Add":" (llvm~not) )"},{"Add":""},{"Add":"(asm (@Sym)"},{"Add":" ((X)"},{"Add":" (setq llvm~@ X)"},{"Add":" (ssa (inc '*Ssa) \"icmp eq i64 \" X \", \" @Sym)"},{"Add":" (def (pack \"%\" *Ssa) 'i1) )"},{"Add":" (llvm~nil? $Nil)"},{"Add":" (llvm~t? $T) )"},{"Add":""},{"Add":"# Comparisons"},{"Add":"(asm (@Pred)"},{"Add":" ((X Y)"},{"Add":" (setq llvm~@ X)"},{"Add":" (ssa (inc '*Ssa) \"icmp \" @Pred \" \""},{"Add":" (type (val (if (sym? X) X Y)))"},{"Add":" \" \" X \", \" Y )"},{"Add":" (def (pack \"%\" *Ssa) 'i1) )"},{"Add":" (llvm~== \"eq\")"},{"Add":" (llvm~<> \"ne\") )"},{"Add":""},{"Add":"(asm (@Pred1 @Pred2)"},{"Add":" ((X Y)"},{"Add":" (setq llvm~@ X)"},{"Add":" (let V (type (val (if (sym? X) X Y)))"},{"Add":" (ssa (inc '*Ssa) \"icmp \""},{"Add":" (if (== 'i32 V) @Pred1 @Pred2)"},{"Add":" \" \" V \" \" X \", \" Y ) )"},{"Add":" (def (pack \"%\" *Ssa) 'i1) )"},{"Add":" (llvm~> \"sgt\" \"ugt\")"},{"Add":" (llvm~>= \"sge\" \"uge\")"},{"Add":" (llvm~< \"slt\" \"ult\")"},{"Add":" (llvm~<= \"sle\" \"ule\") )"},{"Add":""},{"Add":"(asm (@Pred)"},{"Add":" ((X)"},{"Add":" (setq llvm~@ X)"},{"Add":" (ssa (inc '*Ssa) \"icmp \" @Pred \" \""},{"Add":" (type (val X)) \" \" X \", \""},{"Add":" (if (sub? \"*\" (val X)) null 0) )"},{"Add":" (def (pack \"%\" *Ssa) 'i1) )"},{"Add":" (llvm~=0 \"eq\")"},{"Add":" (llvm~n0 \"ne\") )"},{"Add":""},{"Add":"(asm (@Pred)"},{"Add":" ((X)"},{"Add":" (setq llvm~@ X)"},{"Add":" (ssa (inc '*Ssa) \"icmp \" @Pred"},{"Add":" \" \" (type (val X)) \" \" X \", 0\" )"},{"Add":" (def (pack \"%\" *Ssa) 'i1) )"},{"Add":" (llvm~gt0 \"sgt\")"},{"Add":" (llvm~ge0 \"sge\")"},{"Add":" (llvm~le0 \"sle\")"},{"Add":" (llvm~lt0 \"slt\") )"},{"Add":""},{"Add":"# Arithmetics"},{"Add":"(asm (@Op1 @Op2 @Sgn)"},{"Add":" ((X . @)"},{"Add":" (cond"},{"Add":" ((num? X) (pass @Op1 X))"},{"Add":" ((args)"},{"Add":" (let V (val X)"},{"Add":" (for (Y (next) Y (next))"},{"Add":" (casq V"},{"Add":" ((i8 i32 i64 any)"},{"Add":" (when (and (sym? Y) (== 'i1 (val Y)))"},{"Add":" (ssa (inc '*Ssa) \"zext i1 \" Y \" to i64\")"},{"Add":" (setq Y (pack \"%\" *Ssa)) )"},{"Add":" (ssa (inc '*Ssa) @Op2 \" \" (type V) \" \" X \", \" Y) )"},{"Add":" ((i1* i1** i8* i8** i8*** i32* i32** i64* i64**)"},{"Add":" (let Typ (pointee V)"},{"Add":" (if (num? Y)"},{"Add":" (ssa (inc '*Ssa) \"getelementptr \" Typ \", \" V \" \" X \", i32 \" @Sgn Y)"},{"Add":" (ssa (inc '*Ssa) \"ptrtoint \" V \" \" X \" to i64\")"},{"Add":" (ssa (inc '*Ssa) \"ptrtoint \" (val Y) \" \" Y \" to i64\")"},{"Add":" (ssa (inc '*Ssa) @Op2 \" i64 %\" (- *Ssa 2) \", %\" (dec *Ssa))"},{"Add":" (setq V 'i64) ) ) )"},{"Add":" (T (quit \"Bad type\" V)) )"},{"Add":" (setq X (def (pack \"%\" *Ssa) V)) ) ) )"},{"Add":" (T"},{"Add":" (ssa (inc '*Ssa) @Op2 \" \" (type (val X)) \" 0, \" X)"},{"Add":" (def (pack \"%\" *Ssa) (val X)) ) ) )"},{"Add":" (llvm~+ + \"add\")"},{"Add":" (llvm~- - \"sub\" \"-\") )"},{"Add":""},{"Add":"(asm (@Op)"},{"Add":" ((X Y C)"},{"Add":" (when (and (sym? Y) (== 'i1 (val Y)))"},{"Add":" (ssa (inc '*Ssa) \"zext i1 \" Y \" to i64\")"},{"Add":" (setq Y (pack \"%\" *Ssa)) )"},{"Add":" (ssa (inc '*Ssa) \"call {i64, i1} @llvm.u\" @Op \".with.overflow.i64(i64 \" X \", i64 \" Y \")\")"},{"Add":" (ssa (inc '*Ssa) \"extractvalue {i64, i1} %\" (dec *Ssa) \", 1\")"},{"Add":" (ssa (inc '*Ssa) \"extractvalue {i64, i1} %\" (- *Ssa 2) \", 0\")"},{"Add":" (when C"},{"Add":" (ssa (inc '*Ssa) \"zext i1 \" C \" to i64\")"},{"Add":" (ssa (inc '*Ssa) \"call {i64, i1} @llvm.u\" @Op \".with.overflow.i64(i64 %\" (- *Ssa 2) \", i64 %\" (dec *Ssa) \")\")"},{"Add":" (ssa (inc '*Ssa) \"extractvalue {i64, i1} %\" (dec *Ssa) \", 1\")"},{"Add":" (ssa (inc '*Ssa) \"or i1 %\" (- *Ssa 5) \", %\" (dec *Ssa))"},{"Add":" (ssa (inc '*Ssa) \"extractvalue {i64, i1} %\" (- *Ssa 3) \", 0\") )"},{"Add":" (setq llvm~@@ (def (pack \"%\" (dec *Ssa)) 'i1))"},{"Add":" (def (pack \"%\" *Ssa) 'i64) )"},{"Add":" (llvm~add \"add\")"},{"Add":" (llvm~sub \"sub\") )"},{"Add":""},{"Add":"(asm (@Op1 @Op2 @Sgn)"},{"Add":" ((X Y)"},{"Add":" (if (num? X)"},{"Add":" (if Y (@Op1 X @) (@Op1 X))"},{"Add":" (default Y 1)"},{"Add":" (let"},{"Add":" (Typ (if (num? Y) 'i32 (type (val Y)))"},{"Add":" Z (or (pre? \"%\" X) (val X))"},{"Add":" V (val Z) )"},{"Add":" (casq V"},{"Add":" ((i8 i32 i64 any)"},{"Add":" (ssa (inc '*Ssa) @Op2 \" \" (type V) \" \" Z \", \" Y) )"},{"Add":" ((i1* i1** i8* i8** i8*** i16* i16** i32* i32** i64* i64**)"},{"Add":" (ssa (inc '*Ssa) \"getelementptr \" (pointee V) \", \" V \" \" Z \", \" Typ \" \" @Sgn Y) )"},{"Add":" (T (quit \"Bad type\" V)) )"},{"Add":" (prog1"},{"Add":" (def (pack \"%\" *Ssa) V)"},{"Add":" (unless (pre? \"%\" X)"},{"Add":" (set X @) ) ) ) ) )"},{"Add":" (llvm~inc inc \"add\")"},{"Add":" (llvm~dec dec \"sub\" \"-\") )"},{"Add":""},{"Add":"(asm (@Op1 @Op2)"},{"Add":" ((X Y)"},{"Add":" (if (and (num? X) (num? Y))"},{"Add":" (@Op1 X Y)"},{"Add":" (let V (type (val (if (sym? X) X Y)))"},{"Add":" (ssa (inc '*Ssa) @Op2 \" \" V \" \" X \", \" Y)"},{"Add":" (def (pack \"%\" *Ssa) V) ) ) )"},{"Add":" (llvm~* * \"mul\")"},{"Add":" (llvm~/ / \"udiv\")"},{"Add":" (llvm~% % \"urem\")"},{"Add":" (llvm~& & \"and\")"},{"Add":" (llvm~| | \"or\")"},{"Add":" (llvm~x| x| \"xor\") )"},{"Add":""},{"Add":"(asm ()"},{"Add":" ((X Y)"},{"Add":" (unless (num? X)"},{"Add":" (ssa (inc '*Ssa) \"zext i64 \" X \" to i128\")"},{"Add":" (setq X (pack \"%\" *Ssa)) )"},{"Add":" (ssa (inc '*Ssa) \"zext i64 \" Y \" to i128\")"},{"Add":" (ssa (inc '*Ssa) \"mul i128 \" X \", %\" (dec *Ssa))"},{"Add":" (ssa (inc '*Ssa) \"lshr i128 %\" (dec *Ssa) \", 64\")"},{"Add":" (ssa (inc '*Ssa) \"trunc i128 %\" (dec *Ssa) \" to i64\")"},{"Add":" (setq llvm~@@@ (def (pack \"%\" *Ssa) 'i64))"},{"Add":" (ssa (inc '*Ssa) \"trunc i128 %\" (- *Ssa 3) \" to i64\")"},{"Add":" (def (pack \"%\" *Ssa) 'i64) )"},{"Add":" (llvm~mul) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" ((X Y Z)"},{"Add":" (ssa (inc '*Ssa) \"zext i64 \" X \" to i128\")"},{"Add":" (ssa (inc '*Ssa) \"shl i128 %\" (dec *Ssa) \", 64\")"},{"Add":" (ssa (inc '*Ssa) \"zext i64 \" Y \" to i128\")"},{"Add":" (ssa (setq Y (inc '*Ssa)) \"or i128 %\" (- *Ssa 2) \", %\" (dec *Ssa))"},{"Add":" (unless (num? Z)"},{"Add":" (ssa (inc '*Ssa) \"zext i64 \" Z \" to i128\")"},{"Add":" (setq Z (pack \"%\" *Ssa)) )"},{"Add":" (ssa (inc '*Ssa) \"urem i128 %\" Y \", \" Z)"},{"Add":" (ssa (inc '*Ssa) \"trunc i128 %\" (dec *Ssa) \" to i64\")"},{"Add":" (setq llvm~@@@ (def (pack \"%\" *Ssa) 'i64))"},{"Add":" (ssa (inc '*Ssa) \"udiv i128 %\" Y \", \" Z)"},{"Add":" (ssa (inc '*Ssa) \"trunc i128 %\" (dec *Ssa) \" to i64\")"},{"Add":" (def (pack \"%\" *Ssa) 'i64) )"},{"Add":" (llvm~div) )"},{"Add":""},{"Add":"(asm (@Op @Op2)"},{"Add":" ((X Y Z)"},{"Add":" (when (num? X)"},{"Add":" (setq X (def (format X) 'i64)) )"},{"Add":" (ifn Z"},{"Add":" (let V (type (val X))"},{"Add":" (ssa (inc '*Ssa) @Op \" \" V \" \" X \", \" Y)"},{"Add":" (def (pack \"%\" *Ssa) V) )"},{"Add":" (ssa (inc '*Ssa) \"call \""},{"Add":" \"i64 @llvm.\" @Op2 \".i64(\""},{"Add":" \"i64 \" X \", \""},{"Add":" \"i64 \" Y \", \""},{"Add":" \"i64 \" Z \")\" )"},{"Add":" (def (pack \"%\" *Ssa) 'i64) ) )"},{"Add":" (llvm~shl \"shl\" \"fshl\")"},{"Add":" (llvm~shr \"lshr\" \"fshr\") )"},{"Add":""},{"Add":"# Memory access"},{"Add":"(asm ()"},{"Add":" ((X Y)"},{"Add":" (if (=0 Y)"},{"Add":" X"},{"Add":" (casq (val X)"},{"Add":" (any"},{"Add":" (if (num? Y)"},{"Add":" (ssa (inc '*Ssa) \"add i64 \" X \", \" (* 8 Y))"},{"Add":" (if (== 'i64 (val Y))"},{"Add":" (ssa (inc '*Ssa) \"shl i64 \" Y \", 3\")"},{"Add":" (ssa (inc '*Ssa) \"zext \" (val Y) \" \" Y \" to i64\")"},{"Add":" (ssa (inc '*Ssa) \"shl i64 %\" (dec *Ssa) \", 3\") )"},{"Add":" (ssa (inc '*Ssa) \"add i64 \" X \", %\" (dec *Ssa)) ) )"},{"Add":" ((i1* i1** i8* i8** i8*** i32* i32** i64* i64**)"},{"Add":" (ssa (inc '*Ssa) \"getelementptr \" (pointee (val X)) \", \""},{"Add":" (val X) \" \" X \", \""},{"Add":" (if (num? Y) 'i32 (val Y)) \" \" Y ) )"},{"Add":" (T (quit \"Bad type\" (val X))) )"},{"Add":" (def (pack \"%\" *Ssa) (val X)) ) )"},{"Add":" (llvm~ofs) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" ((X)"},{"Add":" (ssa (inc '*Ssa) \"inttoptr i64 \" X \" to i64*\")"},{"Add":" (ssa (inc '*Ssa) \"load i64, i64* %\" (dec *Ssa))"},{"Add":" (def (pack \"%\" *Ssa) 'any) )"},{"Add":" (llvm~car) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" ((X)"},{"Add":" (ssa (inc '*Ssa) \"inttoptr i64 \" X \" to i64*\")"},{"Add":" (ssa (inc '*Ssa) \"getelementptr i64, i64* %\" (dec *Ssa) \", i32 1\")"},{"Add":" (ssa (inc '*Ssa) \"load i64, i64* %\" (dec *Ssa))"},{"Add":" (def (pack \"%\" *Ssa) 'any) )"},{"Add":" (llvm~cdr) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" (Args"},{"Add":" (ssa (inc '*Ssa) \"inttoptr i64 \" (val (car Args)) \" to i64*\")"},{"Add":" (ssa (inc '*Ssa) \"load i64, i64* %\" (dec *Ssa))"},{"Add":" (let P *Ssa"},{"Add":" (ssa (inc '*Ssa) \"getelementptr i64, i64* %\" (- *Ssa 2) \", i32 1\")"},{"Add":" (ssa (inc '*Ssa) \"load i64, i64* %\" (dec *Ssa))"},{"Add":" (set (car Args) (def (pack \"%\" *Ssa) 'any))"},{"Add":" (def (pack \"%\" P) 'any) ) )"},{"Add":" (llvm~++) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" (Args"},{"Add":" (ssa (inc '*Ssa) \"inttoptr i64 \" (val (car Args)) \" to i64*\")"},{"Add":" (ssa (inc '*Ssa) \"getelementptr i64, i64* %\" (dec *Ssa) \", i32 1\")"},{"Add":" (ssa (inc '*Ssa) \"load i64, i64* %\" (dec *Ssa))"},{"Add":" (set (car Args) (def (pack \"%\" *Ssa) 'any)) )"},{"Add":" (llvm~shift) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" (@"},{"Add":" (let (X (next) Ofs)"},{"Add":" (when (num? X)"},{"Add":" (setq Ofs (dec X) X (next)) )"},{"Add":" (casq (val X)"},{"Add":" (any"},{"Add":" (if (pre? \"@\" X)"},{"Add":" (ssa (inc '*Ssa) \"load \" \"i64, i64* \" X)"},{"Add":" (ssa (inc '*Ssa) \"inttoptr i64 \" X \" to i64*\")"},{"Add":" (when Ofs"},{"Add":" (ssa (inc '*Ssa) \"getelementptr i64, i64* %\" (dec *Ssa) \", i32 \" Ofs) )"},{"Add":" (ssa (inc '*Ssa) \"load \" \"i64, i64* %\" (dec *Ssa)) )"},{"Add":" (def (pack \"%\" *Ssa) 'any) )"},{"Add":" ((i1* i1** i8* i8** i8*** i16* i16** i32* i32** i64* i64**)"},{"Add":" (let Typ (pointee (val X))"},{"Add":" (ifn Ofs"},{"Add":" (ssa (inc '*Ssa) \"load \" Typ \", \" (val X) \" \" X)"},{"Add":" (ssa (inc '*Ssa) \"getelementptr \" Typ \", \" (val X) \" \" X \", i32 \" Ofs)"},{"Add":" (ssa (inc '*Ssa) \"load \" Typ \", \" (val X) \" %\" (dec *Ssa)) )"},{"Add":" (def (pack \"%\" *Ssa) Typ) ) )"},{"Add":" (T (quit \"Bad type\" (val X))) ) ) )"},{"Add":" (llvm~val) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" (Args"},{"Add":" (while Args"},{"Add":" (let (A (eval (++ Args) 1) B (eval (++ Args) 1))"},{"Add":" (ifn (num? A)"},{"Add":" (store B A)"},{"Add":" (store (eval (++ Args) 1) B (dec A)) ) ) ) )"},{"Add":" (llvm~set) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" ((X Y)"},{"Add":" (ifn (pre? \"%\" X)"},{"Add":" (xchg X Y)"},{"Add":" (ssa (inc '*Ssa) \"inttoptr i64 \" X \" to i64*\")"},{"Add":" (ssa (inc '*Ssa) \"load \" \"i64, i64* %\" (dec *Ssa))"},{"Add":" (ssa (inc '*Ssa) \"inttoptr i64 \" Y \" to i64*\")"},{"Add":" (ssa (inc '*Ssa) \"load \" \"i64, i64* %\" (dec *Ssa))"},{"Add":" (link (pack \"store i64 %\" *Ssa \", i64* %\" (- *Ssa 3)))"},{"Add":" (link (pack \"store i64 %\" (- *Ssa 2) \", i64* %\" (dec *Ssa)))"},{"Add":" (def (pack \"%\" (- *Ssa 2)) 'any) ) )"},{"Add":" (llvm~xchg) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" ((X Y Z Flg)"},{"Add":" (link"},{"Add":" (pack"},{"Add":" \"call void @llvm.memcpy.p0i8.p0i8.i64(i8* \""},{"Add":" (and Flg \"align 8 \") X"},{"Add":" \", \" 'i8* \" \" Y"},{"Add":" \", i64 \" Z"},{"Add":" \", i1 0)\" ) ) )"},{"Add":" (llvm~memcpy) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" ((X Y Z Flg)"},{"Add":" (link"},{"Add":" (pack"},{"Add":" \"call void @llvm.memset.p0i8.i64(i8* \""},{"Add":" (and Flg \"align 8 \") X"},{"Add":" \", \" 'i8 \" \" Y"},{"Add":" \", i64 \" Z"},{"Add":" \", i1 0)\" ) ) )"},{"Add":" (llvm~memset) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" (Lst"},{"Add":" (use *Bind"},{"Add":" (let (X (++ Lst) Safe *Safe)"},{"Add":" (prog1"},{"Add":" (if (pair X)"},{"Add":" (recur ()"},{"Add":" (let (Var (++ X) Val (eval (++ X)))"},{"Add":" (and (atom Val) (+bind Lst Var))"},{"Add":" (bind Var"},{"Add":" (set Var Val)"},{"Add":" (if X (recurse) (run Lst)) ) ) )"},{"Add":" (let Val (eval (++ Lst))"},{"Add":" (and (atom Val) (+bind Lst X))"},{"Add":" (bind X"},{"Add":" (set X Val)"},{"Add":" (run Lst) ) ) )"},{"Add":" (when (and @ *Safe (not Safe))"},{"Add":" (drop *Safe)"},{"Add":" (off *Safe) ) ) ) ) )"},{"Add":" (llvm~let) )"},{"Add":""},{"Add":"# Stack operations"},{"Add":"(asm ()"},{"Add":" ((P)"},{"Add":" (if P"},{"Add":" (prog"},{"Add":" (link (pack \"call void @llvm.stackrestore(i8* \" P \")\"))"},{"Add":" P )"},{"Add":" (ssa (inc '*Ssa) \"call i8* @llvm.stacksave()\")"},{"Add":" (def (pack \"%\" *Ssa) 'i8*) ) )"},{"Add":" (llvm~stack) )"},{"Add":""},{"Add":"(asm (@Typ @Ptr @Flg)"},{"Add":" ((N)"},{"Add":" (ssa (inc '*Ssa) \"alloca \" '@Typ \", \""},{"Add":" (if (num? N) 'i64 (val N))"},{"Add":" \" \" N"},{"Add":" (and @Flg \", align 8\") )"},{"Add":" (def (pack \"%\" *Ssa) '@Ptr) )"},{"Add":" (llvm~b8 i8 i8*)"},{"Add":" (llvm~b8+ i8 i8* T)"},{"Add":" (llvm~b8* i8* i8**)"},{"Add":" (llvm~b32 i32 i32*)"},{"Add":" (llvm~b64 i64 i64*) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" (@"},{"Add":" (let"},{"Add":" (Lst (rest)"},{"Add":" Typ"},{"Add":" (or"},{"Add":" (pick"},{"Add":" '((X)"},{"Add":" (cond"},{"Add":" ((num? X) 'i64)"},{"Add":" (X (val X)) ) )"},{"Add":" Lst )"},{"Add":" 'any ) )"},{"Add":" (ssa (inc '*Ssa) \"alloca \""},{"Add":" (type Typ) \", i64 \" (length Lst)"},{"Add":" (and (cdr Lst) \", align 16\") )"},{"Add":" (when (== 'any Typ)"},{"Add":" (ssa (inc '*Ssa) \"ptrtoint i64* %\" (dec *Ssa) \" to i64\") )"},{"Add":" (let P (def (pack \"%\" *Ssa) (ptr Typ))"},{"Add":" (for (I . Y) Lst"},{"Add":" (when Y"},{"Add":" (if (=1 I)"},{"Add":" (store Y P)"},{"Add":" (if (== 'any Typ)"},{"Add":" (ssa (inc '*Ssa) \"add i64 \" P \", \" (* 8 (dec I)))"},{"Add":" (ssa (inc '*Ssa) \"getelementptr \""},{"Add":" (type Typ) \", \" (val P) \" \" P \", i32 \" (dec I) ) )"},{"Add":" (store Y (def (pack \"%\" *Ssa) (val P))) ) ) )"},{"Add":" P ) ) )"},{"Add":" (llvm~push) )"},{"Add":""},{"Add":"# Flow"},{"Add":"(asm ()"},{"Add":" ((Fun X Y)"},{"Add":" (ssa (inc '*Ssa) \"and i64 \" Fun \", -3\")"},{"Add":" (ssa (inc '*Ssa) \"inttoptr i64 %\" (dec *Ssa) \" to i64(i64,i64)*\")"},{"Add":" (ssa (inc '*Ssa) \"call i64 %\" (dec *Ssa) \"(i64 \" X \",\" \"i64 \" Y \")\")"},{"Add":" (def (pack \"%\" *Ssa) 'any) )"},{"Add":" (llvm~subr) )"},{"Add":""},{"Add":"(asm (@Val1 @Val2 @Lbl1 @Lbl2)"},{"Add":" (Prg"},{"Add":" (let (End (+lbl) Var (box))"},{"Add":" (for Exe Prg"},{"Add":" (if (== Exe (last Prg))"},{"Add":" (when (set Var (evBool (car Prg)))"},{"Add":" (phi End Var)"},{"Add":" (br End) )"},{"Add":" (let (Flg (evBool (++ Prg)) Skip (+lbl))"},{"Add":" (set Var @Val1)"},{"Add":" (phi End Var)"},{"Add":" (br Flg @Lbl1 @Lbl2)"},{"Add":" (label Skip) ) ) )"},{"Add":" (label End) ) )"},{"Add":" (llvm~and NO YES Skip End)"},{"Add":" (llvm~or YES NO End Skip) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" (Prg"},{"Add":" (prog1"},{"Add":" (setq llvm~@ (eval (++ Prg)))"},{"Add":" (run Prg) ) )"},{"Add":" (llvm~prog1) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" (Prg"},{"Add":" (prog2"},{"Add":" (eval (++ Prg))"},{"Add":" (setq llvm~@ (eval (++ Prg)))"},{"Add":" (run Prg) ) )"},{"Add":" (llvm~prog2) )"},{"Add":""},{"Add":"(asm (@Lbl1 @Lbl2)"},{"Add":" (Prg"},{"Add":" (let (Flg (evBool (++ Prg)) Var (box) Body (+lbl) Skip (+lbl) End (+lbl))"},{"Add":" (br Flg @Lbl1 @Lbl2)"},{"Add":" (label Body)"},{"Add":" (use llvm~@"},{"Add":" (when (set Var (eval (++ Prg)))"},{"Add":" (phi End Var)"},{"Add":" (br End) )"},{"Add":" (label Skip) )"},{"Add":" (use llvm~@"},{"Add":" (when (set Var (run Prg))"},{"Add":" (phi End Var)"},{"Add":" (br End) ) )"},{"Add":" (label End) ) )"},{"Add":" (llvm~if Body Skip)"},{"Add":" (llvm~ifn Skip Body) )"},{"Add":""},{"Add":"(asm (@Lbl1 @Lbl2)"},{"Add":" (Prg"},{"Add":" (let (Flg (evBool (++ Prg)) Body (+lbl) End (+lbl))"},{"Add":" (br Flg @Lbl1 @Lbl2)"},{"Add":" (label Body)"},{"Add":" (use llvm~@"},{"Add":" (and (run Prg) (br End)) )"},{"Add":" (label End) )"},{"Add":" T )"},{"Add":" (llvm~when Body End)"},{"Add":" (llvm~unless End Body) )"},{"Add":""},{"Add":"(asm (@Flg @Lbl1 @Lbl2 @Lbl3 @Lbl4 @Lbl5 @Lbl6)"},{"Add":" (Lst"},{"Add":" (let (Var (box) End (+lbl) Flg)"},{"Add":" (for Prg Lst"},{"Add":" (if (== @Flg (car Prg))"},{"Add":" (use llvm~@"},{"Add":" (when (set Var (run (cdr Prg)))"},{"Add":" (phi End Var)"},{"Add":" (br End) ) )"},{"Add":" (setq Flg (evBool (++ Prg)))"},{"Add":" (let Skip (+lbl)"},{"Add":" (if Prg"},{"Add":" (let Body (+lbl)"},{"Add":" (br Flg @Lbl1 @Lbl2)"},{"Add":" (label Body)"},{"Add":" (use llvm~@"},{"Add":" (when (set Var (run Prg))"},{"Add":" (phi End Var)"},{"Add":" (br End) ) ) )"},{"Add":" (br Flg @Lbl3 @Lbl4) )"},{"Add":" (label Skip) ) ) )"},{"Add":" (if (== @Flg (car (last Lst)))"},{"Add":" (label End)"},{"Add":" (set Var 0)"},{"Add":" (phi End Var)"},{"Add":" (br End)"},{"Add":" (label End)"},{"Add":" T ) ) )"},{"Add":" (llvm~cond T Body Skip End Skip Body End)"},{"Add":" (llvm~nond NIL Skip Body Skip End End Body) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" (Lst"},{"Add":" (let"},{"Add":" (Var (box)"},{"Add":" True (+lbl)"},{"Add":" Flg (asoq T Lst)"},{"Add":" End (if Flg (+lbl) True)"},{"Add":" X (setq llvm~@ (eval (++ Lst))) )"},{"Add":" (link"},{"Add":" (pack"},{"Add":" \"switch \" (type (val X)) \" \" X"},{"Add":" \", label %$\" (+phi True) \" [\" ) )"},{"Add":" (let Lbl"},{"Add":" (extract"},{"Add":" '((Prg)"},{"Add":" (unless (=T (car Prg))"},{"Add":" (let Y (eval (car Prg))"},{"Add":" (prog1"},{"Add":" (+lbl)"},{"Add":" (link"},{"Add":" (pack"},{"Add":" \" \" (type (val X)) \" \" Y"},{"Add":" \", label %$\" (+phi @) ) ) ) ) ) )"},{"Add":" Lst )"},{"Add":" (link \"]\")"},{"Add":" (for Prg Lst"},{"Add":" (label (if (=T (++ Prg)) True (++ Lbl)))"},{"Add":" (use llvm~@"},{"Add":" (when (set Var (if Prg (run @) 0))"},{"Add":" (and Flg (phi End Var))"},{"Add":" (br End) ) ) ) )"},{"Add":" (label End) ) )"},{"Add":" (llvm~case) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" (Prg"},{"Add":" (let (Flg (evBool (++ Prg)) False (+lbl))"},{"Add":" (default *Exit (cons (+lbl) (box)))"},{"Add":" (if Prg"},{"Add":" (let True (+lbl)"},{"Add":" (br Flg True False)"},{"Add":" (label True)"},{"Add":" (use llvm~@"},{"Add":" (let? X (run Prg)"},{"Add":" (when (cdr *Exit)"},{"Add":" (set @ X)"},{"Add":" (phi (car *Exit) @) )"},{"Add":" (br (car *Exit)) ) ) )"},{"Add":" (when (cdr *Exit)"},{"Add":" (set @ 0)"},{"Add":" (phi (car *Exit) @) )"},{"Add":" (br Flg (car *Exit) False) )"},{"Add":" (label False) )"},{"Add":" T )"},{"Add":" (llvm~?) )"},{"Add":""},{"Add":"(asm (@Lbl1 @Lbl2)"},{"Add":" (Prg"},{"Add":" (let Beg (+lbl)"},{"Add":" (br Beg)"},{"Add":" (label Beg)"},{"Add":" (let (Flg (evBool (++ Prg)) Body (+lbl) *Exit (cons (+lbl)))"},{"Add":" (br Flg @Lbl1 @Lbl2)"},{"Add":" (label Body)"},{"Add":" (use llvm~@"},{"Add":" (and (run Prg) (br Beg)) )"},{"Add":" (label (car *Exit)) ) )"},{"Add":" T )"},{"Add":" (llvm~while Body (car *Exit))"},{"Add":" (llvm~until (car *Exit) Body) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" (Prg"},{"Add":" (let (Beg (+lbl) *Exit)"},{"Add":" (br Beg)"},{"Add":" (label Beg)"},{"Add":" (and (run Prg) (br Beg))"},{"Add":" (cond"},{"Add":" (*Exit (label (car *Exit)))"},{"Add":" ((fish"},{"Add":" '((X)"},{"Add":" (and"},{"Add":" (== 'llvm~goto (car (pair X)))"},{"Add":" (not (memq (- (cadr X)) (made))) ) )"},{"Add":" Prg )"},{"Add":" (label (+lbl)) ) ) ) )"},{"Add":" (llvm~loop) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" ((Fun . @)"},{"Add":" (let"},{"Add":" (L (val Fun)"},{"Add":" F (func L)"},{"Add":" A"},{"Add":" (mapcar"},{"Add":" '((Typ) (pack Typ \" \" (next)))"},{"Add":" (cdr L) ) )"},{"Add":" (ssa (inc '*Ssa) \"load \" F \", \" F \"* \" Fun)"},{"Add":" (let S"},{"Add":" (pack *Call \" \""},{"Add":" (car L) \" \" (pack \"%\" *Ssa)"},{"Add":" \"(\" (glue \", \" A) \")\" )"},{"Add":" (if (== void (car L))"},{"Add":" (link S)"},{"Add":" (ssa (inc '*Ssa) S)"},{"Add":" (def (pack \"%\" *Ssa) (car L)) ) ) ) )"},{"Add":" (llvm~call) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" ((Lbl . Prg)"},{"Add":" (br (- Lbl))"},{"Add":" (label (- Lbl))"},{"Add":" (run Prg) )"},{"Add":" (llvm~:) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" ((Lbl) (br (- Lbl)) NIL)"},{"Add":" (llvm~goto) )"},{"Add":""},{"Add":"(asm ()"},{"Add":" ((X)"},{"Add":" (and *Safe (drop *Safe))"},{"Add":" (if (== void *Ret)"},{"Add":" (link \"ret void\")"},{"Add":" (link (pack \"ret \" *Ret \" \" X)) )"},{"Add":" NIL )"},{"Add":" (llvm~ret) )"},{"Add":""},{"Add":""},{"Add":"### Composite ###"},{"Add":"(symbols '(llvm cross pico))"},{"Add":""},{"Add":"(local) (link drop pop save save2 safe)"},{"Add":""},{"Add":"(cross~de link (P Top)"},{"Add":" (log)"},{"Add":" (pico~let *Log NIL"},{"Add":" (pico~when (pico~== 'i64* (pico~val P))"},{"Add":" (setq P (any P)) )"},{"Add":" (pico~when Top"},{"Add":" (default *Safe P) )"},{"Add":" (set 2 P (val $Link))"},{"Add":" (set $Link P) ) )"},{"Add":""},{"Add":"(cross~de drop (P . Prg)"},{"Add":" (log)"},{"Add":" (pico~let *Log NIL"},{"Add":" (pico~when (pico~== 'i64* (pico~val P))"},{"Add":" (setq P (any P)) )"},{"Add":" (pico~if Prg"},{"Add":" (prog1"},{"Add":" (pico~let *Log T"},{"Add":" (run pico~@) )"},{"Add":" (set $Link (cdr P)) )"},{"Add":" (set $Link (cdr P)) ) ) )"},{"Add":""},{"Add":"(cross~de pop (P)"},{"Add":" (log)"},{"Add":" (pico~let *Log NIL"},{"Add":" (prog1"},{"Add":" (val P)"},{"Add":" (set $Link (cdr P)) ) ) )"},{"Add":""},{"Add":"(cross~de save (X . Prg)"},{"Add":" (log)"},{"Add":" (pico~let (*Log NIL Safe *Safe P (push X (val $Link)))"},{"Add":" (default *Safe P)"},{"Add":" (set $Link P)"},{"Add":" (pico~if Prg"},{"Add":" (prog1"},{"Add":" (pico~let *Log T"},{"Add":" (run pico~@) )"},{"Add":" (pico~when pico~@"},{"Add":" (log \"drop\")"},{"Add":" (drop P)"},{"Add":" (setq *Safe Safe) ) )"},{"Add":" X ) ) )"},{"Add":""},{"Add":"(cross~de save2 (X Y . Prg)"},{"Add":" (log)"},{"Add":" (pico~let (*Log NIL Safe *Safe P (push X (val $Link)))"},{"Add":" (default *Safe P)"},{"Add":" (set $Link (push Y P))"},{"Add":" (pico~if Prg"},{"Add":" (prog1"},{"Add":" (pico~let *Log T"},{"Add":" (run pico~@) )"},{"Add":" (pico~when pico~@"},{"Add":" (log \"drop\")"},{"Add":" (drop P)"},{"Add":" (setq *Safe Safe) ) )"},{"Add":" Y ) ) )"},{"Add":""},{"Add":"(cross~de safe (V)"},{"Add":" (log)"},{"Add":" (pico~let *Log NIL"},{"Add":" (store V *Safe) ) )"}]}},{"FileAdd":{"meta":{"basename":"io.l","metadata":0},"context":[{"change":0,"pos":63931}],"contents":[{"Add":"# 08sep23 Software Lab. Alexander Burger"},{"Add":""},{"Add":"(symbols '(llvm))"},{"Add":""},{"Add":"(local) (openErr closeErr pipeErr sizeErr eofErr badInput badFd writeErr"},{"Add":"selectErr)"},{"Add":""},{"Add":"(de NIL openErr (Exe X)"},{"Add":" (err Exe X ($ \"Open error: %s\") (strErrno)) )"},{"Add":""},{"Add":"(de NIL closeErr ()"},{"Add":" (err 0 0 ($ \"Close error: %s\") (strErrno)) )"},{"Add":""},{"Add":"(de NIL pipeErr (Exe)"},{"Add":" (err Exe 0 ($ \"Pipe error: %s\") (strErrno)) )"},{"Add":""},{"Add":"(de NIL sizeErr (Exe)"},{"Add":" (err Exe 0 ($ \"Size overflow\") null) )"},{"Add":""},{"Add":"(de NIL eofErr ()"},{"Add":" (err 0 0 ($ \"EOF Overrun\") null) )"},{"Add":""},{"Add":"(de NIL badInput ()"},{"Add":" (let S (b8 2)"},{"Add":" (set S (i8 (val $Chr)))"},{"Add":" (set 2 S 0)"},{"Add":" (err 0 0 ($ \"Bad input '%s'\") S) ) )"},{"Add":""},{"Add":"(de NIL badFd (Exe Fd)"},{"Add":" (err Exe Fd ($ \"Bad FD\") null) )"},{"Add":""},{"Add":"(de NIL writeErr ((i8* . Fmt))"},{"Add":" (err 0 0 Fmt (strErrno)) )"},{"Add":""},{"Add":"(de NIL selectErr (Exe)"},{"Add":" (err Exe 0 ($ \"Select error: %s\") (strErrno)) )"},{"Add":""},{"Add":"(local) (closeOnExec rdLockWait wrLockWait)"},{"Add":""},{"Add":"(de void closeOnExec (Exe (i32 . Fd))"},{"Add":" (when (lt0 (fcntlCloExec Fd))"},{"Add":" (err Exe 0 ($ \"SETFD %s\") (strErrno)) ) )"},{"Add":""},{"Add":"(de void rdLockWait ((i32 . Fd) (i64 . Len))"},{"Add":" (while (lt0 (rdLock Fd 0 Len YES))"},{"Add":" (unless (== (gErrno) EINTR)"},{"Add":" (lockErr) ) ) )"},{"Add":""},{"Add":"(de void wrLockWait ((i32 . Fd) (i64 . Len))"},{"Add":" (while (lt0 (wrLock Fd 0 Len YES))"},{"Add":" (unless (== (gErrno) EINTR)"},{"Add":" (lockErr) ) ) )"},{"Add":""},{"Add":"(local) (initInFile initOutFile closeInFile closeOutFile)"},{"Add":""},{"Add":"(de i8* initInFile ((i32 . Fd) (i8* . Nm))"},{"Add":" (let I (val $InFDs)"},{"Add":" (when (>= Fd I)"},{"Add":" (let P"},{"Add":" (set $InFiles"},{"Add":" (i8**"},{"Add":" (alloc"},{"Add":" (i8* (val $InFiles))"},{"Add":" (* 8 (i64 (set $InFDs (+ Fd 1)))) ) ) )"},{"Add":" (loop"},{"Add":" (set (ofs P I) null)"},{"Add":" (? (== I Fd))"},{"Add":" (inc 'I) ) ) ) )"},{"Add":" (let In:"},{"Add":" (inFile"},{"Add":" (let P (ofs (val $InFiles) Fd)"},{"Add":" (if (val P)"},{"Add":" @"},{"Add":" (set P (alloc null (inFile T))) ) ) )"},{"Add":" (In: name Nm)"},{"Add":" (In: tty (n0 (isatty (In: fd Fd))))"},{"Add":" (In: chr 0)"},{"Add":" (In: line (In: src 1))"},{"Add":" (In: ix (In: cnt 0))"},{"Add":" (In:) ) )"},{"Add":""},{"Add":"(de i8* initOutFile ((i32 . Fd))"},{"Add":" (let I (val $OutFDs)"},{"Add":" (when (>= Fd I)"},{"Add":" (let P"},{"Add":" (set $OutFiles"},{"Add":" (i8**"},{"Add":" (alloc"},{"Add":" (i8* (val $OutFiles))"},{"Add":" (* 8 (i64 (set $OutFDs (+ Fd 1)))) ) ) )"},{"Add":" (loop"},{"Add":" (set (ofs P I) null)"},{"Add":" (? (== I Fd))"},{"Add":" (inc 'I) ) ) ) )"},{"Add":" (let Out:"},{"Add":" (outFile"},{"Add":" (let P (ofs (val $OutFiles) Fd)"},{"Add":" (if (val P)"},{"Add":" @"},{"Add":" (set P (alloc null (outFile T))) ) ) )"},{"Add":" (Out: tty (n0 (isatty (Out: fd Fd))))"},{"Add":" (Out: ix 0)"},{"Add":" (Out:) ) )"},{"Add":""},{"Add":"(de void closeInFile ((i32 . Fd))"},{"Add":" (when (> (val $InFDs) Fd)"},{"Add":" (let P (ofs (val $InFiles) Fd)"},{"Add":" (when (val P)"},{"Add":" (let In: (inFile @)"},{"Add":" (free (In: name))"},{"Add":" (In: name null)"},{"Add":" (In: fd -1) ) ) ) ) )"},{"Add":""},{"Add":"(de void closeOutFile ((i32 . Fd))"},{"Add":" (when (> (val $OutFDs) Fd)"},{"Add":" (let P (ofs (val $OutFiles) Fd)"},{"Add":" (when (val P)"},{"Add":" ((outFile @) fd -1) ) ) ) )"},{"Add":""},{"Add":"(local) (slow slowNb rdBytes rdBytesNb wrBytes clsChild wrChild flush flushAll)"},{"Add":""},{"Add":"(de i32 slow ((i8* . In))"},{"Add":" (let In: (inFile In)"},{"Add":" (In: ix 0)"},{"Add":" (loop"},{"Add":" (?"},{"Add":" (ge0"},{"Add":" (i32 (read (In: fd) (In: (buf)) BUFSIZ)) )"},{"Add":" (In: cnt @) )"},{"Add":" (? (<> (gErrno) EINTR)"},{"Add":" (In: cnt 0) )"},{"Add":" (sigChk 0) ) ) )"},{"Add":""},{"Add":"(de i32 slowNb ((i8* . In))"},{"Add":" (let In: (inFile In)"},{"Add":" (loop"},{"Add":" (let"},{"Add":" (Flg (nonBlocking (In: fd))"},{"Add":" N (i32 (read (In: fd) (In: (buf)) BUFSIZ)) )"},{"Add":" (fcntlSetFl (In: fd) Flg)"},{"Add":" (? (gt0 N)"},{"Add":" (In: ix 0)"},{"Add":" (In: cnt N) )"},{"Add":" (? (=0 N)"},{"Add":" (In: ix (In: cnt -1))"},{"Add":" 0 ) )"},{"Add":" (? (== (gErrno) EAGAIN) -1)"},{"Add":" (? (<> @ EINTR)"},{"Add":" (In: ix (In: cnt 0)) )"},{"Add":" (sigChk 0) ) ) )"},{"Add":""},{"Add":"(de i1 rdBytes ((i32 . Fd) (i8* . P) (i32 . Cnt))"},{"Add":" (loop"},{"Add":" (loop"},{"Add":" (? (gt0 (i32 (read Fd P (i64 Cnt))))"},{"Add":" (inc 'P @)"},{"Add":" (dec 'Cnt @) )"},{"Add":" (unless (and @ (== (gErrno) EINTR))"},{"Add":" (ret NO) )"},{"Add":" (sigChk 0) )"},{"Add":" (? (=0 Cnt) YES) ) )"},{"Add":""},{"Add":"(de i64 rdBytesNb ((i32 . Fd) (i8* . P) (i32 . Cnt))"},{"Add":" (loop"},{"Add":" (let"},{"Add":" (Flg (nonBlocking Fd)"},{"Add":" N (i32 (read Fd P (i64 Cnt))) )"},{"Add":" (fcntlSetFl Fd Flg)"},{"Add":" (when (gt0 N)"},{"Add":" (loop"},{"Add":" (unless (dec 'Cnt N)"},{"Add":" (ret 1) )"},{"Add":" (inc 'P N)"},{"Add":" (while"},{"Add":" (le0"},{"Add":" (setq N (i32 (read Fd P (i64 Cnt)))) )"},{"Add":" (unless (and N (== (gErrno) EINTR))"},{"Add":" (ret 0) )"},{"Add":" (sigChk 0) ) ) )"},{"Add":" (? (=0 N) 0) )"},{"Add":" (? (== (gErrno) EAGAIN) -1)"},{"Add":" (? (<> @ EINTR) 0)"},{"Add":" (sigChk 0) ) )"},{"Add":""},{"Add":"(de i1 wrBytes ((i32 . Fd) (i8* . P) (i32 . Cnt))"},{"Add":" (loop"},{"Add":" (? (lt0 Fd) NO)"},{"Add":" (let N (i32 (write Fd P (i64 Cnt)))"},{"Add":" (if (lt0 N)"},{"Add":" (let E (gErrno)"},{"Add":" (? (== E EBADF) NO)"},{"Add":" (? (== E EPIPE) NO)"},{"Add":" (? (== E ECONNRESET) NO)"},{"Add":" (unless (== E EINTR)"},{"Add":" (when (== Fd 2) # Stderr"},{"Add":" (bye 2) )"},{"Add":" (writeErr ($ \"bytes write: %s\")) )"},{"Add":" (sigChk 0) )"},{"Add":" (? (=0 (dec 'Cnt N)) YES)"},{"Add":" (inc 'P N) ) ) ) )"},{"Add":""},{"Add":"(de void clsChild ((i8* . Cld))"},{"Add":" (let Cld: (child Cld)"},{"Add":" (when (== (Cld: pid) (val $Talking))"},{"Add":" (set $Talking 0) )"},{"Add":" (Cld: pid 0)"},{"Add":" (close (Cld: hear))"},{"Add":" (close (Cld: tell))"},{"Add":" (free (Cld: buf)) ) )"},{"Add":""},{"Add":"(de void wrChild ((i8* . Cld) (i8* . P) (i32 . Cnt))"},{"Add":" (let (Cld: (child Cld) C (Cld: cnt))"},{"Add":" (unless C"},{"Add":" (loop"},{"Add":" (let N (i32 (write (Cld: tell) P (i64 Cnt)))"},{"Add":" (if (lt0 N)"},{"Add":" (let E (gErrno)"},{"Add":" (? (== E EAGAIN))"},{"Add":" (when (or (== E EPIPE) (== E ECONNRESET))"},{"Add":" (clsChild Cld)"},{"Add":" (ret) )"},{"Add":" (unless (== E EINTR)"},{"Add":" (writeErr ($ \"child write: %s\")) ) )"},{"Add":" (unless (dec 'Cnt N)"},{"Add":" (ret) )"},{"Add":" (inc 'P N) ) ) ) )"},{"Add":" (let Siz (+ C Cnt 4) # New buffer size"},{"Add":" (when (> Siz (hex \"3FFFFFFF\")) # Allow max 1 GiB"},{"Add":" (sizeErr 0) )"},{"Add":" (let Q (ofs (Cld: buf (alloc (Cld: buf) (i64 Siz))) C)"},{"Add":" (set (i32* Q) Cnt)"},{"Add":" (memcpy (ofs Q 4) P (i64 Cnt))"},{"Add":" (Cld: cnt Siz) ) ) ) )"},{"Add":""},{"Add":"(de i1 flush ((i8* . Out))"},{"Add":" (ifn Out"},{"Add":" YES"},{"Add":" (let Out: (outFile Out)"},{"Add":" (ifn (Out: ix)"},{"Add":" YES"},{"Add":" (Out: ix 0)"},{"Add":" (wrBytes (Out: fd) (Out: (buf)) @) ) ) ) )"},{"Add":""},{"Add":"(de void flushAll ()"},{"Add":" (let (A (val $OutFiles) N (val $OutFDs) I (i32 0))"},{"Add":" (while (> N I)"},{"Add":" (flush (val (ofs A I)))"},{"Add":" (inc 'I) ) ) )"},{"Add":""},{"Add":"(local) (stdinByte getBinary binRead)"},{"Add":""},{"Add":"(de i32 stdinByte ()"},{"Add":" (let In: (inFile (val (val $InFiles))) # Stdin"},{"Add":" (cond"},{"Add":" ((and"},{"Add":" (ge0 (In: fd))"},{"Add":" (or"},{"Add":" (<> (In: ix) (In: cnt))"},{"Add":" (and (ge0 @) (slow (In:))) ) )"},{"Add":" (let I (In: ix)"},{"Add":" (In: ix (+ I 1))"},{"Add":" (i32 (val (ofs (In: (buf)) I))) ) )"},{"Add":" ((In: tty) (bye 0))"},{"Add":" (T -1) ) ) )"},{"Add":""},{"Add":"(de i32 getBinary ()"},{"Add":" (let (In: (inFile (val $InFile)) I (In: ix))"},{"Add":" (when (== I (In: cnt))"},{"Add":" (when (or (lt0 I) (=0 (slow (In:)))) # Closed or EOF"},{"Add":" (ret -1) )"},{"Add":" (setq I 0) )"},{"Add":" (In: ix (+ I 1))"},{"Add":" (i32 (val (ofs (In: (buf)) I))) ) )"},{"Add":""},{"Add":"# Read binary PLIO expression"},{"Add":"(de binRead ()"},{"Add":" (case (call $GetBin)"},{"Add":" (NIX $Nil) # NIL"},{"Add":" (BEG"},{"Add":" (ifn (binRead)"},{"Add":" 0"},{"Add":" (let (X (cons @ $Nil) R (save X))"},{"Add":" (loop"},{"Add":" (? (=0 (binRead)) @)"},{"Add":" (? (== @ END) R)"},{"Add":" (? (== @ -ZERO) # DOT"},{"Add":" (ifn (binRead)"},{"Add":" 0"},{"Add":" (set 2 X (if (== @ END) R @))"},{"Add":" R ) )"},{"Add":" (setq X (set 2 X (cons @ $Nil))) ) ) ) )"},{"Add":" (DOT -ZERO) # DOT -> -ZERO"},{"Add":" (END (i64 @)) # END"},{"Add":" (T"},{"Add":" (if (lt0 @)"},{"Add":" 0 # EOF"},{"Add":" (let # Atom"},{"Add":" (Tag (& @ 3)"},{"Add":" Cnt (shr @ 2)"},{"Add":" P (i64* (push NIL NIL ZERO NIL)) # [cnt last name link]"},{"Add":" Q (link (ofs P 2)) )"},{"Add":" (cond"},{"Add":" ((== Tag NUMBER)"},{"Add":" (set P 3) # 'cnt' for signed number"},{"Add":" (when (== Cnt 63) # More than one chunk"},{"Add":" (loop"},{"Add":" (loop"},{"Add":" (when (lt0 (call $GetBin))"},{"Add":" (: 1"},{"Add":" (drop Q)"},{"Add":" (ret 0) ) )"},{"Add":" (byteNum (i8 @) P)"},{"Add":" (? (=0 (dec 'Cnt))) )"},{"Add":" (when (lt0 (setq Cnt (call $GetBin)))"},{"Add":" (goto 1) )"},{"Add":" (? (<> Cnt 255)) )"},{"Add":" (unless Cnt"},{"Add":" (goto 2) ) )"},{"Add":" (loop"},{"Add":" (when (lt0 (call $GetBin))"},{"Add":" (goto 1) )"},{"Add":" (byteNum (i8 @) P)"},{"Add":" (? (=0 (dec 'Cnt))) )"},{"Add":" (: 2"},{"Add":" (drop Q"},{"Add":" (if (cnt? (val Q))"},{"Add":" @"},{"Add":" (let S (& (val (dig @)) 1)"},{"Add":" (| (half @) (shl S 3)) ) ) ) ) )"},{"Add":" (T # Symbol"},{"Add":" (set P 4) # 'cnt' for symbol name"},{"Add":" (when (== Cnt 63) # More than one chunk"},{"Add":" (loop"},{"Add":" (loop"},{"Add":" (when (lt0 (call $GetBin))"},{"Add":" (goto 1) )"},{"Add":" (byteSym (i8 @) P)"},{"Add":" (? (=0 (dec 'Cnt))) )"},{"Add":" (when (lt0 (setq Cnt (call $GetBin)))"},{"Add":" (goto 1) )"},{"Add":" (? (<> Cnt 255)) )"},{"Add":" (unless Cnt"},{"Add":" (goto 3) ) )"},{"Add":" (loop"},{"Add":" (when (lt0 (call $GetBin))"},{"Add":" (goto 1) )"},{"Add":" (byteSym (i8 @) P)"},{"Add":" (? (=0 (dec 'Cnt))) )"},{"Add":" (: 3"},{"Add":" (drop Q"},{"Add":" (let Nm (val Q)"},{"Add":" (case Tag"},{"Add":" (TRANSIENT (consStr Nm))"},{"Add":" (INTERN (requestSym Nm))"},{"Add":" (T # External"},{"Add":" (when (val $Extn)"},{"Add":" (let N"},{"Add":" (shl"},{"Add":" (& (i64 (+ (objFile Nm) @)) (hex \"FFFF\"))"},{"Add":" 24 ) # Mask overflow"},{"Add":" (setq Nm"},{"Add":" (|"},{"Add":" (& Nm (hex \"FFF00FFF00FFFFFF\")) # Mask object ID"},{"Add":" (&"},{"Add":" (| N (shl N 12))"},{"Add":" (hex \"000FF000FF000000\") ) ) ) ) ) # Mask file number"},{"Add":" (extern Nm) ) ) ) ) ) ) ) ) ) ) ) )"},{"Add":""},{"Add":"(local) (prCnt binPrint pr putTell prTell tellBeg tellEnd unsync)"},{"Add":""},{"Add":"# Binary print short number"},{"Add":"(de void prCnt ((i8 . Tag) Num)"},{"Add":" (let N Num"},{"Add":" (while (setq N (shr N 8))"},{"Add":" (inc 'Tag 4) ) )"},{"Add":" (call $PutBin Tag)"},{"Add":" (loop"},{"Add":" (call $PutBin (i8 Num))"},{"Add":" (? (=0 (setq Num (shr Num 8)))) ) )"},{"Add":""},{"Add":"# Binary print expression"},{"Add":"(de void binPrint (X)"},{"Add":" (cond"},{"Add":" ((cnt? X)"},{"Add":" (tailcall (prCnt (+ NUMBER 4) (shr X 3))) )"},{"Add":" ((big? X)"},{"Add":" (let (Y (pos X) Z Y N 8)"},{"Add":" (loop"},{"Add":" (let C (val (dig Z))"},{"Add":" (? (cnt? (setq Z (val (big Z))))"},{"Add":" (setq"},{"Add":" Z (int Z) # Normalize short"},{"Add":" C (add C C) # Get most significant bit of last digit"},{"Add":" Z (add Z Z @@) ) )"},{"Add":" (inc 'N 8) ) )"},{"Add":" (when Z # Significant bits in short number"},{"Add":" (loop"},{"Add":" (inc 'N)"},{"Add":" (? (=0 (setq Z (shr Z 8)))) ) )"},{"Add":" (let (M (- N 63) D (val (dig Y)))"},{"Add":" (when (ge0 M)"},{"Add":" (setq N 63) )"},{"Add":" (setq Y (val (big Y)))"},{"Add":" (setq X (shr X X 4)) # Sign into highest bit"},{"Add":" (add X X) # Keep in carry"},{"Add":" (setq D (add D D @@))"},{"Add":" (call $PutBin (i8 (shl N 2))) # Output tag byte"},{"Add":" (let (S @@ C 8)"},{"Add":" (loop"},{"Add":" (loop"},{"Add":" (call $PutBin (i8 D)) # Output next byte"},{"Add":" (if (dec 'C)"},{"Add":" (setq D (shr D 8))"},{"Add":" (setq C 8)"},{"Add":" (if (cnt? Y)"},{"Add":" (setq D (int Y))"},{"Add":" (setq"},{"Add":" D (val (dig Y))"},{"Add":" Y (val (big Y)) ) )"},{"Add":" (setq"},{"Add":" D (add D D S)"},{"Add":" S @@ ) )"},{"Add":" (? (=0 (dec 'N))) )"},{"Add":" (? (lt0 M))"},{"Add":" (? (=0 M) (call $PutBin 0)) # Output final zero"},{"Add":" (when (ge0 (setq M (- (setq N M) 255)))"},{"Add":" (setq N 255) )"},{"Add":" (call $PutBin (i8 N)) ) ) ) ) ) # Output next chunk size"},{"Add":" ((nil? X) (call $PutBin NIX))"},{"Add":" ((pair X)"},{"Add":" (call $PutBin BEG)"},{"Add":" (let (P (circ X) Z X)"},{"Add":" (loop"},{"Add":" (binPrint (car X))"},{"Add":" (? (nil? (shift X))"},{"Add":" (call $PutBin END) )"},{"Add":" (? (atom X)"},{"Add":" (call $PutBin DOT)"},{"Add":" (binPrint X) )"},{"Add":" (? (== Z X)"},{"Add":" (call $PutBin DOT)"},{"Add":" (call $PutBin END) )"},{"Add":" (when (== P X)"},{"Add":" (call $PutBin DOT)"},{"Add":" (call $PutBin BEG)"},{"Add":" (setq Z P) ) ) ) )"},{"Add":" ((sym? (val (tail X))) # External symbol"},{"Add":" (let Nm (name (& @ -9))"},{"Add":" (when (val $Extn)"},{"Add":" (let N"},{"Add":" (shl"},{"Add":" (& (i64 (- (objFile Nm) @)) (hex \"FFFF\"))"},{"Add":" 24 ) # Mask overflow"},{"Add":" (setq Nm"},{"Add":" (|"},{"Add":" (& Nm (hex \"FFF00FFF00FFFFFF\")) # Mask object ID"},{"Add":" (&"},{"Add":" (| N (shl N 12))"},{"Add":" (hex \"000FF000FF000000\") ) ) ) ) ) # Mask file number"},{"Add":" (tailcall"},{"Add":" (prCnt (+ EXTERN 4) (shr (shl Nm 2) 6)) ) ) ) # Strip status bits"},{"Add":" ((== (name @) ZERO) (call $PutBin NIX))"},{"Add":" (T"},{"Add":" (let"},{"Add":" (Nm @"},{"Add":" Tag"},{"Add":" (if (findSym X Nm (val $Intern))"},{"Add":" (i8 INTERN)"},{"Add":" (i8 TRANSIENT) ) )"},{"Add":" (if (cnt? Nm)"},{"Add":" (prCnt (+ Tag 4) (int Nm))"},{"Add":" (let (Y Nm N 8)"},{"Add":" (while (big? (setq Y (val (big Y))))"},{"Add":" (inc 'N 8) )"},{"Add":" (setq Y (int Y))"},{"Add":" (while Y"},{"Add":" (inc 'N)"},{"Add":" (setq Y (shr Y 8)) )"},{"Add":" (let (P (push 0 Nm) M (- N 63) C 8) # [cnt name]"},{"Add":" (when (ge0 M)"},{"Add":" (setq N 63) )"},{"Add":" (call $PutBin (+ Tag (i8 (shl N 2))))"},{"Add":" (loop"},{"Add":" (loop"},{"Add":" (call $PutBin (symByte P))"},{"Add":" (? (=0 (dec 'N))) )"},{"Add":" (? (lt0 M))"},{"Add":" (? (=0 M) (call $PutBin 0))"},{"Add":" (when (ge0 (setq M (- (setq N M) 255)))"},{"Add":" (setq N 255) )"},{"Add":" (call $PutBin (i8 N)) ) ) ) ) ) ) ) )"},{"Add":""},{"Add":"(de void pr (X)"},{"Add":" (set $PutBin (fun (void i8) _putStdout))"},{"Add":" (tailcall (binPrint X)) )"},{"Add":""},{"Add":"(de void putTell ((i8 . B))"},{"Add":" (let P (val $Ptr)"},{"Add":" (set P B)"},{"Add":" (when (== (set $Ptr (inc P)) (val $End))"},{"Add":" (err 0 0 ($ \"Tell PIPE_BUF\") null) ) ) )"},{"Add":""},{"Add":"(de void prTell (X)"},{"Add":" (set"},{"Add":" $PutBin (fun (void i8) putTell)"},{"Add":" $Extn 0 )"},{"Add":" (tailcall (binPrint X)) )"},{"Add":""},{"Add":"(de void tellBeg ((i8* . P))"},{"Add":" (set"},{"Add":" $TellBuf P"},{"Add":" $End (ofs P (dec (val PipeBufSize)))"},{"Add":" (inc 'P 8) BEG # 8 bytes space (PID and count)"},{"Add":" $Ptr (inc P) ) ) # Begin a list"},{"Add":""},{"Add":"(de void tellEnd ((i32 . Pid))"},{"Add":" (let (P (val $Ptr) Q (val $TellBuf))"},{"Add":" (set P END) # Close list"},{"Add":" (inc 'P)"},{"Add":" (let (D (i32 (- P Q)) N (- D 8)) # Size without PID and count"},{"Add":" (set"},{"Add":" (i32* Q) Pid"},{"Add":" (inc (i32* Q)) N )"},{"Add":" (when (val $Tell)"},{"Add":" (let Fd @"},{"Add":" (unless (wrBytes Fd Q D)"},{"Add":" (close Fd)"},{"Add":" (set $Tell 0) ) ) )"},{"Add":" (let"},{"Add":" (Cld (val $Child) # Iterate children"},{"Add":" (In:) (stack)) # Assume stack is growing downwards"},{"Add":" (> (Out:) (In:))"},{"Add":" (> (In:) (Out:)) )"},{"Add":" ((inFile (In: file)) fd)"},{"Add":" ((outFile (Out: file)) fd) ) ) ) ) )"},{"Add":""},{"Add":"(local) (getIn put1 putOut)"},{"Add":""},{"Add":"(de i32 getIn ()"},{"Add":" (set $Chr"},{"Add":" (cond"},{"Add":" ((val $IoChar)"},{"Add":" (set $IoChar (shr @ 8))"},{"Add":" (i32 (i8 @)) )"},{"Add":" ((nil?"},{"Add":" (let (Iox: (ioxFrame (val $InFrames)) At (save (val $At)))"},{"Add":" (prog2"},{"Add":" (set"},{"Add":" $Chr (Iox: chr)"},{"Add":" (i8** $Get) (Iox: fun)"},{"Add":" $InFrames (Iox: link) )"},{"Add":" (eval (Iox: exe))"},{"Add":" (set"},{"Add":" $InFrames (Iox:)"},{"Add":" $Get (fun (i32) getIn)"},{"Add":" $At At )"},{"Add":" (Iox: chr (val $Chr)) ) ) )"},{"Add":" -1 )"},{"Add":" ((sym? @)"},{"Add":" (let (S @ V (val (tail @)))"},{"Add":" (if"},{"Add":" (or"},{"Add":" (sym? V)"},{"Add":" (not (cnt? (setq V (name V)))) )"},{"Add":" (charErr 0 S)"},{"Add":" (let C (int V)"},{"Add":" (set $IoChar (shr C 8))"},{"Add":" (i32 (i8 C)) ) ) ) )"},{"Add":" (T (symErr 0 @)) ) ) )"},{"Add":""},{"Add":"(de void put1 ((i8* . Iox) (i32 . C) (i32 . D))"},{"Add":" (let"},{"Add":" (Iox: (ioxFrame Iox)"},{"Add":" At (save (val $At))"},{"Add":" At2 (save (val $At2))"},{"Add":" At3 (save (val $At3)) )"},{"Add":" (set"},{"Add":" (i8** $Put) (Iox: fun)"},{"Add":" $OutFrames (Iox: link)"},{"Add":" $At2 (consStr (cnt (i64 C)))"},{"Add":" $At3 (if D (consStr (cnt (i64 @))) $Nil) )"},{"Add":" (eval (Iox: exe))"},{"Add":" (set"},{"Add":" $OutFrames (Iox:)"},{"Add":" $Put (fun (void i8) putOut)"},{"Add":" $At3 At3"},{"Add":" $At2 At2"},{"Add":" $At At ) ) )"},{"Add":""},{"Add":"(de void putOut ((i8 . B))"},{"Add":" (nond"},{"Add":" ((& B (hex \"80\")) # Single byte"},{"Add":" (set $IoChar (i64 B)) )"},{"Add":" ((& B (hex \"40\")) # Following byte"},{"Add":" (set $IoChar"},{"Add":" (|"},{"Add":" (val $IoChar)"},{"Add":" (shl"},{"Add":" (i64 B)"},{"Add":" (set $IoIx (+ (val $IoIx) 8)) ) ) )"},{"Add":" (when (set $IoCnt (dec (val $IoCnt)))"},{"Add":" (ret) ) )"},{"Add":" ((& B (hex \"20\"))"},{"Add":" (set $IoCnt 1 $IoIx 0 $IoChar (i64 B))"},{"Add":" (ret) )"},{"Add":" ((& B (hex \"10\"))"},{"Add":" (set $IoCnt 2 $IoIx 0 $IoChar (i64 B))"},{"Add":" (ret) )"},{"Add":" (NIL"},{"Add":" (set $IoCnt 3 $IoIx 0 $IoChar (i64 B))"},{"Add":" (ret) ) )"},{"Add":" (let (Iox: (ioxFrame (val $OutFrames)) C (i32 (val $IoChar)))"},{"Add":" (when (Iox: chr)"},{"Add":" (put1 (Iox:) @ C) )"},{"Add":" (Iox: chr C) ) )"},{"Add":""},{"Add":"(local) (pushInFile pushOutFile pushErrFile pushCtlFile)"},{"Add":""},{"Add":"(de void pushInFile ((i8* . Io) (i8* . In) (i32 . Pid))"},{"Add":" (let Io: (ioFrame Io)"},{"Add":" (Io: link (val $InFrames))"},{"Add":" (when (val $InFile)"},{"Add":" ((inFile @) chr (val $Chr)) )"},{"Add":" (set $Chr"},{"Add":" ((inFile (Io: file (set $InFile In))) chr) )"},{"Add":" (Io: fun (val (i8** $Get)))"},{"Add":" (Io: pid Pid)"},{"Add":" (set $InFrames (Io:) $Get (fun (i32) _getStdin)) ) )"},{"Add":""},{"Add":"(de void pushOutFile ((i8* . Io) (i8* . Out) (i32 . Pid))"},{"Add":" (let Io: (ioFrame Io)"},{"Add":" (Io: link (val $OutFrames))"},{"Add":" (Io: file (set $OutFile Out))"},{"Add":" (Io: fun (val (i8** $Put)))"},{"Add":" (Io: pid Pid)"},{"Add":" (set $OutFrames (Io:) $Put (fun (void i8) _putStdout)) ) )"},{"Add":""},{"Add":"(de void pushErrFile ((i8* . Ct))"},{"Add":" ((ctFrame Ct) link (val $ErrFrames))"},{"Add":" (set $ErrFrames Ct) )"},{"Add":""},{"Add":"(de void pushCtlFile ((i8* . Ct))"},{"Add":" ((ctFrame Ct) link (val $CtlFrames))"},{"Add":" (set $CtlFrames Ct) )"},{"Add":""},{"Add":"(local) (popInFiles popOutFiles popErrFiles popCtlFiles)"},{"Add":""},{"Add":"(de void popInFiles ()"},{"Add":" (let Io: (ioFrame (val $InFrames))"},{"Add":" (when (Io: file)"},{"Add":" (let In: (inFile @)"},{"Add":" (when (ge0 (In: fd))"},{"Add":" (ifn (Io: pid)"},{"Add":" (In: chr (val $Chr))"},{"Add":" (close (In: fd))"},{"Add":" (closeInFile (In: fd))"},{"Add":" (when (> (Io: pid) 1)"},{"Add":" (waitFile @) ) ) ) ) )"},{"Add":" (set (i8** $Get) (Io: fun))"},{"Add":" (setq Io: (ioFrame (set $InFrames (Io: link))))"},{"Add":" (set $Chr"},{"Add":" (if (Io: file)"},{"Add":" ((inFile (set $InFile @)) chr)"},{"Add":" ((ioxFrame (Io:)) chr) ) ) ) )"},{"Add":""},{"Add":"(de void popOutFiles ()"},{"Add":" (let Io: (ioFrame (val $OutFrames))"},{"Add":" (cond"},{"Add":" ((Io: file)"},{"Add":" (let Out: (outFile @)"},{"Add":" (flush (val $OutFile))"},{"Add":" (when (ge0 (Out: fd))"},{"Add":" (when (Io: pid)"},{"Add":" (close (Out: fd))"},{"Add":" (closeOutFile (Out: fd))"},{"Add":" (when (> (Io: pid) 1)"},{"Add":" (waitFile @) ) ) ) ) )"},{"Add":" (((ioxFrame (Io:)) chr)"},{"Add":" (put1 (Io:) @ 0) ) )"},{"Add":" (set (i8** $Put) (Io: fun))"},{"Add":" (setq Io: (ioFrame (set $OutFrames (Io: link))))"},{"Add":" (when (Io: file)"},{"Add":" (set $OutFile @) ) ) )"},{"Add":""},{"Add":"(de void popErrFiles ()"},{"Add":" (let Ct: (ctFrame (val $ErrFrames))"},{"Add":" (dup2 (Ct: fd) 2) # Restore stderr"},{"Add":" (close (Ct: fd))"},{"Add":" (set $ErrFrames (Ct: link)) ) )"},{"Add":""},{"Add":"(de void popCtlFiles ()"},{"Add":" (let Ct: (ctFrame (val $CtlFrames))"},{"Add":" (if (ge0 (Ct: fd))"},{"Add":" (close @)"},{"Add":" (unLock (currFd 0) 0 0) )"},{"Add":" (set $CtlFrames (Ct: link)) ) )"},{"Add":""},{"Add":"# (path 'any) -> sym"},{"Add":"(de _Path (Exe)"},{"Add":" (let Nm (xName Exe (evSym (cdr Exe)))"},{"Add":" (mkStr (pathString Nm (b8 (pathSize Nm)))) ) )"},{"Add":""},{"Add":"(local) (pollfd hasData inReady getBlk waitFd)"},{"Add":""},{"Add":"(de i64* pollfd ((i32 . Fd))"},{"Add":" (let I (val $Nfds)"},{"Add":" (when (>= Fd I)"},{"Add":" (let P"},{"Add":" (set $Poll"},{"Add":" (i64*"},{"Add":" (alloc"},{"Add":" (i8* (val $Poll))"},{"Add":" (* 8 #{pollfd}# (i64 (set $Nfds (+ Fd 1)))) ) ) )"},{"Add":" (loop"},{"Add":" (pollIgn (ofs P I))"},{"Add":" (? (== I Fd))"},{"Add":" (inc 'I) ) ) ) )"},{"Add":" (ofs (val $Poll) Fd) )"},{"Add":""},{"Add":"(de i1 hasData ((i32 . Fd))"},{"Add":" (and"},{"Add":" (> (val $InFDs) Fd)"},{"Add":" (val (ofs (val $InFiles) Fd))"},{"Add":" (let In: (inFile @)"},{"Add":" (and"},{"Add":" (ge0 (In: fd))"},{"Add":" (> (In: cnt) (In: ix)) ) ) ) )"},{"Add":""},{"Add":"(de i1 inReady ((i32 . Fd) (i1 . Flg))"},{"Add":" (let P (pollfd Fd)"},{"Add":" (cond"},{"Add":" ((>= Fd (val $InFDs))"},{"Add":" (readyIn P) )"},{"Add":" ((=0 (val (ofs (val $InFiles) Fd)))"},{"Add":" (readyIn P) )"},{"Add":" (T"},{"Add":" (let In: (inFile @)"},{"Add":" (if (lt0 (In: fd))"},{"Add":" (readyIn P)"},{"Add":" (or"},{"Add":" (> (In: cnt) (In: ix))"},{"Add":" (and"},{"Add":" (readyIn P)"},{"Add":" (or Flg (ge0 (slowNb (In:)))) ) ) ) ) ) ) ) )"},{"Add":"(de i32 getBlk ()"},{"Add":" (let P (val $BlkPtr)"},{"Add":" (set $BlkPtr (inc P))"},{"Add":" (i32 (val P)) ) )"},{"Add":""},{"Add":"(de i64 waitFd (Exe (i32 . Fd) (i64 . Ms))"},{"Add":" (let"},{"Add":" (Run (save (val $Run))"},{"Add":" At (save (val $At))"},{"Add":" Buf (b8 (val PipeBufSize))"},{"Add":" Pn (b32 2)"},{"Add":" Tim (getMsec) )"},{"Add":" (stkChk Exe)"},{"Add":" (loop"},{"Add":" (let Dly Ms"},{"Add":" (when (ge0 Fd)"},{"Add":" (if (hasData Fd)"},{"Add":" (setq Dly 0)"},{"Add":" (pollIn Fd (pollfd Fd)) ) )"},{"Add":" (let R Run # '*Run' elements"},{"Add":" (while (pair R)"},{"Add":" (let X (++ R)"},{"Add":" (cond"},{"Add":" ((sign? (car X))"},{"Add":" (let N (int (cadr X))"},{"Add":" (when (> Dly N)"},{"Add":" (setq Dly N) ) ) )"},{"Add":" ((<> (i32 (int @)) Fd)"},{"Add":" (let N @"},{"Add":" (if (hasData N)"},{"Add":" (setq Dly 0)"},{"Add":" (pollIn N (pollfd N)) ) ) ) ) ) ) )"},{"Add":" (when (and (val $Hear) (<> @ Fd)) # RPC listener"},{"Add":" (let N @"},{"Add":" (if (hasData N)"},{"Add":" (setq Dly 0)"},{"Add":" (pollIn N (pollfd N)) ) ) )"},{"Add":" (when (val $Spkr) # RPC speaker"},{"Add":" (pollIn @ (pollfd @))"},{"Add":" (let"},{"Add":" (Cld (val $Child) # Iterate children"},{"Add":" (val 2 Pn) (val PipeBufSize))"},{"Add":" (sizeErr Exe) )"},{"Add":" ((rdBytes (Cld: hear) Buf @)"},{"Add":" (ifn (=0 (val Pn))"},{"Add":" (let"},{"Add":" (Cld2 (val $Child) # Iterate children"},{"Add":" Cld Cld2)"},{"Add":" (Cld2: pid)"},{"Add":" (or (lt0 (val Pn)) (== @ (Cld2: pid))) )"},{"Add":" (wrChild Cld2 Buf (val 2 Pn)) ) )"},{"Add":" (setq Cld2 (ofs Cld2 (child T))) ) )"},{"Add":" (set"},{"Add":" $BlkPtr Buf"},{"Add":" $GetBin (fun (i32) getBlk)"},{"Add":" $Extn 0 )"},{"Add":" (let E (binRead)"},{"Add":" (save E (evList E)) ) ) )"},{"Add":" (T"},{"Add":" (clsChild Cld)"},{"Add":" (goto 1) ) ) ) ) )"},{"Add":" (when (readyOut (pollfd (Cld: tell)))"},{"Add":" (let"},{"Add":" (P (ofs (Cld: buf) (Cld: ofs)) # Buffer pointer plus offset"},{"Add":" N (val (i32* P)) ) # Size"},{"Add":" (ifn (wrBytes (Cld: tell) (ofs P 4) N)"},{"Add":" (clsChild Cld)"},{"Add":" (setq N (Cld: ofs (+ (Cld: ofs) N 4))) # Add size plus size of size to buffer offset"},{"Add":" (when (>= (* 2 N) (Cld: cnt))"},{"Add":" (when (Cld: cnt (- (Cld: cnt) N))"},{"Add":" (memcpy"},{"Add":" (Cld: buf)"},{"Add":" (ofs (Cld: buf) N)"},{"Add":" (i64 (Cld: cnt)) )"},{"Add":" (Cld: buf (alloc (Cld: buf) (i64 (Cld: cnt)))) )"},{"Add":" (Cld: ofs 0) ) ) ) ) ) )"},{"Add":" (: 1"},{"Add":" (setq Cld (ofs Cld (child T))) ) ) )"},{"Add":" (when"},{"Add":" (and"},{"Add":" (=0 (val $Talking))"},{"Add":" (readyIn (pollfd (val $Spkr)))"},{"Add":" (gt0 (rdBytesNb (val $Spkr) (i8* Pn) 4)) ) # Slot"},{"Add":" (let Cld (ofs (val $Child) (* (val Pn) (child T)))"},{"Add":" (when ((child Cld) pid)"},{"Add":" (set $Talking @)"},{"Add":" (wrChild Cld $TBuf 2) ) ) )"},{"Add":" (set $Protect (dec (val $Protect))) )"},{"Add":" (let N (val $Hear) # RPC listener"},{"Add":" (when (and N (<> N Fd) (inReady N NO))"},{"Add":" (let In (val $InFile)"},{"Add":" (set"},{"Add":" $InFile (val (ofs (val $InFiles) (val $Hear)))"},{"Add":" $GetBin (fun (i32) getBinary)"},{"Add":" $Extn 0 )"},{"Add":" (let E (binRead)"},{"Add":" (cond"},{"Add":" ((=0 E)"},{"Add":" (close N)"},{"Add":" (closeInFile N)"},{"Add":" (closeOutFile N)"},{"Add":" (set $Hear 0) )"},{"Add":" ((t? E) (set $Sync YES))"},{"Add":" (T (save E (evList E))) ) )"},{"Add":" (set $InFile In) ) ) )"},{"Add":" (let R Run"},{"Add":" (while (pair R)"},{"Add":" (let X (++ R)"},{"Add":" (cond"},{"Add":" ((sign? (car X))"},{"Add":" (let Y (cdr X)"},{"Add":" (if (gt0 (- (int (car Y)) Dif)) # Not yet timed out"},{"Add":" (set Y (sign (cnt @))) # Store short negative number"},{"Add":" (let V (car X) # Timeout value"},{"Add":" (set Y (pos V) $At V)"},{"Add":" (exec (cdr Y)) ) ) ) ) # Run body"},{"Add":" ((<> (i32 (int @)) Fd)"},{"Add":" (when (inReady @ NO)"},{"Add":" (set $At (car X)) # File descriptor"},{"Add":" (exec (cdr X)) ) ) ) ) ) ) # Run body"},{"Add":" (and"},{"Add":" (gt0 Ms)"},{"Add":" (<> Ms 292MY)"},{"Add":" (lt0 (dec 'Ms Dif))"},{"Add":" (setq Ms 0) )"},{"Add":" (setq Tim Now) )"},{"Add":" (sigChk Exe)"},{"Add":" (? (or (=0 Ms) (lt0 Fd) (inReady Fd YES)))"},{"Add":" (setq Run (safe (val $Run))) )"},{"Add":" (set $At At)"},{"Add":" Ms ) )"},{"Add":""},{"Add":"# (wait 'cnt|NIL . prg) -> any"},{"Add":"# (wait 'cnt|NIL T 'fd) -> fd|NIL"},{"Add":"(de _Wait (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" N"},{"Add":" (if (nil? (eval (++ X)))"},{"Add":" 292MY"},{"Add":" (xCnt Exe @) ) )"},{"Add":" (if (t? (car X))"},{"Add":" (let Fd (evCnt Exe (cdr X)) # Wait for file descriptor"},{"Add":" (if (waitFd Exe (i32 Fd) N)"},{"Add":" (cnt Fd)"},{"Add":" $Nil ) )"},{"Add":" (loop"},{"Add":" (? (not (nil? (run X))) @) # 'prg'"},{"Add":" (? (=0 (waitFd Exe -1 N)) (run X)) # Timeout"},{"Add":" (setq N @) ) ) ) )"},{"Add":""},{"Add":"# (sync) -> flg"},{"Add":"(de _Sync (Exe)"},{"Add":" (cond"},{"Add":" ((or (=0 (val $Mic)) (=0 (val $Hear)))"},{"Add":" $Nil )"},{"Add":" ((val $Sync) $T)"},{"Add":" (T"},{"Add":" (let (Mic (val $Mic) P (i8* $Slot) Cnt 4)"},{"Add":" (loop"},{"Add":" (let N (write Mic P Cnt)"},{"Add":" (cond"},{"Add":" ((ge0 N)"},{"Add":" (? (=0 (dec 'Cnt N)))"},{"Add":" (setq P (ofs P N)) )"},{"Add":" ((== (gErrno) EINTR) (sigChk Exe))"},{"Add":" (T (writeErr ($ \"sync write: %s\"))) ) ) ) )"},{"Add":" (set $Sync NO)"},{"Add":" (loop"},{"Add":" (waitFd Exe -1 292MY)"},{"Add":" (? (val $Sync)) )"},{"Add":" $T ) ) )"},{"Add":""},{"Add":"# (hear 'cnt) -> cnt"},{"Add":"(de _Hear (Exe)"},{"Add":" (let"},{"Add":" (X (eval (cadr Exe))"},{"Add":" Fd (i32 (xCnt Exe X)) )"},{"Add":" (when"},{"Add":" (or"},{"Add":" (lt0 Fd)"},{"Add":" (>= Fd (val $InFDs))"},{"Add":" (=0 (val (ofs (val $InFiles) Fd)))"},{"Add":" (lt0 ((inFile @) fd)) )"},{"Add":" (badFd Exe X) )"},{"Add":" (when (val $Hear)"},{"Add":" (close @)"},{"Add":" (closeInFile @)"},{"Add":" (closeOutFile @) )"},{"Add":" (set $Hear Fd)"},{"Add":" X ) )"},{"Add":""},{"Add":"# (tell ['cnt] 'sym ['any ..]) -> any"},{"Add":"(de _Tell (Exe)"},{"Add":" (cond"},{"Add":" ((and (=0 (val $Tell)) (=0 (val $Children)))"},{"Add":" $Nil )"},{"Add":" ((atom (cdr Exe))"},{"Add":" (unsync)"},{"Add":" $Nil )"},{"Add":" (T"},{"Add":" (let (X @ Y (eval (car X)) Pid (i32 -1))"},{"Add":" (when (cnt? Y)"},{"Add":" (setq"},{"Add":" Pid (i32 (int @))"},{"Add":" Y (eval (car (shift X))) ) )"},{"Add":" (let (TellBuf (val $TellBuf) Ptr (val $Ptr) End (val $End))"},{"Add":" (tellBeg (b8 (val PipeBufSize)))"},{"Add":" (stkChk Exe)"},{"Add":" (loop"},{"Add":" (prTell Y)"},{"Add":" (? (atom (shift X)))"},{"Add":" (setq Y (eval (car X))) )"},{"Add":" (tellEnd Pid)"},{"Add":" (set $TellBuf TellBuf $Ptr Ptr $End End)"},{"Add":" Y ) ) ) ) )"},{"Add":""},{"Add":"# (poll 'cnt) -> cnt | NIL"},{"Add":"(de _Poll (Exe)"},{"Add":" (let"},{"Add":" (C (eval (cadr Exe))"},{"Add":" Fd (i32 (xCnt Exe C)) )"},{"Add":" (when (or (lt0 Fd) (>= Fd (val $InFDs)))"},{"Add":" (badFd Exe C) )"},{"Add":" (let In: (inFile (val (ofs (val $InFiles) Fd)))"},{"Add":" (ifn (and (In:) (ge0 (In: fd)))"},{"Add":" $Nil"},{"Add":" (let Poll (b64 1)"},{"Add":" (pollIn Fd Poll)"},{"Add":" (loop"},{"Add":" (? (> (In: cnt) (In: ix)) C)"},{"Add":" (while (lt0 (gPoll Poll 1 0))"},{"Add":" (unless (== (gErrno) EINTR)"},{"Add":" (selectErr Exe) ) )"},{"Add":" (? (not (readyIn Poll)) $Nil)"},{"Add":" (? (ge0 (slowNb (In:))) C) ) ) ) ) ) )"},{"Add":""},{"Add":"(local) (rdOpen wrOpen erOpen ctOpen)"},{"Add":""},{"Add":"(de void rdOpen (Exe X (i8* . Io))"},{"Add":" (cond"},{"Add":" ((nil? X)"},{"Add":" (pushInFile Io (val (val $InFiles)) 0) ) # Stdin"},{"Add":" ((num? X)"},{"Add":" (let N (i32 (int X))"},{"Add":" (pushInFile Io"},{"Add":" (cond"},{"Add":" ((sign? X)"},{"Add":" (let In (val $InFrames)"},{"Add":" (loop"},{"Add":" (unless (setq In ((ioFrame In) link))"},{"Add":" (badFd Exe X) )"},{"Add":" (? (=0 (dec 'N))) )"},{"Add":" ((ioFrame In) file) ) )"},{"Add":" ((>= N (val $InFDs))"},{"Add":" (badFd Exe X) )"},{"Add":" ((=0 (val (ofs (val $InFiles) N)))"},{"Add":" (badFd Exe X) )"},{"Add":" (T @) )"},{"Add":" 0 ) ) )"},{"Add":" ((sym? X)"},{"Add":" (let"},{"Add":" (Nm (xName Exe X)"},{"Add":" S (pathString Nm (b8 (pathSize Nm)))"},{"Add":" Fd T )"},{"Add":" (while (lt0 (setq Fd (openRd S)))"},{"Add":" (unless (== (gErrno) EINTR)"},{"Add":" (openErr Exe X) )"},{"Add":" (sigChk Exe) )"},{"Add":" (closeOnExec Exe Fd)"},{"Add":" (pushInFile Io (initInFile Fd (strdup S)) 1) ) )"},{"Add":" (T # Pipe"},{"Add":" (let"},{"Add":" (Pfd (b32 2)"},{"Add":" Av (b8* (inc (length X)))"},{"Add":" Cmd (xName Exe (xSym (car X))) )"},{"Add":" (when (lt0 (pipe Pfd))"},{"Add":" (pipeErr Exe) )"},{"Add":" (set Av (pathString Cmd (b8 (pathSize Cmd))))"},{"Add":" (let A Av"},{"Add":" (while (pair (shift X))"},{"Add":" (let Nm (xName Exe (xSym (car X)))"},{"Add":" (set (inc 'A)"},{"Add":" (bufString Nm (b8 (bufSize Nm))) ) ) )"},{"Add":" (set (inc 'A) null) )"},{"Add":" (cond"},{"Add":" ((lt0 (fork)) (forkErr Exe))"},{"Add":" ((=0 @) # In child"},{"Add":" (setpgid 0 0) # Set process group"},{"Add":" (close (val Pfd)) # Close read pipe"},{"Add":" (unless (== (val 2 Pfd) 1)"},{"Add":" (dup2 @ 1) # Dup write pipe to STDOUT_FILENO"},{"Add":" (close @) )"},{"Add":" (signal (val SIGPIPE Sig) (val SigDfl)) # Default SIGPIPE"},{"Add":" (execvp (val Av) Av) # Execute program"},{"Add":" (execErr (val Av)) ) ) # Error if failed"},{"Add":" # In parent"},{"Add":" (let (Pid @ Fd (val Pfd))"},{"Add":" (setpgid Pid 0) # Set process group"},{"Add":" (close (val 2 Pfd)) # Close write pipe"},{"Add":" (closeOnExec Exe Fd)"},{"Add":" (pushInFile Io (initInFile Fd null) Pid) ) ) ) ) )"},{"Add":""},{"Add":"(de void wrOpen (Exe X (i8* . Io))"},{"Add":" (cond"},{"Add":" ((nil? X)"},{"Add":" (pushOutFile Io (val 2 (val $OutFiles)) 0) ) # Stdout"},{"Add":" ((num? X)"},{"Add":" (let N (i32 (int X))"},{"Add":" (pushOutFile Io"},{"Add":" (cond"},{"Add":" ((sign? X)"},{"Add":" (let Out (val $OutFrames)"},{"Add":" (loop"},{"Add":" (unless (setq Out ((ioFrame Out) link))"},{"Add":" (badFd Exe X) )"},{"Add":" (? (=0 (dec 'N))) )"},{"Add":" ((ioFrame Out) file) ) )"},{"Add":" ((>= N (val $OutFDs))"},{"Add":" (badFd Exe X) )"},{"Add":" ((=0 (val (ofs (val $OutFiles) N)))"},{"Add":" (badFd Exe X) )"},{"Add":" (T @) )"},{"Add":" 0 ) ) )"},{"Add":" ((sym? X)"},{"Add":" (let"},{"Add":" (Nm (xName Exe X)"},{"Add":" S (pathString Nm (b8 (pathSize Nm)))"},{"Add":" Flg (== (val S) (char \"+\"))"},{"Add":" Fd T )"},{"Add":" (when Flg"},{"Add":" (setq S (ofs S 1)) )"},{"Add":" (while (lt0 (setq Fd (if Flg (openRdWrAppend S) (openWr S))))"},{"Add":" (unless (== (gErrno) EINTR)"},{"Add":" (openErr Exe X) )"},{"Add":" (sigChk Exe) )"},{"Add":" (closeOnExec Exe Fd)"},{"Add":" (pushOutFile Io (initOutFile Fd) 1) ) )"},{"Add":" (T # Pipe"},{"Add":" (let"},{"Add":" (Pfd (b32 2)"},{"Add":" Av (b8* (inc (length X)))"},{"Add":" Cmd (xName Exe (xSym (car X))) )"},{"Add":" (when (lt0 (pipe Pfd))"},{"Add":" (pipeErr Exe) )"},{"Add":" (set Av (pathString Cmd (b8 (pathSize Cmd))))"},{"Add":" (let A Av"},{"Add":" (while (pair (shift X))"},{"Add":" (let Nm (xName Exe (xSym (car X)))"},{"Add":" (set (inc 'A)"},{"Add":" (bufString Nm (b8 (bufSize Nm))) ) ) )"},{"Add":" (set (inc 'A) null) )"},{"Add":" (cond"},{"Add":" ((lt0 (fork)) (forkErr Exe))"},{"Add":" ((=0 @) # In child"},{"Add":" (setpgid 0 0) # Set process group"},{"Add":" (close (val 2 Pfd)) # Close write pipe"},{"Add":" (when (val Pfd) # STDIN_FILENO"},{"Add":" (dup2 @ 0) # Dup read pipe to STDIN_FILENO"},{"Add":" (close @) )"},{"Add":" (execvp (val Av) Av) # Execute program"},{"Add":" (execErr (val Av)) ) ) # Error if failed"},{"Add":" # In parent"},{"Add":" (let (Pid @ Fd (val 2 Pfd))"},{"Add":" (setpgid Pid 0) # Set process group"},{"Add":" (close (val Pfd)) # Close read pipe"},{"Add":" (closeOnExec Exe Fd)"},{"Add":" (pushOutFile Io (initOutFile Fd) Pid) ) ) ) ) )"},{"Add":""},{"Add":"(de void erOpen (Exe X (i8* . Ct))"},{"Add":" (let Ct: (ctFrame Ct)"},{"Add":" (Ct: fd (dup 2)) # Stderr"},{"Add":" (let Fd"},{"Add":" (if (nil? (needSymb Exe X))"},{"Add":" (dup ((outFile (val $OutFile)) fd))"},{"Add":" (let"},{"Add":" (Nm (xName Exe X)"},{"Add":" S (pathString Nm (b8 (pathSize Nm)))"},{"Add":" Flg (== (val S) (char \"+\")) )"},{"Add":" (when Flg"},{"Add":" (setq S (ofs S 1)) )"},{"Add":" (while (lt0 (if Flg (openWrAppend S) (openWr S)))"},{"Add":" (unless (== (gErrno) EINTR)"},{"Add":" (openErr Exe X) )"},{"Add":" (sigChk Exe) )"},{"Add":" (closeOnExec Exe @)"},{"Add":" @ ) )"},{"Add":" (dup2 Fd 2)"},{"Add":" (close Fd) )"},{"Add":" (pushErrFile Ct) ) )"},{"Add":""},{"Add":"(de void ctOpen (Exe X (i8* . Ct))"},{"Add":" (let Ct: (ctFrame Ct)"},{"Add":" (cond"},{"Add":" ((nil? (needSymb Exe X))"},{"Add":" (Ct: fd -1)"},{"Add":" (rdLockWait (currFd Exe) 0) )"},{"Add":" ((t? X)"},{"Add":" (Ct: fd -1)"},{"Add":" (wrLockWait (currFd Exe) 0) )"},{"Add":" (T"},{"Add":" (let"},{"Add":" (Nm (xName Exe X)"},{"Add":" S (pathString Nm (b8 (pathSize Nm)))"},{"Add":" Flg (== (val S) (char \"+\")) )"},{"Add":" (when Flg"},{"Add":" (setq S (ofs S 1)) )"},{"Add":" (while (lt0 (openRdWrCreate S))"},{"Add":" (unless (== (gErrno) EINTR)"},{"Add":" (openErr Exe X) )"},{"Add":" (sigChk Exe) )"},{"Add":" (let Fd (Ct: fd @)"},{"Add":" (if Flg"},{"Add":" (rdLockWait Fd 0)"},{"Add":" (wrLockWait Fd 0) )"},{"Add":" (closeOnExec Exe Fd) ) ) ) )"},{"Add":" (pushCtlFile Ct) ) )"},{"Add":""},{"Add":"(local) (read0 getChar skipc comment skip testEsc anonymous rdAtom rdl rdList)"},{"Add":""},{"Add":"(de read0 (i1))"},{"Add":""},{"Add":"(de i32 rlGetc ((i8* . F))"},{"Add":" (if (waitFd 0 0 292MY)"},{"Add":" (stdinByte)"},{"Add":" -1 ) )"},{"Add":""},{"Add":"(de i32 rlAvail ()"},{"Add":" (i32 (waitFd 0 0 60)) )"},{"Add":""},{"Add":"(de i32 _getStdin ()"},{"Add":" (let In: (inFile (val $InFile))"},{"Add":" (set $Chr"},{"Add":" (cond"},{"Add":" ((lt0 (In: fd)) -1) # EOF"},{"Add":" ((or (In: fd) (not (In: tty))) # Not stdin"},{"Add":" (if"},{"Add":" (and"},{"Add":" (== (In: ix) (In: cnt))"},{"Add":" (or (lt0 (In: ix)) (=0 (slow (In:)))) )"},{"Add":" -1"},{"Add":" (let I (In: ix)"},{"Add":" (prog1"},{"Add":" (i32 (val (ofs (In: (buf)) I)))"},{"Add":" (when (== @ (char \"\\n\"))"},{"Add":" (In: line (+ (In: line) 1)) )"},{"Add":" (In: ix (+ I 1)) ) ) ) )"},{"Add":" (T"},{"Add":" (let P (val $LinePtr)"},{"Add":" (unless P"},{"Add":" (when (val $LineBuf)"},{"Add":" (free @)"},{"Add":" (set $LineBuf null) )"},{"Add":" (flushAll)"},{"Add":" (unless (setq P (set $LineBuf (gReadline (val $LinePrmt))))"},{"Add":" (wrnl)"},{"Add":" (when (or (val $Bind) (== (val $LinePrmt) (val $ContPrmt)))"},{"Add":" (err 0 0 $Empty null) ) # quit"},{"Add":" (bye 0) )"},{"Add":" (set $LinePrmt (val $ContPrmt))"},{"Add":" (unless"},{"Add":" (or"},{"Add":" (=0 (val P))"},{"Add":" (== @ 32)"},{"Add":" (and"},{"Add":" (== @ (char \".\"))"},{"Add":" (=0 (val (inc P))) )"},{"Add":" (and (currentLine) (=0 (strcmp @ P))) )"},{"Add":" (add_history P) ) )"},{"Add":" (nond"},{"Add":" ((val P)"},{"Add":" (set $LinePtr null)"},{"Add":" (char \"\\n\") )"},{"Add":" (NIL"},{"Add":" (set $LinePtr (inc P))"},{"Add":" (i32 @) ) ) ) ) ) ) ) )"},{"Add":""},{"Add":"(de i32 getChar ((i32 . C))"},{"Add":" (cond"},{"Add":" ((>= 127 C) C) # Single byte"},{"Add":" ((== C (hex \"FF\")) (i32 TOP)) # Infinite"},{"Add":" (T"},{"Add":" (let B"},{"Add":" (ifn (& C (hex \"20\")) # Two bytes"},{"Add":" (& C (hex \"1F\")) # First byte 110xxxxx"},{"Add":" (let A"},{"Add":" (ifn (& C (hex \"10\")) # Three bytes"},{"Add":" (& C (hex \"0F\")) # First byte 1110xxxx"},{"Add":" (| # Four bytes"},{"Add":" (shl (& C 7) 6) # First byte 11110xxx"},{"Add":" (& (call $Get) (hex \"3F\")) ) ) # 10xxxxxx"},{"Add":" (| (shl A 6) (& (call $Get) (hex \"3F\"))) ) )"},{"Add":" (| (shl B 6) (& (call $Get) (hex \"3F\"))) ) ) ) )"},{"Add":""},{"Add":"# Skip White Space and Comments"},{"Add":"(de i32 skipc ((i32 . C))"},{"Add":" (let Chr (val $Chr)"},{"Add":" (loop"},{"Add":" (while (>= 32 Chr) # White space"},{"Add":" (when (lt0 (setq Chr (call $Get)))"},{"Add":" (ret Chr) ) )"},{"Add":" (unless (== Chr C)"},{"Add":" (ret Chr) )"},{"Add":" (until (== (setq Chr (call $Get)) (char \"\\n\"))"},{"Add":" (when (lt0 Chr)"},{"Add":" (ret Chr) ) )"},{"Add":" (setq Chr (call $Get)) ) ) )"},{"Add":""},{"Add":"(de void comment ()"},{"Add":" (let Chr (call $Get)"},{"Add":" (if (== Chr (char \"{\"))"},{"Add":" (let N 0"},{"Add":" (loop"},{"Add":" (? (lt0 (setq Chr (call $Get))))"},{"Add":" (if"},{"Add":" (and"},{"Add":" (== Chr (char \"#\"))"},{"Add":" (== (setq Chr (call $Get)) (char \"{\")) )"},{"Add":" (inc 'N)"},{"Add":" (?"},{"Add":" (and"},{"Add":" (== Chr (char \"}\"))"},{"Add":" (== (setq Chr (call $Get)) (char \"#\"))"},{"Add":" (lt0 (dec 'N)) ) ) ) ) )"},{"Add":" (until (== Chr (char \"\\n\"))"},{"Add":" (? (lt0 Chr))"},{"Add":" (setq Chr (call $Get)) ) )"},{"Add":" (call $Get) ) )"},{"Add":""},{"Add":"(de i32 skip ()"},{"Add":" (loop"},{"Add":" (let Chr (val $Chr)"},{"Add":" (when (lt0 Chr)"},{"Add":" (ret Chr) )"},{"Add":" (while (>= (char \" \") Chr)"},{"Add":" (when (lt0 (setq Chr (call $Get)))"},{"Add":" (ret Chr) ) )"},{"Add":" (unless (== Chr (char \"#\"))"},{"Add":" (ret Chr) )"},{"Add":" (comment) ) ) )"},{"Add":""},{"Add":"(de i1 testEsc ((i32 . Chr))"},{"Add":" (loop"},{"Add":" (? (lt0 Chr) NO)"},{"Add":" (? (== Chr (char \"\\^\")) # Control character"},{"Add":" (when (== (setq Chr (call $Get)) (char \"@\"))"},{"Add":" (badInput) )"},{"Add":" (set $Chr"},{"Add":" (if (== Chr (char \"?\"))"},{"Add":" 127"},{"Add":" (& Chr (hex \"1F\")) ) )"},{"Add":" YES )"},{"Add":" (? (<> Chr (char \"\\\\\")) # No Backslash"},{"Add":" (set $Chr (getChar Chr))"},{"Add":" YES )"},{"Add":" (? (<> (char \"\\n\") (setq Chr (call $Get))) # Backslash: Skip '\\'"},{"Add":" (case Chr"},{"Add":" ((char \"b\") (set $Chr (char \"\\b\")))"},{"Add":" ((char \"e\") (set $Chr (char \"\\e\")))"},{"Add":" ((char \"n\") (set $Chr (char \"\\n\")))"},{"Add":" ((char \"r\") (set $Chr (char \"\\r\")))"},{"Add":" ((char \"t\") (set $Chr (char \"\\t\")))"},{"Add":" (T"},{"Add":" (when (and (>= Chr (char \"0\")) (>= (char \"9\") Chr))"},{"Add":" (dec 'Chr (char \"0\"))"},{"Add":" (until (== (call $Get) (char \"\\\\\"))"},{"Add":" (unless"},{"Add":" (and"},{"Add":" (>= (val $Chr) (char \"0\"))"},{"Add":" (>= (char \"9\") (val $Chr)) )"},{"Add":" (badInput) )"},{"Add":" (setq Chr"},{"Add":" (+ (* Chr 10) (- (val $Chr) (char \"0\"))) ) ) )"},{"Add":" (set $Chr Chr) ) )"},{"Add":" YES )"},{"Add":" (loop"},{"Add":" (setq Chr (call $Get))"},{"Add":" (?"},{"Add":" (and"},{"Add":" (<> Chr (char \" \"))"},{"Add":" (<> Chr (char \"\\t\")) ) ) ) ) )"},{"Add":""},{"Add":"(de anonymous (Nm)"},{"Add":" (let P (push 0 Nm) # [cnt name]"},{"Add":" (unless (== (symByte P) (char \"$\")) # Starting with '$'"},{"Add":" (ret 0) )"},{"Add":" (let B (- (symByte P) (char \"0\"))"},{"Add":" (unless (>= 7 B) # Octal Digit"},{"Add":" (ret 0) )"},{"Add":" (let N (i64 B)"},{"Add":" (loop"},{"Add":" (? (=0 (symByte P))"},{"Add":" (sym (shl N 4)) ) # Make symbol pointer"},{"Add":" (? (> (- @ (char \"0\")) 7) 0)"},{"Add":" (setq N (| (i64 @) (shl N 3))) ) ) ) ) )"},{"Add":""},{"Add":"(de rdAtom ((i32 . Chr))"},{"Add":" (let"},{"Add":" (Int (save (val $Intern)) # Current symbol namespaces"},{"Add":" P (push 4 NIL ZERO NIL) # [cnt last name link]"},{"Add":" C (val $Chr) )"},{"Add":" (when"},{"Add":" (and"},{"Add":" (== Chr (char \"%\"))"},{"Add":" (== C (char \"~\")) )"},{"Add":" (when (nil? (cdr Int))"},{"Add":" (symNspErr 0 $rem) )"},{"Add":" (set $Intern @)"},{"Add":" (setq Chr (call $Get) C (call $Get)) )"},{"Add":" (link (ofs P 2))"},{"Add":" (byteSym (i8 Chr) P) # Pack first byte"},{"Add":" (setq Chr C)"},{"Add":" (while (ge0 Chr)"},{"Add":" (if (== Chr (char \"~\")) # Namespace"},{"Add":" (let S (requestSym (val 3 P)) # Find or create symbol"},{"Add":" (needNsp 0 S)"},{"Add":" (set (set $Intern (any $Cell)) S) # Switch symbol namespace"},{"Add":" (set P 4 3 P ZERO) ) # Build new name"},{"Add":" (? (strchr $Delim Chr))"},{"Add":" (when (== Chr (char \"\\\\\"))"},{"Add":" (setq Chr (call $Get)) )"},{"Add":" (byteSym (i8 Chr) P) )"},{"Add":" (setq Chr (call $Get)) )"},{"Add":" (prog1"},{"Add":" (let (Nm (val 3 P) L (val $Intern))"},{"Add":" (cond"},{"Add":" ((== Nm ZERO) (badInput))"},{"Add":" ((== L (any $Cell))"},{"Add":" (intern 0 $Nil Nm (cdar (car @)) $Nil NO) )"},{"Add":" ((symToNum Nm (int (val $Scl)) (char \".\") 0) @)"},{"Add":" ((anonymous Nm) @)"},{"Add":" ((and (== (car L) $priv) (nil? (cdr L)))"},{"Add":" (intern (consSym Nm $Nil) 0 Nm $PrivT $Nil YES) )"},{"Add":" (T (requestSym Nm)) ) )"},{"Add":" (set $Intern Int) ) ) )"},{"Add":""},{"Add":"(de void rdl (R P)"},{"Add":" (loop"},{"Add":" (? (== (skip) (char \")\"))"},{"Add":" (call $Get) )"},{"Add":" (? (== @ (char \"]\")))"},{"Add":" (cond"},{"Add":" ((== @ (char \".\"))"},{"Add":" (? (strchr $Delim (call $Get))"},{"Add":" (setq P"},{"Add":" (set 2 P"},{"Add":" (if"},{"Add":" (or"},{"Add":" (== (skip) (char \")\"))"},{"Add":" (== @ (char \"]\")) )"},{"Add":" R"},{"Add":" (read0 NO) ) ) )"},{"Add":" (cond"},{"Add":" ((== (skip) (char \")\"))"},{"Add":" (call $Get) )"},{"Add":" ((<> (val $Chr) (char \"]\"))"},{"Add":" (err 0 P ($ \"Bad dotted pair\") null) ) ) )"},{"Add":" (setq P"},{"Add":" (set 2 P (cons (rdAtom (char \".\")) $Nil)) ) )"},{"Add":" ((== @ (char \"~\"))"},{"Add":" (call $Get)"},{"Add":" (let (X (save (read0 NO)) R (eval X))"},{"Add":" (cond"},{"Add":" ((nil? R))"},{"Add":" ((atom R)"},{"Add":" (set 2 P (cons R $Nil))"},{"Add":" (shift P) )"},{"Add":" (T"},{"Add":" (set 2 P R)"},{"Add":" (while (pair (cdr P))"},{"Add":" (shift P) ) ) ) ) )"},{"Add":" (T"},{"Add":" (setq P"},{"Add":" (set 2 P (cons (read0 NO) $Nil)) ) ) ) ) )"},{"Add":""},{"Add":"(de rdList ()"},{"Add":" (stkChk 0)"},{"Add":" (call $Get)"},{"Add":" (save -ZERO)"},{"Add":" (loop"},{"Add":" (? (== (skip) (char \")\")) # Empty list"},{"Add":" (call $Get)"},{"Add":" $Nil )"},{"Add":" (? (== @ (char \"]\")) $Nil) # Empty list"},{"Add":" (? (<> @ (char \"~\")) # Read macro"},{"Add":" (let R (safe (cons (read0 NO) $Nil))"},{"Add":" (rdl R R)"},{"Add":" R ) )"},{"Add":" (call $Get)"},{"Add":" (let (X (safe (read0 NO)) R (eval X))"},{"Add":" (? (not (nil? R))"},{"Add":" (if (atom (safe R))"},{"Add":" (rdl (safe (setq R (cons R $Nil))) R)"},{"Add":" (let L R"},{"Add":" (while (pair (cdr L))"},{"Add":" (setq L @) )"},{"Add":" (rdl R L) ) )"},{"Add":" R ) ) ) )"},{"Add":""},{"Add":"(de read0 ((i1 . Top))"},{"Add":" (let C (skip)"},{"Add":" (when Top"},{"Add":" (let In: (inFile (val $InFile))"},{"Add":" (In: src (In: line)) ) )"},{"Add":" (cond"},{"Add":" ((lt0 C)"},{"Add":" (unless Top (eofErr))"},{"Add":" $Nil )"},{"Add":" ((== C (char \"(\"))"},{"Add":" (prog1"},{"Add":" (rdList)"},{"Add":" (and"},{"Add":" Top"},{"Add":" (== (val $Chr) (char \"]\"))"},{"Add":" (call $Get) ) ) )"},{"Add":" ((== C (char \"[\"))"},{"Add":" (let X (rdList)"},{"Add":" (unless (== (val $Chr) (char \"]\"))"},{"Add":" (err 0 X ($ \"Super parentheses mismatch\") null) )"},{"Add":" (call $Get)"},{"Add":" X ) )"},{"Add":" ((== C (char \"'\"))"},{"Add":" (call $Get)"},{"Add":" (cons $Quote (read0 Top)) )"},{"Add":" ((== C (char \",\"))"},{"Add":" (call $Get)"},{"Add":" (let"},{"Add":" (Tr1 (save (val $Transient))"},{"Add":" Tr2 (save (val 2 $Transient)) )"},{"Add":" (set $Transient (set 2 $Transient $Nil))"},{"Add":" (prog1"},{"Add":" (let X (read0 Top)"},{"Add":" (if (t? (val $Uni))"},{"Add":" X"},{"Add":" (save X"},{"Add":" (if (pair (idxPut $Uni X $T))"},{"Add":" (car @)"},{"Add":" X ) ) ) )"},{"Add":" (set 2 $Transient Tr2)"},{"Add":" (set $Transient Tr1) ) ) )"},{"Add":" ((== C (char \"`\"))"},{"Add":" (call $Get)"},{"Add":" (let E (read0 Top)"},{"Add":" (save E"},{"Add":" (eval E) ) ) )"},{"Add":" ((== C (char \"\\\"\"))"},{"Add":" (if (== (setq C (call $Get)) (char \"\\\"\"))"},{"Add":" (prog (call $Get) $Nil) # Empty string"},{"Add":" (unless (testEsc C) (eofErr))"},{"Add":" (let"},{"Add":" (P (push 4 NIL ZERO NIL) # [cnt last name link]"},{"Add":" Q (link (ofs P 2)) )"},{"Add":" (loop"},{"Add":" (charSym (val $Chr) P)"},{"Add":" (? (== (setq C (call $Get)) (char \"\\\"\")))"},{"Add":" (unless (testEsc C) (eofErr)) )"},{"Add":" (call $Get) # Skip \"\\\"\""},{"Add":" (drop Q"},{"Add":" (intern 0 0 (val Q) $Transient $Nil NO) ) ) ) )"},{"Add":" ((== C (char \"{\"))"},{"Add":" (prog1"},{"Add":" (if (== (setq C (call $Get)) (char \"}\"))"},{"Add":" (consSym ZERO $Nil) # Empty: New anonymous symbol"},{"Add":" (let F (i32 0) # File number"},{"Add":" (while (>= C (char \"@\"))"},{"Add":" (when (> C (char \"O\")) # A-O range"},{"Add":" (badInput) )"},{"Add":" (setq"},{"Add":" F (| (shl F 4) (- C (char \"@\")))"},{"Add":" C (call $Get) ) )"},{"Add":" (let N 0 # Id"},{"Add":" (loop"},{"Add":" (unless (and (>= C (char \"0\")) (>= (char \"7\") C))"},{"Add":" (badInput) )"},{"Add":" (setq N"},{"Add":" (|"},{"Add":" (shl N 3)"},{"Add":" (i64 (- C (char \"0\"))) ) )"},{"Add":" (? (== (setq C (call $Get)) (char \"}\"))) )"},{"Add":" (extern (extNm F N)) ) ) )"},{"Add":" (call $Get) ) ) # Skip \"}\""},{"Add":" ((or (== C (char \")\")) (== C (char \"]\")) (== C (char \"~\")))"},{"Add":" (badInput) )"},{"Add":" (T"},{"Add":" (when (== C (char \"\\\\\"))"},{"Add":" (call $Get) )"},{"Add":" (setq C (val $Chr))"},{"Add":" (call $Get)"},{"Add":" (rdAtom C) ) ) ) )"},{"Add":""},{"Add":"(local) (read1 noToken token)"},{"Add":""},{"Add":"(de read1 ((i32 . End))"},{"Add":" (unless (val $Chr)"},{"Add":" (call $Get) )"},{"Add":" (if (== End (val $Chr))"},{"Add":" $Nil"},{"Add":" (read0 YES) ) )"},{"Add":""},{"Add":"(inline noToken (C Set)"},{"Add":" (not"},{"Add":" (or"},{"Add":" (== C (char \"\\\\\"))"},{"Add":" (and (>= (char \"z\") C) (>= C (char \"a\")))"},{"Add":" (and (>= (char \"Z\") C) (>= C (char \"A\")))"},{"Add":" (strchr Set C) ) ) )"},{"Add":""},{"Add":"(de token (Set (i32 . Cmt))"},{"Add":" (let C (val $Chr)"},{"Add":" (unless C"},{"Add":" (setq C (call $Get)) )"},{"Add":" (cond"},{"Add":" ((lt0 (skipc Cmt)) 0) # Skip white space and comments"},{"Add":" ((== (setq C @) (char \"\\\"\"))"},{"Add":" (cond"},{"Add":" ((== (setq C (call $Get)) (char \"\\\"\")) # Empty string"},{"Add":" (call $Get)"},{"Add":" $Nil )"},{"Add":" ((not (testEsc C)) $Nil)"},{"Add":" (T"},{"Add":" (let"},{"Add":" (Y (cons (mkChar (val $Chr)) $Nil)"},{"Add":" R (save Y) )"},{"Add":" (loop"},{"Add":" (? (== (setq C (call $Get)) (char \"\\\"\"))"},{"Add":" (call $Get) ) # Skip \"\\\"\""},{"Add":" (? (not (testEsc C)))"},{"Add":" (setq Y"},{"Add":" (set 2 Y (cons (mkChar (val $Chr)) $Nil)) ) )"},{"Add":" R ) ) ) )"},{"Add":" ((and (>= (char \"9\") C) (>= C (char \"0\")))"},{"Add":" (let P (push 4 NIL ZERO NIL) # [cnt last name link]"},{"Add":" (link (ofs P 2) T)"},{"Add":" (loop"},{"Add":" (byteSym (i8 C) P)"},{"Add":" (?"},{"Add":" (and"},{"Add":" (<> (setq C (call $Get)) (char \".\"))"},{"Add":" (or (> (char \"0\") C) (> C (char \"9\"))) ) ) )"},{"Add":" (symToNum"},{"Add":" (val 3 P)"},{"Add":" (int (val $Scl))"},{"Add":" (char \".\")"},{"Add":" 0 ) ) )"},{"Add":" (T"},{"Add":" (let"},{"Add":" (Nm (xName 0 Set)"},{"Add":" S (bufString Nm (b8 (bufSize Nm))) )"},{"Add":" (if"},{"Add":" (or"},{"Add":" (== C (char \"+\"))"},{"Add":" (== C (char \"-\"))"},{"Add":" (noToken C S) )"},{"Add":" (prog1"},{"Add":" (mkChar (getChar C))"},{"Add":" (call $Get) )"},{"Add":" (when (== C (char \"\\\\\"))"},{"Add":" (call $Get) )"},{"Add":" (let P (push 4 NIL ZERO NIL) # [cnt last name link]"},{"Add":" (link (ofs P 2) T)"},{"Add":" (loop"},{"Add":" (byteSym (i8 C) P)"},{"Add":" (?"},{"Add":" (and"},{"Add":" (noToken (setq C (call $Get)) S)"},{"Add":" (or (> (char \"0\") C) (> C (char \"9\"))) ) )"},{"Add":" (when (== C (char \"\\\\\"))"},{"Add":" (call $Get) ) )"},{"Add":" (requestSym (val 3 P)) ) ) ) ) ) ) )"},{"Add":""},{"Add":"# (read ['sym1 ['sym2]]) -> any"},{"Add":"(de _Read (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (prog1"},{"Add":" (if (atom X)"},{"Add":" (read1 0)"},{"Add":" (let Y (save (needSymb Exe (eval (++ X))))"},{"Add":" (if (token Y (firstChar (needSymb Exe (eval (car X)))))"},{"Add":" @"},{"Add":" $Nil ) ) )"},{"Add":" (and"},{"Add":" (== (val $Chr) (char \"\\n\"))"},{"Add":" (== (val $InFile) (val (val $InFiles))) # Stdin"},{"Add":" (set $Chr 0) ) ) ) )"},{"Add":""},{"Add":"# (key ['cnt ['var]]) -> sym"},{"Add":"(de _Key (Exe)"},{"Add":" (flushAll)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Cnt"},{"Add":" (if (nil? (eval (++ X)))"},{"Add":" 292MY"},{"Add":" (xCnt Exe @) )"},{"Add":" Var"},{"Add":" (save"},{"Add":" (if (nil? (eval (car X)))"},{"Add":" -ZERO"},{"Add":" (needChkVar Exe @) ) )"},{"Add":" Raw (val Termio) )"},{"Add":" (prog2"},{"Add":" (setRaw)"},{"Add":" (if (waitFd Exe 0 Cnt)"},{"Add":" (let (Ms @ C (stdinByte))"},{"Add":" (unless (== Var -ZERO)"},{"Add":" (set Var (cnt Ms)) )"},{"Add":" (mkChar"},{"Add":" (cond"},{"Add":" ((>= 127 C) C) # Single byte"},{"Add":" ((== C (hex \"FF\")) (i32 TOP)) # Infinite"},{"Add":" (T"},{"Add":" (let B"},{"Add":" (ifn (& C (hex \"20\")) # Two bytes"},{"Add":" (& C (hex \"1F\")) # First byte 110xxxxx"},{"Add":" (let A"},{"Add":" (ifn (& C (hex \"10\")) # Three bytes"},{"Add":" (& C (hex \"0F\")) # First byte 1110xxxx"},{"Add":" (| # Four bytes"},{"Add":" (shl (& C 7) 6) # First byte 11110xxx"},{"Add":" (& (stdinByte) (hex \"3F\")) ) ) # 10xxxxxx"},{"Add":" (| (shl A 6) (& (stdinByte) (hex \"3F\"))) ) )"},{"Add":" (| (shl B 6) (& (stdinByte) (hex \"3F\"))) ) ) ) ) )"},{"Add":" $Nil )"},{"Add":" (unless Raw"},{"Add":" (setCooked) ) ) ) )"},{"Add":""},{"Add":"# (peek) -> sym"},{"Add":"(de _Peek (Exe)"},{"Add":" (let Chr (val $Chr)"},{"Add":" (unless Chr"},{"Add":" (setq Chr (call $Get)) )"},{"Add":" (if (lt0 Chr) $Nil (mkChar Chr)) ) )"},{"Add":""},{"Add":"# (char) -> sym"},{"Add":"# (char 'cnt) -> sym"},{"Add":"# (char T) -> sym"},{"Add":"# (char 'sym) -> cnt"},{"Add":"(de _Char (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (cond"},{"Add":" ((atom X)"},{"Add":" (let Chr (val $Chr)"},{"Add":" (unless Chr"},{"Add":" (setq Chr (call $Get)) )"},{"Add":" (prog1"},{"Add":" (if (lt0 Chr)"},{"Add":" $Nil"},{"Add":" (mkChar (getChar Chr)) )"},{"Add":" (call $Get) ) ) )"},{"Add":" ((cnt? (eval (car X)))"},{"Add":" (if (int @)"},{"Add":" (mkChar (i32 @))"},{"Add":" $Nil ) )"},{"Add":" ((t? @) (mkChar TOP))"},{"Add":" ((symb? @) (cnt (i64 (firstChar @))))"},{"Add":" (T (atomErr Exe @)) ) ) )"},{"Add":""},{"Add":"# (skip ['any]) -> sym"},{"Add":"(de _Skip (Exe)"},{"Add":" (if (lt0 (skipc (firstChar (evSym (cdr Exe)))))"},{"Add":" $Nil"},{"Add":" (mkChar @) ) )"},{"Add":""},{"Add":"# (eol) -> flg"},{"Add":"(de _Eol (Exe)"},{"Add":" (let C (if (val $Chr) @ (call $Get))"},{"Add":" (if (or (le0 C) (== C (char \"\\n\")))"},{"Add":" $T"},{"Add":" $Nil ) ) )"},{"Add":""},{"Add":"# (eof ['flg]) -> flg"},{"Add":"(de _Eof (Exe)"},{"Add":" (nond"},{"Add":" ((nil? (eval (cadr Exe)))"},{"Add":" (set $Chr -1)"},{"Add":" $T )"},{"Add":" ((=0 (val $Chr))"},{"Add":" (if (lt0 @) $T $Nil) )"},{"Add":" (NIL"},{"Add":" (if (lt0 (call $Get)) $T $Nil) ) ) )"},{"Add":""},{"Add":"# (from 'any ..) -> sym"},{"Add":"(de _From (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" N 1"},{"Add":" Y (evSym X)"},{"Add":" Nm (xName Exe Y)"},{"Add":" L"},{"Add":" (link"},{"Add":" (push Y NIL 0 # [sym link ix str]"},{"Add":" (any (bufString Nm (b8 (bufSize Nm)))) ) )"},{"Add":" P L )"},{"Add":" (while (pair (shift X))"},{"Add":" (setq"},{"Add":" Y (evSym X)"},{"Add":" Nm (xName Exe Y)"},{"Add":" L"},{"Add":" (link"},{"Add":" (push Y NIL 0 # [sym link ix str]"},{"Add":" (any (bufString Nm (b8 (bufSize Nm)))) ) ) )"},{"Add":" (inc 'N) )"},{"Add":" (unless (val $Chr)"},{"Add":" (call $Get) )"},{"Add":" (while (ge0 (val $Chr))"},{"Add":" (let (B (i8 @) Q (i64* L) I N)"},{"Add":" (loop"},{"Add":" (loop"},{"Add":" (let S (ofs (i8* (val 4 Q)) (val 3 Q))"},{"Add":" (when (== B (val S)) # Bytes match"},{"Add":" (set 3 Q (inc (val 3 Q))) # Increment index"},{"Add":" (? (val 2 S)) # Not end of string"},{"Add":" (call $Get) # Skip next input byte"},{"Add":" (drop P)"},{"Add":" (ret (val Q)) ) ) # Return matched symbol"},{"Add":" (? (=0 (val 3 Q))) # Still at beginning of string"},{"Add":" (let S (ofs (i8* (val 4 Q)) 1) # Pointer to second byte"},{"Add":" (while (set 3 Q (dec (val 3 Q))) # Decrement index"},{"Add":" (? (=0 (memcmp (i8* (val 4 Q)) S @)))"},{"Add":" (inc 'S) ) ) )"},{"Add":" (? (=0 (dec 'I)))"},{"Add":" (setq Q (i64* (val 2 Q))) ) )"},{"Add":" (call $Get) )"},{"Add":" (drop P)"},{"Add":" $Nil ) )"},{"Add":""},{"Add":"# (till 'any ['flg]) -> lst|sym"},{"Add":"(de _Till (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Nm (xName Exe (evSym X))"},{"Add":" S (bufString Nm (b8 (bufSize Nm))) )"},{"Add":" (let C (if (val $Chr) @ (call $Get))"},{"Add":" (cond"},{"Add":" ((or (lt0 C) (strchr S C))"},{"Add":" $Nil )"},{"Add":" ((nil? (eval (cadr X)))"},{"Add":" (let"},{"Add":" (Y (cons (mkChar (getChar C)) $Nil)"},{"Add":" R (save Y) )"},{"Add":" (until"},{"Add":" (or"},{"Add":" (le0 (setq C (call $Get)))"},{"Add":" (strchr S C) )"},{"Add":" (setq Y"},{"Add":" (set 2 Y (cons (mkChar (getChar C)) $Nil)) ) )"},{"Add":" R ) )"},{"Add":" (T"},{"Add":" (let"},{"Add":" (P (push 4 NIL ZERO NIL) # [cnt last name link]"},{"Add":" Q (link (ofs P 2)) )"},{"Add":" (loop"},{"Add":" (charSym (getChar C) P)"},{"Add":" (? (le0 (setq C (call $Get))))"},{"Add":" (? (strchr S C)) )"},{"Add":" (drop Q"},{"Add":" (consStr (val 3 P)) ) ) ) ) ) ) )"},{"Add":""},{"Add":"(local) eol"},{"Add":""},{"Add":"(de i1 eol ((i32 . C))"},{"Add":" (cond"},{"Add":" ((lt0 C) YES)"},{"Add":" ((== C (char \"\\n\"))"},{"Add":" (set $Chr 0)"},{"Add":" YES )"},{"Add":" ((== C (char \"\\r\"))"},{"Add":" (when (== (call $Get) (char \"\\n\"))"},{"Add":" (set $Chr 0) )"},{"Add":" YES )"},{"Add":" (T NO) ) )"},{"Add":""},{"Add":"# (line 'flg ['cnt ..]) -> lst|sym"},{"Add":"(de _Line (Exe)"},{"Add":" (let C (val $Chr)"},{"Add":" (unless C"},{"Add":" (setq C (call $Get)) )"},{"Add":" (if (eol C)"},{"Add":" $Nil"},{"Add":" (let X (cdr Exe)"},{"Add":" (cond"},{"Add":" ((nil? (eval (++ X)))"},{"Add":" (let # List of characters"},{"Add":" (Y (cons (mkChar (getChar C)) $Nil)"},{"Add":" R (save Y) )"},{"Add":" (when (pair X)"},{"Add":" (let Z (set Y (cons (car Y) $Nil))"},{"Add":" (loop"},{"Add":" (let N (evCnt Exe X)"},{"Add":" (while (gt0 (dec 'N))"},{"Add":" (when (eol (setq C (call $Get)))"},{"Add":" (ret R) )"},{"Add":" (setq Z"},{"Add":" (set 2 Z (cons (mkChar (getChar C)) $Nil)) ) ) )"},{"Add":" (? (atom (shift X)))"},{"Add":" (when (eol (setq C (call $Get)))"},{"Add":" (ret R) )"},{"Add":" (setq Y"},{"Add":" (set 2 Y"},{"Add":" (cons"},{"Add":" (setq Z (cons (mkChar (getChar C)) $Nil))"},{"Add":" $Nil ) ) ) ) ) )"},{"Add":" (until (eol (setq C (call $Get)))"},{"Add":" (setq Y"},{"Add":" (set 2 Y (cons (mkChar (getChar C)) $Nil)) ) )"},{"Add":" R ) )"},{"Add":" ((atom X) # Pack single string"},{"Add":" (let"},{"Add":" (P (push 4 NIL ZERO NIL) # [cnt last name link]"},{"Add":" Q (link (ofs P 2)) )"},{"Add":" (loop"},{"Add":" (charSym (getChar C) P)"},{"Add":" (? (eol (setq C (call $Get)))) )"},{"Add":" (drop Q"},{"Add":" (consStr (val 3 P)) ) ) )"},{"Add":" (T"},{"Add":" (let"},{"Add":" (N (evCnt Exe X)"},{"Add":" P (push 4 NIL ZERO NIL) # [cnt last name link]"},{"Add":" Q (link (ofs P 2) T) )"},{"Add":" (loop"},{"Add":" (charSym (getChar C) P)"},{"Add":" (when (eol (setq C (call $Get)))"},{"Add":" (ret (cons (consStr (val Q)) $Nil)) )"},{"Add":" (? (=0 (dec 'N))) )"},{"Add":" (let"},{"Add":" (Y (cons (consStr (val Q)) $Nil)"},{"Add":" R (save Y) )"},{"Add":" (while (pair (shift X))"},{"Add":" (setq N (evCnt Exe X))"},{"Add":" (set P 4 3 P ZERO)"},{"Add":" (loop"},{"Add":" (charSym (getChar C) P)"},{"Add":" (when (eol (setq C (call $Get)))"},{"Add":" (set 2 Y (cons (consStr (val Q)) $Nil))"},{"Add":" (ret R) )"},{"Add":" (? (=0 (dec 'N))) )"},{"Add":" (setq Y"},{"Add":" (set 2 Y (cons (consStr (val Q)) $Nil)) ) )"},{"Add":" (loop"},{"Add":" (setq Y"},{"Add":" (set 2 Y (cons (mkChar (getChar C)) $Nil)) )"},{"Add":" (? (eol (setq C (call $Get)))) )"},{"Add":" R ) ) ) ) ) ) ) )"},{"Add":""},{"Add":"# (in 'any . prg) -> any"},{"Add":"(de _In (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (rdOpen Exe (eval (++ X)) (b8+ (ioFrame T)))"},{"Add":" (prog1"},{"Add":" (run X)"},{"Add":" (popInFiles) ) ) )"},{"Add":""},{"Add":"# (out 'any . prg) -> any"},{"Add":"(de _Out (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (wrOpen Exe (eval (++ X)) (b8+ (ioFrame T)))"},{"Add":" (prog1"},{"Add":" (run X)"},{"Add":" (popOutFiles) ) ) )"},{"Add":""},{"Add":"# (err 'sym . prg) -> any"},{"Add":"(de _Err (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (erOpen Exe (eval (++ X)) (b8+ (ctFrame T)))"},{"Add":" (prog1"},{"Add":" (run X)"},{"Add":" (popErrFiles) ) ) )"},{"Add":""},{"Add":"# (ctl 'sym . prg) -> any"},{"Add":"(de _Ctl (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (ctOpen Exe (eval (++ X)) (b8+ (ctFrame T)))"},{"Add":" (prog1"},{"Add":" (run X)"},{"Add":" (popCtlFiles) ) ) )"},{"Add":""},{"Add":"(local) (pushInput pushOutput)"},{"Add":""},{"Add":"(de void pushInput ((i8* . Iox) Exe)"},{"Add":" (let Iox: (ioxFrame Iox)"},{"Add":" (Iox: link (val $InFrames))"},{"Add":" (Iox: file null)"},{"Add":" (Iox: fun (val (i8** $Get)))"},{"Add":" (Iox: exe Exe)"},{"Add":" (Iox: chr (val $Chr))"},{"Add":" (set"},{"Add":" $InFrames (Iox:)"},{"Add":" $Get (fun (i32) getIn)"},{"Add":" $IoChar 0"},{"Add":" $Chr 0 ) ) )"},{"Add":""},{"Add":"(de void pushOutput ((i8* . Iox) Exe)"},{"Add":" (let Iox: (ioxFrame Iox)"},{"Add":" (Iox: link (val $OutFrames))"},{"Add":" (Iox: file null)"},{"Add":" (Iox: fun (val (i8** $Put)))"},{"Add":" (Iox: exe Exe)"},{"Add":" (Iox: chr 0)"},{"Add":" (set $OutFrames (Iox:) $Put (fun (void i8) putOut)) ) )"},{"Add":""},{"Add":"# (input exe . prg) -> any"},{"Add":"(de _Input (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (pushInput (b8+ (ioxFrame T)) (++ X))"},{"Add":" (prog1"},{"Add":" (run X)"},{"Add":" (popInFiles) ) ) )"},{"Add":""},{"Add":"# (output exe . prg) -> any"},{"Add":"(de _Output (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (pushOutput (b8+ (ioxFrame T)) (++ X))"},{"Add":" (prog1"},{"Add":" (run X)"},{"Add":" (popOutFiles) ) ) )"},{"Add":""},{"Add":"# (fd ['cnt]) -> cnt"},{"Add":"(de _Fd (Exe)"},{"Add":" (let (X (eval (cadr Exe)) Fd (currFd Exe))"},{"Add":" (unless (nil? X)"},{"Add":" (dup2 Fd (i32 (xCnt Exe X))) )"},{"Add":" (cnt (i64 Fd)) ) )"},{"Add":""},{"Add":"(local) forkLisp"},{"Add":""},{"Add":"(de i32 forkLisp (Exe)"},{"Add":" (flushAll)"},{"Add":" (unless (val $Spkr) # Not listening for children yet"},{"Add":" (when (lt0 (pipe $SpMiPipe)) # Open speaker/microphone pipe"},{"Add":" (pipeErr Exe) )"},{"Add":" (closeOnExec Exe (set $Spkr (val $SpMiPipe)))"},{"Add":" (closeOnExec Exe (val 2 $SpMiPipe)) )"},{"Add":" (let (Hear (b32 2) Tell (b32 2))"},{"Add":" (when (or (lt0 (pipe Hear)) (lt0 (pipe Tell)))"},{"Add":" (pipeErr Exe) )"},{"Add":" (closeOnExec Exe (val Hear)) # Read end of 'hear'"},{"Add":" (closeOnExec Exe (val 2 Hear)) # Write end"},{"Add":" (closeOnExec Exe (val Tell)) # Read end of 'tell'"},{"Add":" (closeOnExec Exe (val 2 Tell)) # Write end"},{"Add":" (let (I (i32 0) N (val $Children))"},{"Add":" (let Cld (val $Child)"},{"Add":" (while (> N I) # Find a free child slot"},{"Add":" (? (=0 ((child Cld) pid)))"},{"Add":" (inc 'I)"},{"Add":" (setq Cld (ofs Cld (child T))) ) )"},{"Add":" (cond"},{"Add":" ((lt0 (fork)) (forkErr Exe))"},{"Add":" ((=0 @) # In child"},{"Add":" (set"},{"Add":" $Slot I # Set child index"},{"Add":" $Spkr 0 # No children yet"},{"Add":" $Mic (val 2 $SpMiPipe) ) # Set microphone to write end"},{"Add":" (close (val 2 Hear)) # Close write end of 'hear'"},{"Add":" (close (val Tell)) # Close read end of 'tell'"},{"Add":" (close (val $SpMiPipe)) # Close read end"},{"Add":" (when (val $Hear)"},{"Add":" (close @)"},{"Add":" (closeInFile @)"},{"Add":" (closeOutFile @) )"},{"Add":" (initInFile (set $Hear (val Hear)) null) # Read end of 'hear'"},{"Add":" (when (val $Tell) # Telling"},{"Add":" (close @) )"},{"Add":" (set $Tell (val 2 Tell)) # Write end of 'tell'"},{"Add":" (set $Nfds 0) # Clear poll entries"},{"Add":" (free (i8* (val $Poll)))"},{"Add":" (set $Poll (i64* null))"},{"Add":" (let Cld (val $Child)"},{"Add":" (while (ge0 (dec 'N)) # Close children"},{"Add":" (let Cld: (child Cld)"},{"Add":" (when (Cld: pid)"},{"Add":" (free (Cld: buf))"},{"Add":" (close (Cld: hear))"},{"Add":" (close (Cld: tell)) ) )"},{"Add":" (setq Cld (ofs Cld (child T))) ) )"},{"Add":" (set $Children 0) # No children"},{"Add":" (free (val $Child))"},{"Add":" (set $Child null)"},{"Add":" (let In (val $InFrames) # Clear pids in InFrames"},{"Add":" (while In"},{"Add":" (let In: (ioFrame In)"},{"Add":" (when (In: file)"},{"Add":" (In: pid 0) )"},{"Add":" (setq In (In: link)) ) ) )"},{"Add":" (let Out (val $OutFrames) # Clear pids in OutFrames"},{"Add":" (while Out"},{"Add":" (let Out: (ioFrame Out)"},{"Add":" (when (Out: file)"},{"Add":" (Out: pid 0) )"},{"Add":" (setq Out (Out: link)) ) ) )"},{"Add":" (let Ca (val $Catch) # Clear 'finally' expressions in Catch frames"},{"Add":" (while Ca"},{"Add":" (let Ca: (caFrame Ca)"},{"Add":" (Ca: fin ZERO)"},{"Add":" (setq Ca (Ca: link)) ) ) )"},{"Add":" (let R (val $Run) # Switch off all tasks"},{"Add":" (while (pair R)"},{"Add":" (let X (++ R)"},{"Add":" (unless (sign? (car X))"},{"Add":" (let Fd (i32 (int @))"},{"Add":" (close Fd)"},{"Add":" (closeInFile Fd)"},{"Add":" (closeOutFile Fd) ) ) ) ) )"},{"Add":" (set $Bye $Nil)"},{"Add":" (set $Run $Nil)"},{"Add":" (free (val Termio)) # Give up terminal control"},{"Add":" (set Termio null)"},{"Add":" (set"},{"Add":" $PRepl (val $Repl) # Set parent REPL flag"},{"Add":" $PPid (val $Pid) ) # Set parent process ID"},{"Add":" (set $Pid (cnt (i64 (getpid)))) # Set new process ID"},{"Add":" (execAt (val $Fork)) # Run '*Fork'"},{"Add":" (set $Fork $Nil)"},{"Add":" 0 )"},{"Add":" (T # In parent"},{"Add":" (let Pid @"},{"Add":" (when (== I N) # Children table full"},{"Add":" (set $Children (inc 'N 8)) # Eight more slots"},{"Add":" (let P"},{"Add":" (set $Child"},{"Add":" (alloc (val $Child) (i64 (* N (child T)))) )"},{"Add":" (let Cld (ofs P (* I (child T)))"},{"Add":" (loop"},{"Add":" ((child Cld) pid 0) # Clear 'pid'"},{"Add":" (? (== I (dec 'N)))"},{"Add":" (setq Cld (ofs Cld (child T))) ) ) ) )"},{"Add":" (close (val Hear)) # Close read end of 'hear'"},{"Add":" (close (val 2 Tell)) # Close write end of 'tell'"},{"Add":" (let Cld: (child (ofs (val $Child) (* I (child T)))) # Free 'child' entry"},{"Add":" (Cld: buf null) # No buffer yet"},{"Add":" (Cld: ofs (Cld: cnt 0)) # Init buffer offset and count"},{"Add":" (Cld: pid Pid) # Set 'pid'"},{"Add":" (Cld: hear (val Tell)) # Read end of 'tell'"},{"Add":" (nonBlocking (Cld: tell (val 2 Hear))) ) # Write end of 'hear'"},{"Add":" Pid ) ) ) ) ) )"},{"Add":""},{"Add":"# (pipe exe) -> cnt"},{"Add":"# (pipe exe . prg) -> any"},{"Add":"(de _Pipe (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" E (++ X)"},{"Add":" Pfd (b32 2)"},{"Add":" Io: (ioFrame (b8+ (ioFrame T))) )"},{"Add":" (when (lt0 (if (pair X) (pipe Pfd) (socketPair Pfd)))"},{"Add":" (pipeErr Exe) )"},{"Add":" (when (< (val 2 Pfd) 2) # pfd[1]"},{"Add":" (pipeErr Exe) )"},{"Add":" (if (forkLisp Exe)"},{"Add":" (let Pid @ # In parent"},{"Add":" (close (val 2 Pfd)) # Close write end"},{"Add":" (let Fd (val Pfd) # Read end"},{"Add":" (closeOnExec Exe Fd)"},{"Add":" (cond"},{"Add":" ((atom X) # No 'prg'"},{"Add":" (initInFile Fd null)"},{"Add":" (initOutFile Fd)"},{"Add":" (cnt (i64 Fd)) )"},{"Add":" (T"},{"Add":" (setpgid Pid 0) # Set process group"},{"Add":" (pushInFile (Io:) (initInFile Fd null) Pid)"},{"Add":" (prog1"},{"Add":" (run X)"},{"Add":" (popInFiles) ) ) ) ) )"},{"Add":" # In child"},{"Add":" (close (val Pfd)) # Close read end"},{"Add":" (let Fd (val 2 Pfd) # Write end"},{"Add":" (if (pair X) # 'prg'"},{"Add":" (setpgid 0 0) # Set process group"},{"Add":" (dup2 Fd 0) # Dup write pipe to STDIN_FILENO"},{"Add":" ((inFile (val (val $InFiles))) tty NO) ) # Clear 'tty' in stdin"},{"Add":" (dup2 Fd 1) # Dup write pipe to STDOUT_FILENO"},{"Add":" (close Fd) )"},{"Add":" (signal (val SIGPIPE Sig) (val SigDfl)) # Default SIGPIPE"},{"Add":" ((outFile (val $OutFile)) tty NO) # Clear 'tty'"},{"Add":" (pushOutFile (Io:) (val 2 (val $OutFiles)) 0) # Stdout"},{"Add":" (set $LinePtr null) # Switch off line editor"},{"Add":" (when (pair E) # Evaluate 'exe'"},{"Add":" (evList E) )"},{"Add":" (bye 0) ) ) )"},{"Add":""},{"Add":"# (open 'any ['flg]) -> cnt | NIL"},{"Add":"(de _Open (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Nm (xName Exe (evSym X))"},{"Add":" S (pathString Nm (b8 (pathSize Nm)))"},{"Add":" Flg (nil? (eval (cadr X))) )"},{"Add":" (loop"},{"Add":" (? (ge0 (if Flg (openRdWrCreate S) (openRd S)))"},{"Add":" (closeOnExec Exe @)"},{"Add":" (initInFile @ (strdup S))"},{"Add":" (initOutFile @)"},{"Add":" (cnt (i64 @)) )"},{"Add":" (? (<> (gErrno) EINTR) $Nil)"},{"Add":" (sigChk Exe) ) ) )"},{"Add":""},{"Add":"# (close 'cnt) -> cnt | NIL"},{"Add":"(de _Close (Exe)"},{"Add":" (let"},{"Add":" (X (eval (cadr Exe))"},{"Add":" Fd (i32 (xCnt Exe X)) )"},{"Add":" (loop"},{"Add":" (? (=0 (close Fd))"},{"Add":" (closeInFile Fd)"},{"Add":" (closeOutFile Fd)"},{"Add":" X )"},{"Add":" (? (<> (gErrno) EINTR) $Nil)"},{"Add":" (sigChk Exe) ) ) )"},{"Add":""},{"Add":"# (echo ['cnt ['cnt]] | ['sym ..]) -> sym"},{"Add":"(de _Echo (Exe)"},{"Add":" (let (X (cdr Exe) Y (eval (++ X)))"},{"Add":" (cond"},{"Add":" ((and (nil? Y) (atom X))"},{"Add":" (let C (if (val $Chr) @ (call $Get))"},{"Add":" (until (lt0 C)"},{"Add":" (call $Put (i8 C))"},{"Add":" (setq C (call $Get)) ) )"},{"Add":" $T )"},{"Add":" ((num? Y)"},{"Add":" (let N (xCnt Exe Y)"},{"Add":" (when (pair X)"},{"Add":" (let C (evCnt Exe X)"},{"Add":" (while (ge0 (dec 'N))"},{"Add":" (when (lt0 (call $Get))"},{"Add":" (ret $Nil) ) )"},{"Add":" (setq N C) ) )"},{"Add":" (while (ge0 (dec 'N))"},{"Add":" (when (lt0 (call $Get))"},{"Add":" (ret $Nil) )"},{"Add":" (call $Put (i8 @)) )"},{"Add":" (set $Chr 0)"},{"Add":" $T ) )"},{"Add":" ((pair Y) (argErr Exe Y))"},{"Add":" (T # sym"},{"Add":" (let"},{"Add":" (M (i64* null)"},{"Add":" N 1"},{"Add":" Nm (xName Exe Y)"},{"Add":" L"},{"Add":" (link"},{"Add":" (push Y NIL 0 # [sym link ix str]"},{"Add":" (any (bufString Nm (b8 (bufSize Nm)))) ) )"},{"Add":" P L )"},{"Add":" (while (pair X)"},{"Add":" (setq"},{"Add":" Y (evSym (++ X))"},{"Add":" Nm (xName Exe Y)"},{"Add":" L"},{"Add":" (link"},{"Add":" (push Y NIL 0 # [sym link ix str]"},{"Add":" (any (bufString Nm (b8 (bufSize Nm)))) ) ) )"},{"Add":" (inc 'N) )"},{"Add":" (unless (val $Chr)"},{"Add":" (call $Get) )"},{"Add":" (while (ge0 (val $Chr))"},{"Add":" (let"},{"Add":" (B (i8 @)"},{"Add":" Q (i64* L)"},{"Add":" I N"},{"Add":" OutM M"},{"Add":" OutC (if M (val 3 M) 0) )"},{"Add":" (loop"},{"Add":" (loop"},{"Add":" (let S (ofs (i8* (val 4 Q)) (val 3 Q))"},{"Add":" (when (== B (val S)) # Bytes match"},{"Add":" (set 3 Q (inc (val 3 Q))) # Increment index"},{"Add":" (? (val 2 S) # Not end of string"},{"Add":" (unless (and M (>= (val 3 M) (val 3 Q)))"},{"Add":" (setq M Q) ) )"},{"Add":" (when OutM"},{"Add":" (setq S (i8* (val 4 OutM)))"},{"Add":" (dec 'OutC (val 3 Q))"},{"Add":" (until (lt0 OutC)"},{"Add":" (call $Put (val S))"},{"Add":" (inc 'S)"},{"Add":" (dec 'OutC) ) )"},{"Add":" (set $Chr 0) # Clear look ahead"},{"Add":" (drop P)"},{"Add":" (ret (val Q)) ) ) # Return matched symbol"},{"Add":" (? (=0 (val 3 Q))) # Still at beginning of string"},{"Add":" (let S (ofs (i8* (val 4 Q)) 1) # Pointer to second byte"},{"Add":" (while (set 3 Q (dec (val 3 Q))) # Decrement index"},{"Add":" (? (=0 (memcmp (i8* (val 4 Q)) S @)))"},{"Add":" (inc 'S) ) )"},{"Add":" (when (== Q M) # On current max"},{"Add":" (setq M (i64* null))"},{"Add":" (let (Z (i64* L) J N)"},{"Add":" (loop"},{"Add":" (when (val 3 Z)"},{"Add":" (unless (and M (>= (val 3 M) (val 3 Z)))"},{"Add":" (setq M Z) ) )"},{"Add":" (? (=0 (dec 'J)))"},{"Add":" (setq Z (i64* (val 2 Z))) ) ) ) )"},{"Add":" (? (=0 (dec 'I)))"},{"Add":" (setq Q (i64* (val 2 Q))) )"},{"Add":" (cond"},{"Add":" ((=0 M)"},{"Add":" (when OutM"},{"Add":" (let (S (i8* (val 4 OutM)) C OutC)"},{"Add":" (loop"},{"Add":" (call $Put (val S))"},{"Add":" (inc 'S)"},{"Add":" (? (=0 (dec 'C))) ) ) )"},{"Add":" (call $Put B) )"},{"Add":" (OutM"},{"Add":" (let S (i8* (val 4 OutM))"},{"Add":" (dec 'OutC (val 3 M))"},{"Add":" (until (lt0 OutC)"},{"Add":" (call $Put (val S))"},{"Add":" (inc 'S)"},{"Add":" (dec 'OutC) ) ) ) ) )"},{"Add":" (call $Get) )"},{"Add":" (drop P)"},{"Add":" $Nil ) ) ) ) )"},{"Add":""},{"Add":"(de void _putStdout ((i8 . B))"},{"Add":" (let Out: (outFile (val $OutFile))"},{"Add":" (when (Out:)"},{"Add":" (let I (Out: ix)"},{"Add":" (when (== I BUFSIZ)"},{"Add":" (Out: ix (setq I 0))"},{"Add":" (wrBytes (Out: fd) (Out: (buf)) BUFSIZ) )"},{"Add":" (set (ofs (Out: (buf)) I) B)"},{"Add":" (Out: ix (inc 'I))"},{"Add":" (when (and (== B (char \"\\n\")) (Out: tty))"},{"Add":" (Out: ix 0)"},{"Add":" (wrBytes (Out: fd) (Out: (buf)) I) ) ) ) ) )"},{"Add":""},{"Add":"(local) (newline space)"},{"Add":""},{"Add":"(de void newline ()"},{"Add":" (call $Put (char \"\\n\")) )"},{"Add":""},{"Add":"(de void space ()"},{"Add":" (call $Put (char \" \")) )"},{"Add":""},{"Add":"(local) (outWord outNum outOct outAo bufAo prExt)"},{"Add":""},{"Add":"# Output decimal number"},{"Add":"(de void outWord ((i64 . N))"},{"Add":" (when (> N 9)"},{"Add":" (outWord (/ N 10))"},{"Add":" (setq N (% N 10)) )"},{"Add":" (call $Put (+ (i8 N) (char \"0\"))) )"},{"Add":""},{"Add":"(de void outNum (X)"},{"Add":" (when (sign? X)"},{"Add":" (call $Put (char \"-\")) )"},{"Add":" (outWord (shr (i64 X) 4)) )"},{"Add":""},{"Add":"# Output octal number"},{"Add":"(de void outOct ((i64 . N))"},{"Add":" (when (> N 7)"},{"Add":" (outOct (shr N 3))"},{"Add":" (setq N (& N 7)) )"},{"Add":" (call $Put (+ (i8 N) (char \"0\"))) )"},{"Add":""},{"Add":"# Output A-O encoding"},{"Add":"(de void outAo ((i32 . N))"},{"Add":" (when (> N 15)"},{"Add":" (outAo (shr N 4))"},{"Add":" (setq N (& N 15)) )"},{"Add":" (call $Put (+ (i8 N) (char \"@\"))) )"},{"Add":""},{"Add":"# Append A-O encoding to buffer"},{"Add":"(de i8* bufAo ((i8* . P) (i32 . N))"},{"Add":" (when (> N 15)"},{"Add":" (setq"},{"Add":" P (bufAo P (shr N 4))"},{"Add":" N (& N 15) ) )"},{"Add":" (set P (+ (i8 N) (char \"@\")))"},{"Add":" (inc P) )"},{"Add":""},{"Add":"# Output external symbol name"},{"Add":"(de void prExt (Nm)"},{"Add":" (when (objFile Nm)"},{"Add":" (outAo @) )"},{"Add":" (outOct (objId Nm)) )"},{"Add":""},{"Add":"(local) (outString prName prSym printName printSym)"},{"Add":""},{"Add":"# Output string"},{"Add":"(de void outString ((i8* . S))"},{"Add":" (while (val S)"},{"Add":" (call $Put @)"},{"Add":" (inc 'S) ) )"},{"Add":""},{"Add":"(de void prName (Nm)"},{"Add":" (let P (push 0 Nm) # [cnt name]"},{"Add":" (while (symByte P)"},{"Add":" (call $Put @) ) ) )"},{"Add":""},{"Add":"(de void prSym (Sym)"},{"Add":" (prName (name (val (tail Sym)))) )"},{"Add":""},{"Add":"(de void printName (Nm)"},{"Add":" (ifn (== Nm (hex \"2E2\")) # Dot"},{"Add":" (let (P (push 0 Nm) B (symByte P)) # [cnt name]"},{"Add":" (when (== B (char \"#\"))"},{"Add":" (call $Put (char \"\\\\\")) ) # Escape leading hash"},{"Add":" (loop"},{"Add":" (when"},{"Add":" (or"},{"Add":" (== B (char \"\\\\\"))"},{"Add":" (strchr $Delim (i32 B)) )"},{"Add":" (call $Put (char \"\\\\\")) ) # Escape backslash and delimiters"},{"Add":" (call $Put B)"},{"Add":" (? (=0 (setq B (symByte P))) ) ) )"},{"Add":" (call $Put (char \"\\\\\"))"},{"Add":" (call $Put (char \".\")) ) )"},{"Add":""},{"Add":"(de void printSym (Sym)"},{"Add":" (printName (name (val (tail Sym)))) )"},{"Add":""},{"Add":"(local) (print prin)"},{"Add":""},{"Add":"(de void print (X)"},{"Add":" (sigChk 0)"},{"Add":" (cond"},{"Add":" ((cnt? X) (outNum X))"},{"Add":" ((big? X) (fmtNum X -1 0 0 null))"},{"Add":" ((sym? X)"},{"Add":" (cond"},{"Add":" ((sym? (val (tail X))) # External"},{"Add":" (call $Put (char \"{\"))"},{"Add":" (prExt (name (& @ -9)))"},{"Add":" (call $Put (char \"}\")) )"},{"Add":" ((== (name @) ZERO) # Anonymous"},{"Add":" (call $Put (char \"$\"))"},{"Add":" (outOct (int X)) )"},{"Add":" (T"},{"Add":" (let (Nm @ Prv (isIntern Nm $PrivT))"},{"Add":" (ifn (== X Prv)"},{"Add":" (let (Lst (val $Intern) F NO) # Search namespaces"},{"Add":" (loop"},{"Add":" (? (atom Lst) # Transient"},{"Add":" (call $Put (char \"\\\"\"))"},{"Add":" (let (P (push 0 Nm) B (symByte P)) # [cnt name]"},{"Add":" (loop"},{"Add":" (cond"},{"Add":" ((or"},{"Add":" (== B (char \"\\\\\"))"},{"Add":" (== B (char \"\\^\"))"},{"Add":" (== B (char \"\\\"\")) )"},{"Add":" (call $Put (char \"\\\\\")) )"},{"Add":" ((== B 127) # DEL"},{"Add":" (call $Put (char \"\\^\")) # Print ^?"},{"Add":" (setq B (char \"?\")) )"},{"Add":" ((> 32 B) # White space"},{"Add":" (call $Put (char \"\\^\")) # Escape with caret"},{"Add":" (setq B (| B 64)) ) )"},{"Add":" (call $Put B)"},{"Add":" (? (=0 (setq B (symByte P))) ) ) )"},{"Add":" (call $Put (char \"\\\"\")) )"},{"Add":" (let Nsp (car Lst)"},{"Add":" (when (isIntern Nm (cdar Nsp))"},{"Add":" (? (== @ X) # Internal"},{"Add":" (when (or Prv F) # Found in other namespace"},{"Add":" (printSym Nsp)"},{"Add":" (call $Put (char \"~\")) )"},{"Add":" (printName Nm) )"},{"Add":" (setq F YES) ) )"},{"Add":" (shift Lst) ) )"},{"Add":" (outString ($ \"priv~\")) # Found in 'priv'"},{"Add":" (printName Nm) ) ) ) ) )"},{"Add":" ((and (== (car X) $Quote) (<> X (cdr X)))"},{"Add":" (call $Put (char \"'\"))"},{"Add":" (print (cdr X)) )"},{"Add":" (T"},{"Add":" (stkChk 0)"},{"Add":" (call $Put (char \"(\"))"},{"Add":" (let (P (circ X) Z X)"},{"Add":" (loop"},{"Add":" (print (car X))"},{"Add":" (? (nil? (shift X)))"},{"Add":" (? (atom X)"},{"Add":" (outString ($ \" . \"))"},{"Add":" (print X) )"},{"Add":" (space)"},{"Add":" (? (== Z X)"},{"Add":" (call $Put (char \".\"))"},{"Add":" (unless P"},{"Add":" (call $Put (char \")\")) ) )"},{"Add":" (when (== P X)"},{"Add":" (outString ($ \". (\"))"},{"Add":" (setq Z P P 0) ) ) )"},{"Add":" (call $Put (char \")\")) ) ) )"},{"Add":""},{"Add":"(de void prin (X)"},{"Add":" (sigChk 0)"},{"Add":" (unless (nil? X)"},{"Add":" (cond"},{"Add":" ((cnt? X) (outNum X))"},{"Add":" ((big? X) (fmtNum X -1 0 0 null))"},{"Add":" ((pair X)"},{"Add":" (stkChk 0)"},{"Add":" (loop"},{"Add":" (prin (car X))"},{"Add":" (? (nil? (shift X)))"},{"Add":" (? (atom X) (prin X)) ) )"},{"Add":" ((sym? (val (tail X)))"},{"Add":" (call $Put (char \"{\"))"},{"Add":" (prExt (name (& @ -9)))"},{"Add":" (call $Put (char \"}\")) )"},{"Add":" (T (prName (name @))) ) ) )"},{"Add":""},{"Add":"# (prin 'any ..) -> any"},{"Add":"(de _Prin (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (loop"},{"Add":" (let Y (eval (++ X))"},{"Add":" (prin Y)"},{"Add":" (? (atom X) Y) ) ) ) )"},{"Add":""},{"Add":"# (prinl 'any ..) -> any"},{"Add":"(de _Prinl (Exe)"},{"Add":" (prog1 (_Prin Exe) (newline)) )"},{"Add":""},{"Add":"# (space ['cnt]) -> cnt"},{"Add":"(de _Space (Exe)"},{"Add":" (let X (eval (cadr Exe))"},{"Add":" (ifn (nil? X)"},{"Add":" (let N (xCnt Exe X)"},{"Add":" (while (ge0 (dec 'N))"},{"Add":" (space) )"},{"Add":" X )"},{"Add":" (space)"},{"Add":" ONE ) ) )"},{"Add":""},{"Add":"# (print 'any ..) -> any"},{"Add":"(de _Print (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (loop"},{"Add":" (let Y (eval (++ X))"},{"Add":" (print Y)"},{"Add":" (? (atom X) Y)"},{"Add":" (space) ) ) ) )"},{"Add":""},{"Add":"# (printsp 'any ..) -> any"},{"Add":"(de _Printsp (Exe)"},{"Add":" (prog1 (_Print Exe) (space)) )"},{"Add":""},{"Add":"# (println 'any ..) -> any"},{"Add":"(de _Println (Exe)"},{"Add":" (prog1 (_Print Exe) (newline)) )"},{"Add":""},{"Add":"# (flush) -> flg"},{"Add":"(de _Flush (Exe)"},{"Add":" (if (flush (val $OutFile)) $T $Nil) )"},{"Add":""},{"Add":"# (rewind) -> flg"},{"Add":"(de _Rewind (Exe)"},{"Add":" (let Out: (outFile (val $OutFile))"},{"Add":" (if"},{"Add":" (and"},{"Add":" (Out:)"},{"Add":" (let Fd (Out: fd)"},{"Add":" (Out: ix 0)"},{"Add":" (and (seek0 Fd) (truncate0 Fd)) ) )"},{"Add":" $T"},{"Add":" $Nil ) ) )"},{"Add":""},{"Add":"# (ext 'cnt . prg) -> any"},{"Add":"(de _Ext (Exe)"},{"Add":" (let (X (cdr Exe) N (evCnt Exe X) Old (val $ExtN))"},{"Add":" (set $ExtN (i32 N))"},{"Add":" (prog1"},{"Add":" (run (cdr X))"},{"Add":" (set $ExtN Old) ) ) )"},{"Add":""},{"Add":"(local) (getPlio putPlio)"},{"Add":""},{"Add":"(de i32 getPlio ()"},{"Add":" (let P (val $Ptr)"},{"Add":" (set $Ptr (inc P))"},{"Add":" (i32 (val P)) ) )"},{"Add":""},{"Add":"(de void putPlio ((i8 . B))"},{"Add":" (let P (val $Ptr)"},{"Add":" (set P B)"},{"Add":" (when (== (set $Ptr (inc P)) (val $End))"},{"Add":" (sizeErr 0) ) ) )"},{"Add":""},{"Add":"# (plio 'num) -> any"},{"Add":"# (plio 'num 'cnt 'any) -> cnt"},{"Add":"(de _Plio (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" P"},{"Add":" (i8*"},{"Add":" (if (cnt? (needNum Exe (eval (++ X))))"},{"Add":" (int @)"},{"Add":" (val (dig @)) ) ) )"},{"Add":" (let (Ptr (val $Ptr) End (val $End))"},{"Add":" (set"},{"Add":" $Extn (val $ExtN) # Set external symbol offset"},{"Add":" $Ptr P )"},{"Add":" (prog1"},{"Add":" (if (pair X)"},{"Add":" (let (N (evCnt Exe X) Y (eval (car (shift X))))"},{"Add":" (set"},{"Add":" $PutBin (fun (void i8) putPlio)"},{"Add":" $End (ofs P N) )"},{"Add":" (binPrint Y)"},{"Add":" (cnt (- (val $Ptr) P)) )"},{"Add":" (set $GetBin (fun (i32) getPlio))"},{"Add":" (if (binRead) @ $Nil) )"},{"Add":" (set $Ptr Ptr $End End) ) ) ) )"},{"Add":""},{"Add":"# (rd ['sym]) -> any"},{"Add":"# (rd 'cnt) -> num | NIL"},{"Add":"(de _Rd (Exe)"},{"Add":" (let X (save (eval (cadr Exe)))"},{"Add":" (cond"},{"Add":" ((lt0 ((inFile (val $InFile)) fd)) $Nil)"},{"Add":" ((num? X)"},{"Add":" (let"},{"Add":" (P (push 3 NIL ZERO NIL) # [cnt last name link]"},{"Add":" Q (link (ofs P 2))"},{"Add":" Cnt (int X) )"},{"Add":" (cond"},{"Add":" ((=0 Cnt) $Nil)"},{"Add":" ((sign? X) # Little endian"},{"Add":" (loop"},{"Add":" (when (lt0 (getBinary))"},{"Add":" (: 1 (ret $Nil)) )"},{"Add":" (byteNum (i8 @) P)"},{"Add":" (? (=0 (dec 'Cnt))) )"},{"Add":" (if (cnt? (val Q))"},{"Add":" (twice @)"},{"Add":" (zapZero @) ) )"},{"Add":" (T"},{"Add":" (loop"},{"Add":" (when (lt0 (getBinary))"},{"Add":" (goto 1) )"},{"Add":" (set Q"},{"Add":" (addu"},{"Add":" (cnt (i64 @))"},{"Add":" (set Q (mulu (val Q) (hex \"1002\"))) ) ) # Multiply number by 256"},{"Add":" (? (=0 (dec 'Cnt))) )"},{"Add":" (if (cnt? (val Q))"},{"Add":" @"},{"Add":" (zapZero @) ) ) ) ) )"},{"Add":" (T"},{"Add":" (set"},{"Add":" $GetBin (fun (i32) getBinary)"},{"Add":" $Extn (val $ExtN) )"},{"Add":" (if (binRead) @ X) ) ) ) )"},{"Add":""},{"Add":"# (pr 'any ..) -> any"},{"Add":"(de _Pr (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (loop"},{"Add":" (let Y (eval (++ X))"},{"Add":" (set $Extn (val $ExtN)) # Set external symbol offset"},{"Add":" (pr Y) # Print binary"},{"Add":" (? (atom X) Y) ) ) ) )"},{"Add":""},{"Add":"# (wr 'cnt ..) -> cnt"},{"Add":"(de _Wr (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (loop"},{"Add":" (let N (eval (++ X))"},{"Add":" (_putStdout (i8 (int N)))"},{"Add":" (? (atom X) N) ) ) ) )"},{"Add":""},{"Add":"(local) (getParse parse)"},{"Add":""},{"Add":"(de i32 getParse ()"},{"Add":" (let P (val $Parser)"},{"Add":" (set $Chr"},{"Add":" (if (i32 (symByte P))"},{"Add":" @"},{"Add":" (let C (val 3 P)"},{"Add":" (set 3 P (shr C 8))"},{"Add":" (if C (i32 (i8 C)) -1) ) ) ) ) )"},{"Add":""},{"Add":"(de parse (Nm (i1 . Skip) Eof Set)"},{"Add":" (let"},{"Add":" (Chr (val $Chr)"},{"Add":" Get (val (i8** $Get))"},{"Add":" Pars (val $Parser) )"},{"Add":" (set"},{"Add":" $Chr 0"},{"Add":" $Get (fun (i32) getParse)"},{"Add":" $Parser (push 0 (save Nm) Eof) )"},{"Add":" (when Skip"},{"Add":" (getParse) )"},{"Add":" (prog1"},{"Add":" (cond"},{"Add":" ((=0 Set) (rdList))"},{"Add":" ((== 1 Set) (read0 YES))"},{"Add":" ((=0 (token Set 0)) $Nil)"},{"Add":" (T"},{"Add":" (let (R (save (cons @ $Nil)) P R)"},{"Add":" (while (token Set 0)"},{"Add":" (setq P (set 2 P (cons @ $Nil))) )"},{"Add":" R ) ) )"},{"Add":" (set"},{"Add":" $Parser Pars"},{"Add":" (i8** $Get) Get"},{"Add":" $Chr Chr ) ) ) )"},{"Add":""},{"Add":"(local) (putString begString tglString endString)"},{"Add":""},{"Add":"(de void putString ((i8 . B))"},{"Add":" (byteSym B (val $StrP)) )"},{"Add":""},{"Add":"(de void begString ((i64* . P)) # [cnt last name link fun ptr]"},{"Add":" (set 6 P (i64 (val $StrP)))"},{"Add":" (link (ofs (set $StrP P) 2))"},{"Add":" (set"},{"Add":" 5 P (val (i64* $Put))"},{"Add":" $Put (fun (void i8) putString) ) )"},{"Add":""},{"Add":"(de void tglString ((i64* . P))"},{"Add":" (xchg (any (ofs P 4)) (any (i64* $Put))) )"},{"Add":""},{"Add":"(de endString ()"},{"Add":" (let (P (val $StrP) Q (ofs P 2))"},{"Add":" (set"},{"Add":" (i64* $Put) (val 5 P)"},{"Add":" $StrP (i64* (val 6 P)) )"},{"Add":" (drop Q"},{"Add":" (consStr (val Q)) ) ) )"},{"Add":""},{"Add":"# (any 'sym) -> any"},{"Add":"(de _Any (Exe)"},{"Add":" (if (sym? (val (tail (save (evSym (cdr Exe))))))"},{"Add":" $Nil"},{"Add":" (parse (name @) YES (hex \"20\") 1) ) ) # Blank, EOF"},{"Add":""},{"Add":"# (sym 'any) -> sym"},{"Add":"(de _Sym (Exe)"},{"Add":" (let X (eval (cadr Exe))"},{"Add":" (begString (push 4 NIL ZERO NIL NIL NIL)) # [cnt last name link fun ptr]"},{"Add":" (print X)"},{"Add":" (endString) ) )"},{"Add":""},{"Add":"# (str 'sym ['sym1]) -> lst"},{"Add":"# (str 'lst) -> sym"},{"Add":"(de _Str (Exe)"},{"Add":" (let (X (cdr Exe) Y (eval (car X)))"},{"Add":" (cond"},{"Add":" ((nil? Y) Y)"},{"Add":" ((num? Y) (argErr Exe Y))"},{"Add":" ((pair Y)"},{"Add":" (begString (push 4 NIL ZERO NIL NIL NIL)) # [cnt last name link fun ptr]"},{"Add":" (loop"},{"Add":" (print (++ Y))"},{"Add":" (? (atom Y))"},{"Add":" (space) )"},{"Add":" (endString) )"},{"Add":" ((sym? (setq Y (val (tail @)))) $Nil)"},{"Add":" ((atom (shift X))"},{"Add":" (parse (name Y) NO (hex \"5D0A\") 0) ) # '\\n', ']', EOF"},{"Add":" (T"},{"Add":" (save Y"},{"Add":" (parse (name Y) NO 0 (save (evSym X))) ) ) ) ) )"},{"Add":""},{"Add":"(local) (stdRead stdEval repl loadAll)"},{"Add":""},{"Add":"(de stdRead ((i8* . Prmt))"},{"Add":" (prog2"},{"Add":" (set"},{"Add":" $LinePrmt"},{"Add":" (if"},{"Add":" (or"},{"Add":" (nil? (runAt (val $Prompt)))"},{"Add":" (not (symb? @)) )"},{"Add":" Prmt"},{"Add":" (let"},{"Add":" (Nm (name (val (tail @)))"},{"Add":" N (bufSize Nm)"},{"Add":" P"},{"Add":" (set $ReplPrmt"},{"Add":" (alloc (val $ReplPrmt) (+ N (strlen Prmt))) ) )"},{"Add":" (bufString Nm P)"},{"Add":" (strcpy (ofs P (dec N)) Prmt)"},{"Add":" P ) )"},{"Add":" $ContPrmt ($ \" \") )"},{"Add":" (read1"},{"Add":" (if ((inFile (val $InFile)) tty)"},{"Add":" (char \"\\n\")"},{"Add":" (i32 0) ) )"},{"Add":" (set $LinePrmt (set $ContPrmt null))"},{"Add":" (while (gt0 (val $Chr))"},{"Add":" (? (== (val $Chr) (char \"\\n\"))"},{"Add":" (set $Chr 0) )"},{"Add":" (if (== (val $Chr) (char \"#\"))"},{"Add":" (comment)"},{"Add":" (? (> (val $Chr) (char \" \")))"},{"Add":" (call $Get) ) ) ) )"},{"Add":""},{"Add":"(de stdEval (Exe)"},{"Add":" (flushAll)"},{"Add":" (let (At (save (val $At)) X (eval Exe))"},{"Add":" (set $At3 (val $At2) $At2 At $At X)"},{"Add":" (outString ($ \"-> \"))"},{"Add":" (flushAll)"},{"Add":" (print X)"},{"Add":" (newline)"},{"Add":" X ) )"},{"Add":""},{"Add":"(de repl (Exe (i8* . Prmt) X)"},{"Add":" (if (and (symb? X) (== (firstByte X) (char \"-\")))"},{"Add":" (let E (save (parse (xName Exe X) YES (hex \"5D0A\") 0)) # '\\n', ']', EOF"},{"Add":" (evList E) )"},{"Add":" (let"},{"Add":" (Int (save (val $Intern))"},{"Add":" Tr1 (save (val $Transient))"},{"Add":" Tr2 (save (val 2 $Transient))"},{"Add":" Pr1 (save (val $PrivT))"},{"Add":" Pr2 (save (val 2 $PrivT))"},{"Add":" V (link (push -ZERO NIL))"},{"Add":" Raw (val Termio) )"},{"Add":" (when (nil? X)"},{"Add":" (setCooked)"},{"Add":" (unless (val $Repl)"},{"Add":" (set $Repl YES)"},{"Add":" (iSignal (val SIGINT Sig) (fun sig)) ) )"},{"Add":" (rdOpen Exe X (b8+ (ioFrame T)))"},{"Add":" (set $PrivT (set 2 $PrivT $Nil))"},{"Add":" (set $Rule (set $Transient (set 2 $Transient $Nil)))"},{"Add":" (setq X $Nil)"},{"Add":" (if (== (val $InFile) (val (val $InFiles))) # Stdin"},{"Add":" (until (nil? (stdRead Prmt))"},{"Add":" (let Y (set V @)"},{"Add":" (setq X"},{"Add":" (if (and (=0 (val $Chr)) Prmt)"},{"Add":" (stdEval Y)"},{"Add":" (eval Y) ) ) ) )"},{"Add":" (until (nil? (read1 0))"},{"Add":" (setq X (eval (set V @))) ) )"},{"Add":" (popInFiles)"},{"Add":" (when Raw"},{"Add":" (setRaw) )"},{"Add":" (set 2 $PrivT Pr2)"},{"Add":" (set $PrivT Pr1)"},{"Add":" (set 2 $Transient Tr2)"},{"Add":" (set $Transient Tr1)"},{"Add":" (set $Intern Int)"},{"Add":" X ) ) )"},{"Add":""},{"Add":"(de loadAll (Exe)"},{"Add":" (let X $Nil"},{"Add":" (loop"},{"Add":" (let (A (val $AV) P (val A))"},{"Add":" (?"},{"Add":" (or"},{"Add":" (=0 P)"},{"Add":" (and"},{"Add":" (== (val P) (char \"-\"))"},{"Add":" (=0 (val 2 P)) ) ) )"},{"Add":" (set $AV (inc A))"},{"Add":" (setq X (repl Exe null (mkStr P))) ) )"},{"Add":" X ) )"},{"Add":""},{"Add":"# (load 'any ..) -> any"},{"Add":"(de _Load (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (loop"},{"Add":" (let Y"},{"Add":" (if (t? (eval (++ X)))"},{"Add":" (loadAll Exe)"},{"Add":" (repl Exe ($ \"> \") @) )"},{"Add":" (? (atom X) Y) ) ) ) )"}]}},{"FileAdd":{"meta":{"basename":"httpGate.c","metadata":0},"context":[{"change":0,"pos":63931}],"contents":[{"Add":"// 04jul23 Software Lab. Alexander Burger"},{"Add":""},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":""},{"Add":"#include "},{"Add":"#include "},{"Add":"#include "},{"Add":""},{"Add":"typedef enum {NO,YES} bool;"},{"Add":""},{"Add":"typedef struct name {"},{"Add":" char *key, *ins;"},{"Add":" struct name *less, *more;"},{"Add":" int port;"},{"Add":" uid_t uid;"},{"Add":" gid_t gid;"},{"Add":" char *dir, *log, *ev[5], *av[1];"},{"Add":"} name;"},{"Add":""},{"Add":"static bool Hup;"},{"Add":"static name *Names;"},{"Add":"static char *Config;"},{"Add":"static int CliSock, SrvSock;"},{"Add":"static char Ciphers[] = \"EECDH+AESGCM:EDH+AESGCM:AES256+EECDH:AES256+EDH\";"},{"Add":""},{"Add":"static char Head_302[] ="},{"Add":" \"HTTP/1.0 302 Found\\r\\n\""},{"Add":" \"Server: PicoLisp\\r\\n\""},{"Add":" \"Location: %s\\r\\n\""},{"Add":" \"\\r\\n\";"},{"Add":""},{"Add":"static char Head_410[] ="},{"Add":" \"HTTP/1.0 410 Gone\\r\\n\""},{"Add":" \"Server: PicoLisp\\r\\n\""},{"Add":" \"Content-Type: text/html; charset=utf-8\\r\\n\""},{"Add":" \"\\r\\n\";"},{"Add":""},{"Add":"static void giveup(char *msg) {"},{"Add":" fprintf(stderr, \"httpGate: %s\\n\", msg);"},{"Add":" exit(1);"},{"Add":"}"},{"Add":""},{"Add":"static int readNames(void) {"},{"Add":" FILE *fp;"},{"Add":" name *np, **t;"},{"Add":" int port, cnt;"},{"Add":" struct passwd *pw;"},{"Add":" char *p, *q, *ps, line[4096];"},{"Add":" static char delim[] = \" \\n\";"},{"Add":""},{"Add":" if (!(fp = fopen(Config, \"r\"))) // Lines ordered by"},{"Add":" giveup(\"Can't open name file\"); // bin/balance -sort"},{"Add":" port = 8080;"},{"Add":" while (p = fgets(line, 4096, fp)) {"},{"Add":" while (*p == ' ')"},{"Add":" ++p;"},{"Add":" if (*p && *p != '\\n' && *p != '#') {"},{"Add":" np = malloc(sizeof(name));"},{"Add":" np->less = np->more = NULL;"},{"Add":" p = strtok(p, delim);"},{"Add":" np->ins = NULL;"},{"Add":" if (q = strchr(p, '/')) {"},{"Add":" *q++ = '\\0';"},{"Add":" np->ins = strdup(q);"},{"Add":" }"},{"Add":" np->key = strdup(p);"},{"Add":" if ((np->port = atoi(ps = strtok(NULL, delim))) == 0)"},{"Add":" np->dir = strdup(strtok(NULL, delim));"},{"Add":" else {"},{"Add":" if (!(pw = getpwnam(strtok(NULL, delim))) || pw->pw_uid == 0 || pw->pw_gid == 0) {"},{"Add":" free(np->key);"},{"Add":" free(np);"},{"Add":" continue;"},{"Add":" }"},{"Add":" np->uid = pw->pw_uid;"},{"Add":" np->gid = pw->pw_gid;"},{"Add":" p = np->ev[0] = malloc(5 + strlen(np->key) + 1);"},{"Add":" strcpy(p, \"NAME=\"), strcpy(p+5, np->key);"},{"Add":" p = np->ev[1] = malloc(5 + strlen(pw->pw_dir) + 1);"},{"Add":" strcpy(p, \"HOME=\"), strcpy(p+5, pw->pw_dir);"},{"Add":" p = np->ev[2] = malloc(5 + strlen(ps) + 1);"},{"Add":" strcpy(p, \"PORT=\"), strcpy(p+5, ps);"},{"Add":" p = np->ev[3] = malloc(5 + strlen(q = getenv(\"LANG\")) + 1);"},{"Add":" strcpy(p, \"LANG=\"), strcpy(p+5, q);"},{"Add":" np->ev[4] = NULL;"},{"Add":" np->dir = strdup(strtok(NULL, delim));"},{"Add":" np->log = *(p = strtok(NULL, delim)) == '^'? NULL : strdup(p);"},{"Add":" cnt = 0;"},{"Add":" while (p = strtok(NULL, delim)) {"},{"Add":" if (*p == '^')"},{"Add":" np->av[cnt] = strdup(\"\");"},{"Add":" else {"},{"Add":" p = np->av[cnt] = strdup(p);"},{"Add":" while (p = strchr(p, '^'))"},{"Add":" *p++ = ' ';"},{"Add":" }"},{"Add":" np = realloc(np, sizeof(name) + ++cnt * sizeof(char*));"},{"Add":" }"},{"Add":" np->av[cnt] = NULL;"},{"Add":" }"},{"Add":" p = np->key;"},{"Add":" if (!Names || p[0] == '@' && p[1] == '\\0')"},{"Add":" port = np->port;"},{"Add":" for (t = &Names; *t; t = strcasecmp(p, (*t)->key) >= 0? &(*t)->more : &(*t)->less);"},{"Add":" *t = np;"},{"Add":" }"},{"Add":" }"},{"Add":" fclose(fp);"},{"Add":" return port;"},{"Add":"}"},{"Add":""},{"Add":"static void freeNames(name *np) {"},{"Add":" int i;"},{"Add":""},{"Add":" free(np->key);"},{"Add":" if (np->less)"},{"Add":" freeNames(np->less);"},{"Add":" if (np->more)"},{"Add":" freeNames(np->more);"},{"Add":" free(np->dir);"},{"Add":" if (np->port) {"},{"Add":" free(np->log);"},{"Add":" for (i = 0; i < 4; ++i)"},{"Add":" free(np->ev[i]);"},{"Add":" for (i = 0; np->av[i]; ++i)"},{"Add":" free(np->av[i]);"},{"Add":" }"},{"Add":" free(np);"},{"Add":"}"},{"Add":""},{"Add":"static name *findName(char *p, char *q) {"},{"Add":" name *np;"},{"Add":" int n, c;"},{"Add":""},{"Add":" if (p == q) {"},{"Add":" if (Names && !Names->more && !Names->less)"},{"Add":" return Names;"},{"Add":" p = \"@\";"},{"Add":" }"},{"Add":" c = *q, *q = '\\0';"},{"Add":" for (np = Names; np; np = n > 0? np->more : np->less)"},{"Add":" if ((n = strcasecmp(p, np->key)) == 0) {"},{"Add":" *q = c;"},{"Add":" return np;"},{"Add":" }"},{"Add":" *q = c;"},{"Add":" return NULL;"},{"Add":"}"},{"Add":""},{"Add":"static int slow(SSL *ssl, int fd, char *p, int cnt) {"},{"Add":" int n;"},{"Add":""},{"Add":" while ((n = ssl? SSL_read(ssl, p, cnt) : read(fd, p, cnt)) < 0)"},{"Add":" if (errno != EINTR)"},{"Add":" return 0;"},{"Add":" return n;"},{"Add":"}"},{"Add":""},{"Add":"static int rdLine(SSL *ssl, int fd, char *p, int cnt) {"},{"Add":" int n, len;"},{"Add":""},{"Add":" for (len = 0;;) {"},{"Add":" if ((n = ssl? SSL_read(ssl, p, cnt) : read(fd, p, cnt)) <= 0) {"},{"Add":" if (!n || errno != EINTR)"},{"Add":" return 0;"},{"Add":" }"},{"Add":" else {"},{"Add":" len += n;"},{"Add":" if (memchr(p, '\\n', n))"},{"Add":" return len;"},{"Add":" p += n;"},{"Add":" if ((cnt -= n) == 0)"},{"Add":" return 0;"},{"Add":" }"},{"Add":" }"},{"Add":"}"},{"Add":""},{"Add":"static void wrBytes(int fd, char *p, int cnt) {"},{"Add":" int n;"},{"Add":""},{"Add":" do"},{"Add":" if ((n = write(fd, p, cnt)) >= 0)"},{"Add":" p += n, cnt -= n;"},{"Add":" else if (errno != EINTR)"},{"Add":" exit(1);"},{"Add":" while (cnt);"},{"Add":"}"},{"Add":""},{"Add":"static void sslWrite(SSL *ssl, void *p, int cnt) {"},{"Add":" if (SSL_write(ssl, p, cnt) <= 0)"},{"Add":" exit(1);"},{"Add":"}"},{"Add":""},{"Add":"static bool setDH(SSL_CTX *ctx) {"},{"Add":" EC_KEY *ecdh;"},{"Add":""},{"Add":" if (!(ecdh = EC_KEY_new_by_curve_name(NID_X9_62_prime256v1)))"},{"Add":" return NO;"},{"Add":" if (!SSL_CTX_set_tmp_ecdh(ctx, ecdh))"},{"Add":" return NO;"},{"Add":" EC_KEY_free(ecdh);"},{"Add":" SSL_CTX_set_cipher_list(ctx, Ciphers);"},{"Add":" return YES;"},{"Add":"}"},{"Add":""},{"Add":"static int gatePort(unsigned short port) {"},{"Add":" int sd, n;"},{"Add":" struct sockaddr_in6 addr;"},{"Add":""},{"Add":" if ((sd = socket(AF_INET6, SOCK_STREAM, 0)) < 0)"},{"Add":" exit(1);"},{"Add":" n = 0;"},{"Add":"#ifndef __OpenBSD__"},{"Add":" if (setsockopt(sd, IPPROTO_IPV6, IPV6_V6ONLY, &n, sizeof(n)) < 0)"},{"Add":" exit(1);"},{"Add":"#endif"},{"Add":" memset(&addr, 0, sizeof(addr));"},{"Add":" addr.sin6_family = AF_INET6;"},{"Add":" addr.sin6_addr = in6addr_any;"},{"Add":" n = 1;"},{"Add":" if (setsockopt(sd, SOL_SOCKET, SO_REUSEADDR, &n, sizeof(n)) < 0)"},{"Add":" exit(1);"},{"Add":" addr.sin6_port = htons(port);"},{"Add":" if (bind(sd, (struct sockaddr*)&addr, sizeof(addr)) < 0)"},{"Add":" exit(1);"},{"Add":" if (listen(sd,5) < 0)"},{"Add":" exit(1);"},{"Add":" return sd;"},{"Add":"}"},{"Add":""},{"Add":"static int gateConnect(int port, name *np) {"},{"Add":" int sd;"},{"Add":" struct sockaddr_in6 addr;"},{"Add":""},{"Add":" if ((sd = socket(AF_INET6, SOCK_STREAM, 0)) < 0)"},{"Add":" exit(1);"},{"Add":" memset(&addr, 0, sizeof(addr));"},{"Add":" addr.sin6_family = AF_INET6;"},{"Add":" addr.sin6_addr = in6addr_loopback;"},{"Add":" addr.sin6_port = htons((unsigned short)port);"},{"Add":" if (connect(sd, (struct sockaddr*)&addr, sizeof(addr)) >= 0)"},{"Add":" return sd;"},{"Add":" if (np) {"},{"Add":" int fd;"},{"Add":" pid_t pid;"},{"Add":""},{"Add":" if (np->log) {"},{"Add":" struct flock fl;"},{"Add":" char log[strlen(np->dir) + 1 + strlen(np->log) + 1];"},{"Add":""},{"Add":" if (np->log[0] == '/')"},{"Add":" strcat(log, np->log);"},{"Add":" else"},{"Add":" sprintf(log, \"%s/%s\", np->dir, np->log);"},{"Add":" if ((fd = open(log, O_RDWR)) >= 0) {"},{"Add":" fl.l_type = F_WRLCK;"},{"Add":" fl.l_whence = SEEK_SET;"},{"Add":" fl.l_start = 0;"},{"Add":" fl.l_len = 0;"},{"Add":" if (fcntl(fd, F_SETLK, &fl) < 0) {"},{"Add":" if (errno != EACCES && errno != EAGAIN ||"},{"Add":" fcntl(fd, F_SETLKW, &fl) < 0 ||"},{"Add":" connect(sd, (struct sockaddr*)&addr, sizeof(addr)) < 0)"},{"Add":" return -1;"},{"Add":" close(fd);"},{"Add":" return sd;"},{"Add":" }"},{"Add":" }"},{"Add":" }"},{"Add":" if ((pid = fork()) == 0) {"},{"Add":" if (setgid(np->gid) == 0 && setuid(np->uid) == 0 && chdir(np->dir) == 0) {"},{"Add":" setpgid(0,0);"},{"Add":" if (np->log)"},{"Add":" freopen(np->log, \"a\", stdout);"},{"Add":" dup2(STDOUT_FILENO, STDERR_FILENO);"},{"Add":" execve(np->av[0], np->av, np->ev);"},{"Add":" exit(1);"},{"Add":" }"},{"Add":" }"},{"Add":" if (pid > 0) {"},{"Add":" setpgid(pid,0);"},{"Add":" int i = 200;"},{"Add":" do {"},{"Add":" usleep(100000); // 100 ms"},{"Add":" if (connect(sd, (struct sockaddr*)&addr, sizeof(addr)) >= 0) {"},{"Add":" if (np->log && fd >= 0)"},{"Add":" close(fd);"},{"Add":" return sd;"},{"Add":" }"},{"Add":" } while (--i);"},{"Add":" }"},{"Add":" }"},{"Add":" return -1;"},{"Add":"}"},{"Add":""},{"Add":""},{"Add":"static pid_t Buddy;"},{"Add":""},{"Add":"static void doSigAlarm(int n __attribute__((unused))) {"},{"Add":" kill(Buddy, SIGTERM);"},{"Add":" shutdown(CliSock, SHUT_RDWR);"},{"Add":" shutdown(SrvSock, SHUT_RDWR);"},{"Add":" exit(0);"},{"Add":"}"},{"Add":""},{"Add":"static void doSigUsr1(int n __attribute__((unused))) {"},{"Add":" alarm(420);"},{"Add":"}"},{"Add":""},{"Add":"static void doSigHup(int n __attribute__((unused))) {"},{"Add":" Hup = YES;"},{"Add":"}"},{"Add":""},{"Add":"static void iSignal(int n, void (*foo)(int)) {"},{"Add":" struct sigaction act;"},{"Add":""},{"Add":" act.sa_handler = foo;"},{"Add":" sigemptyset(&act.sa_mask);"},{"Add":" act.sa_flags = 0;"},{"Add":" sigaction(n, &act, NULL);"},{"Add":"}"},{"Add":""},{"Add":"int main(int ac, char *av[]) {"},{"Add":" int cnt = ac>4? ac-3 : 1, ports[cnt], n, sd;"},{"Add":" struct sockaddr_in6 addr;"},{"Add":" char s[INET6_ADDRSTRLEN];"},{"Add":" char *p, *q, *gate;"},{"Add":" SSL_CTX *ctx;"},{"Add":" SSL *ssl;"},{"Add":""},{"Add":" if (ac < 3)"},{"Add":" giveup(\"port dflt [pem [deny ..]]\");"},{"Add":" sd = gatePort(atoi(av[1])); // e.g. 80 or 443"},{"Add":" ports[0] = (int)strtol(p = av[2], &q, 10); // e.g. 8080"},{"Add":" if (q == p || *q != '\\0')"},{"Add":" Config = p, ports[0] = readNames();"},{"Add":" if (ac == 3 || *av[3] == '\\0')"},{"Add":" ssl = NULL, gate = \"X-Pil: *Gate=http\\r\\nX-Pil: *Adr=%s\\r\\n\";"},{"Add":" else {"},{"Add":" SSL_library_init();"},{"Add":" SSL_load_error_strings();"},{"Add":" if (p = strchr(av[3], ','))"},{"Add":" *p++ = '\\0';"},{"Add":" else"},{"Add":" p = av[3];"},{"Add":" if (!(ctx = SSL_CTX_new(SSLv23_server_method())) ||"},{"Add":" !SSL_CTX_use_PrivateKey_file(ctx, av[3], SSL_FILETYPE_PEM) ||"},{"Add":" !SSL_CTX_use_certificate_chain_file(ctx, p) ||"},{"Add":" !SSL_CTX_check_private_key(ctx) || !setDH(ctx) ) {"},{"Add":" ERR_print_errors_fp(stderr);"},{"Add":" giveup(\"SSL init\");"},{"Add":" }"},{"Add":" SSL_CTX_set_options(ctx,"},{"Add":" SSL_OP_NO_SSLv2 | SSL_OP_NO_SSLv3 | SSL_OP_NO_TLSv1 | SSL_OP_NO_TLSv1_1 |"},{"Add":" SSL_OP_ALL | SSL_OP_CIPHER_SERVER_PREFERENCE | SSL_OP_NO_COMPRESSION );"},{"Add":" ssl = SSL_new(ctx), gate = \"X-Pil: *Gate=https\\r\\nX-Pil: *Adr=%s\\r\\n\";"},{"Add":" }"},{"Add":" for (n = 1; n < cnt; ++n)"},{"Add":" ports[n] = atoi(av[n+3]);"},{"Add":" signal(SIGCHLD, SIG_IGN); /* Prevent zombies */"},{"Add":" if ((n = fork()) < 0)"},{"Add":" giveup(\"detach\");"},{"Add":" if (n)"},{"Add":" return 0;"},{"Add":" setsid();"},{"Add":" if (Config)"},{"Add":" iSignal(SIGHUP, doSigHup);"},{"Add":" else"},{"Add":" signal(SIGHUP, SIG_IGN);"},{"Add":" for (;;) {"},{"Add":" if (Hup) {"},{"Add":" Hup = NO;"},{"Add":" freeNames(Names);"},{"Add":" Names = NULL;"},{"Add":" ports[0] = readNames();"},{"Add":" }"},{"Add":" socklen_t len = sizeof(addr);"},{"Add":" if ((CliSock = accept(sd, (struct sockaddr*)&addr, &len)) >= 0 && (n = fork()) >= 0) {"},{"Add":" if (!n) {"},{"Add":" name *np;"},{"Add":" int fd, port, i;"},{"Add":" char buf[4096], buf2[64];"},{"Add":""},{"Add":" close(sd);"},{"Add":""},{"Add":" alarm(420);"},{"Add":" if (ssl) {"},{"Add":" SSL_set_fd(ssl, CliSock);"},{"Add":" if (SSL_accept(ssl) < 0)"},{"Add":" return 1;"},{"Add":" }"},{"Add":" n = rdLine(ssl, CliSock, buf, sizeof(buf));"},{"Add":" alarm(0);"},{"Add":" if (n < 6)"},{"Add":" return 1;"},{"Add":""},{"Add":" /* \"GET /url HTTP/1.x\""},{"Add":" * \"GET /8080/url HTTP/1.x\""},{"Add":" * \"POST /url HTTP/1.x\""},{"Add":" * \"POST /8080/url HTTP/1.x\""},{"Add":" */"},{"Add":" if ((p = strchr(buf, ' ')) && *++p == '/')"},{"Add":" ++p;"},{"Add":" else"},{"Add":" return 1;"},{"Add":""},{"Add":" np = NULL;"},{"Add":" port = (int)strtol(p, &q, 10);"},{"Add":" if (q == p || *q != ' ' && *q != '/' && *q != '?') {"},{"Add":" if ((q = strpbrk(p, \" /?\")) && (np = findName(p, q)))"},{"Add":" port = np->port;"},{"Add":" else"},{"Add":" q = p, port = (np = findName(p, q))? np->port : ports[0]; // \"@\"?"},{"Add":" }"},{"Add":" else if (port < 1024) {"},{"Add":" if (np = findName(p, q))"},{"Add":" port = np->port;"},{"Add":" else"},{"Add":" return 1;"},{"Add":" }"},{"Add":" else"},{"Add":" for (i = 1; i < cnt; ++i)"},{"Add":" if (port == ports[i])"},{"Add":" return 1;"},{"Add":""},{"Add":" if (np && port == 0) {"},{"Add":" i = sprintf(buf, Head_302, np->dir);"},{"Add":" if (ssl)"},{"Add":" sslWrite(ssl, buf, i);"},{"Add":" else"},{"Add":" wrBytes(CliSock, buf, i);"},{"Add":" return 0;"},{"Add":" }"},{"Add":" if ((SrvSock = gateConnect(port, np)) < 0) {"},{"Add":" if (!memchr(q,'~', buf + n - q))"},{"Add":" return 1;"},{"Add":" if ((fd = open(\"void\", O_RDONLY)) < 0)"},{"Add":" return 1;"},{"Add":" alarm(420);"},{"Add":" if (ssl)"},{"Add":" sslWrite(ssl, Head_410, strlen(Head_410));"},{"Add":" else"},{"Add":" wrBytes(CliSock, Head_410, strlen(Head_410));"},{"Add":" alarm(0);"},{"Add":" while ((n = read(fd, buf, sizeof(buf))) > 0) {"},{"Add":" alarm(420);"},{"Add":" if (ssl)"},{"Add":" sslWrite(ssl, buf, n);"},{"Add":" else"},{"Add":" wrBytes(CliSock, buf, n);"},{"Add":" alarm(0);"},{"Add":" }"},{"Add":" return 0;"},{"Add":" }"},{"Add":""},{"Add":" wrBytes(SrvSock, buf, p - buf);"},{"Add":" if (np && (p = np->ins))"},{"Add":" wrBytes(SrvSock, p, strlen(p));"},{"Add":" else if (*q == '/')"},{"Add":" ++q;"},{"Add":" p = q;"},{"Add":" while (*p++ != '\\n')"},{"Add":" if (p >= buf + n)"},{"Add":" return 1;"},{"Add":" wrBytes(SrvSock, q, p - q);"},{"Add":" inet_ntop(AF_INET6, &addr.sin6_addr, s, INET6_ADDRSTRLEN);"},{"Add":" wrBytes(SrvSock, buf2, sprintf(buf2, gate, s));"},{"Add":" if (ssl)"},{"Add":" wrBytes(SrvSock, buf2, sprintf(buf2, \"X-Pil: *Cipher=%s\\r\\n\", SSL_get_cipher(ssl)));"},{"Add":" wrBytes(SrvSock, p, buf + n - p);"},{"Add":""},{"Add":" iSignal(SIGALRM, doSigAlarm);"},{"Add":" iSignal(SIGUSR1, doSigUsr1);"},{"Add":" if (Buddy = fork()) {"},{"Add":" for (;;) {"},{"Add":" alarm(420);"},{"Add":" n = slow(ssl, CliSock, buf, sizeof(buf));"},{"Add":" alarm(0);"},{"Add":" if (!n)"},{"Add":" break;"},{"Add":" wrBytes(SrvSock, buf, n);"},{"Add":" }"},{"Add":" shutdown(CliSock, SHUT_RD);"},{"Add":" shutdown(SrvSock, SHUT_WR);"},{"Add":" }"},{"Add":" else {"},{"Add":" Buddy = getppid();"},{"Add":" while ((n = read(SrvSock, buf, sizeof(buf))) > 0) {"},{"Add":" kill(Buddy, SIGUSR1);"},{"Add":" alarm(420);"},{"Add":" if (ssl)"},{"Add":" sslWrite(ssl, buf, n);"},{"Add":" else"},{"Add":" wrBytes(CliSock, buf, n);"},{"Add":" alarm(0);"},{"Add":" }"},{"Add":" shutdown(SrvSock, SHUT_RD);"},{"Add":" shutdown(CliSock, SHUT_WR);"},{"Add":" }"},{"Add":" return 0;"},{"Add":" }"},{"Add":" close(CliSock);"},{"Add":" }"},{"Add":" }"},{"Add":"}"}]}},{"FileAdd":{"meta":{"basename":"ht.ll","metadata":0},"context":[{"change":0,"pos":63931}],"contents":[{"Add":"source_filename = \"ht.l\""},{"Add":""},{"Add":"declare {i64, i1} @llvm.uadd.with.overflow.i64(i64, i64)"},{"Add":"declare {i64, i1} @llvm.usub.with.overflow.i64(i64, i64)"},{"Add":"declare i64 @llvm.fshl.i64(i64, i64, i64)"},{"Add":"declare i64 @llvm.fshr.i64(i64, i64, i64)"},{"Add":"declare void @llvm.memcpy.p0i8.p0i8.i64(i8*, i8*, i64, i1)"},{"Add":"declare void @llvm.memset.p0i8.i64(i8*, i8, i64, i1)"},{"Add":"declare i8* @llvm.stacksave()"},{"Add":"declare void @llvm.stackrestore(i8*)"},{"Add":""},{"Add":"@$AV0 = external global i8*"},{"Add":"@$AV = external global i8**"},{"Add":"@$PilHome = external global i8*"},{"Add":"@$PilLen = external global i64"},{"Add":"@$UsrHome = external global i8*"},{"Add":"@$UsrLen = external global i64"},{"Add":"@$Heaps = external global i64"},{"Add":"@$Avail = external global i64"},{"Add":"@$Extern = external global i64"},{"Add":"@$ExtCnt = external global i64"},{"Add":"@$ExtSkip = external global i64"},{"Add":"@$Coroutines = external global i8*"},{"Add":"@$Current = external global i8*"},{"Add":"@$CrtLast = external global i8*"},{"Add":"@$CrtFree = external global i8*"},{"Add":"@$StkLimit = external global i8*"},{"Add":"@$StkSizeT = external global i64"},{"Add":"@$StkSize = external global i64"},{"Add":"@$Stdin = external global i8*"},{"Add":"@$Stdout = external global i8*"},{"Add":"@$LinePtr = external global i8*"},{"Add":"@$LineBuf = external global i8*"},{"Add":"@$LinePrmt = external global i8*"},{"Add":"@$ReplPrmt = external global i8*"},{"Add":"@$ContPrmt = external global i8*"},{"Add":"@$Ret = external global i64"},{"Add":"@$TtyPid = external global i32"},{"Add":"@$InFDs = external global i32"},{"Add":"@$InFiles = external global i8**"},{"Add":"@$OutFiles = external global i8**"},{"Add":"@$IoCnt = external global i32"},{"Add":"@$IoIx = external global i64"},{"Add":"@$IoChar = external global i64"},{"Add":"@$PutBin = external global void(i8)*"},{"Add":"@$GetBin = external global i32()*"},{"Add":"@$OutFDs = external global i32"},{"Add":"@$Nfds = external global i32"},{"Add":"@$Poll = external global i64*"},{"Add":"@$SeedL = external global i64"},{"Add":"@$SeedH = external global i64"},{"Add":"@$USec = external global i64"},{"Add":"@$Child = external global i8*"},{"Add":"@$Children = external global i32"},{"Add":"@$Slot = external global i32"},{"Add":"@$Spkr = external global i32"},{"Add":"@$Mic = external global i32"},{"Add":"@$SpMiPipe = external global [2 x i32]"},{"Add":"@$Talking = external global i32"},{"Add":"@$Hear = external global i32"},{"Add":"@$Tell = external global i32"},{"Add":"@$TellBuf = external global i8*"},{"Add":"@$Ptr = external global i8*"},{"Add":"@$End = external global i8*"},{"Add":"@$BufX = external global i8*"},{"Add":"@$PtrX = external global i8*"},{"Add":"@$EndX = external global i8*"},{"Add":"@$ExtN = external global i32"},{"Add":"@$Extn = external global i32"},{"Add":"@$StrP = external global i64*"},{"Add":"@$GcCount = external global i64"},{"Add":"@$DbFiles = external global i8*"},{"Add":"@$DbFile = external global i8*"},{"Add":"@$DBs = external global i32"},{"Add":"@$MaxBlkSize = external global i32"},{"Add":"@$DbBlock = external global i8*"},{"Add":"@$BlkIndex = external global i64"},{"Add":"@$BlkLink = external global i64"},{"Add":"@$BlkPtr = external global i8*"},{"Add":"@$BlkEnd = external global i8*"},{"Add":"@$DbJnl = external global i8*"},{"Add":"@$DbLog = external global i8*"},{"Add":"@$Signal = external global [16 x i32]"},{"Add":"@SymTab = external global [876 x i64]"},{"Add":"@gcData = external global [53 x i64]"},{"Add":"@cbFuns = external global [24 x i64]"},{"Add":"@env = external global [21 x i64]"},{"Add":"@$Cell = external global [2 x i64]"},{"Add":"@$Version = external global [3 x i64]"},{"Add":"@$TBuf = external global [2 x i8]"},{"Add":"@$Month = external global [13 x i8]"},{"Add":"@$Repl = external global i1"},{"Add":"@$PRepl = external global i1"},{"Add":"@$Jam = external global i1"},{"Add":"@$InBye = external global i1"},{"Add":"@$Sync = external global i1"},{"Add":"@$Empty = constant [1 x i8] c\"\\00\""},{"Add":"@$Delim = constant [16 x i8] c\" \\09\\0A\\0D\\22'(),[]`{}~\\00\""},{"Add":"declare i8* @malloc(i64)"},{"Add":"declare i8* @realloc(i8*, i64)"},{"Add":"declare void @free(i8*)"},{"Add":"declare i32 @fork()"},{"Add":"declare i8* @getenv(i8*)"},{"Add":"declare i32 @setenv(i8*, i8*, i32)"},{"Add":"declare i8* @getcwd(i8*, i64)"},{"Add":"declare i32 @chdir(i8*)"},{"Add":"declare i32 @getpid()"},{"Add":"declare i32 @getpgrp()"},{"Add":"declare i32 @setsid()"},{"Add":"declare i32 @alarm(i32)"},{"Add":"declare i32 @setpgid(i32, i32)"},{"Add":"declare i32 @execvp(i8*, i8**)"},{"Add":"declare i32 @isatty(i32)"},{"Add":"declare i32 @openpty(i32*, i32*, i8*, i8*, i8*)"},{"Add":"declare i32 @login_tty(i32)"},{"Add":"declare i32 @tcgetattr(i32, i8*)"},{"Add":"declare i32 @tcgetpgrp(i32)"},{"Add":"declare i32 @tcsetpgrp(i32, i32)"},{"Add":"declare i64 @read(i32, i8*, i64)"},{"Add":"declare i64 @write(i32, i8*, i64)"},{"Add":"declare i64 @pread(i32, i8*, i64, i64)"},{"Add":"declare i64 @pwrite(i32, i8*, i64, i64)"},{"Add":"declare i32 @fread(i8*, i64, i64, i8*)"},{"Add":"declare i32 @fwrite(i8*, i64, i64, i8*)"},{"Add":"declare i32 @putc_unlocked(i32, i8*)"},{"Add":"declare i32 @getc_unlocked(i8*)"},{"Add":"declare i8* @fopen(i8*, i8*)"},{"Add":"declare i32 @fflush(i8*)"},{"Add":"declare i32 @feof(i8*)"},{"Add":"declare i32 @fclose(i8*)"},{"Add":"declare i32 @fileno(i8*)"},{"Add":"declare i32 @fsync(i32)"},{"Add":"declare i32 @pipe(i32*)"},{"Add":"declare i32 @memcmp(i8*, i8*, i64)"},{"Add":"declare i64 @strlen(i8*)"},{"Add":"declare i8* @strcpy(i8*, i8*)"},{"Add":"declare i8* @strdup(i8*)"},{"Add":"declare i32 @strcmp(i8*, i8*)"},{"Add":"declare i8* @strchr(i8*, i32)"},{"Add":"declare i8* @strrchr(i8*, i32)"},{"Add":"declare i8* @dlsym(i8*, i8*)"},{"Add":"declare i8* @dlerror()"},{"Add":"declare i32 @dup(i32)"},{"Add":"declare i32 @dup2(i32, i32)"},{"Add":"declare i32 @close(i32)"},{"Add":"declare i8* @signal(i32, i8*)"},{"Add":"declare i32 @waitpid(i32, i32*, i32)"},{"Add":"declare i32 @poll(i64*, i32, i64)"},{"Add":"declare i32 @setjmp(i8*)"},{"Add":"declare void @longjmp(i8*, i32)"},{"Add":"declare i32 @kill(i32, i32)"},{"Add":"declare void @exit(i32)"},{"Add":"declare void @add_history(i8*)"},{"Add":"declare i8*** @history_list()"},{"Add":"declare void @clear_history()"},{"Add":"@TgOS = external global i8"},{"Add":"@TgCPU = external global i8"},{"Add":"@PipeBufSize = external global i32"},{"Add":"@Fsign = external global i1"},{"Add":"@Fdigit = external global i64"},{"Add":"declare i8* @stderrMsg(i8*, i8*)"},{"Add":"declare void @gPrintf(i8*, i32, i8*, i8*)"},{"Add":"declare i8* @strErrno()"},{"Add":"declare i32 @openRd(i8*)"},{"Add":"declare i32 @openWr(i8*)"},{"Add":"declare i32 @openRdWr(i8*)"},{"Add":"declare i32 @openRdWrExcl(i8*)"},{"Add":"declare i32 @openRdWrCreate(i8*)"},{"Add":"declare i32 @openRdWrAppend(i8*)"},{"Add":"declare i32 @openWrAppend(i8*)"},{"Add":"declare i1 @fseekOfs(i8*, i32)"},{"Add":"declare i1 @fseek0(i8*)"},{"Add":"declare i1 @seek0(i32)"},{"Add":"declare i1 @truncate0(i32)"},{"Add":"declare i32 @socketPair(i32*)"},{"Add":"declare i32 @fcntlCloExec(i32)"},{"Add":"declare void @fcntlSetFl(i32, i32)"},{"Add":"declare i32 @nonBlocking(i32)"},{"Add":"declare void @fcntlSetOwn(i32, i32)"},{"Add":"declare i8* @getDir(i8*)"},{"Add":"declare void @initReadline()"},{"Add":"declare i8* @gReadline(i8*)"},{"Add":"declare void @rlHide()"},{"Add":"declare void @rlShow()"},{"Add":"declare void @rlSigBeg()"},{"Add":"declare void @rlSigEnd()"},{"Add":"declare i8* @currentLine()"},{"Add":"@Sig = external global i32"},{"Add":"@SigDfl = external global i8*"},{"Add":"@SigIgn = external global i8*"},{"Add":"declare i32 @gSignal(i32)"},{"Add":"declare void @iSignal(i32, i8*)"},{"Add":"declare void @sigUnblock(i32)"},{"Add":"declare void @sigChld(i32)"},{"Add":"declare i32 @waitWuntraced(i32, i32*)"},{"Add":"declare i32 @wifStopped(i32*)"},{"Add":"declare i32 @nErrno()"},{"Add":"declare i32 @gErrno()"},{"Add":"@Tio = external global i1"},{"Add":"@OrgTermio = external global i8"},{"Add":"@Termio = external global i8*"},{"Add":"declare void @stopTerm()"},{"Add":"declare void @setRaw()"},{"Add":"declare void @setCooked()"},{"Add":"declare i1 @reopenTty(i8*)"},{"Add":"declare i64 @getUsec(i1)"},{"Add":"declare i64 @getMsec()"},{"Add":"declare i64 @getDate()"},{"Add":"declare i64 @getGmDate()"},{"Add":"declare i64 @getTime()"},{"Add":"declare i64 @getGmTime()"},{"Add":"declare i8* @ulimStk()"},{"Add":"declare i64 @fileInfo(i1, i1, i8*, i64*)"},{"Add":"declare void @pollIn(i32, i64*)"},{"Add":"declare void @pollOut(i32, i64*)"},{"Add":"declare void @pollIgn(i64*)"},{"Add":"declare i32 @gPoll(i64*, i32, i64)"},{"Add":"declare i1 @readyIn(i64*)"},{"Add":"declare i1 @readyOut(i64*)"},{"Add":"declare i32 @rdLock(i32, i64, i64, i1)"},{"Add":"declare i32 @wrLock(i32, i64, i64, i1)"},{"Add":"declare i32 @unLock(i32, i64, i64)"},{"Add":"declare i32 @getLock(i32, i64, i64)"},{"Add":"@JmpBufSize = external global i64"},{"Add":"@QuitRst = external global i8"},{"Add":"declare i8* @dlOpen(i8*)"},{"Add":"declare i8* @ffiPrep(i8*, i8*, i64)"},{"Add":"declare i64 @ffiCall(i8*, i64)"},{"Add":"declare i64 @boxFloat(i32, i64)"},{"Add":"declare i64 @boxFlt()"},{"Add":"declare i64 @boxDouble(i64, i64)"},{"Add":"declare i64 @boxDbl()"},{"Add":"declare void @bufFloat(i64, i64, i8*)"},{"Add":"declare void @bufDouble(i64, i64, i8*)"},{"Add":"declare i1 @chance(i64)"},{"Add":"declare i1 @isLowc(i32)"},{"Add":"declare i1 @isUppc(i32)"},{"Add":"declare i1 @isLetterOrDigit(i32)"},{"Add":"declare i32 @toUpperCase(i32)"},{"Add":"declare i32 @toLowerCase(i32)"},{"Add":"declare i64 @dbg(i64, i64)"},{"Add":"declare i1 @equal(i64, i64)"},{"Add":"declare i64 @compare(i64, i64)"},{"Add":"declare i64 @evList(i64)"},{"Add":"declare i64 @cons(i64, i64)"},{"Add":"declare i64 @cons2(i64, i64, i64)"},{"Add":"declare i64 @cons3(i64, i64, i64, i64)"},{"Add":"declare i64 @consStr(i64)"},{"Add":"declare i64 @bufSize(i64)"},{"Add":"declare i8* @bufString(i64, i8*)"},{"Add":"declare i64 @mkStr(i8*)"},{"Add":"declare i8 @firstByte(i64)"},{"Add":"declare void @pack(i64, i64*)"},{"Add":"declare i1 @subStr(i64, i64)"},{"Add":"declare i1 @flush(i8*)"},{"Add":"declare void @flushAll()"},{"Add":"declare void @newline()"},{"Add":"declare void @space()"},{"Add":"declare void @outWord(i64)"},{"Add":"declare void @outString(i8*)"},{"Add":"declare void @print(i64)"},{"Add":"declare i64 @repl(i64, i8*, i64)"},{"Add":"declare void @dbFetch(i64, i64)"},{"Add":"declare void @dbTouch(i64, i64)"},{"Add":"declare void @dbZap(i64)"},{"Add":"declare void @putSrc(i64, i64)"},{"Add":"declare i64 @brkLoad(i64)"},{"Add":"declare void @prin(i64)"},{"Add":"declare i8 @symByte(i64*)"},{"Add":"declare void @prExt(i64)"},{"Add":"declare void @begString(i64*)"},{"Add":"declare void @tglString(i64*)"},{"Add":"declare i64 @endString()"},{"Add":"declare i1 @findSym(i64, i64, i64)"},{"Add":"declare void @prSym(i64)"},{"Add":"declare i64 @mkChar(i32)"},{"Add":"declare i64 @evCnt(i64, i64)"},{"Add":"declare i32 @getChar(i32)"},{"Add":""},{"Add":"define i64 @Prin(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let X (cdr Exe) (loop (let Y (eval (car X)) (unless (nil? Y) (if..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (loop (let Y (eval (car X)) (unless (nil? Y) (if (or (num? Y) (pa..."},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %4 = phi i64 [%3, %$1], [%88, %$35] ; # X"},{"Add":"; # (let Y (eval (car X)) (unless (nil? Y) (if (or (num? Y) (pair Y) ..."},{"Add":"; # (car X)"},{"Add":" %5 = inttoptr i64 %4 to i64*"},{"Add":" %6 = load i64, i64* %5"},{"Add":"; # (eval (car X))"},{"Add":" %7 = and i64 %6, 6"},{"Add":" %8 = icmp ne i64 %7, 0"},{"Add":" br i1 %8, label %$5, label %$4"},{"Add":"$5:"},{"Add":" br label %$3"},{"Add":"$4:"},{"Add":" %9 = and i64 %6, 8"},{"Add":" %10 = icmp ne i64 %9, 0"},{"Add":" br i1 %10, label %$7, label %$6"},{"Add":"$7:"},{"Add":" %11 = inttoptr i64 %6 to i64*"},{"Add":" %12 = load i64, i64* %11"},{"Add":" br label %$3"},{"Add":"$6:"},{"Add":" %13 = call i64 @evList(i64 %6)"},{"Add":" br label %$3"},{"Add":"$3:"},{"Add":" %14 = phi i64 [%6, %$5], [%12, %$7], [%13, %$6] ; # ->"},{"Add":"; # (unless (nil? Y) (if (or (num? Y) (pair Y) (sym? (val (tail Y))))..."},{"Add":"; # (nil? Y)"},{"Add":" %15 = icmp eq i64 %14, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %15, label %$9, label %$8"},{"Add":"$8:"},{"Add":" %16 = phi i64 [%4, %$3] ; # X"},{"Add":"; # (if (or (num? Y) (pair Y) (sym? (val (tail Y)))) (prin Y) (let P ..."},{"Add":"; # (or (num? Y) (pair Y) (sym? (val (tail Y))))"},{"Add":"; # (num? Y)"},{"Add":" %17 = and i64 %14, 6"},{"Add":" %18 = icmp ne i64 %17, 0"},{"Add":" br i1 %18, label %$10, label %$11"},{"Add":"$11:"},{"Add":" %19 = phi i64 [%16, %$8] ; # X"},{"Add":"; # (pair Y)"},{"Add":" %20 = and i64 %14, 15"},{"Add":" %21 = icmp eq i64 %20, 0"},{"Add":" br i1 %21, label %$10, label %$12"},{"Add":"$12:"},{"Add":" %22 = phi i64 [%19, %$11] ; # X"},{"Add":"; # (tail Y)"},{"Add":" %23 = add i64 %14, -8"},{"Add":"; # (val (tail Y))"},{"Add":" %24 = inttoptr i64 %23 to i64*"},{"Add":" %25 = load i64, i64* %24"},{"Add":"; # (sym? (val (tail Y)))"},{"Add":" %26 = and i64 %25, 8"},{"Add":" %27 = icmp ne i64 %26, 0"},{"Add":" br label %$10"},{"Add":"$10:"},{"Add":" %28 = phi i64 [%16, %$8], [%19, %$11], [%22, %$12] ; # X"},{"Add":" %29 = phi i1 [1, %$8], [1, %$11], [%27, %$12] ; # ->"},{"Add":" br i1 %29, label %$13, label %$14"},{"Add":"$13:"},{"Add":" %30 = phi i64 [%28, %$10] ; # X"},{"Add":"; # (prin Y)"},{"Add":" call void @prin(i64 %14)"},{"Add":" br label %$15"},{"Add":"$14:"},{"Add":" %31 = phi i64 [%28, %$10] ; # X"},{"Add":"; # (let P (push 0 (name (val (tail Y)))) (while (symByte P) (case @ ..."},{"Add":"; # (tail Y)"},{"Add":" %32 = add i64 %14, -8"},{"Add":"; # (val (tail Y))"},{"Add":" %33 = inttoptr i64 %32 to i64*"},{"Add":" %34 = load i64, i64* %33"},{"Add":"; # (name (val (tail Y)))"},{"Add":" br label %$16"},{"Add":"$16:"},{"Add":" %35 = phi i64 [%34, %$14], [%41, %$17] ; # Tail"},{"Add":" %36 = and i64 %35, 6"},{"Add":" %37 = icmp ne i64 %36, 0"},{"Add":" br i1 %37, label %$18, label %$17"},{"Add":"$17:"},{"Add":" %38 = phi i64 [%35, %$16] ; # Tail"},{"Add":" %39 = inttoptr i64 %38 to i64*"},{"Add":" %40 = getelementptr i64, i64* %39, i32 1"},{"Add":" %41 = load i64, i64* %40"},{"Add":" br label %$16"},{"Add":"$18:"},{"Add":" %42 = phi i64 [%35, %$16] ; # Tail"},{"Add":"; # (push 0 (name (val (tail Y))))"},{"Add":" %43 = alloca i64, i64 2, align 16"},{"Add":" store i64 0, i64* %43"},{"Add":" %44 = getelementptr i64, i64* %43, i32 1"},{"Add":" store i64 %42, i64* %44"},{"Add":"; # (while (symByte P) (case @ ((char \"<\") (outString ($ \"<\"))) ((..."},{"Add":" br label %$19"},{"Add":"$19:"},{"Add":" %45 = phi i64 [%31, %$18], [%78, %$23] ; # X"},{"Add":"; # (symByte P)"},{"Add":" %46 = call i8 @symByte(i64* %43)"},{"Add":" %47 = icmp ne i8 %46, 0"},{"Add":" br i1 %47, label %$20, label %$21"},{"Add":"$20:"},{"Add":" %48 = phi i64 [%45, %$19] ; # X"},{"Add":"; # (case @ ((char \"<\") (outString ($ \"<\"))) ((char \">\") (outStrin..."},{"Add":" switch i8 %46, label %$22 ["},{"Add":" i8 60, label %$24"},{"Add":" i8 62, label %$25"},{"Add":" i8 38, label %$26"},{"Add":" i8 34, label %$27"},{"Add":" i8 255, label %$28"},{"Add":" ]"},{"Add":"$24:"},{"Add":" %49 = phi i64 [%48, %$20] ; # X"},{"Add":"; # (outString ($ \"<\"))"},{"Add":" call void @outString(i8* bitcast ([5 x i8]* @$1 to i8*))"},{"Add":" br label %$23"},{"Add":"$25:"},{"Add":" %50 = phi i64 [%48, %$20] ; # X"},{"Add":"; # (outString ($ \">\"))"},{"Add":" call void @outString(i8* bitcast ([5 x i8]* @$2 to i8*))"},{"Add":" br label %$23"},{"Add":"$26:"},{"Add":" %51 = phi i64 [%48, %$20] ; # X"},{"Add":"; # (outString ($ \"&\"))"},{"Add":" call void @outString(i8* bitcast ([6 x i8]* @$3 to i8*))"},{"Add":" br label %$23"},{"Add":"$27:"},{"Add":" %52 = phi i64 [%48, %$20] ; # X"},{"Add":"; # (outString ($ \""\"))"},{"Add":" call void @outString(i8* bitcast ([7 x i8]* @$4 to i8*))"},{"Add":" br label %$23"},{"Add":"$28:"},{"Add":" %53 = phi i64 [%48, %$20] ; # X"},{"Add":"; # (call $Put (hex \"F7\"))"},{"Add":" %54 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %54(i8 247)"},{"Add":"; # (call $Put (hex \"BF\"))"},{"Add":" %55 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %55(i8 191)"},{"Add":"; # (call $Put (hex \"BF\"))"},{"Add":" %56 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %56(i8 191)"},{"Add":"; # (call $Put (hex \"BF\"))"},{"Add":" %57 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %57(i8 191)"},{"Add":" br label %$23"},{"Add":"$22:"},{"Add":" %58 = phi i64 [%48, %$20] ; # X"},{"Add":"; # (let B @ (call $Put B) (when (& B (hex \"80\")) (call $Put (symByte..."},{"Add":"; # (call $Put B)"},{"Add":" %59 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %59(i8 %46)"},{"Add":"; # (when (& B (hex \"80\")) (call $Put (symByte P)) (when (& B (hex \"2..."},{"Add":"; # (& B (hex \"80\"))"},{"Add":" %60 = and i8 %46, 128"},{"Add":" %61 = icmp ne i8 %60, 0"},{"Add":" br i1 %61, label %$29, label %$30"},{"Add":"$29:"},{"Add":" %62 = phi i64 [%58, %$22] ; # X"},{"Add":"; # (symByte P)"},{"Add":" %63 = call i8 @symByte(i64* %43)"},{"Add":"; # (call $Put (symByte P))"},{"Add":" %64 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %64(i8 %63)"},{"Add":"; # (when (& B (hex \"20\")) (call $Put (symByte P)) (when (& B (hex \"1..."},{"Add":"; # (& B (hex \"20\"))"},{"Add":" %65 = and i8 %46, 32"},{"Add":" %66 = icmp ne i8 %65, 0"},{"Add":" br i1 %66, label %$31, label %$32"},{"Add":"$31:"},{"Add":" %67 = phi i64 [%62, %$29] ; # X"},{"Add":"; # (symByte P)"},{"Add":" %68 = call i8 @symByte(i64* %43)"},{"Add":"; # (call $Put (symByte P))"},{"Add":" %69 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %69(i8 %68)"},{"Add":"; # (when (& B (hex \"10\")) (call $Put (symByte P)))"},{"Add":"; # (& B (hex \"10\"))"},{"Add":" %70 = and i8 %46, 16"},{"Add":" %71 = icmp ne i8 %70, 0"},{"Add":" br i1 %71, label %$33, label %$34"},{"Add":"$33:"},{"Add":" %72 = phi i64 [%67, %$31] ; # X"},{"Add":"; # (symByte P)"},{"Add":" %73 = call i8 @symByte(i64* %43)"},{"Add":"; # (call $Put (symByte P))"},{"Add":" %74 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %74(i8 %73)"},{"Add":" br label %$34"},{"Add":"$34:"},{"Add":" %75 = phi i64 [%67, %$31], [%72, %$33] ; # X"},{"Add":" br label %$32"},{"Add":"$32:"},{"Add":" %76 = phi i64 [%62, %$29], [%75, %$34] ; # X"},{"Add":" br label %$30"},{"Add":"$30:"},{"Add":" %77 = phi i64 [%58, %$22], [%76, %$32] ; # X"},{"Add":" br label %$23"},{"Add":"$23:"},{"Add":" %78 = phi i64 [%49, %$24], [%50, %$25], [%51, %$26], [%52, %$27], [%53, %$28], [%77, %$30] ; # X"},{"Add":" br label %$19"},{"Add":"$21:"},{"Add":" %79 = phi i64 [%45, %$19] ; # X"},{"Add":" br label %$15"},{"Add":"$15:"},{"Add":" %80 = phi i64 [%30, %$13], [%79, %$21] ; # X"},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %81 = phi i64 [%4, %$3], [%80, %$15] ; # X"},{"Add":"; # (? (atom (shift X)) Y)"},{"Add":"; # (shift X)"},{"Add":" %82 = inttoptr i64 %81 to i64*"},{"Add":" %83 = getelementptr i64, i64* %82, i32 1"},{"Add":" %84 = load i64, i64* %83"},{"Add":"; # (atom (shift X))"},{"Add":" %85 = and i64 %84, 15"},{"Add":" %86 = icmp ne i64 %85, 0"},{"Add":" br i1 %86, label %$37, label %$35"},{"Add":"$37:"},{"Add":" %87 = phi i64 [%84, %$9] ; # X"},{"Add":" br label %$36"},{"Add":"$35:"},{"Add":" %88 = phi i64 [%84, %$9] ; # X"},{"Add":" br label %$2"},{"Add":"$36:"},{"Add":" %89 = phi i64 [%87, %$37] ; # X"},{"Add":" %90 = phi i64 [%14, %$37] ; # ->"},{"Add":" ret i64 %90"},{"Add":"}"},{"Add":""},{"Add":"define void @putHex(i8) align 8 {"},{"Add":"$1:"},{"Add":"; # (call $Put (char \"%\"))"},{"Add":" %1 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %1(i8 37)"},{"Add":"; # (if (> (& (shr B 4) 15) 9) (+ @ 7) @)"},{"Add":"; # (shr B 4)"},{"Add":" %2 = lshr i8 %0, 4"},{"Add":"; # (& (shr B 4) 15)"},{"Add":" %3 = and i8 %2, 15"},{"Add":"; # (> (& (shr B 4) 15) 9)"},{"Add":" %4 = icmp ugt i8 %3, 9"},{"Add":" br i1 %4, label %$2, label %$3"},{"Add":"$2:"},{"Add":"; # (+ @ 7)"},{"Add":" %5 = add i8 %3, 7"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %6 = phi i8 [%5, %$2], [%3, %$3] ; # ->"},{"Add":"; # (+ (if (> (& (shr B 4) 15) 9) (+ @ 7) @) (char \"0\"))"},{"Add":" %7 = add i8 %6, 48"},{"Add":"; # (call $Put (+ (if (> (& (shr B 4) 15) 9) (+ @ 7) @) (char \"0\")))"},{"Add":" %8 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %8(i8 %7)"},{"Add":"; # (if (> (& B 15) 9) (+ @ 7) @)"},{"Add":"; # (& B 15)"},{"Add":" %9 = and i8 %0, 15"},{"Add":"; # (> (& B 15) 9)"},{"Add":" %10 = icmp ugt i8 %9, 9"},{"Add":" br i1 %10, label %$5, label %$6"},{"Add":"$5:"},{"Add":"; # (+ @ 7)"},{"Add":" %11 = add i8 %9, 7"},{"Add":" br label %$7"},{"Add":"$6:"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %12 = phi i8 [%11, %$5], [%9, %$6] ; # ->"},{"Add":"; # (+ (if (> (& B 15) 9) (+ @ 7) @) (char \"0\"))"},{"Add":" %13 = add i8 %12, 48"},{"Add":"; # (call $Put (+ (if (> (& B 15) 9) (+ @ 7) @) (char \"0\")))"},{"Add":" %14 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %14(i8 %13)"},{"Add":" ret void"},{"Add":"}"},{"Add":""},{"Add":"define void @htEncode(i8, i64*) align 8 {"},{"Add":"$1:"},{"Add":"; # (while B (if (strchr ($ \" \\\"#%&:;<=>?\\\\_\") (i32 B)) (putHex B) (c..."},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %2 = phi i8 [%0, %$1], [%30, %$7] ; # B"},{"Add":" %3 = icmp ne i8 %2, 0"},{"Add":" br i1 %3, label %$3, label %$4"},{"Add":"$3:"},{"Add":" %4 = phi i8 [%2, %$2] ; # B"},{"Add":"; # (if (strchr ($ \" \\\"#%&:;<=>?\\\\_\") (i32 B)) (putHex B) (call $Put ..."},{"Add":"; # (i32 B)"},{"Add":" %5 = zext i8 %4 to i32"},{"Add":"; # (strchr ($ \" \\\"#%&:;<=>?\\\\_\") (i32 B))"},{"Add":" %6 = call i8* @strchr(i8* bitcast ([14 x i8]* @$5 to i8*), i32 %5)"},{"Add":" %7 = icmp ne i8* %6, null"},{"Add":" br i1 %7, label %$5, label %$6"},{"Add":"$5:"},{"Add":" %8 = phi i8 [%4, %$3] ; # B"},{"Add":"; # (putHex B)"},{"Add":" call void @putHex(i8 %8)"},{"Add":" br label %$7"},{"Add":"$6:"},{"Add":" %9 = phi i8 [%4, %$3] ; # B"},{"Add":"; # (call $Put B)"},{"Add":" %10 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %10(i8 %9)"},{"Add":"; # (when (& B (hex \"80\")) (call $Put (symByte P)) (when (& B (hex \"2..."},{"Add":"; # (& B (hex \"80\"))"},{"Add":" %11 = and i8 %9, 128"},{"Add":" %12 = icmp ne i8 %11, 0"},{"Add":" br i1 %12, label %$8, label %$9"},{"Add":"$8:"},{"Add":" %13 = phi i8 [%9, %$6] ; # B"},{"Add":"; # (symByte P)"},{"Add":" %14 = call i8 @symByte(i64* %1)"},{"Add":"; # (call $Put (symByte P))"},{"Add":" %15 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %15(i8 %14)"},{"Add":"; # (when (& B (hex \"20\")) (call $Put (symByte P)) (when (& B (hex \"1..."},{"Add":"; # (& B (hex \"20\"))"},{"Add":" %16 = and i8 %13, 32"},{"Add":" %17 = icmp ne i8 %16, 0"},{"Add":" br i1 %17, label %$10, label %$11"},{"Add":"$10:"},{"Add":" %18 = phi i8 [%13, %$8] ; # B"},{"Add":"; # (symByte P)"},{"Add":" %19 = call i8 @symByte(i64* %1)"},{"Add":"; # (call $Put (symByte P))"},{"Add":" %20 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %20(i8 %19)"},{"Add":"; # (when (& B (hex \"10\")) (call $Put (symByte P)))"},{"Add":"; # (& B (hex \"10\"))"},{"Add":" %21 = and i8 %18, 16"},{"Add":" %22 = icmp ne i8 %21, 0"},{"Add":" br i1 %22, label %$12, label %$13"},{"Add":"$12:"},{"Add":" %23 = phi i8 [%18, %$10] ; # B"},{"Add":"; # (symByte P)"},{"Add":" %24 = call i8 @symByte(i64* %1)"},{"Add":"; # (call $Put (symByte P))"},{"Add":" %25 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %25(i8 %24)"},{"Add":" br label %$13"},{"Add":"$13:"},{"Add":" %26 = phi i8 [%18, %$10], [%23, %$12] ; # B"},{"Add":" br label %$11"},{"Add":"$11:"},{"Add":" %27 = phi i8 [%13, %$8], [%26, %$13] ; # B"},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %28 = phi i8 [%9, %$6], [%27, %$11] ; # B"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %29 = phi i8 [%8, %$5], [%28, %$9] ; # B"},{"Add":"; # (symByte P)"},{"Add":" %30 = call i8 @symByte(i64* %1)"},{"Add":" br label %$2"},{"Add":"$4:"},{"Add":" %31 = phi i8 [%2, %$2] ; # B"},{"Add":" ret void"},{"Add":"}"},{"Add":""},{"Add":"define void @htFmt(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (cond ((nil? X)) ((num? X) (call $Put (char \"+\")) (prin X)) ((pai..."},{"Add":"; # (nil? X)"},{"Add":" %1 = icmp eq i64 %0, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %1, label %$2, label %$3"},{"Add":"$3:"},{"Add":" %2 = phi i64 [%0, %$1] ; # X"},{"Add":"; # (num? X)"},{"Add":" %3 = and i64 %2, 6"},{"Add":" %4 = icmp ne i64 %3, 0"},{"Add":" br i1 %4, label %$5, label %$4"},{"Add":"$5:"},{"Add":" %5 = phi i64 [%2, %$3] ; # X"},{"Add":"; # (call $Put (char \"+\"))"},{"Add":" %6 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %6(i8 43)"},{"Add":"; # (prin X)"},{"Add":" call void @prin(i64 %5)"},{"Add":" br label %$2"},{"Add":"$4:"},{"Add":" %7 = phi i64 [%2, %$3] ; # X"},{"Add":"; # (pair X)"},{"Add":" %8 = and i64 %7, 15"},{"Add":" %9 = icmp eq i64 %8, 0"},{"Add":" br i1 %9, label %$7, label %$6"},{"Add":"$7:"},{"Add":" %10 = phi i64 [%7, %$4] ; # X"},{"Add":"; # (loop (call $Put (char \"_\")) (htFmt (++ X)) (? (atom X)))"},{"Add":" br label %$8"},{"Add":"$8:"},{"Add":" %11 = phi i64 [%10, %$7], [%19, %$9] ; # X"},{"Add":"; # (call $Put (char \"_\"))"},{"Add":" %12 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %12(i8 95)"},{"Add":"; # (++ X)"},{"Add":" %13 = inttoptr i64 %11 to i64*"},{"Add":" %14 = load i64, i64* %13"},{"Add":" %15 = getelementptr i64, i64* %13, i32 1"},{"Add":" %16 = load i64, i64* %15"},{"Add":"; # (htFmt (++ X))"},{"Add":" call void @htFmt(i64 %14)"},{"Add":"; # (? (atom X))"},{"Add":"; # (atom X)"},{"Add":" %17 = and i64 %16, 15"},{"Add":" %18 = icmp ne i64 %17, 0"},{"Add":" br i1 %18, label %$10, label %$9"},{"Add":"$9:"},{"Add":" %19 = phi i64 [%16, %$8] ; # X"},{"Add":" br label %$8"},{"Add":"$10:"},{"Add":" %20 = phi i64 [%16, %$8] ; # X"},{"Add":" %21 = phi i64 [0, %$8] ; # ->"},{"Add":" br label %$2"},{"Add":"$6:"},{"Add":" %22 = phi i64 [%7, %$4] ; # X"},{"Add":"; # (tail X)"},{"Add":" %23 = add i64 %22, -8"},{"Add":"; # (val (tail X))"},{"Add":" %24 = inttoptr i64 %23 to i64*"},{"Add":" %25 = load i64, i64* %24"},{"Add":"; # (sym? (val (tail X)))"},{"Add":" %26 = and i64 %25, 8"},{"Add":" %27 = icmp ne i64 %26, 0"},{"Add":" br i1 %27, label %$12, label %$11"},{"Add":"$12:"},{"Add":" %28 = phi i64 [%22, %$6] ; # X"},{"Add":"; # (call $Put (char \"-\"))"},{"Add":" %29 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %29(i8 45)"},{"Add":"; # (& @ -9)"},{"Add":" %30 = and i64 %25, -9"},{"Add":"; # (name (& @ -9))"},{"Add":" br label %$13"},{"Add":"$13:"},{"Add":" %31 = phi i64 [%30, %$12], [%37, %$14] ; # Tail"},{"Add":" %32 = and i64 %31, 6"},{"Add":" %33 = icmp ne i64 %32, 0"},{"Add":" br i1 %33, label %$15, label %$14"},{"Add":"$14:"},{"Add":" %34 = phi i64 [%31, %$13] ; # Tail"},{"Add":" %35 = inttoptr i64 %34 to i64*"},{"Add":" %36 = getelementptr i64, i64* %35, i32 1"},{"Add":" %37 = load i64, i64* %36"},{"Add":" br label %$13"},{"Add":"$15:"},{"Add":" %38 = phi i64 [%31, %$13] ; # Tail"},{"Add":"; # (prExt (name (& @ -9)))"},{"Add":" call void @prExt(i64 %38)"},{"Add":" br label %$2"},{"Add":"$11:"},{"Add":" %39 = phi i64 [%22, %$6] ; # X"},{"Add":"; # (name @)"},{"Add":" br label %$16"},{"Add":"$16:"},{"Add":" %40 = phi i64 [%25, %$11], [%46, %$17] ; # Tail"},{"Add":" %41 = and i64 %40, 6"},{"Add":" %42 = icmp ne i64 %41, 0"},{"Add":" br i1 %42, label %$18, label %$17"},{"Add":"$17:"},{"Add":" %43 = phi i64 [%40, %$16] ; # Tail"},{"Add":" %44 = inttoptr i64 %43 to i64*"},{"Add":" %45 = getelementptr i64, i64* %44, i32 1"},{"Add":" %46 = load i64, i64* %45"},{"Add":" br label %$16"},{"Add":"$18:"},{"Add":" %47 = phi i64 [%40, %$16] ; # Tail"},{"Add":"; # (== (name @) ZERO)"},{"Add":" %48 = icmp eq i64 %47, 2"},{"Add":" br i1 %48, label %$2, label %$19"},{"Add":"$19:"},{"Add":" %49 = phi i64 [%39, %$18] ; # X"},{"Add":"; # (let (Nm @ P (push 0 Nm) B (symByte P)) (cond ((findSym X Nm (val..."},{"Add":"; # (push 0 Nm)"},{"Add":" %50 = alloca i64, i64 2, align 16"},{"Add":" store i64 0, i64* %50"},{"Add":" %51 = getelementptr i64, i64* %50, i32 1"},{"Add":" store i64 %47, i64* %51"},{"Add":"; # (symByte P)"},{"Add":" %52 = call i8 @symByte(i64* %50)"},{"Add":"; # (cond ((findSym X Nm (val $Intern)) (call $Put (char \"$\")) (htEnc..."},{"Add":"; # (val $Intern)"},{"Add":" %53 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([53 x i64]* @gcData to i8*), i32 0) to i64) to i64*"},{"Add":" %54 = load i64, i64* %53"},{"Add":"; # (findSym X Nm (val $Intern))"},{"Add":" %55 = call i1 @findSym(i64 %49, i64 %47, i64 %54)"},{"Add":" br i1 %55, label %$22, label %$21"},{"Add":"$22:"},{"Add":" %56 = phi i64 [%49, %$19] ; # X"},{"Add":"; # (call $Put (char \"$\"))"},{"Add":" %57 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %57(i8 36)"},{"Add":"; # (htEncode B P)"},{"Add":" call void @htEncode(i8 %52, i64* %50)"},{"Add":" br label %$20"},{"Add":"$21:"},{"Add":" %58 = phi i64 [%49, %$19] ; # X"},{"Add":"; # (or (== B (char \"$\")) (== B (char \"+\")) (== B (char \"-\")))"},{"Add":"; # (== B (char \"$\"))"},{"Add":" %59 = icmp eq i8 %52, 36"},{"Add":" br i1 %59, label %$23, label %$24"},{"Add":"$24:"},{"Add":" %60 = phi i64 [%58, %$21] ; # X"},{"Add":"; # (== B (char \"+\"))"},{"Add":" %61 = icmp eq i8 %52, 43"},{"Add":" br i1 %61, label %$23, label %$25"},{"Add":"$25:"},{"Add":" %62 = phi i64 [%60, %$24] ; # X"},{"Add":"; # (== B (char \"-\"))"},{"Add":" %63 = icmp eq i8 %52, 45"},{"Add":" br label %$23"},{"Add":"$23:"},{"Add":" %64 = phi i64 [%58, %$21], [%60, %$24], [%62, %$25] ; # X"},{"Add":" %65 = phi i1 [1, %$21], [1, %$24], [%63, %$25] ; # ->"},{"Add":" br i1 %65, label %$27, label %$26"},{"Add":"$27:"},{"Add":" %66 = phi i64 [%64, %$23] ; # X"},{"Add":"; # (putHex B)"},{"Add":" call void @putHex(i8 %52)"},{"Add":"; # (symByte P)"},{"Add":" %67 = call i8 @symByte(i64* %50)"},{"Add":"; # (htEncode (symByte P) P)"},{"Add":" call void @htEncode(i8 %67, i64* %50)"},{"Add":" br label %$20"},{"Add":"$26:"},{"Add":" %68 = phi i64 [%64, %$23] ; # X"},{"Add":"; # (htEncode B P)"},{"Add":" call void @htEncode(i8 %52, i64* %50)"},{"Add":" br label %$20"},{"Add":"$20:"},{"Add":" %69 = phi i64 [%56, %$22], [%66, %$27], [%68, %$26] ; # X"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %70 = phi i64 [%0, %$1], [%5, %$5], [%20, %$10], [%28, %$15], [%39, %$18], [%69, %$20] ; # X"},{"Add":" ret void"},{"Add":"}"},{"Add":""},{"Add":"define i64 @Fmt(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let (X (cdr Exe) P (push 4 NIL ZERO NIL NIL NIL)) (begString P) ..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (push 4 NIL ZERO NIL NIL NIL)"},{"Add":" %4 = alloca i64, i64 6, align 16"},{"Add":" store i64 4, i64* %4"},{"Add":" %5 = getelementptr i64, i64* %4, i32 2"},{"Add":" store i64 2, i64* %5"},{"Add":"; # (begString P)"},{"Add":" call void @begString(i64* %4)"},{"Add":"; # (loop (htFmt (prog2 (tglString P) (eval (car X)) (tglString P))) ..."},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %6 = phi i64 [%3, %$1], [%22, %$8] ; # X"},{"Add":"; # (prog2 (tglString P) (eval (car X)) (tglString P))"},{"Add":"; # (tglString P)"},{"Add":" call void @tglString(i64* %4)"},{"Add":"; # (car X)"},{"Add":" %7 = inttoptr i64 %6 to i64*"},{"Add":" %8 = load i64, i64* %7"},{"Add":"; # (eval (car X))"},{"Add":" %9 = and i64 %8, 6"},{"Add":" %10 = icmp ne i64 %9, 0"},{"Add":" br i1 %10, label %$5, label %$4"},{"Add":"$5:"},{"Add":" br label %$3"},{"Add":"$4:"},{"Add":" %11 = and i64 %8, 8"},{"Add":" %12 = icmp ne i64 %11, 0"},{"Add":" br i1 %12, label %$7, label %$6"},{"Add":"$7:"},{"Add":" %13 = inttoptr i64 %8 to i64*"},{"Add":" %14 = load i64, i64* %13"},{"Add":" br label %$3"},{"Add":"$6:"},{"Add":" %15 = call i64 @evList(i64 %8)"},{"Add":" br label %$3"},{"Add":"$3:"},{"Add":" %16 = phi i64 [%8, %$5], [%14, %$7], [%15, %$6] ; # ->"},{"Add":"; # (tglString P)"},{"Add":" call void @tglString(i64* %4)"},{"Add":"; # (htFmt (prog2 (tglString P) (eval (car X)) (tglString P)))"},{"Add":" call void @htFmt(i64 %16)"},{"Add":"; # (? (atom (shift X)))"},{"Add":"; # (shift X)"},{"Add":" %17 = inttoptr i64 %6 to i64*"},{"Add":" %18 = getelementptr i64, i64* %17, i32 1"},{"Add":" %19 = load i64, i64* %18"},{"Add":"; # (atom (shift X))"},{"Add":" %20 = and i64 %19, 15"},{"Add":" %21 = icmp ne i64 %20, 0"},{"Add":" br i1 %21, label %$9, label %$8"},{"Add":"$8:"},{"Add":" %22 = phi i64 [%19, %$3] ; # X"},{"Add":"; # (call $Put (char \"&\"))"},{"Add":" %23 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %23(i8 38)"},{"Add":" br label %$2"},{"Add":"$9:"},{"Add":" %24 = phi i64 [%19, %$3] ; # X"},{"Add":" %25 = phi i64 [0, %$3] ; # ->"},{"Add":"; # (endString)"},{"Add":" %26 = call i64 @endString()"},{"Add":" ret i64 %26"},{"Add":"}"},{"Add":""},{"Add":"define i8 @getHex(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (if (> (- (firstByte Sym) (char \"0\")) 9) (- (& @ (hex \"DF\")) 7) @..."},{"Add":"; # (firstByte Sym)"},{"Add":" %1 = call i8 @firstByte(i64 %0)"},{"Add":"; # (- (firstByte Sym) (char \"0\"))"},{"Add":" %2 = sub i8 %1, 48"},{"Add":"; # (> (- (firstByte Sym) (char \"0\")) 9)"},{"Add":" %3 = icmp ugt i8 %2, 9"},{"Add":" br i1 %3, label %$2, label %$3"},{"Add":"$2:"},{"Add":"; # (& @ (hex \"DF\"))"},{"Add":" %4 = and i8 %2, 223"},{"Add":"; # (- (& @ (hex \"DF\")) 7)"},{"Add":" %5 = sub i8 %4, 7"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %6 = phi i8 [%5, %$2], [%2, %$3] ; # ->"},{"Add":" ret i8 %6"},{"Add":"}"},{"Add":""},{"Add":"define i64 @head(i8*, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let B (val S) (loop (? (<> B (firstByte (++ Lst))) 0) (? (=0 (se..."},{"Add":"; # (val S)"},{"Add":" %2 = load i8, i8* %0"},{"Add":"; # (loop (? (<> B (firstByte (++ Lst))) 0) (? (=0 (setq B (val (inc ..."},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %3 = phi i8* [%0, %$1], [%24, %$6] ; # S"},{"Add":" %4 = phi i64 [%1, %$1], [%25, %$6] ; # Lst"},{"Add":" %5 = phi i8 [%2, %$1], [%26, %$6] ; # B"},{"Add":"; # (? (<> B (firstByte (++ Lst))) 0)"},{"Add":"; # (++ Lst)"},{"Add":" %6 = inttoptr i64 %4 to i64*"},{"Add":" %7 = load i64, i64* %6"},{"Add":" %8 = getelementptr i64, i64* %6, i32 1"},{"Add":" %9 = load i64, i64* %8"},{"Add":"; # (firstByte (++ Lst))"},{"Add":" %10 = call i8 @firstByte(i64 %7)"},{"Add":"; # (<> B (firstByte (++ Lst)))"},{"Add":" %11 = icmp ne i8 %5, %10"},{"Add":" br i1 %11, label %$5, label %$3"},{"Add":"$5:"},{"Add":" %12 = phi i8* [%3, %$2] ; # S"},{"Add":" %13 = phi i64 [%9, %$2] ; # Lst"},{"Add":" %14 = phi i8 [%5, %$2] ; # B"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":" %15 = phi i8* [%3, %$2] ; # S"},{"Add":" %16 = phi i64 [%9, %$2] ; # Lst"},{"Add":" %17 = phi i8 [%5, %$2] ; # B"},{"Add":"; # (? (=0 (setq B (val (inc 'S)))) Lst)"},{"Add":"; # (inc 'S)"},{"Add":" %18 = getelementptr i8, i8* %15, i32 1"},{"Add":"; # (val (inc 'S))"},{"Add":" %19 = load i8, i8* %18"},{"Add":"; # (=0 (setq B (val (inc 'S))))"},{"Add":" %20 = icmp eq i8 %19, 0"},{"Add":" br i1 %20, label %$7, label %$6"},{"Add":"$7:"},{"Add":" %21 = phi i8* [%18, %$3] ; # S"},{"Add":" %22 = phi i64 [%16, %$3] ; # Lst"},{"Add":" %23 = phi i8 [%19, %$3] ; # B"},{"Add":" br label %$4"},{"Add":"$6:"},{"Add":" %24 = phi i8* [%18, %$3] ; # S"},{"Add":" %25 = phi i64 [%16, %$3] ; # Lst"},{"Add":" %26 = phi i8 [%19, %$3] ; # B"},{"Add":" br label %$2"},{"Add":"$4:"},{"Add":" %27 = phi i8* [%12, %$5], [%21, %$7] ; # S"},{"Add":" %28 = phi i64 [%13, %$5], [%22, %$7] ; # Lst"},{"Add":" %29 = phi i8 [%14, %$5], [%23, %$7] ; # B"},{"Add":" %30 = phi i64 [0, %$5], [%22, %$7] ; # ->"},{"Add":" ret i64 %30"},{"Add":"}"},{"Add":""},{"Add":"define i64 @Pack(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let (X (cdr Exe) Lst (save (eval (++ X))) Flg (nil? (eval (car X..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (++ X)"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":" %6 = getelementptr i64, i64* %4, i32 1"},{"Add":" %7 = load i64, i64* %6"},{"Add":"; # (eval (++ X))"},{"Add":" %8 = and i64 %5, 6"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br i1 %9, label %$4, label %$3"},{"Add":"$4:"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %10 = and i64 %5, 8"},{"Add":" %11 = icmp ne i64 %10, 0"},{"Add":" br i1 %11, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %12 = inttoptr i64 %5 to i64*"},{"Add":" %13 = load i64, i64* %12"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":" %14 = call i64 @evList(i64 %5)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %15 = phi i64 [%5, %$4], [%13, %$6], [%14, %$5] ; # ->"},{"Add":"; # (save (eval (++ X)))"},{"Add":" %16 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %17 = load i64, i64* %16"},{"Add":" %18 = alloca i64, i64 2, align 16"},{"Add":" %19 = ptrtoint i64* %18 to i64"},{"Add":" %20 = inttoptr i64 %19 to i64*"},{"Add":" store i64 %15, i64* %20"},{"Add":" %21 = add i64 %19, 8"},{"Add":" %22 = inttoptr i64 %21 to i64*"},{"Add":" store i64 %17, i64* %22"},{"Add":" %23 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %19, i64* %23"},{"Add":"; # (car X)"},{"Add":" %24 = inttoptr i64 %7 to i64*"},{"Add":" %25 = load i64, i64* %24"},{"Add":"; # (eval (car X))"},{"Add":" %26 = and i64 %25, 6"},{"Add":" %27 = icmp ne i64 %26, 0"},{"Add":" br i1 %27, label %$9, label %$8"},{"Add":"$9:"},{"Add":" br label %$7"},{"Add":"$8:"},{"Add":" %28 = and i64 %25, 8"},{"Add":" %29 = icmp ne i64 %28, 0"},{"Add":" br i1 %29, label %$11, label %$10"},{"Add":"$11:"},{"Add":" %30 = inttoptr i64 %25 to i64*"},{"Add":" %31 = load i64, i64* %30"},{"Add":" br label %$7"},{"Add":"$10:"},{"Add":" %32 = call i64 @evList(i64 %25)"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %33 = phi i64 [%25, %$9], [%31, %$11], [%32, %$10] ; # ->"},{"Add":"; # (nil? (eval (car X)))"},{"Add":" %34 = icmp eq i64 %33, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":"; # (push 4 NIL ZERO NIL NIL NIL)"},{"Add":" %35 = alloca i64, i64 6, align 16"},{"Add":" store i64 4, i64* %35"},{"Add":" %36 = getelementptr i64, i64* %35, i32 2"},{"Add":" store i64 2, i64* %36"},{"Add":"; # (begString (push 4 NIL ZERO NIL NIL NIL))"},{"Add":" call void @begString(i64* %35)"},{"Add":"; # (while (pair Lst) (let (C (++ Lst) B (firstByte C)) (cond ((== B ..."},{"Add":" br label %$12"},{"Add":"$12:"},{"Add":" %37 = phi i64 [%15, %$7], [%159, %$15] ; # Lst"},{"Add":"; # (pair Lst)"},{"Add":" %38 = and i64 %37, 15"},{"Add":" %39 = icmp eq i64 %38, 0"},{"Add":" br i1 %39, label %$13, label %$14"},{"Add":"$13:"},{"Add":" %40 = phi i64 [%37, %$12] ; # Lst"},{"Add":"; # (let (C (++ Lst) B (firstByte C)) (cond ((== B (char \"%\")) (call ..."},{"Add":"; # (++ Lst)"},{"Add":" %41 = inttoptr i64 %40 to i64*"},{"Add":" %42 = load i64, i64* %41"},{"Add":" %43 = getelementptr i64, i64* %41, i32 1"},{"Add":" %44 = load i64, i64* %43"},{"Add":"; # (firstByte C)"},{"Add":" %45 = call i8 @firstByte(i64 %42)"},{"Add":"; # (cond ((== B (char \"%\")) (call $Put (if Flg B (| (shl (getHex (++..."},{"Add":"; # (== B (char \"%\"))"},{"Add":" %46 = icmp eq i8 %45, 37"},{"Add":" br i1 %46, label %$17, label %$16"},{"Add":"$17:"},{"Add":" %47 = phi i64 [%44, %$13] ; # Lst"},{"Add":"; # (if Flg B (| (shl (getHex (++ Lst)) 4) (getHex (++ Lst))))"},{"Add":" br i1 %34, label %$18, label %$19"},{"Add":"$18:"},{"Add":" %48 = phi i64 [%47, %$17] ; # Lst"},{"Add":" br label %$20"},{"Add":"$19:"},{"Add":" %49 = phi i64 [%47, %$17] ; # Lst"},{"Add":"; # (++ Lst)"},{"Add":" %50 = inttoptr i64 %49 to i64*"},{"Add":" %51 = load i64, i64* %50"},{"Add":" %52 = getelementptr i64, i64* %50, i32 1"},{"Add":" %53 = load i64, i64* %52"},{"Add":"; # (getHex (++ Lst))"},{"Add":" %54 = call i8 @getHex(i64 %51)"},{"Add":"; # (shl (getHex (++ Lst)) 4)"},{"Add":" %55 = shl i8 %54, 4"},{"Add":"; # (++ Lst)"},{"Add":" %56 = inttoptr i64 %53 to i64*"},{"Add":" %57 = load i64, i64* %56"},{"Add":" %58 = getelementptr i64, i64* %56, i32 1"},{"Add":" %59 = load i64, i64* %58"},{"Add":"; # (getHex (++ Lst))"},{"Add":" %60 = call i8 @getHex(i64 %57)"},{"Add":"; # (| (shl (getHex (++ Lst)) 4) (getHex (++ Lst)))"},{"Add":" %61 = or i8 %55, %60"},{"Add":" br label %$20"},{"Add":"$20:"},{"Add":" %62 = phi i64 [%48, %$18], [%59, %$19] ; # Lst"},{"Add":" %63 = phi i8 [%45, %$18], [%61, %$19] ; # ->"},{"Add":"; # (call $Put (if Flg B (| (shl (getHex (++ Lst)) 4) (getHex (++ Lst..."},{"Add":" %64 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %64(i8 %63)"},{"Add":" br label %$15"},{"Add":"$16:"},{"Add":" %65 = phi i64 [%44, %$13] ; # Lst"},{"Add":"; # (<> B (char \"&\"))"},{"Add":" %66 = icmp ne i8 %45, 38"},{"Add":" br i1 %66, label %$22, label %$21"},{"Add":"$22:"},{"Add":" %67 = phi i64 [%65, %$16] ; # Lst"},{"Add":"; # (prSym C)"},{"Add":" call void @prSym(i64 %42)"},{"Add":" br label %$15"},{"Add":"$21:"},{"Add":" %68 = phi i64 [%65, %$16] ; # Lst"},{"Add":"; # (head ($ \"lt;\") Lst)"},{"Add":" %69 = call i64 @head(i8* bitcast ([4 x i8]* @$6 to i8*), i64 %68)"},{"Add":" %70 = icmp ne i64 %69, 0"},{"Add":" br i1 %70, label %$24, label %$23"},{"Add":"$24:"},{"Add":" %71 = phi i64 [%68, %$21] ; # Lst"},{"Add":"; # (call $Put (char \"<\"))"},{"Add":" %72 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %72(i8 60)"},{"Add":" br label %$15"},{"Add":"$23:"},{"Add":" %73 = phi i64 [%68, %$21] ; # Lst"},{"Add":"; # (head ($ \"gt;\") Lst)"},{"Add":" %74 = call i64 @head(i8* bitcast ([4 x i8]* @$7 to i8*), i64 %73)"},{"Add":" %75 = icmp ne i64 %74, 0"},{"Add":" br i1 %75, label %$26, label %$25"},{"Add":"$26:"},{"Add":" %76 = phi i64 [%73, %$23] ; # Lst"},{"Add":"; # (call $Put (char \">\"))"},{"Add":" %77 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %77(i8 62)"},{"Add":" br label %$15"},{"Add":"$25:"},{"Add":" %78 = phi i64 [%73, %$23] ; # Lst"},{"Add":"; # (head ($ \"amp;\") Lst)"},{"Add":" %79 = call i64 @head(i8* bitcast ([5 x i8]* @$8 to i8*), i64 %78)"},{"Add":" %80 = icmp ne i64 %79, 0"},{"Add":" br i1 %80, label %$28, label %$27"},{"Add":"$28:"},{"Add":" %81 = phi i64 [%78, %$25] ; # Lst"},{"Add":"; # (call $Put (char \"&\"))"},{"Add":" %82 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %82(i8 38)"},{"Add":" br label %$15"},{"Add":"$27:"},{"Add":" %83 = phi i64 [%78, %$25] ; # Lst"},{"Add":"; # (head ($ \"quot;\") Lst)"},{"Add":" %84 = call i64 @head(i8* bitcast ([6 x i8]* @$9 to i8*), i64 %83)"},{"Add":" %85 = icmp ne i64 %84, 0"},{"Add":" br i1 %85, label %$30, label %$29"},{"Add":"$30:"},{"Add":" %86 = phi i64 [%83, %$27] ; # Lst"},{"Add":"; # (call $Put (char \"\\\"\"))"},{"Add":" %87 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %87(i8 34)"},{"Add":" br label %$15"},{"Add":"$29:"},{"Add":" %88 = phi i64 [%83, %$27] ; # Lst"},{"Add":"; # (head ($ \"nbsp;\") Lst)"},{"Add":" %89 = call i64 @head(i8* bitcast ([6 x i8]* @$10 to i8*), i64 %88)"},{"Add":" %90 = icmp ne i64 %89, 0"},{"Add":" br i1 %90, label %$32, label %$31"},{"Add":"$32:"},{"Add":" %91 = phi i64 [%88, %$29] ; # Lst"},{"Add":"; # (call $Put (char \" \"))"},{"Add":" %92 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %92(i8 32)"},{"Add":" br label %$15"},{"Add":"$31:"},{"Add":" %93 = phi i64 [%88, %$29] ; # Lst"},{"Add":"; # (car Lst)"},{"Add":" %94 = inttoptr i64 %93 to i64*"},{"Add":" %95 = load i64, i64* %94"},{"Add":"; # (firstByte (car Lst))"},{"Add":" %96 = call i8 @firstByte(i64 %95)"},{"Add":"; # (== (firstByte (car Lst)) (char \"#\"))"},{"Add":" %97 = icmp eq i8 %96, 35"},{"Add":" br i1 %97, label %$34, label %$33"},{"Add":"$34:"},{"Add":" %98 = phi i64 [%93, %$31] ; # Lst"},{"Add":"; # (let (L (shift Lst) D (firstByte (++ L)) N (i32 (- D (char \"0\")))..."},{"Add":"; # (shift Lst)"},{"Add":" %99 = inttoptr i64 %98 to i64*"},{"Add":" %100 = getelementptr i64, i64* %99, i32 1"},{"Add":" %101 = load i64, i64* %100"},{"Add":"; # (++ L)"},{"Add":" %102 = inttoptr i64 %101 to i64*"},{"Add":" %103 = load i64, i64* %102"},{"Add":" %104 = getelementptr i64, i64* %102, i32 1"},{"Add":" %105 = load i64, i64* %104"},{"Add":"; # (firstByte (++ L))"},{"Add":" %106 = call i8 @firstByte(i64 %103)"},{"Add":"; # (- D (char \"0\"))"},{"Add":" %107 = sub i8 %106, 48"},{"Add":"; # (i32 (- D (char \"0\")))"},{"Add":" %108 = zext i8 %107 to i32"},{"Add":"; # (loop (? (or (> (char \"0\") D) (> D (char \"9\"))) (call $Put (char ..."},{"Add":" br label %$35"},{"Add":"$35:"},{"Add":" %109 = phi i64 [%101, %$34], [%145, %$41] ; # Lst"},{"Add":" %110 = phi i64 [%105, %$34], [%146, %$41] ; # L"},{"Add":" %111 = phi i8 [%106, %$34], [%147, %$41] ; # D"},{"Add":" %112 = phi i32 [%108, %$34], [%152, %$41] ; # N"},{"Add":"; # (? (or (> (char \"0\") D) (> D (char \"9\"))) (call $Put (char \"&\")) ..."},{"Add":"; # (or (> (char \"0\") D) (> D (char \"9\")))"},{"Add":"; # (> (char \"0\") D)"},{"Add":" %113 = icmp ugt i8 48, %111"},{"Add":" br i1 %113, label %$36, label %$37"},{"Add":"$37:"},{"Add":" %114 = phi i64 [%109, %$35] ; # Lst"},{"Add":" %115 = phi i64 [%110, %$35] ; # L"},{"Add":" %116 = phi i8 [%111, %$35] ; # D"},{"Add":" %117 = phi i32 [%112, %$35] ; # N"},{"Add":"; # (> D (char \"9\"))"},{"Add":" %118 = icmp ugt i8 %116, 57"},{"Add":" br label %$36"},{"Add":"$36:"},{"Add":" %119 = phi i64 [%109, %$35], [%114, %$37] ; # Lst"},{"Add":" %120 = phi i64 [%110, %$35], [%115, %$37] ; # L"},{"Add":" %121 = phi i8 [%111, %$35], [%116, %$37] ; # D"},{"Add":" %122 = phi i32 [%112, %$35], [%117, %$37] ; # N"},{"Add":" %123 = phi i1 [1, %$35], [%118, %$37] ; # ->"},{"Add":" br i1 %123, label %$40, label %$38"},{"Add":"$40:"},{"Add":" %124 = phi i64 [%119, %$36] ; # Lst"},{"Add":" %125 = phi i64 [%120, %$36] ; # L"},{"Add":" %126 = phi i8 [%121, %$36] ; # D"},{"Add":" %127 = phi i32 [%122, %$36] ; # N"},{"Add":"; # (call $Put (char \"&\"))"},{"Add":" %128 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %128(i8 38)"},{"Add":"; # (call $Put (char \"#\"))"},{"Add":" %129 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %129(i8 35)"},{"Add":" br label %$39"},{"Add":"$38:"},{"Add":" %130 = phi i64 [%119, %$36] ; # Lst"},{"Add":" %131 = phi i64 [%120, %$36] ; # L"},{"Add":" %132 = phi i8 [%121, %$36] ; # D"},{"Add":" %133 = phi i32 [%122, %$36] ; # N"},{"Add":"; # (? (== (setq D (firstByte (++ L))) (char \";\")) (prSym (mkChar N))..."},{"Add":"; # (++ L)"},{"Add":" %134 = inttoptr i64 %131 to i64*"},{"Add":" %135 = load i64, i64* %134"},{"Add":" %136 = getelementptr i64, i64* %134, i32 1"},{"Add":" %137 = load i64, i64* %136"},{"Add":"; # (firstByte (++ L))"},{"Add":" %138 = call i8 @firstByte(i64 %135)"},{"Add":"; # (== (setq D (firstByte (++ L))) (char \";\"))"},{"Add":" %139 = icmp eq i8 %138, 59"},{"Add":" br i1 %139, label %$42, label %$41"},{"Add":"$42:"},{"Add":" %140 = phi i64 [%130, %$38] ; # Lst"},{"Add":" %141 = phi i64 [%137, %$38] ; # L"},{"Add":" %142 = phi i8 [%138, %$38] ; # D"},{"Add":" %143 = phi i32 [%133, %$38] ; # N"},{"Add":"; # (mkChar N)"},{"Add":" %144 = call i64 @mkChar(i32 %143)"},{"Add":"; # (prSym (mkChar N))"},{"Add":" call void @prSym(i64 %144)"},{"Add":" br label %$39"},{"Add":"$41:"},{"Add":" %145 = phi i64 [%130, %$38] ; # Lst"},{"Add":" %146 = phi i64 [%137, %$38] ; # L"},{"Add":" %147 = phi i8 [%138, %$38] ; # D"},{"Add":" %148 = phi i32 [%133, %$38] ; # N"},{"Add":"; # (* N 10)"},{"Add":" %149 = mul i32 %148, 10"},{"Add":"; # (- D (char \"0\"))"},{"Add":" %150 = sub i8 %147, 48"},{"Add":"; # (i32 (- D (char \"0\")))"},{"Add":" %151 = zext i8 %150 to i32"},{"Add":"; # (+ (* N 10) (i32 (- D (char \"0\"))))"},{"Add":" %152 = add i32 %149, %151"},{"Add":" br label %$35"},{"Add":"$39:"},{"Add":" %153 = phi i64 [%124, %$40], [%141, %$42] ; # Lst"},{"Add":" %154 = phi i64 [%125, %$40], [%141, %$42] ; # L"},{"Add":" %155 = phi i8 [%126, %$40], [%142, %$42] ; # D"},{"Add":" %156 = phi i32 [%127, %$40], [%143, %$42] ; # N"},{"Add":" br label %$15"},{"Add":"$33:"},{"Add":" %157 = phi i64 [%93, %$31] ; # Lst"},{"Add":"; # (call $Put (char \"&\"))"},{"Add":" %158 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %158(i8 38)"},{"Add":" br label %$15"},{"Add":"$15:"},{"Add":" %159 = phi i64 [%62, %$20], [%67, %$22], [%69, %$24], [%74, %$26], [%79, %$28], [%84, %$30], [%89, %$32], [%153, %$39], [%157, %$33] ; # Lst"},{"Add":" br label %$12"},{"Add":"$14:"},{"Add":" %160 = phi i64 [%37, %$12] ; # Lst"},{"Add":"; # (endString)"},{"Add":" %161 = call i64 @endString()"},{"Add":"; # (drop *Safe)"},{"Add":" %162 = inttoptr i64 %19 to i64*"},{"Add":" %163 = getelementptr i64, i64* %162, i32 1"},{"Add":" %164 = load i64, i64* %163"},{"Add":" %165 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %164, i64* %165"},{"Add":" ret i64 %161"},{"Add":"}"},{"Add":""},{"Add":"define i64 @Read(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let (N (evCnt Exe (cdr Exe)) C (val $Chr)) (if (or (le0 N) (and ..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (evCnt Exe (cdr Exe))"},{"Add":" %4 = call i64 @evCnt(i64 %0, i64 %3)"},{"Add":"; # (val $Chr)"},{"Add":" %5 = load i32, i32* bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 64) to i32*)"},{"Add":"; # (if (or (le0 N) (and (=0 C) (lt0 (setq C (call $Get))))) $Nil (le..."},{"Add":"; # (or (le0 N) (and (=0 C) (lt0 (setq C (call $Get)))))"},{"Add":"; # (le0 N)"},{"Add":" %6 = icmp sle i64 %4, 0"},{"Add":" br i1 %6, label %$2, label %$3"},{"Add":"$3:"},{"Add":" %7 = phi i64 [%4, %$1] ; # N"},{"Add":" %8 = phi i32 [%5, %$1] ; # C"},{"Add":"; # (and (=0 C) (lt0 (setq C (call $Get))))"},{"Add":"; # (=0 C)"},{"Add":" %9 = icmp eq i32 %8, 0"},{"Add":" br i1 %9, label %$5, label %$4"},{"Add":"$5:"},{"Add":" %10 = phi i64 [%7, %$3] ; # N"},{"Add":" %11 = phi i32 [%8, %$3] ; # C"},{"Add":"; # (call $Get)"},{"Add":" %12 = load i32()*, i32()** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 96) to i32()**)"},{"Add":" %13 = call i32 %12()"},{"Add":"; # (lt0 (setq C (call $Get)))"},{"Add":" %14 = icmp slt i32 %13, 0"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %15 = phi i64 [%7, %$3], [%10, %$5] ; # N"},{"Add":" %16 = phi i32 [%8, %$3], [%13, %$5] ; # C"},{"Add":" %17 = phi i1 [0, %$3], [%14, %$5] ; # ->"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %18 = phi i64 [%4, %$1], [%15, %$4] ; # N"},{"Add":" %19 = phi i32 [%5, %$1], [%16, %$4] ; # C"},{"Add":" %20 = phi i1 [1, %$1], [%17, %$4] ; # ->"},{"Add":" br i1 %20, label %$6, label %$7"},{"Add":"$6:"},{"Add":" %21 = phi i64 [%18, %$2] ; # N"},{"Add":" %22 = phi i32 [%19, %$2] ; # C"},{"Add":" br label %$8"},{"Add":"$7:"},{"Add":" %23 = phi i64 [%18, %$2] ; # N"},{"Add":" %24 = phi i32 [%19, %$2] ; # C"},{"Add":"; # (let C (getChar C) (when (>= C (hex \"80\")) (dec 'N) (when (>= C (..."},{"Add":"; # (getChar C)"},{"Add":" %25 = call i32 @getChar(i32 %24)"},{"Add":"; # (when (>= C (hex \"80\")) (dec 'N) (when (>= C (hex \"800\")) (dec 'N..."},{"Add":"; # (>= C (hex \"80\"))"},{"Add":" %26 = icmp sge i32 %25, 128"},{"Add":" br i1 %26, label %$9, label %$10"},{"Add":"$9:"},{"Add":" %27 = phi i64 [%23, %$7] ; # N"},{"Add":" %28 = phi i32 [%25, %$7] ; # C"},{"Add":"; # (dec 'N)"},{"Add":" %29 = sub i64 %27, 1"},{"Add":"; # (when (>= C (hex \"800\")) (dec 'N) (when (>= C (hex \"10000\")) (dec..."},{"Add":"; # (>= C (hex \"800\"))"},{"Add":" %30 = icmp sge i32 %28, 2048"},{"Add":" br i1 %30, label %$11, label %$12"},{"Add":"$11:"},{"Add":" %31 = phi i64 [%29, %$9] ; # N"},{"Add":" %32 = phi i32 [%28, %$9] ; # C"},{"Add":"; # (dec 'N)"},{"Add":" %33 = sub i64 %31, 1"},{"Add":"; # (when (>= C (hex \"10000\")) (dec 'N))"},{"Add":"; # (>= C (hex \"10000\"))"},{"Add":" %34 = icmp sge i32 %32, 65536"},{"Add":" br i1 %34, label %$13, label %$14"},{"Add":"$13:"},{"Add":" %35 = phi i64 [%33, %$11] ; # N"},{"Add":" %36 = phi i32 [%32, %$11] ; # C"},{"Add":"; # (dec 'N)"},{"Add":" %37 = sub i64 %35, 1"},{"Add":" br label %$14"},{"Add":"$14:"},{"Add":" %38 = phi i64 [%33, %$11], [%37, %$13] ; # N"},{"Add":" %39 = phi i32 [%32, %$11], [%36, %$13] ; # C"},{"Add":" br label %$12"},{"Add":"$12:"},{"Add":" %40 = phi i64 [%29, %$9], [%38, %$14] ; # N"},{"Add":" %41 = phi i32 [%28, %$9], [%39, %$14] ; # C"},{"Add":" br label %$10"},{"Add":"$10:"},{"Add":" %42 = phi i64 [%23, %$7], [%40, %$12] ; # N"},{"Add":" %43 = phi i32 [%25, %$7], [%41, %$12] ; # C"},{"Add":"; # (if (lt0 (dec 'N)) $Nil (let (X (cons (mkChar C) $Nil) R (save X)..."},{"Add":"; # (dec 'N)"},{"Add":" %44 = sub i64 %42, 1"},{"Add":"; # (lt0 (dec 'N))"},{"Add":" %45 = icmp slt i64 %44, 0"},{"Add":" br i1 %45, label %$15, label %$16"},{"Add":"$15:"},{"Add":" %46 = phi i64 [%44, %$10] ; # N"},{"Add":" %47 = phi i32 [%43, %$10] ; # C"},{"Add":" br label %$17"},{"Add":"$16:"},{"Add":" %48 = phi i64 [%44, %$10] ; # N"},{"Add":" %49 = phi i32 [%43, %$10] ; # C"},{"Add":"; # (let (X (cons (mkChar C) $Nil) R (save X)) (loop (? (=0 N) (set $..."},{"Add":"; # (mkChar C)"},{"Add":" %50 = call i64 @mkChar(i32 %49)"},{"Add":"; # (cons (mkChar C) $Nil)"},{"Add":" %51 = call i64 @cons(i64 %50, i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64))"},{"Add":"; # (save X)"},{"Add":" %52 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %53 = load i64, i64* %52"},{"Add":" %54 = alloca i64, i64 2, align 16"},{"Add":" %55 = ptrtoint i64* %54 to i64"},{"Add":" %56 = inttoptr i64 %55 to i64*"},{"Add":" store i64 %51, i64* %56"},{"Add":" %57 = add i64 %55, 8"},{"Add":" %58 = inttoptr i64 %57 to i64*"},{"Add":" store i64 %53, i64* %58"},{"Add":" %59 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %55, i64* %59"},{"Add":"; # (loop (? (=0 N) (set $Chr 0) R) (? (lt0 (setq C (call $Get))) $Ni..."},{"Add":" br label %$18"},{"Add":"$18:"},{"Add":" %60 = phi i64 [%48, %$16], [%109, %$30] ; # N"},{"Add":" %61 = phi i32 [%49, %$16], [%110, %$30] ; # C"},{"Add":" %62 = phi i64 [%51, %$16], [%113, %$30] ; # X"},{"Add":"; # (? (=0 N) (set $Chr 0) R)"},{"Add":"; # (=0 N)"},{"Add":" %63 = icmp eq i64 %60, 0"},{"Add":" br i1 %63, label %$21, label %$19"},{"Add":"$21:"},{"Add":" %64 = phi i64 [%60, %$18] ; # N"},{"Add":" %65 = phi i32 [%61, %$18] ; # C"},{"Add":" %66 = phi i64 [%62, %$18] ; # X"},{"Add":"; # (set $Chr 0)"},{"Add":" store i32 0, i32* bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 64) to i32*)"},{"Add":" br label %$20"},{"Add":"$19:"},{"Add":" %67 = phi i64 [%60, %$18] ; # N"},{"Add":" %68 = phi i32 [%61, %$18] ; # C"},{"Add":" %69 = phi i64 [%62, %$18] ; # X"},{"Add":"; # (? (lt0 (setq C (call $Get))) $Nil)"},{"Add":"; # (call $Get)"},{"Add":" %70 = load i32()*, i32()** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 96) to i32()**)"},{"Add":" %71 = call i32 %70()"},{"Add":"; # (lt0 (setq C (call $Get)))"},{"Add":" %72 = icmp slt i32 %71, 0"},{"Add":" br i1 %72, label %$23, label %$22"},{"Add":"$23:"},{"Add":" %73 = phi i64 [%67, %$19] ; # N"},{"Add":" %74 = phi i32 [%71, %$19] ; # C"},{"Add":" %75 = phi i64 [%69, %$19] ; # X"},{"Add":" br label %$20"},{"Add":"$22:"},{"Add":" %76 = phi i64 [%67, %$19] ; # N"},{"Add":" %77 = phi i32 [%71, %$19] ; # C"},{"Add":" %78 = phi i64 [%69, %$19] ; # X"},{"Add":"; # (getChar C)"},{"Add":" %79 = call i32 @getChar(i32 %77)"},{"Add":"; # (when (>= C (hex \"80\")) (dec 'N) (when (>= C (hex \"800\")) (dec 'N..."},{"Add":"; # (>= C (hex \"80\"))"},{"Add":" %80 = icmp sge i32 %79, 128"},{"Add":" br i1 %80, label %$24, label %$25"},{"Add":"$24:"},{"Add":" %81 = phi i64 [%76, %$22] ; # N"},{"Add":" %82 = phi i32 [%79, %$22] ; # C"},{"Add":" %83 = phi i64 [%78, %$22] ; # X"},{"Add":"; # (dec 'N)"},{"Add":" %84 = sub i64 %81, 1"},{"Add":"; # (when (>= C (hex \"800\")) (dec 'N) (when (>= C (hex \"10000\")) (dec..."},{"Add":"; # (>= C (hex \"800\"))"},{"Add":" %85 = icmp sge i32 %82, 2048"},{"Add":" br i1 %85, label %$26, label %$27"},{"Add":"$26:"},{"Add":" %86 = phi i64 [%84, %$24] ; # N"},{"Add":" %87 = phi i32 [%82, %$24] ; # C"},{"Add":" %88 = phi i64 [%83, %$24] ; # X"},{"Add":"; # (dec 'N)"},{"Add":" %89 = sub i64 %86, 1"},{"Add":"; # (when (>= C (hex \"10000\")) (dec 'N))"},{"Add":"; # (>= C (hex \"10000\"))"},{"Add":" %90 = icmp sge i32 %87, 65536"},{"Add":" br i1 %90, label %$28, label %$29"},{"Add":"$28:"},{"Add":" %91 = phi i64 [%89, %$26] ; # N"},{"Add":" %92 = phi i32 [%87, %$26] ; # C"},{"Add":" %93 = phi i64 [%88, %$26] ; # X"},{"Add":"; # (dec 'N)"},{"Add":" %94 = sub i64 %91, 1"},{"Add":" br label %$29"},{"Add":"$29:"},{"Add":" %95 = phi i64 [%89, %$26], [%94, %$28] ; # N"},{"Add":" %96 = phi i32 [%87, %$26], [%92, %$28] ; # C"},{"Add":" %97 = phi i64 [%88, %$26], [%93, %$28] ; # X"},{"Add":" br label %$27"},{"Add":"$27:"},{"Add":" %98 = phi i64 [%84, %$24], [%95, %$29] ; # N"},{"Add":" %99 = phi i32 [%82, %$24], [%96, %$29] ; # C"},{"Add":" %100 = phi i64 [%83, %$24], [%97, %$29] ; # X"},{"Add":" br label %$25"},{"Add":"$25:"},{"Add":" %101 = phi i64 [%76, %$22], [%98, %$27] ; # N"},{"Add":" %102 = phi i32 [%79, %$22], [%99, %$27] ; # C"},{"Add":" %103 = phi i64 [%78, %$22], [%100, %$27] ; # X"},{"Add":"; # (? (lt0 (dec 'N)) $Nil)"},{"Add":"; # (dec 'N)"},{"Add":" %104 = sub i64 %101, 1"},{"Add":"; # (lt0 (dec 'N))"},{"Add":" %105 = icmp slt i64 %104, 0"},{"Add":" br i1 %105, label %$31, label %$30"},{"Add":"$31:"},{"Add":" %106 = phi i64 [%104, %$25] ; # N"},{"Add":" %107 = phi i32 [%102, %$25] ; # C"},{"Add":" %108 = phi i64 [%103, %$25] ; # X"},{"Add":" br label %$20"},{"Add":"$30:"},{"Add":" %109 = phi i64 [%104, %$25] ; # N"},{"Add":" %110 = phi i32 [%102, %$25] ; # C"},{"Add":" %111 = phi i64 [%103, %$25] ; # X"},{"Add":"; # (set 2 X (cons (mkChar C) $Nil))"},{"Add":"; # (mkChar C)"},{"Add":" %112 = call i64 @mkChar(i32 %110)"},{"Add":"; # (cons (mkChar C) $Nil)"},{"Add":" %113 = call i64 @cons(i64 %112, i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64))"},{"Add":" %114 = inttoptr i64 %111 to i64*"},{"Add":" %115 = getelementptr i64, i64* %114, i32 1"},{"Add":" store i64 %113, i64* %115"},{"Add":" br label %$18"},{"Add":"$20:"},{"Add":" %116 = phi i64 [%64, %$21], [%73, %$23], [%106, %$31] ; # N"},{"Add":" %117 = phi i32 [%65, %$21], [%74, %$23], [%107, %$31] ; # C"},{"Add":" %118 = phi i64 [%66, %$21], [%75, %$23], [%108, %$31] ; # X"},{"Add":" %119 = phi i64 [%51, %$21], [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), %$23], [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), %$31] ; # ->"},{"Add":"; # (drop *Safe)"},{"Add":" %120 = inttoptr i64 %55 to i64*"},{"Add":" %121 = getelementptr i64, i64* %120, i32 1"},{"Add":" %122 = load i64, i64* %121"},{"Add":" %123 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %122, i64* %123"},{"Add":" br label %$17"},{"Add":"$17:"},{"Add":" %124 = phi i64 [%46, %$15], [%116, %$20] ; # N"},{"Add":" %125 = phi i32 [%47, %$15], [%117, %$20] ; # C"},{"Add":" %126 = phi i64 [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), %$15], [%119, %$20] ; # ->"},{"Add":" br label %$8"},{"Add":"$8:"},{"Add":" %127 = phi i64 [%21, %$6], [%124, %$17] ; # N"},{"Add":" %128 = phi i32 [%22, %$6], [%24, %$17] ; # C"},{"Add":" %129 = phi i64 [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), %$6], [%126, %$17] ; # ->"},{"Add":" ret i64 %129"},{"Add":"}"},{"Add":"@$CnkCnt = global i32 0"},{"Add":"@$SvGet = global i32()* null"},{"Add":"@$SvPut = global void(i8)* null"},{"Add":"@$CnkBuf = global [4000 x i8] zeroinitializer"},{"Add":""},{"Add":"define i32 @chrHex(i32) align 8 {"},{"Add":"$1:"},{"Add":"; # (cond ((and (>= C (char \"0\")) (>= (char \"9\") C)) (- C 48)) ((and ..."},{"Add":"; # (and (>= C (char \"0\")) (>= (char \"9\") C))"},{"Add":"; # (>= C (char \"0\"))"},{"Add":" %1 = icmp sge i32 %0, 48"},{"Add":" br i1 %1, label %$4, label %$3"},{"Add":"$4:"},{"Add":" %2 = phi i32 [%0, %$1] ; # C"},{"Add":"; # (>= (char \"9\") C)"},{"Add":" %3 = icmp sge i32 57, %2"},{"Add":" br label %$3"},{"Add":"$3:"},{"Add":" %4 = phi i32 [%0, %$1], [%2, %$4] ; # C"},{"Add":" %5 = phi i1 [0, %$1], [%3, %$4] ; # ->"},{"Add":" br i1 %5, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %6 = phi i32 [%4, %$3] ; # C"},{"Add":"; # (- C 48)"},{"Add":" %7 = sub i32 %6, 48"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":" %8 = phi i32 [%4, %$3] ; # C"},{"Add":"; # (and (>= (setq C (& C (hex \"DF\"))) (char \"A\")) (>= (char \"F\") C))..."},{"Add":"; # (& C (hex \"DF\"))"},{"Add":" %9 = and i32 %8, 223"},{"Add":"; # (>= (setq C (& C (hex \"DF\"))) (char \"A\"))"},{"Add":" %10 = icmp sge i32 %9, 65"},{"Add":" br i1 %10, label %$8, label %$7"},{"Add":"$8:"},{"Add":" %11 = phi i32 [%9, %$5] ; # C"},{"Add":"; # (>= (char \"F\") C)"},{"Add":" %12 = icmp sge i32 70, %11"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %13 = phi i32 [%9, %$5], [%11, %$8] ; # C"},{"Add":" %14 = phi i1 [0, %$5], [%12, %$8] ; # ->"},{"Add":" br i1 %14, label %$10, label %$9"},{"Add":"$10:"},{"Add":" %15 = phi i32 [%13, %$7] ; # C"},{"Add":"; # (- C 55)"},{"Add":" %16 = sub i32 %15, 55"},{"Add":" br label %$2"},{"Add":"$9:"},{"Add":" %17 = phi i32 [%13, %$7] ; # C"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %18 = phi i32 [%6, %$6], [%15, %$10], [%17, %$9] ; # C"},{"Add":" %19 = phi i32 [%7, %$6], [%16, %$10], [-1, %$9] ; # ->"},{"Add":" ret i32 %19"},{"Add":"}"},{"Add":""},{"Add":"define void @chunkSize() align 8 {"},{"Add":"$1:"},{"Add":"; # (let C (val $Chr) (unless C (setq C (call $SvGet))) (when (ge0 (s..."},{"Add":"; # (val $Chr)"},{"Add":" %0 = load i32, i32* bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 64) to i32*)"},{"Add":"; # (unless C (setq C (call $SvGet)))"},{"Add":" %1 = icmp ne i32 %0, 0"},{"Add":" br i1 %1, label %$3, label %$2"},{"Add":"$2:"},{"Add":" %2 = phi i32 [%0, %$1] ; # C"},{"Add":"; # (call $SvGet)"},{"Add":" %3 = load i32()*, i32()** @$SvGet"},{"Add":" %4 = call i32 %3()"},{"Add":" br label %$3"},{"Add":"$3:"},{"Add":" %5 = phi i32 [%0, %$1], [%4, %$2] ; # C"},{"Add":"; # (when (ge0 (set $CnkCnt (chrHex C))) (while (ge0 (chrHex (setq C ..."},{"Add":"; # (set $CnkCnt (chrHex C))"},{"Add":"; # (chrHex C)"},{"Add":" %6 = call i32 @chrHex(i32 %5)"},{"Add":" store i32 %6, i32* @$CnkCnt"},{"Add":"; # (ge0 (set $CnkCnt (chrHex C)))"},{"Add":" %7 = icmp sge i32 %6, 0"},{"Add":" br i1 %7, label %$4, label %$5"},{"Add":"$4:"},{"Add":" %8 = phi i32 [%5, %$3] ; # C"},{"Add":"; # (while (ge0 (chrHex (setq C (call $SvGet)))) (set $CnkCnt (| @ (s..."},{"Add":" br label %$6"},{"Add":"$6:"},{"Add":" %9 = phi i32 [%8, %$4], [%14, %$7] ; # C"},{"Add":"; # (call $SvGet)"},{"Add":" %10 = load i32()*, i32()** @$SvGet"},{"Add":" %11 = call i32 %10()"},{"Add":"; # (chrHex (setq C (call $SvGet)))"},{"Add":" %12 = call i32 @chrHex(i32 %11)"},{"Add":"; # (ge0 (chrHex (setq C (call $SvGet))))"},{"Add":" %13 = icmp sge i32 %12, 0"},{"Add":" br i1 %13, label %$7, label %$8"},{"Add":"$7:"},{"Add":" %14 = phi i32 [%11, %$6] ; # C"},{"Add":"; # (set $CnkCnt (| @ (shl (val $CnkCnt) 4)))"},{"Add":"; # (val $CnkCnt)"},{"Add":" %15 = load i32, i32* @$CnkCnt"},{"Add":"; # (shl (val $CnkCnt) 4)"},{"Add":" %16 = shl i32 %15, 4"},{"Add":"; # (| @ (shl (val $CnkCnt) 4))"},{"Add":" %17 = or i32 %12, %16"},{"Add":" store i32 %17, i32* @$CnkCnt"},{"Add":" br label %$6"},{"Add":"$8:"},{"Add":" %18 = phi i32 [%11, %$6] ; # C"},{"Add":"; # (loop (? (== C (char \"^J\")) (call $SvGet) (when (=0 (val $CnkCnt)..."},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %19 = phi i32 [%18, %$8], [%34, %$15] ; # C"},{"Add":"; # (? (== C (char \"^J\")) (call $SvGet) (when (=0 (val $CnkCnt)) (cal..."},{"Add":"; # (== C (char \"^J\"))"},{"Add":" %20 = icmp eq i32 %19, 10"},{"Add":" br i1 %20, label %$12, label %$10"},{"Add":"$12:"},{"Add":" %21 = phi i32 [%19, %$9] ; # C"},{"Add":"; # (call $SvGet)"},{"Add":" %22 = load i32()*, i32()** @$SvGet"},{"Add":" %23 = call i32 %22()"},{"Add":"; # (when (=0 (val $CnkCnt)) (call $SvGet) (set $Chr 0))"},{"Add":"; # (val $CnkCnt)"},{"Add":" %24 = load i32, i32* @$CnkCnt"},{"Add":"; # (=0 (val $CnkCnt))"},{"Add":" %25 = icmp eq i32 %24, 0"},{"Add":" br i1 %25, label %$13, label %$14"},{"Add":"$13:"},{"Add":" %26 = phi i32 [%21, %$12] ; # C"},{"Add":"; # (call $SvGet)"},{"Add":" %27 = load i32()*, i32()** @$SvGet"},{"Add":" %28 = call i32 %27()"},{"Add":"; # (set $Chr 0)"},{"Add":" store i32 0, i32* bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 64) to i32*)"},{"Add":" br label %$14"},{"Add":"$14:"},{"Add":" %29 = phi i32 [%21, %$12], [%26, %$13] ; # C"},{"Add":" br label %$11"},{"Add":"$10:"},{"Add":" %30 = phi i32 [%19, %$9] ; # C"},{"Add":"; # (? (lt0 C))"},{"Add":"; # (lt0 C)"},{"Add":" %31 = icmp slt i32 %30, 0"},{"Add":" br i1 %31, label %$11, label %$15"},{"Add":"$15:"},{"Add":" %32 = phi i32 [%30, %$10] ; # C"},{"Add":"; # (call $SvGet)"},{"Add":" %33 = load i32()*, i32()** @$SvGet"},{"Add":" %34 = call i32 %33()"},{"Add":" br label %$9"},{"Add":"$11:"},{"Add":" %35 = phi i32 [%29, %$14], [%30, %$10] ; # C"},{"Add":" br label %$5"},{"Add":"$5:"},{"Add":" %36 = phi i32 [%5, %$3], [%35, %$11] ; # C"},{"Add":" ret void"},{"Add":"}"},{"Add":""},{"Add":"define i32 @getChunked() align 8 {"},{"Add":"$1:"},{"Add":"; # (if (le0 (val $CnkCnt)) (set $Chr -1) (call $SvGet) (when (=0 (se..."},{"Add":"; # (val $CnkCnt)"},{"Add":" %0 = load i32, i32* @$CnkCnt"},{"Add":"; # (le0 (val $CnkCnt))"},{"Add":" %1 = icmp sle i32 %0, 0"},{"Add":" br i1 %1, label %$2, label %$3"},{"Add":"$2:"},{"Add":"; # (set $Chr -1)"},{"Add":" store i32 -1, i32* bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 64) to i32*)"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":"; # (call $SvGet)"},{"Add":" %2 = load i32()*, i32()** @$SvGet"},{"Add":" %3 = call i32 %2()"},{"Add":"; # (when (=0 (set $CnkCnt (dec @))) (call $SvGet) (call $SvGet) (chu..."},{"Add":"; # (set $CnkCnt (dec @))"},{"Add":"; # (dec @)"},{"Add":" %4 = sub i32 %0, 1"},{"Add":" store i32 %4, i32* @$CnkCnt"},{"Add":"; # (=0 (set $CnkCnt (dec @)))"},{"Add":" %5 = icmp eq i32 %4, 0"},{"Add":" br i1 %5, label %$5, label %$6"},{"Add":"$5:"},{"Add":"; # (call $SvGet)"},{"Add":" %6 = load i32()*, i32()** @$SvGet"},{"Add":" %7 = call i32 %6()"},{"Add":"; # (call $SvGet)"},{"Add":" %8 = load i32()*, i32()** @$SvGet"},{"Add":" %9 = call i32 %8()"},{"Add":"; # (chunkSize)"},{"Add":" call void @chunkSize()"},{"Add":" br label %$6"},{"Add":"$6:"},{"Add":"; # (val $Chr)"},{"Add":" %10 = load i32, i32* bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 64) to i32*)"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %11 = phi i32 [-1, %$2], [%10, %$6] ; # ->"},{"Add":" ret i32 %11"},{"Add":"}"},{"Add":""},{"Add":"define i64 @In(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let X (cdr Exe) (if (nil? (eval (++ X))) (run X) (set (i8** $SvG..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (if (nil? (eval (++ X))) (run X) (set (i8** $SvGet) (val (i8** $G..."},{"Add":"; # (++ X)"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":" %6 = getelementptr i64, i64* %4, i32 1"},{"Add":" %7 = load i64, i64* %6"},{"Add":"; # (eval (++ X))"},{"Add":" %8 = and i64 %5, 6"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br i1 %9, label %$4, label %$3"},{"Add":"$4:"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %10 = and i64 %5, 8"},{"Add":" %11 = icmp ne i64 %10, 0"},{"Add":" br i1 %11, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %12 = inttoptr i64 %5 to i64*"},{"Add":" %13 = load i64, i64* %12"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":" %14 = call i64 @evList(i64 %5)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %15 = phi i64 [%5, %$4], [%13, %$6], [%14, %$5] ; # ->"},{"Add":"; # (nil? (eval (++ X)))"},{"Add":" %16 = icmp eq i64 %15, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %16, label %$7, label %$8"},{"Add":"$7:"},{"Add":" %17 = phi i64 [%7, %$2] ; # X"},{"Add":"; # (run X)"},{"Add":" br label %$10"},{"Add":"$10:"},{"Add":" %18 = phi i64 [%17, %$7], [%40, %$19] ; # Prg"},{"Add":" %19 = inttoptr i64 %18 to i64*"},{"Add":" %20 = load i64, i64* %19"},{"Add":" %21 = getelementptr i64, i64* %19, i32 1"},{"Add":" %22 = load i64, i64* %21"},{"Add":" %23 = and i64 %22, 15"},{"Add":" %24 = icmp ne i64 %23, 0"},{"Add":" br i1 %24, label %$13, label %$11"},{"Add":"$13:"},{"Add":" %25 = phi i64 [%22, %$10] ; # Prg"},{"Add":" %26 = and i64 %20, 6"},{"Add":" %27 = icmp ne i64 %26, 0"},{"Add":" br i1 %27, label %$16, label %$15"},{"Add":"$16:"},{"Add":" br label %$14"},{"Add":"$15:"},{"Add":" %28 = and i64 %20, 8"},{"Add":" %29 = icmp ne i64 %28, 0"},{"Add":" br i1 %29, label %$18, label %$17"},{"Add":"$18:"},{"Add":" %30 = inttoptr i64 %20 to i64*"},{"Add":" %31 = load i64, i64* %30"},{"Add":" br label %$14"},{"Add":"$17:"},{"Add":" %32 = call i64 @evList(i64 %20)"},{"Add":" br label %$14"},{"Add":"$14:"},{"Add":" %33 = phi i64 [%20, %$16], [%31, %$18], [%32, %$17] ; # ->"},{"Add":" br label %$12"},{"Add":"$11:"},{"Add":" %34 = phi i64 [%22, %$10] ; # Prg"},{"Add":" %35 = and i64 %20, 15"},{"Add":" %36 = icmp eq i64 %35, 0"},{"Add":" br i1 %36, label %$20, label %$19"},{"Add":"$20:"},{"Add":" %37 = phi i64 [%34, %$11] ; # Prg"},{"Add":" %38 = call i64 @evList(i64 %20)"},{"Add":" %39 = icmp ne i64 %38, 0"},{"Add":" br label %$19"},{"Add":"$19:"},{"Add":" %40 = phi i64 [%34, %$11], [%37, %$20] ; # Prg"},{"Add":" %41 = phi i1 [0, %$11], [%39, %$20] ; # ->"},{"Add":" br label %$10"},{"Add":"$12:"},{"Add":" %42 = phi i64 [%25, %$14] ; # Prg"},{"Add":" %43 = phi i64 [%33, %$14] ; # ->"},{"Add":" br label %$9"},{"Add":"$8:"},{"Add":" %44 = phi i64 [%7, %$2] ; # X"},{"Add":"; # (set (i8** $SvGet) (val (i8** $Get)) $Get (fun (i32) getChunked))..."},{"Add":"; # (i8** $SvGet)"},{"Add":" %45 = bitcast i32()** @$SvGet to i8**"},{"Add":"; # (i8** $Get)"},{"Add":" %46 = bitcast i32()** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 96) to i32()**) to i8**"},{"Add":"; # (val (i8** $Get))"},{"Add":" %47 = load i8*, i8** %46"},{"Add":" store i8* %47, i8** %45"},{"Add":"; # (fun (i32) getChunked)"},{"Add":" store i32()* @getChunked, i32()** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 96) to i32()**)"},{"Add":"; # (chunkSize)"},{"Add":" call void @chunkSize()"},{"Add":"; # (prog1 (run X) (set (i8** $Get) (val (i8** $SvGet))) (set $Chr 0)..."},{"Add":"; # (run X)"},{"Add":" br label %$21"},{"Add":"$21:"},{"Add":" %48 = phi i64 [%44, %$8], [%70, %$30] ; # Prg"},{"Add":" %49 = inttoptr i64 %48 to i64*"},{"Add":" %50 = load i64, i64* %49"},{"Add":" %51 = getelementptr i64, i64* %49, i32 1"},{"Add":" %52 = load i64, i64* %51"},{"Add":" %53 = and i64 %52, 15"},{"Add":" %54 = icmp ne i64 %53, 0"},{"Add":" br i1 %54, label %$24, label %$22"},{"Add":"$24:"},{"Add":" %55 = phi i64 [%52, %$21] ; # Prg"},{"Add":" %56 = and i64 %50, 6"},{"Add":" %57 = icmp ne i64 %56, 0"},{"Add":" br i1 %57, label %$27, label %$26"},{"Add":"$27:"},{"Add":" br label %$25"},{"Add":"$26:"},{"Add":" %58 = and i64 %50, 8"},{"Add":" %59 = icmp ne i64 %58, 0"},{"Add":" br i1 %59, label %$29, label %$28"},{"Add":"$29:"},{"Add":" %60 = inttoptr i64 %50 to i64*"},{"Add":" %61 = load i64, i64* %60"},{"Add":" br label %$25"},{"Add":"$28:"},{"Add":" %62 = call i64 @evList(i64 %50)"},{"Add":" br label %$25"},{"Add":"$25:"},{"Add":" %63 = phi i64 [%50, %$27], [%61, %$29], [%62, %$28] ; # ->"},{"Add":" br label %$23"},{"Add":"$22:"},{"Add":" %64 = phi i64 [%52, %$21] ; # Prg"},{"Add":" %65 = and i64 %50, 15"},{"Add":" %66 = icmp eq i64 %65, 0"},{"Add":" br i1 %66, label %$31, label %$30"},{"Add":"$31:"},{"Add":" %67 = phi i64 [%64, %$22] ; # Prg"},{"Add":" %68 = call i64 @evList(i64 %50)"},{"Add":" %69 = icmp ne i64 %68, 0"},{"Add":" br label %$30"},{"Add":"$30:"},{"Add":" %70 = phi i64 [%64, %$22], [%67, %$31] ; # Prg"},{"Add":" %71 = phi i1 [0, %$22], [%69, %$31] ; # ->"},{"Add":" br label %$21"},{"Add":"$23:"},{"Add":" %72 = phi i64 [%55, %$25] ; # Prg"},{"Add":" %73 = phi i64 [%63, %$25] ; # ->"},{"Add":"; # (set (i8** $Get) (val (i8** $SvGet)))"},{"Add":"; # (i8** $Get)"},{"Add":" %74 = bitcast i32()** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 96) to i32()**) to i8**"},{"Add":"; # (i8** $SvGet)"},{"Add":" %75 = bitcast i32()** @$SvGet to i8**"},{"Add":"; # (val (i8** $SvGet))"},{"Add":" %76 = load i8*, i8** %75"},{"Add":" store i8* %76, i8** %74"},{"Add":"; # (set $Chr 0)"},{"Add":" store i32 0, i32* bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 64) to i32*)"},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %77 = phi i64 [%17, %$12], [%44, %$23] ; # X"},{"Add":" %78 = phi i64 [%43, %$12], [%73, %$23] ; # ->"},{"Add":" ret i64 %78"},{"Add":"}"},{"Add":""},{"Add":"define void @outHex(i32) align 8 {"},{"Add":"$1:"},{"Add":"; # (when (> N 15) (outHex (shr N 4)) (setq N (& N 15)))"},{"Add":"; # (> N 15)"},{"Add":" %1 = icmp sgt i32 %0, 15"},{"Add":" br i1 %1, label %$2, label %$3"},{"Add":"$2:"},{"Add":" %2 = phi i32 [%0, %$1] ; # N"},{"Add":"; # (shr N 4)"},{"Add":" %3 = lshr i32 %2, 4"},{"Add":"; # (outHex (shr N 4))"},{"Add":" call void @outHex(i32 %3)"},{"Add":"; # (& N 15)"},{"Add":" %4 = and i32 %2, 15"},{"Add":" br label %$3"},{"Add":"$3:"},{"Add":" %5 = phi i32 [%0, %$1], [%4, %$2] ; # N"},{"Add":"; # (when (> N 9) (setq N (+ N 39)))"},{"Add":"; # (> N 9)"},{"Add":" %6 = icmp sgt i32 %5, 9"},{"Add":" br i1 %6, label %$4, label %$5"},{"Add":"$4:"},{"Add":" %7 = phi i32 [%5, %$3] ; # N"},{"Add":"; # (+ N 39)"},{"Add":" %8 = add i32 %7, 39"},{"Add":" br label %$5"},{"Add":"$5:"},{"Add":" %9 = phi i32 [%5, %$3], [%8, %$4] ; # N"},{"Add":"; # (i8 N)"},{"Add":" %10 = trunc i32 %9 to i8"},{"Add":"; # (+ (i8 N) (char \"0\"))"},{"Add":" %11 = add i8 %10, 48"},{"Add":"; # (call $SvPut (+ (i8 N) (char \"0\")))"},{"Add":" %12 = load void(i8)*, void(i8)** @$SvPut"},{"Add":" call void %12(i8 %11)"},{"Add":" ret void"},{"Add":"}"},{"Add":""},{"Add":"define void @wrChunk(i32) align 8 {"},{"Add":"$1:"},{"Add":"; # (outHex Cnt)"},{"Add":" call void @outHex(i32 %0)"},{"Add":"; # (call $SvPut (char \"^M\"))"},{"Add":" %1 = load void(i8)*, void(i8)** @$SvPut"},{"Add":" call void %1(i8 13)"},{"Add":"; # (call $SvPut (char \"^J\"))"},{"Add":" %2 = load void(i8)*, void(i8)** @$SvPut"},{"Add":" call void %2(i8 10)"},{"Add":"; # (let P $CnkBuf (loop (call $SvPut (val P)) (? (=0 (dec 'Cnt))) (i..."},{"Add":"; # (loop (call $SvPut (val P)) (? (=0 (dec 'Cnt))) (inc 'P))"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %3 = phi i32 [%0, %$1], [%9, %$3] ; # Cnt"},{"Add":" %4 = phi i8* [bitcast ([4000 x i8]* @$CnkBuf to i8*), %$1], [%11, %$3] ; # P"},{"Add":"; # (val P)"},{"Add":" %5 = load i8, i8* %4"},{"Add":"; # (call $SvPut (val P))"},{"Add":" %6 = load void(i8)*, void(i8)** @$SvPut"},{"Add":" call void %6(i8 %5)"},{"Add":"; # (? (=0 (dec 'Cnt)))"},{"Add":"; # (dec 'Cnt)"},{"Add":" %7 = sub i32 %3, 1"},{"Add":"; # (=0 (dec 'Cnt))"},{"Add":" %8 = icmp eq i32 %7, 0"},{"Add":" br i1 %8, label %$4, label %$3"},{"Add":"$3:"},{"Add":" %9 = phi i32 [%7, %$2] ; # Cnt"},{"Add":" %10 = phi i8* [%4, %$2] ; # P"},{"Add":"; # (inc 'P)"},{"Add":" %11 = getelementptr i8, i8* %10, i32 1"},{"Add":" br label %$2"},{"Add":"$4:"},{"Add":" %12 = phi i32 [%7, %$2] ; # Cnt"},{"Add":" %13 = phi i8* [%4, %$2] ; # P"},{"Add":" %14 = phi i64 [0, %$2] ; # ->"},{"Add":"; # (call $SvPut (char \"^M\"))"},{"Add":" %15 = load void(i8)*, void(i8)** @$SvPut"},{"Add":" call void %15(i8 13)"},{"Add":"; # (call $SvPut (char \"^J\"))"},{"Add":" %16 = load void(i8)*, void(i8)** @$SvPut"},{"Add":" call void %16(i8 10)"},{"Add":" ret void"},{"Add":"}"},{"Add":""},{"Add":"define void @putChunked(i8) align 8 {"},{"Add":"$1:"},{"Add":"; # (let I (val $CnkCnt) (set (ofs $CnkBuf I) B) (ifn (== (inc I) CHU..."},{"Add":"; # (val $CnkCnt)"},{"Add":" %1 = load i32, i32* @$CnkCnt"},{"Add":"; # (set (ofs $CnkBuf I) B)"},{"Add":"; # (ofs $CnkBuf I)"},{"Add":" %2 = getelementptr i8, i8* bitcast ([4000 x i8]* @$CnkBuf to i8*), i32 %1"},{"Add":" store i8 %0, i8* %2"},{"Add":"; # (ifn (== (inc I) CHUNK) (set $CnkCnt @) (wrChunk @) (set $CnkCnt ..."},{"Add":"; # (inc I)"},{"Add":" %3 = add i32 %1, 1"},{"Add":"; # (== (inc I) CHUNK)"},{"Add":" %4 = icmp eq i32 %3, 4000"},{"Add":" br i1 %4, label %$3, label %$2"},{"Add":"$2:"},{"Add":"; # (set $CnkCnt @)"},{"Add":" store i32 %3, i32* @$CnkCnt"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":"; # (wrChunk @)"},{"Add":" call void @wrChunk(i32 %3)"},{"Add":"; # (set $CnkCnt 0)"},{"Add":" store i32 0, i32* @$CnkCnt"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %5 = phi i32 [%3, %$2], [0, %$3] ; # ->"},{"Add":" ret void"},{"Add":"}"},{"Add":""},{"Add":"define i64 @Out(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let (X (cdr Exe) F (eval (++ X))) (if (nil? F) (setq X (run X)) ..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (++ X)"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":" %6 = getelementptr i64, i64* %4, i32 1"},{"Add":" %7 = load i64, i64* %6"},{"Add":"; # (eval (++ X))"},{"Add":" %8 = and i64 %5, 6"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br i1 %9, label %$4, label %$3"},{"Add":"$4:"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %10 = and i64 %5, 8"},{"Add":" %11 = icmp ne i64 %10, 0"},{"Add":" br i1 %11, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %12 = inttoptr i64 %5 to i64*"},{"Add":" %13 = load i64, i64* %12"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":" %14 = call i64 @evList(i64 %5)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %15 = phi i64 [%5, %$4], [%13, %$6], [%14, %$5] ; # ->"},{"Add":"; # (if (nil? F) (setq X (run X)) (set $CnkCnt 0 (i8** $SvPut) (val (..."},{"Add":"; # (nil? F)"},{"Add":" %16 = icmp eq i64 %15, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %16, label %$7, label %$8"},{"Add":"$7:"},{"Add":" %17 = phi i64 [%7, %$2] ; # X"},{"Add":"; # (run X)"},{"Add":" br label %$10"},{"Add":"$10:"},{"Add":" %18 = phi i64 [%17, %$7], [%40, %$19] ; # Prg"},{"Add":" %19 = inttoptr i64 %18 to i64*"},{"Add":" %20 = load i64, i64* %19"},{"Add":" %21 = getelementptr i64, i64* %19, i32 1"},{"Add":" %22 = load i64, i64* %21"},{"Add":" %23 = and i64 %22, 15"},{"Add":" %24 = icmp ne i64 %23, 0"},{"Add":" br i1 %24, label %$13, label %$11"},{"Add":"$13:"},{"Add":" %25 = phi i64 [%22, %$10] ; # Prg"},{"Add":" %26 = and i64 %20, 6"},{"Add":" %27 = icmp ne i64 %26, 0"},{"Add":" br i1 %27, label %$16, label %$15"},{"Add":"$16:"},{"Add":" br label %$14"},{"Add":"$15:"},{"Add":" %28 = and i64 %20, 8"},{"Add":" %29 = icmp ne i64 %28, 0"},{"Add":" br i1 %29, label %$18, label %$17"},{"Add":"$18:"},{"Add":" %30 = inttoptr i64 %20 to i64*"},{"Add":" %31 = load i64, i64* %30"},{"Add":" br label %$14"},{"Add":"$17:"},{"Add":" %32 = call i64 @evList(i64 %20)"},{"Add":" br label %$14"},{"Add":"$14:"},{"Add":" %33 = phi i64 [%20, %$16], [%31, %$18], [%32, %$17] ; # ->"},{"Add":" br label %$12"},{"Add":"$11:"},{"Add":" %34 = phi i64 [%22, %$10] ; # Prg"},{"Add":" %35 = and i64 %20, 15"},{"Add":" %36 = icmp eq i64 %35, 0"},{"Add":" br i1 %36, label %$20, label %$19"},{"Add":"$20:"},{"Add":" %37 = phi i64 [%34, %$11] ; # Prg"},{"Add":" %38 = call i64 @evList(i64 %20)"},{"Add":" %39 = icmp ne i64 %38, 0"},{"Add":" br label %$19"},{"Add":"$19:"},{"Add":" %40 = phi i64 [%34, %$11], [%37, %$20] ; # Prg"},{"Add":" %41 = phi i1 [0, %$11], [%39, %$20] ; # ->"},{"Add":" br label %$10"},{"Add":"$12:"},{"Add":" %42 = phi i64 [%25, %$14] ; # Prg"},{"Add":" %43 = phi i64 [%33, %$14] ; # ->"},{"Add":" br label %$9"},{"Add":"$8:"},{"Add":" %44 = phi i64 [%7, %$2] ; # X"},{"Add":"; # (set $CnkCnt 0 (i8** $SvPut) (val (i8** $Put)) $Put (fun (void i8..."},{"Add":" store i32 0, i32* @$CnkCnt"},{"Add":"; # (i8** $SvPut)"},{"Add":" %45 = bitcast void(i8)** @$SvPut to i8**"},{"Add":"; # (i8** $Put)"},{"Add":" %46 = bitcast void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**) to i8**"},{"Add":"; # (val (i8** $Put))"},{"Add":" %47 = load i8*, i8** %46"},{"Add":" store i8* %47, i8** %45"},{"Add":"; # (fun (void i8) putChunked)"},{"Add":" store void(i8)* @putChunked, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":"; # (run X)"},{"Add":" br label %$21"},{"Add":"$21:"},{"Add":" %48 = phi i64 [%44, %$8], [%70, %$30] ; # Prg"},{"Add":" %49 = inttoptr i64 %48 to i64*"},{"Add":" %50 = load i64, i64* %49"},{"Add":" %51 = getelementptr i64, i64* %49, i32 1"},{"Add":" %52 = load i64, i64* %51"},{"Add":" %53 = and i64 %52, 15"},{"Add":" %54 = icmp ne i64 %53, 0"},{"Add":" br i1 %54, label %$24, label %$22"},{"Add":"$24:"},{"Add":" %55 = phi i64 [%52, %$21] ; # Prg"},{"Add":" %56 = and i64 %50, 6"},{"Add":" %57 = icmp ne i64 %56, 0"},{"Add":" br i1 %57, label %$27, label %$26"},{"Add":"$27:"},{"Add":" br label %$25"},{"Add":"$26:"},{"Add":" %58 = and i64 %50, 8"},{"Add":" %59 = icmp ne i64 %58, 0"},{"Add":" br i1 %59, label %$29, label %$28"},{"Add":"$29:"},{"Add":" %60 = inttoptr i64 %50 to i64*"},{"Add":" %61 = load i64, i64* %60"},{"Add":" br label %$25"},{"Add":"$28:"},{"Add":" %62 = call i64 @evList(i64 %50)"},{"Add":" br label %$25"},{"Add":"$25:"},{"Add":" %63 = phi i64 [%50, %$27], [%61, %$29], [%62, %$28] ; # ->"},{"Add":" br label %$23"},{"Add":"$22:"},{"Add":" %64 = phi i64 [%52, %$21] ; # Prg"},{"Add":" %65 = and i64 %50, 15"},{"Add":" %66 = icmp eq i64 %65, 0"},{"Add":" br i1 %66, label %$31, label %$30"},{"Add":"$31:"},{"Add":" %67 = phi i64 [%64, %$22] ; # Prg"},{"Add":" %68 = call i64 @evList(i64 %50)"},{"Add":" %69 = icmp ne i64 %68, 0"},{"Add":" br label %$30"},{"Add":"$30:"},{"Add":" %70 = phi i64 [%64, %$22], [%67, %$31] ; # Prg"},{"Add":" %71 = phi i1 [0, %$22], [%69, %$31] ; # ->"},{"Add":" br label %$21"},{"Add":"$23:"},{"Add":" %72 = phi i64 [%55, %$25] ; # Prg"},{"Add":" %73 = phi i64 [%63, %$25] ; # ->"},{"Add":"; # (when (val $CnkCnt) (wrChunk @))"},{"Add":"; # (val $CnkCnt)"},{"Add":" %74 = load i32, i32* @$CnkCnt"},{"Add":" %75 = icmp ne i32 %74, 0"},{"Add":" br i1 %75, label %$32, label %$33"},{"Add":"$32:"},{"Add":" %76 = phi i64 [%73, %$23] ; # X"},{"Add":"; # (wrChunk @)"},{"Add":" call void @wrChunk(i32 %74)"},{"Add":" br label %$33"},{"Add":"$33:"},{"Add":" %77 = phi i64 [%73, %$23], [%76, %$32] ; # X"},{"Add":"; # (set (i8** $Put) (val (i8** $SvPut)))"},{"Add":"; # (i8** $Put)"},{"Add":" %78 = bitcast void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**) to i8**"},{"Add":"; # (i8** $SvPut)"},{"Add":" %79 = bitcast void(i8)** @$SvPut to i8**"},{"Add":"; # (val (i8** $SvPut))"},{"Add":" %80 = load i8*, i8** %79"},{"Add":" store i8* %80, i8** %78"},{"Add":"; # (unless (t? F) (outString ($ \"0^M^J^M^J\")))"},{"Add":"; # (t? F)"},{"Add":" %81 = icmp eq i64 %15, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 280) to i64)"},{"Add":" br i1 %81, label %$35, label %$34"},{"Add":"$34:"},{"Add":" %82 = phi i64 [%77, %$33] ; # X"},{"Add":"; # (outString ($ \"0^M^J^M^J\"))"},{"Add":" call void @outString(i8* bitcast ([6 x i8]* @$11 to i8*))"},{"Add":" br label %$35"},{"Add":"$35:"},{"Add":" %83 = phi i64 [%77, %$33], [%82, %$34] ; # X"},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %84 = phi i64 [%43, %$12], [%83, %$35] ; # X"},{"Add":"; # (val $OutFile)"},{"Add":" %85 = load i8*, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 80) to i8**)"},{"Add":"; # (flush (val $OutFile))"},{"Add":" %86 = call i1 @flush(i8* %85)"},{"Add":" ret i64 %84"},{"Add":"}"},{"Add":""},{"Add":"@$11 = private constant [6 x i8] c\"0\\0D\\0A\\0D\\0A\\00\""},{"Add":"@$10 = private constant [6 x i8] c\"nbsp;\\00\""},{"Add":"@$9 = private constant [6 x i8] c\"quot;\\00\""},{"Add":"@$8 = private constant [5 x i8] c\"amp;\\00\""},{"Add":"@$7 = private constant [4 x i8] c\"gt;\\00\""},{"Add":"@$6 = private constant [4 x i8] c\"lt;\\00\""},{"Add":"@$5 = private constant [14 x i8] c\" \\22#%&:;<=>?\\_\\00\""},{"Add":"@$4 = private constant [7 x i8] c\""\\00\""},{"Add":"@$3 = private constant [6 x i8] c\"&\\00\""},{"Add":"@$2 = private constant [5 x i8] c\">\\00\""},{"Add":"@$1 = private constant [5 x i8] c\"<\\00\""}]}},{"FileAdd":{"meta":{"basename":"ht.l","metadata":0},"context":[{"change":0,"pos":63931}],"contents":[{"Add":"# 05may22 Software Lab. Alexander Burger"},{"Add":""},{"Add":"(symbols '(llvm))"},{"Add":""},{"Add":"(begin \"ht\" T"},{"Add":" \"vers.l\" \"defs.l\" \"glob.l\" \"dec.l\" )"},{"Add":""},{"Add":"(local) (Prin Fmt Pack Read In Out)"},{"Add":""},{"Add":"# External declarations"},{"Add":"(local) (prin symByte prExt begString tglString endString findSym prSym"},{"Add":"mkChar evCnt getChar)"},{"Add":""},{"Add":"(de T void prin (any))"},{"Add":"(de T i8 symByte (i64*))"},{"Add":"(de T void prExt (any))"},{"Add":"(de T void begString (i64*))"},{"Add":"(de T void tglString (i64*))"},{"Add":"(de T endString ())"},{"Add":"(de T i1 findSym (any any any))"},{"Add":"(de T void prSym (any))"},{"Add":"(de T mkChar (i32))"},{"Add":"(de T i64 evCnt (any any))"},{"Add":"(de T i32 getChar (i32))"},{"Add":""},{"Add":"# (ht:Prin 'sym ..) -> sym"},{"Add":"(de Prin (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (loop"},{"Add":" (let Y (eval (car X))"},{"Add":" (unless (nil? Y)"},{"Add":" (if"},{"Add":" (or"},{"Add":" (num? Y)"},{"Add":" (pair Y)"},{"Add":" (sym? (val (tail Y))) )"},{"Add":" (prin Y)"},{"Add":" (let P (push 0 (name (val (tail Y)))) # [cnt name]"},{"Add":" (while (symByte P)"},{"Add":" (case @"},{"Add":" ((char \"<\") (outString ($ \"<\")))"},{"Add":" ((char \">\") (outString ($ \">\")))"},{"Add":" ((char \"&\") (outString ($ \"&\")))"},{"Add":" ((char \"\\\"\") (outString ($ \""\")))"},{"Add":" ((hex \"FF\")"},{"Add":" (call $Put (hex \"F7\"))"},{"Add":" (call $Put (hex \"BF\"))"},{"Add":" (call $Put (hex \"BF\"))"},{"Add":" (call $Put (hex \"BF\")) )"},{"Add":" (T"},{"Add":" (let B @"},{"Add":" (call $Put B)"},{"Add":" (when (& B (hex \"80\")) # Multi-byte"},{"Add":" (call $Put (symByte P)) # Second byte"},{"Add":" (when (& B (hex \"20\"))"},{"Add":" (call $Put (symByte P)) # Third byte"},{"Add":" (when (& B (hex \"10\"))"},{"Add":" (call $Put (symByte P)) ) ) ) ) ) ) ) ) ) ) # Fourth byte"},{"Add":" (? (atom (shift X)) Y) ) ) ) )"},{"Add":""},{"Add":"(local) (putHex htEncode htFmt)"},{"Add":""},{"Add":"(de void putHex ((i8 . B))"},{"Add":" (call $Put (char \"%\")) # Prefix with \"%\""},{"Add":" (call $Put # Upper nibble"},{"Add":" (+"},{"Add":" (if (> (& (shr B 4) 15) 9)"},{"Add":" (+ @ 7)"},{"Add":" @ )"},{"Add":" (char \"0\") ) )"},{"Add":" (call $Put # Lower nibble"},{"Add":" (+"},{"Add":" (if (> (& B 15) 9)"},{"Add":" (+ @ 7)"},{"Add":" @ )"},{"Add":" (char \"0\") ) ) )"},{"Add":""},{"Add":"(de void htEncode ((i8 . B) (i64* . P))"},{"Add":" (while B"},{"Add":" (if (strchr ($ \" \\\"#%&:;<=>?\\\\_\") (i32 B))"},{"Add":" (putHex B)"},{"Add":" (call $Put B)"},{"Add":" (when (& B (hex \"80\")) # Multi-byte"},{"Add":" (call $Put (symByte P)) # Second byte"},{"Add":" (when (& B (hex \"20\"))"},{"Add":" (call $Put (symByte P)) # Third byte"},{"Add":" (when (& B (hex \"10\"))"},{"Add":" (call $Put (symByte P)) ) ) ) ) # Fourth byte"},{"Add":" (setq B (symByte P)) ) )"},{"Add":""},{"Add":"(de void htFmt (X)"},{"Add":" (cond"},{"Add":" ((nil? X))"},{"Add":" ((num? X)"},{"Add":" (call $Put (char \"+\")) # Prefix with \"+\""},{"Add":" (prin X) )"},{"Add":" ((pair X)"},{"Add":" (loop"},{"Add":" (call $Put (char \"_\")) # Prefix with \"_\""},{"Add":" (htFmt (++ X))"},{"Add":" (? (atom X)) ) )"},{"Add":" ((sym? (val (tail X))) # External symbol"},{"Add":" (call $Put (char \"-\")) # Prefix with \"-\""},{"Add":" (prExt (name (& @ -9))) )"},{"Add":" ((== (name @) ZERO))"},{"Add":" (T"},{"Add":" (let (Nm @ P (push 0 Nm) B (symByte P)) # [cnt name]"},{"Add":" (cond"},{"Add":" ((findSym X Nm (val $Intern)) # Internal symbol"},{"Add":" (call $Put (char \"$\")) # Prefix with \"$\""},{"Add":" (htEncode B P) )"},{"Add":" ((or # Special"},{"Add":" (== B (char \"$\"))"},{"Add":" (== B (char \"+\"))"},{"Add":" (== B (char \"-\")) )"},{"Add":" (putHex B)"},{"Add":" (htEncode (symByte P) P) )"},{"Add":" (T (htEncode B P)) ) ) ) ) )"},{"Add":""},{"Add":"# (ht:Fmt 'any ..) -> sym"},{"Add":"(de Fmt (Exe)"},{"Add":" (let (X (cdr Exe) P (push 4 NIL ZERO NIL NIL NIL)) # [cnt last name link fun ptr]"},{"Add":" (begString P)"},{"Add":" (loop"},{"Add":" (htFmt"},{"Add":" (prog2"},{"Add":" (tglString P)"},{"Add":" (eval (car X))"},{"Add":" (tglString P) ) )"},{"Add":" (? (atom (shift X)))"},{"Add":" (call $Put (char \"&\")) )"},{"Add":" (endString) ) )"},{"Add":""},{"Add":"(local) (getHex head)"},{"Add":""},{"Add":"(de i8 getHex (Sym)"},{"Add":" (if (> (- (firstByte Sym) (char \"0\")) 9)"},{"Add":" (- (& @ (hex \"DF\")) 7)"},{"Add":" @ ) )"},{"Add":""},{"Add":"(de head ((i8* . S) Lst)"},{"Add":" (let B (val S)"},{"Add":" (loop"},{"Add":" (? (<> B (firstByte (++ Lst))) 0)"},{"Add":" (? (=0 (setq B (val (inc 'S)))) Lst) ) ) )"},{"Add":""},{"Add":"# (ht:Pack 'lst ['flg']) -> sym"},{"Add":"(de Pack (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Lst (save (eval (++ X)))"},{"Add":" Flg (nil? (eval (car X))) )"},{"Add":" (begString (push 4 NIL ZERO NIL NIL NIL)) # [cnt last name link fun ptr]"},{"Add":" (while (pair Lst)"},{"Add":" (let (C (++ Lst) B (firstByte C))"},{"Add":" (cond"},{"Add":" ((== B (char \"%\")) # Hex-escaped"},{"Add":" (call $Put"},{"Add":" (if Flg"},{"Add":" B"},{"Add":" (|"},{"Add":" (shl (getHex (++ Lst)) 4) # Upper nibble"},{"Add":" (getHex (++ Lst)) ) ) ) ) # Lower nibble"},{"Add":" ((<> B (char \"&\")) (prSym C)) # Normal character"},{"Add":" ((head ($ \"lt;\") Lst)"},{"Add":" (call $Put (char \"<\"))"},{"Add":" (setq Lst @) )"},{"Add":" ((head ($ \"gt;\") Lst)"},{"Add":" (call $Put (char \">\"))"},{"Add":" (setq Lst @) )"},{"Add":" ((head ($ \"amp;\") Lst)"},{"Add":" (call $Put (char \"&\"))"},{"Add":" (setq Lst @) )"},{"Add":" ((head ($ \"quot;\") Lst)"},{"Add":" (call $Put (char \"\\\"\"))"},{"Add":" (setq Lst @) )"},{"Add":" ((head ($ \"nbsp;\") Lst)"},{"Add":" (call $Put (char \" \"))"},{"Add":" (setq Lst @) )"},{"Add":" ((== (firstByte (car Lst)) (char \"#\"))"},{"Add":" (let"},{"Add":" (L (shift Lst)"},{"Add":" D (firstByte (++ L)) # Digit"},{"Add":" N (i32 (- D (char \"0\"))) ) # Character"},{"Add":" (loop"},{"Add":" (?"},{"Add":" (or"},{"Add":" (> (char \"0\") D)"},{"Add":" (> D (char \"9\")) )"},{"Add":" (call $Put (char \"&\"))"},{"Add":" (call $Put (char \"#\")) )"},{"Add":" (? (== (setq D (firstByte (++ L))) (char \";\"))"},{"Add":" (prSym (mkChar N))"},{"Add":" (setq Lst L) )"},{"Add":" (setq N"},{"Add":" (+"},{"Add":" (* N 10)"},{"Add":" (i32 (- D (char \"0\"))) ) ) ) ) )"},{"Add":" (T (call $Put (char \"&\"))) ) ) )"},{"Add":" (endString) ) )"},{"Add":""},{"Add":"# Read content length bytes"},{"Add":"# (ht:Read 'cnt) -> lst"},{"Add":"(de Read (Exe)"},{"Add":" (let (N (evCnt Exe (cdr Exe)) C (val $Chr))"},{"Add":" (if"},{"Add":" (or"},{"Add":" (le0 N)"},{"Add":" (and"},{"Add":" (=0 C)"},{"Add":" (lt0 (setq C (call $Get))) ) )"},{"Add":" $Nil"},{"Add":" (let C (getChar C)"},{"Add":" (when (>= C (hex \"80\")) # Multi-byte"},{"Add":" (dec 'N)"},{"Add":" (when (>= C (hex \"800\"))"},{"Add":" (dec 'N)"},{"Add":" (when (>= C (hex \"10000\"))"},{"Add":" (dec 'N) ) ) )"},{"Add":" (if (lt0 (dec 'N))"},{"Add":" $Nil"},{"Add":" (let (X (cons (mkChar C) $Nil) R (save X))"},{"Add":" (loop"},{"Add":" (? (=0 N) (set $Chr 0) R)"},{"Add":" (? (lt0 (setq C (call $Get))) $Nil)"},{"Add":" (setq C (getChar C))"},{"Add":" (when (>= C (hex \"80\")) # Multi-byte"},{"Add":" (dec 'N)"},{"Add":" (when (>= C (hex \"800\"))"},{"Add":" (dec 'N)"},{"Add":" (when (>= C (hex \"10000\"))"},{"Add":" (dec 'N) ) ) )"},{"Add":" (? (lt0 (dec 'N)) $Nil)"},{"Add":" (setq X"},{"Add":" (set 2 X (cons (mkChar C) $Nil)) ) ) ) ) ) ) ) )"},{"Add":""},{"Add":"# Chunked Encoding"},{"Add":"(local) (CHUNK $CnkCnt $SvGet $SvPut $CnkBuf)"},{"Add":""},{"Add":"(setq CHUNK 4000)"},{"Add":"(var $CnkCnt i32 0) # Chunk size count"},{"Add":"(var $SvGet (i32) null) # Saved $Get function"},{"Add":"(var $SvPut (void i8) null) # Saved $Put function"},{"Add":"(array $CnkBuf i8 . CHUNK) # Chunk buffer"},{"Add":""},{"Add":"(local) (chrHex chunkSize getChunked)"},{"Add":""},{"Add":"(de i32 chrHex ((i32 . C))"},{"Add":" (cond"},{"Add":" ((and"},{"Add":" (>= C (char \"0\"))"},{"Add":" (>= (char \"9\") C) )"},{"Add":" (- C 48) ) # Decimal digit"},{"Add":" ((and"},{"Add":" (>="},{"Add":" (setq C (& C (hex \"DF\")))"},{"Add":" (char \"A\") )"},{"Add":" (>= (char \"F\") C) )"},{"Add":" (- C 55) ) # Hex letter"},{"Add":" (T -1) ) )"},{"Add":""},{"Add":"(de void chunkSize ()"},{"Add":" (let C (val $Chr)"},{"Add":" (unless C"},{"Add":" (setq C (call $SvGet)) )"},{"Add":" (when (ge0 (set $CnkCnt (chrHex C)))"},{"Add":" (while (ge0 (chrHex (setq C (call $SvGet))))"},{"Add":" (set $CnkCnt (| @ (shl (val $CnkCnt) 4))) )"},{"Add":" (loop"},{"Add":" (? (== C (char \"\\n\"))"},{"Add":" (call $SvGet)"},{"Add":" (when (=0 (val $CnkCnt))"},{"Add":" (call $SvGet) # Skip '\\r' of empty line"},{"Add":" (set $Chr 0) ) )"},{"Add":" (? (lt0 C))"},{"Add":" (setq C (call $SvGet)) ) ) ) )"},{"Add":""},{"Add":"(de i32 getChunked ()"},{"Add":" (if (le0 (val $CnkCnt))"},{"Add":" (set $Chr -1) # Return EOF"},{"Add":" (call $SvGet)"},{"Add":" (when (=0 (set $CnkCnt (dec @))) # Decrement count"},{"Add":" (call $SvGet) # Skip '\\n' and '\\r'"},{"Add":" (call $SvGet)"},{"Add":" (chunkSize) )"},{"Add":" (val $Chr) ) )"},{"Add":""},{"Add":"# (ht:In 'flg . prg) -> any"},{"Add":"(de In (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if (nil? (eval (++ X))) # 'flg'"},{"Add":" (run X) # 'prg'"},{"Add":" (set"},{"Add":" (i8** $SvGet) (val (i8** $Get))"},{"Add":" $Get (fun (i32) getChunked) )"},{"Add":" (chunkSize)"},{"Add":" (prog1"},{"Add":" (run X) # 'prg'"},{"Add":" (set (i8** $Get) (val (i8** $SvGet)))"},{"Add":" (set $Chr 0) ) ) ) )"},{"Add":""},{"Add":"(local) (outHex wrChunk putChunked)"},{"Add":""},{"Add":"(de void outHex ((i32 . N))"},{"Add":" (when (> N 15)"},{"Add":" (outHex (shr N 4))"},{"Add":" (setq N (& N 15)) )"},{"Add":" (when (> N 9)"},{"Add":" (setq N (+ N 39)) ) # Make lower case letter"},{"Add":" (call $SvPut (+ (i8 N) (char \"0\"))) )"},{"Add":""},{"Add":"(de void wrChunk ((i32 . Cnt))"},{"Add":" (outHex Cnt) # Print count as hex"},{"Add":" (call $SvPut (char \"\\r\"))"},{"Add":" (call $SvPut (char \"\\n\"))"},{"Add":" (let P $CnkBuf # Output chunk buffer"},{"Add":" (loop"},{"Add":" (call $SvPut (val P))"},{"Add":" (? (=0 (dec 'Cnt)))"},{"Add":" (inc 'P) ) )"},{"Add":" (call $SvPut (char \"\\r\"))"},{"Add":" (call $SvPut (char \"\\n\")) )"},{"Add":""},{"Add":"(de void putChunked ((i8 . B))"},{"Add":" (let I (val $CnkCnt)"},{"Add":" (set (ofs $CnkBuf I) B)"},{"Add":" (ifn (== (inc I) CHUNK)"},{"Add":" (set $CnkCnt @)"},{"Add":" (wrChunk @)"},{"Add":" (set $CnkCnt 0) ) ) )"},{"Add":""},{"Add":"# (ht:Out 'flg . prg) -> any"},{"Add":"(de Out (Exe)"},{"Add":" (let (X (cdr Exe) F (eval (++ X)))"},{"Add":" (if (nil? F) # 'flg'"},{"Add":" (setq X (run X)) # 'prg'"},{"Add":" (set"},{"Add":" $CnkCnt 0 # Clear count"},{"Add":" (i8** $SvPut) (val (i8** $Put))"},{"Add":" $Put (fun (void i8) putChunked) )"},{"Add":" (setq X (run X)) # 'prg'"},{"Add":" (when (val $CnkCnt)"},{"Add":" (wrChunk @) )"},{"Add":" (set (i8** $Put) (val (i8** $SvPut)))"},{"Add":" (unless (t? F)"},{"Add":" (outString ($ \"0\\r\\n\\r\\n\")) ) )"},{"Add":" (flush (val $OutFile))"},{"Add":" X ) )"},{"Add":""},{"Add":"(end)"}]}},{"FileAdd":{"meta":{"basename":"glob.l","metadata":0},"context":[{"change":0,"pos":63931}],"contents":[{"Add":"# 13dec23 Software Lab. Alexander Burger"},{"Add":""},{"Add":"(symbols '(llvm))"},{"Add":""},{"Add":"(var $AV0 i8* null) # Command name"},{"Add":"(var $AV i8** null) # Command line argument vector"},{"Add":"(var $PilHome i8* null) # Picolisp home directory"},{"Add":"(var $PilLen i64 0) # $PilHome length"},{"Add":"(var $UsrHome i8* null) # User home directory"},{"Add":"(var $UsrLen i64 0) # $UsrHome length"},{"Add":"(var $Heaps 0) # Heap list"},{"Add":"(var $Avail 0) # Avail list"},{"Add":"(var $Extern 0) # External symbol tree"},{"Add":"(var $ExtCnt i64 1) # External symbol count"},{"Add":"(var $ExtSkip i64 0) # External tree skip"},{"Add":"(var $Coroutines i8* null) # Coroutines"},{"Add":"(var $Current i8* null) # Current coroutine"},{"Add":"(var $CrtLast i8* null) # Last Coroutine"},{"Add":"(var $CrtFree i8* null) # Coroutine free list link"},{"Add":"(var $StkLimit i8* null) # Stack limit: StackN-Size+1024"},{"Add":"(var $StkSizeT i64 (* 4 STACK)) # Coroutine main stack segment size"},{"Add":"(var $StkSize i64 STACK) # Coroutine stack segment size"},{"Add":"(var $Stdin i8* null) # Stdin frame"},{"Add":"(var $Stdout i8* null) # Stdout frame"},{"Add":"(var $LinePtr i8* null) # Console line pointer"},{"Add":"(var $LineBuf i8* null) # Console line buffer"},{"Add":"(var $LinePrmt i8* null) # Console line prompt"},{"Add":"(var $ReplPrmt i8* null) # REPL console prompt"},{"Add":"(var $ContPrmt i8* null) # REPL continue prompt"},{"Add":"(var $Ret 0) # Secondary return value"},{"Add":"(var $TtyPid i32 0) # Terminal process ID"},{"Add":"(var $InFDs i32 0) # Number of input files"},{"Add":"(var $InFiles i8** null) # Input files"},{"Add":"(var $OutFiles i8** null) # Output files"},{"Add":"(var $IoCnt i32 0) # 'output' count"},{"Add":"(var $IoIx i64 0) # 'output' index"},{"Add":"(var $IoChar i64 0) # 'input' and 'output' char"},{"Add":"(var $PutBin (void i8) null) # Binary output function"},{"Add":"(var $GetBin (i32) null) # Binary input function"},{"Add":"(var $OutFDs i32 0) # Number of ourput files"},{"Add":"(var $Nfds i32 0) # Number of poll entries"},{"Add":"(var $Poll i64* null) # Poll entries"},{"Add":"(var $SeedL i64 0) # Random seed low"},{"Add":"(var $SeedH i64 0) # Random seed high"},{"Add":"(var $USec i64 0) # Startup microseconds"},{"Add":"(var $Child i8* null) # Child array"},{"Add":"(var $Children i32 0) # Number of children"},{"Add":"(var $Slot i32 0) # Child index"},{"Add":"(var $Spkr i32 0) # RPC loadspeaker"},{"Add":"(var $Mic i32 0) # RPC microphone"},{"Add":"(array $SpMiPipe i32 0 0) # Speaker/microphone pipe"},{"Add":"(var $Talking i32 0) # Active child"},{"Add":"(var $Hear i32 0) # RPC listener"},{"Add":"(var $Tell i32 0) # RPC broadcaster"},{"Add":"(var $TellBuf i8* null) # RPC buffer"},{"Add":"(var $Ptr i8* null) # Byte buffer pointer"},{"Add":"(var $End i8* null) # Buffer end pointer"},{"Add":"(var $BufX i8* null) # Exchange buffer"},{"Add":"(var $PtrX i8* null) # Exchange buffer pointer"},{"Add":"(var $EndX i8* null) # Exchange end pointer"},{"Add":"(var $ExtN i32 0) # External symbol offset"},{"Add":"(var $Extn i32 0)"},{"Add":"(var $StrP i64* null) # String status"},{"Add":"(var $GcCount i64 CELLS) # Collector count"},{"Add":""},{"Add":"# Database"},{"Add":"(var $DbFiles i8* null) # DB files"},{"Add":"(var $DbFile i8* null) # DB file"},{"Add":"(var $DBs i32 0) # Number of DB files"},{"Add":"(var $MaxBlkSize i32 0) # Maximum block size"},{"Add":"(var $DbBlock i8* null) # Block buffer"},{"Add":"(var $BlkIndex i64 0) # Block index"},{"Add":"(var $BlkLink i64 0) # Next block"},{"Add":"(var $BlkPtr i8* null) # Block byte buffer pointer"},{"Add":"(var $BlkEnd i8* null) # Block buffer end pointer"},{"Add":"(var $DbJnl i8* null) # Journal file"},{"Add":"(var $DbLog i8* null) # Transaction log file"},{"Add":""},{"Add":"# Signals"},{"Add":"(array $Signal i32 # Sync src/lib.c 'gSignal'"},{"Add":" 0 # Count"},{"Add":" 0 # SIGHUP"},{"Add":" 0 # SIGINT"},{"Add":" 0 # SIGUSR1"},{"Add":" 0 # SIGUSR2"},{"Add":" 0 # SIGPIPE"},{"Add":" 0 # SIGALRM"},{"Add":" 0 # SIGTERM"},{"Add":" 0 # SIGCHLD"},{"Add":" 0 # SIGCONT"},{"Add":" 0 # SIGSTOP"},{"Add":" 0 # SIGTSTP"},{"Add":" 0 # SIGTTIN"},{"Add":" 0 # SIGTTOU"},{"Add":" 0 # SIGWINCH"},{"Add":" 0 ) # SIGIO"},{"Add":""},{"Add":"# Symbol Table"},{"Add":"(symTab"},{"Add":" ($Nil \"NIL\" $Nil) # NIL symbol"},{"Add":" (NIL $Nil 0) # CDR of NIL as empty list"},{"Add":" ($Tilde \"~\" $Tilde) # Tilde symbol"},{"Add":" ($PicoT $Nil $Nil 0) # Pico trees"},{"Add":" ($Pico $Tilde $PicoT 0) # Initial namespace"},{"Add":" ($pico \"pico\" $Pico)"},{"Add":" ($Pico1 $pico $Nil 0)"},{"Add":" ($PrivT $Nil $Nil 0) # Private trees"},{"Add":" ($Priv $Tilde $PrivT 0) # Private namespace"},{"Add":" ($priv \"priv\" $Priv)"},{"Add":" ($OS \"*OS\" 0) # Operating system"},{"Add":" ($CPU \"*CPU\" 0) # Processor"},{"Add":" ($Pid \"*Pid\" 0) # Process ID"},{"Add":" ($PPid \"*PPid\" $Nil) # Parent Process ID"},{"Add":" ($DB \"*DB\" $Nil) # Database root"},{"Add":" ($Meth \"meth\" __Meth) # Method template"},{"Add":" ($Quote \"quote\" _Quote) # 'quote' function"},{"Add":" ($T \"T\" $T) ### Sync src/pico.h 'T' (17*2+1) ###"},{"Add":" ($N \"N\" $Nil)"},{"Add":" ($C \"C\" $Nil)"},{"Add":" ($S \"S\" $Nil)"},{"Add":" ($B \"B\" $Nil)"},{"Add":" ($I \"I\" $Nil)"},{"Add":" ($P \"P\" $Nil)"},{"Add":" ($W \"W\" $Nil)"},{"Add":" ($Db1 0 $Nil) # Database root symbol '{1}'"},{"Add":" ($Solo \"*Solo\" ZERO)"},{"Add":" ($At \"@\" $Nil)"},{"Add":" ($At2 \"@@\" $Nil)"},{"Add":" ($At3 \"@@@\" $Nil)"},{"Add":" ($This \"This\" $Nil)"},{"Add":" ($Prompt \"*Prompt\" $Nil)"},{"Add":" ($Zap \"*Zap\" $Nil)"},{"Add":" ($Ext \"*Ext\" $Nil)"},{"Add":" ($Scl \"*Scl\" ZERO)"},{"Add":" ($Rule \"*Rule\" $Nil)"},{"Add":" ($Class \"*Class\" $Nil)"},{"Add":" ($Run \"*Run\" $Nil)"},{"Add":" ($Hup \"*Hup\" $Nil)"},{"Add":" ($Sig1 \"*Sig1\" $Nil)"},{"Add":" ($Sig2 \"*Sig2\" $Nil)"},{"Add":" ($Winch \"*Winch\" $Nil)"},{"Add":" ($TStp1 \"*TStp1\" $Nil)"},{"Add":" ($TStp2 \"*TStp2\" $Nil)"},{"Add":" ($Term \"*Term\" $Nil)"},{"Add":" ($Up \"\\^\" $Nil)"},{"Add":" ($Err \"*Err\" $Nil)"},{"Add":" ($Msg \"*Msg\" $Nil)"},{"Add":" ($Uni \"*Uni\" $Nil)"},{"Add":" ($Fork \"*Fork\" $Nil)"},{"Add":" ($Bye \"*Bye\" $Nil)"},{"Add":" ($Dbg \"*Dbg\" $Nil)"},{"Add":" ($Complete \"complete\" $Nil)"},{"Add":" # Garbage collection"},{"Add":" (NIL \"gc\" _Gc)"},{"Add":" # Arithmetics"},{"Add":" (NIL \"format\" _Format)"},{"Add":" (NIL \"+\" _Add)"},{"Add":" (NIL \"-\" _Sub)"},{"Add":" (NIL \"inc\" _Inc)"},{"Add":" (NIL \"dec\" _Dec)"},{"Add":" (NIL \"*\" _Mul)"},{"Add":" (NIL \"*/\" _MulDiv)"},{"Add":" (NIL \"/\" _Div)"},{"Add":" ($rem \"%\" _Rem)"},{"Add":" (NIL \">>\" _Shr)"},{"Add":" (NIL \"rev\" _Rev)"},{"Add":" (NIL \"lt0\" _Lt0)"},{"Add":" (NIL \"le0\" _Le0)"},{"Add":" (NIL \"ge0\" _Ge0)"},{"Add":" (NIL \"gt0\" _Gt0)"},{"Add":" (NIL \"abs\" _Abs)"},{"Add":" (NIL \"bit?\"_BitQ)"},{"Add":" (NIL \"&\" _BitAnd)"},{"Add":" (NIL \"|\" _BitOr)"},{"Add":" (NIL \"x|\" _BitXor)"},{"Add":" (NIL \"sqrt\" _Sqrt)"},{"Add":" (NIL \"seed\" _Seed)"},{"Add":" (NIL \"hash\" _Hash)"},{"Add":" (NIL \"rand\" _Rand)"},{"Add":" # Symbol functions"},{"Add":" (NIL \"name\" _Name)"},{"Add":" (NIL \"nsp\" _Nsp)"},{"Add":" (NIL \"sp?\" _SpQ)"},{"Add":" (NIL \"pat?\" _PatQ)"},{"Add":" (NIL \"fun?\" _FunQ)"},{"Add":" (NIL \"getd\" _Getd)"},{"Add":" (NIL \"all\" _All)"},{"Add":" (NIL \"symbols\" _Symbols)"},{"Add":" (NIL \"intern\" _Intern)"},{"Add":" (NIL \"====\" _Hide)"},{"Add":" (NIL \"box?\" _BoxQ)"},{"Add":" (NIL \"str?\" _StrQ)"},{"Add":" (NIL \"zap\" _Zap)"},{"Add":" (NIL \"chop\" _Chop)"},{"Add":" (NIL \"pack\" _Pack)"},{"Add":" (NIL \"glue\" _Glue)"},{"Add":" (NIL \"text\" _Text)"},{"Add":" (NIL \"pre?\" _PreQ)"},{"Add":" (NIL \"sub?\" _SubQ)"},{"Add":" (NIL \"val\" _Val)"},{"Add":" (NIL \"set\" _Set)"},{"Add":" (NIL \"setq\" _Setq)"},{"Add":" (NIL \"swap\" _Swap)"},{"Add":" (NIL \"xchg\" _Xchg)"},{"Add":" (NIL \"on\" _On)"},{"Add":" (NIL \"off\" _Off)"},{"Add":" (NIL \"onOff\" _OnOff)"},{"Add":" (NIL \"zero\" _Zero)"},{"Add":" (NIL \"one\" _One)"},{"Add":" (NIL \"default\" _Default)"},{"Add":" (NIL \"push\" _Push)"},{"Add":" (NIL \"push1\" _Push1)"},{"Add":" (NIL \"push1q\" _Push1q)"},{"Add":" (NIL \"pop\" _Pop)"},{"Add":" (NIL \"++\" _Popq)"},{"Add":" (NIL \"shift\" _Shift)"},{"Add":" (NIL \"cut\" _Cut)"},{"Add":" (NIL \"del\" _Del)"},{"Add":" (NIL \"queue\" _Queue)"},{"Add":" (NIL \"fifo\" _Fifo)"},{"Add":" (NIL \"rid\" _Rid)"},{"Add":" (NIL \"enum\" _Enum)"},{"Add":" (NIL \"enum?\" _EnumQ)"},{"Add":" (NIL \"idx\" _Idx)"},{"Add":" (NIL \"lup\" _Lup)"},{"Add":" (NIL \"put\" _Put)"},{"Add":" (NIL \"get\" _Get)"},{"Add":" (NIL \"prop\" _Prop)"},{"Add":" (NIL \";\" _Semicol)"},{"Add":" (NIL \"=:\" _SetCol)"},{"Add":" (NIL \":\" _Col)"},{"Add":" (NIL \"::\" _PropCol)"},{"Add":" (NIL \"putl\" _Putl)"},{"Add":" (NIL \"getl\" _Getl)"},{"Add":" (NIL \"wipe\" _Wipe)"},{"Add":" (NIL \"meta\" _Meta)"},{"Add":" (NIL \"low?\" _LowQ)"},{"Add":" (NIL \"upp?\" _UppQ)"},{"Add":" (NIL \"lowc\" _Lowc)"},{"Add":" (NIL \"uppc\" _Uppc)"},{"Add":" (NIL \"fold\" _Fold)"},{"Add":" # Input/Output"},{"Add":" (NIL \"path\" _Path)"},{"Add":" (NIL \"wait\" _Wait)"},{"Add":" (NIL \"sync\" _Sync)"},{"Add":" (NIL \"hear\" _Hear)"},{"Add":" (NIL \"tell\" _Tell)"},{"Add":" (NIL \"poll\" _Poll)"},{"Add":" (NIL \"read\" _Read)"},{"Add":" (NIL \"key\" _Key)"},{"Add":" (NIL \"peek\" _Peek)"},{"Add":" (NIL \"char\" _Char)"},{"Add":" (NIL \"skip\" _Skip)"},{"Add":" (NIL \"eol\" _Eol)"},{"Add":" (NIL \"eof\" _Eof)"},{"Add":" (NIL \"from\" _From)"},{"Add":" (NIL \"till\" _Till)"},{"Add":" (NIL \"line\" _Line)"},{"Add":" (NIL \"in\" _In)"},{"Add":" (NIL \"out\" _Out)"},{"Add":" (NIL \"err\" _Err)"},{"Add":" (NIL \"ctl\" _Ctl)"},{"Add":" (NIL \"input\" _Input)"},{"Add":" (NIL \"output\" _Output)"},{"Add":" (NIL \"fd\" _Fd)"},{"Add":" (NIL \"pipe\" _Pipe)"},{"Add":" (NIL \"open\" _Open)"},{"Add":" (NIL \"close\" _Close)"},{"Add":" (NIL \"echo\" _Echo)"},{"Add":" (NIL \"prin\" _Prin)"},{"Add":" (NIL \"prinl\" _Prinl)"},{"Add":" (NIL \"space\" _Space)"},{"Add":" (NIL \"print\" _Print)"},{"Add":" (NIL \"printsp\" _Printsp)"},{"Add":" (NIL \"println\" _Println)"},{"Add":" (NIL \"flush\" _Flush)"},{"Add":" (NIL \"rewind\" _Rewind)"},{"Add":" (NIL \"ext\" _Ext)"},{"Add":" (NIL \"plio\" _Plio)"},{"Add":" (NIL \"rd\" _Rd)"},{"Add":" (NIL \"pr\" _Pr)"},{"Add":" (NIL \"wr\" _Wr)"},{"Add":" (NIL \"any\" _Any)"},{"Add":" (NIL \"sym\" _Sym)"},{"Add":" (NIL \"str\" _Str)"},{"Add":" (NIL \"load\" _Load)"},{"Add":" # Database"},{"Add":" (NIL \"ext?\" _ExtQ)"},{"Add":" (NIL \"rollback\" _Rollback)"},{"Add":" (NIL \"extern\" _Extern)"},{"Add":" (NIL \"pool\" _Pool)"},{"Add":" (NIL \"pool2\" _Pool2)"},{"Add":" (NIL \"journal\" _Journal)"},{"Add":" (NIL \"id\" _Id)"},{"Add":" (NIL \"blk\" _Blk)"},{"Add":" (NIL \"seq\" _Seq)"},{"Add":" (NIL \"lieu\" _Lieu)"},{"Add":" (NIL \"lock\" _Lock)"},{"Add":" (NIL \"touch\" _Touch)"},{"Add":" (NIL \"commit\" _Commit)"},{"Add":" (NIL \"mark\" _Mark)"},{"Add":" (NIL \"free\" _Free)"},{"Add":" (NIL \"dbck\" _Dbck)"},{"Add":" # Mapping"},{"Add":" (NIL \"apply\" _Apply)"},{"Add":" (NIL \"pass\" _Pass)"},{"Add":" (NIL \"fun\" _Fun)"},{"Add":" (NIL \"maps\" _Maps)"},{"Add":" (NIL \"map\" _Map)"},{"Add":" (NIL \"mapc\" _Mapc)"},{"Add":" (NIL \"maplist\" _Maplist)"},{"Add":" (NIL \"mapcar\" _Mapcar)"},{"Add":" (NIL \"mapcon\" _Mapcon)"},{"Add":" (NIL \"mapcan\" _Mapcan)"},{"Add":" (NIL \"filter\" _Filter)"},{"Add":" (NIL \"extract\" _Extract)"},{"Add":" (NIL \"seek\" _Seek)"},{"Add":" (NIL \"find\" _Find)"},{"Add":" (NIL \"pick\" _Pick)"},{"Add":" (NIL \"fully\" _Fully)"},{"Add":" (NIL \"cnt\" _Cnt)"},{"Add":" (NIL \"sum\" _Sum)"},{"Add":" (NIL \"maxi\" _Maxi)"},{"Add":" (NIL \"mini\" _Mini)"},{"Add":" (NIL \"fish\" _Fish)"},{"Add":" (NIL \"by\" _By)"},{"Add":" # Control flow"},{"Add":" (NIL \"as\" _As)"},{"Add":" (NIL \"lit\" _Lit)"},{"Add":" (NIL \"eval\" _Eval)"},{"Add":" (NIL \"run\" _Run)"},{"Add":" (NIL \"def\" _Def)"},{"Add":" (NIL \"de\" _De)"},{"Add":" (NIL \"dm\" _Dm)"},{"Add":" (NIL \"box\" _Box)"},{"Add":" (NIL \"new\" _New)"},{"Add":" (NIL \"type\" _Type)"},{"Add":" (NIL \"isa\" _Isa)"},{"Add":" (NIL \"method\" _Method)"},{"Add":" (NIL \"send\" _Send)"},{"Add":" (NIL \"try\" _Try)"},{"Add":" (NIL \"super\" _Super)"},{"Add":" (NIL \"extra\" _Extra)"},{"Add":" (NIL \"and\" _And)"},{"Add":" (NIL \"or\" _Or)"},{"Add":" (NIL \"nand\" _Nand)"},{"Add":" (NIL \"nor\" _Nor)"},{"Add":" (NIL \"xor\" _Xor)"},{"Add":" (NIL \"bool\" _Bool)"},{"Add":" (NIL \"not\" _Not)"},{"Add":" (NIL \"nil\" _Nil)"},{"Add":" (NIL \"t\" _T)"},{"Add":" (NIL \"prog\" _Prog)"},{"Add":" (NIL \"prog1\" _Prog1)"},{"Add":" (NIL \"prog2\" _Prog2)"},{"Add":" (NIL \"if\" _If)"},{"Add":" (NIL \"ifn\" _Ifn)"},{"Add":" (NIL \"if2\" _If2)"},{"Add":" (NIL \"when\" _When)"},{"Add":" (NIL \"unless\" _Unless)"},{"Add":" (NIL \"cond\" _Cond)"},{"Add":" (NIL \"nond\" _Nond)"},{"Add":" (NIL \"case\" _Case)"},{"Add":" (NIL \"casq\" _Casq)"},{"Add":" (NIL \"state\" _State)"},{"Add":" (NIL \"while\" _While)"},{"Add":" (NIL \"until\" _Until)"},{"Add":" (NIL \"at\" _At)"},{"Add":" (NIL \"do\" _Do)"},{"Add":" (NIL \"loop\" _Loop)"},{"Add":" (NIL \"for\" _For)"},{"Add":" (NIL \"with\" _With)"},{"Add":" (NIL \"bind\" _Bind)"},{"Add":" (NIL \"job\" _Job)"},{"Add":" (NIL \"let\" _Let)"},{"Add":" (NIL \"let?\" _LetQ)"},{"Add":" (NIL \"use\" _Use)"},{"Add":" (NIL \"buf\" _Buf)"},{"Add":" (NIL \"catch\" _Catch)"},{"Add":" (NIL \"throw\" _Throw)"},{"Add":" (NIL \"finally\" _Finally)"},{"Add":" (NIL \"co\" _Co)"},{"Add":" (NIL \"yield\" _Yield)"},{"Add":" (NIL \"!\" _Break)"},{"Add":" (NIL \"e\" _E)"},{"Add":" (NIL \"$\" _Trace)"},{"Add":" (NIL \"exec\" _Exec)"},{"Add":" (NIL \"call\" _Call)"},{"Add":" (NIL \"ipid\" _Ipid)"},{"Add":" (NIL \"opid\" _Opid)"},{"Add":" (NIL \"kill\" _Kill)"},{"Add":" (NIL \"fork\" _Fork)"},{"Add":" (NIL \"detach\" _Detach)"},{"Add":" (NIL \"bye\" _Bye)"},{"Add":" # List processing"},{"Add":" (NIL \"car\" _Car)"},{"Add":" (NIL \"cdr\" _Cdr)"},{"Add":" (NIL \"caar\" _Caar)"},{"Add":" (NIL \"cadr\" _Cadr)"},{"Add":" (NIL \"cdar\" _Cdar)"},{"Add":" (NIL \"cddr\" _Cddr)"},{"Add":" (NIL \"caaar\" _Caaar)"},{"Add":" (NIL \"caadr\" _Caadr)"},{"Add":" (NIL \"cadar\" _Cadar)"},{"Add":" (NIL \"caddr\" _Caddr)"},{"Add":" (NIL \"cdaar\" _Cdaar)"},{"Add":" (NIL \"cdadr\" _Cdadr)"},{"Add":" (NIL \"cddar\" _Cddar)"},{"Add":" (NIL \"cdddr\" _Cdddr)"},{"Add":" (NIL \"caaaar\" _Caaaar)"},{"Add":" (NIL \"caaadr\" _Caaadr)"},{"Add":" (NIL \"caadar\" _Caadar)"},{"Add":" (NIL \"caaddr\" _Caaddr)"},{"Add":" (NIL \"cadaar\" _Cadaar)"},{"Add":" (NIL \"cadadr\" _Cadadr)"},{"Add":" (NIL \"caddar\" _Caddar)"},{"Add":" (NIL \"cadddr\" _Cadddr)"},{"Add":" (NIL \"cdaaar\" _Cdaaar)"},{"Add":" (NIL \"cdaadr\" _Cdaadr)"},{"Add":" (NIL \"cdadar\" _Cdadar)"},{"Add":" (NIL \"cdaddr\" _Cdaddr)"},{"Add":" (NIL \"cddaar\" _Cddaar)"},{"Add":" (NIL \"cddadr\" _Cddadr)"},{"Add":" (NIL \"cdddar\" _Cdddar)"},{"Add":" (NIL \"cddddr\" _Cddddr)"},{"Add":" (NIL \"nth\" _Nth)"},{"Add":" (NIL \"con\" _Con)"},{"Add":" (NIL \"cons\" _Cons)"},{"Add":" (NIL \"conc\" _Conc)"},{"Add":" (NIL \"circ\" _Circ)"},{"Add":" (NIL \"rot\" _Rot)"},{"Add":" (NIL \"list\" _List)"},{"Add":" (NIL \"need\" _Need)"},{"Add":" (NIL \"range\" _Range)"},{"Add":" (NIL \"full\" _Full)"},{"Add":" (NIL \"make\" _Make)"},{"Add":" (NIL \"made\" _Made)"},{"Add":" (NIL \"chain\" _Chain)"},{"Add":" (NIL \"link\" _Link)"},{"Add":" (NIL \"yoke\" _Yoke)"},{"Add":" (NIL \"copy\" _Copy)"},{"Add":" (NIL \"mix\" _Mix)"},{"Add":" (NIL \"append\" _Append)"},{"Add":" (NIL \"delete\" _Delete)"},{"Add":" (NIL \"delq\" _Delq)"},{"Add":" (NIL \"replace\" _Replace)"},{"Add":" (NIL \"insert\" _Insert)"},{"Add":" (NIL \"remove\" _Remove)"},{"Add":" (NIL \"place\" _Place)"},{"Add":" (NIL \"strip\" _Strip)"},{"Add":" (NIL \"split\" _Split)"},{"Add":" (NIL \"reverse\" _Reverse)"},{"Add":" (NIL \"flip\" _Flip)"},{"Add":" (NIL \"trim\" _Trim)"},{"Add":" (NIL \"clip\" _Clip)"},{"Add":" (NIL \"head\" _Head)"},{"Add":" (NIL \"tail\" _Tail)"},{"Add":" (NIL \"stem\" _Stem)"},{"Add":" (NIL \"fin\" _Fin)"},{"Add":" (NIL \"last\" _Last)"},{"Add":" (NIL \"==\" _Eq)"},{"Add":" (NIL \"n==\" _Neq)"},{"Add":" (NIL \"=\" _Equal)"},{"Add":" (NIL \"<>\" _Nequal)"},{"Add":" (NIL \"=0\" _Eq0)"},{"Add":" (NIL \"=1\" _Eq1)"},{"Add":" (NIL \"=T\" _EqT)"},{"Add":" (NIL \"n0\" _Neq0)"},{"Add":" (NIL \"nT\" _NeqT)"},{"Add":" (NIL \"<\" _Lt)"},{"Add":" (NIL \"<=\" _Le)"},{"Add":" (NIL \">\" _Gt)"},{"Add":" (NIL \">=\" _Ge)"},{"Add":" (NIL \"max\" _Max)"},{"Add":" (NIL \"min\" _Min)"},{"Add":" (NIL \"atom\" _Atom)"},{"Add":" (NIL \"pair\" _Pair)"},{"Add":" (NIL \"circ?\" _CircQ)"},{"Add":" (NIL \"lst?\" _LstQ)"},{"Add":" (NIL \"num?\" _NumQ)"},{"Add":" (NIL \"sym?\" _SymQ)"},{"Add":" (NIL \"flg?\" _FlgQ)"},{"Add":" (NIL \"member\" _Member)"},{"Add":" (NIL \"memq\" _Memq)"},{"Add":" (NIL \"mmeq\" _Mmeq)"},{"Add":" (NIL \"sect\" _Sect)"},{"Add":" (NIL \"diff\" _Diff)"},{"Add":" (NIL \"index\" _Index)"},{"Add":" (NIL \"offset\" _Offset)"},{"Add":" (NIL \"prior\" _Prior)"},{"Add":" (NIL \"length\" _Length)"},{"Add":" (NIL \"size\" _Size)"},{"Add":" (NIL \"bytes\" _Bytes)"},{"Add":" (NIL \"assoc\" _Assoc)"},{"Add":" (NIL \"rassoc\" _Rassoc)"},{"Add":" (NIL \"asoq\" _Asoq)"},{"Add":" (NIL \"rasoq\" _Rasoq)"},{"Add":" (NIL \"rank\" _Rank)"},{"Add":" (NIL \"match\" _Match)"},{"Add":" (NIL \"fill\" _Fill)"},{"Add":" (NIL \"prove\" _Prove)"},{"Add":" (NIL \"->\" _Arrow)"},{"Add":" (NIL \"unify\" _Unify)"},{"Add":" (NIL \"group\" _Group)"},{"Add":" (NIL \"sort\" _Sort)"},{"Add":" # System functions"},{"Add":" (NIL \"tty\" _Tty)"},{"Add":" (NIL \"raw\" _Raw)"},{"Add":" (NIL \"alarm\" _Alarm)"},{"Add":" (NIL \"sigio\" _Sigio)"},{"Add":" (NIL \"kids\" _Kids)"},{"Add":" (NIL \"protect\" _Protect)"},{"Add":" (NIL \"heap\" _Heap)"},{"Add":" (NIL \"stack\" _Stack)"},{"Add":" (NIL \"byte\" _Byte)"},{"Add":" (NIL \"env\" _Env)"},{"Add":" (NIL \"date\" _Date)"},{"Add":" (NIL \"time\" _Time)"},{"Add":" (NIL \"usec\" _Usec)"},{"Add":" (NIL \"quit\" _Quit)"},{"Add":" (NIL \"sys\" _Sys)"},{"Add":" (NIL \"pwd\" _Pwd)"},{"Add":" (NIL \"cd\" _Cd)"},{"Add":" (NIL \"ctty\" _Ctty)"},{"Add":" (NIL \"cmd\" _Cmd)"},{"Add":" (NIL \"dir\" _Dir)"},{"Add":" (NIL \"info\" _Info)"},{"Add":" (NIL \"file\" _File)"},{"Add":" (NIL \"argv\" _Argv)"},{"Add":" (NIL \"opt\" _Opt)"},{"Add":" (NIL \"errno\" _Errno)"},{"Add":" (NIL \"%@\" _Nat)"},{"Add":" (NIL \"native\" _Native)"},{"Add":" (NIL \"struct\" _Struct)"},{"Add":" (NIL \"lisp\" _Lisp)"},{"Add":" (NIL \"args\" _Args)"},{"Add":" (NIL \"next\" _Next)"},{"Add":" (NIL \"arg\" _Arg)"},{"Add":" (NIL \"rest\" _Rest)"},{"Add":" (NIL \"adr\" _Adr)"},{"Add":" (NIL \"trail\" _Trail)"},{"Add":" (NIL \"up\" _Up)"},{"Add":" (NIL \"history\" _History)"},{"Add":" ($LastSym \"version\" _Version) )"},{"Add":""},{"Add":"# GC relevant data"},{"Add":"(local) (gcData cbFuns)"},{"Add":""},{"Add":"(table gcData"},{"Add":" ($Intern $Pico1) # Current namespaces of internal symbols"},{"Add":" ($Transient $Nil) # Short transient names"},{"Add":" (NIL $Nil) # Long transient names"},{"Add":" ($Alarm $Nil) # Alarm handler"},{"Add":" ($Sigio $Nil) # Sigio handler"},{"Add":" ($Lisp $Nil) # Lisp callbacks: tag+fun"},{"Add":" (NIL $Nil)"},{"Add":" (NIL $Nil) # 2"},{"Add":" (NIL $Nil)"},{"Add":" (NIL $Nil) # 3"},{"Add":" (NIL $Nil)"},{"Add":" (NIL $Nil) # 4"},{"Add":" (NIL $Nil)"},{"Add":" (NIL $Nil) # 5"},{"Add":" (NIL $Nil)"},{"Add":" (NIL $Nil) # 6"},{"Add":" (NIL $Nil)"},{"Add":" (NIL $Nil) # 7"},{"Add":" (NIL $Nil)"},{"Add":" (NIL $Nil) # 8"},{"Add":" (NIL $Nil)"},{"Add":" (NIL $Nil) # 9"},{"Add":" (NIL $Nil)"},{"Add":" (NIL $Nil) # 10"},{"Add":" (NIL $Nil)"},{"Add":" (NIL $Nil) # 11"},{"Add":" (NIL $Nil)"},{"Add":" (NIL $Nil) # 12"},{"Add":" (NIL $Nil)"},{"Add":" (NIL $Nil) # 13"},{"Add":" (NIL $Nil)"},{"Add":" (NIL $Nil) # 14"},{"Add":" (NIL $Nil)"},{"Add":" (NIL $Nil) # 15"},{"Add":" (NIL $Nil)"},{"Add":" (NIL $Nil) # 16"},{"Add":" (NIL $Nil)"},{"Add":" (NIL $Nil) # 17"},{"Add":" (NIL $Nil)"},{"Add":" (NIL $Nil) # 18"},{"Add":" (NIL $Nil)"},{"Add":" (NIL $Nil) # 19"},{"Add":" (NIL $Nil)"},{"Add":" (NIL $Nil) # 20"},{"Add":" (NIL $Nil)"},{"Add":" (NIL $Nil) # 21"},{"Add":" (NIL $Nil)"},{"Add":" (NIL $Nil) # 22"},{"Add":" (NIL $Nil)"},{"Add":" (NIL $Nil) # 23"},{"Add":" (NIL $Nil)"},{"Add":" (NIL $Nil) # 24"},{"Add":" ($LispEnd $Nil) )"},{"Add":""},{"Add":"(table cbFuns"},{"Add":" ($Cb (i64 i64 i64 i64 i64 i64) _Cb1)"},{"Add":" (NIL (i64 i64 i64 i64 i64 i64) _Cb2)"},{"Add":" (NIL (i64 i64 i64 i64 i64 i64) _Cb3)"},{"Add":" (NIL (i64 i64 i64 i64 i64 i64) _Cb4)"},{"Add":" (NIL (i64 i64 i64 i64 i64 i64) _Cb5)"},{"Add":" (NIL (i64 i64 i64 i64 i64 i64) _Cb6)"},{"Add":" (NIL (i64 i64 i64 i64 i64 i64) _Cb7)"},{"Add":" (NIL (i64 i64 i64 i64 i64 i64) _Cb8)"},{"Add":" (NIL (i64 i64 i64 i64 i64 i64) _Cb9)"},{"Add":" (NIL (i64 i64 i64 i64 i64 i64) _Cb10)"},{"Add":" (NIL (i64 i64 i64 i64 i64 i64) _Cb11)"},{"Add":" (NIL (i64 i64 i64 i64 i64 i64) _Cb12)"},{"Add":" (NIL (i64 i64 i64 i64 i64 i64) _Cb13)"},{"Add":" (NIL (i64 i64 i64 i64 i64 i64) _Cb14)"},{"Add":" (NIL (i64 i64 i64 i64 i64 i64) _Cb15)"},{"Add":" (NIL (i64 i64 i64 i64 i64 i64) _Cb16)"},{"Add":" (NIL (i64 i64 i64 i64 i64 i64) _Cb17)"},{"Add":" (NIL (i64 i64 i64 i64 i64 i64) _Cb18)"},{"Add":" (NIL (i64 i64 i64 i64 i64 i64) _Cb19)"},{"Add":" (NIL (i64 i64 i64 i64 i64 i64) _Cb20)"},{"Add":" (NIL (i64 i64 i64 i64 i64 i64) _Cb21)"},{"Add":" (NIL (i64 i64 i64 i64 i64 i64) _Cb22)"},{"Add":" (NIL (i64 i64 i64 i64 i64 i64) _Cb23)"},{"Add":" (NIL (i64 i64 i64 i64 i64 i64) _Cb24) )"},{"Add":""},{"Add":"# Environment"},{"Add":"(local) env"},{"Add":""},{"Add":"(table env"},{"Add":" ($Link 0) # Link register"},{"Add":" ($Bind 0) # Bind frames"},{"Add":" ($Break 0) # Breakpoint"},{"Add":" ($Catch i8* null) # Catch frames"},{"Add":" ($InFrames i8* null) # Input frames"},{"Add":" ($OutFrames i8* null) # Output frames"},{"Add":" ($ErrFrames i8* null) # Error frames"},{"Add":" ($CtlFrames i8* null) # Control frames"},{"Add":" ($Chr i32 0) # Single-char look ahead"},{"Add":" ($InFile i8* null) # Input file"},{"Add":" ($OutFile i8* null) # Output file"},{"Add":" ($Put (void i8) null) # Character output function"},{"Add":" ($Get (i32) null) # Character input function"},{"Add":" ($Parser i64* null) # String parser"},{"Add":" ($Next $Nil) # Next vararg"},{"Add":" ($Typ 0) # Method type"},{"Add":" ($Key 0) # Method key"},{"Add":" ($Make 0) # 'make' environment"},{"Add":" ($Yoke 0)"},{"Add":" ($Protect i32 0) # Signal protection"},{"Add":" ($Trace i32 0) ) # Trace level"},{"Add":""},{"Add":"# Temporary cell"},{"Add":"(array $Cell any"},{"Add":" $Nil"},{"Add":" $Nil )"},{"Add":""},{"Add":"# Version number"},{"Add":"(table $Version"},{"Add":" ($Y (short (pico~car *Version)))"},{"Add":" ($M (short (pico~cadr *Version)))"},{"Add":" ($D (short (pico~caddr *Version))) )"},{"Add":""},{"Add":"# 'T' in PLIO format"},{"Add":"(array $TBuf i8"},{"Add":" (+ INTERN 4)"},{"Add":" (char \"T\") )"},{"Add":""},{"Add":"# Bytes"},{"Add":"(array $Month i8"},{"Add":" 31 31 28 31 30 31 30 31 31 30 31 30 31 )"},{"Add":""},{"Add":"# Booleans"},{"Add":"(var $Repl i1 NO) # REPL flag"},{"Add":"(var $PRepl i1 NO) # Parent REPL"},{"Add":"(var $Jam i1 NO) # Error jam"},{"Add":"(var $InBye i1 NO) # Exit status"},{"Add":"(var $Sync i1 NO) # Family IPC synchronization"},{"Add":""},{"Add":"# Strings"},{"Add":"(str $Empty \"\")"},{"Add":"(str $Delim \" \\t\\n\\r\\\"'(),[]`{}~\")"}]}},{"FileAdd":{"meta":{"basename":"gc.l","metadata":0},"context":[{"change":0,"pos":63931}],"contents":[{"Add":"# 13dec23 Software Lab. Alexander Burger"},{"Add":""},{"Add":"(symbols '(llvm))"},{"Add":""},{"Add":"(local) (mark gc need3)"},{"Add":""},{"Add":"(de void mark (E)"},{"Add":" (let Tos 0 # Clear"},{"Add":" (loop"},{"Add":" (until (cnt? E)"},{"Add":" (let (P (any (& E -16)) Q (cdr P)) # Cell pointer"},{"Add":" (? (=0 (& Q 1))) # Already marked"},{"Add":" (set 2 P (setq Q (& Q -2))) # Mark cell"},{"Add":" (? (big? E)"},{"Add":" (until (cnt? Q)"},{"Add":" (let N (val (big Q))"},{"Add":" (? (=0 (& N 1))) # Already marked"},{"Add":" (setq Q (set (big Q) (& N -2))) ) ) ) # Mark big digits"},{"Add":" (let X E # Current item"},{"Add":" (setq E (val P)) # Get CAR"},{"Add":" (set P (| Tos 1)) # First visit"},{"Add":" (setq Tos X) ) ) ) # TOS on previous"},{"Add":" (loop"},{"Add":" (let P (any (& Tos -16)) # TOS cell pointer"},{"Add":" (unless P # Empty"},{"Add":" (ret) )"},{"Add":" (let Q (val P) # Up pointer"},{"Add":" (? (& Q 1) # Second visit"},{"Add":" (set P E) # Restore CAR"},{"Add":" (setq E (cdr P)) # Get CDR"},{"Add":" (set 2 P (& Q -2)) ) ) # Store up pointer"},{"Add":" (let X Tos"},{"Add":" (setq Tos (cdr P)) # TOS up"},{"Add":" (set 2 P E) # Restore CDR"},{"Add":" (setq E X) ) ) ) ) ) ) # Go up"},{"Add":""},{"Add":"(de void gc ()"},{"Add":" (set $DB $Nil) # Cut off DB root"},{"Add":" # Prepare"},{"Add":" (let P $Nil # Symbol table"},{"Add":" (set P (| (val P) 1)) # Set mark bit"},{"Add":" (setq P (ofs P 4)) # Skip NIL tail"},{"Add":" (loop"},{"Add":" (set P (| (val P) 1)) # Set mark bit"},{"Add":" (? (== P $LastSym))"},{"Add":" (setq P (ofs P 2)) ) ) # Next symbol"},{"Add":" (let P (val $Heaps)"},{"Add":" (loop"},{"Add":" (let C CELLS"},{"Add":" (loop"},{"Add":" (set 2 P (| (cdr P) 1)) # Set mark bit"},{"Add":" (setq P (ofs P 2)) # Next cell"},{"Add":" (? (=0 (dec 'C))) ) )"},{"Add":" (setq P (val P)) # Next heap"},{"Add":" (? (=0 P)) ) )"},{"Add":" # Mark"},{"Add":" (let P (any (gcData)) # Globals"},{"Add":" (loop"},{"Add":" (mark (val P)) # Mark"},{"Add":" (? (== P $LispEnd))"},{"Add":" (setq P (ofs P 1)) ) ) # Next global"},{"Add":" (let P (val $Link) # Stack(s)"},{"Add":" (while P"},{"Add":" (mark (val P)) # Mark item"},{"Add":" (shift P) ) )"},{"Add":" (let P (val $Bind) # Bind frames"},{"Add":" (while P"},{"Add":" (mark (val P)) # Mark saved value"},{"Add":" (mark (val 2 P)) # Mark symbol"},{"Add":" (setq P (val 3 P)) ) )"},{"Add":" (let Ca (val $Catch) # Catch frames"},{"Add":" (while Ca"},{"Add":" (let Ca: (caFrame Ca)"},{"Add":" (when (Ca: tag) # Mark 'tag'"},{"Add":" (mark @) )"},{"Add":" (mark (Ca: fin)) # Mark 'fin'"},{"Add":" (mark (Ca: intrn))"},{"Add":" (mark (Ca: trns1))"},{"Add":" (mark (Ca: trns2))"},{"Add":" (mark (Ca: priv1))"},{"Add":" (mark (Ca: priv2))"},{"Add":" (setq Ca (Ca: link)) ) ) )"},{"Add":" (let Crt (val $Coroutines)"},{"Add":" (while Crt"},{"Add":" (let Crt: (coroutine Crt)"},{"Add":" (when (Crt: tag)"},{"Add":" (mark (Crt: tag))"},{"Add":" (mark (Crt: prg))"},{"Add":" (when (Crt: at)"},{"Add":" (mark (Crt: at))"},{"Add":" (mark (Crt: intrn))"},{"Add":" (mark (Crt: trns1))"},{"Add":" (mark (Crt: trns2))"},{"Add":" (mark (Crt: priv1))"},{"Add":" (mark (Crt: priv2))"},{"Add":" (let P (Crt: (env $Link any)) # Stack(s)"},{"Add":" (while P"},{"Add":" (mark (val P)) # Mark item"},{"Add":" (shift P) ) )"},{"Add":" (let P (Crt: (env $Bind any)) # Bind frames"},{"Add":" (while P"},{"Add":" (mark (val P)) # Mark saved value"},{"Add":" (mark (val 2 P)) # Mark symbol"},{"Add":" (setq P (val 3 P)) ) )"},{"Add":" (let Ca (Crt: (env $Catch i8*))"},{"Add":" (while Ca"},{"Add":" (let Ca: (caFrame Ca)"},{"Add":" (when (Ca: tag) # Mark 'tag'"},{"Add":" (mark (Ca: tag)) )"},{"Add":" (mark (Ca: fin))"},{"Add":" (mark (Ca: intrn))"},{"Add":" (mark (Ca: trns1))"},{"Add":" (mark (Ca: trns2))"},{"Add":" (mark (Ca: priv1))"},{"Add":" (mark (Ca: priv2))"},{"Add":" (setq Ca (Ca: link)) ) ) ) ) )"},{"Add":" (setq Crt (Crt: nxt)) ) ) )"},{"Add":" (let (Tos 0 P (val $Extern)) # Externals"},{"Add":" (loop"},{"Add":" (loop"},{"Add":" (let X (any (& (cdr P) -2))"},{"Add":" (set 2 P X) # Clear mark bit"},{"Add":" (let Y (any (& (cdr X) -2)) # Right subtree"},{"Add":" (set 2 X Y) # Clear mark bit"},{"Add":" (? (atom Y))"},{"Add":" (let Z P # Go right"},{"Add":" (setq P Y) # Invert tree"},{"Add":" (set 2 X Tos)"},{"Add":" (setq Tos Z) ) ) ) )"},{"Add":" (loop"},{"Add":" (let S (val P) # Get external symbol"},{"Add":" (when (& (val S) 1) # Not marked"},{"Add":" (let Tail (val (tail S))"},{"Add":" (unless (num? Tail) # Has properties"},{"Add":" (setq Tail (& Tail -10)) # Clear 'extern' tag and mark bit"},{"Add":" (until (num? (shift Tail)) # Skip property"},{"Add":" (setq Tail (& Tail -2)) ) ) # Clear mark bit"},{"Add":" (add Tail Tail) # Get carry"},{"Add":" (when @@ # Dirty or deleted"},{"Add":" (mark S) ) ) ) )"},{"Add":" (let X (cdr P) # Left subtree"},{"Add":" (? (pair (car X))"},{"Add":" (let Z P # Go left"},{"Add":" (setq P @) # Invert tree"},{"Add":" (set X Tos)"},{"Add":" (setq Tos (| Z 8)) ) ) ) # First visit"},{"Add":" (loop"},{"Add":" (unless Tos"},{"Add":" (goto 1) )"},{"Add":" (? (=0 (& Tos 8)) # Second visit"},{"Add":" (let (X Tos Y (cdr X)) # Nodes"},{"Add":" (setq Tos (cdr Y)) # TOS on up link"},{"Add":" (set 2 Y P)"},{"Add":" (setq P X) ) )"},{"Add":" (setq Tos (& Tos -9)) # Clear visit bit"},{"Add":" (let (X Tos Y (cdr X)) # Nodes"},{"Add":" (setq Tos (car Y))"},{"Add":" (set Y P)"},{"Add":" (setq P X) ) ) ) ) )"},{"Add":" (: 1"},{"Add":" (when (val $DBs)"},{"Add":" (set $DB $Db1) ) # Restore DB root"},{"Add":" (when (& (val $Db1) 1) # Not marked"},{"Add":" (set"},{"Add":" $Db1 $Nil # Clear"},{"Add":" (tail $Db1) DB1 ) ) ) # Set to \"not loaded\""},{"Add":" (let (Tos 0 P (val $Extern)) # Externals"},{"Add":" (: 2"},{"Add":" (loop"},{"Add":" (loop"},{"Add":" (let X (cdr P) # Right subtree"},{"Add":" (? (atom (cdr X)))"},{"Add":" (let Z P # Go right"},{"Add":" (setq P @) # Invert tree"},{"Add":" (set 2 X Tos)"},{"Add":" (setq Tos Z) ) ) )"},{"Add":" (loop"},{"Add":" (when (& (val (val P)) 1) # External symbol not marked"},{"Add":" (set $ExtCnt (- (val $ExtCnt) 1)) # Remove it"},{"Add":" (let X (cdr P)"},{"Add":" (when (atom X) # No subtrees"},{"Add":" (set 2 P (| X 1)) # Set mark bit again"},{"Add":" (setq P X) # Use NIL"},{"Add":" (goto 4) ) # Already traversed"},{"Add":" (when (atom (car X)) # No left branch"},{"Add":" (set 2 P (| X 1)) # Set mark bit again"},{"Add":" (setq P (cdr X)) # Use right branch"},{"Add":" (set 2 X (| P 1))"},{"Add":" (goto 4) ) # Already traversed"},{"Add":" (when (atom (cdr X)) # No right branch"},{"Add":" (set 2 P (| X 1)) # Set mark bit again"},{"Add":" (setq P (car X)) # Use left branch"},{"Add":" (set 2 X (| (cdr X) 1))"},{"Add":" (goto 2) )"},{"Add":" (let Y (cdr (shift X)) # X on right branch"},{"Add":" (when (atom (car Y)) # No left sub-branches"},{"Add":" (set"},{"Add":" P (car X) # Insert right sub-branch"},{"Add":" 2 (cdr P) (cdr Y) )"},{"Add":" (goto 3) )"},{"Add":" (setq Y (car Y)) # Left sub-branch"},{"Add":" (loop"},{"Add":" (? (atom (cadr Y)) # No more left branches"},{"Add":" (set # Insert left sub-branch"},{"Add":" P (car Y)"},{"Add":" (cdr X) (cddr Y) ) )"},{"Add":" (setq X Y Y @) ) ) ) ) # Go down left"},{"Add":" (: 3"},{"Add":" (let X (cdr P) # Left subtree"},{"Add":" (? (pair (car X))"},{"Add":" (let Z P # Go left"},{"Add":" (setq P @) # Invert tree"},{"Add":" (set X Tos)"},{"Add":" (setq Tos (| Z 8)) ) ) ) ) # First visit"},{"Add":" (: 4"},{"Add":" (loop"},{"Add":" (unless Tos"},{"Add":" (goto 5) )"},{"Add":" (? (=0 (& Tos 8)) # Second visit"},{"Add":" (let (X Tos Y (cdr X)) # Nodes"},{"Add":" (setq Tos (cdr Y)) # TOS on up link"},{"Add":" (set 2 Y P)"},{"Add":" (setq P X) ) )"},{"Add":" (let (X (& Tos -9) Y (cdr X)) # Clear visit bit"},{"Add":" (setq Tos (car Y))"},{"Add":" (set Y P)"},{"Add":" (setq P X) ) ) ) ) ) )"},{"Add":" (: 5 (set $Extern P)) )"},{"Add":" # Sweep"},{"Add":" (let (Avail 0 Heap (val $Heaps) Cnt (val $GcCount))"},{"Add":" (ifn Cnt"},{"Add":" (let H (any $Heaps) # Try to free heaps"},{"Add":" (loop"},{"Add":" (let (A Avail P (ofs Heap (- HEAP 2))) # P on last cell in chunk"},{"Add":" (setq Cnt CELLS)"},{"Add":" (loop"},{"Add":" (when (& (cdr P) 1) # Free cell"},{"Add":" (set P Avail) # Link avail"},{"Add":" (setq Avail P)"},{"Add":" (dec 'Cnt) )"},{"Add":" (? (== P Heap))"},{"Add":" (setq P (ofs P -2)) ) # Back one cell"},{"Add":" (if Cnt"},{"Add":" (setq Heap (val (setq H (ofs Heap HEAP)))) # Next heap"},{"Add":" (setq Avail A Heap (val (inc HEAP) Heap)) # Reset avail list"},{"Add":" (free (i8* (val H))) # Free empty heap"},{"Add":" (set H Heap) ) ) # Store next heap in list link"},{"Add":" (? (=0 Heap)) )"},{"Add":" (set $Avail Avail) )"},{"Add":" (loop"},{"Add":" (let P (ofs Heap (- HEAP 2)) # P on last cell in chunk"},{"Add":" (loop"},{"Add":" (when (& (cdr P) 1) # Free cell"},{"Add":" (set P Avail) # Link avail"},{"Add":" (setq Avail P)"},{"Add":" (dec 'Cnt) )"},{"Add":" (? (== P Heap))"},{"Add":" (setq P (ofs P -2)) ) ) # Back one cell"},{"Add":" (? (=0 (setq Heap (val (inc HEAP) Heap)))) )"},{"Add":" (set $Avail Avail)"},{"Add":" (while (ge0 Cnt) # Ensure free cells"},{"Add":" (heapAlloc)"},{"Add":" (dec 'Cnt CELLS) ) ) ) )"},{"Add":""},{"Add":"(de void need3 ()"},{"Add":" (let P (val $Avail)"},{"Add":" (unless (and P (setq P (car P)) (car P))"},{"Add":" (gc) ) ) )"},{"Add":""},{"Add":"# (gc ['cnt [cnt2]]) -> cnt | NIL"},{"Add":"(de _Gc (Exe)"},{"Add":" (let (X (cdr Exe) Y (eval (car X))) # MiBs"},{"Add":" (if (nil? Y)"},{"Add":" (gc)"},{"Add":" (set $GcCount (shl (xCnt Exe Y) 16)) # Multiply with CELLS"},{"Add":" (gc)"},{"Add":" (set $GcCount"},{"Add":" (if (atom (shift X))"},{"Add":" CELLS"},{"Add":" (shl (evCnt Exe X) 16) ) ) ) # New default"},{"Add":" Y ) )"},{"Add":""},{"Add":"# Cell allocation (consing)"},{"Add":"(local) (cons cons2 cons3 consSym consStr consExt boxNum consNum box)"},{"Add":""},{"Add":"(de cons (Car Cdr)"},{"Add":" (let P (val $Avail)"},{"Add":" (unless P"},{"Add":" (save2 Car Cdr"},{"Add":" (gc) )"},{"Add":" (setq P (val $Avail)) )"},{"Add":" (set $Avail (car P))"},{"Add":" (set P Car)"},{"Add":" (set 2 P Cdr)"},{"Add":" P ) )"},{"Add":""},{"Add":"(de cons2 (Car1 Cdr1 Cdr2)"},{"Add":" (let P (val $Avail)"},{"Add":" (when P"},{"Add":" (let Q (val P)"},{"Add":" (when Q"},{"Add":" (set $Avail (car Q))"},{"Add":" (set P Car1)"},{"Add":" (set 2 P Cdr1)"},{"Add":" (set Q P)"},{"Add":" (set 2 Q Cdr2)"},{"Add":" (ret Q) ) ) ) )"},{"Add":" (save2 Car1 Cdr1"},{"Add":" (save Cdr2"},{"Add":" (gc) ) )"},{"Add":" (let (P (val $Avail) Q (val P))"},{"Add":" (set $Avail (car Q))"},{"Add":" (set P Car1)"},{"Add":" (set 2 P Cdr1)"},{"Add":" (set Q P)"},{"Add":" (set 2 Q Cdr2)"},{"Add":" Q ) )"},{"Add":""},{"Add":"(de cons3 (Car1 Cdr1 Car2 Cdr2)"},{"Add":" (let P (val $Avail)"},{"Add":" (when P"},{"Add":" (let Q (val P)"},{"Add":" (when Q"},{"Add":" (let R (val Q)"},{"Add":" (when R"},{"Add":" (set $Avail (car R))"},{"Add":" (set P Car1)"},{"Add":" (set 2 P Cdr1)"},{"Add":" (set Q Car2)"},{"Add":" (set 2 Q Cdr2)"},{"Add":" (set R P)"},{"Add":" (set 2 R Q)"},{"Add":" (ret R) ) ) ) ) ) )"},{"Add":" (save2 Car1 Cdr1"},{"Add":" (save2 Car2 Cdr2"},{"Add":" (gc) ) )"},{"Add":" (let (P (val $Avail) Q (val P) R (val Q))"},{"Add":" (set $Avail (car R))"},{"Add":" (set P Car1)"},{"Add":" (set 2 P Cdr1)"},{"Add":" (set Q Car2)"},{"Add":" (set 2 Q Cdr2)"},{"Add":" (set R P)"},{"Add":" (set 2 R Q)"},{"Add":" R ) )"},{"Add":""},{"Add":"(de consSym (Name Val)"},{"Add":" (let P (val $Avail)"},{"Add":" (unless P"},{"Add":" (if Val"},{"Add":" (save2 Name Val"},{"Add":" (gc) )"},{"Add":" (save Name"},{"Add":" (gc) ) )"},{"Add":" (setq P (val $Avail)) )"},{"Add":" (set $Avail (car P))"},{"Add":" (set P Name)"},{"Add":" (let S (sym P)"},{"Add":" (set S (if Val @ S))"},{"Add":" S ) ) )"},{"Add":""},{"Add":"(de consStr (Name)"},{"Add":" (if (== Name ZERO)"},{"Add":" $Nil"},{"Add":" (tailcall (consSym Name 0)) ) )"},{"Add":""},{"Add":"(de consExt (Name)"},{"Add":" (set $ExtCnt (+ (val $ExtCnt) 1))"},{"Add":" (tailcall (consSym (sign Name) $Nil)) )"},{"Add":""},{"Add":"(de boxNum (Dig)"},{"Add":" (let P (val $Avail)"},{"Add":" (unless P"},{"Add":" (gc)"},{"Add":" (setq P (val $Avail)) )"},{"Add":" (set $Avail (car P))"},{"Add":" (set P Dig)"},{"Add":" (set 2 P ZERO)"},{"Add":" (big P) ) )"},{"Add":""},{"Add":"(de consNum (Dig Big)"},{"Add":" (let P (val $Avail)"},{"Add":" (unless P"},{"Add":" (save Big"},{"Add":" (gc) )"},{"Add":" (setq P (val $Avail)) )"},{"Add":" (set $Avail (car P))"},{"Add":" (set P Dig)"},{"Add":" (set 2 P Big)"},{"Add":" (big P) ) )"},{"Add":""},{"Add":"(de box (N)"},{"Add":" (if (ge0 N)"},{"Add":" (box64 N)"},{"Add":" (sign (box64 (- N))) ) )"}]}},{"FileAdd":{"meta":{"basename":"flow.l","metadata":0},"context":[{"change":0,"pos":63931}],"contents":[{"Add":"# 09dec23 Software Lab. Alexander Burger"},{"Add":""},{"Add":"(symbols '(llvm))"},{"Add":""},{"Add":"(local) (redefMsg putSrc redefine)"},{"Add":""},{"Add":"(de void redefMsg (Sym Sym2)"},{"Add":" (let (Out (val $OutFile) Put (val (i8** $Put)))"},{"Add":" (set"},{"Add":" $OutFile (val 3 (val $OutFiles)) # Stderr"},{"Add":" $Put (fun (void i8) _putStdout) )"},{"Add":" (outString ($ \"# \"))"},{"Add":" (print Sym)"},{"Add":" (when Sym2"},{"Add":" (space)"},{"Add":" (print @) )"},{"Add":" (outString ($ \" redefined\\n\"))"},{"Add":" (set (i8** $Put) Put $OutFile Out) ) )"},{"Add":""},{"Add":"(de void putSrc (Sym Key)"},{"Add":" (unless"},{"Add":" (or"},{"Add":" (nil? (val $Dbg))"},{"Add":" (sym? (val (tail Sym))) )"},{"Add":" (let In: (inFile (val $InFile))"},{"Add":" (when (and (In:) (In: name))"},{"Add":" (let"},{"Add":" (Dbg (get Sym $Dbg)"},{"Add":" Src"},{"Add":" (cons"},{"Add":" (cnt (i64 (In: src)))"},{"Add":" (cons (mkStr (In: name)) (val $Intern)) ) )"},{"Add":" (cond"},{"Add":" ((=0 Key)"},{"Add":" (if (nil? Dbg)"},{"Add":" (put Sym $Dbg (cons Src $Nil)) # Put initial '*Dbg' properties"},{"Add":" (set Dbg Src) ) ) # Set first '*Dbg' property"},{"Add":" ((nil? Dbg)"},{"Add":" (put Sym $Dbg"},{"Add":" (cons $Nil (cons (cons Key Src) $Nil)) ) )"},{"Add":" (T"},{"Add":" (let X Dbg"},{"Add":" (loop"},{"Add":" (? (atom (shift X))"},{"Add":" (set 2 Dbg (cons (cons Key Src) (cdr Dbg))) )"},{"Add":" (? (== (caar X) Key)"},{"Add":" (set 2 (car X) Src) ) ) ) ) ) ) ) ) ) )"},{"Add":""},{"Add":"(de void redefine (Exe Sym Val)"},{"Add":" (needChkVar Exe Sym)"},{"Add":" (let V (val Sym)"},{"Add":" (unless (or (nil? V) (== V Sym) (equal V Val))"},{"Add":" (redefMsg Sym 0) ) )"},{"Add":" (set Sym Val)"},{"Add":" (putSrc Sym 0) )"},{"Add":""},{"Add":"# (quote . any) -> any"},{"Add":"(de _Quote (Exe)"},{"Add":" (cdr Exe) )"},{"Add":""},{"Add":"# (as 'any1 . any2) -> any2 | NIL"},{"Add":"(de _As (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if (nil? (eval (car X)))"},{"Add":" @"},{"Add":" (cdr X) ) ) )"},{"Add":""},{"Add":"# (lit 'any) -> any"},{"Add":"(de _Lit (Exe)"},{"Add":" (let X (eval (cadr Exe))"},{"Add":" (if"},{"Add":" (or"},{"Add":" (num? X)"},{"Add":" (nil? X)"},{"Add":" (t? X)"},{"Add":" (and (pair X) (num? (car X))) )"},{"Add":" X"},{"Add":" (cons $Quote X) ) ) )"},{"Add":""},{"Add":"# (eval 'any ['cnt]) -> any"},{"Add":"(de _Eval (Exe)"},{"Add":" (let (X (cdr Exe) E (save (eval (car X))))"},{"Add":" (when (pair (cdr X))"},{"Add":" (let N (needCnt Exe (eval (car @)))"},{"Add":" (when (setq N (int N))"},{"Add":" (let Bnd (val $Bind)"},{"Add":" (loop"},{"Add":" (? (=0 Bnd))"},{"Add":" (?"},{"Add":" (and"},{"Add":" (== $At (val 2 Bnd))"},{"Add":" (prog"},{"Add":" (set $At (val Bnd))"},{"Add":" (=0 (dec 'N)) ) ) )"},{"Add":" (setq Bnd (val 3 Bnd)) ) ) ) ) )"},{"Add":" (eval E) ) )"},{"Add":""},{"Add":"# (run 'any ['cnt]) -> any"},{"Add":"(de _Run (Exe)"},{"Add":" (let (X (cdr Exe) E (eval (car X)))"},{"Add":" (cond"},{"Add":" ((num? E) E)"},{"Add":" ((sym? E) (val E))"},{"Add":" (T"},{"Add":" (save E"},{"Add":" (when (pair (cdr X))"},{"Add":" (let N (needCnt Exe (eval (car @)))"},{"Add":" (when (setq N (int N))"},{"Add":" (let Bnd (val $Bind)"},{"Add":" (loop"},{"Add":" (? (=0 Bnd))"},{"Add":" (?"},{"Add":" (and"},{"Add":" (== $At (val 2 Bnd))"},{"Add":" (prog"},{"Add":" (set $At (val Bnd))"},{"Add":" (=0 (dec 'N)) ) ) )"},{"Add":" (setq Bnd (val 3 Bnd)) ) ) ) ) )"},{"Add":" (runAt E) ) ) ) ) )"},{"Add":""},{"Add":"# (def 'sym 'any) -> sym"},{"Add":"# (def 'sym 'sym|cnt 'any) -> sym"},{"Add":"(de _Def (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Sym (save (needSymb Exe (eval (++ X))))"},{"Add":" Y (save (eval (++ X))) )"},{"Add":" (if (pair X)"},{"Add":" (let Val (save (eval (car X)))"},{"Add":" (when (== Y ZERO)"},{"Add":" (setq Y Val)"},{"Add":" (goto 1) )"},{"Add":" (when (sym? (val (tail Sym)))"},{"Add":" (if (nil? Y)"},{"Add":" (dbFetch Exe Sym) # Volatile property"},{"Add":" (dbTouch Exe Sym) ) )"},{"Add":" (let V (get Sym Y)"},{"Add":" (unless (or (nil? V) (equal V Val))"},{"Add":" (redefMsg Sym Y) ) )"},{"Add":" (put Sym Y Val)"},{"Add":" (putSrc Sym Y) )"},{"Add":" (: 1"},{"Add":" (chkVar Exe Sym)"},{"Add":" (when (sym? (val (tail Sym)))"},{"Add":" (dbTouch Exe Sym) )"},{"Add":" (let V (val Sym)"},{"Add":" (unless (or (nil? V) (== V Sym) (equal V Y))"},{"Add":" (redefMsg Sym 0) ) )"},{"Add":" (set Sym Y)"},{"Add":" (putSrc Sym 0) ) )"},{"Add":" Sym ) )"},{"Add":""},{"Add":"# (de sym . any) -> sym"},{"Add":"(de _De (Exe)"},{"Add":" (let S (cadr Exe)"},{"Add":" (redefine Exe S (cddr Exe))"},{"Add":" S ) )"},{"Add":""},{"Add":"# (dm sym . fun|cls2) -> sym"},{"Add":"# (dm (sym . cls) . fun|cls2) -> sym"},{"Add":"# (dm (sym sym2 [. cls]) . fun|cls2) -> sym"},{"Add":"(de _Dm (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (car X)"},{"Add":" Fun (cdr X)"},{"Add":" Msg (if (atom Y) Y (car Y))"},{"Add":" Cls"},{"Add":" (cond"},{"Add":" ((atom Y) (val $Class))"},{"Add":" ((atom (cdr Y)) @)"},{"Add":" (T"},{"Add":" (let Z @"},{"Add":" (get"},{"Add":" (if (nil? (cdr Z)) (val $Class) @)"},{"Add":" (needSymb Exe (car Z)) ) ) ) ) )"},{"Add":" (chkVar Exe Cls)"},{"Add":" (unless (t? Msg)"},{"Add":" (redefine Exe Msg (val $Meth)) )"},{"Add":" (when (symb? Fun)"},{"Add":" (let L (val Fun)"},{"Add":" (loop"},{"Add":" (when (or (atom L) (atom (car L)))"},{"Add":" (err Exe Msg ($ \"Bad message\") null) )"},{"Add":" (? (== Msg (caar L)) # Found in 'cls2'"},{"Add":" (setq"},{"Add":" X (car L)"},{"Add":" Fun (cdr X) ) )"},{"Add":" (shift L) ) ) )"},{"Add":" (let (V (val Cls) L V)"},{"Add":" (loop"},{"Add":" (? (or (atom L) (atom (car L))) # New method"},{"Add":" (set Cls"},{"Add":" (cons"},{"Add":" (if (atom (car X))"},{"Add":" X"},{"Add":" (cons Msg Fun) )"},{"Add":" V ) ) )"},{"Add":" (? (== Msg (caar L)) # Redefine method"},{"Add":" (let Z (car L)"},{"Add":" (unless (equal Fun (cdr Z))"},{"Add":" (redefMsg Msg Cls) )"},{"Add":" (set 2 Z Fun) ) )"},{"Add":" (shift L) ) )"},{"Add":" (putSrc Cls Msg)"},{"Add":" Msg ) )"},{"Add":""},{"Add":"# Apply METH to CDR of list"},{"Add":"(local) (evMethod method)"},{"Add":""},{"Add":"(de evMethod (Obj Typ Key Exe X)"},{"Add":" (let"},{"Add":" (Y (car Exe) # Parameters"},{"Add":" P (set $Bind (push (val $At) $At (val $Bind) Exe)) ) # [[@] @ LINK Expr]"},{"Add":" (set $Bind (setq P (push Obj $This P)))"},{"Add":" (while (pair Y)"},{"Add":" (let (V (eval (++ X)) Z (++ Y)) # Evaluate next argument"},{"Add":" (if (atom Z)"},{"Add":" (set $Bind"},{"Add":" (setq P (push V (needChkVar Exe Z) P)) ) # [val sym LINK]"},{"Add":" (loop"},{"Add":" (set $Bind"},{"Add":" (setq P"},{"Add":" (push # [val sym LINK]"},{"Add":" (if (pair V) (++ V) $Nil)"},{"Add":" (needChkVar Exe (++ Z))"},{"Add":" P ) ) )"},{"Add":" (? (atom Z)) )"},{"Add":" (unless (nil? Z)"},{"Add":" (set $Bind"},{"Add":" (setq P (push V (needChkVar Exe Z) P)) ) ) ) ) ) # [val sym LINK]"},{"Add":" (prog1"},{"Add":" (if (== Y $At) # VarArgs"},{"Add":" (if (pair X)"},{"Add":" (let (L (push NIL (eval (car X)) NIL) Q L)"},{"Add":" (link (ofs L 1))"},{"Add":" (while (pair (shift X))"},{"Add":" (setq L"},{"Add":" (set L (push NIL (eval (car X)) NIL)) )"},{"Add":" (link (ofs L 1)) )"},{"Add":" (let Next (val $Next)"},{"Add":" (set L $Nil $Next Q)"},{"Add":" (loop"},{"Add":" (let Sym (val 2 P)"},{"Add":" (xchg Sym P) # Exchange symbol value"},{"Add":" (? (== $At Sym))"},{"Add":" (setq P (val 3 P)) ) )"},{"Add":" (let (TypS (val $Typ) KeyS (val $Key))"},{"Add":" (prog2"},{"Add":" (set $Typ Typ $Key Key)"},{"Add":" (run (cdr Exe)) # Run body"},{"Add":" (set $Key KeyS $Typ TypS $Next Next)"},{"Add":" (drop (ofs Q 1)) ) ) ) )"},{"Add":" (let Next (val $Next)"},{"Add":" (set $Next $Nil)"},{"Add":" (loop"},{"Add":" (let Sym (val 2 P)"},{"Add":" (xchg Sym P) # Exchange symbol value"},{"Add":" (? (== $At Sym))"},{"Add":" (setq P (val 3 P)) ) )"},{"Add":" (let (TypS (val $Typ) KeyS (val $Key))"},{"Add":" (prog2"},{"Add":" (set $Typ Typ $Key Key)"},{"Add":" (run (cdr Exe)) # Run body"},{"Add":" (set $Key KeyS $Typ TypS $Next Next) ) ) ) )"},{"Add":" (unless (nil? Y)"},{"Add":" (needChkVar Exe Y)"},{"Add":" (set"},{"Add":" $Bind (push (val Y) Y P) # Last parameter"},{"Add":" Y X ) ) # Set to unevaluated argument(s)"},{"Add":" (loop"},{"Add":" (let Sym (val 2 P)"},{"Add":" (xchg Sym P) # Exchange symbol value"},{"Add":" (? (== $At Sym))"},{"Add":" (setq P (val 3 P)) ) )"},{"Add":" (let (TypS (val $Typ) KeyS (val $Key))"},{"Add":" (prog2"},{"Add":" (set $Typ Typ $Key Key)"},{"Add":" (run (cdr Exe)) # Run body"},{"Add":" (set $Key KeyS $Typ TypS) ) ) )"},{"Add":" (setq P (val $Bind))"},{"Add":" (loop"},{"Add":" (let Sym (val 2 P)"},{"Add":" (set Sym (val P)) # Restore values"},{"Add":" (? (== $At Sym))"},{"Add":" (setq P (val 3 P)) ) )"},{"Add":" (set $Bind (val 3 P)) ) ) )"},{"Add":""},{"Add":"(de method (Obj Key)"},{"Add":" (when (pair (val Obj)) # Class definition (methods and superclasses)"},{"Add":" (let L @"},{"Add":" (while (pair (car L)) # Method definition"},{"Add":" (let Y @"},{"Add":" (when (== Key (car Y)) # Found"},{"Add":" (ret (cdr Y)) ) )"},{"Add":" (when (atom (shift L))"},{"Add":" (ret 0) ) )"},{"Add":" (stkChk 0)"},{"Add":" (loop"},{"Add":" (when (method (car (set $Ret L)) Key) # Set class list"},{"Add":" (ret @) )"},{"Add":" (? (atom (shift L))) ) ) )"},{"Add":" 0 )"},{"Add":""},{"Add":"# (meth 'obj ['any ..]) -> any"},{"Add":"(de __Meth (Exe Key)"},{"Add":" (let (X (cdr Exe) Obj (save (eval (car X))))"},{"Add":" (when (sym? (val (tail (needSymb Exe Obj))))"},{"Add":" (dbFetch Exe Obj) )"},{"Add":" (set $Ret 0) # Preset to \"No classes\""},{"Add":" (if (method Obj Key)"},{"Add":" (evMethod Obj (val $Ret) Key @ (cdr X))"},{"Add":" (err Exe Key ($ \"Bad message\") null) ) ) )"},{"Add":""},{"Add":"# (box 'any) -> sym"},{"Add":"(de _Box (Exe)"},{"Add":" (consSym ZERO (eval (cadr Exe))) )"},{"Add":""},{"Add":"# (new ['flg|num|sym] ['typ ['any ..]]) -> obj"},{"Add":"(de _New (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (eval (++ X))"},{"Add":" Obj"},{"Add":" (save"},{"Add":" (cond"},{"Add":" ((pair Y) (consSym ZERO Y)) # Anonymous with type"},{"Add":" ((nil? Y) (consSym ZERO ZERO)) # Anonymous with placeholder"},{"Add":" ((or (t? Y) (num? Y))"},{"Add":" (let Nm"},{"Add":" (newId Exe # External"},{"Add":" (if (num? Y) (i32 (int @)) 1) )"},{"Add":" (prog1"},{"Add":" (extern Nm)"},{"Add":" (set (tail @)"},{"Add":" (sign (shr 1 (add Nm Nm) 1)) ) ) ) ) # Set \"dirty\""},{"Add":" (T Y) ) ) ) # Explicit symbol"},{"Add":" (unless (pair Y)"},{"Add":" (set Obj (eval (++ X))) )"},{"Add":" (set $Ret 0) # Preset to \"No classes\""},{"Add":" (cond"},{"Add":" ((method Obj $T)"},{"Add":" (evMethod Obj (val $Ret) $T @ X) )"},{"Add":" ((pair X)"},{"Add":" (let K (link (push NIL NIL))"},{"Add":" (loop"},{"Add":" (when (== ZERO (set K (eval (++ X))))"},{"Add":" (argErr Exe ZERO) )"},{"Add":" (put Obj (val K) (eval (++ X)))"},{"Add":" (? (atom X)) ) ) ) )"},{"Add":" Obj ) )"},{"Add":""},{"Add":"# (type 'any) -> lst"},{"Add":"(de _Type (Exe)"},{"Add":" (let (X (cdr Exe) Y (eval (car X)))"},{"Add":" (ifn (symb? Y)"},{"Add":" $Nil"},{"Add":" (when (sym? (val (tail Y)))"},{"Add":" (dbFetch Exe Y) )"},{"Add":" (let (V (val Y) Z V)"},{"Add":" (loop"},{"Add":" (? (atom V) $Nil)"},{"Add":" (? (atom (car V)) # Class"},{"Add":" (let R V"},{"Add":" (loop"},{"Add":" (? (not (symb? (car V))) $Nil)"},{"Add":" (? (atom (shift V))"},{"Add":" (if (nil? V) R $Nil) )"},{"Add":" (? (== Z V) $Nil) ) ) )"},{"Add":" (? (== Z (shift V)) $Nil) ) ) ) ) )"},{"Add":""},{"Add":"(local) isa"},{"Add":""},{"Add":"(de i1 isa (Cls Obj)"},{"Add":" (let (V (val Obj) Z V)"},{"Add":" (loop"},{"Add":" (? (atom V) NO)"},{"Add":" (? (atom (car V)) # Class"},{"Add":" (stkChk 0)"},{"Add":" (loop"},{"Add":" (? (not (symb? (car V))) NO)"},{"Add":" (? (== @ Cls) YES)"},{"Add":" (? (isa Cls @) YES)"},{"Add":" (? (atom (shift V)) NO)"},{"Add":" (? (== Z V) NO) ) )"},{"Add":" (? (== Z (shift V)) NO) ) ) )"},{"Add":""},{"Add":"# (isa 'cls|typ 'any) -> obj | NIL"},{"Add":"(de _Isa (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (eval (++ X)))"},{"Add":" Z (eval (car X)) )"},{"Add":" (ifn (symb? Z)"},{"Add":" $Nil"},{"Add":" (when (sym? (val (tail Z)))"},{"Add":" (dbFetch Exe Z) )"},{"Add":" (cond"},{"Add":" ((pair Y)"},{"Add":" (loop"},{"Add":" (? (not (isa (car Y) Z)) $Nil)"},{"Add":" (? (atom (shift Y)) Z) ) )"},{"Add":" ((isa Y Z) Z)"},{"Add":" (T $Nil) ) ) ) )"},{"Add":""},{"Add":"# (method 'msg 'obj) -> fun"},{"Add":"(de _Method (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Msg (save (eval (++ X)))"},{"Add":" Obj (needSymb Exe (eval (car X))) )"},{"Add":" (when (sym? (val (tail Obj)))"},{"Add":" (dbFetch Exe Obj) )"},{"Add":" (if (method Obj Msg) @ $Nil) ) )"},{"Add":""},{"Add":"# (send 'msg 'obj ['any ..]) -> any"},{"Add":"(de _Send (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Msg (save (eval (++ X)))"},{"Add":" Obj (save (needSymb Exe (eval (car X)))) )"},{"Add":" (when (sym? (val (tail Obj)))"},{"Add":" (dbFetch Exe Obj) )"},{"Add":" (set $Ret 0) # Preset to \"No classes\""},{"Add":" (if (method Obj Msg)"},{"Add":" (evMethod Obj (val $Ret) Msg @ (cdr X))"},{"Add":" (err Exe Msg ($ \"Bad message\") null) ) ) )"},{"Add":""},{"Add":"# (try 'msg 'obj ['any ..]) -> any"},{"Add":"(de _Try (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Msg (save (eval (++ X)))"},{"Add":" Obj (save (eval (car X))) )"},{"Add":" (ifn (symb? Obj)"},{"Add":" $Nil"},{"Add":" (when (sym? (val (tail Obj)))"},{"Add":" (unless (isLife Obj)"},{"Add":" (goto 1) )"},{"Add":" (dbFetch Exe Obj) )"},{"Add":" (set $Ret 0) # Preset to \"No classes\""},{"Add":" (if (method Obj Msg)"},{"Add":" (evMethod Obj (val $Ret) Msg @ (cdr X))"},{"Add":" (: 1 $Nil) ) ) ) )"},{"Add":""},{"Add":"# (super ['any ..]) -> any"},{"Add":"(de _Super (Exe)"},{"Add":" (let"},{"Add":" (Lst (val (if (val $Typ) (car @) (val $This)))"},{"Add":" Key (val $Key) )"},{"Add":" (while (pair (car Lst)) # Skip methods"},{"Add":" (shift Lst) )"},{"Add":" (loop"},{"Add":" (when (atom Lst) # No classes"},{"Add":" (err Exe Key ($ \"Bad super\") null) )"},{"Add":" (? (method (car (set $Ret Lst)) Key) # Found"},{"Add":" (let (TypS (val $Typ) KeyS (val $Key))"},{"Add":" (set $Typ (val $Ret) $Key Key) # Set class and key"},{"Add":" (prog1"},{"Add":" (evExpr @ Exe) # Evaluate expression"},{"Add":" (set $Key KeyS $Typ TypS) ) ) ) # Restore class and key"},{"Add":" (shift Lst) ) ) )"},{"Add":""},{"Add":"(local) extra"},{"Add":""},{"Add":"(de extra (Obj Key)"},{"Add":" (let Lst (val Obj)"},{"Add":" (while (pair (car Lst)) # Skip methods"},{"Add":" (shift Lst) )"},{"Add":" (loop # Classes"},{"Add":" (? (atom Lst) 1) # Not found on this level"},{"Add":" (? (== Lst (val $Typ)) # Hit current class list"},{"Add":" (loop # Locate method in extra classes"},{"Add":" (? (atom (shift Lst)) 0) # Try further"},{"Add":" (? (method (car (set $Ret Lst)) Key) @) ) ) # Found in superclass"},{"Add":" (stkChk 0)"},{"Add":" (? (> (extra (car Lst) Key) 1) @) # Found on this level"},{"Add":" (? (=0 @)"},{"Add":" (loop"},{"Add":" (? (atom (shift Lst)) 0)"},{"Add":" (? (method (car (set $Ret Lst)) Key) @) ) ) # Found in superclass"},{"Add":" (shift Lst) ) ) ) # Try next in class list"},{"Add":""},{"Add":"# (extra ['any ..]) -> any"},{"Add":"(de _Extra (Exe)"},{"Add":" (let Key (val $Key)"},{"Add":" (unless (> (extra (val $This) Key) 1)"},{"Add":" (err Exe Key ($ \"Bad extra\") null) )"},{"Add":" (let (TypS (val $Typ) KeyS (val $Key))"},{"Add":" (set $Typ (val $Ret) $Key Key) # Set class and key"},{"Add":" (prog1"},{"Add":" (evExpr @ Exe) # Evaluate expression"},{"Add":" (set $Key KeyS $Typ TypS) ) ) ) ) # Restore class and key"},{"Add":""},{"Add":"# (and 'any ..) -> any"},{"Add":"(de _And (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (loop"},{"Add":" (let Y (eval (car X))"},{"Add":" (? (nil? Y) Y)"},{"Add":" (set $At Y)"},{"Add":" (? (atom (shift X)) Y) ) ) ) )"},{"Add":""},{"Add":"# (or 'any ..) -> any"},{"Add":"(de _Or (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (loop"},{"Add":" (let Y (eval (car X))"},{"Add":" (? (not (nil? Y))"},{"Add":" (set $At Y) )"},{"Add":" (? (atom (shift X)) Y) ) ) ) )"},{"Add":""},{"Add":"# (nand 'any ..) -> flg"},{"Add":"(de _Nand (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (loop"},{"Add":" (let Y (eval (car X))"},{"Add":" (? (nil? Y) $T)"},{"Add":" (set $At Y)"},{"Add":" (? (atom (shift X)) $Nil) ) ) ) )"},{"Add":""},{"Add":"# (nor 'any ..) -> flg"},{"Add":"(de _Nor (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (loop"},{"Add":" (let Y (eval (car X))"},{"Add":" (? (not (nil? Y))"},{"Add":" (set $At Y)"},{"Add":" $Nil )"},{"Add":" (? (atom (shift X)) $T) ) ) ) )"},{"Add":""},{"Add":"# (xor 'any 'any) -> flg"},{"Add":"(de _Xor (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if (nil? (eval (++ X)))"},{"Add":" (if (nil? (eval (car X))) @ $T)"},{"Add":" (if (nil? (eval (car X))) $T $Nil) ) ) )"},{"Add":""},{"Add":"# (bool 'any) -> flg"},{"Add":"(de _Bool (Exe)"},{"Add":" (if (nil? (eval (cadr Exe))) @ $T) )"},{"Add":""},{"Add":"# (not 'any) -> flg"},{"Add":"(de _Not (Exe)"},{"Add":" (if (nil? (eval (cadr Exe)))"},{"Add":" $T"},{"Add":" (set $At @)"},{"Add":" $Nil ) )"},{"Add":""},{"Add":"# (nil . prg) -> NIL"},{"Add":"(de _Nil (Exe)"},{"Add":" (exec (cdr Exe))"},{"Add":" $Nil )"},{"Add":""},{"Add":"# (t . prg) -> T"},{"Add":"(de _T (Exe)"},{"Add":" (exec (cdr Exe))"},{"Add":" $T )"},{"Add":""},{"Add":"# (prog . prg) -> any"},{"Add":"(de _Prog (Exe)"},{"Add":" (run (cdr Exe)) )"},{"Add":""},{"Add":"# (prog1 'any1 . prg) -> any1"},{"Add":"(de _Prog1 (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (prog1"},{"Add":" (set $At (save (eval (++ X))))"},{"Add":" (exec X) ) ) )"},{"Add":""},{"Add":"# (prog2 'any1 'any2 . prg) -> any2"},{"Add":"(de _Prog2 (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (prog2"},{"Add":" (eval (++ X))"},{"Add":" (set $At (save (eval (++ X))))"},{"Add":" (exec X) ) ) )"},{"Add":""},{"Add":"# (if 'any1 any2 . prg) -> any"},{"Add":"(de _If (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if (nil? (eval (++ X)))"},{"Add":" (run (cdr X))"},{"Add":" (set $At @)"},{"Add":" (eval (car X)) ) ) )"},{"Add":""},{"Add":"# (ifn 'any1 any2 . prg) -> any"},{"Add":"(de _Ifn (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if (nil? (eval (++ X)))"},{"Add":" (eval (car X))"},{"Add":" (set $At @)"},{"Add":" (run (cdr X)) ) ) )"},{"Add":""},{"Add":"# (if2 'any1 'any2 any3 any4 any5 . prg) -> any"},{"Add":"(de _If2 (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if (nil? (eval (++ X)))"},{"Add":" (if (nil? (eval (++ X)))"},{"Add":" (run (cdr (cddr X)))"},{"Add":" (set $At @)"},{"Add":" (eval (car (cddr X))) )"},{"Add":" (set $At @)"},{"Add":" (if (nil? (eval (++ X)))"},{"Add":" (eval (cadr X))"},{"Add":" (set $At @)"},{"Add":" (eval (car X)) ) ) ) )"},{"Add":""},{"Add":"# (when 'any . prg) -> any"},{"Add":"(de _When (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if (nil? (eval (++ X)))"},{"Add":" @"},{"Add":" (set $At @)"},{"Add":" (run X) ) ) )"},{"Add":""},{"Add":"# (unless 'any . prg) -> any"},{"Add":"(de _Unless (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if (nil? (eval (++ X)))"},{"Add":" (run X)"},{"Add":" (set $At @)"},{"Add":" $Nil ) ) )"},{"Add":""},{"Add":"# (cond ('any1 . prg1) ('any2 . prg2) ..) -> any"},{"Add":"(de _Cond (Exe)"},{"Add":" (let X Exe"},{"Add":" (loop"},{"Add":" (? (atom (shift X)) $Nil)"},{"Add":" (let Y (car X)"},{"Add":" (? (not (nil? (eval (car Y))))"},{"Add":" (set $At @)"},{"Add":" (run (cdr Y)) ) ) ) ) )"},{"Add":""},{"Add":"# (nond ('any1 . prg1) ('any2 . prg2) ..) -> any"},{"Add":"(de _Nond (Exe)"},{"Add":" (let X Exe"},{"Add":" (loop"},{"Add":" (? (atom (shift X)) $Nil)"},{"Add":" (let Y (car X)"},{"Add":" (? (nil? (eval (car Y)))"},{"Add":" (run (cdr Y)) ) )"},{"Add":" (set $At @) ) ) )"},{"Add":""},{"Add":"# (case 'any (any1 . prg1) (any2 . prg2) ..) -> any"},{"Add":"(de _Case (Exe)"},{"Add":" (let (X (cdr Exe) A (set $At (eval (car X))))"},{"Add":" (loop"},{"Add":" (? (atom (shift X)) $Nil)"},{"Add":" (let (Y (car X) Z (car Y))"},{"Add":" (?"},{"Add":" (or"},{"Add":" (t? Z)"},{"Add":" (if (atom Z) (equal Z A) (member A Z)) )"},{"Add":" (run (cdr Y)) ) ) ) ) )"},{"Add":""},{"Add":"# (casq 'any (any1 . prg1) (any2 . prg2) ..) -> any"},{"Add":"(de _Casq (Exe)"},{"Add":" (let (X (cdr Exe) A (set $At (eval (car X))))"},{"Add":" (loop"},{"Add":" (? (atom (shift X)) $Nil)"},{"Add":" (let (Y (car X) Z (car Y))"},{"Add":" (? (or (t? Z) (== Z A) (memq A Z))"},{"Add":" (run (cdr Y)) ) ) ) ) )"},{"Add":""},{"Add":"# (state 'var (sym|lst exe [. prg]) ..) -> any"},{"Add":"(de _State (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Var (save (needChkVar Exe (eval (car X)))) )"},{"Add":" (loop"},{"Add":" (? (atom (shift X)) $Nil)"},{"Add":" (let (Y (car X) Z (car Y))"},{"Add":" (when"},{"Add":" (or"},{"Add":" (t? Z)"},{"Add":" (let V (val Var)"},{"Add":" (or (== Z V) (memq V Z)) ) )"},{"Add":" (? (not (nil? (eval (car (shift Y)))))"},{"Add":" (set Var (set $At @))"},{"Add":" (run (cdr Y)) ) ) ) ) ) )"},{"Add":""},{"Add":"# (while 'any . prg) -> any"},{"Add":"(de _While (Exe)"},{"Add":" (let (X (cdr Exe) E (++ X) R (save $Nil))"},{"Add":" (until (nil? (eval E))"},{"Add":" (set $At @)"},{"Add":" (setq R (safe (run X))) )"},{"Add":" R ) )"},{"Add":""},{"Add":"# (until 'any . prg) -> any"},{"Add":"(de _Until (Exe)"},{"Add":" (let (X (cdr Exe) E (++ X) R (save $Nil))"},{"Add":" (while (nil? (eval E))"},{"Add":" (setq R (safe (run X))) )"},{"Add":" (set $At @)"},{"Add":" R ) )"},{"Add":""},{"Add":"# (at '(cnt1 . cnt2|NIL) . prg) -> any"},{"Add":"(de _At (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (needPair Exe (eval (car X)))"},{"Add":" Z (cdr Y) )"},{"Add":" (cond"},{"Add":" ((nil? Z) @)"},{"Add":" ((< (+ (car Y) (hex \"10\")) Z) # Increment"},{"Add":" (set Y @)"},{"Add":" $Nil )"},{"Add":" (T"},{"Add":" (set Y ZERO)"},{"Add":" (run (cdr X)) ) ) ) )"},{"Add":""},{"Add":"(local) (loop1 loop2)"},{"Add":""},{"Add":"(de loop1 (X)"},{"Add":" (loop"},{"Add":" (let E (car X)"},{"Add":" (unless (num? E)"},{"Add":" (setq E"},{"Add":" (cond"},{"Add":" ((sym? E) (val E))"},{"Add":" ((nil? (car E))"},{"Add":" (? (nil? (eval (car (shift E))))"},{"Add":" (run (cdr E)) )"},{"Add":" (set $At @)"},{"Add":" $Nil )"},{"Add":" ((t? (car E))"},{"Add":" (? (not (nil? (eval (car (shift E)))))"},{"Add":" (set $At @)"},{"Add":" (run (cdr E)) )"},{"Add":" @ ) # NIL"},{"Add":" (T (evList E)) ) ) )"},{"Add":" (? (atom (shift X)) (| E 1)) ) ) )"},{"Add":""},{"Add":"(de loop2 (Y)"},{"Add":" (loop"},{"Add":" (let X Y"},{"Add":" (loop"},{"Add":" (let E (car X)"},{"Add":" (when (pair E)"},{"Add":" (cond"},{"Add":" ((nil? (car E))"},{"Add":" (when (nil? (eval (car (shift E))))"},{"Add":" (ret (run (cdr E))) )"},{"Add":" (set $At @) )"},{"Add":" ((t? (car E))"},{"Add":" (unless (nil? (eval (car (shift E))))"},{"Add":" (set $At @)"},{"Add":" (ret (run (cdr E))) ) )"},{"Add":" (T (evList E)) ) ) )"},{"Add":" (? (atom (shift X))) ) ) ) )"},{"Add":""},{"Add":"# (do 'flg|cnt ['any | (NIL 'any . prg) | (T 'any . prg) ..]) -> any"},{"Add":"(de _Do (Exe)"},{"Add":" (let (X (cdr Exe) Y (eval (++ X)))"},{"Add":" (cond"},{"Add":" ((nil? Y) Y)"},{"Add":" ((cnt? Y)"},{"Add":" (let N (int Y)"},{"Add":" (if (or (sign? Y) (=0 N))"},{"Add":" $Nil"},{"Add":" (loop"},{"Add":" (let R (loop1 X)"},{"Add":" (? (=0 (& R 1)) R)"},{"Add":" (? (=0 (dec 'N)) (& R -2)) ) ) ) ) )"},{"Add":" (T (loop2 X)) ) ) ) # Non-NIL 'flg'"},{"Add":""},{"Add":"# (loop ['any | (NIL 'any . prg) | (T 'any . prg) ..]) -> any"},{"Add":"(de _Loop (Exe)"},{"Add":" (tailcall (loop2 (cdr Exe))) )"},{"Add":""},{"Add":"# (for sym 'cnt ['any | (NIL 'any . prg) | (T 'any . prg) ..]) -> any"},{"Add":"# (for sym|(sym2 . sym) 'lst ['any | (NIL 'any . prg) | (T 'any . prg) ..]) -> any"},{"Add":"# (for (sym|(sym2 . sym) 'any1 'any2 [. prg]) ['any | (NIL 'any . prg) | (T 'any . prg) ..]) -> any"},{"Add":"(de _For (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (++ X)"},{"Add":" R $Nil )"},{"Add":" (cond"},{"Add":" ((atom Y) # (for sym 'cnt|lst ..)"},{"Add":" (needChkVar Exe Y)"},{"Add":" (let P (set $Bind (push NIL NIL (val $Bind))) # [[sym] sym LINK]"},{"Add":" (set P (val Y) 2 P Y)"},{"Add":" (let V (eval (++ X))"},{"Add":" (if (num? V) # (for sym 'cnt ..)"},{"Add":" (unless (sign? V)"},{"Add":" (set Y ZERO)"},{"Add":" (loop"},{"Add":" (? (> (+ (val Y) (hex \"10\")) V) # Increment"},{"Add":" (setq R (& R -2)) )"},{"Add":" (set Y @)"},{"Add":" (? (=0 (& (setq R (loop1 X)) 1))) ) )"},{"Add":" (save V"},{"Add":" (loop # (for sym 'lst ..)"},{"Add":" (? (atom V) (setq R (& R -2)))"},{"Add":" (set Y (car V))"},{"Add":" (? (=0 (& (setq R (loop1 X)) 1)))"},{"Add":" (shift V) ) ) ) )"},{"Add":" (set Y (val P) $Bind (val 3 P)) ) )"},{"Add":" ((atom (cdr Y)) # (for (sym2 . sym) 'lst ..)"},{"Add":" (let Sym2 (needChkVar Exe @)"},{"Add":" (needChkVar Exe (setq Y (car Y)))"},{"Add":" (let P (set $Bind (push NIL NIL (val $Bind))) # [[sym] sym LINK]"},{"Add":" (set P (val Y) 2 P Y)"},{"Add":" (let"},{"Add":" (Q (set $Bind (push (val Sym2) Sym2 (val $Bind))) # [[sym] sym LINK]"},{"Add":" V (save (eval (++ X))) )"},{"Add":" (set Y ONE)"},{"Add":" (loop"},{"Add":" (? (atom V) (setq R (& R -2)))"},{"Add":" (set Sym2 (car V))"},{"Add":" (? (=0 (& (setq R (loop1 X)) 1)))"},{"Add":" (set Y (+ (val Y) (hex \"10\")))"},{"Add":" (shift V) )"},{"Add":" (set Sym2 (val Q)) )"},{"Add":" (set Y (val P) $Bind (val 3 P)) ) ) )"},{"Add":" ((atom (car Y)) # (for (sym ..) ..)"},{"Add":" (let Z (cdr Y)"},{"Add":" (needChkVar Exe (setq Y @))"},{"Add":" (let P (set $Bind (push NIL NIL (val $Bind))) # [[sym] sym LINK]"},{"Add":" (set"},{"Add":" P (val Y)"},{"Add":" 2 P Y"},{"Add":" Y (eval (++ Z)) )"},{"Add":" (save R"},{"Add":" (loop # (any2 . prg)"},{"Add":" (? (nil? (eval (car Z))))"},{"Add":" (set $At @)"},{"Add":" (? (=0 (& (setq R (loop1 X)) 1)))"},{"Add":" (safe (setq R (& R -2)))"},{"Add":" (when (pair (cdr Z))"},{"Add":" (set Y (run @)) ) ) )"},{"Add":" (set Y (val P) $Bind (val 3 P)) ) ) )"},{"Add":" (T # (for ((sym2 . sym) ..) ..)"},{"Add":" (let (Sym2 (cdr @) Z (cdr Y))"},{"Add":" (setq Y (car @))"},{"Add":" (needChkVar Exe Y)"},{"Add":" (needChkVar Exe Sym2)"},{"Add":" (let P (set $Bind (push NIL NIL (val $Bind))) # [[sym] sym LINK]"},{"Add":" (set P (val Y) 2 P Y)"},{"Add":" (save R"},{"Add":" (let Q (set $Bind (push (val Sym2) Sym2 (val $Bind))) # [[sym] sym LINK]"},{"Add":" (set"},{"Add":" Sym2 (save (eval (++ Z)))"},{"Add":" Y ONE )"},{"Add":" (loop"},{"Add":" (? (nil? (eval (car Z))))"},{"Add":" (set $At @)"},{"Add":" (? (=0 (& (setq R (loop1 X)) 1)))"},{"Add":" (safe (setq R (& R -2)))"},{"Add":" (when (pair (cdr Z))"},{"Add":" (set Sym2 (run @)) )"},{"Add":" (set Y (+ (val Y) (hex \"10\"))) )"},{"Add":" (set Sym2 (val Q)) ) )"},{"Add":" (set Y (val P) $Bind (val 3 P)) ) ) ) )"},{"Add":" R ) )"},{"Add":""},{"Add":"# (with 'var . prg) -> any"},{"Add":"(de _With (Exe)"},{"Add":" (let (X (cdr Exe) Y (needVar Exe (eval (++ X))))"},{"Add":" (if (nil? Y)"},{"Add":" Y"},{"Add":" (let P (set $Bind (push (val $This) $This (val $Bind))) # [[This] This LINK]"},{"Add":" (set $This Y)"},{"Add":" (prog1"},{"Add":" (run X)"},{"Add":" (set $This (val P) $Bind (val 3 P)) ) ) ) ) )"},{"Add":""},{"Add":"# (bind 'sym|lst . prg) -> any"},{"Add":"(de _Bind (Exe)"},{"Add":" (let (X (cdr Exe) Y (eval (++ X)))"},{"Add":" (cond"},{"Add":" ((num? Y) (argErr Exe Y))"},{"Add":" ((nil? Y) (run X))"},{"Add":" ((sym? Y) # Single symbol"},{"Add":" (chkVar Exe Y)"},{"Add":" (let P (set $Bind (push (val Y) Y (val $Bind))) # [[sym] sym LINK]"},{"Add":" (prog1"},{"Add":" (run X)"},{"Add":" (set Y (val P) $Bind (val 3 P)) ) ) )"},{"Add":" (T"},{"Add":" (let (P (val $Bind) Q P)"},{"Add":" (loop"},{"Add":" (let Z (++ Y)"},{"Add":" (when (num? Z)"},{"Add":" (argErr Exe Y) )"},{"Add":" (if (sym? Z)"},{"Add":" (set $Bind"},{"Add":" (setq P (push (val Z) (chkVar Exe Z) P)) )"},{"Add":" (let S (car Z)"},{"Add":" (needChkVar Exe S)"},{"Add":" (set"},{"Add":" $Bind (setq P (push (val S) S P))"},{"Add":" S (cdr Z) ) ) ) )"},{"Add":" (? (atom Y)) )"},{"Add":" (prog1"},{"Add":" (run X)"},{"Add":" (loop"},{"Add":" (set (val 2 P) (val P)) # Restore values"},{"Add":" (? (== Q (setq P (val 3 P)) ) ) )"},{"Add":" (set $Bind P) ) ) ) ) ) )"},{"Add":""},{"Add":"# (job 'lst . prg) -> any"},{"Add":"(de _Job (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (save (eval (++ X)))"},{"Add":" P (val $Bind)"},{"Add":" Q P )"},{"Add":" (while (pair Y)"},{"Add":" (let (Z (++ Y) S (car Z))"},{"Add":" (needChkVar Exe S)"},{"Add":" (set"},{"Add":" $Bind (setq P (push (val S) S P Z)) # [[sym] sym LINK (sym . val)]"},{"Add":" S (cdr Z) ) ) )"},{"Add":" (prog1"},{"Add":" (run X)"},{"Add":" (until (== Q P)"},{"Add":" (let S (val 2 P)"},{"Add":" (set 2 (val 4 P) (val S))"},{"Add":" (set S (val P)) ) # Restore values"},{"Add":" (setq P (val 3 P)) )"},{"Add":" (set $Bind P) ) ) )"},{"Add":""},{"Add":"(local) setDestruct"},{"Add":""},{"Add":"(de void setDestruct (Pat Val)"},{"Add":" (loop"},{"Add":" (when (atom Val) # Default non-list to NIL"},{"Add":" (setq Val $Nil) )"},{"Add":" (let (P (++ Pat) V (++ Val))"},{"Add":" (if (atom P)"},{"Add":" (unless (nil? P)"},{"Add":" (set P V) )"},{"Add":" (setDestruct P V) ) )"},{"Add":" (? (atom Pat)"},{"Add":" (unless (nil? Pat)"},{"Add":" (set Pat Val) ) ) ) )"},{"Add":""},{"Add":"# (let sym 'any . prg) -> any"},{"Add":"# (let (sym|lst 'any ..) . prg) -> any"},{"Add":"(de _Let (Exe)"},{"Add":" (let (X (cdr Exe) Y (++ X))"},{"Add":" (if (atom Y)"},{"Add":" (let P"},{"Add":" (set $Bind"},{"Add":" (push (val (needChkVar Exe Y)) Y (val $Bind)) ) # [[sym] sym LINK]"},{"Add":" (set Y (eval (++ X)))"},{"Add":" (prog1"},{"Add":" (run X)"},{"Add":" (set Y (val P) $Bind (val 3 P)) ) )"},{"Add":" (let (P (val $Bind) Q P)"},{"Add":" (loop"},{"Add":" (let Z (++ Y)"},{"Add":" (if (atom Z) # Single symbol"},{"Add":" (set"},{"Add":" $Bind (setq P (push (val (needChkVar Exe Z)) Z P))"},{"Add":" Z (eval (car Y)) )"},{"Add":" (let Tos 0 # List structure"},{"Add":" (loop"},{"Add":" (until (atom (car Z))"},{"Add":" (let U Z # Go left"},{"Add":" (setq Z @) # Invert tree"},{"Add":" (set U Tos)"},{"Add":" (setq Tos U) ) )"},{"Add":" (unless (nil? (car Z)) # Skip NIL"},{"Add":" (let S (needChkVar Exe @)"},{"Add":" (set $Bind (setq P (push (val S) S P))) ) )"},{"Add":" (loop"},{"Add":" (? (pair (cdr Z)) # Right subtree"},{"Add":" (let U Z # Go right"},{"Add":" (setq Z @) # Invert tree"},{"Add":" (set 2 U Tos)"},{"Add":" (setq Tos (| U 8)) ) )"},{"Add":" (unless (nil? @) # Dotted structure symbol"},{"Add":" (let S (needChkVar Exe @)"},{"Add":" (set $Bind (setq P (push (val S) S P))) ) )"},{"Add":" (loop"},{"Add":" (unless Tos"},{"Add":" (goto 1) )"},{"Add":" (? (=0 (& Tos 8)) # Second visit"},{"Add":" (let U Tos"},{"Add":" (setq Tos (car U)) # TOS on up link"},{"Add":" (set U Z)"},{"Add":" (setq Z U) ) )"},{"Add":" (let U (& Tos -9) # Set second visit"},{"Add":" (setq Tos (cdr U))"},{"Add":" (set 2 U Z)"},{"Add":" (setq Z U) ) ) ) ) )"},{"Add":" (: 1"},{"Add":" (setDestruct Z (eval (car Y))) ) ) )"},{"Add":" (? (atom (shift Y))) )"},{"Add":" (prog1"},{"Add":" (run X)"},{"Add":" (loop"},{"Add":" (set (val 2 P) (val P)) # Restore values"},{"Add":" (? (== Q (setq P (val 3 P)) ) ) )"},{"Add":" (set $Bind P) ) ) ) ) )"},{"Add":""},{"Add":"# (let? sym 'any . prg) -> any"},{"Add":"(de _LetQ (Exe)"},{"Add":" (let (X (cdr Exe) Y (needChkVar Exe (++ X)))"},{"Add":" (if (nil? (eval (car X)))"},{"Add":" @"},{"Add":" (let P (set $Bind (push (val Y) Y (val $Bind))) # [[sym] sym LINK]"},{"Add":" (set Y @)"},{"Add":" (prog1"},{"Add":" (run (cdr X))"},{"Add":" (set Y (val P) $Bind (val 3 P)) ) ) ) ) )"},{"Add":""},{"Add":"# (use sym . prg) -> any"},{"Add":"# (use (sym ..) . prg) -> any"},{"Add":"(de _Use (Exe)"},{"Add":" (let (X (cdr Exe) Y (++ X))"},{"Add":" (if (atom Y)"},{"Add":" (let P (set $Bind (push (val Y) Y (val $Bind))) # [[sym] sym LINK]"},{"Add":" (prog1"},{"Add":" (run X)"},{"Add":" (set Y (val P) $Bind (val 3 P)) ) )"},{"Add":" (let (P (val $Bind) Q P)"},{"Add":" (loop"},{"Add":" (let Z (car Y)"},{"Add":" (set $Bind (setq P (push (val Z) Z P))) )"},{"Add":" (? (atom (shift Y))) )"},{"Add":" (prog1"},{"Add":" (run X)"},{"Add":" (loop"},{"Add":" (set (val 2 P) (val P)) # Restore values"},{"Add":" (? (== Q (setq P (val 3 P)) ) ) )"},{"Add":" (set $Bind P) ) ) ) ) )"},{"Add":""},{"Add":"# (buf sym 'cnt . prg) -> any"},{"Add":"(de _Buf (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (needChkVar Exe (++ X))"},{"Add":" Z (needCnt Exe (eval (++ X)))"},{"Add":" P (set $Bind (push (val Y) Y (val $Bind))) ) # [[sym] sym LINK]"},{"Add":" (set Y (box64 (i64 (b8+ (int Z)))))"},{"Add":" (stkChk Exe)"},{"Add":" (prog1"},{"Add":" (run X)"},{"Add":" (set Y (val P) $Bind (val 3 P)) ) ) )"},{"Add":""},{"Add":"# (catch 'any . prg) -> any"},{"Add":"(de _Catch (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Ca: (caFrame (b8+ (+ (val JmpBufSize) (caFrame T)))) )"},{"Add":" (stkChk Exe)"},{"Add":" (Ca: tag (eval (++ X)))"},{"Add":" (Ca: link (val $Catch))"},{"Add":" (set $Catch (Ca:))"},{"Add":" (Ca: fin ZERO)"},{"Add":" (Ca: co (val $Current))"},{"Add":" (putCaEnv (Ca:))"},{"Add":" (prog1"},{"Add":" (if (setjmp (Ca: (rst)))"},{"Add":" (val $Ret)"},{"Add":" (run X) )"},{"Add":" (set $Catch (Ca: link)) ) ) )"},{"Add":""},{"Add":"# (throw 'sym 'any)"},{"Add":"(de _Throw (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Tag (save (eval (++ X)))"},{"Add":" R (save (eval (car X))) )"},{"Add":" (let Ca (val $Catch)"},{"Add":" (while Ca"},{"Add":" (let Ca: (caFrame Ca)"},{"Add":" (when (or (t? (Ca: tag)) (== Tag (Ca: tag)))"},{"Add":" (unwind Ca)"},{"Add":" (set $Ret R)"},{"Add":" (longjmp (Ca: (rst)) 1) )"},{"Add":" (setq Ca (Ca: link)) ) ) )"},{"Add":" (err Exe Tag ($ \"Tag not found\") null) ) )"},{"Add":""},{"Add":"# (finally exe . prg) -> any"},{"Add":"(de _Finally (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Ca: (caFrame (b8+ (+ (val JmpBufSize) (caFrame T)))) )"},{"Add":" (stkChk Exe)"},{"Add":" (Ca: tag 0)"},{"Add":" (Ca: link (val $Catch))"},{"Add":" (set $Catch (Ca:))"},{"Add":" (Ca: fin (++ X))"},{"Add":" (Ca: co (val $Current))"},{"Add":" (putCaEnv (Ca:))"},{"Add":" (prog1"},{"Add":" (save (run X))"},{"Add":" (eval (Ca: fin))"},{"Add":" (set $Catch (Ca: link)) ) ) )"},{"Add":""},{"Add":"# Coroutines"},{"Add":"(local) (coErr tagErr stkOverErr saveCoIO saveCoEnv loadCoEnv)"},{"Add":""},{"Add":"(de NIL coErr (Exe Tag)"},{"Add":" (err Exe Tag ($ \"Coroutine not found\") null) )"},{"Add":""},{"Add":"(de NIL tagErr (Exe)"},{"Add":" (err Exe 0 ($ \"Tag expected\") null) )"},{"Add":""},{"Add":"(de NIL stkOverErr (Tag)"},{"Add":" (set $StkLimit null)"},{"Add":" (err 0 Tag ($ \"Stack overwritten\") null) )"},{"Add":""},{"Add":"# Switch coroutines"},{"Add":"(de void saveCoIO ()"},{"Add":" ((ioFrame (val $OutFrames)) fun (val (i8** $Put)))"},{"Add":" (let Io: (ioFrame (val $InFrames))"},{"Add":" (Io: fun (val (i8** $Get)))"},{"Add":" (if (Io: file)"},{"Add":" ((inFile @) chr (val $Chr))"},{"Add":" ((ioxFrame (Io:)) chr (val $Chr)) ) ) )"},{"Add":""},{"Add":"(de void saveCoEnv ((i8* . Crt))"},{"Add":" (let Crt: (coroutine Crt)"},{"Add":" (unless (== (hex \"0707070707070707\") (val (i64* (Crt: lim))))"},{"Add":" (stkOverErr (Crt: tag)) )"},{"Add":" (Crt: at (val $At)) # Not running"},{"Add":" (putCrtEnv (Crt:) YES) ) )"},{"Add":""},{"Add":"(de loadCoEnv ((i8* . Crt))"},{"Add":" (let Crt: (coroutine (set $Current Crt))"},{"Add":" (memcpy (env) (Crt: (env)) (env T) T)"},{"Add":" (set $StkLimit (+ (Crt: lim) 1024))"},{"Add":" (getCrtEnv (Crt:))"},{"Add":" (set $At (Crt: at))"},{"Add":" (Crt: at 0) # Running"},{"Add":" (val $Ret) ) )"},{"Add":""},{"Add":"# (co ['any [. prg]]) -> any"},{"Add":"(de _Co (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if (atom X)"},{"Add":" (if (val $Current)"},{"Add":" ((coroutine @) tag)"},{"Add":" $Nil )"},{"Add":" (let Tag (eval (++ X))"},{"Add":" (cond"},{"Add":" ((nil? Tag) (tagErr Exe))"},{"Add":" ((pair X) # 'prg'"},{"Add":" (unless (val $Coroutines) # First call"},{"Add":" (let Main: (coroutine (alloc null (+ (val JmpBufSize) (coroutine T))))"},{"Add":" (Main: tag $T) # Tag 'T'"},{"Add":" (Main: nxt null)"},{"Add":" (Main: org null)"},{"Add":" (Main: otg $Nil)"},{"Add":" (Main: prg $Nil)"},{"Add":" (let (Siz (val $StkSizeT) Stk (stack))"},{"Add":" (memset"},{"Add":" (Main: lim (stack (ofs Stk (- Siz))))"},{"Add":" 7 (- Siz 256) T )"},{"Add":" (stack Stk) )"},{"Add":" (Main: at 0)"},{"Add":" (set $Coroutines (set $Current (set $CrtLast (Main:)))) ) )"},{"Add":" (let"},{"Add":" (Src: (coroutine (val $Current))"},{"Add":" Crt (val $Coroutines)"},{"Add":" P (i8* null) )"},{"Add":" (saveCoIO)"},{"Add":" (saveCoEnv (Src:))"},{"Add":" (cond"},{"Add":" ((not (symb? Tag))"},{"Add":" (loop"},{"Add":" (let Crt: (coroutine Crt)"},{"Add":" (when (== Tag (Crt: tag)) # Found running coroutine"},{"Add":" (when (setjmp (Src: (rst)))"},{"Add":" (ret (loadCoEnv (Src:))) )"},{"Add":" (set $Ret $Nil)"},{"Add":" (Crt: org (Src:))"},{"Add":" (Crt: otg (Src: tag))"},{"Add":" (longjmp (Crt: (rst)) 1) )"},{"Add":" (or P"},{"Add":" (Crt: tag) # Unused"},{"Add":" (setq P Crt) ) # Remember next free slot"},{"Add":" (? (=0 (Crt: nxt)))"},{"Add":" (setq Crt @) ) ) )"},{"Add":" ((cnt? (get Tag ZERO)) # Already running"},{"Add":" (let Crt: (coroutine (i8* (& @ -3)))"},{"Add":" (unless (== Tag (Crt: tag))"},{"Add":" (coErr Exe Tag) )"},{"Add":" (when (setjmp (Src: (rst)))"},{"Add":" (ret (loadCoEnv (Src:))) )"},{"Add":" (set $Ret $Nil)"},{"Add":" (Crt: org (Src:))"},{"Add":" (Crt: otg (Src: tag))"},{"Add":" (longjmp (Crt: (rst)) 1) ) )"},{"Add":" ((val $CrtFree)"},{"Add":" (set $CrtFree ((coroutine (setq P @)) lim)) )"},{"Add":" (T (setq Crt (val $CrtLast))) )"},{"Add":" # Start new coroutine"},{"Add":" (when (setjmp (Src: (rst)))"},{"Add":" (ret (loadCoEnv (Src:))) )"},{"Add":" (if P"},{"Add":" (stack P) # Use free slot"},{"Add":" (stack ((coroutine Crt) lim)) # Found no free slot"},{"Add":" (set $CrtLast"},{"Add":" (setq P (b8+ (+ (val JmpBufSize) (coroutine T)))) )"},{"Add":" ((coroutine Crt) nxt P)"},{"Add":" ((coroutine P) nxt null) )"},{"Add":" (let Dst: (coroutine P)"},{"Add":" (Dst: tag Tag)"},{"Add":" (Dst: org (Src:))"},{"Add":" (Dst: otg (Src: tag))"},{"Add":" (Dst: prg X)"},{"Add":" (let (Siz (val $StkSize) Stk (stack))"},{"Add":" (memset"},{"Add":" (Dst: lim (stack (ofs P (- Siz))))"},{"Add":" 7 (- Siz 256) T )"},{"Add":" (stack Stk) )"},{"Add":" (Dst: at 0)"},{"Add":" (Dst: lnk (val $Link))"},{"Add":" (set $Bind"},{"Add":" (push (val $This) $This # [[This] This LINK]"},{"Add":" (Dst: bnd (push ZERO $At (val $Bind) Exe)) ) ) # [0 @ LINK exe]"},{"Add":" (Dst: ca (val $Catch))"},{"Add":" (Dst: in (val $InFrames))"},{"Add":" (Dst: out (val $OutFrames))"},{"Add":" (Dst: err (val $ErrFrames))"},{"Add":" (Dst: ctl (val $CtlFrames))"},{"Add":" (putCrtEnv (Dst:) YES)"},{"Add":" (set # Init local env"},{"Add":" $Next $Nil"},{"Add":" $Make 0"},{"Add":" $Yoke 0"},{"Add":" $Current (Dst:)"},{"Add":" $StkLimit (+ (Dst: lim) 1024) )"},{"Add":" (when (symb? Tag)"},{"Add":" (put Tag ZERO (| (i64 (Dst:)) 2)) )"},{"Add":" (set $Ret (run X))"},{"Add":" (unless (== (hex \"0707070707070707\") (val (i64* (Dst: lim))))"},{"Add":" (stkOverErr (Dst: tag)) )"},{"Add":" (stop (Dst:)) # Stop coroutine"},{"Add":" (let Org: (coroutine (Dst: org))"},{"Add":" (unless (== (Org: tag) (Dst: otg))"},{"Add":" (coErr Exe (Dst: otg)) )"},{"Add":" (longjmp (Org: (rst)) 1) ) ) ) )"},{"Add":" ((t? Tag)"},{"Add":" (err Exe 0 ($ \"Can't stop main routine\") null) )"},{"Add":" ((val $Coroutines) # Stop coroutine"},{"Add":" (let Crt @"},{"Add":" (if (symb? Tag)"},{"Add":" (when (cnt? (get Tag ZERO))"},{"Add":" (setq Crt (i8* (& @ -3)))"},{"Add":" (unless (== Tag ((coroutine Crt) tag))"},{"Add":" (coErr Exe Tag) )"},{"Add":" (: 1"},{"Add":" (let P ((coroutine Crt) (env $ErrFrames i8*)) # Close ErrFrames"},{"Add":" (while P"},{"Add":" (let Err: (ctFrame P)"},{"Add":" (when (ge0 (Err: fd))"},{"Add":" (close @) )"},{"Add":" (setq P (Err: link)) ) ) )"},{"Add":" (let P ((coroutine Crt) (env $OutFrames i8*)) # Close OutFrames"},{"Add":" (until (== P (val $Stdout))"},{"Add":" (let Io: (ioFrame P)"},{"Add":" (when (Io: file)"},{"Add":" (let Out: (outFile @)"},{"Add":" (flush (Out:))"},{"Add":" (when (and (ge0 (Out: fd)) (Io: pid))"},{"Add":" (close (Out: fd))"},{"Add":" (closeOutFile (Out: fd))"},{"Add":" (when (> (Io: pid) 1)"},{"Add":" (waitFile @) ) ) ) )"},{"Add":" (setq P (Io: link)) ) ) )"},{"Add":" (let P ((coroutine Crt) (env $InFrames i8*)) # Close InFrames"},{"Add":" (until (== P (val $Stdin))"},{"Add":" (let Io: (ioFrame P)"},{"Add":" (when (Io: file)"},{"Add":" (let In: (inFile @)"},{"Add":" (when (and (ge0 (In: fd)) (Io: pid))"},{"Add":" (close (In: fd))"},{"Add":" (closeInFile (In: fd))"},{"Add":" (when (> (Io: pid) 1)"},{"Add":" (waitFile @) ) ) ) )"},{"Add":" (setq P (Io: link)) ) ) )"},{"Add":" (stop Crt) ) ) # Stop it"},{"Add":" (loop"},{"Add":" (when (== Tag ((coroutine Crt) tag)) # Found coroutine"},{"Add":" (goto 1) )"},{"Add":" (? (=0 (setq Crt ((coroutine Crt) nxt)))) ) ) )"},{"Add":" Tag )"},{"Add":" (T $Nil) ) ) ) ) )"},{"Add":""},{"Add":"# (yield 'any ['any2]) -> any"},{"Add":"(de _Yield (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Val (save (eval (++ X)))"},{"Add":" Tag (eval (++ X))"},{"Add":" Crt (val $Coroutines) )"},{"Add":" (unless Crt"},{"Add":" (err Exe 0 ($ \"No coroutines\") null) )"},{"Add":" (let"},{"Add":" (Src: (coroutine (val $Current))"},{"Add":" Org: (coroutine (Src: org))"},{"Add":" Dst:"},{"Add":" (coroutine"},{"Add":" (cond"},{"Add":" ((not (nil? Tag))"},{"Add":" (cond"},{"Add":" ((t? Tag) (val $Coroutines))"},{"Add":" ((not (symb? Tag))"},{"Add":" (loop"},{"Add":" (let Crt: (coroutine Crt)"},{"Add":" (? (== Tag (Crt: tag)) Crt)"},{"Add":" (unless (setq Crt (Crt: nxt))"},{"Add":" (coErr Exe Tag) ) ) ) )"},{"Add":" ((cnt? (get Tag ZERO))"},{"Add":" (prog1"},{"Add":" (i8* (& @ -3))"},{"Add":" (unless (== Tag ((coroutine @) tag))"},{"Add":" (coErr Exe Tag) ) ) )"},{"Add":" (T (coErr Exe Tag)) ) )"},{"Add":" ((Org:)"},{"Add":" (prog1"},{"Add":" @"},{"Add":" (unless (== (Org: tag) (Src: otg))"},{"Add":" (coErr Exe (Src: otg)) ) ) )"},{"Add":" (T (tagErr Exe)) ) )"},{"Add":" Lnk (any 0)"},{"Add":" Bnd (any 0)"},{"Add":" Ca (i8* null)"},{"Add":" In (val $Stdin)"},{"Add":" Out (val $Stdout)"},{"Add":" Err (i8* null)"},{"Add":" Ctl (i8* null) )"},{"Add":" (saveCoIO)"},{"Add":" (unless (t? (Src: tag))"},{"Add":" (let P (val $Link) # Reverse Stack(s)"},{"Add":" (until (== P (Src: lnk))"},{"Add":" (let Q P"},{"Add":" (setq P (val 2 Q))"},{"Add":" (set 2 Q Lnk)"},{"Add":" (setq Lnk Q) ) )"},{"Add":" (set $Link Lnk) )"},{"Add":" (let P (val $Bind) # Reverse bindings"},{"Add":" (until (== P (Src: bnd))"},{"Add":" (let Q P"},{"Add":" (xchg (val 2 Q) Q)"},{"Add":" (setq P (val 3 Q))"},{"Add":" (set 3 Q Bnd)"},{"Add":" (setq Bnd Q) ) )"},{"Add":" (set 3 P Bnd $Bind P) )"},{"Add":" (let P (val $Catch) # Reverse CaFrames"},{"Add":" (until (== P (Src: ca))"},{"Add":" (let Ca: (caFrame P)"},{"Add":" (setq P (Ca: link))"},{"Add":" (Ca: link Ca)"},{"Add":" (setq Ca (Ca:)) ) )"},{"Add":" (set $Catch Ca) )"},{"Add":" (let P (val $InFrames) # Reverse InFrames"},{"Add":" (until (== P (Src: in))"},{"Add":" (let In: (ioFrame P)"},{"Add":" (setq P (In: link))"},{"Add":" (In: link In)"},{"Add":" (setq In (In:)) ) )"},{"Add":" (set $InFrames In) )"},{"Add":" (let P (val $OutFrames) # Reverse OutFrames"},{"Add":" (until (== P (Src: out))"},{"Add":" (let Out: (ioFrame P)"},{"Add":" (setq P (Out: link))"},{"Add":" (Out: link Out)"},{"Add":" (setq Out (Out:)) ) )"},{"Add":" (set $OutFrames Out) )"},{"Add":" (let P (val $ErrFrames) # Reverse ErrFrames"},{"Add":" (until (== P (Src: err))"},{"Add":" (let Err: (ctFrame P)"},{"Add":" (setq P (Err: link))"},{"Add":" (Err: link Err)"},{"Add":" (setq Err (Err:)) ) )"},{"Add":" (set $ErrFrames Err) )"},{"Add":" (let P (val $CtlFrames) # Reverse CtlFrames"},{"Add":" (until (== P (Src: ctl))"},{"Add":" (let Ctl: (ctFrame P)"},{"Add":" (setq P (Ctl: link))"},{"Add":" (Ctl: link Ctl)"},{"Add":" (setq Ctl (Ctl:)) ) )"},{"Add":" (set $CtlFrames Ctl) ) )"},{"Add":" (saveCoEnv (Src:))"},{"Add":" (unless (setjmp (Src: (rst)))"},{"Add":" (set $Ret Val)"},{"Add":" (longjmp (Dst: (rst)) 1) )"},{"Add":" (unless (t? (Src: tag))"},{"Add":" (let P (Org: (env $CtlFrames i8*)) # Restore CtlFrames"},{"Add":" (Src: ctl P)"},{"Add":" (while Ctl"},{"Add":" (let Ctl: (ctFrame Ctl)"},{"Add":" (setq Ctl (Ctl: link))"},{"Add":" (Ctl: link P)"},{"Add":" (setq P (Ctl:)) ) )"},{"Add":" (Src: (env $CtlFrames i8*) P) )"},{"Add":" (let P (Org: (env $ErrFrames i8*)) # Restore ErrFrames"},{"Add":" (Src: err P)"},{"Add":" (while Err"},{"Add":" (let Err: (ctFrame Err)"},{"Add":" (setq Err (Err: link))"},{"Add":" (Err: link P)"},{"Add":" (setq P (Err:)) ) )"},{"Add":" (Src: (env $ErrFrames i8*) P) )"},{"Add":" (let P (Org: (env $OutFrames i8*)) # Restore OutFrames"},{"Add":" (Src: out P)"},{"Add":" (until (== Out (val $Stdout))"},{"Add":" (let Out: (ioFrame Out)"},{"Add":" (setq Out (Out: link))"},{"Add":" (Out: link P)"},{"Add":" (setq P (Out:)) ) )"},{"Add":" (Src: (env $OutFrames i8*) P) )"},{"Add":" (let P (Org: (env $InFrames i8*)) # Restore InFrames"},{"Add":" (Src: in P)"},{"Add":" (until (== In (val $Stdin))"},{"Add":" (let In: (ioFrame In)"},{"Add":" (setq In (In: link))"},{"Add":" (In: link P)"},{"Add":" (setq P (In:)) ) )"},{"Add":" (Src: (env $InFrames i8*) P) )"},{"Add":" (let P (Org: (env $Catch i8*)) # Restore CaFrames"},{"Add":" (Src: ca P)"},{"Add":" (while Ca"},{"Add":" (let Ca: (caFrame Ca)"},{"Add":" (setq Ca (Ca: link))"},{"Add":" (Ca: link P)"},{"Add":" (setq P (Ca:)) ) )"},{"Add":" (Src: (env $Catch i8*) P) )"},{"Add":" (let P (Src: bnd) # Restore bindings"},{"Add":" (set 3 P (Org: (env $Bind any)))"},{"Add":" (while Bnd"},{"Add":" (let Q Bnd"},{"Add":" (xchg (val 2 Q) Q)"},{"Add":" (setq Bnd (val 3 Q))"},{"Add":" (set 3 Q P)"},{"Add":" (setq P Q) ) )"},{"Add":" (Src: (env $Bind any) P) )"},{"Add":" (let P (Org: (env $Link any)) # Restore Stack(s)"},{"Add":" (Src: lnk P)"},{"Add":" (while Lnk"},{"Add":" (let Q Lnk"},{"Add":" (setq Lnk (val 2 Q))"},{"Add":" (set 2 Q P)"},{"Add":" (setq P Q) ) )"},{"Add":" (Src: (env $Link any) P) ) )"},{"Add":" (loadCoEnv (Src:)) ) ) )"},{"Add":""},{"Add":"(de brkLoad (Exe)"},{"Add":" (when"},{"Add":" (and"},{"Add":" ((inFile (val (val $InFiles))) tty)"},{"Add":" ((outFile (val 2 (val $OutFiles))) tty)"},{"Add":" (=0 (val $Break)) )"},{"Add":" (let P (val $Bind)"},{"Add":" (setq P (push (val $At) $At P 0)) # [[@] @ LINK Expr]"},{"Add":" (setq P (push (val $Up) $Up P))"},{"Add":" (set $Up Exe)"},{"Add":" (set $Break (set $Bind (push (val $Run) $Run P)))"},{"Add":" (set $Run $Nil) )"},{"Add":" (pushOutFile (b8+ (ioFrame T)) (val 2 (val $OutFiles)) 0) # Stdout"},{"Add":" (print Exe)"},{"Add":" (newline)"},{"Add":" (repl 0 ($ \"! \") $Nil)"},{"Add":" (popOutFiles)"},{"Add":" (setq Exe (val $Up))"},{"Add":" (let P (val $Bind)"},{"Add":" (set $Run (val P))"},{"Add":" (setq P (val 3 P))"},{"Add":" (set $Up (val P))"},{"Add":" (setq P (val 3 P))"},{"Add":" (set $At (val P))"},{"Add":" (set $Bind (val 3 P)) )"},{"Add":" (set $Break 0) )"},{"Add":" Exe )"},{"Add":""},{"Add":"# (! . exe) -> any"},{"Add":"(de _Break (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (unless (nil? (val $Dbg))"},{"Add":" (setq X (brkLoad X)) )"},{"Add":" (eval X) ) )"},{"Add":""},{"Add":"# (e . prg) -> any"},{"Add":"(de _E (Exe)"},{"Add":" (let P (val $Break)"},{"Add":" (unless P"},{"Add":" (err Exe 0 ($ \"No Break\") null) )"},{"Add":" (let"},{"Add":" (Dbg (save (val $Dbg))"},{"Add":" At (save (val $At))"},{"Add":" Run (save (val $Run)) )"},{"Add":" (set"},{"Add":" $Dbg $Nil"},{"Add":" $Run (val P)"},{"Add":" $At (val (val 3 (val 3 P))) )"},{"Add":" (let (In: (ioFrame (val $InFrames)) Out: (ioFrame (val $OutFrames)))"},{"Add":" (popInFiles)"},{"Add":" (popOutFiles)"},{"Add":" (prog1"},{"Add":" (if (pair (cdr Exe))"},{"Add":" (run @)"},{"Add":" (eval (val $Up)) )"},{"Add":" (if (Out: file)"},{"Add":" (pushOutFile (Out:) (Out: file) (Out: pid))"},{"Add":" (pushOutput (Out:) ((ioxFrame (Out:)) exe)) )"},{"Add":" (if (In: file)"},{"Add":" (pushInFile (In:) (In: file) (In: pid))"},{"Add":" (pushInput (In:) ((ioxFrame (In:)) exe)) )"},{"Add":" (set $Run Run $At At $Dbg Dbg) ) ) ) ) )"},{"Add":""},{"Add":"(local) trace"},{"Add":""},{"Add":"(de void trace ((i32 . C) X)"},{"Add":" (when (> C 64)"},{"Add":" (setq C 64) )"},{"Add":" (while (ge0 (dec 'C))"},{"Add":" (space) )"},{"Add":" (if (atom X) # Symbol"},{"Add":" (print @)"},{"Add":" (print (car X)) # Method"},{"Add":" (space)"},{"Add":" (print (cdr X)) # Class"},{"Add":" (space)"},{"Add":" (print (val $This)) ) ) # 'This'"},{"Add":""},{"Add":"# ($ sym|lst lst . prg) -> any"},{"Add":"(de _Trace (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if (nil? (val $Dbg))"},{"Add":" (run (cddr X))"},{"Add":" (let (Out (val $OutFile) Put (val (i8** $Put)))"},{"Add":" (set"},{"Add":" $OutFile (val 3 (val $OutFiles)) # Stderr"},{"Add":" $Put (fun (void i8) _putStdout) )"},{"Add":" (let (Y (++ X) Z (++ X))"},{"Add":" (trace (set $Trace (inc (val $Trace))) Y)"},{"Add":" (outString ($ \" :\"))"},{"Add":" (while (pair Z)"},{"Add":" (space)"},{"Add":" (print (val (++ Z))) )"},{"Add":" (cond"},{"Add":" ((== Z $At)"},{"Add":" (setq Z (val $Next))"},{"Add":" (while (pair Z)"},{"Add":" (space)"},{"Add":" (print (cdr Z))"},{"Add":" (setq Z (car Z)) ) )"},{"Add":" ((not (nil? Z))"},{"Add":" (space)"},{"Add":" (print (val Z)) ) )"},{"Add":" (newline)"},{"Add":" (set (i8** $Put) Put $OutFile Out)"},{"Add":" (prog1"},{"Add":" (run X)"},{"Add":" (set"},{"Add":" $OutFile (val 3 (val $OutFiles)) # Stderr"},{"Add":" $Put (fun (void i8) _putStdout) )"},{"Add":" (let I (val $Trace)"},{"Add":" (trace I Y)"},{"Add":" (set $Trace (dec I)) )"},{"Add":" (outString ($ \" = \"))"},{"Add":" (print @)"},{"Add":" (newline)"},{"Add":" (set (i8** $Put) Put $OutFile Out) ) ) ) ) ) )"},{"Add":""},{"Add":"# (exec 'any ..)"},{"Add":"(de _Exec (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Av (b8* (inc (length X)))"},{"Add":" Cmd (xName Exe (evSym X)) )"},{"Add":" (set Av (pathString Cmd (b8 (pathSize Cmd))))"},{"Add":" (stkChk Exe)"},{"Add":" (let A Av"},{"Add":" (while (pair (shift X))"},{"Add":" (let Nm (xName Exe (evSym X))"},{"Add":" (set (inc 'A)"},{"Add":" (bufString Nm (b8 (bufSize Nm))) ) )"},{"Add":" (stkChk Exe) )"},{"Add":" (set (inc 'A) null) )"},{"Add":" (flushAll)"},{"Add":" (execvp (val Av) Av) # Execute program"},{"Add":" (execErr (val Av)) ) ) # Error if failed"},{"Add":""},{"Add":"# (call 'any ..) -> flg"},{"Add":"(de _Call (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Av (b8* (inc (length X)))"},{"Add":" Cmd (xName Exe (evSym X)) )"},{"Add":" (set Av (pathString Cmd (b8 (pathSize Cmd))))"},{"Add":" (stkChk Exe)"},{"Add":" (let A Av"},{"Add":" (while (pair (shift X))"},{"Add":" (let Nm (xName Exe (evSym X))"},{"Add":" (set (inc 'A)"},{"Add":" (bufString Nm (b8 (bufSize Nm))) ) )"},{"Add":" (stkChk Exe) )"},{"Add":" (set (inc 'A) null) )"},{"Add":" (flushAll)"},{"Add":" (let"},{"Add":" (Tc (tcgetpgrp 0)"},{"Add":" Fg (and (val Tio) (== Tc (getpgrp))) )"},{"Add":" (cond"},{"Add":" ((lt0 (fork)) (forkErr Exe))"},{"Add":" ((=0 @) # In child"},{"Add":" (setpgid 0 0) # Set process group"},{"Add":" (when Fg"},{"Add":" (tcsetpgrp 0 (getpid)) )"},{"Add":" (execvp (val Av) Av) # Execute program"},{"Add":" (execErr (val Av)) ) ) # Error if failed"},{"Add":" # In parent"},{"Add":" (let (Pid @ Res (b32 1))"},{"Add":" (setpgid Pid 0) # Set process group"},{"Add":" (when Fg"},{"Add":" (tcsetpgrp 0 Pid) )"},{"Add":" (loop"},{"Add":" (while (lt0 (waitWuntraced Pid Res))"},{"Add":" (unless (== (gErrno) EINTR)"},{"Add":" (err Exe 0 ($ \"wait pid\") null) )"},{"Add":" (sigChk Exe) )"},{"Add":" (when Fg"},{"Add":" (tcsetpgrp 0 Tc) )"},{"Add":" (? (=0 (wifStopped Res))"},{"Add":" (set $At2 (cnt (i64 (val Res))))"},{"Add":" (if (val Res) $Nil $T) )"},{"Add":" (repl 0 ($ \"+ \") $Nil)"},{"Add":" (when Fg"},{"Add":" (tcsetpgrp 0 Pid) )"},{"Add":" (kill Pid (val SIGCONT Sig)) ) ) ) ) )"},{"Add":""},{"Add":"# (ipid) -> pid | NIL"},{"Add":"(de _Ipid (Exe)"},{"Add":" (let Io: (ioFrame (val $InFrames))"},{"Add":" (if (and (Io: file) (> (Io: pid) 1))"},{"Add":" (cnt (i64 (Io: pid)))"},{"Add":" $Nil ) ) )"},{"Add":""},{"Add":"# (opid) -> pid | NIL"},{"Add":"(de _Opid (Exe)"},{"Add":" (let Io: (ioFrame (val $OutFrames))"},{"Add":" (if (and (Io: file) (> (Io: pid) 1))"},{"Add":" (cnt (i64 (Io: pid)))"},{"Add":" $Nil ) ) )"},{"Add":""},{"Add":"# (kill 'pid ['cnt]) -> flg"},{"Add":"(de _Kill (Exe)"},{"Add":" (let (X (cdr Exe) Pid (i32 (evCnt Exe X)))"},{"Add":" (if"},{"Add":" (kill"},{"Add":" Pid"},{"Add":" (if (atom (shift X))"},{"Add":" (val SIGTERM Sig)"},{"Add":" (i32 (evCnt Exe X)) ) )"},{"Add":" $Nil"},{"Add":" $T ) ) )"},{"Add":""},{"Add":"# (fork) -> pid | NIL"},{"Add":"(de _Fork (Exe)"},{"Add":" (if (forkLisp Exe)"},{"Add":" (cnt (i64 @))"},{"Add":" $Nil ) )"},{"Add":""},{"Add":"# (detach) -> pid | NIL"},{"Add":"(de _Detach (Exe)"},{"Add":" (prog1"},{"Add":" (val $PPid)"},{"Add":" (unless (nil? @)"},{"Add":" (set $PPid $Nil)"},{"Add":" (close (val $Tell))"},{"Add":" (set $Tell 0)"},{"Add":" (let H (val $Hear)"},{"Add":" (close H)"},{"Add":" (closeInFile H)"},{"Add":" (closeOutFile H) )"},{"Add":" (set $Hear 0)"},{"Add":" (close (val $Mic))"},{"Add":" (set $Mic 0)"},{"Add":" (set $Slot 0)"},{"Add":" (setsid) ) ) )"},{"Add":""},{"Add":"# (bye ['cnt])"},{"Add":"(de _Bye (Exe)"},{"Add":" (bye"},{"Add":" (if (nil? (eval (cadr Exe)))"},{"Add":" 0"},{"Add":" (i32 (xCnt Exe @)) ) ) )"}]}},{"FileAdd":{"meta":{"basename":"ext.ll","metadata":0},"context":[{"change":0,"pos":63931}],"contents":[{"Add":"source_filename = \"ext.l\""},{"Add":""},{"Add":"declare {i64, i1} @llvm.uadd.with.overflow.i64(i64, i64)"},{"Add":"declare {i64, i1} @llvm.usub.with.overflow.i64(i64, i64)"},{"Add":"declare i64 @llvm.fshl.i64(i64, i64, i64)"},{"Add":"declare i64 @llvm.fshr.i64(i64, i64, i64)"},{"Add":"declare void @llvm.memcpy.p0i8.p0i8.i64(i8*, i8*, i64, i1)"},{"Add":"declare void @llvm.memset.p0i8.i64(i8*, i8, i64, i1)"},{"Add":"declare i8* @llvm.stacksave()"},{"Add":"declare void @llvm.stackrestore(i8*)"},{"Add":""},{"Add":"@$AV0 = external global i8*"},{"Add":"@$AV = external global i8**"},{"Add":"@$PilHome = external global i8*"},{"Add":"@$PilLen = external global i64"},{"Add":"@$UsrHome = external global i8*"},{"Add":"@$UsrLen = external global i64"},{"Add":"@$Heaps = external global i64"},{"Add":"@$Avail = external global i64"},{"Add":"@$Extern = external global i64"},{"Add":"@$ExtCnt = external global i64"},{"Add":"@$ExtSkip = external global i64"},{"Add":"@$Coroutines = external global i8*"},{"Add":"@$Current = external global i8*"},{"Add":"@$CrtLast = external global i8*"},{"Add":"@$CrtFree = external global i8*"},{"Add":"@$StkLimit = external global i8*"},{"Add":"@$StkSizeT = external global i64"},{"Add":"@$StkSize = external global i64"},{"Add":"@$Stdin = external global i8*"},{"Add":"@$Stdout = external global i8*"},{"Add":"@$LinePtr = external global i8*"},{"Add":"@$LineBuf = external global i8*"},{"Add":"@$LinePrmt = external global i8*"},{"Add":"@$ReplPrmt = external global i8*"},{"Add":"@$ContPrmt = external global i8*"},{"Add":"@$Ret = external global i64"},{"Add":"@$TtyPid = external global i32"},{"Add":"@$InFDs = external global i32"},{"Add":"@$InFiles = external global i8**"},{"Add":"@$OutFiles = external global i8**"},{"Add":"@$IoCnt = external global i32"},{"Add":"@$IoIx = external global i64"},{"Add":"@$IoChar = external global i64"},{"Add":"@$PutBin = external global void(i8)*"},{"Add":"@$GetBin = external global i32()*"},{"Add":"@$OutFDs = external global i32"},{"Add":"@$Nfds = external global i32"},{"Add":"@$Poll = external global i64*"},{"Add":"@$SeedL = external global i64"},{"Add":"@$SeedH = external global i64"},{"Add":"@$USec = external global i64"},{"Add":"@$Child = external global i8*"},{"Add":"@$Children = external global i32"},{"Add":"@$Slot = external global i32"},{"Add":"@$Spkr = external global i32"},{"Add":"@$Mic = external global i32"},{"Add":"@$SpMiPipe = external global [2 x i32]"},{"Add":"@$Talking = external global i32"},{"Add":"@$Hear = external global i32"},{"Add":"@$Tell = external global i32"},{"Add":"@$TellBuf = external global i8*"},{"Add":"@$Ptr = external global i8*"},{"Add":"@$End = external global i8*"},{"Add":"@$BufX = external global i8*"},{"Add":"@$PtrX = external global i8*"},{"Add":"@$EndX = external global i8*"},{"Add":"@$ExtN = external global i32"},{"Add":"@$Extn = external global i32"},{"Add":"@$StrP = external global i64*"},{"Add":"@$GcCount = external global i64"},{"Add":"@$DbFiles = external global i8*"},{"Add":"@$DbFile = external global i8*"},{"Add":"@$DBs = external global i32"},{"Add":"@$MaxBlkSize = external global i32"},{"Add":"@$DbBlock = external global i8*"},{"Add":"@$BlkIndex = external global i64"},{"Add":"@$BlkLink = external global i64"},{"Add":"@$BlkPtr = external global i8*"},{"Add":"@$BlkEnd = external global i8*"},{"Add":"@$DbJnl = external global i8*"},{"Add":"@$DbLog = external global i8*"},{"Add":"@$Signal = external global [16 x i32]"},{"Add":"@SymTab = external global [876 x i64]"},{"Add":"@gcData = external global [53 x i64]"},{"Add":"@cbFuns = external global [24 x i64]"},{"Add":"@env = external global [21 x i64]"},{"Add":"@$Cell = external global [2 x i64]"},{"Add":"@$Version = external global [3 x i64]"},{"Add":"@$TBuf = external global [2 x i8]"},{"Add":"@$Month = external global [13 x i8]"},{"Add":"@$Repl = external global i1"},{"Add":"@$PRepl = external global i1"},{"Add":"@$Jam = external global i1"},{"Add":"@$InBye = external global i1"},{"Add":"@$Sync = external global i1"},{"Add":"@$Empty = constant [1 x i8] c\"\\00\""},{"Add":"@$Delim = constant [16 x i8] c\" \\09\\0A\\0D\\22'(),[]`{}~\\00\""},{"Add":"declare i8* @malloc(i64)"},{"Add":"declare i8* @realloc(i8*, i64)"},{"Add":"declare void @free(i8*)"},{"Add":"declare i32 @fork()"},{"Add":"declare i8* @getenv(i8*)"},{"Add":"declare i32 @setenv(i8*, i8*, i32)"},{"Add":"declare i8* @getcwd(i8*, i64)"},{"Add":"declare i32 @chdir(i8*)"},{"Add":"declare i32 @getpid()"},{"Add":"declare i32 @getpgrp()"},{"Add":"declare i32 @setsid()"},{"Add":"declare i32 @alarm(i32)"},{"Add":"declare i32 @setpgid(i32, i32)"},{"Add":"declare i32 @execvp(i8*, i8**)"},{"Add":"declare i32 @isatty(i32)"},{"Add":"declare i32 @openpty(i32*, i32*, i8*, i8*, i8*)"},{"Add":"declare i32 @login_tty(i32)"},{"Add":"declare i32 @tcgetattr(i32, i8*)"},{"Add":"declare i32 @tcgetpgrp(i32)"},{"Add":"declare i32 @tcsetpgrp(i32, i32)"},{"Add":"declare i64 @read(i32, i8*, i64)"},{"Add":"declare i64 @write(i32, i8*, i64)"},{"Add":"declare i64 @pread(i32, i8*, i64, i64)"},{"Add":"declare i64 @pwrite(i32, i8*, i64, i64)"},{"Add":"declare i32 @fread(i8*, i64, i64, i8*)"},{"Add":"declare i32 @fwrite(i8*, i64, i64, i8*)"},{"Add":"declare i32 @putc_unlocked(i32, i8*)"},{"Add":"declare i32 @getc_unlocked(i8*)"},{"Add":"declare i8* @fopen(i8*, i8*)"},{"Add":"declare i32 @fflush(i8*)"},{"Add":"declare i32 @feof(i8*)"},{"Add":"declare i32 @fclose(i8*)"},{"Add":"declare i32 @fileno(i8*)"},{"Add":"declare i32 @fsync(i32)"},{"Add":"declare i32 @pipe(i32*)"},{"Add":"declare i32 @memcmp(i8*, i8*, i64)"},{"Add":"declare i64 @strlen(i8*)"},{"Add":"declare i8* @strcpy(i8*, i8*)"},{"Add":"declare i8* @strdup(i8*)"},{"Add":"declare i32 @strcmp(i8*, i8*)"},{"Add":"declare i8* @strchr(i8*, i32)"},{"Add":"declare i8* @strrchr(i8*, i32)"},{"Add":"declare i8* @dlsym(i8*, i8*)"},{"Add":"declare i8* @dlerror()"},{"Add":"declare i32 @dup(i32)"},{"Add":"declare i32 @dup2(i32, i32)"},{"Add":"declare i32 @close(i32)"},{"Add":"declare i8* @signal(i32, i8*)"},{"Add":"declare i32 @waitpid(i32, i32*, i32)"},{"Add":"declare i32 @poll(i64*, i32, i64)"},{"Add":"declare i32 @setjmp(i8*)"},{"Add":"declare void @longjmp(i8*, i32)"},{"Add":"declare i32 @kill(i32, i32)"},{"Add":"declare void @exit(i32)"},{"Add":"declare void @add_history(i8*)"},{"Add":"declare i8*** @history_list()"},{"Add":"declare void @clear_history()"},{"Add":"@TgOS = external global i8"},{"Add":"@TgCPU = external global i8"},{"Add":"@PipeBufSize = external global i32"},{"Add":"@Fsign = external global i1"},{"Add":"@Fdigit = external global i64"},{"Add":"declare i8* @stderrMsg(i8*, i8*)"},{"Add":"declare void @gPrintf(i8*, i32, i8*, i8*)"},{"Add":"declare i8* @strErrno()"},{"Add":"declare i32 @openRd(i8*)"},{"Add":"declare i32 @openWr(i8*)"},{"Add":"declare i32 @openRdWr(i8*)"},{"Add":"declare i32 @openRdWrExcl(i8*)"},{"Add":"declare i32 @openRdWrCreate(i8*)"},{"Add":"declare i32 @openRdWrAppend(i8*)"},{"Add":"declare i32 @openWrAppend(i8*)"},{"Add":"declare i1 @fseekOfs(i8*, i32)"},{"Add":"declare i1 @fseek0(i8*)"},{"Add":"declare i1 @seek0(i32)"},{"Add":"declare i1 @truncate0(i32)"},{"Add":"declare i32 @socketPair(i32*)"},{"Add":"declare i32 @fcntlCloExec(i32)"},{"Add":"declare void @fcntlSetFl(i32, i32)"},{"Add":"declare i32 @nonBlocking(i32)"},{"Add":"declare void @fcntlSetOwn(i32, i32)"},{"Add":"declare i8* @getDir(i8*)"},{"Add":"declare void @initReadline()"},{"Add":"declare i8* @gReadline(i8*)"},{"Add":"declare void @rlHide()"},{"Add":"declare void @rlShow()"},{"Add":"declare void @rlSigBeg()"},{"Add":"declare void @rlSigEnd()"},{"Add":"declare i8* @currentLine()"},{"Add":"@Sig = external global i32"},{"Add":"@SigDfl = external global i8*"},{"Add":"@SigIgn = external global i8*"},{"Add":"declare i32 @gSignal(i32)"},{"Add":"declare void @iSignal(i32, i8*)"},{"Add":"declare void @sigUnblock(i32)"},{"Add":"declare void @sigChld(i32)"},{"Add":"declare i32 @waitWuntraced(i32, i32*)"},{"Add":"declare i32 @wifStopped(i32*)"},{"Add":"declare i32 @nErrno()"},{"Add":"declare i32 @gErrno()"},{"Add":"@Tio = external global i1"},{"Add":"@OrgTermio = external global i8"},{"Add":"@Termio = external global i8*"},{"Add":"declare void @stopTerm()"},{"Add":"declare void @setRaw()"},{"Add":"declare void @setCooked()"},{"Add":"declare i1 @reopenTty(i8*)"},{"Add":"declare i64 @getUsec(i1)"},{"Add":"declare i64 @getMsec()"},{"Add":"declare i64 @getDate()"},{"Add":"declare i64 @getGmDate()"},{"Add":"declare i64 @getTime()"},{"Add":"declare i64 @getGmTime()"},{"Add":"declare i8* @ulimStk()"},{"Add":"declare i64 @fileInfo(i1, i1, i8*, i64*)"},{"Add":"declare void @pollIn(i32, i64*)"},{"Add":"declare void @pollOut(i32, i64*)"},{"Add":"declare void @pollIgn(i64*)"},{"Add":"declare i32 @gPoll(i64*, i32, i64)"},{"Add":"declare i1 @readyIn(i64*)"},{"Add":"declare i1 @readyOut(i64*)"},{"Add":"declare i32 @rdLock(i32, i64, i64, i1)"},{"Add":"declare i32 @wrLock(i32, i64, i64, i1)"},{"Add":"declare i32 @unLock(i32, i64, i64)"},{"Add":"declare i32 @getLock(i32, i64, i64)"},{"Add":"@JmpBufSize = external global i64"},{"Add":"@QuitRst = external global i8"},{"Add":"declare i8* @dlOpen(i8*)"},{"Add":"declare i8* @ffiPrep(i8*, i8*, i64)"},{"Add":"declare i64 @ffiCall(i8*, i64)"},{"Add":"declare i64 @boxFloat(i32, i64)"},{"Add":"declare i64 @boxFlt()"},{"Add":"declare i64 @boxDouble(i64, i64)"},{"Add":"declare i64 @boxDbl()"},{"Add":"declare void @bufFloat(i64, i64, i8*)"},{"Add":"declare void @bufDouble(i64, i64, i8*)"},{"Add":"declare i1 @chance(i64)"},{"Add":"declare i1 @isLowc(i32)"},{"Add":"declare i1 @isUppc(i32)"},{"Add":"declare i1 @isLetterOrDigit(i32)"},{"Add":"declare i32 @toUpperCase(i32)"},{"Add":"declare i32 @toLowerCase(i32)"},{"Add":"declare i64 @dbg(i64, i64)"},{"Add":"declare i1 @equal(i64, i64)"},{"Add":"declare i64 @compare(i64, i64)"},{"Add":"declare i64 @evList(i64)"},{"Add":"declare i64 @cons(i64, i64)"},{"Add":"declare i64 @cons2(i64, i64, i64)"},{"Add":"declare i64 @cons3(i64, i64, i64, i64)"},{"Add":"declare i64 @consStr(i64)"},{"Add":"declare i64 @bufSize(i64)"},{"Add":"declare i8* @bufString(i64, i8*)"},{"Add":"declare i64 @mkStr(i8*)"},{"Add":"declare i8 @firstByte(i64)"},{"Add":"declare void @pack(i64, i64*)"},{"Add":"declare i1 @subStr(i64, i64)"},{"Add":"declare i1 @flush(i8*)"},{"Add":"declare void @flushAll()"},{"Add":"declare void @newline()"},{"Add":"declare void @space()"},{"Add":"declare void @outWord(i64)"},{"Add":"declare void @outString(i8*)"},{"Add":"declare void @print(i64)"},{"Add":"declare i64 @repl(i64, i8*, i64)"},{"Add":"declare void @dbFetch(i64, i64)"},{"Add":"declare void @dbTouch(i64, i64)"},{"Add":"declare void @dbZap(i64)"},{"Add":"declare void @putSrc(i64, i64)"},{"Add":"declare i64 @brkLoad(i64)"},{"Add":"declare i64 @xCnt(i64, i64)"},{"Add":"declare i64 @evCnt(i64, i64)"},{"Add":"declare i64 @evSym(i64)"},{"Add":"declare i64 @xName(i64, i64)"},{"Add":"declare i32 @symChar(i64*)"},{"Add":"declare void @charSym(i32, i64*)"},{"Add":"declare i8* @initInFile(i32, i8*)"},{"Add":"declare i8* @initOutFile(i32)"},{"Add":"@$SnxTab = global [194 x i8] ["},{"Add":" i8 48,"},{"Add":" i8 49,"},{"Add":" i8 50,"},{"Add":" i8 51,"},{"Add":" i8 52,"},{"Add":" i8 53,"},{"Add":" i8 54,"},{"Add":" i8 55,"},{"Add":" i8 56,"},{"Add":" i8 57,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 70,"},{"Add":" i8 83,"},{"Add":" i8 84,"},{"Add":" i8 0,"},{"Add":" i8 70,"},{"Add":" i8 83,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 83,"},{"Add":" i8 83,"},{"Add":" i8 76,"},{"Add":" i8 78,"},{"Add":" i8 78,"},{"Add":" i8 0,"},{"Add":" i8 70,"},{"Add":" i8 83,"},{"Add":" i8 82,"},{"Add":" i8 83,"},{"Add":" i8 84,"},{"Add":" i8 0,"},{"Add":" i8 70,"},{"Add":" i8 70,"},{"Add":" i8 83,"},{"Add":" i8 0,"},{"Add":" i8 83,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 70,"},{"Add":" i8 83,"},{"Add":" i8 84,"},{"Add":" i8 0,"},{"Add":" i8 70,"},{"Add":" i8 83,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 83,"},{"Add":" i8 83,"},{"Add":" i8 76,"},{"Add":" i8 78,"},{"Add":" i8 78,"},{"Add":" i8 0,"},{"Add":" i8 70,"},{"Add":" i8 83,"},{"Add":" i8 82,"},{"Add":" i8 83,"},{"Add":" i8 84,"},{"Add":" i8 0,"},{"Add":" i8 70,"},{"Add":" i8 70,"},{"Add":" i8 83,"},{"Add":" i8 0,"},{"Add":" i8 83,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 83,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 84,"},{"Add":" i8 78,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 83,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 83,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 83,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 0,"},{"Add":" i8 78"},{"Add":"]"},{"Add":""},{"Add":"define i64 @Snx(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let X (cdr Exe) (if (nil? (evSym X)) @ (let (P (push 0 (xName Ex..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (if (nil? (evSym X)) @ (let (P (push 0 (xName Exe @) NIL) C (symC..."},{"Add":"; # (evSym X)"},{"Add":" %4 = call i64 @evSym(i64 %3)"},{"Add":"; # (nil? (evSym X))"},{"Add":" %5 = icmp eq i64 %4, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %5, label %$2, label %$3"},{"Add":"$2:"},{"Add":" %6 = phi i64 [%3, %$1] ; # X"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":" %7 = phi i64 [%3, %$1] ; # X"},{"Add":"; # (let (P (push 0 (xName Exe @) NIL) C (symChar P)) (while (> SNXBA..."},{"Add":"; # (xName Exe @)"},{"Add":" %8 = call i64 @xName(i64 %0, i64 %4)"},{"Add":"; # (push 0 (xName Exe @) NIL)"},{"Add":" %9 = alloca i64, i64 3, align 16"},{"Add":" store i64 0, i64* %9"},{"Add":" %10 = getelementptr i64, i64* %9, i32 1"},{"Add":" store i64 %8, i64* %10"},{"Add":"; # (symChar P)"},{"Add":" %11 = call i32 @symChar(i64* %9)"},{"Add":"; # (while (> SNXBASE C) (unless (setq C (symChar P)) (ret $Nil)))"},{"Add":" br label %$5"},{"Add":"$5:"},{"Add":" %12 = phi i64 [%7, %$3], [%21, %$9] ; # X"},{"Add":" %13 = phi i32 [%11, %$3], [%22, %$9] ; # C"},{"Add":"; # (> SNXBASE C)"},{"Add":" %14 = icmp sgt i32 48, %13"},{"Add":" br i1 %14, label %$6, label %$7"},{"Add":"$6:"},{"Add":" %15 = phi i64 [%12, %$5] ; # X"},{"Add":" %16 = phi i32 [%13, %$5] ; # C"},{"Add":"; # (unless (setq C (symChar P)) (ret $Nil))"},{"Add":"; # (symChar P)"},{"Add":" %17 = call i32 @symChar(i64* %9)"},{"Add":" %18 = icmp ne i32 %17, 0"},{"Add":" br i1 %18, label %$9, label %$8"},{"Add":"$8:"},{"Add":" %19 = phi i64 [%15, %$6] ; # X"},{"Add":" %20 = phi i32 [%17, %$6] ; # C"},{"Add":"; # (ret $Nil)"},{"Add":" ret i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":"$9:"},{"Add":" %21 = phi i64 [%15, %$6] ; # X"},{"Add":" %22 = phi i32 [%17, %$6] ; # C"},{"Add":" br label %$5"},{"Add":"$7:"},{"Add":" %23 = phi i64 [%12, %$5] ; # X"},{"Add":" %24 = phi i32 [%13, %$5] ; # C"},{"Add":"; # (let (Q (link (ofs P 1) T) R (push 4 NIL ZERO NIL) N (if (pair (s..."},{"Add":"; # (ofs P 1)"},{"Add":" %25 = getelementptr i64, i64* %9, i32 1"},{"Add":"; # (link (ofs P 1) T)"},{"Add":" %26 = ptrtoint i64* %25 to i64"},{"Add":" %27 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %28 = load i64, i64* %27"},{"Add":" %29 = inttoptr i64 %26 to i64*"},{"Add":" %30 = getelementptr i64, i64* %29, i32 1"},{"Add":" store i64 %28, i64* %30"},{"Add":" %31 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %26, i64* %31"},{"Add":"; # (push 4 NIL ZERO NIL)"},{"Add":" %32 = alloca i64, i64 4, align 16"},{"Add":" store i64 4, i64* %32"},{"Add":" %33 = getelementptr i64, i64* %32, i32 2"},{"Add":" store i64 2, i64* %33"},{"Add":"; # (if (pair (shift X)) (evCnt Exe X) 24)"},{"Add":"; # (shift X)"},{"Add":" %34 = inttoptr i64 %23 to i64*"},{"Add":" %35 = getelementptr i64, i64* %34, i32 1"},{"Add":" %36 = load i64, i64* %35"},{"Add":"; # (pair (shift X))"},{"Add":" %37 = and i64 %36, 15"},{"Add":" %38 = icmp eq i64 %37, 0"},{"Add":" br i1 %38, label %$10, label %$11"},{"Add":"$10:"},{"Add":" %39 = phi i64 [%36, %$7] ; # X"},{"Add":" %40 = phi i32 [%24, %$7] ; # C"},{"Add":"; # (evCnt Exe X)"},{"Add":" %41 = call i64 @evCnt(i64 %0, i64 %39)"},{"Add":" br label %$12"},{"Add":"$11:"},{"Add":" %42 = phi i64 [%36, %$7] ; # X"},{"Add":" %43 = phi i32 [%24, %$7] ; # C"},{"Add":" br label %$12"},{"Add":"$12:"},{"Add":" %44 = phi i64 [%39, %$10], [%42, %$11] ; # X"},{"Add":" %45 = phi i32 [%40, %$10], [%43, %$11] ; # C"},{"Add":" %46 = phi i64 [%41, %$10], [24, %$11] ; # ->"},{"Add":"; # (ofs R 2)"},{"Add":" %47 = getelementptr i64, i64* %32, i32 2"},{"Add":"; # (link (ofs R 2))"},{"Add":" %48 = ptrtoint i64* %47 to i64"},{"Add":" %49 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %50 = load i64, i64* %49"},{"Add":" %51 = inttoptr i64 %48 to i64*"},{"Add":" %52 = getelementptr i64, i64* %51, i32 1"},{"Add":" store i64 %50, i64* %52"},{"Add":" %53 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %48, i64* %53"},{"Add":"; # (when (or (and (>= C (char \"a\")) (>= (char \"z\") C)) (== C 128) (a..."},{"Add":"; # (or (and (>= C (char \"a\")) (>= (char \"z\") C)) (== C 128) (and (>=..."},{"Add":"; # (and (>= C (char \"a\")) (>= (char \"z\") C))"},{"Add":"; # (>= C (char \"a\"))"},{"Add":" %54 = icmp sge i32 %45, 97"},{"Add":" br i1 %54, label %$15, label %$14"},{"Add":"$15:"},{"Add":" %55 = phi i64 [%44, %$12] ; # X"},{"Add":" %56 = phi i32 [%45, %$12] ; # C"},{"Add":" %57 = phi i64 [%46, %$12] ; # N"},{"Add":"; # (>= (char \"z\") C)"},{"Add":" %58 = icmp sge i32 122, %56"},{"Add":" br label %$14"},{"Add":"$14:"},{"Add":" %59 = phi i64 [%44, %$12], [%55, %$15] ; # X"},{"Add":" %60 = phi i32 [%45, %$12], [%56, %$15] ; # C"},{"Add":" %61 = phi i64 [%46, %$12], [%57, %$15] ; # N"},{"Add":" %62 = phi i1 [0, %$12], [%58, %$15] ; # ->"},{"Add":" br i1 %62, label %$13, label %$16"},{"Add":"$16:"},{"Add":" %63 = phi i64 [%59, %$14] ; # X"},{"Add":" %64 = phi i32 [%60, %$14] ; # C"},{"Add":" %65 = phi i64 [%61, %$14] ; # N"},{"Add":"; # (== C 128)"},{"Add":" %66 = icmp eq i32 %64, 128"},{"Add":" br i1 %66, label %$13, label %$17"},{"Add":"$17:"},{"Add":" %67 = phi i64 [%63, %$16] ; # X"},{"Add":" %68 = phi i32 [%64, %$16] ; # C"},{"Add":" %69 = phi i64 [%65, %$16] ; # N"},{"Add":"; # (and (>= C 224) (>= 255 C))"},{"Add":"; # (>= C 224)"},{"Add":" %70 = icmp sge i32 %68, 224"},{"Add":" br i1 %70, label %$19, label %$18"},{"Add":"$19:"},{"Add":" %71 = phi i64 [%67, %$17] ; # X"},{"Add":" %72 = phi i32 [%68, %$17] ; # C"},{"Add":" %73 = phi i64 [%69, %$17] ; # N"},{"Add":"; # (>= 255 C)"},{"Add":" %74 = icmp sge i32 255, %72"},{"Add":" br label %$18"},{"Add":"$18:"},{"Add":" %75 = phi i64 [%67, %$17], [%71, %$19] ; # X"},{"Add":" %76 = phi i32 [%68, %$17], [%72, %$19] ; # C"},{"Add":" %77 = phi i64 [%69, %$17], [%73, %$19] ; # N"},{"Add":" %78 = phi i1 [0, %$17], [%74, %$19] ; # ->"},{"Add":" br label %$13"},{"Add":"$13:"},{"Add":" %79 = phi i64 [%59, %$14], [%63, %$16], [%75, %$18] ; # X"},{"Add":" %80 = phi i32 [%60, %$14], [%64, %$16], [%76, %$18] ; # C"},{"Add":" %81 = phi i64 [%61, %$14], [%65, %$16], [%77, %$18] ; # N"},{"Add":" %82 = phi i1 [1, %$14], [1, %$16], [%78, %$18] ; # ->"},{"Add":" br i1 %82, label %$20, label %$21"},{"Add":"$20:"},{"Add":" %83 = phi i64 [%79, %$13] ; # X"},{"Add":" %84 = phi i32 [%80, %$13] ; # C"},{"Add":" %85 = phi i64 [%81, %$13] ; # N"},{"Add":"; # (& C -33)"},{"Add":" %86 = and i32 %84, -33"},{"Add":" br label %$21"},{"Add":"$21:"},{"Add":" %87 = phi i64 [%79, %$13], [%83, %$20] ; # X"},{"Add":" %88 = phi i32 [%80, %$13], [%86, %$20] ; # C"},{"Add":" %89 = phi i64 [%81, %$13], [%85, %$20] ; # N"},{"Add":"; # (charSym C R)"},{"Add":" call void @charSym(i32 %88, i64* %32)"},{"Add":"; # (let Last C (loop (? (=0 (setq C (symChar P)))) (when (> C 32) (c..."},{"Add":"; # (loop (? (=0 (setq C (symChar P)))) (when (> C 32) (cond ((or (lt..."},{"Add":" br label %$22"},{"Add":"$22:"},{"Add":" %90 = phi i64 [%87, %$21], [%152, %$26] ; # X"},{"Add":" %91 = phi i32 [%88, %$21], [%153, %$26] ; # C"},{"Add":" %92 = phi i64 [%89, %$21], [%154, %$26] ; # N"},{"Add":" %93 = phi i32 [%88, %$21], [%155, %$26] ; # Last"},{"Add":"; # (? (=0 (setq C (symChar P))))"},{"Add":"; # (symChar P)"},{"Add":" %94 = call i32 @symChar(i64* %9)"},{"Add":"; # (=0 (setq C (symChar P)))"},{"Add":" %95 = icmp eq i32 %94, 0"},{"Add":" br i1 %95, label %$24, label %$23"},{"Add":"$23:"},{"Add":" %96 = phi i64 [%90, %$22] ; # X"},{"Add":" %97 = phi i32 [%94, %$22] ; # C"},{"Add":" %98 = phi i64 [%92, %$22] ; # N"},{"Add":" %99 = phi i32 [%93, %$22] ; # Last"},{"Add":"; # (when (> C 32) (cond ((or (lt0 (dec 'C SNXBASE)) (>= C SNXSIZE) (..."},{"Add":"; # (> C 32)"},{"Add":" %100 = icmp sgt i32 %97, 32"},{"Add":" br i1 %100, label %$25, label %$26"},{"Add":"$25:"},{"Add":" %101 = phi i64 [%96, %$23] ; # X"},{"Add":" %102 = phi i32 [%97, %$23] ; # C"},{"Add":" %103 = phi i64 [%98, %$23] ; # N"},{"Add":" %104 = phi i32 [%99, %$23] ; # Last"},{"Add":"; # (cond ((or (lt0 (dec 'C SNXBASE)) (>= C SNXSIZE) (=0 (setq C (i32..."},{"Add":"; # (or (lt0 (dec 'C SNXBASE)) (>= C SNXSIZE) (=0 (setq C (i32 (val (..."},{"Add":"; # (dec 'C SNXBASE)"},{"Add":" %105 = sub i32 %102, 48"},{"Add":"; # (lt0 (dec 'C SNXBASE))"},{"Add":" %106 = icmp slt i32 %105, 0"},{"Add":" br i1 %106, label %$28, label %$29"},{"Add":"$29:"},{"Add":" %107 = phi i64 [%101, %$25] ; # X"},{"Add":" %108 = phi i32 [%105, %$25] ; # C"},{"Add":" %109 = phi i64 [%103, %$25] ; # N"},{"Add":" %110 = phi i32 [%104, %$25] ; # Last"},{"Add":"; # (>= C SNXSIZE)"},{"Add":" %111 = icmp sge i32 %108, 194"},{"Add":" br i1 %111, label %$28, label %$30"},{"Add":"$30:"},{"Add":" %112 = phi i64 [%107, %$29] ; # X"},{"Add":" %113 = phi i32 [%108, %$29] ; # C"},{"Add":" %114 = phi i64 [%109, %$29] ; # N"},{"Add":" %115 = phi i32 [%110, %$29] ; # Last"},{"Add":"; # (ofs $SnxTab C)"},{"Add":" %116 = getelementptr i8, i8* bitcast ([194 x i8]* @$SnxTab to i8*), i32 %113"},{"Add":"; # (val (ofs $SnxTab C))"},{"Add":" %117 = load i8, i8* %116"},{"Add":"; # (i32 (val (ofs $SnxTab C)))"},{"Add":" %118 = zext i8 %117 to i32"},{"Add":"; # (=0 (setq C (i32 (val (ofs $SnxTab C)))))"},{"Add":" %119 = icmp eq i32 %118, 0"},{"Add":" br label %$28"},{"Add":"$28:"},{"Add":" %120 = phi i64 [%101, %$25], [%107, %$29], [%112, %$30] ; # X"},{"Add":" %121 = phi i32 [%105, %$25], [%108, %$29], [%118, %$30] ; # C"},{"Add":" %122 = phi i64 [%103, %$25], [%109, %$29], [%114, %$30] ; # N"},{"Add":" %123 = phi i32 [%104, %$25], [%110, %$29], [%115, %$30] ; # Last"},{"Add":" %124 = phi i1 [1, %$25], [1, %$29], [%119, %$30] ; # ->"},{"Add":" br i1 %124, label %$32, label %$31"},{"Add":"$32:"},{"Add":" %125 = phi i64 [%120, %$28] ; # X"},{"Add":" %126 = phi i32 [%121, %$28] ; # C"},{"Add":" %127 = phi i64 [%122, %$28] ; # N"},{"Add":" %128 = phi i32 [%123, %$28] ; # Last"},{"Add":" br label %$27"},{"Add":"$31:"},{"Add":" %129 = phi i64 [%120, %$28] ; # X"},{"Add":" %130 = phi i32 [%121, %$28] ; # C"},{"Add":" %131 = phi i64 [%122, %$28] ; # N"},{"Add":" %132 = phi i32 [%123, %$28] ; # Last"},{"Add":"; # (<> C Last)"},{"Add":" %133 = icmp ne i32 %130, %132"},{"Add":" br i1 %133, label %$34, label %$33"},{"Add":"$34:"},{"Add":" %134 = phi i64 [%129, %$31] ; # X"},{"Add":" %135 = phi i32 [%130, %$31] ; # C"},{"Add":" %136 = phi i64 [%131, %$31] ; # N"},{"Add":" %137 = phi i32 [%132, %$31] ; # Last"},{"Add":"; # (? (=0 (dec 'N)))"},{"Add":"; # (dec 'N)"},{"Add":" %138 = sub i64 %136, 1"},{"Add":"; # (=0 (dec 'N))"},{"Add":" %139 = icmp eq i64 %138, 0"},{"Add":" br i1 %139, label %$24, label %$35"},{"Add":"$35:"},{"Add":" %140 = phi i64 [%134, %$34] ; # X"},{"Add":" %141 = phi i32 [%135, %$34] ; # C"},{"Add":" %142 = phi i64 [%138, %$34] ; # N"},{"Add":" %143 = phi i32 [%137, %$34] ; # Last"},{"Add":"; # (charSym (setq Last C) R)"},{"Add":" call void @charSym(i32 %141, i64* %32)"},{"Add":" br label %$27"},{"Add":"$33:"},{"Add":" %144 = phi i64 [%129, %$31] ; # X"},{"Add":" %145 = phi i32 [%130, %$31] ; # C"},{"Add":" %146 = phi i64 [%131, %$31] ; # N"},{"Add":" %147 = phi i32 [%132, %$31] ; # Last"},{"Add":" br label %$27"},{"Add":"$27:"},{"Add":" %148 = phi i64 [%125, %$32], [%140, %$35], [%144, %$33] ; # X"},{"Add":" %149 = phi i32 [%126, %$32], [%141, %$35], [%145, %$33] ; # C"},{"Add":" %150 = phi i64 [%127, %$32], [%142, %$35], [%146, %$33] ; # N"},{"Add":" %151 = phi i32 [0, %$32], [%141, %$35], [%147, %$33] ; # Last"},{"Add":" br label %$26"},{"Add":"$26:"},{"Add":" %152 = phi i64 [%96, %$23], [%148, %$27] ; # X"},{"Add":" %153 = phi i32 [%97, %$23], [%149, %$27] ; # C"},{"Add":" %154 = phi i64 [%98, %$23], [%150, %$27] ; # N"},{"Add":" %155 = phi i32 [%99, %$23], [%151, %$27] ; # Last"},{"Add":" br label %$22"},{"Add":"$24:"},{"Add":" %156 = phi i64 [%90, %$22], [%134, %$34] ; # X"},{"Add":" %157 = phi i32 [%94, %$22], [%135, %$34] ; # C"},{"Add":" %158 = phi i64 [%92, %$22], [%138, %$34] ; # N"},{"Add":" %159 = phi i32 [%93, %$22], [%137, %$34] ; # Last"},{"Add":" %160 = phi i64 [0, %$22], [0, %$34] ; # ->"},{"Add":"; # (val 3 R)"},{"Add":" %161 = getelementptr i64, i64* %32, i32 2"},{"Add":" %162 = load i64, i64* %161"},{"Add":"; # (consStr (val 3 R))"},{"Add":" %163 = call i64 @consStr(i64 %162)"},{"Add":"; # (drop *Safe)"},{"Add":" %164 = inttoptr i64 %26 to i64*"},{"Add":" %165 = getelementptr i64, i64* %164, i32 1"},{"Add":" %166 = load i64, i64* %165"},{"Add":" %167 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %166, i64* %167"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %168 = phi i64 [%6, %$2], [%156, %$24] ; # X"},{"Add":" %169 = phi i64 [%4, %$2], [%163, %$24] ; # ->"},{"Add":" ret i64 %169"},{"Add":"}"},{"Add":""},{"Add":"define i64 @FD(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (prog1 (eval (cadr Exe)) (when (ge0 (i32 (xCnt Exe @))) (initInFi..."},{"Add":"; # (cadr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":"; # (eval (cadr Exe))"},{"Add":" %6 = and i64 %5, 6"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$4, label %$3"},{"Add":"$4:"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %8 = and i64 %5, 8"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br i1 %9, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %10 = inttoptr i64 %5 to i64*"},{"Add":" %11 = load i64, i64* %10"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":" %12 = call i64 @evList(i64 %5)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %13 = phi i64 [%5, %$4], [%11, %$6], [%12, %$5] ; # ->"},{"Add":"; # (when (ge0 (i32 (xCnt Exe @))) (initInFile @ null) (initOutFile @..."},{"Add":"; # (xCnt Exe @)"},{"Add":" %14 = call i64 @xCnt(i64 %0, i64 %13)"},{"Add":"; # (i32 (xCnt Exe @))"},{"Add":" %15 = trunc i64 %14 to i32"},{"Add":"; # (ge0 (i32 (xCnt Exe @)))"},{"Add":" %16 = icmp sge i32 %15, 0"},{"Add":" br i1 %16, label %$7, label %$8"},{"Add":"$7:"},{"Add":"; # (initInFile @ null)"},{"Add":" %17 = call i8* @initInFile(i32 %15, i8* null)"},{"Add":"; # (initOutFile @)"},{"Add":" %18 = call i8* @initOutFile(i32 %15)"},{"Add":" br label %$8"},{"Add":"$8:"},{"Add":" ret i64 %13"},{"Add":"}"},{"Add":"@$Chr64 = constant [65 x i8] c\"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/\\00\""},{"Add":"@$Stat64 = global i32 0"},{"Add":"@$Next64 = global i32 0"},{"Add":""},{"Add":"define i64 @Base64(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let X (cdr Exe) (cond ((atom X) (let C (val $Chr) (while (and (g..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (cond ((atom X) (let C (val $Chr) (while (and (ge0 C) (>= (char \"..."},{"Add":"; # (atom X)"},{"Add":" %4 = and i64 %3, 15"},{"Add":" %5 = icmp ne i64 %4, 0"},{"Add":" br i1 %5, label %$4, label %$3"},{"Add":"$4:"},{"Add":" %6 = phi i64 [%3, %$1] ; # X"},{"Add":"; # (let C (val $Chr) (while (and (ge0 C) (>= (char \" \") C)) (setq C ..."},{"Add":"; # (val $Chr)"},{"Add":" %7 = load i32, i32* bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 64) to i32*)"},{"Add":"; # (while (and (ge0 C) (>= (char \" \") C)) (setq C (call $Get)))"},{"Add":" br label %$5"},{"Add":"$5:"},{"Add":" %8 = phi i64 [%6, %$4], [%17, %$8] ; # X"},{"Add":" %9 = phi i32 [%7, %$4], [%20, %$8] ; # C"},{"Add":"; # (and (ge0 C) (>= (char \" \") C))"},{"Add":"; # (ge0 C)"},{"Add":" %10 = icmp sge i32 %9, 0"},{"Add":" br i1 %10, label %$7, label %$6"},{"Add":"$7:"},{"Add":" %11 = phi i64 [%8, %$5] ; # X"},{"Add":" %12 = phi i32 [%9, %$5] ; # C"},{"Add":"; # (>= (char \" \") C)"},{"Add":" %13 = icmp sge i32 32, %12"},{"Add":" br label %$6"},{"Add":"$6:"},{"Add":" %14 = phi i64 [%8, %$5], [%11, %$7] ; # X"},{"Add":" %15 = phi i32 [%9, %$5], [%12, %$7] ; # C"},{"Add":" %16 = phi i1 [0, %$5], [%13, %$7] ; # ->"},{"Add":" br i1 %16, label %$8, label %$9"},{"Add":"$8:"},{"Add":" %17 = phi i64 [%14, %$6] ; # X"},{"Add":" %18 = phi i32 [%15, %$6] ; # C"},{"Add":"; # (call $Get)"},{"Add":" %19 = load i32()*, i32()** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 96) to i32()**)"},{"Add":" %20 = call i32 %19()"},{"Add":" br label %$5"},{"Add":"$9:"},{"Add":" %21 = phi i64 [%14, %$6] ; # X"},{"Add":" %22 = phi i32 [%15, %$6] ; # C"},{"Add":"; # (if (strchr $Chr64 C) (let N (i32 (- @ $Chr64)) (setq C (call $Ge..."},{"Add":"; # (strchr $Chr64 C)"},{"Add":" %23 = call i8* @strchr(i8* bitcast ([65 x i8]* @$Chr64 to i8*), i32 %22)"},{"Add":" %24 = icmp ne i8* %23, null"},{"Add":" br i1 %24, label %$10, label %$11"},{"Add":"$10:"},{"Add":" %25 = phi i64 [%21, %$9] ; # X"},{"Add":" %26 = phi i32 [%22, %$9] ; # C"},{"Add":"; # (let N (i32 (- @ $Chr64)) (setq C (call $Get)) (case (val $Stat64..."},{"Add":"; # (- @ $Chr64)"},{"Add":" %27 = ptrtoint i8* %23 to i64"},{"Add":" %28 = ptrtoint i8* bitcast ([65 x i8]* @$Chr64 to i8*) to i64"},{"Add":" %29 = sub i64 %27, %28"},{"Add":"; # (i32 (- @ $Chr64))"},{"Add":" %30 = trunc i64 %29 to i32"},{"Add":"; # (call $Get)"},{"Add":" %31 = load i32()*, i32()** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 96) to i32()**)"},{"Add":" %32 = call i32 %31()"},{"Add":"; # (case (val $Stat64) (0 (unless (strchr $Chr64 C) (set $Stat64 0) ..."},{"Add":"; # (val $Stat64)"},{"Add":" %33 = load i32, i32* @$Stat64"},{"Add":" switch i32 %33, label %$13 ["},{"Add":" i32 0, label %$15"},{"Add":" i32 1, label %$16"},{"Add":" ]"},{"Add":"$15:"},{"Add":" %34 = phi i64 [%25, %$10] ; # X"},{"Add":" %35 = phi i32 [%32, %$10] ; # C"},{"Add":"; # (unless (strchr $Chr64 C) (set $Stat64 0) (ret $Nil))"},{"Add":"; # (strchr $Chr64 C)"},{"Add":" %36 = call i8* @strchr(i8* bitcast ([65 x i8]* @$Chr64 to i8*), i32 %35)"},{"Add":" %37 = icmp ne i8* %36, null"},{"Add":" br i1 %37, label %$18, label %$17"},{"Add":"$17:"},{"Add":" %38 = phi i64 [%34, %$15] ; # X"},{"Add":" %39 = phi i32 [%35, %$15] ; # C"},{"Add":"; # (set $Stat64 0)"},{"Add":" store i32 0, i32* @$Stat64"},{"Add":"; # (ret $Nil)"},{"Add":" ret i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":"$18:"},{"Add":" %40 = phi i64 [%34, %$15] ; # X"},{"Add":" %41 = phi i32 [%35, %$15] ; # C"},{"Add":"; # (set $Next64 (i32 (- @ $Chr64)))"},{"Add":"; # (- @ $Chr64)"},{"Add":" %42 = ptrtoint i8* %36 to i64"},{"Add":" %43 = ptrtoint i8* bitcast ([65 x i8]* @$Chr64 to i8*) to i64"},{"Add":" %44 = sub i64 %42, %43"},{"Add":"; # (i32 (- @ $Chr64))"},{"Add":" %45 = trunc i64 %44 to i32"},{"Add":" store i32 %45, i32* @$Next64"},{"Add":"; # (call $Get)"},{"Add":" %46 = load i32()*, i32()** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 96) to i32()**)"},{"Add":" %47 = call i32 %46()"},{"Add":"; # (set $Stat64 (inc (val $Stat64)))"},{"Add":"; # (val $Stat64)"},{"Add":" %48 = load i32, i32* @$Stat64"},{"Add":"; # (inc (val $Stat64))"},{"Add":" %49 = add i32 %48, 1"},{"Add":" store i32 %49, i32* @$Stat64"},{"Add":"; # (shl N 2)"},{"Add":" %50 = shl i32 %30, 2"},{"Add":"; # (val $Next64)"},{"Add":" %51 = load i32, i32* @$Next64"},{"Add":"; # (shr (val $Next64) 4)"},{"Add":" %52 = lshr i32 %51, 4"},{"Add":"; # (| (shl N 2) (shr (val $Next64) 4))"},{"Add":" %53 = or i32 %50, %52"},{"Add":"; # (i64 (| (shl N 2) (shr (val $Next64) 4)))"},{"Add":" %54 = sext i32 %53 to i64"},{"Add":"; # (cnt (i64 (| (shl N 2) (shr (val $Next64) 4))))"},{"Add":" %55 = shl i64 %54, 4"},{"Add":" %56 = or i64 %55, 2"},{"Add":" br label %$14"},{"Add":"$16:"},{"Add":" %57 = phi i64 [%25, %$10] ; # X"},{"Add":" %58 = phi i32 [%32, %$10] ; # C"},{"Add":"; # (prog1 (cnt (i64 (| (shl (& (val $Next64) 15) 4) (shr N 2)))) (se..."},{"Add":"; # (val $Next64)"},{"Add":" %59 = load i32, i32* @$Next64"},{"Add":"; # (& (val $Next64) 15)"},{"Add":" %60 = and i32 %59, 15"},{"Add":"; # (shl (& (val $Next64) 15) 4)"},{"Add":" %61 = shl i32 %60, 4"},{"Add":"; # (shr N 2)"},{"Add":" %62 = lshr i32 %30, 2"},{"Add":"; # (| (shl (& (val $Next64) 15) 4) (shr N 2))"},{"Add":" %63 = or i32 %61, %62"},{"Add":"; # (i64 (| (shl (& (val $Next64) 15) 4) (shr N 2)))"},{"Add":" %64 = sext i32 %63 to i64"},{"Add":"; # (cnt (i64 (| (shl (& (val $Next64) 15) 4) (shr N 2))))"},{"Add":" %65 = shl i64 %64, 4"},{"Add":" %66 = or i64 %65, 2"},{"Add":"; # (set $Next64 N $Stat64 (inc (val $Stat64)))"},{"Add":" store i32 %30, i32* @$Next64"},{"Add":"; # (val $Stat64)"},{"Add":" %67 = load i32, i32* @$Stat64"},{"Add":"; # (inc (val $Stat64))"},{"Add":" %68 = add i32 %67, 1"},{"Add":" store i32 %68, i32* @$Stat64"},{"Add":" br label %$14"},{"Add":"$13:"},{"Add":" %69 = phi i64 [%25, %$10] ; # X"},{"Add":" %70 = phi i32 [%32, %$10] ; # C"},{"Add":"; # (set $Stat64 0)"},{"Add":" store i32 0, i32* @$Stat64"},{"Add":"; # (val $Next64)"},{"Add":" %71 = load i32, i32* @$Next64"},{"Add":"; # (& (val $Next64) 3)"},{"Add":" %72 = and i32 %71, 3"},{"Add":"; # (shl (& (val $Next64) 3) 6)"},{"Add":" %73 = shl i32 %72, 6"},{"Add":"; # (| (shl (& (val $Next64) 3) 6) N)"},{"Add":" %74 = or i32 %73, %30"},{"Add":"; # (i64 (| (shl (& (val $Next64) 3) 6) N))"},{"Add":" %75 = sext i32 %74 to i64"},{"Add":"; # (cnt (i64 (| (shl (& (val $Next64) 3) 6) N)))"},{"Add":" %76 = shl i64 %75, 4"},{"Add":" %77 = or i64 %76, 2"},{"Add":" br label %$14"},{"Add":"$14:"},{"Add":" %78 = phi i64 [%40, %$18], [%57, %$16], [%69, %$13] ; # X"},{"Add":" %79 = phi i32 [%41, %$18], [%58, %$16], [%70, %$13] ; # C"},{"Add":" %80 = phi i64 [%56, %$18], [%66, %$16], [%77, %$13] ; # ->"},{"Add":" br label %$12"},{"Add":"$11:"},{"Add":" %81 = phi i64 [%21, %$9] ; # X"},{"Add":" %82 = phi i32 [%22, %$9] ; # C"},{"Add":"; # (when (== C (char \"=\")) (call $Get) (when (== (val $Stat64) 1) (c..."},{"Add":"; # (== C (char \"=\"))"},{"Add":" %83 = icmp eq i32 %82, 61"},{"Add":" br i1 %83, label %$19, label %$20"},{"Add":"$19:"},{"Add":" %84 = phi i64 [%81, %$11] ; # X"},{"Add":" %85 = phi i32 [%82, %$11] ; # C"},{"Add":"; # (call $Get)"},{"Add":" %86 = load i32()*, i32()** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 96) to i32()**)"},{"Add":" %87 = call i32 %86()"},{"Add":"; # (when (== (val $Stat64) 1) (call $Get))"},{"Add":"; # (val $Stat64)"},{"Add":" %88 = load i32, i32* @$Stat64"},{"Add":"; # (== (val $Stat64) 1)"},{"Add":" %89 = icmp eq i32 %88, 1"},{"Add":" br i1 %89, label %$21, label %$22"},{"Add":"$21:"},{"Add":" %90 = phi i64 [%84, %$19] ; # X"},{"Add":" %91 = phi i32 [%85, %$19] ; # C"},{"Add":"; # (call $Get)"},{"Add":" %92 = load i32()*, i32()** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 96) to i32()**)"},{"Add":" %93 = call i32 %92()"},{"Add":" br label %$22"},{"Add":"$22:"},{"Add":" %94 = phi i64 [%84, %$19], [%90, %$21] ; # X"},{"Add":" %95 = phi i32 [%85, %$19], [%91, %$21] ; # C"},{"Add":" br label %$20"},{"Add":"$20:"},{"Add":" %96 = phi i64 [%81, %$11], [%94, %$22] ; # X"},{"Add":" %97 = phi i32 [%82, %$11], [%95, %$22] ; # C"},{"Add":"; # (set $Stat64 0)"},{"Add":" store i32 0, i32* @$Stat64"},{"Add":" br label %$12"},{"Add":"$12:"},{"Add":" %98 = phi i64 [%78, %$14], [%96, %$20] ; # X"},{"Add":" %99 = phi i32 [%79, %$14], [%97, %$20] ; # C"},{"Add":" %100 = phi i64 [%80, %$14], [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), %$20] ; # ->"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %101 = phi i64 [%3, %$1] ; # X"},{"Add":"; # (car X)"},{"Add":" %102 = inttoptr i64 %101 to i64*"},{"Add":" %103 = load i64, i64* %102"},{"Add":"; # (eval (car X))"},{"Add":" %104 = and i64 %103, 6"},{"Add":" %105 = icmp ne i64 %104, 0"},{"Add":" br i1 %105, label %$25, label %$24"},{"Add":"$25:"},{"Add":" br label %$23"},{"Add":"$24:"},{"Add":" %106 = and i64 %103, 8"},{"Add":" %107 = icmp ne i64 %106, 0"},{"Add":" br i1 %107, label %$27, label %$26"},{"Add":"$27:"},{"Add":" %108 = inttoptr i64 %103 to i64*"},{"Add":" %109 = load i64, i64* %108"},{"Add":" br label %$23"},{"Add":"$26:"},{"Add":" %110 = call i64 @evList(i64 %103)"},{"Add":" br label %$23"},{"Add":"$23:"},{"Add":" %111 = phi i64 [%103, %$25], [%109, %$27], [%110, %$26] ; # ->"},{"Add":"; # (nil? (eval (car X)))"},{"Add":" %112 = icmp eq i64 %111, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %112, label %$29, label %$28"},{"Add":"$29:"},{"Add":" %113 = phi i64 [%101, %$23] ; # X"},{"Add":" br label %$2"},{"Add":"$28:"},{"Add":" %114 = phi i64 [%101, %$23] ; # X"},{"Add":"; # (let N (xCnt Exe @) (call $Put (val (ofs $Chr64 (shr N 2)))) (whe..."},{"Add":"; # (xCnt Exe @)"},{"Add":" %115 = call i64 @xCnt(i64 %0, i64 %111)"},{"Add":"; # (shr N 2)"},{"Add":" %116 = lshr i64 %115, 2"},{"Add":"; # (ofs $Chr64 (shr N 2))"},{"Add":" %117 = getelementptr i8, i8* bitcast ([65 x i8]* @$Chr64 to i8*), i64 %116"},{"Add":"; # (val (ofs $Chr64 (shr N 2)))"},{"Add":" %118 = load i8, i8* %117"},{"Add":"; # (call $Put (val (ofs $Chr64 (shr N 2))))"},{"Add":" %119 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %119(i8 %118)"},{"Add":"; # (when (nil? (eval (car (shift X)))) (call $Put (val (ofs $Chr64 (..."},{"Add":"; # (shift X)"},{"Add":" %120 = inttoptr i64 %114 to i64*"},{"Add":" %121 = getelementptr i64, i64* %120, i32 1"},{"Add":" %122 = load i64, i64* %121"},{"Add":"; # (car (shift X))"},{"Add":" %123 = inttoptr i64 %122 to i64*"},{"Add":" %124 = load i64, i64* %123"},{"Add":"; # (eval (car (shift X)))"},{"Add":" %125 = and i64 %124, 6"},{"Add":" %126 = icmp ne i64 %125, 0"},{"Add":" br i1 %126, label %$32, label %$31"},{"Add":"$32:"},{"Add":" br label %$30"},{"Add":"$31:"},{"Add":" %127 = and i64 %124, 8"},{"Add":" %128 = icmp ne i64 %127, 0"},{"Add":" br i1 %128, label %$34, label %$33"},{"Add":"$34:"},{"Add":" %129 = inttoptr i64 %124 to i64*"},{"Add":" %130 = load i64, i64* %129"},{"Add":" br label %$30"},{"Add":"$33:"},{"Add":" %131 = call i64 @evList(i64 %124)"},{"Add":" br label %$30"},{"Add":"$30:"},{"Add":" %132 = phi i64 [%124, %$32], [%130, %$34], [%131, %$33] ; # ->"},{"Add":"; # (nil? (eval (car (shift X))))"},{"Add":" %133 = icmp eq i64 %132, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %133, label %$35, label %$36"},{"Add":"$35:"},{"Add":" %134 = phi i64 [%122, %$30] ; # X"},{"Add":" %135 = phi i64 [%115, %$30] ; # N"},{"Add":"; # (& N 3)"},{"Add":" %136 = and i64 %135, 3"},{"Add":"; # (shl (& N 3) 4)"},{"Add":" %137 = shl i64 %136, 4"},{"Add":"; # (ofs $Chr64 (shl (& N 3) 4))"},{"Add":" %138 = getelementptr i8, i8* bitcast ([65 x i8]* @$Chr64 to i8*), i64 %137"},{"Add":"; # (val (ofs $Chr64 (shl (& N 3) 4)))"},{"Add":" %139 = load i8, i8* %138"},{"Add":"; # (call $Put (val (ofs $Chr64 (shl (& N 3) 4))))"},{"Add":" %140 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %140(i8 %139)"},{"Add":"; # (call $Put (char \"=\"))"},{"Add":" %141 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %141(i8 61)"},{"Add":"; # (call $Put (char \"=\"))"},{"Add":" %142 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %142(i8 61)"},{"Add":"; # (ret $Nil)"},{"Add":" ret i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":"$36:"},{"Add":" %143 = phi i64 [%122, %$30] ; # X"},{"Add":" %144 = phi i64 [%115, %$30] ; # N"},{"Add":"; # (let M (xCnt Exe @) (call $Put (val (ofs $Chr64 (| (shl (& N 3) 4..."},{"Add":"; # (xCnt Exe @)"},{"Add":" %145 = call i64 @xCnt(i64 %0, i64 %132)"},{"Add":"; # (& N 3)"},{"Add":" %146 = and i64 %144, 3"},{"Add":"; # (shl (& N 3) 4)"},{"Add":" %147 = shl i64 %146, 4"},{"Add":"; # (shr M 4)"},{"Add":" %148 = lshr i64 %145, 4"},{"Add":"; # (| (shl (& N 3) 4) (shr M 4))"},{"Add":" %149 = or i64 %147, %148"},{"Add":"; # (ofs $Chr64 (| (shl (& N 3) 4) (shr M 4)))"},{"Add":" %150 = getelementptr i8, i8* bitcast ([65 x i8]* @$Chr64 to i8*), i64 %149"},{"Add":"; # (val (ofs $Chr64 (| (shl (& N 3) 4) (shr M 4))))"},{"Add":" %151 = load i8, i8* %150"},{"Add":"; # (call $Put (val (ofs $Chr64 (| (shl (& N 3) 4) (shr M 4)))))"},{"Add":" %152 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %152(i8 %151)"},{"Add":"; # (when (nil? (eval (cadr X))) (call $Put (val (ofs $Chr64 (shl (& ..."},{"Add":"; # (cadr X)"},{"Add":" %153 = inttoptr i64 %143 to i64*"},{"Add":" %154 = getelementptr i64, i64* %153, i32 1"},{"Add":" %155 = load i64, i64* %154"},{"Add":" %156 = inttoptr i64 %155 to i64*"},{"Add":" %157 = load i64, i64* %156"},{"Add":"; # (eval (cadr X))"},{"Add":" %158 = and i64 %157, 6"},{"Add":" %159 = icmp ne i64 %158, 0"},{"Add":" br i1 %159, label %$39, label %$38"},{"Add":"$39:"},{"Add":" br label %$37"},{"Add":"$38:"},{"Add":" %160 = and i64 %157, 8"},{"Add":" %161 = icmp ne i64 %160, 0"},{"Add":" br i1 %161, label %$41, label %$40"},{"Add":"$41:"},{"Add":" %162 = inttoptr i64 %157 to i64*"},{"Add":" %163 = load i64, i64* %162"},{"Add":" br label %$37"},{"Add":"$40:"},{"Add":" %164 = call i64 @evList(i64 %157)"},{"Add":" br label %$37"},{"Add":"$37:"},{"Add":" %165 = phi i64 [%157, %$39], [%163, %$41], [%164, %$40] ; # ->"},{"Add":"; # (nil? (eval (cadr X)))"},{"Add":" %166 = icmp eq i64 %165, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %166, label %$42, label %$43"},{"Add":"$42:"},{"Add":" %167 = phi i64 [%143, %$37] ; # X"},{"Add":" %168 = phi i64 [%144, %$37] ; # N"},{"Add":"; # (& M 15)"},{"Add":" %169 = and i64 %145, 15"},{"Add":"; # (shl (& M 15) 2)"},{"Add":" %170 = shl i64 %169, 2"},{"Add":"; # (ofs $Chr64 (shl (& M 15) 2))"},{"Add":" %171 = getelementptr i8, i8* bitcast ([65 x i8]* @$Chr64 to i8*), i64 %170"},{"Add":"; # (val (ofs $Chr64 (shl (& M 15) 2)))"},{"Add":" %172 = load i8, i8* %171"},{"Add":"; # (call $Put (val (ofs $Chr64 (shl (& M 15) 2))))"},{"Add":" %173 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %173(i8 %172)"},{"Add":"; # (call $Put (char \"=\"))"},{"Add":" %174 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %174(i8 61)"},{"Add":"; # (ret $Nil)"},{"Add":" ret i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":"$43:"},{"Add":" %175 = phi i64 [%143, %$37] ; # X"},{"Add":" %176 = phi i64 [%144, %$37] ; # N"},{"Add":"; # (xCnt Exe @)"},{"Add":" %177 = call i64 @xCnt(i64 %0, i64 %165)"},{"Add":"; # (& M 15)"},{"Add":" %178 = and i64 %145, 15"},{"Add":"; # (shl (& M 15) 2)"},{"Add":" %179 = shl i64 %178, 2"},{"Add":"; # (shr N 6)"},{"Add":" %180 = lshr i64 %177, 6"},{"Add":"; # (| (shl (& M 15) 2) (shr N 6))"},{"Add":" %181 = or i64 %179, %180"},{"Add":"; # (ofs $Chr64 (| (shl (& M 15) 2) (shr N 6)))"},{"Add":" %182 = getelementptr i8, i8* bitcast ([65 x i8]* @$Chr64 to i8*), i64 %181"},{"Add":"; # (val (ofs $Chr64 (| (shl (& M 15) 2) (shr N 6))))"},{"Add":" %183 = load i8, i8* %182"},{"Add":"; # (call $Put (val (ofs $Chr64 (| (shl (& M 15) 2) (shr N 6)))))"},{"Add":" %184 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %184(i8 %183)"},{"Add":"; # (& N 63)"},{"Add":" %185 = and i64 %177, 63"},{"Add":"; # (ofs $Chr64 (& N 63))"},{"Add":" %186 = getelementptr i8, i8* bitcast ([65 x i8]* @$Chr64 to i8*), i64 %185"},{"Add":"; # (val (ofs $Chr64 (& N 63)))"},{"Add":" %187 = load i8, i8* %186"},{"Add":"; # (call $Put (val (ofs $Chr64 (& N 63))))"},{"Add":" %188 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %188(i8 %187)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %189 = phi i64 [%98, %$12], [%113, %$29], [%175, %$43] ; # X"},{"Add":" %190 = phi i64 [%100, %$12], [%111, %$29], [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 280) to i64), %$43] ; # ->"},{"Add":" ret i64 %190"},{"Add":"}"},{"Add":""}]}},{"FileAdd":{"meta":{"basename":"ext.l","metadata":0},"context":[{"change":0,"pos":63931}],"contents":[{"Add":"# 10sep20 Software Lab. Alexander Burger"},{"Add":""},{"Add":"(symbols '(llvm))"},{"Add":""},{"Add":"(begin \"ext\" T"},{"Add":" \"vers.l\" \"defs.l\" \"glob.l\" \"dec.l\" )"},{"Add":""},{"Add":"(local) (SNXBASE SNXSIZE Snx FD)"},{"Add":""},{"Add":"# External declarations"},{"Add":"(local) (xCnt evCnt evSym xName symChar charSym initInFile initOutFile)"},{"Add":""},{"Add":"(de T i64 xCnt (any any))"},{"Add":"(de T i64 evCnt (any any))"},{"Add":"(de T evSym (any))"},{"Add":"(de T xName (any any))"},{"Add":"(de T i32 symChar (i64*))"},{"Add":"(de T void charSym (i32 i64*))"},{"Add":"(de T i8* initInFile (i32 i8*))"},{"Add":"(de T i8* initOutFile (i32))"},{"Add":""},{"Add":"# Soundex Algorithm"},{"Add":"(array $SnxTab i8"},{"Add":" (char \"0\") (char \"1\") (char \"2\") (char \"3\") (char \"4\") (char \"5\") (char \"6\") (char \"7\") # 48"},{"Add":" (char \"8\") (char \"9\") 0 0 0 0 0 0"},{"Add":" 0 0 (char \"F\") (char \"S\") (char \"T\") 0 (char \"F\") (char \"S\") # 64"},{"Add":" 0 0 (char \"S\") (char \"S\") (char \"L\") (char \"N\") (char \"N\") 0"},{"Add":" (char \"F\") (char \"S\") (char \"R\") (char \"S\") (char \"T\") 0 (char \"F\") (char \"F\")"},{"Add":" (char \"S\") 0 (char \"S\") 0 0 0 0 0"},{"Add":" 0 0 (char \"F\") (char \"S\") (char \"T\") 0 (char \"F\") (char \"S\") # 96"},{"Add":" 0 0 (char \"S\") (char \"S\") (char \"L\") (char \"N\") (char \"N\") 0"},{"Add":" (char \"F\") (char \"S\") (char \"R\") (char \"S\") (char \"T\") 0 (char \"F\") (char \"F\")"},{"Add":" (char \"S\") 0 (char \"S\") 0 0 0 0 0"},{"Add":" 0 0 0 0 0 0 0 0 # 128"},{"Add":" 0 0 0 0 0 0 0 0"},{"Add":" 0 0 0 0 0 0 0 0"},{"Add":" 0 0 0 0 0 0 0 0"},{"Add":" 0 0 0 0 0 0 0 0 # 160"},{"Add":" 0 0 0 0 0 0 0 0"},{"Add":" 0 0 0 0 0 0 0 0"},{"Add":" 0 0 0 0 0 0 0 0"},{"Add":" 0 0 0 0 0 0 0 (char \"S\") # 192"},{"Add":" 0 0 0 0 0 0 0 0"},{"Add":" (char \"T\") (char \"N\") 0 0 0 0 0 (char \"S\")"},{"Add":" 0 0 0 0 0 0 0 (char \"S\")"},{"Add":" 0 0 0 0 0 0 0 (char \"S\") # 224"},{"Add":" 0 0 0 0 0 0 0 0"},{"Add":" 0 (char \"N\") )"},{"Add":""},{"Add":"(setq"},{"Add":" SNXBASE 48"},{"Add":" SNXSIZE (+ (* 24 8) 2) )"},{"Add":""},{"Add":"# (ext:Snx 'any ['cnt]) -> sym"},{"Add":"(de Snx (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if (nil? (evSym X))"},{"Add":" @"},{"Add":" (let"},{"Add":" (P (push 0 (xName Exe @) NIL) # [cnt name link]"},{"Add":" C (symChar P) )"},{"Add":" (while (> SNXBASE C)"},{"Add":" (unless (setq C (symChar P))"},{"Add":" (ret $Nil) ) )"},{"Add":" (let"},{"Add":" (Q (link (ofs P 1) T)"},{"Add":" R (push 4 NIL ZERO NIL) # [cnt last name link]"},{"Add":" N (if (pair (shift X)) (evCnt Exe X) 24) )"},{"Add":" (link (ofs R 2))"},{"Add":" (when"},{"Add":" (or"},{"Add":" (and (>= C (char \"a\")) (>= (char \"z\") C))"},{"Add":" (== C 128)"},{"Add":" (and (>= C 224) (>= 255 C)) )"},{"Add":" (setq C (& C -33)) ) # Convert to lower case"},{"Add":" (charSym C R)"},{"Add":" (let Last C"},{"Add":" (loop"},{"Add":" (? (=0 (setq C (symChar P))))"},{"Add":" (when (> C 32) # Non-white"},{"Add":" (cond"},{"Add":" ((or"},{"Add":" (lt0 (dec 'C SNXBASE)) # Too small"},{"Add":" (>= C SNXSIZE) # Too big"},{"Add":" (=0 (setq C (i32 (val (ofs $SnxTab C))))) ) # No entry"},{"Add":" (setq Last 0) )"},{"Add":" ((<> C Last)"},{"Add":" (? (=0 (dec 'N)))"},{"Add":" (charSym (setq Last C) R) ) ) ) )"},{"Add":" (consStr (val 3 R)) ) ) ) ) ) )"},{"Add":""},{"Add":"# File Descriptor"},{"Add":"# (ext:FD 'cnt) -> fd"},{"Add":"(de FD (Exe)"},{"Add":" (prog1"},{"Add":" (eval (cadr Exe))"},{"Add":" (when (ge0 (i32 (xCnt Exe @)))"},{"Add":" (initInFile @ null)"},{"Add":" (initOutFile @) ) ) )"},{"Add":""},{"Add":"# Base64 Encoding"},{"Add":"(local) ($Chr64 $Stat64 $Next64)"},{"Add":""},{"Add":"(str $Chr64 \"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/\")"},{"Add":"(var $Stat64 i32 0) # State"},{"Add":"(var $Next64 i32 0) # Next value"},{"Add":""},{"Add":"# (ext:Base64) -> num|NIL"},{"Add":"# (ext:Base64 'num1|NIL ['num2|NIL ['num3|NIL]]) -> flg"},{"Add":"(de Base64 (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (cond"},{"Add":" ((atom X) # No arguments"},{"Add":" (let C (val $Chr)"},{"Add":" (while (and (ge0 C) (>= (char \" \") C))"},{"Add":" (setq C (call $Get)) )"},{"Add":" (if (strchr $Chr64 C)"},{"Add":" (let N (i32 (- @ $Chr64)) # Legal character"},{"Add":" (setq C (call $Get))"},{"Add":" (case (val $Stat64) # Initial state"},{"Add":" (0"},{"Add":" (unless (strchr $Chr64 C)"},{"Add":" (set $Stat64 0)"},{"Add":" (ret $Nil) )"},{"Add":" (set $Next64 (i32 (- @ $Chr64)))"},{"Add":" (call $Get)"},{"Add":" (set $Stat64 (inc (val $Stat64)))"},{"Add":" (cnt"},{"Add":" (i64"},{"Add":" (| (shl N 2) (shr (val $Next64) 4)) ) ) )"},{"Add":" (1"},{"Add":" (prog1"},{"Add":" (cnt"},{"Add":" (i64"},{"Add":" (|"},{"Add":" (shl (& (val $Next64) 15) 4)"},{"Add":" (shr N 2) ) ) )"},{"Add":" (set"},{"Add":" $Next64 N"},{"Add":" $Stat64 (inc (val $Stat64)) ) ) )"},{"Add":" (T"},{"Add":" (set $Stat64 0)"},{"Add":" (cnt"},{"Add":" (i64"},{"Add":" (| (shl (& (val $Next64) 3) 6) N) ) ) ) ) )"},{"Add":" (when (== C (char \"=\")) # Filler"},{"Add":" (call $Get)"},{"Add":" (when (== (val $Stat64) 1)"},{"Add":" (call $Get) ) )"},{"Add":" (set $Stat64 0)"},{"Add":" $Nil ) ) )"},{"Add":" ((nil? (eval (car X))) @)"},{"Add":" (T"},{"Add":" (let N (xCnt Exe @)"},{"Add":" (call $Put (val (ofs $Chr64 (shr N 2))))"},{"Add":" (when (nil? (eval (car (shift X))))"},{"Add":" (call $Put"},{"Add":" (val (ofs $Chr64 (shl (& N 3) 4))) )"},{"Add":" (call $Put (char \"=\"))"},{"Add":" (call $Put (char \"=\"))"},{"Add":" (ret $Nil) )"},{"Add":" (let M (xCnt Exe @)"},{"Add":" (call $Put"},{"Add":" (val"},{"Add":" (ofs $Chr64"},{"Add":" (| (shl (& N 3) 4) (shr M 4)) ) ) )"},{"Add":" (when (nil? (eval (cadr X)))"},{"Add":" (call $Put"},{"Add":" (val (ofs $Chr64 (shl (& M 15) 2))) )"},{"Add":" (call $Put (char \"=\"))"},{"Add":" (ret $Nil) )"},{"Add":" (setq N (xCnt Exe @))"},{"Add":" (call $Put"},{"Add":" (val"},{"Add":" (ofs $Chr64"},{"Add":" (| (shl (& M 15) 2) (shr N 6)) ) ) )"},{"Add":" (call $Put (val (ofs $Chr64 (& N 63))))"},{"Add":" $T ) ) ) ) ) )"},{"Add":""},{"Add":"(end)"}]}},{"FileAdd":{"meta":{"basename":"defs.l","metadata":0},"context":[{"change":0,"pos":63931}],"contents":[{"Add":"# 28sep20 Software Lab. Alexander Burger"},{"Add":""},{"Add":"(symbols '(llvm))"},{"Add":""},{"Add":"# Constants"},{"Add":"(local) (HEAP CELLS STACK TOP BUFSIZ DB1)"},{"Add":""},{"Add":"(equ"},{"Add":" HEAP (*/ 1024 1024 8) # Heap size (number of pointers)"},{"Add":" CELLS (/ HEAP 2) # Number of cells in a heap (65536)"},{"Add":" STACK (* 64 1024) # Default coroutine stack size (64 kB)"},{"Add":" TOP (hex \"110000\") # Character top"},{"Add":" BUFSIZ 4096 # I/O buffer size"},{"Add":" DB1 (hex \"1A\") # Name of '{1}'"},{"Add":" 292MY (dec (** 2 63)) ) # 292 million years"},{"Add":""},{"Add":"# PLIO Tokens"},{"Add":"(local) (NIX BEG DOT END NUMBER INTERN TRANSIENT EXTERN)"},{"Add":""},{"Add":"(equ"},{"Add":" NIX 0 # NIL"},{"Add":" BEG 1 # Begin list"},{"Add":" DOT 2 # Dotted pair"},{"Add":" END 3 # End list"},{"Add":" NUMBER 0 # Number"},{"Add":" INTERN 1 # Internal symbol"},{"Add":" TRANSIENT 2 # Transient symbol"},{"Add":" EXTERN 3 ) # External symbol"},{"Add":""},{"Add":"# DB-I/O"},{"Add":"(local) (BLK BLKSIZE BLKMASK BLKTAG)"},{"Add":""},{"Add":"(equ"},{"Add":" BLK 6 # Block address size"},{"Add":" BLKSIZE 64 # DB block unit size"},{"Add":" BLKMASK -64 # Block address mask"},{"Add":" BLKTAG 63 ) # Block tag mask"},{"Add":""},{"Add":"## Sync src/lib.c 'gSignal' and src/glob.l '$Signal'"},{"Add":"(local) (SIGHUP SIGINT SIGUSR1 SIGUSR2 SIGPIPE SIGALRM SIGTERM SIGCHLD SIGCONT"},{"Add":"SIGSTOP SIGTSTP SIGTTIN SIGTTOU SIGWINCH SIGIO)"},{"Add":""},{"Add":"(equ"},{"Add":" SIGHUP 1"},{"Add":" SIGINT 2"},{"Add":" SIGUSR1 3"},{"Add":" SIGUSR2 4"},{"Add":" SIGPIPE 5"},{"Add":" SIGALRM 6"},{"Add":" SIGTERM 7"},{"Add":" SIGCHLD 8"},{"Add":" SIGCONT 9"},{"Add":" SIGSTOP 10"},{"Add":" SIGTSTP 11"},{"Add":" SIGTTIN 12"},{"Add":" SIGTTOU 13"},{"Add":" SIGWINCH 14"},{"Add":" SIGIO 15 )"},{"Add":""},{"Add":"## Sync src/lib.c 'gErrno'"},{"Add":"(local) (ENOENT EINTR EBADF EAGAIN EACCES EPIPE ECONNRESET)"},{"Add":""},{"Add":"(equ"},{"Add":" ENOENT 1 # No such file or directory"},{"Add":" EINTR 2 # Interrupted system call"},{"Add":" EBADF 3 # Bad file number"},{"Add":" EAGAIN 4 # Try again"},{"Add":" EACCES 5 # Permission denied"},{"Add":" EPIPE 6 # Broken pipe"},{"Add":" ECONNRESET 7 ) # Connection reset by peer"}]}},{"FileAdd":{"meta":{"basename":"dec.l","metadata":0},"context":[{"change":0,"pos":63931}],"contents":[{"Add":"# 07dec23 Software Lab. Alexander Burger"},{"Add":""},{"Add":"(symbols '(llvm))"},{"Add":""},{"Add":"(local) (inFile outFile ioFrame ctFrame dbFile)"},{"Add":""},{"Add":"# I/O"},{"Add":"(struct inFile"},{"Add":" (name 8 i8*) # File name"},{"Add":" (fd 4 i32) # File descriptor"},{"Add":" (chr 4 i32) # Next character"},{"Add":" (line 4 i32) # Current line number"},{"Add":" (src 4 i32) # Source start line"},{"Add":" (ix 4 i32) # Buffer index"},{"Add":" (cnt 4 i32) # Buffer byte count"},{"Add":" (buf BUFSIZ i8) # Buffer"},{"Add":" (tty 1 i1) ) # TTY flag"},{"Add":""},{"Add":"(struct outFile"},{"Add":" (fd 4 i32) # File descriptor"},{"Add":" (ix 4 i32) # Buffer index"},{"Add":" (buf BUFSIZ i8) # Buffer"},{"Add":" (tty 1 i1) ) # TTY flag"},{"Add":""},{"Add":"(struct ioFrame"},{"Add":" (link 8 i8*) # Frame link"},{"Add":" (file 8 i8*) # File structure"},{"Add":" (fun 8 i8*) # I/O function"},{"Add":" (pid 4 i32) ) # Process ID"},{"Add":""},{"Add":"(struct ioxFrame"},{"Add":" (link 8 i8*) # Frame link"},{"Add":" (file 8 i8*) # NULL"},{"Add":" (fun 8 i8*) # I/O function"},{"Add":" (exe 8 any) # Expression"},{"Add":" (chr 4 i32) ) # Saved $Chr"},{"Add":""},{"Add":"(struct ctFrame"},{"Add":" (link 8 i8*) # Frame link"},{"Add":" (fd 4 i32) ) # File descriptor"},{"Add":""},{"Add":"(struct dbFile"},{"Add":" (fd 4 i32) # File descriptor"},{"Add":" (db 4 i32) # File number"},{"Add":" (sh 4 i32) # Block shift"},{"Add":" (siz 4 i32) # Block size (64 << sh)"},{"Add":" (mark 8 i8*) # Mark bit vector"},{"Add":" (mrks 8 i64) # Mark vector size"},{"Add":" (flu 8 i64) # Free list use count"},{"Add":" (lck 1 i1) # Lock flag"},{"Add":" (drt 1 i1) # Dirty flag"},{"Add":" (pad 6 i8) ) # Padding"},{"Add":""},{"Add":"# Catch/throw"},{"Add":"(local) caFrame"},{"Add":""},{"Add":"(struct caFrame"},{"Add":" (link 8 i8*) # Frame link"},{"Add":" (tag 8 any) # Catch tag"},{"Add":" (fin 8 any) # 'finally' expression"},{"Add":" (co 8 i8*) # Current coroutine"},{"Add":" (env (env T) i8) # Saved environment"},{"Add":" (intrn 8 any) # Internal symbols"},{"Add":" (trns1 8 any) # Transient symbols"},{"Add":" (trns2 8 any)"},{"Add":" (priv1 8 any) # Private symbols"},{"Add":" (priv2 8 any)"},{"Add":" (rst 0 i8) ) # Restart jmp_buf (JmpBufSize)"},{"Add":""},{"Add":"# Coroutines"},{"Add":"(local) coroutine"},{"Add":""},{"Add":"(struct coroutine"},{"Add":" (tag 8 any) # Coroutine tag"},{"Add":" (nxt 8 i8*) # Next coroutine"},{"Add":" (org 8 i8*) # Originator"},{"Add":" (otg 8 any) # Originator tag"},{"Add":" (prg 8 any) # Code body"},{"Add":" (lim 8 i8*) # Stack limit / Free link"},{"Add":" (at 8 any) # Saved [@]"},{"Add":" (lnk 8 any) # Link marker"},{"Add":" (bnd 8 any) # Bind marker"},{"Add":" (ca 8 i8*) # Catch marker"},{"Add":" (in 8 i8*) # InFrames marker"},{"Add":" (out 8 i8*) # OutFrames marker"},{"Add":" (err 8 i8*) # ErrFrames marker"},{"Add":" (ctl 8 i8*) # CtlFrames marker"},{"Add":" (env (env T) i8) # Saved environment"},{"Add":" (intrn 8 any) # Internal symbols"},{"Add":" (trns1 8 any) # Transient symbols"},{"Add":" (trns2 8 any)"},{"Add":" (priv1 8 any) # Private symbols"},{"Add":" (priv2 8 any)"},{"Add":" (rst 0 i8) ) # Restart jmp_buf (JmpBufSize)"},{"Add":""},{"Add":"# Family IPC"},{"Add":"(local) child"},{"Add":""},{"Add":"(struct child"},{"Add":" (buf 8 i8*) # Buffer"},{"Add":" (ofs 4 i32) # Buffer offset"},{"Add":" (cnt 4 i32) # Buffer byte count"},{"Add":" (pid 4 i32) # Process ID"},{"Add":" (hear 4 i32) # Hear pipe"},{"Add":" (tell 4 i32) # Tell pipe"},{"Add":" (pad 4 i8) ) # Padding"},{"Add":""},{"Add":"# libc"},{"Add":"(local) (malloc realloc free fork getenv setenv getpid getpgrp setsid alarm"},{"Add":"setpgid execvp isatty openpty login_tty tcgetattr tcgetpgrp tcsetpgrp read write"},{"Add":"pread pwrite fread fwrite putc_unlocked getc_unlocked fopen fflush feof fclose"},{"Add":"fileno fsync pipe memcmp strlen strcpy strdup strcmp strchr strrchr dlsym"},{"Add":"dlerror dup dup2 close signal poll waitpid setjmp longjmp kill exit)"},{"Add":""},{"Add":"(de T i8* malloc (i64))"},{"Add":"(de T i8* realloc (i8* i64))"},{"Add":"(de T void free (i8*))"},{"Add":"(de T i32 fork ())"},{"Add":"(de T i8* getenv (i8*))"},{"Add":"(de T i32 setenv (i8* i8* i32))"},{"Add":"(de T i8* getcwd (i8* i64))"},{"Add":"(de T i32 chdir (i8*))"},{"Add":"(de T i32 getpid ())"},{"Add":"(de T i32 getpgrp ())"},{"Add":"(de T i32 setsid ())"},{"Add":"(de T i32 alarm (i32))"},{"Add":"(de T i32 setpgid (i32 i32))"},{"Add":"(de T i32 execvp (i8* i8**))"},{"Add":"(de T i32 isatty (i32))"},{"Add":"(de T i32 openpty (i32* i32* i8* i8* i8*))"},{"Add":"(de T i32 login_tty (i32))"},{"Add":"(de T i32 tcgetattr (i32 i8*))"},{"Add":"(de T i32 tcgetpgrp (i32))"},{"Add":"(de T i32 tcsetpgrp (i32 i32))"},{"Add":"(de T i64 read (i32 i8* i64))"},{"Add":"(de T i64 write (i32 i8* i64))"},{"Add":"(de T i64 pread (i32 i8* i64 i64))"},{"Add":"(de T i64 pwrite (i32 i8* i64 i64))"},{"Add":"(de T i32 fread (i8* i64 i64 i8*))"},{"Add":"(de T i32 fwrite (i8* i64 i64 i8*))"},{"Add":"(de T i32 putc_unlocked (i32 i8*))"},{"Add":"(de T i32 getc_unlocked (i8*))"},{"Add":"(de T i8* fopen (i8* i8*))"},{"Add":"(de T i32 fflush (i8*))"},{"Add":"(de T i32 feof (i8*))"},{"Add":"(de T i32 fclose (i8*))"},{"Add":"(de T i32 fileno (i8*))"},{"Add":"(de T i32 fsync (i32))"},{"Add":"(de T i32 pipe (i32*))"},{"Add":"(de T i32 memcmp (i8* i8* i64))"},{"Add":"(de T i64 strlen (i8*))"},{"Add":"(de T i8* strcpy (i8* i8*))"},{"Add":"(de T i8* strdup (i8*))"},{"Add":"(de T i32 strcmp (i8* i8*))"},{"Add":"(de T i8* strchr (i8* i32))"},{"Add":"(de T i8* strrchr (i8* i32))"},{"Add":"(de T i8* dlsym (i8* i8*))"},{"Add":"(de T i8* dlerror ())"},{"Add":"(de T i32 dup (i32))"},{"Add":"(de T i32 dup2 (i32 i32))"},{"Add":"(de T i32 close (i32))"},{"Add":"(de T i8* signal (i32 i8*))"},{"Add":"(de T i32 waitpid (i32 i32* i32))"},{"Add":"(de T i32 poll (i64* i32 i64))"},{"Add":"(de T i32 setjmp (i8*))"},{"Add":"(de T NIL longjmp (i8* i32))"},{"Add":"(de T i32 kill (i32 i32))"},{"Add":"(de T NIL exit (i32))"},{"Add":""},{"Add":"# libreadline"},{"Add":"(local) (add_history history_list clear_history)"},{"Add":""},{"Add":"(de T void add_history (i8*))"},{"Add":"(de T i8*** history_list ())"},{"Add":"(de T void clear_history ())"},{"Add":""},{"Add":"# Glue lib.c"},{"Add":"(local) (TgOS TgCPU PipeBufSize)"},{"Add":""},{"Add":"(var TgOS i8 NIL) # Target OS"},{"Add":"(var TgCPU i8 NIL) # Target CPU"},{"Add":"(var PipeBufSize i32 NIL) # PIPE_BUF"},{"Add":"(var Fsign i1 NIL) # Float conversion"},{"Add":"(var Fdigit i64 NIL)"},{"Add":""},{"Add":"(local) (stderrMsg gPrintf strErrno openRd openWr openRdWr openRdWrExcl"},{"Add":"openRdWrCreate openRdWrAppend openWrAppend fseekOfs fseek0 seek0 truncate0"},{"Add":"socketPair fcntlCloExec fcntlSetFl nonBlocking fcntlSetOwn getDir)"},{"Add":""},{"Add":"(de T i8* stderrMsg (i8* i8*))"},{"Add":"(de T void gPrintf (i8* i32 i8* i8*))"},{"Add":"(de T i8* strErrno ())"},{"Add":"(de T i32 openRd (i8*))"},{"Add":"(de T i32 openWr (i8*))"},{"Add":"(de T i32 openRdWr (i8*))"},{"Add":"(de T i32 openRdWrExcl (i8*))"},{"Add":"(de T i32 openRdWrCreate (i8*))"},{"Add":"(de T i32 openRdWrAppend (i8*))"},{"Add":"(de T i32 openWrAppend (i8*))"},{"Add":"(de T i1 fseekOfs (i8* i32))"},{"Add":"(de T i1 fseek0 (i8*))"},{"Add":"(de T i1 seek0 (i32))"},{"Add":"(de T i1 truncate0 (i32))"},{"Add":"(de T i32 socketPair (i32*))"},{"Add":"(de T i32 fcntlCloExec (i32))"},{"Add":"(de T void fcntlSetFl (i32 i32))"},{"Add":"(de T i32 nonBlocking (i32))"},{"Add":"(de T void fcntlSetOwn(i32 i32))"},{"Add":"(de T i8* getDir (i8*))"},{"Add":""},{"Add":"(local) (initReadline gReadline rlHide rlShow rlSigBeg rlSigEnd currentLine)"},{"Add":""},{"Add":"(de T void initReadline ())"},{"Add":"(de T i8* gReadline (i8*))"},{"Add":"(de T void rlHide ())"},{"Add":"(de T void rlShow ())"},{"Add":"(de T void rlSigBeg ())"},{"Add":"(de T void rlSigEnd ())"},{"Add":"(de T i8* currentLine ())"},{"Add":""},{"Add":"# Signals"},{"Add":"(local) (Sig SigDfl SigIgn)"},{"Add":""},{"Add":"(var Sig i32 NIL)"},{"Add":"(var SigDfl i8* NIL)"},{"Add":"(var SigIgn i8* NIL)"},{"Add":""},{"Add":"(local) (gSignal sigUnblock iSignal sigChld waitWuntraced wifStopped)"},{"Add":""},{"Add":"(de T i32 gSignal (i32))"},{"Add":"(de T void iSignal (i32 i8*))"},{"Add":"(de T void sigUnblock (i32))"},{"Add":"(de T void sigChld (i32))"},{"Add":"(de T i32 waitWuntraced (i32 i32*))"},{"Add":"(de T i32 wifStopped (i32*))"},{"Add":""},{"Add":"(local) (nErrno gErrno)"},{"Add":""},{"Add":"(de T i32 nErrno ())"},{"Add":"(de T i32 gErrno ())"},{"Add":""},{"Add":"# Terminal"},{"Add":"(local) (Tio OrgTermio Termio setRaw setCooked reopenTty)"},{"Add":""},{"Add":"(var Tio i1 NIL)"},{"Add":"(var OrgTermio i8 NIL)"},{"Add":"(var Termio i8* NIL)"},{"Add":""},{"Add":"(de T void stopTerm ())"},{"Add":"(de T void setRaw ())"},{"Add":"(de T void setCooked ())"},{"Add":"(de T i1 reopenTty (i8*))"},{"Add":""},{"Add":"# System"},{"Add":"(local) (getUsec getMsec getDate getGmDate getTime getGmTime ulimStk fileInfo)"},{"Add":""},{"Add":"(de T i64 getUsec (i1))"},{"Add":"(de T i64 getMsec ())"},{"Add":"(de T i64 getDate ())"},{"Add":"(de T i64 getGmDate ())"},{"Add":"(de T i64 getTime ())"},{"Add":"(de T i64 getGmTime ())"},{"Add":"(de T i8* ulimStk ())"},{"Add":"(de T i64 fileInfo (i1 i1 i8* i64*))"},{"Add":""},{"Add":"# Polling"},{"Add":"(local) (pollIn pollOut pollIgn gPoll readyIn readyOut)"},{"Add":""},{"Add":"(de T void pollIn (i32 i64*))"},{"Add":"(de T void pollOut (i32 i64*))"},{"Add":"(de T void pollIgn (i64*))"},{"Add":"(de T i32 gPoll (i64* i32 i64))"},{"Add":"(de T i1 readyIn (i64*))"},{"Add":"(de T i1 readyOut (i64*))"},{"Add":""},{"Add":"# Locking"},{"Add":"(local) (rdLock wrLock unLock getLock)"},{"Add":""},{"Add":"(de T i32 rdLock (i32 i64 i64 i1))"},{"Add":"(de T i32 wrLock (i32 i64 i64 i1))"},{"Add":"(de T i32 unLock (i32 i64 i64))"},{"Add":"(de T i32 getLock (i32 i64 i64))"},{"Add":""},{"Add":"# Catch and Throw"},{"Add":"(local) (JmpBufSize QuitRst)"},{"Add":""},{"Add":"(var JmpBufSize i64 NIL) # sizeof(jmp_buf)"},{"Add":"(var QuitRst i8 NIL)"},{"Add":""},{"Add":"# Native lib.c"},{"Add":"(local) (dlOpen ffiPrep ffiCall)"},{"Add":""},{"Add":"(de T i8* dlOpen (i8*))"},{"Add":"(de T i8* ffiPrep (i8* i8* i64))"},{"Add":"(de T i64 ffiCall (i8* i64))"},{"Add":""},{"Add":"(local) (boxFloat boxFlt boxDouble boxDbl bufFloat bufDouble)"},{"Add":""},{"Add":"(de T i64 boxFloat (i32 i64))"},{"Add":"(de T i64 boxFlt ())"},{"Add":"(de T i64 boxDouble (i64 i64))"},{"Add":"(de T i64 boxDbl ())"},{"Add":"(de T void bufFloat (i64 i64 i8*))"},{"Add":"(de T void bufDouble (i64 i64 i8*))"},{"Add":""},{"Add":"# Util"},{"Add":"(local) chance"},{"Add":""},{"Add":"(de T i1 chance (i64))"},{"Add":""},{"Add":"# Case mappings lib.c"},{"Add":"(local) (isLowc isUppc isLetterOrDigit toUpperCase toLowerCase)"},{"Add":""},{"Add":"(de T i1 isLowc (i32))"},{"Add":"(de T i1 isUppc (i32))"},{"Add":"(de T i1 isLetterOrDigit (i32))"},{"Add":"(de T i32 toUpperCase (i32))"},{"Add":"(de T i32 toLowerCase (i32))"},{"Add":""},{"Add":"### Forward references ###"},{"Add":""},{"Add":"# main.l"},{"Add":"(local) (dbg equal compare evList)"},{"Add":""},{"Add":"(de dbg (i64 any))"},{"Add":"(de i1 equal (any any))"},{"Add":"(de i64 compare (any any))"},{"Add":"(de evList (any))"},{"Add":""},{"Add":"# gc.l"},{"Add":"(local) (cons cons2 cons3 consStr)"},{"Add":""},{"Add":"(de cons (any any))"},{"Add":"(de cons2 (any any any))"},{"Add":"(de cons3 (any any any any))"},{"Add":"(de consStr (any))"},{"Add":""},{"Add":"# sym.l"},{"Add":"(local) (bufSize bufString mkStr firstByte pack xSym subStr)"},{"Add":""},{"Add":"(de i64 bufSize (any))"},{"Add":"(de i8* bufString (any i8*))"},{"Add":"(de mkStr (i8*))"},{"Add":"(de i8 firstByte (any))"},{"Add":"(de void pack (any i64*))"},{"Add":"(de i1 subStr (any any))"},{"Add":""},{"Add":"# io.l"},{"Add":"(local) (flush flushAll newline space outWord outString print repl)"},{"Add":""},{"Add":"(de i1 flush (i8*))"},{"Add":"(de void flushAll ())"},{"Add":"(de void newline ())"},{"Add":"(de void space ())"},{"Add":"(de void outWord (i64))"},{"Add":"(de void outString (i8*))"},{"Add":"(de void print (any))"},{"Add":"(de repl (any i8* any))"},{"Add":""},{"Add":"# db.l"},{"Add":"(local) (dbFetch dbTouch dbZap)"},{"Add":""},{"Add":"(de void dbFetch (any any))"},{"Add":"(de void dbTouch (any any))"},{"Add":"(de void dbZap (any))"},{"Add":""},{"Add":"# flow.l"},{"Add":"(local) (putSrc brkLoad)"},{"Add":""},{"Add":"(de void putSrc (any any))"},{"Add":"(de brkLoad (any))"},{"Add":""},{"Add":"### Primitives ###"},{"Add":"(local) (caar cadr cdar cddr int cnt sign sym name memq member length boxNum"},{"Add":"box64 eval run)"},{"Add":""},{"Add":"(inline caar (X)"},{"Add":" (car (car X)) )"},{"Add":""},{"Add":"(inline cadr (X)"},{"Add":" (car (cdr X)) )"},{"Add":""},{"Add":"(inline cdar (X)"},{"Add":" (cdr (car X)) )"},{"Add":""},{"Add":"(inline cddr (X)"},{"Add":" (cdr (cdr X)) )"},{"Add":""},{"Add":"(inline int (X)"},{"Add":" (shr X 4) )"},{"Add":""},{"Add":"(inline cnt (X)"},{"Add":" (any (| (shl X 4) 2)) )"},{"Add":""},{"Add":"(inline sign (X)"},{"Add":" (any (| X 8)) )"},{"Add":""},{"Add":"(inline sym (X)"},{"Add":" (any (| X 8)) )"},{"Add":""},{"Add":"(inline name (Tail)"},{"Add":" (until (num? Tail)"},{"Add":" (shift Tail) )"},{"Add":" Tail )"},{"Add":""},{"Add":"(inline memq (X L)"},{"Add":" (use @"},{"Add":" (loop"},{"Add":" (? (atom L) NO)"},{"Add":" (? (== X (car L)) YES)"},{"Add":" (shift L) ) ) )"},{"Add":""},{"Add":"(inline member (X L)"},{"Add":" (use @"},{"Add":" (loop"},{"Add":" (? (atom L) NO)"},{"Add":" (? (equal X (car L)) YES)"},{"Add":" (shift L) ) ) )"},{"Add":""},{"Add":"(inline nth (N X)"},{"Add":" (use @"},{"Add":" (let C (int N)"},{"Add":" (while (dec 'C)"},{"Add":" (shift X) )"},{"Add":" (if (sign? N)"},{"Add":" (cdr X)"},{"Add":" (car X) ) ) ) )"},{"Add":""},{"Add":"(inline length (X)"},{"Add":" (use @"},{"Add":" (let N 0"},{"Add":" (while (pair X)"},{"Add":" (inc 'N)"},{"Add":" (shift X) )"},{"Add":" N ) ) )"},{"Add":""},{"Add":"(inline box64 (N)"},{"Add":" (use @"},{"Add":" (if (& N (hex \"F000000000000000\"))"},{"Add":" (boxNum N)"},{"Add":" (cnt N) ) ) )"},{"Add":""},{"Add":"(inline eval (X)"},{"Add":" (use @"},{"Add":" (cond"},{"Add":" ((num? X) X)"},{"Add":" ((sym? X) (val X))"},{"Add":" (T (evList X)) ) ) )"},{"Add":""},{"Add":"(inline exec (Prg)"},{"Add":" (use @"},{"Add":" (loop"},{"Add":" (when (pair (++ Prg))"},{"Add":" (evList @) )"},{"Add":" (? (atom Prg)) ) ) )"},{"Add":""},{"Add":"(inline run (Prg)"},{"Add":" (use @"},{"Add":" (loop"},{"Add":" (let X (++ Prg)"},{"Add":" (? (atom Prg) (eval X))"},{"Add":" (and (pair X) (evList X)) ) ) ) )"},{"Add":""},{"Add":"# Runtime checks"},{"Add":"(local) (stkChk sigChk)"},{"Add":""},{"Add":"(inline stkChk (Exe)"},{"Add":" (when (> (val $StkLimit) (stack))"},{"Add":" (stkErr Exe) ) )"},{"Add":""},{"Add":"(inline sigChk (Exe)"},{"Add":" (when (val $Signal)"},{"Add":" (sighandler Exe) ) )"},{"Add":""},{"Add":"# Argument checks"},{"Add":"(local) (needCnt needNum needSymb needPair needLst needVar chkVar needChkVar needNsp)"},{"Add":""},{"Add":"(inline needCnt (Exe X)"},{"Add":" (unless (cnt? X)"},{"Add":" (cntErr Exe X) )"},{"Add":" X )"},{"Add":""},{"Add":"(inline needNum (Exe X)"},{"Add":" (unless (num? X)"},{"Add":" (numErr Exe X) )"},{"Add":" X )"},{"Add":""},{"Add":"(inline needSymb (Exe X)"},{"Add":" (unless (symb? X)"},{"Add":" (symErr Exe X) )"},{"Add":" X )"},{"Add":""},{"Add":"(inline needPair (Exe X)"},{"Add":" (when (atom X)"},{"Add":" (pairErr Exe X) )"},{"Add":" X )"},{"Add":""},{"Add":"(inline needLst (Exe X)"},{"Add":" (unless (or (pair X) (nil? X))"},{"Add":" (lstErr Exe X) )"},{"Add":" X )"},{"Add":""},{"Add":"(inline needVar (Exe X)"},{"Add":" (when (num? X)"},{"Add":" (varErr Exe X) )"},{"Add":" X )"},{"Add":""},{"Add":"(inline chkVar (Exe X)"},{"Add":" (when (and (>= X $Nil) (>= $T X))"},{"Add":" (protErr Exe X) )"},{"Add":" X )"},{"Add":""},{"Add":"(inline needChkVar (Exe X)"},{"Add":" (when (num? X)"},{"Add":" (varErr Exe X) )"},{"Add":" (chkVar Exe X)"},{"Add":" X )"},{"Add":""},{"Add":"(inline needNsp (Exe X)"},{"Add":" (unless (and (pair (val X)) (== $Tilde (car @)))"},{"Add":" (symNspErr Exe X) )"},{"Add":" X )"},{"Add":""},{"Add":"# Copy environments"},{"Add":"(inline putCaEnv (Ca)"},{"Add":" (let Ca: (caFrame Ca)"},{"Add":" (memcpy (Ca: (env)) (env) (env T) T)"},{"Add":" (Ca: intrn (val $Intern))"},{"Add":" (Ca: trns1 (val $Transient))"},{"Add":" (Ca: trns2 (val 2 $Transient))"},{"Add":" (Ca: priv1 (val $PrivT))"},{"Add":" (Ca: priv2 (val 2 $PrivT)) ) )"},{"Add":""},{"Add":"(inline getCaEnv (Ca)"},{"Add":" (let Ca: (caFrame Ca)"},{"Add":" (memcpy (env) (Ca: (env)) (env T) T)"},{"Add":" (set $Intern (Ca: intrn))"},{"Add":" (set $Transient (Ca: trns1))"},{"Add":" (set 2 $Transient (Ca: trns2))"},{"Add":" (set $PrivT (Ca: priv1))"},{"Add":" (set 2 $PrivT (Ca: priv2)) ) )"},{"Add":""},{"Add":"(inline putCrtEnv (Crt Cpy)"},{"Add":" (let Crt: (coroutine Crt)"},{"Add":" (when Cpy"},{"Add":" (memcpy (Crt: (env)) (env) (env T) T) )"},{"Add":" (Crt: intrn (val $Intern))"},{"Add":" (Crt: trns1 (val $Transient))"},{"Add":" (Crt: trns2 (val 2 $Transient))"},{"Add":" (Crt: priv1 (val $PrivT))"},{"Add":" (Crt: priv2 (val 2 $PrivT)) ) )"},{"Add":""},{"Add":"(inline getCrtEnv (Crt)"},{"Add":" (let Crt: (coroutine Crt)"},{"Add":" (set $Intern (Crt: intrn))"},{"Add":" (set $Transient (Crt: trns1))"},{"Add":" (set 2 $Transient (Crt: trns2))"},{"Add":" (set $PrivT (Crt: priv1))"},{"Add":" (set 2 $PrivT (Crt: priv2)) ) )"}]}},{"FileAdd":{"meta":{"basename":"db.l","metadata":0},"context":[{"change":0,"pos":63931}],"contents":[{"Add":"# 13dec23 Software Lab. Alexander Burger"},{"Add":""},{"Add":"(symbols '(llvm))"},{"Add":""},{"Add":"(local) (dbfErr dbRdErr dbWrErr jnlErr dbSyncErr)"},{"Add":""},{"Add":"(de NIL dbfErr (Exe)"},{"Add":" (err Exe 0 ($ \"Bad DB file\") null) )"},{"Add":""},{"Add":"(de NIL dbRdErr ()"},{"Add":" (err 0 0 ($ \"DB read: %s\") (strErrno)) )"},{"Add":""},{"Add":"(de NIL dbWrErr ()"},{"Add":" (err 0 0 ($ \"DB write: %s\") (strErrno)) )"},{"Add":""},{"Add":"(de NIL jnlErr (Exe)"},{"Add":" (err Exe 0 ($ \"Bad Journal\") null) )"},{"Add":""},{"Add":"(de NIL dbSyncErr (Exe)"},{"Add":" (err Exe 0 ($ \"DB fsync error: %s\") (strErrno)) )"},{"Add":""},{"Add":"(local) (getAdr setAdr dbfBuf)"},{"Add":""},{"Add":"# 6 bytes in little endian format"},{"Add":"# Get block address from buffer"},{"Add":"(de i64 getAdr ((i8* . P))"},{"Add":" (|"},{"Add":" (shl"},{"Add":" (|"},{"Add":" (shl"},{"Add":" (|"},{"Add":" (shl"},{"Add":" (|"},{"Add":" (shl"},{"Add":" (|"},{"Add":" (shl (i64 (val 6 P)) 8)"},{"Add":" (i64 (val 5 P)) )"},{"Add":" 8 )"},{"Add":" (i64 (val 4 P)) )"},{"Add":" 8 )"},{"Add":" (i64 (val 3 P)) )"},{"Add":" 8 )"},{"Add":" (i64 (val 2 P)) )"},{"Add":" 8 )"},{"Add":" (i64 (val P)) ) )"},{"Add":""},{"Add":"# Set block address in buffer"},{"Add":"(de void setAdr ((i64 . N) (i8* . P))"},{"Add":" (set P (i8 N))"},{"Add":" (set 2 P (i8 (setq N (shr N 8))))"},{"Add":" (set 3 P (i8 (setq N (shr N 8))))"},{"Add":" (set 4 P (i8 (setq N (shr N 8))))"},{"Add":" (set 5 P (i8 (setq N (shr N 8))))"},{"Add":" (set 6 P (i8 (shr N 8))) )"},{"Add":""},{"Add":"# Read file number from buffer into '$DbFile'"},{"Add":"(de i8* dbfBuf ((i8* . P))"},{"Add":" (let N"},{"Add":" (| # Two bytes little endian"},{"Add":" (shl (i32 (val 2 P)) 8)"},{"Add":" (i32 (val P)) )"},{"Add":" (if (> (val $DBs) N) # Local file"},{"Add":" (set $DbFile # Set current file"},{"Add":" (ofs (val $DbFiles) (* N (dbFile T))) )"},{"Add":" null ) ) )"},{"Add":""},{"Add":"# Locking"},{"Add":"(local) (rdLockDb wrLockDb unLockDb tryLock lockJnl unLockJnl)"},{"Add":""},{"Add":"(de void rdLockDb ()"},{"Add":" (unless (t? (val $Solo)) # Not already locked whole DB"},{"Add":" (rdLockWait ((dbFile (val $DbFiles)) fd) 1) ) ) # Descriptor of first file"},{"Add":""},{"Add":"(de void wrLockDb ()"},{"Add":" (unless (t? (val $Solo)) # Not already locked whole DB"},{"Add":" (wrLockWait ((dbFile (val $DbFiles)) fd) 1) ) ) # Descriptor of first file"},{"Add":""},{"Add":"(de void unLockDb ((i64 . Len))"},{"Add":" (unless (t? (val $Solo)) # Not already locked whole DB"},{"Add":" (unless Len"},{"Add":" (let (Db (val $DbFiles) C (val $DBs)) # Iterate DB files"},{"Add":" (while (dec 'C)"},{"Add":" (let Db: (dbFile (setq Db (ofs Db (dbFile T)))) # Skip first, increment by size of dbFile"},{"Add":" (when (Db: lck)"},{"Add":" (unLock (Db: fd) 0 0)"},{"Add":" (Db: lck NO) ) ) ) )"},{"Add":" (set $Solo ZERO) )"},{"Add":" (unLock ((dbFile (val $DbFiles)) fd) 0 Len) ) ) # Descriptor of first file"},{"Add":""},{"Add":"(de i32 tryLock ((i8* . DbFile) (i64 . N) (i64 . Len))"},{"Add":" (let Db: (dbFile DbFile)"},{"Add":" (loop"},{"Add":" (? (ge0 (wrLock (Db: fd) N Len NO)) # Try to lock"},{"Add":" (Db: lck YES) # Set lock flag"},{"Add":" (nond"},{"Add":" (N (set $Solo $T)) # Set solo mode"},{"Add":" ((t? (val $Solo)) (set $Solo $Nil)) ) # Clear solo mode"},{"Add":" 0 )"},{"Add":" (unless"},{"Add":" (or"},{"Add":" (== (gErrno) EINTR) # Interrupted"},{"Add":" (== @ EACCES) # Locked by another process"},{"Add":" (== @ EAGAIN) ) # Memory-mapped by another process"},{"Add":" (lockErr) )"},{"Add":" (while (lt0 (getLock (Db: fd) N Len))"},{"Add":" (unless (== (gErrno) EINTR)"},{"Add":" (lockErr) ) )"},{"Add":" (? (gt0 @) @) ) ) )"},{"Add":""},{"Add":"(de void lockJnl ()"},{"Add":" (wrLockWait (fileno (val $DbJnl)) 0) )"},{"Add":""},{"Add":"(de void unLockJnl ()"},{"Add":" (let Jnl (val $DbJnl)"},{"Add":" (fflush Jnl)"},{"Add":" (unLock (fileno Jnl) 0 0) ) )"},{"Add":""},{"Add":"(local) (blkPeek rdBlock blkPoke wrBlock logBlock)"},{"Add":""},{"Add":"(de void blkPeek ((i64 . Pos) (i8* . Buf) (i32 . Siz))"},{"Add":" (let (S (i64 Siz) Db: (dbFile (val $DbFile)))"},{"Add":" (unless (== S (pread (Db: fd) Buf S Pos))"},{"Add":" (dbRdErr) ) ) )"},{"Add":""},{"Add":"(de i8* rdBlock ((i64 . N))"},{"Add":" (let (Db: (dbFile (val $DbFile)) Blk (val $DbBlock))"},{"Add":" (blkPeek # Read block"},{"Add":" (shl (set $BlkIndex N) (i64 (Db: sh)))"},{"Add":" Blk"},{"Add":" (Db: siz) )"},{"Add":" (set"},{"Add":" $BlkLink (& (getAdr Blk) BLKMASK)"},{"Add":" $BlkEnd (ofs Blk (Db: siz))"},{"Add":" $BlkPtr (ofs Blk BLK) ) # Pointer to data"},{"Add":" Blk ) ) # Pointer to block"},{"Add":""},{"Add":"(de void blkPoke ((i64 . Pos) (i8* . Buf) (i32 . Siz))"},{"Add":" (let Db: (dbFile (val $DbFile))"},{"Add":" (unless (== Siz (i32 (pwrite (Db: fd) Buf (i64 Siz) Pos)))"},{"Add":" (dbWrErr) )"},{"Add":" (when (val $DbJnl)"},{"Add":" (let Jnl @"},{"Add":" (putc_unlocked (if (== Siz (Db: siz)) 0 Siz) Jnl)"},{"Add":" (let P (b8 (+ BLK 2)) # Allocate buffer"},{"Add":" (set P (i8 (Db: db))) # Store file number"},{"Add":" (set 2 P (i8 (shr (Db: db) 8)))"},{"Add":" (setAdr"},{"Add":" (shr Pos (i64 (Db: sh))) # Un-shift position"},{"Add":" (ofs P 2) )"},{"Add":" (unless"},{"Add":" (and"},{"Add":" (== 1 (fwrite P (+ BLK 2) 1 Jnl)) # Write file number and address"},{"Add":" (== 1 (fwrite Buf (i64 Siz) 1 Jnl)) ) # Write 'Buf'"},{"Add":" (err 0 0 ($ \"Journal write: %s\") (strErrno)) ) ) ) ) ) )"},{"Add":""},{"Add":"(de void wrBlock ()"},{"Add":" (let Db: (dbFile (val $DbFile))"},{"Add":" (blkPoke"},{"Add":" (shl (val $BlkIndex) (i64 (Db: sh)))"},{"Add":" (val $DbBlock)"},{"Add":" (Db: siz) ) ) )"},{"Add":""},{"Add":"(de void logBlock ()"},{"Add":" (let"},{"Add":" (Db: (dbFile (val $DbFile))"},{"Add":" Log (val $DbLog)"},{"Add":" P (b8 (+ BLK 2)) )"},{"Add":" (set P (i8 (Db: db))) # Store file number"},{"Add":" (set 2 P (i8 (shr (Db: db) 8)))"},{"Add":" (setAdr (val $BlkIndex) (ofs P 2)) # and block"},{"Add":" (unless"},{"Add":" (and"},{"Add":" (== 1 (fwrite P (+ BLK 2) 1 Log)) # Write file number and address"},{"Add":" (== 1 (fwrite (val $DbBlock) (i64 (Db: siz)) 1 Log)) ) # Write block"},{"Add":" (err 0 0 ($ \"Log write: %s\") (strErrno)) ) ) )"},{"Add":""},{"Add":"(local) (newBlock newId isLife cleanUp getBlock putBlock)"},{"Add":""},{"Add":"(de i64 newBlock ()"},{"Add":" (let"},{"Add":" (Db: (dbFile (val $DbFile))"},{"Add":" Siz (Db: siz)"},{"Add":" P (b8 Siz) )"},{"Add":" (blkPeek 0 P (* 2 BLK)) # Read 'free' and 'next' from block zero"},{"Add":" (let N (getAdr P)"},{"Add":" (cond"},{"Add":" ((and N (Db: flu))"},{"Add":" (blkPeek (shl N (i64 (Db: sh))) P BLK) # Get free link"},{"Add":" (Db: flu (dec (Db: flu))) )"},{"Add":" ((== (setq N (getAdr (ofs P BLK))) (hex \"FFFFFFFFFFC0\")) # Max object ID"},{"Add":" (err 0 0 ($ \"DB Oversize\") null) )"},{"Add":" (T (setAdr (+ N BLKSIZE) (ofs P BLK))) ) # Increment next"},{"Add":" (blkPoke 0 P (* 2 BLK)) # Write back"},{"Add":" (memset P 0 (i64 Siz) T) # Init new block"},{"Add":" (blkPoke (shl N (i64 (Db: sh))) P Siz)"},{"Add":" N ) ) )"},{"Add":""},{"Add":"(de newId (Exe (i32 . N))"},{"Add":" (when (>= (dec 'N) (val $DBs))"},{"Add":" (dbfErr Exe) )"},{"Add":" (set $DbFile # Set current file"},{"Add":" (ofs (val $DbFiles) (* N (dbFile T))) )"},{"Add":" (set $Protect (inc (val $Protect)))"},{"Add":" (wrLockDb)"},{"Add":" (when (val $DbJnl)"},{"Add":" (lockJnl) )"},{"Add":" (prog1"},{"Add":" (extNm"},{"Add":" ((dbFile (val $DbFile)) db)"},{"Add":" (shr (newBlock) 6) )"},{"Add":" (when (val $DbJnl)"},{"Add":" (unLockJnl) )"},{"Add":" (unLockDb 1)"},{"Add":" (set $Protect (dec (val $Protect))) ) )"},{"Add":""},{"Add":"(de i1 isLife (Sym)"},{"Add":" (let"},{"Add":" (Nm (name (& (val (tail Sym)) -9))"},{"Add":" F (objFile Nm)"},{"Add":" N (shl (objId Nm) 6) )"},{"Add":" (when N"},{"Add":" (cond"},{"Add":" ((> (val $DBs) F) # Local file"},{"Add":" (setq Nm (add Nm Nm))"},{"Add":" (when @@ # Dirty"},{"Add":" (ret YES) )"},{"Add":" (add Nm Nm)"},{"Add":" (when @@ # Loaded"},{"Add":" (ret YES) )"},{"Add":" (let"},{"Add":" (Db:"},{"Add":" (dbFile"},{"Add":" (set $DbFile # Set current file"},{"Add":" (ofs (val $DbFiles) (* F (dbFile T))) ) )"},{"Add":" P (b8 (* BLK 2)) )"},{"Add":" (blkPeek BLK P BLK) # Read 'next'"},{"Add":" (when (> (getAdr P) N)"},{"Add":" (blkPeek (shl N (i64 (Db: sh))) P BLK) # Read link field"},{"Add":" (when (== 1 (& (val P) BLKTAG)) # ID-Block"},{"Add":" (ret YES) ) ) ) )"},{"Add":" ((pair (val $Ext))"},{"Add":" (ret YES) ) ) )"},{"Add":" NO ) )"},{"Add":""},{"Add":"# (ext? 'any ['flg]) -> sym | NIL"},{"Add":"(de _ExtQ (Exe)"},{"Add":" (let (X (cdr Exe) Y (save (eval (++ X))))"},{"Add":" (if"},{"Add":" (and"},{"Add":" (symb? Y)"},{"Add":" (sym? (val (tail Y)))"},{"Add":" (or (nil? (eval (car X))) (isLife Y)) )"},{"Add":" Y"},{"Add":" $Nil ) ) )"},{"Add":""},{"Add":"(de void cleanUp ((i64 . N))"},{"Add":" (let (P (b8 BLK) Db: (dbFile (val $DbFile)))"},{"Add":" (blkPeek 0 P BLK) # Read 'free'"},{"Add":" (let Free (getAdr P)"},{"Add":" (setAdr N P)"},{"Add":" (blkPoke 0 P BLK) # Set new 'free'"},{"Add":" (loop"},{"Add":" (let Pos (shl N (i64 (Db: sh)))"},{"Add":" (blkPeek Pos P BLK) # Get block link"},{"Add":" (set P (& (val P) BLKMASK)) # Clear tag"},{"Add":" (? (=0 (setq N (getAdr P))) # No more links"},{"Add":" (setAdr Free P) # Append old 'free' list"},{"Add":" (blkPoke Pos P BLK) )"},{"Add":" (blkPoke Pos P BLK) ) ) ) ) )"},{"Add":""},{"Add":"(de i32 getBlock ()"},{"Add":" (let P (val $BlkPtr)"},{"Add":" (when (== P (val $BlkEnd))"},{"Add":" (unless (val $BlkLink)"},{"Add":" (ret -1) )"},{"Add":" (setq P (ofs (rdBlock @) BLK)) )"},{"Add":" (set $BlkPtr (inc P))"},{"Add":" (i32 (val P)) ) )"},{"Add":""},{"Add":"(de void putBlock ((i8 . B))"},{"Add":" (let P (val $BlkPtr)"},{"Add":" (when (== P (val $BlkEnd))"},{"Add":" (let Link (val $BlkLink)"},{"Add":" (ifn Link"},{"Add":" (let"},{"Add":" (New (newBlock)"},{"Add":" Cnt (i64 (val (setq P (val $DbBlock)))) ) # Block count (link is zero)"},{"Add":" (setAdr (| New Cnt) P)"},{"Add":" (wrBlock) # Write new block"},{"Add":" (set $BlkIndex New) # Set new block index"},{"Add":" (setAdr (if (== Cnt BLKTAG) Cnt (inc Cnt)) P)"},{"Add":" (setq P (ofs P BLK)) )"},{"Add":" (wrBlock) # Write current block"},{"Add":" (setq P (ofs (rdBlock Link) BLK)) ) ) ) # Read next block"},{"Add":" (set P B)"},{"Add":" (set $BlkPtr (inc P)) ) )"},{"Add":""},{"Add":"# (rollback) -> flg"},{"Add":"(de _Rollback (Exe)"},{"Add":" (if (and (=0 (val $DBs)) (atom (val $Ext)))"},{"Add":" $Nil"},{"Add":" (let (Tos 0 P (val $Extern)) # Iterate external symbol tree"},{"Add":" (loop"},{"Add":" (loop"},{"Add":" (let X (cdr P) # Get subtrees"},{"Add":" (? (atom (cdr X))) # Right subtree"},{"Add":" (let Y P # Go right"},{"Add":" (setq P @) # Invert tree"},{"Add":" (set 2 X Tos)"},{"Add":" (setq Tos Y) ) ) )"},{"Add":" (loop"},{"Add":" (let (S (val P) Tail (val (tail S))) # Get external symbol"},{"Add":" (unless (num? Tail) # Any properties"},{"Add":" (setq Tail (& Tail -9)) # Clear 'extern' tag"},{"Add":" (loop"},{"Add":" (? (num? (shift Tail))) ) # Find name"},{"Add":" (setq Tail (sym Tail)) ) # Set 'extern' tag"},{"Add":" (set (tail S) (shr (shl Tail 2) 2)) # Strip status bits"},{"Add":" (set S $Nil) ) # Clear value"},{"Add":" (let X (cdr P)"},{"Add":" (? (pair (car X)) # Left subtree"},{"Add":" (let Y P # Go left"},{"Add":" (setq P @) # Invert tree"},{"Add":" (set X Tos)"},{"Add":" (setq Tos (| Y 8)) ) ) ) # First visit"},{"Add":" (loop"},{"Add":" (unless Tos"},{"Add":" (goto 1) )"},{"Add":" (? (=0 (& Tos 8)) # Second visit"},{"Add":" (let (X Tos Y (cdr X)) # Nodes"},{"Add":" (setq Tos (cdr Y)) # TOS on up link"},{"Add":" (set 2 Y P)"},{"Add":" (setq P X) ) )"},{"Add":" (setq Tos (& Tos -9)) # Clear visit bit"},{"Add":" (let (X Tos Y (cdr X)) # Nodes"},{"Add":" (setq Tos (car Y))"},{"Add":" (set Y P)"},{"Add":" (setq P X) ) ) ) ) )"},{"Add":" (: 1"},{"Add":" (when (pair (val $Zap)) # Objects to delete"},{"Add":" (set @ $Nil) ) ) # Clear zap list"},{"Add":" (when (val $DBs) # DB open"},{"Add":" (unLockDb 0) ) # Unlock all"},{"Add":" (unsync)"},{"Add":" $T ) )"},{"Add":""},{"Add":"# (extern 'sym) -> sym | NIL"},{"Add":"(de _Extern (Exe)"},{"Add":" (let"},{"Add":" (Sym (needSymb Exe (eval (cadr Exe)))"},{"Add":" Nm (name (& (val (tail Sym)) -9)) )"},{"Add":" (when (== Nm ZERO)"},{"Add":" (ret $Nil) )"},{"Add":" (let"},{"Add":" (P (push 0 Nm) # [cnt name]"},{"Add":" C (symChar P)"},{"Add":" F (i32 0) )"},{"Add":" (when (== C (char \"{\"))"},{"Add":" (setq C (symChar P)) )"},{"Add":" (while (>= C (char \"@\"))"},{"Add":" (when (> C (char \"O\")) # A-O range"},{"Add":" (ret $Nil) )"},{"Add":" (setq"},{"Add":" F (| (shl F 4) (- C (char \"@\")))"},{"Add":" C (symChar P) ) )"},{"Add":" (let N 0"},{"Add":" (loop"},{"Add":" (unless (and (>= C (char \"0\")) (>= (char \"7\") C))"},{"Add":" (ret $Nil) )"},{"Add":" (setq N"},{"Add":" (|"},{"Add":" (shl N 3)"},{"Add":" (i64 (- C (char \"0\"))) ) )"},{"Add":" (?"},{"Add":" (or"},{"Add":" (=0 (setq C (symChar P)))"},{"Add":" (== C (char \"}\")) ) ) )"},{"Add":" (if (isLife (setq Sym (extern (extNm F N))))"},{"Add":" Sym"},{"Add":" $Nil ) ) ) ) )"},{"Add":""},{"Add":"(local) (ignLog transaction fsyncDB restore truncLog)"},{"Add":""},{"Add":"(de void ignLog ()"},{"Add":" (stderrMsg ($ \"Discarding incomplete transaction\\n\") null) )"},{"Add":""},{"Add":"# Test for existing transaction"},{"Add":"(de i1 transaction ()"},{"Add":" (let (Log (val $DbLog) Blk (b8 BLK))"},{"Add":" (fseek0 Log)"},{"Add":" (if (fread Blk 2 1 Log) # Read first file number"},{"Add":" (loop"},{"Add":" (? (== (val (i16* Blk)) (hex \"FFFF\")) YES) # Byte order doesn't matter"},{"Add":" (?"},{"Add":" (or"},{"Add":" (=0 (dbfBuf Blk))"},{"Add":" (<> (fread Blk BLK 1 Log) 1)"},{"Add":" (not (fseekOfs Log ((dbFile (val $DbFile)) siz)))"},{"Add":" (<> (fread Blk 2 1 Log) 1) )"},{"Add":" (ignLog)"},{"Add":" NO ) )"},{"Add":" (unless (feof Log)"},{"Add":" (ignLog) ) # Discard incomplete transaction"},{"Add":" NO ) ) )"},{"Add":""},{"Add":"(de void fsyncDB (Exe)"},{"Add":" (let (Db (val $DbFiles) C (val $DBs)) # Iterate DB files"},{"Add":" (loop"},{"Add":" (let Db: (dbFile Db)"},{"Add":" (when (and (Db: drt) (lt0 (fsync (Db: fd))))"},{"Add":" (dbSyncErr Exe) ) )"},{"Add":" (? (=0 (dec 'C)))"},{"Add":" (setq Db (ofs Db (dbFile T))) ) ) )"},{"Add":""},{"Add":"(de void restore (Exe)"},{"Add":" (stderrMsg ($ \"Last transaction not completed: Rollback\\n\") null)"},{"Add":" (let Log (val $DbLog)"},{"Add":" (fseek0 Log)"},{"Add":" (let (Db (val $DbFiles) C (val $DBs)) # Iterate DB files"},{"Add":" (loop"},{"Add":" ((dbFile Db) drt NO)"},{"Add":" (? (=0 (dec 'C)))"},{"Add":" (setq Db (ofs Db (dbFile T))) ) )"},{"Add":" (let (Blk (b8 BLK) Buf (b8 (val $MaxBlkSize)))"},{"Add":" (loop"},{"Add":" (unless (== (fread Blk 2 1 Log) 1) # Get file number"},{"Add":" (jnlErr Exe) )"},{"Add":" (? (== (val (i16* Blk)) (hex \"FFFF\"))) # Byte order doesn't matter"},{"Add":" (if (dbfBuf Blk)"},{"Add":" (let Db: (dbFile @)"},{"Add":" (unless"},{"Add":" (and"},{"Add":" (== (fread Blk BLK 1 Log) 1)"},{"Add":" (== (fread Buf (i64 (Db: siz)) 1 Log) 1) )"},{"Add":" (jnlErr Exe) )"},{"Add":" (unless"},{"Add":" (=="},{"Add":" (pwrite"},{"Add":" (Db: fd)"},{"Add":" Buf"},{"Add":" (i64 (Db: siz))"},{"Add":" (shl (getAdr Blk) (i64 (Db: sh))) )"},{"Add":" (i64 (Db: siz)) )"},{"Add":" (dbWrErr) )"},{"Add":" (Db: drt YES) )"},{"Add":" (jnlErr Exe) ) )"},{"Add":" (fsyncDB Exe) ) ) )"},{"Add":""},{"Add":"(de void truncLog (Exe)"},{"Add":" (let Log (val $DbLog)"},{"Add":" (unless (and (fseek0 Log) (truncate0 (fileno Log)))"},{"Add":" (err Exe 0 ($ \"Log truncate error: %s\") (strErrno)) ) ) )"},{"Add":""},{"Add":"# (pool ['sym1 ['lst] ['sym2] ['sym3]]) -> T"},{"Add":"(de _Pool (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Sym1 (save (evSym X)) # Database name"},{"Add":" Dbs (save (evLst (shift X))) # Database sizes"},{"Add":" Sym2 (save (evSym (shift X))) # Replication journal"},{"Add":" Sym3 (save (evSym (shift X))) ) # Transaction log"},{"Add":" (set $Solo ZERO) # Reset solo mode"},{"Add":" (when (val $DBs)"},{"Add":" (_Rollback ZERO)"},{"Add":" (let (Db (val $DbFiles) C @) # Iterate DB files"},{"Add":" (loop"},{"Add":" (let Db: (dbFile Db)"},{"Add":" (close (Db: fd))"},{"Add":" (free (Db: mark)) )"},{"Add":" (? (=0 (dec 'C)))"},{"Add":" (setq Db (ofs Db (dbFile T))) ) )"},{"Add":" (set $DBs 0 $DB $Nil)"},{"Add":" (when (val $DbJnl)"},{"Add":" (fclose @)"},{"Add":" (set $DbJnl null) )"},{"Add":" (when (val $DbLog)"},{"Add":" (fclose @)"},{"Add":" (set $DbLog null) ) )"},{"Add":" (unless (nil? Sym1)"},{"Add":" (let"},{"Add":" (Nm (xName Exe Sym1) # DB name"},{"Add":" Len (pathSize Nm)"},{"Add":" Buf (pathString Nm (b8 (+ Len 4))) # 4 bytes for AO file number"},{"Add":" End (ofs Buf (dec Len))"},{"Add":" Siz (dbFile T) ) # Default to single dbFile"},{"Add":" (when (pair Dbs)"},{"Add":" (let L Dbs"},{"Add":" (while (pair (shift L))"},{"Add":" (inc 'Siz (dbFile T)) ) ) )"},{"Add":" (let"},{"Add":" (Db (set $DbFiles (alloc (val $DbFiles) Siz))"},{"Add":" P (b8 (+ BLK BLK 1))"},{"Add":" Fnr (i32 0)"},{"Add":" Max (i32 0) )"},{"Add":" (loop"},{"Add":" (let Db: (dbFile (set $DbFile Db)) # Set current file"},{"Add":" (Db: db Fnr)"},{"Add":" (if (atom Dbs)"},{"Add":" (Db: sh 2)"},{"Add":" (set (bufAo End Fnr) 0)"},{"Add":" (Db: sh (i32 (int (++ Dbs)))) )"},{"Add":" (cond"},{"Add":" ((ge0 (Db: fd (openRdWr Buf))) # Exists"},{"Add":" (blkPeek 0 P (+ BLK BLK 1)) # Read block shift from block zero"},{"Add":" (Db: siz"},{"Add":" (shl"},{"Add":" (i32 BLKSIZE)"},{"Add":" (Db: sh (i32 (val (+ BLK BLK 1) P))) ) ) ) # Override block shift from 'Dbs'"},{"Add":" ((and"},{"Add":" (== (gErrno) ENOENT)"},{"Add":" (ge0 (Db: fd (openRdWrExcl Buf))) )"},{"Add":" (let"},{"Add":" (N (shl (i32 BLKSIZE) (Db: sh))"},{"Add":" Stk (stack)"},{"Add":" Blk (b8 (Db: siz N)) )"},{"Add":" (memset Blk 0 (i64 N) T) # 'free' is null"},{"Add":" (setAdr"},{"Add":" (if (== (Db:) (val $DbFiles)) # First file"},{"Add":" (* 2 BLKSIZE) # Block zero plus DB root"},{"Add":" BLKSIZE )"},{"Add":" (ofs Blk BLK) ) # Address of 'next' in buffer"},{"Add":" (set # Set block shift in block zero"},{"Add":" (inc (* 2 BLK)) Blk"},{"Add":" (i8 (Db: sh)) )"},{"Add":" (blkPoke 0 Blk N) # Write DB block zero"},{"Add":" (when (== (Db:) (val $DbFiles)) # First file"},{"Add":" (memset Blk 0 16 T) # Clear 'next' link in buffer"},{"Add":" (setAdr 1 Blk) # First block for DB root into link field"},{"Add":" (blkPoke (i64 (Db: siz)) Blk N) ) # has block size position"},{"Add":" (stack Stk) ) )"},{"Add":" (T (openErr Exe Sym1)) )"},{"Add":" (closeOnExec Exe (Db: fd))"},{"Add":" (when (> (Db: siz) Max)"},{"Add":" (setq Max @) )"},{"Add":" (Db: mark null)"},{"Add":" (Db: mrks 0)"},{"Add":" (Db: flu -1)"},{"Add":" (Db: lck (Db: drt NO))"},{"Add":" (inc 'Fnr)"},{"Add":" (? (atom Dbs))"},{"Add":" (setq Db (ofs Db (dbFile T))) ) )"},{"Add":" (set"},{"Add":" $DB $Db1"},{"Add":" $DBs Fnr"},{"Add":" $MaxBlkSize Max"},{"Add":" $DbBlock (alloc (val $DbBlock) (i64 Max)) ) ) )"},{"Add":" (unless (nil? Sym2) # Replication journal"},{"Add":" (let Nm (xName Exe Sym2) # Journal name"},{"Add":" (unless (fopen (pathString Nm (b8 (pathSize Nm))) ($ \"a\"))"},{"Add":" (openErr Exe Sym2) )"},{"Add":" (set $DbJnl @)"},{"Add":" (closeOnExec Exe (fileno @)) ) )"},{"Add":" (unless (nil? Sym3) # Transaction log"},{"Add":" (let Nm (xName Exe Sym3) # Transaction log name"},{"Add":" (unless (fopen (pathString Nm (b8 (pathSize Nm))) ($ \"a+\"))"},{"Add":" (openErr Exe Sym3) )"},{"Add":" (set $DbLog @)"},{"Add":" (closeOnExec Exe (fileno @))"},{"Add":" (when (transaction)"},{"Add":" (restore Exe) )"},{"Add":" (truncLog Exe) ) ) ) )"},{"Add":" $T )"},{"Add":""},{"Add":"# (pool2 'sym . prg) -> any"},{"Add":"(de _Pool2 (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Sym (evSym X)"},{"Add":" Nm (xName Exe Sym)"},{"Add":" Jnl (val $DbJnl)"},{"Add":" Log (val $DbLog)"},{"Add":" C (val $DBs)"},{"Add":" FDs (b32 C) )"},{"Add":" (set $DbJnl null $DbLog null) # Stop journal and transaction log"},{"Add":" (let (Db (val $DbFiles) I (i32 0)) # Iterate DB files"},{"Add":" (loop"},{"Add":" (let Db: (dbFile Db)"},{"Add":" (set (ofs FDs I) (Db: fd)) ) # Save file descriptor"},{"Add":" (? (== C (inc 'I)))"},{"Add":" (setq Db (ofs Db (dbFile T))) ) )"},{"Add":" (let"},{"Add":" (Len (pathSize Nm)"},{"Add":" Buf (pathString Nm (b8 (+ Len 4))) # 4 bytes for AO file number"},{"Add":" End (ofs Buf (dec Len)) )"},{"Add":" (let (Db (val $DbFiles) I (i32 0)) # Iterate DB files"},{"Add":" (loop"},{"Add":" (let Db: (dbFile Db)"},{"Add":" (set (bufAo End (Db: db)) 0)"},{"Add":" (when (lt0 (Db: fd (openRdWr Buf))) # Try to open"},{"Add":" (openErr Exe Sym) )"},{"Add":" (closeOnExec Exe @) )"},{"Add":" (? (== C (inc 'I)))"},{"Add":" (setq Db (ofs Db (dbFile T))) ) ) )"},{"Add":" (prog1"},{"Add":" (run (cdr X)"},{"Add":" (let (Db (val $DbFiles) I (i32 0)) # Iterate DB files"},{"Add":" (loop"},{"Add":" (let Db: (dbFile Db)"},{"Add":" (close (Db: fd)) # Close file"},{"Add":" (Db: fd (val (ofs FDs I))) ) # Restore file descriptor"},{"Add":" (? (== C (inc 'I)))"},{"Add":" (setq Db (ofs Db (dbFile T))) ) )"},{"Add":" (set $DbLog Log $DbJnl Jnl) ) ) ) )"},{"Add":""},{"Add":"# (journal ['T] 'any ..) -> T"},{"Add":"(de _Journal (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Sym (evSym X)"},{"Add":" Jnl (val $DbJnl)"},{"Add":" Log (val $DbLog)"},{"Add":" Buf (b8 (val $MaxBlkSize))"},{"Add":" Blk (b8 BLK) )"},{"Add":" (stkChk Exe)"},{"Add":" (when (t? Sym)"},{"Add":" (set $DbJnl null $DbLog null) # Stop journal and transaction log"},{"Add":" (setq Sym (evSym (shift X))) )"},{"Add":" (loop"},{"Add":" (let"},{"Add":" (Nm (xName Exe Sym) # Journal name"},{"Add":" Fp (fopen (pathString Nm (b8 (pathSize Nm))) ($ \"r\")) )"},{"Add":" (unless Fp"},{"Add":" (openErr Exe Sym) )"},{"Add":" (while (ge0 (getc_unlocked Fp))"},{"Add":" (let Siz @"},{"Add":" (unless (== (fread Blk 2 1 Fp) 1) # Read file number"},{"Add":" (jnlErr Exe) )"},{"Add":" (if (dbfBuf Blk) # Get file number from 'Buf' to 'DbFile'"},{"Add":" (let Db: (dbFile @)"},{"Add":" #! Temporary backward compatibility"},{"Add":" (when (== Siz BLKSIZE)"},{"Add":" (setq Siz (Db: siz)) )"},{"Add":" #!"},{"Add":" (unless Siz"},{"Add":" (setq Siz (Db: siz)) )"},{"Add":" (unless"},{"Add":" (and"},{"Add":" (== (fread Blk BLK 1 Fp) 1)"},{"Add":" (== (fread Buf (i64 Siz) 1 Fp) 1) )"},{"Add":" (jnlErr Exe) )"},{"Add":" (blkPoke"},{"Add":" (shl (getAdr Blk) (i64 (Db: sh)))"},{"Add":" Buf"},{"Add":" Siz ) )"},{"Add":" (dbfErr Exe) ) ) ) # No local file"},{"Add":" (fclose Fp)"},{"Add":" (? (atom (shift X)))"},{"Add":" (setq Sym (evSym X)) ) )"},{"Add":" (set $DbLog Log $DbJnl Jnl)"},{"Add":" $T ) )"},{"Add":""},{"Add":"# (id 'num ['num]) -> sym"},{"Add":"# (id 'sym [NIL]) -> num"},{"Add":"# (id 'sym T) -> (num . num)"},{"Add":"(de _Id (Exe)"},{"Add":" (let (X (cdr Exe) Y (eval (++ X)))"},{"Add":" (if (cnt? Y) # File number or object ID"},{"Add":" (extern"},{"Add":" (if (nil? (eval (car X)))"},{"Add":" (extNm 0 (int Y))"},{"Add":" (extNm (dec (i32 (int Y))) (xCnt Exe @)) ) )"},{"Add":" (needSymb Exe Y)"},{"Add":" (unless (sym? (val (tail (needSymb Exe Y))))"},{"Add":" (extErr Exe Y) )"},{"Add":" (let"},{"Add":" (Nm (name (& (val (tail Y)) -9))"},{"Add":" Z (cnt (objId Nm)) )"},{"Add":" (if (nil? (eval (car X))) # Return only object ID"},{"Add":" Z"},{"Add":" (cons"},{"Add":" (cnt (i64 (inc (objFile Nm))))"},{"Add":" Z ) ) ) ) ) )"},{"Add":""},{"Add":"# (blk 'fd 'cnt 'siz ['fd2]) -> lst"},{"Add":"# (blk 'fd 0) -> (cnt . siz)"},{"Add":"(de _Blk (Exe)"},{"Add":" (let (X (cdr Exe) Db: (dbFile (b8+ (dbFile T))))"},{"Add":" (Db: fd (i32 (evCnt Exe X))) # File descriptor"},{"Add":" (if (=0 (evCnt Exe (shift X))) # Block number"},{"Add":" (let Buf (b8 BLK)"},{"Add":" (unless"},{"Add":" (=="},{"Add":" (+ BLK 1)"},{"Add":" (pread (Db: fd) Buf (+ BLK 1) BLK) )"},{"Add":" (dbRdErr) )"},{"Add":" (cons"},{"Add":" (cnt (shr (getAdr Buf) 6)) # Block count"},{"Add":" (cnt (i64 (val (ofs Buf BLK)))) ) ) # Block shift"},{"Add":" (let"},{"Add":" (N (shl @ 6) # Block index"},{"Add":" P (val $DbBlock) # Block buffer"},{"Add":" Siz # Block size"},{"Add":" (shl"},{"Add":" (i32 BLKSIZE)"},{"Add":" (Db: sh (i32 (evCnt Exe (shift X)))) ) # 'siz' scale factor"},{"Add":" Fd"},{"Add":" (i32"},{"Add":" (if (atom (shift X))"},{"Add":" -1"},{"Add":" (evCnt Exe @)) ) )"},{"Add":" (when (> (Db: siz Siz) (val $MaxBlkSize))"},{"Add":" (set $MaxBlkSize Siz $DbBlock (alloc P (i64 Siz))) )"},{"Add":" (set $DbFile (Db:))"},{"Add":" (when (ge0 Fd)"},{"Add":" (rdLockWait Fd 1) ) # Lock for reading"},{"Add":" (prog1"},{"Add":" (let Blk (rdBlock N) # Read first block"},{"Add":" (if (<> 1 (& (val Blk) BLKTAG)) # ID-Block"},{"Add":" $Nil"},{"Add":" (set"},{"Add":" $GetBin (fun (i32) getBlock)"},{"Add":" $Extn (val $ExtN) )"},{"Add":" (let"},{"Add":" (L (cons (binRead) $Nil) # Read symbol value"},{"Add":" R (save L) )"},{"Add":" (until (nil? (binRead)) # Property key"},{"Add":" (setq L (set 2 L (cons @ $Nil)))"},{"Add":" (unless (t? (binRead)) # Next property value"},{"Add":" (set L (cons @ (car L))) ) )"},{"Add":" R ) ) )"},{"Add":" (when (ge0 Fd)"},{"Add":" (unLock @ 0 0) ) ) ) ) ) )"},{"Add":""},{"Add":"# (seq 'cnt|sym1) -> sym | NIL"},{"Add":"(de _Seq (Exe)"},{"Add":" (let"},{"Add":" (X (eval (cadr Exe))"},{"Add":" F (dec (i32 (int X)))"},{"Add":" N 0"},{"Add":" Buf (b8 BLK) )"},{"Add":" (unless (cnt? X)"},{"Add":" (unless (sym? (val (tail (needSymb Exe X))))"},{"Add":" (extErr Exe X) )"},{"Add":" (let Nm (name (& (val (tail X)) -9))"},{"Add":" (setq"},{"Add":" F (objFile Nm)"},{"Add":" N (shl (objId Nm) 6) ) ) )"},{"Add":" (when (>= F (val $DBs))"},{"Add":" (dbfErr Exe) )"},{"Add":" (let Db:"},{"Add":" (dbFile"},{"Add":" (set $DbFile"},{"Add":" (ofs (val $DbFiles) (* F (dbFile T))) ) )"},{"Add":" (rdLockDb) # Lock for reading"},{"Add":" (blkPeek BLK Buf BLK) # Read 'next' from block zero"},{"Add":" (let Next (getAdr Buf)"},{"Add":" (prog1"},{"Add":" (loop"},{"Add":" (? (>= (inc 'N BLKSIZE) Next) $Nil)"},{"Add":" (blkPeek (shl N (i64 (Db: sh))) Buf BLK) # Read link field"},{"Add":" (? (== 1 (& (val Buf) BLKTAG)) # ID-Block"},{"Add":" (extern (extNm F (shr N 6))) ) )"},{"Add":" (unLockDb 1) ) ) ) ) ) # Unlock"},{"Add":""},{"Add":"# (lieu 'any) -> sym | NIL"},{"Add":"(de _Lieu (Exe)"},{"Add":" (let X (eval (cadr Exe))"},{"Add":" (nond"},{"Add":" ((symb? X) $Nil)"},{"Add":" ((sym? (val (tail X))) $Nil)"},{"Add":" (NIL"},{"Add":" (let Nm (name (& (val (tail X)) -9))"},{"Add":" (setq Nm (add Nm Nm))"},{"Add":" (cond"},{"Add":" (@@ # Dirty"},{"Add":" (setq Nm (add Nm Nm))"},{"Add":" (if @@ $Nil X) ) # Deleted"},{"Add":" (T"},{"Add":" (setq Nm (add Nm Nm))"},{"Add":" (if @@ X $Nil) ) ) ) ) ) ) ) # Loaded"},{"Add":""},{"Add":"# (lock ['sym]) -> cnt | NIL"},{"Add":"(de _Lock (Exe)"},{"Add":" (if"},{"Add":" (if (nil? (eval (cadr Exe)))"},{"Add":" (tryLock (val $DbFiles) 0 0) # Use first dbFile"},{"Add":" (let X (needSymb Exe @)"},{"Add":" (unless (sym? (val (tail (needSymb Exe X))))"},{"Add":" (extErr Exe X) )"},{"Add":" (let"},{"Add":" (Nm (name (& (val (tail X)) -9))"},{"Add":" F (objFile Nm)"},{"Add":" N (objId Nm) )"},{"Add":" (when (>= F (val $DBs))"},{"Add":" (dbfErr Exe) )"},{"Add":" (let Db: (dbFile (ofs (val $DbFiles) (* F (dbFile T))))"},{"Add":" (tryLock (Db:) (* N (i64 (Db: siz))) 1) ) ) ) )"},{"Add":" (cnt (i64 @))"},{"Add":" $Nil ) )"},{"Add":""},{"Add":"(local) (db dbFetch dbTouch dbZap)"},{"Add":""},{"Add":"(de void db (Exe Sym Nm)"},{"Add":" (save Sym)"},{"Add":" (let F (objFile Nm) # Get file number"},{"Add":" (if (>= F (val $DBs))"},{"Add":" (let Ext (val $Ext) # Non-local file"},{"Add":" (if"},{"Add":" (or"},{"Add":" (atom Ext) # First offset"},{"Add":" (> (i32 (int (caar @))) (inc 'F)) ) # too big"},{"Add":" (dbfErr Exe)"},{"Add":" (while # Find DB extension"},{"Add":" (and"},{"Add":" (pair (cdr Ext))"},{"Add":" (>= F (i32 (int (caar @)))) )"},{"Add":" (shift Ext) )"},{"Add":" (let"},{"Add":" (V (push NIL $Nil ZERO Sym) # [car cdr name arg]"},{"Add":" E (push NIL V ZERO (cdar Ext)) ) # [car cdr name fun]"},{"Add":" (set V (ofs V 3) E (ofs E 3))"},{"Add":" (let X (evList E)"},{"Add":" (set Sym (++ X)) # Set value"},{"Add":" (if (atom X)"},{"Add":" (set (tail Sym) Nm) # Set status/name"},{"Add":" (set (tail Sym) (sym X)) # Set property list"},{"Add":" (while (pair (cdr X)) # Find end"},{"Add":" (setq X @) )"},{"Add":" (set 2 X Nm) ) ) ) ) ) # Set status/name"},{"Add":" # Local file"},{"Add":" (set $DbFile"},{"Add":" (ofs (val $DbFiles) (* F (dbFile T))) )"},{"Add":" (rdLockDb) # Lock for reading"},{"Add":" (let Blk (rdBlock (shl (objId Nm) 6)) # Read first block"},{"Add":" (unless (== 1 (& (val Blk) BLKTAG)) # ID-Block"},{"Add":" (err Exe Sym ($ \"Bad ID\") null) ) )"},{"Add":" (set"},{"Add":" $GetBin (fun (i32) getBlock)"},{"Add":" $Extn 0 )"},{"Add":" (set Sym (binRead)) # Read symbol value"},{"Add":" (if (nil? (binRead)) # First property key"},{"Add":" (set (tail Sym) Nm) # Set status/name"},{"Add":" (set (tail Sym) # Set tail"},{"Add":" (sym (setq Nm (cons @ Nm))) )"},{"Add":" (unless (t? (binRead)) # First property value"},{"Add":" (set Nm (cons @ (val Nm))) ) # Cons with key"},{"Add":" (until (nil? (binRead)) # Next property key"},{"Add":" (set 2 Nm (cons @ (cdr Nm)))"},{"Add":" (shift Nm)"},{"Add":" (unless (t? (binRead)) # Next property value"},{"Add":" (set Nm (cons @ (val Nm))) ) ) ) # Cons with key"},{"Add":" (unLockDb 1) ) ) ) # Unlock"},{"Add":""},{"Add":"(de void dbFetch (Exe Sym)"},{"Add":" (let Nm (val (tail Sym))"},{"Add":" (when"},{"Add":" (and"},{"Add":" (num? Nm) # No properties"},{"Add":" (prog (setq Nm (add Nm Nm)) (not @@)) # Not dirty"},{"Add":" (prog (setq Nm (add Nm Nm)) (not @@)) ) # Not loaded"},{"Add":" (set (tail Sym) (setq Nm (shr 1 Nm 2))) # Set \"loaded\""},{"Add":" (tailcall (db Exe Sym Nm)) ) ) )"},{"Add":""},{"Add":"(de void dbTouch (Exe Sym)"},{"Add":" (let (Q (tail Sym) Nm (val Q))"},{"Add":" (unless (num? Nm) # Has properties"},{"Add":" (setq Nm (any (& Nm -9))) # Clear 'extern' tag"},{"Add":" (loop"},{"Add":" (setq Q (ofs Nm 1)) # Skip property"},{"Add":" (? (num? (setq Nm (val Q)))) ) ) # Find name"},{"Add":" (setq Nm (add Nm Nm))"},{"Add":" (unless @@ # Not yet dirty"},{"Add":" (setq Nm (add Nm Nm))"},{"Add":" (set Q (setq Nm (shr 2 Nm 2))) # Set \"dirty\""},{"Add":" (unless @@ # Not loaded"},{"Add":" (tailcall (db Exe Sym Nm)) ) ) ) )"},{"Add":""},{"Add":"# (touch 'sym) -> sym"},{"Add":"(de _Touch (Exe)"},{"Add":" (let X (eval (cadr Exe))"},{"Add":" (when (and (symb? X) (sym? (val (tail X))))"},{"Add":" (dbTouch Exe X) )"},{"Add":" X ) )"},{"Add":""},{"Add":"(de void dbZap (Sym)"},{"Add":" (let Tail (val (tail Sym)) # Get tail"},{"Add":" (unless (num? Tail) # Any properties"},{"Add":" (setq Tail (& Tail -9)) # Clear 'extern' tag"},{"Add":" (loop"},{"Add":" (? (num? (shift Tail))) ) # Find name"},{"Add":" (setq Tail (sym Tail)) ) # Set 'extern' tag"},{"Add":" (set (tail Sym) (shr 3 (shl Tail 2) 2)) # Set \"deleted\""},{"Add":" (set Sym $Nil) ) ) # Clear value"},{"Add":""},{"Add":"# (commit ['any] [exe1] [exe2]) -> T"},{"Add":"(de _Commit (Exe)"},{"Add":" (let (Args (cdr Exe) Rpc (save (eval (++ Args))) Notify NO)"},{"Add":" (set $Protect (inc (val $Protect)))"},{"Add":" (wrLockDb)"},{"Add":" (when (val $DbJnl)"},{"Add":" (lockJnl) )"},{"Add":" (when (val $DbLog)"},{"Add":" (let (Db (val $DbFiles) C (val $DBs)) # Iterate DB files"},{"Add":" (loop"},{"Add":" (let Db: (dbFile Db)"},{"Add":" (Db: drt NO) # Clear dirty flag"},{"Add":" (Db: flu 0) ) # and free list use count"},{"Add":" (? (=0 (dec 'C)))"},{"Add":" (setq Db (ofs Db (dbFile T))) ) )"},{"Add":" (let (Tos 0 P (val $Extern)) # Iterate external symbol tree"},{"Add":" (loop"},{"Add":" (loop"},{"Add":" (let X (cdr P) # Get subtrees"},{"Add":" (? (atom (car X))) # Left subtree"},{"Add":" (let Y P # Go left"},{"Add":" (setq P @) # Invert tree"},{"Add":" (set X Tos)"},{"Add":" (setq Tos Y) ) ) )"},{"Add":" (loop"},{"Add":" (let"},{"Add":" (Nm (name (& (val (tail (val P))) -9)) # Get external symbol name"},{"Add":" N (add Nm Nm) )"},{"Add":" (when @@ # Dirty or deleted"},{"Add":" (let F (objFile Nm) # Get file number"},{"Add":" (when (> (val $DBs) F) # Local file"},{"Add":" (set $DbFile"},{"Add":" (ofs (val $DbFiles) (* F (dbFile T))) )"},{"Add":" (rdBlock (shl (objId Nm) 6))"},{"Add":" (loop"},{"Add":" (logBlock)"},{"Add":" (? (=0 (val $BlkLink)))"},{"Add":" (rdBlock @) )"},{"Add":" (let Db: (dbFile (val $DbFile))"},{"Add":" (Db: drt YES)"},{"Add":" (add N N)"},{"Add":" (unless @@ # Not deleted"},{"Add":" (Db: flu (inc (Db: flu))) ) ) ) ) ) )"},{"Add":" (let X (cdr P)"},{"Add":" (? (pair (cdr X)) # Right subtree"},{"Add":" (let Y P # Go right"},{"Add":" (setq P @) # Invert tree"},{"Add":" (set 2 X Tos)"},{"Add":" (setq Tos (| Y 8)) ) ) ) # First visit"},{"Add":" (loop"},{"Add":" (unless Tos"},{"Add":" (goto 1) )"},{"Add":" (? (=0 (& Tos 8)) # Second visit"},{"Add":" (let (X Tos Y (cdr X)) # Nodes"},{"Add":" (setq Tos (car Y)) # TOS on up link"},{"Add":" (set Y P)"},{"Add":" (setq P X) ) )"},{"Add":" (setq Tos (& Tos -9)) # Clear visit bit"},{"Add":" (let (X Tos Y (cdr X)) # Nodes"},{"Add":" (setq Tos (cdr Y))"},{"Add":" (set 2 Y P)"},{"Add":" (setq P X) ) ) ) ) )"},{"Add":" (: 1"},{"Add":" (let (P (val $DbFiles) C (val $DBs)) # Iterate DB files"},{"Add":" (loop"},{"Add":" (when ((dbFile P) flu)"},{"Add":" (let N @"},{"Add":" (set $DbFile P)"},{"Add":" (rdBlock 0) # Save Block 0"},{"Add":" (loop # and free list"},{"Add":" (logBlock)"},{"Add":" (? (=0 (dec 'N)))"},{"Add":" (? (=0 (val $BlkLink)))"},{"Add":" (rdBlock @) ) ) )"},{"Add":" (? (=0 (dec 'C)))"},{"Add":" (setq P (ofs P (dbFile T))) ) )"},{"Add":" (let Log (val $DbLog)"},{"Add":" (putc_unlocked (hex \"FF\") Log) # Write end marker"},{"Add":" (putc_unlocked (hex \"FF\") Log)"},{"Add":" (fflush Log)"},{"Add":" (when (lt0 (fsync (fileno Log)))"},{"Add":" (err Exe 0 ($ \"Transaction fsync error: %s\") (strErrno)) ) ) ) )"},{"Add":" (eval (++ Args)) # Eval pre-expression"},{"Add":" (when (and (not (nil? Rpc)) (or (val $Tell) (val $Children)))"},{"Add":" (setq Notify YES)"},{"Add":" (set"},{"Add":" $BufX (val $TellBuf) # Save current 'tell' env"},{"Add":" $PtrX (val $Ptr)"},{"Add":" $EndX (val $End) )"},{"Add":" (tellBeg (b8 (val PipeBufSize))) # Start 'tell' message"},{"Add":" (prTell Rpc) )"},{"Add":" (let (Tos 0 P (val $Extern)) # Iterate external symbol tree"},{"Add":" (loop"},{"Add":" (loop"},{"Add":" (let X (cdr P) # Get subtrees"},{"Add":" (? (atom (car X))) # Left subtree"},{"Add":" (let Y P # Go left"},{"Add":" (setq P @) # Invert tree"},{"Add":" (set X Tos)"},{"Add":" (setq Tos Y) ) ) )"},{"Add":" (loop"},{"Add":" (let (Sym (val P) Q (tail Sym) Nm (val Q)) # Get external symbol"},{"Add":" (unless (num? Nm) # Any properties"},{"Add":" (setq Nm (any (& Nm -9))) # Clear 'extern' tag"},{"Add":" (loop"},{"Add":" (setq Q (ofs Nm 1)) # Skip property"},{"Add":" (? (num? (setq Nm (val Q)))) ) ) # Find name"},{"Add":" (let N (add Nm Nm)"},{"Add":" (when @@ # Dirty or deleted"},{"Add":" (let F (objFile Nm) # Get file number"},{"Add":" (setq N (add N N))"},{"Add":" (cond"},{"Add":" (@@ # Deleted"},{"Add":" (set Q (shr N 2)) # Set \"not loaded\""},{"Add":" (when (> (val $DBs) F) # Local file"},{"Add":" (set $DbFile"},{"Add":" (ofs (val $DbFiles) (* F (dbFile T))) )"},{"Add":" (cleanUp (shl (objId Nm) 6))"},{"Add":" (when Notify"},{"Add":" (let P (val $TellBuf)"},{"Add":" (when"},{"Add":" (>= # Space for EXTERN+<8>+END"},{"Add":" (val $Ptr)"},{"Add":" (ofs P (- (val PipeBufSize) 10)) )"},{"Add":" (tellEnd -1) # Send close 'tell' to all PIDs"},{"Add":" (set # Partial 'tellBeg'"},{"Add":" (inc 'P 8) BEG # 8 bytes space (PID and count)"},{"Add":" $Ptr (inc P) ) # Begin a list"},{"Add":" (prTell Rpc) ) )"},{"Add":" (prTell Sym) ) ) ) # Send external symbol to 'tell'"},{"Add":" (T # Dirty"},{"Add":" (set Q (shr 1 N 2)) # Set \"loaded\""},{"Add":" (when (> (val $DBs) F) # Local file"},{"Add":" (set $DbFile"},{"Add":" (ofs (val $DbFiles) (* F (dbFile T))) )"},{"Add":" (let Blk (rdBlock (shl (objId Nm) 6)) # Read first block"},{"Add":" (set"},{"Add":" Blk (| (val Blk) 1) # First block in object (might be new)"},{"Add":" $PutBin (fun (void i8) putBlock)"},{"Add":" $Extn 0 )"},{"Add":" (binPrint (val Sym)) # Print value"},{"Add":" (let L (& (val (tail Sym)) -9) # Get Properties"},{"Add":" (until (num? L)"},{"Add":" (let V (++ L)"},{"Add":" (nond"},{"Add":" ((atom V) # Not boolean"},{"Add":" (unless (nil? (cdr V)) # Not volatile property"},{"Add":" (binPrint @) # Print key"},{"Add":" (binPrint (car V)) ) ) # and value"},{"Add":" ((nil? V) # Not volatile property"},{"Add":" (binPrint V) # Print key"},{"Add":" (binPrint $T) ) ) ) ) ) # and 'T'"},{"Add":" (putBlock NIX)"},{"Add":" (setAdr # Clear link"},{"Add":" (i64 (& (val (val $DbBlock)) BLKTAG)) # Lowest byte of link field"},{"Add":" Blk )"},{"Add":" (wrBlock) # Write block"},{"Add":" (when (val $BlkLink) # More blocks"},{"Add":" (cleanUp @) ) # Clean up"},{"Add":" (when Notify"},{"Add":" (let P (val $TellBuf)"},{"Add":" (when"},{"Add":" (>= # Space for EXTERN+<8>+END"},{"Add":" (val $Ptr)"},{"Add":" (ofs P (- (val PipeBufSize) 10)) )"},{"Add":" (tellEnd -1) # Send close 'tell' to all PIDs"},{"Add":" (set # Partial 'tellBeg'"},{"Add":" (inc 'P 8) BEG # 8 bytes space (PID and count)"},{"Add":" $Ptr (inc P) ) # Begin a list"},{"Add":" (prTell Rpc) ) )"},{"Add":" (prTell Sym) ) ) ) ) ) ) ) ) ) # Send external symbol to 'tell'"},{"Add":" (let X (cdr P)"},{"Add":" (? (pair (cdr X)) # Right subtree"},{"Add":" (let Y P # Go right"},{"Add":" (setq P @) # Invert tree"},{"Add":" (set 2 X Tos)"},{"Add":" (setq Tos (| Y 8)) ) ) ) # First visit"},{"Add":" (loop"},{"Add":" (unless Tos"},{"Add":" (goto 2) )"},{"Add":" (? (=0 (& Tos 8)) # Second visit"},{"Add":" (let (X Tos Y (cdr X)) # Nodes"},{"Add":" (setq Tos (car Y)) # TOS on up link"},{"Add":" (set Y P)"},{"Add":" (setq P X) ) )"},{"Add":" (setq Tos (& Tos -9)) # Clear visit bit"},{"Add":" (let (X Tos Y (cdr X)) # Nodes"},{"Add":" (setq Tos (cdr Y))"},{"Add":" (set 2 Y P)"},{"Add":" (setq P X) ) ) ) ) )"},{"Add":" (: 2"},{"Add":" (when Notify"},{"Add":" (tellEnd -1)"},{"Add":" (set"},{"Add":" $TellBuf (val $BufX)"},{"Add":" $Ptr (val $PtrX)"},{"Add":" $End (val $EndX) ) ) )"},{"Add":" (eval (car Args)) # Eval post-expression"},{"Add":" (when (val $DbJnl)"},{"Add":" (unLockJnl) )"},{"Add":" (when (pair (val $Zap)) # Objects to delete"},{"Add":" (let"},{"Add":" (Z @"},{"Add":" Out (val $OutFile)"},{"Add":" Nm (xName Exe (cdr Z))"},{"Add":" S (pathString Nm (b8 (pathSize Nm)))"},{"Add":" Out: (outFile (b8+ (outFile T))) )"},{"Add":" (when (lt0 (openWrAppend S))"},{"Add":" (openErr Exe (cdr Z)) )"},{"Add":" (Out: fd @)"},{"Add":" (Out: ix 0)"},{"Add":" (Out: tty NO)"},{"Add":" (set"},{"Add":" $OutFile (Out:)"},{"Add":" $PutBin (fun (void i8) _putStdout)"},{"Add":" $Extn 0 )"},{"Add":" (let Y (car Z) # Print zap list"},{"Add":" (while (pair Y)"},{"Add":" (binPrint (++ Y) ) )"},{"Add":" (flush (Out:))"},{"Add":" (close (Out: fd))"},{"Add":" (set Z $Nil) # Clear zap list"},{"Add":" (set $OutFile Out) ) ) ) # Restore output channel"},{"Add":" (when (val $DbLog)"},{"Add":" (fsyncDB Exe)"},{"Add":" (truncLog Exe) )"},{"Add":" (unLockDb 0) # Unlock all"},{"Add":" (unsync)"},{"Add":" (set $Protect (dec (val $Protect)))"},{"Add":" (let (P (val $DbFiles) C (val $DBs)) # Iterate DB files"},{"Add":" (loop"},{"Add":" ((dbFile P) flu -1) # Init free list use count"},{"Add":" (? (=0 (dec 'C)))"},{"Add":" (setq P (ofs P (dbFile T))) ) )"},{"Add":" $T ) )"},{"Add":""},{"Add":"# (mark 'sym|0 [NIL | T | 0]) -> flg"},{"Add":"(de _Mark (Exe)"},{"Add":" (let (X (cdr Exe) Y (eval (++ X)))"},{"Add":" (if (== Y ZERO) # Clear all marks"},{"Add":" (let (Db (val $DbFiles) C (val $DBs)) # Iterate DB files"},{"Add":" (while (ge0 (dec 'C))"},{"Add":" (let Db: (dbFile Db)"},{"Add":" (Db: mrks 0) # Set mark vector size to zero"},{"Add":" (free (Db: mark)) # Free mark bit vector"},{"Add":" (Db: mark null) ) # and set to null"},{"Add":" (setq Db (ofs Db (dbFile T))) )"},{"Add":" $Nil )"},{"Add":" (unless (sym? (val (tail (needSymb Exe Y))))"},{"Add":" (extErr Exe Y) )"},{"Add":" (let"},{"Add":" (Nm (name (& (val (tail Y)) -9))"},{"Add":" F (objFile Nm)"},{"Add":" N (objId Nm) )"},{"Add":" (if (>= F (val $DBs))"},{"Add":" $T # Non-local file"},{"Add":" (let"},{"Add":" (Flg (eval (car X)) # Second arg"},{"Add":" Db: (dbFile (ofs (val $DbFiles) (* F (dbFile T))))"},{"Add":" P (Db: mark) # Mark bit vector"},{"Add":" I (shr N 3) ) # Byte index"},{"Add":" (when (>= I (Db: mrks)) # Greater or equal to mark vector size"},{"Add":" (let J (inc I)"},{"Add":" (memset"},{"Add":" (ofs"},{"Add":" (setq P (Db: mark (alloc P J))) # Increase mark bit vector"},{"Add":" (Db: mrks) )"},{"Add":" 0 # Clear new area"},{"Add":" (- J (Db: mrks)) )"},{"Add":" (Db: mrks J) ) ) # New mark vector size"},{"Add":" (setq"},{"Add":" P (ofs P I) # Byte position in bit vector"},{"Add":" N (i8 (shl 1 (& N 7))) ) # Bit position"},{"Add":" (let B (val P) # Old value"},{"Add":" (cond"},{"Add":" ((& B N) # Bit is set"},{"Add":" (when (== ZERO Flg)"},{"Add":" (set P (& B (x| N -1))) ) # Clear mark"},{"Add":" $T ) # Return T"},{"Add":" (T # Bit is not set"},{"Add":" (when (== $T Flg)"},{"Add":" (set P (| B N)) ) # Set mark"},{"Add":" $Nil ) ) ) ) ) ) ) ) ) # Return NIL"},{"Add":""},{"Add":"# (free 'cnt) -> (sym . lst)"},{"Add":"(de _Free (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" F (dec (i32 (evCnt Exe X)))"},{"Add":" Buf (b8 (* BLK 2)) )"},{"Add":" (when (>= F (val $DBs))"},{"Add":" (dbfErr Exe) )"},{"Add":" (set $DbFile"},{"Add":" (ofs (val $DbFiles) (* F (dbFile T))) )"},{"Add":" (rdLockDb) # Lock for reading"},{"Add":" (blkPeek 0 Buf (* 2 BLK)) # Read 'free' and 'next' from block zero"},{"Add":" (set $BlkLink (getAdr Buf)) # free' as next block"},{"Add":" (let"},{"Add":" (Y"},{"Add":" (cons # CAR of result list"},{"Add":" (extern # 'next' symbol"},{"Add":" (extNm F (shr (getAdr (ofs Buf BLK)) 6)) )"},{"Add":" $Nil )"},{"Add":" R (save Y) )"},{"Add":" (while (val $BlkLink) # Collect free list"},{"Add":" (setq Y"},{"Add":" (set 2 Y"},{"Add":" (cons (extern (extNm F (shr @ 6))) $Nil) ) )"},{"Add":" (rdBlock @) )"},{"Add":" (unLockDb 1) # Unlock"},{"Add":" R ) ) )"},{"Add":""},{"Add":"# (dbck ['cnt] 'flg) -> any"},{"Add":"(de _Dbck (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (eval (car X))"},{"Add":" Jnl (val $DbJnl)"},{"Add":" Buf (b8 (* BLK 2))"},{"Add":" Cnt BLKSIZE"},{"Add":" Syms 0"},{"Add":" Blks 0 )"},{"Add":" (if (cnt? Y)"},{"Add":" (let F (dec (i32 (int Y)))"},{"Add":" (when (>= F (val $DBs))"},{"Add":" (dbfErr Exe) )"},{"Add":" (set $DbFile"},{"Add":" (ofs (val $DbFiles) (* F (dbFile T))) )"},{"Add":" (setq Y (eval (cadr X))) ) # Use first dbFile"},{"Add":" (set $DbFile (val $DbFiles)) )"},{"Add":" (set $Protect (inc (val $Protect)))"},{"Add":" (wrLockDb)"},{"Add":" (when Jnl"},{"Add":" (lockJnl) # Write lock journal"},{"Add":" (set $DbJnl null) ) # Disable Journal"},{"Add":" (blkPeek 0 Buf (* 2 BLK)) # Read 'free' and 'next' from block zero"},{"Add":" (set $BlkLink (getAdr Buf)) # free' as next block"},{"Add":" (let Next (getAdr (ofs Buf BLK)) # Get 'next'"},{"Add":" (while (val $BlkLink) # Check free list"},{"Add":" (let Blk (rdBlock @)"},{"Add":" (set Blk (| (val Blk) BLKTAG)) ) # Mark free list"},{"Add":" (when (> (inc 'Cnt BLKSIZE) Next)"},{"Add":" (setq Y (mkStr ($ \"Circular free list\")))"},{"Add":" (goto 9) )"},{"Add":" (wrBlock) )"},{"Add":" (set $DbJnl Jnl) # Restore Journal"},{"Add":" (let P BLKSIZE"},{"Add":" (until (== P Next) # Check all chains"},{"Add":" (let Blk (rdBlock P)"},{"Add":" (case (& (val Blk) BLKTAG)"},{"Add":" (0 # Free block"},{"Add":" (inc 'Cnt BLKSIZE)"},{"Add":" (memcpy Blk Buf BLK T)"},{"Add":" (wrBlock)"},{"Add":" (setAdr P Buf)"},{"Add":" (blkPoke 0 Buf BLK) )"},{"Add":" (1 # ID-block of symbol"},{"Add":" (inc 'Syms)"},{"Add":" (let I (i8 2)"},{"Add":" (loop # Check chains"},{"Add":" (inc 'Blks)"},{"Add":" (inc 'Cnt BLKSIZE)"},{"Add":" (? (=0 (val $BlkLink)))"},{"Add":" (unless"},{"Add":" (== I"},{"Add":" (& (val (rdBlock @)) BLKTAG) )"},{"Add":" (setq Y (mkStr ($ \"Bad chain\")))"},{"Add":" (goto 9) )"},{"Add":" (when (> BLKTAG I)"},{"Add":" (inc 'I) ) ) ) ) ) )"},{"Add":" (inc 'P BLKSIZE) ) )"},{"Add":" (set $BlkLink (getAdr Buf))"},{"Add":" (set $DbJnl null) # Disable Journal"},{"Add":" (while (val $BlkLink) # Unmark free list"},{"Add":" (let Blk (rdBlock @)"},{"Add":" (when (& (val Blk) BLKTAG)"},{"Add":" (set Blk (& (val Blk) BLKMASK))"},{"Add":" (wrBlock) ) ) )"},{"Add":" (nond"},{"Add":" ((== Cnt Next)"},{"Add":" (setq Y (mkStr ($ \"Bad count\"))) )"},{"Add":" ((nil? Y)"},{"Add":" (setq Y (cons (cnt Blks) (cnt Syms))) ) ) )"},{"Add":" (: 9"},{"Add":" (when (set $DbJnl Jnl)"},{"Add":" (unLockJnl) )"},{"Add":" (unLockDb 1) # Unlock"},{"Add":" (set $Protect (dec (val $Protect)))"},{"Add":" Y ) ) )"}]}},{"FileAdd":{"meta":{"basename":"big.l","metadata":0},"context":[{"change":0,"pos":63931}],"contents":[{"Add":"# 08aug23 Software Lab. Alexander Burger"},{"Add":""},{"Add":"(symbols '(llvm))"},{"Add":""},{"Add":"(local) (pos neg divErr)"},{"Add":""},{"Add":"(inline pos (N)"},{"Add":" (any (& N -9)) )"},{"Add":""},{"Add":"(inline neg (N)"},{"Add":" (if (== N ZERO)"},{"Add":" N"},{"Add":" (any (x| N 8)) ) )"},{"Add":""},{"Add":"(de NIL divErr (Exe)"},{"Add":" (err Exe 0 ($ \"Div/0\") null) )"},{"Add":""},{"Add":"### Bignum byte access ###"},{"Add":"(local) (symByte symChar byteNum byteSym charSym)"},{"Add":""},{"Add":"(de i8 symByte ((i64* . P)) # [cnt name]"},{"Add":" (let C (val P) # Get cnt"},{"Add":" (unless C # New round"},{"Add":" (let Nm (val 2 P)"},{"Add":" (cond"},{"Add":" ((== Nm ZERO) (ret (i8 0))) # Done"},{"Add":" ((cnt? Nm) # Short"},{"Add":" (setq C (int Nm))"},{"Add":" (set 2 P ZERO) )"},{"Add":" (T # Big: Next digit"},{"Add":" (setq C (set P (val (dig Nm))))"},{"Add":" (set 2 P (val (big Nm))) ) ) ) )"},{"Add":" (set P (shr C 8))"},{"Add":" (i8 C) ) )"},{"Add":""},{"Add":"(de i32 symChar ((i64* . P)) # [cnt name]"},{"Add":" (let C (i32 (symByte P))"},{"Add":" (cond"},{"Add":" ((>= 127 C) C) # Single byte"},{"Add":" ((== C (hex \"FF\")) (i32 TOP)) # Infinite"},{"Add":" (T"},{"Add":" (|"},{"Add":" (shl"},{"Add":" (ifn (& C (hex \"20\"))"},{"Add":" (& C (hex \"1F\"))"},{"Add":" (|"},{"Add":" (shl"},{"Add":" (ifn (& C (hex \"10\"))"},{"Add":" (& C (hex \"0F\"))"},{"Add":" (|"},{"Add":" (shl (& C (hex \"7\")) 6)"},{"Add":" (& (i32 (symByte P)) (hex \"3F\")) ) )"},{"Add":" 6 )"},{"Add":" (& (i32 (symByte P)) (hex \"3F\")) ) )"},{"Add":" 6 )"},{"Add":" (& (i32 (symByte P)) (hex \"3F\")) ) ) ) ) )"},{"Add":""},{"Add":"(de void byteNum ((i8 . B) (i64* . P)) # [cnt last name link]"},{"Add":" (let (Cnt (val P) Nm (val 3 P))"},{"Add":" (if (cnt? Nm)"},{"Add":" # xxxxx.xxxxxxx.xxxxxxx.xxxxxxx.xxxxxxx.xxxxxxx.xxxxxxx.xxxxxxS010"},{"Add":" # 59 51 43 35 27 19 11 3"},{"Add":" (cond"},{"Add":" ((== Cnt 67) # Short full"},{"Add":" (set 3 P"},{"Add":" (set 2 P"},{"Add":" (consNum (shr Nm 3) (cnt (i64 B))) ) )"},{"Add":" (set P 12) ) # Next digit in bignum"},{"Add":" ((and (== Cnt 59) (>= B 32)) # Fit into 5 bits"},{"Add":" (set 3 P"},{"Add":" (set 2 P"},{"Add":" (boxNum"},{"Add":" (| (shr Nm 3) (shl (i64 B) 56)) ) ) )"},{"Add":" (set P 4) ) # Start next digit in bignum"},{"Add":" (T"},{"Add":" (set"},{"Add":" 3 P (| Nm (shl (i64 B) Cnt))"},{"Add":" P (+ Cnt 8) ) ) )"},{"Add":" (let (Q (val 2 P) N (val (big Q)))"},{"Add":" (cond"},{"Add":" ((== Cnt 68) # Last short full"},{"Add":" (set 2 P"},{"Add":" (set (big Q)"},{"Add":" (consNum (int N) (cnt (i64 B))) ) )"},{"Add":" (set P 12) ) # Next digit in bignum"},{"Add":" ((and (== Cnt 60) (>= B 16)) # Fit into 4 bits"},{"Add":" (set 2 P"},{"Add":" (set (big Q)"},{"Add":" (boxNum"},{"Add":" (| (int N) (shl (i64 B) 56)) ) ) )"},{"Add":" (set P 4) ) # Start next digit in bignum"},{"Add":" (T"},{"Add":" (set"},{"Add":" (big Q) (| N (shl (i64 B) Cnt))"},{"Add":" P (+ Cnt 8) ) ) ) ) ) ) )"},{"Add":""},{"Add":"(de void byteSym ((i8 . B) (i64* . P)) # [cnt last name link]"},{"Add":" (let (Cnt (val P) Nm (val 3 P))"},{"Add":" (if (cnt? Nm)"},{"Add":" # 0000.xxxxxxx.xxxxxxx.xxxxxxx.xxxxxxx.xxxxxxx.xxxxxxx.xxxxxxx0010"},{"Add":" # 60 52 44 36 28 20 12 4"},{"Add":" (if (> 60 Cnt) # Digit not full"},{"Add":" (set"},{"Add":" 3 P (| Nm (shl (i64 B) Cnt))"},{"Add":" P (+ Cnt 8) )"},{"Add":" (set 3 P"},{"Add":" (set 2 P"},{"Add":" (boxNum # Make big"},{"Add":" (| (int Nm) (shl (i64 B) 56)) ) ) )"},{"Add":" (set P 4) ) # Start new digit"},{"Add":" (let (Q (val 2 P) N (val (big Q)))"},{"Add":" (if (> 60 Cnt) # Digit not full"},{"Add":" (set"},{"Add":" (big Q) (| N (shl (i64 B) Cnt))"},{"Add":" P (+ Cnt 8) )"},{"Add":" (set 2 P"},{"Add":" (set (big Q)"},{"Add":" (boxNum # Make big"},{"Add":" (| (int N) (shl (i64 B) 56)) ) ) )"},{"Add":" (set P 4) ) ) ) ) ) # Start new digit"},{"Add":""},{"Add":"(de void charSym ((i32 . C) (i64* . P)) # [cnt last name link]"},{"Add":" (cond"},{"Add":" ((>= 127 C) (byteSym (i8 C) P)) # Single byte"},{"Add":" ((== TOP C) (byteSym (hex \"FF\") P)) # Infinite"},{"Add":" (T"},{"Add":" (cond"},{"Add":" ((> (hex \"800\") C) # Double-byte"},{"Add":" (byteSym (i8 (| (hex \"C0\") (& (shr C 6) (hex \"1F\")))) P) ) # 10xxxxx 10xxxxxx"},{"Add":" ((> (hex \"10000\") C) # Three bytes"},{"Add":" (byteSym (i8 (| (hex \"E0\") (& (shr C 12) (hex \"0F\")))) P) # 1110xxxx 10xxxxxx 10xxxxxx"},{"Add":" (byteSym (i8 (| (hex \"80\") (& (shr C 6) (hex \"3F\")))) P) )"},{"Add":" (T"},{"Add":" (byteSym (i8 (| (hex \"F0\") (& (shr C 18) (hex \"07\")))) P) # 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx"},{"Add":" (byteSym (i8 (| (hex \"80\") (& (shr C 12) (hex \"3F\")))) P)"},{"Add":" (byteSym (i8 (| (hex \"80\") (& (shr C 6) (hex \"3F\")))) P) ) )"},{"Add":" (byteSym (i8 (| (hex \"80\") (& C (hex \"3F\")))) P) ) ) )"},{"Add":""},{"Add":"### Destructive primitives ###"},{"Add":"(local) (zapZero twiceBig twice half tenfold)"},{"Add":""},{"Add":"# Remove leading zeroes"},{"Add":"(de zapZero (N)"},{"Add":" (let (P (push N) X P Y P Z T)"},{"Add":" (until (cnt? (setq Z (val (big N)))) # Last cell"},{"Add":" (when (val (dig N)) # Null digit?"},{"Add":" (setq X Y) ) # New null-tail"},{"Add":" (setq"},{"Add":" Y (big N) # New short-tail"},{"Add":" N (val Y) ) ) # Next cell"},{"Add":" (when (== Z ZERO)"},{"Add":" (cond"},{"Add":" ((setq N (val (dig N))) # Final digit"},{"Add":" (unless (& N (hex \"F000000000000000\"))"},{"Add":" (set Y (cnt N)) ) ) # Store in short-tail"},{"Add":" ((&"},{"Add":" (setq N (val (dig (val X)))) # Digit in null-tail"},{"Add":" (hex \"F000000000000000\") )"},{"Add":" (set (big (val X)) ZERO) ) # Trim null-tail"},{"Add":" (T (set X (cnt N))) ) ) # Store in null-tail"},{"Add":" (val P) ) )"},{"Add":""},{"Add":"# Multiply (unsigned) number by 2"},{"Add":"(de twiceBig (N)"},{"Add":" (let (X N A (val (dig X)) Y (val (big X)))"},{"Add":" (set (dig X) (shl A 1))"},{"Add":" (while (big? Y)"},{"Add":" (let B (val (dig Y))"},{"Add":" (set (dig (setq X Y))"},{"Add":" (| (shl B 1) (shl 0 A 1)) )"},{"Add":" (setq A B Y (val (big Y))) ) )"},{"Add":" (set (big X)"},{"Add":" (box64"},{"Add":" (| (shl (int Y) 1) (shl 0 A 1)) ) ) )"},{"Add":" N )"},{"Add":""},{"Add":"(de twice (N)"},{"Add":" (if (cnt? N)"},{"Add":" (let X (add N N) # Shift left"},{"Add":" (if @@ # Overflow"},{"Add":" (boxNum (shr N 3)) # Make big"},{"Add":" (x| X 6) ) ) # Fix tag bit"},{"Add":" (twiceBig N) ) )"},{"Add":""},{"Add":"# Divide (unsigned) number by 2"},{"Add":"(de half (N)"},{"Add":" (if (cnt? N)"},{"Add":" (| (& (shr N 1) -10) 2) # Clear lowest bit and tag"},{"Add":" (let (X N A (shr (val (dig X)) 1) Y (val (big X)))"},{"Add":" (if (big? Y)"},{"Add":" (let Z (val (big Y))"},{"Add":" (loop"},{"Add":" (let B (val (dig Y))"},{"Add":" (set (dig X) (| (shr B 0 1) A))"},{"Add":" (setq A (shr B 1)) )"},{"Add":" (? (cnt? Z))"},{"Add":" (setq X Y Y Z Z (val (big Z))) )"},{"Add":" (setq"},{"Add":" Z (int Z)"},{"Add":" A (| (shr Z 0 1) A) )"},{"Add":" (ifn"},{"Add":" (or"},{"Add":" (setq Z (shr Z 1))"},{"Add":" (& A (hex \"F000000000000000\")) )"},{"Add":" (set (big X) (cnt A))"},{"Add":" (set (dig Y) A)"},{"Add":" (set (big Y) (cnt Z)) ) )"},{"Add":" (setq"},{"Add":" Y (int Y)"},{"Add":" A (| (shr Y 0 1) A) )"},{"Add":" (unless"},{"Add":" (or"},{"Add":" (setq Y (shr Y 1))"},{"Add":" (& A (hex \"F000000000000000\")) )"},{"Add":" (ret (cnt A)) )"},{"Add":" (set (dig X) A)"},{"Add":" (set (big X) (cnt Y)) )"},{"Add":" N ) ) )"},{"Add":""},{"Add":"# Multiply (unsigned) number by 10"},{"Add":"(de tenfold (N)"},{"Add":" (if (cnt? N)"},{"Add":" (box64 (* 10 (int N)))"},{"Add":" (let (X N Lo (mul 10 (val (dig X))) Hi @@@)"},{"Add":" (loop"},{"Add":" (set (dig X) Lo)"},{"Add":" (? (cnt? (val (big X)))"},{"Add":" (set (big X)"},{"Add":" (box64 (+ Hi (* 10 (int @)))) ) )"},{"Add":" (setq X @)"},{"Add":" (setq"},{"Add":" Lo (add (mul 10 (val (dig X))) Hi)"},{"Add":" Hi (+ @@@ @@) ) )"},{"Add":" N ) ) )"},{"Add":""},{"Add":"### Non-destructive unsigned primitives ###"},{"Add":"(local) (shlu shru andu oru xoru addu sub1 subu mulAddHiLo mulu div1 divu remu)"},{"Add":""},{"Add":"# Multiply (unsigned) number by 2"},{"Add":"(de shlu (N)"},{"Add":" (if (cnt? N)"},{"Add":" (let X (add N N) # Shift left"},{"Add":" (if @@ # Overflow"},{"Add":" (boxNum (shr N 3)) # Make big"},{"Add":" (x| X 6) ) ) # Fix tag bit"},{"Add":" (let"},{"Add":" (A (val (dig N))"},{"Add":" X (boxNum (shl A 1))"},{"Add":" Y (val (big N))"},{"Add":" R (save X) )"},{"Add":" (while (big? Y)"},{"Add":" (let B (val (dig Y))"},{"Add":" (setq X"},{"Add":" (set (big X)"},{"Add":" (boxNum (| (shl B 1) (shl 0 A 1))) ) )"},{"Add":" (setq A B Y (val (big Y))) ) )"},{"Add":" (set (big X)"},{"Add":" (box64"},{"Add":" (| (shl (int Y) 1) (shl 0 A 1)) ) )"},{"Add":" R ) ) )"},{"Add":""},{"Add":"# Divide (unsigned) number by 2"},{"Add":"(de shru (N)"},{"Add":" (if (cnt? N)"},{"Add":" (| (& (shr N 1) -10) 2) # Clear lowest bit and tag"},{"Add":" (let A (shr (val (dig N)) 1)"},{"Add":" (if (big? (setq N (val (big N))))"},{"Add":" (let"},{"Add":" (B (val (dig N))"},{"Add":" P (boxNum (| (shr B 0 1) A))"},{"Add":" R (save P) )"},{"Add":" (loop"},{"Add":" (setq A (shr B 1))"},{"Add":" (? (cnt? (setq N (val (big N)))))"},{"Add":" (setq"},{"Add":" B (val (dig N))"},{"Add":" P"},{"Add":" (set (big P)"},{"Add":" (boxNum (| (shr B 0 1) A)) ) ) )"},{"Add":" (setq"},{"Add":" N (int N)"},{"Add":" A (| (shr N 0 1) A) )"},{"Add":" (set (big P)"},{"Add":" (ifn"},{"Add":" (or"},{"Add":" (setq N (shr N 1))"},{"Add":" (& A (hex \"F000000000000000\")) )"},{"Add":" (cnt A)"},{"Add":" (prog1"},{"Add":" (boxNum A)"},{"Add":" (set (big @) (cnt N)) ) ) )"},{"Add":" R )"},{"Add":" (setq"},{"Add":" N (int N)"},{"Add":" A (| (shr N 0 1) A) )"},{"Add":" (ifn"},{"Add":" (or"},{"Add":" (setq N (shr N 1))"},{"Add":" (& A (hex \"F000000000000000\")) )"},{"Add":" (cnt A)"},{"Add":" (prog1"},{"Add":" (boxNum A)"},{"Add":" (set (big @) (cnt N)) ) ) ) ) ) )"},{"Add":""},{"Add":"# Bitwise AND of two (unsigned) numbers"},{"Add":"(de andu (A B)"},{"Add":" (cond"},{"Add":" ((cnt? A)"},{"Add":" (& A"},{"Add":" (if (cnt? B) B (cnt (val (dig B)))) ) )"},{"Add":" ((cnt? B) # A is big"},{"Add":" (& B (cnt (val (dig A)))) )"},{"Add":" (T # Both are big"},{"Add":" (let"},{"Add":" (P"},{"Add":" (boxNum"},{"Add":" (& (val (dig A)) (val (dig B))) )"},{"Add":" R (save P) )"},{"Add":" (loop"},{"Add":" (setq A (val (big A)) B (val (big B)))"},{"Add":" (? (cnt? A)"},{"Add":" (set (big P)"},{"Add":" (& A"},{"Add":" (if (cnt? B) B (cnt (val (dig B)))) ) ) )"},{"Add":" (? (cnt? B)"},{"Add":" (set (big P)"},{"Add":" (& B (cnt (val (dig A)))) ) )"},{"Add":" (setq P"},{"Add":" (set (big P)"},{"Add":" (boxNum"},{"Add":" (& (val (dig A)) (val (dig B))) ) ) ) )"},{"Add":" (zapZero R) ) ) ) )"},{"Add":""},{"Add":"# Bitwise OR of two (unsigned) numbers"},{"Add":"(de oru (A B)"},{"Add":" (cond"},{"Add":" ((cnt? A)"},{"Add":" (if (cnt? B)"},{"Add":" (| A B)"},{"Add":" (consNum"},{"Add":" (| (int A) (val (dig B)))"},{"Add":" (val (big B)) ) ) )"},{"Add":" ((cnt? B) # A is big"},{"Add":" (consNum"},{"Add":" (| (int B) (val (dig A)))"},{"Add":" (val (big A)) ) )"},{"Add":" (T # Both are big"},{"Add":" (let"},{"Add":" (P"},{"Add":" (boxNum"},{"Add":" (| (val (dig A)) (val (dig B))) )"},{"Add":" R (save P) )"},{"Add":" (loop"},{"Add":" (setq A (val (big A)) B (val (big B)))"},{"Add":" (? (cnt? A)"},{"Add":" (set (big P)"},{"Add":" (if (cnt? B)"},{"Add":" (| A B)"},{"Add":" (consNum"},{"Add":" (| (int A) (val (dig B)))"},{"Add":" (val (big B)) ) ) ) )"},{"Add":" (? (cnt? B)"},{"Add":" (set (big P)"},{"Add":" (consNum"},{"Add":" (| (int B) (val (dig A)))"},{"Add":" (val (big A)) ) ) )"},{"Add":" (setq P"},{"Add":" (set (big P)"},{"Add":" (boxNum"},{"Add":" (| (val (dig A)) (val (dig B))) ) ) ) )"},{"Add":" R ) ) ) )"},{"Add":""},{"Add":"# Bitwise XOR of two (unsigned) numbers"},{"Add":"(de xoru (A B)"},{"Add":" (cond"},{"Add":" ((cnt? A)"},{"Add":" (if (cnt? B)"},{"Add":" (| (x| A B) 2)"},{"Add":" (zapZero"},{"Add":" (consNum"},{"Add":" (x| (int A) (val (dig B)))"},{"Add":" (val (big B)) ) ) ) )"},{"Add":" ((cnt? B) # A is big"},{"Add":" (zapZero"},{"Add":" (consNum"},{"Add":" (x| (int B) (val (dig A)))"},{"Add":" (val (big A)) ) ) )"},{"Add":" (T # Both are big"},{"Add":" (let"},{"Add":" (P"},{"Add":" (boxNum"},{"Add":" (x| (val (dig A)) (val (dig B))) )"},{"Add":" R (save P) )"},{"Add":" (loop"},{"Add":" (setq A (val (big A)) B (val (big B)))"},{"Add":" (? (cnt? A)"},{"Add":" (set (big P)"},{"Add":" (if (cnt? B)"},{"Add":" (| (x| A B) 2)"},{"Add":" (consNum"},{"Add":" (x| (int A) (val (dig B)))"},{"Add":" (val (big B)) ) ) ) )"},{"Add":" (? (cnt? B)"},{"Add":" (set (big P)"},{"Add":" (consNum"},{"Add":" (x| (int B) (val (dig A)))"},{"Add":" (val (big A)) ) ) )"},{"Add":" (setq P"},{"Add":" (set (big P)"},{"Add":" (boxNum"},{"Add":" (x| (val (dig A)) (val (dig B))) ) ) ) )"},{"Add":" (zapZero R) ) ) ) )"},{"Add":""},{"Add":"# Add two (unsigned) numbers"},{"Add":"(de addu (A B)"},{"Add":" (cond"},{"Add":" ((cnt? A)"},{"Add":" (if (cnt? B)"},{"Add":" (box64 (+ (int A) (int B)))"},{"Add":" (xchg 'A 'B)"},{"Add":" (goto 1) ) )"},{"Add":" ((cnt? B) # A is big"},{"Add":" (: 1"},{"Add":" (let N (val (big A))"},{"Add":" (setq B (add (int B) (val (dig A))))"},{"Add":" (ifn @@"},{"Add":" (consNum B N) # No carry"},{"Add":" (let R (save (setq B (consNum B N))) # Else build new head"},{"Add":" (loop"},{"Add":" (? (cnt? N)"},{"Add":" (setq N (add N (hex \"10\"))) # Add carry"},{"Add":" (set (big B)"},{"Add":" (ifn @@ # No further carry"},{"Add":" N # Append it"},{"Add":" (boxNum (| (int N) (hex \"1000000000000000\"))) ) ) ) # Set top bit"},{"Add":" (let D (val (dig N)) # Next digit"},{"Add":" (setq"},{"Add":" N (val (big N))"},{"Add":" D (add D 1) ) # Add carry"},{"Add":" (? (not @@) # No carry"},{"Add":" (set (big B) (consNum D N)) )"},{"Add":" (setq B (set (big B) (consNum D N))) ) )"},{"Add":" R ) ) ) ) )"},{"Add":" (T # Both are big"},{"Add":" (let"},{"Add":" (N (add (val (dig A)) (val (dig B)))"},{"Add":" C @@"},{"Add":" P (boxNum N)"},{"Add":" R (save P) )"},{"Add":" (loop"},{"Add":" (setq A (val (big A)) B (val (big B)))"},{"Add":" (? (cnt? A)"},{"Add":" (if (cnt? B)"},{"Add":" (set (big P)"},{"Add":" (box64 (add (int A) (int B) C)) )"},{"Add":" (xchg 'A 'B)"},{"Add":" (goto 2) ) )"},{"Add":" (? (cnt? B)"},{"Add":" (: 2"},{"Add":" (setq"},{"Add":" N (add (int B) (val (dig A)) C)"},{"Add":" C @@ )"},{"Add":" (loop"},{"Add":" (setq P"},{"Add":" (set (big P)"},{"Add":" (consNum N (setq A (val (big A)))) ) )"},{"Add":" (? (not C))"},{"Add":" (? (cnt? A)"},{"Add":" (set (big P) (box64 (+ (int A) C))) )"},{"Add":" (setq"},{"Add":" N (add (val (dig A)) 1)"},{"Add":" C @@ ) ) ) )"},{"Add":" (setq"},{"Add":" N (add (val (dig A)) (val (dig B)) C)"},{"Add":" C @@"},{"Add":" P (set (big P) (boxNum N)) ) )"},{"Add":" R ) ) ) )"},{"Add":""},{"Add":"# Subtract short from big number"},{"Add":"(de sub1 (B N)"},{"Add":" (setq"},{"Add":" N (sub (val (dig B)) (int N))"},{"Add":" B (val (big B)) )"},{"Add":" (nond"},{"Add":" (@@ # No borrow"},{"Add":" (if (== B ZERO)"},{"Add":" (box64 N)"},{"Add":" (consNum N B) ) )"},{"Add":" ((big? B) # Single cell"},{"Add":" (setq B (sub B (hex \"10\"))) # Subtract borrow"},{"Add":" (if @@ # Again borrow"},{"Add":" (sign (cnt (- N))) # Lowest digit"},{"Add":" (zapZero (consNum N B)) ) )"},{"Add":" (NIL"},{"Add":" (let (P (boxNum N B) R (save P))"},{"Add":" (loop"},{"Add":" (setq"},{"Add":" N (sub (val (dig B)) 1) # Subtract borrow"},{"Add":" B (val (big B)) )"},{"Add":" (? (not @@)"},{"Add":" (set (big P) (consNum N B)) )"},{"Add":" (setq P (set (big P) (consNum N B)))"},{"Add":" (? (cnt? B)"},{"Add":" (set (big P) (sub B (hex \"10\"))) ) ) # Subtract borrow"},{"Add":" (zapZero R) ) ) ) )"},{"Add":""},{"Add":"# Subtract two (unsigned) numbers"},{"Add":"(de subu (A B)"},{"Add":" (cond"},{"Add":" ((cnt? A)"},{"Add":" (if (cnt? B)"},{"Add":" (let N (sub A (& B -3)) # Clear tag"},{"Add":" (if @@"},{"Add":" (+ (x| N -16) (hex \"18\")) # 2-complement"},{"Add":" N ) )"},{"Add":" (neg (sub1 B A)) ) )"},{"Add":" ((cnt? B) # A is big"},{"Add":" (sub1 A B) )"},{"Add":" (T # Both are big"},{"Add":" (let"},{"Add":" (N (sub (val (dig A)) (val (dig B)))"},{"Add":" C @@"},{"Add":" P (boxNum N)"},{"Add":" R (save P) )"},{"Add":" (loop"},{"Add":" (setq A (val (big A)) B (val (big B)))"},{"Add":" (? (cnt? B)"},{"Add":" (setq B (int B))"},{"Add":" (until (cnt? A)"},{"Add":" (setq"},{"Add":" N (sub (val (dig A)) B C)"},{"Add":" C @@"},{"Add":" A (val (big A))"},{"Add":" P (set (big P) (consNum N A)) )"},{"Add":" (unless C"},{"Add":" (ret (zapZero R)) )"},{"Add":" (setq B 0) )"},{"Add":" (setq A (int A)) )"},{"Add":" (? (cnt? A)"},{"Add":" (setq A (int A))"},{"Add":" (loop"},{"Add":" (setq"},{"Add":" N (sub A (val (dig B)) C)"},{"Add":" C @@"},{"Add":" P (set (big P) (boxNum N)) )"},{"Add":" (setq A 0)"},{"Add":" (? (cnt? (setq B (val (big B))))) )"},{"Add":" (setq B (int B)) )"},{"Add":" (setq"},{"Add":" N (sub (val (dig A)) (val (dig B)) C)"},{"Add":" C @@"},{"Add":" P (set (big P) (boxNum N)) ) )"},{"Add":" (set (big P) (cnt (sub A B C))) # Subtract final shorts with borrow"},{"Add":" (ifn @@"},{"Add":" (zapZero R)"},{"Add":" # 2-complement"},{"Add":" (let Q R"},{"Add":" (loop # Invert"},{"Add":" (set (dig Q) (x| (val (dig Q)) -1))"},{"Add":" (? (cnt? (setq N (val (big Q)))))"},{"Add":" (setq Q N) )"},{"Add":" (set (big Q) (x| N -16)) )"},{"Add":" (let Q R"},{"Add":" (loop # Increment"},{"Add":" (set (dig Q) (add (val (dig Q)) 1))"},{"Add":" (unless @@"},{"Add":" (goto 9) )"},{"Add":" (? (cnt? (setq N (val (big Q)))))"},{"Add":" (setq Q N) )"},{"Add":" (set (big Q) (+ N (hex \"10\"))) )"},{"Add":" (: 9"},{"Add":" (sign (zapZero R)) ) ) ) ) ) )"},{"Add":""},{"Add":"# Multiply two (unsigned) numbers"},{"Add":"(inline (Lo Hi) mulAddHiLo (X Y P)"},{"Add":" (let H Hi"},{"Add":" (setq"},{"Add":" Lo (add (mul X Y) (val (dig P)))"},{"Add":" Hi (+ @@@ @@)"},{"Add":" Lo (add Lo H)"},{"Add":" Hi (+ Hi @@) ) ) )"},{"Add":""},{"Add":"(de mulu (A B)"},{"Add":" (cond"},{"Add":" ((== A ZERO) A)"},{"Add":" ((cnt? A)"},{"Add":" (setq A (int A))"},{"Add":" (if (cnt? B)"},{"Add":" (let N (mul A (int B))"},{"Add":" (if (or @@@ (& N (hex \"F000000000000000\"))) # Fit in short number"},{"Add":" (consNum N (cnt @@@))"},{"Add":" (cnt N) ) )"},{"Add":" (: 1"},{"Add":" (let"},{"Add":" (Lo (mul A (val (dig B)))"},{"Add":" Hi @@@"},{"Add":" P (boxNum Lo)"},{"Add":" R (save P) )"},{"Add":" (while (big? (setq B (val (big B))))"},{"Add":" (setq"},{"Add":" Lo (add (mul A (val (dig B))) Hi)"},{"Add":" Hi (+ @@@ @@)"},{"Add":" P (set (big P) (boxNum Lo)) ) )"},{"Add":" (setq"},{"Add":" Lo (add (mul A (int B)) Hi)"},{"Add":" Hi (+ @@@ @@) )"},{"Add":" (set (big P)"},{"Add":" (if (or Hi (& Lo (hex \"F000000000000000\"))) # Fit in short number"},{"Add":" (consNum Lo (cnt Hi))"},{"Add":" (cnt Lo) ) )"},{"Add":" R ) ) ) )"},{"Add":" ((== B ZERO) B)"},{"Add":" ((cnt? B) # A is big"},{"Add":" (setq B (int B))"},{"Add":" (xchg 'A 'B)"},{"Add":" (goto 1) )"},{"Add":" (T # Both are big"},{"Add":" (let (P (boxNum 0) R (save P))"},{"Add":" (loop"},{"Add":" (let"},{"Add":" (X A"},{"Add":" Q P"},{"Add":" Lo"},{"Add":" (add"},{"Add":" (mul (val (dig X)) (val (dig B)))"},{"Add":" (val (dig Q)) )"},{"Add":" Hi (+ @@@ @@) )"},{"Add":" (loop"},{"Add":" (set (dig Q) Lo)"},{"Add":" (setq Q"},{"Add":" (if (cnt? (val (big Q)))"},{"Add":" (set (big Q) (boxNum 0))"},{"Add":" @ ) )"},{"Add":" (? (cnt? (setq X (val (big X)))))"},{"Add":" (mulAddHiLo (val (dig X)) (val (dig B)) Q) )"},{"Add":" (mulAddHiLo (int X) (val (dig B)) Q)"},{"Add":" (set (dig Q) Lo)"},{"Add":" (when Hi"},{"Add":" (if (cnt? (val (big Q)))"},{"Add":" (set (big Q) (boxNum Hi))"},{"Add":" (set (big @) Hi) ) ) )"},{"Add":" (setq P (val (big P)))"},{"Add":" (? (cnt? (setq B (val (big B))))) )"},{"Add":" (setq B (int B))"},{"Add":" (let"},{"Add":" (Lo"},{"Add":" (add"},{"Add":" (mul (val (dig A)) B)"},{"Add":" (val (dig P)) )"},{"Add":" Hi (+ @@@ @@) )"},{"Add":" (loop"},{"Add":" (set (dig P) Lo)"},{"Add":" (setq P"},{"Add":" (if (cnt? (val (big P)))"},{"Add":" (set (big P) (boxNum 0))"},{"Add":" @ ) )"},{"Add":" (? (cnt? (setq A (val (big A)))))"},{"Add":" (mulAddHiLo (val (dig A)) B P) )"},{"Add":" (mulAddHiLo (int A) B P)"},{"Add":" (set (dig P) Lo)"},{"Add":" (when Hi"},{"Add":" (if (cnt? (val (big P)))"},{"Add":" (set (big P) (boxNum Hi))"},{"Add":" (set (big @) Hi) ) ) )"},{"Add":" (zapZero R) ) ) ) )"},{"Add":""},{"Add":"# Divide big number (Knuth Vol.2, p.257)"},{"Add":"(de div1 (A B (i1 . Rem))"},{"Add":" (let"},{"Add":" (R (save ZERO) # Quotient"},{"Add":" P (boxNum (val (dig A)))"},{"Add":" U (link (push P NIL)) # Dividend 'u'"},{"Add":" V (link (push B NIL)) # Divisor 'v'"},{"Add":" V1 T"},{"Add":" V2 0 # Last cell"},{"Add":" M 0 # 'm'"},{"Add":" N 1 # 'n'"},{"Add":" D 0"},{"Add":" Q T )"},{"Add":" # Copy dividend"},{"Add":" (while (big? (setq A (val (big A))))"},{"Add":" (setq P"},{"Add":" (set (big P) (boxNum (val (dig A)))) )"},{"Add":" (inc 'M) ) # Calculate 'm'"},{"Add":" (unless (== A ZERO)"},{"Add":" (setq P (set (big P) (boxNum (int A))))"},{"Add":" (inc 'M) )"},{"Add":" # Copy divisor"},{"Add":" (if (cnt? B)"},{"Add":" (setq Q (set V (boxNum (int B))))"},{"Add":" (setq Q"},{"Add":" (set V (boxNum (val (dig B)))) )"},{"Add":" (while (big? (setq B (val (big B))))"},{"Add":" (setq"},{"Add":" V2 Q # Keep last cell"},{"Add":" Q (set (big Q) (boxNum (val (dig B)))) )"},{"Add":" (dec 'M) # Decrement 'm'"},{"Add":" (inc 'N) ) # Calculate 'n'"},{"Add":" (unless (== B ZERO)"},{"Add":" (setq"},{"Add":" V2 Q # Keep last cell"},{"Add":" Q (set (big Q) (boxNum (int B))))"},{"Add":" (dec 'M)"},{"Add":" (inc 'N) )"},{"Add":" (when (lt0 M)"},{"Add":" (ret"},{"Add":" (if Rem"},{"Add":" (zapZero (val U))"},{"Add":" ZERO ) ) ) )"},{"Add":" (set (big P) (boxNum 0))"},{"Add":" (while (ge0 (val (dig Q))) # Shift to max left position"},{"Add":" (twiceBig (val U))"},{"Add":" (twiceBig (val V))"},{"Add":" (inc 'D) )"},{"Add":" (setq V1 (val (dig Q)))"},{"Add":" (when V2"},{"Add":" (setq V2 (val (dig V2))) )"},{"Add":" (loop"},{"Add":" (let (X (val U) U1 0 U2 0 U3 T)"},{"Add":" (let I M # Index X -> 'u'"},{"Add":" (while (ge0 (dec 'I))"},{"Add":" (setq X (val (big X))) ) )"},{"Add":" (let (I N Y X)"},{"Add":" (loop"},{"Add":" (setq"},{"Add":" U3 U2"},{"Add":" U2 U1"},{"Add":" U1 (val (dig Y))"},{"Add":" Y (val (big Y)) )"},{"Add":" (? (lt0 (dec 'I))) ) )"},{"Add":" (let (Hi U1 Lo U2) # 'r'"},{"Add":" (setq Q"},{"Add":" (if (== U1 V1) # 'u1' = 'v1'"},{"Add":" -1 # 'q' = MAX"},{"Add":" (div Hi Lo V1) ) ) # 'q' = 'r' / 'v1'"},{"Add":" (setq"},{"Add":" Lo (sub Lo (mul Q V1)) # 'r' - 'q' * 'v1'"},{"Add":" Hi (sub Hi @@@ @@) )"},{"Add":" (until Hi # 'r' <= MAX and"},{"Add":" (let L (mul Q V2) # 'q' * 'v2 '> [lo(r) u3]"},{"Add":" (? (> Lo @@@))"},{"Add":" (? (and (== Lo @@@) (>= U3 L))) )"},{"Add":" (dec 'Q)"},{"Add":" (setq # Increment 'r' by 'v1'"},{"Add":" Lo (add Lo V1)"},{"Add":" Hi (+ Hi @@) ) )"},{"Add":" (let (Z X Y (val V))"},{"Add":" (set (dig Z)"},{"Add":" (sub"},{"Add":" (val (dig Z))"},{"Add":" (mul Q (val (dig Y))) ) )"},{"Add":" (setq Hi (+ @@@ @@)) # Borrow"},{"Add":" (while (big? (setq Y (val (big Y)))) # More in 'v'"},{"Add":" (setq Z (val (big Z)))"},{"Add":" (set (dig Z) (sub (val (dig Z)) Hi)) # Subtract borrow"},{"Add":" (setq Hi (- Hi Hi @@)) # New borrow"},{"Add":" (set (dig Z)"},{"Add":" (sub"},{"Add":" (val (dig Z))"},{"Add":" (mul Q (val (dig Y))) ) )"},{"Add":" (setq Hi (- (sub Hi @@@ @@))) )"},{"Add":" (when Hi # Borrow"},{"Add":" (setq Z (val (big Z)))"},{"Add":" (set (dig Z) (sub (val (dig Z)) Hi)) # Subtract borrow"},{"Add":" (when @@"},{"Add":" (dec 'Q)"},{"Add":" (when (or Rem M)"},{"Add":" (setq Y (val V))"},{"Add":" (set (dig X) # 'x' += 'v'"},{"Add":" (add (val (dig X)) (val (dig Y))) )"},{"Add":" (let C @@"},{"Add":" (loop"},{"Add":" (setq X (val (big X)))"},{"Add":" (? (cnt? (setq Y (val (big Y)))))"},{"Add":" (set (dig X)"},{"Add":" (add (val (dig X)) (val (dig Y)) C) )"},{"Add":" (setq C @@) )"},{"Add":" (set (dig X) (+ (val (dig X)) C)) ) ) ) ) ) ) )"},{"Add":" (setq R (safe (consNum Q R)))"},{"Add":" (? (lt0 (dec 'M))) )"},{"Add":" (ifn Rem"},{"Add":" (zapZero R)"},{"Add":" (setq A (zapZero (val U)))"},{"Add":" (while D"},{"Add":" (setq A (half A)) # Shift right (destructive)"},{"Add":" (dec 'D) )"},{"Add":" A ) ) )"},{"Add":""},{"Add":"# Divide two (unsigned) numbers"},{"Add":"(de divu (A B)"},{"Add":" (cond"},{"Add":" ((big? A) (div1 A B NO))"},{"Add":" ((big? B) ZERO)"},{"Add":" (T (cnt (/ (int A) (int B)))) ) )"},{"Add":""},{"Add":"# Remainder of two (unsigned) numbers"},{"Add":"(de remu (A B)"},{"Add":" (cond"},{"Add":" ((big? A) (div1 A B YES))"},{"Add":" ((big? B) A)"},{"Add":" (T (cnt (% (int A) (int B)))) ) )"},{"Add":""},{"Add":"### Non-destructive signed primitives ###"},{"Add":"(local) (incs decs adds subs)"},{"Add":""},{"Add":"# Increment a (signed) number"},{"Add":"(de incs (A)"},{"Add":" (if (sign? A)"},{"Add":" (neg (subu (pos A) ONE))"},{"Add":" (addu A ONE) ) )"},{"Add":""},{"Add":"# Decrement a (signed) number"},{"Add":"(de decs (A)"},{"Add":" (if (sign? A)"},{"Add":" (neg (addu (pos A) ONE))"},{"Add":" (subu A ONE) ) )"},{"Add":""},{"Add":"# Add two (signed) numbers"},{"Add":"(de adds (A B)"},{"Add":" (ifn (sign? A)"},{"Add":" (ifn (sign? B)"},{"Add":" (addu A B)"},{"Add":" (subu A (pos B)) )"},{"Add":" (neg"},{"Add":" (ifn (sign? B)"},{"Add":" (subu (pos A) B)"},{"Add":" (addu (pos A) (pos B)) ) ) ) )"},{"Add":""},{"Add":"# Subtract to (signed) numbers"},{"Add":"(de subs (A B)"},{"Add":" (ifn (sign? A)"},{"Add":" (ifn (sign? B)"},{"Add":" (subu A B)"},{"Add":" (addu A (pos B)) )"},{"Add":" (neg"},{"Add":" (ifn (sign? B)"},{"Add":" (addu (pos A) B)"},{"Add":" (subu (pos A) (pos B)) ) ) ) )"},{"Add":""},{"Add":"### Comparisons ###"},{"Add":"(local) (cmpu cmpNum)"},{"Add":""},{"Add":"(de i64 cmpu (A B)"},{"Add":" (if (cnt? A)"},{"Add":" (cond"},{"Add":" ((or (big? B) (> B A)) -1)"},{"Add":" ((== B A) 0)"},{"Add":" (T +1) )"},{"Add":" # A is big"},{"Add":" (if (cnt? B)"},{"Add":" +1"},{"Add":" # Both are big"},{"Add":" (let (X 0 Y 0)"},{"Add":" (prog1"},{"Add":" (loop"},{"Add":" (let (C (val (big A)) D (val (big B)))"},{"Add":" (? (== C D) # Tails equal"},{"Add":" (loop"},{"Add":" (setq"},{"Add":" C (val (dig A))"},{"Add":" D (val (dig B)) )"},{"Add":" (? (> D C) -1)"},{"Add":" (? (> C D) +1)"},{"Add":" (? (=0 X) 0)"},{"Add":" (let Z (val (big X))"},{"Add":" (set (big X) A) # Restore A"},{"Add":" (setq A X X Z) )"},{"Add":" (let Z (val (big Y))"},{"Add":" (set (big Y) B) # Restore B"},{"Add":" (setq B Y Y Z) ) ) )"},{"Add":" (? (cnt? C) # End of A"},{"Add":" (cond"},{"Add":" ((or (big? D) (> D C)) -1)"},{"Add":" ((== D C) 0)"},{"Add":" (T +1) ) )"},{"Add":" (? (cnt? D) +1) # End of B"},{"Add":" (set (big A) X) # Reverse A"},{"Add":" (setq X A A C)"},{"Add":" (set (big B) Y) # Reverse B"},{"Add":" (setq Y B B D) ) )"},{"Add":" (while X # Revert"},{"Add":" (let Z (val (big X))"},{"Add":" (set (big X) A) # Restore A"},{"Add":" (setq A X X Z) )"},{"Add":" (let Z (val (big Y))"},{"Add":" (set (big Y) B) # Restore B"},{"Add":" (setq B Y Y Z) ) ) ) ) ) ) )"},{"Add":""},{"Add":"(de i64 cmpNum (A B)"},{"Add":" (ifn (sign? A)"},{"Add":" (ifn (sign? B)"},{"Add":" (cmpu A B)"},{"Add":" +1 )"},{"Add":" (ifn (sign? B)"},{"Add":" -1"},{"Add":" (cmpu (pos B) (pos A)) ) ) )"},{"Add":""},{"Add":"### Formatting ###"},{"Add":"(local) (symToNum fmtWord fmtNum)"},{"Add":""},{"Add":"# Make number from symbol"},{"Add":"(de symToNum (Name (i64 . Scl) (i8 . Sep) (i8 . Ign))"},{"Add":" (let"},{"Add":" (P (push 0 Name) # [cnt name]"},{"Add":" Num (push ZERO NIL) # Result"},{"Add":" Sign NO"},{"Add":" Frac NO"},{"Add":" B T )"},{"Add":" (until (> (setq B (symByte P)) (char \" \")) # Skip white space"},{"Add":" (unless B # None"},{"Add":" (ret 0) ) )"},{"Add":" (cond"},{"Add":" ((== B (char \"+\"))"},{"Add":" (goto 1) )"},{"Add":" ((== B (char \"-\"))"},{"Add":" (setq Sign YES)"},{"Add":" (: 1"},{"Add":" (unless (setq B (symByte P))"},{"Add":" (ret 0) ) ) ) )"},{"Add":" (when (> (dec 'B (char \"0\")) 9)"},{"Add":" (ret 0) )"},{"Add":" (set (link Num T) (cnt (i64 B)))"},{"Add":" (while (setq B (symByte P))"},{"Add":" (? (and Frac (=0 Scl))"},{"Add":" (when (> (dec 'B (char \"0\")) 9)"},{"Add":" (ret 0) )"},{"Add":" (when (>= B 5) # Round"},{"Add":" (set Num (addu (val Num) ONE)) )"},{"Add":" (while (setq B (symByte P))"},{"Add":" (when (> (dec 'B (char \"0\")) 9)"},{"Add":" (ret 0) ) ) )"},{"Add":" (cond"},{"Add":" ((== B Sep)"},{"Add":" (when Frac"},{"Add":" (ret 0) )"},{"Add":" (setq Frac YES) )"},{"Add":" ((<> B Ign)"},{"Add":" (when (> (dec 'B (char \"0\")) 9)"},{"Add":" (ret 0) )"},{"Add":" (set Num"},{"Add":" (addu"},{"Add":" (tenfold (val Num))"},{"Add":" (cnt (i64 B)) ) )"},{"Add":" (when Frac"},{"Add":" (dec 'Scl) ) ) ) )"},{"Add":" (when Frac"},{"Add":" (while (ge0 (dec 'Scl))"},{"Add":" (set Num (tenfold (val Num))) ) )"},{"Add":" (setq Num (val Num))"},{"Add":" (if Sign (neg Num) Num) ) )"},{"Add":""},{"Add":"(de i64 fmtWord ((i64 . N) (i64 . Scl) (i8 . Sep) (i8 . Ign) (i64* . P))"},{"Add":" (when (> N 9)"},{"Add":" (setq Scl (fmtWord (/ N 10) Scl Sep Ign P))"},{"Add":" (cond"},{"Add":" ((=0 Scl) (byteSym Sep P))"},{"Add":" ((and Ign (gt0 Scl) (=0 (% Scl 3)))"},{"Add":" (byteSym Ign P) ) )"},{"Add":" (dec 'Scl)"},{"Add":" (setq N (% N 10)) )"},{"Add":" (byteSym (+ (i8 N) (char \"0\")) P)"},{"Add":" Scl )"},{"Add":""},{"Add":"# Format number to output, length, or symbol"},{"Add":"(de fmtNum (Num (i64 . Scl) (i8 . Sep) (i8 . Ign) (i64* . P))"},{"Add":" (let (Sign (sign? Num) Len (+ 19 17)) # Length of 'cnt' (60 bit) plus round up div/18"},{"Add":" # Calculate buffer size"},{"Add":" (let N (setq Num (& Num -9)) # Clear sign bit"},{"Add":" (until (cnt? N) # Calculate length"},{"Add":" (inc 'Len 20)"},{"Add":" (setq N (val (big N))) ) ) # Add length of 'digit'"},{"Add":" (setq Len (/ Len 18)) # Divide by 18 (rounded), word count"},{"Add":" (let (Acc (b64 Len) TopA Acc)"},{"Add":" # Build BCD"},{"Add":" (let (Inc (b64 Len) TopI Inc)"},{"Add":" (set Acc 0 Inc 1) # Init accumulator to 0 and incrementor to 1"},{"Add":" (loop"},{"Add":" (let (Dig Num Mask 16)"},{"Add":" (when (big? Num) # and first digit and mask"},{"Add":" (setq Dig (val (dig Num)) Mask 1) )"},{"Add":" (loop"},{"Add":" (when (& Dig Mask) # Bit is set"},{"Add":" # Add incrementor to accumulator"},{"Add":" (let (A Acc I Inc C 0) # Carry for BCD addition"},{"Add":" (loop"},{"Add":" (let N (+ (val A) (val I) C) # Add BCDs and Carry"},{"Add":" (setq C"},{"Add":" (if (> 1000000000000000000 N)"},{"Add":" 0"},{"Add":" (dec 'N 1000000000000000000) # BCD overflow"},{"Add":" 1 ) )"},{"Add":" (set A N) )"},{"Add":" (? (> (inc 'I) TopI))"},{"Add":" (when (> (inc 'A) TopA)"},{"Add":" (inc 'TopA) # Extend accumulator"},{"Add":" (set A 0) ) ) # with 0"},{"Add":" (when C # BCD-Carry"},{"Add":" (set (inc 'TopA) 1) ) ) ) # Extend accumulator with 1"},{"Add":" # Shift incrementor left"},{"Add":" (let (I Inc C 0)"},{"Add":" (loop"},{"Add":" (let N (val I)"},{"Add":" (setq C"},{"Add":" (if (> 1000000000000000000 (setq N (+ N N C))) # Double digit"},{"Add":" 0"},{"Add":" (dec 'N 1000000000000000000) # BCD overflow"},{"Add":" 1 ) )"},{"Add":" (set I N) )"},{"Add":" (? (> (inc 'I) TopI)) )"},{"Add":" (when C # BCD-Carry"},{"Add":" (inc 'TopI) # Extend incrementor"},{"Add":" (set I 1) ) ) # with 1"},{"Add":" (? (=0 (setq Mask (shl Mask 1)))) ) )"},{"Add":" (? (cnt? Num))"},{"Add":" (setq Num (val (big Num))) ) )"},{"Add":" (cond"},{"Add":" ((ge0 Scl) # Build symbol"},{"Add":" (when Sign"},{"Add":" (byteSym (char \"-\") P) )"},{"Add":" (let N (* (shr (- TopA Acc) 3) 18) # Calculate length~1"},{"Add":" (let D (val TopA)"},{"Add":" (while (setq D (/ D 10))"},{"Add":" (inc 'N) ) )"},{"Add":" (when (lt0 (setq Scl (- N Scl)))"},{"Add":" (byteSym (char \"0\") P)"},{"Add":" (byteSym Sep P)"},{"Add":" (while (> -1 Scl)"},{"Add":" (inc 'Scl)"},{"Add":" (byteSym (char \"0\") P) ) ) )"},{"Add":" (setq Scl (fmtWord (val TopA) Scl Sep Ign P)) # Pack highest word"},{"Add":" (while (>= (dec 'TopA) Acc)"},{"Add":" (let (N (val TopA) D 100000000000000000)"},{"Add":" (loop"},{"Add":" (cond"},{"Add":" ((=0 Scl) (byteSym Sep P))"},{"Add":" ((and Ign (gt0 Scl) (=0 (% Scl 3)))"},{"Add":" (byteSym Ign P) ) )"},{"Add":" (dec 'Scl)"},{"Add":" (? (== 1 D))"},{"Add":" (byteSym (+ (i8 (/ N D)) (char \"0\")) P)"},{"Add":" (setq N (% N D) D (/ D 10)) )"},{"Add":" (byteSym (+ (i8 N) (char \"0\")) P) ) )"},{"Add":" 0 )"},{"Add":" ((== Scl -1) # Direct print"},{"Add":" (when Sign"},{"Add":" (call $Put (char \"-\")) ) # Output sign"},{"Add":" (outWord (val TopA)) # Output highest word"},{"Add":" (while (>= (dec 'TopA) Acc)"},{"Add":" (let (N (val TopA) D 100000000000000000)"},{"Add":" (loop"},{"Add":" (call $Put (+ (i8 (/ N D)) (char \"0\"))) # Output next digit"},{"Add":" (setq N (% N D))"},{"Add":" (? (== 1 (setq D (/ D 10)))) )"},{"Add":" (call $Put (+ (i8 N) (char \"0\"))) ) ) # Output last digit"},{"Add":" 0 )"},{"Add":" (T # Calculate length"},{"Add":" (let (N (* (shr (- TopA Acc) 3) 18) D (val TopA))"},{"Add":" (loop"},{"Add":" (inc 'N)"},{"Add":" (? (=0 (setq D (/ D 10)))) )"},{"Add":" (when Sign"},{"Add":" (inc 'N) )"},{"Add":" (cnt N) ) ) ) ) ) )"},{"Add":""},{"Add":"# (format 'num ['cnt ['sym1 ['sym2]]]) -> sym"},{"Add":"# (format 'sym|lst ['cnt ['sym1 ['sym2]]]) -> num"},{"Add":"(de _Format (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" A (save (eval (++ X)))"},{"Add":" Y (eval (++ X))"},{"Add":" Scl (if (nil? Y) 0 (xCnt Exe Y))"},{"Add":" Sep (i8 (char \".\"))"},{"Add":" Ign (i8 0) )"},{"Add":" (when (pair X)"},{"Add":" (setq Sep (firstByte (needSymb Exe (eval (++ X)))))"},{"Add":" (when (pair X)"},{"Add":" (setq Ign (firstByte (needSymb Exe (eval (car X))))) ) )"},{"Add":" (cond"},{"Add":" ((num? A)"},{"Add":" (let P (push 4 NIL ZERO NIL) # [cnt last name link]"},{"Add":" (link (ofs P 2))"},{"Add":" (fmtNum A Scl Sep Ign P)"},{"Add":" (consStr (val 3 P)) ) )"},{"Add":" ((sym? A)"},{"Add":" (cond"},{"Add":" ((sym? (val (tail A))) $Nil)"},{"Add":" ((=0 (symToNum (name @) Scl Sep Ign)) $Nil)"},{"Add":" (T @) ) )"},{"Add":" (T"},{"Add":" (if"},{"Add":" (symToNum"},{"Add":" (let P (push 4 NIL ZERO NIL) # [cnt last name link]"},{"Add":" (link (ofs P 2))"},{"Add":" (pack A P)"},{"Add":" (val 3 P) )"},{"Add":" Scl Sep Ign )"},{"Add":" @"},{"Add":" $Nil ) ) ) ) )"},{"Add":""},{"Add":"### Arithmetics ###"},{"Add":"# (+ 'num ..) -> num"},{"Add":"(de _Add (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if (nil? (eval (car X)))"},{"Add":" @"},{"Add":" (save -ZERO"},{"Add":" (let R (link (push (needNum Exe @) NIL))"},{"Add":" (loop"},{"Add":" (? (atom (shift X)) (val R))"},{"Add":" (? (nil? (eval (car X))) @)"},{"Add":" (safe (needNum Exe @))"},{"Add":" (set R (adds (val R) @)) ) ) ) ) ) )"},{"Add":""},{"Add":"# (- 'num ..) -> num"},{"Add":"(de _Sub (Exe)"},{"Add":" (let (X (cdr Exe) N (eval (++ X)))"},{"Add":" (if (nil? N)"},{"Add":" N"},{"Add":" (needNum Exe N)"},{"Add":" (if (atom X) # Unary minus"},{"Add":" (neg N)"},{"Add":" (save -ZERO"},{"Add":" (let R (link (push N NIL))"},{"Add":" (loop"},{"Add":" (? (nil? (eval (++ X))) @)"},{"Add":" (safe (needNum Exe @))"},{"Add":" (set R (subs (val R) @))"},{"Add":" (? (atom X) (val R)) ) ) ) ) ) ) )"},{"Add":""},{"Add":"# (inc 'num) -> num"},{"Add":"# (inc 'var ['num]) -> num"},{"Add":"(de _Inc (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (cond"},{"Add":" ((nil? (eval (car X))) @)"},{"Add":" ((num? @) (incs @))"},{"Add":" (T"},{"Add":" (let Y (save (chkVar Exe @)) # Symbol or cell"},{"Add":" (when (and (sym? Y) (sym? (val (tail Y)))) # External"},{"Add":" (dbTouch Exe Y) )"},{"Add":" (if (atom (shift X))"},{"Add":" (if (nil? (val Y))"},{"Add":" @"},{"Add":" (set Y (incs (needNum Exe @))) )"},{"Add":" (let (D (save (eval (car X))) N (val Y))"},{"Add":" (cond"},{"Add":" ((nil? N) N)"},{"Add":" ((nil? D) D)"},{"Add":" (T (set Y (adds (needNum Exe N) (needNum Exe D)))) ) ) ) ) ) ) ) )"},{"Add":""},{"Add":"# (dec 'num) -> num"},{"Add":"# (dec 'var ['num]) -> num"},{"Add":"(de _Dec (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (cond"},{"Add":" ((nil? (eval (car X))) @)"},{"Add":" ((num? @) (decs @))"},{"Add":" (T"},{"Add":" (let Y (save (chkVar Exe @)) # Symbol or cell"},{"Add":" (when (and (sym? Y) (sym? (val (tail Y)))) # External"},{"Add":" (dbTouch Exe Y) )"},{"Add":" (if (atom (shift X))"},{"Add":" (if (nil? (val Y))"},{"Add":" @"},{"Add":" (set Y (decs (needNum Exe @))) )"},{"Add":" (let (D (save (eval (car X))) N (val Y))"},{"Add":" (cond"},{"Add":" ((nil? N) N)"},{"Add":" ((nil? D) D)"},{"Add":" (T (set Y (subs (needNum Exe N) (needNum Exe D)))) ) ) ) ) ) ) ) )"},{"Add":""},{"Add":"# (* 'num ..) -> num"},{"Add":"(de _Mul (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if (nil? (eval (car X)))"},{"Add":" @"},{"Add":" (save -ZERO"},{"Add":" (let"},{"Add":" (Sign (sign? (needNum Exe @))"},{"Add":" R (link (push (pos @) NIL)) )"},{"Add":" (loop"},{"Add":" (? (atom (shift X))"},{"Add":" (let N (val R)"},{"Add":" (if Sign (neg N) N) ) )"},{"Add":" (let N (eval (car X))"},{"Add":" (? (nil? N) N)"},{"Add":" (? (== N ZERO) N)"},{"Add":" (when (sign? (needNum Exe N))"},{"Add":" (setq Sign (not Sign) N (pos N)) )"},{"Add":" (safe N)"},{"Add":" (set R (mulu (val R) N)) ) ) ) ) ) ) )"},{"Add":""},{"Add":"# (*/ 'num1 ['num2 ..] 'num3) -> num"},{"Add":"(de _MulDiv (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if (nil? (eval (car X)))"},{"Add":" @"},{"Add":" (save -ZERO"},{"Add":" (let"},{"Add":" (Sign (sign? (needNum Exe @))"},{"Add":" R (link (push (pos @) NIL)) )"},{"Add":" (shift X)"},{"Add":" (loop"},{"Add":" (let N (eval (car X))"},{"Add":" (? (nil? N) N)"},{"Add":" (when (sign? (needNum Exe N))"},{"Add":" (setq Sign (not Sign) N (pos N)) )"},{"Add":" (safe N)"},{"Add":" (? (atom (shift X))"},{"Add":" (when (== N ZERO)"},{"Add":" (divErr Exe) )"},{"Add":" (let Half (save (shru N))"},{"Add":" (setq N"},{"Add":" (divu # Divide by last arg"},{"Add":" (set R (addu (val R) Half)) # Round"},{"Add":" N ) ) )"},{"Add":" (if Sign (neg N) N) )"},{"Add":" (? (== N ZERO) N)"},{"Add":" (set R (mulu (val R) N)) ) ) ) ) ) ) )"},{"Add":""},{"Add":"# (/ 'num ..) -> num"},{"Add":"(de _Div (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if (nil? (eval (car X)))"},{"Add":" @"},{"Add":" (save -ZERO"},{"Add":" (let"},{"Add":" (Sign (sign? (needNum Exe @))"},{"Add":" R (link (push (pos @) NIL)) )"},{"Add":" (loop"},{"Add":" (? (atom (shift X))"},{"Add":" (let N (val R)"},{"Add":" (if Sign (neg N) N) ) )"},{"Add":" (let N (eval (car X))"},{"Add":" (? (nil? N) N)"},{"Add":" (when (== N ZERO)"},{"Add":" (divErr Exe) )"},{"Add":" (when (sign? (needNum Exe N))"},{"Add":" (setq Sign (not Sign) N (pos N)) )"},{"Add":" (safe N)"},{"Add":" (set R (divu (val R) N)) ) ) ) ) ) ) )"},{"Add":""},{"Add":"# (% 'num ..) -> num"},{"Add":"(de _Rem (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if (nil? (eval (car X)))"},{"Add":" @"},{"Add":" (save -ZERO"},{"Add":" (let"},{"Add":" (Sign (sign? (needNum Exe @))"},{"Add":" R (link (push (pos @) NIL)) )"},{"Add":" (loop"},{"Add":" (? (atom (shift X))"},{"Add":" (let N (val R)"},{"Add":" (if Sign (neg N) N) ) )"},{"Add":" (let N (eval (car X))"},{"Add":" (? (nil? N) N)"},{"Add":" (when (== N ZERO)"},{"Add":" (divErr Exe) )"},{"Add":" (set R"},{"Add":" (remu"},{"Add":" (val R)"},{"Add":" (safe (pos (needNum Exe N))) ) ) ) ) ) ) ) ) )"},{"Add":""},{"Add":"# (>> 'cnt 'num) -> num"},{"Add":"(de _Shr (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" N (evCnt Exe X)"},{"Add":" Y (eval (cadr X)) )"},{"Add":" (if"},{"Add":" (or"},{"Add":" (=0 N)"},{"Add":" (nil? Y)"},{"Add":" (== ZERO (needNum Exe Y)) )"},{"Add":" Y"},{"Add":" (let Sign (sign? Y)"},{"Add":" (setq Y (save (pos Y)))"},{"Add":" (cond"},{"Add":" ((gt0 N)"},{"Add":" (while (and (big? Y) (>= N 64)) # Large shift count"},{"Add":" (setq Y (val (big Y))) # Discard 64 bits"},{"Add":" (unless (dec 'N 64)"},{"Add":" (goto 9) ) )"},{"Add":" (setq Y (safe (shru Y))) # Non-destructive"},{"Add":" (while (dec 'N)"},{"Add":" (setq Y (half Y)) ) ) # Shift right (destructive)"},{"Add":" (T"},{"Add":" (while (>= -64 N)"},{"Add":" (setq Y (safe (consNum 0 Y)))"},{"Add":" (unless (inc 'N 64)"},{"Add":" (goto 9) ) )"},{"Add":" (setq Y (safe (shlu Y))) # Non-destructive"},{"Add":" (while (inc 'N)"},{"Add":" (setq Y (safe (twice Y))) ) ) ) # Shift left (destructive)"},{"Add":" (: 9"},{"Add":" (if Sign (neg Y) Y) ) ) ) ) )"},{"Add":""},{"Add":"# (rev 'cnt1 'cnt2) -> cnt"},{"Add":"(de _Rev (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" C (evCnt Exe X)"},{"Add":" N (evCnt Exe (cdr X))"},{"Add":" R 0 )"},{"Add":" (loop"},{"Add":" (setq"},{"Add":" R (+ R R (& N 1))"},{"Add":" N (shr N 1) )"},{"Add":" (? (=0 (dec 'C))) )"},{"Add":" (cnt R) ) )"},{"Add":""},{"Add":"# (lt0 'any) -> num | NIL"},{"Add":"(de _Lt0 (Exe)"},{"Add":" (if (and (num? (eval (cadr Exe))) (sign? @))"},{"Add":" @"},{"Add":" $Nil ) )"},{"Add":""},{"Add":"# (le0 'any) -> num | NIL"},{"Add":"(de _Le0 (Exe)"},{"Add":" (if"},{"Add":" (and"},{"Add":" (num? (eval (cadr Exe)))"},{"Add":" (or (== @ ZERO) (sign? @)) )"},{"Add":" @"},{"Add":" $Nil ) )"},{"Add":""},{"Add":"# (ge0 'any) -> num | NIL"},{"Add":"(de _Ge0 (Exe)"},{"Add":" (if"},{"Add":" (and"},{"Add":" (num? (eval (cadr Exe)))"},{"Add":" (not (sign? @)) )"},{"Add":" @"},{"Add":" $Nil ) )"},{"Add":""},{"Add":"# (gt0 'any) -> num | NIL"},{"Add":"(de _Gt0 (Exe)"},{"Add":" (if"},{"Add":" (and"},{"Add":" (num? (eval (cadr Exe)))"},{"Add":" (<> @ ZERO)"},{"Add":" (not (sign? @)) )"},{"Add":" @"},{"Add":" $Nil ) )"},{"Add":""},{"Add":"# (abs 'num) -> num"},{"Add":"(de _Abs (Exe)"},{"Add":" (if (nil? (eval (cadr Exe)))"},{"Add":" @"},{"Add":" (pos (needNum Exe @)) ) )"},{"Add":""},{"Add":"### Bit operations ###"},{"Add":"# (bit? 'num ..) -> num | NIL"},{"Add":"(de _BitQ (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" N (save (pos (needNum Exe (eval (++ X))))) )"},{"Add":" (loop"},{"Add":" (? (atom X) N) # All matched"},{"Add":" (let Y (eval (++ X))"},{"Add":" (? (nil? Y) Y) # Abort with NIL"},{"Add":" (setq Y (pos (needNum Exe Y)))"},{"Add":" (let Z N"},{"Add":" (while (big? Z)"},{"Add":" (unless (big? Y)"},{"Add":" (ret $Nil) )"},{"Add":" (let A (val (dig Z))"},{"Add":" (unless (== A (& A (val (dig Y))))"},{"Add":" (ret $Nil) ) )"},{"Add":" (setq"},{"Add":" Y (val (big Y))"},{"Add":" Z (val (big Z)) ) )"},{"Add":" (when (big? Y)"},{"Add":" (setq Z (int Z) Y (val (dig Y))) )"},{"Add":" (? (<> Z (& Y Z)) $Nil) ) ) ) ) )"},{"Add":""},{"Add":"# (& 'num ..) -> num"},{"Add":"(de _BitAnd (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if (nil? (eval (car X)))"},{"Add":" @"},{"Add":" (save -ZERO"},{"Add":" (let R (link (push (pos (needNum Exe @)) NIL))"},{"Add":" (loop"},{"Add":" (? (atom (shift X)) (val R))"},{"Add":" (? (nil? (eval (car X))) @)"},{"Add":" (safe (needNum Exe @))"},{"Add":" (set R (andu (val R) (pos @))) ) ) ) ) ) )"},{"Add":""},{"Add":"# (| 'num ..) -> num"},{"Add":"(de _BitOr (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if (nil? (eval (car X)))"},{"Add":" @"},{"Add":" (save -ZERO"},{"Add":" (let R (link (push (pos (needNum Exe @)) NIL))"},{"Add":" (loop"},{"Add":" (? (atom (shift X)) (val R))"},{"Add":" (? (nil? (eval (car X))) @)"},{"Add":" (safe (needNum Exe @))"},{"Add":" (set R (oru (val R) (pos @))) ) ) ) ) ) )"},{"Add":""},{"Add":"# (x| 'num ..) -> num"},{"Add":"(de _BitXor (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if (nil? (eval (car X)))"},{"Add":" @"},{"Add":" (save -ZERO"},{"Add":" (let R (link (push (pos (needNum Exe @)) NIL))"},{"Add":" (loop"},{"Add":" (? (atom (shift X)) (val R))"},{"Add":" (? (nil? (eval (car X))) @)"},{"Add":" (safe (needNum Exe @))"},{"Add":" (set R (xoru (val R) (pos @))) ) ) ) ) ) )"},{"Add":""},{"Add":"# (sqrt 'num ['flg|num]) -> num"},{"Add":"(de _Sqrt (Exe)"},{"Add":" (let X (cdr Exe)"},{"Add":" (if (nil? (eval (car X)))"},{"Add":" @"},{"Add":" (when (sign? (needNum Exe @))"},{"Add":" (argErr Exe @) )"},{"Add":" (let (Y (save @) Z (save (eval (cadr X))))"},{"Add":" (when (num? Z)"},{"Add":" (setq Y (safe (mulu Y Z))) )"},{"Add":" (prog1"},{"Add":" (if (cnt? Y)"},{"Add":" (let (M (hex \"400000000000000\") R 0)"},{"Add":" (setq Y (int Y))"},{"Add":" (loop"},{"Add":" (let N (+ R M)"},{"Add":" (when (>= Y N)"},{"Add":" (dec 'Y N)"},{"Add":" (setq R (+ N M)) ) )"},{"Add":" (setq R (shr R 1))"},{"Add":" (? (=0 (setq M (shr M 2)))) )"},{"Add":" (or (nil? Z) (>= R Y) (inc 'R)) # Round"},{"Add":" (cnt R) )"},{"Add":" (let"},{"Add":" (M (consNum 0 ONE)"},{"Add":" M* (link (push M NIL))"},{"Add":" R (link (push ZERO NIL))"},{"Add":" C (boxNum (val (dig Y))) # Copy number"},{"Add":" C* (link (push C NIL)) )"},{"Add":" (while (big? (setq Y (val (big Y))))"},{"Add":" (setq C"},{"Add":" (set (big C) (boxNum (val (dig Y)))) )"},{"Add":" (setq M (set M* (consNum 0 M))) )"},{"Add":" (set (big C) Y)"},{"Add":" (setq Y (safe (val C*)))"},{"Add":" (while (le0 (cmpu M Y))"},{"Add":" (twiceBig M)"},{"Add":" (twiceBig M) )"},{"Add":" (loop"},{"Add":" (let N (set C* (addu (val R) M))"},{"Add":" (when (ge0 (cmpu Y N))"},{"Add":" (setq Y (safe (subu Y N)))"},{"Add":" (set R (addu N M)) ) )"},{"Add":" (set R (half (val R)))"},{"Add":" (?"},{"Add":" (=="},{"Add":" ZERO"},{"Add":" (setq M (set M* (half (half M)))) ) ) )"},{"Add":" (setq R (val R))"},{"Add":" (if (or (nil? Z) (ge0 (cmpu R Y)))"},{"Add":" R"},{"Add":" (addu R ONE) ) ) ) ) ) ) ) ) # Round"},{"Add":""},{"Add":""},{"Add":"### Random generator ###"},{"Add":"(local) initSeed"},{"Add":""},{"Add":"(de initSeed (X)"},{"Add":" (let C 0"},{"Add":" (while (pair X)"},{"Add":" (inc 'C (initSeed (++ X))) )"},{"Add":" (unless (nil? X)"},{"Add":" (unless (num? X) # Need number"},{"Add":" (setq X (name (& (val (tail X)) -9))) )"},{"Add":" (if (cnt? X)"},{"Add":" (inc 'C (shr X 3)) # Keep sign"},{"Add":" (when (sign? X)"},{"Add":" (inc 'C)"},{"Add":" (setq X (pos X)) )"},{"Add":" (loop"},{"Add":" (inc 'C (val (dig X)))"},{"Add":" (? (cnt? (setq X (val (big X))))) )"},{"Add":" (inc 'C (int X)) ) )"},{"Add":" C ) )"},{"Add":""},{"Add":"# (seed 'any) -> cnt"},{"Add":"(de _Seed (Exe)"},{"Add":" (let N (mul 6364136223846793005 (initSeed (eval (cadr Exe))))"},{"Add":" (set $SeedL N $SeedH @@@)"},{"Add":" (| (& (shr N (- 32 3)) -8) 2) ) ) # Get higher 32 bits"},{"Add":""},{"Add":"# (hash 'any) -> cnt"},{"Add":"(de _Hash (Exe)"},{"Add":" (let (N (initSeed (eval (cadr Exe))) C 64 R 0)"},{"Add":" (loop"},{"Add":" (when (& (x| N R) 1)"},{"Add":" (setq R (x| R (hex \"14002\"))) ) # CRC Polynom x**16 + x**15 + x**2 + 1"},{"Add":" (setq N (shr N 1) R (shr R 1))"},{"Add":" (? (=0 (dec 'C))) )"},{"Add":" (cnt (inc R)) ) )"},{"Add":""},{"Add":"# (rand ['cnt1 'cnt2] | ['T]) -> cnt | flg"},{"Add":"(de _Rand (Exe)"},{"Add":" (let"},{"Add":" (X (cdr Exe)"},{"Add":" Y (eval (++ X))"},{"Add":" N (add (mul 6364136223846793005 (val $SeedL)) 1) )"},{"Add":" (set $SeedL N $SeedH (+ @@@ @@))"},{"Add":" (cond"},{"Add":" ((nil? Y)"},{"Add":" (| (& (shr N (- 32 3)) -8) 2) ) # Get higher 32 bits"},{"Add":" ((t? Y)"},{"Add":" (add N N)"},{"Add":" (if @@ Y $Nil) )"},{"Add":" (T"},{"Add":" (when (sign? (needCnt Exe Y))"},{"Add":" (argErr Exe Y) )"},{"Add":" (let A (int Y)"},{"Add":" (when (sign? (needCnt Exe (setq Y (eval (car X)))))"},{"Add":" (argErr Exe Y) )"},{"Add":" (let B (inc (int Y)) # Seed % (cnt2 + 1 - cnt1) + cnt1"},{"Add":" (when (>= A B)"},{"Add":" (argErr Exe Y) )"},{"Add":" (setq N"},{"Add":" (+"},{"Add":" (%"},{"Add":" (shr (val $SeedH) (val $SeedL) 32) # Get middle 64 bits"},{"Add":" (- B A) )"},{"Add":" A ) )"},{"Add":" (if (lt0 N)"},{"Add":" (sign (cnt (- N)))"},{"Add":" (cnt N) ) ) ) ) ) ) )"}]}},{"FileAdd":{"meta":{"basename":"base.ll","metadata":0},"context":[{"change":0,"pos":63931}],"contents":[{"Add":"source_filename = \"base.l\""},{"Add":""},{"Add":"declare {i64, i1} @llvm.uadd.with.overflow.i64(i64, i64)"},{"Add":"declare {i64, i1} @llvm.usub.with.overflow.i64(i64, i64)"},{"Add":"declare i64 @llvm.fshl.i64(i64, i64, i64)"},{"Add":"declare i64 @llvm.fshr.i64(i64, i64, i64)"},{"Add":"declare void @llvm.memcpy.p0i8.p0i8.i64(i8*, i8*, i64, i1)"},{"Add":"declare void @llvm.memset.p0i8.i64(i8*, i8, i64, i1)"},{"Add":"declare i8* @llvm.stacksave()"},{"Add":"declare void @llvm.stackrestore(i8*)"},{"Add":""},{"Add":"@$AV0 = global i8* null"},{"Add":"@$AV = global i8** null"},{"Add":"@$PilHome = global i8* null"},{"Add":"@$PilLen = global i64 0"},{"Add":"@$UsrHome = global i8* null"},{"Add":"@$UsrLen = global i64 0"},{"Add":"@$Heaps = global i64 0"},{"Add":"@$Avail = global i64 0"},{"Add":"@$Extern = global i64 0"},{"Add":"@$ExtCnt = global i64 1"},{"Add":"@$ExtSkip = global i64 0"},{"Add":"@$Coroutines = global i8* null"},{"Add":"@$Current = global i8* null"},{"Add":"@$CrtLast = global i8* null"},{"Add":"@$CrtFree = global i8* null"},{"Add":"@$StkLimit = global i8* null"},{"Add":"@$StkSizeT = global i64 262144"},{"Add":"@$StkSize = global i64 65536"},{"Add":"@$Stdin = global i8* null"},{"Add":"@$Stdout = global i8* null"},{"Add":"@$LinePtr = global i8* null"},{"Add":"@$LineBuf = global i8* null"},{"Add":"@$LinePrmt = global i8* null"},{"Add":"@$ReplPrmt = global i8* null"},{"Add":"@$ContPrmt = global i8* null"},{"Add":"@$Ret = global i64 0"},{"Add":"@$TtyPid = global i32 0"},{"Add":"@$InFDs = global i32 0"},{"Add":"@$InFiles = global i8** null"},{"Add":"@$OutFiles = global i8** null"},{"Add":"@$IoCnt = global i32 0"},{"Add":"@$IoIx = global i64 0"},{"Add":"@$IoChar = global i64 0"},{"Add":"@$PutBin = global void(i8)* null"},{"Add":"@$GetBin = global i32()* null"},{"Add":"@$OutFDs = global i32 0"},{"Add":"@$Nfds = global i32 0"},{"Add":"@$Poll = global i64* null"},{"Add":"@$SeedL = global i64 0"},{"Add":"@$SeedH = global i64 0"},{"Add":"@$USec = global i64 0"},{"Add":"@$Child = global i8* null"},{"Add":"@$Children = global i32 0"},{"Add":"@$Slot = global i32 0"},{"Add":"@$Spkr = global i32 0"},{"Add":"@$Mic = global i32 0"},{"Add":"@$SpMiPipe = global [2 x i32] ["},{"Add":" i32 0,"},{"Add":" i32 0"},{"Add":"]"},{"Add":"@$Talking = global i32 0"},{"Add":"@$Hear = global i32 0"},{"Add":"@$Tell = global i32 0"},{"Add":"@$TellBuf = global i8* null"},{"Add":"@$Ptr = global i8* null"},{"Add":"@$End = global i8* null"},{"Add":"@$BufX = global i8* null"},{"Add":"@$PtrX = global i8* null"},{"Add":"@$EndX = global i8* null"},{"Add":"@$ExtN = global i32 0"},{"Add":"@$Extn = global i32 0"},{"Add":"@$StrP = global i64* null"},{"Add":"@$GcCount = global i64 65536"},{"Add":"@$DbFiles = global i8* null"},{"Add":"@$DbFile = global i8* null"},{"Add":"@$DBs = global i32 0"},{"Add":"@$MaxBlkSize = global i32 0"},{"Add":"@$DbBlock = global i8* null"},{"Add":"@$BlkIndex = global i64 0"},{"Add":"@$BlkLink = global i64 0"},{"Add":"@$BlkPtr = global i8* null"},{"Add":"@$BlkEnd = global i8* null"},{"Add":"@$DbJnl = global i8* null"},{"Add":"@$DbLog = global i8* null"},{"Add":"@$Signal = global [16 x i32] ["},{"Add":" i32 0,"},{"Add":" i32 0,"},{"Add":" i32 0,"},{"Add":" i32 0,"},{"Add":" i32 0,"},{"Add":" i32 0,"},{"Add":" i32 0,"},{"Add":" i32 0,"},{"Add":" i32 0,"},{"Add":" i32 0,"},{"Add":" i32 0,"},{"Add":" i32 0,"},{"Add":" i32 0,"},{"Add":" i32 0,"},{"Add":" i32 0,"},{"Add":" i32 0"},{"Add":"]"},{"Add":"@SymTab = global [876 x i64] ["},{"Add":" ; # [0] NIL"},{"Add":" i64 79992034,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 0,"},{"Add":" ; # [32] ~"},{"Add":" i64 2018,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 40) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 40) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 48) to i64),"},{"Add":" ; # [80] pico"},{"Add":" i64 29900576514,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 64) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 88) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 40) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 112) to i64),"},{"Add":" ; # [144] priv"},{"Add":" i64 31785953026,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 128) to i64),"},{"Add":" ; # [160] *OS"},{"Add":" i64 87356066,"},{"Add":" i64 0,"},{"Add":" ; # [176] *CPU"},{"Add":" i64 22901174946,"},{"Add":" i64 0,"},{"Add":" ; # [192] *Pid"},{"Add":" i64 26953974434,"},{"Add":" i64 0,"},{"Add":" ; # [208] *PPid"},{"Add":" i64 6900217610914,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [224] *DB"},{"Add":" i64 69485218,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [240] meth"},{"Add":" i64 28039337682,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64,i64)* @__Meth to i8*), i32 2) to i64),"},{"Add":" ; # [256] quote"},{"Add":" i64 6971922536210,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Quote to i8*), i32 2) to i64),"},{"Add":" ; # [272] T"},{"Add":" i64 1346,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 280) to i64),"},{"Add":" ; # [288] N"},{"Add":" i64 1250,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [304] C"},{"Add":" i64 1074,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [320] S"},{"Add":" i64 1330,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [336] B"},{"Add":" i64 1058,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [352] I"},{"Add":" i64 1170,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [368] P"},{"Add":" i64 1282,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [384] W"},{"Add":" i64 1394,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 0,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [416] *Solo"},{"Add":" i64 7656969679522,"},{"Add":" i64 2,"},{"Add":" ; # [432] @"},{"Add":" i64 1026,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [448] @@"},{"Add":" i64 263170,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [464] @@@"},{"Add":" i64 67372034,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [480] This"},{"Add":" i64 30980605250,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [496] *Prompt"},{"Add":" i64 524395401951117986,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [512] *Zap"},{"Add":" i64 30166852258,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [528] *Ext"},{"Add":" i64 31264625314,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [544] *Scl"},{"Add":" i64 29095178914,"},{"Add":" i64 2,"},{"Add":" ; # [560] *Rule"},{"Add":" i64 6969781199522,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [576] *Class"},{"Add":" i64 2031030286693026,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [592] *Run"},{"Add":" i64 29650920098,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [608] *Hup"},{"Add":" i64 30187750050,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [624] *Sig1"},{"Add":" i64 3395013653154,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [640] *Sig2"},{"Add":" i64 3463733129890,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [656] *Winch"},{"Add":" i64 1836420215173794,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [672] *TStp1"},{"Add":" i64 869744923460258,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [688] *TStp2"},{"Add":" i64 887337109504674,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [704] *Term"},{"Add":" i64 7521130857122,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [720] ^"},{"Add":" i64 1506,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [736] *Err"},{"Add":" i64 30721462946,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [752] *Msg"},{"Add":" i64 27769754274,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [768] *Uni"},{"Add":" i64 28301415074,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [784] *Fork"},{"Add":" i64 7383702332066,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [800] *Bye"},{"Add":" i64 27239129762,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [816] *Dbg"},{"Add":" i64 27751891618,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" ; # [832] complete"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 852) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 7310579611546251107,"},{"Add":" i64 2,"},{"Add":" ; # [864] gc"},{"Add":" i64 407154,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Gc to i8*), i32 2) to i64),"},{"Add":" ; # [880] format"},{"Add":" i64 2047388749854306,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Format to i8*), i32 2) to i64),"},{"Add":" ; # [896] +"},{"Add":" i64 690,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Add to i8*), i32 2) to i64),"},{"Add":" ; # [912] -"},{"Add":" i64 722,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Sub to i8*), i32 2) to i64),"},{"Add":" ; # [928] inc"},{"Add":" i64 104261266,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Inc to i8*), i32 2) to i64),"},{"Add":" ; # [944] dec"},{"Add":" i64 104224322,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Dec to i8*), i32 2) to i64),"},{"Add":" ; # [960] *"},{"Add":" i64 674,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Mul to i8*), i32 2) to i64),"},{"Add":" ; # [976] */"},{"Add":" i64 193186,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_MulDiv to i8*), i32 2) to i64),"},{"Add":" ; # [992] /"},{"Add":" i64 754,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Div to i8*), i32 2) to i64),"},{"Add":" ; # [1008] %"},{"Add":" i64 594,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Rem to i8*), i32 2) to i64),"},{"Add":" ; # [1024] >>"},{"Add":" i64 254946,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Shr to i8*), i32 2) to i64),"},{"Add":" ; # [1040] rev"},{"Add":" i64 124147490,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Rev to i8*), i32 2) to i64),"},{"Add":" ; # [1056] lt0"},{"Add":" i64 50808514,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Lt0 to i8*), i32 2) to i64),"},{"Add":" ; # [1072] le0"},{"Add":" i64 50747074,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Le0 to i8*), i32 2) to i64),"},{"Add":" ; # [1088] ge0"},{"Add":" i64 50746994,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Ge0 to i8*), i32 2) to i64),"},{"Add":" ; # [1104] gt0"},{"Add":" i64 50808434,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Gt0 to i8*), i32 2) to i64),"},{"Add":" ; # [1120] abs"},{"Add":" i64 120989202,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Abs to i8*), i32 2) to i64),"},{"Add":" ; # [1136] bit?"},{"Add":" i64 17033500194,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_BitQ to i8*), i32 2) to i64),"},{"Add":" ; # [1152] &"},{"Add":" i64 610,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_BitAnd to i8*), i32 2) to i64),"},{"Add":" ; # [1168] |"},{"Add":" i64 1986,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_BitOr to i8*), i32 2) to i64),"},{"Add":" ; # [1184] x|"},{"Add":" i64 509826,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_BitXor to i8*), i32 2) to i64),"},{"Add":" ; # [1200] sqrt"},{"Add":" i64 31258515250,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Sqrt to i8*), i32 2) to i64),"},{"Add":" ; # [1216] seed"},{"Add":" i64 26949867314,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Seed to i8*), i32 2) to i64),"},{"Add":" ; # [1232] hash"},{"Add":" i64 28038272642,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Hash to i8*), i32 2) to i64),"},{"Add":" ; # [1248] rand"},{"Add":" i64 26959288098,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Rand to i8*), i32 2) to i64),"},{"Add":" ; # [1264] name"},{"Add":" i64 27226674914,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Name to i8*), i32 2) to i64),"},{"Add":" ; # [1280] nsp"},{"Add":" i64 117913314,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Nsp to i8*), i32 2) to i64),"},{"Add":" ; # [1296] sp?"},{"Add":" i64 66520882,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_SpQ to i8*), i32 2) to i64),"},{"Add":" ; # [1312] pat?"},{"Add":" i64 17033467650,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_PatQ to i8*), i32 2) to i64),"},{"Add":" ; # [1328] fun?"},{"Add":" i64 17027257954,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_FunQ to i8*), i32 2) to i64),"},{"Add":" ; # [1344] getd"},{"Add":" i64 26965595762,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Getd to i8*), i32 2) to i64),"},{"Add":" ; # [1360] all"},{"Add":" i64 113690130,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_All to i8*), i32 2) to i64),"},{"Add":" ; # [1376] symbols"},{"Add":" i64 519821567523788594,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Symbols to i8*), i32 2) to i64),"},{"Add":" ; # [1392] intern"},{"Add":" i64 1943001719301778,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Intern to i8*), i32 2) to i64),"},{"Add":" ; # [1408] ===="},{"Add":" i64 16438776786,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Hide to i8*), i32 2) to i64),"},{"Add":" ; # [1424] box?"},{"Add":" i64 17037719074,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_BoxQ to i8*), i32 2) to i64),"},{"Add":" ; # [1440] str?"},{"Add":" i64 17031448370,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_StrQ to i8*), i32 2) to i64),"},{"Add":" ; # [1456] zap"},{"Add":" i64 117839778,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Zap to i8*), i32 2) to i64),"},{"Add":" ; # [1472] chop"},{"Add":" i64 30181590578,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Chop to i8*), i32 2) to i64),"},{"Add":" ; # [1488] pack"},{"Add":" i64 28826801922,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Pack to i8*), i32 2) to i64),"},{"Add":" ; # [1504] glue"},{"Add":" i64 27235108466,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Glue to i8*), i32 2) to i64),"},{"Add":" ; # [1520] text"},{"Add":" i64 31264757570,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Text to i8*), i32 2) to i64),"},{"Add":" ; # [1536] pre?"},{"Add":" i64 17017808642,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_PreQ to i8*), i32 2) to i64),"},{"Add":" ; # [1552] sub?"},{"Add":" i64 17014675250,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_SubQ to i8*), i32 2) to i64),"},{"Add":" ; # [1568] val"},{"Add":" i64 113645410,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Val to i8*), i32 2) to i64),"},{"Add":" ; # [1584] set"},{"Add":" i64 122050354,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Set to i8*), i32 2) to i64),"},{"Add":" ; # [1600] setq"},{"Add":" i64 30455256882,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Setq to i8*), i32 2) to i64),"},{"Add":" ; # [1616] swap"},{"Add":" i64 30166972210,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Swap to i8*), i32 2) to i64),"},{"Add":" ; # [1632] xchg"},{"Add":" i64 27758311298,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Xchg to i8*), i32 2) to i64),"},{"Add":" ; # [1648] on"},{"Add":" i64 452338,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_On to i8*), i32 2) to i64),"},{"Add":" ; # [1664] off"},{"Add":" i64 107374322,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Off to i8*), i32 2) to i64),"},{"Add":" ; # [1680] onOff"},{"Add":" i64 7036850333426,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_OnOff to i8*), i32 2) to i64),"},{"Add":" ; # [1696] zero"},{"Add":" i64 29916288930,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Zero to i8*), i32 2) to i64),"},{"Add":" ; # [1712] one"},{"Add":" i64 106358514,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_One to i8*), i32 2) to i64),"},{"Add":" ; # [1728] default"},{"Add":" i64 524325579192161858,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Default to i8*), i32 2) to i64),"},{"Add":" ; # [1744] push"},{"Add":" i64 28038354690,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Push to i8*), i32 2) to i64),"},{"Add":" ; # [1760] push1"},{"Add":" i64 3395292714754,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Push1 to i8*), i32 2) to i64),"},{"Add":" ; # [1776] push1q"},{"Add":" i64 1991312315733762,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Push1q to i8*), i32 2) to i64),"},{"Add":" ; # [1792] pop"},{"Add":" i64 117896962,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Pop to i8*), i32 2) to i64),"},{"Add":" ; # [1808] ++"},{"Add":" i64 176818,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Popq to i8*), i32 2) to i64),"},{"Add":" ; # [1824] shift"},{"Add":" i64 7998950246194,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Shift to i8*), i32 2) to i64),"},{"Add":" ; # [1840] cut"},{"Add":" i64 122115634,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cut to i8*), i32 2) to i64),"},{"Add":" ; # [1856] del"},{"Add":" i64 113661506,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Del to i8*), i32 2) to i64),"},{"Add":" ; # [1872] queue"},{"Add":" i64 6972180485906,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Queue to i8*), i32 2) to i64),"},{"Add":" ; # [1888] fifo"},{"Add":" i64 29903722082,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Fifo to i8*), i32 2) to i64),"},{"Add":" ; # [1904] rid"},{"Add":" i64 105289506,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Rid to i8*), i32 2) to i64),"},{"Add":" ; # [1920] enum"},{"Add":" i64 29382600274,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Enum to i8*), i32 2) to i64),"},{"Add":" ; # [1936] enum?"},{"Add":" i64 4358709634642,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_EnumQ to i8*), i32 2) to i64),"},{"Add":" ; # [1952] idx"},{"Add":" i64 126240402,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Idx to i8*), i32 2) to i64),"},{"Add":" ; # [1968] lup"},{"Add":" i64 117921474,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Lup to i8*), i32 2) to i64),"},{"Add":" ; # [1984] put"},{"Add":" i64 122115842,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Put to i8*), i32 2) to i64),"},{"Add":" ; # [2000] get"},{"Add":" i64 122050162,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Get to i8*), i32 2) to i64),"},{"Add":" ; # [2016] prop"},{"Add":" i64 30181631746,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Prop to i8*), i32 2) to i64),"},{"Add":" ; # [2032] ;"},{"Add":" i64 946,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Semicol to i8*), i32 2) to i64),"},{"Add":" ; # [2048] =:"},{"Add":" i64 238546,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_SetCol to i8*), i32 2) to i64),"},{"Add":" ; # [2064] :"},{"Add":" i64 930,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Col to i8*), i32 2) to i64),"},{"Add":" ; # [2080] ::"},{"Add":" i64 238498,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_PropCol to i8*), i32 2) to i64),"},{"Add":" ; # [2096] putl"},{"Add":" i64 29113145090,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Putl to i8*), i32 2) to i64),"},{"Add":" ; # [2112] getl"},{"Add":" i64 29113079410,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Getl to i8*), i32 2) to i64),"},{"Add":" ; # [2128] wipe"},{"Add":" i64 27229853554,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Wipe to i8*), i32 2) to i64),"},{"Add":" ; # [2144] meta"},{"Add":" i64 26160289490,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Meta to i8*), i32 2) to i64),"},{"Add":" ; # [2160] low?"},{"Add":" i64 17036670658,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_LowQ to i8*), i32 2) to i64),"},{"Add":" ; # [2176] upp?"},{"Add":" i64 17029334866,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_UppQ to i8*), i32 2) to i64),"},{"Add":" ; # [2192] lowc"},{"Add":" i64 26700347074,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Lowc to i8*), i32 2) to i64),"},{"Add":" ; # [2208] uppc"},{"Add":" i64 26693011282,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Uppc to i8*), i32 2) to i64),"},{"Add":" ; # [2224] fold"},{"Add":" i64 26957248098,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Fold to i8*), i32 2) to i64),"},{"Add":" ; # [2240] path"},{"Add":" i64 28039321346,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Path to i8*), i32 2) to i64),"},{"Add":" ; # [2256] wait"},{"Add":" i64 31249012594,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Wait to i8*), i32 2) to i64),"},{"Add":" ; # [2272] sync"},{"Add":" i64 26690950962,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Sync to i8*), i32 2) to i64),"},{"Add":" ; # [2288] hear"},{"Add":" i64 30703769218,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Hear to i8*), i32 2) to i64),"},{"Add":" ; # [2304] tell"},{"Add":" i64 29104691010,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Tell to i8*), i32 2) to i64),"},{"Add":" ; # [2320] poll"},{"Add":" i64 29104731906,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Poll to i8*), i32 2) to i64),"},{"Add":" ; # [2336] read"},{"Add":" i64 26945672994,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Read to i8*), i32 2) to i64),"},{"Add":" ; # [2352] key"},{"Add":" i64 127293106,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Key to i8*), i32 2) to i64),"},{"Add":" ; # [2368] peek"},{"Add":" i64 28828915458,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Peek to i8*), i32 2) to i64),"},{"Add":" ; # [2384] char"},{"Add":" i64 30703781426,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Char to i8*), i32 2) to i64),"},{"Add":" ; # [2400] skip"},{"Add":" i64 30175311666,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Skip to i8*), i32 2) to i64),"},{"Add":" ; # [2416] eol"},{"Add":" i64 113702482,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Eol to i8*), i32 2) to i64),"},{"Add":" ; # [2432] eof"},{"Add":" i64 107411026,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Eof to i8*), i32 2) to i64),"},{"Add":" ; # [2448] from"},{"Add":" i64 29376325218,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_From to i8*), i32 2) to i64),"},{"Add":" ; # [2464] till"},{"Add":" i64 29104707394,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Till to i8*), i32 2) to i64),"},{"Add":" ; # [2480] line"},{"Add":" i64 27227756226,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Line to i8*), i32 2) to i64),"},{"Add":" ; # [2496] in"},{"Add":" i64 452242,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_In to i8*), i32 2) to i64),"},{"Add":" ; # [2512] out"},{"Add":" i64 122115826,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Out to i8*), i32 2) to i64),"},{"Add":" ; # [2528] err"},{"Add":" i64 120006226,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Err to i8*), i32 2) to i64),"},{"Add":" ; # [2544] ctl"},{"Add":" i64 113722930,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Ctl to i8*), i32 2) to i64),"},{"Add":" ; # [2560] input"},{"Add":" i64 8002984142482,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Input to i8*), i32 2) to i64),"},{"Add":" ; # [2576] output"},{"Add":" i64 2048763946817266,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Output to i8*), i32 2) to i64),"},{"Add":" ; # [2592] fd"},{"Add":" i64 411234,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Fd to i8*), i32 2) to i64),"},{"Add":" ; # [2608] pipe"},{"Add":" i64 27229853442,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Pipe to i8*), i32 2) to i64),"},{"Add":" ; # [2624] open"},{"Add":" i64 29634266866,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Open to i8*), i32 2) to i64),"},{"Add":" ; # [2640] close"},{"Add":" i64 6971654063666,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Close to i8*), i32 2) to i64),"},{"Add":" ; # [2656] echo"},{"Add":" i64 29905794642,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Echo to i8*), i32 2) to i64),"},{"Add":" ; # [2672] prin"},{"Add":" i64 29638469378,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Prin to i8*), i32 2) to i64),"},{"Add":" ; # [2688] prinl"},{"Add":" i64 7451341956866,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Prinl to i8*), i32 2) to i64),"},{"Add":" ; # [2704] space"},{"Add":" i64 6967344432946,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Space to i8*), i32 2) to i64),"},{"Add":" ; # [2720] print"},{"Add":" i64 8001097770754,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Print to i8*), i32 2) to i64),"},{"Add":" ; # [2736] printsp"},{"Add":" i64 506434260758374146,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Printsp to i8*), i32 2) to i64),"},{"Add":" ; # [2752] println"},{"Add":" i64 497303916201322242,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Println to i8*), i32 2) to i64),"},{"Add":" ; # [2768] flush"},{"Add":" i64 7177818785378,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Flush to i8*), i32 2) to i64),"},{"Add":" ; # [2784] rewind"},{"Add":" i64 1766806057801506,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Rewind to i8*), i32 2) to i64),"},{"Add":" ; # [2800] ext"},{"Add":" i64 122127954,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Ext to i8*), i32 2) to i64),"},{"Add":" ; # [2816] plio"},{"Add":" i64 29906880258,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Plio to i8*), i32 2) to i64),"},{"Add":" ; # [2832] rd"},{"Add":" i64 411426,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Rd to i8*), i32 2) to i64),"},{"Add":" ; # [2848] pr"},{"Add":" i64 468738,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Pr to i8*), i32 2) to i64),"},{"Add":" ; # [2864] wr"},{"Add":" i64 468850,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Wr to i8*), i32 2) to i64),"},{"Add":" ; # [2880] any"},{"Add":" i64 127329810,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Any to i8*), i32 2) to i64),"},{"Add":" ; # [2896] sym"},{"Add":" i64 114792242,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Sym to i8*), i32 2) to i64),"},{"Add":" ; # [2912] str"},{"Add":" i64 120014642,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Str to i8*), i32 2) to i64),"},{"Add":" ; # [2928] load"},{"Add":" i64 26945713858,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Load to i8*), i32 2) to i64),"},{"Add":" ; # [2944] ext?"},{"Add":" i64 17033561682,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_ExtQ to i8*), i32 2) to i64),"},{"Add":" ; # [2960] rollback"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 2980) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Rollback to i8*), i32 2) to i64),"},{"Add":" i64 7738135660106379122,"},{"Add":" i64 2,"},{"Add":" ; # [2992] extern"},{"Add":" i64 1943001719342674,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Extern to i8*), i32 2) to i64),"},{"Add":" ; # [3008] pool"},{"Add":" i64 29107877634,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Pool to i8*), i32 2) to i64),"},{"Add":" ; # [3024] pool2"},{"Add":" i64 3465081714434,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Pool2 to i8*), i32 2) to i64),"},{"Add":" ; # [3040] journal"},{"Add":" i64 488102791669544610,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Journal to i8*), i32 2) to i64),"},{"Add":" ; # [3056] id"},{"Add":" i64 411282,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Id to i8*), i32 2) to i64),"},{"Add":" ; # [3072] blk"},{"Add":" i64 112641570,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Blk to i8*), i32 2) to i64),"},{"Add":" ; # [3088] seq"},{"Add":" i64 118904626,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Seq to i8*), i32 2) to i64),"},{"Add":" ; # [3104] lieu"},{"Add":" i64 31513286338,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Lieu to i8*), i32 2) to i64),"},{"Add":" ; # [3120] lock"},{"Add":" i64 28826859202,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Lock to i8*), i32 2) to i64),"},{"Add":" ; # [3136] touch"},{"Add":" i64 7173523830594,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Touch to i8*), i32 2) to i64),"},{"Add":" ; # [3152] commit"},{"Add":" i64 2047938500425266,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Commit to i8*), i32 2) to i64),"},{"Add":" ; # [3168] mark"},{"Add":" i64 28842530514,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Mark to i8*), i32 2) to i64),"},{"Add":" ; # [3184] free"},{"Add":" i64 27218355810,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Free to i8*), i32 2) to i64),"},{"Add":" ; # [3200] dbck"},{"Add":" i64 28826805826,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Dbck to i8*), i32 2) to i64),"},{"Add":" ; # [3216] apply"},{"Add":" i64 8344165615122,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Apply to i8*), i32 2) to i64),"},{"Add":" ; # [3232] pass"},{"Add":" i64 30991062786,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Pass to i8*), i32 2) to i64),"},{"Add":" ; # [3248] fun"},{"Add":" i64 115824226,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Fun to i8*), i32 2) to i64),"},{"Add":" ; # [3264] maps"},{"Add":" i64 30987917010,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Maps to i8*), i32 2) to i64),"},{"Add":" ; # [3280] map"},{"Add":" i64 117839570,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Map to i8*), i32 2) to i64),"},{"Add":" ; # [3296] mapc"},{"Add":" i64 26692949714,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Mapc to i8*), i32 2) to i64),"},{"Add":" ; # [3312] maplist"},{"Add":" i64 524447902824011474,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Maplist to i8*), i32 2) to i64),"},{"Add":" ; # [3328] mapcar"},{"Add":" i64 2012201691256530,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Mapcar to i8*), i32 2) to i64),"},{"Add":" ; # [3344] mapcon"},{"Add":" i64 1942795019753170,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Mapcon to i8*), i32 2) to i64),"},{"Add":" ; # [3360] mapcan"},{"Add":" i64 1941832947078866,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Mapcan to i8*), i32 2) to i64),"},{"Add":" ; # [3376] filter"},{"Add":" i64 2012481128404578,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Filter to i8*), i32 2) to i64),"},{"Add":" ; # [3392] extract"},{"Add":" i64 524165879706388050,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Extract to i8*), i32 2) to i64),"},{"Add":" ; # [3408] seek"},{"Add":" i64 28828915506,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Seek to i8*), i32 2) to i64),"},{"Add":" ; # [3424] find"},{"Add":" i64 26959320674,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Find to i8*), i32 2) to i64),"},{"Add":" ; # [3440] pick"},{"Add":" i64 28826834690,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Pick to i8*), i32 2) to i64),"},{"Add":" ; # [3456] fully"},{"Add":" i64 8344161441378,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Fully to i8*), i32 2) to i64),"},{"Add":" ; # [3472] cnt"},{"Add":" i64 122086962,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cnt to i8*), i32 2) to i64),"},{"Add":" ; # [3488] sum"},{"Add":" i64 114775858,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Sum to i8*), i32 2) to i64),"},{"Add":" ; # [3504] maxi"},{"Add":" i64 28311951058,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Maxi to i8*), i32 2) to i64),"},{"Add":" ; # [3520] mini"},{"Add":" i64 28301498066,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Mini to i8*), i32 2) to i64),"},{"Add":" ; # [3536] fish"},{"Add":" i64 28038305378,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Fish to i8*), i32 2) to i64),"},{"Add":" ; # [3552] by"},{"Add":" i64 497186,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_By to i8*), i32 2) to i64),"},{"Add":" ; # [3568] as"},{"Add":" i64 472594,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_As to i8*), i32 2) to i64),"},{"Add":" ; # [3584] lit"},{"Add":" i64 122066626,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Lit to i8*), i32 2) to i64),"},{"Add":" ; # [3600] eval"},{"Add":" i64 29093226066,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Eval to i8*), i32 2) to i64),"},{"Add":" ; # [3616] run"},{"Add":" i64 115824418,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Run to i8*), i32 2) to i64),"},{"Add":" ; # [3632] def"},{"Add":" i64 107370050,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Def to i8*), i32 2) to i64),"},{"Add":" ; # [3648] de"},{"Add":" i64 415298,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_De to i8*), i32 2) to i64),"},{"Add":" ; # [3664] dm"},{"Add":" i64 448066,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Dm to i8*), i32 2) to i64),"},{"Add":" ; # [3680] box"},{"Add":" i64 126285346,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Box to i8*), i32 2) to i64),"},{"Add":" ; # [3696] new"},{"Add":" i64 125196002,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_New to i8*), i32 2) to i64),"},{"Add":" ; # [3712] type"},{"Add":" i64 27229919042,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Type to i8*), i32 2) to i64),"},{"Add":" ; # [3728] isa"},{"Add":" i64 102184594,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Isa to i8*), i32 2) to i64),"},{"Add":" ; # [3744] method"},{"Add":" i64 1766874505696978,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Method to i8*), i32 2) to i64),"},{"Add":" ; # [3760] send"},{"Add":" i64 26959304498,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Send to i8*), i32 2) to i64),"},{"Add":" ; # [3776] try"},{"Add":" i64 127346498,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Try to i8*), i32 2) to i64),"},{"Add":" ; # [3792] super"},{"Add":" i64 7861250250546,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Super to i8*), i32 2) to i64),"},{"Add":" ; # [3808] extra"},{"Add":" i64 6696513013330,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Extra to i8*), i32 2) to i64),"},{"Add":" ; # [3824] and"},{"Add":" i64 105309714,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_And to i8*), i32 2) to i64),"},{"Add":" ; # [3840] or"},{"Add":" i64 468722,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Or to i8*), i32 2) to i64),"},{"Add":" ; # [3856] nand"},{"Add":" i64 26959288034,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Nand to i8*), i32 2) to i64),"},{"Add":" ; # [3872] nor"},{"Add":" i64 119994082,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Nor to i8*), i32 2) to i64),"},{"Add":" ; # [3888] xor"},{"Add":" i64 119994242,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Xor to i8*), i32 2) to i64),"},{"Add":" ; # [3904] bool"},{"Add":" i64 29107877410,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Bool to i8*), i32 2) to i64),"},{"Add":" ; # [3920] not"},{"Add":" i64 122091234,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Not to i8*), i32 2) to i64),"},{"Add":" ; # [3936] nil"},{"Add":" i64 113678050,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Nil to i8*), i32 2) to i64),"},{"Add":" ; # [3952] t"},{"Add":" i64 1858,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_T to i8*), i32 2) to i64),"},{"Add":" ; # [3968] prog"},{"Add":" i64 27765712642,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Prog to i8*), i32 2) to i64),"},{"Add":" ; # [3984] prog1"},{"Add":" i64 3395020072706,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Prog1 to i8*), i32 2) to i64),"},{"Add":" ; # [4000] prog2"},{"Add":" i64 3463739549442,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Prog2 to i8*), i32 2) to i64),"},{"Add":" ; # [4016] if"},{"Add":" i64 419474,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_If to i8*), i32 2) to i64),"},{"Add":" ; # [4032] ifn"},{"Add":" i64 115762834,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Ifn to i8*), i32 2) to i64),"},{"Add":" ; # [4048] if2"},{"Add":" i64 52848274,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_If2 to i8*), i32 2) to i64),"},{"Add":" ; # [4064] when"},{"Add":" i64 29634234226,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_When to i8*), i32 2) to i64),"},{"Add":" ; # [4080] unless"},{"Add":" i64 2031031360612178,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Unless to i8*), i32 2) to i64),"},{"Add":" ; # [4096] cond"},{"Add":" i64 26959345202,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cond to i8*), i32 2) to i64),"},{"Add":" ; # [4112] nond"},{"Add":" i64 26959345378,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Nond to i8*), i32 2) to i64),"},{"Add":" ; # [4128] case"},{"Add":" i64 27232966194,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Case to i8*), i32 2) to i64),"},{"Add":" ; # [4144] casq"},{"Add":" i64 30454191666,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Casq to i8*), i32 2) to i64),"},{"Add":" ; # [4160] state"},{"Add":" i64 6971907852082,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_State to i8*), i32 2) to i64),"},{"Add":" ; # [4176] while"},{"Add":" i64 6969768707954,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_While to i8*), i32 2) to i64),"},{"Add":" ; # [4192] until"},{"Add":" i64 7450011297618,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Until to i8*), i32 2) to i64),"},{"Add":" ; # [4208] at"},{"Add":" i64 476690,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_At to i8*), i32 2) to i64),"},{"Add":" ; # [4224] do"},{"Add":" i64 456258,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Do to i8*), i32 2) to i64),"},{"Add":" ; # [4240] loop"},{"Add":" i64 30181619394,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Loop to i8*), i32 2) to i64),"},{"Add":" ; # [4256] for"},{"Add":" i64 119993954,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_For to i8*), i32 2) to i64),"},{"Add":" ; # [4272] with"},{"Add":" i64 28039354226,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_With to i8*), i32 2) to i64),"},{"Add":" ; # [4288] bind"},{"Add":" i64 26959320610,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Bind to i8*), i32 2) to i64),"},{"Add":" ; # [4304] job"},{"Add":" i64 103216802,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Job to i8*), i32 2) to i64),"},{"Add":" ; # [4320] let"},{"Add":" i64 122050242,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Let to i8*), i32 2) to i64),"},{"Add":" ; # [4336] let?"},{"Add":" i64 17033483970,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_LetQ to i8*), i32 2) to i64),"},{"Add":" ; # [4352] use"},{"Add":" i64 106379090,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Use to i8*), i32 2) to i64),"},{"Add":" ; # [4368] buf"},{"Add":" i64 107435554,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Buf to i8*), i32 2) to i64),"},{"Add":" ; # [4384] catch"},{"Add":" i64 7173522724402,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Catch to i8*), i32 2) to i64),"},{"Add":" ; # [4400] throw"},{"Add":" i64 8207534032706,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Throw to i8*), i32 2) to i64),"},{"Add":" ; # [4416] finally"},{"Add":" i64 546842958862128738,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Finally to i8*), i32 2) to i64),"},{"Add":" ; # [4432] co"},{"Add":" i64 456242,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Co to i8*), i32 2) to i64),"},{"Add":" ; # [4448] yield"},{"Add":" i64 6901045041042,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Yield to i8*), i32 2) to i64),"},{"Add":" ; # [4464] !"},{"Add":" i64 530,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Break to i8*), i32 2) to i64),"},{"Add":" ; # [4480] e"},{"Add":" i64 1618,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_E to i8*), i32 2) to i64),"},{"Add":" ; # [4496] $"},{"Add":" i64 578,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Trace to i8*), i32 2) to i64),"},{"Add":" ; # [4512] exec"},{"Add":" i64 26681509458,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Exec to i8*), i32 2) to i64),"},{"Add":" ; # [4528] call"},{"Add":" i64 29104674354,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Call to i8*), i32 2) to i64),"},{"Add":" ; # [4544] ipid"},{"Add":" i64 26954106514,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Ipid to i8*), i32 2) to i64),"},{"Add":" ; # [4560] opid"},{"Add":" i64 26954106610,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Opid to i8*), i32 2) to i64),"},{"Add":" ; # [4576] kill"},{"Add":" i64 29104707250,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Kill to i8*), i32 2) to i64),"},{"Add":" ; # [4592] fork"},{"Add":" i64 28842587746,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Fork to i8*), i32 2) to i64),"},{"Add":" ; # [4608] detach"},{"Add":" i64 1836416737105474,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Detach to i8*), i32 2) to i64),"},{"Add":" ; # [4624] bye"},{"Add":" i64 106403362,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Bye to i8*), i32 2) to i64),"},{"Add":" ; # [4640] car"},{"Add":" i64 119936562,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Car to i8*), i32 2) to i64),"},{"Add":" ; # [4656] cdr"},{"Add":" i64 119948850,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cdr to i8*), i32 2) to i64),"},{"Add":" ; # [4672] caar"},{"Add":" i64 30703752754,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Caar to i8*), i32 2) to i64),"},{"Add":" ; # [4688] cadr"},{"Add":" i64 30706898482,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cadr to i8*), i32 2) to i64),"},{"Add":" ; # [4704] cdar"},{"Add":" i64 30703765042,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cdar to i8*), i32 2) to i64),"},{"Add":" ; # [4720] cddr"},{"Add":" i64 30706910770,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cddr to i8*), i32 2) to i64),"},{"Add":" ; # [4736] caaar"},{"Add":" i64 7860160697906,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Caaar to i8*), i32 2) to i64),"},{"Add":" ; # [4752] caadr"},{"Add":" i64 7860966004274,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Caadr to i8*), i32 2) to i64),"},{"Add":" ; # [4768] cadar"},{"Add":" i64 7860163843634,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cadar to i8*), i32 2) to i64),"},{"Add":" ; # [4784] caddr"},{"Add":" i64 7860969150002,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Caddr to i8*), i32 2) to i64),"},{"Add":" ; # [4800] cdaar"},{"Add":" i64 7860160710194,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cdaar to i8*), i32 2) to i64),"},{"Add":" ; # [4816] cdadr"},{"Add":" i64 7860966016562,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cdadr to i8*), i32 2) to i64),"},{"Add":" ; # [4832] cddar"},{"Add":" i64 7860163855922,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cddar to i8*), i32 2) to i64),"},{"Add":" ; # [4848] cdddr"},{"Add":" i64 7860969162290,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cdddr to i8*), i32 2) to i64),"},{"Add":" ; # [4864] caaaar"},{"Add":" i64 2012201138656818,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Caaaar to i8*), i32 2) to i64),"},{"Add":" ; # [4880] caaadr"},{"Add":" i64 2012407297087026,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Caaadr to i8*), i32 2) to i64),"},{"Add":" ; # [4896] caadar"},{"Add":" i64 2012201943963186,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Caadar to i8*), i32 2) to i64),"},{"Add":" ; # [4912] caaddr"},{"Add":" i64 2012408102393394,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Caaddr to i8*), i32 2) to i64),"},{"Add":" ; # [4928] cadaar"},{"Add":" i64 2012201141802546,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cadaar to i8*), i32 2) to i64),"},{"Add":" ; # [4944] cadadr"},{"Add":" i64 2012407300232754,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cadadr to i8*), i32 2) to i64),"},{"Add":" ; # [4960] caddar"},{"Add":" i64 2012201947108914,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Caddar to i8*), i32 2) to i64),"},{"Add":" ; # [4976] cadddr"},{"Add":" i64 2012408105539122,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cadddr to i8*), i32 2) to i64),"},{"Add":" ; # [4992] cdaaar"},{"Add":" i64 2012201138669106,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cdaaar to i8*), i32 2) to i64),"},{"Add":" ; # [5008] cdaadr"},{"Add":" i64 2012407297099314,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cdaadr to i8*), i32 2) to i64),"},{"Add":" ; # [5024] cdadar"},{"Add":" i64 2012201943975474,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cdadar to i8*), i32 2) to i64),"},{"Add":" ; # [5040] cdaddr"},{"Add":" i64 2012408102405682,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cdaddr to i8*), i32 2) to i64),"},{"Add":" ; # [5056] cddaar"},{"Add":" i64 2012201141814834,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cddaar to i8*), i32 2) to i64),"},{"Add":" ; # [5072] cddadr"},{"Add":" i64 2012407300245042,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cddadr to i8*), i32 2) to i64),"},{"Add":" ; # [5088] cdddar"},{"Add":" i64 2012201947121202,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cdddar to i8*), i32 2) to i64),"},{"Add":" ; # [5104] cddddr"},{"Add":" i64 2012408105551410,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cddddr to i8*), i32 2) to i64),"},{"Add":" ; # [5120] nth"},{"Add":" i64 109528802,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Nth to i8*), i32 2) to i64),"},{"Add":" ; # [5136] con"},{"Add":" i64 115799602,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Con to i8*), i32 2) to i64),"},{"Add":" ; # [5152] cons"},{"Add":" i64 30985877042,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cons to i8*), i32 2) to i64),"},{"Add":" ; # [5168] conc"},{"Add":" i64 26690909746,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Conc to i8*), i32 2) to i64),"},{"Add":" ; # [5184] circ"},{"Add":" i64 26695079474,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Circ to i8*), i32 2) to i64),"},{"Add":" ; # [5200] rot"},{"Add":" i64 122091298,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Rot to i8*), i32 2) to i64),"},{"Add":" ; # [5216] list"},{"Add":" i64 31259530946,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_List to i8*), i32 2) to i64),"},{"Add":" ; # [5232] need"},{"Add":" i64 26949867234,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Need to i8*), i32 2) to i64),"},{"Add":" ; # [5248] range"},{"Add":" i64 6968431744802,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Range to i8*), i32 2) to i64),"},{"Add":" ; # [5264] full"},{"Add":" i64 29104756322,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Full to i8*), i32 2) to i64),"},{"Add":" ; # [5280] make"},{"Add":" i64 27224577746,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Make to i8*), i32 2) to i64),"},{"Add":" ; # [5296] made"},{"Add":" i64 27217237714,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Made to i8*), i32 2) to i64),"},{"Add":" ; # [5312] chain"},{"Add":" i64 7587430303282,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Chain to i8*), i32 2) to i64),"},{"Add":" ; # [5328] link"},{"Add":" i64 28838368962,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Link to i8*), i32 2) to i64),"},{"Add":" ; # [5344] yoke"},{"Add":" i64 27224635282,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Yoke to i8*), i32 2) to i64),"},{"Add":" ; # [5360] copy"},{"Add":" i64 32598586930,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Copy to i8*), i32 2) to i64),"},{"Add":" ; # [5376] mix"},{"Add":" i64 126260946,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Mix to i8*), i32 2) to i64),"},{"Add":" ; # [5392] append"},{"Add":" i64 1766804976764434,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Append to i8*), i32 2) to i64),"},{"Add":" ; # [5408] delete"},{"Add":" i64 1784809475429954,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Delete to i8*), i32 2) to i64),"},{"Add":" ; # [5424] delq"},{"Add":" i64 30446868034,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Delq to i8*), i32 2) to i64),"},{"Add":" ; # [5440] replace"},{"Add":" i64 456611883680945954,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Replace to i8*), i32 2) to i64),"},{"Add":" ; # [5456] insert"},{"Add":" i64 2048554834519698,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Insert to i8*), i32 2) to i64),"},{"Add":" ; # [5472] remove"},{"Add":" i64 1784949599786786,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Remove to i8*), i32 2) to i64),"},{"Add":" ; # [5488] place"},{"Add":" i64 6967344416514,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Place to i8*), i32 2) to i64),"},{"Add":" ; # [5504] strip"},{"Add":" i64 7724887131954,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Strip to i8*), i32 2) to i64),"},{"Add":" ; # [5520] split"},{"Add":" i64 7999758731058,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Split to i8*), i32 2) to i64),"},{"Add":" ; # [5536] reverse"},{"Add":" i64 456894525016004386,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Reverse to i8*), i32 2) to i64),"},{"Add":" ; # [5552] flip"},{"Add":" i64 30175315554,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Flip to i8*), i32 2) to i64),"},{"Add":" ; # [5568] trim"},{"Add":" i64 29370033986,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Trim to i8*), i32 2) to i64),"},{"Add":" ; # [5584] clip"},{"Add":" i64 30175315506,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Clip to i8*), i32 2) to i64),"},{"Add":" ; # [5600] head"},{"Add":" i64 26945672834,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Head to i8*), i32 2) to i64),"},{"Add":" ; # [5616] tail"},{"Add":" i64 29101528898,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Tail to i8*), i32 2) to i64),"},{"Add":" ; # [5632] stem"},{"Add":" i64 29365847858,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Stem to i8*), i32 2) to i64),"},{"Add":" ; # [5648] fin"},{"Add":" i64 115775074,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Fin to i8*), i32 2) to i64),"},{"Add":" ; # [5664] last"},{"Add":" i64 31259498178,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Last to i8*), i32 2) to i64),"},{"Add":" ; # [5680] =="},{"Add":" i64 250834,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Eq to i8*), i32 2) to i64),"},{"Add":" ; # [5696] n=="},{"Add":" i64 64214754,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Neq to i8*), i32 2) to i64),"},{"Add":" ; # [5712] ="},{"Add":" i64 978,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Equal to i8*), i32 2) to i64),"},{"Add":" ; # [5728] <>"},{"Add":" i64 254914,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Nequal to i8*), i32 2) to i64),"},{"Add":" ; # [5744] =0"},{"Add":" i64 197586,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Eq0 to i8*), i32 2) to i64),"},{"Add":" ; # [5760] =1"},{"Add":" i64 201682,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Eq1 to i8*), i32 2) to i64),"},{"Add":" ; # [5776] =T"},{"Add":" i64 345042,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_EqT to i8*), i32 2) to i64),"},{"Add":" ; # [5792] n0"},{"Add":" i64 198370,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Neq0 to i8*), i32 2) to i64),"},{"Add":" ; # [5808] nT"},{"Add":" i64 345826,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_NeqT to i8*), i32 2) to i64),"},{"Add":" ; # [5824] <"},{"Add":" i64 962,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Lt to i8*), i32 2) to i64),"},{"Add":" ; # [5840] <="},{"Add":" i64 250818,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Le to i8*), i32 2) to i64),"},{"Add":" ; # [5856] >"},{"Add":" i64 994,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Gt to i8*), i32 2) to i64),"},{"Add":" ; # [5872] >="},{"Add":" i64 250850,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Ge to i8*), i32 2) to i64),"},{"Add":" ; # [5888] max"},{"Add":" i64 126228178,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Max to i8*), i32 2) to i64),"},{"Add":" ; # [5904] min"},{"Add":" i64 115775186,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Min to i8*), i32 2) to i64),"},{"Add":" ; # [5920] atom"},{"Add":" i64 29376333330,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Atom to i8*), i32 2) to i64),"},{"Add":" ; # [5936] pair"},{"Add":" i64 30712141570,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Pair to i8*), i32 2) to i64),"},{"Add":" ; # [5952] circ?"},{"Add":" i64 4356022113842,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_CircQ to i8*), i32 2) to i64),"},{"Add":" ; # [5968] lst?"},{"Add":" i64 17033541314,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_LstQ to i8*), i32 2) to i64),"},{"Add":" ; # [5984] num?"},{"Add":" i64 17026209506,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_NumQ to i8*), i32 2) to i64),"},{"Add":" ; # [6000] sym?"},{"Add":" i64 17026225970,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_SymQ to i8*), i32 2) to i64),"},{"Add":" ; # [6016] flg?"},{"Add":" i64 17019881058,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_FlgQ to i8*), i32 2) to i64),"},{"Add":" ; # [6032] member"},{"Add":" i64 2012476297598674,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Member to i8*), i32 2) to i64),"},{"Add":" ; # [6048] memq"},{"Add":" i64 30447916754,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Memq to i8*), i32 2) to i64),"},{"Add":" ; # [6064] mmeq"},{"Add":" i64 30439560914,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Mmeq to i8*), i32 2) to i64),"},{"Add":" ; # [6080] sect"},{"Add":" i64 31242737458,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Sect to i8*), i32 2) to i64),"},{"Add":" ; # [6096] diff"},{"Add":" i64 27487802946,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Diff to i8*), i32 2) to i64),"},{"Add":" ; # [6112] index"},{"Add":" i64 8273554499218,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Index to i8*), i32 2) to i64),"},{"Add":" ; # [6128] offset"},{"Add":" i64 2047665225754354,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Offset to i8*), i32 2) to i64),"},{"Add":" ; # [6144] prior"},{"Add":" i64 7863927252738,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Prior to i8*), i32 2) to i64),"},{"Add":" ; # [6160] length"},{"Add":" i64 1837586572531394,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Length to i8*), i32 2) to i64),"},{"Add":" ; # [6176] size"},{"Add":" i64 27240339250,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Size to i8*), i32 2) to i64),"},{"Add":" ; # [6192] bytes"},{"Add":" i64 7929973937698,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Bytes to i8*), i32 2) to i64),"},{"Add":" ; # [6208] assoc"},{"Add":" i64 6833145591314,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Assoc to i8*), i32 2) to i64),"},{"Add":" ; # [6224] rassoc"},{"Add":" i64 1749285271377698,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Rassoc to i8*), i32 2) to i64),"},{"Add":" ; # [6240] asoq"},{"Add":" i64 30450071058,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Asoq to i8*), i32 2) to i64),"},{"Add":" ; # [6256] rasoq"},{"Add":" i64 7795218192162,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Rasoq to i8*), i32 2) to i64),"},{"Add":" ; # [6272] rank"},{"Add":" i64 28838336290,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Rank to i8*), i32 2) to i64),"},{"Add":" ; # [6288] match"},{"Add":" i64 7173522724562,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Match to i8*), i32 2) to i64),"},{"Add":" ; # [6304] fill"},{"Add":" i64 29104707170,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Fill to i8*), i32 2) to i64),"},{"Add":" ; # [6320] prove"},{"Add":" i64 6972459394818,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Prove to i8*), i32 2) to i64),"},{"Add":" ; # [6336] ->"},{"Add":" i64 254674,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Arrow to i8*), i32 2) to i64),"},{"Add":" ; # [6352] unify"},{"Add":" i64 8342547654482,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Unify to i8*), i32 2) to i64),"},{"Add":" ; # [6368] group"},{"Add":" i64 7728105203314,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Group to i8*), i32 2) to i64),"},{"Add":" ; # [6384] sort"},{"Add":" i64 31258507058,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Sort to i8*), i32 2) to i64),"},{"Add":" ; # [6400] tty"},{"Add":" i64 127354690,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Tty to i8*), i32 2) to i64),"},{"Add":" ; # [6416] raw"},{"Add":" i64 125179682,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Raw to i8*), i32 2) to i64),"},{"Add":" ; # [6432] alarm"},{"Add":" i64 7521126762002,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Alarm to i8*), i32 2) to i64),"},{"Add":" ; # [6448] sigio"},{"Add":" i64 7656156075826,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Sigio to i8*), i32 2) to i64),"},{"Add":" ; # [6464] kids"},{"Add":" i64 30975366834,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Kids to i8*), i32 2) to i64),"},{"Add":" ; # [6480] protect"},{"Add":" i64 524166155115898626,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Protect to i8*), i32 2) to i64),"},{"Add":" ; # [6496] heap"},{"Add":" i64 30166898306,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Heap to i8*), i32 2) to i64),"},{"Add":" ; # [6512] stack"},{"Add":" i64 7379661309746,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Stack to i8*), i32 2) to i64),"},{"Add":" ; # [6528] byte"},{"Add":" i64 27234113058,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Byte to i8*), i32 2) to i64),"},{"Add":" ; # [6544] env"},{"Add":" i64 124184146,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Env to i8*), i32 2) to i64),"},{"Add":" ; # [6560] date"},{"Add":" i64 27234014786,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Date to i8*), i32 2) to i64),"},{"Add":" ; # [6576] time"},{"Add":" i64 27226707778,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Time to i8*), i32 2) to i64),"},{"Add":" ; # [6592] usec"},{"Add":" i64 26681489234,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Usec to i8*), i32 2) to i64),"},{"Add":" ; # [6608] quit"},{"Add":" i64 31249094418,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Quit to i8*), i32 2) to i64),"},{"Add":" ; # [6624] sys"},{"Add":" i64 121083698,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Sys to i8*), i32 2) to i64),"},{"Add":" ; # [6640] pwd"},{"Add":" i64 105346818,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Pwd to i8*), i32 2) to i64),"},{"Add":" ; # [6656] cd"},{"Add":" i64 411186,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cd to i8*), i32 2) to i64),"},{"Add":" ; # [6672] ctty"},{"Add":" i64 32602801714,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Ctty to i8*), i32 2) to i64),"},{"Add":" ; # [6688] cmd"},{"Add":" i64 105305650,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Cmd to i8*), i32 2) to i64),"},{"Add":" ; # [6704] dir"},{"Add":" i64 119969346,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Dir to i8*), i32 2) to i64),"},{"Add":" ; # [6720] info"},{"Add":" i64 29903742610,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Info to i8*), i32 2) to i64),"},{"Add":" ; # [6736] file"},{"Add":" i64 27225658978,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_File to i8*), i32 2) to i64),"},{"Add":" ; # [6752] argv"},{"Add":" i64 31783855634,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Argv to i8*), i32 2) to i64),"},{"Add":" ; # [6768] opt"},{"Add":" i64 122095346,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Opt to i8*), i32 2) to i64),"},{"Add":" ; # [6784] errno"},{"Add":" i64 7657509824082,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Errno to i8*), i32 2) to i64),"},{"Add":" ; # [6800] %@"},{"Add":" i64 262738,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Nat to i8*), i32 2) to i64),"},{"Add":" ; # [6816] native"},{"Add":" i64 1784947996497634,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Native to i8*), i32 2) to i64),"},{"Add":" ; # [6832] struct"},{"Add":" i64 2047528336312114,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Struct to i8*), i32 2) to i64),"},{"Add":" ; # [6848] lisp"},{"Add":" i64 30185789122,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Lisp to i8*), i32 2) to i64),"},{"Add":" ; # [6864] args"},{"Add":" i64 30978549266,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Args to i8*), i32 2) to i64),"},{"Add":" ; # [6880] next"},{"Add":" i64 31264757474,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Next to i8*), i32 2) to i64),"},{"Add":" ; # [6896] arg"},{"Add":" i64 108471826,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Arg to i8*), i32 2) to i64),"},{"Add":" ; # [6912] rest"},{"Add":" i64 31259514658,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Rest to i8*), i32 2) to i64),"},{"Add":" ; # [6928] adr"},{"Add":" i64 119948818,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Adr to i8*), i32 2) to i64),"},{"Add":" ; # [6944] trail"},{"Add":" i64 7449991391042,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Trail to i8*), i32 2) to i64),"},{"Add":" ; # [6960] up"},{"Add":" i64 460626,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Up to i8*), i32 2) to i64),"},{"Add":" ; # [6976] history"},{"Add":" i64 546948723242342018,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_History to i8*), i32 2) to i64),"},{"Add":" ; # [6992] version"},{"Add":" i64 497355938196772706,"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast (i64(i64)* @_Version to i8*), i32 2) to i64)"},{"Add":"], align 16"},{"Add":"@gcData = global [53 x i64] ["},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 96) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":"], align 8"},{"Add":"@cbFuns = global [24 x i64] ["},{"Add":" i64 ptrtoint (i64(i64,i64,i64,i64,i64)* @_Cb1 to i64),"},{"Add":" i64 ptrtoint (i64(i64,i64,i64,i64,i64)* @_Cb2 to i64),"},{"Add":" i64 ptrtoint (i64(i64,i64,i64,i64,i64)* @_Cb3 to i64),"},{"Add":" i64 ptrtoint (i64(i64,i64,i64,i64,i64)* @_Cb4 to i64),"},{"Add":" i64 ptrtoint (i64(i64,i64,i64,i64,i64)* @_Cb5 to i64),"},{"Add":" i64 ptrtoint (i64(i64,i64,i64,i64,i64)* @_Cb6 to i64),"},{"Add":" i64 ptrtoint (i64(i64,i64,i64,i64,i64)* @_Cb7 to i64),"},{"Add":" i64 ptrtoint (i64(i64,i64,i64,i64,i64)* @_Cb8 to i64),"},{"Add":" i64 ptrtoint (i64(i64,i64,i64,i64,i64)* @_Cb9 to i64),"},{"Add":" i64 ptrtoint (i64(i64,i64,i64,i64,i64)* @_Cb10 to i64),"},{"Add":" i64 ptrtoint (i64(i64,i64,i64,i64,i64)* @_Cb11 to i64),"},{"Add":" i64 ptrtoint (i64(i64,i64,i64,i64,i64)* @_Cb12 to i64),"},{"Add":" i64 ptrtoint (i64(i64,i64,i64,i64,i64)* @_Cb13 to i64),"},{"Add":" i64 ptrtoint (i64(i64,i64,i64,i64,i64)* @_Cb14 to i64),"},{"Add":" i64 ptrtoint (i64(i64,i64,i64,i64,i64)* @_Cb15 to i64),"},{"Add":" i64 ptrtoint (i64(i64,i64,i64,i64,i64)* @_Cb16 to i64),"},{"Add":" i64 ptrtoint (i64(i64,i64,i64,i64,i64)* @_Cb17 to i64),"},{"Add":" i64 ptrtoint (i64(i64,i64,i64,i64,i64)* @_Cb18 to i64),"},{"Add":" i64 ptrtoint (i64(i64,i64,i64,i64,i64)* @_Cb19 to i64),"},{"Add":" i64 ptrtoint (i64(i64,i64,i64,i64,i64)* @_Cb20 to i64),"},{"Add":" i64 ptrtoint (i64(i64,i64,i64,i64,i64)* @_Cb21 to i64),"},{"Add":" i64 ptrtoint (i64(i64,i64,i64,i64,i64)* @_Cb22 to i64),"},{"Add":" i64 ptrtoint (i64(i64,i64,i64,i64,i64)* @_Cb23 to i64),"},{"Add":" i64 ptrtoint (i64(i64,i64,i64,i64,i64)* @_Cb24 to i64)"},{"Add":"], align 8"},{"Add":"@env = global [21 x i64] ["},{"Add":" i64 0,"},{"Add":" i64 0,"},{"Add":" i64 0,"},{"Add":" i64 ptrtoint (i8* null to i64),"},{"Add":" i64 ptrtoint (i8* null to i64),"},{"Add":" i64 ptrtoint (i8* null to i64),"},{"Add":" i64 ptrtoint (i8* null to i64),"},{"Add":" i64 ptrtoint (i8* null to i64),"},{"Add":" i64 0,"},{"Add":" i64 ptrtoint (i8* null to i64),"},{"Add":" i64 ptrtoint (i8* null to i64),"},{"Add":" i64 ptrtoint (void(i8)* null to i64),"},{"Add":" i64 ptrtoint (i32()* null to i64),"},{"Add":" i64 ptrtoint (i64* null to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 0,"},{"Add":" i64 0,"},{"Add":" i64 0,"},{"Add":" i64 0,"},{"Add":" i64 0,"},{"Add":" i64 0"},{"Add":"], align 8"},{"Add":"@$Cell = global [2 x i64] ["},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64),"},{"Add":" i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":"]"},{"Add":"@$Version = global [3 x i64] ["},{"Add":" i64 386,"},{"Add":" i64 34,"},{"Add":" i64 50"},{"Add":"], align 8"},{"Add":"@$TBuf = global [2 x i8] ["},{"Add":" i8 5,"},{"Add":" i8 84"},{"Add":"]"},{"Add":"@$Month = global [13 x i8] ["},{"Add":" i8 31,"},{"Add":" i8 31,"},{"Add":" i8 28,"},{"Add":" i8 31,"},{"Add":" i8 30,"},{"Add":" i8 31,"},{"Add":" i8 30,"},{"Add":" i8 31,"},{"Add":" i8 31,"},{"Add":" i8 30,"},{"Add":" i8 31,"},{"Add":" i8 30,"},{"Add":" i8 31"},{"Add":"]"},{"Add":"@$Repl = global i1 0"},{"Add":"@$PRepl = global i1 0"},{"Add":"@$Jam = global i1 0"},{"Add":"@$InBye = global i1 0"},{"Add":"@$Sync = global i1 0"},{"Add":"@$Empty = constant [1 x i8] c\"\\00\""},{"Add":"@$Delim = constant [16 x i8] c\" \\09\\0A\\0D\\22'(),[]`{}~\\00\""},{"Add":"declare i8* @malloc(i64)"},{"Add":"declare i8* @realloc(i8*, i64)"},{"Add":"declare void @free(i8*)"},{"Add":"declare i32 @fork()"},{"Add":"declare i8* @getenv(i8*)"},{"Add":"declare i32 @setenv(i8*, i8*, i32)"},{"Add":"declare i8* @getcwd(i8*, i64)"},{"Add":"declare i32 @chdir(i8*)"},{"Add":"declare i32 @getpid()"},{"Add":"declare i32 @getpgrp()"},{"Add":"declare i32 @setsid()"},{"Add":"declare i32 @alarm(i32)"},{"Add":"declare i32 @setpgid(i32, i32)"},{"Add":"declare i32 @execvp(i8*, i8**)"},{"Add":"declare i32 @isatty(i32)"},{"Add":"declare i32 @openpty(i32*, i32*, i8*, i8*, i8*)"},{"Add":"declare i32 @login_tty(i32)"},{"Add":"declare i32 @tcgetattr(i32, i8*)"},{"Add":"declare i32 @tcgetpgrp(i32)"},{"Add":"declare i32 @tcsetpgrp(i32, i32)"},{"Add":"declare i64 @read(i32, i8*, i64)"},{"Add":"declare i64 @write(i32, i8*, i64)"},{"Add":"declare i64 @pread(i32, i8*, i64, i64)"},{"Add":"declare i64 @pwrite(i32, i8*, i64, i64)"},{"Add":"declare i32 @fread(i8*, i64, i64, i8*)"},{"Add":"declare i32 @fwrite(i8*, i64, i64, i8*)"},{"Add":"declare i32 @putc_unlocked(i32, i8*)"},{"Add":"declare i32 @getc_unlocked(i8*)"},{"Add":"declare i8* @fopen(i8*, i8*)"},{"Add":"declare i32 @fflush(i8*)"},{"Add":"declare i32 @feof(i8*)"},{"Add":"declare i32 @fclose(i8*)"},{"Add":"declare i32 @fileno(i8*)"},{"Add":"declare i32 @fsync(i32)"},{"Add":"declare i32 @pipe(i32*)"},{"Add":"declare i32 @memcmp(i8*, i8*, i64)"},{"Add":"declare i64 @strlen(i8*)"},{"Add":"declare i8* @strcpy(i8*, i8*)"},{"Add":"declare i8* @strdup(i8*)"},{"Add":"declare i32 @strcmp(i8*, i8*)"},{"Add":"declare i8* @strchr(i8*, i32)"},{"Add":"declare i8* @strrchr(i8*, i32)"},{"Add":"declare i8* @dlsym(i8*, i8*)"},{"Add":"declare i8* @dlerror()"},{"Add":"declare i32 @dup(i32)"},{"Add":"declare i32 @dup2(i32, i32)"},{"Add":"declare i32 @close(i32)"},{"Add":"declare i8* @signal(i32, i8*)"},{"Add":"declare i32 @waitpid(i32, i32*, i32)"},{"Add":"declare i32 @poll(i64*, i32, i64)"},{"Add":"declare i32 @setjmp(i8*)"},{"Add":"declare void @longjmp(i8*, i32)"},{"Add":"declare i32 @kill(i32, i32)"},{"Add":"declare void @exit(i32)"},{"Add":"declare void @add_history(i8*)"},{"Add":"declare i8*** @history_list()"},{"Add":"declare void @clear_history()"},{"Add":"@TgOS = external global i8"},{"Add":"@TgCPU = external global i8"},{"Add":"@PipeBufSize = external global i32"},{"Add":"@Fsign = external global i1"},{"Add":"@Fdigit = external global i64"},{"Add":"declare i8* @stderrMsg(i8*, i8*)"},{"Add":"declare void @gPrintf(i8*, i32, i8*, i8*)"},{"Add":"declare i8* @strErrno()"},{"Add":"declare i32 @openRd(i8*)"},{"Add":"declare i32 @openWr(i8*)"},{"Add":"declare i32 @openRdWr(i8*)"},{"Add":"declare i32 @openRdWrExcl(i8*)"},{"Add":"declare i32 @openRdWrCreate(i8*)"},{"Add":"declare i32 @openRdWrAppend(i8*)"},{"Add":"declare i32 @openWrAppend(i8*)"},{"Add":"declare i1 @fseekOfs(i8*, i32)"},{"Add":"declare i1 @fseek0(i8*)"},{"Add":"declare i1 @seek0(i32)"},{"Add":"declare i1 @truncate0(i32)"},{"Add":"declare i32 @socketPair(i32*)"},{"Add":"declare i32 @fcntlCloExec(i32)"},{"Add":"declare void @fcntlSetFl(i32, i32)"},{"Add":"declare i32 @nonBlocking(i32)"},{"Add":"declare void @fcntlSetOwn(i32, i32)"},{"Add":"declare i8* @getDir(i8*)"},{"Add":"declare void @initReadline()"},{"Add":"declare i8* @gReadline(i8*)"},{"Add":"declare void @rlHide()"},{"Add":"declare void @rlShow()"},{"Add":"declare void @rlSigBeg()"},{"Add":"declare void @rlSigEnd()"},{"Add":"declare i8* @currentLine()"},{"Add":"@Sig = external global i32"},{"Add":"@SigDfl = external global i8*"},{"Add":"@SigIgn = external global i8*"},{"Add":"declare i32 @gSignal(i32)"},{"Add":"declare void @iSignal(i32, i8*)"},{"Add":"declare void @sigUnblock(i32)"},{"Add":"declare void @sigChld(i32)"},{"Add":"declare i32 @waitWuntraced(i32, i32*)"},{"Add":"declare i32 @wifStopped(i32*)"},{"Add":"declare i32 @nErrno()"},{"Add":"declare i32 @gErrno()"},{"Add":"@Tio = external global i1"},{"Add":"@OrgTermio = external global i8"},{"Add":"@Termio = external global i8*"},{"Add":"declare void @stopTerm()"},{"Add":"declare void @setRaw()"},{"Add":"declare void @setCooked()"},{"Add":"declare i1 @reopenTty(i8*)"},{"Add":"declare i64 @getUsec(i1)"},{"Add":"declare i64 @getMsec()"},{"Add":"declare i64 @getDate()"},{"Add":"declare i64 @getGmDate()"},{"Add":"declare i64 @getTime()"},{"Add":"declare i64 @getGmTime()"},{"Add":"declare i8* @ulimStk()"},{"Add":"declare i64 @fileInfo(i1, i1, i8*, i64*)"},{"Add":"declare void @pollIn(i32, i64*)"},{"Add":"declare void @pollOut(i32, i64*)"},{"Add":"declare void @pollIgn(i64*)"},{"Add":"declare i32 @gPoll(i64*, i32, i64)"},{"Add":"declare i1 @readyIn(i64*)"},{"Add":"declare i1 @readyOut(i64*)"},{"Add":"declare i32 @rdLock(i32, i64, i64, i1)"},{"Add":"declare i32 @wrLock(i32, i64, i64, i1)"},{"Add":"declare i32 @unLock(i32, i64, i64)"},{"Add":"declare i32 @getLock(i32, i64, i64)"},{"Add":"@JmpBufSize = external global i64"},{"Add":"@QuitRst = external global i8"},{"Add":"declare i8* @dlOpen(i8*)"},{"Add":"declare i8* @ffiPrep(i8*, i8*, i64)"},{"Add":"declare i64 @ffiCall(i8*, i64)"},{"Add":"declare i64 @boxFloat(i32, i64)"},{"Add":"declare i64 @boxFlt()"},{"Add":"declare i64 @boxDouble(i64, i64)"},{"Add":"declare i64 @boxDbl()"},{"Add":"declare void @bufFloat(i64, i64, i8*)"},{"Add":"declare void @bufDouble(i64, i64, i8*)"},{"Add":"declare i1 @chance(i64)"},{"Add":"declare i1 @isLowc(i32)"},{"Add":"declare i1 @isUppc(i32)"},{"Add":"declare i1 @isLetterOrDigit(i32)"},{"Add":"declare i32 @toUpperCase(i32)"},{"Add":"declare i32 @toLowerCase(i32)"},{"Add":""},{"Add":"define i64 @execAt(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let At (save (val $At)) (exec Prg) (set $At At))"},{"Add":"; # (val $At)"},{"Add":" %1 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 440) to i64) to i64*"},{"Add":" %2 = load i64, i64* %1"},{"Add":"; # (save (val $At))"},{"Add":" %3 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %4 = load i64, i64* %3"},{"Add":" %5 = alloca i64, i64 2, align 16"},{"Add":" %6 = ptrtoint i64* %5 to i64"},{"Add":" %7 = inttoptr i64 %6 to i64*"},{"Add":" store i64 %2, i64* %7"},{"Add":" %8 = add i64 %6, 8"},{"Add":" %9 = inttoptr i64 %8 to i64*"},{"Add":" store i64 %4, i64* %9"},{"Add":" %10 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %6, i64* %10"},{"Add":"; # (exec Prg)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %11 = phi i64 [%0, %$1], [%23, %$5] ; # Prg"},{"Add":" %12 = inttoptr i64 %11 to i64*"},{"Add":" %13 = load i64, i64* %12"},{"Add":" %14 = getelementptr i64, i64* %12, i32 1"},{"Add":" %15 = load i64, i64* %14"},{"Add":" %16 = and i64 %13, 15"},{"Add":" %17 = icmp eq i64 %16, 0"},{"Add":" br i1 %17, label %$3, label %$4"},{"Add":"$3:"},{"Add":" %18 = phi i64 [%15, %$2] ; # Prg"},{"Add":" %19 = call i64 @evList(i64 %13)"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %20 = phi i64 [%15, %$2], [%18, %$3] ; # Prg"},{"Add":" %21 = and i64 %20, 15"},{"Add":" %22 = icmp ne i64 %21, 0"},{"Add":" br i1 %22, label %$6, label %$5"},{"Add":"$5:"},{"Add":" %23 = phi i64 [%20, %$4] ; # Prg"},{"Add":" br label %$2"},{"Add":"$6:"},{"Add":" %24 = phi i64 [%20, %$4] ; # Prg"},{"Add":" %25 = phi i64 [0, %$4] ; # ->"},{"Add":"; # (set $At At)"},{"Add":" %26 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 440) to i64) to i64*"},{"Add":" store i64 %2, i64* %26"},{"Add":"; # (drop *Safe)"},{"Add":" %27 = inttoptr i64 %6 to i64*"},{"Add":" %28 = getelementptr i64, i64* %27, i32 1"},{"Add":" %29 = load i64, i64* %28"},{"Add":" %30 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %29, i64* %30"},{"Add":" ret i64 %2"},{"Add":"}"},{"Add":""},{"Add":"define i64 @runAt(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let At (save (val $At)) (prog1 (run Prg) (set $At At)))"},{"Add":"; # (val $At)"},{"Add":" %1 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 440) to i64) to i64*"},{"Add":" %2 = load i64, i64* %1"},{"Add":"; # (save (val $At))"},{"Add":" %3 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %4 = load i64, i64* %3"},{"Add":" %5 = alloca i64, i64 2, align 16"},{"Add":" %6 = ptrtoint i64* %5 to i64"},{"Add":" %7 = inttoptr i64 %6 to i64*"},{"Add":" store i64 %2, i64* %7"},{"Add":" %8 = add i64 %6, 8"},{"Add":" %9 = inttoptr i64 %8 to i64*"},{"Add":" store i64 %4, i64* %9"},{"Add":" %10 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %6, i64* %10"},{"Add":"; # (prog1 (run Prg) (set $At At))"},{"Add":"; # (run Prg)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %11 = phi i64 [%0, %$1], [%33, %$11] ; # Prg"},{"Add":" %12 = inttoptr i64 %11 to i64*"},{"Add":" %13 = load i64, i64* %12"},{"Add":" %14 = getelementptr i64, i64* %12, i32 1"},{"Add":" %15 = load i64, i64* %14"},{"Add":" %16 = and i64 %15, 15"},{"Add":" %17 = icmp ne i64 %16, 0"},{"Add":" br i1 %17, label %$5, label %$3"},{"Add":"$5:"},{"Add":" %18 = phi i64 [%15, %$2] ; # Prg"},{"Add":" %19 = and i64 %13, 6"},{"Add":" %20 = icmp ne i64 %19, 0"},{"Add":" br i1 %20, label %$8, label %$7"},{"Add":"$8:"},{"Add":" br label %$6"},{"Add":"$7:"},{"Add":" %21 = and i64 %13, 8"},{"Add":" %22 = icmp ne i64 %21, 0"},{"Add":" br i1 %22, label %$10, label %$9"},{"Add":"$10:"},{"Add":" %23 = inttoptr i64 %13 to i64*"},{"Add":" %24 = load i64, i64* %23"},{"Add":" br label %$6"},{"Add":"$9:"},{"Add":" %25 = call i64 @evList(i64 %13)"},{"Add":" br label %$6"},{"Add":"$6:"},{"Add":" %26 = phi i64 [%13, %$8], [%24, %$10], [%25, %$9] ; # ->"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":" %27 = phi i64 [%15, %$2] ; # Prg"},{"Add":" %28 = and i64 %13, 15"},{"Add":" %29 = icmp eq i64 %28, 0"},{"Add":" br i1 %29, label %$12, label %$11"},{"Add":"$12:"},{"Add":" %30 = phi i64 [%27, %$3] ; # Prg"},{"Add":" %31 = call i64 @evList(i64 %13)"},{"Add":" %32 = icmp ne i64 %31, 0"},{"Add":" br label %$11"},{"Add":"$11:"},{"Add":" %33 = phi i64 [%27, %$3], [%30, %$12] ; # Prg"},{"Add":" %34 = phi i1 [0, %$3], [%32, %$12] ; # ->"},{"Add":" br label %$2"},{"Add":"$4:"},{"Add":" %35 = phi i64 [%18, %$6] ; # Prg"},{"Add":" %36 = phi i64 [%26, %$6] ; # ->"},{"Add":"; # (set $At At)"},{"Add":" %37 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 440) to i64) to i64*"},{"Add":" store i64 %2, i64* %37"},{"Add":"; # (drop *Safe)"},{"Add":" %38 = inttoptr i64 %6 to i64*"},{"Add":" %39 = getelementptr i64, i64* %38, i32 1"},{"Add":" %40 = load i64, i64* %39"},{"Add":" %41 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %40, i64* %41"},{"Add":" ret i64 %36"},{"Add":"}"},{"Add":""},{"Add":"define i64 @wrnl() align 8 {"},{"Add":"$1:"},{"Add":"; # (write 1 ($ \"^J\") 1)"},{"Add":" %0 = call i64 @write(i32 1, i8* bitcast ([2 x i8]* @$1 to i8*), i64 1)"},{"Add":" ret i64 %0"},{"Add":"}"},{"Add":""},{"Add":"define i64 @dbg(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let (Out (val $OutFile) Put (val (i8** $Put))) (set $OutFile (va..."},{"Add":"; # (val $OutFile)"},{"Add":" %2 = load i8*, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 80) to i8**)"},{"Add":"; # (i8** $Put)"},{"Add":" %3 = bitcast void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**) to i8**"},{"Add":"; # (val (i8** $Put))"},{"Add":" %4 = load i8*, i8** %3"},{"Add":"; # (set $OutFile (val 3 (val $OutFiles)) $Put (fun (void i8) _putStd..."},{"Add":"; # (val $OutFiles)"},{"Add":" %5 = load i8**, i8*** @$OutFiles"},{"Add":"; # (val 3 (val $OutFiles))"},{"Add":" %6 = getelementptr i8*, i8** %5, i32 2"},{"Add":" %7 = load i8*, i8** %6"},{"Add":" store i8* %7, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 80) to i8**)"},{"Add":"; # (fun (void i8) _putStdout)"},{"Add":" store void(i8)* @_putStdout, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":"; # (outWord N)"},{"Add":" call void @outWord(i64 %0)"},{"Add":"; # (when X (space) (print X))"},{"Add":" %8 = icmp ne i64 %1, 0"},{"Add":" br i1 %8, label %$2, label %$3"},{"Add":"$2:"},{"Add":"; # (space)"},{"Add":" call void @space()"},{"Add":"; # (print X)"},{"Add":" call void @print(i64 %1)"},{"Add":" br label %$3"},{"Add":"$3:"},{"Add":"; # (newline)"},{"Add":" call void @newline()"},{"Add":"; # (set (i8** $Put) Put $OutFile Out)"},{"Add":"; # (i8** $Put)"},{"Add":" %9 = bitcast void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**) to i8**"},{"Add":" store i8* %4, i8** %9"},{"Add":" store i8* %2, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 80) to i8**)"},{"Add":" ret i64 %1"},{"Add":"}"},{"Add":""},{"Add":"define void @stop(i8*) align 8 {"},{"Add":"$1:"},{"Add":"; # (let Crt: (coroutine Crt) (when (symb? (Crt: tag)) (put @ ZERO $N..."},{"Add":"; # (when (symb? (Crt: tag)) (put @ ZERO $Nil))"},{"Add":"; # (Crt: tag)"},{"Add":" %1 = ptrtoint i8* %0 to i64"},{"Add":" %2 = inttoptr i64 %1 to i64*"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (symb? (Crt: tag))"},{"Add":" %4 = xor i64 %3, 8"},{"Add":" %5 = and i64 %4, 14"},{"Add":" %6 = icmp eq i64 %5, 0"},{"Add":" br i1 %6, label %$2, label %$3"},{"Add":"$2:"},{"Add":"; # (put @ ZERO $Nil)"},{"Add":" call void @put(i64 %3, i64 2, i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64))"},{"Add":" br label %$3"},{"Add":"$3:"},{"Add":"; # (Crt: tag 0)"},{"Add":" %7 = ptrtoint i8* %0 to i64"},{"Add":" %8 = inttoptr i64 %7 to i64*"},{"Add":" store i64 0, i64* %8"},{"Add":"; # (Crt: lim (val $CrtFree))"},{"Add":" %9 = getelementptr i8, i8* %0, i32 40"},{"Add":" %10 = bitcast i8* %9 to i8**"},{"Add":" %11 = load i8*, i8** @$CrtFree"},{"Add":" store i8* %11, i8** %10"},{"Add":"; # (set $CrtFree Crt)"},{"Add":" store i8* %0, i8** @$CrtFree"},{"Add":" ret void"},{"Add":"}"},{"Add":""},{"Add":"define void @unwind(i8*) align 8 {"},{"Add":"$1:"},{"Add":"; # (let (Ca (val $Catch) Bnd (val $Bind)) (while Ca (let Ca: (caFram..."},{"Add":"; # (val $Catch)"},{"Add":" %1 = load i8*, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 24) to i8**)"},{"Add":"; # (val $Bind)"},{"Add":" %2 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 8) to i64) to i64*"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (while Ca (let Ca: (caFrame Ca) (while (and Bnd (<> Bnd (Ca: (env..."},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %4 = phi i8* [%1, %$1], [%206, %$36] ; # Ca"},{"Add":" %5 = phi i64 [%3, %$1], [%204, %$36] ; # Bnd"},{"Add":" %6 = icmp ne i8* %4, null"},{"Add":" br i1 %6, label %$3, label %$4"},{"Add":"$3:"},{"Add":" %7 = phi i8* [%4, %$2] ; # Ca"},{"Add":" %8 = phi i64 [%5, %$2] ; # Bnd"},{"Add":"; # (let Ca: (caFrame Ca) (while (and Bnd (<> Bnd (Ca: (env $Bind any..."},{"Add":"; # (while (and Bnd (<> Bnd (Ca: (env $Bind any)))) (set (val 2 Bnd) ..."},{"Add":" br label %$5"},{"Add":"$5:"},{"Add":" %9 = phi i8* [%7, %$3], [%23, %$8] ; # Ca"},{"Add":" %10 = phi i64 [%8, %$3], [%33, %$8] ; # Bnd"},{"Add":"; # (and Bnd (<> Bnd (Ca: (env $Bind any))))"},{"Add":" %11 = icmp ne i64 %10, 0"},{"Add":" br i1 %11, label %$7, label %$6"},{"Add":"$7:"},{"Add":" %12 = phi i8* [%9, %$5] ; # Ca"},{"Add":" %13 = phi i64 [%10, %$5] ; # Bnd"},{"Add":"; # (Ca: (env $Bind any))"},{"Add":" %14 = getelementptr i8, i8* %7, i32 32"},{"Add":" %15 = getelementptr i8, i8* %14, i32 8"},{"Add":" %16 = ptrtoint i8* %15 to i64"},{"Add":" %17 = inttoptr i64 %16 to i64*"},{"Add":" %18 = load i64, i64* %17"},{"Add":"; # (<> Bnd (Ca: (env $Bind any)))"},{"Add":" %19 = icmp ne i64 %13, %18"},{"Add":" br label %$6"},{"Add":"$6:"},{"Add":" %20 = phi i8* [%9, %$5], [%12, %$7] ; # Ca"},{"Add":" %21 = phi i64 [%10, %$5], [%13, %$7] ; # Bnd"},{"Add":" %22 = phi i1 [0, %$5], [%19, %$7] ; # ->"},{"Add":" br i1 %22, label %$8, label %$9"},{"Add":"$8:"},{"Add":" %23 = phi i8* [%20, %$6] ; # Ca"},{"Add":" %24 = phi i64 [%21, %$6] ; # Bnd"},{"Add":"; # (set (val 2 Bnd) (val Bnd))"},{"Add":"; # (val 2 Bnd)"},{"Add":" %25 = inttoptr i64 %24 to i64*"},{"Add":" %26 = getelementptr i64, i64* %25, i32 1"},{"Add":" %27 = load i64, i64* %26"},{"Add":"; # (val Bnd)"},{"Add":" %28 = inttoptr i64 %24 to i64*"},{"Add":" %29 = load i64, i64* %28"},{"Add":" %30 = inttoptr i64 %27 to i64*"},{"Add":" store i64 %29, i64* %30"},{"Add":"; # (val 3 Bnd)"},{"Add":" %31 = inttoptr i64 %24 to i64*"},{"Add":" %32 = getelementptr i64, i64* %31, i32 2"},{"Add":" %33 = load i64, i64* %32"},{"Add":" br label %$5"},{"Add":"$9:"},{"Add":" %34 = phi i8* [%20, %$6] ; # Ca"},{"Add":" %35 = phi i64 [%21, %$6] ; # Bnd"},{"Add":"; # (until (== (val $CtlFrames) (Ca: (env $CtlFrames i8*))) (popCtlFi..."},{"Add":" br label %$10"},{"Add":"$10:"},{"Add":" %36 = phi i8* [%34, %$9], [%44, %$11] ; # Ca"},{"Add":" %37 = phi i64 [%35, %$9], [%45, %$11] ; # Bnd"},{"Add":"; # (val $CtlFrames)"},{"Add":" %38 = load i8*, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 56) to i8**)"},{"Add":"; # (Ca: (env $CtlFrames i8*))"},{"Add":" %39 = getelementptr i8, i8* %7, i32 32"},{"Add":" %40 = getelementptr i8, i8* %39, i32 56"},{"Add":" %41 = bitcast i8* %40 to i8**"},{"Add":" %42 = load i8*, i8** %41"},{"Add":"; # (== (val $CtlFrames) (Ca: (env $CtlFrames i8*)))"},{"Add":" %43 = icmp eq i8* %38, %42"},{"Add":" br i1 %43, label %$12, label %$11"},{"Add":"$11:"},{"Add":" %44 = phi i8* [%36, %$10] ; # Ca"},{"Add":" %45 = phi i64 [%37, %$10] ; # Bnd"},{"Add":"; # (popCtlFiles)"},{"Add":" call void @popCtlFiles()"},{"Add":" br label %$10"},{"Add":"$12:"},{"Add":" %46 = phi i8* [%36, %$10] ; # Ca"},{"Add":" %47 = phi i64 [%37, %$10] ; # Bnd"},{"Add":"; # (until (== (val $ErrFrames) (Ca: (env $ErrFrames i8*))) (popErrFi..."},{"Add":" br label %$13"},{"Add":"$13:"},{"Add":" %48 = phi i8* [%46, %$12], [%56, %$14] ; # Ca"},{"Add":" %49 = phi i64 [%47, %$12], [%57, %$14] ; # Bnd"},{"Add":"; # (val $ErrFrames)"},{"Add":" %50 = load i8*, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 48) to i8**)"},{"Add":"; # (Ca: (env $ErrFrames i8*))"},{"Add":" %51 = getelementptr i8, i8* %7, i32 32"},{"Add":" %52 = getelementptr i8, i8* %51, i32 48"},{"Add":" %53 = bitcast i8* %52 to i8**"},{"Add":" %54 = load i8*, i8** %53"},{"Add":"; # (== (val $ErrFrames) (Ca: (env $ErrFrames i8*)))"},{"Add":" %55 = icmp eq i8* %50, %54"},{"Add":" br i1 %55, label %$15, label %$14"},{"Add":"$14:"},{"Add":" %56 = phi i8* [%48, %$13] ; # Ca"},{"Add":" %57 = phi i64 [%49, %$13] ; # Bnd"},{"Add":"; # (popErrFiles)"},{"Add":" call void @popErrFiles()"},{"Add":" br label %$13"},{"Add":"$15:"},{"Add":" %58 = phi i8* [%48, %$13] ; # Ca"},{"Add":" %59 = phi i64 [%49, %$13] ; # Bnd"},{"Add":"; # (unless (== (val $OutFrames) (Ca: (env $OutFrames i8*))) (loop (p..."},{"Add":"; # (val $OutFrames)"},{"Add":" %60 = load i8*, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 40) to i8**)"},{"Add":"; # (Ca: (env $OutFrames i8*))"},{"Add":" %61 = getelementptr i8, i8* %7, i32 32"},{"Add":" %62 = getelementptr i8, i8* %61, i32 40"},{"Add":" %63 = bitcast i8* %62 to i8**"},{"Add":" %64 = load i8*, i8** %63"},{"Add":"; # (== (val $OutFrames) (Ca: (env $OutFrames i8*)))"},{"Add":" %65 = icmp eq i8* %60, %64"},{"Add":" br i1 %65, label %$17, label %$16"},{"Add":"$16:"},{"Add":" %66 = phi i8* [%58, %$15] ; # Ca"},{"Add":" %67 = phi i64 [%59, %$15] ; # Bnd"},{"Add":"; # (loop (popOutFiles) (? (== (val $OutFrames) (Ca: (env $OutFrames ..."},{"Add":" br label %$18"},{"Add":"$18:"},{"Add":" %68 = phi i8* [%66, %$16], [%76, %$19] ; # Ca"},{"Add":" %69 = phi i64 [%67, %$16], [%77, %$19] ; # Bnd"},{"Add":"; # (popOutFiles)"},{"Add":" call void @popOutFiles()"},{"Add":"; # (? (== (val $OutFrames) (Ca: (env $OutFrames i8*))))"},{"Add":"; # (val $OutFrames)"},{"Add":" %70 = load i8*, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 40) to i8**)"},{"Add":"; # (Ca: (env $OutFrames i8*))"},{"Add":" %71 = getelementptr i8, i8* %7, i32 32"},{"Add":" %72 = getelementptr i8, i8* %71, i32 40"},{"Add":" %73 = bitcast i8* %72 to i8**"},{"Add":" %74 = load i8*, i8** %73"},{"Add":"; # (== (val $OutFrames) (Ca: (env $OutFrames i8*)))"},{"Add":" %75 = icmp eq i8* %70, %74"},{"Add":" br i1 %75, label %$20, label %$19"},{"Add":"$19:"},{"Add":" %76 = phi i8* [%68, %$18] ; # Ca"},{"Add":" %77 = phi i64 [%69, %$18] ; # Bnd"},{"Add":" br label %$18"},{"Add":"$20:"},{"Add":" %78 = phi i8* [%68, %$18] ; # Ca"},{"Add":" %79 = phi i64 [%69, %$18] ; # Bnd"},{"Add":" %80 = phi i64 [0, %$18] ; # ->"},{"Add":" br label %$17"},{"Add":"$17:"},{"Add":" %81 = phi i8* [%58, %$15], [%78, %$20] ; # Ca"},{"Add":" %82 = phi i64 [%59, %$15], [%79, %$20] ; # Bnd"},{"Add":"; # (unless (== (val $InFrames) (Ca: (env $InFrames i8*))) (loop (pop..."},{"Add":"; # (val $InFrames)"},{"Add":" %83 = load i8*, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 32) to i8**)"},{"Add":"; # (Ca: (env $InFrames i8*))"},{"Add":" %84 = getelementptr i8, i8* %7, i32 32"},{"Add":" %85 = getelementptr i8, i8* %84, i32 32"},{"Add":" %86 = bitcast i8* %85 to i8**"},{"Add":" %87 = load i8*, i8** %86"},{"Add":"; # (== (val $InFrames) (Ca: (env $InFrames i8*)))"},{"Add":" %88 = icmp eq i8* %83, %87"},{"Add":" br i1 %88, label %$22, label %$21"},{"Add":"$21:"},{"Add":" %89 = phi i8* [%81, %$17] ; # Ca"},{"Add":" %90 = phi i64 [%82, %$17] ; # Bnd"},{"Add":"; # (loop (popInFiles) (? (== (val $InFrames) (Ca: (env $InFrames i8*..."},{"Add":" br label %$23"},{"Add":"$23:"},{"Add":" %91 = phi i8* [%89, %$21], [%99, %$24] ; # Ca"},{"Add":" %92 = phi i64 [%90, %$21], [%100, %$24] ; # Bnd"},{"Add":"; # (popInFiles)"},{"Add":" call void @popInFiles()"},{"Add":"; # (? (== (val $InFrames) (Ca: (env $InFrames i8*))))"},{"Add":"; # (val $InFrames)"},{"Add":" %93 = load i8*, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 32) to i8**)"},{"Add":"; # (Ca: (env $InFrames i8*))"},{"Add":" %94 = getelementptr i8, i8* %7, i32 32"},{"Add":" %95 = getelementptr i8, i8* %94, i32 32"},{"Add":" %96 = bitcast i8* %95 to i8**"},{"Add":" %97 = load i8*, i8** %96"},{"Add":"; # (== (val $InFrames) (Ca: (env $InFrames i8*)))"},{"Add":" %98 = icmp eq i8* %93, %97"},{"Add":" br i1 %98, label %$25, label %$24"},{"Add":"$24:"},{"Add":" %99 = phi i8* [%91, %$23] ; # Ca"},{"Add":" %100 = phi i64 [%92, %$23] ; # Bnd"},{"Add":" br label %$23"},{"Add":"$25:"},{"Add":" %101 = phi i8* [%91, %$23] ; # Ca"},{"Add":" %102 = phi i64 [%92, %$23] ; # Bnd"},{"Add":" %103 = phi i64 [0, %$23] ; # ->"},{"Add":" br label %$22"},{"Add":"$22:"},{"Add":" %104 = phi i8* [%81, %$17], [%101, %$25] ; # Ca"},{"Add":" %105 = phi i64 [%82, %$17], [%102, %$25] ; # Bnd"},{"Add":"; # (let (Src (val $Current) Dst (Ca: co)) (unless Dst (setq Dst (val..."},{"Add":"; # (val $Current)"},{"Add":" %106 = load i8*, i8** @$Current"},{"Add":"; # (Ca: co)"},{"Add":" %107 = getelementptr i8, i8* %7, i32 24"},{"Add":" %108 = bitcast i8* %107 to i8**"},{"Add":" %109 = load i8*, i8** %108"},{"Add":"; # (unless Dst (setq Dst (val $Coroutines)))"},{"Add":" %110 = icmp ne i8* %109, null"},{"Add":" br i1 %110, label %$27, label %$26"},{"Add":"$26:"},{"Add":" %111 = phi i8* [%104, %$22] ; # Ca"},{"Add":" %112 = phi i64 [%105, %$22] ; # Bnd"},{"Add":" %113 = phi i8* [%109, %$22] ; # Dst"},{"Add":"; # (val $Coroutines)"},{"Add":" %114 = load i8*, i8** @$Coroutines"},{"Add":" br label %$27"},{"Add":"$27:"},{"Add":" %115 = phi i8* [%104, %$22], [%111, %$26] ; # Ca"},{"Add":" %116 = phi i64 [%105, %$22], [%112, %$26] ; # Bnd"},{"Add":" %117 = phi i8* [%109, %$22], [%114, %$26] ; # Dst"},{"Add":"; # (unless (== Src Dst) (stop Src) (let Crt: (coroutine (set $Curren..."},{"Add":"; # (== Src Dst)"},{"Add":" %118 = icmp eq i8* %106, %117"},{"Add":" br i1 %118, label %$29, label %$28"},{"Add":"$28:"},{"Add":" %119 = phi i8* [%115, %$27] ; # Ca"},{"Add":" %120 = phi i64 [%116, %$27] ; # Bnd"},{"Add":" %121 = phi i8* [%117, %$27] ; # Dst"},{"Add":"; # (stop Src)"},{"Add":" call void @stop(i8* %106)"},{"Add":"; # (let Crt: (coroutine (set $Current Dst)) (getCrtEnv (Crt:)) (set ..."},{"Add":"; # (set $Current Dst)"},{"Add":" store i8* %121, i8** @$Current"},{"Add":"; # (Crt:)"},{"Add":"; # (getCrtEnv (Crt:))"},{"Add":" %122 = getelementptr i8, i8* %121, i32 280"},{"Add":" %123 = ptrtoint i8* %122 to i64"},{"Add":" %124 = inttoptr i64 %123 to i64*"},{"Add":" %125 = load i64, i64* %124"},{"Add":" %126 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([53 x i64]* @gcData to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %125, i64* %126"},{"Add":" %127 = getelementptr i8, i8* %121, i32 288"},{"Add":" %128 = ptrtoint i8* %127 to i64"},{"Add":" %129 = inttoptr i64 %128 to i64*"},{"Add":" %130 = load i64, i64* %129"},{"Add":" %131 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([53 x i64]* @gcData to i8*), i32 8) to i64) to i64*"},{"Add":" store i64 %130, i64* %131"},{"Add":" %132 = getelementptr i8, i8* %121, i32 296"},{"Add":" %133 = ptrtoint i8* %132 to i64"},{"Add":" %134 = inttoptr i64 %133 to i64*"},{"Add":" %135 = load i64, i64* %134"},{"Add":" %136 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([53 x i64]* @gcData to i8*), i32 8) to i64) to i64*"},{"Add":" %137 = getelementptr i64, i64* %136, i32 1"},{"Add":" store i64 %135, i64* %137"},{"Add":" %138 = getelementptr i8, i8* %121, i32 304"},{"Add":" %139 = ptrtoint i8* %138 to i64"},{"Add":" %140 = inttoptr i64 %139 to i64*"},{"Add":" %141 = load i64, i64* %140"},{"Add":" %142 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 112) to i64) to i64*"},{"Add":" store i64 %141, i64* %142"},{"Add":" %143 = getelementptr i8, i8* %121, i32 312"},{"Add":" %144 = ptrtoint i8* %143 to i64"},{"Add":" %145 = inttoptr i64 %144 to i64*"},{"Add":" %146 = load i64, i64* %145"},{"Add":" %147 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 112) to i64) to i64*"},{"Add":" %148 = getelementptr i64, i64* %147, i32 1"},{"Add":" store i64 %146, i64* %148"},{"Add":"; # (set $At (Crt: at))"},{"Add":"; # (Crt: at)"},{"Add":" %149 = getelementptr i8, i8* %121, i32 48"},{"Add":" %150 = ptrtoint i8* %149 to i64"},{"Add":" %151 = inttoptr i64 %150 to i64*"},{"Add":" %152 = load i64, i64* %151"},{"Add":" %153 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 440) to i64) to i64*"},{"Add":" store i64 %152, i64* %153"},{"Add":" br label %$29"},{"Add":"$29:"},{"Add":" %154 = phi i8* [%115, %$27], [%119, %$28] ; # Ca"},{"Add":" %155 = phi i64 [%116, %$27], [%120, %$28] ; # Bnd"},{"Add":" %156 = phi i8* [%117, %$27], [%121, %$28] ; # Dst"},{"Add":"; # (Ca:)"},{"Add":"; # (getCaEnv (Ca:))"},{"Add":" %157 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i8*"},{"Add":" %158 = getelementptr i8, i8* %7, i32 32"},{"Add":" call void @llvm.memcpy.p0i8.p0i8.i64(i8* align 8 %157, i8* %158, i64 168, i1 0)"},{"Add":" %159 = getelementptr i8, i8* %7, i32 200"},{"Add":" %160 = ptrtoint i8* %159 to i64"},{"Add":" %161 = inttoptr i64 %160 to i64*"},{"Add":" %162 = load i64, i64* %161"},{"Add":" %163 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([53 x i64]* @gcData to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %162, i64* %163"},{"Add":" %164 = getelementptr i8, i8* %7, i32 208"},{"Add":" %165 = ptrtoint i8* %164 to i64"},{"Add":" %166 = inttoptr i64 %165 to i64*"},{"Add":" %167 = load i64, i64* %166"},{"Add":" %168 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([53 x i64]* @gcData to i8*), i32 8) to i64) to i64*"},{"Add":" store i64 %167, i64* %168"},{"Add":" %169 = getelementptr i8, i8* %7, i32 216"},{"Add":" %170 = ptrtoint i8* %169 to i64"},{"Add":" %171 = inttoptr i64 %170 to i64*"},{"Add":" %172 = load i64, i64* %171"},{"Add":" %173 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([53 x i64]* @gcData to i8*), i32 8) to i64) to i64*"},{"Add":" %174 = getelementptr i64, i64* %173, i32 1"},{"Add":" store i64 %172, i64* %174"},{"Add":" %175 = getelementptr i8, i8* %7, i32 224"},{"Add":" %176 = ptrtoint i8* %175 to i64"},{"Add":" %177 = inttoptr i64 %176 to i64*"},{"Add":" %178 = load i64, i64* %177"},{"Add":" %179 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 112) to i64) to i64*"},{"Add":" store i64 %178, i64* %179"},{"Add":" %180 = getelementptr i8, i8* %7, i32 232"},{"Add":" %181 = ptrtoint i8* %180 to i64"},{"Add":" %182 = inttoptr i64 %181 to i64*"},{"Add":" %183 = load i64, i64* %182"},{"Add":" %184 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 112) to i64) to i64*"},{"Add":" %185 = getelementptr i64, i64* %184, i32 1"},{"Add":" store i64 %183, i64* %185"},{"Add":"; # (Ca: fin)"},{"Add":" %186 = getelementptr i8, i8* %7, i32 16"},{"Add":" %187 = ptrtoint i8* %186 to i64"},{"Add":" %188 = inttoptr i64 %187 to i64*"},{"Add":" %189 = load i64, i64* %188"},{"Add":"; # (eval (Ca: fin))"},{"Add":" %190 = and i64 %189, 6"},{"Add":" %191 = icmp ne i64 %190, 0"},{"Add":" br i1 %191, label %$32, label %$31"},{"Add":"$32:"},{"Add":" br label %$30"},{"Add":"$31:"},{"Add":" %192 = and i64 %189, 8"},{"Add":" %193 = icmp ne i64 %192, 0"},{"Add":" br i1 %193, label %$34, label %$33"},{"Add":"$34:"},{"Add":" %194 = inttoptr i64 %189 to i64*"},{"Add":" %195 = load i64, i64* %194"},{"Add":" br label %$30"},{"Add":"$33:"},{"Add":" %196 = call i64 @evList(i64 %189)"},{"Add":" br label %$30"},{"Add":"$30:"},{"Add":" %197 = phi i64 [%189, %$32], [%195, %$34], [%196, %$33] ; # ->"},{"Add":"; # (set $Catch (Ca: link))"},{"Add":"; # (Ca: link)"},{"Add":" %198 = bitcast i8* %7 to i8**"},{"Add":" %199 = load i8*, i8** %198"},{"Add":" store i8* %199, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 24) to i8**)"},{"Add":"; # (when (== Ca Catch) (ret))"},{"Add":"; # (== Ca Catch)"},{"Add":" %200 = icmp eq i8* %154, %0"},{"Add":" br i1 %200, label %$35, label %$36"},{"Add":"$35:"},{"Add":" %201 = phi i8* [%154, %$30] ; # Ca"},{"Add":" %202 = phi i64 [%155, %$30] ; # Bnd"},{"Add":"; # (ret)"},{"Add":" ret void"},{"Add":"$36:"},{"Add":" %203 = phi i8* [%154, %$30] ; # Ca"},{"Add":" %204 = phi i64 [%155, %$30] ; # Bnd"},{"Add":"; # (Ca: link)"},{"Add":" %205 = bitcast i8* %7 to i8**"},{"Add":" %206 = load i8*, i8** %205"},{"Add":" br label %$2"},{"Add":"$4:"},{"Add":" %207 = phi i8* [%4, %$2] ; # Ca"},{"Add":" %208 = phi i64 [%5, %$2] ; # Bnd"},{"Add":"; # (while Bnd (set (val 2 Bnd) (val Bnd)) (setq Bnd (val 3 Bnd)))"},{"Add":" br label %$37"},{"Add":"$37:"},{"Add":" %209 = phi i8* [%207, %$4], [%212, %$38] ; # Ca"},{"Add":" %210 = phi i64 [%208, %$4], [%222, %$38] ; # Bnd"},{"Add":" %211 = icmp ne i64 %210, 0"},{"Add":" br i1 %211, label %$38, label %$39"},{"Add":"$38:"},{"Add":" %212 = phi i8* [%209, %$37] ; # Ca"},{"Add":" %213 = phi i64 [%210, %$37] ; # Bnd"},{"Add":"; # (set (val 2 Bnd) (val Bnd))"},{"Add":"; # (val 2 Bnd)"},{"Add":" %214 = inttoptr i64 %213 to i64*"},{"Add":" %215 = getelementptr i64, i64* %214, i32 1"},{"Add":" %216 = load i64, i64* %215"},{"Add":"; # (val Bnd)"},{"Add":" %217 = inttoptr i64 %213 to i64*"},{"Add":" %218 = load i64, i64* %217"},{"Add":" %219 = inttoptr i64 %216 to i64*"},{"Add":" store i64 %218, i64* %219"},{"Add":"; # (val 3 Bnd)"},{"Add":" %220 = inttoptr i64 %213 to i64*"},{"Add":" %221 = getelementptr i64, i64* %220, i32 2"},{"Add":" %222 = load i64, i64* %221"},{"Add":" br label %$37"},{"Add":"$39:"},{"Add":" %223 = phi i8* [%209, %$37] ; # Ca"},{"Add":" %224 = phi i64 [%210, %$37] ; # Bnd"},{"Add":"; # (set $Bind 0)"},{"Add":" %225 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 8) to i64) to i64*"},{"Add":" store i64 0, i64* %225"},{"Add":"; # (while (val $CtlFrames) (popCtlFiles))"},{"Add":" br label %$40"},{"Add":"$40:"},{"Add":" %226 = phi i8* [%223, %$39], [%230, %$41] ; # Ca"},{"Add":" %227 = phi i64 [%224, %$39], [%231, %$41] ; # Bnd"},{"Add":"; # (val $CtlFrames)"},{"Add":" %228 = load i8*, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 56) to i8**)"},{"Add":" %229 = icmp ne i8* %228, null"},{"Add":" br i1 %229, label %$41, label %$42"},{"Add":"$41:"},{"Add":" %230 = phi i8* [%226, %$40] ; # Ca"},{"Add":" %231 = phi i64 [%227, %$40] ; # Bnd"},{"Add":"; # (popCtlFiles)"},{"Add":" call void @popCtlFiles()"},{"Add":" br label %$40"},{"Add":"$42:"},{"Add":" %232 = phi i8* [%226, %$40] ; # Ca"},{"Add":" %233 = phi i64 [%227, %$40] ; # Bnd"},{"Add":"; # (while (val $ErrFrames) (popErrFiles))"},{"Add":" br label %$43"},{"Add":"$43:"},{"Add":" %234 = phi i8* [%232, %$42], [%238, %$44] ; # Ca"},{"Add":" %235 = phi i64 [%233, %$42], [%239, %$44] ; # Bnd"},{"Add":"; # (val $ErrFrames)"},{"Add":" %236 = load i8*, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 48) to i8**)"},{"Add":" %237 = icmp ne i8* %236, null"},{"Add":" br i1 %237, label %$44, label %$45"},{"Add":"$44:"},{"Add":" %238 = phi i8* [%234, %$43] ; # Ca"},{"Add":" %239 = phi i64 [%235, %$43] ; # Bnd"},{"Add":"; # (popErrFiles)"},{"Add":" call void @popErrFiles()"},{"Add":" br label %$43"},{"Add":"$45:"},{"Add":" %240 = phi i8* [%234, %$43] ; # Ca"},{"Add":" %241 = phi i64 [%235, %$43] ; # Bnd"},{"Add":"; # (unless (== (val $OutFrames) (val $Stdout)) (loop (popOutFiles) (..."},{"Add":"; # (val $OutFrames)"},{"Add":" %242 = load i8*, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 40) to i8**)"},{"Add":"; # (val $Stdout)"},{"Add":" %243 = load i8*, i8** @$Stdout"},{"Add":"; # (== (val $OutFrames) (val $Stdout))"},{"Add":" %244 = icmp eq i8* %242, %243"},{"Add":" br i1 %244, label %$47, label %$46"},{"Add":"$46:"},{"Add":" %245 = phi i8* [%240, %$45] ; # Ca"},{"Add":" %246 = phi i64 [%241, %$45] ; # Bnd"},{"Add":"; # (loop (popOutFiles) (? (== (val $OutFrames) (val $Stdout))))"},{"Add":" br label %$48"},{"Add":"$48:"},{"Add":" %247 = phi i8* [%245, %$46], [%252, %$49] ; # Ca"},{"Add":" %248 = phi i64 [%246, %$46], [%253, %$49] ; # Bnd"},{"Add":"; # (popOutFiles)"},{"Add":" call void @popOutFiles()"},{"Add":"; # (? (== (val $OutFrames) (val $Stdout)))"},{"Add":"; # (val $OutFrames)"},{"Add":" %249 = load i8*, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 40) to i8**)"},{"Add":"; # (val $Stdout)"},{"Add":" %250 = load i8*, i8** @$Stdout"},{"Add":"; # (== (val $OutFrames) (val $Stdout))"},{"Add":" %251 = icmp eq i8* %249, %250"},{"Add":" br i1 %251, label %$50, label %$49"},{"Add":"$49:"},{"Add":" %252 = phi i8* [%247, %$48] ; # Ca"},{"Add":" %253 = phi i64 [%248, %$48] ; # Bnd"},{"Add":" br label %$48"},{"Add":"$50:"},{"Add":" %254 = phi i8* [%247, %$48] ; # Ca"},{"Add":" %255 = phi i64 [%248, %$48] ; # Bnd"},{"Add":" %256 = phi i64 [0, %$48] ; # ->"},{"Add":" br label %$47"},{"Add":"$47:"},{"Add":" %257 = phi i8* [%240, %$45], [%254, %$50] ; # Ca"},{"Add":" %258 = phi i64 [%241, %$45], [%255, %$50] ; # Bnd"},{"Add":"; # (unless (== (val $InFrames) (val $Stdin)) (loop (popInFiles) (? (..."},{"Add":"; # (val $InFrames)"},{"Add":" %259 = load i8*, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 32) to i8**)"},{"Add":"; # (val $Stdin)"},{"Add":" %260 = load i8*, i8** @$Stdin"},{"Add":"; # (== (val $InFrames) (val $Stdin))"},{"Add":" %261 = icmp eq i8* %259, %260"},{"Add":" br i1 %261, label %$52, label %$51"},{"Add":"$51:"},{"Add":" %262 = phi i8* [%257, %$47] ; # Ca"},{"Add":" %263 = phi i64 [%258, %$47] ; # Bnd"},{"Add":"; # (loop (popInFiles) (? (== (val $InFrames) (val $Stdin))))"},{"Add":" br label %$53"},{"Add":"$53:"},{"Add":" %264 = phi i8* [%262, %$51], [%269, %$54] ; # Ca"},{"Add":" %265 = phi i64 [%263, %$51], [%270, %$54] ; # Bnd"},{"Add":"; # (popInFiles)"},{"Add":" call void @popInFiles()"},{"Add":"; # (? (== (val $InFrames) (val $Stdin)))"},{"Add":"; # (val $InFrames)"},{"Add":" %266 = load i8*, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 32) to i8**)"},{"Add":"; # (val $Stdin)"},{"Add":" %267 = load i8*, i8** @$Stdin"},{"Add":"; # (== (val $InFrames) (val $Stdin))"},{"Add":" %268 = icmp eq i8* %266, %267"},{"Add":" br i1 %268, label %$55, label %$54"},{"Add":"$54:"},{"Add":" %269 = phi i8* [%264, %$53] ; # Ca"},{"Add":" %270 = phi i64 [%265, %$53] ; # Bnd"},{"Add":" br label %$53"},{"Add":"$55:"},{"Add":" %271 = phi i8* [%264, %$53] ; # Ca"},{"Add":" %272 = phi i64 [%265, %$53] ; # Bnd"},{"Add":" %273 = phi i64 [0, %$53] ; # ->"},{"Add":" br label %$52"},{"Add":"$52:"},{"Add":" %274 = phi i8* [%257, %$47], [%271, %$55] ; # Ca"},{"Add":" %275 = phi i64 [%258, %$47], [%272, %$55] ; # Bnd"},{"Add":"; # (let (Src (val $Current) Dst (val $Coroutines)) (unless (== Src D..."},{"Add":"; # (val $Current)"},{"Add":" %276 = load i8*, i8** @$Current"},{"Add":"; # (val $Coroutines)"},{"Add":" %277 = load i8*, i8** @$Coroutines"},{"Add":"; # (unless (== Src Dst) (stop Src) (let Crt: (coroutine (set $Curren..."},{"Add":"; # (== Src Dst)"},{"Add":" %278 = icmp eq i8* %276, %277"},{"Add":" br i1 %278, label %$57, label %$56"},{"Add":"$56:"},{"Add":" %279 = phi i8* [%274, %$52] ; # Ca"},{"Add":" %280 = phi i64 [%275, %$52] ; # Bnd"},{"Add":"; # (stop Src)"},{"Add":" call void @stop(i8* %276)"},{"Add":"; # (let Crt: (coroutine (set $Current Dst)) (getCrtEnv (Crt:)) (set ..."},{"Add":"; # (set $Current Dst)"},{"Add":" store i8* %277, i8** @$Current"},{"Add":"; # (Crt:)"},{"Add":"; # (getCrtEnv (Crt:))"},{"Add":" %281 = getelementptr i8, i8* %277, i32 280"},{"Add":" %282 = ptrtoint i8* %281 to i64"},{"Add":" %283 = inttoptr i64 %282 to i64*"},{"Add":" %284 = load i64, i64* %283"},{"Add":" %285 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([53 x i64]* @gcData to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %284, i64* %285"},{"Add":" %286 = getelementptr i8, i8* %277, i32 288"},{"Add":" %287 = ptrtoint i8* %286 to i64"},{"Add":" %288 = inttoptr i64 %287 to i64*"},{"Add":" %289 = load i64, i64* %288"},{"Add":" %290 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([53 x i64]* @gcData to i8*), i32 8) to i64) to i64*"},{"Add":" store i64 %289, i64* %290"},{"Add":" %291 = getelementptr i8, i8* %277, i32 296"},{"Add":" %292 = ptrtoint i8* %291 to i64"},{"Add":" %293 = inttoptr i64 %292 to i64*"},{"Add":" %294 = load i64, i64* %293"},{"Add":" %295 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([53 x i64]* @gcData to i8*), i32 8) to i64) to i64*"},{"Add":" %296 = getelementptr i64, i64* %295, i32 1"},{"Add":" store i64 %294, i64* %296"},{"Add":" %297 = getelementptr i8, i8* %277, i32 304"},{"Add":" %298 = ptrtoint i8* %297 to i64"},{"Add":" %299 = inttoptr i64 %298 to i64*"},{"Add":" %300 = load i64, i64* %299"},{"Add":" %301 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 112) to i64) to i64*"},{"Add":" store i64 %300, i64* %301"},{"Add":" %302 = getelementptr i8, i8* %277, i32 312"},{"Add":" %303 = ptrtoint i8* %302 to i64"},{"Add":" %304 = inttoptr i64 %303 to i64*"},{"Add":" %305 = load i64, i64* %304"},{"Add":" %306 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 112) to i64) to i64*"},{"Add":" %307 = getelementptr i64, i64* %306, i32 1"},{"Add":" store i64 %305, i64* %307"},{"Add":"; # (set $At (Crt: at))"},{"Add":"; # (Crt: at)"},{"Add":" %308 = getelementptr i8, i8* %277, i32 48"},{"Add":" %309 = ptrtoint i8* %308 to i64"},{"Add":" %310 = inttoptr i64 %309 to i64*"},{"Add":" %311 = load i64, i64* %310"},{"Add":" %312 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 440) to i64) to i64*"},{"Add":" store i64 %311, i64* %312"},{"Add":" br label %$57"},{"Add":"$57:"},{"Add":" %313 = phi i8* [%274, %$52], [%279, %$56] ; # Ca"},{"Add":" %314 = phi i64 [%275, %$52], [%280, %$56] ; # Bnd"},{"Add":" ret void"},{"Add":"}"},{"Add":""},{"Add":"define void @finish(i32) align 8 {"},{"Add":"$1:"},{"Add":"; # (setCooked)"},{"Add":" call void @setCooked()"},{"Add":"; # (exit N)"},{"Add":" call void @exit(i32 %0)"},{"Add":" unreachable"},{"Add":"}"},{"Add":""},{"Add":"define void @giveup(i8*) align 8 {"},{"Add":"$1:"},{"Add":"; # (stderrMsg ($ \"Give up: %s^J\") Msg)"},{"Add":" %1 = call i8* @stderrMsg(i8* bitcast ([13 x i8]* @$2 to i8*), i8* %0)"},{"Add":"; # (finish 1)"},{"Add":" call void @finish(i32 1)"},{"Add":" unreachable"},{"Add":"}"},{"Add":""},{"Add":"define void @bye(i32) align 8 {"},{"Add":"$1:"},{"Add":"; # (unless (val $InBye) (set $InBye YES) (unwind null) (exec (val $B..."},{"Add":"; # (val $InBye)"},{"Add":" %1 = load i1, i1* @$InBye"},{"Add":" br i1 %1, label %$3, label %$2"},{"Add":"$2:"},{"Add":"; # (set $InBye YES)"},{"Add":" store i1 1, i1* @$InBye"},{"Add":"; # (unwind null)"},{"Add":" call void @unwind(i8* null)"},{"Add":"; # (val $Bye)"},{"Add":" %2 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 808) to i64) to i64*"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (exec (val $Bye))"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %4 = phi i64 [%3, %$2], [%16, %$7] ; # Prg"},{"Add":" %5 = inttoptr i64 %4 to i64*"},{"Add":" %6 = load i64, i64* %5"},{"Add":" %7 = getelementptr i64, i64* %5, i32 1"},{"Add":" %8 = load i64, i64* %7"},{"Add":" %9 = and i64 %6, 15"},{"Add":" %10 = icmp eq i64 %9, 0"},{"Add":" br i1 %10, label %$5, label %$6"},{"Add":"$5:"},{"Add":" %11 = phi i64 [%8, %$4] ; # Prg"},{"Add":" %12 = call i64 @evList(i64 %6)"},{"Add":" br label %$6"},{"Add":"$6:"},{"Add":" %13 = phi i64 [%8, %$4], [%11, %$5] ; # Prg"},{"Add":" %14 = and i64 %13, 15"},{"Add":" %15 = icmp ne i64 %14, 0"},{"Add":" br i1 %15, label %$8, label %$7"},{"Add":"$7:"},{"Add":" %16 = phi i64 [%13, %$6] ; # Prg"},{"Add":" br label %$4"},{"Add":"$8:"},{"Add":" %17 = phi i64 [%13, %$6] ; # Prg"},{"Add":" %18 = phi i64 [0, %$6] ; # ->"},{"Add":" br label %$3"},{"Add":"$3:"},{"Add":"; # (flushAll)"},{"Add":" call void @flushAll()"},{"Add":"; # (finish N)"},{"Add":" call void @finish(i32 %0)"},{"Add":" unreachable"},{"Add":"}"},{"Add":""},{"Add":"define void @execErr(i8*) align 8 {"},{"Add":"$1:"},{"Add":"; # (stderrMsg ($ \"%s: Can't exec^J\") Cmd)"},{"Add":" %1 = call i8* @stderrMsg(i8* bitcast ([16 x i8]* @$3 to i8*), i8* %0)"},{"Add":"; # (exit 127)"},{"Add":" call void @exit(i32 127)"},{"Add":" unreachable"},{"Add":"}"},{"Add":""},{"Add":"define i8* @alloc(i8*, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (unless (realloc Ptr Siz) (giveup ($ \"No memory\")))"},{"Add":"; # (realloc Ptr Siz)"},{"Add":" %2 = call i8* @realloc(i8* %0, i64 %1)"},{"Add":" %3 = icmp ne i8* %2, null"},{"Add":" br i1 %3, label %$3, label %$2"},{"Add":"$2:"},{"Add":"; # (giveup ($ \"No memory\"))"},{"Add":" call void @giveup(i8* bitcast ([10 x i8]* @$4 to i8*))"},{"Add":" unreachable"},{"Add":"$3:"},{"Add":" ret i8* %2"},{"Add":"}"},{"Add":""},{"Add":"define void @heapAlloc() align 8 {"},{"Add":"$1:"},{"Add":"; # (let (H (any (alloc null (* 8 (inc HEAP)))) P (ofs H HEAP) A (val..."},{"Add":"; # (inc HEAP)"},{"Add":"; # (* 8 (inc HEAP))"},{"Add":"; # (alloc null (* 8 (inc HEAP)))"},{"Add":" %0 = call i8* @alloc(i8* null, i64 1048584)"},{"Add":"; # (any (alloc null (* 8 (inc HEAP))))"},{"Add":" %1 = ptrtoint i8* %0 to i64"},{"Add":"; # (ofs H HEAP)"},{"Add":" %2 = add i64 %1, 1048576"},{"Add":"; # (val $Avail)"},{"Add":" %3 = load i64, i64* @$Avail"},{"Add":"; # (set P (val $Heaps) $Heaps H)"},{"Add":"; # (val $Heaps)"},{"Add":" %4 = load i64, i64* @$Heaps"},{"Add":" %5 = inttoptr i64 %2 to i64*"},{"Add":" store i64 %4, i64* %5"},{"Add":" store i64 %1, i64* @$Heaps"},{"Add":"; # (loop (set (setq P (ofs P -2)) A) (? (== (setq A P) H)))"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %6 = phi i64 [%2, %$1], [%11, %$3] ; # P"},{"Add":" %7 = phi i64 [%3, %$1], [%12, %$3] ; # A"},{"Add":"; # (set (setq P (ofs P -2)) A)"},{"Add":"; # (ofs P -2)"},{"Add":" %8 = add i64 %6, -16"},{"Add":" %9 = inttoptr i64 %8 to i64*"},{"Add":" store i64 %7, i64* %9"},{"Add":"; # (? (== (setq A P) H))"},{"Add":"; # (== (setq A P) H)"},{"Add":" %10 = icmp eq i64 %8, %1"},{"Add":" br i1 %10, label %$4, label %$3"},{"Add":"$3:"},{"Add":" %11 = phi i64 [%8, %$2] ; # P"},{"Add":" %12 = phi i64 [%8, %$2] ; # A"},{"Add":" br label %$2"},{"Add":"$4:"},{"Add":" %13 = phi i64 [%8, %$2] ; # P"},{"Add":" %14 = phi i64 [%8, %$2] ; # A"},{"Add":" %15 = phi i64 [0, %$2] ; # ->"},{"Add":"; # (set $Avail A)"},{"Add":" store i64 %14, i64* @$Avail"},{"Add":" ret void"},{"Add":"}"},{"Add":""},{"Add":"define void @sig(i32) align 8 {"},{"Add":"$1:"},{"Add":"; # (if (val $TtyPid) (kill @ N) (set $Signal (+ (val $Signal) 1)) (l..."},{"Add":"; # (val $TtyPid)"},{"Add":" %1 = load i32, i32* @$TtyPid"},{"Add":" %2 = icmp ne i32 %1, 0"},{"Add":" br i1 %2, label %$2, label %$3"},{"Add":"$2:"},{"Add":"; # (kill @ N)"},{"Add":" %3 = call i32 @kill(i32 %1, i32 %0)"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":"; # (set $Signal (+ (val $Signal) 1))"},{"Add":"; # (val $Signal)"},{"Add":" %4 = load i32, i32* bitcast ([16 x i32]* @$Signal to i32*)"},{"Add":"; # (+ (val $Signal) 1)"},{"Add":" %5 = add i32 %4, 1"},{"Add":" store i32 %5, i32* bitcast ([16 x i32]* @$Signal to i32*)"},{"Add":"; # (let P (ofs $Signal (gSignal N)) (set P (+ (val P) 1)))"},{"Add":"; # (gSignal N)"},{"Add":" %6 = call i32 @gSignal(i32 %0)"},{"Add":"; # (ofs $Signal (gSignal N))"},{"Add":" %7 = getelementptr i32, i32* bitcast ([16 x i32]* @$Signal to i32*), i32 %6"},{"Add":"; # (set P (+ (val P) 1))"},{"Add":"; # (val P)"},{"Add":" %8 = load i32, i32* %7"},{"Add":"; # (+ (val P) 1)"},{"Add":" %9 = add i32 %8, 1"},{"Add":" store i32 %9, i32* %7"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %10 = phi i32 [%3, %$2], [%9, %$3] ; # ->"},{"Add":" ret void"},{"Add":"}"},{"Add":""},{"Add":"define void @sigTerm(i32) align 8 {"},{"Add":"$1:"},{"Add":"; # (if (val $TtyPid) (kill @ N) (set $Signal (+ (val $Signal) 1)) (l..."},{"Add":"; # (val $TtyPid)"},{"Add":" %1 = load i32, i32* @$TtyPid"},{"Add":" %2 = icmp ne i32 %1, 0"},{"Add":" br i1 %2, label %$2, label %$3"},{"Add":"$2:"},{"Add":"; # (kill @ N)"},{"Add":" %3 = call i32 @kill(i32 %1, i32 %0)"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":"; # (set $Signal (+ (val $Signal) 1))"},{"Add":"; # (val $Signal)"},{"Add":" %4 = load i32, i32* bitcast ([16 x i32]* @$Signal to i32*)"},{"Add":"; # (+ (val $Signal) 1)"},{"Add":" %5 = add i32 %4, 1"},{"Add":" store i32 %5, i32* bitcast ([16 x i32]* @$Signal to i32*)"},{"Add":"; # (let P (ofs $Signal (gSignal (val SIGTERM Sig))) (set P (+ (val P..."},{"Add":"; # (val SIGTERM Sig)"},{"Add":" %6 = getelementptr i32, i32* @Sig, i32 6"},{"Add":" %7 = load i32, i32* %6"},{"Add":"; # (gSignal (val SIGTERM Sig))"},{"Add":" %8 = call i32 @gSignal(i32 %7)"},{"Add":"; # (ofs $Signal (gSignal (val SIGTERM Sig)))"},{"Add":" %9 = getelementptr i32, i32* bitcast ([16 x i32]* @$Signal to i32*), i32 %8"},{"Add":"; # (set P (+ (val P) 1))"},{"Add":"; # (val P)"},{"Add":" %10 = load i32, i32* %9"},{"Add":"; # (+ (val P) 1)"},{"Add":" %11 = add i32 %10, 1"},{"Add":" store i32 %11, i32* %9"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %12 = phi i32 [%3, %$2], [%11, %$3] ; # ->"},{"Add":" ret void"},{"Add":"}"},{"Add":""},{"Add":"define void @sighandler(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (unless (val $Protect) (set $Protect 1) (let P T (loop (cond ((va..."},{"Add":"; # (val $Protect)"},{"Add":" %1 = load i32, i32* bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 152) to i32*)"},{"Add":" %2 = icmp ne i32 %1, 0"},{"Add":" br i1 %2, label %$3, label %$2"},{"Add":"$2:"},{"Add":"; # (set $Protect 1)"},{"Add":" store i32 1, i32* bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 152) to i32*)"},{"Add":"; # (let P T (loop (cond ((val (setq P (ofs $Signal SIGIO))) (set P (..."},{"Add":"; # (loop (cond ((val (setq P (ofs $Signal SIGIO))) (set P (dec @)) (..."},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":"; # (cond ((val (setq P (ofs $Signal SIGIO))) (set P (dec @)) (set $S..."},{"Add":"; # (ofs $Signal SIGIO)"},{"Add":" %3 = getelementptr i32, i32* bitcast ([16 x i32]* @$Signal to i32*), i32 15"},{"Add":"; # (val (setq P (ofs $Signal SIGIO)))"},{"Add":" %4 = load i32, i32* %3"},{"Add":" %5 = icmp ne i32 %4, 0"},{"Add":" br i1 %5, label %$7, label %$6"},{"Add":"$7:"},{"Add":" %6 = phi i32* [%3, %$4] ; # P"},{"Add":"; # (set P (dec @))"},{"Add":"; # (dec @)"},{"Add":" %7 = sub i32 %4, 1"},{"Add":" store i32 %7, i32* %6"},{"Add":"; # (set $Signal (dec (val $Signal)))"},{"Add":"; # (val $Signal)"},{"Add":" %8 = load i32, i32* bitcast ([16 x i32]* @$Signal to i32*)"},{"Add":"; # (dec (val $Signal))"},{"Add":" %9 = sub i32 %8, 1"},{"Add":" store i32 %9, i32* bitcast ([16 x i32]* @$Signal to i32*)"},{"Add":"; # (val $Sigio)"},{"Add":" %10 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([53 x i64]* @gcData to i8*), i32 32) to i64) to i64*"},{"Add":" %11 = load i64, i64* %10"},{"Add":"; # (execAt (val $Sigio))"},{"Add":" %12 = call i64 @execAt(i64 %11)"},{"Add":" br label %$5"},{"Add":"$6:"},{"Add":" %13 = phi i32* [%3, %$4] ; # P"},{"Add":"; # (ofs $Signal SIGUSR1)"},{"Add":" %14 = getelementptr i32, i32* bitcast ([16 x i32]* @$Signal to i32*), i32 3"},{"Add":"; # (val (setq P (ofs $Signal SIGUSR1)))"},{"Add":" %15 = load i32, i32* %14"},{"Add":" %16 = icmp ne i32 %15, 0"},{"Add":" br i1 %16, label %$9, label %$8"},{"Add":"$9:"},{"Add":" %17 = phi i32* [%14, %$6] ; # P"},{"Add":"; # (set P (dec @))"},{"Add":"; # (dec @)"},{"Add":" %18 = sub i32 %15, 1"},{"Add":" store i32 %18, i32* %17"},{"Add":"; # (set $Signal (dec (val $Signal)))"},{"Add":"; # (val $Signal)"},{"Add":" %19 = load i32, i32* bitcast ([16 x i32]* @$Signal to i32*)"},{"Add":"; # (dec (val $Signal))"},{"Add":" %20 = sub i32 %19, 1"},{"Add":" store i32 %20, i32* bitcast ([16 x i32]* @$Signal to i32*)"},{"Add":"; # (val $Sig1)"},{"Add":" %21 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 632) to i64) to i64*"},{"Add":" %22 = load i64, i64* %21"},{"Add":"; # (execAt (val $Sig1))"},{"Add":" %23 = call i64 @execAt(i64 %22)"},{"Add":" br label %$5"},{"Add":"$8:"},{"Add":" %24 = phi i32* [%14, %$6] ; # P"},{"Add":"; # (ofs $Signal SIGUSR2)"},{"Add":" %25 = getelementptr i32, i32* bitcast ([16 x i32]* @$Signal to i32*), i32 4"},{"Add":"; # (val (setq P (ofs $Signal SIGUSR2)))"},{"Add":" %26 = load i32, i32* %25"},{"Add":" %27 = icmp ne i32 %26, 0"},{"Add":" br i1 %27, label %$11, label %$10"},{"Add":"$11:"},{"Add":" %28 = phi i32* [%25, %$8] ; # P"},{"Add":"; # (set P (dec @))"},{"Add":"; # (dec @)"},{"Add":" %29 = sub i32 %26, 1"},{"Add":" store i32 %29, i32* %28"},{"Add":"; # (set $Signal (dec (val $Signal)))"},{"Add":"; # (val $Signal)"},{"Add":" %30 = load i32, i32* bitcast ([16 x i32]* @$Signal to i32*)"},{"Add":"; # (dec (val $Signal))"},{"Add":" %31 = sub i32 %30, 1"},{"Add":" store i32 %31, i32* bitcast ([16 x i32]* @$Signal to i32*)"},{"Add":"; # (val $Sig2)"},{"Add":" %32 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 648) to i64) to i64*"},{"Add":" %33 = load i64, i64* %32"},{"Add":"; # (execAt (val $Sig2))"},{"Add":" %34 = call i64 @execAt(i64 %33)"},{"Add":" br label %$5"},{"Add":"$10:"},{"Add":" %35 = phi i32* [%25, %$8] ; # P"},{"Add":"; # (ofs $Signal SIGALRM)"},{"Add":" %36 = getelementptr i32, i32* bitcast ([16 x i32]* @$Signal to i32*), i32 6"},{"Add":"; # (val (setq P (ofs $Signal SIGALRM)))"},{"Add":" %37 = load i32, i32* %36"},{"Add":" %38 = icmp ne i32 %37, 0"},{"Add":" br i1 %38, label %$13, label %$12"},{"Add":"$13:"},{"Add":" %39 = phi i32* [%36, %$10] ; # P"},{"Add":"; # (set P (dec @))"},{"Add":"; # (dec @)"},{"Add":" %40 = sub i32 %37, 1"},{"Add":" store i32 %40, i32* %39"},{"Add":"; # (set $Signal (dec (val $Signal)))"},{"Add":"; # (val $Signal)"},{"Add":" %41 = load i32, i32* bitcast ([16 x i32]* @$Signal to i32*)"},{"Add":"; # (dec (val $Signal))"},{"Add":" %42 = sub i32 %41, 1"},{"Add":" store i32 %42, i32* bitcast ([16 x i32]* @$Signal to i32*)"},{"Add":"; # (val $Alarm)"},{"Add":" %43 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([53 x i64]* @gcData to i8*), i32 24) to i64) to i64*"},{"Add":" %44 = load i64, i64* %43"},{"Add":"; # (execAt (val $Alarm))"},{"Add":" %45 = call i64 @execAt(i64 %44)"},{"Add":" br label %$5"},{"Add":"$12:"},{"Add":" %46 = phi i32* [%36, %$10] ; # P"},{"Add":"; # (ofs $Signal SIGHUP)"},{"Add":" %47 = getelementptr i32, i32* bitcast ([16 x i32]* @$Signal to i32*), i32 1"},{"Add":"; # (val (setq P (ofs $Signal SIGHUP)))"},{"Add":" %48 = load i32, i32* %47"},{"Add":" %49 = icmp ne i32 %48, 0"},{"Add":" br i1 %49, label %$15, label %$14"},{"Add":"$15:"},{"Add":" %50 = phi i32* [%47, %$12] ; # P"},{"Add":"; # (set P (dec @))"},{"Add":"; # (dec @)"},{"Add":" %51 = sub i32 %48, 1"},{"Add":" store i32 %51, i32* %50"},{"Add":"; # (set $Signal (dec (val $Signal)))"},{"Add":"; # (val $Signal)"},{"Add":" %52 = load i32, i32* bitcast ([16 x i32]* @$Signal to i32*)"},{"Add":"; # (dec (val $Signal))"},{"Add":" %53 = sub i32 %52, 1"},{"Add":" store i32 %53, i32* bitcast ([16 x i32]* @$Signal to i32*)"},{"Add":"; # (val $Hup)"},{"Add":" %54 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 616) to i64) to i64*"},{"Add":" %55 = load i64, i64* %54"},{"Add":"; # (execAt (val $Hup))"},{"Add":" %56 = call i64 @execAt(i64 %55)"},{"Add":" br label %$5"},{"Add":"$14:"},{"Add":" %57 = phi i32* [%47, %$12] ; # P"},{"Add":"; # (ofs $Signal SIGINT)"},{"Add":" %58 = getelementptr i32, i32* bitcast ([16 x i32]* @$Signal to i32*), i32 2"},{"Add":"; # (val (setq P (ofs $Signal SIGINT)))"},{"Add":" %59 = load i32, i32* %58"},{"Add":" %60 = icmp ne i32 %59, 0"},{"Add":" br i1 %60, label %$17, label %$16"},{"Add":"$17:"},{"Add":" %61 = phi i32* [%58, %$14] ; # P"},{"Add":"; # (set P (dec @))"},{"Add":"; # (dec @)"},{"Add":" %62 = sub i32 %59, 1"},{"Add":" store i32 %62, i32* %61"},{"Add":"; # (set $Signal (dec (val $Signal)))"},{"Add":"; # (val $Signal)"},{"Add":" %63 = load i32, i32* bitcast ([16 x i32]* @$Signal to i32*)"},{"Add":"; # (dec (val $Signal))"},{"Add":" %64 = sub i32 %63, 1"},{"Add":" store i32 %64, i32* bitcast ([16 x i32]* @$Signal to i32*)"},{"Add":"; # (unless (val $PRepl) (wrnl) (rlSigBeg) (brkLoad (if Exe @ $Nil)) ..."},{"Add":"; # (val $PRepl)"},{"Add":" %65 = load i1, i1* @$PRepl"},{"Add":" br i1 %65, label %$19, label %$18"},{"Add":"$18:"},{"Add":" %66 = phi i32* [%61, %$17] ; # P"},{"Add":"; # (wrnl)"},{"Add":" %67 = call i64 @wrnl()"},{"Add":"; # (rlSigBeg)"},{"Add":" call void @rlSigBeg()"},{"Add":"; # (if Exe @ $Nil)"},{"Add":" %68 = icmp ne i64 %0, 0"},{"Add":" br i1 %68, label %$20, label %$21"},{"Add":"$20:"},{"Add":" %69 = phi i32* [%66, %$18] ; # P"},{"Add":" br label %$22"},{"Add":"$21:"},{"Add":" %70 = phi i32* [%66, %$18] ; # P"},{"Add":" br label %$22"},{"Add":"$22:"},{"Add":" %71 = phi i32* [%69, %$20], [%70, %$21] ; # P"},{"Add":" %72 = phi i64 [%0, %$20], [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), %$21] ; # ->"},{"Add":"; # (brkLoad (if Exe @ $Nil))"},{"Add":" %73 = call i64 @brkLoad(i64 %72)"},{"Add":"; # (rlSigEnd)"},{"Add":" call void @rlSigEnd()"},{"Add":" br label %$19"},{"Add":"$19:"},{"Add":" %74 = phi i32* [%61, %$17], [%71, %$22] ; # P"},{"Add":" br label %$5"},{"Add":"$16:"},{"Add":" %75 = phi i32* [%58, %$14] ; # P"},{"Add":"; # (ofs $Signal SIGWINCH)"},{"Add":" %76 = getelementptr i32, i32* bitcast ([16 x i32]* @$Signal to i32*), i32 14"},{"Add":"; # (val (setq P (ofs $Signal SIGWINCH)))"},{"Add":" %77 = load i32, i32* %76"},{"Add":" %78 = icmp ne i32 %77, 0"},{"Add":" br i1 %78, label %$24, label %$23"},{"Add":"$24:"},{"Add":" %79 = phi i32* [%76, %$16] ; # P"},{"Add":"; # (set P (dec @))"},{"Add":"; # (dec @)"},{"Add":" %80 = sub i32 %77, 1"},{"Add":" store i32 %80, i32* %79"},{"Add":"; # (set $Signal (dec (val $Signal)))"},{"Add":"; # (val $Signal)"},{"Add":" %81 = load i32, i32* bitcast ([16 x i32]* @$Signal to i32*)"},{"Add":"; # (dec (val $Signal))"},{"Add":" %82 = sub i32 %81, 1"},{"Add":" store i32 %82, i32* bitcast ([16 x i32]* @$Signal to i32*)"},{"Add":"; # (val $Winch)"},{"Add":" %83 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 664) to i64) to i64*"},{"Add":" %84 = load i64, i64* %83"},{"Add":"; # (execAt (val $Winch))"},{"Add":" %85 = call i64 @execAt(i64 %84)"},{"Add":" br label %$5"},{"Add":"$23:"},{"Add":" %86 = phi i32* [%76, %$16] ; # P"},{"Add":"; # (ofs $Signal SIGTSTP)"},{"Add":" %87 = getelementptr i32, i32* bitcast ([16 x i32]* @$Signal to i32*), i32 11"},{"Add":"; # (val (setq P (ofs $Signal SIGTSTP)))"},{"Add":" %88 = load i32, i32* %87"},{"Add":" %89 = icmp ne i32 %88, 0"},{"Add":" br i1 %89, label %$26, label %$25"},{"Add":"$26:"},{"Add":" %90 = phi i32* [%87, %$23] ; # P"},{"Add":"; # (set P (dec @))"},{"Add":"; # (dec @)"},{"Add":" %91 = sub i32 %88, 1"},{"Add":" store i32 %91, i32* %90"},{"Add":"; # (set $Signal (dec (val $Signal)))"},{"Add":"; # (val $Signal)"},{"Add":" %92 = load i32, i32* bitcast ([16 x i32]* @$Signal to i32*)"},{"Add":"; # (dec (val $Signal))"},{"Add":" %93 = sub i32 %92, 1"},{"Add":" store i32 %93, i32* bitcast ([16 x i32]* @$Signal to i32*)"},{"Add":"; # (rlSigBeg)"},{"Add":" call void @rlSigBeg()"},{"Add":"; # (val $TStp1)"},{"Add":" %94 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 680) to i64) to i64*"},{"Add":" %95 = load i64, i64* %94"},{"Add":"; # (execAt (val $TStp1))"},{"Add":" %96 = call i64 @execAt(i64 %95)"},{"Add":"; # (stopTerm)"},{"Add":" call void @stopTerm()"},{"Add":"; # (val SIGTSTP Sig)"},{"Add":" %97 = getelementptr i32, i32* @Sig, i32 10"},{"Add":" %98 = load i32, i32* %97"},{"Add":"; # (fun sig)"},{"Add":"; # (i8* (def (pico~pack \"@\" (pico~car cross~Args)) (func (; cross~Ar..."},{"Add":" %99 = bitcast void(i32)* @sig to i8*"},{"Add":"; # (iSignal (val SIGTSTP Sig) (fun sig))"},{"Add":" call void @iSignal(i32 %98, i8* %99)"},{"Add":"; # (val $TStp2)"},{"Add":" %100 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 696) to i64) to i64*"},{"Add":" %101 = load i64, i64* %100"},{"Add":"; # (execAt (val $TStp2))"},{"Add":" %102 = call i64 @execAt(i64 %101)"},{"Add":"; # (rlSigEnd)"},{"Add":" call void @rlSigEnd()"},{"Add":" br label %$5"},{"Add":"$25:"},{"Add":" %103 = phi i32* [%87, %$23] ; # P"},{"Add":"; # (ofs $Signal SIGTERM)"},{"Add":" %104 = getelementptr i32, i32* bitcast ([16 x i32]* @$Signal to i32*), i32 7"},{"Add":"; # (val (setq P (ofs $Signal SIGTERM)))"},{"Add":" %105 = load i32, i32* %104"},{"Add":" %106 = icmp ne i32 %105, 0"},{"Add":" br i1 %106, label %$28, label %$27"},{"Add":"$28:"},{"Add":" %107 = phi i32* [%104, %$25] ; # P"},{"Add":"; # (if (nil? (run (val $Term))) (let (Cld (val $Child) "},{"Add":" br label %$31"},{"Add":"$30:"},{"Add":" %126 = phi i64 [%114, %$29] ; # Prg"},{"Add":" %127 = and i64 %112, 15"},{"Add":" %128 = icmp eq i64 %127, 0"},{"Add":" br i1 %128, label %$39, label %$38"},{"Add":"$39:"},{"Add":" %129 = phi i64 [%126, %$30] ; # Prg"},{"Add":" %130 = call i64 @evList(i64 %112)"},{"Add":" %131 = icmp ne i64 %130, 0"},{"Add":" br label %$38"},{"Add":"$38:"},{"Add":" %132 = phi i64 [%126, %$30], [%129, %$39] ; # Prg"},{"Add":" %133 = phi i1 [0, %$30], [%131, %$39] ; # ->"},{"Add":" br label %$29"},{"Add":"$31:"},{"Add":" %134 = phi i64 [%117, %$33] ; # Prg"},{"Add":" %135 = phi i64 [%125, %$33] ; # ->"},{"Add":"; # (nil? (run (val $Term)))"},{"Add":" %136 = icmp eq i64 %135, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %136, label %$40, label %$41"},{"Add":"$40:"},{"Add":" %137 = phi i32* [%107, %$31] ; # P"},{"Add":"; # (let (Cld (val $Child) "},{"Add":" br i1 %163, label %$48, label %$49"},{"Add":"$48:"},{"Add":" %164 = phi i32* [%160, %$46] ; # P"},{"Add":" %165 = phi i8* [%161, %$46] ; # Cld"},{"Add":" %166 = phi i1 [%162, %$46] ; # Flg"},{"Add":" br label %$49"},{"Add":"$49:"},{"Add":" %167 = phi i32* [%160, %$46], [%164, %$48] ; # P"},{"Add":" %168 = phi i8* [%161, %$46], [%165, %$48] ; # Cld"},{"Add":" %169 = phi i1 [%162, %$46], [1, %$48] ; # Flg"},{"Add":"; # (ofs Cld (child T))"},{"Add":" %170 = getelementptr i8, i8* %168, i32 32"},{"Add":" br label %$43"},{"Add":"$45:"},{"Add":" %171 = phi i32* [%142, %$43] ; # P"},{"Add":" %172 = phi i8* [%143, %$43] ; # Cld"},{"Add":" %173 = phi i1 [%144, %$43] ; # Flg"},{"Add":"; # (? Flg)"},{"Add":" br i1 %173, label %$51, label %$50"},{"Add":"$50:"},{"Add":" %174 = phi i32* [%171, %$45] ; # P"},{"Add":" %175 = phi i8* [%172, %$45] ; # Cld"},{"Add":" %176 = phi i1 [%173, %$45] ; # Flg"},{"Add":"; # (set $Signal 0)"},{"Add":" store i32 0, i32* bitcast ([16 x i32]* @$Signal to i32*)"},{"Add":"; # (rlSigBeg)"},{"Add":" call void @rlSigBeg()"},{"Add":"; # (bye 0)"},{"Add":" call void @bye(i32 0)"},{"Add":" unreachable"},{"Add":"$41:"},{"Add":" %177 = phi i32* [%107, %$31] ; # P"},{"Add":"; # (set P (dec (val P)))"},{"Add":"; # (val P)"},{"Add":" %178 = load i32, i32* %177"},{"Add":"; # (dec (val P))"},{"Add":" %179 = sub i32 %178, 1"},{"Add":" store i32 %179, i32* %177"},{"Add":"; # (set $Signal (dec (val $Signal)))"},{"Add":"; # (val $Signal)"},{"Add":" %180 = load i32, i32* bitcast ([16 x i32]* @$Signal to i32*)"},{"Add":"; # (dec (val $Signal))"},{"Add":" %181 = sub i32 %180, 1"},{"Add":" store i32 %181, i32* bitcast ([16 x i32]* @$Signal to i32*)"},{"Add":" br label %$42"},{"Add":"$42:"},{"Add":" %182 = phi i32* [%177, %$41] ; # P"},{"Add":" %183 = phi i32 [%181, %$41] ; # ->"},{"Add":" br label %$5"},{"Add":"$27:"},{"Add":" %184 = phi i32* [%104, %$25] ; # P"},{"Add":" br label %$5"},{"Add":"$5:"},{"Add":" %185 = phi i32* [%6, %$7], [%17, %$9], [%28, %$11], [%39, %$13], [%50, %$15], [%74, %$19], [%79, %$24], [%90, %$26], [%182, %$42], [%184, %$27] ; # P"},{"Add":"; # (? (=0 (val $Signal)))"},{"Add":"; # (val $Signal)"},{"Add":" %186 = load i32, i32* bitcast ([16 x i32]* @$Signal to i32*)"},{"Add":"; # (=0 (val $Signal))"},{"Add":" %187 = icmp eq i32 %186, 0"},{"Add":" br i1 %187, label %$51, label %$52"},{"Add":"$52:"},{"Add":" %188 = phi i32* [%185, %$5] ; # P"},{"Add":" br label %$4"},{"Add":"$51:"},{"Add":" %189 = phi i32* [%171, %$45], [%185, %$5] ; # P"},{"Add":" %190 = phi i64 [0, %$45], [0, %$5] ; # ->"},{"Add":"; # (set $Protect 0)"},{"Add":" store i32 0, i32* bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 152) to i32*)"},{"Add":" br label %$3"},{"Add":"$3:"},{"Add":" ret void"},{"Add":"}"},{"Add":""},{"Add":"define void @err(i64, i64, i8*, i8*) align 8 {"},{"Add":"$1:"},{"Add":"; # (set $Up (if Exe @ $Nil))"},{"Add":"; # (if Exe @ $Nil)"},{"Add":" %4 = icmp ne i64 %0, 0"},{"Add":" br i1 %4, label %$2, label %$3"},{"Add":"$2:"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %5 = phi i64 [%0, %$2], [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), %$3] ; # ->"},{"Add":" %6 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 728) to i64) to i64*"},{"Add":" store i64 %5, i64* %6"},{"Add":"; # (when X (link (push X NIL)))"},{"Add":" %7 = icmp ne i64 %1, 0"},{"Add":" br i1 %7, label %$5, label %$6"},{"Add":"$5:"},{"Add":"; # (push X NIL)"},{"Add":" %8 = alloca i64, i64 2, align 16"},{"Add":" %9 = ptrtoint i64* %8 to i64"},{"Add":" %10 = inttoptr i64 %9 to i64*"},{"Add":" store i64 %1, i64* %10"},{"Add":"; # (link (push X NIL))"},{"Add":" %11 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %12 = load i64, i64* %11"},{"Add":" %13 = inttoptr i64 %9 to i64*"},{"Add":" %14 = getelementptr i64, i64* %13, i32 1"},{"Add":" store i64 %12, i64* %14"},{"Add":" %15 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %9, i64* %15"},{"Add":" br label %$6"},{"Add":"$6:"},{"Add":"; # (let Msg (b8 240) (gPrintf Msg 240 Fmt Arg) (when (val Msg) (set ..."},{"Add":"; # (b8 240)"},{"Add":" %16 = alloca i8, i64 240"},{"Add":"; # (gPrintf Msg 240 Fmt Arg)"},{"Add":" call void @gPrintf(i8* %16, i32 240, i8* %2, i8* %3)"},{"Add":"; # (when (val Msg) (set $Msg (mkStr Msg)) (let Ca (val $Catch) (whil..."},{"Add":"; # (val Msg)"},{"Add":" %17 = load i8, i8* %16"},{"Add":" %18 = icmp ne i8 %17, 0"},{"Add":" br i1 %18, label %$7, label %$8"},{"Add":"$7:"},{"Add":"; # (set $Msg (mkStr Msg))"},{"Add":"; # (mkStr Msg)"},{"Add":" %19 = call i64 @mkStr(i8* %16)"},{"Add":" %20 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 760) to i64) to i64*"},{"Add":" store i64 %19, i64* %20"},{"Add":"; # (let Ca (val $Catch) (while Ca (let Ca: (caFrame Ca) (let Tag (Ca..."},{"Add":"; # (val $Catch)"},{"Add":" %21 = load i8*, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 24) to i8**)"},{"Add":"; # (while Ca (let Ca: (caFrame Ca) (let Tag (Ca: tag) (when Tag (whi..."},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %22 = phi i8* [%21, %$7], [%68, %$13] ; # Ca"},{"Add":" %23 = icmp ne i8* %22, null"},{"Add":" br i1 %23, label %$10, label %$11"},{"Add":"$10:"},{"Add":" %24 = phi i8* [%22, %$9] ; # Ca"},{"Add":"; # (let Ca: (caFrame Ca) (let Tag (Ca: tag) (when Tag (while (pair T..."},{"Add":"; # (let Tag (Ca: tag) (when Tag (while (pair Tag) (when (subStr (car..."},{"Add":"; # (Ca: tag)"},{"Add":" %25 = getelementptr i8, i8* %24, i32 8"},{"Add":" %26 = ptrtoint i8* %25 to i64"},{"Add":" %27 = inttoptr i64 %26 to i64*"},{"Add":" %28 = load i64, i64* %27"},{"Add":"; # (when Tag (while (pair Tag) (when (subStr (car Tag) (val $Msg)) (..."},{"Add":" %29 = icmp ne i64 %28, 0"},{"Add":" br i1 %29, label %$12, label %$13"},{"Add":"$12:"},{"Add":" %30 = phi i8* [%24, %$10] ; # Ca"},{"Add":" %31 = phi i64 [%28, %$10] ; # Tag"},{"Add":"; # (while (pair Tag) (when (subStr (car Tag) (val $Msg)) (unwind (Ca..."},{"Add":" br label %$14"},{"Add":"$14:"},{"Add":" %32 = phi i8* [%30, %$12], [%58, %$18] ; # Ca"},{"Add":" %33 = phi i64 [%31, %$12], [%62, %$18] ; # Tag"},{"Add":"; # (pair Tag)"},{"Add":" %34 = and i64 %33, 15"},{"Add":" %35 = icmp eq i64 %34, 0"},{"Add":" br i1 %35, label %$15, label %$16"},{"Add":"$15:"},{"Add":" %36 = phi i8* [%32, %$14] ; # Ca"},{"Add":" %37 = phi i64 [%33, %$14] ; # Tag"},{"Add":"; # (when (subStr (car Tag) (val $Msg)) (unwind (Ca:)) (set $Ret (if ..."},{"Add":"; # (car Tag)"},{"Add":" %38 = inttoptr i64 %37 to i64*"},{"Add":" %39 = load i64, i64* %38"},{"Add":"; # (val $Msg)"},{"Add":" %40 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 760) to i64) to i64*"},{"Add":" %41 = load i64, i64* %40"},{"Add":"; # (subStr (car Tag) (val $Msg))"},{"Add":" %42 = call i1 @subStr(i64 %39, i64 %41)"},{"Add":" br i1 %42, label %$17, label %$18"},{"Add":"$17:"},{"Add":" %43 = phi i8* [%36, %$15] ; # Ca"},{"Add":" %44 = phi i64 [%37, %$15] ; # Tag"},{"Add":"; # (Ca:)"},{"Add":"; # (unwind (Ca:))"},{"Add":" call void @unwind(i8* %24)"},{"Add":"; # (set $Ret (if (nil? (car Tag)) (val $Msg) @))"},{"Add":"; # (if (nil? (car Tag)) (val $Msg) @)"},{"Add":"; # (car Tag)"},{"Add":" %45 = inttoptr i64 %44 to i64*"},{"Add":" %46 = load i64, i64* %45"},{"Add":"; # (nil? (car Tag))"},{"Add":" %47 = icmp eq i64 %46, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %47, label %$19, label %$20"},{"Add":"$19:"},{"Add":" %48 = phi i8* [%43, %$17] ; # Ca"},{"Add":" %49 = phi i64 [%44, %$17] ; # Tag"},{"Add":"; # (val $Msg)"},{"Add":" %50 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 760) to i64) to i64*"},{"Add":" %51 = load i64, i64* %50"},{"Add":" br label %$21"},{"Add":"$20:"},{"Add":" %52 = phi i8* [%43, %$17] ; # Ca"},{"Add":" %53 = phi i64 [%44, %$17] ; # Tag"},{"Add":" br label %$21"},{"Add":"$21:"},{"Add":" %54 = phi i8* [%48, %$19], [%52, %$20] ; # Ca"},{"Add":" %55 = phi i64 [%49, %$19], [%53, %$20] ; # Tag"},{"Add":" %56 = phi i64 [%51, %$19], [%46, %$20] ; # ->"},{"Add":" store i64 %56, i64* @$Ret"},{"Add":"; # (Ca: (rst))"},{"Add":" %57 = getelementptr i8, i8* %24, i32 240"},{"Add":"; # (longjmp (Ca: (rst)) 1)"},{"Add":" call void @longjmp(i8* %57, i32 1)"},{"Add":" unreachable"},{"Add":"$18:"},{"Add":" %58 = phi i8* [%36, %$15] ; # Ca"},{"Add":" %59 = phi i64 [%37, %$15] ; # Tag"},{"Add":"; # (shift Tag)"},{"Add":" %60 = inttoptr i64 %59 to i64*"},{"Add":" %61 = getelementptr i64, i64* %60, i32 1"},{"Add":" %62 = load i64, i64* %61"},{"Add":" br label %$14"},{"Add":"$16:"},{"Add":" %63 = phi i8* [%32, %$14] ; # Ca"},{"Add":" %64 = phi i64 [%33, %$14] ; # Tag"},{"Add":" br label %$13"},{"Add":"$13:"},{"Add":" %65 = phi i8* [%24, %$10], [%63, %$16] ; # Ca"},{"Add":" %66 = phi i64 [%28, %$10], [%64, %$16] ; # Tag"},{"Add":"; # (Ca: link)"},{"Add":" %67 = bitcast i8* %24 to i8**"},{"Add":" %68 = load i8*, i8** %67"},{"Add":" br label %$9"},{"Add":"$11:"},{"Add":" %69 = phi i8* [%22, %$9] ; # Ca"},{"Add":" br label %$8"},{"Add":"$8:"},{"Add":"; # (flushAll)"},{"Add":" call void @flushAll()"},{"Add":"; # (set $Chr (set $ExtN 0))"},{"Add":"; # (set $ExtN 0)"},{"Add":" store i32 0, i32* @$ExtN"},{"Add":" store i32 0, i32* bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 64) to i32*)"},{"Add":"; # (set $Break 0)"},{"Add":" %70 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 16) to i64) to i64*"},{"Add":" store i64 0, i64* %70"},{"Add":"; # (set $LinePtr null)"},{"Add":" store i8* null, i8** @$LinePtr"},{"Add":"; # (set $Alarm (set $Sigio $Nil))"},{"Add":"; # (set $Sigio $Nil)"},{"Add":" %71 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([53 x i64]* @gcData to i8*), i32 32) to i64) to i64*"},{"Add":" store i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), i64* %71"},{"Add":" %72 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([53 x i64]* @gcData to i8*), i32 24) to i64) to i64*"},{"Add":" store i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), i64* %72"},{"Add":"; # (b8+ (ioFrame T))"},{"Add":" %73 = alloca i8, i64 28, align 8"},{"Add":"; # (val $OutFiles)"},{"Add":" %74 = load i8**, i8*** @$OutFiles"},{"Add":"; # (val 3 (val $OutFiles))"},{"Add":" %75 = getelementptr i8*, i8** %74, i32 2"},{"Add":" %76 = load i8*, i8** %75"},{"Add":"; # (pushOutFile (b8+ (ioFrame T)) (val 3 (val $OutFiles)) 0)"},{"Add":" call void @pushOutFile(i8* %73, i8* %76, i32 0)"},{"Add":"; # (let In: (inFile (val $InFile)) (when (and (In:) (In: name)) (cal..."},{"Add":"; # (val $InFile)"},{"Add":" %77 = load i8*, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 72) to i8**)"},{"Add":"; # (when (and (In:) (In: name)) (call $Put (char \"[\")) (outString (I..."},{"Add":"; # (and (In:) (In: name))"},{"Add":"; # (In:)"},{"Add":" %78 = icmp ne i8* %77, null"},{"Add":" br i1 %78, label %$23, label %$22"},{"Add":"$23:"},{"Add":"; # (In: name)"},{"Add":" %79 = bitcast i8* %77 to i8**"},{"Add":" %80 = load i8*, i8** %79"},{"Add":" %81 = icmp ne i8* %80, null"},{"Add":" br label %$22"},{"Add":"$22:"},{"Add":" %82 = phi i1 [0, %$8], [%81, %$23] ; # ->"},{"Add":" br i1 %82, label %$24, label %$25"},{"Add":"$24:"},{"Add":"; # (call $Put (char \"[\"))"},{"Add":" %83 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %83(i8 91)"},{"Add":"; # (In: name)"},{"Add":" %84 = bitcast i8* %77 to i8**"},{"Add":" %85 = load i8*, i8** %84"},{"Add":"; # (outString (In: name))"},{"Add":" call void @outString(i8* %85)"},{"Add":"; # (call $Put (char \":\"))"},{"Add":" %86 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %86(i8 58)"},{"Add":"; # (In: src)"},{"Add":" %87 = getelementptr i8, i8* %77, i32 20"},{"Add":" %88 = bitcast i8* %87 to i32*"},{"Add":" %89 = load i32, i32* %88"},{"Add":"; # (i64 (In: src))"},{"Add":" %90 = sext i32 %89 to i64"},{"Add":"; # (outWord (i64 (In: src)))"},{"Add":" call void @outWord(i64 %90)"},{"Add":"; # (call $Put (char \"]\"))"},{"Add":" %91 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %91(i8 93)"},{"Add":"; # (space)"},{"Add":" call void @space()"},{"Add":" br label %$25"},{"Add":"$25:"},{"Add":"; # (when Exe (outString ($ \"!? \")) (print Exe) (newline))"},{"Add":" %92 = icmp ne i64 %0, 0"},{"Add":" br i1 %92, label %$26, label %$27"},{"Add":"$26:"},{"Add":"; # (outString ($ \"!? \"))"},{"Add":" call void @outString(i8* bitcast ([4 x i8]* @$5 to i8*))"},{"Add":"; # (print Exe)"},{"Add":" call void @print(i64 %0)"},{"Add":"; # (newline)"},{"Add":" call void @newline()"},{"Add":" br label %$27"},{"Add":"$27:"},{"Add":"; # (when X (print X) (outString ($ \" -- \")))"},{"Add":" %93 = icmp ne i64 %1, 0"},{"Add":" br i1 %93, label %$28, label %$29"},{"Add":"$28:"},{"Add":"; # (print X)"},{"Add":" call void @print(i64 %1)"},{"Add":"; # (outString ($ \" -- \"))"},{"Add":" call void @outString(i8* bitcast ([5 x i8]* @$6 to i8*))"},{"Add":" br label %$29"},{"Add":"$29:"},{"Add":"; # (when (val Msg) (outString Msg) (newline) (unless (or (nil? (val ..."},{"Add":"; # (val Msg)"},{"Add":" %94 = load i8, i8* %16"},{"Add":" %95 = icmp ne i8 %94, 0"},{"Add":" br i1 %95, label %$30, label %$31"},{"Add":"$30:"},{"Add":"; # (outString Msg)"},{"Add":" call void @outString(i8* %16)"},{"Add":"; # (newline)"},{"Add":" call void @newline()"},{"Add":"; # (unless (or (nil? (val $Err)) (val $Jam)) (set $Jam YES) (execAt ..."},{"Add":"; # (or (nil? (val $Err)) (val $Jam))"},{"Add":"; # (val $Err)"},{"Add":" %96 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 744) to i64) to i64*"},{"Add":" %97 = load i64, i64* %96"},{"Add":"; # (nil? (val $Err))"},{"Add":" %98 = icmp eq i64 %97, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %98, label %$32, label %$33"},{"Add":"$33:"},{"Add":"; # (val $Jam)"},{"Add":" %99 = load i1, i1* @$Jam"},{"Add":" br label %$32"},{"Add":"$32:"},{"Add":" %100 = phi i1 [1, %$30], [%99, %$33] ; # ->"},{"Add":" br i1 %100, label %$35, label %$34"},{"Add":"$34:"},{"Add":"; # (set $Jam YES)"},{"Add":" store i1 1, i1* @$Jam"},{"Add":"; # (val $Err)"},{"Add":" %101 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 744) to i64) to i64*"},{"Add":" %102 = load i64, i64* %101"},{"Add":"; # (execAt (val $Err))"},{"Add":" %103 = call i64 @execAt(i64 %102)"},{"Add":"; # (set $Jam NO)"},{"Add":" store i1 0, i1* @$Jam"},{"Add":" br label %$35"},{"Add":"$35:"},{"Add":"; # (unless (and ((inFile (val (val $InFiles))) tty) ((outFile (val 2..."},{"Add":"; # (and ((inFile (val (val $InFiles))) tty) ((outFile (val 2 (val $O..."},{"Add":"; # (val $InFiles)"},{"Add":" %104 = load i8**, i8*** @$InFiles"},{"Add":"; # (val (val $InFiles))"},{"Add":" %105 = load i8*, i8** %104"},{"Add":"; # ((inFile (val (val $InFiles))) tty)"},{"Add":" %106 = getelementptr i8, i8* %105, i32 4128"},{"Add":" %107 = bitcast i8* %106 to i1*"},{"Add":" %108 = load i1, i1* %107"},{"Add":" br i1 %108, label %$37, label %$36"},{"Add":"$37:"},{"Add":"; # (val $OutFiles)"},{"Add":" %109 = load i8**, i8*** @$OutFiles"},{"Add":"; # (val 2 (val $OutFiles))"},{"Add":" %110 = getelementptr i8*, i8** %109, i32 1"},{"Add":" %111 = load i8*, i8** %110"},{"Add":"; # ((outFile (val 2 (val $OutFiles))) tty)"},{"Add":" %112 = getelementptr i8, i8* %111, i32 4104"},{"Add":" %113 = bitcast i8* %112 to i1*"},{"Add":" %114 = load i1, i1* %113"},{"Add":" br label %$36"},{"Add":"$36:"},{"Add":" %115 = phi i1 [0, %$35], [%114, %$37] ; # ->"},{"Add":" br i1 %115, label %$39, label %$38"},{"Add":"$38:"},{"Add":"; # (bye 1)"},{"Add":" call void @bye(i32 1)"},{"Add":" unreachable"},{"Add":"$39:"},{"Add":"; # (repl 0 ($ \"? \") $Nil)"},{"Add":" %116 = call i64 @repl(i64 0, i8* bitcast ([3 x i8]* @$7 to i8*), i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64))"},{"Add":" br label %$31"},{"Add":"$31:"},{"Add":"; # (unless (val $StkLimit) (giveup ($ \"No stack\")))"},{"Add":"; # (val $StkLimit)"},{"Add":" %117 = load i8*, i8** @$StkLimit"},{"Add":" %118 = icmp ne i8* %117, null"},{"Add":" br i1 %118, label %$41, label %$40"},{"Add":"$40:"},{"Add":"; # (giveup ($ \"No stack\"))"},{"Add":" call void @giveup(i8* bitcast ([9 x i8]* @$8 to i8*))"},{"Add":" unreachable"},{"Add":"$41:"},{"Add":"; # (unwind null)"},{"Add":" call void @unwind(i8* null)"},{"Add":"; # (set $Link 0 $Protect 0 $Next $Nil $Make 0 $Yoke 0 $Trace 0 $Put ..."},{"Add":" %119 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 0, i64* %119"},{"Add":" store i32 0, i32* bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 152) to i32*)"},{"Add":" %120 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 112) to i64) to i64*"},{"Add":" store i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), i64* %120"},{"Add":" %121 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 136) to i64) to i64*"},{"Add":" store i64 0, i64* %121"},{"Add":" %122 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 144) to i64) to i64*"},{"Add":" store i64 0, i64* %122"},{"Add":" store i32 0, i32* bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 160) to i32*)"},{"Add":"; # (fun (void i8) _putStdout)"},{"Add":" store void(i8)* @_putStdout, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":"; # (fun (i32) _getStdin)"},{"Add":" store i32()* @_getStdin, i32()** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 96) to i32()**)"},{"Add":"; # (longjmp QuitRst 1)"},{"Add":" call void @longjmp(i8* @QuitRst, i32 1)"},{"Add":" unreachable"},{"Add":"}"},{"Add":""},{"Add":"define void @stkErr(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (set $StkLimit null)"},{"Add":" store i8* null, i8** @$StkLimit"},{"Add":"; # (if (val $Current) ((coroutine @) tag) 0)"},{"Add":"; # (val $Current)"},{"Add":" %1 = load i8*, i8** @$Current"},{"Add":" %2 = icmp ne i8* %1, null"},{"Add":" br i1 %2, label %$2, label %$3"},{"Add":"$2:"},{"Add":"; # ((coroutine @) tag)"},{"Add":" %3 = ptrtoint i8* %1 to i64"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %6 = phi i64 [%5, %$2], [0, %$3] ; # ->"},{"Add":"; # (err Exe (if (val $Current) ((coroutine @) tag) 0) ($ \"Stack over..."},{"Add":" call void @err(i64 %0, i64 %6, i8* bitcast ([15 x i8]* @$9 to i8*), i8* null)"},{"Add":" unreachable"},{"Add":"}"},{"Add":""},{"Add":"define void @argErr(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (err Exe X ($ \"Bad argument\") null)"},{"Add":" call void @err(i64 %0, i64 %1, i8* bitcast ([13 x i8]* @$10 to i8*), i8* null)"},{"Add":" unreachable"},{"Add":"}"},{"Add":""},{"Add":"define void @cntErr(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (err Exe X ($ \"Small number expected\") null)"},{"Add":" call void @err(i64 %0, i64 %1, i8* bitcast ([22 x i8]* @$11 to i8*), i8* null)"},{"Add":" unreachable"},{"Add":"}"},{"Add":""},{"Add":"define void @numErr(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (err Exe X ($ \"Number expected\") null)"},{"Add":" call void @err(i64 %0, i64 %1, i8* bitcast ([16 x i8]* @$12 to i8*), i8* null)"},{"Add":" unreachable"},{"Add":"}"},{"Add":""},{"Add":"define void @symErr(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (err Exe X ($ \"Symbol expected\") null)"},{"Add":" call void @err(i64 %0, i64 %1, i8* bitcast ([16 x i8]* @$13 to i8*), i8* null)"},{"Add":" unreachable"},{"Add":"}"},{"Add":""},{"Add":"define void @charErr(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (err Exe X ($ \"Char expected\") null)"},{"Add":" call void @err(i64 %0, i64 %1, i8* bitcast ([14 x i8]* @$14 to i8*), i8* null)"},{"Add":" unreachable"},{"Add":"}"},{"Add":""},{"Add":"define void @extErr(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (err Exe X ($ \"External symbol expected\") null)"},{"Add":" call void @err(i64 %0, i64 %1, i8* bitcast ([25 x i8]* @$15 to i8*), i8* null)"},{"Add":" unreachable"},{"Add":"}"},{"Add":""},{"Add":"define void @atomErr(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (err Exe X ($ \"Atom expected\") null)"},{"Add":" call void @err(i64 %0, i64 %1, i8* bitcast ([14 x i8]* @$16 to i8*), i8* null)"},{"Add":" unreachable"},{"Add":"}"},{"Add":""},{"Add":"define void @pairErr(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (err Exe X ($ \"Cons pair expected\") null)"},{"Add":" call void @err(i64 %0, i64 %1, i8* bitcast ([19 x i8]* @$17 to i8*), i8* null)"},{"Add":" unreachable"},{"Add":"}"},{"Add":""},{"Add":"define void @lstErr(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (err Exe X ($ \"List expected\") null)"},{"Add":" call void @err(i64 %0, i64 %1, i8* bitcast ([14 x i8]* @$18 to i8*), i8* null)"},{"Add":" unreachable"},{"Add":"}"},{"Add":""},{"Add":"define void @varErr(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (err Exe X ($ \"Variable expected\") null)"},{"Add":" call void @err(i64 %0, i64 %1, i8* bitcast ([18 x i8]* @$19 to i8*), i8* null)"},{"Add":" unreachable"},{"Add":"}"},{"Add":""},{"Add":"define void @itemErr(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (err Exe X ($ \"Item not found\") null)"},{"Add":" call void @err(i64 %0, i64 %1, i8* bitcast ([15 x i8]* @$20 to i8*), i8* null)"},{"Add":" unreachable"},{"Add":"}"},{"Add":""},{"Add":"define void @protErr(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (err Exe X ($ \"Protected\") null)"},{"Add":" call void @err(i64 %0, i64 %1, i8* bitcast ([10 x i8]* @$21 to i8*), i8* null)"},{"Add":" unreachable"},{"Add":"}"},{"Add":""},{"Add":"define void @lockErr() align 8 {"},{"Add":"$1:"},{"Add":"; # (strErrno)"},{"Add":" %0 = call i8* @strErrno()"},{"Add":"; # (err 0 0 ($ \"File lock: %s\") (strErrno))"},{"Add":" call void @err(i64 0, i64 0, i8* bitcast ([14 x i8]* @$22 to i8*), i8* %0)"},{"Add":" unreachable"},{"Add":"}"},{"Add":""},{"Add":"define void @forkErr(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (err Exe 0 ($ \"Can't fork\") null)"},{"Add":" call void @err(i64 %0, i64 0, i8* bitcast ([11 x i8]* @$23 to i8*), i8* null)"},{"Add":" unreachable"},{"Add":"}"},{"Add":""},{"Add":"define void @symNspErr(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (err Exe X ($ \"Bad symbol namespace\") null)"},{"Add":" call void @err(i64 %0, i64 %1, i8* bitcast ([21 x i8]* @$24 to i8*), i8* null)"},{"Add":" unreachable"},{"Add":"}"},{"Add":""},{"Add":"define i64 @xCnt(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let N (int (needCnt Exe X)) (if (sign? X) (- N) N))"},{"Add":"; # (needCnt Exe X)"},{"Add":" %2 = and i64 %1, 2"},{"Add":" %3 = icmp ne i64 %2, 0"},{"Add":" br i1 %3, label %$3, label %$2"},{"Add":"$2:"},{"Add":" call void @cntErr(i64 %0, i64 %1)"},{"Add":" unreachable"},{"Add":"$3:"},{"Add":"; # (int (needCnt Exe X))"},{"Add":" %4 = lshr i64 %1, 4"},{"Add":"; # (if (sign? X) (- N) N)"},{"Add":"; # (sign? X)"},{"Add":" %5 = and i64 %1, 8"},{"Add":" %6 = icmp ne i64 %5, 0"},{"Add":" br i1 %6, label %$4, label %$5"},{"Add":"$4:"},{"Add":"; # (- N)"},{"Add":" %7 = sub i64 0, %4"},{"Add":" br label %$6"},{"Add":"$5:"},{"Add":" br label %$6"},{"Add":"$6:"},{"Add":" %8 = phi i64 [%7, %$4], [%4, %$5] ; # ->"},{"Add":" ret i64 %8"},{"Add":"}"},{"Add":""},{"Add":"define i64 @evCnt(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (car X)"},{"Add":" %2 = inttoptr i64 %1 to i64*"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (eval (car X))"},{"Add":" %4 = and i64 %3, 6"},{"Add":" %5 = icmp ne i64 %4, 0"},{"Add":" br i1 %5, label %$4, label %$3"},{"Add":"$4:"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %6 = and i64 %3, 8"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %8 = inttoptr i64 %3 to i64*"},{"Add":" %9 = load i64, i64* %8"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":" %10 = call i64 @evList(i64 %3)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %11 = phi i64 [%3, %$4], [%9, %$6], [%10, %$5] ; # ->"},{"Add":"; # (xCnt Exe (eval (car X)))"},{"Add":" %12 = call i64 @xCnt(i64 %0, i64 %11)"},{"Add":" ret i64 %12"},{"Add":"}"},{"Add":""},{"Add":"define i64 @evLst(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let X (eval (car Exe)) (unless (or (pair X) (nil? X)) (lstErr Ex..."},{"Add":"; # (car Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = load i64, i64* %1"},{"Add":"; # (eval (car Exe))"},{"Add":" %3 = and i64 %2, 6"},{"Add":" %4 = icmp ne i64 %3, 0"},{"Add":" br i1 %4, label %$4, label %$3"},{"Add":"$4:"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %5 = and i64 %2, 8"},{"Add":" %6 = icmp ne i64 %5, 0"},{"Add":" br i1 %6, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %7 = inttoptr i64 %2 to i64*"},{"Add":" %8 = load i64, i64* %7"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":" %9 = call i64 @evList(i64 %2)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %10 = phi i64 [%2, %$4], [%8, %$6], [%9, %$5] ; # ->"},{"Add":"; # (unless (or (pair X) (nil? X)) (lstErr Exe X))"},{"Add":"; # (or (pair X) (nil? X))"},{"Add":"; # (pair X)"},{"Add":" %11 = and i64 %10, 15"},{"Add":" %12 = icmp eq i64 %11, 0"},{"Add":" br i1 %12, label %$7, label %$8"},{"Add":"$8:"},{"Add":"; # (nil? X)"},{"Add":" %13 = icmp eq i64 %10, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %14 = phi i1 [1, %$2], [%13, %$8] ; # ->"},{"Add":" br i1 %14, label %$10, label %$9"},{"Add":"$9:"},{"Add":"; # (lstErr Exe X)"},{"Add":" call void @lstErr(i64 %0, i64 %10)"},{"Add":" unreachable"},{"Add":"$10:"},{"Add":" ret i64 %10"},{"Add":"}"},{"Add":""},{"Add":"define i64 @xSym(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (if (symb? X) X (let P (push 4 NIL ZERO NIL) (link (ofs P 2) T) (..."},{"Add":"; # (symb? X)"},{"Add":" %1 = xor i64 %0, 8"},{"Add":" %2 = and i64 %1, 14"},{"Add":" %3 = icmp eq i64 %2, 0"},{"Add":" br i1 %3, label %$2, label %$3"},{"Add":"$2:"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":"; # (let P (push 4 NIL ZERO NIL) (link (ofs P 2) T) (pack X P) (consS..."},{"Add":"; # (push 4 NIL ZERO NIL)"},{"Add":" %4 = alloca i64, i64 4, align 16"},{"Add":" store i64 4, i64* %4"},{"Add":" %5 = getelementptr i64, i64* %4, i32 2"},{"Add":" store i64 2, i64* %5"},{"Add":"; # (ofs P 2)"},{"Add":" %6 = getelementptr i64, i64* %4, i32 2"},{"Add":"; # (link (ofs P 2) T)"},{"Add":" %7 = ptrtoint i64* %6 to i64"},{"Add":" %8 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %9 = load i64, i64* %8"},{"Add":" %10 = inttoptr i64 %7 to i64*"},{"Add":" %11 = getelementptr i64, i64* %10, i32 1"},{"Add":" store i64 %9, i64* %11"},{"Add":" %12 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %7, i64* %12"},{"Add":"; # (pack X P)"},{"Add":" call void @pack(i64 %0, i64* %4)"},{"Add":"; # (val 3 P)"},{"Add":" %13 = getelementptr i64, i64* %4, i32 2"},{"Add":" %14 = load i64, i64* %13"},{"Add":"; # (consStr (val 3 P))"},{"Add":" %15 = call i64 @consStr(i64 %14)"},{"Add":"; # (drop *Safe)"},{"Add":" %16 = inttoptr i64 %7 to i64*"},{"Add":" %17 = getelementptr i64, i64* %16, i32 1"},{"Add":" %18 = load i64, i64* %17"},{"Add":" %19 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %18, i64* %19"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %20 = phi i64 [%0, %$2], [%15, %$3] ; # ->"},{"Add":" ret i64 %20"},{"Add":"}"},{"Add":""},{"Add":"define i64 @evSym(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (car Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = load i64, i64* %1"},{"Add":"; # (eval (car Exe))"},{"Add":" %3 = and i64 %2, 6"},{"Add":" %4 = icmp ne i64 %3, 0"},{"Add":" br i1 %4, label %$4, label %$3"},{"Add":"$4:"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %5 = and i64 %2, 8"},{"Add":" %6 = icmp ne i64 %5, 0"},{"Add":" br i1 %6, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %7 = inttoptr i64 %2 to i64*"},{"Add":" %8 = load i64, i64* %7"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":" %9 = call i64 @evList(i64 %2)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %10 = phi i64 [%2, %$4], [%8, %$6], [%9, %$5] ; # ->"},{"Add":"; # (xSym (eval (car Exe)))"},{"Add":" %11 = call i64 @xSym(i64 %10)"},{"Add":" ret i64 %11"},{"Add":"}"},{"Add":""},{"Add":"define i64 @xName(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (cond ((nil? Sym) ZERO) ((sym? (val (tail Sym))) (let P (push 4 N..."},{"Add":"; # (nil? Sym)"},{"Add":" %2 = icmp eq i64 %1, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %2, label %$4, label %$3"},{"Add":"$4:"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":"; # (tail Sym)"},{"Add":" %3 = add i64 %1, -8"},{"Add":"; # (val (tail Sym))"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":"; # (sym? (val (tail Sym)))"},{"Add":" %6 = and i64 %5, 8"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$6, label %$5"},{"Add":"$6:"},{"Add":"; # (let P (push 4 NIL ZERO NIL) (link (ofs P 2) T) (packExtNm (name ..."},{"Add":"; # (push 4 NIL ZERO NIL)"},{"Add":" %8 = alloca i64, i64 4, align 16"},{"Add":" store i64 4, i64* %8"},{"Add":" %9 = getelementptr i64, i64* %8, i32 2"},{"Add":" store i64 2, i64* %9"},{"Add":"; # (ofs P 2)"},{"Add":" %10 = getelementptr i64, i64* %8, i32 2"},{"Add":"; # (link (ofs P 2) T)"},{"Add":" %11 = ptrtoint i64* %10 to i64"},{"Add":" %12 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %13 = load i64, i64* %12"},{"Add":" %14 = inttoptr i64 %11 to i64*"},{"Add":" %15 = getelementptr i64, i64* %14, i32 1"},{"Add":" store i64 %13, i64* %15"},{"Add":" %16 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %11, i64* %16"},{"Add":"; # (& @ -9)"},{"Add":" %17 = and i64 %5, -9"},{"Add":"; # (name (& @ -9))"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %18 = phi i64 [%17, %$6], [%24, %$8] ; # Tail"},{"Add":" %19 = and i64 %18, 6"},{"Add":" %20 = icmp ne i64 %19, 0"},{"Add":" br i1 %20, label %$9, label %$8"},{"Add":"$8:"},{"Add":" %21 = phi i64 [%18, %$7] ; # Tail"},{"Add":" %22 = inttoptr i64 %21 to i64*"},{"Add":" %23 = getelementptr i64, i64* %22, i32 1"},{"Add":" %24 = load i64, i64* %23"},{"Add":" br label %$7"},{"Add":"$9:"},{"Add":" %25 = phi i64 [%18, %$7] ; # Tail"},{"Add":"; # (packExtNm (name (& @ -9)) P)"},{"Add":" call void @packExtNm(i64 %25, i64* %8)"},{"Add":"; # (val 3 P)"},{"Add":" %26 = getelementptr i64, i64* %8, i32 2"},{"Add":" %27 = load i64, i64* %26"},{"Add":"; # (drop *Safe)"},{"Add":" %28 = inttoptr i64 %11 to i64*"},{"Add":" %29 = getelementptr i64, i64* %28, i32 1"},{"Add":" %30 = load i64, i64* %29"},{"Add":" %31 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %30, i64* %31"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":"; # (name @)"},{"Add":" br label %$10"},{"Add":"$10:"},{"Add":" %32 = phi i64 [%5, %$5], [%38, %$11] ; # Tail"},{"Add":" %33 = and i64 %32, 6"},{"Add":" %34 = icmp ne i64 %33, 0"},{"Add":" br i1 %34, label %$12, label %$11"},{"Add":"$11:"},{"Add":" %35 = phi i64 [%32, %$10] ; # Tail"},{"Add":" %36 = inttoptr i64 %35 to i64*"},{"Add":" %37 = getelementptr i64, i64* %36, i32 1"},{"Add":" %38 = load i64, i64* %37"},{"Add":" br label %$10"},{"Add":"$12:"},{"Add":" %39 = phi i64 [%32, %$10] ; # Tail"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %40 = phi i64 [2, %$4], [%27, %$9], [%39, %$12] ; # ->"},{"Add":" ret i64 %40"},{"Add":"}"},{"Add":""},{"Add":"define i64 @circ(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (if (atom X) 0 (let Y X (loop (set Y (| (val Y) 1)) (? (atom (shi..."},{"Add":"; # (atom X)"},{"Add":" %1 = and i64 %0, 15"},{"Add":" %2 = icmp ne i64 %1, 0"},{"Add":" br i1 %2, label %$2, label %$3"},{"Add":"$2:"},{"Add":" %3 = phi i64 [%0, %$1] ; # X"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":" %4 = phi i64 [%0, %$1] ; # X"},{"Add":"; # (let Y X (loop (set Y (| (val Y) 1)) (? (atom (shift Y)) (loop (s..."},{"Add":"; # (loop (set Y (| (val Y) 1)) (? (atom (shift Y)) (loop (set X (& (..."},{"Add":" br label %$5"},{"Add":"$5:"},{"Add":" %5 = phi i64 [%4, %$3], [%70, %$12] ; # X"},{"Add":" %6 = phi i64 [%4, %$3], [%71, %$12] ; # Y"},{"Add":"; # (set Y (| (val Y) 1))"},{"Add":"; # (val Y)"},{"Add":" %7 = inttoptr i64 %6 to i64*"},{"Add":" %8 = load i64, i64* %7"},{"Add":"; # (| (val Y) 1)"},{"Add":" %9 = or i64 %8, 1"},{"Add":" %10 = inttoptr i64 %6 to i64*"},{"Add":" store i64 %9, i64* %10"},{"Add":"; # (? (atom (shift Y)) (loop (set X (& (val X) -2)) (? (== Y (shift ..."},{"Add":"; # (shift Y)"},{"Add":" %11 = inttoptr i64 %6 to i64*"},{"Add":" %12 = getelementptr i64, i64* %11, i32 1"},{"Add":" %13 = load i64, i64* %12"},{"Add":"; # (atom (shift Y))"},{"Add":" %14 = and i64 %13, 15"},{"Add":" %15 = icmp ne i64 %14, 0"},{"Add":" br i1 %15, label %$8, label %$6"},{"Add":"$8:"},{"Add":" %16 = phi i64 [%5, %$5] ; # X"},{"Add":" %17 = phi i64 [%13, %$5] ; # Y"},{"Add":"; # (loop (set X (& (val X) -2)) (? (== Y (shift X))))"},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %18 = phi i64 [%16, %$8], [%28, %$10] ; # X"},{"Add":" %19 = phi i64 [%17, %$8], [%29, %$10] ; # Y"},{"Add":"; # (set X (& (val X) -2))"},{"Add":"; # (val X)"},{"Add":" %20 = inttoptr i64 %18 to i64*"},{"Add":" %21 = load i64, i64* %20"},{"Add":"; # (& (val X) -2)"},{"Add":" %22 = and i64 %21, -2"},{"Add":" %23 = inttoptr i64 %18 to i64*"},{"Add":" store i64 %22, i64* %23"},{"Add":"; # (? (== Y (shift X)))"},{"Add":"; # (shift X)"},{"Add":" %24 = inttoptr i64 %18 to i64*"},{"Add":" %25 = getelementptr i64, i64* %24, i32 1"},{"Add":" %26 = load i64, i64* %25"},{"Add":"; # (== Y (shift X))"},{"Add":" %27 = icmp eq i64 %19, %26"},{"Add":" br i1 %27, label %$11, label %$10"},{"Add":"$10:"},{"Add":" %28 = phi i64 [%26, %$9] ; # X"},{"Add":" %29 = phi i64 [%19, %$9] ; # Y"},{"Add":" br label %$9"},{"Add":"$11:"},{"Add":" %30 = phi i64 [%26, %$9] ; # X"},{"Add":" %31 = phi i64 [%19, %$9] ; # Y"},{"Add":" %32 = phi i64 [0, %$9] ; # ->"},{"Add":" br label %$7"},{"Add":"$6:"},{"Add":" %33 = phi i64 [%5, %$5] ; # X"},{"Add":" %34 = phi i64 [%13, %$5] ; # Y"},{"Add":"; # (? (& (val Y) 1) (until (== X Y) (set X (& (val X) -2)) (shift X)..."},{"Add":"; # (val Y)"},{"Add":" %35 = inttoptr i64 %34 to i64*"},{"Add":" %36 = load i64, i64* %35"},{"Add":"; # (& (val Y) 1)"},{"Add":" %37 = and i64 %36, 1"},{"Add":" %38 = icmp ne i64 %37, 0"},{"Add":" br i1 %38, label %$13, label %$12"},{"Add":"$13:"},{"Add":" %39 = phi i64 [%33, %$6] ; # X"},{"Add":" %40 = phi i64 [%34, %$6] ; # Y"},{"Add":"; # (until (== X Y) (set X (& (val X) -2)) (shift X))"},{"Add":" br label %$14"},{"Add":"$14:"},{"Add":" %41 = phi i64 [%39, %$13], [%52, %$15] ; # X"},{"Add":" %42 = phi i64 [%40, %$13], [%45, %$15] ; # Y"},{"Add":"; # (== X Y)"},{"Add":" %43 = icmp eq i64 %41, %42"},{"Add":" br i1 %43, label %$16, label %$15"},{"Add":"$15:"},{"Add":" %44 = phi i64 [%41, %$14] ; # X"},{"Add":" %45 = phi i64 [%42, %$14] ; # Y"},{"Add":"; # (set X (& (val X) -2))"},{"Add":"; # (val X)"},{"Add":" %46 = inttoptr i64 %44 to i64*"},{"Add":" %47 = load i64, i64* %46"},{"Add":"; # (& (val X) -2)"},{"Add":" %48 = and i64 %47, -2"},{"Add":" %49 = inttoptr i64 %44 to i64*"},{"Add":" store i64 %48, i64* %49"},{"Add":"; # (shift X)"},{"Add":" %50 = inttoptr i64 %44 to i64*"},{"Add":" %51 = getelementptr i64, i64* %50, i32 1"},{"Add":" %52 = load i64, i64* %51"},{"Add":" br label %$14"},{"Add":"$16:"},{"Add":" %53 = phi i64 [%41, %$14] ; # X"},{"Add":" %54 = phi i64 [%42, %$14] ; # Y"},{"Add":"; # (loop (set X (& (val X) -2)) (? (== Y (shift X))))"},{"Add":" br label %$17"},{"Add":"$17:"},{"Add":" %55 = phi i64 [%53, %$16], [%65, %$18] ; # X"},{"Add":" %56 = phi i64 [%54, %$16], [%66, %$18] ; # Y"},{"Add":"; # (set X (& (val X) -2))"},{"Add":"; # (val X)"},{"Add":" %57 = inttoptr i64 %55 to i64*"},{"Add":" %58 = load i64, i64* %57"},{"Add":"; # (& (val X) -2)"},{"Add":" %59 = and i64 %58, -2"},{"Add":" %60 = inttoptr i64 %55 to i64*"},{"Add":" store i64 %59, i64* %60"},{"Add":"; # (? (== Y (shift X)))"},{"Add":"; # (shift X)"},{"Add":" %61 = inttoptr i64 %55 to i64*"},{"Add":" %62 = getelementptr i64, i64* %61, i32 1"},{"Add":" %63 = load i64, i64* %62"},{"Add":"; # (== Y (shift X))"},{"Add":" %64 = icmp eq i64 %56, %63"},{"Add":" br i1 %64, label %$19, label %$18"},{"Add":"$18:"},{"Add":" %65 = phi i64 [%63, %$17] ; # X"},{"Add":" %66 = phi i64 [%56, %$17] ; # Y"},{"Add":" br label %$17"},{"Add":"$19:"},{"Add":" %67 = phi i64 [%63, %$17] ; # X"},{"Add":" %68 = phi i64 [%56, %$17] ; # Y"},{"Add":" %69 = phi i64 [0, %$17] ; # ->"},{"Add":" br label %$7"},{"Add":"$12:"},{"Add":" %70 = phi i64 [%33, %$6] ; # X"},{"Add":" %71 = phi i64 [%34, %$6] ; # Y"},{"Add":" br label %$5"},{"Add":"$7:"},{"Add":" %72 = phi i64 [%30, %$11], [%67, %$19] ; # X"},{"Add":" %73 = phi i64 [%31, %$11], [%68, %$19] ; # Y"},{"Add":" %74 = phi i64 [0, %$11], [%68, %$19] ; # ->"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %75 = phi i64 [%3, %$2], [%72, %$7] ; # X"},{"Add":" %76 = phi i64 [0, %$2], [%74, %$7] ; # ->"},{"Add":" ret i64 %76"},{"Add":"}"},{"Add":""},{"Add":"define i64 @funq(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (cond ((cnt? X) X) ((or (big? X) (sym? X)) 0) ((circ X) 0) (T (le..."},{"Add":"; # (cnt? X)"},{"Add":" %1 = and i64 %0, 2"},{"Add":" %2 = icmp ne i64 %1, 0"},{"Add":" br i1 %2, label %$4, label %$3"},{"Add":"$4:"},{"Add":" %3 = phi i64 [%0, %$1] ; # X"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %4 = phi i64 [%0, %$1] ; # X"},{"Add":"; # (or (big? X) (sym? X))"},{"Add":"; # (big? X)"},{"Add":" %5 = and i64 %4, 4"},{"Add":" %6 = icmp ne i64 %5, 0"},{"Add":" br i1 %6, label %$5, label %$6"},{"Add":"$6:"},{"Add":" %7 = phi i64 [%4, %$3] ; # X"},{"Add":"; # (sym? X)"},{"Add":" %8 = and i64 %7, 8"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br label %$5"},{"Add":"$5:"},{"Add":" %10 = phi i64 [%4, %$3], [%7, %$6] ; # X"},{"Add":" %11 = phi i1 [1, %$3], [%9, %$6] ; # ->"},{"Add":" br i1 %11, label %$8, label %$7"},{"Add":"$8:"},{"Add":" %12 = phi i64 [%10, %$5] ; # X"},{"Add":" br label %$2"},{"Add":"$7:"},{"Add":" %13 = phi i64 [%10, %$5] ; # X"},{"Add":"; # (circ X)"},{"Add":" %14 = call i64 @circ(i64 %13)"},{"Add":" %15 = icmp ne i64 %14, 0"},{"Add":" br i1 %15, label %$10, label %$9"},{"Add":"$10:"},{"Add":" %16 = phi i64 [%13, %$7] ; # X"},{"Add":" br label %$2"},{"Add":"$9:"},{"Add":" %17 = phi i64 [%13, %$7] ; # X"},{"Add":"; # (let Y (cdr X) (loop (? (atom Y) (cond ((not (nil? Y)) 0) ((nil? ..."},{"Add":"; # (cdr X)"},{"Add":" %18 = inttoptr i64 %17 to i64*"},{"Add":" %19 = getelementptr i64, i64* %18, i32 1"},{"Add":" %20 = load i64, i64* %19"},{"Add":"; # (loop (? (atom Y) (cond ((not (nil? Y)) 0) ((nil? (setq X (car X)..."},{"Add":" br label %$11"},{"Add":"$11:"},{"Add":" %21 = phi i64 [%17, %$9], [%204, %$53] ; # X"},{"Add":" %22 = phi i64 [%20, %$9], [%205, %$53] ; # Y"},{"Add":"; # (? (atom Y) (cond ((not (nil? Y)) 0) ((nil? (setq X (car X))) $T)..."},{"Add":"; # (atom Y)"},{"Add":" %23 = and i64 %22, 15"},{"Add":" %24 = icmp ne i64 %23, 0"},{"Add":" br i1 %24, label %$14, label %$12"},{"Add":"$14:"},{"Add":" %25 = phi i64 [%21, %$11] ; # X"},{"Add":" %26 = phi i64 [%22, %$11] ; # Y"},{"Add":"; # (cond ((not (nil? Y)) 0) ((nil? (setq X (car X))) $T) ((== X $Til..."},{"Add":"; # (nil? Y)"},{"Add":" %27 = icmp eq i64 %26, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":"; # (not (nil? Y))"},{"Add":" %28 = icmp eq i1 %27, 0"},{"Add":" br i1 %28, label %$17, label %$16"},{"Add":"$17:"},{"Add":" %29 = phi i64 [%25, %$14] ; # X"},{"Add":" %30 = phi i64 [%26, %$14] ; # Y"},{"Add":" br label %$15"},{"Add":"$16:"},{"Add":" %31 = phi i64 [%25, %$14] ; # X"},{"Add":" %32 = phi i64 [%26, %$14] ; # Y"},{"Add":"; # (car X)"},{"Add":" %33 = inttoptr i64 %31 to i64*"},{"Add":" %34 = load i64, i64* %33"},{"Add":"; # (nil? (setq X (car X)))"},{"Add":" %35 = icmp eq i64 %34, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %35, label %$19, label %$18"},{"Add":"$19:"},{"Add":" %36 = phi i64 [%34, %$16] ; # X"},{"Add":" %37 = phi i64 [%32, %$16] ; # Y"},{"Add":" br label %$15"},{"Add":"$18:"},{"Add":" %38 = phi i64 [%34, %$16] ; # X"},{"Add":" %39 = phi i64 [%32, %$16] ; # Y"},{"Add":"; # (== X $Tilde)"},{"Add":" %40 = icmp eq i64 %38, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 40) to i64)"},{"Add":" br i1 %40, label %$21, label %$20"},{"Add":"$21:"},{"Add":" %41 = phi i64 [%38, %$18] ; # X"},{"Add":" %42 = phi i64 [%39, %$18] ; # Y"},{"Add":" br label %$15"},{"Add":"$20:"},{"Add":" %43 = phi i64 [%38, %$18] ; # X"},{"Add":" %44 = phi i64 [%39, %$18] ; # Y"},{"Add":"; # (circ (setq Y X))"},{"Add":" %45 = call i64 @circ(i64 %43)"},{"Add":" %46 = icmp ne i64 %45, 0"},{"Add":" br i1 %46, label %$23, label %$22"},{"Add":"$23:"},{"Add":" %47 = phi i64 [%43, %$20] ; # X"},{"Add":" %48 = phi i64 [%43, %$20] ; # Y"},{"Add":" br label %$15"},{"Add":"$22:"},{"Add":" %49 = phi i64 [%43, %$20] ; # X"},{"Add":" %50 = phi i64 [%43, %$20] ; # Y"},{"Add":"; # (loop (? (atom Y) (if (or (num? Y) (t? Y)) 0 X)) (? (or (num? (++..."},{"Add":" br label %$24"},{"Add":"$24:"},{"Add":" %51 = phi i64 [%49, %$22], [%147, %$49] ; # X"},{"Add":" %52 = phi i64 [%50, %$22], [%148, %$49] ; # Y"},{"Add":"; # (? (atom Y) (if (or (num? Y) (t? Y)) 0 X))"},{"Add":"; # (atom Y)"},{"Add":" %53 = and i64 %52, 15"},{"Add":" %54 = icmp ne i64 %53, 0"},{"Add":" br i1 %54, label %$27, label %$25"},{"Add":"$27:"},{"Add":" %55 = phi i64 [%51, %$24] ; # X"},{"Add":" %56 = phi i64 [%52, %$24] ; # Y"},{"Add":"; # (if (or (num? Y) (t? Y)) 0 X)"},{"Add":"; # (or (num? Y) (t? Y))"},{"Add":"; # (num? Y)"},{"Add":" %57 = and i64 %56, 6"},{"Add":" %58 = icmp ne i64 %57, 0"},{"Add":" br i1 %58, label %$28, label %$29"},{"Add":"$29:"},{"Add":" %59 = phi i64 [%55, %$27] ; # X"},{"Add":" %60 = phi i64 [%56, %$27] ; # Y"},{"Add":"; # (t? Y)"},{"Add":" %61 = icmp eq i64 %60, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 280) to i64)"},{"Add":" br label %$28"},{"Add":"$28:"},{"Add":" %62 = phi i64 [%55, %$27], [%59, %$29] ; # X"},{"Add":" %63 = phi i64 [%56, %$27], [%60, %$29] ; # Y"},{"Add":" %64 = phi i1 [1, %$27], [%61, %$29] ; # ->"},{"Add":" br i1 %64, label %$30, label %$31"},{"Add":"$30:"},{"Add":" %65 = phi i64 [%62, %$28] ; # X"},{"Add":" %66 = phi i64 [%63, %$28] ; # Y"},{"Add":" br label %$32"},{"Add":"$31:"},{"Add":" %67 = phi i64 [%62, %$28] ; # X"},{"Add":" %68 = phi i64 [%63, %$28] ; # Y"},{"Add":" br label %$32"},{"Add":"$32:"},{"Add":" %69 = phi i64 [%65, %$30], [%67, %$31] ; # X"},{"Add":" %70 = phi i64 [%66, %$30], [%68, %$31] ; # Y"},{"Add":" %71 = phi i64 [0, %$30], [%67, %$31] ; # ->"},{"Add":" br label %$26"},{"Add":"$25:"},{"Add":" %72 = phi i64 [%51, %$24] ; # X"},{"Add":" %73 = phi i64 [%52, %$24] ; # Y"},{"Add":"; # (? (or (num? (++ Y)) (nil? @) (t? @) (and (pair @) (let Z @ (loop..."},{"Add":"; # (or (num? (++ Y)) (nil? @) (t? @) (and (pair @) (let Z @ (loop (?..."},{"Add":"; # (++ Y)"},{"Add":" %74 = inttoptr i64 %73 to i64*"},{"Add":" %75 = load i64, i64* %74"},{"Add":" %76 = getelementptr i64, i64* %74, i32 1"},{"Add":" %77 = load i64, i64* %76"},{"Add":"; # (num? (++ Y))"},{"Add":" %78 = and i64 %75, 6"},{"Add":" %79 = icmp ne i64 %78, 0"},{"Add":" br i1 %79, label %$33, label %$34"},{"Add":"$34:"},{"Add":" %80 = phi i64 [%72, %$25] ; # X"},{"Add":" %81 = phi i64 [%77, %$25] ; # Y"},{"Add":"; # (nil? @)"},{"Add":" %82 = icmp eq i64 %75, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %82, label %$33, label %$35"},{"Add":"$35:"},{"Add":" %83 = phi i64 [%80, %$34] ; # X"},{"Add":" %84 = phi i64 [%81, %$34] ; # Y"},{"Add":"; # (t? @)"},{"Add":" %85 = icmp eq i64 %75, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 280) to i64)"},{"Add":" br i1 %85, label %$33, label %$36"},{"Add":"$36:"},{"Add":" %86 = phi i64 [%83, %$35] ; # X"},{"Add":" %87 = phi i64 [%84, %$35] ; # Y"},{"Add":"; # (and (pair @) (let Z @ (loop (? (or (not (symb? (++ Z))) (t? @)) ..."},{"Add":"; # (pair @)"},{"Add":" %88 = and i64 %75, 15"},{"Add":" %89 = icmp eq i64 %88, 0"},{"Add":" br i1 %89, label %$38, label %$37"},{"Add":"$38:"},{"Add":" %90 = phi i64 [%86, %$36] ; # X"},{"Add":" %91 = phi i64 [%87, %$36] ; # Y"},{"Add":"; # (let Z @ (loop (? (or (not (symb? (++ Z))) (t? @)) YES) (? (atom ..."},{"Add":"; # (loop (? (or (not (symb? (++ Z))) (t? @)) YES) (? (atom Z) (or (n..."},{"Add":" br label %$39"},{"Add":"$39:"},{"Add":" %92 = phi i64 [%90, %$38], [%132, %$45] ; # X"},{"Add":" %93 = phi i64 [%91, %$38], [%133, %$45] ; # Y"},{"Add":" %94 = phi i64 [%75, %$38], [%134, %$45] ; # Z"},{"Add":"; # (? (or (not (symb? (++ Z))) (t? @)) YES)"},{"Add":"; # (or (not (symb? (++ Z))) (t? @))"},{"Add":"; # (++ Z)"},{"Add":" %95 = inttoptr i64 %94 to i64*"},{"Add":" %96 = load i64, i64* %95"},{"Add":" %97 = getelementptr i64, i64* %95, i32 1"},{"Add":" %98 = load i64, i64* %97"},{"Add":"; # (symb? (++ Z))"},{"Add":" %99 = xor i64 %96, 8"},{"Add":" %100 = and i64 %99, 14"},{"Add":" %101 = icmp eq i64 %100, 0"},{"Add":"; # (not (symb? (++ Z)))"},{"Add":" %102 = icmp eq i1 %101, 0"},{"Add":" br i1 %102, label %$40, label %$41"},{"Add":"$41:"},{"Add":" %103 = phi i64 [%92, %$39] ; # X"},{"Add":" %104 = phi i64 [%93, %$39] ; # Y"},{"Add":" %105 = phi i64 [%98, %$39] ; # Z"},{"Add":"; # (t? @)"},{"Add":" %106 = icmp eq i64 %96, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 280) to i64)"},{"Add":" br label %$40"},{"Add":"$40:"},{"Add":" %107 = phi i64 [%92, %$39], [%103, %$41] ; # X"},{"Add":" %108 = phi i64 [%93, %$39], [%104, %$41] ; # Y"},{"Add":" %109 = phi i64 [%98, %$39], [%105, %$41] ; # Z"},{"Add":" %110 = phi i1 [1, %$39], [%106, %$41] ; # ->"},{"Add":" br i1 %110, label %$44, label %$42"},{"Add":"$44:"},{"Add":" %111 = phi i64 [%107, %$40] ; # X"},{"Add":" %112 = phi i64 [%108, %$40] ; # Y"},{"Add":" %113 = phi i64 [%109, %$40] ; # Z"},{"Add":" br label %$43"},{"Add":"$42:"},{"Add":" %114 = phi i64 [%107, %$40] ; # X"},{"Add":" %115 = phi i64 [%108, %$40] ; # Y"},{"Add":" %116 = phi i64 [%109, %$40] ; # Z"},{"Add":"; # (? (atom Z) (or (num? Z) (t? Z)))"},{"Add":"; # (atom Z)"},{"Add":" %117 = and i64 %116, 15"},{"Add":" %118 = icmp ne i64 %117, 0"},{"Add":" br i1 %118, label %$46, label %$45"},{"Add":"$46:"},{"Add":" %119 = phi i64 [%114, %$42] ; # X"},{"Add":" %120 = phi i64 [%115, %$42] ; # Y"},{"Add":" %121 = phi i64 [%116, %$42] ; # Z"},{"Add":"; # (or (num? Z) (t? Z))"},{"Add":"; # (num? Z)"},{"Add":" %122 = and i64 %121, 6"},{"Add":" %123 = icmp ne i64 %122, 0"},{"Add":" br i1 %123, label %$47, label %$48"},{"Add":"$48:"},{"Add":" %124 = phi i64 [%119, %$46] ; # X"},{"Add":" %125 = phi i64 [%120, %$46] ; # Y"},{"Add":" %126 = phi i64 [%121, %$46] ; # Z"},{"Add":"; # (t? Z)"},{"Add":" %127 = icmp eq i64 %126, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 280) to i64)"},{"Add":" br label %$47"},{"Add":"$47:"},{"Add":" %128 = phi i64 [%119, %$46], [%124, %$48] ; # X"},{"Add":" %129 = phi i64 [%120, %$46], [%125, %$48] ; # Y"},{"Add":" %130 = phi i64 [%121, %$46], [%126, %$48] ; # Z"},{"Add":" %131 = phi i1 [1, %$46], [%127, %$48] ; # ->"},{"Add":" br label %$43"},{"Add":"$45:"},{"Add":" %132 = phi i64 [%114, %$42] ; # X"},{"Add":" %133 = phi i64 [%115, %$42] ; # Y"},{"Add":" %134 = phi i64 [%116, %$42] ; # Z"},{"Add":" br label %$39"},{"Add":"$43:"},{"Add":" %135 = phi i64 [%111, %$44], [%128, %$47] ; # X"},{"Add":" %136 = phi i64 [%112, %$44], [%129, %$47] ; # Y"},{"Add":" %137 = phi i64 [%113, %$44], [%130, %$47] ; # Z"},{"Add":" %138 = phi i1 [1, %$44], [%131, %$47] ; # ->"},{"Add":" br label %$37"},{"Add":"$37:"},{"Add":" %139 = phi i64 [%86, %$36], [%135, %$43] ; # X"},{"Add":" %140 = phi i64 [%87, %$36], [%136, %$43] ; # Y"},{"Add":" %141 = phi i1 [0, %$36], [%138, %$43] ; # ->"},{"Add":" br label %$33"},{"Add":"$33:"},{"Add":" %142 = phi i64 [%72, %$25], [%80, %$34], [%83, %$35], [%139, %$37] ; # X"},{"Add":" %143 = phi i64 [%77, %$25], [%81, %$34], [%84, %$35], [%140, %$37] ; # Y"},{"Add":" %144 = phi i1 [1, %$25], [1, %$34], [1, %$35], [%141, %$37] ; # ->"},{"Add":" br i1 %144, label %$50, label %$49"},{"Add":"$50:"},{"Add":" %145 = phi i64 [%142, %$33] ; # X"},{"Add":" %146 = phi i64 [%143, %$33] ; # Y"},{"Add":" br label %$26"},{"Add":"$49:"},{"Add":" %147 = phi i64 [%142, %$33] ; # X"},{"Add":" %148 = phi i64 [%143, %$33] ; # Y"},{"Add":" br label %$24"},{"Add":"$26:"},{"Add":" %149 = phi i64 [%69, %$32], [%145, %$50] ; # X"},{"Add":" %150 = phi i64 [%70, %$32], [%146, %$50] ; # Y"},{"Add":" %151 = phi i64 [%71, %$32], [0, %$50] ; # ->"},{"Add":" br label %$15"},{"Add":"$15:"},{"Add":" %152 = phi i64 [%29, %$17], [%36, %$19], [%41, %$21], [%47, %$23], [%149, %$26] ; # X"},{"Add":" %153 = phi i64 [%30, %$17], [%37, %$19], [%42, %$21], [%48, %$23], [%150, %$26] ; # Y"},{"Add":" %154 = phi i64 [0, %$17], [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 280) to i64), %$19], [0, %$21], [0, %$23], [%151, %$26] ; # ->"},{"Add":" br label %$13"},{"Add":"$12:"},{"Add":" %155 = phi i64 [%21, %$11] ; # X"},{"Add":" %156 = phi i64 [%22, %$11] ; # Y"},{"Add":"; # (let Z (++ Y) (if (pair Z) (if (num? (car Z)) (? (pair Y) 0) (? (..."},{"Add":"; # (++ Y)"},{"Add":" %157 = inttoptr i64 %156 to i64*"},{"Add":" %158 = load i64, i64* %157"},{"Add":" %159 = getelementptr i64, i64* %157, i32 1"},{"Add":" %160 = load i64, i64* %159"},{"Add":"; # (if (pair Z) (if (num? (car Z)) (? (pair Y) 0) (? (or (nil? (car ..."},{"Add":"; # (pair Z)"},{"Add":" %161 = and i64 %158, 15"},{"Add":" %162 = icmp eq i64 %161, 0"},{"Add":" br i1 %162, label %$51, label %$52"},{"Add":"$51:"},{"Add":" %163 = phi i64 [%155, %$12] ; # X"},{"Add":" %164 = phi i64 [%160, %$12] ; # Y"},{"Add":"; # (if (num? (car Z)) (? (pair Y) 0) (? (or (nil? (car Z)) (t? (car ..."},{"Add":"; # (car Z)"},{"Add":" %165 = inttoptr i64 %158 to i64*"},{"Add":" %166 = load i64, i64* %165"},{"Add":"; # (num? (car Z))"},{"Add":" %167 = and i64 %166, 6"},{"Add":" %168 = icmp ne i64 %167, 0"},{"Add":" br i1 %168, label %$54, label %$55"},{"Add":"$54:"},{"Add":" %169 = phi i64 [%163, %$51] ; # X"},{"Add":" %170 = phi i64 [%164, %$51] ; # Y"},{"Add":"; # (? (pair Y) 0)"},{"Add":"; # (pair Y)"},{"Add":" %171 = and i64 %170, 15"},{"Add":" %172 = icmp eq i64 %171, 0"},{"Add":" br i1 %172, label %$58, label %$57"},{"Add":"$58:"},{"Add":" %173 = phi i64 [%169, %$54] ; # X"},{"Add":" %174 = phi i64 [%170, %$54] ; # Y"},{"Add":" br label %$13"},{"Add":"$57:"},{"Add":" %175 = phi i64 [%169, %$54] ; # X"},{"Add":" %176 = phi i64 [%170, %$54] ; # Y"},{"Add":" br label %$56"},{"Add":"$55:"},{"Add":" %177 = phi i64 [%163, %$51] ; # X"},{"Add":" %178 = phi i64 [%164, %$51] ; # Y"},{"Add":"; # (? (or (nil? (car Z)) (t? (car Z))) 0)"},{"Add":"; # (or (nil? (car Z)) (t? (car Z)))"},{"Add":"; # (car Z)"},{"Add":" %179 = inttoptr i64 %158 to i64*"},{"Add":" %180 = load i64, i64* %179"},{"Add":"; # (nil? (car Z))"},{"Add":" %181 = icmp eq i64 %180, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %181, label %$59, label %$60"},{"Add":"$60:"},{"Add":" %182 = phi i64 [%177, %$55] ; # X"},{"Add":" %183 = phi i64 [%178, %$55] ; # Y"},{"Add":"; # (car Z)"},{"Add":" %184 = inttoptr i64 %158 to i64*"},{"Add":" %185 = load i64, i64* %184"},{"Add":"; # (t? (car Z))"},{"Add":" %186 = icmp eq i64 %185, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 280) to i64)"},{"Add":" br label %$59"},{"Add":"$59:"},{"Add":" %187 = phi i64 [%177, %$55], [%182, %$60] ; # X"},{"Add":" %188 = phi i64 [%178, %$55], [%183, %$60] ; # Y"},{"Add":" %189 = phi i1 [1, %$55], [%186, %$60] ; # ->"},{"Add":" br i1 %189, label %$62, label %$61"},{"Add":"$62:"},{"Add":" %190 = phi i64 [%187, %$59] ; # X"},{"Add":" %191 = phi i64 [%188, %$59] ; # Y"},{"Add":" br label %$13"},{"Add":"$61:"},{"Add":" %192 = phi i64 [%187, %$59] ; # X"},{"Add":" %193 = phi i64 [%188, %$59] ; # Y"},{"Add":" br label %$56"},{"Add":"$56:"},{"Add":" %194 = phi i64 [%175, %$57], [%192, %$61] ; # X"},{"Add":" %195 = phi i64 [%176, %$57], [%193, %$61] ; # Y"},{"Add":" br label %$53"},{"Add":"$52:"},{"Add":" %196 = phi i64 [%155, %$12] ; # X"},{"Add":" %197 = phi i64 [%160, %$12] ; # Y"},{"Add":"; # (? (not (nil? Y)) 0)"},{"Add":"; # (nil? Y)"},{"Add":" %198 = icmp eq i64 %197, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":"; # (not (nil? Y))"},{"Add":" %199 = icmp eq i1 %198, 0"},{"Add":" br i1 %199, label %$64, label %$63"},{"Add":"$64:"},{"Add":" %200 = phi i64 [%196, %$52] ; # X"},{"Add":" %201 = phi i64 [%197, %$52] ; # Y"},{"Add":" br label %$13"},{"Add":"$63:"},{"Add":" %202 = phi i64 [%196, %$52] ; # X"},{"Add":" %203 = phi i64 [%197, %$52] ; # Y"},{"Add":" br label %$53"},{"Add":"$53:"},{"Add":" %204 = phi i64 [%194, %$56], [%202, %$63] ; # X"},{"Add":" %205 = phi i64 [%195, %$56], [%203, %$63] ; # Y"},{"Add":" br label %$11"},{"Add":"$13:"},{"Add":" %206 = phi i64 [%152, %$15], [%173, %$58], [%190, %$62], [%200, %$64] ; # X"},{"Add":" %207 = phi i64 [%153, %$15], [%174, %$58], [%191, %$62], [%201, %$64] ; # Y"},{"Add":" %208 = phi i64 [%154, %$15], [0, %$58], [0, %$62], [0, %$64] ; # ->"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %209 = phi i64 [%3, %$4], [%12, %$8], [%16, %$10], [%206, %$13] ; # X"},{"Add":" %210 = phi i64 [%3, %$4], [0, %$8], [0, %$10], [%208, %$13] ; # ->"},{"Add":" ret i64 %210"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Tty(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let (Out (val $OutFile) Put (val (i8** $Put))) (set $OutFile (va..."},{"Add":"; # (val $OutFile)"},{"Add":" %1 = load i8*, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 80) to i8**)"},{"Add":"; # (i8** $Put)"},{"Add":" %2 = bitcast void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**) to i8**"},{"Add":"; # (val (i8** $Put))"},{"Add":" %3 = load i8*, i8** %2"},{"Add":"; # (set $OutFile (val 3 (val $OutFiles)) $Put (fun (void i8) _putStd..."},{"Add":"; # (val $OutFiles)"},{"Add":" %4 = load i8**, i8*** @$OutFiles"},{"Add":"; # (val 3 (val $OutFiles))"},{"Add":" %5 = getelementptr i8*, i8** %4, i32 2"},{"Add":" %6 = load i8*, i8** %5"},{"Add":" store i8* %6, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 80) to i8**)"},{"Add":"; # (fun (void i8) _putStdout)"},{"Add":" store void(i8)* @_putStdout, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":"; # (rlHide)"},{"Add":" call void @rlHide()"},{"Add":"; # (prog1 (run (cdr Exe)) (flush (val $OutFile)) (rlShow) (set (i8**..."},{"Add":"; # (cdr Exe)"},{"Add":" %7 = inttoptr i64 %0 to i64*"},{"Add":" %8 = getelementptr i64, i64* %7, i32 1"},{"Add":" %9 = load i64, i64* %8"},{"Add":"; # (run (cdr Exe))"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %10 = phi i64 [%9, %$1], [%32, %$11] ; # Prg"},{"Add":" %11 = inttoptr i64 %10 to i64*"},{"Add":" %12 = load i64, i64* %11"},{"Add":" %13 = getelementptr i64, i64* %11, i32 1"},{"Add":" %14 = load i64, i64* %13"},{"Add":" %15 = and i64 %14, 15"},{"Add":" %16 = icmp ne i64 %15, 0"},{"Add":" br i1 %16, label %$5, label %$3"},{"Add":"$5:"},{"Add":" %17 = phi i64 [%14, %$2] ; # Prg"},{"Add":" %18 = and i64 %12, 6"},{"Add":" %19 = icmp ne i64 %18, 0"},{"Add":" br i1 %19, label %$8, label %$7"},{"Add":"$8:"},{"Add":" br label %$6"},{"Add":"$7:"},{"Add":" %20 = and i64 %12, 8"},{"Add":" %21 = icmp ne i64 %20, 0"},{"Add":" br i1 %21, label %$10, label %$9"},{"Add":"$10:"},{"Add":" %22 = inttoptr i64 %12 to i64*"},{"Add":" %23 = load i64, i64* %22"},{"Add":" br label %$6"},{"Add":"$9:"},{"Add":" %24 = call i64 @evList(i64 %12)"},{"Add":" br label %$6"},{"Add":"$6:"},{"Add":" %25 = phi i64 [%12, %$8], [%23, %$10], [%24, %$9] ; # ->"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":" %26 = phi i64 [%14, %$2] ; # Prg"},{"Add":" %27 = and i64 %12, 15"},{"Add":" %28 = icmp eq i64 %27, 0"},{"Add":" br i1 %28, label %$12, label %$11"},{"Add":"$12:"},{"Add":" %29 = phi i64 [%26, %$3] ; # Prg"},{"Add":" %30 = call i64 @evList(i64 %12)"},{"Add":" %31 = icmp ne i64 %30, 0"},{"Add":" br label %$11"},{"Add":"$11:"},{"Add":" %32 = phi i64 [%26, %$3], [%29, %$12] ; # Prg"},{"Add":" %33 = phi i1 [0, %$3], [%31, %$12] ; # ->"},{"Add":" br label %$2"},{"Add":"$4:"},{"Add":" %34 = phi i64 [%17, %$6] ; # Prg"},{"Add":" %35 = phi i64 [%25, %$6] ; # ->"},{"Add":"; # (val $OutFile)"},{"Add":" %36 = load i8*, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 80) to i8**)"},{"Add":"; # (flush (val $OutFile))"},{"Add":" %37 = call i1 @flush(i8* %36)"},{"Add":"; # (rlShow)"},{"Add":" call void @rlShow()"},{"Add":"; # (set (i8** $Put) Put $OutFile Out)"},{"Add":"; # (i8** $Put)"},{"Add":" %38 = bitcast void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**) to i8**"},{"Add":" store i8* %3, i8** %38"},{"Add":" store i8* %1, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 80) to i8**)"},{"Add":" ret i64 %35"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Raw(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let X (cdr Exe) (cond ((atom X) (if (val Termio) $T $Nil)) ((nil..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (cond ((atom X) (if (val Termio) $T $Nil)) ((nil? (eval (car X)))..."},{"Add":"; # (atom X)"},{"Add":" %4 = and i64 %3, 15"},{"Add":" %5 = icmp ne i64 %4, 0"},{"Add":" br i1 %5, label %$4, label %$3"},{"Add":"$4:"},{"Add":"; # (if (val Termio) $T $Nil)"},{"Add":"; # (val Termio)"},{"Add":" %6 = load i8*, i8** @Termio"},{"Add":" %7 = icmp ne i8* %6, null"},{"Add":" br i1 %7, label %$5, label %$6"},{"Add":"$5:"},{"Add":" br label %$7"},{"Add":"$6:"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %8 = phi i64 [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 280) to i64), %$5], [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), %$6] ; # ->"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":"; # (car X)"},{"Add":" %9 = inttoptr i64 %3 to i64*"},{"Add":" %10 = load i64, i64* %9"},{"Add":"; # (eval (car X))"},{"Add":" %11 = and i64 %10, 6"},{"Add":" %12 = icmp ne i64 %11, 0"},{"Add":" br i1 %12, label %$10, label %$9"},{"Add":"$10:"},{"Add":" br label %$8"},{"Add":"$9:"},{"Add":" %13 = and i64 %10, 8"},{"Add":" %14 = icmp ne i64 %13, 0"},{"Add":" br i1 %14, label %$12, label %$11"},{"Add":"$12:"},{"Add":" %15 = inttoptr i64 %10 to i64*"},{"Add":" %16 = load i64, i64* %15"},{"Add":" br label %$8"},{"Add":"$11:"},{"Add":" %17 = call i64 @evList(i64 %10)"},{"Add":" br label %$8"},{"Add":"$8:"},{"Add":" %18 = phi i64 [%10, %$10], [%16, %$12], [%17, %$11] ; # ->"},{"Add":"; # (nil? (eval (car X)))"},{"Add":" %19 = icmp eq i64 %18, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %19, label %$14, label %$13"},{"Add":"$14:"},{"Add":"; # (setCooked)"},{"Add":" call void @setCooked()"},{"Add":" br label %$2"},{"Add":"$13:"},{"Add":"; # (setRaw)"},{"Add":" call void @setRaw()"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %20 = phi i64 [%8, %$7], [%18, %$14], [%18, %$13] ; # ->"},{"Add":" ret i64 %20"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Alarm(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let X (cdr Exe) (prog1 (cnt (i64 (alarm (i32 (evCnt Exe X))))) (..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (prog1 (cnt (i64 (alarm (i32 (evCnt Exe X))))) (set $Alarm (cdr X..."},{"Add":"; # (evCnt Exe X)"},{"Add":" %4 = call i64 @evCnt(i64 %0, i64 %3)"},{"Add":"; # (i32 (evCnt Exe X))"},{"Add":" %5 = trunc i64 %4 to i32"},{"Add":"; # (alarm (i32 (evCnt Exe X)))"},{"Add":" %6 = call i32 @alarm(i32 %5)"},{"Add":"; # (i64 (alarm (i32 (evCnt Exe X))))"},{"Add":" %7 = sext i32 %6 to i64"},{"Add":"; # (cnt (i64 (alarm (i32 (evCnt Exe X)))))"},{"Add":" %8 = shl i64 %7, 4"},{"Add":" %9 = or i64 %8, 2"},{"Add":"; # (set $Alarm (cdr X))"},{"Add":"; # (cdr X)"},{"Add":" %10 = inttoptr i64 %3 to i64*"},{"Add":" %11 = getelementptr i64, i64* %10, i32 1"},{"Add":" %12 = load i64, i64* %11"},{"Add":" %13 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([53 x i64]* @gcData to i8*), i32 24) to i64) to i64*"},{"Add":" store i64 %12, i64* %13"},{"Add":" ret i64 %9"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Sigio(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let (X (cdr Exe) Fd (evCnt Exe X)) (set $Sigio (cdr X)) (fcntlSe..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (evCnt Exe X)"},{"Add":" %4 = call i64 @evCnt(i64 %0, i64 %3)"},{"Add":"; # (set $Sigio (cdr X))"},{"Add":"; # (cdr X)"},{"Add":" %5 = inttoptr i64 %3 to i64*"},{"Add":" %6 = getelementptr i64, i64* %5, i32 1"},{"Add":" %7 = load i64, i64* %6"},{"Add":" %8 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([53 x i64]* @gcData to i8*), i32 32) to i64) to i64*"},{"Add":" store i64 %7, i64* %8"},{"Add":"; # (i32 Fd)"},{"Add":" %9 = trunc i64 %4 to i32"},{"Add":"; # (val $Pid)"},{"Add":" %10 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 200) to i64) to i64*"},{"Add":" %11 = load i64, i64* %10"},{"Add":"; # (int (val $Pid))"},{"Add":" %12 = lshr i64 %11, 4"},{"Add":"; # (i32 (int (val $Pid)))"},{"Add":" %13 = trunc i64 %12 to i32"},{"Add":"; # (fcntlSetOwn (i32 Fd) (i32 (int (val $Pid))))"},{"Add":" call void @fcntlSetOwn(i32 %9, i32 %13)"},{"Add":"; # (cnt Fd)"},{"Add":" %14 = shl i64 %4, 4"},{"Add":" %15 = or i64 %14, 2"},{"Add":" ret i64 %15"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Kids(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let (X $Nil Cld (val $Child) "},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":" %22 = phi i64 [%10, %$2] ; # Prg"},{"Add":" %23 = and i64 %8, 15"},{"Add":" %24 = icmp eq i64 %23, 0"},{"Add":" br i1 %24, label %$12, label %$11"},{"Add":"$12:"},{"Add":" %25 = phi i64 [%22, %$3] ; # Prg"},{"Add":" %26 = call i64 @evList(i64 %8)"},{"Add":" %27 = icmp ne i64 %26, 0"},{"Add":" br label %$11"},{"Add":"$11:"},{"Add":" %28 = phi i64 [%22, %$3], [%25, %$12] ; # Prg"},{"Add":" %29 = phi i1 [0, %$3], [%27, %$12] ; # ->"},{"Add":" br label %$2"},{"Add":"$4:"},{"Add":" %30 = phi i64 [%13, %$6] ; # Prg"},{"Add":" %31 = phi i64 [%21, %$6] ; # ->"},{"Add":"; # (set $Protect (- (val $Protect) 1))"},{"Add":"; # (val $Protect)"},{"Add":" %32 = load i32, i32* bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 152) to i32*)"},{"Add":"; # (- (val $Protect) 1)"},{"Add":" %33 = sub i32 %32, 1"},{"Add":" store i32 %33, i32* bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 152) to i32*)"},{"Add":" ret i64 %31"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Heap(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (if (nil? (eval (cadr Exe))) (let (N 1 P (val $Heaps)) (while (se..."},{"Add":"; # (cadr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":"; # (eval (cadr Exe))"},{"Add":" %6 = and i64 %5, 6"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$4, label %$3"},{"Add":"$4:"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %8 = and i64 %5, 8"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br i1 %9, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %10 = inttoptr i64 %5 to i64*"},{"Add":" %11 = load i64, i64* %10"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":" %12 = call i64 @evList(i64 %5)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %13 = phi i64 [%5, %$4], [%11, %$6], [%12, %$5] ; # ->"},{"Add":"; # (nil? (eval (cadr Exe)))"},{"Add":" %14 = icmp eq i64 %13, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %14, label %$7, label %$8"},{"Add":"$7:"},{"Add":"; # (let (N 1 P (val $Heaps)) (while (setq P (val (ofs P HEAP))) (inc..."},{"Add":"; # (val $Heaps)"},{"Add":" %15 = load i64, i64* @$Heaps"},{"Add":"; # (while (setq P (val (ofs P HEAP))) (inc 'N))"},{"Add":" br label %$10"},{"Add":"$10:"},{"Add":" %16 = phi i64 [1, %$7], [%24, %$11] ; # N"},{"Add":" %17 = phi i64 [%15, %$7], [%23, %$11] ; # P"},{"Add":"; # (ofs P HEAP)"},{"Add":" %18 = add i64 %17, 1048576"},{"Add":"; # (val (ofs P HEAP))"},{"Add":" %19 = inttoptr i64 %18 to i64*"},{"Add":" %20 = load i64, i64* %19"},{"Add":" %21 = icmp ne i64 %20, 0"},{"Add":" br i1 %21, label %$11, label %$12"},{"Add":"$11:"},{"Add":" %22 = phi i64 [%16, %$10] ; # N"},{"Add":" %23 = phi i64 [%20, %$10] ; # P"},{"Add":"; # (inc 'N)"},{"Add":" %24 = add i64 %22, 1"},{"Add":" br label %$10"},{"Add":"$12:"},{"Add":" %25 = phi i64 [%16, %$10] ; # N"},{"Add":" %26 = phi i64 [%20, %$10] ; # P"},{"Add":"; # (cnt N)"},{"Add":" %27 = shl i64 %25, 4"},{"Add":" %28 = or i64 %27, 2"},{"Add":" br label %$9"},{"Add":"$8:"},{"Add":"; # (let (N 0 P (val $Avail)) (while P (inc 'N) (setq P (car P))) (cn..."},{"Add":"; # (val $Avail)"},{"Add":" %29 = load i64, i64* @$Avail"},{"Add":"; # (while P (inc 'N) (setq P (car P)))"},{"Add":" br label %$13"},{"Add":"$13:"},{"Add":" %30 = phi i64 [0, %$8], [%35, %$14] ; # N"},{"Add":" %31 = phi i64 [%29, %$8], [%37, %$14] ; # P"},{"Add":" %32 = icmp ne i64 %31, 0"},{"Add":" br i1 %32, label %$14, label %$15"},{"Add":"$14:"},{"Add":" %33 = phi i64 [%30, %$13] ; # N"},{"Add":" %34 = phi i64 [%31, %$13] ; # P"},{"Add":"; # (inc 'N)"},{"Add":" %35 = add i64 %33, 1"},{"Add":"; # (car P)"},{"Add":" %36 = inttoptr i64 %34 to i64*"},{"Add":" %37 = load i64, i64* %36"},{"Add":" br label %$13"},{"Add":"$15:"},{"Add":" %38 = phi i64 [%30, %$13] ; # N"},{"Add":" %39 = phi i64 [%31, %$13] ; # P"},{"Add":"; # (- 20 4)"},{"Add":"; # (shr N (- 20 4))"},{"Add":" %40 = lshr i64 %38, 16"},{"Add":"; # (cnt (shr N (- 20 4)))"},{"Add":" %41 = shl i64 %40, 4"},{"Add":" %42 = or i64 %41, 2"},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %43 = phi i64 [%28, %$12], [%42, %$15] ; # ->"},{"Add":" ret i64 %43"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Stack(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let (X (cdr Exe) Crt (val $Coroutines)) (if (or (atom X) (and Cr..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (val $Coroutines)"},{"Add":" %4 = load i8*, i8** @$Coroutines"},{"Add":"; # (if (or (atom X) (and Crt ((coroutine Crt) nxt))) (let R (cnt (sh..."},{"Add":"; # (or (atom X) (and Crt ((coroutine Crt) nxt)))"},{"Add":"; # (atom X)"},{"Add":" %5 = and i64 %3, 15"},{"Add":" %6 = icmp ne i64 %5, 0"},{"Add":" br i1 %6, label %$2, label %$3"},{"Add":"$3:"},{"Add":" %7 = phi i64 [%3, %$1] ; # X"},{"Add":" %8 = phi i8* [%4, %$1] ; # Crt"},{"Add":"; # (and Crt ((coroutine Crt) nxt))"},{"Add":" %9 = icmp ne i8* %8, null"},{"Add":" br i1 %9, label %$5, label %$4"},{"Add":"$5:"},{"Add":" %10 = phi i64 [%7, %$3] ; # X"},{"Add":" %11 = phi i8* [%8, %$3] ; # Crt"},{"Add":"; # ((coroutine Crt) nxt)"},{"Add":" %12 = getelementptr i8, i8* %11, i32 8"},{"Add":" %13 = bitcast i8* %12 to i8**"},{"Add":" %14 = load i8*, i8** %13"},{"Add":" %15 = icmp ne i8* %14, null"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %16 = phi i64 [%7, %$3], [%10, %$5] ; # X"},{"Add":" %17 = phi i8* [%8, %$3], [%11, %$5] ; # Crt"},{"Add":" %18 = phi i1 [0, %$3], [%15, %$5] ; # ->"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %19 = phi i64 [%3, %$1], [%16, %$4] ; # X"},{"Add":" %20 = phi i8* [%4, %$1], [%17, %$4] ; # Crt"},{"Add":" %21 = phi i1 [1, %$1], [%18, %$4] ; # ->"},{"Add":" br i1 %21, label %$6, label %$7"},{"Add":"$6:"},{"Add":" %22 = phi i64 [%19, %$2] ; # X"},{"Add":" %23 = phi i8* [%20, %$2] ; # Crt"},{"Add":"; # (let R (cnt (shr (val $StkSize) 10)) (while Crt (let Crt: (corout..."},{"Add":"; # (val $StkSize)"},{"Add":" %24 = load i64, i64* @$StkSize"},{"Add":"; # (shr (val $StkSize) 10)"},{"Add":" %25 = lshr i64 %24, 10"},{"Add":"; # (cnt (shr (val $StkSize) 10))"},{"Add":" %26 = shl i64 %25, 4"},{"Add":" %27 = or i64 %26, 2"},{"Add":"; # (while Crt (let Crt: (coroutine Crt) (when (Crt: tag) (let P (Crt..."},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %28 = phi i64 [%22, %$6], [%73, %$13] ; # X"},{"Add":" %29 = phi i8* [%23, %$6], [%78, %$13] ; # Crt"},{"Add":" %30 = phi i64 [%27, %$6], [%75, %$13] ; # R"},{"Add":" %31 = icmp ne i8* %29, null"},{"Add":" br i1 %31, label %$10, label %$11"},{"Add":"$10:"},{"Add":" %32 = phi i64 [%28, %$9] ; # X"},{"Add":" %33 = phi i8* [%29, %$9] ; # Crt"},{"Add":" %34 = phi i64 [%30, %$9] ; # R"},{"Add":"; # (let Crt: (coroutine Crt) (when (Crt: tag) (let P (Crt: lim) (whi..."},{"Add":"; # (when (Crt: tag) (let P (Crt: lim) (while (== 7 (val P)) (inc 'P)..."},{"Add":"; # (Crt: tag)"},{"Add":" %35 = ptrtoint i8* %33 to i64"},{"Add":" %36 = inttoptr i64 %35 to i64*"},{"Add":" %37 = load i64, i64* %36"},{"Add":" %38 = icmp ne i64 %37, 0"},{"Add":" br i1 %38, label %$12, label %$13"},{"Add":"$12:"},{"Add":" %39 = phi i64 [%32, %$10] ; # X"},{"Add":" %40 = phi i8* [%33, %$10] ; # Crt"},{"Add":" %41 = phi i64 [%34, %$10] ; # R"},{"Add":"; # (let P (Crt: lim) (while (== 7 (val P)) (inc 'P)) (setq R (cons2 ..."},{"Add":"; # (Crt: lim)"},{"Add":" %42 = getelementptr i8, i8* %33, i32 40"},{"Add":" %43 = bitcast i8* %42 to i8**"},{"Add":" %44 = load i8*, i8** %43"},{"Add":"; # (while (== 7 (val P)) (inc 'P))"},{"Add":" br label %$14"},{"Add":"$14:"},{"Add":" %45 = phi i64 [%39, %$12], [%51, %$15] ; # X"},{"Add":" %46 = phi i8* [%40, %$12], [%52, %$15] ; # Crt"},{"Add":" %47 = phi i64 [%41, %$12], [%53, %$15] ; # R"},{"Add":" %48 = phi i8* [%44, %$12], [%55, %$15] ; # P"},{"Add":"; # (val P)"},{"Add":" %49 = load i8, i8* %48"},{"Add":"; # (== 7 (val P))"},{"Add":" %50 = icmp eq i8 7, %49"},{"Add":" br i1 %50, label %$15, label %$16"},{"Add":"$15:"},{"Add":" %51 = phi i64 [%45, %$14] ; # X"},{"Add":" %52 = phi i8* [%46, %$14] ; # Crt"},{"Add":" %53 = phi i64 [%47, %$14] ; # R"},{"Add":" %54 = phi i8* [%48, %$14] ; # P"},{"Add":"; # (inc 'P)"},{"Add":" %55 = getelementptr i8, i8* %54, i32 1"},{"Add":" br label %$14"},{"Add":"$16:"},{"Add":" %56 = phi i64 [%45, %$14] ; # X"},{"Add":" %57 = phi i8* [%46, %$14] ; # Crt"},{"Add":" %58 = phi i64 [%47, %$14] ; # R"},{"Add":" %59 = phi i8* [%48, %$14] ; # P"},{"Add":"; # (Crt: tag)"},{"Add":" %60 = ptrtoint i8* %33 to i64"},{"Add":" %61 = inttoptr i64 %60 to i64*"},{"Add":" %62 = load i64, i64* %61"},{"Add":"; # (Crt: lim)"},{"Add":" %63 = getelementptr i8, i8* %33, i32 40"},{"Add":" %64 = bitcast i8* %63 to i8**"},{"Add":" %65 = load i8*, i8** %64"},{"Add":"; # (- P (Crt: lim))"},{"Add":" %66 = ptrtoint i8* %59 to i64"},{"Add":" %67 = ptrtoint i8* %65 to i64"},{"Add":" %68 = sub i64 %66, %67"},{"Add":"; # (shr (- P (Crt: lim)) 10)"},{"Add":" %69 = lshr i64 %68, 10"},{"Add":"; # (cnt (shr (- P (Crt: lim)) 10))"},{"Add":" %70 = shl i64 %69, 4"},{"Add":" %71 = or i64 %70, 2"},{"Add":"; # (cons2 (Crt: tag) (cnt (shr (- P (Crt: lim)) 10)) R)"},{"Add":" %72 = call i64 @cons2(i64 %62, i64 %71, i64 %58)"},{"Add":" br label %$13"},{"Add":"$13:"},{"Add":" %73 = phi i64 [%32, %$10], [%56, %$16] ; # X"},{"Add":" %74 = phi i8* [%33, %$10], [%57, %$16] ; # Crt"},{"Add":" %75 = phi i64 [%34, %$10], [%72, %$16] ; # R"},{"Add":"; # (Crt: nxt)"},{"Add":" %76 = getelementptr i8, i8* %33, i32 8"},{"Add":" %77 = bitcast i8* %76 to i8**"},{"Add":" %78 = load i8*, i8** %77"},{"Add":" br label %$9"},{"Add":"$11:"},{"Add":" %79 = phi i64 [%28, %$9] ; # X"},{"Add":" %80 = phi i8* [%29, %$9] ; # Crt"},{"Add":" %81 = phi i64 [%30, %$9] ; # R"},{"Add":" br label %$8"},{"Add":"$7:"},{"Add":" %82 = phi i64 [%19, %$2] ; # X"},{"Add":" %83 = phi i8* [%20, %$2] ; # Crt"},{"Add":"; # (let N (evCnt Exe X) (set $StkSize (shl N 10)) (when (pair (shift..."},{"Add":"; # (evCnt Exe X)"},{"Add":" %84 = call i64 @evCnt(i64 %0, i64 %82)"},{"Add":"; # (set $StkSize (shl N 10))"},{"Add":"; # (shl N 10)"},{"Add":" %85 = shl i64 %84, 10"},{"Add":" store i64 %85, i64* @$StkSize"},{"Add":"; # (when (pair (shift X)) (set $StkSizeT (shl (evCnt Exe X) 10)))"},{"Add":"; # (shift X)"},{"Add":" %86 = inttoptr i64 %82 to i64*"},{"Add":" %87 = getelementptr i64, i64* %86, i32 1"},{"Add":" %88 = load i64, i64* %87"},{"Add":"; # (pair (shift X))"},{"Add":" %89 = and i64 %88, 15"},{"Add":" %90 = icmp eq i64 %89, 0"},{"Add":" br i1 %90, label %$17, label %$18"},{"Add":"$17:"},{"Add":" %91 = phi i64 [%88, %$7] ; # X"},{"Add":" %92 = phi i8* [%83, %$7] ; # Crt"},{"Add":"; # (set $StkSizeT (shl (evCnt Exe X) 10))"},{"Add":"; # (evCnt Exe X)"},{"Add":" %93 = call i64 @evCnt(i64 %0, i64 %91)"},{"Add":"; # (shl (evCnt Exe X) 10)"},{"Add":" %94 = shl i64 %93, 10"},{"Add":" store i64 %94, i64* @$StkSizeT"},{"Add":" br label %$18"},{"Add":"$18:"},{"Add":" %95 = phi i64 [%88, %$7], [%91, %$17] ; # X"},{"Add":" %96 = phi i8* [%83, %$7], [%92, %$17] ; # Crt"},{"Add":"; # (when Crt (let (Siz (val $StkSizeT) Stk (stack)) (memset ((corout..."},{"Add":" %97 = icmp ne i8* %96, null"},{"Add":" br i1 %97, label %$19, label %$20"},{"Add":"$19:"},{"Add":" %98 = phi i64 [%95, %$18] ; # X"},{"Add":" %99 = phi i8* [%96, %$18] ; # Crt"},{"Add":"; # (let (Siz (val $StkSizeT) Stk (stack)) (memset ((coroutine Crt) l..."},{"Add":"; # (val $StkSizeT)"},{"Add":" %100 = load i64, i64* @$StkSizeT"},{"Add":"; # (stack)"},{"Add":" %101 = call i8* @llvm.stacksave()"},{"Add":"; # ((coroutine Crt) lim (stack (ofs Stk (- Siz))))"},{"Add":" %102 = getelementptr i8, i8* %99, i32 40"},{"Add":" %103 = bitcast i8* %102 to i8**"},{"Add":" %104 = sub i64 0, %100"},{"Add":" %105 = getelementptr i8, i8* %101, i64 %104"},{"Add":" call void @llvm.stackrestore(i8* %105)"},{"Add":" store i8* %105, i8** %103"},{"Add":"; # (- Siz 256)"},{"Add":" %106 = sub i64 %100, 256"},{"Add":"; # (memset ((coroutine Crt) lim (stack (ofs Stk (- Siz)))) 7 (- Siz ..."},{"Add":" call void @llvm.memset.p0i8.i64(i8* align 8 %105, i8 7, i64 %106, i1 0)"},{"Add":"; # (stack Stk)"},{"Add":" call void @llvm.stackrestore(i8* %101)"},{"Add":" br label %$20"},{"Add":"$20:"},{"Add":" %107 = phi i64 [%95, %$18], [%98, %$19] ; # X"},{"Add":" %108 = phi i8* [%96, %$18], [%99, %$19] ; # Crt"},{"Add":"; # (cnt N)"},{"Add":" %109 = shl i64 %84, 4"},{"Add":" %110 = or i64 %109, 2"},{"Add":" br label %$8"},{"Add":"$8:"},{"Add":" %111 = phi i64 [%79, %$11], [%107, %$20] ; # X"},{"Add":" %112 = phi i8* [%80, %$11], [%108, %$20] ; # Crt"},{"Add":" %113 = phi i64 [%81, %$11], [%110, %$20] ; # ->"},{"Add":" ret i64 %113"},{"Add":"}"},{"Add":""},{"Add":"define i64 @tmDate(i64, i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (if (and (gt0 Y) (gt0 M) (>= 12 M) (gt0 D) (or (>= (i64 (val (ofs..."},{"Add":"; # (and (gt0 Y) (gt0 M) (>= 12 M) (gt0 D) (or (>= (i64 (val (ofs $Mo..."},{"Add":"; # (gt0 Y)"},{"Add":" %3 = icmp sgt i64 %0, 0"},{"Add":" br i1 %3, label %$3, label %$2"},{"Add":"$3:"},{"Add":"; # (gt0 M)"},{"Add":" %4 = icmp sgt i64 %1, 0"},{"Add":" br i1 %4, label %$4, label %$2"},{"Add":"$4:"},{"Add":"; # (>= 12 M)"},{"Add":" %5 = icmp uge i64 12, %1"},{"Add":" br i1 %5, label %$5, label %$2"},{"Add":"$5:"},{"Add":"; # (gt0 D)"},{"Add":" %6 = icmp sgt i64 %2, 0"},{"Add":" br i1 %6, label %$6, label %$2"},{"Add":"$6:"},{"Add":"; # (or (>= (i64 (val (ofs $Month M))) D) (and (== D 29) (== M 2) (=0..."},{"Add":"; # (ofs $Month M)"},{"Add":" %7 = getelementptr i8, i8* bitcast ([13 x i8]* @$Month to i8*), i64 %1"},{"Add":"; # (val (ofs $Month M))"},{"Add":" %8 = load i8, i8* %7"},{"Add":"; # (i64 (val (ofs $Month M)))"},{"Add":" %9 = zext i8 %8 to i64"},{"Add":"; # (>= (i64 (val (ofs $Month M))) D)"},{"Add":" %10 = icmp uge i64 %9, %2"},{"Add":" br i1 %10, label %$7, label %$8"},{"Add":"$8:"},{"Add":"; # (and (== D 29) (== M 2) (=0 (% Y 4)) (or (% Y 100) (=0 (% Y 400))..."},{"Add":"; # (== D 29)"},{"Add":" %11 = icmp eq i64 %2, 29"},{"Add":" br i1 %11, label %$10, label %$9"},{"Add":"$10:"},{"Add":"; # (== M 2)"},{"Add":" %12 = icmp eq i64 %1, 2"},{"Add":" br i1 %12, label %$11, label %$9"},{"Add":"$11:"},{"Add":"; # (% Y 4)"},{"Add":" %13 = urem i64 %0, 4"},{"Add":"; # (=0 (% Y 4))"},{"Add":" %14 = icmp eq i64 %13, 0"},{"Add":" br i1 %14, label %$12, label %$9"},{"Add":"$12:"},{"Add":"; # (or (% Y 100) (=0 (% Y 400)))"},{"Add":"; # (% Y 100)"},{"Add":" %15 = urem i64 %0, 100"},{"Add":" %16 = icmp ne i64 %15, 0"},{"Add":" br i1 %16, label %$13, label %$14"},{"Add":"$14:"},{"Add":"; # (% Y 400)"},{"Add":" %17 = urem i64 %0, 400"},{"Add":"; # (=0 (% Y 400))"},{"Add":" %18 = icmp eq i64 %17, 0"},{"Add":" br label %$13"},{"Add":"$13:"},{"Add":" %19 = phi i1 [1, %$12], [%18, %$14] ; # ->"},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %20 = phi i1 [0, %$8], [0, %$10], [0, %$11], [%19, %$13] ; # ->"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %21 = phi i1 [1, %$6], [%20, %$9] ; # ->"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %22 = phi i1 [0, %$1], [0, %$3], [0, %$4], [0, %$5], [%21, %$7] ; # ->"},{"Add":" br i1 %22, label %$15, label %$16"},{"Add":"$15:"},{"Add":"; # (let N (/ (+ (* Y 12) M -3) 12) (cnt (- (+ (/ (+ (* Y 4404) (* M ..."},{"Add":"; # (* Y 12)"},{"Add":" %23 = mul i64 %0, 12"},{"Add":"; # (+ (* Y 12) M -3)"},{"Add":" %24 = add i64 %23, %1"},{"Add":" %25 = add i64 %24, -3"},{"Add":"; # (/ (+ (* Y 12) M -3) 12)"},{"Add":" %26 = udiv i64 %25, 12"},{"Add":"; # (* Y 4404)"},{"Add":" %27 = mul i64 %0, 4404"},{"Add":"; # (* M 367)"},{"Add":" %28 = mul i64 %1, 367"},{"Add":"; # (+ (* Y 4404) (* M 367) -1094)"},{"Add":" %29 = add i64 %27, %28"},{"Add":" %30 = add i64 %29, -1094"},{"Add":"; # (/ (+ (* Y 4404) (* M 367) -1094) 12)"},{"Add":" %31 = udiv i64 %30, 12"},{"Add":"; # (/ N 4)"},{"Add":" %32 = udiv i64 %26, 4"},{"Add":"; # (/ N 400)"},{"Add":" %33 = udiv i64 %26, 400"},{"Add":"; # (+ (/ (+ (* Y 4404) (* M 367) -1094) 12) (/ N 4) (/ N 400) D)"},{"Add":" %34 = add i64 %31, %32"},{"Add":" %35 = add i64 %34, %33"},{"Add":" %36 = add i64 %35, %2"},{"Add":"; # (* 2 N)"},{"Add":" %37 = mul i64 2, %26"},{"Add":"; # (/ N 100)"},{"Add":" %38 = udiv i64 %26, 100"},{"Add":"; # (- (+ (/ (+ (* Y 4404) (* M 367) -1094) 12) (/ N 4) (/ N 400) D) ..."},{"Add":" %39 = sub i64 %36, %37"},{"Add":" %40 = sub i64 %39, %38"},{"Add":"; # (cnt (- (+ (/ (+ (* Y 4404) (* M 367) -1094) 12) (/ N 4) (/ N 400..."},{"Add":" %41 = shl i64 %40, 4"},{"Add":" %42 = or i64 %41, 2"},{"Add":" br label %$17"},{"Add":"$16:"},{"Add":" br label %$17"},{"Add":"$17:"},{"Add":" %43 = phi i64 [%42, %$15], [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), %$16] ; # ->"},{"Add":" ret i64 %43"},{"Add":"}"},{"Add":""},{"Add":"define i64 @tmTime(i64, i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (if (and (ge0 H) (ge0 M) (> 60 M) (ge0 S) (> 60 S)) (cnt (+ (* H ..."},{"Add":"; # (and (ge0 H) (ge0 M) (> 60 M) (ge0 S) (> 60 S))"},{"Add":"; # (ge0 H)"},{"Add":" %3 = icmp sge i64 %0, 0"},{"Add":" br i1 %3, label %$3, label %$2"},{"Add":"$3:"},{"Add":"; # (ge0 M)"},{"Add":" %4 = icmp sge i64 %1, 0"},{"Add":" br i1 %4, label %$4, label %$2"},{"Add":"$4:"},{"Add":"; # (> 60 M)"},{"Add":" %5 = icmp ugt i64 60, %1"},{"Add":" br i1 %5, label %$5, label %$2"},{"Add":"$5:"},{"Add":"; # (ge0 S)"},{"Add":" %6 = icmp sge i64 %2, 0"},{"Add":" br i1 %6, label %$6, label %$2"},{"Add":"$6:"},{"Add":"; # (> 60 S)"},{"Add":" %7 = icmp ugt i64 60, %2"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %8 = phi i1 [0, %$1], [0, %$3], [0, %$4], [0, %$5], [%7, %$6] ; # ->"},{"Add":" br i1 %8, label %$7, label %$8"},{"Add":"$7:"},{"Add":"; # (* H 3600)"},{"Add":" %9 = mul i64 %0, 3600"},{"Add":"; # (* M 60)"},{"Add":" %10 = mul i64 %1, 60"},{"Add":"; # (+ (* H 3600) (* M 60) S)"},{"Add":" %11 = add i64 %9, %10"},{"Add":" %12 = add i64 %11, %2"},{"Add":"; # (cnt (+ (* H 3600) (* M 60) S))"},{"Add":" %13 = shl i64 %12, 4"},{"Add":" %14 = or i64 %13, 2"},{"Add":" br label %$9"},{"Add":"$8:"},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %15 = phi i64 [%14, %$7], [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), %$8] ; # ->"},{"Add":" ret i64 %15"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Date(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let X (cdr Exe) (cond ((atom X) (let N (getDate) (tmDate (& N (h..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (cond ((atom X) (let N (getDate) (tmDate (& N (hex \"FFFF\")) (& (s..."},{"Add":"; # (atom X)"},{"Add":" %4 = and i64 %3, 15"},{"Add":" %5 = icmp ne i64 %4, 0"},{"Add":" br i1 %5, label %$4, label %$3"},{"Add":"$4:"},{"Add":" %6 = phi i64 [%3, %$1] ; # X"},{"Add":"; # (let N (getDate) (tmDate (& N (hex \"FFFF\")) (& (shr N 16) (hex \"F..."},{"Add":"; # (getDate)"},{"Add":" %7 = call i64 @getDate()"},{"Add":"; # (& N (hex \"FFFF\"))"},{"Add":" %8 = and i64 %7, 65535"},{"Add":"; # (shr N 16)"},{"Add":" %9 = lshr i64 %7, 16"},{"Add":"; # (& (shr N 16) (hex \"FF\"))"},{"Add":" %10 = and i64 %9, 255"},{"Add":"; # (shr N 24)"},{"Add":" %11 = lshr i64 %7, 24"},{"Add":"; # (& (shr N 24) (hex \"FF\"))"},{"Add":" %12 = and i64 %11, 255"},{"Add":"; # (tmDate (& N (hex \"FFFF\")) (& (shr N 16) (hex \"FF\")) (& (shr N 24..."},{"Add":" %13 = call i64 @tmDate(i64 %8, i64 %10, i64 %12)"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %14 = phi i64 [%3, %$1] ; # X"},{"Add":"; # (car X)"},{"Add":" %15 = inttoptr i64 %14 to i64*"},{"Add":" %16 = load i64, i64* %15"},{"Add":"; # (eval (car X))"},{"Add":" %17 = and i64 %16, 6"},{"Add":" %18 = icmp ne i64 %17, 0"},{"Add":" br i1 %18, label %$7, label %$6"},{"Add":"$7:"},{"Add":" br label %$5"},{"Add":"$6:"},{"Add":" %19 = and i64 %16, 8"},{"Add":" %20 = icmp ne i64 %19, 0"},{"Add":" br i1 %20, label %$9, label %$8"},{"Add":"$9:"},{"Add":" %21 = inttoptr i64 %16 to i64*"},{"Add":" %22 = load i64, i64* %21"},{"Add":" br label %$5"},{"Add":"$8:"},{"Add":" %23 = call i64 @evList(i64 %16)"},{"Add":" br label %$5"},{"Add":"$5:"},{"Add":" %24 = phi i64 [%16, %$7], [%22, %$9], [%23, %$8] ; # ->"},{"Add":"; # (t? (eval (car X)))"},{"Add":" %25 = icmp eq i64 %24, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 280) to i64)"},{"Add":" br i1 %25, label %$11, label %$10"},{"Add":"$11:"},{"Add":" %26 = phi i64 [%14, %$5] ; # X"},{"Add":"; # (let N (getGmDate) (tmDate (& N (hex \"FFFF\")) (& (shr N 16) (hex ..."},{"Add":"; # (getGmDate)"},{"Add":" %27 = call i64 @getGmDate()"},{"Add":"; # (& N (hex \"FFFF\"))"},{"Add":" %28 = and i64 %27, 65535"},{"Add":"; # (shr N 16)"},{"Add":" %29 = lshr i64 %27, 16"},{"Add":"; # (& (shr N 16) (hex \"FF\"))"},{"Add":" %30 = and i64 %29, 255"},{"Add":"; # (shr N 24)"},{"Add":" %31 = lshr i64 %27, 24"},{"Add":"; # (& (shr N 24) (hex \"FF\"))"},{"Add":" %32 = and i64 %31, 255"},{"Add":"; # (tmDate (& N (hex \"FFFF\")) (& (shr N 16) (hex \"FF\")) (& (shr N 24..."},{"Add":" %33 = call i64 @tmDate(i64 %28, i64 %30, i64 %32)"},{"Add":" br label %$2"},{"Add":"$10:"},{"Add":" %34 = phi i64 [%14, %$5] ; # X"},{"Add":"; # (nil? @)"},{"Add":" %35 = icmp eq i64 %24, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %35, label %$13, label %$12"},{"Add":"$13:"},{"Add":" %36 = phi i64 [%34, %$10] ; # X"},{"Add":" br label %$2"},{"Add":"$12:"},{"Add":" %37 = phi i64 [%34, %$10] ; # X"},{"Add":"; # (pair @)"},{"Add":" %38 = and i64 %24, 15"},{"Add":" %39 = icmp eq i64 %38, 0"},{"Add":" br i1 %39, label %$15, label %$14"},{"Add":"$15:"},{"Add":" %40 = phi i64 [%37, %$12] ; # X"},{"Add":"; # (let L @ (tmDate (xCnt Exe (++ L)) (xCnt Exe (++ L)) (xCnt Exe (c..."},{"Add":"; # (++ L)"},{"Add":" %41 = inttoptr i64 %24 to i64*"},{"Add":" %42 = load i64, i64* %41"},{"Add":" %43 = getelementptr i64, i64* %41, i32 1"},{"Add":" %44 = load i64, i64* %43"},{"Add":"; # (xCnt Exe (++ L))"},{"Add":" %45 = call i64 @xCnt(i64 %0, i64 %42)"},{"Add":"; # (++ L)"},{"Add":" %46 = inttoptr i64 %44 to i64*"},{"Add":" %47 = load i64, i64* %46"},{"Add":" %48 = getelementptr i64, i64* %46, i32 1"},{"Add":" %49 = load i64, i64* %48"},{"Add":"; # (xCnt Exe (++ L))"},{"Add":" %50 = call i64 @xCnt(i64 %0, i64 %47)"},{"Add":"; # (car L)"},{"Add":" %51 = inttoptr i64 %49 to i64*"},{"Add":" %52 = load i64, i64* %51"},{"Add":"; # (xCnt Exe (car L))"},{"Add":" %53 = call i64 @xCnt(i64 %0, i64 %52)"},{"Add":"; # (tmDate (xCnt Exe (++ L)) (xCnt Exe (++ L)) (xCnt Exe (car L)))"},{"Add":" %54 = call i64 @tmDate(i64 %45, i64 %50, i64 %53)"},{"Add":" br label %$2"},{"Add":"$14:"},{"Add":" %55 = phi i64 [%37, %$12] ; # X"},{"Add":"; # (let N @ (cond ((pair (shift X)) (tmDate (xCnt Exe N) (evCnt Exe ..."},{"Add":"; # (cond ((pair (shift X)) (tmDate (xCnt Exe N) (evCnt Exe X) (evCnt..."},{"Add":"; # (shift X)"},{"Add":" %56 = inttoptr i64 %55 to i64*"},{"Add":" %57 = getelementptr i64, i64* %56, i32 1"},{"Add":" %58 = load i64, i64* %57"},{"Add":"; # (pair (shift X))"},{"Add":" %59 = and i64 %58, 15"},{"Add":" %60 = icmp eq i64 %59, 0"},{"Add":" br i1 %60, label %$18, label %$17"},{"Add":"$18:"},{"Add":" %61 = phi i64 [%58, %$14] ; # X"},{"Add":" %62 = phi i64 [%24, %$14] ; # N"},{"Add":"; # (xCnt Exe N)"},{"Add":" %63 = call i64 @xCnt(i64 %0, i64 %62)"},{"Add":"; # (evCnt Exe X)"},{"Add":" %64 = call i64 @evCnt(i64 %0, i64 %61)"},{"Add":"; # (cdr X)"},{"Add":" %65 = inttoptr i64 %61 to i64*"},{"Add":" %66 = getelementptr i64, i64* %65, i32 1"},{"Add":" %67 = load i64, i64* %66"},{"Add":"; # (evCnt Exe (cdr X))"},{"Add":" %68 = call i64 @evCnt(i64 %0, i64 %67)"},{"Add":"; # (tmDate (xCnt Exe N) (evCnt Exe X) (evCnt Exe (cdr X)))"},{"Add":" %69 = call i64 @tmDate(i64 %63, i64 %64, i64 %68)"},{"Add":" br label %$16"},{"Add":"$17:"},{"Add":" %70 = phi i64 [%58, %$14] ; # X"},{"Add":" %71 = phi i64 [%24, %$14] ; # N"},{"Add":"; # (xCnt Exe N)"},{"Add":" %72 = call i64 @xCnt(i64 %0, i64 %71)"},{"Add":"; # (lt0 (setq N (xCnt Exe N)))"},{"Add":" %73 = icmp slt i64 %72, 0"},{"Add":" br i1 %73, label %$20, label %$19"},{"Add":"$20:"},{"Add":" %74 = phi i64 [%70, %$17] ; # X"},{"Add":" %75 = phi i64 [%72, %$17] ; # N"},{"Add":" br label %$16"},{"Add":"$19:"},{"Add":" %76 = phi i64 [%70, %$17] ; # X"},{"Add":" %77 = phi i64 [%72, %$17] ; # N"},{"Add":"; # (let Y (/ (- (* N 100) 20) 3652425) (setq N (+ N (- Y (/ Y 4))) Y..."},{"Add":"; # (* N 100)"},{"Add":" %78 = mul i64 %77, 100"},{"Add":"; # (- (* N 100) 20)"},{"Add":" %79 = sub i64 %78, 20"},{"Add":"; # (/ (- (* N 100) 20) 3652425)"},{"Add":" %80 = udiv i64 %79, 3652425"},{"Add":"; # (/ Y 4)"},{"Add":" %81 = udiv i64 %80, 4"},{"Add":"; # (- Y (/ Y 4))"},{"Add":" %82 = sub i64 %80, %81"},{"Add":"; # (+ N (- Y (/ Y 4)))"},{"Add":" %83 = add i64 %77, %82"},{"Add":"; # (* N 100)"},{"Add":" %84 = mul i64 %83, 100"},{"Add":"; # (- (* N 100) 20)"},{"Add":" %85 = sub i64 %84, 20"},{"Add":"; # (/ (- (* N 100) 20) 36525)"},{"Add":" %86 = udiv i64 %85, 36525"},{"Add":"; # (* Y 36525)"},{"Add":" %87 = mul i64 %86, 36525"},{"Add":"; # (/ (* Y 36525) 100)"},{"Add":" %88 = udiv i64 %87, 100"},{"Add":"; # (- N (/ (* Y 36525) 100))"},{"Add":" %89 = sub i64 %83, %88"},{"Add":"; # (* (- N (/ (* Y 36525) 100)) 10)"},{"Add":" %90 = mul i64 %89, 10"},{"Add":"; # (let (M (/ (- N 5) 306) D (/ (+ N (* M -306) 5) 10)) (if (> 10 M)..."},{"Add":"; # (- N 5)"},{"Add":" %91 = sub i64 %90, 5"},{"Add":"; # (/ (- N 5) 306)"},{"Add":" %92 = udiv i64 %91, 306"},{"Add":"; # (* M -306)"},{"Add":" %93 = mul i64 %92, -306"},{"Add":"; # (+ N (* M -306) 5)"},{"Add":" %94 = add i64 %90, %93"},{"Add":" %95 = add i64 %94, 5"},{"Add":"; # (/ (+ N (* M -306) 5) 10)"},{"Add":" %96 = udiv i64 %95, 10"},{"Add":"; # (if (> 10 M) (inc 'M 3) (inc 'Y) (dec 'M 9))"},{"Add":"; # (> 10 M)"},{"Add":" %97 = icmp ugt i64 10, %92"},{"Add":" br i1 %97, label %$21, label %$22"},{"Add":"$21:"},{"Add":" %98 = phi i64 [%76, %$19] ; # X"},{"Add":" %99 = phi i64 [%90, %$19] ; # N"},{"Add":" %100 = phi i64 [%86, %$19] ; # Y"},{"Add":" %101 = phi i64 [%92, %$19] ; # M"},{"Add":"; # (inc 'M 3)"},{"Add":" %102 = add i64 %101, 3"},{"Add":" br label %$23"},{"Add":"$22:"},{"Add":" %103 = phi i64 [%76, %$19] ; # X"},{"Add":" %104 = phi i64 [%90, %$19] ; # N"},{"Add":" %105 = phi i64 [%86, %$19] ; # Y"},{"Add":" %106 = phi i64 [%92, %$19] ; # M"},{"Add":"; # (inc 'Y)"},{"Add":" %107 = add i64 %105, 1"},{"Add":"; # (dec 'M 9)"},{"Add":" %108 = sub i64 %106, 9"},{"Add":" br label %$23"},{"Add":"$23:"},{"Add":" %109 = phi i64 [%98, %$21], [%103, %$22] ; # X"},{"Add":" %110 = phi i64 [%99, %$21], [%104, %$22] ; # N"},{"Add":" %111 = phi i64 [%100, %$21], [%107, %$22] ; # Y"},{"Add":" %112 = phi i64 [%102, %$21], [%108, %$22] ; # M"},{"Add":" %113 = phi i64 [%102, %$21], [%108, %$22] ; # ->"},{"Add":"; # (cnt Y)"},{"Add":" %114 = shl i64 %111, 4"},{"Add":" %115 = or i64 %114, 2"},{"Add":"; # (cnt M)"},{"Add":" %116 = shl i64 %112, 4"},{"Add":" %117 = or i64 %116, 2"},{"Add":"; # (cnt D)"},{"Add":" %118 = shl i64 %96, 4"},{"Add":" %119 = or i64 %118, 2"},{"Add":"; # (cons (cnt D) $Nil)"},{"Add":" %120 = call i64 @cons(i64 %119, i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64))"},{"Add":"; # (cons (cnt M) (cons (cnt D) $Nil))"},{"Add":" %121 = call i64 @cons(i64 %117, i64 %120)"},{"Add":"; # (cons (cnt Y) (cons (cnt M) (cons (cnt D) $Nil)))"},{"Add":" %122 = call i64 @cons(i64 %115, i64 %121)"},{"Add":" br label %$16"},{"Add":"$16:"},{"Add":" %123 = phi i64 [%61, %$18], [%74, %$20], [%109, %$23] ; # X"},{"Add":" %124 = phi i64 [%62, %$18], [%75, %$20], [%110, %$23] ; # N"},{"Add":" %125 = phi i64 [%69, %$18], [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), %$20], [%122, %$23] ; # ->"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %126 = phi i64 [%6, %$4], [%26, %$11], [%36, %$13], [%40, %$15], [%123, %$16] ; # X"},{"Add":" %127 = phi i64 [%13, %$4], [%33, %$11], [%24, %$13], [%54, %$15], [%125, %$16] ; # ->"},{"Add":" ret i64 %127"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Time(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let X (cdr Exe) (cond ((atom X) (cnt (getTime))) ((t? (eval (car..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (cond ((atom X) (cnt (getTime))) ((t? (eval (car X))) (if (lt0 (g..."},{"Add":"; # (atom X)"},{"Add":" %4 = and i64 %3, 15"},{"Add":" %5 = icmp ne i64 %4, 0"},{"Add":" br i1 %5, label %$4, label %$3"},{"Add":"$4:"},{"Add":" %6 = phi i64 [%3, %$1] ; # X"},{"Add":"; # (getTime)"},{"Add":" %7 = call i64 @getTime()"},{"Add":"; # (cnt (getTime))"},{"Add":" %8 = shl i64 %7, 4"},{"Add":" %9 = or i64 %8, 2"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %10 = phi i64 [%3, %$1] ; # X"},{"Add":"; # (car X)"},{"Add":" %11 = inttoptr i64 %10 to i64*"},{"Add":" %12 = load i64, i64* %11"},{"Add":"; # (eval (car X))"},{"Add":" %13 = and i64 %12, 6"},{"Add":" %14 = icmp ne i64 %13, 0"},{"Add":" br i1 %14, label %$7, label %$6"},{"Add":"$7:"},{"Add":" br label %$5"},{"Add":"$6:"},{"Add":" %15 = and i64 %12, 8"},{"Add":" %16 = icmp ne i64 %15, 0"},{"Add":" br i1 %16, label %$9, label %$8"},{"Add":"$9:"},{"Add":" %17 = inttoptr i64 %12 to i64*"},{"Add":" %18 = load i64, i64* %17"},{"Add":" br label %$5"},{"Add":"$8:"},{"Add":" %19 = call i64 @evList(i64 %12)"},{"Add":" br label %$5"},{"Add":"$5:"},{"Add":" %20 = phi i64 [%12, %$7], [%18, %$9], [%19, %$8] ; # ->"},{"Add":"; # (t? (eval (car X)))"},{"Add":" %21 = icmp eq i64 %20, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 280) to i64)"},{"Add":" br i1 %21, label %$11, label %$10"},{"Add":"$11:"},{"Add":" %22 = phi i64 [%10, %$5] ; # X"},{"Add":"; # (if (lt0 (getGmTime)) $Nil (cnt @))"},{"Add":"; # (getGmTime)"},{"Add":" %23 = call i64 @getGmTime()"},{"Add":"; # (lt0 (getGmTime))"},{"Add":" %24 = icmp slt i64 %23, 0"},{"Add":" br i1 %24, label %$12, label %$13"},{"Add":"$12:"},{"Add":" %25 = phi i64 [%22, %$11] ; # X"},{"Add":" br label %$14"},{"Add":"$13:"},{"Add":" %26 = phi i64 [%22, %$11] ; # X"},{"Add":"; # (cnt @)"},{"Add":" %27 = shl i64 %23, 4"},{"Add":" %28 = or i64 %27, 2"},{"Add":" br label %$14"},{"Add":"$14:"},{"Add":" %29 = phi i64 [%25, %$12], [%26, %$13] ; # X"},{"Add":" %30 = phi i64 [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), %$12], [%28, %$13] ; # ->"},{"Add":" br label %$2"},{"Add":"$10:"},{"Add":" %31 = phi i64 [%10, %$5] ; # X"},{"Add":"; # (nil? @)"},{"Add":" %32 = icmp eq i64 %20, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %32, label %$16, label %$15"},{"Add":"$16:"},{"Add":" %33 = phi i64 [%31, %$10] ; # X"},{"Add":" br label %$2"},{"Add":"$15:"},{"Add":" %34 = phi i64 [%31, %$10] ; # X"},{"Add":"; # (pair @)"},{"Add":" %35 = and i64 %20, 15"},{"Add":" %36 = icmp eq i64 %35, 0"},{"Add":" br i1 %36, label %$18, label %$17"},{"Add":"$18:"},{"Add":" %37 = phi i64 [%34, %$15] ; # X"},{"Add":"; # (let L @ (tmTime (xCnt Exe (++ L)) (xCnt Exe (++ L)) (if (pair L)..."},{"Add":"; # (++ L)"},{"Add":" %38 = inttoptr i64 %20 to i64*"},{"Add":" %39 = load i64, i64* %38"},{"Add":" %40 = getelementptr i64, i64* %38, i32 1"},{"Add":" %41 = load i64, i64* %40"},{"Add":"; # (xCnt Exe (++ L))"},{"Add":" %42 = call i64 @xCnt(i64 %0, i64 %39)"},{"Add":"; # (++ L)"},{"Add":" %43 = inttoptr i64 %41 to i64*"},{"Add":" %44 = load i64, i64* %43"},{"Add":" %45 = getelementptr i64, i64* %43, i32 1"},{"Add":" %46 = load i64, i64* %45"},{"Add":"; # (xCnt Exe (++ L))"},{"Add":" %47 = call i64 @xCnt(i64 %0, i64 %44)"},{"Add":"; # (if (pair L) (xCnt Exe (car L)) 0)"},{"Add":"; # (pair L)"},{"Add":" %48 = and i64 %46, 15"},{"Add":" %49 = icmp eq i64 %48, 0"},{"Add":" br i1 %49, label %$19, label %$20"},{"Add":"$19:"},{"Add":" %50 = phi i64 [%37, %$18] ; # X"},{"Add":" %51 = phi i64 [%46, %$18] ; # L"},{"Add":"; # (car L)"},{"Add":" %52 = inttoptr i64 %51 to i64*"},{"Add":" %53 = load i64, i64* %52"},{"Add":"; # (xCnt Exe (car L))"},{"Add":" %54 = call i64 @xCnt(i64 %0, i64 %53)"},{"Add":" br label %$21"},{"Add":"$20:"},{"Add":" %55 = phi i64 [%37, %$18] ; # X"},{"Add":" %56 = phi i64 [%46, %$18] ; # L"},{"Add":" br label %$21"},{"Add":"$21:"},{"Add":" %57 = phi i64 [%50, %$19], [%55, %$20] ; # X"},{"Add":" %58 = phi i64 [%51, %$19], [%56, %$20] ; # L"},{"Add":" %59 = phi i64 [%54, %$19], [0, %$20] ; # ->"},{"Add":"; # (tmTime (xCnt Exe (++ L)) (xCnt Exe (++ L)) (if (pair L) (xCnt Ex..."},{"Add":" %60 = call i64 @tmTime(i64 %42, i64 %47, i64 %59)"},{"Add":" br label %$2"},{"Add":"$17:"},{"Add":" %61 = phi i64 [%34, %$15] ; # X"},{"Add":"; # (let N @ (cond ((pair (shift X)) (tmTime (xCnt Exe N) (evCnt Exe ..."},{"Add":"; # (cond ((pair (shift X)) (tmTime (xCnt Exe N) (evCnt Exe X) (if (p..."},{"Add":"; # (shift X)"},{"Add":" %62 = inttoptr i64 %61 to i64*"},{"Add":" %63 = getelementptr i64, i64* %62, i32 1"},{"Add":" %64 = load i64, i64* %63"},{"Add":"; # (pair (shift X))"},{"Add":" %65 = and i64 %64, 15"},{"Add":" %66 = icmp eq i64 %65, 0"},{"Add":" br i1 %66, label %$24, label %$23"},{"Add":"$24:"},{"Add":" %67 = phi i64 [%64, %$17] ; # X"},{"Add":" %68 = phi i64 [%20, %$17] ; # N"},{"Add":"; # (xCnt Exe N)"},{"Add":" %69 = call i64 @xCnt(i64 %0, i64 %68)"},{"Add":"; # (evCnt Exe X)"},{"Add":" %70 = call i64 @evCnt(i64 %0, i64 %67)"},{"Add":"; # (if (pair (shift X)) (evCnt Exe X) 0)"},{"Add":"; # (shift X)"},{"Add":" %71 = inttoptr i64 %67 to i64*"},{"Add":" %72 = getelementptr i64, i64* %71, i32 1"},{"Add":" %73 = load i64, i64* %72"},{"Add":"; # (pair (shift X))"},{"Add":" %74 = and i64 %73, 15"},{"Add":" %75 = icmp eq i64 %74, 0"},{"Add":" br i1 %75, label %$25, label %$26"},{"Add":"$25:"},{"Add":" %76 = phi i64 [%73, %$24] ; # X"},{"Add":" %77 = phi i64 [%68, %$24] ; # N"},{"Add":"; # (evCnt Exe X)"},{"Add":" %78 = call i64 @evCnt(i64 %0, i64 %76)"},{"Add":" br label %$27"},{"Add":"$26:"},{"Add":" %79 = phi i64 [%73, %$24] ; # X"},{"Add":" %80 = phi i64 [%68, %$24] ; # N"},{"Add":" br label %$27"},{"Add":"$27:"},{"Add":" %81 = phi i64 [%76, %$25], [%79, %$26] ; # X"},{"Add":" %82 = phi i64 [%77, %$25], [%80, %$26] ; # N"},{"Add":" %83 = phi i64 [%78, %$25], [0, %$26] ; # ->"},{"Add":"; # (tmTime (xCnt Exe N) (evCnt Exe X) (if (pair (shift X)) (evCnt Ex..."},{"Add":" %84 = call i64 @tmTime(i64 %69, i64 %70, i64 %83)"},{"Add":" br label %$22"},{"Add":"$23:"},{"Add":" %85 = phi i64 [%64, %$17] ; # X"},{"Add":" %86 = phi i64 [%20, %$17] ; # N"},{"Add":"; # (xCnt Exe N)"},{"Add":" %87 = call i64 @xCnt(i64 %0, i64 %86)"},{"Add":"; # (lt0 (setq N (xCnt Exe N)))"},{"Add":" %88 = icmp slt i64 %87, 0"},{"Add":" br i1 %88, label %$29, label %$28"},{"Add":"$29:"},{"Add":" %89 = phi i64 [%85, %$23] ; # X"},{"Add":" %90 = phi i64 [%87, %$23] ; # N"},{"Add":" br label %$22"},{"Add":"$28:"},{"Add":" %91 = phi i64 [%85, %$23] ; # X"},{"Add":" %92 = phi i64 [%87, %$23] ; # N"},{"Add":"; # (/ N 3600)"},{"Add":" %93 = udiv i64 %92, 3600"},{"Add":"; # (cnt (/ N 3600))"},{"Add":" %94 = shl i64 %93, 4"},{"Add":" %95 = or i64 %94, 2"},{"Add":"; # (/ N 60)"},{"Add":" %96 = udiv i64 %92, 60"},{"Add":"; # (% (/ N 60) 60)"},{"Add":" %97 = urem i64 %96, 60"},{"Add":"; # (cnt (% (/ N 60) 60))"},{"Add":" %98 = shl i64 %97, 4"},{"Add":" %99 = or i64 %98, 2"},{"Add":"; # (% N 60)"},{"Add":" %100 = urem i64 %92, 60"},{"Add":"; # (cnt (% N 60))"},{"Add":" %101 = shl i64 %100, 4"},{"Add":" %102 = or i64 %101, 2"},{"Add":"; # (cons (cnt (% N 60)) $Nil)"},{"Add":" %103 = call i64 @cons(i64 %102, i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64))"},{"Add":"; # (cons (cnt (% (/ N 60) 60)) (cons (cnt (% N 60)) $Nil))"},{"Add":" %104 = call i64 @cons(i64 %99, i64 %103)"},{"Add":"; # (cons (cnt (/ N 3600)) (cons (cnt (% (/ N 60) 60)) (cons (cnt (% ..."},{"Add":" %105 = call i64 @cons(i64 %95, i64 %104)"},{"Add":" br label %$22"},{"Add":"$22:"},{"Add":" %106 = phi i64 [%81, %$27], [%89, %$29], [%91, %$28] ; # X"},{"Add":" %107 = phi i64 [%82, %$27], [%90, %$29], [%92, %$28] ; # N"},{"Add":" %108 = phi i64 [%84, %$27], [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), %$29], [%105, %$28] ; # ->"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %109 = phi i64 [%6, %$4], [%29, %$14], [%33, %$16], [%57, %$21], [%106, %$22] ; # X"},{"Add":" %110 = phi i64 [%9, %$4], [%30, %$14], [%20, %$16], [%60, %$21], [%108, %$22] ; # ->"},{"Add":" ret i64 %110"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Usec(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (if (nil? (eval (cadr Exe))) (- (getUsec YES) (val $USec)) (getUs..."},{"Add":"; # (cadr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":"; # (eval (cadr Exe))"},{"Add":" %6 = and i64 %5, 6"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$4, label %$3"},{"Add":"$4:"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %8 = and i64 %5, 8"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br i1 %9, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %10 = inttoptr i64 %5 to i64*"},{"Add":" %11 = load i64, i64* %10"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":" %12 = call i64 @evList(i64 %5)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %13 = phi i64 [%5, %$4], [%11, %$6], [%12, %$5] ; # ->"},{"Add":"; # (nil? (eval (cadr Exe)))"},{"Add":" %14 = icmp eq i64 %13, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %14, label %$7, label %$8"},{"Add":"$7:"},{"Add":"; # (getUsec YES)"},{"Add":" %15 = call i64 @getUsec(i1 1)"},{"Add":"; # (val $USec)"},{"Add":" %16 = load i64, i64* @$USec"},{"Add":"; # (- (getUsec YES) (val $USec))"},{"Add":" %17 = sub i64 %15, %16"},{"Add":" br label %$9"},{"Add":"$8:"},{"Add":"; # (getUsec NO)"},{"Add":" %18 = call i64 @getUsec(i1 0)"},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %19 = phi i64 [%17, %$7], [%18, %$8] ; # ->"},{"Add":"; # (cnt (if (nil? (eval (cadr Exe))) (- (getUsec YES) (val $USec)) (..."},{"Add":" %20 = shl i64 %19, 4"},{"Add":" %21 = or i64 %20, 2"},{"Add":" ret i64 %21"},{"Add":"}"},{"Add":""},{"Add":"define i1 @sharedLib(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let (Nm (xName 0 Sym) S (bufString Nm (b8 (bufSize Nm))) P (strc..."},{"Add":"; # (xName 0 Sym)"},{"Add":" %1 = call i64 @xName(i64 0, i64 %0)"},{"Add":"; # (bufSize Nm)"},{"Add":" %2 = call i64 @bufSize(i64 %1)"},{"Add":"; # (b8 (bufSize Nm))"},{"Add":" %3 = alloca i8, i64 %2"},{"Add":"; # (bufString Nm (b8 (bufSize Nm)))"},{"Add":" %4 = call i8* @bufString(i64 %1, i8* %3)"},{"Add":"; # (strchr S (char \":\"))"},{"Add":" %5 = call i8* @strchr(i8* %4, i32 58)"},{"Add":"; # (and P (<> P S) (val 2 P) (let N (val $PilLen) (set P 0) (let (Le..."},{"Add":" %6 = icmp ne i8* %5, null"},{"Add":" br i1 %6, label %$3, label %$2"},{"Add":"$3:"},{"Add":"; # (<> P S)"},{"Add":" %7 = icmp ne i8* %5, %4"},{"Add":" br i1 %7, label %$4, label %$2"},{"Add":"$4:"},{"Add":"; # (val 2 P)"},{"Add":" %8 = getelementptr i8, i8* %5, i32 1"},{"Add":" %9 = load i8, i8* %8"},{"Add":" %10 = icmp ne i8 %9, 0"},{"Add":" br i1 %10, label %$5, label %$2"},{"Add":"$5:"},{"Add":"; # (let N (val $PilLen) (set P 0) (let (Len (strlen S) Q (b8 (+ N Le..."},{"Add":"; # (val $PilLen)"},{"Add":" %11 = load i64, i64* @$PilLen"},{"Add":"; # (set P 0)"},{"Add":" store i8 0, i8* %5"},{"Add":"; # (let (Len (strlen S) Q (b8 (+ N Len (+ 4 3 1)))) (if (strchr S (c..."},{"Add":"; # (strlen S)"},{"Add":" %12 = call i64 @strlen(i8* %4)"},{"Add":"; # (+ 4 3 1)"},{"Add":"; # (+ N Len (+ 4 3 1))"},{"Add":" %13 = add i64 %11, %12"},{"Add":" %14 = add i64 %13, 8"},{"Add":"; # (b8 (+ N Len (+ 4 3 1)))"},{"Add":" %15 = alloca i8, i64 %14"},{"Add":"; # (if (strchr S (char \"/\")) (strcpy Q S) (when N (memcpy Q (val $Pi..."},{"Add":"; # (strchr S (char \"/\"))"},{"Add":" %16 = call i8* @strchr(i8* %4, i32 47)"},{"Add":" %17 = icmp ne i8* %16, null"},{"Add":" br i1 %17, label %$6, label %$7"},{"Add":"$6:"},{"Add":" %18 = phi i64 [%12, %$5] ; # Len"},{"Add":"; # (strcpy Q S)"},{"Add":" %19 = call i8* @strcpy(i8* %15, i8* %4)"},{"Add":" br label %$8"},{"Add":"$7:"},{"Add":" %20 = phi i64 [%12, %$5] ; # Len"},{"Add":"; # (when N (memcpy Q (val $PilHome) N))"},{"Add":" %21 = icmp ne i64 %11, 0"},{"Add":" br i1 %21, label %$9, label %$10"},{"Add":"$9:"},{"Add":" %22 = phi i64 [%20, %$7] ; # Len"},{"Add":"; # (val $PilHome)"},{"Add":" %23 = load i8*, i8** @$PilHome"},{"Add":"; # (memcpy Q (val $PilHome) N)"},{"Add":" call void @llvm.memcpy.p0i8.p0i8.i64(i8* %15, i8* %23, i64 %11, i1 0)"},{"Add":" br label %$10"},{"Add":"$10:"},{"Add":" %24 = phi i64 [%20, %$7], [%22, %$9] ; # Len"},{"Add":"; # (ofs Q N)"},{"Add":" %25 = getelementptr i8, i8* %15, i64 %11"},{"Add":"; # (strcpy (ofs Q N) ($ \"lib/\"))"},{"Add":" %26 = call i8* @strcpy(i8* %25, i8* bitcast ([5 x i8]* @$25 to i8*))"},{"Add":"; # (+ N 4)"},{"Add":" %27 = add i64 %11, 4"},{"Add":"; # (ofs Q (+ N 4))"},{"Add":" %28 = getelementptr i8, i8* %15, i64 %27"},{"Add":"; # (strcpy (ofs Q (+ N 4)) S)"},{"Add":" %29 = call i8* @strcpy(i8* %28, i8* %4)"},{"Add":"; # (+ Len N 4)"},{"Add":" %30 = add i64 %24, %11"},{"Add":" %31 = add i64 %30, 4"},{"Add":" br label %$8"},{"Add":"$8:"},{"Add":" %32 = phi i64 [%18, %$6], [%31, %$10] ; # Len"},{"Add":"; # (ofs Q Len)"},{"Add":" %33 = getelementptr i8, i8* %15, i64 %32"},{"Add":"; # (strcpy (ofs Q Len) ($ \".so\"))"},{"Add":" %34 = call i8* @strcpy(i8* %33, i8* bitcast ([4 x i8]* @$26 to i8*))"},{"Add":"; # (and (dlOpen Q) (dlsym @ (inc P)) (prog (set Sym (| (i64 @) 2)) Y..."},{"Add":"; # (dlOpen Q)"},{"Add":" %35 = call i8* @dlOpen(i8* %15)"},{"Add":" %36 = icmp ne i8* %35, null"},{"Add":" br i1 %36, label %$12, label %$11"},{"Add":"$12:"},{"Add":" %37 = phi i64 [%32, %$8] ; # Len"},{"Add":"; # (inc P)"},{"Add":" %38 = getelementptr i8, i8* %5, i32 1"},{"Add":"; # (dlsym @ (inc P))"},{"Add":" %39 = call i8* @dlsym(i8* %35, i8* %38)"},{"Add":" %40 = icmp ne i8* %39, null"},{"Add":" br i1 %40, label %$13, label %$11"},{"Add":"$13:"},{"Add":" %41 = phi i64 [%37, %$12] ; # Len"},{"Add":"; # (set Sym (| (i64 @) 2))"},{"Add":"; # (i64 @)"},{"Add":" %42 = ptrtoint i8* %39 to i64"},{"Add":"; # (| (i64 @) 2)"},{"Add":" %43 = or i64 %42, 2"},{"Add":" %44 = inttoptr i64 %0 to i64*"},{"Add":" store i64 %43, i64* %44"},{"Add":" br label %$11"},{"Add":"$11:"},{"Add":" %45 = phi i64 [%32, %$8], [%37, %$12], [%41, %$13] ; # Len"},{"Add":" %46 = phi i1 [0, %$8], [0, %$12], [1, %$13] ; # ->"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %47 = phi i1 [0, %$1], [0, %$3], [0, %$4], [%46, %$11] ; # ->"},{"Add":" ret i1 %47"},{"Add":"}"},{"Add":""},{"Add":"define void @mark(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let Tos 0 (loop (until (cnt? E) (let (P (any (& E -16)) Q (cdr P..."},{"Add":"; # (loop (until (cnt? E) (let (P (any (& E -16)) Q (cdr P)) (? (=0 (..."},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %1 = phi i64 [%0, %$1], [%85, %$17] ; # E"},{"Add":" %2 = phi i64 [0, %$1], [%86, %$17] ; # Tos"},{"Add":"; # (until (cnt? E) (let (P (any (& E -16)) Q (cdr P)) (? (=0 (& Q 1)..."},{"Add":" br label %$3"},{"Add":"$3:"},{"Add":" %3 = phi i64 [%1, %$2], [%52, %$7] ; # E"},{"Add":" %4 = phi i64 [%2, %$2], [%48, %$7] ; # Tos"},{"Add":"; # (cnt? E)"},{"Add":" %5 = and i64 %3, 2"},{"Add":" %6 = icmp ne i64 %5, 0"},{"Add":" br i1 %6, label %$5, label %$4"},{"Add":"$4:"},{"Add":" %7 = phi i64 [%3, %$3] ; # E"},{"Add":" %8 = phi i64 [%4, %$3] ; # Tos"},{"Add":"; # (let (P (any (& E -16)) Q (cdr P)) (? (=0 (& Q 1))) (set 2 P (set..."},{"Add":"; # (& E -16)"},{"Add":" %9 = and i64 %7, -16"},{"Add":"; # (any (& E -16))"},{"Add":"; # (cdr P)"},{"Add":" %10 = inttoptr i64 %9 to i64*"},{"Add":" %11 = getelementptr i64, i64* %10, i32 1"},{"Add":" %12 = load i64, i64* %11"},{"Add":"; # (? (=0 (& Q 1)))"},{"Add":"; # (& Q 1)"},{"Add":" %13 = and i64 %12, 1"},{"Add":"; # (=0 (& Q 1))"},{"Add":" %14 = icmp eq i64 %13, 0"},{"Add":" br i1 %14, label %$5, label %$6"},{"Add":"$6:"},{"Add":" %15 = phi i64 [%7, %$4] ; # E"},{"Add":" %16 = phi i64 [%8, %$4] ; # Tos"},{"Add":" %17 = phi i64 [%12, %$4] ; # Q"},{"Add":"; # (set 2 P (setq Q (& Q -2)))"},{"Add":"; # (& Q -2)"},{"Add":" %18 = and i64 %17, -2"},{"Add":" %19 = inttoptr i64 %9 to i64*"},{"Add":" %20 = getelementptr i64, i64* %19, i32 1"},{"Add":" store i64 %18, i64* %20"},{"Add":"; # (? (big? E) (until (cnt? Q) (let N (val (big Q)) (? (=0 (& N 1)))..."},{"Add":"; # (big? E)"},{"Add":" %21 = and i64 %15, 4"},{"Add":" %22 = icmp ne i64 %21, 0"},{"Add":" br i1 %22, label %$8, label %$7"},{"Add":"$8:"},{"Add":" %23 = phi i64 [%15, %$6] ; # E"},{"Add":" %24 = phi i64 [%16, %$6] ; # Tos"},{"Add":" %25 = phi i64 [%18, %$6] ; # Q"},{"Add":"; # (until (cnt? Q) (let N (val (big Q)) (? (=0 (& N 1))) (setq Q (se..."},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %26 = phi i64 [%23, %$8], [%39, %$12] ; # E"},{"Add":" %27 = phi i64 [%24, %$8], [%40, %$12] ; # Tos"},{"Add":" %28 = phi i64 [%25, %$8], [%43, %$12] ; # Q"},{"Add":"; # (cnt? Q)"},{"Add":" %29 = and i64 %28, 2"},{"Add":" %30 = icmp ne i64 %29, 0"},{"Add":" br i1 %30, label %$11, label %$10"},{"Add":"$10:"},{"Add":" %31 = phi i64 [%26, %$9] ; # E"},{"Add":" %32 = phi i64 [%27, %$9] ; # Tos"},{"Add":" %33 = phi i64 [%28, %$9] ; # Q"},{"Add":"; # (let N (val (big Q)) (? (=0 (& N 1))) (setq Q (set (big Q) (& N -..."},{"Add":"; # (big Q)"},{"Add":" %34 = add i64 %33, 4"},{"Add":"; # (val (big Q))"},{"Add":" %35 = inttoptr i64 %34 to i64*"},{"Add":" %36 = load i64, i64* %35"},{"Add":"; # (? (=0 (& N 1)))"},{"Add":"; # (& N 1)"},{"Add":" %37 = and i64 %36, 1"},{"Add":"; # (=0 (& N 1))"},{"Add":" %38 = icmp eq i64 %37, 0"},{"Add":" br i1 %38, label %$11, label %$12"},{"Add":"$12:"},{"Add":" %39 = phi i64 [%31, %$10] ; # E"},{"Add":" %40 = phi i64 [%32, %$10] ; # Tos"},{"Add":" %41 = phi i64 [%33, %$10] ; # Q"},{"Add":"; # (set (big Q) (& N -2))"},{"Add":"; # (big Q)"},{"Add":" %42 = add i64 %41, 4"},{"Add":"; # (& N -2)"},{"Add":" %43 = and i64 %36, -2"},{"Add":" %44 = inttoptr i64 %42 to i64*"},{"Add":" store i64 %43, i64* %44"},{"Add":" br label %$9"},{"Add":"$11:"},{"Add":" %45 = phi i64 [%26, %$9], [%31, %$10] ; # E"},{"Add":" %46 = phi i64 [%27, %$9], [%32, %$10] ; # Tos"},{"Add":" %47 = phi i64 [%28, %$9], [%33, %$10] ; # Q"},{"Add":" br label %$5"},{"Add":"$7:"},{"Add":" %48 = phi i64 [%15, %$6] ; # E"},{"Add":" %49 = phi i64 [%16, %$6] ; # Tos"},{"Add":" %50 = phi i64 [%18, %$6] ; # Q"},{"Add":"; # (let X E (setq E (val P)) (set P (| Tos 1)) (setq Tos X))"},{"Add":"; # (val P)"},{"Add":" %51 = inttoptr i64 %9 to i64*"},{"Add":" %52 = load i64, i64* %51"},{"Add":"; # (set P (| Tos 1))"},{"Add":"; # (| Tos 1)"},{"Add":" %53 = or i64 %49, 1"},{"Add":" %54 = inttoptr i64 %9 to i64*"},{"Add":" store i64 %53, i64* %54"},{"Add":" br label %$3"},{"Add":"$5:"},{"Add":" %55 = phi i64 [%3, %$3], [%7, %$4], [%45, %$11] ; # E"},{"Add":" %56 = phi i64 [%4, %$3], [%8, %$4], [%46, %$11] ; # Tos"},{"Add":"; # (loop (let P (any (& Tos -16)) (unless P (ret)) (let Q (val P) (?..."},{"Add":" br label %$13"},{"Add":"$13:"},{"Add":" %57 = phi i64 [%55, %$5], [%79, %$16] ; # E"},{"Add":" %58 = phi i64 [%56, %$5], [%82, %$16] ; # Tos"},{"Add":"; # (let P (any (& Tos -16)) (unless P (ret)) (let Q (val P) (? (& Q ..."},{"Add":"; # (& Tos -16)"},{"Add":" %59 = and i64 %58, -16"},{"Add":"; # (any (& Tos -16))"},{"Add":"; # (unless P (ret))"},{"Add":" %60 = icmp ne i64 %59, 0"},{"Add":" br i1 %60, label %$15, label %$14"},{"Add":"$14:"},{"Add":" %61 = phi i64 [%57, %$13] ; # E"},{"Add":" %62 = phi i64 [%58, %$13] ; # Tos"},{"Add":"; # (ret)"},{"Add":" ret void"},{"Add":"$15:"},{"Add":" %63 = phi i64 [%57, %$13] ; # E"},{"Add":" %64 = phi i64 [%58, %$13] ; # Tos"},{"Add":"; # (let Q (val P) (? (& Q 1) (set P E) (setq E (cdr P)) (set 2 P (& ..."},{"Add":"; # (val P)"},{"Add":" %65 = inttoptr i64 %59 to i64*"},{"Add":" %66 = load i64, i64* %65"},{"Add":"; # (? (& Q 1) (set P E) (setq E (cdr P)) (set 2 P (& Q -2)))"},{"Add":"; # (& Q 1)"},{"Add":" %67 = and i64 %66, 1"},{"Add":" %68 = icmp ne i64 %67, 0"},{"Add":" br i1 %68, label %$18, label %$16"},{"Add":"$18:"},{"Add":" %69 = phi i64 [%63, %$15] ; # E"},{"Add":" %70 = phi i64 [%64, %$15] ; # Tos"},{"Add":"; # (set P E)"},{"Add":" %71 = inttoptr i64 %59 to i64*"},{"Add":" store i64 %69, i64* %71"},{"Add":"; # (cdr P)"},{"Add":" %72 = inttoptr i64 %59 to i64*"},{"Add":" %73 = getelementptr i64, i64* %72, i32 1"},{"Add":" %74 = load i64, i64* %73"},{"Add":"; # (set 2 P (& Q -2))"},{"Add":"; # (& Q -2)"},{"Add":" %75 = and i64 %66, -2"},{"Add":" %76 = inttoptr i64 %59 to i64*"},{"Add":" %77 = getelementptr i64, i64* %76, i32 1"},{"Add":" store i64 %75, i64* %77"},{"Add":" br label %$17"},{"Add":"$16:"},{"Add":" %78 = phi i64 [%63, %$15] ; # E"},{"Add":" %79 = phi i64 [%64, %$15] ; # Tos"},{"Add":"; # (let X Tos (setq Tos (cdr P)) (set 2 P E) (setq E X))"},{"Add":"; # (cdr P)"},{"Add":" %80 = inttoptr i64 %59 to i64*"},{"Add":" %81 = getelementptr i64, i64* %80, i32 1"},{"Add":" %82 = load i64, i64* %81"},{"Add":"; # (set 2 P E)"},{"Add":" %83 = inttoptr i64 %59 to i64*"},{"Add":" %84 = getelementptr i64, i64* %83, i32 1"},{"Add":" store i64 %78, i64* %84"},{"Add":" br label %$13"},{"Add":"$17:"},{"Add":" %85 = phi i64 [%74, %$18] ; # E"},{"Add":" %86 = phi i64 [%70, %$18] ; # Tos"},{"Add":" %87 = phi i64 [%75, %$18] ; # ->"},{"Add":" br label %$2"},{"Add":"}"},{"Add":""},{"Add":"define void @gc() align 8 {"},{"Add":"$1:"},{"Add":"; # (set $DB $Nil)"},{"Add":" %0 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 232) to i64) to i64*"},{"Add":" store i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), i64* %0"},{"Add":"; # (let P $Nil (set P (| (val P) 1)) (setq P (ofs P 4)) (loop (set P..."},{"Add":"; # (set P (| (val P) 1))"},{"Add":"; # (val P)"},{"Add":" %1 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64) to i64*"},{"Add":" %2 = load i64, i64* %1"},{"Add":"; # (| (val P) 1)"},{"Add":" %3 = or i64 %2, 1"},{"Add":" %4 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64) to i64*"},{"Add":" store i64 %3, i64* %4"},{"Add":"; # (ofs P 4)"},{"Add":" %5 = add i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), 32"},{"Add":"; # (loop (set P (| (val P) 1)) (? (== P $LastSym)) (setq P (ofs P 2)..."},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %6 = phi i64 [%5, %$1], [%13, %$3] ; # P"},{"Add":"; # (set P (| (val P) 1))"},{"Add":"; # (val P)"},{"Add":" %7 = inttoptr i64 %6 to i64*"},{"Add":" %8 = load i64, i64* %7"},{"Add":"; # (| (val P) 1)"},{"Add":" %9 = or i64 %8, 1"},{"Add":" %10 = inttoptr i64 %6 to i64*"},{"Add":" store i64 %9, i64* %10"},{"Add":"; # (? (== P $LastSym))"},{"Add":"; # (== P $LastSym)"},{"Add":" %11 = icmp eq i64 %6, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 7000) to i64)"},{"Add":" br i1 %11, label %$4, label %$3"},{"Add":"$3:"},{"Add":" %12 = phi i64 [%6, %$2] ; # P"},{"Add":"; # (ofs P 2)"},{"Add":" %13 = add i64 %12, 16"},{"Add":" br label %$2"},{"Add":"$4:"},{"Add":" %14 = phi i64 [%6, %$2] ; # P"},{"Add":" %15 = phi i64 [0, %$2] ; # ->"},{"Add":"; # (let P (val $Heaps) (loop (let C CELLS (loop (set 2 P (| (cdr P) ..."},{"Add":"; # (val $Heaps)"},{"Add":" %16 = load i64, i64* @$Heaps"},{"Add":"; # (loop (let C CELLS (loop (set 2 P (| (cdr P) 1)) (setq P (ofs P 2..."},{"Add":" br label %$5"},{"Add":"$5:"},{"Add":" %17 = phi i64 [%16, %$4], [%37, %$9] ; # P"},{"Add":"; # (let C CELLS (loop (set 2 P (| (cdr P) 1)) (setq P (ofs P 2)) (? ..."},{"Add":"; # (loop (set 2 P (| (cdr P) 1)) (setq P (ofs P 2)) (? (=0 (dec 'C))..."},{"Add":" br label %$6"},{"Add":"$6:"},{"Add":" %18 = phi i64 [%17, %$5], [%29, %$7] ; # P"},{"Add":" %19 = phi i64 [65536, %$5], [%30, %$7] ; # C"},{"Add":"; # (set 2 P (| (cdr P) 1))"},{"Add":"; # (cdr P)"},{"Add":" %20 = inttoptr i64 %18 to i64*"},{"Add":" %21 = getelementptr i64, i64* %20, i32 1"},{"Add":" %22 = load i64, i64* %21"},{"Add":"; # (| (cdr P) 1)"},{"Add":" %23 = or i64 %22, 1"},{"Add":" %24 = inttoptr i64 %18 to i64*"},{"Add":" %25 = getelementptr i64, i64* %24, i32 1"},{"Add":" store i64 %23, i64* %25"},{"Add":"; # (ofs P 2)"},{"Add":" %26 = add i64 %18, 16"},{"Add":"; # (? (=0 (dec 'C)))"},{"Add":"; # (dec 'C)"},{"Add":" %27 = sub i64 %19, 1"},{"Add":"; # (=0 (dec 'C))"},{"Add":" %28 = icmp eq i64 %27, 0"},{"Add":" br i1 %28, label %$8, label %$7"},{"Add":"$7:"},{"Add":" %29 = phi i64 [%26, %$6] ; # P"},{"Add":" %30 = phi i64 [%27, %$6] ; # C"},{"Add":" br label %$6"},{"Add":"$8:"},{"Add":" %31 = phi i64 [%26, %$6] ; # P"},{"Add":" %32 = phi i64 [%27, %$6] ; # C"},{"Add":" %33 = phi i64 [0, %$6] ; # ->"},{"Add":"; # (val P)"},{"Add":" %34 = inttoptr i64 %31 to i64*"},{"Add":" %35 = load i64, i64* %34"},{"Add":"; # (? (=0 P))"},{"Add":"; # (=0 P)"},{"Add":" %36 = icmp eq i64 %35, 0"},{"Add":" br i1 %36, label %$10, label %$9"},{"Add":"$9:"},{"Add":" %37 = phi i64 [%35, %$8] ; # P"},{"Add":" br label %$5"},{"Add":"$10:"},{"Add":" %38 = phi i64 [%35, %$8] ; # P"},{"Add":" %39 = phi i64 [0, %$8] ; # ->"},{"Add":"; # (let P (any (gcData)) (loop (mark (val P)) (? (== P $LispEnd)) (s..."},{"Add":"; # (i8* $Intern)"},{"Add":" %40 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([53 x i64]* @gcData to i8*), i32 0) to i64) to i8*"},{"Add":"; # (any (gcData))"},{"Add":" %41 = ptrtoint i8* %40 to i64"},{"Add":"; # (loop (mark (val P)) (? (== P $LispEnd)) (setq P (ofs P 1)))"},{"Add":" br label %$11"},{"Add":"$11:"},{"Add":" %42 = phi i64 [%41, %$10], [%47, %$12] ; # P"},{"Add":"; # (val P)"},{"Add":" %43 = inttoptr i64 %42 to i64*"},{"Add":" %44 = load i64, i64* %43"},{"Add":"; # (mark (val P))"},{"Add":" call void @mark(i64 %44)"},{"Add":"; # (? (== P $LispEnd))"},{"Add":"; # (== P $LispEnd)"},{"Add":" %45 = icmp eq i64 %42, ptrtoint (i8* getelementptr (i8, i8* bitcast ([53 x i64]* @gcData to i8*), i32 416) to i64)"},{"Add":" br i1 %45, label %$13, label %$12"},{"Add":"$12:"},{"Add":" %46 = phi i64 [%42, %$11] ; # P"},{"Add":"; # (ofs P 1)"},{"Add":" %47 = add i64 %46, 8"},{"Add":" br label %$11"},{"Add":"$13:"},{"Add":" %48 = phi i64 [%42, %$11] ; # P"},{"Add":" %49 = phi i64 [0, %$11] ; # ->"},{"Add":"; # (let P (val $Link) (while P (mark (val P)) (shift P)))"},{"Add":"; # (val $Link)"},{"Add":" %50 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %51 = load i64, i64* %50"},{"Add":"; # (while P (mark (val P)) (shift P))"},{"Add":" br label %$14"},{"Add":"$14:"},{"Add":" %52 = phi i64 [%51, %$13], [%59, %$15] ; # P"},{"Add":" %53 = icmp ne i64 %52, 0"},{"Add":" br i1 %53, label %$15, label %$16"},{"Add":"$15:"},{"Add":" %54 = phi i64 [%52, %$14] ; # P"},{"Add":"; # (val P)"},{"Add":" %55 = inttoptr i64 %54 to i64*"},{"Add":" %56 = load i64, i64* %55"},{"Add":"; # (mark (val P))"},{"Add":" call void @mark(i64 %56)"},{"Add":"; # (shift P)"},{"Add":" %57 = inttoptr i64 %54 to i64*"},{"Add":" %58 = getelementptr i64, i64* %57, i32 1"},{"Add":" %59 = load i64, i64* %58"},{"Add":" br label %$14"},{"Add":"$16:"},{"Add":" %60 = phi i64 [%52, %$14] ; # P"},{"Add":"; # (let P (val $Bind) (while P (mark (val P)) (mark (val 2 P)) (setq..."},{"Add":"; # (val $Bind)"},{"Add":" %61 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 8) to i64) to i64*"},{"Add":" %62 = load i64, i64* %61"},{"Add":"; # (while P (mark (val P)) (mark (val 2 P)) (setq P (val 3 P)))"},{"Add":" br label %$17"},{"Add":"$17:"},{"Add":" %63 = phi i64 [%62, %$16], [%73, %$18] ; # P"},{"Add":" %64 = icmp ne i64 %63, 0"},{"Add":" br i1 %64, label %$18, label %$19"},{"Add":"$18:"},{"Add":" %65 = phi i64 [%63, %$17] ; # P"},{"Add":"; # (val P)"},{"Add":" %66 = inttoptr i64 %65 to i64*"},{"Add":" %67 = load i64, i64* %66"},{"Add":"; # (mark (val P))"},{"Add":" call void @mark(i64 %67)"},{"Add":"; # (val 2 P)"},{"Add":" %68 = inttoptr i64 %65 to i64*"},{"Add":" %69 = getelementptr i64, i64* %68, i32 1"},{"Add":" %70 = load i64, i64* %69"},{"Add":"; # (mark (val 2 P))"},{"Add":" call void @mark(i64 %70)"},{"Add":"; # (val 3 P)"},{"Add":" %71 = inttoptr i64 %65 to i64*"},{"Add":" %72 = getelementptr i64, i64* %71, i32 2"},{"Add":" %73 = load i64, i64* %72"},{"Add":" br label %$17"},{"Add":"$19:"},{"Add":" %74 = phi i64 [%63, %$17] ; # P"},{"Add":"; # (let Ca (val $Catch) (while Ca (let Ca: (caFrame Ca) (when (Ca: t..."},{"Add":"; # (val $Catch)"},{"Add":" %75 = load i8*, i8** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 24) to i8**)"},{"Add":"; # (while Ca (let Ca: (caFrame Ca) (when (Ca: tag) (mark @)) (mark (..."},{"Add":" br label %$20"},{"Add":"$20:"},{"Add":" %76 = phi i8* [%75, %$19], [%111, %$24] ; # Ca"},{"Add":" %77 = icmp ne i8* %76, null"},{"Add":" br i1 %77, label %$21, label %$22"},{"Add":"$21:"},{"Add":" %78 = phi i8* [%76, %$20] ; # Ca"},{"Add":"; # (let Ca: (caFrame Ca) (when (Ca: tag) (mark @)) (mark (Ca: fin)) ..."},{"Add":"; # (when (Ca: tag) (mark @))"},{"Add":"; # (Ca: tag)"},{"Add":" %79 = getelementptr i8, i8* %78, i32 8"},{"Add":" %80 = ptrtoint i8* %79 to i64"},{"Add":" %81 = inttoptr i64 %80 to i64*"},{"Add":" %82 = load i64, i64* %81"},{"Add":" %83 = icmp ne i64 %82, 0"},{"Add":" br i1 %83, label %$23, label %$24"},{"Add":"$23:"},{"Add":" %84 = phi i8* [%78, %$21] ; # Ca"},{"Add":"; # (mark @)"},{"Add":" call void @mark(i64 %82)"},{"Add":" br label %$24"},{"Add":"$24:"},{"Add":" %85 = phi i8* [%78, %$21], [%84, %$23] ; # Ca"},{"Add":"; # (Ca: fin)"},{"Add":" %86 = getelementptr i8, i8* %78, i32 16"},{"Add":" %87 = ptrtoint i8* %86 to i64"},{"Add":" %88 = inttoptr i64 %87 to i64*"},{"Add":" %89 = load i64, i64* %88"},{"Add":"; # (mark (Ca: fin))"},{"Add":" call void @mark(i64 %89)"},{"Add":"; # (Ca: intrn)"},{"Add":" %90 = getelementptr i8, i8* %78, i32 200"},{"Add":" %91 = ptrtoint i8* %90 to i64"},{"Add":" %92 = inttoptr i64 %91 to i64*"},{"Add":" %93 = load i64, i64* %92"},{"Add":"; # (mark (Ca: intrn))"},{"Add":" call void @mark(i64 %93)"},{"Add":"; # (Ca: trns1)"},{"Add":" %94 = getelementptr i8, i8* %78, i32 208"},{"Add":" %95 = ptrtoint i8* %94 to i64"},{"Add":" %96 = inttoptr i64 %95 to i64*"},{"Add":" %97 = load i64, i64* %96"},{"Add":"; # (mark (Ca: trns1))"},{"Add":" call void @mark(i64 %97)"},{"Add":"; # (Ca: trns2)"},{"Add":" %98 = getelementptr i8, i8* %78, i32 216"},{"Add":" %99 = ptrtoint i8* %98 to i64"},{"Add":" %100 = inttoptr i64 %99 to i64*"},{"Add":" %101 = load i64, i64* %100"},{"Add":"; # (mark (Ca: trns2))"},{"Add":" call void @mark(i64 %101)"},{"Add":"; # (Ca: priv1)"},{"Add":" %102 = getelementptr i8, i8* %78, i32 224"},{"Add":" %103 = ptrtoint i8* %102 to i64"},{"Add":" %104 = inttoptr i64 %103 to i64*"},{"Add":" %105 = load i64, i64* %104"},{"Add":"; # (mark (Ca: priv1))"},{"Add":" call void @mark(i64 %105)"},{"Add":"; # (Ca: priv2)"},{"Add":" %106 = getelementptr i8, i8* %78, i32 232"},{"Add":" %107 = ptrtoint i8* %106 to i64"},{"Add":" %108 = inttoptr i64 %107 to i64*"},{"Add":" %109 = load i64, i64* %108"},{"Add":"; # (mark (Ca: priv2))"},{"Add":" call void @mark(i64 %109)"},{"Add":"; # (Ca: link)"},{"Add":" %110 = bitcast i8* %78 to i8**"},{"Add":" %111 = load i8*, i8** %110"},{"Add":" br label %$20"},{"Add":"$22:"},{"Add":" %112 = phi i8* [%76, %$20] ; # Ca"},{"Add":"; # (let Crt (val $Coroutines) (while Crt (let Crt: (coroutine Crt) (..."},{"Add":"; # (val $Coroutines)"},{"Add":" %113 = load i8*, i8** @$Coroutines"},{"Add":"; # (while Crt (let Crt: (coroutine Crt) (when (Crt: tag) (mark (Crt:..."},{"Add":" br label %$25"},{"Add":"$25:"},{"Add":" %114 = phi i8* [%113, %$22], [%249, %$29] ; # Crt"},{"Add":" %115 = icmp ne i8* %114, null"},{"Add":" br i1 %115, label %$26, label %$27"},{"Add":"$26:"},{"Add":" %116 = phi i8* [%114, %$25] ; # Crt"},{"Add":"; # (let Crt: (coroutine Crt) (when (Crt: tag) (mark (Crt: tag)) (mar..."},{"Add":"; # (when (Crt: tag) (mark (Crt: tag)) (mark (Crt: prg)) (when (Crt: ..."},{"Add":"; # (Crt: tag)"},{"Add":" %117 = ptrtoint i8* %116 to i64"},{"Add":" %118 = inttoptr i64 %117 to i64*"},{"Add":" %119 = load i64, i64* %118"},{"Add":" %120 = icmp ne i64 %119, 0"},{"Add":" br i1 %120, label %$28, label %$29"},{"Add":"$28:"},{"Add":" %121 = phi i8* [%116, %$26] ; # Crt"},{"Add":"; # (Crt: tag)"},{"Add":" %122 = ptrtoint i8* %116 to i64"},{"Add":" %123 = inttoptr i64 %122 to i64*"},{"Add":" %124 = load i64, i64* %123"},{"Add":"; # (mark (Crt: tag))"},{"Add":" call void @mark(i64 %124)"},{"Add":"; # (Crt: prg)"},{"Add":" %125 = getelementptr i8, i8* %116, i32 32"},{"Add":" %126 = ptrtoint i8* %125 to i64"},{"Add":" %127 = inttoptr i64 %126 to i64*"},{"Add":" %128 = load i64, i64* %127"},{"Add":"; # (mark (Crt: prg))"},{"Add":" call void @mark(i64 %128)"},{"Add":"; # (when (Crt: at) (mark (Crt: at)) (mark (Crt: intrn)) (mark (Crt: ..."},{"Add":"; # (Crt: at)"},{"Add":" %129 = getelementptr i8, i8* %116, i32 48"},{"Add":" %130 = ptrtoint i8* %129 to i64"},{"Add":" %131 = inttoptr i64 %130 to i64*"},{"Add":" %132 = load i64, i64* %131"},{"Add":" %133 = icmp ne i64 %132, 0"},{"Add":" br i1 %133, label %$30, label %$31"},{"Add":"$30:"},{"Add":" %134 = phi i8* [%121, %$28] ; # Crt"},{"Add":"; # (Crt: at)"},{"Add":" %135 = getelementptr i8, i8* %116, i32 48"},{"Add":" %136 = ptrtoint i8* %135 to i64"},{"Add":" %137 = inttoptr i64 %136 to i64*"},{"Add":" %138 = load i64, i64* %137"},{"Add":"; # (mark (Crt: at))"},{"Add":" call void @mark(i64 %138)"},{"Add":"; # (Crt: intrn)"},{"Add":" %139 = getelementptr i8, i8* %116, i32 280"},{"Add":" %140 = ptrtoint i8* %139 to i64"},{"Add":" %141 = inttoptr i64 %140 to i64*"},{"Add":" %142 = load i64, i64* %141"},{"Add":"; # (mark (Crt: intrn))"},{"Add":" call void @mark(i64 %142)"},{"Add":"; # (Crt: trns1)"},{"Add":" %143 = getelementptr i8, i8* %116, i32 288"},{"Add":" %144 = ptrtoint i8* %143 to i64"},{"Add":" %145 = inttoptr i64 %144 to i64*"},{"Add":" %146 = load i64, i64* %145"},{"Add":"; # (mark (Crt: trns1))"},{"Add":" call void @mark(i64 %146)"},{"Add":"; # (Crt: trns2)"},{"Add":" %147 = getelementptr i8, i8* %116, i32 296"},{"Add":" %148 = ptrtoint i8* %147 to i64"},{"Add":" %149 = inttoptr i64 %148 to i64*"},{"Add":" %150 = load i64, i64* %149"},{"Add":"; # (mark (Crt: trns2))"},{"Add":" call void @mark(i64 %150)"},{"Add":"; # (Crt: priv1)"},{"Add":" %151 = getelementptr i8, i8* %116, i32 304"},{"Add":" %152 = ptrtoint i8* %151 to i64"},{"Add":" %153 = inttoptr i64 %152 to i64*"},{"Add":" %154 = load i64, i64* %153"},{"Add":"; # (mark (Crt: priv1))"},{"Add":" call void @mark(i64 %154)"},{"Add":"; # (Crt: priv2)"},{"Add":" %155 = getelementptr i8, i8* %116, i32 312"},{"Add":" %156 = ptrtoint i8* %155 to i64"},{"Add":" %157 = inttoptr i64 %156 to i64*"},{"Add":" %158 = load i64, i64* %157"},{"Add":"; # (mark (Crt: priv2))"},{"Add":" call void @mark(i64 %158)"},{"Add":"; # (let P (Crt: (env $Link any)) (while P (mark (val P)) (shift P)))..."},{"Add":"; # (Crt: (env $Link any))"},{"Add":" %159 = getelementptr i8, i8* %116, i32 112"},{"Add":" %160 = ptrtoint i8* %159 to i64"},{"Add":" %161 = inttoptr i64 %160 to i64*"},{"Add":" %162 = load i64, i64* %161"},{"Add":"; # (while P (mark (val P)) (shift P))"},{"Add":" br label %$32"},{"Add":"$32:"},{"Add":" %163 = phi i8* [%134, %$30], [%166, %$33] ; # Crt"},{"Add":" %164 = phi i64 [%162, %$30], [%172, %$33] ; # P"},{"Add":" %165 = icmp ne i64 %164, 0"},{"Add":" br i1 %165, label %$33, label %$34"},{"Add":"$33:"},{"Add":" %166 = phi i8* [%163, %$32] ; # Crt"},{"Add":" %167 = phi i64 [%164, %$32] ; # P"},{"Add":"; # (val P)"},{"Add":" %168 = inttoptr i64 %167 to i64*"},{"Add":" %169 = load i64, i64* %168"},{"Add":"; # (mark (val P))"},{"Add":" call void @mark(i64 %169)"},{"Add":"; # (shift P)"},{"Add":" %170 = inttoptr i64 %167 to i64*"},{"Add":" %171 = getelementptr i64, i64* %170, i32 1"},{"Add":" %172 = load i64, i64* %171"},{"Add":" br label %$32"},{"Add":"$34:"},{"Add":" %173 = phi i8* [%163, %$32] ; # Crt"},{"Add":" %174 = phi i64 [%164, %$32] ; # P"},{"Add":"; # (let P (Crt: (env $Bind any)) (while P (mark (val P)) (mark (val ..."},{"Add":"; # (Crt: (env $Bind any))"},{"Add":" %175 = getelementptr i8, i8* %116, i32 112"},{"Add":" %176 = getelementptr i8, i8* %175, i32 8"},{"Add":" %177 = ptrtoint i8* %176 to i64"},{"Add":" %178 = inttoptr i64 %177 to i64*"},{"Add":" %179 = load i64, i64* %178"},{"Add":"; # (while P (mark (val P)) (mark (val 2 P)) (setq P (val 3 P)))"},{"Add":" br label %$35"},{"Add":"$35:"},{"Add":" %180 = phi i8* [%173, %$34], [%183, %$36] ; # Crt"},{"Add":" %181 = phi i64 [%179, %$34], [%192, %$36] ; # P"},{"Add":" %182 = icmp ne i64 %181, 0"},{"Add":" br i1 %182, label %$36, label %$37"},{"Add":"$36:"},{"Add":" %183 = phi i8* [%180, %$35] ; # Crt"},{"Add":" %184 = phi i64 [%181, %$35] ; # P"},{"Add":"; # (val P)"},{"Add":" %185 = inttoptr i64 %184 to i64*"},{"Add":" %186 = load i64, i64* %185"},{"Add":"; # (mark (val P))"},{"Add":" call void @mark(i64 %186)"},{"Add":"; # (val 2 P)"},{"Add":" %187 = inttoptr i64 %184 to i64*"},{"Add":" %188 = getelementptr i64, i64* %187, i32 1"},{"Add":" %189 = load i64, i64* %188"},{"Add":"; # (mark (val 2 P))"},{"Add":" call void @mark(i64 %189)"},{"Add":"; # (val 3 P)"},{"Add":" %190 = inttoptr i64 %184 to i64*"},{"Add":" %191 = getelementptr i64, i64* %190, i32 2"},{"Add":" %192 = load i64, i64* %191"},{"Add":" br label %$35"},{"Add":"$37:"},{"Add":" %193 = phi i8* [%180, %$35] ; # Crt"},{"Add":" %194 = phi i64 [%181, %$35] ; # P"},{"Add":"; # (let Ca (Crt: (env $Catch i8*)) (while Ca (let Ca: (caFrame Ca) (..."},{"Add":"; # (Crt: (env $Catch i8*))"},{"Add":" %195 = getelementptr i8, i8* %116, i32 112"},{"Add":" %196 = getelementptr i8, i8* %195, i32 24"},{"Add":" %197 = bitcast i8* %196 to i8**"},{"Add":" %198 = load i8*, i8** %197"},{"Add":"; # (while Ca (let Ca: (caFrame Ca) (when (Ca: tag) (mark (Ca: tag)))..."},{"Add":" br label %$38"},{"Add":"$38:"},{"Add":" %199 = phi i8* [%193, %$37], [%215, %$42] ; # Crt"},{"Add":" %200 = phi i8* [%198, %$37], [%242, %$42] ; # Ca"},{"Add":" %201 = icmp ne i8* %200, null"},{"Add":" br i1 %201, label %$39, label %$40"},{"Add":"$39:"},{"Add":" %202 = phi i8* [%199, %$38] ; # Crt"},{"Add":" %203 = phi i8* [%200, %$38] ; # Ca"},{"Add":"; # (let Ca: (caFrame Ca) (when (Ca: tag) (mark (Ca: tag))) (mark (Ca..."},{"Add":"; # (when (Ca: tag) (mark (Ca: tag)))"},{"Add":"; # (Ca: tag)"},{"Add":" %204 = getelementptr i8, i8* %203, i32 8"},{"Add":" %205 = ptrtoint i8* %204 to i64"},{"Add":" %206 = inttoptr i64 %205 to i64*"},{"Add":" %207 = load i64, i64* %206"},{"Add":" %208 = icmp ne i64 %207, 0"},{"Add":" br i1 %208, label %$41, label %$42"},{"Add":"$41:"},{"Add":" %209 = phi i8* [%202, %$39] ; # Crt"},{"Add":" %210 = phi i8* [%203, %$39] ; # Ca"},{"Add":"; # (Ca: tag)"},{"Add":" %211 = getelementptr i8, i8* %203, i32 8"},{"Add":" %212 = ptrtoint i8* %211 to i64"},{"Add":" %213 = inttoptr i64 %212 to i64*"},{"Add":" %214 = load i64, i64* %213"},{"Add":"; # (mark (Ca: tag))"},{"Add":" call void @mark(i64 %214)"},{"Add":" br label %$42"},{"Add":"$42:"},{"Add":" %215 = phi i8* [%202, %$39], [%209, %$41] ; # Crt"},{"Add":" %216 = phi i8* [%203, %$39], [%210, %$41] ; # Ca"},{"Add":"; # (Ca: fin)"},{"Add":" %217 = getelementptr i8, i8* %203, i32 16"},{"Add":" %218 = ptrtoint i8* %217 to i64"},{"Add":" %219 = inttoptr i64 %218 to i64*"},{"Add":" %220 = load i64, i64* %219"},{"Add":"; # (mark (Ca: fin))"},{"Add":" call void @mark(i64 %220)"},{"Add":"; # (Ca: intrn)"},{"Add":" %221 = getelementptr i8, i8* %203, i32 200"},{"Add":" %222 = ptrtoint i8* %221 to i64"},{"Add":" %223 = inttoptr i64 %222 to i64*"},{"Add":" %224 = load i64, i64* %223"},{"Add":"; # (mark (Ca: intrn))"},{"Add":" call void @mark(i64 %224)"},{"Add":"; # (Ca: trns1)"},{"Add":" %225 = getelementptr i8, i8* %203, i32 208"},{"Add":" %226 = ptrtoint i8* %225 to i64"},{"Add":" %227 = inttoptr i64 %226 to i64*"},{"Add":" %228 = load i64, i64* %227"},{"Add":"; # (mark (Ca: trns1))"},{"Add":" call void @mark(i64 %228)"},{"Add":"; # (Ca: trns2)"},{"Add":" %229 = getelementptr i8, i8* %203, i32 216"},{"Add":" %230 = ptrtoint i8* %229 to i64"},{"Add":" %231 = inttoptr i64 %230 to i64*"},{"Add":" %232 = load i64, i64* %231"},{"Add":"; # (mark (Ca: trns2))"},{"Add":" call void @mark(i64 %232)"},{"Add":"; # (Ca: priv1)"},{"Add":" %233 = getelementptr i8, i8* %203, i32 224"},{"Add":" %234 = ptrtoint i8* %233 to i64"},{"Add":" %235 = inttoptr i64 %234 to i64*"},{"Add":" %236 = load i64, i64* %235"},{"Add":"; # (mark (Ca: priv1))"},{"Add":" call void @mark(i64 %236)"},{"Add":"; # (Ca: priv2)"},{"Add":" %237 = getelementptr i8, i8* %203, i32 232"},{"Add":" %238 = ptrtoint i8* %237 to i64"},{"Add":" %239 = inttoptr i64 %238 to i64*"},{"Add":" %240 = load i64, i64* %239"},{"Add":"; # (mark (Ca: priv2))"},{"Add":" call void @mark(i64 %240)"},{"Add":"; # (Ca: link)"},{"Add":" %241 = bitcast i8* %203 to i8**"},{"Add":" %242 = load i8*, i8** %241"},{"Add":" br label %$38"},{"Add":"$40:"},{"Add":" %243 = phi i8* [%199, %$38] ; # Crt"},{"Add":" %244 = phi i8* [%200, %$38] ; # Ca"},{"Add":" br label %$31"},{"Add":"$31:"},{"Add":" %245 = phi i8* [%121, %$28], [%243, %$40] ; # Crt"},{"Add":" br label %$29"},{"Add":"$29:"},{"Add":" %246 = phi i8* [%116, %$26], [%245, %$31] ; # Crt"},{"Add":"; # (Crt: nxt)"},{"Add":" %247 = getelementptr i8, i8* %116, i32 8"},{"Add":" %248 = bitcast i8* %247 to i8**"},{"Add":" %249 = load i8*, i8** %248"},{"Add":" br label %$25"},{"Add":"$27:"},{"Add":" %250 = phi i8* [%114, %$25] ; # Crt"},{"Add":"; # (let (Tos 0 P (val $Extern)) (loop (loop (let X (any (& (cdr P) -..."},{"Add":"; # (val $Extern)"},{"Add":" %251 = load i64, i64* @$Extern"},{"Add":"; # (loop (loop (let X (any (& (cdr P) -2)) (set 2 P X) (let Y (any (..."},{"Add":" br label %$43"},{"Add":"$43:"},{"Add":" %252 = phi i64 [0, %$27], [%369, %$58] ; # Tos"},{"Add":" %253 = phi i64 [%251, %$27], [%370, %$58] ; # P"},{"Add":"; # (loop (let X (any (& (cdr P) -2)) (set 2 P X) (let Y (any (& (cdr..."},{"Add":" br label %$44"},{"Add":"$44:"},{"Add":" %254 = phi i64 [%252, %$43], [%271, %$45] ; # Tos"},{"Add":" %255 = phi i64 [%253, %$43], [%265, %$45] ; # P"},{"Add":"; # (let X (any (& (cdr P) -2)) (set 2 P X) (let Y (any (& (cdr X) -2..."},{"Add":"; # (cdr P)"},{"Add":" %256 = inttoptr i64 %255 to i64*"},{"Add":" %257 = getelementptr i64, i64* %256, i32 1"},{"Add":" %258 = load i64, i64* %257"},{"Add":"; # (& (cdr P) -2)"},{"Add":" %259 = and i64 %258, -2"},{"Add":"; # (any (& (cdr P) -2))"},{"Add":"; # (set 2 P X)"},{"Add":" %260 = inttoptr i64 %255 to i64*"},{"Add":" %261 = getelementptr i64, i64* %260, i32 1"},{"Add":" store i64 %259, i64* %261"},{"Add":"; # (let Y (any (& (cdr X) -2)) (set 2 X Y) (? (atom Y)) (let Z P (se..."},{"Add":"; # (cdr X)"},{"Add":" %262 = inttoptr i64 %259 to i64*"},{"Add":" %263 = getelementptr i64, i64* %262, i32 1"},{"Add":" %264 = load i64, i64* %263"},{"Add":"; # (& (cdr X) -2)"},{"Add":" %265 = and i64 %264, -2"},{"Add":"; # (any (& (cdr X) -2))"},{"Add":"; # (set 2 X Y)"},{"Add":" %266 = inttoptr i64 %259 to i64*"},{"Add":" %267 = getelementptr i64, i64* %266, i32 1"},{"Add":" store i64 %265, i64* %267"},{"Add":"; # (? (atom Y))"},{"Add":"; # (atom Y)"},{"Add":" %268 = and i64 %265, 15"},{"Add":" %269 = icmp ne i64 %268, 0"},{"Add":" br i1 %269, label %$46, label %$45"},{"Add":"$45:"},{"Add":" %270 = phi i64 [%254, %$44] ; # Tos"},{"Add":" %271 = phi i64 [%255, %$44] ; # P"},{"Add":"; # (let Z P (setq P Y) (set 2 X Tos) (setq Tos Z))"},{"Add":"; # (set 2 X Tos)"},{"Add":" %272 = inttoptr i64 %259 to i64*"},{"Add":" %273 = getelementptr i64, i64* %272, i32 1"},{"Add":" store i64 %270, i64* %273"},{"Add":" br label %$44"},{"Add":"$46:"},{"Add":" %274 = phi i64 [%254, %$44] ; # Tos"},{"Add":" %275 = phi i64 [%255, %$44] ; # P"},{"Add":" %276 = phi i64 [0, %$44] ; # ->"},{"Add":"; # (loop (let S (val P) (when (& (val S) 1) (let Tail (val (tail S))..."},{"Add":" br label %$47"},{"Add":"$47:"},{"Add":" %277 = phi i64 [%274, %$46], [%366, %$64] ; # Tos"},{"Add":" %278 = phi i64 [%275, %$46], [%367, %$64] ; # P"},{"Add":"; # (let S (val P) (when (& (val S) 1) (let Tail (val (tail S)) (unle..."},{"Add":"; # (val P)"},{"Add":" %279 = inttoptr i64 %278 to i64*"},{"Add":" %280 = load i64, i64* %279"},{"Add":"; # (when (& (val S) 1) (let Tail (val (tail S)) (unless (num? Tail) ..."},{"Add":"; # (val S)"},{"Add":" %281 = inttoptr i64 %280 to i64*"},{"Add":" %282 = load i64, i64* %281"},{"Add":"; # (& (val S) 1)"},{"Add":" %283 = and i64 %282, 1"},{"Add":" %284 = icmp ne i64 %283, 0"},{"Add":" br i1 %284, label %$48, label %$49"},{"Add":"$48:"},{"Add":" %285 = phi i64 [%277, %$47] ; # Tos"},{"Add":" %286 = phi i64 [%278, %$47] ; # P"},{"Add":"; # (let Tail (val (tail S)) (unless (num? Tail) (setq Tail (& Tail -..."},{"Add":"; # (tail S)"},{"Add":" %287 = add i64 %280, -8"},{"Add":"; # (val (tail S))"},{"Add":" %288 = inttoptr i64 %287 to i64*"},{"Add":" %289 = load i64, i64* %288"},{"Add":"; # (unless (num? Tail) (setq Tail (& Tail -10)) (until (num? (shift ..."},{"Add":"; # (num? Tail)"},{"Add":" %290 = and i64 %289, 6"},{"Add":" %291 = icmp ne i64 %290, 0"},{"Add":" br i1 %291, label %$51, label %$50"},{"Add":"$50:"},{"Add":" %292 = phi i64 [%285, %$48] ; # Tos"},{"Add":" %293 = phi i64 [%286, %$48] ; # P"},{"Add":" %294 = phi i64 [%289, %$48] ; # Tail"},{"Add":"; # (& Tail -10)"},{"Add":" %295 = and i64 %294, -10"},{"Add":"; # (until (num? (shift Tail)) (setq Tail (& Tail -2)))"},{"Add":" br label %$52"},{"Add":"$52:"},{"Add":" %296 = phi i64 [%292, %$50], [%304, %$53] ; # Tos"},{"Add":" %297 = phi i64 [%293, %$50], [%305, %$53] ; # P"},{"Add":" %298 = phi i64 [%295, %$50], [%307, %$53] ; # Tail"},{"Add":"; # (shift Tail)"},{"Add":" %299 = inttoptr i64 %298 to i64*"},{"Add":" %300 = getelementptr i64, i64* %299, i32 1"},{"Add":" %301 = load i64, i64* %300"},{"Add":"; # (num? (shift Tail))"},{"Add":" %302 = and i64 %301, 6"},{"Add":" %303 = icmp ne i64 %302, 0"},{"Add":" br i1 %303, label %$54, label %$53"},{"Add":"$53:"},{"Add":" %304 = phi i64 [%296, %$52] ; # Tos"},{"Add":" %305 = phi i64 [%297, %$52] ; # P"},{"Add":" %306 = phi i64 [%301, %$52] ; # Tail"},{"Add":"; # (& Tail -2)"},{"Add":" %307 = and i64 %306, -2"},{"Add":" br label %$52"},{"Add":"$54:"},{"Add":" %308 = phi i64 [%296, %$52] ; # Tos"},{"Add":" %309 = phi i64 [%297, %$52] ; # P"},{"Add":" %310 = phi i64 [%301, %$52] ; # Tail"},{"Add":" br label %$51"},{"Add":"$51:"},{"Add":" %311 = phi i64 [%285, %$48], [%308, %$54] ; # Tos"},{"Add":" %312 = phi i64 [%286, %$48], [%309, %$54] ; # P"},{"Add":" %313 = phi i64 [%289, %$48], [%310, %$54] ; # Tail"},{"Add":"; # (add Tail Tail)"},{"Add":" %314 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %313, i64 %313)"},{"Add":" %315 = extractvalue {i64, i1} %314, 1"},{"Add":" %316 = extractvalue {i64, i1} %314, 0"},{"Add":"; # (when @@ (mark S))"},{"Add":" br i1 %315, label %$55, label %$56"},{"Add":"$55:"},{"Add":" %317 = phi i64 [%311, %$51] ; # Tos"},{"Add":" %318 = phi i64 [%312, %$51] ; # P"},{"Add":" %319 = phi i64 [%313, %$51] ; # Tail"},{"Add":"; # (mark S)"},{"Add":" call void @mark(i64 %280)"},{"Add":" br label %$56"},{"Add":"$56:"},{"Add":" %320 = phi i64 [%311, %$51], [%317, %$55] ; # Tos"},{"Add":" %321 = phi i64 [%312, %$51], [%318, %$55] ; # P"},{"Add":" %322 = phi i64 [%313, %$51], [%319, %$55] ; # Tail"},{"Add":" br label %$49"},{"Add":"$49:"},{"Add":" %323 = phi i64 [%277, %$47], [%320, %$56] ; # Tos"},{"Add":" %324 = phi i64 [%278, %$47], [%321, %$56] ; # P"},{"Add":"; # (let X (cdr P) (? (pair (car X)) (let Z P (setq P @) (set X Tos) ..."},{"Add":"; # (cdr P)"},{"Add":" %325 = inttoptr i64 %324 to i64*"},{"Add":" %326 = getelementptr i64, i64* %325, i32 1"},{"Add":" %327 = load i64, i64* %326"},{"Add":"; # (? (pair (car X)) (let Z P (setq P @) (set X Tos) (setq Tos (| Z ..."},{"Add":"; # (car X)"},{"Add":" %328 = inttoptr i64 %327 to i64*"},{"Add":" %329 = load i64, i64* %328"},{"Add":"; # (pair (car X))"},{"Add":" %330 = and i64 %329, 15"},{"Add":" %331 = icmp eq i64 %330, 0"},{"Add":" br i1 %331, label %$59, label %$57"},{"Add":"$59:"},{"Add":" %332 = phi i64 [%323, %$49] ; # Tos"},{"Add":" %333 = phi i64 [%324, %$49] ; # P"},{"Add":"; # (let Z P (setq P @) (set X Tos) (setq Tos (| Z 8)))"},{"Add":"; # (set X Tos)"},{"Add":" %334 = inttoptr i64 %327 to i64*"},{"Add":" store i64 %332, i64* %334"},{"Add":"; # (| Z 8)"},{"Add":" %335 = or i64 %333, 8"},{"Add":" br label %$58"},{"Add":"$57:"},{"Add":" %336 = phi i64 [%323, %$49] ; # Tos"},{"Add":" %337 = phi i64 [%324, %$49] ; # P"},{"Add":"; # (loop (unless Tos (goto 1)) (? (=0 (& Tos 8)) (let (X Tos Y (cdr ..."},{"Add":" br label %$60"},{"Add":"$60:"},{"Add":" %338 = phi i64 [%336, %$57], [%364, %$63] ; # Tos"},{"Add":" %339 = phi i64 [%337, %$57], [%359, %$63] ; # P"},{"Add":"; # (unless Tos (goto 1))"},{"Add":" %340 = icmp ne i64 %338, 0"},{"Add":" br i1 %340, label %$62, label %$61"},{"Add":"$61:"},{"Add":" %341 = phi i64 [%338, %$60] ; # Tos"},{"Add":" %342 = phi i64 [%339, %$60] ; # P"},{"Add":"; # (goto 1)"},{"Add":" br label %$-1"},{"Add":"$62:"},{"Add":" %343 = phi i64 [%338, %$60] ; # Tos"},{"Add":" %344 = phi i64 [%339, %$60] ; # P"},{"Add":"; # (? (=0 (& Tos 8)) (let (X Tos Y (cdr X)) (setq Tos (cdr Y)) (set ..."},{"Add":"; # (& Tos 8)"},{"Add":" %345 = and i64 %343, 8"},{"Add":"; # (=0 (& Tos 8))"},{"Add":" %346 = icmp eq i64 %345, 0"},{"Add":" br i1 %346, label %$65, label %$63"},{"Add":"$65:"},{"Add":" %347 = phi i64 [%343, %$62] ; # Tos"},{"Add":" %348 = phi i64 [%344, %$62] ; # P"},{"Add":"; # (let (X Tos Y (cdr X)) (setq Tos (cdr Y)) (set 2 Y P) (setq P X))..."},{"Add":"; # (cdr X)"},{"Add":" %349 = inttoptr i64 %347 to i64*"},{"Add":" %350 = getelementptr i64, i64* %349, i32 1"},{"Add":" %351 = load i64, i64* %350"},{"Add":"; # (cdr Y)"},{"Add":" %352 = inttoptr i64 %351 to i64*"},{"Add":" %353 = getelementptr i64, i64* %352, i32 1"},{"Add":" %354 = load i64, i64* %353"},{"Add":"; # (set 2 Y P)"},{"Add":" %355 = inttoptr i64 %351 to i64*"},{"Add":" %356 = getelementptr i64, i64* %355, i32 1"},{"Add":" store i64 %348, i64* %356"},{"Add":" br label %$64"},{"Add":"$63:"},{"Add":" %357 = phi i64 [%343, %$62] ; # Tos"},{"Add":" %358 = phi i64 [%344, %$62] ; # P"},{"Add":"; # (& Tos -9)"},{"Add":" %359 = and i64 %357, -9"},{"Add":"; # (let (X Tos Y (cdr X)) (setq Tos (car Y)) (set Y P) (setq P X))"},{"Add":"; # (cdr X)"},{"Add":" %360 = inttoptr i64 %359 to i64*"},{"Add":" %361 = getelementptr i64, i64* %360, i32 1"},{"Add":" %362 = load i64, i64* %361"},{"Add":"; # (car Y)"},{"Add":" %363 = inttoptr i64 %362 to i64*"},{"Add":" %364 = load i64, i64* %363"},{"Add":"; # (set Y P)"},{"Add":" %365 = inttoptr i64 %362 to i64*"},{"Add":" store i64 %358, i64* %365"},{"Add":" br label %$60"},{"Add":"$64:"},{"Add":" %366 = phi i64 [%354, %$65] ; # Tos"},{"Add":" %367 = phi i64 [%347, %$65] ; # P"},{"Add":" %368 = phi i64 [%347, %$65] ; # ->"},{"Add":" br label %$47"},{"Add":"$58:"},{"Add":" %369 = phi i64 [%335, %$59] ; # Tos"},{"Add":" %370 = phi i64 [%329, %$59] ; # P"},{"Add":" %371 = phi i64 [%335, %$59] ; # ->"},{"Add":" br label %$43"},{"Add":"$66:"},{"Add":"; # (: 1 (when (val $DBs) (set $DB $Db1)) (when (& (val $Db1) 1) (set..."},{"Add":" br label %$-1"},{"Add":"$-1:"},{"Add":"; # (when (val $DBs) (set $DB $Db1))"},{"Add":"; # (val $DBs)"},{"Add":" %372 = load i32, i32* @$DBs"},{"Add":" %373 = icmp ne i32 %372, 0"},{"Add":" br i1 %373, label %$67, label %$68"},{"Add":"$67:"},{"Add":"; # (set $DB $Db1)"},{"Add":" %374 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 232) to i64) to i64*"},{"Add":" store i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 408) to i64), i64* %374"},{"Add":" br label %$68"},{"Add":"$68:"},{"Add":"; # (when (& (val $Db1) 1) (set $Db1 $Nil (tail $Db1) DB1))"},{"Add":"; # (val $Db1)"},{"Add":" %375 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 408) to i64) to i64*"},{"Add":" %376 = load i64, i64* %375"},{"Add":"; # (& (val $Db1) 1)"},{"Add":" %377 = and i64 %376, 1"},{"Add":" %378 = icmp ne i64 %377, 0"},{"Add":" br i1 %378, label %$69, label %$70"},{"Add":"$69:"},{"Add":"; # (set $Db1 $Nil (tail $Db1) DB1)"},{"Add":" %379 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 408) to i64) to i64*"},{"Add":" store i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), i64* %379"},{"Add":"; # (tail $Db1)"},{"Add":" %380 = add i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 408) to i64), -8"},{"Add":" %381 = inttoptr i64 %380 to i64*"},{"Add":" store i64 26, i64* %381"},{"Add":" br label %$70"},{"Add":"$70:"},{"Add":"; # (let (Tos 0 P (val $Extern)) (: 2 (loop (loop (let X (cdr P) (? (..."},{"Add":"; # (val $Extern)"},{"Add":" %382 = load i64, i64* @$Extern"},{"Add":"; # (: 2 (loop (loop (let X (cdr P) (? (atom (cdr X))) (let Z P (setq..."},{"Add":" br label %$-2"},{"Add":"$-2:"},{"Add":" %383 = phi i64 [0, %$70], [%454, %$82] ; # Tos"},{"Add":" %384 = phi i64 [%382, %$70], [%461, %$82] ; # P"},{"Add":"; # (loop (loop (let X (cdr P) (? (atom (cdr X))) (let Z P (setq P @)..."},{"Add":" br label %$71"},{"Add":"$71:"},{"Add":" %385 = phi i64 [%383, %$-2], [%589, %$91] ; # Tos"},{"Add":" %386 = phi i64 [%384, %$-2], [%590, %$91] ; # P"},{"Add":"; # (loop (let X (cdr P) (? (atom (cdr X))) (let Z P (setq P @) (set ..."},{"Add":" br label %$72"},{"Add":"$72:"},{"Add":" %387 = phi i64 [%385, %$71], [%398, %$73] ; # Tos"},{"Add":" %388 = phi i64 [%386, %$71], [%394, %$73] ; # P"},{"Add":"; # (let X (cdr P) (? (atom (cdr X))) (let Z P (setq P @) (set 2 X To..."},{"Add":"; # (cdr P)"},{"Add":" %389 = inttoptr i64 %388 to i64*"},{"Add":" %390 = getelementptr i64, i64* %389, i32 1"},{"Add":" %391 = load i64, i64* %390"},{"Add":"; # (? (atom (cdr X)))"},{"Add":"; # (cdr X)"},{"Add":" %392 = inttoptr i64 %391 to i64*"},{"Add":" %393 = getelementptr i64, i64* %392, i32 1"},{"Add":" %394 = load i64, i64* %393"},{"Add":"; # (atom (cdr X))"},{"Add":" %395 = and i64 %394, 15"},{"Add":" %396 = icmp ne i64 %395, 0"},{"Add":" br i1 %396, label %$74, label %$73"},{"Add":"$73:"},{"Add":" %397 = phi i64 [%387, %$72] ; # Tos"},{"Add":" %398 = phi i64 [%388, %$72] ; # P"},{"Add":"; # (let Z P (setq P @) (set 2 X Tos) (setq Tos Z))"},{"Add":"; # (set 2 X Tos)"},{"Add":" %399 = inttoptr i64 %391 to i64*"},{"Add":" %400 = getelementptr i64, i64* %399, i32 1"},{"Add":" store i64 %397, i64* %400"},{"Add":" br label %$72"},{"Add":"$74:"},{"Add":" %401 = phi i64 [%387, %$72] ; # Tos"},{"Add":" %402 = phi i64 [%388, %$72] ; # P"},{"Add":" %403 = phi i64 [0, %$72] ; # ->"},{"Add":"; # (loop (when (& (val (val P)) 1) (set $ExtCnt (- (val $ExtCnt) 1))..."},{"Add":" br label %$75"},{"Add":"$75:"},{"Add":" %404 = phi i64 [%401, %$74], [%586, %$97] ; # Tos"},{"Add":" %405 = phi i64 [%402, %$74], [%587, %$97] ; # P"},{"Add":"; # (when (& (val (val P)) 1) (set $ExtCnt (- (val $ExtCnt) 1)) (let ..."},{"Add":"; # (val P)"},{"Add":" %406 = inttoptr i64 %405 to i64*"},{"Add":" %407 = load i64, i64* %406"},{"Add":"; # (val (val P))"},{"Add":" %408 = inttoptr i64 %407 to i64*"},{"Add":" %409 = load i64, i64* %408"},{"Add":"; # (& (val (val P)) 1)"},{"Add":" %410 = and i64 %409, 1"},{"Add":" %411 = icmp ne i64 %410, 0"},{"Add":" br i1 %411, label %$76, label %$77"},{"Add":"$76:"},{"Add":" %412 = phi i64 [%404, %$75] ; # Tos"},{"Add":" %413 = phi i64 [%405, %$75] ; # P"},{"Add":"; # (set $ExtCnt (- (val $ExtCnt) 1))"},{"Add":"; # (val $ExtCnt)"},{"Add":" %414 = load i64, i64* @$ExtCnt"},{"Add":"; # (- (val $ExtCnt) 1)"},{"Add":" %415 = sub i64 %414, 1"},{"Add":" store i64 %415, i64* @$ExtCnt"},{"Add":"; # (let X (cdr P) (when (atom X) (set 2 P (| X 1)) (setq P X) (goto ..."},{"Add":"; # (cdr P)"},{"Add":" %416 = inttoptr i64 %413 to i64*"},{"Add":" %417 = getelementptr i64, i64* %416, i32 1"},{"Add":" %418 = load i64, i64* %417"},{"Add":"; # (when (atom X) (set 2 P (| X 1)) (setq P X) (goto 4))"},{"Add":"; # (atom X)"},{"Add":" %419 = and i64 %418, 15"},{"Add":" %420 = icmp ne i64 %419, 0"},{"Add":" br i1 %420, label %$78, label %$79"},{"Add":"$78:"},{"Add":" %421 = phi i64 [%412, %$76] ; # Tos"},{"Add":" %422 = phi i64 [%413, %$76] ; # P"},{"Add":" %423 = phi i64 [%418, %$76] ; # X"},{"Add":"; # (set 2 P (| X 1))"},{"Add":"; # (| X 1)"},{"Add":" %424 = or i64 %423, 1"},{"Add":" %425 = inttoptr i64 %422 to i64*"},{"Add":" %426 = getelementptr i64, i64* %425, i32 1"},{"Add":" store i64 %424, i64* %426"},{"Add":"; # (goto 4)"},{"Add":" br label %$-4"},{"Add":"$79:"},{"Add":" %427 = phi i64 [%412, %$76] ; # Tos"},{"Add":" %428 = phi i64 [%413, %$76] ; # P"},{"Add":" %429 = phi i64 [%418, %$76] ; # X"},{"Add":"; # (when (atom (car X)) (set 2 P (| X 1)) (setq P (cdr X)) (set 2 X ..."},{"Add":"; # (car X)"},{"Add":" %430 = inttoptr i64 %429 to i64*"},{"Add":" %431 = load i64, i64* %430"},{"Add":"; # (atom (car X))"},{"Add":" %432 = and i64 %431, 15"},{"Add":" %433 = icmp ne i64 %432, 0"},{"Add":" br i1 %433, label %$80, label %$81"},{"Add":"$80:"},{"Add":" %434 = phi i64 [%427, %$79] ; # Tos"},{"Add":" %435 = phi i64 [%428, %$79] ; # P"},{"Add":" %436 = phi i64 [%429, %$79] ; # X"},{"Add":"; # (set 2 P (| X 1))"},{"Add":"; # (| X 1)"},{"Add":" %437 = or i64 %436, 1"},{"Add":" %438 = inttoptr i64 %435 to i64*"},{"Add":" %439 = getelementptr i64, i64* %438, i32 1"},{"Add":" store i64 %437, i64* %439"},{"Add":"; # (cdr X)"},{"Add":" %440 = inttoptr i64 %436 to i64*"},{"Add":" %441 = getelementptr i64, i64* %440, i32 1"},{"Add":" %442 = load i64, i64* %441"},{"Add":"; # (set 2 X (| P 1))"},{"Add":"; # (| P 1)"},{"Add":" %443 = or i64 %442, 1"},{"Add":" %444 = inttoptr i64 %436 to i64*"},{"Add":" %445 = getelementptr i64, i64* %444, i32 1"},{"Add":" store i64 %443, i64* %445"},{"Add":"; # (goto 4)"},{"Add":" br label %$-4"},{"Add":"$81:"},{"Add":" %446 = phi i64 [%427, %$79] ; # Tos"},{"Add":" %447 = phi i64 [%428, %$79] ; # P"},{"Add":" %448 = phi i64 [%429, %$79] ; # X"},{"Add":"; # (when (atom (cdr X)) (set 2 P (| X 1)) (setq P (car X)) (set 2 X ..."},{"Add":"; # (cdr X)"},{"Add":" %449 = inttoptr i64 %448 to i64*"},{"Add":" %450 = getelementptr i64, i64* %449, i32 1"},{"Add":" %451 = load i64, i64* %450"},{"Add":"; # (atom (cdr X))"},{"Add":" %452 = and i64 %451, 15"},{"Add":" %453 = icmp ne i64 %452, 0"},{"Add":" br i1 %453, label %$82, label %$83"},{"Add":"$82:"},{"Add":" %454 = phi i64 [%446, %$81] ; # Tos"},{"Add":" %455 = phi i64 [%447, %$81] ; # P"},{"Add":" %456 = phi i64 [%448, %$81] ; # X"},{"Add":"; # (set 2 P (| X 1))"},{"Add":"; # (| X 1)"},{"Add":" %457 = or i64 %456, 1"},{"Add":" %458 = inttoptr i64 %455 to i64*"},{"Add":" %459 = getelementptr i64, i64* %458, i32 1"},{"Add":" store i64 %457, i64* %459"},{"Add":"; # (car X)"},{"Add":" %460 = inttoptr i64 %456 to i64*"},{"Add":" %461 = load i64, i64* %460"},{"Add":"; # (set 2 X (| (cdr X) 1))"},{"Add":"; # (cdr X)"},{"Add":" %462 = inttoptr i64 %456 to i64*"},{"Add":" %463 = getelementptr i64, i64* %462, i32 1"},{"Add":" %464 = load i64, i64* %463"},{"Add":"; # (| (cdr X) 1)"},{"Add":" %465 = or i64 %464, 1"},{"Add":" %466 = inttoptr i64 %456 to i64*"},{"Add":" %467 = getelementptr i64, i64* %466, i32 1"},{"Add":" store i64 %465, i64* %467"},{"Add":"; # (goto 2)"},{"Add":" br label %$-2"},{"Add":"$83:"},{"Add":" %468 = phi i64 [%446, %$81] ; # Tos"},{"Add":" %469 = phi i64 [%447, %$81] ; # P"},{"Add":" %470 = phi i64 [%448, %$81] ; # X"},{"Add":"; # (let Y (cdr (shift X)) (when (atom (car Y)) (set P (car X) 2 (cdr..."},{"Add":"; # (shift X)"},{"Add":" %471 = inttoptr i64 %470 to i64*"},{"Add":" %472 = getelementptr i64, i64* %471, i32 1"},{"Add":" %473 = load i64, i64* %472"},{"Add":"; # (cdr (shift X))"},{"Add":" %474 = inttoptr i64 %473 to i64*"},{"Add":" %475 = getelementptr i64, i64* %474, i32 1"},{"Add":" %476 = load i64, i64* %475"},{"Add":"; # (when (atom (car Y)) (set P (car X) 2 (cdr P) (cdr Y)) (goto 3))"},{"Add":"; # (car Y)"},{"Add":" %477 = inttoptr i64 %476 to i64*"},{"Add":" %478 = load i64, i64* %477"},{"Add":"; # (atom (car Y))"},{"Add":" %479 = and i64 %478, 15"},{"Add":" %480 = icmp ne i64 %479, 0"},{"Add":" br i1 %480, label %$84, label %$85"},{"Add":"$84:"},{"Add":" %481 = phi i64 [%468, %$83] ; # Tos"},{"Add":" %482 = phi i64 [%469, %$83] ; # P"},{"Add":" %483 = phi i64 [%473, %$83] ; # X"},{"Add":" %484 = phi i64 [%476, %$83] ; # Y"},{"Add":"; # (set P (car X) 2 (cdr P) (cdr Y))"},{"Add":"; # (car X)"},{"Add":" %485 = inttoptr i64 %483 to i64*"},{"Add":" %486 = load i64, i64* %485"},{"Add":" %487 = inttoptr i64 %482 to i64*"},{"Add":" store i64 %486, i64* %487"},{"Add":"; # (cdr P)"},{"Add":" %488 = inttoptr i64 %482 to i64*"},{"Add":" %489 = getelementptr i64, i64* %488, i32 1"},{"Add":" %490 = load i64, i64* %489"},{"Add":"; # (cdr Y)"},{"Add":" %491 = inttoptr i64 %484 to i64*"},{"Add":" %492 = getelementptr i64, i64* %491, i32 1"},{"Add":" %493 = load i64, i64* %492"},{"Add":" %494 = inttoptr i64 %490 to i64*"},{"Add":" %495 = getelementptr i64, i64* %494, i32 1"},{"Add":" store i64 %493, i64* %495"},{"Add":"; # (goto 3)"},{"Add":" br label %$-3"},{"Add":"$85:"},{"Add":" %496 = phi i64 [%468, %$83] ; # Tos"},{"Add":" %497 = phi i64 [%469, %$83] ; # P"},{"Add":" %498 = phi i64 [%473, %$83] ; # X"},{"Add":" %499 = phi i64 [%476, %$83] ; # Y"},{"Add":"; # (car Y)"},{"Add":" %500 = inttoptr i64 %499 to i64*"},{"Add":" %501 = load i64, i64* %500"},{"Add":"; # (loop (? (atom (cadr Y)) (set P (car Y) (cdr X) (cddr Y))) (setq ..."},{"Add":" br label %$86"},{"Add":"$86:"},{"Add":" %502 = phi i64 [%496, %$85], [%530, %$87] ; # Tos"},{"Add":" %503 = phi i64 [%497, %$85], [%531, %$87] ; # P"},{"Add":" %504 = phi i64 [%498, %$85], [%533, %$87] ; # X"},{"Add":" %505 = phi i64 [%501, %$85], [%510, %$87] ; # Y"},{"Add":"; # (? (atom (cadr Y)) (set P (car Y) (cdr X) (cddr Y)))"},{"Add":"; # (cadr Y)"},{"Add":" %506 = inttoptr i64 %505 to i64*"},{"Add":" %507 = getelementptr i64, i64* %506, i32 1"},{"Add":" %508 = load i64, i64* %507"},{"Add":" %509 = inttoptr i64 %508 to i64*"},{"Add":" %510 = load i64, i64* %509"},{"Add":"; # (atom (cadr Y))"},{"Add":" %511 = and i64 %510, 15"},{"Add":" %512 = icmp ne i64 %511, 0"},{"Add":" br i1 %512, label %$89, label %$87"},{"Add":"$89:"},{"Add":" %513 = phi i64 [%502, %$86] ; # Tos"},{"Add":" %514 = phi i64 [%503, %$86] ; # P"},{"Add":" %515 = phi i64 [%504, %$86] ; # X"},{"Add":" %516 = phi i64 [%505, %$86] ; # Y"},{"Add":"; # (set P (car Y) (cdr X) (cddr Y))"},{"Add":"; # (car Y)"},{"Add":" %517 = inttoptr i64 %516 to i64*"},{"Add":" %518 = load i64, i64* %517"},{"Add":" %519 = inttoptr i64 %514 to i64*"},{"Add":" store i64 %518, i64* %519"},{"Add":"; # (cdr X)"},{"Add":" %520 = inttoptr i64 %515 to i64*"},{"Add":" %521 = getelementptr i64, i64* %520, i32 1"},{"Add":" %522 = load i64, i64* %521"},{"Add":"; # (cddr Y)"},{"Add":" %523 = inttoptr i64 %516 to i64*"},{"Add":" %524 = getelementptr i64, i64* %523, i32 1"},{"Add":" %525 = load i64, i64* %524"},{"Add":" %526 = inttoptr i64 %525 to i64*"},{"Add":" %527 = getelementptr i64, i64* %526, i32 1"},{"Add":" %528 = load i64, i64* %527"},{"Add":" %529 = inttoptr i64 %522 to i64*"},{"Add":" store i64 %528, i64* %529"},{"Add":" br label %$88"},{"Add":"$87:"},{"Add":" %530 = phi i64 [%502, %$86] ; # Tos"},{"Add":" %531 = phi i64 [%503, %$86] ; # P"},{"Add":" %532 = phi i64 [%504, %$86] ; # X"},{"Add":" %533 = phi i64 [%505, %$86] ; # Y"},{"Add":" br label %$86"},{"Add":"$88:"},{"Add":" %534 = phi i64 [%513, %$89] ; # Tos"},{"Add":" %535 = phi i64 [%514, %$89] ; # P"},{"Add":" %536 = phi i64 [%515, %$89] ; # X"},{"Add":" %537 = phi i64 [%516, %$89] ; # Y"},{"Add":" %538 = phi i64 [%528, %$89] ; # ->"},{"Add":" br label %$77"},{"Add":"$77:"},{"Add":" %539 = phi i64 [%404, %$75], [%534, %$88] ; # Tos"},{"Add":" %540 = phi i64 [%405, %$75], [%535, %$88] ; # P"},{"Add":"; # (: 3 (let X (cdr P) (? (pair (car X)) (let Z P (setq P @) (set X ..."},{"Add":" br label %$-3"},{"Add":"$-3:"},{"Add":" %541 = phi i64 [%481, %$84], [%539, %$77] ; # Tos"},{"Add":" %542 = phi i64 [%482, %$84], [%540, %$77] ; # P"},{"Add":"; # (let X (cdr P) (? (pair (car X)) (let Z P (setq P @) (set X Tos) ..."},{"Add":"; # (cdr P)"},{"Add":" %543 = inttoptr i64 %542 to i64*"},{"Add":" %544 = getelementptr i64, i64* %543, i32 1"},{"Add":" %545 = load i64, i64* %544"},{"Add":"; # (? (pair (car X)) (let Z P (setq P @) (set X Tos) (setq Tos (| Z ..."},{"Add":"; # (car X)"},{"Add":" %546 = inttoptr i64 %545 to i64*"},{"Add":" %547 = load i64, i64* %546"},{"Add":"; # (pair (car X))"},{"Add":" %548 = and i64 %547, 15"},{"Add":" %549 = icmp eq i64 %548, 0"},{"Add":" br i1 %549, label %$92, label %$90"},{"Add":"$92:"},{"Add":" %550 = phi i64 [%541, %$-3] ; # Tos"},{"Add":" %551 = phi i64 [%542, %$-3] ; # P"},{"Add":"; # (let Z P (setq P @) (set X Tos) (setq Tos (| Z 8)))"},{"Add":"; # (set X Tos)"},{"Add":" %552 = inttoptr i64 %545 to i64*"},{"Add":" store i64 %550, i64* %552"},{"Add":"; # (| Z 8)"},{"Add":" %553 = or i64 %551, 8"},{"Add":" br label %$91"},{"Add":"$90:"},{"Add":" %554 = phi i64 [%541, %$-3] ; # Tos"},{"Add":" %555 = phi i64 [%542, %$-3] ; # P"},{"Add":"; # (: 4 (loop (unless Tos (goto 5)) (? (=0 (& Tos 8)) (let (X Tos Y ..."},{"Add":" br label %$-4"},{"Add":"$-4:"},{"Add":" %556 = phi i64 [%421, %$78], [%434, %$80], [%554, %$90] ; # Tos"},{"Add":" %557 = phi i64 [%423, %$78], [%442, %$80], [%555, %$90] ; # P"},{"Add":"; # (loop (unless Tos (goto 5)) (? (=0 (& Tos 8)) (let (X Tos Y (cdr ..."},{"Add":" br label %$93"},{"Add":"$93:"},{"Add":" %558 = phi i64 [%556, %$-4], [%584, %$96] ; # Tos"},{"Add":" %559 = phi i64 [%557, %$-4], [%579, %$96] ; # P"},{"Add":"; # (unless Tos (goto 5))"},{"Add":" %560 = icmp ne i64 %558, 0"},{"Add":" br i1 %560, label %$95, label %$94"},{"Add":"$94:"},{"Add":" %561 = phi i64 [%558, %$93] ; # Tos"},{"Add":" %562 = phi i64 [%559, %$93] ; # P"},{"Add":"; # (goto 5)"},{"Add":" br label %$-5"},{"Add":"$95:"},{"Add":" %563 = phi i64 [%558, %$93] ; # Tos"},{"Add":" %564 = phi i64 [%559, %$93] ; # P"},{"Add":"; # (? (=0 (& Tos 8)) (let (X Tos Y (cdr X)) (setq Tos (cdr Y)) (set ..."},{"Add":"; # (& Tos 8)"},{"Add":" %565 = and i64 %563, 8"},{"Add":"; # (=0 (& Tos 8))"},{"Add":" %566 = icmp eq i64 %565, 0"},{"Add":" br i1 %566, label %$98, label %$96"},{"Add":"$98:"},{"Add":" %567 = phi i64 [%563, %$95] ; # Tos"},{"Add":" %568 = phi i64 [%564, %$95] ; # P"},{"Add":"; # (let (X Tos Y (cdr X)) (setq Tos (cdr Y)) (set 2 Y P) (setq P X))..."},{"Add":"; # (cdr X)"},{"Add":" %569 = inttoptr i64 %567 to i64*"},{"Add":" %570 = getelementptr i64, i64* %569, i32 1"},{"Add":" %571 = load i64, i64* %570"},{"Add":"; # (cdr Y)"},{"Add":" %572 = inttoptr i64 %571 to i64*"},{"Add":" %573 = getelementptr i64, i64* %572, i32 1"},{"Add":" %574 = load i64, i64* %573"},{"Add":"; # (set 2 Y P)"},{"Add":" %575 = inttoptr i64 %571 to i64*"},{"Add":" %576 = getelementptr i64, i64* %575, i32 1"},{"Add":" store i64 %568, i64* %576"},{"Add":" br label %$97"},{"Add":"$96:"},{"Add":" %577 = phi i64 [%563, %$95] ; # Tos"},{"Add":" %578 = phi i64 [%564, %$95] ; # P"},{"Add":"; # (let (X (& Tos -9) Y (cdr X)) (setq Tos (car Y)) (set Y P) (setq ..."},{"Add":"; # (& Tos -9)"},{"Add":" %579 = and i64 %577, -9"},{"Add":"; # (cdr X)"},{"Add":" %580 = inttoptr i64 %579 to i64*"},{"Add":" %581 = getelementptr i64, i64* %580, i32 1"},{"Add":" %582 = load i64, i64* %581"},{"Add":"; # (car Y)"},{"Add":" %583 = inttoptr i64 %582 to i64*"},{"Add":" %584 = load i64, i64* %583"},{"Add":"; # (set Y P)"},{"Add":" %585 = inttoptr i64 %582 to i64*"},{"Add":" store i64 %578, i64* %585"},{"Add":" br label %$93"},{"Add":"$97:"},{"Add":" %586 = phi i64 [%574, %$98] ; # Tos"},{"Add":" %587 = phi i64 [%567, %$98] ; # P"},{"Add":" %588 = phi i64 [%567, %$98] ; # ->"},{"Add":" br label %$75"},{"Add":"$91:"},{"Add":" %589 = phi i64 [%553, %$92] ; # Tos"},{"Add":" %590 = phi i64 [%547, %$92] ; # P"},{"Add":" %591 = phi i64 [%553, %$92] ; # ->"},{"Add":" br label %$71"},{"Add":"$99:"},{"Add":"; # (: 5 (set $Extern P))"},{"Add":" br label %$-5"},{"Add":"$-5:"},{"Add":" %592 = phi i64 [%561, %$94], [%589, %$99] ; # Tos"},{"Add":" %593 = phi i64 [%562, %$94], [%590, %$99] ; # P"},{"Add":"; # (set $Extern P)"},{"Add":" store i64 %593, i64* @$Extern"},{"Add":"; # (let (Avail 0 Heap (val $Heaps) Cnt (val $GcCount)) (ifn Cnt (let..."},{"Add":"; # (val $Heaps)"},{"Add":" %594 = load i64, i64* @$Heaps"},{"Add":"; # (val $GcCount)"},{"Add":" %595 = load i64, i64* @$GcCount"},{"Add":"; # (ifn Cnt (let H (any $Heaps) (loop (let (A Avail P (ofs Heap (- H..."},{"Add":" %596 = icmp ne i64 %595, 0"},{"Add":" br i1 %596, label %$101, label %$100"},{"Add":"$100:"},{"Add":" %597 = phi i64 [0, %$-5] ; # Avail"},{"Add":" %598 = phi i64 [%594, %$-5] ; # Heap"},{"Add":" %599 = phi i64 [%595, %$-5] ; # Cnt"},{"Add":"; # (let H (any $Heaps) (loop (let (A Avail P (ofs Heap (- HEAP 2))) ..."},{"Add":"; # (any $Heaps)"},{"Add":" %600 = ptrtoint i64* @$Heaps to i64"},{"Add":"; # (loop (let (A Avail P (ofs Heap (- HEAP 2))) (setq Cnt CELLS) (lo..."},{"Add":" br label %$103"},{"Add":"$103:"},{"Add":" %601 = phi i64 [%597, %$100], [%669, %$112] ; # Avail"},{"Add":" %602 = phi i64 [%598, %$100], [%670, %$112] ; # Heap"},{"Add":" %603 = phi i64 [%599, %$100], [%671, %$112] ; # Cnt"},{"Add":" %604 = phi i64 [%600, %$100], [%672, %$112] ; # H"},{"Add":"; # (let (A Avail P (ofs Heap (- HEAP 2))) (setq Cnt CELLS) (loop (wh..."},{"Add":"; # (- HEAP 2)"},{"Add":"; # (ofs Heap (- HEAP 2))"},{"Add":" %605 = add i64 %602, 1048560"},{"Add":"; # (loop (when (& (cdr P) 1) (set P Avail) (setq Avail P) (dec 'Cnt)..."},{"Add":" br label %$104"},{"Add":"$104:"},{"Add":" %606 = phi i64 [%601, %$103], [%629, %$107] ; # Avail"},{"Add":" %607 = phi i64 [%602, %$103], [%630, %$107] ; # Heap"},{"Add":" %608 = phi i64 [65536, %$103], [%631, %$107] ; # Cnt"},{"Add":" %609 = phi i64 [%604, %$103], [%632, %$107] ; # H"},{"Add":" %610 = phi i64 [%605, %$103], [%634, %$107] ; # P"},{"Add":"; # (when (& (cdr P) 1) (set P Avail) (setq Avail P) (dec 'Cnt))"},{"Add":"; # (cdr P)"},{"Add":" %611 = inttoptr i64 %610 to i64*"},{"Add":" %612 = getelementptr i64, i64* %611, i32 1"},{"Add":" %613 = load i64, i64* %612"},{"Add":"; # (& (cdr P) 1)"},{"Add":" %614 = and i64 %613, 1"},{"Add":" %615 = icmp ne i64 %614, 0"},{"Add":" br i1 %615, label %$105, label %$106"},{"Add":"$105:"},{"Add":" %616 = phi i64 [%606, %$104] ; # Avail"},{"Add":" %617 = phi i64 [%607, %$104] ; # Heap"},{"Add":" %618 = phi i64 [%608, %$104] ; # Cnt"},{"Add":" %619 = phi i64 [%609, %$104] ; # H"},{"Add":" %620 = phi i64 [%610, %$104] ; # P"},{"Add":"; # (set P Avail)"},{"Add":" %621 = inttoptr i64 %620 to i64*"},{"Add":" store i64 %616, i64* %621"},{"Add":"; # (dec 'Cnt)"},{"Add":" %622 = sub i64 %618, 1"},{"Add":" br label %$106"},{"Add":"$106:"},{"Add":" %623 = phi i64 [%606, %$104], [%620, %$105] ; # Avail"},{"Add":" %624 = phi i64 [%607, %$104], [%617, %$105] ; # Heap"},{"Add":" %625 = phi i64 [%608, %$104], [%622, %$105] ; # Cnt"},{"Add":" %626 = phi i64 [%609, %$104], [%619, %$105] ; # H"},{"Add":" %627 = phi i64 [%610, %$104], [%620, %$105] ; # P"},{"Add":"; # (? (== P Heap))"},{"Add":"; # (== P Heap)"},{"Add":" %628 = icmp eq i64 %627, %624"},{"Add":" br i1 %628, label %$108, label %$107"},{"Add":"$107:"},{"Add":" %629 = phi i64 [%623, %$106] ; # Avail"},{"Add":" %630 = phi i64 [%624, %$106] ; # Heap"},{"Add":" %631 = phi i64 [%625, %$106] ; # Cnt"},{"Add":" %632 = phi i64 [%626, %$106] ; # H"},{"Add":" %633 = phi i64 [%627, %$106] ; # P"},{"Add":"; # (ofs P -2)"},{"Add":" %634 = add i64 %633, -16"},{"Add":" br label %$104"},{"Add":"$108:"},{"Add":" %635 = phi i64 [%623, %$106] ; # Avail"},{"Add":" %636 = phi i64 [%624, %$106] ; # Heap"},{"Add":" %637 = phi i64 [%625, %$106] ; # Cnt"},{"Add":" %638 = phi i64 [%626, %$106] ; # H"},{"Add":" %639 = phi i64 [%627, %$106] ; # P"},{"Add":" %640 = phi i64 [0, %$106] ; # ->"},{"Add":"; # (if Cnt (setq Heap (val (setq H (ofs Heap HEAP)))) (setq Avail A ..."},{"Add":" %641 = icmp ne i64 %637, 0"},{"Add":" br i1 %641, label %$109, label %$110"},{"Add":"$109:"},{"Add":" %642 = phi i64 [%635, %$108] ; # Avail"},{"Add":" %643 = phi i64 [%636, %$108] ; # Heap"},{"Add":" %644 = phi i64 [%637, %$108] ; # Cnt"},{"Add":" %645 = phi i64 [%638, %$108] ; # H"},{"Add":" %646 = phi i64 [%639, %$108] ; # P"},{"Add":"; # (ofs Heap HEAP)"},{"Add":" %647 = add i64 %643, 1048576"},{"Add":"; # (val (setq H (ofs Heap HEAP)))"},{"Add":" %648 = inttoptr i64 %647 to i64*"},{"Add":" %649 = load i64, i64* %648"},{"Add":" br label %$111"},{"Add":"$110:"},{"Add":" %650 = phi i64 [%635, %$108] ; # Avail"},{"Add":" %651 = phi i64 [%636, %$108] ; # Heap"},{"Add":" %652 = phi i64 [%637, %$108] ; # Cnt"},{"Add":" %653 = phi i64 [%638, %$108] ; # H"},{"Add":" %654 = phi i64 [%639, %$108] ; # P"},{"Add":"; # (inc HEAP)"},{"Add":"; # (val (inc HEAP) Heap)"},{"Add":" %655 = inttoptr i64 %651 to i64*"},{"Add":" %656 = getelementptr i64, i64* %655, i32 131072"},{"Add":" %657 = load i64, i64* %656"},{"Add":"; # (val H)"},{"Add":" %658 = inttoptr i64 %653 to i64*"},{"Add":" %659 = load i64, i64* %658"},{"Add":"; # (i8* (val H))"},{"Add":" %660 = inttoptr i64 %659 to i8*"},{"Add":"; # (free (i8* (val H)))"},{"Add":" call void @free(i8* %660)"},{"Add":"; # (set H Heap)"},{"Add":" %661 = inttoptr i64 %653 to i64*"},{"Add":" store i64 %657, i64* %661"},{"Add":" br label %$111"},{"Add":"$111:"},{"Add":" %662 = phi i64 [%642, %$109], [%601, %$110] ; # Avail"},{"Add":" %663 = phi i64 [%649, %$109], [%657, %$110] ; # Heap"},{"Add":" %664 = phi i64 [%644, %$109], [%652, %$110] ; # Cnt"},{"Add":" %665 = phi i64 [%647, %$109], [%653, %$110] ; # H"},{"Add":" %666 = phi i64 [%646, %$109], [%654, %$110] ; # P"},{"Add":" %667 = phi i64 [%649, %$109], [%657, %$110] ; # ->"},{"Add":"; # (? (=0 Heap))"},{"Add":"; # (=0 Heap)"},{"Add":" %668 = icmp eq i64 %663, 0"},{"Add":" br i1 %668, label %$113, label %$112"},{"Add":"$112:"},{"Add":" %669 = phi i64 [%662, %$111] ; # Avail"},{"Add":" %670 = phi i64 [%663, %$111] ; # Heap"},{"Add":" %671 = phi i64 [%664, %$111] ; # Cnt"},{"Add":" %672 = phi i64 [%665, %$111] ; # H"},{"Add":" br label %$103"},{"Add":"$113:"},{"Add":" %673 = phi i64 [%662, %$111] ; # Avail"},{"Add":" %674 = phi i64 [%663, %$111] ; # Heap"},{"Add":" %675 = phi i64 [%664, %$111] ; # Cnt"},{"Add":" %676 = phi i64 [%665, %$111] ; # H"},{"Add":" %677 = phi i64 [0, %$111] ; # ->"},{"Add":"; # (set $Avail Avail)"},{"Add":" store i64 %673, i64* @$Avail"},{"Add":" br label %$102"},{"Add":"$101:"},{"Add":" %678 = phi i64 [0, %$-5] ; # Avail"},{"Add":" %679 = phi i64 [%594, %$-5] ; # Heap"},{"Add":" %680 = phi i64 [%595, %$-5] ; # Cnt"},{"Add":"; # (loop (let P (ofs Heap (- HEAP 2)) (loop (when (& (cdr P) 1) (set..."},{"Add":" br label %$114"},{"Add":"$114:"},{"Add":" %681 = phi i64 [%678, %$101], [%719, %$120] ; # Avail"},{"Add":" %682 = phi i64 [%679, %$101], [%720, %$120] ; # Heap"},{"Add":" %683 = phi i64 [%680, %$101], [%721, %$120] ; # Cnt"},{"Add":"; # (let P (ofs Heap (- HEAP 2)) (loop (when (& (cdr P) 1) (set P Ava..."},{"Add":"; # (- HEAP 2)"},{"Add":"; # (ofs Heap (- HEAP 2))"},{"Add":" %684 = add i64 %682, 1048560"},{"Add":"; # (loop (when (& (cdr P) 1) (set P Avail) (setq Avail P) (dec 'Cnt)..."},{"Add":" br label %$115"},{"Add":"$115:"},{"Add":" %685 = phi i64 [%681, %$114], [%705, %$118] ; # Avail"},{"Add":" %686 = phi i64 [%682, %$114], [%706, %$118] ; # Heap"},{"Add":" %687 = phi i64 [%683, %$114], [%707, %$118] ; # Cnt"},{"Add":" %688 = phi i64 [%684, %$114], [%709, %$118] ; # P"},{"Add":"; # (when (& (cdr P) 1) (set P Avail) (setq Avail P) (dec 'Cnt))"},{"Add":"; # (cdr P)"},{"Add":" %689 = inttoptr i64 %688 to i64*"},{"Add":" %690 = getelementptr i64, i64* %689, i32 1"},{"Add":" %691 = load i64, i64* %690"},{"Add":"; # (& (cdr P) 1)"},{"Add":" %692 = and i64 %691, 1"},{"Add":" %693 = icmp ne i64 %692, 0"},{"Add":" br i1 %693, label %$116, label %$117"},{"Add":"$116:"},{"Add":" %694 = phi i64 [%685, %$115] ; # Avail"},{"Add":" %695 = phi i64 [%686, %$115] ; # Heap"},{"Add":" %696 = phi i64 [%687, %$115] ; # Cnt"},{"Add":" %697 = phi i64 [%688, %$115] ; # P"},{"Add":"; # (set P Avail)"},{"Add":" %698 = inttoptr i64 %697 to i64*"},{"Add":" store i64 %694, i64* %698"},{"Add":"; # (dec 'Cnt)"},{"Add":" %699 = sub i64 %696, 1"},{"Add":" br label %$117"},{"Add":"$117:"},{"Add":" %700 = phi i64 [%685, %$115], [%697, %$116] ; # Avail"},{"Add":" %701 = phi i64 [%686, %$115], [%695, %$116] ; # Heap"},{"Add":" %702 = phi i64 [%687, %$115], [%699, %$116] ; # Cnt"},{"Add":" %703 = phi i64 [%688, %$115], [%697, %$116] ; # P"},{"Add":"; # (? (== P Heap))"},{"Add":"; # (== P Heap)"},{"Add":" %704 = icmp eq i64 %703, %701"},{"Add":" br i1 %704, label %$119, label %$118"},{"Add":"$118:"},{"Add":" %705 = phi i64 [%700, %$117] ; # Avail"},{"Add":" %706 = phi i64 [%701, %$117] ; # Heap"},{"Add":" %707 = phi i64 [%702, %$117] ; # Cnt"},{"Add":" %708 = phi i64 [%703, %$117] ; # P"},{"Add":"; # (ofs P -2)"},{"Add":" %709 = add i64 %708, -16"},{"Add":" br label %$115"},{"Add":"$119:"},{"Add":" %710 = phi i64 [%700, %$117] ; # Avail"},{"Add":" %711 = phi i64 [%701, %$117] ; # Heap"},{"Add":" %712 = phi i64 [%702, %$117] ; # Cnt"},{"Add":" %713 = phi i64 [%703, %$117] ; # P"},{"Add":" %714 = phi i64 [0, %$117] ; # ->"},{"Add":"; # (? (=0 (setq Heap (val (inc HEAP) Heap))))"},{"Add":"; # (inc HEAP)"},{"Add":"; # (val (inc HEAP) Heap)"},{"Add":" %715 = inttoptr i64 %711 to i64*"},{"Add":" %716 = getelementptr i64, i64* %715, i32 131072"},{"Add":" %717 = load i64, i64* %716"},{"Add":"; # (=0 (setq Heap (val (inc HEAP) Heap)))"},{"Add":" %718 = icmp eq i64 %717, 0"},{"Add":" br i1 %718, label %$121, label %$120"},{"Add":"$120:"},{"Add":" %719 = phi i64 [%710, %$119] ; # Avail"},{"Add":" %720 = phi i64 [%717, %$119] ; # Heap"},{"Add":" %721 = phi i64 [%712, %$119] ; # Cnt"},{"Add":" br label %$114"},{"Add":"$121:"},{"Add":" %722 = phi i64 [%710, %$119] ; # Avail"},{"Add":" %723 = phi i64 [%717, %$119] ; # Heap"},{"Add":" %724 = phi i64 [%712, %$119] ; # Cnt"},{"Add":" %725 = phi i64 [0, %$119] ; # ->"},{"Add":"; # (set $Avail Avail)"},{"Add":" store i64 %722, i64* @$Avail"},{"Add":"; # (while (ge0 Cnt) (heapAlloc) (dec 'Cnt CELLS))"},{"Add":" br label %$122"},{"Add":"$122:"},{"Add":" %726 = phi i64 [%722, %$121], [%730, %$123] ; # Avail"},{"Add":" %727 = phi i64 [%723, %$121], [%731, %$123] ; # Heap"},{"Add":" %728 = phi i64 [%724, %$121], [%733, %$123] ; # Cnt"},{"Add":"; # (ge0 Cnt)"},{"Add":" %729 = icmp sge i64 %728, 0"},{"Add":" br i1 %729, label %$123, label %$124"},{"Add":"$123:"},{"Add":" %730 = phi i64 [%726, %$122] ; # Avail"},{"Add":" %731 = phi i64 [%727, %$122] ; # Heap"},{"Add":" %732 = phi i64 [%728, %$122] ; # Cnt"},{"Add":"; # (heapAlloc)"},{"Add":" call void @heapAlloc()"},{"Add":"; # (dec 'Cnt CELLS)"},{"Add":" %733 = sub i64 %732, 65536"},{"Add":" br label %$122"},{"Add":"$124:"},{"Add":" %734 = phi i64 [%726, %$122] ; # Avail"},{"Add":" %735 = phi i64 [%727, %$122] ; # Heap"},{"Add":" %736 = phi i64 [%728, %$122] ; # Cnt"},{"Add":" br label %$102"},{"Add":"$102:"},{"Add":" %737 = phi i64 [%673, %$113], [%734, %$124] ; # Avail"},{"Add":" %738 = phi i64 [%674, %$113], [%735, %$124] ; # Heap"},{"Add":" %739 = phi i64 [%675, %$113], [%736, %$124] ; # Cnt"},{"Add":" ret void"},{"Add":"}"},{"Add":""},{"Add":"define void @need3() align 8 {"},{"Add":"$1:"},{"Add":"; # (let P (val $Avail) (unless (and P (setq P (car P)) (car P)) (gc)..."},{"Add":"; # (val $Avail)"},{"Add":" %0 = load i64, i64* @$Avail"},{"Add":"; # (unless (and P (setq P (car P)) (car P)) (gc))"},{"Add":"; # (and P (setq P (car P)) (car P))"},{"Add":" %1 = icmp ne i64 %0, 0"},{"Add":" br i1 %1, label %$3, label %$2"},{"Add":"$3:"},{"Add":" %2 = phi i64 [%0, %$1] ; # P"},{"Add":"; # (car P)"},{"Add":" %3 = inttoptr i64 %2 to i64*"},{"Add":" %4 = load i64, i64* %3"},{"Add":" %5 = icmp ne i64 %4, 0"},{"Add":" br i1 %5, label %$4, label %$2"},{"Add":"$4:"},{"Add":" %6 = phi i64 [%4, %$3] ; # P"},{"Add":"; # (car P)"},{"Add":" %7 = inttoptr i64 %6 to i64*"},{"Add":" %8 = load i64, i64* %7"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %10 = phi i64 [%0, %$1], [%4, %$3], [%6, %$4] ; # P"},{"Add":" %11 = phi i1 [0, %$1], [0, %$3], [%9, %$4] ; # ->"},{"Add":" br i1 %11, label %$6, label %$5"},{"Add":"$5:"},{"Add":" %12 = phi i64 [%10, %$2] ; # P"},{"Add":"; # (gc)"},{"Add":" call void @gc()"},{"Add":" br label %$6"},{"Add":"$6:"},{"Add":" %13 = phi i64 [%10, %$2], [%12, %$5] ; # P"},{"Add":" ret void"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Gc(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let (X (cdr Exe) Y (eval (car X))) (if (nil? Y) (gc) (set $GcCou..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (car X)"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":"; # (eval (car X))"},{"Add":" %6 = and i64 %5, 6"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$4, label %$3"},{"Add":"$4:"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %8 = and i64 %5, 8"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br i1 %9, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %10 = inttoptr i64 %5 to i64*"},{"Add":" %11 = load i64, i64* %10"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":" %12 = call i64 @evList(i64 %5)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %13 = phi i64 [%5, %$4], [%11, %$6], [%12, %$5] ; # ->"},{"Add":"; # (if (nil? Y) (gc) (set $GcCount (shl (xCnt Exe Y) 16)) (gc) (set ..."},{"Add":"; # (nil? Y)"},{"Add":" %14 = icmp eq i64 %13, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %14, label %$7, label %$8"},{"Add":"$7:"},{"Add":" %15 = phi i64 [%3, %$2] ; # X"},{"Add":"; # (gc)"},{"Add":" call void @gc()"},{"Add":" br label %$9"},{"Add":"$8:"},{"Add":" %16 = phi i64 [%3, %$2] ; # X"},{"Add":"; # (set $GcCount (shl (xCnt Exe Y) 16))"},{"Add":"; # (xCnt Exe Y)"},{"Add":" %17 = call i64 @xCnt(i64 %0, i64 %13)"},{"Add":"; # (shl (xCnt Exe Y) 16)"},{"Add":" %18 = shl i64 %17, 16"},{"Add":" store i64 %18, i64* @$GcCount"},{"Add":"; # (gc)"},{"Add":" call void @gc()"},{"Add":"; # (set $GcCount (if (atom (shift X)) CELLS (shl (evCnt Exe X) 16)))..."},{"Add":"; # (if (atom (shift X)) CELLS (shl (evCnt Exe X) 16))"},{"Add":"; # (shift X)"},{"Add":" %19 = inttoptr i64 %16 to i64*"},{"Add":" %20 = getelementptr i64, i64* %19, i32 1"},{"Add":" %21 = load i64, i64* %20"},{"Add":"; # (atom (shift X))"},{"Add":" %22 = and i64 %21, 15"},{"Add":" %23 = icmp ne i64 %22, 0"},{"Add":" br i1 %23, label %$10, label %$11"},{"Add":"$10:"},{"Add":" %24 = phi i64 [%21, %$8] ; # X"},{"Add":" br label %$12"},{"Add":"$11:"},{"Add":" %25 = phi i64 [%21, %$8] ; # X"},{"Add":"; # (evCnt Exe X)"},{"Add":" %26 = call i64 @evCnt(i64 %0, i64 %25)"},{"Add":"; # (shl (evCnt Exe X) 16)"},{"Add":" %27 = shl i64 %26, 16"},{"Add":" br label %$12"},{"Add":"$12:"},{"Add":" %28 = phi i64 [%24, %$10], [%25, %$11] ; # X"},{"Add":" %29 = phi i64 [65536, %$10], [%27, %$11] ; # ->"},{"Add":" store i64 %29, i64* @$GcCount"},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %30 = phi i64 [%15, %$7], [%28, %$12] ; # X"},{"Add":" ret i64 %13"},{"Add":"}"},{"Add":""},{"Add":"define i64 @cons(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let P (val $Avail) (unless P (save2 Car Cdr (gc)) (setq P (val $..."},{"Add":"; # (val $Avail)"},{"Add":" %2 = load i64, i64* @$Avail"},{"Add":"; # (unless P (save2 Car Cdr (gc)) (setq P (val $Avail)))"},{"Add":" %3 = icmp ne i64 %2, 0"},{"Add":" br i1 %3, label %$3, label %$2"},{"Add":"$2:"},{"Add":" %4 = phi i64 [%2, %$1] ; # P"},{"Add":"; # (save2 Car Cdr (gc))"},{"Add":" %5 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %6 = load i64, i64* %5"},{"Add":" %7 = alloca i64, i64 2, align 16"},{"Add":" %8 = ptrtoint i64* %7 to i64"},{"Add":" %9 = inttoptr i64 %8 to i64*"},{"Add":" store i64 %0, i64* %9"},{"Add":" %10 = add i64 %8, 8"},{"Add":" %11 = inttoptr i64 %10 to i64*"},{"Add":" store i64 %6, i64* %11"},{"Add":" %12 = alloca i64, i64 2, align 16"},{"Add":" %13 = ptrtoint i64* %12 to i64"},{"Add":" %14 = inttoptr i64 %13 to i64*"},{"Add":" store i64 %1, i64* %14"},{"Add":" %15 = add i64 %13, 8"},{"Add":" %16 = inttoptr i64 %15 to i64*"},{"Add":" store i64 %8, i64* %16"},{"Add":" %17 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %13, i64* %17"},{"Add":"; # (gc)"},{"Add":" call void @gc()"},{"Add":"; # drop"},{"Add":" %18 = inttoptr i64 %8 to i64*"},{"Add":" %19 = getelementptr i64, i64* %18, i32 1"},{"Add":" %20 = load i64, i64* %19"},{"Add":" %21 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %20, i64* %21"},{"Add":"; # (val $Avail)"},{"Add":" %22 = load i64, i64* @$Avail"},{"Add":" br label %$3"},{"Add":"$3:"},{"Add":" %23 = phi i64 [%2, %$1], [%22, %$2] ; # P"},{"Add":"; # (set $Avail (car P))"},{"Add":"; # (car P)"},{"Add":" %24 = inttoptr i64 %23 to i64*"},{"Add":" %25 = load i64, i64* %24"},{"Add":" store i64 %25, i64* @$Avail"},{"Add":"; # (set P Car)"},{"Add":" %26 = inttoptr i64 %23 to i64*"},{"Add":" store i64 %0, i64* %26"},{"Add":"; # (set 2 P Cdr)"},{"Add":" %27 = inttoptr i64 %23 to i64*"},{"Add":" %28 = getelementptr i64, i64* %27, i32 1"},{"Add":" store i64 %1, i64* %28"},{"Add":" ret i64 %23"},{"Add":"}"},{"Add":""},{"Add":"define i64 @cons2(i64, i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let P (val $Avail) (when P (let Q (val P) (when Q (set $Avail (c..."},{"Add":"; # (val $Avail)"},{"Add":" %3 = load i64, i64* @$Avail"},{"Add":"; # (when P (let Q (val P) (when Q (set $Avail (car Q)) (set P Car1) ..."},{"Add":" %4 = icmp ne i64 %3, 0"},{"Add":" br i1 %4, label %$2, label %$3"},{"Add":"$2:"},{"Add":"; # (let Q (val P) (when Q (set $Avail (car Q)) (set P Car1) (set 2 P..."},{"Add":"; # (val P)"},{"Add":" %5 = inttoptr i64 %3 to i64*"},{"Add":" %6 = load i64, i64* %5"},{"Add":"; # (when Q (set $Avail (car Q)) (set P Car1) (set 2 P Cdr1) (set Q P..."},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$4, label %$5"},{"Add":"$4:"},{"Add":"; # (set $Avail (car Q))"},{"Add":"; # (car Q)"},{"Add":" %8 = inttoptr i64 %6 to i64*"},{"Add":" %9 = load i64, i64* %8"},{"Add":" store i64 %9, i64* @$Avail"},{"Add":"; # (set P Car1)"},{"Add":" %10 = inttoptr i64 %3 to i64*"},{"Add":" store i64 %0, i64* %10"},{"Add":"; # (set 2 P Cdr1)"},{"Add":" %11 = inttoptr i64 %3 to i64*"},{"Add":" %12 = getelementptr i64, i64* %11, i32 1"},{"Add":" store i64 %1, i64* %12"},{"Add":"; # (set Q P)"},{"Add":" %13 = inttoptr i64 %6 to i64*"},{"Add":" store i64 %3, i64* %13"},{"Add":"; # (set 2 Q Cdr2)"},{"Add":" %14 = inttoptr i64 %6 to i64*"},{"Add":" %15 = getelementptr i64, i64* %14, i32 1"},{"Add":" store i64 %2, i64* %15"},{"Add":"; # (ret Q)"},{"Add":" ret i64 %6"},{"Add":"$5:"},{"Add":" br label %$3"},{"Add":"$3:"},{"Add":"; # (save2 Car1 Cdr1 (save Cdr2 (gc)))"},{"Add":" %16 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %17 = load i64, i64* %16"},{"Add":" %18 = alloca i64, i64 2, align 16"},{"Add":" %19 = ptrtoint i64* %18 to i64"},{"Add":" %20 = inttoptr i64 %19 to i64*"},{"Add":" store i64 %0, i64* %20"},{"Add":" %21 = add i64 %19, 8"},{"Add":" %22 = inttoptr i64 %21 to i64*"},{"Add":" store i64 %17, i64* %22"},{"Add":" %23 = alloca i64, i64 2, align 16"},{"Add":" %24 = ptrtoint i64* %23 to i64"},{"Add":" %25 = inttoptr i64 %24 to i64*"},{"Add":" store i64 %1, i64* %25"},{"Add":" %26 = add i64 %24, 8"},{"Add":" %27 = inttoptr i64 %26 to i64*"},{"Add":" store i64 %19, i64* %27"},{"Add":" %28 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %24, i64* %28"},{"Add":"; # (save Cdr2 (gc))"},{"Add":" %29 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %30 = load i64, i64* %29"},{"Add":" %31 = alloca i64, i64 2, align 16"},{"Add":" %32 = ptrtoint i64* %31 to i64"},{"Add":" %33 = inttoptr i64 %32 to i64*"},{"Add":" store i64 %2, i64* %33"},{"Add":" %34 = add i64 %32, 8"},{"Add":" %35 = inttoptr i64 %34 to i64*"},{"Add":" store i64 %30, i64* %35"},{"Add":" %36 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %32, i64* %36"},{"Add":"; # (gc)"},{"Add":" call void @gc()"},{"Add":"; # drop"},{"Add":" %37 = inttoptr i64 %32 to i64*"},{"Add":" %38 = getelementptr i64, i64* %37, i32 1"},{"Add":" %39 = load i64, i64* %38"},{"Add":" %40 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %39, i64* %40"},{"Add":"; # drop"},{"Add":" %41 = inttoptr i64 %19 to i64*"},{"Add":" %42 = getelementptr i64, i64* %41, i32 1"},{"Add":" %43 = load i64, i64* %42"},{"Add":" %44 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %43, i64* %44"},{"Add":"; # (let (P (val $Avail) Q (val P)) (set $Avail (car Q)) (set P Car1)..."},{"Add":"; # (val $Avail)"},{"Add":" %45 = load i64, i64* @$Avail"},{"Add":"; # (val P)"},{"Add":" %46 = inttoptr i64 %45 to i64*"},{"Add":" %47 = load i64, i64* %46"},{"Add":"; # (set $Avail (car Q))"},{"Add":"; # (car Q)"},{"Add":" %48 = inttoptr i64 %47 to i64*"},{"Add":" %49 = load i64, i64* %48"},{"Add":" store i64 %49, i64* @$Avail"},{"Add":"; # (set P Car1)"},{"Add":" %50 = inttoptr i64 %45 to i64*"},{"Add":" store i64 %0, i64* %50"},{"Add":"; # (set 2 P Cdr1)"},{"Add":" %51 = inttoptr i64 %45 to i64*"},{"Add":" %52 = getelementptr i64, i64* %51, i32 1"},{"Add":" store i64 %1, i64* %52"},{"Add":"; # (set Q P)"},{"Add":" %53 = inttoptr i64 %47 to i64*"},{"Add":" store i64 %45, i64* %53"},{"Add":"; # (set 2 Q Cdr2)"},{"Add":" %54 = inttoptr i64 %47 to i64*"},{"Add":" %55 = getelementptr i64, i64* %54, i32 1"},{"Add":" store i64 %2, i64* %55"},{"Add":" ret i64 %47"},{"Add":"}"},{"Add":""},{"Add":"define i64 @cons3(i64, i64, i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let P (val $Avail) (when P (let Q (val P) (when Q (let R (val Q)..."},{"Add":"; # (val $Avail)"},{"Add":" %4 = load i64, i64* @$Avail"},{"Add":"; # (when P (let Q (val P) (when Q (let R (val Q) (when R (set $Avail..."},{"Add":" %5 = icmp ne i64 %4, 0"},{"Add":" br i1 %5, label %$2, label %$3"},{"Add":"$2:"},{"Add":"; # (let Q (val P) (when Q (let R (val Q) (when R (set $Avail (car R)..."},{"Add":"; # (val P)"},{"Add":" %6 = inttoptr i64 %4 to i64*"},{"Add":" %7 = load i64, i64* %6"},{"Add":"; # (when Q (let R (val Q) (when R (set $Avail (car R)) (set P Car1) ..."},{"Add":" %8 = icmp ne i64 %7, 0"},{"Add":" br i1 %8, label %$4, label %$5"},{"Add":"$4:"},{"Add":"; # (let R (val Q) (when R (set $Avail (car R)) (set P Car1) (set 2 P..."},{"Add":"; # (val Q)"},{"Add":" %9 = inttoptr i64 %7 to i64*"},{"Add":" %10 = load i64, i64* %9"},{"Add":"; # (when R (set $Avail (car R)) (set P Car1) (set 2 P Cdr1) (set Q C..."},{"Add":" %11 = icmp ne i64 %10, 0"},{"Add":" br i1 %11, label %$6, label %$7"},{"Add":"$6:"},{"Add":"; # (set $Avail (car R))"},{"Add":"; # (car R)"},{"Add":" %12 = inttoptr i64 %10 to i64*"},{"Add":" %13 = load i64, i64* %12"},{"Add":" store i64 %13, i64* @$Avail"},{"Add":"; # (set P Car1)"},{"Add":" %14 = inttoptr i64 %4 to i64*"},{"Add":" store i64 %0, i64* %14"},{"Add":"; # (set 2 P Cdr1)"},{"Add":" %15 = inttoptr i64 %4 to i64*"},{"Add":" %16 = getelementptr i64, i64* %15, i32 1"},{"Add":" store i64 %1, i64* %16"},{"Add":"; # (set Q Car2)"},{"Add":" %17 = inttoptr i64 %7 to i64*"},{"Add":" store i64 %2, i64* %17"},{"Add":"; # (set 2 Q Cdr2)"},{"Add":" %18 = inttoptr i64 %7 to i64*"},{"Add":" %19 = getelementptr i64, i64* %18, i32 1"},{"Add":" store i64 %3, i64* %19"},{"Add":"; # (set R P)"},{"Add":" %20 = inttoptr i64 %10 to i64*"},{"Add":" store i64 %4, i64* %20"},{"Add":"; # (set 2 R Q)"},{"Add":" %21 = inttoptr i64 %10 to i64*"},{"Add":" %22 = getelementptr i64, i64* %21, i32 1"},{"Add":" store i64 %7, i64* %22"},{"Add":"; # (ret R)"},{"Add":" ret i64 %10"},{"Add":"$7:"},{"Add":" br label %$5"},{"Add":"$5:"},{"Add":" br label %$3"},{"Add":"$3:"},{"Add":"; # (save2 Car1 Cdr1 (save2 Car2 Cdr2 (gc)))"},{"Add":" %23 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %24 = load i64, i64* %23"},{"Add":" %25 = alloca i64, i64 2, align 16"},{"Add":" %26 = ptrtoint i64* %25 to i64"},{"Add":" %27 = inttoptr i64 %26 to i64*"},{"Add":" store i64 %0, i64* %27"},{"Add":" %28 = add i64 %26, 8"},{"Add":" %29 = inttoptr i64 %28 to i64*"},{"Add":" store i64 %24, i64* %29"},{"Add":" %30 = alloca i64, i64 2, align 16"},{"Add":" %31 = ptrtoint i64* %30 to i64"},{"Add":" %32 = inttoptr i64 %31 to i64*"},{"Add":" store i64 %1, i64* %32"},{"Add":" %33 = add i64 %31, 8"},{"Add":" %34 = inttoptr i64 %33 to i64*"},{"Add":" store i64 %26, i64* %34"},{"Add":" %35 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %31, i64* %35"},{"Add":"; # (save2 Car2 Cdr2 (gc))"},{"Add":" %36 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %37 = load i64, i64* %36"},{"Add":" %38 = alloca i64, i64 2, align 16"},{"Add":" %39 = ptrtoint i64* %38 to i64"},{"Add":" %40 = inttoptr i64 %39 to i64*"},{"Add":" store i64 %2, i64* %40"},{"Add":" %41 = add i64 %39, 8"},{"Add":" %42 = inttoptr i64 %41 to i64*"},{"Add":" store i64 %37, i64* %42"},{"Add":" %43 = alloca i64, i64 2, align 16"},{"Add":" %44 = ptrtoint i64* %43 to i64"},{"Add":" %45 = inttoptr i64 %44 to i64*"},{"Add":" store i64 %3, i64* %45"},{"Add":" %46 = add i64 %44, 8"},{"Add":" %47 = inttoptr i64 %46 to i64*"},{"Add":" store i64 %39, i64* %47"},{"Add":" %48 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %44, i64* %48"},{"Add":"; # (gc)"},{"Add":" call void @gc()"},{"Add":"; # drop"},{"Add":" %49 = inttoptr i64 %39 to i64*"},{"Add":" %50 = getelementptr i64, i64* %49, i32 1"},{"Add":" %51 = load i64, i64* %50"},{"Add":" %52 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %51, i64* %52"},{"Add":"; # drop"},{"Add":" %53 = inttoptr i64 %26 to i64*"},{"Add":" %54 = getelementptr i64, i64* %53, i32 1"},{"Add":" %55 = load i64, i64* %54"},{"Add":" %56 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %55, i64* %56"},{"Add":"; # (let (P (val $Avail) Q (val P) R (val Q)) (set $Avail (car R)) (s..."},{"Add":"; # (val $Avail)"},{"Add":" %57 = load i64, i64* @$Avail"},{"Add":"; # (val P)"},{"Add":" %58 = inttoptr i64 %57 to i64*"},{"Add":" %59 = load i64, i64* %58"},{"Add":"; # (val Q)"},{"Add":" %60 = inttoptr i64 %59 to i64*"},{"Add":" %61 = load i64, i64* %60"},{"Add":"; # (set $Avail (car R))"},{"Add":"; # (car R)"},{"Add":" %62 = inttoptr i64 %61 to i64*"},{"Add":" %63 = load i64, i64* %62"},{"Add":" store i64 %63, i64* @$Avail"},{"Add":"; # (set P Car1)"},{"Add":" %64 = inttoptr i64 %57 to i64*"},{"Add":" store i64 %0, i64* %64"},{"Add":"; # (set 2 P Cdr1)"},{"Add":" %65 = inttoptr i64 %57 to i64*"},{"Add":" %66 = getelementptr i64, i64* %65, i32 1"},{"Add":" store i64 %1, i64* %66"},{"Add":"; # (set Q Car2)"},{"Add":" %67 = inttoptr i64 %59 to i64*"},{"Add":" store i64 %2, i64* %67"},{"Add":"; # (set 2 Q Cdr2)"},{"Add":" %68 = inttoptr i64 %59 to i64*"},{"Add":" %69 = getelementptr i64, i64* %68, i32 1"},{"Add":" store i64 %3, i64* %69"},{"Add":"; # (set R P)"},{"Add":" %70 = inttoptr i64 %61 to i64*"},{"Add":" store i64 %57, i64* %70"},{"Add":"; # (set 2 R Q)"},{"Add":" %71 = inttoptr i64 %61 to i64*"},{"Add":" %72 = getelementptr i64, i64* %71, i32 1"},{"Add":" store i64 %59, i64* %72"},{"Add":" ret i64 %61"},{"Add":"}"},{"Add":""},{"Add":"define i64 @consSym(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let P (val $Avail) (unless P (if Val (save2 Name Val (gc)) (save..."},{"Add":"; # (val $Avail)"},{"Add":" %2 = load i64, i64* @$Avail"},{"Add":"; # (unless P (if Val (save2 Name Val (gc)) (save Name (gc))) (setq P..."},{"Add":" %3 = icmp ne i64 %2, 0"},{"Add":" br i1 %3, label %$3, label %$2"},{"Add":"$2:"},{"Add":" %4 = phi i64 [%2, %$1] ; # P"},{"Add":"; # (if Val (save2 Name Val (gc)) (save Name (gc)))"},{"Add":" %5 = icmp ne i64 %1, 0"},{"Add":" br i1 %5, label %$4, label %$5"},{"Add":"$4:"},{"Add":" %6 = phi i64 [%4, %$2] ; # P"},{"Add":"; # (save2 Name Val (gc))"},{"Add":" %7 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %8 = load i64, i64* %7"},{"Add":" %9 = alloca i64, i64 2, align 16"},{"Add":" %10 = ptrtoint i64* %9 to i64"},{"Add":" %11 = inttoptr i64 %10 to i64*"},{"Add":" store i64 %0, i64* %11"},{"Add":" %12 = add i64 %10, 8"},{"Add":" %13 = inttoptr i64 %12 to i64*"},{"Add":" store i64 %8, i64* %13"},{"Add":" %14 = alloca i64, i64 2, align 16"},{"Add":" %15 = ptrtoint i64* %14 to i64"},{"Add":" %16 = inttoptr i64 %15 to i64*"},{"Add":" store i64 %1, i64* %16"},{"Add":" %17 = add i64 %15, 8"},{"Add":" %18 = inttoptr i64 %17 to i64*"},{"Add":" store i64 %10, i64* %18"},{"Add":" %19 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %15, i64* %19"},{"Add":"; # (gc)"},{"Add":" call void @gc()"},{"Add":"; # drop"},{"Add":" %20 = inttoptr i64 %10 to i64*"},{"Add":" %21 = getelementptr i64, i64* %20, i32 1"},{"Add":" %22 = load i64, i64* %21"},{"Add":" %23 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %22, i64* %23"},{"Add":" br label %$6"},{"Add":"$5:"},{"Add":" %24 = phi i64 [%4, %$2] ; # P"},{"Add":"; # (save Name (gc))"},{"Add":" %25 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %26 = load i64, i64* %25"},{"Add":" %27 = alloca i64, i64 2, align 16"},{"Add":" %28 = ptrtoint i64* %27 to i64"},{"Add":" %29 = inttoptr i64 %28 to i64*"},{"Add":" store i64 %0, i64* %29"},{"Add":" %30 = add i64 %28, 8"},{"Add":" %31 = inttoptr i64 %30 to i64*"},{"Add":" store i64 %26, i64* %31"},{"Add":" %32 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %28, i64* %32"},{"Add":"; # (gc)"},{"Add":" call void @gc()"},{"Add":"; # drop"},{"Add":" %33 = inttoptr i64 %28 to i64*"},{"Add":" %34 = getelementptr i64, i64* %33, i32 1"},{"Add":" %35 = load i64, i64* %34"},{"Add":" %36 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %35, i64* %36"},{"Add":" br label %$6"},{"Add":"$6:"},{"Add":" %37 = phi i64 [%6, %$4], [%24, %$5] ; # P"},{"Add":"; # (val $Avail)"},{"Add":" %38 = load i64, i64* @$Avail"},{"Add":" br label %$3"},{"Add":"$3:"},{"Add":" %39 = phi i64 [%2, %$1], [%38, %$6] ; # P"},{"Add":"; # (set $Avail (car P))"},{"Add":"; # (car P)"},{"Add":" %40 = inttoptr i64 %39 to i64*"},{"Add":" %41 = load i64, i64* %40"},{"Add":" store i64 %41, i64* @$Avail"},{"Add":"; # (set P Name)"},{"Add":" %42 = inttoptr i64 %39 to i64*"},{"Add":" store i64 %0, i64* %42"},{"Add":"; # (let S (sym P) (set S (if Val @ S)) S)"},{"Add":"; # (sym P)"},{"Add":" %43 = or i64 %39, 8"},{"Add":"; # (set S (if Val @ S))"},{"Add":"; # (if Val @ S)"},{"Add":" %44 = icmp ne i64 %1, 0"},{"Add":" br i1 %44, label %$7, label %$8"},{"Add":"$7:"},{"Add":" %45 = phi i64 [%39, %$3] ; # P"},{"Add":" br label %$9"},{"Add":"$8:"},{"Add":" %46 = phi i64 [%39, %$3] ; # P"},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %47 = phi i64 [%45, %$7], [%46, %$8] ; # P"},{"Add":" %48 = phi i64 [%1, %$7], [%43, %$8] ; # ->"},{"Add":" %49 = inttoptr i64 %43 to i64*"},{"Add":" store i64 %48, i64* %49"},{"Add":" ret i64 %43"},{"Add":"}"},{"Add":""},{"Add":"define i64 @consStr(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (if (== Name ZERO) $Nil (tailcall (consSym Name 0)))"},{"Add":"; # (== Name ZERO)"},{"Add":" %1 = icmp eq i64 %0, 2"},{"Add":" br i1 %1, label %$2, label %$3"},{"Add":"$2:"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":"; # (consSym Name 0)"},{"Add":" %2 = tail call i64 @consSym(i64 %0, i64 0)"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %3 = phi i64 [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), %$2], [%2, %$3] ; # ->"},{"Add":" ret i64 %3"},{"Add":"}"},{"Add":""},{"Add":"define i64 @consExt(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (set $ExtCnt (+ (val $ExtCnt) 1))"},{"Add":"; # (val $ExtCnt)"},{"Add":" %1 = load i64, i64* @$ExtCnt"},{"Add":"; # (+ (val $ExtCnt) 1)"},{"Add":" %2 = add i64 %1, 1"},{"Add":" store i64 %2, i64* @$ExtCnt"},{"Add":"; # (sign Name)"},{"Add":" %3 = or i64 %0, 8"},{"Add":"; # (consSym (sign Name) $Nil)"},{"Add":" %4 = tail call i64 @consSym(i64 %3, i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64))"},{"Add":" ret i64 %4"},{"Add":"}"},{"Add":""},{"Add":"define i64 @boxNum(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let P (val $Avail) (unless P (gc) (setq P (val $Avail))) (set $A..."},{"Add":"; # (val $Avail)"},{"Add":" %1 = load i64, i64* @$Avail"},{"Add":"; # (unless P (gc) (setq P (val $Avail)))"},{"Add":" %2 = icmp ne i64 %1, 0"},{"Add":" br i1 %2, label %$3, label %$2"},{"Add":"$2:"},{"Add":" %3 = phi i64 [%1, %$1] ; # P"},{"Add":"; # (gc)"},{"Add":" call void @gc()"},{"Add":"; # (val $Avail)"},{"Add":" %4 = load i64, i64* @$Avail"},{"Add":" br label %$3"},{"Add":"$3:"},{"Add":" %5 = phi i64 [%1, %$1], [%4, %$2] ; # P"},{"Add":"; # (set $Avail (car P))"},{"Add":"; # (car P)"},{"Add":" %6 = inttoptr i64 %5 to i64*"},{"Add":" %7 = load i64, i64* %6"},{"Add":" store i64 %7, i64* @$Avail"},{"Add":"; # (set P Dig)"},{"Add":" %8 = inttoptr i64 %5 to i64*"},{"Add":" store i64 %0, i64* %8"},{"Add":"; # (set 2 P ZERO)"},{"Add":" %9 = inttoptr i64 %5 to i64*"},{"Add":" %10 = getelementptr i64, i64* %9, i32 1"},{"Add":" store i64 2, i64* %10"},{"Add":"; # (big P)"},{"Add":" %11 = add i64 %5, 4"},{"Add":" ret i64 %11"},{"Add":"}"},{"Add":""},{"Add":"define i64 @consNum(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let P (val $Avail) (unless P (save Big (gc)) (setq P (val $Avail..."},{"Add":"; # (val $Avail)"},{"Add":" %2 = load i64, i64* @$Avail"},{"Add":"; # (unless P (save Big (gc)) (setq P (val $Avail)))"},{"Add":" %3 = icmp ne i64 %2, 0"},{"Add":" br i1 %3, label %$3, label %$2"},{"Add":"$2:"},{"Add":" %4 = phi i64 [%2, %$1] ; # P"},{"Add":"; # (save Big (gc))"},{"Add":" %5 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %6 = load i64, i64* %5"},{"Add":" %7 = alloca i64, i64 2, align 16"},{"Add":" %8 = ptrtoint i64* %7 to i64"},{"Add":" %9 = inttoptr i64 %8 to i64*"},{"Add":" store i64 %1, i64* %9"},{"Add":" %10 = add i64 %8, 8"},{"Add":" %11 = inttoptr i64 %10 to i64*"},{"Add":" store i64 %6, i64* %11"},{"Add":" %12 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %8, i64* %12"},{"Add":"; # (gc)"},{"Add":" call void @gc()"},{"Add":"; # drop"},{"Add":" %13 = inttoptr i64 %8 to i64*"},{"Add":" %14 = getelementptr i64, i64* %13, i32 1"},{"Add":" %15 = load i64, i64* %14"},{"Add":" %16 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %15, i64* %16"},{"Add":"; # (val $Avail)"},{"Add":" %17 = load i64, i64* @$Avail"},{"Add":" br label %$3"},{"Add":"$3:"},{"Add":" %18 = phi i64 [%2, %$1], [%17, %$2] ; # P"},{"Add":"; # (set $Avail (car P))"},{"Add":"; # (car P)"},{"Add":" %19 = inttoptr i64 %18 to i64*"},{"Add":" %20 = load i64, i64* %19"},{"Add":" store i64 %20, i64* @$Avail"},{"Add":"; # (set P Dig)"},{"Add":" %21 = inttoptr i64 %18 to i64*"},{"Add":" store i64 %0, i64* %21"},{"Add":"; # (set 2 P Big)"},{"Add":" %22 = inttoptr i64 %18 to i64*"},{"Add":" %23 = getelementptr i64, i64* %22, i32 1"},{"Add":" store i64 %1, i64* %23"},{"Add":"; # (big P)"},{"Add":" %24 = add i64 %18, 4"},{"Add":" ret i64 %24"},{"Add":"}"},{"Add":""},{"Add":"define i64 @box(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (if (ge0 N) (box64 N) (sign (box64 (- N))))"},{"Add":"; # (ge0 N)"},{"Add":" %1 = icmp sge i64 %0, 0"},{"Add":" br i1 %1, label %$2, label %$3"},{"Add":"$2:"},{"Add":"; # (box64 N)"},{"Add":" %2 = and i64 %0, 17293822569102704640"},{"Add":" %3 = icmp ne i64 %2, 0"},{"Add":" br i1 %3, label %$5, label %$6"},{"Add":"$5:"},{"Add":" %4 = call i64 @boxNum(i64 %0)"},{"Add":" br label %$7"},{"Add":"$6:"},{"Add":" %5 = shl i64 %0, 4"},{"Add":" %6 = or i64 %5, 2"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %7 = phi i64 [%4, %$5], [%6, %$6] ; # ->"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":"; # (- N)"},{"Add":" %8 = sub i64 0, %0"},{"Add":"; # (box64 (- N))"},{"Add":" %9 = and i64 %8, 17293822569102704640"},{"Add":" %10 = icmp ne i64 %9, 0"},{"Add":" br i1 %10, label %$8, label %$9"},{"Add":"$8:"},{"Add":" %11 = call i64 @boxNum(i64 %8)"},{"Add":" br label %$10"},{"Add":"$9:"},{"Add":" %12 = shl i64 %8, 4"},{"Add":" %13 = or i64 %12, 2"},{"Add":" br label %$10"},{"Add":"$10:"},{"Add":" %14 = phi i64 [%11, %$8], [%13, %$9] ; # ->"},{"Add":"; # (sign (box64 (- N)))"},{"Add":" %15 = or i64 %14, 8"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %16 = phi i64 [%7, %$7], [%15, %$10] ; # ->"},{"Add":" ret i64 %16"},{"Add":"}"},{"Add":""},{"Add":"define void @divErr(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (err Exe 0 ($ \"Div/0\") null)"},{"Add":" call void @err(i64 %0, i64 0, i8* bitcast ([6 x i8]* @$27 to i8*), i8* null)"},{"Add":" unreachable"},{"Add":"}"},{"Add":""},{"Add":"define i8 @symByte(i64*) align 8 {"},{"Add":"$1:"},{"Add":"; # (let C (val P) (unless C (let Nm (val 2 P) (cond ((== Nm ZERO) (r..."},{"Add":"; # (val P)"},{"Add":" %1 = load i64, i64* %0"},{"Add":"; # (unless C (let Nm (val 2 P) (cond ((== Nm ZERO) (ret (i8 0))) ((c..."},{"Add":" %2 = icmp ne i64 %1, 0"},{"Add":" br i1 %2, label %$3, label %$2"},{"Add":"$2:"},{"Add":" %3 = phi i64 [%1, %$1] ; # C"},{"Add":"; # (let Nm (val 2 P) (cond ((== Nm ZERO) (ret (i8 0))) ((cnt? Nm) (s..."},{"Add":"; # (val 2 P)"},{"Add":" %4 = getelementptr i64, i64* %0, i32 1"},{"Add":" %5 = load i64, i64* %4"},{"Add":"; # (cond ((== Nm ZERO) (ret (i8 0))) ((cnt? Nm) (setq C (int Nm)) (s..."},{"Add":"; # (== Nm ZERO)"},{"Add":" %6 = icmp eq i64 %5, 2"},{"Add":" br i1 %6, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %7 = phi i64 [%3, %$2] ; # C"},{"Add":"; # (i8 0)"},{"Add":"; # (ret (i8 0))"},{"Add":" ret i8 0"},{"Add":"$5:"},{"Add":" %8 = phi i64 [%3, %$2] ; # C"},{"Add":"; # (cnt? Nm)"},{"Add":" %9 = and i64 %5, 2"},{"Add":" %10 = icmp ne i64 %9, 0"},{"Add":" br i1 %10, label %$8, label %$7"},{"Add":"$8:"},{"Add":" %11 = phi i64 [%8, %$5] ; # C"},{"Add":"; # (int Nm)"},{"Add":" %12 = lshr i64 %5, 4"},{"Add":"; # (set 2 P ZERO)"},{"Add":" %13 = getelementptr i64, i64* %0, i32 1"},{"Add":" store i64 2, i64* %13"},{"Add":" br label %$4"},{"Add":"$7:"},{"Add":" %14 = phi i64 [%8, %$5] ; # C"},{"Add":"; # (set P (val (dig Nm)))"},{"Add":"; # (dig Nm)"},{"Add":" %15 = add i64 %5, -4"},{"Add":"; # (val (dig Nm))"},{"Add":" %16 = inttoptr i64 %15 to i64*"},{"Add":" %17 = load i64, i64* %16"},{"Add":" store i64 %17, i64* %0"},{"Add":"; # (set 2 P (val (big Nm)))"},{"Add":"; # (big Nm)"},{"Add":" %18 = add i64 %5, 4"},{"Add":"; # (val (big Nm))"},{"Add":" %19 = inttoptr i64 %18 to i64*"},{"Add":" %20 = load i64, i64* %19"},{"Add":" %21 = getelementptr i64, i64* %0, i32 1"},{"Add":" store i64 %20, i64* %21"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %22 = phi i64 [%12, %$8], [%17, %$7] ; # C"},{"Add":" %23 = phi i64 [2, %$8], [%20, %$7] ; # ->"},{"Add":" br label %$3"},{"Add":"$3:"},{"Add":" %24 = phi i64 [%1, %$1], [%22, %$4] ; # C"},{"Add":"; # (set P (shr C 8))"},{"Add":"; # (shr C 8)"},{"Add":" %25 = lshr i64 %24, 8"},{"Add":" store i64 %25, i64* %0"},{"Add":"; # (i8 C)"},{"Add":" %26 = trunc i64 %24 to i8"},{"Add":" ret i8 %26"},{"Add":"}"},{"Add":""},{"Add":"define i32 @symChar(i64*) align 8 {"},{"Add":"$1:"},{"Add":"; # (let C (i32 (symByte P)) (cond ((>= 127 C) C) ((== C (hex \"FF\")) ..."},{"Add":"; # (symByte P)"},{"Add":" %1 = call i8 @symByte(i64* %0)"},{"Add":"; # (i32 (symByte P))"},{"Add":" %2 = zext i8 %1 to i32"},{"Add":"; # (cond ((>= 127 C) C) ((== C (hex \"FF\")) (i32 TOP)) (T (| (shl (if..."},{"Add":"; # (>= 127 C)"},{"Add":" %3 = icmp sge i32 127, %2"},{"Add":" br i1 %3, label %$4, label %$3"},{"Add":"$4:"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":"; # (== C (hex \"FF\"))"},{"Add":" %4 = icmp eq i32 %2, 255"},{"Add":" br i1 %4, label %$6, label %$5"},{"Add":"$6:"},{"Add":"; # (i32 TOP)"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":"; # (ifn (& C (hex \"20\")) (& C (hex \"1F\")) (| (shl (ifn (& C (hex \"10..."},{"Add":"; # (& C (hex \"20\"))"},{"Add":" %5 = and i32 %2, 32"},{"Add":" %6 = icmp ne i32 %5, 0"},{"Add":" br i1 %6, label %$8, label %$7"},{"Add":"$7:"},{"Add":"; # (& C (hex \"1F\"))"},{"Add":" %7 = and i32 %2, 31"},{"Add":" br label %$9"},{"Add":"$8:"},{"Add":"; # (ifn (& C (hex \"10\")) (& C (hex \"0F\")) (| (shl (& C (hex \"7\")) 6)..."},{"Add":"; # (& C (hex \"10\"))"},{"Add":" %8 = and i32 %2, 16"},{"Add":" %9 = icmp ne i32 %8, 0"},{"Add":" br i1 %9, label %$11, label %$10"},{"Add":"$10:"},{"Add":"; # (& C (hex \"0F\"))"},{"Add":" %10 = and i32 %2, 15"},{"Add":" br label %$12"},{"Add":"$11:"},{"Add":"; # (& C (hex \"7\"))"},{"Add":" %11 = and i32 %2, 7"},{"Add":"; # (shl (& C (hex \"7\")) 6)"},{"Add":" %12 = shl i32 %11, 6"},{"Add":"; # (symByte P)"},{"Add":" %13 = call i8 @symByte(i64* %0)"},{"Add":"; # (i32 (symByte P))"},{"Add":" %14 = zext i8 %13 to i32"},{"Add":"; # (& (i32 (symByte P)) (hex \"3F\"))"},{"Add":" %15 = and i32 %14, 63"},{"Add":"; # (| (shl (& C (hex \"7\")) 6) (& (i32 (symByte P)) (hex \"3F\")))"},{"Add":" %16 = or i32 %12, %15"},{"Add":" br label %$12"},{"Add":"$12:"},{"Add":" %17 = phi i32 [%10, %$10], [%16, %$11] ; # ->"},{"Add":"; # (shl (ifn (& C (hex \"10\")) (& C (hex \"0F\")) (| (shl (& C (hex \"7\"..."},{"Add":" %18 = shl i32 %17, 6"},{"Add":"; # (symByte P)"},{"Add":" %19 = call i8 @symByte(i64* %0)"},{"Add":"; # (i32 (symByte P))"},{"Add":" %20 = zext i8 %19 to i32"},{"Add":"; # (& (i32 (symByte P)) (hex \"3F\"))"},{"Add":" %21 = and i32 %20, 63"},{"Add":"; # (| (shl (ifn (& C (hex \"10\")) (& C (hex \"0F\")) (| (shl (& C (hex ..."},{"Add":" %22 = or i32 %18, %21"},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %23 = phi i32 [%7, %$7], [%22, %$12] ; # ->"},{"Add":"; # (shl (ifn (& C (hex \"20\")) (& C (hex \"1F\")) (| (shl (ifn (& C (he..."},{"Add":" %24 = shl i32 %23, 6"},{"Add":"; # (symByte P)"},{"Add":" %25 = call i8 @symByte(i64* %0)"},{"Add":"; # (i32 (symByte P))"},{"Add":" %26 = zext i8 %25 to i32"},{"Add":"; # (& (i32 (symByte P)) (hex \"3F\"))"},{"Add":" %27 = and i32 %26, 63"},{"Add":"; # (| (shl (ifn (& C (hex \"20\")) (& C (hex \"1F\")) (| (shl (ifn (& C ..."},{"Add":" %28 = or i32 %24, %27"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %29 = phi i32 [%2, %$4], [1114112, %$6], [%28, %$9] ; # ->"},{"Add":" ret i32 %29"},{"Add":"}"},{"Add":""},{"Add":"define void @byteNum(i8, i64*) align 8 {"},{"Add":"$1:"},{"Add":"; # (let (Cnt (val P) Nm (val 3 P)) (if (cnt? Nm) (cond ((== Cnt 67) ..."},{"Add":"; # (val P)"},{"Add":" %2 = load i64, i64* %1"},{"Add":"; # (val 3 P)"},{"Add":" %3 = getelementptr i64, i64* %1, i32 2"},{"Add":" %4 = load i64, i64* %3"},{"Add":"; # (if (cnt? Nm) (cond ((== Cnt 67) (set 3 P (set 2 P (consNum (shr ..."},{"Add":"; # (cnt? Nm)"},{"Add":" %5 = and i64 %4, 2"},{"Add":" %6 = icmp ne i64 %5, 0"},{"Add":" br i1 %6, label %$2, label %$3"},{"Add":"$2:"},{"Add":"; # (cond ((== Cnt 67) (set 3 P (set 2 P (consNum (shr Nm 3) (cnt (i6..."},{"Add":"; # (== Cnt 67)"},{"Add":" %7 = icmp eq i64 %2, 67"},{"Add":" br i1 %7, label %$7, label %$6"},{"Add":"$7:"},{"Add":"; # (set 3 P (set 2 P (consNum (shr Nm 3) (cnt (i64 B)))))"},{"Add":"; # (set 2 P (consNum (shr Nm 3) (cnt (i64 B))))"},{"Add":"; # (shr Nm 3)"},{"Add":" %8 = lshr i64 %4, 3"},{"Add":"; # (i64 B)"},{"Add":" %9 = zext i8 %0 to i64"},{"Add":"; # (cnt (i64 B))"},{"Add":" %10 = shl i64 %9, 4"},{"Add":" %11 = or i64 %10, 2"},{"Add":"; # (consNum (shr Nm 3) (cnt (i64 B)))"},{"Add":" %12 = call i64 @consNum(i64 %8, i64 %11)"},{"Add":" %13 = getelementptr i64, i64* %1, i32 1"},{"Add":" store i64 %12, i64* %13"},{"Add":" %14 = getelementptr i64, i64* %1, i32 2"},{"Add":" store i64 %12, i64* %14"},{"Add":"; # (set P 12)"},{"Add":" store i64 12, i64* %1"},{"Add":" br label %$5"},{"Add":"$6:"},{"Add":"; # (and (== Cnt 59) (>= B 32))"},{"Add":"; # (== Cnt 59)"},{"Add":" %15 = icmp eq i64 %2, 59"},{"Add":" br i1 %15, label %$9, label %$8"},{"Add":"$9:"},{"Add":"; # (>= B 32)"},{"Add":" %16 = icmp uge i8 %0, 32"},{"Add":" br label %$8"},{"Add":"$8:"},{"Add":" %17 = phi i1 [0, %$6], [%16, %$9] ; # ->"},{"Add":" br i1 %17, label %$11, label %$10"},{"Add":"$11:"},{"Add":"; # (set 3 P (set 2 P (boxNum (| (shr Nm 3) (shl (i64 B) 56)))))"},{"Add":"; # (set 2 P (boxNum (| (shr Nm 3) (shl (i64 B) 56))))"},{"Add":"; # (shr Nm 3)"},{"Add":" %18 = lshr i64 %4, 3"},{"Add":"; # (i64 B)"},{"Add":" %19 = zext i8 %0 to i64"},{"Add":"; # (shl (i64 B) 56)"},{"Add":" %20 = shl i64 %19, 56"},{"Add":"; # (| (shr Nm 3) (shl (i64 B) 56))"},{"Add":" %21 = or i64 %18, %20"},{"Add":"; # (boxNum (| (shr Nm 3) (shl (i64 B) 56)))"},{"Add":" %22 = call i64 @boxNum(i64 %21)"},{"Add":" %23 = getelementptr i64, i64* %1, i32 1"},{"Add":" store i64 %22, i64* %23"},{"Add":" %24 = getelementptr i64, i64* %1, i32 2"},{"Add":" store i64 %22, i64* %24"},{"Add":"; # (set P 4)"},{"Add":" store i64 4, i64* %1"},{"Add":" br label %$5"},{"Add":"$10:"},{"Add":"; # (set 3 P (| Nm (shl (i64 B) Cnt)) P (+ Cnt 8))"},{"Add":"; # (i64 B)"},{"Add":" %25 = zext i8 %0 to i64"},{"Add":"; # (shl (i64 B) Cnt)"},{"Add":" %26 = shl i64 %25, %2"},{"Add":"; # (| Nm (shl (i64 B) Cnt))"},{"Add":" %27 = or i64 %4, %26"},{"Add":" %28 = getelementptr i64, i64* %1, i32 2"},{"Add":" store i64 %27, i64* %28"},{"Add":"; # (+ Cnt 8)"},{"Add":" %29 = add i64 %2, 8"},{"Add":" store i64 %29, i64* %1"},{"Add":" br label %$5"},{"Add":"$5:"},{"Add":" %30 = phi i64 [12, %$7], [4, %$11], [%29, %$10] ; # ->"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":"; # (let (Q (val 2 P) N (val (big Q))) (cond ((== Cnt 68) (set 2 P (s..."},{"Add":"; # (val 2 P)"},{"Add":" %31 = getelementptr i64, i64* %1, i32 1"},{"Add":" %32 = load i64, i64* %31"},{"Add":"; # (big Q)"},{"Add":" %33 = add i64 %32, 4"},{"Add":"; # (val (big Q))"},{"Add":" %34 = inttoptr i64 %33 to i64*"},{"Add":" %35 = load i64, i64* %34"},{"Add":"; # (cond ((== Cnt 68) (set 2 P (set (big Q) (consNum (int N) (cnt (i..."},{"Add":"; # (== Cnt 68)"},{"Add":" %36 = icmp eq i64 %2, 68"},{"Add":" br i1 %36, label %$14, label %$13"},{"Add":"$14:"},{"Add":"; # (set 2 P (set (big Q) (consNum (int N) (cnt (i64 B)))))"},{"Add":"; # (set (big Q) (consNum (int N) (cnt (i64 B))))"},{"Add":"; # (big Q)"},{"Add":" %37 = add i64 %32, 4"},{"Add":"; # (int N)"},{"Add":" %38 = lshr i64 %35, 4"},{"Add":"; # (i64 B)"},{"Add":" %39 = zext i8 %0 to i64"},{"Add":"; # (cnt (i64 B))"},{"Add":" %40 = shl i64 %39, 4"},{"Add":" %41 = or i64 %40, 2"},{"Add":"; # (consNum (int N) (cnt (i64 B)))"},{"Add":" %42 = call i64 @consNum(i64 %38, i64 %41)"},{"Add":" %43 = inttoptr i64 %37 to i64*"},{"Add":" store i64 %42, i64* %43"},{"Add":" %44 = getelementptr i64, i64* %1, i32 1"},{"Add":" store i64 %42, i64* %44"},{"Add":"; # (set P 12)"},{"Add":" store i64 12, i64* %1"},{"Add":" br label %$12"},{"Add":"$13:"},{"Add":"; # (and (== Cnt 60) (>= B 16))"},{"Add":"; # (== Cnt 60)"},{"Add":" %45 = icmp eq i64 %2, 60"},{"Add":" br i1 %45, label %$16, label %$15"},{"Add":"$16:"},{"Add":"; # (>= B 16)"},{"Add":" %46 = icmp uge i8 %0, 16"},{"Add":" br label %$15"},{"Add":"$15:"},{"Add":" %47 = phi i1 [0, %$13], [%46, %$16] ; # ->"},{"Add":" br i1 %47, label %$18, label %$17"},{"Add":"$18:"},{"Add":"; # (set 2 P (set (big Q) (boxNum (| (int N) (shl (i64 B) 56)))))"},{"Add":"; # (set (big Q) (boxNum (| (int N) (shl (i64 B) 56))))"},{"Add":"; # (big Q)"},{"Add":" %48 = add i64 %32, 4"},{"Add":"; # (int N)"},{"Add":" %49 = lshr i64 %35, 4"},{"Add":"; # (i64 B)"},{"Add":" %50 = zext i8 %0 to i64"},{"Add":"; # (shl (i64 B) 56)"},{"Add":" %51 = shl i64 %50, 56"},{"Add":"; # (| (int N) (shl (i64 B) 56))"},{"Add":" %52 = or i64 %49, %51"},{"Add":"; # (boxNum (| (int N) (shl (i64 B) 56)))"},{"Add":" %53 = call i64 @boxNum(i64 %52)"},{"Add":" %54 = inttoptr i64 %48 to i64*"},{"Add":" store i64 %53, i64* %54"},{"Add":" %55 = getelementptr i64, i64* %1, i32 1"},{"Add":" store i64 %53, i64* %55"},{"Add":"; # (set P 4)"},{"Add":" store i64 4, i64* %1"},{"Add":" br label %$12"},{"Add":"$17:"},{"Add":"; # (set (big Q) (| N (shl (i64 B) Cnt)) P (+ Cnt 8))"},{"Add":"; # (big Q)"},{"Add":" %56 = add i64 %32, 4"},{"Add":"; # (i64 B)"},{"Add":" %57 = zext i8 %0 to i64"},{"Add":"; # (shl (i64 B) Cnt)"},{"Add":" %58 = shl i64 %57, %2"},{"Add":"; # (| N (shl (i64 B) Cnt))"},{"Add":" %59 = or i64 %35, %58"},{"Add":" %60 = inttoptr i64 %56 to i64*"},{"Add":" store i64 %59, i64* %60"},{"Add":"; # (+ Cnt 8)"},{"Add":" %61 = add i64 %2, 8"},{"Add":" store i64 %61, i64* %1"},{"Add":" br label %$12"},{"Add":"$12:"},{"Add":" %62 = phi i64 [12, %$14], [4, %$18], [%61, %$17] ; # ->"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %63 = phi i64 [%30, %$5], [%62, %$12] ; # ->"},{"Add":" ret void"},{"Add":"}"},{"Add":""},{"Add":"define void @byteSym(i8, i64*) align 8 {"},{"Add":"$1:"},{"Add":"; # (let (Cnt (val P) Nm (val 3 P)) (if (cnt? Nm) (if (> 60 Cnt) (set..."},{"Add":"; # (val P)"},{"Add":" %2 = load i64, i64* %1"},{"Add":"; # (val 3 P)"},{"Add":" %3 = getelementptr i64, i64* %1, i32 2"},{"Add":" %4 = load i64, i64* %3"},{"Add":"; # (if (cnt? Nm) (if (> 60 Cnt) (set 3 P (| Nm (shl (i64 B) Cnt)) P ..."},{"Add":"; # (cnt? Nm)"},{"Add":" %5 = and i64 %4, 2"},{"Add":" %6 = icmp ne i64 %5, 0"},{"Add":" br i1 %6, label %$2, label %$3"},{"Add":"$2:"},{"Add":"; # (if (> 60 Cnt) (set 3 P (| Nm (shl (i64 B) Cnt)) P (+ Cnt 8)) (se..."},{"Add":"; # (> 60 Cnt)"},{"Add":" %7 = icmp ugt i64 60, %2"},{"Add":" br i1 %7, label %$5, label %$6"},{"Add":"$5:"},{"Add":"; # (set 3 P (| Nm (shl (i64 B) Cnt)) P (+ Cnt 8))"},{"Add":"; # (i64 B)"},{"Add":" %8 = zext i8 %0 to i64"},{"Add":"; # (shl (i64 B) Cnt)"},{"Add":" %9 = shl i64 %8, %2"},{"Add":"; # (| Nm (shl (i64 B) Cnt))"},{"Add":" %10 = or i64 %4, %9"},{"Add":" %11 = getelementptr i64, i64* %1, i32 2"},{"Add":" store i64 %10, i64* %11"},{"Add":"; # (+ Cnt 8)"},{"Add":" %12 = add i64 %2, 8"},{"Add":" store i64 %12, i64* %1"},{"Add":" br label %$7"},{"Add":"$6:"},{"Add":"; # (set 3 P (set 2 P (boxNum (| (int Nm) (shl (i64 B) 56)))))"},{"Add":"; # (set 2 P (boxNum (| (int Nm) (shl (i64 B) 56))))"},{"Add":"; # (int Nm)"},{"Add":" %13 = lshr i64 %4, 4"},{"Add":"; # (i64 B)"},{"Add":" %14 = zext i8 %0 to i64"},{"Add":"; # (shl (i64 B) 56)"},{"Add":" %15 = shl i64 %14, 56"},{"Add":"; # (| (int Nm) (shl (i64 B) 56))"},{"Add":" %16 = or i64 %13, %15"},{"Add":"; # (boxNum (| (int Nm) (shl (i64 B) 56)))"},{"Add":" %17 = call i64 @boxNum(i64 %16)"},{"Add":" %18 = getelementptr i64, i64* %1, i32 1"},{"Add":" store i64 %17, i64* %18"},{"Add":" %19 = getelementptr i64, i64* %1, i32 2"},{"Add":" store i64 %17, i64* %19"},{"Add":"; # (set P 4)"},{"Add":" store i64 4, i64* %1"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %20 = phi i64 [%12, %$5], [4, %$6] ; # ->"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":"; # (let (Q (val 2 P) N (val (big Q))) (if (> 60 Cnt) (set (big Q) (|..."},{"Add":"; # (val 2 P)"},{"Add":" %21 = getelementptr i64, i64* %1, i32 1"},{"Add":" %22 = load i64, i64* %21"},{"Add":"; # (big Q)"},{"Add":" %23 = add i64 %22, 4"},{"Add":"; # (val (big Q))"},{"Add":" %24 = inttoptr i64 %23 to i64*"},{"Add":" %25 = load i64, i64* %24"},{"Add":"; # (if (> 60 Cnt) (set (big Q) (| N (shl (i64 B) Cnt)) P (+ Cnt 8)) ..."},{"Add":"; # (> 60 Cnt)"},{"Add":" %26 = icmp ugt i64 60, %2"},{"Add":" br i1 %26, label %$8, label %$9"},{"Add":"$8:"},{"Add":"; # (set (big Q) (| N (shl (i64 B) Cnt)) P (+ Cnt 8))"},{"Add":"; # (big Q)"},{"Add":" %27 = add i64 %22, 4"},{"Add":"; # (i64 B)"},{"Add":" %28 = zext i8 %0 to i64"},{"Add":"; # (shl (i64 B) Cnt)"},{"Add":" %29 = shl i64 %28, %2"},{"Add":"; # (| N (shl (i64 B) Cnt))"},{"Add":" %30 = or i64 %25, %29"},{"Add":" %31 = inttoptr i64 %27 to i64*"},{"Add":" store i64 %30, i64* %31"},{"Add":"; # (+ Cnt 8)"},{"Add":" %32 = add i64 %2, 8"},{"Add":" store i64 %32, i64* %1"},{"Add":" br label %$10"},{"Add":"$9:"},{"Add":"; # (set 2 P (set (big Q) (boxNum (| (int N) (shl (i64 B) 56)))))"},{"Add":"; # (set (big Q) (boxNum (| (int N) (shl (i64 B) 56))))"},{"Add":"; # (big Q)"},{"Add":" %33 = add i64 %22, 4"},{"Add":"; # (int N)"},{"Add":" %34 = lshr i64 %25, 4"},{"Add":"; # (i64 B)"},{"Add":" %35 = zext i8 %0 to i64"},{"Add":"; # (shl (i64 B) 56)"},{"Add":" %36 = shl i64 %35, 56"},{"Add":"; # (| (int N) (shl (i64 B) 56))"},{"Add":" %37 = or i64 %34, %36"},{"Add":"; # (boxNum (| (int N) (shl (i64 B) 56)))"},{"Add":" %38 = call i64 @boxNum(i64 %37)"},{"Add":" %39 = inttoptr i64 %33 to i64*"},{"Add":" store i64 %38, i64* %39"},{"Add":" %40 = getelementptr i64, i64* %1, i32 1"},{"Add":" store i64 %38, i64* %40"},{"Add":"; # (set P 4)"},{"Add":" store i64 4, i64* %1"},{"Add":" br label %$10"},{"Add":"$10:"},{"Add":" %41 = phi i64 [%32, %$8], [4, %$9] ; # ->"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %42 = phi i64 [%20, %$7], [%41, %$10] ; # ->"},{"Add":" ret void"},{"Add":"}"},{"Add":""},{"Add":"define void @charSym(i32, i64*) align 8 {"},{"Add":"$1:"},{"Add":"; # (cond ((>= 127 C) (byteSym (i8 C) P)) ((== TOP C) (byteSym (hex \"..."},{"Add":"; # (>= 127 C)"},{"Add":" %2 = icmp sge i32 127, %0"},{"Add":" br i1 %2, label %$4, label %$3"},{"Add":"$4:"},{"Add":"; # (i8 C)"},{"Add":" %3 = trunc i32 %0 to i8"},{"Add":"; # (byteSym (i8 C) P)"},{"Add":" call void @byteSym(i8 %3, i64* %1)"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":"; # (== TOP C)"},{"Add":" %4 = icmp eq i32 1114112, %0"},{"Add":" br i1 %4, label %$6, label %$5"},{"Add":"$6:"},{"Add":"; # (byteSym (hex \"FF\") P)"},{"Add":" call void @byteSym(i8 255, i64* %1)"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":"; # (cond ((> (hex \"800\") C) (byteSym (i8 (| (hex \"C0\") (& (shr C 6) ..."},{"Add":"; # (> (hex \"800\") C)"},{"Add":" %5 = icmp sgt i32 2048, %0"},{"Add":" br i1 %5, label %$9, label %$8"},{"Add":"$9:"},{"Add":"; # (shr C 6)"},{"Add":" %6 = lshr i32 %0, 6"},{"Add":"; # (& (shr C 6) (hex \"1F\"))"},{"Add":" %7 = and i32 %6, 31"},{"Add":"; # (| (hex \"C0\") (& (shr C 6) (hex \"1F\")))"},{"Add":" %8 = or i32 192, %7"},{"Add":"; # (i8 (| (hex \"C0\") (& (shr C 6) (hex \"1F\"))))"},{"Add":" %9 = trunc i32 %8 to i8"},{"Add":"; # (byteSym (i8 (| (hex \"C0\") (& (shr C 6) (hex \"1F\")))) P)"},{"Add":" call void @byteSym(i8 %9, i64* %1)"},{"Add":" br label %$7"},{"Add":"$8:"},{"Add":"; # (> (hex \"10000\") C)"},{"Add":" %10 = icmp sgt i32 65536, %0"},{"Add":" br i1 %10, label %$11, label %$10"},{"Add":"$11:"},{"Add":"; # (shr C 12)"},{"Add":" %11 = lshr i32 %0, 12"},{"Add":"; # (& (shr C 12) (hex \"0F\"))"},{"Add":" %12 = and i32 %11, 15"},{"Add":"; # (| (hex \"E0\") (& (shr C 12) (hex \"0F\")))"},{"Add":" %13 = or i32 224, %12"},{"Add":"; # (i8 (| (hex \"E0\") (& (shr C 12) (hex \"0F\"))))"},{"Add":" %14 = trunc i32 %13 to i8"},{"Add":"; # (byteSym (i8 (| (hex \"E0\") (& (shr C 12) (hex \"0F\")))) P)"},{"Add":" call void @byteSym(i8 %14, i64* %1)"},{"Add":"; # (shr C 6)"},{"Add":" %15 = lshr i32 %0, 6"},{"Add":"; # (& (shr C 6) (hex \"3F\"))"},{"Add":" %16 = and i32 %15, 63"},{"Add":"; # (| (hex \"80\") (& (shr C 6) (hex \"3F\")))"},{"Add":" %17 = or i32 128, %16"},{"Add":"; # (i8 (| (hex \"80\") (& (shr C 6) (hex \"3F\"))))"},{"Add":" %18 = trunc i32 %17 to i8"},{"Add":"; # (byteSym (i8 (| (hex \"80\") (& (shr C 6) (hex \"3F\")))) P)"},{"Add":" call void @byteSym(i8 %18, i64* %1)"},{"Add":" br label %$7"},{"Add":"$10:"},{"Add":"; # (shr C 18)"},{"Add":" %19 = lshr i32 %0, 18"},{"Add":"; # (& (shr C 18) (hex \"07\"))"},{"Add":" %20 = and i32 %19, 7"},{"Add":"; # (| (hex \"F0\") (& (shr C 18) (hex \"07\")))"},{"Add":" %21 = or i32 240, %20"},{"Add":"; # (i8 (| (hex \"F0\") (& (shr C 18) (hex \"07\"))))"},{"Add":" %22 = trunc i32 %21 to i8"},{"Add":"; # (byteSym (i8 (| (hex \"F0\") (& (shr C 18) (hex \"07\")))) P)"},{"Add":" call void @byteSym(i8 %22, i64* %1)"},{"Add":"; # (shr C 12)"},{"Add":" %23 = lshr i32 %0, 12"},{"Add":"; # (& (shr C 12) (hex \"3F\"))"},{"Add":" %24 = and i32 %23, 63"},{"Add":"; # (| (hex \"80\") (& (shr C 12) (hex \"3F\")))"},{"Add":" %25 = or i32 128, %24"},{"Add":"; # (i8 (| (hex \"80\") (& (shr C 12) (hex \"3F\"))))"},{"Add":" %26 = trunc i32 %25 to i8"},{"Add":"; # (byteSym (i8 (| (hex \"80\") (& (shr C 12) (hex \"3F\")))) P)"},{"Add":" call void @byteSym(i8 %26, i64* %1)"},{"Add":"; # (shr C 6)"},{"Add":" %27 = lshr i32 %0, 6"},{"Add":"; # (& (shr C 6) (hex \"3F\"))"},{"Add":" %28 = and i32 %27, 63"},{"Add":"; # (| (hex \"80\") (& (shr C 6) (hex \"3F\")))"},{"Add":" %29 = or i32 128, %28"},{"Add":"; # (i8 (| (hex \"80\") (& (shr C 6) (hex \"3F\"))))"},{"Add":" %30 = trunc i32 %29 to i8"},{"Add":"; # (byteSym (i8 (| (hex \"80\") (& (shr C 6) (hex \"3F\")))) P)"},{"Add":" call void @byteSym(i8 %30, i64* %1)"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":"; # (& C (hex \"3F\"))"},{"Add":" %31 = and i32 %0, 63"},{"Add":"; # (| (hex \"80\") (& C (hex \"3F\")))"},{"Add":" %32 = or i32 128, %31"},{"Add":"; # (i8 (| (hex \"80\") (& C (hex \"3F\"))))"},{"Add":" %33 = trunc i32 %32 to i8"},{"Add":"; # (byteSym (i8 (| (hex \"80\") (& C (hex \"3F\")))) P)"},{"Add":" call void @byteSym(i8 %33, i64* %1)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" ret void"},{"Add":"}"},{"Add":""},{"Add":"define i64 @zapZero(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let (P (push N) X P Y P Z T) (until (cnt? (setq Z (val (big N)))..."},{"Add":"; # (push N)"},{"Add":" %1 = alloca i64, i64 1"},{"Add":" %2 = ptrtoint i64* %1 to i64"},{"Add":" %3 = inttoptr i64 %2 to i64*"},{"Add":" store i64 %0, i64* %3"},{"Add":"; # (until (cnt? (setq Z (val (big N)))) (when (val (dig N)) (setq X ..."},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %4 = phi i64 [%0, %$1], [%30, %$6] ; # N"},{"Add":" %5 = phi i64 [%2, %$1], [%25, %$6] ; # X"},{"Add":" %6 = phi i64 [%2, %$1], [%28, %$6] ; # Y"},{"Add":"; # (big N)"},{"Add":" %7 = add i64 %4, 4"},{"Add":"; # (val (big N))"},{"Add":" %8 = inttoptr i64 %7 to i64*"},{"Add":" %9 = load i64, i64* %8"},{"Add":"; # (cnt? (setq Z (val (big N))))"},{"Add":" %10 = and i64 %9, 2"},{"Add":" %11 = icmp ne i64 %10, 0"},{"Add":" br i1 %11, label %$4, label %$3"},{"Add":"$3:"},{"Add":" %12 = phi i64 [%4, %$2] ; # N"},{"Add":" %13 = phi i64 [%5, %$2] ; # X"},{"Add":" %14 = phi i64 [%6, %$2] ; # Y"},{"Add":" %15 = phi i64 [%9, %$2] ; # Z"},{"Add":"; # (when (val (dig N)) (setq X Y))"},{"Add":"; # (dig N)"},{"Add":" %16 = add i64 %12, -4"},{"Add":"; # (val (dig N))"},{"Add":" %17 = inttoptr i64 %16 to i64*"},{"Add":" %18 = load i64, i64* %17"},{"Add":" %19 = icmp ne i64 %18, 0"},{"Add":" br i1 %19, label %$5, label %$6"},{"Add":"$5:"},{"Add":" %20 = phi i64 [%12, %$3] ; # N"},{"Add":" %21 = phi i64 [%13, %$3] ; # X"},{"Add":" %22 = phi i64 [%14, %$3] ; # Y"},{"Add":" %23 = phi i64 [%15, %$3] ; # Z"},{"Add":" br label %$6"},{"Add":"$6:"},{"Add":" %24 = phi i64 [%12, %$3], [%20, %$5] ; # N"},{"Add":" %25 = phi i64 [%13, %$3], [%22, %$5] ; # X"},{"Add":" %26 = phi i64 [%14, %$3], [%22, %$5] ; # Y"},{"Add":" %27 = phi i64 [%15, %$3], [%23, %$5] ; # Z"},{"Add":"; # (big N)"},{"Add":" %28 = add i64 %24, 4"},{"Add":"; # (val Y)"},{"Add":" %29 = inttoptr i64 %28 to i64*"},{"Add":" %30 = load i64, i64* %29"},{"Add":" br label %$2"},{"Add":"$4:"},{"Add":" %31 = phi i64 [%4, %$2] ; # N"},{"Add":" %32 = phi i64 [%5, %$2] ; # X"},{"Add":" %33 = phi i64 [%6, %$2] ; # Y"},{"Add":" %34 = phi i64 [%9, %$2] ; # Z"},{"Add":"; # (when (== Z ZERO) (cond ((setq N (val (dig N))) (unless (& N (hex..."},{"Add":"; # (== Z ZERO)"},{"Add":" %35 = icmp eq i64 %34, 2"},{"Add":" br i1 %35, label %$7, label %$8"},{"Add":"$7:"},{"Add":" %36 = phi i64 [%31, %$4] ; # N"},{"Add":" %37 = phi i64 [%32, %$4] ; # X"},{"Add":" %38 = phi i64 [%33, %$4] ; # Y"},{"Add":" %39 = phi i64 [%34, %$4] ; # Z"},{"Add":"; # (cond ((setq N (val (dig N))) (unless (& N (hex \"F000000000000000..."},{"Add":"; # (dig N)"},{"Add":" %40 = add i64 %36, -4"},{"Add":"; # (val (dig N))"},{"Add":" %41 = inttoptr i64 %40 to i64*"},{"Add":" %42 = load i64, i64* %41"},{"Add":" %43 = icmp ne i64 %42, 0"},{"Add":" br i1 %43, label %$11, label %$10"},{"Add":"$11:"},{"Add":" %44 = phi i64 [%42, %$7] ; # N"},{"Add":" %45 = phi i64 [%37, %$7] ; # X"},{"Add":" %46 = phi i64 [%38, %$7] ; # Y"},{"Add":" %47 = phi i64 [%39, %$7] ; # Z"},{"Add":"; # (unless (& N (hex \"F000000000000000\")) (set Y (cnt N)))"},{"Add":"; # (& N (hex \"F000000000000000\"))"},{"Add":" %48 = and i64 %44, 17293822569102704640"},{"Add":" %49 = icmp ne i64 %48, 0"},{"Add":" br i1 %49, label %$13, label %$12"},{"Add":"$12:"},{"Add":" %50 = phi i64 [%44, %$11] ; # N"},{"Add":" %51 = phi i64 [%45, %$11] ; # X"},{"Add":" %52 = phi i64 [%46, %$11] ; # Y"},{"Add":" %53 = phi i64 [%47, %$11] ; # Z"},{"Add":"; # (set Y (cnt N))"},{"Add":"; # (cnt N)"},{"Add":" %54 = shl i64 %50, 4"},{"Add":" %55 = or i64 %54, 2"},{"Add":" %56 = inttoptr i64 %52 to i64*"},{"Add":" store i64 %55, i64* %56"},{"Add":" br label %$13"},{"Add":"$13:"},{"Add":" %57 = phi i64 [%44, %$11], [%50, %$12] ; # N"},{"Add":" %58 = phi i64 [%45, %$11], [%51, %$12] ; # X"},{"Add":" %59 = phi i64 [%46, %$11], [%52, %$12] ; # Y"},{"Add":" %60 = phi i64 [%47, %$11], [%53, %$12] ; # Z"},{"Add":" br label %$9"},{"Add":"$10:"},{"Add":" %61 = phi i64 [%42, %$7] ; # N"},{"Add":" %62 = phi i64 [%37, %$7] ; # X"},{"Add":" %63 = phi i64 [%38, %$7] ; # Y"},{"Add":" %64 = phi i64 [%39, %$7] ; # Z"},{"Add":"; # (val X)"},{"Add":" %65 = inttoptr i64 %62 to i64*"},{"Add":" %66 = load i64, i64* %65"},{"Add":"; # (dig (val X))"},{"Add":" %67 = add i64 %66, -4"},{"Add":"; # (val (dig (val X)))"},{"Add":" %68 = inttoptr i64 %67 to i64*"},{"Add":" %69 = load i64, i64* %68"},{"Add":"; # (& (setq N (val (dig (val X)))) (hex \"F000000000000000\"))"},{"Add":" %70 = and i64 %69, 17293822569102704640"},{"Add":" %71 = icmp ne i64 %70, 0"},{"Add":" br i1 %71, label %$15, label %$14"},{"Add":"$15:"},{"Add":" %72 = phi i64 [%69, %$10] ; # N"},{"Add":" %73 = phi i64 [%62, %$10] ; # X"},{"Add":" %74 = phi i64 [%63, %$10] ; # Y"},{"Add":" %75 = phi i64 [%64, %$10] ; # Z"},{"Add":"; # (set (big (val X)) ZERO)"},{"Add":"; # (val X)"},{"Add":" %76 = inttoptr i64 %73 to i64*"},{"Add":" %77 = load i64, i64* %76"},{"Add":"; # (big (val X))"},{"Add":" %78 = add i64 %77, 4"},{"Add":" %79 = inttoptr i64 %78 to i64*"},{"Add":" store i64 2, i64* %79"},{"Add":" br label %$9"},{"Add":"$14:"},{"Add":" %80 = phi i64 [%69, %$10] ; # N"},{"Add":" %81 = phi i64 [%62, %$10] ; # X"},{"Add":" %82 = phi i64 [%63, %$10] ; # Y"},{"Add":" %83 = phi i64 [%64, %$10] ; # Z"},{"Add":"; # (set X (cnt N))"},{"Add":"; # (cnt N)"},{"Add":" %84 = shl i64 %80, 4"},{"Add":" %85 = or i64 %84, 2"},{"Add":" %86 = inttoptr i64 %81 to i64*"},{"Add":" store i64 %85, i64* %86"},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %87 = phi i64 [%57, %$13], [%72, %$15], [%80, %$14] ; # N"},{"Add":" %88 = phi i64 [%58, %$13], [%73, %$15], [%81, %$14] ; # X"},{"Add":" %89 = phi i64 [%59, %$13], [%74, %$15], [%82, %$14] ; # Y"},{"Add":" %90 = phi i64 [%60, %$13], [%75, %$15], [%83, %$14] ; # Z"},{"Add":" br label %$8"},{"Add":"$8:"},{"Add":" %91 = phi i64 [%31, %$4], [%87, %$9] ; # N"},{"Add":" %92 = phi i64 [%32, %$4], [%88, %$9] ; # X"},{"Add":" %93 = phi i64 [%33, %$4], [%89, %$9] ; # Y"},{"Add":" %94 = phi i64 [%34, %$4], [%90, %$9] ; # Z"},{"Add":"; # (val P)"},{"Add":" %95 = inttoptr i64 %2 to i64*"},{"Add":" %96 = load i64, i64* %95"},{"Add":" ret i64 %96"},{"Add":"}"},{"Add":""},{"Add":"define i64 @twiceBig(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let (X N A (val (dig X)) Y (val (big X))) (set (dig X) (shl A 1)..."},{"Add":"; # (dig X)"},{"Add":" %1 = add i64 %0, -4"},{"Add":"; # (val (dig X))"},{"Add":" %2 = inttoptr i64 %1 to i64*"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (big X)"},{"Add":" %4 = add i64 %0, 4"},{"Add":"; # (val (big X))"},{"Add":" %5 = inttoptr i64 %4 to i64*"},{"Add":" %6 = load i64, i64* %5"},{"Add":"; # (set (dig X) (shl A 1))"},{"Add":"; # (dig X)"},{"Add":" %7 = add i64 %0, -4"},{"Add":"; # (shl A 1)"},{"Add":" %8 = shl i64 %3, 1"},{"Add":" %9 = inttoptr i64 %7 to i64*"},{"Add":" store i64 %8, i64* %9"},{"Add":"; # (while (big? Y) (let B (val (dig Y)) (set (dig (setq X Y)) (| (sh..."},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %10 = phi i64 [%0, %$1], [%17, %$3] ; # X"},{"Add":" %11 = phi i64 [%3, %$1], [%20, %$3] ; # A"},{"Add":" %12 = phi i64 [%6, %$1], [%28, %$3] ; # Y"},{"Add":"; # (big? Y)"},{"Add":" %13 = and i64 %12, 4"},{"Add":" %14 = icmp ne i64 %13, 0"},{"Add":" br i1 %14, label %$3, label %$4"},{"Add":"$3:"},{"Add":" %15 = phi i64 [%10, %$2] ; # X"},{"Add":" %16 = phi i64 [%11, %$2] ; # A"},{"Add":" %17 = phi i64 [%12, %$2] ; # Y"},{"Add":"; # (let B (val (dig Y)) (set (dig (setq X Y)) (| (shl B 1) (shl 0 A ..."},{"Add":"; # (dig Y)"},{"Add":" %18 = add i64 %17, -4"},{"Add":"; # (val (dig Y))"},{"Add":" %19 = inttoptr i64 %18 to i64*"},{"Add":" %20 = load i64, i64* %19"},{"Add":"; # (set (dig (setq X Y)) (| (shl B 1) (shl 0 A 1)))"},{"Add":"; # (dig (setq X Y))"},{"Add":" %21 = add i64 %17, -4"},{"Add":"; # (shl B 1)"},{"Add":" %22 = shl i64 %20, 1"},{"Add":"; # (shl 0 A 1)"},{"Add":" %23 = call i64 @llvm.fshl.i64(i64 0, i64 %16, i64 1)"},{"Add":"; # (| (shl B 1) (shl 0 A 1))"},{"Add":" %24 = or i64 %22, %23"},{"Add":" %25 = inttoptr i64 %21 to i64*"},{"Add":" store i64 %24, i64* %25"},{"Add":"; # (big Y)"},{"Add":" %26 = add i64 %17, 4"},{"Add":"; # (val (big Y))"},{"Add":" %27 = inttoptr i64 %26 to i64*"},{"Add":" %28 = load i64, i64* %27"},{"Add":" br label %$2"},{"Add":"$4:"},{"Add":" %29 = phi i64 [%10, %$2] ; # X"},{"Add":" %30 = phi i64 [%11, %$2] ; # A"},{"Add":" %31 = phi i64 [%12, %$2] ; # Y"},{"Add":"; # (set (big X) (box64 (| (shl (int Y) 1) (shl 0 A 1))))"},{"Add":"; # (big X)"},{"Add":" %32 = add i64 %29, 4"},{"Add":"; # (int Y)"},{"Add":" %33 = lshr i64 %31, 4"},{"Add":"; # (shl (int Y) 1)"},{"Add":" %34 = shl i64 %33, 1"},{"Add":"; # (shl 0 A 1)"},{"Add":" %35 = call i64 @llvm.fshl.i64(i64 0, i64 %30, i64 1)"},{"Add":"; # (| (shl (int Y) 1) (shl 0 A 1))"},{"Add":" %36 = or i64 %34, %35"},{"Add":"; # (box64 (| (shl (int Y) 1) (shl 0 A 1)))"},{"Add":" %37 = and i64 %36, 17293822569102704640"},{"Add":" %38 = icmp ne i64 %37, 0"},{"Add":" br i1 %38, label %$5, label %$6"},{"Add":"$5:"},{"Add":" %39 = call i64 @boxNum(i64 %36)"},{"Add":" br label %$7"},{"Add":"$6:"},{"Add":" %40 = shl i64 %36, 4"},{"Add":" %41 = or i64 %40, 2"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %42 = phi i64 [%39, %$5], [%41, %$6] ; # ->"},{"Add":" %43 = inttoptr i64 %32 to i64*"},{"Add":" store i64 %42, i64* %43"},{"Add":" ret i64 %0"},{"Add":"}"},{"Add":""},{"Add":"define i64 @twice(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (if (cnt? N) (let X (add N N) (if @@ (boxNum (shr N 3)) (x| X 6))..."},{"Add":"; # (cnt? N)"},{"Add":" %1 = and i64 %0, 2"},{"Add":" %2 = icmp ne i64 %1, 0"},{"Add":" br i1 %2, label %$2, label %$3"},{"Add":"$2:"},{"Add":"; # (let X (add N N) (if @@ (boxNum (shr N 3)) (x| X 6)))"},{"Add":"; # (add N N)"},{"Add":" %3 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %0, i64 %0)"},{"Add":" %4 = extractvalue {i64, i1} %3, 1"},{"Add":" %5 = extractvalue {i64, i1} %3, 0"},{"Add":"; # (if @@ (boxNum (shr N 3)) (x| X 6))"},{"Add":" br i1 %4, label %$5, label %$6"},{"Add":"$5:"},{"Add":"; # (shr N 3)"},{"Add":" %6 = lshr i64 %0, 3"},{"Add":"; # (boxNum (shr N 3))"},{"Add":" %7 = call i64 @boxNum(i64 %6)"},{"Add":" br label %$7"},{"Add":"$6:"},{"Add":"; # (x| X 6)"},{"Add":" %8 = xor i64 %5, 6"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %9 = phi i64 [%7, %$5], [%8, %$6] ; # ->"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":"; # (twiceBig N)"},{"Add":" %10 = call i64 @twiceBig(i64 %0)"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %11 = phi i64 [%9, %$7], [%10, %$3] ; # ->"},{"Add":" ret i64 %11"},{"Add":"}"},{"Add":""},{"Add":"define i64 @half(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (if (cnt? N) (| (& (shr N 1) -10) 2) (let (X N A (shr (val (dig X..."},{"Add":"; # (cnt? N)"},{"Add":" %1 = and i64 %0, 2"},{"Add":" %2 = icmp ne i64 %1, 0"},{"Add":" br i1 %2, label %$2, label %$3"},{"Add":"$2:"},{"Add":"; # (shr N 1)"},{"Add":" %3 = lshr i64 %0, 1"},{"Add":"; # (& (shr N 1) -10)"},{"Add":" %4 = and i64 %3, -10"},{"Add":"; # (| (& (shr N 1) -10) 2)"},{"Add":" %5 = or i64 %4, 2"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":"; # (let (X N A (shr (val (dig X)) 1) Y (val (big X))) (if (big? Y) (..."},{"Add":"; # (dig X)"},{"Add":" %6 = add i64 %0, -4"},{"Add":"; # (val (dig X))"},{"Add":" %7 = inttoptr i64 %6 to i64*"},{"Add":" %8 = load i64, i64* %7"},{"Add":"; # (shr (val (dig X)) 1)"},{"Add":" %9 = lshr i64 %8, 1"},{"Add":"; # (big X)"},{"Add":" %10 = add i64 %0, 4"},{"Add":"; # (val (big X))"},{"Add":" %11 = inttoptr i64 %10 to i64*"},{"Add":" %12 = load i64, i64* %11"},{"Add":"; # (if (big? Y) (let Z (val (big Y)) (loop (let B (val (dig Y)) (set..."},{"Add":"; # (big? Y)"},{"Add":" %13 = and i64 %12, 4"},{"Add":" %14 = icmp ne i64 %13, 0"},{"Add":" br i1 %14, label %$5, label %$6"},{"Add":"$5:"},{"Add":" %15 = phi i64 [%0, %$3] ; # X"},{"Add":" %16 = phi i64 [%9, %$3] ; # A"},{"Add":" %17 = phi i64 [%12, %$3] ; # Y"},{"Add":"; # (let Z (val (big Y)) (loop (let B (val (dig Y)) (set (dig X) (| (..."},{"Add":"; # (big Y)"},{"Add":" %18 = add i64 %17, 4"},{"Add":"; # (val (big Y))"},{"Add":" %19 = inttoptr i64 %18 to i64*"},{"Add":" %20 = load i64, i64* %19"},{"Add":"; # (loop (let B (val (dig Y)) (set (dig X) (| (shr B 0 1) A)) (setq ..."},{"Add":" br label %$8"},{"Add":"$8:"},{"Add":" %21 = phi i64 [%15, %$5], [%37, %$9] ; # X"},{"Add":" %22 = phi i64 [%16, %$5], [%36, %$9] ; # A"},{"Add":" %23 = phi i64 [%17, %$5], [%38, %$9] ; # Y"},{"Add":" %24 = phi i64 [%20, %$5], [%41, %$9] ; # Z"},{"Add":"; # (let B (val (dig Y)) (set (dig X) (| (shr B 0 1) A)) (setq A (shr..."},{"Add":"; # (dig Y)"},{"Add":" %25 = add i64 %23, -4"},{"Add":"; # (val (dig Y))"},{"Add":" %26 = inttoptr i64 %25 to i64*"},{"Add":" %27 = load i64, i64* %26"},{"Add":"; # (set (dig X) (| (shr B 0 1) A))"},{"Add":"; # (dig X)"},{"Add":" %28 = add i64 %21, -4"},{"Add":"; # (shr B 0 1)"},{"Add":" %29 = call i64 @llvm.fshr.i64(i64 %27, i64 0, i64 1)"},{"Add":"; # (| (shr B 0 1) A)"},{"Add":" %30 = or i64 %29, %22"},{"Add":" %31 = inttoptr i64 %28 to i64*"},{"Add":" store i64 %30, i64* %31"},{"Add":"; # (shr B 1)"},{"Add":" %32 = lshr i64 %27, 1"},{"Add":"; # (? (cnt? Z))"},{"Add":"; # (cnt? Z)"},{"Add":" %33 = and i64 %24, 2"},{"Add":" %34 = icmp ne i64 %33, 0"},{"Add":" br i1 %34, label %$10, label %$9"},{"Add":"$9:"},{"Add":" %35 = phi i64 [%21, %$8] ; # X"},{"Add":" %36 = phi i64 [%32, %$8] ; # A"},{"Add":" %37 = phi i64 [%23, %$8] ; # Y"},{"Add":" %38 = phi i64 [%24, %$8] ; # Z"},{"Add":"; # (big Z)"},{"Add":" %39 = add i64 %38, 4"},{"Add":"; # (val (big Z))"},{"Add":" %40 = inttoptr i64 %39 to i64*"},{"Add":" %41 = load i64, i64* %40"},{"Add":" br label %$8"},{"Add":"$10:"},{"Add":" %42 = phi i64 [%21, %$8] ; # X"},{"Add":" %43 = phi i64 [%32, %$8] ; # A"},{"Add":" %44 = phi i64 [%23, %$8] ; # Y"},{"Add":" %45 = phi i64 [%24, %$8] ; # Z"},{"Add":" %46 = phi i64 [0, %$8] ; # ->"},{"Add":"; # (int Z)"},{"Add":" %47 = lshr i64 %45, 4"},{"Add":"; # (shr Z 0 1)"},{"Add":" %48 = call i64 @llvm.fshr.i64(i64 %47, i64 0, i64 1)"},{"Add":"; # (| (shr Z 0 1) A)"},{"Add":" %49 = or i64 %48, %43"},{"Add":"; # (ifn (or (setq Z (shr Z 1)) (& A (hex \"F000000000000000\"))) (set ..."},{"Add":"; # (or (setq Z (shr Z 1)) (& A (hex \"F000000000000000\")))"},{"Add":"; # (shr Z 1)"},{"Add":" %50 = lshr i64 %47, 1"},{"Add":" %51 = icmp ne i64 %50, 0"},{"Add":" br i1 %51, label %$11, label %$12"},{"Add":"$12:"},{"Add":" %52 = phi i64 [%42, %$10] ; # X"},{"Add":" %53 = phi i64 [%49, %$10] ; # A"},{"Add":" %54 = phi i64 [%44, %$10] ; # Y"},{"Add":" %55 = phi i64 [%50, %$10] ; # Z"},{"Add":"; # (& A (hex \"F000000000000000\"))"},{"Add":" %56 = and i64 %53, 17293822569102704640"},{"Add":" %57 = icmp ne i64 %56, 0"},{"Add":" br label %$11"},{"Add":"$11:"},{"Add":" %58 = phi i64 [%42, %$10], [%52, %$12] ; # X"},{"Add":" %59 = phi i64 [%49, %$10], [%53, %$12] ; # A"},{"Add":" %60 = phi i64 [%44, %$10], [%54, %$12] ; # Y"},{"Add":" %61 = phi i64 [%50, %$10], [%55, %$12] ; # Z"},{"Add":" %62 = phi i1 [1, %$10], [%57, %$12] ; # ->"},{"Add":" br i1 %62, label %$14, label %$13"},{"Add":"$13:"},{"Add":" %63 = phi i64 [%58, %$11] ; # X"},{"Add":" %64 = phi i64 [%59, %$11] ; # A"},{"Add":" %65 = phi i64 [%60, %$11] ; # Y"},{"Add":" %66 = phi i64 [%61, %$11] ; # Z"},{"Add":"; # (set (big X) (cnt A))"},{"Add":"; # (big X)"},{"Add":" %67 = add i64 %63, 4"},{"Add":"; # (cnt A)"},{"Add":" %68 = shl i64 %64, 4"},{"Add":" %69 = or i64 %68, 2"},{"Add":" %70 = inttoptr i64 %67 to i64*"},{"Add":" store i64 %69, i64* %70"},{"Add":" br label %$15"},{"Add":"$14:"},{"Add":" %71 = phi i64 [%58, %$11] ; # X"},{"Add":" %72 = phi i64 [%59, %$11] ; # A"},{"Add":" %73 = phi i64 [%60, %$11] ; # Y"},{"Add":" %74 = phi i64 [%61, %$11] ; # Z"},{"Add":"; # (set (dig Y) A)"},{"Add":"; # (dig Y)"},{"Add":" %75 = add i64 %73, -4"},{"Add":" %76 = inttoptr i64 %75 to i64*"},{"Add":" store i64 %72, i64* %76"},{"Add":"; # (set (big Y) (cnt Z))"},{"Add":"; # (big Y)"},{"Add":" %77 = add i64 %73, 4"},{"Add":"; # (cnt Z)"},{"Add":" %78 = shl i64 %74, 4"},{"Add":" %79 = or i64 %78, 2"},{"Add":" %80 = inttoptr i64 %77 to i64*"},{"Add":" store i64 %79, i64* %80"},{"Add":" br label %$15"},{"Add":"$15:"},{"Add":" %81 = phi i64 [%63, %$13], [%71, %$14] ; # X"},{"Add":" %82 = phi i64 [%64, %$13], [%72, %$14] ; # A"},{"Add":" %83 = phi i64 [%65, %$13], [%73, %$14] ; # Y"},{"Add":" %84 = phi i64 [%66, %$13], [%74, %$14] ; # Z"},{"Add":" %85 = phi i64 [%69, %$13], [%79, %$14] ; # ->"},{"Add":" br label %$7"},{"Add":"$6:"},{"Add":" %86 = phi i64 [%0, %$3] ; # X"},{"Add":" %87 = phi i64 [%9, %$3] ; # A"},{"Add":" %88 = phi i64 [%12, %$3] ; # Y"},{"Add":"; # (int Y)"},{"Add":" %89 = lshr i64 %88, 4"},{"Add":"; # (shr Y 0 1)"},{"Add":" %90 = call i64 @llvm.fshr.i64(i64 %89, i64 0, i64 1)"},{"Add":"; # (| (shr Y 0 1) A)"},{"Add":" %91 = or i64 %90, %87"},{"Add":"; # (unless (or (setq Y (shr Y 1)) (& A (hex \"F000000000000000\"))) (r..."},{"Add":"; # (or (setq Y (shr Y 1)) (& A (hex \"F000000000000000\")))"},{"Add":"; # (shr Y 1)"},{"Add":" %92 = lshr i64 %89, 1"},{"Add":" %93 = icmp ne i64 %92, 0"},{"Add":" br i1 %93, label %$16, label %$17"},{"Add":"$17:"},{"Add":" %94 = phi i64 [%86, %$6] ; # X"},{"Add":" %95 = phi i64 [%91, %$6] ; # A"},{"Add":" %96 = phi i64 [%92, %$6] ; # Y"},{"Add":"; # (& A (hex \"F000000000000000\"))"},{"Add":" %97 = and i64 %95, 17293822569102704640"},{"Add":" %98 = icmp ne i64 %97, 0"},{"Add":" br label %$16"},{"Add":"$16:"},{"Add":" %99 = phi i64 [%86, %$6], [%94, %$17] ; # X"},{"Add":" %100 = phi i64 [%91, %$6], [%95, %$17] ; # A"},{"Add":" %101 = phi i64 [%92, %$6], [%96, %$17] ; # Y"},{"Add":" %102 = phi i1 [1, %$6], [%98, %$17] ; # ->"},{"Add":" br i1 %102, label %$19, label %$18"},{"Add":"$18:"},{"Add":" %103 = phi i64 [%99, %$16] ; # X"},{"Add":" %104 = phi i64 [%100, %$16] ; # A"},{"Add":" %105 = phi i64 [%101, %$16] ; # Y"},{"Add":"; # (cnt A)"},{"Add":" %106 = shl i64 %104, 4"},{"Add":" %107 = or i64 %106, 2"},{"Add":"; # (ret (cnt A))"},{"Add":" ret i64 %107"},{"Add":"$19:"},{"Add":" %108 = phi i64 [%99, %$16] ; # X"},{"Add":" %109 = phi i64 [%100, %$16] ; # A"},{"Add":" %110 = phi i64 [%101, %$16] ; # Y"},{"Add":"; # (set (dig X) A)"},{"Add":"; # (dig X)"},{"Add":" %111 = add i64 %108, -4"},{"Add":" %112 = inttoptr i64 %111 to i64*"},{"Add":" store i64 %109, i64* %112"},{"Add":"; # (set (big X) (cnt Y))"},{"Add":"; # (big X)"},{"Add":" %113 = add i64 %108, 4"},{"Add":"; # (cnt Y)"},{"Add":" %114 = shl i64 %110, 4"},{"Add":" %115 = or i64 %114, 2"},{"Add":" %116 = inttoptr i64 %113 to i64*"},{"Add":" store i64 %115, i64* %116"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %117 = phi i64 [%81, %$15], [%108, %$19] ; # X"},{"Add":" %118 = phi i64 [%82, %$15], [%109, %$19] ; # A"},{"Add":" %119 = phi i64 [%83, %$15], [%110, %$19] ; # Y"},{"Add":" %120 = phi i64 [%85, %$15], [%115, %$19] ; # ->"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %121 = phi i64 [%5, %$2], [%0, %$7] ; # ->"},{"Add":" ret i64 %121"},{"Add":"}"},{"Add":""},{"Add":"define i64 @tenfold(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (if (cnt? N) (box64 (* 10 (int N))) (let (X N Lo (mul 10 (val (di..."},{"Add":"; # (cnt? N)"},{"Add":" %1 = and i64 %0, 2"},{"Add":" %2 = icmp ne i64 %1, 0"},{"Add":" br i1 %2, label %$2, label %$3"},{"Add":"$2:"},{"Add":"; # (int N)"},{"Add":" %3 = lshr i64 %0, 4"},{"Add":"; # (* 10 (int N))"},{"Add":" %4 = mul i64 10, %3"},{"Add":"; # (box64 (* 10 (int N)))"},{"Add":" %5 = and i64 %4, 17293822569102704640"},{"Add":" %6 = icmp ne i64 %5, 0"},{"Add":" br i1 %6, label %$5, label %$6"},{"Add":"$5:"},{"Add":" %7 = call i64 @boxNum(i64 %4)"},{"Add":" br label %$7"},{"Add":"$6:"},{"Add":" %8 = shl i64 %4, 4"},{"Add":" %9 = or i64 %8, 2"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %10 = phi i64 [%7, %$5], [%9, %$6] ; # ->"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":"; # (let (X N Lo (mul 10 (val (dig X))) Hi @@@) (loop (set (dig X) Lo..."},{"Add":"; # (dig X)"},{"Add":" %11 = add i64 %0, -4"},{"Add":"; # (val (dig X))"},{"Add":" %12 = inttoptr i64 %11 to i64*"},{"Add":" %13 = load i64, i64* %12"},{"Add":"; # (mul 10 (val (dig X)))"},{"Add":" %14 = zext i64 %13 to i128"},{"Add":" %15 = mul i128 10, %14"},{"Add":" %16 = lshr i128 %15, 64"},{"Add":" %17 = trunc i128 %16 to i64"},{"Add":" %18 = trunc i128 %15 to i64"},{"Add":"; # (loop (set (dig X) Lo) (? (cnt? (val (big X))) (set (big X) (box6..."},{"Add":" br label %$8"},{"Add":"$8:"},{"Add":" %19 = phi i64 [%0, %$3], [%26, %$9] ; # X"},{"Add":" %20 = phi i64 [%18, %$3], [%56, %$9] ; # Lo"},{"Add":" %21 = phi i64 [%17, %$3], [%58, %$9] ; # Hi"},{"Add":"; # (set (dig X) Lo)"},{"Add":"; # (dig X)"},{"Add":" %22 = add i64 %19, -4"},{"Add":" %23 = inttoptr i64 %22 to i64*"},{"Add":" store i64 %20, i64* %23"},{"Add":"; # (? (cnt? (val (big X))) (set (big X) (box64 (+ Hi (* 10 (int @)))..."},{"Add":"; # (big X)"},{"Add":" %24 = add i64 %19, 4"},{"Add":"; # (val (big X))"},{"Add":" %25 = inttoptr i64 %24 to i64*"},{"Add":" %26 = load i64, i64* %25"},{"Add":"; # (cnt? (val (big X)))"},{"Add":" %27 = and i64 %26, 2"},{"Add":" %28 = icmp ne i64 %27, 0"},{"Add":" br i1 %28, label %$11, label %$9"},{"Add":"$11:"},{"Add":" %29 = phi i64 [%19, %$8] ; # X"},{"Add":" %30 = phi i64 [%20, %$8] ; # Lo"},{"Add":" %31 = phi i64 [%21, %$8] ; # Hi"},{"Add":"; # (set (big X) (box64 (+ Hi (* 10 (int @)))))"},{"Add":"; # (big X)"},{"Add":" %32 = add i64 %29, 4"},{"Add":"; # (int @)"},{"Add":" %33 = lshr i64 %26, 4"},{"Add":"; # (* 10 (int @))"},{"Add":" %34 = mul i64 10, %33"},{"Add":"; # (+ Hi (* 10 (int @)))"},{"Add":" %35 = add i64 %31, %34"},{"Add":"; # (box64 (+ Hi (* 10 (int @))))"},{"Add":" %36 = and i64 %35, 17293822569102704640"},{"Add":" %37 = icmp ne i64 %36, 0"},{"Add":" br i1 %37, label %$12, label %$13"},{"Add":"$12:"},{"Add":" %38 = call i64 @boxNum(i64 %35)"},{"Add":" br label %$14"},{"Add":"$13:"},{"Add":" %39 = shl i64 %35, 4"},{"Add":" %40 = or i64 %39, 2"},{"Add":" br label %$14"},{"Add":"$14:"},{"Add":" %41 = phi i64 [%38, %$12], [%40, %$13] ; # ->"},{"Add":" %42 = inttoptr i64 %32 to i64*"},{"Add":" store i64 %41, i64* %42"},{"Add":" br label %$10"},{"Add":"$9:"},{"Add":" %43 = phi i64 [%19, %$8] ; # X"},{"Add":" %44 = phi i64 [%20, %$8] ; # Lo"},{"Add":" %45 = phi i64 [%21, %$8] ; # Hi"},{"Add":"; # (dig X)"},{"Add":" %46 = add i64 %26, -4"},{"Add":"; # (val (dig X))"},{"Add":" %47 = inttoptr i64 %46 to i64*"},{"Add":" %48 = load i64, i64* %47"},{"Add":"; # (mul 10 (val (dig X)))"},{"Add":" %49 = zext i64 %48 to i128"},{"Add":" %50 = mul i128 10, %49"},{"Add":" %51 = lshr i128 %50, 64"},{"Add":" %52 = trunc i128 %51 to i64"},{"Add":" %53 = trunc i128 %50 to i64"},{"Add":"; # (add (mul 10 (val (dig X))) Hi)"},{"Add":" %54 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %53, i64 %45)"},{"Add":" %55 = extractvalue {i64, i1} %54, 1"},{"Add":" %56 = extractvalue {i64, i1} %54, 0"},{"Add":"; # (+ @@@ @@)"},{"Add":" %57 = zext i1 %55 to i64"},{"Add":" %58 = add i64 %52, %57"},{"Add":" br label %$8"},{"Add":"$10:"},{"Add":" %59 = phi i64 [%29, %$14] ; # X"},{"Add":" %60 = phi i64 [%30, %$14] ; # Lo"},{"Add":" %61 = phi i64 [%31, %$14] ; # Hi"},{"Add":" %62 = phi i64 [%41, %$14] ; # ->"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %63 = phi i64 [%10, %$7], [%0, %$10] ; # ->"},{"Add":" ret i64 %63"},{"Add":"}"},{"Add":""},{"Add":"define i64 @shlu(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (if (cnt? N) (let X (add N N) (if @@ (boxNum (shr N 3)) (x| X 6))..."},{"Add":"; # (cnt? N)"},{"Add":" %1 = and i64 %0, 2"},{"Add":" %2 = icmp ne i64 %1, 0"},{"Add":" br i1 %2, label %$2, label %$3"},{"Add":"$2:"},{"Add":"; # (let X (add N N) (if @@ (boxNum (shr N 3)) (x| X 6)))"},{"Add":"; # (add N N)"},{"Add":" %3 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %0, i64 %0)"},{"Add":" %4 = extractvalue {i64, i1} %3, 1"},{"Add":" %5 = extractvalue {i64, i1} %3, 0"},{"Add":"; # (if @@ (boxNum (shr N 3)) (x| X 6))"},{"Add":" br i1 %4, label %$5, label %$6"},{"Add":"$5:"},{"Add":"; # (shr N 3)"},{"Add":" %6 = lshr i64 %0, 3"},{"Add":"; # (boxNum (shr N 3))"},{"Add":" %7 = call i64 @boxNum(i64 %6)"},{"Add":" br label %$7"},{"Add":"$6:"},{"Add":"; # (x| X 6)"},{"Add":" %8 = xor i64 %5, 6"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %9 = phi i64 [%7, %$5], [%8, %$6] ; # ->"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":"; # (let (A (val (dig N)) X (boxNum (shl A 1)) Y (val (big N)) R (sav..."},{"Add":"; # (dig N)"},{"Add":" %10 = add i64 %0, -4"},{"Add":"; # (val (dig N))"},{"Add":" %11 = inttoptr i64 %10 to i64*"},{"Add":" %12 = load i64, i64* %11"},{"Add":"; # (shl A 1)"},{"Add":" %13 = shl i64 %12, 1"},{"Add":"; # (boxNum (shl A 1))"},{"Add":" %14 = call i64 @boxNum(i64 %13)"},{"Add":"; # (big N)"},{"Add":" %15 = add i64 %0, 4"},{"Add":"; # (val (big N))"},{"Add":" %16 = inttoptr i64 %15 to i64*"},{"Add":" %17 = load i64, i64* %16"},{"Add":"; # (save X)"},{"Add":" %18 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %19 = load i64, i64* %18"},{"Add":" %20 = alloca i64, i64 2, align 16"},{"Add":" %21 = ptrtoint i64* %20 to i64"},{"Add":" %22 = inttoptr i64 %21 to i64*"},{"Add":" store i64 %14, i64* %22"},{"Add":" %23 = add i64 %21, 8"},{"Add":" %24 = inttoptr i64 %23 to i64*"},{"Add":" store i64 %19, i64* %24"},{"Add":" %25 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %21, i64* %25"},{"Add":"; # (while (big? Y) (let B (val (dig Y)) (setq X (set (big X) (boxNum..."},{"Add":" br label %$8"},{"Add":"$8:"},{"Add":" %26 = phi i64 [%12, %$3], [%36, %$9] ; # A"},{"Add":" %27 = phi i64 [%14, %$3], [%41, %$9] ; # X"},{"Add":" %28 = phi i64 [%17, %$3], [%45, %$9] ; # Y"},{"Add":"; # (big? Y)"},{"Add":" %29 = and i64 %28, 4"},{"Add":" %30 = icmp ne i64 %29, 0"},{"Add":" br i1 %30, label %$9, label %$10"},{"Add":"$9:"},{"Add":" %31 = phi i64 [%26, %$8] ; # A"},{"Add":" %32 = phi i64 [%27, %$8] ; # X"},{"Add":" %33 = phi i64 [%28, %$8] ; # Y"},{"Add":"; # (let B (val (dig Y)) (setq X (set (big X) (boxNum (| (shl B 1) (s..."},{"Add":"; # (dig Y)"},{"Add":" %34 = add i64 %33, -4"},{"Add":"; # (val (dig Y))"},{"Add":" %35 = inttoptr i64 %34 to i64*"},{"Add":" %36 = load i64, i64* %35"},{"Add":"; # (set (big X) (boxNum (| (shl B 1) (shl 0 A 1))))"},{"Add":"; # (big X)"},{"Add":" %37 = add i64 %32, 4"},{"Add":"; # (shl B 1)"},{"Add":" %38 = shl i64 %36, 1"},{"Add":"; # (shl 0 A 1)"},{"Add":" %39 = call i64 @llvm.fshl.i64(i64 0, i64 %31, i64 1)"},{"Add":"; # (| (shl B 1) (shl 0 A 1))"},{"Add":" %40 = or i64 %38, %39"},{"Add":"; # (boxNum (| (shl B 1) (shl 0 A 1)))"},{"Add":" %41 = call i64 @boxNum(i64 %40)"},{"Add":" %42 = inttoptr i64 %37 to i64*"},{"Add":" store i64 %41, i64* %42"},{"Add":"; # (big Y)"},{"Add":" %43 = add i64 %33, 4"},{"Add":"; # (val (big Y))"},{"Add":" %44 = inttoptr i64 %43 to i64*"},{"Add":" %45 = load i64, i64* %44"},{"Add":" br label %$8"},{"Add":"$10:"},{"Add":" %46 = phi i64 [%26, %$8] ; # A"},{"Add":" %47 = phi i64 [%27, %$8] ; # X"},{"Add":" %48 = phi i64 [%28, %$8] ; # Y"},{"Add":"; # (set (big X) (box64 (| (shl (int Y) 1) (shl 0 A 1))))"},{"Add":"; # (big X)"},{"Add":" %49 = add i64 %47, 4"},{"Add":"; # (int Y)"},{"Add":" %50 = lshr i64 %48, 4"},{"Add":"; # (shl (int Y) 1)"},{"Add":" %51 = shl i64 %50, 1"},{"Add":"; # (shl 0 A 1)"},{"Add":" %52 = call i64 @llvm.fshl.i64(i64 0, i64 %46, i64 1)"},{"Add":"; # (| (shl (int Y) 1) (shl 0 A 1))"},{"Add":" %53 = or i64 %51, %52"},{"Add":"; # (box64 (| (shl (int Y) 1) (shl 0 A 1)))"},{"Add":" %54 = and i64 %53, 17293822569102704640"},{"Add":" %55 = icmp ne i64 %54, 0"},{"Add":" br i1 %55, label %$11, label %$12"},{"Add":"$11:"},{"Add":" %56 = call i64 @boxNum(i64 %53)"},{"Add":" br label %$13"},{"Add":"$12:"},{"Add":" %57 = shl i64 %53, 4"},{"Add":" %58 = or i64 %57, 2"},{"Add":" br label %$13"},{"Add":"$13:"},{"Add":" %59 = phi i64 [%56, %$11], [%58, %$12] ; # ->"},{"Add":" %60 = inttoptr i64 %49 to i64*"},{"Add":" store i64 %59, i64* %60"},{"Add":"; # (drop *Safe)"},{"Add":" %61 = inttoptr i64 %21 to i64*"},{"Add":" %62 = getelementptr i64, i64* %61, i32 1"},{"Add":" %63 = load i64, i64* %62"},{"Add":" %64 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %63, i64* %64"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %65 = phi i64 [%9, %$7], [%14, %$13] ; # ->"},{"Add":" ret i64 %65"},{"Add":"}"},{"Add":""},{"Add":"define i64 @shru(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (if (cnt? N) (| (& (shr N 1) -10) 2) (let A (shr (val (dig N)) 1)..."},{"Add":"; # (cnt? N)"},{"Add":" %1 = and i64 %0, 2"},{"Add":" %2 = icmp ne i64 %1, 0"},{"Add":" br i1 %2, label %$2, label %$3"},{"Add":"$2:"},{"Add":" %3 = phi i64 [%0, %$1] ; # N"},{"Add":"; # (shr N 1)"},{"Add":" %4 = lshr i64 %3, 1"},{"Add":"; # (& (shr N 1) -10)"},{"Add":" %5 = and i64 %4, -10"},{"Add":"; # (| (& (shr N 1) -10) 2)"},{"Add":" %6 = or i64 %5, 2"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":" %7 = phi i64 [%0, %$1] ; # N"},{"Add":"; # (let A (shr (val (dig N)) 1) (if (big? (setq N (val (big N)))) (l..."},{"Add":"; # (dig N)"},{"Add":" %8 = add i64 %7, -4"},{"Add":"; # (val (dig N))"},{"Add":" %9 = inttoptr i64 %8 to i64*"},{"Add":" %10 = load i64, i64* %9"},{"Add":"; # (shr (val (dig N)) 1)"},{"Add":" %11 = lshr i64 %10, 1"},{"Add":"; # (if (big? (setq N (val (big N)))) (let (B (val (dig N)) P (boxNum..."},{"Add":"; # (big N)"},{"Add":" %12 = add i64 %7, 4"},{"Add":"; # (val (big N))"},{"Add":" %13 = inttoptr i64 %12 to i64*"},{"Add":" %14 = load i64, i64* %13"},{"Add":"; # (big? (setq N (val (big N))))"},{"Add":" %15 = and i64 %14, 4"},{"Add":" %16 = icmp ne i64 %15, 0"},{"Add":" br i1 %16, label %$5, label %$6"},{"Add":"$5:"},{"Add":" %17 = phi i64 [%14, %$3] ; # N"},{"Add":" %18 = phi i64 [%11, %$3] ; # A"},{"Add":"; # (let (B (val (dig N)) P (boxNum (| (shr B 0 1) A)) R (save P)) (l..."},{"Add":"; # (dig N)"},{"Add":" %19 = add i64 %17, -4"},{"Add":"; # (val (dig N))"},{"Add":" %20 = inttoptr i64 %19 to i64*"},{"Add":" %21 = load i64, i64* %20"},{"Add":"; # (shr B 0 1)"},{"Add":" %22 = call i64 @llvm.fshr.i64(i64 %21, i64 0, i64 1)"},{"Add":"; # (| (shr B 0 1) A)"},{"Add":" %23 = or i64 %22, %18"},{"Add":"; # (boxNum (| (shr B 0 1) A))"},{"Add":" %24 = call i64 @boxNum(i64 %23)"},{"Add":"; # (save P)"},{"Add":" %25 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %26 = load i64, i64* %25"},{"Add":" %27 = alloca i64, i64 2, align 16"},{"Add":" %28 = ptrtoint i64* %27 to i64"},{"Add":" %29 = inttoptr i64 %28 to i64*"},{"Add":" store i64 %24, i64* %29"},{"Add":" %30 = add i64 %28, 8"},{"Add":" %31 = inttoptr i64 %30 to i64*"},{"Add":" store i64 %26, i64* %31"},{"Add":" %32 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %28, i64* %32"},{"Add":"; # (loop (setq A (shr B 1)) (? (cnt? (setq N (val (big N))))) (setq ..."},{"Add":" br label %$8"},{"Add":"$8:"},{"Add":" %33 = phi i64 [%17, %$5], [%43, %$9] ; # N"},{"Add":" %34 = phi i64 [%18, %$5], [%44, %$9] ; # A"},{"Add":" %35 = phi i64 [%21, %$5], [%49, %$9] ; # B"},{"Add":" %36 = phi i64 [%24, %$5], [%53, %$9] ; # P"},{"Add":"; # (shr B 1)"},{"Add":" %37 = lshr i64 %35, 1"},{"Add":"; # (? (cnt? (setq N (val (big N)))))"},{"Add":"; # (big N)"},{"Add":" %38 = add i64 %33, 4"},{"Add":"; # (val (big N))"},{"Add":" %39 = inttoptr i64 %38 to i64*"},{"Add":" %40 = load i64, i64* %39"},{"Add":"; # (cnt? (setq N (val (big N))))"},{"Add":" %41 = and i64 %40, 2"},{"Add":" %42 = icmp ne i64 %41, 0"},{"Add":" br i1 %42, label %$10, label %$9"},{"Add":"$9:"},{"Add":" %43 = phi i64 [%40, %$8] ; # N"},{"Add":" %44 = phi i64 [%37, %$8] ; # A"},{"Add":" %45 = phi i64 [%35, %$8] ; # B"},{"Add":" %46 = phi i64 [%36, %$8] ; # P"},{"Add":"; # (dig N)"},{"Add":" %47 = add i64 %43, -4"},{"Add":"; # (val (dig N))"},{"Add":" %48 = inttoptr i64 %47 to i64*"},{"Add":" %49 = load i64, i64* %48"},{"Add":"; # (set (big P) (boxNum (| (shr B 0 1) A)))"},{"Add":"; # (big P)"},{"Add":" %50 = add i64 %46, 4"},{"Add":"; # (shr B 0 1)"},{"Add":" %51 = call i64 @llvm.fshr.i64(i64 %49, i64 0, i64 1)"},{"Add":"; # (| (shr B 0 1) A)"},{"Add":" %52 = or i64 %51, %44"},{"Add":"; # (boxNum (| (shr B 0 1) A))"},{"Add":" %53 = call i64 @boxNum(i64 %52)"},{"Add":" %54 = inttoptr i64 %50 to i64*"},{"Add":" store i64 %53, i64* %54"},{"Add":" br label %$8"},{"Add":"$10:"},{"Add":" %55 = phi i64 [%40, %$8] ; # N"},{"Add":" %56 = phi i64 [%37, %$8] ; # A"},{"Add":" %57 = phi i64 [%35, %$8] ; # B"},{"Add":" %58 = phi i64 [%36, %$8] ; # P"},{"Add":" %59 = phi i64 [0, %$8] ; # ->"},{"Add":"; # (int N)"},{"Add":" %60 = lshr i64 %55, 4"},{"Add":"; # (shr N 0 1)"},{"Add":" %61 = call i64 @llvm.fshr.i64(i64 %60, i64 0, i64 1)"},{"Add":"; # (| (shr N 0 1) A)"},{"Add":" %62 = or i64 %61, %56"},{"Add":"; # (set (big P) (ifn (or (setq N (shr N 1)) (& A (hex \"F000000000000..."},{"Add":"; # (big P)"},{"Add":" %63 = add i64 %58, 4"},{"Add":"; # (ifn (or (setq N (shr N 1)) (& A (hex \"F000000000000000\"))) (cnt ..."},{"Add":"; # (or (setq N (shr N 1)) (& A (hex \"F000000000000000\")))"},{"Add":"; # (shr N 1)"},{"Add":" %64 = lshr i64 %60, 1"},{"Add":" %65 = icmp ne i64 %64, 0"},{"Add":" br i1 %65, label %$11, label %$12"},{"Add":"$12:"},{"Add":" %66 = phi i64 [%64, %$10] ; # N"},{"Add":" %67 = phi i64 [%62, %$10] ; # A"},{"Add":" %68 = phi i64 [%57, %$10] ; # B"},{"Add":" %69 = phi i64 [%58, %$10] ; # P"},{"Add":"; # (& A (hex \"F000000000000000\"))"},{"Add":" %70 = and i64 %67, 17293822569102704640"},{"Add":" %71 = icmp ne i64 %70, 0"},{"Add":" br label %$11"},{"Add":"$11:"},{"Add":" %72 = phi i64 [%64, %$10], [%66, %$12] ; # N"},{"Add":" %73 = phi i64 [%62, %$10], [%67, %$12] ; # A"},{"Add":" %74 = phi i64 [%57, %$10], [%68, %$12] ; # B"},{"Add":" %75 = phi i64 [%58, %$10], [%69, %$12] ; # P"},{"Add":" %76 = phi i1 [1, %$10], [%71, %$12] ; # ->"},{"Add":" br i1 %76, label %$14, label %$13"},{"Add":"$13:"},{"Add":" %77 = phi i64 [%72, %$11] ; # N"},{"Add":" %78 = phi i64 [%73, %$11] ; # A"},{"Add":" %79 = phi i64 [%74, %$11] ; # B"},{"Add":" %80 = phi i64 [%75, %$11] ; # P"},{"Add":"; # (cnt A)"},{"Add":" %81 = shl i64 %78, 4"},{"Add":" %82 = or i64 %81, 2"},{"Add":" br label %$15"},{"Add":"$14:"},{"Add":" %83 = phi i64 [%72, %$11] ; # N"},{"Add":" %84 = phi i64 [%73, %$11] ; # A"},{"Add":" %85 = phi i64 [%74, %$11] ; # B"},{"Add":" %86 = phi i64 [%75, %$11] ; # P"},{"Add":"; # (prog1 (boxNum A) (set (big @) (cnt N)))"},{"Add":"; # (boxNum A)"},{"Add":" %87 = call i64 @boxNum(i64 %84)"},{"Add":"; # (set (big @) (cnt N))"},{"Add":"; # (big @)"},{"Add":" %88 = add i64 %87, 4"},{"Add":"; # (cnt N)"},{"Add":" %89 = shl i64 %83, 4"},{"Add":" %90 = or i64 %89, 2"},{"Add":" %91 = inttoptr i64 %88 to i64*"},{"Add":" store i64 %90, i64* %91"},{"Add":" br label %$15"},{"Add":"$15:"},{"Add":" %92 = phi i64 [%77, %$13], [%83, %$14] ; # N"},{"Add":" %93 = phi i64 [%78, %$13], [%84, %$14] ; # A"},{"Add":" %94 = phi i64 [%79, %$13], [%85, %$14] ; # B"},{"Add":" %95 = phi i64 [%80, %$13], [%86, %$14] ; # P"},{"Add":" %96 = phi i64 [%82, %$13], [%87, %$14] ; # ->"},{"Add":" %97 = inttoptr i64 %63 to i64*"},{"Add":" store i64 %96, i64* %97"},{"Add":"; # (drop *Safe)"},{"Add":" %98 = inttoptr i64 %28 to i64*"},{"Add":" %99 = getelementptr i64, i64* %98, i32 1"},{"Add":" %100 = load i64, i64* %99"},{"Add":" %101 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %100, i64* %101"},{"Add":" br label %$7"},{"Add":"$6:"},{"Add":" %102 = phi i64 [%14, %$3] ; # N"},{"Add":" %103 = phi i64 [%11, %$3] ; # A"},{"Add":"; # (int N)"},{"Add":" %104 = lshr i64 %102, 4"},{"Add":"; # (shr N 0 1)"},{"Add":" %105 = call i64 @llvm.fshr.i64(i64 %104, i64 0, i64 1)"},{"Add":"; # (| (shr N 0 1) A)"},{"Add":" %106 = or i64 %105, %103"},{"Add":"; # (ifn (or (setq N (shr N 1)) (& A (hex \"F000000000000000\"))) (cnt ..."},{"Add":"; # (or (setq N (shr N 1)) (& A (hex \"F000000000000000\")))"},{"Add":"; # (shr N 1)"},{"Add":" %107 = lshr i64 %104, 1"},{"Add":" %108 = icmp ne i64 %107, 0"},{"Add":" br i1 %108, label %$16, label %$17"},{"Add":"$17:"},{"Add":" %109 = phi i64 [%107, %$6] ; # N"},{"Add":" %110 = phi i64 [%106, %$6] ; # A"},{"Add":"; # (& A (hex \"F000000000000000\"))"},{"Add":" %111 = and i64 %110, 17293822569102704640"},{"Add":" %112 = icmp ne i64 %111, 0"},{"Add":" br label %$16"},{"Add":"$16:"},{"Add":" %113 = phi i64 [%107, %$6], [%109, %$17] ; # N"},{"Add":" %114 = phi i64 [%106, %$6], [%110, %$17] ; # A"},{"Add":" %115 = phi i1 [1, %$6], [%112, %$17] ; # ->"},{"Add":" br i1 %115, label %$19, label %$18"},{"Add":"$18:"},{"Add":" %116 = phi i64 [%113, %$16] ; # N"},{"Add":" %117 = phi i64 [%114, %$16] ; # A"},{"Add":"; # (cnt A)"},{"Add":" %118 = shl i64 %117, 4"},{"Add":" %119 = or i64 %118, 2"},{"Add":" br label %$20"},{"Add":"$19:"},{"Add":" %120 = phi i64 [%113, %$16] ; # N"},{"Add":" %121 = phi i64 [%114, %$16] ; # A"},{"Add":"; # (prog1 (boxNum A) (set (big @) (cnt N)))"},{"Add":"; # (boxNum A)"},{"Add":" %122 = call i64 @boxNum(i64 %121)"},{"Add":"; # (set (big @) (cnt N))"},{"Add":"; # (big @)"},{"Add":" %123 = add i64 %122, 4"},{"Add":"; # (cnt N)"},{"Add":" %124 = shl i64 %120, 4"},{"Add":" %125 = or i64 %124, 2"},{"Add":" %126 = inttoptr i64 %123 to i64*"},{"Add":" store i64 %125, i64* %126"},{"Add":" br label %$20"},{"Add":"$20:"},{"Add":" %127 = phi i64 [%116, %$18], [%120, %$19] ; # N"},{"Add":" %128 = phi i64 [%117, %$18], [%121, %$19] ; # A"},{"Add":" %129 = phi i64 [%119, %$18], [%122, %$19] ; # ->"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %130 = phi i64 [%92, %$15], [%127, %$20] ; # N"},{"Add":" %131 = phi i64 [%93, %$15], [%128, %$20] ; # A"},{"Add":" %132 = phi i64 [%24, %$15], [%129, %$20] ; # ->"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %133 = phi i64 [%3, %$2], [%130, %$7] ; # N"},{"Add":" %134 = phi i64 [%6, %$2], [%132, %$7] ; # ->"},{"Add":" ret i64 %134"},{"Add":"}"},{"Add":""},{"Add":"define i64 @andu(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (cond ((cnt? A) (& A (if (cnt? B) B (cnt (val (dig B)))))) ((cnt?..."},{"Add":"; # (cnt? A)"},{"Add":" %2 = and i64 %0, 2"},{"Add":" %3 = icmp ne i64 %2, 0"},{"Add":" br i1 %3, label %$4, label %$3"},{"Add":"$4:"},{"Add":" %4 = phi i64 [%0, %$1] ; # A"},{"Add":" %5 = phi i64 [%1, %$1] ; # B"},{"Add":"; # (if (cnt? B) B (cnt (val (dig B))))"},{"Add":"; # (cnt? B)"},{"Add":" %6 = and i64 %5, 2"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$5, label %$6"},{"Add":"$5:"},{"Add":" %8 = phi i64 [%4, %$4] ; # A"},{"Add":" %9 = phi i64 [%5, %$4] ; # B"},{"Add":" br label %$7"},{"Add":"$6:"},{"Add":" %10 = phi i64 [%4, %$4] ; # A"},{"Add":" %11 = phi i64 [%5, %$4] ; # B"},{"Add":"; # (dig B)"},{"Add":" %12 = add i64 %11, -4"},{"Add":"; # (val (dig B))"},{"Add":" %13 = inttoptr i64 %12 to i64*"},{"Add":" %14 = load i64, i64* %13"},{"Add":"; # (cnt (val (dig B)))"},{"Add":" %15 = shl i64 %14, 4"},{"Add":" %16 = or i64 %15, 2"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %17 = phi i64 [%8, %$5], [%10, %$6] ; # A"},{"Add":" %18 = phi i64 [%9, %$5], [%11, %$6] ; # B"},{"Add":" %19 = phi i64 [%9, %$5], [%16, %$6] ; # ->"},{"Add":"; # (& A (if (cnt? B) B (cnt (val (dig B)))))"},{"Add":" %20 = and i64 %4, %19"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %21 = phi i64 [%0, %$1] ; # A"},{"Add":" %22 = phi i64 [%1, %$1] ; # B"},{"Add":"; # (cnt? B)"},{"Add":" %23 = and i64 %22, 2"},{"Add":" %24 = icmp ne i64 %23, 0"},{"Add":" br i1 %24, label %$9, label %$8"},{"Add":"$9:"},{"Add":" %25 = phi i64 [%21, %$3] ; # A"},{"Add":" %26 = phi i64 [%22, %$3] ; # B"},{"Add":"; # (dig A)"},{"Add":" %27 = add i64 %25, -4"},{"Add":"; # (val (dig A))"},{"Add":" %28 = inttoptr i64 %27 to i64*"},{"Add":" %29 = load i64, i64* %28"},{"Add":"; # (cnt (val (dig A)))"},{"Add":" %30 = shl i64 %29, 4"},{"Add":" %31 = or i64 %30, 2"},{"Add":"; # (& B (cnt (val (dig A))))"},{"Add":" %32 = and i64 %26, %31"},{"Add":" br label %$2"},{"Add":"$8:"},{"Add":" %33 = phi i64 [%21, %$3] ; # A"},{"Add":" %34 = phi i64 [%22, %$3] ; # B"},{"Add":"; # (let (P (boxNum (& (val (dig A)) (val (dig B)))) R (save P)) (loo..."},{"Add":"; # (dig A)"},{"Add":" %35 = add i64 %33, -4"},{"Add":"; # (val (dig A))"},{"Add":" %36 = inttoptr i64 %35 to i64*"},{"Add":" %37 = load i64, i64* %36"},{"Add":"; # (dig B)"},{"Add":" %38 = add i64 %34, -4"},{"Add":"; # (val (dig B))"},{"Add":" %39 = inttoptr i64 %38 to i64*"},{"Add":" %40 = load i64, i64* %39"},{"Add":"; # (& (val (dig A)) (val (dig B)))"},{"Add":" %41 = and i64 %37, %40"},{"Add":"; # (boxNum (& (val (dig A)) (val (dig B))))"},{"Add":" %42 = call i64 @boxNum(i64 %41)"},{"Add":"; # (save P)"},{"Add":" %43 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %44 = load i64, i64* %43"},{"Add":" %45 = alloca i64, i64 2, align 16"},{"Add":" %46 = ptrtoint i64* %45 to i64"},{"Add":" %47 = inttoptr i64 %46 to i64*"},{"Add":" store i64 %42, i64* %47"},{"Add":" %48 = add i64 %46, 8"},{"Add":" %49 = inttoptr i64 %48 to i64*"},{"Add":" store i64 %44, i64* %49"},{"Add":" %50 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %46, i64* %50"},{"Add":"; # (loop (setq A (val (big A)) B (val (big B))) (? (cnt? A) (set (bi..."},{"Add":" br label %$10"},{"Add":"$10:"},{"Add":" %51 = phi i64 [%33, %$8], [%101, %$17] ; # A"},{"Add":" %52 = phi i64 [%34, %$8], [%102, %$17] ; # B"},{"Add":" %53 = phi i64 [%42, %$8], [%112, %$17] ; # P"},{"Add":"; # (big A)"},{"Add":" %54 = add i64 %51, 4"},{"Add":"; # (val (big A))"},{"Add":" %55 = inttoptr i64 %54 to i64*"},{"Add":" %56 = load i64, i64* %55"},{"Add":"; # (big B)"},{"Add":" %57 = add i64 %52, 4"},{"Add":"; # (val (big B))"},{"Add":" %58 = inttoptr i64 %57 to i64*"},{"Add":" %59 = load i64, i64* %58"},{"Add":"; # (? (cnt? A) (set (big P) (& A (if (cnt? B) B (cnt (val (dig B))))..."},{"Add":"; # (cnt? A)"},{"Add":" %60 = and i64 %56, 2"},{"Add":" %61 = icmp ne i64 %60, 0"},{"Add":" br i1 %61, label %$13, label %$11"},{"Add":"$13:"},{"Add":" %62 = phi i64 [%56, %$10] ; # A"},{"Add":" %63 = phi i64 [%59, %$10] ; # B"},{"Add":" %64 = phi i64 [%53, %$10] ; # P"},{"Add":"; # (set (big P) (& A (if (cnt? B) B (cnt (val (dig B))))))"},{"Add":"; # (big P)"},{"Add":" %65 = add i64 %64, 4"},{"Add":"; # (if (cnt? B) B (cnt (val (dig B))))"},{"Add":"; # (cnt? B)"},{"Add":" %66 = and i64 %63, 2"},{"Add":" %67 = icmp ne i64 %66, 0"},{"Add":" br i1 %67, label %$14, label %$15"},{"Add":"$14:"},{"Add":" %68 = phi i64 [%62, %$13] ; # A"},{"Add":" %69 = phi i64 [%63, %$13] ; # B"},{"Add":" %70 = phi i64 [%64, %$13] ; # P"},{"Add":" br label %$16"},{"Add":"$15:"},{"Add":" %71 = phi i64 [%62, %$13] ; # A"},{"Add":" %72 = phi i64 [%63, %$13] ; # B"},{"Add":" %73 = phi i64 [%64, %$13] ; # P"},{"Add":"; # (dig B)"},{"Add":" %74 = add i64 %72, -4"},{"Add":"; # (val (dig B))"},{"Add":" %75 = inttoptr i64 %74 to i64*"},{"Add":" %76 = load i64, i64* %75"},{"Add":"; # (cnt (val (dig B)))"},{"Add":" %77 = shl i64 %76, 4"},{"Add":" %78 = or i64 %77, 2"},{"Add":" br label %$16"},{"Add":"$16:"},{"Add":" %79 = phi i64 [%68, %$14], [%71, %$15] ; # A"},{"Add":" %80 = phi i64 [%69, %$14], [%72, %$15] ; # B"},{"Add":" %81 = phi i64 [%70, %$14], [%73, %$15] ; # P"},{"Add":" %82 = phi i64 [%69, %$14], [%78, %$15] ; # ->"},{"Add":"; # (& A (if (cnt? B) B (cnt (val (dig B)))))"},{"Add":" %83 = and i64 %62, %82"},{"Add":" %84 = inttoptr i64 %65 to i64*"},{"Add":" store i64 %83, i64* %84"},{"Add":" br label %$12"},{"Add":"$11:"},{"Add":" %85 = phi i64 [%56, %$10] ; # A"},{"Add":" %86 = phi i64 [%59, %$10] ; # B"},{"Add":" %87 = phi i64 [%53, %$10] ; # P"},{"Add":"; # (? (cnt? B) (set (big P) (& B (cnt (val (dig A))))))"},{"Add":"; # (cnt? B)"},{"Add":" %88 = and i64 %86, 2"},{"Add":" %89 = icmp ne i64 %88, 0"},{"Add":" br i1 %89, label %$18, label %$17"},{"Add":"$18:"},{"Add":" %90 = phi i64 [%85, %$11] ; # A"},{"Add":" %91 = phi i64 [%86, %$11] ; # B"},{"Add":" %92 = phi i64 [%87, %$11] ; # P"},{"Add":"; # (set (big P) (& B (cnt (val (dig A)))))"},{"Add":"; # (big P)"},{"Add":" %93 = add i64 %92, 4"},{"Add":"; # (dig A)"},{"Add":" %94 = add i64 %90, -4"},{"Add":"; # (val (dig A))"},{"Add":" %95 = inttoptr i64 %94 to i64*"},{"Add":" %96 = load i64, i64* %95"},{"Add":"; # (cnt (val (dig A)))"},{"Add":" %97 = shl i64 %96, 4"},{"Add":" %98 = or i64 %97, 2"},{"Add":"; # (& B (cnt (val (dig A))))"},{"Add":" %99 = and i64 %91, %98"},{"Add":" %100 = inttoptr i64 %93 to i64*"},{"Add":" store i64 %99, i64* %100"},{"Add":" br label %$12"},{"Add":"$17:"},{"Add":" %101 = phi i64 [%85, %$11] ; # A"},{"Add":" %102 = phi i64 [%86, %$11] ; # B"},{"Add":" %103 = phi i64 [%87, %$11] ; # P"},{"Add":"; # (set (big P) (boxNum (& (val (dig A)) (val (dig B)))))"},{"Add":"; # (big P)"},{"Add":" %104 = add i64 %103, 4"},{"Add":"; # (dig A)"},{"Add":" %105 = add i64 %101, -4"},{"Add":"; # (val (dig A))"},{"Add":" %106 = inttoptr i64 %105 to i64*"},{"Add":" %107 = load i64, i64* %106"},{"Add":"; # (dig B)"},{"Add":" %108 = add i64 %102, -4"},{"Add":"; # (val (dig B))"},{"Add":" %109 = inttoptr i64 %108 to i64*"},{"Add":" %110 = load i64, i64* %109"},{"Add":"; # (& (val (dig A)) (val (dig B)))"},{"Add":" %111 = and i64 %107, %110"},{"Add":"; # (boxNum (& (val (dig A)) (val (dig B))))"},{"Add":" %112 = call i64 @boxNum(i64 %111)"},{"Add":" %113 = inttoptr i64 %104 to i64*"},{"Add":" store i64 %112, i64* %113"},{"Add":" br label %$10"},{"Add":"$12:"},{"Add":" %114 = phi i64 [%79, %$16], [%90, %$18] ; # A"},{"Add":" %115 = phi i64 [%80, %$16], [%91, %$18] ; # B"},{"Add":" %116 = phi i64 [%81, %$16], [%92, %$18] ; # P"},{"Add":" %117 = phi i64 [%83, %$16], [%99, %$18] ; # ->"},{"Add":"; # (zapZero R)"},{"Add":" %118 = call i64 @zapZero(i64 %42)"},{"Add":"; # (drop *Safe)"},{"Add":" %119 = inttoptr i64 %46 to i64*"},{"Add":" %120 = getelementptr i64, i64* %119, i32 1"},{"Add":" %121 = load i64, i64* %120"},{"Add":" %122 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %121, i64* %122"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %123 = phi i64 [%17, %$7], [%25, %$9], [%114, %$12] ; # A"},{"Add":" %124 = phi i64 [%18, %$7], [%26, %$9], [%115, %$12] ; # B"},{"Add":" %125 = phi i64 [%20, %$7], [%32, %$9], [%118, %$12] ; # ->"},{"Add":" ret i64 %125"},{"Add":"}"},{"Add":""},{"Add":"define i64 @oru(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (cond ((cnt? A) (if (cnt? B) (| A B) (consNum (| (int A) (val (di..."},{"Add":"; # (cnt? A)"},{"Add":" %2 = and i64 %0, 2"},{"Add":" %3 = icmp ne i64 %2, 0"},{"Add":" br i1 %3, label %$4, label %$3"},{"Add":"$4:"},{"Add":" %4 = phi i64 [%0, %$1] ; # A"},{"Add":" %5 = phi i64 [%1, %$1] ; # B"},{"Add":"; # (if (cnt? B) (| A B) (consNum (| (int A) (val (dig B))) (val (big..."},{"Add":"; # (cnt? B)"},{"Add":" %6 = and i64 %5, 2"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$5, label %$6"},{"Add":"$5:"},{"Add":" %8 = phi i64 [%4, %$4] ; # A"},{"Add":" %9 = phi i64 [%5, %$4] ; # B"},{"Add":"; # (| A B)"},{"Add":" %10 = or i64 %8, %9"},{"Add":" br label %$7"},{"Add":"$6:"},{"Add":" %11 = phi i64 [%4, %$4] ; # A"},{"Add":" %12 = phi i64 [%5, %$4] ; # B"},{"Add":"; # (int A)"},{"Add":" %13 = lshr i64 %11, 4"},{"Add":"; # (dig B)"},{"Add":" %14 = add i64 %12, -4"},{"Add":"; # (val (dig B))"},{"Add":" %15 = inttoptr i64 %14 to i64*"},{"Add":" %16 = load i64, i64* %15"},{"Add":"; # (| (int A) (val (dig B)))"},{"Add":" %17 = or i64 %13, %16"},{"Add":"; # (big B)"},{"Add":" %18 = add i64 %12, 4"},{"Add":"; # (val (big B))"},{"Add":" %19 = inttoptr i64 %18 to i64*"},{"Add":" %20 = load i64, i64* %19"},{"Add":"; # (consNum (| (int A) (val (dig B))) (val (big B)))"},{"Add":" %21 = call i64 @consNum(i64 %17, i64 %20)"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %22 = phi i64 [%8, %$5], [%11, %$6] ; # A"},{"Add":" %23 = phi i64 [%9, %$5], [%12, %$6] ; # B"},{"Add":" %24 = phi i64 [%10, %$5], [%21, %$6] ; # ->"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %25 = phi i64 [%0, %$1] ; # A"},{"Add":" %26 = phi i64 [%1, %$1] ; # B"},{"Add":"; # (cnt? B)"},{"Add":" %27 = and i64 %26, 2"},{"Add":" %28 = icmp ne i64 %27, 0"},{"Add":" br i1 %28, label %$9, label %$8"},{"Add":"$9:"},{"Add":" %29 = phi i64 [%25, %$3] ; # A"},{"Add":" %30 = phi i64 [%26, %$3] ; # B"},{"Add":"; # (int B)"},{"Add":" %31 = lshr i64 %30, 4"},{"Add":"; # (dig A)"},{"Add":" %32 = add i64 %29, -4"},{"Add":"; # (val (dig A))"},{"Add":" %33 = inttoptr i64 %32 to i64*"},{"Add":" %34 = load i64, i64* %33"},{"Add":"; # (| (int B) (val (dig A)))"},{"Add":" %35 = or i64 %31, %34"},{"Add":"; # (big A)"},{"Add":" %36 = add i64 %29, 4"},{"Add":"; # (val (big A))"},{"Add":" %37 = inttoptr i64 %36 to i64*"},{"Add":" %38 = load i64, i64* %37"},{"Add":"; # (consNum (| (int B) (val (dig A))) (val (big A)))"},{"Add":" %39 = call i64 @consNum(i64 %35, i64 %38)"},{"Add":" br label %$2"},{"Add":"$8:"},{"Add":" %40 = phi i64 [%25, %$3] ; # A"},{"Add":" %41 = phi i64 [%26, %$3] ; # B"},{"Add":"; # (let (P (boxNum (| (val (dig A)) (val (dig B)))) R (save P)) (loo..."},{"Add":"; # (dig A)"},{"Add":" %42 = add i64 %40, -4"},{"Add":"; # (val (dig A))"},{"Add":" %43 = inttoptr i64 %42 to i64*"},{"Add":" %44 = load i64, i64* %43"},{"Add":"; # (dig B)"},{"Add":" %45 = add i64 %41, -4"},{"Add":"; # (val (dig B))"},{"Add":" %46 = inttoptr i64 %45 to i64*"},{"Add":" %47 = load i64, i64* %46"},{"Add":"; # (| (val (dig A)) (val (dig B)))"},{"Add":" %48 = or i64 %44, %47"},{"Add":"; # (boxNum (| (val (dig A)) (val (dig B))))"},{"Add":" %49 = call i64 @boxNum(i64 %48)"},{"Add":"; # (save P)"},{"Add":" %50 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %51 = load i64, i64* %50"},{"Add":" %52 = alloca i64, i64 2, align 16"},{"Add":" %53 = ptrtoint i64* %52 to i64"},{"Add":" %54 = inttoptr i64 %53 to i64*"},{"Add":" store i64 %49, i64* %54"},{"Add":" %55 = add i64 %53, 8"},{"Add":" %56 = inttoptr i64 %55 to i64*"},{"Add":" store i64 %51, i64* %56"},{"Add":" %57 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %53, i64* %57"},{"Add":"; # (loop (setq A (val (big A)) B (val (big B))) (? (cnt? A) (set (bi..."},{"Add":" br label %$10"},{"Add":"$10:"},{"Add":" %58 = phi i64 [%40, %$8], [%115, %$17] ; # A"},{"Add":" %59 = phi i64 [%41, %$8], [%116, %$17] ; # B"},{"Add":" %60 = phi i64 [%49, %$8], [%126, %$17] ; # P"},{"Add":"; # (big A)"},{"Add":" %61 = add i64 %58, 4"},{"Add":"; # (val (big A))"},{"Add":" %62 = inttoptr i64 %61 to i64*"},{"Add":" %63 = load i64, i64* %62"},{"Add":"; # (big B)"},{"Add":" %64 = add i64 %59, 4"},{"Add":"; # (val (big B))"},{"Add":" %65 = inttoptr i64 %64 to i64*"},{"Add":" %66 = load i64, i64* %65"},{"Add":"; # (? (cnt? A) (set (big P) (if (cnt? B) (| A B) (consNum (| (int A)..."},{"Add":"; # (cnt? A)"},{"Add":" %67 = and i64 %63, 2"},{"Add":" %68 = icmp ne i64 %67, 0"},{"Add":" br i1 %68, label %$13, label %$11"},{"Add":"$13:"},{"Add":" %69 = phi i64 [%63, %$10] ; # A"},{"Add":" %70 = phi i64 [%66, %$10] ; # B"},{"Add":" %71 = phi i64 [%60, %$10] ; # P"},{"Add":"; # (set (big P) (if (cnt? B) (| A B) (consNum (| (int A) (val (dig B..."},{"Add":"; # (big P)"},{"Add":" %72 = add i64 %71, 4"},{"Add":"; # (if (cnt? B) (| A B) (consNum (| (int A) (val (dig B))) (val (big..."},{"Add":"; # (cnt? B)"},{"Add":" %73 = and i64 %70, 2"},{"Add":" %74 = icmp ne i64 %73, 0"},{"Add":" br i1 %74, label %$14, label %$15"},{"Add":"$14:"},{"Add":" %75 = phi i64 [%69, %$13] ; # A"},{"Add":" %76 = phi i64 [%70, %$13] ; # B"},{"Add":" %77 = phi i64 [%71, %$13] ; # P"},{"Add":"; # (| A B)"},{"Add":" %78 = or i64 %75, %76"},{"Add":" br label %$16"},{"Add":"$15:"},{"Add":" %79 = phi i64 [%69, %$13] ; # A"},{"Add":" %80 = phi i64 [%70, %$13] ; # B"},{"Add":" %81 = phi i64 [%71, %$13] ; # P"},{"Add":"; # (int A)"},{"Add":" %82 = lshr i64 %79, 4"},{"Add":"; # (dig B)"},{"Add":" %83 = add i64 %80, -4"},{"Add":"; # (val (dig B))"},{"Add":" %84 = inttoptr i64 %83 to i64*"},{"Add":" %85 = load i64, i64* %84"},{"Add":"; # (| (int A) (val (dig B)))"},{"Add":" %86 = or i64 %82, %85"},{"Add":"; # (big B)"},{"Add":" %87 = add i64 %80, 4"},{"Add":"; # (val (big B))"},{"Add":" %88 = inttoptr i64 %87 to i64*"},{"Add":" %89 = load i64, i64* %88"},{"Add":"; # (consNum (| (int A) (val (dig B))) (val (big B)))"},{"Add":" %90 = call i64 @consNum(i64 %86, i64 %89)"},{"Add":" br label %$16"},{"Add":"$16:"},{"Add":" %91 = phi i64 [%75, %$14], [%79, %$15] ; # A"},{"Add":" %92 = phi i64 [%76, %$14], [%80, %$15] ; # B"},{"Add":" %93 = phi i64 [%77, %$14], [%81, %$15] ; # P"},{"Add":" %94 = phi i64 [%78, %$14], [%90, %$15] ; # ->"},{"Add":" %95 = inttoptr i64 %72 to i64*"},{"Add":" store i64 %94, i64* %95"},{"Add":" br label %$12"},{"Add":"$11:"},{"Add":" %96 = phi i64 [%63, %$10] ; # A"},{"Add":" %97 = phi i64 [%66, %$10] ; # B"},{"Add":" %98 = phi i64 [%60, %$10] ; # P"},{"Add":"; # (? (cnt? B) (set (big P) (consNum (| (int B) (val (dig A))) (val ..."},{"Add":"; # (cnt? B)"},{"Add":" %99 = and i64 %97, 2"},{"Add":" %100 = icmp ne i64 %99, 0"},{"Add":" br i1 %100, label %$18, label %$17"},{"Add":"$18:"},{"Add":" %101 = phi i64 [%96, %$11] ; # A"},{"Add":" %102 = phi i64 [%97, %$11] ; # B"},{"Add":" %103 = phi i64 [%98, %$11] ; # P"},{"Add":"; # (set (big P) (consNum (| (int B) (val (dig A))) (val (big A))))"},{"Add":"; # (big P)"},{"Add":" %104 = add i64 %103, 4"},{"Add":"; # (int B)"},{"Add":" %105 = lshr i64 %102, 4"},{"Add":"; # (dig A)"},{"Add":" %106 = add i64 %101, -4"},{"Add":"; # (val (dig A))"},{"Add":" %107 = inttoptr i64 %106 to i64*"},{"Add":" %108 = load i64, i64* %107"},{"Add":"; # (| (int B) (val (dig A)))"},{"Add":" %109 = or i64 %105, %108"},{"Add":"; # (big A)"},{"Add":" %110 = add i64 %101, 4"},{"Add":"; # (val (big A))"},{"Add":" %111 = inttoptr i64 %110 to i64*"},{"Add":" %112 = load i64, i64* %111"},{"Add":"; # (consNum (| (int B) (val (dig A))) (val (big A)))"},{"Add":" %113 = call i64 @consNum(i64 %109, i64 %112)"},{"Add":" %114 = inttoptr i64 %104 to i64*"},{"Add":" store i64 %113, i64* %114"},{"Add":" br label %$12"},{"Add":"$17:"},{"Add":" %115 = phi i64 [%96, %$11] ; # A"},{"Add":" %116 = phi i64 [%97, %$11] ; # B"},{"Add":" %117 = phi i64 [%98, %$11] ; # P"},{"Add":"; # (set (big P) (boxNum (| (val (dig A)) (val (dig B)))))"},{"Add":"; # (big P)"},{"Add":" %118 = add i64 %117, 4"},{"Add":"; # (dig A)"},{"Add":" %119 = add i64 %115, -4"},{"Add":"; # (val (dig A))"},{"Add":" %120 = inttoptr i64 %119 to i64*"},{"Add":" %121 = load i64, i64* %120"},{"Add":"; # (dig B)"},{"Add":" %122 = add i64 %116, -4"},{"Add":"; # (val (dig B))"},{"Add":" %123 = inttoptr i64 %122 to i64*"},{"Add":" %124 = load i64, i64* %123"},{"Add":"; # (| (val (dig A)) (val (dig B)))"},{"Add":" %125 = or i64 %121, %124"},{"Add":"; # (boxNum (| (val (dig A)) (val (dig B))))"},{"Add":" %126 = call i64 @boxNum(i64 %125)"},{"Add":" %127 = inttoptr i64 %118 to i64*"},{"Add":" store i64 %126, i64* %127"},{"Add":" br label %$10"},{"Add":"$12:"},{"Add":" %128 = phi i64 [%91, %$16], [%101, %$18] ; # A"},{"Add":" %129 = phi i64 [%92, %$16], [%102, %$18] ; # B"},{"Add":" %130 = phi i64 [%93, %$16], [%103, %$18] ; # P"},{"Add":" %131 = phi i64 [%94, %$16], [%113, %$18] ; # ->"},{"Add":"; # (drop *Safe)"},{"Add":" %132 = inttoptr i64 %53 to i64*"},{"Add":" %133 = getelementptr i64, i64* %132, i32 1"},{"Add":" %134 = load i64, i64* %133"},{"Add":" %135 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %134, i64* %135"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %136 = phi i64 [%22, %$7], [%29, %$9], [%128, %$12] ; # A"},{"Add":" %137 = phi i64 [%23, %$7], [%30, %$9], [%129, %$12] ; # B"},{"Add":" %138 = phi i64 [%24, %$7], [%39, %$9], [%49, %$12] ; # ->"},{"Add":" ret i64 %138"},{"Add":"}"},{"Add":""},{"Add":"define i64 @xoru(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (cond ((cnt? A) (if (cnt? B) (| (x| A B) 2) (zapZero (consNum (x|..."},{"Add":"; # (cnt? A)"},{"Add":" %2 = and i64 %0, 2"},{"Add":" %3 = icmp ne i64 %2, 0"},{"Add":" br i1 %3, label %$4, label %$3"},{"Add":"$4:"},{"Add":" %4 = phi i64 [%0, %$1] ; # A"},{"Add":" %5 = phi i64 [%1, %$1] ; # B"},{"Add":"; # (if (cnt? B) (| (x| A B) 2) (zapZero (consNum (x| (int A) (val (d..."},{"Add":"; # (cnt? B)"},{"Add":" %6 = and i64 %5, 2"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$5, label %$6"},{"Add":"$5:"},{"Add":" %8 = phi i64 [%4, %$4] ; # A"},{"Add":" %9 = phi i64 [%5, %$4] ; # B"},{"Add":"; # (x| A B)"},{"Add":" %10 = xor i64 %8, %9"},{"Add":"; # (| (x| A B) 2)"},{"Add":" %11 = or i64 %10, 2"},{"Add":" br label %$7"},{"Add":"$6:"},{"Add":" %12 = phi i64 [%4, %$4] ; # A"},{"Add":" %13 = phi i64 [%5, %$4] ; # B"},{"Add":"; # (int A)"},{"Add":" %14 = lshr i64 %12, 4"},{"Add":"; # (dig B)"},{"Add":" %15 = add i64 %13, -4"},{"Add":"; # (val (dig B))"},{"Add":" %16 = inttoptr i64 %15 to i64*"},{"Add":" %17 = load i64, i64* %16"},{"Add":"; # (x| (int A) (val (dig B)))"},{"Add":" %18 = xor i64 %14, %17"},{"Add":"; # (big B)"},{"Add":" %19 = add i64 %13, 4"},{"Add":"; # (val (big B))"},{"Add":" %20 = inttoptr i64 %19 to i64*"},{"Add":" %21 = load i64, i64* %20"},{"Add":"; # (consNum (x| (int A) (val (dig B))) (val (big B)))"},{"Add":" %22 = call i64 @consNum(i64 %18, i64 %21)"},{"Add":"; # (zapZero (consNum (x| (int A) (val (dig B))) (val (big B))))"},{"Add":" %23 = call i64 @zapZero(i64 %22)"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %24 = phi i64 [%8, %$5], [%12, %$6] ; # A"},{"Add":" %25 = phi i64 [%9, %$5], [%13, %$6] ; # B"},{"Add":" %26 = phi i64 [%11, %$5], [%23, %$6] ; # ->"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %27 = phi i64 [%0, %$1] ; # A"},{"Add":" %28 = phi i64 [%1, %$1] ; # B"},{"Add":"; # (cnt? B)"},{"Add":" %29 = and i64 %28, 2"},{"Add":" %30 = icmp ne i64 %29, 0"},{"Add":" br i1 %30, label %$9, label %$8"},{"Add":"$9:"},{"Add":" %31 = phi i64 [%27, %$3] ; # A"},{"Add":" %32 = phi i64 [%28, %$3] ; # B"},{"Add":"; # (int B)"},{"Add":" %33 = lshr i64 %32, 4"},{"Add":"; # (dig A)"},{"Add":" %34 = add i64 %31, -4"},{"Add":"; # (val (dig A))"},{"Add":" %35 = inttoptr i64 %34 to i64*"},{"Add":" %36 = load i64, i64* %35"},{"Add":"; # (x| (int B) (val (dig A)))"},{"Add":" %37 = xor i64 %33, %36"},{"Add":"; # (big A)"},{"Add":" %38 = add i64 %31, 4"},{"Add":"; # (val (big A))"},{"Add":" %39 = inttoptr i64 %38 to i64*"},{"Add":" %40 = load i64, i64* %39"},{"Add":"; # (consNum (x| (int B) (val (dig A))) (val (big A)))"},{"Add":" %41 = call i64 @consNum(i64 %37, i64 %40)"},{"Add":"; # (zapZero (consNum (x| (int B) (val (dig A))) (val (big A))))"},{"Add":" %42 = call i64 @zapZero(i64 %41)"},{"Add":" br label %$2"},{"Add":"$8:"},{"Add":" %43 = phi i64 [%27, %$3] ; # A"},{"Add":" %44 = phi i64 [%28, %$3] ; # B"},{"Add":"; # (let (P (boxNum (x| (val (dig A)) (val (dig B)))) R (save P)) (lo..."},{"Add":"; # (dig A)"},{"Add":" %45 = add i64 %43, -4"},{"Add":"; # (val (dig A))"},{"Add":" %46 = inttoptr i64 %45 to i64*"},{"Add":" %47 = load i64, i64* %46"},{"Add":"; # (dig B)"},{"Add":" %48 = add i64 %44, -4"},{"Add":"; # (val (dig B))"},{"Add":" %49 = inttoptr i64 %48 to i64*"},{"Add":" %50 = load i64, i64* %49"},{"Add":"; # (x| (val (dig A)) (val (dig B)))"},{"Add":" %51 = xor i64 %47, %50"},{"Add":"; # (boxNum (x| (val (dig A)) (val (dig B))))"},{"Add":" %52 = call i64 @boxNum(i64 %51)"},{"Add":"; # (save P)"},{"Add":" %53 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %54 = load i64, i64* %53"},{"Add":" %55 = alloca i64, i64 2, align 16"},{"Add":" %56 = ptrtoint i64* %55 to i64"},{"Add":" %57 = inttoptr i64 %56 to i64*"},{"Add":" store i64 %52, i64* %57"},{"Add":" %58 = add i64 %56, 8"},{"Add":" %59 = inttoptr i64 %58 to i64*"},{"Add":" store i64 %54, i64* %59"},{"Add":" %60 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %56, i64* %60"},{"Add":"; # (loop (setq A (val (big A)) B (val (big B))) (? (cnt? A) (set (bi..."},{"Add":" br label %$10"},{"Add":"$10:"},{"Add":" %61 = phi i64 [%43, %$8], [%119, %$17] ; # A"},{"Add":" %62 = phi i64 [%44, %$8], [%120, %$17] ; # B"},{"Add":" %63 = phi i64 [%52, %$8], [%130, %$17] ; # P"},{"Add":"; # (big A)"},{"Add":" %64 = add i64 %61, 4"},{"Add":"; # (val (big A))"},{"Add":" %65 = inttoptr i64 %64 to i64*"},{"Add":" %66 = load i64, i64* %65"},{"Add":"; # (big B)"},{"Add":" %67 = add i64 %62, 4"},{"Add":"; # (val (big B))"},{"Add":" %68 = inttoptr i64 %67 to i64*"},{"Add":" %69 = load i64, i64* %68"},{"Add":"; # (? (cnt? A) (set (big P) (if (cnt? B) (| (x| A B) 2) (consNum (x|..."},{"Add":"; # (cnt? A)"},{"Add":" %70 = and i64 %66, 2"},{"Add":" %71 = icmp ne i64 %70, 0"},{"Add":" br i1 %71, label %$13, label %$11"},{"Add":"$13:"},{"Add":" %72 = phi i64 [%66, %$10] ; # A"},{"Add":" %73 = phi i64 [%69, %$10] ; # B"},{"Add":" %74 = phi i64 [%63, %$10] ; # P"},{"Add":"; # (set (big P) (if (cnt? B) (| (x| A B) 2) (consNum (x| (int A) (va..."},{"Add":"; # (big P)"},{"Add":" %75 = add i64 %74, 4"},{"Add":"; # (if (cnt? B) (| (x| A B) 2) (consNum (x| (int A) (val (dig B))) (..."},{"Add":"; # (cnt? B)"},{"Add":" %76 = and i64 %73, 2"},{"Add":" %77 = icmp ne i64 %76, 0"},{"Add":" br i1 %77, label %$14, label %$15"},{"Add":"$14:"},{"Add":" %78 = phi i64 [%72, %$13] ; # A"},{"Add":" %79 = phi i64 [%73, %$13] ; # B"},{"Add":" %80 = phi i64 [%74, %$13] ; # P"},{"Add":"; # (x| A B)"},{"Add":" %81 = xor i64 %78, %79"},{"Add":"; # (| (x| A B) 2)"},{"Add":" %82 = or i64 %81, 2"},{"Add":" br label %$16"},{"Add":"$15:"},{"Add":" %83 = phi i64 [%72, %$13] ; # A"},{"Add":" %84 = phi i64 [%73, %$13] ; # B"},{"Add":" %85 = phi i64 [%74, %$13] ; # P"},{"Add":"; # (int A)"},{"Add":" %86 = lshr i64 %83, 4"},{"Add":"; # (dig B)"},{"Add":" %87 = add i64 %84, -4"},{"Add":"; # (val (dig B))"},{"Add":" %88 = inttoptr i64 %87 to i64*"},{"Add":" %89 = load i64, i64* %88"},{"Add":"; # (x| (int A) (val (dig B)))"},{"Add":" %90 = xor i64 %86, %89"},{"Add":"; # (big B)"},{"Add":" %91 = add i64 %84, 4"},{"Add":"; # (val (big B))"},{"Add":" %92 = inttoptr i64 %91 to i64*"},{"Add":" %93 = load i64, i64* %92"},{"Add":"; # (consNum (x| (int A) (val (dig B))) (val (big B)))"},{"Add":" %94 = call i64 @consNum(i64 %90, i64 %93)"},{"Add":" br label %$16"},{"Add":"$16:"},{"Add":" %95 = phi i64 [%78, %$14], [%83, %$15] ; # A"},{"Add":" %96 = phi i64 [%79, %$14], [%84, %$15] ; # B"},{"Add":" %97 = phi i64 [%80, %$14], [%85, %$15] ; # P"},{"Add":" %98 = phi i64 [%82, %$14], [%94, %$15] ; # ->"},{"Add":" %99 = inttoptr i64 %75 to i64*"},{"Add":" store i64 %98, i64* %99"},{"Add":" br label %$12"},{"Add":"$11:"},{"Add":" %100 = phi i64 [%66, %$10] ; # A"},{"Add":" %101 = phi i64 [%69, %$10] ; # B"},{"Add":" %102 = phi i64 [%63, %$10] ; # P"},{"Add":"; # (? (cnt? B) (set (big P) (consNum (x| (int B) (val (dig A))) (val..."},{"Add":"; # (cnt? B)"},{"Add":" %103 = and i64 %101, 2"},{"Add":" %104 = icmp ne i64 %103, 0"},{"Add":" br i1 %104, label %$18, label %$17"},{"Add":"$18:"},{"Add":" %105 = phi i64 [%100, %$11] ; # A"},{"Add":" %106 = phi i64 [%101, %$11] ; # B"},{"Add":" %107 = phi i64 [%102, %$11] ; # P"},{"Add":"; # (set (big P) (consNum (x| (int B) (val (dig A))) (val (big A))))"},{"Add":"; # (big P)"},{"Add":" %108 = add i64 %107, 4"},{"Add":"; # (int B)"},{"Add":" %109 = lshr i64 %106, 4"},{"Add":"; # (dig A)"},{"Add":" %110 = add i64 %105, -4"},{"Add":"; # (val (dig A))"},{"Add":" %111 = inttoptr i64 %110 to i64*"},{"Add":" %112 = load i64, i64* %111"},{"Add":"; # (x| (int B) (val (dig A)))"},{"Add":" %113 = xor i64 %109, %112"},{"Add":"; # (big A)"},{"Add":" %114 = add i64 %105, 4"},{"Add":"; # (val (big A))"},{"Add":" %115 = inttoptr i64 %114 to i64*"},{"Add":" %116 = load i64, i64* %115"},{"Add":"; # (consNum (x| (int B) (val (dig A))) (val (big A)))"},{"Add":" %117 = call i64 @consNum(i64 %113, i64 %116)"},{"Add":" %118 = inttoptr i64 %108 to i64*"},{"Add":" store i64 %117, i64* %118"},{"Add":" br label %$12"},{"Add":"$17:"},{"Add":" %119 = phi i64 [%100, %$11] ; # A"},{"Add":" %120 = phi i64 [%101, %$11] ; # B"},{"Add":" %121 = phi i64 [%102, %$11] ; # P"},{"Add":"; # (set (big P) (boxNum (x| (val (dig A)) (val (dig B)))))"},{"Add":"; # (big P)"},{"Add":" %122 = add i64 %121, 4"},{"Add":"; # (dig A)"},{"Add":" %123 = add i64 %119, -4"},{"Add":"; # (val (dig A))"},{"Add":" %124 = inttoptr i64 %123 to i64*"},{"Add":" %125 = load i64, i64* %124"},{"Add":"; # (dig B)"},{"Add":" %126 = add i64 %120, -4"},{"Add":"; # (val (dig B))"},{"Add":" %127 = inttoptr i64 %126 to i64*"},{"Add":" %128 = load i64, i64* %127"},{"Add":"; # (x| (val (dig A)) (val (dig B)))"},{"Add":" %129 = xor i64 %125, %128"},{"Add":"; # (boxNum (x| (val (dig A)) (val (dig B))))"},{"Add":" %130 = call i64 @boxNum(i64 %129)"},{"Add":" %131 = inttoptr i64 %122 to i64*"},{"Add":" store i64 %130, i64* %131"},{"Add":" br label %$10"},{"Add":"$12:"},{"Add":" %132 = phi i64 [%95, %$16], [%105, %$18] ; # A"},{"Add":" %133 = phi i64 [%96, %$16], [%106, %$18] ; # B"},{"Add":" %134 = phi i64 [%97, %$16], [%107, %$18] ; # P"},{"Add":" %135 = phi i64 [%98, %$16], [%117, %$18] ; # ->"},{"Add":"; # (zapZero R)"},{"Add":" %136 = call i64 @zapZero(i64 %52)"},{"Add":"; # (drop *Safe)"},{"Add":" %137 = inttoptr i64 %56 to i64*"},{"Add":" %138 = getelementptr i64, i64* %137, i32 1"},{"Add":" %139 = load i64, i64* %138"},{"Add":" %140 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %139, i64* %140"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %141 = phi i64 [%24, %$7], [%31, %$9], [%132, %$12] ; # A"},{"Add":" %142 = phi i64 [%25, %$7], [%32, %$9], [%133, %$12] ; # B"},{"Add":" %143 = phi i64 [%26, %$7], [%42, %$9], [%136, %$12] ; # ->"},{"Add":" ret i64 %143"},{"Add":"}"},{"Add":""},{"Add":"define i64 @addu(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (cond ((cnt? A) (if (cnt? B) (box64 (+ (int A) (int B))) (xchg 'A..."},{"Add":"; # (cnt? A)"},{"Add":" %2 = and i64 %0, 2"},{"Add":" %3 = icmp ne i64 %2, 0"},{"Add":" br i1 %3, label %$4, label %$3"},{"Add":"$4:"},{"Add":" %4 = phi i64 [%0, %$1] ; # A"},{"Add":" %5 = phi i64 [%1, %$1] ; # B"},{"Add":"; # (if (cnt? B) (box64 (+ (int A) (int B))) (xchg 'A 'B) (goto 1))"},{"Add":"; # (cnt? B)"},{"Add":" %6 = and i64 %5, 2"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$5, label %$6"},{"Add":"$5:"},{"Add":" %8 = phi i64 [%4, %$4] ; # A"},{"Add":" %9 = phi i64 [%5, %$4] ; # B"},{"Add":"; # (int A)"},{"Add":" %10 = lshr i64 %8, 4"},{"Add":"; # (int B)"},{"Add":" %11 = lshr i64 %9, 4"},{"Add":"; # (+ (int A) (int B))"},{"Add":" %12 = add i64 %10, %11"},{"Add":"; # (box64 (+ (int A) (int B)))"},{"Add":" %13 = and i64 %12, 17293822569102704640"},{"Add":" %14 = icmp ne i64 %13, 0"},{"Add":" br i1 %14, label %$8, label %$9"},{"Add":"$8:"},{"Add":" %15 = call i64 @boxNum(i64 %12)"},{"Add":" br label %$10"},{"Add":"$9:"},{"Add":" %16 = shl i64 %12, 4"},{"Add":" %17 = or i64 %16, 2"},{"Add":" br label %$10"},{"Add":"$10:"},{"Add":" %18 = phi i64 [%15, %$8], [%17, %$9] ; # ->"},{"Add":" br label %$7"},{"Add":"$6:"},{"Add":" %19 = phi i64 [%4, %$4] ; # A"},{"Add":" %20 = phi i64 [%5, %$4] ; # B"},{"Add":"; # (xchg 'A 'B)"},{"Add":"; # (goto 1)"},{"Add":" br label %$-1"},{"Add":"$7:"},{"Add":" %21 = phi i64 [%8, %$10] ; # A"},{"Add":" %22 = phi i64 [%9, %$10] ; # B"},{"Add":" %23 = phi i64 [%18, %$10] ; # ->"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %24 = phi i64 [%0, %$1] ; # A"},{"Add":" %25 = phi i64 [%1, %$1] ; # B"},{"Add":"; # (cnt? B)"},{"Add":" %26 = and i64 %25, 2"},{"Add":" %27 = icmp ne i64 %26, 0"},{"Add":" br i1 %27, label %$12, label %$11"},{"Add":"$12:"},{"Add":" %28 = phi i64 [%24, %$3] ; # A"},{"Add":" %29 = phi i64 [%25, %$3] ; # B"},{"Add":"; # (: 1 (let N (val (big A)) (setq B (add (int B) (val (dig A)))) (i..."},{"Add":" br label %$-1"},{"Add":"$-1:"},{"Add":" %30 = phi i64 [%20, %$6], [%28, %$12] ; # A"},{"Add":" %31 = phi i64 [%19, %$6], [%29, %$12] ; # B"},{"Add":"; # (let N (val (big A)) (setq B (add (int B) (val (dig A)))) (ifn @@..."},{"Add":"; # (big A)"},{"Add":" %32 = add i64 %30, 4"},{"Add":"; # (val (big A))"},{"Add":" %33 = inttoptr i64 %32 to i64*"},{"Add":" %34 = load i64, i64* %33"},{"Add":"; # (int B)"},{"Add":" %35 = lshr i64 %31, 4"},{"Add":"; # (dig A)"},{"Add":" %36 = add i64 %30, -4"},{"Add":"; # (val (dig A))"},{"Add":" %37 = inttoptr i64 %36 to i64*"},{"Add":" %38 = load i64, i64* %37"},{"Add":"; # (add (int B) (val (dig A)))"},{"Add":" %39 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %35, i64 %38)"},{"Add":" %40 = extractvalue {i64, i1} %39, 1"},{"Add":" %41 = extractvalue {i64, i1} %39, 0"},{"Add":"; # (ifn @@ (consNum B N) (let R (save (setq B (consNum B N))) (loop ..."},{"Add":" br i1 %40, label %$14, label %$13"},{"Add":"$13:"},{"Add":" %42 = phi i64 [%30, %$-1] ; # A"},{"Add":" %43 = phi i64 [%41, %$-1] ; # B"},{"Add":" %44 = phi i64 [%34, %$-1] ; # N"},{"Add":"; # (consNum B N)"},{"Add":" %45 = call i64 @consNum(i64 %43, i64 %44)"},{"Add":" br label %$15"},{"Add":"$14:"},{"Add":" %46 = phi i64 [%30, %$-1] ; # A"},{"Add":" %47 = phi i64 [%41, %$-1] ; # B"},{"Add":" %48 = phi i64 [%34, %$-1] ; # N"},{"Add":"; # (let R (save (setq B (consNum B N))) (loop (? (cnt? N) (setq N (a..."},{"Add":"; # (consNum B N)"},{"Add":" %49 = call i64 @consNum(i64 %47, i64 %48)"},{"Add":"; # (save (setq B (consNum B N)))"},{"Add":" %50 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %51 = load i64, i64* %50"},{"Add":" %52 = alloca i64, i64 2, align 16"},{"Add":" %53 = ptrtoint i64* %52 to i64"},{"Add":" %54 = inttoptr i64 %53 to i64*"},{"Add":" store i64 %49, i64* %54"},{"Add":" %55 = add i64 %53, 8"},{"Add":" %56 = inttoptr i64 %55 to i64*"},{"Add":" store i64 %51, i64* %56"},{"Add":" %57 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %53, i64* %57"},{"Add":"; # (loop (? (cnt? N) (setq N (add N (hex \"10\"))) (set (big B) (ifn @..."},{"Add":" br label %$16"},{"Add":"$16:"},{"Add":" %58 = phi i64 [%46, %$14], [%104, %$23] ; # A"},{"Add":" %59 = phi i64 [%49, %$14], [%109, %$23] ; # B"},{"Add":" %60 = phi i64 [%48, %$14], [%106, %$23] ; # N"},{"Add":"; # (? (cnt? N) (setq N (add N (hex \"10\"))) (set (big B) (ifn @@ N (b..."},{"Add":"; # (cnt? N)"},{"Add":" %61 = and i64 %60, 2"},{"Add":" %62 = icmp ne i64 %61, 0"},{"Add":" br i1 %62, label %$19, label %$17"},{"Add":"$19:"},{"Add":" %63 = phi i64 [%58, %$16] ; # A"},{"Add":" %64 = phi i64 [%59, %$16] ; # B"},{"Add":" %65 = phi i64 [%60, %$16] ; # N"},{"Add":"; # (add N (hex \"10\"))"},{"Add":" %66 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %65, i64 16)"},{"Add":" %67 = extractvalue {i64, i1} %66, 1"},{"Add":" %68 = extractvalue {i64, i1} %66, 0"},{"Add":"; # (set (big B) (ifn @@ N (boxNum (| (int N) (hex \"1000000000000000\"..."},{"Add":"; # (big B)"},{"Add":" %69 = add i64 %64, 4"},{"Add":"; # (ifn @@ N (boxNum (| (int N) (hex \"1000000000000000\"))))"},{"Add":" br i1 %67, label %$21, label %$20"},{"Add":"$20:"},{"Add":" %70 = phi i64 [%63, %$19] ; # A"},{"Add":" %71 = phi i64 [%64, %$19] ; # B"},{"Add":" %72 = phi i64 [%68, %$19] ; # N"},{"Add":" br label %$22"},{"Add":"$21:"},{"Add":" %73 = phi i64 [%63, %$19] ; # A"},{"Add":" %74 = phi i64 [%64, %$19] ; # B"},{"Add":" %75 = phi i64 [%68, %$19] ; # N"},{"Add":"; # (int N)"},{"Add":" %76 = lshr i64 %75, 4"},{"Add":"; # (| (int N) (hex \"1000000000000000\"))"},{"Add":" %77 = or i64 %76, 1152921504606846976"},{"Add":"; # (boxNum (| (int N) (hex \"1000000000000000\")))"},{"Add":" %78 = call i64 @boxNum(i64 %77)"},{"Add":" br label %$22"},{"Add":"$22:"},{"Add":" %79 = phi i64 [%70, %$20], [%73, %$21] ; # A"},{"Add":" %80 = phi i64 [%71, %$20], [%74, %$21] ; # B"},{"Add":" %81 = phi i64 [%72, %$20], [%75, %$21] ; # N"},{"Add":" %82 = phi i64 [%72, %$20], [%78, %$21] ; # ->"},{"Add":" %83 = inttoptr i64 %69 to i64*"},{"Add":" store i64 %82, i64* %83"},{"Add":" br label %$18"},{"Add":"$17:"},{"Add":" %84 = phi i64 [%58, %$16] ; # A"},{"Add":" %85 = phi i64 [%59, %$16] ; # B"},{"Add":" %86 = phi i64 [%60, %$16] ; # N"},{"Add":"; # (let D (val (dig N)) (setq N (val (big N)) D (add D 1)) (? (not @..."},{"Add":"; # (dig N)"},{"Add":" %87 = add i64 %86, -4"},{"Add":"; # (val (dig N))"},{"Add":" %88 = inttoptr i64 %87 to i64*"},{"Add":" %89 = load i64, i64* %88"},{"Add":"; # (big N)"},{"Add":" %90 = add i64 %86, 4"},{"Add":"; # (val (big N))"},{"Add":" %91 = inttoptr i64 %90 to i64*"},{"Add":" %92 = load i64, i64* %91"},{"Add":"; # (add D 1)"},{"Add":" %93 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %89, i64 1)"},{"Add":" %94 = extractvalue {i64, i1} %93, 1"},{"Add":" %95 = extractvalue {i64, i1} %93, 0"},{"Add":"; # (? (not @@) (set (big B) (consNum D N)))"},{"Add":"; # (not @@)"},{"Add":" %96 = icmp eq i1 %94, 0"},{"Add":" br i1 %96, label %$24, label %$23"},{"Add":"$24:"},{"Add":" %97 = phi i64 [%84, %$17] ; # A"},{"Add":" %98 = phi i64 [%85, %$17] ; # B"},{"Add":" %99 = phi i64 [%92, %$17] ; # N"},{"Add":" %100 = phi i64 [%95, %$17] ; # D"},{"Add":"; # (set (big B) (consNum D N))"},{"Add":"; # (big B)"},{"Add":" %101 = add i64 %98, 4"},{"Add":"; # (consNum D N)"},{"Add":" %102 = call i64 @consNum(i64 %100, i64 %99)"},{"Add":" %103 = inttoptr i64 %101 to i64*"},{"Add":" store i64 %102, i64* %103"},{"Add":" br label %$18"},{"Add":"$23:"},{"Add":" %104 = phi i64 [%84, %$17] ; # A"},{"Add":" %105 = phi i64 [%85, %$17] ; # B"},{"Add":" %106 = phi i64 [%92, %$17] ; # N"},{"Add":" %107 = phi i64 [%95, %$17] ; # D"},{"Add":"; # (set (big B) (consNum D N))"},{"Add":"; # (big B)"},{"Add":" %108 = add i64 %105, 4"},{"Add":"; # (consNum D N)"},{"Add":" %109 = call i64 @consNum(i64 %107, i64 %106)"},{"Add":" %110 = inttoptr i64 %108 to i64*"},{"Add":" store i64 %109, i64* %110"},{"Add":" br label %$16"},{"Add":"$18:"},{"Add":" %111 = phi i64 [%79, %$22], [%97, %$24] ; # A"},{"Add":" %112 = phi i64 [%80, %$22], [%98, %$24] ; # B"},{"Add":" %113 = phi i64 [%81, %$22], [%99, %$24] ; # N"},{"Add":" %114 = phi i64 [%82, %$22], [%102, %$24] ; # ->"},{"Add":"; # (drop *Safe)"},{"Add":" %115 = inttoptr i64 %53 to i64*"},{"Add":" %116 = getelementptr i64, i64* %115, i32 1"},{"Add":" %117 = load i64, i64* %116"},{"Add":" %118 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %117, i64* %118"},{"Add":" br label %$15"},{"Add":"$15:"},{"Add":" %119 = phi i64 [%42, %$13], [%111, %$18] ; # A"},{"Add":" %120 = phi i64 [%43, %$13], [%112, %$18] ; # B"},{"Add":" %121 = phi i64 [%44, %$13], [%113, %$18] ; # N"},{"Add":" %122 = phi i64 [%45, %$13], [%49, %$18] ; # ->"},{"Add":" br label %$2"},{"Add":"$11:"},{"Add":" %123 = phi i64 [%24, %$3] ; # A"},{"Add":" %124 = phi i64 [%25, %$3] ; # B"},{"Add":"; # (let (N (add (val (dig A)) (val (dig B))) C @@ P (boxNum N) R (sa..."},{"Add":"; # (dig A)"},{"Add":" %125 = add i64 %123, -4"},{"Add":"; # (val (dig A))"},{"Add":" %126 = inttoptr i64 %125 to i64*"},{"Add":" %127 = load i64, i64* %126"},{"Add":"; # (dig B)"},{"Add":" %128 = add i64 %124, -4"},{"Add":"; # (val (dig B))"},{"Add":" %129 = inttoptr i64 %128 to i64*"},{"Add":" %130 = load i64, i64* %129"},{"Add":"; # (add (val (dig A)) (val (dig B)))"},{"Add":" %131 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %127, i64 %130)"},{"Add":" %132 = extractvalue {i64, i1} %131, 1"},{"Add":" %133 = extractvalue {i64, i1} %131, 0"},{"Add":"; # (boxNum N)"},{"Add":" %134 = call i64 @boxNum(i64 %133)"},{"Add":"; # (save P)"},{"Add":" %135 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %136 = load i64, i64* %135"},{"Add":" %137 = alloca i64, i64 2, align 16"},{"Add":" %138 = ptrtoint i64* %137 to i64"},{"Add":" %139 = inttoptr i64 %138 to i64*"},{"Add":" store i64 %134, i64* %139"},{"Add":" %140 = add i64 %138, 8"},{"Add":" %141 = inttoptr i64 %140 to i64*"},{"Add":" store i64 %136, i64* %141"},{"Add":" %142 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %138, i64* %142"},{"Add":"; # (loop (setq A (val (big A)) B (val (big B))) (? (cnt? A) (if (cnt..."},{"Add":" br label %$25"},{"Add":"$25:"},{"Add":" %143 = phi i64 [%123, %$11], [%278, %$35] ; # A"},{"Add":" %144 = phi i64 [%124, %$11], [%279, %$35] ; # B"},{"Add":" %145 = phi i64 [%133, %$11], [%296, %$35] ; # N"},{"Add":" %146 = phi i1 [%132, %$11], [%295, %$35] ; # C"},{"Add":" %147 = phi i64 [%134, %$11], [%298, %$35] ; # P"},{"Add":"; # (big A)"},{"Add":" %148 = add i64 %143, 4"},{"Add":"; # (val (big A))"},{"Add":" %149 = inttoptr i64 %148 to i64*"},{"Add":" %150 = load i64, i64* %149"},{"Add":"; # (big B)"},{"Add":" %151 = add i64 %144, 4"},{"Add":"; # (val (big B))"},{"Add":" %152 = inttoptr i64 %151 to i64*"},{"Add":" %153 = load i64, i64* %152"},{"Add":"; # (? (cnt? A) (if (cnt? B) (set (big P) (box64 (add (int A) (int B)..."},{"Add":"; # (cnt? A)"},{"Add":" %154 = and i64 %150, 2"},{"Add":" %155 = icmp ne i64 %154, 0"},{"Add":" br i1 %155, label %$28, label %$26"},{"Add":"$28:"},{"Add":" %156 = phi i64 [%150, %$25] ; # A"},{"Add":" %157 = phi i64 [%153, %$25] ; # B"},{"Add":" %158 = phi i64 [%145, %$25] ; # N"},{"Add":" %159 = phi i1 [%146, %$25] ; # C"},{"Add":" %160 = phi i64 [%147, %$25] ; # P"},{"Add":"; # (if (cnt? B) (set (big P) (box64 (add (int A) (int B) C))) (xchg ..."},{"Add":"; # (cnt? B)"},{"Add":" %161 = and i64 %157, 2"},{"Add":" %162 = icmp ne i64 %161, 0"},{"Add":" br i1 %162, label %$29, label %$30"},{"Add":"$29:"},{"Add":" %163 = phi i64 [%156, %$28] ; # A"},{"Add":" %164 = phi i64 [%157, %$28] ; # B"},{"Add":" %165 = phi i64 [%158, %$28] ; # N"},{"Add":" %166 = phi i1 [%159, %$28] ; # C"},{"Add":" %167 = phi i64 [%160, %$28] ; # P"},{"Add":"; # (set (big P) (box64 (add (int A) (int B) C)))"},{"Add":"; # (big P)"},{"Add":" %168 = add i64 %167, 4"},{"Add":"; # (int A)"},{"Add":" %169 = lshr i64 %163, 4"},{"Add":"; # (int B)"},{"Add":" %170 = lshr i64 %164, 4"},{"Add":"; # (add (int A) (int B) C)"},{"Add":" %171 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %169, i64 %170)"},{"Add":" %172 = extractvalue {i64, i1} %171, 1"},{"Add":" %173 = extractvalue {i64, i1} %171, 0"},{"Add":" %174 = zext i1 %166 to i64"},{"Add":" %175 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %173, i64 %174)"},{"Add":" %176 = extractvalue {i64, i1} %175, 1"},{"Add":" %177 = or i1 %172, %176"},{"Add":" %178 = extractvalue {i64, i1} %175, 0"},{"Add":"; # (box64 (add (int A) (int B) C))"},{"Add":" %179 = and i64 %178, 17293822569102704640"},{"Add":" %180 = icmp ne i64 %179, 0"},{"Add":" br i1 %180, label %$32, label %$33"},{"Add":"$32:"},{"Add":" %181 = call i64 @boxNum(i64 %178)"},{"Add":" br label %$34"},{"Add":"$33:"},{"Add":" %182 = shl i64 %178, 4"},{"Add":" %183 = or i64 %182, 2"},{"Add":" br label %$34"},{"Add":"$34:"},{"Add":" %184 = phi i64 [%181, %$32], [%183, %$33] ; # ->"},{"Add":" %185 = inttoptr i64 %168 to i64*"},{"Add":" store i64 %184, i64* %185"},{"Add":" br label %$31"},{"Add":"$30:"},{"Add":" %186 = phi i64 [%156, %$28] ; # A"},{"Add":" %187 = phi i64 [%157, %$28] ; # B"},{"Add":" %188 = phi i64 [%158, %$28] ; # N"},{"Add":" %189 = phi i1 [%159, %$28] ; # C"},{"Add":" %190 = phi i64 [%160, %$28] ; # P"},{"Add":"; # (xchg 'A 'B)"},{"Add":"; # (goto 2)"},{"Add":" br label %$-2"},{"Add":"$31:"},{"Add":" %191 = phi i64 [%163, %$34] ; # A"},{"Add":" %192 = phi i64 [%164, %$34] ; # B"},{"Add":" %193 = phi i64 [%165, %$34] ; # N"},{"Add":" %194 = phi i1 [%166, %$34] ; # C"},{"Add":" %195 = phi i64 [%167, %$34] ; # P"},{"Add":" %196 = phi i64 [%184, %$34] ; # ->"},{"Add":" br label %$27"},{"Add":"$26:"},{"Add":" %197 = phi i64 [%150, %$25] ; # A"},{"Add":" %198 = phi i64 [%153, %$25] ; # B"},{"Add":" %199 = phi i64 [%145, %$25] ; # N"},{"Add":" %200 = phi i1 [%146, %$25] ; # C"},{"Add":" %201 = phi i64 [%147, %$25] ; # P"},{"Add":"; # (? (cnt? B) (: 2 (setq N (add (int B) (val (dig A)) C) C @@) (loo..."},{"Add":"; # (cnt? B)"},{"Add":" %202 = and i64 %198, 2"},{"Add":" %203 = icmp ne i64 %202, 0"},{"Add":" br i1 %203, label %$36, label %$35"},{"Add":"$36:"},{"Add":" %204 = phi i64 [%197, %$26] ; # A"},{"Add":" %205 = phi i64 [%198, %$26] ; # B"},{"Add":" %206 = phi i64 [%199, %$26] ; # N"},{"Add":" %207 = phi i1 [%200, %$26] ; # C"},{"Add":" %208 = phi i64 [%201, %$26] ; # P"},{"Add":"; # (: 2 (setq N (add (int B) (val (dig A)) C) C @@) (loop (setq P (s..."},{"Add":" br label %$-2"},{"Add":"$-2:"},{"Add":" %209 = phi i64 [%187, %$30], [%204, %$36] ; # A"},{"Add":" %210 = phi i64 [%186, %$30], [%205, %$36] ; # B"},{"Add":" %211 = phi i64 [%188, %$30], [%206, %$36] ; # N"},{"Add":" %212 = phi i1 [%189, %$30], [%207, %$36] ; # C"},{"Add":" %213 = phi i64 [%190, %$30], [%208, %$36] ; # P"},{"Add":"; # (int B)"},{"Add":" %214 = lshr i64 %210, 4"},{"Add":"; # (dig A)"},{"Add":" %215 = add i64 %209, -4"},{"Add":"; # (val (dig A))"},{"Add":" %216 = inttoptr i64 %215 to i64*"},{"Add":" %217 = load i64, i64* %216"},{"Add":"; # (add (int B) (val (dig A)) C)"},{"Add":" %218 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %214, i64 %217)"},{"Add":" %219 = extractvalue {i64, i1} %218, 1"},{"Add":" %220 = extractvalue {i64, i1} %218, 0"},{"Add":" %221 = zext i1 %212 to i64"},{"Add":" %222 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %220, i64 %221)"},{"Add":" %223 = extractvalue {i64, i1} %222, 1"},{"Add":" %224 = or i1 %219, %223"},{"Add":" %225 = extractvalue {i64, i1} %222, 0"},{"Add":"; # (loop (setq P (set (big P) (consNum N (setq A (val (big A)))))) (..."},{"Add":" br label %$37"},{"Add":"$37:"},{"Add":" %226 = phi i64 [%209, %$-2], [%261, %$40] ; # A"},{"Add":" %227 = phi i64 [%210, %$-2], [%262, %$40] ; # B"},{"Add":" %228 = phi i64 [%225, %$-2], [%271, %$40] ; # N"},{"Add":" %229 = phi i1 [%224, %$-2], [%270, %$40] ; # C"},{"Add":" %230 = phi i64 [%213, %$-2], [%265, %$40] ; # P"},{"Add":"; # (set (big P) (consNum N (setq A (val (big A)))))"},{"Add":"; # (big P)"},{"Add":" %231 = add i64 %230, 4"},{"Add":"; # (big A)"},{"Add":" %232 = add i64 %226, 4"},{"Add":"; # (val (big A))"},{"Add":" %233 = inttoptr i64 %232 to i64*"},{"Add":" %234 = load i64, i64* %233"},{"Add":"; # (consNum N (setq A (val (big A))))"},{"Add":" %235 = call i64 @consNum(i64 %228, i64 %234)"},{"Add":" %236 = inttoptr i64 %231 to i64*"},{"Add":" store i64 %235, i64* %236"},{"Add":"; # (? (not C))"},{"Add":"; # (not C)"},{"Add":" %237 = icmp eq i1 %229, 0"},{"Add":" br i1 %237, label %$39, label %$38"},{"Add":"$38:"},{"Add":" %238 = phi i64 [%234, %$37] ; # A"},{"Add":" %239 = phi i64 [%227, %$37] ; # B"},{"Add":" %240 = phi i64 [%228, %$37] ; # N"},{"Add":" %241 = phi i1 [%229, %$37] ; # C"},{"Add":" %242 = phi i64 [%235, %$37] ; # P"},{"Add":"; # (? (cnt? A) (set (big P) (box64 (+ (int A) C))))"},{"Add":"; # (cnt? A)"},{"Add":" %243 = and i64 %238, 2"},{"Add":" %244 = icmp ne i64 %243, 0"},{"Add":" br i1 %244, label %$41, label %$40"},{"Add":"$41:"},{"Add":" %245 = phi i64 [%238, %$38] ; # A"},{"Add":" %246 = phi i64 [%239, %$38] ; # B"},{"Add":" %247 = phi i64 [%240, %$38] ; # N"},{"Add":" %248 = phi i1 [%241, %$38] ; # C"},{"Add":" %249 = phi i64 [%242, %$38] ; # P"},{"Add":"; # (set (big P) (box64 (+ (int A) C)))"},{"Add":"; # (big P)"},{"Add":" %250 = add i64 %249, 4"},{"Add":"; # (int A)"},{"Add":" %251 = lshr i64 %245, 4"},{"Add":"; # (+ (int A) C)"},{"Add":" %252 = zext i1 %248 to i64"},{"Add":" %253 = add i64 %251, %252"},{"Add":"; # (box64 (+ (int A) C))"},{"Add":" %254 = and i64 %253, 17293822569102704640"},{"Add":" %255 = icmp ne i64 %254, 0"},{"Add":" br i1 %255, label %$42, label %$43"},{"Add":"$42:"},{"Add":" %256 = call i64 @boxNum(i64 %253)"},{"Add":" br label %$44"},{"Add":"$43:"},{"Add":" %257 = shl i64 %253, 4"},{"Add":" %258 = or i64 %257, 2"},{"Add":" br label %$44"},{"Add":"$44:"},{"Add":" %259 = phi i64 [%256, %$42], [%258, %$43] ; # ->"},{"Add":" %260 = inttoptr i64 %250 to i64*"},{"Add":" store i64 %259, i64* %260"},{"Add":" br label %$39"},{"Add":"$40:"},{"Add":" %261 = phi i64 [%238, %$38] ; # A"},{"Add":" %262 = phi i64 [%239, %$38] ; # B"},{"Add":" %263 = phi i64 [%240, %$38] ; # N"},{"Add":" %264 = phi i1 [%241, %$38] ; # C"},{"Add":" %265 = phi i64 [%242, %$38] ; # P"},{"Add":"; # (dig A)"},{"Add":" %266 = add i64 %261, -4"},{"Add":"; # (val (dig A))"},{"Add":" %267 = inttoptr i64 %266 to i64*"},{"Add":" %268 = load i64, i64* %267"},{"Add":"; # (add (val (dig A)) 1)"},{"Add":" %269 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %268, i64 1)"},{"Add":" %270 = extractvalue {i64, i1} %269, 1"},{"Add":" %271 = extractvalue {i64, i1} %269, 0"},{"Add":" br label %$37"},{"Add":"$39:"},{"Add":" %272 = phi i64 [%234, %$37], [%245, %$44] ; # A"},{"Add":" %273 = phi i64 [%227, %$37], [%246, %$44] ; # B"},{"Add":" %274 = phi i64 [%228, %$37], [%247, %$44] ; # N"},{"Add":" %275 = phi i1 [%229, %$37], [%248, %$44] ; # C"},{"Add":" %276 = phi i64 [%235, %$37], [%249, %$44] ; # P"},{"Add":" %277 = phi i64 [0, %$37], [%259, %$44] ; # ->"},{"Add":" br label %$27"},{"Add":"$35:"},{"Add":" %278 = phi i64 [%197, %$26] ; # A"},{"Add":" %279 = phi i64 [%198, %$26] ; # B"},{"Add":" %280 = phi i64 [%199, %$26] ; # N"},{"Add":" %281 = phi i1 [%200, %$26] ; # C"},{"Add":" %282 = phi i64 [%201, %$26] ; # P"},{"Add":"; # (dig A)"},{"Add":" %283 = add i64 %278, -4"},{"Add":"; # (val (dig A))"},{"Add":" %284 = inttoptr i64 %283 to i64*"},{"Add":" %285 = load i64, i64* %284"},{"Add":"; # (dig B)"},{"Add":" %286 = add i64 %279, -4"},{"Add":"; # (val (dig B))"},{"Add":" %287 = inttoptr i64 %286 to i64*"},{"Add":" %288 = load i64, i64* %287"},{"Add":"; # (add (val (dig A)) (val (dig B)) C)"},{"Add":" %289 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %285, i64 %288)"},{"Add":" %290 = extractvalue {i64, i1} %289, 1"},{"Add":" %291 = extractvalue {i64, i1} %289, 0"},{"Add":" %292 = zext i1 %281 to i64"},{"Add":" %293 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %291, i64 %292)"},{"Add":" %294 = extractvalue {i64, i1} %293, 1"},{"Add":" %295 = or i1 %290, %294"},{"Add":" %296 = extractvalue {i64, i1} %293, 0"},{"Add":"; # (set (big P) (boxNum N))"},{"Add":"; # (big P)"},{"Add":" %297 = add i64 %282, 4"},{"Add":"; # (boxNum N)"},{"Add":" %298 = call i64 @boxNum(i64 %296)"},{"Add":" %299 = inttoptr i64 %297 to i64*"},{"Add":" store i64 %298, i64* %299"},{"Add":" br label %$25"},{"Add":"$27:"},{"Add":" %300 = phi i64 [%191, %$31], [%272, %$39] ; # A"},{"Add":" %301 = phi i64 [%192, %$31], [%273, %$39] ; # B"},{"Add":" %302 = phi i64 [%193, %$31], [%274, %$39] ; # N"},{"Add":" %303 = phi i1 [%194, %$31], [%275, %$39] ; # C"},{"Add":" %304 = phi i64 [%195, %$31], [%276, %$39] ; # P"},{"Add":" %305 = phi i64 [%196, %$31], [%277, %$39] ; # ->"},{"Add":"; # (drop *Safe)"},{"Add":" %306 = inttoptr i64 %138 to i64*"},{"Add":" %307 = getelementptr i64, i64* %306, i32 1"},{"Add":" %308 = load i64, i64* %307"},{"Add":" %309 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %308, i64* %309"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %310 = phi i64 [%21, %$7], [%119, %$15], [%300, %$27] ; # A"},{"Add":" %311 = phi i64 [%22, %$7], [%120, %$15], [%301, %$27] ; # B"},{"Add":" %312 = phi i64 [%23, %$7], [%122, %$15], [%134, %$27] ; # ->"},{"Add":" ret i64 %312"},{"Add":"}"},{"Add":""},{"Add":"define i64 @sub1(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (dig B)"},{"Add":" %2 = add i64 %0, -4"},{"Add":"; # (val (dig B))"},{"Add":" %3 = inttoptr i64 %2 to i64*"},{"Add":" %4 = load i64, i64* %3"},{"Add":"; # (int N)"},{"Add":" %5 = lshr i64 %1, 4"},{"Add":"; # (sub (val (dig B)) (int N))"},{"Add":" %6 = call {i64, i1} @llvm.usub.with.overflow.i64(i64 %4, i64 %5)"},{"Add":" %7 = extractvalue {i64, i1} %6, 1"},{"Add":" %8 = extractvalue {i64, i1} %6, 0"},{"Add":"; # (big B)"},{"Add":" %9 = add i64 %0, 4"},{"Add":"; # (val (big B))"},{"Add":" %10 = inttoptr i64 %9 to i64*"},{"Add":" %11 = load i64, i64* %10"},{"Add":"; # (nond (@@ (if (== B ZERO) (box64 N) (consNum N B))) ((big? B) (se..."},{"Add":" br i1 %7, label %$3, label %$4"},{"Add":"$4:"},{"Add":" %12 = phi i64 [%11, %$1] ; # B"},{"Add":" %13 = phi i64 [%8, %$1] ; # N"},{"Add":"; # (if (== B ZERO) (box64 N) (consNum N B))"},{"Add":"; # (== B ZERO)"},{"Add":" %14 = icmp eq i64 %12, 2"},{"Add":" br i1 %14, label %$5, label %$6"},{"Add":"$5:"},{"Add":" %15 = phi i64 [%12, %$4] ; # B"},{"Add":" %16 = phi i64 [%13, %$4] ; # N"},{"Add":"; # (box64 N)"},{"Add":" %17 = and i64 %16, 17293822569102704640"},{"Add":" %18 = icmp ne i64 %17, 0"},{"Add":" br i1 %18, label %$8, label %$9"},{"Add":"$8:"},{"Add":" %19 = call i64 @boxNum(i64 %16)"},{"Add":" br label %$10"},{"Add":"$9:"},{"Add":" %20 = shl i64 %16, 4"},{"Add":" %21 = or i64 %20, 2"},{"Add":" br label %$10"},{"Add":"$10:"},{"Add":" %22 = phi i64 [%19, %$8], [%21, %$9] ; # ->"},{"Add":" br label %$7"},{"Add":"$6:"},{"Add":" %23 = phi i64 [%12, %$4] ; # B"},{"Add":" %24 = phi i64 [%13, %$4] ; # N"},{"Add":"; # (consNum N B)"},{"Add":" %25 = call i64 @consNum(i64 %24, i64 %23)"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %26 = phi i64 [%15, %$10], [%23, %$6] ; # B"},{"Add":" %27 = phi i64 [%16, %$10], [%24, %$6] ; # N"},{"Add":" %28 = phi i64 [%22, %$10], [%25, %$6] ; # ->"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %29 = phi i64 [%11, %$1] ; # B"},{"Add":" %30 = phi i64 [%8, %$1] ; # N"},{"Add":"; # (big? B)"},{"Add":" %31 = and i64 %29, 4"},{"Add":" %32 = icmp ne i64 %31, 0"},{"Add":" br i1 %32, label %$11, label %$12"},{"Add":"$12:"},{"Add":" %33 = phi i64 [%29, %$3] ; # B"},{"Add":" %34 = phi i64 [%30, %$3] ; # N"},{"Add":"; # (sub B (hex \"10\"))"},{"Add":" %35 = call {i64, i1} @llvm.usub.with.overflow.i64(i64 %33, i64 16)"},{"Add":" %36 = extractvalue {i64, i1} %35, 1"},{"Add":" %37 = extractvalue {i64, i1} %35, 0"},{"Add":"; # (if @@ (sign (cnt (- N))) (zapZero (consNum N B)))"},{"Add":" br i1 %36, label %$13, label %$14"},{"Add":"$13:"},{"Add":" %38 = phi i64 [%37, %$12] ; # B"},{"Add":" %39 = phi i64 [%34, %$12] ; # N"},{"Add":"; # (- N)"},{"Add":" %40 = sub i64 0, %39"},{"Add":"; # (cnt (- N))"},{"Add":" %41 = shl i64 %40, 4"},{"Add":" %42 = or i64 %41, 2"},{"Add":"; # (sign (cnt (- N)))"},{"Add":" %43 = or i64 %42, 8"},{"Add":" br label %$15"},{"Add":"$14:"},{"Add":" %44 = phi i64 [%37, %$12] ; # B"},{"Add":" %45 = phi i64 [%34, %$12] ; # N"},{"Add":"; # (consNum N B)"},{"Add":" %46 = call i64 @consNum(i64 %45, i64 %44)"},{"Add":"; # (zapZero (consNum N B))"},{"Add":" %47 = call i64 @zapZero(i64 %46)"},{"Add":" br label %$15"},{"Add":"$15:"},{"Add":" %48 = phi i64 [%38, %$13], [%44, %$14] ; # B"},{"Add":" %49 = phi i64 [%39, %$13], [%45, %$14] ; # N"},{"Add":" %50 = phi i64 [%43, %$13], [%47, %$14] ; # ->"},{"Add":" br label %$2"},{"Add":"$11:"},{"Add":" %51 = phi i64 [%29, %$3] ; # B"},{"Add":" %52 = phi i64 [%30, %$3] ; # N"},{"Add":"; # (let (P (boxNum N B) R (save P)) (loop (setq N (sub (val (dig B))..."},{"Add":"; # (boxNum N B)"},{"Add":" %53 = call i64 @boxNum(i64 %52)"},{"Add":"; # (save P)"},{"Add":" %54 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %55 = load i64, i64* %54"},{"Add":" %56 = alloca i64, i64 2, align 16"},{"Add":" %57 = ptrtoint i64* %56 to i64"},{"Add":" %58 = inttoptr i64 %57 to i64*"},{"Add":" store i64 %53, i64* %58"},{"Add":" %59 = add i64 %57, 8"},{"Add":" %60 = inttoptr i64 %59 to i64*"},{"Add":" store i64 %55, i64* %60"},{"Add":" %61 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %57, i64* %61"},{"Add":"; # (loop (setq N (sub (val (dig B)) 1) B (val (big B))) (? (not @@) ..."},{"Add":" br label %$16"},{"Add":"$16:"},{"Add":" %62 = phi i64 [%51, %$11], [%97, %$20] ; # B"},{"Add":" %63 = phi i64 [%52, %$11], [%98, %$20] ; # N"},{"Add":" %64 = phi i64 [%53, %$11], [%99, %$20] ; # P"},{"Add":"; # (dig B)"},{"Add":" %65 = add i64 %62, -4"},{"Add":"; # (val (dig B))"},{"Add":" %66 = inttoptr i64 %65 to i64*"},{"Add":" %67 = load i64, i64* %66"},{"Add":"; # (sub (val (dig B)) 1)"},{"Add":" %68 = call {i64, i1} @llvm.usub.with.overflow.i64(i64 %67, i64 1)"},{"Add":" %69 = extractvalue {i64, i1} %68, 1"},{"Add":" %70 = extractvalue {i64, i1} %68, 0"},{"Add":"; # (big B)"},{"Add":" %71 = add i64 %62, 4"},{"Add":"; # (val (big B))"},{"Add":" %72 = inttoptr i64 %71 to i64*"},{"Add":" %73 = load i64, i64* %72"},{"Add":"; # (? (not @@) (set (big P) (consNum N B)))"},{"Add":"; # (not @@)"},{"Add":" %74 = icmp eq i1 %69, 0"},{"Add":" br i1 %74, label %$19, label %$17"},{"Add":"$19:"},{"Add":" %75 = phi i64 [%73, %$16] ; # B"},{"Add":" %76 = phi i64 [%70, %$16] ; # N"},{"Add":" %77 = phi i64 [%64, %$16] ; # P"},{"Add":"; # (set (big P) (consNum N B))"},{"Add":"; # (big P)"},{"Add":" %78 = add i64 %77, 4"},{"Add":"; # (consNum N B)"},{"Add":" %79 = call i64 @consNum(i64 %76, i64 %75)"},{"Add":" %80 = inttoptr i64 %78 to i64*"},{"Add":" store i64 %79, i64* %80"},{"Add":" br label %$18"},{"Add":"$17:"},{"Add":" %81 = phi i64 [%73, %$16] ; # B"},{"Add":" %82 = phi i64 [%70, %$16] ; # N"},{"Add":" %83 = phi i64 [%64, %$16] ; # P"},{"Add":"; # (set (big P) (consNum N B))"},{"Add":"; # (big P)"},{"Add":" %84 = add i64 %83, 4"},{"Add":"; # (consNum N B)"},{"Add":" %85 = call i64 @consNum(i64 %82, i64 %81)"},{"Add":" %86 = inttoptr i64 %84 to i64*"},{"Add":" store i64 %85, i64* %86"},{"Add":"; # (? (cnt? B) (set (big P) (sub B (hex \"10\"))))"},{"Add":"; # (cnt? B)"},{"Add":" %87 = and i64 %81, 2"},{"Add":" %88 = icmp ne i64 %87, 0"},{"Add":" br i1 %88, label %$21, label %$20"},{"Add":"$21:"},{"Add":" %89 = phi i64 [%81, %$17] ; # B"},{"Add":" %90 = phi i64 [%82, %$17] ; # N"},{"Add":" %91 = phi i64 [%85, %$17] ; # P"},{"Add":"; # (set (big P) (sub B (hex \"10\")))"},{"Add":"; # (big P)"},{"Add":" %92 = add i64 %91, 4"},{"Add":"; # (sub B (hex \"10\"))"},{"Add":" %93 = call {i64, i1} @llvm.usub.with.overflow.i64(i64 %89, i64 16)"},{"Add":" %94 = extractvalue {i64, i1} %93, 1"},{"Add":" %95 = extractvalue {i64, i1} %93, 0"},{"Add":" %96 = inttoptr i64 %92 to i64*"},{"Add":" store i64 %95, i64* %96"},{"Add":" br label %$18"},{"Add":"$20:"},{"Add":" %97 = phi i64 [%81, %$17] ; # B"},{"Add":" %98 = phi i64 [%82, %$17] ; # N"},{"Add":" %99 = phi i64 [%85, %$17] ; # P"},{"Add":" br label %$16"},{"Add":"$18:"},{"Add":" %100 = phi i64 [%75, %$19], [%89, %$21] ; # B"},{"Add":" %101 = phi i64 [%76, %$19], [%90, %$21] ; # N"},{"Add":" %102 = phi i64 [%77, %$19], [%91, %$21] ; # P"},{"Add":" %103 = phi i64 [%79, %$19], [%95, %$21] ; # ->"},{"Add":"; # (zapZero R)"},{"Add":" %104 = call i64 @zapZero(i64 %53)"},{"Add":"; # (drop *Safe)"},{"Add":" %105 = inttoptr i64 %57 to i64*"},{"Add":" %106 = getelementptr i64, i64* %105, i32 1"},{"Add":" %107 = load i64, i64* %106"},{"Add":" %108 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %107, i64* %108"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %109 = phi i64 [%26, %$7], [%48, %$15], [%100, %$18] ; # B"},{"Add":" %110 = phi i64 [%27, %$7], [%49, %$15], [%101, %$18] ; # N"},{"Add":" %111 = phi i64 [%28, %$7], [%50, %$15], [%104, %$18] ; # ->"},{"Add":" ret i64 %111"},{"Add":"}"},{"Add":""},{"Add":"define i64 @subu(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (cond ((cnt? A) (if (cnt? B) (let N (sub A (& B -3)) (if @@ (+ (x..."},{"Add":"; # (cnt? A)"},{"Add":" %2 = and i64 %0, 2"},{"Add":" %3 = icmp ne i64 %2, 0"},{"Add":" br i1 %3, label %$4, label %$3"},{"Add":"$4:"},{"Add":" %4 = phi i64 [%0, %$1] ; # A"},{"Add":" %5 = phi i64 [%1, %$1] ; # B"},{"Add":"; # (if (cnt? B) (let N (sub A (& B -3)) (if @@ (+ (x| N -16) (hex \"1..."},{"Add":"; # (cnt? B)"},{"Add":" %6 = and i64 %5, 2"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$5, label %$6"},{"Add":"$5:"},{"Add":" %8 = phi i64 [%4, %$4] ; # A"},{"Add":" %9 = phi i64 [%5, %$4] ; # B"},{"Add":"; # (let N (sub A (& B -3)) (if @@ (+ (x| N -16) (hex \"18\")) N))"},{"Add":"; # (& B -3)"},{"Add":" %10 = and i64 %9, -3"},{"Add":"; # (sub A (& B -3))"},{"Add":" %11 = call {i64, i1} @llvm.usub.with.overflow.i64(i64 %8, i64 %10)"},{"Add":" %12 = extractvalue {i64, i1} %11, 1"},{"Add":" %13 = extractvalue {i64, i1} %11, 0"},{"Add":"; # (if @@ (+ (x| N -16) (hex \"18\")) N)"},{"Add":" br i1 %12, label %$8, label %$9"},{"Add":"$8:"},{"Add":" %14 = phi i64 [%8, %$5] ; # A"},{"Add":" %15 = phi i64 [%9, %$5] ; # B"},{"Add":"; # (x| N -16)"},{"Add":" %16 = xor i64 %13, -16"},{"Add":"; # (+ (x| N -16) (hex \"18\"))"},{"Add":" %17 = add i64 %16, 24"},{"Add":" br label %$10"},{"Add":"$9:"},{"Add":" %18 = phi i64 [%8, %$5] ; # A"},{"Add":" %19 = phi i64 [%9, %$5] ; # B"},{"Add":" br label %$10"},{"Add":"$10:"},{"Add":" %20 = phi i64 [%14, %$8], [%18, %$9] ; # A"},{"Add":" %21 = phi i64 [%15, %$8], [%19, %$9] ; # B"},{"Add":" %22 = phi i64 [%17, %$8], [%13, %$9] ; # ->"},{"Add":" br label %$7"},{"Add":"$6:"},{"Add":" %23 = phi i64 [%4, %$4] ; # A"},{"Add":" %24 = phi i64 [%5, %$4] ; # B"},{"Add":"; # (sub1 B A)"},{"Add":" %25 = call i64 @sub1(i64 %24, i64 %23)"},{"Add":"; # (neg (sub1 B A))"},{"Add":" %26 = icmp eq i64 %25, 2"},{"Add":" br i1 %26, label %$11, label %$12"},{"Add":"$11:"},{"Add":" br label %$13"},{"Add":"$12:"},{"Add":" %27 = xor i64 %25, 8"},{"Add":" br label %$13"},{"Add":"$13:"},{"Add":" %28 = phi i64 [%25, %$11], [%27, %$12] ; # ->"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %29 = phi i64 [%20, %$10], [%23, %$13] ; # A"},{"Add":" %30 = phi i64 [%21, %$10], [%24, %$13] ; # B"},{"Add":" %31 = phi i64 [%22, %$10], [%28, %$13] ; # ->"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %32 = phi i64 [%0, %$1] ; # A"},{"Add":" %33 = phi i64 [%1, %$1] ; # B"},{"Add":"; # (cnt? B)"},{"Add":" %34 = and i64 %33, 2"},{"Add":" %35 = icmp ne i64 %34, 0"},{"Add":" br i1 %35, label %$15, label %$14"},{"Add":"$15:"},{"Add":" %36 = phi i64 [%32, %$3] ; # A"},{"Add":" %37 = phi i64 [%33, %$3] ; # B"},{"Add":"; # (sub1 A B)"},{"Add":" %38 = call i64 @sub1(i64 %36, i64 %37)"},{"Add":" br label %$2"},{"Add":"$14:"},{"Add":" %39 = phi i64 [%32, %$3] ; # A"},{"Add":" %40 = phi i64 [%33, %$3] ; # B"},{"Add":"; # (let (N (sub (val (dig A)) (val (dig B))) C @@ P (boxNum N) R (sa..."},{"Add":"; # (dig A)"},{"Add":" %41 = add i64 %39, -4"},{"Add":"; # (val (dig A))"},{"Add":" %42 = inttoptr i64 %41 to i64*"},{"Add":" %43 = load i64, i64* %42"},{"Add":"; # (dig B)"},{"Add":" %44 = add i64 %40, -4"},{"Add":"; # (val (dig B))"},{"Add":" %45 = inttoptr i64 %44 to i64*"},{"Add":" %46 = load i64, i64* %45"},{"Add":"; # (sub (val (dig A)) (val (dig B)))"},{"Add":" %47 = call {i64, i1} @llvm.usub.with.overflow.i64(i64 %43, i64 %46)"},{"Add":" %48 = extractvalue {i64, i1} %47, 1"},{"Add":" %49 = extractvalue {i64, i1} %47, 0"},{"Add":"; # (boxNum N)"},{"Add":" %50 = call i64 @boxNum(i64 %49)"},{"Add":"; # (save P)"},{"Add":" %51 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %52 = load i64, i64* %51"},{"Add":" %53 = alloca i64, i64 2, align 16"},{"Add":" %54 = ptrtoint i64* %53 to i64"},{"Add":" %55 = inttoptr i64 %54 to i64*"},{"Add":" store i64 %50, i64* %55"},{"Add":" %56 = add i64 %54, 8"},{"Add":" %57 = inttoptr i64 %56 to i64*"},{"Add":" store i64 %52, i64* %57"},{"Add":" %58 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %54, i64* %58"},{"Add":"; # (loop (setq A (val (big A)) B (val (big B))) (? (cnt? B) (setq B ..."},{"Add":" br label %$16"},{"Add":"$16:"},{"Add":" %59 = phi i64 [%39, %$14], [%177, %$25] ; # A"},{"Add":" %60 = phi i64 [%40, %$14], [%178, %$25] ; # B"},{"Add":" %61 = phi i64 [%49, %$14], [%195, %$25] ; # N"},{"Add":" %62 = phi i1 [%48, %$14], [%194, %$25] ; # C"},{"Add":" %63 = phi i64 [%50, %$14], [%197, %$25] ; # P"},{"Add":"; # (big A)"},{"Add":" %64 = add i64 %59, 4"},{"Add":"; # (val (big A))"},{"Add":" %65 = inttoptr i64 %64 to i64*"},{"Add":" %66 = load i64, i64* %65"},{"Add":"; # (big B)"},{"Add":" %67 = add i64 %60, 4"},{"Add":"; # (val (big B))"},{"Add":" %68 = inttoptr i64 %67 to i64*"},{"Add":" %69 = load i64, i64* %68"},{"Add":"; # (? (cnt? B) (setq B (int B)) (until (cnt? A) (setq N (sub (val (d..."},{"Add":"; # (cnt? B)"},{"Add":" %70 = and i64 %69, 2"},{"Add":" %71 = icmp ne i64 %70, 0"},{"Add":" br i1 %71, label %$19, label %$17"},{"Add":"$19:"},{"Add":" %72 = phi i64 [%66, %$16] ; # A"},{"Add":" %73 = phi i64 [%69, %$16] ; # B"},{"Add":" %74 = phi i64 [%61, %$16] ; # N"},{"Add":" %75 = phi i1 [%62, %$16] ; # C"},{"Add":" %76 = phi i64 [%63, %$16] ; # P"},{"Add":"; # (int B)"},{"Add":" %77 = lshr i64 %73, 4"},{"Add":"; # (until (cnt? A) (setq N (sub (val (dig A)) B C) C @@ A (val (big ..."},{"Add":" br label %$20"},{"Add":"$20:"},{"Add":" %78 = phi i64 [%72, %$19], [%117, %$24] ; # A"},{"Add":" %79 = phi i64 [%77, %$19], [0, %$24] ; # B"},{"Add":" %80 = phi i64 [%74, %$19], [%119, %$24] ; # N"},{"Add":" %81 = phi i1 [%75, %$19], [%120, %$24] ; # C"},{"Add":" %82 = phi i64 [%76, %$19], [%121, %$24] ; # P"},{"Add":"; # (cnt? A)"},{"Add":" %83 = and i64 %78, 2"},{"Add":" %84 = icmp ne i64 %83, 0"},{"Add":" br i1 %84, label %$22, label %$21"},{"Add":"$21:"},{"Add":" %85 = phi i64 [%78, %$20] ; # A"},{"Add":" %86 = phi i64 [%79, %$20] ; # B"},{"Add":" %87 = phi i64 [%80, %$20] ; # N"},{"Add":" %88 = phi i1 [%81, %$20] ; # C"},{"Add":" %89 = phi i64 [%82, %$20] ; # P"},{"Add":"; # (dig A)"},{"Add":" %90 = add i64 %85, -4"},{"Add":"; # (val (dig A))"},{"Add":" %91 = inttoptr i64 %90 to i64*"},{"Add":" %92 = load i64, i64* %91"},{"Add":"; # (sub (val (dig A)) B C)"},{"Add":" %93 = call {i64, i1} @llvm.usub.with.overflow.i64(i64 %92, i64 %86)"},{"Add":" %94 = extractvalue {i64, i1} %93, 1"},{"Add":" %95 = extractvalue {i64, i1} %93, 0"},{"Add":" %96 = zext i1 %88 to i64"},{"Add":" %97 = call {i64, i1} @llvm.usub.with.overflow.i64(i64 %95, i64 %96)"},{"Add":" %98 = extractvalue {i64, i1} %97, 1"},{"Add":" %99 = or i1 %94, %98"},{"Add":" %100 = extractvalue {i64, i1} %97, 0"},{"Add":"; # (big A)"},{"Add":" %101 = add i64 %85, 4"},{"Add":"; # (val (big A))"},{"Add":" %102 = inttoptr i64 %101 to i64*"},{"Add":" %103 = load i64, i64* %102"},{"Add":"; # (set (big P) (consNum N A))"},{"Add":"; # (big P)"},{"Add":" %104 = add i64 %89, 4"},{"Add":"; # (consNum N A)"},{"Add":" %105 = call i64 @consNum(i64 %100, i64 %103)"},{"Add":" %106 = inttoptr i64 %104 to i64*"},{"Add":" store i64 %105, i64* %106"},{"Add":"; # (unless C (ret (zapZero R)))"},{"Add":" br i1 %99, label %$24, label %$23"},{"Add":"$23:"},{"Add":" %107 = phi i64 [%103, %$21] ; # A"},{"Add":" %108 = phi i64 [%86, %$21] ; # B"},{"Add":" %109 = phi i64 [%100, %$21] ; # N"},{"Add":" %110 = phi i1 [%99, %$21] ; # C"},{"Add":" %111 = phi i64 [%105, %$21] ; # P"},{"Add":"; # (zapZero R)"},{"Add":" %112 = call i64 @zapZero(i64 %50)"},{"Add":"; # (ret (zapZero R))"},{"Add":"; # (drop *Safe)"},{"Add":" %113 = inttoptr i64 %54 to i64*"},{"Add":" %114 = getelementptr i64, i64* %113, i32 1"},{"Add":" %115 = load i64, i64* %114"},{"Add":" %116 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %115, i64* %116"},{"Add":" ret i64 %112"},{"Add":"$24:"},{"Add":" %117 = phi i64 [%103, %$21] ; # A"},{"Add":" %118 = phi i64 [%86, %$21] ; # B"},{"Add":" %119 = phi i64 [%100, %$21] ; # N"},{"Add":" %120 = phi i1 [%99, %$21] ; # C"},{"Add":" %121 = phi i64 [%105, %$21] ; # P"},{"Add":" br label %$20"},{"Add":"$22:"},{"Add":" %122 = phi i64 [%78, %$20] ; # A"},{"Add":" %123 = phi i64 [%79, %$20] ; # B"},{"Add":" %124 = phi i64 [%80, %$20] ; # N"},{"Add":" %125 = phi i1 [%81, %$20] ; # C"},{"Add":" %126 = phi i64 [%82, %$20] ; # P"},{"Add":"; # (int A)"},{"Add":" %127 = lshr i64 %122, 4"},{"Add":" br label %$18"},{"Add":"$17:"},{"Add":" %128 = phi i64 [%66, %$16] ; # A"},{"Add":" %129 = phi i64 [%69, %$16] ; # B"},{"Add":" %130 = phi i64 [%61, %$16] ; # N"},{"Add":" %131 = phi i1 [%62, %$16] ; # C"},{"Add":" %132 = phi i64 [%63, %$16] ; # P"},{"Add":"; # (? (cnt? A) (setq A (int A)) (loop (setq N (sub A (val (dig B)) C..."},{"Add":"; # (cnt? A)"},{"Add":" %133 = and i64 %128, 2"},{"Add":" %134 = icmp ne i64 %133, 0"},{"Add":" br i1 %134, label %$26, label %$25"},{"Add":"$26:"},{"Add":" %135 = phi i64 [%128, %$17] ; # A"},{"Add":" %136 = phi i64 [%129, %$17] ; # B"},{"Add":" %137 = phi i64 [%130, %$17] ; # N"},{"Add":" %138 = phi i1 [%131, %$17] ; # C"},{"Add":" %139 = phi i64 [%132, %$17] ; # P"},{"Add":"; # (int A)"},{"Add":" %140 = lshr i64 %135, 4"},{"Add":"; # (loop (setq N (sub A (val (dig B)) C) C @@ P (set (big P) (boxNum..."},{"Add":" br label %$27"},{"Add":"$27:"},{"Add":" %141 = phi i64 [%140, %$26], [%165, %$28] ; # A"},{"Add":" %142 = phi i64 [%136, %$26], [%166, %$28] ; # B"},{"Add":" %143 = phi i64 [%137, %$26], [%167, %$28] ; # N"},{"Add":" %144 = phi i1 [%138, %$26], [%168, %$28] ; # C"},{"Add":" %145 = phi i64 [%139, %$26], [%169, %$28] ; # P"},{"Add":"; # (dig B)"},{"Add":" %146 = add i64 %142, -4"},{"Add":"; # (val (dig B))"},{"Add":" %147 = inttoptr i64 %146 to i64*"},{"Add":" %148 = load i64, i64* %147"},{"Add":"; # (sub A (val (dig B)) C)"},{"Add":" %149 = call {i64, i1} @llvm.usub.with.overflow.i64(i64 %141, i64 %148)"},{"Add":" %150 = extractvalue {i64, i1} %149, 1"},{"Add":" %151 = extractvalue {i64, i1} %149, 0"},{"Add":" %152 = zext i1 %144 to i64"},{"Add":" %153 = call {i64, i1} @llvm.usub.with.overflow.i64(i64 %151, i64 %152)"},{"Add":" %154 = extractvalue {i64, i1} %153, 1"},{"Add":" %155 = or i1 %150, %154"},{"Add":" %156 = extractvalue {i64, i1} %153, 0"},{"Add":"; # (set (big P) (boxNum N))"},{"Add":"; # (big P)"},{"Add":" %157 = add i64 %145, 4"},{"Add":"; # (boxNum N)"},{"Add":" %158 = call i64 @boxNum(i64 %156)"},{"Add":" %159 = inttoptr i64 %157 to i64*"},{"Add":" store i64 %158, i64* %159"},{"Add":"; # (? (cnt? (setq B (val (big B)))))"},{"Add":"; # (big B)"},{"Add":" %160 = add i64 %142, 4"},{"Add":"; # (val (big B))"},{"Add":" %161 = inttoptr i64 %160 to i64*"},{"Add":" %162 = load i64, i64* %161"},{"Add":"; # (cnt? (setq B (val (big B))))"},{"Add":" %163 = and i64 %162, 2"},{"Add":" %164 = icmp ne i64 %163, 0"},{"Add":" br i1 %164, label %$29, label %$28"},{"Add":"$28:"},{"Add":" %165 = phi i64 [0, %$27] ; # A"},{"Add":" %166 = phi i64 [%162, %$27] ; # B"},{"Add":" %167 = phi i64 [%156, %$27] ; # N"},{"Add":" %168 = phi i1 [%155, %$27] ; # C"},{"Add":" %169 = phi i64 [%158, %$27] ; # P"},{"Add":" br label %$27"},{"Add":"$29:"},{"Add":" %170 = phi i64 [0, %$27] ; # A"},{"Add":" %171 = phi i64 [%162, %$27] ; # B"},{"Add":" %172 = phi i64 [%156, %$27] ; # N"},{"Add":" %173 = phi i1 [%155, %$27] ; # C"},{"Add":" %174 = phi i64 [%158, %$27] ; # P"},{"Add":" %175 = phi i64 [0, %$27] ; # ->"},{"Add":"; # (int B)"},{"Add":" %176 = lshr i64 %171, 4"},{"Add":" br label %$18"},{"Add":"$25:"},{"Add":" %177 = phi i64 [%128, %$17] ; # A"},{"Add":" %178 = phi i64 [%129, %$17] ; # B"},{"Add":" %179 = phi i64 [%130, %$17] ; # N"},{"Add":" %180 = phi i1 [%131, %$17] ; # C"},{"Add":" %181 = phi i64 [%132, %$17] ; # P"},{"Add":"; # (dig A)"},{"Add":" %182 = add i64 %177, -4"},{"Add":"; # (val (dig A))"},{"Add":" %183 = inttoptr i64 %182 to i64*"},{"Add":" %184 = load i64, i64* %183"},{"Add":"; # (dig B)"},{"Add":" %185 = add i64 %178, -4"},{"Add":"; # (val (dig B))"},{"Add":" %186 = inttoptr i64 %185 to i64*"},{"Add":" %187 = load i64, i64* %186"},{"Add":"; # (sub (val (dig A)) (val (dig B)) C)"},{"Add":" %188 = call {i64, i1} @llvm.usub.with.overflow.i64(i64 %184, i64 %187)"},{"Add":" %189 = extractvalue {i64, i1} %188, 1"},{"Add":" %190 = extractvalue {i64, i1} %188, 0"},{"Add":" %191 = zext i1 %180 to i64"},{"Add":" %192 = call {i64, i1} @llvm.usub.with.overflow.i64(i64 %190, i64 %191)"},{"Add":" %193 = extractvalue {i64, i1} %192, 1"},{"Add":" %194 = or i1 %189, %193"},{"Add":" %195 = extractvalue {i64, i1} %192, 0"},{"Add":"; # (set (big P) (boxNum N))"},{"Add":"; # (big P)"},{"Add":" %196 = add i64 %181, 4"},{"Add":"; # (boxNum N)"},{"Add":" %197 = call i64 @boxNum(i64 %195)"},{"Add":" %198 = inttoptr i64 %196 to i64*"},{"Add":" store i64 %197, i64* %198"},{"Add":" br label %$16"},{"Add":"$18:"},{"Add":" %199 = phi i64 [%127, %$22], [%170, %$29] ; # A"},{"Add":" %200 = phi i64 [%123, %$22], [%176, %$29] ; # B"},{"Add":" %201 = phi i64 [%124, %$22], [%172, %$29] ; # N"},{"Add":" %202 = phi i1 [%125, %$22], [%173, %$29] ; # C"},{"Add":" %203 = phi i64 [%126, %$22], [%174, %$29] ; # P"},{"Add":" %204 = phi i64 [%127, %$22], [%176, %$29] ; # ->"},{"Add":"; # (set (big P) (cnt (sub A B C)))"},{"Add":"; # (big P)"},{"Add":" %205 = add i64 %203, 4"},{"Add":"; # (sub A B C)"},{"Add":" %206 = call {i64, i1} @llvm.usub.with.overflow.i64(i64 %199, i64 %200)"},{"Add":" %207 = extractvalue {i64, i1} %206, 1"},{"Add":" %208 = extractvalue {i64, i1} %206, 0"},{"Add":" %209 = zext i1 %202 to i64"},{"Add":" %210 = call {i64, i1} @llvm.usub.with.overflow.i64(i64 %208, i64 %209)"},{"Add":" %211 = extractvalue {i64, i1} %210, 1"},{"Add":" %212 = or i1 %207, %211"},{"Add":" %213 = extractvalue {i64, i1} %210, 0"},{"Add":"; # (cnt (sub A B C))"},{"Add":" %214 = shl i64 %213, 4"},{"Add":" %215 = or i64 %214, 2"},{"Add":" %216 = inttoptr i64 %205 to i64*"},{"Add":" store i64 %215, i64* %216"},{"Add":"; # (ifn @@ (zapZero R) (let Q R (loop (set (dig Q) (x| (val (dig Q))..."},{"Add":" br i1 %212, label %$31, label %$30"},{"Add":"$30:"},{"Add":" %217 = phi i64 [%199, %$18] ; # A"},{"Add":" %218 = phi i64 [%200, %$18] ; # B"},{"Add":" %219 = phi i64 [%201, %$18] ; # N"},{"Add":" %220 = phi i1 [%202, %$18] ; # C"},{"Add":" %221 = phi i64 [%203, %$18] ; # P"},{"Add":"; # (zapZero R)"},{"Add":" %222 = call i64 @zapZero(i64 %50)"},{"Add":" br label %$32"},{"Add":"$31:"},{"Add":" %223 = phi i64 [%199, %$18] ; # A"},{"Add":" %224 = phi i64 [%200, %$18] ; # B"},{"Add":" %225 = phi i64 [%201, %$18] ; # N"},{"Add":" %226 = phi i1 [%202, %$18] ; # C"},{"Add":" %227 = phi i64 [%203, %$18] ; # P"},{"Add":"; # (let Q R (loop (set (dig Q) (x| (val (dig Q)) -1)) (? (cnt? (setq..."},{"Add":"; # (loop (set (dig Q) (x| (val (dig Q)) -1)) (? (cnt? (setq N (val (..."},{"Add":" br label %$33"},{"Add":"$33:"},{"Add":" %228 = phi i64 [%223, %$31], [%245, %$34] ; # A"},{"Add":" %229 = phi i64 [%224, %$31], [%246, %$34] ; # B"},{"Add":" %230 = phi i64 [%225, %$31], [%247, %$34] ; # N"},{"Add":" %231 = phi i1 [%226, %$31], [%248, %$34] ; # C"},{"Add":" %232 = phi i64 [%227, %$31], [%249, %$34] ; # P"},{"Add":" %233 = phi i64 [%50, %$31], [%247, %$34] ; # Q"},{"Add":"; # (set (dig Q) (x| (val (dig Q)) -1))"},{"Add":"; # (dig Q)"},{"Add":" %234 = add i64 %233, -4"},{"Add":"; # (dig Q)"},{"Add":" %235 = add i64 %233, -4"},{"Add":"; # (val (dig Q))"},{"Add":" %236 = inttoptr i64 %235 to i64*"},{"Add":" %237 = load i64, i64* %236"},{"Add":"; # (x| (val (dig Q)) -1)"},{"Add":" %238 = xor i64 %237, -1"},{"Add":" %239 = inttoptr i64 %234 to i64*"},{"Add":" store i64 %238, i64* %239"},{"Add":"; # (? (cnt? (setq N (val (big Q)))))"},{"Add":"; # (big Q)"},{"Add":" %240 = add i64 %233, 4"},{"Add":"; # (val (big Q))"},{"Add":" %241 = inttoptr i64 %240 to i64*"},{"Add":" %242 = load i64, i64* %241"},{"Add":"; # (cnt? (setq N (val (big Q))))"},{"Add":" %243 = and i64 %242, 2"},{"Add":" %244 = icmp ne i64 %243, 0"},{"Add":" br i1 %244, label %$35, label %$34"},{"Add":"$34:"},{"Add":" %245 = phi i64 [%228, %$33] ; # A"},{"Add":" %246 = phi i64 [%229, %$33] ; # B"},{"Add":" %247 = phi i64 [%242, %$33] ; # N"},{"Add":" %248 = phi i1 [%231, %$33] ; # C"},{"Add":" %249 = phi i64 [%232, %$33] ; # P"},{"Add":" %250 = phi i64 [%233, %$33] ; # Q"},{"Add":" br label %$33"},{"Add":"$35:"},{"Add":" %251 = phi i64 [%228, %$33] ; # A"},{"Add":" %252 = phi i64 [%229, %$33] ; # B"},{"Add":" %253 = phi i64 [%242, %$33] ; # N"},{"Add":" %254 = phi i1 [%231, %$33] ; # C"},{"Add":" %255 = phi i64 [%232, %$33] ; # P"},{"Add":" %256 = phi i64 [%233, %$33] ; # Q"},{"Add":" %257 = phi i64 [0, %$33] ; # ->"},{"Add":"; # (set (big Q) (x| N -16))"},{"Add":"; # (big Q)"},{"Add":" %258 = add i64 %256, 4"},{"Add":"; # (x| N -16)"},{"Add":" %259 = xor i64 %253, -16"},{"Add":" %260 = inttoptr i64 %258 to i64*"},{"Add":" store i64 %259, i64* %260"},{"Add":"; # (let Q R (loop (set (dig Q) (add (val (dig Q)) 1)) (unless @@ (go..."},{"Add":"; # (loop (set (dig Q) (add (val (dig Q)) 1)) (unless @@ (goto 9)) (?..."},{"Add":" br label %$36"},{"Add":"$36:"},{"Add":" %261 = phi i64 [%251, %$35], [%292, %$39] ; # A"},{"Add":" %262 = phi i64 [%252, %$35], [%293, %$39] ; # B"},{"Add":" %263 = phi i64 [%253, %$35], [%294, %$39] ; # N"},{"Add":" %264 = phi i1 [%254, %$35], [%295, %$39] ; # C"},{"Add":" %265 = phi i64 [%255, %$35], [%296, %$39] ; # P"},{"Add":" %266 = phi i64 [%50, %$35], [%294, %$39] ; # Q"},{"Add":"; # (set (dig Q) (add (val (dig Q)) 1))"},{"Add":"; # (dig Q)"},{"Add":" %267 = add i64 %266, -4"},{"Add":"; # (dig Q)"},{"Add":" %268 = add i64 %266, -4"},{"Add":"; # (val (dig Q))"},{"Add":" %269 = inttoptr i64 %268 to i64*"},{"Add":" %270 = load i64, i64* %269"},{"Add":"; # (add (val (dig Q)) 1)"},{"Add":" %271 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %270, i64 1)"},{"Add":" %272 = extractvalue {i64, i1} %271, 1"},{"Add":" %273 = extractvalue {i64, i1} %271, 0"},{"Add":" %274 = inttoptr i64 %267 to i64*"},{"Add":" store i64 %273, i64* %274"},{"Add":"; # (unless @@ (goto 9))"},{"Add":" br i1 %272, label %$38, label %$37"},{"Add":"$37:"},{"Add":" %275 = phi i64 [%261, %$36] ; # A"},{"Add":" %276 = phi i64 [%262, %$36] ; # B"},{"Add":" %277 = phi i64 [%263, %$36] ; # N"},{"Add":" %278 = phi i1 [%264, %$36] ; # C"},{"Add":" %279 = phi i64 [%265, %$36] ; # P"},{"Add":" %280 = phi i64 [%266, %$36] ; # Q"},{"Add":"; # (goto 9)"},{"Add":" br label %$-9"},{"Add":"$38:"},{"Add":" %281 = phi i64 [%261, %$36] ; # A"},{"Add":" %282 = phi i64 [%262, %$36] ; # B"},{"Add":" %283 = phi i64 [%263, %$36] ; # N"},{"Add":" %284 = phi i1 [%264, %$36] ; # C"},{"Add":" %285 = phi i64 [%265, %$36] ; # P"},{"Add":" %286 = phi i64 [%266, %$36] ; # Q"},{"Add":"; # (? (cnt? (setq N (val (big Q)))))"},{"Add":"; # (big Q)"},{"Add":" %287 = add i64 %286, 4"},{"Add":"; # (val (big Q))"},{"Add":" %288 = inttoptr i64 %287 to i64*"},{"Add":" %289 = load i64, i64* %288"},{"Add":"; # (cnt? (setq N (val (big Q))))"},{"Add":" %290 = and i64 %289, 2"},{"Add":" %291 = icmp ne i64 %290, 0"},{"Add":" br i1 %291, label %$40, label %$39"},{"Add":"$39:"},{"Add":" %292 = phi i64 [%281, %$38] ; # A"},{"Add":" %293 = phi i64 [%282, %$38] ; # B"},{"Add":" %294 = phi i64 [%289, %$38] ; # N"},{"Add":" %295 = phi i1 [%284, %$38] ; # C"},{"Add":" %296 = phi i64 [%285, %$38] ; # P"},{"Add":" %297 = phi i64 [%286, %$38] ; # Q"},{"Add":" br label %$36"},{"Add":"$40:"},{"Add":" %298 = phi i64 [%281, %$38] ; # A"},{"Add":" %299 = phi i64 [%282, %$38] ; # B"},{"Add":" %300 = phi i64 [%289, %$38] ; # N"},{"Add":" %301 = phi i1 [%284, %$38] ; # C"},{"Add":" %302 = phi i64 [%285, %$38] ; # P"},{"Add":" %303 = phi i64 [%286, %$38] ; # Q"},{"Add":" %304 = phi i64 [0, %$38] ; # ->"},{"Add":"; # (set (big Q) (+ N (hex \"10\")))"},{"Add":"; # (big Q)"},{"Add":" %305 = add i64 %303, 4"},{"Add":"; # (+ N (hex \"10\"))"},{"Add":" %306 = add i64 %300, 16"},{"Add":" %307 = inttoptr i64 %305 to i64*"},{"Add":" store i64 %306, i64* %307"},{"Add":"; # (: 9 (sign (zapZero R)))"},{"Add":" br label %$-9"},{"Add":"$-9:"},{"Add":" %308 = phi i64 [%275, %$37], [%298, %$40] ; # A"},{"Add":" %309 = phi i64 [%276, %$37], [%299, %$40] ; # B"},{"Add":" %310 = phi i64 [%277, %$37], [%300, %$40] ; # N"},{"Add":" %311 = phi i1 [%278, %$37], [%301, %$40] ; # C"},{"Add":" %312 = phi i64 [%279, %$37], [%302, %$40] ; # P"},{"Add":"; # (zapZero R)"},{"Add":" %313 = call i64 @zapZero(i64 %50)"},{"Add":"; # (sign (zapZero R))"},{"Add":" %314 = or i64 %313, 8"},{"Add":" br label %$32"},{"Add":"$32:"},{"Add":" %315 = phi i64 [%217, %$30], [%308, %$-9] ; # A"},{"Add":" %316 = phi i64 [%218, %$30], [%309, %$-9] ; # B"},{"Add":" %317 = phi i64 [%219, %$30], [%310, %$-9] ; # N"},{"Add":" %318 = phi i1 [%220, %$30], [%311, %$-9] ; # C"},{"Add":" %319 = phi i64 [%221, %$30], [%312, %$-9] ; # P"},{"Add":" %320 = phi i64 [%222, %$30], [%314, %$-9] ; # ->"},{"Add":"; # (drop *Safe)"},{"Add":" %321 = inttoptr i64 %54 to i64*"},{"Add":" %322 = getelementptr i64, i64* %321, i32 1"},{"Add":" %323 = load i64, i64* %322"},{"Add":" %324 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %323, i64* %324"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %325 = phi i64 [%29, %$7], [%36, %$15], [%315, %$32] ; # A"},{"Add":" %326 = phi i64 [%30, %$7], [%37, %$15], [%316, %$32] ; # B"},{"Add":" %327 = phi i64 [%31, %$7], [%38, %$15], [%320, %$32] ; # ->"},{"Add":" ret i64 %327"},{"Add":"}"},{"Add":""},{"Add":"define i64 @mulu(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (cond ((== A ZERO) A) ((cnt? A) (setq A (int A)) (if (cnt? B) (le..."},{"Add":"; # (== A ZERO)"},{"Add":" %2 = icmp eq i64 %0, 2"},{"Add":" br i1 %2, label %$4, label %$3"},{"Add":"$4:"},{"Add":" %3 = phi i64 [%0, %$1] ; # A"},{"Add":" %4 = phi i64 [%1, %$1] ; # B"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %5 = phi i64 [%0, %$1] ; # A"},{"Add":" %6 = phi i64 [%1, %$1] ; # B"},{"Add":"; # (cnt? A)"},{"Add":" %7 = and i64 %5, 2"},{"Add":" %8 = icmp ne i64 %7, 0"},{"Add":" br i1 %8, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %9 = phi i64 [%5, %$3] ; # A"},{"Add":" %10 = phi i64 [%6, %$3] ; # B"},{"Add":"; # (int A)"},{"Add":" %11 = lshr i64 %9, 4"},{"Add":"; # (if (cnt? B) (let N (mul A (int B)) (if (or @@@ (& N (hex \"F00000..."},{"Add":"; # (cnt? B)"},{"Add":" %12 = and i64 %10, 2"},{"Add":" %13 = icmp ne i64 %12, 0"},{"Add":" br i1 %13, label %$7, label %$8"},{"Add":"$7:"},{"Add":" %14 = phi i64 [%11, %$6] ; # A"},{"Add":" %15 = phi i64 [%10, %$6] ; # B"},{"Add":"; # (let N (mul A (int B)) (if (or @@@ (& N (hex \"F000000000000000\"))..."},{"Add":"; # (int B)"},{"Add":" %16 = lshr i64 %15, 4"},{"Add":"; # (mul A (int B))"},{"Add":" %17 = zext i64 %14 to i128"},{"Add":" %18 = zext i64 %16 to i128"},{"Add":" %19 = mul i128 %17, %18"},{"Add":" %20 = lshr i128 %19, 64"},{"Add":" %21 = trunc i128 %20 to i64"},{"Add":" %22 = trunc i128 %19 to i64"},{"Add":"; # (if (or @@@ (& N (hex \"F000000000000000\"))) (consNum N (cnt @@@))..."},{"Add":"; # (or @@@ (& N (hex \"F000000000000000\")))"},{"Add":" %23 = icmp ne i64 %21, 0"},{"Add":" br i1 %23, label %$10, label %$11"},{"Add":"$11:"},{"Add":" %24 = phi i64 [%14, %$7] ; # A"},{"Add":" %25 = phi i64 [%15, %$7] ; # B"},{"Add":"; # (& N (hex \"F000000000000000\"))"},{"Add":" %26 = and i64 %22, 17293822569102704640"},{"Add":" %27 = icmp ne i64 %26, 0"},{"Add":" br label %$10"},{"Add":"$10:"},{"Add":" %28 = phi i64 [%14, %$7], [%24, %$11] ; # A"},{"Add":" %29 = phi i64 [%15, %$7], [%25, %$11] ; # B"},{"Add":" %30 = phi i1 [1, %$7], [%27, %$11] ; # ->"},{"Add":" br i1 %30, label %$12, label %$13"},{"Add":"$12:"},{"Add":" %31 = phi i64 [%28, %$10] ; # A"},{"Add":" %32 = phi i64 [%29, %$10] ; # B"},{"Add":"; # (cnt @@@)"},{"Add":" %33 = shl i64 %21, 4"},{"Add":" %34 = or i64 %33, 2"},{"Add":"; # (consNum N (cnt @@@))"},{"Add":" %35 = call i64 @consNum(i64 %22, i64 %34)"},{"Add":" br label %$14"},{"Add":"$13:"},{"Add":" %36 = phi i64 [%28, %$10] ; # A"},{"Add":" %37 = phi i64 [%29, %$10] ; # B"},{"Add":"; # (cnt N)"},{"Add":" %38 = shl i64 %22, 4"},{"Add":" %39 = or i64 %38, 2"},{"Add":" br label %$14"},{"Add":"$14:"},{"Add":" %40 = phi i64 [%31, %$12], [%36, %$13] ; # A"},{"Add":" %41 = phi i64 [%32, %$12], [%37, %$13] ; # B"},{"Add":" %42 = phi i64 [%35, %$12], [%39, %$13] ; # ->"},{"Add":" br label %$9"},{"Add":"$8:"},{"Add":" %43 = phi i64 [%11, %$6] ; # A"},{"Add":" %44 = phi i64 [%10, %$6] ; # B"},{"Add":"; # (: 1 (let (Lo (mul A (val (dig B))) Hi @@@ P (boxNum Lo) R (save ..."},{"Add":" br label %$-1"},{"Add":"$-1:"},{"Add":" %45 = phi i64 [%43, %$8], [%169, %$26] ; # A"},{"Add":" %46 = phi i64 [%44, %$8], [%167, %$26] ; # B"},{"Add":"; # (let (Lo (mul A (val (dig B))) Hi @@@ P (boxNum Lo) R (save P)) (..."},{"Add":"; # (dig B)"},{"Add":" %47 = add i64 %46, -4"},{"Add":"; # (val (dig B))"},{"Add":" %48 = inttoptr i64 %47 to i64*"},{"Add":" %49 = load i64, i64* %48"},{"Add":"; # (mul A (val (dig B)))"},{"Add":" %50 = zext i64 %45 to i128"},{"Add":" %51 = zext i64 %49 to i128"},{"Add":" %52 = mul i128 %50, %51"},{"Add":" %53 = lshr i128 %52, 64"},{"Add":" %54 = trunc i128 %53 to i64"},{"Add":" %55 = trunc i128 %52 to i64"},{"Add":"; # (boxNum Lo)"},{"Add":" %56 = call i64 @boxNum(i64 %55)"},{"Add":"; # (save P)"},{"Add":" %57 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %58 = load i64, i64* %57"},{"Add":" %59 = alloca i64, i64 2, align 16"},{"Add":" %60 = ptrtoint i64* %59 to i64"},{"Add":" %61 = inttoptr i64 %60 to i64*"},{"Add":" store i64 %56, i64* %61"},{"Add":" %62 = add i64 %60, 8"},{"Add":" %63 = inttoptr i64 %62 to i64*"},{"Add":" store i64 %58, i64* %63"},{"Add":" %64 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %60, i64* %64"},{"Add":"; # (while (big? (setq B (val (big B)))) (setq Lo (add (mul A (val (d..."},{"Add":" br label %$15"},{"Add":"$15:"},{"Add":" %65 = phi i64 [%45, %$-1], [%75, %$16] ; # A"},{"Add":" %66 = phi i64 [%46, %$-1], [%76, %$16] ; # B"},{"Add":" %67 = phi i64 [%55, %$-1], [%91, %$16] ; # Lo"},{"Add":" %68 = phi i64 [%54, %$-1], [%93, %$16] ; # Hi"},{"Add":" %69 = phi i64 [%56, %$-1], [%95, %$16] ; # P"},{"Add":"; # (big B)"},{"Add":" %70 = add i64 %66, 4"},{"Add":"; # (val (big B))"},{"Add":" %71 = inttoptr i64 %70 to i64*"},{"Add":" %72 = load i64, i64* %71"},{"Add":"; # (big? (setq B (val (big B))))"},{"Add":" %73 = and i64 %72, 4"},{"Add":" %74 = icmp ne i64 %73, 0"},{"Add":" br i1 %74, label %$16, label %$17"},{"Add":"$16:"},{"Add":" %75 = phi i64 [%65, %$15] ; # A"},{"Add":" %76 = phi i64 [%72, %$15] ; # B"},{"Add":" %77 = phi i64 [%67, %$15] ; # Lo"},{"Add":" %78 = phi i64 [%68, %$15] ; # Hi"},{"Add":" %79 = phi i64 [%69, %$15] ; # P"},{"Add":"; # (dig B)"},{"Add":" %80 = add i64 %76, -4"},{"Add":"; # (val (dig B))"},{"Add":" %81 = inttoptr i64 %80 to i64*"},{"Add":" %82 = load i64, i64* %81"},{"Add":"; # (mul A (val (dig B)))"},{"Add":" %83 = zext i64 %75 to i128"},{"Add":" %84 = zext i64 %82 to i128"},{"Add":" %85 = mul i128 %83, %84"},{"Add":" %86 = lshr i128 %85, 64"},{"Add":" %87 = trunc i128 %86 to i64"},{"Add":" %88 = trunc i128 %85 to i64"},{"Add":"; # (add (mul A (val (dig B))) Hi)"},{"Add":" %89 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %88, i64 %78)"},{"Add":" %90 = extractvalue {i64, i1} %89, 1"},{"Add":" %91 = extractvalue {i64, i1} %89, 0"},{"Add":"; # (+ @@@ @@)"},{"Add":" %92 = zext i1 %90 to i64"},{"Add":" %93 = add i64 %87, %92"},{"Add":"; # (set (big P) (boxNum Lo))"},{"Add":"; # (big P)"},{"Add":" %94 = add i64 %79, 4"},{"Add":"; # (boxNum Lo)"},{"Add":" %95 = call i64 @boxNum(i64 %91)"},{"Add":" %96 = inttoptr i64 %94 to i64*"},{"Add":" store i64 %95, i64* %96"},{"Add":" br label %$15"},{"Add":"$17:"},{"Add":" %97 = phi i64 [%65, %$15] ; # A"},{"Add":" %98 = phi i64 [%72, %$15] ; # B"},{"Add":" %99 = phi i64 [%67, %$15] ; # Lo"},{"Add":" %100 = phi i64 [%68, %$15] ; # Hi"},{"Add":" %101 = phi i64 [%69, %$15] ; # P"},{"Add":"; # (int B)"},{"Add":" %102 = lshr i64 %98, 4"},{"Add":"; # (mul A (int B))"},{"Add":" %103 = zext i64 %97 to i128"},{"Add":" %104 = zext i64 %102 to i128"},{"Add":" %105 = mul i128 %103, %104"},{"Add":" %106 = lshr i128 %105, 64"},{"Add":" %107 = trunc i128 %106 to i64"},{"Add":" %108 = trunc i128 %105 to i64"},{"Add":"; # (add (mul A (int B)) Hi)"},{"Add":" %109 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %108, i64 %100)"},{"Add":" %110 = extractvalue {i64, i1} %109, 1"},{"Add":" %111 = extractvalue {i64, i1} %109, 0"},{"Add":"; # (+ @@@ @@)"},{"Add":" %112 = zext i1 %110 to i64"},{"Add":" %113 = add i64 %107, %112"},{"Add":"; # (set (big P) (if (or Hi (& Lo (hex \"F000000000000000\"))) (consNum..."},{"Add":"; # (big P)"},{"Add":" %114 = add i64 %101, 4"},{"Add":"; # (if (or Hi (& Lo (hex \"F000000000000000\"))) (consNum Lo (cnt Hi))..."},{"Add":"; # (or Hi (& Lo (hex \"F000000000000000\")))"},{"Add":" %115 = icmp ne i64 %113, 0"},{"Add":" br i1 %115, label %$18, label %$19"},{"Add":"$19:"},{"Add":" %116 = phi i64 [%97, %$17] ; # A"},{"Add":" %117 = phi i64 [%98, %$17] ; # B"},{"Add":" %118 = phi i64 [%111, %$17] ; # Lo"},{"Add":" %119 = phi i64 [%113, %$17] ; # Hi"},{"Add":" %120 = phi i64 [%101, %$17] ; # P"},{"Add":"; # (& Lo (hex \"F000000000000000\"))"},{"Add":" %121 = and i64 %118, 17293822569102704640"},{"Add":" %122 = icmp ne i64 %121, 0"},{"Add":" br label %$18"},{"Add":"$18:"},{"Add":" %123 = phi i64 [%97, %$17], [%116, %$19] ; # A"},{"Add":" %124 = phi i64 [%98, %$17], [%117, %$19] ; # B"},{"Add":" %125 = phi i64 [%111, %$17], [%118, %$19] ; # Lo"},{"Add":" %126 = phi i64 [%113, %$17], [%119, %$19] ; # Hi"},{"Add":" %127 = phi i64 [%101, %$17], [%120, %$19] ; # P"},{"Add":" %128 = phi i1 [1, %$17], [%122, %$19] ; # ->"},{"Add":" br i1 %128, label %$20, label %$21"},{"Add":"$20:"},{"Add":" %129 = phi i64 [%123, %$18] ; # A"},{"Add":" %130 = phi i64 [%124, %$18] ; # B"},{"Add":" %131 = phi i64 [%125, %$18] ; # Lo"},{"Add":" %132 = phi i64 [%126, %$18] ; # Hi"},{"Add":" %133 = phi i64 [%127, %$18] ; # P"},{"Add":"; # (cnt Hi)"},{"Add":" %134 = shl i64 %132, 4"},{"Add":" %135 = or i64 %134, 2"},{"Add":"; # (consNum Lo (cnt Hi))"},{"Add":" %136 = call i64 @consNum(i64 %131, i64 %135)"},{"Add":" br label %$22"},{"Add":"$21:"},{"Add":" %137 = phi i64 [%123, %$18] ; # A"},{"Add":" %138 = phi i64 [%124, %$18] ; # B"},{"Add":" %139 = phi i64 [%125, %$18] ; # Lo"},{"Add":" %140 = phi i64 [%126, %$18] ; # Hi"},{"Add":" %141 = phi i64 [%127, %$18] ; # P"},{"Add":"; # (cnt Lo)"},{"Add":" %142 = shl i64 %139, 4"},{"Add":" %143 = or i64 %142, 2"},{"Add":" br label %$22"},{"Add":"$22:"},{"Add":" %144 = phi i64 [%129, %$20], [%137, %$21] ; # A"},{"Add":" %145 = phi i64 [%130, %$20], [%138, %$21] ; # B"},{"Add":" %146 = phi i64 [%131, %$20], [%139, %$21] ; # Lo"},{"Add":" %147 = phi i64 [%132, %$20], [%140, %$21] ; # Hi"},{"Add":" %148 = phi i64 [%133, %$20], [%141, %$21] ; # P"},{"Add":" %149 = phi i64 [%136, %$20], [%143, %$21] ; # ->"},{"Add":" %150 = inttoptr i64 %114 to i64*"},{"Add":" store i64 %149, i64* %150"},{"Add":"; # (drop *Safe)"},{"Add":" %151 = inttoptr i64 %60 to i64*"},{"Add":" %152 = getelementptr i64, i64* %151, i32 1"},{"Add":" %153 = load i64, i64* %152"},{"Add":" %154 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %153, i64* %154"},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %155 = phi i64 [%40, %$14], [%144, %$22] ; # A"},{"Add":" %156 = phi i64 [%41, %$14], [%145, %$22] ; # B"},{"Add":" %157 = phi i64 [%42, %$14], [%56, %$22] ; # ->"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":" %158 = phi i64 [%5, %$3] ; # A"},{"Add":" %159 = phi i64 [%6, %$3] ; # B"},{"Add":"; # (== B ZERO)"},{"Add":" %160 = icmp eq i64 %159, 2"},{"Add":" br i1 %160, label %$24, label %$23"},{"Add":"$24:"},{"Add":" %161 = phi i64 [%158, %$5] ; # A"},{"Add":" %162 = phi i64 [%159, %$5] ; # B"},{"Add":" br label %$2"},{"Add":"$23:"},{"Add":" %163 = phi i64 [%158, %$5] ; # A"},{"Add":" %164 = phi i64 [%159, %$5] ; # B"},{"Add":"; # (cnt? B)"},{"Add":" %165 = and i64 %164, 2"},{"Add":" %166 = icmp ne i64 %165, 0"},{"Add":" br i1 %166, label %$26, label %$25"},{"Add":"$26:"},{"Add":" %167 = phi i64 [%163, %$23] ; # A"},{"Add":" %168 = phi i64 [%164, %$23] ; # B"},{"Add":"; # (int B)"},{"Add":" %169 = lshr i64 %168, 4"},{"Add":"; # (xchg 'A 'B)"},{"Add":"; # (goto 1)"},{"Add":" br label %$-1"},{"Add":"$25:"},{"Add":" %170 = phi i64 [%163, %$23] ; # A"},{"Add":" %171 = phi i64 [%164, %$23] ; # B"},{"Add":"; # (let (P (boxNum 0) R (save P)) (loop (let (X A Q P Lo (add (mul (..."},{"Add":"; # (boxNum 0)"},{"Add":" %172 = call i64 @boxNum(i64 0)"},{"Add":"; # (save P)"},{"Add":" %173 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %174 = load i64, i64* %173"},{"Add":" %175 = alloca i64, i64 2, align 16"},{"Add":" %176 = ptrtoint i64* %175 to i64"},{"Add":" %177 = inttoptr i64 %176 to i64*"},{"Add":" store i64 %172, i64* %177"},{"Add":" %178 = add i64 %176, 8"},{"Add":" %179 = inttoptr i64 %178 to i64*"},{"Add":" store i64 %174, i64* %179"},{"Add":" %180 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %176, i64* %180"},{"Add":"; # (loop (let (X A Q P Lo (add (mul (val (dig X)) (val (dig B))) (va..."},{"Add":" br label %$27"},{"Add":"$27:"},{"Add":" %181 = phi i64 [%170, %$25], [%368, %$39] ; # A"},{"Add":" %182 = phi i64 [%171, %$25], [%369, %$39] ; # B"},{"Add":" %183 = phi i64 [%172, %$25], [%370, %$39] ; # P"},{"Add":"; # (let (X A Q P Lo (add (mul (val (dig X)) (val (dig B))) (val (dig..."},{"Add":"; # (dig X)"},{"Add":" %184 = add i64 %181, -4"},{"Add":"; # (val (dig X))"},{"Add":" %185 = inttoptr i64 %184 to i64*"},{"Add":" %186 = load i64, i64* %185"},{"Add":"; # (dig B)"},{"Add":" %187 = add i64 %182, -4"},{"Add":"; # (val (dig B))"},{"Add":" %188 = inttoptr i64 %187 to i64*"},{"Add":" %189 = load i64, i64* %188"},{"Add":"; # (mul (val (dig X)) (val (dig B)))"},{"Add":" %190 = zext i64 %186 to i128"},{"Add":" %191 = zext i64 %189 to i128"},{"Add":" %192 = mul i128 %190, %191"},{"Add":" %193 = lshr i128 %192, 64"},{"Add":" %194 = trunc i128 %193 to i64"},{"Add":" %195 = trunc i128 %192 to i64"},{"Add":"; # (dig Q)"},{"Add":" %196 = add i64 %183, -4"},{"Add":"; # (val (dig Q))"},{"Add":" %197 = inttoptr i64 %196 to i64*"},{"Add":" %198 = load i64, i64* %197"},{"Add":"; # (add (mul (val (dig X)) (val (dig B))) (val (dig Q)))"},{"Add":" %199 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %195, i64 %198)"},{"Add":" %200 = extractvalue {i64, i1} %199, 1"},{"Add":" %201 = extractvalue {i64, i1} %199, 0"},{"Add":"; # (+ @@@ @@)"},{"Add":" %202 = zext i1 %200 to i64"},{"Add":" %203 = add i64 %194, %202"},{"Add":"; # (loop (set (dig Q) Lo) (setq Q (if (cnt? (val (big Q))) (set (big..."},{"Add":" br label %$28"},{"Add":"$28:"},{"Add":" %204 = phi i64 [%181, %$27], [%248, %$32] ; # A"},{"Add":" %205 = phi i64 [%182, %$27], [%249, %$32] ; # B"},{"Add":" %206 = phi i64 [%183, %$27], [%250, %$32] ; # P"},{"Add":" %207 = phi i64 [%181, %$27], [%251, %$32] ; # X"},{"Add":" %208 = phi i64 [%183, %$27], [%252, %$32] ; # Q"},{"Add":" %209 = phi i64 [%201, %$27], [%277, %$32] ; # Lo"},{"Add":" %210 = phi i64 [%203, %$27], [%279, %$32] ; # Hi"},{"Add":"; # (set (dig Q) Lo)"},{"Add":"; # (dig Q)"},{"Add":" %211 = add i64 %208, -4"},{"Add":" %212 = inttoptr i64 %211 to i64*"},{"Add":" store i64 %209, i64* %212"},{"Add":"; # (if (cnt? (val (big Q))) (set (big Q) (boxNum 0)) @)"},{"Add":"; # (big Q)"},{"Add":" %213 = add i64 %208, 4"},{"Add":"; # (val (big Q))"},{"Add":" %214 = inttoptr i64 %213 to i64*"},{"Add":" %215 = load i64, i64* %214"},{"Add":"; # (cnt? (val (big Q)))"},{"Add":" %216 = and i64 %215, 2"},{"Add":" %217 = icmp ne i64 %216, 0"},{"Add":" br i1 %217, label %$29, label %$30"},{"Add":"$29:"},{"Add":" %218 = phi i64 [%204, %$28] ; # A"},{"Add":" %219 = phi i64 [%205, %$28] ; # B"},{"Add":" %220 = phi i64 [%206, %$28] ; # P"},{"Add":" %221 = phi i64 [%207, %$28] ; # X"},{"Add":" %222 = phi i64 [%208, %$28] ; # Q"},{"Add":" %223 = phi i64 [%209, %$28] ; # Lo"},{"Add":" %224 = phi i64 [%210, %$28] ; # Hi"},{"Add":"; # (set (big Q) (boxNum 0))"},{"Add":"; # (big Q)"},{"Add":" %225 = add i64 %222, 4"},{"Add":"; # (boxNum 0)"},{"Add":" %226 = call i64 @boxNum(i64 0)"},{"Add":" %227 = inttoptr i64 %225 to i64*"},{"Add":" store i64 %226, i64* %227"},{"Add":" br label %$31"},{"Add":"$30:"},{"Add":" %228 = phi i64 [%204, %$28] ; # A"},{"Add":" %229 = phi i64 [%205, %$28] ; # B"},{"Add":" %230 = phi i64 [%206, %$28] ; # P"},{"Add":" %231 = phi i64 [%207, %$28] ; # X"},{"Add":" %232 = phi i64 [%208, %$28] ; # Q"},{"Add":" %233 = phi i64 [%209, %$28] ; # Lo"},{"Add":" %234 = phi i64 [%210, %$28] ; # Hi"},{"Add":" br label %$31"},{"Add":"$31:"},{"Add":" %235 = phi i64 [%218, %$29], [%228, %$30] ; # A"},{"Add":" %236 = phi i64 [%219, %$29], [%229, %$30] ; # B"},{"Add":" %237 = phi i64 [%220, %$29], [%230, %$30] ; # P"},{"Add":" %238 = phi i64 [%221, %$29], [%231, %$30] ; # X"},{"Add":" %239 = phi i64 [%222, %$29], [%232, %$30] ; # Q"},{"Add":" %240 = phi i64 [%223, %$29], [%233, %$30] ; # Lo"},{"Add":" %241 = phi i64 [%224, %$29], [%234, %$30] ; # Hi"},{"Add":" %242 = phi i64 [%226, %$29], [%215, %$30] ; # ->"},{"Add":"; # (? (cnt? (setq X (val (big X)))))"},{"Add":"; # (big X)"},{"Add":" %243 = add i64 %238, 4"},{"Add":"; # (val (big X))"},{"Add":" %244 = inttoptr i64 %243 to i64*"},{"Add":" %245 = load i64, i64* %244"},{"Add":"; # (cnt? (setq X (val (big X))))"},{"Add":" %246 = and i64 %245, 2"},{"Add":" %247 = icmp ne i64 %246, 0"},{"Add":" br i1 %247, label %$33, label %$32"},{"Add":"$32:"},{"Add":" %248 = phi i64 [%235, %$31] ; # A"},{"Add":" %249 = phi i64 [%236, %$31] ; # B"},{"Add":" %250 = phi i64 [%237, %$31] ; # P"},{"Add":" %251 = phi i64 [%245, %$31] ; # X"},{"Add":" %252 = phi i64 [%242, %$31] ; # Q"},{"Add":" %253 = phi i64 [%240, %$31] ; # Lo"},{"Add":" %254 = phi i64 [%241, %$31] ; # Hi"},{"Add":"; # (dig X)"},{"Add":" %255 = add i64 %251, -4"},{"Add":"; # (val (dig X))"},{"Add":" %256 = inttoptr i64 %255 to i64*"},{"Add":" %257 = load i64, i64* %256"},{"Add":"; # (dig B)"},{"Add":" %258 = add i64 %249, -4"},{"Add":"; # (val (dig B))"},{"Add":" %259 = inttoptr i64 %258 to i64*"},{"Add":" %260 = load i64, i64* %259"},{"Add":"; # (mulAddHiLo (val (dig X)) (val (dig B)) Q)"},{"Add":" %261 = zext i64 %257 to i128"},{"Add":" %262 = zext i64 %260 to i128"},{"Add":" %263 = mul i128 %261, %262"},{"Add":" %264 = lshr i128 %263, 64"},{"Add":" %265 = trunc i128 %264 to i64"},{"Add":" %266 = trunc i128 %263 to i64"},{"Add":" %267 = add i64 %252, -4"},{"Add":" %268 = inttoptr i64 %267 to i64*"},{"Add":" %269 = load i64, i64* %268"},{"Add":" %270 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %266, i64 %269)"},{"Add":" %271 = extractvalue {i64, i1} %270, 1"},{"Add":" %272 = extractvalue {i64, i1} %270, 0"},{"Add":" %273 = zext i1 %271 to i64"},{"Add":" %274 = add i64 %265, %273"},{"Add":" %275 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %272, i64 %254)"},{"Add":" %276 = extractvalue {i64, i1} %275, 1"},{"Add":" %277 = extractvalue {i64, i1} %275, 0"},{"Add":" %278 = zext i1 %276 to i64"},{"Add":" %279 = add i64 %274, %278"},{"Add":" br label %$28"},{"Add":"$33:"},{"Add":" %280 = phi i64 [%235, %$31] ; # A"},{"Add":" %281 = phi i64 [%236, %$31] ; # B"},{"Add":" %282 = phi i64 [%237, %$31] ; # P"},{"Add":" %283 = phi i64 [%245, %$31] ; # X"},{"Add":" %284 = phi i64 [%242, %$31] ; # Q"},{"Add":" %285 = phi i64 [%240, %$31] ; # Lo"},{"Add":" %286 = phi i64 [%241, %$31] ; # Hi"},{"Add":" %287 = phi i64 [0, %$31] ; # ->"},{"Add":"; # (int X)"},{"Add":" %288 = lshr i64 %283, 4"},{"Add":"; # (dig B)"},{"Add":" %289 = add i64 %281, -4"},{"Add":"; # (val (dig B))"},{"Add":" %290 = inttoptr i64 %289 to i64*"},{"Add":" %291 = load i64, i64* %290"},{"Add":"; # (mulAddHiLo (int X) (val (dig B)) Q)"},{"Add":" %292 = zext i64 %288 to i128"},{"Add":" %293 = zext i64 %291 to i128"},{"Add":" %294 = mul i128 %292, %293"},{"Add":" %295 = lshr i128 %294, 64"},{"Add":" %296 = trunc i128 %295 to i64"},{"Add":" %297 = trunc i128 %294 to i64"},{"Add":" %298 = add i64 %284, -4"},{"Add":" %299 = inttoptr i64 %298 to i64*"},{"Add":" %300 = load i64, i64* %299"},{"Add":" %301 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %297, i64 %300)"},{"Add":" %302 = extractvalue {i64, i1} %301, 1"},{"Add":" %303 = extractvalue {i64, i1} %301, 0"},{"Add":" %304 = zext i1 %302 to i64"},{"Add":" %305 = add i64 %296, %304"},{"Add":" %306 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %303, i64 %286)"},{"Add":" %307 = extractvalue {i64, i1} %306, 1"},{"Add":" %308 = extractvalue {i64, i1} %306, 0"},{"Add":" %309 = zext i1 %307 to i64"},{"Add":" %310 = add i64 %305, %309"},{"Add":"; # (set (dig Q) Lo)"},{"Add":"; # (dig Q)"},{"Add":" %311 = add i64 %284, -4"},{"Add":" %312 = inttoptr i64 %311 to i64*"},{"Add":" store i64 %308, i64* %312"},{"Add":"; # (when Hi (if (cnt? (val (big Q))) (set (big Q) (boxNum Hi)) (set ..."},{"Add":" %313 = icmp ne i64 %310, 0"},{"Add":" br i1 %313, label %$34, label %$35"},{"Add":"$34:"},{"Add":" %314 = phi i64 [%280, %$33] ; # A"},{"Add":" %315 = phi i64 [%281, %$33] ; # B"},{"Add":" %316 = phi i64 [%282, %$33] ; # P"},{"Add":" %317 = phi i64 [%283, %$33] ; # X"},{"Add":" %318 = phi i64 [%284, %$33] ; # Q"},{"Add":" %319 = phi i64 [%308, %$33] ; # Lo"},{"Add":" %320 = phi i64 [%310, %$33] ; # Hi"},{"Add":"; # (if (cnt? (val (big Q))) (set (big Q) (boxNum Hi)) (set (big @) H..."},{"Add":"; # (big Q)"},{"Add":" %321 = add i64 %318, 4"},{"Add":"; # (val (big Q))"},{"Add":" %322 = inttoptr i64 %321 to i64*"},{"Add":" %323 = load i64, i64* %322"},{"Add":"; # (cnt? (val (big Q)))"},{"Add":" %324 = and i64 %323, 2"},{"Add":" %325 = icmp ne i64 %324, 0"},{"Add":" br i1 %325, label %$36, label %$37"},{"Add":"$36:"},{"Add":" %326 = phi i64 [%314, %$34] ; # A"},{"Add":" %327 = phi i64 [%315, %$34] ; # B"},{"Add":" %328 = phi i64 [%316, %$34] ; # P"},{"Add":" %329 = phi i64 [%317, %$34] ; # X"},{"Add":" %330 = phi i64 [%318, %$34] ; # Q"},{"Add":" %331 = phi i64 [%319, %$34] ; # Lo"},{"Add":" %332 = phi i64 [%320, %$34] ; # Hi"},{"Add":"; # (set (big Q) (boxNum Hi))"},{"Add":"; # (big Q)"},{"Add":" %333 = add i64 %330, 4"},{"Add":"; # (boxNum Hi)"},{"Add":" %334 = call i64 @boxNum(i64 %332)"},{"Add":" %335 = inttoptr i64 %333 to i64*"},{"Add":" store i64 %334, i64* %335"},{"Add":" br label %$38"},{"Add":"$37:"},{"Add":" %336 = phi i64 [%314, %$34] ; # A"},{"Add":" %337 = phi i64 [%315, %$34] ; # B"},{"Add":" %338 = phi i64 [%316, %$34] ; # P"},{"Add":" %339 = phi i64 [%317, %$34] ; # X"},{"Add":" %340 = phi i64 [%318, %$34] ; # Q"},{"Add":" %341 = phi i64 [%319, %$34] ; # Lo"},{"Add":" %342 = phi i64 [%320, %$34] ; # Hi"},{"Add":"; # (set (big @) Hi)"},{"Add":"; # (big @)"},{"Add":" %343 = add i64 %323, 4"},{"Add":" %344 = inttoptr i64 %343 to i64*"},{"Add":" store i64 %342, i64* %344"},{"Add":" br label %$38"},{"Add":"$38:"},{"Add":" %345 = phi i64 [%326, %$36], [%336, %$37] ; # A"},{"Add":" %346 = phi i64 [%327, %$36], [%337, %$37] ; # B"},{"Add":" %347 = phi i64 [%328, %$36], [%338, %$37] ; # P"},{"Add":" %348 = phi i64 [%329, %$36], [%339, %$37] ; # X"},{"Add":" %349 = phi i64 [%330, %$36], [%340, %$37] ; # Q"},{"Add":" %350 = phi i64 [%331, %$36], [%341, %$37] ; # Lo"},{"Add":" %351 = phi i64 [%332, %$36], [%342, %$37] ; # Hi"},{"Add":" %352 = phi i64 [%334, %$36], [%342, %$37] ; # ->"},{"Add":" br label %$35"},{"Add":"$35:"},{"Add":" %353 = phi i64 [%280, %$33], [%345, %$38] ; # A"},{"Add":" %354 = phi i64 [%281, %$33], [%346, %$38] ; # B"},{"Add":" %355 = phi i64 [%282, %$33], [%347, %$38] ; # P"},{"Add":" %356 = phi i64 [%283, %$33], [%348, %$38] ; # X"},{"Add":" %357 = phi i64 [%284, %$33], [%349, %$38] ; # Q"},{"Add":" %358 = phi i64 [%308, %$33], [%350, %$38] ; # Lo"},{"Add":" %359 = phi i64 [%310, %$33], [%351, %$38] ; # Hi"},{"Add":"; # (big P)"},{"Add":" %360 = add i64 %355, 4"},{"Add":"; # (val (big P))"},{"Add":" %361 = inttoptr i64 %360 to i64*"},{"Add":" %362 = load i64, i64* %361"},{"Add":"; # (? (cnt? (setq B (val (big B)))))"},{"Add":"; # (big B)"},{"Add":" %363 = add i64 %354, 4"},{"Add":"; # (val (big B))"},{"Add":" %364 = inttoptr i64 %363 to i64*"},{"Add":" %365 = load i64, i64* %364"},{"Add":"; # (cnt? (setq B (val (big B))))"},{"Add":" %366 = and i64 %365, 2"},{"Add":" %367 = icmp ne i64 %366, 0"},{"Add":" br i1 %367, label %$40, label %$39"},{"Add":"$39:"},{"Add":" %368 = phi i64 [%353, %$35] ; # A"},{"Add":" %369 = phi i64 [%365, %$35] ; # B"},{"Add":" %370 = phi i64 [%362, %$35] ; # P"},{"Add":" br label %$27"},{"Add":"$40:"},{"Add":" %371 = phi i64 [%353, %$35] ; # A"},{"Add":" %372 = phi i64 [%365, %$35] ; # B"},{"Add":" %373 = phi i64 [%362, %$35] ; # P"},{"Add":" %374 = phi i64 [0, %$35] ; # ->"},{"Add":"; # (int B)"},{"Add":" %375 = lshr i64 %372, 4"},{"Add":"; # (let (Lo (add (mul (val (dig A)) B) (val (dig P))) Hi (+ @@@ @@))..."},{"Add":"; # (dig A)"},{"Add":" %376 = add i64 %371, -4"},{"Add":"; # (val (dig A))"},{"Add":" %377 = inttoptr i64 %376 to i64*"},{"Add":" %378 = load i64, i64* %377"},{"Add":"; # (mul (val (dig A)) B)"},{"Add":" %379 = zext i64 %378 to i128"},{"Add":" %380 = zext i64 %375 to i128"},{"Add":" %381 = mul i128 %379, %380"},{"Add":" %382 = lshr i128 %381, 64"},{"Add":" %383 = trunc i128 %382 to i64"},{"Add":" %384 = trunc i128 %381 to i64"},{"Add":"; # (dig P)"},{"Add":" %385 = add i64 %373, -4"},{"Add":"; # (val (dig P))"},{"Add":" %386 = inttoptr i64 %385 to i64*"},{"Add":" %387 = load i64, i64* %386"},{"Add":"; # (add (mul (val (dig A)) B) (val (dig P)))"},{"Add":" %388 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %384, i64 %387)"},{"Add":" %389 = extractvalue {i64, i1} %388, 1"},{"Add":" %390 = extractvalue {i64, i1} %388, 0"},{"Add":"; # (+ @@@ @@)"},{"Add":" %391 = zext i1 %389 to i64"},{"Add":" %392 = add i64 %383, %391"},{"Add":"; # (loop (set (dig P) Lo) (setq P (if (cnt? (val (big P))) (set (big..."},{"Add":" br label %$41"},{"Add":"$41:"},{"Add":" %393 = phi i64 [%371, %$40], [%429, %$45] ; # A"},{"Add":" %394 = phi i64 [%375, %$40], [%430, %$45] ; # B"},{"Add":" %395 = phi i64 [%373, %$40], [%431, %$45] ; # P"},{"Add":" %396 = phi i64 [%390, %$40], [%453, %$45] ; # Lo"},{"Add":" %397 = phi i64 [%392, %$40], [%455, %$45] ; # Hi"},{"Add":"; # (set (dig P) Lo)"},{"Add":"; # (dig P)"},{"Add":" %398 = add i64 %395, -4"},{"Add":" %399 = inttoptr i64 %398 to i64*"},{"Add":" store i64 %396, i64* %399"},{"Add":"; # (if (cnt? (val (big P))) (set (big P) (boxNum 0)) @)"},{"Add":"; # (big P)"},{"Add":" %400 = add i64 %395, 4"},{"Add":"; # (val (big P))"},{"Add":" %401 = inttoptr i64 %400 to i64*"},{"Add":" %402 = load i64, i64* %401"},{"Add":"; # (cnt? (val (big P)))"},{"Add":" %403 = and i64 %402, 2"},{"Add":" %404 = icmp ne i64 %403, 0"},{"Add":" br i1 %404, label %$42, label %$43"},{"Add":"$42:"},{"Add":" %405 = phi i64 [%393, %$41] ; # A"},{"Add":" %406 = phi i64 [%394, %$41] ; # B"},{"Add":" %407 = phi i64 [%395, %$41] ; # P"},{"Add":" %408 = phi i64 [%396, %$41] ; # Lo"},{"Add":" %409 = phi i64 [%397, %$41] ; # Hi"},{"Add":"; # (set (big P) (boxNum 0))"},{"Add":"; # (big P)"},{"Add":" %410 = add i64 %407, 4"},{"Add":"; # (boxNum 0)"},{"Add":" %411 = call i64 @boxNum(i64 0)"},{"Add":" %412 = inttoptr i64 %410 to i64*"},{"Add":" store i64 %411, i64* %412"},{"Add":" br label %$44"},{"Add":"$43:"},{"Add":" %413 = phi i64 [%393, %$41] ; # A"},{"Add":" %414 = phi i64 [%394, %$41] ; # B"},{"Add":" %415 = phi i64 [%395, %$41] ; # P"},{"Add":" %416 = phi i64 [%396, %$41] ; # Lo"},{"Add":" %417 = phi i64 [%397, %$41] ; # Hi"},{"Add":" br label %$44"},{"Add":"$44:"},{"Add":" %418 = phi i64 [%405, %$42], [%413, %$43] ; # A"},{"Add":" %419 = phi i64 [%406, %$42], [%414, %$43] ; # B"},{"Add":" %420 = phi i64 [%407, %$42], [%415, %$43] ; # P"},{"Add":" %421 = phi i64 [%408, %$42], [%416, %$43] ; # Lo"},{"Add":" %422 = phi i64 [%409, %$42], [%417, %$43] ; # Hi"},{"Add":" %423 = phi i64 [%411, %$42], [%402, %$43] ; # ->"},{"Add":"; # (? (cnt? (setq A (val (big A)))))"},{"Add":"; # (big A)"},{"Add":" %424 = add i64 %418, 4"},{"Add":"; # (val (big A))"},{"Add":" %425 = inttoptr i64 %424 to i64*"},{"Add":" %426 = load i64, i64* %425"},{"Add":"; # (cnt? (setq A (val (big A))))"},{"Add":" %427 = and i64 %426, 2"},{"Add":" %428 = icmp ne i64 %427, 0"},{"Add":" br i1 %428, label %$46, label %$45"},{"Add":"$45:"},{"Add":" %429 = phi i64 [%426, %$44] ; # A"},{"Add":" %430 = phi i64 [%419, %$44] ; # B"},{"Add":" %431 = phi i64 [%423, %$44] ; # P"},{"Add":" %432 = phi i64 [%421, %$44] ; # Lo"},{"Add":" %433 = phi i64 [%422, %$44] ; # Hi"},{"Add":"; # (dig A)"},{"Add":" %434 = add i64 %429, -4"},{"Add":"; # (val (dig A))"},{"Add":" %435 = inttoptr i64 %434 to i64*"},{"Add":" %436 = load i64, i64* %435"},{"Add":"; # (mulAddHiLo (val (dig A)) B P)"},{"Add":" %437 = zext i64 %436 to i128"},{"Add":" %438 = zext i64 %430 to i128"},{"Add":" %439 = mul i128 %437, %438"},{"Add":" %440 = lshr i128 %439, 64"},{"Add":" %441 = trunc i128 %440 to i64"},{"Add":" %442 = trunc i128 %439 to i64"},{"Add":" %443 = add i64 %431, -4"},{"Add":" %444 = inttoptr i64 %443 to i64*"},{"Add":" %445 = load i64, i64* %444"},{"Add":" %446 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %442, i64 %445)"},{"Add":" %447 = extractvalue {i64, i1} %446, 1"},{"Add":" %448 = extractvalue {i64, i1} %446, 0"},{"Add":" %449 = zext i1 %447 to i64"},{"Add":" %450 = add i64 %441, %449"},{"Add":" %451 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %448, i64 %433)"},{"Add":" %452 = extractvalue {i64, i1} %451, 1"},{"Add":" %453 = extractvalue {i64, i1} %451, 0"},{"Add":" %454 = zext i1 %452 to i64"},{"Add":" %455 = add i64 %450, %454"},{"Add":" br label %$41"},{"Add":"$46:"},{"Add":" %456 = phi i64 [%426, %$44] ; # A"},{"Add":" %457 = phi i64 [%419, %$44] ; # B"},{"Add":" %458 = phi i64 [%423, %$44] ; # P"},{"Add":" %459 = phi i64 [%421, %$44] ; # Lo"},{"Add":" %460 = phi i64 [%422, %$44] ; # Hi"},{"Add":" %461 = phi i64 [0, %$44] ; # ->"},{"Add":"; # (int A)"},{"Add":" %462 = lshr i64 %456, 4"},{"Add":"; # (mulAddHiLo (int A) B P)"},{"Add":" %463 = zext i64 %462 to i128"},{"Add":" %464 = zext i64 %457 to i128"},{"Add":" %465 = mul i128 %463, %464"},{"Add":" %466 = lshr i128 %465, 64"},{"Add":" %467 = trunc i128 %466 to i64"},{"Add":" %468 = trunc i128 %465 to i64"},{"Add":" %469 = add i64 %458, -4"},{"Add":" %470 = inttoptr i64 %469 to i64*"},{"Add":" %471 = load i64, i64* %470"},{"Add":" %472 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %468, i64 %471)"},{"Add":" %473 = extractvalue {i64, i1} %472, 1"},{"Add":" %474 = extractvalue {i64, i1} %472, 0"},{"Add":" %475 = zext i1 %473 to i64"},{"Add":" %476 = add i64 %467, %475"},{"Add":" %477 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %474, i64 %460)"},{"Add":" %478 = extractvalue {i64, i1} %477, 1"},{"Add":" %479 = extractvalue {i64, i1} %477, 0"},{"Add":" %480 = zext i1 %478 to i64"},{"Add":" %481 = add i64 %476, %480"},{"Add":"; # (set (dig P) Lo)"},{"Add":"; # (dig P)"},{"Add":" %482 = add i64 %458, -4"},{"Add":" %483 = inttoptr i64 %482 to i64*"},{"Add":" store i64 %479, i64* %483"},{"Add":"; # (when Hi (if (cnt? (val (big P))) (set (big P) (boxNum Hi)) (set ..."},{"Add":" %484 = icmp ne i64 %481, 0"},{"Add":" br i1 %484, label %$47, label %$48"},{"Add":"$47:"},{"Add":" %485 = phi i64 [%456, %$46] ; # A"},{"Add":" %486 = phi i64 [%457, %$46] ; # B"},{"Add":" %487 = phi i64 [%458, %$46] ; # P"},{"Add":" %488 = phi i64 [%479, %$46] ; # Lo"},{"Add":" %489 = phi i64 [%481, %$46] ; # Hi"},{"Add":"; # (if (cnt? (val (big P))) (set (big P) (boxNum Hi)) (set (big @) H..."},{"Add":"; # (big P)"},{"Add":" %490 = add i64 %487, 4"},{"Add":"; # (val (big P))"},{"Add":" %491 = inttoptr i64 %490 to i64*"},{"Add":" %492 = load i64, i64* %491"},{"Add":"; # (cnt? (val (big P)))"},{"Add":" %493 = and i64 %492, 2"},{"Add":" %494 = icmp ne i64 %493, 0"},{"Add":" br i1 %494, label %$49, label %$50"},{"Add":"$49:"},{"Add":" %495 = phi i64 [%485, %$47] ; # A"},{"Add":" %496 = phi i64 [%486, %$47] ; # B"},{"Add":" %497 = phi i64 [%487, %$47] ; # P"},{"Add":" %498 = phi i64 [%488, %$47] ; # Lo"},{"Add":" %499 = phi i64 [%489, %$47] ; # Hi"},{"Add":"; # (set (big P) (boxNum Hi))"},{"Add":"; # (big P)"},{"Add":" %500 = add i64 %497, 4"},{"Add":"; # (boxNum Hi)"},{"Add":" %501 = call i64 @boxNum(i64 %499)"},{"Add":" %502 = inttoptr i64 %500 to i64*"},{"Add":" store i64 %501, i64* %502"},{"Add":" br label %$51"},{"Add":"$50:"},{"Add":" %503 = phi i64 [%485, %$47] ; # A"},{"Add":" %504 = phi i64 [%486, %$47] ; # B"},{"Add":" %505 = phi i64 [%487, %$47] ; # P"},{"Add":" %506 = phi i64 [%488, %$47] ; # Lo"},{"Add":" %507 = phi i64 [%489, %$47] ; # Hi"},{"Add":"; # (set (big @) Hi)"},{"Add":"; # (big @)"},{"Add":" %508 = add i64 %492, 4"},{"Add":" %509 = inttoptr i64 %508 to i64*"},{"Add":" store i64 %507, i64* %509"},{"Add":" br label %$51"},{"Add":"$51:"},{"Add":" %510 = phi i64 [%495, %$49], [%503, %$50] ; # A"},{"Add":" %511 = phi i64 [%496, %$49], [%504, %$50] ; # B"},{"Add":" %512 = phi i64 [%497, %$49], [%505, %$50] ; # P"},{"Add":" %513 = phi i64 [%498, %$49], [%506, %$50] ; # Lo"},{"Add":" %514 = phi i64 [%499, %$49], [%507, %$50] ; # Hi"},{"Add":" %515 = phi i64 [%501, %$49], [%507, %$50] ; # ->"},{"Add":" br label %$48"},{"Add":"$48:"},{"Add":" %516 = phi i64 [%456, %$46], [%510, %$51] ; # A"},{"Add":" %517 = phi i64 [%457, %$46], [%511, %$51] ; # B"},{"Add":" %518 = phi i64 [%458, %$46], [%512, %$51] ; # P"},{"Add":" %519 = phi i64 [%479, %$46], [%513, %$51] ; # Lo"},{"Add":" %520 = phi i64 [%481, %$46], [%514, %$51] ; # Hi"},{"Add":"; # (zapZero R)"},{"Add":" %521 = call i64 @zapZero(i64 %172)"},{"Add":"; # (drop *Safe)"},{"Add":" %522 = inttoptr i64 %176 to i64*"},{"Add":" %523 = getelementptr i64, i64* %522, i32 1"},{"Add":" %524 = load i64, i64* %523"},{"Add":" %525 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %524, i64* %525"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %526 = phi i64 [%3, %$4], [%155, %$9], [%161, %$24], [%516, %$48] ; # A"},{"Add":" %527 = phi i64 [%4, %$4], [%156, %$9], [%162, %$24], [%517, %$48] ; # B"},{"Add":" %528 = phi i64 [%3, %$4], [%157, %$9], [%162, %$24], [%521, %$48] ; # ->"},{"Add":" ret i64 %528"},{"Add":"}"},{"Add":""},{"Add":"define i64 @div1(i64, i64, i1) align 8 {"},{"Add":"$1:"},{"Add":"; # (let (R (save ZERO) P (boxNum (val (dig A))) U (link (push P NIL)..."},{"Add":"; # (save ZERO)"},{"Add":" %3 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %4 = load i64, i64* %3"},{"Add":" %5 = alloca i64, i64 2, align 16"},{"Add":" %6 = ptrtoint i64* %5 to i64"},{"Add":" %7 = inttoptr i64 %6 to i64*"},{"Add":" store i64 2, i64* %7"},{"Add":" %8 = add i64 %6, 8"},{"Add":" %9 = inttoptr i64 %8 to i64*"},{"Add":" store i64 %4, i64* %9"},{"Add":" %10 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %6, i64* %10"},{"Add":"; # (dig A)"},{"Add":" %11 = add i64 %0, -4"},{"Add":"; # (val (dig A))"},{"Add":" %12 = inttoptr i64 %11 to i64*"},{"Add":" %13 = load i64, i64* %12"},{"Add":"; # (boxNum (val (dig A)))"},{"Add":" %14 = call i64 @boxNum(i64 %13)"},{"Add":"; # (push P NIL)"},{"Add":" %15 = alloca i64, i64 2, align 16"},{"Add":" %16 = ptrtoint i64* %15 to i64"},{"Add":" %17 = inttoptr i64 %16 to i64*"},{"Add":" store i64 %14, i64* %17"},{"Add":"; # (link (push P NIL))"},{"Add":" %18 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %19 = load i64, i64* %18"},{"Add":" %20 = inttoptr i64 %16 to i64*"},{"Add":" %21 = getelementptr i64, i64* %20, i32 1"},{"Add":" store i64 %19, i64* %21"},{"Add":" %22 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %16, i64* %22"},{"Add":"; # (push B NIL)"},{"Add":" %23 = alloca i64, i64 2, align 16"},{"Add":" %24 = ptrtoint i64* %23 to i64"},{"Add":" %25 = inttoptr i64 %24 to i64*"},{"Add":" store i64 %1, i64* %25"},{"Add":"; # (link (push B NIL))"},{"Add":" %26 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %27 = load i64, i64* %26"},{"Add":" %28 = inttoptr i64 %24 to i64*"},{"Add":" %29 = getelementptr i64, i64* %28, i32 1"},{"Add":" store i64 %27, i64* %29"},{"Add":" %30 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %24, i64* %30"},{"Add":"; # (while (big? (setq A (val (big A)))) (setq P (set (big P) (boxNum..."},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %31 = phi i64 [%0, %$1], [%44, %$3] ; # A"},{"Add":" %32 = phi i64 [%1, %$1], [%45, %$3] ; # B"},{"Add":" %33 = phi i64 [2, %$1], [%46, %$3] ; # R"},{"Add":" %34 = phi i64 [%14, %$1], [%56, %$3] ; # P"},{"Add":" %35 = phi i64 [0, %$1], [%48, %$3] ; # V2"},{"Add":" %36 = phi i64 [0, %$1], [%58, %$3] ; # M"},{"Add":" %37 = phi i64 [1, %$1], [%50, %$3] ; # N"},{"Add":" %38 = phi i64 [0, %$1], [%51, %$3] ; # D"},{"Add":"; # (big A)"},{"Add":" %39 = add i64 %31, 4"},{"Add":"; # (val (big A))"},{"Add":" %40 = inttoptr i64 %39 to i64*"},{"Add":" %41 = load i64, i64* %40"},{"Add":"; # (big? (setq A (val (big A))))"},{"Add":" %42 = and i64 %41, 4"},{"Add":" %43 = icmp ne i64 %42, 0"},{"Add":" br i1 %43, label %$3, label %$4"},{"Add":"$3:"},{"Add":" %44 = phi i64 [%41, %$2] ; # A"},{"Add":" %45 = phi i64 [%32, %$2] ; # B"},{"Add":" %46 = phi i64 [%33, %$2] ; # R"},{"Add":" %47 = phi i64 [%34, %$2] ; # P"},{"Add":" %48 = phi i64 [%35, %$2] ; # V2"},{"Add":" %49 = phi i64 [%36, %$2] ; # M"},{"Add":" %50 = phi i64 [%37, %$2] ; # N"},{"Add":" %51 = phi i64 [%38, %$2] ; # D"},{"Add":"; # (set (big P) (boxNum (val (dig A))))"},{"Add":"; # (big P)"},{"Add":" %52 = add i64 %47, 4"},{"Add":"; # (dig A)"},{"Add":" %53 = add i64 %44, -4"},{"Add":"; # (val (dig A))"},{"Add":" %54 = inttoptr i64 %53 to i64*"},{"Add":" %55 = load i64, i64* %54"},{"Add":"; # (boxNum (val (dig A)))"},{"Add":" %56 = call i64 @boxNum(i64 %55)"},{"Add":" %57 = inttoptr i64 %52 to i64*"},{"Add":" store i64 %56, i64* %57"},{"Add":"; # (inc 'M)"},{"Add":" %58 = add i64 %49, 1"},{"Add":" br label %$2"},{"Add":"$4:"},{"Add":" %59 = phi i64 [%41, %$2] ; # A"},{"Add":" %60 = phi i64 [%32, %$2] ; # B"},{"Add":" %61 = phi i64 [%33, %$2] ; # R"},{"Add":" %62 = phi i64 [%34, %$2] ; # P"},{"Add":" %63 = phi i64 [%35, %$2] ; # V2"},{"Add":" %64 = phi i64 [%36, %$2] ; # M"},{"Add":" %65 = phi i64 [%37, %$2] ; # N"},{"Add":" %66 = phi i64 [%38, %$2] ; # D"},{"Add":"; # (unless (== A ZERO) (setq P (set (big P) (boxNum (int A)))) (inc ..."},{"Add":"; # (== A ZERO)"},{"Add":" %67 = icmp eq i64 %59, 2"},{"Add":" br i1 %67, label %$6, label %$5"},{"Add":"$5:"},{"Add":" %68 = phi i64 [%59, %$4] ; # A"},{"Add":" %69 = phi i64 [%60, %$4] ; # B"},{"Add":" %70 = phi i64 [%61, %$4] ; # R"},{"Add":" %71 = phi i64 [%62, %$4] ; # P"},{"Add":" %72 = phi i64 [%63, %$4] ; # V2"},{"Add":" %73 = phi i64 [%64, %$4] ; # M"},{"Add":" %74 = phi i64 [%65, %$4] ; # N"},{"Add":" %75 = phi i64 [%66, %$4] ; # D"},{"Add":"; # (set (big P) (boxNum (int A)))"},{"Add":"; # (big P)"},{"Add":" %76 = add i64 %71, 4"},{"Add":"; # (int A)"},{"Add":" %77 = lshr i64 %68, 4"},{"Add":"; # (boxNum (int A))"},{"Add":" %78 = call i64 @boxNum(i64 %77)"},{"Add":" %79 = inttoptr i64 %76 to i64*"},{"Add":" store i64 %78, i64* %79"},{"Add":"; # (inc 'M)"},{"Add":" %80 = add i64 %73, 1"},{"Add":" br label %$6"},{"Add":"$6:"},{"Add":" %81 = phi i64 [%59, %$4], [%68, %$5] ; # A"},{"Add":" %82 = phi i64 [%60, %$4], [%69, %$5] ; # B"},{"Add":" %83 = phi i64 [%61, %$4], [%70, %$5] ; # R"},{"Add":" %84 = phi i64 [%62, %$4], [%78, %$5] ; # P"},{"Add":" %85 = phi i64 [%63, %$4], [%72, %$5] ; # V2"},{"Add":" %86 = phi i64 [%64, %$4], [%80, %$5] ; # M"},{"Add":" %87 = phi i64 [%65, %$4], [%74, %$5] ; # N"},{"Add":" %88 = phi i64 [%66, %$4], [%75, %$5] ; # D"},{"Add":"; # (if (cnt? B) (setq Q (set V (boxNum (int B)))) (setq Q (set V (bo..."},{"Add":"; # (cnt? B)"},{"Add":" %89 = and i64 %82, 2"},{"Add":" %90 = icmp ne i64 %89, 0"},{"Add":" br i1 %90, label %$7, label %$8"},{"Add":"$7:"},{"Add":" %91 = phi i64 [%81, %$6] ; # A"},{"Add":" %92 = phi i64 [%82, %$6] ; # B"},{"Add":" %93 = phi i64 [%83, %$6] ; # R"},{"Add":" %94 = phi i64 [%84, %$6] ; # P"},{"Add":" %95 = phi i64 [%85, %$6] ; # V2"},{"Add":" %96 = phi i64 [%86, %$6] ; # M"},{"Add":" %97 = phi i64 [%87, %$6] ; # N"},{"Add":" %98 = phi i64 [%88, %$6] ; # D"},{"Add":"; # (set V (boxNum (int B)))"},{"Add":"; # (int B)"},{"Add":" %99 = lshr i64 %92, 4"},{"Add":"; # (boxNum (int B))"},{"Add":" %100 = call i64 @boxNum(i64 %99)"},{"Add":" %101 = inttoptr i64 %24 to i64*"},{"Add":" store i64 %100, i64* %101"},{"Add":" br label %$9"},{"Add":"$8:"},{"Add":" %102 = phi i64 [%81, %$6] ; # A"},{"Add":" %103 = phi i64 [%82, %$6] ; # B"},{"Add":" %104 = phi i64 [%83, %$6] ; # R"},{"Add":" %105 = phi i64 [%84, %$6] ; # P"},{"Add":" %106 = phi i64 [%85, %$6] ; # V2"},{"Add":" %107 = phi i64 [%86, %$6] ; # M"},{"Add":" %108 = phi i64 [%87, %$6] ; # N"},{"Add":" %109 = phi i64 [%88, %$6] ; # D"},{"Add":"; # (set V (boxNum (val (dig B))))"},{"Add":"; # (dig B)"},{"Add":" %110 = add i64 %103, -4"},{"Add":"; # (val (dig B))"},{"Add":" %111 = inttoptr i64 %110 to i64*"},{"Add":" %112 = load i64, i64* %111"},{"Add":"; # (boxNum (val (dig B)))"},{"Add":" %113 = call i64 @boxNum(i64 %112)"},{"Add":" %114 = inttoptr i64 %24 to i64*"},{"Add":" store i64 %113, i64* %114"},{"Add":"; # (while (big? (setq B (val (big B)))) (setq V2 Q Q (set (big Q) (b..."},{"Add":" br label %$10"},{"Add":"$10:"},{"Add":" %115 = phi i64 [%102, %$8], [%129, %$11] ; # A"},{"Add":" %116 = phi i64 [%103, %$8], [%130, %$11] ; # B"},{"Add":" %117 = phi i64 [%104, %$8], [%131, %$11] ; # R"},{"Add":" %118 = phi i64 [%105, %$8], [%132, %$11] ; # P"},{"Add":" %119 = phi i64 [%106, %$8], [%137, %$11] ; # V2"},{"Add":" %120 = phi i64 [%107, %$8], [%144, %$11] ; # M"},{"Add":" %121 = phi i64 [%108, %$8], [%145, %$11] ; # N"},{"Add":" %122 = phi i64 [%109, %$8], [%136, %$11] ; # D"},{"Add":" %123 = phi i64 [%113, %$8], [%142, %$11] ; # Q"},{"Add":"; # (big B)"},{"Add":" %124 = add i64 %116, 4"},{"Add":"; # (val (big B))"},{"Add":" %125 = inttoptr i64 %124 to i64*"},{"Add":" %126 = load i64, i64* %125"},{"Add":"; # (big? (setq B (val (big B))))"},{"Add":" %127 = and i64 %126, 4"},{"Add":" %128 = icmp ne i64 %127, 0"},{"Add":" br i1 %128, label %$11, label %$12"},{"Add":"$11:"},{"Add":" %129 = phi i64 [%115, %$10] ; # A"},{"Add":" %130 = phi i64 [%126, %$10] ; # B"},{"Add":" %131 = phi i64 [%117, %$10] ; # R"},{"Add":" %132 = phi i64 [%118, %$10] ; # P"},{"Add":" %133 = phi i64 [%119, %$10] ; # V2"},{"Add":" %134 = phi i64 [%120, %$10] ; # M"},{"Add":" %135 = phi i64 [%121, %$10] ; # N"},{"Add":" %136 = phi i64 [%122, %$10] ; # D"},{"Add":" %137 = phi i64 [%123, %$10] ; # Q"},{"Add":"; # (set (big Q) (boxNum (val (dig B))))"},{"Add":"; # (big Q)"},{"Add":" %138 = add i64 %137, 4"},{"Add":"; # (dig B)"},{"Add":" %139 = add i64 %130, -4"},{"Add":"; # (val (dig B))"},{"Add":" %140 = inttoptr i64 %139 to i64*"},{"Add":" %141 = load i64, i64* %140"},{"Add":"; # (boxNum (val (dig B)))"},{"Add":" %142 = call i64 @boxNum(i64 %141)"},{"Add":" %143 = inttoptr i64 %138 to i64*"},{"Add":" store i64 %142, i64* %143"},{"Add":"; # (dec 'M)"},{"Add":" %144 = sub i64 %134, 1"},{"Add":"; # (inc 'N)"},{"Add":" %145 = add i64 %135, 1"},{"Add":" br label %$10"},{"Add":"$12:"},{"Add":" %146 = phi i64 [%115, %$10] ; # A"},{"Add":" %147 = phi i64 [%126, %$10] ; # B"},{"Add":" %148 = phi i64 [%117, %$10] ; # R"},{"Add":" %149 = phi i64 [%118, %$10] ; # P"},{"Add":" %150 = phi i64 [%119, %$10] ; # V2"},{"Add":" %151 = phi i64 [%120, %$10] ; # M"},{"Add":" %152 = phi i64 [%121, %$10] ; # N"},{"Add":" %153 = phi i64 [%122, %$10] ; # D"},{"Add":" %154 = phi i64 [%123, %$10] ; # Q"},{"Add":"; # (unless (== B ZERO) (setq V2 Q Q (set (big Q) (boxNum (int B)))) ..."},{"Add":"; # (== B ZERO)"},{"Add":" %155 = icmp eq i64 %147, 2"},{"Add":" br i1 %155, label %$14, label %$13"},{"Add":"$13:"},{"Add":" %156 = phi i64 [%146, %$12] ; # A"},{"Add":" %157 = phi i64 [%147, %$12] ; # B"},{"Add":" %158 = phi i64 [%148, %$12] ; # R"},{"Add":" %159 = phi i64 [%149, %$12] ; # P"},{"Add":" %160 = phi i64 [%150, %$12] ; # V2"},{"Add":" %161 = phi i64 [%151, %$12] ; # M"},{"Add":" %162 = phi i64 [%152, %$12] ; # N"},{"Add":" %163 = phi i64 [%153, %$12] ; # D"},{"Add":" %164 = phi i64 [%154, %$12] ; # Q"},{"Add":"; # (set (big Q) (boxNum (int B)))"},{"Add":"; # (big Q)"},{"Add":" %165 = add i64 %164, 4"},{"Add":"; # (int B)"},{"Add":" %166 = lshr i64 %157, 4"},{"Add":"; # (boxNum (int B))"},{"Add":" %167 = call i64 @boxNum(i64 %166)"},{"Add":" %168 = inttoptr i64 %165 to i64*"},{"Add":" store i64 %167, i64* %168"},{"Add":"; # (dec 'M)"},{"Add":" %169 = sub i64 %161, 1"},{"Add":"; # (inc 'N)"},{"Add":" %170 = add i64 %162, 1"},{"Add":" br label %$14"},{"Add":"$14:"},{"Add":" %171 = phi i64 [%146, %$12], [%156, %$13] ; # A"},{"Add":" %172 = phi i64 [%147, %$12], [%157, %$13] ; # B"},{"Add":" %173 = phi i64 [%148, %$12], [%158, %$13] ; # R"},{"Add":" %174 = phi i64 [%149, %$12], [%159, %$13] ; # P"},{"Add":" %175 = phi i64 [%150, %$12], [%164, %$13] ; # V2"},{"Add":" %176 = phi i64 [%151, %$12], [%169, %$13] ; # M"},{"Add":" %177 = phi i64 [%152, %$12], [%170, %$13] ; # N"},{"Add":" %178 = phi i64 [%153, %$12], [%163, %$13] ; # D"},{"Add":" %179 = phi i64 [%154, %$12], [%167, %$13] ; # Q"},{"Add":"; # (when (lt0 M) (ret (if Rem (zapZero (val U)) ZERO)))"},{"Add":"; # (lt0 M)"},{"Add":" %180 = icmp slt i64 %176, 0"},{"Add":" br i1 %180, label %$15, label %$16"},{"Add":"$15:"},{"Add":" %181 = phi i64 [%171, %$14] ; # A"},{"Add":" %182 = phi i64 [%172, %$14] ; # B"},{"Add":" %183 = phi i64 [%173, %$14] ; # R"},{"Add":" %184 = phi i64 [%174, %$14] ; # P"},{"Add":" %185 = phi i64 [%175, %$14] ; # V2"},{"Add":" %186 = phi i64 [%176, %$14] ; # M"},{"Add":" %187 = phi i64 [%177, %$14] ; # N"},{"Add":" %188 = phi i64 [%178, %$14] ; # D"},{"Add":" %189 = phi i64 [%179, %$14] ; # Q"},{"Add":"; # (if Rem (zapZero (val U)) ZERO)"},{"Add":" br i1 %2, label %$17, label %$18"},{"Add":"$17:"},{"Add":" %190 = phi i64 [%181, %$15] ; # A"},{"Add":" %191 = phi i64 [%182, %$15] ; # B"},{"Add":" %192 = phi i64 [%183, %$15] ; # R"},{"Add":" %193 = phi i64 [%184, %$15] ; # P"},{"Add":" %194 = phi i64 [%185, %$15] ; # V2"},{"Add":" %195 = phi i64 [%186, %$15] ; # M"},{"Add":" %196 = phi i64 [%187, %$15] ; # N"},{"Add":" %197 = phi i64 [%188, %$15] ; # D"},{"Add":" %198 = phi i64 [%189, %$15] ; # Q"},{"Add":"; # (val U)"},{"Add":" %199 = inttoptr i64 %16 to i64*"},{"Add":" %200 = load i64, i64* %199"},{"Add":"; # (zapZero (val U))"},{"Add":" %201 = call i64 @zapZero(i64 %200)"},{"Add":" br label %$19"},{"Add":"$18:"},{"Add":" %202 = phi i64 [%181, %$15] ; # A"},{"Add":" %203 = phi i64 [%182, %$15] ; # B"},{"Add":" %204 = phi i64 [%183, %$15] ; # R"},{"Add":" %205 = phi i64 [%184, %$15] ; # P"},{"Add":" %206 = phi i64 [%185, %$15] ; # V2"},{"Add":" %207 = phi i64 [%186, %$15] ; # M"},{"Add":" %208 = phi i64 [%187, %$15] ; # N"},{"Add":" %209 = phi i64 [%188, %$15] ; # D"},{"Add":" %210 = phi i64 [%189, %$15] ; # Q"},{"Add":" br label %$19"},{"Add":"$19:"},{"Add":" %211 = phi i64 [%190, %$17], [%202, %$18] ; # A"},{"Add":" %212 = phi i64 [%191, %$17], [%203, %$18] ; # B"},{"Add":" %213 = phi i64 [%192, %$17], [%204, %$18] ; # R"},{"Add":" %214 = phi i64 [%193, %$17], [%205, %$18] ; # P"},{"Add":" %215 = phi i64 [%194, %$17], [%206, %$18] ; # V2"},{"Add":" %216 = phi i64 [%195, %$17], [%207, %$18] ; # M"},{"Add":" %217 = phi i64 [%196, %$17], [%208, %$18] ; # N"},{"Add":" %218 = phi i64 [%197, %$17], [%209, %$18] ; # D"},{"Add":" %219 = phi i64 [%198, %$17], [%210, %$18] ; # Q"},{"Add":" %220 = phi i64 [%201, %$17], [2, %$18] ; # ->"},{"Add":"; # (ret (if Rem (zapZero (val U)) ZERO))"},{"Add":"; # (drop *Safe)"},{"Add":" %221 = inttoptr i64 %6 to i64*"},{"Add":" %222 = getelementptr i64, i64* %221, i32 1"},{"Add":" %223 = load i64, i64* %222"},{"Add":" %224 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %223, i64* %224"},{"Add":" ret i64 %220"},{"Add":"$16:"},{"Add":" %225 = phi i64 [%171, %$14] ; # A"},{"Add":" %226 = phi i64 [%172, %$14] ; # B"},{"Add":" %227 = phi i64 [%173, %$14] ; # R"},{"Add":" %228 = phi i64 [%174, %$14] ; # P"},{"Add":" %229 = phi i64 [%175, %$14] ; # V2"},{"Add":" %230 = phi i64 [%176, %$14] ; # M"},{"Add":" %231 = phi i64 [%177, %$14] ; # N"},{"Add":" %232 = phi i64 [%178, %$14] ; # D"},{"Add":" %233 = phi i64 [%179, %$14] ; # Q"},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %234 = phi i64 [%91, %$7], [%225, %$16] ; # A"},{"Add":" %235 = phi i64 [%92, %$7], [%226, %$16] ; # B"},{"Add":" %236 = phi i64 [%93, %$7], [%227, %$16] ; # R"},{"Add":" %237 = phi i64 [%94, %$7], [%228, %$16] ; # P"},{"Add":" %238 = phi i64 [%95, %$7], [%229, %$16] ; # V2"},{"Add":" %239 = phi i64 [%96, %$7], [%230, %$16] ; # M"},{"Add":" %240 = phi i64 [%97, %$7], [%231, %$16] ; # N"},{"Add":" %241 = phi i64 [%98, %$7], [%232, %$16] ; # D"},{"Add":" %242 = phi i64 [%100, %$7], [%233, %$16] ; # Q"},{"Add":"; # (set (big P) (boxNum 0))"},{"Add":"; # (big P)"},{"Add":" %243 = add i64 %237, 4"},{"Add":"; # (boxNum 0)"},{"Add":" %244 = call i64 @boxNum(i64 0)"},{"Add":" %245 = inttoptr i64 %243 to i64*"},{"Add":" store i64 %244, i64* %245"},{"Add":"; # (while (ge0 (val (dig Q))) (twiceBig (val U)) (twiceBig (val V)) ..."},{"Add":" br label %$20"},{"Add":"$20:"},{"Add":" %246 = phi i64 [%234, %$9], [%259, %$21] ; # A"},{"Add":" %247 = phi i64 [%235, %$9], [%260, %$21] ; # B"},{"Add":" %248 = phi i64 [%236, %$9], [%261, %$21] ; # R"},{"Add":" %249 = phi i64 [%237, %$9], [%262, %$21] ; # P"},{"Add":" %250 = phi i64 [%238, %$9], [%263, %$21] ; # V2"},{"Add":" %251 = phi i64 [%239, %$9], [%264, %$21] ; # M"},{"Add":" %252 = phi i64 [%240, %$9], [%265, %$21] ; # N"},{"Add":" %253 = phi i64 [%241, %$9], [%274, %$21] ; # D"},{"Add":" %254 = phi i64 [%242, %$9], [%267, %$21] ; # Q"},{"Add":"; # (dig Q)"},{"Add":" %255 = add i64 %254, -4"},{"Add":"; # (val (dig Q))"},{"Add":" %256 = inttoptr i64 %255 to i64*"},{"Add":" %257 = load i64, i64* %256"},{"Add":"; # (ge0 (val (dig Q)))"},{"Add":" %258 = icmp sge i64 %257, 0"},{"Add":" br i1 %258, label %$21, label %$22"},{"Add":"$21:"},{"Add":" %259 = phi i64 [%246, %$20] ; # A"},{"Add":" %260 = phi i64 [%247, %$20] ; # B"},{"Add":" %261 = phi i64 [%248, %$20] ; # R"},{"Add":" %262 = phi i64 [%249, %$20] ; # P"},{"Add":" %263 = phi i64 [%250, %$20] ; # V2"},{"Add":" %264 = phi i64 [%251, %$20] ; # M"},{"Add":" %265 = phi i64 [%252, %$20] ; # N"},{"Add":" %266 = phi i64 [%253, %$20] ; # D"},{"Add":" %267 = phi i64 [%254, %$20] ; # Q"},{"Add":"; # (val U)"},{"Add":" %268 = inttoptr i64 %16 to i64*"},{"Add":" %269 = load i64, i64* %268"},{"Add":"; # (twiceBig (val U))"},{"Add":" %270 = call i64 @twiceBig(i64 %269)"},{"Add":"; # (val V)"},{"Add":" %271 = inttoptr i64 %24 to i64*"},{"Add":" %272 = load i64, i64* %271"},{"Add":"; # (twiceBig (val V))"},{"Add":" %273 = call i64 @twiceBig(i64 %272)"},{"Add":"; # (inc 'D)"},{"Add":" %274 = add i64 %266, 1"},{"Add":" br label %$20"},{"Add":"$22:"},{"Add":" %275 = phi i64 [%246, %$20] ; # A"},{"Add":" %276 = phi i64 [%247, %$20] ; # B"},{"Add":" %277 = phi i64 [%248, %$20] ; # R"},{"Add":" %278 = phi i64 [%249, %$20] ; # P"},{"Add":" %279 = phi i64 [%250, %$20] ; # V2"},{"Add":" %280 = phi i64 [%251, %$20] ; # M"},{"Add":" %281 = phi i64 [%252, %$20] ; # N"},{"Add":" %282 = phi i64 [%253, %$20] ; # D"},{"Add":" %283 = phi i64 [%254, %$20] ; # Q"},{"Add":"; # (dig Q)"},{"Add":" %284 = add i64 %283, -4"},{"Add":"; # (val (dig Q))"},{"Add":" %285 = inttoptr i64 %284 to i64*"},{"Add":" %286 = load i64, i64* %285"},{"Add":"; # (when V2 (setq V2 (val (dig V2))))"},{"Add":" %287 = icmp ne i64 %279, 0"},{"Add":" br i1 %287, label %$23, label %$24"},{"Add":"$23:"},{"Add":" %288 = phi i64 [%275, %$22] ; # A"},{"Add":" %289 = phi i64 [%276, %$22] ; # B"},{"Add":" %290 = phi i64 [%277, %$22] ; # R"},{"Add":" %291 = phi i64 [%278, %$22] ; # P"},{"Add":" %292 = phi i64 [%286, %$22] ; # V1"},{"Add":" %293 = phi i64 [%279, %$22] ; # V2"},{"Add":" %294 = phi i64 [%280, %$22] ; # M"},{"Add":" %295 = phi i64 [%281, %$22] ; # N"},{"Add":" %296 = phi i64 [%282, %$22] ; # D"},{"Add":" %297 = phi i64 [%283, %$22] ; # Q"},{"Add":"; # (dig V2)"},{"Add":" %298 = add i64 %293, -4"},{"Add":"; # (val (dig V2))"},{"Add":" %299 = inttoptr i64 %298 to i64*"},{"Add":" %300 = load i64, i64* %299"},{"Add":" br label %$24"},{"Add":"$24:"},{"Add":" %301 = phi i64 [%275, %$22], [%288, %$23] ; # A"},{"Add":" %302 = phi i64 [%276, %$22], [%289, %$23] ; # B"},{"Add":" %303 = phi i64 [%277, %$22], [%290, %$23] ; # R"},{"Add":" %304 = phi i64 [%278, %$22], [%291, %$23] ; # P"},{"Add":" %305 = phi i64 [%286, %$22], [%292, %$23] ; # V1"},{"Add":" %306 = phi i64 [%279, %$22], [%300, %$23] ; # V2"},{"Add":" %307 = phi i64 [%280, %$22], [%294, %$23] ; # M"},{"Add":" %308 = phi i64 [%281, %$22], [%295, %$23] ; # N"},{"Add":" %309 = phi i64 [%282, %$22], [%296, %$23] ; # D"},{"Add":" %310 = phi i64 [%283, %$22], [%297, %$23] ; # Q"},{"Add":"; # (loop (let (X (val U) U1 0 U2 0 U3 T) (let I M (while (ge0 (dec '..."},{"Add":" br label %$25"},{"Add":"$25:"},{"Add":" %311 = phi i64 [%301, %$24], [%1016, %$56] ; # A"},{"Add":" %312 = phi i64 [%302, %$24], [%1017, %$56] ; # B"},{"Add":" %313 = phi i64 [%303, %$24], [%1018, %$56] ; # R"},{"Add":" %314 = phi i64 [%304, %$24], [%1019, %$56] ; # P"},{"Add":" %315 = phi i64 [%305, %$24], [%1020, %$56] ; # V1"},{"Add":" %316 = phi i64 [%306, %$24], [%1021, %$56] ; # V2"},{"Add":" %317 = phi i64 [%307, %$24], [%1022, %$56] ; # M"},{"Add":" %318 = phi i64 [%308, %$24], [%1023, %$56] ; # N"},{"Add":" %319 = phi i64 [%309, %$24], [%1024, %$56] ; # D"},{"Add":" %320 = phi i64 [%310, %$24], [%1025, %$56] ; # Q"},{"Add":"; # (let (X (val U) U1 0 U2 0 U3 T) (let I M (while (ge0 (dec 'I)) (s..."},{"Add":"; # (val U)"},{"Add":" %321 = inttoptr i64 %16 to i64*"},{"Add":" %322 = load i64, i64* %321"},{"Add":"; # (let I M (while (ge0 (dec 'I)) (setq X (val (big X)))))"},{"Add":"; # (while (ge0 (dec 'I)) (setq X (val (big X))))"},{"Add":" br label %$26"},{"Add":"$26:"},{"Add":" %323 = phi i64 [%311, %$25], [%339, %$27] ; # A"},{"Add":" %324 = phi i64 [%312, %$25], [%340, %$27] ; # B"},{"Add":" %325 = phi i64 [%313, %$25], [%341, %$27] ; # R"},{"Add":" %326 = phi i64 [%314, %$25], [%342, %$27] ; # P"},{"Add":" %327 = phi i64 [%315, %$25], [%343, %$27] ; # V1"},{"Add":" %328 = phi i64 [%316, %$25], [%344, %$27] ; # V2"},{"Add":" %329 = phi i64 [%317, %$25], [%345, %$27] ; # M"},{"Add":" %330 = phi i64 [%318, %$25], [%346, %$27] ; # N"},{"Add":" %331 = phi i64 [%319, %$25], [%347, %$27] ; # D"},{"Add":" %332 = phi i64 [%320, %$25], [%348, %$27] ; # Q"},{"Add":" %333 = phi i64 [%322, %$25], [%355, %$27] ; # X"},{"Add":" %334 = phi i64 [0, %$25], [%350, %$27] ; # U1"},{"Add":" %335 = phi i64 [0, %$25], [%351, %$27] ; # U2"},{"Add":" %336 = phi i64 [%317, %$25], [%352, %$27] ; # I"},{"Add":"; # (dec 'I)"},{"Add":" %337 = sub i64 %336, 1"},{"Add":"; # (ge0 (dec 'I))"},{"Add":" %338 = icmp sge i64 %337, 0"},{"Add":" br i1 %338, label %$27, label %$28"},{"Add":"$27:"},{"Add":" %339 = phi i64 [%323, %$26] ; # A"},{"Add":" %340 = phi i64 [%324, %$26] ; # B"},{"Add":" %341 = phi i64 [%325, %$26] ; # R"},{"Add":" %342 = phi i64 [%326, %$26] ; # P"},{"Add":" %343 = phi i64 [%327, %$26] ; # V1"},{"Add":" %344 = phi i64 [%328, %$26] ; # V2"},{"Add":" %345 = phi i64 [%329, %$26] ; # M"},{"Add":" %346 = phi i64 [%330, %$26] ; # N"},{"Add":" %347 = phi i64 [%331, %$26] ; # D"},{"Add":" %348 = phi i64 [%332, %$26] ; # Q"},{"Add":" %349 = phi i64 [%333, %$26] ; # X"},{"Add":" %350 = phi i64 [%334, %$26] ; # U1"},{"Add":" %351 = phi i64 [%335, %$26] ; # U2"},{"Add":" %352 = phi i64 [%337, %$26] ; # I"},{"Add":"; # (big X)"},{"Add":" %353 = add i64 %349, 4"},{"Add":"; # (val (big X))"},{"Add":" %354 = inttoptr i64 %353 to i64*"},{"Add":" %355 = load i64, i64* %354"},{"Add":" br label %$26"},{"Add":"$28:"},{"Add":" %356 = phi i64 [%323, %$26] ; # A"},{"Add":" %357 = phi i64 [%324, %$26] ; # B"},{"Add":" %358 = phi i64 [%325, %$26] ; # R"},{"Add":" %359 = phi i64 [%326, %$26] ; # P"},{"Add":" %360 = phi i64 [%327, %$26] ; # V1"},{"Add":" %361 = phi i64 [%328, %$26] ; # V2"},{"Add":" %362 = phi i64 [%329, %$26] ; # M"},{"Add":" %363 = phi i64 [%330, %$26] ; # N"},{"Add":" %364 = phi i64 [%331, %$26] ; # D"},{"Add":" %365 = phi i64 [%332, %$26] ; # Q"},{"Add":" %366 = phi i64 [%333, %$26] ; # X"},{"Add":" %367 = phi i64 [%334, %$26] ; # U1"},{"Add":" %368 = phi i64 [%335, %$26] ; # U2"},{"Add":" %369 = phi i64 [%337, %$26] ; # I"},{"Add":"; # (let (I N Y X) (loop (setq U3 U2 U2 U1 U1 (val (dig Y)) Y (val (b..."},{"Add":"; # (loop (setq U3 U2 U2 U1 U1 (val (dig Y)) Y (val (big Y))) (? (lt0..."},{"Add":" br label %$29"},{"Add":"$29:"},{"Add":" %370 = phi i64 [%356, %$28], [%393, %$30] ; # A"},{"Add":" %371 = phi i64 [%357, %$28], [%394, %$30] ; # B"},{"Add":" %372 = phi i64 [%358, %$28], [%395, %$30] ; # R"},{"Add":" %373 = phi i64 [%359, %$28], [%396, %$30] ; # P"},{"Add":" %374 = phi i64 [%360, %$28], [%397, %$30] ; # V1"},{"Add":" %375 = phi i64 [%361, %$28], [%398, %$30] ; # V2"},{"Add":" %376 = phi i64 [%362, %$28], [%399, %$30] ; # M"},{"Add":" %377 = phi i64 [%363, %$28], [%400, %$30] ; # N"},{"Add":" %378 = phi i64 [%364, %$28], [%401, %$30] ; # D"},{"Add":" %379 = phi i64 [%365, %$28], [%402, %$30] ; # Q"},{"Add":" %380 = phi i64 [%366, %$28], [%403, %$30] ; # X"},{"Add":" %381 = phi i64 [%367, %$28], [%404, %$30] ; # U1"},{"Add":" %382 = phi i64 [%368, %$28], [%405, %$30] ; # U2"},{"Add":" %383 = phi i64 [%363, %$28], [%407, %$30] ; # I"},{"Add":" %384 = phi i64 [%366, %$28], [%408, %$30] ; # Y"},{"Add":"; # (dig Y)"},{"Add":" %385 = add i64 %384, -4"},{"Add":"; # (val (dig Y))"},{"Add":" %386 = inttoptr i64 %385 to i64*"},{"Add":" %387 = load i64, i64* %386"},{"Add":"; # (big Y)"},{"Add":" %388 = add i64 %384, 4"},{"Add":"; # (val (big Y))"},{"Add":" %389 = inttoptr i64 %388 to i64*"},{"Add":" %390 = load i64, i64* %389"},{"Add":"; # (? (lt0 (dec 'I)))"},{"Add":"; # (dec 'I)"},{"Add":" %391 = sub i64 %383, 1"},{"Add":"; # (lt0 (dec 'I))"},{"Add":" %392 = icmp slt i64 %391, 0"},{"Add":" br i1 %392, label %$31, label %$30"},{"Add":"$30:"},{"Add":" %393 = phi i64 [%370, %$29] ; # A"},{"Add":" %394 = phi i64 [%371, %$29] ; # B"},{"Add":" %395 = phi i64 [%372, %$29] ; # R"},{"Add":" %396 = phi i64 [%373, %$29] ; # P"},{"Add":" %397 = phi i64 [%374, %$29] ; # V1"},{"Add":" %398 = phi i64 [%375, %$29] ; # V2"},{"Add":" %399 = phi i64 [%376, %$29] ; # M"},{"Add":" %400 = phi i64 [%377, %$29] ; # N"},{"Add":" %401 = phi i64 [%378, %$29] ; # D"},{"Add":" %402 = phi i64 [%379, %$29] ; # Q"},{"Add":" %403 = phi i64 [%380, %$29] ; # X"},{"Add":" %404 = phi i64 [%387, %$29] ; # U1"},{"Add":" %405 = phi i64 [%381, %$29] ; # U2"},{"Add":" %406 = phi i64 [%382, %$29] ; # U3"},{"Add":" %407 = phi i64 [%391, %$29] ; # I"},{"Add":" %408 = phi i64 [%390, %$29] ; # Y"},{"Add":" br label %$29"},{"Add":"$31:"},{"Add":" %409 = phi i64 [%370, %$29] ; # A"},{"Add":" %410 = phi i64 [%371, %$29] ; # B"},{"Add":" %411 = phi i64 [%372, %$29] ; # R"},{"Add":" %412 = phi i64 [%373, %$29] ; # P"},{"Add":" %413 = phi i64 [%374, %$29] ; # V1"},{"Add":" %414 = phi i64 [%375, %$29] ; # V2"},{"Add":" %415 = phi i64 [%376, %$29] ; # M"},{"Add":" %416 = phi i64 [%377, %$29] ; # N"},{"Add":" %417 = phi i64 [%378, %$29] ; # D"},{"Add":" %418 = phi i64 [%379, %$29] ; # Q"},{"Add":" %419 = phi i64 [%380, %$29] ; # X"},{"Add":" %420 = phi i64 [%387, %$29] ; # U1"},{"Add":" %421 = phi i64 [%381, %$29] ; # U2"},{"Add":" %422 = phi i64 [%382, %$29] ; # U3"},{"Add":" %423 = phi i64 [%391, %$29] ; # I"},{"Add":" %424 = phi i64 [%390, %$29] ; # Y"},{"Add":" %425 = phi i64 [0, %$29] ; # ->"},{"Add":"; # (let (Hi U1 Lo U2) (setq Q (if (== U1 V1) -1 (div Hi Lo V1))) (se..."},{"Add":"; # (if (== U1 V1) -1 (div Hi Lo V1))"},{"Add":"; # (== U1 V1)"},{"Add":" %426 = icmp eq i64 %420, %413"},{"Add":" br i1 %426, label %$32, label %$33"},{"Add":"$32:"},{"Add":" %427 = phi i64 [%409, %$31] ; # A"},{"Add":" %428 = phi i64 [%410, %$31] ; # B"},{"Add":" %429 = phi i64 [%411, %$31] ; # R"},{"Add":" %430 = phi i64 [%412, %$31] ; # P"},{"Add":" %431 = phi i64 [%413, %$31] ; # V1"},{"Add":" %432 = phi i64 [%414, %$31] ; # V2"},{"Add":" %433 = phi i64 [%415, %$31] ; # M"},{"Add":" %434 = phi i64 [%416, %$31] ; # N"},{"Add":" %435 = phi i64 [%417, %$31] ; # D"},{"Add":" %436 = phi i64 [%418, %$31] ; # Q"},{"Add":" %437 = phi i64 [%419, %$31] ; # X"},{"Add":" %438 = phi i64 [%420, %$31] ; # U1"},{"Add":" %439 = phi i64 [%421, %$31] ; # U2"},{"Add":" %440 = phi i64 [%422, %$31] ; # U3"},{"Add":" %441 = phi i64 [%420, %$31] ; # Hi"},{"Add":" %442 = phi i64 [%421, %$31] ; # Lo"},{"Add":" br label %$34"},{"Add":"$33:"},{"Add":" %443 = phi i64 [%409, %$31] ; # A"},{"Add":" %444 = phi i64 [%410, %$31] ; # B"},{"Add":" %445 = phi i64 [%411, %$31] ; # R"},{"Add":" %446 = phi i64 [%412, %$31] ; # P"},{"Add":" %447 = phi i64 [%413, %$31] ; # V1"},{"Add":" %448 = phi i64 [%414, %$31] ; # V2"},{"Add":" %449 = phi i64 [%415, %$31] ; # M"},{"Add":" %450 = phi i64 [%416, %$31] ; # N"},{"Add":" %451 = phi i64 [%417, %$31] ; # D"},{"Add":" %452 = phi i64 [%418, %$31] ; # Q"},{"Add":" %453 = phi i64 [%419, %$31] ; # X"},{"Add":" %454 = phi i64 [%420, %$31] ; # U1"},{"Add":" %455 = phi i64 [%421, %$31] ; # U2"},{"Add":" %456 = phi i64 [%422, %$31] ; # U3"},{"Add":" %457 = phi i64 [%420, %$31] ; # Hi"},{"Add":" %458 = phi i64 [%421, %$31] ; # Lo"},{"Add":"; # (div Hi Lo V1)"},{"Add":" %459 = zext i64 %457 to i128"},{"Add":" %460 = shl i128 %459, 64"},{"Add":" %461 = zext i64 %458 to i128"},{"Add":" %462 = or i128 %460, %461"},{"Add":" %463 = zext i64 %447 to i128"},{"Add":" %464 = urem i128 %462, %463"},{"Add":" %465 = trunc i128 %464 to i64"},{"Add":" %466 = udiv i128 %462, %463"},{"Add":" %467 = trunc i128 %466 to i64"},{"Add":" br label %$34"},{"Add":"$34:"},{"Add":" %468 = phi i64 [%427, %$32], [%443, %$33] ; # A"},{"Add":" %469 = phi i64 [%428, %$32], [%444, %$33] ; # B"},{"Add":" %470 = phi i64 [%429, %$32], [%445, %$33] ; # R"},{"Add":" %471 = phi i64 [%430, %$32], [%446, %$33] ; # P"},{"Add":" %472 = phi i64 [%431, %$32], [%447, %$33] ; # V1"},{"Add":" %473 = phi i64 [%432, %$32], [%448, %$33] ; # V2"},{"Add":" %474 = phi i64 [%433, %$32], [%449, %$33] ; # M"},{"Add":" %475 = phi i64 [%434, %$32], [%450, %$33] ; # N"},{"Add":" %476 = phi i64 [%435, %$32], [%451, %$33] ; # D"},{"Add":" %477 = phi i64 [%436, %$32], [%452, %$33] ; # Q"},{"Add":" %478 = phi i64 [%437, %$32], [%453, %$33] ; # X"},{"Add":" %479 = phi i64 [%438, %$32], [%454, %$33] ; # U1"},{"Add":" %480 = phi i64 [%439, %$32], [%455, %$33] ; # U2"},{"Add":" %481 = phi i64 [%440, %$32], [%456, %$33] ; # U3"},{"Add":" %482 = phi i64 [%441, %$32], [%457, %$33] ; # Hi"},{"Add":" %483 = phi i64 [%442, %$32], [%458, %$33] ; # Lo"},{"Add":" %484 = phi i64 [-1, %$32], [%467, %$33] ; # ->"},{"Add":"; # (mul Q V1)"},{"Add":" %485 = zext i64 %484 to i128"},{"Add":" %486 = zext i64 %472 to i128"},{"Add":" %487 = mul i128 %485, %486"},{"Add":" %488 = lshr i128 %487, 64"},{"Add":" %489 = trunc i128 %488 to i64"},{"Add":" %490 = trunc i128 %487 to i64"},{"Add":"; # (sub Lo (mul Q V1))"},{"Add":" %491 = call {i64, i1} @llvm.usub.with.overflow.i64(i64 %483, i64 %490)"},{"Add":" %492 = extractvalue {i64, i1} %491, 1"},{"Add":" %493 = extractvalue {i64, i1} %491, 0"},{"Add":"; # (sub Hi @@@ @@)"},{"Add":" %494 = call {i64, i1} @llvm.usub.with.overflow.i64(i64 %482, i64 %489)"},{"Add":" %495 = extractvalue {i64, i1} %494, 1"},{"Add":" %496 = extractvalue {i64, i1} %494, 0"},{"Add":" %497 = zext i1 %492 to i64"},{"Add":" %498 = call {i64, i1} @llvm.usub.with.overflow.i64(i64 %496, i64 %497)"},{"Add":" %499 = extractvalue {i64, i1} %498, 1"},{"Add":" %500 = or i1 %495, %499"},{"Add":" %501 = extractvalue {i64, i1} %498, 0"},{"Add":"; # (until Hi (let L (mul Q V2) (? (> Lo @@@)) (? (and (== Lo @@@) (>..."},{"Add":" br label %$35"},{"Add":"$35:"},{"Add":" %502 = phi i64 [%468, %$34], [%593, %$41] ; # A"},{"Add":" %503 = phi i64 [%469, %$34], [%594, %$41] ; # B"},{"Add":" %504 = phi i64 [%470, %$34], [%595, %$41] ; # R"},{"Add":" %505 = phi i64 [%471, %$34], [%596, %$41] ; # P"},{"Add":" %506 = phi i64 [%472, %$34], [%597, %$41] ; # V1"},{"Add":" %507 = phi i64 [%473, %$34], [%598, %$41] ; # V2"},{"Add":" %508 = phi i64 [%474, %$34], [%599, %$41] ; # M"},{"Add":" %509 = phi i64 [%475, %$34], [%600, %$41] ; # N"},{"Add":" %510 = phi i64 [%476, %$34], [%601, %$41] ; # D"},{"Add":" %511 = phi i64 [%484, %$34], [%609, %$41] ; # Q"},{"Add":" %512 = phi i64 [%478, %$34], [%603, %$41] ; # X"},{"Add":" %513 = phi i64 [%479, %$34], [%604, %$41] ; # U1"},{"Add":" %514 = phi i64 [%480, %$34], [%605, %$41] ; # U2"},{"Add":" %515 = phi i64 [%481, %$34], [%606, %$41] ; # U3"},{"Add":" %516 = phi i64 [%501, %$34], [%614, %$41] ; # Hi"},{"Add":" %517 = phi i64 [%493, %$34], [%612, %$41] ; # Lo"},{"Add":" %518 = icmp ne i64 %516, 0"},{"Add":" br i1 %518, label %$37, label %$36"},{"Add":"$36:"},{"Add":" %519 = phi i64 [%502, %$35] ; # A"},{"Add":" %520 = phi i64 [%503, %$35] ; # B"},{"Add":" %521 = phi i64 [%504, %$35] ; # R"},{"Add":" %522 = phi i64 [%505, %$35] ; # P"},{"Add":" %523 = phi i64 [%506, %$35] ; # V1"},{"Add":" %524 = phi i64 [%507, %$35] ; # V2"},{"Add":" %525 = phi i64 [%508, %$35] ; # M"},{"Add":" %526 = phi i64 [%509, %$35] ; # N"},{"Add":" %527 = phi i64 [%510, %$35] ; # D"},{"Add":" %528 = phi i64 [%511, %$35] ; # Q"},{"Add":" %529 = phi i64 [%512, %$35] ; # X"},{"Add":" %530 = phi i64 [%513, %$35] ; # U1"},{"Add":" %531 = phi i64 [%514, %$35] ; # U2"},{"Add":" %532 = phi i64 [%515, %$35] ; # U3"},{"Add":" %533 = phi i64 [%516, %$35] ; # Hi"},{"Add":" %534 = phi i64 [%517, %$35] ; # Lo"},{"Add":"; # (let L (mul Q V2) (? (> Lo @@@)) (? (and (== Lo @@@) (>= U3 L))))..."},{"Add":"; # (mul Q V2)"},{"Add":" %535 = zext i64 %528 to i128"},{"Add":" %536 = zext i64 %524 to i128"},{"Add":" %537 = mul i128 %535, %536"},{"Add":" %538 = lshr i128 %537, 64"},{"Add":" %539 = trunc i128 %538 to i64"},{"Add":" %540 = trunc i128 %537 to i64"},{"Add":"; # (? (> Lo @@@))"},{"Add":"; # (> Lo @@@)"},{"Add":" %541 = icmp ugt i64 %534, %539"},{"Add":" br i1 %541, label %$37, label %$38"},{"Add":"$38:"},{"Add":" %542 = phi i64 [%519, %$36] ; # A"},{"Add":" %543 = phi i64 [%520, %$36] ; # B"},{"Add":" %544 = phi i64 [%521, %$36] ; # R"},{"Add":" %545 = phi i64 [%522, %$36] ; # P"},{"Add":" %546 = phi i64 [%523, %$36] ; # V1"},{"Add":" %547 = phi i64 [%524, %$36] ; # V2"},{"Add":" %548 = phi i64 [%525, %$36] ; # M"},{"Add":" %549 = phi i64 [%526, %$36] ; # N"},{"Add":" %550 = phi i64 [%527, %$36] ; # D"},{"Add":" %551 = phi i64 [%528, %$36] ; # Q"},{"Add":" %552 = phi i64 [%529, %$36] ; # X"},{"Add":" %553 = phi i64 [%530, %$36] ; # U1"},{"Add":" %554 = phi i64 [%531, %$36] ; # U2"},{"Add":" %555 = phi i64 [%532, %$36] ; # U3"},{"Add":" %556 = phi i64 [%533, %$36] ; # Hi"},{"Add":" %557 = phi i64 [%534, %$36] ; # Lo"},{"Add":"; # (? (and (== Lo @@@) (>= U3 L)))"},{"Add":"; # (and (== Lo @@@) (>= U3 L))"},{"Add":"; # (== Lo @@@)"},{"Add":" %558 = icmp eq i64 %557, %539"},{"Add":" br i1 %558, label %$40, label %$39"},{"Add":"$40:"},{"Add":" %559 = phi i64 [%542, %$38] ; # A"},{"Add":" %560 = phi i64 [%543, %$38] ; # B"},{"Add":" %561 = phi i64 [%544, %$38] ; # R"},{"Add":" %562 = phi i64 [%545, %$38] ; # P"},{"Add":" %563 = phi i64 [%546, %$38] ; # V1"},{"Add":" %564 = phi i64 [%547, %$38] ; # V2"},{"Add":" %565 = phi i64 [%548, %$38] ; # M"},{"Add":" %566 = phi i64 [%549, %$38] ; # N"},{"Add":" %567 = phi i64 [%550, %$38] ; # D"},{"Add":" %568 = phi i64 [%551, %$38] ; # Q"},{"Add":" %569 = phi i64 [%552, %$38] ; # X"},{"Add":" %570 = phi i64 [%553, %$38] ; # U1"},{"Add":" %571 = phi i64 [%554, %$38] ; # U2"},{"Add":" %572 = phi i64 [%555, %$38] ; # U3"},{"Add":" %573 = phi i64 [%556, %$38] ; # Hi"},{"Add":" %574 = phi i64 [%557, %$38] ; # Lo"},{"Add":"; # (>= U3 L)"},{"Add":" %575 = icmp uge i64 %572, %540"},{"Add":" br label %$39"},{"Add":"$39:"},{"Add":" %576 = phi i64 [%542, %$38], [%559, %$40] ; # A"},{"Add":" %577 = phi i64 [%543, %$38], [%560, %$40] ; # B"},{"Add":" %578 = phi i64 [%544, %$38], [%561, %$40] ; # R"},{"Add":" %579 = phi i64 [%545, %$38], [%562, %$40] ; # P"},{"Add":" %580 = phi i64 [%546, %$38], [%563, %$40] ; # V1"},{"Add":" %581 = phi i64 [%547, %$38], [%564, %$40] ; # V2"},{"Add":" %582 = phi i64 [%548, %$38], [%565, %$40] ; # M"},{"Add":" %583 = phi i64 [%549, %$38], [%566, %$40] ; # N"},{"Add":" %584 = phi i64 [%550, %$38], [%567, %$40] ; # D"},{"Add":" %585 = phi i64 [%551, %$38], [%568, %$40] ; # Q"},{"Add":" %586 = phi i64 [%552, %$38], [%569, %$40] ; # X"},{"Add":" %587 = phi i64 [%553, %$38], [%570, %$40] ; # U1"},{"Add":" %588 = phi i64 [%554, %$38], [%571, %$40] ; # U2"},{"Add":" %589 = phi i64 [%555, %$38], [%572, %$40] ; # U3"},{"Add":" %590 = phi i64 [%556, %$38], [%573, %$40] ; # Hi"},{"Add":" %591 = phi i64 [%557, %$38], [%574, %$40] ; # Lo"},{"Add":" %592 = phi i1 [0, %$38], [%575, %$40] ; # ->"},{"Add":" br i1 %592, label %$37, label %$41"},{"Add":"$41:"},{"Add":" %593 = phi i64 [%576, %$39] ; # A"},{"Add":" %594 = phi i64 [%577, %$39] ; # B"},{"Add":" %595 = phi i64 [%578, %$39] ; # R"},{"Add":" %596 = phi i64 [%579, %$39] ; # P"},{"Add":" %597 = phi i64 [%580, %$39] ; # V1"},{"Add":" %598 = phi i64 [%581, %$39] ; # V2"},{"Add":" %599 = phi i64 [%582, %$39] ; # M"},{"Add":" %600 = phi i64 [%583, %$39] ; # N"},{"Add":" %601 = phi i64 [%584, %$39] ; # D"},{"Add":" %602 = phi i64 [%585, %$39] ; # Q"},{"Add":" %603 = phi i64 [%586, %$39] ; # X"},{"Add":" %604 = phi i64 [%587, %$39] ; # U1"},{"Add":" %605 = phi i64 [%588, %$39] ; # U2"},{"Add":" %606 = phi i64 [%589, %$39] ; # U3"},{"Add":" %607 = phi i64 [%590, %$39] ; # Hi"},{"Add":" %608 = phi i64 [%591, %$39] ; # Lo"},{"Add":"; # (dec 'Q)"},{"Add":" %609 = sub i64 %602, 1"},{"Add":"; # (add Lo V1)"},{"Add":" %610 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %608, i64 %597)"},{"Add":" %611 = extractvalue {i64, i1} %610, 1"},{"Add":" %612 = extractvalue {i64, i1} %610, 0"},{"Add":"; # (+ Hi @@)"},{"Add":" %613 = zext i1 %611 to i64"},{"Add":" %614 = add i64 %607, %613"},{"Add":" br label %$35"},{"Add":"$37:"},{"Add":" %615 = phi i64 [%502, %$35], [%519, %$36], [%576, %$39] ; # A"},{"Add":" %616 = phi i64 [%503, %$35], [%520, %$36], [%577, %$39] ; # B"},{"Add":" %617 = phi i64 [%504, %$35], [%521, %$36], [%578, %$39] ; # R"},{"Add":" %618 = phi i64 [%505, %$35], [%522, %$36], [%579, %$39] ; # P"},{"Add":" %619 = phi i64 [%506, %$35], [%523, %$36], [%580, %$39] ; # V1"},{"Add":" %620 = phi i64 [%507, %$35], [%524, %$36], [%581, %$39] ; # V2"},{"Add":" %621 = phi i64 [%508, %$35], [%525, %$36], [%582, %$39] ; # M"},{"Add":" %622 = phi i64 [%509, %$35], [%526, %$36], [%583, %$39] ; # N"},{"Add":" %623 = phi i64 [%510, %$35], [%527, %$36], [%584, %$39] ; # D"},{"Add":" %624 = phi i64 [%511, %$35], [%528, %$36], [%585, %$39] ; # Q"},{"Add":" %625 = phi i64 [%512, %$35], [%529, %$36], [%586, %$39] ; # X"},{"Add":" %626 = phi i64 [%513, %$35], [%530, %$36], [%587, %$39] ; # U1"},{"Add":" %627 = phi i64 [%514, %$35], [%531, %$36], [%588, %$39] ; # U2"},{"Add":" %628 = phi i64 [%515, %$35], [%532, %$36], [%589, %$39] ; # U3"},{"Add":" %629 = phi i64 [%516, %$35], [%533, %$36], [%590, %$39] ; # Hi"},{"Add":" %630 = phi i64 [%517, %$35], [%534, %$36], [%591, %$39] ; # Lo"},{"Add":"; # (let (Z X Y (val V)) (set (dig Z) (sub (val (dig Z)) (mul Q (val ..."},{"Add":"; # (val V)"},{"Add":" %631 = inttoptr i64 %24 to i64*"},{"Add":" %632 = load i64, i64* %631"},{"Add":"; # (set (dig Z) (sub (val (dig Z)) (mul Q (val (dig Y)))))"},{"Add":"; # (dig Z)"},{"Add":" %633 = add i64 %625, -4"},{"Add":"; # (dig Z)"},{"Add":" %634 = add i64 %625, -4"},{"Add":"; # (val (dig Z))"},{"Add":" %635 = inttoptr i64 %634 to i64*"},{"Add":" %636 = load i64, i64* %635"},{"Add":"; # (dig Y)"},{"Add":" %637 = add i64 %632, -4"},{"Add":"; # (val (dig Y))"},{"Add":" %638 = inttoptr i64 %637 to i64*"},{"Add":" %639 = load i64, i64* %638"},{"Add":"; # (mul Q (val (dig Y)))"},{"Add":" %640 = zext i64 %624 to i128"},{"Add":" %641 = zext i64 %639 to i128"},{"Add":" %642 = mul i128 %640, %641"},{"Add":" %643 = lshr i128 %642, 64"},{"Add":" %644 = trunc i128 %643 to i64"},{"Add":" %645 = trunc i128 %642 to i64"},{"Add":"; # (sub (val (dig Z)) (mul Q (val (dig Y))))"},{"Add":" %646 = call {i64, i1} @llvm.usub.with.overflow.i64(i64 %636, i64 %645)"},{"Add":" %647 = extractvalue {i64, i1} %646, 1"},{"Add":" %648 = extractvalue {i64, i1} %646, 0"},{"Add":" %649 = inttoptr i64 %633 to i64*"},{"Add":" store i64 %648, i64* %649"},{"Add":"; # (+ @@@ @@)"},{"Add":" %650 = zext i1 %647 to i64"},{"Add":" %651 = add i64 %644, %650"},{"Add":"; # (while (big? (setq Y (val (big Y)))) (setq Z (val (big Z))) (set ..."},{"Add":" br label %$42"},{"Add":"$42:"},{"Add":" %652 = phi i64 [%615, %$37], [%675, %$43] ; # A"},{"Add":" %653 = phi i64 [%616, %$37], [%676, %$43] ; # B"},{"Add":" %654 = phi i64 [%617, %$37], [%677, %$43] ; # R"},{"Add":" %655 = phi i64 [%618, %$37], [%678, %$43] ; # P"},{"Add":" %656 = phi i64 [%619, %$37], [%679, %$43] ; # V1"},{"Add":" %657 = phi i64 [%620, %$37], [%680, %$43] ; # V2"},{"Add":" %658 = phi i64 [%621, %$37], [%681, %$43] ; # M"},{"Add":" %659 = phi i64 [%622, %$37], [%682, %$43] ; # N"},{"Add":" %660 = phi i64 [%623, %$37], [%683, %$43] ; # D"},{"Add":" %661 = phi i64 [%624, %$37], [%684, %$43] ; # Q"},{"Add":" %662 = phi i64 [%625, %$37], [%685, %$43] ; # X"},{"Add":" %663 = phi i64 [%626, %$37], [%686, %$43] ; # U1"},{"Add":" %664 = phi i64 [%627, %$37], [%687, %$43] ; # U2"},{"Add":" %665 = phi i64 [%628, %$37], [%688, %$43] ; # U3"},{"Add":" %666 = phi i64 [%651, %$37], [%732, %$43] ; # Hi"},{"Add":" %667 = phi i64 [%630, %$37], [%690, %$43] ; # Lo"},{"Add":" %668 = phi i64 [%625, %$37], [%695, %$43] ; # Z"},{"Add":" %669 = phi i64 [%632, %$37], [%692, %$43] ; # Y"},{"Add":"; # (big Y)"},{"Add":" %670 = add i64 %669, 4"},{"Add":"; # (val (big Y))"},{"Add":" %671 = inttoptr i64 %670 to i64*"},{"Add":" %672 = load i64, i64* %671"},{"Add":"; # (big? (setq Y (val (big Y))))"},{"Add":" %673 = and i64 %672, 4"},{"Add":" %674 = icmp ne i64 %673, 0"},{"Add":" br i1 %674, label %$43, label %$44"},{"Add":"$43:"},{"Add":" %675 = phi i64 [%652, %$42] ; # A"},{"Add":" %676 = phi i64 [%653, %$42] ; # B"},{"Add":" %677 = phi i64 [%654, %$42] ; # R"},{"Add":" %678 = phi i64 [%655, %$42] ; # P"},{"Add":" %679 = phi i64 [%656, %$42] ; # V1"},{"Add":" %680 = phi i64 [%657, %$42] ; # V2"},{"Add":" %681 = phi i64 [%658, %$42] ; # M"},{"Add":" %682 = phi i64 [%659, %$42] ; # N"},{"Add":" %683 = phi i64 [%660, %$42] ; # D"},{"Add":" %684 = phi i64 [%661, %$42] ; # Q"},{"Add":" %685 = phi i64 [%662, %$42] ; # X"},{"Add":" %686 = phi i64 [%663, %$42] ; # U1"},{"Add":" %687 = phi i64 [%664, %$42] ; # U2"},{"Add":" %688 = phi i64 [%665, %$42] ; # U3"},{"Add":" %689 = phi i64 [%666, %$42] ; # Hi"},{"Add":" %690 = phi i64 [%667, %$42] ; # Lo"},{"Add":" %691 = phi i64 [%668, %$42] ; # Z"},{"Add":" %692 = phi i64 [%672, %$42] ; # Y"},{"Add":"; # (big Z)"},{"Add":" %693 = add i64 %691, 4"},{"Add":"; # (val (big Z))"},{"Add":" %694 = inttoptr i64 %693 to i64*"},{"Add":" %695 = load i64, i64* %694"},{"Add":"; # (set (dig Z) (sub (val (dig Z)) Hi))"},{"Add":"; # (dig Z)"},{"Add":" %696 = add i64 %695, -4"},{"Add":"; # (dig Z)"},{"Add":" %697 = add i64 %695, -4"},{"Add":"; # (val (dig Z))"},{"Add":" %698 = inttoptr i64 %697 to i64*"},{"Add":" %699 = load i64, i64* %698"},{"Add":"; # (sub (val (dig Z)) Hi)"},{"Add":" %700 = call {i64, i1} @llvm.usub.with.overflow.i64(i64 %699, i64 %689)"},{"Add":" %701 = extractvalue {i64, i1} %700, 1"},{"Add":" %702 = extractvalue {i64, i1} %700, 0"},{"Add":" %703 = inttoptr i64 %696 to i64*"},{"Add":" store i64 %702, i64* %703"},{"Add":"; # (- Hi Hi @@)"},{"Add":" %704 = sub i64 %689, %689"},{"Add":" %705 = zext i1 %701 to i64"},{"Add":" %706 = sub i64 %704, %705"},{"Add":"; # (set (dig Z) (sub (val (dig Z)) (mul Q (val (dig Y)))))"},{"Add":"; # (dig Z)"},{"Add":" %707 = add i64 %695, -4"},{"Add":"; # (dig Z)"},{"Add":" %708 = add i64 %695, -4"},{"Add":"; # (val (dig Z))"},{"Add":" %709 = inttoptr i64 %708 to i64*"},{"Add":" %710 = load i64, i64* %709"},{"Add":"; # (dig Y)"},{"Add":" %711 = add i64 %692, -4"},{"Add":"; # (val (dig Y))"},{"Add":" %712 = inttoptr i64 %711 to i64*"},{"Add":" %713 = load i64, i64* %712"},{"Add":"; # (mul Q (val (dig Y)))"},{"Add":" %714 = zext i64 %684 to i128"},{"Add":" %715 = zext i64 %713 to i128"},{"Add":" %716 = mul i128 %714, %715"},{"Add":" %717 = lshr i128 %716, 64"},{"Add":" %718 = trunc i128 %717 to i64"},{"Add":" %719 = trunc i128 %716 to i64"},{"Add":"; # (sub (val (dig Z)) (mul Q (val (dig Y))))"},{"Add":" %720 = call {i64, i1} @llvm.usub.with.overflow.i64(i64 %710, i64 %719)"},{"Add":" %721 = extractvalue {i64, i1} %720, 1"},{"Add":" %722 = extractvalue {i64, i1} %720, 0"},{"Add":" %723 = inttoptr i64 %707 to i64*"},{"Add":" store i64 %722, i64* %723"},{"Add":"; # (sub Hi @@@ @@)"},{"Add":" %724 = call {i64, i1} @llvm.usub.with.overflow.i64(i64 %706, i64 %718)"},{"Add":" %725 = extractvalue {i64, i1} %724, 1"},{"Add":" %726 = extractvalue {i64, i1} %724, 0"},{"Add":" %727 = zext i1 %721 to i64"},{"Add":" %728 = call {i64, i1} @llvm.usub.with.overflow.i64(i64 %726, i64 %727)"},{"Add":" %729 = extractvalue {i64, i1} %728, 1"},{"Add":" %730 = or i1 %725, %729"},{"Add":" %731 = extractvalue {i64, i1} %728, 0"},{"Add":"; # (- (sub Hi @@@ @@))"},{"Add":" %732 = sub i64 0, %731"},{"Add":" br label %$42"},{"Add":"$44:"},{"Add":" %733 = phi i64 [%652, %$42] ; # A"},{"Add":" %734 = phi i64 [%653, %$42] ; # B"},{"Add":" %735 = phi i64 [%654, %$42] ; # R"},{"Add":" %736 = phi i64 [%655, %$42] ; # P"},{"Add":" %737 = phi i64 [%656, %$42] ; # V1"},{"Add":" %738 = phi i64 [%657, %$42] ; # V2"},{"Add":" %739 = phi i64 [%658, %$42] ; # M"},{"Add":" %740 = phi i64 [%659, %$42] ; # N"},{"Add":" %741 = phi i64 [%660, %$42] ; # D"},{"Add":" %742 = phi i64 [%661, %$42] ; # Q"},{"Add":" %743 = phi i64 [%662, %$42] ; # X"},{"Add":" %744 = phi i64 [%663, %$42] ; # U1"},{"Add":" %745 = phi i64 [%664, %$42] ; # U2"},{"Add":" %746 = phi i64 [%665, %$42] ; # U3"},{"Add":" %747 = phi i64 [%666, %$42] ; # Hi"},{"Add":" %748 = phi i64 [%667, %$42] ; # Lo"},{"Add":" %749 = phi i64 [%668, %$42] ; # Z"},{"Add":" %750 = phi i64 [%672, %$42] ; # Y"},{"Add":"; # (when Hi (setq Z (val (big Z))) (set (dig Z) (sub (val (dig Z)) H..."},{"Add":" %751 = icmp ne i64 %747, 0"},{"Add":" br i1 %751, label %$45, label %$46"},{"Add":"$45:"},{"Add":" %752 = phi i64 [%733, %$44] ; # A"},{"Add":" %753 = phi i64 [%734, %$44] ; # B"},{"Add":" %754 = phi i64 [%735, %$44] ; # R"},{"Add":" %755 = phi i64 [%736, %$44] ; # P"},{"Add":" %756 = phi i64 [%737, %$44] ; # V1"},{"Add":" %757 = phi i64 [%738, %$44] ; # V2"},{"Add":" %758 = phi i64 [%739, %$44] ; # M"},{"Add":" %759 = phi i64 [%740, %$44] ; # N"},{"Add":" %760 = phi i64 [%741, %$44] ; # D"},{"Add":" %761 = phi i64 [%742, %$44] ; # Q"},{"Add":" %762 = phi i64 [%743, %$44] ; # X"},{"Add":" %763 = phi i64 [%744, %$44] ; # U1"},{"Add":" %764 = phi i64 [%745, %$44] ; # U2"},{"Add":" %765 = phi i64 [%746, %$44] ; # U3"},{"Add":" %766 = phi i64 [%747, %$44] ; # Hi"},{"Add":" %767 = phi i64 [%748, %$44] ; # Lo"},{"Add":" %768 = phi i64 [%749, %$44] ; # Z"},{"Add":" %769 = phi i64 [%750, %$44] ; # Y"},{"Add":"; # (big Z)"},{"Add":" %770 = add i64 %768, 4"},{"Add":"; # (val (big Z))"},{"Add":" %771 = inttoptr i64 %770 to i64*"},{"Add":" %772 = load i64, i64* %771"},{"Add":"; # (set (dig Z) (sub (val (dig Z)) Hi))"},{"Add":"; # (dig Z)"},{"Add":" %773 = add i64 %772, -4"},{"Add":"; # (dig Z)"},{"Add":" %774 = add i64 %772, -4"},{"Add":"; # (val (dig Z))"},{"Add":" %775 = inttoptr i64 %774 to i64*"},{"Add":" %776 = load i64, i64* %775"},{"Add":"; # (sub (val (dig Z)) Hi)"},{"Add":" %777 = call {i64, i1} @llvm.usub.with.overflow.i64(i64 %776, i64 %766)"},{"Add":" %778 = extractvalue {i64, i1} %777, 1"},{"Add":" %779 = extractvalue {i64, i1} %777, 0"},{"Add":" %780 = inttoptr i64 %773 to i64*"},{"Add":" store i64 %779, i64* %780"},{"Add":"; # (when @@ (dec 'Q) (when (or Rem M) (setq Y (val V)) (set (dig X) ..."},{"Add":" br i1 %778, label %$47, label %$48"},{"Add":"$47:"},{"Add":" %781 = phi i64 [%752, %$45] ; # A"},{"Add":" %782 = phi i64 [%753, %$45] ; # B"},{"Add":" %783 = phi i64 [%754, %$45] ; # R"},{"Add":" %784 = phi i64 [%755, %$45] ; # P"},{"Add":" %785 = phi i64 [%756, %$45] ; # V1"},{"Add":" %786 = phi i64 [%757, %$45] ; # V2"},{"Add":" %787 = phi i64 [%758, %$45] ; # M"},{"Add":" %788 = phi i64 [%759, %$45] ; # N"},{"Add":" %789 = phi i64 [%760, %$45] ; # D"},{"Add":" %790 = phi i64 [%761, %$45] ; # Q"},{"Add":" %791 = phi i64 [%762, %$45] ; # X"},{"Add":" %792 = phi i64 [%763, %$45] ; # U1"},{"Add":" %793 = phi i64 [%764, %$45] ; # U2"},{"Add":" %794 = phi i64 [%765, %$45] ; # U3"},{"Add":" %795 = phi i64 [%766, %$45] ; # Hi"},{"Add":" %796 = phi i64 [%767, %$45] ; # Lo"},{"Add":" %797 = phi i64 [%772, %$45] ; # Z"},{"Add":" %798 = phi i64 [%769, %$45] ; # Y"},{"Add":"; # (dec 'Q)"},{"Add":" %799 = sub i64 %790, 1"},{"Add":"; # (when (or Rem M) (setq Y (val V)) (set (dig X) (add (val (dig X))..."},{"Add":"; # (or Rem M)"},{"Add":" br i1 %2, label %$49, label %$50"},{"Add":"$50:"},{"Add":" %800 = phi i64 [%781, %$47] ; # A"},{"Add":" %801 = phi i64 [%782, %$47] ; # B"},{"Add":" %802 = phi i64 [%783, %$47] ; # R"},{"Add":" %803 = phi i64 [%784, %$47] ; # P"},{"Add":" %804 = phi i64 [%785, %$47] ; # V1"},{"Add":" %805 = phi i64 [%786, %$47] ; # V2"},{"Add":" %806 = phi i64 [%787, %$47] ; # M"},{"Add":" %807 = phi i64 [%788, %$47] ; # N"},{"Add":" %808 = phi i64 [%789, %$47] ; # D"},{"Add":" %809 = phi i64 [%799, %$47] ; # Q"},{"Add":" %810 = phi i64 [%791, %$47] ; # X"},{"Add":" %811 = phi i64 [%792, %$47] ; # U1"},{"Add":" %812 = phi i64 [%793, %$47] ; # U2"},{"Add":" %813 = phi i64 [%794, %$47] ; # U3"},{"Add":" %814 = phi i64 [%795, %$47] ; # Hi"},{"Add":" %815 = phi i64 [%796, %$47] ; # Lo"},{"Add":" %816 = phi i64 [%797, %$47] ; # Z"},{"Add":" %817 = phi i64 [%798, %$47] ; # Y"},{"Add":" %818 = icmp ne i64 %806, 0"},{"Add":" br label %$49"},{"Add":"$49:"},{"Add":" %819 = phi i64 [%781, %$47], [%800, %$50] ; # A"},{"Add":" %820 = phi i64 [%782, %$47], [%801, %$50] ; # B"},{"Add":" %821 = phi i64 [%783, %$47], [%802, %$50] ; # R"},{"Add":" %822 = phi i64 [%784, %$47], [%803, %$50] ; # P"},{"Add":" %823 = phi i64 [%785, %$47], [%804, %$50] ; # V1"},{"Add":" %824 = phi i64 [%786, %$47], [%805, %$50] ; # V2"},{"Add":" %825 = phi i64 [%787, %$47], [%806, %$50] ; # M"},{"Add":" %826 = phi i64 [%788, %$47], [%807, %$50] ; # N"},{"Add":" %827 = phi i64 [%789, %$47], [%808, %$50] ; # D"},{"Add":" %828 = phi i64 [%799, %$47], [%809, %$50] ; # Q"},{"Add":" %829 = phi i64 [%791, %$47], [%810, %$50] ; # X"},{"Add":" %830 = phi i64 [%792, %$47], [%811, %$50] ; # U1"},{"Add":" %831 = phi i64 [%793, %$47], [%812, %$50] ; # U2"},{"Add":" %832 = phi i64 [%794, %$47], [%813, %$50] ; # U3"},{"Add":" %833 = phi i64 [%795, %$47], [%814, %$50] ; # Hi"},{"Add":" %834 = phi i64 [%796, %$47], [%815, %$50] ; # Lo"},{"Add":" %835 = phi i64 [%797, %$47], [%816, %$50] ; # Z"},{"Add":" %836 = phi i64 [%798, %$47], [%817, %$50] ; # Y"},{"Add":" %837 = phi i1 [1, %$47], [%818, %$50] ; # ->"},{"Add":" br i1 %837, label %$51, label %$52"},{"Add":"$51:"},{"Add":" %838 = phi i64 [%819, %$49] ; # A"},{"Add":" %839 = phi i64 [%820, %$49] ; # B"},{"Add":" %840 = phi i64 [%821, %$49] ; # R"},{"Add":" %841 = phi i64 [%822, %$49] ; # P"},{"Add":" %842 = phi i64 [%823, %$49] ; # V1"},{"Add":" %843 = phi i64 [%824, %$49] ; # V2"},{"Add":" %844 = phi i64 [%825, %$49] ; # M"},{"Add":" %845 = phi i64 [%826, %$49] ; # N"},{"Add":" %846 = phi i64 [%827, %$49] ; # D"},{"Add":" %847 = phi i64 [%828, %$49] ; # Q"},{"Add":" %848 = phi i64 [%829, %$49] ; # X"},{"Add":" %849 = phi i64 [%830, %$49] ; # U1"},{"Add":" %850 = phi i64 [%831, %$49] ; # U2"},{"Add":" %851 = phi i64 [%832, %$49] ; # U3"},{"Add":" %852 = phi i64 [%833, %$49] ; # Hi"},{"Add":" %853 = phi i64 [%834, %$49] ; # Lo"},{"Add":" %854 = phi i64 [%835, %$49] ; # Z"},{"Add":" %855 = phi i64 [%836, %$49] ; # Y"},{"Add":"; # (val V)"},{"Add":" %856 = inttoptr i64 %24 to i64*"},{"Add":" %857 = load i64, i64* %856"},{"Add":"; # (set (dig X) (add (val (dig X)) (val (dig Y))))"},{"Add":"; # (dig X)"},{"Add":" %858 = add i64 %848, -4"},{"Add":"; # (dig X)"},{"Add":" %859 = add i64 %848, -4"},{"Add":"; # (val (dig X))"},{"Add":" %860 = inttoptr i64 %859 to i64*"},{"Add":" %861 = load i64, i64* %860"},{"Add":"; # (dig Y)"},{"Add":" %862 = add i64 %857, -4"},{"Add":"; # (val (dig Y))"},{"Add":" %863 = inttoptr i64 %862 to i64*"},{"Add":" %864 = load i64, i64* %863"},{"Add":"; # (add (val (dig X)) (val (dig Y)))"},{"Add":" %865 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %861, i64 %864)"},{"Add":" %866 = extractvalue {i64, i1} %865, 1"},{"Add":" %867 = extractvalue {i64, i1} %865, 0"},{"Add":" %868 = inttoptr i64 %858 to i64*"},{"Add":" store i64 %867, i64* %868"},{"Add":"; # (let C @@ (loop (setq X (val (big X))) (? (cnt? (setq Y (val (big..."},{"Add":"; # (loop (setq X (val (big X))) (? (cnt? (setq Y (val (big Y))))) (s..."},{"Add":" br label %$53"},{"Add":"$53:"},{"Add":" %869 = phi i64 [%838, %$51], [%896, %$54] ; # A"},{"Add":" %870 = phi i64 [%839, %$51], [%897, %$54] ; # B"},{"Add":" %871 = phi i64 [%840, %$51], [%898, %$54] ; # R"},{"Add":" %872 = phi i64 [%841, %$51], [%899, %$54] ; # P"},{"Add":" %873 = phi i64 [%842, %$51], [%900, %$54] ; # V1"},{"Add":" %874 = phi i64 [%843, %$51], [%901, %$54] ; # V2"},{"Add":" %875 = phi i64 [%844, %$51], [%902, %$54] ; # M"},{"Add":" %876 = phi i64 [%845, %$51], [%903, %$54] ; # N"},{"Add":" %877 = phi i64 [%846, %$51], [%904, %$54] ; # D"},{"Add":" %878 = phi i64 [%847, %$51], [%905, %$54] ; # Q"},{"Add":" %879 = phi i64 [%848, %$51], [%906, %$54] ; # X"},{"Add":" %880 = phi i64 [%849, %$51], [%907, %$54] ; # U1"},{"Add":" %881 = phi i64 [%850, %$51], [%908, %$54] ; # U2"},{"Add":" %882 = phi i64 [%851, %$51], [%909, %$54] ; # U3"},{"Add":" %883 = phi i64 [%852, %$51], [%910, %$54] ; # Hi"},{"Add":" %884 = phi i64 [%853, %$51], [%911, %$54] ; # Lo"},{"Add":" %885 = phi i64 [%854, %$51], [%912, %$54] ; # Z"},{"Add":" %886 = phi i64 [%857, %$51], [%913, %$54] ; # Y"},{"Add":" %887 = phi i1 [%866, %$51], [%928, %$54] ; # C"},{"Add":"; # (big X)"},{"Add":" %888 = add i64 %879, 4"},{"Add":"; # (val (big X))"},{"Add":" %889 = inttoptr i64 %888 to i64*"},{"Add":" %890 = load i64, i64* %889"},{"Add":"; # (? (cnt? (setq Y (val (big Y)))))"},{"Add":"; # (big Y)"},{"Add":" %891 = add i64 %886, 4"},{"Add":"; # (val (big Y))"},{"Add":" %892 = inttoptr i64 %891 to i64*"},{"Add":" %893 = load i64, i64* %892"},{"Add":"; # (cnt? (setq Y (val (big Y))))"},{"Add":" %894 = and i64 %893, 2"},{"Add":" %895 = icmp ne i64 %894, 0"},{"Add":" br i1 %895, label %$55, label %$54"},{"Add":"$54:"},{"Add":" %896 = phi i64 [%869, %$53] ; # A"},{"Add":" %897 = phi i64 [%870, %$53] ; # B"},{"Add":" %898 = phi i64 [%871, %$53] ; # R"},{"Add":" %899 = phi i64 [%872, %$53] ; # P"},{"Add":" %900 = phi i64 [%873, %$53] ; # V1"},{"Add":" %901 = phi i64 [%874, %$53] ; # V2"},{"Add":" %902 = phi i64 [%875, %$53] ; # M"},{"Add":" %903 = phi i64 [%876, %$53] ; # N"},{"Add":" %904 = phi i64 [%877, %$53] ; # D"},{"Add":" %905 = phi i64 [%878, %$53] ; # Q"},{"Add":" %906 = phi i64 [%890, %$53] ; # X"},{"Add":" %907 = phi i64 [%880, %$53] ; # U1"},{"Add":" %908 = phi i64 [%881, %$53] ; # U2"},{"Add":" %909 = phi i64 [%882, %$53] ; # U3"},{"Add":" %910 = phi i64 [%883, %$53] ; # Hi"},{"Add":" %911 = phi i64 [%884, %$53] ; # Lo"},{"Add":" %912 = phi i64 [%885, %$53] ; # Z"},{"Add":" %913 = phi i64 [%893, %$53] ; # Y"},{"Add":" %914 = phi i1 [%887, %$53] ; # C"},{"Add":"; # (set (dig X) (add (val (dig X)) (val (dig Y)) C))"},{"Add":"; # (dig X)"},{"Add":" %915 = add i64 %906, -4"},{"Add":"; # (dig X)"},{"Add":" %916 = add i64 %906, -4"},{"Add":"; # (val (dig X))"},{"Add":" %917 = inttoptr i64 %916 to i64*"},{"Add":" %918 = load i64, i64* %917"},{"Add":"; # (dig Y)"},{"Add":" %919 = add i64 %913, -4"},{"Add":"; # (val (dig Y))"},{"Add":" %920 = inttoptr i64 %919 to i64*"},{"Add":" %921 = load i64, i64* %920"},{"Add":"; # (add (val (dig X)) (val (dig Y)) C)"},{"Add":" %922 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %918, i64 %921)"},{"Add":" %923 = extractvalue {i64, i1} %922, 1"},{"Add":" %924 = extractvalue {i64, i1} %922, 0"},{"Add":" %925 = zext i1 %914 to i64"},{"Add":" %926 = call {i64, i1} @llvm.uadd.with.overflow.i64(i64 %924, i64 %925)"},{"Add":" %927 = extractvalue {i64, i1} %926, 1"},{"Add":" %928 = or i1 %923, %927"},{"Add":" %929 = extractvalue {i64, i1} %926, 0"},{"Add":" %930 = inttoptr i64 %915 to i64*"},{"Add":" store i64 %929, i64* %930"},{"Add":" br label %$53"},{"Add":"$55:"},{"Add":" %931 = phi i64 [%869, %$53] ; # A"},{"Add":" %932 = phi i64 [%870, %$53] ; # B"},{"Add":" %933 = phi i64 [%871, %$53] ; # R"},{"Add":" %934 = phi i64 [%872, %$53] ; # P"},{"Add":" %935 = phi i64 [%873, %$53] ; # V1"},{"Add":" %936 = phi i64 [%874, %$53] ; # V2"},{"Add":" %937 = phi i64 [%875, %$53] ; # M"},{"Add":" %938 = phi i64 [%876, %$53] ; # N"},{"Add":" %939 = phi i64 [%877, %$53] ; # D"},{"Add":" %940 = phi i64 [%878, %$53] ; # Q"},{"Add":" %941 = phi i64 [%890, %$53] ; # X"},{"Add":" %942 = phi i64 [%880, %$53] ; # U1"},{"Add":" %943 = phi i64 [%881, %$53] ; # U2"},{"Add":" %944 = phi i64 [%882, %$53] ; # U3"},{"Add":" %945 = phi i64 [%883, %$53] ; # Hi"},{"Add":" %946 = phi i64 [%884, %$53] ; # Lo"},{"Add":" %947 = phi i64 [%885, %$53] ; # Z"},{"Add":" %948 = phi i64 [%893, %$53] ; # Y"},{"Add":" %949 = phi i1 [%887, %$53] ; # C"},{"Add":" %950 = phi i64 [0, %$53] ; # ->"},{"Add":"; # (set (dig X) (+ (val (dig X)) C))"},{"Add":"; # (dig X)"},{"Add":" %951 = add i64 %941, -4"},{"Add":"; # (dig X)"},{"Add":" %952 = add i64 %941, -4"},{"Add":"; # (val (dig X))"},{"Add":" %953 = inttoptr i64 %952 to i64*"},{"Add":" %954 = load i64, i64* %953"},{"Add":"; # (+ (val (dig X)) C)"},{"Add":" %955 = zext i1 %949 to i64"},{"Add":" %956 = add i64 %954, %955"},{"Add":" %957 = inttoptr i64 %951 to i64*"},{"Add":" store i64 %956, i64* %957"},{"Add":" br label %$52"},{"Add":"$52:"},{"Add":" %958 = phi i64 [%819, %$49], [%931, %$55] ; # A"},{"Add":" %959 = phi i64 [%820, %$49], [%932, %$55] ; # B"},{"Add":" %960 = phi i64 [%821, %$49], [%933, %$55] ; # R"},{"Add":" %961 = phi i64 [%822, %$49], [%934, %$55] ; # P"},{"Add":" %962 = phi i64 [%823, %$49], [%935, %$55] ; # V1"},{"Add":" %963 = phi i64 [%824, %$49], [%936, %$55] ; # V2"},{"Add":" %964 = phi i64 [%825, %$49], [%937, %$55] ; # M"},{"Add":" %965 = phi i64 [%826, %$49], [%938, %$55] ; # N"},{"Add":" %966 = phi i64 [%827, %$49], [%939, %$55] ; # D"},{"Add":" %967 = phi i64 [%828, %$49], [%940, %$55] ; # Q"},{"Add":" %968 = phi i64 [%829, %$49], [%941, %$55] ; # X"},{"Add":" %969 = phi i64 [%830, %$49], [%942, %$55] ; # U1"},{"Add":" %970 = phi i64 [%831, %$49], [%943, %$55] ; # U2"},{"Add":" %971 = phi i64 [%832, %$49], [%944, %$55] ; # U3"},{"Add":" %972 = phi i64 [%833, %$49], [%945, %$55] ; # Hi"},{"Add":" %973 = phi i64 [%834, %$49], [%946, %$55] ; # Lo"},{"Add":" %974 = phi i64 [%835, %$49], [%947, %$55] ; # Z"},{"Add":" %975 = phi i64 [%836, %$49], [%948, %$55] ; # Y"},{"Add":" br label %$48"},{"Add":"$48:"},{"Add":" %976 = phi i64 [%752, %$45], [%958, %$52] ; # A"},{"Add":" %977 = phi i64 [%753, %$45], [%959, %$52] ; # B"},{"Add":" %978 = phi i64 [%754, %$45], [%960, %$52] ; # R"},{"Add":" %979 = phi i64 [%755, %$45], [%961, %$52] ; # P"},{"Add":" %980 = phi i64 [%756, %$45], [%962, %$52] ; # V1"},{"Add":" %981 = phi i64 [%757, %$45], [%963, %$52] ; # V2"},{"Add":" %982 = phi i64 [%758, %$45], [%964, %$52] ; # M"},{"Add":" %983 = phi i64 [%759, %$45], [%965, %$52] ; # N"},{"Add":" %984 = phi i64 [%760, %$45], [%966, %$52] ; # D"},{"Add":" %985 = phi i64 [%761, %$45], [%967, %$52] ; # Q"},{"Add":" %986 = phi i64 [%762, %$45], [%968, %$52] ; # X"},{"Add":" %987 = phi i64 [%763, %$45], [%969, %$52] ; # U1"},{"Add":" %988 = phi i64 [%764, %$45], [%970, %$52] ; # U2"},{"Add":" %989 = phi i64 [%765, %$45], [%971, %$52] ; # U3"},{"Add":" %990 = phi i64 [%766, %$45], [%972, %$52] ; # Hi"},{"Add":" %991 = phi i64 [%767, %$45], [%973, %$52] ; # Lo"},{"Add":" %992 = phi i64 [%772, %$45], [%974, %$52] ; # Z"},{"Add":" %993 = phi i64 [%769, %$45], [%975, %$52] ; # Y"},{"Add":" br label %$46"},{"Add":"$46:"},{"Add":" %994 = phi i64 [%733, %$44], [%976, %$48] ; # A"},{"Add":" %995 = phi i64 [%734, %$44], [%977, %$48] ; # B"},{"Add":" %996 = phi i64 [%735, %$44], [%978, %$48] ; # R"},{"Add":" %997 = phi i64 [%736, %$44], [%979, %$48] ; # P"},{"Add":" %998 = phi i64 [%737, %$44], [%980, %$48] ; # V1"},{"Add":" %999 = phi i64 [%738, %$44], [%981, %$48] ; # V2"},{"Add":" %1000 = phi i64 [%739, %$44], [%982, %$48] ; # M"},{"Add":" %1001 = phi i64 [%740, %$44], [%983, %$48] ; # N"},{"Add":" %1002 = phi i64 [%741, %$44], [%984, %$48] ; # D"},{"Add":" %1003 = phi i64 [%742, %$44], [%985, %$48] ; # Q"},{"Add":" %1004 = phi i64 [%743, %$44], [%986, %$48] ; # X"},{"Add":" %1005 = phi i64 [%744, %$44], [%987, %$48] ; # U1"},{"Add":" %1006 = phi i64 [%745, %$44], [%988, %$48] ; # U2"},{"Add":" %1007 = phi i64 [%746, %$44], [%989, %$48] ; # U3"},{"Add":" %1008 = phi i64 [%747, %$44], [%990, %$48] ; # Hi"},{"Add":" %1009 = phi i64 [%748, %$44], [%991, %$48] ; # Lo"},{"Add":" %1010 = phi i64 [%749, %$44], [%992, %$48] ; # Z"},{"Add":" %1011 = phi i64 [%750, %$44], [%993, %$48] ; # Y"},{"Add":"; # (consNum Q R)"},{"Add":" %1012 = call i64 @consNum(i64 %1003, i64 %996)"},{"Add":"; # (safe (consNum Q R))"},{"Add":" %1013 = inttoptr i64 %6 to i64*"},{"Add":" store i64 %1012, i64* %1013"},{"Add":"; # (? (lt0 (dec 'M)))"},{"Add":"; # (dec 'M)"},{"Add":" %1014 = sub i64 %1000, 1"},{"Add":"; # (lt0 (dec 'M))"},{"Add":" %1015 = icmp slt i64 %1014, 0"},{"Add":" br i1 %1015, label %$57, label %$56"},{"Add":"$56:"},{"Add":" %1016 = phi i64 [%994, %$46] ; # A"},{"Add":" %1017 = phi i64 [%995, %$46] ; # B"},{"Add":" %1018 = phi i64 [%1012, %$46] ; # R"},{"Add":" %1019 = phi i64 [%997, %$46] ; # P"},{"Add":" %1020 = phi i64 [%998, %$46] ; # V1"},{"Add":" %1021 = phi i64 [%999, %$46] ; # V2"},{"Add":" %1022 = phi i64 [%1014, %$46] ; # M"},{"Add":" %1023 = phi i64 [%1001, %$46] ; # N"},{"Add":" %1024 = phi i64 [%1002, %$46] ; # D"},{"Add":" %1025 = phi i64 [%1003, %$46] ; # Q"},{"Add":" br label %$25"},{"Add":"$57:"},{"Add":" %1026 = phi i64 [%994, %$46] ; # A"},{"Add":" %1027 = phi i64 [%995, %$46] ; # B"},{"Add":" %1028 = phi i64 [%1012, %$46] ; # R"},{"Add":" %1029 = phi i64 [%997, %$46] ; # P"},{"Add":" %1030 = phi i64 [%998, %$46] ; # V1"},{"Add":" %1031 = phi i64 [%999, %$46] ; # V2"},{"Add":" %1032 = phi i64 [%1014, %$46] ; # M"},{"Add":" %1033 = phi i64 [%1001, %$46] ; # N"},{"Add":" %1034 = phi i64 [%1002, %$46] ; # D"},{"Add":" %1035 = phi i64 [%1003, %$46] ; # Q"},{"Add":" %1036 = phi i64 [0, %$46] ; # ->"},{"Add":"; # (ifn Rem (zapZero R) (setq A (zapZero (val U))) (while D (setq A ..."},{"Add":" br i1 %2, label %$59, label %$58"},{"Add":"$58:"},{"Add":" %1037 = phi i64 [%1026, %$57] ; # A"},{"Add":" %1038 = phi i64 [%1027, %$57] ; # B"},{"Add":" %1039 = phi i64 [%1028, %$57] ; # R"},{"Add":" %1040 = phi i64 [%1029, %$57] ; # P"},{"Add":" %1041 = phi i64 [%1030, %$57] ; # V1"},{"Add":" %1042 = phi i64 [%1031, %$57] ; # V2"},{"Add":" %1043 = phi i64 [%1032, %$57] ; # M"},{"Add":" %1044 = phi i64 [%1033, %$57] ; # N"},{"Add":" %1045 = phi i64 [%1034, %$57] ; # D"},{"Add":" %1046 = phi i64 [%1035, %$57] ; # Q"},{"Add":"; # (zapZero R)"},{"Add":" %1047 = call i64 @zapZero(i64 %1039)"},{"Add":" br label %$60"},{"Add":"$59:"},{"Add":" %1048 = phi i64 [%1026, %$57] ; # A"},{"Add":" %1049 = phi i64 [%1027, %$57] ; # B"},{"Add":" %1050 = phi i64 [%1028, %$57] ; # R"},{"Add":" %1051 = phi i64 [%1029, %$57] ; # P"},{"Add":" %1052 = phi i64 [%1030, %$57] ; # V1"},{"Add":" %1053 = phi i64 [%1031, %$57] ; # V2"},{"Add":" %1054 = phi i64 [%1032, %$57] ; # M"},{"Add":" %1055 = phi i64 [%1033, %$57] ; # N"},{"Add":" %1056 = phi i64 [%1034, %$57] ; # D"},{"Add":" %1057 = phi i64 [%1035, %$57] ; # Q"},{"Add":"; # (val U)"},{"Add":" %1058 = inttoptr i64 %16 to i64*"},{"Add":" %1059 = load i64, i64* %1058"},{"Add":"; # (zapZero (val U))"},{"Add":" %1060 = call i64 @zapZero(i64 %1059)"},{"Add":"; # (while D (setq A (half A)) (dec 'D))"},{"Add":" br label %$61"},{"Add":"$61:"},{"Add":" %1061 = phi i64 [%1060, %$59], [%1082, %$62] ; # A"},{"Add":" %1062 = phi i64 [%1049, %$59], [%1073, %$62] ; # B"},{"Add":" %1063 = phi i64 [%1050, %$59], [%1074, %$62] ; # R"},{"Add":" %1064 = phi i64 [%1051, %$59], [%1075, %$62] ; # P"},{"Add":" %1065 = phi i64 [%1052, %$59], [%1076, %$62] ; # V1"},{"Add":" %1066 = phi i64 [%1053, %$59], [%1077, %$62] ; # V2"},{"Add":" %1067 = phi i64 [%1054, %$59], [%1078, %$62] ; # M"},{"Add":" %1068 = phi i64 [%1055, %$59], [%1079, %$62] ; # N"},{"Add":" %1069 = phi i64 [%1056, %$59], [%1083, %$62] ; # D"},{"Add":" %1070 = phi i64 [%1057, %$59], [%1081, %$62] ; # Q"},{"Add":" %1071 = icmp ne i64 %1069, 0"},{"Add":" br i1 %1071, label %$62, label %$63"},{"Add":"$62:"},{"Add":" %1072 = phi i64 [%1061, %$61] ; # A"},{"Add":" %1073 = phi i64 [%1062, %$61] ; # B"},{"Add":" %1074 = phi i64 [%1063, %$61] ; # R"},{"Add":" %1075 = phi i64 [%1064, %$61] ; # P"},{"Add":" %1076 = phi i64 [%1065, %$61] ; # V1"},{"Add":" %1077 = phi i64 [%1066, %$61] ; # V2"},{"Add":" %1078 = phi i64 [%1067, %$61] ; # M"},{"Add":" %1079 = phi i64 [%1068, %$61] ; # N"},{"Add":" %1080 = phi i64 [%1069, %$61] ; # D"},{"Add":" %1081 = phi i64 [%1070, %$61] ; # Q"},{"Add":"; # (half A)"},{"Add":" %1082 = call i64 @half(i64 %1072)"},{"Add":"; # (dec 'D)"},{"Add":" %1083 = sub i64 %1080, 1"},{"Add":" br label %$61"},{"Add":"$63:"},{"Add":" %1084 = phi i64 [%1061, %$61] ; # A"},{"Add":" %1085 = phi i64 [%1062, %$61] ; # B"},{"Add":" %1086 = phi i64 [%1063, %$61] ; # R"},{"Add":" %1087 = phi i64 [%1064, %$61] ; # P"},{"Add":" %1088 = phi i64 [%1065, %$61] ; # V1"},{"Add":" %1089 = phi i64 [%1066, %$61] ; # V2"},{"Add":" %1090 = phi i64 [%1067, %$61] ; # M"},{"Add":" %1091 = phi i64 [%1068, %$61] ; # N"},{"Add":" %1092 = phi i64 [%1069, %$61] ; # D"},{"Add":" %1093 = phi i64 [%1070, %$61] ; # Q"},{"Add":" br label %$60"},{"Add":"$60:"},{"Add":" %1094 = phi i64 [%1037, %$58], [%1084, %$63] ; # A"},{"Add":" %1095 = phi i64 [%1038, %$58], [%1085, %$63] ; # B"},{"Add":" %1096 = phi i64 [%1039, %$58], [%1086, %$63] ; # R"},{"Add":" %1097 = phi i64 [%1040, %$58], [%1087, %$63] ; # P"},{"Add":" %1098 = phi i64 [%1041, %$58], [%1088, %$63] ; # V1"},{"Add":" %1099 = phi i64 [%1042, %$58], [%1089, %$63] ; # V2"},{"Add":" %1100 = phi i64 [%1043, %$58], [%1090, %$63] ; # M"},{"Add":" %1101 = phi i64 [%1044, %$58], [%1091, %$63] ; # N"},{"Add":" %1102 = phi i64 [%1045, %$58], [%1092, %$63] ; # D"},{"Add":" %1103 = phi i64 [%1046, %$58], [%1093, %$63] ; # Q"},{"Add":" %1104 = phi i64 [%1047, %$58], [%1084, %$63] ; # ->"},{"Add":"; # (drop *Safe)"},{"Add":" %1105 = inttoptr i64 %6 to i64*"},{"Add":" %1106 = getelementptr i64, i64* %1105, i32 1"},{"Add":" %1107 = load i64, i64* %1106"},{"Add":" %1108 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %1107, i64* %1108"},{"Add":" ret i64 %1104"},{"Add":"}"},{"Add":""},{"Add":"define i64 @divu(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (cond ((big? A) (div1 A B NO)) ((big? B) ZERO) (T (cnt (/ (int A)..."},{"Add":"; # (big? A)"},{"Add":" %2 = and i64 %0, 4"},{"Add":" %3 = icmp ne i64 %2, 0"},{"Add":" br i1 %3, label %$4, label %$3"},{"Add":"$4:"},{"Add":"; # (div1 A B NO)"},{"Add":" %4 = call i64 @div1(i64 %0, i64 %1, i1 0)"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":"; # (big? B)"},{"Add":" %5 = and i64 %1, 4"},{"Add":" %6 = icmp ne i64 %5, 0"},{"Add":" br i1 %6, label %$6, label %$5"},{"Add":"$6:"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":"; # (int A)"},{"Add":" %7 = lshr i64 %0, 4"},{"Add":"; # (int B)"},{"Add":" %8 = lshr i64 %1, 4"},{"Add":"; # (/ (int A) (int B))"},{"Add":" %9 = udiv i64 %7, %8"},{"Add":"; # (cnt (/ (int A) (int B)))"},{"Add":" %10 = shl i64 %9, 4"},{"Add":" %11 = or i64 %10, 2"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %12 = phi i64 [%4, %$4], [2, %$6], [%11, %$5] ; # ->"},{"Add":" ret i64 %12"},{"Add":"}"},{"Add":""},{"Add":"define i64 @remu(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (cond ((big? A) (div1 A B YES)) ((big? B) A) (T (cnt (% (int A) (..."},{"Add":"; # (big? A)"},{"Add":" %2 = and i64 %0, 4"},{"Add":" %3 = icmp ne i64 %2, 0"},{"Add":" br i1 %3, label %$4, label %$3"},{"Add":"$4:"},{"Add":"; # (div1 A B YES)"},{"Add":" %4 = call i64 @div1(i64 %0, i64 %1, i1 1)"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":"; # (big? B)"},{"Add":" %5 = and i64 %1, 4"},{"Add":" %6 = icmp ne i64 %5, 0"},{"Add":" br i1 %6, label %$6, label %$5"},{"Add":"$6:"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":"; # (int A)"},{"Add":" %7 = lshr i64 %0, 4"},{"Add":"; # (int B)"},{"Add":" %8 = lshr i64 %1, 4"},{"Add":"; # (% (int A) (int B))"},{"Add":" %9 = urem i64 %7, %8"},{"Add":"; # (cnt (% (int A) (int B)))"},{"Add":" %10 = shl i64 %9, 4"},{"Add":" %11 = or i64 %10, 2"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %12 = phi i64 [%4, %$4], [%0, %$6], [%11, %$5] ; # ->"},{"Add":" ret i64 %12"},{"Add":"}"},{"Add":""},{"Add":"define i64 @incs(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (if (sign? A) (neg (subu (pos A) ONE)) (addu A ONE))"},{"Add":"; # (sign? A)"},{"Add":" %1 = and i64 %0, 8"},{"Add":" %2 = icmp ne i64 %1, 0"},{"Add":" br i1 %2, label %$2, label %$3"},{"Add":"$2:"},{"Add":"; # (pos A)"},{"Add":" %3 = and i64 %0, -9"},{"Add":"; # (subu (pos A) ONE)"},{"Add":" %4 = call i64 @subu(i64 %3, i64 18)"},{"Add":"; # (neg (subu (pos A) ONE))"},{"Add":" %5 = icmp eq i64 %4, 2"},{"Add":" br i1 %5, label %$5, label %$6"},{"Add":"$5:"},{"Add":" br label %$7"},{"Add":"$6:"},{"Add":" %6 = xor i64 %4, 8"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %7 = phi i64 [%4, %$5], [%6, %$6] ; # ->"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":"; # (addu A ONE)"},{"Add":" %8 = call i64 @addu(i64 %0, i64 18)"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %9 = phi i64 [%7, %$7], [%8, %$3] ; # ->"},{"Add":" ret i64 %9"},{"Add":"}"},{"Add":""},{"Add":"define i64 @decs(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (if (sign? A) (neg (addu (pos A) ONE)) (subu A ONE))"},{"Add":"; # (sign? A)"},{"Add":" %1 = and i64 %0, 8"},{"Add":" %2 = icmp ne i64 %1, 0"},{"Add":" br i1 %2, label %$2, label %$3"},{"Add":"$2:"},{"Add":"; # (pos A)"},{"Add":" %3 = and i64 %0, -9"},{"Add":"; # (addu (pos A) ONE)"},{"Add":" %4 = call i64 @addu(i64 %3, i64 18)"},{"Add":"; # (neg (addu (pos A) ONE))"},{"Add":" %5 = icmp eq i64 %4, 2"},{"Add":" br i1 %5, label %$5, label %$6"},{"Add":"$5:"},{"Add":" br label %$7"},{"Add":"$6:"},{"Add":" %6 = xor i64 %4, 8"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %7 = phi i64 [%4, %$5], [%6, %$6] ; # ->"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":"; # (subu A ONE)"},{"Add":" %8 = call i64 @subu(i64 %0, i64 18)"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %9 = phi i64 [%7, %$7], [%8, %$3] ; # ->"},{"Add":" ret i64 %9"},{"Add":"}"},{"Add":""},{"Add":"define i64 @adds(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (ifn (sign? A) (ifn (sign? B) (addu A B) (subu A (pos B))) (neg (..."},{"Add":"; # (sign? A)"},{"Add":" %2 = and i64 %0, 8"},{"Add":" %3 = icmp ne i64 %2, 0"},{"Add":" br i1 %3, label %$3, label %$2"},{"Add":"$2:"},{"Add":"; # (ifn (sign? B) (addu A B) (subu A (pos B)))"},{"Add":"; # (sign? B)"},{"Add":" %4 = and i64 %1, 8"},{"Add":" %5 = icmp ne i64 %4, 0"},{"Add":" br i1 %5, label %$6, label %$5"},{"Add":"$5:"},{"Add":"; # (addu A B)"},{"Add":" %6 = call i64 @addu(i64 %0, i64 %1)"},{"Add":" br label %$7"},{"Add":"$6:"},{"Add":"; # (pos B)"},{"Add":" %7 = and i64 %1, -9"},{"Add":"; # (subu A (pos B))"},{"Add":" %8 = call i64 @subu(i64 %0, i64 %7)"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %9 = phi i64 [%6, %$5], [%8, %$6] ; # ->"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":"; # (ifn (sign? B) (subu (pos A) B) (addu (pos A) (pos B)))"},{"Add":"; # (sign? B)"},{"Add":" %10 = and i64 %1, 8"},{"Add":" %11 = icmp ne i64 %10, 0"},{"Add":" br i1 %11, label %$9, label %$8"},{"Add":"$8:"},{"Add":"; # (pos A)"},{"Add":" %12 = and i64 %0, -9"},{"Add":"; # (subu (pos A) B)"},{"Add":" %13 = call i64 @subu(i64 %12, i64 %1)"},{"Add":" br label %$10"},{"Add":"$9:"},{"Add":"; # (pos A)"},{"Add":" %14 = and i64 %0, -9"},{"Add":"; # (pos B)"},{"Add":" %15 = and i64 %1, -9"},{"Add":"; # (addu (pos A) (pos B))"},{"Add":" %16 = call i64 @addu(i64 %14, i64 %15)"},{"Add":" br label %$10"},{"Add":"$10:"},{"Add":" %17 = phi i64 [%13, %$8], [%16, %$9] ; # ->"},{"Add":"; # (neg (ifn (sign? B) (subu (pos A) B) (addu (pos A) (pos B))))"},{"Add":" %18 = icmp eq i64 %17, 2"},{"Add":" br i1 %18, label %$11, label %$12"},{"Add":"$11:"},{"Add":" br label %$13"},{"Add":"$12:"},{"Add":" %19 = xor i64 %17, 8"},{"Add":" br label %$13"},{"Add":"$13:"},{"Add":" %20 = phi i64 [%17, %$11], [%19, %$12] ; # ->"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %21 = phi i64 [%9, %$7], [%20, %$13] ; # ->"},{"Add":" ret i64 %21"},{"Add":"}"},{"Add":""},{"Add":"define i64 @subs(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (ifn (sign? A) (ifn (sign? B) (subu A B) (addu A (pos B))) (neg (..."},{"Add":"; # (sign? A)"},{"Add":" %2 = and i64 %0, 8"},{"Add":" %3 = icmp ne i64 %2, 0"},{"Add":" br i1 %3, label %$3, label %$2"},{"Add":"$2:"},{"Add":"; # (ifn (sign? B) (subu A B) (addu A (pos B)))"},{"Add":"; # (sign? B)"},{"Add":" %4 = and i64 %1, 8"},{"Add":" %5 = icmp ne i64 %4, 0"},{"Add":" br i1 %5, label %$6, label %$5"},{"Add":"$5:"},{"Add":"; # (subu A B)"},{"Add":" %6 = call i64 @subu(i64 %0, i64 %1)"},{"Add":" br label %$7"},{"Add":"$6:"},{"Add":"; # (pos B)"},{"Add":" %7 = and i64 %1, -9"},{"Add":"; # (addu A (pos B))"},{"Add":" %8 = call i64 @addu(i64 %0, i64 %7)"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %9 = phi i64 [%6, %$5], [%8, %$6] ; # ->"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":"; # (ifn (sign? B) (addu (pos A) B) (subu (pos A) (pos B)))"},{"Add":"; # (sign? B)"},{"Add":" %10 = and i64 %1, 8"},{"Add":" %11 = icmp ne i64 %10, 0"},{"Add":" br i1 %11, label %$9, label %$8"},{"Add":"$8:"},{"Add":"; # (pos A)"},{"Add":" %12 = and i64 %0, -9"},{"Add":"; # (addu (pos A) B)"},{"Add":" %13 = call i64 @addu(i64 %12, i64 %1)"},{"Add":" br label %$10"},{"Add":"$9:"},{"Add":"; # (pos A)"},{"Add":" %14 = and i64 %0, -9"},{"Add":"; # (pos B)"},{"Add":" %15 = and i64 %1, -9"},{"Add":"; # (subu (pos A) (pos B))"},{"Add":" %16 = call i64 @subu(i64 %14, i64 %15)"},{"Add":" br label %$10"},{"Add":"$10:"},{"Add":" %17 = phi i64 [%13, %$8], [%16, %$9] ; # ->"},{"Add":"; # (neg (ifn (sign? B) (addu (pos A) B) (subu (pos A) (pos B))))"},{"Add":" %18 = icmp eq i64 %17, 2"},{"Add":" br i1 %18, label %$11, label %$12"},{"Add":"$11:"},{"Add":" br label %$13"},{"Add":"$12:"},{"Add":" %19 = xor i64 %17, 8"},{"Add":" br label %$13"},{"Add":"$13:"},{"Add":" %20 = phi i64 [%17, %$11], [%19, %$12] ; # ->"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %21 = phi i64 [%9, %$7], [%20, %$13] ; # ->"},{"Add":" ret i64 %21"},{"Add":"}"},{"Add":""},{"Add":"define i64 @cmpu(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (if (cnt? A) (cond ((or (big? B) (> B A)) -1) ((== B A) 0) (T 1))..."},{"Add":"; # (cnt? A)"},{"Add":" %2 = and i64 %0, 2"},{"Add":" %3 = icmp ne i64 %2, 0"},{"Add":" br i1 %3, label %$2, label %$3"},{"Add":"$2:"},{"Add":" %4 = phi i64 [%0, %$1] ; # A"},{"Add":" %5 = phi i64 [%1, %$1] ; # B"},{"Add":"; # (cond ((or (big? B) (> B A)) -1) ((== B A) 0) (T 1))"},{"Add":"; # (or (big? B) (> B A))"},{"Add":"; # (big? B)"},{"Add":" %6 = and i64 %5, 4"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$6, label %$7"},{"Add":"$7:"},{"Add":" %8 = phi i64 [%4, %$2] ; # A"},{"Add":" %9 = phi i64 [%5, %$2] ; # B"},{"Add":"; # (> B A)"},{"Add":" %10 = icmp ugt i64 %9, %8"},{"Add":" br label %$6"},{"Add":"$6:"},{"Add":" %11 = phi i64 [%4, %$2], [%8, %$7] ; # A"},{"Add":" %12 = phi i64 [%5, %$2], [%9, %$7] ; # B"},{"Add":" %13 = phi i1 [1, %$2], [%10, %$7] ; # ->"},{"Add":" br i1 %13, label %$9, label %$8"},{"Add":"$9:"},{"Add":" %14 = phi i64 [%11, %$6] ; # A"},{"Add":" %15 = phi i64 [%12, %$6] ; # B"},{"Add":" br label %$5"},{"Add":"$8:"},{"Add":" %16 = phi i64 [%11, %$6] ; # A"},{"Add":" %17 = phi i64 [%12, %$6] ; # B"},{"Add":"; # (== B A)"},{"Add":" %18 = icmp eq i64 %17, %16"},{"Add":" br i1 %18, label %$11, label %$10"},{"Add":"$11:"},{"Add":" %19 = phi i64 [%16, %$8] ; # A"},{"Add":" %20 = phi i64 [%17, %$8] ; # B"},{"Add":" br label %$5"},{"Add":"$10:"},{"Add":" %21 = phi i64 [%16, %$8] ; # A"},{"Add":" %22 = phi i64 [%17, %$8] ; # B"},{"Add":" br label %$5"},{"Add":"$5:"},{"Add":" %23 = phi i64 [%14, %$9], [%19, %$11], [%21, %$10] ; # A"},{"Add":" %24 = phi i64 [%15, %$9], [%20, %$11], [%22, %$10] ; # B"},{"Add":" %25 = phi i64 [-1, %$9], [0, %$11], [1, %$10] ; # ->"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":" %26 = phi i64 [%0, %$1] ; # A"},{"Add":" %27 = phi i64 [%1, %$1] ; # B"},{"Add":"; # (if (cnt? B) 1 (let (X 0 Y 0) (prog1 (loop (let (C (val (big A)) ..."},{"Add":"; # (cnt? B)"},{"Add":" %28 = and i64 %27, 2"},{"Add":" %29 = icmp ne i64 %28, 0"},{"Add":" br i1 %29, label %$12, label %$13"},{"Add":"$12:"},{"Add":" %30 = phi i64 [%26, %$3] ; # A"},{"Add":" %31 = phi i64 [%27, %$3] ; # B"},{"Add":" br label %$14"},{"Add":"$13:"},{"Add":" %32 = phi i64 [%26, %$3] ; # A"},{"Add":" %33 = phi i64 [%27, %$3] ; # B"},{"Add":"; # (let (X 0 Y 0) (prog1 (loop (let (C (val (big A)) D (val (big B))..."},{"Add":"; # (prog1 (loop (let (C (val (big A)) D (val (big B))) (? (== C D) (..."},{"Add":"; # (loop (let (C (val (big A)) D (val (big B))) (? (== C D) (loop (s..."},{"Add":" br label %$15"},{"Add":"$15:"},{"Add":" %34 = phi i64 [%32, %$13], [%199, %$36] ; # A"},{"Add":" %35 = phi i64 [%33, %$13], [%200, %$36] ; # B"},{"Add":" %36 = phi i64 [0, %$13], [%195, %$36] ; # X"},{"Add":" %37 = phi i64 [0, %$13], [%196, %$36] ; # Y"},{"Add":"; # (let (C (val (big A)) D (val (big B))) (? (== C D) (loop (setq C ..."},{"Add":"; # (big A)"},{"Add":" %38 = add i64 %34, 4"},{"Add":"; # (val (big A))"},{"Add":" %39 = inttoptr i64 %38 to i64*"},{"Add":" %40 = load i64, i64* %39"},{"Add":"; # (big B)"},{"Add":" %41 = add i64 %35, 4"},{"Add":"; # (val (big B))"},{"Add":" %42 = inttoptr i64 %41 to i64*"},{"Add":" %43 = load i64, i64* %42"},{"Add":"; # (? (== C D) (loop (setq C (val (dig A)) D (val (dig B))) (? (> D ..."},{"Add":"; # (== C D)"},{"Add":" %44 = icmp eq i64 %40, %43"},{"Add":" br i1 %44, label %$18, label %$16"},{"Add":"$18:"},{"Add":" %45 = phi i64 [%34, %$15] ; # A"},{"Add":" %46 = phi i64 [%35, %$15] ; # B"},{"Add":" %47 = phi i64 [%36, %$15] ; # X"},{"Add":" %48 = phi i64 [%37, %$15] ; # Y"},{"Add":" %49 = phi i64 [%40, %$15] ; # C"},{"Add":" %50 = phi i64 [%43, %$15] ; # D"},{"Add":"; # (loop (setq C (val (dig A)) D (val (dig B))) (? (> D C) -1) (? (>..."},{"Add":" br label %$19"},{"Add":"$19:"},{"Add":" %51 = phi i64 [%45, %$18], [%98, %$25] ; # A"},{"Add":" %52 = phi i64 [%46, %$18], [%99, %$25] ; # B"},{"Add":" %53 = phi i64 [%47, %$18], [%104, %$25] ; # X"},{"Add":" %54 = phi i64 [%48, %$18], [%109, %$25] ; # Y"},{"Add":" %55 = phi i64 [%49, %$18], [%100, %$25] ; # C"},{"Add":" %56 = phi i64 [%50, %$18], [%101, %$25] ; # D"},{"Add":"; # (dig A)"},{"Add":" %57 = add i64 %51, -4"},{"Add":"; # (val (dig A))"},{"Add":" %58 = inttoptr i64 %57 to i64*"},{"Add":" %59 = load i64, i64* %58"},{"Add":"; # (dig B)"},{"Add":" %60 = add i64 %52, -4"},{"Add":"; # (val (dig B))"},{"Add":" %61 = inttoptr i64 %60 to i64*"},{"Add":" %62 = load i64, i64* %61"},{"Add":"; # (? (> D C) -1)"},{"Add":"; # (> D C)"},{"Add":" %63 = icmp ugt i64 %62, %59"},{"Add":" br i1 %63, label %$22, label %$20"},{"Add":"$22:"},{"Add":" %64 = phi i64 [%51, %$19] ; # A"},{"Add":" %65 = phi i64 [%52, %$19] ; # B"},{"Add":" %66 = phi i64 [%53, %$19] ; # X"},{"Add":" %67 = phi i64 [%54, %$19] ; # Y"},{"Add":" %68 = phi i64 [%59, %$19] ; # C"},{"Add":" %69 = phi i64 [%62, %$19] ; # D"},{"Add":" br label %$21"},{"Add":"$20:"},{"Add":" %70 = phi i64 [%51, %$19] ; # A"},{"Add":" %71 = phi i64 [%52, %$19] ; # B"},{"Add":" %72 = phi i64 [%53, %$19] ; # X"},{"Add":" %73 = phi i64 [%54, %$19] ; # Y"},{"Add":" %74 = phi i64 [%59, %$19] ; # C"},{"Add":" %75 = phi i64 [%62, %$19] ; # D"},{"Add":"; # (? (> C D) 1)"},{"Add":"; # (> C D)"},{"Add":" %76 = icmp ugt i64 %74, %75"},{"Add":" br i1 %76, label %$24, label %$23"},{"Add":"$24:"},{"Add":" %77 = phi i64 [%70, %$20] ; # A"},{"Add":" %78 = phi i64 [%71, %$20] ; # B"},{"Add":" %79 = phi i64 [%72, %$20] ; # X"},{"Add":" %80 = phi i64 [%73, %$20] ; # Y"},{"Add":" %81 = phi i64 [%74, %$20] ; # C"},{"Add":" %82 = phi i64 [%75, %$20] ; # D"},{"Add":" br label %$21"},{"Add":"$23:"},{"Add":" %83 = phi i64 [%70, %$20] ; # A"},{"Add":" %84 = phi i64 [%71, %$20] ; # B"},{"Add":" %85 = phi i64 [%72, %$20] ; # X"},{"Add":" %86 = phi i64 [%73, %$20] ; # Y"},{"Add":" %87 = phi i64 [%74, %$20] ; # C"},{"Add":" %88 = phi i64 [%75, %$20] ; # D"},{"Add":"; # (? (=0 X) 0)"},{"Add":"; # (=0 X)"},{"Add":" %89 = icmp eq i64 %85, 0"},{"Add":" br i1 %89, label %$26, label %$25"},{"Add":"$26:"},{"Add":" %90 = phi i64 [%83, %$23] ; # A"},{"Add":" %91 = phi i64 [%84, %$23] ; # B"},{"Add":" %92 = phi i64 [%85, %$23] ; # X"},{"Add":" %93 = phi i64 [%86, %$23] ; # Y"},{"Add":" %94 = phi i64 [%87, %$23] ; # C"},{"Add":" %95 = phi i64 [%88, %$23] ; # D"},{"Add":" br label %$21"},{"Add":"$25:"},{"Add":" %96 = phi i64 [%83, %$23] ; # A"},{"Add":" %97 = phi i64 [%84, %$23] ; # B"},{"Add":" %98 = phi i64 [%85, %$23] ; # X"},{"Add":" %99 = phi i64 [%86, %$23] ; # Y"},{"Add":" %100 = phi i64 [%87, %$23] ; # C"},{"Add":" %101 = phi i64 [%88, %$23] ; # D"},{"Add":"; # (let Z (val (big X)) (set (big X) A) (setq A X X Z))"},{"Add":"; # (big X)"},{"Add":" %102 = add i64 %98, 4"},{"Add":"; # (val (big X))"},{"Add":" %103 = inttoptr i64 %102 to i64*"},{"Add":" %104 = load i64, i64* %103"},{"Add":"; # (set (big X) A)"},{"Add":"; # (big X)"},{"Add":" %105 = add i64 %98, 4"},{"Add":" %106 = inttoptr i64 %105 to i64*"},{"Add":" store i64 %96, i64* %106"},{"Add":"; # (let Z (val (big Y)) (set (big Y) B) (setq B Y Y Z))"},{"Add":"; # (big Y)"},{"Add":" %107 = add i64 %99, 4"},{"Add":"; # (val (big Y))"},{"Add":" %108 = inttoptr i64 %107 to i64*"},{"Add":" %109 = load i64, i64* %108"},{"Add":"; # (set (big Y) B)"},{"Add":"; # (big Y)"},{"Add":" %110 = add i64 %99, 4"},{"Add":" %111 = inttoptr i64 %110 to i64*"},{"Add":" store i64 %97, i64* %111"},{"Add":" br label %$19"},{"Add":"$21:"},{"Add":" %112 = phi i64 [%64, %$22], [%77, %$24], [%90, %$26] ; # A"},{"Add":" %113 = phi i64 [%65, %$22], [%78, %$24], [%91, %$26] ; # B"},{"Add":" %114 = phi i64 [%66, %$22], [%79, %$24], [%92, %$26] ; # X"},{"Add":" %115 = phi i64 [%67, %$22], [%80, %$24], [%93, %$26] ; # Y"},{"Add":" %116 = phi i64 [%68, %$22], [%81, %$24], [%94, %$26] ; # C"},{"Add":" %117 = phi i64 [%69, %$22], [%82, %$24], [%95, %$26] ; # D"},{"Add":" %118 = phi i64 [-1, %$22], [1, %$24], [0, %$26] ; # ->"},{"Add":" br label %$17"},{"Add":"$16:"},{"Add":" %119 = phi i64 [%34, %$15] ; # A"},{"Add":" %120 = phi i64 [%35, %$15] ; # B"},{"Add":" %121 = phi i64 [%36, %$15] ; # X"},{"Add":" %122 = phi i64 [%37, %$15] ; # Y"},{"Add":" %123 = phi i64 [%40, %$15] ; # C"},{"Add":" %124 = phi i64 [%43, %$15] ; # D"},{"Add":"; # (? (cnt? C) (cond ((or (big? D) (> D C)) -1) ((== D C) 0) (T 1)))..."},{"Add":"; # (cnt? C)"},{"Add":" %125 = and i64 %123, 2"},{"Add":" %126 = icmp ne i64 %125, 0"},{"Add":" br i1 %126, label %$28, label %$27"},{"Add":"$28:"},{"Add":" %127 = phi i64 [%119, %$16] ; # A"},{"Add":" %128 = phi i64 [%120, %$16] ; # B"},{"Add":" %129 = phi i64 [%121, %$16] ; # X"},{"Add":" %130 = phi i64 [%122, %$16] ; # Y"},{"Add":" %131 = phi i64 [%123, %$16] ; # C"},{"Add":" %132 = phi i64 [%124, %$16] ; # D"},{"Add":"; # (cond ((or (big? D) (> D C)) -1) ((== D C) 0) (T 1))"},{"Add":"; # (or (big? D) (> D C))"},{"Add":"; # (big? D)"},{"Add":" %133 = and i64 %132, 4"},{"Add":" %134 = icmp ne i64 %133, 0"},{"Add":" br i1 %134, label %$30, label %$31"},{"Add":"$31:"},{"Add":" %135 = phi i64 [%127, %$28] ; # A"},{"Add":" %136 = phi i64 [%128, %$28] ; # B"},{"Add":" %137 = phi i64 [%129, %$28] ; # X"},{"Add":" %138 = phi i64 [%130, %$28] ; # Y"},{"Add":" %139 = phi i64 [%131, %$28] ; # C"},{"Add":" %140 = phi i64 [%132, %$28] ; # D"},{"Add":"; # (> D C)"},{"Add":" %141 = icmp ugt i64 %140, %139"},{"Add":" br label %$30"},{"Add":"$30:"},{"Add":" %142 = phi i64 [%127, %$28], [%135, %$31] ; # A"},{"Add":" %143 = phi i64 [%128, %$28], [%136, %$31] ; # B"},{"Add":" %144 = phi i64 [%129, %$28], [%137, %$31] ; # X"},{"Add":" %145 = phi i64 [%130, %$28], [%138, %$31] ; # Y"},{"Add":" %146 = phi i64 [%131, %$28], [%139, %$31] ; # C"},{"Add":" %147 = phi i64 [%132, %$28], [%140, %$31] ; # D"},{"Add":" %148 = phi i1 [1, %$28], [%141, %$31] ; # ->"},{"Add":" br i1 %148, label %$33, label %$32"},{"Add":"$33:"},{"Add":" %149 = phi i64 [%142, %$30] ; # A"},{"Add":" %150 = phi i64 [%143, %$30] ; # B"},{"Add":" %151 = phi i64 [%144, %$30] ; # X"},{"Add":" %152 = phi i64 [%145, %$30] ; # Y"},{"Add":" %153 = phi i64 [%146, %$30] ; # C"},{"Add":" %154 = phi i64 [%147, %$30] ; # D"},{"Add":" br label %$29"},{"Add":"$32:"},{"Add":" %155 = phi i64 [%142, %$30] ; # A"},{"Add":" %156 = phi i64 [%143, %$30] ; # B"},{"Add":" %157 = phi i64 [%144, %$30] ; # X"},{"Add":" %158 = phi i64 [%145, %$30] ; # Y"},{"Add":" %159 = phi i64 [%146, %$30] ; # C"},{"Add":" %160 = phi i64 [%147, %$30] ; # D"},{"Add":"; # (== D C)"},{"Add":" %161 = icmp eq i64 %160, %159"},{"Add":" br i1 %161, label %$35, label %$34"},{"Add":"$35:"},{"Add":" %162 = phi i64 [%155, %$32] ; # A"},{"Add":" %163 = phi i64 [%156, %$32] ; # B"},{"Add":" %164 = phi i64 [%157, %$32] ; # X"},{"Add":" %165 = phi i64 [%158, %$32] ; # Y"},{"Add":" %166 = phi i64 [%159, %$32] ; # C"},{"Add":" %167 = phi i64 [%160, %$32] ; # D"},{"Add":" br label %$29"},{"Add":"$34:"},{"Add":" %168 = phi i64 [%155, %$32] ; # A"},{"Add":" %169 = phi i64 [%156, %$32] ; # B"},{"Add":" %170 = phi i64 [%157, %$32] ; # X"},{"Add":" %171 = phi i64 [%158, %$32] ; # Y"},{"Add":" %172 = phi i64 [%159, %$32] ; # C"},{"Add":" %173 = phi i64 [%160, %$32] ; # D"},{"Add":" br label %$29"},{"Add":"$29:"},{"Add":" %174 = phi i64 [%149, %$33], [%162, %$35], [%168, %$34] ; # A"},{"Add":" %175 = phi i64 [%150, %$33], [%163, %$35], [%169, %$34] ; # B"},{"Add":" %176 = phi i64 [%151, %$33], [%164, %$35], [%170, %$34] ; # X"},{"Add":" %177 = phi i64 [%152, %$33], [%165, %$35], [%171, %$34] ; # Y"},{"Add":" %178 = phi i64 [%153, %$33], [%166, %$35], [%172, %$34] ; # C"},{"Add":" %179 = phi i64 [%154, %$33], [%167, %$35], [%173, %$34] ; # D"},{"Add":" %180 = phi i64 [-1, %$33], [0, %$35], [1, %$34] ; # ->"},{"Add":" br label %$17"},{"Add":"$27:"},{"Add":" %181 = phi i64 [%119, %$16] ; # A"},{"Add":" %182 = phi i64 [%120, %$16] ; # B"},{"Add":" %183 = phi i64 [%121, %$16] ; # X"},{"Add":" %184 = phi i64 [%122, %$16] ; # Y"},{"Add":" %185 = phi i64 [%123, %$16] ; # C"},{"Add":" %186 = phi i64 [%124, %$16] ; # D"},{"Add":"; # (? (cnt? D) 1)"},{"Add":"; # (cnt? D)"},{"Add":" %187 = and i64 %186, 2"},{"Add":" %188 = icmp ne i64 %187, 0"},{"Add":" br i1 %188, label %$37, label %$36"},{"Add":"$37:"},{"Add":" %189 = phi i64 [%181, %$27] ; # A"},{"Add":" %190 = phi i64 [%182, %$27] ; # B"},{"Add":" %191 = phi i64 [%183, %$27] ; # X"},{"Add":" %192 = phi i64 [%184, %$27] ; # Y"},{"Add":" %193 = phi i64 [%185, %$27] ; # C"},{"Add":" %194 = phi i64 [%186, %$27] ; # D"},{"Add":" br label %$17"},{"Add":"$36:"},{"Add":" %195 = phi i64 [%181, %$27] ; # A"},{"Add":" %196 = phi i64 [%182, %$27] ; # B"},{"Add":" %197 = phi i64 [%183, %$27] ; # X"},{"Add":" %198 = phi i64 [%184, %$27] ; # Y"},{"Add":" %199 = phi i64 [%185, %$27] ; # C"},{"Add":" %200 = phi i64 [%186, %$27] ; # D"},{"Add":"; # (set (big A) X)"},{"Add":"; # (big A)"},{"Add":" %201 = add i64 %195, 4"},{"Add":" %202 = inttoptr i64 %201 to i64*"},{"Add":" store i64 %197, i64* %202"},{"Add":"; # (set (big B) Y)"},{"Add":"; # (big B)"},{"Add":" %203 = add i64 %196, 4"},{"Add":" %204 = inttoptr i64 %203 to i64*"},{"Add":" store i64 %198, i64* %204"},{"Add":" br label %$15"},{"Add":"$17:"},{"Add":" %205 = phi i64 [%112, %$21], [%174, %$29], [%189, %$37] ; # A"},{"Add":" %206 = phi i64 [%113, %$21], [%175, %$29], [%190, %$37] ; # B"},{"Add":" %207 = phi i64 [%114, %$21], [%176, %$29], [%191, %$37] ; # X"},{"Add":" %208 = phi i64 [%115, %$21], [%177, %$29], [%192, %$37] ; # Y"},{"Add":" %209 = phi i64 [%118, %$21], [%180, %$29], [1, %$37] ; # ->"},{"Add":"; # (while X (let Z (val (big X)) (set (big X) A) (setq A X X Z)) (le..."},{"Add":" br label %$38"},{"Add":"$38:"},{"Add":" %210 = phi i64 [%205, %$17], [%217, %$39] ; # A"},{"Add":" %211 = phi i64 [%206, %$17], [%218, %$39] ; # B"},{"Add":" %212 = phi i64 [%207, %$17], [%221, %$39] ; # X"},{"Add":" %213 = phi i64 [%208, %$17], [%226, %$39] ; # Y"},{"Add":" %214 = icmp ne i64 %212, 0"},{"Add":" br i1 %214, label %$39, label %$40"},{"Add":"$39:"},{"Add":" %215 = phi i64 [%210, %$38] ; # A"},{"Add":" %216 = phi i64 [%211, %$38] ; # B"},{"Add":" %217 = phi i64 [%212, %$38] ; # X"},{"Add":" %218 = phi i64 [%213, %$38] ; # Y"},{"Add":"; # (let Z (val (big X)) (set (big X) A) (setq A X X Z))"},{"Add":"; # (big X)"},{"Add":" %219 = add i64 %217, 4"},{"Add":"; # (val (big X))"},{"Add":" %220 = inttoptr i64 %219 to i64*"},{"Add":" %221 = load i64, i64* %220"},{"Add":"; # (set (big X) A)"},{"Add":"; # (big X)"},{"Add":" %222 = add i64 %217, 4"},{"Add":" %223 = inttoptr i64 %222 to i64*"},{"Add":" store i64 %215, i64* %223"},{"Add":"; # (let Z (val (big Y)) (set (big Y) B) (setq B Y Y Z))"},{"Add":"; # (big Y)"},{"Add":" %224 = add i64 %218, 4"},{"Add":"; # (val (big Y))"},{"Add":" %225 = inttoptr i64 %224 to i64*"},{"Add":" %226 = load i64, i64* %225"},{"Add":"; # (set (big Y) B)"},{"Add":"; # (big Y)"},{"Add":" %227 = add i64 %218, 4"},{"Add":" %228 = inttoptr i64 %227 to i64*"},{"Add":" store i64 %216, i64* %228"},{"Add":" br label %$38"},{"Add":"$40:"},{"Add":" %229 = phi i64 [%210, %$38] ; # A"},{"Add":" %230 = phi i64 [%211, %$38] ; # B"},{"Add":" %231 = phi i64 [%212, %$38] ; # X"},{"Add":" %232 = phi i64 [%213, %$38] ; # Y"},{"Add":" br label %$14"},{"Add":"$14:"},{"Add":" %233 = phi i64 [%30, %$12], [%229, %$40] ; # A"},{"Add":" %234 = phi i64 [%31, %$12], [%230, %$40] ; # B"},{"Add":" %235 = phi i64 [1, %$12], [%209, %$40] ; # ->"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %236 = phi i64 [%23, %$5], [%233, %$14] ; # A"},{"Add":" %237 = phi i64 [%24, %$5], [%234, %$14] ; # B"},{"Add":" %238 = phi i64 [%25, %$5], [%235, %$14] ; # ->"},{"Add":" ret i64 %238"},{"Add":"}"},{"Add":""},{"Add":"define i64 @cmpNum(i64, i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (ifn (sign? A) (ifn (sign? B) (cmpu A B) 1) (ifn (sign? B) -1 (cm..."},{"Add":"; # (sign? A)"},{"Add":" %2 = and i64 %0, 8"},{"Add":" %3 = icmp ne i64 %2, 0"},{"Add":" br i1 %3, label %$3, label %$2"},{"Add":"$2:"},{"Add":"; # (ifn (sign? B) (cmpu A B) 1)"},{"Add":"; # (sign? B)"},{"Add":" %4 = and i64 %1, 8"},{"Add":" %5 = icmp ne i64 %4, 0"},{"Add":" br i1 %5, label %$6, label %$5"},{"Add":"$5:"},{"Add":"; # (cmpu A B)"},{"Add":" %6 = call i64 @cmpu(i64 %0, i64 %1)"},{"Add":" br label %$7"},{"Add":"$6:"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %7 = phi i64 [%6, %$5], [1, %$6] ; # ->"},{"Add":" br label %$4"},{"Add":"$3:"},{"Add":"; # (ifn (sign? B) -1 (cmpu (pos B) (pos A)))"},{"Add":"; # (sign? B)"},{"Add":" %8 = and i64 %1, 8"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br i1 %9, label %$9, label %$8"},{"Add":"$8:"},{"Add":" br label %$10"},{"Add":"$9:"},{"Add":"; # (pos B)"},{"Add":" %10 = and i64 %1, -9"},{"Add":"; # (pos A)"},{"Add":" %11 = and i64 %0, -9"},{"Add":"; # (cmpu (pos B) (pos A))"},{"Add":" %12 = call i64 @cmpu(i64 %10, i64 %11)"},{"Add":" br label %$10"},{"Add":"$10:"},{"Add":" %13 = phi i64 [-1, %$8], [%12, %$9] ; # ->"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %14 = phi i64 [%7, %$7], [%13, %$10] ; # ->"},{"Add":" ret i64 %14"},{"Add":"}"},{"Add":""},{"Add":"define i64 @symToNum(i64, i64, i8, i8) align 8 {"},{"Add":"$1:"},{"Add":"; # (let (P (push 0 Name) Num (push ZERO NIL) Sign NO Frac NO B T) (u..."},{"Add":"; # (push 0 Name)"},{"Add":" %4 = alloca i64, i64 2, align 16"},{"Add":" store i64 0, i64* %4"},{"Add":" %5 = getelementptr i64, i64* %4, i32 1"},{"Add":" store i64 %0, i64* %5"},{"Add":"; # (push ZERO NIL)"},{"Add":" %6 = alloca i64, i64 2, align 16"},{"Add":" %7 = ptrtoint i64* %6 to i64"},{"Add":" %8 = inttoptr i64 %7 to i64*"},{"Add":" store i64 2, i64* %8"},{"Add":"; # (until (> (setq B (symByte P)) (char \" \")) (unless B (ret 0)))"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %9 = phi i64 [%1, %$1], [%26, %$6] ; # Scl"},{"Add":" %10 = phi i64 [%7, %$1], [%27, %$6] ; # Num"},{"Add":" %11 = phi i1 [0, %$1], [%28, %$6] ; # Sign"},{"Add":" %12 = phi i1 [0, %$1], [%29, %$6] ; # Frac"},{"Add":"; # (symByte P)"},{"Add":" %13 = call i8 @symByte(i64* %4)"},{"Add":"; # (> (setq B (symByte P)) (char \" \"))"},{"Add":" %14 = icmp ugt i8 %13, 32"},{"Add":" br i1 %14, label %$4, label %$3"},{"Add":"$3:"},{"Add":" %15 = phi i64 [%9, %$2] ; # Scl"},{"Add":" %16 = phi i64 [%10, %$2] ; # Num"},{"Add":" %17 = phi i1 [%11, %$2] ; # Sign"},{"Add":" %18 = phi i1 [%12, %$2] ; # Frac"},{"Add":" %19 = phi i8 [%13, %$2] ; # B"},{"Add":"; # (unless B (ret 0))"},{"Add":" %20 = icmp ne i8 %19, 0"},{"Add":" br i1 %20, label %$6, label %$5"},{"Add":"$5:"},{"Add":" %21 = phi i64 [%15, %$3] ; # Scl"},{"Add":" %22 = phi i64 [%16, %$3] ; # Num"},{"Add":" %23 = phi i1 [%17, %$3] ; # Sign"},{"Add":" %24 = phi i1 [%18, %$3] ; # Frac"},{"Add":" %25 = phi i8 [%19, %$3] ; # B"},{"Add":"; # (ret 0)"},{"Add":" ret i64 0"},{"Add":"$6:"},{"Add":" %26 = phi i64 [%15, %$3] ; # Scl"},{"Add":" %27 = phi i64 [%16, %$3] ; # Num"},{"Add":" %28 = phi i1 [%17, %$3] ; # Sign"},{"Add":" %29 = phi i1 [%18, %$3] ; # Frac"},{"Add":" %30 = phi i8 [%19, %$3] ; # B"},{"Add":" br label %$2"},{"Add":"$4:"},{"Add":" %31 = phi i64 [%9, %$2] ; # Scl"},{"Add":" %32 = phi i64 [%10, %$2] ; # Num"},{"Add":" %33 = phi i1 [%11, %$2] ; # Sign"},{"Add":" %34 = phi i1 [%12, %$2] ; # Frac"},{"Add":" %35 = phi i8 [%13, %$2] ; # B"},{"Add":"; # (cond ((== B (char \"+\")) (goto 1)) ((== B (char \"-\")) (setq Sign ..."},{"Add":"; # (== B (char \"+\"))"},{"Add":" %36 = icmp eq i8 %35, 43"},{"Add":" br i1 %36, label %$9, label %$8"},{"Add":"$9:"},{"Add":" %37 = phi i64 [%31, %$4] ; # Scl"},{"Add":" %38 = phi i64 [%32, %$4] ; # Num"},{"Add":" %39 = phi i1 [%33, %$4] ; # Sign"},{"Add":" %40 = phi i1 [%34, %$4] ; # Frac"},{"Add":" %41 = phi i8 [%35, %$4] ; # B"},{"Add":"; # (goto 1)"},{"Add":" br label %$-1"},{"Add":"$8:"},{"Add":" %42 = phi i64 [%31, %$4] ; # Scl"},{"Add":" %43 = phi i64 [%32, %$4] ; # Num"},{"Add":" %44 = phi i1 [%33, %$4] ; # Sign"},{"Add":" %45 = phi i1 [%34, %$4] ; # Frac"},{"Add":" %46 = phi i8 [%35, %$4] ; # B"},{"Add":"; # (== B (char \"-\"))"},{"Add":" %47 = icmp eq i8 %46, 45"},{"Add":" br i1 %47, label %$11, label %$10"},{"Add":"$11:"},{"Add":" %48 = phi i64 [%42, %$8] ; # Scl"},{"Add":" %49 = phi i64 [%43, %$8] ; # Num"},{"Add":" %50 = phi i1 [%44, %$8] ; # Sign"},{"Add":" %51 = phi i1 [%45, %$8] ; # Frac"},{"Add":" %52 = phi i8 [%46, %$8] ; # B"},{"Add":"; # (: 1 (unless (setq B (symByte P)) (ret 0)))"},{"Add":" br label %$-1"},{"Add":"$-1:"},{"Add":" %53 = phi i64 [%37, %$9], [%48, %$11] ; # Scl"},{"Add":" %54 = phi i64 [%38, %$9], [%49, %$11] ; # Num"},{"Add":" %55 = phi i1 [%39, %$9], [1, %$11] ; # Sign"},{"Add":" %56 = phi i1 [%40, %$9], [%51, %$11] ; # Frac"},{"Add":" %57 = phi i8 [%41, %$9], [%52, %$11] ; # B"},{"Add":"; # (unless (setq B (symByte P)) (ret 0))"},{"Add":"; # (symByte P)"},{"Add":" %58 = call i8 @symByte(i64* %4)"},{"Add":" %59 = icmp ne i8 %58, 0"},{"Add":" br i1 %59, label %$13, label %$12"},{"Add":"$12:"},{"Add":" %60 = phi i64 [%53, %$-1] ; # Scl"},{"Add":" %61 = phi i64 [%54, %$-1] ; # Num"},{"Add":" %62 = phi i1 [%55, %$-1] ; # Sign"},{"Add":" %63 = phi i1 [%56, %$-1] ; # Frac"},{"Add":" %64 = phi i8 [%58, %$-1] ; # B"},{"Add":"; # (ret 0)"},{"Add":" ret i64 0"},{"Add":"$13:"},{"Add":" %65 = phi i64 [%53, %$-1] ; # Scl"},{"Add":" %66 = phi i64 [%54, %$-1] ; # Num"},{"Add":" %67 = phi i1 [%55, %$-1] ; # Sign"},{"Add":" %68 = phi i1 [%56, %$-1] ; # Frac"},{"Add":" %69 = phi i8 [%58, %$-1] ; # B"},{"Add":" br label %$7"},{"Add":"$10:"},{"Add":" %70 = phi i64 [%42, %$8] ; # Scl"},{"Add":" %71 = phi i64 [%43, %$8] ; # Num"},{"Add":" %72 = phi i1 [%44, %$8] ; # Sign"},{"Add":" %73 = phi i1 [%45, %$8] ; # Frac"},{"Add":" %74 = phi i8 [%46, %$8] ; # B"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %75 = phi i64 [%65, %$13], [%70, %$10] ; # Scl"},{"Add":" %76 = phi i64 [%66, %$13], [%71, %$10] ; # Num"},{"Add":" %77 = phi i1 [%67, %$13], [%72, %$10] ; # Sign"},{"Add":" %78 = phi i1 [%68, %$13], [%73, %$10] ; # Frac"},{"Add":" %79 = phi i8 [%69, %$13], [%74, %$10] ; # B"},{"Add":"; # (when (> (dec 'B (char \"0\")) 9) (ret 0))"},{"Add":"; # (dec 'B (char \"0\"))"},{"Add":" %80 = sub i8 %79, 48"},{"Add":"; # (> (dec 'B (char \"0\")) 9)"},{"Add":" %81 = icmp ugt i8 %80, 9"},{"Add":" br i1 %81, label %$14, label %$15"},{"Add":"$14:"},{"Add":" %82 = phi i64 [%75, %$7] ; # Scl"},{"Add":" %83 = phi i64 [%76, %$7] ; # Num"},{"Add":" %84 = phi i1 [%77, %$7] ; # Sign"},{"Add":" %85 = phi i1 [%78, %$7] ; # Frac"},{"Add":" %86 = phi i8 [%80, %$7] ; # B"},{"Add":"; # (ret 0)"},{"Add":" ret i64 0"},{"Add":"$15:"},{"Add":" %87 = phi i64 [%75, %$7] ; # Scl"},{"Add":" %88 = phi i64 [%76, %$7] ; # Num"},{"Add":" %89 = phi i1 [%77, %$7] ; # Sign"},{"Add":" %90 = phi i1 [%78, %$7] ; # Frac"},{"Add":" %91 = phi i8 [%80, %$7] ; # B"},{"Add":"; # (set (link Num T) (cnt (i64 B)))"},{"Add":"; # (link Num T)"},{"Add":" %92 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %93 = load i64, i64* %92"},{"Add":" %94 = inttoptr i64 %88 to i64*"},{"Add":" %95 = getelementptr i64, i64* %94, i32 1"},{"Add":" store i64 %93, i64* %95"},{"Add":" %96 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %88, i64* %96"},{"Add":"; # (i64 B)"},{"Add":" %97 = zext i8 %91 to i64"},{"Add":"; # (cnt (i64 B))"},{"Add":" %98 = shl i64 %97, 4"},{"Add":" %99 = or i64 %98, 2"},{"Add":" %100 = inttoptr i64 %88 to i64*"},{"Add":" store i64 %99, i64* %100"},{"Add":"; # (while (setq B (symByte P)) (? (and Frac (=0 Scl)) (when (> (dec ..."},{"Add":" br label %$16"},{"Add":"$16:"},{"Add":" %101 = phi i64 [%87, %$15], [%270, %$32] ; # Scl"},{"Add":" %102 = phi i64 [%88, %$15], [%271, %$32] ; # Num"},{"Add":" %103 = phi i1 [%89, %$15], [%272, %$32] ; # Sign"},{"Add":" %104 = phi i1 [%90, %$15], [%273, %$32] ; # Frac"},{"Add":" %105 = phi i8 [%91, %$15], [%274, %$32] ; # B"},{"Add":"; # (symByte P)"},{"Add":" %106 = call i8 @symByte(i64* %4)"},{"Add":" %107 = icmp ne i8 %106, 0"},{"Add":" br i1 %107, label %$17, label %$18"},{"Add":"$17:"},{"Add":" %108 = phi i64 [%101, %$16] ; # Scl"},{"Add":" %109 = phi i64 [%102, %$16] ; # Num"},{"Add":" %110 = phi i1 [%103, %$16] ; # Sign"},{"Add":" %111 = phi i1 [%104, %$16] ; # Frac"},{"Add":" %112 = phi i8 [%106, %$16] ; # B"},{"Add":"; # (? (and Frac (=0 Scl)) (when (> (dec 'B (char \"0\")) 9) (ret 0)) (..."},{"Add":"; # (and Frac (=0 Scl))"},{"Add":" br i1 %111, label %$20, label %$19"},{"Add":"$20:"},{"Add":" %113 = phi i64 [%108, %$17] ; # Scl"},{"Add":" %114 = phi i64 [%109, %$17] ; # Num"},{"Add":" %115 = phi i1 [%110, %$17] ; # Sign"},{"Add":" %116 = phi i1 [%111, %$17] ; # Frac"},{"Add":" %117 = phi i8 [%112, %$17] ; # B"},{"Add":"; # (=0 Scl)"},{"Add":" %118 = icmp eq i64 %113, 0"},{"Add":" br label %$19"},{"Add":"$19:"},{"Add":" %119 = phi i64 [%108, %$17], [%113, %$20] ; # Scl"},{"Add":" %120 = phi i64 [%109, %$17], [%114, %$20] ; # Num"},{"Add":" %121 = phi i1 [%110, %$17], [%115, %$20] ; # Sign"},{"Add":" %122 = phi i1 [%111, %$17], [%116, %$20] ; # Frac"},{"Add":" %123 = phi i8 [%112, %$17], [%117, %$20] ; # B"},{"Add":" %124 = phi i1 [0, %$17], [%118, %$20] ; # ->"},{"Add":" br i1 %124, label %$22, label %$21"},{"Add":"$22:"},{"Add":" %125 = phi i64 [%119, %$19] ; # Scl"},{"Add":" %126 = phi i64 [%120, %$19] ; # Num"},{"Add":" %127 = phi i1 [%121, %$19] ; # Sign"},{"Add":" %128 = phi i1 [%122, %$19] ; # Frac"},{"Add":" %129 = phi i8 [%123, %$19] ; # B"},{"Add":"; # (when (> (dec 'B (char \"0\")) 9) (ret 0))"},{"Add":"; # (dec 'B (char \"0\"))"},{"Add":" %130 = sub i8 %129, 48"},{"Add":"; # (> (dec 'B (char \"0\")) 9)"},{"Add":" %131 = icmp ugt i8 %130, 9"},{"Add":" br i1 %131, label %$23, label %$24"},{"Add":"$23:"},{"Add":" %132 = phi i64 [%125, %$22] ; # Scl"},{"Add":" %133 = phi i64 [%126, %$22] ; # Num"},{"Add":" %134 = phi i1 [%127, %$22] ; # Sign"},{"Add":" %135 = phi i1 [%128, %$22] ; # Frac"},{"Add":" %136 = phi i8 [%130, %$22] ; # B"},{"Add":"; # (ret 0)"},{"Add":"; # (drop *Safe)"},{"Add":" %137 = inttoptr i64 %88 to i64*"},{"Add":" %138 = getelementptr i64, i64* %137, i32 1"},{"Add":" %139 = load i64, i64* %138"},{"Add":" %140 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %139, i64* %140"},{"Add":" ret i64 0"},{"Add":"$24:"},{"Add":" %141 = phi i64 [%125, %$22] ; # Scl"},{"Add":" %142 = phi i64 [%126, %$22] ; # Num"},{"Add":" %143 = phi i1 [%127, %$22] ; # Sign"},{"Add":" %144 = phi i1 [%128, %$22] ; # Frac"},{"Add":" %145 = phi i8 [%130, %$22] ; # B"},{"Add":"; # (when (>= B 5) (set Num (addu (val Num) ONE)))"},{"Add":"; # (>= B 5)"},{"Add":" %146 = icmp uge i8 %145, 5"},{"Add":" br i1 %146, label %$25, label %$26"},{"Add":"$25:"},{"Add":" %147 = phi i64 [%141, %$24] ; # Scl"},{"Add":" %148 = phi i64 [%142, %$24] ; # Num"},{"Add":" %149 = phi i1 [%143, %$24] ; # Sign"},{"Add":" %150 = phi i1 [%144, %$24] ; # Frac"},{"Add":" %151 = phi i8 [%145, %$24] ; # B"},{"Add":"; # (set Num (addu (val Num) ONE))"},{"Add":"; # (val Num)"},{"Add":" %152 = inttoptr i64 %148 to i64*"},{"Add":" %153 = load i64, i64* %152"},{"Add":"; # (addu (val Num) ONE)"},{"Add":" %154 = call i64 @addu(i64 %153, i64 18)"},{"Add":" %155 = inttoptr i64 %148 to i64*"},{"Add":" store i64 %154, i64* %155"},{"Add":" br label %$26"},{"Add":"$26:"},{"Add":" %156 = phi i64 [%141, %$24], [%147, %$25] ; # Scl"},{"Add":" %157 = phi i64 [%142, %$24], [%148, %$25] ; # Num"},{"Add":" %158 = phi i1 [%143, %$24], [%149, %$25] ; # Sign"},{"Add":" %159 = phi i1 [%144, %$24], [%150, %$25] ; # Frac"},{"Add":" %160 = phi i8 [%145, %$24], [%151, %$25] ; # B"},{"Add":"; # (while (setq B (symByte P)) (when (> (dec 'B (char \"0\")) 9) (ret ..."},{"Add":" br label %$27"},{"Add":"$27:"},{"Add":" %161 = phi i64 [%156, %$26], [%184, %$31] ; # Scl"},{"Add":" %162 = phi i64 [%157, %$26], [%185, %$31] ; # Num"},{"Add":" %163 = phi i1 [%158, %$26], [%186, %$31] ; # Sign"},{"Add":" %164 = phi i1 [%159, %$26], [%187, %$31] ; # Frac"},{"Add":" %165 = phi i8 [%160, %$26], [%188, %$31] ; # B"},{"Add":"; # (symByte P)"},{"Add":" %166 = call i8 @symByte(i64* %4)"},{"Add":" %167 = icmp ne i8 %166, 0"},{"Add":" br i1 %167, label %$28, label %$29"},{"Add":"$28:"},{"Add":" %168 = phi i64 [%161, %$27] ; # Scl"},{"Add":" %169 = phi i64 [%162, %$27] ; # Num"},{"Add":" %170 = phi i1 [%163, %$27] ; # Sign"},{"Add":" %171 = phi i1 [%164, %$27] ; # Frac"},{"Add":" %172 = phi i8 [%166, %$27] ; # B"},{"Add":"; # (when (> (dec 'B (char \"0\")) 9) (ret 0))"},{"Add":"; # (dec 'B (char \"0\"))"},{"Add":" %173 = sub i8 %172, 48"},{"Add":"; # (> (dec 'B (char \"0\")) 9)"},{"Add":" %174 = icmp ugt i8 %173, 9"},{"Add":" br i1 %174, label %$30, label %$31"},{"Add":"$30:"},{"Add":" %175 = phi i64 [%168, %$28] ; # Scl"},{"Add":" %176 = phi i64 [%169, %$28] ; # Num"},{"Add":" %177 = phi i1 [%170, %$28] ; # Sign"},{"Add":" %178 = phi i1 [%171, %$28] ; # Frac"},{"Add":" %179 = phi i8 [%173, %$28] ; # B"},{"Add":"; # (ret 0)"},{"Add":"; # (drop *Safe)"},{"Add":" %180 = inttoptr i64 %88 to i64*"},{"Add":" %181 = getelementptr i64, i64* %180, i32 1"},{"Add":" %182 = load i64, i64* %181"},{"Add":" %183 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %182, i64* %183"},{"Add":" ret i64 0"},{"Add":"$31:"},{"Add":" %184 = phi i64 [%168, %$28] ; # Scl"},{"Add":" %185 = phi i64 [%169, %$28] ; # Num"},{"Add":" %186 = phi i1 [%170, %$28] ; # Sign"},{"Add":" %187 = phi i1 [%171, %$28] ; # Frac"},{"Add":" %188 = phi i8 [%173, %$28] ; # B"},{"Add":" br label %$27"},{"Add":"$29:"},{"Add":" %189 = phi i64 [%161, %$27] ; # Scl"},{"Add":" %190 = phi i64 [%162, %$27] ; # Num"},{"Add":" %191 = phi i1 [%163, %$27] ; # Sign"},{"Add":" %192 = phi i1 [%164, %$27] ; # Frac"},{"Add":" %193 = phi i8 [%166, %$27] ; # B"},{"Add":" br label %$18"},{"Add":"$21:"},{"Add":" %194 = phi i64 [%119, %$19] ; # Scl"},{"Add":" %195 = phi i64 [%120, %$19] ; # Num"},{"Add":" %196 = phi i1 [%121, %$19] ; # Sign"},{"Add":" %197 = phi i1 [%122, %$19] ; # Frac"},{"Add":" %198 = phi i8 [%123, %$19] ; # B"},{"Add":"; # (cond ((== B Sep) (when Frac (ret 0)) (setq Frac YES)) ((<> B Ign..."},{"Add":"; # (== B Sep)"},{"Add":" %199 = icmp eq i8 %198, %2"},{"Add":" br i1 %199, label %$34, label %$33"},{"Add":"$34:"},{"Add":" %200 = phi i64 [%194, %$21] ; # Scl"},{"Add":" %201 = phi i64 [%195, %$21] ; # Num"},{"Add":" %202 = phi i1 [%196, %$21] ; # Sign"},{"Add":" %203 = phi i1 [%197, %$21] ; # Frac"},{"Add":" %204 = phi i8 [%198, %$21] ; # B"},{"Add":"; # (when Frac (ret 0))"},{"Add":" br i1 %203, label %$35, label %$36"},{"Add":"$35:"},{"Add":" %205 = phi i64 [%200, %$34] ; # Scl"},{"Add":" %206 = phi i64 [%201, %$34] ; # Num"},{"Add":" %207 = phi i1 [%202, %$34] ; # Sign"},{"Add":" %208 = phi i1 [%203, %$34] ; # Frac"},{"Add":" %209 = phi i8 [%204, %$34] ; # B"},{"Add":"; # (ret 0)"},{"Add":"; # (drop *Safe)"},{"Add":" %210 = inttoptr i64 %88 to i64*"},{"Add":" %211 = getelementptr i64, i64* %210, i32 1"},{"Add":" %212 = load i64, i64* %211"},{"Add":" %213 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %212, i64* %213"},{"Add":" ret i64 0"},{"Add":"$36:"},{"Add":" %214 = phi i64 [%200, %$34] ; # Scl"},{"Add":" %215 = phi i64 [%201, %$34] ; # Num"},{"Add":" %216 = phi i1 [%202, %$34] ; # Sign"},{"Add":" %217 = phi i1 [%203, %$34] ; # Frac"},{"Add":" %218 = phi i8 [%204, %$34] ; # B"},{"Add":" br label %$32"},{"Add":"$33:"},{"Add":" %219 = phi i64 [%194, %$21] ; # Scl"},{"Add":" %220 = phi i64 [%195, %$21] ; # Num"},{"Add":" %221 = phi i1 [%196, %$21] ; # Sign"},{"Add":" %222 = phi i1 [%197, %$21] ; # Frac"},{"Add":" %223 = phi i8 [%198, %$21] ; # B"},{"Add":"; # (<> B Ign)"},{"Add":" %224 = icmp ne i8 %223, %3"},{"Add":" br i1 %224, label %$38, label %$37"},{"Add":"$38:"},{"Add":" %225 = phi i64 [%219, %$33] ; # Scl"},{"Add":" %226 = phi i64 [%220, %$33] ; # Num"},{"Add":" %227 = phi i1 [%221, %$33] ; # Sign"},{"Add":" %228 = phi i1 [%222, %$33] ; # Frac"},{"Add":" %229 = phi i8 [%223, %$33] ; # B"},{"Add":"; # (when (> (dec 'B (char \"0\")) 9) (ret 0))"},{"Add":"; # (dec 'B (char \"0\"))"},{"Add":" %230 = sub i8 %229, 48"},{"Add":"; # (> (dec 'B (char \"0\")) 9)"},{"Add":" %231 = icmp ugt i8 %230, 9"},{"Add":" br i1 %231, label %$39, label %$40"},{"Add":"$39:"},{"Add":" %232 = phi i64 [%225, %$38] ; # Scl"},{"Add":" %233 = phi i64 [%226, %$38] ; # Num"},{"Add":" %234 = phi i1 [%227, %$38] ; # Sign"},{"Add":" %235 = phi i1 [%228, %$38] ; # Frac"},{"Add":" %236 = phi i8 [%230, %$38] ; # B"},{"Add":"; # (ret 0)"},{"Add":"; # (drop *Safe)"},{"Add":" %237 = inttoptr i64 %88 to i64*"},{"Add":" %238 = getelementptr i64, i64* %237, i32 1"},{"Add":" %239 = load i64, i64* %238"},{"Add":" %240 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %239, i64* %240"},{"Add":" ret i64 0"},{"Add":"$40:"},{"Add":" %241 = phi i64 [%225, %$38] ; # Scl"},{"Add":" %242 = phi i64 [%226, %$38] ; # Num"},{"Add":" %243 = phi i1 [%227, %$38] ; # Sign"},{"Add":" %244 = phi i1 [%228, %$38] ; # Frac"},{"Add":" %245 = phi i8 [%230, %$38] ; # B"},{"Add":"; # (set Num (addu (tenfold (val Num)) (cnt (i64 B))))"},{"Add":"; # (val Num)"},{"Add":" %246 = inttoptr i64 %242 to i64*"},{"Add":" %247 = load i64, i64* %246"},{"Add":"; # (tenfold (val Num))"},{"Add":" %248 = call i64 @tenfold(i64 %247)"},{"Add":"; # (i64 B)"},{"Add":" %249 = zext i8 %245 to i64"},{"Add":"; # (cnt (i64 B))"},{"Add":" %250 = shl i64 %249, 4"},{"Add":" %251 = or i64 %250, 2"},{"Add":"; # (addu (tenfold (val Num)) (cnt (i64 B)))"},{"Add":" %252 = call i64 @addu(i64 %248, i64 %251)"},{"Add":" %253 = inttoptr i64 %242 to i64*"},{"Add":" store i64 %252, i64* %253"},{"Add":"; # (when Frac (dec 'Scl))"},{"Add":" br i1 %244, label %$41, label %$42"},{"Add":"$41:"},{"Add":" %254 = phi i64 [%241, %$40] ; # Scl"},{"Add":" %255 = phi i64 [%242, %$40] ; # Num"},{"Add":" %256 = phi i1 [%243, %$40] ; # Sign"},{"Add":" %257 = phi i1 [%244, %$40] ; # Frac"},{"Add":" %258 = phi i8 [%245, %$40] ; # B"},{"Add":"; # (dec 'Scl)"},{"Add":" %259 = sub i64 %254, 1"},{"Add":" br label %$42"},{"Add":"$42:"},{"Add":" %260 = phi i64 [%241, %$40], [%259, %$41] ; # Scl"},{"Add":" %261 = phi i64 [%242, %$40], [%255, %$41] ; # Num"},{"Add":" %262 = phi i1 [%243, %$40], [%256, %$41] ; # Sign"},{"Add":" %263 = phi i1 [%244, %$40], [%257, %$41] ; # Frac"},{"Add":" %264 = phi i8 [%245, %$40], [%258, %$41] ; # B"},{"Add":" br label %$32"},{"Add":"$37:"},{"Add":" %265 = phi i64 [%219, %$33] ; # Scl"},{"Add":" %266 = phi i64 [%220, %$33] ; # Num"},{"Add":" %267 = phi i1 [%221, %$33] ; # Sign"},{"Add":" %268 = phi i1 [%222, %$33] ; # Frac"},{"Add":" %269 = phi i8 [%223, %$33] ; # B"},{"Add":" br label %$32"},{"Add":"$32:"},{"Add":" %270 = phi i64 [%214, %$36], [%260, %$42], [%265, %$37] ; # Scl"},{"Add":" %271 = phi i64 [%215, %$36], [%261, %$42], [%266, %$37] ; # Num"},{"Add":" %272 = phi i1 [%216, %$36], [%262, %$42], [%267, %$37] ; # Sign"},{"Add":" %273 = phi i1 [1, %$36], [%263, %$42], [%268, %$37] ; # Frac"},{"Add":" %274 = phi i8 [%218, %$36], [%264, %$42], [%269, %$37] ; # B"},{"Add":" br label %$16"},{"Add":"$18:"},{"Add":" %275 = phi i64 [%101, %$16], [%189, %$29] ; # Scl"},{"Add":" %276 = phi i64 [%102, %$16], [%190, %$29] ; # Num"},{"Add":" %277 = phi i1 [%103, %$16], [%191, %$29] ; # Sign"},{"Add":" %278 = phi i1 [%104, %$16], [%192, %$29] ; # Frac"},{"Add":" %279 = phi i8 [%106, %$16], [%193, %$29] ; # B"},{"Add":"; # (when Frac (while (ge0 (dec 'Scl)) (set Num (tenfold (val Num))))..."},{"Add":" br i1 %278, label %$43, label %$44"},{"Add":"$43:"},{"Add":" %280 = phi i64 [%275, %$18] ; # Scl"},{"Add":" %281 = phi i64 [%276, %$18] ; # Num"},{"Add":" %282 = phi i1 [%277, %$18] ; # Sign"},{"Add":" %283 = phi i1 [%278, %$18] ; # Frac"},{"Add":" %284 = phi i8 [%279, %$18] ; # B"},{"Add":"; # (while (ge0 (dec 'Scl)) (set Num (tenfold (val Num))))"},{"Add":" br label %$45"},{"Add":"$45:"},{"Add":" %285 = phi i64 [%280, %$43], [%292, %$46] ; # Scl"},{"Add":" %286 = phi i64 [%281, %$43], [%293, %$46] ; # Num"},{"Add":" %287 = phi i1 [%282, %$43], [%294, %$46] ; # Sign"},{"Add":" %288 = phi i1 [%283, %$43], [%295, %$46] ; # Frac"},{"Add":" %289 = phi i8 [%284, %$43], [%296, %$46] ; # B"},{"Add":"; # (dec 'Scl)"},{"Add":" %290 = sub i64 %285, 1"},{"Add":"; # (ge0 (dec 'Scl))"},{"Add":" %291 = icmp sge i64 %290, 0"},{"Add":" br i1 %291, label %$46, label %$47"},{"Add":"$46:"},{"Add":" %292 = phi i64 [%290, %$45] ; # Scl"},{"Add":" %293 = phi i64 [%286, %$45] ; # Num"},{"Add":" %294 = phi i1 [%287, %$45] ; # Sign"},{"Add":" %295 = phi i1 [%288, %$45] ; # Frac"},{"Add":" %296 = phi i8 [%289, %$45] ; # B"},{"Add":"; # (set Num (tenfold (val Num)))"},{"Add":"; # (val Num)"},{"Add":" %297 = inttoptr i64 %293 to i64*"},{"Add":" %298 = load i64, i64* %297"},{"Add":"; # (tenfold (val Num))"},{"Add":" %299 = call i64 @tenfold(i64 %298)"},{"Add":" %300 = inttoptr i64 %293 to i64*"},{"Add":" store i64 %299, i64* %300"},{"Add":" br label %$45"},{"Add":"$47:"},{"Add":" %301 = phi i64 [%290, %$45] ; # Scl"},{"Add":" %302 = phi i64 [%286, %$45] ; # Num"},{"Add":" %303 = phi i1 [%287, %$45] ; # Sign"},{"Add":" %304 = phi i1 [%288, %$45] ; # Frac"},{"Add":" %305 = phi i8 [%289, %$45] ; # B"},{"Add":" br label %$44"},{"Add":"$44:"},{"Add":" %306 = phi i64 [%275, %$18], [%301, %$47] ; # Scl"},{"Add":" %307 = phi i64 [%276, %$18], [%302, %$47] ; # Num"},{"Add":" %308 = phi i1 [%277, %$18], [%303, %$47] ; # Sign"},{"Add":" %309 = phi i1 [%278, %$18], [%304, %$47] ; # Frac"},{"Add":" %310 = phi i8 [%279, %$18], [%305, %$47] ; # B"},{"Add":"; # (val Num)"},{"Add":" %311 = inttoptr i64 %307 to i64*"},{"Add":" %312 = load i64, i64* %311"},{"Add":"; # (if Sign (neg Num) Num)"},{"Add":" br i1 %308, label %$48, label %$49"},{"Add":"$48:"},{"Add":" %313 = phi i64 [%306, %$44] ; # Scl"},{"Add":" %314 = phi i64 [%312, %$44] ; # Num"},{"Add":" %315 = phi i1 [%308, %$44] ; # Sign"},{"Add":" %316 = phi i1 [%309, %$44] ; # Frac"},{"Add":" %317 = phi i8 [%310, %$44] ; # B"},{"Add":"; # (neg Num)"},{"Add":" %318 = icmp eq i64 %314, 2"},{"Add":" br i1 %318, label %$51, label %$52"},{"Add":"$51:"},{"Add":" br label %$53"},{"Add":"$52:"},{"Add":" %319 = xor i64 %314, 8"},{"Add":" br label %$53"},{"Add":"$53:"},{"Add":" %320 = phi i64 [%314, %$51], [%319, %$52] ; # ->"},{"Add":" br label %$50"},{"Add":"$49:"},{"Add":" %321 = phi i64 [%306, %$44] ; # Scl"},{"Add":" %322 = phi i64 [%312, %$44] ; # Num"},{"Add":" %323 = phi i1 [%308, %$44] ; # Sign"},{"Add":" %324 = phi i1 [%309, %$44] ; # Frac"},{"Add":" %325 = phi i8 [%310, %$44] ; # B"},{"Add":" br label %$50"},{"Add":"$50:"},{"Add":" %326 = phi i64 [%313, %$53], [%321, %$49] ; # Scl"},{"Add":" %327 = phi i64 [%314, %$53], [%322, %$49] ; # Num"},{"Add":" %328 = phi i1 [%315, %$53], [%323, %$49] ; # Sign"},{"Add":" %329 = phi i1 [%316, %$53], [%324, %$49] ; # Frac"},{"Add":" %330 = phi i8 [%317, %$53], [%325, %$49] ; # B"},{"Add":" %331 = phi i64 [%320, %$53], [%322, %$49] ; # ->"},{"Add":"; # (drop *Safe)"},{"Add":" %332 = inttoptr i64 %88 to i64*"},{"Add":" %333 = getelementptr i64, i64* %332, i32 1"},{"Add":" %334 = load i64, i64* %333"},{"Add":" %335 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %334, i64* %335"},{"Add":" ret i64 %331"},{"Add":"}"},{"Add":""},{"Add":"define i64 @fmtWord(i64, i64, i8, i8, i64*) align 8 {"},{"Add":"$1:"},{"Add":"; # (when (> N 9) (setq Scl (fmtWord (/ N 10) Scl Sep Ign P)) (cond (..."},{"Add":"; # (> N 9)"},{"Add":" %5 = icmp ugt i64 %0, 9"},{"Add":" br i1 %5, label %$2, label %$3"},{"Add":"$2:"},{"Add":" %6 = phi i64 [%0, %$1] ; # N"},{"Add":" %7 = phi i64 [%1, %$1] ; # Scl"},{"Add":"; # (/ N 10)"},{"Add":" %8 = udiv i64 %6, 10"},{"Add":"; # (fmtWord (/ N 10) Scl Sep Ign P)"},{"Add":" %9 = call i64 @fmtWord(i64 %8, i64 %7, i8 %2, i8 %3, i64* %4)"},{"Add":"; # (cond ((=0 Scl) (byteSym Sep P)) ((and Ign (gt0 Scl) (=0 (% Scl 3..."},{"Add":"; # (=0 Scl)"},{"Add":" %10 = icmp eq i64 %9, 0"},{"Add":" br i1 %10, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %11 = phi i64 [%6, %$2] ; # N"},{"Add":" %12 = phi i64 [%9, %$2] ; # Scl"},{"Add":"; # (byteSym Sep P)"},{"Add":" call void @byteSym(i8 %2, i64* %4)"},{"Add":" br label %$4"},{"Add":"$5:"},{"Add":" %13 = phi i64 [%6, %$2] ; # N"},{"Add":" %14 = phi i64 [%9, %$2] ; # Scl"},{"Add":"; # (and Ign (gt0 Scl) (=0 (% Scl 3)))"},{"Add":" %15 = icmp ne i8 %3, 0"},{"Add":" br i1 %15, label %$8, label %$7"},{"Add":"$8:"},{"Add":" %16 = phi i64 [%13, %$5] ; # N"},{"Add":" %17 = phi i64 [%14, %$5] ; # Scl"},{"Add":"; # (gt0 Scl)"},{"Add":" %18 = icmp sgt i64 %17, 0"},{"Add":" br i1 %18, label %$9, label %$7"},{"Add":"$9:"},{"Add":" %19 = phi i64 [%16, %$8] ; # N"},{"Add":" %20 = phi i64 [%17, %$8] ; # Scl"},{"Add":"; # (% Scl 3)"},{"Add":" %21 = urem i64 %20, 3"},{"Add":"; # (=0 (% Scl 3))"},{"Add":" %22 = icmp eq i64 %21, 0"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %23 = phi i64 [%13, %$5], [%16, %$8], [%19, %$9] ; # N"},{"Add":" %24 = phi i64 [%14, %$5], [%17, %$8], [%20, %$9] ; # Scl"},{"Add":" %25 = phi i1 [0, %$5], [0, %$8], [%22, %$9] ; # ->"},{"Add":" br i1 %25, label %$11, label %$10"},{"Add":"$11:"},{"Add":" %26 = phi i64 [%23, %$7] ; # N"},{"Add":" %27 = phi i64 [%24, %$7] ; # Scl"},{"Add":"; # (byteSym Ign P)"},{"Add":" call void @byteSym(i8 %3, i64* %4)"},{"Add":" br label %$4"},{"Add":"$10:"},{"Add":" %28 = phi i64 [%23, %$7] ; # N"},{"Add":" %29 = phi i64 [%24, %$7] ; # Scl"},{"Add":" br label %$4"},{"Add":"$4:"},{"Add":" %30 = phi i64 [%11, %$6], [%26, %$11], [%28, %$10] ; # N"},{"Add":" %31 = phi i64 [%12, %$6], [%27, %$11], [%29, %$10] ; # Scl"},{"Add":"; # (dec 'Scl)"},{"Add":" %32 = sub i64 %31, 1"},{"Add":"; # (% N 10)"},{"Add":" %33 = urem i64 %30, 10"},{"Add":" br label %$3"},{"Add":"$3:"},{"Add":" %34 = phi i64 [%0, %$1], [%33, %$4] ; # N"},{"Add":" %35 = phi i64 [%1, %$1], [%32, %$4] ; # Scl"},{"Add":"; # (i8 N)"},{"Add":" %36 = trunc i64 %34 to i8"},{"Add":"; # (+ (i8 N) (char \"0\"))"},{"Add":" %37 = add i8 %36, 48"},{"Add":"; # (byteSym (+ (i8 N) (char \"0\")) P)"},{"Add":" call void @byteSym(i8 %37, i64* %4)"},{"Add":" ret i64 %35"},{"Add":"}"},{"Add":""},{"Add":"define i64 @fmtNum(i64, i64, i8, i8, i64*) align 8 {"},{"Add":"$1:"},{"Add":"; # (let (Sign (sign? Num) Len (+ 19 17)) (let N (setq Num (& Num -9)..."},{"Add":"; # (sign? Num)"},{"Add":" %5 = and i64 %0, 8"},{"Add":" %6 = icmp ne i64 %5, 0"},{"Add":"; # (+ 19 17)"},{"Add":"; # (let N (setq Num (& Num -9)) (until (cnt? N) (inc 'Len 20) (setq ..."},{"Add":"; # (& Num -9)"},{"Add":" %7 = and i64 %0, -9"},{"Add":"; # (until (cnt? N) (inc 'Len 20) (setq N (val (big N))))"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %8 = phi i64 [%7, %$1], [%14, %$3] ; # Num"},{"Add":" %9 = phi i64 [%1, %$1], [%15, %$3] ; # Scl"},{"Add":" %10 = phi i64 [36, %$1], [%18, %$3] ; # Len"},{"Add":" %11 = phi i64 [%7, %$1], [%21, %$3] ; # N"},{"Add":"; # (cnt? N)"},{"Add":" %12 = and i64 %11, 2"},{"Add":" %13 = icmp ne i64 %12, 0"},{"Add":" br i1 %13, label %$4, label %$3"},{"Add":"$3:"},{"Add":" %14 = phi i64 [%8, %$2] ; # Num"},{"Add":" %15 = phi i64 [%9, %$2] ; # Scl"},{"Add":" %16 = phi i64 [%10, %$2] ; # Len"},{"Add":" %17 = phi i64 [%11, %$2] ; # N"},{"Add":"; # (inc 'Len 20)"},{"Add":" %18 = add i64 %16, 20"},{"Add":"; # (big N)"},{"Add":" %19 = add i64 %17, 4"},{"Add":"; # (val (big N))"},{"Add":" %20 = inttoptr i64 %19 to i64*"},{"Add":" %21 = load i64, i64* %20"},{"Add":" br label %$2"},{"Add":"$4:"},{"Add":" %22 = phi i64 [%8, %$2] ; # Num"},{"Add":" %23 = phi i64 [%9, %$2] ; # Scl"},{"Add":" %24 = phi i64 [%10, %$2] ; # Len"},{"Add":" %25 = phi i64 [%11, %$2] ; # N"},{"Add":"; # (/ Len 18)"},{"Add":" %26 = udiv i64 %24, 18"},{"Add":"; # (let (Acc (b64 Len) TopA Acc) (let (Inc (b64 Len) TopI Inc) (set ..."},{"Add":"; # (b64 Len)"},{"Add":" %27 = alloca i64, i64 %26"},{"Add":"; # (let (Inc (b64 Len) TopI Inc) (set Acc 0 Inc 1) (loop (let (Dig N..."},{"Add":"; # (b64 Len)"},{"Add":" %28 = alloca i64, i64 %26"},{"Add":"; # (set Acc 0 Inc 1)"},{"Add":" store i64 0, i64* %27"},{"Add":" store i64 1, i64* %28"},{"Add":"; # (loop (let (Dig Num Mask 16) (when (big? Num) (setq Dig (val (dig..."},{"Add":" br label %$5"},{"Add":"$5:"},{"Add":" %29 = phi i64 [%22, %$4], [%306, %$31] ; # Num"},{"Add":" %30 = phi i64 [%23, %$4], [%300, %$31] ; # Scl"},{"Add":" %31 = phi i64 [%26, %$4], [%301, %$31] ; # Len"},{"Add":" %32 = phi i64* [%27, %$4], [%302, %$31] ; # TopA"},{"Add":" %33 = phi i64* [%28, %$4], [%303, %$31] ; # TopI"},{"Add":"; # (let (Dig Num Mask 16) (when (big? Num) (setq Dig (val (dig Num))..."},{"Add":"; # (when (big? Num) (setq Dig (val (dig Num)) Mask 1))"},{"Add":"; # (big? Num)"},{"Add":" %34 = and i64 %29, 4"},{"Add":" %35 = icmp ne i64 %34, 0"},{"Add":" br i1 %35, label %$6, label %$7"},{"Add":"$6:"},{"Add":" %36 = phi i64 [%29, %$5] ; # Num"},{"Add":" %37 = phi i64 [%30, %$5] ; # Scl"},{"Add":" %38 = phi i64 [%31, %$5] ; # Len"},{"Add":" %39 = phi i64* [%32, %$5] ; # TopA"},{"Add":" %40 = phi i64* [%33, %$5] ; # TopI"},{"Add":" %41 = phi i64 [%29, %$5] ; # Dig"},{"Add":" %42 = phi i64 [16, %$5] ; # Mask"},{"Add":"; # (dig Num)"},{"Add":" %43 = add i64 %36, -4"},{"Add":"; # (val (dig Num))"},{"Add":" %44 = inttoptr i64 %43 to i64*"},{"Add":" %45 = load i64, i64* %44"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %46 = phi i64 [%29, %$5], [%36, %$6] ; # Num"},{"Add":" %47 = phi i64 [%30, %$5], [%37, %$6] ; # Scl"},{"Add":" %48 = phi i64 [%31, %$5], [%38, %$6] ; # Len"},{"Add":" %49 = phi i64* [%32, %$5], [%39, %$6] ; # TopA"},{"Add":" %50 = phi i64* [%33, %$5], [%40, %$6] ; # TopI"},{"Add":" %51 = phi i64 [%29, %$5], [%45, %$6] ; # Dig"},{"Add":" %52 = phi i64 [16, %$5], [1, %$6] ; # Mask"},{"Add":"; # (loop (when (& Dig Mask) (let (A Acc I Inc C 0) (loop (let N (+ (..."},{"Add":" br label %$8"},{"Add":"$8:"},{"Add":" %53 = phi i64 [%46, %$7], [%282, %$29] ; # Num"},{"Add":" %54 = phi i64 [%47, %$7], [%283, %$29] ; # Scl"},{"Add":" %55 = phi i64 [%48, %$7], [%284, %$29] ; # Len"},{"Add":" %56 = phi i64* [%49, %$7], [%285, %$29] ; # TopA"},{"Add":" %57 = phi i64* [%50, %$7], [%286, %$29] ; # TopI"},{"Add":" %58 = phi i64 [%51, %$7], [%287, %$29] ; # Dig"},{"Add":" %59 = phi i64 [%52, %$7], [%288, %$29] ; # Mask"},{"Add":"; # (when (& Dig Mask) (let (A Acc I Inc C 0) (loop (let N (+ (val A)..."},{"Add":"; # (& Dig Mask)"},{"Add":" %60 = and i64 %58, %59"},{"Add":" %61 = icmp ne i64 %60, 0"},{"Add":" br i1 %61, label %$9, label %$10"},{"Add":"$9:"},{"Add":" %62 = phi i64 [%53, %$8] ; # Num"},{"Add":" %63 = phi i64 [%54, %$8] ; # Scl"},{"Add":" %64 = phi i64 [%55, %$8] ; # Len"},{"Add":" %65 = phi i64* [%56, %$8] ; # TopA"},{"Add":" %66 = phi i64* [%57, %$8] ; # TopI"},{"Add":" %67 = phi i64 [%58, %$8] ; # Dig"},{"Add":" %68 = phi i64 [%59, %$8] ; # Mask"},{"Add":"; # (let (A Acc I Inc C 0) (loop (let N (+ (val A) (val I) C) (setq C..."},{"Add":"; # (loop (let N (+ (val A) (val I) C) (setq C (if (> 100000000000000..."},{"Add":" br label %$11"},{"Add":"$11:"},{"Add":" %69 = phi i64 [%62, %$9], [%144, %$18] ; # Num"},{"Add":" %70 = phi i64 [%63, %$9], [%145, %$18] ; # Scl"},{"Add":" %71 = phi i64 [%64, %$9], [%146, %$18] ; # Len"},{"Add":" %72 = phi i64* [%65, %$9], [%147, %$18] ; # TopA"},{"Add":" %73 = phi i64* [%66, %$9], [%148, %$18] ; # TopI"},{"Add":" %74 = phi i64 [%67, %$9], [%149, %$18] ; # Dig"},{"Add":" %75 = phi i64 [%68, %$9], [%150, %$18] ; # Mask"},{"Add":" %76 = phi i64* [%27, %$9], [%151, %$18] ; # A"},{"Add":" %77 = phi i64* [%28, %$9], [%152, %$18] ; # I"},{"Add":" %78 = phi i64 [0, %$9], [%153, %$18] ; # C"},{"Add":"; # (let N (+ (val A) (val I) C) (setq C (if (> 1000000000000000000 N..."},{"Add":"; # (val A)"},{"Add":" %79 = load i64, i64* %76"},{"Add":"; # (val I)"},{"Add":" %80 = load i64, i64* %77"},{"Add":"; # (+ (val A) (val I) C)"},{"Add":" %81 = add i64 %79, %80"},{"Add":" %82 = add i64 %81, %78"},{"Add":"; # (if (> 1000000000000000000 N) 0 (dec 'N 1000000000000000000) 1)"},{"Add":"; # (> 1000000000000000000 N)"},{"Add":" %83 = icmp ugt i64 1000000000000000000, %82"},{"Add":" br i1 %83, label %$12, label %$13"},{"Add":"$12:"},{"Add":" %84 = phi i64 [%69, %$11] ; # Num"},{"Add":" %85 = phi i64 [%70, %$11] ; # Scl"},{"Add":" %86 = phi i64 [%71, %$11] ; # Len"},{"Add":" %87 = phi i64* [%72, %$11] ; # TopA"},{"Add":" %88 = phi i64* [%73, %$11] ; # TopI"},{"Add":" %89 = phi i64 [%74, %$11] ; # Dig"},{"Add":" %90 = phi i64 [%75, %$11] ; # Mask"},{"Add":" %91 = phi i64* [%76, %$11] ; # A"},{"Add":" %92 = phi i64* [%77, %$11] ; # I"},{"Add":" %93 = phi i64 [%78, %$11] ; # C"},{"Add":" %94 = phi i64 [%82, %$11] ; # N"},{"Add":" br label %$14"},{"Add":"$13:"},{"Add":" %95 = phi i64 [%69, %$11] ; # Num"},{"Add":" %96 = phi i64 [%70, %$11] ; # Scl"},{"Add":" %97 = phi i64 [%71, %$11] ; # Len"},{"Add":" %98 = phi i64* [%72, %$11] ; # TopA"},{"Add":" %99 = phi i64* [%73, %$11] ; # TopI"},{"Add":" %100 = phi i64 [%74, %$11] ; # Dig"},{"Add":" %101 = phi i64 [%75, %$11] ; # Mask"},{"Add":" %102 = phi i64* [%76, %$11] ; # A"},{"Add":" %103 = phi i64* [%77, %$11] ; # I"},{"Add":" %104 = phi i64 [%78, %$11] ; # C"},{"Add":" %105 = phi i64 [%82, %$11] ; # N"},{"Add":"; # (dec 'N 1000000000000000000)"},{"Add":" %106 = sub i64 %105, 1000000000000000000"},{"Add":" br label %$14"},{"Add":"$14:"},{"Add":" %107 = phi i64 [%84, %$12], [%95, %$13] ; # Num"},{"Add":" %108 = phi i64 [%85, %$12], [%96, %$13] ; # Scl"},{"Add":" %109 = phi i64 [%86, %$12], [%97, %$13] ; # Len"},{"Add":" %110 = phi i64* [%87, %$12], [%98, %$13] ; # TopA"},{"Add":" %111 = phi i64* [%88, %$12], [%99, %$13] ; # TopI"},{"Add":" %112 = phi i64 [%89, %$12], [%100, %$13] ; # Dig"},{"Add":" %113 = phi i64 [%90, %$12], [%101, %$13] ; # Mask"},{"Add":" %114 = phi i64* [%91, %$12], [%102, %$13] ; # A"},{"Add":" %115 = phi i64* [%92, %$12], [%103, %$13] ; # I"},{"Add":" %116 = phi i64 [%93, %$12], [%104, %$13] ; # C"},{"Add":" %117 = phi i64 [%94, %$12], [%106, %$13] ; # N"},{"Add":" %118 = phi i64 [0, %$12], [1, %$13] ; # ->"},{"Add":"; # (set A N)"},{"Add":" store i64 %117, i64* %114"},{"Add":"; # (? (> (inc 'I) TopI))"},{"Add":"; # (inc 'I)"},{"Add":" %119 = getelementptr i64, i64* %115, i32 1"},{"Add":"; # (> (inc 'I) TopI)"},{"Add":" %120 = icmp ugt i64* %119, %111"},{"Add":" br i1 %120, label %$16, label %$15"},{"Add":"$15:"},{"Add":" %121 = phi i64 [%107, %$14] ; # Num"},{"Add":" %122 = phi i64 [%108, %$14] ; # Scl"},{"Add":" %123 = phi i64 [%109, %$14] ; # Len"},{"Add":" %124 = phi i64* [%110, %$14] ; # TopA"},{"Add":" %125 = phi i64* [%111, %$14] ; # TopI"},{"Add":" %126 = phi i64 [%112, %$14] ; # Dig"},{"Add":" %127 = phi i64 [%113, %$14] ; # Mask"},{"Add":" %128 = phi i64* [%114, %$14] ; # A"},{"Add":" %129 = phi i64* [%119, %$14] ; # I"},{"Add":" %130 = phi i64 [%118, %$14] ; # C"},{"Add":"; # (when (> (inc 'A) TopA) (inc 'TopA) (set A 0))"},{"Add":"; # (inc 'A)"},{"Add":" %131 = getelementptr i64, i64* %128, i32 1"},{"Add":"; # (> (inc 'A) TopA)"},{"Add":" %132 = icmp ugt i64* %131, %124"},{"Add":" br i1 %132, label %$17, label %$18"},{"Add":"$17:"},{"Add":" %133 = phi i64 [%121, %$15] ; # Num"},{"Add":" %134 = phi i64 [%122, %$15] ; # Scl"},{"Add":" %135 = phi i64 [%123, %$15] ; # Len"},{"Add":" %136 = phi i64* [%124, %$15] ; # TopA"},{"Add":" %137 = phi i64* [%125, %$15] ; # TopI"},{"Add":" %138 = phi i64 [%126, %$15] ; # Dig"},{"Add":" %139 = phi i64 [%127, %$15] ; # Mask"},{"Add":" %140 = phi i64* [%131, %$15] ; # A"},{"Add":" %141 = phi i64* [%129, %$15] ; # I"},{"Add":" %142 = phi i64 [%130, %$15] ; # C"},{"Add":"; # (inc 'TopA)"},{"Add":" %143 = getelementptr i64, i64* %136, i32 1"},{"Add":"; # (set A 0)"},{"Add":" store i64 0, i64* %140"},{"Add":" br label %$18"},{"Add":"$18:"},{"Add":" %144 = phi i64 [%121, %$15], [%133, %$17] ; # Num"},{"Add":" %145 = phi i64 [%122, %$15], [%134, %$17] ; # Scl"},{"Add":" %146 = phi i64 [%123, %$15], [%135, %$17] ; # Len"},{"Add":" %147 = phi i64* [%124, %$15], [%143, %$17] ; # TopA"},{"Add":" %148 = phi i64* [%125, %$15], [%137, %$17] ; # TopI"},{"Add":" %149 = phi i64 [%126, %$15], [%138, %$17] ; # Dig"},{"Add":" %150 = phi i64 [%127, %$15], [%139, %$17] ; # Mask"},{"Add":" %151 = phi i64* [%131, %$15], [%140, %$17] ; # A"},{"Add":" %152 = phi i64* [%129, %$15], [%141, %$17] ; # I"},{"Add":" %153 = phi i64 [%130, %$15], [%142, %$17] ; # C"},{"Add":" br label %$11"},{"Add":"$16:"},{"Add":" %154 = phi i64 [%107, %$14] ; # Num"},{"Add":" %155 = phi i64 [%108, %$14] ; # Scl"},{"Add":" %156 = phi i64 [%109, %$14] ; # Len"},{"Add":" %157 = phi i64* [%110, %$14] ; # TopA"},{"Add":" %158 = phi i64* [%111, %$14] ; # TopI"},{"Add":" %159 = phi i64 [%112, %$14] ; # Dig"},{"Add":" %160 = phi i64 [%113, %$14] ; # Mask"},{"Add":" %161 = phi i64* [%114, %$14] ; # A"},{"Add":" %162 = phi i64* [%119, %$14] ; # I"},{"Add":" %163 = phi i64 [%118, %$14] ; # C"},{"Add":" %164 = phi i64 [0, %$14] ; # ->"},{"Add":"; # (when C (set (inc 'TopA) 1))"},{"Add":" %165 = icmp ne i64 %163, 0"},{"Add":" br i1 %165, label %$19, label %$20"},{"Add":"$19:"},{"Add":" %166 = phi i64 [%154, %$16] ; # Num"},{"Add":" %167 = phi i64 [%155, %$16] ; # Scl"},{"Add":" %168 = phi i64 [%156, %$16] ; # Len"},{"Add":" %169 = phi i64* [%157, %$16] ; # TopA"},{"Add":" %170 = phi i64* [%158, %$16] ; # TopI"},{"Add":" %171 = phi i64 [%159, %$16] ; # Dig"},{"Add":" %172 = phi i64 [%160, %$16] ; # Mask"},{"Add":" %173 = phi i64* [%161, %$16] ; # A"},{"Add":" %174 = phi i64* [%162, %$16] ; # I"},{"Add":" %175 = phi i64 [%163, %$16] ; # C"},{"Add":"; # (set (inc 'TopA) 1)"},{"Add":"; # (inc 'TopA)"},{"Add":" %176 = getelementptr i64, i64* %169, i32 1"},{"Add":" store i64 1, i64* %176"},{"Add":" br label %$20"},{"Add":"$20:"},{"Add":" %177 = phi i64 [%154, %$16], [%166, %$19] ; # Num"},{"Add":" %178 = phi i64 [%155, %$16], [%167, %$19] ; # Scl"},{"Add":" %179 = phi i64 [%156, %$16], [%168, %$19] ; # Len"},{"Add":" %180 = phi i64* [%157, %$16], [%176, %$19] ; # TopA"},{"Add":" %181 = phi i64* [%158, %$16], [%170, %$19] ; # TopI"},{"Add":" %182 = phi i64 [%159, %$16], [%171, %$19] ; # Dig"},{"Add":" %183 = phi i64 [%160, %$16], [%172, %$19] ; # Mask"},{"Add":" %184 = phi i64* [%161, %$16], [%173, %$19] ; # A"},{"Add":" %185 = phi i64* [%162, %$16], [%174, %$19] ; # I"},{"Add":" %186 = phi i64 [%163, %$16], [%175, %$19] ; # C"},{"Add":" br label %$10"},{"Add":"$10:"},{"Add":" %187 = phi i64 [%53, %$8], [%177, %$20] ; # Num"},{"Add":" %188 = phi i64 [%54, %$8], [%178, %$20] ; # Scl"},{"Add":" %189 = phi i64 [%55, %$8], [%179, %$20] ; # Len"},{"Add":" %190 = phi i64* [%56, %$8], [%180, %$20] ; # TopA"},{"Add":" %191 = phi i64* [%57, %$8], [%181, %$20] ; # TopI"},{"Add":" %192 = phi i64 [%58, %$8], [%182, %$20] ; # Dig"},{"Add":" %193 = phi i64 [%59, %$8], [%183, %$20] ; # Mask"},{"Add":"; # (let (I Inc C 0) (loop (let N (val I) (setq C (if (> 100000000000..."},{"Add":"; # (loop (let N (val I) (setq C (if (> 1000000000000000000 (setq N (..."},{"Add":" br label %$21"},{"Add":"$21:"},{"Add":" %194 = phi i64 [%187, %$10], [%241, %$25] ; # Num"},{"Add":" %195 = phi i64 [%188, %$10], [%242, %$25] ; # Scl"},{"Add":" %196 = phi i64 [%189, %$10], [%243, %$25] ; # Len"},{"Add":" %197 = phi i64* [%190, %$10], [%244, %$25] ; # TopA"},{"Add":" %198 = phi i64* [%191, %$10], [%245, %$25] ; # TopI"},{"Add":" %199 = phi i64 [%192, %$10], [%246, %$25] ; # Dig"},{"Add":" %200 = phi i64 [%193, %$10], [%247, %$25] ; # Mask"},{"Add":" %201 = phi i64* [%28, %$10], [%248, %$25] ; # I"},{"Add":" %202 = phi i64 [0, %$10], [%249, %$25] ; # C"},{"Add":"; # (let N (val I) (setq C (if (> 1000000000000000000 (setq N (+ N N ..."},{"Add":"; # (val I)"},{"Add":" %203 = load i64, i64* %201"},{"Add":"; # (if (> 1000000000000000000 (setq N (+ N N C))) 0 (dec 'N 10000000..."},{"Add":"; # (+ N N C)"},{"Add":" %204 = add i64 %203, %203"},{"Add":" %205 = add i64 %204, %202"},{"Add":"; # (> 1000000000000000000 (setq N (+ N N C)))"},{"Add":" %206 = icmp ugt i64 1000000000000000000, %205"},{"Add":" br i1 %206, label %$22, label %$23"},{"Add":"$22:"},{"Add":" %207 = phi i64 [%194, %$21] ; # Num"},{"Add":" %208 = phi i64 [%195, %$21] ; # Scl"},{"Add":" %209 = phi i64 [%196, %$21] ; # Len"},{"Add":" %210 = phi i64* [%197, %$21] ; # TopA"},{"Add":" %211 = phi i64* [%198, %$21] ; # TopI"},{"Add":" %212 = phi i64 [%199, %$21] ; # Dig"},{"Add":" %213 = phi i64 [%200, %$21] ; # Mask"},{"Add":" %214 = phi i64* [%201, %$21] ; # I"},{"Add":" %215 = phi i64 [%202, %$21] ; # C"},{"Add":" %216 = phi i64 [%205, %$21] ; # N"},{"Add":" br label %$24"},{"Add":"$23:"},{"Add":" %217 = phi i64 [%194, %$21] ; # Num"},{"Add":" %218 = phi i64 [%195, %$21] ; # Scl"},{"Add":" %219 = phi i64 [%196, %$21] ; # Len"},{"Add":" %220 = phi i64* [%197, %$21] ; # TopA"},{"Add":" %221 = phi i64* [%198, %$21] ; # TopI"},{"Add":" %222 = phi i64 [%199, %$21] ; # Dig"},{"Add":" %223 = phi i64 [%200, %$21] ; # Mask"},{"Add":" %224 = phi i64* [%201, %$21] ; # I"},{"Add":" %225 = phi i64 [%202, %$21] ; # C"},{"Add":" %226 = phi i64 [%205, %$21] ; # N"},{"Add":"; # (dec 'N 1000000000000000000)"},{"Add":" %227 = sub i64 %226, 1000000000000000000"},{"Add":" br label %$24"},{"Add":"$24:"},{"Add":" %228 = phi i64 [%207, %$22], [%217, %$23] ; # Num"},{"Add":" %229 = phi i64 [%208, %$22], [%218, %$23] ; # Scl"},{"Add":" %230 = phi i64 [%209, %$22], [%219, %$23] ; # Len"},{"Add":" %231 = phi i64* [%210, %$22], [%220, %$23] ; # TopA"},{"Add":" %232 = phi i64* [%211, %$22], [%221, %$23] ; # TopI"},{"Add":" %233 = phi i64 [%212, %$22], [%222, %$23] ; # Dig"},{"Add":" %234 = phi i64 [%213, %$22], [%223, %$23] ; # Mask"},{"Add":" %235 = phi i64* [%214, %$22], [%224, %$23] ; # I"},{"Add":" %236 = phi i64 [%215, %$22], [%225, %$23] ; # C"},{"Add":" %237 = phi i64 [%216, %$22], [%227, %$23] ; # N"},{"Add":" %238 = phi i64 [0, %$22], [1, %$23] ; # ->"},{"Add":"; # (set I N)"},{"Add":" store i64 %237, i64* %235"},{"Add":"; # (? (> (inc 'I) TopI))"},{"Add":"; # (inc 'I)"},{"Add":" %239 = getelementptr i64, i64* %235, i32 1"},{"Add":"; # (> (inc 'I) TopI)"},{"Add":" %240 = icmp ugt i64* %239, %232"},{"Add":" br i1 %240, label %$26, label %$25"},{"Add":"$25:"},{"Add":" %241 = phi i64 [%228, %$24] ; # Num"},{"Add":" %242 = phi i64 [%229, %$24] ; # Scl"},{"Add":" %243 = phi i64 [%230, %$24] ; # Len"},{"Add":" %244 = phi i64* [%231, %$24] ; # TopA"},{"Add":" %245 = phi i64* [%232, %$24] ; # TopI"},{"Add":" %246 = phi i64 [%233, %$24] ; # Dig"},{"Add":" %247 = phi i64 [%234, %$24] ; # Mask"},{"Add":" %248 = phi i64* [%239, %$24] ; # I"},{"Add":" %249 = phi i64 [%238, %$24] ; # C"},{"Add":" br label %$21"},{"Add":"$26:"},{"Add":" %250 = phi i64 [%228, %$24] ; # Num"},{"Add":" %251 = phi i64 [%229, %$24] ; # Scl"},{"Add":" %252 = phi i64 [%230, %$24] ; # Len"},{"Add":" %253 = phi i64* [%231, %$24] ; # TopA"},{"Add":" %254 = phi i64* [%232, %$24] ; # TopI"},{"Add":" %255 = phi i64 [%233, %$24] ; # Dig"},{"Add":" %256 = phi i64 [%234, %$24] ; # Mask"},{"Add":" %257 = phi i64* [%239, %$24] ; # I"},{"Add":" %258 = phi i64 [%238, %$24] ; # C"},{"Add":" %259 = phi i64 [0, %$24] ; # ->"},{"Add":"; # (when C (inc 'TopI) (set I 1))"},{"Add":" %260 = icmp ne i64 %258, 0"},{"Add":" br i1 %260, label %$27, label %$28"},{"Add":"$27:"},{"Add":" %261 = phi i64 [%250, %$26] ; # Num"},{"Add":" %262 = phi i64 [%251, %$26] ; # Scl"},{"Add":" %263 = phi i64 [%252, %$26] ; # Len"},{"Add":" %264 = phi i64* [%253, %$26] ; # TopA"},{"Add":" %265 = phi i64* [%254, %$26] ; # TopI"},{"Add":" %266 = phi i64 [%255, %$26] ; # Dig"},{"Add":" %267 = phi i64 [%256, %$26] ; # Mask"},{"Add":" %268 = phi i64* [%257, %$26] ; # I"},{"Add":" %269 = phi i64 [%258, %$26] ; # C"},{"Add":"; # (inc 'TopI)"},{"Add":" %270 = getelementptr i64, i64* %265, i32 1"},{"Add":"; # (set I 1)"},{"Add":" store i64 1, i64* %268"},{"Add":" br label %$28"},{"Add":"$28:"},{"Add":" %271 = phi i64 [%250, %$26], [%261, %$27] ; # Num"},{"Add":" %272 = phi i64 [%251, %$26], [%262, %$27] ; # Scl"},{"Add":" %273 = phi i64 [%252, %$26], [%263, %$27] ; # Len"},{"Add":" %274 = phi i64* [%253, %$26], [%264, %$27] ; # TopA"},{"Add":" %275 = phi i64* [%254, %$26], [%270, %$27] ; # TopI"},{"Add":" %276 = phi i64 [%255, %$26], [%266, %$27] ; # Dig"},{"Add":" %277 = phi i64 [%256, %$26], [%267, %$27] ; # Mask"},{"Add":" %278 = phi i64* [%257, %$26], [%268, %$27] ; # I"},{"Add":" %279 = phi i64 [%258, %$26], [%269, %$27] ; # C"},{"Add":"; # (? (=0 (setq Mask (shl Mask 1))))"},{"Add":"; # (shl Mask 1)"},{"Add":" %280 = shl i64 %277, 1"},{"Add":"; # (=0 (setq Mask (shl Mask 1)))"},{"Add":" %281 = icmp eq i64 %280, 0"},{"Add":" br i1 %281, label %$30, label %$29"},{"Add":"$29:"},{"Add":" %282 = phi i64 [%271, %$28] ; # Num"},{"Add":" %283 = phi i64 [%272, %$28] ; # Scl"},{"Add":" %284 = phi i64 [%273, %$28] ; # Len"},{"Add":" %285 = phi i64* [%274, %$28] ; # TopA"},{"Add":" %286 = phi i64* [%275, %$28] ; # TopI"},{"Add":" %287 = phi i64 [%276, %$28] ; # Dig"},{"Add":" %288 = phi i64 [%280, %$28] ; # Mask"},{"Add":" br label %$8"},{"Add":"$30:"},{"Add":" %289 = phi i64 [%271, %$28] ; # Num"},{"Add":" %290 = phi i64 [%272, %$28] ; # Scl"},{"Add":" %291 = phi i64 [%273, %$28] ; # Len"},{"Add":" %292 = phi i64* [%274, %$28] ; # TopA"},{"Add":" %293 = phi i64* [%275, %$28] ; # TopI"},{"Add":" %294 = phi i64 [%276, %$28] ; # Dig"},{"Add":" %295 = phi i64 [%280, %$28] ; # Mask"},{"Add":" %296 = phi i64 [0, %$28] ; # ->"},{"Add":"; # (? (cnt? Num))"},{"Add":"; # (cnt? Num)"},{"Add":" %297 = and i64 %289, 2"},{"Add":" %298 = icmp ne i64 %297, 0"},{"Add":" br i1 %298, label %$32, label %$31"},{"Add":"$31:"},{"Add":" %299 = phi i64 [%289, %$30] ; # Num"},{"Add":" %300 = phi i64 [%290, %$30] ; # Scl"},{"Add":" %301 = phi i64 [%291, %$30] ; # Len"},{"Add":" %302 = phi i64* [%292, %$30] ; # TopA"},{"Add":" %303 = phi i64* [%293, %$30] ; # TopI"},{"Add":"; # (big Num)"},{"Add":" %304 = add i64 %299, 4"},{"Add":"; # (val (big Num))"},{"Add":" %305 = inttoptr i64 %304 to i64*"},{"Add":" %306 = load i64, i64* %305"},{"Add":" br label %$5"},{"Add":"$32:"},{"Add":" %307 = phi i64 [%289, %$30] ; # Num"},{"Add":" %308 = phi i64 [%290, %$30] ; # Scl"},{"Add":" %309 = phi i64 [%291, %$30] ; # Len"},{"Add":" %310 = phi i64* [%292, %$30] ; # TopA"},{"Add":" %311 = phi i64* [%293, %$30] ; # TopI"},{"Add":" %312 = phi i64 [0, %$30] ; # ->"},{"Add":"; # (cond ((ge0 Scl) (when Sign (byteSym (char \"-\") P)) (let N (* (sh..."},{"Add":"; # (ge0 Scl)"},{"Add":" %313 = icmp sge i64 %308, 0"},{"Add":" br i1 %313, label %$35, label %$34"},{"Add":"$35:"},{"Add":" %314 = phi i64 [%307, %$32] ; # Num"},{"Add":" %315 = phi i64 [%308, %$32] ; # Scl"},{"Add":" %316 = phi i64 [%309, %$32] ; # Len"},{"Add":" %317 = phi i64* [%310, %$32] ; # TopA"},{"Add":"; # (when Sign (byteSym (char \"-\") P))"},{"Add":" br i1 %6, label %$36, label %$37"},{"Add":"$36:"},{"Add":" %318 = phi i64 [%314, %$35] ; # Num"},{"Add":" %319 = phi i64 [%315, %$35] ; # Scl"},{"Add":" %320 = phi i64 [%316, %$35] ; # Len"},{"Add":" %321 = phi i64* [%317, %$35] ; # TopA"},{"Add":"; # (byteSym (char \"-\") P)"},{"Add":" call void @byteSym(i8 45, i64* %4)"},{"Add":" br label %$37"},{"Add":"$37:"},{"Add":" %322 = phi i64 [%314, %$35], [%318, %$36] ; # Num"},{"Add":" %323 = phi i64 [%315, %$35], [%319, %$36] ; # Scl"},{"Add":" %324 = phi i64 [%316, %$35], [%320, %$36] ; # Len"},{"Add":" %325 = phi i64* [%317, %$35], [%321, %$36] ; # TopA"},{"Add":"; # (let N (* (shr (- TopA Acc) 3) 18) (let D (val TopA) (while (setq..."},{"Add":"; # (- TopA Acc)"},{"Add":" %326 = ptrtoint i64* %325 to i64"},{"Add":" %327 = ptrtoint i64* %27 to i64"},{"Add":" %328 = sub i64 %326, %327"},{"Add":"; # (shr (- TopA Acc) 3)"},{"Add":" %329 = lshr i64 %328, 3"},{"Add":"; # (* (shr (- TopA Acc) 3) 18)"},{"Add":" %330 = mul i64 %329, 18"},{"Add":"; # (let D (val TopA) (while (setq D (/ D 10)) (inc 'N)))"},{"Add":"; # (val TopA)"},{"Add":" %331 = load i64, i64* %325"},{"Add":"; # (while (setq D (/ D 10)) (inc 'N))"},{"Add":" br label %$38"},{"Add":"$38:"},{"Add":" %332 = phi i64 [%322, %$37], [%340, %$39] ; # Num"},{"Add":" %333 = phi i64 [%323, %$37], [%341, %$39] ; # Scl"},{"Add":" %334 = phi i64 [%324, %$37], [%342, %$39] ; # Len"},{"Add":" %335 = phi i64* [%325, %$37], [%343, %$39] ; # TopA"},{"Add":" %336 = phi i64 [%330, %$37], [%346, %$39] ; # N"},{"Add":" %337 = phi i64 [%331, %$37], [%345, %$39] ; # D"},{"Add":"; # (/ D 10)"},{"Add":" %338 = udiv i64 %337, 10"},{"Add":" %339 = icmp ne i64 %338, 0"},{"Add":" br i1 %339, label %$39, label %$40"},{"Add":"$39:"},{"Add":" %340 = phi i64 [%332, %$38] ; # Num"},{"Add":" %341 = phi i64 [%333, %$38] ; # Scl"},{"Add":" %342 = phi i64 [%334, %$38] ; # Len"},{"Add":" %343 = phi i64* [%335, %$38] ; # TopA"},{"Add":" %344 = phi i64 [%336, %$38] ; # N"},{"Add":" %345 = phi i64 [%338, %$38] ; # D"},{"Add":"; # (inc 'N)"},{"Add":" %346 = add i64 %344, 1"},{"Add":" br label %$38"},{"Add":"$40:"},{"Add":" %347 = phi i64 [%332, %$38] ; # Num"},{"Add":" %348 = phi i64 [%333, %$38] ; # Scl"},{"Add":" %349 = phi i64 [%334, %$38] ; # Len"},{"Add":" %350 = phi i64* [%335, %$38] ; # TopA"},{"Add":" %351 = phi i64 [%336, %$38] ; # N"},{"Add":" %352 = phi i64 [%338, %$38] ; # D"},{"Add":"; # (when (lt0 (setq Scl (- N Scl))) (byteSym (char \"0\") P) (byteSym ..."},{"Add":"; # (- N Scl)"},{"Add":" %353 = sub i64 %351, %348"},{"Add":"; # (lt0 (setq Scl (- N Scl)))"},{"Add":" %354 = icmp slt i64 %353, 0"},{"Add":" br i1 %354, label %$41, label %$42"},{"Add":"$41:"},{"Add":" %355 = phi i64 [%347, %$40] ; # Num"},{"Add":" %356 = phi i64 [%353, %$40] ; # Scl"},{"Add":" %357 = phi i64 [%349, %$40] ; # Len"},{"Add":" %358 = phi i64* [%350, %$40] ; # TopA"},{"Add":" %359 = phi i64 [%351, %$40] ; # N"},{"Add":"; # (byteSym (char \"0\") P)"},{"Add":" call void @byteSym(i8 48, i64* %4)"},{"Add":"; # (byteSym Sep P)"},{"Add":" call void @byteSym(i8 %2, i64* %4)"},{"Add":"; # (while (> -1 Scl) (inc 'Scl) (byteSym (char \"0\") P))"},{"Add":" br label %$43"},{"Add":"$43:"},{"Add":" %360 = phi i64 [%355, %$41], [%366, %$44] ; # Num"},{"Add":" %361 = phi i64 [%356, %$41], [%371, %$44] ; # Scl"},{"Add":" %362 = phi i64 [%357, %$41], [%368, %$44] ; # Len"},{"Add":" %363 = phi i64* [%358, %$41], [%369, %$44] ; # TopA"},{"Add":" %364 = phi i64 [%359, %$41], [%370, %$44] ; # N"},{"Add":"; # (> -1 Scl)"},{"Add":" %365 = icmp ugt i64 -1, %361"},{"Add":" br i1 %365, label %$44, label %$45"},{"Add":"$44:"},{"Add":" %366 = phi i64 [%360, %$43] ; # Num"},{"Add":" %367 = phi i64 [%361, %$43] ; # Scl"},{"Add":" %368 = phi i64 [%362, %$43] ; # Len"},{"Add":" %369 = phi i64* [%363, %$43] ; # TopA"},{"Add":" %370 = phi i64 [%364, %$43] ; # N"},{"Add":"; # (inc 'Scl)"},{"Add":" %371 = add i64 %367, 1"},{"Add":"; # (byteSym (char \"0\") P)"},{"Add":" call void @byteSym(i8 48, i64* %4)"},{"Add":" br label %$43"},{"Add":"$45:"},{"Add":" %372 = phi i64 [%360, %$43] ; # Num"},{"Add":" %373 = phi i64 [%361, %$43] ; # Scl"},{"Add":" %374 = phi i64 [%362, %$43] ; # Len"},{"Add":" %375 = phi i64* [%363, %$43] ; # TopA"},{"Add":" %376 = phi i64 [%364, %$43] ; # N"},{"Add":" br label %$42"},{"Add":"$42:"},{"Add":" %377 = phi i64 [%347, %$40], [%372, %$45] ; # Num"},{"Add":" %378 = phi i64 [%353, %$40], [%373, %$45] ; # Scl"},{"Add":" %379 = phi i64 [%349, %$40], [%374, %$45] ; # Len"},{"Add":" %380 = phi i64* [%350, %$40], [%375, %$45] ; # TopA"},{"Add":" %381 = phi i64 [%351, %$40], [%376, %$45] ; # N"},{"Add":"; # (val TopA)"},{"Add":" %382 = load i64, i64* %380"},{"Add":"; # (fmtWord (val TopA) Scl Sep Ign P)"},{"Add":" %383 = call i64 @fmtWord(i64 %382, i64 %378, i8 %2, i8 %3, i64* %4)"},{"Add":"; # (while (>= (dec 'TopA) Acc) (let (N (val TopA) D 1000000000000000..."},{"Add":" br label %$46"},{"Add":"$46:"},{"Add":" %384 = phi i64 [%377, %$42], [%468, %$59] ; # Num"},{"Add":" %385 = phi i64 [%383, %$42], [%469, %$59] ; # Scl"},{"Add":" %386 = phi i64 [%379, %$42], [%470, %$59] ; # Len"},{"Add":" %387 = phi i64* [%380, %$42], [%471, %$59] ; # TopA"},{"Add":"; # (dec 'TopA)"},{"Add":" %388 = getelementptr i64, i64* %387, i32 -1"},{"Add":"; # (>= (dec 'TopA) Acc)"},{"Add":" %389 = icmp uge i64* %388, %27"},{"Add":" br i1 %389, label %$47, label %$48"},{"Add":"$47:"},{"Add":" %390 = phi i64 [%384, %$46] ; # Num"},{"Add":" %391 = phi i64 [%385, %$46] ; # Scl"},{"Add":" %392 = phi i64 [%386, %$46] ; # Len"},{"Add":" %393 = phi i64* [%388, %$46] ; # TopA"},{"Add":"; # (let (N (val TopA) D 100000000000000000) (loop (cond ((=0 Scl) (b..."},{"Add":"; # (val TopA)"},{"Add":" %394 = load i64, i64* %393"},{"Add":"; # (loop (cond ((=0 Scl) (byteSym Sep P)) ((and Ign (gt0 Scl) (=0 (%..."},{"Add":" br label %$49"},{"Add":"$49:"},{"Add":" %395 = phi i64 [%390, %$47], [%457, %$58] ; # Num"},{"Add":" %396 = phi i64 [%391, %$47], [%458, %$58] ; # Scl"},{"Add":" %397 = phi i64 [%392, %$47], [%459, %$58] ; # Len"},{"Add":" %398 = phi i64* [%393, %$47], [%460, %$58] ; # TopA"},{"Add":" %399 = phi i64 [%394, %$47], [%466, %$58] ; # N"},{"Add":" %400 = phi i64 [100000000000000000, %$47], [%467, %$58] ; # D"},{"Add":"; # (cond ((=0 Scl) (byteSym Sep P)) ((and Ign (gt0 Scl) (=0 (% Scl 3..."},{"Add":"; # (=0 Scl)"},{"Add":" %401 = icmp eq i64 %396, 0"},{"Add":" br i1 %401, label %$52, label %$51"},{"Add":"$52:"},{"Add":" %402 = phi i64 [%395, %$49] ; # Num"},{"Add":" %403 = phi i64 [%396, %$49] ; # Scl"},{"Add":" %404 = phi i64 [%397, %$49] ; # Len"},{"Add":" %405 = phi i64* [%398, %$49] ; # TopA"},{"Add":" %406 = phi i64 [%399, %$49] ; # N"},{"Add":" %407 = phi i64 [%400, %$49] ; # D"},{"Add":"; # (byteSym Sep P)"},{"Add":" call void @byteSym(i8 %2, i64* %4)"},{"Add":" br label %$50"},{"Add":"$51:"},{"Add":" %408 = phi i64 [%395, %$49] ; # Num"},{"Add":" %409 = phi i64 [%396, %$49] ; # Scl"},{"Add":" %410 = phi i64 [%397, %$49] ; # Len"},{"Add":" %411 = phi i64* [%398, %$49] ; # TopA"},{"Add":" %412 = phi i64 [%399, %$49] ; # N"},{"Add":" %413 = phi i64 [%400, %$49] ; # D"},{"Add":"; # (and Ign (gt0 Scl) (=0 (% Scl 3)))"},{"Add":" %414 = icmp ne i8 %3, 0"},{"Add":" br i1 %414, label %$54, label %$53"},{"Add":"$54:"},{"Add":" %415 = phi i64 [%408, %$51] ; # Num"},{"Add":" %416 = phi i64 [%409, %$51] ; # Scl"},{"Add":" %417 = phi i64 [%410, %$51] ; # Len"},{"Add":" %418 = phi i64* [%411, %$51] ; # TopA"},{"Add":" %419 = phi i64 [%412, %$51] ; # N"},{"Add":" %420 = phi i64 [%413, %$51] ; # D"},{"Add":"; # (gt0 Scl)"},{"Add":" %421 = icmp sgt i64 %416, 0"},{"Add":" br i1 %421, label %$55, label %$53"},{"Add":"$55:"},{"Add":" %422 = phi i64 [%415, %$54] ; # Num"},{"Add":" %423 = phi i64 [%416, %$54] ; # Scl"},{"Add":" %424 = phi i64 [%417, %$54] ; # Len"},{"Add":" %425 = phi i64* [%418, %$54] ; # TopA"},{"Add":" %426 = phi i64 [%419, %$54] ; # N"},{"Add":" %427 = phi i64 [%420, %$54] ; # D"},{"Add":"; # (% Scl 3)"},{"Add":" %428 = urem i64 %423, 3"},{"Add":"; # (=0 (% Scl 3))"},{"Add":" %429 = icmp eq i64 %428, 0"},{"Add":" br label %$53"},{"Add":"$53:"},{"Add":" %430 = phi i64 [%408, %$51], [%415, %$54], [%422, %$55] ; # Num"},{"Add":" %431 = phi i64 [%409, %$51], [%416, %$54], [%423, %$55] ; # Scl"},{"Add":" %432 = phi i64 [%410, %$51], [%417, %$54], [%424, %$55] ; # Len"},{"Add":" %433 = phi i64* [%411, %$51], [%418, %$54], [%425, %$55] ; # TopA"},{"Add":" %434 = phi i64 [%412, %$51], [%419, %$54], [%426, %$55] ; # N"},{"Add":" %435 = phi i64 [%413, %$51], [%420, %$54], [%427, %$55] ; # D"},{"Add":" %436 = phi i1 [0, %$51], [0, %$54], [%429, %$55] ; # ->"},{"Add":" br i1 %436, label %$57, label %$56"},{"Add":"$57:"},{"Add":" %437 = phi i64 [%430, %$53] ; # Num"},{"Add":" %438 = phi i64 [%431, %$53] ; # Scl"},{"Add":" %439 = phi i64 [%432, %$53] ; # Len"},{"Add":" %440 = phi i64* [%433, %$53] ; # TopA"},{"Add":" %441 = phi i64 [%434, %$53] ; # N"},{"Add":" %442 = phi i64 [%435, %$53] ; # D"},{"Add":"; # (byteSym Ign P)"},{"Add":" call void @byteSym(i8 %3, i64* %4)"},{"Add":" br label %$50"},{"Add":"$56:"},{"Add":" %443 = phi i64 [%430, %$53] ; # Num"},{"Add":" %444 = phi i64 [%431, %$53] ; # Scl"},{"Add":" %445 = phi i64 [%432, %$53] ; # Len"},{"Add":" %446 = phi i64* [%433, %$53] ; # TopA"},{"Add":" %447 = phi i64 [%434, %$53] ; # N"},{"Add":" %448 = phi i64 [%435, %$53] ; # D"},{"Add":" br label %$50"},{"Add":"$50:"},{"Add":" %449 = phi i64 [%402, %$52], [%437, %$57], [%443, %$56] ; # Num"},{"Add":" %450 = phi i64 [%403, %$52], [%438, %$57], [%444, %$56] ; # Scl"},{"Add":" %451 = phi i64 [%404, %$52], [%439, %$57], [%445, %$56] ; # Len"},{"Add":" %452 = phi i64* [%405, %$52], [%440, %$57], [%446, %$56] ; # TopA"},{"Add":" %453 = phi i64 [%406, %$52], [%441, %$57], [%447, %$56] ; # N"},{"Add":" %454 = phi i64 [%407, %$52], [%442, %$57], [%448, %$56] ; # D"},{"Add":"; # (dec 'Scl)"},{"Add":" %455 = sub i64 %450, 1"},{"Add":"; # (? (== 1 D))"},{"Add":"; # (== 1 D)"},{"Add":" %456 = icmp eq i64 1, %454"},{"Add":" br i1 %456, label %$59, label %$58"},{"Add":"$58:"},{"Add":" %457 = phi i64 [%449, %$50] ; # Num"},{"Add":" %458 = phi i64 [%455, %$50] ; # Scl"},{"Add":" %459 = phi i64 [%451, %$50] ; # Len"},{"Add":" %460 = phi i64* [%452, %$50] ; # TopA"},{"Add":" %461 = phi i64 [%453, %$50] ; # N"},{"Add":" %462 = phi i64 [%454, %$50] ; # D"},{"Add":"; # (/ N D)"},{"Add":" %463 = udiv i64 %461, %462"},{"Add":"; # (i8 (/ N D))"},{"Add":" %464 = trunc i64 %463 to i8"},{"Add":"; # (+ (i8 (/ N D)) (char \"0\"))"},{"Add":" %465 = add i8 %464, 48"},{"Add":"; # (byteSym (+ (i8 (/ N D)) (char \"0\")) P)"},{"Add":" call void @byteSym(i8 %465, i64* %4)"},{"Add":"; # (% N D)"},{"Add":" %466 = urem i64 %461, %462"},{"Add":"; # (/ D 10)"},{"Add":" %467 = udiv i64 %462, 10"},{"Add":" br label %$49"},{"Add":"$59:"},{"Add":" %468 = phi i64 [%449, %$50] ; # Num"},{"Add":" %469 = phi i64 [%455, %$50] ; # Scl"},{"Add":" %470 = phi i64 [%451, %$50] ; # Len"},{"Add":" %471 = phi i64* [%452, %$50] ; # TopA"},{"Add":" %472 = phi i64 [%453, %$50] ; # N"},{"Add":" %473 = phi i64 [%454, %$50] ; # D"},{"Add":" %474 = phi i64 [0, %$50] ; # ->"},{"Add":"; # (i8 N)"},{"Add":" %475 = trunc i64 %472 to i8"},{"Add":"; # (+ (i8 N) (char \"0\"))"},{"Add":" %476 = add i8 %475, 48"},{"Add":"; # (byteSym (+ (i8 N) (char \"0\")) P)"},{"Add":" call void @byteSym(i8 %476, i64* %4)"},{"Add":" br label %$46"},{"Add":"$48:"},{"Add":" %477 = phi i64 [%384, %$46] ; # Num"},{"Add":" %478 = phi i64 [%385, %$46] ; # Scl"},{"Add":" %479 = phi i64 [%386, %$46] ; # Len"},{"Add":" %480 = phi i64* [%388, %$46] ; # TopA"},{"Add":" br label %$33"},{"Add":"$34:"},{"Add":" %481 = phi i64 [%307, %$32] ; # Num"},{"Add":" %482 = phi i64 [%308, %$32] ; # Scl"},{"Add":" %483 = phi i64 [%309, %$32] ; # Len"},{"Add":" %484 = phi i64* [%310, %$32] ; # TopA"},{"Add":"; # (== Scl -1)"},{"Add":" %485 = icmp eq i64 %482, -1"},{"Add":" br i1 %485, label %$61, label %$60"},{"Add":"$61:"},{"Add":" %486 = phi i64 [%481, %$34] ; # Num"},{"Add":" %487 = phi i64 [%482, %$34] ; # Scl"},{"Add":" %488 = phi i64 [%483, %$34] ; # Len"},{"Add":" %489 = phi i64* [%484, %$34] ; # TopA"},{"Add":"; # (when Sign (call $Put (char \"-\")))"},{"Add":" br i1 %6, label %$62, label %$63"},{"Add":"$62:"},{"Add":" %490 = phi i64 [%486, %$61] ; # Num"},{"Add":" %491 = phi i64 [%487, %$61] ; # Scl"},{"Add":" %492 = phi i64 [%488, %$61] ; # Len"},{"Add":" %493 = phi i64* [%489, %$61] ; # TopA"},{"Add":"; # (call $Put (char \"-\"))"},{"Add":" %494 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %494(i8 45)"},{"Add":" br label %$63"},{"Add":"$63:"},{"Add":" %495 = phi i64 [%486, %$61], [%490, %$62] ; # Num"},{"Add":" %496 = phi i64 [%487, %$61], [%491, %$62] ; # Scl"},{"Add":" %497 = phi i64 [%488, %$61], [%492, %$62] ; # Len"},{"Add":" %498 = phi i64* [%489, %$61], [%493, %$62] ; # TopA"},{"Add":"; # (val TopA)"},{"Add":" %499 = load i64, i64* %498"},{"Add":"; # (outWord (val TopA))"},{"Add":" call void @outWord(i64 %499)"},{"Add":"; # (while (>= (dec 'TopA) Acc) (let (N (val TopA) D 1000000000000000..."},{"Add":" br label %$64"},{"Add":"$64:"},{"Add":" %500 = phi i64 [%495, %$63], [%530, %$69] ; # Num"},{"Add":" %501 = phi i64 [%496, %$63], [%531, %$69] ; # Scl"},{"Add":" %502 = phi i64 [%497, %$63], [%532, %$69] ; # Len"},{"Add":" %503 = phi i64* [%498, %$63], [%533, %$69] ; # TopA"},{"Add":"; # (dec 'TopA)"},{"Add":" %504 = getelementptr i64, i64* %503, i32 -1"},{"Add":"; # (>= (dec 'TopA) Acc)"},{"Add":" %505 = icmp uge i64* %504, %27"},{"Add":" br i1 %505, label %$65, label %$66"},{"Add":"$65:"},{"Add":" %506 = phi i64 [%500, %$64] ; # Num"},{"Add":" %507 = phi i64 [%501, %$64] ; # Scl"},{"Add":" %508 = phi i64 [%502, %$64] ; # Len"},{"Add":" %509 = phi i64* [%504, %$64] ; # TopA"},{"Add":"; # (let (N (val TopA) D 100000000000000000) (loop (call $Put (+ (i8 ..."},{"Add":"; # (val TopA)"},{"Add":" %510 = load i64, i64* %509"},{"Add":"; # (loop (call $Put (+ (i8 (/ N D)) (char \"0\"))) (setq N (% N D)) (?..."},{"Add":" br label %$67"},{"Add":"$67:"},{"Add":" %511 = phi i64 [%506, %$65], [%524, %$68] ; # Num"},{"Add":" %512 = phi i64 [%507, %$65], [%525, %$68] ; # Scl"},{"Add":" %513 = phi i64 [%508, %$65], [%526, %$68] ; # Len"},{"Add":" %514 = phi i64* [%509, %$65], [%527, %$68] ; # TopA"},{"Add":" %515 = phi i64 [%510, %$65], [%528, %$68] ; # N"},{"Add":" %516 = phi i64 [100000000000000000, %$65], [%529, %$68] ; # D"},{"Add":"; # (/ N D)"},{"Add":" %517 = udiv i64 %515, %516"},{"Add":"; # (i8 (/ N D))"},{"Add":" %518 = trunc i64 %517 to i8"},{"Add":"; # (+ (i8 (/ N D)) (char \"0\"))"},{"Add":" %519 = add i8 %518, 48"},{"Add":"; # (call $Put (+ (i8 (/ N D)) (char \"0\")))"},{"Add":" %520 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %520(i8 %519)"},{"Add":"; # (% N D)"},{"Add":" %521 = urem i64 %515, %516"},{"Add":"; # (? (== 1 (setq D (/ D 10))))"},{"Add":"; # (/ D 10)"},{"Add":" %522 = udiv i64 %516, 10"},{"Add":"; # (== 1 (setq D (/ D 10)))"},{"Add":" %523 = icmp eq i64 1, %522"},{"Add":" br i1 %523, label %$69, label %$68"},{"Add":"$68:"},{"Add":" %524 = phi i64 [%511, %$67] ; # Num"},{"Add":" %525 = phi i64 [%512, %$67] ; # Scl"},{"Add":" %526 = phi i64 [%513, %$67] ; # Len"},{"Add":" %527 = phi i64* [%514, %$67] ; # TopA"},{"Add":" %528 = phi i64 [%521, %$67] ; # N"},{"Add":" %529 = phi i64 [%522, %$67] ; # D"},{"Add":" br label %$67"},{"Add":"$69:"},{"Add":" %530 = phi i64 [%511, %$67] ; # Num"},{"Add":" %531 = phi i64 [%512, %$67] ; # Scl"},{"Add":" %532 = phi i64 [%513, %$67] ; # Len"},{"Add":" %533 = phi i64* [%514, %$67] ; # TopA"},{"Add":" %534 = phi i64 [%521, %$67] ; # N"},{"Add":" %535 = phi i64 [%522, %$67] ; # D"},{"Add":" %536 = phi i64 [0, %$67] ; # ->"},{"Add":"; # (i8 N)"},{"Add":" %537 = trunc i64 %534 to i8"},{"Add":"; # (+ (i8 N) (char \"0\"))"},{"Add":" %538 = add i8 %537, 48"},{"Add":"; # (call $Put (+ (i8 N) (char \"0\")))"},{"Add":" %539 = load void(i8)*, void(i8)** bitcast (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 88) to void(i8)**)"},{"Add":" call void %539(i8 %538)"},{"Add":" br label %$64"},{"Add":"$66:"},{"Add":" %540 = phi i64 [%500, %$64] ; # Num"},{"Add":" %541 = phi i64 [%501, %$64] ; # Scl"},{"Add":" %542 = phi i64 [%502, %$64] ; # Len"},{"Add":" %543 = phi i64* [%504, %$64] ; # TopA"},{"Add":" br label %$33"},{"Add":"$60:"},{"Add":" %544 = phi i64 [%481, %$34] ; # Num"},{"Add":" %545 = phi i64 [%482, %$34] ; # Scl"},{"Add":" %546 = phi i64 [%483, %$34] ; # Len"},{"Add":" %547 = phi i64* [%484, %$34] ; # TopA"},{"Add":"; # (let (N (* (shr (- TopA Acc) 3) 18) D (val TopA)) (loop (inc 'N) ..."},{"Add":"; # (- TopA Acc)"},{"Add":" %548 = ptrtoint i64* %547 to i64"},{"Add":" %549 = ptrtoint i64* %27 to i64"},{"Add":" %550 = sub i64 %548, %549"},{"Add":"; # (shr (- TopA Acc) 3)"},{"Add":" %551 = lshr i64 %550, 3"},{"Add":"; # (* (shr (- TopA Acc) 3) 18)"},{"Add":" %552 = mul i64 %551, 18"},{"Add":"; # (val TopA)"},{"Add":" %553 = load i64, i64* %547"},{"Add":"; # (loop (inc 'N) (? (=0 (setq D (/ D 10)))))"},{"Add":" br label %$70"},{"Add":"$70:"},{"Add":" %554 = phi i64 [%544, %$60], [%563, %$71] ; # Num"},{"Add":" %555 = phi i64 [%545, %$60], [%564, %$71] ; # Scl"},{"Add":" %556 = phi i64 [%546, %$60], [%565, %$71] ; # Len"},{"Add":" %557 = phi i64* [%547, %$60], [%566, %$71] ; # TopA"},{"Add":" %558 = phi i64 [%552, %$60], [%567, %$71] ; # N"},{"Add":" %559 = phi i64 [%553, %$60], [%568, %$71] ; # D"},{"Add":"; # (inc 'N)"},{"Add":" %560 = add i64 %558, 1"},{"Add":"; # (? (=0 (setq D (/ D 10))))"},{"Add":"; # (/ D 10)"},{"Add":" %561 = udiv i64 %559, 10"},{"Add":"; # (=0 (setq D (/ D 10)))"},{"Add":" %562 = icmp eq i64 %561, 0"},{"Add":" br i1 %562, label %$72, label %$71"},{"Add":"$71:"},{"Add":" %563 = phi i64 [%554, %$70] ; # Num"},{"Add":" %564 = phi i64 [%555, %$70] ; # Scl"},{"Add":" %565 = phi i64 [%556, %$70] ; # Len"},{"Add":" %566 = phi i64* [%557, %$70] ; # TopA"},{"Add":" %567 = phi i64 [%560, %$70] ; # N"},{"Add":" %568 = phi i64 [%561, %$70] ; # D"},{"Add":" br label %$70"},{"Add":"$72:"},{"Add":" %569 = phi i64 [%554, %$70] ; # Num"},{"Add":" %570 = phi i64 [%555, %$70] ; # Scl"},{"Add":" %571 = phi i64 [%556, %$70] ; # Len"},{"Add":" %572 = phi i64* [%557, %$70] ; # TopA"},{"Add":" %573 = phi i64 [%560, %$70] ; # N"},{"Add":" %574 = phi i64 [%561, %$70] ; # D"},{"Add":" %575 = phi i64 [0, %$70] ; # ->"},{"Add":"; # (when Sign (inc 'N))"},{"Add":" br i1 %6, label %$73, label %$74"},{"Add":"$73:"},{"Add":" %576 = phi i64 [%569, %$72] ; # Num"},{"Add":" %577 = phi i64 [%570, %$72] ; # Scl"},{"Add":" %578 = phi i64 [%571, %$72] ; # Len"},{"Add":" %579 = phi i64* [%572, %$72] ; # TopA"},{"Add":" %580 = phi i64 [%573, %$72] ; # N"},{"Add":" %581 = phi i64 [%574, %$72] ; # D"},{"Add":"; # (inc 'N)"},{"Add":" %582 = add i64 %580, 1"},{"Add":" br label %$74"},{"Add":"$74:"},{"Add":" %583 = phi i64 [%569, %$72], [%576, %$73] ; # Num"},{"Add":" %584 = phi i64 [%570, %$72], [%577, %$73] ; # Scl"},{"Add":" %585 = phi i64 [%571, %$72], [%578, %$73] ; # Len"},{"Add":" %586 = phi i64* [%572, %$72], [%579, %$73] ; # TopA"},{"Add":" %587 = phi i64 [%573, %$72], [%582, %$73] ; # N"},{"Add":" %588 = phi i64 [%574, %$72], [%581, %$73] ; # D"},{"Add":"; # (cnt N)"},{"Add":" %589 = shl i64 %587, 4"},{"Add":" %590 = or i64 %589, 2"},{"Add":" br label %$33"},{"Add":"$33:"},{"Add":" %591 = phi i64 [%477, %$48], [%540, %$66], [%583, %$74] ; # Num"},{"Add":" %592 = phi i64 [%478, %$48], [%541, %$66], [%584, %$74] ; # Scl"},{"Add":" %593 = phi i64 [%479, %$48], [%542, %$66], [%585, %$74] ; # Len"},{"Add":" %594 = phi i64* [%480, %$48], [%543, %$66], [%586, %$74] ; # TopA"},{"Add":" %595 = phi i64 [0, %$48], [0, %$66], [%590, %$74] ; # ->"},{"Add":" ret i64 %595"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Format(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let (X (cdr Exe) A (save (eval (++ X))) Y (eval (++ X)) Scl (if ..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (++ X)"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":" %6 = getelementptr i64, i64* %4, i32 1"},{"Add":" %7 = load i64, i64* %6"},{"Add":"; # (eval (++ X))"},{"Add":" %8 = and i64 %5, 6"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br i1 %9, label %$4, label %$3"},{"Add":"$4:"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %10 = and i64 %5, 8"},{"Add":" %11 = icmp ne i64 %10, 0"},{"Add":" br i1 %11, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %12 = inttoptr i64 %5 to i64*"},{"Add":" %13 = load i64, i64* %12"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":" %14 = call i64 @evList(i64 %5)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %15 = phi i64 [%5, %$4], [%13, %$6], [%14, %$5] ; # ->"},{"Add":"; # (save (eval (++ X)))"},{"Add":" %16 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %17 = load i64, i64* %16"},{"Add":" %18 = alloca i64, i64 2, align 16"},{"Add":" %19 = ptrtoint i64* %18 to i64"},{"Add":" %20 = inttoptr i64 %19 to i64*"},{"Add":" store i64 %15, i64* %20"},{"Add":" %21 = add i64 %19, 8"},{"Add":" %22 = inttoptr i64 %21 to i64*"},{"Add":" store i64 %17, i64* %22"},{"Add":" %23 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %19, i64* %23"},{"Add":"; # (++ X)"},{"Add":" %24 = inttoptr i64 %7 to i64*"},{"Add":" %25 = load i64, i64* %24"},{"Add":" %26 = getelementptr i64, i64* %24, i32 1"},{"Add":" %27 = load i64, i64* %26"},{"Add":"; # (eval (++ X))"},{"Add":" %28 = and i64 %25, 6"},{"Add":" %29 = icmp ne i64 %28, 0"},{"Add":" br i1 %29, label %$9, label %$8"},{"Add":"$9:"},{"Add":" br label %$7"},{"Add":"$8:"},{"Add":" %30 = and i64 %25, 8"},{"Add":" %31 = icmp ne i64 %30, 0"},{"Add":" br i1 %31, label %$11, label %$10"},{"Add":"$11:"},{"Add":" %32 = inttoptr i64 %25 to i64*"},{"Add":" %33 = load i64, i64* %32"},{"Add":" br label %$7"},{"Add":"$10:"},{"Add":" %34 = call i64 @evList(i64 %25)"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %35 = phi i64 [%25, %$9], [%33, %$11], [%34, %$10] ; # ->"},{"Add":"; # (if (nil? Y) 0 (xCnt Exe Y))"},{"Add":"; # (nil? Y)"},{"Add":" %36 = icmp eq i64 %35, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %36, label %$12, label %$13"},{"Add":"$12:"},{"Add":" %37 = phi i64 [%27, %$7] ; # X"},{"Add":" br label %$14"},{"Add":"$13:"},{"Add":" %38 = phi i64 [%27, %$7] ; # X"},{"Add":"; # (xCnt Exe Y)"},{"Add":" %39 = call i64 @xCnt(i64 %0, i64 %35)"},{"Add":" br label %$14"},{"Add":"$14:"},{"Add":" %40 = phi i64 [%37, %$12], [%38, %$13] ; # X"},{"Add":" %41 = phi i64 [0, %$12], [%39, %$13] ; # ->"},{"Add":"; # (i8 (char \".\"))"},{"Add":"; # (i8 0)"},{"Add":"; # (when (pair X) (setq Sep (firstByte (needSymb Exe (eval (++ X))))..."},{"Add":"; # (pair X)"},{"Add":" %42 = and i64 %40, 15"},{"Add":" %43 = icmp eq i64 %42, 0"},{"Add":" br i1 %43, label %$15, label %$16"},{"Add":"$15:"},{"Add":" %44 = phi i64 [%40, %$14] ; # X"},{"Add":" %45 = phi i8 [46, %$14] ; # Sep"},{"Add":" %46 = phi i8 [0, %$14] ; # Ign"},{"Add":"; # (++ X)"},{"Add":" %47 = inttoptr i64 %44 to i64*"},{"Add":" %48 = load i64, i64* %47"},{"Add":" %49 = getelementptr i64, i64* %47, i32 1"},{"Add":" %50 = load i64, i64* %49"},{"Add":"; # (eval (++ X))"},{"Add":" %51 = and i64 %48, 6"},{"Add":" %52 = icmp ne i64 %51, 0"},{"Add":" br i1 %52, label %$19, label %$18"},{"Add":"$19:"},{"Add":" br label %$17"},{"Add":"$18:"},{"Add":" %53 = and i64 %48, 8"},{"Add":" %54 = icmp ne i64 %53, 0"},{"Add":" br i1 %54, label %$21, label %$20"},{"Add":"$21:"},{"Add":" %55 = inttoptr i64 %48 to i64*"},{"Add":" %56 = load i64, i64* %55"},{"Add":" br label %$17"},{"Add":"$20:"},{"Add":" %57 = call i64 @evList(i64 %48)"},{"Add":" br label %$17"},{"Add":"$17:"},{"Add":" %58 = phi i64 [%48, %$19], [%56, %$21], [%57, %$20] ; # ->"},{"Add":"; # (needSymb Exe (eval (++ X)))"},{"Add":" %59 = xor i64 %58, 8"},{"Add":" %60 = and i64 %59, 14"},{"Add":" %61 = icmp eq i64 %60, 0"},{"Add":" br i1 %61, label %$23, label %$22"},{"Add":"$22:"},{"Add":" call void @symErr(i64 %0, i64 %58)"},{"Add":" unreachable"},{"Add":"$23:"},{"Add":"; # (firstByte (needSymb Exe (eval (++ X))))"},{"Add":" %62 = call i8 @firstByte(i64 %58)"},{"Add":"; # (when (pair X) (setq Ign (firstByte (needSymb Exe (eval (car X)))..."},{"Add":"; # (pair X)"},{"Add":" %63 = and i64 %50, 15"},{"Add":" %64 = icmp eq i64 %63, 0"},{"Add":" br i1 %64, label %$24, label %$25"},{"Add":"$24:"},{"Add":" %65 = phi i64 [%50, %$23] ; # X"},{"Add":" %66 = phi i8 [%62, %$23] ; # Sep"},{"Add":" %67 = phi i8 [%46, %$23] ; # Ign"},{"Add":"; # (car X)"},{"Add":" %68 = inttoptr i64 %65 to i64*"},{"Add":" %69 = load i64, i64* %68"},{"Add":"; # (eval (car X))"},{"Add":" %70 = and i64 %69, 6"},{"Add":" %71 = icmp ne i64 %70, 0"},{"Add":" br i1 %71, label %$28, label %$27"},{"Add":"$28:"},{"Add":" br label %$26"},{"Add":"$27:"},{"Add":" %72 = and i64 %69, 8"},{"Add":" %73 = icmp ne i64 %72, 0"},{"Add":" br i1 %73, label %$30, label %$29"},{"Add":"$30:"},{"Add":" %74 = inttoptr i64 %69 to i64*"},{"Add":" %75 = load i64, i64* %74"},{"Add":" br label %$26"},{"Add":"$29:"},{"Add":" %76 = call i64 @evList(i64 %69)"},{"Add":" br label %$26"},{"Add":"$26:"},{"Add":" %77 = phi i64 [%69, %$28], [%75, %$30], [%76, %$29] ; # ->"},{"Add":"; # (needSymb Exe (eval (car X)))"},{"Add":" %78 = xor i64 %77, 8"},{"Add":" %79 = and i64 %78, 14"},{"Add":" %80 = icmp eq i64 %79, 0"},{"Add":" br i1 %80, label %$32, label %$31"},{"Add":"$31:"},{"Add":" call void @symErr(i64 %0, i64 %77)"},{"Add":" unreachable"},{"Add":"$32:"},{"Add":"; # (firstByte (needSymb Exe (eval (car X))))"},{"Add":" %81 = call i8 @firstByte(i64 %77)"},{"Add":" br label %$25"},{"Add":"$25:"},{"Add":" %82 = phi i64 [%50, %$23], [%65, %$32] ; # X"},{"Add":" %83 = phi i8 [%62, %$23], [%66, %$32] ; # Sep"},{"Add":" %84 = phi i8 [%46, %$23], [%81, %$32] ; # Ign"},{"Add":" br label %$16"},{"Add":"$16:"},{"Add":" %85 = phi i64 [%40, %$14], [%82, %$25] ; # X"},{"Add":" %86 = phi i8 [46, %$14], [%83, %$25] ; # Sep"},{"Add":" %87 = phi i8 [0, %$14], [%84, %$25] ; # Ign"},{"Add":"; # (cond ((num? A) (let P (push 4 NIL ZERO NIL) (link (ofs P 2)) (fm..."},{"Add":"; # (num? A)"},{"Add":" %88 = and i64 %15, 6"},{"Add":" %89 = icmp ne i64 %88, 0"},{"Add":" br i1 %89, label %$35, label %$34"},{"Add":"$35:"},{"Add":" %90 = phi i64 [%85, %$16] ; # X"},{"Add":" %91 = phi i8 [%86, %$16] ; # Sep"},{"Add":" %92 = phi i8 [%87, %$16] ; # Ign"},{"Add":"; # (let P (push 4 NIL ZERO NIL) (link (ofs P 2)) (fmtNum A Scl Sep I..."},{"Add":"; # (push 4 NIL ZERO NIL)"},{"Add":" %93 = alloca i64, i64 4, align 16"},{"Add":" store i64 4, i64* %93"},{"Add":" %94 = getelementptr i64, i64* %93, i32 2"},{"Add":" store i64 2, i64* %94"},{"Add":"; # (ofs P 2)"},{"Add":" %95 = getelementptr i64, i64* %93, i32 2"},{"Add":"; # (link (ofs P 2))"},{"Add":" %96 = ptrtoint i64* %95 to i64"},{"Add":" %97 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %98 = load i64, i64* %97"},{"Add":" %99 = inttoptr i64 %96 to i64*"},{"Add":" %100 = getelementptr i64, i64* %99, i32 1"},{"Add":" store i64 %98, i64* %100"},{"Add":" %101 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %96, i64* %101"},{"Add":"; # (fmtNum A Scl Sep Ign P)"},{"Add":" %102 = call i64 @fmtNum(i64 %15, i64 %41, i8 %91, i8 %92, i64* %93)"},{"Add":"; # (val 3 P)"},{"Add":" %103 = getelementptr i64, i64* %93, i32 2"},{"Add":" %104 = load i64, i64* %103"},{"Add":"; # (consStr (val 3 P))"},{"Add":" %105 = call i64 @consStr(i64 %104)"},{"Add":" br label %$33"},{"Add":"$34:"},{"Add":" %106 = phi i64 [%85, %$16] ; # X"},{"Add":" %107 = phi i8 [%86, %$16] ; # Sep"},{"Add":" %108 = phi i8 [%87, %$16] ; # Ign"},{"Add":"; # (sym? A)"},{"Add":" %109 = and i64 %15, 8"},{"Add":" %110 = icmp ne i64 %109, 0"},{"Add":" br i1 %110, label %$37, label %$36"},{"Add":"$37:"},{"Add":" %111 = phi i64 [%106, %$34] ; # X"},{"Add":" %112 = phi i8 [%107, %$34] ; # Sep"},{"Add":" %113 = phi i8 [%108, %$34] ; # Ign"},{"Add":"; # (cond ((sym? (val (tail A))) $Nil) ((=0 (symToNum (name @) Scl Se..."},{"Add":"; # (tail A)"},{"Add":" %114 = add i64 %15, -8"},{"Add":"; # (val (tail A))"},{"Add":" %115 = inttoptr i64 %114 to i64*"},{"Add":" %116 = load i64, i64* %115"},{"Add":"; # (sym? (val (tail A)))"},{"Add":" %117 = and i64 %116, 8"},{"Add":" %118 = icmp ne i64 %117, 0"},{"Add":" br i1 %118, label %$40, label %$39"},{"Add":"$40:"},{"Add":" %119 = phi i64 [%111, %$37] ; # X"},{"Add":" %120 = phi i8 [%112, %$37] ; # Sep"},{"Add":" %121 = phi i8 [%113, %$37] ; # Ign"},{"Add":" br label %$38"},{"Add":"$39:"},{"Add":" %122 = phi i64 [%111, %$37] ; # X"},{"Add":" %123 = phi i8 [%112, %$37] ; # Sep"},{"Add":" %124 = phi i8 [%113, %$37] ; # Ign"},{"Add":"; # (name @)"},{"Add":" br label %$41"},{"Add":"$41:"},{"Add":" %125 = phi i64 [%116, %$39], [%131, %$42] ; # Tail"},{"Add":" %126 = and i64 %125, 6"},{"Add":" %127 = icmp ne i64 %126, 0"},{"Add":" br i1 %127, label %$43, label %$42"},{"Add":"$42:"},{"Add":" %128 = phi i64 [%125, %$41] ; # Tail"},{"Add":" %129 = inttoptr i64 %128 to i64*"},{"Add":" %130 = getelementptr i64, i64* %129, i32 1"},{"Add":" %131 = load i64, i64* %130"},{"Add":" br label %$41"},{"Add":"$43:"},{"Add":" %132 = phi i64 [%125, %$41] ; # Tail"},{"Add":"; # (symToNum (name @) Scl Sep Ign)"},{"Add":" %133 = call i64 @symToNum(i64 %132, i64 %41, i8 %123, i8 %124)"},{"Add":"; # (=0 (symToNum (name @) Scl Sep Ign))"},{"Add":" %134 = icmp eq i64 %133, 0"},{"Add":" br i1 %134, label %$45, label %$44"},{"Add":"$45:"},{"Add":" %135 = phi i64 [%122, %$43] ; # X"},{"Add":" %136 = phi i8 [%123, %$43] ; # Sep"},{"Add":" %137 = phi i8 [%124, %$43] ; # Ign"},{"Add":" br label %$38"},{"Add":"$44:"},{"Add":" %138 = phi i64 [%122, %$43] ; # X"},{"Add":" %139 = phi i8 [%123, %$43] ; # Sep"},{"Add":" %140 = phi i8 [%124, %$43] ; # Ign"},{"Add":" br label %$38"},{"Add":"$38:"},{"Add":" %141 = phi i64 [%119, %$40], [%135, %$45], [%138, %$44] ; # X"},{"Add":" %142 = phi i8 [%120, %$40], [%136, %$45], [%139, %$44] ; # Sep"},{"Add":" %143 = phi i8 [%121, %$40], [%137, %$45], [%140, %$44] ; # Ign"},{"Add":" %144 = phi i64 [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), %$40], [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), %$45], [%133, %$44] ; # ->"},{"Add":" br label %$33"},{"Add":"$36:"},{"Add":" %145 = phi i64 [%106, %$34] ; # X"},{"Add":" %146 = phi i8 [%107, %$34] ; # Sep"},{"Add":" %147 = phi i8 [%108, %$34] ; # Ign"},{"Add":"; # (if (symToNum (let P (push 4 NIL ZERO NIL) (link (ofs P 2)) (pack..."},{"Add":"; # (let P (push 4 NIL ZERO NIL) (link (ofs P 2)) (pack A P) (val 3 P..."},{"Add":"; # (push 4 NIL ZERO NIL)"},{"Add":" %148 = alloca i64, i64 4, align 16"},{"Add":" store i64 4, i64* %148"},{"Add":" %149 = getelementptr i64, i64* %148, i32 2"},{"Add":" store i64 2, i64* %149"},{"Add":"; # (ofs P 2)"},{"Add":" %150 = getelementptr i64, i64* %148, i32 2"},{"Add":"; # (link (ofs P 2))"},{"Add":" %151 = ptrtoint i64* %150 to i64"},{"Add":" %152 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %153 = load i64, i64* %152"},{"Add":" %154 = inttoptr i64 %151 to i64*"},{"Add":" %155 = getelementptr i64, i64* %154, i32 1"},{"Add":" store i64 %153, i64* %155"},{"Add":" %156 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %151, i64* %156"},{"Add":"; # (pack A P)"},{"Add":" call void @pack(i64 %15, i64* %148)"},{"Add":"; # (val 3 P)"},{"Add":" %157 = getelementptr i64, i64* %148, i32 2"},{"Add":" %158 = load i64, i64* %157"},{"Add":"; # (symToNum (let P (push 4 NIL ZERO NIL) (link (ofs P 2)) (pack A P..."},{"Add":" %159 = call i64 @symToNum(i64 %158, i64 %41, i8 %146, i8 %147)"},{"Add":" %160 = icmp ne i64 %159, 0"},{"Add":" br i1 %160, label %$46, label %$47"},{"Add":"$46:"},{"Add":" %161 = phi i64 [%145, %$36] ; # X"},{"Add":" %162 = phi i8 [%146, %$36] ; # Sep"},{"Add":" %163 = phi i8 [%147, %$36] ; # Ign"},{"Add":" br label %$48"},{"Add":"$47:"},{"Add":" %164 = phi i64 [%145, %$36] ; # X"},{"Add":" %165 = phi i8 [%146, %$36] ; # Sep"},{"Add":" %166 = phi i8 [%147, %$36] ; # Ign"},{"Add":" br label %$48"},{"Add":"$48:"},{"Add":" %167 = phi i64 [%161, %$46], [%164, %$47] ; # X"},{"Add":" %168 = phi i8 [%162, %$46], [%165, %$47] ; # Sep"},{"Add":" %169 = phi i8 [%163, %$46], [%166, %$47] ; # Ign"},{"Add":" %170 = phi i64 [%159, %$46], [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), %$47] ; # ->"},{"Add":" br label %$33"},{"Add":"$33:"},{"Add":" %171 = phi i64 [%90, %$35], [%141, %$38], [%167, %$48] ; # X"},{"Add":" %172 = phi i8 [%91, %$35], [%142, %$38], [%168, %$48] ; # Sep"},{"Add":" %173 = phi i8 [%92, %$35], [%143, %$38], [%169, %$48] ; # Ign"},{"Add":" %174 = phi i64 [%105, %$35], [%144, %$38], [%170, %$48] ; # ->"},{"Add":"; # (drop *Safe)"},{"Add":" %175 = inttoptr i64 %19 to i64*"},{"Add":" %176 = getelementptr i64, i64* %175, i32 1"},{"Add":" %177 = load i64, i64* %176"},{"Add":" %178 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %177, i64* %178"},{"Add":" ret i64 %174"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Add(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let X (cdr Exe) (if (nil? (eval (car X))) @ (save -ZERO (let R (..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (if (nil? (eval (car X))) @ (save -ZERO (let R (link (push (needN..."},{"Add":"; # (car X)"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":"; # (eval (car X))"},{"Add":" %6 = and i64 %5, 6"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$4, label %$3"},{"Add":"$4:"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %8 = and i64 %5, 8"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br i1 %9, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %10 = inttoptr i64 %5 to i64*"},{"Add":" %11 = load i64, i64* %10"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":" %12 = call i64 @evList(i64 %5)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %13 = phi i64 [%5, %$4], [%11, %$6], [%12, %$5] ; # ->"},{"Add":"; # (nil? (eval (car X)))"},{"Add":" %14 = icmp eq i64 %13, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %14, label %$7, label %$8"},{"Add":"$7:"},{"Add":" %15 = phi i64 [%3, %$2] ; # X"},{"Add":" br label %$9"},{"Add":"$8:"},{"Add":" %16 = phi i64 [%3, %$2] ; # X"},{"Add":"; # (save -ZERO (let R (link (push (needNum Exe @) NIL)) (loop (? (at..."},{"Add":" %17 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %18 = load i64, i64* %17"},{"Add":" %19 = alloca i64, i64 2, align 16"},{"Add":" %20 = ptrtoint i64* %19 to i64"},{"Add":" %21 = inttoptr i64 %20 to i64*"},{"Add":" store i64 10, i64* %21"},{"Add":" %22 = add i64 %20, 8"},{"Add":" %23 = inttoptr i64 %22 to i64*"},{"Add":" store i64 %18, i64* %23"},{"Add":" %24 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %20, i64* %24"},{"Add":"; # (let R (link (push (needNum Exe @) NIL)) (loop (? (atom (shift X)..."},{"Add":"; # (needNum Exe @)"},{"Add":" %25 = and i64 %13, 6"},{"Add":" %26 = icmp ne i64 %25, 0"},{"Add":" br i1 %26, label %$11, label %$10"},{"Add":"$10:"},{"Add":" call void @numErr(i64 %0, i64 %13)"},{"Add":" unreachable"},{"Add":"$11:"},{"Add":"; # (push (needNum Exe @) NIL)"},{"Add":" %27 = alloca i64, i64 2, align 16"},{"Add":" %28 = ptrtoint i64* %27 to i64"},{"Add":" %29 = inttoptr i64 %28 to i64*"},{"Add":" store i64 %13, i64* %29"},{"Add":"; # (link (push (needNum Exe @) NIL))"},{"Add":" %30 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %31 = load i64, i64* %30"},{"Add":" %32 = inttoptr i64 %28 to i64*"},{"Add":" %33 = getelementptr i64, i64* %32, i32 1"},{"Add":" store i64 %31, i64* %33"},{"Add":" %34 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %28, i64* %34"},{"Add":"; # (loop (? (atom (shift X)) (val R)) (? (nil? (eval (car X))) @) (s..."},{"Add":" br label %$12"},{"Add":"$12:"},{"Add":" %35 = phi i64 [%16, %$11], [%57, %$24] ; # X"},{"Add":"; # (? (atom (shift X)) (val R))"},{"Add":"; # (shift X)"},{"Add":" %36 = inttoptr i64 %35 to i64*"},{"Add":" %37 = getelementptr i64, i64* %36, i32 1"},{"Add":" %38 = load i64, i64* %37"},{"Add":"; # (atom (shift X))"},{"Add":" %39 = and i64 %38, 15"},{"Add":" %40 = icmp ne i64 %39, 0"},{"Add":" br i1 %40, label %$15, label %$13"},{"Add":"$15:"},{"Add":" %41 = phi i64 [%38, %$12] ; # X"},{"Add":"; # (val R)"},{"Add":" %42 = inttoptr i64 %28 to i64*"},{"Add":" %43 = load i64, i64* %42"},{"Add":" br label %$14"},{"Add":"$13:"},{"Add":" %44 = phi i64 [%38, %$12] ; # X"},{"Add":"; # (? (nil? (eval (car X))) @)"},{"Add":"; # (car X)"},{"Add":" %45 = inttoptr i64 %44 to i64*"},{"Add":" %46 = load i64, i64* %45"},{"Add":"; # (eval (car X))"},{"Add":" %47 = and i64 %46, 6"},{"Add":" %48 = icmp ne i64 %47, 0"},{"Add":" br i1 %48, label %$18, label %$17"},{"Add":"$18:"},{"Add":" br label %$16"},{"Add":"$17:"},{"Add":" %49 = and i64 %46, 8"},{"Add":" %50 = icmp ne i64 %49, 0"},{"Add":" br i1 %50, label %$20, label %$19"},{"Add":"$20:"},{"Add":" %51 = inttoptr i64 %46 to i64*"},{"Add":" %52 = load i64, i64* %51"},{"Add":" br label %$16"},{"Add":"$19:"},{"Add":" %53 = call i64 @evList(i64 %46)"},{"Add":" br label %$16"},{"Add":"$16:"},{"Add":" %54 = phi i64 [%46, %$18], [%52, %$20], [%53, %$19] ; # ->"},{"Add":"; # (nil? (eval (car X)))"},{"Add":" %55 = icmp eq i64 %54, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %55, label %$22, label %$21"},{"Add":"$22:"},{"Add":" %56 = phi i64 [%44, %$16] ; # X"},{"Add":" br label %$14"},{"Add":"$21:"},{"Add":" %57 = phi i64 [%44, %$16] ; # X"},{"Add":"; # (needNum Exe @)"},{"Add":" %58 = and i64 %54, 6"},{"Add":" %59 = icmp ne i64 %58, 0"},{"Add":" br i1 %59, label %$24, label %$23"},{"Add":"$23:"},{"Add":" call void @numErr(i64 %0, i64 %54)"},{"Add":" unreachable"},{"Add":"$24:"},{"Add":"; # (safe (needNum Exe @))"},{"Add":" %60 = inttoptr i64 %20 to i64*"},{"Add":" store i64 %54, i64* %60"},{"Add":"; # (set R (adds (val R) @))"},{"Add":"; # (val R)"},{"Add":" %61 = inttoptr i64 %28 to i64*"},{"Add":" %62 = load i64, i64* %61"},{"Add":"; # (adds (val R) @)"},{"Add":" %63 = call i64 @adds(i64 %62, i64 %54)"},{"Add":" %64 = inttoptr i64 %28 to i64*"},{"Add":" store i64 %63, i64* %64"},{"Add":" br label %$12"},{"Add":"$14:"},{"Add":" %65 = phi i64 [%41, %$15], [%56, %$22] ; # X"},{"Add":" %66 = phi i64 [%43, %$15], [%54, %$22] ; # ->"},{"Add":"; # drop"},{"Add":" %67 = inttoptr i64 %20 to i64*"},{"Add":" %68 = getelementptr i64, i64* %67, i32 1"},{"Add":" %69 = load i64, i64* %68"},{"Add":" %70 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %69, i64* %70"},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %71 = phi i64 [%15, %$7], [%65, %$14] ; # X"},{"Add":" %72 = phi i64 [%13, %$7], [%66, %$14] ; # ->"},{"Add":" ret i64 %72"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Sub(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let (X (cdr Exe) N (eval (++ X))) (if (nil? N) N (needNum Exe N)..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (++ X)"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":" %6 = getelementptr i64, i64* %4, i32 1"},{"Add":" %7 = load i64, i64* %6"},{"Add":"; # (eval (++ X))"},{"Add":" %8 = and i64 %5, 6"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br i1 %9, label %$4, label %$3"},{"Add":"$4:"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %10 = and i64 %5, 8"},{"Add":" %11 = icmp ne i64 %10, 0"},{"Add":" br i1 %11, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %12 = inttoptr i64 %5 to i64*"},{"Add":" %13 = load i64, i64* %12"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":" %14 = call i64 @evList(i64 %5)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %15 = phi i64 [%5, %$4], [%13, %$6], [%14, %$5] ; # ->"},{"Add":"; # (if (nil? N) N (needNum Exe N) (if (atom X) (neg N) (save -ZERO (..."},{"Add":"; # (nil? N)"},{"Add":" %16 = icmp eq i64 %15, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %16, label %$7, label %$8"},{"Add":"$7:"},{"Add":" %17 = phi i64 [%7, %$2] ; # X"},{"Add":" br label %$9"},{"Add":"$8:"},{"Add":" %18 = phi i64 [%7, %$2] ; # X"},{"Add":"; # (needNum Exe N)"},{"Add":" %19 = and i64 %15, 6"},{"Add":" %20 = icmp ne i64 %19, 0"},{"Add":" br i1 %20, label %$11, label %$10"},{"Add":"$10:"},{"Add":" call void @numErr(i64 %0, i64 %15)"},{"Add":" unreachable"},{"Add":"$11:"},{"Add":"; # (if (atom X) (neg N) (save -ZERO (let R (link (push N NIL)) (loop..."},{"Add":"; # (atom X)"},{"Add":" %21 = and i64 %18, 15"},{"Add":" %22 = icmp ne i64 %21, 0"},{"Add":" br i1 %22, label %$12, label %$13"},{"Add":"$12:"},{"Add":" %23 = phi i64 [%18, %$11] ; # X"},{"Add":"; # (neg N)"},{"Add":" %24 = icmp eq i64 %15, 2"},{"Add":" br i1 %24, label %$15, label %$16"},{"Add":"$15:"},{"Add":" br label %$17"},{"Add":"$16:"},{"Add":" %25 = xor i64 %15, 8"},{"Add":" br label %$17"},{"Add":"$17:"},{"Add":" %26 = phi i64 [%15, %$15], [%25, %$16] ; # ->"},{"Add":" br label %$14"},{"Add":"$13:"},{"Add":" %27 = phi i64 [%18, %$11] ; # X"},{"Add":"; # (save -ZERO (let R (link (push N NIL)) (loop (? (nil? (eval (++ X..."},{"Add":" %28 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %29 = load i64, i64* %28"},{"Add":" %30 = alloca i64, i64 2, align 16"},{"Add":" %31 = ptrtoint i64* %30 to i64"},{"Add":" %32 = inttoptr i64 %31 to i64*"},{"Add":" store i64 10, i64* %32"},{"Add":" %33 = add i64 %31, 8"},{"Add":" %34 = inttoptr i64 %33 to i64*"},{"Add":" store i64 %29, i64* %34"},{"Add":" %35 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %31, i64* %35"},{"Add":"; # (let R (link (push N NIL)) (loop (? (nil? (eval (++ X))) @) (safe..."},{"Add":"; # (push N NIL)"},{"Add":" %36 = alloca i64, i64 2, align 16"},{"Add":" %37 = ptrtoint i64* %36 to i64"},{"Add":" %38 = inttoptr i64 %37 to i64*"},{"Add":" store i64 %15, i64* %38"},{"Add":"; # (link (push N NIL))"},{"Add":" %39 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %40 = load i64, i64* %39"},{"Add":" %41 = inttoptr i64 %37 to i64*"},{"Add":" %42 = getelementptr i64, i64* %41, i32 1"},{"Add":" store i64 %40, i64* %42"},{"Add":" %43 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %37, i64* %43"},{"Add":"; # (loop (? (nil? (eval (++ X))) @) (safe (needNum Exe @)) (set R (s..."},{"Add":" br label %$18"},{"Add":"$18:"},{"Add":" %44 = phi i64 [%27, %$13], [%72, %$29] ; # X"},{"Add":"; # (? (nil? (eval (++ X))) @)"},{"Add":"; # (++ X)"},{"Add":" %45 = inttoptr i64 %44 to i64*"},{"Add":" %46 = load i64, i64* %45"},{"Add":" %47 = getelementptr i64, i64* %45, i32 1"},{"Add":" %48 = load i64, i64* %47"},{"Add":"; # (eval (++ X))"},{"Add":" %49 = and i64 %46, 6"},{"Add":" %50 = icmp ne i64 %49, 0"},{"Add":" br i1 %50, label %$21, label %$20"},{"Add":"$21:"},{"Add":" br label %$19"},{"Add":"$20:"},{"Add":" %51 = and i64 %46, 8"},{"Add":" %52 = icmp ne i64 %51, 0"},{"Add":" br i1 %52, label %$23, label %$22"},{"Add":"$23:"},{"Add":" %53 = inttoptr i64 %46 to i64*"},{"Add":" %54 = load i64, i64* %53"},{"Add":" br label %$19"},{"Add":"$22:"},{"Add":" %55 = call i64 @evList(i64 %46)"},{"Add":" br label %$19"},{"Add":"$19:"},{"Add":" %56 = phi i64 [%46, %$21], [%54, %$23], [%55, %$22] ; # ->"},{"Add":"; # (nil? (eval (++ X)))"},{"Add":" %57 = icmp eq i64 %56, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %57, label %$26, label %$24"},{"Add":"$26:"},{"Add":" %58 = phi i64 [%48, %$19] ; # X"},{"Add":" br label %$25"},{"Add":"$24:"},{"Add":" %59 = phi i64 [%48, %$19] ; # X"},{"Add":"; # (needNum Exe @)"},{"Add":" %60 = and i64 %56, 6"},{"Add":" %61 = icmp ne i64 %60, 0"},{"Add":" br i1 %61, label %$28, label %$27"},{"Add":"$27:"},{"Add":" call void @numErr(i64 %0, i64 %56)"},{"Add":" unreachable"},{"Add":"$28:"},{"Add":"; # (safe (needNum Exe @))"},{"Add":" %62 = inttoptr i64 %31 to i64*"},{"Add":" store i64 %56, i64* %62"},{"Add":"; # (set R (subs (val R) @))"},{"Add":"; # (val R)"},{"Add":" %63 = inttoptr i64 %37 to i64*"},{"Add":" %64 = load i64, i64* %63"},{"Add":"; # (subs (val R) @)"},{"Add":" %65 = call i64 @subs(i64 %64, i64 %56)"},{"Add":" %66 = inttoptr i64 %37 to i64*"},{"Add":" store i64 %65, i64* %66"},{"Add":"; # (? (atom X) (val R))"},{"Add":"; # (atom X)"},{"Add":" %67 = and i64 %59, 15"},{"Add":" %68 = icmp ne i64 %67, 0"},{"Add":" br i1 %68, label %$30, label %$29"},{"Add":"$30:"},{"Add":" %69 = phi i64 [%59, %$28] ; # X"},{"Add":"; # (val R)"},{"Add":" %70 = inttoptr i64 %37 to i64*"},{"Add":" %71 = load i64, i64* %70"},{"Add":" br label %$25"},{"Add":"$29:"},{"Add":" %72 = phi i64 [%59, %$28] ; # X"},{"Add":" br label %$18"},{"Add":"$25:"},{"Add":" %73 = phi i64 [%58, %$26], [%69, %$30] ; # X"},{"Add":" %74 = phi i64 [%56, %$26], [%71, %$30] ; # ->"},{"Add":"; # drop"},{"Add":" %75 = inttoptr i64 %31 to i64*"},{"Add":" %76 = getelementptr i64, i64* %75, i32 1"},{"Add":" %77 = load i64, i64* %76"},{"Add":" %78 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %77, i64* %78"},{"Add":" br label %$14"},{"Add":"$14:"},{"Add":" %79 = phi i64 [%23, %$17], [%73, %$25] ; # X"},{"Add":" %80 = phi i64 [%26, %$17], [%74, %$25] ; # ->"},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %81 = phi i64 [%17, %$7], [%79, %$14] ; # X"},{"Add":" %82 = phi i64 [%15, %$7], [%80, %$14] ; # ->"},{"Add":" ret i64 %82"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Inc(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let X (cdr Exe) (cond ((nil? (eval (car X))) @) ((num? @) (incs ..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (cond ((nil? (eval (car X))) @) ((num? @) (incs @)) (T (let Y (sa..."},{"Add":"; # (car X)"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":"; # (eval (car X))"},{"Add":" %6 = and i64 %5, 6"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$5, label %$4"},{"Add":"$5:"},{"Add":" br label %$3"},{"Add":"$4:"},{"Add":" %8 = and i64 %5, 8"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br i1 %9, label %$7, label %$6"},{"Add":"$7:"},{"Add":" %10 = inttoptr i64 %5 to i64*"},{"Add":" %11 = load i64, i64* %10"},{"Add":" br label %$3"},{"Add":"$6:"},{"Add":" %12 = call i64 @evList(i64 %5)"},{"Add":" br label %$3"},{"Add":"$3:"},{"Add":" %13 = phi i64 [%5, %$5], [%11, %$7], [%12, %$6] ; # ->"},{"Add":"; # (nil? (eval (car X)))"},{"Add":" %14 = icmp eq i64 %13, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %14, label %$9, label %$8"},{"Add":"$9:"},{"Add":" %15 = phi i64 [%3, %$3] ; # X"},{"Add":" br label %$2"},{"Add":"$8:"},{"Add":" %16 = phi i64 [%3, %$3] ; # X"},{"Add":"; # (num? @)"},{"Add":" %17 = and i64 %13, 6"},{"Add":" %18 = icmp ne i64 %17, 0"},{"Add":" br i1 %18, label %$11, label %$10"},{"Add":"$11:"},{"Add":" %19 = phi i64 [%16, %$8] ; # X"},{"Add":"; # (incs @)"},{"Add":" %20 = call i64 @incs(i64 %13)"},{"Add":" br label %$2"},{"Add":"$10:"},{"Add":" %21 = phi i64 [%16, %$8] ; # X"},{"Add":"; # (let Y (save (chkVar Exe @)) (when (and (sym? Y) (sym? (val (tail..."},{"Add":"; # (chkVar Exe @)"},{"Add":" %22 = icmp uge i64 %13, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %22, label %$13, label %$12"},{"Add":"$13:"},{"Add":" %23 = icmp uge i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 280) to i64), %13"},{"Add":" br label %$12"},{"Add":"$12:"},{"Add":" %24 = phi i1 [0, %$10], [%23, %$13] ; # ->"},{"Add":" br i1 %24, label %$14, label %$15"},{"Add":"$14:"},{"Add":" call void @protErr(i64 %0, i64 %13)"},{"Add":" unreachable"},{"Add":"$15:"},{"Add":"; # (save (chkVar Exe @))"},{"Add":" %25 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %26 = load i64, i64* %25"},{"Add":" %27 = alloca i64, i64 2, align 16"},{"Add":" %28 = ptrtoint i64* %27 to i64"},{"Add":" %29 = inttoptr i64 %28 to i64*"},{"Add":" store i64 %13, i64* %29"},{"Add":" %30 = add i64 %28, 8"},{"Add":" %31 = inttoptr i64 %30 to i64*"},{"Add":" store i64 %26, i64* %31"},{"Add":" %32 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %28, i64* %32"},{"Add":"; # (when (and (sym? Y) (sym? (val (tail Y)))) (dbTouch Exe Y))"},{"Add":"; # (and (sym? Y) (sym? (val (tail Y))))"},{"Add":"; # (sym? Y)"},{"Add":" %33 = and i64 %13, 8"},{"Add":" %34 = icmp ne i64 %33, 0"},{"Add":" br i1 %34, label %$17, label %$16"},{"Add":"$17:"},{"Add":" %35 = phi i64 [%21, %$15] ; # X"},{"Add":"; # (tail Y)"},{"Add":" %36 = add i64 %13, -8"},{"Add":"; # (val (tail Y))"},{"Add":" %37 = inttoptr i64 %36 to i64*"},{"Add":" %38 = load i64, i64* %37"},{"Add":"; # (sym? (val (tail Y)))"},{"Add":" %39 = and i64 %38, 8"},{"Add":" %40 = icmp ne i64 %39, 0"},{"Add":" br label %$16"},{"Add":"$16:"},{"Add":" %41 = phi i64 [%21, %$15], [%35, %$17] ; # X"},{"Add":" %42 = phi i1 [0, %$15], [%40, %$17] ; # ->"},{"Add":" br i1 %42, label %$18, label %$19"},{"Add":"$18:"},{"Add":" %43 = phi i64 [%41, %$16] ; # X"},{"Add":"; # (dbTouch Exe Y)"},{"Add":" call void @dbTouch(i64 %0, i64 %13)"},{"Add":" br label %$19"},{"Add":"$19:"},{"Add":" %44 = phi i64 [%41, %$16], [%43, %$18] ; # X"},{"Add":"; # (if (atom (shift X)) (if (nil? (val Y)) @ (set Y (incs (needNum E..."},{"Add":"; # (shift X)"},{"Add":" %45 = inttoptr i64 %44 to i64*"},{"Add":" %46 = getelementptr i64, i64* %45, i32 1"},{"Add":" %47 = load i64, i64* %46"},{"Add":"; # (atom (shift X))"},{"Add":" %48 = and i64 %47, 15"},{"Add":" %49 = icmp ne i64 %48, 0"},{"Add":" br i1 %49, label %$20, label %$21"},{"Add":"$20:"},{"Add":" %50 = phi i64 [%47, %$19] ; # X"},{"Add":"; # (if (nil? (val Y)) @ (set Y (incs (needNum Exe @))))"},{"Add":"; # (val Y)"},{"Add":" %51 = inttoptr i64 %13 to i64*"},{"Add":" %52 = load i64, i64* %51"},{"Add":"; # (nil? (val Y))"},{"Add":" %53 = icmp eq i64 %52, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %53, label %$23, label %$24"},{"Add":"$23:"},{"Add":" %54 = phi i64 [%50, %$20] ; # X"},{"Add":" br label %$25"},{"Add":"$24:"},{"Add":" %55 = phi i64 [%50, %$20] ; # X"},{"Add":"; # (set Y (incs (needNum Exe @)))"},{"Add":"; # (needNum Exe @)"},{"Add":" %56 = and i64 %52, 6"},{"Add":" %57 = icmp ne i64 %56, 0"},{"Add":" br i1 %57, label %$27, label %$26"},{"Add":"$26:"},{"Add":" call void @numErr(i64 %0, i64 %52)"},{"Add":" unreachable"},{"Add":"$27:"},{"Add":"; # (incs (needNum Exe @))"},{"Add":" %58 = call i64 @incs(i64 %52)"},{"Add":" %59 = inttoptr i64 %13 to i64*"},{"Add":" store i64 %58, i64* %59"},{"Add":" br label %$25"},{"Add":"$25:"},{"Add":" %60 = phi i64 [%54, %$23], [%55, %$27] ; # X"},{"Add":" %61 = phi i64 [%52, %$23], [%58, %$27] ; # ->"},{"Add":" br label %$22"},{"Add":"$21:"},{"Add":" %62 = phi i64 [%47, %$19] ; # X"},{"Add":"; # (let (D (save (eval (car X))) N (val Y)) (cond ((nil? N) N) ((nil..."},{"Add":"; # (car X)"},{"Add":" %63 = inttoptr i64 %62 to i64*"},{"Add":" %64 = load i64, i64* %63"},{"Add":"; # (eval (car X))"},{"Add":" %65 = and i64 %64, 6"},{"Add":" %66 = icmp ne i64 %65, 0"},{"Add":" br i1 %66, label %$30, label %$29"},{"Add":"$30:"},{"Add":" br label %$28"},{"Add":"$29:"},{"Add":" %67 = and i64 %64, 8"},{"Add":" %68 = icmp ne i64 %67, 0"},{"Add":" br i1 %68, label %$32, label %$31"},{"Add":"$32:"},{"Add":" %69 = inttoptr i64 %64 to i64*"},{"Add":" %70 = load i64, i64* %69"},{"Add":" br label %$28"},{"Add":"$31:"},{"Add":" %71 = call i64 @evList(i64 %64)"},{"Add":" br label %$28"},{"Add":"$28:"},{"Add":" %72 = phi i64 [%64, %$30], [%70, %$32], [%71, %$31] ; # ->"},{"Add":"; # (save (eval (car X)))"},{"Add":" %73 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %74 = load i64, i64* %73"},{"Add":" %75 = alloca i64, i64 2, align 16"},{"Add":" %76 = ptrtoint i64* %75 to i64"},{"Add":" %77 = inttoptr i64 %76 to i64*"},{"Add":" store i64 %72, i64* %77"},{"Add":" %78 = add i64 %76, 8"},{"Add":" %79 = inttoptr i64 %78 to i64*"},{"Add":" store i64 %74, i64* %79"},{"Add":" %80 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %76, i64* %80"},{"Add":"; # (val Y)"},{"Add":" %81 = inttoptr i64 %13 to i64*"},{"Add":" %82 = load i64, i64* %81"},{"Add":"; # (cond ((nil? N) N) ((nil? D) D) (T (set Y (adds (needNum Exe N) (..."},{"Add":"; # (nil? N)"},{"Add":" %83 = icmp eq i64 %82, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %83, label %$35, label %$34"},{"Add":"$35:"},{"Add":" %84 = phi i64 [%62, %$28] ; # X"},{"Add":" br label %$33"},{"Add":"$34:"},{"Add":" %85 = phi i64 [%62, %$28] ; # X"},{"Add":"; # (nil? D)"},{"Add":" %86 = icmp eq i64 %72, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %86, label %$37, label %$36"},{"Add":"$37:"},{"Add":" %87 = phi i64 [%85, %$34] ; # X"},{"Add":" br label %$33"},{"Add":"$36:"},{"Add":" %88 = phi i64 [%85, %$34] ; # X"},{"Add":"; # (set Y (adds (needNum Exe N) (needNum Exe D)))"},{"Add":"; # (needNum Exe N)"},{"Add":" %89 = and i64 %82, 6"},{"Add":" %90 = icmp ne i64 %89, 0"},{"Add":" br i1 %90, label %$39, label %$38"},{"Add":"$38:"},{"Add":" call void @numErr(i64 %0, i64 %82)"},{"Add":" unreachable"},{"Add":"$39:"},{"Add":"; # (needNum Exe D)"},{"Add":" %91 = and i64 %72, 6"},{"Add":" %92 = icmp ne i64 %91, 0"},{"Add":" br i1 %92, label %$41, label %$40"},{"Add":"$40:"},{"Add":" call void @numErr(i64 %0, i64 %72)"},{"Add":" unreachable"},{"Add":"$41:"},{"Add":"; # (adds (needNum Exe N) (needNum Exe D))"},{"Add":" %93 = call i64 @adds(i64 %82, i64 %72)"},{"Add":" %94 = inttoptr i64 %13 to i64*"},{"Add":" store i64 %93, i64* %94"},{"Add":" br label %$33"},{"Add":"$33:"},{"Add":" %95 = phi i64 [%84, %$35], [%87, %$37], [%88, %$41] ; # X"},{"Add":" %96 = phi i64 [%82, %$35], [%72, %$37], [%93, %$41] ; # ->"},{"Add":" br label %$22"},{"Add":"$22:"},{"Add":" %97 = phi i64 [%60, %$25], [%95, %$33] ; # X"},{"Add":" %98 = phi i64 [%61, %$25], [%96, %$33] ; # ->"},{"Add":"; # (drop *Safe)"},{"Add":" %99 = inttoptr i64 %28 to i64*"},{"Add":" %100 = getelementptr i64, i64* %99, i32 1"},{"Add":" %101 = load i64, i64* %100"},{"Add":" %102 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %101, i64* %102"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %103 = phi i64 [%15, %$9], [%19, %$11], [%97, %$22] ; # X"},{"Add":" %104 = phi i64 [%13, %$9], [%20, %$11], [%98, %$22] ; # ->"},{"Add":" ret i64 %104"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Dec(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let X (cdr Exe) (cond ((nil? (eval (car X))) @) ((num? @) (decs ..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (cond ((nil? (eval (car X))) @) ((num? @) (decs @)) (T (let Y (sa..."},{"Add":"; # (car X)"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":"; # (eval (car X))"},{"Add":" %6 = and i64 %5, 6"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$5, label %$4"},{"Add":"$5:"},{"Add":" br label %$3"},{"Add":"$4:"},{"Add":" %8 = and i64 %5, 8"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br i1 %9, label %$7, label %$6"},{"Add":"$7:"},{"Add":" %10 = inttoptr i64 %5 to i64*"},{"Add":" %11 = load i64, i64* %10"},{"Add":" br label %$3"},{"Add":"$6:"},{"Add":" %12 = call i64 @evList(i64 %5)"},{"Add":" br label %$3"},{"Add":"$3:"},{"Add":" %13 = phi i64 [%5, %$5], [%11, %$7], [%12, %$6] ; # ->"},{"Add":"; # (nil? (eval (car X)))"},{"Add":" %14 = icmp eq i64 %13, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %14, label %$9, label %$8"},{"Add":"$9:"},{"Add":" %15 = phi i64 [%3, %$3] ; # X"},{"Add":" br label %$2"},{"Add":"$8:"},{"Add":" %16 = phi i64 [%3, %$3] ; # X"},{"Add":"; # (num? @)"},{"Add":" %17 = and i64 %13, 6"},{"Add":" %18 = icmp ne i64 %17, 0"},{"Add":" br i1 %18, label %$11, label %$10"},{"Add":"$11:"},{"Add":" %19 = phi i64 [%16, %$8] ; # X"},{"Add":"; # (decs @)"},{"Add":" %20 = call i64 @decs(i64 %13)"},{"Add":" br label %$2"},{"Add":"$10:"},{"Add":" %21 = phi i64 [%16, %$8] ; # X"},{"Add":"; # (let Y (save (chkVar Exe @)) (when (and (sym? Y) (sym? (val (tail..."},{"Add":"; # (chkVar Exe @)"},{"Add":" %22 = icmp uge i64 %13, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %22, label %$13, label %$12"},{"Add":"$13:"},{"Add":" %23 = icmp uge i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 280) to i64), %13"},{"Add":" br label %$12"},{"Add":"$12:"},{"Add":" %24 = phi i1 [0, %$10], [%23, %$13] ; # ->"},{"Add":" br i1 %24, label %$14, label %$15"},{"Add":"$14:"},{"Add":" call void @protErr(i64 %0, i64 %13)"},{"Add":" unreachable"},{"Add":"$15:"},{"Add":"; # (save (chkVar Exe @))"},{"Add":" %25 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %26 = load i64, i64* %25"},{"Add":" %27 = alloca i64, i64 2, align 16"},{"Add":" %28 = ptrtoint i64* %27 to i64"},{"Add":" %29 = inttoptr i64 %28 to i64*"},{"Add":" store i64 %13, i64* %29"},{"Add":" %30 = add i64 %28, 8"},{"Add":" %31 = inttoptr i64 %30 to i64*"},{"Add":" store i64 %26, i64* %31"},{"Add":" %32 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %28, i64* %32"},{"Add":"; # (when (and (sym? Y) (sym? (val (tail Y)))) (dbTouch Exe Y))"},{"Add":"; # (and (sym? Y) (sym? (val (tail Y))))"},{"Add":"; # (sym? Y)"},{"Add":" %33 = and i64 %13, 8"},{"Add":" %34 = icmp ne i64 %33, 0"},{"Add":" br i1 %34, label %$17, label %$16"},{"Add":"$17:"},{"Add":" %35 = phi i64 [%21, %$15] ; # X"},{"Add":"; # (tail Y)"},{"Add":" %36 = add i64 %13, -8"},{"Add":"; # (val (tail Y))"},{"Add":" %37 = inttoptr i64 %36 to i64*"},{"Add":" %38 = load i64, i64* %37"},{"Add":"; # (sym? (val (tail Y)))"},{"Add":" %39 = and i64 %38, 8"},{"Add":" %40 = icmp ne i64 %39, 0"},{"Add":" br label %$16"},{"Add":"$16:"},{"Add":" %41 = phi i64 [%21, %$15], [%35, %$17] ; # X"},{"Add":" %42 = phi i1 [0, %$15], [%40, %$17] ; # ->"},{"Add":" br i1 %42, label %$18, label %$19"},{"Add":"$18:"},{"Add":" %43 = phi i64 [%41, %$16] ; # X"},{"Add":"; # (dbTouch Exe Y)"},{"Add":" call void @dbTouch(i64 %0, i64 %13)"},{"Add":" br label %$19"},{"Add":"$19:"},{"Add":" %44 = phi i64 [%41, %$16], [%43, %$18] ; # X"},{"Add":"; # (if (atom (shift X)) (if (nil? (val Y)) @ (set Y (decs (needNum E..."},{"Add":"; # (shift X)"},{"Add":" %45 = inttoptr i64 %44 to i64*"},{"Add":" %46 = getelementptr i64, i64* %45, i32 1"},{"Add":" %47 = load i64, i64* %46"},{"Add":"; # (atom (shift X))"},{"Add":" %48 = and i64 %47, 15"},{"Add":" %49 = icmp ne i64 %48, 0"},{"Add":" br i1 %49, label %$20, label %$21"},{"Add":"$20:"},{"Add":" %50 = phi i64 [%47, %$19] ; # X"},{"Add":"; # (if (nil? (val Y)) @ (set Y (decs (needNum Exe @))))"},{"Add":"; # (val Y)"},{"Add":" %51 = inttoptr i64 %13 to i64*"},{"Add":" %52 = load i64, i64* %51"},{"Add":"; # (nil? (val Y))"},{"Add":" %53 = icmp eq i64 %52, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %53, label %$23, label %$24"},{"Add":"$23:"},{"Add":" %54 = phi i64 [%50, %$20] ; # X"},{"Add":" br label %$25"},{"Add":"$24:"},{"Add":" %55 = phi i64 [%50, %$20] ; # X"},{"Add":"; # (set Y (decs (needNum Exe @)))"},{"Add":"; # (needNum Exe @)"},{"Add":" %56 = and i64 %52, 6"},{"Add":" %57 = icmp ne i64 %56, 0"},{"Add":" br i1 %57, label %$27, label %$26"},{"Add":"$26:"},{"Add":" call void @numErr(i64 %0, i64 %52)"},{"Add":" unreachable"},{"Add":"$27:"},{"Add":"; # (decs (needNum Exe @))"},{"Add":" %58 = call i64 @decs(i64 %52)"},{"Add":" %59 = inttoptr i64 %13 to i64*"},{"Add":" store i64 %58, i64* %59"},{"Add":" br label %$25"},{"Add":"$25:"},{"Add":" %60 = phi i64 [%54, %$23], [%55, %$27] ; # X"},{"Add":" %61 = phi i64 [%52, %$23], [%58, %$27] ; # ->"},{"Add":" br label %$22"},{"Add":"$21:"},{"Add":" %62 = phi i64 [%47, %$19] ; # X"},{"Add":"; # (let (D (save (eval (car X))) N (val Y)) (cond ((nil? N) N) ((nil..."},{"Add":"; # (car X)"},{"Add":" %63 = inttoptr i64 %62 to i64*"},{"Add":" %64 = load i64, i64* %63"},{"Add":"; # (eval (car X))"},{"Add":" %65 = and i64 %64, 6"},{"Add":" %66 = icmp ne i64 %65, 0"},{"Add":" br i1 %66, label %$30, label %$29"},{"Add":"$30:"},{"Add":" br label %$28"},{"Add":"$29:"},{"Add":" %67 = and i64 %64, 8"},{"Add":" %68 = icmp ne i64 %67, 0"},{"Add":" br i1 %68, label %$32, label %$31"},{"Add":"$32:"},{"Add":" %69 = inttoptr i64 %64 to i64*"},{"Add":" %70 = load i64, i64* %69"},{"Add":" br label %$28"},{"Add":"$31:"},{"Add":" %71 = call i64 @evList(i64 %64)"},{"Add":" br label %$28"},{"Add":"$28:"},{"Add":" %72 = phi i64 [%64, %$30], [%70, %$32], [%71, %$31] ; # ->"},{"Add":"; # (save (eval (car X)))"},{"Add":" %73 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %74 = load i64, i64* %73"},{"Add":" %75 = alloca i64, i64 2, align 16"},{"Add":" %76 = ptrtoint i64* %75 to i64"},{"Add":" %77 = inttoptr i64 %76 to i64*"},{"Add":" store i64 %72, i64* %77"},{"Add":" %78 = add i64 %76, 8"},{"Add":" %79 = inttoptr i64 %78 to i64*"},{"Add":" store i64 %74, i64* %79"},{"Add":" %80 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %76, i64* %80"},{"Add":"; # (val Y)"},{"Add":" %81 = inttoptr i64 %13 to i64*"},{"Add":" %82 = load i64, i64* %81"},{"Add":"; # (cond ((nil? N) N) ((nil? D) D) (T (set Y (subs (needNum Exe N) (..."},{"Add":"; # (nil? N)"},{"Add":" %83 = icmp eq i64 %82, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %83, label %$35, label %$34"},{"Add":"$35:"},{"Add":" %84 = phi i64 [%62, %$28] ; # X"},{"Add":" br label %$33"},{"Add":"$34:"},{"Add":" %85 = phi i64 [%62, %$28] ; # X"},{"Add":"; # (nil? D)"},{"Add":" %86 = icmp eq i64 %72, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %86, label %$37, label %$36"},{"Add":"$37:"},{"Add":" %87 = phi i64 [%85, %$34] ; # X"},{"Add":" br label %$33"},{"Add":"$36:"},{"Add":" %88 = phi i64 [%85, %$34] ; # X"},{"Add":"; # (set Y (subs (needNum Exe N) (needNum Exe D)))"},{"Add":"; # (needNum Exe N)"},{"Add":" %89 = and i64 %82, 6"},{"Add":" %90 = icmp ne i64 %89, 0"},{"Add":" br i1 %90, label %$39, label %$38"},{"Add":"$38:"},{"Add":" call void @numErr(i64 %0, i64 %82)"},{"Add":" unreachable"},{"Add":"$39:"},{"Add":"; # (needNum Exe D)"},{"Add":" %91 = and i64 %72, 6"},{"Add":" %92 = icmp ne i64 %91, 0"},{"Add":" br i1 %92, label %$41, label %$40"},{"Add":"$40:"},{"Add":" call void @numErr(i64 %0, i64 %72)"},{"Add":" unreachable"},{"Add":"$41:"},{"Add":"; # (subs (needNum Exe N) (needNum Exe D))"},{"Add":" %93 = call i64 @subs(i64 %82, i64 %72)"},{"Add":" %94 = inttoptr i64 %13 to i64*"},{"Add":" store i64 %93, i64* %94"},{"Add":" br label %$33"},{"Add":"$33:"},{"Add":" %95 = phi i64 [%84, %$35], [%87, %$37], [%88, %$41] ; # X"},{"Add":" %96 = phi i64 [%82, %$35], [%72, %$37], [%93, %$41] ; # ->"},{"Add":" br label %$22"},{"Add":"$22:"},{"Add":" %97 = phi i64 [%60, %$25], [%95, %$33] ; # X"},{"Add":" %98 = phi i64 [%61, %$25], [%96, %$33] ; # ->"},{"Add":"; # (drop *Safe)"},{"Add":" %99 = inttoptr i64 %28 to i64*"},{"Add":" %100 = getelementptr i64, i64* %99, i32 1"},{"Add":" %101 = load i64, i64* %100"},{"Add":" %102 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %101, i64* %102"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %103 = phi i64 [%15, %$9], [%19, %$11], [%97, %$22] ; # X"},{"Add":" %104 = phi i64 [%13, %$9], [%20, %$11], [%98, %$22] ; # ->"},{"Add":" ret i64 %104"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Mul(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let X (cdr Exe) (if (nil? (eval (car X))) @ (save -ZERO (let (Si..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (if (nil? (eval (car X))) @ (save -ZERO (let (Sign (sign? (needNu..."},{"Add":"; # (car X)"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":"; # (eval (car X))"},{"Add":" %6 = and i64 %5, 6"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$4, label %$3"},{"Add":"$4:"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %8 = and i64 %5, 8"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br i1 %9, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %10 = inttoptr i64 %5 to i64*"},{"Add":" %11 = load i64, i64* %10"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":" %12 = call i64 @evList(i64 %5)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %13 = phi i64 [%5, %$4], [%11, %$6], [%12, %$5] ; # ->"},{"Add":"; # (nil? (eval (car X)))"},{"Add":" %14 = icmp eq i64 %13, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %14, label %$7, label %$8"},{"Add":"$7:"},{"Add":" %15 = phi i64 [%3, %$2] ; # X"},{"Add":" br label %$9"},{"Add":"$8:"},{"Add":" %16 = phi i64 [%3, %$2] ; # X"},{"Add":"; # (save -ZERO (let (Sign (sign? (needNum Exe @)) R (link (push (pos..."},{"Add":" %17 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %18 = load i64, i64* %17"},{"Add":" %19 = alloca i64, i64 2, align 16"},{"Add":" %20 = ptrtoint i64* %19 to i64"},{"Add":" %21 = inttoptr i64 %20 to i64*"},{"Add":" store i64 10, i64* %21"},{"Add":" %22 = add i64 %20, 8"},{"Add":" %23 = inttoptr i64 %22 to i64*"},{"Add":" store i64 %18, i64* %23"},{"Add":" %24 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %20, i64* %24"},{"Add":"; # (let (Sign (sign? (needNum Exe @)) R (link (push (pos @) NIL))) (..."},{"Add":"; # (needNum Exe @)"},{"Add":" %25 = and i64 %13, 6"},{"Add":" %26 = icmp ne i64 %25, 0"},{"Add":" br i1 %26, label %$11, label %$10"},{"Add":"$10:"},{"Add":" call void @numErr(i64 %0, i64 %13)"},{"Add":" unreachable"},{"Add":"$11:"},{"Add":"; # (sign? (needNum Exe @))"},{"Add":" %27 = and i64 %13, 8"},{"Add":" %28 = icmp ne i64 %27, 0"},{"Add":"; # (pos @)"},{"Add":" %29 = and i64 %13, -9"},{"Add":"; # (push (pos @) NIL)"},{"Add":" %30 = alloca i64, i64 2, align 16"},{"Add":" %31 = ptrtoint i64* %30 to i64"},{"Add":" %32 = inttoptr i64 %31 to i64*"},{"Add":" store i64 %29, i64* %32"},{"Add":"; # (link (push (pos @) NIL))"},{"Add":" %33 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %34 = load i64, i64* %33"},{"Add":" %35 = inttoptr i64 %31 to i64*"},{"Add":" %36 = getelementptr i64, i64* %35, i32 1"},{"Add":" store i64 %34, i64* %36"},{"Add":" %37 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %31, i64* %37"},{"Add":"; # (loop (? (atom (shift X)) (let N (val R) (if Sign (neg N) N))) (l..."},{"Add":" br label %$12"},{"Add":"$12:"},{"Add":" %38 = phi i64 [%16, %$11], [%94, %$34] ; # X"},{"Add":" %39 = phi i1 [%28, %$11], [%95, %$34] ; # Sign"},{"Add":"; # (? (atom (shift X)) (let N (val R) (if Sign (neg N) N)))"},{"Add":"; # (shift X)"},{"Add":" %40 = inttoptr i64 %38 to i64*"},{"Add":" %41 = getelementptr i64, i64* %40, i32 1"},{"Add":" %42 = load i64, i64* %41"},{"Add":"; # (atom (shift X))"},{"Add":" %43 = and i64 %42, 15"},{"Add":" %44 = icmp ne i64 %43, 0"},{"Add":" br i1 %44, label %$15, label %$13"},{"Add":"$15:"},{"Add":" %45 = phi i64 [%42, %$12] ; # X"},{"Add":" %46 = phi i1 [%39, %$12] ; # Sign"},{"Add":"; # (let N (val R) (if Sign (neg N) N))"},{"Add":"; # (val R)"},{"Add":" %47 = inttoptr i64 %31 to i64*"},{"Add":" %48 = load i64, i64* %47"},{"Add":"; # (if Sign (neg N) N)"},{"Add":" br i1 %46, label %$16, label %$17"},{"Add":"$16:"},{"Add":" %49 = phi i64 [%45, %$15] ; # X"},{"Add":" %50 = phi i1 [%46, %$15] ; # Sign"},{"Add":"; # (neg N)"},{"Add":" %51 = icmp eq i64 %48, 2"},{"Add":" br i1 %51, label %$19, label %$20"},{"Add":"$19:"},{"Add":" br label %$21"},{"Add":"$20:"},{"Add":" %52 = xor i64 %48, 8"},{"Add":" br label %$21"},{"Add":"$21:"},{"Add":" %53 = phi i64 [%48, %$19], [%52, %$20] ; # ->"},{"Add":" br label %$18"},{"Add":"$17:"},{"Add":" %54 = phi i64 [%45, %$15] ; # X"},{"Add":" %55 = phi i1 [%46, %$15] ; # Sign"},{"Add":" br label %$18"},{"Add":"$18:"},{"Add":" %56 = phi i64 [%49, %$21], [%54, %$17] ; # X"},{"Add":" %57 = phi i1 [%50, %$21], [%55, %$17] ; # Sign"},{"Add":" %58 = phi i64 [%53, %$21], [%48, %$17] ; # ->"},{"Add":" br label %$14"},{"Add":"$13:"},{"Add":" %59 = phi i64 [%42, %$12] ; # X"},{"Add":" %60 = phi i1 [%39, %$12] ; # Sign"},{"Add":"; # (let N (eval (car X)) (? (nil? N) N) (? (== N ZERO) N) (when (sig..."},{"Add":"; # (car X)"},{"Add":" %61 = inttoptr i64 %59 to i64*"},{"Add":" %62 = load i64, i64* %61"},{"Add":"; # (eval (car X))"},{"Add":" %63 = and i64 %62, 6"},{"Add":" %64 = icmp ne i64 %63, 0"},{"Add":" br i1 %64, label %$24, label %$23"},{"Add":"$24:"},{"Add":" br label %$22"},{"Add":"$23:"},{"Add":" %65 = and i64 %62, 8"},{"Add":" %66 = icmp ne i64 %65, 0"},{"Add":" br i1 %66, label %$26, label %$25"},{"Add":"$26:"},{"Add":" %67 = inttoptr i64 %62 to i64*"},{"Add":" %68 = load i64, i64* %67"},{"Add":" br label %$22"},{"Add":"$25:"},{"Add":" %69 = call i64 @evList(i64 %62)"},{"Add":" br label %$22"},{"Add":"$22:"},{"Add":" %70 = phi i64 [%62, %$24], [%68, %$26], [%69, %$25] ; # ->"},{"Add":"; # (? (nil? N) N)"},{"Add":"; # (nil? N)"},{"Add":" %71 = icmp eq i64 %70, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %71, label %$28, label %$27"},{"Add":"$28:"},{"Add":" %72 = phi i64 [%59, %$22] ; # X"},{"Add":" %73 = phi i1 [%60, %$22] ; # Sign"},{"Add":" %74 = phi i64 [%70, %$22] ; # N"},{"Add":" br label %$14"},{"Add":"$27:"},{"Add":" %75 = phi i64 [%59, %$22] ; # X"},{"Add":" %76 = phi i1 [%60, %$22] ; # Sign"},{"Add":" %77 = phi i64 [%70, %$22] ; # N"},{"Add":"; # (? (== N ZERO) N)"},{"Add":"; # (== N ZERO)"},{"Add":" %78 = icmp eq i64 %77, 2"},{"Add":" br i1 %78, label %$30, label %$29"},{"Add":"$30:"},{"Add":" %79 = phi i64 [%75, %$27] ; # X"},{"Add":" %80 = phi i1 [%76, %$27] ; # Sign"},{"Add":" %81 = phi i64 [%77, %$27] ; # N"},{"Add":" br label %$14"},{"Add":"$29:"},{"Add":" %82 = phi i64 [%75, %$27] ; # X"},{"Add":" %83 = phi i1 [%76, %$27] ; # Sign"},{"Add":" %84 = phi i64 [%77, %$27] ; # N"},{"Add":"; # (when (sign? (needNum Exe N)) (setq Sign (not Sign) N (pos N)))"},{"Add":"; # (needNum Exe N)"},{"Add":" %85 = and i64 %84, 6"},{"Add":" %86 = icmp ne i64 %85, 0"},{"Add":" br i1 %86, label %$32, label %$31"},{"Add":"$31:"},{"Add":" call void @numErr(i64 %0, i64 %84)"},{"Add":" unreachable"},{"Add":"$32:"},{"Add":"; # (sign? (needNum Exe N))"},{"Add":" %87 = and i64 %84, 8"},{"Add":" %88 = icmp ne i64 %87, 0"},{"Add":" br i1 %88, label %$33, label %$34"},{"Add":"$33:"},{"Add":" %89 = phi i64 [%82, %$32] ; # X"},{"Add":" %90 = phi i1 [%83, %$32] ; # Sign"},{"Add":" %91 = phi i64 [%84, %$32] ; # N"},{"Add":"; # (not Sign)"},{"Add":" %92 = icmp eq i1 %90, 0"},{"Add":"; # (pos N)"},{"Add":" %93 = and i64 %91, -9"},{"Add":" br label %$34"},{"Add":"$34:"},{"Add":" %94 = phi i64 [%82, %$32], [%89, %$33] ; # X"},{"Add":" %95 = phi i1 [%83, %$32], [%92, %$33] ; # Sign"},{"Add":" %96 = phi i64 [%84, %$32], [%93, %$33] ; # N"},{"Add":"; # (safe N)"},{"Add":" %97 = inttoptr i64 %20 to i64*"},{"Add":" store i64 %96, i64* %97"},{"Add":"; # (set R (mulu (val R) N))"},{"Add":"; # (val R)"},{"Add":" %98 = inttoptr i64 %31 to i64*"},{"Add":" %99 = load i64, i64* %98"},{"Add":"; # (mulu (val R) N)"},{"Add":" %100 = call i64 @mulu(i64 %99, i64 %96)"},{"Add":" %101 = inttoptr i64 %31 to i64*"},{"Add":" store i64 %100, i64* %101"},{"Add":" br label %$12"},{"Add":"$14:"},{"Add":" %102 = phi i64 [%56, %$18], [%72, %$28], [%79, %$30] ; # X"},{"Add":" %103 = phi i1 [%57, %$18], [%73, %$28], [%80, %$30] ; # Sign"},{"Add":" %104 = phi i64 [%58, %$18], [%74, %$28], [%81, %$30] ; # ->"},{"Add":"; # drop"},{"Add":" %105 = inttoptr i64 %20 to i64*"},{"Add":" %106 = getelementptr i64, i64* %105, i32 1"},{"Add":" %107 = load i64, i64* %106"},{"Add":" %108 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %107, i64* %108"},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %109 = phi i64 [%15, %$7], [%102, %$14] ; # X"},{"Add":" %110 = phi i64 [%13, %$7], [%104, %$14] ; # ->"},{"Add":" ret i64 %110"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_MulDiv(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let X (cdr Exe) (if (nil? (eval (car X))) @ (save -ZERO (let (Si..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (if (nil? (eval (car X))) @ (save -ZERO (let (Sign (sign? (needNu..."},{"Add":"; # (car X)"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":"; # (eval (car X))"},{"Add":" %6 = and i64 %5, 6"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$4, label %$3"},{"Add":"$4:"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %8 = and i64 %5, 8"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br i1 %9, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %10 = inttoptr i64 %5 to i64*"},{"Add":" %11 = load i64, i64* %10"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":" %12 = call i64 @evList(i64 %5)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %13 = phi i64 [%5, %$4], [%11, %$6], [%12, %$5] ; # ->"},{"Add":"; # (nil? (eval (car X)))"},{"Add":" %14 = icmp eq i64 %13, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %14, label %$7, label %$8"},{"Add":"$7:"},{"Add":" %15 = phi i64 [%3, %$2] ; # X"},{"Add":" br label %$9"},{"Add":"$8:"},{"Add":" %16 = phi i64 [%3, %$2] ; # X"},{"Add":"; # (save -ZERO (let (Sign (sign? (needNum Exe @)) R (link (push (pos..."},{"Add":" %17 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %18 = load i64, i64* %17"},{"Add":" %19 = alloca i64, i64 2, align 16"},{"Add":" %20 = ptrtoint i64* %19 to i64"},{"Add":" %21 = inttoptr i64 %20 to i64*"},{"Add":" store i64 10, i64* %21"},{"Add":" %22 = add i64 %20, 8"},{"Add":" %23 = inttoptr i64 %22 to i64*"},{"Add":" store i64 %18, i64* %23"},{"Add":" %24 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %20, i64* %24"},{"Add":"; # (let (Sign (sign? (needNum Exe @)) R (link (push (pos @) NIL))) (..."},{"Add":"; # (needNum Exe @)"},{"Add":" %25 = and i64 %13, 6"},{"Add":" %26 = icmp ne i64 %25, 0"},{"Add":" br i1 %26, label %$11, label %$10"},{"Add":"$10:"},{"Add":" call void @numErr(i64 %0, i64 %13)"},{"Add":" unreachable"},{"Add":"$11:"},{"Add":"; # (sign? (needNum Exe @))"},{"Add":" %27 = and i64 %13, 8"},{"Add":" %28 = icmp ne i64 %27, 0"},{"Add":"; # (pos @)"},{"Add":" %29 = and i64 %13, -9"},{"Add":"; # (push (pos @) NIL)"},{"Add":" %30 = alloca i64, i64 2, align 16"},{"Add":" %31 = ptrtoint i64* %30 to i64"},{"Add":" %32 = inttoptr i64 %31 to i64*"},{"Add":" store i64 %29, i64* %32"},{"Add":"; # (link (push (pos @) NIL))"},{"Add":" %33 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %34 = load i64, i64* %33"},{"Add":" %35 = inttoptr i64 %31 to i64*"},{"Add":" %36 = getelementptr i64, i64* %35, i32 1"},{"Add":" store i64 %34, i64* %36"},{"Add":" %37 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %31, i64* %37"},{"Add":"; # (shift X)"},{"Add":" %38 = inttoptr i64 %16 to i64*"},{"Add":" %39 = getelementptr i64, i64* %38, i32 1"},{"Add":" %40 = load i64, i64* %39"},{"Add":"; # (loop (let N (eval (car X)) (? (nil? N) N) (when (sign? (needNum ..."},{"Add":" br label %$12"},{"Add":"$12:"},{"Add":" %41 = phi i64 [%40, %$11], [%122, %$35] ; # X"},{"Add":" %42 = phi i1 [%28, %$11], [%123, %$35] ; # Sign"},{"Add":"; # (let N (eval (car X)) (? (nil? N) N) (when (sign? (needNum Exe N)..."},{"Add":"; # (car X)"},{"Add":" %43 = inttoptr i64 %41 to i64*"},{"Add":" %44 = load i64, i64* %43"},{"Add":"; # (eval (car X))"},{"Add":" %45 = and i64 %44, 6"},{"Add":" %46 = icmp ne i64 %45, 0"},{"Add":" br i1 %46, label %$15, label %$14"},{"Add":"$15:"},{"Add":" br label %$13"},{"Add":"$14:"},{"Add":" %47 = and i64 %44, 8"},{"Add":" %48 = icmp ne i64 %47, 0"},{"Add":" br i1 %48, label %$17, label %$16"},{"Add":"$17:"},{"Add":" %49 = inttoptr i64 %44 to i64*"},{"Add":" %50 = load i64, i64* %49"},{"Add":" br label %$13"},{"Add":"$16:"},{"Add":" %51 = call i64 @evList(i64 %44)"},{"Add":" br label %$13"},{"Add":"$13:"},{"Add":" %52 = phi i64 [%44, %$15], [%50, %$17], [%51, %$16] ; # ->"},{"Add":"; # (? (nil? N) N)"},{"Add":"; # (nil? N)"},{"Add":" %53 = icmp eq i64 %52, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %53, label %$20, label %$18"},{"Add":"$20:"},{"Add":" %54 = phi i64 [%41, %$13] ; # X"},{"Add":" %55 = phi i1 [%42, %$13] ; # Sign"},{"Add":" %56 = phi i64 [%52, %$13] ; # N"},{"Add":" br label %$19"},{"Add":"$18:"},{"Add":" %57 = phi i64 [%41, %$13] ; # X"},{"Add":" %58 = phi i1 [%42, %$13] ; # Sign"},{"Add":" %59 = phi i64 [%52, %$13] ; # N"},{"Add":"; # (when (sign? (needNum Exe N)) (setq Sign (not Sign) N (pos N)))"},{"Add":"; # (needNum Exe N)"},{"Add":" %60 = and i64 %59, 6"},{"Add":" %61 = icmp ne i64 %60, 0"},{"Add":" br i1 %61, label %$22, label %$21"},{"Add":"$21:"},{"Add":" call void @numErr(i64 %0, i64 %59)"},{"Add":" unreachable"},{"Add":"$22:"},{"Add":"; # (sign? (needNum Exe N))"},{"Add":" %62 = and i64 %59, 8"},{"Add":" %63 = icmp ne i64 %62, 0"},{"Add":" br i1 %63, label %$23, label %$24"},{"Add":"$23:"},{"Add":" %64 = phi i64 [%57, %$22] ; # X"},{"Add":" %65 = phi i1 [%58, %$22] ; # Sign"},{"Add":" %66 = phi i64 [%59, %$22] ; # N"},{"Add":"; # (not Sign)"},{"Add":" %67 = icmp eq i1 %65, 0"},{"Add":"; # (pos N)"},{"Add":" %68 = and i64 %66, -9"},{"Add":" br label %$24"},{"Add":"$24:"},{"Add":" %69 = phi i64 [%57, %$22], [%64, %$23] ; # X"},{"Add":" %70 = phi i1 [%58, %$22], [%67, %$23] ; # Sign"},{"Add":" %71 = phi i64 [%59, %$22], [%68, %$23] ; # N"},{"Add":"; # (safe N)"},{"Add":" %72 = inttoptr i64 %20 to i64*"},{"Add":" store i64 %71, i64* %72"},{"Add":"; # (? (atom (shift X)) (when (== N ZERO) (divErr Exe)) (let Half (sa..."},{"Add":"; # (shift X)"},{"Add":" %73 = inttoptr i64 %69 to i64*"},{"Add":" %74 = getelementptr i64, i64* %73, i32 1"},{"Add":" %75 = load i64, i64* %74"},{"Add":"; # (atom (shift X))"},{"Add":" %76 = and i64 %75, 15"},{"Add":" %77 = icmp ne i64 %76, 0"},{"Add":" br i1 %77, label %$26, label %$25"},{"Add":"$26:"},{"Add":" %78 = phi i64 [%75, %$24] ; # X"},{"Add":" %79 = phi i1 [%70, %$24] ; # Sign"},{"Add":" %80 = phi i64 [%71, %$24] ; # N"},{"Add":"; # (when (== N ZERO) (divErr Exe))"},{"Add":"; # (== N ZERO)"},{"Add":" %81 = icmp eq i64 %80, 2"},{"Add":" br i1 %81, label %$27, label %$28"},{"Add":"$27:"},{"Add":" %82 = phi i64 [%78, %$26] ; # X"},{"Add":" %83 = phi i1 [%79, %$26] ; # Sign"},{"Add":" %84 = phi i64 [%80, %$26] ; # N"},{"Add":"; # (divErr Exe)"},{"Add":" call void @divErr(i64 %0)"},{"Add":" unreachable"},{"Add":"$28:"},{"Add":" %85 = phi i64 [%78, %$26] ; # X"},{"Add":" %86 = phi i1 [%79, %$26] ; # Sign"},{"Add":" %87 = phi i64 [%80, %$26] ; # N"},{"Add":"; # (let Half (save (shru N)) (setq N (divu (set R (addu (val R) Half..."},{"Add":"; # (shru N)"},{"Add":" %88 = call i64 @shru(i64 %87)"},{"Add":"; # (save (shru N))"},{"Add":" %89 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %90 = load i64, i64* %89"},{"Add":" %91 = alloca i64, i64 2, align 16"},{"Add":" %92 = ptrtoint i64* %91 to i64"},{"Add":" %93 = inttoptr i64 %92 to i64*"},{"Add":" store i64 %88, i64* %93"},{"Add":" %94 = add i64 %92, 8"},{"Add":" %95 = inttoptr i64 %94 to i64*"},{"Add":" store i64 %90, i64* %95"},{"Add":" %96 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %92, i64* %96"},{"Add":"; # (set R (addu (val R) Half))"},{"Add":"; # (val R)"},{"Add":" %97 = inttoptr i64 %31 to i64*"},{"Add":" %98 = load i64, i64* %97"},{"Add":"; # (addu (val R) Half)"},{"Add":" %99 = call i64 @addu(i64 %98, i64 %88)"},{"Add":" %100 = inttoptr i64 %31 to i64*"},{"Add":" store i64 %99, i64* %100"},{"Add":"; # (divu (set R (addu (val R) Half)) N)"},{"Add":" %101 = call i64 @divu(i64 %99, i64 %87)"},{"Add":"; # (if Sign (neg N) N)"},{"Add":" br i1 %86, label %$29, label %$30"},{"Add":"$29:"},{"Add":" %102 = phi i64 [%85, %$28] ; # X"},{"Add":" %103 = phi i1 [%86, %$28] ; # Sign"},{"Add":" %104 = phi i64 [%101, %$28] ; # N"},{"Add":"; # (neg N)"},{"Add":" %105 = icmp eq i64 %104, 2"},{"Add":" br i1 %105, label %$32, label %$33"},{"Add":"$32:"},{"Add":" br label %$34"},{"Add":"$33:"},{"Add":" %106 = xor i64 %104, 8"},{"Add":" br label %$34"},{"Add":"$34:"},{"Add":" %107 = phi i64 [%104, %$32], [%106, %$33] ; # ->"},{"Add":" br label %$31"},{"Add":"$30:"},{"Add":" %108 = phi i64 [%85, %$28] ; # X"},{"Add":" %109 = phi i1 [%86, %$28] ; # Sign"},{"Add":" %110 = phi i64 [%101, %$28] ; # N"},{"Add":" br label %$31"},{"Add":"$31:"},{"Add":" %111 = phi i64 [%102, %$34], [%108, %$30] ; # X"},{"Add":" %112 = phi i1 [%103, %$34], [%109, %$30] ; # Sign"},{"Add":" %113 = phi i64 [%104, %$34], [%110, %$30] ; # N"},{"Add":" %114 = phi i64 [%107, %$34], [%110, %$30] ; # ->"},{"Add":" br label %$19"},{"Add":"$25:"},{"Add":" %115 = phi i64 [%75, %$24] ; # X"},{"Add":" %116 = phi i1 [%70, %$24] ; # Sign"},{"Add":" %117 = phi i64 [%71, %$24] ; # N"},{"Add":"; # (? (== N ZERO) N)"},{"Add":"; # (== N ZERO)"},{"Add":" %118 = icmp eq i64 %117, 2"},{"Add":" br i1 %118, label %$36, label %$35"},{"Add":"$36:"},{"Add":" %119 = phi i64 [%115, %$25] ; # X"},{"Add":" %120 = phi i1 [%116, %$25] ; # Sign"},{"Add":" %121 = phi i64 [%117, %$25] ; # N"},{"Add":" br label %$19"},{"Add":"$35:"},{"Add":" %122 = phi i64 [%115, %$25] ; # X"},{"Add":" %123 = phi i1 [%116, %$25] ; # Sign"},{"Add":" %124 = phi i64 [%117, %$25] ; # N"},{"Add":"; # (set R (mulu (val R) N))"},{"Add":"; # (val R)"},{"Add":" %125 = inttoptr i64 %31 to i64*"},{"Add":" %126 = load i64, i64* %125"},{"Add":"; # (mulu (val R) N)"},{"Add":" %127 = call i64 @mulu(i64 %126, i64 %124)"},{"Add":" %128 = inttoptr i64 %31 to i64*"},{"Add":" store i64 %127, i64* %128"},{"Add":" br label %$12"},{"Add":"$19:"},{"Add":" %129 = phi i64 [%54, %$20], [%111, %$31], [%119, %$36] ; # X"},{"Add":" %130 = phi i1 [%55, %$20], [%112, %$31], [%120, %$36] ; # Sign"},{"Add":" %131 = phi i64 [%56, %$20], [%114, %$31], [%121, %$36] ; # ->"},{"Add":"; # drop"},{"Add":" %132 = inttoptr i64 %20 to i64*"},{"Add":" %133 = getelementptr i64, i64* %132, i32 1"},{"Add":" %134 = load i64, i64* %133"},{"Add":" %135 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %134, i64* %135"},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %136 = phi i64 [%15, %$7], [%129, %$19] ; # X"},{"Add":" %137 = phi i64 [%13, %$7], [%131, %$19] ; # ->"},{"Add":" ret i64 %137"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Div(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let X (cdr Exe) (if (nil? (eval (car X))) @ (save -ZERO (let (Si..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (if (nil? (eval (car X))) @ (save -ZERO (let (Sign (sign? (needNu..."},{"Add":"; # (car X)"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":"; # (eval (car X))"},{"Add":" %6 = and i64 %5, 6"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$4, label %$3"},{"Add":"$4:"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %8 = and i64 %5, 8"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br i1 %9, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %10 = inttoptr i64 %5 to i64*"},{"Add":" %11 = load i64, i64* %10"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":" %12 = call i64 @evList(i64 %5)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %13 = phi i64 [%5, %$4], [%11, %$6], [%12, %$5] ; # ->"},{"Add":"; # (nil? (eval (car X)))"},{"Add":" %14 = icmp eq i64 %13, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %14, label %$7, label %$8"},{"Add":"$7:"},{"Add":" %15 = phi i64 [%3, %$2] ; # X"},{"Add":" br label %$9"},{"Add":"$8:"},{"Add":" %16 = phi i64 [%3, %$2] ; # X"},{"Add":"; # (save -ZERO (let (Sign (sign? (needNum Exe @)) R (link (push (pos..."},{"Add":" %17 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %18 = load i64, i64* %17"},{"Add":" %19 = alloca i64, i64 2, align 16"},{"Add":" %20 = ptrtoint i64* %19 to i64"},{"Add":" %21 = inttoptr i64 %20 to i64*"},{"Add":" store i64 10, i64* %21"},{"Add":" %22 = add i64 %20, 8"},{"Add":" %23 = inttoptr i64 %22 to i64*"},{"Add":" store i64 %18, i64* %23"},{"Add":" %24 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %20, i64* %24"},{"Add":"; # (let (Sign (sign? (needNum Exe @)) R (link (push (pos @) NIL))) (..."},{"Add":"; # (needNum Exe @)"},{"Add":" %25 = and i64 %13, 6"},{"Add":" %26 = icmp ne i64 %25, 0"},{"Add":" br i1 %26, label %$11, label %$10"},{"Add":"$10:"},{"Add":" call void @numErr(i64 %0, i64 %13)"},{"Add":" unreachable"},{"Add":"$11:"},{"Add":"; # (sign? (needNum Exe @))"},{"Add":" %27 = and i64 %13, 8"},{"Add":" %28 = icmp ne i64 %27, 0"},{"Add":"; # (pos @)"},{"Add":" %29 = and i64 %13, -9"},{"Add":"; # (push (pos @) NIL)"},{"Add":" %30 = alloca i64, i64 2, align 16"},{"Add":" %31 = ptrtoint i64* %30 to i64"},{"Add":" %32 = inttoptr i64 %31 to i64*"},{"Add":" store i64 %29, i64* %32"},{"Add":"; # (link (push (pos @) NIL))"},{"Add":" %33 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %34 = load i64, i64* %33"},{"Add":" %35 = inttoptr i64 %31 to i64*"},{"Add":" %36 = getelementptr i64, i64* %35, i32 1"},{"Add":" store i64 %34, i64* %36"},{"Add":" %37 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %31, i64* %37"},{"Add":"; # (loop (? (atom (shift X)) (let N (val R) (if Sign (neg N) N))) (l..."},{"Add":" br label %$12"},{"Add":"$12:"},{"Add":" %38 = phi i64 [%16, %$11], [%94, %$34] ; # X"},{"Add":" %39 = phi i1 [%28, %$11], [%95, %$34] ; # Sign"},{"Add":"; # (? (atom (shift X)) (let N (val R) (if Sign (neg N) N)))"},{"Add":"; # (shift X)"},{"Add":" %40 = inttoptr i64 %38 to i64*"},{"Add":" %41 = getelementptr i64, i64* %40, i32 1"},{"Add":" %42 = load i64, i64* %41"},{"Add":"; # (atom (shift X))"},{"Add":" %43 = and i64 %42, 15"},{"Add":" %44 = icmp ne i64 %43, 0"},{"Add":" br i1 %44, label %$15, label %$13"},{"Add":"$15:"},{"Add":" %45 = phi i64 [%42, %$12] ; # X"},{"Add":" %46 = phi i1 [%39, %$12] ; # Sign"},{"Add":"; # (let N (val R) (if Sign (neg N) N))"},{"Add":"; # (val R)"},{"Add":" %47 = inttoptr i64 %31 to i64*"},{"Add":" %48 = load i64, i64* %47"},{"Add":"; # (if Sign (neg N) N)"},{"Add":" br i1 %46, label %$16, label %$17"},{"Add":"$16:"},{"Add":" %49 = phi i64 [%45, %$15] ; # X"},{"Add":" %50 = phi i1 [%46, %$15] ; # Sign"},{"Add":"; # (neg N)"},{"Add":" %51 = icmp eq i64 %48, 2"},{"Add":" br i1 %51, label %$19, label %$20"},{"Add":"$19:"},{"Add":" br label %$21"},{"Add":"$20:"},{"Add":" %52 = xor i64 %48, 8"},{"Add":" br label %$21"},{"Add":"$21:"},{"Add":" %53 = phi i64 [%48, %$19], [%52, %$20] ; # ->"},{"Add":" br label %$18"},{"Add":"$17:"},{"Add":" %54 = phi i64 [%45, %$15] ; # X"},{"Add":" %55 = phi i1 [%46, %$15] ; # Sign"},{"Add":" br label %$18"},{"Add":"$18:"},{"Add":" %56 = phi i64 [%49, %$21], [%54, %$17] ; # X"},{"Add":" %57 = phi i1 [%50, %$21], [%55, %$17] ; # Sign"},{"Add":" %58 = phi i64 [%53, %$21], [%48, %$17] ; # ->"},{"Add":" br label %$14"},{"Add":"$13:"},{"Add":" %59 = phi i64 [%42, %$12] ; # X"},{"Add":" %60 = phi i1 [%39, %$12] ; # Sign"},{"Add":"; # (let N (eval (car X)) (? (nil? N) N) (when (== N ZERO) (divErr Ex..."},{"Add":"; # (car X)"},{"Add":" %61 = inttoptr i64 %59 to i64*"},{"Add":" %62 = load i64, i64* %61"},{"Add":"; # (eval (car X))"},{"Add":" %63 = and i64 %62, 6"},{"Add":" %64 = icmp ne i64 %63, 0"},{"Add":" br i1 %64, label %$24, label %$23"},{"Add":"$24:"},{"Add":" br label %$22"},{"Add":"$23:"},{"Add":" %65 = and i64 %62, 8"},{"Add":" %66 = icmp ne i64 %65, 0"},{"Add":" br i1 %66, label %$26, label %$25"},{"Add":"$26:"},{"Add":" %67 = inttoptr i64 %62 to i64*"},{"Add":" %68 = load i64, i64* %67"},{"Add":" br label %$22"},{"Add":"$25:"},{"Add":" %69 = call i64 @evList(i64 %62)"},{"Add":" br label %$22"},{"Add":"$22:"},{"Add":" %70 = phi i64 [%62, %$24], [%68, %$26], [%69, %$25] ; # ->"},{"Add":"; # (? (nil? N) N)"},{"Add":"; # (nil? N)"},{"Add":" %71 = icmp eq i64 %70, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %71, label %$28, label %$27"},{"Add":"$28:"},{"Add":" %72 = phi i64 [%59, %$22] ; # X"},{"Add":" %73 = phi i1 [%60, %$22] ; # Sign"},{"Add":" %74 = phi i64 [%70, %$22] ; # N"},{"Add":" br label %$14"},{"Add":"$27:"},{"Add":" %75 = phi i64 [%59, %$22] ; # X"},{"Add":" %76 = phi i1 [%60, %$22] ; # Sign"},{"Add":" %77 = phi i64 [%70, %$22] ; # N"},{"Add":"; # (when (== N ZERO) (divErr Exe))"},{"Add":"; # (== N ZERO)"},{"Add":" %78 = icmp eq i64 %77, 2"},{"Add":" br i1 %78, label %$29, label %$30"},{"Add":"$29:"},{"Add":" %79 = phi i64 [%75, %$27] ; # X"},{"Add":" %80 = phi i1 [%76, %$27] ; # Sign"},{"Add":" %81 = phi i64 [%77, %$27] ; # N"},{"Add":"; # (divErr Exe)"},{"Add":" call void @divErr(i64 %0)"},{"Add":" unreachable"},{"Add":"$30:"},{"Add":" %82 = phi i64 [%75, %$27] ; # X"},{"Add":" %83 = phi i1 [%76, %$27] ; # Sign"},{"Add":" %84 = phi i64 [%77, %$27] ; # N"},{"Add":"; # (when (sign? (needNum Exe N)) (setq Sign (not Sign) N (pos N)))"},{"Add":"; # (needNum Exe N)"},{"Add":" %85 = and i64 %84, 6"},{"Add":" %86 = icmp ne i64 %85, 0"},{"Add":" br i1 %86, label %$32, label %$31"},{"Add":"$31:"},{"Add":" call void @numErr(i64 %0, i64 %84)"},{"Add":" unreachable"},{"Add":"$32:"},{"Add":"; # (sign? (needNum Exe N))"},{"Add":" %87 = and i64 %84, 8"},{"Add":" %88 = icmp ne i64 %87, 0"},{"Add":" br i1 %88, label %$33, label %$34"},{"Add":"$33:"},{"Add":" %89 = phi i64 [%82, %$32] ; # X"},{"Add":" %90 = phi i1 [%83, %$32] ; # Sign"},{"Add":" %91 = phi i64 [%84, %$32] ; # N"},{"Add":"; # (not Sign)"},{"Add":" %92 = icmp eq i1 %90, 0"},{"Add":"; # (pos N)"},{"Add":" %93 = and i64 %91, -9"},{"Add":" br label %$34"},{"Add":"$34:"},{"Add":" %94 = phi i64 [%82, %$32], [%89, %$33] ; # X"},{"Add":" %95 = phi i1 [%83, %$32], [%92, %$33] ; # Sign"},{"Add":" %96 = phi i64 [%84, %$32], [%93, %$33] ; # N"},{"Add":"; # (safe N)"},{"Add":" %97 = inttoptr i64 %20 to i64*"},{"Add":" store i64 %96, i64* %97"},{"Add":"; # (set R (divu (val R) N))"},{"Add":"; # (val R)"},{"Add":" %98 = inttoptr i64 %31 to i64*"},{"Add":" %99 = load i64, i64* %98"},{"Add":"; # (divu (val R) N)"},{"Add":" %100 = call i64 @divu(i64 %99, i64 %96)"},{"Add":" %101 = inttoptr i64 %31 to i64*"},{"Add":" store i64 %100, i64* %101"},{"Add":" br label %$12"},{"Add":"$14:"},{"Add":" %102 = phi i64 [%56, %$18], [%72, %$28] ; # X"},{"Add":" %103 = phi i1 [%57, %$18], [%73, %$28] ; # Sign"},{"Add":" %104 = phi i64 [%58, %$18], [%74, %$28] ; # ->"},{"Add":"; # drop"},{"Add":" %105 = inttoptr i64 %20 to i64*"},{"Add":" %106 = getelementptr i64, i64* %105, i32 1"},{"Add":" %107 = load i64, i64* %106"},{"Add":" %108 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %107, i64* %108"},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %109 = phi i64 [%15, %$7], [%102, %$14] ; # X"},{"Add":" %110 = phi i64 [%13, %$7], [%104, %$14] ; # ->"},{"Add":" ret i64 %110"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Rem(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let X (cdr Exe) (if (nil? (eval (car X))) @ (save -ZERO (let (Si..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (if (nil? (eval (car X))) @ (save -ZERO (let (Sign (sign? (needNu..."},{"Add":"; # (car X)"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":"; # (eval (car X))"},{"Add":" %6 = and i64 %5, 6"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$4, label %$3"},{"Add":"$4:"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %8 = and i64 %5, 8"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br i1 %9, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %10 = inttoptr i64 %5 to i64*"},{"Add":" %11 = load i64, i64* %10"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":" %12 = call i64 @evList(i64 %5)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %13 = phi i64 [%5, %$4], [%11, %$6], [%12, %$5] ; # ->"},{"Add":"; # (nil? (eval (car X)))"},{"Add":" %14 = icmp eq i64 %13, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %14, label %$7, label %$8"},{"Add":"$7:"},{"Add":" %15 = phi i64 [%3, %$2] ; # X"},{"Add":" br label %$9"},{"Add":"$8:"},{"Add":" %16 = phi i64 [%3, %$2] ; # X"},{"Add":"; # (save -ZERO (let (Sign (sign? (needNum Exe @)) R (link (push (pos..."},{"Add":" %17 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %18 = load i64, i64* %17"},{"Add":" %19 = alloca i64, i64 2, align 16"},{"Add":" %20 = ptrtoint i64* %19 to i64"},{"Add":" %21 = inttoptr i64 %20 to i64*"},{"Add":" store i64 10, i64* %21"},{"Add":" %22 = add i64 %20, 8"},{"Add":" %23 = inttoptr i64 %22 to i64*"},{"Add":" store i64 %18, i64* %23"},{"Add":" %24 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %20, i64* %24"},{"Add":"; # (let (Sign (sign? (needNum Exe @)) R (link (push (pos @) NIL))) (..."},{"Add":"; # (needNum Exe @)"},{"Add":" %25 = and i64 %13, 6"},{"Add":" %26 = icmp ne i64 %25, 0"},{"Add":" br i1 %26, label %$11, label %$10"},{"Add":"$10:"},{"Add":" call void @numErr(i64 %0, i64 %13)"},{"Add":" unreachable"},{"Add":"$11:"},{"Add":"; # (sign? (needNum Exe @))"},{"Add":" %27 = and i64 %13, 8"},{"Add":" %28 = icmp ne i64 %27, 0"},{"Add":"; # (pos @)"},{"Add":" %29 = and i64 %13, -9"},{"Add":"; # (push (pos @) NIL)"},{"Add":" %30 = alloca i64, i64 2, align 16"},{"Add":" %31 = ptrtoint i64* %30 to i64"},{"Add":" %32 = inttoptr i64 %31 to i64*"},{"Add":" store i64 %29, i64* %32"},{"Add":"; # (link (push (pos @) NIL))"},{"Add":" %33 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %34 = load i64, i64* %33"},{"Add":" %35 = inttoptr i64 %31 to i64*"},{"Add":" %36 = getelementptr i64, i64* %35, i32 1"},{"Add":" store i64 %34, i64* %36"},{"Add":" %37 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %31, i64* %37"},{"Add":"; # (loop (? (atom (shift X)) (let N (val R) (if Sign (neg N) N))) (l..."},{"Add":" br label %$12"},{"Add":"$12:"},{"Add":" %38 = phi i64 [%16, %$11], [%70, %$32] ; # X"},{"Add":"; # (? (atom (shift X)) (let N (val R) (if Sign (neg N) N)))"},{"Add":"; # (shift X)"},{"Add":" %39 = inttoptr i64 %38 to i64*"},{"Add":" %40 = getelementptr i64, i64* %39, i32 1"},{"Add":" %41 = load i64, i64* %40"},{"Add":"; # (atom (shift X))"},{"Add":" %42 = and i64 %41, 15"},{"Add":" %43 = icmp ne i64 %42, 0"},{"Add":" br i1 %43, label %$15, label %$13"},{"Add":"$15:"},{"Add":" %44 = phi i64 [%41, %$12] ; # X"},{"Add":"; # (let N (val R) (if Sign (neg N) N))"},{"Add":"; # (val R)"},{"Add":" %45 = inttoptr i64 %31 to i64*"},{"Add":" %46 = load i64, i64* %45"},{"Add":"; # (if Sign (neg N) N)"},{"Add":" br i1 %28, label %$16, label %$17"},{"Add":"$16:"},{"Add":" %47 = phi i64 [%44, %$15] ; # X"},{"Add":"; # (neg N)"},{"Add":" %48 = icmp eq i64 %46, 2"},{"Add":" br i1 %48, label %$19, label %$20"},{"Add":"$19:"},{"Add":" br label %$21"},{"Add":"$20:"},{"Add":" %49 = xor i64 %46, 8"},{"Add":" br label %$21"},{"Add":"$21:"},{"Add":" %50 = phi i64 [%46, %$19], [%49, %$20] ; # ->"},{"Add":" br label %$18"},{"Add":"$17:"},{"Add":" %51 = phi i64 [%44, %$15] ; # X"},{"Add":" br label %$18"},{"Add":"$18:"},{"Add":" %52 = phi i64 [%47, %$21], [%51, %$17] ; # X"},{"Add":" %53 = phi i64 [%50, %$21], [%46, %$17] ; # ->"},{"Add":" br label %$14"},{"Add":"$13:"},{"Add":" %54 = phi i64 [%41, %$12] ; # X"},{"Add":"; # (let N (eval (car X)) (? (nil? N) N) (when (== N ZERO) (divErr Ex..."},{"Add":"; # (car X)"},{"Add":" %55 = inttoptr i64 %54 to i64*"},{"Add":" %56 = load i64, i64* %55"},{"Add":"; # (eval (car X))"},{"Add":" %57 = and i64 %56, 6"},{"Add":" %58 = icmp ne i64 %57, 0"},{"Add":" br i1 %58, label %$24, label %$23"},{"Add":"$24:"},{"Add":" br label %$22"},{"Add":"$23:"},{"Add":" %59 = and i64 %56, 8"},{"Add":" %60 = icmp ne i64 %59, 0"},{"Add":" br i1 %60, label %$26, label %$25"},{"Add":"$26:"},{"Add":" %61 = inttoptr i64 %56 to i64*"},{"Add":" %62 = load i64, i64* %61"},{"Add":" br label %$22"},{"Add":"$25:"},{"Add":" %63 = call i64 @evList(i64 %56)"},{"Add":" br label %$22"},{"Add":"$22:"},{"Add":" %64 = phi i64 [%56, %$24], [%62, %$26], [%63, %$25] ; # ->"},{"Add":"; # (? (nil? N) N)"},{"Add":"; # (nil? N)"},{"Add":" %65 = icmp eq i64 %64, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %65, label %$28, label %$27"},{"Add":"$28:"},{"Add":" %66 = phi i64 [%54, %$22] ; # X"},{"Add":" br label %$14"},{"Add":"$27:"},{"Add":" %67 = phi i64 [%54, %$22] ; # X"},{"Add":"; # (when (== N ZERO) (divErr Exe))"},{"Add":"; # (== N ZERO)"},{"Add":" %68 = icmp eq i64 %64, 2"},{"Add":" br i1 %68, label %$29, label %$30"},{"Add":"$29:"},{"Add":" %69 = phi i64 [%67, %$27] ; # X"},{"Add":"; # (divErr Exe)"},{"Add":" call void @divErr(i64 %0)"},{"Add":" unreachable"},{"Add":"$30:"},{"Add":" %70 = phi i64 [%67, %$27] ; # X"},{"Add":"; # (set R (remu (val R) (safe (pos (needNum Exe N)))))"},{"Add":"; # (val R)"},{"Add":" %71 = inttoptr i64 %31 to i64*"},{"Add":" %72 = load i64, i64* %71"},{"Add":"; # (needNum Exe N)"},{"Add":" %73 = and i64 %64, 6"},{"Add":" %74 = icmp ne i64 %73, 0"},{"Add":" br i1 %74, label %$32, label %$31"},{"Add":"$31:"},{"Add":" call void @numErr(i64 %0, i64 %64)"},{"Add":" unreachable"},{"Add":"$32:"},{"Add":"; # (pos (needNum Exe N))"},{"Add":" %75 = and i64 %64, -9"},{"Add":"; # (safe (pos (needNum Exe N)))"},{"Add":" %76 = inttoptr i64 %20 to i64*"},{"Add":" store i64 %75, i64* %76"},{"Add":"; # (remu (val R) (safe (pos (needNum Exe N))))"},{"Add":" %77 = call i64 @remu(i64 %72, i64 %75)"},{"Add":" %78 = inttoptr i64 %31 to i64*"},{"Add":" store i64 %77, i64* %78"},{"Add":" br label %$12"},{"Add":"$14:"},{"Add":" %79 = phi i64 [%52, %$18], [%66, %$28] ; # X"},{"Add":" %80 = phi i64 [%53, %$18], [%64, %$28] ; # ->"},{"Add":"; # drop"},{"Add":" %81 = inttoptr i64 %20 to i64*"},{"Add":" %82 = getelementptr i64, i64* %81, i32 1"},{"Add":" %83 = load i64, i64* %82"},{"Add":" %84 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %83, i64* %84"},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %85 = phi i64 [%15, %$7], [%79, %$14] ; # X"},{"Add":" %86 = phi i64 [%13, %$7], [%80, %$14] ; # ->"},{"Add":" ret i64 %86"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Shr(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let (X (cdr Exe) N (evCnt Exe X) Y (eval (cadr X))) (if (or (=0 ..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (evCnt Exe X)"},{"Add":" %4 = call i64 @evCnt(i64 %0, i64 %3)"},{"Add":"; # (cadr X)"},{"Add":" %5 = inttoptr i64 %3 to i64*"},{"Add":" %6 = getelementptr i64, i64* %5, i32 1"},{"Add":" %7 = load i64, i64* %6"},{"Add":" %8 = inttoptr i64 %7 to i64*"},{"Add":" %9 = load i64, i64* %8"},{"Add":"; # (eval (cadr X))"},{"Add":" %10 = and i64 %9, 6"},{"Add":" %11 = icmp ne i64 %10, 0"},{"Add":" br i1 %11, label %$4, label %$3"},{"Add":"$4:"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %12 = and i64 %9, 8"},{"Add":" %13 = icmp ne i64 %12, 0"},{"Add":" br i1 %13, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %14 = inttoptr i64 %9 to i64*"},{"Add":" %15 = load i64, i64* %14"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":" %16 = call i64 @evList(i64 %9)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %17 = phi i64 [%9, %$4], [%15, %$6], [%16, %$5] ; # ->"},{"Add":"; # (if (or (=0 N) (nil? Y) (== ZERO (needNum Exe Y))) Y (let Sign (s..."},{"Add":"; # (or (=0 N) (nil? Y) (== ZERO (needNum Exe Y)))"},{"Add":"; # (=0 N)"},{"Add":" %18 = icmp eq i64 %4, 0"},{"Add":" br i1 %18, label %$7, label %$8"},{"Add":"$8:"},{"Add":" %19 = phi i64 [%4, %$2] ; # N"},{"Add":" %20 = phi i64 [%17, %$2] ; # Y"},{"Add":"; # (nil? Y)"},{"Add":" %21 = icmp eq i64 %20, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %21, label %$7, label %$9"},{"Add":"$9:"},{"Add":" %22 = phi i64 [%19, %$8] ; # N"},{"Add":" %23 = phi i64 [%20, %$8] ; # Y"},{"Add":"; # (needNum Exe Y)"},{"Add":" %24 = and i64 %23, 6"},{"Add":" %25 = icmp ne i64 %24, 0"},{"Add":" br i1 %25, label %$11, label %$10"},{"Add":"$10:"},{"Add":" call void @numErr(i64 %0, i64 %23)"},{"Add":" unreachable"},{"Add":"$11:"},{"Add":"; # (== ZERO (needNum Exe Y))"},{"Add":" %26 = icmp eq i64 2, %23"},{"Add":" br label %$7"},{"Add":"$7:"},{"Add":" %27 = phi i64 [%4, %$2], [%19, %$8], [%22, %$11] ; # N"},{"Add":" %28 = phi i64 [%17, %$2], [%20, %$8], [%23, %$11] ; # Y"},{"Add":" %29 = phi i1 [1, %$2], [1, %$8], [%26, %$11] ; # ->"},{"Add":" br i1 %29, label %$12, label %$13"},{"Add":"$12:"},{"Add":" %30 = phi i64 [%27, %$7] ; # N"},{"Add":" %31 = phi i64 [%28, %$7] ; # Y"},{"Add":" br label %$14"},{"Add":"$13:"},{"Add":" %32 = phi i64 [%27, %$7] ; # N"},{"Add":" %33 = phi i64 [%28, %$7] ; # Y"},{"Add":"; # (let Sign (sign? Y) (setq Y (save (pos Y))) (cond ((gt0 N) (while..."},{"Add":"; # (sign? Y)"},{"Add":" %34 = and i64 %33, 8"},{"Add":" %35 = icmp ne i64 %34, 0"},{"Add":"; # (pos Y)"},{"Add":" %36 = and i64 %33, -9"},{"Add":"; # (save (pos Y))"},{"Add":" %37 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %38 = load i64, i64* %37"},{"Add":" %39 = alloca i64, i64 2, align 16"},{"Add":" %40 = ptrtoint i64* %39 to i64"},{"Add":" %41 = inttoptr i64 %40 to i64*"},{"Add":" store i64 %36, i64* %41"},{"Add":" %42 = add i64 %40, 8"},{"Add":" %43 = inttoptr i64 %42 to i64*"},{"Add":" store i64 %38, i64* %43"},{"Add":" %44 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %40, i64* %44"},{"Add":"; # (cond ((gt0 N) (while (and (big? Y) (>= N 64)) (setq Y (val (big ..."},{"Add":"; # (gt0 N)"},{"Add":" %45 = icmp sgt i64 %32, 0"},{"Add":" br i1 %45, label %$17, label %$16"},{"Add":"$17:"},{"Add":" %46 = phi i64 [%32, %$13] ; # N"},{"Add":" %47 = phi i64 [%36, %$13] ; # Y"},{"Add":"; # (while (and (big? Y) (>= N 64)) (setq Y (val (big Y))) (unless (d..."},{"Add":" br label %$18"},{"Add":"$18:"},{"Add":" %48 = phi i64 [%46, %$17], [%67, %$24] ; # N"},{"Add":" %49 = phi i64 [%47, %$17], [%68, %$24] ; # Y"},{"Add":"; # (and (big? Y) (>= N 64))"},{"Add":"; # (big? Y)"},{"Add":" %50 = and i64 %49, 4"},{"Add":" %51 = icmp ne i64 %50, 0"},{"Add":" br i1 %51, label %$20, label %$19"},{"Add":"$20:"},{"Add":" %52 = phi i64 [%48, %$18] ; # N"},{"Add":" %53 = phi i64 [%49, %$18] ; # Y"},{"Add":"; # (>= N 64)"},{"Add":" %54 = icmp uge i64 %52, 64"},{"Add":" br label %$19"},{"Add":"$19:"},{"Add":" %55 = phi i64 [%48, %$18], [%52, %$20] ; # N"},{"Add":" %56 = phi i64 [%49, %$18], [%53, %$20] ; # Y"},{"Add":" %57 = phi i1 [0, %$18], [%54, %$20] ; # ->"},{"Add":" br i1 %57, label %$21, label %$22"},{"Add":"$21:"},{"Add":" %58 = phi i64 [%55, %$19] ; # N"},{"Add":" %59 = phi i64 [%56, %$19] ; # Y"},{"Add":"; # (big Y)"},{"Add":" %60 = add i64 %59, 4"},{"Add":"; # (val (big Y))"},{"Add":" %61 = inttoptr i64 %60 to i64*"},{"Add":" %62 = load i64, i64* %61"},{"Add":"; # (unless (dec 'N 64) (goto 9))"},{"Add":"; # (dec 'N 64)"},{"Add":" %63 = sub i64 %58, 64"},{"Add":" %64 = icmp ne i64 %63, 0"},{"Add":" br i1 %64, label %$24, label %$23"},{"Add":"$23:"},{"Add":" %65 = phi i64 [%63, %$21] ; # N"},{"Add":" %66 = phi i64 [%62, %$21] ; # Y"},{"Add":"; # (goto 9)"},{"Add":" br label %$-9"},{"Add":"$24:"},{"Add":" %67 = phi i64 [%63, %$21] ; # N"},{"Add":" %68 = phi i64 [%62, %$21] ; # Y"},{"Add":" br label %$18"},{"Add":"$22:"},{"Add":" %69 = phi i64 [%55, %$19] ; # N"},{"Add":" %70 = phi i64 [%56, %$19] ; # Y"},{"Add":"; # (shru Y)"},{"Add":" %71 = call i64 @shru(i64 %70)"},{"Add":"; # (safe (shru Y))"},{"Add":" %72 = inttoptr i64 %40 to i64*"},{"Add":" store i64 %71, i64* %72"},{"Add":"; # (while (dec 'N) (setq Y (half Y)))"},{"Add":" br label %$25"},{"Add":"$25:"},{"Add":" %73 = phi i64 [%69, %$22], [%77, %$26] ; # N"},{"Add":" %74 = phi i64 [%71, %$22], [%79, %$26] ; # Y"},{"Add":"; # (dec 'N)"},{"Add":" %75 = sub i64 %73, 1"},{"Add":" %76 = icmp ne i64 %75, 0"},{"Add":" br i1 %76, label %$26, label %$27"},{"Add":"$26:"},{"Add":" %77 = phi i64 [%75, %$25] ; # N"},{"Add":" %78 = phi i64 [%74, %$25] ; # Y"},{"Add":"; # (half Y)"},{"Add":" %79 = call i64 @half(i64 %78)"},{"Add":" br label %$25"},{"Add":"$27:"},{"Add":" %80 = phi i64 [%75, %$25] ; # N"},{"Add":" %81 = phi i64 [%74, %$25] ; # Y"},{"Add":" br label %$15"},{"Add":"$16:"},{"Add":" %82 = phi i64 [%32, %$13] ; # N"},{"Add":" %83 = phi i64 [%36, %$13] ; # Y"},{"Add":"; # (while (>= -64 N) (setq Y (safe (consNum 0 Y))) (unless (inc 'N 6..."},{"Add":" br label %$28"},{"Add":"$28:"},{"Add":" %84 = phi i64 [%82, %$16], [%95, %$32] ; # N"},{"Add":" %85 = phi i64 [%83, %$16], [%96, %$32] ; # Y"},{"Add":"; # (>= -64 N)"},{"Add":" %86 = icmp uge i64 -64, %84"},{"Add":" br i1 %86, label %$29, label %$30"},{"Add":"$29:"},{"Add":" %87 = phi i64 [%84, %$28] ; # N"},{"Add":" %88 = phi i64 [%85, %$28] ; # Y"},{"Add":"; # (consNum 0 Y)"},{"Add":" %89 = call i64 @consNum(i64 0, i64 %88)"},{"Add":"; # (safe (consNum 0 Y))"},{"Add":" %90 = inttoptr i64 %40 to i64*"},{"Add":" store i64 %89, i64* %90"},{"Add":"; # (unless (inc 'N 64) (goto 9))"},{"Add":"; # (inc 'N 64)"},{"Add":" %91 = add i64 %87, 64"},{"Add":" %92 = icmp ne i64 %91, 0"},{"Add":" br i1 %92, label %$32, label %$31"},{"Add":"$31:"},{"Add":" %93 = phi i64 [%91, %$29] ; # N"},{"Add":" %94 = phi i64 [%89, %$29] ; # Y"},{"Add":"; # (goto 9)"},{"Add":" br label %$-9"},{"Add":"$32:"},{"Add":" %95 = phi i64 [%91, %$29] ; # N"},{"Add":" %96 = phi i64 [%89, %$29] ; # Y"},{"Add":" br label %$28"},{"Add":"$30:"},{"Add":" %97 = phi i64 [%84, %$28] ; # N"},{"Add":" %98 = phi i64 [%85, %$28] ; # Y"},{"Add":"; # (shlu Y)"},{"Add":" %99 = call i64 @shlu(i64 %98)"},{"Add":"; # (safe (shlu Y))"},{"Add":" %100 = inttoptr i64 %40 to i64*"},{"Add":" store i64 %99, i64* %100"},{"Add":"; # (while (inc 'N) (setq Y (safe (twice Y))))"},{"Add":" br label %$33"},{"Add":"$33:"},{"Add":" %101 = phi i64 [%97, %$30], [%105, %$34] ; # N"},{"Add":" %102 = phi i64 [%99, %$30], [%107, %$34] ; # Y"},{"Add":"; # (inc 'N)"},{"Add":" %103 = add i64 %101, 1"},{"Add":" %104 = icmp ne i64 %103, 0"},{"Add":" br i1 %104, label %$34, label %$35"},{"Add":"$34:"},{"Add":" %105 = phi i64 [%103, %$33] ; # N"},{"Add":" %106 = phi i64 [%102, %$33] ; # Y"},{"Add":"; # (twice Y)"},{"Add":" %107 = call i64 @twice(i64 %106)"},{"Add":"; # (safe (twice Y))"},{"Add":" %108 = inttoptr i64 %40 to i64*"},{"Add":" store i64 %107, i64* %108"},{"Add":" br label %$33"},{"Add":"$35:"},{"Add":" %109 = phi i64 [%103, %$33] ; # N"},{"Add":" %110 = phi i64 [%102, %$33] ; # Y"},{"Add":" br label %$15"},{"Add":"$15:"},{"Add":" %111 = phi i64 [%80, %$27], [%109, %$35] ; # N"},{"Add":" %112 = phi i64 [%81, %$27], [%110, %$35] ; # Y"},{"Add":"; # (: 9 (if Sign (neg Y) Y))"},{"Add":" br label %$-9"},{"Add":"$-9:"},{"Add":" %113 = phi i64 [%65, %$23], [%93, %$31], [%111, %$15] ; # N"},{"Add":" %114 = phi i64 [%66, %$23], [%94, %$31], [%112, %$15] ; # Y"},{"Add":"; # (if Sign (neg Y) Y)"},{"Add":" br i1 %35, label %$36, label %$37"},{"Add":"$36:"},{"Add":" %115 = phi i64 [%113, %$-9] ; # N"},{"Add":" %116 = phi i64 [%114, %$-9] ; # Y"},{"Add":"; # (neg Y)"},{"Add":" %117 = icmp eq i64 %116, 2"},{"Add":" br i1 %117, label %$39, label %$40"},{"Add":"$39:"},{"Add":" br label %$41"},{"Add":"$40:"},{"Add":" %118 = xor i64 %116, 8"},{"Add":" br label %$41"},{"Add":"$41:"},{"Add":" %119 = phi i64 [%116, %$39], [%118, %$40] ; # ->"},{"Add":" br label %$38"},{"Add":"$37:"},{"Add":" %120 = phi i64 [%113, %$-9] ; # N"},{"Add":" %121 = phi i64 [%114, %$-9] ; # Y"},{"Add":" br label %$38"},{"Add":"$38:"},{"Add":" %122 = phi i64 [%115, %$41], [%120, %$37] ; # N"},{"Add":" %123 = phi i64 [%116, %$41], [%121, %$37] ; # Y"},{"Add":" %124 = phi i64 [%119, %$41], [%121, %$37] ; # ->"},{"Add":"; # (drop *Safe)"},{"Add":" %125 = inttoptr i64 %40 to i64*"},{"Add":" %126 = getelementptr i64, i64* %125, i32 1"},{"Add":" %127 = load i64, i64* %126"},{"Add":" %128 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %127, i64* %128"},{"Add":" br label %$14"},{"Add":"$14:"},{"Add":" %129 = phi i64 [%30, %$12], [%122, %$38] ; # N"},{"Add":" %130 = phi i64 [%31, %$12], [%123, %$38] ; # Y"},{"Add":" %131 = phi i64 [%31, %$12], [%124, %$38] ; # ->"},{"Add":" ret i64 %131"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Rev(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let (X (cdr Exe) C (evCnt Exe X) N (evCnt Exe (cdr X)) R 0) (loo..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (evCnt Exe X)"},{"Add":" %4 = call i64 @evCnt(i64 %0, i64 %3)"},{"Add":"; # (cdr X)"},{"Add":" %5 = inttoptr i64 %3 to i64*"},{"Add":" %6 = getelementptr i64, i64* %5, i32 1"},{"Add":" %7 = load i64, i64* %6"},{"Add":"; # (evCnt Exe (cdr X))"},{"Add":" %8 = call i64 @evCnt(i64 %0, i64 %7)"},{"Add":"; # (loop (setq R (+ R R (& N 1)) N (shr N 1)) (? (=0 (dec 'C))))"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %9 = phi i64 [%4, %$1], [%18, %$3] ; # C"},{"Add":" %10 = phi i64 [%8, %$1], [%19, %$3] ; # N"},{"Add":" %11 = phi i64 [0, %$1], [%20, %$3] ; # R"},{"Add":"; # (& N 1)"},{"Add":" %12 = and i64 %10, 1"},{"Add":"; # (+ R R (& N 1))"},{"Add":" %13 = add i64 %11, %11"},{"Add":" %14 = add i64 %13, %12"},{"Add":"; # (shr N 1)"},{"Add":" %15 = lshr i64 %10, 1"},{"Add":"; # (? (=0 (dec 'C)))"},{"Add":"; # (dec 'C)"},{"Add":" %16 = sub i64 %9, 1"},{"Add":"; # (=0 (dec 'C))"},{"Add":" %17 = icmp eq i64 %16, 0"},{"Add":" br i1 %17, label %$4, label %$3"},{"Add":"$3:"},{"Add":" %18 = phi i64 [%16, %$2] ; # C"},{"Add":" %19 = phi i64 [%15, %$2] ; # N"},{"Add":" %20 = phi i64 [%14, %$2] ; # R"},{"Add":" br label %$2"},{"Add":"$4:"},{"Add":" %21 = phi i64 [%16, %$2] ; # C"},{"Add":" %22 = phi i64 [%15, %$2] ; # N"},{"Add":" %23 = phi i64 [%14, %$2] ; # R"},{"Add":" %24 = phi i64 [0, %$2] ; # ->"},{"Add":"; # (cnt R)"},{"Add":" %25 = shl i64 %23, 4"},{"Add":" %26 = or i64 %25, 2"},{"Add":" ret i64 %26"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Lt0(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (if (and (num? (eval (cadr Exe))) (sign? @)) @ $Nil)"},{"Add":"; # (and (num? (eval (cadr Exe))) (sign? @))"},{"Add":"; # (cadr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":"; # (eval (cadr Exe))"},{"Add":" %6 = and i64 %5, 6"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$5, label %$4"},{"Add":"$5:"},{"Add":" br label %$3"},{"Add":"$4:"},{"Add":" %8 = and i64 %5, 8"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br i1 %9, label %$7, label %$6"},{"Add":"$7:"},{"Add":" %10 = inttoptr i64 %5 to i64*"},{"Add":" %11 = load i64, i64* %10"},{"Add":" br label %$3"},{"Add":"$6:"},{"Add":" %12 = call i64 @evList(i64 %5)"},{"Add":" br label %$3"},{"Add":"$3:"},{"Add":" %13 = phi i64 [%5, %$5], [%11, %$7], [%12, %$6] ; # ->"},{"Add":"; # (num? (eval (cadr Exe)))"},{"Add":" %14 = and i64 %13, 6"},{"Add":" %15 = icmp ne i64 %14, 0"},{"Add":" br i1 %15, label %$8, label %$2"},{"Add":"$8:"},{"Add":"; # (sign? @)"},{"Add":" %16 = and i64 %13, 8"},{"Add":" %17 = icmp ne i64 %16, 0"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %18 = phi i1 [0, %$3], [%17, %$8] ; # ->"},{"Add":" br i1 %18, label %$9, label %$10"},{"Add":"$9:"},{"Add":" br label %$11"},{"Add":"$10:"},{"Add":" br label %$11"},{"Add":"$11:"},{"Add":" %19 = phi i64 [%13, %$9], [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), %$10] ; # ->"},{"Add":" ret i64 %19"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Le0(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (if (and (num? (eval (cadr Exe))) (or (== @ ZERO) (sign? @))) @ $..."},{"Add":"; # (and (num? (eval (cadr Exe))) (or (== @ ZERO) (sign? @)))"},{"Add":"; # (cadr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":"; # (eval (cadr Exe))"},{"Add":" %6 = and i64 %5, 6"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$5, label %$4"},{"Add":"$5:"},{"Add":" br label %$3"},{"Add":"$4:"},{"Add":" %8 = and i64 %5, 8"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br i1 %9, label %$7, label %$6"},{"Add":"$7:"},{"Add":" %10 = inttoptr i64 %5 to i64*"},{"Add":" %11 = load i64, i64* %10"},{"Add":" br label %$3"},{"Add":"$6:"},{"Add":" %12 = call i64 @evList(i64 %5)"},{"Add":" br label %$3"},{"Add":"$3:"},{"Add":" %13 = phi i64 [%5, %$5], [%11, %$7], [%12, %$6] ; # ->"},{"Add":"; # (num? (eval (cadr Exe)))"},{"Add":" %14 = and i64 %13, 6"},{"Add":" %15 = icmp ne i64 %14, 0"},{"Add":" br i1 %15, label %$8, label %$2"},{"Add":"$8:"},{"Add":"; # (or (== @ ZERO) (sign? @))"},{"Add":"; # (== @ ZERO)"},{"Add":" %16 = icmp eq i64 %13, 2"},{"Add":" br i1 %16, label %$9, label %$10"},{"Add":"$10:"},{"Add":"; # (sign? @)"},{"Add":" %17 = and i64 %13, 8"},{"Add":" %18 = icmp ne i64 %17, 0"},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %19 = phi i1 [1, %$8], [%18, %$10] ; # ->"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %20 = phi i1 [0, %$3], [%19, %$9] ; # ->"},{"Add":" br i1 %20, label %$11, label %$12"},{"Add":"$11:"},{"Add":" br label %$13"},{"Add":"$12:"},{"Add":" br label %$13"},{"Add":"$13:"},{"Add":" %21 = phi i64 [%13, %$11], [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), %$12] ; # ->"},{"Add":" ret i64 %21"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Ge0(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (if (and (num? (eval (cadr Exe))) (not (sign? @))) @ $Nil)"},{"Add":"; # (and (num? (eval (cadr Exe))) (not (sign? @)))"},{"Add":"; # (cadr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":"; # (eval (cadr Exe))"},{"Add":" %6 = and i64 %5, 6"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$5, label %$4"},{"Add":"$5:"},{"Add":" br label %$3"},{"Add":"$4:"},{"Add":" %8 = and i64 %5, 8"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br i1 %9, label %$7, label %$6"},{"Add":"$7:"},{"Add":" %10 = inttoptr i64 %5 to i64*"},{"Add":" %11 = load i64, i64* %10"},{"Add":" br label %$3"},{"Add":"$6:"},{"Add":" %12 = call i64 @evList(i64 %5)"},{"Add":" br label %$3"},{"Add":"$3:"},{"Add":" %13 = phi i64 [%5, %$5], [%11, %$7], [%12, %$6] ; # ->"},{"Add":"; # (num? (eval (cadr Exe)))"},{"Add":" %14 = and i64 %13, 6"},{"Add":" %15 = icmp ne i64 %14, 0"},{"Add":" br i1 %15, label %$8, label %$2"},{"Add":"$8:"},{"Add":"; # (sign? @)"},{"Add":" %16 = and i64 %13, 8"},{"Add":" %17 = icmp ne i64 %16, 0"},{"Add":"; # (not (sign? @))"},{"Add":" %18 = icmp eq i1 %17, 0"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %19 = phi i1 [0, %$3], [%18, %$8] ; # ->"},{"Add":" br i1 %19, label %$9, label %$10"},{"Add":"$9:"},{"Add":" br label %$11"},{"Add":"$10:"},{"Add":" br label %$11"},{"Add":"$11:"},{"Add":" %20 = phi i64 [%13, %$9], [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), %$10] ; # ->"},{"Add":" ret i64 %20"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Gt0(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (if (and (num? (eval (cadr Exe))) (<> @ ZERO) (not (sign? @))) @ ..."},{"Add":"; # (and (num? (eval (cadr Exe))) (<> @ ZERO) (not (sign? @)))"},{"Add":"; # (cadr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":"; # (eval (cadr Exe))"},{"Add":" %6 = and i64 %5, 6"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$5, label %$4"},{"Add":"$5:"},{"Add":" br label %$3"},{"Add":"$4:"},{"Add":" %8 = and i64 %5, 8"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br i1 %9, label %$7, label %$6"},{"Add":"$7:"},{"Add":" %10 = inttoptr i64 %5 to i64*"},{"Add":" %11 = load i64, i64* %10"},{"Add":" br label %$3"},{"Add":"$6:"},{"Add":" %12 = call i64 @evList(i64 %5)"},{"Add":" br label %$3"},{"Add":"$3:"},{"Add":" %13 = phi i64 [%5, %$5], [%11, %$7], [%12, %$6] ; # ->"},{"Add":"; # (num? (eval (cadr Exe)))"},{"Add":" %14 = and i64 %13, 6"},{"Add":" %15 = icmp ne i64 %14, 0"},{"Add":" br i1 %15, label %$8, label %$2"},{"Add":"$8:"},{"Add":"; # (<> @ ZERO)"},{"Add":" %16 = icmp ne i64 %13, 2"},{"Add":" br i1 %16, label %$9, label %$2"},{"Add":"$9:"},{"Add":"; # (sign? @)"},{"Add":" %17 = and i64 %13, 8"},{"Add":" %18 = icmp ne i64 %17, 0"},{"Add":"; # (not (sign? @))"},{"Add":" %19 = icmp eq i1 %18, 0"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %20 = phi i1 [0, %$3], [0, %$8], [%19, %$9] ; # ->"},{"Add":" br i1 %20, label %$10, label %$11"},{"Add":"$10:"},{"Add":" br label %$12"},{"Add":"$11:"},{"Add":" br label %$12"},{"Add":"$12:"},{"Add":" %21 = phi i64 [%13, %$10], [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), %$11] ; # ->"},{"Add":" ret i64 %21"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_Abs(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (if (nil? (eval (cadr Exe))) @ (pos (needNum Exe @)))"},{"Add":"; # (cadr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":"; # (eval (cadr Exe))"},{"Add":" %6 = and i64 %5, 6"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$4, label %$3"},{"Add":"$4:"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %8 = and i64 %5, 8"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br i1 %9, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %10 = inttoptr i64 %5 to i64*"},{"Add":" %11 = load i64, i64* %10"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":" %12 = call i64 @evList(i64 %5)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %13 = phi i64 [%5, %$4], [%11, %$6], [%12, %$5] ; # ->"},{"Add":"; # (nil? (eval (cadr Exe)))"},{"Add":" %14 = icmp eq i64 %13, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %14, label %$7, label %$8"},{"Add":"$7:"},{"Add":" br label %$9"},{"Add":"$8:"},{"Add":"; # (needNum Exe @)"},{"Add":" %15 = and i64 %13, 6"},{"Add":" %16 = icmp ne i64 %15, 0"},{"Add":" br i1 %16, label %$11, label %$10"},{"Add":"$10:"},{"Add":" call void @numErr(i64 %0, i64 %13)"},{"Add":" unreachable"},{"Add":"$11:"},{"Add":"; # (pos (needNum Exe @))"},{"Add":" %17 = and i64 %13, -9"},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %18 = phi i64 [%13, %$7], [%17, %$11] ; # ->"},{"Add":" ret i64 %18"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_BitQ(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let (X (cdr Exe) N (save (pos (needNum Exe (eval (++ X)))))) (lo..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (++ X)"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":" %6 = getelementptr i64, i64* %4, i32 1"},{"Add":" %7 = load i64, i64* %6"},{"Add":"; # (eval (++ X))"},{"Add":" %8 = and i64 %5, 6"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br i1 %9, label %$4, label %$3"},{"Add":"$4:"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %10 = and i64 %5, 8"},{"Add":" %11 = icmp ne i64 %10, 0"},{"Add":" br i1 %11, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %12 = inttoptr i64 %5 to i64*"},{"Add":" %13 = load i64, i64* %12"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":" %14 = call i64 @evList(i64 %5)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %15 = phi i64 [%5, %$4], [%13, %$6], [%14, %$5] ; # ->"},{"Add":"; # (needNum Exe (eval (++ X)))"},{"Add":" %16 = and i64 %15, 6"},{"Add":" %17 = icmp ne i64 %16, 0"},{"Add":" br i1 %17, label %$8, label %$7"},{"Add":"$7:"},{"Add":" call void @numErr(i64 %0, i64 %15)"},{"Add":" unreachable"},{"Add":"$8:"},{"Add":"; # (pos (needNum Exe (eval (++ X))))"},{"Add":" %18 = and i64 %15, -9"},{"Add":"; # (save (pos (needNum Exe (eval (++ X)))))"},{"Add":" %19 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %20 = load i64, i64* %19"},{"Add":" %21 = alloca i64, i64 2, align 16"},{"Add":" %22 = ptrtoint i64* %21 to i64"},{"Add":" %23 = inttoptr i64 %22 to i64*"},{"Add":" store i64 %18, i64* %23"},{"Add":" %24 = add i64 %22, 8"},{"Add":" %25 = inttoptr i64 %24 to i64*"},{"Add":" store i64 %20, i64* %25"},{"Add":" %26 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %22, i64* %26"},{"Add":"; # (loop (? (atom X) N) (let Y (eval (++ X)) (? (nil? Y) Y) (setq Y ..."},{"Add":" br label %$9"},{"Add":"$9:"},{"Add":" %27 = phi i64 [%7, %$8], [%116, %$31] ; # X"},{"Add":"; # (? (atom X) N)"},{"Add":"; # (atom X)"},{"Add":" %28 = and i64 %27, 15"},{"Add":" %29 = icmp ne i64 %28, 0"},{"Add":" br i1 %29, label %$12, label %$10"},{"Add":"$12:"},{"Add":" %30 = phi i64 [%27, %$9] ; # X"},{"Add":" br label %$11"},{"Add":"$10:"},{"Add":" %31 = phi i64 [%27, %$9] ; # X"},{"Add":"; # (let Y (eval (++ X)) (? (nil? Y) Y) (setq Y (pos (needNum Exe Y))..."},{"Add":"; # (++ X)"},{"Add":" %32 = inttoptr i64 %31 to i64*"},{"Add":" %33 = load i64, i64* %32"},{"Add":" %34 = getelementptr i64, i64* %32, i32 1"},{"Add":" %35 = load i64, i64* %34"},{"Add":"; # (eval (++ X))"},{"Add":" %36 = and i64 %33, 6"},{"Add":" %37 = icmp ne i64 %36, 0"},{"Add":" br i1 %37, label %$15, label %$14"},{"Add":"$15:"},{"Add":" br label %$13"},{"Add":"$14:"},{"Add":" %38 = and i64 %33, 8"},{"Add":" %39 = icmp ne i64 %38, 0"},{"Add":" br i1 %39, label %$17, label %$16"},{"Add":"$17:"},{"Add":" %40 = inttoptr i64 %33 to i64*"},{"Add":" %41 = load i64, i64* %40"},{"Add":" br label %$13"},{"Add":"$16:"},{"Add":" %42 = call i64 @evList(i64 %33)"},{"Add":" br label %$13"},{"Add":"$13:"},{"Add":" %43 = phi i64 [%33, %$15], [%41, %$17], [%42, %$16] ; # ->"},{"Add":"; # (? (nil? Y) Y)"},{"Add":"; # (nil? Y)"},{"Add":" %44 = icmp eq i64 %43, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %44, label %$19, label %$18"},{"Add":"$19:"},{"Add":" %45 = phi i64 [%35, %$13] ; # X"},{"Add":" %46 = phi i64 [%43, %$13] ; # Y"},{"Add":" br label %$11"},{"Add":"$18:"},{"Add":" %47 = phi i64 [%35, %$13] ; # X"},{"Add":" %48 = phi i64 [%43, %$13] ; # Y"},{"Add":"; # (needNum Exe Y)"},{"Add":" %49 = and i64 %48, 6"},{"Add":" %50 = icmp ne i64 %49, 0"},{"Add":" br i1 %50, label %$21, label %$20"},{"Add":"$20:"},{"Add":" call void @numErr(i64 %0, i64 %48)"},{"Add":" unreachable"},{"Add":"$21:"},{"Add":"; # (pos (needNum Exe Y))"},{"Add":" %51 = and i64 %48, -9"},{"Add":"; # (let Z N (while (big? Z) (unless (big? Y) (ret $Nil)) (let A (val..."},{"Add":"; # (while (big? Z) (unless (big? Y) (ret $Nil)) (let A (val (dig Z))..."},{"Add":" br label %$22"},{"Add":"$22:"},{"Add":" %52 = phi i64 [%47, %$21], [%87, %$28] ; # X"},{"Add":" %53 = phi i64 [%51, %$21], [%92, %$28] ; # Y"},{"Add":" %54 = phi i64 [%18, %$21], [%95, %$28] ; # Z"},{"Add":"; # (big? Z)"},{"Add":" %55 = and i64 %54, 4"},{"Add":" %56 = icmp ne i64 %55, 0"},{"Add":" br i1 %56, label %$23, label %$24"},{"Add":"$23:"},{"Add":" %57 = phi i64 [%52, %$22] ; # X"},{"Add":" %58 = phi i64 [%53, %$22] ; # Y"},{"Add":" %59 = phi i64 [%54, %$22] ; # Z"},{"Add":"; # (unless (big? Y) (ret $Nil))"},{"Add":"; # (big? Y)"},{"Add":" %60 = and i64 %58, 4"},{"Add":" %61 = icmp ne i64 %60, 0"},{"Add":" br i1 %61, label %$26, label %$25"},{"Add":"$25:"},{"Add":" %62 = phi i64 [%57, %$23] ; # X"},{"Add":" %63 = phi i64 [%58, %$23] ; # Y"},{"Add":" %64 = phi i64 [%59, %$23] ; # Z"},{"Add":"; # (ret $Nil)"},{"Add":"; # (drop *Safe)"},{"Add":" %65 = inttoptr i64 %22 to i64*"},{"Add":" %66 = getelementptr i64, i64* %65, i32 1"},{"Add":" %67 = load i64, i64* %66"},{"Add":" %68 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %67, i64* %68"},{"Add":" ret i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":"$26:"},{"Add":" %69 = phi i64 [%57, %$23] ; # X"},{"Add":" %70 = phi i64 [%58, %$23] ; # Y"},{"Add":" %71 = phi i64 [%59, %$23] ; # Z"},{"Add":"; # (let A (val (dig Z)) (unless (== A (& A (val (dig Y)))) (ret $Nil..."},{"Add":"; # (dig Z)"},{"Add":" %72 = add i64 %71, -4"},{"Add":"; # (val (dig Z))"},{"Add":" %73 = inttoptr i64 %72 to i64*"},{"Add":" %74 = load i64, i64* %73"},{"Add":"; # (unless (== A (& A (val (dig Y)))) (ret $Nil))"},{"Add":"; # (dig Y)"},{"Add":" %75 = add i64 %70, -4"},{"Add":"; # (val (dig Y))"},{"Add":" %76 = inttoptr i64 %75 to i64*"},{"Add":" %77 = load i64, i64* %76"},{"Add":"; # (& A (val (dig Y)))"},{"Add":" %78 = and i64 %74, %77"},{"Add":"; # (== A (& A (val (dig Y))))"},{"Add":" %79 = icmp eq i64 %74, %78"},{"Add":" br i1 %79, label %$28, label %$27"},{"Add":"$27:"},{"Add":" %80 = phi i64 [%69, %$26] ; # X"},{"Add":" %81 = phi i64 [%70, %$26] ; # Y"},{"Add":" %82 = phi i64 [%71, %$26] ; # Z"},{"Add":"; # (ret $Nil)"},{"Add":"; # (drop *Safe)"},{"Add":" %83 = inttoptr i64 %22 to i64*"},{"Add":" %84 = getelementptr i64, i64* %83, i32 1"},{"Add":" %85 = load i64, i64* %84"},{"Add":" %86 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %85, i64* %86"},{"Add":" ret i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":"$28:"},{"Add":" %87 = phi i64 [%69, %$26] ; # X"},{"Add":" %88 = phi i64 [%70, %$26] ; # Y"},{"Add":" %89 = phi i64 [%71, %$26] ; # Z"},{"Add":"; # (big Y)"},{"Add":" %90 = add i64 %88, 4"},{"Add":"; # (val (big Y))"},{"Add":" %91 = inttoptr i64 %90 to i64*"},{"Add":" %92 = load i64, i64* %91"},{"Add":"; # (big Z)"},{"Add":" %93 = add i64 %89, 4"},{"Add":"; # (val (big Z))"},{"Add":" %94 = inttoptr i64 %93 to i64*"},{"Add":" %95 = load i64, i64* %94"},{"Add":" br label %$22"},{"Add":"$24:"},{"Add":" %96 = phi i64 [%52, %$22] ; # X"},{"Add":" %97 = phi i64 [%53, %$22] ; # Y"},{"Add":" %98 = phi i64 [%54, %$22] ; # Z"},{"Add":"; # (when (big? Y) (setq Z (int Z) Y (val (dig Y))))"},{"Add":"; # (big? Y)"},{"Add":" %99 = and i64 %97, 4"},{"Add":" %100 = icmp ne i64 %99, 0"},{"Add":" br i1 %100, label %$29, label %$30"},{"Add":"$29:"},{"Add":" %101 = phi i64 [%96, %$24] ; # X"},{"Add":" %102 = phi i64 [%97, %$24] ; # Y"},{"Add":" %103 = phi i64 [%98, %$24] ; # Z"},{"Add":"; # (int Z)"},{"Add":" %104 = lshr i64 %103, 4"},{"Add":"; # (dig Y)"},{"Add":" %105 = add i64 %102, -4"},{"Add":"; # (val (dig Y))"},{"Add":" %106 = inttoptr i64 %105 to i64*"},{"Add":" %107 = load i64, i64* %106"},{"Add":" br label %$30"},{"Add":"$30:"},{"Add":" %108 = phi i64 [%96, %$24], [%101, %$29] ; # X"},{"Add":" %109 = phi i64 [%97, %$24], [%107, %$29] ; # Y"},{"Add":" %110 = phi i64 [%98, %$24], [%104, %$29] ; # Z"},{"Add":"; # (? (<> Z (& Y Z)) $Nil)"},{"Add":"; # (& Y Z)"},{"Add":" %111 = and i64 %109, %110"},{"Add":"; # (<> Z (& Y Z))"},{"Add":" %112 = icmp ne i64 %110, %111"},{"Add":" br i1 %112, label %$32, label %$31"},{"Add":"$32:"},{"Add":" %113 = phi i64 [%108, %$30] ; # X"},{"Add":" %114 = phi i64 [%109, %$30] ; # Y"},{"Add":" %115 = phi i64 [%110, %$30] ; # Z"},{"Add":" br label %$11"},{"Add":"$31:"},{"Add":" %116 = phi i64 [%108, %$30] ; # X"},{"Add":" %117 = phi i64 [%109, %$30] ; # Y"},{"Add":" %118 = phi i64 [%110, %$30] ; # Z"},{"Add":" br label %$9"},{"Add":"$11:"},{"Add":" %119 = phi i64 [%30, %$12], [%45, %$19], [%113, %$32] ; # X"},{"Add":" %120 = phi i64 [%18, %$12], [%46, %$19], [ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64), %$32] ; # ->"},{"Add":"; # (drop *Safe)"},{"Add":" %121 = inttoptr i64 %22 to i64*"},{"Add":" %122 = getelementptr i64, i64* %121, i32 1"},{"Add":" %123 = load i64, i64* %122"},{"Add":" %124 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %123, i64* %124"},{"Add":" ret i64 %120"},{"Add":"}"},{"Add":""},{"Add":"define i64 @_BitAnd(i64) align 8 {"},{"Add":"$1:"},{"Add":"; # (let X (cdr Exe) (if (nil? (eval (car X))) @ (save -ZERO (let R (..."},{"Add":"; # (cdr Exe)"},{"Add":" %1 = inttoptr i64 %0 to i64*"},{"Add":" %2 = getelementptr i64, i64* %1, i32 1"},{"Add":" %3 = load i64, i64* %2"},{"Add":"; # (if (nil? (eval (car X))) @ (save -ZERO (let R (link (push (pos (..."},{"Add":"; # (car X)"},{"Add":" %4 = inttoptr i64 %3 to i64*"},{"Add":" %5 = load i64, i64* %4"},{"Add":"; # (eval (car X))"},{"Add":" %6 = and i64 %5, 6"},{"Add":" %7 = icmp ne i64 %6, 0"},{"Add":" br i1 %7, label %$4, label %$3"},{"Add":"$4:"},{"Add":" br label %$2"},{"Add":"$3:"},{"Add":" %8 = and i64 %5, 8"},{"Add":" %9 = icmp ne i64 %8, 0"},{"Add":" br i1 %9, label %$6, label %$5"},{"Add":"$6:"},{"Add":" %10 = inttoptr i64 %5 to i64*"},{"Add":" %11 = load i64, i64* %10"},{"Add":" br label %$2"},{"Add":"$5:"},{"Add":" %12 = call i64 @evList(i64 %5)"},{"Add":" br label %$2"},{"Add":"$2:"},{"Add":" %13 = phi i64 [%5, %$4], [%11, %$6], [%12, %$5] ; # ->"},{"Add":"; # (nil? (eval (car X)))"},{"Add":" %14 = icmp eq i64 %13, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %14, label %$7, label %$8"},{"Add":"$7:"},{"Add":" %15 = phi i64 [%3, %$2] ; # X"},{"Add":" br label %$9"},{"Add":"$8:"},{"Add":" %16 = phi i64 [%3, %$2] ; # X"},{"Add":"; # (save -ZERO (let R (link (push (pos (needNum Exe @)) NIL)) (loop ..."},{"Add":" %17 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %18 = load i64, i64* %17"},{"Add":" %19 = alloca i64, i64 2, align 16"},{"Add":" %20 = ptrtoint i64* %19 to i64"},{"Add":" %21 = inttoptr i64 %20 to i64*"},{"Add":" store i64 10, i64* %21"},{"Add":" %22 = add i64 %20, 8"},{"Add":" %23 = inttoptr i64 %22 to i64*"},{"Add":" store i64 %18, i64* %23"},{"Add":" %24 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %20, i64* %24"},{"Add":"; # (let R (link (push (pos (needNum Exe @)) NIL)) (loop (? (atom (sh..."},{"Add":"; # (needNum Exe @)"},{"Add":" %25 = and i64 %13, 6"},{"Add":" %26 = icmp ne i64 %25, 0"},{"Add":" br i1 %26, label %$11, label %$10"},{"Add":"$10:"},{"Add":" call void @numErr(i64 %0, i64 %13)"},{"Add":" unreachable"},{"Add":"$11:"},{"Add":"; # (pos (needNum Exe @))"},{"Add":" %27 = and i64 %13, -9"},{"Add":"; # (push (pos (needNum Exe @)) NIL)"},{"Add":" %28 = alloca i64, i64 2, align 16"},{"Add":" %29 = ptrtoint i64* %28 to i64"},{"Add":" %30 = inttoptr i64 %29 to i64*"},{"Add":" store i64 %27, i64* %30"},{"Add":"; # (link (push (pos (needNum Exe @)) NIL))"},{"Add":" %31 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" %32 = load i64, i64* %31"},{"Add":" %33 = inttoptr i64 %29 to i64*"},{"Add":" %34 = getelementptr i64, i64* %33, i32 1"},{"Add":" store i64 %32, i64* %34"},{"Add":" %35 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i64) to i64*"},{"Add":" store i64 %29, i64* %35"},{"Add":"; # (loop (? (atom (shift X)) (val R)) (? (nil? (eval (car X))) @) (s..."},{"Add":" br label %$12"},{"Add":"$12:"},{"Add":" %36 = phi i64 [%16, %$11], [%58, %$24] ; # X"},{"Add":"; # (? (atom (shift X)) (val R))"},{"Add":"; # (shift X)"},{"Add":" %37 = inttoptr i64 %36 to i64*"},{"Add":" %38 = getelementptr i64, i64* %37, i32 1"},{"Add":" %39 = load i64, i64* %38"},{"Add":"; # (atom (shift X))"},{"Add":" %40 = and i64 %39, 15"},{"Add":" %41 = icmp ne i64 %40, 0"},{"Add":" br i1 %41, label %$15, label %$13"},{"Add":"$15:"},{"Add":" %42 = phi i64 [%39, %$12] ; # X"},{"Add":"; # (val R)"},{"Add":" %43 = inttoptr i64 %29 to i64*"},{"Add":" %44 = load i64, i64* %43"},{"Add":" br label %$14"},{"Add":"$13:"},{"Add":" %45 = phi i64 [%39, %$12] ; # X"},{"Add":"; # (? (nil? (eval (car X))) @)"},{"Add":"; # (car X)"},{"Add":" %46 = inttoptr i64 %45 to i64*"},{"Add":" %47 = load i64, i64* %46"},{"Add":"; # (eval (car X))"},{"Add":" %48 = and i64 %47, 6"},{"Add":" %49 = icmp ne i64 %48, 0"},{"Add":" br i1 %49, label %$18, label %$17"},{"Add":"$18:"},{"Add":" br label %$16"},{"Add":"$17:"},{"Add":" %50 = and i64 %47, 8"},{"Add":" %51 = icmp ne i64 %50, 0"},{"Add":" br i1 %51, label %$20, label %$19"},{"Add":"$20:"},{"Add":" %52 = inttoptr i64 %47 to i64*"},{"Add":" %53 = load i64, i64* %52"},{"Add":" br label %$16"},{"Add":"$19:"},{"Add":" %54 = call i64 @evList(i64 %47)"},{"Add":" br label %$16"},{"Add":"$16:"},{"Add":" %55 = phi i64 [%47, %$18], [%53, %$20], [%54, %$19] ; # ->"},{"Add":"; # (nil? (eval (car X)))"},{"Add":" %56 = icmp eq i64 %55, ptrtoint (i8* getelementptr (i8, i8* bitcast ([876 x i64]* @SymTab to i8*), i32 8) to i64)"},{"Add":" br i1 %56, label %$22, label %$21"},{"Add":"$22:"},{"Add":" %57 = phi i64 [%45, %$16] ; # X"},{"Add":" br label %$14"},{"Add":"$21:"},{"Add":" %58 = phi i64 [%45, %$16] ; # X"},{"Add":"; # (needNum Exe @)"},{"Add":" %59 = and i64 %55, 6"},{"Add":" %60 = icmp ne i64 %59, 0"},{"Add":" br i1 %60, label %$24, label %$23"},{"Add":"$23:"},{"Add":" call void @numErr(i64 %0, i64 %55)"},{"Add":" unreachable"},{"Add":"$24:"},{"Add":"; # (safe (needNum Exe @))"},{"Add":" %61 = inttoptr i64 %20 to i64*"},{"Add":" store i64 %55, i64* %61"},{"Add":"; # (set R (andu (val R) (pos @)))"},{"Add":"; # (val R)"},{"Add":" %62 = inttoptr i64 %29 to i64*"},{"Add":" %63 = load i64, i64* %62"},{"Add":"; # (pos @)"},{"Add":" %64 = and i64 %55, -9"},{"Add":"; # (andu (val R) (pos @))"},{"Add":" %65 = call i64 @andu(i64 %63, i64 %64)"},{"Add":" %66 = inttoptr i64 %29 to i64*"},{"Add":" store i64 %65, i64* %66"},{"Add":" br label %$12"},{"Add":"$14:"},{"Add":" %67 = phi i64 [%42, %$15], [%57, %$22] ; # X"},{"Add":" %68 = phi i64 [%44, %$15], [%55, %$22] ; # ->"},{"Add":"; # drop"},{"Add":" %69 = inttoptr i64 %20 to i64*"},{"Add":" %70 = getelementptr i64, i64* %69, i32 1"},{"Add":" %71 = load i64, i64* %70"},{"Add":" %72 = inttoptr i64 ptrtoint (i8* getelementptr (i8, i8* bitcast ([21 x i64]* @env to i8*), i32 0) to i6

…

Dependencies

Change contents