Haskell tick-tack-toe with AI