(bind-func glib_main_loop (lambda () (_glib_main_loop_call) (callback (+ (now) 2000) glib_main_loop)))