Wolfram mathematica function of unknown list