lisp multiplication table

mt.lisp

(loop for i from 1 to 10 do
            (mapcar (lambda (x) (format t "~d x ~d = ~d~%" i x (* x i))) 
                '(1 2 3 4 5 6 7 8 9 10))
            (terpri)))

mt2.lisp

(loop for i from 1 to 10 do
        (loop for j from 1 to 10 do
            (format t "~d x ~d = ~d~%" i j (* i j)))
        (terpri))