Sudoku solution in haskell