Haskell 98 Natural Numbers