call/ccを使った無限ループ
(define loop (lambda (cont) (call/cc loop)))
(loop '())