page: block(s?)

	block: nonplainblock | plainblock
	
	plainblock: emptyline(?) plainline(s) { $return = [ '<p>', @item[2..$#item], '</p>' ] ; }
	
	plainline: ...!emptyline  ...!nonplainblock line['','<br>']

	nonplainblock: emptyline(?) (list | pre | hrule | header)

	header: h6 | h5 | h4 | h3 | h2

	h2: '=' line['<h2>','</h2>'] { $return = $item[2] ; }

        h3: '==' line['<h3>','</h3>'] { $return = $item[2] ; }

        h4: '===' line['<h4>','</h4>'] { $return = $item[2] ; }

        h5: '====' line['<h5>','</h5>'] { $return = $item[2] ; }

        h6: '=====' line['<h6>','</h6>'] { $return = $item[2] ; }

	hrule: '----' newline(?) { $return = '</div><div class="box">' ; }

        list: olist | ulist
    
	line: linepart(s) newline(?) { $return = [($arg[0]||''),@item[1..$#item-1],($arg[1]||''), $item[-1]] ; }

	unformattedline: unformattedlinepart(s) newline(?) { $return = [($arg[0]||''),@item[1..$#item-1],($arg[1]||''), $item[-1]] ; }

	unformattedlinepart: link | plaintextpart

	plaintextpart: image | urllink | /[ \t\w]+ |(?!\z).?/

	plaintextline: plaintextpart(s) newline(?) { $return = [($arg[0]||''),@item[1..$#item-1],($arg[1]||''), $item[-1]] ; }

        newline: "\n"

        pre: preline(s)   { $return = [ '<pre>', @item[1..$#item], '</pre>' ] ; }
    
        olist: ol_line(s) { $return = [ '<ol>', @item[1..$#item], '</ol>' ] ; }
    
        ulist: ul_line(s) { $return = [ '<ul>', @item[1..$#item], '</ul>' ] ; }
    
        preline: ' ' plaintextline['',''] { $return = $item[2] ; }
    
        ol_line: /\+ +/ line['<li>','</li>'] { $return = $item[2] ; }
    
        ul_line: /\* +/ line['<li>','</li>'] { $return = $item[2] ; }

	emptyline: /[ \t]*/ newline(s)
    
        link: locallink | manlink
	
	linktext: /[\w '.,-]+/
	
	#urltextlink: '{' linktext '}' '(' url ')' { $return = "<a href='/cgi-bin/redirect?url=$item{url}'>$item{linktext}</a>" }

	urllink: url { (my $url = $item[1]) =~ s!&amp;!%26!g; $return = "<a href='/cgi-bin/redirect?url=$url'>$item[1]</a>" }

        url: m!\bhttp:/\S*[\w/]! 

	image: 'image:' url { $return = "<img src='$item[2]'>" ; }

        locallink: '{' linktext '}' 
	    {
		(my $href=my $link=$item[2])=~s/ /+/g;
		$return = -s ::find_file($link) 
		    ? "<a href=\"?$href\">$link</a>"
		    : "<a href=\"?$href\">¿</a>$link<a href=\"?$href\">?</a>"
	    }

	manlink: m!(([\w:]+)\((\d)\w?\))! { $return = "<tt><a href='/cgi-bin/man-cgi?$2+$3'>$1</a></tt>" }

	strong: '*' (...!'*' linepart)(s) '*' { $return = [ '<strong>', $item[2], '</strong>' ] ; }

	emphasized: '//' (...!'//' linepart)(s) '//' { $return = [ '<em>', $item[2], '</em>' ] ; }

	plaintext: '[[' (...!']]' plaintextpart)(s) ']]' { $return = $item[2] ; }

	striked: m!\B-\S+-\B! { (my $strike = $item[1]) =~ tr!-! !; $return = "<strike>$strike</strike>" ; }

	monospace: "''" (...!"''" linepart)(s) "''"  { $return = ['<tt>',$item[2],'</tt>'] ; }
	
        linepart: formattedlinepart | unformattedlinepart

	formattedlinepart: strong | emphasized | striked | monospace | plaintext