anchor.diff:      member __.CountByExpressionAsync (exp): Task<int> = 
           failwith "Not implemented"
   
  -    member __.CountByObjectAsync (obj): Task<int> =
  -        failwith "Not implemented"
  -
       member __.CountBySelectorAsync (dict): Task<int> = 
  -        failwith "Not implemented"
  +        dict
  +        |> dictToMap findExpressionToFs 
  +        |> countBySelector 
  +        <| client
  +        |> task
   
       member __.ExistsAsync (id, ?rev: string): Task<bool> = 
           client 
  
positive.code:     member __.FindByExpressionAsync (exp, ?options): Task<IEnumerable<'doctype>> = 
          failwith "Not implemented"
  
      member __.FindByObjectAsync (obj, ?options): Task<IEnumerable<'doctype>> =
          failwith "Not implemented"
  
      member __.FindBySelectorAsync (dict, ?options): Task<IEnumerable<'doctype>> = 
          failwith "Not implemented"
  
      member __.CountAsync(): Task<int> = 
          client 
  
negative.code:         member val Skip = System.Nullable<int>() with get, set
          member val Group = System.Nullable<bool>() with get, set
          member val GroupLevel = System.Nullable<int>() with get, set
  
      type FindExpression() = 
          member val EqualTo: obj = null with get, set
          member val NotEqualTo: obj = null with get, set
          member val GreaterThan: obj = null with get, set
          member val GreaterThanOrEqualTo: obj = null with get, set
          member val LesserThan: obj = null with get, set
          member val LesserThanOrEqualTo: obj = null with get, set
  
      type Configuration(couchUrl: string, databaseName: string) = 
          member val CouchUrl = couchUrl with get, set
  