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

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

            #(time (println
                    (fo (generate {:synsem {:subcat '()
                                            :sem {:tense :conditional}}}
                                  :model (medium)))))))))))
(deftest speed-test-6
  (is (= 10
         (count
          (take 10
                (repeatedly
                 #(time (println
                         (fo (generate {:synsem {:subcat '()}}
                                       :model (medium)))))))))))
(deftest speed-test-7
  (is (= 10
         (count
          (take 10
