do
setcps (98/60/4)
-- resetCycles
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 $ gF1 $ gM1
  $ midiOn "^42" (<| "k*4")
  $ midiOff "^42" (<| "k . k(3,8)")
  $ "kick:5"
d2 $ gF1 $ gM1 
  -- $ midiOn "^78"
  $ "~ s ~ s" # "sn:32"
d3 $ gM1 $ gM1
  -- $ midiOn "^6"
  -- $ 
  $ "~ d ~ d ~ d ~ d*<2 [1 2]>" 
  # "h2ogmhh"
d8 $ gF1 $ gM1
  $ chop 8
  $ loopAt 2 
  $ "jungle_breaks:45"
  # gain 1.1
