@_?($_[0],f(grep$_%$_[0],@_)):()