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"