13 lines
208 B
Text
13 lines
208 B
Text
@(collect)
|
|
@ (some)
|
|
@(coll)@{words /[^ ]+/}@(end)
|
|
@ (or)
|
|
@(bind words nil)
|
|
@ (end)
|
|
@(end)
|
|
@(set words @(mapcar (fun nreverse) words))
|
|
@(output)
|
|
@ (repeat)
|
|
@(rep)@words @(last)@words@(end)
|
|
@ (end)
|
|
@(end)
|