pr lisp ; kokött4