00100	RU CHART↔
00200	(PARSE)↔
00300	CHART();↔
00400	|
00100	R MLISP2 45↔N↔
00200	(PARSE CHART)↔βSAVE CHART↔