(define check-for-literal-match
(lambda (expr ems)
(if (null? ems)
expr
(let* ((em (car ems))
(res (map (lambda (e)
(not (literal-match? e em)))
expr))
(num-of-non-literal (length (get-true-matches res))))
(list-head expr num-of-non-literal)))))