An ultimate tic tac toe solver written in haskell