for$i(0..($n=<>)*5-1){print((abs(int($_/$n/2)-2)+abs int($i/$n)-2>1)?substr"Easterhegg",$k++%10,1:" ")for(0..$n*10-1);print"\n"}