$o=1;{print$_[@_]=$o.$"if++$o,!grep!($o%$_),@_;redo}