once $ "808bd" # gain 2

do
let modIndex = pF "modIndex"
once $ "FMRhodes1" # modIndex 10

do
setcps (85/60/4)
d1 $ loopAt 2 $ "break:7"
  # cut 1 # gain 0.5 # lpf 4000

once $ fast "8 16" $ "dr" # gain 2 # cut 4

do
setcps (93/60/4)
let modIndex = pF "modIndex"
d1 $ "jazz*4"
d2 $ "[~ ho]*4" # gain 0.6
d3
  $ arp "up converge"
  $ note (scale "aeolian"
  (
    "<c d f g>" +
    "c'maj'4 c'maj'3@4"
    - 12
  )
  )
  # "FMRhodes1"
  # voice (slow 4 $ "<0 1 2 4 6 8 10 12 16 32 48 64 64 64 96 128>")
  # gain 1.1
  # modIndex 0.4


d1 $ "jazz*4"

once $ "90s_synatm" # cut 5 # gain 0.8
d2
  $ superimpose ((# cut 22) . (# crushbus 21 (range 10 3 saw)))
  $ "90s_synatm:3/4"
  # room 0.8
  # sz 0.5
  # cut 2 # gain 0.8

do  -- Who knows what 808 techno could be
setcps (93/60/4)
d1
  $ "k k k <k!3 <~ [~ k]>>"
  # "808bd:2"
d2
  $ n "1 ~ 1*<1 1 <2 4> 1> 2*<1 1 2 1>" # "hc" # gain 0.5 # cut 2
d4
  $ fast "4!3 <4!2 8 <1 2 4 16>>"
  $ "~ drum:2"
  # gain 0.8

do -- SOME ACID tech
setcps (97/60/4)
let g1 = (whenmod 32 24 (# djfbus 1 (slow 8 $  range 0.5 0.1 saw)))
let g2 = (whenmod 64 32 (# djfbus 2 (slow 16 $ range 0.5 0.95 saw)))
let g3 = (whenmod 64 48 (# djfbus 2 (slow 16 $ range 0.95 0.5 saw)))
let g = g1 . g2 . g3
d1 $ g $ "[909,jazz]*4" # lpf 4000 # cut 1 # gain 1.4 # room 0.4 # dry 1
d2 $ g $ mask "<f!16 t!16>" $ whenmod 16 8 (fast 2) $ "~ cp" # lpf 2000 # note "-4"
d3 $ g $ fast "1 <1!3 2>" $ "cpu2:3*8"
  # pan (fast 4 $ rand)
  # gain (slow 64 $ range 0.8 1.1 (saw - perlin*0.2))


do -- Get that beat broken
let g1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g = g1
setcps (80/60/4)
d1 $ g
  $ fix ((# att 0.1) . (# rel 10)) "wobble"
  $ "[jazz,808bd:4,wobble]"
  # midiG
d2 $ g $ "~ snare:40"
  # gain (slow 32 $ range 0.5 1 saw)
d4 $ g
 $ slice 4 "0 1 2 <3 [~ 3] 3 3*4>"
 $ loopAt 2
 $ "break:13" # cut 4 # gain 0.95