                                                        :subj {:pred :noi}
                                                        :tense :present
                                                        :aspect :perfect}}}
-                                       :model (medium))))))))))
-  (is (nil? (println "------")))
+                                       :model (medium)))))))))))
+
+(deftest speed-test-8
   (is (= 10
          (count
           (take 10

                    (fo (generate {:synsem {:subcat '()
                                            :sem {:pred :speak
                                                  :tense :conditional}}}
                                  :model (medium))))))))))
  (is (nil? (println "------")))
  (is (= 10
         (count
          (take

            #(time (println
                    (fo (generate {:synsem {:subcat '()
                                            :sem {:pred :speak}}}
                                  :model (medium)))))))))))
(deftest speed-test-5
  (is (= 10
         (count
          (take
