do
setcps (135/60/4)
let f1 = (# djfbus 1 (range 0.15 0.85 "^49"))
let f2 = (# djfbus 2 (range 0.15 0.85 "^29"))
let mBreak = (midiOn "^41" (mask "t f . f <f!4 t!4> <f!2 t!6> t"))
let m = mBreak
let modIndex = pF "modIndex"
d1 $ f1
  $ midiOn "^42" (fast 2)
  $ "[cpu,jazz]*2"
  # midiG' "^78" 0 1.8
d2 $ f1 $ mask "<t!16 f!8 t!8>"
  $ "~ c ~ c*<1 2>"
  # "electro1"
  # n "<2!3 <3 3 2 3>>"
  # midiG' "^79" 0 1.8
d10 $ mask "<f!8 t!8>" $ "~ <c c [c . c*2] c>" # "clap"
  # lpf 1500
  # midiG' "^79" 0 1.8
d9 $ mask "<f!8 t!8>" $ "~ <~ c [c . c*2] c>" # "h2ogmhh"
  # midiG' "^79" 0 1.2
d3 $ f2 $ "d*[8 <8 <[8 4] 16>>]" # "drum:2"
  # midiG' "^80" 0 1.8
d4 $ f1
  $ whenmod 16 8 (superimpose (|+| note (
    "0 12*<1!3 2> <0 12> 0?"
    + 12
  )))
  $ note (scale "aeolian" "<0 3 5 7>")
  # "moog"
  # crushbus 4 (range 16 2 "^53")
  # cut 4
  # pan 0.2
  # midiG' "^81" 0 1
d5 $ f2
  $ whenmod 16 8 (superimpose (|+| note (
    "0 12*<1!3 2> <0 12> 0?"
    - 24
  )))
  $ note (scale "aeolian" "<0 3 5 7>")
  # "FMRhodes1"
  # modIndex (range 0 100 "^54")
  # cut 5
  # room 0.4
  # dry 1.5
  # sz 0.8
  # pan 0.8
  # midiG' "^82" 0 1.8


once
  $ "electro1:2"



do
let g = (# djf "^49")
d1 $ g $ "jazz*4"
  # gain (slow 8 $ range 0.5 1 sine)
d2 $ g $ "~ cp"
d3 $ g $ n "0(3,8)" # "amencutup"
--

do
let modIndex = pF "modIndex"
once $ note "c4"
  # "FMRhodes1"
  # gain 2.5
  # att 0.1
  # rel 0.9
  # modIndex 100