do
setcps (100/60/4)
let gF =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gM1 $ gF -- Tradition never disappoints: 4 on the fl00r...
  $ midiOn "^41" (<| "k k k <k <k*2 [k*2 k]>>")
  $ midiOff "^41" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..or not?
  $ "[kick:5,808bd:4,kick:4]"
  # gain 1.2
d2 $ gM
  $ gF
  $ midiOn  "^42" (<| "~ c ~ c*[1 <1 <4 <1 4>>>]" )
  $ midiOff "^42" (<| "~ <c!7 ~>" )
  $ "clap:2"
  # lpf 2000
  # note "-2"
  # room (slow 8 $ range 0.2 0.6 saw) # dry 1
  # gain 1.3
d3 $ gF $ gM
  -- FIXME(#94) d3 drives more controls than the grid gives it (BT3 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 d3's own control with gSel.
  $ midiOn "^43" (ply "2 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" (off (0.5- 0.125) id)
  $ "~ h ~ h ~ h*<1 <1!4 2!4> 1 2> ~ h*<1!6 2 <2 4>>"
  # "hh"
  # panbus 31 ((range 0.3 0.7 (whenmod 8 6 rev $ saw)))
  # gain 1.4
  # room 0.3
  # dry 1.1
d4 $ gM3 $ gF2 -- Malediction acide
    $ someCyclesBy (1 - "^32") (mask "t(3, 8)" . chop 8)
    $ midiOn "^76" (chop "<8!3 16>")
    $ midiOn "^44" (jux ((# cut 41) . rev))
    -- FIXME(#94) d4 drives more controls than the grid gives it (BT4 + BL4). ^41 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^41 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 d4's own control with gSel.
    -- FIXME(#94) d4 drives more controls than the grid gives it (BT4 + BL4). ^41 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^41 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 d4's own control with gSel.
    $ midiOff "^41" (
      whenmod 32 8 (superimpose (("q" ~>) . (|* gain 0.93)))
    )
    $ chop 8
    $ loopAt 8
    $ "synth_commodore" # n "1"
    # crushbus 41 (range 16 2.25 "^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.
    -- # roombus  43 (range 0 0.5  "^33")
    # cut 4
    # gain 1.2
    # panbus 64 (range "<0.13!16 0.87!16>" "<0.87!16 0.13!16>" (slow 16 saw))
    -- # pan 0.8
d5 $ gF3 -- Piano solo lover sunset
  $ midiOn "^57" (-- Sunset echoes
    off 0.5 ((someCyclesBy 0.1 (juxBy 0.8 (off "[0.125,0.25]" (|+ note 12) . (|* gain 0.6))))
  . mask "<t [f t]> t(3,8)"
  )
  . (|+ note 12) . (|+ pan 0.1) . (|* gain 0.8))
  $ midiOff ("^57" + "^89") (mask "t f")
  $ note (arp "up" ("<g <g6 df6>>" + "{0,[0 7]([3 5],8)}")
    + "[0,12]"
    - 36)
  # "FMRhodes1"
  # crushbus 41 (range 16 2.25 "^33")
  # modIndex (range 0 16 "^53")
  # room 0.4
d7 $ gF2 -- Nice organs you got there
  $ slice 8 "[5(3,8) <6 6 3 <2 7>>]"
  $ loopAt 2
  $ "forgan:28"
  # cut 7
  # hpfbus 51 (slow 32 $ range 5000 0 saw)
  # gain 1.4
  # pan (slow 16 $ range 0.5 0.2 saw)
d8 $ gF $ gM
  $ midiOn "^92" (loopAt 4 . (|* gain 0.9) .  (# "drums_nes:7"))
  $ midiOn "^60" (ply 2)
  $ slice 4 "0 1 2 3 0*<1 1 2 1> 1 2 3*<1!4 2 2 2 [4 1]>"
  $ striate "1 <1 <2 [0 1]>>"
  $ loopAt 1
  $ chop 8
  $ "breaks165"
  -- # midiG' "^84" 0 1.8
  # gain 1.6
  # pan 0.3

d9 $ never (# silence)
  $ slow 4 $ n "~ <8 10 14 8>"
  # "fx_commodore"
  # gain (slow 64 $ range 0.4 (0.8 * "^20") sine)
  # room (slow 32 $ range 0.3 0.8 saw)
  # dry (range 0.5 1.5 rand)
  # pan 0.9
  # sz 0.3

d2 $ gM $ gF -- Break "80s' Apocalypse in a Box™"
  -- FIXME(#94) d2 drives more controls than the grid gives it (BT2 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 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). ^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 d2's own control with gSel.
  $ midiOn "^44" (fast "1 2")
  -- FIXME(#94) d2 drives more controls than the grid gives it (BT2 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 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). ^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 d2's own control with gSel.
  $ midiOn "^76" -- L'Esprit de Nassim
  (
    whenmod 8 7 (ply "1 . 2") .
    slice 8 ("0 1 2 3 4 5 <6!3 4> <7!3 [5 4]>") .
   (loopAt "q") .
   (# "breaks165") . (# cut 2)
  . (|* gain 1.1)
  )
  $ chop 8
  $ loopAt 4
  $ "drums_atari" # n "[29 29 <29 [29 28 29]> 28]"
  # cut 2
  # midiG' "^80" 0 0.9
  # pan 0.4
d3 $ gF -- Un peu d'encouragement?
  $ midiOn "^43" ((# "cp") . (|- note 2) . (# lpf 5000))
  $ "~ clap"
  # midiG' "^79" 0 2
  -- # gain 0.8
d4 $ gF2 -- BURN THE BASS WITCH
  $ midiOn "^44" (superimpose ( -- chain of wicked thoughts
    (|+ note ("<0 7 <9 5> <10 10 <10 7> 12>>"))
    . (|* gain "<1 1 1.05 1.1>")
    . (chop "8 . <8!3 16>") . (# cut 41)))
  $ midiOn "^76" (chop (slow 4 $ "[16 32 64 128]"))
  $ "synth/4"
  # "90s_synatm:9"
  # crushbus 41 (range 10 2.5 "^52")
  # room 0.3
  # sz "<0.4!7 0.8>"
  # dry 1
  # cut 4
  # midiG' "^81" 0 1.6
d5 $ gM $ gF2 -- Ghosts from an easier time
  $ midiOn "^57" (struct "t*<2 1 1 <2 1>> t(<3 <<5 3> 1>>,8)" . arp "converge")
  $ note ("c'maj'4" + "<c!3 g g g [g, [~ c]] c>" - 12)
  # "90s_synatm:8/4" # cut 5
  # crushbus 51 (range 16 2.5 "^33")
  # midiG' "^82" 0 1.1
d10 -- Ready playerm two
  $ mask "<f!3 t f!3 t f!3 t t!4>"
  $ slice 8 "0 <0!3 1>"
  $ loopAt 4
  $ "fx_gameboy:5"
  # crushbus 101 (slow 32 $ range 1.8 0.61 saw)
  # midiG' "^20" 0 0.85
