(define-library (scheme write)
  (export
   write)

  (begin
    (--define-native write write)
  ))