do
let melody = "<c5'maj c5'min c5'sevenSus4'2 c5'sevenSus4'3 c5'sevenSus4'3 c5'sevenSus4'4 c5'sevenSus4'5 c5'sevenSus4'5>"
setcps (120/60/4)
d1 $ "jazz*4" -- Rythme des tambours
d2 -- Hypnose des mains
  $ "~ cp"
  # note ("<0!3 <2 -2>>")
  # room 0.4
  # dry 1
  # gain 0.9
d4 -- Chant lunaire
  $ note "0(<4!3 <3 5>>,8)"
  # note (arp "up" (slow 4 melody))
  # "supersquare"
  # gain 0.6
  # legato 8 # release 4