do
-- resetCycles
setcps (90/60/4)
-- let gMute = (midiOn "^73" (mask "f*16"))
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1 -- Kick
  $ midiOff  "^41" (<| "k k k k*<1!3 2>")
  $ midiOn "^41" (<| "k  . ~ k ~ ~ ")
  -- $ "[bskick,kicklinn:2]"
  $ "reverbkick"
  # lpf 3000
  # att 0.01 # rel 0.5
  # gain 1.1
d2 $ gF1 $ gM2 -- Snare melancolie fromagere
  $ midiOff  "^42" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>")
  $ midiOn "^42" (<| "~ s ~ s*<1!3 2>")
  $ "[snare:39]" # note "-2" # lpf 4000
  # gain 1.45
d3 $ gF1 $ gM2
  $ midiOn "^43" (ply 2)
  -- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
  -- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^76 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^76 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d3's own control with gSel.
  $ midiOn "^76" (ply 2)
  $ "d*[16 <12 <16 [12 24]>> . 8]" # "dr"
  # gain 1.2
  -- # midiG' "^80" 0 1
  # room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw)
d4 $ gF2 $ gM3
  $ midiOn "^44" (struct "t(<3!3 [<3 8> <5!3 16>]>,8)")
  $ note ("<[c3@3 c3 . <ef3!0 [ef3 . c3 bf2]>] [<gs2 [gs2 bf2 gs2]> g2]>")
  # "bassWarsaw"
  # room 0.5 # sz 0.5
  # crushbus 41 (range 16 3.5 "^32")
  # octerbus 42 (range 0 0.85 "^52")
  # octersubbus 43 (range 0 1.5 "^52")
d8 $ gF1 $ gM2 $ chop 8
  $ midiOn "^60" (mask "t(4,8,1)") $ chop 8
  -- TODO PR#EMIER JET
  $ loopAt 2 $ "jungle_breaks:30" # cut 8
d9 $ gF3 $ gM3
  $ note ("<c4 ef4 gs3 g3>")
  # "moogBass"
  # room 0.15 # sz 0.15
d5 $ gF3 $ gM3
  $ midiOn "^57" (|+| note "[12 0]*[8 . <8 16>]")
  $ note (
    "<~ <[c3 c3 c3 ef3 c3 c3@3] [c3 c3 c3 bf2 <bf2 c3> c3@3]>>"
  )
  # "FMRhodes1"
  # modIndex (range 0 12 "^33")
  # room 0.4
  # octer 0.5
  # gain (1.4 - 0.3 * "^33")
