.he 'POPVAL''Page %'
.fo 'Steven Hardy''January 78'
POPVAL	This function takes as argument a list and evaluates it as
POP11, for example:
 	: VARS A B C;
 	: 34 -> A;
 	: "+" -> B;
 	: 123 -> C;
 	: POPVAL([%A,B,C%]) =>
 	: VARS NAME ARGS BODY;
 	: "SUMSQ" -> NAME;
 	: [X,Y] -> ARGS;
 	: [X*X + Y*Y] -> BODY;
 	: [FUNCTION] <> [%NAME%] <> [(] <> ARGS <> [);]
 	:	<> BODY <> [END;] -> TEXT;
 	: TEXT =>
 	: POPVAL(TEXT);
 	: SUMSQ(3,4) =>
.br
What will be printed by the print arrows?
Find out for yourself at a terminal.
