do
resetCycles
setcps (120/60/4)
d1 $ mask "<t!28 f!3 [f!3 t]>" $ "[kick:5,bd]*4" # gain 0.65
d2
  $ degradeBy (slow 32 $ range 0 0.8 cosine)
  $ sometimesBy "<t!6 f f>" (superimpose (# "glitch"))
  $ "[~ dr]*4" # gain 0.7
d3
  $ degradeBy (slow 32 $ range 0 0.8 (sine + 0.25))
  $ "hh*<16!3 [16!3 4]>" # gain 0.55
d4
  $ degradeBy (slow 32 $ range 0 0.8 sine)
  $ superimpose (mask "t f!3" . (|- note 24))
  $ sometimesBy "0 <0.5!3 1>" rev
  $ slice 8 (run 16)
  $ note (scale "minPent" $ ("<e!3 b>" + run 8 - 12))
  # "supercomparator"
  # gain (slow 64 $ range 0.65 0.6 sine)
  # pan (range 0.6 0.9 perlin)
d5
  $ mask "<t!32 f!3 [f!3 t] t!28>"
  $ note (scale "minPent" $ "<e!3 <b a>>"
  - 24
  )
  # "superpwm"
  # legato 2
  # gain "<0.7!3 0.65>"
  # pan 0.3
  # room 0.1

-- PWN Maniac
do
d1 -- 4, the four
  $ whenmod 16 12 (fast "<2 2 1 [0.5 1]>")
  $ "jazz*4" # gain 0.5
d2 -- Claps graves contretemps
  $ whenmod 8 7 (fast "<2!3 4>")
  $ "~ cp"
  # lpf 2000
  # gain 0.8
d3 -- LEAD BASS
  $ whenmod 16 8 (euclid "<5!3 <3 8>>" 8)
  $ note "<g!3 <ef <d d6>>>"
  # "superpwm"
  # octave 2
  # resonance 0.25
  # semitone "<7!3 12>"
  # legato (slow 64 $ range 0.75 1 sine)
  # gain 0.65
d4
  $ fast 4
  $ "hh*<1!4 2 2 [2 4 2] [4 8]>"
  # gain 0.45
  # cut 4

-- NOISE
do
d1 $ "jazz*4" # gain 0.8
d2 $ "[glitch:2]*8" # gain 0.6
d3
  $ note ("b3'sevenSus2'2")
  # "superchip/4"
  # legato 2
  # slide (0)
  # pitch2 4
  # pitch3 (-12)
  # gain 0.5