                     & {:keys [max-total-depth truncate-children]
                        :or {max-total-depth max-total-depth
                             truncate-children true}}]
-  (log/trace (str "generate-all: generating from spec with cat "
-                  (get-in spec [:synsem :cat])))
-  (log/debug (str "generate-all:"
-                  (strip-refs (get-in spec [:synsem :cat])) "^" total-depth))
+  (log/debug (str "generate-all: spec:" (strip-refs spec)))
   
   (let [language-model (if (future? language-model) @language-model language-model)
         total-depth (if total-depth total-depth 0)]

                                                (get-in spec [:synsem :sem :tense] :top))))
                            (not (fail? (unifyc (get-in rule [:synsem :modified] :top)
                                                (get-in spec [:synsem :modified] :top)))))
                     (unifyc spec rule)
                     :fail))
                 rules)))

(defn lazy-shuffle [seq]

  (log/trace (str "candidate-parents: spec: " (strip-refs spec)))
  (filter #(not (fail? %))
          (mapfn (fn [rule]
                   (log/debug (str "candidate-parents: rule: " (:rule rule)))
                   (if (and (not (fail? (unifyc (get-in rule [:synsem :cat] :top)
                                                (get-in spec [:synsem :cat] :top))))
                            (not (fail? (unifyc (get-in rule [:synsem :infl] :top)
