do
setcps (60/60/4)
-- resetCycles
d1 -- Kick chaloupé
  $ mask "<f!8 t!56>"
  $ whenmod 32 24 (# djf (slow 8 $ range 0.5 1 isaw))
  $ "k . k(<5 3 5 [4 8]>,8)"
  # "[reverbkick,jazz]"
  # gain 0.6
  # room 0.2
d3 -- Drumroll léger
  $ sometimesBy "<0!3 1 0 1!3 0!120>" (stut "<4!3 3>" 0.5 "s")
  $ someCyclesBy "<0.2!3 0.5>" (fast 2)
  $ fast "<1!4 2 2 4 [8 16]>" "drum:2" # gain 0.8
d4 -- Clav clash kalash!
  $ sometimesBy "<1!8 0!120>" (|* gain (slow 16 $ range 0.25 1 saw))
  $ whenmod 64 48 (scramble 4 . chop 4)
  $ whenmod 32 24 (# djf (slow 8 $ range 0.1 0.5 saw))
  $ loopAt 2
  $ "fclav"
  # n 10
  # gain 0.65
  # cut 4
d5 -- Cymbales noise
  $ sometimesBy "<1!16 0!112>" (|* gain (slow 16 $ saw))
  $ whenmod 64 48 (
    # legato "<0.5 0.65 0.75 0.85 0.9 0.95>"
  )
  $ whenmod 32 24 (# djf (slow 8 $ range 1 0.5 saw))
  $ fast "<16!3 <4 8>>"
  $ "808cy"
  # n "<1!3 4>"
  # cut 5
  # attack "[1 <0.2 0.4 0.5 0.8>]*8"
  # gain (slow 32 $ range 0.4 0.5 sine)
d6 -- Nappes Rhodes
  $ note ("<e3 [g3'maj7'2 f3'min'2] e3 <b3'min7'2 b3'maj7'2>>")
  # "FMRhodes1"
  # pan 0.2
  # gain 0.96
d7 -- LEAD PIANO!
  $ mask "<f!4 [t f!3]!4 t!56>"
  $ whenmod 64 48 (
    euclid (slow 2 $ "<1 2 3 3 4 5 5 8>") 8
    . (# crush "<16 14 10 9>")
    . (|* gain 0.9)
    )
  $ off ("q" + "<0!8 s!8>") (
    |+ note "<c!16 <c c'maj'2 c'maj'3>!16>"
  )
  $ whenmod 32 16 (sometimesBy "f 0.8" (scramble 2))
  $ arp "<up!3 down>"
  $ note ("<e g e b>" + "c'majPent'4 c'minPent'4")
  # "superpiano"
  # velocity (slow 256 $ range 0.25 0.5 cosine)
  # pan 0.6
  # legato 2 # room 0.1