.he 'REV''Page %'
.fo 'Steven Hardy''January 78'
REV	This function reverses the list given to it as argument.
Try the following:
 	: REV([A B C D]) =>
 	: REV([JACK LOVES JOHN]) =>
 	: REV([CITIES OF ENGLAND ARE [LONDON LEEDS SHEFFIELD]]) =>
.br
What does REV do to sublists?
 	: FUNCTION LAST(LIST);
 	:	HD(REV(LIST))
 	: END;
 	: FUNCTION BUTLAST(LIST);
 	:	REV(TL(REV(LIST)))
 	: END;
 	: LAST([A B C D]) =>
 	: BUTLAST([A B C D]) =>
.br
REV could be defined as:
 	: FUNCTION REV(LIST);
 	:	IF	LIST = []
 	:	THEN	[]
 	:	ELSE	REV(TL(LIST)) <> [%HD(LIST)%]
 	:	CLOSE
 	: END;
