anchor.diff:  	iolist_to_binary(Body)},
          [{timeout,1500}],
          []),
  -  io:format("Result is ~p~n",[Result]),
  +  %%io:format("Result is ~p~n",[Result]),
     Result.
   
   http_request_with_parameters(PreURI,Type,Parameters) ->
  -  io:format("URI: ~s cookies are ~p~n",[PreURI,httpc:which_cookies()]),
  +  %%io:format("URI: ~s cookies are ~p~n",[PreURI,httpc:which_cookies()]),
     URI =
       case Parameters of
         [] -> PreURI;
  
positive.code: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  http_request_with_body(URI,Type,Body) ->
    io:format("URI: ~s cookies are ~p~n",[URI,httpc:which_cookies()]),
    Result =
      httpc:request
        (Type,
  
negative.code: 	Parameters},
         [{timeout,1500}],
         []),
    %%io:format("Result is ~p~n",[Result]),
    Result.
  
  http_request(URI,Type) ->
    %%io:format("URI: ~s cookies are ~p~n",[URI,httpc:which_cookies()]),
    Result = 
      httpc:request
        (Type,
         {URI,[]},
         [{timeout,1500}],
         []),
    %%io:format("Result is ~p~n",[Result]),
    Result.
    
  http_result_type({ok,_}) ->
  