;; do some work (bind-func work (lambda (a:i64) (let ((i:i64 0)) ;; 1 billion iterations (dotimes (i 1000000000) (* 2 3 4 5 6))) (printf "finished: %lld\n" a) ;; return a^2 (* a a)))