Haskell Sudoku Solver