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>>>"