lisp to cps

ほんの少しできた。

[20]> (+-two '(:+ 3 5) (cons 'exit-msg '(:exit exit-msg)))
(:ID (3) (#:G3104)
 ((:ID (5) (#:G3105) ((:+ (#:G3104 #:G3105) (EXIT-MSG) ((:EXIT EXIT-MSG)))))))

教科書通りに”効率の悪い” cps ができあがった。

naive version と呼ぶ。