     (prepare-nrm2) XNRM2 execute ;
 M: VECTOR Vasum
     (prepare-nrm2) XASUM execute ;
+M: VECTOR n*V+V!
+    (prepare-axpy) [ XAXPY execute ] dip ;
+M: VECTOR n*V!
+    (prepare-scal) [ XSCAL execute ] dip ;
 
 ;FUNCTOR
 


M: VECTOR element-type
    drop TYPE ;
M: VECTOR n*V+V!
    (prepare-axpy) [ XAXPY execute ] dip ;
M: VECTOR n*V!
    (prepare-scal) [ XSCAL execute ] dip ;
M: VECTOR Vswap
    (prepare-swap) [ XSWAP execute ] 2dip ;
M: VECTOR Viamax

    (prepare-nrm2) XXNRM2 execute ;
M: VECTOR Vasum
    (prepare-nrm2) XXASUM execute ;
M: VECTOR n*V+V!
    [ TYPE>ALIEN execute ] 2dip
    (prepare-axpy) [ XAXPY execute ] dip ;
M: VECTOR n*V!
    [ TYPE>ALIEN execute ] dip
    (prepare-scal) [ XSCAL execute ] dip ;

;FUNCTOR

