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

                    (string/join "," (map :rule result))))
    result))

(defn lazy-shuffle [seq]
  (lazy-seq (shuffle seq)))

(defn exception [error-string]
  #?(:clj
     (throw (Exception. (str ": " error-string))))

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