do
setcps (110/60/4)
let gF =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gMute = (midiOn "^73" (mask "f*16"))
d1 $ gMute $ gF -- 4 SOLID wheels
  $ fix ((# rel 0.15) . (# room 0.42) . (# sz 0.3)) "kick:5"
  $ midiOn "^41" (whenmod 32 29 (# silence) . (<| "k k k <k <k*2 [~ k]>>"))
  $ midiOff "^41" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..or not?
  $ "[jazz,kick:5]"
  -- # lpf 2000
  # midiG' "^78" 0 1.4
d2 $ gF $ gMute
  $ midiOn "^42" ((
    (+| note "~ 0 ~ 1")
    . fix (# rel 0.15) "clap"
    . fix ((# n 1) . (# rel 0.5)) "fx_commodore"
  ))
  $ fix (|* gain 0.68) "fx_commodore"
  $ midiOff "^42" (struct "~ t")
  $ "[fx_commodore:2,clap:2]"
  # note 2
  # midiG' "^79" 0 1.3
d3 $ gF $ gMask $ whenmod 4 2 (gMute) -- DRUUUUMS
  $ midiOn "^43"  --BOUTON NASSIM
    (
      whenmod 8 7 (ply "1 . <2!3 4>") .
      slice 8 ("0 1 2 3 4 5 <6!3 4> <7!3 [5 4]>") .
     (# "breaks165")
     . (# cut 3)
    . (|* gain 1.1)
    )
  -- 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.
  $ midiOff ("^76"+"^43") (struct "t([12 <12 [12 16]>],16)" . slice 8 (run 16))
  $ midiOff ("^76"+"^43") (slice 8 "0 3 . ~ 0 3 <~!3 3>")
  $ loopAt 1
  $ "break:13"
  # cut 3
  # midiG' "^80" 0 1.4
d4 $ gF2 -- BURNING BASS
  $ chop 8
  $ loopAt 4
  $ "bass_commodore:3"
  # midiG' "^81" 0 0.9
  # crushbus 41 (range 16 0 "^32")
  # lpfbus 42 (range 0 20000 "^52")
  # cut 4
  # pan 0.4
  # room 0.4 # sz 0.8
d5 $ gF2 -- BASS Melody
  $ midiOff ("^33") (mask "<t f>")
  $ sometimesBy (1 - "^33") (mask "t(1,4)")
  $ mask "t(<1!8 [2!3 <4 8>]!8 [16!7 <8 16>]!16>,16)"
  $ note ("<5 12 8 <7 13>>" + 0
  + (arp "updown" "<c'min'4!3 c'min'2>")
  )
  # "90s_synatm:3"
  # octave 4
  # crushbus 51 (range 16 4 "^53")
  # room 0.3 # dry 0.9
  # cut 5
  # pan 0.2
  # midiG' "^81" 0 1.2
d6 -- Choeurs
  $ gF
  -- $ mask "<[f!7 t]!32 t!32>"
  $ juxBy 0.75 ( -- Jumeaux maléfiques
    rev
    . (# crush 8.4)
    . (|* gain 0.8)
    . (# room 0.5)
  )
  $ note ("<5 12 8 <7 13>>"
  + (arp "pinkyup" "<c'min'4!3 c'min'2>"
    - 12)
  )
  # "choir:1"
  # gain 0.8
  # room 0.2
  # pan "[0.05 0.95]*2"
  # midiG' "^82" 0 1.2
d7 $ gF2 -- Higher spirit
  $ superimpose ((|* gain 0.79)
    . (|* speed 0.5)
    . chop 16
    . (0.125 ~>)
    . (|+ pan 0.2)
    . (# cut 71))
  $ slice 4 "<0 1 2 3>"
  $ loopAt 2
  $ "synth_commodore:28"
  # cut 7
  # pan 0.9
  # midiG' "^83" 0 1
d8 -- Lointains vaisseaux
  $ stut "<2!3 4>" "<0.5!3 0.125>" 0.9
  $ "fx_commodore:0/4"
  # pan "[0.1|0.2|0.8|0.9]"
  # room (slow 16 sine)
  # sz (slow 8 sine)
  # speed ("[0.25,0.5,0.75,1,1.25]")
  # midiG' "^36" 0 0.8
