1s EQUS "Hello, " 2REDEF s EQUS "{s}world!" 3; prints "Hello, world!" 4PRINTLN "{s}" 5 6list: MACRO 7LIST_NAME EQUS "\1" 8REDEF {LIST_NAME} EQUS "[" 9REPT _NARG - 1 10REDEF {LIST_NAME} EQUS "{{LIST_NAME}}\2;" 11SHIFT 12ENDR 13REDEF {LIST_NAME} EQUS "{{LIST_NAME}}]" 14PURGE LIST_NAME 15ENDM 16 17 list FOO 18 PRINTLN "{FOO}" 19 list FOO, 1, A, 2, B 20 PRINTLN "{FOO}" 21 22N EQU 42 23REDEF N EQUS "X" 24