do
setcps (110/60/4)
let gF =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gM = gMask . gMute
d1 $ gMute $ gF -- 4 SOLID wheels
  $ fix ((# rel 0.15) . (# room 0.42) . (# sz 0.3)) "kick:5"
  $ midiOn "^42" (whenmod 32 29 (# silence) . (<| "k k k <k <k*2 [~ k]>>"))
  $ midiOff "^42" (<| "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 "^43" ((
    (+| note "~ 0 ~ 1")
    . fix (# rel 0.15) "clap"
    . fix ((# n 1) . (# rel 0.5)) "fx_commodore"
  ))
  $ fix (|* gain 0.68) "fx_commodore"
  $ midiOff "^43" (struct "~ t")
  $ "[fx_commodore:2,clap:2]"
  # note 2
  # midiG' "^79" 0 1.3
d3 $ gF $ gMask $ whenmod 4 2 (gMute) -- DRUUUUMS
  $ midiOn "^44"  --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)
    )
  $ midiOff ("^76"+"^44") (struct "t([12 <12 [12 16]>],16)" . slice 8 (run 16))
  $ midiOff ("^76"+"^44") (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 "^53")
  # lpfbus 42 (range 0 20000 "^33")
  # cut 4
  # pan 0.4
  # room 0.4 # sz 0.8
d5 $ gF2 -- BASS Melody
  $ midiOff ("^17") (mask "<t f>")
  $ sometimesBy (1 - "^17") (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' "^20" 0 0.8






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
d2 $ gM $ gF -- Break "80s' Apocalypse in a Box™"
  $ midiOn "^44" (fast "1 2")
  $ 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 "^57" (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 "^89" (chop (slow 4 $ "[16 32 64 128]"))
  $ "synth/4"
  # "90s_synatm:9"
  # crushbus 41 (range 10 2.5 "^53")
  # 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 "^58" (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 "^54")
  # midiG' "^82" 0 1.1
d7 $ gM -- Break from the past
  $ (# speed (range (-0.25) 0.625 "^56"))
  $ midiOn "^60" (often (ply 2))
  $ midiOn "^92" (slice 8 "0 ~ ~ 3 . 4 <~ 5> 6 <~ 7*<1 2>>" . loopAt 2)
  $ chop 16
  $ loopAt 4
  $ "fbreak100" # n "<0!3 [0 4]>"
  # cut 7
  # pan 0.8
  # room 0.3
  # dry 1
  # midiG' "^84" 0 1.8