(
    (ld g0 15)
    (call add_cat)
    (cmp g0 16
        (ne? (fault)))

    (proc add_cat
        (add g0 1)
        (ret)
    )
)