do
-- resetCycles
setcps (120/60/4)
let modIndex = pF "modIndex"
d1 $ gF1 $ gM1
  -- $ midiOn "^42" (<| "k*2 k k <k <k*2 [~ k*<1 [4 2]>]>>") -- PERMANENCE
  $ midiOn "^41" (<| "k k k <k k*2 k [~ k]>" )
  $ midiOff "^41" (<| "k . ~ k ~ ~")
  $ "[jazz,kick:5]"
d2 $ gF1 $ gM2
  $ midiOn "^42" (<| "~ c ~ c*<1 <2 2 1>>")
  $ midiOff "^42" (<| "~ <c!3 [c*2]>")
  $ "[snare:40,sn:31]"
d3 $ gF3 $ gM2
  $ midiOn "^43" (ply 4)
  -- 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" (<| "~ h ~ h ~ h ~ h*<1 2>")
  $ midiOff "^44" (<| "h(<3!4 8!8>,8) h(<3 3 5 <5 [5 8]>>,8)" )
  $ "hh:7"
  |* gain (range 0.8 1.2 perlin * 2)
  # gain 0.7
  # cut 3
d4 
  $ loopAt 2 $ "meth_bass"
d8 $ gM2 $ gF1
  $ midiOn "^60" (("e" <~) . mask "<t(4,8)>")
  $ chop 16
  $ midiOn "^36" (# "break:5")
  $ midiOn "^92" (
    (# delay 0.3)
    . (# delayt "q") . (#delayfb 0.5)
    )
  -- FIXME(#54) d8 drives more controls than the grid gives it (B8 + C8). ^56 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^56 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 d8's own control with gSel.
  $ midiOn "^56" (loopAt 1 . (# n "46"))
  $ midiOn "^56" (loopAt 0.5 . (# n "19"))
  -- $ slice 2 "0 1*<1!3 4>"
  $ loopAt 4
  $ "jungle_breaks:45"

d1 $ gM1 $ gF1 -- Kick solide
  $ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
  $ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
  $ midiOn "^41" (struct "t t t t*<1!6 2 2>")
  $ midiOff "^41" (<| "k . ~ <~!3 k> ~ ~")
  $ "[jazz,kick:4]"
  -- # midiG' "^78" 0 1.5
d2
  $ gM2 $ gF1 -- snare contretemps variable
  $ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
  $ midiOn "^42" (<| "~ cp ~ cp*<1 1 2 <1 2>>")
  $ midiOff "^42" (<| "~ cp")
  $ "[cp,snare:24]"
  # pan 0.65
  # legato 0.22
  -- # midiG' "^79" 0 1.6
d3 $ gM2 $ gF1
  $ "~ d ~ d ~ d ~ <d!12 [~ d]!3 [d d]>"
  # "snare:34"
  # hpf 7000
  -- # midiG' "^80" 0 1.5
d4 -- Basse convaincante
  $ gM3 $ gF2
  $ whenmod 64 32 (# drybus 41 (slow 32 $ range 1.9 1 saw))
  -- $ midiOn "^89" (ply "<[4@5 2 4 2] 1>")
  $ midiOn "^44" (segment "<4 [4 <8 8 16 16>]>")
  $ someCyclesBy (1 - "^32") (struct "<t [t t]>")
  $ rarely (ply "1@5 1 <1!3 2> [<1 2> <1 1 1 2>]")
  $ note "<c3 c3 c3 c3 gs2 gs2 b2 b2>@5 ef3 d3 <ef3!4 c3!3 b2>"
  # "bassWarsaw"
  # room 0.2 # sz 0.1
  # crushbus 42 (range 16 4 "^52")
  -- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^33 now belongs to another orbit, so the line(s) below are COMMENTED OUT rather than left firing across columns. Nothing is lost — restore by removing the dashes once gSel folds this onto d4's own control.
  -- # relbus 43 (range 2 0.02 "^33") # att 0.22
  -- -- # midiG' "^81" 0 1.5
  # pan 0.4
  |* gain ("1@5 0.95 0.98 0.95" * 1.1 )
d5 $ gF3 -- Appel oiseau joyeux oiseau joyaux
  $ midiOn "^57" ( -- Oiseau de nuit
    rev . (|+ note "<<0 0 [0 -7] [0 -7]>!3 [0!3 -12]>")
    )
  $ mask "<[[t <f!4 t!4>] <f!8 t!8>]!8 t!24 t!96>"
  -- g c ef g / g c ef f / gs c ef f / gs c ef g
  -- g c ef g / g c ef f / gs c ef gs / gs c ef g
  -- g c ef g / g c ef f / gs c ef f / gs c ef g
  -- g c ef g / gsc ef f / gs c g f / gs c f ef
  $ note ("<[<g4 <g4!3 gs4> gs4 gs4>@3 <c!13 gs4 c c>@2 <ef!14 g f>@3] <g f <f gs f f> <g g g ef>>>")
  # "FMRhodes1"
  # modIndex (range 0 50 "^33")
  # delaybus 51 (range 0 0.8 "^53")
  # delayt "<h>"
  # delayfb 0.25
  # pan 0.7
  -- # midiG' "^82" 0 1.5
d8 $ gF1 $ gM2
  $ midiOn "^92" (ply "1 <2!3 4>")
  $ midiOff "^60" (mask "t(4,8,1)")
  $ chop 16
  $ loopAt 2
  $ "jungle_breaks:45"
  # cut 8
  -- # midiG' "^84" 0 1.5
d6 $ gF1 -- HAWKS
  -- $ mask "<f!16 t!16>"
  $ "~ [s s*2] ~ [s <~!3 s>]"
  # "armora:1"
  # legato "<0.5>"
  # note "<c10!3 d10 d10 d10 e10 [e10!3 c10]>"
  # pan 0.9
  # hpf (slow 8 $ range 5000 "<8000!32 800!32>" saw)
  # room 1.0
  # sz 0.01
  # dry 1.025
  -- # room 0
  -- # midiG' "^31" 0 1.5
d7
  $ gM3 $ gF3 -- High carillon!
  $ midiOn "^91" ( -- Basse reponse
    superimpose ((0.125 <~) . (|* gain 1.2) . (# note "<c4!4  cs4!4>") . (# pan 0.45))
  )
  $ (0.125 ~>)
  $ note ("<c!4 ef!2 f g> <c!4 ef!2 f g> <c!4 ef!2 f g> <ef!4 f f g c6>"
  - 7 -- Calage
  )
  # "808hc:2"
  # pan 0.85
  -- # midiG' "^83" 0 1.5
  # gain 0.8
d9 $ gF3 -- Pads atmospheriques
  $ off 0.25 ((# pan 0.8) . (# cut 91))
  $ note ("<c4 c4 c4 c4 gs3 gs3 b3 b3>"
  -9 -- calage
  )
  # "trance_pads:7"
  # cut 9 # legato 2
  -- # midiG' "^20" 0 1.4
  # pan 0.4
  # gain 1
  # room 0.4
d10
  $ mask "<f!16 t!16 t!96>"
  $ gF1 $ "<~!12 <risers:2!3 ~> ~ ~ ~>"
  # end 0.85
  # cut 10
  -- # midiG' "^13" 0 1.3
  -- # gain (1.3 * "^77")
  # gain 1
d11
  $ mask "<f!24 t!8>"
  $ note ("~ <c5!4 ef5 ef5 f5 g5>" + 4)
  # "~ cy"
  # "808cy:8"
  -- # gain ("^77" * 1.1 * (slow 8 $ range 0.75 1 saw))
  # gain (1.1 * (slow 8 $ range 0.75 1 saw))
d8
  $ gF1
  $ midiOn "^92" (ply 8)
  -- $ slice 2 "0 1*<1!3 4>"
  $ chop 8
  $ loopAt 2
  $ "break:11"

once $ arp "up" $ note ("c4'maj'4")
# "808cy:8"
 # gain 1

d11 -- What is the effect?
  $ fix ((# "weird_dialogs:39") . (# begin 0.81)) "answer"
  $ fix ((# "weird_dialogs:39") . (# begin 0.45). (# end 0.81)) "variations"
  $ fix ((# "weird_dialogs:39") . (# begin 0.2). (# end 0.45)) "almost"
  $ fix ((# "weird_dialogs:39") . (# end 0.2)) "effects"
  $ whenmod 32 28 (# "~ <answer!3 [variations answer]>")
  $ "~ <<effects!4 almost!4> <almost variations>>"
  -- $ "~ <variations>"
  # midiG' "^20" 0 1.4
  # cut 11
  # speed 1

once $ "weird_dialogs:39"
  # begin 0.45
  # end 1
  # cut 11

d2
  $ "~ cp"
