do
setcps (125/60/4)
let gF1 =  (# 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 "^13" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let position = pF "position"
let decaycoeff = pF "decaycoeff"
let slope = pF "slope"
d1 $ gM2 $ gF1 $ "k k k <k!3 <k*2 [~ k]>>"
  # "[jazz,kick:4,kick:7]"
  # midiG' "^78" 0 1
d2 $ gM $ gF1 -- Snare be there
  -- $ mask "<f!16 t!48>"
  $ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
  $ midiOff "^43" (<| "~ <~!3 [~ c]> . c" )
  $ "[cp,h2ogmsn:1]"
  # lpf 4000 # note "-2"
  # room 0.4 #  sz 0.3 # dry 1.0
  # midiG' "^79" 0 1.4
d3 $ gM $ gF1 -- Runnin' ones
  $ "h*[<8 [8 4 8]> <8!3 16>]"
  # drumFrom "rolandtr808" "<oh [oh!6 oh:1 oh:2]>"
  # midiG' "^80" 0 1.4
  # pan 0.43
d4 $ gF2 $ gM2 -- SICK BURN
  $ midiOn "^89" ((ply "<[8 16] [16 <16!2 32!2>]>") . (# legato 0.25). (# room 0) . (# cut 4))
  $ superimpose (
    (# crushbus 42 (range 16 2 "^53"))
    . (# cut 41)
  )
  $ loopAt 2 $ slice 2 "<0 1>"
  $ "bass_commodore:3/2"
  -- # lpfbus 41 (range 20000 200 "^33")
  # cut 4
  # room 0.8 # dry 1
  # pan 0.03
  # midiG' "^81" 0 1.4
d5 $ gM $ gF3
  $ whenmod 64 16 ((|+ note "<0 0 0 <4 4 -1 -2>>") . ply 4)
  $ "90s_matrix:1/4"
  # pan 0.97
  # room 0.2
  -- # cru
  # midiG' "^20" 0 1.4
d7 $ gF3 -- Marimba à la mode
  $ note "<[gs ~ ef gs gs ~ ef gs ~ ef gs ~ ef@2 ~ e] [<~ <gs5 gs4>>]>"
  # "modalMarimba"
  # cut 7
  # pan 0.9
  # att 0.5
  # rel 2
  # position (range 0.96 0.414 "^54") -- 0.414
  # decaycoeff (range 0 4 "^34")
  # midiG' "^82" 0 1.4
  # amp (range 0 1.3 ("^82" - 0.2 * "^54"))
d8 $ gF1 $ gM -- Break the dance || Dance the break
  $ midiOn "^92" (ply "<2!3 <4 8>>")
  $ whenmod 8 7 (striate "1!3 [4 8]")
  $ whenmod 4 3 (rev)
  $ loopAt 4
  $ chop 16
  $ "jungle_breaks:10"
  # pan 0.59
  # midiG' "^84" 0 1.4
  # cut 8