anchor.diff:  %%% gen_server callbacks
   %%%===================================================================
   
  -%%--------------------------------------------------------------------
  -%% @private
  -%% @doc
  -%% Initiates the server
  -%%
  -%% @spec init(Args) -> {ok, State} |
  -%%                     {ok, State, Timeout} |
  -%%                     ignore |
  -%%                     {stop, Reason}
  -%% @end
  -%%--------------------------------------------------------------------
   init([LSock]) ->
       {ok, #state{lsock = LSock, trn = 0}, 0}.
   
  
positive.code: 
  handle_message(RawData) ->
      Result = ucp_utils:decode_message(RawData),
      io:format("Parsing result: ~p~n", [Result]),
      case Result of
          {ok, Message} ->
              process_message(Message);
  
negative.code: handle_cast(stop, State) ->
      {stop, normal, State}.
  
  handle_info({tcp, Socket, RawData}, State) ->
      handle_data(Socket, RawData),
      {noreply, State};
  