do
setcps (170/60/4)
let g = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.5 0.1 saw)))
d1 $ g
  $ fix ((# att 1) . (# rel 2)) "kick"
  $ "[jazz,bd,kick:5]*4" # gain 1
d2 $ g
  $ note "~ 0 . <~ <[~ -2]!3 ~>> 0"
  # "snare:4" # lpf 2000
d3 $ g $ "hh*8"
d4 $ g
  $ note (
    "[d3 <f3!4 g3!4>]*4"
    )
  # "superhammond"
  # cut 4
  # gain 1.1
  # begin 0
d5
  $ g
  $ mask "t(<1!3 5 1 5 1 5>,8)"
  $ slice 4 "0 1 2 3*<1!3 2>"
  $ loopAt 1
  $ "breaks165"
  # gain 1.1
  # lpf 5000
d6
  $ sometimesBy (slow 8 $ range 0 0.8 saw) (ply 2)
  $ juxBy 0.4 (rev . (|- note 24))
  $ mask "t(<4 3>,8) . t(<5 3>,8)"
  $ arp "converge"
  $ note "d4'maj11'8"
  # "superfork"
  # pan 0.8
  # gain (slow 64 $ range 0.5 1.6 saw)
  # begin 0
d7
  $ slice 4 "<0 0 1 1>"
  $ "punk:0"
  # note ("<0!32 -4!32>")
  # cut 7
  # pan 0.2
  # gain 0.9