Name: Anonymous 2014-07-06 1:33
(defun replace-ints (x)
(cond ((endp x) nil)
((integerp (car x))
(cons 'I
(replace-ints (cdr x))))
(t
(cons (car x)
(replace-ints (cdr x))))))