;; (import (chicken bitwise))
(define (popcount d)
  (define (aux acc d)
    (if (= d 0)
        acc
        (aux (+ acc (bitwise-and d 1)) (arithmetic-shift d -1))))
  (aux 0 d))
(define f
  (compose popcount char->integer))
(print (f #\a))