do
resetCycles
setcps (130/60/4)
d1
  $ superimpose ((# "808bd:1") . (# cut 11)
  . (|* gain 0.8)
  . (# lpf 200)
  )
  $ cat [ -- Beat pattern
  "k ~ ~ k ~ ~ k ~", "~ k k ~ k <~ ~ ~ k> <~ k> k"
  ]
  # "808bd"
  -- # gain 0.9
  -- # cut 1
  -- # legato 0.5
d9 $ "arpy/2" # gain 0.6
d2 $ "~ cp" # lpf 2000 # gain 0.9
d3
  $ "dr*<8!3 [16 8!7]>"
  # "drum:8"
  # room 0.2
  # size 0.2
  # dry 2
  # legato 0.5
  # gain 0.5

8 8 [16 8 . 8]

once $ "[kick:3,reverbkick]" # gain 0.6 # lpf 1000 # legato 0.2
#

once $ note (arp "up" "c5'sevenSus4'5")
  # "supersquare" # gain 0.8 # legato 8 # release 4