(bind-func glew_init (lambda () (set! glewExperimental (convert 1 i8)) (let ((res (glewInit))) (if (= res GLEW_OK) (printf "GLEW Initialised\n") (printf "%s\n" (glewGetErrorString res))) res)))