let string_alist_of_matrix =
  scalar_alist_of_matrix (fun string -> string)