(
    (def FOO 123) ; define a constant
    (call my-add 7 8)
    (cmp res0 138 (ne? (fault "assert failed")))
    (halt)

    (proc my-add a b ; give arguments names
        (sym q r0) ; give register a temporary alias
        (add q a b)
        (add q FOO)
        (ret q)
    )
)