.he 'FNPART''Page %'
.fo 'Steven Hardy''January 78'
FNPART	This function takes as argument a function closure (see PARTAPPLY) and returns
the function upon which the closure is based, e.g.
 	: VARS ISCOLOUR;
 	: MEMBER(%[RED ORANGE YELLOW GREEN BLUE INDIGO VIOLET]%)
 	: 	-> ISCOLOUR;
 	: FNPART(ISCOLOUR) =>
 	** <FUNCTION MEMBER>
