for (up 10) [ n |
	snd := c + (shuffle (up 12)).0;
	oct := if (n % 2 == 0) [ 3 ] [ 4 ];
	play (snd oct qn);
];