proc expressions local 0,000020,x local 1,000020,y local 2,000020,z local 3,000040,e1 local 4,000000,i local 5,000000,j local 6,000000,c1 local 7,000000,c2 local 8,000000,s1 local 9,000000,s2 local 10,000000,a1 local 11,000000,a2 local 12,000000,k local 13,000000,s local 14,000000,e2 local 15,000000,e local 16,000000,size local 17,000000,e3 local 18,000000,X_ con 0,002000,0 con 1,002000,1 con 2,010000,3,141,142,143 con 3,020000,3,141,142,143 con 4,010000,1,012 con 5,010000,2,136,141 con 6,010000,1,001 con 7,002000,999999 con 8,002000,36ra1 con 9,004000,3.5 con 10,004000,2.5e4 con 11,004000,4e-10 declend file proto.icn line 9 init? L1 mark L1 pnull var 3 int 0 line 12 asgn unmark 1 lab L1 mark L2 pnull unmark 1 lab L2 mark L3 pnull unmark 1 lab L3 mark L4 pnull unmark 1 lab L4 mark L5 pnull unmark 1 lab L5 mark L6 pnull line 16 llist 0 unmark 1 lab L6 mark L7 pnull pnull pnull line 17 llist 2 unmark 1 lab L7 mark L8 pnull var 0 line 18 field y unmark 1 lab L8 mark L9 pnull var 0 var 4 line 19 subsc unmark 1 lab L9 mark L10 pnull var 0 var 4 var 5 line 20 sect unmark 1 lab L10 mark L11 pnull var 0 var 4 dup var 5 line 21 plus sect unmark 1 lab L11 mark L12 pnull var 0 var 4 dup var 5 line 22 minus sect unmark 1 lab L12 mark L13 pushn1 pnull pnull pnull pnull line 23 invoke 4 unmark 1 lab L13 mark L14 var 0 pnull pnull pnull pnull line 24 invoke 4 unmark 1 lab L14 mark L15 mark L16 var 0 unmark 1 efail lab L16 pnull unmark 1 lab L15 mark L17 lab L18 mark L0 var 0 chfail L18 esusp unmark 1 lab L17 mark L19 pnull var 0 line 27 bang unmark 1 lab L19 mark L20 pnull var 0 line 28 size unmark 1 lab L20 mark L21 pnull var 0 line 29 number unmark 1 lab L21 mark L22 pnull var 0 line 30 neg unmark 1 lab L22 mark L23 pnull var 0 line 31 value unmark 1 lab L23 mark L24 pnull var 0 line 32 null unmark 1 lab L24 mark L25 pnull var 0 line 33 tabmat unmark 1 lab L25 mark L26 pnull var 0 line 34 random unmark 1 lab L26 mark L27 pnull var 0 line 35 nonnull unmark 1 lab L27 mark L28 pnull var 0 line 36 compl unmark 1 lab L28 mark L29 pnull var 0 line 37 coact unmark 1 lab L29 mark L30 pnull var 0 line 38 refresh unmark 1 lab L30 mark L31 var 4 line 39 limit mark L0 var 0 lsusp unmark 1 lab L31 mark L32 var 0 var 1 line 40 coact unmark 1 lab L32 mark L33 pnull var 4 var 5 line 41 power unmark 1 lab L33 mark L34 pnull var 4 var 5 line 42 mult unmark 1 lab L34 mark L35 pnull var 4 var 5 line 43 div unmark 1 lab L35 mark L36 pnull var 4 var 5 line 44 mod unmark 1 lab L36 mark L37 pnull var 6 var 7 line 45 inter unmark 1 lab L37 mark L38 pnull var 4 var 5 line 46 plus unmark 1 lab L38 mark L39 pnull var 4 var 5 line 47 minus unmark 1 lab L39 mark L40 pnull var 6 var 7 line 48 unioncs unmark 1 lab L40 mark L41 pnull var 6 var 7 line 49 diff unmark 1 lab L41 mark L42 pnull var 8 var 9 line 50 cat unmark 1 lab L42 mark L43 pnull var 10 var 11 line 51 lconcat unmark 1 lab L43 mark L44 pnull var 4 var 5 line 52 numlt unmark 1 lab L44 mark L45 pnull var 4 var 5 line 53 numle unmark 1 lab L45 mark L46 pnull var 4 var 5 line 54 numeq unmark 1 lab L46 mark L47 pnull var 4 var 5 line 55 numge unmark 1 lab L47 mark L48 pnull var 4 var 5 line 56 numgt unmark 1 lab L48 mark L49 pnull var 4 var 5 line 57 numne unmark 1 lab L49 mark L50 pnull var 8 var 9 line 58 lexlt unmark 1 lab L50 mark L51 pnull var 8 var 9 line 59 lexeq unmark 1 lab L51 mark L52 pnull var 8 var 9 line 60 lexge unmark 1 lab L52 mark L53 pnull var 8 var 9 line 61 lexgt unmark 1 lab L53 mark L54 pnull var 8 var 9 line 62 lexne unmark 1 lab L54 mark L55 pnull var 0 var 1 line 63 eqv unmark 1 lab L55 mark L56 pnull var 0 var 1 line 64 neqv unmark 1 lab L56 mark L57 mark L58 var 0 esusp goto L59 lab L58 var 1 lab L59 unmark 1 lab L57 mark L60 pnull var 4 var 5 push1 line 66 toby unmark 1 lab L60 mark L61 pnull var 4 var 5 var 12 line 67 toby unmark 1 lab L61 mark L62 pnull var 0 var 1 line 68 asgn unmark 1 lab L62 mark L63 pnull var 0 var 1 line 69 rasgn unmark 1 lab L63 mark L64 pnull var 0 var 1 line 70 swap unmark 1 lab L64 mark L65 pnull var 0 var 1 line 71 rswap unmark 1 lab L65 mark L66 pnull var 4 dup var 5 line 72 plus asgn unmark 1 lab L66 mark L67 pnull var 4 dup var 5 line 73 minus asgn unmark 1 lab L67 mark L68 pnull var 4 dup var 5 line 74 mult asgn unmark 1 lab L68 mark L69 pnull var 4 dup var 5 line 75 div asgn unmark 1 lab L69 mark L70 pnull var 4 dup var 5 line 76 mod asgn unmark 1 lab L70 mark L71 pnull var 4 dup var 5 line 77 power asgn unmark 1 lab L71 mark L72 pnull var 4 dup var 5 line 78 numlt asgn unmark 1 lab L72 mark L73 pnull var 4 dup var 5 line 79 numle asgn unmark 1 lab L73 mark L74 pnull var 4 dup var 5 line 80 numeq asgn unmark 1 lab L74 mark L75 pnull var 4 dup var 5 line 81 numge asgn unmark 1 lab L75 mark L76 pnull var 4 dup var 5 line 82 numne asgn unmark 1 lab L76 mark L77 pnull var 6 dup var 7 line 83 unioncs asgn unmark 1 lab L77 mark L78 pnull var 6 dup var 7 line 84 diff asgn unmark 1 lab L78 mark L79 pnull var 6 dup var 7 line 85 inter asgn unmark 1 lab L79 mark L80 pnull var 8 dup var 9 line 86 cat asgn unmark 1 lab L80 mark L81 pnull var 8 dup var 9 line 87 lexlt asgn unmark 1 lab L81 mark L82 pnull var 8 dup var 9 line 88 lexle asgn unmark 1 lab L82 mark L83 pnull var 8 dup var 9 line 89 lexeq asgn unmark 1 lab L83 mark L84 pnull var 8 dup var 9 line 90 lexge asgn unmark 1 lab L84 mark L85 pnull var 8 dup var 9 line 91 lexgt asgn unmark 1 lab L85 mark L86 pnull var 8 dup var 9 line 92 lexne asgn unmark 1 lab L86 mark L87 pnull var 8 sdup line 93 bscan var 9 escan asgn unmark 1 lab L87 mark L88 pnull var 10 dup var 11 line 94 lconcat asgn unmark 1 lab L88 mark L89 pnull var 0 dup var 1 line 95 eqv asgn unmark 1 lab L89 mark L90 pnull var 0 dup var 1 line 96 neqv asgn unmark 1 lab L90 mark L91 pnull var 0 var 1 asgn unmark 1 lab L91 mark L92 pnull var 0 sdup var 1 line 98 coact asgn unmark 1 lab L92 mark L93 var 13 line 99 bscan var 0 escan unmark 1 lab L93 mark L94 var 0 pop var 1 unmark 1 lab L94 mark L95 goto L98 lab L96 pop mark L97 var 0 incres line 101 coret efail lab L97 line 101 cofail goto L97 lab L98 line 101 create L96 unmark 1 lab L95 mark L99 mark L100 pnull line 102 pret lab L100 line 102 pfail unmark 1 lab L99 mark L101 mark L102 var 0 line 103 pret lab L102 line 103 pfail unmark 1 lab L101 mark L103 mark L0 var 0 line 104 psusp efail unmark 1 lab L103 mark L104 line 105 pfail unmark 1 lab L104 mark L105 lab L106 line 106 mark L0 var 3 unmark 1 mark L106 unmark 1 pnull goto L108 lab L107 unmark 1 goto L106 lab L108 unmark 1 lab L105 mark L109 lab L110 line 107 mark L0 var 3 unmark 1 mark L110 unmark 1 var 14 goto L112 lab L111 unmark 1 goto L110 lab L112 unmark 1 lab L109 mark L113 lab L114 line 108 mark L0 var 3 unmark 1 mark L114 goto L115 lab L115 unmark 1 goto L114 lab L116 unmark 1 lab L113 mark L117 mark L0 var 15 eret mark L119 ccase var 0 line 110 eqv unmark 1 pop line 110 pfail goto L118 lab L119 mark L120 ccase mark L121 pnull var 4 var 5 line 111 numgt esusp goto L122 lab L121 int 1 lab L122 eqv unmark 1 pop mark L123 pnull pret lab L123 line 111 pfail goto L118 lab L120 efail lab L118 unmark 1 lab L117 mark L124 mark L0 var 16 var 13 line 113 invoke 1 eret mark L126 ccase int 1 line 114 eqv unmark 1 pop int 1 goto L125 lab L126 pop line 115 pfail lab L125 unmark 1 lab L124 mark L127 mark L0 var 3 unmark 1 var 14 unmark 1 lab L127 mark L128 mark L129 var 3 unmark 1 var 14 goto L130 lab L129 var 17 lab L130 unmark 1 lab L128 mark L131 lab L132 line 119 mark L132 var 15 lab L133 unmark 1 goto L132 lab L134 unmark 1 lab L131 mark L135 lab L136 line 120 mark L0 var 3 lab L137 unmark 1 goto L136 lab L138 unmark 1 lab L135 mark L139 lab L140 line 121 mark L0 var 3 unmark 1 mark L140 var 14 lab L141 unmark 1 goto L140 lab L142 unmark 1 lab L139 mark L143 lab L144 line 122 mark L145 var 3 unmark 1 efail lab L145 mark L144 pnull lab L146 unmark 1 goto L144 lab L147 unmark 1 lab L143 mark L148 lab L149 line 123 mark L150 var 3 unmark 1 efail lab L150 mark L149 var 14 lab L151 unmark 1 goto L149 lab L152 unmark 1 lab L148 mark L153 mark L0 var 3 pop lab L154 efail lab L155 unmark 1 lab L153 mark L156 mark L0 var 3 pop mark L0 var 14 unmark 1 lab L157 efail lab L158 unmark 1 lab L156 mark L159 var 0 unmark 1 lab L159 mark L160 var 18 unmark 1 lab L160 mark L161 line 128 keywd 3 unmark 1 lab L161 mark L162 line 129 keywd 13 unmark 1 lab L162 mark L163 str 2 unmark 1 lab L163 mark L164 cset 3 unmark 1 lab L164 mark L165 str 4 unmark 1 lab L165 mark L166 str 5 unmark 1 lab L166 mark L167 str 6 unmark 1 lab L167 mark L168 str 6 unmark 1 lab L168 mark L169 int 1 unmark 1 lab L169 mark L170 int 7 unmark 1 lab L170 mark L171 int 8 unmark 1 lab L171 mark L172 real 9 unmark 1 lab L172 mark L173 real 10 unmark 1 lab L173 mark L174 real 11 unmark 1 lab L174 pnull line 142 pfail end