不错不错！Lisp解题的来

(defun digit (n k))
(loop for i from 1 to k by 1
(let m % n 10)
(/ n 10)))

(let n (read-line))
(let k (read-line))
(let res (callfunc digit n k))
(format t "~a~%" res)  

本人初学Lisp，语法错误勿喷