anchor.diff:  simplexml(X,[_|_] = L) ->
   	simplexml(X,[L]);
   simplexml(B,[]) ->
  -	B. 
  +	B.
   
   prop_to_attr(Bin,{K,V}) ->
   	prop_to_attr(Bin,[{K,V}]);
  
positive.code: % 	uploadfile(N+1,X);
  % uploadfile(_,{get_body,P}) ->
  % 	httpasync(util:http_ex_rec(P)).
  % 
  %  Read response:
  % httpasync() ->
  % 	X = util:http_callback("http://www.google.com"),
  
negative.code: % butil:shorten(1000) -> "qi"
  % butil:short_toint("qi") -> 1000
  -define(ALPHABET,<<"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz">>).
  
  shorten(0) ->
  	alphabetchar(0);
  shorten(Int) ->
  