do
setcps (120/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.05 0.95 "^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
d1 $ gF $ gMute
  $ midiOn "^42" (struct "t t t <t!3 [~ t]>")
  $ midiOff "^42" (struct "t")
  $ "jazz"
  # midiG' "^78" 0 1.2
d2 $ gF
  $ midiOn "^43" (<| "~ c ~ c*<1 <2 [4 <2 4>]>>")
  $ midiOff "^43" (<| "~ c")
  $ "cp" # lpf 2000 # gain 0.8
  # midiG' "^79" 0 1.2
d3 $ gF3 $ gMute
  $ midiOn "^76" (ply 4)
  $ midiOn "^44" (struct "t*[8 8 <8 16> <8!3 16>]")
  $ midiOff "^44" (<| "h . h([2 <4!3 5>],8)")
  $ drumFrom "yamaharm50" "hh"
  # midiG' "^80" 0 1.2
d4 $ gF2
  $ midiOn "^89" (ply "1 . <2 1> <1 <2 4>>")
  $ midiOn "^57" (|+ note 12)
  $ note (stack ["[bf3 ~] bf3@7",
  "[~!3 <~!4 bf3!4> . bf3 ~ cs4 <ds4!3 f4>]"
  ])
  # "bassWarsaw"
  # crushbus 51 (range 16 3.4 "^53") -- BURN ME I'M FAMOUS
  # roombus  52 (range 0 0.8 "^53") --  REVERB AND DINE BEFORE THO
  # midiG' "^81" 0 1.2
d6 $ gF3
  $ note (
    "<bf5 c6 cs6 <ef6 f6>>"
    -- |+| "0 ~ [0 0] ~ ~ 0*2  ~ >"
    |+| "[<0 <0 ~> ~ 0> 0] ~ ~ ~ 0 ~ ~ ~ <[0 12] <0 [0 12]>*2>"
    )
  # "cpluck:2"
  # cut 6
  # crushbus 61 (range 16 2.8 "^54") -- BURN ME I'M FAMOUS
  # midiG' "^82" 0 1.2
d7 $ gF3 -- SHILOOOOOH FIXME: Marche plus avec la nouvelle basse
  $ midiOff "^59" ((# room 0.2) . (# legato 0.5))
  -- $ (# hpfbus  71 (range 200 8800 ("^19")))
  -- $ (# lpfbus  71 (range 8800 200 ("^35")))
  $ (# lratebus  73 (range 1 10 ("^35")))
  $ (# lesliebus 72 (range 0 1 ("^55")))
  $ slice 4 ("<[<0!3 1>]!4 [<2 [2*2]>]!4>")
  $ loopAt 16
  $ "shiloh:4/2"
  # pan 0.2
  # room 0.53
  # sz "<0.5!3 <0.8 0.9>>"
  # lsize 4
  # legato 2
  # cut 7
  # midiG' "^83" 0 1.2
d8  $ gF3 $ gM -- SIDE DRUMS TO THE RESCUE!
  $ midiOn "^20" (# n "20") -- SLOW DOWN
  $ midiOn "^36" (# n "10") -- HAT TRICK
  $ midiOn "^56" ((# n "11")) -- RESOLUTE
  $ midiOn "^60" (slow "2 <4 8>")
  $ midiOn "^92" (ply "2 <4 8>")
  $ loopAt 4
  $ chop 16
  $ "jungle_breaks:1"
  # cut 7
  # pan 0.8
  # midiG' "^84" 0 1.2