# The HTML that we've generated may need to be cleaned up. By deferring
# cleanup, the algorithms above can be simpler.
#
sub cleanup_html {
    my $html = shift;

    $html =~ s|<br><br>\n</ul>|</ul>|sg;
    $html =~ s|<br><br>\n</ol>|</ol>|sg;
    $html =~ s|<p>(<h\d>)|$1|g;
    $html =~ s|<p><hr|<hr|g;
    # $html =~ s|</blockquote>\n</blockquote>|</blockquote></blockquote>|sg;
    $html =~ s|\n</pre>\n<p>|</pre>\n<p>|sg;

    return $html;
}