$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;
Note that non-ascii characters in the above source code will be escaped (such as \x9f).