;; cond.txt

(cond
  ((= 1 2) 'bah)
  ((> 4 5) 'humbug)
  (#t 'default))
=> default

(define magic 0)
(cond
  ((> 4 2) 'bah)
  ((> 9 1) (set! magic 3))
  ((> 0 2) 'bogus))
magic
=> 0