Parse a natural number into possible words, in Haskell