let alist_of_matrix row_to_element matrix =
let result = ref [] in
List.iter
(fun row ->
match row with
| (variable :: values) ->
(try result := (variable, (row_to_element values)) :: !result; with _ -> ())
| _ ->
assert false)
matrix;
!result