; THIS CODE
(call-with-input-request
  (make-request
    uri: (absolute-uri "http://192.168.1.3:5050/")
    method: 'POST)
  "{\"foo\": \"bar\"}"
  #f)


; MAKES THIS REQUEST
POST / HTTP/1.1
Content-Length: 14
Host: 192.168.1.3:5050
User-Agent: http-client/1.2 (CHICKEN Scheme HTTP-client)

{"foo": "bar"}

; THIS CODE
(call-with-input-request
  (make-request
    uri: (absolute-uri "http://192.168.1.3:5050/")
    method: 'POST)
  (lambda (port) (write "{\"foo\": \"bar\"}" port))
  #f)

; MAKES THIS REQUEST
POST / HTTP/1.1
Transfer-Encoding: chunked
Host: 192.168.1.3:5050
User-Agent: http-client/1.2 (CHICKEN Scheme HTTP-client)

1
"
1
{
2
\"
1
f
1
o
1
o
2
\"
1
:
1
 
2
\"
1
b
1
a
1
r
2
\"
1
}
1
"
0