           child-spec (u/get-in tree f)
           child-lexemes #(get-lexemes child-spec)
           child-trees #(parent-with-head child-spec depth)]
-      (when println? (println (str "grow at:" ((:morph-ps model) tree))))
-      (log/debug (str "grow at:" ((:morph-ps model) tree)))
+      (when println? (println (str "grow at:" (morph-ps tree))))
+      (log/debug (str "grow at:" (morph-ps tree)))
       (lazy-cat
        (if (not (empty? f))
          (grow

         (parent-with-head-1 spec depth (rest parent-rules)))))))

(defn get-lexemes 
  "Get lexemes matching the spec. Use a model's index if available, where the index 
   is a function that we call with _spec_ to get a set of indices. 
   Otherwise use the model's entire lexeme."
  [spec]
  (->>
   (index-fn spec)

            (concat (butlast f) [::done?])
            true)
           (u/dissoc-paths (if truncate? [f] []))
           (default-fn)))
     (assoc-each-default tree (rest children) f))))

(defn assoc-children [tree children f]
  (if (not (empty? children))
    (let [child (first children)]
      (lazy-cat
       (if (= true (u/get-in child [::done?]))
         (assoc-each-default tree (default-fn child) f)
