handwritten style mathematica:NestList[Function[f, Integrate[f, x]], x^2*Sin[x], 10] sig=kd4jcv