#!/usr/bin/picolisp /usr/lib/picolisp/lib.l (load "@lib/misc.l") (in (opt) (until (eof) (when (match '(~(chop "From: ") @From) (line)) (accu 'From @From 1) ) ) ) (for Person (sort From) (prinl (car Person) ": " (cdr Person)) ) (bye)