80 static ssize_t		 cs(const char *);
223 				$$ = cs("");
235 				$$ = cs("");
253 				$$ = cs("");
260 				$$ = node($1, cs("ps."), END_NODE);
265 					$$ = node($3, cs($2), $1.store,
268 					$$ = node($1.load, $3, cs($2), $1.store,
273 				$$ = node(cs("["), as($1),
274 				    cs("]P"), END_NODE);
285 					    cs("Q"), END_NODE);
297 					    cs("J"), END_NODE);
327 					n = node($10, cs("M"), $8, cs("s."),
330 					n = node($10, $8, cs("s."), $6, $3,
334 				$$ = node($4, cs("s."), $6, $3, cs(" "),
341 				$$ = node($5, $3, cs(" "), END_NODE);
348 				$$ = node($5, $3, cs("e"), $9, cs(" "),
357 					n = node($6, cs("M"), $4, $3, END_NODE);
361 				$$ = node($4, $3, cs(" "), END_NODE);
375 				$$ = cs(str_table[macro_char]);
404 				    cs("0"), numnode(nesting),
405 				    cs("Q"), END_NODE);
417 				prologue = cs("");
418 				epilogue = cs("");
492 				$$ = cs("");
505 				$$ = node($1, cs("l"), array_node($3),
514 				$$ = cs(" 0 0=");
522 				$$ = node($1, $3, cs("="), END_NODE);
526 				$$ = node($1, $3, cs("!="), END_NODE);
530 				$$ = node($1, $3, cs(">"), END_NODE);
534 				$$ = node($1, $3, cs("!<"), END_NODE);
538 				$$ = node($1, $3, cs("<"), END_NODE);
542 				$$ = node($1, $3, cs("!>"), END_NODE);
546 				$$ = node($1, cs(" 0!="), END_NODE);
554 				$$ = node(cs("0"), epilogue,
555 				    numnode(nesting), cs("Q"), END_NODE);
560 				    numnode(nesting), cs("Q"), END_NODE);
564 				$$ = node(cs("0"), epilogue,
565 				    numnode(nesting), cs("Q"), END_NODE);
572 				$$ = cs(" 0");
582 				$$ = node(cs("l."), END_NODE);
586 				$$ = node(cs(" "), as($1), END_NODE);
594 				$$ = node($3, cs("l"),
595 				    function_node($1), cs("x"),
601 				$$ = node(cs(" 0"), $2, cs("-"),
606 				$$ = node($1, $3, cs("+"), END_NODE);
610 				$$ = node($1, $3, cs("-"), END_NODE);
614 				$$ = node($1, $3, cs("*"), END_NODE);
618 				$$ = node($1, $3, cs("/"), END_NODE);
622 				$$ = node($1, $3, cs("%"), END_NODE);
626 				$$ = node($1, $3, cs("^"), END_NODE);
630 				$$ = node($2.load, cs("1+d"), $2.store,
635 				$$ = node($2.load, cs("1-d"),
640 				$$ = node($1.load, cs("d1+"),
645 				$$ = node($1.load, cs("d1-"),
651 					$$ = node($3, cs($2), cs("d"), $1.store,
654 					$$ = node($1.load, $3, cs($2), cs("d"),
659 				$$ = node($3, cs("Z"), END_NODE);
663 				$$ = node($3, cs("v"), END_NODE);
667 				$$ = node($3, cs("X"), END_NODE);
671 				$$ = node($2, cs("N"), END_NODE);
675 				ssize_t n = node(cs("R"), $5, END_NODE);
677 				$$ = node($1, cs("d0!="), $3, END_NODE);
681 				ssize_t n = node(cs("R"), $5, END_NODE);
683 				$$ = node($1, cs("d0="), $3, END_NODE);
687 				$$ = node($1, $3, cs("G"), END_NODE);
691 				$$ = node($1, $3, cs("GN"), END_NODE);
695 				$$ = node($3, $1, cs("("), END_NODE);
699 				$$ = node($3, $1, cs("{"), END_NODE);
703 				$$ = node($1, $3, cs("("), END_NODE);
707 				$$ = node($1, $3, cs("{"), END_NODE);
714 				$$.load = node(cs("l"), letter_node($1),
716 				$$.store = node(cs("s"), letter_node($1),
722 				$$.load = node($3, cs(";"),
724 				$$.store = node($3, cs(":"),
730 				$$.load = cs("K");
731 				$$.store = cs("k");
735 				$$.load = cs("I");
736 				$$.store = cs("i");
740 				$$.load = cs("O");
741 				$$.store = cs("o");
755 				$$ = node($1, cs("ds.n"), END_NODE);
760 				$$ = node(cs("["), as(p), cs("]n"), END_NODE);
785 cs(const char *str)  in cs()  function
876 	return (node(cs(" "), cs(p), END_NODE));  in numnode()
914 	return (cs(found->data));  in lookup()
924 		return (cs(str_table[(int)str[0]]));  in letter_node()
936 		return (cs(str_table[(int)str[0] - 'a' + ARRAY_CHAR]));  in array_node()
948 		return (cs(str_table[(int)str[0] - 'a' + FUNC_CHAR]));  in function_node()
957 	prologue = node(cs("S"), n, prologue, END_NODE);  in add_par()
958 	epilogue = node(epilogue, cs("L"), n, cs("s."), END_NODE);  in add_par()
965 	prologue = node(cs("0S"), n, prologue, END_NODE);  in add_local()
966 	epilogue = node(epilogue, cs("L"), n, cs("s."), END_NODE);  in add_local()