added pegself.lisp