                          count
                          "expression"
                          (-> member-of-unit :fill-one-language :model)
+                         source-language
                          no-older-than)))
                     (if (:fill-verb member-of-unit)
                       (do

                         count
                         (if (> current-count 0) " more")
                         " expressions for spec: " spec))
          (populate-with-language 1 model spec)
          (fill-language-by-spec spec (- count 1) table model))
        (log/debug (str "Since no more are required, not generating any for this spec."))))))

;; TODO: no-older-than is not supported yet.

(defn process
  "Take one or more 'units' composed of a command and arguments and perform the command on the arguments. A command is one of:
    {:fill,:fill-one-language,:fill-verb}."
  [units source-language & [no-older-than]]
  (log/debug "Starting processing with: " (.size units) " instruction(s) with source language " source-language)
  (let []
    (log/debug (str "Units: " (.size units)))
    (doall (map (fn [unit]
