let
load_matrix f =
let
ic = open_in_bin f
in
let
v = input_value ic
in
close_in ic;
v