do
-- resetCycles
setcps (120/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 $ gF1 $ gM2
  $ midiOff "^41" (<| "k k k k")
  $ midiOn "^41" (<| "k k k k*<1 1 1 2>")
  $ "[jazz,kick:4]"
d2 $ gF1 $ gM1 $ "~ cp ~ cp*<1!3 2>" # "snare:24" # gain 1.4
d3 $ gF1 $ gM1 $ "hh([12 <12 16 12 6>],16)" # "h2ogmhh"
d4 $ gF2 $ gM3
  $ midiOn "^57" (mask "t(<4!3 <6 8>>,8,1)")
  $ fast 2 
  $ note ("<[e3 b3 g3 b3] [e3 a3 cs4 a3]>"  - "[0,12]")
  # "bassWarsaw"
  # crushbus 42 (range 16 2 "^33")
  # octersubbus 41 (range 0 2 "^53")
  # room 0.4 # sz 0.8
d5 $ gF3 $ gM3 $ note ("<e!3 cs>@7 [<d d g d>]" - 12) # "FMRhodes1"
d7 $ gF3 $ gM3 $ note "<e3!3 cs2>@7 [d]" # "FMRhodes2"
d8 $ gF1 $ gM1 $ loopAt 2 $ chop 8 
  $ midiOn "^60" (splice 8 "1 4 3 7 4 5*2 [6 7] 7*2")
  $ "jungle_breaks:45"
  
  
  d1 $ "FMRhodes1" # note "e3"
