A tic-tac-toe program in Haskell, hopefully with a learning algorithm for the AI.