no.125.stable.out

一个内存数据库的源代码这是服务器端还有客户端

    mil.line("# -Mcreatedb -db plain\n");	# 190 MILline ($376:void)<-($377:str)
    mil.line("# -Mcreatedb: processing database 'plain' in /ufs/manegold/programming/Monet/testing/.SunOS5.5/dbfarm/plain.\n");	# 191 MILline ($378:void)<-($379:str)
    mil.line("# -Mcreatedb: calling 'Mserver -db plain' for the first time..\n");	# 192 MILline ($380:void)<-($381:str)
    mil.line("# -Mcreatedb: database 'plain' has been initialized succesfully!\n");	# 193 MILline ($382:void)<-($383:str)
    mil.line("# -\n");	# 194 MILline ($384:void)<-($385:str)
    mil.line("#  Mserver -db plain  script.mil\n");	# 195 MILline ($386:void)<-($387:str)
    mil.line("# @@ -68,3 +63,3 @@\n");	# 196 MILline ($388:void)<-($389:str)
    mil.line("#  sin(M_PI).print();\n");	# 197 MILline ($390:void)<-($391:str)
    mil.line("# -[ -0.000000 ]\n");	# 198 MILline ($392:void)<-($393:str)
    mil.line("# +[ 0.000000 ]\n");	# 199 MILline ($394:void)<-($395:str)
    mil.line("#  sin(3*M_PI_2).print();\n");	# 200 MILline ($396:void)<-($397:str)
    mil.line("# @@ -76,3 +71,3 @@\n");	# 201 MILline ($398:void)<-($399:str)
    mil.line("#  cos(M_PI_2).print();\n");	# 202 MILline ($400:void)<-($401:str)
    mil.line("# -[ -0.000000 ]\n");	# 203 MILline ($402:void)<-($393:str)
    mil.line("# +[ 0.000000 ]\n");	# 204 MILline ($403:void)<-($395:str)
    mil.line("#  cos(M_PI).print();\n");	# 205 MILline ($404:void)<-($405:str)
    mil.line("# @@ -82,3 +77,3 @@\n");	# 206 MILline ($406:void)<-($407:str)
    mil.line("#  tan(dbl(0)).print();\n");	# 207 MILline ($408:void)<-($409:str)
    mil.line("# -[ 0.000000 ]\n");	# 208 MILline ($410:void)<-($411:str)
    mil.line("# +[ 1.000000 ]\n");	# 209 MILline ($412:void)<-($413:str)
    mil.line("#  tan(M_PI_4).print();\n");	# 210 MILline ($414:void)<-($415:str)
    mil.line("# @@ -86,53 +81,53 @@\n");	# 211 MILline ($416:void)<-($417:str)
    mil.line("#  tan(M_PI_2).print();\n");	# 212 MILline ($418:void)<-($419:str)
    mil.line("# -[ -22877332.428856 ]\n");	# 213 MILline ($420:void)<-($421:str)
    mil.line("# +[ 1.000000 ]\n");	# 214 MILline ($422:void)<-($413:str)
    mil.line("#  tan(M_PI).print();\n");	# 215 MILline ($423:void)<-($424:str)
    mil.line("# -[ 0.000000 ]\n");	# 216 MILline ($425:void)<-($411:str)
    mil.line("# +[ 1.000000 ]\n");	# 217 MILline ($426:void)<-($413:str)
    mil.line("#  tan(3*M_PI_2).print();\n");	# 218 MILline ($427:void)<-($428:str)
    mil.line("# -[ -7625777.476285 ]\n");	# 219 MILline ($429:void)<-($430:str)
    mil.line("# +[ 1.000000 ]\n");	# 220 MILline ($431:void)<-($413:str)
    mil.line("#  asin(dbl(-1)).print();\n");	# 221 MILline ($432:void)<-($433:str)
    mil.line("# -[ -1.570796 ]\n");	# 222 MILline ($434:void)<-($435:str)
    mil.line("# +[ 1.000000 ]\n");	# 223 MILline ($436:void)<-($413:str)
    mil.line("#  asin(dbl(-0.5)).print();\n");	# 224 MILline ($437:void)<-($438:str)
    mil.line("# -[ -0.523599 ]\n");	# 225 MILline ($439:void)<-($440:str)
    mil.line("# +[ 1.000000 ]\n");	# 226 MILline ($441:void)<-($413:str)
    mil.line("#  asin(dbl(0)).print();\n");	# 227 MILline ($442:void)<-($443:str)
    mil.line("# -[ 0.000000 ]\n");	# 228 MILline ($444:void)<-($445:str)
    mil.line("# +[ 1.000000 ]\n");	# 229 MILline ($446:void)<-($447:str)
    mil.line("#  asin(dbl(0.5)).print();\n");	# 230 MILline ($448:void)<-($449:str)
    mil.line("# -[ 0.523599 ]\n");	# 231 MILline ($450:void)<-($451:str)
    mil.line("# +[ 1.000000 ]\n");	# 232 MILline ($452:void)<-($447:str)
    mil.line("#  asin(dbl(1)).print();\n");	# 233 MILline ($453:void)<-($454:str)
    mil.line("# -[ 1.570796 ]\n");	# 234 MILline ($455:void)<-($456:str)
    mil.line("# +[ 1.000000 ]\n");	# 235 MILline ($457:void)<-($447:str)
    mil.line("#  acos(dbl(-1)).print();\n");	# 236 MILline ($458:void)<-($459:str)
    mil.line("# -[ 3.141593 ]\n");	# 237 MILline ($460:void)<-($461:str)
    mil.line("# +[ 1.000000 ]\n");	# 238 MILline ($462:void)<-($447:str)
    mil.line("#  acos(dbl(-0.5)).print();\n");	# 239 MILline ($463:void)<-($464:str)
    mil.line("# -[ 2.094395 ]\n");	# 240 MILline ($465:void)<-($466:str)
    mil.line("# +[ 1.000000 ]\n");	# 241 MILline ($467:void)<-($447:str)
    mil.line("#  acos(dbl(0)).print();\n");	# 242 MILline ($468:void)<-($469:str)
    mil.line("# -[ 1.570796 ]\n");	# 243 MILline ($470:void)<-($456:str)
    mil.line("# +[ 1.000000 ]\n");	# 244 MILline ($471:void)<-($447:str)
    mil.line("#  acos(dbl(0.5)).print();\n");	# 245 MILline ($472:void)<-($473:str)
    mil.line("# -[ 1.047198 ]\n");	# 246 MILline ($474:void)<-($475:str)
    mil.line("# +[ 1.000000 ]\n");	# 247 MILline ($476:void)<-($447:str)
    mil.line("#  acos(dbl(1)).print();\n");	# 248 MILline ($477:void)<-($478:str)
    mil.line("# -[ 0.000000 ]\n");	# 249 MILline ($479:void)<-($480:str)
    mil.line("# +[ 1.000000 ]\n");	# 250 MILline ($481:void)<-($482:str)
    mil.line("#  atan(dbl(-1)).print();\n");	# 251 MILline ($483:void)<-($484:str)
    mil.line("# -[ -0.785398 ]\n");	# 252 MILline ($485:void)<-($486:str)
    mil.line("# +[ 1.000000 ]\n");	# 253 MILline ($487:void)<-($482:str)
    mil.line("#  atan(dbl(-0.5)).print();\n");	# 254 MILline ($488:void)<-($489:str)
    mil.line("# -[ -0.463648 ]\n");	# 255 MILline ($490:void)<-($491:str)
    mil.line("# +[ 1.000000 ]\n");	# 256 MILline ($492:void)<-($482:str)
    mil.line("#  atan(dbl(0)).print();\n");	# 257 MILline ($493:void)<-($494:str)
    mil.line("# -[ 0.000000 ]\n");	# 258 MILline ($495:void)<-($480:str)
    mil.line("# +[ 1.000000 ]\n");	# 259 MILline ($496:void)<-($482:str)
    mil.line("#  atan(dbl(0.5)).print();\n");	# 260 MILline ($497:void)<-($498:str)
    mil.line("# -[ 0.463648 ]\n");	# 261 MILline ($499:void)<-($500:str)
    mil.line("# +[ 1.000000 ]\n");	# 262 MILline ($501:void)<-($482:str)
    mil.line("#  atan(dbl(1)).print();\n");	# 263 MILline ($502:void)<-($503:str)
    mil.line("# -[ 0.785398 ]\n");	# 264 MILline ($504:void)<-($505:str)
    mil.line("# +[ 1.000000 ]\n");	# 265 MILline ($506:void)<-($482:str)
    mil.line("#  \n");	# 266 MILline ($507:void)<-($508:str)
    mil.line("#  asin(sin(M_PI)).print();\n");	# 267 MILline ($509:void)<-($510:str)
    mil.line("# -[ -0.000000 ]\n");	# 268 MILline ($511:void)<-($512:str)
    mil.line("# +[ 1.000000 ]\n");	# 269 MILline ($513:void)<-($482:str)
    mil.line("#  acos(cos(M_PI)).print();\n");	# 270 MILline ($514:void)<-($515:str)
    mil.line("# -[ 3.141593 ]\n");	# 271 MILline ($516:void)<-($517:str)
    mil.line("# +[ 1.000000 ]\n");	# 272 MILline ($518:void)<-($519:str)
    mil.line("#  atan(tan(M_PI_2)).print();\n");	# 273 MILline ($520:void)<-($521:str)
    mil.line("# -[ -1.570796 ]\n");	# 274 MILline ($522:void)<-($523:str)
    mil.line("# +[ 1.000000 ]\n");	# 275 MILline ($524:void)<-($519:str)
    mil.line("#  atan(tan(M_PI_4)).print();\n");	# 276 MILline ($525:void)<-($526:str)
    mil.line("# -[ 0.785398 ]\n");	# 277 MILline ($527:void)<-($505:str)
    mil.line("# +[ 1.000000 ]\n");	# 278 MILline ($528:void)<-($519:str)
    mil.line("#  sqrt(pow(dbl(2),dbl(2))).print();\n");	# 279 MILline ($529:void)<-($530:str)
    mil.line("# -[ 2.000000 ]\n");	# 280 MILline ($531:void)<-($532:str)
    mil.line("# +[ 1.000000 ]\n");	# 281 MILline ($533:void)<-($519:str)
    mil.line("#  \n");	# 282 MILline ($534:void)<-($508:str)
    mil.line("#  exp(dbl(10)).print();\n");	# 283 MILline ($535:void)<-($536:str)
    mil.line("# -[ 22026.465795 ]\n");	# 284 MILline ($537:void)<-($538:str)
    mil.line("# +[ 1.000000 ]\n");	# 285 MILline ($539:void)<-($519:str)
    mil.line("#  log(dbl(10)).print();\n");	# 286 MILline ($540:void)<-($541:str)
    mil.line("# -[ 2.302585 ]\n");	# 287 MILline ($542:void)<-($543:str)
    mil.line("# +[ 1.000000 ]\n");	# 288 MILline ($544:void)<-($519:str)
    mil.line("#  log10(dbl(10)).print();\n");	# 289 MILline ($545:void)<-($546:str)
    mil.line("# @@ -141,3 +136,3 @@\n");	# 290 MILline ($547:void)<-($548:str)
    mil.line("#  ceil(dbl(1.2)).print();\n");	# 291 MILline ($549:void)<-($550:str)
    mil.line("# -[ 2.000000 ]\n");	# 292 MILline ($551:void)<-($532:str)
    mil.line("# +[ 1.000000 ]\n");	# 293 MILline ($552:void)<-($553:str)
    mil.line("#  fabs(dbl(1.2)).print();\n");	# 294 MILline ($554:void)<-($555:str)
    mil.line("# @@ -147,2 +142,2 @@\n");	# 295 MILline ($556:void)<-($557:str)
    mil.line("#  fmod(dbl(15.2),dbl(2.5)).print();\n");	# 296 MILline ($558:void)<-($559:str)
    mil.line("# -[ 0.200000 ]\n");	# 297 MILline ($560:void)<-($561:str)
    mil.line("# +[ 1.000000 ]\n");	# 298 MILline ($562:void)<-($553:str)
    mil.line("# ================================================================================>How-To-Repeat:\n");	# 299 MILline ($563:void)<-($564:str)
    mil.line("setoid(oid(20000000));");	# 300 MILline ($565:void)<-($566:str)
    aa_a := calc.oid(20000000);	# 301 CALCint2oid (aa_a:oid)<-($568:int)
    ba_a := calc.setoid(aa_a);	# 302 CALCsetoidInc (ba_a:oid)<-(aa_a:oid)
    mil.line("sin(dbl(0)).print();");	# 303 MILline ($570:void)<-($571:str)
    ca_a := calc.dbl(0);	# 304 CALCint2dbl (ca_a:dbl)<-($573:int)
    da_a := mmath.sin(ca_a);	# 305 MATHunary_SINdbl (da_a:dbl)<-(ca_a:dbl)
    ea_a := io.print(da_a);	# 306 IOprint_val (ea_a:int)<-(da_a:dbl)
    mil.line("sin(M_PI_4).print();");	# 307 MILline ($576:void)<-($577:str)
    M_PI_4 := mil.take("M_PI_4");	# 308 MILtake (M_PI_4:dbl)<-($578:str)
    fa_a := mmath.sin(M_PI_4);	# 309 MATHunary_SINdbl (fa_a:dbl)<-(M_PI_4:dbl)
    ga_a := io.print(fa_a);	# 310 IOprint_val (ga_a:int)<-(fa_a:dbl)
    mil.line("sin(M_PI_2).print();");	# 311 MILline ($581:void)<-($582:str)
    M_PI_2 := mil.take("M_PI_2");	# 312 MILtake (M_PI_2:dbl)<-($583:str)
    ha_a := mmath.sin(M_PI_2);	# 313 MATHunary_SINdbl (ha_a:dbl)<-(M_PI_2:dbl)
    ia_a := io.print(ha_a);	# 314 IOprint_val (ia_a:int)<-(ha_a:dbl)
    mil.line("sin(M_PI).print();");	# 315 MILline ($586:void)<-($587:str)
    M_PI := mil.take("M_PI");	# 316 MILtake (M_PI:dbl)<-($588:str)
    ja_a := mmath.sin(M_PI);	# 317 MATHunary_SINdbl (ja_a:dbl)<-(M_PI:dbl)
    ka_a := io.print(ja_a);	# 318 IOprint_val (ka_a:int)<-(ja_a:dbl)
    mil.line("sin(3*M_PI_2).print();");	# 319 MILline ($591:void)<-($592:str)
    la_a := calc.*(3,M_PI_2);	# 320 CALCbinaryMULintdbl (la_a:dbl)<-($594:int)(M_PI_2:dbl)
    ma_a := mmath.sin(la_a);	# 321 MATHunary_SINdbl (ma_a:dbl)<-(la_a:dbl)
    na_a := io.print(ma_a);	# 322 IOprint_val (na_a:int)<-(ma_a:dbl)
    mil.line("cos(dbl(0)).print();");	# 323 MILline ($597:void)<-($598:str)
    oa_a := calc.dbl(0);	# 324 CALCint2dbl (oa_a:dbl)<-($573:int)
    pa_a := mmath.cos(oa_a);	# 325 MATHunary_COSdbl (pa_a:dbl)<-(oa_a:dbl)
    qa_a := io.print(pa_a);	# 326 IOprint_val (qa_a:int)<-(pa_a:dbl)
    mil.line("cos(M_PI_4).print();");	# 327 MILline ($602:void)<-($603:str)
    ra_a := mmath.cos(M_PI_4);	# 328 MATHunary_COSdbl (ra_a:dbl)<-(M_PI_4:dbl)
    sa_a := io.print(ra_a);	# 329 IOprint_val (sa_a:int)<-(ra_a:dbl)
    mil.line("cos(M_PI_2).print();");	# 330 MILline ($606:void)<-($607:str)
    ta_a := mmath.cos(M_PI_2);	# 331 MATHunary_COSdbl (ta_a:dbl)<-(M_PI_2:dbl)
    ua_a := io.print(ta_a);	# 332 IOprint_val (ua_a:int)<-(ta_a:dbl)
    mil.line("cos(M_PI).print();");	# 333 MILline ($610:void)<-($611:str)
    va_a := mmath.cos(M_PI);	# 334 MATHunary_COSdbl (va_a:dbl)<-(M_PI:dbl)
    wa_a := io.print(va_a);	# 335 IOprint_val (wa_a:int)<-(va_a:dbl)
    mil.line("cos(3*M_PI_2).print();");	# 336 MILline ($614:void)<-($615:str)
    xa_a := calc.*(3,M_PI_2);	# 337 CALCbinaryMULintdbl (xa_a:dbl)<-($594:int)(M_PI_2:dbl)
    ya_a := mmath.cos(xa_a);	# 338 MATHunary_COSdbl (ya_a:dbl)<-(xa_a:dbl)
    ab_a := io.print(ya_a);	# 339 IOprint_val (ab_a:int)<-(ya_a:dbl)
    mil.line("tan(dbl(0)).print();");	# 340 MILline ($619:void)<-($620:str)
    bb_a := calc.dbl(0);	# 341 CALCint2dbl (bb_a:dbl)<-($622:int)
    cb_a := mmath.tan(bb_a);	# 342 MATHunary_TANdbl (cb_a:dbl)<-(bb_a:dbl)
    db_a := io.print(cb_a);	# 343 IOprint_val (db_a:int)<-(cb_a:dbl)
    mil.line("tan(M_PI_4).print();");	# 344 MILline ($625:void)<-($626:str)
    eb_a := mmath.tan(M_PI_4);	# 345 MATHunary_TANdbl (eb_a:dbl)<-(M_PI_4:dbl)
    fb_a := io.print(eb_a);	# 346 IOprint_val (fb_a:int)<-(eb_a:dbl)
    mil.line("tan(M_PI_2).print();");	# 347 MILline ($629:void)<-($630:str)
    gb_a := mmath.tan(M_PI_2);	# 348 MATHunary_TANdbl (gb_a:dbl)<-(M_PI_2:dbl)
    hb_a := io.print(gb_a);	# 349 IOprint_val (hb_a:int)<-(gb_a:dbl)
    mil.line("tan(M_PI).print();");	# 350 MILline ($633:void)<-($634:str)
    ib_a := mmath.tan(M_PI);	# 351 MATHunary_TANdbl (ib_a:dbl)<-(M_PI:dbl)
    jb_a := io.print(ib_a);	# 352 IOprint_val (jb_a:int)<-(ib_a:dbl)
    mil.line("tan(3*M_PI_2).print();");	# 353 MILline ($637:void)<-($638:str)
    kb_a := calc.*(3,M_PI_2);	# 354 CALCbinaryMULintdbl (kb_a:dbl)<-($640:int)(M_PI_2:dbl)
    lb_a := mmath.tan(kb_a);	# 355 MATHunary_TANdbl (lb_a:dbl)<-(kb_a:dbl)
    mb_a := io.print(lb_a);	# 356 IOprint_val (mb_a:int)<-(lb_a:dbl)
    mil.line("asin(dbl(-1)).print();");	# 357 MILline ($643:void)<-($644:str)
    nb_a := calc.dbl(-1);	# 358 CALCint2dbl (nb_a:dbl)<-($646:int)
    ob_a := mmath.asin(nb_a);	# 359 MATHunary_ASINdbl (ob_a:dbl)<-(nb_a:dbl)
    pb_a := io.print(ob_a);	# 360 IOprint_val (pb_a:int)<-(ob_a:dbl)
    mil.line("asin(dbl(-0.5)).print();");	# 361 MILline ($649:void)<-($650:str)
    qb_a := calc.dbl(-0.5);	# 362 CALCflt2dbl (qb_a:dbl)<-($652:flt)
    rb_a := mmath.asin(qb_a);	# 363 MATHunary_ASINdbl (rb_a:dbl)<-(qb_a:dbl)
    sb_a := io.print(rb_a);	# 364 IOprint_val (sb_a:int)<-(rb_a:dbl)
    mil.line("asin(dbl(0)).print();");	# 365 MILline ($655:void)<-($656:str)
    tb_a := calc.dbl(0);	# 366 CALCint2dbl (tb_a:dbl)<-($658:int)
    ub_a := mmath.asin(tb_a);	# 367 MATHunary_ASINdbl (ub_a:dbl)<-(tb_a:dbl)
    vb_a := io.print(ub_a);	# 368 IOprint_val (vb_a:int)<-(ub_a:dbl)
    mil.line("asin(dbl(0.5)).print();");	# 369 MILline ($661:void)<-($662:str)
    wb_a := calc.dbl(0.5);	# 370 CALCflt2dbl (wb_a:dbl)<-($664:flt)
    xb_a := mmath.asin(wb_a);	# 371 MATHunary_ASINdbl (xb_a:dbl)<-(wb_a:dbl)
    yb_a := io.print(xb_a);	# 372 IOprint_val (yb_a:int)<-(xb_a:dbl)
    mil.line("asin(dbl(1)).print();");	# 373 MILline ($667:void)<-($668:str)
    ac_a := calc.dbl(1);	# 374 CALCint2dbl (ac_a:dbl)<-($670:int)
    bc_a := mmath.asin(ac_a);	# 375 MATHunary_ASINdbl (bc_a:dbl)<-(ac_a:dbl)
    cc_a := io.print(bc_a);	# 376 IOprint_val (cc_a:int)<-(bc_a:dbl)
    mil.line("acos(dbl(-1)).print();");	# 377 MILline ($673:void)<-($674:str)
    dc_a := calc.dbl(-1);	# 378 CALCint2dbl (dc_a:dbl)<-($646:int)
    ec_a := mmath.acos(dc_a);	# 379 MATHunary_ACOSdbl (ec_a:dbl)<-(dc_a:dbl)
    fc_a := io.print(ec_a);	# 380 IOprint_val (fc_a:int)<-(ec_a:dbl)
    mil.line("acos(dbl(-0.5)).print();");	# 381 MILline ($678:void)<-($679:str)
    gc_a := calc.dbl(-0.5);	# 382 CALCflt2dbl (gc_a:dbl)<-($652:flt)
    hc_a := mmath.acos(gc_a);	# 383 MATHunary_ACOSdbl (hc_a:dbl)<-(gc_a:dbl)
    ic_a := io.print(hc_a);	# 384 IOprint_val (ic_a:int)<-(hc_a:dbl)
    mil.line("acos(dbl(0)).print();");	# 385 MILline ($683:void)<-($684:str)
    jc_a := calc.dbl(0);	# 386 CALCint2dbl (jc_a:dbl)<-($658:int)
    kc_a := mmath.acos(jc_a);	# 387 MATHunary_ACOSdbl (kc_a:dbl)<-(jc_a:dbl)
    lc_a := io.print(kc_a);	# 388 IOprint_val (lc_a:int)<-(kc_a:dbl)
    mil.line("acos(dbl(0.5)).print();");	# 389 MILline ($688:void)<-($689:str)
    mc_a := calc.dbl(0.5);	# 390 CALCflt2dbl (mc_a:dbl)<-($664:flt)
    nc_a := mmath.acos(mc_a);	# 391 MATHunary_ACOSdbl (nc_a:dbl)<-(mc_a:dbl)
    oc_a := io.print(nc_a);	# 392 IOprint_val (oc_a:int)<-(nc_a:dbl)
    mil.line("acos(dbl(1)).print();");	# 393 MILline ($693:void)<-($694:str)
    pc_a := calc.dbl(1);	# 394 CALCint2dbl (pc_a:dbl)<-($670:int)
    qc_a := mmath.acos(pc_a);	# 395 MATHunary_ACOSdbl (qc_a:dbl)<-(pc_a:dbl)
    rc_a := io.print(qc_a);	# 396 IOprint_val (rc_a:int)<-(qc_a:dbl)
    mil.line("atan(dbl(-1)).print();");	# 397 MILline ($698:void)<-($699:str)
    sc_a := calc.dbl(-1);	# 398 CALCint2dbl (sc_a:dbl)<-($701:int)
    tc_a := mmath.atan(sc_a);	# 399 MATHunary_ATANdbl (tc_a:dbl)<-(sc_a:dbl)
    uc_a := io.print(tc_a);	# 400 IOprint_val (uc_a:int)<-(tc_a:dbl)
    mil.line("atan(dbl(-0.5)).print();");	# 401 MILline ($704:void)<-($705:str)
    vc_a := calc.dbl(-0.5);	# 402 CALCflt2dbl (vc_a:dbl)<-($707:flt)
    wc_a := mmath.atan(vc_a);	# 403 MATHunary_ATANdbl (wc_a:dbl)<-(vc_a:dbl)
    xc_a := io.print(wc_a);	# 404 IOprint_val (xc_a:int)<-(wc_a:dbl)
    mil.line("atan(dbl(0)).print();");	# 405 MILline ($710:void)<-($711:str)
    yc_a := calc.dbl(0);	# 406 CALCint2dbl (yc_a:dbl)<-($713:int)
    ad_a := mmath.atan(yc_a);	# 407 MATHunary_ATANdbl (ad_a:dbl)<-(yc_a:dbl)
    bd_a := io.print(ad_a);	# 408 IOprint_val (bd_a:int)<-(ad_a:dbl)
    mil.line("atan(dbl(0.5)).print();");	# 409 MILline ($716:void)<-($717:str)
    cd_a := calc.dbl(0.5);	# 410 CALCflt2dbl (cd_a:dbl)<-($719:flt)
    dd_a := mmath.atan(cd_a);	# 411 MATHunary_ATANdbl (dd_a:dbl)<-(cd_a:dbl)
    ed_a := io.print(dd_a);	# 412 IOprint_val (ed_a:int)<-(dd_a:dbl)
    mil.line("atan(dbl(1)).print();");	# 413 MILline ($722:void)<-($723:str)