Mathematica Product Log