(bind-func NUM (lambda (a:double) (let ((obj:NUM{double}* (alloc))) (tfill! obj num_f64_plus num_f64_minus num_f64_mul num_f64_div a) obj)))