++$";
while($\= $/ and $"++ and $;=$" ) {
	do{
		$; &= $| and last if ! ($" % $_)
	} for @_;
	push @_, $" and print $" if $;
}