Sudoku solver in Haskell