Wolfram mathematica function of unbounded list