anchor.diff:  	y -> yes;
   	n -> no;
   
  -	Answer ->
  +	Answer when is_list(Answer) ->
   	    case trim(Answer) of
   		"y" -> yes;
   		"n" -> no;
  
positive.code:     format("~s", [listify(Prompt)]),
      proplists:get_value(user_pid, Opts) ! {self(), user_password},
      receive
  	"" ->
  	    read_password(Prompt, Opts);
  	Answer ->
  	    Answer
      end.
  
  
  listify(A) when is_atom(A)   -> atom_to_list(A);
  listify(L) when is_list(L)   -> L;
  listify(B) when is_binary(B) -> binary_to_list(B).
  
  format(Fmt, Args) ->
      io:format(Fmt, Args).
  
  
  trim(Line) when is_list(Line) ->
  
negative.code:     format("~s", [listify(Prompt)]),
      proplists:get_value(user_pid, Ssh) ! {self(), question},
      receive
  	Answer when is_list(Answer) ->
  	    Answer
      end.
  
  