#! perl -w
print << "EOF";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
  <head>
    <title>$ARGV[0]</title>
  </head>
  <body>
<p><tt>
EOF
while(<STDIN>){
s/\\$//;
s/(.)/$1 /g;
s/ $//;
tr[01][-|];
print;
}
print << 'EOF';
</tt></p></body></html>
EOF
