printScore :: (GameM m g, Show (Move g)) => m Payoff
printScore = do printStrLn "Score:"
                printStr =<< liftM2 scoreString players score
                score
printScore :: (GameM m g, Show (Move g)) => m Payoff
printScore = do printStrLn "Score:"
                printStr =<< liftM2 scoreString players score
                score
printScore = do printStrLn "Score:"
                printStr =<< liftM2 scoreString players score
                score