DouKaku?

じゃ、早速
でも、絶対こういうのはperlとかの方が得意に決まってる。

(define h (make-hash-table 'eqv?))

(let loop ((c (read-char)))
  (unless (eof-object? c)
    (when (char-set-contains? #[a-zA-Z] c) (hash-table-update! h c (pa$ + 1) 0))
    (loop (read-char))))

(define f #f)

(hash-table-for-each h
  (lambda (key val)
    (when (> val 1)
      (set! f #t)
      (print #`",|key|が,|val|回"))))

(print
  (if f
    "使われているので失格"
    "重複した文字は有りません!"))