.he 'INIT''Page %'
.fo 'Steven Hardy''January 78'
INIT	This function takes as argument an integer, N, (>0) and 
returns a data structure, of type STRIP, with N components.  Initially
all components hold zeroes, though they can be set to any value using
the function SUBSCR, e.g.
 	: INIT(5) -> S;
 	: S =>
 	** {0 0 0 0 0}
 	: "CAT" -> SUBSCR(3, S);
 	: S =>
 	** {0 0 CAT 0 0}
