(bind-func glfw_char_callback:GLFWcharfun (lambda (window codepoint) (printf "window: %p codepoint: %c\n" window codepoint) void))