Beam subdivision

[Andrew Bernard]

I need to subdivide beams in tuplets into groups of two 32s joined by two beams, not one. This is pretty common. How can I do this in a more idiomatic, and less tedious way than the following?

\version "2.19.16"

\relative c'' {

  \time 1/4

  

    \tuplet 5/4 {

        e,32[

        \once \override Stem.beaming = #(cons (list 0 1 2) (list 0 1)) c'

        \once \override Stem.beaming = #(cons (list 0 1) (list 0 1 2)) bes

        \once \override Stem.beaming = #(cons (list 0 1 2) (list 0 1)) e

        \once \override Stem.beaming = #(cons (list 0 1) (list 0 1 2)) d

        \once \override Stem.beaming = #(cons (list 0 1 2) (list 0 1)) bes'

        \once \override Stem.beaming = #(cons (list 0 1) (list 0 1 2)) g

        \once \override Stem.beaming = #(cons (list 0 1 2) (list 0 1)) d'

        \once \override Stem.beaming = #(cons (list 0 1) (list 0 1 2)) d,

        aes']

      }

}

Andrew