pr lisp. , och1