[bothner@localhost work2]999$ bin/kawa --debug-print-expr
#|kawa:1|# '((alpha-1 alpha-2 (alpha-3 alpha-4) alpha-5) (beta-1 beta-2 beta-3 beta-4))
[Module:atInteractiveLevel-1
(Module/atInteractiveLevel-1/1/ () (Quote ((alpha-1 alpha-2 (alpha-3 alpha-4) alpha-5) (beta-1 beta-2 beta-3 beta-4))))]
((alpha-1 alpha-2 (alpha-3 alpha-4) alpha-5) (beta-1 beta-2 beta-3 beta-4))
#|kawa:2|# (define (factorial x) (if (< x 2) 1 (* x (factorial (- x 1)))))
[Module:atInteractiveLevel-2
(Module/atInteractiveLevel-2/3/ (Declarations: factorial/35/fl:408c8::gnu.mapping.Procedure) (Define line:2:1 /Declaration[factorial/35] (Lambda/factorial/11/fl:0 line:2:9 (x/36/fl:80000040040(ignorable)) name: factorial (If (Apply line:2:27 (Ref/16/Declaration[applyToArgs/2]) (Ref/15/</Declaration[numLss/61]) (Ref/17/Declaration[x/36]) (Quote 2)) (Quote 1) (Apply line:2:37 (Ref/19/Declaration[applyToArgs/2]) (Ref/18/Declaration[*/67]) (Ref/20/Declaration[x/36]) (Apply line:2:42 (Ref/22/Declaration[applyToArgs/2]) (Ref/21/Declaration[factorial/35]) (Apply line:2:53 (Ref/24/Declaration[applyToArgs/2]) (Ref/23/Declaration[-/69]) (Ref/25/Declaration[x/36]) (Quote 1))))))))]
#|kawa:3|# (factorial 4)
[Module:atInteractiveLevel-3
(Module/atInteractiveLevel-3/19/ () (Apply line:3:1 (Ref/29/Declaration[applyToArgs/2]) (Ref/28/Declaration[factorial/35]) (Quote 4)))]
24
#|kawa:4|# (factorial 60)
[Module:atInteractiveLevel-4
(Module/atInteractiveLevel-4/20/ () (Apply line:4:1 (Ref/33/Declaration[applyToArgs/2]) (Ref/32/Declaration[factorial/35]) (Quote 60)))]
8320987112741390144276341183223364380754172606361245952449277696409600000000000000
#|kawa:5|#