(bind-func name (lambda (program:ShaderProgram*) (if (null? program) (Str "NULL PROGRAM!") (tref program 4))))