write_programs(storage) char *storage;
write_programs(const char *storage)
write_programs(storage)	char *storage;{	list *l;	definition *def;	for (l = defined; l != NULL; l = l->next) {		def = (definition *) l->val;		if (def->def_kind == DEF_PROGRAM) {			write_program(def, storage);		}	}}