1DEF n EQU 0 2REDEF n EQU 1 3; prints "$1" 4PRINTLN n 5 6list: MACRO 7LIST_NAME EQUS "\1" 8DEF LENGTH_{LIST_NAME} EQU 0 9ENDM 10 11item: MACRO 12REDEF LENGTH_{LIST_NAME} EQU LENGTH_{LIST_NAME} + 1 13DEF {LIST_NAME}_{d:LENGTH_{LIST_NAME}} EQU \1 14ENDM 15 16 list SQUARES 17 item 1 18 item 4 19 item 9 20 println LENGTH_SQUARES, SQUARES_1, SQUARES_2, SQUARES_3 21 22N EQUS "X" 23REDEF N EQU 42 24