once $ "90s_synatm:1" # cut 1 # gain 0.98

do
let gF =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
setcps (110/60/4)
d1 $ gF
  $ "k <k!7 ~> <k!3 k*2> <k k*2>" # "[jazz,kick:4,kick:5]"
  # midiG' "^78" 0 1.2
d2 $ gF
  $ midiOn "^43" (fast "<2!3 <4 [4 8]>>")
  $ "~ snare" # n "[22,26]"
  # midiG' "^79" 0 1.5
  # room 0.8 # dry 1
  # lpf 2000
d3 $ gF $ n (stack [
  "0", "~ 2*<1 2 4 8>", "~ 3 <~ 3>"
    ])
  # "amencutup"
  # midiG' "^80" 0 1.2
d4 $ gF2
  $ midiOn "^57" (mask "t(<4!4 8!4 12!4 16!4>,16)")
  $ chop 16
  $ whenmod 32 24 (iter "1 4")
  -- $ superimpose ((|+ note 12) . (# cut 41))
  -- $ midiOn "^57" (rev)
  $ loopAt 2
  $ chop 8
  $ "bass_commodore:6" # cut 4
  # midiG' "^81" 0 1.2
  # crushbus 41 (range 16 1.2 "^53")
d7 $ gF2 -- ACID BUS
  $ midiOn "^58" (slice 32 ("<0 0 0 0 0 1 1 1 0 1 2 2 0 2 2 3>*4"))
  $ midiOff "^58" (slice 8 "<0 1 2 3>")
  $ loopAt 8 $ "synth_commodore:0"
  # midiG' "^82" 0 1.2
  # cut 7
d8 $ gF
  $ superimpose ((# leslie 0.4) . (# lsize 2.8) . (# lratebus 81 (range 0 64 "^55")))
  $ "90s_synatm:1" # lpf 2000
  # lpq (slow 32 $ range 0 0.4 saw)
  # cut 8 # midiG' "^83" 0 1
  # room 0.2
  # crushbus 82 (range 16 1.2 "^35")