(defun kuku () ； 印刷のみ
(do ((x 1 (1+ x))) ((>= x 10) nil)
(do ((y 1 (1+ y))) ((>= y 10) nil)
(format t " ~3d " (* x y)))
(format t "~%")))
(kuku )
(defun kukuval () ； 値は逆順（９９から）
(do ((val nil) (x 1 (1+ x)))
((>= x 10) val)
(do ((row nil) (y 1 (1+ y)))
((>= y 10) (push row val))
(push (* x y) row)) ))
(defun run () (kukuval ))
(setq kk (reverse (mapcar #'reverse (run)))) ； Mapcarが APL（関数プログラミング）ふう