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"}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page