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