Haschoo-0.0: tests/macros/r5rs/4.3.2.scm

(write (let ((=> #f))
         (cond (#t => 'ok))))
(newline)