#!/usr/bin/awk -f
# html2txt
# HP 20011122

{
  if ($0=="<pre>") next;
  if ($0=="</pre>") next;
  ori = $0;
  gsub("<[^>]*>","");
  gsub("&lt;","<");
  gsub("&gt;",">");
  if (ori=="" || $0!="") {
    print $0;
    if (substr(ori,1,2)=="<h") {
      if (substr(ori,3,1)=="1")
	c = "=";
      else
	c = "-";
      for (i=0; i<length($0); i++)
	printf c;
      printf "\n";
    }
  }
}
