more Happy Numbers

Haskell