(define-module (server))

(use-modules (shared))

(define (server)
  (let* ((sock (make-server-socket 12348))
         (client (car (accept sock))))
    (pk (recv client))
    (close client)
    (close sock)))

(server)