setcps 0.5

d2
$ whenmod 8 6 (# gain 0)
$ every' 16 12 (# speed 0.75)
$ every' 16 13 (# speed 0.5)
$ every' 8 6 rev
$ s "<arpy*8 ~>"
# n (run 8)
# gain 0.8

d7
$ someCycles (degrade . off 0.5 (|+ 0))
$ s "~ dsynth(<4 3 5>,8)"
-- $ off 0.25 (|- note 7)
# note (scale "major" "0 7")
|- note "<12 9 7 12 5>"
# gain 0.7

once $ s "arp" # n 0