#	SHUFFLE
#
#	Shuffle values
#
#	Ward Cunningham
#
#	Last modified 12/15/85 by Ralph E. Griswold
#

procedure shuffle(x)
   x := string(x)
   every !x :=: ?x
   return x
end