A (still slow) sudoku solver written in haskell