setcps 0.4

d1 -- Kick
$ whenmod 8 7 (degradeBy "1 0.5 0.25 0")
$ fast (slow 4 $ "<1 2> <2 2 1 1>")
$ note "0 0"
# s "cpu2" # note "0 0 0 1"

d2 -- Snares
$ chunk 4 (hurry 2 . (# crush 4))
$ n "~ [2|3] [6 7?] [2 [2|8]]"
# s "cpu2"

d3 -- chunked drumroll TODO: Roll more
$ chunk' 4 (degradeBy 0.25 . fast 4)
$ chunk 4 (degrade)
$ s "dr*8"
# gain 0.9

d5
$ juxBy (slow 16 $ sine) ( -- BASSLINE
  whenmod 8 7 (# crush 6) .
  whenmod 8 6 rev .
  (# s "supersaw") . (# voice 0.01) .
  (|- note "[24,<~ 12>]") . (|- gain 0.4)
)
$ note (scale "ritusen"
(bite 4 "0 0*2 1 <2 3>" $ "0 1 ~ 2 ~ 3 4 ~"))
# s "cpu2:16"
# gain 0.9