1  &fras ⊣ &args
 2  
 3  ⊜⊜□⊸∩≠@\n,@-
 4  °⊚⊂⟜≡⇌⍜♭⊃⊛◴
 5  
 6  BK ← |4 (
 7    ⊚׬⊏⊙:⊙◡⋅⋅⊙⋅∘⬚0⊢⊚◡⋅⋅↥⊸↯¬/↥◡⋅↥
 8    ⊙⋅⋅⋅◌∧(
 9      ⊂⊙◡(BK ⊃(⍜⊏⋅1|∩×⟜:⊏⊙⋅◡⋅⋅∘)):
10      ⊙⊙⍜(⊏⊙≡⊟)⋅0_1⊙:
11    )
12  )
13  
14  A ← (
15    ◴≡⍆/◇⊂⍚(↯∞_3≡⊂¤⊙(⊚/×)⟜⊏) ⊙¤◴≡⍆⊸⊚
16    /+/↥⍉⊏⊙(=@t≡◇⊢)
17  )
18  
19  B ← /$"_,_"⍆▽°¤▽=⊸/↥/+⊸⍉BK,⊸+1↯⊙0⧻.
20  
21  ∩&p ⊃B A