(in-package :mt)

(setf *transfer-interlingua-predicates* nil)

(setf *transfer-tm*
  (namestring (make-pathname 
               :directory (namestring
                           (dir-append 
                            (get-sources-dir "mt") '(:relative "mt")))
               :name "mrs.blm")))

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