     (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)))

    (is (= do-this-many
           (count (pmap (fn [expr] 
                          (let [fo (fo expr)
                                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)))
