scoreString :: ByPlayer (Player g) -> Payoff -> String 
scoreString (ByPlayer ps) (ByPlayer vs) = 
    unlines ["  "++show p++": "++showFloat v | (p,v) <- zip ps vs]
scoreString :: ByPlayer (Player g) -> Payoff -> String
scoreString (ByPlayer ps) (ByPlayer vs) = 
    unlines ["  "++show p++": "++showFloat v | (p,v) <- zip ps vs]
scoreString (ByPlayer ps) (ByPlayer vs) = 
    unlines ["  "++show p++": "++showFloat v | (p,v) <- zip ps vs]