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!BOOL");
2676 var f72;
2677 (function(){
2678     (function(){
2679         return f72 = (function(v195){
2680             ((v195)["fname"] = "JS!BOOL");
2681             return v195;
2682         })((function (v196){
2683             if (arguments.length < 1) throw 'too few arguments';
2684             if (arguments.length > 1) throw 'too many arguments';
2685             return (function(){
2686                 try {
2687                     return (function(){
2688                         return f68("(", v196, "?", f73(v3), ": ", f73(v2), ")");
2689                     })();
2690                 }
2691                 catch (cf){
2692                     if (cf.type == 'block' && cf.id == 81)
2693                         return cf.value;
2694                     else
2695                         throw cf;
2696                 }
2697             })();
2698         }));
2699     })();
2700     return l41;
2701 })();
2702 var l44 = f3("PRINT");
2703 var f77;
2704 var l43 = f3("WRITE-LINE");
2705 var f76;
2706 var l42 = f3("PRIN1-TO-STRING");
2707 var f74;
2708 (function(){
2709     (function(){
2710         (function(){
2711             return f74 = (function(v197){
2712                 ((v197)["fname"] = "PRIN1-TO-STRING");
2713                 return v197;
2714             })((function (v198){
2715                 if (arguments.length < 1) throw 'too few arguments';
2716                 if (arguments.length > 1) throw 'too many arguments';
2717                 return (function(){
2718                     try {
2719                         return (function(){
2720                             return (((function(){
2721                                 var tmp = v198;
2722                                 return (typeof tmp == 'object' && 'name' in tmp);
2723                             })()?v3: v2) !== v2 ? (function(){
2724                                 return (v198).name;
2725                             })() : (f51(v198) !== v2 ? (function(){
2726                                 return f6(v198);
2727                             })() : (((typeof(v198) == "string")?v3: v2) !== v2 ? (function(){
2728                                 return f68("\"", f75(v198), "\"");
2729                             })() : (((typeof v198 == 'function')?v3: v2) !== v2 ? (function(){
2730                                 return (function(v199){
2731                                     return (v199 !== v2 ? f68("#<FUNCTION ", v199, ">") : f68("#<FUNCTION>"));
2732                                 })((function(){
2733                                     var tmp = (v198)["fname"];
2734                                     return tmp == undefined? v2: tmp ;
2735                                 })());
2736                             })() : (f36(v198) !== v2 ? (function(){
2737                                 return f68("(", f70(f45(f74, f56(v198)), " "), (function(v200){
2738                                     return (f1((function(){
2739                                         var tmp = v200;
2740                                         return tmp === v2? v2: tmp.cdr;
2741                                     })()) !== v2 ? f74((function(){
2742                                         var tmp = v200;
2743                                         return tmp === v2? v2: tmp.car;
2744                                     })()) : f68(f74((function(){
2745                                         var tmp = v200;
2746                                         return tmp === v2? v2: tmp.car;
2747                                     })()), " . ", f74((function(){
2748                                         var tmp = v200;
2749                                         return tmp === v2? v2: tmp.cdr;
2750                                     })())));
2751                                 })(f55(v198)), ")");
2752                             })() : v2)))));
2753                         })();
2754                     }
2755                     catch (cf){
2756                         if (cf.type == 'block' && cf.id == 82)
2757                             return cf.value;
2758                         else
2759                             throw cf;
2760                     }
2761                 })();
2762             }));
2763         })();
2764         return l42;
2765     })();
2766     (function(){
2767         (function(){
2768             return f76 = (function(v201){
2769                 ((v201)["fname"] = "WRITE-LINE");
2770                 return v201;
2771             })((function (v202){
2772                 if (arguments.length < 1) throw 'too few arguments';
2773                 if (arguments.length > 1) throw 'too many arguments';
2774                 return (function(){
2775                     try {
2776                         return (function(){
2777                             (function(){
2778                                 var x = v202;
2779                                 if (typeof x != 'string')
2780                                     throw 'The value ' + x + ' is not a type string.';
2781                                 return lisp.write(x);
2782                             })();
2783                             (function(){
2784                                 var x = v176;
2785                                 if (typeof x != 'string')
2786                                     throw 'The value ' + x + ' is not a type string.';
2787                                 return lisp.write(x);
2788                             })();
2789                             return v202;
2790                         })();
2791                     }
2792                     catch (cf){
2793                         if (cf.type == 'block' && cf.id == 83)
2794                             return cf.value;
2795                         else
2796                             throw cf;
2797                     }
2798                 })();
2799             }));
2800         })();
2801         return l43;
2802     })();
2803     return (function(){
2804         (function(){
2805             return f77 = (function(v203){
2806                 ((v203)["fname"] = "PRINT");
2807                 return v203;
2808             })((function (v204){
2809                 if (arguments.length < 1) throw 'too few arguments';
2810                 if (arguments.length > 1) throw 'too many arguments';
2811                 return (function(){
2812                     try {
2813                         return (function(){
2814                             f76(f74(v204));
2815                             return v204;
2816                         })();
2817                     }
2818                     catch (cf){
2819                         if (cf.type == 'block' && cf.id == 84)
2820                             return cf.value;
2821                         else
2822                             throw cf;
2823                     }
2824                 })();
2825             }));
2826         })();
2827         return l44;
2828     })();
2829 })();
2830 var l45 = f3("MAKE-STRING-STREAM");
2831 var f78;
2832 (function(){
2833     (function(){
2834         return f78 = (function(v205){
2835             ((v205)["fname"] = "MAKE-STRING-STREAM");
2836             return v205;
2837         })((function (v206){
2838             if (arguments.length < 1) throw 'too few arguments';
2839             if (arguments.length > 1) throw 'too many arguments';
2840             return (function(){
2841                 try {
2842                     return (function(){
2843                         return ({car: v206, cdr: 0});
2844                     })();
2845                 }
2846                 catch (cf){
2847                     if (cf.type == 'block' && cf.id == 85)
2848                         return cf.value;
2849                     else
2850                         throw cf;
2851                 }
2852             })();
2853         }));
2854     })();
2855     return l45;
2856 })();
2857 var l46 = f3("%PEEK-CHAR");
2858 var f79;
2859 (function(){
2860     (function(){
2861         return f79 = (function(v207){
2862             ((v207)["fname"] = "%PEEK-CHAR");
2863             return v207;
2864         })((function (v208){
2865             if (arguments.length < 1) throw 'too few arguments';
2866             if (arguments.length > 1) throw 'too many arguments';
2867             return (function(){
2868                 try {
2869                     return (function(){
2870                         return (((function(){
2871                             var x = (function(){
2872                                 var tmp = v208;
2873                                 return tmp === v2? v2: tmp.cdr;
2874                             })();
2875                             var y = f43((function(){
2876                                 var tmp = v208;
2877                                 return tmp === v2? v2: tmp.car;
2878                             })());
2879                             if (typeof x != 'number')
2880                                 throw 'The value ' + x + ' is not a type number.';
2881                             if (typeof y != 'number')
2882                                 throw 'The value ' + y + ' is not a type number.';
2883                             return x<y;
2884                         })()?v3: v2) !== v2 ? (function(){
2885                             var string = (function(){
2886                                 var tmp = v208;
2887                                 return tmp === v2? v2: tmp.car;
2888                             })();
2889                             var index = (function(){
2890                                 var tmp = v208;
2891                                 return tmp === v2? v2: tmp.cdr;
2892                             })();
2893                             if (typeof string != 'string')
2894                                 throw 'The value ' + string + ' is not a type string.';
2895                             if (typeof index != 'number')
2896                                 throw 'The value ' + index + ' is not a type number.';
2897                             return string.charCodeAt(index);
2898                         })() : v2);
2899                     })();
2900                 }
2901                 catch (cf){
2902                     if (cf.type == 'block' && cf.id == 86)
2903                         return cf.value;
2904                     else
2905                         throw cf;
2906                 }
2907             })();
2908         }));
2909     })();
2910     return l46;
2911 })();
2912 var l47 = f3("%READ-CHAR");
2913 var f80;
2914 (function(){
2915     (function(){
2916         return f80 = (function(v209){
2917             ((v209)["fname"] = "%READ-CHAR");
2918             return v209;
2919         })((function (v210){
2920             if (arguments.length < 1) throw 'too few arguments';
2921             if (arguments.length > 1) throw 'too many arguments';
2922             return (function(){
2923                 try {
2924                     return (function(){
2925                         return (((function(){
2926                             var x = (function(){
2927                                 var tmp = v210;
2928                                 return tmp === v2? v2: tmp.cdr;
2929                             })();
2930                             var y = f43((function(){
2931                                 var tmp = v210;
2932                                 return tmp === v2? v2: tmp.car;
2933                             })());
2934                             if (typeof x != 'number')
2935                                 throw 'The value ' + x + ' is not a type number.';
2936                             if (typeof y != 'number')
2937                                 throw 'The value ' + y + ' is not a type number.';
2938                             return x<y;
2939                         })()?v3: v2) !== v2 ? (function(v211){
2940                             (function(){
2941                                 var x = v210;
2942                                 if (typeof x != 'object')
2943                                     throw 'The value ' + x + ' is not a type object.';
2944                                 return (x.cdr = f12((function(){
2945                                     var tmp = v210;
2946                                     return tmp === v2? v2: tmp.cdr;
2947                                 })()));
2948                             })();
2949                             return v211;
2950                         })((function(){
2951                             var string = (function(){
2952                                 var tmp = v210;
2953                                 return tmp === v2? v2: tmp.car;
2954                             })();
2955                             var index = (function(){
2956                                 var tmp = v210;
2957                                 return tmp === v2? v2: tmp.cdr;
2958                             })();
2959                             if (typeof string != 'string')
2960                                 throw 'The value ' + string + ' is not a type string.';
2961                             if (typeof index != 'number')
2962                                 throw 'The value ' + index + ' is not a type number.';
2963                             return string.charCodeAt(index);
2964                         })()) : v2);
2965                     })();
2966                 }
2967                 catch (cf){
2968                     if (cf.type == 'block' && cf.id == 87)
2969                         return cf.value;
2970                     else
2971                         throw cf;
2972                 }
2973             })();
2974         }));
2975     })();
2976     return l47;
2977 })();
2978 var l48 = f3("WHITESPACEP");
2979 var f81;
2980 (function(){
2981     (function(){
2982         return f81 = (function(v212){
2983             ((v212)["fname"] = "WHITESPACEP");
2984             return v212;
2985         })((function (v213){
2986             if (arguments.length < 1) throw 'too few arguments';
2987             if (arguments.length > 1) throw 'too many arguments';
2988             return (function(){
2989                 try {
2990                     return (function(){
2991                         return (function(v214){
2992                             return (v214 !== v2 ? v214 : (function(v215){
2993                                 return (v215 !== v2 ? v215 : f50(v213, 9));
2994                             })(f50(v213, 10)));
2995                         })(f50(v213, 32));
2996                     })();
2997                 }
2998                 catch (cf){
2999                     if (cf.type == 'block' && cf.id == 88)
3000                         return cf.value;
3001                     else
3002                         throw cf;
3003                 }
3004             })();
3005         }));
3006     })();
3007     return l48;
3008 })();
3009 var l49 = f3("SKIP-WHITESPACES");
3010 var f82;
3011 (function(){
3012     (function(){
3013         return f82 = (function(v216){
3014             ((v216)["fname"] = "SKIP-WHITESPACES");
3015             return v216;
3016         })((function (v217){
3017             if (arguments.length < 1) throw 'too few arguments';
3018             if (arguments.length > 1) throw 'too many arguments';
3019             return (function(){
3020                 try {
3021                     return (function(){
3022                         return (function(v218){
3023                             v218 = f79(v217);
3024                             return (function(){
3025                                 try {
3026                                     return (function(){
3027                                         return (function(){
3028                                             while((v218 !== v2 ? f81(v218) : v2) !== v2){
3029                                                 f80(v217);
3030                                                 v218 = f79(v217);
3031                                             }return v2;
3032                                         })();
3033                                     })();
3034                                 }
3035                                 catch (cf){
3036                                     if (cf.type == 'block' && cf.id == 90)
3037                                         return cf.value;
3038                                     else
3039                                         throw cf;
3040                                 }
3041                             })();
3042                         })(v2);
3043                     })();
3044                 }
3045                 catch (cf){
3046                     if (cf.type == 'block' && cf.id == 89)
3047                         return cf.value;
3048                     else
3049                         throw cf;
3050                 }
3051             })();
3052         }));
3053     })();
3054     return l49;
3055 })();
3056 var l50 = f3("TERMINALP");
3057 var f83;
3058 (function(){
3059     (function(){
3060         return f83 = (function(v219){
3061             ((v219)["fname"] = "TERMINALP");
3062             return v219;
3063         })((function (v220){
3064             if (arguments.length < 1) throw 'too few arguments';
3065             if (arguments.length > 1) throw 'too many arguments';
3066             return (function(){
3067                 try {
3068                     return (function(){
3069                         return (function(v221){
3070                             return (v221 !== v2 ? v221 : (function(v222){
3071                                 return (v222 !== v2 ? v222 : (function(v223){
3072                                     return (v223 !== v2 ? v223 : f50(40, v220));
3073                                 })(f50(41, v220)));
3074                             })(f81(v220)));
3075                         })(f1(v220));
3076                     })();
3077                 }
3078                 catch (cf){
3079                     if (cf.type == 'block' && cf.id == 91)
3080                         return cf.value;
3081                     else
3082                         throw cf;
3083                 }
3084             })();
3085         }));
3086     })();
3087     return l50;
3088 })();
3089 var l51 = f3("READ-UNTIL");
3090 var f84;
3091 (function(){
3092     (function(){
3093         return f84 = (function(v224){
3094             ((v224)["fname"] = "READ-UNTIL");
3095             return v224;
3096         })((function (v225,v226){
3097             if (arguments.length < 2) throw 'too few arguments';
3098             if (arguments.length > 2) throw 'too many arguments';
3099             return (function(){
3100                 try {
3101                     return (function(){
3102                         return (function(v227,v228){
3103                             v228 = f79(v225);
3104                             (function(){
3105                                 try {
3106                                     return (function(){
3107                                         return (function(){
3108                                             while((v228 !== v2 ? f17((v226)(v228)) : v2) !== v2){
3109                                                 v227 = f68(v227, (function(){
3110                                                     var x = v228;
3111                                                     if (typeof x != 'number')
3112                                                         throw 'The value ' + x + ' is not a type number.';
3113                                                     return String.fromCharCode(x);
3114                                                 })());
3115                                                 f80(v225);
3116                                                 v228 = f79(v225);
3117                                             }return v2;
3118                                         })();
3119                                     })();
3120                                 }
3121                                 catch (cf){
3122                                     if (cf.type == 'block' && cf.id == 93)
3123                                         return cf.value;
3124                                     else
3125                                         throw cf;
3126                                 }
3127                             })();
3128                             return v227;
3129                         })("",v2);
3130                     })();
3131                 }
3132                 catch (cf){
3133                     if (cf.type == 'block' && cf.id == 92)
3134                         return cf.value;
3135                     else
3136                         throw cf;
3137                 }
3138             })();
3139         }));
3140     })();
3141     return l51;
3142 })();
3143 var l52 = f3("SKIP-WHITESPACES-AND-COMMENTS");
3144 var f85;
3145 (function(){
3146     (function(){
3147         return f85 = (function(v229){
3148             ((v229)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS");
3149             return v229;
3150         })((function (v230){
3151             if (arguments.length < 1) throw 'too few arguments';
3152             if (arguments.length > 1) throw 'too many arguments';
3153             return (function(){
3154                 try {
3155                     return (function(){
3156                         return (function(v231){
3157                             f82(v230);
3158                             v231 = f79(v230);
3159                             return (function(){
3160                                 try {
3161                                     return (function(){
3162                                         return (function(){
3163                                             while((v231 !== v2 ? f50(v231, 59) : v2) !== v2){
3164                                                 f84(v230, (function (v232){
3165                                                     if (arguments.length < 1) throw 'too few arguments';
3166                                                     if (arguments.length > 1) throw 'too many arguments';
3167                                                     return f50(v232, 10);
3168                                                 }));
3169                                                 f82(v230);
3170                                                 v231 = f79(v230);
3171                                             }return v2;
3172                                         })();
3173                                     })();
3174                                 }
3175                                 catch (cf){
3176                                     if (cf.type == 'block' && cf.id == 95)
3177                                         return cf.value;
3178                                     else
3179                                         throw cf;
3180                                 }
3181                             })();
3182                         })(v2);
3183                     })();
3184                 }
3185                 catch (cf){
3186                     if (cf.type == 'block' && cf.id == 94)
3187                         return cf.value;
3188                     else
3189                         throw cf;
3190                 }
3191             })();
3192         }));
3193     })();
3194     return l52;
3195 })();
3196 var l53 = f3("%READ-LIST");
3197 var f86;
3198 (function(){
3199     (function(){
3200         return f86 = (function(v233){
3201             ((v233)["fname"] = "%READ-LIST");
3202             return v233;
3203         })((function (v234){
3204             if (arguments.length < 1) throw 'too few arguments';
3205             if (arguments.length > 1) throw 'too many arguments';
3206             return (function(){
3207                 try {
3208                     return (function(){
3209                         f85(v234);
3210                         return (function(v235){
3211                             return (f1(v235) !== v2 ? (function(){
3212                                 return (function (){ throw "Unspected EOF"; })();
3213                             })() : (f50(v235, 41) !== v2 ? (function(){
3214                                 f80(v234);
3215                                 return v2;
3216                             })() : (f50(v235, 46) !== v2 ? (function(){
3217                                 f80(v234);
3218                                 return (function(v236){
3219                                     f85(v234);
3220                                     (f50(f80(v234), 41) !== v2 ? v2 : (function(){
3221                                         return (function (){ throw "')' was expected."; })();
3222                                     })());
3223                                     return v236;
3224                                 })(f87(v234));
3225                             })() : (function(){
3226                                 return ({car: f87(v234), cdr: f86(v234)});
3227                             })())));
3228                         })(f79(v234));
3229                     })();
3230                 }
3231                 catch (cf){
3232                     if (cf.type == 'block' && cf.id == 96)
3233                         return cf.value;
3234                     else
3235                         throw cf;
3236                 }
3237             })();
3238         }));
3239     })();
3240     return l53;
3241 })();
3242 var l54 = f3("READ-STRING");
3243 var f88;
3244 (function(){
3245     (function(){
3246         return f88 = (function(v237){
3247             ((v237)["fname"] = "READ-STRING");
3248             return v237;
3249         })((function (v238){
3250             if (arguments.length < 1) throw 'too few arguments';
3251             if (arguments.length > 1) throw 'too many arguments';
3252             return (function(){
3253                 try {
3254                     return (function(){
3255                         return (function(v239,v240){
3256                             v240 = f80(v238);
3257                             (function(){
3258                                 try {
3259                                     return (function(){
3260                                         return (function(){
3261                                             while(f17(f16(v240, 34)) !== v2){
3262                                                 (f1(v240) !== v2 ? (function(){
3263                                                     return (function (){ throw "Unexpected EOF"; })();
3264                                                 })() : v2);
3265                                                 (f16(v240, 92) !== v2 ? (function(){
3266                                                     return v240 = f80(v238);
3267                                                 })() : v2);
3268                                                 v239 = f68(v239, (function(){
3269                                                     var x = v240;
3270                                                     if (typeof x != 'number')
3271                                                         throw 'The value ' + x + ' is not a type number.';
3272                                                     return String.fromCharCode(x);
3273                                                 })());
3274                                                 v240 = f80(v238);
3275                                             }return v2;
3276                                         })();
3277                                     })();
3278                                 }
3279                                 catch (cf){
3280                                     if (cf.type == 'block' && cf.id == 98)
3281                                         return cf.value;
3282                                     else
3283                                         throw cf;
3284                                 }
3285                             })();
3286                             return v239;
3287                         })("",v2);
3288                     })();
3289                 }
3290                 catch (cf){
3291                     if (cf.type == 'block' && cf.id == 97)
3292                         return cf.value;
3293                     else
3294                         throw cf;
3295                 }
3296             })();
3297         }));
3298     })();
3299     return l54;
3300 })();
3301 var l59 = f3("READ-SHARP");
3302 var l58 = 43;
3303 var l57 = 92;
3304 var l56 = f3("FUNCTION");
3305 var l55 = 39;
3306 var f89;
3307 (function(){
3308     (function(){
3309         return f89 = (function(v241){
3310             ((v241)["fname"] = "READ-SHARP");
3311             return v241;
3312         })((function (v242){
3313             if (arguments.length < 1) throw 'too few arguments';
3314             if (arguments.length > 1) throw 'too many arguments';
3315             return (function(){
3316                 try {
3317                     return (function(){
3318                         f80(v242);
3319                         return (function(v243){
3320                             return (f16(v243, l55) !== v2 ? (function(){
3321                                 return f33(l56, f87(v242));
3322                             })() : (f16(v243, l57) !== v2 ? (function(){
3323                                 return (function(v244){
3324                                     return (f67(v244, "space") !== v2 ? (function(){
3325                                         return f49(32);
3326                                     })() : (f67(v244, "tab") !== v2 ? (function(){
3327                                         return f49(9);
3328                                     })() : (f67(v244, "newline") !== v2 ? (function(){
3329                                         return f49(10);
3330                                     })() : (function(){
3331                                         return f49((function(){
3332                                             var string = v244;
3333                                             var index = 0;
3334                                             if (typeof string != 'string')
3335                                                 throw 'The value ' + string + ' is not a type string.';
3336                                             if (typeof index != 'number')
3337                                                 throw 'The value ' + index + ' is not a type number.';
3338                                             return string.charCodeAt(index);
3339                                         })());
3340                                     })())));
3341                                 })(f68((function(){
3342                                     var x = f80(v242);
3343                                     if (typeof x != 'number')
3344                                         throw 'The value ' + x + ' is not a type number.';
3345                                     return String.fromCharCode(x);
3346                                 })(), f84(v242, f83)));
3347                             })() : (f16(v243, l58) !== v2 ? (function(){
3348                                 return (function(v245){
3349                                     return (f67(v245, "common-lisp") !== v2 ? (function(){
3350                                         f87(v242);
3351                                         return f87(v242);
3352                                     })() : (f67(v245, "ecmalisp") !== v2 ? (function(){
3353                                         return f87(v242);
3354                                     })() : (function(){
3355                                         return (function (){ throw "Unknown reader form."; })();
3356                                     })()));
3357                                 })(f84(v242, f83));
3358                             })() : (function(){
3359                                 return (function (){ throw "ECASE expression failed."; })();
3360                             })())));
3361                         })(f80(v242));
3362                     })();
3363                 }
3364                 catch (cf){
3365                     if (cf.type == 'block' && cf.id == 99)
3366                         return cf.value;
3367                     else
3368                         throw cf;
3369                 }
3370             })();
3371         }));
3372     })();
3373     return l59;
3374 })();
3375 var l60 = f3("*EOF*");
3376 var v246;
3377 (function(){
3378     (function(){
3379         return v246 = (function(){
3380             var name = "EOF";
3381             if (typeof name != 'string')
3382                 throw 'The value ' + name + ' is not a type string.';
3383             return ({name: name});
3384         })();
3385     })();
3386     return l60;
3387 })();
3388 var l65 = f3("LS-READ");
3389 var l64 = f3("UNQUOTE");
3390 var l63 = f3("UNQUOTE-SPLICING");
3391 var l62 = f3("BACKQUOTE");
3392 var l61 = f3("QUOTE");
3393 var f87;
3394 (function(){
3395     (function(){
3396         return f87 = (function(v247){
3397             ((v247)["fname"] = "LS-READ");
3398             return v247;
3399         })((function (v248){
3400             if (arguments.length < 1) throw 'too few arguments';
3401             if (arguments.length > 1) throw 'too many arguments';
3402             return (function(){
3403                 try {
3404                     return (function(){
3405                         f85(v248);
3406                         return (function(v249){
3407                             return (f1(v249) !== v2 ? (function(){
3408                                 return v246;
3409                             })() : (f50(v249, 40) !== v2 ? (function(){
3410                                 f80(v248);
3411                                 return f86(v248);
3412                             })() : (f50(v249, 39) !== v2 ? (function(){
3413                                 f80(v248);
3414                                 return f33(l61, f87(v248));
3415                             })() : (f50(v249, 96) !== v2 ? (function(){
3416                                 f80(v248);
3417                                 return f33(l62, f87(v248));
3418                             })() : (f50(v249, 34) !== v2 ? (function(){
3419                                 f80(v248);
3420                                 return f88(v248);
3421                             })() : (f50(v249, 44) !== v2 ? (function(){
3422                                 f80(v248);
3423                                 return (f16(f79(v248), 64) !== v2 ? (function(){
3424                                     f80(v248);
3425                                     return f33(l63, f87(v248));
3426                                 })() : f33(l64, f87(v248)));
3427                             })() : (f50(v249, 35) !== v2 ? (function(){
3428                                 return f89(v248);
3429                             })() : (function(){
3430                                 return (function(v250){
3431                                     return (f65(f61, v250) !== v2 ? f63(v250) : f3((function(){
3432                                         var x = v250;
3433                                         if (typeof x != 'string')
3434                                             throw 'The value ' + x + ' is not a type string.';
3435                                         return x.toUpperCase();
3436                                     })()));
3437                                 })(f84(v248, f83));
3438                             })())))))));
3439                         })(f79(v248));
3440                     })();
3441                 }
3442                 catch (cf){
3443                     if (cf.type == 'block' && cf.id == 100)
3444                         return cf.value;
3445                     else
3446                         throw cf;
3447                 }
3448             })();
3449         }));
3450     })();
3451     return l65;
3452 })();
3453 var l66 = f3("LS-READ-FROM-STRING");
3454 var f90;
3455 (function(){
3456     (function(){
3457         return f90 = (function(v251){
3458             ((v251)["fname"] = "LS-READ-FROM-STRING");
3459             return v251;
3460         })((function (v252){
3461             if (arguments.length < 1) throw 'too few arguments';
3462             if (arguments.length > 1) throw 'too many arguments';
3463             return (function(){
3464                 try {
3465                     return (function(){
3466                         return f87(f78(v252));
3467                     })();
3468                 }
3469                 catch (cf){
3470                     if (cf.type == 'block' && cf.id == 101)
3471                         return cf.value;
3472                     else
3473                         throw cf;
3474                 }
3475             })();
3476         }));
3477     })();
3478     return l66;
3479 })();
3480 var l68 = f3("*COMPILATION-UNIT-CHECKS*");
3481 var l67 = f3("NIL");
3482 var v253;
3483 (function(){
3484     (function(){
3485         return v253 = l67;
3486     })();
3487     return l68;
3488 })();
3489 var l69 = f3("MAKE-BINDING");
3490 var f91;
3491 (function(){
3492     (function(){
3493         return f91 = (function(v254){
3494             ((v254)["fname"] = "MAKE-BINDING");
3495             return v254;
3496         })((function (v255,v256,v257,v258){
3497             if (arguments.length < 4) throw 'too few arguments';
3498             if (arguments.length > 4) throw 'too many arguments';
3499             return (function(){
3500                 try {
3501                     return (function(){
3502                         return f33(v255, v256, v257, v258);
3503                     })();
3504                 }
3505                 catch (cf){
3506                     if (cf.type == 'block' && cf.id == 102)
3507                         return cf.value;
3508                     else
3509                         throw cf;
3510                 }
3511             })();
3512         }));
3513     })();
3514     return l69;
3515 })();
3516 var l70 = f3("BINDING-NAME");
3517 var f92;
3518 (function(){
3519     (function(){
3520         return f92 = (function(v259){
3521             ((v259)["fname"] = "BINDING-NAME");
3522             return v259;
3523         })((function (v260){
3524             if (arguments.length < 1) throw 'too few arguments';
3525             if (arguments.length > 1) throw 'too many arguments';
3526             return (function(){
3527                 try {
3528                     return (function(){
3529                         return f29(v260);
3530                     })();
3531                 }
3532                 catch (cf){
3533                     if (cf.type == 'block' && cf.id == 103)
3534                         return cf.value;
3535                     else
3536                         throw cf;
3537                 }
3538             })();
3539         }));
3540     })();
3541     return l70;
3542 })();
3543 var l71 = f3("BINDING-TYPE");
3544 var f93;
3545 (function(){
3546     (function(){
3547         return f93 = (function(v261){
3548             ((v261)["fname"] = "BINDING-TYPE");
3549             return v261;
3550         })((function (v262){
3551             if (arguments.length < 1) throw 'too few arguments';
3552             if (arguments.length > 1) throw 'too many arguments';
3553             return (function(){
3554                 try {
3555                     return (function(){
3556                         return f30(v262);
3557                     })();
3558                 }
3559                 catch (cf){
3560                     if (cf.type == 'block' && cf.id == 104)
3561                         return cf.value;
3562                     else
3563                         throw cf;
3564                 }
3565             })();
3566         }));
3567     })();
3568     return l71;
3569 })();
3570 var l72 = f3("BINDING-TRANSLATION");
3571 var f94;
3572 (function(){
3573     (function(){
3574         return f94 = (function(v263){
3575             ((v263)["fname"] = "BINDING-TRANSLATION");
3576             return v263;
3577         })((function (v264){
3578             if (arguments.length < 1) throw 'too few arguments';
3579             if (arguments.length > 1) throw 'too many arguments';
3580             return (function(){
3581                 try {
3582                     return (function(){
3583                         return f31(v264);
3584                     })();
3585                 }
3586                 catch (cf){
3587                     if (cf.type == 'block' && cf.id == 105)
3588                         return cf.value;
3589                     else
3590                         throw cf;
3591                 }
3592             })();
3593         }));
3594     })();
3595     return l72;
3596 })();
3597 var l73 = f3("BINDING-DECLARED");
3598 var f95;
3599 (function(){
3600     (function(){
3601         return f95 = (function(v265){
3602             ((v265)["fname"] = "BINDING-DECLARED");
3603             return v265;
3604         })((function (v266){
3605             if (arguments.length < 1) throw 'too few arguments';
3606             if (arguments.length > 1) throw 'too many arguments';
3607             return (function(){
3608                 try {
3609                     return (function(){
3610                         return (v266 !== v2 ? f32(v266) : v2);
3611                     })();
3612                 }
3613                 catch (cf){
3614                     if (cf.type == 'block' && cf.id == 106)
3615                         return cf.value;
3616                     else
3617                         throw cf;
3618                 }
3619             })();
3620         }));
3621     })();
3622     return l73;
3623 })();
3624 var l74 = f3("MARK-BINDING-AS-DECLARED");
3625 var f96;
3626 (function(){
3627     (function(){
3628         return f96 = (function(v267){
3629             ((v267)["fname"] = "MARK-BINDING-AS-DECLARED");
3630             return v267;
3631         })((function (v268){
3632             if (arguments.length < 1) throw 'too few arguments';
3633             if (arguments.length > 1) throw 'too many arguments';
3634             return (function(){
3635                 try {
3636                     return (function(){
3637                         return (function(){
3638                             var x = f27(v268);
3639                             if (typeof x != 'object')
3640                                 throw 'The value ' + x + ' is not a type object.';
3641                             return (x.car = v3);
3642                         })();
3643                     })();
3644                 }
3645                 catch (cf){
3646                     if (cf.type == 'block' && cf.id == 107)
3647                         return cf.value;
3648                     else
3649                         throw cf;
3650                 }
3651             })();
3652         }));
3653     })();
3654     return l74;
3655 })();
3656 var l75 = f3("MAKE-LEXENV");
3657 var f97;
3658 (function(){
3659     (function(){
3660         return f97 = (function(v269){
3661             ((v269)["fname"] = "MAKE-LEXENV");
3662             return v269;
3663         })((function (){
3664             if (arguments.length > 0) throw 'too many arguments';
3665             return (function(){
3666                 try {
3667                     return (function(){
3668                         return f33(v2, v2, v2, v2);
3669                     })();
3670                 }
3671                 catch (cf){
3672                     if (cf.type == 'block' && cf.id == 108)
3673                         return cf.value;
3674                     else
3675                         throw cf;
3676                 }
3677             })();
3678         }));
3679     })();
3680     return l75;
3681 })();
3682 var l76 = f3("COPY-LEXENV");
3683 var f98;
3684 (function(){
3685     (function(){
3686         return f98 = (function(v270){
3687             ((v270)["fname"] = "COPY-LEXENV");
3688             return v270;
3689         })((function (v271){
3690             if (arguments.length < 1) throw 'too few arguments';
3691             if (arguments.length > 1) throw 'too many arguments';
3692             return (function(){
3693                 try {
3694                     return (function(){
3695                         return f47(v271);
3696                     })();
3697                 }
3698                 catch (cf){
3699                     if (cf.type == 'block' && cf.id == 109)
3700                         return cf.value;
3701                     else
3702                         throw cf;
3703                 }
3704             })();
3705         }));
3706     })();
3707     return l76;
3708 })();
3709 var l81 = f3("PUSH-TO-LEXENV");
3710 var l80 = f3("GOTAG");
3711 var l79 = f3("BLOCK");
3712 var l78 = f3("FUNCTION");
3713 var l77 = f3("VARIABLE");
3714 var f99;
3715 (function(){
3716     (function(){
3717         return f99 = (function(v272){
3718             ((v272)["fname"] = "PUSH-TO-LEXENV");
3719             return v272;
3720         })((function (v273,v274,v275){
3721             if (arguments.length < 3) throw 'too few arguments';
3722             if (arguments.length > 3) throw 'too many arguments';
3723             return (function(){
3724                 try {
3725                     return (function(){
3726                         return (function(v276){
3727                             return (f16(v276, l77) !== v2 ? (function(){
3728                                 return (function(){
3729                                     var x = v274;
3730                                     if (typeof x != 'object')
3731                                         throw 'The value ' + x + ' is not a type object.';
3732                                     return (x.car = ({car: v273, cdr: (function(){
3733                                         var tmp = v274;
3734                                         return tmp === v2? v2: tmp.car;
3735                                     })()}));
3736                                 })();
3737                             })() : (f16(v276, l78) !== v2 ? (function(){
3738                                 return (function(){
3739                                     var x = (function(){
3740                                         var tmp = v274;
3741                                         return tmp === v2? v2: tmp.cdr;
3742                                     })();
3743                                     if (typeof x != 'object')
3744                                         throw 'The value ' + x + ' is not a type object.';
3745                                     return (x.car = ({car: v273, cdr: f23(v274)}));
3746                                 })();
3747                             })() : (f16(v276, l79) !== v2 ? (function(){
3748                                 return (function(){
3749                                     var x = f25(v274);
3750                                     if (typeof x != 'object')
3751                                         throw 'The value ' + x + ' is not a type object.';
3752                                     return (x.car = ({car: v273, cdr: f26(v274)}));
3753                                 })();
3754                             })() : (f16(v276, l80) !== v2 ? (function(){
3755                                 return (function(){
3756                                     var x = f27(v274);
3757                                     if (typeof x != 'object')
3758                                         throw 'The value ' + x + ' is not a type object.';
3759                                     return (x.car = ({car: v273, cdr: f28(v274)}));
3760                                 })();
3761                             })() : (function(){
3762                                 return (function (){ throw "ECASE expression failed."; })();
3763                             })()))));
3764                         })(v275);
3765                     })();
3766                 }
3767                 catch (cf){
3768                     if (cf.type == 'block' && cf.id == 110)
3769                         return cf.value;
3770                     else
3771                         throw cf;
3772                 }
3773             })();
3774         }));
3775     })();
3776     return l81;
3777 })();
3778 var l82 = f3("EXTEND-LEXENV");
3779 var f100;
3780 (function(){
3781     (function(){
3782         return f100 = (function(v277){
3783             ((v277)["fname"] = "EXTEND-LEXENV");
3784             return v277;
3785         })((function (v278,v279,v280){
3786             if (arguments.length < 3) throw 'too few arguments';
3787             if (arguments.length > 3) throw 'too many arguments';
3788             return (function(){
3789                 try {
3790                     return (function(){
3791                         return (function(v281){
3792                             return (function(){
3793                                 try {
3794                                     return (function(){
3795                                         return (function(v282,v283){
3796                                             (function(){
3797                                                 while(v282 !== v2){
3798                                                     v283 = (function(){
3799                                                         var tmp = v282;
3800                                                         return tmp === v2? v2: tmp.car;
3801                                                     })();
3802                                                     f99(v283, v281, v280);
3803                                                     v282 = (function(){
3804                                                         var tmp = v282;
3805                                                         return tmp === v2? v2: tmp.cdr;
3806                                                     })();
3807                                                 }return v2;
3808                                             })();
3809                                             return v281;
3810                                         })(f41(v278),v2);
3811                                     })();
3812                                 }
3813                                 catch (cf){
3814                                     if (cf.type == 'block' && cf.id == 112)
3815                                         return cf.value;
3816                                     else
3817                                         throw cf;
3818                                 }
3819                             })();
3820                         })(f98(v279));
3821                     })();
3822                 }
3823                 catch (cf){
3824                     if (cf.type == 'block' && cf.id == 111)
3825                         return cf.value;
3826                     else
3827                         throw cf;
3828                 }
3829             })();
3830         }));
3831     })();
3832     return l82;
3833 })();
3834 var l87 = f3("LOOKUP-IN-LEXENV");
3835 var l86 = f3("GOTAG");
3836 var l85 = f3("BLOCK");
3837 var l84 = f3("FUNCTION");
3838 var l83 = f3("VARIABLE");
3839 var f101;
3840 (function(){
3841     (function(){
3842         return f101 = (function(v284){
3843             ((v284)["fname"] = "LOOKUP-IN-LEXENV");
3844             return v284;
3845         })((function (v285,v286,v287){
3846             if (arguments.length < 3) throw 'too few arguments';
3847             if (arguments.length > 3) throw 'too many arguments';
3848             return (function(){
3849                 try {
3850                     return (function(){
3851                         return f66(v285, (function(v288){
3852                             return (f16(v288, l83) !== v2 ? (function(){
3853                                 return f29(v286);
3854                             })() : (f16(v288, l84) !== v2 ? (function(){
3855                                 return f30(v286);
3856                             })() : (f16(v288, l85) !== v2 ? (function(){
3857                                 return f31(v286);
3858                             })() : (f16(v288, l86) !== v2 ? (function(){
3859                                 return f32(v286);
3860                             })() : (function(){
3861                                 return (function (){ throw "ECASE expression failed."; })();
3862                             })()))));
3863                         })(v287));
3864                     })();
3865                 }
3866                 catch (cf){
3867                     if (cf.type == 'block' && cf.id == 113)
3868                         return cf.value;
3869                     else
3870                         throw cf;
3871                 }
3872             })();
3873         }));
3874     })();
3875     return l87;
3876 })();
3877 var l88 = f3("*ENVIRONMENT*");
3878 var v289;
3879 (function(){
3880     (function(){
3881         return v289 = f97();
3882     })();
3883     return l88;
3884 })();
3885 var l89 = f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS");
3886 var f102;
3887 (function(){
3888     (function(){
3889         return f102 = (function(v290){
3890             ((v290)["fname"] = "CLEAR-UNDECLARED-GLOBAL-BINDINGS");
3891             return v290;
3892         })((function (){
3893             if (arguments.length > 0) throw 'too many arguments';
3894             return (function(){
3895                 try {
3896                     return (function(){
3897                         return (function(v291,v292){
3898                             return v289 = f33(v291, v292, f31(v289));
3899                         })(f29(v289),f30(v289));
3900                     })();
3901                 }
3902                 catch (cf){
3903                     if (cf.type == 'block' && cf.id == 114)
3904                         return cf.value;
3905                     else
3906                         throw cf;
3907                 }
3908             })();
3909         }));
3910     })();
3911     return l89;
3912 })();
3913 var l90 = f3("*VARIABLE-COUNTER*");
3914 var v293;
3915 (function(){
3916     (function(){
3917         return v293 = 0;
3918     })();
3919     return l90;
3920 })();
3921 var l91 = f3("GVARNAME");
3922 var f103;
3923 (function(){
3924     (function(){
3925         return f103 = (function(v294){
3926             ((v294)["fname"] = "GVARNAME");
3927             return v294;
3928         })((function (v295){
3929             if (arguments.length < 1) throw 'too few arguments';
3930             if (arguments.length > 1) throw 'too many arguments';
3931             return (function(){
3932                 try {
3933                     return (function(){
3934                         return f68("v", f6(v293 = (function(){
3935                             var x = v293;
3936                             var y = 1;
3937                             if (typeof x != 'number')
3938                                 throw 'The value ' + x + ' is not a type number.';
3939                             if (typeof y != 'number')
3940                                 throw 'The value ' + y + ' is not a type number.';
3941                             return x+y;
3942                         })()));
3943                     })();
3944                 }
3945                 catch (cf){
3946                     if (cf.type == 'block' && cf.id == 115)
3947                         return cf.value;
3948                     else
3949                         throw cf;
3950                 }
3951             })();
3952         }));
3953     })();
3954     return l91;
3955 })();
3956 var l97 = f3("LOOKUP-VARIABLE");
3957 var l96 = f3("VARIABLE");
3958 var l95 = f3("VARIABLE");
3959 var l94 = f3("VARIABLE");
3960 var l93 = f3("VARIABLE");
3961 var l92 = f3("VARIABLE");
3962 var f104;
3963 (function(){
3964     (function(){
3965         return f104 = (function(v296){
3966             ((v296)["fname"] = "LOOKUP-VARIABLE");
3967             return v296;
3968         })((function (v297,v298){
3969             if (arguments.length < 2) throw 'too few arguments';
3970             if (arguments.length > 2) throw 'too many arguments';
3971             return (function(){
3972                 try {
3973                     return (function(){
3974                         return (function(v299){
3975                             return (v299 !== v2 ? v299 : (function(v300){
3976                                 return (v300 !== v2 ? v300 : (function(v301,v302){
3977                                     f99(v302, v289, l92);
3978                                     v253 = ({car: (function (){
3979                                         if (arguments.length > 0) throw 'too many arguments';
3980                                         return (f101(v297, v289, l93) !== v2 ? v2 : (function(){
3981                                             return (function (){ throw f68("Undefined variable `", v301, "'"); })();
3982                                         })());
3983                                     }), cdr: v253});
3984                                     return v302;
3985                                 })((v297).name,f91(v297, l94, f103(v297), v2)));
3986                             })(f101(v297, v289, l95)));
3987                         })(f101(v297, v298, l96));
3988                     })();
3989                 }
3990                 catch (cf){
3991                     if (cf.type == 'block' && cf.id == 116)
3992                         return cf.value;
3993                     else
3994                         throw cf;
3995                 }
3996             })();
3997         }));
3998     })();
3999     return l97;
4000 })();
4001 var l98 = f3("LOOKUP-VARIABLE-TRANSLATION");
4002 var f105;
4003 (function(){
4004     (function(){
4005         return f105 = (function(v303){
4006             ((v303)["fname"] = "LOOKUP-VARIABLE-TRANSLATION");
4007             return v303;
4008         })((function (v304,v305){
4009             if (arguments.length < 2) throw 'too few arguments';
4010             if (arguments.length > 2) throw 'too many arguments';
4011             return (function(){
4012                 try {
4013                     return (function(){
4014                         return f94(f104(v304, v305));
4015                     })();
4016                 }
4017                 catch (cf){
4018                     if (cf.type == 'block' && cf.id == 117)
4019                         return cf.value;
4020                     else
4021                         throw cf;
4022                 }
4023             })();
4024         }));
4025     })();
4026     return l98;
4027 })();
4028 var l101 = f3("EXTEND-LOCAL-ENV");
4029 var l100 = f3("VARIABLE");
4030 var l99 = f3("VARIABLE");
4031 var f106;
4032 (function(){
4033     (function(){
4034         return f106 = (function(v306){
4035             ((v306)["fname"] = "EXTEND-LOCAL-ENV");
4036             return v306;
4037         })((function (v307,v308){
4038             if (arguments.length < 2) throw 'too few arguments';
4039             if (arguments.length > 2) throw 'too many arguments';
4040             return (function(){
4041                 try {
4042                     return (function(){
4043                         return (function(v309){
4044                             return (function(){
4045                                 try {
4046                                     return (function(){
4047                                         return (function(v310,v311){
4048                                             (function(){
4049                                                 while(v310 !== v2){
4050                                                     v311 = (function(){
4051                                                         var tmp = v310;
4052                                                         return tmp === v2? v2: tmp.car;
4053                                                     })();
4054                                                     (function(v312){
4055                                                         return f99(v312, v309, l99);
4056                                                     })(f91(v311, l100, f103(v311), v3));
4057                                                     v310 = (function(){
4058                                                         var tmp = v310;
4059                                                         return tmp === v2? v2: tmp.cdr;
4060                                                     })();
4061                                                 }return v2;
4062                                             })();
4063                                             return v309;
4064                                         })(v307,v2);
4065                                     })();
4066                                 }
4067                                 catch (cf){
4068                                     if (cf.type == 'block' && cf.id == 119)
4069                                         return cf.value;
4070                                     else
4071                                         throw cf;
4072                                 }
4073                             })();
4074                         })(f98(v308));
4075                     })();
4076                 }
4077                 catch (cf){
4078                     if (cf.type == 'block' && cf.id == 118)
4079                         return cf.value;
4080                     else
4081                         throw cf;
4082                 }
4083             })();
4084         }));
4085     })();
4086     return l101;
4087 })();
4088 var l102 = f3("*FUNCTION-COUNTER*");
4089 var v313;
4090 (function(){
4091     (function(){
4092         return v313 = 0;
4093     })();
4094     return l102;
4095 })();
4096 var l108 = f3("LOOKUP-FUNCTION");
4097 var l107 = f3("FUNCTION");
4098 var l106 = f3("FUNCTION");
4099 var l105 = f3("FUNCTION");
4100 var l104 = f3("FUNCTION");
4101 var l103 = f3("FUNCTION");
4102 var f107;
4103 (function(){
4104     (function(){
4105         return f107 = (function(v314){
4106             ((v314)["fname"] = "LOOKUP-FUNCTION");
4107             return v314;
4108         })((function (v315,v316){
4109             if (arguments.length < 2) throw 'too few arguments';
4110             if (arguments.length > 2) throw 'too many arguments';
4111             return (function(){
4112                 try {
4113                     return (function(){
4114                         return (function(v317){
4115                             return (v317 !== v2 ? v317 : (function(v318){
4116                                 return (v318 !== v2 ? v318 : (function(v319,v320){
4117                                     f99(v320, v289, l103);
4118                                     v253 = ({car: (function (){
4119                                         if (arguments.length > 0) throw 'too many arguments';
4120                                         return (f95(f101(v315, v289, l104)) !== v2 ? v2 : (function(){
4121                                             return (function (){ throw f68("Undefined function `", v319, "'"); })();
4122                                         })());
4123                                     }), cdr: v253});
4124                                     return v320;
4125                                 })((v315).name,f91(v315, l105, f68("f", f6(v313 = (function(){
4126                                     var x = v313;
4127                                     var y = 1;
4128                                     if (typeof x != 'number')
4129                                         throw 'The value ' + x + ' is not a type number.';
4130                                     if (typeof y != 'number')
4131                                         throw 'The value ' + y + ' is not a type number.';
4132                                     return x+y;
4133                                 })())), v2)));
4134                             })(f101(v315, v289, l106)));
4135                         })(f101(v315, v316, l107));
4136                     })();
4137                 }
4138                 catch (cf){
4139                     if (cf.type == 'block' && cf.id == 120)
4140                         return cf.value;
4141                     else
4142                         throw cf;
4143                 }
4144             })();
4145         }));
4146     })();
4147     return l108;
4148 })();
4149 var l109 = f3("LOOKUP-FUNCTION-TRANSLATION");
4150 var f108;
4151 (function(){
4152     (function(){
4153         return f108 = (function(v321){
4154             ((v321)["fname"] = "LOOKUP-FUNCTION-TRANSLATION");
4155             return v321;
4156         })((function (v322,v323){
4157             if (arguments.length < 2) throw 'too few arguments';
4158             if (arguments.length > 2) throw 'too many arguments';
4159             return (function(){
4160                 try {
4161                     return (function(){
4162                         return f94(f107(v322, v323));
4163                     })();
4164                 }
4165                 catch (cf){
4166                     if (cf.type == 'block' && cf.id == 121)
4167                         return cf.value;
4168                     else
4169                         throw cf;
4170                 }
4171             })();
4172         }));
4173     })();
4174     return l109;
4175 })();
4176 var l110 = f3("*TOPLEVEL-COMPILATIONS*");
4177 var v324;
4178 (function(){
4179     (function(){
4180         return v324 = v2;
4181     })();
4182     return l110;
4183 })();
4184 var l111 = f3("%COMPILE-DEFVAR");
4185 var f109;
4186 (function(){
4187     (function(){
4188         return f109 = (function(v325){
4189             ((v325)["fname"] = "%COMPILE-DEFVAR");
4190             return v325;
4191         })((function (v326){
4192             if (arguments.length < 1) throw 'too few arguments';
4193             if (arguments.length > 1) throw 'too many arguments';
4194             return (function(){
4195                 try {
4196                     return (function(){
4197                         return (function(v327){
4198                             f96(v327);
4199                             return v324 = ({car: f68("var ", f94(v327)), cdr: v324});
4200                         })(f104(v326, v289));
4201                     })();
4202                 }
4203                 catch (cf){
4204                     if (cf.type == 'block' && cf.id == 122)
4205                         return cf.value;
4206                     else
4207                         throw cf;
4208                 }
4209             })();
4210         }));
4211     })();
4212     return l111;
4213 })();
4214 var l112 = f3("%COMPILE-DEFUN");
4215 var f110;
4216 (function(){
4217     (function(){
4218         return f110 = (function(v328){
4219             ((v328)["fname"] = "%COMPILE-DEFUN");
4220             return v328;
4221         })((function (v329){
4222             if (arguments.length < 1) throw 'too few arguments';
4223             if (arguments.length > 1) throw 'too many arguments';
4224             return (function(){
4225                 try {
4226                     return (function(){
4227                         return (function(v330){
4228                             f96(v330);
4229                             return v324 = ({car: f68("var ", f94(v330)), cdr: v324});
4230                         })(f107(v329, v289));
4231                     })();
4232                 }
4233                 catch (cf){
4234                     if (cf.type == 'block' && cf.id == 123)
4235                         return cf.value;
4236                     else
4237                         throw cf;
4238                 }
4239             })();
4240         }));
4241     })();
4242     return l112;
4243 })();
4244 var l115 = f3("%COMPILE-DEFMACRO");
4245 var l114 = f3("FUNCTION");
4246 var l113 = f3("MACRO");
4247 var f111;
4248 (function(){
4249     (function(){
4250         return f111 = (function(v331){
4251             ((v331)["fname"] = "%COMPILE-DEFMACRO");
4252             return v331;
4253         })((function (v332,v333){
4254             if (arguments.length < 2) throw 'too few arguments';
4255             if (arguments.length > 2) throw 'too many arguments';
4256             return (function(){
4257                 try {
4258                     return (function(){
4259                         return f99(f91(v332, l113, v333, v3), v289, l114);
4260                     })();
4261                 }
4262                 catch (cf){
4263                     if (cf.type == 'block' && cf.id == 124)
4264                         return cf.value;
4265                     else
4266                         throw cf;
4267                 }
4268             })();
4269         }));
4270     })();
4271     return l115;
4272 })();
4273 var l116 = f3("*COMPILATIONS*");
4274 var v334;
4275 (function(){
4276     (function(){
4277         return v334 = v2;
4278     })();
4279     return l116;
4280 })();
4281 var l117 = f3("LS-COMPILE-BLOCK");
4282 var f112;
4283 (function(){
4284     (function(){
4285         return f112 = (function(v335){
4286             ((v335)["fname"] = "LS-COMPILE-BLOCK");
4287             return v335;
4288         })((function (v336,v337){
4289             if (arguments.length < 2) throw 'too few arguments';
4290             if (arguments.length > 2) throw 'too many arguments';
4291             return (function(){
4292                 try {
4293                     return (function(){
4294                         return f70(f59((function (v338){
4295                             if (arguments.length < 1) throw 'too few arguments';
4296                             if (arguments.length > 1) throw 'too many arguments';
4297                             return (function(v339){
4298                                 return (v339 !== v2 ? v339 : (((typeof(v338) == "string")?v3: v2) !== v2 ? f14(f43(v338)) : v2));
4299                             })(f1(v338));
4300                         }), f45((function (v340){
4301                             if (arguments.length < 1) throw 'too few arguments';
4302                             if (arguments.length > 1) throw 'too many arguments';
4303                             return f73(v340, v337);
4304                         }), v336)), f68(";", v176));
4305                     })();
4306                 }
4307                 catch (cf){
4308                     if (cf.type == 'block' && cf.id == 125)
4309                         return cf.value;
4310                     else
4311                         throw cf;
4312                 }
4313             })();
4314         }));
4315     })();
4316     return l117;
4317 })();
4318 var l118 = f3("IF");
4319 v334 = ({car: f33(l118, (function (v341,v342,v343,v344){
4320     if (arguments.length < 4) throw 'too few arguments';
4321     if (arguments.length > 4) throw 'too many arguments';
4322     return (function(){
4323         try {
4324             return (function(){
4325                 return f68("(", f73(v342, v341), " !== ", f73(v2), " ? ", f73(v343, v341), " : ", f73(v344, v341), ")");
4326             })();
4327         }
4328         catch (cf){
4329             if (cf.type == 'block' && cf.id == 126)
4330                 return cf.value;
4331             else
4332                 throw cf;
4333         }
4334     })();
4335 })), cdr: v334});
4336 var l120 = f3("*LAMBDA-LIST-KEYWORDS*");
4337 var l119 = {car: f3("&OPTIONAL"), cdr: {car: f3("&REST"), cdr: f3("NIL")}};
4338 var v345;
4339 (function(){
4340     (function(){
4341         return v345 = l119;
4342     })();
4343     return l120;
4344 })();
4345 var l121 = f3("LIST-UNTIL-KEYWORD");
4346 var f113;
4347 (function(){
4348     (function(){
4349         return f113 = (function(v346){
4350             ((v346)["fname"] = "LIST-UNTIL-KEYWORD");
4351             return v346;
4352         })((function (v347){
4353             if (arguments.length < 1) throw 'too few arguments';
4354             if (arguments.length > 1) throw 'too many arguments';
4355             return (function(){
4356                 try {
4357                     return (function(){
4358                         return ((function(v348){
4359                             return (v348 !== v2 ? v348 : f57((function(){
4360                                 var tmp = v347;
4361                                 return tmp === v2? v2: tmp.car;
4362                             })(), v345));
4363                         })(f1(v347)) !== v2 ? v2 : ({car: (function(){
4364                             var tmp = v347;
4365                             return tmp === v2? v2: tmp.car;
4366                         })(), cdr: f113((function(){
4367                             var tmp = v347;
4368                             return tmp === v2? v2: tmp.cdr;
4369                         })())}));
4370                     })();
4371                 }
4372                 catch (cf){
4373                     if (cf.type == 'block' && cf.id == 127)
4374                         return cf.value;
4375                     else
4376                         throw cf;
4377                 }
4378             })();
4379         }));
4380     })();
4381     return l121;
4382 })();
4383 var l122 = f3("LAMBDA-LIST-REQUIRED-ARGUMENTS");
4384 var f114;
4385 (function(){
4386     (function(){
4387         return f114 = (function(v349){
4388             ((v349)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS");
4389             return v349;
4390         })((function (v350){
4391             if (arguments.length < 1) throw 'too few arguments';
4392             if (arguments.length > 1) throw 'too many arguments';
4393             return (function(){
4394                 try {
4395                     return (function(){
4396                         return f113(v350);
4397                     })();
4398                 }
4399                 catch (cf){
4400                     if (cf.type == 'block' && cf.id == 128)
4401                         return cf.value;
4402                     else
4403                         throw cf;
4404                 }
4405             })();
4406         }));
4407     })();
4408     return l122;
4409 })();
4410 var l124 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
4411 var l123 = f3("&OPTIONAL");
4412 var f115;
4413 (function(){
4414     (function(){
4415         return f115 = (function(v351){
4416             ((v351)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
4417             return v351;
4418         })((function (v352){
4419             if (arguments.length < 1) throw 'too few arguments';
4420             if (arguments.length > 1) throw 'too many arguments';
4421             return (function(){
4422                 try {
4423                     return (function(){
4424                         return f45(f35, f113((function(){
4425                             var tmp = f57(l123, v352);
4426                             return tmp === v2? v2: tmp.cdr;
4427                         })()));
4428                     })();
4429                 }
4430                 catch (cf){
4431                     if (cf.type == 'block' && cf.id == 129)
4432                         return cf.value;
4433                     else
4434                         throw cf;
4435                 }
4436             })();
4437         }));
4438     })();
4439     return l124;
4440 })();
4441 var l125 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS");
4442 var f116;
4443 (function(){
4444     (function(){
4445         return f116 = (function(v353){
4446             ((v353)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS");
4447             return v353;
4448         })((function (v354){
4449             if (arguments.length < 1) throw 'too few arguments';
4450             if (arguments.length > 1) throw 'too many arguments';
4451             return (function(){
4452                 try {
4453                     return (function(){
4454                         return f45(f20, f115(v354));
4455                     })();
4456                 }
4457                 catch (cf){
4458                     if (cf.type == 'block' && cf.id == 130)
4459                         return cf.value;
4460                     else
4461                         throw cf;
4462                 }
4463             })();
4464         }));
4465     })();
4466     return l125;
4467 })();
4468 var l127 = f3("LAMBDA-LIST-REST-ARGUMENT");
4469 var l126 = f3("&REST");
4470 var f117;
4471 (function(){
4472     (function(){
4473         return f117 = (function(v355){
4474             ((v355)["fname"] = "LAMBDA-LIST-REST-ARGUMENT");
4475             return v355;
4476         })((function (v356){
4477             if (arguments.length < 1) throw 'too few arguments';
4478             if (arguments.length > 1) throw 'too many arguments';
4479             return (function(){
4480                 try {
4481                     return (function(){
4482                         return (function(v357){
4483                             ((function(){
4484                                 var tmp = v357;
4485                                 return tmp === v2? v2: tmp.cdr;
4486                             })() !== v2 ? (function(){
4487                                 return (function (){ throw "Bad lambda-list"; })();
4488                             })() : v2);
4489                             return (function(){
4490                                 var tmp = v357;
4491                                 return tmp === v2? v2: tmp.car;
4492                             })();
4493                         })(f113((function(){
4494                             var tmp = f57(l126, v356);
4495                             return tmp === v2? v2: tmp.cdr;
4496                         })()));
4497                     })();
4498                 }
4499                 catch (cf){
4500                     if (cf.type == 'block' && cf.id == 131)
4501                         return cf.value;
4502                     else
4503                         throw cf;
4504                 }
4505             })();
4506         }));
4507     })();
4508     return l127;
4509 })();
4510 var l128 = f3("LAMBDA");
4511 v334 = ({car: f33(l128, (function (v359,v360){
4512     if (arguments.length < 2) throw 'too few arguments';
4513     var v358= v2;
4514     for (var i = arguments.length-1; i>=2; i--)
4515         v358 = {car: arguments[i], cdr: v358};
4516     return (function(){
4517         try {
4518             return (function(){
4519                 return (function(v361,v362,v363){
4520                     return (function(v364,v365,v366){
4521                         return f68("(function (", f69(f45((function (v367){
4522                             if (arguments.length < 1) throw 'too few arguments';
4523                             if (arguments.length > 1) throw 'too many arguments';
4524                             return f105(v367, v366);
4525                         }), 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(){
4526                             var x = v364;
4527                             var y = v365;
4528                             if (typeof x != 'number')
4529                                 throw 'The value ' + x + ' is not a type number.';
4530                             if (typeof y != 'number')
4531                                 throw 'The value ' + y + ' is not a type number.';
4532                             return x+y;
4533                         })()), ") throw 'too many arguments';", v176) : ""), (v362 !== v2 ? f68("switch(arguments.length){", v176, (function(v368,v369,v370){
4534                             return (function(){
4535                                 (function(){
4536                                     try {
4537                                         return (function(){
4538                                             return (function(){
4539                                                 while(((function(){
4540                                                     var x = v370;
4541                                                     var y = v365;
4542                                                     if (typeof x != 'number')
4543                                                         throw 'The value ' + x + ' is not a type number.';
4544                                                     if (typeof y != 'number')
4545                                                         throw 'The value ' + y + ' is not a type number.';
4546                                                     return x<y;
4547                                                 })()?v3: v2) !== v2){
4548                                                     (function(v371){
4549                                                         v369 = ({car: f68("case ", f6((function(){
4550                                                             var x = v370;
4551                                                             var y = v364;
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                                                         })()), ":", v176, f105((function(){
4558                                                             var tmp = v371;
4559                                                             return tmp === v2? v2: tmp.car;
4560                                                         })(), v366), "=", f73(f23(v371), v366), ";", v176), cdr: v369});
4561                                                         return v370 = (function(){
4562                                                             var x = v370;
4563                                                             var y = 1;
4564                                                             if (typeof x != 'number')
4565                                                                 throw 'The value ' + x + ' is not a type number.';
4566                                                             if (typeof y != 'number')
4567                                                                 throw 'The value ' + y + ' is not a type number.';
4568                                                             return x+y;
4569                                                         })();
4570                                                     })(f54(v370, v368));
4571                                                 }return v2;
4572                                             })();
4573                                         })();
4574                                     }
4575                                     catch (cf){
4576                                         if (cf.type == 'block' && cf.id == 133)
4577                                             return cf.value;
4578                                         else
4579                                             throw cf;
4580                                     }
4581                                 })();
4582                                 v369 = ({car: f68("default: break;", v176), cdr: v369});
4583                                 return f69(f41(v369));
4584                             })();
4585                         })(f115(v360),v2,0), "}", v176) : ""), (v363 !== v2 ? (function(v372){
4586                             return f68("var ", v372, "= ", f73(v2), ";", v176, "for (var i = arguments.length-1; i>=", f6((function(){
4587                                 var x = v364;
4588                                 var y = v365;
4589                                 if (typeof x != 'number')
4590                                     throw 'The value ' + x + ' is not a type number.';
4591                                 if (typeof y != 'number')
4592                                     throw 'The value ' + y + ' is not a type number.';
4593                                 return x+y;
4594                             })()), "; i--)", v176, f71(v372, " = ", "{car: arguments[i], cdr: "), v372, "};", v176);
4595                         })(f105(v363, v366)) : ""), f68(f112(f56(v358), v366), "return ", f73((function(){
4596                             var tmp = f55(v358);
4597                             return tmp === v2? v2: tmp.car;
4598                         })(), v366), ";")), v176, "})");
4599                     })(f43(v361),f43(v362),f106(f39(f35(v363), v361, v362), v359));
4600                 })(f114(v360),f116(v360),f117(v360));
4601             })();
4602         }
4603         catch (cf){
4604             if (cf.type == 'block' && cf.id == 132)
4605                 return cf.value;
4606             else
4607                 throw cf;
4608         }
4609     })();
4610 })), cdr: v334});
4611 var l129 = f3("FSETQ");
4612 v334 = ({car: f33(l129, (function (v373,v374,v375){
4613     if (arguments.length < 3) throw 'too few arguments';
4614     if (arguments.length > 3) throw 'too many arguments';
4615     return (function(){
4616         try {
4617             return (function(){
4618                 return f68(f108(v374, v373), " = ", f73(v375, v373));
4619             })();
4620         }
4621         catch (cf){
4622             if (cf.type == 'block' && cf.id == 134)
4623                 return cf.value;
4624             else
4625                 throw cf;
4626         }
4627     })();
4628 })), cdr: v334});
4629 var l130 = f3("SETQ");
4630 v334 = ({car: f33(l130, (function (v376,v377,v378){
4631     if (arguments.length < 3) throw 'too few arguments';
4632     if (arguments.length > 3) throw 'too many arguments';
4633     return (function(){
4634         try {
4635             return (function(){
4636                 return f68(f105(v377, v376), " = ", f73(v378, v376));
4637             })();
4638         }
4639         catch (cf){
4640             if (cf.type == 'block' && cf.id == 135)
4641                 return cf.value;
4642             else
4643                 throw cf;
4644         }
4645     })();
4646 })), cdr: v334});
4647 var l131 = f3("ESCAPE-STRING");
4648 var f75;
4649 (function(){
4650     (function(){
4651         return f75 = (function(v379){
4652             ((v379)["fname"] = "ESCAPE-STRING");
4653             return v379;
4654         })((function (v380){
4655             if (arguments.length < 1) throw 'too few arguments';
4656             if (arguments.length > 1) throw 'too many arguments';
4657             return (function(){
4658                 try {
4659                     return (function(){
4660                         return (function(v381,v382,v383){
4661                             (function(){
4662                                 try {
4663                                     return (function(){
4664                                         return (function(){
4665                                             while(((function(){
4666                                                 var x = v382;
4667                                                 var y = v383;
4668                                                 if (typeof x != 'number')
4669                                                     throw 'The value ' + x + ' is not a type number.';
4670                                                 if (typeof y != 'number')
4671                                                     throw 'The value ' + y + ' is not a type number.';
4672                                                 return x<y;
4673                                             })()?v3: v2) !== v2){
4674                                                 (function(v384){
4675                                                     ((function(v385){
4676                                                         return (v385 !== v2 ? v385 : f50(v384, 92));
4677                                                     })(f50(v384, 34)) !== v2 ? (function(){
4678                                                         return v381 = f68(v381, "\\");
4679                                                     })() : v2);
4680                                                     (f50(v384, 10) !== v2 ? (function(){
4681                                                         v381 = f68(v381, "\\");
4682                                                         return v384 = 110;
4683                                                     })() : v2);
4684                                                     return v381 = f68(v381, (function(){
4685                                                         var x = v384;
4686                                                         if (typeof x != 'number')
4687                                                             throw 'The value ' + x + ' is not a type number.';
4688                                                         return String.fromCharCode(x);
4689                                                     })());
4690                                                 })((function(){
4691                                                     var string = v380;
4692                                                     var index = v382;
4693                                                     if (typeof string != 'string')
4694                                                         throw 'The value ' + string + ' is not a type string.';
4695                                                     if (typeof index != 'number')
4696                                                         throw 'The value ' + index + ' is not a type number.';
4697                                                     return string.charCodeAt(index);
4698                                                 })());
4699                                                 v382 = (function(){
4700                                                     var x = v382;
4701                                                     var y = 1;
4702                                                     if (typeof x != 'number')
4703                                                         throw 'The value ' + x + ' is not a type number.';
4704                                                     if (typeof y != 'number')
4705                                                         throw 'The value ' + y + ' is not a type number.';
4706                                                     return x+y;
4707                                                 })();
4708                                             }return v2;
4709                                         })();
4710                                     })();
4711                                 }
4712                                 catch (cf){
4713                                     if (cf.type == 'block' && cf.id == 137)
4714                                         return cf.value;
4715                                     else
4716                                         throw cf;
4717                                 }
4718                             })();
4719                             return v381;
4720                         })("",0,f43(v380));
4721                     })();
4722                 }
4723                 catch (cf){
4724                     if (cf.type == 'block' && cf.id == 136)
4725                         return cf.value;
4726                     else
4727                         throw cf;
4728                 }
4729             })();
4730         }));
4731     })();
4732     return l131;
4733 })();
4734 var l133 = f3("LITERAL->JS");
4735 var l132 = f3("INTERN");
4736 var f118;
4737 (function(){
4738     (function(){
4739         return f118 = (function(v386){
4740             ((v386)["fname"] = "LITERAL->JS");
4741             return v386;
4742         })((function (v387){
4743             if (arguments.length < 1) throw 'too few arguments';
4744             if (arguments.length > 1) throw 'too many arguments';
4745             return (function(){
4746                 try {
4747                     return (function(){
4748                         return (f51(v387) !== v2 ? (function(){
4749                             return f6(v387);
4750                         })() : (((typeof(v387) == "string")?v3: v2) !== v2 ? (function(){
4751                             return f68("\"", f75(v387), "\"");
4752                         })() : (((function(){
4753                             var tmp = v387;
4754                             return (typeof tmp == 'object' && 'name' in tmp);
4755                         })()?v3: v2) !== v2 ? (function(){
4756                             return f73(f39(f33(l132), f33(f75((v387).name))), v289);
4757                         })() : (((function(){
4758                             var tmp = v387;
4759                             return (typeof tmp == 'object' && 'car' in tmp);
4760                         })()?v3: v2) !== v2 ? (function(){
4761                             return f68("{car: ", f118((function(){
4762                                 var tmp = v387;
4763                                 return tmp === v2? v2: tmp.car;
4764                             })()), ", cdr: ", f118((function(){
4765                                 var tmp = v387;
4766                                 return tmp === v2? v2: tmp.cdr;
4767                             })()), "}");
4768                         })() : v2))));
4769                     })();
4770                 }
4771                 catch (cf){
4772                     if (cf.type == 'block' && cf.id == 138)
4773                         return cf.value;
4774                     else
4775                         throw cf;
4776                 }
4777             })();
4778         }));
4779     })();
4780     return l133;
4781 })();
4782 var l134 = f3("*LITERAL-COUNTER*");
4783 var v388;
4784 (function(){
4785     (function(){
4786         return v388 = 0;
4787     })();
4788     return l134;
4789 })();
4790 var l135 = f3("LITERAL");
4791 var f119;
4792 (function(){
4793     (function(){
4794         return f119 = (function(v389){
4795             ((v389)["fname"] = "LITERAL");
4796             return v389;
4797         })((function (v390){
4798             if (arguments.length < 1) throw 'too few arguments';
4799             if (arguments.length > 1) throw 'too many arguments';
4800             return (function(){
4801                 try {
4802                     return (function(){
4803                         return (function(v391){
4804                             v324 = ({car: f68("var ", v391, " = ", f118(v390)), cdr: v324});
4805                             return v391;
4806                         })(f68("l", f6(v388 = (function(){
4807                             var x = v388;
4808                             var y = 1;
4809                             if (typeof x != 'number')
4810                                 throw 'The value ' + x + ' is not a type number.';
4811                             if (typeof y != 'number')
4812                                 throw 'The value ' + y + ' is not a type number.';
4813                             return x+y;
4814                         })())));
4815                     })();
4816                 }
4817                 catch (cf){
4818                     if (cf.type == 'block' && cf.id == 139)
4819                         return cf.value;
4820                     else
4821                         throw cf;
4822                 }
4823             })();
4824         }));
4825     })();
4826     return l135;
4827 })();
4828 var l136 = f3("QUOTE");
4829 v334 = ({car: f33(l136, (function (v392,v393){
4830     if (arguments.length < 2) throw 'too few arguments';
4831     if (arguments.length > 2) throw 'too many arguments';
4832     return (function(){
4833         try {
4834             return (function(){
4835                 return f119(v393);
4836             })();
4837         }
4838         catch (cf){
4839             if (cf.type == 'block' && cf.id == 140)
4840                 return cf.value;
4841             else
4842                 throw cf;
4843         }
4844     })();
4845 })), cdr: v334});
4846 var l137 = f3("%WHILE");
4847 v334 = ({car: f33(l137, (function (v395,v396){
4848     if (arguments.length < 2) throw 'too few arguments';
4849     var v394= v2;
4850     for (var i = arguments.length-1; i>=2; i--)
4851         v394 = {car: arguments[i], cdr: v394};
4852     return (function(){
4853         try {
4854             return (function(){
4855                 return f68("(function(){", v176, f71("while(", f73(v396, v395), " !== ", f73(v2), "){", v176, f71(f112(v394, v395)), "}", "return ", f73(v2), ";", v176), "})()");
4856             })();
4857         }
4858         catch (cf){
4859             if (cf.type == 'block' && cf.id == 141)
4860                 return cf.value;
4861             else
4862                 throw cf;
4863         }
4864     })();
4865 })), cdr: v334});
4866 var l139 = f3("LAMBDA");
4867 var l138 = f3("FUNCTION");
4868 v334 = ({car: f33(l138, (function (v397,v398){
4869     if (arguments.length < 2) throw 'too few arguments';
4870     if (arguments.length > 2) throw 'too many arguments';
4871     return (function(){
4872         try {
4873             return (function(){
4874                 return ((f36(v398) !== v2 ? (((function(){
4875                     var tmp = v398;
4876                     return tmp === v2? v2: tmp.car;
4877                 })() === l139)?v3: v2) : v2) !== v2 ? (function(){
4878                     return f73(v398, v397);
4879                 })() : (((function(){
4880                     var tmp = v398;
4881                     return (typeof tmp == 'object' && 'name' in tmp);
4882                 })()?v3: v2) !== v2 ? (function(){
4883                     return f108(v398, v397);
4884                 })() : v2));
4885             })();
4886         }
4887         catch (cf){
4888             if (cf.type == 'block' && cf.id == 142)
4889                 return cf.value;
4890             else
4891                 throw cf;
4892         }
4893     })();
4894 })), cdr: v334});
4895 var l141 = f3("PROGN");
4896 var l140 = f3("EVAL-WHEN-COMPILE");
4897 v334 = ({car: f33(l140, (function (v400){
4898     if (arguments.length < 1) throw 'too few arguments';
4899     var v399= v2;
4900     for (var i = arguments.length-1; i>=1; i--)
4901         v399 = {car: arguments[i], cdr: v399};
4902     return (function(){
4903         try {
4904             return (function(){
4905                 f120(({car: l141, cdr: v399}));
4906                 return "";
4907             })();
4908         }
4909         catch (cf){
4910             if (cf.type == 'block' && cf.id == 143)
4911                 return cf.value;
4912             else
4913                 throw cf;
4914         }
4915     })();
4916 })), cdr: v334});
4917 var l142 = f3("PROGN");
4918 v334 = ({car: f33(l142, (function (v402){
4919     if (arguments.length < 1) throw 'too few arguments';
4920     var v401= v2;
4921     for (var i = arguments.length-1; i>=1; i--)
4922         v401 = {car: arguments[i], cdr: v401};
4923     return (function(){
4924         try {
4925             return (function(){
4926                 return f68("(function(){", v176, f71(f112(f56(v401), v402), "return ", f73((function(){
4927                     var tmp = f55(v401);
4928                     return tmp === v2? v2: tmp.car;
4929                 })(), v402), ";", v176), "})()");
4930             })();
4931         }
4932         catch (cf){
4933             if (cf.type == 'block' && cf.id == 144)
4934                 return cf.value;
4935             else
4936                 throw cf;
4937         }
4938     })();
4939 })), cdr: v334});
4940 var l143 = f3("LET");
4941 v334 = ({car: f33(l143, (function (v404,v405){
4942     if (arguments.length < 2) throw 'too few arguments';
4943     var v403= v2;
4944     for (var i = arguments.length-1; i>=2; i--)
4945         v403 = {car: arguments[i], cdr: v403};
4946     return (function(){
4947         try {
4948             return (function(){
4949                 return (function(v406){
4950                     return (function(v407,v408){
4951                         return (function(v409){
4952                             return f68("(function(", f69(f45((function (v410){
4953                                 if (arguments.length < 1) throw 'too few arguments';
4954                                 if (arguments.length > 1) throw 'too many arguments';
4955                                 return f105(v410, v409);
4956                             }), v407), ","), "){", v176, f71(f112(f56(v403), v409), "return ", f73((function(){
4957                                 var tmp = f55(v403);
4958                                 return tmp === v2? v2: tmp.car;
4959                             })(), v409), ";", v176), "})(", f69(f45((function (v411){
4960                                 if (arguments.length < 1) throw 'too few arguments';
4961                                 if (arguments.length > 1) throw 'too many arguments';
4962                                 return f73(v411, v404);
4963                             }), v408), ","), ")");
4964                         })(f106(v407, v404));
4965                     })(f45(f29, v406),f45(f30, v406));
4966                 })(f45(f35, v405));
4967             })();
4968         }
4969         catch (cf){
4970             if (cf.type == 'block' && cf.id == 145)
4971                 return cf.value;
4972             else
4973                 throw cf;
4974         }
4975     })();
4976 })), cdr: v334});
4977 var l144 = f3("*BLOCK-COUNTER*");
4978 var v412;
4979 (function(){
4980     (function(){
4981         return v412 = 0;
4982     })();
4983     return l144;
4984 })();
4985 var l148 = f3("BLOCK");
4986 var l147 = f3("BLOCK");
4987 var l146 = f3("PROGN");
4988 var l145 = f3("BLOCK");
4989 v334 = ({car: f33(l145, (function (v414,v415){
4990     if (arguments.length < 2) throw 'too few arguments';
4991     var v413= v2;
4992     for (var i = arguments.length-1; i>=2; i--)
4993         v413 = {car: arguments[i], cdr: v413};
4994     return (function(){
4995         try {
4996             return (function(){
4997                 return (function(v416){
4998                     return (function(v417){
4999                         return f68("(function(){", v176, f71("try {", v176, f71("return ", f73(f39(f33(l146), v413), f100(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), "})()");
5000                     })(f91(v415, l148, v416, v3));
5001                 })(f6(v412 = (function(){
5002                     var x = v412;
5003                     var y = 1;
5004                     if (typeof x != 'number')
5005                         throw 'The value ' + x + ' is not a type number.';
5006                     if (typeof y != 'number')
5007                         throw 'The value ' + y + ' is not a type number.';
5008                     return x+y;
5009                 })()));
5010             })();
5011         }
5012         catch (cf){
5013             if (cf.type == 'block' && cf.id == 146)
5014                 return cf.value;
5015             else
5016                 throw cf;
5017         }
5018     })();
5019 })), cdr: v334});
5020 var l150 = f3("BLOCK");
5021 var l149 = f3("RETURN-FROM");
5022 v334 = ({car: f33(l149, (function (v418,v419,v420){
5023     if (arguments.length < 2) throw 'too few arguments';
5024     if (arguments.length > 3) throw 'too many arguments';
5025     switch(arguments.length){
5026     case 2:
5027     v420=v2;
5028     default: break;
5029     }
5030     return (function(){
5031         try {
5032             return (function(){
5033                 return (function(v421){
5034                     return (v421 !== v2 ? f68("(function(){", v176, f71("throw ({", "type: 'block', ", "id: ", f94(v421), ", ", "value: ", f73(v420, v418), ", ", "message: 'Return from unknown block ", (v419).name, ".'", "})"), "})()") : (function (){ throw f68("Unknown block `", (v419).name, "'."); })());
5035                 })(f101(v419, v418, l150));
5036             })();
5037         }
5038         catch (cf){
5039             if (cf.type == 'block' && cf.id == 147)
5040                 return cf.value;
5041             else
5042                 throw cf;
5043         }
5044     })();
5045 })), cdr: v334});
5046 var l152 = f3("PROGN");
5047 var l151 = f3("CATCH");
5048 v334 = ({car: f33(l151, (function (v423,v424){
5049     if (arguments.length < 2) throw 'too few arguments';
5050     var v422= v2;
5051     for (var i = arguments.length-1; i>=2; i--)
5052         v422 = {car: arguments[i], cdr: v422};
5053     return (function(){
5054         try {
5055             return (function(){
5056                 return f68("(function(){", v176, f71("var id = ", f73(v424, v423), ";", v176, "try {", v176, f71("return ", f73(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), "})()");
5057             })();
5058         }
5059         catch (cf){
5060             if (cf.type == 'block' && cf.id == 148)
5061                 return cf.value;
5062             else
5063                 throw cf;
5064         }
5065     })();
5066 })), cdr: v334});
5067 var l153 = f3("THROW");
5068 v334 = ({car: f33(l153, (function (v425,v426,v427){
5069     if (arguments.length < 2) throw 'too few arguments';
5070     if (arguments.length > 3) throw 'too many arguments';
5071     switch(arguments.length){
5072     case 2:
5073     v427=v2;
5074     default: break;
5075     }
5076     return (function(){
5077         try {
5078             return (function(){
5079                 return f68("(function(){", v176, f71("throw ({", "type: 'catch', ", "id: ", f73(v426, v425), ", ", "value: ", f73(v427, v425), ", ", "message: 'Throw uncatched.'", "})"), "})()");
5080             })();
5081         }
5082         catch (cf){
5083             if (cf.type == 'block' && cf.id == 149)
5084                 return cf.value;
5085             else
5086                 throw cf;
5087         }
5088     })();
5089 })), cdr: v334});
5090 var l154 = f3("*TAGBODY-COUNTER*");
5091 var v428;
5092 (function(){
5093     (function(){
5094         return v428 = 0;
5095     })();
5096     return l154;
5097 })();
5098 var l155 = f3("*GO-TAG-COUNTER*");
5099 var v429;
5100 (function(){
5101     (function(){
5102         return v429 = 0;
5103     })();
5104     return l155;
5105 })();
5106 var l156 = f3("GO-TAG-P");
5107 var f121;
5108 (function(){
5109     (function(){
5110         return f121 = (function(v430){
5111             ((v430)["fname"] = "GO-TAG-P");
5112             return v430;
5113         })((function (v431){
5114             if (arguments.length < 1) throw 'too few arguments';
5115             if (arguments.length > 1) throw 'too many arguments';
5116             return (function(){
5117                 try {
5118                     return (function(){
5119                         return (function(v432){
5120                             return (v432 !== v2 ? v432 : ((function(){
5121                                 var tmp = v431;
5122                                 return (typeof tmp == 'object' && 'name' in tmp);
5123                             })()?v3: v2));
5124                         })(f51(v431));
5125                     })();
5126                 }
5127                 catch (cf){
5128                     if (cf.type == 'block' && cf.id == 150)
5129                         return cf.value;
5130                     else
5131                         throw cf;
5132                 }
5133             })();
5134         }));
5135     })();
5136     return l156;
5137 })();
5138 var l159 = f3("DECLARE-TAGBODY-TAGS");
5139 var l158 = f3("GOTAG");
5140 var l157 = f3("GOTAG");
5141 var f122;
5142 (function(){
5143     (function(){
5144         return f122 = (function(v433){
5145             ((v433)["fname"] = "DECLARE-TAGBODY-TAGS");
5146             return v433;
5147         })((function (v434,v435,v436){
5148             if (arguments.length < 3) throw 'too few arguments';
5149             if (arguments.length > 3) throw 'too many arguments';
5150             return (function(){
5151                 try {
5152                     return (function(){
5153                         return (function(v437){
5154                             return f100(v437, v434, l157);
5155                         })(f45((function (v438){
5156                             if (arguments.length < 1) throw 'too few arguments';
5157                             if (arguments.length > 1) throw 'too many arguments';
5158                             return (function(v439){
5159                                 return f91(v438, l158, f33(v435, v439), v3);
5160                             })(f6(v429 = (function(){
5161                                 var x = v429;
5162                                 var y = 1;
5163                                 if (typeof x != 'number')
5164                                     throw 'The value ' + x + ' is not a type number.';
5165                                 if (typeof y != 'number')
5166                                     throw 'The value ' + y + ' is not a type number.';
5167                                 return x+y;
5168                             })()));
5169                         }), f60(f121, v436)));
5170                     })();
5171                 }
5172                 catch (cf){
5173                     if (cf.type == 'block' && cf.id == 151)
5174                         return cf.value;
5175                     else
5176                         throw cf;
5177                 }
5178             })();
5179         }));
5180     })();
5181     return l159;
5182 })();
5183 var l164 = f3("GOTAG");
5184 var l163 = f3("GOTAG");
5185 var l162 = f3("NIL");
5186 var l161 = f3("PROGN");
5187 var l160 = f3("TAGBODY");
5188 v334 = ({car: f33(l160, (function (v441){
5189     if (arguments.length < 1) throw 'too few arguments';
5190     var v440= v2;
5191     for (var i = arguments.length-1; i>=1; i--)
5192         v440 = {car: arguments[i], cdr: v440};
5193     return (function(){
5194         try {
5195             return (function(){
5196                 (f64(f121, v440) !== v2 ? v2 : (function(){
5197                     return (function(){ throw ({type: 'block', id: 152, value: f73(f39(f33(l161), v440, f33(l162)), v441), message: 'Return from unknown block TAGBODY.'})})();
5198                 })());
5199                 (f121((function(){
5200                     var tmp = v440;
5201                     return tmp === v2? v2: tmp.car;
5202                 })()) !== v2 ? v2 : (function(){
5203                     return v440 = ({car: f5("START"), cdr: v440});
5204                 })());
5205                 return (function(v442){
5206                     return (function(v443,v444){
5207                         (function(v445){
5208                             return v444 = f30(f94(v445));
5209                         })(f101(f29(v440), v443, l163));
5210                         return f68("(function(){", v176, f71("var tagbody_", v442, " = ", v444, ";", v176, "tbloop:", v176, "while (true) {", v176, f71("try {", v176, f71((function(v446){
5211                             return f68("switch(tagbody_", v442, "){", v176, "case ", v444, ":", v176, (function(){
5212                                 try {
5213                                     return (function(){
5214                                         return (function(v447,v448){
5215                                             (function(){
5216                                                 while(v447 !== v2){
5217                                                     v448 = (function(){
5218                                                         var tmp = v447;
5219                                                         return tmp === v2? v2: tmp.car;
5220                                                     })();
5221                                                     v446 = f68(v446, (function(){
5222                                                         return (f17(f121(v448)) !== v2 ? f71(f73(v448, v443), ";", v176) : (function(v449){
5223                                                             return f68("case ", f30(f94(v449)), ":", v176);
5224                                                         })(f101(v448, v443, l164)));
5225                                                     })());
5226                                                     v447 = (function(){
5227                                                         var tmp = v447;
5228                                                         return tmp === v2? v2: tmp.cdr;
5229                                                     })();
5230                                                 }return v2;
5231                                             })();
5232                                             return v446;
5233                                         })((function(){
5234                                             var tmp = v440;
5235                                             return tmp === v2? v2: tmp.cdr;
5236                                         })(),v2);
5237                                     })();
5238                                 }
5239                                 catch (cf){
5240                                     if (cf.type == 'block' && cf.id == 153)
5241                                         return cf.value;
5242                                     else
5243                                         throw cf;
5244                                 }
5245                             })(), "default:", v176, "    break tbloop;", v176, "}", v176);
5246                         })("")), "}", 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 ", f73(v2), ";", v176), "})()");
5247                     })(f122(v441, v442, v440),v2);
5248                 })(f6(v428));
5249             })();
5250         }
5251         catch (cf){
5252             if (cf.type == 'block' && cf.id == 152)
5253                 return cf.value;
5254             else
5255                 throw cf;
5256         }
5257     })();
5258 })), cdr: v334});
5259 var l166 = f3("GOTAG");
5260 var l165 = f3("GO");
5261 v334 = ({car: f33(l165, (function (v450,v451){
5262     if (arguments.length < 2) throw 'too few arguments';
5263     if (arguments.length > 2) throw 'too many arguments';
5264     return (function(){
5265         try {
5266             return (function(){
5267                 return (function(v452,v453){
5268                     return (v452 !== v2 ? f68("(function(){", v176, f71("throw ({", "type: 'tagbody', ", "id: ", f29(f94(v452)), ", ", "label: ", f30(f94(v452)), ", ", "message: 'Attempt to GO to non-existing tag ", v453, "'", "})", v176), "})()") : (function (){ throw f68("Unknown tag `", v453, "'."); })());
5269                 })(f101(v451, v450, l166),(((function(){
5270                     var tmp = v451;
5271                     return (typeof tmp == 'object' && 'name' in tmp);
5272                 })()?v3: v2) !== v2 ? (function(){
5273                     return (v451).name;
5274                 })() : (f51(v451) !== v2 ? (function(){
5275                     return f6(v451);
5276                 })() : v2)));
5277             })();
5278         }
5279         catch (cf){
5280             if (cf.type == 'block' && cf.id == 154)
5281                 return cf.value;
5282             else
5283                 throw cf;
5284         }
5285     })();
5286 })), cdr: v334});
5287 var l167 = f3("UNWIND-PROTECT");
5288 v334 = ({car: f33(l167, (function (v455,v456){
5289     if (arguments.length < 2) throw 'too few arguments';
5290     var v454= v2;
5291     for (var i = arguments.length-1; i>=2; i--)
5292         v454 = {car: arguments[i], cdr: v454};
5293     return (function(){
5294         try {
5295             return (function(){
5296                 return f68("(function(){", v176, f71("var ret = ", f73(v2), ";", v176, "try {", v176, f71("ret = ", f73(v456, v455), ";", v176), "} finally {", v176, f71(f112(v454, v455)), "}", v176, "return ret;", v176), "})()");
5297             })();
5298         }
5299         catch (cf){
5300             if (cf.type == 'block' && cf.id == 155)
5301                 return cf.value;
5302             else
5303                 throw cf;
5304         }
5305     })();
5306 })), cdr: v334});
5307 var l176 = f3("BACKQUOTE-EXPAND-1");
5308 var l175 = f3("LIST");
5309 var l174 = f3("UNQUOTE-SPLICING");
5310 var l173 = f3("LIST");
5311 var l172 = f3("UNQUOTE");
5312 var l171 = f3("APPEND");
5313 var l170 = f3("BACKQUOTE");
5314 var l169 = f3("UNQUOTE");
5315 var l168 = f3("QUOTE");
5316 var f123;
5317 (function(){
5318     (function(){
5319         return f123 = (function(v457){
5320             ((v457)["fname"] = "BACKQUOTE-EXPAND-1");
5321             return v457;
5322         })((function (v458){
5323             if (arguments.length < 1) throw 'too few arguments';
5324             if (arguments.length > 1) throw 'too many arguments';
5325             return (function(){
5326                 try {
5327                     return (function(){
5328                         return (((function(){
5329                             var tmp = v458;
5330                             return (typeof tmp == 'object' && 'name' in tmp);
5331                         })()?v3: v2) !== v2 ? (function(){
5332                             return f33(l168, v458);
5333                         })() : (f34(v458) !== v2 ? (function(){
5334                             return v458;
5335                         })() : ((((function(){
5336                             var tmp = v458;
5337                             return tmp === v2? v2: tmp.car;
5338                         })() === l169)?v3: v2) !== v2 ? (function(){
5339                             return (function(){
5340                                 var tmp = v458;
5341                                 return tmp === v2? v2: tmp.car;
5342                             })();
5343                         })() : ((((function(){
5344                             var tmp = v458;
5345                             return tmp === v2? v2: tmp.car;
5346                         })() === l170)?v3: v2) !== v2 ? (function(){
5347                             return f123(f123(f23(v458)));
5348                         })() : (function(){
5349                             return ({car: l171, cdr: f45((function (v459){
5350                                 if (arguments.length < 1) throw 'too few arguments';
5351                                 if (arguments.length > 1) throw 'too many arguments';
5352                                 return ((f36(v459) !== v2 ? (((function(){
5353                                     var tmp = v459;
5354                                     return tmp === v2? v2: tmp.car;
5355                                 })() === l172)?v3: v2) : v2) !== v2 ? (function(){
5356                                     return f33(l173, f23(v459));
5357                                 })() : ((f36(v459) !== v2 ? (((function(){
5358                                     var tmp = v459;
5359                                     return tmp === v2? v2: tmp.car;
5360                                 })() === l174)?v3: v2) : v2) !== v2 ? (function(){
5361                                     return f23(v459);
5362                                 })() : (function(){
5363                                     return f33(l175, f123(v459));
5364                                 })()));
5365                             }), v458)});
5366                         })()))));
5367                     })();
5368                 }
5369                 catch (cf){
5370                     if (cf.type == 'block' && cf.id == 156)
5371                         return cf.value;
5372                     else
5373                         throw cf;
5374                 }
5375             })();
5376         }));
5377     })();
5378     return l176;
5379 })();
5380 var l178 = f3("BACKQUOTE-EXPAND");
5381 var l177 = f3("BACKQUOTE");
5382 var f124;
5383 (function(){
5384     (function(){
5385         return f124 = (function(v460){
5386             ((v460)["fname"] = "BACKQUOTE-EXPAND");
5387             return v460;
5388         })((function (v461){
5389             if (arguments.length < 1) throw 'too few arguments';
5390             if (arguments.length > 1) throw 'too many arguments';
5391             return (function(){
5392                 try {
5393                     return (function(){
5394                         return ((f36(v461) !== v2 ? (((function(){
5395                             var tmp = v461;
5396                             return tmp === v2? v2: tmp.car;
5397                         })() === l177)?v3: v2) : v2) !== v2 ? f123(f23(v461)) : v461);
5398                     })();
5399                 }
5400                 catch (cf){
5401                     if (cf.type == 'block' && cf.id == 157)
5402                         return cf.value;
5403                     else
5404                         throw cf;
5405                 }
5406             })();
5407         }));
5408     })();
5409     return l178;
5410 })();
5411 var l179 = f3("BACKQUOTE");
5412 v334 = ({car: f33(l179, (function (v462,v463){
5413     if (arguments.length < 2) throw 'too few arguments';
5414     if (arguments.length > 2) throw 'too many arguments';
5415     return (function(){
5416         try {
5417             return (function(){
5418                 return f73(f123(v463), v462);
5419             })();
5420         }
5421         catch (cf){
5422             if (cf.type == 'block' && cf.id == 158)
5423                 return cf.value;
5424             else
5425                 throw cf;
5426         }
5427     })();
5428 })), cdr: v334});
5429 var l180 = f3("NUM-OP-NUM");
5430 var f125;
5431 (function(){
5432     (function(){
5433         return f125 = (function(v464){
5434             ((v464)["fname"] = "NUM-OP-NUM");
5435             return v464;
5436         })((function (v465,v466,v467){
5437             if (arguments.length < 3) throw 'too few arguments';
5438             if (arguments.length > 3) throw 'too many arguments';
5439             return (function(){
5440                 try {
5441                     return (function(){
5442                         return f68("(function(){", v176, f71(f68("var ", "x", " = ", v465, ";", v176), f68("var ", "y", " = ", v467, ";", 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(){
5443                             return f68("x", v466, "y");
5444                         })(), ";", v176)), "})()");
5445                     })();
5446                 }
5447                 catch (cf){
5448                     if (cf.type == 'block' && cf.id == 159)
5449                         return cf.value;
5450                     else
5451                         throw cf;
5452                 }
5453             })();
5454         }));
5455     })();
5456     return l180;
5457 })();
5458 var l181 = f3("+");
5459 v334 = ({car: f33(l181, (function (v468,v469,v470){
5460     if (arguments.length < 3) throw 'too few arguments';
5461     if (arguments.length > 3) throw 'too many arguments';
5462     return (function(){
5463         try {
5464             return (function(){
5465                 return (function(v471,v472){
5466                     return f125(v471, "+", v472);
5467                 })(f73(v469, v468),f73(v470, v468));
5468             })();
5469         }
5470         catch (cf){
5471             if (cf.type == 'block' && cf.id == 160)
5472                 return cf.value;
5473             else
5474                 throw cf;
5475         }
5476     })();
5477 })), cdr: v334});
5478 var l182 = f3("-");
5479 v334 = ({car: f33(l182, (function (v473,v474,v475){
5480     if (arguments.length < 3) throw 'too few arguments';
5481     if (arguments.length > 3) throw 'too many arguments';
5482     return (function(){
5483         try {
5484             return (function(){
5485                 return (function(v476,v477){
5486                     return f125(v476, "-", v477);
5487                 })(f73(v474, v473),f73(v475, v473));
5488             })();
5489         }
5490         catch (cf){
5491             if (cf.type == 'block' && cf.id == 161)
5492                 return cf.value;
5493             else
5494                 throw cf;
5495         }
5496     })();
5497 })), cdr: v334});
5498 var l183 = f3("*");
5499 v334 = ({car: f33(l183, (function (v478,v479,v480){
5500     if (arguments.length < 3) throw 'too few arguments';
5501     if (arguments.length > 3) throw 'too many arguments';
5502     return (function(){
5503         try {
5504             return (function(){
5505                 return (function(v481,v482){
5506                     return f125(v481, "*", v482);
5507                 })(f73(v479, v478),f73(v480, v478));
5508             })();
5509         }
5510         catch (cf){
5511             if (cf.type == 'block' && cf.id == 162)
5512                 return cf.value;
5513             else
5514                 throw cf;
5515         }
5516     })();
5517 })), cdr: v334});
5518 var l184 = f3("/");
5519 v334 = ({car: f33(l184, (function (v483,v484,v485){
5520     if (arguments.length < 3) throw 'too few arguments';
5521     if (arguments.length > 3) throw 'too many arguments';
5522     return (function(){
5523         try {
5524             return (function(){
5525                 return (function(v486,v487){
5526                     return f125(v486, "/", v487);
5527                 })(f73(v484, v483),f73(v485, v483));
5528             })();
5529         }
5530         catch (cf){
5531             if (cf.type == 'block' && cf.id == 163)
5532                 return cf.value;
5533             else
5534                 throw cf;
5535         }
5536     })();
5537 })), cdr: v334});
5538 var l185 = f3("MOD");
5539 v334 = ({car: f33(l185, (function (v488,v489,v490){
5540     if (arguments.length < 3) throw 'too few arguments';
5541     if (arguments.length > 3) throw 'too many arguments';
5542     return (function(){
5543         try {
5544             return (function(){
5545                 return (function(v491,v492){
5546                     return f125(v491, "%", v492);
5547                 })(f73(v489, v488),f73(v490, v488));
5548             })();
5549         }
5550         catch (cf){
5551             if (cf.type == 'block' && cf.id == 164)
5552                 return cf.value;
5553             else
5554                 throw cf;
5555         }
5556     })();
5557 })), cdr: v334});
5558 var l186 = f3("<");
5559 v334 = ({car: f33(l186, (function (v493,v494,v495){
5560     if (arguments.length < 3) throw 'too few arguments';
5561     if (arguments.length > 3) throw 'too many arguments';
5562     return (function(){
5563         try {
5564             return (function(){
5565                 return (function(v496,v497){
5566                     return f72(f125(v496, "<", v497));
5567                 })(f73(v494, v493),f73(v495, v493));
5568             })();
5569         }
5570         catch (cf){
5571             if (cf.type == 'block' && cf.id == 165)
5572                 return cf.value;
5573             else
5574                 throw cf;
5575         }
5576     })();
5577 })), cdr: v334});
5578 var l187 = f3(">");
5579 v334 = ({car: f33(l187, (function (v498,v499,v500){
5580     if (arguments.length < 3) throw 'too few arguments';
5581     if (arguments.length > 3) throw 'too many arguments';
5582     return (function(){
5583         try {
5584             return (function(){
5585                 return (function(v501,v502){
5586                     return f72(f125(v501, ">", v502));
5587                 })(f73(v499, v498),f73(v500, v498));
5588             })();
5589         }
5590         catch (cf){
5591             if (cf.type == 'block' && cf.id == 166)
5592                 return cf.value;
5593             else
5594                 throw cf;
5595         }
5596     })();
5597 })), cdr: v334});
5598 var l188 = f3("=");
5599 v334 = ({car: f33(l188, (function (v503,v504,v505){
5600     if (arguments.length < 3) throw 'too few arguments';
5601     if (arguments.length > 3) throw 'too many arguments';
5602     return (function(){
5603         try {
5604             return (function(){
5605                 return (function(v506,v507){
5606                     return f72(f125(v506, "==", v507));
5607                 })(f73(v504, v503),f73(v505, v503));
5608             })();
5609         }
5610         catch (cf){
5611             if (cf.type == 'block' && cf.id == 167)
5612                 return cf.value;
5613             else
5614                 throw cf;
5615         }
5616     })();
5617 })), cdr: v334});
5618 var l189 = f3("<=");
5619 v334 = ({car: f33(l189, (function (v508,v509,v510){
5620     if (arguments.length < 3) throw 'too few arguments';
5621     if (arguments.length > 3) throw 'too many arguments';
5622     return (function(){
5623         try {
5624             return (function(){
5625                 return (function(v511,v512){
5626                     return f72(f125(v511, "<=", v512));
5627                 })(f73(v509, v508),f73(v510, v508));
5628             })();
5629         }
5630         catch (cf){
5631             if (cf.type == 'block' && cf.id == 168)
5632                 return cf.value;
5633             else
5634                 throw cf;
5635         }
5636     })();
5637 })), cdr: v334});
5638 var l190 = f3(">=");
5639 v334 = ({car: f33(l190, (function (v513,v514,v515){
5640     if (arguments.length < 3) throw 'too few arguments';
5641     if (arguments.length > 3) throw 'too many arguments';
5642     return (function(){
5643         try {
5644             return (function(){
5645                 return (function(v516,v517){
5646                     return f72(f125(v516, ">=", v517));
5647                 })(f73(v514, v513),f73(v515, v513));
5648             })();
5649         }
5650         catch (cf){
5651             if (cf.type == 'block' && cf.id == 169)
5652                 return cf.value;
5653             else
5654                 throw cf;
5655         }
5656     })();
5657 })), cdr: v334});
5658 var l191 = f3("NUMBERP");
5659 v334 = ({car: f33(l191, (function (v518,v519){
5660     if (arguments.length < 2) throw 'too few arguments';
5661     if (arguments.length > 2) throw 'too many arguments';
5662     return (function(){
5663         try {
5664             return (function(){
5665                 return (function(v520){
5666                     return f72(f68("(typeof (", v520, ") == \"number\")"));
5667                 })(f73(v519, v518));
5668             })();
5669         }
5670         catch (cf){
5671             if (cf.type == 'block' && cf.id == 170)
5672                 return cf.value;
5673             else
5674                 throw cf;
5675         }
5676     })();
5677 })), cdr: v334});
5678 var l192 = f3("FLOOR");
5679 v334 = ({car: f33(l192, (function (v521,v522){
5680     if (arguments.length < 2) throw 'too few arguments';
5681     if (arguments.length > 2) throw 'too many arguments';
5682     return (function(){
5683         try {
5684             return (function(){
5685                 return (function(v523){
5686                     return f68("(function(){", v176, f71(f68("var ", "x", " = ", v523, ";", v176), f68("if (typeof ", "x", " != '", "number", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v176)), f68("return ", (function(){
5687                         return "Math.floor(x)";
5688                     })(), ";", v176)), "})()");
5689                 })(f73(v522, v521));
5690             })();
5691         }
5692         catch (cf){
5693             if (cf.type == 'block' && cf.id == 171)
5694                 return cf.value;
5695             else
5696                 throw cf;
5697         }
5698     })();
5699 })), cdr: v334});
5700 var l193 = f3("CONS");
5701 v334 = ({car: f33(l193, (function (v524,v525,v526){
5702     if (arguments.length < 3) throw 'too few arguments';
5703     if (arguments.length > 3) throw 'too many arguments';
5704     return (function(){
5705         try {
5706             return (function(){
5707                 return (function(v527,v528){
5708                     return f68("({car: ", v527, ", cdr: ", v528, "})");
5709                 })(f73(v525, v524),f73(v526, v524));
5710             })();
5711         }
5712         catch (cf){
5713             if (cf.type == 'block' && cf.id == 172)
5714                 return cf.value;
5715             else
5716                 throw cf;
5717         }
5718     })();
5719 })), cdr: v334});
5720 var l194 = f3("CONSP");
5721 v334 = ({car: f33(l194, (function (v529,v530){
5722     if (arguments.length < 2) throw 'too few arguments';
5723     if (arguments.length > 2) throw 'too many arguments';
5724     return (function(){
5725         try {
5726             return (function(){
5727                 return (function(v531){
5728                     return f72(f68("(function(){", v176, f71("var tmp = ", v531, ";", v176, "return (typeof tmp == 'object' && 'car' in tmp);", v176), "})()"));
5729                 })(f73(v530, v529));
5730             })();
5731         }
5732         catch (cf){
5733             if (cf.type == 'block' && cf.id == 173)
5734                 return cf.value;
5735             else
5736                 throw cf;
5737         }
5738     })();
5739 })), cdr: v334});
5740 var l195 = f3("CAR");
5741 v334 = ({car: f33(l195, (function (v532,v533){
5742     if (arguments.length < 2) throw 'too few arguments';
5743     if (arguments.length > 2) throw 'too many arguments';
5744     return (function(){
5745         try {
5746             return (function(){
5747                 return (function(v534){
5748                     return f68("(function(){", v176, f71("var tmp = ", v534, ";", v176, "return tmp === ", f73(v2), "? ", f73(v2), ": tmp.car;", v176), "})()");
5749                 })(f73(v533, v532));
5750             })();
5751         }
5752         catch (cf){
5753             if (cf.type == 'block' && cf.id == 174)
5754                 return cf.value;
5755             else
5756                 throw cf;
5757         }
5758     })();
5759 })), cdr: v334});
5760 var l196 = f3("CDR");
5761 v334 = ({car: f33(l196, (function (v535,v536){
5762     if (arguments.length < 2) throw 'too few arguments';
5763     if (arguments.length > 2) throw 'too many arguments';
5764     return (function(){
5765         try {
5766             return (function(){
5767                 return (function(v537){
5768                     return f68("(function(){", v176, f71("var tmp = ", v537, ";", v176, "return tmp === ", f73(v2), "? ", f73(v2), ": tmp.cdr;", v176), "})()");
5769                 })(f73(v536, v535));
5770             })();
5771         }
5772         catch (cf){
5773             if (cf.type == 'block' && cf.id == 175)
5774                 return cf.value;
5775             else
5776                 throw cf;
5777         }
5778     })();
5779 })), cdr: v334});
5780 var l197 = f3("SETCAR");
5781 v334 = ({car: f33(l197, (function (v538,v539,v540){
5782     if (arguments.length < 3) throw 'too few arguments';
5783     if (arguments.length > 3) throw 'too many arguments';
5784     return (function(){
5785         try {
5786             return (function(){
5787                 return (function(v541,v542){
5788                     return f68("(function(){", v176, f71(f68("var ", "x", " = ", v541, ";", v176), f68("if (typeof ", "x", " != '", "object", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v176)), f68("return ", (function(){
5789                         return f68("(x.car = ", v542, ")");
5790                     })(), ";", v176)), "})()");
5791                 })(f73(v539, v538),f73(v540, v538));
5792             })();
5793         }
5794         catch (cf){
5795             if (cf.type == 'block' && cf.id == 176)
5796                 return cf.value;
5797             else
5798                 throw cf;
5799         }
5800     })();
5801 })), cdr: v334});
5802 var l198 = f3("SETCDR");
5803 v334 = ({car: f33(l198, (function (v543,v544,v545){
5804     if (arguments.length < 3) throw 'too few arguments';
5805     if (arguments.length > 3) throw 'too many arguments';
5806     return (function(){
5807         try {
5808             return (function(){
5809                 return (function(v546,v547){
5810                     return f68("(function(){", v176, f71(f68("var ", "x", " = ", v546, ";", v176), f68("if (typeof ", "x", " != '", "object", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v176)), f68("return ", (function(){
5811                         return f68("(x.cdr = ", v547, ")");
5812                     })(), ";", v176)), "})()");
5813                 })(f73(v544, v543),f73(v545, v543));
5814             })();
5815         }
5816         catch (cf){
5817             if (cf.type == 'block' && cf.id == 177)
5818                 return cf.value;
5819             else
5820                 throw cf;
5821         }
5822     })();
5823 })), cdr: v334});
5824 var l199 = f3("SYMBOLP");
5825 v334 = ({car: f33(l199, (function (v548,v549){
5826     if (arguments.length < 2) throw 'too few arguments';
5827     if (arguments.length > 2) throw 'too many arguments';
5828     return (function(){
5829         try {
5830             return (function(){
5831                 return (function(v550){
5832                     return f72(f68("(function(){", v176, f71("var tmp = ", v550, ";", v176, "return (typeof tmp == 'object' && 'name' in tmp);", v176), "})()"));
5833                 })(f73(v549, v548));
5834             })();
5835         }
5836         catch (cf){
5837             if (cf.type == 'block' && cf.id == 178)
5838                 return cf.value;
5839             else
5840                 throw cf;
5841         }
5842     })();
5843 })), cdr: v334});
5844 var l200 = f3("MAKE-SYMBOL");
5845 v334 = ({car: f33(l200, (function (v551,v552){
5846     if (arguments.length < 2) throw 'too few arguments';
5847     if (arguments.length > 2) throw 'too many arguments';
5848     return (function(){
5849         try {
5850             return (function(){
5851                 return (function(v553){
5852                     return f68("(function(){", v176, f71(f68("var ", "name", " = ", v553, ";", v176), f68("if (typeof ", "name", " != '", "string", "')", v176, f71("throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
5853                         return "({name: name})";
5854                     })(), ";", v176)), "})()");
5855                 })(f73(v552, v551));
5856             })();
5857         }
5858         catch (cf){
5859             if (cf.type == 'block' && cf.id == 179)
5860                 return cf.value;
5861             else
5862                 throw cf;
5863         }
5864     })();
5865 })), cdr: v334});
5866 var l201 = f3("SYMBOL-NAME");
5867 v334 = ({car: f33(l201, (function (v554,v555){
5868     if (arguments.length < 2) throw 'too few arguments';
5869     if (arguments.length > 2) throw 'too many arguments';
5870     return (function(){
5871         try {
5872             return (function(){
5873                 return (function(v556){
5874                     return f68("(", v556, ").name");
5875                 })(f73(v555, v554));
5876             })();
5877         }
5878         catch (cf){
5879             if (cf.type == 'block' && cf.id == 180)
5880                 return cf.value;
5881             else
5882                 throw cf;
5883         }
5884     })();
5885 })), cdr: v334});
5886 var l202 = f3("EQ");
5887 v334 = ({car: f33(l202, (function (v557,v558,v559){
5888     if (arguments.length < 3) throw 'too few arguments';
5889     if (arguments.length > 3) throw 'too many arguments';
5890     return (function(){
5891         try {
5892             return (function(){
5893                 return (function(v560,v561){
5894                     return f72(f68("(", v560, " === ", v561, ")"));
5895                 })(f73(v558, v557),f73(v559, v557));
5896             })();
5897         }
5898         catch (cf){
5899             if (cf.type == 'block' && cf.id == 181)
5900                 return cf.value;
5901             else
5902                 throw cf;
5903         }
5904     })();
5905 })), cdr: v334});
5906 var l203 = f3("EQUAL");
5907 v334 = ({car: f33(l203, (function (v562,v563,v564){
5908     if (arguments.length < 3) throw 'too few arguments';
5909     if (arguments.length > 3) throw 'too many arguments';
5910     return (function(){
5911         try {
5912             return (function(){
5913                 return (function(v565,v566){
5914                     return f72(f68("(", v565, " == ", v566, ")"));
5915                 })(f73(v563, v562),f73(v564, v562));
5916             })();
5917         }
5918         catch (cf){
5919             if (cf.type == 'block' && cf.id == 182)
5920                 return cf.value;
5921             else
5922                 throw cf;
5923         }
5924     })();
5925 })), cdr: v334});
5926 var l204 = f3("STRING");
5927 v334 = ({car: f33(l204, (function (v567,v568){
5928     if (arguments.length < 2) throw 'too few arguments';
5929     if (arguments.length > 2) throw 'too many arguments';
5930     return (function(){
5931         try {
5932             return (function(){
5933                 return (function(v569){
5934                     return f68("(function(){", v176, f71(f68("var ", "x", " = ", v569, ";", v176), f68("if (typeof ", "x", " != '", "number", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v176)), f68("return ", (function(){
5935                         return "String.fromCharCode(x)";
5936                     })(), ";", v176)), "})()");
5937                 })(f73(v568, v567));
5938             })();
5939         }
5940         catch (cf){
5941             if (cf.type == 'block' && cf.id == 183)
5942                 return cf.value;
5943             else
5944                 throw cf;
5945         }
5946     })();
5947 })), cdr: v334});
5948 var l205 = f3("STRINGP");
5949 v334 = ({car: f33(l205, (function (v570,v571){
5950     if (arguments.length < 2) throw 'too few arguments';
5951     if (arguments.length > 2) throw 'too many arguments';
5952     return (function(){
5953         try {
5954             return (function(){
5955                 return (function(v572){
5956                     return f72(f68("(typeof(", v572, ") == \"string\")"));
5957                 })(f73(v571, v570));
5958             })();
5959         }
5960         catch (cf){
5961             if (cf.type == 'block' && cf.id == 184)
5962                 return cf.value;
5963             else
5964                 throw cf;
5965         }
5966     })();
5967 })), cdr: v334});
5968 var l206 = f3("STRING-UPCASE");
5969 v334 = ({car: f33(l206, (function (v573,v574){
5970     if (arguments.length < 2) throw 'too few arguments';
5971     if (arguments.length > 2) throw 'too many arguments';
5972     return (function(){
5973         try {
5974             return (function(){
5975                 return (function(v575){
5976                     return f68("(function(){", v176, f71(f68("var ", "x", " = ", v575, ";", v176), f68("if (typeof ", "x", " != '", "string", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
5977                         return "x.toUpperCase()";
5978                     })(), ";", v176)), "})()");
5979                 })(f73(v574, v573));
5980             })();
5981         }
5982         catch (cf){
5983             if (cf.type == 'block' && cf.id == 185)
5984                 return cf.value;
5985             else
5986                 throw cf;
5987         }
5988     })();
5989 })), cdr: v334});
5990 var l207 = f3("STRING-LENGTH");
5991 v334 = ({car: f33(l207, (function (v576,v577){
5992     if (arguments.length < 2) throw 'too few arguments';
5993     if (arguments.length > 2) throw 'too many arguments';
5994     return (function(){
5995         try {
5996             return (function(){
5997                 return (function(v578){
5998                     return f68("(function(){", v176, f71(f68("var ", "x", " = ", v578, ";", v176), f68("if (typeof ", "x", " != '", "string", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
5999                         return "x.length";
6000                     })(), ";", v176)), "})()");
6001                 })(f73(v577, v576));
6002             })();
6003         }
6004         catch (cf){
6005             if (cf.type == 'block' && cf.id == 186)
6006                 return cf.value;
6007             else
6008                 throw cf;
6009         }
6010     })();
6011 })), cdr: v334});
6012 var l208 = f3("SLICE");
6013 v334 = ({car: f33(l208, (function (v579,v580,v581,v582){
6014     if (arguments.length < 3) throw 'too few arguments';
6015     if (arguments.length > 4) throw 'too many arguments';
6016     switch(arguments.length){
6017     case 3:
6018     v582=v2;
6019     default: break;
6020     }
6021     return (function(){
6022         try {
6023             return (function(){
6024                 return f68("(function(){", v176, f71("var str = ", f73(v580, v579), ";", v176, "var a = ", f73(v581, v579), ";", v176, "var b;", v176, (v582 !== v2 ? f68("b = ", f73(v582, v579), ";", v176) : ""), "return str.slice(a,b);", v176), "})()");
6025             })();
6026         }
6027         catch (cf){
6028             if (cf.type == 'block' && cf.id == 187)
6029                 return cf.value;
6030             else
6031                 throw cf;
6032         }
6033     })();
6034 })), cdr: v334});
6035 var l209 = f3("CHAR");
6036 v334 = ({car: f33(l209, (function (v583,v584,v585){
6037     if (arguments.length < 3) throw 'too few arguments';
6038     if (arguments.length > 3) throw 'too many arguments';
6039     return (function(){
6040         try {
6041             return (function(){
6042                 return (function(v586,v587){
6043                     return f68("(function(){", v176, f71(f68("var ", "string", " = ", v586, ";", v176), f68("var ", "index", " = ", v587, ";", 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(){
6044                         return "string.charCodeAt(index)";
6045                     })(), ";", v176)), "})()");
6046                 })(f73(v584, v583),f73(v585, v583));
6047             })();
6048         }
6049         catch (cf){
6050             if (cf.type == 'block' && cf.id == 188)
6051                 return cf.value;
6052             else
6053                 throw cf;
6054         }
6055     })();
6056 })), cdr: v334});
6057 var l210 = f3("CONCAT-TWO");
6058 v334 = ({car: f33(l210, (function (v588,v589,v590){
6059     if (arguments.length < 3) throw 'too few arguments';
6060     if (arguments.length > 3) throw 'too many arguments';
6061     return (function(){
6062         try {
6063             return (function(){
6064                 return (function(v591,v592){
6065                     return f68("(function(){", v176, f71(f68("var ", "string1", " = ", v591, ";", v176), f68("var ", "string2", " = ", v592, ";", 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(){
6066                         return "string1.concat(string2)";
6067                     })(), ";", v176)), "})()");
6068                 })(f73(v589, v588),f73(v590, v588));
6069             })();
6070         }
6071         catch (cf){
6072             if (cf.type == 'block' && cf.id == 189)
6073                 return cf.value;
6074             else
6075                 throw cf;
6076         }
6077     })();
6078 })), cdr: v334});
6079 var l211 = f3("FUNCALL");
6080 v334 = ({car: f33(l211, (function (v594,v595){
6081     if (arguments.length < 2) throw 'too few arguments';
6082     var v593= v2;
6083     for (var i = arguments.length-1; i>=2; i--)
6084         v593 = {car: arguments[i], cdr: v593};
6085     return (function(){
6086         try {
6087             return (function(){
6088                 return f68("(", f73(v595, v594), ")(", f69(f45((function (v596){
6089                     if (arguments.length < 1) throw 'too few arguments';
6090                     if (arguments.length > 1) throw 'too many arguments';
6091                     return f73(v596, v594);
6092                 }), v593), ", "), ")");
6093             })();
6094         }
6095         catch (cf){
6096             if (cf.type == 'block' && cf.id == 190)
6097                 return cf.value;
6098             else
6099                 throw cf;
6100         }
6101     })();
6102 })), cdr: v334});
6103 var l212 = f3("APPLY");
6104 v334 = ({car: f33(l212, (function (v598,v599){
6105     if (arguments.length < 2) throw 'too few arguments';
6106     var v597= v2;
6107     for (var i = arguments.length-1; i>=2; i--)
6108         v597 = {car: arguments[i], cdr: v597};
6109     return (function(){
6110         try {
6111             return (function(){
6112                 return (f1(v597) !== v2 ? f68("(", f73(v599, v598), ")()") : (function(v600,v601){
6113                     return f68("(function(){", v176, f71("var f = ", f73(v599, v598), ";", v176, "var args = [", f69(f45((function (v602){
6114                         if (arguments.length < 1) throw 'too few arguments';
6115                         if (arguments.length > 1) throw 'too many arguments';
6116                         return f73(v602, v598);
6117                     }), v600), ", "), "];", v176, "var tail = (", f73(v601, v598), ");", v176, "while (tail != ", f73(v2), "){", v176, "    args.push(tail.car);", v176, "    tail = tail.cdr;", v176, "}", v176, "return f.apply(this, args);", v176), "})()");
6118                 })(f56(v597),(function(){
6119                     var tmp = f55(v597);
6120                     return tmp === v2? v2: tmp.car;
6121                 })()));
6122             })();
6123         }
6124         catch (cf){
6125             if (cf.type == 'block' && cf.id == 191)
6126                 return cf.value;
6127             else
6128                 throw cf;
6129         }
6130     })();
6131 })), cdr: v334});
6132 var l213 = f3("JS-EVAL");
6133 v334 = ({car: f33(l213, (function (v603,v604){
6134     if (arguments.length < 2) throw 'too few arguments';
6135     if (arguments.length > 2) throw 'too many arguments';
6136     return (function(){
6137         try {
6138             return (function(){
6139                 return (function(v605){
6140                     return f68("(function(){", v176, f71(f68("var ", "string", " = ", v605, ";", v176), f68("if (typeof ", "string", " != '", "string", "')", v176, f71("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
6141                         return "eval.apply(window, [string])";
6142                     })(), ";", v176)), "})()");
6143                 })(f73(v604, v603));
6144             })();
6145         }
6146         catch (cf){
6147             if (cf.type == 'block' && cf.id == 192)
6148                 return cf.value;
6149             else
6150                 throw cf;
6151         }
6152     })();
6153 })), cdr: v334});
6154 var l214 = f3("ERROR");
6155 v334 = ({car: f33(l214, (function (v606,v607){
6156     if (arguments.length < 2) throw 'too few arguments';
6157     if (arguments.length > 2) throw 'too many arguments';
6158     return (function(){
6159         try {
6160             return (function(){
6161                 return (function(v608){
6162                     return f68("(function(){", v176, f71("throw ", v608, ";", v176), "})()");
6163                 })(f73(v607, v606));
6164             })();
6165         }
6166         catch (cf){
6167             if (cf.type == 'block' && cf.id == 193)
6168                 return cf.value;
6169             else
6170                 throw cf;
6171         }
6172     })();
6173 })), cdr: v334});
6174 var l215 = f3("NEW");
6175 v334 = ({car: f33(l215, (function (v609){
6176     if (arguments.length < 1) throw 'too few arguments';
6177     if (arguments.length > 1) throw 'too many arguments';
6178     return (function(){
6179         try {
6180             return (function(){
6181                 return (function(){
6182                     return "{}";
6183                 })();
6184             })();
6185         }
6186         catch (cf){
6187             if (cf.type == 'block' && cf.id == 194)
6188                 return cf.value;
6189             else
6190                 throw cf;
6191         }
6192     })();
6193 })), cdr: v334});
6194 var l216 = f3("GET");
6195 v334 = ({car: f33(l216, (function (v610,v611,v612){
6196     if (arguments.length < 3) throw 'too few arguments';
6197     if (arguments.length > 3) throw 'too many arguments';
6198     return (function(){
6199         try {
6200             return (function(){
6201                 return (function(v613,v614){
6202                     return f68("(function(){", v176, f71("var tmp = ", "(", v613, ")[", v614, "];", v176, "return tmp == undefined? ", f73(v2), ": tmp ;", v176), "})()");
6203                 })(f73(v611, v610),f73(v612, v610));
6204             })();
6205         }
6206         catch (cf){
6207             if (cf.type == 'block' && cf.id == 195)
6208                 return cf.value;
6209             else
6210                 throw cf;
6211         }
6212     })();
6213 })), cdr: v334});
6214 var l217 = f3("SET");
6215 v334 = ({car: f33(l217, (function (v615,v616,v617,v618){
6216     if (arguments.length < 4) throw 'too few arguments';
6217     if (arguments.length > 4) throw 'too many arguments';
6218     return (function(){
6219         try {
6220             return (function(){
6221                 return (function(v619,v620,v621){
6222                     return f68("((", v619, ")[", v620, "] = ", v621, ")");
6223                 })(f73(v616, v615),f73(v617, v615),f73(v618, v615));
6224             })();
6225         }
6226         catch (cf){
6227             if (cf.type == 'block' && cf.id == 196)
6228                 return cf.value;
6229             else
6230                 throw cf;
6231         }
6232     })();
6233 })), cdr: v334});
6234 var l218 = f3("IN");
6235 v334 = ({car: f33(l218, (function (v622,v623,v624){
6236     if (arguments.length < 3) throw 'too few arguments';
6237     if (arguments.length > 3) throw 'too many arguments';
6238     return (function(){
6239         try {
6240             return (function(){
6241                 return (function(v625,v626){
6242                     return f72(f68("((", v625, ") in (", v626, "))"));
6243                 })(f73(v623, v622),f73(v624, v622));
6244             })();
6245         }
6246         catch (cf){
6247             if (cf.type == 'block' && cf.id == 197)
6248                 return cf.value;
6249             else
6250                 throw cf;
6251         }
6252     })();
6253 })), cdr: v334});
6254 var l219 = f3("FUNCTIONP");
6255 v334 = ({car: f33(l219, (function (v627,v628){
6256     if (arguments.length < 2) throw 'too few arguments';
6257     if (arguments.length > 2) throw 'too many arguments';
6258     return (function(){
6259         try {
6260             return (function(){
6261                 return (function(v629){
6262                     return f72(f68("(typeof ", v629, " == 'function')"));
6263                 })(f73(v628, v627));
6264             })();
6265         }
6266         catch (cf){
6267             if (cf.type == 'block' && cf.id == 198)
6268                 return cf.value;
6269             else
6270                 throw cf;
6271         }
6272     })();
6273 })), cdr: v334});
6274 var l220 = f3("WRITE-STRING");
6275 v334 = ({car: f33(l220, (function (v630,v631){
6276     if (arguments.length < 2) throw 'too few arguments';
6277     if (arguments.length > 2) throw 'too many arguments';
6278     return (function(){
6279         try {
6280             return (function(){
6281                 return (function(v632){
6282                     return f68("(function(){", v176, f71(f68("var ", "x", " = ", v632, ";", v176), f68("if (typeof ", "x", " != '", "string", "')", v176, f71("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v176)), f68("return ", (function(){
6283                         return "lisp.write(x)";
6284                     })(), ";", v176)), "})()");
6285                 })(f73(v631, v630));
6286             })();
6287         }
6288         catch (cf){
6289             if (cf.type == 'block' && cf.id == 199)
6290                 return cf.value;
6291             else
6292                 throw cf;
6293         }
6294     })();
6295 })), cdr: v334});
6296 var l222 = f3("MACROP");
6297 var l221 = f3("MACRO");
6298 var f126;
6299 (function(){
6300     (function(){
6301         return f126 = (function(v633){
6302             ((v633)["fname"] = "MACROP");
6303             return v633;
6304         })((function (v634){
6305             if (arguments.length < 1) throw 'too few arguments';
6306             if (arguments.length > 1) throw 'too many arguments';
6307             return (function(){
6308                 try {
6309                     return (function(){
6310                         return (((function(){
6311                             var tmp = v634;
6312                             return (typeof tmp == 'object' && 'name' in tmp);
6313                         })()?v3: v2) !== v2 ? ((f93(f107(v634, v289)) === l221)?v3: v2) : v2);
6314                     })();
6315                 }
6316                 catch (cf){
6317                     if (cf.type == 'block' && cf.id == 200)
6318                         return cf.value;
6319                     else
6320                         throw cf;
6321                 }
6322             })();
6323         }));
6324     })();
6325     return l222;
6326 })();
6327 var l224 = f3("LS-MACROEXPAND-1");
6328 var l223 = f3("MACRO");
6329 var f127;
6330 (function(){
6331     (function(){
6332         return f127 = (function(v635){
6333             ((v635)["fname"] = "LS-MACROEXPAND-1");
6334             return v635;
6335         })((function (v636,v637){
6336             if (arguments.length < 2) throw 'too few arguments';
6337             if (arguments.length > 2) throw 'too many arguments';
6338             return (function(){
6339                 try {
6340                     return (function(){
6341                         return (f126((function(){
6342                             var tmp = v636;
6343                             return tmp === v2? v2: tmp.car;
6344                         })()) !== v2 ? (function(v638){
6345                             return (((f93(v638) === l223)?v3: v2) !== v2 ? (function(){
6346                                 var f = f120(f94(v638));
6347                                 var args = [];
6348                                 var tail = ((function(){
6349                                     var tmp = v636;
6350                                     return tmp === v2? v2: tmp.cdr;
6351                                 })());
6352                                     while (tail != v2){
6353                                         args.push(tail.car);
6354                                         tail = tail.cdr;
6355                                     }
6356                                     return f.apply(this, args);
6357                                 })() : v636);
6358                         })(f107((function(){
6359                             var tmp = v636;
6360                             return tmp === v2? v2: tmp.car;
6361                         })(), v289)) : v636);
6362                     })();
6363                 }
6364                 catch (cf){
6365                     if (cf.type == 'block' && cf.id == 201)
6366                         return cf.value;
6367                     else
6368                         throw cf;
6369                 }
6370             })();
6371         }));
6372     })();
6373     return l224;
6374 })();
6375 var l226 = f3("COMPILE-FUNCALL");
6376 var l225 = f3("LAMBDA");
6377 var f128;
6378 (function(){
6379     (function(){
6380         return f128 = (function(v639){
6381             ((v639)["fname"] = "COMPILE-FUNCALL");
6382             return v639;
6383         })((function (v640,v641,v642){
6384             if (arguments.length < 3) throw 'too few arguments';
6385             if (arguments.length > 3) throw 'too many arguments';
6386             return (function(){
6387                 try {
6388                     return (function(){
6389                         return (((function(){
6390                             var tmp = v640;
6391                             return (typeof tmp == 'object' && 'name' in tmp);
6392                         })()?v3: v2) !== v2 ? (function(){
6393                             return f68(f108(v640, v642), "(", f69(f45((function (v643){
6394                                 if (arguments.length < 1) throw 'too few arguments';
6395                                 if (arguments.length > 1) throw 'too many arguments';
6396                                 return f73(v643, v642);
6397                             }), v641), ", "), ")");
6398                         })() : ((f36(v640) !== v2 ? (((function(){
6399                             var tmp = v640;
6400                             return tmp === v2? v2: tmp.car;
6401                         })() === l225)?v3: v2) : v2) !== v2 ? (function(){
6402                             return f68("(", f73(v640, v642), ")(", f69(f45((function (v644){
6403                                 if (arguments.length < 1) throw 'too few arguments';
6404                                 if (arguments.length > 1) throw 'too many arguments';
6405                                 return f73(v644, v642);
6406                             }), v641), ", "), ")");
6407                         })() : (function(){
6408                             return (function (){ throw f68("Invalid function designator ", (v640).name); })();
6409                         })()));
6410                     })();
6411                 }
6412                 catch (cf){
6413                     if (cf.type == 'block' && cf.id == 202)
6414                         return cf.value;
6415                     else
6416                         throw cf;
6417                 }
6418             })();
6419         }));
6420     })();
6421     return l226;
6422 })();
6423 var l227 = f3("LS-COMPILE");
6424 var f73;
6425 (function(){
6426     (function(){
6427         return f73 = (function(v645){
6428             ((v645)["fname"] = "LS-COMPILE");
6429             return v645;
6430         })((function (v646,v647){
6431             if (arguments.length < 1) throw 'too few arguments';
6432             if (arguments.length > 2) throw 'too many arguments';
6433             switch(arguments.length){
6434             case 1:
6435             v647=f97();
6436             default: break;
6437             }
6438             return (function(){
6439                 try {
6440                     return (function(){
6441                         return (((function(){
6442                             var tmp = v646;
6443                             return (typeof tmp == 'object' && 'name' in tmp);
6444                         })()?v3: v2) !== v2 ? (function(){
6445                             return f105(v646, v647);
6446                         })() : (f51(v646) !== v2 ? (function(){
6447                             return f6(v646);
6448                         })() : (((typeof(v646) == "string")?v3: v2) !== v2 ? (function(){
6449                             return f68("\"", f75(v646), "\"");
6450                         })() : (f36(v646) !== v2 ? (function(){
6451                             return (f66((function(){
6452                                 var tmp = v646;
6453                                 return tmp === v2? v2: tmp.car;
6454                             })(), v334) !== v2 ? (function(v648){
6455                                 return (function(){
6456                                     var f = v648;
6457                                     var args = [v647];
6458                                     var tail = ((function(){
6459                                         var tmp = v646;
6460                                         return tmp === v2? v2: tmp.cdr;
6461                                     })());
6462                                         while (tail != v2){
6463                                             args.push(tail.car);
6464                                             tail = tail.cdr;
6465                                         }
6466                                         return f.apply(this, args);
6467                                     })();
6468                             })(f30(f66((function(){
6469                                 var tmp = v646;
6470                                 return tmp === v2? v2: tmp.car;
6471                             })(), v334))) : (f126((function(){
6472                                 var tmp = v646;
6473                                 return tmp === v2? v2: tmp.car;
6474                             })()) !== v2 ? f73(f127(v646, v647), v647) : f128((function(){
6475                                 var tmp = v646;
6476                                 return tmp === v2? v2: tmp.car;
6477                             })(), (function(){
6478                                 var tmp = v646;
6479                                 return tmp === v2? v2: tmp.cdr;
6480                             })(), v647)));
6481                         })() : v2))));
6482                     })();
6483                 }
6484                 catch (cf){
6485                     if (cf.type == 'block' && cf.id == 203)
6486                         return cf.value;
6487                     else
6488                         throw cf;
6489                 }
6490             })();
6491         }));
6492     })();
6493     return l227;
6494 })();
6495 var l228 = f3("LS-COMPILE-TOPLEVEL");
6496 var f129;
6497 (function(){
6498     (function(){
6499         return f129 = (function(v649){
6500             ((v649)["fname"] = "LS-COMPILE-TOPLEVEL");
6501             return v649;
6502         })((function (v650){
6503             if (arguments.length < 1) throw 'too few arguments';
6504             if (arguments.length > 1) throw 'too many arguments';
6505             return (function(){
6506                 try {
6507                     return (function(){
6508                         v324 = v2;
6509                         return (function(v651){
6510                             return (function(v652){
6511                                 v324 = v2;
6512                                 return v652;
6513                             })(f68(f69(f45((function (v653){
6514                                 if (arguments.length < 1) throw 'too few arguments';
6515                                 if (arguments.length > 1) throw 'too many arguments';
6516                                 return f68(v653, ";", v176);
6517                             }), v324)), v651));
6518                         })(f73(v650));
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 l239 = f3("LS-COMPILE-TOPLEVEL");
6533 var l238 = f3("EVAL");
6534 var l237 = f3("PRIN1-TO-STRING");
6535 var l236 = f3("LS-READ-FROM-STRING");
6536 var l235 = 206;
6537 var l234 = 156;
6538 var l233 = 229;
6539 var l232 = 129;
6540 var l231 = 659;
6541 var l230 = {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: "f129", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COMPILE-FUNCALL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f128", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-MACROEXPAND-1"), cdr: {car: f3("FUNCTION"), cdr: {car: "f127", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MACROP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f126", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NUM-OP-NUM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f125", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TYPE-CHECK"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECLS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("JS!SELFCALL"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECL"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "var ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " = ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ";", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("DECLS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECL"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "if (typeof ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " != '", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: "')", cdr: {car: f3("*NEWLINE*"), cdr: {car: {car: f3("INDENT"), cdr: {car: "throw 'The value ' + ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " + ' is not a type ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ".';", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}}}, cdr: f3("NIL")}}}}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("DECLS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: "return ", cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ";", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFINE-BUILTIN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("DEFINE-COMPILATION"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ARG"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARG"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARG"), cdr: f3("NIL")}}, cdr: {car: f3("ENV"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("ARGS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE-EXPAND-1"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE-EXPAND"), cdr: {car: f3("FUNCTION"), cdr: {car: "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-BLOCK"), cdr: {car: f3("FUNCTION"), cdr: {car: "f112", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFMACRO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f111", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFUN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f110", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFVAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f109", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f108", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f107", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EXTEND-LOCAL-ENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f106", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f105", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f104", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GVARNAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f103", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f102", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-IN-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f101", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EXTEND-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f100", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PUSH-TO-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f99", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COPY-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f98", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f97", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MARK-BINDING-AS-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f96", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f95", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f94", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TYPE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f93", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-NAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f92", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-BINDING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f91", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ-FROM-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f90", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-SHARP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f89", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f88", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ"), cdr: {car: f3("FUNCTION"), cdr: {car: "f87", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f86", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES-AND-COMMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f85", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-UNTIL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f84", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TERMINALP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f83", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES"), cdr: {car: f3("FUNCTION"), cdr: {car: "f82", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHITESPACEP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f81", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f80", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%PEEK-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f79", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-STRING-STREAM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f78", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRINT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f77", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WRITE-LINE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f76", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ESCAPE-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f75", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRIN1-TO-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f74", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JS!SELFCALL"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "(function(){", cdr: {car: f3("*NEWLINE*"), cdr: {car: {car: f3("INDENT"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: "})()", cdr: f3("NIL")}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f73", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JS!BOOL"), 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")}}}};
6542 var l229 = f3("EVAL");
6543 var f120;
6544 (function(){
6545     v289 = l230;
6546     v293 = l231;
6547     v313 = l232;
6548     v388 = l233;
6549     v12 = l234;
6550     return v412 = l235;
6551 })();
6552 (function(){
6553     (function(){
6554         (function(){
6555             return f120 = (function(v654){
6556                 ((v654)["fname"] = "EVAL");
6557                 return v654;
6558             })((function (v655){
6559                 if (arguments.length < 1) throw 'too few arguments';
6560                 if (arguments.length > 1) throw 'too many arguments';
6561                 return (function(){
6562                     try {
6563                         return (function(){
6564                             return (function(v656){
6565                                 return (function(){
6566                                     var string = v656;
6567                                     if (typeof string != 'string')
6568                                         throw 'The value ' + string + ' is not a type string.';
6569                                     return eval.apply(window, [string]);
6570                                 })();
6571                             })((function(v657){
6572                                 (function(){
6573                                     try {
6574                                         return (function(){
6575                                             return (function(v658,v659){
6576                                                 (function(){
6577                                                     while(v658 !== v2){
6578                                                         v659 = (function(){
6579                                                             var tmp = v658;
6580                                                             return tmp === v2? v2: tmp.car;
6581                                                         })();
6582                                                         (v659)();
6583                                                         v658 = (function(){
6584                                                             var tmp = v658;
6585                                                             return tmp === v2? v2: tmp.cdr;
6586                                                         })();
6587                                                     }return v2;
6588                                                 })();
6589                                                 return v2;
6590                                             })(v253,v2);
6591                                         })();
6592                                     }
6593                                     catch (cf){
6594                                         if (cf.type == 'block' && cf.id == 206)
6595                                             return cf.value;
6596                                         else
6597                                             throw cf;
6598                                     }
6599                                 })();
6600                                 return v657;
6601                             })((function(){
6602                                 v253 = v2;
6603                                 f102();
6604                                 return f129(v655);
6605                             })()));
6606                         })();
6607                     }
6608                     catch (cf){
6609                         if (cf.type == 'block' && cf.id == 205)
6610                             return cf.value;
6611                         else
6612                             throw cf;
6613                     }
6614                 })();
6615             }));
6616         })();
6617         return l229;
6618     })();
6619     return (function(){
6620         var string = f68("var lisp = {};", "lisp.read = ", f108(l236, v2), ";", v176, "lisp.print = ", f108(l237, v2), ";", v176, "lisp.eval = ", f108(l238, v2), ";", v176, "lisp.compile = ", f108(l239, 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);
6621         if (typeof string != 'string')
6622             throw 'The value ' + string + ' is not a type string.';
6623         return eval.apply(window, [string]);
6624     })();
6625 })();