resetCycles

do
setcps (90/60/4)
let glob = (degradeBy $ "<0 1> 0.95!15" * (1 - (cF 0 "1")))
d1 -- Beat
  $ mask "<f!4 t!12>"
  $ "k . <~!8 k!8> ~ ~ k*<1!4 [1|2]!4>"
  # "reverbkick"
  # lpf 2000
  # legato 1.5
  # gain (fast 8 $ 0.8 + (perlin/10))
d2 -- Break
  $ glob
  $ loopAt 4
  $ slice 8 (iter 4 $ run 8)
  $ "dusty" # n "<3!3 4>"
  # pan 0.6
  # cut 2
  # gain (slow 16 $ range 0.6 1 sine)
d3 -- CYPRESS
  $ glob
  $ loopAt 4
  $ slice 4 "[0|2] 1 [0|2]*<1!3 [4 2]> 1*<1!7 2>"
  $ "dusty:0"
  # gain (slow 16 $ range 1 0.6 sine)
  # lpf 2000
  # pan 0.35
  # cut 3