testZ Z
testZ (S (S (S Z)))
testZ (S (S (S (S Z))))
:q
