1 (defun dot-product (v w)
2   (accumulate #'+  0 (mapcar #'* v w)))
3 (defun matrix-*-vector (m v)
4   (mapcar
5    (lambda (row)
6      (dot-product row v))
7    m))