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