ex2-70.lisp