inpre = false
isutf = false
for line in ARGF
  line.sub!(/\r?\n$/, '')
  line.gsub!(/&(amp|lt|gt|quot|apos);/) { |c|
    case c
    when '&' then '&'
    when '&lt;' then '<'
    when '&gt;' then '>'
    when '&quot;' then '"'
    when '&apos;' then "'"
    else raise
    end
  }
  case line
  when /charset=utf-8/i then
    isutf = true
  when /^<PRE>/i then
    inpre = true
  when /^<\/PRE>/i, /^<I>$/ then
    inpre = false
    puts ''
  when /<H([34])(?: ALIGN="?CENTER"?)?>([^<]+)<\/H\1>/i then
    puts "= #{$2}"
  else
    if inpre
      line.sub!(/^<!---->( <BR>)?/, '')
      line.sub!(/^ *<BR>/, '')
      line.sub!(/<BR>(<I>)?$/, '')
      line.sub!(/^<\/I>/, '')
      line.gsub!(/ Reserved, /, " Reserved\n")
      # latin1 to utf8
      if not isutf
	line.gsub!(/[\xA0-\xFE]/) { |c|
	  if 0xA0..0xBF === c[0] then
	    "\xC2" + c
	  else
	    "\xC3" + (c[0] & 0x7F).chr
	  end
	}
      end
      puts line
    end
  end
end