Implement converter from Nat to int

peano.hs

@@ -1,2 +1,5 @@
 data Nat = Zero | Succ Nat
 
+intValOf thisNat = case thisNat of
+	Zero -> 0
+	Succ nextNat -> 1 + intValOf nextNat