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