anchor.diff:  execute({WriteMode, ReadMode, Connection, Database}, Fun) ->
       mongo:do(WriteMode, ReadMode, Connection, Database, Fun).
   
  -
   find(Conn, Id) when is_list(Id) ->
       {Type, Collection, MongoId} = infer_type_from_id(Id),
       
  
positive.code:                 end),
              case Res of
                  {ok, Curs} ->
                      RecordArgs = 
                          lists:map(fun(Row) ->
                                      mongo_tuple_to_record(Type, Row)
                              end, mongo:rest(Curs));
                  {failure, Reason} -> {error, Reason};
  
negative.code:         {failure, Reason} -> {error, Reason};
          {connection_failure, Reason} -> {error, Reason}
      end.
  
  find(Conn, Type, Conditions, Max, Skip, Sort, SortOrder) when is_atom(Type), is_list(Conditions), 
                                                                is_integer(Max), is_integer(Skip), 
  