.he 'DEST''Page %'
.fo 'Steven Hardy''January 78'
DEST	This function returns both the HD and TL of the list
given as argument, so that executing DEST(L) -> L -> X
is equivalent to (if a little faster than) HD(L) -> X; TL(L) -> L;
DEST could be defined as:
 	: FUNCTION DEST(L);
 	:	HD(L), TL(L)
 	: END;
