setcps 0.5

d1
$ whenmod 16 8 (euclid 4 8)
$ whenmod 16 0 (euclid 2 8)
$ s "kick:5"

d2
$ euclid "<3 5>" 8
$ s "[~ hh]"

d3
$ every 4 rev
$ note "0 3 5 [7 7?]"
# s "bass3"

d4
$ someCycles (# crush 5)
$ superimpose (|- note 7)
$ off 0.125 (|+ note "<3 5 7>")
$ s "~ superpiano"

d5

$ off 0.25 (|+ note "<3 5 7>")
$ s "superpiano"
|- note 21