my $n = 42;
my $str = join '',(("a".."z") x ($n/26 +1))[0..$n-1];
print $str,"\n";
print length($str),"\n";