BEGIN { FS = OFS = "\n"; RS = "" } # paragraph mode
$1 ~ /^[#]{1,6} / {
    if (inlist) { inlist = 0; print "<ul>" }
    len = index($1, " ") - 1
    print "<h" len ">" substr($1,len+2) "</h" len ">"
    next }
$1 ~ /^[-] / {
    if (! inlist) { inlist = 1; print "<ul>" }
    print "<li>" substr($1,3) "</li>"
    next }
{   if (inlist) { inlist = 0; print "</ul>" }
    print "<p>" $0 "</p>" }