(define-syntax match
  (syntax-rules (or)
    ((_ val compare-with (compare-to body ...) ...)
     (cond ((compare-with val compare-to) body ...) ...))))