\version "2.13.20"

fagott =  \relative g, {
    \clef "bass" \key c \major \numericTimeSignature\time 4/4
    \set beatLength = #(ly:make-moment 1 8)
    \set subdivideBeams = ##t
    \repeat unfold 32 {c32 d}
    


\overrideBeamSettings #'Score #'(4 . 4) #'end
     #'(((1 . 8) . (4 4))
        ((1 . 16) . (4 4 4 4))
        ((1 . 32) . (8 8 8 8)))
        
\repeat unfold 32 {c32 d}
}    
\score {
    	    \new Staff = "Staff" <<
    	    \new Voice = "Voice" { \fagott }
    	    >>
    }