S式

これこれ。頭でわかってるつもりでも、実際なかなか書けない・・・。

(cond ((negative? x) (display 'foo) (newline)) ((zero? x) (display 'bar) (newline)) (else (display 'baz) (newline)))) (newline))))

↓

(begin (display (cond ((negative? x) 'foo) ((zero? x) 'bar) (else 'baz))) (newline)))

• タンブラーとは - #9LISP 実は意図はこう言う事です。