1  &fras ⊣ &args
 2  
 3  ⊜□⊸≠@\n
 4  
 5  Seqs ← (
 6    ≡(⊢⊚)=⊙(¤⊜∘⊸≠@\n)
 7    °¤⤸2⊞(□path(▽⊸∊:⊂⊃+-⋯1_2¤⊙◌|≍)).⟜¤
 8    ≡⍚(≡⊂⊙4⊗⊙[¯1_0 0_¯1 1_0 0_1]≡⧈-)
 9  )
10  
11  $ 789
12  $ 456
13  $ 123
14  $  0A
15  Seqs "0123456789A"
16  NumSeqs ←
17  
18  $  ^A
19  $ <v>
20  Seqs "^<v>A"
21  DirSeqs ←
22  
23  Next! ← ≡₂(/↧≡(/+⊡⧈⊟⊂4)°□⊡⊙^0)⊙⍥₃¤⇡△^0
24  
25  Solve ← (
26    Next!NumSeqs ⍥Next!DirSeqs -1: ≡≡◇(⧻⊢)DirSeqs
27    /+×≡◇⊃(/+⊡⧈⊟⊂10⊗⊙"0123456789A"|⋕▽⊸∊+@0⇡10):¤
28  )
29  
30  ⊃(Solve25|Solve2)