data MyNat
    = S MyNat MyNat
    | Z

%builtin Natural MyNat