box in box by tybalt89

for$n(8,6,4,2){//,map$g[$'+$o][$_+$o]=$'%$n&&$_%$n?'  ':'[]',@:for@:=0..40-2*$o;$o+=$n}print@$_,$/for@g

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page