(defun main()
  (setq i 4)
  (setq j 5)
  (setq k 3)
  
  (setq arr1 (make-array \'(20)))
  (setq arr2 (make-array \'(15)))
  (setq res (make-array \'(12)))
  
  (loop
    for i from 0 to 19
    do (setf (aref arr1 i)5))
  (loop
    for i from 0 to 14
    do (setf (aref arr2 i)2))
  (loop
    for i from 0 to 11
    do (setf (aref res i)0))

  (loop
    for i from 0 to 3
    do (loop
         for j from 0 to 2
         do(loop
             for k from 0 to 4
             do(setf (aref res (+ (* i 3)j))(+ (aref arr1 (+ (* i 5)k)) (aref arr2 (+ (* j 5)k)))))))  
  
  (loop
    for x from 0 to 3
    do(loop
        for y from 0 to 2
        do(write (aref res (+ (* x 3) y))))
        (print \"\\n\"))
)

(main)
  
  lisp해야 할 일이 있어서 기본적인거 짜보면서 구조 파악하는데 함수도 setf니 setq니 aref니 그냥 변수이름 짜기 귀찮아서 지만 알아먹게 줄여쓴거나 괄호로 인한 가독성이나 ㅅㅂ
요즘 lisp는 오토 캐드 돌릴때 말고 누가 쓰나?