 
 (defn generate-all [spec model & [depth max-depth]]
   (let [depth (or depth 0)
-        truncate false
+        truncate truncate
         max-depth (or max-depth max-total-depth)]
     (log/debug (str "generate-all:" depth "/" max-depth ":         " (strip-refs spec)))
     (->>

  (:refer-clojure :exclude [assoc-in get-in deref resolve find parents])
  (:require
   [babel.index :refer [intersection-with-identity]]
   [babel.over :as over :refer [show-bolt spec-info truncate truncate-expressions]]
   #?(:clj [clojure.tools.logging :as log])
   #?(:cljs [babel.logjs :as log]) 
   [clojure.math.combinatorics :as combo]

(def ^:const randomize-lexemes-before-phrases
  true)

(def ^:const truncate true)

(declare bolts-with-comps)
(declare candidate-parents)
