case

case

This operator is a pattern-matching conditional.

(proc foo (x) 
   (case x
      (0) 'foo
      (1) 'bar
      (2 5) (+ x x x)
      else: (* x x)))
    
(foo 0) ; 'foo
(foo 1) ; 'bar
(foo 2) ; 6
(foo 4) ; 16
(foo 5) ; 15