.he 'DATAWORD''Page %'
.fo 'Steven Hardy''January 78'
DATAWORD	This function can be applied to any object and returns
a word representing the data type of the object, so that, for example,
DATAWORD(3) evaluate to INTEGER,
DATAWORD([A\ B\ C]) to PAIR,
DATAWORD("FRED") to WORD and DATAWORD(LAMBDA (X); X+1 END) to 
FUNCTION.  A function to recognise strings (character strips)
is defined thus:
 	: FUNCTION ISSTRING(S);
 	:	DATAWORD(S) = "CSTRIP"
 	: END;
