do
setcps (120/60/4)
let g = midiDJF "^49" 200 9800 0 6000
let modIndex = pF "modIndex"
d1 $ g
  $ midiOn "^41" (<| "k*4")
  $ midiOff "^41" (<| "k ~ k <~!3 [~ k]>")
  $ "[cpu2,jazz]"
  # midiG' "^78" 0 1.5
  # room 0.1 # sz 0.2 # dry 1
  # release (0.24 + (slow 4 perlin)/4)
d2 $ g
  $ fast 4
  "~ hh*<1 1 <2 [2 1] [1 2] 1> 1>"
  # midiG "^79"
d3 $ g
  $ note (
    "<df4 a3>(<3!8 4!8>,8,<0!6 2 2>) <b3!3 e4>*<1 1 1 2 2 2 4 [4 8]>"
    - 12
  )
  # "bassWarsaw"
  # pan 0.3
  # crush (range 10 1.5 "^53")
  # midiG' "^81" 0 1.5
d4
  $ g
  $ midiOn "^44" (slow 2)
  $ midiOn "^76" (slice 8 (run 8) . (loopAt 1 . (>| "breaks165")))
  $ midiOn "^41" (<| "k*4")
  $ loopAt 1
  $ slice 8 ("0 1 2 3 4 5 6 7"
             |+| "0 . 0 0*<1!6 2 4>" -- Surplus /8
             - "0 . <0!3 4>" -- Lag /4
             )
  $ "breaks125"
  # midiG "^80"
d5
  $ g
  $ midiOff "^41" (mask "t(<2 4 8 <8 16>>,16)")
  $ midiOn "^58" ( -- Arps
    superimpose (
    struct "t(<8!4 12!4 16!4 16!2 <16 32>!2>,8)" .
    arp "up . <up up down speedupdown>"
    . (|+ note "12 0")
  ))
  $ note (
    "<df4 a3> <b3!3 e4>" + "12*[4 8]"
    + "<c'maj!2 c'min c'maj'>" -- Accords!
    + "<0!3 12> <12!3 0>(3,8)"
    + "[0,12]"
    - 24
  )
  # "FMRhodes1"
  # modIndex 5
  # midiG "^82"
  # room 0.5 # sz 0.8
  # hpq (range 0 0.5 "^34")
  # crush (range 10 4.5 "^54")
d8 -- Hold on?
  $ g
  $ fix (# pan 0.62) (cut 81)
  $ whenmod 16 12 (midiOn "^59" $ scramble 4)
  $ whenmod 64 16 (chop 16)
  $ mask "<t f!3 t f!3 t f!3 t!4>"
  $ "daft"
  # cut "[8|8|8|8|81]"
  # room 0.7
  # midiG "^83"
  # pan 0.8
  # crush (range 10 4.5 "^55")
  # hpq 0.5
  # sz 0.7

once $ "daft" # gain 0.5