anchor.diff:  % butil:shorten(1000) -> "qi"
   % butil:short_toint("qi") -> 1000
   -define(ALPHABET,<<"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz">>).
  -	
  +
   shorten(0) ->
   	alphabetchar(0);
   shorten(Int) ->
  
positive.code: 		_ ->
  			whatever
  	end.
  	
  file_age(Path) when is_list(Path) ->
  	{ok,I} = prim_file:read_file_info(Path),
  	file_age(I);
  
negative.code: 			{error,timeout_receive}
  	end.
  
  http_redirect(_P,"http://"++_ = Pth) ->
  	Pth;
  http_redirect(_P,"https://"++_ = Pth) ->
  	Pth;
  http_redirect(P,Pth) ->
  	{P#httpr.host,P#httpr.port,P#httpr.us,P#httpr.pw,Pth,P#httpr.ssl}.
  
  loop_chunked(0,Bin) ->
  	Bin;
  loop_chunked(N,Bin) ->
  