(define (server)
    (let ([listener (tcp-listen SERVICE-PORT)])
      (let-values ([(client->me me->client)
                    (tcp-accept listener)])
        (let z ()(write (dg (read client->me)) me->client)
           (newline me->client)(z))        
        )))