.he 'IDENTFN''Page %'
.fo 'Steven Hardy''January 78'
IDENTFN	this is a silly function! Its result is always its arguments!
For example:
 	: IDENTFN(3,4,5) =>
 	** 3 4 5
 	: IDENTFN("CAT") =>
 	** CAT
.br
Occasionally a function like this is useful.
The function DL is defined as:
 	: FUNCTION DL(LIST);
 	:	APPLIST(LIST,IDENTFN)
 	: END;
