 (defn sentences-with-pronoun-objects-hints
   "supply a spec enhanced with syntactic info to speed-up generation."  
   []
-  (let [spec (unify transitive-spec phrasal-spec)]
+  (let [spec (unify non-aux-spec transitive-spec phrasal-spec)]
     (repeatedly #(-> spec generate morph time println))))
 
 (defn sentences-with-pronoun-objects-small []

            :sem {:subj {:pred :top}
                  :obj {:pred :top}}}})

(defn transitive-sentence []
  (let [spec transitive-spec]
    (repeatedly #(-> spec generate morph time println))))

        first
        (get-in [:synsem :sem])
        clojure.pprint/pprint)))

(def spec {:comp {:phrasal false},
           :head {:comp {:phrasal false, :synsem {:pronoun true}},
                  :head {:phrasal false}},
           :synsem {:cat :verb, :subcat (),
                    :aux false :sem {:subj {:pred :top},
                                     :obj {:pred :top}}}})
(def foo (first (babel.generate/lightning-bolts model spec 0 2)))
