.ENABLE QUIET
	.PARSE COMMAN " " A C
	.; A = 'A'* C = 'C'*
	.IF C = "" .GOTO 2
.1:
	RUN [ZZPRODCL]CA2/COMMAND:"'C'"
.2:	.ASKS C MCR>
	.IF C NE "" .GOTO 1
/