An AI search game implemented in Haskell