win :: SinglePlayer -> TicTacToe -> IO ()
  win (SinglePlayer n _) _ = putStrLn $ n ++ " wins!"
win :: SinglePlayer -> TicTacToe -> IO ()
win (SinglePlayer n _) _ = putStrLn $ n ++ " wins!"
win (SinglePlayer n _) _ = putStrLn $ n ++ " wins!"