Código
LISP51