A simple scheme function to generate unique string ids

generate-id.scm

(use-modules (rnrs bytevectors))
(import (uuid))
(import (industria base64))

(define generate-id (lambda ()
    (let* (
        [vecs (bytevector->u8-list (random-uuid))]
        [ls (let loop (
            (i 0)
            (ls '())
        )
            (if (= i 7)
                ls
                (loop (+ i 1) (cons (floor-remainder (list-ref vecs i) 64) ls))
            )

        )]
        )

        (list->string (let loop 
           (
            (tmp ls)
            (res '())
            )
            (if (null? tmp)
                res
                (loop (cdr tmp) (cons (string-ref base64url-alphabet (car tmp)) res)
                )
            )
            )
            
        )
    )

))