13 lines
180 B
Text
13 lines
180 B
Text
c
|
|
|
|
[macro s(swap) - (a b : b a)]s.
|
|
[Sa Sb La Lb] ss
|
|
|
|
[macro d(2dup) - (a b : a b a b)]s.
|
|
[Sa d Sb La d Lb lsx] sd
|
|
|
|
[macro m(for) - ]s.
|
|
[lfx 1 - ldx !<m ] sm
|
|
|
|
0 10 ldx [p] sf !<m
|
|
q
|