Haskell 98 natural numbers