1  &fras ⊣ &args
 2  
 3  ⊜≡⋕≠@\n.
 4  
 5  Bit     ← ≤×2/+⟜⧻
 6  Filter! ← ▽=^0⊸Bit⊸≡⊏
 7  Reduce! ← ⊢◌⍢(+1⟜Filter!^0|>1⧻◌)0
 8  
 9  A ← ×∩°⋯⟜¬⇌Bit
10  B ← ×∩(°⋯⇌)⊃Reduce!¬Reduce!∘
11  ⊃B A