let print_help_page optn record =
  let sd, hpa = get_shortdesc record, get_helpt record in
  pf "\n%10s : %s\n%s%s\n%s\n" optn sd separator_line hpa separator_line