do
setcps (80/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"  (fast 2 . (<| "k k k <k k*2 k [<~!3 k*2> k*<1 2>]>"))
  $ midiOff "^42" (<| "k ~ . ~ k ~ <~!3 <k k*2>>")
  $ "[jazz,808bd:3]"
  # gain 1.8
d2 $ gF1 $ gM1
  $ midiOn "^43" (<| "~ s ~ s ~ s  ~ <s? s*2>")
  $ midiOff "^43" (<|  "<[~ s]!12 [~ s ~ [s*<1 2> ~]]!4>")
  $ "snare:21" # gain 1.3
d3 $ gF1 $ gM1
  $ "dr*[8 8 8 <4 12 12 [<12 32> 16]>]"
  # gain 1.2
d4 $ gF2 $ gM3
  $ midiOn "^89" (ply 8)
  $ (|- note 24)
  $ midiOn "^58" ((|> note "<d b a b>") . (|* gain 0.8))
  $ note (
  "<g e a d>"
  + "[0,7] . 12 0"
  -- "<d b a d>"
  )
  # "bassWarsaw"
  # bandf 200
  # bandq 1
  -- # octersub 0.5
  -- # room 0.64
  -- # sz 0.3 # dry 1.2
  # gain 1.2
d5 $ gF3 $ gM3
  $ midiOn "^58" ((|> note "<[f4, a4, c5, d5] [fs4, a4,d4]>"). (|* gain 0.8))
  $ note (
  (
    -- arp "up" $
    "<[g4, b4, d5] [g4, b4, d5, e5] [a5, c5, e5] [a5,c5,d5,fs5]>"
    + "0 ~ ~ 0 ~ ~ 0 ~ ~ 0 ~ ~ 0 ~ ~ 0"
  )
  )
  # "FMRhodes2"
  # modIndex (range 0 32 "^54")
  # legato 1
  # room 0.2
  # gain 1.1
d9 $ gF3 $ gM3
  $ superimpose (arp "pinkyup" . slow 4 . struct "t*4")
  $ midiOn "^58" (|> note "<[f4, a4, c5, d5] [fs4, a4,d4]>")
  $ note ((
    "<[g4, b4, d5] [g4, b4, d5, e5] [a5, c5, e5] [a5,c5,d5,fs5]>"
    -- + "0 ~ ~ 0 ~ ~ 0 ~ ~ 0 ~ ~ 0 ~ ~ 0"
  ))
  # "moogBass"
  # octave "<6!4 5!4 3!5 2!4>"
  -- # "superpiano"
  # legato 1
  # room 0.2
  # gain 1.1
d7 $ gF1 $ gM1 $ ply "1 <1 <2 [2 4]>>" $ "[~ hh]*8" # gain 1.4
d8 $ gF1 $ gM1 $ loopAt 1
  $ 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)
  )
  $ whenmod 8 7 (slice 4 "0 1 2 3 0 1 2*2 3*2")
  $ chop 8
  $ "jungle_breaks" # n "<104!3 105>"
-- 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