(define-library (csc gensym)
  (export
    gen
    gensym->int
    gensym?)
  (import (scheme base))
  (begin


    (define-record-type <gensym>
      (make-gensym id)
      gensym?
      (id gensym->int))


    (define *next-id* 0)


    (define (gen)
      (set! *next-id* (+ 1 *next-id*))
      (make-gensym *next-id*))))