1 &fras ⊣ &args 2 3 ⊜∘⊸≠@\n 4 5 Step ← ( 6 [⍜°⊟⊸+ ⟜⍜⊣(⇌⍜⊣¯) ⟜⍜⊣(⍜⊣¯⇌)] 7 ∩↘⟜:=@#⊡⊙⤙⊙⊙◌⊢⊢, [1 .1000] 8 ) 9 10 ⊟⊙0_1⊢⊚⊸=@S 11 ⧻◴⊢⤸1/◇⊂ path(Step|=@E⊡⊢)