anchor.diff:      | Parameter of int
   
   [<AbstractClass>]
  -type Command() =
  -    abstract member Fragments : CommandFragment IReadOnlyList
  -    abstract member Parameters : obj IReadOnlyList
  +type Command(fragments : CommandFragment IReadOnlyList, parameters : obj IReadOnlyList) =
  +    member __.Fragments = fragments
  +    member __.Parameters = parameters
       
       abstract member BeginResultSet : IDataReader -> unit
       abstract member ProcessRow : unit -> unit
  
positive.code:     override __.GetResult() = result.Value
  
  type Command2<'a, 'b>(fragments, parameters) =
      inherit Command<ResultSets<'a, 'b>>()
      let aReader = ReaderTemplate<'a>.Template().CreateReader()
      let bReader = ReaderTemplate<'b>.Template().CreateReader()
      let mutable row = Unchecked.defaultof<Row>
  
negative.code:             bReader :> EntityReader
          ]
      let result = lazy ResultSets<'a, 'b>(aReader.ToEntity(), bReader.ToEntity())
      override __.BeginResultSet(dataReader) =
          readers <- List.tail readers
          (List.head readers).ProcessColumns(DataReader.columnMap(dataReader))
  