ecmalisp.js

   1 var f34;
   2 var f33;
   3 var f32;
   4 var f31;
   5 var f30;
   6 var f29;
   7 var f28;
   8 var f27;
   9 var f26;
  10 var f25;
  11 var f24;
  12 var f23;
  13 var f22;
  14 var f21;
  15 var f20;
  16 var f19;
  17 var f18;
  18 var f17;
  19 var f16;
  20 var f15;
  21 var f14;
  22 var f13;
  23 var f12;
  24 var f11;
  25 var f10;
  26 var f9;
  27 var f8;
  28 var f7;
  29 var f5;
  30 var v12;
  31 var f4;
  32 var f3;
  33 var f2;
  34 var f1;
  35 var v3;
  36 var v2;
  37 var v1;
  38 (function(){
  39     (function(){
  40         return v1 = {};
  41     })();
  42     (function(){
  43         return v2 = (function(){
  44             var name = "NIL";
  45             if (typeof name != 'string')
  46                 throw 'The value ' + name + ' is not a type string.';
  47             return ({name: name});
  48         })();
  49     })();
  50     ((v1)["NIL"] = v2);
  51     (function(){
  52         return v3 = (function(){
  53             var name = "T";
  54             if (typeof name != 'string')
  55                 throw 'The value ' + name + ' is not a type string.';
  56             return ({name: name});
  57         })();
  58     })();
  59     ((v1)["T"] = v3);
  60     (function(){
  61         return f1 = (function(v4){
  62             ((v4)["fname"] = "NULL");
  63             return v4;
  64         })((function (v5){
  65             if (arguments.length < 1) throw 'too few arguments';
  66             if (arguments.length > 1) throw 'too many arguments';
  67             return (function(){
  68                 try {
  69                     return (function(){
  70                         return ((v5 === v2)?v3: v2);
  71                     })();
  72                 }
  73                 catch (cf){
  74                     if (cf.type == 'block' && cf.id == 1)
  75                         return cf.value;
  76                     else
  77                         throw cf;
  78                 }
  79             })();
  80
  81         }));
  82     })();
  83     (function(){
  84         return f2 = (function(v6){
  85             ((v6)["fname"] = "INTERNP");
  86             return v6;
  87         })((function (v7){
  88             if (arguments.length < 1) throw 'too few arguments';
  89             if (arguments.length > 1) throw 'too many arguments';
  90             return (function(){
  91                 try {
  92                     return (function(){
  93                         return (((v7) in (v1))?v3: v2);
  94                     })();
  95                 }
  96                 catch (cf){
  97                     if (cf.type == 'block' && cf.id == 2)
  98                         return cf.value;
  99                     else
 100                         throw cf;
 101                 }
 102             })();
 103
 104         }));
 105     })();
 106     (function(){
 107         return f3 = (function(v8){
 108             ((v8)["fname"] = "INTERN");
 109             return v8;
 110         })((function (v9){
 111             if (arguments.length < 1) throw 'too few arguments';
 112             if (arguments.length > 1) throw 'too many arguments';
 113             return (function(){
 114                 try {
 115                     return (function(){
 116                         return (f2(v9) !== v2 ? (function(){
 117                             var tmp = (v1)[v9];
 118                             return tmp == undefined? v2: tmp ;
 119                         })() : ((v1)[v9] = (function(){
 120                             var name = v9;
 121                             if (typeof name != 'string')
 122                                 throw 'The value ' + name + ' is not a type string.';
 123                             return ({name: name});
 124                         })()));
 125                     })();
 126                 }
 127                 catch (cf){
 128                     if (cf.type == 'block' && cf.id == 3)
 129                         return cf.value;
 130                     else
 131                         throw cf;
 132                 }
 133             })();
 134
 135         }));
 136     })();
 137     (function(){
 138         return f4 = (function(v10){
 139             ((v10)["fname"] = "FIND-SYMBOL");
 140             return v10;
 141         })((function (v11){
 142             if (arguments.length < 1) throw 'too few arguments';
 143             if (arguments.length > 1) throw 'too many arguments';
 144             return (function(){
 145                 try {
 146                     return (function(){
 147                         return (function(){
 148                             var tmp = (v1)[v11];
 149                             return tmp == undefined? v2: tmp ;
 150                         })();
 151                     })();
 152                 }
 153                 catch (cf){
 154                     if (cf.type == 'block' && cf.id == 4)
 155                         return cf.value;
 156                     else
 157                         throw cf;
 158                 }
 159             })();
 160
 161         }));
 162     })();
 163     (function(){
 164         return v12 = 0;
 165     })();
 166     (function(){
 167         return f5 = (function(v13){
 168             ((v13)["fname"] = "GENSYM");
 169             return v13;
 170         })((function (v14){
 171             if (arguments.length > 1) throw 'too many arguments';
 172             switch(arguments.length){
 173             case 0:
 174             v14="G";
 175             default: break;
 176             }
 177             return (function(){
 178                 try {
 179                     return (function(){
 180                         v12 = (function(){
 181                             var x = v12;
 182                             var y = 1;
 183                             if (typeof x != 'number')
 184                                 throw 'The value ' + x + ' is not a type number.';
 185                             if (typeof y != 'number')
 186                                 throw 'The value ' + y + ' is not a type number.';
 187                             return x+y;
 188                         })();
 189                         return (function(){
 190                             var name = (function(){
 191                                 var string1 = v14;
 192                                 var string2 = f6(v12);
 193                                 if (typeof string1 != 'string')
 194                                     throw 'The value ' + string1 + ' is not a type string.';
 195                                 if (typeof string2 != 'string')
 196                                     throw 'The value ' + string2 + ' is not a type string.';
 197                                 return string1.concat(string2);
 198                             })();
 199                             if (typeof name != 'string')
 200                                 throw 'The value ' + name + ' is not a type string.';
 201                             return ({name: name});
 202                         })();
 203                     })();
 204                 }
 205                 catch (cf){
 206                     if (cf.type == 'block' && cf.id == 5)
 207                         return cf.value;
 208                     else
 209                         throw cf;
 210                 }
 211             })();
 212
 213         }));
 214     })();
 215     (function(){
 216         return f7 = (function(v15){
 217             ((v15)["fname"] = "=");
 218             return v15;
 219         })((function (v16,v17){
 220             if (arguments.length < 2) throw 'too few arguments';
 221             if (arguments.length > 2) throw 'too many arguments';
 222             return (function(){
 223                 try {
 224                     return (function(){
 225                         return ((function(){
 226                             var x = v16;
 227                             var y = v17;
 228                             if (typeof x != 'number')
 229                                 throw 'The value ' + x + ' is not a type number.';
 230                             if (typeof y != 'number')
 231                                 throw 'The value ' + y + ' is not a type number.';
 232                             return x==y;
 233                         })()?v3: v2);
 234                     })();
 235                 }
 236                 catch (cf){
 237                     if (cf.type == 'block' && cf.id == 6)
 238                         return cf.value;
 239                     else
 240                         throw cf;
 241                 }
 242             })();
 243
 244         }));
 245     })();
 246     (function(){
 247         return f8 = (function(v18){
 248             ((v18)["fname"] = "+");
 249             return v18;
 250         })((function (v19,v20){
 251             if (arguments.length < 2) throw 'too few arguments';
 252             if (arguments.length > 2) throw 'too many arguments';
 253             return (function(){
 254                 try {
 255                     return (function(){
 256                         return (function(){
 257                             var x = v19;
 258                             var y = v20;
 259                             if (typeof x != 'number')
 260                                 throw 'The value ' + x + ' is not a type number.';
 261                             if (typeof y != 'number')
 262                                 throw 'The value ' + y + ' is not a type number.';
 263                             return x+y;
 264                         })();
 265                     })();
 266                 }
 267                 catch (cf){
 268                     if (cf.type == 'block' && cf.id == 7)
 269                         return cf.value;
 270                     else
 271                         throw cf;
 272                 }
 273             })();
 274
 275         }));
 276     })();
 277     (function(){
 278         return f9 = (function(v21){
 279             ((v21)["fname"] = "-");
 280             return v21;
 281         })((function (v22,v23){
 282             if (arguments.length < 2) throw 'too few arguments';
 283             if (arguments.length > 2) throw 'too many arguments';
 284             return (function(){
 285                 try {
 286                     return (function(){
 287                         return (function(){
 288                             var x = v22;
 289                             var y = v23;
 290                             if (typeof x != 'number')
 291                                 throw 'The value ' + x + ' is not a type number.';
 292                             if (typeof y != 'number')
 293                                 throw 'The value ' + y + ' is not a type number.';
 294                             return x-y;
 295                         })();
 296                     })();
 297                 }
 298                 catch (cf){
 299                     if (cf.type == 'block' && cf.id == 8)
 300                         return cf.value;
 301                     else
 302                         throw cf;
 303                 }
 304             })();
 305
 306         }));
 307     })();
 308     (function(){
 309         return f10 = (function(v24){
 310             ((v24)["fname"] = "*");
 311             return v24;
 312         })((function (v25,v26){
 313             if (arguments.length < 2) throw 'too few arguments';
 314             if (arguments.length > 2) throw 'too many arguments';
 315             return (function(){
 316                 try {
 317                     return (function(){
 318                         return (function(){
 319                             var x = v25;
 320                             var y = v26;
 321                             if (typeof x != 'number')
 322                                 throw 'The value ' + x + ' is not a type number.';
 323                             if (typeof y != 'number')
 324                                 throw 'The value ' + y + ' is not a type number.';
 325                             return x*y;
 326                         })();
 327                     })();
 328                 }
 329                 catch (cf){
 330                     if (cf.type == 'block' && cf.id == 9)
 331                         return cf.value;
 332                     else
 333                         throw cf;
 334                 }
 335             })();
 336
 337         }));
 338     })();
 339     (function(){
 340         return f11 = (function(v27){
 341             ((v27)["fname"] = "/");
 342             return v27;
 343         })((function (v28,v29){
 344             if (arguments.length < 2) throw 'too few arguments';
 345             if (arguments.length > 2) throw 'too many arguments';
 346             return (function(){
 347                 try {
 348                     return (function(){
 349                         return (function(){
 350                             var x = v28;
 351                             var y = v29;
 352                             if (typeof x != 'number')
 353                                 throw 'The value ' + x + ' is not a type number.';
 354                             if (typeof y != 'number')
 355                                 throw 'The value ' + y + ' is not a type number.';
 356                             return x/y;
 357                         })();
 358                     })();
 359                 }
 360                 catch (cf){
 361                     if (cf.type == 'block' && cf.id == 10)
 362                         return cf.value;
 363                     else
 364                         throw cf;
 365                 }
 366             })();
 367
 368         }));
 369     })();
 370     (function(){
 371         return f12 = (function(v30){
 372             ((v30)["fname"] = "1+");
 373             return v30;
 374         })((function (v31){
 375             if (arguments.length < 1) throw 'too few arguments';
 376             if (arguments.length > 1) throw 'too many arguments';
 377             return (function(){
 378                 try {
 379                     return (function(){
 380                         return (function(){
 381                             var x = v31;
 382                             var y = 1;
 383                             if (typeof x != 'number')
 384                                 throw 'The value ' + x + ' is not a type number.';
 385                             if (typeof y != 'number')
 386                                 throw 'The value ' + y + ' is not a type number.';
 387                             return x+y;
 388                         })();
 389                     })();
 390                 }
 391                 catch (cf){
 392                     if (cf.type == 'block' && cf.id == 11)
 393                         return cf.value;
 394                     else
 395                         throw cf;
 396                 }
 397             })();
 398
 399         }));
 400     })();
 401     (function(){
 402         return f13 = (function(v32){
 403             ((v32)["fname"] = "1-");
 404             return v32;
 405         })((function (v33){
 406             if (arguments.length < 1) throw 'too few arguments';
 407             if (arguments.length > 1) throw 'too many arguments';
 408             return (function(){
 409                 try {
 410                     return (function(){
 411                         return (function(){
 412                             var x = v33;
 413                             var y = 1;
 414                             if (typeof x != 'number')
 415                                 throw 'The value ' + x + ' is not a type number.';
 416                             if (typeof y != 'number')
 417                                 throw 'The value ' + y + ' is not a type number.';
 418                             return x-y;
 419                         })();
 420                     })();
 421                 }
 422                 catch (cf){
 423                     if (cf.type == 'block' && cf.id == 12)
 424                         return cf.value;
 425                     else
 426                         throw cf;
 427                 }
 428             })();
 429
 430         }));
 431     })();
 432     (function(){
 433         return f14 = (function(v34){
 434             ((v34)["fname"] = "ZEROP");
 435             return v34;
 436         })((function (v35){
 437             if (arguments.length < 1) throw 'too few arguments';
 438             if (arguments.length > 1) throw 'too many arguments';
 439             return (function(){
 440                 try {
 441                     return (function(){
 442                         return ((function(){
 443                             var x = v35;
 444                             var y = 0;
 445                             if (typeof x != 'number')
 446                                 throw 'The value ' + x + ' is not a type number.';
 447                             if (typeof y != 'number')
 448                                 throw 'The value ' + y + ' is not a type number.';
 449                             return x==y;
 450                         })()?v3: v2);
 451                     })();
 452                 }
 453                 catch (cf){
 454                     if (cf.type == 'block' && cf.id == 13)
 455                         return cf.value;
 456                     else
 457                         throw cf;
 458                 }
 459             })();
 460
 461         }));
 462     })();
 463     (function(){
 464         return f15 = (function(v36){
 465             ((v36)["fname"] = "TRUNCATE");
 466             return v36;
 467         })((function (v37,v38){
 468             if (arguments.length < 2) throw 'too few arguments';
 469             if (arguments.length > 2) throw 'too many arguments';
 470             return (function(){
 471                 try {
 472                     return (function(){
 473                         return (function(){
 474                             var x = (function(){
 475                                 var x = v37;
 476                                 var y = v38;
 477                                 if (typeof x != 'number')
 478                                     throw 'The value ' + x + ' is not a type number.';
 479                                 if (typeof y != 'number')
 480                                     throw 'The value ' + y + ' is not a type number.';
 481                                 return x/y;
 482                             })();
 483                             if (typeof x != 'number')
 484                                 throw 'The value ' + x + ' is not a type number.';
 485                             return Math.floor(x);
 486                         })();
 487                     })();
 488                 }
 489                 catch (cf){
 490                     if (cf.type == 'block' && cf.id == 14)
 491                         return cf.value;
 492                     else
 493                         throw cf;
 494                 }
 495             })();
 496
 497         }));
 498     })();
 499     (function(){
 500         return f16 = (function(v39){
 501             ((v39)["fname"] = "EQL");
 502             return v39;
 503         })((function (v40,v41){
 504             if (arguments.length < 2) throw 'too few arguments';
 505             if (arguments.length > 2) throw 'too many arguments';
 506             return (function(){
 507                 try {
 508                     return (function(){
 509                         return ((v40 === v41)?v3: v2);
 510                     })();
 511                 }
 512                 catch (cf){
 513                     if (cf.type == 'block' && cf.id == 15)
 514                         return cf.value;
 515                     else
 516                         throw cf;
 517                 }
 518             })();
 519
 520         }));
 521     })();
 522     (function(){
 523         return f17 = (function(v42){
 524             ((v42)["fname"] = "NOT");
 525             return v42;
 526         })((function (v43){
 527             if (arguments.length < 1) throw 'too few arguments';
 528             if (arguments.length > 1) throw 'too many arguments';
 529             return (function(){
 530                 try {
 531                     return (function(){
 532                         return (v43 !== v2 ? v2 : v3);
 533                     })();
 534                 }
 535                 catch (cf){
 536                     if (cf.type == 'block' && cf.id == 16)
 537                         return cf.value;
 538                     else
 539                         throw cf;
 540                 }
 541             })();
 542
 543         }));
 544     })();
 545     (function(){
 546         return f18 = (function(v44){
 547             ((v44)["fname"] = "CONS");
 548             return v44;
 549         })((function (v45,v46){
 550             if (arguments.length < 2) throw 'too few arguments';
 551             if (arguments.length > 2) throw 'too many arguments';
 552             return (function(){
 553                 try {
 554                     return (function(){
 555                         return ({car: v45, cdr: v46});
 556                     })();
 557                 }
 558                 catch (cf){
 559                     if (cf.type == 'block' && cf.id == 17)
 560                         return cf.value;
 561                     else
 562                         throw cf;
 563                 }
 564             })();
 565
 566         }));
 567     })();
 568     (function(){
 569         return f19 = (function(v47){
 570             ((v47)["fname"] = "CONSP");
 571             return v47;
 572         })((function (v48){
 573             if (arguments.length < 1) throw 'too few arguments';
 574             if (arguments.length > 1) throw 'too many arguments';
 575             return (function(){
 576                 try {
 577                     return (function(){
 578                         return ((function(){
 579                             var tmp = v48;
 580                             return (typeof tmp == 'object' && 'car' in tmp);
 581                         })()?v3: v2);
 582                     })();
 583                 }
 584                 catch (cf){
 585                     if (cf.type == 'block' && cf.id == 18)
 586                         return cf.value;
 587                     else
 588                         throw cf;
 589                 }
 590             })();
 591
 592         }));
 593     })();
 594     (function(){
 595         return f20 = (function(v49){
 596             ((v49)["fname"] = "CAR");
 597             return v49;
 598         })((function (v50){
 599             if (arguments.length < 1) throw 'too few arguments';
 600             if (arguments.length > 1) throw 'too many arguments';
 601             return (function(){
 602                 try {
 603                     return (function(){
 604                         return (function(){
 605                             var tmp = v50;
 606                             return tmp === v2? v2: tmp.car;
 607                         })();
 608                     })();
 609                 }
 610                 catch (cf){
 611                     if (cf.type == 'block' && cf.id == 19)
 612                         return cf.value;
 613                     else
 614                         throw cf;
 615                 }
 616             })();
 617
 618         }));
 619     })();
 620     (function(){
 621         return f21 = (function(v51){
 622             ((v51)["fname"] = "CDR");
 623             return v51;
 624         })((function (v52){
 625             if (arguments.length < 1) throw 'too few arguments';
 626             if (arguments.length > 1) throw 'too many arguments';
 627             return (function(){
 628                 try {
 629                     return (function(){
 630                         return (function(){
 631                             var tmp = v52;
 632                             return tmp === v2? v2: tmp.cdr;
 633                         })();
 634                     })();
 635                 }
 636                 catch (cf){
 637                     if (cf.type == 'block' && cf.id == 20)
 638                         return cf.value;
 639                     else
 640                         throw cf;
 641                 }
 642             })();
 643
 644         }));
 645     })();
 646     (function(){
 647         return f22 = (function(v53){
 648             ((v53)["fname"] = "CAAR");
 649             return v53;
 650         })((function (v54){
 651             if (arguments.length < 1) throw 'too few arguments';
 652             if (arguments.length > 1) throw 'too many arguments';
 653             return (function(){
 654                 try {
 655                     return (function(){
 656                         return (function(){
 657                             var tmp = (function(){
 658                                 var tmp = v54;
 659                                 return tmp === v2? v2: tmp.car;
 660                             })();
 661                             return tmp === v2? v2: tmp.car;
 662                         })();
 663                     })();
 664                 }
 665                 catch (cf){
 666                     if (cf.type == 'block' && cf.id == 21)
 667                         return cf.value;
 668                     else
 669                         throw cf;
 670                 }
 671             })();
 672
 673         }));
 674     })();
 675     (function(){
 676         return f23 = (function(v55){
 677             ((v55)["fname"] = "CADR");
 678             return v55;
 679         })((function (v56){
 680             if (arguments.length < 1) throw 'too few arguments';
 681             if (arguments.length > 1) throw 'too many arguments';
 682             return (function(){
 683                 try {
 684                     return (function(){
 685                         return (function(){
 686                             var tmp = (function(){
 687                                 var tmp = v56;
 688                                 return tmp === v2? v2: tmp.cdr;
 689                             })();
 690                             return tmp === v2? v2: tmp.car;
 691                         })();
 692                     })();
 693                 }
 694                 catch (cf){
 695                     if (cf.type == 'block' && cf.id == 22)
 696                         return cf.value;
 697                     else
 698                         throw cf;
 699                 }
 700             })();
 701
 702         }));
 703     })();
 704     (function(){
 705         return f24 = (function(v57){
 706             ((v57)["fname"] = "CDAR");
 707             return v57;
 708         })((function (v58){
 709             if (arguments.length < 1) throw 'too few arguments';
 710             if (arguments.length > 1) throw 'too many arguments';
 711             return (function(){
 712                 try {
 713                     return (function(){
 714                         return (function(){
 715                             var tmp = (function(){
 716                                 var tmp = v58;
 717                                 return tmp === v2? v2: tmp.car;
 718                             })();
 719                             return tmp === v2? v2: tmp.cdr;
 720                         })();
 721                     })();
 722                 }
 723                 catch (cf){
 724                     if (cf.type == 'block' && cf.id == 23)
 725                         return cf.value;
 726                     else
 727                         throw cf;
 728                 }
 729             })();
 730
 731         }));
 732     })();
 733     (function(){
 734         return f25 = (function(v59){
 735             ((v59)["fname"] = "CDDR");
 736             return v59;
 737         })((function (v60){
 738             if (arguments.length < 1) throw 'too few arguments';
 739             if (arguments.length > 1) throw 'too many arguments';
 740             return (function(){
 741                 try {
 742                     return (function(){
 743                         return (function(){
 744                             var tmp = (function(){
 745                                 var tmp = v60;
 746                                 return tmp === v2? v2: tmp.cdr;
 747                             })();
 748                             return tmp === v2? v2: tmp.cdr;
 749                         })();
 750                     })();
 751                 }
 752                 catch (cf){
 753                     if (cf.type == 'block' && cf.id == 24)
 754                         return cf.value;
 755                     else
 756                         throw cf;
 757                 }
 758             })();
 759
 760         }));
 761     })();
 762     (function(){
 763         return f26 = (function(v61){
 764             ((v61)["fname"] = "CADDR");
 765             return v61;
 766         })((function (v62){
 767             if (arguments.length < 1) throw 'too few arguments';
 768             if (arguments.length > 1) throw 'too many arguments';
 769             return (function(){
 770                 try {
 771                     return (function(){
 772                         return (function(){
 773                             var tmp = (function(){
 774                                 var tmp = (function(){
 775                                     var tmp = v62;
 776                                     return tmp === v2? v2: tmp.cdr;
 777                                 })();
 778                                 return tmp === v2? v2: tmp.cdr;
 779                             })();
 780                             return tmp === v2? v2: tmp.car;
 781                         })();
 782                     })();
 783                 }
 784                 catch (cf){
 785                     if (cf.type == 'block' && cf.id == 25)
 786                         return cf.value;
 787                     else
 788                         throw cf;
 789                 }
 790             })();
 791
 792         }));
 793     })();
 794     (function(){
 795         return f27 = (function(v63){
 796             ((v63)["fname"] = "CDDDR");
 797             return v63;
 798         })((function (v64){
 799             if (arguments.length < 1) throw 'too few arguments';
 800             if (arguments.length > 1) throw 'too many arguments';
 801             return (function(){
 802                 try {
 803                     return (function(){
 804                         return (function(){
 805                             var tmp = (function(){
 806                                 var tmp = (function(){
 807                                     var tmp = v64;
 808                                     return tmp === v2? v2: tmp.cdr;
 809                                 })();
 810                                 return tmp === v2? v2: tmp.cdr;
 811                             })();
 812                             return tmp === v2? v2: tmp.cdr;
 813                         })();
 814                     })();
 815                 }
 816                 catch (cf){
 817                     if (cf.type == 'block' && cf.id == 26)
 818                         return cf.value;
 819                     else
 820                         throw cf;
 821                 }
 822             })();
 823
 824         }));
 825     })();
 826     (function(){
 827         return f28 = (function(v65){
 828             ((v65)["fname"] = "CADDDR");
 829             return v65;
 830         })((function (v66){
 831             if (arguments.length < 1) throw 'too few arguments';
 832             if (arguments.length > 1) throw 'too many arguments';
 833             return (function(){
 834                 try {
 835                     return (function(){
 836                         return (function(){
 837                             var tmp = (function(){
 838                                 var tmp = (function(){
 839                                     var tmp = (function(){
 840                                         var tmp = v66;
 841                                         return tmp === v2? v2: tmp.cdr;
 842                                     })();
 843                                     return tmp === v2? v2: tmp.cdr;
 844                                 })();
 845                                 return tmp === v2? v2: tmp.cdr;
 846                             })();
 847                             return tmp === v2? v2: tmp.car;
 848                         })();
 849                     })();
 850                 }
 851                 catch (cf){
 852                     if (cf.type == 'block' && cf.id == 27)
 853                         return cf.value;
 854                     else
 855                         throw cf;
 856                 }
 857             })();
 858
 859         }));
 860     })();
 861     (function(){
 862         return f29 = (function(v67){
 863             ((v67)["fname"] = "FIRST");
 864             return v67;
 865         })((function (v68){
 866             if (arguments.length < 1) throw 'too few arguments';
 867             if (arguments.length > 1) throw 'too many arguments';
 868             return (function(){
 869                 try {
 870                     return (function(){
 871                         return (function(){
 872                             var tmp = v68;
 873                             return tmp === v2? v2: tmp.car;
 874                         })();
 875                     })();
 876                 }
 877                 catch (cf){
 878                     if (cf.type == 'block' && cf.id == 28)
 879                         return cf.value;
 880                     else
 881                         throw cf;
 882                 }
 883             })();
 884
 885         }));
 886     })();
 887     (function(){
 888         return f30 = (function(v69){
 889             ((v69)["fname"] = "SECOND");
 890             return v69;
 891         })((function (v70){
 892             if (arguments.length < 1) throw 'too few arguments';
 893             if (arguments.length > 1) throw 'too many arguments';
 894             return (function(){
 895                 try {
 896                     return (function(){
 897                         return f23(v70);
 898                     })();
 899                 }
 900                 catch (cf){
 901                     if (cf.type == 'block' && cf.id == 29)
 902                         return cf.value;
 903                     else
 904                         throw cf;
 905                 }
 906             })();
 907
 908         }));
 909     })();
 910     (function(){
 911         return f31 = (function(v71){
 912             ((v71)["fname"] = "THIRD");
 913             return v71;
 914         })((function (v72){
 915             if (arguments.length < 1) throw 'too few arguments';
 916             if (arguments.length > 1) throw 'too many arguments';
 917             return (function(){
 918                 try {
 919                     return (function(){
 920                         return f26(v72);
 921                     })();
 922                 }
 923                 catch (cf){
 924                     if (cf.type == 'block' && cf.id == 30)
 925                         return cf.value;
 926                     else
 927                         throw cf;
 928                 }
 929             })();
 930
 931         }));
 932     })();
 933     (function(){
 934         return f32 = (function(v73){
 935             ((v73)["fname"] = "FOURTH");
 936             return v73;
 937         })((function (v74){
 938             if (arguments.length < 1) throw 'too few arguments';
 939             if (arguments.length > 1) throw 'too many arguments';
 940             return (function(){
 941                 try {
 942                     return (function(){
 943                         return f28(v74);
 944                     })();
 945                 }
 946                 catch (cf){
 947                     if (cf.type == 'block' && cf.id == 31)
 948                         return cf.value;
 949                     else
 950                         throw cf;
 951                 }
 952             })();
 953
 954         }));
 955     })();
 956     (function(){
 957         return f33 = (function(v75){
 958             ((v75)["fname"] = "LIST");
 959             return v75;
 960         })((function (){
 961             var v76= v2;
 962             for (var i = arguments.length-1; i>=0; i--)
 963                 v76 = {car: arguments[i], cdr:
 964             v76};
 965             return (function(){
 966                 try {
 967                     return (function(){
 968                         return v76;
 969                     })();
 970                 }
 971                 catch (cf){
 972                     if (cf.type == 'block' && cf.id == 32)
 973                         return cf.value;
 974                     else
 975                         throw cf;
 976                 }
 977             })();
 978
 979         }));
 980     })();
 981     (function(){
 982         return f34 = (function(v77){
 983             ((v77)["fname"] = "ATOM");
 984             return v77;
 985         })((function (v78){
 986             if (arguments.length < 1) throw 'too few arguments';
 987             if (arguments.length > 1) throw 'too many arguments';
 988             return (function(){
 989                 try {
 990                     return (function(){
 991                         return f17(((function(){
 992                             var tmp = v78;
 993                             return (typeof tmp == 'object' && 'car' in tmp);
 994                         })()?v3: v2));
 995                     })();
 996                 }
 997                 catch (cf){
 998                     if (cf.type == 'block' && cf.id == 33)
 999                         return cf.value;
1000                     else
1001                         throw cf;
1002                 }
1003             })();
1004
1005         }));
1006     })();
1007     return ;
1008 })();
1009 var f35;
1010 (function(){
1011     return f35 = (function(v79){
1012         ((v79)["fname"] = "ENSURE-LIST");
1013         return v79;
1014     })((function (v80){
1015         if (arguments.length < 1) throw 'too few arguments';
1016         if (arguments.length > 1) throw 'too many arguments';
1017         return (function(){
1018             try {
1019                 return (function(){
1020                     return (f36(v80) !== v2 ? v80 : f33(v80));
1021                 })();
1022             }
1023             catch (cf){
1024                 if (cf.type == 'block' && cf.id == 34)
1025                     return cf.value;
1026                 else
1027                     throw cf;
1028             }
1029         })();
1030
1031     }));
1032 })();
1033 var f37;
1034 (function(){
1035     return f37 = (function(v81){
1036         ((v81)["fname"] = "!REDUCE");
1037         return v81;
1038     })((function (v82,v83,v84){
1039         if (arguments.length < 3) throw 'too few arguments';
1040         if (arguments.length > 3) throw 'too many arguments';
1041         return (function(){
1042             try {
1043                 return (function(){
1044                     return (f1(v83) !== v2 ? v84 : f37(v82, (function(){
1045                         var tmp = v83;
1046                         return tmp === v2? v2: tmp.cdr;
1047                     })(), (v82)(v84, (function(){
1048                         var tmp = v83;
1049                         return tmp === v2? v2: tmp.car;
1050                     })())));
1051                 })();
1052             }
1053             catch (cf){
1054                 if (cf.type == 'block' && cf.id == 35)
1055                     return cf.value;
1056                 else
1057                     throw cf;
1058             }
1059         })();
1060
1061     }));
1062 })();
1063 var l35 = f3("STRING=");
1064 var f68;
1065 var l34 = f3("ASSOC");
1066 var f67;
1067 var l33 = f3("EVERY");
1068 var f66;
1069 var l32 = f3("SOME");
1070 var f65;
1071 var l31 = f3("PARSE-INTEGER");
1072 var f64;
1073 var l30 = f3("SUBSEQ");
1074 var f63;
1075 var l29 = f3("DIGIT-CHAR-P");
1076 var f62;
1077 var l28 = f3("REMOVE-IF-NOT");
1078 var f61;
1079 var l27 = f3("REMOVE-IF");
1080 var f60;
1081 var l26 = f3("REMOVE");
1082 var f59;
1083 var l25 = f3("MEMBER");
1084 var f58;
1085 var l24 = f3("BUTLAST");
1086 var f57;
1087 var l23 = f3("LAST");
1088 var f56;
1089 var l22 = f3("NTH");
1090 var f55;
1091 var l21 = f3("NTHCDR");
1092 var f54;
1093 var l20 = f3("LISTP");
1094 var f36;
1095 var l19 = f3("MINUSP");
1096 var f53;
1097 var l18 = f3("PLUSP");
1098 var f52;
1099 var l17 = f3("INTEGERP");
1100 var f51;
1101 var l16 = f3("CHAR=");
1102 var f50;
1103 var l15 = f3("CHAR-CODE");
1104 var f49;
1105 var l14 = f3("CODE-CHAR");
1106 var f48;
1107 var l13 = f3("COPY-LIST");
1108 var f47;
1109 var l12 = f3("IDENTITY");
1110 var f46;
1111 var l11 = f3("MAPCAR");
1112 var l10 = f3("NIL");
1113 var f45;
1114 var l9 = f3("CONCAT-TWO");
1115 var f44;
1116 var l8 = f3("LENGTH");
1117 var f43;
1118 var l7 = f3("LIST-LENGTH");
1119 var f42;
1120 var l6 = f3("REVERSE");
1121 var l5 = f3("NIL");
1122 var f41;
1123 var l4 = f3("REVAPPEND");
1124 var f40;
1125 var l3 = f3("APPEND");
1126 var l2 = f3("NIL");
1127 var f39;
1128 var l1 = f3("APPEND-TWO");
1129 var f38;
1130 (function(){
1131     (function(){
1132         (function(){
1133             return f38 = (function(v85){
1134                 ((v85)["fname"] = "APPEND-TWO");
1135                 return v85;
1136             })((function (v86,v87){
1137                 if (arguments.length < 2) throw 'too few arguments';
1138                 if (arguments.length > 2) throw 'too many arguments';
1139                 return (function(){
1140                     try {
1141                         return (function(){
1142                             return (f1(v86) !== v2 ? v87 : ({car: (function(){
1143                                 var tmp = v86;
1144                                 return tmp === v2? v2: tmp.car;
1145                             })(), cdr: f39((function(){
1146                                 var tmp = v86;
1147                                 return tmp === v2? v2: tmp.cdr;
1148                             })(), v87)}));
1149                         })();
1150                     }
1151                     catch (cf){
1152                         if (cf.type == 'block' && cf.id == 36)
1153                             return cf.value;
1154                         else
1155                             throw cf;
1156                     }
1157                 })();
1158
1159             }));
1160         })();
1161         return l1;
1162     })();
1163     (function(){
1164         (function(){
1165             return f39 = (function(v88){
1166                 ((v88)["fname"] = "APPEND");
1167                 return v88;
1168             })((function (){
1169                 var v89= v2;
1170                 for (var i = arguments.length-1; i>=0; i--)
1171                     v89 = {car: arguments[i], cdr:
1172                 v89};
1173                 return (function(){
1174                     try {
1175                         return (function(){
1176                             return f37(f38, v89, l2);
1177                         })();
1178                     }
1179                     catch (cf){
1180                         if (cf.type == 'block' && cf.id == 37)
1181                             return cf.value;
1182                         else
1183                             throw cf;
1184                     }
1185                 })();
1186
1187             }));
1188         })();
1189         return l3;
1190     })();
1191     (function(){
1192         (function(){
1193             return f40 = (function(v90){
1194                 ((v90)["fname"] = "REVAPPEND");
1195                 return v90;
1196             })((function (v91,v92){
1197                 if (arguments.length < 2) throw 'too few arguments';
1198                 if (arguments.length > 2) throw 'too many arguments';
1199                 return (function(){
1200                     try {
1201                         return (function(){
1202                             (function(){
1203                                 try {
1204                                     return (function(){
1205                                         return (function(){
1206                                             while(v91 !== v2){
1207                                                 v92 = ({car: (function(){
1208                                                     var tmp = v91;
1209                                                     return tmp === v2? v2: tmp.car;
1210                                                 })(), cdr: v92});
1211                                                 v91 = (function(){
1212                                                     var tmp = v91;
1213                                                     return tmp === v2? v2: tmp.cdr;
1214                                                 })();
1215                                             }return v2;
1216                                         })();
1217                                     })();
1218                                 }
1219                                 catch (cf){
1220                                     if (cf.type == 'block' && cf.id == 39)
1221                                         return cf.value;
1222                                     else
1223                                         throw cf;
1224                                 }
1225                             })();
1226                             return v92;
1227                         })();
1228                     }
1229                     catch (cf){
1230                         if (cf.type == 'block' && cf.id == 38)
1231                             return cf.value;
1232                         else
1233                             throw cf;
1234                     }
1235                 })();
1236
1237             }));
1238         })();
1239         return l4;
1240     })();
1241     (function(){
1242         (function(){
1243             return f41 = (function(v93){
1244                 ((v93)["fname"] = "REVERSE");
1245                 return v93;
1246             })((function (v94){
1247                 if (arguments.length < 1) throw 'too few arguments';
1248                 if (arguments.length > 1) throw 'too many arguments';
1249                 return (function(){
1250                     try {
1251                         return (function(){
1252                             return f40(v94, l5);
1253                         })();
1254                     }
1255                     catch (cf){
1256                         if (cf.type == 'block' && cf.id == 40)
1257                             return cf.value;
1258                         else
1259                             throw cf;
1260                     }
1261                 })();
1262
1263             }));
1264         })();
1265         return l6;
1266     })();
1267     (function(){
1268         (function(){
1269             return f42 = (function(v95){
1270                 ((v95)["fname"] = "LIST-LENGTH");
1271                 return v95;
1272             })((function (v96){
1273                 if (arguments.length < 1) throw 'too few arguments';
1274                 if (arguments.length > 1) throw 'too many arguments';
1275                 return (function(){
1276                     try {
1277                         return (function(){
1278                             return (function(v97){
1279                                 (function(){
1280                                     try {
1281                                         return (function(){
1282                                             return (function(){
1283                                                 while(f17(f1(v96)) !== v2){
1284                                                     v97 = (function(){
1285                                                         var x = v97;
1286                                                         var y = 1;
1287                                                         if (typeof x != 'number')
1288                                                             throw 'The value ' + x + ' is not a type number.';
1289                                                         if (typeof y != 'number')
1290                                                             throw 'The value ' + y + ' is not a type number.';
1291                                                         return x+y;
1292                                                     })();
1293                                                     v96 = (function(){
1294                                                         var tmp = v96;
1295                                                         return tmp === v2? v2: tmp.cdr;
1296                                                     })();
1297                                                 }return v2;
1298                                             })();
1299                                         })();
1300                                     }
1301                                     catch (cf){
1302                                         if (cf.type == 'block' && cf.id == 42)
1303                                             return cf.value;
1304                                         else
1305                                             throw cf;
1306                                     }
1307                                 })();
1308                                 return v97;
1309                             })(0);
1310                         })();
1311                     }
1312                     catch (cf){
1313                         if (cf.type == 'block' && cf.id == 41)
1314                             return cf.value;
1315                         else
1316                             throw cf;
1317                     }
1318                 })();
1319
1320             }));
1321         })();
1322         return l7;
1323     })();
1324     (function(){
1325         (function(){
1326             return f43 = (function(v98){
1327                 ((v98)["fname"] = "LENGTH");
1328                 return v98;
1329             })((function (v99){
1330                 if (arguments.length < 1) throw 'too few arguments';
1331                 if (arguments.length > 1) throw 'too many arguments';
1332                 return (function(){
1333                     try {
1334                         return (function(){
1335                             return (((typeof(v99) == "string")?v3: v2) !== v2 ? (function(){
1336                                 var x = v99;
1337                                 if (typeof x != 'string')
1338                                     throw 'The value ' + x + ' is not a type string.';
1339                                 return x.length;
1340                             })() : f42(v99));
1341                         })();
1342                     }
1343                     catch (cf){
1344                         if (cf.type == 'block' && cf.id == 43)
1345                             return cf.value;
1346                         else
1347                             throw cf;
1348                     }
1349                 })();
1350
1351             }));
1352         })();
1353         return l8;
1354     })();
1355     (function(){
1356         (function(){
1357             return f44 = (function(v100){
1358                 ((v100)["fname"] = "CONCAT-TWO");
1359                 return v100;
1360             })((function (v101,v102){
1361                 if (arguments.length < 2) throw 'too few arguments';
1362                 if (arguments.length > 2) throw 'too many arguments';
1363                 return (function(){
1364                     try {
1365                         return (function(){
1366                             return (function(){
1367                                 var string1 = v101;
1368                                 var string2 = v102;
1369                                 if (typeof string1 != 'string')
1370                                     throw 'The value ' + string1 + ' is not a type string.';
1371                                 if (typeof string2 != 'string')
1372                                     throw 'The value ' + string2 + ' is not a type string.';
1373                                 return string1.concat(string2);
1374                             })();
1375                         })();
1376                     }
1377                     catch (cf){
1378                         if (cf.type == 'block' && cf.id == 44)
1379                             return cf.value;
1380                         else
1381                             throw cf;
1382                     }
1383                 })();
1384
1385             }));
1386         })();
1387         return l9;
1388     })();
1389     (function(){
1390         (function(){
1391             return f45 = (function(v103){
1392                 ((v103)["fname"] = "MAPCAR");
1393                 return v103;
1394             })((function (v104,v105){
1395                 if (arguments.length < 2) throw 'too few arguments';
1396                 if (arguments.length > 2) throw 'too many arguments';
1397                 return (function(){
1398                     try {
1399                         return (function(){
1400                             return (f1(v105) !== v2 ? l10 : ({car: (v104)((function(){
1401                                 var tmp = v105;
1402                                 return tmp === v2? v2: tmp.car;
1403                             })()), cdr: f45(v104, (function(){
1404                                 var tmp = v105;
1405                                 return tmp === v2? v2: tmp.cdr;
1406                             })())}));
1407                         })();
1408                     }
1409                     catch (cf){
1410                         if (cf.type == 'block' && cf.id == 45)
1411                             return cf.value;
1412                         else
1413                             throw cf;
1414                     }
1415                 })();
1416
1417             }));
1418         })();
1419         return l11;
1420     })();
1421     (function(){
1422         (function(){
1423             return f46 = (function(v106){
1424                 ((v106)["fname"] = "IDENTITY");
1425                 return v106;
1426             })((function (v107){
1427                 if (arguments.length < 1) throw 'too few arguments';
1428                 if (arguments.length > 1) throw 'too many arguments';
1429                 return (function(){
1430                     try {
1431                         return (function(){
1432                             return v107;
1433                         })();
1434                     }
1435                     catch (cf){
1436                         if (cf.type == 'block' && cf.id == 46)
1437                             return cf.value;
1438                         else
1439                             throw cf;
1440                     }
1441                 })();
1442
1443             }));
1444         })();
1445         return l12;
1446     })();
1447     (function(){
1448         (function(){
1449             return f47 = (function(v108){
1450                 ((v108)["fname"] = "COPY-LIST");
1451                 return v108;
1452             })((function (v109){
1453                 if (arguments.length < 1) throw 'too few arguments';
1454                 if (arguments.length > 1) throw 'too many arguments';
1455                 return (function(){
1456                     try {
1457                         return (function(){
1458                             return f45(f46, v109);
1459                         })();
1460                     }
1461                     catch (cf){
1462                         if (cf.type == 'block' && cf.id == 47)
1463                             return cf.value;
1464                         else
1465                             throw cf;
1466                     }
1467                 })();
1468
1469             }));
1470         })();
1471         return l13;
1472     })();
1473     (function(){
1474         (function(){
1475             return f48 = (function(v110){
1476                 ((v110)["fname"] = "CODE-CHAR");
1477                 return v110;
1478             })((function (v111){
1479                 if (arguments.length < 1) throw 'too few arguments';
1480                 if (arguments.length > 1) throw 'too many arguments';
1481                 return (function(){
1482                     try {
1483                         return (function(){
1484                             return v111;
1485                         })();
1486                     }
1487                     catch (cf){
1488                         if (cf.type == 'block' && cf.id == 48)
1489                             return cf.value;
1490                         else
1491                             throw cf;
1492                     }
1493                 })();
1494
1495             }));
1496         })();
1497         return l14;
1498     })();
1499     (function(){
1500         (function(){
1501             return f49 = (function(v112){
1502                 ((v112)["fname"] = "CHAR-CODE");
1503                 return v112;
1504             })((function (v113){
1505                 if (arguments.length < 1) throw 'too few arguments';
1506                 if (arguments.length > 1) throw 'too many arguments';
1507                 return (function(){
1508                     try {
1509                         return (function(){
1510                             return v113;
1511                         })();
1512                     }
1513                     catch (cf){
1514                         if (cf.type == 'block' && cf.id == 49)
1515                             return cf.value;
1516                         else
1517                             throw cf;
1518                     }
1519                 })();
1520
1521             }));
1522         })();
1523         return l15;
1524     })();
1525     (function(){
1526         (function(){
1527             return f50 = (function(v114){
1528                 ((v114)["fname"] = "CHAR=");
1529                 return v114;
1530             })((function (v115,v116){
1531                 if (arguments.length < 2) throw 'too few arguments';
1532                 if (arguments.length > 2) throw 'too many arguments';
1533                 return (function(){
1534                     try {
1535                         return (function(){
1536                             return ((function(){
1537                                 var x = v115;
1538                                 var y = v116;
1539                                 if (typeof x != 'number')
1540                                     throw 'The value ' + x + ' is not a type number.';
1541                                 if (typeof y != 'number')
1542                                     throw 'The value ' + y + ' is not a type number.';
1543                                 return x==y;
1544                             })()?v3: v2);
1545                         })();
1546                     }
1547                     catch (cf){
1548                         if (cf.type == 'block' && cf.id == 50)
1549                             return cf.value;
1550                         else
1551                             throw cf;
1552                     }
1553                 })();
1554
1555             }));
1556         })();
1557         return l16;
1558     })();
1559     (function(){
1560         (function(){
1561             return f51 = (function(v117){
1562                 ((v117)["fname"] = "INTEGERP");
1563                 return v117;
1564             })((function (v118){
1565                 if (arguments.length < 1) throw 'too few arguments';
1566                 if (arguments.length > 1) throw 'too many arguments';
1567                 return (function(){
1568                     try {
1569                         return (function(){
1570                             return (((typeof (v118) == "number")?v3: v2) !== v2 ? ((function(){
1571                                 var x = (function(){
1572                                     var x = v118;
1573                                     if (typeof x != 'number')
1574                                         throw 'The value ' + x + ' is not a type number.';
1575                                     return Math.floor(x);
1576                                 })();
1577                                 var y = v118;
1578                                 if (typeof x != 'number')
1579                                     throw 'The value ' + x + ' is not a type number.';
1580                                 if (typeof y != 'number')
1581                                     throw 'The value ' + y + ' is not a type number.';
1582                                 return x==y;
1583                             })()?v3: v2) : v2);
1584                         })();
1585                     }
1586                     catch (cf){
1587                         if (cf.type == 'block' && cf.id == 51)
1588                             return cf.value;
1589                         else
1590                             throw cf;
1591                     }
1592                 })();
1593
1594             }));
1595         })();
1596         return l17;
1597     })();
1598     (function(){
1599         (function(){
1600             return f52 = (function(v119){
1601                 ((v119)["fname"] = "PLUSP");
1602                 return v119;
1603             })((function (v120){
1604                 if (arguments.length < 1) throw 'too few arguments';
1605                 if (arguments.length > 1) throw 'too many arguments';
1606                 return (function(){
1607                     try {
1608                         return (function(){
1609                             return ((function(){
1610                                 var x = 0;
1611                                 var y = v120;
1612                                 if (typeof x != 'number')
1613                                     throw 'The value ' + x + ' is not a type number.';
1614                                 if (typeof y != 'number')
1615                                     throw 'The value ' + y + ' is not a type number.';
1616                                 return x<y;
1617                             })()?v3: v2);
1618                         })();
1619                     }
1620                     catch (cf){
1621                         if (cf.type == 'block' && cf.id == 52)
1622                             return cf.value;
1623                         else
1624                             throw cf;
1625                     }
1626                 })();
1627
1628             }));
1629         })();
1630         return l18;
1631     })();
1632     (function(){
1633         (function(){
1634             return f53 = (function(v121){
1635                 ((v121)["fname"] = "MINUSP");
1636                 return v121;
1637             })((function (v122){
1638                 if (arguments.length < 1) throw 'too few arguments';
1639                 if (arguments.length > 1) throw 'too many arguments';
1640                 return (function(){
1641                     try {
1642                         return (function(){
1643                             return ((function(){
1644                                 var x = v122;
1645                                 var y = 0;
1646                                 if (typeof x != 'number')
1647                                     throw 'The value ' + x + ' is not a type number.';
1648                                 if (typeof y != 'number')
1649                                     throw 'The value ' + y + ' is not a type number.';
1650                                 return x<y;
1651                             })()?v3: v2);
1652                         })();
1653                     }
1654                     catch (cf){
1655                         if (cf.type == 'block' && cf.id == 53)
1656                             return cf.value;
1657                         else
1658                             throw cf;
1659                     }
1660                 })();
1661
1662             }));
1663         })();
1664         return l19;
1665     })();
1666     (function(){
1667         (function(){
1668             return f36 = (function(v123){
1669                 ((v123)["fname"] = "LISTP");
1670                 return v123;
1671             })((function (v124){
1672                 if (arguments.length < 1) throw 'too few arguments';
1673                 if (arguments.length > 1) throw 'too many arguments';
1674                 return (function(){
1675                     try {
1676                         return (function(){
1677                             return (function(v125){
1678                                 return (v125 !== v2 ? v125 : f1(v124));
1679                             })(((function(){
1680                                 var tmp = v124;
1681                                 return (typeof tmp == 'object' && 'car' in tmp);
1682                             })()?v3: v2));
1683                         })();
1684                     }
1685                     catch (cf){
1686                         if (cf.type == 'block' && cf.id == 54)
1687                             return cf.value;
1688                         else
1689                             throw cf;
1690                     }
1691                 })();
1692
1693             }));
1694         })();
1695         return l20;
1696     })();
1697     (function(){
1698         (function(){
1699             return f54 = (function(v126){
1700                 ((v126)["fname"] = "NTHCDR");
1701                 return v126;
1702             })((function (v127,v128){
1703                 if (arguments.length < 2) throw 'too few arguments';
1704                 if (arguments.length > 2) throw 'too many arguments';
1705                 return (function(){
1706                     try {
1707                         return (function(){
1708                             (function(){
1709                                 try {
1710                                     return (function(){
1711                                         return (function(){
1712                                             while((f52(v127) !== v2 ? v128 : v2) !== v2){
1713                                                 v127 = f13(v127);
1714                                                 v128 = (function(){
1715                                                     var tmp = v128;
1716                                                     return tmp === v2? v2: tmp.cdr;
1717                                                 })();
1718                                             }return v2;
1719                                         })();
1720                                     })();
1721                                 }
1722                                 catch (cf){
1723                                     if (cf.type == 'block' && cf.id == 56)
1724                                         return cf.value;
1725                                     else
1726                                         throw cf;
1727                                 }
1728                             })();
1729                             return v128;
1730                         })();
1731                     }
1732                     catch (cf){
1733                         if (cf.type == 'block' && cf.id == 55)
1734                             return cf.value;
1735                         else
1736                             throw cf;
1737                     }
1738                 })();
1739
1740             }));
1741         })();
1742         return l21;
1743     })();
1744     (function(){
1745         (function(){
1746             return f55 = (function(v129){
1747                 ((v129)["fname"] = "NTH");
1748                 return v129;
1749             })((function (v130,v131){
1750                 if (arguments.length < 2) throw 'too few arguments';
1751                 if (arguments.length > 2) throw 'too many arguments';
1752                 return (function(){
1753                     try {
1754                         return (function(){
1755                             return (function(){
1756                                 var tmp = f54(v130, v131);
1757                                 return tmp === v2? v2: tmp.car;
1758                             })();
1759                         })();
1760                     }
1761                     catch (cf){
1762                         if (cf.type == 'block' && cf.id == 57)
1763                             return cf.value;
1764                         else
1765                             throw cf;
1766                     }
1767                 })();
1768
1769             }));
1770         })();
1771         return l22;
1772     })();
1773     (function(){
1774         (function(){
1775             return f56 = (function(v132){
1776                 ((v132)["fname"] = "LAST");
1777                 return v132;
1778             })((function (v133){
1779                 if (arguments.length < 1) throw 'too few arguments';
1780                 if (arguments.length > 1) throw 'too many arguments';
1781                 return (function(){
1782                     try {
1783                         return (function(){
1784                             (function(){
1785                                 try {
1786                                     return (function(){
1787                                         return (function(){
1788                                             while(((function(){
1789                                                 var tmp = (function(){
1790                                                     var tmp = v133;
1791                                                     return tmp === v2? v2: tmp.cdr;
1792                                                 })();
1793                                                 return (typeof tmp == 'object' && 'car' in tmp);
1794                                             })()?v3: v2) !== v2){
1795                                                 v133 = (function(){
1796                                                     var tmp = v133;
1797                                                     return tmp === v2? v2: tmp.cdr;
1798                                                 })();
1799                                             }return v2;
1800                                         })();
1801                                     })();
1802                                 }
1803                                 catch (cf){
1804                                     if (cf.type == 'block' && cf.id == 59)
1805                                         return cf.value;
1806                                     else
1807                                         throw cf;
1808                                 }
1809                             })();
1810                             return v133;
1811                         })();
1812                     }
1813                     catch (cf){
1814                         if (cf.type == 'block' && cf.id == 58)
1815                             return cf.value;
1816                         else
1817                             throw cf;
1818                     }
1819                 })();
1820
1821             }));
1822         })();
1823         return l23;
1824     })();
1825     (function(){
1826         (function(){
1827             return f57 = (function(v134){
1828                 ((v134)["fname"] = "BUTLAST");
1829                 return v134;
1830             })((function (v135){
1831                 if (arguments.length < 1) throw 'too few arguments';
1832                 if (arguments.length > 1) throw 'too many arguments';
1833                 return (function(){
1834                     try {
1835                         return (function(){
1836                             return (((function(){
1837                                 var tmp = (function(){
1838                                     var tmp = v135;
1839                                     return tmp === v2? v2: tmp.cdr;
1840                                 })();
1841                                 return (typeof tmp == 'object' && 'car' in tmp);
1842                             })()?v3: v2) !== v2 ? ({car: (function(){
1843                                 var tmp = v135;
1844                                 return tmp === v2? v2: tmp.car;
1845                             })(), cdr: f57((function(){
1846                                 var tmp = v135;
1847                                 return tmp === v2? v2: tmp.cdr;
1848                             })())}) : v2);
1849                         })();
1850                     }
1851                     catch (cf){
1852                         if (cf.type == 'block' && cf.id == 60)
1853                             return cf.value;
1854                         else
1855                             throw cf;
1856                     }
1857                 })();
1858
1859             }));
1860         })();
1861         return l24;
1862     })();
1863     (function(){
1864         (function(){
1865             return f58 = (function(v136){
1866                 ((v136)["fname"] = "MEMBER");
1867                 return v136;
1868             })((function (v137,v138){
1869                 if (arguments.length < 2) throw 'too few arguments';
1870                 if (arguments.length > 2) throw 'too many arguments';
1871                 return (function(){
1872                     try {
1873                         return (function(){
1874                             return (function(){
1875                                 try {
1876                                     return (function(){
1877                                         return (function(){
1878                                             while(v138 !== v2){
1879                                                 (f16(v137, (function(){
1880                                                     var tmp = v138;
1881                                                     return tmp === v2? v2: tmp.car;
1882                                                 })()) !== v2 ? (function(){
1883                                                     return (function(){
1884                                                         throw ({type: 'block', id: 62, value: v138, message: 'Return from unknown block NIL.'})
1885                                                     })();
1886                                                 })() : v2);
1887                                                 v138 = (function(){
1888                                                     var tmp = v138;
1889                                                     return tmp === v2? v2: tmp.cdr;
1890                                                 })();
1891                                             }return v2;
1892                                         })();
1893                                     })();
1894                                 }
1895                                 catch (cf){
1896                                     if (cf.type == 'block' && cf.id == 62)
1897                                         return cf.value;
1898                                     else
1899                                         throw cf;
1900                                 }
1901                             })();
1902                         })();
1903                     }
1904                     catch (cf){
1905                         if (cf.type == 'block' && cf.id == 61)
1906                             return cf.value;
1907                         else
1908                             throw cf;
1909                     }
1910                 })();
1911
1912             }));
1913         })();
1914         return l25;
1915     })();
1916     (function(){
1917         (function(){
1918             return f59 = (function(v139){
1919                 ((v139)["fname"] = "REMOVE");
1920                 return v139;
1921             })((function (v140,v141){
1922                 if (arguments.length < 2) throw 'too few arguments';
1923                 if (arguments.length > 2) throw 'too many arguments';
1924                 return (function(){
1925                     try {
1926                         return (function(){
1927                             return (f1(v141) !== v2 ? (function(){
1928                                 return v2;
1929                             })() : (f16(v140, (function(){
1930                                 var tmp = v141;
1931                                 return tmp === v2? v2: tmp.car;
1932                             })()) !== v2 ? (function(){
1933                                 return f59(v140, (function(){
1934                                     var tmp = v141;
1935                                     return tmp === v2? v2: tmp.cdr;
1936                                 })());
1937                             })() : (function(){
1938                                 return ({car: (function(){
1939                                     var tmp = v141;
1940                                     return tmp === v2? v2: tmp.car;
1941                                 })(), cdr: f59(v140, (function(){
1942                                     var tmp = v141;
1943                                     return tmp === v2? v2: tmp.cdr;
1944                                 })())});
1945                             })()));
1946                         })();
1947                     }
1948                     catch (cf){
1949                         if (cf.type == 'block' && cf.id == 63)
1950                             return cf.value;
1951                         else
1952                             throw cf;
1953                     }
1954                 })();
1955
1956             }));
1957         })();
1958         return l26;
1959     })();
1960     (function(){
1961         (function(){
1962             return f60 = (function(v142){
1963                 ((v142)["fname"] = "REMOVE-IF");
1964                 return v142;
1965             })((function (v143,v144){
1966                 if (arguments.length < 2) throw 'too few arguments';
1967                 if (arguments.length > 2) throw 'too many arguments';
1968                 return (function(){
1969                     try {
1970                         return (function(){
1971                             return (f1(v144) !== v2 ? (function(){
1972                                 return v2;
1973                             })() : ((v143)((function(){
1974                                 var tmp = v144;
1975                                 return tmp === v2? v2: tmp.car;
1976                             })()) !== v2 ? (function(){
1977                                 return f60(v143, (function(){
1978                                     var tmp = v144;
1979                                     return tmp === v2? v2: tmp.cdr;
1980                                 })());
1981                             })() : (function(){
1982                                 return ({car: (function(){
1983                                     var tmp = v144;
1984                                     return tmp === v2? v2: tmp.car;
1985                                 })(), cdr: f60(v143, (function(){
1986                                     var tmp = v144;
1987                                     return tmp === v2? v2: tmp.cdr;
1988                                 })())});
1989                             })()));
1990                         })();
1991                     }
1992                     catch (cf){
1993                         if (cf.type == 'block' && cf.id == 64)
1994                             return cf.value;
1995                         else
1996                             throw cf;
1997                     }
1998                 })();
1999
2000             }));
2001         })();
2002         return l27;
2003     })();
2004     (function(){
2005         (function(){
2006             return f61 = (function(v145){
2007                 ((v145)["fname"] = "REMOVE-IF-NOT");
2008                 return v145;
2009             })((function (v146,v147){
2010                 if (arguments.length < 2) throw 'too few arguments';
2011                 if (arguments.length > 2) throw 'too many arguments';
2012                 return (function(){
2013                     try {
2014                         return (function(){
2015                             return (f1(v147) !== v2 ? (function(){
2016                                 return v2;
2017                             })() : ((v146)((function(){
2018                                 var tmp = v147;
2019                                 return tmp === v2? v2: tmp.car;
2020                             })()) !== v2 ? (function(){
2021                                 return ({car: (function(){
2022                                     var tmp = v147;
2023                                     return tmp === v2? v2: tmp.car;
2024                                 })(), cdr: f61(v146, (function(){
2025                                     var tmp = v147;
2026                                     return tmp === v2? v2: tmp.cdr;
2027                                 })())});
2028                             })() : (function(){
2029                                 return f61(v146, (function(){
2030                                     var tmp = v147;
2031                                     return tmp === v2? v2: tmp.cdr;
2032                                 })());
2033                             })()));
2034                         })();
2035                     }
2036                     catch (cf){
2037                         if (cf.type == 'block' && cf.id == 65)
2038                             return cf.value;
2039                         else
2040                             throw cf;
2041                     }
2042                 })();
2043
2044             }));
2045         })();
2046         return l28;
2047     })();
2048     (function(){
2049         (function(){
2050             return f62 = (function(v148){
2051                 ((v148)["fname"] = "DIGIT-CHAR-P");
2052                 return v148;
2053             })((function (v149){
2054                 if (arguments.length < 1) throw 'too few arguments';
2055                 if (arguments.length > 1) throw 'too many arguments';
2056                 return (function(){
2057                     try {
2058                         return (function(){
2059                             return ((((function(){
2060                                 var x = 48;
2061                                 var y = v149;
2062                                 if (typeof x != 'number')
2063                                     throw 'The value ' + x + ' is not a type number.';
2064                                 if (typeof y != 'number')
2065                                     throw 'The value ' + y + ' is not a type number.';
2066                                 return x<=y;
2067                             })()?v3: v2) !== v2 ? ((function(){
2068                                 var x = v149;
2069                                 var y = 57;
2070                                 if (typeof x != 'number')
2071                                     throw 'The value ' + x + ' is not a type number.';
2072                                 if (typeof y != 'number')
2073                                     throw 'The value ' + y + ' is not a type number.';
2074                                 return x<=y;
2075                             })()?v3: v2) : v2) !== v2 ? (function(){
2076                                 var x = v149;
2077                                 var y = 48;
2078                                 if (typeof x != 'number')
2079                                     throw 'The value ' + x + ' is not a type number.';
2080                                 if (typeof y != 'number')
2081                                     throw 'The value ' + y + ' is not a type number.';
2082                                 return x-y;
2083                             })() : v2);
2084                         })();
2085                     }
2086                     catch (cf){
2087                         if (cf.type == 'block' && cf.id == 66)
2088                             return cf.value;
2089                         else
2090                             throw cf;
2091                     }
2092                 })();
2093
2094             }));
2095         })();
2096         return l29;
2097     })();
2098     (function(){
2099         (function(){
2100             return f63 = (function(v150){
2101                 ((v150)["fname"] = "SUBSEQ");
2102                 return v150;
2103             })((function (v151,v152,v153){
2104                 if (arguments.length < 2) throw 'too few arguments';
2105                 if (arguments.length > 3) throw 'too many arguments';
2106                 switch(arguments.length){
2107                 case 2:
2108                 v153=v2;
2109                 default: break;
2110                 }
2111                 return (function(){
2112                     try {
2113                         return (function(){
2114                             return (((typeof(v151) == "string")?v3: v2) !== v2 ? (function(){
2115                                 return (v153 !== v2 ? (function(){
2116                                     var str = v151;
2117                                     var a = v152;
2118                                     var b;
2119                                     b = v153;
2120                                     return str.slice(a,b);
2121                                 })() : (function(){
2122                                     var str = v151;
2123                                     var a = v152;
2124                                     var b;
2125                                     return str.slice(a,b);
2126                                 })());
2127                             })() : (function(){
2128                                 return (function(){
2129                                     throw "Unsupported argument.";
2130                                 })();
2131                             })());
2132                         })();
2133                     }
2134                     catch (cf){
2135                         if (cf.type == 'block' && cf.id == 67)
2136                             return cf.value;
2137                         else
2138                             throw cf;
2139                     }
2140                 })();
2141
2142             }));
2143         })();
2144         return l30;
2145     })();
2146     (function(){
2147         (function(){
2148             return f64 = (function(v154){
2149                 ((v154)["fname"] = "PARSE-INTEGER");
2150                 return v154;
2151             })((function (v155){
2152                 if (arguments.length < 1) throw 'too few arguments';
2153                 if (arguments.length > 1) throw 'too many arguments';
2154                 return (function(){
2155                     try {
2156                         return (function(){
2157                             return (function(v156,v157,v158){
2158                                 (function(){
2159                                     try {
2160                                         return (function(){
2161                                             return (function(){
2162                                                 while(((function(){
2163                                                     var x = v157;
2164                                                     var y = v158;
2165                                                     if (typeof x != 'number')
2166                                                         throw 'The value ' + x + ' is not a type number.';
2167                                                     if (typeof y != 'number')
2168                                                         throw 'The value ' + y + ' is not a type number.';
2169                                                     return x<y;
2170                                                 })()?v3: v2) !== v2){
2171                                                     v156 = (function(){
2172                                                         var x = (function(){
2173                                                             var x = v156;
2174                                                             var y = 10;
2175                                                             if (typeof x != 'number')
2176                                                                 throw 'The value ' + x + ' is not a type number.';
2177                                                             if (typeof y != 'number')
2178                                                                 throw 'The value ' + y + ' is not a type number.';
2179                                                             return x*y;
2180                                                         })();
2181                                                         var y = f62((function(){
2182                                                             var string = v155;
2183                                                             var index = v157;
2184                                                             if (typeof string != 'string')
2185                                                                 throw 'The value ' + string + ' is not a type string.';
2186                                                             if (typeof index != 'number')
2187                                                                 throw 'The value ' + index + ' is not a type number.';
2188                                                             return string.charCodeAt(index);
2189                                                         })());
2190                                                         if (typeof x != 'number')
2191                                                             throw 'The value ' + x + ' is not a type number.';
2192                                                         if (typeof y != 'number')
2193                                                             throw 'The value ' + y + ' is not a type number.';
2194                                                         return x+y;
2195                                                     })();
2196                                                     v157 = (function(){
2197                                                         var x = v157;
2198                                                         var y = 1;
2199                                                         if (typeof x != 'number')
2200                                                             throw 'The value ' + x + ' is not a type number.';
2201                                                         if (typeof y != 'number')
2202                                                             throw 'The value ' + y + ' is not a type number.';
2203                                                         return x+y;
2204                                                     })();
2205                                                 }return v2;
2206                                             })();
2207                                         })();
2208                                     }
2209                                     catch (cf){
2210                                         if (cf.type == 'block' && cf.id == 69)
2211                                             return cf.value;
2212                                         else
2213                                             throw cf;
2214                                     }
2215                                 })();
2216                                 return v156;
2217                             })(0,0,f43(v155));
2218                         })();
2219                     }
2220                     catch (cf){
2221                         if (cf.type == 'block' && cf.id == 68)
2222                             return cf.value;
2223                         else
2224                             throw cf;
2225                     }
2226                 })();
2227
2228             }));
2229         })();
2230         return l31;
2231     })();
2232     (function(){
2233         (function(){
2234             return f65 = (function(v159){
2235                 ((v159)["fname"] = "SOME");
2236                 return v159;
2237             })((function (v160,v161){
2238                 if (arguments.length < 2) throw 'too few arguments';
2239                 if (arguments.length > 2) throw 'too many arguments';
2240                 return (function(){
2241                     try {
2242                         return (function(){
2243                             return (((typeof(v161) == "string")?v3: v2) !== v2 ? (function(){
2244                                 return (function(v162,v163){
2245                                     (function(){
2246                                         try {
2247                                             return (function(){
2248                                                 return (function(){
2249                                                     while(((function(){
2250                                                         var x = v162;
2251                                                         var y = v163;
2252                                                         if (typeof x != 'number')
2253                                                             throw 'The value ' + x + ' is not a type number.';
2254                                                         if (typeof y != 'number')
2255                                                             throw 'The value ' + y + ' is not a type number.';
2256                                                         return x<y;
2257                                                     })()?v3: v2) !== v2){
2258                                                         ((v160)((function(){
2259                                                             var string = v161;
2260                                                             var index = v162;
2261                                                             if (typeof string != 'string')
2262                                                                 throw 'The value ' + string + ' is not a type string.';
2263                                                             if (typeof index != 'number')
2264                                                                 throw 'The value ' + index + ' is not a type number.';
2265                                                             return string.charCodeAt(index);
2266                                                         })()) !== v2 ? (function(){
2267                                                             return (function(){
2268                                                                 throw ({type: 'block', id: 70, value: v3, message: 'Return from unknown block SOME.'})
2269                                                             })();
2270                                                         })() : v2);
2271                                                         v162 = (function(){
2272                                                             var x = v162;
2273                                                             var y = 1;
2274                                                             if (typeof x != 'number')
2275                                                                 throw 'The value ' + x + ' is not a type number.';
2276                                                             if (typeof y != 'number')
2277                                                                 throw 'The value ' + y + ' is not a type number.';
2278                                                             return x+y;
2279                                                         })();
2280                                                     }return v2;
2281                                                 })();
2282                                             })();
2283                                         }
2284                                         catch (cf){
2285                                             if (cf.type == 'block' && cf.id == 71)
2286                                                 return cf.value;
2287                                             else
2288                                                 throw cf;
2289                                         }
2290                                     })();
2291                                     return v2;
2292                                 })(0,f43(v161));
2293                             })() : (f36(v161) !== v2 ? (function(){
2294                                 return (function(){
2295                                     try {
2296                                         return (function(){
2297                                             return (function(v164,v165){
2298                                                 (function(){
2299                                                     while(v164 !== v2){
2300                                                         v165 = (function(){
2301                                                             var tmp = v164;
2302                                                             return tmp === v2? v2: tmp.car;
2303                                                         })();
2304                                                         (function(){
2305                                                             ((v160)(v165) !== v2 ? (function(){
2306                                                                 return (function(){
2307                                                                     throw ({type: 'block', id: 72, value: v3, message: 'Return from unknown block NIL.'})
2308                                                                 })();
2309                                                             })() : v2);
2310                                                             return v2;
2311                                                         })();
2312                                                         v164 = (function(){
2313                                                             var tmp = v164;
2314                                                             return tmp === v2? v2: tmp.cdr;
2315                                                         })();
2316                                                     }return v2;
2317                                                 })();
2318                                                 return v2;
2319                                             })(v161,v2);
2320                                         })();
2321                                     }
2322                                     catch (cf){
2323                                         if (cf.type == 'block' && cf.id == 72)
2324                                             return cf.value;
2325                                         else
2326                                             throw cf;
2327                                     }
2328                                 })();
2329                             })() : (function(){
2330                                 return (function(){
2331                                     throw "Unknown sequence.";
2332                                 })();
2333                             })()));
2334                         })();
2335                     }
2336                     catch (cf){
2337                         if (cf.type == 'block' && cf.id == 70)
2338                             return cf.value;
2339                         else
2340                             throw cf;
2341                     }
2342                 })();
2343
2344             }));
2345         })();
2346         return l32;
2347     })();
2348     (function(){
2349         (function(){
2350             return f66 = (function(v166){
2351                 ((v166)["fname"] = "EVERY");
2352                 return v166;
2353             })((function (v167,v168){
2354                 if (arguments.length < 2) throw 'too few arguments';
2355                 if (arguments.length > 2) throw 'too many arguments';
2356                 return (function(){
2357                     try {
2358                         return (function(){
2359                             return (((typeof(v168) == "string")?v3: v2) !== v2 ? (function(){
2360                                 return (function(v169,v170){
2361                                     (function(){
2362                                         try {
2363                                             return (function(){
2364                                                 return (function(){
2365                                                     while(((function(){
2366                                                         var x = v169;
2367                                                         var y = v170;
2368                                                         if (typeof x != 'number')
2369                                                             throw 'The value ' + x + ' is not a type number.';
2370                                                         if (typeof y != 'number')
2371                                                             throw 'The value ' + y + ' is not a type number.';
2372                                                         return x<y;
2373                                                     })()?v3: v2) !== v2){
2374                                                         ((v167)((function(){
2375                                                             var string = v168;
2376                                                             var index = v169;
2377                                                             if (typeof string != 'string')
2378                                                                 throw 'The value ' + string + ' is not a type string.';
2379                                                             if (typeof index != 'number')
2380                                                                 throw 'The value ' + index + ' is not a type number.';
2381                                                             return string.charCodeAt(index);
2382                                                         })()) !== v2 ? v2 : (function(){
2383                                                             return (function(){
2384                                                                 throw ({type: 'block', id: 73, value: v2, message: 'Return from unknown block EVERY.'})
2385                                                             })();
2386                                                         })());
2387                                                         v169 = (function(){
2388                                                             var x = v169;
2389                                                             var y = 1;
2390                                                             if (typeof x != 'number')
2391                                                                 throw 'The value ' + x + ' is not a type number.';
2392                                                             if (typeof y != 'number')
2393                                                                 throw 'The value ' + y + ' is not a type number.';
2394                                                             return x+y;
2395                                                         })();
2396                                                     }return v2;
2397                                                 })();
2398                                             })();
2399                                         }
2400                                         catch (cf){
2401                                             if (cf.type == 'block' && cf.id == 74)
2402                                                 return cf.value;
2403                                             else
2404                                                 throw cf;
2405                                         }
2406                                     })();
2407                                     return v3;
2408                                 })(0,f43(v168));
2409                             })() : (f36(v168) !== v2 ? (function(){
2410                                 return (function(){
2411                                     try {
2412                                         return (function(){
2413                                             return (function(v171,v172){
2414                                                 (function(){
2415                                                     while(v171 !== v2){
2416                                                         v172 = (function(){
2417                                                             var tmp = v171;
2418                                                             return tmp === v2? v2: tmp.car;
2419                                                         })();
2420                                                         (function(){
2421                                                             ((v167)(v172) !== v2 ? v2 : (function(){
2422                                                                 return (function(){
2423                                                                     throw ({type: 'block', id: 75, value: v2, message: 'Return from unknown block NIL.'})
2424                                                                 })();
2425                                                             })());
2426                                                             return v2;
2427                                                         })();
2428                                                         v171 = (function(){
2429                                                             var tmp = v171;
2430                                                             return tmp === v2? v2: tmp.cdr;
2431                                                         })();
2432                                                     }return v2;
2433                                                 })();
2434                                                 return v3;
2435                                             })(v168,v2);
2436                                         })();
2437                                     }
2438                                     catch (cf){
2439                                         if (cf.type == 'block' && cf.id == 75)
2440                                             return cf.value;
2441                                         else
2442                                             throw cf;
2443                                     }
2444                                 })();
2445                             })() : (function(){
2446                                 return (function(){
2447                                     throw "Unknown sequence.";
2448                                 })();
2449                             })()));
2450                         })();
2451                     }
2452                     catch (cf){
2453                         if (cf.type == 'block' && cf.id == 73)
2454                             return cf.value;
2455                         else
2456                             throw cf;
2457                     }
2458                 })();
2459
2460             }));
2461         })();
2462         return l33;
2463     })();
2464     (function(){
2465         (function(){
2466             return f67 = (function(v173){
2467                 ((v173)["fname"] = "ASSOC");
2468                 return v173;
2469             })((function (v174,v175){
2470                 if (arguments.length < 2) throw 'too few arguments';
2471                 if (arguments.length > 2) throw 'too many arguments';
2472                 return (function(){
2473                     try {
2474                         return (function(){
2475                             (function(){
2476                                 try {
2477                                     return (function(){
2478                                         return (function(){
2479                                             while(v175 !== v2){
2480                                                 (f16(v174, f22(v175)) !== v2 ? (function(){
2481                                                     throw ({type: 'block', id: 77, value: v2, message: 'Return from unknown block NIL.'})
2482                                                 })() : v175 = (function(){
2483                                                     var tmp = v175;
2484                                                     return tmp === v2? v2: tmp.cdr;
2485                                                 })());
2486                                             }return v2;
2487                                         })();
2488                                     })();
2489                                 }
2490                                 catch (cf){
2491                                     if (cf.type == 'block' && cf.id == 77)
2492                                         return cf.value;
2493                                     else
2494                                         throw cf;
2495                                 }
2496                             })();
2497                             return (function(){
2498                                 var tmp = v175;
2499                                 return tmp === v2? v2: tmp.car;
2500                             })();
2501                         })();
2502                     }
2503                     catch (cf){
2504                         if (cf.type == 'block' && cf.id == 76)
2505                             return cf.value;
2506                         else
2507                             throw cf;
2508                     }
2509                 })();
2510
2511             }));
2512         })();
2513         return l34;
2514     })();
2515     return (function(){
2516         (function(){
2517             return f68 = (function(v176){
2518                 ((v176)["fname"] = "STRING=");
2519                 return v176;
2520             })((function (v177,v178){
2521                 if (arguments.length < 2) throw 'too few arguments';
2522                 if (arguments.length > 2) throw 'too many arguments';
2523                 return (function(){
2524                     try {
2525                         return (function(){
2526                             return ((v177 == v178)?v3: v2);
2527                         })();
2528                     }
2529                     catch (cf){
2530                         if (cf.type == 'block' && cf.id == 78)
2531                             return cf.value;
2532                         else
2533                             throw cf;
2534                     }
2535                 })();
2536
2537             }));
2538         })();
2539         return l35;
2540     })();
2541 })();
2542 var l36 = f3("*NEWLINE*");
2543 var v179;
2544 (function(){
2545     (function(){
2546         return v179 = (function(){
2547             var x = f48(10);
2548             if (typeof x != 'number')
2549                 throw 'The value ' + x + ' is not a type number.';
2550             return String.fromCharCode(x);
2551         })();
2552     })();
2553     return l36;
2554 })();
2555 var l37 = f3("CONCAT");
2556 var f69;
2557 (function(){
2558     (function(){
2559         return f69 = (function(v180){
2560             ((v180)["fname"] = "CONCAT");
2561             return v180;
2562         })((function (){
2563             var v181= v2;
2564             for (var i = arguments.length-1; i>=0; i--)
2565                 v181 = {car: arguments[i], cdr:
2566             v181};
2567             return (function(){
2568                 try {
2569                     return (function(){
2570                         return f37(f44, v181, "");
2571                     })();
2572                 }
2573                 catch (cf){
2574                     if (cf.type == 'block' && cf.id == 79)
2575                         return cf.value;
2576                     else
2577                         throw cf;
2578                 }
2579             })();
2580
2581         }));
2582     })();
2583     return l37;
2584 })();
2585 var l38 = f3("JOIN");
2586 var f70;
2587 (function(){
2588     (function(){
2589         return f70 = (function(v182){
2590             ((v182)["fname"] = "JOIN");
2591             return v182;
2592         })((function (v183,v184){
2593             if (arguments.length < 1) throw 'too few arguments';
2594             if (arguments.length > 2) throw 'too many arguments';
2595             switch(arguments.length){
2596             case 1:
2597             v184="";
2598             default: break;
2599             }
2600             return (function(){
2601                 try {
2602                     return (function(){
2603                         return (f1(v183) !== v2 ? (function(){
2604                             return "";
2605                         })() : (f1((function(){
2606                             var tmp = v183;
2607                             return tmp === v2? v2: tmp.cdr;
2608                         })()) !== v2 ? (function(){
2609                             return (function(){
2610                                 var tmp = v183;
2611                                 return tmp === v2? v2: tmp.car;
2612                             })();
2613                         })() : (function(){
2614                             return f69((function(){
2615                                 var tmp = v183;
2616                                 return tmp === v2? v2: tmp.car;
2617                             })(), v184, f70((function(){
2618                                 var tmp = v183;
2619                                 return tmp === v2? v2: tmp.cdr;
2620                             })(), v184));
2621                         })()));
2622                     })();
2623                 }
2624                 catch (cf){
2625                     if (cf.type == 'block' && cf.id == 80)
2626                         return cf.value;
2627                     else
2628                         throw cf;
2629                 }
2630             })();
2631
2632         }));
2633     })();
2634     return l38;
2635 })();
2636 var l39 = f3("JOIN-TRAILING");
2637 var f71;
2638 (function(){
2639     (function(){
2640         return f71 = (function(v185){
2641             ((v185)["fname"] = "JOIN-TRAILING");
2642             return v185;
2643         })((function (v186,v187){
2644             if (arguments.length < 1) throw 'too few arguments';
2645             if (arguments.length > 2) throw 'too many arguments';
2646             switch(arguments.length){
2647             case 1:
2648             v187="";
2649             default: break;
2650             }
2651             return (function(){
2652                 try {
2653                     return (function(){
2654                         return (f1(v186) !== v2 ? "" : f69((function(){
2655                             var tmp = v186;
2656                             return tmp === v2? v2: tmp.car;
2657                         })(), v187, f71((function(){
2658                             var tmp = v186;
2659                             return tmp === v2? v2: tmp.cdr;
2660                         })(), v187)));
2661                     })();
2662                 }
2663                 catch (cf){
2664                     if (cf.type == 'block' && cf.id == 81)
2665                         return cf.value;
2666                     else
2667                         throw cf;
2668                 }
2669             })();
2670
2671         }));
2672     })();
2673     return l39;
2674 })();
2675 var l40 = f3("INDENT");
2676 var f72;
2677 (function(){
2678     (function(){
2679         return f72 = (function(v188){
2680             ((v188)["fname"] = "INDENT");
2681             return v188;
2682         })((function (){
2683             var v189= v2;
2684             for (var i = arguments.length-1; i>=0; i--)
2685                 v189 = {car: arguments[i], cdr:
2686             v189};
2687             return (function(){
2688                 try {
2689                     return (function(){
2690                         return (function(v190){
2691                             return (function(v191,v192,v193){
2692                                 (f52(f43(v190)) !== v2 ? (function(){
2693                                     return v191 = f69(v191, (function(){
2694                                         return "    ";
2695                                     })());
2696                                 })() : v2);
2697                                 (function(){
2698                                     try {
2699                                         return (function(){
2700                                             return (function(){
2701                                                 while(((function(){
2702                                                     var x = v192;
2703                                                     var y = v193;
2704                                                     if (typeof x != 'number')
2705                                                         throw 'The value ' + x + ' is not a type number.';
2706                                                     if (typeof y != 'number')
2707                                                         throw 'The value ' + y + ' is not a type number.';
2708                                                     return x<y;
2709                                                 })()?v3: v2) !== v2){
2710                                                     (function(v194){
2711                                                         return v191 = f69(v191, (function(){
2712                                                             return v194;
2713                                                         })());
2714                                                     })(((f50((function(){
2715                                                         var string = v190;
2716                                                         var index = v192;
2717                                                         if (typeof string != 'string')
2718                                                             throw 'The value ' + string + ' is not a type string.';
2719                                                         if (typeof index != 'number')
2720                                                             throw 'The value ' + index + ' is not a type number.';
2721                                                         return string.charCodeAt(index);
2722                                                     })(), 10) !== v2 ? (((function(){
2723                                                         var x = v192;
2724                                                         var y = f13(v193);
2725                                                         if (typeof x != 'number')
2726                                                             throw 'The value ' + x + ' is not a type number.';
2727                                                         if (typeof y != 'number')
2728                                                             throw 'The value ' + y + ' is not a type number.';
2729                                                         return x<y;
2730                                                     })()?v3: v2) !== v2 ? f17(f50((function(){
2731                                                         var string = v190;
2732                                                         var index = f12(v192);
2733                                                         if (typeof string != 'string')
2734                                                             throw 'The value ' + string + ' is not a type string.';
2735                                                         if (typeof index != 'number')
2736                                                             throw 'The value ' + index + ' is not a type number.';
2737                                                         return string.charCodeAt(index);
2738                                                     })(), 10)) : v2) : v2) !== v2 ? f69((function(){
2739                                                         var x = 10;
2740                                                         if (typeof x != 'number')
2741                                                             throw 'The value ' + x + ' is not a type number.';
2742                                                         return String.fromCharCode(x);
2743                                                     })(), "    ") : (function(){
2744                                                         var x = (function(){
2745                                                             var string = v190;
2746                                                             var index = v192;
2747                                                             if (typeof string != 'string')
2748                                                                 throw 'The value ' + string + ' is not a type string.';
2749                                                             if (typeof index != 'number')
2750                                                                 throw 'The value ' + index + ' is not a type number.';
2751                                                             return string.charCodeAt(index);
2752                                                         })();
2753                                                         if (typeof x != 'number')
2754                                                             throw 'The value ' + x + ' is not a type number.';
2755                                                         return String.fromCharCode(x);
2756                                                     })()));
2757                                                     v192 = (function(){
2758                                                         var x = v192;
2759                                                         var y = 1;
2760                                                         if (typeof x != 'number')
2761                                                             throw 'The value ' + x + ' is not a type number.';
2762                                                         if (typeof y != 'number')
2763                                                             throw 'The value ' + y + ' is not a type number.';
2764                                                         return x+y;
2765                                                     })();
2766                                                 }return v2;
2767                                             })();
2768                                         })();
2769                                     }
2770                                     catch (cf){
2771                                         if (cf.type == 'block' && cf.id == 83)
2772                                             return cf.value;
2773                                         else
2774                                             throw cf;
2775                                     }
2776                                 })();
2777                                 return v191;
2778                             })("",0,f43(v190));
2779                         })(f70(v189));
2780                     })();
2781                 }
2782                 catch (cf){
2783                     if (cf.type == 'block' && cf.id == 82)
2784                         return cf.value;
2785                     else
2786                         throw cf;
2787                 }
2788             })();
2789
2790         }));
2791     })();
2792     return l40;
2793 })();
2794 var l41 = f3("INTEGER-TO-STRING");
2795 var f6;
2796 (function(){
2797     (function(){
2798         return f6 = (function(v195){
2799             ((v195)["fname"] = "INTEGER-TO-STRING");
2800             return v195;
2801         })((function (v196){
2802             if (arguments.length < 1) throw 'too few arguments';
2803             if (arguments.length > 1) throw 'too many arguments';
2804             return (function(){
2805                 try {
2806                     return (function(){
2807                         return (f14(v196) !== v2 ? (function(){
2808                             return "0";
2809                         })() : (f53(v196) !== v2 ? (function(){
2810                             return f69("-", f6((function(){
2811                                 var x = 0;
2812                                 var y = v196;
2813                                 if (typeof x != 'number')
2814                                     throw 'The value ' + x + ' is not a type number.';
2815                                 if (typeof y != 'number')
2816                                     throw 'The value ' + y + ' is not a type number.';
2817                                 return x-y;
2818                             })()));
2819                         })() : (function(){
2820                             return (function(v197){
2821                                 (function(){
2822                                     try {
2823                                         return (function(){
2824                                             return (function(){
2825                                                 while(f17(f14(v196)) !== v2){
2826                                                     v197 = ({car: (function(){
2827                                                         var x = v196;
2828                                                         var y = 10;
2829                                                         if (typeof x != 'number')
2830                                                             throw 'The value ' + x + ' is not a type number.';
2831                                                         if (typeof y != 'number')
2832                                                             throw 'The value ' + y + ' is not a type number.';
2833                                                         return x%y;
2834                                                     })(), cdr: v197});
2835                                                     v196 = f15(v196, 10);
2836                                                 }return v2;
2837                                             })();
2838                                         })();
2839                                     }
2840                                     catch (cf){
2841                                         if (cf.type == 'block' && cf.id == 85)
2842                                             return cf.value;
2843                                         else
2844                                             throw cf;
2845                                     }
2846                                 })();
2847                                 return f70(f45((function (v198){
2848                                     if (arguments.length < 1) throw 'too few arguments';
2849                                     if (arguments.length > 1) throw 'too many arguments';
2850                                     return (function(){
2851                                         var x = (function(){
2852                                             var string = "0123456789";
2853                                             var index = v198;
2854                                             if (typeof string != 'string')
2855                                                 throw 'The value ' + string + ' is not a type string.';
2856                                             if (typeof index != 'number')
2857                                                 throw 'The value ' + index + ' is not a type number.';
2858                                             return string.charCodeAt(index);
2859                                         })();
2860                                         if (typeof x != 'number')
2861                                             throw 'The value ' + x + ' is not a type number.';
2862                                         return String.fromCharCode(x);
2863                                     })();
2864
2865                                 }), v197));
2866                             })(v2);
2867                         })()));
2868                     })();
2869                 }
2870                 catch (cf){
2871                     if (cf.type == 'block' && cf.id == 84)
2872                         return cf.value;
2873                     else
2874                         throw cf;
2875                 }
2876             })();
2877
2878         }));
2879     })();
2880     return l41;
2881 })();
2882 var l42 = f3("JS!BOOL");
2883 var f73;
2884 (function(){
2885     (function(){
2886         return f73 = (function(v199){
2887             ((v199)["fname"] = "JS!BOOL");
2888             return v199;
2889         })((function (v200){
2890             if (arguments.length < 1) throw 'too few arguments';
2891             if (arguments.length > 1) throw 'too many arguments';
2892             return (function(){
2893                 try {
2894                     return (function(){
2895                         return f69("(", v200, "?", f74(v3), ": ", f74(v2), ")");
2896                     })();
2897                 }
2898                 catch (cf){
2899                     if (cf.type == 'block' && cf.id == 86)
2900                         return cf.value;
2901                     else
2902                         throw cf;
2903                 }
2904             })();
2905
2906         }));
2907     })();
2908     return l42;
2909 })();
2910 var l45 = f3("PRINT");
2911 var f78;
2912 var l44 = f3("WRITE-LINE");
2913 var f77;
2914 var l43 = f3("PRIN1-TO-STRING");
2915 var f75;
2916 (function(){
2917     (function(){
2918         (function(){
2919             return f75 = (function(v201){
2920                 ((v201)["fname"] = "PRIN1-TO-STRING");
2921                 return v201;
2922             })((function (v202){
2923                 if (arguments.length < 1) throw 'too few arguments';
2924                 if (arguments.length > 1) throw 'too many arguments';
2925                 return (function(){
2926                     try {
2927                         return (function(){
2928                             return (((function(){
2929                                 var tmp = v202;
2930                                 return (typeof tmp == 'object' && 'name' in tmp);
2931                             })()?v3: v2) !== v2 ? (function(){
2932                                 return (v202).name;
2933                             })() : (f51(v202) !== v2 ? (function(){
2934                                 return f6(v202);
2935                             })() : (((typeof(v202) == "string")?v3: v2) !== v2 ? (function(){
2936                                 return f69("\"", f76(v202), "\"");
2937                             })() : (((typeof v202 == 'function')?v3: v2) !== v2 ? (function(){
2938                                 return (function(v203){
2939                                     return (v203 !== v2 ? f69("#<FUNCTION ", v203, ">") : f69("#<FUNCTION>"));
2940                                 })((function(){
2941                                     var tmp = (v202)["fname"];
2942                                     return tmp == undefined? v2: tmp ;
2943                                 })());
2944                             })() : (f36(v202) !== v2 ? (function(){
2945                                 return f69("(", f71(f45(f75, f57(v202)), " "), (function(v204){
2946                                     return (f1((function(){
2947                                         var tmp = v204;
2948                                         return tmp === v2? v2: tmp.cdr;
2949                                     })()) !== v2 ? f75((function(){
2950                                         var tmp = v204;
2951                                         return tmp === v2? v2: tmp.car;
2952                                     })()) : f69(f75((function(){
2953                                         var tmp = v204;
2954                                         return tmp === v2? v2: tmp.car;
2955                                     })()), " . ", f75((function(){
2956                                         var tmp = v204;
2957                                         return tmp === v2? v2: tmp.cdr;
2958                                     })())));
2959                                 })(f56(v202)), ")");
2960                             })() : v2)))));
2961                         })();
2962                     }
2963                     catch (cf){
2964                         if (cf.type == 'block' && cf.id == 87)
2965                             return cf.value;
2966                         else
2967                             throw cf;
2968                     }
2969                 })();
2970
2971             }));
2972         })();
2973         return l43;
2974     })();
2975     (function(){
2976         (function(){
2977             return f77 = (function(v205){
2978                 ((v205)["fname"] = "WRITE-LINE");
2979                 return v205;
2980             })((function (v206){
2981                 if (arguments.length < 1) throw 'too few arguments';
2982                 if (arguments.length > 1) throw 'too many arguments';
2983                 return (function(){
2984                     try {
2985                         return (function(){
2986                             (function(){
2987                                 var x = v206;
2988                                 if (typeof x != 'string')
2989                                     throw 'The value ' + x + ' is not a type string.';
2990                                 return lisp.write(x);
2991                             })();
2992                             (function(){
2993                                 var x = v179;
2994                                 if (typeof x != 'string')
2995                                     throw 'The value ' + x + ' is not a type string.';
2996                                 return lisp.write(x);
2997                             })();
2998                             return v206;
2999                         })();
3000                     }
3001                     catch (cf){
3002                         if (cf.type == 'block' && cf.id == 88)
3003                             return cf.value;
3004                         else
3005                             throw cf;
3006                     }
3007                 })();
3008
3009             }));
3010         })();
3011         return l44;
3012     })();
3013     return (function(){
3014         (function(){
3015             return f78 = (function(v207){
3016                 ((v207)["fname"] = "PRINT");
3017                 return v207;
3018             })((function (v208){
3019                 if (arguments.length < 1) throw 'too few arguments';
3020                 if (arguments.length > 1) throw 'too many arguments';
3021                 return (function(){
3022                     try {
3023                         return (function(){
3024                             f77(f75(v208));
3025                             return v208;
3026                         })();
3027                     }
3028                     catch (cf){
3029                         if (cf.type == 'block' && cf.id == 89)
3030                             return cf.value;
3031                         else
3032                             throw cf;
3033                     }
3034                 })();
3035
3036             }));
3037         })();
3038         return l45;
3039     })();
3040 })();
3041 var l46 = f3("MAKE-STRING-STREAM");
3042 var f79;
3043 (function(){
3044     (function(){
3045         return f79 = (function(v209){
3046             ((v209)["fname"] = "MAKE-STRING-STREAM");
3047             return v209;
3048         })((function (v210){
3049             if (arguments.length < 1) throw 'too few arguments';
3050             if (arguments.length > 1) throw 'too many arguments';
3051             return (function(){
3052                 try {
3053                     return (function(){
3054                         return ({car: v210, cdr: 0});
3055                     })();
3056                 }
3057                 catch (cf){
3058                     if (cf.type == 'block' && cf.id == 90)
3059                         return cf.value;
3060                     else
3061                         throw cf;
3062                 }
3063             })();
3064
3065         }));
3066     })();
3067     return l46;
3068 })();
3069 var l47 = f3("%PEEK-CHAR");
3070 var f80;
3071 (function(){
3072     (function(){
3073         return f80 = (function(v211){
3074             ((v211)["fname"] = "%PEEK-CHAR");
3075             return v211;
3076         })((function (v212){
3077             if (arguments.length < 1) throw 'too few arguments';
3078             if (arguments.length > 1) throw 'too many arguments';
3079             return (function(){
3080                 try {
3081                     return (function(){
3082                         return (((function(){
3083                             var x = (function(){
3084                                 var tmp = v212;
3085                                 return tmp === v2? v2: tmp.cdr;
3086                             })();
3087                             var y = f43((function(){
3088                                 var tmp = v212;
3089                                 return tmp === v2? v2: tmp.car;
3090                             })());
3091                             if (typeof x != 'number')
3092                                 throw 'The value ' + x + ' is not a type number.';
3093                             if (typeof y != 'number')
3094                                 throw 'The value ' + y + ' is not a type number.';
3095                             return x<y;
3096                         })()?v3: v2) !== v2 ? (function(){
3097                             var string = (function(){
3098                                 var tmp = v212;
3099                                 return tmp === v2? v2: tmp.car;
3100                             })();
3101                             var index = (function(){
3102                                 var tmp = v212;
3103                                 return tmp === v2? v2: tmp.cdr;
3104                             })();
3105                             if (typeof string != 'string')
3106                                 throw 'The value ' + string + ' is not a type string.';
3107                             if (typeof index != 'number')
3108                                 throw 'The value ' + index + ' is not a type number.';
3109                             return string.charCodeAt(index);
3110                         })() : v2);
3111                     })();
3112                 }
3113                 catch (cf){
3114                     if (cf.type == 'block' && cf.id == 91)
3115                         return cf.value;
3116                     else
3117                         throw cf;
3118                 }
3119             })();
3120
3121         }));
3122     })();
3123     return l47;
3124 })();
3125 var l48 = f3("%READ-CHAR");
3126 var f81;
3127 (function(){
3128     (function(){
3129         return f81 = (function(v213){
3130             ((v213)["fname"] = "%READ-CHAR");
3131             return v213;
3132         })((function (v214){
3133             if (arguments.length < 1) throw 'too few arguments';
3134             if (arguments.length > 1) throw 'too many arguments';
3135             return (function(){
3136                 try {
3137                     return (function(){
3138                         return (((function(){
3139                             var x = (function(){
3140                                 var tmp = v214;
3141                                 return tmp === v2? v2: tmp.cdr;
3142                             })();
3143                             var y = f43((function(){
3144                                 var tmp = v214;
3145                                 return tmp === v2? v2: tmp.car;
3146                             })());
3147                             if (typeof x != 'number')
3148                                 throw 'The value ' + x + ' is not a type number.';
3149                             if (typeof y != 'number')
3150                                 throw 'The value ' + y + ' is not a type number.';
3151                             return x<y;
3152                         })()?v3: v2) !== v2 ? (function(v215){
3153                             (function(){
3154                                 var x = v214;
3155                                 if (typeof x != 'object')
3156                                     throw 'The value ' + x + ' is not a type object.';
3157                                 return (x.cdr = f12((function(){
3158                                     var tmp = v214;
3159                                     return tmp === v2? v2: tmp.cdr;
3160                                 })()));
3161                             })();
3162                             return v215;
3163                         })((function(){
3164                             var string = (function(){
3165                                 var tmp = v214;
3166                                 return tmp === v2? v2: tmp.car;
3167                             })();
3168                             var index = (function(){
3169                                 var tmp = v214;
3170                                 return tmp === v2? v2: tmp.cdr;
3171                             })();
3172                             if (typeof string != 'string')
3173                                 throw 'The value ' + string + ' is not a type string.';
3174                             if (typeof index != 'number')
3175                                 throw 'The value ' + index + ' is not a type number.';
3176                             return string.charCodeAt(index);
3177                         })()) : v2);
3178                     })();
3179                 }
3180                 catch (cf){
3181                     if (cf.type == 'block' && cf.id == 92)
3182                         return cf.value;
3183                     else
3184                         throw cf;
3185                 }
3186             })();
3187
3188         }));
3189     })();
3190     return l48;
3191 })();
3192 var l49 = f3("WHITESPACEP");
3193 var f82;
3194 (function(){
3195     (function(){
3196         return f82 = (function(v216){
3197             ((v216)["fname"] = "WHITESPACEP");
3198             return v216;
3199         })((function (v217){
3200             if (arguments.length < 1) throw 'too few arguments';
3201             if (arguments.length > 1) throw 'too many arguments';
3202             return (function(){
3203                 try {
3204                     return (function(){
3205                         return (function(v218){
3206                             return (v218 !== v2 ? v218 : (function(v219){
3207                                 return (v219 !== v2 ? v219 : f50(v217, 9));
3208                             })(f50(v217, 10)));
3209                         })(f50(v217, 32));
3210                     })();
3211                 }
3212                 catch (cf){
3213                     if (cf.type == 'block' && cf.id == 93)
3214                         return cf.value;
3215                     else
3216                         throw cf;
3217                 }
3218             })();
3219
3220         }));
3221     })();
3222     return l49;
3223 })();
3224 var l50 = f3("SKIP-WHITESPACES");
3225 var f83;
3226 (function(){
3227     (function(){
3228         return f83 = (function(v220){
3229             ((v220)["fname"] = "SKIP-WHITESPACES");
3230             return v220;
3231         })((function (v221){
3232             if (arguments.length < 1) throw 'too few arguments';
3233             if (arguments.length > 1) throw 'too many arguments';
3234             return (function(){
3235                 try {
3236                     return (function(){
3237                         return (function(v222){
3238                             v222 = f80(v221);
3239                             return (function(){
3240                                 try {
3241                                     return (function(){
3242                                         return (function(){
3243                                             while((v222 !== v2 ? f82(v222) : v2) !== v2){
3244                                                 f81(v221);
3245                                                 v222 = f80(v221);
3246                                             }return v2;
3247                                         })();
3248                                     })();
3249                                 }
3250                                 catch (cf){
3251                                     if (cf.type == 'block' && cf.id == 95)
3252                                         return cf.value;
3253                                     else
3254                                         throw cf;
3255                                 }
3256                             })();
3257                         })(v2);
3258                     })();
3259                 }
3260                 catch (cf){
3261                     if (cf.type == 'block' && cf.id == 94)
3262                         return cf.value;
3263                     else
3264                         throw cf;
3265                 }
3266             })();
3267
3268         }));
3269     })();
3270     return l50;
3271 })();
3272 var l51 = f3("TERMINALP");
3273 var f84;
3274 (function(){
3275     (function(){
3276         return f84 = (function(v223){
3277             ((v223)["fname"] = "TERMINALP");
3278             return v223;
3279         })((function (v224){
3280             if (arguments.length < 1) throw 'too few arguments';
3281             if (arguments.length > 1) throw 'too many arguments';
3282             return (function(){
3283                 try {
3284                     return (function(){
3285                         return (function(v225){
3286                             return (v225 !== v2 ? v225 : (function(v226){
3287                                 return (v226 !== v2 ? v226 : (function(v227){
3288                                     return (v227 !== v2 ? v227 : f50(40, v224));
3289                                 })(f50(41, v224)));
3290                             })(f82(v224)));
3291                         })(f1(v224));
3292                     })();
3293                 }
3294                 catch (cf){
3295                     if (cf.type == 'block' && cf.id == 96)
3296                         return cf.value;
3297                     else
3298                         throw cf;
3299                 }
3300             })();
3301
3302         }));
3303     })();
3304     return l51;
3305 })();
3306 var l52 = f3("READ-UNTIL");
3307 var f85;
3308 (function(){
3309     (function(){
3310         return f85 = (function(v228){
3311             ((v228)["fname"] = "READ-UNTIL");
3312             return v228;
3313         })((function (v229,v230){
3314             if (arguments.length < 2) throw 'too few arguments';
3315             if (arguments.length > 2) throw 'too many arguments';
3316             return (function(){
3317                 try {
3318                     return (function(){
3319                         return (function(v231,v232){
3320                             v232 = f80(v229);
3321                             (function(){
3322                                 try {
3323                                     return (function(){
3324                                         return (function(){
3325                                             while((v232 !== v2 ? f17((v230)(v232)) : v2) !== v2){
3326                                                 v231 = f69(v231, (function(){
3327                                                     var x = v232;
3328                                                     if (typeof x != 'number')
3329                                                         throw 'The value ' + x + ' is not a type number.';
3330                                                     return String.fromCharCode(x);
3331                                                 })());
3332                                                 f81(v229);
3333                                                 v232 = f80(v229);
3334                                             }return v2;
3335                                         })();
3336                                     })();
3337                                 }
3338                                 catch (cf){
3339                                     if (cf.type == 'block' && cf.id == 98)
3340                                         return cf.value;
3341                                     else
3342                                         throw cf;
3343                                 }
3344                             })();
3345                             return v231;
3346                         })("",v2);
3347                     })();
3348                 }
3349                 catch (cf){
3350                     if (cf.type == 'block' && cf.id == 97)
3351                         return cf.value;
3352                     else
3353                         throw cf;
3354                 }
3355             })();
3356
3357         }));
3358     })();
3359     return l52;
3360 })();
3361 var l53 = f3("SKIP-WHITESPACES-AND-COMMENTS");
3362 var f86;
3363 (function(){
3364     (function(){
3365         return f86 = (function(v233){
3366             ((v233)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS");
3367             return v233;
3368         })((function (v234){
3369             if (arguments.length < 1) throw 'too few arguments';
3370             if (arguments.length > 1) throw 'too many arguments';
3371             return (function(){
3372                 try {
3373                     return (function(){
3374                         return (function(v235){
3375                             f83(v234);
3376                             v235 = f80(v234);
3377                             return (function(){
3378                                 try {
3379                                     return (function(){
3380                                         return (function(){
3381                                             while((v235 !== v2 ? f50(v235, 59) : v2) !== v2){
3382                                                 f85(v234, (function (v236){
3383                                                     if (arguments.length < 1) throw 'too few arguments';
3384                                                     if (arguments.length > 1) throw 'too many arguments';
3385                                                     return f50(v236, 10);
3386
3387                                                 }));
3388                                                 f83(v234);
3389                                                 v235 = f80(v234);
3390                                             }return v2;
3391                                         })();
3392                                     })();
3393                                 }
3394                                 catch (cf){
3395                                     if (cf.type == 'block' && cf.id == 100)
3396                                         return cf.value;
3397                                     else
3398                                         throw cf;
3399                                 }
3400                             })();
3401                         })(v2);
3402                     })();
3403                 }
3404                 catch (cf){
3405                     if (cf.type == 'block' && cf.id == 99)
3406                         return cf.value;
3407                     else
3408                         throw cf;
3409                 }
3410             })();
3411
3412         }));
3413     })();
3414     return l53;
3415 })();
3416 var l54 = f3("%READ-LIST");
3417 var f87;
3418 (function(){
3419     (function(){
3420         return f87 = (function(v237){
3421             ((v237)["fname"] = "%READ-LIST");
3422             return v237;
3423         })((function (v238){
3424             if (arguments.length < 1) throw 'too few arguments';
3425             if (arguments.length > 1) throw 'too many arguments';
3426             return (function(){
3427                 try {
3428                     return (function(){
3429                         f86(v238);
3430                         return (function(v239){
3431                             return (f1(v239) !== v2 ? (function(){
3432                                 return (function(){
3433                                     throw "Unspected EOF";
3434                                 })();
3435                             })() : (f50(v239, 41) !== v2 ? (function(){
3436                                 f81(v238);
3437                                 return v2;
3438                             })() : (f50(v239, 46) !== v2 ? (function(){
3439                                 f81(v238);
3440                                 return (function(v240){
3441                                     f86(v238);
3442                                     (f50(f81(v238), 41) !== v2 ? v2 : (function(){
3443                                         return (function(){
3444                                             throw "')' was expected.";
3445                                         })();
3446                                     })());
3447                                     return v240;
3448                                 })(f88(v238));
3449                             })() : (function(){
3450                                 return ({car: f88(v238), cdr: f87(v238)});
3451                             })())));
3452                         })(f80(v238));
3453                     })();
3454                 }
3455                 catch (cf){
3456                     if (cf.type == 'block' && cf.id == 101)
3457                         return cf.value;
3458                     else
3459                         throw cf;
3460                 }
3461             })();
3462
3463         }));
3464     })();
3465     return l54;
3466 })();
3467 var l55 = f3("READ-STRING");
3468 var f89;
3469 (function(){
3470     (function(){
3471         return f89 = (function(v241){
3472             ((v241)["fname"] = "READ-STRING");
3473             return v241;
3474         })((function (v242){
3475             if (arguments.length < 1) throw 'too few arguments';
3476             if (arguments.length > 1) throw 'too many arguments';
3477             return (function(){
3478                 try {
3479                     return (function(){
3480                         return (function(v243,v244){
3481                             v244 = f81(v242);
3482                             (function(){
3483                                 try {
3484                                     return (function(){
3485                                         return (function(){
3486                                             while(f17(f16(v244, 34)) !== v2){
3487                                                 (f1(v244) !== v2 ? (function(){
3488                                                     return (function(){
3489                                                         throw "Unexpected EOF";
3490                                                     })();
3491                                                 })() : v2);
3492                                                 (f16(v244, 92) !== v2 ? (function(){
3493                                                     return v244 = f81(v242);
3494                                                 })() : v2);
3495                                                 v243 = f69(v243, (function(){
3496                                                     var x = v244;
3497                                                     if (typeof x != 'number')
3498                                                         throw 'The value ' + x + ' is not a type number.';
3499                                                     return String.fromCharCode(x);
3500                                                 })());
3501                                                 v244 = f81(v242);
3502                                             }return v2;
3503                                         })();
3504                                     })();
3505                                 }
3506                                 catch (cf){
3507                                     if (cf.type == 'block' && cf.id == 103)
3508                                         return cf.value;
3509                                     else
3510                                         throw cf;
3511                                 }
3512                             })();
3513                             return v243;
3514                         })("",v2);
3515                     })();
3516                 }
3517                 catch (cf){
3518                     if (cf.type == 'block' && cf.id == 102)
3519                         return cf.value;
3520                     else
3521                         throw cf;
3522                 }
3523             })();
3524
3525         }));
3526     })();
3527     return l55;
3528 })();
3529 var l60 = f3("READ-SHARP");
3530 var l59 = 43;
3531 var l58 = 92;
3532 var l57 = f3("FUNCTION");
3533 var l56 = 39;
3534 var f90;
3535 (function(){
3536     (function(){
3537         return f90 = (function(v245){
3538             ((v245)["fname"] = "READ-SHARP");
3539             return v245;
3540         })((function (v246){
3541             if (arguments.length < 1) throw 'too few arguments';
3542             if (arguments.length > 1) throw 'too many arguments';
3543             return (function(){
3544                 try {
3545                     return (function(){
3546                         f81(v246);
3547                         return (function(v247){
3548                             return (f16(v247, l56) !== v2 ? (function(){
3549                                 return f33(l57, f88(v246));
3550                             })() : (f16(v247, l58) !== v2 ? (function(){
3551                                 return (function(v248){
3552                                     return (f68(v248, "space") !== v2 ? (function(){
3553                                         return f49(32);
3554                                     })() : (f68(v248, "tab") !== v2 ? (function(){
3555                                         return f49(9);
3556                                     })() : (f68(v248, "newline") !== v2 ? (function(){
3557                                         return f49(10);
3558                                     })() : (function(){
3559                                         return f49((function(){
3560                                             var string = v248;
3561                                             var index = 0;
3562                                             if (typeof string != 'string')
3563                                                 throw 'The value ' + string + ' is not a type string.';
3564                                             if (typeof index != 'number')
3565                                                 throw 'The value ' + index + ' is not a type number.';
3566                                             return string.charCodeAt(index);
3567                                         })());
3568                                     })())));
3569                                 })(f69((function(){
3570                                     var x = f81(v246);
3571                                     if (typeof x != 'number')
3572                                         throw 'The value ' + x + ' is not a type number.';
3573                                     return String.fromCharCode(x);
3574                                 })(), f85(v246, f84)));
3575                             })() : (f16(v247, l59) !== v2 ? (function(){
3576                                 return (function(v249){
3577                                     return (f68(v249, "common-lisp") !== v2 ? (function(){
3578                                         f88(v246);
3579                                         return f88(v246);
3580                                     })() : (f68(v249, "ecmalisp") !== v2 ? (function(){
3581                                         return f88(v246);
3582                                     })() : (function(){
3583                                         return (function(){
3584                                             throw "Unknown reader form.";
3585                                         })();
3586                                     })()));
3587                                 })(f85(v246, f84));
3588                             })() : (function(){
3589                                 return (function(){
3590                                     throw "ECASE expression failed.";
3591                                 })();
3592                             })())));
3593                         })(f81(v246));
3594                     })();
3595                 }
3596                 catch (cf){
3597                     if (cf.type == 'block' && cf.id == 104)
3598                         return cf.value;
3599                     else
3600                         throw cf;
3601                 }
3602             })();
3603
3604         }));
3605     })();
3606     return l60;
3607 })();
3608 var l61 = f3("*EOF*");
3609 var v250;
3610 (function(){
3611     (function(){
3612         return v250 = (function(){
3613             var name = "EOF";
3614             if (typeof name != 'string')
3615                 throw 'The value ' + name + ' is not a type string.';
3616             return ({name: name});
3617         })();
3618     })();
3619     return l61;
3620 })();
3621 var l66 = f3("LS-READ");
3622 var l65 = f3("UNQUOTE");
3623 var l64 = f3("UNQUOTE-SPLICING");
3624 var l63 = f3("BACKQUOTE");
3625 var l62 = f3("QUOTE");
3626 var f88;
3627 (function(){
3628     (function(){
3629         return f88 = (function(v251){
3630             ((v251)["fname"] = "LS-READ");
3631             return v251;
3632         })((function (v252){
3633             if (arguments.length < 1) throw 'too few arguments';
3634             if (arguments.length > 1) throw 'too many arguments';
3635             return (function(){
3636                 try {
3637                     return (function(){
3638                         f86(v252);
3639                         return (function(v253){
3640                             return (f1(v253) !== v2 ? (function(){
3641                                 return v250;
3642                             })() : (f50(v253, 40) !== v2 ? (function(){
3643                                 f81(v252);
3644                                 return f87(v252);
3645                             })() : (f50(v253, 39) !== v2 ? (function(){
3646                                 f81(v252);
3647                                 return f33(l62, f88(v252));
3648                             })() : (f50(v253, 96) !== v2 ? (function(){
3649                                 f81(v252);
3650                                 return f33(l63, f88(v252));
3651                             })() : (f50(v253, 34) !== v2 ? (function(){
3652                                 f81(v252);
3653                                 return f89(v252);
3654                             })() : (f50(v253, 44) !== v2 ? (function(){
3655                                 f81(v252);
3656                                 return (f16(f80(v252), 64) !== v2 ? (function(){
3657                                     f81(v252);
3658                                     return f33(l64, f88(v252));
3659                                 })() : f33(l65, f88(v252)));
3660                             })() : (f50(v253, 35) !== v2 ? (function(){
3661                                 return f90(v252);
3662                             })() : (function(){
3663                                 return (function(v254){
3664                                     return (f66(f62, v254) !== v2 ? f64(v254) : f3((function(){
3665                                         var x = v254;
3666                                         if (typeof x != 'string')
3667                                             throw 'The value ' + x + ' is not a type string.';
3668                                         return x.toUpperCase();
3669                                     })()));
3670                                 })(f85(v252, f84));
3671                             })())))))));
3672                         })(f80(v252));
3673                     })();
3674                 }
3675                 catch (cf){
3676                     if (cf.type == 'block' && cf.id == 105)
3677                         return cf.value;
3678                     else
3679                         throw cf;
3680                 }
3681             })();
3682
3683         }));
3684     })();
3685     return l66;
3686 })();
3687 var l67 = f3("LS-READ-FROM-STRING");
3688 var f91;
3689 (function(){
3690     (function(){
3691         return f91 = (function(v255){
3692             ((v255)["fname"] = "LS-READ-FROM-STRING");
3693             return v255;
3694         })((function (v256){
3695             if (arguments.length < 1) throw 'too few arguments';
3696             if (arguments.length > 1) throw 'too many arguments';
3697             return (function(){
3698                 try {
3699                     return (function(){
3700                         return f88(f79(v256));
3701                     })();
3702                 }
3703                 catch (cf){
3704                     if (cf.type == 'block' && cf.id == 106)
3705                         return cf.value;
3706                     else
3707                         throw cf;
3708                 }
3709             })();
3710
3711         }));
3712     })();
3713     return l67;
3714 })();
3715 var l69 = f3("*COMPILATION-UNIT-CHECKS*");
3716 var l68 = f3("NIL");
3717 var v257;
3718 (function(){
3719     (function(){
3720         return v257 = l68;
3721     })();
3722     return l69;
3723 })();
3724 var l70 = f3("MAKE-BINDING");
3725 var f92;
3726 (function(){
3727     (function(){
3728         return f92 = (function(v258){
3729             ((v258)["fname"] = "MAKE-BINDING");
3730             return v258;
3731         })((function (v259,v260,v261,v262){
3732             if (arguments.length < 4) throw 'too few arguments';
3733             if (arguments.length > 4) throw 'too many arguments';
3734             return (function(){
3735                 try {
3736                     return (function(){
3737                         return f33(v259, v260, v261, v262);
3738                     })();
3739                 }
3740                 catch (cf){
3741                     if (cf.type == 'block' && cf.id == 107)
3742                         return cf.value;
3743                     else
3744                         throw cf;
3745                 }
3746             })();
3747
3748         }));
3749     })();
3750     return l70;
3751 })();
3752 var l71 = f3("BINDING-NAME");
3753 var f93;
3754 (function(){
3755     (function(){
3756         return f93 = (function(v263){
3757             ((v263)["fname"] = "BINDING-NAME");
3758             return v263;
3759         })((function (v264){
3760             if (arguments.length < 1) throw 'too few arguments';
3761             if (arguments.length > 1) throw 'too many arguments';
3762             return (function(){
3763                 try {
3764                     return (function(){
3765                         return f29(v264);
3766                     })();
3767                 }
3768                 catch (cf){
3769                     if (cf.type == 'block' && cf.id == 108)
3770                         return cf.value;
3771                     else
3772                         throw cf;
3773                 }
3774             })();
3775
3776         }));
3777     })();
3778     return l71;
3779 })();
3780 var l72 = f3("BINDING-TYPE");
3781 var f94;
3782 (function(){
3783     (function(){
3784         return f94 = (function(v265){
3785             ((v265)["fname"] = "BINDING-TYPE");
3786             return v265;
3787         })((function (v266){
3788             if (arguments.length < 1) throw 'too few arguments';
3789             if (arguments.length > 1) throw 'too many arguments';
3790             return (function(){
3791                 try {
3792                     return (function(){
3793                         return f30(v266);
3794                     })();
3795                 }
3796                 catch (cf){
3797                     if (cf.type == 'block' && cf.id == 109)
3798                         return cf.value;
3799                     else
3800                         throw cf;
3801                 }
3802             })();
3803
3804         }));
3805     })();
3806     return l72;
3807 })();
3808 var l73 = f3("BINDING-TRANSLATION");
3809 var f95;
3810 (function(){
3811     (function(){
3812         return f95 = (function(v267){
3813             ((v267)["fname"] = "BINDING-TRANSLATION");
3814             return v267;
3815         })((function (v268){
3816             if (arguments.length < 1) throw 'too few arguments';
3817             if (arguments.length > 1) throw 'too many arguments';
3818             return (function(){
3819                 try {
3820                     return (function(){
3821                         return f31(v268);
3822                     })();
3823                 }
3824                 catch (cf){
3825                     if (cf.type == 'block' && cf.id == 110)
3826                         return cf.value;
3827                     else
3828                         throw cf;
3829                 }
3830             })();
3831
3832         }));
3833     })();
3834     return l73;
3835 })();
3836 var l74 = f3("BINDING-DECLARED");
3837 var f96;
3838 (function(){
3839     (function(){
3840         return f96 = (function(v269){
3841             ((v269)["fname"] = "BINDING-DECLARED");
3842             return v269;
3843         })((function (v270){
3844             if (arguments.length < 1) throw 'too few arguments';
3845             if (arguments.length > 1) throw 'too many arguments';
3846             return (function(){
3847                 try {
3848                     return (function(){
3849                         return (v270 !== v2 ? f32(v270) : v2);
3850                     })();
3851                 }
3852                 catch (cf){
3853                     if (cf.type == 'block' && cf.id == 111)
3854                         return cf.value;
3855                     else
3856                         throw cf;
3857                 }
3858             })();
3859
3860         }));
3861     })();
3862     return l74;
3863 })();
3864 var l75 = f3("MARK-BINDING-AS-DECLARED");
3865 var f97;
3866 (function(){
3867     (function(){
3868         return f97 = (function(v271){
3869             ((v271)["fname"] = "MARK-BINDING-AS-DECLARED");
3870             return v271;
3871         })((function (v272){
3872             if (arguments.length < 1) throw 'too few arguments';
3873             if (arguments.length > 1) throw 'too many arguments';
3874             return (function(){
3875                 try {
3876                     return (function(){
3877                         return (function(){
3878                             var x = f27(v272);
3879                             if (typeof x != 'object')
3880                                 throw 'The value ' + x + ' is not a type object.';
3881                             return (x.car = v3);
3882                         })();
3883                     })();
3884                 }
3885                 catch (cf){
3886                     if (cf.type == 'block' && cf.id == 112)
3887                         return cf.value;
3888                     else
3889                         throw cf;
3890                 }
3891             })();
3892
3893         }));
3894     })();
3895     return l75;
3896 })();
3897 var l76 = f3("MAKE-LEXENV");
3898 var f98;
3899 (function(){
3900     (function(){
3901         return f98 = (function(v273){
3902             ((v273)["fname"] = "MAKE-LEXENV");
3903             return v273;
3904         })((function (){
3905             if (arguments.length > 0) throw 'too many arguments';
3906             return (function(){
3907                 try {
3908                     return (function(){
3909                         return f33(v2, v2, v2, v2);
3910                     })();
3911                 }
3912                 catch (cf){
3913                     if (cf.type == 'block' && cf.id == 113)
3914                         return cf.value;
3915                     else
3916                         throw cf;
3917                 }
3918             })();
3919
3920         }));
3921     })();
3922     return l76;
3923 })();
3924 var l77 = f3("COPY-LEXENV");
3925 var f99;
3926 (function(){
3927     (function(){
3928         return f99 = (function(v274){
3929             ((v274)["fname"] = "COPY-LEXENV");
3930             return v274;
3931         })((function (v275){
3932             if (arguments.length < 1) throw 'too few arguments';
3933             if (arguments.length > 1) throw 'too many arguments';
3934             return (function(){
3935                 try {
3936                     return (function(){
3937                         return f47(v275);
3938                     })();
3939                 }
3940                 catch (cf){
3941                     if (cf.type == 'block' && cf.id == 114)
3942                         return cf.value;
3943                     else
3944                         throw cf;
3945                 }
3946             })();
3947
3948         }));
3949     })();
3950     return l77;
3951 })();
3952 var l82 = f3("PUSH-TO-LEXENV");
3953 var l81 = f3("GOTAG");
3954 var l80 = f3("BLOCK");
3955 var l79 = f3("FUNCTION");
3956 var l78 = f3("VARIABLE");
3957 var f100;
3958 (function(){
3959     (function(){
3960         return f100 = (function(v276){
3961             ((v276)["fname"] = "PUSH-TO-LEXENV");
3962             return v276;
3963         })((function (v277,v278,v279){
3964             if (arguments.length < 3) throw 'too few arguments';
3965             if (arguments.length > 3) throw 'too many arguments';
3966             return (function(){
3967                 try {
3968                     return (function(){
3969                         return (function(v280){
3970                             return (f16(v280, l78) !== v2 ? (function(){
3971                                 return (function(){
3972                                     var x = v278;
3973                                     if (typeof x != 'object')
3974                                         throw 'The value ' + x + ' is not a type object.';
3975                                     return (x.car = ({car: v277, cdr: (function(){
3976                                         var tmp = v278;
3977                                         return tmp === v2? v2: tmp.car;
3978                                     })()}));
3979                                 })();
3980                             })() : (f16(v280, l79) !== v2 ? (function(){
3981                                 return (function(){
3982                                     var x = (function(){
3983                                         var tmp = v278;
3984                                         return tmp === v2? v2: tmp.cdr;
3985                                     })();
3986                                     if (typeof x != 'object')
3987                                         throw 'The value ' + x + ' is not a type object.';
3988                                     return (x.car = ({car: v277, cdr: f23(v278)}));
3989                                 })();
3990                             })() : (f16(v280, l80) !== v2 ? (function(){
3991                                 return (function(){
3992                                     var x = f25(v278);
3993                                     if (typeof x != 'object')
3994                                         throw 'The value ' + x + ' is not a type object.';
3995                                     return (x.car = ({car: v277, cdr: f26(v278)}));
3996                                 })();
3997                             })() : (f16(v280, l81) !== v2 ? (function(){
3998                                 return (function(){
3999                                     var x = f27(v278);
4000                                     if (typeof x != 'object')
4001                                         throw 'The value ' + x + ' is not a type object.';
4002                                     return (x.car = ({car: v277, cdr: f28(v278)}));
4003                                 })();
4004                             })() : (function(){
4005                                 return (function(){
4006                                     throw "ECASE expression failed.";
4007                                 })();
4008                             })()))));
4009                         })(v279);
4010                     })();
4011                 }
4012                 catch (cf){
4013                     if (cf.type == 'block' && cf.id == 115)
4014                         return cf.value;
4015                     else
4016                         throw cf;
4017                 }
4018             })();
4019
4020         }));
4021     })();
4022     return l82;
4023 })();
4024 var l83 = f3("EXTEND-LEXENV");
4025 var f101;
4026 (function(){
4027     (function(){
4028         return f101 = (function(v281){
4029             ((v281)["fname"] = "EXTEND-LEXENV");
4030             return v281;
4031         })((function (v282,v283,v284){
4032             if (arguments.length < 3) throw 'too few arguments';
4033             if (arguments.length > 3) throw 'too many arguments';
4034             return (function(){
4035                 try {
4036                     return (function(){
4037                         return (function(v285){
4038                             return (function(){
4039                                 try {
4040                                     return (function(){
4041                                         return (function(v286,v287){
4042                                             (function(){
4043                                                 while(v286 !== v2){
4044                                                     v287 = (function(){
4045                                                         var tmp = v286;
4046                                                         return tmp === v2? v2: tmp.car;
4047                                                     })();
4048                                                     (function(){
4049                                                         f100(v287, v285, v284);
4050                                                         return v2;
4051                                                     })();
4052                                                     v286 = (function(){
4053                                                         var tmp = v286;
4054                                                         return tmp === v2? v2: tmp.cdr;
4055                                                     })();
4056                                                 }return v2;
4057                                             })();
4058                                             return v285;
4059                                         })(f41(v282),v2);
4060                                     })();
4061                                 }
4062                                 catch (cf){
4063                                     if (cf.type == 'block' && cf.id == 117)
4064                                         return cf.value;
4065                                     else
4066                                         throw cf;
4067                                 }
4068                             })();
4069                         })(f99(v283));
4070                     })();
4071                 }
4072                 catch (cf){
4073                     if (cf.type == 'block' && cf.id == 116)
4074                         return cf.value;
4075                     else
4076                         throw cf;
4077                 }
4078             })();
4079
4080         }));
4081     })();
4082     return l83;
4083 })();
4084 var l88 = f3("LOOKUP-IN-LEXENV");
4085 var l87 = f3("GOTAG");
4086 var l86 = f3("BLOCK");
4087 var l85 = f3("FUNCTION");
4088 var l84 = f3("VARIABLE");
4089 var f102;
4090 (function(){
4091     (function(){
4092         return f102 = (function(v288){
4093             ((v288)["fname"] = "LOOKUP-IN-LEXENV");
4094             return v288;
4095         })((function (v289,v290,v291){
4096             if (arguments.length < 3) throw 'too few arguments';
4097             if (arguments.length > 3) throw 'too many arguments';
4098             return (function(){
4099                 try {
4100                     return (function(){
4101                         return f67(v289, (function(v292){
4102                             return (f16(v292, l84) !== v2 ? (function(){
4103                                 return f29(v290);
4104                             })() : (f16(v292, l85) !== v2 ? (function(){
4105                                 return f30(v290);
4106                             })() : (f16(v292, l86) !== v2 ? (function(){
4107                                 return f31(v290);
4108                             })() : (f16(v292, l87) !== v2 ? (function(){
4109                                 return f32(v290);
4110                             })() : (function(){
4111                                 return (function(){
4112                                     throw "ECASE expression failed.";
4113                                 })();
4114                             })()))));
4115                         })(v291));
4116                     })();
4117                 }
4118                 catch (cf){
4119                     if (cf.type == 'block' && cf.id == 118)
4120                         return cf.value;
4121                     else
4122                         throw cf;
4123                 }
4124             })();
4125
4126         }));
4127     })();
4128     return l88;
4129 })();
4130 var l89 = f3("*ENVIRONMENT*");
4131 var v293;
4132 (function(){
4133     (function(){
4134         return v293 = f98();
4135     })();
4136     return l89;
4137 })();
4138 var l90 = f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS");
4139 var f103;
4140 (function(){
4141     (function(){
4142         return f103 = (function(v294){
4143             ((v294)["fname"] = "CLEAR-UNDECLARED-GLOBAL-BINDINGS");
4144             return v294;
4145         })((function (){
4146             if (arguments.length > 0) throw 'too many arguments';
4147             return (function(){
4148                 try {
4149                     return (function(){
4150                         return v293 = f45((function (v295){
4151                             if (arguments.length < 1) throw 'too few arguments';
4152                             if (arguments.length > 1) throw 'too many arguments';
4153                             return f61(f96, v295);
4154
4155                         }), v293);
4156                     })();
4157                 }
4158                 catch (cf){
4159                     if (cf.type == 'block' && cf.id == 119)
4160                         return cf.value;
4161                     else
4162                         throw cf;
4163                 }
4164             })();
4165
4166         }));
4167     })();
4168     return l90;
4169 })();
4170 var l91 = f3("*VARIABLE-COUNTER*");
4171 var v296;
4172 (function(){
4173     (function(){
4174         return v296 = 0;
4175     })();
4176     return l91;
4177 })();
4178 var l92 = f3("GVARNAME");
4179 var f104;
4180 (function(){
4181     (function(){
4182         return f104 = (function(v297){
4183             ((v297)["fname"] = "GVARNAME");
4184             return v297;
4185         })((function (v298){
4186             if (arguments.length < 1) throw 'too few arguments';
4187             if (arguments.length > 1) throw 'too many arguments';
4188             return (function(){
4189                 try {
4190                     return (function(){
4191                         return f69("v", f6(v296 = (function(){
4192                             var x = v296;
4193                             var y = 1;
4194                             if (typeof x != 'number')
4195                                 throw 'The value ' + x + ' is not a type number.';
4196                             if (typeof y != 'number')
4197                                 throw 'The value ' + y + ' is not a type number.';
4198                             return x+y;
4199                         })()));
4200                     })();
4201                 }
4202                 catch (cf){
4203                     if (cf.type == 'block' && cf.id == 120)
4204                         return cf.value;
4205                     else
4206                         throw cf;
4207                 }
4208             })();
4209
4210         }));
4211     })();
4212     return l92;
4213 })();
4214 var l98 = f3("LOOKUP-VARIABLE");
4215 var l97 = f3("VARIABLE");
4216 var l96 = f3("VARIABLE");
4217 var l95 = f3("VARIABLE");
4218 var l94 = f3("VARIABLE");
4219 var l93 = f3("VARIABLE");
4220 var f105;
4221 (function(){
4222     (function(){
4223         return f105 = (function(v299){
4224             ((v299)["fname"] = "LOOKUP-VARIABLE");
4225             return v299;
4226         })((function (v300,v301){
4227             if (arguments.length < 2) throw 'too few arguments';
4228             if (arguments.length > 2) throw 'too many arguments';
4229             return (function(){
4230                 try {
4231                     return (function(){
4232                         return (function(v302){
4233                             return (v302 !== v2 ? v302 : (function(v303){
4234                                 return (v303 !== v2 ? v303 : (function(v304,v305){
4235                                     f100(v305, v293, l93);
4236                                     v257 = ({car: (function (){
4237                                         if (arguments.length > 0) throw 'too many arguments';
4238                                         return (function(v306){
4239                                             return (f96(v306) !== v2 ? v2 : (function(){
4240                                                 return (function(){
4241                                                     throw f69("Undefined variable `", v304, "'");
4242                                                 })();
4243                                             })());
4244                                         })(f102(v300, v293, l94));
4245
4246                                     }), cdr: v257});
4247                                     return v305;
4248                                 })((v300).name,f92(v300, l95, f104(v300), v2)));
4249                             })(f102(v300, v293, l96)));
4250                         })(f102(v300, v301, l97));
4251                     })();
4252                 }
4253                 catch (cf){
4254                     if (cf.type == 'block' && cf.id == 121)
4255                         return cf.value;
4256                     else
4257                         throw cf;
4258                 }
4259             })();
4260
4261         }));
4262     })();
4263     return l98;
4264 })();
4265 var l99 = f3("LOOKUP-VARIABLE-TRANSLATION");
4266 var f106;
4267 (function(){
4268     (function(){
4269         return f106 = (function(v307){
4270             ((v307)["fname"] = "LOOKUP-VARIABLE-TRANSLATION");
4271             return v307;
4272         })((function (v308,v309){
4273             if (arguments.length < 2) throw 'too few arguments';
4274             if (arguments.length > 2) throw 'too many arguments';
4275             return (function(){
4276                 try {
4277                     return (function(){
4278                         return f95(f105(v308, v309));
4279                     })();
4280                 }
4281                 catch (cf){
4282                     if (cf.type == 'block' && cf.id == 122)
4283                         return cf.value;
4284                     else
4285                         throw cf;
4286                 }
4287             })();
4288
4289         }));
4290     })();
4291     return l99;
4292 })();
4293 var l102 = f3("EXTEND-LOCAL-ENV");
4294 var l101 = f3("VARIABLE");
4295 var l100 = f3("VARIABLE");
4296 var f107;
4297 (function(){
4298     (function(){
4299         return f107 = (function(v310){
4300             ((v310)["fname"] = "EXTEND-LOCAL-ENV");
4301             return v310;
4302         })((function (v311,v312){
4303             if (arguments.length < 2) throw 'too few arguments';
4304             if (arguments.length > 2) throw 'too many arguments';
4305             return (function(){
4306                 try {
4307                     return (function(){
4308                         return (function(v313){
4309                             return (function(){
4310                                 try {
4311                                     return (function(){
4312                                         return (function(v314,v315){
4313                                             (function(){
4314                                                 while(v314 !== v2){
4315                                                     v315 = (function(){
4316                                                         var tmp = v314;
4317                                                         return tmp === v2? v2: tmp.car;
4318                                                     })();
4319                                                     (function(){
4320                                                         (function(v316){
4321                                                             return f100(v316, v313, l100);
4322                                                         })(f92(v315, l101, f104(v315), v3));
4323                                                         return v2;
4324                                                     })();
4325                                                     v314 = (function(){
4326                                                         var tmp = v314;
4327                                                         return tmp === v2? v2: tmp.cdr;
4328                                                     })();
4329                                                 }return v2;
4330                                             })();
4331                                             return v313;
4332                                         })(v311,v2);
4333                                     })();
4334                                 }
4335                                 catch (cf){
4336                                     if (cf.type == 'block' && cf.id == 124)
4337                                         return cf.value;
4338                                     else
4339                                         throw cf;
4340                                 }
4341                             })();
4342                         })(f99(v312));
4343                     })();
4344                 }
4345                 catch (cf){
4346                     if (cf.type == 'block' && cf.id == 123)
4347                         return cf.value;
4348                     else
4349                         throw cf;
4350                 }
4351             })();
4352
4353         }));
4354     })();
4355     return l102;
4356 })();
4357 var l103 = f3("*FUNCTION-COUNTER*");
4358 var v317;
4359 (function(){
4360     (function(){
4361         return v317 = 0;
4362     })();
4363     return l103;
4364 })();
4365 var l109 = f3("LOOKUP-FUNCTION");
4366 var l108 = f3("FUNCTION");
4367 var l107 = f3("FUNCTION");
4368 var l106 = f3("FUNCTION");
4369 var l105 = f3("FUNCTION");
4370 var l104 = f3("FUNCTION");
4371 var f108;
4372 (function(){
4373     (function(){
4374         return f108 = (function(v318){
4375             ((v318)["fname"] = "LOOKUP-FUNCTION");
4376             return v318;
4377         })((function (v319,v320){
4378             if (arguments.length < 2) throw 'too few arguments';
4379             if (arguments.length > 2) throw 'too many arguments';
4380             return (function(){
4381                 try {
4382                     return (function(){
4383                         return (function(v321){
4384                             return (v321 !== v2 ? v321 : (function(v322){
4385                                 return (v322 !== v2 ? v322 : (function(v323,v324){
4386                                     f100(v324, v293, l104);
4387                                     v257 = ({car: (function (){
4388                                         if (arguments.length > 0) throw 'too many arguments';
4389                                         return (function(v325){
4390                                             return (f96(v325) !== v2 ? v2 : (function(){
4391                                                 return (function(){
4392                                                     throw f69("Undefined function `", v323, "'");
4393                                                 })();
4394                                             })());
4395                                         })(f102(v319, v293, l105));
4396
4397                                     }), cdr: v257});
4398                                     return v324;
4399                                 })((v319).name,f92(v319, l106, f69("f", f6(v317 = (function(){
4400                                     var x = v317;
4401                                     var y = 1;
4402                                     if (typeof x != 'number')
4403                                         throw 'The value ' + x + ' is not a type number.';
4404                                     if (typeof y != 'number')
4405                                         throw 'The value ' + y + ' is not a type number.';
4406                                     return x+y;
4407                                 })())), v2)));
4408                             })(f102(v319, v293, l107)));
4409                         })(f102(v319, v320, l108));
4410                     })();
4411                 }
4412                 catch (cf){
4413                     if (cf.type == 'block' && cf.id == 125)
4414                         return cf.value;
4415                     else
4416                         throw cf;
4417                 }
4418             })();
4419
4420         }));
4421     })();
4422     return l109;
4423 })();
4424 var l110 = f3("LOOKUP-FUNCTION-TRANSLATION");
4425 var f109;
4426 (function(){
4427     (function(){
4428         return f109 = (function(v326){
4429             ((v326)["fname"] = "LOOKUP-FUNCTION-TRANSLATION");
4430             return v326;
4431         })((function (v327,v328){
4432             if (arguments.length < 2) throw 'too few arguments';
4433             if (arguments.length > 2) throw 'too many arguments';
4434             return (function(){
4435                 try {
4436                     return (function(){
4437                         return f95(f108(v327, v328));
4438                     })();
4439                 }
4440                 catch (cf){
4441                     if (cf.type == 'block' && cf.id == 126)
4442                         return cf.value;
4443                     else
4444                         throw cf;
4445                 }
4446             })();
4447
4448         }));
4449     })();
4450     return l110;
4451 })();
4452 var l111 = f3("*TOPLEVEL-COMPILATIONS*");
4453 var v329;
4454 (function(){
4455     (function(){
4456         return v329 = v2;
4457     })();
4458     return l111;
4459 })();
4460 var l112 = f3("%COMPILE-DEFVAR");
4461 var f110;
4462 (function(){
4463     (function(){
4464         return f110 = (function(v330){
4465             ((v330)["fname"] = "%COMPILE-DEFVAR");
4466             return v330;
4467         })((function (v331){
4468             if (arguments.length < 1) throw 'too few arguments';
4469             if (arguments.length > 1) throw 'too many arguments';
4470             return (function(){
4471                 try {
4472                     return (function(){
4473                         return (function(v332){
4474                             f97(v332);
4475                             return v329 = ({car: f69("var ", f95(v332)), cdr: v329});
4476                         })(f105(v331, v293));
4477                     })();
4478                 }
4479                 catch (cf){
4480                     if (cf.type == 'block' && cf.id == 127)
4481                         return cf.value;
4482                     else
4483                         throw cf;
4484                 }
4485             })();
4486
4487         }));
4488     })();
4489     return l112;
4490 })();
4491 var l113 = f3("%COMPILE-DEFUN");
4492 var f111;
4493 (function(){
4494     (function(){
4495         return f111 = (function(v333){
4496             ((v333)["fname"] = "%COMPILE-DEFUN");
4497             return v333;
4498         })((function (v334){
4499             if (arguments.length < 1) throw 'too few arguments';
4500             if (arguments.length > 1) throw 'too many arguments';
4501             return (function(){
4502                 try {
4503                     return (function(){
4504                         return (function(v335){
4505                             f97(v335);
4506                             return v329 = ({car: f69("var ", f95(v335)), cdr: v329});
4507                         })(f108(v334, v293));
4508                     })();
4509                 }
4510                 catch (cf){
4511                     if (cf.type == 'block' && cf.id == 128)
4512                         return cf.value;
4513                     else
4514                         throw cf;
4515                 }
4516             })();
4517
4518         }));
4519     })();
4520     return l113;
4521 })();
4522 var l116 = f3("%COMPILE-DEFMACRO");
4523 var l115 = f3("FUNCTION");
4524 var l114 = f3("MACRO");
4525 var f112;
4526 (function(){
4527     (function(){
4528         return f112 = (function(v336){
4529             ((v336)["fname"] = "%COMPILE-DEFMACRO");
4530             return v336;
4531         })((function (v337,v338){
4532             if (arguments.length < 2) throw 'too few arguments';
4533             if (arguments.length > 2) throw 'too many arguments';
4534             return (function(){
4535                 try {
4536                     return (function(){
4537                         return f100(f92(v337, l114, v338, v3), v293, l115);
4538                     })();
4539                 }
4540                 catch (cf){
4541                     if (cf.type == 'block' && cf.id == 129)
4542                         return cf.value;
4543                     else
4544                         throw cf;
4545                 }
4546             })();
4547
4548         }));
4549     })();
4550     return l116;
4551 })();
4552 var l117 = f3("*COMPILATIONS*");
4553 var v339;
4554 (function(){
4555     (function(){
4556         return v339 = v2;
4557     })();
4558     return l117;
4559 })();
4560 var l118 = f3("LS-COMPILE-BLOCK");
4561 var f113;
4562 (function(){
4563     (function(){
4564         return f113 = (function(v340){
4565             ((v340)["fname"] = "LS-COMPILE-BLOCK");
4566             return v340;
4567         })((function (v341,v342){
4568             if (arguments.length < 2) throw 'too few arguments';
4569             if (arguments.length > 2) throw 'too many arguments';
4570             return (function(){
4571                 try {
4572                     return (function(){
4573                         return f71(f60((function (v343){
4574                             if (arguments.length < 1) throw 'too few arguments';
4575                             if (arguments.length > 1) throw 'too many arguments';
4576                             return (function(v344){
4577                                 return (v344 !== v2 ? v344 : (((typeof(v343) == "string")?v3: v2) !== v2 ? f14(f43(v343)) : v2));
4578                             })(f1(v343));
4579
4580                         }), f45((function (v345){
4581                             if (arguments.length < 1) throw 'too few arguments';
4582                             if (arguments.length > 1) throw 'too many arguments';
4583                             return f74(v345, v342);
4584
4585                         }), v341)), f69(";", v179));
4586                     })();
4587                 }
4588                 catch (cf){
4589                     if (cf.type == 'block' && cf.id == 130)
4590                         return cf.value;
4591                     else
4592                         throw cf;
4593                 }
4594             })();
4595
4596         }));
4597     })();
4598     return l118;
4599 })();
4600 var l119 = f3("IF");
4601 v339 = ({car: f33(l119, (function (v346,v347,v348,v349){
4602     if (arguments.length < 4) throw 'too few arguments';
4603     if (arguments.length > 4) throw 'too many arguments';
4604     return (function(){
4605         try {
4606             return (function(){
4607                 return f69("(", f74(v347, v346), " !== ", f74(v2), " ? ", f74(v348, v346), " : ", f74(v349, v346), ")");
4608             })();
4609         }
4610         catch (cf){
4611             if (cf.type == 'block' && cf.id == 131)
4612                 return cf.value;
4613             else
4614                 throw cf;
4615         }
4616     })();
4617
4618 })), cdr: v339});
4619 var l121 = f3("*LAMBDA-LIST-KEYWORDS*");
4620 var l120 = {car: f3("&OPTIONAL"), cdr: {car: f3("&REST"), cdr: f3("NIL")}};
4621 var v350;
4622 (function(){
4623     (function(){
4624         return v350 = l120;
4625     })();
4626     return l121;
4627 })();
4628 var l122 = f3("LIST-UNTIL-KEYWORD");
4629 var f114;
4630 (function(){
4631     (function(){
4632         return f114 = (function(v351){
4633             ((v351)["fname"] = "LIST-UNTIL-KEYWORD");
4634             return v351;
4635         })((function (v352){
4636             if (arguments.length < 1) throw 'too few arguments';
4637             if (arguments.length > 1) throw 'too many arguments';
4638             return (function(){
4639                 try {
4640                     return (function(){
4641                         return ((function(v353){
4642                             return (v353 !== v2 ? v353 : f58((function(){
4643                                 var tmp = v352;
4644                                 return tmp === v2? v2: tmp.car;
4645                             })(), v350));
4646                         })(f1(v352)) !== v2 ? v2 : ({car: (function(){
4647                             var tmp = v352;
4648                             return tmp === v2? v2: tmp.car;
4649                         })(), cdr: f114((function(){
4650                             var tmp = v352;
4651                             return tmp === v2? v2: tmp.cdr;
4652                         })())}));
4653                     })();
4654                 }
4655                 catch (cf){
4656                     if (cf.type == 'block' && cf.id == 132)
4657                         return cf.value;
4658                     else
4659                         throw cf;
4660                 }
4661             })();
4662
4663         }));
4664     })();
4665     return l122;
4666 })();
4667 var l123 = f3("LAMBDA-LIST-REQUIRED-ARGUMENTS");
4668 var f115;
4669 (function(){
4670     (function(){
4671         return f115 = (function(v354){
4672             ((v354)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS");
4673             return v354;
4674         })((function (v355){
4675             if (arguments.length < 1) throw 'too few arguments';
4676             if (arguments.length > 1) throw 'too many arguments';
4677             return (function(){
4678                 try {
4679                     return (function(){
4680                         return f114(v355);
4681                     })();
4682                 }
4683                 catch (cf){
4684                     if (cf.type == 'block' && cf.id == 133)
4685                         return cf.value;
4686                     else
4687                         throw cf;
4688                 }
4689             })();
4690
4691         }));
4692     })();
4693     return l123;
4694 })();
4695 var l125 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
4696 var l124 = f3("&OPTIONAL");
4697 var f116;
4698 (function(){
4699     (function(){
4700         return f116 = (function(v356){
4701             ((v356)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
4702             return v356;
4703         })((function (v357){
4704             if (arguments.length < 1) throw 'too few arguments';
4705             if (arguments.length > 1) throw 'too many arguments';
4706             return (function(){
4707                 try {
4708                     return (function(){
4709                         return f45(f35, f114((function(){
4710                             var tmp = f58(l124, v357);
4711                             return tmp === v2? v2: tmp.cdr;
4712                         })()));
4713                     })();
4714                 }
4715                 catch (cf){
4716                     if (cf.type == 'block' && cf.id == 134)
4717                         return cf.value;
4718                     else
4719                         throw cf;
4720                 }
4721             })();
4722
4723         }));
4724     })();
4725     return l125;
4726 })();
4727 var l126 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS");
4728 var f117;
4729 (function(){
4730     (function(){
4731         return f117 = (function(v358){
4732             ((v358)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS");
4733             return v358;
4734         })((function (v359){
4735             if (arguments.length < 1) throw 'too few arguments';
4736             if (arguments.length > 1) throw 'too many arguments';
4737             return (function(){
4738                 try {
4739                     return (function(){
4740                         return f45(f20, f116(v359));
4741                     })();
4742                 }
4743                 catch (cf){
4744                     if (cf.type == 'block' && cf.id == 135)
4745                         return cf.value;
4746                     else
4747                         throw cf;
4748                 }
4749             })();
4750
4751         }));
4752     })();
4753     return l126;
4754 })();
4755 var l128 = f3("LAMBDA-LIST-REST-ARGUMENT");
4756 var l127 = f3("&REST");
4757 var f118;
4758 (function(){
4759     (function(){
4760         return f118 = (function(v360){
4761             ((v360)["fname"] = "LAMBDA-LIST-REST-ARGUMENT");
4762             return v360;
4763         })((function (v361){
4764             if (arguments.length < 1) throw 'too few arguments';
4765             if (arguments.length > 1) throw 'too many arguments';
4766             return (function(){
4767                 try {
4768                     return (function(){
4769                         return (function(v362){
4770                             ((function(){
4771                                 var tmp = v362;
4772                                 return tmp === v2? v2: tmp.cdr;
4773                             })() !== v2 ? (function(){
4774                                 return (function(){
4775                                     throw "Bad lambda-list";
4776                                 })();
4777                             })() : v2);
4778                             return (function(){
4779                                 var tmp = v362;
4780                                 return tmp === v2? v2: tmp.car;
4781                             })();
4782                         })(f114((function(){
4783                             var tmp = f58(l127, v361);
4784                             return tmp === v2? v2: tmp.cdr;
4785                         })()));
4786                     })();
4787                 }
4788                 catch (cf){
4789                     if (cf.type == 'block' && cf.id == 136)
4790                         return cf.value;
4791                     else
4792                         throw cf;
4793                 }
4794             })();
4795
4796         }));
4797     })();
4798     return l128;
4799 })();
4800 var l129 = f3("LAMBDA");
4801 v339 = ({car: f33(l129, (function (v364,v365){
4802     if (arguments.length < 2) throw 'too few arguments';
4803     var v363= v2;
4804     for (var i = arguments.length-1; i>=2; i--)
4805         v363 = {car: arguments[i], cdr:
4806     v363};
4807     return (function(){
4808         try {
4809             return (function(){
4810                 return (function(v366,v367,v368){
4811                     return (function(v369,v370,v371){
4812                         return f69("(function (", f70(f45((function (v372){
4813                             if (arguments.length < 1) throw 'too few arguments';
4814                             if (arguments.length > 1) throw 'too many arguments';
4815                             return f106(v372, v371);
4816
4817                         }), f39(v366, v367)), ","), "){", v179, f72((v366 !== v2 ? f69("if (arguments.length < ", f6(v369), ") throw 'too few arguments';", v179) : ""), (f17(v368) !== v2 ? f69("if (arguments.length > ", f6((function(){
4818                             var x = v369;
4819                             var y = v370;
4820                             if (typeof x != 'number')
4821                                 throw 'The value ' + x + ' is not a type number.';
4822                             if (typeof y != 'number')
4823                                 throw 'The value ' + y + ' is not a type number.';
4824                             return x+y;
4825                         })()), ") throw 'too many arguments';", v179) : ""), (v367 !== v2 ? f69("switch(arguments.length){", v179, (function(v373,v374,v375){
4826                             return (function(){
4827                                 (function(){
4828                                     try {
4829                                         return (function(){
4830                                             return (function(){
4831                                                 while(((function(){
4832                                                     var x = v375;
4833                                                     var y = v370;
4834                                                     if (typeof x != 'number')
4835                                                         throw 'The value ' + x + ' is not a type number.';
4836                                                     if (typeof y != 'number')
4837                                                         throw 'The value ' + y + ' is not a type number.';
4838                                                     return x<y;
4839                                                 })()?v3: v2) !== v2){
4840                                                     (function(v376){
4841                                                         v374 = ({car: f69("case ", f6((function(){
4842                                                             var x = v375;
4843                                                             var y = v369;
4844                                                             if (typeof x != 'number')
4845                                                                 throw 'The value ' + x + ' is not a type number.';
4846                                                             if (typeof y != 'number')
4847                                                                 throw 'The value ' + y + ' is not a type number.';
4848                                                             return x+y;
4849                                                         })()), ":", v179, f106((function(){
4850                                                             var tmp = v376;
4851                                                             return tmp === v2? v2: tmp.car;
4852                                                         })(), v371), "=", f74(f23(v376), v371), ";", v179), cdr: v374});
4853                                                         return v375 = (function(){
4854                                                             var x = v375;
4855                                                             var y = 1;
4856                                                             if (typeof x != 'number')
4857                                                                 throw 'The value ' + x + ' is not a type number.';
4858                                                             if (typeof y != 'number')
4859                                                                 throw 'The value ' + y + ' is not a type number.';
4860                                                             return x+y;
4861                                                         })();
4862                                                     })(f55(v375, v373));
4863                                                 }return v2;
4864                                             })();
4865                                         })();
4866                                     }
4867                                     catch (cf){
4868                                         if (cf.type == 'block' && cf.id == 138)
4869                                             return cf.value;
4870                                         else
4871                                             throw cf;
4872                                     }
4873                                 })();
4874                                 v374 = ({car: f69("default: break;", v179), cdr: v374});
4875                                 return f70(f41(v374));
4876                             })();
4877                         })(f116(v365),v2,0), "}", v179) : ""), (v368 !== v2 ? (function(v377){
4878                             return f69("var ", v377, "= ", f74(v2), ";", v179, "for (var i = arguments.length-1; i>=", f6((function(){
4879                                 var x = v369;
4880                                 var y = v370;
4881                                 if (typeof x != 'number')
4882                                     throw 'The value ' + x + ' is not a type number.';
4883                                 if (typeof y != 'number')
4884                                     throw 'The value ' + y + ' is not a type number.';
4885                                 return x+y;
4886                             })()), "; i--)", v179, f72(v377, " = ", "{car: arguments[i], cdr: "), v377, "};", v179);
4887                         })(f106(v368, v371)) : ""), f69(f113(f57(v363), v371), "return ", f74((function(){
4888                             var tmp = f56(v363);
4889                             return tmp === v2? v2: tmp.car;
4890                         })(), v371), ";")), v179, "})");
4891                     })(f43(v366),f43(v367),f107(f39(f35(v368), v366, v367), v364));
4892                 })(f115(v365),f117(v365),f118(v365));
4893             })();
4894         }
4895         catch (cf){
4896             if (cf.type == 'block' && cf.id == 137)
4897                 return cf.value;
4898             else
4899                 throw cf;
4900         }
4901     })();
4902
4903 })), cdr: v339});
4904 var l130 = f3("FSETQ");
4905 v339 = ({car: f33(l130, (function (v378,v379,v380){
4906     if (arguments.length < 3) throw 'too few arguments';
4907     if (arguments.length > 3) throw 'too many arguments';
4908     return (function(){
4909         try {
4910             return (function(){
4911                 return f69(f109(v379, v378), " = ", f74(v380, v378));
4912             })();
4913         }
4914         catch (cf){
4915             if (cf.type == 'block' && cf.id == 139)
4916                 return cf.value;
4917             else
4918                 throw cf;
4919         }
4920     })();
4921
4922 })), cdr: v339});
4923 var l131 = f3("SETQ");
4924 v339 = ({car: f33(l131, (function (v381,v382,v383){
4925     if (arguments.length < 3) throw 'too few arguments';
4926     if (arguments.length > 3) throw 'too many arguments';
4927     return (function(){
4928         try {
4929             return (function(){
4930                 return f69(f106(v382, v381), " = ", f74(v383, v381));
4931             })();
4932         }
4933         catch (cf){
4934             if (cf.type == 'block' && cf.id == 140)
4935                 return cf.value;
4936             else
4937                 throw cf;
4938         }
4939     })();
4940
4941 })), cdr: v339});
4942 var l132 = f3("ESCAPE-STRING");
4943 var f76;
4944 (function(){
4945     (function(){
4946         return f76 = (function(v384){
4947             ((v384)["fname"] = "ESCAPE-STRING");
4948             return v384;
4949         })((function (v385){
4950             if (arguments.length < 1) throw 'too few arguments';
4951             if (arguments.length > 1) throw 'too many arguments';
4952             return (function(){
4953                 try {
4954                     return (function(){
4955                         return (function(v386,v387,v388){
4956                             (function(){
4957                                 try {
4958                                     return (function(){
4959                                         return (function(){
4960                                             while(((function(){
4961                                                 var x = v387;
4962                                                 var y = v388;
4963                                                 if (typeof x != 'number')
4964                                                     throw 'The value ' + x + ' is not a type number.';
4965                                                 if (typeof y != 'number')
4966                                                     throw 'The value ' + y + ' is not a type number.';
4967                                                 return x<y;
4968                                             })()?v3: v2) !== v2){
4969                                                 (function(v389){
4970                                                     ((function(v390){
4971                                                         return (v390 !== v2 ? v390 : f50(v389, 92));
4972                                                     })(f50(v389, 34)) !== v2 ? (function(){
4973                                                         return v386 = f69(v386, "\\");
4974                                                     })() : v2);
4975                                                     (f50(v389, 10) !== v2 ? (function(){
4976                                                         v386 = f69(v386, "\\");
4977                                                         return v389 = 110;
4978                                                     })() : v2);
4979                                                     return v386 = f69(v386, (function(){
4980                                                         var x = v389;
4981                                                         if (typeof x != 'number')
4982                                                             throw 'The value ' + x + ' is not a type number.';
4983                                                         return String.fromCharCode(x);
4984                                                     })());
4985                                                 })((function(){
4986                                                     var string = v385;
4987                                                     var index = v387;
4988                                                     if (typeof string != 'string')
4989                                                         throw 'The value ' + string + ' is not a type string.';
4990                                                     if (typeof index != 'number')
4991                                                         throw 'The value ' + index + ' is not a type number.';
4992                                                     return string.charCodeAt(index);
4993                                                 })());
4994                                                 v387 = (function(){
4995                                                     var x = v387;
4996                                                     var y = 1;
4997                                                     if (typeof x != 'number')
4998                                                         throw 'The value ' + x + ' is not a type number.';
4999                                                     if (typeof y != 'number')
5000                                                         throw 'The value ' + y + ' is not a type number.';
5001                                                     return x+y;
5002                                                 })();
5003                                             }return v2;
5004                                         })();
5005                                     })();
5006                                 }
5007                                 catch (cf){
5008                                     if (cf.type == 'block' && cf.id == 142)
5009                                         return cf.value;
5010                                     else
5011                                         throw cf;
5012                                 }
5013                             })();
5014                             return v386;
5015                         })("",0,f43(v385));
5016                     })();
5017                 }
5018                 catch (cf){
5019                     if (cf.type == 'block' && cf.id == 141)
5020                         return cf.value;
5021                     else
5022                         throw cf;
5023                 }
5024             })();
5025
5026         }));
5027     })();
5028     return l132;
5029 })();
5030 var l134 = f3("LITERAL->JS");
5031 var l133 = f3("INTERN");
5032 var f119;
5033 (function(){
5034     (function(){
5035         return f119 = (function(v391){
5036             ((v391)["fname"] = "LITERAL->JS");
5037             return v391;
5038         })((function (v392){
5039             if (arguments.length < 1) throw 'too few arguments';
5040             if (arguments.length > 1) throw 'too many arguments';
5041             return (function(){
5042                 try {
5043                     return (function(){
5044                         return (f51(v392) !== v2 ? (function(){
5045                             return f6(v392);
5046                         })() : (((typeof(v392) == "string")?v3: v2) !== v2 ? (function(){
5047                             return f69("\"", f76(v392), "\"");
5048                         })() : (((function(){
5049                             var tmp = v392;
5050                             return (typeof tmp == 'object' && 'name' in tmp);
5051                         })()?v3: v2) !== v2 ? (function(){
5052                             return f74(f39(f33(l133), f33(f76((v392).name))), v293);
5053                         })() : (((function(){
5054                             var tmp = v392;
5055                             return (typeof tmp == 'object' && 'car' in tmp);
5056                         })()?v3: v2) !== v2 ? (function(){
5057                             return f69("{car: ", f119((function(){
5058                                 var tmp = v392;
5059                                 return tmp === v2? v2: tmp.car;
5060                             })()), ", cdr: ", f119((function(){
5061                                 var tmp = v392;
5062                                 return tmp === v2? v2: tmp.cdr;
5063                             })()), "}");
5064                         })() : v2))));
5065                     })();
5066                 }
5067                 catch (cf){
5068                     if (cf.type == 'block' && cf.id == 143)
5069                         return cf.value;
5070                     else
5071                         throw cf;
5072                 }
5073             })();
5074
5075         }));
5076     })();
5077     return l134;
5078 })();
5079 var l135 = f3("*LITERAL-COUNTER*");
5080 var v393;
5081 (function(){
5082     (function(){
5083         return v393 = 0;
5084     })();
5085     return l135;
5086 })();
5087 var l136 = f3("LITERAL");
5088 var f120;
5089 (function(){
5090     (function(){
5091         return f120 = (function(v394){
5092             ((v394)["fname"] = "LITERAL");
5093             return v394;
5094         })((function (v395){
5095             if (arguments.length < 1) throw 'too few arguments';
5096             if (arguments.length > 1) throw 'too many arguments';
5097             return (function(){
5098                 try {
5099                     return (function(){
5100                         return (function(v396){
5101                             v329 = ({car: f69("var ", v396, " = ", f119(v395)), cdr: v329});
5102                             return v396;
5103                         })(f69("l", f6(v393 = (function(){
5104                             var x = v393;
5105                             var y = 1;
5106                             if (typeof x != 'number')
5107                                 throw 'The value ' + x + ' is not a type number.';
5108                             if (typeof y != 'number')
5109                                 throw 'The value ' + y + ' is not a type number.';
5110                             return x+y;
5111                         })())));
5112                     })();
5113                 }
5114                 catch (cf){
5115                     if (cf.type == 'block' && cf.id == 144)
5116                         return cf.value;
5117                     else
5118                         throw cf;
5119                 }
5120             })();
5121
5122         }));
5123     })();
5124     return l136;
5125 })();
5126 var l137 = f3("QUOTE");
5127 v339 = ({car: f33(l137, (function (v397,v398){
5128     if (arguments.length < 2) throw 'too few arguments';
5129     if (arguments.length > 2) throw 'too many arguments';
5130     return (function(){
5131         try {
5132             return (function(){
5133                 return f120(v398);
5134             })();
5135         }
5136         catch (cf){
5137             if (cf.type == 'block' && cf.id == 145)
5138                 return cf.value;
5139             else
5140                 throw cf;
5141         }
5142     })();
5143
5144 })), cdr: v339});
5145 var l138 = f3("%WHILE");
5146 v339 = ({car: f33(l138, (function (v400,v401){
5147     if (arguments.length < 2) throw 'too few arguments';
5148     var v399= v2;
5149     for (var i = arguments.length-1; i>=2; i--)
5150         v399 = {car: arguments[i], cdr:
5151     v399};
5152     return (function(){
5153         try {
5154             return (function(){
5155                 return f69("(function(){", v179, f72("while(", f74(v401, v400), " !== ", f74(v2), "){", v179, f72(f113(v399, v400)), "}", "return ", f74(v2), ";", v179), "})()");
5156             })();
5157         }
5158         catch (cf){
5159             if (cf.type == 'block' && cf.id == 146)
5160                 return cf.value;
5161             else
5162                 throw cf;
5163         }
5164     })();
5165
5166 })), cdr: v339});
5167 var l140 = f3("LAMBDA");
5168 var l139 = f3("FUNCTION");
5169 v339 = ({car: f33(l139, (function (v402,v403){
5170     if (arguments.length < 2) throw 'too few arguments';
5171     if (arguments.length > 2) throw 'too many arguments';
5172     return (function(){
5173         try {
5174             return (function(){
5175                 return ((f36(v403) !== v2 ? (((function(){
5176                     var tmp = v403;
5177                     return tmp === v2? v2: tmp.car;
5178                 })() === l140)?v3: v2) : v2) !== v2 ? (function(){
5179                     return f74(v403, v402);
5180                 })() : (((function(){
5181                     var tmp = v403;
5182                     return (typeof tmp == 'object' && 'name' in tmp);
5183                 })()?v3: v2) !== v2 ? (function(){
5184                     return f109(v403, v402);
5185                 })() : v2));
5186             })();
5187         }
5188         catch (cf){
5189             if (cf.type == 'block' && cf.id == 147)
5190                 return cf.value;
5191             else
5192                 throw cf;
5193         }
5194     })();
5195
5196 })), cdr: v339});
5197 var l142 = f3("PROGN");
5198 var l141 = f3("EVAL-WHEN-COMPILE");
5199 v339 = ({car: f33(l141, (function (v405){
5200     if (arguments.length < 1) throw 'too few arguments';
5201     var v404= v2;
5202     for (var i = arguments.length-1; i>=1; i--)
5203         v404 = {car: arguments[i], cdr:
5204     v404};
5205     return (function(){
5206         try {
5207             return (function(){
5208                 f121(({car: l142, cdr: v404}));
5209                 return "";
5210             })();
5211         }
5212         catch (cf){
5213             if (cf.type == 'block' && cf.id == 148)
5214                 return cf.value;
5215             else
5216                 throw cf;
5217         }
5218     })();
5219
5220 })), cdr: v339});
5221 var l143 = f3("PROGN");
5222 v339 = ({car: f33(l143, (function (v407){
5223     if (arguments.length < 1) throw 'too few arguments';
5224     var v406= v2;
5225     for (var i = arguments.length-1; i>=1; i--)
5226         v406 = {car: arguments[i], cdr:
5227     v406};
5228     return (function(){
5229         try {
5230             return (function(){
5231                 return f69("(function(){", v179, f72(f113(f57(v406), v407), "return ", f74((function(){
5232                     var tmp = f56(v406);
5233                     return tmp === v2? v2: tmp.car;
5234                 })(), v407), ";", v179), "})()");
5235             })();
5236         }
5237         catch (cf){
5238             if (cf.type == 'block' && cf.id == 149)
5239                 return cf.value;
5240             else
5241                 throw cf;
5242         }
5243     })();
5244
5245 })), cdr: v339});
5246 var l144 = f3("LET");
5247 v339 = ({car: f33(l144, (function (v409,v410){
5248     if (arguments.length < 2) throw 'too few arguments';
5249     var v408= v2;
5250     for (var i = arguments.length-1; i>=2; i--)
5251         v408 = {car: arguments[i], cdr:
5252     v408};
5253     return (function(){
5254         try {
5255             return (function(){
5256                 return (function(v411){
5257                     return (function(v412,v413){
5258                         return (function(v414){
5259                             return f69("(function(", f70(f45((function (v415){
5260                                 if (arguments.length < 1) throw 'too few arguments';
5261                                 if (arguments.length > 1) throw 'too many arguments';
5262                                 return f106(v415, v414);
5263
5264                             }), v412), ","), "){", v179, f72(f113(f57(v408), v414), "return ", f74((function(){
5265                                 var tmp = f56(v408);
5266                                 return tmp === v2? v2: tmp.car;
5267                             })(), v414), ";", v179), "})(", f70(f45((function (v416){
5268                                 if (arguments.length < 1) throw 'too few arguments';
5269                                 if (arguments.length > 1) throw 'too many arguments';
5270                                 return f74(v416, v409);
5271
5272                             }), v413), ","), ")");
5273                         })(f107(v412, v409));
5274                     })(f45(f29, v411),f45(f30, v411));
5275                 })(f45(f35, v410));
5276             })();
5277         }
5278         catch (cf){
5279             if (cf.type == 'block' && cf.id == 150)
5280                 return cf.value;
5281             else
5282                 throw cf;
5283         }
5284     })();
5285
5286 })), cdr: v339});
5287 var l145 = f3("*BLOCK-COUNTER*");
5288 var v417;
5289 (function(){
5290     (function(){
5291         return v417 = 0;
5292     })();
5293     return l145;
5294 })();
5295 var l149 = f3("BLOCK");
5296 var l148 = f3("BLOCK");
5297 var l147 = f3("PROGN");
5298 var l146 = f3("BLOCK");
5299 v339 = ({car: f33(l146, (function (v419,v420){
5300     if (arguments.length < 2) throw 'too few arguments';
5301     var v418= v2;
5302     for (var i = arguments.length-1; i>=2; i--)
5303         v418 = {car: arguments[i], cdr:
5304     v418};
5305     return (function(){
5306         try {
5307             return (function(){
5308                 return (function(v421){
5309                     return (function(v422){
5310                         return f69("(function(){", v179, f72("try {", v179, f72("return ", f74(f39(f33(l147), v418), f101(f33(v422), v419, l148)), ";", v179), "}", v179, "catch (cf){", v179, "    if (cf.type == 'block' && cf.id == ", v421, ")", v179, "        return cf.value;", v179, "    else", v179, "        throw cf;", v179, "}", v179), "})()");
5311                     })(f92(v420, l149, v421, v3));
5312                 })(f6(v417 = (function(){
5313                     var x = v417;
5314                     var y = 1;
5315                     if (typeof x != 'number')
5316                         throw 'The value ' + x + ' is not a type number.';
5317                     if (typeof y != 'number')
5318                         throw 'The value ' + y + ' is not a type number.';
5319                     return x+y;
5320                 })()));
5321             })();
5322         }
5323         catch (cf){
5324             if (cf.type == 'block' && cf.id == 151)
5325                 return cf.value;
5326             else
5327                 throw cf;
5328         }
5329     })();
5330
5331 })), cdr: v339});
5332 var l151 = f3("BLOCK");
5333 var l150 = f3("RETURN-FROM");
5334 v339 = ({car: f33(l150, (function (v423,v424,v425){
5335     if (arguments.length < 2) throw 'too few arguments';
5336     if (arguments.length > 3) throw 'too many arguments';
5337     switch(arguments.length){
5338     case 2:
5339     v425=v2;
5340     default: break;
5341     }
5342     return (function(){
5343         try {
5344             return (function(){
5345                 return (function(v426){
5346                     return (v426 !== v2 ? f69("(function(){", v179, f72("throw ({", "type: 'block', ", "id: ", f95(v426), ", ", "value: ", f74(v425, v423), ", ", "message: 'Return from unknown block ", (v424).name, ".'", "})"), "})()") : (function(){
5347                         throw f69("Unknown block `", (v424).name, "'.");
5348                     })());
5349                 })(f102(v424, v423, l151));
5350             })();
5351         }
5352         catch (cf){
5353             if (cf.type == 'block' && cf.id == 152)
5354                 return cf.value;
5355             else
5356                 throw cf;
5357         }
5358     })();
5359
5360 })), cdr: v339});
5361 var l153 = f3("PROGN");
5362 var l152 = f3("CATCH");
5363 v339 = ({car: f33(l152, (function (v428,v429){
5364     if (arguments.length < 2) throw 'too few arguments';
5365     var v427= v2;
5366     for (var i = arguments.length-1; i>=2; i--)
5367         v427 = {car: arguments[i], cdr:
5368     v427};
5369     return (function(){
5370         try {
5371             return (function(){
5372                 return f69("(function(){", v179, f72("var id = ", f74(v429, v428), ";", v179, "try {", v179, f72("return ", f74(f39(f33(l153), v427)), ";", v179), "}", v179, "catch (cf){", v179, "    if (cf.type == 'catch' && cf.id == id)", v179, "        return cf.value;", v179, "    else", v179, "        throw cf;", v179, "}", v179), "})()");
5373             })();
5374         }
5375         catch (cf){
5376             if (cf.type == 'block' && cf.id == 153)
5377                 return cf.value;
5378             else
5379                 throw cf;
5380         }
5381     })();
5382
5383 })), cdr: v339});
5384 var l154 = f3("THROW");
5385 v339 = ({car: f33(l154, (function (v430,v431,v432){
5386     if (arguments.length < 2) throw 'too few arguments';
5387     if (arguments.length > 3) throw 'too many arguments';
5388     switch(arguments.length){
5389     case 2:
5390     v432=v2;
5391     default: break;
5392     }
5393     return (function(){
5394         try {
5395             return (function(){
5396                 return f69("(function(){", v179, f72("throw ({", "type: 'catch', ", "id: ", f74(v431, v430), ", ", "value: ", f74(v432, v430), ", ", "message: 'Throw uncatched.'", "})"), "})()");
5397             })();
5398         }
5399         catch (cf){
5400             if (cf.type == 'block' && cf.id == 154)
5401                 return cf.value;
5402             else
5403                 throw cf;
5404         }
5405     })();
5406
5407 })), cdr: v339});
5408 var l155 = f3("*TAGBODY-COUNTER*");
5409 var v433;
5410 (function(){
5411     (function(){
5412         return v433 = 0;
5413     })();
5414     return l155;
5415 })();
5416 var l156 = f3("*GO-TAG-COUNTER*");
5417 var v434;
5418 (function(){
5419     (function(){
5420         return v434 = 0;
5421     })();
5422     return l156;
5423 })();
5424 var l157 = f3("GO-TAG-P");
5425 var f122;
5426 (function(){
5427     (function(){
5428         return f122 = (function(v435){
5429             ((v435)["fname"] = "GO-TAG-P");
5430             return v435;
5431         })((function (v436){
5432             if (arguments.length < 1) throw 'too few arguments';
5433             if (arguments.length > 1) throw 'too many arguments';
5434             return (function(){
5435                 try {
5436                     return (function(){
5437                         return (function(v437){
5438                             return (v437 !== v2 ? v437 : ((function(){
5439                                 var tmp = v436;
5440                                 return (typeof tmp == 'object' && 'name' in tmp);
5441                             })()?v3: v2));
5442                         })(f51(v436));
5443                     })();
5444                 }
5445                 catch (cf){
5446                     if (cf.type == 'block' && cf.id == 155)
5447                         return cf.value;
5448                     else
5449                         throw cf;
5450                 }
5451             })();
5452
5453         }));
5454     })();
5455     return l157;
5456 })();
5457 var l160 = f3("DECLARE-TAGBODY-TAGS");
5458 var l159 = f3("GOTAG");
5459 var l158 = f3("GOTAG");
5460 var f123;
5461 (function(){
5462     (function(){
5463         return f123 = (function(v438){
5464             ((v438)["fname"] = "DECLARE-TAGBODY-TAGS");
5465             return v438;
5466         })((function (v439,v440,v441){
5467             if (arguments.length < 3) throw 'too few arguments';
5468             if (arguments.length > 3) throw 'too many arguments';
5469             return (function(){
5470                 try {
5471                     return (function(){
5472                         return (function(v442){
5473                             return f101(v442, v439, l158);
5474                         })(f45((function (v443){
5475                             if (arguments.length < 1) throw 'too few arguments';
5476                             if (arguments.length > 1) throw 'too many arguments';
5477                             return (function(v444){
5478                                 return f92(v443, l159, f33(v440, v444), v3);
5479                             })(f6(v434 = (function(){
5480                                 var x = v434;
5481                                 var y = 1;
5482                                 if (typeof x != 'number')
5483                                     throw 'The value ' + x + ' is not a type number.';
5484                                 if (typeof y != 'number')
5485                                     throw 'The value ' + y + ' is not a type number.';
5486                                 return x+y;
5487                             })()));
5488
5489                         }), f61(f122, v441)));
5490                     })();
5491                 }
5492                 catch (cf){
5493                     if (cf.type == 'block' && cf.id == 156)
5494                         return cf.value;
5495                     else
5496                         throw cf;
5497                 }
5498             })();
5499
5500         }));
5501     })();
5502     return l160;
5503 })();
5504 var l165 = f3("GOTAG");
5505 var l164 = f3("GOTAG");
5506 var l163 = f3("NIL");
5507 var l162 = f3("PROGN");
5508 var l161 = f3("TAGBODY");
5509 v339 = ({car: f33(l161, (function (v446){
5510     if (arguments.length < 1) throw 'too few arguments';
5511     var v445= v2;
5512     for (var i = arguments.length-1; i>=1; i--)
5513         v445 = {car: arguments[i], cdr:
5514     v445};
5515     return (function(){
5516         try {
5517             return (function(){
5518                 (f65(f122, v445) !== v2 ? v2 : (function(){
5519                     return (function(){
5520                         throw ({type: 'block', id: 157, value: f74(f39(f33(l162), v445, f33(l163)), v446), message: 'Return from unknown block TAGBODY.'})
5521                     })();
5522                 })());
5523                 (f122((function(){
5524                     var tmp = v445;
5525                     return tmp === v2? v2: tmp.car;
5526                 })()) !== v2 ? v2 : (function(){
5527                     return v445 = ({car: f5("START"), cdr: v445});
5528                 })());
5529                 return (function(v447){
5530                     return (function(v448,v449){
5531                         (function(v450){
5532                             return v449 = f30(f95(v450));
5533                         })(f102(f29(v445), v448, l164));
5534                         return f69("(function(){", v179, f72("var tagbody_", v447, " = ", v449, ";", v179, "tbloop:", v179, "while (true) {", v179, f72("try {", v179, f72((function(v451){
5535                             return f69("switch(tagbody_", v447, "){", v179, "case ", v449, ":", v179, (function(){
5536                                 try {
5537                                     return (function(){
5538                                         return (function(v452,v453){
5539                                             (function(){
5540                                                 while(v452 !== v2){
5541                                                     v453 = (function(){
5542                                                         var tmp = v452;
5543                                                         return tmp === v2? v2: tmp.car;
5544                                                     })();
5545                                                     (function(){
5546                                                         v451 = f69(v451, (function(){
5547                                                             return (f17(f122(v453)) !== v2 ? f72(f74(v453, v448), ";", v179) : (function(v454){
5548                                                                 return f69("case ", f30(f95(v454)), ":", v179);
5549                                                             })(f102(v453, v448, l165)));
5550                                                         })());
5551                                                         return v2;
5552                                                     })();
5553                                                     v452 = (function(){
5554                                                         var tmp = v452;
5555                                                         return tmp === v2? v2: tmp.cdr;
5556                                                     })();
5557                                                 }return v2;
5558                                             })();
5559                                             return v451;
5560                                         })((function(){
5561                                             var tmp = v445;
5562                                             return tmp === v2? v2: tmp.cdr;
5563                                         })(),v2);
5564                                     })();
5565                                 }
5566                                 catch (cf){
5567                                     if (cf.type == 'block' && cf.id == 158)
5568                                         return cf.value;
5569                                     else
5570                                         throw cf;
5571                                 }
5572                             })(), "default:", v179, "    break tbloop;", v179, "}", v179);
5573                         })("")), "}", v179, "catch (jump) {", v179, "    if (jump.type == 'tagbody' && jump.id == ", v447, ")", v179, "        tagbody_", v447, " = jump.label;", v179, "    else", v179, "        throw(jump);", v179, "}", v179), "}", v179, "return ", f74(v2), ";", v179), "})()");
5574                     })(f123(v446, v447, v445),v2);
5575                 })(f6(v433));
5576             })();
5577         }
5578         catch (cf){
5579             if (cf.type == 'block' && cf.id == 157)
5580                 return cf.value;
5581             else
5582                 throw cf;
5583         }
5584     })();
5585
5586 })), cdr: v339});
5587 var l167 = f3("GOTAG");
5588 var l166 = f3("GO");
5589 v339 = ({car: f33(l166, (function (v455,v456){
5590     if (arguments.length < 2) throw 'too few arguments';
5591     if (arguments.length > 2) throw 'too many arguments';
5592     return (function(){
5593         try {
5594             return (function(){
5595                 return (function(v457,v458){
5596                     return (v457 !== v2 ? f69("(function(){", v179, f72("throw ({", "type: 'tagbody', ", "id: ", f29(f95(v457)), ", ", "label: ", f30(f95(v457)), ", ", "message: 'Attempt to GO to non-existing tag ", v458, "'", "})", v179), "})()") : (function(){
5597                         throw f69("Unknown tag `", v458, "'.");
5598                     })());
5599                 })(f102(v456, v455, l167),(((function(){
5600                     var tmp = v456;
5601                     return (typeof tmp == 'object' && 'name' in tmp);
5602                 })()?v3: v2) !== v2 ? (function(){
5603                     return (v456).name;
5604                 })() : (f51(v456) !== v2 ? (function(){
5605                     return f6(v456);
5606                 })() : v2)));
5607             })();
5608         }
5609         catch (cf){
5610             if (cf.type == 'block' && cf.id == 159)
5611                 return cf.value;
5612             else
5613                 throw cf;
5614         }
5615     })();
5616
5617 })), cdr: v339});
5618 var l168 = f3("UNWIND-PROTECT");
5619 v339 = ({car: f33(l168, (function (v460,v461){
5620     if (arguments.length < 2) throw 'too few arguments';
5621     var v459= v2;
5622     for (var i = arguments.length-1; i>=2; i--)
5623         v459 = {car: arguments[i], cdr:
5624     v459};
5625     return (function(){
5626         try {
5627             return (function(){
5628                 return f69("(function(){", v179, f72("var ret = ", f74(v2), ";", v179, "try {", v179, f72("ret = ", f74(v461, v460), ";", v179), "} finally {", v179, f72(f113(v459, v460)), "}", v179, "return ret;", v179), "})()");
5629             })();
5630         }
5631         catch (cf){
5632             if (cf.type == 'block' && cf.id == 160)
5633                 return cf.value;
5634             else
5635                 throw cf;
5636         }
5637     })();
5638
5639 })), cdr: v339});
5640 var l177 = f3("BACKQUOTE-EXPAND-1");
5641 var l176 = f3("LIST");
5642 var l175 = f3("UNQUOTE-SPLICING");
5643 var l174 = f3("LIST");
5644 var l173 = f3("UNQUOTE");
5645 var l172 = f3("APPEND");
5646 var l171 = f3("BACKQUOTE");
5647 var l170 = f3("UNQUOTE");
5648 var l169 = f3("QUOTE");
5649 var f124;
5650 (function(){
5651     (function(){
5652         return f124 = (function(v462){
5653             ((v462)["fname"] = "BACKQUOTE-EXPAND-1");
5654             return v462;
5655         })((function (v463){
5656             if (arguments.length < 1) throw 'too few arguments';
5657             if (arguments.length > 1) throw 'too many arguments';
5658             return (function(){
5659                 try {
5660                     return (function(){
5661                         return (((function(){
5662                             var tmp = v463;
5663                             return (typeof tmp == 'object' && 'name' in tmp);
5664                         })()?v3: v2) !== v2 ? (function(){
5665                             return f33(l169, v463);
5666                         })() : (f34(v463) !== v2 ? (function(){
5667                             return v463;
5668                         })() : ((((function(){
5669                             var tmp = v463;
5670                             return tmp === v2? v2: tmp.car;
5671                         })() === l170)?v3: v2) !== v2 ? (function(){
5672                             return (function(){
5673                                 var tmp = v463;
5674                                 return tmp === v2? v2: tmp.car;
5675                             })();
5676                         })() : ((((function(){
5677                             var tmp = v463;
5678                             return tmp === v2? v2: tmp.car;
5679                         })() === l171)?v3: v2) !== v2 ? (function(){
5680                             return f124(f124(f23(v463)));
5681                         })() : (function(){
5682                             return ({car: l172, cdr: f45((function (v464){
5683                                 if (arguments.length < 1) throw 'too few arguments';
5684                                 if (arguments.length > 1) throw 'too many arguments';
5685                                 return ((f36(v464) !== v2 ? (((function(){
5686                                     var tmp = v464;
5687                                     return tmp === v2? v2: tmp.car;
5688                                 })() === l173)?v3: v2) : v2) !== v2 ? (function(){
5689                                     return f33(l174, f23(v464));
5690                                 })() : ((f36(v464) !== v2 ? (((function(){
5691                                     var tmp = v464;
5692                                     return tmp === v2? v2: tmp.car;
5693                                 })() === l175)?v3: v2) : v2) !== v2 ? (function(){
5694                                     return f23(v464);
5695                                 })() : (function(){
5696                                     return f33(l176, f124(v464));
5697                                 })()));
5698
5699                             }), v463)});
5700                         })()))));
5701                     })();
5702                 }
5703                 catch (cf){
5704                     if (cf.type == 'block' && cf.id == 161)
5705                         return cf.value;
5706                     else
5707                         throw cf;
5708                 }
5709             })();
5710
5711         }));
5712     })();
5713     return l177;
5714 })();
5715 var l179 = f3("BACKQUOTE-EXPAND");
5716 var l178 = f3("BACKQUOTE");
5717 var f125;
5718 (function(){
5719     (function(){
5720         return f125 = (function(v465){
5721             ((v465)["fname"] = "BACKQUOTE-EXPAND");
5722             return v465;
5723         })((function (v466){
5724             if (arguments.length < 1) throw 'too few arguments';
5725             if (arguments.length > 1) throw 'too many arguments';
5726             return (function(){
5727                 try {
5728                     return (function(){
5729                         return ((f36(v466) !== v2 ? (((function(){
5730                             var tmp = v466;
5731                             return tmp === v2? v2: tmp.car;
5732                         })() === l178)?v3: v2) : v2) !== v2 ? f124(f23(v466)) : v466);
5733                     })();
5734                 }
5735                 catch (cf){
5736                     if (cf.type == 'block' && cf.id == 162)
5737                         return cf.value;
5738                     else
5739                         throw cf;
5740                 }
5741             })();
5742
5743         }));
5744     })();
5745     return l179;
5746 })();
5747 var l180 = f3("BACKQUOTE");
5748 v339 = ({car: f33(l180, (function (v467,v468){
5749     if (arguments.length < 2) throw 'too few arguments';
5750     if (arguments.length > 2) throw 'too many arguments';
5751     return (function(){
5752         try {
5753             return (function(){
5754                 return f74(f124(v468), v467);
5755             })();
5756         }
5757         catch (cf){
5758             if (cf.type == 'block' && cf.id == 163)
5759                 return cf.value;
5760             else
5761                 throw cf;
5762         }
5763     })();
5764
5765 })), cdr: v339});
5766 var l181 = f3("NUM-OP-NUM");
5767 var f126;
5768 (function(){
5769     (function(){
5770         return f126 = (function(v469){
5771             ((v469)["fname"] = "NUM-OP-NUM");
5772             return v469;
5773         })((function (v470,v471,v472){
5774             if (arguments.length < 3) throw 'too few arguments';
5775             if (arguments.length > 3) throw 'too many arguments';
5776             return (function(){
5777                 try {
5778                     return (function(){
5779                         return f69("(function(){", v179, f72(f69("var ", "x", " = ", v470, ";", v179), f69("var ", "y", " = ", v472, ";", v179), f69("if (typeof ", "x", " != '", "number", "')", v179, f72("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v179)), f69("if (typeof ", "y", " != '", "number", "')", v179, f72("throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", v179)), f69("return ", (function(){
5780                             return f69("x", v471, "y");
5781                         })(), ";", v179)), "})()");
5782                     })();
5783                 }
5784                 catch (cf){
5785                     if (cf.type == 'block' && cf.id == 164)
5786                         return cf.value;
5787                     else
5788                         throw cf;
5789                 }
5790             })();
5791
5792         }));
5793     })();
5794     return l181;
5795 })();
5796 var l182 = f3("+");
5797 v339 = ({car: f33(l182, (function (v473,v474,v475){
5798     if (arguments.length < 3) throw 'too few arguments';
5799     if (arguments.length > 3) throw 'too many arguments';
5800     return (function(){
5801         try {
5802             return (function(){
5803                 return (function(v476,v477){
5804                     return f126(v476, "+", v477);
5805                 })(f74(v474, v473),f74(v475, v473));
5806             })();
5807         }
5808         catch (cf){
5809             if (cf.type == 'block' && cf.id == 165)
5810                 return cf.value;
5811             else
5812                 throw cf;
5813         }
5814     })();
5815
5816 })), cdr: v339});
5817 var l183 = f3("-");
5818 v339 = ({car: f33(l183, (function (v478,v479,v480){
5819     if (arguments.length < 3) throw 'too few arguments';
5820     if (arguments.length > 3) throw 'too many arguments';
5821     return (function(){
5822         try {
5823             return (function(){
5824                 return (function(v481,v482){
5825                     return f126(v481, "-", v482);
5826                 })(f74(v479, v478),f74(v480, v478));
5827             })();
5828         }
5829         catch (cf){
5830             if (cf.type == 'block' && cf.id == 166)
5831                 return cf.value;
5832             else
5833                 throw cf;
5834         }
5835     })();
5836
5837 })), cdr: v339});
5838 var l184 = f3("*");
5839 v339 = ({car: f33(l184, (function (v483,v484,v485){
5840     if (arguments.length < 3) throw 'too few arguments';
5841     if (arguments.length > 3) throw 'too many arguments';
5842     return (function(){
5843         try {
5844             return (function(){
5845                 return (function(v486,v487){
5846                     return f126(v486, "*", v487);
5847                 })(f74(v484, v483),f74(v485, v483));
5848             })();
5849         }
5850         catch (cf){
5851             if (cf.type == 'block' && cf.id == 167)
5852                 return cf.value;
5853             else
5854                 throw cf;
5855         }
5856     })();
5857
5858 })), cdr: v339});
5859 var l185 = f3("/");
5860 v339 = ({car: f33(l185, (function (v488,v489,v490){
5861     if (arguments.length < 3) throw 'too few arguments';
5862     if (arguments.length > 3) throw 'too many arguments';
5863     return (function(){
5864         try {
5865             return (function(){
5866                 return (function(v491,v492){
5867                     return f126(v491, "/", v492);
5868                 })(f74(v489, v488),f74(v490, v488));
5869             })();
5870         }
5871         catch (cf){
5872             if (cf.type == 'block' && cf.id == 168)
5873                 return cf.value;
5874             else
5875                 throw cf;
5876         }
5877     })();
5878
5879 })), cdr: v339});
5880 var l186 = f3("MOD");
5881 v339 = ({car: f33(l186, (function (v493,v494,v495){
5882     if (arguments.length < 3) throw 'too few arguments';
5883     if (arguments.length > 3) throw 'too many arguments';
5884     return (function(){
5885         try {
5886             return (function(){
5887                 return (function(v496,v497){
5888                     return f126(v496, "%", v497);
5889                 })(f74(v494, v493),f74(v495, v493));
5890             })();
5891         }
5892         catch (cf){
5893             if (cf.type == 'block' && cf.id == 169)
5894                 return cf.value;
5895             else
5896                 throw cf;
5897         }
5898     })();
5899
5900 })), cdr: v339});
5901 var l187 = f3("<");
5902 v339 = ({car: f33(l187, (function (v498,v499,v500){
5903     if (arguments.length < 3) throw 'too few arguments';
5904     if (arguments.length > 3) throw 'too many arguments';
5905     return (function(){
5906         try {
5907             return (function(){
5908                 return (function(v501,v502){
5909                     return f73(f126(v501, "<", v502));
5910                 })(f74(v499, v498),f74(v500, v498));
5911             })();
5912         }
5913         catch (cf){
5914             if (cf.type == 'block' && cf.id == 170)
5915                 return cf.value;
5916             else
5917                 throw cf;
5918         }
5919     })();
5920
5921 })), cdr: v339});
5922 var l188 = f3(">");
5923 v339 = ({car: f33(l188, (function (v503,v504,v505){
5924     if (arguments.length < 3) throw 'too few arguments';
5925     if (arguments.length > 3) throw 'too many arguments';
5926     return (function(){
5927         try {
5928             return (function(){
5929                 return (function(v506,v507){
5930                     return f73(f126(v506, ">", v507));
5931                 })(f74(v504, v503),f74(v505, v503));
5932             })();
5933         }
5934         catch (cf){
5935             if (cf.type == 'block' && cf.id == 171)
5936                 return cf.value;
5937             else
5938                 throw cf;
5939         }
5940     })();
5941
5942 })), cdr: v339});
5943 var l189 = f3("=");
5944 v339 = ({car: f33(l189, (function (v508,v509,v510){
5945     if (arguments.length < 3) throw 'too few arguments';
5946     if (arguments.length > 3) throw 'too many arguments';
5947     return (function(){
5948         try {
5949             return (function(){
5950                 return (function(v511,v512){
5951                     return f73(f126(v511, "==", v512));
5952                 })(f74(v509, v508),f74(v510, v508));
5953             })();
5954         }
5955         catch (cf){
5956             if (cf.type == 'block' && cf.id == 172)
5957                 return cf.value;
5958             else
5959                 throw cf;
5960         }
5961     })();
5962
5963 })), cdr: v339});
5964 var l190 = f3("<=");
5965 v339 = ({car: f33(l190, (function (v513,v514,v515){
5966     if (arguments.length < 3) throw 'too few arguments';
5967     if (arguments.length > 3) throw 'too many arguments';
5968     return (function(){
5969         try {
5970             return (function(){
5971                 return (function(v516,v517){
5972                     return f73(f126(v516, "<=", v517));
5973                 })(f74(v514, v513),f74(v515, v513));
5974             })();
5975         }
5976         catch (cf){
5977             if (cf.type == 'block' && cf.id == 173)
5978                 return cf.value;
5979             else
5980                 throw cf;
5981         }
5982     })();
5983
5984 })), cdr: v339});
5985 var l191 = f3(">=");
5986 v339 = ({car: f33(l191, (function (v518,v519,v520){
5987     if (arguments.length < 3) throw 'too few arguments';
5988     if (arguments.length > 3) throw 'too many arguments';
5989     return (function(){
5990         try {
5991             return (function(){
5992                 return (function(v521,v522){
5993                     return f73(f126(v521, ">=", v522));
5994                 })(f74(v519, v518),f74(v520, v518));
5995             })();
5996         }
5997         catch (cf){
5998             if (cf.type == 'block' && cf.id == 174)
5999                 return cf.value;
6000             else
6001                 throw cf;
6002         }
6003     })();
6004
6005 })), cdr: v339});
6006 var l192 = f3("NUMBERP");
6007 v339 = ({car: f33(l192, (function (v523,v524){
6008     if (arguments.length < 2) throw 'too few arguments';
6009     if (arguments.length > 2) throw 'too many arguments';
6010     return (function(){
6011         try {
6012             return (function(){
6013                 return (function(v525){
6014                     return f73(f69("(typeof (", v525, ") == \"number\")"));
6015                 })(f74(v524, v523));
6016             })();
6017         }
6018         catch (cf){
6019             if (cf.type == 'block' && cf.id == 175)
6020                 return cf.value;
6021             else
6022                 throw cf;
6023         }
6024     })();
6025
6026 })), cdr: v339});
6027 var l193 = f3("FLOOR");
6028 v339 = ({car: f33(l193, (function (v526,v527){
6029     if (arguments.length < 2) throw 'too few arguments';
6030     if (arguments.length > 2) throw 'too many arguments';
6031     return (function(){
6032         try {
6033             return (function(){
6034                 return (function(v528){
6035                     return f69("(function(){", v179, f72(f69("var ", "x", " = ", v528, ";", v179), f69("if (typeof ", "x", " != '", "number", "')", v179, f72("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v179)), f69("return ", (function(){
6036                         return "Math.floor(x)";
6037                     })(), ";", v179)), "})()");
6038                 })(f74(v527, v526));
6039             })();
6040         }
6041         catch (cf){
6042             if (cf.type == 'block' && cf.id == 176)
6043                 return cf.value;
6044             else
6045                 throw cf;
6046         }
6047     })();
6048
6049 })), cdr: v339});
6050 var l194 = f3("CONS");
6051 v339 = ({car: f33(l194, (function (v529,v530,v531){
6052     if (arguments.length < 3) throw 'too few arguments';
6053     if (arguments.length > 3) throw 'too many arguments';
6054     return (function(){
6055         try {
6056             return (function(){
6057                 return (function(v532,v533){
6058                     return f69("({car: ", v532, ", cdr: ", v533, "})");
6059                 })(f74(v530, v529),f74(v531, v529));
6060             })();
6061         }
6062         catch (cf){
6063             if (cf.type == 'block' && cf.id == 177)
6064                 return cf.value;
6065             else
6066                 throw cf;
6067         }
6068     })();
6069
6070 })), cdr: v339});
6071 var l195 = f3("CONSP");
6072 v339 = ({car: f33(l195, (function (v534,v535){
6073     if (arguments.length < 2) throw 'too few arguments';
6074     if (arguments.length > 2) throw 'too many arguments';
6075     return (function(){
6076         try {
6077             return (function(){
6078                 return (function(v536){
6079                     return f73(f69("(function(){", v179, f72("var tmp = ", v536, ";", v179, "return (typeof tmp == 'object' && 'car' in tmp);", v179), "})()"));
6080                 })(f74(v535, v534));
6081             })();
6082         }
6083         catch (cf){
6084             if (cf.type == 'block' && cf.id == 178)
6085                 return cf.value;
6086             else
6087                 throw cf;
6088         }
6089     })();
6090
6091 })), cdr: v339});
6092 var l196 = f3("CAR");
6093 v339 = ({car: f33(l196, (function (v537,v538){
6094     if (arguments.length < 2) throw 'too few arguments';
6095     if (arguments.length > 2) throw 'too many arguments';
6096     return (function(){
6097         try {
6098             return (function(){
6099                 return (function(v539){
6100                     return f69("(function(){", v179, f72("var tmp = ", v539, ";", v179, "return tmp === ", f74(v2), "? ", f74(v2), ": tmp.car;", v179), "})()");
6101                 })(f74(v538, v537));
6102             })();
6103         }
6104         catch (cf){
6105             if (cf.type == 'block' && cf.id == 179)
6106                 return cf.value;
6107             else
6108                 throw cf;
6109         }
6110     })();
6111
6112 })), cdr: v339});
6113 var l197 = f3("CDR");
6114 v339 = ({car: f33(l197, (function (v540,v541){
6115     if (arguments.length < 2) throw 'too few arguments';
6116     if (arguments.length > 2) throw 'too many arguments';
6117     return (function(){
6118         try {
6119             return (function(){
6120                 return (function(v542){
6121                     return f69("(function(){", v179, f72("var tmp = ", v542, ";", v179, "return tmp === ", f74(v2), "? ", f74(v2), ": tmp.cdr;", v179), "})()");
6122                 })(f74(v541, v540));
6123             })();
6124         }
6125         catch (cf){
6126             if (cf.type == 'block' && cf.id == 180)
6127                 return cf.value;
6128             else
6129                 throw cf;
6130         }
6131     })();
6132
6133 })), cdr: v339});
6134 var l198 = f3("SETCAR");
6135 v339 = ({car: f33(l198, (function (v543,v544,v545){
6136     if (arguments.length < 3) throw 'too few arguments';
6137     if (arguments.length > 3) throw 'too many arguments';
6138     return (function(){
6139         try {
6140             return (function(){
6141                 return (function(v546,v547){
6142                     return f69("(function(){", v179, f72(f69("var ", "x", " = ", v546, ";", v179), f69("if (typeof ", "x", " != '", "object", "')", v179, f72("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v179)), f69("return ", (function(){
6143                         return f69("(x.car = ", v547, ")");
6144                     })(), ";", v179)), "})()");
6145                 })(f74(v544, v543),f74(v545, v543));
6146             })();
6147         }
6148         catch (cf){
6149             if (cf.type == 'block' && cf.id == 181)
6150                 return cf.value;
6151             else
6152                 throw cf;
6153         }
6154     })();
6155
6156 })), cdr: v339});
6157 var l199 = f3("SETCDR");
6158 v339 = ({car: f33(l199, (function (v548,v549,v550){
6159     if (arguments.length < 3) throw 'too few arguments';
6160     if (arguments.length > 3) throw 'too many arguments';
6161     return (function(){
6162         try {
6163             return (function(){
6164                 return (function(v551,v552){
6165                     return f69("(function(){", v179, f72(f69("var ", "x", " = ", v551, ";", v179), f69("if (typeof ", "x", " != '", "object", "')", v179, f72("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v179)), f69("return ", (function(){
6166                         return f69("(x.cdr = ", v552, ")");
6167                     })(), ";", v179)), "})()");
6168                 })(f74(v549, v548),f74(v550, v548));
6169             })();
6170         }
6171         catch (cf){
6172             if (cf.type == 'block' && cf.id == 182)
6173                 return cf.value;
6174             else
6175                 throw cf;
6176         }
6177     })();
6178
6179 })), cdr: v339});
6180 var l200 = f3("SYMBOLP");
6181 v339 = ({car: f33(l200, (function (v553,v554){
6182     if (arguments.length < 2) throw 'too few arguments';
6183     if (arguments.length > 2) throw 'too many arguments';
6184     return (function(){
6185         try {
6186             return (function(){
6187                 return (function(v555){
6188                     return f73(f69("(function(){", v179, f72("var tmp = ", v555, ";", v179, "return (typeof tmp == 'object' && 'name' in tmp);", v179), "})()"));
6189                 })(f74(v554, v553));
6190             })();
6191         }
6192         catch (cf){
6193             if (cf.type == 'block' && cf.id == 183)
6194                 return cf.value;
6195             else
6196                 throw cf;
6197         }
6198     })();
6199
6200 })), cdr: v339});
6201 var l201 = f3("MAKE-SYMBOL");
6202 v339 = ({car: f33(l201, (function (v556,v557){
6203     if (arguments.length < 2) throw 'too few arguments';
6204     if (arguments.length > 2) throw 'too many arguments';
6205     return (function(){
6206         try {
6207             return (function(){
6208                 return (function(v558){
6209                     return f69("(function(){", v179, f72(f69("var ", "name", " = ", v558, ";", v179), f69("if (typeof ", "name", " != '", "string", "')", v179, f72("throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", v179)), f69("return ", (function(){
6210                         return "({name: name})";
6211                     })(), ";", v179)), "})()");
6212                 })(f74(v557, v556));
6213             })();
6214         }
6215         catch (cf){
6216             if (cf.type == 'block' && cf.id == 184)
6217                 return cf.value;
6218             else
6219                 throw cf;
6220         }
6221     })();
6222
6223 })), cdr: v339});
6224 var l202 = f3("SYMBOL-NAME");
6225 v339 = ({car: f33(l202, (function (v559,v560){
6226     if (arguments.length < 2) throw 'too few arguments';
6227     if (arguments.length > 2) throw 'too many arguments';
6228     return (function(){
6229         try {
6230             return (function(){
6231                 return (function(v561){
6232                     return f69("(", v561, ").name");
6233                 })(f74(v560, v559));
6234             })();
6235         }
6236         catch (cf){
6237             if (cf.type == 'block' && cf.id == 185)
6238                 return cf.value;
6239             else
6240                 throw cf;
6241         }
6242     })();
6243
6244 })), cdr: v339});
6245 var l203 = f3("EQ");
6246 v339 = ({car: f33(l203, (function (v562,v563,v564){
6247     if (arguments.length < 3) throw 'too few arguments';
6248     if (arguments.length > 3) throw 'too many arguments';
6249     return (function(){
6250         try {
6251             return (function(){
6252                 return (function(v565,v566){
6253                     return f73(f69("(", v565, " === ", v566, ")"));
6254                 })(f74(v563, v562),f74(v564, v562));
6255             })();
6256         }
6257         catch (cf){
6258             if (cf.type == 'block' && cf.id == 186)
6259                 return cf.value;
6260             else
6261                 throw cf;
6262         }
6263     })();
6264
6265 })), cdr: v339});
6266 var l204 = f3("EQUAL");
6267 v339 = ({car: f33(l204, (function (v567,v568,v569){
6268     if (arguments.length < 3) throw 'too few arguments';
6269     if (arguments.length > 3) throw 'too many arguments';
6270     return (function(){
6271         try {
6272             return (function(){
6273                 return (function(v570,v571){
6274                     return f73(f69("(", v570, " == ", v571, ")"));
6275                 })(f74(v568, v567),f74(v569, v567));
6276             })();
6277         }
6278         catch (cf){
6279             if (cf.type == 'block' && cf.id == 187)
6280                 return cf.value;
6281             else
6282                 throw cf;
6283         }
6284     })();
6285
6286 })), cdr: v339});
6287 var l205 = f3("STRING");
6288 v339 = ({car: f33(l205, (function (v572,v573){
6289     if (arguments.length < 2) throw 'too few arguments';
6290     if (arguments.length > 2) throw 'too many arguments';
6291     return (function(){
6292         try {
6293             return (function(){
6294                 return (function(v574){
6295                     return f69("(function(){", v179, f72(f69("var ", "x", " = ", v574, ";", v179), f69("if (typeof ", "x", " != '", "number", "')", v179, f72("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v179)), f69("return ", (function(){
6296                         return "String.fromCharCode(x)";
6297                     })(), ";", v179)), "})()");
6298                 })(f74(v573, v572));
6299             })();
6300         }
6301         catch (cf){
6302             if (cf.type == 'block' && cf.id == 188)
6303                 return cf.value;
6304             else
6305                 throw cf;
6306         }
6307     })();
6308
6309 })), cdr: v339});
6310 var l206 = f3("STRINGP");
6311 v339 = ({car: f33(l206, (function (v575,v576){
6312     if (arguments.length < 2) throw 'too few arguments';
6313     if (arguments.length > 2) throw 'too many arguments';
6314     return (function(){
6315         try {
6316             return (function(){
6317                 return (function(v577){
6318                     return f73(f69("(typeof(", v577, ") == \"string\")"));
6319                 })(f74(v576, v575));
6320             })();
6321         }
6322         catch (cf){
6323             if (cf.type == 'block' && cf.id == 189)
6324                 return cf.value;
6325             else
6326                 throw cf;
6327         }
6328     })();
6329
6330 })), cdr: v339});
6331 var l207 = f3("STRING-UPCASE");
6332 v339 = ({car: f33(l207, (function (v578,v579){
6333     if (arguments.length < 2) throw 'too few arguments';
6334     if (arguments.length > 2) throw 'too many arguments';
6335     return (function(){
6336         try {
6337             return (function(){
6338                 return (function(v580){
6339                     return f69("(function(){", v179, f72(f69("var ", "x", " = ", v580, ";", v179), f69("if (typeof ", "x", " != '", "string", "')", v179, f72("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v179)), f69("return ", (function(){
6340                         return "x.toUpperCase()";
6341                     })(), ";", v179)), "})()");
6342                 })(f74(v579, v578));
6343             })();
6344         }
6345         catch (cf){
6346             if (cf.type == 'block' && cf.id == 190)
6347                 return cf.value;
6348             else
6349                 throw cf;
6350         }
6351     })();
6352
6353 })), cdr: v339});
6354 var l208 = f3("STRING-LENGTH");
6355 v339 = ({car: f33(l208, (function (v581,v582){
6356     if (arguments.length < 2) throw 'too few arguments';
6357     if (arguments.length > 2) throw 'too many arguments';
6358     return (function(){
6359         try {
6360             return (function(){
6361                 return (function(v583){
6362                     return f69("(function(){", v179, f72(f69("var ", "x", " = ", v583, ";", v179), f69("if (typeof ", "x", " != '", "string", "')", v179, f72("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v179)), f69("return ", (function(){
6363                         return "x.length";
6364                     })(), ";", v179)), "})()");
6365                 })(f74(v582, v581));
6366             })();
6367         }
6368         catch (cf){
6369             if (cf.type == 'block' && cf.id == 191)
6370                 return cf.value;
6371             else
6372                 throw cf;
6373         }
6374     })();
6375
6376 })), cdr: v339});
6377 var l209 = f3("SLICE");
6378 v339 = ({car: f33(l209, (function (v584,v585,v586,v587){
6379     if (arguments.length < 3) throw 'too few arguments';
6380     if (arguments.length > 4) throw 'too many arguments';
6381     switch(arguments.length){
6382     case 3:
6383     v587=v2;
6384     default: break;
6385     }
6386     return (function(){
6387         try {
6388             return (function(){
6389                 return f69("(function(){", v179, f72("var str = ", f74(v585, v584), ";", v179, "var a = ", f74(v586, v584), ";", v179, "var b;", v179, (v587 !== v2 ? f69("b = ", f74(v587, v584), ";", v179) : ""), "return str.slice(a,b);", v179), "})()");
6390             })();
6391         }
6392         catch (cf){
6393             if (cf.type == 'block' && cf.id == 192)
6394                 return cf.value;
6395             else
6396                 throw cf;
6397         }
6398     })();
6399
6400 })), cdr: v339});
6401 var l210 = f3("CHAR");
6402 v339 = ({car: f33(l210, (function (v588,v589,v590){
6403     if (arguments.length < 3) throw 'too few arguments';
6404     if (arguments.length > 3) throw 'too many arguments';
6405     return (function(){
6406         try {
6407             return (function(){
6408                 return (function(v591,v592){
6409                     return f69("(function(){", v179, f72(f69("var ", "string", " = ", v591, ";", v179), f69("var ", "index", " = ", v592, ";", v179), f69("if (typeof ", "string", " != '", "string", "')", v179, f72("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v179)), f69("if (typeof ", "index", " != '", "number", "')", v179, f72("throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", v179)), f69("return ", (function(){
6410                         return "string.charCodeAt(index)";
6411                     })(), ";", v179)), "})()");
6412                 })(f74(v589, v588),f74(v590, v588));
6413             })();
6414         }
6415         catch (cf){
6416             if (cf.type == 'block' && cf.id == 193)
6417                 return cf.value;
6418             else
6419                 throw cf;
6420         }
6421     })();
6422
6423 })), cdr: v339});
6424 var l211 = f3("CONCAT-TWO");
6425 v339 = ({car: f33(l211, (function (v593,v594,v595){
6426     if (arguments.length < 3) throw 'too few arguments';
6427     if (arguments.length > 3) throw 'too many arguments';
6428     return (function(){
6429         try {
6430             return (function(){
6431                 return (function(v596,v597){
6432                     return f69("(function(){", v179, f72(f69("var ", "string1", " = ", v596, ";", v179), f69("var ", "string2", " = ", v597, ";", v179), f69("if (typeof ", "string1", " != '", "string", "')", v179, f72("throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", v179)), f69("if (typeof ", "string2", " != '", "string", "')", v179, f72("throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", v179)), f69("return ", (function(){
6433                         return "string1.concat(string2)";
6434                     })(), ";", v179)), "})()");
6435                 })(f74(v594, v593),f74(v595, v593));
6436             })();
6437         }
6438         catch (cf){
6439             if (cf.type == 'block' && cf.id == 194)
6440                 return cf.value;
6441             else
6442                 throw cf;
6443         }
6444     })();
6445
6446 })), cdr: v339});
6447 var l212 = f3("FUNCALL");
6448 v339 = ({car: f33(l212, (function (v599,v600){
6449     if (arguments.length < 2) throw 'too few arguments';
6450     var v598= v2;
6451     for (var i = arguments.length-1; i>=2; i--)
6452         v598 = {car: arguments[i], cdr:
6453     v598};
6454     return (function(){
6455         try {
6456             return (function(){
6457                 return f69("(", f74(v600, v599), ")(", f70(f45((function (v601){
6458                     if (arguments.length < 1) throw 'too few arguments';
6459                     if (arguments.length > 1) throw 'too many arguments';
6460                     return f74(v601, v599);
6461
6462                 }), v598), ", "), ")");
6463             })();
6464         }
6465         catch (cf){
6466             if (cf.type == 'block' && cf.id == 195)
6467                 return cf.value;
6468             else
6469                 throw cf;
6470         }
6471     })();
6472
6473 })), cdr: v339});
6474 var l213 = f3("APPLY");
6475 v339 = ({car: f33(l213, (function (v603,v604){
6476     if (arguments.length < 2) throw 'too few arguments';
6477     var v602= v2;
6478     for (var i = arguments.length-1; i>=2; i--)
6479         v602 = {car: arguments[i], cdr:
6480     v602};
6481     return (function(){
6482         try {
6483             return (function(){
6484                 return (f1(v602) !== v2 ? f69("(", f74(v604, v603), ")()") : (function(v605,v606){
6485                     return f69("(function(){", v179, f72("var f = ", f74(v604, v603), ";", v179, "var args = [", f70(f45((function (v607){
6486                         if (arguments.length < 1) throw 'too few arguments';
6487                         if (arguments.length > 1) throw 'too many arguments';
6488                         return f74(v607, v603);
6489
6490                     }), v605), ", "), "];", v179, "var tail = (", f74(v606, v603), ");", v179, "while (tail != ", f74(v2), "){", v179, "    args.push(tail.car);", v179, "    tail = tail.cdr;", v179, "}", v179, "return f.apply(this, args);", v179), "})()");
6491                 })(f57(v602),(function(){
6492                     var tmp = f56(v602);
6493                     return tmp === v2? v2: tmp.car;
6494                 })()));
6495             })();
6496         }
6497         catch (cf){
6498             if (cf.type == 'block' && cf.id == 196)
6499                 return cf.value;
6500             else
6501                 throw cf;
6502         }
6503     })();
6504
6505 })), cdr: v339});
6506 var l214 = f3("JS-EVAL");
6507 v339 = ({car: f33(l214, (function (v608,v609){
6508     if (arguments.length < 2) throw 'too few arguments';
6509     if (arguments.length > 2) throw 'too many arguments';
6510     return (function(){
6511         try {
6512             return (function(){
6513                 return (function(v610){
6514                     return f69("(function(){", v179, f72(f69("var ", "string", " = ", v610, ";", v179), f69("if (typeof ", "string", " != '", "string", "')", v179, f72("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v179)), f69("return ", (function(){
6515                         return "eval.apply(window, [string])";
6516                     })(), ";", v179)), "})()");
6517                 })(f74(v609, v608));
6518             })();
6519         }
6520         catch (cf){
6521             if (cf.type == 'block' && cf.id == 197)
6522                 return cf.value;
6523             else
6524                 throw cf;
6525         }
6526     })();
6527
6528 })), cdr: v339});
6529 var l215 = f3("ERROR");
6530 v339 = ({car: f33(l215, (function (v611,v612){
6531     if (arguments.length < 2) throw 'too few arguments';
6532     if (arguments.length > 2) throw 'too many arguments';
6533     return (function(){
6534         try {
6535             return (function(){
6536                 return (function(v613){
6537                     return f69("(function(){", v179, f72("throw ", v613, ";", v179), "})()");
6538                 })(f74(v612, v611));
6539             })();
6540         }
6541         catch (cf){
6542             if (cf.type == 'block' && cf.id == 198)
6543                 return cf.value;
6544             else
6545                 throw cf;
6546         }
6547     })();
6548
6549 })), cdr: v339});
6550 var l216 = f3("NEW");
6551 v339 = ({car: f33(l216, (function (v614){
6552     if (arguments.length < 1) throw 'too few arguments';
6553     if (arguments.length > 1) throw 'too many arguments';
6554     return (function(){
6555         try {
6556             return (function(){
6557                 return (function(){
6558                     return "{}";
6559                 })();
6560             })();
6561         }
6562         catch (cf){
6563             if (cf.type == 'block' && cf.id == 199)
6564                 return cf.value;
6565             else
6566                 throw cf;
6567         }
6568     })();
6569
6570 })), cdr: v339});
6571 var l217 = f3("GET");
6572 v339 = ({car: f33(l217, (function (v615,v616,v617){
6573     if (arguments.length < 3) throw 'too few arguments';
6574     if (arguments.length > 3) throw 'too many arguments';
6575     return (function(){
6576         try {
6577             return (function(){
6578                 return (function(v618,v619){
6579                     return f69("(function(){", v179, f72("var tmp = ", "(", v618, ")[", v619, "];", v179, "return tmp == undefined? ", f74(v2), ": tmp ;", v179), "})()");
6580                 })(f74(v616, v615),f74(v617, v615));
6581             })();
6582         }
6583         catch (cf){
6584             if (cf.type == 'block' && cf.id == 200)
6585                 return cf.value;
6586             else
6587                 throw cf;
6588         }
6589     })();
6590
6591 })), cdr: v339});
6592 var l218 = f3("SET");
6593 v339 = ({car: f33(l218, (function (v620,v621,v622,v623){
6594     if (arguments.length < 4) throw 'too few arguments';
6595     if (arguments.length > 4) throw 'too many arguments';
6596     return (function(){
6597         try {
6598             return (function(){
6599                 return (function(v624,v625,v626){
6600                     return f69("((", v624, ")[", v625, "] = ", v626, ")");
6601                 })(f74(v621, v620),f74(v622, v620),f74(v623, v620));
6602             })();
6603         }
6604         catch (cf){
6605             if (cf.type == 'block' && cf.id == 201)
6606                 return cf.value;
6607             else
6608                 throw cf;
6609         }
6610     })();
6611
6612 })), cdr: v339});
6613 var l219 = f3("IN");
6614 v339 = ({car: f33(l219, (function (v627,v628,v629){
6615     if (arguments.length < 3) throw 'too few arguments';
6616     if (arguments.length > 3) throw 'too many arguments';
6617     return (function(){
6618         try {
6619             return (function(){
6620                 return (function(v630,v631){
6621                     return f73(f69("((", v630, ") in (", v631, "))"));
6622                 })(f74(v628, v627),f74(v629, v627));
6623             })();
6624         }
6625         catch (cf){
6626             if (cf.type == 'block' && cf.id == 202)
6627                 return cf.value;
6628             else
6629                 throw cf;
6630         }
6631     })();
6632
6633 })), cdr: v339});
6634 var l220 = f3("FUNCTIONP");
6635 v339 = ({car: f33(l220, (function (v632,v633){
6636     if (arguments.length < 2) throw 'too few arguments';
6637     if (arguments.length > 2) throw 'too many arguments';
6638     return (function(){
6639         try {
6640             return (function(){
6641                 return (function(v634){
6642                     return f73(f69("(typeof ", v634, " == 'function')"));
6643                 })(f74(v633, v632));
6644             })();
6645         }
6646         catch (cf){
6647             if (cf.type == 'block' && cf.id == 203)
6648                 return cf.value;
6649             else
6650                 throw cf;
6651         }
6652     })();
6653
6654 })), cdr: v339});
6655 var l221 = f3("WRITE-STRING");
6656 v339 = ({car: f33(l221, (function (v635,v636){
6657     if (arguments.length < 2) throw 'too few arguments';
6658     if (arguments.length > 2) throw 'too many arguments';
6659     return (function(){
6660         try {
6661             return (function(){
6662                 return (function(v637){
6663                     return f69("(function(){", v179, f72(f69("var ", "x", " = ", v637, ";", v179), f69("if (typeof ", "x", " != '", "string", "')", v179, f72("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v179)), f69("return ", (function(){
6664                         return "lisp.write(x)";
6665                     })(), ";", v179)), "})()");
6666                 })(f74(v636, v635));
6667             })();
6668         }
6669         catch (cf){
6670             if (cf.type == 'block' && cf.id == 204)
6671                 return cf.value;
6672             else
6673                 throw cf;
6674         }
6675     })();
6676
6677 })), cdr: v339});
6678 var l223 = f3("MACROP");
6679 var l222 = f3("MACRO");
6680 var f127;
6681 (function(){
6682     (function(){
6683         return f127 = (function(v638){
6684             ((v638)["fname"] = "MACROP");
6685             return v638;
6686         })((function (v639){
6687             if (arguments.length < 1) throw 'too few arguments';
6688             if (arguments.length > 1) throw 'too many arguments';
6689             return (function(){
6690                 try {
6691                     return (function(){
6692                         return (((function(){
6693                             var tmp = v639;
6694                             return (typeof tmp == 'object' && 'name' in tmp);
6695                         })()?v3: v2) !== v2 ? ((f94(f108(v639, v293)) === l222)?v3: v2) : v2);
6696                     })();
6697                 }
6698                 catch (cf){
6699                     if (cf.type == 'block' && cf.id == 205)
6700                         return cf.value;
6701                     else
6702                         throw cf;
6703                 }
6704             })();
6705
6706         }));
6707     })();
6708     return l223;
6709 })();
6710 var l225 = f3("LS-MACROEXPAND-1");
6711 var l224 = f3("MACRO");
6712 var f128;
6713 (function(){
6714     (function(){
6715         return f128 = (function(v640){
6716             ((v640)["fname"] = "LS-MACROEXPAND-1");
6717             return v640;
6718         })((function (v641,v642){
6719             if (arguments.length < 2) throw 'too few arguments';
6720             if (arguments.length > 2) throw 'too many arguments';
6721             return (function(){
6722                 try {
6723                     return (function(){
6724                         return (f127((function(){
6725                             var tmp = v641;
6726                             return tmp === v2? v2: tmp.car;
6727                         })()) !== v2 ? (function(v643){
6728                             return (((f94(v643) === l224)?v3: v2) !== v2 ? (function(){
6729                                 var f = f121(f95(v643));
6730                                 var args = [];
6731                                 var tail = ((function(){
6732                                     var tmp = v641;
6733                                     return tmp === v2? v2: tmp.cdr;
6734                                 })());
6735                                 while (tail != v2){
6736                                     args.push(tail.car);
6737                                     tail = tail.cdr;
6738                                 }
6739                                 return f.apply(this, args);
6740                             })() : v641);
6741                         })(f108((function(){
6742                             var tmp = v641;
6743                             return tmp === v2? v2: tmp.car;
6744                         })(), v293)) : v641);
6745                     })();
6746                 }
6747                 catch (cf){
6748                     if (cf.type == 'block' && cf.id == 206)
6749                         return cf.value;
6750                     else
6751                         throw cf;
6752                 }
6753             })();
6754
6755         }));
6756     })();
6757     return l225;
6758 })();
6759 var l227 = f3("COMPILE-FUNCALL");
6760 var l226 = f3("LAMBDA");
6761 var f129;
6762 (function(){
6763     (function(){
6764         return f129 = (function(v644){
6765             ((v644)["fname"] = "COMPILE-FUNCALL");
6766             return v644;
6767         })((function (v645,v646,v647){
6768             if (arguments.length < 3) throw 'too few arguments';
6769             if (arguments.length > 3) throw 'too many arguments';
6770             return (function(){
6771                 try {
6772                     return (function(){
6773                         return (((function(){
6774                             var tmp = v645;
6775                             return (typeof tmp == 'object' && 'name' in tmp);
6776                         })()?v3: v2) !== v2 ? (function(){
6777                             return f69(f109(v645, v647), "(", f70(f45((function (v648){
6778                                 if (arguments.length < 1) throw 'too few arguments';
6779                                 if (arguments.length > 1) throw 'too many arguments';
6780                                 return f74(v648, v647);
6781
6782                             }), v646), ", "), ")");
6783                         })() : ((f36(v645) !== v2 ? (((function(){
6784                             var tmp = v645;
6785                             return tmp === v2? v2: tmp.car;
6786                         })() === l226)?v3: v2) : v2) !== v2 ? (function(){
6787                             return f69("(", f74(v645, v647), ")(", f70(f45((function (v649){
6788                                 if (arguments.length < 1) throw 'too few arguments';
6789                                 if (arguments.length > 1) throw 'too many arguments';
6790                                 return f74(v649, v647);
6791
6792                             }), v646), ", "), ")");
6793                         })() : (function(){
6794                             return (function(){
6795                                 throw f69("Invalid function designator ", (v645).name);
6796                             })();
6797                         })()));
6798                     })();
6799                 }
6800                 catch (cf){
6801                     if (cf.type == 'block' && cf.id == 207)
6802                         return cf.value;
6803                     else
6804                         throw cf;
6805                 }
6806             })();
6807
6808         }));
6809     })();
6810     return l227;
6811 })();
6812 var l228 = f3("LS-COMPILE");
6813 var f74;
6814 (function(){
6815     (function(){
6816         return f74 = (function(v650){
6817             ((v650)["fname"] = "LS-COMPILE");
6818             return v650;
6819         })((function (v651,v652){
6820             if (arguments.length < 1) throw 'too few arguments';
6821             if (arguments.length > 2) throw 'too many arguments';
6822             switch(arguments.length){
6823             case 1:
6824             v652=f98();
6825             default: break;
6826             }
6827             return (function(){
6828                 try {
6829                     return (function(){
6830                         return (((function(){
6831                             var tmp = v651;
6832                             return (typeof tmp == 'object' && 'name' in tmp);
6833                         })()?v3: v2) !== v2 ? (function(){
6834                             return f106(v651, v652);
6835                         })() : (f51(v651) !== v2 ? (function(){
6836                             return f6(v651);
6837                         })() : (((typeof(v651) == "string")?v3: v2) !== v2 ? (function(){
6838                             return f69("\"", f76(v651), "\"");
6839                         })() : (f36(v651) !== v2 ? (function(){
6840                             return (f67((function(){
6841                                 var tmp = v651;
6842                                 return tmp === v2? v2: tmp.car;
6843                             })(), v339) !== v2 ? (function(v653){
6844                                 return (function(){
6845                                     var f = v653;
6846                                     var args = [v652];
6847                                     var tail = ((function(){
6848                                         var tmp = v651;
6849                                         return tmp === v2? v2: tmp.cdr;
6850                                     })());
6851                                     while (tail != v2){
6852                                         args.push(tail.car);
6853                                         tail = tail.cdr;
6854                                     }
6855                                     return f.apply(this, args);
6856                                 })();
6857                             })(f30(f67((function(){
6858                                 var tmp = v651;
6859                                 return tmp === v2? v2: tmp.car;
6860                             })(), v339))) : (f127((function(){
6861                                 var tmp = v651;
6862                                 return tmp === v2? v2: tmp.car;
6863                             })()) !== v2 ? f74(f128(v651, v652), v652) : f129((function(){
6864                                 var tmp = v651;
6865                                 return tmp === v2? v2: tmp.car;
6866                             })(), (function(){
6867                                 var tmp = v651;
6868                                 return tmp === v2? v2: tmp.cdr;
6869                             })(), v652)));
6870                         })() : v2))));
6871                     })();
6872                 }
6873                 catch (cf){
6874                     if (cf.type == 'block' && cf.id == 208)
6875                         return cf.value;
6876                     else
6877                         throw cf;
6878                 }
6879             })();
6880
6881         }));
6882     })();
6883     return l228;
6884 })();
6885 var l229 = f3("LS-COMPILE-TOPLEVEL");
6886 var f130;
6887 (function(){
6888     (function(){
6889         return f130 = (function(v654){
6890             ((v654)["fname"] = "LS-COMPILE-TOPLEVEL");
6891             return v654;
6892         })((function (v655){
6893             if (arguments.length < 1) throw 'too few arguments';
6894             if (arguments.length > 1) throw 'too many arguments';
6895             return (function(){
6896                 try {
6897                     return (function(){
6898                         v329 = v2;
6899                         return (function(v656){
6900                             return (function(v657){
6901                                 v329 = v2;
6902                                 return v657;
6903                             })(f69(f70(f45((function (v658){
6904                                 if (arguments.length < 1) throw 'too few arguments';
6905                                 if (arguments.length > 1) throw 'too many arguments';
6906                                 return f69(v658, ";", v179);
6907
6908                             }), v329)), v656));
6909                         })(f74(v655));
6910                     })();
6911                 }
6912                 catch (cf){
6913                     if (cf.type == 'block' && cf.id == 209)
6914                         return cf.value;
6915                     else
6916                         throw cf;
6917                 }
6918             })();
6919
6920         }));
6921     })();
6922     return l229;
6923 })();
6924 var l240 = f3("LS-COMPILE-TOPLEVEL");
6925 var l239 = f3("EVAL");
6926 var l238 = f3("PRIN1-TO-STRING");
6927 var l237 = f3("LS-READ-FROM-STRING");
6928 var l236 = 211;
6929 var l235 = 157;
6930 var l234 = 230;
6931 var l233 = 130;
6932 var l232 = 664;
6933 var l231 = {car: {car: {car: f3("*GO-TAG-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v434", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*TAGBODY-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v433", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*BLOCK-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v417", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*LITERAL-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v393", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*LAMBDA-LIST-KEYWORDS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v350", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v339", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*TOPLEVEL-COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v329", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*FUNCTION-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v317", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*VARIABLE-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v296", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*ENVIRONMENT*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v293", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v257", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*EOF*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v250", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*NEWLINE*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v179", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*GENSYM-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v12", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("T"), cdr: {car: f3("VARIABLE"), cdr: {car: "v3", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NIL"), cdr: {car: f3("VARIABLE"), cdr: {car: "v2", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*PACKAGE*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v1", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}}}}}}}}}}}}}}, cdr: {car: {car: {car: f3("WITH-COMPILATION-UNIT"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROG1"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("SETQ"), cdr: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: {car: f3("NIL"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS"), cdr: f3("NIL")}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOLIST"), cdr: {car: {car: f3("CHECK"), cdr: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: f3("NIL")}}, cdr: {car: {car: f3("FUNCALL"), cdr: {car: f3("CHECK"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE-TOPLEVEL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f130", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COMPILE-FUNCALL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f129", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-MACROEXPAND-1"), cdr: {car: f3("FUNCTION"), cdr: {car: "f128", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MACROP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f127", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NUM-OP-NUM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f126", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TYPE-CHECK"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECLS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("JS!SELFCALL"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECL"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "var ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " = ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ";", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("DECLS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECL"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "if (typeof ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " != '", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: "')", cdr: {car: f3("*NEWLINE*"), cdr: {car: {car: f3("INDENT"), cdr: {car: "throw 'The value ' + ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " + ' is not a type ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ".';", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}}}, cdr: f3("NIL")}}}}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("DECLS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: "return ", cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ";", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFINE-BUILTIN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("DEFINE-COMPILATION"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ARG"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARG"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARG"), cdr: f3("NIL")}}, cdr: {car: f3("ENV"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("ARGS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE-EXPAND-1"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE-EXPAND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f125", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE-EXPAND-1"), cdr: {car: f3("FUNCTION"), cdr: {car: "f124", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DECLARE-TAGBODY-TAGS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f123", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GO-TAG-P"), cdr: {car: f3("FUNCTION"), cdr: {car: "f122", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFINE-TRANSFORMATION"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("DEFINE-COMPILATION"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: {car: f3("ENV"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EVAL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f121", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LITERAL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f120", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LITERAL->JS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f119", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-REST-ARGUMENT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f118", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f117", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f116", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-REQUIRED-ARGUMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f115", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST-UNTIL-KEYWORD"), cdr: {car: f3("FUNCTION"), cdr: {car: "f114", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFINE-COMPILATION"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PUSH"), cdr: {car: {car: f3("LIST"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ENV"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("BLOCK"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("*COMPILATIONS*"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE-BLOCK"), cdr: {car: f3("FUNCTION"), cdr: {car: "f113", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFMACRO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f112", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFUN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f111", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFVAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f110", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f109", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f108", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EXTEND-LOCAL-ENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f107", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f106", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f105", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GVARNAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f104", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f103", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-IN-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f102", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EXTEND-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f101", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PUSH-TO-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f100", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COPY-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f99", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f98", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MARK-BINDING-AS-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f97", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f96", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f95", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TYPE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f94", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-NAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f93", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-BINDING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f92", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ-FROM-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f91", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-SHARP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f90", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f89", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ"), cdr: {car: f3("FUNCTION"), cdr: {car: "f88", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f87", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES-AND-COMMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f86", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-UNTIL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f85", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TERMINALP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f84", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES"), cdr: {car: f3("FUNCTION"), cdr: {car: "f83", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHITESPACEP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f82", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f81", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%PEEK-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f80", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-STRING-STREAM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f79", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRINT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f78", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WRITE-LINE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f77", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ESCAPE-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f76", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRIN1-TO-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f75", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JS!SELFCALL"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "(function(){", cdr: {car: f3("*NEWLINE*"), cdr: {car: {car: f3("INDENT"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: "})()", cdr: f3("NIL")}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f74", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JS!BOOL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f73", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INDENT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f72", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JOIN-TRAILING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f71", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JOIN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f70", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCATF"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("VARIABLE"), cdr: {car: f3("&REST"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VARIABLE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VARIABLE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f69", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("STRING="), cdr: {car: f3("FUNCTION"), cdr: {car: "f68", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ASSOC"), cdr: {car: f3("FUNCTION"), cdr: {car: "f67", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EVERY"), cdr: {car: f3("FUNCTION"), cdr: {car: "f66", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SOME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f65", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PARSE-INTEGER"), cdr: {car: f3("FUNCTION"), cdr: {car: "f64", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SUBSEQ"), cdr: {car: f3("FUNCTION"), cdr: {car: "f63", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DIGIT-CHAR-P"), cdr: {car: f3("FUNCTION"), cdr: {car: "f62", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE-IF-NOT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f61", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE-IF"), cdr: {car: f3("FUNCTION"), cdr: {car: "f60", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f59", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MEMBER"), cdr: {car: f3("FUNCTION"), cdr: {car: "f58", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BUTLAST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f57", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f56", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f55", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NTHCDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f54", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MINUSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f53", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PLUSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f52", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTEGERP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f51", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CHAR="), cdr: {car: f3("FUNCTION"), cdr: {car: "f50", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CHAR-CODE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f49", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CODE-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f48", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COPY-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f47", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("IDENTITY"), cdr: {car: f3("FUNCTION"), cdr: {car: "f46", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAPCAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f45", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCAT-TWO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f44", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LENGTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f43", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST-LENGTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f42", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REVERSE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f41", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REVAPPEND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f40", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("APPEND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f39", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("APPEND-TWO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f38", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("%DEFVAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("%DEFUN"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("!REDUCE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f37", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LISTP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f36", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ENSURE-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f35", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PROG2"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM1"), cdr: {car: f3("RESULT"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROG1"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM1"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("RESULT"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PROG1"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("VALUE"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("OR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: {car: f3("NULL"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("NULL"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("T"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("G"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("OR"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("AND"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: {car: f3("NULL"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("NULL"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("T"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("AND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ECASE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CASE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("APPEND"), cdr: {car: f3("CLAUSULES"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("T"), cdr: {car: {car: f3("ERROR"), cdr: {car: "ECASE expression failed.", cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CASE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("!FORM"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("!FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("COND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CLAUSULE"), cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}, cdr: {car: f3("CLAUSULE"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("EQL"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("!FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COND"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("NULL"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: {car: f3("CAAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOTIMES"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ITER"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("G!TO"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: {car: {car: f3("VAR"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("TO"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("RESULT"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("BLOCK"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: 0, cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!TO"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("TO"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("%WHILE"), cdr: {car: {car: f3("<"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!TO"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("TAGBODY"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("INCF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("RESULT"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOLIST"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ITER"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("VAR"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("G!LIST"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("BLOCK"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("%WHILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("TAGBODY"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CDR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("UNLESS"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CONDITION"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("CONDITION"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHEN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CONDITION"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("CONDITION"), cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PUSH"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: {car: f3("PLACE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("PLACE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CONS"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("PLACE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DECF"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: {car: f3("&OPTIONAL"), cdr: {car: {car: f3("DELTA"), cdr: {car: 1, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("-"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("DELTA"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INCF"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: {car: f3("&OPTIONAL"), cdr: {car: {car: f3("DELTA"), cdr: {car: 1, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("+"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("DELTA"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ATOM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f34", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f33", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("FOURTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f32", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("THIRD"), cdr: {car: f3("FUNCTION"), cdr: {car: "f31", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SECOND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f30", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("FIRST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f29", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CADDDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f28", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDDDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f27", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CADDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f26", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f25", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f24", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CADR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f23", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CAAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f22", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f21", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f20", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f19", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f18", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NOT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f17", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EQL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f16", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TRUNCATE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f15", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ZEROP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f14", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("1-"), cdr: {car: f3("FUNCTION"), cdr: {car: "f13", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("1+"), cdr: {car: f3("FUNCTION"), cdr: {car: "f12", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("/"), cdr: {car: f3("FUNCTION"), cdr: {car: "f11", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*"), cdr: {car: f3("FUNCTION"), cdr: {car: "f10", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("-"), cdr: {car: f3("FUNCTION"), cdr: {car: "f9", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("+"), cdr: {car: f3("FUNCTION"), cdr: {car: "f8", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("="), cdr: {car: f3("FUNCTION"), cdr: {car: "f7", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTEGER-TO-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f6", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GENSYM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f5", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("FIND-SYMBOL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f4", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTERN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f3", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTERNP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f2", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHILE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CONDITION"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("BLOCK"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("%WHILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("CONDITION"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("RETURN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("RETURN-FROM"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NULL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f1", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("%DEFUN"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFUN"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("FSETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("NAMED-LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SYMBOL-NAME"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BLOCK"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NAMED-LAMBDA"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("X"), cdr: {car: {car: f3("GENSYM"), cdr: {car: "FN", cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("SET"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: "fname", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("%DEFVAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFVAR"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFMACRO"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFMACRO"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: f3("X"), cdr: {car: {car: f3("QUOTE"), cdr: {car: f3("&BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: f3("&REST"), cdr: f3("NIL")}}, cdr: {car: f3("X"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("ARGS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}, cdr: {car: f3("NIL"), cdr: {car: f3("NIL"), cdr: f3("NIL")}}}};
6934 var l230 = f3("EVAL");
6935 var f121;
6936 (function(){
6937     v293 = l231;
6938     v296 = l232;
6939     v317 = l233;
6940     v393 = l234;
6941     v12 = l235;
6942     return v417 = l236;
6943 })();
6944 (function(){
6945     (function(){
6946         (function(){
6947             return f121 = (function(v659){
6948                 ((v659)["fname"] = "EVAL");
6949                 return v659;
6950             })((function (v660){
6951                 if (arguments.length < 1) throw 'too few arguments';
6952                 if (arguments.length > 1) throw 'too many arguments';
6953                 return (function(){
6954                     try {
6955                         return (function(){
6956                             return (function(v661){
6957                                 return (function(){
6958                                     var string = v661;
6959                                     if (typeof string != 'string')
6960                                         throw 'The value ' + string + ' is not a type string.';
6961                                     return eval.apply(window, [string]);
6962                                 })();
6963                             })((function(v662){
6964                                 (function(){
6965                                     try {
6966                                         return (function(){
6967                                             return (function(v663,v664){
6968                                                 (function(){
6969                                                     while(v663 !== v2){
6970                                                         v664 = (function(){
6971                                                             var tmp = v663;
6972                                                             return tmp === v2? v2: tmp.car;
6973                                                         })();
6974                                                         (function(){
6975                                                             (v664)();
6976                                                             return v2;
6977                                                         })();
6978                                                         v663 = (function(){
6979                                                             var tmp = v663;
6980                                                             return tmp === v2? v2: tmp.cdr;
6981                                                         })();
6982                                                     }return v2;
6983                                                 })();
6984                                                 return v2;
6985                                             })(v257,v2);
6986                                         })();
6987                                     }
6988                                     catch (cf){
6989                                         if (cf.type == 'block' && cf.id == 211)
6990                                             return cf.value;
6991                                         else
6992                                             throw cf;
6993                                     }
6994                                 })();
6995                                 return v662;
6996                             })((function(){
6997                                 v257 = v2;
6998                                 f103();
6999                                 return f130(v660);
7000                             })()));
7001                         })();
7002                     }
7003                     catch (cf){
7004                         if (cf.type == 'block' && cf.id == 210)
7005                             return cf.value;
7006                         else
7007                             throw cf;
7008                     }
7009                 })();
7010
7011             }));
7012         })();
7013         return l230;
7014     })();
7015     return (function(){
7016         var string = f69("var lisp = {};", "lisp.read = ", f109(l237, v2), ";", v179, "lisp.print = ", f109(l238, v2), ";", v179, "lisp.eval = ", f109(l239, v2), ";", v179, "lisp.compile = ", f109(l240, v2), ";", v179, "lisp.evalString = function(str){", v179, "   return lisp.eval(lisp.read(str));", v179, "}", v179, "lisp.compileString = function(str){", v179, "   return lisp.compile(lisp.read(str));", v179, "}", v179);
7017         if (typeof string != 'string')
7018             throw 'The value ' + string + ' is not a type string.';
7019         return eval.apply(window, [string]);
7020     })();
7021 })();