anchor.diff:  
       let pipeline = PipelineBuilder ()
   
  +    let noOutput x = ()
  +
       let run context p =
           match p with
           | Pipeline f -> f context
  
positive.code:     member val Uv = Buffer.createVector2 uv
  
      member val Color = Buffer.createVector4 color
  
  //                let iPosition = shaderProgram.CreateVertexAttributeVector3 ("position")
  //                let iUv = shaderProgram.CreateVertexAttributeVector2 ("in_uv")
  //                let uTexture = shaderProgram.CreateUniformTexture2D ("uni_texture")
  //                let uTextureResolution = shaderProgram.CreateUniformVector2("uTextureResolution")
  //                let uView = shaderProgram.CreateUniformMatrix4x4 ("uni_view")
  //                let uProjection = shaderProgram.CreateUniformMatrix4x4 ("uni_projection")
  //                let uTime = shaderProgram.CreateUniformFloat ("uTime")
  
  [<Sealed>]
  type MeshInput (shaderProgram: ShaderProgram) =
  
negative.code:                 shader
          )
  
      let runShader name createInput createOutput f =
          pipeline {
              let! shader = getShader name createInput createOutput
              return! shader.Run f
          }
  
  open Pipeline
  
  // *****************************************
  