procedure wr(var fs : f_string_elt);
  begin
    with fs do begin
      write('"', ch, '"< ');
      if underscore in attr then write('undsc ');
      if bold       in attr then write('bold ');
      if italic     in attr then write('italic ');
      write('>  ');
    end;
  end;