sub debug {
	$debug__++ or print header();
	print map {my $x = escapeHTML($_); "<pre>$x</pre>"} @_;
	print "<hr>"; }