(require 'stdlib)

;; (declare (in-module sawfish.wm))
;; (open-structures '(rep rep.system rep.io.files))

(define-structure foo
  (export bar
          baz)

  (open rep)

  (define (bar n)
    (* n n))

  (define (baz n)
    (* (bar n) (bar n))))

(define-structure aap
  (export noot)

  (open rep
        foo)

  (define (noot n)
    (foo#baz n)))

(require 'foo)
(puts (bar 4))
(puts (foo#bar 4))
(puts (foo#baz 4))
(require 'aap)
(puts (aap#noot 5))