d1
-- $ every 2 (0.125 ~>)
-- $ every 4 (off 0.125 id)
-- $ every' 8 7 (rev)
-- $ every' 8 8 (# gain 0)
-- $ every' 16 15 (# gain 0)
-- $ every' 16 16 (off 0.25 id)
-- $ every 2 ""
$ every 4 (degrade)
$ every 4 (off 0.125 id)
$ every' 8 7 (sometimes $ hurry 2)
$ s "house(4,4)"

d2
$ every 2 (rev)
$ every' 4 3 (# gain "0 1")
$ every' 8 6 (fast 2)
$ s "dr*3 ~ dr*2 <~ <dr dr*2>>"

once $ s "superpiano*8"
# note ("0 2 4 5 7 9 11 12")

-- Main gauche:
-- A B C D
-- A: do1,do2
-- B: la1,la2
-- C: fa1,fa2
-- D: fa2,fa3
d3
$ every 4 (off 0.125 (|+ n 0))
$ every' 4 1 (off 0.125 (# note 5))
$ every' 4 2 (off 0.125 (# note "<[0,3] [0,5]>"))
$ every' 4 2 (off 0.5 (# note "<[0,3] [0,5]>"))
$ s "superpiano" --todo remove last
# velocity 0.6
# note "[[-14,-7] [-2,5] [-11,-4] [-4,3]]"
# sustain 2
# pan 0

-- Main droite:
-- A B C D
d4
$ every 1 (off 0.25 (# note (-12)))
$ every' 4 0 (# note (choose [2,7]))
$ every' 4 1 (# note (choose [7,12]))
$ every' 4 2 (# note (choose [5,10]))
$ every' 4 3 (# note (choose [12,17]))
$ euclid "<3 5 7 16>" 8
$ s "superpiano"
# note "[15,19]"
# velocity 0.4
# pan 1

d5
$ s "alphabet*4"
# n (irand 26)
# gain 0.7