procedure shuffle(deck)
   every !deck :=: ?deck
   return deck
end