1  &fras ⊣ &args
 2  
 3  N ← "J|LS"
 4  E ← "L-FS"
 5  S ← "F|7S"
 6  W ← "7-JS"
 7  
 8  Step ← ⊏⊙[¯1_0 0_1 1_0 0_¯1]
 9  
10  ⊜∘≠@\n.
11  
12  ⟜[⊃(×⊃(∊N|⬚0↻¯1∊S)
13    | ×⊃(∊E|⬚0≡↻1∊W)
14    | ×⊃(∊S|⬚0↻1∊N)
15    | ×⊃(∊W|⬚0≡↻¯1∊E))]
16  ⊢⊚=@S
17  ◡(⊢⊚≡⊡¤)
18  
19  Next ← ⊢▽:⟜⊏⊙◡(≡⊡¤) ◿4+-1⇡3:+Step⟜:
20  ⊙⋅⋅∘⍢(⊙Next⊂⊙,|¬∊⊙◌)↯0_2[]
21  
22  A ← ÷2⧻
23  B ← /+♭×≡\≠ ⊃(=2⍜⊡(+1)|¬⍜⊡(+1)⊙(×0))⊙⊢
24  ⊃B A