                                           :arg-cardinality arg-cardinality
                                           :repeat-arg-pct repeat-arg-pct
                                           :gross-of-repeats (* gross-time-sum
-                                                               repeat-arg-pct)}))))
+                                                               repeat-arg-pct)))))
                           fn-ms))
 
 (defn get-fn-metrics

                                                         1.0))]
                              (-> metrics
                                  (dissoc :arg-set)
                                  (merge {:gross-time-avg (/ gross-time-sum
                                                             call-count
                                                             1.0)
                                          :net-time-avg  (/ (:net-time-sum metrics)

                       (map (comp :gross-time :profiling))
                       (apply +))
        net-time (- gross-time kids-time)]
    (assoc tree
           :children children
           :profiling {:gross-time gross-time
                       :net-time net-time
                       :kids-time kids-time
                       :arg-set #{(:args tree)}})))

(defn add-metrics-to-rec
  [rec]
