$m=<>*5;e:($a,$b)=map{int(abs(4*$_/($m-1)-2)*5/4+.5)}(int($z/$m),$z%$m);$o.=$a+$b>1?substr("Easterhegg",2*$k++%10,2):"  ";$z++<$m**2-1?goto e:$o=~s/((..){$m})/$1\n/g;print$o;