anchor.diff:      House = lists:reverse(TempHouse),
       NewData = Data#state{deck = Deck1, house = House},
       HouseScore = score(House),
  +    PlayerInfo = {player, PlayerScore, Player},
  +    HouseInfo = {house, HouseScore, House},
       Reply = case {PlayerScore, HouseScore} of
           {N, N} -> 
               % It's a draw, we'll decide on `house_won` just because
  -            {house_won, {player, PlayerScore, Player}, {house, HouseScore, House}};
  +            {house_won, PlayerInfo, HouseInfo};
           {X, Y} when X < Y andalso Y =< 21 ->
  -            {house_won, {player, PlayerScore, Player}, {house, HouseScore, House}};
  +            {house_won, PlayerInfo, HouseInfo};
           _ -> 
  -            {player_won, {player, PlayerScore, Player}, {house, HouseScore, House}}
  +            {player_won, PlayerInfo, HouseInfo}
       end,
       {next_state, standby, NewData, [{reply, From, Reply}]};
   
  
positive.code:     House = [Hcard1],
      PlayerScore = score(Player),
      HouseScore = score(House),
      case PlayerScore of
          21 -> 
              Reply = {player_won, {player, PlayerScore, Player}, {house, HouseScore, House}},
              {keep_state_and_data, [{reply, From, Reply}]};
          _ ->
              Reply = {ok, {player, PlayerScore, Player}, {house, HouseScore, House}},
              NewData = Data#state{deck = Deck3, player = Player, house = House},
              {next_state, player_turn, NewData, [{reply, From, Reply}]}
      end;
  
negative.code:     PlayerScore = score(Player),
      HouseScore = score(House),
      NewData = Data#state{deck = Deck1, player = Player},
      PlayerInfo = {player, PlayerScore, Player},
      HouseInfo = {house, HouseScore, House},
      case PlayerScore of
          21 -> 
              Reply = {player_won, PlayerInfo, HouseInfo},
              {next_state, standby, NewData, [{reply, From, Reply}]};
          N when N > 21 -> 
              Reply = {house_won, PlayerInfo, HouseInfo},
              {next_state, standby, NewData, [{reply, From, Reply}]};
          _ ->
              Reply = {ok, PlayerInfo, HouseInfo},
              {keep_state, NewData, [{reply, From, Reply}]}
      end;
  
  