I'm not sure I'd call it a "best way" -- it's incredibly verbose, but here's the normal way: (cmn treble (meter 6 8) (c4 e (setf hi (beat-subdivision- (subdivision 2)))) (c4 e (-beat-subdivision hi)))