begin
real
A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, A10, A11, A12,
A13, A14, A15, A16, A17, A18, A19, A20, A21, A22, A23, A24,
A25, A26, A27, A28, A29, A30, A31, A32, A33, A34, A35, A36,
A37, A38, A39, A40, A41, A42, A43, A44, A45, A46, A47,
A48, A49, A50, A51, A52, A53, A54, A55, A56, A57, A58,
A59, A60, A61, A62, A63, A64, A65, A66, A67, A68, A69,
A70, A71, A72, A73, A74, A75, A76, A77, A78, A79, A80,
A81, A82, A83, A84, A85, A86, A87, A88, A89, A90, A91,
A92, A93, A94, A95, A96, A97, A98, A99, A100, A101,
A102, A103, A104, A105, A106, A107, A108, A109, A110,
A111, A112, A113, A114, A115, A116, A117, A118, A119,
A120, A121, A122, A123, A124, A125, A126, A127, A128,
A129, A130, A131, A132, A133, A134, A135, A136, A137,
A138, A139, A140, A141, A142, A143, A144, A145, A146,
A147, A148, A149, A150, A151, A152, A153, A154, A155,
A156, A157, A158, A159, A160, A161, A162, A163, A164,
A165, A166, A167, A168, A169, A170, A171, A172, A173,
A174, A175, A176, A177, A178, A179, A180, A181, A182,
A183, A184, A185, A186, A187, A188, A189, A190, A191,
A192, A193, A194, A195, A196, A197, A198, A199, A200,
A201, A202, A203, A204, A205, A206, A207, A208, A209,
A210, A211, A212, A213, A214, A215, A216, A217, A218,
A219, A220, A221, A222, A223, A224, A225, A226, A227,
A228, A229, A230, A231, A232, A233, A234, A235, A236,
A237, A238, A239, A240, A241, A242, A243, A244, A245,
A246, A247, A248, A249, A250, A251, A252, A253, A254,
A255, A256, A257, A258, A259, A260, A261, A262, A263,
A264, A265, A266, A267, A268, A269, A270, A271, A272,
A273, A274, A275, A276, A277, A278, A279, A280, A281,
A282, A283, A284, A285, A286, A287, A288, A289, A290,
A291, A292, A293, A294, A295, A296, A297, A298, A299;
A0 ≔ 1·0; A1 ≔ 1·0; A2 ≔ 1·0; A3 ≔ 1·0; A4 ≔ 1·0;
A5 ≔ 1·0; A6 ≔ 1·0; A7 ≔ 1·0; A8 ≔ 1·0; A9 ≔ 1·0;
A10 ≔ 1·0; A11 ≔ 1·0; A12 ≔ 1·0; A13 ≔ 1·0; A14 ≔ 1·0;
A15 ≔ 1·0; A16 ≔ 1·0; A17 ≔ 1·0; A18 ≔ 1·0; A19 ≔ 1·0;
A20 ≔ 1·0; A21 ≔ 1·0; A22 ≔ 1·0; A23 ≔ 1·0; A24 ≔ 1·0;
A25 ≔ 1·0; A26 ≔ 1·0; A27 ≔ 1·0; A28 ≔ 1·0; A29 ≔ 1·0;
A30 ≔ 1·0; A31 ≔ 1·0; A32 ≔ 1·0; A33 ≔ 1·0; A34 ≔ 1·0;
A35 ≔ 1·0; A36 ≔ 1·0; A37 ≔ 1·0; A38 ≔ 1·0; A39 ≔ 1·0;
A40 ≔ 1·0; A41 ≔ 1·0; A42 ≔ 1·0; A43 ≔ 1·0; A44 ≔ 1·0;
A45 ≔ 1·0; A46 ≔ 1·0; A47 ≔ 1·0; A48 ≔ 1·0; A49 ≔ 1·0;
A50 ≔ 1·0; A51 ≔ 1·0; A52 ≔ 1·0; A53 ≔ 1·0; A54 ≔ 1·0;
A55 ≔ 1·0; A56 ≔ 1·0; A57 ≔ 1·0; A58 ≔ 1·0; A59 ≔ 1·0;
A60 ≔ 1·0; A61 ≔ 1·0; A62 ≔ 1·0; A63 ≔ 1·0; A64 ≔ 1·0;
A65 ≔ 1·0; A66 ≔ 1·0; A67 ≔ 1·0; A68 ≔ 1·0; A69 ≔ 1·0;
A70 ≔ 1·0; A71 ≔ 1·0; A72 ≔ 1·0; A73 ≔ 1·0; A74 ≔ 1·0;
A75 ≔ 1·0; A76 ≔ 1·0; A77 ≔ 1·0; A78 ≔ 1·0; A79 ≔ 1·0;
A80 ≔ 1·0; A81 ≔ 1·0; A82 ≔ 1·0; A83 ≔ 1·0; A84 ≔ 1·0;
A85 ≔ 1·0; A86 ≔ 1·0; A87 ≔ 1·0; A88 ≔ 1·0; A89 ≔ 1·0;
A90 ≔ 1·0; A91 ≔ 1·0; A92 ≔ 1·0; A93 ≔ 1·0; A94 ≔ 1·0;
A95 ≔ 1·0; A96 ≔ 1·0; A97 ≔ 1·0; A98 ≔ 1·0; A99 ≔ 1·0;
A100 ≔ 1·0; A101 ≔ 1·0; A102 ≔ 1·0; A103 ≔ 1·0;
A104 ≔ 1·0; A105 ≔ 1·0; A106 ≔ 1·0; A107 ≔ 1·0;
A108 ≔ 1·0; A109 ≔ 1·0; A110 ≔ 1·0; A111 ≔ 1·0;
A112 ≔ 1·0; A113 ≔ 1·0; A114 ≔ 1·0; A115 ≔ 1·0;
A116 ≔ 1·0; A117 ≔ 1·0; A118 ≔ 1·0; A119 ≔ 1·0;
A120 ≔ 1·0; A121 ≔ 1·0; A122 ≔ 1·0; A123 ≔ 1·0;
A124 ≔ 1·0; A125 ≔ 1·0; A126 ≔ 1·0; A127 ≔ 1·0;
A128 ≔ 1·0; A129 ≔ 1·0; A130 ≔ 1·0; A131 ≔ 1·0;
A132 ≔ 1·0; A133 ≔ 1·0; A134 ≔ 1·0; A135 ≔ 1·0;
A136 ≔ 1·0; A137 ≔ 1·0; A138 ≔ 1·0; A139 ≔ 1·0;
A140 ≔ 1·0; A141 ≔ 1·0; A142 ≔ 1·0; A143 ≔ 1·0;
A144 ≔ 1·0; A145 ≔ 1·0; A146 ≔ 1·0; A147 ≔ 1·0;
A148 ≔ 1·0; A149 ≔ 1·0; A150 ≔ 1·0; A151 ≔ 1·0;
A152 ≔ 1·0; A153 ≔ 1·0; A154 ≔ 1·0; A155 ≔ 1·0;
A156 ≔ 1·0; A157 ≔ 1·0; A158 ≔ 1·0; A159 ≔ 1·0;
A160 ≔ 1·0; A161 ≔ 1·0; A162 ≔ 1·0; A163 ≔ 1·0;
A164 ≔ 1·0; A165 ≔ 1·0; A166 ≔ 1·0; A167 ≔ 1·0;
A168 ≔ 1·0; A169 ≔ 1·0; A170 ≔ 1·0; A171 ≔ 1·0;
A172 ≔ 1·0; A173 ≔ 1·0; A174 ≔ 1·0; A175 ≔ 1·0;
A176 ≔ 1·0; A177 ≔ 1·0; A178 ≔ 1·0; A179 ≔ 1·0;
A180 ≔ 1·0; A181 ≔ 1·0; A182 ≔ 1·0; A183 ≔ 1·0;
A184 ≔ 1·0; A185 ≔ 1·0; A186 ≔ 1·0; A187 ≔ 1·0;
A188 ≔ 1·0; A189 ≔ 1·0; A190 ≔ 1·0; A191 ≔ 1·0;
A192 ≔ 1·0; A193 ≔ 1·0; A194 ≔ 1·0; A195 ≔ 1·0;
A196 ≔ 1·0; A197 ≔ 1·0; A198 ≔ 1·0; A199 ≔ 1·0;
A200 ≔ 1·0; A201 ≔ 1·0; A202 ≔ 1·0; A203 ≔ 1·0;
A204 ≔ 1·0; A205 ≔ 1·0; A206 ≔ 1·0; A207 ≔ 1·0;
A208 ≔ 1·0; A209 ≔ 1·0; A210 ≔ 1·0; A211 ≔ 1·0;
A212 ≔ 1·0; A213 ≔ 1·0; A214 ≔ 1·0; A215 ≔ 1·0;
A216 ≔ 1·0; A217 ≔ 1·0; A218 ≔ 1·0; A219 ≔ 1·0;
A220 ≔ 1·0; A221 ≔ 1·0; A222 ≔ 1·0; A223 ≔ 1·0;
A224 ≔ 1·0; A225 ≔ 1·0; A226 ≔ 1·0; A227 ≔ 1·0;
A228 ≔ 1·0; A229 ≔ 1·0; A230 ≔ 1·0; A231 ≔ 1·0;
A232 ≔ 1·0; A233 ≔ 1·0; A234 ≔ 1·0; A235 ≔ 1·0;
A236 ≔ 1·0; A237 ≔ 1·0; A238 ≔ 1·0; A239 ≔ 1·0;
A240 ≔ 1·0; A241 ≔ 1·0; A242 ≔ 1·0; A243 ≔ 1·0;
A244 ≔ 1·0; A245 ≔ 1·0; A246 ≔ 1·0; A247 ≔ 1·0;
A248 ≔ 1·0; A249 ≔ 1·0; A250 ≔ 1·0; A251 ≔ 1·0;
A252 ≔ 1·0; A253 ≔ 1·0; A254 ≔ 1·0; A255 ≔ 1·0;
A256 ≔ 1·0; A257 ≔ 1·0; A258 ≔ 1·0; A259 ≔ 1·0;
A260 ≔ 1·0; A261 ≔ 1·0; A262 ≔ 1·0; A263 ≔ 1·0;
A264 ≔ 1·0; A265 ≔ 1·0; A266 ≔ 1·0; A267 ≔ 1·0;
A268 ≔ 1·0; A269 ≔ 1·0; A270 ≔ 1·0; A271 ≔ 1·0;
A272 ≔ 1·0; A273 ≔ 1·0; A274 ≔ 1·0; A275 ≔ 1·0;
A276 ≔ 1·0; A277 ≔ 1·0; A278 ≔ 1·0; A279 ≔ 1·0;
A280 ≔ 1·0; A281 ≔ 1·0; A282 ≔ 1·0; A283 ≔ 1·0;
A284 ≔ 1·0; A285 ≔ 1·0; A286 ≔ 1·0; A287 ≔ 1·0;
A288 ≔ 1·0; A289 ≔ 1·0; A290 ≔ 1·0; A291 ≔ 1·0;
A292 ≔ 1·0; A293 ≔ 1·0; A294 ≔ 1·0; A295 ≔ 1·0;
A296 ≔ 1·0; A297 ≔ 1·0; A298 ≔ 1·0; A299 ≔ 1·0;
OUTREAL(99, A0 + A1 + A2 + A3 + A4 + A5 + A6 + A7 + A8 + A9 + A10
+ A11 + A12 + A13 + A14 + A15 + A16 + A17 + A18 + A19 +
A20 + A21 + A22 + A23 + A24 + A25 + A26 + A27 + A28 +
A29 + A30 + A31 + A32 + A33 + A34 + A35 + A36 + A37 +
A38 + A39 + A40 + A41 + A42 + A43 + A44 + A45 + A46 +
A47 + A48 + A49 + A50 + A51 + A52 + A53 + A54 + A55 +
A56 + A57 + A58 + A59 + A60 + A61 + A62 + A63 + A64 +
A65 + A66 + A67 + A68 + A69 + A70 + A71 + A72 + A73 +
A74 + A75 + A76 + A77 + A78 + A79 + A80 + A81 + A82 +
A83 + A84 + A85 + A86 + A87 + A88 + A89 + A90 + A91 +
A92 + A93 + A94 + A95 + A96 + A97 + A98 + A99 + A100 +
A101 + A102 + A103 + A104 + A105 + A106 + A107 + A108 +
A109 + A110 + A111 + A112 + A113 + A114 + A115 + A116 +
A117 + A118 + A119 + A120 + A121 + A122 + A123 + A124 +
A125 + A126 + A127 + A128 + A129 + A130 + A131 + A132 +
A133 + A134 + A135 + A136 + A137 + A138 + A139 + A140 +
A141 + A142 + A143 + A144 + A145 + A146 + A147 + A148 +
A149 + A150 + A151 + A152 + A153 + A154 + A155 + A156 +
A157 + A158 + A159 + A160 + A161 + A162 + A163 + A164 +
A165 + A166 + A167 + A168 + A169 + A170 + A171 + A172 +
A173 + A174 + A175 + A176 + A177 + A178 + A179 + A180 +
A181 + A182 + A183 + A184 + A185 + A186 + A187 + A188 +
A189 + A190 + A191 + A192 + A193 + A194 + A195 + A196 +
A197 + A198 + A199 + A200 + A201 + A202 + A203 + A204 +
A205 + A206 + A207 + A208 + A209 + A210 + A211 + A212 +
A213 + A214 + A215 + A216 + A217 + A218 + A219 + A220 +
A221 + A222 + A223 + A224 + A225 + A226 + A227 + A228 +
A229 + A230 + A231 + A232 + A233 + A234 + A235 + A236 +
A237 + A238 + A239 + A240 + A241 + A242 + A243 + A244 +
A245 + A246 + A247 + A248 + A249 + A250 + A251 + A252 +
A253 + A254 + A255 + A256 + A257 + A258 + A259 + A260 +
A261 + A262 + A263 + A264 + A265 + A266 + A267 + A268 +
A269 + A270 + A271 + A272 + A273 + A274 + A275 + A276 +
A277 + A278 + A279 + A280 + A281 + A282 + A283 + A284 +
A285 + A286 + A287 + A288 + A289 + A290 + A291 + A292 +
A293 + A294 + A295 + A296 + A297 + A298 + A299);
end