vec($_,$x||=$$,8)=42,$x+=(1,99,-1,-99)[$d],$d=3&$d-1+(++$i/($i&-$i)&2)for($_=($/.$"x98)x99)x(1+2**<>);0while/ \S/?/\S /?!print:s/ $//gm:s/^\s*^ //gm