9 lines
160 B
Text
9 lines
160 B
Text
[ [] swap times
|
|
[ i^ 1+ number$
|
|
nested join ]
|
|
sort$
|
|
[] swap
|
|
witheach
|
|
[ $->n drop join ] ] is task ( n --> [ )
|
|
|
|
13 task echo
|