#!/usr/bin/env perl
print "<div style=\"line-height:normal;font-size:small\">\n<h2>Contents</h2>\n<ul>\n";
$depth = 2;
while(<>) {
	if (/<h([2-3]) +id=["']?(.+?)["']?>(.+?)<\/h\1>/) {
		print " "x($1-2)."<ul style=\"padding:0 0 0 1em\">\n" if ($1 > $depth);
		print " "x($1-2)."</ul>\n" if ($1 < $depth);
		print " "x($1-2)."<li><a href=\"#$2\">$3</a>\n";
		$depth = $1;
	} elsif (/<h([2-3])>/) {
		print STDERR "! No id attribute on line $.: $_";
	}
}
print "</ul>\n</div>\n";