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

                   :sem {:subj {:pred :cat
                                :mod {:pred :yellow}
                                :spec {:def :genitive
                                       :of {:pred :luisa}}}}}}

         {:demo "Women who read books"
          :synsem {:cat :verb


         {:demo "Thinking"
          :synsem {:cat :verb
                   :sem {:pred :think
                         :obj {:pred :top}}}}

         ]]
         
