$x=$_[1];$x--while grep$_%$x,@_;map$_/$x,@_