more Split The Number

Haskell