more Set Intersection, Word to Digit

Haskell