(bind-func print_response (lambda (buf:i8* nbytes:i32) (begin (printf "recieved response: %.*s\n" nbytes buf) void)))