X:for($x=1;;){$x%$_||next(X)for(2..$x++);warn$x.$/}