13 lines
230 B
Text
13 lines
230 B
Text
|
(
|
||
|
|
:separator
|
||
|
|
1 :counter
|
||
|
|
(
|
||
|
|
:item
|
||
|
|
item separator counter string ' append append "" join
|
||
|
|
counter succ @counter
|
||
|
|
) :make-item
|
||
|
|
("first" "second" "third") 'make-item map "\n" join
|
||
|
|
) :make-list
|
||
|
|
|
||
|
|
". " make-list print
|