                  (do
                    (log/warn "using entire model: will be slow.")
                    (:grammar model)))]
-           (morph (binding [babel.generate/println? false
-                            babel.generate/truncate? true
-                            babel.generate/grammar generate-with-grammar]
-                    (time (generate chosen-spec model))))))))))
+           (morph-ps (binding [babel.generate/println? false
+                               babel.generate/truncate? false
+                               babel.generate/grammar generate-with-grammar]
+                       (time (generate chosen-spec model))))))))))
 
 (defn stampare
   "generate arrabiarsi sentences with a grammar subset."

(defn arrabbiarsi-or-sedersi
  "generate arrabiarsi sentences with a grammar subset."
  []
  (let [verb-set #{"arrabbiarsi" "fermarsi" "parlare" "sedersi"}
        grammar (filter
                 #(contains? verbcoach-grammar (u/get-in % [:rule]))
                 (:grammar model))
        specs [{:root {:italiano {:italiano "arrabbiarsi"}}
                :synsem {:cat :verb
                         :sem {:tense :present
                               :aspect :perfect}
                         :subcat []}}
               {:root {:italiano {:italiano "sedersi"}}
                :synsem {:cat :verb
                         :sem {:tense :future}
                         :subcat []}}]]
    (repeatedly
     #(println
       (let [chosen-spec
             (first (shuffle specs))]
         (let [generate-with-grammar
               (cond 
                 (not (= :fail
                         (unify (u/get-in chosen-spec [:synsem :sem])
                                {:tense :present
                                 :aspect :perfect})))
                 (filter (fn [rule-structure]
                           (contains? present-perfect-grammar
                                      (u/get-in rule-structure [:rule])))


(def future-grammar
  #{"sentence-phrasal-head"
    "vp-pronoun-phrasal"
    "vp-pronoun-nonphrasal"})

(def present-perfect-grammar
