read; /"/ { clear; until '"'; clip; put; print; clear; add 'quoted-text|'; push; add ' '; } ![:space:] { whilenot '[:space:]'; <www.> <http://> { put; clear; add '<a href="'; get; add '">'; print; clear; add 'url|'; push; add ' '; } !/ / { put; clear; add 'word('; get; add ')'; print; clear; add 'word|'; push; } } [:space:] { clear; } pop;pop; /quoted-text|url|/ { clear; add '<a href="'; ++; get; --; add '">'; get; add '</a>'; put; print; clear; add 'link|'; push; flag; } push;push; state; #print;#