test.ss
#lang scheme
(require "uuid.ss")
(define u (make-uuid))
(uuid->string u #f)