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