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