extract and print all the items after duration from ly:music

[Paolo Prete]

Hello,

how can I extract and print all the items ( \mp and slur)  after the duration parameter in the function below?

Thanks.

%%%%%%%

identityFunction = #(define-music-function (parser location note) (ly:music?)

  (let

    ((mypitch (ly:music-property note 'pitch '()))

     (myduration (ly:music-property note 'duration '())))

#{$mypitch $myduration #}))

{

  \identityFunction c' 4\mp( e'4)

}

%%%%%%%