let list_alist_of_matrix =
  alist_of_matrix (fun values -> values)