setcps 0.5

d1
$ every 16 (0.25 ~>)
$ every 8 (0.125 ~>)
$ fast 4 -- faster!
-- $ fast 2 -- fast!
-- $ euclid "<1 1 1 1 2 2 2 2>" 2
$ s "jazz:0"
# gain 0.7

$ fast "2 1"
$ sometimes (# s "dr 808cy:5")
$ s "dr*<2 4> [hh hh?]"
# gain 0.7

d3 -- bass
$ note ("<<0 3> <0 3> <0 -4> <0 -4>>" +
"0 7 ~ 0 6 7 6 3")
# s "bass3"
# gain 0.8

d3 -- pont 80 drums
$ fast 8
$ someCycles ((off 0.625 id) . (# n "3"))
$ off 0.125 id
$ s "e"
# s "electro1"
# n "2"
# gain 0.9

d4 -- Choeurs!
-- $ (chop 4) . (# cut 1) -- chopped echo
-- $ off 0.25 ((|+ note 7) . (# cut 1))
-- $ off 0.125 (|+ note 3)
$ "moogBass"
# note ("<0!4 3!4>" + "0 -2")
# gain 0.75

d6 $ s "cp:1/4"