(load "packs")
(load "ga")				;generic arithmetic
;(load "df")				;auto diff "AD"
;(load "simpsimp")			;simple algebraic simplifier for math
;(load "ma")				;generic math
;(load "p2i")				;prefix to infix formatter
;; the next 4 taken from MockMMA to provide a better polynomial simplifier
;(load "ucons")				;utility for unique conses used below
;(load "poly")				;canonical polynomial arith
;(load "rat1")				;rational function arithmetic
;(load "simprat")			;rational function simplifier
;;(load "proj-rat") ;projective rationals with 1/0, 0/0
;(load "aml-small")
;;(load "gmp.dll")			; not lisp
;;(load "gc-mpfr.dll")			; not lisp
;;(load "mpfr")
;;(load "qd.dll")				; not lisp
;;(load "qd")
(load "octi")				; yes lisp, like qd.
(load "oct-const")
(load "oct")



(defpackage :ms	
  (:use :ga :ma :cl :df)
    (:shadowing-import-from 
   :ga
   "+" "-" "/" "*" "expt"		;binary arith
   "=" "/=" ">" "<" "<=" ">="		;binary comparisons
   expt log exp sqrt
   sin cos tan
   atan asin acos atan2
   sinh cosh tanh
   asinh acosh atanh
   "1-" "1+" "abs"
   "tocl" "re-intern"
   "incf" "decf"
    "numerator" "denominator"
   max min
   
   )
;;  (:import-from :df  "df")
;;  (:import-from :ma  "ma" "simp" "ratsimp" "ratexpand"
;;		"p" "ex"    ;; some fun examples
;;    )
)

;; put your code in here..