 (ns babel.english.demo
   (:require
-   [babel.english :refer [generate]]
-   [babel.english.grammar :refer [medium]]
+   [babel.english :refer [generate model]]
    [babel.english.morphology :refer [fo]]
    #?(:cljs [babel.logjs :as log])
    [clojure.string :as string]

;; 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"

                        (println)
                        (println log-message)
                        (println)
                        (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)]
