val pgresult_to_string_list : < get_list : 'a list list; .. > -> 'a list
val pgresult_to_string : < get_list : 'a list list; .. > -> 'a
val set_assoc : 'a -> 'b -> ('a * 'b) list -> ('a * 'b) list