anchor.diff:  
       override __.RenderExpected (canonicalDataCase, key, value) =
           match canonicalDataCase.Property with
  -        | "create" -> value.ToObject<int64>() <> -1L |> renderObj
  +        | "create" -> value.ToObject<int>() <> -1 |> renderObj
           | _ -> base.RenderExpected (canonicalDataCase, key, value)
   
       override __.RenderInput (canonicalDataCase, key, value) =
  
positive.code: 
      let renderAllergicToAssert canonicalDataCase (jToken: JToken) =
          let substance = renderAllergenEnum jToken.["substance"]
          let score = canonicalDataCase.Input.["score"].ToObject<int64>()
          let sut = sprintf "allergicTo %d %s" score substance
          let expected = jToken.Value<bool>("result") |> Bool.render
          
  
negative.code: 
      override this.RenderArrange canonicalDataCase = 
          seq {
              yield sprintf "let buffer1 = mkCircularBuffer %i" (canonicalDataCase.Input.["capacity"].ToObject<int>())
              let operations = canonicalDataCase.Input.["operations"]
              let mutable ind = 2
              let lastInd = Seq.length operations + 1 
  