#!c:\perl\perl.exe -w use strict; my $A="a";for(0..285074){$A++;}print"$A";