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

##</code><code>##

sub x{@_?($_[0],x(grep$_%$_[0],@_)):()}x 2..pop