( (def FOO 14) (ld r0 (=add 14 1)) (cmp r0 15 (ne? (fault "1"))) (ld r0 (=add FOO 1)) (cmp r0 15 (ne? (fault "2"))) (ld r0 (=add (sub FOO 2) 3)) (cmp r0 15 (ne? (fault "3"))) )