Rubik's cube solver in Haskell