(defun matrix*-lc (m1 m2)
(let ((m2T (transpose m2)))
(list-comp
((<- row m1))
((<- col m2T))
(dot-product row col)))))
