do
setcps (100/60/4)
let g = whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.5 0.1 saw))
d1 $ g
  $ fix (# att 0) "909"
  $ "k*<2!16 1!16> . <k*2!16 <k k(<3 3 5 3 3 3 5 5>,8)>!16>"
  # "[jazz,909]"
  # gain 1.2
d2 $ g $ "~ cp" # gain 0.8 # lpf 2000
d3 $ g
  $ note (scale "aeolian" ("<c e f g>" + arp "up" "c4'min'4"))
  # "distortedGuitar"
d4 $ g
  $ slice 4 ("0 1 2 <0 1 2 3>")
  $ "break:0"
  # cut 4
  # gain 0.8
d5
  $ whenmod 32 16 (off 0.5 ((# cut 52) . (# crush 5)))
  $ superimpose ((# cut 51) . (ply 4) . (|+ note 12) . (# pan 0.8))
  $ note (scale "aeolian" ("<0 [3@3 <2!3 4>]>")
  - 12)
  # "bassWarsaw" # gain 0.6
  # room 0.4
  # pan 0.2
  # sz 0.8