                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)]
+                  comp-bolts (pmap #(comp-path-to-bolts bolt-at % model (+ 1 depth) max-depth)
+                                   comp-paths)]
               (when (not (some empty? comp-bolts))
                 (mapfn #(if (= bolt bolt-at)
                           %

                 (flatten
                  (mapfn
                   (fn [bolt-at]
                    (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]

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

