anchor.diff:  
   -spec quote(binary()) -> binary().
   quote(Bin) ->
  -	quote(Bin, <<>>).
  +	quote(Bin, << $" >>).
   
   -spec quote(binary(), binary()) -> binary().
   quote(<<>>, Acc) ->
  -	Acc;
  +	<< Acc/binary, $" >>;
   quote(<< $", Rest/bits >>, Acc) ->
   	quote(Rest, << Acc/binary, $\\, $" >>);
   quote(<< C, Rest/bits >>, Acc) ->
  
positive.code: 		binary:split(iolist_to_binary(
  			cookie_to_iodata(N, V, O)), <<";">>, [global])
  	end,
  	[<<"Customer=WILE_E_COYOTE">>,
  		<<" Version=1">>,
  		<<" Expires=", _/binary>>,
  		<<" Max-Age=111">>,
  
negative.code: 	Tests = [
  		{<<"Customer">>, <<"WILE_E_COYOTE">>,
  			[{http_only, true}, {domain, <<"acme.com">>}],
  			<<"Customer=\"WILE_E_COYOTE\"; Version=1; "
  				"Domain=\"acme.com\"; HttpOnly">>},
  		{<<"Customer">>, <<"WILE_E_COYOTE">>,
  			[{path, <<"/acme">>}],
  			<<"Customer=\"WILE_E_COYOTE\"; Version=1; Path=\"/acme\"">>},
  		{<<"Customer">>, <<"WILE_E_COYOTE">>,
  			[{path, <<"/acme">>}, {badoption, <<"negatory">>}],
  			<<"Customer=\"WILE_E_COYOTE\"; Version=1; Path=\"/acme\"">>}
  	],
  	[{R, fun() -> R = iolist_to_binary(cookie_to_iodata(N, V, O)) end}
  		|| {N, V, O, R} <- Tests].
  