; If arg is a list or probabilities of characters in an alphabet, returns bits of info per char.

(let ((r (/ (log 2)))) (lambda (a)
  (* r (let y ((a a) (s 0)) (if (null? a) s (y (cdr a) (- s (* (log (car a)) (car a)))))))))