setcps 0.5

d1
$ whenmod 16 8 (
  superimpose (# s "defaultB") . (# gain 0.9) . (# release 0.5)
)
$ note ("<<0 3> <0 3> <0 -4> <0 -4>>" + "0 7 ~ 0 6 7 6 3")
# s "bass3"
# gain 0.8

d2
$ whenmod 16 8 (# gain 1)
$ whenmod 16 4 (# gain 0.8)
$ whenmod 16 0 (# gain 0.6)
$ fast 2
$ sometimes (# s "dr 808cy:5")
$ s "dr*<2 4> [hh hh?]"

d3
$ someCycles ((off 0.625 (|+ 0)) . (# n "3"))
$ off 0.125 (|+ 0)
$ s "e"
# s "electro1"
# n "2"

d4 $ silence-- TODO: gets annoying, do something
$ chop 2
$ s "sillyVoice" # cut 1
# note "<0 0 3 0 0 3 7 0> <7 3>"
# gain 1
