do
-- resetCycles
setcps (112/60/4)
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"))
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 gMute = (midiOn "^73" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
let modIndex = pF "modIndex"
d1 $ gF1 $ gM2 -- Kick
  $ midiOff  "^42" (<| "k k k k*<1!3 2>")
  $ midiOn "^42" (<| "k  . ~ k ~ ~ ")
  $ "[kick:4]"
  # gain 1.2
d2 $ gF1 $ gM1 -- Snare melancolie fromagere
  $ midiOff  "^43" (<| "~ <s s <s!3 ~> <~!7 [~ s]>>")
  $ midiOn "^43" (<| "~ s ~ s*<1!3 2>")
  $ "[snare:39]"
  # gain 1.45
d3 $ gF1 $ gM1
  $ midiOn "^44" (ply 2)
  $ midiOn "^76" (ply 2)
  $ "d*[16 <12 <16 [12 24]>> . 8]" # "dr"
  # gain 1.2
  -- # midiG' "^80" 0 1
  # room 0.2 # sz 0.1 # dry (slow 4 $ range 0.9 0.6 saw)
d4 $ gF2 $ gM3
  $ midiOn "^89" (struct "t(<3!3 [<3 8> <5!3 16>]>,8)")
  $ superimpose ((|* gain "^33") . (# n 12)
  -- . (# cut 41)
  )
  $ note ("d*<3 4 3 2> . ds ds df"
    + 2 -- Calage
  )
  # "vec1_acid:11"
  # room 0.5 # sz 0.5
  # crushbus 41 (range 16 3.5 "^53")
-- d5 $ gF3 $ gM3
d5 $ gF3 $ gM3
  $ superimpose ((# hpf 500) . (ply "<1!3 <2 4>>")
  . (# crushbus 51 (range 16 3.5 "^54"))
  )
  $ note ("a(3,8) . as*<1 2> af" + "<0!8 12!8>")
  # "cpluck:1"
  # room 0.3
  # octerbus 52 (range 0 0.8 "^34")
  # octersubbus 53 (range 0 0 "^34")
  # octersubsubbus 54 (range 0 0 "^34")
d7 $ gF3 $ gM3
  $ note ("0 12 0 12 0 <12 12 24 24> 0 12"
  + "a . as af"
  + "<0!8 12!8>" - 24)
  # "moogBass"
  # room 0.4
  # sustain 2
  # att (range 0.01 0.13 "^55")
  # chorus 2
d8 $ gF1 $ gM1
  $ loopAt 2
  $ midiOff "^60" (mask "f(4,8)" . chop 8)
  $ midiOn "^56" (# "jungle_breaks:7")
  $ midiOn "^36" (# "jungle_breaks:37")
  $ chop 16 $  "jungle_breaks:101"
  # cut 8
d9 $ gF3 $ gM3 $ note "<a as <a a df5 df5> <d df>>"
  # "moog"
  # cut 9
  # room 0.3 # dry 0.5

a as a d
a as a df

a as df4 df3
a as df4 c

once
    $ "vec1_acid:11" |+ note 2
    -- $ "superpiano"
    # note ("c"
     )