#!/usr/bin/perl
$q = 1;

while (<>){
	chop;
	if (/^\* (.*)$/){
		print "<h1>$1</h1>\n";
	} elsif (/^\*\* (.*)$/) {
		print "<h2>$1</h2>\n";
	} elsif (/^\*\*\* (.*)$/) {
		print "<h3>$1</h3>\n";
	} elsif (/^\*\*\*\* (.*)$/) {
		print "<h4>$1</h4>\n";
	} elsif (/^$/) {
		print "<p>\n";
	} elsif (/^\t\t\* (.*)$/) {
		print "<li>$1\n";
	} elsif (/^\@item (.*)$/){
	        $name = $link = $1;
		$link =~ s/ //g;
	        print "<a name=\"$link\">\n";
	        print "<h2>$name</h2>\n";
	} elsif (/^Q: (.*)$/){
		print "<p><a name=\"q$q\"></a><b>Question $q:</b> $1\n";
		$q++;
	} elsif (/^A: (.*)$/){
		print "$1\n";
	} elsif (/^TODO=(.*),$/){
	        print "<a name=\"$1\">\n";
        } else {
		print "$_\n";
	}
}