let
float_alist_of_matrix =
scalar_alist_of_matrix float_of_string