receiveSize :: SinglePlayer -> Int -> IO ()
  receiveSize _ sz = putStrLn $ "Opponent chose size " ++ show sz ++ "."
receiveSize :: SinglePlayer -> Int -> IO ()
receiveSize _ sz = putStrLn $ "Opponent chose size " ++ show sz ++ "."
receiveSize _ sz = putStrLn $ "Opponent chose size " ++ show sz ++ "."