;;; c:\lisp\mma4max> "C:\Program Files\Maxima-5.31.2\bin\maxima.bat"
;;; to_lisp()

(si::chdir "c:/lisp/mma4max")
(load "init.lisp")
;; (compile-mma)
(mma::load-mma)

(defun maxima::$pstring(s)
  (let ((qq (mma::pstring s)))
    (print qq)
    (disp(BuildFormat qq))
    nil))

(defun maxima::$tl()  ;; mma top level  ;; 
  (tl))