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