A
\!cycle
	print "PART $chan\n";
	print "JOIN $chan\n";
	print "PRIVMSG $debug :Cycle ...\n";