$n=<>;$r="."x2x$n;@a=("Easterhegg"x10x$n**2)=~/$r/g;print(1137>>$_-8&1?" "x2x$n:@a[$i++],$_%5?"":"\n")for map{(5*$_+1..5*$_+5)x$n}0..4
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page