sig
  type t
  external create' : unit -> Osg.Program.t = "program_create"
  external to_state_attribute : Osg.Program.t -> Osg.State_attribute.t
    = "program_to_state_attribute"
  external add_shader : Osg.Program.t -> Osg.Shader.t -> unit
    = "program_add_shader"
  val create : Osg.Shader.t list -> Osg.State_attribute.t
end