(setq si::*top-level-hook* 'maxima::macsyma-top-level)