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