############################################################################
#
#	Name:	shuffle.icn
#
#	Title:	Shuffle values
#
#	Author:	Ward Cunningham
#
#	Date:	June 10, 1988
#
############################################################################
#  
#     The procedure shuffle(x) shuffles a string or list. In the case
#  that x is a string, a corresponding string with the characters
#  randomly rearranged is produced. In the case that x is a list,
#  the values in the list are randomly rearranged.
#  
############################################################################

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