simpleAs (S (S Z))
as Z
as (S (S (S Z)))
pairPred (S (S (S (S Z))))
:q