do
setcps (160/60/4)
-- resetCycles
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 gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
  $ midiOn "^42"  (<| "k k k <k k*2 k [~ k*<1 2>]>")
  $ midiOff "^42" (<| "k ~ . ~ k ~ ~")
  $ "[jazz,808bd:3]"
  -- $ "[808bd:4]"
  # gain 1.4
d2 $ gF2 $ gM1
-- $ gF1 $ gM1
  $ "~ s ~ s"
  -- $ "~ s ~ [s*<1!3 2> ~]"
  # "[snare:70,sn:24]"
  -- # note "-4"
  -- # gain 1.2
d3 $ gF1 $ gM1
  $ "d(3,8) d(<3 3 <3 5 5 3> <[8 16] [16!7 12]>>,8)" -- Modified Drill
  -- # "snare:49"
  # "drum:2"
  # gain 1.3
  # cut 3
  # delayt 0.125
  # delay 0.15
  # delayfb (slow 16 $ range 0.2 0.75 perlin)
d4 $ gF2 $ gM3 -- BASSE QUI DONNE DES AILES <3
  $ midiOn "^57" (|- note 12)
  $ midiOn "^89" (ply "1 . <8 <12!3 24>>")
  $ whenmod 128 64 ( -- Echoes of triplets
    off 0.5 (struct "~ t(3,8)" . (|+ note 12) . ( |* gain 0.93)))
  $ whenmod 64 48 (>| note                                                                           "<d4 f4 a3 g3 d4 a3 <g3!0 [g3@3 [g3 a3]]> d3>")
  $ note "<d4 a3 g3 d3 g3 f3 [b2@3 [b2 f3]] d3>"
  # "bassWarsaw"
  # crushbus 41 (range 16 3.5 "^53")
  # gain 1.5
d5 $ gF3 $ gM3
  $ someCyclesBy "<1!32 0!32>" (someCyclesBy (slow 16 $ range 0.99 0.1 saw) (degradeBy "~ 0 ~ <1!3 1?>")) -- La pluie
  $ struct "~ t ~ t*<1!3 2 1 2 1 2>"
  $ whenmod 32 24 (>| note "<d4 f4 a3 g3 d4 a3 <g3 [g3@2 [g3 a3]]> d3>")
  $ note ("<d4 a3 g3 d3 g3 f3 [b2@3 [b2 f3]] d3>")
  # "marimba1"
  # octave 6
  # bandf 200
  # bandfrecv 10
  # octerbus 51 (range 0 0.95 "^54") -- ETOILES
  # octersubbus 52 (range 0 5 "^34") -- ETOILES
  # gain 1.5
  # room 0.5
  # sz 0.8
-- d8 $ loopAt 2 $
d8 $ gF1 $ gM1
  $ midiOn ("^60"- "^92") (slice 8 "~ 0 ~ <1 3(<1 3 3 5>,8) 5 7*<1!3 2>>")
  $ midiOn "^92" ( -- Bouton Nassim <3
    slice 16 "[0 .. 7] . <[0 .. 7]!3 [0 1 . [2 3]]>"
    . loopAt 1 . (# "breaks165")
    -- . (# octersubsub 1.4)
    . (# lpf 2500)
    . (# room 0)
  )
  $ chop 8
  $ loopAt 2
  $ midiOn "^36" (ply "<1!3 [1!3 2]>" . loopAt 0.5 . (>| "breaks165"))
  $ "jungle_breaks:107"
  # cut 8
  # gain 1.4
  # room 0.4 # dry 0.8 # sz 0.9