(define-library (foo)

(export bar)

(import (except scheme
                string-length string-ref string-set! make-string string substring
                string->list list->string string-fill! write-char read-char display)
        utf8)

(begin
  (define (bar x)
    (string-length x))))