perl -slw

##</code><code>##

print join ' ', @_;

##</code><code>##

print join(' ', @_), "\n";

##</code><code>##

sub nForX(&@)   

##</code><code>##

&nForX( $code, $n-1, @_, $i );

##</code><code>##

\( @a, @b, @c )

##</code><code>##

for my $i (1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
{
    &nForX($code, 2, \@b, \@c, $i);
}

##</code><code>##

&nForX($code, 2, \@b, \@c, 1);

##</code><code>##

for my $i ('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z')
{
    &nForX($code, 1, \@c, 1, $i);
}

##</code><code>##

&nForX($code, 1, \@c, 1, 'a');

##</code><code>##

for my $i ('!', '"', '#', '$', '%', '&', "'", '(', ')', '*', '+', ',', '-', '.', '/')
{
    &nForX($code, 0, 1, 'a', $i);
}

##</code><code>##

&nForX($code, 0, 1, 'a', '!');

##</code><code>##

return print join ' ', 1, 'a', '!';

##</code><code>##

&nForX($code, 0, 1, 'a', '"');