(bind-func caspp
(let ((cnt 0))
(lambda (s:i8* pp:i1)
(if pp (printout " in[" cnt "]: " (Symbol s) "\n"))
(beginz
(let ((res (caseval s)))
(if pp (printout "out[" cnt "]: " (Symbol res) "\n"))
(set! cnt (+ cnt 1))
res)))))