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