anchor.diff:  
       Conf1 = [{suffix, TapSuffix} | Conf],
   
  +    Conf2 = case proplists:get_value(username, Conf1) of
  +                undefined ->
  +                    Conf1;
  +                _ ->
  +                    io:format("Reading password from stdin~n"),
  +                    Pwd0 = case file:read_line(standard_io) of
  +                               eof -> "";
  +                               {ok, Pwd0V} ->
  +                                   Pwd0V
  +                           end,
  +                    Pwd = case lists:reverse(Pwd0) of
  +                              [$\n | RevPrefix] ->
  +                                  lists:reverse(RevPrefix);
  +                              _ ->
  +                                  Pwd0
  +                          end,
  +                    [{password, Pwd} | Conf1]
  +            end,
  +
       case {Host, Dest, VBuckets} of
           {undefined, _, _} ->
               io:format("You need to specify the host to migrate data from~n");
  
positive.code:     parse(Rest, [{vbuckets, VBuckets} | Acc]);
  parse(["-p", ProfileFile | Rest], Acc) ->
      parse(Rest, [{profile_file, ProfileFile} | Acc]);
  parse([Else | Rest], Acc) ->
      io:format("Ignoring ~p flag~n", [Else]),
      parse(Rest, Acc).
  
negative.code: parse([], Acc) ->
      Acc;
  
  parse(["-t" | Rest], Acc) ->
      parse(Rest, [{takeover, true} | Acc]);
  parse(["-V" | Rest], Acc) ->
      parse(Rest, [{takeover, true} | Acc]);
  parse(["-v" | Rest], Acc) ->
  