 (declare candidate-parents)
 (declare exception)
 (declare find-comp-paths-in)
+(declare intersection-with-identity)
 (declare lazy-mapcat)
 (declare lazy-shuffle)
 (declare lexemes-before-phrases)

      {:subcat/:1/:cat subcat1
       :subcat/:1/:agr (get-in spec [:synsem :subcat :1 :agr])}))))


      (->
       (lightning-bolts language-model spec 0 total-depth :max-total-depth max-total-depth)
       (add-all-comps language-model total-depth false max-total-depth)))))

(defn lightning-bolts [language-model spec depth total-depth
                       & {:keys [max-total-depth]
