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