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

               (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

  (:require [clojure.math.combinatorics :as combo]
            [bracketolojy.util :refer :all]
            [bracketolojy.log5 :as log5]
            [bracketolojy.zip :as bzip]
            [clojure.walk :as walk]
            [clojure.zip :as zip]))

