anchor.diff:                  | BsonType.Null -> Seq.empty
                   | _ -> Seq.singleton value))
               |> Seq.toArray
  -            |> barray
  +            |> bArray
   
           BsonTop.Create(bson, "")
  
positive.code:         }
          |> Seq.take 10
          |> Seq.toArray
          // [| BsonTop.Create(BsonDocument(), "") |]
  
  /// [omit]
  type BsonValueOptionAndPath =
  
negative.code:             |> Seq.mapi (fun i value -> top.Create(value, sprintf "[%d]" i))
              |> Seq.map mapping.Invoke
              |> Seq.toArray
  
          | BsonType.Null -> [| |]
          | _ -> failwithf "Expecting a list at '%s', got %A" (top.Path()) top
  
      /// Optionally get bson property
  