do
  let bpm = 120
  setcps (bpm/60/4)
  d1 -- KICK
    $ whenmod 16 14 (# silence)
    $ slow "<1!8 2!8>"
    $ s "k k k <k k*2>"
    # s "popkick"
    # lpf (slow 10 $ range 50 1500 sine)
    # gain 0.85
  d2 -- Drumroll
    $ whenmod 64 48 (fast 2)
    $ whenmod 64 32 degrade
    $ whenmod 64 16 (fast 2)
    $ whenmod 64 0 (slow 2)
    $ fast "<<4!4 8!2 16!2> 8> <8 16>" $ s "dr"
    # speed (slow 8 $ "<0.25 0.5 0.75>")
    # pan "[0 1]*4"
    # gain 0.7
  d4 -- Piano/ TODO: synthe
    $ whenmod 8 7 rev
    $ off ("<1 2>"/24) id
    $ note (scale "major"
    "<0 1 2 3>(<4!3 8!3>,8)"
    + "c'maj")
    # s "superpiano" # velocity 0.2
  d8 -- Choeurs
    $ note (scale "major"
    "[<0 1 2 3>!3 <7 6 5 4>]"
    + "<0!4 [0, 12]!4>" - 12
    )
    # s "moogBass" # gain 0.8






--A
  d5
    $ whenmod 4 3 (fast 2)
    $ s "~ ~ ~ clap:3"
    # gain 0.7
  d6
    $ mask "t(<1!2 2!2 4!2>,4)"
    $ jux rev
    $ note ("0(<3!4 5!4>,8)" + (slow 4 $ "<0 2 5 7 12!4>")
    -24)
    # s "supersaw"
    # voice 0.1
    # gain 0.5

d1 $ fast (irand 16) $ s "dr"

-- Attente!
do
  setcps (120/60/4)
  d1 $ s "k ~ k <k!3 k*2>" # "jazz" # gain 0.6
  d2 $ s "~ sn" # s "electro1" # gain 0.7
  d3 $ fast (slow 16 "<4 8>") $ s "drum:8" # gain 0.8
  d4
    $ note (scale "major"
    "[0, 5, 9]"
    )
    # s "bassWarsaw"
    # gain 0.7