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

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

                                       :pred :donna}}} 
                       np-grammar)]
    (is (= (fo expr) "la donna difficile"))
    (is (not (empty? (reduce concat (map
                                     :parses (parse (fo expr) np-grammar))))))))

(deftest forbid-mispelling
 (is (empty? (:parses (parse (fo "la donna difficila") np-grammar)))))
