do
setcps (100/60/4)
let width = pF "width"
let dMask = (whenmod 8 7 (mask "t t <t [f t]> f"))
d1 $ "jazz*4" # lpf 3000
d1 $ gF1 $ gM1 
  $ fast 2 $ "k . ~ k ~ ~"
  # "[jazz,kick:5]"
d2 $ gF1 $ gM2
  $ fast 2
  $ "~ c ~ [c*<1!3 2> <~!7 c>]"
  # "vec1_snare:3"  
d3 $ gF1 $ gM2
  $ "~ h ~ h ~ h  ~ h*<1 2>" 
  # "ho:1" # gain 0.8
d4 $ gF2 $ gM3 
  $ note ("<g f c d>" - 24)
  # "bassWarsaw"
  # gain 1.4 # room 0.3 # sz 0.3 
  # octersub 1.2
d5 $ gF2 $ gM3
  $ "g/4" # "gfunk_lead:0" 
  # cut 5
  # gain 1.4
  # room 0.4
d8  $ gF1 $ gM2
  $ loopAt 1 
  $ chop 8 
  -- $ midiOn "^56" ()
  $ "jungle_breaks:50" 
  # gain 0.9
