#!/usr/bin/perl
#
$heading=1;
$list=0;
while (<>) {
    chop;
    if (! /\S/) {
	# start of a new slide - next line is heading
	$heading=1;
	if ($list==2) {
	    printf("   </UL>\n");
	    $list--;
	}
	if ($list==1) {
	    printf("</UL>\n");
	    $list--;
	}
    } else {
	if ($heading==1) {
	    printf("<H2>$_</H2>\n");
	    $heading=0;
	    $list=0;
	} else {
	    if (/\s*\-.*/) {
		s/\s+\-(.*)/\1/;
		if ($list==0) {
		    printf("<UL>\n");
		    $list++;
		} elsif ($list==2) {
		    printf("</UL>\n");
		    $list--;
		}
		printf("   <LI>$_\n");
	    } elsif (/\s+\..*/) {
		s/\s+\.(.*)/\1/;
		if ($list==1) {
		    printf("   <UL>\n");
		    $list++;
		}
		printf("      <LI>$_\n");
	    } else {
		printf("$_\n");
	    }
	}
    }
}