(define match-number (lambda (e em) (if (not (number? em)) MATCH-FAILED (if (= e em) MATCH-TRUE ;; e MATCH-FAILED))))