6 let pattern_ex apreamble apattern ext afragid =
8 let r1 = c#exec "select att0 from class where att2='Object'" in
10 c#exec ("select att0 from t" ^ (pgresult_to_string r1) ^
11 " where att0 " ^ (pattern_match apreamble apattern ext afragid))
13 [["retVal"]] @ List.map (fun l -> [l]) (pgresult_to_string_list res)