(define c:write
  (let ([&c:write (foreign-procedure "write" (int u8* size_t) int)])
    (lambda (bv)
      (&c:write 1 bv (bytevector-length bv)))))

(c:write (string->utf8 "Hello, world!\n"))