do setcps (120/60/4) d1 $ "jazz*4" d2 $ gF1 $ "~ cp" d4 $ gF2 $ note ("[c4 g4 c4 d4]*4" - "<12!16 0!16>" ) # "acidOto3091"