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