generatePlayer :: Token -> IO SinglePlayer
  generatePlayer t = do 
    putStr $ "Enter the name of player " ++ show t ++ ": "
    n <- getLine
    return (SinglePlayer n t)
generatePlayer :: Token -> IO SinglePlayer
generatePlayer t = do 
    putStr $ "Enter the name of player " ++ show t ++ ": "
    n <- getLine
    return (SinglePlayer n t)
generatePlayer t = do 
    putStr $ "Enter the name of player " ++ show t ++ ": "
    n <- getLine
    return (SinglePlayer n t)