TraceEvaluation
The ShowTimeBySteps option prints the elapsed time before an evaluation occurs.
ShowTimeBySteps
TraceEvaluation[(x + x)^2]
TraceEvaluation[(x + x)^2, ShowTimeBySteps->True]