anchor.diff:  print(Text) ->
   	print(Text, []).
   print(Text,Args) ->
  -	case get(silent) of
  -		false ->
  -			io:format(Text++"~n",Args);
  -		true ->
  -			none
  -	end.
  +	io:format(Text++"~n",Args).
   print_error(Text) ->
   	io:format(Text++"~n").
  -%% -------------------------------------
  +%% -------------------------------------
positive.code: %% -------------------------------------
  
  %% ------------- SSH calls -------------
  % ssh to host using key_pool, ane execute all given commands
  call_commands_on_host(_Host,_KeyPool,[]) ->
  	ok;
  call_commands_on_host(Host,KeyPool,[Command|Rest]) ->
  	print(Host++": "++Command),
  	Ans = os:cmd("ssh "++parse_key_pool(KeyPool)++" "++Host++" "++"'"++Command++"'"), % ssh -i key1 -i key2.. user@host 'command'
  	print(Ans),
  	call_commands_on_host(Host,KeyPool,Rest).
  
  %parse key_pool to ssh format (-i key1 -i key2...)
  parse_key_pool([]) ->
  
negative.code: parse_key_pool([Key1|Rest]) ->
  	" -i "++Key1++parse_key_pool(Rest).
  
  %get ansver from os command result
  get_answer(Result) ->
  	SeparatorPosition = string:rchr(Result,$*),
  	string:substr(Result,1,SeparatorPosition-1).
  
  %get return code from os command result
  get_return_code(Result) ->
  	Code = lists:last(string:tokens(Result,"*")),
  	[_ | RevertedCode] =lists:reverse(Code),
  	list_to_integer(lists:reverse(RevertedCode)).
  %% -------------------------------------
  
  
  %% -------- Internal functions ---------
  debug(Text) ->
  	debug(Text,[]).
  debug(Text,Args) ->
  	case get(debug) of
  		true ->
  