                    :sem {:subj {:pred :cat
                                 :mod {:pred :yellow}
                                 :spec {:def :genitive
-                                       :of {:pred :luisa}}}}}}
+                                       :of {:pred :luisa}}}
+                         :obj {:pred :top}}}}
 
          {:demo "Women who read books"
           :synsem {:cat :verb

(ns babel.english.demo
  (:require
   [babel.english :refer [generate]]
   [babel.english.grammar :refer [few-rules medium small-lexicon]]
   [babel.english.morphology :refer [fo]]
   #?(:cljs [babel.logjs :as log])
   [clojure.string :as string]
   #?(:clj [clojure.tools.logging :as log])
   [dag_unify.core :refer [unifyc]]))

(declare run-demo-with)


  "print out _n_ generated sentences to stdout."
  (let [n (if n (Integer. n)
              10)
        spec (if spec (unify spec
                             {:modified false})
                 {:modified false})]
    (filter #(not (nil? %))
            (if timings?
