resetCycles

do
  setcps 0.5
  d1
    $ degradeBy "<1!5 0!24 0!4>"
    $ whenmod 16 12 (>| n "0 <~!2 0!2>")
    $ "[jazz](<4!3 3>, 4, <0!3 <0 3>>)" # gain 0.8
  d3
    $ degradeBy "<1!2 [0 1]!2 0!31>"
    $ whenmod 32 28 (fast "0.5 1")
    $ fast "4 <4 8 [4 8] [8 4]>" $ "[~ drum:8]"
  d4
    $ whenmod 16 12 (# n 2)
    $ slice 4 (
      "0 <1!2 3!2>"
      )
    $ loopAt 2 $ "fbass"
    # gain 0.95
    # djf (slow 16 $ range 0.3 0.9 saw)
  d5
    $ degradeBy "<1!8 0!16 [0 0.5!7]!8>"
    $ slice "<8!7 4>" ("<0!4 3!4> 1 <2!3 1> 3")
    $ s "fguitar:10"
    # gain (slow 40 $ range 0.5 0.8 (saw + perlin/10))
    # cut 5 -- TODO: last bit when uncut worth looping?
  d6
    $ rarely (off (-0.125) id)
    $ degradeBy "<1!8 0!24>"
    $ s "~ ~ ~ clap:2"
    # note ("<0!4 -2!2 -4!2>")
    # gain (slow 16 $ range 0.5 0.8 saw)
    # room (slow 16 $ range 0.4 0.8 sine)
    # sz 0.8