(bind-func glfw_create_interaction_window
(let ((window_title:i8* (zalloc 128)))
(lambda (width height)
(sprintf window_title "Extempore OpenGL Window")
(register_for_window_events)
(glfwCreateWindow width height window_title null null))))