let assocs_to_string assocs prefixe =
  let r=ref "(" in
  let s=ref "" in
  Array.iteri
    (fun i b ->
       if b then
     begin
       s:=(!s)^(!r)^prefixe^(string_of_int i);
       r:=","
     end
    )
    assocs;
  !s^")"