   (let []
     (log/debug (str "Units: " (.size units)))
     (.size (map (fn [unit]
-                  (log/trace (str "TYPE OF UNIT: " (type unit)))
-                  (log/trace (str "KEYS OF UNIT: " (keys unit)))
-                  (let [member-of-unit unit]
+                  (log/trace (str "processing unit's type: " (type unit)))
+                  (log/trace (str "processing unit's keys: " (keys unit)))
+                  (let [member-of-unit unit] ;; TODO: s/member-of-unit/unit/
                     (log/debug (str "keys of member-of-unit:" (keys member-of-unit)))
                     (if (:sql member-of-unit)
                       (do

        language (:language model)
        debug (log/debug (str "populate-with-language: spec: " spec "; language: " language))]
    (dotimes [n num]
      (let [sentence (engine/expression model spec)
            fo (:morph model)
            surface (fo sentence)]
        (if (empty? surface)

        json-spec (json/write-str spec)
        current-count
        (:count
         ;; TODO: move this block to babel.reader/checking-for-existing-expressions
         ;; and then call that.
         (first
          (exec-raw ["SELECT count(*) FROM expression 
                       WHERE structure @> ?::jsonb
                         AND active=true
                         AND language=?"
                       [(json/write-str spec) language]]
                      :results)))]
    (log/debug (str "current-count for spec: " spec "=" current-count))
