module Data.Nat ( Nat(..) ) where data Nat = Z | S Nat