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