Finished #7 in lisp