;;; -*- Mode:LISP; Package:SIM; Readtable:CL; Base:10 -*-