'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'