 (defn parse [string]
   (concat
    (en/parse string)
-   (fr/parse string)
-   (it/parse string)))
+;   (es/parse string)
+;   (fr/parse string)
+;   (it/parse string)))
+   ))
 
 (defn expr [id]
   (reader/id2expression (Integer. id)))

;;                                @fr/small)
(def foo
  (do
    (generate {:synsem {:subcat '()
                      :infl :imperfect
                        :sem {:pred :be
                              :subj {:pred :I}}}}
              @fr/small)

    ;; the below is needed to avoid:
    ;;INFO  56:12,470 com.mchange.v2.c3p0.C3P0Registry:

            (string/join " "
                         (let [loaded
                               (try
                                 (binding [*read-eval* true]
                                   (workbook-sandbox (binding [*read-eval* true] (read-string expr))))
                                 ;; TODO: how can I show the stack trace for the
                                 ;; attempt to process the expression?
                                 (catch Exception e
