#!/usr/bin/perl -wMstrict my$A="a";$A++for(0..285074);print$A;