 list-item     = (cell | inline-tag)*
 
 ordered-list-item      = '#' list-item
-    => [[ second ordered-list-item boa ]]
+    => [[ second list-item boa ]]
 ordered-list = ((ordered-list-item nl)+ ordered-list-item? | ordered-list-item)
     => [[ ordered-list boa ]]
 
 unordered-list-item    = '-' list-item
-    => [[ second unordered-list-item boa ]]
+    => [[ second list-item boa ]]
 unordered-list = ((unordered-list-item nl)+ unordered-list-item? | unordered-list-item)
     => [[ unordered-list boa ]]
 

TUPLE: subscript child ;
TUPLE: inline-code child ;
TUPLE: paragraph child ;
TUPLE: unordered-list-item child ;
TUPLE: unordered-list child ;
TUPLE: ordered-list-item child ;
TUPLE: ordered-list child ;
TUPLE: table child ;
TUPLE: table-row child ;

M: superscript (write-farkup) [ child>> (write-farkup) ] "sup" in-tag. ;
M: subscript (write-farkup) [ child>> (write-farkup) ] "sub" in-tag. ;
M: inline-code (write-farkup) [ child>> (write-farkup) ] "code" in-tag. ;
M: list-item (write-farkup) [ child>> (write-farkup) ] "li" in-tag. ;
M: unordered-list (write-farkup) [ child>> (write-farkup) ] "ul" in-tag. ;
M: ordered-list (write-farkup) [ child>> (write-farkup) ] "ol" in-tag. ;
M: paragraph (write-farkup) [ child>> (write-farkup) ] "p" in-tag. ;
M: link (write-farkup) [ href>> ] [ text>> ] bi write-link ;
