LISP program for mirror effect