public sub multi_more(ParamArray nums())
    s=0
    for each x in nums
        s=s+x^2
    next x
    print s
end sub