data Natural = Zero | Succ Natural
Zero
Succ
foldNat g a Zero = a
foldNat g a (Succ n) = g (foldNat g a n)
New to topics? Read the docs here!