do
setcps (110/60/4)
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g2 = (# 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"))
let gM = gMask . gMute
let modIndex = pF "modIndex"
d1 $ g1 $ gM
  $ midiOn "^42" (<| "k k k <k k*2 k [~ k]>")
  $ midiOff "^42" (<| "k ~ ~ <~!3 k> . <~!16 k!16> <~!8 k!8> <~ k ~ k> <~ k>")
  $ "[jazz,tech]"
  # pan 0.4
  # midiG' "^78" 0 1.9
d2 $ g1 $ gM
  $ midiOn "^43"  (id
    . (midiOn "^75" (ply 4 . chop 4 . (# cut 21)))
    . loopAt 2
    . (# "breaks165")
    . struct "t")
  $ midiOff "^43" (
    mask "t(<32 16 [32 16] 8 16 8 [8 4] [16 32]>,32)"
    . chop 32
    . loopAt 1
  )
  $ "break:4"
  # midiG' "^79" 0 1.9
d3 $ g1 $ gM $ "~ h ~ <h!4 h h*2 h h*2> ~ h ~ <h h*2>"
  # "[hh,808oh]"
  # midiG' "^80" 0 1.3
d4 $ g2 $ gMask
  $ superimpose ((# lpf 1500) . (# cut 41))
  $ chop 4
  $ loopAt 4
  $ "bass_atari:2"
  # crushbus 41 (range 16 2.4 "^53")
  # lpf 2000
  # cut 4
  # midiG' "^81" 0 1.3
  # pan 0.7
d5 $ g2 -- ACID RAIN
  -- $ midiOn "^58" (off 0.5 (# cut 51))
  $ slice 4 (run 8)
  $ loopAt 16
  $ "synth_commodore:1"
  # pan 0.2
  # cut 5
  # crushbus 51 (range 16 4 "^54")
  # midiG' "^82" 0 1.5
d6 $ g2 -- Good news
  $ slice 8 (slow 8 $ run 8)
  $ "synth_commodore:10"
  # cut 6
  # legato 2
  # room 0.85 # dry 1
  # sz 0.8
  # delay 0.8 # delayfb 0.25 # delayt 0.5
  # orbit 4
  # midiG' "^83" 0 1.3
d7 $ gMask $ g2 -- Everyone <3
  $ slice 8 (slow 8 $ run 8)
  $ "synth_commodore:11"
  # cut 7
  # legato 2
  # room 0.85 # dry 1
  # sz 0.8
  # squizbus 71 (range 0 8 "^56")
  # delay 0.8 # delayfb 0.25 # delayt 0.5
  # pan 0.99
  # orbit 5
  # midiG' "^84" 0 1


d2 $ slow "<2!8 1!8>" $ "~ cp" # gain 1.2 # lpf 2000