(define-module (client))

(use-modules (rnrs bytevectors))

(use-modules (async))


;; (setlocale LC_ALL "")


(define (scm->string scm)
  (call-with-output-string
    (lambda (port)
      (write scm port))))

(define scm->bv (compose string->utf8 scm->string))  

(define (client)
  (define socket (make-client-socket 12345))
  (write/ (list 0 "héllo") socket)
  (write/ (list 42 "world") socket)
  (close socket)
  (loop-stop!))

(loop-call-later client)
(loop-run-forever)