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