   )
 
 (defn score_pair [dice]
-  (let [counts (tally-die dice)
+  (let [counts (for [i (range 1 7)]
+                 (apply + (for [die dice] (if (= die i) 1 0))))
         result (first
                  (remove nil?
                          (for [at (range 0 6)]

      0)))

(defn full-house [dice]
  (let [tallies (tally-die dice)
        _2_at (first
                (remove nil?
                        (for [i (range 0 6)]

  )

(defn four-of-a-kind [dice]
  (let [tallies (for [i (range 1 7)]
                  (apply + (for [die dice] (if (= die i) 1 0))))
        result (first
                 (remove nil?
                         (for [i (range 0 6)]
