anchor.diff:  -module(sipheader).
   -export([to/1, from/1, contact/1, via/1, via_print/1, to_print/1,
   	 contact_print/1, auth_print/1, auth_print/2, auth/1, comma/1,
  -	 httparg/1, cseq/1, cseq_print/1]).
  +	 httparg/1, cseq/1, cseq_print/1, via_params/1]).
   
   comma(String) ->
       comma([], String, false).
  
positive.code: 		      {Protocol, {Host, Port}, Parameters} = H,
  		      Protocol ++ " " ++ Host ++ ":" ++ Port ++ print_parameters(Parameters)
  	      end, Via).
  
  contact_print(Contact) ->
      lists:map(fun(H) ->
  
negative.code: unescape([C | Rest]) ->
      [C | unescape(Rest)].
  
  param_to_dict(Param) ->
      L = lists:map(fun(A) ->
  			  H = string:strip(A,left),
  			  Index = string:chr(H, $=),
  			  Name = string:substr(H, 1, Index - 1),
  			  Value = string:substr(H, Index + 1),
  			  {Name, unescape(Value)}
  		  end, Param),
      dict:from_list(L).    
  
  httparg(String) ->
      Headers = string:tokens(String, "&"),
      param_to_dict(Headers).
  
  cseq([String]) ->
      [Seq, Method] = string:tokens(String, " "),
  