Select Code to Download

perl -MAlgorithm::Combinatorics=:all -wle'my $i=variations_with_repeti
+tion(["a".."z"],$ARGV[0]); my @x; push @x, qq[@$_] while $_=$i->next;
+ print scalar @x' 4