#!/usr/bin/perl -wT

print "<div xmlns=\"http://www.w3.org/1999/xhtml\">\n";
nest(0, 5, 5, 'span');
print "</div>\n";

:nth-child(-1n+6) :nth-child(-2) :nth-child(-2n-2)

sub nest {
    my($indent, $remaining, $count, $element, @position) = @_;
    ++$indent;
    --$remaining;
    for (my $index = 0; $index < $count; ++$index) {
        if ($remaining > 1) {
            print((' ' x $indent) . "<$element>\n");
            nest($indent, $remaining, $count, $element, @position, $index);
            print((' ' x $indent) . "</$element>\n");
        } elsif ($remaining) {
            print((' ' x $indent) . "<$element> ");
            nest($indent, $remaining, $count, $element, @position, $index);
            print "</$element>\n";
        } else {
            my $class = tryToMatch(\@position, [nthChild(-1, 6), nthChild(0, -2), nthChild(-2, -2)]) ? 'match' : 'nomatch';
            print "<$element class="$class">Test</$element> ";
        }
    }
}

sub nthChild {
    my($position, $counts) = @_;
    if
}