interface.ss
#lang scheme

(define filesystem<%>
  (interface ()
    authenticate
    attach
    clunk))

(define file-handle<%>
  (interface ()
    walk
    read-stat
    write-stat
    open
    read
    write
    clunk
    remove))

(define directory-handle<%>
  (interface (file-handle<%>)
    in-entries
    create))

(provide
 (all-defined-out))