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