do
let gGlob = 1.5
setcps (128/60/4)
resetCycles
d1 -- Kick etouffable
  $ mask "<f!8 t!56 f!16 t!48>" -- Pont!
  $ fast "<4!16 1!4 2!4 4!8 1!4 8 1!3 4 1 1 2 4 4!8>"
  $ "[jazz,techno]"
  # djf (slow 64 $ sine)
  # gain (gGlob * 0.78)
d2 -- Drums reguliers
  $ mask "<t!64 f!8 t!56>" -- Pont!
  $ sometimesBy "0 0 0.25 0" (ply 2)
  $ fast "<4!12 8!6 16 [8 4]>"
  $ "drum:2"
  # djf (slow 64 $ sine)
  # gain (gGlob * 0.9)
d3 -- Tambours marche
  $ mask "<t!64 f!12 t!52>" -- Pont!
  $ "cpu:2*<4!3 <8 [8 16] [8 16 8] [16 8 16] [16!3 8]>>"
  # room 0.125 # sz 0.1
  # djf (slow 64 $ cosine)
  # pan (slow 8 $ range 0.3 0.7 sine)
  # gain (gGlob * (slow 32 $ range 0.45 0.85 sine))
d4 -- Rita Orchestra
  $ mask "<t!24 f!3 t f!4>"
  $ juxBy 0.8 (# cut 41)
  $ degradeBy (slow 128 $ range 0 0.65 saw)
  $ sometimesBy "<1!32 0!32>" (chop "<16!8 8!8 4!8 2!8>")
  $ "rita/<4!8 8!8>"
  # cut 4
  # room 0.2 # sz 0.8
  # pan 0.7
  # gain (gGlob * (slow 96 $ range 0.35 0.45 sine))
d5 -- Wahwah
  $ mask "<f!16 t!48 t!4 f!12 t!48>" -- Pont!
  $ whenmod 8 6 (juxBy 0.8 (rev . chop 4))
  $ iter 2
  $ striate 4
  $ "rita:2"
  # gain (gGlob * (slow 4 "<1 0.9 0.8 0.7>") * 0.6)
  # pan 0.3
  # cut 5