Here's another way to shuffle, using a hash file (best thing to do now: /help hash files)
Code:
alias shuffle {
  var %i = $hget(cards,nbCards)  - 1
  .hadd -s cards cardsDealt 0
  while (%i) {
    var %rand = $rand(0, %i)
    var %temp = $hget(cards, %i)
    .hadd -s cards %i    $hget($cards, %rand)
    .hadd -s cards %rand %temp
    dec %i
  }
}
alias deal {
  if ($hget(cards,nbCards) == $hget(cards,cardsDealt)) {
    echo -s error: stack empty
    return
  }
  echo -s new card: $hget(cards,$hget(cards,cardsDealt))
  .hadd -s cards cardsDealt $calc($hget(cards,cardsDealt) + 1)
}

[color:green]; load hash table[/color]
alias loadcards {
  .hmake -s cards 10
  .hload -s cards cards.txt
  shuffle
}


Now make a text file named cards.txt with this format:
nbCards
52
0
Ace of Hearts
1
Two of Hearts
...
50
Queen of Spades
51
King of Spades

Good luck with it...