(define-module (client))

(use-modules (shared))

(define (client)
  (define socket (make-client-socket 12348))
  (pk (send socket (list->u64vector (iota 3))))
  (pk (recv socket))
  (pk "sleeping")
  (sleep 15)
  (pk (send socket (list->u64vector (iota 3))))
  (pk (send socket (list->u64vector (iota 3))))
  (pk (close socket))
  (pk "bye"))


(client)
(pk "end of program")