(bind-func ghttp_print_request_body
(lambda (request:ghttp_request*)
(if (null? request)
(println "Error: request is null.")
(begin (printf "\nStatus:\n %d: %s\n\n"
(ghttp_status_code request)
(ghttp_reason_phrase request))
(printf "Body:\n%.*s\n\n"
(ghttp_get_body_len request)
(ghttp_get_body request))
void))))