foo.scm

(define-module foo
  (export <foo> foo-a foo-b)

  (define-class <foo> ()
    ((#0=#:a :init-keyword :a)
     (#1=#:b :init-keyword :b)))

  (define (foo-a x) (~ x '#0#))
  (define (foo-b x) (~ x '#1#)))