                  (flatten
                   (mapfn
                    (fn [bolt-at]
-                    (add-bolt-at top-bolt bolt path bolt-at model depth max-depth))
+                     (add-bolt-at top-bolt bolt path bolt-at model depth max-depth))
                    bolts-at)))))))))
 
 (defn add-bolt-at [top-bolt bolt path bolt-at model depth max-depth]

               bolt
               (assoc-in bolt path bolt-at))]
            (let [comp-paths (find-comp-paths bolt-at)
                  comp-bolts (mapfn #(comp-path-to-bolts bolt-at % model (+ 1 depth) max-depth)
                                    comp-paths)]
              (when (not (some empty? comp-bolts))
                (mapfn #(if (= bolt bolt-at)
                          %

                 path)]
      (if (not (empty? path))
        (concat 
         (concat path [:comp])
         (find-comp-paths bolt (rest path)))
        [[:comp]]))))

