7 lines
216 B
Text
7 lines
216 B
Text
|
#!/usr/bin/env retro
|
||
|
|
|
||
|
|
~~~
|
||
|
|
'Line var
|
||
|
|
'tags [ &Heap [ ASCII:HT s:tokenize !Line @Line #0 a:fetch #0 sys:argv s:eq? [ @Line #2 a:fetch @Line #1 a:fetch s:put $: c:put s:put nl ] if ] v:preserve ] file:for-each-line
|
||
|
|
~~~
|