brun -s2 '(com (q . (list 1999 2 3))))'
(a ("com" (a (q 2 (q 2 (q 2 2 (c 2 (c 3 (q)))) (c (q 2 (i 5 (q 4 (q . 4) (c 9 (c (a 2 (c 2 (c 13 (q)))) (q)))) (q 1)) 1) 1)) 1) (q 1999 2 3)) (q (/ (c (q . 5) (c (c (q . 20) (c 2 (c 5 ()))) ()))) (26982 (c (q . 2) (c (c (q . 3) (c 2 (c (c (q . "function") (c 5 ())) (c (c (q . "function") (c 11 ())) ())))) (q 64)))) ("function" (c (q . "opt") (c (c (q . "com") (c (c (q . 1) 2) (q (29041 ("unquote" ("macros"))) (29041 ("unquote" ("symbols")))))) ()))) ("list" (a (q 2 (q 2 2 (c 2 (c 3 (q)))) (c (q 2 (i 5 (q 4 (q . 4) (c 9 (c (a 2 (c 2 (c 13 (q)))) (q)))) (q 1)) 1) 1)) 1)) ("defmacro" (c (q . "list") (c (f 1) (c (c (q . "mod") (c (f (r 1)) (c (f (r (r 1))) (q)))) (q)))))) (q)) 1)
