d1 $ s "dr(<2 <8 1>>,4)"
d1 $ s "bogdan" d1
$ whenmod 8 4 (off 0.125 id)
$ s "bogdan(<<1 2> 4>, 2)" # gain 1.5 d2 $ whenmod 16 8 (# silence) $ s "hh(<2 4>,4) ~ hh <~ hh>" # s "bogdan:1" d3 $ fast 2 $ degradeBy 0.3
$ superimpose (off (choose [0.25, 0.5]) id)
$ s "bogdan:2" # note (scale "dorian" (irand 7)) # gain 0.8 d4 $ s "bogdan(<<1 2> <2 1>>, 4)" # n "<4 <6 <9 13>>>"