                        spec "'"))
         (insert-expression sentence ;; underlying structure
                            surface ;; text of expression
+                           spec
                            "expression" ;; table in database
                            language
                            (:name model)) ;; name of language model; e.g.: 'small','medium'

                                                   (let [spec (unify spec
                                                                     {:comp {:synsem {:agr {:number number}}}})]
                                                     (log/debug (str "generating from spec: " spec "; input-spec was:" input-spec))
                                                     (try
                                                       (process [{:fill-one-language
                                                                  {:count 1

   The serialized column allows loading a desired expression as a Clojure map into the runtime system, including
   the expression' internal structure-sharing."

  (log/debug (str "inserting expression: spec=" spec))
  (try
    (exec-raw [(let [insert
                     (str "INSERT INTO " table " (surface, structure, spec, serialized, language, model) VALUES (?,"
                          "$$" (json/write-str (strip-refs expression)) "$$,"
                          "$$" (json/write-str (strip-refs spec)) "$$,"
                          "$$[" (string/join "" (serialize expression)) "]$$," ;; TODO: check for presence of "$$" within (serialize expression).
                          "?,?)")]
                 (log/trace (str "INSERT IS : " insert))
                 insert)
               [surface
                language
                model-name]])
