A Nonogram solver in Haskell