A
\@cycle
	print "PART $chan\n";
	print "JOIN $chan\n";