unbreaking chords

[yaxu]

This could be useful

unBreak pat orig = toWhole $ struct pat orig
  where toWhole = withEvents ((\x -> x {part = wholeOrPart x}) <$>)

'unbreaks' a sequence into a chord.

E.g. unBreak "t t" "0 1 2 3" should be the same as "[0, 1] [2, 3]"

[ndr-brt]

same as #279 ?