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 l33 = f3("STRING=");
1028 var f66;
1029 var l32 = f3("ASSOC");
1030 var f65;
1031 var l31 = f3("EVERY");
1032 var f64;
1033 var l30 = f3("PARSE-INTEGER");
1034 var f63;
1035 var l29 = f3("SUBSEQ");
1036 var f62;
1037 var l28 = f3("DIGIT-CHAR-P");
1038 var f61;
1039 var l27 = f3("REMOVE-IF-NOT");
1040 var f60;
1041 var l26 = f3("REMOVE-IF");
1042 var f59;
1043 var l25 = f3("REMOVE");
1044 var f58;
1045 var l24 = f3("MEMBER");
1046 var f57;
1047 var l23 = f3("BUTLAST");
1048 var f56;
1049 var l22 = f3("LAST");
1050 var f55;
1051 var l21 = f3("NTH");
1052 var f54;
1053 var l20 = f3("LISTP");
1054 var f36;
1055 var l19 = f3("MINUSP");
1056 var f53;
1057 var l18 = f3("PLUSP");
1058 var f52;
1059 var l17 = f3("INTEGERP");
1060 var f51;
1061 var l16 = f3("CHAR=");
1062 var f50;
1063 var l15 = f3("CHAR-CODE");
1064 var f49;
1065 var l14 = f3("CODE-CHAR");
1066 var f48;
1067 var l13 = f3("COPY-LIST");
1068 var f47;
1069 var l12 = f3("IDENTITY");
1070 var f46;
1071 var l11 = f3("MAPCAR");
1072 var l10 = f3("NIL");
1073 var f45;
1074 var l9 = f3("CONCAT-TWO");
1075 var f44;
1076 var l8 = f3("LENGTH");
1077 var f43;
1078 var l7 = f3("LIST-LENGTH");
1079 var f42;
1080 var l6 = f3("REVERSE");
1081 var l5 = f3("NIL");
1082 var f41;
1083 var l4 = f3("REVERSE-AUX");
1084 var f40;
1085 var l3 = f3("APPEND");
1086 var l2 = f3("NIL");
1087 var f39;
1088 var l1 = f3("APPEND-TWO");
1089 var f38;
1090 (function(){
1091     (function(){
1092         (function(){
1093             return f38 = (function(v85){
1094                 ((v85)["fname"] = "APPEND-TWO");
1095                 return v85;
1096             })((function (v86,v87){
1097                 if (arguments.length < 2) throw 'too few arguments';
1098                 if (arguments.length > 2) throw 'too many arguments';
1099                 return (function(){
1100                     try {
1101                         return (function(){
1102                             return (f1(v86) !== v2 ? v87 : ({car: (function(){
1103                                 var tmp = v86;
1104                                 return tmp === v2? v2: tmp.car;
1105                             })(), cdr: f39((function(){
1106                                 var tmp = v86;
1107                                 return tmp === v2? v2: tmp.cdr;
1108                             })(), v87)}));
1109                         })();
1110                     }
1111                     catch (cf){
1112                         if (cf.type == 'block' && cf.id == 36)
1113                             return cf.value;
1114                         else
1115                             throw cf;
1116                     }
1117                 })();
1118             }));
1119         })();
1120         return l1;
1121     })();
1122     (function(){
1123         (function(){
1124             return f39 = (function(v88){
1125                 ((v88)["fname"] = "APPEND");
1126                 return v88;
1127             })((function (){
1128                 var v89= v2;
1129                 for (var i = arguments.length-1; i>=0; i--)
1130                     v89 = {car: arguments[i], cdr: v89};
1131                 return (function(){
1132                     try {
1133                         return (function(){
1134                             return f37(f38, v89, l2);
1135                         })();
1136                     }
1137                     catch (cf){
1138                         if (cf.type == 'block' && cf.id == 37)
1139                             return cf.value;
1140                         else
1141                             throw cf;
1142                     }
1143                 })();
1144             }));
1145         })();
1146         return l3;
1147     })();
1148     (function(){
1149         (function(){
1150             return f40 = (function(v90){
1151                 ((v90)["fname"] = "REVERSE-AUX");
1152                 return v90;
1153             })((function (v91,v92){
1154                 if (arguments.length < 2) throw 'too few arguments';
1155                 if (arguments.length > 2) throw 'too many arguments';
1156                 return (function(){
1157                     try {
1158                         return (function(){
1159                             return (f1(v91) !== v2 ? v92 : f40((function(){
1160                                 var tmp = v91;
1161                                 return tmp === v2? v2: tmp.cdr;
1162                             })(), ({car: (function(){
1163                                 var tmp = v91;
1164                                 return tmp === v2? v2: tmp.car;
1165                             })(), cdr: v92})));
1166                         })();
1167                     }
1168                     catch (cf){
1169                         if (cf.type == 'block' && cf.id == 38)
1170                             return cf.value;
1171                         else
1172                             throw cf;
1173                     }
1174                 })();
1175             }));
1176         })();
1177         return l4;
1178     })();
1179     (function(){
1180         (function(){
1181             return f41 = (function(v93){
1182                 ((v93)["fname"] = "REVERSE");
1183                 return v93;
1184             })((function (v94){
1185                 if (arguments.length < 1) throw 'too few arguments';
1186                 if (arguments.length > 1) throw 'too many arguments';
1187                 return (function(){
1188                     try {
1189                         return (function(){
1190                             return f40(v94, l5);
1191                         })();
1192                     }
1193                     catch (cf){
1194                         if (cf.type == 'block' && cf.id == 39)
1195                             return cf.value;
1196                         else
1197                             throw cf;
1198                     }
1199                 })();
1200             }));
1201         })();
1202         return l6;
1203     })();
1204     (function(){
1205         (function(){
1206             return f42 = (function(v95){
1207                 ((v95)["fname"] = "LIST-LENGTH");
1208                 return v95;
1209             })((function (v96){
1210                 if (arguments.length < 1) throw 'too few arguments';
1211                 if (arguments.length > 1) throw 'too many arguments';
1212                 return (function(){
1213                     try {
1214                         return (function(){
1215                             return (function(v97){
1216                                 (function(){
1217                                     try {
1218                                         return (function(){
1219                                             return (function(){
1220                                                 while(f17(f1(v96)) !== v2){
1221                                                     v97 = (function(){
1222                                                         var x = v97;
1223                                                         var y = 1;
1224                                                         if (typeof x != 'number')
1225                                                             throw 'The value ' + x + ' is not a type number.';
1226                                                         if (typeof y != 'number')
1227                                                             throw 'The value ' + y + ' is not a type number.';
1228                                                         return x+y;
1229                                                     })();
1230                                                     v96 = (function(){
1231                                                         var tmp = v96;
1232                                                         return tmp === v2? v2: tmp.cdr;
1233                                                     })();
1234                                                 }return v2;
1235                                             })();
1236                                         })();
1237                                     }
1238                                     catch (cf){
1239                                         if (cf.type == 'block' && cf.id == 41)
1240                                             return cf.value;
1241                                         else
1242                                             throw cf;
1243                                     }
1244                                 })();
1245                                 return v97;
1246                             })(0);
1247                         })();
1248                     }
1249                     catch (cf){
1250                         if (cf.type == 'block' && cf.id == 40)
1251                             return cf.value;
1252                         else
1253                             throw cf;
1254                     }
1255                 })();
1256             }));
1257         })();
1258         return l7;
1259     })();
1260     (function(){
1261         (function(){
1262             return f43 = (function(v98){
1263                 ((v98)["fname"] = "LENGTH");
1264                 return v98;
1265             })((function (v99){
1266                 if (arguments.length < 1) throw 'too few arguments';
1267                 if (arguments.length > 1) throw 'too many arguments';
1268                 return (function(){
1269                     try {
1270                         return (function(){
1271                             return (((typeof(v99) == "string")?v3: v2) !== v2 ? (function(){
1272                                 var x = v99;
1273                                 if (typeof x != 'string')
1274                                     throw 'The value ' + x + ' is not a type string.';
1275                                 return x.length;
1276                             })() : f42(v99));
1277                         })();
1278                     }
1279                     catch (cf){
1280                         if (cf.type == 'block' && cf.id == 42)
1281                             return cf.value;
1282                         else
1283                             throw cf;
1284                     }
1285                 })();
1286             }));
1287         })();
1288         return l8;
1289     })();
1290     (function(){
1291         (function(){
1292             return f44 = (function(v100){
1293                 ((v100)["fname"] = "CONCAT-TWO");
1294                 return v100;
1295             })((function (v101,v102){
1296                 if (arguments.length < 2) throw 'too few arguments';
1297                 if (arguments.length > 2) throw 'too many arguments';
1298                 return (function(){
1299                     try {
1300                         return (function(){
1301                             return (function(){
1302                                 var string1 = v101;
1303                                 var string2 = v102;
1304                                 if (typeof string1 != 'string')
1305                                     throw 'The value ' + string1 + ' is not a type string.';
1306                                 if (typeof string2 != 'string')
1307                                     throw 'The value ' + string2 + ' is not a type string.';
1308                                 return string1.concat(string2);
1309                             })();
1310                         })();
1311                     }
1312                     catch (cf){
1313                         if (cf.type == 'block' && cf.id == 43)
1314                             return cf.value;
1315                         else
1316                             throw cf;
1317                     }
1318                 })();
1319             }));
1320         })();
1321         return l9;
1322     })();
1323     (function(){
1324         (function(){
1325             return f45 = (function(v103){
1326                 ((v103)["fname"] = "MAPCAR");
1327                 return v103;
1328             })((function (v104,v105){
1329                 if (arguments.length < 2) throw 'too few arguments';
1330                 if (arguments.length > 2) throw 'too many arguments';
1331                 return (function(){
1332                     try {
1333                         return (function(){
1334                             return (f1(v105) !== v2 ? l10 : ({car: (v104)((function(){
1335                                 var tmp = v105;
1336                                 return tmp === v2? v2: tmp.car;
1337                             })()), cdr: f45(v104, (function(){
1338                                 var tmp = v105;
1339                                 return tmp === v2? v2: tmp.cdr;
1340                             })())}));
1341                         })();
1342                     }
1343                     catch (cf){
1344                         if (cf.type == 'block' && cf.id == 44)
1345                             return cf.value;
1346                         else
1347                             throw cf;
1348                     }
1349                 })();
1350             }));
1351         })();
1352         return l11;
1353     })();
1354     (function(){
1355         (function(){
1356             return f46 = (function(v106){
1357                 ((v106)["fname"] = "IDENTITY");
1358                 return v106;
1359             })((function (v107){
1360                 if (arguments.length < 1) throw 'too few arguments';
1361                 if (arguments.length > 1) throw 'too many arguments';
1362                 return (function(){
1363                     try {
1364                         return (function(){
1365                             return v107;
1366                         })();
1367                     }
1368                     catch (cf){
1369                         if (cf.type == 'block' && cf.id == 45)
1370                             return cf.value;
1371                         else
1372                             throw cf;
1373                     }
1374                 })();
1375             }));
1376         })();
1377         return l12;
1378     })();
1379     (function(){
1380         (function(){
1381             return f47 = (function(v108){
1382                 ((v108)["fname"] = "COPY-LIST");
1383                 return v108;
1384             })((function (v109){
1385                 if (arguments.length < 1) throw 'too few arguments';
1386                 if (arguments.length > 1) throw 'too many arguments';
1387                 return (function(){
1388                     try {
1389                         return (function(){
1390                             return f45(f46, v109);
1391                         })();
1392                     }
1393                     catch (cf){
1394                         if (cf.type == 'block' && cf.id == 46)
1395                             return cf.value;
1396                         else
1397                             throw cf;
1398                     }
1399                 })();
1400             }));
1401         })();
1402         return l13;
1403     })();
1404     (function(){
1405         (function(){
1406             return f48 = (function(v110){
1407                 ((v110)["fname"] = "CODE-CHAR");
1408                 return v110;
1409             })((function (v111){
1410                 if (arguments.length < 1) throw 'too few arguments';
1411                 if (arguments.length > 1) throw 'too many arguments';
1412                 return (function(){
1413                     try {
1414                         return (function(){
1415                             return v111;
1416                         })();
1417                     }
1418                     catch (cf){
1419                         if (cf.type == 'block' && cf.id == 47)
1420                             return cf.value;
1421                         else
1422                             throw cf;
1423                     }
1424                 })();
1425             }));
1426         })();
1427         return l14;
1428     })();
1429     (function(){
1430         (function(){
1431             return f49 = (function(v112){
1432                 ((v112)["fname"] = "CHAR-CODE");
1433                 return v112;
1434             })((function (v113){
1435                 if (arguments.length < 1) throw 'too few arguments';
1436                 if (arguments.length > 1) throw 'too many arguments';
1437                 return (function(){
1438                     try {
1439                         return (function(){
1440                             return v113;
1441                         })();
1442                     }
1443                     catch (cf){
1444                         if (cf.type == 'block' && cf.id == 48)
1445                             return cf.value;
1446                         else
1447                             throw cf;
1448                     }
1449                 })();
1450             }));
1451         })();
1452         return l15;
1453     })();
1454     (function(){
1455         (function(){
1456             return f50 = (function(v114){
1457                 ((v114)["fname"] = "CHAR=");
1458                 return v114;
1459             })((function (v115,v116){
1460                 if (arguments.length < 2) throw 'too few arguments';
1461                 if (arguments.length > 2) throw 'too many arguments';
1462                 return (function(){
1463                     try {
1464                         return (function(){
1465                             return ((function(){
1466                                 var x = v115;
1467                                 var y = v116;
1468                                 if (typeof x != 'number')
1469                                     throw 'The value ' + x + ' is not a type number.';
1470                                 if (typeof y != 'number')
1471                                     throw 'The value ' + y + ' is not a type number.';
1472                                 return x==y;
1473                             })()?v3: v2);
1474                         })();
1475                     }
1476                     catch (cf){
1477                         if (cf.type == 'block' && cf.id == 49)
1478                             return cf.value;
1479                         else
1480                             throw cf;
1481                     }
1482                 })();
1483             }));
1484         })();
1485         return l16;
1486     })();
1487     (function(){
1488         (function(){
1489             return f51 = (function(v117){
1490                 ((v117)["fname"] = "INTEGERP");
1491                 return v117;
1492             })((function (v118){
1493                 if (arguments.length < 1) throw 'too few arguments';
1494                 if (arguments.length > 1) throw 'too many arguments';
1495                 return (function(){
1496                     try {
1497                         return (function(){
1498                             return (((typeof (v118) == "number")?v3: v2) !== v2 ? ((function(){
1499                                 var x = (function(){
1500                                     var x = v118;
1501                                     if (typeof x != 'number')
1502                                         throw 'The value ' + x + ' is not a type number.';
1503                                     return Math.floor(x);
1504                                 })();
1505                                 var y = v118;
1506                                 if (typeof x != 'number')
1507                                     throw 'The value ' + x + ' is not a type number.';
1508                                 if (typeof y != 'number')
1509                                     throw 'The value ' + y + ' is not a type number.';
1510                                 return x==y;
1511                             })()?v3: v2) : v2);
1512                         })();
1513                     }
1514                     catch (cf){
1515                         if (cf.type == 'block' && cf.id == 50)
1516                             return cf.value;
1517                         else
1518                             throw cf;
1519                     }
1520                 })();
1521             }));
1522         })();
1523         return l17;
1524     })();
1525     (function(){
1526         (function(){
1527             return f52 = (function(v119){
1528                 ((v119)["fname"] = "PLUSP");
1529                 return v119;
1530             })((function (v120){
1531                 if (arguments.length < 1) throw 'too few arguments';
1532                 if (arguments.length > 1) throw 'too many arguments';
1533                 return (function(){
1534                     try {
1535                         return (function(){
1536                             return ((function(){
1537                                 var x = 0;
1538                                 var y = v120;
1539                                 if (typeof x != 'number')
1540                                     throw 'The value ' + x + ' is not a type number.';
1541                                 if (typeof y != 'number')
1542                                     throw 'The value ' + y + ' is not a type number.';
1543                                 return x<y;
1544                             })()?v3: v2);
1545                         })();
1546                     }
1547                     catch (cf){
1548                         if (cf.type == 'block' && cf.id == 51)
1549                             return cf.value;
1550                         else
1551                             throw cf;
1552                     }
1553                 })();
1554             }));
1555         })();
1556         return l18;
1557     })();
1558     (function(){
1559         (function(){
1560             return f53 = (function(v121){
1561                 ((v121)["fname"] = "MINUSP");
1562                 return v121;
1563             })((function (v122){
1564                 if (arguments.length < 1) throw 'too few arguments';
1565                 if (arguments.length > 1) throw 'too many arguments';
1566                 return (function(){
1567                     try {
1568                         return (function(){
1569                             return ((function(){
1570                                 var x = v122;
1571                                 var y = 0;
1572                                 if (typeof x != 'number')
1573                                     throw 'The value ' + x + ' is not a type number.';
1574                                 if (typeof y != 'number')
1575                                     throw 'The value ' + y + ' is not a type number.';
1576                                 return x<y;
1577                             })()?v3: v2);
1578                         })();
1579                     }
1580                     catch (cf){
1581                         if (cf.type == 'block' && cf.id == 52)
1582                             return cf.value;
1583                         else
1584                             throw cf;
1585                     }
1586                 })();
1587             }));
1588         })();
1589         return l19;
1590     })();
1591     (function(){
1592         (function(){
1593             return f36 = (function(v123){
1594                 ((v123)["fname"] = "LISTP");
1595                 return v123;
1596             })((function (v124){
1597                 if (arguments.length < 1) throw 'too few arguments';
1598                 if (arguments.length > 1) throw 'too many arguments';
1599                 return (function(){
1600                     try {
1601                         return (function(){
1602                             return (function(v125){
1603                                 return (v125 !== v2 ? v125 : f1(v124));
1604                             })(((function(){
1605                                 var tmp = v124;
1606                                 return (typeof tmp == 'object' && 'car' in tmp);
1607                             })()?v3: v2));
1608                         })();
1609                     }
1610                     catch (cf){
1611                         if (cf.type == 'block' && cf.id == 53)
1612                             return cf.value;
1613                         else
1614                             throw cf;
1615                     }
1616                 })();
1617             }));
1618         })();
1619         return l20;
1620     })();
1621     (function(){
1622         (function(){
1623             return f54 = (function(v126){
1624                 ((v126)["fname"] = "NTH");
1625                 return v126;
1626             })((function (v127,v128){
1627                 if (arguments.length < 2) throw 'too few arguments';
1628                 if (arguments.length > 2) throw 'too many arguments';
1629                 return (function(){
1630                     try {
1631                         return (function(){
1632                             return (f1(v128) !== v2 ? (function(){
1633                                 return v128;
1634                             })() : (f14(v127) !== v2 ? (function(){
1635                                 return (function(){
1636                                     var tmp = v128;
1637                                     return tmp === v2? v2: tmp.car;
1638                                 })();
1639                             })() : (function(){
1640                                 return f54(f13(v127), (function(){
1641                                     var tmp = v128;
1642                                     return tmp === v2? v2: tmp.cdr;
1643                                 })());
1644                             })()));
1645                         })();
1646                     }
1647                     catch (cf){
1648                         if (cf.type == 'block' && cf.id == 54)
1649                             return cf.value;
1650                         else
1651                             throw cf;
1652                     }
1653                 })();
1654             }));
1655         })();
1656         return l21;
1657     })();
1658     (function(){
1659         (function(){
1660             return f55 = (function(v129){
1661                 ((v129)["fname"] = "LAST");
1662                 return v129;
1663             })((function (v130){
1664                 if (arguments.length < 1) throw 'too few arguments';
1665                 if (arguments.length > 1) throw 'too many arguments';
1666                 return (function(){
1667                     try {
1668                         return (function(){
1669                             return (((function(){
1670                                 var tmp = (function(){
1671                                     var tmp = v130;
1672                                     return tmp === v2? v2: tmp.cdr;
1673                                 })();
1674                                 return (typeof tmp == 'object' && 'car' in tmp);
1675                             })()?v3: v2) !== v2 ? f55((function(){
1676                                 var tmp = v130;
1677                                 return tmp === v2? v2: tmp.cdr;
1678                             })()) : v130);
1679                         })();
1680                     }
1681                     catch (cf){
1682                         if (cf.type == 'block' && cf.id == 55)
1683                             return cf.value;
1684                         else
1685                             throw cf;
1686                     }
1687                 })();
1688             }));
1689         })();
1690         return l22;
1691     })();
1692     (function(){
1693         (function(){
1694             return f56 = (function(v131){
1695                 ((v131)["fname"] = "BUTLAST");
1696                 return v131;
1697             })((function (v132){
1698                 if (arguments.length < 1) throw 'too few arguments';
1699                 if (arguments.length > 1) throw 'too many arguments';
1700                 return (function(){
1701                     try {
1702                         return (function(){
1703                             return (((function(){
1704                                 var tmp = (function(){
1705                                     var tmp = v132;
1706                                     return tmp === v2? v2: tmp.cdr;
1707                                 })();
1708                                 return (typeof tmp == 'object' && 'car' in tmp);
1709                             })()?v3: v2) !== v2 ? ({car: (function(){
1710                                 var tmp = v132;
1711                                 return tmp === v2? v2: tmp.car;
1712                             })(), cdr: f56((function(){
1713                                 var tmp = v132;
1714                                 return tmp === v2? v2: tmp.cdr;
1715                             })())}) : v2);
1716                         })();
1717                     }
1718                     catch (cf){
1719                         if (cf.type == 'block' && cf.id == 56)
1720                             return cf.value;
1721                         else
1722                             throw cf;
1723                     }
1724                 })();
1725             }));
1726         })();
1727         return l23;
1728     })();
1729     (function(){
1730         (function(){
1731             return f57 = (function(v133){
1732                 ((v133)["fname"] = "MEMBER");
1733                 return v133;
1734             })((function (v134,v135){
1735                 if (arguments.length < 2) throw 'too few arguments';
1736                 if (arguments.length > 2) throw 'too many arguments';
1737                 return (function(){
1738                     try {
1739                         return (function(){
1740                             return (f1(v135) !== v2 ? (function(){
1741                                 return v2;
1742                             })() : (f16(v134, (function(){
1743                                 var tmp = v135;
1744                                 return tmp === v2? v2: tmp.car;
1745                             })()) !== v2 ? (function(){
1746                                 return v135;
1747                             })() : (function(){
1748                                 return f57(v134, (function(){
1749                                     var tmp = v135;
1750                                     return tmp === v2? v2: tmp.cdr;
1751                                 })());
1752                             })()));
1753                         })();
1754                     }
1755                     catch (cf){
1756                         if (cf.type == 'block' && cf.id == 57)
1757                             return cf.value;
1758                         else
1759                             throw cf;
1760                     }
1761                 })();
1762             }));
1763         })();
1764         return l24;
1765     })();
1766     (function(){
1767         (function(){
1768             return f58 = (function(v136){
1769                 ((v136)["fname"] = "REMOVE");
1770                 return v136;
1771             })((function (v137,v138){
1772                 if (arguments.length < 2) throw 'too few arguments';
1773                 if (arguments.length > 2) throw 'too many arguments';
1774                 return (function(){
1775                     try {
1776                         return (function(){
1777                             return (f1(v138) !== v2 ? (function(){
1778                                 return v2;
1779                             })() : (f16(v137, (function(){
1780                                 var tmp = v138;
1781                                 return tmp === v2? v2: tmp.car;
1782                             })()) !== v2 ? (function(){
1783                                 return f58(v137, (function(){
1784                                     var tmp = v138;
1785                                     return tmp === v2? v2: tmp.cdr;
1786                                 })());
1787                             })() : (function(){
1788                                 return ({car: (function(){
1789                                     var tmp = v138;
1790                                     return tmp === v2? v2: tmp.car;
1791                                 })(), cdr: f58(v137, (function(){
1792                                     var tmp = v138;
1793                                     return tmp === v2? v2: tmp.cdr;
1794                                 })())});
1795                             })()));
1796                         })();
1797                     }
1798                     catch (cf){
1799                         if (cf.type == 'block' && cf.id == 58)
1800                             return cf.value;
1801                         else
1802                             throw cf;
1803                     }
1804                 })();
1805             }));
1806         })();
1807         return l25;
1808     })();
1809     (function(){
1810         (function(){
1811             return f59 = (function(v139){
1812                 ((v139)["fname"] = "REMOVE-IF");
1813                 return v139;
1814             })((function (v140,v141){
1815                 if (arguments.length < 2) throw 'too few arguments';
1816                 if (arguments.length > 2) throw 'too many arguments';
1817                 return (function(){
1818                     try {
1819                         return (function(){
1820                             return (f1(v141) !== v2 ? (function(){
1821                                 return v2;
1822                             })() : ((v140)((function(){
1823                                 var tmp = v141;
1824                                 return tmp === v2? v2: tmp.car;
1825                             })()) !== v2 ? (function(){
1826                                 return f59(v140, (function(){
1827                                     var tmp = v141;
1828                                     return tmp === v2? v2: tmp.cdr;
1829                                 })());
1830                             })() : (function(){
1831                                 return ({car: (function(){
1832                                     var tmp = v141;
1833                                     return tmp === v2? v2: tmp.car;
1834                                 })(), cdr: f59(v140, (function(){
1835                                     var tmp = v141;
1836                                     return tmp === v2? v2: tmp.cdr;
1837                                 })())});
1838                             })()));
1839                         })();
1840                     }
1841                     catch (cf){
1842                         if (cf.type == 'block' && cf.id == 59)
1843                             return cf.value;
1844                         else
1845                             throw cf;
1846                     }
1847                 })();
1848             }));
1849         })();
1850         return l26;
1851     })();
1852     (function(){
1853         (function(){
1854             return f60 = (function(v142){
1855                 ((v142)["fname"] = "REMOVE-IF-NOT");
1856                 return v142;
1857             })((function (v143,v144){
1858                 if (arguments.length < 2) throw 'too few arguments';
1859                 if (arguments.length > 2) throw 'too many arguments';
1860                 return (function(){
1861                     try {
1862                         return (function(){
1863                             return (f1(v144) !== v2 ? (function(){
1864                                 return v2;
1865                             })() : ((v143)((function(){
1866                                 var tmp = v144;
1867                                 return tmp === v2? v2: tmp.car;
1868                             })()) !== v2 ? (function(){
1869                                 return ({car: (function(){
1870                                     var tmp = v144;
1871                                     return tmp === v2? v2: tmp.car;
1872                                 })(), cdr: f60(v143, (function(){
1873                                     var tmp = v144;
1874                                     return tmp === v2? v2: tmp.cdr;
1875                                 })())});
1876                             })() : (function(){
1877                                 return f60(v143, (function(){
1878                                     var tmp = v144;
1879                                     return tmp === v2? v2: tmp.cdr;
1880                                 })());
1881                             })()));
1882                         })();
1883                     }
1884                     catch (cf){
1885                         if (cf.type == 'block' && cf.id == 60)
1886                             return cf.value;
1887                         else
1888                             throw cf;
1889                     }
1890                 })();
1891             }));
1892         })();
1893         return l27;
1894     })();
1895     (function(){
1896         (function(){
1897             return f61 = (function(v145){
1898                 ((v145)["fname"] = "DIGIT-CHAR-P");
1899                 return v145;
1900             })((function (v146){
1901                 if (arguments.length < 1) throw 'too few arguments';
1902                 if (arguments.length > 1) throw 'too many arguments';
1903                 return (function(){
1904                     try {
1905                         return (function(){
1906                             return ((((function(){
1907                                 var x = 48;
1908                                 var y = v146;
1909                                 if (typeof x != 'number')
1910                                     throw 'The value ' + x + ' is not a type number.';
1911                                 if (typeof y != 'number')
1912                                     throw 'The value ' + y + ' is not a type number.';
1913                                 return x<=y;
1914                             })()?v3: v2) !== v2 ? ((function(){
1915                                 var x = v146;
1916                                 var y = 57;
1917                                 if (typeof x != 'number')
1918                                     throw 'The value ' + x + ' is not a type number.';
1919                                 if (typeof y != 'number')
1920                                     throw 'The value ' + y + ' is not a type number.';
1921                                 return x<=y;
1922                             })()?v3: v2) : v2) !== v2 ? (function(){
1923                                 var x = v146;
1924                                 var y = 48;
1925                                 if (typeof x != 'number')
1926                                     throw 'The value ' + x + ' is not a type number.';
1927                                 if (typeof y != 'number')
1928                                     throw 'The value ' + y + ' is not a type number.';
1929                                 return x-y;
1930                             })() : v2);
1931                         })();
1932                     }
1933                     catch (cf){
1934                         if (cf.type == 'block' && cf.id == 61)
1935                             return cf.value;
1936                         else
1937                             throw cf;
1938                     }
1939                 })();
1940             }));
1941         })();
1942         return l28;
1943     })();
1944     (function(){
1945         (function(){
1946             return f62 = (function(v147){
1947                 ((v147)["fname"] = "SUBSEQ");
1948                 return v147;
1949             })((function (v148,v149,v150){
1950                 if (arguments.length < 2) throw 'too few arguments';
1951                 if (arguments.length > 3) throw 'too many arguments';
1952                 switch(arguments.length){
1953                 case 2:
1954                 v150=v2;
1955                 default: break;
1956                 }
1957                 return (function(){
1958                     try {
1959                         return (function(){
1960                             return (((typeof(v148) == "string")?v3: v2) !== v2 ? (function(){
1961                                 return (v150 !== v2 ? (function(){
1962                                     var str = v148;
1963                                     var a = v149;
1964                                     var b;
1965                                     b = v150;
1966                                     return str.slice(a,b);
1967                                 })() : (function(){
1968                                     var str = v148;
1969                                     var a = v149;
1970                                     var b;
1971                                     return str.slice(a,b);
1972                                 })());
1973                             })() : (function(){
1974                                 return (function (){ throw "Unsupported argument."; })();
1975                             })());
1976                         })();
1977                     }
1978                     catch (cf){
1979                         if (cf.type == 'block' && cf.id == 62)
1980                             return cf.value;
1981                         else
1982                             throw cf;
1983                     }
1984                 })();
1985             }));
1986         })();
1987         return l29;
1988     })();
1989     (function(){
1990         (function(){
1991             return f63 = (function(v151){
1992                 ((v151)["fname"] = "PARSE-INTEGER");
1993                 return v151;
1994             })((function (v152){
1995                 if (arguments.length < 1) throw 'too few arguments';
1996                 if (arguments.length > 1) throw 'too many arguments';
1997                 return (function(){
1998                     try {
1999                         return (function(){
2000                             return (function(v153,v154,v155){
2001                                 (function(){
2002                                     try {
2003                                         return (function(){
2004                                             return (function(){
2005                                                 while(((function(){
2006                                                     var x = v154;
2007                                                     var y = v155;
2008                                                     if (typeof x != 'number')
2009                                                         throw 'The value ' + x + ' is not a type number.';
2010                                                     if (typeof y != 'number')
2011                                                         throw 'The value ' + y + ' is not a type number.';
2012                                                     return x<y;
2013                                                 })()?v3: v2) !== v2){
2014                                                     v153 = (function(){
2015                                                         var x = (function(){
2016                                                             var x = v153;
2017                                                             var y = 10;
2018                                                             if (typeof x != 'number')
2019                                                                 throw 'The value ' + x + ' is not a type number.';
2020                                                             if (typeof y != 'number')
2021                                                                 throw 'The value ' + y + ' is not a type number.';
2022                                                             return x*y;
2023                                                         })();
2024                                                         var y = f61((function(){
2025                                                             var string = v152;
2026                                                             var index = v154;
2027                                                             if (typeof string != 'string')
2028                                                                 throw 'The value ' + string + ' is not a type string.';
2029                                                             if (typeof index != 'number')
2030                                                                 throw 'The value ' + index + ' is not a type number.';
2031                                                             return string.charCodeAt(index);
2032                                                         })());
2033                                                         if (typeof x != 'number')
2034                                                             throw 'The value ' + x + ' is not a type number.';
2035                                                         if (typeof y != 'number')
2036                                                             throw 'The value ' + y + ' is not a type number.';
2037                                                         return x+y;
2038                                                     })();
2039                                                     v154 = (function(){
2040                                                         var x = v154;
2041                                                         var y = 1;
2042                                                         if (typeof x != 'number')
2043                                                             throw 'The value ' + x + ' is not a type number.';
2044                                                         if (typeof y != 'number')
2045                                                             throw 'The value ' + y + ' is not a type number.';
2046                                                         return x+y;
2047                                                     })();
2048                                                 }return v2;
2049                                             })();
2050                                         })();
2051                                     }
2052                                     catch (cf){
2053                                         if (cf.type == 'block' && cf.id == 64)
2054                                             return cf.value;
2055                                         else
2056                                             throw cf;
2057                                     }
2058                                 })();
2059                                 return v153;
2060                             })(0,0,f43(v152));
2061                         })();
2062                     }
2063                     catch (cf){
2064                         if (cf.type == 'block' && cf.id == 63)
2065                             return cf.value;
2066                         else
2067                             throw cf;
2068                     }
2069                 })();
2070             }));
2071         })();
2072         return l30;
2073     })();
2074     (function(){
2075         (function(){
2076             return f64 = (function(v156){
2077                 ((v156)["fname"] = "EVERY");
2078                 return v156;
2079             })((function (v157,v158){
2080                 if (arguments.length < 2) throw 'too few arguments';
2081                 if (arguments.length > 2) throw 'too many arguments';
2082                 return (function(){
2083                     try {
2084                         return (function(){
2085                             return (function(v159,v160){
2086                                 (function(){
2087                                     try {
2088                                         return (function(){
2089                                             return (function(){
2090                                                 while(((function(){
2091                                                     var x = v159;
2092                                                     var y = v160;
2093                                                     if (typeof x != 'number')
2094                                                         throw 'The value ' + x + ' is not a type number.';
2095                                                     if (typeof y != 'number')
2096                                                         throw 'The value ' + y + ' is not a type number.';
2097                                                     return x<y;
2098                                                 })()?v3: v2) !== v2){
2099                                                     ((v157)((function(){
2100                                                         var string = v158;
2101                                                         var index = v159;
2102                                                         if (typeof string != 'string')
2103                                                             throw 'The value ' + string + ' is not a type string.';
2104                                                         if (typeof index != 'number')
2105                                                             throw 'The value ' + index + ' is not a type number.';
2106                                                         return string.charCodeAt(index);
2107                                                     })()) !== v2 ? v2 : (function(){
2108                                                         return (function(){ throw ({type: 'block', id: 65, value: v2, message: 'Return from unknown block EVERY.'})})();
2109                                                     })());
2110                                                     v159 = (function(){
2111                                                         var x = v159;
2112                                                         var y = 1;
2113                                                         if (typeof x != 'number')
2114                                                             throw 'The value ' + x + ' is not a type number.';
2115                                                         if (typeof y != 'number')
2116                                                             throw 'The value ' + y + ' is not a type number.';
2117                                                         return x+y;
2118                                                     })();
2119                                                 }return v2;
2120                                             })();
2121                                         })();
2122                                     }
2123                                     catch (cf){
2124                                         if (cf.type == 'block' && cf.id == 66)
2125                                             return cf.value;
2126                                         else
2127                                             throw cf;
2128                                     }
2129                                 })();
2130                                 return v3;
2131                             })(0,f43(v158));
2132                         })();
2133                     }
2134                     catch (cf){
2135                         if (cf.type == 'block' && cf.id == 65)
2136                             return cf.value;
2137                         else
2138                             throw cf;
2139                     }
2140                 })();
2141             }));
2142         })();
2143         return l31;
2144     })();
2145     (function(){
2146         (function(){
2147             return f65 = (function(v161){
2148                 ((v161)["fname"] = "ASSOC");
2149                 return v161;
2150             })((function (v162,v163){
2151                 if (arguments.length < 2) throw 'too few arguments';
2152                 if (arguments.length > 2) throw 'too many arguments';
2153                 return (function(){
2154                     try {
2155                         return (function(){
2156                             (function(){
2157                                 try {
2158                                     return (function(){
2159                                         return (function(){
2160                                             while(v163 !== v2){
2161                                                 (f16(v162, f22(v163)) !== v2 ? (function(){ throw ({type: 'block', id: 68, value: v2, message: 'Return from unknown block NIL.'})})() : v163 = (function(){
2162                                                     var tmp = v163;
2163                                                     return tmp === v2? v2: tmp.cdr;
2164                                                 })());
2165                                             }return v2;
2166                                         })();
2167                                     })();
2168                                 }
2169                                 catch (cf){
2170                                     if (cf.type == 'block' && cf.id == 68)
2171                                         return cf.value;
2172                                     else
2173                                         throw cf;
2174                                 }
2175                             })();
2176                             return (function(){
2177                                 var tmp = v163;
2178                                 return tmp === v2? v2: tmp.car;
2179                             })();
2180                         })();
2181                     }
2182                     catch (cf){
2183                         if (cf.type == 'block' && cf.id == 67)
2184                             return cf.value;
2185                         else
2186                             throw cf;
2187                     }
2188                 })();
2189             }));
2190         })();
2191         return l32;
2192     })();
2193     return (function(){
2194         (function(){
2195             return f66 = (function(v164){
2196                 ((v164)["fname"] = "STRING=");
2197                 return v164;
2198             })((function (v165,v166){
2199                 if (arguments.length < 2) throw 'too few arguments';
2200                 if (arguments.length > 2) throw 'too many arguments';
2201                 return (function(){
2202                     try {
2203                         return (function(){
2204                             return ((v165 == v166)?v3: v2);
2205                         })();
2206                     }
2207                     catch (cf){
2208                         if (cf.type == 'block' && cf.id == 69)
2209                             return cf.value;
2210                         else
2211                             throw cf;
2212                     }
2213                 })();
2214             }));
2215         })();
2216         return l33;
2217     })();
2218 })();
2219 var l34 = f3("*NEWLINE*");
2220 var v167;
2221 (function(){
2222     (function(){
2223         return v167 = (function(){
2224             var x = f48(10);
2225             if (typeof x != 'number')
2226                 throw 'The value ' + x + ' is not a type number.';
2227             return String.fromCharCode(x);
2228         })();
2229     })();
2230     return l34;
2231 })();
2232 var l35 = f3("CONCAT");
2233 var f67;
2234 (function(){
2235     (function(){
2236         return f67 = (function(v168){
2237             ((v168)["fname"] = "CONCAT");
2238             return v168;
2239         })((function (){
2240             var v169= v2;
2241             for (var i = arguments.length-1; i>=0; i--)
2242                 v169 = {car: arguments[i], cdr: v169};
2243             return (function(){
2244                 try {
2245                     return (function(){
2246                         return f37(f44, v169, "");
2247                     })();
2248                 }
2249                 catch (cf){
2250                     if (cf.type == 'block' && cf.id == 70)
2251                         return cf.value;
2252                     else
2253                         throw cf;
2254                 }
2255             })();
2256         }));
2257     })();
2258     return l35;
2259 })();
2260 var l36 = f3("JOIN");
2261 var f68;
2262 (function(){
2263     (function(){
2264         return f68 = (function(v170){
2265             ((v170)["fname"] = "JOIN");
2266             return v170;
2267         })((function (v171,v172){
2268             if (arguments.length < 1) throw 'too few arguments';
2269             if (arguments.length > 2) throw 'too many arguments';
2270             switch(arguments.length){
2271             case 1:
2272             v172="";
2273             default: break;
2274             }
2275             return (function(){
2276                 try {
2277                     return (function(){
2278                         return (f1(v171) !== v2 ? (function(){
2279                             return "";
2280                         })() : (f1((function(){
2281                             var tmp = v171;
2282                             return tmp === v2? v2: tmp.cdr;
2283                         })()) !== v2 ? (function(){
2284                             return (function(){
2285                                 var tmp = v171;
2286                                 return tmp === v2? v2: tmp.car;
2287                             })();
2288                         })() : (function(){
2289                             return f67((function(){
2290                                 var tmp = v171;
2291                                 return tmp === v2? v2: tmp.car;
2292                             })(), v172, f68((function(){
2293                                 var tmp = v171;
2294                                 return tmp === v2? v2: tmp.cdr;
2295                             })(), v172));
2296                         })()));
2297                     })();
2298                 }
2299                 catch (cf){
2300                     if (cf.type == 'block' && cf.id == 71)
2301                         return cf.value;
2302                     else
2303                         throw cf;
2304                 }
2305             })();
2306         }));
2307     })();
2308     return l36;
2309 })();
2310 var l37 = f3("JOIN-TRAILING");
2311 var f69;
2312 (function(){
2313     (function(){
2314         return f69 = (function(v173){
2315             ((v173)["fname"] = "JOIN-TRAILING");
2316             return v173;
2317         })((function (v174,v175){
2318             if (arguments.length < 1) throw 'too few arguments';
2319             if (arguments.length > 2) throw 'too many arguments';
2320             switch(arguments.length){
2321             case 1:
2322             v175="";
2323             default: break;
2324             }
2325             return (function(){
2326                 try {
2327                     return (function(){
2328                         return (f1(v174) !== v2 ? "" : f67((function(){
2329                             var tmp = v174;
2330                             return tmp === v2? v2: tmp.car;
2331                         })(), v175, f69((function(){
2332                             var tmp = v174;
2333                             return tmp === v2? v2: tmp.cdr;
2334                         })(), v175)));
2335                     })();
2336                 }
2337                 catch (cf){
2338                     if (cf.type == 'block' && cf.id == 72)
2339                         return cf.value;
2340                     else
2341                         throw cf;
2342                 }
2343             })();
2344         }));
2345     })();
2346     return l37;
2347 })();
2348 var l38 = f3("INDENT");
2349 var f70;
2350 (function(){
2351     (function(){
2352         return f70 = (function(v176){
2353             ((v176)["fname"] = "INDENT");
2354             return v176;
2355         })((function (){
2356             var v177= v2;
2357             for (var i = arguments.length-1; i>=0; i--)
2358                 v177 = {car: arguments[i], cdr: v177};
2359             return (function(){
2360                 try {
2361                     return (function(){
2362                         return (function(v178){
2363                             return (function(v179,v180,v181){
2364                                 (f52(v181) !== v2 ? (function(){
2365                                     return v179 = "    ";
2366                                 })() : v2);
2367                                 (function(){
2368                                     try {
2369                                         return (function(){
2370                                             return (function(){
2371                                                 while(((function(){
2372                                                     var x = v180;
2373                                                     var y = v181;
2374                                                     if (typeof x != 'number')
2375                                                         throw 'The value ' + x + ' is not a type number.';
2376                                                     if (typeof y != 'number')
2377                                                         throw 'The value ' + y + ' is not a type number.';
2378                                                     return x<y;
2379                                                 })()?v3: v2) !== v2){
2380                                                     v179 = f67(v179, ((f50((function(){
2381                                                         var string = v178;
2382                                                         var index = v180;
2383                                                         if (typeof string != 'string')
2384                                                             throw 'The value ' + string + ' is not a type string.';
2385                                                         if (typeof index != 'number')
2386                                                             throw 'The value ' + index + ' is not a type number.';
2387                                                         return string.charCodeAt(index);
2388                                                     })(), 10) !== v2 ? (((function(){
2389                                                         var x = v180;
2390                                                         var y = f13(v181);
2391                                                         if (typeof x != 'number')
2392                                                             throw 'The value ' + x + ' is not a type number.';
2393                                                         if (typeof y != 'number')
2394                                                             throw 'The value ' + y + ' is not a type number.';
2395                                                         return x<y;
2396                                                     })()?v3: v2) !== v2 ? f17(f50((function(){
2397                                                         var string = v178;
2398                                                         var index = f12(v180);
2399                                                         if (typeof string != 'string')
2400                                                             throw 'The value ' + string + ' is not a type string.';
2401                                                         if (typeof index != 'number')
2402                                                             throw 'The value ' + index + ' is not a type number.';
2403                                                         return string.charCodeAt(index);
2404                                                     })(), 10)) : v2) : v2) !== v2 ? f67((function(){
2405                                                         var x = 10;
2406                                                         if (typeof x != 'number')
2407                                                             throw 'The value ' + x + ' is not a type number.';
2408                                                         return String.fromCharCode(x);
2409                                                     })(), "    ") : f62(v178, v180, f12(v180))));
2410                                                     v180 = (function(){
2411                                                         var x = v180;
2412                                                         var y = 1;
2413                                                         if (typeof x != 'number')
2414                                                             throw 'The value ' + x + ' is not a type number.';
2415                                                         if (typeof y != 'number')
2416                                                             throw 'The value ' + y + ' is not a type number.';
2417                                                         return x+y;
2418                                                     })();
2419                                                 }return v2;
2420                                             })();
2421                                         })();
2422                                     }
2423                                     catch (cf){
2424                                         if (cf.type == 'block' && cf.id == 74)
2425                                             return cf.value;
2426                                         else
2427                                             throw cf;
2428                                     }
2429                                 })();
2430                                 return v179;
2431                             })("",0,f43(v178));
2432                         })(f68(v177));
2433                     })();
2434                 }
2435                 catch (cf){
2436                     if (cf.type == 'block' && cf.id == 73)
2437                         return cf.value;
2438                     else
2439                         throw cf;
2440                 }
2441             })();
2442         }));
2443     })();
2444     return l38;
2445 })();
2446 var l39 = f3("INTEGER-TO-STRING");
2447 var f6;
2448 (function(){
2449     (function(){
2450         return f6 = (function(v182){
2451             ((v182)["fname"] = "INTEGER-TO-STRING");
2452             return v182;
2453         })((function (v183){
2454             if (arguments.length < 1) throw 'too few arguments';
2455             if (arguments.length > 1) throw 'too many arguments';
2456             return (function(){
2457                 try {
2458                     return (function(){
2459                         return (f14(v183) !== v2 ? (function(){
2460                             return "0";
2461                         })() : (f53(v183) !== v2 ? (function(){
2462                             return f67("-", f6((function(){
2463                                 var x = 0;
2464                                 var y = v183;
2465                                 if (typeof x != 'number')
2466                                     throw 'The value ' + x + ' is not a type number.';
2467                                 if (typeof y != 'number')
2468                                     throw 'The value ' + y + ' is not a type number.';
2469                                 return x-y;
2470                             })()));
2471                         })() : (function(){
2472                             return (function(v184){
2473                                 (function(){
2474                                     try {
2475                                         return (function(){
2476                                             return (function(){
2477                                                 while(f17(f14(v183)) !== v2){
2478                                                     v184 = ({car: (function(){
2479                                                         var x = v183;
2480                                                         var y = 10;
2481                                                         if (typeof x != 'number')
2482                                                             throw 'The value ' + x + ' is not a type number.';
2483                                                         if (typeof y != 'number')
2484                                                             throw 'The value ' + y + ' is not a type number.';
2485                                                         return x%y;
2486                                                     })(), cdr: v184});
2487                                                     v183 = f15(v183, 10);
2488                                                 }return v2;
2489                                             })();
2490                                         })();
2491                                     }
2492                                     catch (cf){
2493                                         if (cf.type == 'block' && cf.id == 76)
2494                                             return cf.value;
2495                                         else
2496                                             throw cf;
2497                                     }
2498                                 })();
2499                                 return f68(f45((function (v185){
2500                                     if (arguments.length < 1) throw 'too few arguments';
2501                                     if (arguments.length > 1) throw 'too many arguments';
2502                                     return (function(){
2503                                         var x = (function(){
2504                                             var string = "0123456789";
2505                                             var index = v185;
2506                                             if (typeof string != 'string')
2507                                                 throw 'The value ' + string + ' is not a type string.';
2508                                             if (typeof index != 'number')
2509                                                 throw 'The value ' + index + ' is not a type number.';
2510                                             return string.charCodeAt(index);
2511                                         })();
2512                                         if (typeof x != 'number')
2513                                             throw 'The value ' + x + ' is not a type number.';
2514                                         return String.fromCharCode(x);
2515                                     })();
2516                                 }), v184));
2517                             })(v2);
2518                         })()));
2519                     })();
2520                 }
2521                 catch (cf){
2522                     if (cf.type == 'block' && cf.id == 75)
2523                         return cf.value;
2524                     else
2525                         throw cf;
2526                 }
2527             })();
2528         }));
2529     })();
2530     return l39;
2531 })();
2532 var l42 = f3("PRINT");
2533 var f74;
2534 var l41 = f3("WRITE-LINE");
2535 var f73;
2536 var l40 = f3("PRINT-TO-STRING");
2537 var f71;
2538 (function(){
2539     (function(){
2540         (function(){
2541             return f71 = (function(v186){
2542                 ((v186)["fname"] = "PRINT-TO-STRING");
2543                 return v186;
2544             })((function (v187){
2545                 if (arguments.length < 1) throw 'too few arguments';
2546                 if (arguments.length > 1) throw 'too many arguments';
2547                 return (function(){
2548                     try {
2549                         return (function(){
2550                             return (((function(){
2551                                 var tmp = v187;
2552                                 return (typeof tmp == 'object' && 'name' in tmp);
2553                             })()?v3: v2) !== v2 ? (function(){
2554                                 return (v187).name;
2555                             })() : (f51(v187) !== v2 ? (function(){
2556                                 return f6(v187);
2557                             })() : (((typeof(v187) == "string")?v3: v2) !== v2 ? (function(){
2558                                 return f67("\"", f72(v187), "\"");
2559                             })() : (((typeof v187 == 'function')?v3: v2) !== v2 ? (function(){
2560                                 return (function(v188){
2561                                     return (v188 !== v2 ? f67("#<FUNCTION ", v188, ">") : f67("#<FUNCTION>"));
2562                                 })((function(){
2563                                     var tmp = (v187)["fname"];
2564                                     return tmp == undefined? v2: tmp ;
2565                                 })());
2566                             })() : (f36(v187) !== v2 ? (function(){
2567                                 return f67("(", f69(f45(f71, f56(v187)), " "), (function(v189){
2568                                     return (f1((function(){
2569                                         var tmp = v189;
2570                                         return tmp === v2? v2: tmp.cdr;
2571                                     })()) !== v2 ? f71((function(){
2572                                         var tmp = v189;
2573                                         return tmp === v2? v2: tmp.car;
2574                                     })()) : f67(f71((function(){
2575                                         var tmp = v189;
2576                                         return tmp === v2? v2: tmp.car;
2577                                     })()), " . ", f71((function(){
2578                                         var tmp = v189;
2579                                         return tmp === v2? v2: tmp.cdr;
2580                                     })())));
2581                                 })(f55(v187)), ")");
2582                             })() : v2)))));
2583                         })();
2584                     }
2585                     catch (cf){
2586                         if (cf.type == 'block' && cf.id == 77)
2587                             return cf.value;
2588                         else
2589                             throw cf;
2590                     }
2591                 })();
2592             }));
2593         })();
2594         return l40;
2595     })();
2596     (function(){
2597         (function(){
2598             return f73 = (function(v190){
2599                 ((v190)["fname"] = "WRITE-LINE");
2600                 return v190;
2601             })((function (v191){
2602                 if (arguments.length < 1) throw 'too few arguments';
2603                 if (arguments.length > 1) throw 'too many arguments';
2604                 return (function(){
2605                     try {
2606                         return (function(){
2607                             (function(){
2608                                 var x = v191;
2609                                 if (typeof x != 'string')
2610                                     throw 'The value ' + x + ' is not a type string.';
2611                                 return lisp.write(x);
2612                             })();
2613                             (function(){
2614                                 var x = v167;
2615                                 if (typeof x != 'string')
2616                                     throw 'The value ' + x + ' is not a type string.';
2617                                 return lisp.write(x);
2618                             })();
2619                             return v191;
2620                         })();
2621                     }
2622                     catch (cf){
2623                         if (cf.type == 'block' && cf.id == 78)
2624                             return cf.value;
2625                         else
2626                             throw cf;
2627                     }
2628                 })();
2629             }));
2630         })();
2631         return l41;
2632     })();
2633     return (function(){
2634         (function(){
2635             return f74 = (function(v192){
2636                 ((v192)["fname"] = "PRINT");
2637                 return v192;
2638             })((function (v193){
2639                 if (arguments.length < 1) throw 'too few arguments';
2640                 if (arguments.length > 1) throw 'too many arguments';
2641                 return (function(){
2642                     try {
2643                         return (function(){
2644                             f73(f71(v193));
2645                             return v193;
2646                         })();
2647                     }
2648                     catch (cf){
2649                         if (cf.type == 'block' && cf.id == 79)
2650                             return cf.value;
2651                         else
2652                             throw cf;
2653                     }
2654                 })();
2655             }));
2656         })();
2657         return l42;
2658     })();
2659 })();
2660 var l43 = f3("MAKE-STRING-STREAM");
2661 var f75;
2662 (function(){
2663     (function(){
2664         return f75 = (function(v194){
2665             ((v194)["fname"] = "MAKE-STRING-STREAM");
2666             return v194;
2667         })((function (v195){
2668             if (arguments.length < 1) throw 'too few arguments';
2669             if (arguments.length > 1) throw 'too many arguments';
2670             return (function(){
2671                 try {
2672                     return (function(){
2673                         return ({car: v195, cdr: 0});
2674                     })();
2675                 }
2676                 catch (cf){
2677                     if (cf.type == 'block' && cf.id == 80)
2678                         return cf.value;
2679                     else
2680                         throw cf;
2681                 }
2682             })();
2683         }));
2684     })();
2685     return l43;
2686 })();
2687 var l44 = f3("%PEEK-CHAR");
2688 var f76;
2689 (function(){
2690     (function(){
2691         return f76 = (function(v196){
2692             ((v196)["fname"] = "%PEEK-CHAR");
2693             return v196;
2694         })((function (v197){
2695             if (arguments.length < 1) throw 'too few arguments';
2696             if (arguments.length > 1) throw 'too many arguments';
2697             return (function(){
2698                 try {
2699                     return (function(){
2700                         return (((function(){
2701                             var x = (function(){
2702                                 var tmp = v197;
2703                                 return tmp === v2? v2: tmp.cdr;
2704                             })();
2705                             var y = f43((function(){
2706                                 var tmp = v197;
2707                                 return tmp === v2? v2: tmp.car;
2708                             })());
2709                             if (typeof x != 'number')
2710                                 throw 'The value ' + x + ' is not a type number.';
2711                             if (typeof y != 'number')
2712                                 throw 'The value ' + y + ' is not a type number.';
2713                             return x<y;
2714                         })()?v3: v2) !== v2 ? (function(){
2715                             var string = (function(){
2716                                 var tmp = v197;
2717                                 return tmp === v2? v2: tmp.car;
2718                             })();
2719                             var index = (function(){
2720                                 var tmp = v197;
2721                                 return tmp === v2? v2: tmp.cdr;
2722                             })();
2723                             if (typeof string != 'string')
2724                                 throw 'The value ' + string + ' is not a type string.';
2725                             if (typeof index != 'number')
2726                                 throw 'The value ' + index + ' is not a type number.';
2727                             return string.charCodeAt(index);
2728                         })() : v2);
2729                     })();
2730                 }
2731                 catch (cf){
2732                     if (cf.type == 'block' && cf.id == 81)
2733                         return cf.value;
2734                     else
2735                         throw cf;
2736                 }
2737             })();
2738         }));
2739     })();
2740     return l44;
2741 })();
2742 var l45 = f3("%READ-CHAR");
2743 var f77;
2744 (function(){
2745     (function(){
2746         return f77 = (function(v198){
2747             ((v198)["fname"] = "%READ-CHAR");
2748             return v198;
2749         })((function (v199){
2750             if (arguments.length < 1) throw 'too few arguments';
2751             if (arguments.length > 1) throw 'too many arguments';
2752             return (function(){
2753                 try {
2754                     return (function(){
2755                         return (((function(){
2756                             var x = (function(){
2757                                 var tmp = v199;
2758                                 return tmp === v2? v2: tmp.cdr;
2759                             })();
2760                             var y = f43((function(){
2761                                 var tmp = v199;
2762                                 return tmp === v2? v2: tmp.car;
2763                             })());
2764                             if (typeof x != 'number')
2765                                 throw 'The value ' + x + ' is not a type number.';
2766                             if (typeof y != 'number')
2767                                 throw 'The value ' + y + ' is not a type number.';
2768                             return x<y;
2769                         })()?v3: v2) !== v2 ? (function(v200){
2770                             (function(){
2771                                 var x = v199;
2772                                 if (typeof x != 'object')
2773                                     throw 'The value ' + x + ' is not a type object.';
2774                                 return (x.cdr = f12((function(){
2775                                     var tmp = v199;
2776                                     return tmp === v2? v2: tmp.cdr;
2777                                 })()));
2778                             })();
2779                             return v200;
2780                         })((function(){
2781                             var string = (function(){
2782                                 var tmp = v199;
2783                                 return tmp === v2? v2: tmp.car;
2784                             })();
2785                             var index = (function(){
2786                                 var tmp = v199;
2787                                 return tmp === v2? v2: tmp.cdr;
2788                             })();
2789                             if (typeof string != 'string')
2790                                 throw 'The value ' + string + ' is not a type string.';
2791                             if (typeof index != 'number')
2792                                 throw 'The value ' + index + ' is not a type number.';
2793                             return string.charCodeAt(index);
2794                         })()) : v2);
2795                     })();
2796                 }
2797                 catch (cf){
2798                     if (cf.type == 'block' && cf.id == 82)
2799                         return cf.value;
2800                     else
2801                         throw cf;
2802                 }
2803             })();
2804         }));
2805     })();
2806     return l45;
2807 })();
2808 var l46 = f3("WHITESPACEP");
2809 var f78;
2810 (function(){
2811     (function(){
2812         return f78 = (function(v201){
2813             ((v201)["fname"] = "WHITESPACEP");
2814             return v201;
2815         })((function (v202){
2816             if (arguments.length < 1) throw 'too few arguments';
2817             if (arguments.length > 1) throw 'too many arguments';
2818             return (function(){
2819                 try {
2820                     return (function(){
2821                         return (function(v203){
2822                             return (v203 !== v2 ? v203 : (function(v204){
2823                                 return (v204 !== v2 ? v204 : f50(v202, 9));
2824                             })(f50(v202, 10)));
2825                         })(f50(v202, 32));
2826                     })();
2827                 }
2828                 catch (cf){
2829                     if (cf.type == 'block' && cf.id == 83)
2830                         return cf.value;
2831                     else
2832                         throw cf;
2833                 }
2834             })();
2835         }));
2836     })();
2837     return l46;
2838 })();
2839 var l47 = f3("SKIP-WHITESPACES");
2840 var f79;
2841 (function(){
2842     (function(){
2843         return f79 = (function(v205){
2844             ((v205)["fname"] = "SKIP-WHITESPACES");
2845             return v205;
2846         })((function (v206){
2847             if (arguments.length < 1) throw 'too few arguments';
2848             if (arguments.length > 1) throw 'too many arguments';
2849             return (function(){
2850                 try {
2851                     return (function(){
2852                         return (function(v207){
2853                             v207 = f76(v206);
2854                             return (function(){
2855                                 try {
2856                                     return (function(){
2857                                         return (function(){
2858                                             while((v207 !== v2 ? f78(v207) : v2) !== v2){
2859                                                 f77(v206);
2860                                                 v207 = f76(v206);
2861                                             }return v2;
2862                                         })();
2863                                     })();
2864                                 }
2865                                 catch (cf){
2866                                     if (cf.type == 'block' && cf.id == 85)
2867                                         return cf.value;
2868                                     else
2869                                         throw cf;
2870                                 }
2871                             })();
2872                         })(v2);
2873                     })();
2874                 }
2875                 catch (cf){
2876                     if (cf.type == 'block' && cf.id == 84)
2877                         return cf.value;
2878                     else
2879                         throw cf;
2880                 }
2881             })();
2882         }));
2883     })();
2884     return l47;
2885 })();
2886 var l48 = f3("TERMINALP");
2887 var f80;
2888 (function(){
2889     (function(){
2890         return f80 = (function(v208){
2891             ((v208)["fname"] = "TERMINALP");
2892             return v208;
2893         })((function (v209){
2894             if (arguments.length < 1) throw 'too few arguments';
2895             if (arguments.length > 1) throw 'too many arguments';
2896             return (function(){
2897                 try {
2898                     return (function(){
2899                         return (function(v210){
2900                             return (v210 !== v2 ? v210 : (function(v211){
2901                                 return (v211 !== v2 ? v211 : (function(v212){
2902                                     return (v212 !== v2 ? v212 : f50(40, v209));
2903                                 })(f50(41, v209)));
2904                             })(f78(v209)));
2905                         })(f1(v209));
2906                     })();
2907                 }
2908                 catch (cf){
2909                     if (cf.type == 'block' && cf.id == 86)
2910                         return cf.value;
2911                     else
2912                         throw cf;
2913                 }
2914             })();
2915         }));
2916     })();
2917     return l48;
2918 })();
2919 var l49 = f3("READ-UNTIL");
2920 var f81;
2921 (function(){
2922     (function(){
2923         return f81 = (function(v213){
2924             ((v213)["fname"] = "READ-UNTIL");
2925             return v213;
2926         })((function (v214,v215){
2927             if (arguments.length < 2) throw 'too few arguments';
2928             if (arguments.length > 2) throw 'too many arguments';
2929             return (function(){
2930                 try {
2931                     return (function(){
2932                         return (function(v216,v217){
2933                             v217 = f76(v214);
2934                             (function(){
2935                                 try {
2936                                     return (function(){
2937                                         return (function(){
2938                                             while((v217 !== v2 ? f17((v215)(v217)) : v2) !== v2){
2939                                                 v216 = f67(v216, (function(){
2940                                                     var x = v217;
2941                                                     if (typeof x != 'number')
2942                                                         throw 'The value ' + x + ' is not a type number.';
2943                                                     return String.fromCharCode(x);
2944                                                 })());
2945                                                 f77(v214);
2946                                                 v217 = f76(v214);
2947                                             }return v2;
2948                                         })();
2949                                     })();
2950                                 }
2951                                 catch (cf){
2952                                     if (cf.type == 'block' && cf.id == 88)
2953                                         return cf.value;
2954                                     else
2955                                         throw cf;
2956                                 }
2957                             })();
2958                             return v216;
2959                         })("",v2);
2960                     })();
2961                 }
2962                 catch (cf){
2963                     if (cf.type == 'block' && cf.id == 87)
2964                         return cf.value;
2965                     else
2966                         throw cf;
2967                 }
2968             })();
2969         }));
2970     })();
2971     return l49;
2972 })();
2973 var l50 = f3("SKIP-WHITESPACES-AND-COMMENTS");
2974 var f82;
2975 (function(){
2976     (function(){
2977         return f82 = (function(v218){
2978             ((v218)["fname"] = "SKIP-WHITESPACES-AND-COMMENTS");
2979             return v218;
2980         })((function (v219){
2981             if (arguments.length < 1) throw 'too few arguments';
2982             if (arguments.length > 1) throw 'too many arguments';
2983             return (function(){
2984                 try {
2985                     return (function(){
2986                         return (function(v220){
2987                             f79(v219);
2988                             v220 = f76(v219);
2989                             return (function(){
2990                                 try {
2991                                     return (function(){
2992                                         return (function(){
2993                                             while((v220 !== v2 ? f50(v220, 59) : v2) !== v2){
2994                                                 f81(v219, (function (v221){
2995                                                     if (arguments.length < 1) throw 'too few arguments';
2996                                                     if (arguments.length > 1) throw 'too many arguments';
2997                                                     return f50(v221, 10);
2998                                                 }));
2999                                                 f79(v219);
3000                                                 v220 = f76(v219);
3001                                             }return v2;
3002                                         })();
3003                                     })();
3004                                 }
3005                                 catch (cf){
3006                                     if (cf.type == 'block' && cf.id == 90)
3007                                         return cf.value;
3008                                     else
3009                                         throw cf;
3010                                 }
3011                             })();
3012                         })(v2);
3013                     })();
3014                 }
3015                 catch (cf){
3016                     if (cf.type == 'block' && cf.id == 89)
3017                         return cf.value;
3018                     else
3019                         throw cf;
3020                 }
3021             })();
3022         }));
3023     })();
3024     return l50;
3025 })();
3026 var l51 = f3("%READ-LIST");
3027 var f83;
3028 (function(){
3029     (function(){
3030         return f83 = (function(v222){
3031             ((v222)["fname"] = "%READ-LIST");
3032             return v222;
3033         })((function (v223){
3034             if (arguments.length < 1) throw 'too few arguments';
3035             if (arguments.length > 1) throw 'too many arguments';
3036             return (function(){
3037                 try {
3038                     return (function(){
3039                         f82(v223);
3040                         return (function(v224){
3041                             return (f1(v224) !== v2 ? (function(){
3042                                 return (function (){ throw "Unspected EOF"; })();
3043                             })() : (f50(v224, 41) !== v2 ? (function(){
3044                                 f77(v223);
3045                                 return v2;
3046                             })() : (f50(v224, 46) !== v2 ? (function(){
3047                                 f77(v223);
3048                                 return (function(v225){
3049                                     f82(v223);
3050                                     (f50(f77(v223), 41) !== v2 ? v2 : (function(){
3051                                         return (function (){ throw "')' was expected."; })();
3052                                     })());
3053                                     return v225;
3054                                 })(f84(v223));
3055                             })() : (function(){
3056                                 return ({car: f84(v223), cdr: f83(v223)});
3057                             })())));
3058                         })(f76(v223));
3059                     })();
3060                 }
3061                 catch (cf){
3062                     if (cf.type == 'block' && cf.id == 91)
3063                         return cf.value;
3064                     else
3065                         throw cf;
3066                 }
3067             })();
3068         }));
3069     })();
3070     return l51;
3071 })();
3072 var l52 = f3("READ-STRING");
3073 var f85;
3074 (function(){
3075     (function(){
3076         return f85 = (function(v226){
3077             ((v226)["fname"] = "READ-STRING");
3078             return v226;
3079         })((function (v227){
3080             if (arguments.length < 1) throw 'too few arguments';
3081             if (arguments.length > 1) throw 'too many arguments';
3082             return (function(){
3083                 try {
3084                     return (function(){
3085                         return (function(v228,v229){
3086                             v229 = f77(v227);
3087                             (function(){
3088                                 try {
3089                                     return (function(){
3090                                         return (function(){
3091                                             while(f17(f16(v229, 34)) !== v2){
3092                                                 (f1(v229) !== v2 ? (function(){
3093                                                     return (function (){ throw "Unexpected EOF"; })();
3094                                                 })() : v2);
3095                                                 (f16(v229, 92) !== v2 ? (function(){
3096                                                     return v229 = f77(v227);
3097                                                 })() : v2);
3098                                                 v228 = f67(v228, (function(){
3099                                                     var x = v229;
3100                                                     if (typeof x != 'number')
3101                                                         throw 'The value ' + x + ' is not a type number.';
3102                                                     return String.fromCharCode(x);
3103                                                 })());
3104                                                 v229 = f77(v227);
3105                                             }return v2;
3106                                         })();
3107                                     })();
3108                                 }
3109                                 catch (cf){
3110                                     if (cf.type == 'block' && cf.id == 93)
3111                                         return cf.value;
3112                                     else
3113                                         throw cf;
3114                                 }
3115                             })();
3116                             return v228;
3117                         })("",v2);
3118                     })();
3119                 }
3120                 catch (cf){
3121                     if (cf.type == 'block' && cf.id == 92)
3122                         return cf.value;
3123                     else
3124                         throw cf;
3125                 }
3126             })();
3127         }));
3128     })();
3129     return l52;
3130 })();
3131 var l57 = f3("READ-SHARP");
3132 var l56 = 43;
3133 var l55 = 92;
3134 var l54 = f3("FUNCTION");
3135 var l53 = 39;
3136 var f86;
3137 (function(){
3138     (function(){
3139         return f86 = (function(v230){
3140             ((v230)["fname"] = "READ-SHARP");
3141             return v230;
3142         })((function (v231){
3143             if (arguments.length < 1) throw 'too few arguments';
3144             if (arguments.length > 1) throw 'too many arguments';
3145             return (function(){
3146                 try {
3147                     return (function(){
3148                         f77(v231);
3149                         return (function(v232){
3150                             return (f16(v232, l53) !== v2 ? (function(){
3151                                 return f33(l54, f84(v231));
3152                             })() : (f16(v232, l55) !== v2 ? (function(){
3153                                 return (function(v233){
3154                                     return (f66(v233, "space") !== v2 ? (function(){
3155                                         return f49(32);
3156                                     })() : (f66(v233, "tab") !== v2 ? (function(){
3157                                         return f49(9);
3158                                     })() : (f66(v233, "newline") !== v2 ? (function(){
3159                                         return f49(10);
3160                                     })() : (function(){
3161                                         return f49((function(){
3162                                             var string = v233;
3163                                             var index = 0;
3164                                             if (typeof string != 'string')
3165                                                 throw 'The value ' + string + ' is not a type string.';
3166                                             if (typeof index != 'number')
3167                                                 throw 'The value ' + index + ' is not a type number.';
3168                                             return string.charCodeAt(index);
3169                                         })());
3170                                     })())));
3171                                 })(f67((function(){
3172                                     var x = f77(v231);
3173                                     if (typeof x != 'number')
3174                                         throw 'The value ' + x + ' is not a type number.';
3175                                     return String.fromCharCode(x);
3176                                 })(), f81(v231, f80)));
3177                             })() : (f16(v232, l56) !== v2 ? (function(){
3178                                 return (function(v234){
3179                                     return (f66(v234, "common-lisp") !== v2 ? (function(){
3180                                         f84(v231);
3181                                         return f84(v231);
3182                                     })() : (f66(v234, "ecmalisp") !== v2 ? (function(){
3183                                         return f84(v231);
3184                                     })() : (function(){
3185                                         return (function (){ throw "Unknown reader form."; })();
3186                                     })()));
3187                                 })(f81(v231, f80));
3188                             })() : (function(){
3189                                 return (function (){ throw "ECASE expression failed."; })();
3190                             })())));
3191                         })(f77(v231));
3192                     })();
3193                 }
3194                 catch (cf){
3195                     if (cf.type == 'block' && cf.id == 94)
3196                         return cf.value;
3197                     else
3198                         throw cf;
3199                 }
3200             })();
3201         }));
3202     })();
3203     return l57;
3204 })();
3205 var l58 = f3("*EOF*");
3206 var v235;
3207 (function(){
3208     (function(){
3209         return v235 = (function(){
3210             var name = "EOF";
3211             if (typeof name != 'string')
3212                 throw 'The value ' + name + ' is not a type string.';
3213             return ({name: name});
3214         })();
3215     })();
3216     return l58;
3217 })();
3218 var l63 = f3("LS-READ");
3219 var l62 = f3("UNQUOTE");
3220 var l61 = f3("UNQUOTE-SPLICING");
3221 var l60 = f3("BACKQUOTE");
3222 var l59 = f3("QUOTE");
3223 var f84;
3224 (function(){
3225     (function(){
3226         return f84 = (function(v236){
3227             ((v236)["fname"] = "LS-READ");
3228             return v236;
3229         })((function (v237){
3230             if (arguments.length < 1) throw 'too few arguments';
3231             if (arguments.length > 1) throw 'too many arguments';
3232             return (function(){
3233                 try {
3234                     return (function(){
3235                         f82(v237);
3236                         return (function(v238){
3237                             return (f1(v238) !== v2 ? (function(){
3238                                 return v235;
3239                             })() : (f50(v238, 40) !== v2 ? (function(){
3240                                 f77(v237);
3241                                 return f83(v237);
3242                             })() : (f50(v238, 39) !== v2 ? (function(){
3243                                 f77(v237);
3244                                 return f33(l59, f84(v237));
3245                             })() : (f50(v238, 96) !== v2 ? (function(){
3246                                 f77(v237);
3247                                 return f33(l60, f84(v237));
3248                             })() : (f50(v238, 34) !== v2 ? (function(){
3249                                 f77(v237);
3250                                 return f85(v237);
3251                             })() : (f50(v238, 44) !== v2 ? (function(){
3252                                 f77(v237);
3253                                 return (f16(f76(v237), 64) !== v2 ? (function(){
3254                                     f77(v237);
3255                                     return f33(l61, f84(v237));
3256                                 })() : f33(l62, f84(v237)));
3257                             })() : (f50(v238, 35) !== v2 ? (function(){
3258                                 return f86(v237);
3259                             })() : (function(){
3260                                 return (function(v239){
3261                                     return (f64(f61, v239) !== v2 ? f63(v239) : f3((function(){
3262                                         var x = v239;
3263                                         if (typeof x != 'string')
3264                                             throw 'The value ' + x + ' is not a type string.';
3265                                         return x.toUpperCase();
3266                                     })()));
3267                                 })(f81(v237, f80));
3268                             })())))))));
3269                         })(f76(v237));
3270                     })();
3271                 }
3272                 catch (cf){
3273                     if (cf.type == 'block' && cf.id == 95)
3274                         return cf.value;
3275                     else
3276                         throw cf;
3277                 }
3278             })();
3279         }));
3280     })();
3281     return l63;
3282 })();
3283 var l64 = f3("LS-READ-FROM-STRING");
3284 var f87;
3285 (function(){
3286     (function(){
3287         return f87 = (function(v240){
3288             ((v240)["fname"] = "LS-READ-FROM-STRING");
3289             return v240;
3290         })((function (v241){
3291             if (arguments.length < 1) throw 'too few arguments';
3292             if (arguments.length > 1) throw 'too many arguments';
3293             return (function(){
3294                 try {
3295                     return (function(){
3296                         return f84(f75(v241));
3297                     })();
3298                 }
3299                 catch (cf){
3300                     if (cf.type == 'block' && cf.id == 96)
3301                         return cf.value;
3302                     else
3303                         throw cf;
3304                 }
3305             })();
3306         }));
3307     })();
3308     return l64;
3309 })();
3310 var l66 = f3("*COMPILATION-UNIT-CHECKS*");
3311 var l65 = f3("NIL");
3312 var v242;
3313 (function(){
3314     (function(){
3315         return v242 = l65;
3316     })();
3317     return l66;
3318 })();
3319 var l67 = f3("MAKE-BINDING");
3320 var f88;
3321 (function(){
3322     (function(){
3323         return f88 = (function(v243){
3324             ((v243)["fname"] = "MAKE-BINDING");
3325             return v243;
3326         })((function (v244,v245,v246,v247){
3327             if (arguments.length < 4) throw 'too few arguments';
3328             if (arguments.length > 4) throw 'too many arguments';
3329             return (function(){
3330                 try {
3331                     return (function(){
3332                         return f33(v244, v245, v246, v247);
3333                     })();
3334                 }
3335                 catch (cf){
3336                     if (cf.type == 'block' && cf.id == 97)
3337                         return cf.value;
3338                     else
3339                         throw cf;
3340                 }
3341             })();
3342         }));
3343     })();
3344     return l67;
3345 })();
3346 var l68 = f3("BINDING-NAME");
3347 var f89;
3348 (function(){
3349     (function(){
3350         return f89 = (function(v248){
3351             ((v248)["fname"] = "BINDING-NAME");
3352             return v248;
3353         })((function (v249){
3354             if (arguments.length < 1) throw 'too few arguments';
3355             if (arguments.length > 1) throw 'too many arguments';
3356             return (function(){
3357                 try {
3358                     return (function(){
3359                         return f29(v249);
3360                     })();
3361                 }
3362                 catch (cf){
3363                     if (cf.type == 'block' && cf.id == 98)
3364                         return cf.value;
3365                     else
3366                         throw cf;
3367                 }
3368             })();
3369         }));
3370     })();
3371     return l68;
3372 })();
3373 var l69 = f3("BINDING-TYPE");
3374 var f90;
3375 (function(){
3376     (function(){
3377         return f90 = (function(v250){
3378             ((v250)["fname"] = "BINDING-TYPE");
3379             return v250;
3380         })((function (v251){
3381             if (arguments.length < 1) throw 'too few arguments';
3382             if (arguments.length > 1) throw 'too many arguments';
3383             return (function(){
3384                 try {
3385                     return (function(){
3386                         return f30(v251);
3387                     })();
3388                 }
3389                 catch (cf){
3390                     if (cf.type == 'block' && cf.id == 99)
3391                         return cf.value;
3392                     else
3393                         throw cf;
3394                 }
3395             })();
3396         }));
3397     })();
3398     return l69;
3399 })();
3400 var l70 = f3("BINDING-TRANSLATION");
3401 var f91;
3402 (function(){
3403     (function(){
3404         return f91 = (function(v252){
3405             ((v252)["fname"] = "BINDING-TRANSLATION");
3406             return v252;
3407         })((function (v253){
3408             if (arguments.length < 1) throw 'too few arguments';
3409             if (arguments.length > 1) throw 'too many arguments';
3410             return (function(){
3411                 try {
3412                     return (function(){
3413                         return f31(v253);
3414                     })();
3415                 }
3416                 catch (cf){
3417                     if (cf.type == 'block' && cf.id == 100)
3418                         return cf.value;
3419                     else
3420                         throw cf;
3421                 }
3422             })();
3423         }));
3424     })();
3425     return l70;
3426 })();
3427 var l71 = f3("BINDING-DECLARED");
3428 var f92;
3429 (function(){
3430     (function(){
3431         return f92 = (function(v254){
3432             ((v254)["fname"] = "BINDING-DECLARED");
3433             return v254;
3434         })((function (v255){
3435             if (arguments.length < 1) throw 'too few arguments';
3436             if (arguments.length > 1) throw 'too many arguments';
3437             return (function(){
3438                 try {
3439                     return (function(){
3440                         return (v255 !== v2 ? f32(v255) : v2);
3441                     })();
3442                 }
3443                 catch (cf){
3444                     if (cf.type == 'block' && cf.id == 101)
3445                         return cf.value;
3446                     else
3447                         throw cf;
3448                 }
3449             })();
3450         }));
3451     })();
3452     return l71;
3453 })();
3454 var l72 = f3("MARK-BINDING-AS-DECLARED");
3455 var f93;
3456 (function(){
3457     (function(){
3458         return f93 = (function(v256){
3459             ((v256)["fname"] = "MARK-BINDING-AS-DECLARED");
3460             return v256;
3461         })((function (v257){
3462             if (arguments.length < 1) throw 'too few arguments';
3463             if (arguments.length > 1) throw 'too many arguments';
3464             return (function(){
3465                 try {
3466                     return (function(){
3467                         return (function(){
3468                             var x = f27(v257);
3469                             if (typeof x != 'object')
3470                                 throw 'The value ' + x + ' is not a type object.';
3471                             return (x.car = v3);
3472                         })();
3473                     })();
3474                 }
3475                 catch (cf){
3476                     if (cf.type == 'block' && cf.id == 102)
3477                         return cf.value;
3478                     else
3479                         throw cf;
3480                 }
3481             })();
3482         }));
3483     })();
3484     return l72;
3485 })();
3486 var l73 = f3("MAKE-LEXENV");
3487 var f94;
3488 (function(){
3489     (function(){
3490         return f94 = (function(v258){
3491             ((v258)["fname"] = "MAKE-LEXENV");
3492             return v258;
3493         })((function (){
3494             if (arguments.length > 0) throw 'too many arguments';
3495             return (function(){
3496                 try {
3497                     return (function(){
3498                         return f33(v2, v2, v2);
3499                     })();
3500                 }
3501                 catch (cf){
3502                     if (cf.type == 'block' && cf.id == 103)
3503                         return cf.value;
3504                     else
3505                         throw cf;
3506                 }
3507             })();
3508         }));
3509     })();
3510     return l73;
3511 })();
3512 var l74 = f3("COPY-LEXENV");
3513 var f95;
3514 (function(){
3515     (function(){
3516         return f95 = (function(v259){
3517             ((v259)["fname"] = "COPY-LEXENV");
3518             return v259;
3519         })((function (v260){
3520             if (arguments.length < 1) throw 'too few arguments';
3521             if (arguments.length > 1) throw 'too many arguments';
3522             return (function(){
3523                 try {
3524                     return (function(){
3525                         return f47(v260);
3526                     })();
3527                 }
3528                 catch (cf){
3529                     if (cf.type == 'block' && cf.id == 104)
3530                         return cf.value;
3531                     else
3532                         throw cf;
3533                 }
3534             })();
3535         }));
3536     })();
3537     return l74;
3538 })();
3539 var l78 = f3("PUSH-TO-LEXENV");
3540 var l77 = f3("BLOCK");
3541 var l76 = f3("FUNCTION");
3542 var l75 = f3("VARIABLE");
3543 var f96;
3544 (function(){
3545     (function(){
3546         return f96 = (function(v261){
3547             ((v261)["fname"] = "PUSH-TO-LEXENV");
3548             return v261;
3549         })((function (v262,v263,v264){
3550             if (arguments.length < 3) throw 'too few arguments';
3551             if (arguments.length > 3) throw 'too many arguments';
3552             return (function(){
3553                 try {
3554                     return (function(){
3555                         return (function(v265){
3556                             return (f16(v265, l75) !== v2 ? (function(){
3557                                 return (function(){
3558                                     var x = v263;
3559                                     if (typeof x != 'object')
3560                                         throw 'The value ' + x + ' is not a type object.';
3561                                     return (x.car = ({car: v262, cdr: (function(){
3562                                         var tmp = v263;
3563                                         return tmp === v2? v2: tmp.car;
3564                                     })()}));
3565                                 })();
3566                             })() : (f16(v265, l76) !== v2 ? (function(){
3567                                 return (function(){
3568                                     var x = (function(){
3569                                         var tmp = v263;
3570                                         return tmp === v2? v2: tmp.cdr;
3571                                     })();
3572                                     if (typeof x != 'object')
3573                                         throw 'The value ' + x + ' is not a type object.';
3574                                     return (x.car = ({car: v262, cdr: f23(v263)}));
3575                                 })();
3576                             })() : (f16(v265, l77) !== v2 ? (function(){
3577                                 return (function(){
3578                                     var x = f25(v263);
3579                                     if (typeof x != 'object')
3580                                         throw 'The value ' + x + ' is not a type object.';
3581                                     return (x.car = ({car: v262, cdr: f26(v263)}));
3582                                 })();
3583                             })() : (function(){
3584                                 return (function (){ throw "ECASE expression failed."; })();
3585                             })())));
3586                         })(v264);
3587                     })();
3588                 }
3589                 catch (cf){
3590                     if (cf.type == 'block' && cf.id == 105)
3591                         return cf.value;
3592                     else
3593                         throw cf;
3594                 }
3595             })();
3596         }));
3597     })();
3598     return l78;
3599 })();
3600 var l79 = f3("EXTEND-LEXENV");
3601 var f97;
3602 (function(){
3603     (function(){
3604         return f97 = (function(v266){
3605             ((v266)["fname"] = "EXTEND-LEXENV");
3606             return v266;
3607         })((function (v267,v268,v269){
3608             if (arguments.length < 3) throw 'too few arguments';
3609             if (arguments.length > 3) throw 'too many arguments';
3610             return (function(){
3611                 try {
3612                     return (function(){
3613                         return (function(v270){
3614                             f96(v267, v270, v269);
3615                             return v270;
3616                         })(f95(v268));
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 l79;
3629 })();
3630 var l83 = f3("LOOKUP-IN-LEXENV");
3631 var l82 = f3("BLOCK");
3632 var l81 = f3("FUNCTION");
3633 var l80 = f3("VARIABLE");
3634 var f98;
3635 (function(){
3636     (function(){
3637         return f98 = (function(v271){
3638             ((v271)["fname"] = "LOOKUP-IN-LEXENV");
3639             return v271;
3640         })((function (v272,v273,v274){
3641             if (arguments.length < 3) throw 'too few arguments';
3642             if (arguments.length > 3) throw 'too many arguments';
3643             return (function(){
3644                 try {
3645                     return (function(){
3646                         return f65(v272, (function(v275){
3647                             return (f16(v275, l80) !== v2 ? (function(){
3648                                 return f29(v273);
3649                             })() : (f16(v275, l81) !== v2 ? (function(){
3650                                 return f30(v273);
3651                             })() : (f16(v275, l82) !== v2 ? (function(){
3652                                 return f31(v273);
3653                             })() : (function(){
3654                                 return (function (){ throw "ECASE expression failed."; })();
3655                             })())));
3656                         })(v274));
3657                     })();
3658                 }
3659                 catch (cf){
3660                     if (cf.type == 'block' && cf.id == 107)
3661                         return cf.value;
3662                     else
3663                         throw cf;
3664                 }
3665             })();
3666         }));
3667     })();
3668     return l83;
3669 })();
3670 var l84 = f3("*ENVIRONMENT*");
3671 var v276;
3672 (function(){
3673     (function(){
3674         return v276 = f94();
3675     })();
3676     return l84;
3677 })();
3678 var l85 = f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS");
3679 var f99;
3680 (function(){
3681     (function(){
3682         return f99 = (function(v277){
3683             ((v277)["fname"] = "CLEAR-UNDECLARED-GLOBAL-BINDINGS");
3684             return v277;
3685         })((function (){
3686             if (arguments.length > 0) throw 'too many arguments';
3687             return (function(){
3688                 try {
3689                     return (function(){
3690                         return (function(v278,v279){
3691                             return v276 = f33(v278, v279, f31(v276));
3692                         })(f29(v276),f30(v276));
3693                     })();
3694                 }
3695                 catch (cf){
3696                     if (cf.type == 'block' && cf.id == 108)
3697                         return cf.value;
3698                     else
3699                         throw cf;
3700                 }
3701             })();
3702         }));
3703     })();
3704     return l85;
3705 })();
3706 var l86 = f3("*VARIABLE-COUNTER*");
3707 var v280;
3708 (function(){
3709     (function(){
3710         return v280 = 0;
3711     })();
3712     return l86;
3713 })();
3714 var l87 = f3("GVARNAME");
3715 var f100;
3716 (function(){
3717     (function(){
3718         return f100 = (function(v281){
3719             ((v281)["fname"] = "GVARNAME");
3720             return v281;
3721         })((function (v282){
3722             if (arguments.length < 1) throw 'too few arguments';
3723             if (arguments.length > 1) throw 'too many arguments';
3724             return (function(){
3725                 try {
3726                     return (function(){
3727                         return f67("v", f6(v280 = (function(){
3728                             var x = v280;
3729                             var y = 1;
3730                             if (typeof x != 'number')
3731                                 throw 'The value ' + x + ' is not a type number.';
3732                             if (typeof y != 'number')
3733                                 throw 'The value ' + y + ' is not a type number.';
3734                             return x+y;
3735                         })()));
3736                     })();
3737                 }
3738                 catch (cf){
3739                     if (cf.type == 'block' && cf.id == 109)
3740                         return cf.value;
3741                     else
3742                         throw cf;
3743                 }
3744             })();
3745         }));
3746     })();
3747     return l87;
3748 })();
3749 var l93 = f3("LOOKUP-VARIABLE");
3750 var l92 = f3("VARIABLE");
3751 var l91 = f3("VARIABLE");
3752 var l90 = f3("VARIABLE");
3753 var l89 = f3("VARIABLE");
3754 var l88 = f3("VARIABLE");
3755 var f101;
3756 (function(){
3757     (function(){
3758         return f101 = (function(v283){
3759             ((v283)["fname"] = "LOOKUP-VARIABLE");
3760             return v283;
3761         })((function (v284,v285){
3762             if (arguments.length < 2) throw 'too few arguments';
3763             if (arguments.length > 2) throw 'too many arguments';
3764             return (function(){
3765                 try {
3766                     return (function(){
3767                         return (function(v286){
3768                             return (v286 !== v2 ? v286 : (function(v287){
3769                                 return (v287 !== v2 ? v287 : (function(v288,v289){
3770                                     f96(v289, v276, l88);
3771                                     v242 = ({car: (function (){
3772                                         if (arguments.length > 0) throw 'too many arguments';
3773                                         return (f98(v284, v276, l89) !== v2 ? v2 : (function(){
3774                                             return (function (){ throw f67("Undefined variable `", v288, "'"); })();
3775                                         })());
3776                                     }), cdr: v242});
3777                                     return v289;
3778                                 })((v284).name,f88(v284, l90, f100(v284), v2)));
3779                             })(f98(v284, v276, l91)));
3780                         })(f98(v284, v285, l92));
3781                     })();
3782                 }
3783                 catch (cf){
3784                     if (cf.type == 'block' && cf.id == 110)
3785                         return cf.value;
3786                     else
3787                         throw cf;
3788                 }
3789             })();
3790         }));
3791     })();
3792     return l93;
3793 })();
3794 var l94 = f3("LOOKUP-VARIABLE-TRANSLATION");
3795 var f102;
3796 (function(){
3797     (function(){
3798         return f102 = (function(v290){
3799             ((v290)["fname"] = "LOOKUP-VARIABLE-TRANSLATION");
3800             return v290;
3801         })((function (v291,v292){
3802             if (arguments.length < 2) throw 'too few arguments';
3803             if (arguments.length > 2) throw 'too many arguments';
3804             return (function(){
3805                 try {
3806                     return (function(){
3807                         return f91(f101(v291, v292));
3808                     })();
3809                 }
3810                 catch (cf){
3811                     if (cf.type == 'block' && cf.id == 111)
3812                         return cf.value;
3813                     else
3814                         throw cf;
3815                 }
3816             })();
3817         }));
3818     })();
3819     return l94;
3820 })();
3821 var l97 = f3("EXTEND-LOCAL-ENV");
3822 var l96 = f3("VARIABLE");
3823 var l95 = f3("VARIABLE");
3824 var f103;
3825 (function(){
3826     (function(){
3827         return f103 = (function(v293){
3828             ((v293)["fname"] = "EXTEND-LOCAL-ENV");
3829             return v293;
3830         })((function (v294,v295){
3831             if (arguments.length < 2) throw 'too few arguments';
3832             if (arguments.length > 2) throw 'too many arguments';
3833             return (function(){
3834                 try {
3835                     return (function(){
3836                         return (function(v296){
3837                             return (function(){
3838                                 try {
3839                                     return (function(){
3840                                         return (function(v297,v298){
3841                                             (function(){
3842                                                 while(v297 !== v2){
3843                                                     v298 = (function(){
3844                                                         var tmp = v297;
3845                                                         return tmp === v2? v2: tmp.car;
3846                                                     })();
3847                                                     (function(v299){
3848                                                         return f96(v299, v296, l95);
3849                                                     })(f88(v298, l96, f100(v298), v3));
3850                                                     v297 = (function(){
3851                                                         var tmp = v297;
3852                                                         return tmp === v2? v2: tmp.cdr;
3853                                                     })();
3854                                                 }return v2;
3855                                             })();
3856                                             return v296;
3857                                         })(v294,v2);
3858                                     })();
3859                                 }
3860                                 catch (cf){
3861                                     if (cf.type == 'block' && cf.id == 113)
3862                                         return cf.value;
3863                                     else
3864                                         throw cf;
3865                                 }
3866                             })();
3867                         })(f95(v295));
3868                     })();
3869                 }
3870                 catch (cf){
3871                     if (cf.type == 'block' && cf.id == 112)
3872                         return cf.value;
3873                     else
3874                         throw cf;
3875                 }
3876             })();
3877         }));
3878     })();
3879     return l97;
3880 })();
3881 var l98 = f3("*FUNCTION-COUNTER*");
3882 var v300;
3883 (function(){
3884     (function(){
3885         return v300 = 0;
3886     })();
3887     return l98;
3888 })();
3889 var l104 = f3("LOOKUP-FUNCTION");
3890 var l103 = f3("FUNCTION");
3891 var l102 = f3("FUNCTION");
3892 var l101 = f3("FUNCTION");
3893 var l100 = f3("FUNCTION");
3894 var l99 = f3("FUNCTION");
3895 var f104;
3896 (function(){
3897     (function(){
3898         return f104 = (function(v301){
3899             ((v301)["fname"] = "LOOKUP-FUNCTION");
3900             return v301;
3901         })((function (v302,v303){
3902             if (arguments.length < 2) throw 'too few arguments';
3903             if (arguments.length > 2) throw 'too many arguments';
3904             return (function(){
3905                 try {
3906                     return (function(){
3907                         return (function(v304){
3908                             return (v304 !== v2 ? v304 : (function(v305){
3909                                 return (v305 !== v2 ? v305 : (function(v306,v307){
3910                                     f96(v307, v276, l99);
3911                                     v242 = ({car: (function (){
3912                                         if (arguments.length > 0) throw 'too many arguments';
3913                                         return (f92(f98(v302, v276, l100)) !== v2 ? v2 : (function(){
3914                                             return (function (){ throw f67("Undefined function `", v306, "'"); })();
3915                                         })());
3916                                     }), cdr: v242});
3917                                     return v307;
3918                                 })((v302).name,f88(v302, l101, f67("f", f6(v300 = (function(){
3919                                     var x = v300;
3920                                     var y = 1;
3921                                     if (typeof x != 'number')
3922                                         throw 'The value ' + x + ' is not a type number.';
3923                                     if (typeof y != 'number')
3924                                         throw 'The value ' + y + ' is not a type number.';
3925                                     return x+y;
3926                                 })())), v2)));
3927                             })(f98(v302, v276, l102)));
3928                         })(f98(v302, v303, l103));
3929                     })();
3930                 }
3931                 catch (cf){
3932                     if (cf.type == 'block' && cf.id == 114)
3933                         return cf.value;
3934                     else
3935                         throw cf;
3936                 }
3937             })();
3938         }));
3939     })();
3940     return l104;
3941 })();
3942 var l105 = f3("LOOKUP-FUNCTION-TRANSLATION");
3943 var f105;
3944 (function(){
3945     (function(){
3946         return f105 = (function(v308){
3947             ((v308)["fname"] = "LOOKUP-FUNCTION-TRANSLATION");
3948             return v308;
3949         })((function (v309,v310){
3950             if (arguments.length < 2) throw 'too few arguments';
3951             if (arguments.length > 2) throw 'too many arguments';
3952             return (function(){
3953                 try {
3954                     return (function(){
3955                         return f91(f104(v309, v310));
3956                     })();
3957                 }
3958                 catch (cf){
3959                     if (cf.type == 'block' && cf.id == 115)
3960                         return cf.value;
3961                     else
3962                         throw cf;
3963                 }
3964             })();
3965         }));
3966     })();
3967     return l105;
3968 })();
3969 var l106 = f3("*TOPLEVEL-COMPILATIONS*");
3970 var v311;
3971 (function(){
3972     (function(){
3973         return v311 = v2;
3974     })();
3975     return l106;
3976 })();
3977 var l107 = f3("%COMPILE-DEFVAR");
3978 var f106;
3979 (function(){
3980     (function(){
3981         return f106 = (function(v312){
3982             ((v312)["fname"] = "%COMPILE-DEFVAR");
3983             return v312;
3984         })((function (v313){
3985             if (arguments.length < 1) throw 'too few arguments';
3986             if (arguments.length > 1) throw 'too many arguments';
3987             return (function(){
3988                 try {
3989                     return (function(){
3990                         return (function(v314){
3991                             f93(v314);
3992                             return v311 = ({car: f67("var ", f91(v314)), cdr: v311});
3993                         })(f101(v313, v276));
3994                     })();
3995                 }
3996                 catch (cf){
3997                     if (cf.type == 'block' && cf.id == 116)
3998                         return cf.value;
3999                     else
4000                         throw cf;
4001                 }
4002             })();
4003         }));
4004     })();
4005     return l107;
4006 })();
4007 var l108 = f3("%COMPILE-DEFUN");
4008 var f107;
4009 (function(){
4010     (function(){
4011         return f107 = (function(v315){
4012             ((v315)["fname"] = "%COMPILE-DEFUN");
4013             return v315;
4014         })((function (v316){
4015             if (arguments.length < 1) throw 'too few arguments';
4016             if (arguments.length > 1) throw 'too many arguments';
4017             return (function(){
4018                 try {
4019                     return (function(){
4020                         return (function(v317){
4021                             f93(v317);
4022                             return v311 = ({car: f67("var ", f91(v317)), cdr: v311});
4023                         })(f104(v316, v276));
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 l108;
4036 })();
4037 var l111 = f3("%COMPILE-DEFMACRO");
4038 var l110 = f3("FUNCTION");
4039 var l109 = f3("MACRO");
4040 var f108;
4041 (function(){
4042     (function(){
4043         return f108 = (function(v318){
4044             ((v318)["fname"] = "%COMPILE-DEFMACRO");
4045             return v318;
4046         })((function (v319,v320){
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 f96(f88(v319, l109, v320, v3), v276, l110);
4053                     })();
4054                 }
4055                 catch (cf){
4056                     if (cf.type == 'block' && cf.id == 118)
4057                         return cf.value;
4058                     else
4059                         throw cf;
4060                 }
4061             })();
4062         }));
4063     })();
4064     return l111;
4065 })();
4066 var l112 = f3("*COMPILATIONS*");
4067 var v321;
4068 (function(){
4069     (function(){
4070         return v321 = v2;
4071     })();
4072     return l112;
4073 })();
4074 var l113 = f3("LS-COMPILE-BLOCK");
4075 var f109;
4076 (function(){
4077     (function(){
4078         return f109 = (function(v322){
4079             ((v322)["fname"] = "LS-COMPILE-BLOCK");
4080             return v322;
4081         })((function (v323,v324){
4082             if (arguments.length < 2) throw 'too few arguments';
4083             if (arguments.length > 2) throw 'too many arguments';
4084             return (function(){
4085                 try {
4086                     return (function(){
4087                         return f69(f59((function (v325){
4088                             if (arguments.length < 1) throw 'too few arguments';
4089                             if (arguments.length > 1) throw 'too many arguments';
4090                             return (function(v326){
4091                                 return (v326 !== v2 ? v326 : (((typeof(v325) == "string")?v3: v2) !== v2 ? f14(f43(v325)) : v2));
4092                             })(f1(v325));
4093                         }), f45((function (v327){
4094                             if (arguments.length < 1) throw 'too few arguments';
4095                             if (arguments.length > 1) throw 'too many arguments';
4096                             return f110(v327, v324);
4097                         }), v323)), f67(";", v167));
4098                     })();
4099                 }
4100                 catch (cf){
4101                     if (cf.type == 'block' && cf.id == 119)
4102                         return cf.value;
4103                     else
4104                         throw cf;
4105                 }
4106             })();
4107         }));
4108     })();
4109     return l113;
4110 })();
4111 var l114 = f3("IF");
4112 v321 = ({car: f33(l114, (function (v328,v329,v330,v331){
4113     if (arguments.length < 4) throw 'too few arguments';
4114     if (arguments.length > 4) throw 'too many arguments';
4115     return f67("(", f110(v329, v328), " !== ", f110(v2), " ? ", f110(v330, v328), " : ", f110(v331, v328), ")");
4116 })), cdr: v321});
4117 var l116 = f3("*LAMBDA-LIST-KEYWORDS*");
4118 var l115 = {car: f3("&OPTIONAL"), cdr: {car: f3("&REST"), cdr: f3("NIL")}};
4119 var v332;
4120 (function(){
4121     (function(){
4122         return v332 = l115;
4123     })();
4124     return l116;
4125 })();
4126 var l117 = f3("LIST-UNTIL-KEYWORD");
4127 var f111;
4128 (function(){
4129     (function(){
4130         return f111 = (function(v333){
4131             ((v333)["fname"] = "LIST-UNTIL-KEYWORD");
4132             return v333;
4133         })((function (v334){
4134             if (arguments.length < 1) throw 'too few arguments';
4135             if (arguments.length > 1) throw 'too many arguments';
4136             return (function(){
4137                 try {
4138                     return (function(){
4139                         return ((function(v335){
4140                             return (v335 !== v2 ? v335 : f57((function(){
4141                                 var tmp = v334;
4142                                 return tmp === v2? v2: tmp.car;
4143                             })(), v332));
4144                         })(f1(v334)) !== v2 ? v2 : ({car: (function(){
4145                             var tmp = v334;
4146                             return tmp === v2? v2: tmp.car;
4147                         })(), cdr: f111((function(){
4148                             var tmp = v334;
4149                             return tmp === v2? v2: tmp.cdr;
4150                         })())}));
4151                     })();
4152                 }
4153                 catch (cf){
4154                     if (cf.type == 'block' && cf.id == 120)
4155                         return cf.value;
4156                     else
4157                         throw cf;
4158                 }
4159             })();
4160         }));
4161     })();
4162     return l117;
4163 })();
4164 var l118 = f3("LAMBDA-LIST-REQUIRED-ARGUMENTS");
4165 var f112;
4166 (function(){
4167     (function(){
4168         return f112 = (function(v336){
4169             ((v336)["fname"] = "LAMBDA-LIST-REQUIRED-ARGUMENTS");
4170             return v336;
4171         })((function (v337){
4172             if (arguments.length < 1) throw 'too few arguments';
4173             if (arguments.length > 1) throw 'too many arguments';
4174             return (function(){
4175                 try {
4176                     return (function(){
4177                         return f111(v337);
4178                     })();
4179                 }
4180                 catch (cf){
4181                     if (cf.type == 'block' && cf.id == 121)
4182                         return cf.value;
4183                     else
4184                         throw cf;
4185                 }
4186             })();
4187         }));
4188     })();
4189     return l118;
4190 })();
4191 var l120 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
4192 var l119 = f3("&OPTIONAL");
4193 var f113;
4194 (function(){
4195     (function(){
4196         return f113 = (function(v338){
4197             ((v338)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT");
4198             return v338;
4199         })((function (v339){
4200             if (arguments.length < 1) throw 'too few arguments';
4201             if (arguments.length > 1) throw 'too many arguments';
4202             return (function(){
4203                 try {
4204                     return (function(){
4205                         return f45(f35, f111((function(){
4206                             var tmp = f57(l119, v339);
4207                             return tmp === v2? v2: tmp.cdr;
4208                         })()));
4209                     })();
4210                 }
4211                 catch (cf){
4212                     if (cf.type == 'block' && cf.id == 122)
4213                         return cf.value;
4214                     else
4215                         throw cf;
4216                 }
4217             })();
4218         }));
4219     })();
4220     return l120;
4221 })();
4222 var l121 = f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS");
4223 var f114;
4224 (function(){
4225     (function(){
4226         return f114 = (function(v340){
4227             ((v340)["fname"] = "LAMBDA-LIST-OPTIONAL-ARGUMENTS");
4228             return v340;
4229         })((function (v341){
4230             if (arguments.length < 1) throw 'too few arguments';
4231             if (arguments.length > 1) throw 'too many arguments';
4232             return (function(){
4233                 try {
4234                     return (function(){
4235                         return f45(f20, f113(v341));
4236                     })();
4237                 }
4238                 catch (cf){
4239                     if (cf.type == 'block' && cf.id == 123)
4240                         return cf.value;
4241                     else
4242                         throw cf;
4243                 }
4244             })();
4245         }));
4246     })();
4247     return l121;
4248 })();
4249 var l123 = f3("LAMBDA-LIST-REST-ARGUMENT");
4250 var l122 = f3("&REST");
4251 var f115;
4252 (function(){
4253     (function(){
4254         return f115 = (function(v342){
4255             ((v342)["fname"] = "LAMBDA-LIST-REST-ARGUMENT");
4256             return v342;
4257         })((function (v343){
4258             if (arguments.length < 1) throw 'too few arguments';
4259             if (arguments.length > 1) throw 'too many arguments';
4260             return (function(){
4261                 try {
4262                     return (function(){
4263                         return (function(v344){
4264                             ((function(){
4265                                 var tmp = v344;
4266                                 return tmp === v2? v2: tmp.cdr;
4267                             })() !== v2 ? (function(){
4268                                 return (function (){ throw "Bad lambda-list"; })();
4269                             })() : v2);
4270                             return (function(){
4271                                 var tmp = v344;
4272                                 return tmp === v2? v2: tmp.car;
4273                             })();
4274                         })(f111((function(){
4275                             var tmp = f57(l122, v343);
4276                             return tmp === v2? v2: tmp.cdr;
4277                         })()));
4278                     })();
4279                 }
4280                 catch (cf){
4281                     if (cf.type == 'block' && cf.id == 124)
4282                         return cf.value;
4283                     else
4284                         throw cf;
4285                 }
4286             })();
4287         }));
4288     })();
4289     return l123;
4290 })();
4291 var l124 = f3("LAMBDA");
4292 v321 = ({car: f33(l124, (function (v346,v347){
4293     if (arguments.length < 2) throw 'too few arguments';
4294     var v345= v2;
4295     for (var i = arguments.length-1; i>=2; i--)
4296         v345 = {car: arguments[i], cdr: v345};
4297     return (function(v348,v349,v350){
4298         return (function(v351,v352,v353){
4299             return f67("(function (", f68(f45((function (v354){
4300                 if (arguments.length < 1) throw 'too few arguments';
4301                 if (arguments.length > 1) throw 'too many arguments';
4302                 return f102(v354, v353);
4303             }), f39(v348, v349)), ","), "){", v167, f70((v348 !== v2 ? f67("if (arguments.length < ", f6(v351), ") throw 'too few arguments';", v167) : ""), (f17(v350) !== v2 ? f67("if (arguments.length > ", f6((function(){
4304                 var x = v351;
4305                 var y = v352;
4306                 if (typeof x != 'number')
4307                     throw 'The value ' + x + ' is not a type number.';
4308                 if (typeof y != 'number')
4309                     throw 'The value ' + y + ' is not a type number.';
4310                 return x+y;
4311             })()), ") throw 'too many arguments';", v167) : ""), (v349 !== v2 ? f67("switch(arguments.length){", v167, (function(v355,v356,v357){
4312                 return (function(){
4313                     (function(){
4314                         try {
4315                             return (function(){
4316                                 return (function(){
4317                                     while(((function(){
4318                                         var x = v357;
4319                                         var y = v352;
4320                                         if (typeof x != 'number')
4321                                             throw 'The value ' + x + ' is not a type number.';
4322                                         if (typeof y != 'number')
4323                                             throw 'The value ' + y + ' is not a type number.';
4324                                         return x<y;
4325                                     })()?v3: v2) !== v2){
4326                                         (function(v358){
4327                                             v356 = ({car: f67("case ", f6((function(){
4328                                                 var x = v357;
4329                                                 var y = v351;
4330                                                 if (typeof x != 'number')
4331                                                     throw 'The value ' + x + ' is not a type number.';
4332                                                 if (typeof y != 'number')
4333                                                     throw 'The value ' + y + ' is not a type number.';
4334                                                 return x+y;
4335                                             })()), ":", v167, f102((function(){
4336                                                 var tmp = v358;
4337                                                 return tmp === v2? v2: tmp.car;
4338                                             })(), v353), "=", f110(f23(v358), v353), ";", v167), cdr: v356});
4339                                             return v357 = (function(){
4340                                                 var x = v357;
4341                                                 var y = 1;
4342                                                 if (typeof x != 'number')
4343                                                     throw 'The value ' + x + ' is not a type number.';
4344                                                 if (typeof y != 'number')
4345                                                     throw 'The value ' + y + ' is not a type number.';
4346                                                 return x+y;
4347                                             })();
4348                                         })(f54(v357, v355));
4349                                     }return v2;
4350                                 })();
4351                             })();
4352                         }
4353                         catch (cf){
4354                             if (cf.type == 'block' && cf.id == 125)
4355                                 return cf.value;
4356                             else
4357                                 throw cf;
4358                         }
4359                     })();
4360                     v356 = ({car: f67("default: break;", v167), cdr: v356});
4361                     return f68(f41(v356));
4362                 })();
4363             })(f113(v347),v2,0), "}", v167) : ""), (v350 !== v2 ? (function(v359){
4364                 return f67("var ", v359, "= ", f110(v2), ";", v167, "for (var i = arguments.length-1; i>=", f6((function(){
4365                     var x = v351;
4366                     var y = v352;
4367                     if (typeof x != 'number')
4368                         throw 'The value ' + x + ' is not a type number.';
4369                     if (typeof y != 'number')
4370                         throw 'The value ' + y + ' is not a type number.';
4371                     return x+y;
4372                 })()), "; i--)", v167, f70(v359, " = ", "{car: arguments[i], cdr: "), v359, "};", v167);
4373             })(f102(v350, v353)) : ""), f67(f109(f56(v345), v353), "return ", f110((function(){
4374                 var tmp = f55(v345);
4375                 return tmp === v2? v2: tmp.car;
4376             })(), v353), ";")), v167, "})");
4377         })(f43(v348),f43(v349),f103(f39(f35(v350), v348, v349), v346));
4378     })(f112(v347),f114(v347),f115(v347));
4379 })), cdr: v321});
4380 var l125 = f3("FSETQ");
4381 v321 = ({car: f33(l125, (function (v360,v361,v362){
4382     if (arguments.length < 3) throw 'too few arguments';
4383     if (arguments.length > 3) throw 'too many arguments';
4384     return f67(f105(v361, v360), " = ", f110(v362, v360));
4385 })), cdr: v321});
4386 var l126 = f3("SETQ");
4387 v321 = ({car: f33(l126, (function (v363,v364,v365){
4388     if (arguments.length < 3) throw 'too few arguments';
4389     if (arguments.length > 3) throw 'too many arguments';
4390     return f67(f102(v364, v363), " = ", f110(v365, v363));
4391 })), cdr: v321});
4392 var l127 = f3("ESCAPE-STRING");
4393 var f72;
4394 (function(){
4395     (function(){
4396         return f72 = (function(v366){
4397             ((v366)["fname"] = "ESCAPE-STRING");
4398             return v366;
4399         })((function (v367){
4400             if (arguments.length < 1) throw 'too few arguments';
4401             if (arguments.length > 1) throw 'too many arguments';
4402             return (function(){
4403                 try {
4404                     return (function(){
4405                         return (function(v368,v369,v370){
4406                             (function(){
4407                                 try {
4408                                     return (function(){
4409                                         return (function(){
4410                                             while(((function(){
4411                                                 var x = v369;
4412                                                 var y = v370;
4413                                                 if (typeof x != 'number')
4414                                                     throw 'The value ' + x + ' is not a type number.';
4415                                                 if (typeof y != 'number')
4416                                                     throw 'The value ' + y + ' is not a type number.';
4417                                                 return x<y;
4418                                             })()?v3: v2) !== v2){
4419                                                 (function(v371){
4420                                                     ((function(v372){
4421                                                         return (v372 !== v2 ? v372 : f50(v371, 92));
4422                                                     })(f50(v371, 34)) !== v2 ? (function(){
4423                                                         return v368 = f67(v368, "\\");
4424                                                     })() : v2);
4425                                                     (f50(v371, 10) !== v2 ? (function(){
4426                                                         v368 = f67(v368, "\\");
4427                                                         return v371 = 110;
4428                                                     })() : v2);
4429                                                     return v368 = f67(v368, (function(){
4430                                                         var x = v371;
4431                                                         if (typeof x != 'number')
4432                                                             throw 'The value ' + x + ' is not a type number.';
4433                                                         return String.fromCharCode(x);
4434                                                     })());
4435                                                 })((function(){
4436                                                     var string = v367;
4437                                                     var index = v369;
4438                                                     if (typeof string != 'string')
4439                                                         throw 'The value ' + string + ' is not a type string.';
4440                                                     if (typeof index != 'number')
4441                                                         throw 'The value ' + index + ' is not a type number.';
4442                                                     return string.charCodeAt(index);
4443                                                 })());
4444                                                 v369 = (function(){
4445                                                     var x = v369;
4446                                                     var y = 1;
4447                                                     if (typeof x != 'number')
4448                                                         throw 'The value ' + x + ' is not a type number.';
4449                                                     if (typeof y != 'number')
4450                                                         throw 'The value ' + y + ' is not a type number.';
4451                                                     return x+y;
4452                                                 })();
4453                                             }return v2;
4454                                         })();
4455                                     })();
4456                                 }
4457                                 catch (cf){
4458                                     if (cf.type == 'block' && cf.id == 127)
4459                                         return cf.value;
4460                                     else
4461                                         throw cf;
4462                                 }
4463                             })();
4464                             return v368;
4465                         })("",0,f43(v367));
4466                     })();
4467                 }
4468                 catch (cf){
4469                     if (cf.type == 'block' && cf.id == 126)
4470                         return cf.value;
4471                     else
4472                         throw cf;
4473                 }
4474             })();
4475         }));
4476     })();
4477     return l127;
4478 })();
4479 var l129 = f3("LITERAL->JS");
4480 var l128 = f3("INTERN");
4481 var f116;
4482 (function(){
4483     (function(){
4484         return f116 = (function(v373){
4485             ((v373)["fname"] = "LITERAL->JS");
4486             return v373;
4487         })((function (v374){
4488             if (arguments.length < 1) throw 'too few arguments';
4489             if (arguments.length > 1) throw 'too many arguments';
4490             return (function(){
4491                 try {
4492                     return (function(){
4493                         return (f51(v374) !== v2 ? (function(){
4494                             return f6(v374);
4495                         })() : (((typeof(v374) == "string")?v3: v2) !== v2 ? (function(){
4496                             return f67("\"", f72(v374), "\"");
4497                         })() : (((function(){
4498                             var tmp = v374;
4499                             return (typeof tmp == 'object' && 'name' in tmp);
4500                         })()?v3: v2) !== v2 ? (function(){
4501                             return f110(f39(f33(l128), f33(f72((v374).name))), v276);
4502                         })() : (((function(){
4503                             var tmp = v374;
4504                             return (typeof tmp == 'object' && 'car' in tmp);
4505                         })()?v3: v2) !== v2 ? (function(){
4506                             return f67("{car: ", f116((function(){
4507                                 var tmp = v374;
4508                                 return tmp === v2? v2: tmp.car;
4509                             })()), ", cdr: ", f116((function(){
4510                                 var tmp = v374;
4511                                 return tmp === v2? v2: tmp.cdr;
4512                             })()), "}");
4513                         })() : v2))));
4514                     })();
4515                 }
4516                 catch (cf){
4517                     if (cf.type == 'block' && cf.id == 128)
4518                         return cf.value;
4519                     else
4520                         throw cf;
4521                 }
4522             })();
4523         }));
4524     })();
4525     return l129;
4526 })();
4527 var l130 = f3("*LITERAL-COUNTER*");
4528 var v375;
4529 (function(){
4530     (function(){
4531         return v375 = 0;
4532     })();
4533     return l130;
4534 })();
4535 var l131 = f3("LITERAL");
4536 var f117;
4537 (function(){
4538     (function(){
4539         return f117 = (function(v376){
4540             ((v376)["fname"] = "LITERAL");
4541             return v376;
4542         })((function (v377){
4543             if (arguments.length < 1) throw 'too few arguments';
4544             if (arguments.length > 1) throw 'too many arguments';
4545             return (function(){
4546                 try {
4547                     return (function(){
4548                         return (function(v378){
4549                             v311 = ({car: f67("var ", v378, " = ", f116(v377)), cdr: v311});
4550                             return v378;
4551                         })(f67("l", f6(v375 = (function(){
4552                             var x = v375;
4553                             var y = 1;
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                         })())));
4560                     })();
4561                 }
4562                 catch (cf){
4563                     if (cf.type == 'block' && cf.id == 129)
4564                         return cf.value;
4565                     else
4566                         throw cf;
4567                 }
4568             })();
4569         }));
4570     })();
4571     return l131;
4572 })();
4573 var l132 = f3("QUOTE");
4574 v321 = ({car: f33(l132, (function (v379,v380){
4575     if (arguments.length < 2) throw 'too few arguments';
4576     if (arguments.length > 2) throw 'too many arguments';
4577     return f117(v380);
4578 })), cdr: v321});
4579 var l133 = f3("%WHILE");
4580 v321 = ({car: f33(l133, (function (v382,v383){
4581     if (arguments.length < 2) throw 'too few arguments';
4582     var v381= v2;
4583     for (var i = arguments.length-1; i>=2; i--)
4584         v381 = {car: arguments[i], cdr: v381};
4585     return f67("(function(){", v167, f70("while(", f110(v383, v382), " !== ", f110(v2), "){", v167, f70(f109(v381, v382)), "}", "return ", f110(v2), ";", v167), "})()");
4586 })), cdr: v321});
4587 var l135 = f3("LAMBDA");
4588 var l134 = f3("FUNCTION");
4589 v321 = ({car: f33(l134, (function (v384,v385){
4590     if (arguments.length < 2) throw 'too few arguments';
4591     if (arguments.length > 2) throw 'too many arguments';
4592     return ((f36(v385) !== v2 ? (((function(){
4593         var tmp = v385;
4594         return tmp === v2? v2: tmp.car;
4595     })() === l135)?v3: v2) : v2) !== v2 ? (function(){
4596         return f110(v385, v384);
4597     })() : (((function(){
4598         var tmp = v385;
4599         return (typeof tmp == 'object' && 'name' in tmp);
4600     })()?v3: v2) !== v2 ? (function(){
4601         return f105(v385, v384);
4602     })() : v2));
4603 })), cdr: v321});
4604 var l137 = f3("PROGN");
4605 var l136 = f3("EVAL-WHEN-COMPILE");
4606 v321 = ({car: f33(l136, (function (v387){
4607     if (arguments.length < 1) throw 'too few arguments';
4608     var v386= v2;
4609     for (var i = arguments.length-1; i>=1; i--)
4610         v386 = {car: arguments[i], cdr: v386};
4611     f118(({car: l137, cdr: v386}));
4612     return "";
4613 })), cdr: v321});
4614 var l138 = f3("PROGN");
4615 v321 = ({car: f33(l138, (function (v389){
4616     if (arguments.length < 1) throw 'too few arguments';
4617     var v388= v2;
4618     for (var i = arguments.length-1; i>=1; i--)
4619         v388 = {car: arguments[i], cdr: v388};
4620     return f67("(function(){", v167, f70(f109(f56(v388), v389), "return ", f110((function(){
4621         var tmp = f55(v388);
4622         return tmp === v2? v2: tmp.car;
4623     })(), v389), ";", v167), "})()");
4624 })), cdr: v321});
4625 var l139 = f3("LET");
4626 v321 = ({car: f33(l139, (function (v391,v392){
4627     if (arguments.length < 2) throw 'too few arguments';
4628     var v390= v2;
4629     for (var i = arguments.length-1; i>=2; i--)
4630         v390 = {car: arguments[i], cdr: v390};
4631     return (function(v393){
4632         return (function(v394,v395){
4633             return (function(v396){
4634                 return f67("(function(", f68(f45((function (v397){
4635                     if (arguments.length < 1) throw 'too few arguments';
4636                     if (arguments.length > 1) throw 'too many arguments';
4637                     return f102(v397, v396);
4638                 }), v394), ","), "){", v167, f70(f109(f56(v390), v396), "return ", f110((function(){
4639                     var tmp = f55(v390);
4640                     return tmp === v2? v2: tmp.car;
4641                 })(), v396), ";", v167), "})(", f68(f45((function (v398){
4642                     if (arguments.length < 1) throw 'too few arguments';
4643                     if (arguments.length > 1) throw 'too many arguments';
4644                     return f110(v398, v391);
4645                 }), v395), ","), ")");
4646             })(f103(v394, v391));
4647         })(f45(f29, v393),f45(f30, v393));
4648     })(f45(f35, v392));
4649 })), cdr: v321});
4650 var l140 = f3("*BLOCK-COUNTER*");
4651 var v399;
4652 (function(){
4653     (function(){
4654         return v399 = 0;
4655     })();
4656     return l140;
4657 })();
4658 var l144 = f3("BLOCK");
4659 var l143 = f3("BLOCK");
4660 var l142 = f3("PROGN");
4661 var l141 = f3("BLOCK");
4662 v321 = ({car: f33(l141, (function (v401,v402){
4663     if (arguments.length < 2) throw 'too few arguments';
4664     var v400= v2;
4665     for (var i = arguments.length-1; i>=2; i--)
4666         v400 = {car: arguments[i], cdr: v400};
4667     return (function(v403){
4668         return (function(v404){
4669             return f67("(function(){", v167, f70("try {", v167, f70("return ", f110(f39(f33(l142), v400), f97(v404, v401, l143)), ";", v167), "}", v167, "catch (cf){", v167, "    if (cf.type == 'block' && cf.id == ", v403, ")", v167, "        return cf.value;", v167, "    else", v167, "        throw cf;", v167, "}", v167), "})()");
4670         })(f88(v402, l144, v403, v3));
4671     })(f6(v399 = (function(){
4672         var x = v399;
4673         var y = 1;
4674         if (typeof x != 'number')
4675             throw 'The value ' + x + ' is not a type number.';
4676         if (typeof y != 'number')
4677             throw 'The value ' + y + ' is not a type number.';
4678         return x+y;
4679     })()));
4680 })), cdr: v321});
4681 var l146 = f3("BLOCK");
4682 var l145 = f3("RETURN-FROM");
4683 v321 = ({car: f33(l145, (function (v405,v406,v407){
4684     if (arguments.length < 2) throw 'too few arguments';
4685     if (arguments.length > 3) throw 'too many arguments';
4686     switch(arguments.length){
4687     case 2:
4688     v407=v2;
4689     default: break;
4690     }
4691     return (function(v408){
4692         return (v408 !== v2 ? f67("(function(){ throw ({", "type: 'block', ", "id: ", f91(v408), ", ", "value: ", f110(v407, v405), ", ", "message: 'Return from unknown block ", (v406).name, ".'", "})})()") : (function (){ throw f67("Unknown block `", (v406).name, "'."); })());
4693     })(f98(v406, v405, l146));
4694 })), cdr: v321});
4695 var l148 = f3("PROGN");
4696 var l147 = f3("CATCH");
4697 v321 = ({car: f33(l147, (function (v410,v411){
4698     if (arguments.length < 2) throw 'too few arguments';
4699     var v409= v2;
4700     for (var i = arguments.length-1; i>=2; i--)
4701         v409 = {car: arguments[i], cdr: v409};
4702     return f67("(function(){", v167, f70("var id = ", f110(v411, v410), ";", v167, "try {", v167, f70("return ", f110(f39(f33(l148), v409)), ";", v167), "}", v167, "catch (cf){", v167, "    if (cf.type == 'catch' && cf.id == id)", v167, "        return cf.value;", v167, "    else", v167, "        throw cf;", v167, "}", v167), "})()");
4703 })), cdr: v321});
4704 var l149 = f3("THROW");
4705 v321 = ({car: f33(l149, (function (v412,v413,v414){
4706     if (arguments.length < 2) throw 'too few arguments';
4707     if (arguments.length > 3) throw 'too many arguments';
4708     switch(arguments.length){
4709     case 2:
4710     v414=v2;
4711     default: break;
4712     }
4713     return f67("(function(){ throw ({", "type: 'catch', ", "id: ", f110(v413, v412), ", ", "value: ", f110(v414, v412), ", ", "message: 'Throw uncatched.'", "})})()");
4714 })), cdr: v321});
4715 var l150 = f3("UNWIND-PROTECT");
4716 v321 = ({car: f33(l150, (function (v416,v417){
4717     if (arguments.length < 2) throw 'too few arguments';
4718     var v415= v2;
4719     for (var i = arguments.length-1; i>=2; i--)
4720         v415 = {car: arguments[i], cdr: v415};
4721     return f67("(function(){", v167, f70("var ret = ", f110(v2), ";", v167, "try {", v167, f70("ret = ", f110(v417, v416), ";", v167), "} finally {", v167, f70(f109(v415, v416)), "}", v167, "return ret;", v167), "})()");
4722 })), cdr: v321});
4723 var l159 = f3("BACKQUOTE-EXPAND-1");
4724 var l158 = f3("LIST");
4725 var l157 = f3("UNQUOTE-SPLICING");
4726 var l156 = f3("LIST");
4727 var l155 = f3("UNQUOTE");
4728 var l154 = f3("APPEND");
4729 var l153 = f3("BACKQUOTE");
4730 var l152 = f3("UNQUOTE");
4731 var l151 = f3("QUOTE");
4732 var f119;
4733 (function(){
4734     (function(){
4735         return f119 = (function(v418){
4736             ((v418)["fname"] = "BACKQUOTE-EXPAND-1");
4737             return v418;
4738         })((function (v419){
4739             if (arguments.length < 1) throw 'too few arguments';
4740             if (arguments.length > 1) throw 'too many arguments';
4741             return (function(){
4742                 try {
4743                     return (function(){
4744                         return (((function(){
4745                             var tmp = v419;
4746                             return (typeof tmp == 'object' && 'name' in tmp);
4747                         })()?v3: v2) !== v2 ? (function(){
4748                             return f33(l151, v419);
4749                         })() : (f34(v419) !== v2 ? (function(){
4750                             return v419;
4751                         })() : ((((function(){
4752                             var tmp = v419;
4753                             return tmp === v2? v2: tmp.car;
4754                         })() === l152)?v3: v2) !== v2 ? (function(){
4755                             return (function(){
4756                                 var tmp = v419;
4757                                 return tmp === v2? v2: tmp.car;
4758                             })();
4759                         })() : ((((function(){
4760                             var tmp = v419;
4761                             return tmp === v2? v2: tmp.car;
4762                         })() === l153)?v3: v2) !== v2 ? (function(){
4763                             return f119(f119(f23(v419)));
4764                         })() : (function(){
4765                             return ({car: l154, cdr: f45((function (v420){
4766                                 if (arguments.length < 1) throw 'too few arguments';
4767                                 if (arguments.length > 1) throw 'too many arguments';
4768                                 return ((f36(v420) !== v2 ? (((function(){
4769                                     var tmp = v420;
4770                                     return tmp === v2? v2: tmp.car;
4771                                 })() === l155)?v3: v2) : v2) !== v2 ? (function(){
4772                                     return f33(l156, f23(v420));
4773                                 })() : ((f36(v420) !== v2 ? (((function(){
4774                                     var tmp = v420;
4775                                     return tmp === v2? v2: tmp.car;
4776                                 })() === l157)?v3: v2) : v2) !== v2 ? (function(){
4777                                     return f23(v420);
4778                                 })() : (function(){
4779                                     return f33(l158, f119(v420));
4780                                 })()));
4781                             }), v419)});
4782                         })()))));
4783                     })();
4784                 }
4785                 catch (cf){
4786                     if (cf.type == 'block' && cf.id == 130)
4787                         return cf.value;
4788                     else
4789                         throw cf;
4790                 }
4791             })();
4792         }));
4793     })();
4794     return l159;
4795 })();
4796 var l161 = f3("BACKQUOTE-EXPAND");
4797 var l160 = f3("BACKQUOTE");
4798 var f120;
4799 (function(){
4800     (function(){
4801         return f120 = (function(v421){
4802             ((v421)["fname"] = "BACKQUOTE-EXPAND");
4803             return v421;
4804         })((function (v422){
4805             if (arguments.length < 1) throw 'too few arguments';
4806             if (arguments.length > 1) throw 'too many arguments';
4807             return (function(){
4808                 try {
4809                     return (function(){
4810                         return ((f36(v422) !== v2 ? (((function(){
4811                             var tmp = v422;
4812                             return tmp === v2? v2: tmp.car;
4813                         })() === l160)?v3: v2) : v2) !== v2 ? f119(f23(v422)) : v422);
4814                     })();
4815                 }
4816                 catch (cf){
4817                     if (cf.type == 'block' && cf.id == 131)
4818                         return cf.value;
4819                     else
4820                         throw cf;
4821                 }
4822             })();
4823         }));
4824     })();
4825     return l161;
4826 })();
4827 var l162 = f3("BACKQUOTE");
4828 v321 = ({car: f33(l162, (function (v423,v424){
4829     if (arguments.length < 2) throw 'too few arguments';
4830     if (arguments.length > 2) throw 'too many arguments';
4831     return f110(f119(v424), v423);
4832 })), cdr: v321});
4833 var l163 = f3("COMPILE-BOOL");
4834 var f121;
4835 (function(){
4836     (function(){
4837         return f121 = (function(v425){
4838             ((v425)["fname"] = "COMPILE-BOOL");
4839             return v425;
4840         })((function (v426){
4841             if (arguments.length < 1) throw 'too few arguments';
4842             if (arguments.length > 1) throw 'too many arguments';
4843             return (function(){
4844                 try {
4845                     return (function(){
4846                         return f67("(", v426, "?", f110(v3), ": ", f110(v2), ")");
4847                     })();
4848                 }
4849                 catch (cf){
4850                     if (cf.type == 'block' && cf.id == 132)
4851                         return cf.value;
4852                     else
4853                         throw cf;
4854                 }
4855             })();
4856         }));
4857     })();
4858     return l163;
4859 })();
4860 var l164 = f3("NUM-OP-NUM");
4861 var f122;
4862 (function(){
4863     (function(){
4864         return f122 = (function(v427){
4865             ((v427)["fname"] = "NUM-OP-NUM");
4866             return v427;
4867         })((function (v428,v429,v430){
4868             if (arguments.length < 3) throw 'too few arguments';
4869             if (arguments.length > 3) throw 'too many arguments';
4870             return (function(){
4871                 try {
4872                     return (function(){
4873                         return f67("(function(){", v167, f70(f67("var ", "x", " = ", v428, ";", v167), f67("var ", "y", " = ", v430, ";", v167), f67("if (typeof ", "x", " != '", "number", "')", v167, f70("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v167)), f67("if (typeof ", "y", " != '", "number", "')", v167, f70("throw 'The value ' + ", "y", " + ' is not a type ", "number", ".';", v167)), f67("return ", (function(){
4874                             return f67("x", v429, "y");
4875                         })(), ";", v167)), "})()");
4876                     })();
4877                 }
4878                 catch (cf){
4879                     if (cf.type == 'block' && cf.id == 133)
4880                         return cf.value;
4881                     else
4882                         throw cf;
4883                 }
4884             })();
4885         }));
4886     })();
4887     return l164;
4888 })();
4889 var l165 = f3("+");
4890 v321 = ({car: f33(l165, (function (v431,v432,v433){
4891     if (arguments.length < 3) throw 'too few arguments';
4892     if (arguments.length > 3) throw 'too many arguments';
4893     return (function(v434,v435){
4894         return f122(v434, "+", v435);
4895     })(f110(v432, v431),f110(v433, v431));
4896 })), cdr: v321});
4897 var l166 = f3("-");
4898 v321 = ({car: f33(l166, (function (v436,v437,v438){
4899     if (arguments.length < 3) throw 'too few arguments';
4900     if (arguments.length > 3) throw 'too many arguments';
4901     return (function(v439,v440){
4902         return f122(v439, "-", v440);
4903     })(f110(v437, v436),f110(v438, v436));
4904 })), cdr: v321});
4905 var l167 = f3("*");
4906 v321 = ({car: f33(l167, (function (v441,v442,v443){
4907     if (arguments.length < 3) throw 'too few arguments';
4908     if (arguments.length > 3) throw 'too many arguments';
4909     return (function(v444,v445){
4910         return f122(v444, "*", v445);
4911     })(f110(v442, v441),f110(v443, v441));
4912 })), cdr: v321});
4913 var l168 = f3("/");
4914 v321 = ({car: f33(l168, (function (v446,v447,v448){
4915     if (arguments.length < 3) throw 'too few arguments';
4916     if (arguments.length > 3) throw 'too many arguments';
4917     return (function(v449,v450){
4918         return f122(v449, "/", v450);
4919     })(f110(v447, v446),f110(v448, v446));
4920 })), cdr: v321});
4921 var l169 = f3("MOD");
4922 v321 = ({car: f33(l169, (function (v451,v452,v453){
4923     if (arguments.length < 3) throw 'too few arguments';
4924     if (arguments.length > 3) throw 'too many arguments';
4925     return (function(v454,v455){
4926         return f122(v454, "%", v455);
4927     })(f110(v452, v451),f110(v453, v451));
4928 })), cdr: v321});
4929 var l170 = f3("<");
4930 v321 = ({car: f33(l170, (function (v456,v457,v458){
4931     if (arguments.length < 3) throw 'too few arguments';
4932     if (arguments.length > 3) throw 'too many arguments';
4933     return (function(v459,v460){
4934         return f121(f122(v459, "<", v460));
4935     })(f110(v457, v456),f110(v458, v456));
4936 })), cdr: v321});
4937 var l171 = f3(">");
4938 v321 = ({car: f33(l171, (function (v461,v462,v463){
4939     if (arguments.length < 3) throw 'too few arguments';
4940     if (arguments.length > 3) throw 'too many arguments';
4941     return (function(v464,v465){
4942         return f121(f122(v464, ">", v465));
4943     })(f110(v462, v461),f110(v463, v461));
4944 })), cdr: v321});
4945 var l172 = f3("=");
4946 v321 = ({car: f33(l172, (function (v466,v467,v468){
4947     if (arguments.length < 3) throw 'too few arguments';
4948     if (arguments.length > 3) throw 'too many arguments';
4949     return (function(v469,v470){
4950         return f121(f122(v469, "==", v470));
4951     })(f110(v467, v466),f110(v468, v466));
4952 })), cdr: v321});
4953 var l173 = f3("<=");
4954 v321 = ({car: f33(l173, (function (v471,v472,v473){
4955     if (arguments.length < 3) throw 'too few arguments';
4956     if (arguments.length > 3) throw 'too many arguments';
4957     return (function(v474,v475){
4958         return f121(f122(v474, "<=", v475));
4959     })(f110(v472, v471),f110(v473, v471));
4960 })), cdr: v321});
4961 var l174 = f3(">=");
4962 v321 = ({car: f33(l174, (function (v476,v477,v478){
4963     if (arguments.length < 3) throw 'too few arguments';
4964     if (arguments.length > 3) throw 'too many arguments';
4965     return (function(v479,v480){
4966         return f121(f122(v479, ">=", v480));
4967     })(f110(v477, v476),f110(v478, v476));
4968 })), cdr: v321});
4969 var l175 = f3("NUMBERP");
4970 v321 = ({car: f33(l175, (function (v481,v482){
4971     if (arguments.length < 2) throw 'too few arguments';
4972     if (arguments.length > 2) throw 'too many arguments';
4973     return (function(v483){
4974         return f121(f67("(typeof (", v483, ") == \"number\")"));
4975     })(f110(v482, v481));
4976 })), cdr: v321});
4977 var l176 = f3("FLOOR");
4978 v321 = ({car: f33(l176, (function (v484,v485){
4979     if (arguments.length < 2) throw 'too few arguments';
4980     if (arguments.length > 2) throw 'too many arguments';
4981     return (function(v486){
4982         return f67("(function(){", v167, f70(f67("var ", "x", " = ", v486, ";", v167), f67("if (typeof ", "x", " != '", "number", "')", v167, f70("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v167)), f67("return ", (function(){
4983             return "Math.floor(x)";
4984         })(), ";", v167)), "})()");
4985     })(f110(v485, v484));
4986 })), cdr: v321});
4987 var l177 = f3("CONS");
4988 v321 = ({car: f33(l177, (function (v487,v488,v489){
4989     if (arguments.length < 3) throw 'too few arguments';
4990     if (arguments.length > 3) throw 'too many arguments';
4991     return (function(v490,v491){
4992         return f67("({car: ", v490, ", cdr: ", v491, "})");
4993     })(f110(v488, v487),f110(v489, v487));
4994 })), cdr: v321});
4995 var l178 = f3("CONSP");
4996 v321 = ({car: f33(l178, (function (v492,v493){
4997     if (arguments.length < 2) throw 'too few arguments';
4998     if (arguments.length > 2) throw 'too many arguments';
4999     return (function(v494){
5000         return f121(f67("(function(){", v167, f70("var tmp = ", v494, ";", v167, "return (typeof tmp == 'object' && 'car' in tmp);", v167), "})()"));
5001     })(f110(v493, v492));
5002 })), cdr: v321});
5003 var l179 = f3("CAR");
5004 v321 = ({car: f33(l179, (function (v495,v496){
5005     if (arguments.length < 2) throw 'too few arguments';
5006     if (arguments.length > 2) throw 'too many arguments';
5007     return (function(v497){
5008         return f67("(function(){", v167, f70("var tmp = ", v497, ";", v167, "return tmp === ", f110(v2), "? ", f110(v2), ": tmp.car;", v167), "})()");
5009     })(f110(v496, v495));
5010 })), cdr: v321});
5011 var l180 = f3("CDR");
5012 v321 = ({car: f33(l180, (function (v498,v499){
5013     if (arguments.length < 2) throw 'too few arguments';
5014     if (arguments.length > 2) throw 'too many arguments';
5015     return (function(v500){
5016         return f67("(function(){", v167, f70("var tmp = ", v500, ";", v167, "return tmp === ", f110(v2), "? ", f110(v2), ": tmp.cdr;", v167), "})()");
5017     })(f110(v499, v498));
5018 })), cdr: v321});
5019 var l181 = f3("SETCAR");
5020 v321 = ({car: f33(l181, (function (v501,v502,v503){
5021     if (arguments.length < 3) throw 'too few arguments';
5022     if (arguments.length > 3) throw 'too many arguments';
5023     return (function(v504,v505){
5024         return f67("(function(){", v167, f70(f67("var ", "x", " = ", v504, ";", v167), f67("if (typeof ", "x", " != '", "object", "')", v167, f70("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v167)), f67("return ", (function(){
5025             return f67("(x.car = ", v505, ")");
5026         })(), ";", v167)), "})()");
5027     })(f110(v502, v501),f110(v503, v501));
5028 })), cdr: v321});
5029 var l182 = f3("SETCDR");
5030 v321 = ({car: f33(l182, (function (v506,v507,v508){
5031     if (arguments.length < 3) throw 'too few arguments';
5032     if (arguments.length > 3) throw 'too many arguments';
5033     return (function(v509,v510){
5034         return f67("(function(){", v167, f70(f67("var ", "x", " = ", v509, ";", v167), f67("if (typeof ", "x", " != '", "object", "')", v167, f70("throw 'The value ' + ", "x", " + ' is not a type ", "object", ".';", v167)), f67("return ", (function(){
5035             return f67("(x.cdr = ", v510, ")");
5036         })(), ";", v167)), "})()");
5037     })(f110(v507, v506),f110(v508, v506));
5038 })), cdr: v321});
5039 var l183 = f3("SYMBOLP");
5040 v321 = ({car: f33(l183, (function (v511,v512){
5041     if (arguments.length < 2) throw 'too few arguments';
5042     if (arguments.length > 2) throw 'too many arguments';
5043     return (function(v513){
5044         return f121(f67("(function(){", v167, f70("var tmp = ", v513, ";", v167, "return (typeof tmp == 'object' && 'name' in tmp);", v167), "})()"));
5045     })(f110(v512, v511));
5046 })), cdr: v321});
5047 var l184 = f3("MAKE-SYMBOL");
5048 v321 = ({car: f33(l184, (function (v514,v515){
5049     if (arguments.length < 2) throw 'too few arguments';
5050     if (arguments.length > 2) throw 'too many arguments';
5051     return (function(v516){
5052         return f67("(function(){", v167, f70(f67("var ", "name", " = ", v516, ";", v167), f67("if (typeof ", "name", " != '", "string", "')", v167, f70("throw 'The value ' + ", "name", " + ' is not a type ", "string", ".';", v167)), f67("return ", (function(){
5053             return "({name: name})";
5054         })(), ";", v167)), "})()");
5055     })(f110(v515, v514));
5056 })), cdr: v321});
5057 var l185 = f3("SYMBOL-NAME");
5058 v321 = ({car: f33(l185, (function (v517,v518){
5059     if (arguments.length < 2) throw 'too few arguments';
5060     if (arguments.length > 2) throw 'too many arguments';
5061     return (function(v519){
5062         return f67("(", v519, ").name");
5063     })(f110(v518, v517));
5064 })), cdr: v321});
5065 var l186 = f3("EQ");
5066 v321 = ({car: f33(l186, (function (v520,v521,v522){
5067     if (arguments.length < 3) throw 'too few arguments';
5068     if (arguments.length > 3) throw 'too many arguments';
5069     return (function(v523,v524){
5070         return f121(f67("(", v523, " === ", v524, ")"));
5071     })(f110(v521, v520),f110(v522, v520));
5072 })), cdr: v321});
5073 var l187 = f3("EQUAL");
5074 v321 = ({car: f33(l187, (function (v525,v526,v527){
5075     if (arguments.length < 3) throw 'too few arguments';
5076     if (arguments.length > 3) throw 'too many arguments';
5077     return (function(v528,v529){
5078         return f121(f67("(", v528, " == ", v529, ")"));
5079     })(f110(v526, v525),f110(v527, v525));
5080 })), cdr: v321});
5081 var l188 = f3("STRING");
5082 v321 = ({car: f33(l188, (function (v530,v531){
5083     if (arguments.length < 2) throw 'too few arguments';
5084     if (arguments.length > 2) throw 'too many arguments';
5085     return (function(v532){
5086         return f67("(function(){", v167, f70(f67("var ", "x", " = ", v532, ";", v167), f67("if (typeof ", "x", " != '", "number", "')", v167, f70("throw 'The value ' + ", "x", " + ' is not a type ", "number", ".';", v167)), f67("return ", (function(){
5087             return "String.fromCharCode(x)";
5088         })(), ";", v167)), "})()");
5089     })(f110(v531, v530));
5090 })), cdr: v321});
5091 var l189 = f3("STRINGP");
5092 v321 = ({car: f33(l189, (function (v533,v534){
5093     if (arguments.length < 2) throw 'too few arguments';
5094     if (arguments.length > 2) throw 'too many arguments';
5095     return (function(v535){
5096         return f121(f67("(typeof(", v535, ") == \"string\")"));
5097     })(f110(v534, v533));
5098 })), cdr: v321});
5099 var l190 = f3("STRING-UPCASE");
5100 v321 = ({car: f33(l190, (function (v536,v537){
5101     if (arguments.length < 2) throw 'too few arguments';
5102     if (arguments.length > 2) throw 'too many arguments';
5103     return (function(v538){
5104         return f67("(function(){", v167, f70(f67("var ", "x", " = ", v538, ";", v167), f67("if (typeof ", "x", " != '", "string", "')", v167, f70("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v167)), f67("return ", (function(){
5105             return "x.toUpperCase()";
5106         })(), ";", v167)), "})()");
5107     })(f110(v537, v536));
5108 })), cdr: v321});
5109 var l191 = f3("STRING-LENGTH");
5110 v321 = ({car: f33(l191, (function (v539,v540){
5111     if (arguments.length < 2) throw 'too few arguments';
5112     if (arguments.length > 2) throw 'too many arguments';
5113     return (function(v541){
5114         return f67("(function(){", v167, f70(f67("var ", "x", " = ", v541, ";", v167), f67("if (typeof ", "x", " != '", "string", "')", v167, f70("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v167)), f67("return ", (function(){
5115             return "x.length";
5116         })(), ";", v167)), "})()");
5117     })(f110(v540, v539));
5118 })), cdr: v321});
5119 var l192 = f3("SLICE");
5120 v321 = ({car: f33(l192, (function (v542,v543,v544,v545){
5121     if (arguments.length < 3) throw 'too few arguments';
5122     if (arguments.length > 4) throw 'too many arguments';
5123     switch(arguments.length){
5124     case 3:
5125     v545=v2;
5126     default: break;
5127     }
5128     return f67("(function(){", v167, f70("var str = ", f110(v543, v542), ";", v167, "var a = ", f110(v544, v542), ";", v167, "var b;", v167, (v545 !== v2 ? f67("b = ", f110(v545, v542), ";", v167) : ""), "return str.slice(a,b);", v167), "})()");
5129 })), cdr: v321});
5130 var l193 = f3("CHAR");
5131 v321 = ({car: f33(l193, (function (v546,v547,v548){
5132     if (arguments.length < 3) throw 'too few arguments';
5133     if (arguments.length > 3) throw 'too many arguments';
5134     return (function(v549,v550){
5135         return f67("(function(){", v167, f70(f67("var ", "string", " = ", v549, ";", v167), f67("var ", "index", " = ", v550, ";", v167), f67("if (typeof ", "string", " != '", "string", "')", v167, f70("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v167)), f67("if (typeof ", "index", " != '", "number", "')", v167, f70("throw 'The value ' + ", "index", " + ' is not a type ", "number", ".';", v167)), f67("return ", (function(){
5136             return "string.charCodeAt(index)";
5137         })(), ";", v167)), "})()");
5138     })(f110(v547, v546),f110(v548, v546));
5139 })), cdr: v321});
5140 var l194 = f3("CONCAT-TWO");
5141 v321 = ({car: f33(l194, (function (v551,v552,v553){
5142     if (arguments.length < 3) throw 'too few arguments';
5143     if (arguments.length > 3) throw 'too many arguments';
5144     return (function(v554,v555){
5145         return f67("(function(){", v167, f70(f67("var ", "string1", " = ", v554, ";", v167), f67("var ", "string2", " = ", v555, ";", v167), f67("if (typeof ", "string1", " != '", "string", "')", v167, f70("throw 'The value ' + ", "string1", " + ' is not a type ", "string", ".';", v167)), f67("if (typeof ", "string2", " != '", "string", "')", v167, f70("throw 'The value ' + ", "string2", " + ' is not a type ", "string", ".';", v167)), f67("return ", (function(){
5146             return "string1.concat(string2)";
5147         })(), ";", v167)), "})()");
5148     })(f110(v552, v551),f110(v553, v551));
5149 })), cdr: v321});
5150 var l195 = f3("FUNCALL");
5151 v321 = ({car: f33(l195, (function (v557,v558){
5152     if (arguments.length < 2) throw 'too few arguments';
5153     var v556= v2;
5154     for (var i = arguments.length-1; i>=2; i--)
5155         v556 = {car: arguments[i], cdr: v556};
5156     return f67("(", f110(v558, v557), ")(", f68(f45((function (v559){
5157         if (arguments.length < 1) throw 'too few arguments';
5158         if (arguments.length > 1) throw 'too many arguments';
5159         return f110(v559, v557);
5160     }), v556), ", "), ")");
5161 })), cdr: v321});
5162 var l196 = f3("APPLY");
5163 v321 = ({car: f33(l196, (function (v561,v562){
5164     if (arguments.length < 2) throw 'too few arguments';
5165     var v560= v2;
5166     for (var i = arguments.length-1; i>=2; i--)
5167         v560 = {car: arguments[i], cdr: v560};
5168     return (f1(v560) !== v2 ? f67("(", f110(v562, v561), ")()") : (function(v563,v564){
5169         return f67("(function(){", v167, f70("var f = ", f110(v562, v561), ";", v167, "var args = [", f68(f45((function (v565){
5170             if (arguments.length < 1) throw 'too few arguments';
5171             if (arguments.length > 1) throw 'too many arguments';
5172             return f110(v565, v561);
5173         }), v563), ", "), "];", v167, "var tail = (", f110(v564, v561), ");", v167, f70("while (tail != ", f110(v2), "){", v167, "    args.push(tail.car);", v167, "    tail = tail.cdr;", v167, "}", v167, "return f.apply(this, args);", v167), "})()"));
5174     })(f56(v560),(function(){
5175         var tmp = f55(v560);
5176         return tmp === v2? v2: tmp.car;
5177     })()));
5178 })), cdr: v321});
5179 var l197 = f3("JS-EVAL");
5180 v321 = ({car: f33(l197, (function (v566,v567){
5181     if (arguments.length < 2) throw 'too few arguments';
5182     if (arguments.length > 2) throw 'too many arguments';
5183     return (function(v568){
5184         return f67("(function(){", v167, f70(f67("var ", "string", " = ", v568, ";", v167), f67("if (typeof ", "string", " != '", "string", "')", v167, f70("throw 'The value ' + ", "string", " + ' is not a type ", "string", ".';", v167)), f67("return ", (function(){
5185             return "eval.apply(window, [string])";
5186         })(), ";", v167)), "})()");
5187     })(f110(v567, v566));
5188 })), cdr: v321});
5189 var l198 = f3("ERROR");
5190 v321 = ({car: f33(l198, (function (v569,v570){
5191     if (arguments.length < 2) throw 'too few arguments';
5192     if (arguments.length > 2) throw 'too many arguments';
5193     return (function(v571){
5194         return f67("(function (){ throw ", v571, "; })()");
5195     })(f110(v570, v569));
5196 })), cdr: v321});
5197 var l199 = f3("NEW");
5198 v321 = ({car: f33(l199, (function (v572){
5199     if (arguments.length < 1) throw 'too few arguments';
5200     if (arguments.length > 1) throw 'too many arguments';
5201     return (function(){
5202         return "{}";
5203     })();
5204 })), cdr: v321});
5205 var l200 = f3("GET");
5206 v321 = ({car: f33(l200, (function (v573,v574,v575){
5207     if (arguments.length < 3) throw 'too few arguments';
5208     if (arguments.length > 3) throw 'too many arguments';
5209     return (function(v576,v577){
5210         return f67("(function(){", v167, f70("var tmp = ", "(", v576, ")[", v577, "];", v167, "return tmp == undefined? ", f110(v2), ": tmp ;", v167), "})()");
5211     })(f110(v574, v573),f110(v575, v573));
5212 })), cdr: v321});
5213 var l201 = f3("SET");
5214 v321 = ({car: f33(l201, (function (v578,v579,v580,v581){
5215     if (arguments.length < 4) throw 'too few arguments';
5216     if (arguments.length > 4) throw 'too many arguments';
5217     return (function(v582,v583,v584){
5218         return f67("((", v582, ")[", v583, "] = ", v584, ")");
5219     })(f110(v579, v578),f110(v580, v578),f110(v581, v578));
5220 })), cdr: v321});
5221 var l202 = f3("IN");
5222 v321 = ({car: f33(l202, (function (v585,v586,v587){
5223     if (arguments.length < 3) throw 'too few arguments';
5224     if (arguments.length > 3) throw 'too many arguments';
5225     return (function(v588,v589){
5226         return f121(f67("((", v588, ") in (", v589, "))"));
5227     })(f110(v586, v585),f110(v587, v585));
5228 })), cdr: v321});
5229 var l203 = f3("FUNCTIONP");
5230 v321 = ({car: f33(l203, (function (v590,v591){
5231     if (arguments.length < 2) throw 'too few arguments';
5232     if (arguments.length > 2) throw 'too many arguments';
5233     return (function(v592){
5234         return f121(f67("(typeof ", v592, " == 'function')"));
5235     })(f110(v591, v590));
5236 })), cdr: v321});
5237 var l204 = f3("WRITE-STRING");
5238 v321 = ({car: f33(l204, (function (v593,v594){
5239     if (arguments.length < 2) throw 'too few arguments';
5240     if (arguments.length > 2) throw 'too many arguments';
5241     return (function(v595){
5242         return f67("(function(){", v167, f70(f67("var ", "x", " = ", v595, ";", v167), f67("if (typeof ", "x", " != '", "string", "')", v167, f70("throw 'The value ' + ", "x", " + ' is not a type ", "string", ".';", v167)), f67("return ", (function(){
5243             return "lisp.write(x)";
5244         })(), ";", v167)), "})()");
5245     })(f110(v594, v593));
5246 })), cdr: v321});
5247 var l206 = f3("MACROP");
5248 var l205 = f3("MACRO");
5249 var f123;
5250 (function(){
5251     (function(){
5252         return f123 = (function(v596){
5253             ((v596)["fname"] = "MACROP");
5254             return v596;
5255         })((function (v597){
5256             if (arguments.length < 1) throw 'too few arguments';
5257             if (arguments.length > 1) throw 'too many arguments';
5258             return (function(){
5259                 try {
5260                     return (function(){
5261                         return (((function(){
5262                             var tmp = v597;
5263                             return (typeof tmp == 'object' && 'name' in tmp);
5264                         })()?v3: v2) !== v2 ? ((f90(f104(v597, v276)) === l205)?v3: v2) : v2);
5265                     })();
5266                 }
5267                 catch (cf){
5268                     if (cf.type == 'block' && cf.id == 134)
5269                         return cf.value;
5270                     else
5271                         throw cf;
5272                 }
5273             })();
5274         }));
5275     })();
5276     return l206;
5277 })();
5278 var l208 = f3("LS-MACROEXPAND-1");
5279 var l207 = f3("MACRO");
5280 var f124;
5281 (function(){
5282     (function(){
5283         return f124 = (function(v598){
5284             ((v598)["fname"] = "LS-MACROEXPAND-1");
5285             return v598;
5286         })((function (v599,v600){
5287             if (arguments.length < 2) throw 'too few arguments';
5288             if (arguments.length > 2) throw 'too many arguments';
5289             return (function(){
5290                 try {
5291                     return (function(){
5292                         return (f123((function(){
5293                             var tmp = v599;
5294                             return tmp === v2? v2: tmp.car;
5295                         })()) !== v2 ? (function(v601){
5296                             return (((f90(v601) === l207)?v3: v2) !== v2 ? (function(){
5297                                 var f = f118(f91(v601));
5298                                 var args = [];
5299                                 var tail = ((function(){
5300                                     var tmp = v599;
5301                                     return tmp === v2? v2: tmp.cdr;
5302                                 })());
5303                                     while (tail != v2){
5304                                         args.push(tail.car);
5305                                         tail = tail.cdr;
5306                                     }
5307                                     return f.apply(this, args);
5308                                 })() : v599);
5309                         })(f104((function(){
5310                             var tmp = v599;
5311                             return tmp === v2? v2: tmp.car;
5312                         })(), v276)) : v599);
5313                     })();
5314                 }
5315                 catch (cf){
5316                     if (cf.type == 'block' && cf.id == 135)
5317                         return cf.value;
5318                     else
5319                         throw cf;
5320                 }
5321             })();
5322         }));
5323     })();
5324     return l208;
5325 })();
5326 var l210 = f3("COMPILE-FUNCALL");
5327 var l209 = f3("LAMBDA");
5328 var f125;
5329 (function(){
5330     (function(){
5331         return f125 = (function(v602){
5332             ((v602)["fname"] = "COMPILE-FUNCALL");
5333             return v602;
5334         })((function (v603,v604,v605){
5335             if (arguments.length < 3) throw 'too few arguments';
5336             if (arguments.length > 3) throw 'too many arguments';
5337             return (function(){
5338                 try {
5339                     return (function(){
5340                         return (((function(){
5341                             var tmp = v603;
5342                             return (typeof tmp == 'object' && 'name' in tmp);
5343                         })()?v3: v2) !== v2 ? (function(){
5344                             return f67(f105(v603, v605), "(", f68(f45((function (v606){
5345                                 if (arguments.length < 1) throw 'too few arguments';
5346                                 if (arguments.length > 1) throw 'too many arguments';
5347                                 return f110(v606, v605);
5348                             }), v604), ", "), ")");
5349                         })() : ((f36(v603) !== v2 ? (((function(){
5350                             var tmp = v603;
5351                             return tmp === v2? v2: tmp.car;
5352                         })() === l209)?v3: v2) : v2) !== v2 ? (function(){
5353                             return f67("(", f110(v603, v605), ")(", f68(f45((function (v607){
5354                                 if (arguments.length < 1) throw 'too few arguments';
5355                                 if (arguments.length > 1) throw 'too many arguments';
5356                                 return f110(v607, v605);
5357                             }), v604), ", "), ")");
5358                         })() : (function(){
5359                             return (function (){ throw f67("Invalid function designator ", (v603).name); })();
5360                         })()));
5361                     })();
5362                 }
5363                 catch (cf){
5364                     if (cf.type == 'block' && cf.id == 136)
5365                         return cf.value;
5366                     else
5367                         throw cf;
5368                 }
5369             })();
5370         }));
5371     })();
5372     return l210;
5373 })();
5374 var l211 = f3("LS-COMPILE");
5375 var f110;
5376 (function(){
5377     (function(){
5378         return f110 = (function(v608){
5379             ((v608)["fname"] = "LS-COMPILE");
5380             return v608;
5381         })((function (v609,v610){
5382             if (arguments.length < 1) throw 'too few arguments';
5383             if (arguments.length > 2) throw 'too many arguments';
5384             switch(arguments.length){
5385             case 1:
5386             v610=f94();
5387             default: break;
5388             }
5389             return (function(){
5390                 try {
5391                     return (function(){
5392                         return (((function(){
5393                             var tmp = v609;
5394                             return (typeof tmp == 'object' && 'name' in tmp);
5395                         })()?v3: v2) !== v2 ? (function(){
5396                             return f102(v609, v610);
5397                         })() : (f51(v609) !== v2 ? (function(){
5398                             return f6(v609);
5399                         })() : (((typeof(v609) == "string")?v3: v2) !== v2 ? (function(){
5400                             return f67("\"", f72(v609), "\"");
5401                         })() : (f36(v609) !== v2 ? (function(){
5402                             return (f65((function(){
5403                                 var tmp = v609;
5404                                 return tmp === v2? v2: tmp.car;
5405                             })(), v321) !== v2 ? (function(v611){
5406                                 return (function(){
5407                                     var f = v611;
5408                                     var args = [v610];
5409                                     var tail = ((function(){
5410                                         var tmp = v609;
5411                                         return tmp === v2? v2: tmp.cdr;
5412                                     })());
5413                                         while (tail != v2){
5414                                             args.push(tail.car);
5415                                             tail = tail.cdr;
5416                                         }
5417                                         return f.apply(this, args);
5418                                     })();
5419                             })(f30(f65((function(){
5420                                 var tmp = v609;
5421                                 return tmp === v2? v2: tmp.car;
5422                             })(), v321))) : (f123((function(){
5423                                 var tmp = v609;
5424                                 return tmp === v2? v2: tmp.car;
5425                             })()) !== v2 ? f110(f124(v609, v610), v610) : f125((function(){
5426                                 var tmp = v609;
5427                                 return tmp === v2? v2: tmp.car;
5428                             })(), (function(){
5429                                 var tmp = v609;
5430                                 return tmp === v2? v2: tmp.cdr;
5431                             })(), v610)));
5432                         })() : v2))));
5433                     })();
5434                 }
5435                 catch (cf){
5436                     if (cf.type == 'block' && cf.id == 137)
5437                         return cf.value;
5438                     else
5439                         throw cf;
5440                 }
5441             })();
5442         }));
5443     })();
5444     return l211;
5445 })();
5446 var l212 = f3("LS-COMPILE-TOPLEVEL");
5447 var f126;
5448 (function(){
5449     (function(){
5450         return f126 = (function(v612){
5451             ((v612)["fname"] = "LS-COMPILE-TOPLEVEL");
5452             return v612;
5453         })((function (v613){
5454             if (arguments.length < 1) throw 'too few arguments';
5455             if (arguments.length > 1) throw 'too many arguments';
5456             return (function(){
5457                 try {
5458                     return (function(){
5459                         v311 = v2;
5460                         return (function(v614){
5461                             return (function(v615){
5462                                 v311 = v2;
5463                                 return v615;
5464                             })(f67(f68(f45((function (v616){
5465                                 if (arguments.length < 1) throw 'too few arguments';
5466                                 if (arguments.length > 1) throw 'too many arguments';
5467                                 return f67(v616, ";", v167);
5468                             }), v311)), v614));
5469                         })(f110(v613));
5470                     })();
5471                 }
5472                 catch (cf){
5473                     if (cf.type == 'block' && cf.id == 138)
5474                         return cf.value;
5475                     else
5476                         throw cf;
5477                 }
5478             })();
5479         }));
5480     })();
5481     return l212;
5482 })();
5483 var l223 = f3("LS-COMPILE-TOPLEVEL");
5484 var l222 = f3("EVAL");
5485 var l221 = f3("PRINT-TO-STRING");
5486 var l220 = f3("LS-READ-FROM-STRING");
5487 var l219 = 140;
5488 var l218 = 148;
5489 var l217 = 213;
5490 var l216 = 126;
5491 var l215 = 622;
5492 var l214 = {car: {car: {car: f3("*BLOCK-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v399", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*LITERAL-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v375", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*LAMBDA-LIST-KEYWORDS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v332", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v321", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*TOPLEVEL-COMPILATIONS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v311", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*FUNCTION-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v300", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*VARIABLE-COUNTER*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v280", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*ENVIRONMENT*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v276", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*COMPILATION-UNIT-CHECKS*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v242", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*EOF*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v235", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*NEWLINE*"), cdr: {car: f3("VARIABLE"), cdr: {car: "v167", 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: "f126", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COMPILE-FUNCALL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f125", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-MACROEXPAND-1"), cdr: {car: f3("FUNCTION"), cdr: {car: "f124", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MACROP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f123", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NUM-OP-NUM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f122", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TYPE-CHECK"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECLS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "(function(){", cdr: {car: f3("*NEWLINE*"), cdr: {car: {car: f3("INDENT"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECL"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "var ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " = ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ";", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("DECLS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("DECL"), cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CONCAT"), cdr: {car: "if (typeof ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " != '", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: "')", cdr: {car: f3("*NEWLINE*"), cdr: {car: {car: f3("INDENT"), cdr: {car: "throw 'The value ' + ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: " + ' is not a type ", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("DECL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ".';", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}}}, cdr: f3("NIL")}}}}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("DECLS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: "return ", cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: ";", cdr: {car: f3("*NEWLINE*"), cdr: f3("NIL")}}}}}, cdr: f3("NIL")}}}}, cdr: {car: "})()", cdr: f3("NIL")}}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COMPILE-BOOL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f121", 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: "f120", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE-EXPAND-1"), cdr: {car: f3("FUNCTION"), cdr: {car: "f119", 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: "f118", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LITERAL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f117", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LITERAL->JS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f116", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-REST-ARGUMENT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f115", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f114", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-OPTIONAL-ARGUMENTS-WITH-DEFAULT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f113", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAMBDA-LIST-REQUIRED-ARGUMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f112", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST-UNTIL-KEYWORD"), cdr: {car: f3("FUNCTION"), cdr: {car: "f111", 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("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("*COMPILATIONS*"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f110", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-COMPILE-BLOCK"), cdr: {car: f3("FUNCTION"), cdr: {car: "f109", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFMACRO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f108", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFUN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f107", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%COMPILE-DEFVAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f106", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f105", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-FUNCTION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f104", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EXTEND-LOCAL-ENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f103", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f102", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-VARIABLE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f101", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GVARNAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f100", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CLEAR-UNDECLARED-GLOBAL-BINDINGS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f99", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LOOKUP-IN-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f98", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EXTEND-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f97", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PUSH-TO-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f96", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COPY-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f95", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-LEXENV"), cdr: {car: f3("FUNCTION"), cdr: {car: "f94", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MARK-BINDING-AS-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f93", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-DECLARED"), cdr: {car: f3("FUNCTION"), cdr: {car: "f92", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TRANSLATION"), cdr: {car: f3("FUNCTION"), cdr: {car: "f91", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-TYPE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f90", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BINDING-NAME"), cdr: {car: f3("FUNCTION"), cdr: {car: "f89", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-BINDING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f88", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ-FROM-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f87", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-SHARP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f86", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f85", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LS-READ"), cdr: {car: f3("FUNCTION"), cdr: {car: "f84", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f83", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES-AND-COMMENTS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f82", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("READ-UNTIL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f81", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TERMINALP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f80", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SKIP-WHITESPACES"), cdr: {car: f3("FUNCTION"), cdr: {car: "f79", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHITESPACEP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f78", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%READ-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f77", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%PEEK-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f76", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAKE-STRING-STREAM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f75", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRINT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f74", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WRITE-LINE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f73", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ESCAPE-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f72", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PRINT-TO-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f71", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INDENT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f70", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JOIN-TRAILING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f69", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("JOIN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f68", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCAT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f67", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("STRING="), cdr: {car: f3("FUNCTION"), cdr: {car: "f66", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ASSOC"), cdr: {car: f3("FUNCTION"), cdr: {car: "f65", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EVERY"), cdr: {car: f3("FUNCTION"), cdr: {car: "f64", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PARSE-INTEGER"), cdr: {car: f3("FUNCTION"), cdr: {car: "f63", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SUBSEQ"), cdr: {car: f3("FUNCTION"), cdr: {car: "f62", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DIGIT-CHAR-P"), cdr: {car: f3("FUNCTION"), cdr: {car: "f61", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE-IF-NOT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f60", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE-IF"), cdr: {car: f3("FUNCTION"), cdr: {car: "f59", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REMOVE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f58", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MEMBER"), cdr: {car: f3("FUNCTION"), cdr: {car: "f57", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BUTLAST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f56", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LAST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f55", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f54", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MINUSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f53", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PLUSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f52", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTEGERP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f51", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CHAR="), cdr: {car: f3("FUNCTION"), cdr: {car: "f50", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CHAR-CODE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f49", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CODE-CHAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f48", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COPY-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f47", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("IDENTITY"), cdr: {car: f3("FUNCTION"), cdr: {car: "f46", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("MAPCAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f45", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONCAT-TWO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f44", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LENGTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f43", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST-LENGTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f42", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REVERSE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f41", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("REVERSE-AUX"), cdr: {car: f3("FUNCTION"), cdr: {car: "f40", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("APPEND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f39", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("APPEND-TWO"), cdr: {car: f3("FUNCTION"), cdr: {car: "f38", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("%DEFVAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("%DEFUN"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("!REDUCE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f37", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LISTP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f36", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ENSURE-LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f35", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PROG1"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("VALUE"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("OR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: {car: f3("NULL"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("NULL"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("T"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("G"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G"), cdr: f3("NIL")}}, cdr: {car: {car: f3("OR"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("AND"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: {car: f3("NULL"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("NULL"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("T"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("AND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("FORMS"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ECASE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("CASE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("APPEND"), cdr: {car: f3("CLAUSULES"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("T"), cdr: {car: {car: f3("ERROR"), cdr: {car: "ECASE expression failed.", cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CASE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("FORM"), cdr: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("!FORM"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("!FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("FORM"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("COND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CLAUSULE"), cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}, cdr: {car: f3("CLAUSULE"), cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: {car: f3("EQL"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("!FORM"), cdr: f3("NIL")}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("CLAUSULE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("COND"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&REST"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("NULL"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: {car: f3("CAAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("CAAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDAR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("COND"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: {car: f3("CDR"), cdr: {car: f3("CLAUSULES"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOTIMES"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ITER"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("G!TO"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: {car: {car: f3("VAR"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("TO"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("RESULT"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("BLOCK"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: 0, cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!TO"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("TO"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("%WHILE"), cdr: {car: {car: f3("<"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!TO"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("INCF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("RESULT"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DOLIST"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("ITER"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("VAR"), cdr: {car: {car: f3("FIRST"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("G!LIST"), cdr: {car: {car: f3("GENSYM"), cdr: f3("NIL")}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("BLOCK"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SECOND"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("%WHILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VAR"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CDR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("G!LIST"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("THIRD"), cdr: {car: f3("ITER"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("UNLESS"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CONDITION"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("CONDITION"), cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHEN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CONDITION"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("CONDITION"), cdr: f3("NIL")}}, cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("PUSH"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: {car: f3("PLACE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("PLACE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("CONS"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("PLACE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DECF"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: {car: f3("&OPTIONAL"), cdr: {car: {car: f3("DELTA"), cdr: {car: 1, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("-"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("DELTA"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INCF"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: {car: f3("&OPTIONAL"), cdr: {car: {car: f3("DELTA"), cdr: {car: 1, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("+"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("DELTA"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ATOM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f34", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LIST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f33", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("FOURTH"), cdr: {car: f3("FUNCTION"), cdr: {car: "f32", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("THIRD"), cdr: {car: f3("FUNCTION"), cdr: {car: "f31", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("SECOND"), cdr: {car: f3("FUNCTION"), cdr: {car: "f30", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("FIRST"), cdr: {car: f3("FUNCTION"), cdr: {car: "f29", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CADDDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f28", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDDDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f27", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CADDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f26", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f25", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f24", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CADR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f23", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CAAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f22", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CDR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f21", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CAR"), cdr: {car: f3("FUNCTION"), cdr: {car: "f20", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONSP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f19", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("CONS"), cdr: {car: f3("FUNCTION"), cdr: {car: "f18", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NOT"), cdr: {car: f3("FUNCTION"), cdr: {car: "f17", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("EQL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f16", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("TRUNCATE"), cdr: {car: f3("FUNCTION"), cdr: {car: "f15", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("ZEROP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f14", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("1-"), cdr: {car: f3("FUNCTION"), cdr: {car: "f13", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("1+"), cdr: {car: f3("FUNCTION"), cdr: {car: "f12", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("/"), cdr: {car: f3("FUNCTION"), cdr: {car: "f11", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("*"), cdr: {car: f3("FUNCTION"), cdr: {car: "f10", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("-"), cdr: {car: f3("FUNCTION"), cdr: {car: "f9", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("+"), cdr: {car: f3("FUNCTION"), cdr: {car: "f8", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("="), cdr: {car: f3("FUNCTION"), cdr: {car: "f7", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTEGER-TO-STRING"), cdr: {car: f3("FUNCTION"), cdr: {car: "f6", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("GENSYM"), cdr: {car: f3("FUNCTION"), cdr: {car: "f5", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("FIND-SYMBOL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f4", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTERN"), cdr: {car: f3("FUNCTION"), cdr: {car: "f3", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("INTERNP"), cdr: {car: f3("FUNCTION"), cdr: {car: "f2", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("WHILE"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("CONDITION"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("BLOCK"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("%WHILE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("CONDITION"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("RETURN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("RETURN-FROM"), cdr: {car: f3("NIL"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NULL"), cdr: {car: f3("FUNCTION"), cdr: {car: "f1", cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("%DEFUN"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%DEFUN"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFUN"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("FSETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("NAMED-LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("SYMBOL-NAME"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BLOCK"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("NAMED-LAMBDA"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: f3("X"), cdr: {car: {car: f3("GENSYM"), cdr: {car: "FN", cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("LET"), cdr: {car: {car: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("ARGS"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}, cdr: {car: {car: f3("SET"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: {car: "fname", cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("X"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("&OPTIONAL"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("%DEFVAR"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("%DEFVAR"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("PROGN"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFVAR"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("SETQ"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("VALUE"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("DEFMACRO"), cdr: {car: f3("MACRO"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("NAME"), cdr: {car: f3("ARGS"), cdr: {car: f3("&REST"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}}}, cdr: {car: {car: f3("BACKQUOTE"), cdr: {car: {car: f3("EVAL-WHEN-COMPILE"), cdr: {car: {car: f3("%COMPILE-DEFMACRO"), cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: f3("NAME"), cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("UNQUOTE"), cdr: {car: {car: f3("MAPCAR"), cdr: {car: {car: f3("LAMBDA"), cdr: {car: {car: f3("X"), cdr: f3("NIL")}, cdr: {car: {car: f3("IF"), cdr: {car: {car: f3("EQ"), cdr: {car: f3("X"), cdr: {car: {car: f3("QUOTE"), cdr: {car: f3("&BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: {car: f3("QUOTE"), cdr: {car: f3("&REST"), cdr: f3("NIL")}}, cdr: {car: f3("X"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}, cdr: {car: f3("ARGS"), cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: {car: {car: f3("UNQUOTE-SPLICING"), cdr: {car: f3("BODY"), cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}, cdr: f3("NIL")}}}, cdr: {car: f3("T"), cdr: f3("NIL")}}}}, cdr: f3("NIL")}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}, cdr: {car: f3("NIL"), cdr: f3("NIL")}}};
5493 var l213 = f3("EVAL");
5494 var f118;
5495 (function(){
5496     v276 = l214;
5497     v280 = l215;
5498     v300 = l216;
5499     v375 = l217;
5500     v12 = l218;
5501     return v399 = l219;
5502 })();
5503 (function(){
5504     (function(){
5505         (function(){
5506             return f118 = (function(v617){
5507                 ((v617)["fname"] = "EVAL");
5508                 return v617;
5509             })((function (v618){
5510                 if (arguments.length < 1) throw 'too few arguments';
5511                 if (arguments.length > 1) throw 'too many arguments';
5512                 return (function(){
5513                     try {
5514                         return (function(){
5515                             return (function(v619){
5516                                 return (function(){
5517                                     var string = v619;
5518                                     if (typeof string != 'string')
5519                                         throw 'The value ' + string + ' is not a type string.';
5520                                     return eval.apply(window, [string]);
5521                                 })();
5522                             })((function(v620){
5523                                 (function(){
5524                                     try {
5525                                         return (function(){
5526                                             return (function(v621,v622){
5527                                                 (function(){
5528                                                     while(v621 !== v2){
5529                                                         v622 = (function(){
5530                                                             var tmp = v621;
5531                                                             return tmp === v2? v2: tmp.car;
5532                                                         })();
5533                                                         (v622)();
5534                                                         v621 = (function(){
5535                                                             var tmp = v621;
5536                                                             return tmp === v2? v2: tmp.cdr;
5537                                                         })();
5538                                                     }return v2;
5539                                                 })();
5540                                                 return v2;
5541                                             })(v242,v2);
5542                                         })();
5543                                     }
5544                                     catch (cf){
5545                                         if (cf.type == 'block' && cf.id == 140)
5546                                             return cf.value;
5547                                         else
5548                                             throw cf;
5549                                     }
5550                                 })();
5551                                 return v620;
5552                             })((function(){
5553                                 v242 = v2;
5554                                 f99();
5555                                 return f126(v618);
5556                             })()));
5557                         })();
5558                     }
5559                     catch (cf){
5560                         if (cf.type == 'block' && cf.id == 139)
5561                             return cf.value;
5562                         else
5563                             throw cf;
5564                     }
5565                 })();
5566             }));
5567         })();
5568         return l213;
5569     })();
5570     return (function(){
5571         var string = f67("var lisp = {};", "lisp.read = ", f105(l220, v2), ";", v167, "lisp.print = ", f105(l221, v2), ";", v167, "lisp.eval = ", f105(l222, v2), ";", v167, "lisp.compile = ", f105(l223, v2), ";", v167, "lisp.evalString = function(str){", v167, "   return lisp.eval(lisp.read(str));", v167, "}", v167, "lisp.compileString = function(str){", v167, "   return lisp.compile(lisp.read(str));", v167, "}", v167);
5572         if (typeof string != 'string')
5573             throw 'The value ' + string + ' is not a type string.';
5574         return eval.apply(window, [string]);
5575     })();
5576 })();