anchor.diff:  
       Conf1 = [{suffix, TapSuffix} | Conf],
   
  -    Conf2 = case proplists:get_value(username, Conf1) of
  -                undefined ->
  -                    Conf1;
  -                _ ->
  +    Conf2 = case {proplists:get_value(username, Conf1), proplists:get_value(password, Conf1)} of
  +                {_, undefined} ->
                       io:format("Reading password from stdin~n"),
                       Pwd0 = case file:read_line(standard_io) of
                                  eof -> "";
  
positive.code:                               _ ->
                                    Pwd0
                            end,
                      [{password, Pwd} | Conf1]
              end,
  
      case {Host, Dest, VBuckets} of
  
negative.code:     parse(Rest, [{username, AuthUser} | Acc]);
  parse(["--bucket-name", Bucket | Rest], Acc) ->
      parse(Rest, [{bucket, Bucket} | Acc]);
  parse(["--password", Pwd | Rest], Acc) ->
      parse(Rest, [{password, Pwd} | Acc]);
  parse([Else | Rest], Acc) ->
      io:format("Ignoring ~p flag~n", [Else]),
      parse(Rest, Acc).
  