(case (* 2 3)
  ((2 3 5 7) 'prime)
  ((1 4 6 8 9) 'composite))
(case (car '(c d))
  ((a) 'a)
  ((b) 'b))
(case (car '(c d))
  ((a e i o u) 'vowel)
  ((w y) 'semivowel)
  (else 'consonant))
(case 'a
  ((b c) (display "not reached") (newline) 'b)
  ((a d) (display "reached") (newline) 'a))
