Welcome to the CHICKEN Scheme pasting service

(define (handle-request input output)
    (let* ((header (read-line input)))
      (notify "SERVER: new connection~%")
      (unless (eof-object? header)
        (notify "SERVER: received size-header: ~A bytes ~%" header)
        (let* ((bytes-following (string->number header))
               (content (read-string (and (positive? bytes-following) bytes-following) input)))
          (notify "SERVER: read content successfully~%")
          (fprintf output "~A~%" (buffer-checksum content))
          (notify "SERVER: answered with checksum: ~A~%" (buffer-checksum content))
          (error "here")))))