BinarySubstrings←{+/⌊/≢⍤⊢⌸⍤1⍉(⍺,⍨⍺÷⍨≢⍵)⍴⍵}