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