BEGIN   { prevline = ""; doprint = 0; linecount = 0 }
/^[^ ]/ {
          place = index($0,">");
	  if (place > 0)
	    rest = substr($0, place+2)
	  else
	    rest = $0

	  if (linecount == 0)
	    prevline = rest
          else
	    {
	      place = length(prevline)
	      while (substr(prevline,place,1) != ">" && place > 0)
	        place--;

	      if (place > 0)
	        place += 2;

	      prefix = substr(prevline,1,place-1);
	      suffix = substr(prevline,place);
	      name   = sprintf("%s*%s", substr(suffix,1,4),
 substr(suffix,length(suffix)-4))
	      prevline = sprintf("%s%s",prefix,name);
	      place = index($0, " ");
              prevline = sprintf("%s%s",prevline,substr($0,place));
            }

	  doprint = 0;
	  linecount++
	}
        { if (doprint)
	    {
	      printf("%s\n", prevline)
	      prevline = $0;
	    }
	  doprint = 1
        }
END     { }