#!/usr/bin/env retro

~~~
'Line var
:parse  (s-a) ASCII:HT s:tokenize dup !Line ;
:word   (-s)  #0 script:get-argument ;
:match? (a-f) #0 a:fetch word s:eq? ;
:fields (-ss) @Line [ #2 a:fetch ] [ #1 a:fetch ] bi ;
:display (-)  fields s:put $: c:put s:put nl ;
'tags [ &Heap [ parse match? [ display ] if ] v:preserve ] file:for-each-line
~~~
