for($x=1;;){map$x%$_||next,2..$x++;warn$x}