do
setcps 0.5
d1
  $ mask "<f!4 t!4 t!3 t(1,4) t!3 t(1,2) t!16>"
  $ "[cpu,jazz]*4" # gain 0.85
d2
  $ whenmod 24 16 (fast 2 . (every' 4 3 (off "q" id)))
  $ "~ clap:2" # gain 0.8 # lpf 5000
d3
  $ often (ply "1 2")
  $ "h*<2 4 2 <[8 4] [8 16]>>" # "[cpu:4,drum:8]"
  # cut 3
  # gain 0.8
d4
  $ fast 4
  -- $ slice "<8!16 4!16 2!16 1!8>"
  $ slice 2 --"<8!16 4!16 2!16 1!8>"
  "<0 1 0 1 0 1 0 1 0!4 1!4>"
  $ "fbass"
  # n "<10!16 11!8>"
  # cut 4

do
d1
  $ fast "<2!16 4!13 0>"
  $ s "[jazz,kick:7]" # gain 0.8
d7 $ "~ cp" # gain 0.8
d2 $ "" # "sn:20" # gain 0.8
d5 $ splice 8 "2 4 0 0*2" $ s "fclav:8" # cut 1

d5 -- CLAV BASSLINE
  -- $ chop 4
  $ loopAt 1 $ s "fclav:9"
  # gain "<0.4!4 0.5!4 0.6!4 0.7!4 0.75!8>"
  # cut 21