anchor.diff:      end.
   
   shuffle(Pid) ->
  -    Pid ! {self(), count},
  +    Pid ! {self(), shuffle},
   
       receive
  -        X when is_number(X) ->
  -            X;
  +        ok ->
  +            ok;
           _ ->
  -            ct:pal("Received unexpected response in count()"),
  +            ct:pal("Received unexpected response in shuffle()"),
               error
       after 100 ->
                 timeout
  
positive.code:     end.
  
  generate_deck() ->
      [ {X, Y} ||
        X <- lists:seq(2, 14),
        Y <- [club, heart, diamond, spade] ].
  
  shuffle_deck(Deck) ->
      %% TBD
      Deck.
  
negative.code: 
  deck() ->
      ct:pal("I'm alive!"),
  
      loop(generate_deck()).
  
  loop(Deck) ->
      receive
  