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^")"