(in-package :mt)

(setf *transfer-interlingua-predicates* nil)

(setf *transfer-tm* nil)

(defun preprocess (mrs)
  (loop
      for ep in (mrs:psoa-liszt mrs)
      do (setf (mrs:rel-pred ep) (format nil "~(en:~a~)" (mrs:rel-pred ep))))
  mrs)