d3 -- Et tititi, et tatata, et titititatatatititi, et tititi...
$ every' 8 7 (degradeBy "1 0")
$ every' 8 6 (<| s "d*6 [d? d]*3")
$ s "d <d d*3> <d <d d*3>> d*3"
# s "dr"

d3 -- Tatatata (ta ta) x3, Tatatata-Tatatata-Tatatata (ta ta)
$ s "d*<4 4 4 <4 0>> d*<2 2 4 2>"
# s "dr:9"

d1 $ n "0 <~ 0> [~ 0] ~"
# s "jazz"

d3
$ someCycles degrade
$ sometimesBy "0 0.5" (fast 2)
$ "dr:12(10,12)"

d3 -- Percroll
$ almostNever (# n 1) . degrade
$ s "d(<10!2 14 16>,16)"
# s "bsperc:5"

d4
$ fast "<8!3 [[8 16] 1]>"
$ s "dr"