do
setcps (85/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 gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
d1 $ gF $ gMute2 -- Kick variable
  $ midiOn "^75" (fast 2)
  $ midiOn  "^42" (struct "t t t <t!3 t*2 t!3 t*2>") -- COME FOR THE KICK
  -- $ midiOff "^42" (struct "~ <t!3 ~>") -- L'attente
  $ midiOff "^42" (fast 2 . struct "t . ~ t ~ ~")
  $ fix (|* gain 0.8) "kick:4"
  $ "[techno:0,808bd:2,909,kick:4]" -- Kick explosif!
  -- $ "[techno:0,808bd:2,jazz]" -- Kick raisonnable
  -- $ "[techno:0,bskick,jazz,kick:4]" -- Kick dnb
  # midiG' "^78" 0 1
d2 $ gF $ gMute $ fast 2 -- Snare dnb assorti
  $ midiOn "^42" ( -- STAY FOR THE SNARE
  (<| "~ cp ~ cp*<1!3 2 1 2 1 2 1 2 2 2 1 2 1 2 2 2 1 2>")
  . (# "[snare:57,909:2]")
  )
  $ midiOn "^43" (<| "~ c ~ c*<1!3 2>")
  $ midiOff ("^43"+"^42") (<| "~ <~!4 c ~!3> ~ c*<1!7 2>")
  $ fix (|* gain 0.8) "snare"
  $ "[snare:40,bssnare:3]"
  # pan 0.6
  # room 0
  # note "-2"
  # legato 0.5
  # midiG' "^79" 0 1.2
d3 $ gF $ gMute2
  $ midiOn "^44" (ply "1 2")
  $ midiOn "^76" (ply "<2 [2 4]>")
  $ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh"
  $ "~ h ~ h ~ h*<1!3 2 1 1 2 2> ~ h*<1!7 2>" # drumFrom "sakatadpm48" "[hh,oh]"
  # n "0!3 <0!3 1>"
  # pan 0.35
  # midiG' "^80" 0 1
d4 $ gF2 -- COME WITH THE BASS
    $ superimpose (const $ gF2
    $ whenmod 16 8 (rev . chop 4)
    $ n "[19 <21!3 <20 22>>]"
    # "meth_bass"
    # cut 41
    # pan 0.8
    # midiG' "^33" 0 0.8
    # room 0.3
    # lpf 5000
  )
  $ slow 2
  $ midiOn "^89" (ply "1 <4 2>")
  $ midiOn "^57" (ply 2 . chop "8 . <8!3 16> <8 16>")
  $ n ("<[0 0]!6 [1 1] <2 [2 2]>>")
  # "come_bass"
  # cut 4
  # crushbus 43 (range 16 3.5 "^53")
  # room 0
  # dry (slow 64 $ range 0.2 2.8 cosine)
  # sz 0.035
  # pan 0.2
  # midiG' "^81" 0 1
d5 $ gM2 $ gF3 -- Sky's guitar
  $ midiOn "^90" (ply "2 <2 <4 8>>")
  $ midiOn "^58" (>| n "<3 ~ 3 ~>")
  $ n ("<0!3 [0 1] 0!3 [0 1] 0!3 [0 1] 2!4>")
  # "come_eguitar"
  # cut 5
  # pan 0.8
  -- # speed 1.25
  # room 0.2 # sz 0.3 # dry 1.2
  # crushbus 51 (range 16 5.5 "^54")
  # midiG' "^82" 0 1.3
d6 $ gM2 $ gF3 -- Sky's companion
  $ midiOn "^58" (mask "f")
  -- $ mask "<f!8 t!24>"
  $ slice 8 ("0 1*<1!3 8> 2*<1 2> 3*<1 1 4 16>" + "<0 4>")
  $ "come_guitar"
  # n "3"
  # cut 6
  # pan 0.9
  # midiG' ("^82" * "^34") 0 0.8
d7 $ gF3 -- together yeah!
  $ midiOn "^91" (>| n "~ ~ ~ 11")
  $ someCyclesBy ("^35" - "^59") (>| n "<0 1 2 3 4 5 6 7>/2")
  $ midiOn  ("^59" - "^91") (>| n "<[~ ~ ~ <8 8 9 10>]>") -- COME <3
  $ midiOff ("^59" + "^91" + "^35")-- YEAH
    (>| n "~ ~ ~ <~!3 <13 <14 17> <15 18> <16 19>>>")
  $ "come_voice"
  # crushbus 71 (range 16 "<5 10>" "^55")
  # hpfbus   72 (range 0 3500 "^55")
  # cut 7
  # midiG' "^83" 0 0.8
d8 $ gM $ gF -- Angel Breaks
  $ midiOn "^92" (ply "<2 2 4 8>")
  $ midiOn "^60" (mask "f <t t f t>")
  $ chop 8
  $ someCyclesBy "^20" ((loopAt 1) . (# n 7))
  $ someCyclesBy "^36" (# n 70)
  $ someCyclesBy "^56" (slice 8 "0 1 2 3 4 5 6 7" . (loopAt 0.5) . (# n 4))
  -- $ someCyclesBy "^56" (chop 8 . loopAt 1 . (# "fbreak120:3"))
  $ loopAt 2
  $ "jungle_breaks:1"
  # cut 8
  # pan "[<0.35!3 0.65> <0.65!3 0.35>]*4"
  # midiG' "^84" 0 1
d10 $ loopAt 2 $ fast 2 $ "<~!6 risers ~>"
  # cut 10
  # midiG' "^13" 0 0.7
  # lpf 5000