let ( |*| ) mat vec =
   let res = Array.make (Array.length mat) 0.0 in
   for i = 0 to Array.length mat -1 do
      Array.unsafe_set res i (Array.unsafe_get mat i *| vec)
   done;
   res