Convert List To Number Mathematica