Дан текстовый файл. Подсчитать частоту появления каждого символа - Lisp

(define (hwf-detected in)
  (define (zip-fp n p) (~r n #:precision `(= ,p)))
  (let-values (((h n)
                (for/fold ((h (make-immutable-hasheq))
                           (n 0))
                          ((c (in-input-port-chars in)))
                  (values (hash-update h c add1 0)
                          (add1 n)))))
    (for (((c k) (in-hash h)))
      (printf "~s\t~a\t~a~n" c k (zip-fp (/ (* 100. k) n) 3)))))