do
-- resetCycles
let whenDJF = (whenmod 32 20)
let g = (whenDJF (# djfbus 1 (slow 16 $ range 0.5 0.12 saw)))
-- let g = id
setcps (140/60/4)
d1 $ g
  $ mask "<f!2 t!30>"
  $ "k . ~ <~ k!31> ~ ~"
  # "[jazz,kick:5]"
  # gain 0.9
d2 $ g
  $ mask "<f!8 t!60>"
  $ whenmod 64 32 (
    |* gain (slow 32 $ range 0.4 1.1 saw)
  )
  $ fast 2 $ "~ snare:8"
d3 $ fast "1 1 <1!3 4> <1 0.5>" $  "hh*16"
  # gain (slow 32 $ range 0.65 0.95 sine)
  # pan 0.3
d4 $ g
  -- $ mask "<f!32 t!32>"
  $ mask "t!3 <t!3 [f <f t>]>"
  $ chop 16 $ loopAt 2 $ "break:0" # cut 4 # pan 0.8
d5
  $ slice 4 0
  $ "blues_elmore:7"
  # cut 5
  # pan 0.3
  # gain 0.8
  # room 0.5
