(define literal-match? (lambda (expr em) (and (string=? (cadddr em) "literal") (equal? (car em) expr))))