| s::tl -> let res =
let c = pgc () in
let q = ("select objectName.uri from objectName where objectName.value = '" ^ s ^ "'") in
- print_endline ("@@@@LA QUERY E': " ^ q);
+(* print_endline ("@@@@LA QUERY E': " ^ q); *)
pgresult_to_string_list (c#exec q)
in
append (res,(fun_ex tab tl))