(import (chicken base))

(define-syntax CaseMetta
  (syntax-rules (else)
    ((_ var ((pat body ...) ...))
     (case var ((pat) body ...) ...))))

(let ((x 1))
  (print
   (case x
     ((1) 2)
     ((3) 4)))

  (print
   (CaseMetta x
     ((1 2)
      (3 4)))))