1  &fras ⊣ &args
 2  
 3  ⊜≡⋕≠@\n.
 4  
 5  A ← /+♭ ⊙◌⍥₄(↥>\↥⬚¯∞↻¯1.,∩(⍉⇌)) ⊸∵⋅0
 6  
 7  B ← /↥♭◌⍥₄(
 8    ∩(⍉⇌) ⟜(×◌∧⊃(⊂:¤|⊂:¤/+\↧<¤⊙(⬚¯∞↻¯1⇌))⟜(.↙0))
 9  )⟜∵⋅1
10  
11  ⊃B A