do
-- resetCycles
setcps (160/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute1 = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute1
let gM2 = gMask . gMute2
let gM3   = gMask . gMute3
let gF1 =  (# 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"))
d1 $ gMute2 $ gF1 -- Kick solide
  $ fix ((|* gain 0.9) . (# lpf 1000)) "jazz"
  $ fix ((# att 0.02) . (# rel 0.5) . (# lpf 5000)) "kick:4"
  $ midiOn "^30" ((# "hardkick_rha:40") . (|- note 1) . (|* gain 0.8))
  $ midiOn "^42" (struct "t t t t*<1!6 2 2>")
  $ midiOff "^42" (<| "k . ~ k ~ <~!3 <k ~>>")
  $ "[jazz,kick:4]"
  # gain 1.2
  -- # midiG' "^78" 0 1.5
d2$ gMute1 $ gF1 -- snare contretemps variable
  $ fix ((|* gain 0.8) . (# legato 0.05)) "cp"
  $ midiOn "^43" (<| "~ cp [~!3 <~!3 cp>] cp*<1 1 2 <1 2>>")
  $ midiOff "^43" (<| "~ [cp*<1!3 <2 <4 [4 2]>>> ~]")
  $ "[cp,snare:22]"
  # pan 0.65
  -- # legato 0.22
d3 $ gM1 $ gF1
  $ "~ d ~ d ~ d ~ <d!12 [~ d]!3 [d d]>"
  # "snare:34"
  # hpf 7000
  -- # midiG' "^80" 0 1.5
d8 $ gF1 $ gM1
  $ midiOff "^60" (mask "t(4,8,1)") -- Techno drum mask
  $ midiOn "^36" ((# "jungle_breaks:22")) -- Raise COMEON!
  $ midiOn "^56" (loopAt 2 . (# "jungle_breaks:23")) -- Raise COMEON!
  $ midiOn "^92" ( -- Bouton Nassim <3
    slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
    . loopAt 1 . (# "breaks165")
    -- . (# octer 0.4) . ( octersubsub 4)
    . (# lpf 2500)
    . (# room 0)
  )
  $ chop 16
  $ "breaks165"
  # cut 8
  # octersub 0.5
  # gain 1.2
d4 $ gF2 $ gM3 -- BASSLINE
  $ midiOn "^89"  (|+| note "[0,12*4]")
  $ midiOff "^89" (|+| note "[0,[<7 7 4 7>(3,8,1)]]" )
  $ superimpose ((# hpf 200) . (# crushbus 41 (range 16 3.5 "^53")))
  $ note ("<e3 fs3 <gs3 d4> <a3 df4>>" - 12)
  # "bassWarsaw"
  # gain 1.12
  # room 0.7
  # dry 1 # sz 0.8
d7 $ gF2 $ gM3 -- ACID BASS TODO REWORK WITH RAPH
  $ midiOff "^59" (
    -- (|+ note "<0 12>") .
    mask "<[t f]!0 t(<1!3 [1 4]>,4)!0 t([<8!3 <4 16>> <8!3 16>],16)>")
  $ stack [
  -- n "<30!16 31!16>" # "vec2_synth_acid" # gain (range 1.1 0 ("^55" + "^35")),
  -- "vec1_acid:40" # hpf 200 # gain (range 0.6 1.1 "^55"),
  "vec1_acid:39" # hpf 200 # gain (range 0 1.4 "^35"), -- TODO BONUS ACID
  -- # octer 1.1
  -- ,
  ""
  ]
  # crushbus 41 (range 16 1 "^53")
  -- # legato 1
  # legato (range 0.39 0.7 (1 - "^17"))
  >| note ("[e gs e fs gs e fs e]*2"
  - 12
  )
  # gain 1.12
  # room 0.7
  # dry 1 # sz 0.8
d6 $ gF1 $ gM1 -- HAWKS
  $ superimpose (# hpf (slow 8 $ range 5000 "<8000!32 800!32>" saw))
  -- $ mask "<f!16 t!16>"
  $ "~ [s s*2] ~ [s*<1!3 2> <~!3 s*<1 2>>]"
  # "armora:1"
  # legato "<0.5>"
  # note "<c10!3 d10 d10 d10 e10 [e10!3 c10]>"
  -- # pan 0.9
  # room 1.0
  # octersubsub 2
  # octersub 2
  # sz 0.01
  # gain 1.5
  # dry 1.025
d5 $ gM3 $ gF3
  $ midiOn "^18" (# n "6")
  $ midiOn "^58" (mask "<t f f f>" . (# n "<4 5!2 4!6>") . (|* speed 1.05))
  $ midiOn "^90" (struct "f(3,8)" . ply 4 . chop 2)
  $ someCyclesBy (1 - "^34") (mask "<t f f f>")
  $ "ghost" # n (slow 4 $ "<0 1 2 3>")
  # cut 5
  # lpf 3000
  # room 0.4 # sz 0.8 # dry 1.2
d11
  -- $ mask "<f!8 t!8>"
  $ stack [
  -- SELF-DESTRUCT SEQUENCE --
  whenmod 8 6 (# silence) $ slow 4
  $ whenmod 32 24 ((# begin 0.44) . (# end 1) . (# n 45)) -- Activated!
  $ ("~!2 rhadamanthe_vocal:45" # gain 1.1
  # begin "<0!2 0.44!2>" # end "<0.435!2 1!2>" # pan 0.1) # cut 110,
  -- SYSTEM OVERLOAD
  mask "<t!8 f!56>" $
  "<~!7 [~ rhadamanthe_vocal:46]>" # cut 111,
  -- Cigarette Luck
  mask "<f!24 t!8>" $
  n "<<14!3 6> ~ ~ <12 23>>" # "movie_wolf" # end "<0.55!8 1!8>"
  # gain 0.7
  # cut 112
  # gain 1.2
  ]
d9 $ gF2 $ gM3
  $ midiOn "^89" (ply "<2 4 8 [8 16]>")
  $ note ("<e3 fs3 <gs3 d4> <a3 df4>>" + 24)
  # "moog"
  # cut 9
  # room 0.3 # dry 0.5
  # gain 1.6
  # crushbus 91 (range 16 3.5 "^19")