anchor.diff:  send_cards(TableId, Dealer, Cards, MembersDict) ->
     {_Ids, Persons} = lists:unzip(orddict:to_list(MembersDict)),
   
  -  Event = #event{type=?tarabish_EventType_DEAL,
  -                 table=TableId,
  -                 seat=Dealer},
  -  send_cards1(Event, Cards, Persons).
  +  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) ->
  
positive.code:   lists:map(fun(Person) -> client:recv_event(Person#person.client, TableEvent) end,
              Members).
  
  send_cards1(_Event, _Cards, []) ->
    ok;
  
  
negative.code:   send_cards1(Event, Cards, Rest);
  
  send_cards1(Event, Cards, [#person{} = Person|Rest]) ->
    Event1 = Event ++ [{dealt, lists:nth(Person#person.seat + 1, Cards)}],
  
    client:recv_event(Person#person.client, Event1),
    send_cards1(Event, Cards, Rest).
  