Перевод из арабской системы счисления в римскую - Lisp

Формулировка задачи:

Заготовка программы:

(defun ArabRim ()
(setf R (vector "I" "V" "X" "L" "C" "D" "M"))
(format t "Vvedite Arab = ")
(setf Arab (read-line))
(setf SArab (reverse Arab))
  (do ((i 0 (+ i 1)))
      ((> i 3) 'done)
(setf y  (char SArab i))
(setf s  (parse-integer y))
(format t "~A" (+ 2 s))))

Мне настолько непонятно, что я просто прошу переделать прогу так что бы она работала ... И ещё я прошу назвать мне функцию которая вычисляет кол-во знаков в строке (CLISP) ...

Решение задачи: «Перевод из арабской системы счисления в римскую»

textual
                            Листинг программы 
                        
                            (setf y  (char "3497" i))
(setf s  (parse-integer y)