
do
setcps (85/60/4)
let gMute = (midiOn "^73" (mask "f*16"))
d1 $ gF1 $ gM1 -- Kick variable
  -- $ midiOn "^76" (fast /2)
  $ midiOn  "^41" (fast 2 . struct "t t t <t!3 t*2 t!3 t*2>") -- COME FOR THE KICK
  -- $ midiOff "^42" (struct "~ <t!3 ~>") -- L'attente
  $ midiOff "^41" (fast 2 . struct "t . ~ t ~ ~")
  $ fix (|* gain 0.9) "kick:4"
  -- $ "[techno:0,808bd:2,909,kick:4]" -- Kick explosif!
  -- $ "[techno:0,808bd:2,jazz]" -- Kick raisonnable
  $ "[techno:0,bskick,jazz,kick:4]" -- Kick dnb
  # gain 1
d2 $ gF1 $ gMute $ fast 2 -- Snare dnb assorti
  $ midiOn "^42" ( -- STAY FOR THE SNARE
  (<| "~ cp ~ cp*<1!3 2 1 2 1 2 1 2 2 2 1 2 1 2 2 2 1 2>")
  . (# "[snare:57,909:2]")
  )
  -- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^43 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^43 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 d2's own control with gSel.
  -- FIXME(#94) d2 drives more controls than the grid gives it (BT2 only — BL1-3 are the family mutes). ^43 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^43 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 d2's own control with gSel.
  $ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
  $ midiOff ("^43"+"^42") (<| "~ <~!4 c ~!3> ~ c*<1!7 2>")
  $ fix (|* gain 0.8) "snare"
  $ "[snare:40,bssnare:3]"
  # pan 0.6
  # room 0
  # note "-2"
  # legato 0.5
d3 $ gF1 $ gM2
  $ midiOn "^43" (ply "1 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 [2 4]>")
  $ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh"
  $ "~ h ~ h ~ h*<1!3 2> <~!3 h> h*<1!3 2>" # drumFrom "sakatadpm48" "[hh,oh]"
  # n "0!3 <0!3 1>"
  # pan 0.35
d4 $ gF2 $ gM3 -- COME WITH THE BASS
  --   $ superimpose (const $ gF2
  --   $ whenmod 16 8 (rev . chop 4)
  --   $ n "[19 <21!3 <20 22>>]"
  --   # "meth_bass"
  --   # cut 41
  --   # pan 0.8
  --   # midiG' "^33" 0 1.2
  --   # room 0.3
  --   # lpf 5000
  -- )
  $ slow 2
  $ midiOn "^76" (ply "1 <4 2>")
  $ midiOn "^44" (ply 2 . chop "8 . <8!3 16> <8 16>")
  $ n ("<[0 0]!6 [1 1] <2 [2 2]>>") -- TODO SYNC WITH OVER ME 
  -- $ n ("<[0 0]!6 [1 1] <2 [2 2]>>")
  # "come_bass"
  # cut 4
  # crushbus 43 (range 16 3.5 "^32")
  # room 0
  # dry (slow 64 $ range 0.2 2.8 cosine)
  # sz 0.035
  # octer 0.4
  # pan 0.2
  # gain 1.2
d5 $ gM3 $ gF3 -- Sky's guitar
  $ midiOn "^89" (ply "2 <2 <4 8>>")
  $ midiOn "^57" (>| n "<3 ~ 3 ~>")
  $ n ("<0!3 [0 1] 0!3 [0 1] 0!3 [0 1] 2!4>")
  # "come_eguitar"
  # cut 5
  # pan 0.8
  -- # speed 1.25
  # room 0.2 # sz 0.3 # dry 1.2
  # crushbus 51 (range 16 5.5 "^33")
  # gain 1.3
d11 $ gM3 $ gF3 -- Sky's companion
  $ midiOn "^58" (mask "f")
  -- $ mask "<f!8 t!24>"
  $ slice 8 ("0 1*<1!3 8> 2*<1 2> 3*<1 1 4 16>" + "<0 4>")
  $ "come_guitar"
  # n "3"
  # cut 11
  # pan 0.9
d7 $ gF3 -- together yeah!
  $ midiOn "^59" (>| n "~ ~ ~ 11") -- Shew
  $ someCyclesBy ("^35" - "^59") (>| n "<0 1 2 3 4 5 6 7>/2") -- Buildup
  $ midiOn  ("^91" - "^59") (>| n "<[~ ~ ~ <8 8 9 10>]>") -- Reponse: COME <3
  $ midiOff ("^91" + "^59" + "^35") -- Default: YEAH
    (>| n "~ ~ ~ <~!3 <13 <14 17> <15 18> <16 19>>>")
  $ "come_voice"
  # crushbus 71 (range 16 "<5 10>" "^55")
  # hpfbus   72 (range 0 3500 "^55")
  # cut 7
  # gain 1.4
d8 $ gM2 $ gF1 -- Angel Breaks
  $ midiOn "^92" (ply "<2 2 4 8>")
  $ midiOn "^60" (mask "f <t t f t>")
  $ chop 8
  -- $ someCyclesBy "^20" ((loopAt 1) . (# "break:15"))
  $ someCyclesBy "^36" ((loopAt 1) . (# n 30))
  $ someCyclesBy "^56" (slice 8 "0 1 2 3 4 5 6 7" . (loopAt 0.5) . (# n 4))
  -- $ someCyclesBy "^56" (chop 8 . loopAt 1 . (# "fbreak120:3"))
  $ loopAt 2
  $ "jungle_breaks:1"
  # cut 8
  # pan "[<0.35!3 0.65> <0.65!3 0.35>]*4"
d10 $ loopAt 2 $ fast 2 $ "<~!6 risers ~>"
  # cut 10
  # lpf 5000
