$o=1;{$_{$o}=print$o.$/if++$o,!grep!($o%$_),keys%_;redo}