tryMap (S Z) (S (S Z))
tryVMap (S Z) (S (S Z))
:q