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