             :sem {:subj {:pred :top}
                   :obj {:pred :top}}}})
 
+
+(def non-aux-spec
+  {:synsem {:aux false}})
+
 (defn transitive-sentence []
   (let [spec transitive-spec]
     (repeatedly #(-> spec generate morph time println))))

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

(defn sentences-with-pronoun-objects-small []

                           :noun)
                        (= (get-in lexeme [:synsem :pronoun])
                           true)))
        propernoun? (fn [lexeme]
                   (and (= (get-in lexeme [:synsem :cat])
                           :noun)
                        (= (get-in lexeme [:synsem :propernoun])
                           true)))

        spec (unify transitive-spec phrasal-spec non-aux-spec
                    {:head {:comp {:synsem {:pronoun true}}}})]
    (repeatedly (fn []
                  (let [chosen-subset (set (take 1000 (shuffle transitive-verbs)))
                        model
                        (model-plus-lexicon
                         ;; filtered lexicon: all pronouns and a small subset of transitive verbs.
