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

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]
                           (lightning-bolt grammar lexicon each-spec depth index morph total-depth))
                         spec))
    (do

                       phrasal-complements (if (> max-total-depth total-depth)
                                             (generate-all spec grammar lexicon cache morph (+ depth total-depth)))]
                   (if (lexemes-before-phrases total-depth)
                     (take 1 (lazy-cat shuffled-candidate-lexical-complements phrasal-complements))
                     (take 1 (lazy-cat phrasal-complements shuffled-candidate-lexical-complements)))))))))

(defn path-to-map [path val]
  (let [feat (first path)]
