d1 $chop 8 $stack [
	n "[0 1]"
]
	#s "control"
	#legato 2


d2
$stack [
	s "clak*16"
	,s "print*2"
	,s "chin*12"
	,s "coins"
]
#gain 0.8

d3
$stack [
s "808bd*8"
,s "808oh*16 808oh*32 808oh*8 808oh*4"
]
-- #gain 1.1