stick this into CLISP or SBCL with some flat files