do
setcps (80/60/4)
-- let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMask = (midiOn "^41" (mask "f@2 f t [f f]@2 t f f f f f f t t t"))
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 $ gMute2
  $ fast 2
  $ midiOn "^42" (<| "k*4")
  $ midiOff "^42" (<| "k . ~!3 <~!3 k>")
  $ "[kick:5,clubkick]"
  # cut
   1
d2 $ gF1 $ gM1
  $ fast 2
  $ midiOn "^43" (<|"~ s ~ s*<1 2>" )
  $ midiOff "^43" (<| "~ s/2")
  $ "rampleM9:4"
  # gain 0.9
d3 $ gF1 $ gM1
  $ fast 2
  $ midiOn "^76" (fast 2)
  $ superimpose ((# "hh") . (# cut 31) . (# pan 0.8))
  $ "~ d ~ d ~ d ~ d*<1 <2 [4 2]>>"
  # "rampleA4:9"
  # cut 3
  # pan 0.2
d4 $ gF2 $ gMute3
  $ midiOn "^89" (ply "2 4")
  $ note ("[c4@2 c5 ~  [bf4 c5]@2 ~ bf4 c5 bf4 g4 fs4 f4@4]" - 12)
  # "bassWarsaw"
  # cut 4
  # room 0
  # octersub 0.8
  # gain 0.8
  # pan 0.6
  # crushbus 41 (range 16 2.5 "^53")
d9 $ "90s_matrix:0/4"
  # cut 9
  -- # room 0.4
  # gain 0.9
  # pan 0.1
  # lpfbus 91 (slow 16 $ range 200 2000 saw)
d5 $ gF3 $ gM3
  $ whenmod 8 7 (>| note "c@2 c ef@2 ef f g")
  $ fast 4 $ note ("[c <c!3 f> c <g fs ef b4>]")
  # "FMRhodes1"
  # modIndex (range 0 64 "^54")
  # pan 0.2
  # gain 1.2
  # room 0.2 # sz 0.9
  # cut 5
  |- note 12
d8 $ gF1 $ gM1
  $ midiOn "^60" (ply 2)
  $ midiOn "^92" (ply 2)
  $ chop 16
  $ midiOn "^36" (loopAt 4 . (# "jungle_breaks:24") . (|* gain 1.1)) -- Legerete orleanaise
  $ midiOn "^56" ((# "jungle_breaks:45")) -- Legerete orleanaise
  $ loopAt 1 $ "jungle_breaks:62" -- Poudreuse epaisse
  # cut 8

once $ note "c@2 c ef@2 ef f g" #"FMRhodes1" # orbit 6
