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