do
  -- let dGlob = id
  -- let fxCrush = (# crush 16)
  let fx32LPF = (whenmod 32 16 (# lpf (slow 16 $ range 5000 500 isaw)))
  let dGlob = (fx32LPF)
  setcps 0.5
  unmute 1 -- Kick
  unmute 2 -- Contre-claps
  unmute 3 -- Breakbeat
  unmute 4 --
  unmute 5 -- Gong
  unmute 6 --
  d1
    $ dGlob
    $ whenmod 64 32 (slow "<4!16 2!16>")
    $ whenmod 32 24 (mask "t?(1,4)")
    $ whenmod 16 10 (# lpf 200)
    $ fast "<4!3 [4|2]>"
    $ s "[jazz,cpu2]" # gain 0.7
  d2
    $ mask "<t f>"
    $ fast 2
    $ dGlob
    $ "~ . <c!3 c*2>" # "clap"
    # lpf 2000
    # room (slow 64 $ range 0 0.8 sine)
    # sz (slow 16 $ range 0 0.7 saw)
    # gain 0.8
  d3
   -- $ dGlob
   $ degradeBy (range 0.2 0.8 perlin)
   $ bite 8 "0 1 2 <3 5>(3,8)"
   $ loopAt 2 $ "break"
   # cut 3
   # gain 0.7
  d4 -- Moog lead
    $ dGlob
    $ jux rev
    $ slice (slow 8 $ "<2 4 8 1>") "0*8 2*4"
    $ note (scale "aeolian" (run 8))
    # cut 4 # "moog:1"
    # gain (slow 16 $ range 0.5 0.75 cosine)
  d5
    $ dGlob
    $ slow "<4 2 1!30>"
    $ often (stut "<2!4 2 4 8 1>" 0.9 "<q!32 e!32>")
    $ "[g(<3!3 5>,8) | g(3,8) g?]"
    # "supergong"
    # legato 1.1
    # note (slow 4 $ "<c'maj c'min>")
    # octave (slow 8 $ "<4 5>")
    # room 0.4 # sz 0.4
    # gain 0.5
  d6
    $ dGlob
    $ mask "t(<1!2 2!2 4!4 8!24>, 8)"
    $ degradeBy "<0!10 0.2 0.4 0.6 0.8 [0.9 0] [0.1 0!3]>"
    $ jux ((# note 2) . ("s" ~>))
    $ fast "8 <8!6 16!2>" $ "hh"
    # gain (slow 8 $ range 0.65 0.9 perlin)
    # room (range 0.4 0.7 perlin)

-- region breakbeat
do
  setcps (80/60/4)
  d1
    -- $ superimpose (const $ s "jazz(<4!3 5>,8)" # gain 0.75)
    $ slice 8 ("0 1 2 3 4 5 <6 7> 7*<1 2 4>")
    $ "break:1"
    # gain (slow 8 $ range 0.5 0.6 saw)
    # cut 1
  d2
    $ slice 4 (cat [
      run 8,
      "0 1 2 3 4!4",
      run 8, run 8, run 8,
      "<0!4 1!4 3!8>(5,8)"
      ])
    $ "fbass"
    # n "<42!14 41!2>"
    # cut 2
    # gain (slow 16 $ range 0.6 0.65 saw)
  d4
    $ whenmod 32 28 ((# note 12) . slow 4)
    $ bite 4 "<0!8 1!8>*<4 8>"
    $ "fepiano:26"
    # gain 0.5
    # cut 4
    # room 0.4


do
  setcps (0.5)
  d1 $ fast 4 $ s "[jazz,techno]" # gain 0.75
  d2
    $ fast 2
    $ whenmod 8 7 (off "e" id)
    $ whenmod 4 3 (off "q" id)
    $ "~ [snare:11,cp]"
    # gain 0.7
    # lpf 2000
  d4
    $ fast "<1!4 2!4 4!2 8!2 16!3 [1]>"
    $ loopAt 2
    $ "fclav"
    # n (slow 4 "<0 1 2 3>")
    # cut 21
    # gain 1.1

  d6 $ s "supersaw" # voice 0.1 # note (-24)

once $ arpeggiate $ note "c'maj" # "supersaw"
# voice 0.1
# gain 0.8
