(use srfi-1)(let1 s(port-map values read-char)(map(rec,c(format #t"~a:~3@a "c(count(pa$ eq? c)s)))(cdr(delete-duplicates(sort s)))))