.he 'NEWASSOC''Page %'
.fo 'Steven Hardy''January 78'
NEWASSOC	This function can be used to create associative 'memories'.
For example:
 	: VARS AGE;
 	: NEWASSOC([[BERT 26] [FRED 15]) -> AGE;
.br
The value of "AGE" is now a function which finds the value 'associated` with its single
argument, for example:
 	: AGE("BERT") =>
 	** 26
 	: AGE("FRED") =>
 	** 15
 	: AGE("JOHN") =>
 	** UNDEF
.br
We can alter the value associated with a given word, thus:
 	: 27 -> AGE("BERT");
 	: AGE("BERT") =>
 	** 27
 	: AGE("BERT") + 1 -> AGE("BERT");
.tp10
 	: FUNCTION BIRTHDAY(PERSON);
 	:	AGE(PERSON) + 1 -> AGE(PERSON);
 	: END;
 	: AGE("BERT") =>
 	** 28
 	: BIRTHDAY("BERT");
 	: AGE("BERT") =>
 	** 29
.br
We can also create new entries:
 	: 35 -> AGE("JOHN");
.br
so that now,
 	: AGE("JOHN") =>
 	** 35
