4.3BSD/usr/contrib/icon/book/17/shuffle2.icn

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