;; increment g_var_a by inc ;; and return new value of g_var_a (bind-func global_var_test1 (lambda (inc) (set! g_var_a (+ g_var_a inc)) g_var_a))