Mathematica: higher order differentiation and mult