do
setcps (150/60/4)
d1 $ gF1 $ gM1
  $ midiOn "^41" (<| "k k k <k <k*2 [~ k*<1 [4 2]>]>>")
  $ "[techno:0,808bd:2,909,kick:4]"
  # lpf 1200
  # gain 1
d2 $ gF1 $ gM2
  $ midiOn "^75" (ply 4)
  $ midiOn "^42" (<| "~ s*<1!7 2> ~ s*<1!3 2>")
  $ midiOff "^42" (<| "~ s")
  $ whenmod 4 3 (superimpose (("<e s>" <~) . (|* gain 0.9)))
  $ "[snare:2,snare:10]"
  # octer 0
  # octersub 0
  # octersubsub 0
  # pan 0.25
-- # lpf 3000
d3 $ gF1 $ gM2
  $ midiOn "^43" (ply 2)
  $ sometimesBy "0 <0.5!3 2>" (mask "t(<12!3 2>,16)")
  -- 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.
  $ midiOff ("^44"+"^43") ((mask "t(<8!3 [8!3 4]>,16,2)"))
  $ "hh:8*16"
  |* gain "1 1 0.95 1 0.96 1 0.975 1.1"
  # gain 1.8
  # pan 0.2
  # cut 3
d4 $ gF2 $ gM3
  $ midiOn "^76" (ply "1 1 1 <4!3 1>" . slice 4 ("0*<4!4 8!4 16!4 32!4>" + "<0 1 2 3>"))
  $ midiOn "^44" ((# freeze 0.2) . ply 4)
  $ chop 4 $ loopAt 4
  $ "bass_nes:1"
  # cut 4
  # pan 0.3
  # room 0.4
  # sz 0.9
  # gain 1.5
  -- # octerbus 42 (range 0 1.5 "^17")
  # octersubbus 43 (range 0 1.5 "^32")
  # squizbus 44 (range 0 1.5 "^52")
  -- FIXME(#54) d4 drives more controls than the grid gives it (B4 + C4). ^53 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.
  -- # crushbus 41 (range 16 2.5 "^53")
  # gain 1
d5 $ gF3 $ gM3
  $ midiOff "^89" (slice 4 "<0 0 0 0 1 1 1 <1 2>>*<4!7 8>")
  $ midiOn "^89" (
    slice 4 "<0 1 2 3> <0 1 0 3>*<1 2 1 4>" .
    (# n "41")
    )
  $ "fguitar:40"
  -- # crush 3.5
  -- # note "-24"
  # gain (1 - 0.24 * "^33")
  # crushbus 51 (range 16 2.5 "^53")
  # distortbus 52 (range 0 1.5 "^33")
  # lpfbus  53 (range 3000 200 "^33")
  # cut 5
  # pan 0.66
d9 $ gF3 $ gM3
  $ note ("<c4 ef4 <bf3 <g3 g4>> <af3 f4 af3 af4>>")
  # pan 0.7
  # room 0.2
  # "moogBass"
d6 $ gF3 $ gM3
  $ note ("0@3 0 . <gs4 f4 ef4 d4>" + "<g4!3 f4> . 0"
  + "[0,12]")
  # att 0.15 # rel 0.5
  # "superfork"
  # pan 0.4
  # room 0.4 # dry 1.4
  # room (slow 32 $ range 0 0.6 saw)
  # delay 0.3
  # delayt 0.25
  # delayfb 0.25
d7 $ gM3 $ gF3
  $ n ("<0 0 0 ~>" + "<41!10 42 42>")  # "fsynth"
  # crushbus 72 (range 16 2.05 "^35")
  # octersubbus 71 (range 0 3 "^55")
  # octersubsubbus 73 (range 0 3 "^55")
  # cut 7
d8 $ gF1 $ gM2
  $ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
  $ chop 16
  $ loopAt 2
  $ midiOn "^92" (ply "<2!3 [4!3 2]>")
  $ midiOn "^36" (# "jungle_breaks:55")
  $ midiOn "^56" (# "jungle_breaks:45")
  $ "jungle_breaks:1"
  # cut 8
  # pan "0.8 0.2 0.8 [0.2 0.8]*2"
  # gain 1.2
