(define content "{\"jsonrpc\": \"2.0\", \"id\": 1, \"method\": \"hello\", \"params\": {\"name\": \"World!\"}}")

(display (format "client.scm: sent \"Content-Length: ~a\r\n\r\n~a\""
                 (+ 4 (string-length content)) content))

;; Results in:
;; client.scm: sent "Content-Length: 80
;;

(display (format "client.scm: sent \"Content-Length: ~a\r\n\r\n~a\""
                 (+ 4 (string-length content)) content))

;; Results in:
;; client.scm: sent "Content-Length: 80
;; 
;; {"jsonrpc": "2.0", "id": 1, "method": "hello", "params": {"name": "World!"}}"