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

    (proc add_cat
        (add cats 1)
        (ret)
    )
)