Wolfram mathematica function of list