do
-- resetCycles
setcps (140/60/4)
let maskFirstBar = mask "<f!1 t!31>"
let modIndex = pF "modIndex"
let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
let gCrush = (# crushbus 2 (range 16 4.5 "^29"))
let g = maskFirstBar . gDJF . gCrush
d1 $ g
  -- $ mask "<t!12 f!4>"
  $ fix ((|* gain 0.9) . (# lpf 5000)) "kick"
  $ "k ~ ~ k . ~ ~" # "[ifdrums,kick]"
  # midiG' "^78" 0 1.3
  # pan 0.4
d2 $ g
  $ superimpose (const $ g
    $ "~ ~ ~ ~ ~ <~!4 s!4> ~ <~!7 s>" # "snare:5" # pan 0.8
    # midiG' "^79" 0 1)
  $ mask "<f t!15>"
  $ "~ s ~ <s!3 ~>"
  # "[snare:10,drum:2]"
  # midiG' "^79" 0 1
d3 $ g
  $ midiOn "^76" (ply 2)
  -- $ mask "<f!16 t!16>"
  $ "hh*[8 8 8 <8!3 [16 8]>]"
  # att 0.01 # rel 0.5 # cut 3 # hpf 5000
  # midiG' "^80" 0 1.3
d7 $ gDJF
  $ midiOn "^92" (ply 2)
  $ note ("0*8" + "<b3 b3 d3 [cs3 bs2]>")-- BASS Riff
  # "bassWarsaw"
  # legato 0.9
  # room 0.1
  # sz 0.1
  # cut 7
  # crushbus 71 (range 16 1.5 "^53")
  # midiG' "^81" 0 1
d8 $ gDJF -- CUE Toxic Theme
  $ midiOff "^91" (mask "<f!7 t>")
  $ midiOn "^59" (rev)
  $ note ("fs7@4 cs7@4 d7@4 b7@4" + "[0,12]" - 24)
  # "FMRhodes1"
  # legato 4
  # room "0!15 0.4"
  # attack 0.05
  # modIndex "^55"
  # rel 2
  # sz 0.5
  # pan 0.9
  # midiG' "^83" 0 1.1