anchor.diff:                      
                       sprintf "let %s = reactor.createComputeCell %s (fun values -> %s)" cellName inputParams funBody
                   | "input" -> 
  -                    let initialValue = cellValue.["initial_value"].ToObject<int64>()
  +                    let initialValue = cellValue.["initial_value"].ToObject<int>()
                       sprintf "let %s = reactor.createInputCell %s" cellName (renderObj initialValue)
                   | _ -> ""
               )
  
positive.code:             let previousRolls = canonicalDataCase.Input.["previousRolls"].ToObject<int list>() |> List.render
              yield sprintf "let rolls = %s" previousRolls
              if canonicalDataCase.Input.ContainsKey "roll" then
                  let roll = canonicalDataCase.Input.["roll"].ToObject<int64>()
                  yield sprintf "let startingRolls = rollMany rolls (newGame())" 
                  yield sprintf "let game = roll %i startingRolls" roll
              else
  
negative.code: 
      override __.RenderExpected (canonicalDataCase, key, value) =
          match canonicalDataCase.Property with
          | "create" -> value.ToObject<int>() <> -1 |> renderObj
          | _ -> base.RenderExpected (canonicalDataCase, key, value)
  
      override __.RenderInput (canonicalDataCase, key, value) =
  