                           (get-in [:data :round])
                           dec)
                   max-rnd)]
-      (recur max-rnd (zip/next (zip/edit loc (partial update-round rnd)))))))
+      (->> (zip/edit loc (partial update-round rnd))
+           zip/next
+           (recur max-rnd)))))
 
 (defn round-info [max-rounds tree]
   (->> (zip/zipper

               (assoc %1 name %2)))
           {})
         vals                                               ;get the aggregation
         (assoc-in node [:data :teams]))))                  ;preserve the tree

(defn tournament-probabilities
  "Computes the probability of the various outcomes of a tournament.  Calculates the first round, then

       ->tournament-tree
       (#(let [tree %]
          (round-info (max-round tree) tree)))
       (matchup-info pick-scoring upset-scoring)
       (tournament-probabilities
         pick-scoring
         upset-scoring)
