(setq pure nil)

(comment show data)

(setq ^A nil)

(load 'plnr)
(load 'thtrac)

(thinit)

(setq nostop nil)

(load 'syscom)
(load 'morpho)
(load 'show)
(load 'progmr)
(load 'ginter)
(load 'gramar)
(load 'dictio)
(load 'smspec)
(load 'smass)
(load 'smutil)
(load 'newans)
(load 'blockl)
(load 'blockp)
(load 'data)
(load 'mover)
(load 'setup)

;(mapc (function load) '(plnr thtrac syscom morpho show
;			progmr ginter gramar dictio
;			smspec smass smutil newans
;			blockl blockp data setup))


(initialstuff 'KLJ-1.0 nil nil)