                          (fo (generate {:synsem {:subcat '()
                                                  :sem {:tense :present
                                                        :aspect :perfect}}}
-                                       :model (medium)))))))))))
+                                         :model (medium)))))))))))
+
 
 
   

                                                 :sem {:pred :speak
                                                       :tense :present
                                                       :aspect :perfect}}}
                                       :model (medium))))))))))
  (is (nil? (println "------")))
  (is (= 10
         (count
          (take 10

                                                                     :subj {:pred :noi}
                                                                     :tense :past
                                                                     :aspect :progressive}}}
                                                     :model (medium)))))))))))

(deftest speed-test-2
  (is (= 10
         (count
          (take 10
