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