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