Question: invoking levin by default

I would like to experiment with invoking levin by default. The interface
would be something like

load(levin);
fpprec:50;
sum(1/n-log(1+1/n),n,1,inf),bfloat;

    5.7721566490153286060651209008240243104215933593992b-1


Question: is this achievable in the maxima language, or should one go down
to the lisp level?

If the latter, can one do it in a localized way (i.e. purely within the
package levin)?

Michel