(bind-func xtm_multiplication:[Matrix:<!a,i64,i64,i1>*,Matrix:<!a,i64,i64,i1>*,!b]*
(lambda (m1 s)
(let ((size (* (tref m1 1) (tref m1 2)))
(mdat1 (tref m1 0))
(mdat2 (alloc size))
(i:i64 0))
(dotimes (i size)
(pset! mdat2 i (* s (pref mdat1 i))))
(Matrix mdat2 (tref m1 1) (tref m1 2) (tref m1 3)))))