(use srfi-13)

(define chars
  "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNPQRSTUVWXYZ123456789")
(define slug
  (cut string-tabulate
       (lambda (_) (string-ref chars (random (string-length chars))))
       <>))