anchor.diff:                  | BsonType.Null -> Seq.empty
                   | _ -> Seq.singleton value))
               |> Seq.toArray
  -            |> barray
  +            |> bArray
   
           BsonTop.Create(bson, "")
  
positive.code: 
      /// Convert BSON array to array of target types
      static member ConvertArray<'T>(top:IBsonTop, mapping:Func<IBsonTop,'T>) =
          let inline bArray (x:'T[]) = BsonArray(x)
          match top.BsonValue.BsonType with
          | BsonType.Array ->
              top.BsonValue.AsBsonArray.Values
  
negative.code: 
      /// Creates a BsonArray and wraps it in a bson top
      static member CreateArray elements =
          let inline bArray (x:BsonValue[]) = BsonArray(x)
          let bson =
              elements
              |> Seq.collect (BsonRuntime.ToBsonValue >> (fun value ->
  