anchor.diff:  
       static member Create() = Factory()
   
  -let GetFormat<'T> ()=
  +let GetFormat<'T> () =
       Factory.Create().GetFormat<'T>()
   
   let GetFormatFor t =
  
positive.code:             typedefof<ListProcessor<_>>.MakeGenericType(eT)
              |> System.Activator.CreateInstance :?> ISequenceProcessor
          let f = parseArray eT eD
          D.Make false <| fun p ->
              f.Decode p
              |> DecodeResult.map (fun x -> sP.FromSequence (x :?> _))
      elif Reflection.FSharpType.IsTuple t then
  
negative.code:                             getD f.PropertyType
                  |]
              )
          let json() = ds |> Array.exists (fun d -> d.ReadsJson())
          D.Make json <| fun p ->
              p.Read () |> Option.bind (fun name ->
                  match d.TryGetValue name with
  