do
setcps (160/60/4)
let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
let g = (slow 2 . gDJF)
d1 $ g
  -- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^42 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^42 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 d1's own control with gSel.
  -- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^42 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^42 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 d1's own control with gSel.
  $ midiOn "^42" (fast 2)
  $ midiOn "^41" (struct "t t t <t!3 [<~ t> t]>")
  $ midiOff "^41" (fast 2 . struct "t . ~ t ~ ~")
  $ "kick:5"
  # midiG' "^78" 0 0.7
  # lpf 500
d2 $ g
  $ fix ((# lpf 1500) . (|* gain 0.8)) "cp"
  $ midiOn "^42" (whenmod 4 3 (ply 2) . fast 2)
  $ fast 2
  $ midiOff "^42" (fast "<1!5 2!3>")
  $ "~ [snare:40,cp]"
  # note (range "-10" "10" "^51")
  # midiG' "^79" 0 0.87
d3 $ g
  $ midiOn "^43" --BOUTON NASSIM
    (ply 2 . (# speed 2))
  -- FIXME(#94) d3 drives more controls than the grid gives it (BT3 only — BL1-3 are the family mutes). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 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). ^44 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^44 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 "^44" (slice 4 "0 1 <2 2 0 0> <3 3 1 3>*<1!3 <2 1>>")
  $ midiOff "^44" (slice 4 "0 1 2 3")
  $ loopAt 2
  $ "breaks165"
  # midiG' "^80" 0 0.9
  # pan 0.3
  # lpf 5000
  # crushbus 31 (range "10" 2.5 "^31")
  # cut 3
d4 $ g
  $ midiOn "^76" (ply 2)
  $ ply "<1!4 2!4> <2 1 2 1 1 1 2 1> . [2 <4 8>]"
  $ "d d d d d d d d" # "drum:2"
  # midiG' "^81" 0 0.9
d5 $ g $ "hh(<<7!3 10> [3 <3 <7 12>>]>,12)"
  # midiG' "^82" 0 0.65
d6 -- Runny Maracas Pitchables
  $ g
  $ midiOn "^90" (fast 2)
  $ midiOn "^58" (ply 2)
  $ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
    -- $ fix ((|* gain 0.9) . (# release 0.8)) (n 9)
  $ "d ~ ~ d d ~ d <~!3 d>"
  # "hh27:2"
  # note (range "-10" "10" "^34")
    -- # crushbus 51 (range 16 4.2 "^54")
  # midiG' "^83" 0 1.2
  -- # speed (range 0 2 "^51")
d8 $ g
  $ midiOn "^60" (iter "1 4")
  $ midiOn "^92" (ply 2)
  $ slice 8 (run 8)
  $ loopAt 2
  $ "break:12"
  # room 0.4 # dry 1.05 # sz 0.6
  # pan 0.7
  # midiG' "^84" 0 0.75
  # crushbus 81 (range 16 2.5 "^36")
