do
  d1
    $ sometimesBy "0 0.01!3 0 0.05!3" (0.125 ~>)
    $ whenmod 8 6 (degradeBy "0 . 0.9 1")
    $ ply 4 $ s "kick:5"
    # gain 0.5
    # release 0.6
    # lpf (slow 2 $ range 20 5000 perlin)
  d2 -- Snares noise etire
    $ whenmod 8 7 rev
    $ fast 2
    $ s "~ s*<1!3 <2 [2 4]>>" # s "glitch:7"
    # speed (range 0.5 1 perlin)
    # lpf 4000
    # gain 0.7 # pan (slow 4 $ "<0.3 0.25> <0.3 0.35>")
  d3
    $ every 5 (sometimes degrade)
    $ every 4 (often (fast 2))
    $ every 3 (sometimes (ply 2))
    $ sometimesBy "0 0.5" ((# s "hc:1") . (|- gain 0.1))
    $ s "hh*8"
    # gain 0.75
    # cut 3
  d4 -- MULTIBASSE
    $ superimpose ( -- bassline
      (+| note ("[0 7](<3!3 4>,8)" - 24)) .
      (|* gain 1.3) .
      (|- pan 0.1) .
      (# voice 0.1)
      -- (# crush (slow 8 $ range 5 8 perlin))
    )
    $ superimpose ( -- folie aigue electrique
      -- (stut 8 0.5 (1/16)) .
      ply "<2 4!2 8!2 16!4 32!8>" .
      (|+ note "<c6'maj f6'min c6'min f6'maj>") .
      (|* gain 0.5)
    )
    $ note ("<0 2 0 5 8 5 2 0>/4")
    |- note 12
    # s "supersquare"
    # voice (slow 16 $ range 0.05 2 perlin)
    # gain 0.45
    # pan 0.6
