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