(defparameter *a* (vector 1 2 3))
(defparameter *b* (vector 1 2 3))
(print (map 'vector #'* *a* *b* ))