#! /usr/bin/gawk -f

/^#/ {next;} 
/^ *$/ {next;}
/^<[^>]*> *$/ {next;}

// {
  gsub(/^<[^>]*;/, "<", $0);
  trcode = (substr($0,2,1) " ");
  gsub(/^<[A-Z]> */, "", $0);
  gsub(/{[^}]*}/, "", $0);
  gsub(/[\!%]/, "", $0);
  gsub(/[*]/, "XYX", $0);
  gsub(/^[-=., ][-=., ]*/, "", $0);
  gsub(/[-=., ][-=., ]*$/, "", $0);
  gsub(/[-=., ][-=., ]*/, "\n", $0);
  gsub(/\</, trcode, $0);
  gsub(/XYX/, "?", $0);
  print; next;
}