(format t (let ((s (read-line)))(remove-if (lambda (x)(find x s)) "9876543210")))