Integration by parts

(* https://mathematica.stackexchange.com/questions/37104/algorithm-for-parts-integration *)
(*integration by parts*)
Clear[x]
Part1 = Log[x];
Part2 = 1/x^2;

Print["u"]
u = Part1
Print["du"]
du = D[Part1, x]
Print["v"]
v = Integrate[Part2, x]
Print["dv"]
dv = Part2
u*v - Integrate[v*du, x]
Integrate[Part1*Part2, x]
Integrate[Log[x]/x^2, x]