                                                          :number :top
                                                          :pred :top}}}
                                          np-grammar))]
-    (is (= 20
+    (is (= do-this-many
            (count (pmap (fn [expr] 
                           (let [fo (fo expr)
                                 parsed (parse fo np-grammar)]

                                                      :aspect :perfect}
                                                :subcat '()}}
                                      small)))]
    (is (= 20
           (count (pmap (fn [expr]
                          (let [fo (fo expr)
                                parsed (parse fo)]

                                                      :aspect :progressive}
                                                :subcat '()}}
                                      small)))]
    (is (= do-this-many
           (count (pmap (fn [expr]
                          (let [fo (fo expr)
                                parsed (parse fo)]
