section($tab, sub {
    for my $line (@$_) {
        heading($tab,$1,$2, { id => idify($2) }), next if $line =~ /^([1-6])\s+(.*)/;
        line($tab,$line),                         next if $line =~ /^</;
        line($tab,"<$line>"),                     next if $line =~ /^[bh]r$/;
        paragraph($tab,$line);
    }
}) for @sections;