-- Prestance
do
setcps (134/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 "^41" (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 praxis = "<[~ d5 d4 e4 g4 a4 b4 d4] [e4 g4 a4 b4 <e4 g4>@4]>"
d1 $ gF1 $ gM
  $ midiOn "^42" (<| "k k k k*<1!7 2>")
  $ midiOff "^42" (<| "k . k(<0!3 1 0 1 3 3>,8,<0!3 6>)")
  $ "[jazz,808bd:3]"
  -- # midiG' "^78" 0 1.4
d2 $ gF1
  $ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
  $ midiOff "^43" (<| "~ <~ c>")
  $ "snare:40"
  # note "-4"
  # midiG' "^79" 0 1.8
d3 $ gF1 $ gM
  $ midiOn "^76" (loopAt 2 . (>| "jungle_breaks:35"))
  $ midiOn "^44" (off 0.5 (ply "<1!3 2>"))
  -- $ chop 8
  $ midiOff "^76" (slice 8 "<0 1 2 3 [0 1] [1 2] [1 2] [1 2]>")
  $ loopAt 2
  $ "break:20"
  # midiG' "^80" 0 1.4
d4 $ gF2 $ gM2 $ note "<[a2@2 ~ ~ a2 b2 ~ <~!1 <b2 e2>>] <e2 g2>>"
  # "FMRhodes1" # cut 4
  # modIndex 5
  # room 0.2
  # delay 0.8
  # delayfb "<0.1!3 0.65>"
  # delayt 0.125
  # crushbus 41 (range 16 2.5 "^53")
  # midiG' "^81" 0 1.6
d6 $ gF3 $ gM2
  -- $ mask "<f!12 t!4>"
  $ note praxis
  # "bassWarsaw"
  # modIndex 5
  # crushbus 61 (range 16 2 "^56")
  # midiG' "^17" 0 1.4
  # pan 0.3
d7 $ gF3 $ gM2
  $ mask "<t(10,16)!8 f(10,16)!8>"
  $ note (praxis + 36)
  # "prophet5pwmStrings"
  # pan 0.9
  # midiG' "^18" 0 1.4
d8 $ gF3 $ gM2
  -- $ mask "<f(10,16)!8 t(10,16)!8>"
  $ juxBy 0.3 (mask "t(3,8) . t(12,16)" . (|+ note 12))
  $ note (rev praxis)
  # "moogBass"
  # modIndex 5
  # pan 0.9
  # midiG' "^19" 0 1
d9 $ gF2
  $ n "14 <13 14 14 13>"
  # note (
    "<[~ d4@7] [~ <e4 g4>@7]>"
    + 12
  )
  # "meth_bass"
  # crushbus 91 (range 16 2.5 "^55")
  # midiG' "^83" 0 1
  # cut 9
d10
  $ mask "<f!14 t f>"
  $ "jungle_pads:4@2"
  # cut 10
  # midiG' "^13" 0 1