rich l lisp. 4 ir.