(bind-func sys_file_open_stdout (lambda (pool) (let ((file:apr_file_t** (salloc)) (res APR_SUCCESS)) (set! res (apr_file_open_stdout file pool)) (apr_pool_destroy pool) (if (= res APR_SUCCESS) (pref file 0) null))))