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