anchor.diff:  -export([start_link/1]).
   -export([connect/1]).
   -export([send/2]).
  +-export([frame/1]).
  +-export([unframe/1]).
  +-export([decode_len/1]).
  +-export([encode_len/1]).
  +-export([mask/2]).
   
   %% gen_server callbacks
   -export([init/1, handle_call/3, handle_cast/2, handle_info/2,
  
positive.code:             State#state{readystate = ?CLOSED}
      end.
      
  %% handshake_request(Url) ->
  %%     {ok,{ws,[],Host,Port,Path,[]}} = http_uri:parse(Url).
      
  
negative.code:     {noreply, State#state{sock = Sock}};
  handle_cast({send, Data}, State = #state{sock = Sock}) ->
      io:format("Sending: ~p~n", [Data]),
      Result = gen_tcp:send(Sock, frame(Data)),
      io:format("result: ~p~n", [Result]),
      {noreply, State}.
  
  