     (is (= do-this-many
            (count (pmap (fn [expr] 
                           (let [fo (fo expr)
-                                parsed (:parses (first (parse fo np-grammar)))]
+                                parsed (reduce concat (map :parses
+                                                           (parse fo np-grammar)))]
                             (if (not (empty? parsed))
                               (log/info (str "parse OK:" fo))
                               (log/error (str "parse failed: " fo)))

        (repeatedly #(let [generated
                           (fo (generate {:synsem {:cat :verb
                                                   :subcat '()}}))
                           parsed (:parses (first (parse generated medium)))]
                       (log/info (str "generated: " generated))
                       (log/info (str "semantics: "
                                      (or

                  (is (= "loro gestiscono" (fo each))))
                (map :surface
                     result)))))

(deftest casa-generate
  (let [result (generate 
