.he 'ONEOF''Page %'
.fo 'Steven Hardy''January 78'
ONEOF	This function takes a list as argument and returns an element of the
list.
The element chosen is 'random` in  the sense that the result of calling ONEOF is hard to predict.
For example:
 	: ONEOF([CAT DOG GOAT]) =>
 	** CAT
 	: ONEOF([CAT DOG GOAT]) =>
 	** GOAT
.br
ONEOF use the random number generator, RANDOM, thus:
 	: FUNCTION ONEOF(LIST);
 	:	REPEAT	RANDOM(LENGTH(LIST))  TIMES
 	:		TL(LIST) -> LIST
 	:	CLOSE;
 	:	HD(LIST)
 	: END;
.br
See RANDOM and RANSEED
