;;; -*- Mode:LISP; Package:HEARTS; Readtable:CL; Base:8 -*-