setcps 0.5
setcps (-1)
d1
$ s "k k <k k k k*2> <k k*2 k k*2>"
# s "kick808"
d2 $ s "{hh*3 hh*2}"
d3
$ off 0.125 ((|+ n 12) . (# gain 0.7))
$ superimpose ((|-| 14) . (# s "superpiano") . (# gain 0.8))
$ every 4 (rev)
$ arp "updown"
$ n "0'maj'4 e'min"
# s "blip"
d1 $ s "superpiano"