 head of its parent. generate (above) 'decorates' each returned lightning bolt
 of this function with complements."
   (if (or (vector? spec) (seq? spec))
-    (reduce concat (pmap (fn [each-spec]
+    (reduce concat (map (fn [each-spec]
                            (lightning-bolt grammar lexicon each-spec depth index morph total-depth))
                          spec))
     (do

                                  ",path=" path ",bolt=(" (show-bolt bolt path morph) ")=>"
                                  "'" (morph complement) "'"))
                  true)))
            (pmap (fn [complement]
                   (unify (copy bolt)
                          (path-to-map path
                                       (copy complement))))

            parents (filter #(not (fail? %)) (map (fn [rule] (unifyc spec rule)) grammar))]
        (let [lexical ;; 1. generate list of all phrases where the head child of each parent is a lexeme.
              (reduce concat
                      (map (fn [parent]
                              (if (= false (get-in parent [:head :phrasal] false))
                                (let [candidate-lexemes (get-lex parent :head index spec)]
                                  (over/overh parent
                                              (map copy (take 1 (lazy-shuffle candidate-lexemes)))))))
                            parents))
              phrasal ;; 2. generate list of all phrases where the head child of each parent is itself a phrase.
              (if (< depth max-total-depth)
                (reduce concat (map (fn [parent]
                                       (over/overh parent (lightning-bolt grammar lexicon (get-in parent [:head])
                                                                          (+ 1 depth) index morph (+ 1 total-depth))))
                                     parents)))]
          (if (lexemes-before-phrases total-depth)
            (take 1 (lazy-cat lexical phrasal))
            (take 1 (lazy-cat phrasal lexical))))))))

(defn add-complement [bolt path spec grammar lexicon cache morph depth total-depth]
  (log/info (str "add-complement: " (show-bolt bolt path morph)))
