                         (println)
                         (println log-message)
                         (println)
-                        (let [language-model (or (:lm spec) default-language-model)
+                        (let [language-model model
                               expressions (run-demo-with n (dissoc spec :lm) language-model)]
                           (count (pmap (fn [expression]
                                          (let [formatted (fo expression :show-notes false)]

;; run each (generate) as (time (generate)):
(def ^:const timings? false)

(def default-language-model (medium))

(defn demo [ & [n spec]]
  (let [demo-specs
        [{:demo "Dog noun phrases"

                              spec)
                          demo-specs)
                  demo-specs)))
    (println (str "babel demo is finished."))))

(defn run-demo-with [n spec model]
  "print out _n_ generated sentences to stdout."
