anchor.diff:       {Key, Short, Type, Help, _Long} ->
          {Key, Short, atom_to_list(Key), Type, Help}
      end || Option <- Options].
  +
  +-define(OPTION_KEY, 1).
  +-define(OPTION_SHORT, 2).
  +-define(OPTION_GETOPT_DEFAULT, 3).
  +-define(OPTION_GETOPT_SHORT_HELP, 4).
  +-define(OPTION_GETOPT_LONG_HELP, 5).
   
   options() ->
     [{module, $m, atom,
  
positive.code:   print_bugs_message();
  cl_usage(Name) ->
    Optname =
      case lists:keyfind(Name, 1, options()) of
        false ->
          Str = atom_to_list(Name),
          Name =/= undefined andalso
            length(Str) =:= 1 andalso
            lists:keyfind(hd(Str), 2, options());
        R -> R
      end,
    case Optname of
  
negative.code:     Tuple ->
        getopt:usage(getopt_spec([Tuple]), "./concuerror"),
        try
          element(?OPTION_GETOPT_LONG_HELP, Tuple)
        of
          String -> to_stderr(String ++ "~n", [])
        catch
  