(bind-func gl_cp (lambda () (println "beginning...") (println "ID:" (glCreateProgram)) (println "end.")))