(wx)Maxima: texput for powers of expressions

Question

I have used texput to set the tex1 output of log(x) to be \\ln(x) with

texput(\'log, lambda([e],[a]:args(e), p