$a = 'a';

print $a++, "\n" for 1 .. 40;