(bind-func my-test-4 (lambda (a) (if (< a 1) (printf "done\n") (begin (printf "a: %lld\n" a) (my-test-4 (- a 1))))))