add e4.lisp