let make_matrix x y e = if x < 1 || y < 1 then raise (Invalid_argument "make_matrix") else init x (fun _ -> Array.make y e);;