$x++;{map$x%$_||redo,2..$x++;warn$x.$/;redo}