AI Homework No. 1                   
                                                                Jungkee Kim


(defun rm (r m)
  if (emptymatrix r) (newemptymatrix)
     (list (madd r m)
           (rm r (restlist m))
     )
)

(defun madd (r m)
  if (emptymatrix r) (newemptymatrix)
     (+ (* (first r) (first (first m)) )
        (madd (rest r) (rest m))
     )
)

(defun restlist (m)
  if (emptymatrix m) (newemptymatrix)
     (list (rest (first m))
           (restlist (rest m))
     )
)