Select Code to Download

perl -slw

print join ' ', @_;

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

sub nForX(&@)

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

\( @a, @b, @c )

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

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

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);
}

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

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

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

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

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