Select Code to Download

# * is an unordered list
# # is an ordered list
...
#* list 2 ordered item 3 unordered item 1
#* list 2 ordered item 3 unordered item 2
#* list 2 ordered item 3 unordered item 3

sub story {
  my ($source, $doc_magic, $line_magic) = @_;
...
  
#  paragraph($tab,"written by $root_user", { class => 'author' });
}

my $list1 = [
    'u',
...
        ]
    ]
];

sub list {
  my ($tab,$type,$list,$opt) = @_;
...

  line($tab,"</$tag>");
}

sub item {
  my ($tab,$value,$opt) = @_;
...

  line($tab,"</$tag>");
}