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