6 lines
227 B
Forth
Executable file
6 lines
227 B
Forth
Executable file
#!/usr/bin/env retro
|
|
|
|
~~~
|
|
'Line var
|
|
'tags [ &Heap [ ASCII:HT s:tokenize !Line @Line #0 a:fetch #0 script:get-argument s:eq? [ @Line #2 a:fetch @Line #1 a:fetch s:put $: c:put s:put nl ] if ] v:preserve ] file:for-each-line
|
|
~~~
|