                 (first (take 1
                              (lazy-mapcat (fn [each-spec]
                                            (log/info (str "generate: generating from spec: "
-                                                          each-spec))
+                                                          (strip-refs each-spec) " with max-total-depth: " max-total-depth))
                                            (let [expressions
                                                  (generate-all each-spec grammar lexicon index morph 0
                                                                :max-total-depth max-total-depth

                                       (lightning-bolts grammar lexicon (get-in parent [:head])
                                                        (+ 1 depth) index morph (+ 1 total-depth)
                                                        :max-total-depth max-total-depth)))
                         parents))]
      (if (lexemes-before-phrases total-depth)
        (lazy-cat lexical phrasal)
        (lazy-cat phrasal lexical)))))

(defn exception [error-string]
  #?(:clj

        true
        (do
          (log/info (str "generate: generating from spec: "
                         (strip-refs spec) " with max-total-depth: " max-total-depth))
          (let [expression (first (take 1 (generate-all spec grammar lexicon index morph 0
                                                        :max-total-depth max-total-depth
                                                        :truncate-children truncate-children)))]
