let parts = [
	("a", jux' [id,rev,(# speed 2)] $ every 2 ("<0.25 0.125 0.5>" <~) $ sound "bd*2 [[~ lt] sn:3] lt:1 [ht mt*2]"
		# squiz "<1 2.5 2>"
		# room (slow 4 $ range 0 0.2 saw)
		# sz 0.5
		# orbit 1
	),
	("b", arp "<up down diverge>" $ n "a'm9'8 e'7sus4'8" # sound "supersaw" # octave 2),
	("c", n (arp "<up down diverge>" "<a'm9'8 e'7sus4'8>") # sound "superpiano")
]
d1 $ ur 6 "a [a,b] [a,b,c] [a,c] a [a,b,c]" parts []

hush