(defun ListToInt (x)
    (if x
        (concatenate 'string (write-to-string (car x)) (ListToInt (cdr x)))
    )
)