added back more procedure to simple.lisp