selectPlayer :: Int -> IO Strategy
selectPlayer n = do putStrLn $ "Choose the player " ++ show n
                    putStrLn "1. Human"
                    putStrLn "2. CPU easy"
                    putStrLn "3. CPU medium"
                    putStrLn "4. CPU hard"
                    n <- getLine
                    getPlayer (read n)
selectPlayer :: Int -> IO Strategy
selectPlayer n = do putStrLn $ "Choose the player " ++ show n
                    putStrLn "1. Human"
                    putStrLn "2. CPU easy"
                    putStrLn "3. CPU medium"
                    putStrLn "4. CPU hard"
                    n <- getLine
                    getPlayer (read n)
selectPlayer n = do putStrLn $ "Choose the player " ++ show n
                    putStrLn "1. Human"
                    putStrLn "2. CPU easy"
                    putStrLn "3. CPU medium"
                    putStrLn "4. CPU hard"
                    n <- getLine
                    getPlayer (read n)