/-?//print map(1x($'*$_?$_**2+$'**2:($t=$'+abs)%4-3?6:$t)~~/^(11+)\1+$/?'  ':'[]',@r),$/for@r=-23..23