once
  $ off 3 id
  $ off 2 id
  $ "90s_weird:0"
  # speed 0.3 -- TODO Slowly move to 0.5
  # gain 0.9 # cut 13 -- Spooky intro!
  -- # gain 0

  -- (.ParVagues ----- L1VE.)
   -- T""""""""""""""""""""T
   -- |.;....,..........;..|
  --  |;;:: .  .    .      |
  --  l;;;:. :   .     ..  ;
  --  `;;:::.: .    .     .'
  --   l;;:. ..  .     .: ;
  --   `;;::.. .    .  ; .'
  --    l;;:: .  .    /  ;
  --     \;;:. .   .,'  /
  --      `\;:.. ..'  .'
  --        `\;:.. ..'
  --          \;:. /
  --           l; f
  --           `;f'
  --            ||
  --            ;l.
  --           ;: l
  --          / ;  \
  --        ,/  :   `.
  --      ./' . :     `.
  --     /' ,'  :       \
  --    f  /  . :        i
  --   ,' ;  .  :        `.
  --   f ;  .   :      .  i
  --  .'    :   :       . `.
  --  f ,  .    ;       :  i
  --  |    :  ,/`.       : |
  --  |    ;,/;:. `.     . |
  --  |___,/;;:. . .`._____|
  -- (For 0rbit.l0ve     <3)
  --  """"""""""""""""""""""
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 gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
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
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
d1 $ gMute $ gF -- Tradition never disappoints: 4 on the fl00r...
  $ midiOn "^42" (<| "k k k <k k*2 k <k [<~ k> k]>>")
  $ midiOff "^42" (<| "k(<1!3 <3 5>>,8) . <k!3 [~ <~ k>]>") -- ..or not?
  $ "[kick:5,808bd:4,kick:4]"
  # midiG' "^78" 0 1.5
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.4)
  )
  $ chop 8
  $ loopAt 4
  $ "drums_atari" # n "[29 29 <29 [29 28 29]> 28]"
  # cut 2
  # midiG' "^80" 0 1
  # 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.4
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
d6 $ gF3 -- Jump aboard the BASIC BUS
  $ midiOn "^91" ( struct "t . t(<1 2 1 <1 [4 8]>>,8,1)")
  $ midiOff "^59" (loopAt 16)
  $ midiOn "^59" (loopAt 8)
  $ chop 8
  $ "synth_commodore" # n "0"
  # crushbus 61 (range 20 2.25 "^55")
  # squizbus 62 (range 0 1.5  "^35")
  # roombus  63 (range 0 0.5  "^19")
  # midiG' "^83" 0 1.4
  # panbus 64 (range 0.13 0.87 (slow 16 saw))
  # cut 6
d8 $ gM $ gF3 -- Breaks divins -- TODO Rework?
  $ midiOn "^92" (off "e" id)
  $ midiOff "^60" (mask "[f t]")
  $ someCyclesBy "^36" (loopAt 1 . chop 16 . (# "jungle_breaks:21"))
  $ someCyclesBy "^56" (chop 8 . loopAt 1 . (# "fbreak120:3"))
  $ loopAt 2
  $ chop 8
  $ "jungle_breaks:1"
  # cut 8
  # pan "[<0.35!3 0.65> <0.65!3 0.35>]*4"
  # midiG' "^84" 0 1.8





--
-- SANDBOX
--
d7 $ gM -- Break from the past
  $ (# speed (range (-0.25) 2.25 "^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


  d6 $ gF2 -- BASIC BUS: Terminus
  $ midiOn "^59" (striate 2)
  $ midiOn "^91" ( struct "t . t(<1 2 1 <1 [4 8]>>,8,1)")
  $ chop 8
  $ loopAt 16
  $ "synth_commodore" # n "1"
  # lpf 5000
  # crushbus 61 (range 20 2.25 "^55")
  # squizbus 62 (range 0 1.5  "^35")
  # roombus  63 (range 0 0.5  "^19")
  # midiG' "^83" 0 1.45
  # panbus 64 (range 0.13 0.87 (slow 16 saw))
  # cut 6