scoreLog :: ScoreBoard -> IO ()
scoreLog scores = let reversed   = tail . reverse $ scores
                      numLog s n = "Round" ++ space n ++ show n ++ ": " ++ show s
                      numbered   = zipWith numLog reversed [1..]
                      formatted  = indent . padRight <$> numbered
                  in printText $ "- Score log -"
                               : ""
                               : formatted
scoreLog :: ScoreBoard -> IO ()
scoreLog scores = let reversed   = tail . reverse $ scores
                      numLog s n = "Round" ++ space n ++ show n ++ ": " ++ show s
                      numbered   = zipWith numLog reversed [1..]
                      formatted  = indent . padRight <$> numbered
                  in printText $ "- Score log -"
                               : ""
                               : formatted
scoreLog scores = let reversed   = tail . reverse $ scores
                      numLog s n = "Round" ++ space n ++ show n ++ ": " ++ show s
                      numbered   = zipWith numLog reversed [1..]
                      formatted  = indent . padRight <$> numbered
                  in printText $ "- Score log -"
                               : ""
                               : formatted