         (> (* 10 prob) (rand-int 10)))
       false)))
 
-(defn show-bolt [bolt path language-model]
+(defn show-bolt [bolt language-model]
   (if (nil? bolt)
     (exception (str "don't call show-bolt with bolt=null."))
     (let [morph (:morph language-model)]
       (if (nil? morph)
         (exception (str "don't call show-bolt with morph=null."))
-        (if (not (empty? path))
-          (str "[" (get-in bolt [:rule])
-               " '" (morph-with-recovery morph bolt) "'"
-               (let [head-bolt (get-in bolt [:head])]
-                 (if (not (nil? head-bolt))
-                   (let [rest-str (show-bolt (get-in bolt [:head]) (rest path) language-model)]
-                     (if (not (nil? rest-str))
-                       (str " -> " rest-str)))))
-               "]"))))))
-
+        (str "[" (get-in bolt [:rule])
+             " '" (morph-with-recovery morph bolt) "'"
+             (let [head-bolt (get-in bolt [:head])]
+               (if (not (nil? head-bolt))
+                 (let [rest-str (show-bolt (get-in bolt [:head]) language-model)]
+                   (if (not (nil? rest-str))
+                     (str " -> " rest-str)))))
+             "]")))))
+

    (cons (vec (concat (butlast path) [:comp]))
          (find-comp-paths-in bolt (concat path [:head])))))

(defn add-complement-to-bolt [bolt path language-model total-depth
                              & {:keys [max-total-depth truncate-children]
                                 :or {max-total-depth max-total-depth
                                      truncate-children true}}]
  (log/debug (str "add-complement-to-bolt: " (show-bolt bolt path language-model)
                  "@[" (string/join " " path) "]" "^" total-depth))
  (let [index (:index language-model)
        lexicon (if (-> :generate :lexicon language-model)

  (log/info (str "lightning-bolts(depth=" depth
                 "; total-depth=" total-depth
                 "; max-total-depth=" max-total-depth
                 "; spec info:" (spec-info spec) ")"))
  (let [morph (:morph language-model)
        grammar (:grammar language-model)
        index (:index language-model)
