do
-- resetCycles
setcps (74/60/4)
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 gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ fast 2
  $ gF1 $ gM2
  $ midiOff "^42" (<| "k . ~ k ~ ~ ")
  $ midiOn "^42"  (<| "k k k <k <[k k*2] [k*2 k]>>")
  $ superimpose ((|* gain "^30") .(# "tek_kick:3"))
  $ "[jazz,rampleA0:1]"
d2 $ gM1 $ gF1
  $ "~ s ~ s*<1!3 2>"
  # "snare:40"
  # note "-4"
  # lpf 3000
d3 $ gM1 $ gF1
  $ "drum:2*[[24 <8 12 16 24> 32 16 32 16 32 8] 8]"
d4 $ gM3 $ gF2
  $ midiOn "^89" (ply 2)
  $ note ("<e3 <b2 fs3 a3 b3>>" + "0 . <5 -4>([3 <1 <3 5>>],8)")
  # "bassWarsaw"
  # crushbus 41 (range 16 5 "^53")
  # cut 4 # gain 0.8
d5
  $ midiOn "^58" (rev)
  $ fast 2
  $ note ("<b3 c4 cs4 c4>" )
  # crushbus 51 (range 16 3.5 "^54")
  # "FMRhodes2"
d8 $ gF1 $ gM1
  $ loopAt 1
  $ chop 8
  $ midiOn "^56" (# n 52)
  $ midiOff "^56" (slice 4 "<[0 1]!3 [0 1 2 3]>")
  $ "jungle_breaks:65"
  # gain 0.8
  # lpf 4000
d9 $ gF3
  $ fix (>| "bond:9") "d"
  $ fix (>| "bond:8") "c"
  $ fix ((# end "<0.5 1>") . (>| "bond:7")) "just_a_drink"
  $ fix (>| "bond:6") "2martinis"
  $ "<~ ~ ~ just_a_drink ~ ~ <2martinis d> ~>"
  # cut 9
  # gain 0.8
d10 $ gM3 $ gF3
  $ slice 8 "<0!3 [2 3]>"
  $ "bond:1"
  # cut 9
d11 $ gF3 $ gM3
  $ "bond:11"
  # cut 11
  # gain 1