(define test-port 1111)
          

(define (send-to-server form)
  (let* ((sock (socket-connect 
               protocol-family/internet
               socket-type/stream
               "localhost" test-port))
         (op (socket:outport sock)))
    (format #t "I'll send ~A~%" form)
    (cond 
     ((number? form)
      (write (number->string form) op))
     (else
      (write form op)))
    (force-output op)
    ;(sleep 1)
    (let ((result (read (socket:inport sock))))
      (format #t "I got ~A from the Server~%" result)
      (force-output (current-output-port)))
    (close-socket sock)))