#! /bin/sh
#| -*- scheme -*-
exec csi -s $0 "$@"
|#

(use r7rs)
(import-for-syntax r7rs)

(define-library (hi fuh)
  (export buh)
  ;; (cond-expand (chicken (import (srfi-4))))
  (import (srfi-4))
  (begin
    (define (buh) (u8vector 1 2 3))))


(define-library (ok ekk)
  (export buhbuh)
  (import (hi fuh))
  (begin
    (define (buhbuh) (buh))))


(import (ok ekk))
(display (buhbuh))
(newline)