anchor.diff:    send_cards1(Event, Cards, Rest);
   
   send_cards1(Event, Cards, [#person{} = Person|Rest]) ->
  -  Event1 = Event#event{dealt = lists:nth(Person#person.seat + 1, Cards)},
  +  Event1 = Event ++ [{dealt, lists:nth(Person#person.seat + 1, Cards)}],
   
     client:recv_event(Person#person.client, Event1),
     send_cards1(Event, Cards, Rest).
  
positive.code:   lists:map(fun(Person) -> client:recv_event(Person#person.client, TableEvent) end,
              Members).
  
  send_cards1(_Event, _Cards, []) ->
    ok;
  
  
negative.code: send_cards(TableId, Dealer, Cards, MembersDict) ->
    {_Ids, Persons} = lists:unzip(orddict:to_list(MembersDict)),
  
    SerCards = seralize_cards(Cards),
  
    Event = [{type, <<"deal">>}, {tableId, TableId}, {dealer, Dealer}],
    send_cards1(Event, SerCards, Persons).
  
  % Passes a list, but returns a tuple.
  get_seat(State, SeatNum) ->
  