external add_shader : t -> Shader.t -> unit = "program_add_shader"