Alphametics - Haskell | SlaveCode