c:(,/b,/:\:b:-1 0 1)
r:+/c[;1]!'c[;0]!'\:a:4{|+0,/:x}/"*"=0:`
`0:4(|+-1_)/,/'@'[$r;&:'a;:;"*"]