(
    (sym 🐈 r0)
    (ld 🐈 7)
    (unsym 🐈)

    (def FOO 777)
    (undef FOO)

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

    (proc my-add a b ; give arguments names
        (sym q r7)
        (unsym q)

        (sym q r0) ; give register a temporary alias
        (add q a b)
        (add q FOO)
        (ret q)
    )

    (add wwww wwww) ; test that it is still defined
)