;; case.txt

(case 4
  ('(1 2 3 4 5) 'small)
  ('(6 7 8 9 10) 'bigger)
  (#t 'duno))
=> small

(define x 3)
(case x
  ((list 8 10 -3) 'a)
  ((list 4 x 5) 'b)
  (#t 'c))
=> b