do
setcps (165/60/4)
let gF  =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.01 0.99 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
let progAlt = "<[c,e,g,b] [c,e,gf,a4] [c,ef,g,bf5] [c,e,g,d5]>"
let prog = "<[c,e,g,b] [c,e,g,bf] [c,ef,g,bf] [c,e,g,b]>"
d1
  $ gF $ gMute
  $ midiOn "^74" (fast 2)
  $ midiOn "^42" (-- Run
    slow 2 . (<| "k k k k"))
  $ midiOff "^42" (<| "k . ~ k ~ ~") -- L'attente
  $ "[meth_1902:2,kick:8]" # note "-2"
  # midiG' "^78" 0 1.3
d2 $ gF $ gM -- Snare glitch high
  $ midiOn "^75" (ply "<2 [2 <4 <2 4>>]>")
  $ fix ((|* gain 0.9)) ("snare:40")
  $ "~ s ~ <s!3 <s*2 <s s*2>>>" # "[snare:31,snare:40]"
  # note (range "-12" 12 "^51")
  # pan 0.46
  # room 0.74 # sz 0.2 # dry 1
  # midiG' "^79" 0 1.2
-- d3 $ gF $ gM
  -- $ midiOff "^44" (slow 2)
  -- $ midiOn "^76" (ply 2)
  -- $ drumFrom "yamaharm50" "hh*<8!3 [8 . 16 <8 16 [24 8] 32>]>"
  -- # n "<0 1 2 3>"
  -- # midiG' "^80" 0 1.2
d3 $ gF $ gM $ loopAt 2
  $ midiOff "^44" (slow 2)
  $ midiOn "^76" (ply 2)
  $ chop 16
  $ "jungle_breaks:6"
  # midiG' "^80" 0 1.2
d5 $ gF2
  $ midiOn "^89" (chop 8)
  $ note (
    -- "<[c,e,g,b] [c,e,g,bf] [c,ef,g,bf] [c,e,g,b]>"
    -- "<[c,c(3,8)] [g,[~ f6],g*4] [bf,bf(3,8)] c4>" + "0"
    "<<b4 [b4@3 cs5]> gs4@2 ~ gs4 >"
     - 24)
  # "bassWarsaw"
  # legato 2
  # cut 5
  # crushbus 51 (range 16 2 "^53")
  # midiG' "^81" 0 1.5
  # room 0.2 # sz 0.2
d4 $ gF3
  $ midiOn "^58" (
    -- (often (off 0.5 (slow "1 " . mask "f t" . (|+ note 12) . (|* gain 0.9))))
    -- . (off ("h" + "s") id . arp "up")
    -- .
    (|+| note "0(<<3 [3 5]> <5 [5 [8 4]]>>,8)")
  )
  $ whenmod 64 32 (# note (progAlt - 12))
  $ note (prog - 12)
  # "FMRhodes2"
  # modIndex (range 0 16 "^54")
  # pan 0.8
  # midiG' "^82" 0 1.3
d7 $ gF3
  $ midiOn "^59" (off "h" (# cut 71))
  $ slow 2 $ slice 16 "~ <0 1 1 0 0 2 0 2 2 1 2 3 2 3 4 5>"
  $ "shiloh:2"
  # pan 0.2
  # cut 7
  # midiG' ("^83" * (1 - 0.5 * "^19")) 0 1.5
  # delaybus 61 (range 0 1 "^55")
  # delayfb 0.5
  # delaytime 0.375
  # room 0.4 # sz 0.59
  -- # freeze 2
  # dry 2
d10 $ gF3 $ slow 2
    -- $ n "~ <8 10 6 <[10 8] ~>>"
    $ n "~ <30 31 6 <[12 8] ~>>"
    # "jungle_vocals"
    # cut 10
    # pan 0.8
    # midiG' "^19" 0 0.9
d8 $ gF $ gM
  $ midiOff "^60" (mask "t f . [f <f!3 t>] [<t!3 <f t>> t]")
  $ midiOn "^92" (ply "2 <2 4>")
  $ loopAt 1
  $ chop 8
  $ someCyclesBy "^20" ((# n 20))
  $ someCyclesBy "^36" (loopAt 2 . (# n 81))
  $ sometimesBy  "^56" ((iter "1 4"))
  $ "jungle_breaks:13"
  # room 0.2 # dry 1.05 # sz 0.4
  # cut 8
  # pan (slow 8 $ range "<0.2!8 0.8!8>" 0.5 cosine)
  # midiG' "^84" 0 1.3