#!/usr/bin/perl

$insection = 1;
$indl = 0;

while (<>)
{ if ($insection == 1)
  { if (/^##/)
    { s/##//; chop;
      if ($indl == 1) {print "</dl>\n\n";}
      print "<h2>$_</h2>\n";
      $indl = 0;
    }
    else
	{ if ($indl == 0) {print "<dl>\n"; $indl = 1;}
      chop; print "\n<dt><strong>$_</strong>";
      $times = <>; chop $times;
      print "<em>$times</em>\n<dd>";
    }
    $insection = 2;
  }
  else
  { if (/^\s*$/) {$insection = 1}
    else { print }
  }
}
    
if ($indl == 1) {print "</dl>\n"; $indl = 0};