1  &fras ⊣ &args
2  
3  ⊜∘≠@\n.
4  
5  Move‼ ← ⨬(∘|@.|^1)+×2⍜^0↻₋₁.×⊸⊃(=^1|⍜^0↻₁=@.)
6  Step  ← Move‼∘@v Move‼⍉@>
7  
8  ⊙⋅◌⍢(+1⊙(⊸Step|◌)|¬≍◌)1⊸Step