do
setcps (125/60/4)
-- resetCycles
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [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 dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gMute2 
  $ "k*4" # "jazz"
d2 $ gF1 $ gM1 $ "~ cp ~ cp*<1!3 [<2 4> 2]>" 
  # "vec1_claps:1"
d3 $ gF1 $ gM1 $ "~ h ~ h ~ h ~ <h h*2 h [~ h]>" # "ho:2"
d4 $ gF2 $ gMute3 
  $ slice 8 ("<0 1 2 3>" + "<0!8 4!8>") 
  $ "bobylito" 
  # cut 4
  # room 0.3
d5 $ gF3 $ gM3 $ slow 2 $ note "<<c [c@15 f]> <e [e@15 g]>>" 
  # "90s_synatm:3" 
  # cut 5
d8 $ gF1 $ gM1 $ loopAt 2 
  $ chop 8 $ "jungle_breaks:22" 
  # cut 8
  # hpf 500
d9 $ gF3 $ gM3 $ note "<c f <e [e@3 g]>>" 
  # "moog" # n 1
  # cut 9
  # room 0.2 # pan 0.2
