open Camlp4Profiler;
value profile = load stdin;
value profile = List.sort (fun (_, v1) (_, v2) -> compare v1 v2) profile;
List.iter
(fun (k, v) -> Format.printf "%-75s: %d@." k v)
profile;