do
setcps (85/60/4)
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# djfbus 2 "^50")
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 modIndex = pF "modIndex"
d1 $ g1 $ gMute
  $ midiOn "^42" (<| "k . ~ k ~ ~")
  $ midiOff "^42" ( -- JuxGhost
    juxBy 0.4 ((sometimesBy "0 1" (rev . (|* gain 0.8)))))
  $ midiOff "^42" (<| "k . k(<3!7 [<3 8> 5]>,8,<0!3 1>)")
  $ "jazz"
  # midiG' "^78" 0 1.4
d2 $ g1 $ gM
  -- $ "~ s ~ s ~ <s [~ s]> ~ <s [s ~ s <~ s>]>"
  $ midiOn "^43"  (<| "~ s ~ s*<1!3 2>")
  $ midiOff "^43" (<| "~ s")
  $ "meth_snare:2"
  # midiG' "^79" 0 1.4
d3 $ g1 $ gM $ loopAt 2 $ "jungle_breaks"
  # pan 0.2
  # midiG' "^84" 0 1.4
d4 $ g1 $ gM
  $ fix (|* gain 0.9) "dr"
  $ "h*4 h*<4 [2 <2 4>]> h*<4 4 2 4> h*<3!3 12>"
  # "[jungle,dr]"
  # midiG' "^80" 0 1.4
d5 $ g2 $ gM
  $ whenmod 64 0 ( -- Délire
    (whenmod 4 3 (ply "1 4" . slice 4 (run 2))) .
    (# pan "<0.8 0.8 0.2 0.8>")
  )
  $ "jungle_vocals:0"
  # att 0.05
  # rel 10
  # pan 0.8
  # cut 5
  # gain 0.5
  # midiG' "^83" 0 0.6
d6
  $ slice 8 "4 <[<4 5 4 [4 5]> <5!7 1>] [4 2 <4!3 3> <2!3 3>]> "
  $ "fepiano:18"
  # hpf 2500
  # rel 0.9
  # midiG' "^82" 0 1.4
  # pan 0.8