Select Code to Download

[
 []              ,
 [ [] ]          ,
 [ [] , [ [] ] ]
]

sub ordinal {
    my @list = defined($_[0]) ? @{ $_[1] } : ();
...

    return ordinal( $_[0] - 1 , [ @list , \@list ] );
}