\language "deutsch"

rhythm = { s8.[ s16] }
melody = \relative c { a d g f e b}

applyRhythm =
#(define-music-function (parser location rhythm melody)
  (ly:music? ly:music?)
  #{ $@(map
	(lambda (p da) #{ $p address@hidden #})
	(reverse!
	 (fold-some-music
	  (lambda (m) (ly:music-property m 'pitch #f))
	  (lambda (m l) (cons (ly:music-property m 'pitch) l))
	  '()
	  melody))
	(apply circular-list
	 (reverse!
	  (fold-some-music
	   (lambda (m) (music-is-of-type? m 'skip-event))
	   (lambda (m l)
	    (cons (cons (ly:music-property m 'duration)
		   (ly:music-property m 'articulations))
	     l))
	   '()
	   rhythm))))
  #})

\score {
\new Voice {
\relative c { g2 d8 h e4 f  } 
\applyRhythm \rhythm \melody
\relative c { g2 d8 h e4 f  } 
}
\layout {  }
}