let scalar_alist_of_matrix string_to_element = alist_of_matrix (fun values -> string_to_element (String.Fold.blankcat values))