                     (string/join "," (map :rule result))))
     result))
 
-(defn lazy-shuffle [seq]
-  (lazy-seq (shuffle seq)))
-
 (defn exception [error-string]
   #?(:clj
      (throw (Exception. (str ": " error-string))))

                                          complement-candidate-lexemes))))
               
        bolt-child-synsem (get-in bolt (concat path [:synsem]))
        lexical-complements (lazy-shuffle
                             (filter (fn [lexeme]
                                       (and (not-fail? (unify (get-in lexeme [:synsem] :top)
                                                              bolt-child-synsem))))

(declare exception)
(declare find-comp-paths-in)
(declare lazy-mapcat)
(declare lexemes-before-phrases)
(declare lightning-bolts)
(declare generate-all)
