do
setcps (120/60/4)
let gF = (whenmod 64 48 (# djf (slow 16 $ range 0.5 0.08 sine)))
d1 -- Kick it
  $ mask "<f!8 f t!7 f t!3 [f t] t!3 [t f] t!8>"
  $ gF
  $ superimpose ((# "909") . (# att 0.2) . (# rel 0.2))
  $ "k k k <k [<~ k> k]>"
  # "jazz"
  # lpf 2000
  # gain 0.65
d2 $ gF -- Balance it
  $ sometimesBy "<0 0.1 0.1 0.25>" (degradeBy "0 0.1!7")
  $ "~ [s <~ <s [~ s]>> . <~!3 s*<1 2>>]"
  # "electro1:3"
  # gain (
    slow 16 $ range 0.4 0.7 saw
    + 0.1 * perlin)
  # pan 0.8
d3 $ gF -- Clap it
  $ "~ <c!3 ~ ~ [c? c]>"
  # "[cp,house:4]"
  # gain 0.5
  # lpf 2000
  # room 0.5
  # dry 1
  # pan 0.8
d4 $ gF -- Zip it.
  $ juxBy 0.2 id
  $ note "0 <~!4 1!4> ~ [2 <2 ~> <2 ~ 2*2 [~ 2]> 2]"
  # "invaders:0"
  # gain 0.4
  # pan 0.7
d5 -- Log it...
  $ mask "<f!3 t f!2 t!2 t!8 f!8 t!8>"
  $ always (superimpose ( -- Burn IT!
    (# crushbus 5 (slow 16 $ range 12 7.5 (isaw + perlin / 8)))
    . (# room 0.4)
    . (|- note 12)
    . (|+ pan 0.28)
    . (|* gain 0.68)
  ))
  $ note (
    "0 <~!4 0!4> ~ [0 <0 ~> <0 ~ 0*2 [~ 0]> 0]" -- Layered Structure
    + "0 1" -- Notes
    - 24
    )
  # "bassWarsaw"
  # pan 0.2
  # att 0.07
  # rel "0.3!3 <0.3!3 <0.6 1>>"
  # gain 0.7
d10 $ gF -- Roll it ->
  $ fix (
    (# note (scale "aeolian" ("0 1 2 4 5 <7 4 7 4 7 4 4 4>")))
    . (|* gain 0.85)
    . (# pan 0.85)
    )
    (n 7)
  $ fix (
    degradeBy "0 <0.1!2 <q <h e>> 0.05>!6 0"
    . (|* gain (slow 16 $ range 0.5 0.79 saw))
    ) (n 5) -- Metalic long hats
  $ n (stack [
    "[4 4*<1 2 4 8> 4*<2 4 4 2> 4*<2 4>]",
    "5*[8 <8!7 16 8!4 16!4>]",
    "7*[[4|8]!4 [8||<8 16>|<8!3 16>|16]!4]",
    ""
    ]) # "cpu"
  # gain 0.8