;; treat as column vector
(bind-func xtm_multiplication:[Matrix:<!a,i64,i64,i1>*,Matrix:<!a,i64,i64,i1>*,Vector:<!a,i64>*]*
(lambda (m1 v2)
(let ((mdat (alloc (* (tref m1 1) 1))))
(mmmul (tref m1 0) (tref m1 1) (tref m1 2)
(tref v2 0) (tref v2 1) 1
mdat)
(Matrix mdat (tref m1 1) 1 (tref m1 3)))))