継続渡し変換を

しようと思ったけど、明示的にフロー制御してないし意味ないじゃん。
：
でも無理してやる！

hellocps.scm
-----
(define a-main
  (lambda (atai keizoku)
    (keizoku atai)))

(a-main "Hello World" display)
----
$gosh hellocps.scm
Hello World$

うーん、意味不明だ・・・
メインでは特にやることもないし、継続がdisplayだけだから、継続渡しの力が全く発揮されない無意味なプログラムだなぁ。
やっぱり簡単に書くべきだ！。
：
うーん、でも最後の行が、
オブジェクトにメソッドを適用しているようにも見えないこともなくはないかな（病気だ）。