anchor.diff:  
           this.Shaders
           |> Seq.iter (fun pair ->
  -            pair.Value view projection
  +            (snd pair.Value) view projection
           )
   
           Backend.disableDepth ()
  
positive.code: type Renderer =
      {
          mutable nextShaderId: int
          Shaders: Dictionary<ShaderId, Matrix4x4 -> Matrix4x4 -> unit>
          TextureMeshes: Dictionary<ShaderId, Dictionary<TextureId, Texture * Bucket>> 
      }
  
  
negative.code:         let shaderId = this.nextShaderId
  
          this.nextShaderId <- this.nextShaderId + 1
          this.Shaders.[shaderId] <- (shaderProgram, (f shaderId shaderProgram))
  
          {
              Id = shaderId
  