.he 'DISCOUT''Page %'
.fo 'Steven Hardy''January 78'
DISCOUT	This function takes a file specification as argument and produces
a character consumer, (analogous to CHAROUT), which will write characters out to the file.  E.g.
to store a list in a file called STORE.P do:
 	: DISCIN('STORE.P') -> CUCHAROUT;
 	: PR([STORE THIS LIST]);
 	: CHAROUT -> CUCHAROUT;
