method directoryCategories = let sv = call_method sv "directoryCategories" [] in let av = deref_array sv in av_map (fun sv -> new net_google_response sv) av