setcps 0.6

d2 $ s "supermandolin(<3 5>,8)"
# note (scale "major" "[0,2,4]" + (irand 6))
-- # gain 0.9

let a = "maj"

d2 $
superimpose (rev . (slow 2) . (|-| note 24)) $
somecyclesBy 0.8 (fast 2) $ somecycles (slow 2) $
s "superpiano" # note (scale "aeolian" (irand 12))
# velocity (0.5 + rand / 2)
# sustain sine

d1
$ somecyclesBy 0.8 (fast 4)
$ somecyclesBy 0.1 (fast 8)
$ somecycles (slow 2)
$ s "dr"


d3
$ off 0.125 (# gain 0.7)
$ s "cp"