let
string_alist_of_matrix =
scalar_alist_of_matrix (
fun
string
->
string)