Fast Sudoku Solver in Haskell #1: A Simple Solution