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;#