setcps (125/120/2)

d1
$chop "<64>"
$stack [
	s "bd ~bd*2"
	,s "hh*8"
	,s"~sd"
]
-- #lpf "[800 1000 3000 8000]*16"

--d1-d16

p "p_name"
	$s "hush"