$o=1;{++$o&&grep$o/$_==int$o/$_,keys%_ or$_{$o}=print$o.$/;redo}