Works with tuplets, section and exclude. Now: value 1/16 on 1/12 = 1/24 value 1/16 on 3/20 = 1/20 etc... Here are the final function results: length-staccato (sequence &key (value 1/16) section exclude omn)   (length-staccato '(q - = =) :omn t) => (s -e. -q s -e. s -e.) (length-staccato '(3q -3q 3q 3q 3q 3q) :omn t) => (3q - = = = =) (length-staccato '((3q g4 gs4 a4 tie) (3q a4 b4 c5))) => ((3q g4 gs4 a4 tie) (-3q b4 c5)) (length-staccato '(5q f4 -