let
disp_fun optn fd = pf
"%10s : %s\n"
optn (get_shortdesc fd)