my %rulesets = (
    # The "null" ruleset exists to force us into an initial scope
    0 => {
	    can_enter =>
		    sub { },
        on_enter =>
		    sub { },
	    maybe_emit_markup =>
		    sub { },
	    maybe_push_scope =>
		    sub { 1 },
	    maybe_exit_scope =>
		    sub { },
	    on_exit =>
		    sub { }
	 },

    # The "Plain" (P) ruleset handles normal, unindented paragraphs
    P => {
	    can_enter =>
		    sub { $indent == 0 },
        on_enter =>
		    sub { },
	    maybe_emit_markup =>
    		sub {
    		    if ( $type == $BLANK ) {
    			    emit("<br>\n") if $prevtype == $BLANK;
    		    }
    		    elsif ( $type == $PLAIN ) {
    			    emit("<p>") if $prevtype != $PLAIN;
    		    }
    		},
	    maybe_push_scope =>
		    sub { $indent > 0 },
	    maybe_exit_scope =>
		    sub { 0 },
	    on_exit =>
		    sub { }
    },

    # The "BQ" (Blockquote) ruleset handles indented paragraphs
    BQ => {
	    can_enter =>
	        sub {
                $type == $PLAIN &&
                $indent > $indentstack[-1] &&
                ($indent - $indentstack[-1]) < 8    # hack for <PRE>
            },
        on_enter =>
	        sub {
                # emit("<p>") if $prevtype == $BLANK;
		        emit("<blockquote>\n");
		        $prevtype = 0;  # prime pump for maybe_emit_markup
	        },
	    maybe_emit_markup =>
    	    sub {
        		if ( $type == $BLANK ) {
        		    # emit("<br>\n") if $prevtype == $BLANK;
        		}
    	        elsif ( $type == $PLAIN ) {
    		        emit("<p>") if $prevtype == $BLANK; #TBD && $prevtype != 0;
    	        }
    	    },
	    maybe_push_scope =>
            sub { $indent > $indentstack[-1] },	#TBD fix me for <PRE>
	    maybe_exit_scope =>
	        sub {
        		$type == $BULLET || 
        		$type == $NUMBER ||
        		$indent < $indentstack[-1]
	        },
	    on_exit =>
	        sub { emit("</blockquote>\n") }
    },

    # The "UL" (Unordered List) ruleset handles bullet lists
    UL => {
	    can_enter =>
            sub { $type == $BULLET &&
				  $indent > $indentstack[-1] &&
				  ($indent - $indentstack[-1]) < 8	# hack for <PRE>
			},
        on_enter =>
            sub { emit("<ul type=disc>\n") },
	    maybe_emit_markup => 
            sub {
			     emit("<li>") if $type == $BULLET;
			     if ( $type == $BLANK ) {
			         emit("<br>") unless $prevtype == $BLANK;
				 emit("<br>");
			     }
			 },
	    maybe_push_scope =>
            sub { $indent > $indentstack[-1] },
	    maybe_exit_scope =>
            sub {
			    $type == $NUMBER ||
			    $indent < $indentstack[-1]
			},
	    on_exit =>
            sub { emit("</ul>\n") }
	  },

    # The "OL" (Ordered List) ruleset handles numbered lists
    OL => {
	    can_enter =>
            sub { $type == $NUMBER &&
				  $indent > $indentstack[-1] &&
				  ($indent - $indentstack[-1]) < 8	# hack for <PRE>
			},
        on_enter =>
            sub { emit("<ol>\n") },
	    maybe_emit_markup => 
            sub {
                emit("<li>") if $type == $NUMBER;
                if ( $type == $BLANK ) {
                    emit("<br>") unless $prevtype == $BLANK;
                    emit("<br>");
                }
            },
	    maybe_push_scope =>
            sub { $indent > $indentstack[-1] },
	    maybe_exit_scope =>
            sub {
			    $type == $BULLET ||
			    $indent < $indentstack[-1]
			},
	    on_exit =>
            sub { emit("</ol>\n") }
    },

    # The "PRE" (Preformatted) ruleset handles preformatted text
    PRE => {
	    can_enter =>
            sub { $indent > $indentstack[-1] && $indent >= 8 }, #TBD hack
           on_enter => sub { emit("<pre>") },
	    maybe_emit_markup =>
            sub { emit(" " x ($indent - 8)) if $indent > 8 },
	    maybe_push_scope =>
            sub { 0 },
	    maybe_exit_scope =>
            sub { $indent < $indentstack[-1] },
	    on_exit =>
            sub { emit("</pre>\n") },
    }
);