/* Copyright (c) 2011 Sven Klose <pixel@copei.de> */
    var _I_ = 0; while (1) {switch (_I_) {case 0: 
    var CURRENTFUNCTION;
var userfun_makeStandardStream;
var T126g4369;
var PRINTCIRCULARITIEST63;
var CURRENTMACRO;
var STANDARDOUTPUT;
var MACROEXPANDBACKQUOTEDIVERSION;
var EXPANDERS;
var GENSYMCOUNTER;
var MACROCALLDIVERSION;
var MACROPDIVERSION;
var CURRENTEXPANDER;
var userfun_functionBody;
var T126g4367;
var userfun_functionArguments;
var T126g4365;
var userfun_T37printCircularity;
var T126g4362;
var userfun_printInfoVisited;
var T126g4360;
var userfun_T37printFirstOccurence;
var T126g4356;
var userfun_printInfoFirstOccurences;
var T126g4354;
var userfun_T37printTraceArray;
var T126g4349;
var userfun_T37printTraceUpdate;
var T126g4345;
var userfun_T37printFunction0;
var T126g4341;
var userfun_T37printArray0;
var T126g4335;
var userfun_T37printRest0;
var T126g4330;
var userfun_T37printCheckCircularity;
var T126g4326;
var userfun_T37printTraceAtom;
var T126g4322;
var userfun_T37printTraceCons;
var T126g4318;
var userfun_T37printSymbol;
var T126g4314;
var userfun_T37printFunction;
var T126g4309;
var userfun_T37printArray;
var T126g4304;
var userfun_T37printString;
var T126g4298;
var userfun_T37printRest;
var T126g4293;
var userfun_T37T37usetfPrintInfoVisited;
var T126g4290;
var userfun_T37printTrace;
var T126g4287;
var userfun_makePrintInfo;
var T126g4271;
var userfun_T37printAtom;
var T126g4267;
var userfun_T37printCons;
var T126g4263;
var userfun_streamHandle;
var T126g4261;
var userfun_streamFunOut;
var T126g4259;
var userfun_T37T37usetfStreamLastChar;
var T126g4256;
var userfun_printTrace;
var T126g4253;
var userfun_T37latePrint;
var T126g4249;
var userfun_forceOutput;
var T126g4242;
var userfun_T37princNumber;
var T126g4230;
var userfun_T37princCharacter;
var T126g4223;
var userfun_T37princString;
var T126g4217;
var userfun_latePrint;
var T126g4205;
var userfun_variablep;
var T126g4201;
var userfun_terpri;
var T126g4191;
var userfun_charUpcase;
var T126g4189;
var userfun_trimHead;
var T126g4169;
var userfun_trimTail;
var T126g4145;
var userfun_T37T37usetfStreamUserDetail;
var T126g4139;
var userfun_queueString;
var T126g4137;
var userfun_princ;
var T126g4125;
var userfun_T37formatDirective;
var T126g4117;
var userfun_enqueueList;
var T126g4114;
var userfun_streamUserDetail;
var T126g4112;
var userfun_queuePop;
var T126g4109;
var userfun_makeStream;
var T126g4083;
var userfun_T37macroexpandXlat;
var T126g4080;
var userfun_cdar;
var T126g4078;
var userfun_caar;
var T126g4076;
var userfun_endp;
var T126g4074;
var userfun_trim;
var T126g4057;
var userfun_rangeP;
var T126g4053;
var userfun_getStreamString;
var T126g4050;
var userfun_T37format;
var T126g4044;
var userfun_makeStringStream;
var T126g4038;
var userfun_T37macroexpandRest;
var T126g4036;
var userfun_T37macroexpandCall;
var T126g4034;
var userfun_desaturatesT63;
var T126g4023;
var userfun_saturatesT63;
var T126g4019;
var userfun_mapcar;
var T126g4009;
var userfun_T37map;
var T126g4003;
var userfun_findIf;
var T126g3971;
var userfun_T37memberIfR;
var T126g3965;
var userfun_T37emptyStringOrNilT63;
var T126g3958;
var userfun_copyList;
var T126g3956;
var userfun_removeIf;
var T126g3949;
var userfun_treeList;
var T126g3944;
var userfun_T37emptyStringT63;
var T126g3941;
var userfun_optionalStringDowncase;
var T126g3926;
var userfun_forceString;
var T126g3924;
var userfun_T37subseqSequence;
var T126g3910;
var userfun_subseqList;
var T126g3896;
var userfun_upperCaseP;
var T126g3888;
var userfun_lowerCaseP;
var T126g3880;
var userfun_T37T37usetfCdr;
var T126g3877;
var userfun_T37T37usetfCdar;
var T126g3874;
var userfun_T37T37usetfCar;
var T126g3871;
var userfun_integer1T43;
var T126g3869;
var userfun_integer1T45;
var T126g3867;
var userfun_format;
var T126g3853;
var userfun_expanderPost;
var T126g3851;
var userfun_T37macroexpand;
var T126g3849;
var userfun_expanderCall;
var T126g3847;
var userfun_expanderPred;
var T126g3845;
var userfun_repeatWhileChanges;
var T126g3838;
var userfun_expanderPre;
var T126g3833;
var userfun_expanderGet;
var T126g3831;
var userfun_expanderMacros;
var T126g3829;
var userfun_popT33;
var T126g3826;
var userfun_positionIf;
var T126g3797;
var userfun_cadr;
var T126g3792;
var userfun_desaturate;
var T126g3781;
var userfun_saturate;
var T126g3777;
var userfun_mapcan;
var T126g3768;
var userfun_map;
var T126g3758;
var userfun_every;
var T126g3740;
var userfun_position;
var T126g3706;
var userfun_equal;
var T126g3699;
var userfun_1T43;
var T126g3697;
var userfun_1T45;
var T126g3695;
var userfun_memberIf;
var T126g3685;
var userfun_emptyStringOrNilT63;
var T126g3681;
var userfun_append;
var T126g3676;
var userfun_remove;
var T126g3653;
var userfun_concatStringtree;
var T126g3646;
var userfun_forceList;
var T126g3644;
var userfun_startsWithT63;
var T126g3625;
var userfun_cdddr;
var T126g3623;
var userfun_emptyStringT63;
var T126g3619;
var userfun_endsWithT63;
var T126g3600;
var userfun_subseq;
var T126g3588;
var userfun_stringList;
var T126g3583;
var userfun_cddr;
var T126g3581;
var userfun_alphaCharP;
var T126g3572;
var userfun_pad;
var T126g3569;
var userfun_nconc;
var T126g3564;
var userfun_queueList;
var T126g3562;
var userfun_enqueue;
var T126g3559;
var userfun_makeQueue;
var T126g3558;
var userfun_gensymNumber;
var T126g3557;
var userfun_filter;
var T126g3551;
var userfun_genericSplit;
var T126g3530;
var userfun_arrayList;
var T126g3525;
var userfun_nthcdr;
var T126g3522;
var userfun_nth;
var T126g3519;
var userfun_listp;
var T126g3516;
var userfun_butlast;
var T126g3514;
var userfun_T37nconc;
var T126g3511;
var userfun_last;
var T126g3509;
var userfun_error;
var T126g3505;
var userfun_expanderExpand;
var T126g3485;
var userfun_expanderHasMacroT63;
var T126g3476;
var userfun_keywordT63;
var T126g3474;
var userfun_reverse;
var T126g3468;
var userfun_acons;
var T126g3464;
var userfun_pagefadeInit;
var T126g3457;
var userfun_pagefadeInit0;
var T126g3449;
var userfun_pagefade;
var T126g3438;
var userfun_pagefadeCopy;
var T126g3436;
var userfun_pagefadeClearPrevious;
var T126g3428;
var userfun_pagefadeLoad;
var T126g3419;
var userfun_pagefadeCloneBody;
var T126g3408;
var userfun_pointerSet;
var T126g3405;
var userfun_pointerPopStyle;
var T126g3403;
var userfun_pointerPushStyle;
var T126g3401;
var POINTERSTYLESTACK;
var userfun_historyBackstepReload;
var T126g3392;
var userfun_historyBackstepReloadOpera;
var T126g3385;
var userfun_fadeOut;
var T126g3356;
var userfun_makeMobileClone;
var T126g3330;
var userfun_makeMobileDiv;
var T126g3307;
var userfun_moveChildrenBeforeAndRemove;
var T126g3297;
var userfun_moveChildrenBefore;
var T126g3284;
var userfun_moveChildrenToFrontAndRemove;
var T126g3271;
var userfun_moveChildrenAndRemove;
var T126g3260;
var userfun_moveChildrenToAndRemove;
var T126g3254;
var userfun_moveChildrenBehind;
var T126g3239;
var userfun_moveChildren;
var T126g3226;
var userfun_moveChildrenTo;
var T126g3212;
var userfun_initSlider;
var T126g3199;
var userfun_openInitialSlider;
var T126g3195;
var userfun_initSlider0;
var T126g3185;
var userfun_persongrouptitle;
var T126g3183;
var userfun_persongroupcontent;
var T126g3181;
var userfun_persongroup;
var T126g3179;
var userfun_slide;
var T126g3141;
var SLIDERINTERVAL;
var SLIDERHEIGHTSTEP;
var SLIDEROPACITYSTEP;
var OPENSLIDER;
var userfun_copyIframeToDocument;
var T126g3116;
var userfun_initTabDisplay;
var T126g3113;
var userfun_initTabDisplay0;
var T126g3108;
var userfun_tabDisplayItem;
var T126g3103;
var userfun_makePrintableSliders;
var T126g3093;
var userfun_initIntro;
var T126g3071;
var userfun_initIntro0;
var T126g3042;
var userfun_makeIframeWithUrl;
var T126g3017;
var userfun_makePrintableTabs;
var T126g3013;
var userfun_makePrintableTab;
var T126g3003;
var userfun_preloadImages;
var T126g2995;
var userfun_preloadImagesCheck;
var T126g2988;
var userfun_preloadImages0;
var T126g2972;
var PRELOADIMAGESTIMER;
var PRELOADEDIMAGES;
var userfun_makeIframe;
var T126g2953;
var userfun_getTabitemPosition;
var T126g2951;
var userfun_getTabcontents;
var T126g2949;
var userfun_getTabitems;
var T126g2947;
var userfun_descendantTabcontents;
var T126g2945;
var userfun_descendantTabitems;
var T126g2943;
var userfun_getTabmenu;
var T126g2941;
var userfun_ancestorOrSelfTab;
var T126g2939;
var userfun_iframeExtend;
var T126g2937;
var userfun_iframeDocument;
var T126g2931;
var userfun_documentLocation;
var T126g2922;
var userfun_copyHeadAndBody;
var T126g2901;
var userfun_locationString;
var T126g2899;
var userfun_documentBodyAdd;
var T126g2897;
var userfun_hookMenu;
var T126g2891;
var userfun_hideMenus;
var T126g2885;
var userfun_hookMenuPage;
var T126g2877;
var userfun_closeMenu;
var T126g2875;
var userfun_openMenu;
var T126g2873;
var userfun_closeLastOpenedMenuPage;
var T126g2871;
var LASTOPENEDMENUPAGE;
var userfun_descendantAndSelfByClassName;
var T126g2866;
var userfun_descendantAndSelfByTagName;
var T126g2861;
var userfun_firstDescendantTextNode;
var T126g2852;
var userfun_ancestorOrSelfName;
var T126g2847;
var userfun_ancestorOrSelfWithTagName;
var T126g2839;
var userfun_ancestorWithTagName;
var T126g2831;
var userfun_ancestorOrSelfWithClassOf;
var T126g2819;
var userfun_ancestorOrSelfWithClass;
var T126g2809;
var userfun_ancestorOrSelfWithID;
var T126g2802;
var userfun_ancestorsOrSelfIf;
var T126g2790;
var userfun_ancestorOrSelfT63;
var T126g2784;
var userfun_ancestorOrSelfIf;
var T126g2776;
var userfun_childOfAncestorIf;
var T126g2767;
var userfun_caroshiStopEvent;
var T126g2765;
var userfun_caroshiRemoveEventListener;
var T126g2761;
var userfun_caroshiAddEventListener;
var T126g2757;
var userfun_nativeFireDOMContentLoaded;
var T126g2750;
var userfun_nativeFireEvent;
var T126g2745;
var userfun_nativeStopEvent;
var T126g2743;
var userfun_nativeRemoveEventListener;
var T126g2739;
var userfun_nativeAddEventListener;
var T126g2735;
var userfun_elementChildren;
var T126g2733;
var userfun_previousSiblingTransparentBlockByClass;
var T126g2729;
var userfun_showTransparentBlock;
var T126g2727;
var userfun_hideTransparentBlock;
var T126g2725;
var userfun_transparentBlockRemove;
var T126g2723;
var userfun_transparentBlockCloneChildren;
var T126g2717;
var userfun_transparentBlockRemoveChildren;
var T126g2712;
var userfun_transparentBlockChildren;
var T126g2701;
var userfun_transparentBlockStopper;
var T126g2697;
var userfun_transparentBlockStarter;
var T126g2694;
var userfun_transparentBlockEdge;
var T126g2672;
var userfun_transparentBlockStopperT63;
var T126g2657;
var userfun_transparentBlockT63;
var T126g2655;
var userfun_hasSomeClassOfT63;
var T126g2649;
var userfun_registerTransparentBlocks;
var T126g2639;
var userfun_transparentBlockStopperClass;
var T126g2634;
var TRANSPARENTBLOCKSTOPPERS;
var TRANSPARENTBLOCKS;
var userfun_showElements;
var T126g2629;
var userfun_hideElements;
var T126g2621;
var userfun_documentExtend;
var T126g2611;
var userfun_domTreeExtend;
var T126g2609;
var userfun_domExtend;
var T126g2604;
var T126e8;
var userfun_getElementsByClassName;
var T126g2593;
var userfun_getElementsByClassNameEval;
var T126g2589;
var userfun_getElementsByClassNameRaw;
var T126g2587;
var userfun_getElementsByClassNameRaw0;
var T126g2574;
var T126e365;
var T126e351;
var T126e343;
var T126e342;
var T126e341;
var T126e340;
var T126e339;
var T126e337;
var T126e322;
var T126e308;
var T126e290;
var T126e273;
var T126e270;
var T126e267;
var T126e264;
var T126e262;
var T126e260;
var T126e256;
var T126e255;
var T126e254;
var T126e252;
var T126e250;
var T126e238;
var T126e234;
var T126e219;
var T126e218;
var T126e217;
var T126e216;
var T126e215;
var T126e214;
var T126e213;
var T126e212;
var T126e209;
var T126e206;
var T126e198;
var T126e197;
var T126e189;
var T126e188;
var T126e171;
var T126e170;
var T126e167;
var T126e157;
var T126e156;
var T126e153;
var T126e152;
var T126e151;
var T126e147;
var T126e146;
var T126e144;
var T126e141;
var T126e135;
var T126e123;
var T126e107;
var T126e92;
var T126e86;
var T126e74;
var T126e60;
var T126e58;
var T126e56;
var T126e44;
var userfun_caroshiElementT63;
var T126g2324;
var userfun_caroshiElement;
var T126g2323;
var userfun_caroshiElementGetHeight;
var T126g2319;
var userfun_caroshiElementGetWidth;
var T126g2315;
var userfun_caroshiElementGetStyle;
var T126g2309;
var userfun_stringHasClassT63;
var T126g2295;
var userfun_caroshiElementRemoveStyles;
var T126g2272;
var userfun_caroshiElementSetStyles;
var T126g2265;
var userfun_caroshiElementSetStyle;
var T126g2261;
var userfun__caroshiElementRemoveClass;
var T126g2258;
var userfun_caroshiElementRemoveChildren;
var T126g2250;
var userfun_caroshiElementChildrenList;
var T126g2248;
var userfun_caroshiElementChildrenArray;
var T126g2246;
var userfun_Element;
var T126g2224;
var userfun_makeNativeElement;
var T126g2219;
var userfun_xlatAttribute;
var T126g2217;
var userfun_makeAttributeXlat;
var T126g2214;
var ATTRIBUTEXLATREV;
var ATTRIBUTEXLAT;
var T126e27;
var userfun_TextNodeT63;
var T126e26;
var T126g2196;
var userfun_TextNode;
var T126g2195;
var userfun_TextNodeBlankT63;
var T126g2193;
var EXTENDEDTEXTNODEST63;
var T126e119;
var T126e110;
var T126e105;
var T126e91;
var T126e90;
var T126e77;
var T126e73;
var T126e62;
var T126e55;
var T126e41;
var T126e25;
var userfun_visibleNodeT63;
var T126g2112;
var userfun_visibleNode;
var T126g2111;
var DOMCALLBACKBEFOREINSERTBEFORE;
var DOMCALLBACKBEFOREREMOVE;
var userfun_visibleNodeRemoveWithoutListenersOrCallbacks;
var T126g2087;
var userfun_visibleNodeWalk;
var T126g2074;
var userfun_visibleNodeInsertBefore;
var T126g2059;
var userfun_documentT63;
var T126e16;
var T126g2048;
var userfun_commentT63;
var T126e11;
var T126g2047;
var userfun_textT63;
var T126g2046;
var userfun_elementT63;
var T126g2045;
var userfun_getComputedStyleHash;
var T126g2023;
var userfun_domGetFirstByName;
var T126g2016;
var userfun_domGetFirstByClassName;
var T126g2015;
var userfun_domGetFirstByTagName;
var T126g2014;
var userfun_mapElementsByTagName;
var T126g1985;
var userfun_mapElementsByClassName;
var T126g1981;
var userfun_parentNode;
var T126g1960;
var userfun_urlWithoutPath;
var T126g1957;
var userfun_urlPath;
var T126g1953;
var userfun_urlWithoutSchema;
var T126g1950;
var userfun_urlHasSchemaT63;
var T126g1947;
var userfun_urlSchema;
var T126g1945;
var userfun_urlWithoutFilename;
var T126g1943;
var userfun_butlastPathComponent;
var T126g1941;
var userfun_pathUrl;
var T126g1938;
var userfun_pathUnixPath;
var T126g1936;
var userfun_pathUnixPath0;
var T126g1933;
var userfun_windowsPathT63;
var T126g1931;
var userfun_windowsPath0T63;
var T126g1927;
var userfun_windowsPathlistPath;
var T126g1918;
var userfun_windowsPathPathlist;
var T126g1916;
var userfun_pathlistPath;
var T126g1914;
var userfun_pathPathlist;
var T126g1912;
var userfun_onloadOthers;
var T126g1910;
var userfun_onloadWebkit;
var T126g1906;
var userfun_onloadIe;
var T126g1904;
var userfun_onloadMozilla;
var T126g1903;
var userfun_onloadInit;
var T126g1900;
var ONLOADDONET63;
var ONLOADTIMER;
var userfun_caroshiStart;
var T126g1899;
var application;
var T126e15;
var T126e5;
var userfun__applicationT63;
var T126g1885;
var userfun__application;
var T126g1884;
var BROWSER;
var T126e14;
var userfun__caroshiBrowserT63;
var T126g1874;
var userfun__caroshiBrowser;
var T126g1873;
var TREREVISION;
var CAROSHIRELEASEDATE;
var CAROSHIREVISION;
var userfun_wait;
var T126g1857;
var userfun_degreeCos;
var T126g1855;
var userfun_degreeSin;
var T126g1853;
var userfun_precisionWithoutExponent;
var T126g1849;
var userfun_clipAxis;
var T126g1845;
var userfun_insideRectT63;
var T126g1838;
var userfun_withinT63;
var T126g1834;
var userfun_half;
var T126g1832;
var userfun_distance;
var T126g1827;
var userfun_hashList;
var T126g1820;
var userfun_hashCopy;
var T126g1818;
var userfun_forceArray;
var T126g1808;
var userfun_arrayFirst;
var T126g1806;
var userfun_arrayMerge;
var T126g1795;
var userfun_arrayFilter;
var T126g1782;
var userfun_arrayCopy;
var T126g1771;
var MYSQLT63;
var CONFIGDBTABLE;
var INTROSCROLLOUTINTERVAL;
var INTROSCROLLOUTSPEED;
var SELECTINTERVAL;
var SELECTSPEED;
var NATURALMOVEMINIMALDISTANCE;
var AVAILABLELANGUAGES;
var T126e4;
var CHECKFORUPDATEST63;
var HAVESTORE;
var LOGEVENTS;
var VERSIONMINOR;
var VERSIONMAJOR;
var DEMOVERSIONT63;
var DEVELOPMENTVERSIONT63;
var APPLICATIONNAME;
var userfun_assoc;
var T126g1744;
var userfun_base64Decode;
var T126g1736;
var userfun_base64Encode;
var T126g1734;
var userfun_hashMerge;
var T126g1729;
var userfun_hashAssoc;
var T126g1720;
var userfun_hashTableT63;
var T126g1718;
var userfun_href;
var T126g1714;
var userfun_T37T37usetfHref;
var T126g1709;
var userfun_T37hrefMakeObjectKey;
var T126g1705;
var userfun_T37hrefObjectKey;
var T126g1703;
var userfun_member;
var T126g1690;
var userfun_T37memberR;
var T126g1682;
var userfun_T37subseqString;
var T126g1678;
var userfun_stringDowncase;
var T126g1676;
var userfun_stringUpcase;
var T126g1674;
var userfun_stringT61;
var T126g1671;
var userfun_string;
var T126g1668;
var userfun_T37setfEltString;
var T126g1664;
var userfun_T37eltString;
var T126g1661;
var userfun_stringConcat;
var T126g1654;
var userfun_stringT63;
var T126g1651;
var userfun_T37stringT63;
var T126g1648;
var userfun_listString;
var T126g1646;
var userfun_split;
var T126g1629;
var userfun_length;
var T126g1627;
var userfun_T37T37usetfElt;
var T126g1623;
var userfun_elt;
var T126g1620;
var userfun_maphash;
var T126g1611;
var userfun_maparray;
var T126g1596;
var userfun_T37listLength;
var T126g1587;
var userfun_list;
var T126g1583;
var userfun_symbolT63;
var T126g1581;
var userfun_symbolPackage;
var T126g1579;
var userfun_symbolFunction;
var T126g1577;
var userfun_symbolValue;
var T126g1575;
var userfun_symbolName;
var T126g1573;
var KEYWORDPACKAGE;
var userfun_makePackage;
var T126g1571;
var userfun_makeSymbol;
var T126g1562;
var userfun_consT63;
var T126g1560;
var userfun_rplacd;
var T126g1557;
var userfun_rplaca;
var T126g1554;
var userfun_cdr;
var T126g1552;
var userfun_car;
var T126g1550;
var userfun_eql;
var T126g1543;
var userfun_eq;
var T126g1538;
var userfun_T37bind;
var T126g1531;
var userfun_identity;
var T126g1529;
var userfun_atom;
var T126g1526;
var userfun_objectT63;
var T126g1524;
var userfun_functionT63;
var T126g1522;
var userfun_arrayFind;
var T126g1519;
var userfun_listArray;
var T126g1513;
var userfun_arrayT63;
var T126g1508;
var T37ARRAYCONSTRUCTOR;
var userfun_funcall;
var T126g1499;
var userfun_cpsReturnDummy;
var T126g1495;
var userfun_cpsWrap;
var T126g1493;
var userfun_apply;
var T126g1483;
var userfun_cpsApply;
var T126g1470;
var userfun_integer;
var T126g1447;
var userfun_numberT63;
var T126g1444;
var T126e54;
var userfun_characterT62T61;
var T126e53;
var T126g1402;
var userfun_integerT62T61;
var T126g1401;
var T126e46;
var userfun_T62T61;
var T126e45;
var T126g1400;
var T126e43;
var userfun_characterT60T61;
var T126e42;
var T126g1399;
var T126e40;
var userfun_integerT60T61;
var T126e39;
var T126g1398;
var userfun_T60T61;
var T126e34;
var T126g1397;
var T126e32;
var userfun_characterT62;
var T126e31;
var T126g1396;
var T126e29;
var userfun_integerT62;
var T126e28;
var T126g1395;
var T126e24;
var userfun_T62;
var T126e23;
var T126g1394;
var T126e21;
var userfun_characterT60;
var T126g1393;
var userfun_integerT60;
var T126e17;
var T126g1392;
var T126e13;
var userfun_T60;
var T126e12;
var T126g1391;
var T126e10;
var userfun_characterT61;
var T126e9;
var T126g1390;
var T126e7;
var userfun_integerT61;
var T126e6;
var T126g1389;
var userfun_T61;
var T126g1388;
var T126e52;
var T126e51;
var userfun_characterT45;
var T126e50;
var T126g1359;
var T126e37;
var T126e36;
var userfun_integerT45;
var T126e35;
var T126g1355;
var T126e20;
var T126e19;
var userfun_numberT45;
var T126e18;
var T126g1351;
var userfun_T45;
var T126g1347;
var userfun_characterT43;
var T126g1336;
var userfun_integerT43;
var T126g1325;
var userfun_numberT43;
var T126g1314;
var userfun_T43;
var T126g1303;
var userfun_T37wrapCharNumber;
var T126g1298;
var userfun_integerT63;
var T126g1296;
var userfun_numberInteger;
var T126g1294;
var userfun_stringInteger;
var T126g1292;
var userfun_number;
var T126g1290;
var userfun_T37numberT63;
var T126g1288;
var userfun_charString;
var T126g1286;
var userfun_charCode;
var T126g1284;
var userfun_codeChar;
var T126g1282;
var userfun_characterT63;
var T126g1280;
var userfun_T37character;
var T126g1275;
var CHARACTERS;
var userfun_macroexpand;
var T126g1272;
var MACROS;
var userfun_macrop;
var T126g1269;
var T126e3;
var userfun_jsPrint;
var T126g1260;
var userfun_jsPrintAtom;
var T126g1256;
var userfun_jsPrintObject;
var T126g1249;
var userfun_jsPrintString;
var T126g1246;
var userfun_jsPrintCharacter;
var T126g1243;
var userfun_jsPrintSymbol;
var T126g1240;
var userfun_jsPrintCons;
var T126g1237;
var userfun_jsPrintConsR;
var T126g1234;
var userfun_jsPrintWrite;
var T126g1231;
var userfun_T37propertyList;
var T126g1229;
var T126e2;
var userfun_T37propertyList0;
var T126g1226;
var T37PROPERTYLISTTMP;
var userfun_T37T37usetfSymbolFunction;
var userfun_symbol;
var userfun_T37symbol;
var SYMBOLS;
var userfun_cons;
var userfun_T37cons;
var userfun_not;
var T126e1;
var userfun_T37not;
var T126T37ret;
T126T37ret=null;
T126T37ret=null;
T126e1=function (T126g1205)
{
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
if(!T126g1205&&T126g1205!==0&&T126g1205!==''){_I_=6;continue;}
T126T37tmp=(T126g1205==null?null:T126g1205._);
T126T37ret=(null===T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=5;continue;}
T126T37tmp=(T126g1205==null?null:T126g1205.__);
T126T37ret=userfun_T37not(T126T37tmp);
_I_=5;continue;
case 6:
T126T37ret=true;
case 5:
return T126T37ret;
}}};
userfun_T37not=T126e1;
T126T37ret=userfun_T37not;
T126e1=function (T126g1206)
{
var T126T37ret;
T126T37ret=userfun_T37not(T126g1206);
return T126T37ret;
};
userfun_not=T126e1;
T126T37ret=userfun_not;
T126T37ret=null;
T126e1=function (T126g1207,T126g1208)
{
var T126T37ret;
this.__class="cons";
this._=T126g1207;
this.__=T126g1208;
T126T37ret=this;
return T126T37ret;
};
userfun_T37cons=T126e1;
T126T37ret=userfun_T37cons;
T126e1=function (T126g1209,T126g1210)
{
var T126T37ret;
T126T37ret=new userfun_T37cons(T126g1209,T126g1210);
return T126T37ret;
};
userfun_cons=T126e1;
T126T37ret=userfun_cons;
T126e1={};
SYMBOLS=T126e1;
T126T37ret=SYMBOLS;
T126T37ret=null;
T126e1=function (T126g1212,T126g1213)
{
var T126g1214;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
this.__class="symbol";
this.n=T126g1212;
this.v=null;
this.f=null;
T126g1214=T126g1213;
if(!T126g1214&&T126g1214!==0&&T126g1214!==''){_I_=13;continue;}
T126T37ret=T126g1214;
_I_=12;continue;
case 13:
T126T37ret=null;
case 12:
this.p=T126T37ret;
T126T37ret=this;
return T126T37ret;
}}};
userfun_T37symbol=T126e1;
T126T37ret=userfun_T37symbol;
T126e1=function (T126g1217,T126g1218)
{
var T126g1219;
var T126T37ret;
var T126g1220;
var T126g1223;
var T126T37tmp;
var T126g1221;
var T126g1222;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1219=true;
T126T37ret=("NIL"==T126g1217);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=16;continue;}
T126g1219=null;
case 16:
T126T37ret=T126g1219;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=27;continue;}
if(!T126g1218&&T126g1218!==0&&T126g1218!==''){_I_=25;continue;}
T126T37ret=T126g1218.n;
_I_=24;continue;
case 25:
T126T37ret="NIL";
case 24:
T126g1220=T126T37ret;
T126g1223=SYMBOLS[T126g1220];
if(!T126g1223&&T126g1223!==0&&T126g1223!==''){_I_=22;continue;}
T126T37ret=T126g1223;
_I_=21;continue;
case 22:
T126T37tmp={};
T126T37ret=SYMBOLS[T126g1220]=T126T37tmp;
case 21:
T126g1221=T126T37ret;
T126g1222=T126g1221[T126g1217];
if(!T126g1222&&T126g1222!==0&&T126g1222!==''){_I_=19;continue;}
T126T37ret=T126g1222;
_I_=27;continue;
case 19:
T126T37tmp=new userfun_T37symbol(T126g1217,T126g1218);
T126T37ret=T126g1221[T126g1217]=T126T37tmp;
case 27:
return T126T37ret;
}}};
userfun_symbol=T126e1;
T126T37ret=userfun_symbol;
T126e1=function (T126g1224,T126g1225)
{
var T126T37ret;
T126g1225.f=T126g1224;
T126T37ret=T126g1225.f;
return T126T37ret;
};
userfun_T37T37usetfSymbolFunction=T126e1;
T126T37ret=userfun_T37T37usetfSymbolFunction;
T37PROPERTYLISTTMP=null;
T126T37ret=T37PROPERTYLISTTMP;
T126e1=userfun_symbol("%PROPERTY-LIST-0",null);
T126g1226=T126e1;
T126e2=function (T126g1227,T126g1228)
{
var T126T37ret;
T37PROPERTYLISTTMP=userfun_acons(T126g1227,T126g1228,T37PROPERTYLISTTMP);
T126T37ret=T37PROPERTYLISTTMP;
return T126T37ret;
};
userfun_T37propertyList0=T126e2;
T126T37ret=userfun_T37propertyList0;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37propertyList0,T126g1226);
T126T37ret=null;
T126e1=userfun_symbol("%PROPERTY-LIST",null);
T126g1229=T126e1;
T126e2=function (T126g1230)
{
var T126T37ret;
T37PROPERTYLISTTMP=null;
for (i in T126g1230) userfun_T37propertyList0(i, T126g1230[i]);;
T126T37ret=userfun_reverse(T37PROPERTYLISTTMP);
return T126T37ret;
};
userfun_T37propertyList=T126e2;
T126T37ret=userfun_T37propertyList;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37propertyList,T126g1229);
T126e1=userfun_symbol("JS-PRINT-WRITE",null);
T126g1231=T126e1;
T126e2=function (T126g1232,T126g1233)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=new userfun_T37cons(T126g1232,null);
T126T37tmp=new userfun_T37cons(T126g1233.body.innerHTML,T126T37tmp);
T126g1233.body.innerHTML=userfun_T43(T126T37tmp);
T126T37ret=T126g1233.body.innerHTML;
return T126T37ret;
};
userfun_jsPrintWrite=T126e2;
T126T37ret=userfun_jsPrintWrite;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_jsPrintWrite,T126g1231);
T126e1=userfun_symbol("JS-PRINT-CONS-R",null);
T126g1234=T126e1;
T126e2=function (T126g1235,T126g1236)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g1235;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=39;continue;}
T126T37tmp=(T126g1235==null?null:T126g1235._);
userfun_jsPrint(T126T37tmp,T126g1236);
T126T37tmp=(T126g1235==null?null:T126g1235.__);
T126T37ret=userfun_consT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=37;continue;}
T126T37tmp=(T126g1235==null?null:T126g1235.__);
T126T37ret=userfun_jsPrintConsR(T126T37tmp,T126g1236);
_I_=39;continue;
case 37:
T126T37ret=(T126g1235==null?null:T126g1235.__);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=39;continue;}
userfun_jsPrintWrite(" . ",T126g1236);
T126T37tmp=(T126g1235==null?null:T126g1235.__);
T126T37ret=userfun_jsPrintAtom(T126T37tmp,T126g1236);
case 39:
return T126T37ret;
}}};
userfun_jsPrintConsR=T126e2;
T126T37ret=userfun_jsPrintConsR;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_jsPrintConsR,T126g1234);
T126T37ret=null;
T126e1=userfun_symbol("JS-PRINT-CONS",null);
T126g1237=T126e1;
T126e2=function (T126g1238,T126g1239)
{
var T126T37ret;
userfun_jsPrintWrite("(",T126g1239);
userfun_jsPrintConsR(T126g1238,T126g1239);
T126T37ret=userfun_jsPrintWrite(")",T126g1239);
return T126T37ret;
};
userfun_jsPrintCons=T126e2;
T126T37ret=userfun_jsPrintCons;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_jsPrintCons,T126g1237);
T126e1=userfun_symbol("JS-PRINT-SYMBOL",null);
T126g1240=T126e1;
T126e2=function (T126g1241,T126g1242)
{
var T126T37ret;
var T126e8;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_keywordT63(T126g1241);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=43;continue;}
userfun_jsPrintWrite(":",T126g1242);
case 43:
T126e8=userfun_symbolName(T126g1241);
T126T37tmp=new userfun_T37cons(" ",null);
T126T37tmp=new userfun_T37cons(T126e8,T126T37tmp);
T126T37tmp=userfun_T43(T126T37tmp);
T126T37ret=userfun_jsPrintWrite(T126T37tmp,T126g1242);
return T126T37ret;
}}};
userfun_jsPrintSymbol=T126e2;
T126T37ret=userfun_jsPrintSymbol;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_jsPrintSymbol,T126g1240);
T126e1=userfun_symbol("JS-PRINT-CHARACTER",null);
T126g1243=T126e1;
T126e2=function (T126g1244,T126g1245)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_charCode(T126g1244);
T126T37tmp=String.fromCharCode(T126T37tmp);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons("#\\\\",T126T37tmp);
T126T37tmp=userfun_T43(T126T37tmp);
T126T37ret=userfun_jsPrintWrite(T126T37tmp,T126g1245);
return T126T37ret;
};
userfun_jsPrintCharacter=T126e2;
T126T37ret=userfun_jsPrintCharacter;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_jsPrintCharacter,T126g1243);
T126e1=userfun_symbol("JS-PRINT-STRING",null);
T126g1246=T126e1;
T126e2=function (T126g1247,T126g1248)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=new userfun_T37cons("\"",null);
T126T37tmp=new userfun_T37cons(T126g1247,T126T37tmp);
T126T37tmp=new userfun_T37cons("\"",T126T37tmp);
T126T37tmp=userfun_T43(T126T37tmp);
T126T37ret=userfun_jsPrintWrite(T126T37tmp,T126g1248);
return T126T37ret;
};
userfun_jsPrintString=T126e2;
T126T37ret=userfun_jsPrintString;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_jsPrintString,T126g1246);
T126e1=userfun_symbol("JS-PRINT-OBJECT",null);
T126g1249=T126e1;
T126e2=function (T126g1250,T126g1251)
{
var T126g1254;
var T126T37ret;
var T126e3;
T126T37ret=userfun_jsPrintWrite("{",T126g1251);
T126e3=function (T126g1252,T126g1253)
{
var T126T37ret;
userfun_jsPrint(T126g1252,T126g1251);
userfun_jsPrintWrite(" => ",T126g1251);
userfun_jsPrint(T126g1253,T126g1251);
T126T37ret=userfun_jsPrintWrite("<br/>",T126g1251);
return T126T37ret;
};
userfun_maphash(T126e3,T126g1250);
T126T37ret=userfun_jsPrintWrite("}<br/>",T126g1251);
return T126T37ret;
};
userfun_jsPrintObject=T126e2;
T126T37ret=userfun_jsPrintObject;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_jsPrintObject,T126g1249);
T126e1=userfun_symbol("JS-PRINT-ATOM",null);
T126g1256=T126e1;
T126e2=function (T126g1257,T126g1258)
{
var T126g1259;
var T126T37ret;
var T126e19;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1259=true;
if(!T126g1257&&T126g1257!==0&&T126g1257!==''){_I_=49;continue;}
T126g1259=null;
case 49:
if(!T126g1259&&T126g1259!==0&&T126g1259!==''){_I_=52;continue;}
T126T37ret=userfun_jsPrintWrite("NIL",T126g1258);
_I_=51;continue;
case 52:
T126T37ret=userfun_symbolT63(T126g1257);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=53;continue;}
T126T37ret=userfun_jsPrintSymbol(T126g1257,T126g1258);
_I_=51;continue;
case 53:
T126T37ret=userfun_characterT63(T126g1257);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=54;continue;}
T126T37ret=userfun_jsPrintCharacter(T126g1257,T126g1258);
_I_=51;continue;
case 54:
T126T37ret=userfun_stringT63(T126g1257);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=55;continue;}
T126T37ret=userfun_jsPrintString(T126g1257,T126g1258);
_I_=51;continue;
case 55:
T126T37ret=userfun_objectT63(T126g1257);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=56;continue;}
T126T37ret=userfun_jsPrintObject(T126g1257,T126g1258);
_I_=51;continue;
case 56:
T126e19=userfun_string(T126g1257);
T126T37tmp=new userfun_T37cons("]",null);
T126T37tmp=new userfun_T37cons(T126e19,T126T37tmp);
T126T37tmp=new userfun_T37cons("[unknown type: ",T126T37tmp);
T126T37tmp=userfun_T43(T126T37tmp);
T126T37ret=userfun_jsPrintWrite(T126T37tmp,T126g1258);
case 51:
return T126T37ret;
}}};
userfun_jsPrintAtom=T126e2;
T126T37ret=userfun_jsPrintAtom;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_jsPrintAtom,T126g1256);
T126T37ret=null;
T126e1=userfun_symbol("JS-PRINT",null);
T126g1260=T126e1;
T126e3=function (T126g1263)
{
var T126e4;
var T126T37ret;
var T126e8;
T126e4=function (T126g1264,T126g1265)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_consT63(T126g1264);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=60;continue;}
userfun_jsPrintCons(T126g1264,T126g1265);
_I_=59;continue;
case 60:
userfun_jsPrintAtom(T126g1264,T126g1265);
case 59:
T126T37ret=T126g1264;
return T126T37ret;
}}};
T126g1263=T126e4;
T126T37ret=T126g1263;
T126e8=function (T126g1266)
{
var T126g1267;
var T126g1268;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1267=(T126g1266==null?null:T126g1266._);
T126g1266=(T126g1266==null?null:T126g1266.__);
if(!T126g1266&&T126g1266!==0&&T126g1266!==''){_I_=63;continue;}
T126g1268=(T126g1266==null?null:T126g1266._);
T126g1266=(T126g1266==null?null:T126g1266.__);
_I_=62;continue;
case 63:
T126g1268=logwindow.document;
case 62:
T126T37ret=T126g1263(T126g1267,T126g1268);
return T126T37ret;
}}};
T126g1263.treExp=T126e8;
T126T37ret=T126g1263;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_jsPrint=T126e2;
T126T37ret=userfun_jsPrint;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_jsPrint,T126g1260);
T126e1=userfun_symbol("MACROP",null);
T126g1269=T126e1;
T126e2=function (T126g1270)
{
var T126T37ret;
T126T37ret=userfun_expanderHasMacroT63(T126g4376,T126g1270);
return T126T37ret;
};
userfun_macrop=T126e2;
T126T37ret=userfun_macrop;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_macrop,T126g1269);
MACROS=null;
T126T37ret=MACROS;
T126T37ret=null;
T126e1=userfun_symbol("MACROEXPAND",null);
T126g1272=T126e1;
T126e2=function (T126g1273)
{
var T126T37ret;
T126T37ret=userfun_expanderExpand(T126g4376,T126g1273);
return T126T37ret;
};
userfun_macroexpand=T126e2;
T126T37ret=userfun_macroexpand;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_macroexpand,T126g1272);
T126e1=[];
CHARACTERS=T126e1;
T126T37ret=CHARACTERS;
T126T37ret=null;
T126e1=userfun_symbol("%CHARACTER",null);
T126g1275=T126e1;
T126e2=function (T126g1276)
{
var T126g1277;
var T126g1278;
var T126T37ret;
var T126T37tmp;
var T126g1279;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1277=true;
T126g1278=true;
T126T37ret=userfun_characterT63(T126g1276);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=68;continue;}
T126g1278=null;
case 68:
if(!T126g1278&&T126g1278!==0&&T126g1278!==''){_I_=70;continue;}
T126g1277=null;
case 70:
if(!T126g1277&&T126g1277!==0&&T126g1277!==''){_I_=72;continue;}
T126T37tmp=new userfun_T37cons("%CHARACTER: argument already a character",null);
T126T37tmp=userfun_error(T126T37tmp);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons("assertion failed: ",T126T37tmp);
T126T37tmp=userfun_T43(T126T37tmp);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
userfun_error(T126T37tmp);
case 72:
T126g1279=CHARACTERS[T126g1276];
if(!T126g1279&&T126g1279!==0&&T126g1279!==''){_I_=75;continue;}
T126T37ret=T126g1279;
_I_=74;continue;
case 75:
this.__class="T37character";
this.v=T126g1276;
T126T37ret=CHARACTERS[T126g1276]=this;
case 74:
return T126T37ret;
}}};
userfun_T37character=T126e2;
T126T37ret=userfun_T37character;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37character,T126g1275);
T126e1=userfun_symbol("CHARACTER?",null);
T126g1280=T126e1;
T126e2=function (T126g1281)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_objectT63(T126g1281);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=80;continue;}
T126T37ret=T126g1281.__class;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=80;continue;}
T126T37ret=(T126g1281.__class=="T37character");
case 80:
return T126T37ret;
}}};
userfun_characterT63=T126e2;
T126T37ret=userfun_characterT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_characterT63,T126g1280);
T126e1=userfun_symbol("CODE-CHAR",null);
T126g1282=T126e1;
T126e2=function (T126g1283)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_characterT63(T126g1283);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=84;continue;}
T126T37ret=T126g1283;
_I_=83;continue;
case 84:
T126T37ret=new userfun_T37character(T126g1283);
case 83:
return T126T37ret;
}}};
userfun_codeChar=T126e2;
T126T37ret=userfun_codeChar;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_codeChar,T126g1282);
T126e1=userfun_symbol("CHAR-CODE",null);
T126g1284=T126e1;
T126e2=function (T126g1285)
{
var T126T37ret;
T126T37ret=T126g1285.v;
return T126T37ret;
};
userfun_charCode=T126e2;
T126T37ret=userfun_charCode;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_charCode,T126g1284);
T126T37ret=null;
T126e1=userfun_symbol("CHAR-STRING",null);
T126g1286=T126e1;
T126e2=function (T126g1287)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_charCode(T126g1287);
T126T37ret=String.fromCharCode(T126T37tmp);
return T126T37ret;
};
userfun_charString=T126e2;
T126T37ret=userfun_charString;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_charString,T126g1286);
T126e1=userfun_symbol("%NUMBER?",null);
T126g1288=T126e1;
T126e2=function (T126g1289)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g1289;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=89;continue;}
T126T37tmp=typeof T126g1289;
T126T37ret=(T126T37tmp=="number");
case 89:
return T126T37ret;
}}};
userfun_T37numberT63=T126e2;
T126T37ret=userfun_T37numberT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37numberT63,T126g1288);
T126T37ret=null;
T126e1=userfun_symbol("NUMBER",null);
T126g1290=T126e1;
T126e2=function (T126g1291)
{
var T126T37ret;
T126T37ret=parseFloat(T126g1291,10);
return T126T37ret;
};
userfun_number=T126e2;
T126T37ret=userfun_number;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_number,T126g1290);
T126e1=userfun_symbol("STRING-INTEGER",null);
T126g1292=T126e1;
T126e2=function (T126g1293)
{
var T126T37ret;
T126T37ret=parseInt(T126g1293,10);
return T126T37ret;
};
userfun_stringInteger=T126e2;
T126T37ret=userfun_stringInteger;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_stringInteger,T126g1292);
T126T37ret=null;
T126e1=userfun_symbol("NUMBER-INTEGER",null);
T126g1294=T126e1;
T126e2=function (T126g1295)
{
var T126T37ret;
T126T37ret=Math.floor(T126g1295);
return T126T37ret;
};
userfun_numberInteger=T126e2;
T126T37ret=userfun_numberInteger;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_numberInteger,T126g1294);
T126T37ret=null;
T126e1=userfun_symbol("INTEGER?",null);
T126g1296=T126e1;
T126e2=function (T126g1297)
{
var T126T37ret;
var T126e6;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_numberT63(T126g1297);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=95;continue;}
T126e6=parseInt(T126g1297,10);
T126T37tmp=parseFloat(T126g1297,10);
T126T37ret=(T126e6==T126T37tmp);
case 95:
return T126T37ret;
}}};
userfun_integerT63=T126e2;
T126T37ret=userfun_integerT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_integerT63,T126g1296);
T126e1=userfun_symbol("%WRAP-CHAR-NUMBER",null);
T126g1298=T126e1;
T126e2=function (T126g1299)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_characterT63(T126g1299);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=99;continue;}
T126T37ret=userfun_charCode(T126g1299);
_I_=98;continue;
case 99:
T126T37ret=T126g1299;
case 98:
return T126T37ret;
}}};
userfun_T37wrapCharNumber=T126e2;
T126T37ret=userfun_T37wrapCharNumber;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37wrapCharNumber,T126g1298);
T126e1=userfun_symbol("+",null);
T126g1303=T126e1;
T126e3=function (T126g1305)
{
var T126e4;
var T126T37ret;
T126e4=function (T126g1306)
{
var T126T37tmp;
var T126g1307;
var T126g1308;
var T126g1310;
var T126g1309;
var T126T37ret;
var T126e17;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=(T126g1306==null?null:T126g1306._);
T126g1307=userfun_T37wrapCharNumber(T126T37tmp);
T126g1308=(T126g1306==null?null:T126g1306.__);
case 102:
T126g1310=true;
if(!T126g1308&&T126g1308!==0&&T126g1308!==''){_I_=105;continue;}
T126g1310=null;
case 105:
if(!T126g1310&&T126g1310!==0&&T126g1310!==''){_I_=108;continue;}
_I_=101;continue;
case 108:
T126g1309=(T126g1308==null?null:T126g1308._);
T126T37ret=userfun_stringT63(T126g1309);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=110;continue;}
T126e17=userfun_string(T126g1307);
T126T37tmp=userfun_string(T126g1309);
T126T37ret=(T126e17+T126T37tmp);
_I_=109;continue;
case 110:
T126T37tmp=userfun_T37wrapCharNumber(T126g1309);
T126T37ret=(T126g1307+T126T37tmp);
case 109:
T126g1307=T126T37ret;
T126g1308=(T126g1308==null?null:T126g1308.__);
_I_=102;continue;
case 101:
T126T37ret=T126g1307;
return T126T37ret;
}}};
T126g1305=T126e4;
T126g1305.treExp=T126g1305;
T126T37ret=T126g1305;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_T43=T126e2;
T126T37ret=userfun_T43;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T43,T126g1303);
T126e1=userfun_symbol("NUMBER+",null);
T126g1314=T126e1;
T126e3=function (T126g1316)
{
var T126e4;
var T126T37ret;
T126e4=function (T126g1317)
{
var T126T37tmp;
var T126g1318;
var T126g1319;
var T126g1321;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=(T126g1317==null?null:T126g1317._);
T126g1318=userfun_T37wrapCharNumber(T126T37tmp);
T126g1319=(T126g1317==null?null:T126g1317.__);
case 113:
T126g1321=true;
if(!T126g1319&&T126g1319!==0&&T126g1319!==''){_I_=116;continue;}
T126g1321=null;
case 116:
if(!T126g1321&&T126g1321!==0&&T126g1321!==''){_I_=119;continue;}
_I_=112;continue;
case 119:
T126T37tmp=(T126g1319==null?null:T126g1319._);
T126T37tmp=userfun_T37wrapCharNumber(T126T37tmp);
T126g1318=(T126g1318+T126T37tmp);
T126g1319=(T126g1319==null?null:T126g1319.__);
_I_=113;continue;
case 112:
T126T37ret=T126g1318;
return T126T37ret;
}}};
T126g1316=T126e4;
T126g1316.treExp=T126g1316;
T126T37ret=T126g1316;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_numberT43=T126e2;
T126T37ret=userfun_numberT43;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_numberT43,T126g1314);
T126e1=userfun_symbol("INTEGER+",null);
T126g1325=T126e1;
T126e3=function (T126g1327)
{
var T126e4;
var T126T37ret;
T126e4=function (T126g1328)
{
var T126g1329;
var T126g1330;
var T126g1332;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1329=(T126g1328==null?null:T126g1328._);
T126g1330=(T126g1328==null?null:T126g1328.__);
case 121:
T126g1332=true;
if(!T126g1330&&T126g1330!==0&&T126g1330!==''){_I_=124;continue;}
T126g1332=null;
case 124:
if(!T126g1332&&T126g1332!==0&&T126g1332!==''){_I_=127;continue;}
_I_=120;continue;
case 127:
T126T37tmp=(T126g1330==null?null:T126g1330._);
T126g1329=(T126g1329+T126T37tmp);
T126g1330=(T126g1330==null?null:T126g1330.__);
_I_=121;continue;
case 120:
T126T37ret=T126g1329;
return T126T37ret;
}}};
T126g1327=T126e4;
T126g1327.treExp=T126g1327;
T126T37ret=T126g1327;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_integerT43=T126e2;
T126T37ret=userfun_integerT43;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_integerT43,T126g1325);
T126e1=userfun_symbol("CHARACTER+",null);
T126g1336=T126e1;
T126e3=function (T126g1338)
{
var T126e4;
var T126T37ret;
T126e4=function (T126g1339)
{
var T126g1340;
var T126g1341;
var T126g1343;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1340=0;
T126g1341=(T126g1339==null?null:T126g1339.__);
case 129:
T126g1343=true;
if(!T126g1341&&T126g1341!==0&&T126g1341!==''){_I_=132;continue;}
T126g1343=null;
case 132:
if(!T126g1343&&T126g1343!==0&&T126g1343!==''){_I_=135;continue;}
_I_=128;continue;
case 135:
T126T37tmp=(T126g1341==null?null:T126g1341._);
T126T37tmp=userfun_T37wrapCharNumber(T126T37tmp);
T126g1340=(T126g1340+T126T37tmp);
T126g1341=(T126g1341==null?null:T126g1341.__);
_I_=129;continue;
case 128:
T126T37ret=userfun_codeChar(T126g1340);
return T126T37ret;
}}};
T126g1338=T126e4;
T126g1338.treExp=T126g1338;
T126T37ret=T126g1338;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_characterT43=T126e2;
T126T37ret=userfun_characterT43;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_characterT43,T126g1336);
T126e1=userfun_symbol("-",null);
T126g1347=T126e1;
T126e3=function (T126g1364)
{
var T126e4;
var T126T37ret;
T126e4=function (T126g1365)
{
var T126T37tmp;
var T126g1366;
var T126g1367;
var T126g1369;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=(T126g1365==null?null:T126g1365._);
T126g1366=userfun_T37wrapCharNumber(T126T37tmp);
T126g1367=(T126g1365==null?null:T126g1365.__);
case 137:
T126g1369=true;
if(!T126g1367&&T126g1367!==0&&T126g1367!==''){_I_=152;continue;}
T126g1369=null;
case 152:
if(!T126g1369&&T126g1369!==0&&T126g1369!==''){_I_=155;continue;}
_I_=136;continue;
case 155:
T126T37tmp=(T126g1367==null?null:T126g1367._);
T126T37tmp=userfun_T37wrapCharNumber(T126T37tmp);
T126g1366=(T126g1366-T126T37tmp);
T126g1367=(T126g1367==null?null:T126g1367.__);
_I_=137;continue;
case 136:
T126T37ret=T126g1366;
return T126T37ret;
}}};
T126g1364=T126e4;
T126g1364.treExp=T126g1364;
T126T37ret=T126g1364;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_T45=T126e2;
T126T37ret=userfun_T45;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T45,T126g1347);
T126e18=userfun_symbol("NUMBER-",null);
T126g1351=T126e18;
T126e20=function (T126g1370)
{
var T126e21;
var T126T37ret;
T126e21=function (T126g1371)
{
var T126T37tmp;
var T126g1372;
var T126g1373;
var T126g1375;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=(T126g1371==null?null:T126g1371._);
T126g1372=userfun_T37wrapCharNumber(T126T37tmp);
T126g1373=(T126g1371==null?null:T126g1371.__);
case 141:
T126g1375=true;
if(!T126g1373&&T126g1373!==0&&T126g1373!==''){_I_=156;continue;}
T126g1375=null;
case 156:
if(!T126g1375&&T126g1375!==0&&T126g1375!==''){_I_=159;continue;}
_I_=140;continue;
case 159:
T126T37tmp=(T126g1373==null?null:T126g1373._);
T126T37tmp=userfun_T37wrapCharNumber(T126T37tmp);
T126g1372=(T126g1372-T126T37tmp);
T126g1373=(T126g1373==null?null:T126g1373.__);
_I_=141;continue;
case 140:
T126T37ret=T126g1372;
return T126T37ret;
}}};
T126g1370=T126e21;
T126g1370.treExp=T126g1370;
T126T37ret=T126g1370;
return T126T37ret;
};
T126e19=T126e20(null);
userfun_numberT45=T126e19;
T126T37ret=userfun_numberT45;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_numberT45,T126g1351);
T126e35=userfun_symbol("INTEGER-",null);
T126g1355=T126e35;
T126e37=function (T126g1376)
{
var T126e38;
var T126T37ret;
T126e38=function (T126g1377)
{
var T126g1378;
var T126g1379;
var T126g1381;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1378=(T126g1377==null?null:T126g1377._);
T126g1379=(T126g1377==null?null:T126g1377.__);
case 145:
T126g1381=true;
if(!T126g1379&&T126g1379!==0&&T126g1379!==''){_I_=160;continue;}
T126g1381=null;
case 160:
if(!T126g1381&&T126g1381!==0&&T126g1381!==''){_I_=163;continue;}
_I_=144;continue;
case 163:
T126T37tmp=(T126g1379==null?null:T126g1379._);
T126g1378=(T126g1378-T126T37tmp);
T126g1379=(T126g1379==null?null:T126g1379.__);
_I_=145;continue;
case 144:
T126T37ret=T126g1378;
return T126T37ret;
}}};
T126g1376=T126e38;
T126g1376.treExp=T126g1376;
T126T37ret=T126g1376;
return T126T37ret;
};
T126e36=T126e37(null);
userfun_integerT45=T126e36;
T126T37ret=userfun_integerT45;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_integerT45,T126g1355);
T126e50=userfun_symbol("CHARACTER-",null);
T126g1359=T126e50;
T126e52=function (T126g1382)
{
var T126e53;
var T126T37ret;
T126e53=function (T126g1383)
{
var T126g1384;
var T126g1385;
var T126g1387;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1384=0;
T126g1385=(T126g1383==null?null:T126g1383.__);
case 149:
T126g1387=true;
if(!T126g1385&&T126g1385!==0&&T126g1385!==''){_I_=164;continue;}
T126g1387=null;
case 164:
if(!T126g1387&&T126g1387!==0&&T126g1387!==''){_I_=167;continue;}
_I_=148;continue;
case 167:
T126T37tmp=(T126g1385==null?null:T126g1385._);
T126T37tmp=userfun_T37wrapCharNumber(T126T37tmp);
T126g1384=(T126g1384-T126T37tmp);
T126g1385=(T126g1385==null?null:T126g1385.__);
_I_=149;continue;
case 148:
T126T37ret=userfun_codeChar(T126g1384);
return T126T37ret;
}}};
T126g1382=T126e53;
T126g1382.treExp=T126g1382;
T126T37ret=T126g1382;
return T126T37ret;
};
T126e51=T126e52(null);
userfun_characterT45=T126e51;
T126T37ret=userfun_characterT45;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_characterT45,T126g1359);
T126e1=userfun_symbol("=",null);
T126g1388=T126e1;
T126e2=function (T126g1403,T126g1404)
{
var T126g1405;
var T126T37tmp;
var T126T37ret;
T126g1405=userfun_T37wrapCharNumber(T126g1403);
T126T37tmp=userfun_T37wrapCharNumber(T126g1404);
T126T37ret=(T126g1405==T126T37tmp);
return T126T37ret;
};
userfun_T61=T126e2;
T126T37ret=userfun_T61;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T61,T126g1388);
T126e6=userfun_symbol("INTEGER=",null);
T126g1389=T126e6;
T126e7=function (T126g1407,T126g1408)
{
var T126T37ret;
T126T37ret=(T126g1407==T126g1408);
return T126T37ret;
};
userfun_integerT61=T126e7;
T126T37ret=userfun_integerT61;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_integerT61,T126g1389);
T126e9=userfun_symbol("CHARACTER=",null);
T126g1390=T126e9;
T126e10=function (T126g1409,T126g1410)
{
var T126T37ret;
T126T37ret=(T126g1409.v==T126g1410.v);
return T126T37ret;
};
userfun_characterT61=T126e10;
T126T37ret=userfun_characterT61;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_characterT61,T126g1390);
T126e12=userfun_symbol("<",null);
T126g1391=T126e12;
T126e13=function (T126g1411,T126g1412)
{
var T126g1413;
var T126T37tmp;
var T126T37ret;
T126g1413=userfun_T37wrapCharNumber(T126g1411);
T126T37tmp=userfun_T37wrapCharNumber(T126g1412);
T126T37ret=(T126g1413<T126T37tmp);
return T126T37ret;
};
userfun_T60=T126e13;
T126T37ret=userfun_T60;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T60,T126g1391);
T126e17=userfun_symbol("INTEGER<",null);
T126g1392=T126e17;
T126e18=function (T126g1415,T126g1416)
{
var T126T37ret;
T126T37ret=(T126g1415<T126g1416);
return T126T37ret;
};
userfun_integerT60=T126e18;
T126T37ret=userfun_integerT60;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_integerT60,T126g1392);
T126e20=userfun_symbol("CHARACTER<",null);
T126g1393=T126e20;
T126e21=function (T126g1417,T126g1418)
{
var T126T37ret;
T126T37ret=(T126g1417.v<T126g1418.v);
return T126T37ret;
};
userfun_characterT60=T126e21;
T126T37ret=userfun_characterT60;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_characterT60,T126g1393);
T126e23=userfun_symbol(">",null);
T126g1394=T126e23;
T126e24=function (T126g1419,T126g1420)
{
var T126g1421;
var T126T37tmp;
var T126T37ret;
T126g1421=userfun_T37wrapCharNumber(T126g1419);
T126T37tmp=userfun_T37wrapCharNumber(T126g1420);
T126T37ret=(T126g1421>T126T37tmp);
return T126T37ret;
};
userfun_T62=T126e24;
T126T37ret=userfun_T62;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T62,T126g1394);
T126e28=userfun_symbol("INTEGER>",null);
T126g1395=T126e28;
T126e29=function (T126g1423,T126g1424)
{
var T126T37ret;
T126T37ret=(T126g1423>T126g1424);
return T126T37ret;
};
userfun_integerT62=T126e29;
T126T37ret=userfun_integerT62;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_integerT62,T126g1395);
T126e31=userfun_symbol("CHARACTER>",null);
T126g1396=T126e31;
T126e32=function (T126g1425,T126g1426)
{
var T126T37ret;
T126T37ret=(T126g1425.v>T126g1426.v);
return T126T37ret;
};
userfun_characterT62=T126e32;
T126T37ret=userfun_characterT62;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_characterT62,T126g1396);
T126e34=userfun_symbol("<=",null);
T126g1397=T126e34;
T126e35=function (T126g1427,T126g1428)
{
var T126g1429;
var T126T37tmp;
var T126T37ret;
T126g1429=userfun_T37wrapCharNumber(T126g1427);
T126T37tmp=userfun_T37wrapCharNumber(T126g1428);
T126T37ret=(T126g1429<=T126T37tmp);
return T126T37ret;
};
userfun_T60T61=T126e35;
T126T37ret=userfun_T60T61;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T60T61,T126g1397);
T126e39=userfun_symbol("INTEGER<=",null);
T126g1398=T126e39;
T126e40=function (T126g1431,T126g1432)
{
var T126T37ret;
T126T37ret=(T126g1431<=T126g1432);
return T126T37ret;
};
userfun_integerT60T61=T126e40;
T126T37ret=userfun_integerT60T61;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_integerT60T61,T126g1398);
T126e42=userfun_symbol("CHARACTER<=",null);
T126g1399=T126e42;
T126e43=function (T126g1433,T126g1434)
{
var T126T37ret;
T126T37ret=(T126g1433.v<=T126g1434.v);
return T126T37ret;
};
userfun_characterT60T61=T126e43;
T126T37ret=userfun_characterT60T61;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_characterT60T61,T126g1399);
T126e45=userfun_symbol(">=",null);
T126g1400=T126e45;
T126e46=function (T126g1435,T126g1436)
{
var T126g1437;
var T126T37tmp;
var T126T37ret;
T126g1437=userfun_T37wrapCharNumber(T126g1435);
T126T37tmp=userfun_T37wrapCharNumber(T126g1436);
T126T37ret=(T126g1437>=T126T37tmp);
return T126T37ret;
};
userfun_T62T61=T126e46;
T126T37ret=userfun_T62T61;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T62T61,T126g1400);
T126e50=userfun_symbol("INTEGER>=",null);
T126g1401=T126e50;
T126e51=function (T126g1439,T126g1440)
{
var T126T37ret;
T126T37ret=(T126g1439>=T126g1440);
return T126T37ret;
};
userfun_integerT62T61=T126e51;
T126T37ret=userfun_integerT62T61;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_integerT62T61,T126g1401);
T126e53=userfun_symbol("CHARACTER>=",null);
T126g1402=T126e53;
T126e54=function (T126g1441,T126g1442)
{
var T126T37ret;
T126T37ret=(T126g1441.v>=T126g1442.v);
return T126T37ret;
};
userfun_characterT62T61=T126e54;
T126T37ret=userfun_characterT62T61;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_characterT62T61,T126g1402);
T126e1=userfun_symbol("NUMBER?",null);
T126g1444=T126e1;
T126e2=function (T126g1445)
{
var T126g1446;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1446=userfun_T37numberT63(T126g1445);
if(!T126g1446&&T126g1446!==0&&T126g1446!==''){_I_=185;continue;}
T126T37ret=T126g1446;
_I_=184;continue;
case 185:
T126T37ret=userfun_characterT63(T126g1445);
case 184:
return T126T37ret;
}}};
userfun_numberT63=T126e2;
T126T37ret=userfun_numberT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_numberT63,T126g1444);
T126e1=userfun_symbol("INTEGER",null);
T126g1447=T126e1;
T126e2=function (T126g1448)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_characterT63(T126g1448);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=189;continue;}
T126T37ret=userfun_charCode(T126g1448);
_I_=188;continue;
case 189:
T126T37ret=userfun_stringT63(T126g1448);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=190;continue;}
T126T37ret=userfun_stringInteger(T126g1448);
_I_=188;continue;
case 190:
T126T37ret=userfun_numberInteger(T126g1448);
case 188:
return T126T37ret;
}}};
userfun_integer=T126e2;
T126T37ret=userfun_integer;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_integer,T126g1447);
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126e1=userfun_symbol("CPS-APPLY",null);
T126g1470=T126e1;
T126e3=function (T126g1473)
{
var T126e4;
var T126T37ret;
var T126e25;
T126e4=function (T126g1474,T126g1475)
{
var T126g1476;
var T126T37tmp;
var T126g1477;
var T126e10;
var T126g1478;
var T126g1479;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1476=(T126g1475==null?null:T126g1475._);
T126T37tmp=(T126g1475==null?null:T126g1475.__);
T126g1477=userfun_last(T126T37tmp);
T126T37tmp=(T126g1475==null?null:T126g1475.__);
T126e10=userfun_butlast(T126T37tmp);
T126T37tmp=(T126g1477==null?null:T126g1477._);
T126g1478=userfun_T37nconc(T126e10,T126T37tmp);
T126g1479=T126g1476.treExp;
if(!T126g1479&&T126g1479!==0&&T126g1479!==''){_I_=200;continue;}
T126T37ret=T126g1476.treCps;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=194;continue;}
T126T37ret=T126g1479.apply(null,[T126g1474,T126g1478]);
_I_=199;continue;
case 194:
T126T37tmp=T126g1479.apply(null,[T126g1478]);
T126T37ret=T126g1474(T126T37tmp);
_I_=199;continue;
case 200:
T126T37ret=T126g1476.treCps;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=197;continue;}
T126T37tmp=new userfun_T37cons(T126g1474,T126g1478);
T126T37tmp=userfun_listArray(T126T37tmp);
T126T37ret=T126g1476.apply(null,T126T37tmp);
_I_=199;continue;
case 197:
T126T37tmp=new userfun_T37cons(T126g1474,T126g1478);
T126T37tmp=userfun_listArray(T126T37tmp);
T126T37tmp=T126g1476.apply(null,T126T37tmp);
T126T37ret=T126g1474(T126T37tmp);
case 199:
return T126T37ret;
}}};
T126g1473=T126e4;
T126T37ret=T126g1473;
T126e25=function (T126g1480)
{
var T126g1481;
var T126T37tmp;
var T126T37ret;
T126g1481=(T126g1480==null?null:T126g1480._);
T126g1480=(T126g1480==null?null:T126g1480.__);
T126T37tmp=T126g1480;
T126T37ret=T126g1473(T126g1481,T126T37tmp);
return T126T37ret;
};
T126g1473.treExp=T126e25;
T126T37ret=T126g1473;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_cpsApply=T126e2;
T126T37ret=userfun_cpsApply;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_cpsApply,T126g1470);
T126e1=userfun_symbol("APPLY",null);
T126g1483=T126e1;
T126e3=function (T126g1485)
{
var T126e4;
var T126T37ret;
T126e4=function (T126g1486)
{
var T126g1487;
var T126T37tmp;
var T126g1488;
var T126e10;
var T126g1489;
var T126g1490;
var T126T37ret;
var T126g1491;
var T126g1492;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1487=(T126g1486==null?null:T126g1486._);
T126T37tmp=(T126g1486==null?null:T126g1486.__);
T126g1488=userfun_last(T126T37tmp);
T126T37tmp=(T126g1486==null?null:T126g1486.__);
T126e10=userfun_butlast(T126T37tmp);
T126T37tmp=(T126g1488==null?null:T126g1488._);
T126g1489=userfun_T37nconc(T126e10,T126T37tmp);
T126g1490=true;
T126T37ret=userfun_functionT63(T126g1487);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=203;continue;}
T126g1490=null;
case 203:
if(!T126g1490&&T126g1490!==0&&T126g1490!==''){_I_=205;continue;}
T126T37tmp=new userfun_T37cons(T126g1487,null);
T126T37tmp=new userfun_T37cons("APPLY: first argument is not a function: ~A",T126T37tmp);
userfun_error(T126T37tmp);
case 205:
T126g1491=true;
T126T37ret=userfun_listp(T126g1488);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=207;continue;}
T126g1491=null;
case 207:
if(!T126g1491&&T126g1491!==0&&T126g1491!==''){_I_=209;continue;}
T126T37tmp=new userfun_T37cons("APPLY: last argument is not a cell",null);
userfun_error(T126T37tmp);
case 209:
T126g1492=T126g1487.treExp;
if(!T126g1492&&T126g1492!==0&&T126g1492!==''){_I_=212;continue;}
T126T37ret=T126g1492.apply(null,[T126g1489]);
_I_=211;continue;
case 212:
T126T37tmp=userfun_listArray(T126g1489);
T126T37ret=T126g1487.apply(null,T126T37tmp);
case 211:
return T126T37ret;
}}};
T126g1485=T126e4;
T126g1485.treExp=T126g1485;
T126T37ret=T126g1485;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_apply=T126e2;
T126T37ret=userfun_apply;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_apply,T126g1483);
T126T37ret=null;
T126e1=userfun_symbol("CPS-WRAP",null);
T126g1493=T126e1;
T126e2=function (T126g1494)
{
var T126T37ret;
T126T37ret=T126g1494;
return T126T37ret;
};
userfun_cpsWrap=T126e2;
T126T37ret=userfun_cpsWrap;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_cpsWrap,T126g1493);
T126e1=userfun_symbol("CPS-RETURN-DUMMY",null);
T126g1495=T126e1;
T126e3=function (T126g1497)
{
var T126e4;
var T126T37ret;
T126e4=function (T126g1498)
{
var T126T37ret;
T126T37ret=null;
return T126T37ret;
};
T126g1497=T126e4;
T126g1497.treExp=T126g1497;
T126T37ret=T126g1497;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_cpsReturnDummy=T126e2;
T126T37ret=userfun_cpsReturnDummy;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_cpsReturnDummy,T126g1495);
T126e1=userfun_symbol("FUNCALL",null);
T126g1499=T126e1;
T126e3=function (T126g1502)
{
var T126e4;
var T126T37ret;
var T126e8;
T126e4=function (T126g1503,T126g1504)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=new userfun_T37cons(T126g1504,null);
T126T37tmp=new userfun_T37cons(T126g1503,T126T37tmp);
T126T37ret=userfun_apply(T126T37tmp);
return T126T37ret;
};
T126g1502=T126e4;
T126T37ret=T126g1502;
T126e8=function (T126g1505)
{
var T126g1506;
var T126T37tmp;
var T126T37ret;
T126g1506=(T126g1505==null?null:T126g1505._);
T126g1505=(T126g1505==null?null:T126g1505.__);
T126T37tmp=T126g1505;
T126T37ret=T126g1502(T126g1506,T126T37tmp);
return T126T37ret;
};
T126g1502.treExp=T126e8;
T126T37ret=T126g1502;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_funcall=T126e2;
T126T37ret=userfun_funcall;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_funcall,T126g1499);
T126T37ret=null;
T126e1=[];
T37ARRAYCONSTRUCTOR=T126e1.constructor;
T126T37ret=T37ARRAYCONSTRUCTOR;
T126e1=userfun_symbol("ARRAY?",null);
T126g1508=T126e1;
T126e2=function (T126g1509)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g1509;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=217;continue;}
T126T37ret=(T37ARRAYCONSTRUCTOR===T126g1509.constructor);
case 217:
return T126T37ret;
}}};
userfun_arrayT63=T126e2;
T126T37ret=userfun_arrayT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_arrayT63,T126g1508);
T126T37ret=null;
T126e1=userfun_symbol("LIST-ARRAY",null);
T126g1513=T126e1;
T126e2=function (T126g1514)
{
var T126g1515;
var T126g1516;
var T126g1518;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1515=[];
T126g1516=T126g1514;
case 220:
T126g1518=true;
if(!T126g1516&&T126g1516!==0&&T126g1516!==''){_I_=223;continue;}
T126g1518=null;
case 223:
if(!T126g1518&&T126g1518!==0&&T126g1518!==''){_I_=226;continue;}
_I_=219;continue;
case 226:
T126T37tmp=(T126g1516==null?null:T126g1516._);
T126g1515.push(T126T37tmp);
T126g1516=(T126g1516==null?null:T126g1516.__);
_I_=220;continue;
case 219:
T126T37ret=T126g1515;
return T126T37ret;
}}};
userfun_listArray=T126e2;
T126T37ret=userfun_listArray;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_listArray,T126g1513);
T126T37ret=null;
T126T37ret=null;
T126e1=userfun_symbol("ARRAY-FIND",null);
T126g1519=T126e1;
T126e2=function (T126g1520,T126g1521)
{
var T126T37ret;
return T126g1520.indexOf (T126g1521) != -1;;
T126T37ret=null;
return T126T37ret;
};
userfun_arrayFind=T126e2;
T126T37ret=userfun_arrayFind;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_arrayFind,T126g1519);
T126e1=userfun_symbol("FUNCTION?",null);
T126g1522=T126e1;
T126e2=function (T126g1523)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g1523;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=229;continue;}
T126T37tmp=typeof T126g1523;
T126T37ret=(T126T37tmp=="function");
case 229:
return T126T37ret;
}}};
userfun_functionT63=T126e2;
T126T37ret=userfun_functionT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_functionT63,T126g1522);
T126e1=userfun_symbol("OBJECT?",null);
T126g1524=T126e1;
T126e2=function (T126g1525)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g1525;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=232;continue;}
T126T37tmp=typeof T126g1525;
T126T37ret=(T126T37tmp=="object");
case 232:
return T126T37ret;
}}};
userfun_objectT63=T126e2;
T126T37ret=userfun_objectT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_objectT63,T126g1524);
T126e1=userfun_symbol("ATOM",null);
T126g1526=T126e1;
T126e2=function (T126g1527)
{
var T126g1528;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1528=true;
T126T37ret=userfun_consT63(T126g1527);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=235;continue;}
T126g1528=null;
case 235:
T126T37ret=T126g1528;
return T126T37ret;
}}};
userfun_atom=T126e2;
T126T37ret=userfun_atom;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_atom,T126g1526);
T126e1=userfun_symbol("IDENTITY",null);
T126g1529=T126e1;
T126e2=function (T126g1530)
{
var T126T37ret;
T126T37ret=T126g1530;
return T126T37ret;
};
userfun_identity=T126e2;
T126T37ret=userfun_identity;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_identity,T126g1529);
T126T37ret=null;
T126T37ret=null;
T126e1=userfun_symbol("%BIND",null);
T126g1531=T126e1;
T126e2=function (T126g1532,T126g1533)
{
var T126g1536;
var T126g1534;
var T126T37ret;
var T126g1535;
var T126T37tmp;
var T126e12;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1534=true;
T126T37ret=userfun_functionT63(T126g1533);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=239;continue;}
T126g1534=null;
case 239:
if(!T126g1534&&T126g1534!==0&&T126g1534!==''){_I_=241;continue;}
userfun_jsPrint(T126g1533,logwindow.document);
case 241:
T126g1535=true;
T126T37ret=userfun_functionT63(T126g1533);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=243;continue;}
T126g1535=null;
case 243:
T126T37ret=T126g1535;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=245;continue;}
T126T37tmp=new userfun_T37cons("assertion failed: BIND requires a function",null);
T126T37ret=userfun_error(T126T37tmp);
case 245:
T126e12=function ()
{
var T126T37ret;
T126T37ret=T126g1533.apply(T126g1532,arguments);
return T126T37ret;
};
T126T37ret=T126e12;
return T126T37ret;
}}};
userfun_T37bind=T126e2;
T126T37ret=userfun_T37bind;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37bind,T126g1531);
T126e1=userfun_symbol("EQ",null);
T126g1538=T126e1;
T126e2=function (T126g1539,T126g1540)
{
var T126T37ret;
T126T37ret=(T126g1539===T126g1540);
return T126T37ret;
};
userfun_eq=T126e2;
T126T37ret=userfun_eq;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_eq,T126g1538);
T126e1=userfun_symbol("EQL",null);
T126g1543=T126e1;
T126e2=function (T126g1544,T126g1545)
{
var T126g1546;
var T126g1547;
var T126g1548;
var T126T37ret;
var T126g1549;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1546=true;
if(!T126g1544&&T126g1544!==0&&T126g1544!==''){_I_=249;continue;}
T126g1546=null;
case 249:
if(!T126g1546&&T126g1546!==0&&T126g1546!==''){_I_=251;continue;}
T126g1544=null;
case 251:
T126g1547=true;
if(!T126g1545&&T126g1545!==0&&T126g1545!==''){_I_=253;continue;}
T126g1547=null;
case 253:
if(!T126g1547&&T126g1547!==0&&T126g1547!==''){_I_=255;continue;}
T126g1545=null;
case 255:
T126g1548=(T126g1544===T126g1545);
if(!T126g1548&&T126g1548!==0&&T126g1548!==''){_I_=271;continue;}
T126T37ret=T126g1548;
_I_=270;continue;
case 271:
T126g1549=userfun_numberT63(T126g1544);
if(!T126g1549&&T126g1549!==0&&T126g1549!==''){_I_=258;continue;}
T126T37ret=T126g1549;
_I_=257;continue;
case 258:
T126T37ret=userfun_numberT63(T126g1545);
case 257:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=268;continue;}
T126T37ret=userfun_integerT63(T126g1544);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=260;continue;}
T126T37ret=userfun_integerT63(T126g1545);
case 260:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=265;continue;}
T126T37ret=(T126g1544==T126g1545);
_I_=270;continue;
case 265:
T126T37ret=userfun_characterT63(T126g1544);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=262;continue;}
T126T37ret=userfun_characterT63(T126g1545);
case 262:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=270;continue;}
T126T37ret=(T126g1544.v==T126g1545.v);
_I_=270;continue;
case 268:
T126T37ret=userfun_T61(T126g1544,T126g1545);
case 270:
return T126T37ret;
}}};
userfun_eql=T126e2;
T126T37ret=userfun_eql;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_eql,T126g1543);
T126e1=userfun_symbol("CAR",null);
T126g1550=T126e1;
T126e2=function (T126g1551)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g1551;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=274;continue;}
T126T37ret=T126g1551._;
case 274:
return T126T37ret;
}}};
userfun_car=T126e2;
T126T37ret=userfun_car;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_car,T126g1550);
T126e1=userfun_symbol("CDR",null);
T126g1552=T126e1;
T126e2=function (T126g1553)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g1553;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=277;continue;}
T126T37ret=T126g1553.__;
case 277:
return T126T37ret;
}}};
userfun_cdr=T126e2;
T126T37ret=userfun_cdr;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_cdr,T126g1552);
T126e1=userfun_symbol("RPLACA",null);
T126g1554=T126e1;
T126e2=function (T126g1555,T126g1556)
{
var T126T37ret;
T126g1555._=T126g1556;
T126T37ret=T126g1555;
return T126T37ret;
};
userfun_rplaca=T126e2;
T126T37ret=userfun_rplaca;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_rplaca,T126g1554);
T126e1=userfun_symbol("RPLACD",null);
T126g1557=T126e1;
T126e2=function (T126g1558,T126g1559)
{
var T126T37ret;
T126g1558.__=T126g1559;
T126T37ret=T126g1558;
return T126T37ret;
};
userfun_rplacd=T126e2;
T126T37ret=userfun_rplacd;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_rplacd,T126g1557);
T126e1=userfun_symbol("CONS?",null);
T126g1560=T126e1;
T126e2=function (T126g1561)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_objectT63(T126g1561);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=284;continue;}
T126T37ret=T126g1561.__class;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=284;continue;}
T126T37ret=(T126g1561.__class=="cons");
case 284:
return T126T37ret;
}}};
userfun_consT63=T126e2;
T126T37ret=userfun_consT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_consT63,T126g1560);
T126e1=userfun_symbol("MAKE-SYMBOL",null);
T126g1562=T126e1;
T126e3=function (T126g1565)
{
var T126e4;
var T126T37ret;
var T126e6;
T126e4=function (T126g1566,T126g1567)
{
var T126T37ret;
T126T37ret=userfun_symbol(T126g1566,T126g1567);
return T126T37ret;
};
T126g1565=T126e4;
T126T37ret=T126g1565;
T126e6=function (T126g1568)
{
var T126g1569;
var T126g1570;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1569=(T126g1568==null?null:T126g1568._);
T126g1568=(T126g1568==null?null:T126g1568.__);
if(!T126g1568&&T126g1568!==0&&T126g1568!==''){_I_=288;continue;}
T126g1570=(T126g1568==null?null:T126g1568._);
T126g1568=(T126g1568==null?null:T126g1568.__);
_I_=287;continue;
case 288:
T126g1570=null;
case 287:
T126T37ret=T126g1565(T126g1569,T126g1570);
return T126T37ret;
}}};
T126g1565.treExp=T126e6;
T126T37ret=T126g1565;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_makeSymbol=T126e2;
T126T37ret=userfun_makeSymbol;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_makeSymbol,T126g1562);
T126e1=userfun_symbol("MAKE-PACKAGE",null);
T126g1571=T126e1;
T126e2=function (T126g1572)
{
var T126T37ret;
T126T37ret=userfun_symbol(T126g1572,null);
return T126T37ret;
};
userfun_makePackage=T126e2;
T126T37ret=userfun_makePackage;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_makePackage,T126g1571);
T126e1=userfun_makePackage("");
KEYWORDPACKAGE=T126e1;
T126T37ret=KEYWORDPACKAGE;
T126e1=userfun_symbol("SYMBOL-NAME",null);
T126g1573=T126e1;
T126e2=function (T126g1574)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
if(!T126g1574&&T126g1574!==0&&T126g1574!==''){_I_=293;continue;}
T126T37ret=T126g1574.n;
_I_=292;continue;
case 293:
T126T37ret="NIL";
case 292:
return T126T37ret;
}}};
userfun_symbolName=T126e2;
T126T37ret=userfun_symbolName;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_symbolName,T126g1573);
T126e1=userfun_symbol("SYMBOL-VALUE",null);
T126g1575=T126e1;
T126e2=function (T126g1576)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g1576;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=296;continue;}
T126T37ret=T126g1576.v;
case 296:
return T126T37ret;
}}};
userfun_symbolValue=T126e2;
T126T37ret=userfun_symbolValue;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_symbolValue,T126g1575);
T126e1=userfun_symbol("SYMBOL-FUNCTION",null);
T126g1577=T126e1;
T126e2=function (T126g1578)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g1578;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=299;continue;}
T126T37ret=T126g1578.f;
case 299:
return T126T37ret;
}}};
userfun_symbolFunction=T126e2;
T126T37ret=userfun_symbolFunction;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_symbolFunction,T126g1577);
T126e1=userfun_symbol("SYMBOL-PACKAGE",null);
T126g1579=T126e1;
T126e2=function (T126g1580)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g1580;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=302;continue;}
T126T37ret=T126g1580.p;
case 302:
return T126T37ret;
}}};
userfun_symbolPackage=T126e2;
T126T37ret=userfun_symbolPackage;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_symbolPackage,T126g1579);
T126e1=userfun_symbol("SYMBOL?",null);
T126g1581=T126e1;
T126e2=function (T126g1582)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_objectT63(T126g1582);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=307;continue;}
T126T37ret=T126g1582.__class;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=307;continue;}
T126T37ret=(T126g1582.__class=="symbol");
case 307:
return T126T37ret;
}}};
userfun_symbolT63=T126e2;
T126T37ret=userfun_symbolT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_symbolT63,T126g1581);
T126e1=userfun_symbol("LIST",null);
T126g1583=T126e1;
T126e3=function (T126g1585)
{
var T126e4;
var T126T37ret;
T126e4=function (T126g1586)
{
var T126T37ret;
T126T37ret=T126g1586;
return T126T37ret;
};
T126g1585=T126e4;
T126g1585.treExp=T126g1585;
T126T37ret=T126g1585;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_list=T126e2;
T126T37ret=userfun_list;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_list,T126g1583);
T126e1=userfun_symbol("%LIST-LENGTH",null);
T126g1587=T126e1;
T126e2=function (T126g1589)
{
var T126g1590;
var T126g1591;
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1590=0;
case 310:
T126g1591=true;
T126T37ret=userfun_consT63(T126g1589);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=313;continue;}
T126g1591=null;
case 313:
if(!T126g1591&&T126g1591!==0&&T126g1591!==''){_I_=316;continue;}
T126T37ret=T126g1590;
_I_=311;continue;
case 316:
T126g1589=(T126g1589==null?null:T126g1589.__);
T126T37tmp=new userfun_T37cons(1,null);
T126T37tmp=new userfun_T37cons(T126g1590,T126T37tmp);
T126g1590=userfun_numberT43(T126T37tmp);
_I_=310;continue;
case 311:
return T126T37ret;
}}};
userfun_T37listLength=T126e2;
T126T37ret=userfun_T37listLength;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37listLength,T126g1587);
T126e1=userfun_symbol("MAPARRAY",null);
T126g1596=T126e1;
T126e2=function (T126g1598,T126g1599)
{
var T126g1601;
var T126T37tmp;
var T126T37ret;
var T126g1602;
var T126g1603;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1601=0;
case 317:
T126T37tmp=userfun_length(T126g1599);
T126T37ret=(T126g1601==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=321;continue;}
T126T37ret=null;
_I_=318;continue;
case 321:
T126g1602=T126g1598;
T126g1603=T126g1602.treExp;
if(!T126g1603&&T126g1603!==0&&T126g1603!==''){_I_=323;continue;}
T126T37tmp=T126g1599[T126g1601];
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=userfun_list(T126T37tmp);
T126g1603.apply(null,[T126T37tmp]);
_I_=322;continue;
case 323:
T126T37tmp=T126g1599[T126g1601];
T126g1602(T126T37tmp);
case 322:
T126g1601=(1+T126g1601);
_I_=317;continue;
case 318:
return T126T37ret;
}}};
userfun_maparray=T126e2;
T126T37ret=userfun_maparray;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_maparray,T126g1596);
T126e1=userfun_symbol("MAPHASH",null);
T126g1611=T126e1;
T126e2=function (T126g1612,T126g1613)
{
var T126g1614;
var T126g1616;
var T126g1615;
var T126g1617;
var T126g1618;
var T126e13;
var T126T37tmp;
var T126e17;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1614=userfun_T37propertyList(T126g1613);
case 326:
T126g1616=true;
if(!T126g1614&&T126g1614!==0&&T126g1614!==''){_I_=329;continue;}
T126g1616=null;
case 329:
if(!T126g1616&&T126g1616!==0&&T126g1616!==''){_I_=332;continue;}
_I_=325;continue;
case 332:
T126g1615=(T126g1614==null?null:T126g1614._);
T126g1617=T126g1612;
T126g1618=T126g1617.treExp;
if(!T126g1618&&T126g1618!==0&&T126g1618!==''){_I_=334;continue;}
T126e13=(T126g1615==null?null:T126g1615._);
T126T37tmp=(T126g1615==null?null:T126g1615.__);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(T126e13,T126T37tmp);
T126T37tmp=userfun_list(T126T37tmp);
T126g1618.apply(null,[T126T37tmp]);
_I_=333;continue;
case 334:
T126e17=(T126g1615==null?null:T126g1615._);
T126T37tmp=(T126g1615==null?null:T126g1615.__);
T126g1617(T126e17,T126T37tmp);
case 333:
T126g1614=(T126g1614==null?null:T126g1614.__);
_I_=326;continue;
case 325:
T126T37ret=null;
return T126T37ret;
}}};
userfun_maphash=T126e2;
T126T37ret=userfun_maphash;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_maphash,T126g1611);
T126e1=userfun_symbol("ELT",null);
T126g1620=T126e1;
T126e2=function (T126g1621,T126g1622)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_stringT63(T126g1621);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=338;continue;}
T126T37ret=userfun_T37eltString(T126g1621,T126g1622);
_I_=337;continue;
case 338:
T126T37ret=userfun_consT63(T126g1621);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=339;continue;}
T126T37ret=userfun_nth(T126g1622,T126g1621);
_I_=337;continue;
case 339:
T126T37ret=T126g1621[T126g1622];
case 337:
return T126T37ret;
}}};
userfun_elt=T126e2;
T126T37ret=userfun_elt;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_elt,T126g1620);
T126e1=userfun_symbol("%%USETF-ELT",null);
T126g1623=T126e1;
T126e2=function (T126g1624,T126g1625,T126g1626)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_stringT63(T126g1625);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=343;continue;}
T126T37tmp=new userfun_T37cons("strings cannot be modified",null);
T126T37ret=userfun_error(T126T37tmp);
_I_=342;continue;
case 343:
T126T37ret=userfun_arrayT63(T126g1625);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=344;continue;}
T126T37ret=T126g1625[T126g1626]=T126g1624;
_I_=342;continue;
case 344:
T126T37ret=userfun_consT63(T126g1625);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=342;continue;}
T126T37tmp=userfun_nthcdr(T126g1626,T126g1625);
T126T37ret=userfun_rplaca(T126T37tmp,T126g1624);
case 342:
return T126T37ret;
}}};
userfun_T37T37usetfElt=T126e2;
T126T37ret=userfun_T37T37usetfElt;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37T37usetfElt,T126g1623);
T126T37ret=null;
T126e1=userfun_symbol("LENGTH",null);
T126g1627=T126e1;
T126e2=function (T126g1628)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
if(!T126g1628&&T126g1628!==0&&T126g1628!==''){_I_=351;continue;}
T126T37ret=userfun_consT63(T126g1628);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=348;continue;}
T126T37ret=userfun_T37listLength(T126g1628);
_I_=350;continue;
case 348:
T126T37ret=T126g1628.length;
_I_=350;continue;
case 351:
T126T37ret=0;
case 350:
return T126T37ret;
}}};
userfun_length=T126e2;
T126T37ret=userfun_length;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_length,T126g1627);
T126T37ret=null;
T126e1=userfun_symbol("SPLIT",null);
T126g1629=T126e1;
T126e3=function (T126g1633)
{
var T126e4;
var T126T37ret;
var T126e16;
T126e4=function (T126g1634,T126g1635,T126g1636)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=(userfun_eql===T126g1636);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=357;continue;}
T126T37ret=userfun_stringT63(T126g1635);
case 357:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=363;continue;}
T126T37ret=userfun_characterT63(T126g1634);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=360;continue;}
T126T37ret=userfun_charString(T126g1634);
_I_=359;continue;
case 360:
T126T37ret=T126g1634;
case 359:
T126T37tmp=T126T37ret;
T126T37tmp=T126g1635.split(T126T37tmp);
T126T37ret=userfun_arrayList(T126T37tmp);
_I_=362;continue;
case 363:
T126T37ret=userfun_genericSplit(T126g1634,T126g1635,userfun_eql);
case 362:
return T126T37ret;
}}};
T126g1633=T126e4;
T126T37ret=T126g1633;
T126e16=function (T126g1637)
{
var T126g1644;
var T126g1640;
var T126g1641;
var T126e17;
var T126g1638;
var T126g1639;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1640=T126g4384;
T126g1641=null;
T126e17=function ()
{
var T126g1643;
var T126g1642;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 354:
T126g1643=true;
T126g1642=(T126g1637==null?null:T126g1637._);
T126T37tmp=T126g1642;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=365;continue;}
T126g1643=null;
case 365:
if(!T126g1643&&T126g1643!==0&&T126g1643!==''){_I_=368;continue;}
T126T37ret=null;
_I_=355;continue;
case 368:
T126T37ret=(T126g1642===T126g4385);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=354;continue;}
T126g1637=(T126g1637==null?null:T126g1637.__);
T126g1640=(T126g1637==null?null:T126g1637._);
T126g1637=(T126g1637==null?null:T126g1637.__);
_I_=354;continue;
case 355:
return T126T37ret;
}}};
T126g1641=T126e17;
;
T126g1641();
T126g1638=(T126g1637==null?null:T126g1637._);
T126g1637=(T126g1637==null?null:T126g1637.__);
T126g1641();
T126g1639=(T126g1637==null?null:T126g1637._);
T126g1637=(T126g1637==null?null:T126g1637.__);
T126g1641();
T126T37ret=(T126g1640===T126g4384);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=371;continue;}
T126g1640=userfun_eql;
case 371:
T126T37ret=T126g1633(T126g1638,T126g1639,T126g1640);
return T126T37ret;
}}};
T126g1633.treExp=T126e16;
T126T37ret=T126g1633;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_split=T126e2;
T126T37ret=userfun_split;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_split,T126g1629);
T126e1=userfun_symbol("LIST-STRING",null);
T126g1646=T126e1;
T126e2=function (T126g1647)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_filter(userfun_string,T126g1647);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(userfun_stringConcat,T126T37tmp);
T126T37ret=userfun_apply(T126T37tmp);
return T126T37ret;
};
userfun_listString=T126e2;
T126T37ret=userfun_listString;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_listString,T126g1646);
T126e1=userfun_symbol("%STRING?",null);
T126g1648=T126e1;
T126e2=function (T126g1649)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g1649;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=375;continue;}
T126T37tmp=typeof T126g1649;
T126T37ret=(T126T37tmp=="string");
case 375:
return T126T37ret;
}}};
userfun_T37stringT63=T126e2;
T126T37ret=userfun_T37stringT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37stringT63,T126g1648);
T126e1=userfun_symbol("STRING?",null);
T126g1651=T126e1;
T126e2=function (T126g1652)
{
var T126g1653;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1653=userfun_T37stringT63(T126g1652);
if(!T126g1653&&T126g1653!==0&&T126g1653!==''){_I_=379;continue;}
T126T37ret=T126g1653;
_I_=378;continue;
case 379:
T126T37ret=T126g1652 instanceof String;
case 378:
return T126T37ret;
}}};
userfun_stringT63=T126e2;
T126T37ret=userfun_stringT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_stringT63,T126g1651);
T126e1=userfun_symbol("STRING-CONCAT",null);
T126g1654=T126e1;
T126e3=function (T126g1657)
{
var T126e4;
var T126T37ret;
T126e4=function (T126g1658)
{
var T126e9;
var T126T37tmp;
var T126T37ret;
T126e9=function (T126g1659)
{
var T126g1660;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1660=T126g1659;
if(!T126g1660&&T126g1660!==0&&T126g1660!==''){_I_=383;continue;}
T126T37ret=T126g1660;
_I_=382;continue;
case 383:
T126T37ret="";
case 382:
return T126T37ret;
}}};
T126T37tmp=userfun_filter(T126e9,T126g1658);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(userfun_T43,T126T37tmp);
T126T37ret=userfun_apply(T126T37tmp);
return T126T37ret;
};
T126g1657=T126e4;
T126g1657.treExp=T126g1657;
T126T37ret=T126g1657;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_stringConcat=T126e2;
T126T37ret=userfun_stringConcat;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_stringConcat,T126g1654);
T126T37ret=null;
T126e1=userfun_symbol("%ELT-STRING",null);
T126g1661=T126e1;
T126e2=function (T126g1662,T126g1663)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=(T126g1663<T126g1662.length);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=386;continue;}
T126T37tmp=T126g1662.charCodeAt(T126g1663);
T126T37ret=userfun_codeChar(T126T37tmp);
case 386:
return T126T37ret;
}}};
userfun_T37eltString=T126e2;
T126T37ret=userfun_T37eltString;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37eltString,T126g1661);
T126T37ret=null;
T126e1=userfun_symbol("%SETF-ELT-STRING",null);
T126g1664=T126e1;
T126e2=function (T126g1665,T126g1666,T126g1667)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=new userfun_T37cons("cannot modify strings",null);
T126T37ret=userfun_error(T126T37tmp);
return T126T37ret;
};
userfun_T37setfEltString=T126e2;
T126T37ret=userfun_T37setfEltString;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37setfEltString,T126g1664);
T126T37ret=null;
T126e1=userfun_symbol("STRING",null);
T126g1668=T126e1;
T126e2=function (T126g1669)
{
var T126T37ret;
var T126g1670;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_stringT63(T126g1669);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=393;continue;}
T126T37ret=T126g1669;
_I_=392;continue;
case 393:
T126T37ret=userfun_characterT63(T126g1669);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=394;continue;}
T126T37ret=userfun_charString(T126g1669);
_I_=392;continue;
case 394:
T126T37ret=userfun_symbolT63(T126g1669);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=395;continue;}
T126T37ret=userfun_symbolName(T126g1669);
_I_=392;continue;
case 395:
T126g1670=true;
if(!T126g1669&&T126g1669!==0&&T126g1669!==''){_I_=390;continue;}
T126g1670=null;
case 390:
if(!T126g1670&&T126g1670!==0&&T126g1670!==''){_I_=396;continue;}
T126T37ret="NIL";
_I_=392;continue;
case 396:
T126T37ret=T126g1669.toString();
case 392:
return T126T37ret;
}}};
userfun_string=T126e2;
T126T37ret=userfun_string;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_string,T126g1668);
T126e1=userfun_symbol("STRING=",null);
T126g1671=T126e1;
T126e2=function (T126g1672,T126g1673)
{
var T126T37ret;
T126T37ret=(T126g1672==T126g1673);
return T126T37ret;
};
userfun_stringT61=T126e2;
T126T37ret=userfun_stringT61;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_stringT61,T126g1671);
T126T37ret=null;
T126e1=userfun_symbol("STRING-UPCASE",null);
T126g1674=T126e1;
T126e2=function (T126g1675)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g1675;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=400;continue;}
T126T37ret=T126g1675.toUpperCase();
case 400:
return T126T37ret;
}}};
userfun_stringUpcase=T126e2;
T126T37ret=userfun_stringUpcase;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_stringUpcase,T126g1674);
T126T37ret=null;
T126e1=userfun_symbol("STRING-DOWNCASE",null);
T126g1676=T126e1;
T126e2=function (T126g1677)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g1677;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=403;continue;}
T126T37ret=T126g1677.toLowerCase();
case 403:
return T126T37ret;
}}};
userfun_stringDowncase=T126e2;
T126T37ret=userfun_stringDowncase;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_stringDowncase,T126g1676);
T126T37ret=null;
T126e1=userfun_symbol("%SUBSEQ-STRING",null);
T126g1678=T126e1;
T126e2=function (T126g1679,T126g1680,T126g1681)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=(T126g1680==T126g1681);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=407;continue;}
T126T37ret="";
_I_=406;continue;
case 407:
T126T37tmp=new userfun_T37cons(T126g1680,null);
T126T37tmp=new userfun_T37cons(T126g1681,T126T37tmp);
T126T37tmp=userfun_T45(T126T37tmp);
T126T37ret=T126g1679.substr(T126g1680,T126T37tmp);
case 406:
return T126T37ret;
}}};
userfun_T37subseqString=T126e2;
T126T37ret=userfun_T37subseqString;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37subseqString,T126g1678);
T126e1=userfun_symbol("%MEMBER-R",null);
T126g1682=T126e1;
T126e2=function (T126g1684,T126g1685)
{
var T126g1686;
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 409:
T126g1686=true;
if(!T126g1685&&T126g1685!==0&&T126g1685!==''){_I_=412;continue;}
T126g1686=null;
case 412:
if(!T126g1686&&T126g1686!==0&&T126g1686!==''){_I_=415;continue;}
T126T37ret=null;
_I_=410;continue;
case 415:
T126T37tmp=(T126g1685==null?null:T126g1685._);
T126T37ret=userfun_eql(T126g1684,T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=417;continue;}
T126T37ret=T126g1685;
_I_=410;continue;
case 417:
T126g1685=(T126g1685==null?null:T126g1685.__);
_I_=409;continue;
case 410:
return T126T37ret;
}}};
userfun_T37memberR=T126e2;
T126T37ret=userfun_T37memberR;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37memberR,T126g1682);
T126e1=userfun_symbol("MEMBER",null);
T126g1690=T126e1;
T126e3=function (T126g1693)
{
var T126e4;
var T126T37ret;
var T126e15;
T126e4=function (T126g1694,T126g1695)
{
var T126g1696;
var T126g1698;
var T126T37tmp;
var T126g1699;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1696=T126g1695;
case 419:
T126g1698=true;
if(!T126g1696&&T126g1696!==0&&T126g1696!==''){_I_=422;continue;}
T126g1698=null;
case 422:
if(!T126g1698&&T126g1698!==0&&T126g1698!==''){_I_=425;continue;}
_I_=418;continue;
case 425:
T126T37tmp=(T126g1696==null?null:T126g1696._);
T126g1699=userfun_T37memberR(T126g1694,T126T37tmp);
if(!T126g1699&&T126g1699!==0&&T126g1699!==''){_I_=427;continue;}
T126T37ret=T126g1699;
_I_=420;continue;
case 427:
T126g1696=(T126g1696==null?null:T126g1696.__);
_I_=419;continue;
case 418:
T126T37ret=null;
case 420:
return T126T37ret;
}}};
T126g1693=T126e4;
T126T37ret=T126g1693;
T126e15=function (T126g1700)
{
var T126g1701;
var T126T37tmp;
var T126T37ret;
T126g1701=(T126g1700==null?null:T126g1700._);
T126g1700=(T126g1700==null?null:T126g1700.__);
T126T37tmp=T126g1700;
T126T37ret=T126g1693(T126g1701,T126T37tmp);
return T126T37ret;
};
T126g1693.treExp=T126e15;
T126T37ret=T126g1693;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_member=T126e2;
T126T37ret=userfun_member;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_member,T126g1690);
T126e1=userfun_symbol("%HREF-OBJECT-KEY",null);
T126g1703=T126e1;
T126e2=function (T126g1704)
{
var T126T37ret;
T126T37ret=("_caroshi_obj"+T126g1704._caroshiObjectId);
return T126T37ret;
};
userfun_T37hrefObjectKey=T126e2;
T126T37ret=userfun_T37hrefObjectKey;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37hrefObjectKey,T126g1703);
T126e1=userfun_symbol("%HREF-MAKE-OBJECT-KEY",null);
T126g1705=T126e1;
T126e2=function (T126g1706)
{
var T126g1707;
var T126g1708;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1707=true;
T126g1708=true;
T126T37tmp=typeof T126g1706._caroshiObjectId;
T126T37ret=("undefined"==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=430;continue;}
T126g1708=null;
case 430:
if(!T126g1708&&T126g1708!==0&&T126g1708!==''){_I_=432;continue;}
T126g1707=null;
case 432:
T126T37ret=T126g1707;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=434;continue;}
T126g1706._caroshiObjectId=userfun_gensymNumber();
T126T37ret=T126g1706._caroshiObjectId;
case 434:
return T126T37ret;
}}};
userfun_T37hrefMakeObjectKey=T126e2;
T126T37ret=userfun_T37hrefMakeObjectKey;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37hrefMakeObjectKey,T126g1705);
T126e1=userfun_symbol("%%USETF-HREF",null);
T126g1709=T126e1;
T126e2=function (T126g1710,T126g1711,T126g1712)
{
var T126T37ret;
var T126g1713;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_objectT63(T126g1712);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=438;continue;}
userfun_T37hrefMakeObjectKey(T126g1712);
T126g1713=userfun_T37hrefObjectKey(T126g1712);
T126g1713._caroshiKeyObject=T126g1712;
T126T37ret=T126g1711[T126g1713]=T126g1710;
_I_=437;continue;
case 438:
T126T37ret=T126g1711[T126g1712]=T126g1710;
case 437:
return T126T37ret;
}}};
userfun_T37T37usetfHref=T126e2;
T126T37ret=userfun_T37T37usetfHref;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37T37usetfHref,T126g1709);
T126e1=userfun_symbol("HREF",null);
T126g1714=T126e1;
T126e2=function (T126g1715,T126g1716)
{
var T126T37ret;
var T126g1717;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_objectT63(T126g1716);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=446;continue;}
T126g1717=true;
T126T37tmp=typeof T126g1716._caroshiObjectId;
T126T37ret=("undefined"==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=441;continue;}
T126g1717=null;
case 441:
T126T37ret=T126g1717;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=445;continue;}
T126T37tmp=userfun_T37hrefObjectKey(T126g1716);
T126T37ret=T126g1715[T126T37tmp];
_I_=445;continue;
case 446:
T126T37ret=T126g1715[T126g1716];
case 445:
return T126T37ret;
}}};
userfun_href=T126e2;
T126T37ret=userfun_href;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_href,T126g1714);
T126e1=userfun_symbol("HASH-TABLE?",null);
T126g1718=T126e1;
T126e2=function (T126g1719)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_objectT63(T126g1719);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=449;continue;}
T126T37tmp=typeof T126g1719.__class;
T126T37ret=("undefined"==T126T37tmp);
case 449:
return T126T37ret;
}}};
userfun_hashTableT63=T126e2;
T126T37ret=userfun_hashTableT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_hashTableT63,T126g1718);
T126e1=userfun_symbol("HASH-ASSOC",null);
T126g1720=T126e1;
T126e2=function (T126g1721)
{
var T126g1726;
var T126g1722;
var T126e4;
var T126T37ret;
T126g1722=null;
T126e4=function (T126g1723,T126g1724)
{
var T126g1725;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1725=true;
T126T37tmp=typeof T126g1723._caroshiKeyObject;
T126T37ret=("undefined"==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=452;continue;}
T126g1725=null;
case 452:
if(!T126g1725&&T126g1725!==0&&T126g1725!==''){_I_=455;continue;}
T126T37ret=T126g1723._caroshiKeyObject;
_I_=454;continue;
case 455:
T126T37ret=T126g1723;
case 454:
T126T37tmp=T126T37ret;
T126g1722=userfun_acons(T126T37tmp,T126g1724,T126g1722);
T126T37ret=T126g1722;
return T126T37ret;
}}};
userfun_maphash(T126e4,T126g1721);
T126T37ret=userfun_reverse(T126g1722);
return T126T37ret;
};
userfun_hashAssoc=T126e2;
T126T37ret=userfun_hashAssoc;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_hashAssoc,T126g1720);
T126e1=userfun_symbol("HASH-MERGE",null);
T126g1729=T126e1;
T126e2=function (T126g1730,T126g1731)
{
var T126g1732;
var T126T37ret;
var T126g1733;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1732=T126g1730;
if(!T126g1732&&T126g1732!==0&&T126g1732!==''){_I_=459;continue;}
T126T37ret=T126g1732;
_I_=458;continue;
case 459:
T126T37ret=T126g1731;
case 458:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=465;continue;}
T126g1733=true;
if(!T126g1730&&T126g1730!==0&&T126g1730!==''){_I_=461;continue;}
T126g1733=null;
case 461:
if(!T126g1733&&T126g1733!==0&&T126g1733!==''){_I_=463;continue;}
T126g1730={};
case 463:
for (var k in T126g1731) T126g1730[k]=T126g1731[k];;
T126T37ret=T126g1730;
case 465:
return T126T37ret;
}}};
userfun_hashMerge=T126e2;
T126T37ret=userfun_hashMerge;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_hashMerge,T126g1729);
T126T37ret=null;
T126e1=userfun_symbol("BASE64-ENCODE",null);
T126g1734=T126e1;
T126e2=function (T126g1735)
{
var T126T37ret;
T126T37ret=btoa(T126g1735);
return T126T37ret;
};
userfun_base64Encode=T126e2;
T126T37ret=userfun_base64Encode;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_base64Encode,T126g1734);
T126e1=userfun_symbol("BASE64-DECODE",null);
T126g1736=T126e1;
T126e2=function (T126g1737)
{
var T126T37ret;
T126T37ret=atob(T126g1737);
return T126T37ret;
};
userfun_base64Decode=T126e2;
T126T37ret=userfun_base64Decode;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_base64Decode,T126g1736);
T126e1=userfun_symbol("ASSOC",null);
T126g1744=T126e1;
T126e3=function (T126g1748)
{
var T126e4;
var T126T37ret;
var T126e32;
T126e4=function (T126g1749,T126g1750,T126g1751)
{
var T126T37ret;
var T126g1752;
var T126g1753;
var T126g1755;
var T126g1754;
var T126g1756;
var T126g1757;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g1750;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=494;continue;}
T126g1752=true;
T126T37ret=userfun_consT63(T126g1750);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=476;continue;}
T126g1752=null;
case 476:
if(!T126g1752&&T126g1752!==0&&T126g1752!==''){_I_=478;continue;}
T37error("list expected");
case 478:
T126g1753=T126g1750;
case 470:
T126g1755=true;
if(!T126g1753&&T126g1753!==0&&T126g1753!==''){_I_=480;continue;}
T126g1755=null;
case 480:
if(!T126g1755&&T126g1755!==0&&T126g1755!==''){_I_=483;continue;}
_I_=469;continue;
case 483:
T126g1754=(T126g1753==null?null:T126g1753._);
T126T37ret=userfun_consT63(T126g1754);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=492;continue;}
T126g1756=T126g1751;
T126g1757=T126g1756.treExp;
if(!T126g1757&&T126g1757!==0&&T126g1757!==''){_I_=485;continue;}
T126T37tmp=(T126g1754==null?null:T126g1754._);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(T126g1749,T126T37tmp);
T126T37tmp=userfun_list(T126T37tmp);
T126T37ret=T126g1757.apply(null,[T126T37tmp]);
_I_=484;continue;
case 485:
T126T37tmp=(T126g1754==null?null:T126g1754._);
T126T37ret=T126g1756(T126g1749,T126T37tmp);
case 484:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=491;continue;}
T126T37ret=T126g1754;
_I_=494;continue;
case 492:
T126T37ret=print(T126g1754);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=491;continue;}
T37error("not a pair");
case 491:
T126g1753=(T126g1753==null?null:T126g1753.__);
_I_=470;continue;
case 469:
T126T37ret=null;
case 494:
return T126T37ret;
}}};
T126g1748=T126e4;
T126T37ret=T126g1748;
T126e32=function (T126g1759)
{
var T126g1766;
var T126g1762;
var T126g1763;
var T126e33;
var T126g1760;
var T126g1761;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1762=T126g4384;
T126g1763=null;
T126e33=function ()
{
var T126g1765;
var T126g1764;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 473:
T126g1765=true;
T126g1764=(T126g1759==null?null:T126g1759._);
T126T37tmp=T126g1764;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=496;continue;}
T126g1765=null;
case 496:
if(!T126g1765&&T126g1765!==0&&T126g1765!==''){_I_=499;continue;}
T126T37ret=null;
_I_=474;continue;
case 499:
T126T37ret=(T126g1764===T126g4385);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=473;continue;}
T126g1759=(T126g1759==null?null:T126g1759.__);
T126g1762=(T126g1759==null?null:T126g1759._);
T126g1759=(T126g1759==null?null:T126g1759.__);
_I_=473;continue;
case 474:
return T126T37ret;
}}};
T126g1763=T126e33;
;
T126g1763();
T126g1760=(T126g1759==null?null:T126g1759._);
T126g1759=(T126g1759==null?null:T126g1759.__);
T126g1763();
T126g1761=(T126g1759==null?null:T126g1759._);
T126g1759=(T126g1759==null?null:T126g1759.__);
T126g1763();
T126T37ret=(T126g1762===T126g4384);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=502;continue;}
T126g1762=userfun_eql;
case 502:
T126T37ret=T126g1748(T126g1760,T126g1761,T126g1762);
return T126T37ret;
}}};
T126g1748.treExp=T126e32;
T126T37ret=T126g1748;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_assoc=T126e2;
T126T37ret=userfun_assoc;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_assoc,T126g1744);
var T126g4374=userfun_symbol("X",null);
var T126g4375=userfun_symbol("DOC",null);
var T126g4376=userfun_symbol("STANDARD-MACROS",null);
var T126g4377=userfun_symbol("CONTINUER",null);
var T126g4378=userfun_symbol("LST",null);
var T126g4379=userfun_symbol("FUN",null);
var T126g4380=userfun_symbol("ARGS",null);
var T126g4381=userfun_symbol("PKG",null);
var T126g4382=userfun_symbol("OBJ",null);
var T126g4383=userfun_symbol("SEQ",null);
var T126g4384=userfun_symbol("TEST",null);
var T126g4385=userfun_symbol("TEST",userfun_symbol("",null));
var T126g4386=userfun_symbol("ELM",null);
var T126g4387=userfun_symbol("LSTS",null);
var T126g4388=userfun_symbol("KEY",null);
var T126g4389=userfun_symbol("MAKE-ARRAY",null);
var T126g4390=userfun_symbol("START",null);
var T126g4391=userfun_symbol("END",null);
var T126g4392=userfun_symbol("TAIL",null);
var T126g4393=userfun_symbol("IGNORE-CASE?",null);
var T126g4394=userfun_symbol("IGNORE-CASE?",userfun_symbol("",null));
var T126g4395=userfun_symbol("HEAD",null);
var T126g4396=userfun_symbol("PRED",null);
var T126g4397=userfun_symbol("FROM-END",null);
var T126g4398=userfun_symbol("START",userfun_symbol("",null));
var T126g4399=userfun_symbol("END",userfun_symbol("",null));
var T126g4400=userfun_symbol("FROM-END",userfun_symbol("",null));
var T126g4401=userfun_symbol("SEQS",null);
var T126g4402=userfun_symbol("FUNC",null);
var T126g4403=userfun_symbol("LISTS",null);
var T126g4404=userfun_symbol("Y",null);
var T126g4405=userfun_symbol("MIN",null);
var T126g4406=userfun_symbol("QUOTE",null);
var T126g4407=userfun_symbol("BACKQUOTE",null);
var T126g4408=userfun_symbol("STR",null);
var T126g4409=userfun_symbol("TXT",null);
var T126g4410=userfun_symbol("CONVERT?",null);
var T126g4411=userfun_symbol("CONVERT?",userfun_symbol("",null));
var T126g4412=userfun_symbol("WITH-INDEX",null);
var T126g4413=userfun_symbol("WITH-INDEX",userfun_symbol("",null));
var T126g4414=userfun_symbol("HANDLE",null);
var T126g4415=userfun_symbol("LAST-CHAR",null);
var T126g4416=userfun_symbol("PEEKED-CHAR",null);
var T126g4417=userfun_symbol("FUN-IN",null);
var T126g4418=userfun_symbol("FUN-OUT",null);
var T126g4419=userfun_symbol("FUN-EOF",null);
var T126g4420=userfun_symbol("USER-DETAIL",null);
var T126g4421=userfun_symbol("STREAM",null);
var T126g4422=userfun_symbol("HANDLE",userfun_symbol("",null));
var T126g4423=userfun_symbol("FUN-IN",userfun_symbol("",null));
var T126g4424=userfun_symbol("FUN-OUT",userfun_symbol("",null));
var T126g4425=userfun_symbol("FUN-EOF",userfun_symbol("",null));
var T126g4426=userfun_symbol("LAST-CHAR",userfun_symbol("",null));
var T126g4427=userfun_symbol("PEEKED-CHAR",userfun_symbol("",null));
var T126g4428=userfun_symbol("USER-DETAIL",userfun_symbol("",null));
var T126g4429=userfun_symbol("VISITED",null);
var T126g4430=userfun_symbol("FIRST-OCCURENCES",null);
var T126g4431=userfun_symbol("PRINT-INFO",null);
var T126g4432=userfun_symbol("VISITED",userfun_symbol("",null));
var T126g4433=userfun_symbol("FIRST-OCCURENCES",userfun_symbol("",null));
var T126g4434=userfun_symbol("ARGS-TO-BUILTIN",null);
var T126g4435=userfun_symbol("&REST",null);
var T126g4436=userfun_symbol("EN",null);
var T126g4437=userfun_symbol("DE",null);
var T126g4438=userfun_symbol("WIN",null);
var T126g4439=userfun_symbol("WIN",userfun_symbol("",null));
var T126g4440=userfun_symbol("NEXT-SIBLING",null);
var T126g4441=userfun_symbol("TEXT",null);
var T126g4442=userfun_symbol("DOC",userfun_symbol("",null));
var T126g4443=userfun_symbol("NAME",null);
var T126g4444=userfun_symbol("ATTRS",null);
var T126g4445=userfun_symbol("STYLE",null);
var T126g4446=userfun_symbol("NS",null);
var T126g4447=userfun_symbol("NS",userfun_symbol("",null));
var T126g4448=userfun_symbol("HTML-DOCUMENT",null);
var T126g4449=userfun_symbol("FROM-DOC",null);
var T126g4450=userfun_symbol("TO-DOC",null);
var T126g4451=userfun_symbol("REMOVE-CHILDREN?",null);
var T126g4452=userfun_symbol("REMOVE-CHILDREN?",userfun_symbol("",null));
var T126g4453=userfun_symbol("URL",null);
var T126g4454=userfun_symbol("ROOT",null);
var T126g4455=userfun_symbol("HEADER",null);
var T126g4456=userfun_symbol("IN-EDITOR?",null);
var T126g4457=userfun_symbol("IN-EDITOR?",userfun_symbol("",null));
var T126g4458=userfun_symbol("IFRAME",null);
var T126g4459=userfun_symbol("OP",null);
var T126g4460=userfun_symbol("CL",null);
var T126g4461=userfun_symbol("ORIGINAL-HEIGHT",null);
var T126g4462=userfun_symbol("OP-HEIGHT",null);
var T126g4463=userfun_symbol("OP-OPACITY",null);
var T126g4464=userfun_symbol("CL-HEIGHT",null);
var T126g4465=userfun_symbol("CL-OPACITY",null);
var T126g4466=userfun_symbol("ORIGINAL-HEIGHT",userfun_symbol("",null));
var T126g4467=userfun_symbol("OP-HEIGHT",userfun_symbol("",null));
var T126g4468=userfun_symbol("OP-OPACITY",userfun_symbol("",null));
var T126g4469=userfun_symbol("CL-HEIGHT",userfun_symbol("",null));
var T126g4470=userfun_symbol("CL-OPACITY",userfun_symbol("",null));
var T126g4471=userfun_symbol("TO",null);
var T126g4472=userfun_symbol("FROM",null);
var T126g4473=userfun_symbol("CLS",null);
var T126g4474=userfun_symbol("POSITION",null);
var T126g4475=userfun_symbol("X",userfun_symbol("",null));
var T126g4476=userfun_symbol("Y",userfun_symbol("",null));
var T126g4477=userfun_symbol("STYLE",userfun_symbol("",null));
var T126g4478=userfun_symbol("POSITION",userfun_symbol("",null));
var T126g4479=userfun_symbol("INTERVAL",null);
var T126g4480=userfun_symbol("STEP",null);
var T126g4481=userfun_symbol("INTERVAL",userfun_symbol("",null));
var T126g4482=userfun_symbol("STEP",userfun_symbol("",null));
var T126g4483=userfun_symbol("CONTINUER",userfun_symbol("",null));
T126e1=userfun_symbol("ACONS",null);
T126g3464=T126e1;
T126e2=function (T126g3465,T126g3466,T126g3467)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=new userfun_T37cons(T126g3465,T126g3466);
T126T37ret=new userfun_T37cons(T126T37tmp,T126g3467);
return T126T37ret;
};
userfun_acons=T126e2;
T126T37ret=userfun_acons;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_acons,T126g3464);
T126e1=userfun_symbol("REVERSE",null);
T126g3468=T126e1;
T126e2=function (T126g3469)
{
var T126g3470;
var T126g3471;
var T126g3473;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3470=null;
T126g3471=T126g3469;
case 1945:
T126g3473=true;
if(!T126g3471&&T126g3471!==0&&T126g3471!==''){_I_=1949;continue;}
T126g3473=null;
case 1949:
if(!T126g3473&&T126g3473!==0&&T126g3473!==''){_I_=1952;continue;}
_I_=1944;continue;
case 1952:
T126T37tmp=(T126g3471==null?null:T126g3471._);
T126g3470=new userfun_T37cons(T126T37tmp,T126g3470);
T126g3471=(T126g3471==null?null:T126g3471.__);
_I_=1945;continue;
case 1944:
T126T37ret=T126g3470;
return T126T37ret;
}}};
userfun_reverse=T126e2;
T126T37ret=userfun_reverse;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_reverse,T126g3468);
T126e1=userfun_symbol("KEYWORD?",null);
T126g3474=T126e1;
T126e2=function (T126g3475)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_symbolT63(T126g3475);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1955;continue;}
T126T37tmp=userfun_symbolPackage(T126g3475);
T126T37ret=(T126T37tmp===KEYWORDPACKAGE);
case 1955:
return T126T37ret;
}}};
userfun_keywordT63=T126e2;
T126T37ret=userfun_keywordT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_keywordT63,T126g3474);
T126e1=userfun_symbol("EXPANDER-HAS-MACRO?",null);
T126g3476=T126e1;
T126e2=function (T126g3477,T126g3478)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_expanderGet(T126g3477);
T126T37tmp=userfun_expanderMacros(T126T37tmp);
T126T37tmp=userfun_assoc(T126g3478,T126T37tmp,userfun_eq);
T126T37ret=(T126T37tmp==null?null:T126T37tmp.__);
return T126T37ret;
};
userfun_expanderHasMacroT63=T126e2;
T126T37ret=userfun_expanderHasMacroT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_expanderHasMacroT63,T126g3476);
T126e1=userfun_symbol("EXPANDER-EXPAND",null);
T126g3485=T126e1;
T126e2=function (T126g3486,T126g3487)
{
var T126g3503;
var T126g3488;
var T126g3489;
var T126g3490;
var T126T37tmp;
var T126T37ret;
var T126e11;
var T126g3492;
var T126g3493;
var T126g3494;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3488=userfun_expanderGet(T126g3486);
T126g3489=userfun_expanderPre(T126g3488);
T126g3490=T126g3489.treExp;
if(!T126g3490&&T126g3490!==0&&T126g3490!==''){_I_=1962;continue;}
T126T37tmp=userfun_list(null);
T126T37ret=T126g3490.apply(null,[T126T37tmp]);
_I_=1961;continue;
case 1962:
T126T37ret=T126g3489();
case 1961:
T126e11=function (T126g3496)
{
var T126g3497;
var T126g3499;
var T126g3501;
var T126g3502;
var T126g3500;
var T126g3498;
var T126T37ret;
T126g3497=CURRENTEXPANDER;
CURRENTEXPANDER=T126g3488;
T126g3499=MACROPDIVERSION;
MACROPDIVERSION=userfun_expanderPred(T126g3488);
T126g3501=MACROCALLDIVERSION;
MACROCALLDIVERSION=userfun_expanderCall(T126g3488);
T126g3502=userfun_T37macroexpand(T126g3496);
MACROCALLDIVERSION=T126g3501;
T126g3500=T126g3502;
MACROPDIVERSION=T126g3499;
T126g3498=T126g3500;
CURRENTEXPANDER=T126g3497;
T126T37ret=T126g3498;
return T126T37ret;
};
T126g3492=userfun_repeatWhileChanges(T126e11,T126g3487);
T126g3493=userfun_expanderPost(T126g3488);
T126g3494=T126g3493.treExp;
if(!T126g3494&&T126g3494!==0&&T126g3494!==''){_I_=1965;continue;}
T126T37tmp=userfun_list(null);
T126g3494.apply(null,[T126T37tmp]);
_I_=1964;continue;
case 1965:
T126g3493();
case 1964:
T126T37ret=T126g3492;
return T126T37ret;
}}};
userfun_expanderExpand=T126e2;
T126T37ret=userfun_expanderExpand;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_expanderExpand,T126g3485);
T126e1=userfun_symbol("ERROR",null);
T126g3505=T126e1;
T126e3=function (T126g3507)
{
var T126e4;
var T126T37ret;
T126e4=function (T126g3508)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=new userfun_T37cons(T126g3508,null);
T126T37tmp=new userfun_T37cons(null,T126T37tmp);
T126T37tmp=new userfun_T37cons(userfun_format,T126T37tmp);
T126T37tmp=userfun_apply(T126T37tmp);
T126T37ret=T37error(T126T37tmp);
return T126T37ret;
};
T126g3507=T126e4;
T126g3507.treExp=T126g3507;
T126T37ret=T126g3507;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_error=T126e2;
T126T37ret=userfun_error;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_error,T126g3505);
T126e1=userfun_symbol("LAST",null);
T126g3509=T126e1;
T126e2=function (T126g3510)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g3510;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1973;continue;}
T126T37ret=(T126g3510==null?null:T126g3510.__);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1971;continue;}
T126T37tmp=(T126g3510==null?null:T126g3510.__);
T126T37ret=userfun_last(T126T37tmp);
_I_=1973;continue;
case 1971:
T126T37ret=T126g3510;
case 1973:
return T126T37ret;
}}};
userfun_last=T126e2;
T126T37ret=userfun_last;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_last,T126g3509);
T126e1=userfun_symbol("%NCONC",null);
T126g3511=T126e1;
T126e2=function (T126g3512,T126g3513)
{
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
if(!T126g3512&&T126g3512!==0&&T126g3512!==''){_I_=1977;continue;}
T126T37tmp=userfun_last(T126g3512);
userfun_rplacd(T126T37tmp,T126g3513);
T126T37ret=T126g3512;
_I_=1976;continue;
case 1977:
T126T37ret=T126g3513;
case 1976:
return T126T37ret;
}}};
userfun_T37nconc=T126e2;
T126T37ret=userfun_T37nconc;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37nconc,T126g3511);
T126e1=userfun_symbol("BUTLAST",null);
T126g3514=T126e1;
T126e2=function (T126g3515)
{
var T126T37ret;
var T126e7;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=(T126g3515==null?null:T126g3515.__);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1981;continue;}
T126e7=(T126g3515==null?null:T126g3515._);
T126T37tmp=(T126g3515==null?null:T126g3515.__);
T126T37tmp=userfun_butlast(T126T37tmp);
T126T37ret=new userfun_T37cons(T126e7,T126T37tmp);
case 1981:
return T126T37ret;
}}};
userfun_butlast=T126e2;
T126T37ret=userfun_butlast;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_butlast,T126g3514);
T126e1=userfun_symbol("LISTP",null);
T126g3516=T126e1;
T126e2=function (T126g3517)
{
var T126T37ret;
var T126g3518;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_consT63(T126g3517);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1987;continue;}
T126T37ret=true;
_I_=1986;continue;
case 1987:
T126g3518=true;
if(!T126g3517&&T126g3517!==0&&T126g3517!==''){_I_=1984;continue;}
T126g3518=null;
case 1984:
T126T37ret=T126g3518;
case 1986:
return T126T37ret;
}}};
userfun_listp=T126e2;
T126T37ret=userfun_listp;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_listp,T126g3516);
T126e1=userfun_symbol("NTH",null);
T126g3519=T126e1;
T126e2=function (T126g3520,T126g3521)
{
var T126T37ret;
var T126e7;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g3521;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1993;continue;}
T126T37ret=(T126g3520>0);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1991;continue;}
T126e7=(T126g3520-1);
T126T37tmp=(T126g3521==null?null:T126g3521.__);
T126T37ret=userfun_nth(T126e7,T126T37tmp);
_I_=1993;continue;
case 1991:
T126T37ret=(T126g3521==null?null:T126g3521._);
case 1993:
return T126T37ret;
}}};
userfun_nth=T126e2;
T126T37ret=userfun_nth;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_nth,T126g3519);
T126e1=userfun_symbol("NTHCDR",null);
T126g3522=T126e1;
T126e2=function (T126g3523,T126g3524)
{
var T126T37ret;
var T126e9;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g3524;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2000;continue;}
T126T37ret=(0==T126g3523);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1998;continue;}
T126T37ret=T126g3524;
_I_=2000;continue;
case 1998:
T126e9=userfun_integer1T45(T126g3523);
T126T37tmp=(T126g3524==null?null:T126g3524.__);
T126T37ret=userfun_nthcdr(T126e9,T126T37tmp);
case 2000:
return T126T37ret;
}}};
userfun_nthcdr=T126e2;
T126T37ret=userfun_nthcdr;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_nthcdr,T126g3522);
T126e1=userfun_symbol("ARRAY-LIST",null);
T126g3525=T126e1;
T126e2=function (T126g3526)
{
var T126g3527;
var T126g3529;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3527=userfun_makeQueue();
T126g3529=0;
case 2002:
T126T37tmp=userfun_length(T126g3526);
T126T37ret=(T126g3529==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2007;continue;}
T126T37ret=userfun_queueList(T126g3527);
_I_=2003;continue;
case 2007:
T126T37tmp=T126g3526[T126g3529];
userfun_enqueue(T126g3527,T126T37tmp);
T126g3529=(1+T126g3529);
_I_=2002;continue;
case 2003:
return T126T37ret;
}}};
userfun_arrayList=T126e2;
T126T37ret=userfun_arrayList;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_arrayList,T126g3525);
T126e1=userfun_symbol("GENERIC-SPLIT",null);
T126g3530=T126e1;
T126e3=function (T126g3534)
{
var T126e4;
var T126T37ret;
var T126e16;
T126e4=function (T126g3535,T126g3536,T126g3537)
{
var T126T37ret;
var T126g3538;
var T126e10;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g3536;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2016;continue;}
T126g3538=userfun_position(T126g3535,T126g3536,null,null,null,T126g3537);
if(!T126g3538&&T126g3538!==0&&T126g3538!==''){_I_=2014;continue;}
T126e10=userfun_subseq(T126g3536,0,T126g3538);
T126T37tmp=userfun_integer1T43(T126g3538);
T126T37tmp=userfun_subseq(T126g3536,T126T37tmp,99999);
T126T37tmp=userfun_split(T126g3535,T126T37tmp,T126g3537);
T126T37ret=new userfun_T37cons(T126e10,T126T37tmp);
_I_=2016;continue;
case 2014:
T126T37tmp=new userfun_T37cons(T126g3536,null);
T126T37ret=userfun_list(T126T37tmp);
case 2016:
return T126T37ret;
}}};
T126g3534=T126e4;
T126T37ret=T126g3534;
T126e16=function (T126g3539)
{
var T126g3546;
var T126g3542;
var T126g3543;
var T126e17;
var T126g3540;
var T126g3541;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3542=T126g4384;
T126g3543=null;
T126e17=function ()
{
var T126g3545;
var T126g3544;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 2010:
T126g3545=true;
T126g3544=(T126g3539==null?null:T126g3539._);
T126T37tmp=T126g3544;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2018;continue;}
T126g3545=null;
case 2018:
if(!T126g3545&&T126g3545!==0&&T126g3545!==''){_I_=2021;continue;}
T126T37ret=null;
_I_=2011;continue;
case 2021:
T126T37ret=(T126g3544===T126g4385);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2010;continue;}
T126g3539=(T126g3539==null?null:T126g3539.__);
T126g3542=(T126g3539==null?null:T126g3539._);
T126g3539=(T126g3539==null?null:T126g3539.__);
_I_=2010;continue;
case 2011:
return T126T37ret;
}}};
T126g3543=T126e17;
;
T126g3543();
T126g3540=(T126g3539==null?null:T126g3539._);
T126g3539=(T126g3539==null?null:T126g3539.__);
T126g3543();
T126g3541=(T126g3539==null?null:T126g3539._);
T126g3539=(T126g3539==null?null:T126g3539.__);
T126g3543();
T126T37ret=(T126g3542===T126g4384);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2024;continue;}
T126g3542=userfun_eql;
case 2024:
T126T37ret=T126g3534(T126g3540,T126g3541,T126g3542);
return T126T37ret;
}}};
T126g3534.treExp=T126e16;
T126T37ret=T126g3534;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_genericSplit=T126e2;
T126T37ret=userfun_genericSplit;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_genericSplit,T126g3530);
T126e1=userfun_symbol("FILTER",null);
T126g3551=T126e1;
T126e2=function (T126g3552,T126g3553)
{
var T126T37ret;
var T126g3554;
var T126g3555;
var T126T37tmp;
var T126e6;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g3553;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2031;continue;}
T126g3554=T126g3552;
T126g3555=T126g3554.treExp;
if(!T126g3555&&T126g3555!==0&&T126g3555!==''){_I_=2029;continue;}
T126T37tmp=(T126g3553==null?null:T126g3553._);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=userfun_list(T126T37tmp);
T126T37ret=T126g3555.apply(null,[T126T37tmp]);
_I_=2028;continue;
case 2029:
T126T37tmp=(T126g3553==null?null:T126g3553._);
T126T37ret=T126g3554(T126T37tmp);
case 2028:
T126e6=T126T37ret;
T126T37tmp=(T126g3553==null?null:T126g3553.__);
T126T37tmp=userfun_filter(T126g3552,T126T37tmp);
T126T37ret=new userfun_T37cons(T126e6,T126T37tmp);
case 2031:
return T126T37ret;
}}};
userfun_filter=T126e2;
T126T37ret=userfun_filter;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_filter,T126g3551);
T126e1=userfun_symbol("GENSYM-NUMBER",null);
T126g3557=T126e1;
T126e2=function ()
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=new userfun_T37cons(GENSYMCOUNTER,null);
T126T37tmp=new userfun_T37cons(1,T126T37tmp);
GENSYMCOUNTER=userfun_T43(T126T37tmp);
T126T37ret=GENSYMCOUNTER;
return T126T37ret;
};
userfun_gensymNumber=T126e2;
T126T37ret=userfun_gensymNumber;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_gensymNumber,T126g3557);
T126e1=userfun_symbol("MAKE-QUEUE",null);
T126g3558=T126e1;
T126e2=function ()
{
var T126T37ret;
T126T37ret=new userfun_T37cons(null,null);
return T126T37ret;
};
userfun_makeQueue=T126e2;
T126T37ret=userfun_makeQueue;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_makeQueue,T126g3558);
T126e1=userfun_symbol("ENQUEUE",null);
T126g3559=T126e1;
T126e2=function (T126g3560,T126g3561)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=(T126g3560==null?null:T126g3560._);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2039;continue;}
T126T37tmp=new userfun_T37cons(T126g3561,null);
T126T37tmp=userfun_list(T126T37tmp);
T126T37tmp=userfun_T37T37usetfCdar(T126T37tmp,T126g3560);
userfun_T37T37usetfCar(T126T37tmp,T126g3560);
_I_=2038;continue;
case 2039:
T126T37tmp=new userfun_T37cons(T126g3561,null);
T126T37tmp=userfun_list(T126T37tmp);
T126T37tmp=userfun_T37T37usetfCdr(T126T37tmp,T126g3560);
userfun_T37T37usetfCar(T126T37tmp,T126g3560);
case 2038:
T126T37ret=T126g3561;
return T126T37ret;
}}};
userfun_enqueue=T126e2;
T126T37ret=userfun_enqueue;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_enqueue,T126g3559);
T126e1=userfun_symbol("QUEUE-LIST",null);
T126g3562=T126e1;
T126e2=function (T126g3563)
{
var T126T37ret;
T126T37ret=(T126g3563==null?null:T126g3563.__);
return T126T37ret;
};
userfun_queueList=T126e2;
T126T37ret=userfun_queueList;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_queueList,T126g3562);
T126e1=userfun_symbol("NCONC",null);
T126g3564=T126e1;
T126e3=function (T126g3566)
{
var T126e4;
var T126T37ret;
T126e4=function (T126g3567)
{
var T126T37ret;
var T126g3568;
var T126e10;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g3567;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2048;continue;}
T126g3568=(T126g3567==null?null:T126g3567._);
if(!T126g3568&&T126g3568!==0&&T126g3568!==''){_I_=2046;continue;}
T126e10=userfun_last(T126g3568);
T126T37tmp=(T126g3567==null?null:T126g3567.__);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(userfun_nconc,T126T37tmp);
T126T37tmp=userfun_apply(T126T37tmp);
userfun_rplacd(T126e10,T126T37tmp);
T126T37ret=T126g3568;
_I_=2048;continue;
case 2046:
T126T37tmp=(T126g3567==null?null:T126g3567.__);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(userfun_nconc,T126T37tmp);
T126T37ret=userfun_apply(T126T37tmp);
case 2048:
return T126T37ret;
}}};
T126g3566=T126e4;
T126g3566.treExp=T126g3566;
T126T37ret=T126g3566;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_nconc=T126e2;
T126T37ret=userfun_nconc;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_nconc,T126g3564);
T126e1=userfun_symbol("PAD",null);
T126g3569=T126e1;
T126e2=function (T126g3570,T126g3571)
{
var T126T37ret;
var T126e6;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g3570;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2054;continue;}
T126e6=(T126g3570==null?null:T126g3570._);
T126T37tmp=userfun_length(T126g3570);
T126T37ret=(1<T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2052;continue;}
T126T37tmp=(T126g3570==null?null:T126g3570.__);
T126T37tmp=userfun_pad(T126T37tmp,T126g3571);
T126T37ret=new userfun_T37cons(T126g3571,T126T37tmp);
case 2052:
T126T37tmp=T126T37ret;
T126T37ret=new userfun_T37cons(T126e6,T126T37tmp);
case 2054:
return T126T37ret;
}}};
userfun_pad=T126e2;
T126T37ret=userfun_pad;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_pad,T126g3569);
T126e1=userfun_symbol("ALPHA-CHAR-P",null);
T126g3572=T126e1;
T126e3=function (T126g3574)
{
var T126e4;
var T126T37ret;
T126e4=function (T126g3575)
{
var T126g3576;
var T126g3578;
var T126g3577;
var T126g3579;
var T126T37tmp;
var T126g3580;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3576=T126g3575;
case 2057:
T126g3578=true;
if(!T126g3576&&T126g3576!==0&&T126g3576!==''){_I_=2061;continue;}
T126g3578=null;
case 2061:
if(!T126g3578&&T126g3578!==0&&T126g3578!==''){_I_=2064;continue;}
_I_=2056;continue;
case 2064:
T126g3577=(T126g3576==null?null:T126g3576._);
T126g3579=true;
T126T37tmp=new userfun_T37cons(T126g3577,null);
T126g3580=userfun_lowerCaseP(T126T37tmp);
if(!T126g3580&&T126g3580!==0&&T126g3580!==''){_I_=2066;continue;}
T126T37ret=T126g3580;
_I_=2065;continue;
case 2066:
T126T37tmp=new userfun_T37cons(T126g3577,null);
T126T37ret=userfun_upperCaseP(T126T37tmp);
case 2065:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2068;continue;}
T126g3579=null;
case 2068:
if(!T126g3579&&T126g3579!==0&&T126g3579!==''){_I_=2071;continue;}
T126T37ret=null;
_I_=2058;continue;
case 2071:
T126g3576=(T126g3576==null?null:T126g3576.__);
_I_=2057;continue;
case 2056:
T126T37ret=true;
case 2058:
return T126T37ret;
}}};
T126g3574=T126e4;
T126g3574.treExp=T126g3574;
T126T37ret=T126g3574;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_alphaCharP=T126e2;
T126T37ret=userfun_alphaCharP;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_alphaCharP,T126g3572);
T126e1=userfun_symbol("CDDR",null);
T126g3581=T126e1;
T126e2=function (T126g3582)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=(T126g3582==null?null:T126g3582.__);
T126T37ret=(T126T37tmp==null?null:T126T37tmp.__);
return T126T37ret;
};
userfun_cddr=T126e2;
T126T37ret=userfun_cddr;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_cddr,T126g3581);
T126e1=userfun_symbol("STRING-LIST",null);
T126g3583=T126e1;
T126e2=function (T126g3584)
{
var T126g3585;
var T126g3586;
var T126g3587;
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3585=userfun_length(T126g3584);
T126g3586=null;
T126g3587=userfun_integer1T45(T126g3585);
case 2073:
T126T37ret=(T126g3587<0);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2078;continue;}
_I_=2074;continue;
case 2078:
T126T37tmp=userfun_elt(T126g3584,T126g3587);
T126g3586=new userfun_T37cons(T126T37tmp,T126g3586);
T126g3587=userfun_integer1T45(T126g3587);
_I_=2073;continue;
case 2074:
T126T37ret=T126g3586;
return T126T37ret;
}}};
userfun_stringList=T126e2;
T126T37ret=userfun_stringList;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_stringList,T126g3583);
T126e1=userfun_symbol("SUBSEQ",null);
T126g3588=T126e1;
T126e3=function (T126g3591)
{
var T126e4;
var T126T37ret;
var T126e18;
T126e4=function (T126g3592,T126g3593,T126g3594)
{
var T126T37ret;
var T126g3595;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g3592;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2088;continue;}
T126T37ret=(T126g3593>T126g3594);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2081;continue;}
T126g3595=T126g3593;
T126g3593=T126g3594;
T126g3594=T126g3595;
case 2081:
T126T37ret=userfun_consT63(T126g3592);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2084;continue;}
T126T37ret=userfun_subseqList(T126g3592,T126g3593,T126g3594);
_I_=2088;continue;
case 2084:
T126T37ret=userfun_stringT63(T126g3592);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2085;continue;}
T126T37ret=userfun_T37subseqString(T126g3592,T126g3593,T126g3594);
_I_=2088;continue;
case 2085:
T126T37ret=userfun_arrayT63(T126g3592);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2086;continue;}
T126T37tmp=userfun_symbolFunction(T126g4389);
T126T37ret=userfun_T37subseqSequence(T126T37tmp,T126g3592,T126g3593,T126g3594);
_I_=2088;continue;
case 2086:
print(T126g3592);
T126T37ret=T37error("type not supported");
case 2088:
return T126T37ret;
}}};
T126g3591=T126e4;
T126T37ret=T126g3591;
T126e18=function (T126g3596)
{
var T126g3597;
var T126g3598;
var T126g3599;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3597=(T126g3596==null?null:T126g3596._);
T126g3596=(T126g3596==null?null:T126g3596.__);
T126g3598=(T126g3596==null?null:T126g3596._);
T126g3596=(T126g3596==null?null:T126g3596.__);
if(!T126g3596&&T126g3596!==0&&T126g3596!==''){_I_=2091;continue;}
T126g3599=(T126g3596==null?null:T126g3596._);
T126g3596=(T126g3596==null?null:T126g3596.__);
_I_=2090;continue;
case 2091:
T126g3599=99999;
case 2090:
T126T37ret=T126g3591(T126g3597,T126g3598,T126g3599);
return T126T37ret;
}}};
T126g3591.treExp=T126e18;
T126T37ret=T126g3591;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_subseq=T126e2;
T126T37ret=userfun_subseq;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_subseq,T126g3588);
T126e1=userfun_symbol("ENDS-WITH?",null);
T126g3600=T126e1;
T126e3=function (T126g3604)
{
var T126e4;
var T126T37ret;
var T126e14;
T126e4=function (T126g3605,T126g3606,T126g3607)
{
var T126g3608;
var T126e10;
var T126T37tmp;
var T126g3609;
var T126e12;
var T126T37ret;
T126g3608=userfun_forceString(T126g3605);
T126e10=userfun_length(T126g3608);
T126T37tmp=userfun_length(T126g3606);
T126T37tmp=(T126e10-T126T37tmp);
T126g3609=userfun_subseq(T126g3608,T126T37tmp,99999);
T126e12=userfun_optionalStringDowncase(T126g3606,T126g3607);
T126T37tmp=userfun_optionalStringDowncase(T126g3609,T126g3607);
T126T37ret=(T126e12==T126T37tmp);
return T126T37ret;
};
T126g3604=T126e4;
T126T37ret=T126g3604;
T126e14=function (T126g3610)
{
var T126g3617;
var T126g3613;
var T126g3614;
var T126e15;
var T126g3611;
var T126g3612;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3613=T126g4393;
T126g3614=null;
T126e15=function ()
{
var T126g3616;
var T126g3615;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 2095:
T126g3616=true;
T126g3615=(T126g3610==null?null:T126g3610._);
T126T37tmp=T126g3615;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2098;continue;}
T126g3616=null;
case 2098:
if(!T126g3616&&T126g3616!==0&&T126g3616!==''){_I_=2101;continue;}
T126T37ret=null;
_I_=2096;continue;
case 2101:
T126T37ret=(T126g3615===T126g4394);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2095;continue;}
T126g3610=(T126g3610==null?null:T126g3610.__);
T126g3613=(T126g3610==null?null:T126g3610._);
T126g3610=(T126g3610==null?null:T126g3610.__);
_I_=2095;continue;
case 2096:
return T126T37ret;
}}};
T126g3614=T126e15;
;
T126g3614();
T126g3611=(T126g3610==null?null:T126g3610._);
T126g3610=(T126g3610==null?null:T126g3610.__);
T126g3614();
T126g3612=(T126g3610==null?null:T126g3610._);
T126g3610=(T126g3610==null?null:T126g3610.__);
T126g3614();
T126T37ret=(T126g3613===T126g4393);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2104;continue;}
T126g3613=null;
case 2104:
T126T37ret=T126g3604(T126g3611,T126g3612,T126g3613);
return T126T37ret;
}}};
T126g3604.treExp=T126e14;
T126T37ret=T126g3604;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_endsWithT63=T126e2;
T126T37ret=userfun_endsWithT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_endsWithT63,T126g3600);
T126e1=userfun_symbol("EMPTY-STRING?",null);
T126g3619=T126e1;
T126e3=function (T126g3621)
{
var T126e4;
var T126T37ret;
T126e4=function (T126g3622)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g3622;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2108;continue;}
T126T37tmp=new userfun_T37cons(T126g3622,null);
T126T37ret=userfun_every(userfun_T37emptyStringT63,T126T37tmp);
case 2108:
return T126T37ret;
}}};
T126g3621=T126e4;
T126g3621.treExp=T126g3621;
T126T37ret=T126g3621;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_emptyStringT63=T126e2;
T126T37ret=userfun_emptyStringT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_emptyStringT63,T126g3619);
T126e1=userfun_symbol("CDDDR",null);
T126g3623=T126e1;
T126e2=function (T126g3624)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=(T126g3624==null?null:T126g3624.__);
T126T37tmp=(T126T37tmp==null?null:T126T37tmp.__);
T126T37ret=(T126T37tmp==null?null:T126T37tmp.__);
return T126T37ret;
};
userfun_cdddr=T126e2;
T126T37ret=userfun_cdddr;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_cdddr,T126g3623);
T126e1=userfun_symbol("STARTS-WITH?",null);
T126g3625=T126e1;
T126e3=function (T126g3629)
{
var T126e4;
var T126T37ret;
var T126e16;
T126e4=function (T126g3630,T126g3631,T126g3632)
{
var T126g3633;
var T126T37ret;
var T126e8;
var T126T37tmp;
var T126g3634;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3633=userfun_forceString(T126g3630);
if(!T126g3632&&T126g3632!==0&&T126g3632!==''){_I_=2117;continue;}
T126T37ret=userfun_stringDowncase(T126g3631);
_I_=2116;continue;
case 2117:
T126T37ret=T126g3631;
case 2116:
T126e8=T126T37ret;
T126T37tmp=userfun_length(T126g3631);
T126g3634=userfun_subseq(T126g3633,0,T126T37tmp);
if(!T126g3632&&T126g3632!==0&&T126g3632!==''){_I_=2120;continue;}
T126T37ret=userfun_stringDowncase(T126g3634);
_I_=2119;continue;
case 2120:
T126T37ret=T126g3634;
case 2119:
T126T37tmp=T126T37ret;
T126T37ret=(T126e8==T126T37tmp);
return T126T37ret;
}}};
T126g3629=T126e4;
T126T37ret=T126g3629;
T126e16=function (T126g3635)
{
var T126g3642;
var T126g3638;
var T126g3639;
var T126e17;
var T126g3636;
var T126g3637;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3638=T126g4393;
T126g3639=null;
T126e17=function ()
{
var T126g3641;
var T126g3640;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 2113:
T126g3641=true;
T126g3640=(T126g3635==null?null:T126g3635._);
T126T37tmp=T126g3640;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2122;continue;}
T126g3641=null;
case 2122:
if(!T126g3641&&T126g3641!==0&&T126g3641!==''){_I_=2125;continue;}
T126T37ret=null;
_I_=2114;continue;
case 2125:
T126T37ret=(T126g3640===T126g4394);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2113;continue;}
T126g3635=(T126g3635==null?null:T126g3635.__);
T126g3638=(T126g3635==null?null:T126g3635._);
T126g3635=(T126g3635==null?null:T126g3635.__);
_I_=2113;continue;
case 2114:
return T126T37ret;
}}};
T126g3639=T126e17;
;
T126g3639();
T126g3636=(T126g3635==null?null:T126g3635._);
T126g3635=(T126g3635==null?null:T126g3635.__);
T126g3639();
T126g3637=(T126g3635==null?null:T126g3635._);
T126g3635=(T126g3635==null?null:T126g3635.__);
T126g3639();
T126T37ret=(T126g3638===T126g4393);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2128;continue;}
T126g3638=null;
case 2128:
T126T37ret=T126g3629(T126g3636,T126g3637,T126g3638);
return T126T37ret;
}}};
T126g3629.treExp=T126e16;
T126T37ret=T126g3629;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_startsWithT63=T126e2;
T126T37ret=userfun_startsWithT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_startsWithT63,T126g3625);
T126e1=userfun_symbol("FORCE-LIST",null);
T126g3644=T126e1;
T126e2=function (T126g3645)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_consT63(T126g3645);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2133;continue;}
T126T37ret=T126g3645;
_I_=2132;continue;
case 2133:
T126T37tmp=new userfun_T37cons(T126g3645,null);
T126T37ret=userfun_list(T126T37tmp);
case 2132:
return T126T37ret;
}}};
userfun_forceList=T126e2;
T126T37ret=userfun_forceList;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_forceList,T126g3644);
T126e1=userfun_symbol("CONCAT-STRINGTREE",null);
T126g3646=T126e1;
T126e3=function (T126g3648)
{
var T126e4;
var T126T37ret;
T126e4=function (T126g3649)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_treeList(T126g3649);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(userfun_stringConcat,T126T37tmp);
T126T37ret=userfun_apply(T126T37tmp);
return T126T37ret;
};
T126g3648=T126e4;
T126g3648.treExp=T126g3648;
T126T37ret=T126g3648;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_concatStringtree=T126e2;
T126T37ret=userfun_concatStringtree;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_concatStringtree,T126g3646);
T126e1=userfun_symbol("REMOVE",null);
T126g3653=T126e1;
T126e3=function (T126g3657)
{
var T126e4;
var T126T37ret;
var T126e13;
T126e4=function (T126g3658,T126g3659,T126g3660)
{
var T126g3672;
var T126e7;
var T126T37ret;
T126e7=function (T126g3661)
{
var T126g3662;
var T126g3663;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3662=T126g3660;
T126g3663=T126g3662.treExp;
if(!T126g3663&&T126g3663!==0&&T126g3663!==''){_I_=2143;continue;}
T126T37tmp=new userfun_T37cons(T126g3661,null);
T126T37tmp=new userfun_T37cons(T126g3658,T126T37tmp);
T126T37tmp=userfun_list(T126T37tmp);
T126T37ret=T126g3663.apply(null,[T126T37tmp]);
_I_=2142;continue;
case 2143:
T126T37ret=T126g3662(T126g3658,T126g3661);
case 2142:
return T126T37ret;
}}};
T126T37ret=userfun_removeIf(T126e7,T126g3659);
return T126T37ret;
};
T126g3657=T126e4;
T126T37ret=T126g3657;
T126e13=function (T126g3665)
{
var T126g3674;
var T126g3668;
var T126g3669;
var T126e14;
var T126g3666;
var T126g3667;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3668=T126g4384;
T126g3669=null;
T126e14=function ()
{
var T126g3671;
var T126g3670;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 2139:
T126g3671=true;
T126g3670=(T126g3665==null?null:T126g3665._);
T126T37tmp=T126g3670;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2145;continue;}
T126g3671=null;
case 2145:
if(!T126g3671&&T126g3671!==0&&T126g3671!==''){_I_=2148;continue;}
T126T37ret=null;
_I_=2140;continue;
case 2148:
T126T37ret=(T126g3670===T126g4385);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2139;continue;}
T126g3665=(T126g3665==null?null:T126g3665.__);
T126g3668=(T126g3665==null?null:T126g3665._);
T126g3665=(T126g3665==null?null:T126g3665.__);
_I_=2139;continue;
case 2140:
return T126T37ret;
}}};
T126g3669=T126e14;
;
T126g3669();
T126g3666=(T126g3665==null?null:T126g3665._);
T126g3665=(T126g3665==null?null:T126g3665.__);
T126g3669();
T126g3667=(T126g3665==null?null:T126g3665._);
T126g3665=(T126g3665==null?null:T126g3665.__);
T126g3669();
T126T37ret=(T126g3668===T126g4384);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2151;continue;}
T126g3668=userfun_eql;
case 2151:
T126T37ret=T126g3657(T126g3666,T126g3667,T126g3668);
return T126T37ret;
}}};
T126g3657.treExp=T126e13;
T126T37ret=T126g3657;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_remove=T126e2;
T126T37ret=userfun_remove;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_remove,T126g3653);
T126e1=userfun_symbol("APPEND",null);
T126g3676=T126e1;
T126e3=function (T126g3678)
{
var T126e4;
var T126T37ret;
T126e4=function (T126g3679)
{
var T126T37ret;
var T126T37tmp;
var T126g3680;
var T126e12;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g3679;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2158;continue;}
T126T37ret=(T126g3679==null?null:T126g3679._);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2156;continue;}
T126T37tmp=(T126g3679==null?null:T126g3679._);
T126g3680=userfun_copyList(T126T37tmp);
T126e12=userfun_last(T126g3680);
T126T37tmp=(T126g3679==null?null:T126g3679.__);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(userfun_append,T126T37tmp);
T126T37tmp=userfun_apply(T126T37tmp);
userfun_rplacd(T126e12,T126T37tmp);
T126T37ret=T126g3680;
_I_=2158;continue;
case 2156:
T126T37tmp=(T126g3679==null?null:T126g3679.__);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(userfun_append,T126T37tmp);
T126T37ret=userfun_apply(T126T37tmp);
case 2158:
return T126T37ret;
}}};
T126g3678=T126e4;
T126g3678.treExp=T126g3678;
T126T37ret=T126g3678;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_append=T126e2;
T126T37ret=userfun_append;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_append,T126g3676);
T126e1=userfun_symbol("EMPTY-STRING-OR-NIL?",null);
T126g3681=T126e1;
T126e3=function (T126g3683)
{
var T126e4;
var T126T37ret;
T126e4=function (T126g3684)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g3684;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2162;continue;}
T126T37tmp=new userfun_T37cons(T126g3684,null);
T126T37ret=userfun_every(userfun_T37emptyStringOrNilT63,T126T37tmp);
case 2162:
return T126T37ret;
}}};
T126g3683=T126e4;
T126g3683.treExp=T126g3683;
T126T37ret=T126g3683;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_emptyStringOrNilT63=T126e2;
T126T37ret=userfun_emptyStringOrNilT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_emptyStringOrNilT63,T126g3681);
T126e1=userfun_symbol("MEMBER-IF",null);
T126g3685=T126e1;
T126e3=function (T126g3688)
{
var T126e4;
var T126T37ret;
var T126e17;
T126e4=function (T126g3689,T126g3690)
{
var T126T37tmp;
var T126g3691;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=(T126g3690==null?null:T126g3690._);
T126g3691=userfun_T37memberIfR(T126g3689,T126T37tmp);
if(!T126g3691&&T126g3691!==0&&T126g3691!==''){_I_=2169;continue;}
T126T37ret=T126g3691;
_I_=2168;continue;
case 2169:
T126T37ret=(T126g3690==null?null:T126g3690.__);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2168;continue;}
T126T37tmp=(T126g3690==null?null:T126g3690.__);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(T126g3689,T126T37tmp);
T126T37tmp=new userfun_T37cons(userfun_memberIf,T126T37tmp);
T126T37ret=userfun_apply(T126T37tmp);
case 2168:
return T126T37ret;
}}};
T126g3688=T126e4;
T126T37ret=T126g3688;
T126e17=function (T126g3692)
{
var T126g3693;
var T126T37tmp;
var T126T37ret;
T126g3693=(T126g3692==null?null:T126g3692._);
T126g3692=(T126g3692==null?null:T126g3692.__);
T126T37tmp=T126g3692;
T126T37ret=T126g3688(T126g3693,T126T37tmp);
return T126T37ret;
};
T126g3688.treExp=T126e17;
T126T37ret=T126g3688;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_memberIf=T126e2;
T126T37ret=userfun_memberIf;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_memberIf,T126g3685);
T126e1=userfun_symbol("1-",null);
T126g3695=T126e1;
T126e2=function (T126g3696)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=new userfun_T37cons(1,null);
T126T37tmp=new userfun_T37cons(T126g3696,T126T37tmp);
T126T37ret=userfun_numberT45(T126T37tmp);
return T126T37ret;
};
userfun_1T45=T126e2;
T126T37ret=userfun_1T45;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_1T45,T126g3695);
T126e1=userfun_symbol("1+",null);
T126g3697=T126e1;
T126e2=function (T126g3698)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=new userfun_T37cons(1,null);
T126T37tmp=new userfun_T37cons(T126g3698,T126T37tmp);
T126T37ret=userfun_numberT43(T126T37tmp);
return T126T37ret;
};
userfun_1T43=T126e2;
T126T37ret=userfun_1T43;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_1T43,T126g3697);
T126e1=userfun_symbol("EQUAL",null);
T126g3699=T126e1;
T126e2=function (T126g3700,T126g3701)
{
var T126g3702;
var T126T37ret;
var T126e11;
var T126T37tmp;
var T126e14;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3702=userfun_atom(T126g3700);
if(!T126g3702&&T126g3702!==0&&T126g3702!==''){_I_=2176;continue;}
T126T37ret=T126g3702;
_I_=2175;continue;
case 2176:
T126T37ret=userfun_atom(T126g3701);
case 2175:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2179;continue;}
T126T37ret=userfun_eql(T126g3700,T126g3701);
_I_=2178;continue;
case 2179:
T126e11=(T126g3700==null?null:T126g3700._);
T126T37tmp=(T126g3701==null?null:T126g3701._);
T126T37ret=userfun_equal(T126e11,T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2178;continue;}
T126e14=(T126g3700==null?null:T126g3700.__);
T126T37tmp=(T126g3701==null?null:T126g3701.__);
T126T37ret=userfun_equal(T126e14,T126T37tmp);
case 2178:
return T126T37ret;
}}};
userfun_equal=T126e2;
T126T37ret=userfun_equal;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_equal,T126g3699);
T126e1=userfun_symbol("POSITION",null);
T126g3706=T126e1;
T126e3=function (T126g3710)
{
var T126e4;
var T126T37ret;
var T126e15;
T126e4=function (T126g3711,T126g3712,T126g3713,T126g3714,T126g3715,T126g3716)
{
var T126g3733;
var T126g3717;
var T126e7;
var T126T37ret;
T126g3717=null;
T126e7=function (T126g3718,T126g3719)
{
var T126g3720;
var T126g3721;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3720=T126g3716;
T126g3721=T126g3720.treExp;
if(!T126g3721&&T126g3721!==0&&T126g3721!==''){_I_=2187;continue;}
T126T37tmp=new userfun_T37cons(T126g3711,null);
T126T37tmp=new userfun_T37cons(T126g3718,T126T37tmp);
T126T37tmp=userfun_list(T126T37tmp);
T126T37ret=T126g3721.apply(null,[T126T37tmp]);
_I_=2186;continue;
case 2187:
T126T37ret=T126g3720(T126g3718,T126g3711);
case 2186:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2189;continue;}
T126g3717=T126g3719;
T126T37ret=T126g3717;
case 2189:
return T126T37ret;
}}};
userfun_findIf(T126e7,T126g3712,T126g3713,T126g3714,T126g3715,true);
T126T37ret=T126g3717;
return T126T37ret;
};
T126g3710=T126e4;
T126T37ret=T126g3710;
T126e15=function (T126g3723)
{
var T126g3735;
var T126g3726;
var T126g3727;
var T126g3728;
var T126g3729;
var T126g3730;
var T126e16;
var T126g3724;
var T126g3725;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3726=T126g4390;
T126g3727=T126g4391;
T126g3728=T126g4397;
T126g3729=T126g4384;
T126g3730=null;
T126e16=function ()
{
var T126g3732;
var T126g3731;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 2183:
T126g3732=true;
T126g3731=(T126g3723==null?null:T126g3723._);
T126T37tmp=T126g3731;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2191;continue;}
T126g3732=null;
case 2191:
if(!T126g3732&&T126g3732!==0&&T126g3732!==''){_I_=2194;continue;}
T126T37ret=null;
_I_=2184;continue;
case 2194:
T126T37ret=(T126g3731===T126g4398);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2196;continue;}
T126g3723=(T126g3723==null?null:T126g3723.__);
T126g3726=(T126g3723==null?null:T126g3723._);
T126g3723=(T126g3723==null?null:T126g3723.__);
_I_=2183;continue;
case 2196:
T126T37ret=(T126g3731===T126g4399);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2197;continue;}
T126g3723=(T126g3723==null?null:T126g3723.__);
T126g3727=(T126g3723==null?null:T126g3723._);
T126g3723=(T126g3723==null?null:T126g3723.__);
_I_=2183;continue;
case 2197:
T126T37ret=(T126g3731===T126g4400);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2198;continue;}
T126g3723=(T126g3723==null?null:T126g3723.__);
T126g3728=(T126g3723==null?null:T126g3723._);
T126g3723=(T126g3723==null?null:T126g3723.__);
_I_=2183;continue;
case 2198:
T126T37ret=(T126g3731===T126g4385);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2183;continue;}
T126g3723=(T126g3723==null?null:T126g3723.__);
T126g3729=(T126g3723==null?null:T126g3723._);
T126g3723=(T126g3723==null?null:T126g3723.__);
_I_=2183;continue;
case 2184:
return T126T37ret;
}}};
T126g3730=T126e16;
;
T126g3730();
T126g3724=(T126g3723==null?null:T126g3723._);
T126g3723=(T126g3723==null?null:T126g3723.__);
T126g3730();
T126g3725=(T126g3723==null?null:T126g3723._);
T126g3723=(T126g3723==null?null:T126g3723.__);
T126g3730();
T126T37ret=(T126g3726===T126g4390);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2200;continue;}
T126g3726=null;
case 2200:
T126T37ret=(T126g3727===T126g4391);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2202;continue;}
T126g3727=null;
case 2202:
T126T37ret=(T126g3728===T126g4397);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2204;continue;}
T126g3728=null;
case 2204:
T126T37ret=(T126g3729===T126g4384);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2206;continue;}
T126g3729=userfun_eql;
case 2206:
T126T37ret=T126g3710(T126g3724,T126g3725,T126g3726,T126g3727,T126g3728,T126g3729);
return T126T37ret;
}}};
T126g3710.treExp=T126e15;
T126T37ret=T126g3710;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_position=T126e2;
T126T37ret=userfun_position;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_position,T126g3706);
T126e1=userfun_symbol("EVERY",null);
T126g3740=T126e1;
T126e3=function (T126g3743)
{
var T126e4;
var T126T37ret;
var T126e31;
T126e4=function (T126g3744,T126g3745)
{
var T126g3746;
var T126g3748;
var T126g3747;
var T126g3750;
var T126T37tmp;
var T126T37ret;
var T126g3751;
var T126g3752;
var T126g3753;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3746=T126g3745;
case 2211:
T126g3748=true;
if(!T126g3746&&T126g3746!==0&&T126g3746!==''){_I_=2215;continue;}
T126g3748=null;
case 2215:
if(!T126g3748&&T126g3748!==0&&T126g3748!==''){_I_=2218;continue;}
_I_=2208;continue;
case 2218:
T126g3747=(T126g3746==null?null:T126g3746._);
T126g3750=0;
case 2209:
T126T37tmp=userfun_length(T126g3747);
T126T37ret=(T126g3750==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2220;continue;}
_I_=2210;continue;
case 2220:
T126g3751=true;
T126g3752=T126g3744;
T126g3753=T126g3752.treExp;
if(!T126g3753&&T126g3753!==0&&T126g3753!==''){_I_=2222;continue;}
T126T37tmp=userfun_elt(T126g3747,T126g3750);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=userfun_list(T126T37tmp);
T126T37ret=T126g3753.apply(null,[T126T37tmp]);
_I_=2221;continue;
case 2222:
T126T37tmp=userfun_elt(T126g3747,T126g3750);
T126T37ret=T126g3752(T126T37tmp);
case 2221:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2224;continue;}
T126g3751=null;
case 2224:
if(!T126g3751&&T126g3751!==0&&T126g3751!==''){_I_=2227;continue;}
T126T37ret=null;
_I_=2213;continue;
case 2227:
T126g3750=(1+T126g3750);
_I_=2209;continue;
case 2210:
T126g3746=(T126g3746==null?null:T126g3746.__);
_I_=2211;continue;
case 2208:
T126T37ret=true;
case 2213:
return T126T37ret;
}}};
T126g3743=T126e4;
T126T37ret=T126g3743;
T126e31=function (T126g3755)
{
var T126g3756;
var T126T37tmp;
var T126T37ret;
T126g3756=(T126g3755==null?null:T126g3755._);
T126g3755=(T126g3755==null?null:T126g3755.__);
T126T37tmp=T126g3755;
T126T37ret=T126g3743(T126g3756,T126T37tmp);
return T126T37ret;
};
T126g3743.treExp=T126e31;
T126T37ret=T126g3743;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_every=T126e2;
T126T37ret=userfun_every;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_every,T126g3740);
T126e1=userfun_symbol("MAP",null);
T126g3758=T126e1;
T126e3=function (T126g3761)
{
var T126e4;
var T126T37ret;
var T126e13;
T126e4=function (T126g3762,T126g3763)
{
var T126g3764;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3764=userfun_T37map(T126g3762,T126g3763);
if(!T126g3764&&T126g3764!==0&&T126g3764!==''){_I_=2230;continue;}
T126T37tmp=new userfun_T37cons(T126g3764,null);
T126T37tmp=new userfun_T37cons(T126g3762,T126T37tmp);
userfun_apply(T126T37tmp);
T126T37tmp=new userfun_T37cons(T126g3763,null);
T126T37tmp=new userfun_T37cons(T126g3762,T126T37tmp);
T126T37tmp=new userfun_T37cons(userfun_map,T126T37tmp);
userfun_apply(T126T37tmp);
case 2230:
T126T37ret=null;
return T126T37ret;
}}};
T126g3761=T126e4;
T126T37ret=T126g3761;
T126e13=function (T126g3765)
{
var T126g3766;
var T126T37tmp;
var T126T37ret;
T126g3766=(T126g3765==null?null:T126g3765._);
T126g3765=(T126g3765==null?null:T126g3765.__);
T126T37tmp=T126g3765;
T126T37ret=T126g3761(T126g3766,T126T37tmp);
return T126T37ret;
};
T126g3761.treExp=T126e13;
T126T37ret=T126g3761;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_map=T126e2;
T126T37ret=userfun_map;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_map,T126g3758);
T126e1=userfun_symbol("MAPCAN",null);
T126g3768=T126e1;
T126e3=function (T126g3771)
{
var T126e4;
var T126T37ret;
var T126e13;
T126e4=function (T126g3772,T126g3773)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=new userfun_T37cons(T126g3773,null);
T126T37tmp=new userfun_T37cons(T126g3772,T126T37tmp);
T126T37tmp=new userfun_T37cons(userfun_mapcar,T126T37tmp);
T126T37tmp=userfun_apply(T126T37tmp);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(userfun_nconc,T126T37tmp);
T126T37ret=userfun_apply(T126T37tmp);
return T126T37ret;
};
T126g3771=T126e4;
T126T37ret=T126g3771;
T126e13=function (T126g3774)
{
var T126g3775;
var T126T37tmp;
var T126T37ret;
T126g3775=(T126g3774==null?null:T126g3774._);
T126g3774=(T126g3774==null?null:T126g3774.__);
T126T37tmp=T126g3774;
T126T37ret=T126g3771(T126g3775,T126T37tmp);
return T126T37ret;
};
T126g3771.treExp=T126e13;
T126T37ret=T126g3771;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_mapcan=T126e2;
T126T37ret=userfun_mapcan;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_mapcan,T126g3768);
T126e1=userfun_symbol("SATURATE",null);
T126g3777=T126e1;
T126e2=function (T126g3778,T126g3779,T126g3780)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_saturatesT63(T126g3778,T126g3779,T126g3780);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2237;continue;}
T126T37ret=T126g3780;
_I_=2236;continue;
case 2237:
T126T37tmp=new userfun_T37cons(T126g3779,null);
T126T37tmp=new userfun_T37cons(T126g3778,T126T37tmp);
T126T37ret=userfun_T43(T126T37tmp);
case 2236:
return T126T37ret;
}}};
userfun_saturate=T126e2;
T126T37ret=userfun_saturate;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_saturate,T126g3777);
T126e1=userfun_symbol("DESATURATE",null);
T126g3781=T126e1;
T126e3=function (T126g3784)
{
var T126e4;
var T126T37ret;
var T126e12;
T126e4=function (T126g3785,T126g3786,T126g3787)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_desaturatesT63(T126g3785,T126g3786,T126g3787);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2242;continue;}
T126T37ret=T126g3787;
_I_=2241;continue;
case 2242:
T126T37tmp=new userfun_T37cons(T126g3786,null);
T126T37tmp=new userfun_T37cons(T126g3785,T126T37tmp);
T126T37ret=userfun_T45(T126T37tmp);
case 2241:
return T126T37ret;
}}};
T126g3784=T126e4;
T126T37ret=T126g3784;
T126e12=function (T126g3788)
{
var T126g3789;
var T126g3790;
var T126g3791;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3789=(T126g3788==null?null:T126g3788._);
T126g3788=(T126g3788==null?null:T126g3788.__);
T126g3790=(T126g3788==null?null:T126g3788._);
T126g3788=(T126g3788==null?null:T126g3788.__);
if(!T126g3788&&T126g3788!==0&&T126g3788!==''){_I_=2245;continue;}
T126g3791=(T126g3788==null?null:T126g3788._);
T126g3788=(T126g3788==null?null:T126g3788.__);
_I_=2244;continue;
case 2245:
T126g3791=0;
case 2244:
T126T37ret=T126g3784(T126g3789,T126g3790,T126g3791);
return T126T37ret;
}}};
T126g3784.treExp=T126e12;
T126T37ret=T126g3784;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_desaturate=T126e2;
T126T37ret=userfun_desaturate;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_desaturate,T126g3781);
T126e1=userfun_symbol("CADR",null);
T126g3792=T126e1;
T126e2=function (T126g3793)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=(T126g3793==null?null:T126g3793.__);
T126T37ret=(T126T37tmp==null?null:T126T37tmp._);
return T126T37ret;
};
userfun_cadr=T126e2;
T126T37ret=userfun_cadr;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_cadr,T126g3792);
T126e1=userfun_symbol("POSITION-IF",null);
T126g3797=T126e1;
T126e3=function (T126g3801)
{
var T126e4;
var T126T37ret;
var T126e14;
T126e4=function (T126g3802,T126g3803,T126g3804,T126g3805,T126g3806)
{
var T126g3822;
var T126g3807;
var T126e7;
var T126T37ret;
T126g3807=null;
T126e7=function (T126g3808,T126g3809)
{
var T126g3810;
var T126g3811;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3810=T126g3802;
T126g3811=T126g3810.treExp;
if(!T126g3811&&T126g3811!==0&&T126g3811!==''){_I_=2254;continue;}
T126T37tmp=new userfun_T37cons(T126g3808,null);
T126T37tmp=userfun_list(T126T37tmp);
T126T37ret=T126g3811.apply(null,[T126T37tmp]);
_I_=2253;continue;
case 2254:
T126T37ret=T126g3810(T126g3808);
case 2253:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2256;continue;}
T126g3807=T126g3809;
T126T37ret=T126g3807;
case 2256:
return T126T37ret;
}}};
userfun_findIf(T126e7,T126g3803,T126g3804,T126g3805,T126g3806,true);
T126T37ret=T126g3807;
return T126T37ret;
};
T126g3801=T126e4;
T126T37ret=T126g3801;
T126e14=function (T126g3813)
{
var T126g3824;
var T126g3816;
var T126g3817;
var T126g3818;
var T126g3819;
var T126e15;
var T126g3814;
var T126g3815;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3816=T126g4390;
T126g3817=T126g4391;
T126g3818=T126g4397;
T126g3819=null;
T126e15=function ()
{
var T126g3821;
var T126g3820;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 2250:
T126g3821=true;
T126g3820=(T126g3813==null?null:T126g3813._);
T126T37tmp=T126g3820;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2258;continue;}
T126g3821=null;
case 2258:
if(!T126g3821&&T126g3821!==0&&T126g3821!==''){_I_=2261;continue;}
T126T37ret=null;
_I_=2251;continue;
case 2261:
T126T37ret=(T126g3820===T126g4398);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2263;continue;}
T126g3813=(T126g3813==null?null:T126g3813.__);
T126g3816=(T126g3813==null?null:T126g3813._);
T126g3813=(T126g3813==null?null:T126g3813.__);
_I_=2250;continue;
case 2263:
T126T37ret=(T126g3820===T126g4399);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2264;continue;}
T126g3813=(T126g3813==null?null:T126g3813.__);
T126g3817=(T126g3813==null?null:T126g3813._);
T126g3813=(T126g3813==null?null:T126g3813.__);
_I_=2250;continue;
case 2264:
T126T37ret=(T126g3820===T126g4400);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2250;continue;}
T126g3813=(T126g3813==null?null:T126g3813.__);
T126g3818=(T126g3813==null?null:T126g3813._);
T126g3813=(T126g3813==null?null:T126g3813.__);
_I_=2250;continue;
case 2251:
return T126T37ret;
}}};
T126g3819=T126e15;
;
T126g3819();
T126g3814=(T126g3813==null?null:T126g3813._);
T126g3813=(T126g3813==null?null:T126g3813.__);
T126g3819();
T126g3815=(T126g3813==null?null:T126g3813._);
T126g3813=(T126g3813==null?null:T126g3813.__);
T126g3819();
T126T37ret=(T126g3816===T126g4390);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2266;continue;}
T126g3816=null;
case 2266:
T126T37ret=(T126g3817===T126g4391);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2268;continue;}
T126g3817=null;
case 2268:
T126T37ret=(T126g3818===T126g4397);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2270;continue;}
T126g3818=null;
case 2270:
T126T37ret=T126g3801(T126g3814,T126g3815,T126g3816,T126g3817,T126g3818);
return T126T37ret;
}}};
T126g3801.treExp=T126e14;
T126T37ret=T126g3801;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_positionIf=T126e2;
T126T37ret=userfun_positionIf;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_positionIf,T126g3797);
T126e1=userfun_symbol("POP!",null);
T126g3826=T126e1;
T126e2=function (T126g3827)
{
var T126g3828;
var T126T37tmp;
var T126T37ret;
T126g3828=(T126g3827==null?null:T126g3827._);
T126T37tmp=userfun_cadr(T126g3827);
userfun_T37T37usetfCar(T126T37tmp,T126g3827);
T126T37tmp=userfun_cddr(T126g3827);
userfun_T37T37usetfCdr(T126T37tmp,T126g3827);
T126T37ret=T126g3828;
return T126T37ret;
};
userfun_popT33=T126e2;
T126T37ret=userfun_popT33;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_popT33,T126g3826);
T126e1=userfun_symbol("EXPANDER-MACROS",null);
T126g3829=T126e1;
T126e2=function (T126g3830)
{
var T126T37ret;
T126T37ret=T126g3830[1];
return T126T37ret;
};
userfun_expanderMacros=T126e2;
T126T37ret=userfun_expanderMacros;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_expanderMacros,T126g3829);
T126e1=userfun_symbol("EXPANDER-GET",null);
T126g3831=T126e1;
T126e2=function (T126g3832)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_assoc(T126g3832,EXPANDERS,userfun_eq);
T126T37ret=(T126T37tmp==null?null:T126T37tmp.__);
return T126T37ret;
};
userfun_expanderGet=T126e2;
T126T37ret=userfun_expanderGet;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_expanderGet,T126g3831);
T126e1=userfun_symbol("EXPANDER-PRE",null);
T126g3833=T126e1;
T126e2=function (T126g3834)
{
var T126T37ret;
T126T37ret=T126g3834[4];
return T126T37ret;
};
userfun_expanderPre=T126e2;
T126T37ret=userfun_expanderPre;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_expanderPre,T126g3833);
T126e1=userfun_symbol("REPEAT-WHILE-CHANGES",null);
T126g3838=T126e1;
T126e2=function (T126g3839,T126g3840)
{
var T126g3842;
var T126g3843;
var T126T37tmp;
var T126T37ret;
var T126g3841;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3842=T126g3839;
T126g3843=T126g3842.treExp;
if(!T126g3843&&T126g3843!==0&&T126g3843!==''){_I_=2286;continue;}
T126T37tmp=new userfun_T37cons(T126g3840,null);
T126T37tmp=userfun_list(T126T37tmp);
T126T37ret=T126g3843.apply(null,[T126T37tmp]);
_I_=2285;continue;
case 2286:
T126T37ret=T126g3842(T126g3840);
case 2285:
T126g3841=T126T37ret;
T126T37ret=userfun_equal(T126g3840,T126g3841);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2283;continue;}
T126T37ret=T126g3840;
_I_=2282;continue;
case 2283:
T126T37ret=userfun_repeatWhileChanges(T126g3839,T126g3841);
case 2282:
return T126T37ret;
}}};
userfun_repeatWhileChanges=T126e2;
T126T37ret=userfun_repeatWhileChanges;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_repeatWhileChanges,T126g3838);
T126e1=userfun_symbol("EXPANDER-PRED",null);
T126g3845=T126e1;
T126e2=function (T126g3846)
{
var T126T37ret;
T126T37ret=T126g3846[2];
return T126T37ret;
};
userfun_expanderPred=T126e2;
T126T37ret=userfun_expanderPred;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_expanderPred,T126g3845);
T126e1=userfun_symbol("EXPANDER-CALL",null);
T126g3847=T126e1;
T126e2=function (T126g3848)
{
var T126T37ret;
T126T37ret=T126g3848[3];
return T126T37ret;
};
userfun_expanderCall=T126e2;
T126T37ret=userfun_expanderCall;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_expanderCall,T126g3847);
T126e1=userfun_symbol("%MACROEXPAND",null);
T126g3849=T126e1;
T126e2=function (T126g3850)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_atom(T126g3850);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2294;continue;}
T126T37ret=T126g3850;
_I_=2293;continue;
case 2294:
T126T37tmp=(T126g3850==null?null:T126g3850._);
T126T37ret=(T126T37tmp===T126g4406);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2295;continue;}
T126T37ret=T126g3850;
_I_=2293;continue;
case 2295:
T126T37tmp=(T126g3850==null?null:T126g3850._);
T126T37ret=(T126T37tmp===T126g4407);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2296;continue;}
T126T37tmp=(T126g3850==null?null:T126g3850.__);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=userfun_list(T126T37tmp);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(MACROEXPANDBACKQUOTEDIVERSION,T126T37tmp);
T126T37tmp=userfun_apply(T126T37tmp);
T126T37ret=new userfun_T37cons(T126g4407,T126T37tmp);
_I_=2293;continue;
case 2296:
T126T37tmp=userfun_T37macroexpandRest(T126g3850);
T126T37ret=userfun_T37macroexpandCall(T126T37tmp);
case 2293:
return T126T37ret;
}}};
userfun_T37macroexpand=T126e2;
T126T37ret=userfun_T37macroexpand;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37macroexpand,T126g3849);
T126e1=userfun_symbol("EXPANDER-POST",null);
T126g3851=T126e1;
T126e2=function (T126g3852)
{
var T126T37ret;
T126T37ret=T126g3852[5];
return T126T37ret;
};
userfun_expanderPost=T126e2;
T126T37ret=userfun_expanderPost;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_expanderPost,T126g3851);
T126e1=userfun_symbol("FORMAT",null);
T126g3853=T126e1;
T126e3=function (T126g3856)
{
var T126e4;
var T126T37ret;
var T126e17;
T126e4=function (T126g3857,T126g3858,T126g3859)
{
var T126g3860;
var T126T37ret;
var T126g3861;
var T126T37tmp;
var T126g3862;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3860=T126g3857;
T126T37ret=(T126g3860===true);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2303;continue;}
T126T37ret=STANDARDOUTPUT;
_I_=2302;continue;
case 2303:
T126T37ret=(T126g3860===null);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2304;continue;}
T126T37ret=userfun_makeStringStream();
_I_=2302;continue;
case 2304:
T126T37ret=T126g3860;
case 2302:
T126g3861=T126T37ret;
T126T37tmp=userfun_length(T126g3858);
T126g3862=userfun_T37format(T126g3861,T126T37tmp,0,T126g3858,T126g3859);
if(!T126g3860&&T126g3860!==0&&T126g3860!==''){_I_=2307;continue;}
T126T37ret=T126g3862;
_I_=2306;continue;
case 2307:
T126T37ret=userfun_getStreamString(T126g3861);
case 2306:
return T126T37ret;
}}};
T126g3856=T126e4;
T126T37ret=T126g3856;
T126e17=function (T126g3863)
{
var T126g3864;
var T126g3865;
var T126T37tmp;
var T126T37ret;
T126g3864=(T126g3863==null?null:T126g3863._);
T126g3863=(T126g3863==null?null:T126g3863.__);
T126g3865=(T126g3863==null?null:T126g3863._);
T126g3863=(T126g3863==null?null:T126g3863.__);
T126T37tmp=T126g3863;
T126T37ret=T126g3856(T126g3864,T126g3865,T126T37tmp);
return T126T37ret;
};
T126g3856.treExp=T126e17;
T126T37ret=T126g3856;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_format=T126e2;
T126T37ret=userfun_format;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_format,T126g3853);
T126e1=userfun_symbol("INTEGER-1-",null);
T126g3867=T126e1;
T126e2=function (T126g3868)
{
var T126T37ret;
T126T37ret=(T126g3868-1);
return T126T37ret;
};
userfun_integer1T45=T126e2;
T126T37ret=userfun_integer1T45;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_integer1T45,T126g3867);
T126e1=userfun_symbol("INTEGER-1+",null);
T126g3869=T126e1;
T126e2=function (T126g3870)
{
var T126T37ret;
T126T37ret=(T126g3870+1);
return T126T37ret;
};
userfun_integer1T43=T126e2;
T126T37ret=userfun_integer1T43;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_integer1T43,T126g3869);
T126e1=userfun_symbol("%%USETF-CAR",null);
T126g3871=T126e1;
T126e2=function (T126g3872,T126g3873)
{
var T126T37ret;
userfun_rplaca(T126g3873,T126g3872);
T126T37ret=T126g3872;
return T126T37ret;
};
userfun_T37T37usetfCar=T126e2;
T126T37ret=userfun_T37T37usetfCar;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37T37usetfCar,T126g3871);
T126e1=userfun_symbol("%%USETF-CDAR",null);
T126g3874=T126e1;
T126e2=function (T126g3875,T126g3876)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=(T126g3876==null?null:T126g3876._);
userfun_rplacd(T126T37tmp,T126g3875);
T126T37ret=T126g3875;
return T126T37ret;
};
userfun_T37T37usetfCdar=T126e2;
T126T37ret=userfun_T37T37usetfCdar;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37T37usetfCdar,T126g3874);
T126e1=userfun_symbol("%%USETF-CDR",null);
T126g3877=T126e1;
T126e2=function (T126g3878,T126g3879)
{
var T126T37ret;
userfun_rplacd(T126g3879,T126g3878);
T126T37ret=T126g3878;
return T126T37ret;
};
userfun_T37T37usetfCdr=T126e2;
T126T37ret=userfun_T37T37usetfCdr;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37T37usetfCdr,T126g3877);
T126e1=userfun_symbol("LOWER-CASE-P",null);
T126g3880=T126e1;
T126e3=function (T126g3882)
{
var T126e4;
var T126T37ret;
T126e4=function (T126g3883)
{
var T126g3884;
var T126g3886;
var T126g3885;
var T126g3887;
var T126e14;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3884=T126g3883;
case 2318:
T126g3886=true;
if(!T126g3884&&T126g3884!==0&&T126g3884!==''){_I_=2322;continue;}
T126g3886=null;
case 2322:
if(!T126g3886&&T126g3886!==0&&T126g3886!==''){_I_=2325;continue;}
_I_=2317;continue;
case 2325:
T126g3885=(T126g3884==null?null:T126g3884._);
T126g3887=true;
T126e14=userfun_codeChar(97);
T126T37tmp=userfun_codeChar(122);
T126T37ret=userfun_rangeP(T126g3885,T126e14,T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2326;continue;}
T126g3887=null;
case 2326:
if(!T126g3887&&T126g3887!==0&&T126g3887!==''){_I_=2329;continue;}
T126T37ret=null;
_I_=2319;continue;
case 2329:
T126g3884=(T126g3884==null?null:T126g3884.__);
_I_=2318;continue;
case 2317:
T126T37ret=true;
case 2319:
return T126T37ret;
}}};
T126g3882=T126e4;
T126g3882.treExp=T126g3882;
T126T37ret=T126g3882;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_lowerCaseP=T126e2;
T126T37ret=userfun_lowerCaseP;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_lowerCaseP,T126g3880);
T126e1=userfun_symbol("UPPER-CASE-P",null);
T126g3888=T126e1;
T126e3=function (T126g3890)
{
var T126e4;
var T126T37ret;
T126e4=function (T126g3891)
{
var T126g3892;
var T126g3894;
var T126g3893;
var T126g3895;
var T126e14;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3892=T126g3891;
case 2331:
T126g3894=true;
if(!T126g3892&&T126g3892!==0&&T126g3892!==''){_I_=2335;continue;}
T126g3894=null;
case 2335:
if(!T126g3894&&T126g3894!==0&&T126g3894!==''){_I_=2338;continue;}
_I_=2330;continue;
case 2338:
T126g3893=(T126g3892==null?null:T126g3892._);
T126g3895=true;
T126e14=userfun_codeChar(65);
T126T37tmp=userfun_codeChar(90);
T126T37ret=userfun_rangeP(T126g3893,T126e14,T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2339;continue;}
T126g3895=null;
case 2339:
if(!T126g3895&&T126g3895!==0&&T126g3895!==''){_I_=2342;continue;}
T126T37ret=null;
_I_=2332;continue;
case 2342:
T126g3892=(T126g3892==null?null:T126g3892.__);
_I_=2331;continue;
case 2330:
T126T37ret=true;
case 2332:
return T126T37ret;
}}};
T126g3890=T126e4;
T126g3890.treExp=T126g3890;
T126T37ret=T126g3890;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_upperCaseP=T126e2;
T126T37ret=userfun_upperCaseP;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_upperCaseP,T126g3888);
T126e1=userfun_symbol("SUBSEQ-LIST",null);
T126g3896=T126e1;
T126e2=function (T126g3897,T126g3898,T126g3899)
{
var T126g3905;
var T126g3900;
var T126T37ret;
var T126g3901;
var T126e9;
var T126g3904;
var T126e21;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3900=true;
T126T37ret=(T126g3898==T126g3899);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2346;continue;}
T126g3900=null;
case 2346:
T126T37ret=T126g3900;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2356;continue;}
T126g3901=null;
T126e9=function (T126g3902,T126g3903)
{
var T126T37ret;
var T126e14;
var T126e16;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g3902;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2348;continue;}
T126T37ret=(0<T126g3903);
case 2348:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2350;continue;}
T126e14=(T126g3902==null?null:T126g3902._);
T126e16=(T126g3902==null?null:T126g3902.__);
T126T37tmp=userfun_integer1T45(T126g3903);
T126T37tmp=T126g3901(T126e16,T126T37tmp);
T126T37ret=new userfun_T37cons(T126e14,T126T37tmp);
case 2350:
return T126T37ret;
}}};
T126g3901=T126e9;
;
T126T37ret=T126g3897;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2356;continue;}
T126T37ret=(T126g3898>T126g3899);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2352;continue;}
T126g3904=T126g3898;
T126g3898=T126g3899;
T126g3899=T126g3904;
case 2352:
T126e21=userfun_nthcdr(T126g3898,T126g3897);
T126T37tmp=(T126g3899-T126g3898);
T126T37ret=T126g3901(T126e21,T126T37tmp);
case 2356:
return T126T37ret;
}}};
userfun_subseqList=T126e2;
T126T37ret=userfun_subseqList;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_subseqList,T126g3896);
T126e1=userfun_symbol("%SUBSEQ-SEQUENCE",null);
T126g3910=T126e1;
T126e2=function (T126g3911,T126g3912,T126g3913,T126g3914)
{
var T126g3915;
var T126T37ret;
var T126g3916;
var T126g3917;
var T126g3921;
var T126g3922;
var T126T37tmp;
var T126g3918;
var T126g3920;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3915=true;
T126T37ret=(T126g3913==T126g3914);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2362;continue;}
T126g3915=null;
case 2362:
T126T37ret=T126g3915;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2373;continue;}
T126g3916=userfun_length(T126g3912);
T126T37ret=(T126g3913<T126g3916);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2373;continue;}
T126T37ret=(T126g3914>=T126g3916);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2364;continue;}
T126g3914=T126g3916;
case 2364:
T126g3917=(T126g3914-T126g3913);
T126g3921=T126g3911;
T126g3922=T126g3921.treExp;
if(!T126g3922&&T126g3922!==0&&T126g3922!==''){_I_=2369;continue;}
T126T37tmp=new userfun_T37cons(T126g3917,null);
T126T37tmp=userfun_list(T126T37tmp);
T126T37ret=T126g3922.apply(null,[T126T37tmp]);
_I_=2368;continue;
case 2369:
T126T37ret=T126g3921(T126g3917);
case 2368:
T126g3918=T126T37ret;
T126g3920=0;
case 2358:
T126T37ret=(T126g3920==T126g3917);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2367;continue;}
T126T37ret=T126g3918;
_I_=2373;continue;
case 2367:
T126T37tmp=(T126g3913+T126g3920);
T126T37tmp=userfun_elt(T126g3912,T126T37tmp);
userfun_T37T37usetfElt(T126T37tmp,T126g3918,T126g3920);
T126g3920=(1+T126g3920);
_I_=2358;continue;
case 2373:
return T126T37ret;
}}};
userfun_T37subseqSequence=T126e2;
T126T37ret=userfun_T37subseqSequence;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37subseqSequence,T126g3910);
T126e1=userfun_symbol("FORCE-STRING",null);
T126g3924=T126e1;
T126e2=function (T126g3925)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_stringT63(T126g3925);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2378;continue;}
T126T37ret=T126g3925;
_I_=2377;continue;
case 2378:
T126T37ret=userfun_symbolName(T126g3925);
case 2377:
return T126T37ret;
}}};
userfun_forceString=T126e2;
T126T37ret=userfun_forceString;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_forceString,T126g3924);
T126e1=userfun_symbol("OPTIONAL-STRING-DOWNCASE",null);
T126g3926=T126e1;
T126e3=function (T126g3930)
{
var T126e4;
var T126T37ret;
var T126e9;
T126e4=function (T126g3931,T126g3932)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
if(!T126g3932&&T126g3932!==0&&T126g3932!==''){_I_=2386;continue;}
T126T37ret=userfun_stringDowncase(T126g3931);
_I_=2385;continue;
case 2386:
T126T37ret=T126g3931;
case 2385:
return T126T37ret;
}}};
T126g3930=T126e4;
T126T37ret=T126g3930;
T126e9=function (T126g3933)
{
var T126g3939;
var T126g3935;
var T126g3936;
var T126e10;
var T126g3934;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3935=T126g4410;
T126g3936=null;
T126e10=function ()
{
var T126g3938;
var T126g3937;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 2382:
T126g3938=true;
T126g3937=(T126g3933==null?null:T126g3933._);
T126T37tmp=T126g3937;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2388;continue;}
T126g3938=null;
case 2388:
if(!T126g3938&&T126g3938!==0&&T126g3938!==''){_I_=2391;continue;}
T126T37ret=null;
_I_=2383;continue;
case 2391:
T126T37ret=(T126g3937===T126g4411);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2382;continue;}
T126g3933=(T126g3933==null?null:T126g3933.__);
T126g3935=(T126g3933==null?null:T126g3933._);
T126g3933=(T126g3933==null?null:T126g3933.__);
_I_=2382;continue;
case 2383:
return T126T37ret;
}}};
T126g3936=T126e10;
;
T126g3936();
T126g3934=(T126g3933==null?null:T126g3933._);
T126g3933=(T126g3933==null?null:T126g3933.__);
T126g3936();
T126T37ret=(T126g3935===T126g4410);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2394;continue;}
T126g3935=null;
case 2394:
T126T37ret=T126g3930(T126g3934,T126g3935);
return T126T37ret;
}}};
T126g3930.treExp=T126e9;
T126T37ret=T126g3930;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_optionalStringDowncase=T126e2;
T126T37ret=userfun_optionalStringDowncase;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_optionalStringDowncase,T126g3926);
T126e1=userfun_symbol("%EMPTY-STRING?",null);
T126g3941=T126e1;
T126e2=function (T126g3942)
{
var T126T37tmp;
var T126g3943;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=userfun_codeChar(32);
T126g3943=userfun_trim(T126T37tmp,T126g3942,userfun_eql);
if(!T126g3943&&T126g3943!==0&&T126g3943!==''){_I_=2399;continue;}
T126T37ret=T126g3943;
_I_=2398;continue;
case 2399:
T126T37ret="";
case 2398:
T126T37tmp=T126T37ret;
T126T37ret=(""==T126T37tmp);
return T126T37ret;
}}};
userfun_T37emptyStringT63=T126e2;
T126T37ret=userfun_T37emptyStringT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37emptyStringT63,T126g3941);
T126e1=userfun_symbol("TREE-LIST",null);
T126g3944=T126e1;
T126e2=function (T126g3945)
{
var T126T37ret;
var T126T37tmp;
var T126e12;
var T126e18;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_atom(T126g3945);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2407;continue;}
T126T37ret=T126g3945;
_I_=2406;continue;
case 2407:
T126T37tmp=(T126g3945==null?null:T126g3945._);
T126T37ret=userfun_consT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2404;continue;}
T126T37tmp=(T126g3945==null?null:T126g3945._);
T126e12=userfun_treeList(T126T37tmp);
T126T37tmp=(T126g3945==null?null:T126g3945.__);
T126T37tmp=userfun_treeList(T126T37tmp);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(T126e12,T126T37tmp);
T126T37ret=userfun_nconc(T126T37tmp);
_I_=2406;continue;
case 2404:
T126e18=(T126g3945==null?null:T126g3945._);
T126T37tmp=(T126g3945==null?null:T126g3945.__);
T126T37tmp=userfun_treeList(T126T37tmp);
T126T37ret=new userfun_T37cons(T126e18,T126T37tmp);
case 2406:
return T126T37ret;
}}};
userfun_treeList=T126e2;
T126T37ret=userfun_treeList;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_treeList,T126g3944);
T126e1=userfun_symbol("REMOVE-IF",null);
T126g3949=T126e1;
T126e2=function (T126g3950,T126g3951)
{
var T126g3952;
var T126T37ret;
var T126g3953;
var T126g3954;
var T126T37tmp;
var T126e18;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3952=true;
if(!T126g3951&&T126g3951!==0&&T126g3951!==''){_I_=2411;continue;}
T126g3952=null;
case 2411:
if(!T126g3952&&T126g3952!==0&&T126g3952!==''){_I_=2417;continue;}
T126T37ret=null;
_I_=2416;continue;
case 2417:
T126g3953=T126g3950;
T126g3954=T126g3953.treExp;
if(!T126g3954&&T126g3954!==0&&T126g3954!==''){_I_=2414;continue;}
T126T37tmp=(T126g3951==null?null:T126g3951._);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=userfun_list(T126T37tmp);
T126T37ret=T126g3954.apply(null,[T126T37tmp]);
_I_=2413;continue;
case 2414:
T126T37tmp=(T126g3951==null?null:T126g3951._);
T126T37ret=T126g3953(T126T37tmp);
case 2413:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2418;continue;}
T126T37tmp=(T126g3951==null?null:T126g3951.__);
T126T37ret=userfun_removeIf(T126g3950,T126T37tmp);
_I_=2416;continue;
case 2418:
T126e18=(T126g3951==null?null:T126g3951._);
T126T37tmp=(T126g3951==null?null:T126g3951.__);
T126T37tmp=userfun_removeIf(T126g3950,T126T37tmp);
T126T37ret=new userfun_T37cons(T126e18,T126T37tmp);
case 2416:
return T126T37ret;
}}};
userfun_removeIf=T126e2;
T126T37ret=userfun_removeIf;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_removeIf,T126g3949);
T126e1=userfun_symbol("COPY-LIST",null);
T126g3956=T126e1;
T126e2=function (T126g3957)
{
var T126T37ret;
var T126e5;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g3957;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2421;continue;}
T126e5=(T126g3957==null?null:T126g3957._);
T126T37tmp=(T126g3957==null?null:T126g3957.__);
T126T37tmp=userfun_copyList(T126T37tmp);
T126T37ret=new userfun_T37cons(T126e5,T126T37tmp);
case 2421:
return T126T37ret;
}}};
userfun_copyList=T126e2;
T126T37ret=userfun_copyList;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_copyList,T126g3956);
T126e1=userfun_symbol("%EMPTY-STRING-OR-NIL?",null);
T126g3958=T126e1;
T126e2=function (T126g3959)
{
var T126g3961;
var T126g3960;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3961=true;
if(!T126g3959&&T126g3959!==0&&T126g3959!==''){_I_=2428;continue;}
T126g3961=null;
case 2428:
T126g3960=T126g3961;
if(!T126g3960&&T126g3960!==0&&T126g3960!==''){_I_=2426;continue;}
T126T37ret=T126g3960;
_I_=2425;continue;
case 2426:
T126T37ret=userfun_T37emptyStringT63(T126g3959);
case 2425:
return T126T37ret;
}}};
userfun_T37emptyStringOrNilT63=T126e2;
T126T37ret=userfun_T37emptyStringOrNilT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37emptyStringOrNilT63,T126g3958);
T126e1=userfun_symbol("%MEMBER-IF-R",null);
T126g3965=T126e1;
T126e2=function (T126g3966,T126g3967)
{
var T126T37ret;
var T126g3968;
var T126g3969;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g3967;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2438;continue;}
T126g3968=T126g3966;
T126g3969=T126g3968.treExp;
if(!T126g3969&&T126g3969!==0&&T126g3969!==''){_I_=2433;continue;}
T126T37tmp=(T126g3967==null?null:T126g3967._);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=userfun_list(T126T37tmp);
T126T37ret=T126g3969.apply(null,[T126T37tmp]);
_I_=2432;continue;
case 2433:
T126T37tmp=(T126g3967==null?null:T126g3967._);
T126T37ret=T126g3968(T126T37tmp);
case 2432:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2436;continue;}
T126T37ret=T126g3967;
_I_=2438;continue;
case 2436:
T126T37tmp=(T126g3967==null?null:T126g3967.__);
T126T37ret=userfun_T37memberIfR(T126g3966,T126T37tmp);
case 2438:
return T126T37ret;
}}};
userfun_T37memberIfR=T126e2;
T126T37ret=userfun_T37memberIfR;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37memberIfR,T126g3965);
T126e1=userfun_symbol("FIND-IF",null);
T126g3971=T126e1;
T126e3=function (T126g3975)
{
var T126e4;
var T126T37ret;
var T126e46;
T126e4=function (T126g3976,T126g3977,T126g3978,T126g3979,T126g3980,T126g3981)
{
var T126T37ret;
var T126T37tmp;
var T126g3990;
var T126g3982;
var T126g3989;
var T126g3983;
var T126g3985;
var T126g3984;
var T126g3986;
var T126g3987;
var T126g3988;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g3977;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2447;continue;}
T126T37tmp=userfun_length(T126g3977);
T126T37ret=(0<T126T37tmp);
case 2447:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2478;continue;}
T126g3990=T126g3979;
if(!T126g3990&&T126g3990!==0&&T126g3990!==''){_I_=2476;continue;}
T126T37ret=T126g3990;
_I_=2475;continue;
case 2476:
T126T37tmp=userfun_length(T126g3977);
T126T37ret=userfun_integer1T45(T126T37tmp);
case 2475:
T126g3982=T126T37ret;
T126g3989=T126g3978;
if(!T126g3989&&T126g3989!==0&&T126g3989!==''){_I_=2473;continue;}
T126T37ret=T126g3989;
_I_=2472;continue;
case 2473:
T126T37ret=0;
case 2472:
T126g3983=T126T37ret;
T126T37ret=(T126g3983>T126g3982);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2456;continue;}
T126g3985=true;
if(!T126g3980&&T126g3980!==0&&T126g3980!==''){_I_=2454;continue;}
T126g3985=null;
case 2454:
T126T37ret=T126g3985;
case 2456:
T126g3984=T126T37ret;
if(!T126g3984&&T126g3984!==0&&T126g3984!==''){_I_=2452;continue;}
T126T37ret=T126g3984;
_I_=2451;continue;
case 2452:
T126T37ret=(T126g3983<T126g3982);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2451;continue;}
T126T37ret=T126g3980;
case 2451:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2458;continue;}
T126g3986=T126g3983;
T126g3983=T126g3982;
T126g3982=T126g3986;
case 2458:
T126g3987=T126g3983;
case 2440:
if(!T126g3980&&T126g3980!==0&&T126g3980!==''){_I_=2461;continue;}
T126T37ret=(T126g3987<T126g3982);
_I_=2460;continue;
case 2461:
T126T37ret=(T126g3987>T126g3982);
case 2460:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2464;continue;}
T126T37ret=null;
_I_=2478;continue;
case 2464:
T126g3988=userfun_elt(T126g3977,T126g3987);
T126T37ret=T126g3981;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2465;continue;}
T126T37tmp=new userfun_T37cons(T126g3987,null);
T126T37ret=userfun_list(T126T37tmp);
case 2465:
T126T37tmp=T126T37ret;
T126T37tmp=new userfun_T37cons(T126g3988,T126T37tmp);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(T126g3976,T126T37tmp);
T126T37ret=userfun_apply(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2468;continue;}
T126T37ret=T126g3988;
_I_=2478;continue;
case 2468:
if(!T126g3980&&T126g3980!==0&&T126g3980!==''){_I_=2470;continue;}
T126T37ret=userfun_integer1T45(T126g3987);
_I_=2469;continue;
case 2470:
T126T37ret=userfun_integer1T43(T126g3987);
case 2469:
T126g3987=T126T37ret;
_I_=2440;continue;
case 2478:
return T126T37ret;
}}};
T126g3975=T126e4;
T126T37ret=T126g3975;
T126e46=function (T126g3991)
{
var T126g4001;
var T126g3994;
var T126g3995;
var T126g3996;
var T126g3997;
var T126g3998;
var T126e47;
var T126g3992;
var T126g3993;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3994=T126g4390;
T126g3995=T126g4391;
T126g3996=T126g4397;
T126g3997=T126g4412;
T126g3998=null;
T126e47=function ()
{
var T126g4000;
var T126g3999;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 2444:
T126g4000=true;
T126g3999=(T126g3991==null?null:T126g3991._);
T126T37tmp=T126g3999;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2480;continue;}
T126g4000=null;
case 2480:
if(!T126g4000&&T126g4000!==0&&T126g4000!==''){_I_=2483;continue;}
T126T37ret=null;
_I_=2445;continue;
case 2483:
T126T37ret=(T126g3999===T126g4398);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2485;continue;}
T126g3991=(T126g3991==null?null:T126g3991.__);
T126g3994=(T126g3991==null?null:T126g3991._);
T126g3991=(T126g3991==null?null:T126g3991.__);
_I_=2444;continue;
case 2485:
T126T37ret=(T126g3999===T126g4399);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2486;continue;}
T126g3991=(T126g3991==null?null:T126g3991.__);
T126g3995=(T126g3991==null?null:T126g3991._);
T126g3991=(T126g3991==null?null:T126g3991.__);
_I_=2444;continue;
case 2486:
T126T37ret=(T126g3999===T126g4400);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2487;continue;}
T126g3991=(T126g3991==null?null:T126g3991.__);
T126g3996=(T126g3991==null?null:T126g3991._);
T126g3991=(T126g3991==null?null:T126g3991.__);
_I_=2444;continue;
case 2487:
T126T37ret=(T126g3999===T126g4413);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2444;continue;}
T126g3991=(T126g3991==null?null:T126g3991.__);
T126g3997=(T126g3991==null?null:T126g3991._);
T126g3991=(T126g3991==null?null:T126g3991.__);
_I_=2444;continue;
case 2445:
return T126T37ret;
}}};
T126g3998=T126e47;
;
T126g3998();
T126g3992=(T126g3991==null?null:T126g3991._);
T126g3991=(T126g3991==null?null:T126g3991.__);
T126g3998();
T126g3993=(T126g3991==null?null:T126g3991._);
T126g3991=(T126g3991==null?null:T126g3991.__);
T126g3998();
T126T37ret=(T126g3994===T126g4390);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2489;continue;}
T126g3994=null;
case 2489:
T126T37ret=(T126g3995===T126g4391);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2491;continue;}
T126g3995=null;
case 2491:
T126T37ret=(T126g3996===T126g4397);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2493;continue;}
T126g3996=null;
case 2493:
T126T37ret=(T126g3997===T126g4412);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2495;continue;}
T126g3997=null;
case 2495:
T126T37ret=T126g3975(T126g3992,T126g3993,T126g3994,T126g3995,T126g3996,T126g3997);
return T126T37ret;
}}};
T126g3975.treExp=T126e46;
T126T37ret=T126g3975;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_findIf=T126e2;
T126T37ret=userfun_findIf;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_findIf,T126g3971);
T126e1=userfun_symbol("%MAP",null);
T126g4003=T126e1;
T126e2=function (T126g4004,T126g4005)
{
var T126g4006;
var T126g4007;
var T126T37ret;
var T126g4008;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4006=T126g4005;
T126g4007=userfun_makeQueue();
case 2497:
T126T37ret=userfun_endp(T126g4006);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2502;continue;}
T126T37ret=userfun_queueList(T126g4007);
_I_=2498;continue;
case 2502:
T126g4008=true;
T126T37ret=(T126g4006==null?null:T126g4006._);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2503;continue;}
T126g4008=null;
case 2503:
if(!T126g4008&&T126g4008!==0&&T126g4008!==''){_I_=2506;continue;}
T126T37ret=null;
_I_=2498;continue;
case 2506:
T126T37tmp=userfun_caar(T126g4006);
userfun_enqueue(T126g4007,T126T37tmp);
T126T37tmp=userfun_cdar(T126g4006);
userfun_rplaca(T126g4006,T126T37tmp);
T126g4006=(T126g4006==null?null:T126g4006.__);
_I_=2497;continue;
case 2498:
return T126T37ret;
}}};
userfun_T37map=T126e2;
T126T37ret=userfun_T37map;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37map,T126g4003);
T126e1=userfun_symbol("MAPCAR",null);
T126g4009=T126e1;
T126e3=function (T126g4012)
{
var T126e4;
var T126T37ret;
var T126e16;
T126e4=function (T126g4013,T126g4014)
{
var T126g4015;
var T126T37ret;
var T126T37tmp;
var T126e9;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4015=userfun_T37map(T126g4013,T126g4014);
T126T37ret=T126g4015;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2509;continue;}
T126T37tmp=new userfun_T37cons(T126g4015,null);
T126T37tmp=new userfun_T37cons(T126g4013,T126T37tmp);
T126e9=userfun_apply(T126T37tmp);
T126T37tmp=new userfun_T37cons(T126g4014,null);
T126T37tmp=new userfun_T37cons(T126g4013,T126T37tmp);
T126T37tmp=new userfun_T37cons(userfun_mapcar,T126T37tmp);
T126T37tmp=userfun_apply(T126T37tmp);
T126T37ret=new userfun_T37cons(T126e9,T126T37tmp);
case 2509:
return T126T37ret;
}}};
T126g4012=T126e4;
T126T37ret=T126g4012;
T126e16=function (T126g4016)
{
var T126g4017;
var T126T37tmp;
var T126T37ret;
T126g4017=(T126g4016==null?null:T126g4016._);
T126g4016=(T126g4016==null?null:T126g4016.__);
T126T37tmp=T126g4016;
T126T37ret=T126g4012(T126g4017,T126T37tmp);
return T126T37ret;
};
T126g4012.treExp=T126e16;
T126T37ret=T126g4012;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_mapcar=T126e2;
T126T37ret=userfun_mapcar;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_mapcar,T126g4009);
T126e1=userfun_symbol("SATURATES?",null);
T126g4019=T126e1;
T126e2=function (T126g4020,T126g4021,T126g4022)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=new userfun_T37cons(T126g4021,null);
T126T37tmp=new userfun_T37cons(T126g4020,T126T37tmp);
T126T37tmp=userfun_T43(T126T37tmp);
T126T37ret=userfun_T62(T126T37tmp,T126g4022);
return T126T37ret;
};
userfun_saturatesT63=T126e2;
T126T37ret=userfun_saturatesT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_saturatesT63,T126g4019);
T126e1=userfun_symbol("DESATURATES?",null);
T126g4023=T126e1;
T126e3=function (T126g4026)
{
var T126e4;
var T126T37ret;
var T126e10;
T126e4=function (T126g4027,T126g4028,T126g4029)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=new userfun_T37cons(T126g4028,null);
T126T37tmp=new userfun_T37cons(T126g4027,T126T37tmp);
T126T37tmp=userfun_T45(T126T37tmp);
T126T37ret=userfun_T60(T126T37tmp,T126g4029);
return T126T37ret;
};
T126g4026=T126e4;
T126T37ret=T126g4026;
T126e10=function (T126g4030)
{
var T126g4031;
var T126g4032;
var T126g4033;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4031=(T126g4030==null?null:T126g4030._);
T126g4030=(T126g4030==null?null:T126g4030.__);
T126g4032=(T126g4030==null?null:T126g4030._);
T126g4030=(T126g4030==null?null:T126g4030.__);
if(!T126g4030&&T126g4030!==0&&T126g4030!==''){_I_=2516;continue;}
T126g4033=(T126g4030==null?null:T126g4030._);
T126g4030=(T126g4030==null?null:T126g4030.__);
_I_=2515;continue;
case 2516:
T126g4033=0;
case 2515:
T126T37ret=T126g4026(T126g4031,T126g4032,T126g4033);
return T126T37ret;
}}};
T126g4026.treExp=T126e10;
T126T37ret=T126g4026;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_desaturatesT63=T126e2;
T126T37ret=userfun_desaturatesT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_desaturatesT63,T126g4023);
T126e1=userfun_symbol("%MACROEXPAND-CALL",null);
T126g4034=T126e1;
T126e2=function (T126g4035)
{
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=(T126g4035==null?null:T126g4035._);
T126T37ret=userfun_atom(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2519;continue;}
T126T37tmp=new userfun_T37cons(T126g4035,null);
T126T37tmp=userfun_list(T126T37tmp);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(MACROPDIVERSION,T126T37tmp);
T126T37ret=userfun_apply(T126T37tmp);
case 2519:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2522;continue;}
T126T37ret=userfun_T37macroexpandXlat(T126g4035);
_I_=2521;continue;
case 2522:
T126T37ret=T126g4035;
case 2521:
return T126T37ret;
}}};
userfun_T37macroexpandCall=T126e2;
T126T37ret=userfun_T37macroexpandCall;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37macroexpandCall,T126g4034);
T126e1=userfun_symbol("%MACROEXPAND-REST",null);
T126g4036=T126e1;
T126e2=function (T126g4037)
{
var T126T37ret;
var T126T37tmp;
var T126e7;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_atom(T126g4037);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2526;continue;}
T126T37ret=T126g4037;
_I_=2525;continue;
case 2526:
T126T37tmp=(T126g4037==null?null:T126g4037._);
T126e7=userfun_T37macroexpand(T126T37tmp);
T126T37tmp=(T126g4037==null?null:T126g4037.__);
T126T37tmp=userfun_T37macroexpandRest(T126T37tmp);
T126T37ret=new userfun_T37cons(T126e7,T126T37tmp);
case 2525:
return T126T37ret;
}}};
userfun_T37macroexpandRest=T126e2;
T126T37ret=userfun_T37macroexpandRest;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37macroexpandRest,T126g4036);
T126e1=userfun_symbol("MAKE-STRING-STREAM",null);
T126g4038=T126e1;
T126e2=function ()
{
var T126e5;
var T126e7;
var T126e14;
var T126T37tmp;
var T126T37ret;
T126e5=function (T126g4039)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_streamUserDetail(T126g4039);
T126T37ret=userfun_queuePop(T126T37tmp);
return T126T37ret;
};
T126e7=function (T126g4040,T126g4041)
{
var T126T37ret;
var T126e10;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_stringT63(T126g4040);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2531;continue;}
T126e10=userfun_streamUserDetail(T126g4041);
T126T37tmp=userfun_stringList(T126g4040);
T126T37ret=userfun_enqueueList(T126e10,T126T37tmp);
_I_=2530;continue;
case 2531:
T126T37tmp=userfun_streamUserDetail(T126g4041);
T126T37ret=userfun_enqueue(T126T37tmp,T126g4040);
case 2530:
return T126T37ret;
}}};
T126e14=function (T126g4042)
{
var T126g4043;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4043=true;
T126T37tmp=userfun_streamUserDetail(T126g4042);
T126T37ret=userfun_queueList(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2533;continue;}
T126g4043=null;
case 2533:
T126T37ret=T126g4043;
return T126T37ret;
}}};
T126T37tmp=userfun_makeQueue();
T126T37ret=userfun_makeStream(T126g4414,T126e5,T126e7,T126e14,T126g4415,T126g4416,T126T37tmp);
return T126T37ret;
};
userfun_makeStringStream=T126e2;
T126T37ret=userfun_makeStringStream;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_makeStringStream,T126g4038);
T126e1=userfun_symbol("%FORMAT",null);
T126g4044=T126e1;
T126e2=function (T126g4045,T126g4046,T126g4047,T126g4048,T126g4049)
{
var T126T37ret;
var T126e8;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=(T126g4047<T126g4046);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2540;continue;}
T126e8=userfun_elt(T126g4048,T126g4047);
T126T37tmp=userfun_codeChar(126);
T126T37ret=(T126e8.v==T126T37tmp.v);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2538;continue;}
T126T37tmp=userfun_integer1T43(T126g4047);
T126T37ret=userfun_T37formatDirective(T126g4045,T126g4046,T126T37tmp,T126g4048,T126g4049);
_I_=2540;continue;
case 2538:
T126T37tmp=userfun_elt(T126g4048,T126g4047);
userfun_princ(T126T37tmp,T126g4045);
T126T37tmp=userfun_integer1T43(T126g4047);
T126T37ret=userfun_T37format(T126g4045,T126g4046,T126T37tmp,T126g4048,T126g4049);
case 2540:
return T126T37ret;
}}};
userfun_T37format=T126e2;
T126T37ret=userfun_T37format;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37format,T126g4044);
T126e1=userfun_symbol("GET-STREAM-STRING",null);
T126g4050=T126e1;
T126e2=function (T126g4051)
{
var T126T37tmp;
var T126g4052;
var T126T37ret;
T126T37tmp=userfun_streamUserDetail(T126g4051);
T126g4052=userfun_queueString(T126T37tmp);
T126T37tmp=userfun_makeQueue();
userfun_T37T37usetfStreamUserDetail(T126T37tmp,T126g4051);
T126T37ret=T126g4052;
return T126T37ret;
};
userfun_getStreamString=T126e2;
T126T37ret=userfun_getStreamString;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_getStreamString,T126g4050);
T126e1=userfun_symbol("RANGE-P",null);
T126g4053=T126e1;
T126e2=function (T126g4054,T126g4055,T126g4056)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_T62T61(T126g4054,T126g4055);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2546;continue;}
T126T37ret=userfun_T60T61(T126g4054,T126g4056);
case 2546:
return T126T37ret;
}}};
userfun_rangeP=T126e2;
T126T37ret=userfun_rangeP;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_rangeP,T126g4053);
T126e1=userfun_symbol("TRIM",null);
T126g4057=T126e1;
T126e3=function (T126g4061)
{
var T126e4;
var T126T37ret;
var T126e13;
T126e4=function (T126g4062,T126g4063,T126g4064)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g4063;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2556;continue;}
T126T37tmp=userfun_length(T126g4063);
T126T37ret=(0<T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2554;continue;}
T126T37tmp=userfun_trimHead(T126g4062,T126g4063,T126g4064);
T126T37ret=userfun_trimTail(T126g4062,T126T37tmp,T126g4064);
_I_=2556;continue;
case 2554:
T126T37ret=T126g4063;
case 2556:
return T126T37ret;
}}};
T126g4061=T126e4;
T126T37ret=T126g4061;
T126e13=function (T126g4065)
{
var T126g4072;
var T126g4068;
var T126g4069;
var T126e14;
var T126g4066;
var T126g4067;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4068=T126g4384;
T126g4069=null;
T126e14=function ()
{
var T126g4071;
var T126g4070;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 2550:
T126g4071=true;
T126g4070=(T126g4065==null?null:T126g4065._);
T126T37tmp=T126g4070;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2558;continue;}
T126g4071=null;
case 2558:
if(!T126g4071&&T126g4071!==0&&T126g4071!==''){_I_=2561;continue;}
T126T37ret=null;
_I_=2551;continue;
case 2561:
T126T37ret=(T126g4070===T126g4385);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2550;continue;}
T126g4065=(T126g4065==null?null:T126g4065.__);
T126g4068=(T126g4065==null?null:T126g4065._);
T126g4065=(T126g4065==null?null:T126g4065.__);
_I_=2550;continue;
case 2551:
return T126T37ret;
}}};
T126g4069=T126e14;
;
T126g4069();
T126g4066=(T126g4065==null?null:T126g4065._);
T126g4065=(T126g4065==null?null:T126g4065.__);
T126g4069();
T126g4067=(T126g4065==null?null:T126g4065._);
T126g4065=(T126g4065==null?null:T126g4065.__);
T126g4069();
T126T37ret=(T126g4068===T126g4384);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2564;continue;}
T126g4068=userfun_eql;
case 2564:
T126T37ret=T126g4061(T126g4066,T126g4067,T126g4068);
return T126T37ret;
}}};
T126g4061.treExp=T126e13;
T126T37ret=T126g4061;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_trim=T126e2;
T126T37ret=userfun_trim;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_trim,T126g4057);
T126e1=userfun_symbol("ENDP",null);
T126g4074=T126e1;
T126e2=function (T126g4075)
{
var T126T37ret;
T126T37ret=(T126g4075===null);
return T126T37ret;
};
userfun_endp=T126e2;
T126T37ret=userfun_endp;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_endp,T126g4074);
T126e1=userfun_symbol("CAAR",null);
T126g4076=T126e1;
T126e2=function (T126g4077)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=(T126g4077==null?null:T126g4077._);
T126T37ret=(T126T37tmp==null?null:T126T37tmp._);
return T126T37ret;
};
userfun_caar=T126e2;
T126T37ret=userfun_caar;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_caar,T126g4076);
T126e1=userfun_symbol("CDAR",null);
T126g4078=T126e1;
T126e2=function (T126g4079)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=(T126g4079==null?null:T126g4079._);
T126T37ret=(T126T37tmp==null?null:T126T37tmp.__);
return T126T37ret;
};
userfun_cdar=T126e2;
T126T37ret=userfun_cdar;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_cdar,T126g4078);
T126e1=userfun_symbol("%MACROEXPAND-XLAT",null);
T126g4080=T126e1;
T126e2=function (T126g4081)
{
var T126T37tmp;
var T126g4082;
var T126T37ret;
CURRENTMACRO=(T126g4081==null?null:T126g4081._);
T126T37tmp=new userfun_T37cons(T126g4081,null);
T126T37tmp=userfun_list(T126T37tmp);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(MACROCALLDIVERSION,T126T37tmp);
T126g4082=userfun_apply(T126T37tmp);
CURRENTMACRO=null;
T126T37ret=T126g4082;
return T126T37ret;
};
userfun_T37macroexpandXlat=T126e2;
T126T37ret=userfun_T37macroexpandXlat;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37macroexpandXlat,T126g4080);
T126e1=userfun_symbol("MAKE-STREAM",null);
T126g4083=T126e1;
T126e3=function (T126g4087)
{
var T126e4;
var T126T37ret;
var T126e36;
T126e4=function (T126g4088,T126g4089,T126g4090,T126g4091,T126g4092,T126g4093,T126g4094)
{
var T126g4095;
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4095=[8];
T126g4095[0]=T126g4421;
T126T37ret=(T126g4088===T126g4414);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2577;continue;}
T126T37ret=null;
_I_=2576;continue;
case 2577:
T126T37ret=T126g4088;
case 2576:
T126T37tmp=T126T37ret;
T126g4095[1]=T126T37tmp;
T126T37ret=(T126g4089===T126g4417);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2580;continue;}
T126T37ret=null;
_I_=2579;continue;
case 2580:
T126T37ret=T126g4089;
case 2579:
T126T37tmp=T126T37ret;
T126g4095[2]=T126T37tmp;
T126T37ret=(T126g4090===T126g4418);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2583;continue;}
T126T37ret=null;
_I_=2582;continue;
case 2583:
T126T37ret=T126g4090;
case 2582:
T126T37tmp=T126T37ret;
T126g4095[3]=T126T37tmp;
T126T37ret=(T126g4091===T126g4419);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2586;continue;}
T126T37ret=null;
_I_=2585;continue;
case 2586:
T126T37ret=T126g4091;
case 2585:
T126T37tmp=T126T37ret;
T126g4095[4]=T126T37tmp;
T126T37ret=(T126g4092===T126g4415);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2589;continue;}
T126T37ret=null;
_I_=2588;continue;
case 2589:
T126T37ret=T126g4092;
case 2588:
T126T37tmp=T126T37ret;
T126g4095[5]=T126T37tmp;
T126T37ret=(T126g4093===T126g4416);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2592;continue;}
T126T37ret=null;
_I_=2591;continue;
case 2592:
T126T37ret=T126g4093;
case 2591:
T126T37tmp=T126T37ret;
T126g4095[6]=T126T37tmp;
T126T37ret=(T126g4094===T126g4420);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2595;continue;}
T126T37ret=null;
_I_=2594;continue;
case 2595:
T126T37ret=T126g4094;
case 2594:
T126T37tmp=T126T37ret;
T126g4095[7]=T126T37tmp;
T126T37ret=T126g4095;
return T126T37ret;
}}};
T126g4087=T126e4;
T126T37ret=T126g4087;
T126e36=function (T126g4096)
{
var T126g4107;
var T126g4097;
var T126g4098;
var T126g4099;
var T126g4100;
var T126g4101;
var T126g4102;
var T126g4103;
var T126g4104;
var T126e37;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4097=T126g4414;
T126g4098=T126g4417;
T126g4099=T126g4418;
T126g4100=T126g4419;
T126g4101=T126g4415;
T126g4102=T126g4416;
T126g4103=T126g4420;
T126g4104=null;
T126e37=function ()
{
var T126g4106;
var T126g4105;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 2573:
T126g4106=true;
T126g4105=(T126g4096==null?null:T126g4096._);
T126T37tmp=T126g4105;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2597;continue;}
T126g4106=null;
case 2597:
if(!T126g4106&&T126g4106!==0&&T126g4106!==''){_I_=2600;continue;}
T126T37ret=null;
_I_=2574;continue;
case 2600:
T126T37ret=(T126g4105===T126g4422);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2602;continue;}
T126g4096=(T126g4096==null?null:T126g4096.__);
T126g4097=(T126g4096==null?null:T126g4096._);
T126g4096=(T126g4096==null?null:T126g4096.__);
_I_=2573;continue;
case 2602:
T126T37ret=(T126g4105===T126g4423);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2603;continue;}
T126g4096=(T126g4096==null?null:T126g4096.__);
T126g4098=(T126g4096==null?null:T126g4096._);
T126g4096=(T126g4096==null?null:T126g4096.__);
_I_=2573;continue;
case 2603:
T126T37ret=(T126g4105===T126g4424);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2604;continue;}
T126g4096=(T126g4096==null?null:T126g4096.__);
T126g4099=(T126g4096==null?null:T126g4096._);
T126g4096=(T126g4096==null?null:T126g4096.__);
_I_=2573;continue;
case 2604:
T126T37ret=(T126g4105===T126g4425);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2605;continue;}
T126g4096=(T126g4096==null?null:T126g4096.__);
T126g4100=(T126g4096==null?null:T126g4096._);
T126g4096=(T126g4096==null?null:T126g4096.__);
_I_=2573;continue;
case 2605:
T126T37ret=(T126g4105===T126g4426);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2606;continue;}
T126g4096=(T126g4096==null?null:T126g4096.__);
T126g4101=(T126g4096==null?null:T126g4096._);
T126g4096=(T126g4096==null?null:T126g4096.__);
_I_=2573;continue;
case 2606:
T126T37ret=(T126g4105===T126g4427);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2607;continue;}
T126g4096=(T126g4096==null?null:T126g4096.__);
T126g4102=(T126g4096==null?null:T126g4096._);
T126g4096=(T126g4096==null?null:T126g4096.__);
_I_=2573;continue;
case 2607:
T126T37ret=(T126g4105===T126g4428);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2573;continue;}
T126g4096=(T126g4096==null?null:T126g4096.__);
T126g4103=(T126g4096==null?null:T126g4096._);
T126g4096=(T126g4096==null?null:T126g4096.__);
_I_=2573;continue;
case 2574:
return T126T37ret;
}}};
T126g4104=T126e37;
;
T126g4104();
T126T37ret=(T126g4097===T126g4414);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2609;continue;}
T126g4097=T126g4414;
case 2609:
T126T37ret=(T126g4098===T126g4417);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2611;continue;}
T126g4098=T126g4417;
case 2611:
T126T37ret=(T126g4099===T126g4418);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2613;continue;}
T126g4099=T126g4418;
case 2613:
T126T37ret=(T126g4100===T126g4419);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2615;continue;}
T126g4100=T126g4419;
case 2615:
T126T37ret=(T126g4101===T126g4415);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2617;continue;}
T126g4101=T126g4415;
case 2617:
T126T37ret=(T126g4102===T126g4416);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2619;continue;}
T126g4102=T126g4416;
case 2619:
T126T37ret=(T126g4103===T126g4420);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2621;continue;}
T126g4103=T126g4420;
case 2621:
T126T37ret=T126g4087(T126g4097,T126g4098,T126g4099,T126g4100,T126g4101,T126g4102,T126g4103);
return T126T37ret;
}}};
T126g4087.treExp=T126e36;
T126T37ret=T126g4087;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_makeStream=T126e2;
T126T37ret=userfun_makeStream;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_makeStream,T126g4083);
T126e1=userfun_symbol("QUEUE-POP",null);
T126g4109=T126e1;
T126e2=function (T126g4110)
{
var T126g4111;
var T126e7;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4111=userfun_cadr(T126g4110);
T126e7=(T126g4110==null?null:T126g4110._);
T126T37tmp=(T126g4110==null?null:T126g4110.__);
T126T37ret=(T126e7===T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2625;continue;}
userfun_T37T37usetfCar(null,T126g4110);
case 2625:
T126T37ret=(T126g4110==null?null:T126g4110.__);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2627;continue;}
T126T37tmp=userfun_cddr(T126g4110);
userfun_T37T37usetfCdr(T126T37tmp,T126g4110);
case 2627:
T126T37ret=T126g4111;
return T126T37ret;
}}};
userfun_queuePop=T126e2;
T126T37ret=userfun_queuePop;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_queuePop,T126g4109);
T126e1=userfun_symbol("STREAM-USER-DETAIL",null);
T126g4112=T126e1;
T126e2=function (T126g4113)
{
var T126T37ret;
T126T37ret=T126g4113[7];
return T126T37ret;
};
userfun_streamUserDetail=T126e2;
T126T37ret=userfun_streamUserDetail;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_streamUserDetail,T126g4112);
T126e1=userfun_symbol("ENQUEUE-LIST",null);
T126g4114=T126e1;
T126e2=function (T126g4115,T126g4116)
{
var T126e7;
var T126T37tmp;
var T126T37ret;
T126e7=(T126g4115==null?null:T126g4115.__);
T126T37tmp=new userfun_T37cons(T126g4116,null);
T126T37tmp=new userfun_T37cons(T126e7,T126T37tmp);
T126T37tmp=userfun_nconc(T126T37tmp);
userfun_T37T37usetfCdr(T126T37tmp,T126g4115);
T126T37tmp=userfun_last(T126g4116);
T126T37ret=userfun_T37T37usetfCar(T126T37tmp,T126g4115);
return T126T37ret;
};
userfun_enqueueList=T126e2;
T126T37ret=userfun_enqueueList;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_enqueueList,T126g4114);
T126e1=userfun_symbol("%FORMAT-DIRECTIVE",null);
T126g4117=T126e1;
T126e2=function (T126g4118,T126g4119,T126g4120,T126g4121,T126g4122)
{
var T126T37tmp;
var T126g4123;
var T126T37ret;
var T126g4124;
var T126e27;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=userfun_elt(T126g4121,T126g4120);
T126g4123=userfun_charUpcase(T126T37tmp);
T126T37tmp=userfun_codeChar(37);
T126T37ret=(T126g4123.v==T126T37tmp.v);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2645;continue;}
userfun_terpri(T126g4118);
T126T37tmp=userfun_integer1T43(T126g4120);
T126T37ret=userfun_T37format(T126g4118,T126g4119,T126T37tmp,T126g4121,T126g4122);
_I_=2644;continue;
case 2645:
T126T37tmp=userfun_codeChar(65);
T126T37ret=(T126g4123.v==T126T37tmp.v);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2646;continue;}
if(!T126g4122&&T126g4122!==0&&T126g4122!==''){_I_=2642;continue;}
T126T37tmp=(T126g4122==null?null:T126g4122._);
T126g4124=userfun_consT63(T126T37tmp);
if(!T126g4124&&T126g4124!==0&&T126g4124!==''){_I_=2636;continue;}
T126T37ret=T126g4124;
_I_=2635;continue;
case 2636:
T126T37tmp=(T126g4122==null?null:T126g4122._);
T126T37ret=userfun_variablep(T126T37tmp);
case 2635:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2639;continue;}
T126T37tmp=(T126g4122==null?null:T126g4122._);
userfun_latePrint(T126T37tmp,T126g4118);
_I_=2641;continue;
case 2639:
T126T37tmp=(T126g4122==null?null:T126g4122._);
userfun_princ(T126T37tmp,T126g4118);
_I_=2641;continue;
case 2642:
T126T37tmp=new userfun_T37cons("argument specified in format is missing",null);
userfun_error(T126T37tmp);
case 2641:
T126e27=userfun_integer1T43(T126g4120);
T126T37tmp=(T126g4122==null?null:T126g4122.__);
T126T37ret=userfun_T37format(T126g4118,T126g4119,T126e27,T126g4121,T126T37tmp);
_I_=2644;continue;
case 2646:
T126T37tmp=userfun_codeChar(126);
userfun_princ(T126T37tmp,T126g4118);
T126T37ret=userfun_T37format(T126g4118,T126g4119,T126g4120,T126g4121,T126g4122);
case 2644:
return T126T37ret;
}}};
userfun_T37formatDirective=T126e2;
T126T37ret=userfun_T37formatDirective;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37formatDirective,T126g4117);
T126e1=userfun_symbol("PRINC",null);
T126g4125=T126e1;
T126e3=function (T126g4128)
{
var T126e4;
var T126T37ret;
var T126e25;
T126e4=function (T126g4129,T126g4130)
{
var T126g4131;
var T126T37ret;
var T126g4132;
var T126T37tmp;
var T126g4133;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4131=T126g4130;
T126T37ret=(T126g4131===true);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2651;continue;}
T126T37ret=STANDARDOUTPUT;
_I_=2650;continue;
case 2651:
T126T37ret=(T126g4131===null);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2652;continue;}
T126T37ret=userfun_makeStringStream();
_I_=2650;continue;
case 2652:
T126T37ret=T126g4131;
case 2650:
T126g4132=T126T37ret;
T126T37ret=userfun_stringT63(T126g4129);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2658;continue;}
userfun_T37princString(T126g4129,T126g4132);
_I_=2657;continue;
case 2658:
T126T37ret=userfun_characterT63(T126g4129);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2659;continue;}
userfun_T37princCharacter(T126g4129,T126g4132);
_I_=2657;continue;
case 2659:
T126T37ret=userfun_numberT63(T126g4129);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2660;continue;}
userfun_T37princNumber(T126g4129,T126g4132);
_I_=2657;continue;
case 2660:
T126T37ret=userfun_symbolT63(T126g4129);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2657;continue;}
T126T37tmp=userfun_symbolName(T126g4129);
userfun_T37princString(T126T37tmp,T126g4132);
case 2657:
T126g4133=T126g4129;
if(!T126g4131&&T126g4131!==0&&T126g4131!==''){_I_=2655;continue;}
T126T37ret=T126g4133;
_I_=2654;continue;
case 2655:
T126T37ret=userfun_getStreamString(T126g4132);
case 2654:
return T126T37ret;
}}};
T126g4128=T126e4;
T126T37ret=T126g4128;
T126e25=function (T126g4134)
{
var T126g4135;
var T126g4136;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4135=(T126g4134==null?null:T126g4134._);
T126g4134=(T126g4134==null?null:T126g4134.__);
if(!T126g4134&&T126g4134!==0&&T126g4134!==''){_I_=2663;continue;}
T126g4136=(T126g4134==null?null:T126g4134._);
T126g4134=(T126g4134==null?null:T126g4134.__);
_I_=2662;continue;
case 2663:
T126g4136=STANDARDOUTPUT;
case 2662:
T126T37ret=T126g4128(T126g4135,T126g4136);
return T126T37ret;
}}};
T126g4128.treExp=T126e25;
T126T37ret=T126g4128;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_princ=T126e2;
T126T37ret=userfun_princ;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_princ,T126g4125);
T126e1=userfun_symbol("QUEUE-STRING",null);
T126g4137=T126e1;
T126e2=function (T126g4138)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_queueList(T126g4138);
T126T37ret=userfun_listString(T126T37tmp);
return T126T37ret;
};
userfun_queueString=T126e2;
T126T37ret=userfun_queueString;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_queueString,T126g4137);
T126e1=userfun_symbol("%%USETF-STREAM-USER-DETAIL",null);
T126g4139=T126e1;
T126e2=function (T126g4140,T126g4141)
{
var T126T37ret;
T126T37ret=T126g4141[7]=T126g4140;
return T126T37ret;
};
userfun_T37T37usetfStreamUserDetail=T126e2;
T126T37ret=userfun_T37T37usetfStreamUserDetail;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37T37usetfStreamUserDetail,T126g4139);
T126e1=userfun_symbol("TRIM-TAIL",null);
T126g4145=T126e1;
T126e3=function (T126g4149)
{
var T126e4;
var T126T37ret;
var T126e24;
T126e4=function (T126g4150,T126g4151,T126g4152)
{
var T126g4153;
var T126T37ret;
var T126g4154;
var T126g4155;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4153=userfun_length(T126g4151);
T126T37ret=(0<T126g4153);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2680;continue;}
T126g4154=T126g4152;
T126g4155=T126g4154.treExp;
if(!T126g4155&&T126g4155!==0&&T126g4155!==''){_I_=2675;continue;}
T126T37tmp=userfun_integer1T45(T126g4153);
T126T37tmp=userfun_elt(T126g4151,T126T37tmp);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(T126g4150,T126T37tmp);
T126T37tmp=userfun_list(T126T37tmp);
T126T37ret=T126g4155.apply(null,[T126T37tmp]);
_I_=2674;continue;
case 2675:
T126T37tmp=userfun_integer1T45(T126g4153);
T126T37tmp=userfun_elt(T126g4151,T126T37tmp);
T126T37ret=T126g4154(T126g4150,T126T37tmp);
case 2674:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2678;continue;}
T126T37tmp=userfun_integer1T45(T126g4153);
T126T37tmp=userfun_subseq(T126g4151,0,T126T37tmp);
T126T37ret=userfun_trimTail(T126g4150,T126T37tmp,T126g4152);
_I_=2680;continue;
case 2678:
T126T37ret=T126g4151;
case 2680:
return T126T37ret;
}}};
T126g4149=T126e4;
T126T37ret=T126g4149;
T126e24=function (T126g4157)
{
var T126g4164;
var T126g4160;
var T126g4161;
var T126e25;
var T126g4158;
var T126g4159;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4160=T126g4384;
T126g4161=null;
T126e25=function ()
{
var T126g4163;
var T126g4162;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 2671:
T126g4163=true;
T126g4162=(T126g4157==null?null:T126g4157._);
T126T37tmp=T126g4162;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2682;continue;}
T126g4163=null;
case 2682:
if(!T126g4163&&T126g4163!==0&&T126g4163!==''){_I_=2685;continue;}
T126T37ret=null;
_I_=2672;continue;
case 2685:
T126T37ret=(T126g4162===T126g4385);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2671;continue;}
T126g4157=(T126g4157==null?null:T126g4157.__);
T126g4160=(T126g4157==null?null:T126g4157._);
T126g4157=(T126g4157==null?null:T126g4157.__);
_I_=2671;continue;
case 2672:
return T126T37ret;
}}};
T126g4161=T126e25;
;
T126g4161();
T126g4158=(T126g4157==null?null:T126g4157._);
T126g4157=(T126g4157==null?null:T126g4157.__);
T126g4161();
T126g4159=(T126g4157==null?null:T126g4157._);
T126g4157=(T126g4157==null?null:T126g4157.__);
T126g4161();
T126T37ret=(T126g4160===T126g4384);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2688;continue;}
T126g4160=userfun_eql;
case 2688:
T126T37ret=T126g4149(T126g4158,T126g4159,T126g4160);
return T126T37ret;
}}};
T126g4149.treExp=T126e24;
T126T37ret=T126g4149;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_trimTail=T126e2;
T126T37ret=userfun_trimTail;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_trimTail,T126g4145);
T126e1=userfun_symbol("TRIM-HEAD",null);
T126g4169=T126e1;
T126e3=function (T126g4173)
{
var T126e4;
var T126T37ret;
var T126e21;
T126e4=function (T126g4174,T126g4175,T126g4176)
{
var T126T37tmp;
var T126T37ret;
var T126g4177;
var T126g4178;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=userfun_length(T126g4175);
T126T37ret=(0<T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2701;continue;}
T126g4177=T126g4176;
T126g4178=T126g4177.treExp;
if(!T126g4178&&T126g4178!==0&&T126g4178!==''){_I_=2696;continue;}
T126T37tmp=userfun_elt(T126g4175,0);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(T126g4174,T126T37tmp);
T126T37tmp=userfun_list(T126T37tmp);
T126T37ret=T126g4178.apply(null,[T126T37tmp]);
_I_=2695;continue;
case 2696:
T126T37tmp=userfun_elt(T126g4175,0);
T126T37ret=T126g4177(T126g4174,T126T37tmp);
case 2695:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2699;continue;}
T126T37tmp=userfun_subseq(T126g4175,1,99999);
T126T37ret=userfun_trimHead(T126g4174,T126T37tmp,T126g4176);
_I_=2701;continue;
case 2699:
T126T37ret=T126g4175;
case 2701:
return T126T37ret;
}}};
T126g4173=T126e4;
T126T37ret=T126g4173;
T126e21=function (T126g4180)
{
var T126g4187;
var T126g4183;
var T126g4184;
var T126e22;
var T126g4181;
var T126g4182;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4183=T126g4384;
T126g4184=null;
T126e22=function ()
{
var T126g4186;
var T126g4185;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 2692:
T126g4186=true;
T126g4185=(T126g4180==null?null:T126g4180._);
T126T37tmp=T126g4185;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2703;continue;}
T126g4186=null;
case 2703:
if(!T126g4186&&T126g4186!==0&&T126g4186!==''){_I_=2706;continue;}
T126T37ret=null;
_I_=2693;continue;
case 2706:
T126T37ret=(T126g4185===T126g4385);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2692;continue;}
T126g4180=(T126g4180==null?null:T126g4180.__);
T126g4183=(T126g4180==null?null:T126g4180._);
T126g4180=(T126g4180==null?null:T126g4180.__);
_I_=2692;continue;
case 2693:
return T126T37ret;
}}};
T126g4184=T126e22;
;
T126g4184();
T126g4181=(T126g4180==null?null:T126g4180._);
T126g4180=(T126g4180==null?null:T126g4180.__);
T126g4184();
T126g4182=(T126g4180==null?null:T126g4180._);
T126g4180=(T126g4180==null?null:T126g4180.__);
T126g4184();
T126T37ret=(T126g4183===T126g4384);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2709;continue;}
T126g4183=userfun_eql;
case 2709:
T126T37ret=T126g4173(T126g4181,T126g4182,T126g4183);
return T126T37ret;
}}};
T126g4173.treExp=T126e21;
T126T37ret=T126g4173;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_trimHead=T126e2;
T126T37ret=userfun_trimHead;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_trimHead,T126g4169);
T126e1=userfun_symbol("CHAR-UPCASE",null);
T126g4189=T126e1;
T126e2=function (T126g4190)
{
var T126T37tmp;
var T126T37ret;
var T126e11;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=new userfun_T37cons(T126g4190,null);
T126T37ret=userfun_lowerCaseP(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2714;continue;}
T126e11=userfun_codeChar(65);
T126T37tmp=userfun_codeChar(97);
T126T37tmp=(T126e11.v-T126T37tmp.v);
T126T37tmp=userfun_codeChar(T126T37tmp);
T126T37tmp=(T126g4190.v+T126T37tmp.v);
T126T37ret=userfun_codeChar(T126T37tmp);
_I_=2713;continue;
case 2714:
T126T37ret=T126g4190;
case 2713:
return T126T37ret;
}}};
userfun_charUpcase=T126e2;
T126T37ret=userfun_charUpcase;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_charUpcase,T126g4189);
T126e1=userfun_symbol("TERPRI",null);
T126g4191=T126e1;
T126e3=function (T126g4194)
{
var T126e4;
var T126T37ret;
var T126e17;
T126e4=function (T126g4195)
{
var T126g4196;
var T126T37ret;
var T126g4197;
var T126T37tmp;
var T126g4198;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4196=T126g4195;
T126T37ret=(T126g4196===true);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2719;continue;}
T126T37ret=STANDARDOUTPUT;
_I_=2718;continue;
case 2719:
T126T37ret=(T126g4196===null);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2720;continue;}
T126T37ret=userfun_makeStringStream();
_I_=2718;continue;
case 2720:
T126T37ret=T126g4196;
case 2718:
T126g4197=T126T37ret;
T126T37tmp=userfun_codeChar(10);
userfun_T37princCharacter(T126T37tmp,T126g4197);
userfun_forceOutput(T126g4197);
T126g4198=null;
if(!T126g4196&&T126g4196!==0&&T126g4196!==''){_I_=2723;continue;}
T126T37ret=T126g4198;
_I_=2722;continue;
case 2723:
T126T37ret=userfun_getStreamString(T126g4197);
case 2722:
return T126T37ret;
}}};
T126g4194=T126e4;
T126T37ret=T126g4194;
T126e17=function (T126g4199)
{
var T126g4200;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
if(!T126g4199&&T126g4199!==0&&T126g4199!==''){_I_=2726;continue;}
T126g4200=(T126g4199==null?null:T126g4199._);
T126g4199=(T126g4199==null?null:T126g4199.__);
_I_=2725;continue;
case 2726:
T126g4200=STANDARDOUTPUT;
case 2725:
T126T37ret=T126g4194(T126g4200);
return T126T37ret;
}}};
T126g4194.treExp=T126e17;
T126T37ret=T126g4194;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_terpri=T126e2;
T126T37ret=userfun_terpri;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_terpri,T126g4191);
T126e1=userfun_symbol("VARIABLEP",null);
T126g4201=T126e1;
T126e2=function (T126g4202)
{
var T126T37ret;
var T126g4203;
var T126g4204;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_atom(T126g4202);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2735;continue;}
T126g4203=true;
T126g4204=userfun_stringT63(T126g4202);
if(!T126g4204&&T126g4204!==0&&T126g4204!==''){_I_=2731;continue;}
T126T37ret=T126g4204;
_I_=2730;continue;
case 2731:
T126T37ret=userfun_numberT63(T126g4202);
case 2730:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2733;continue;}
T126g4203=null;
case 2733:
T126T37ret=T126g4203;
case 2735:
return T126T37ret;
}}};
userfun_variablep=T126e2;
T126T37ret=userfun_variablep;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_variablep,T126g4201);
T126e1=userfun_symbol("LATE-PRINT",null);
T126g4205=T126e1;
T126e3=function (T126g4208)
{
var T126e4;
var T126T37ret;
var T126e16;
T126e4=function (T126g4209,T126g4210)
{
var T126g4211;
var T126T37ret;
var T126g4212;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4211=T126g4210;
T126T37ret=(T126g4211===true);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2740;continue;}
T126T37ret=STANDARDOUTPUT;
_I_=2739;continue;
case 2740:
T126T37ret=(T126g4211===null);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2741;continue;}
T126T37ret=userfun_makeStringStream();
_I_=2739;continue;
case 2741:
T126T37ret=T126g4211;
case 2739:
T126g4212=T126T37ret;
T126T37tmp=userfun_printTrace(T126g4209);
userfun_T37latePrint(T126g4209,T126g4212,T126T37tmp);
userfun_terpri(T126g4212);
if(!T126g4211&&T126g4211!==0&&T126g4211!==''){_I_=2744;continue;}
_I_=2743;continue;
case 2744:
userfun_getStreamString(T126g4212);
case 2743:
T126T37ret=T126g4209;
return T126T37ret;
}}};
T126g4208=T126e4;
T126T37ret=T126g4208;
T126e16=function (T126g4214)
{
var T126g4215;
var T126g4216;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4215=(T126g4214==null?null:T126g4214._);
T126g4214=(T126g4214==null?null:T126g4214.__);
if(!T126g4214&&T126g4214!==0&&T126g4214!==''){_I_=2747;continue;}
T126g4216=(T126g4214==null?null:T126g4214._);
T126g4214=(T126g4214==null?null:T126g4214.__);
_I_=2746;continue;
case 2747:
T126g4216=STANDARDOUTPUT;
case 2746:
T126T37ret=T126g4208(T126g4215,T126g4216);
return T126T37ret;
}}};
T126g4208.treExp=T126e16;
T126T37ret=T126g4208;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_latePrint=T126e2;
T126T37ret=userfun_latePrint;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_latePrint,T126g4205);
T126e1=userfun_symbol("%PRINC-STRING",null);
T126g4217=T126e1;
T126e2=function (T126g4218,T126g4219)
{
var T126T37ret;
T126T37ret=userfun_T37princCharacter(T126g4218,T126g4219);
return T126T37ret;
};
userfun_T37princString=T126e2;
T126T37ret=userfun_T37princString;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37princString,T126g4217);
T126e1=userfun_symbol("%PRINC-CHARACTER",null);
T126g4223=T126e1;
T126e2=function (T126g4224,T126g4225)
{
var T126g4226;
var T126T37ret;
var T126T37tmp;
var T126g4227;
var T126g4228;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4226=true;
T126T37ret=userfun_stringT63(T126g4224);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2753;continue;}
T126T37tmp=userfun_length(T126g4224);
T126T37ret=(0==T126T37tmp);
case 2753:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2755;continue;}
T126g4226=null;
case 2755:
T126T37ret=T126g4226;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2763;continue;}
T126T37ret=userfun_stringT63(T126g4224);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2758;continue;}
T126T37tmp=userfun_length(T126g4224);
T126T37tmp=userfun_1T45(T126T37tmp);
T126T37ret=userfun_elt(T126g4224,T126T37tmp);
_I_=2757;continue;
case 2758:
T126T37ret=T126g4224;
case 2757:
T126T37tmp=T126T37ret;
userfun_T37T37usetfStreamLastChar(T126T37tmp,T126g4225);
T126g4227=userfun_streamFunOut(T126g4225);
T126g4228=T126g4227.treExp;
if(!T126g4228&&T126g4228!==0&&T126g4228!==''){_I_=2761;continue;}
T126T37tmp=new userfun_T37cons(T126g4225,null);
T126T37tmp=new userfun_T37cons(T126g4224,T126T37tmp);
T126T37tmp=userfun_list(T126T37tmp);
T126T37ret=T126g4228.apply(null,[T126T37tmp]);
_I_=2763;continue;
case 2761:
T126T37ret=T126g4227(T126g4224,T126g4225);
case 2763:
return T126T37ret;
}}};
userfun_T37princCharacter=T126e2;
T126T37ret=userfun_T37princCharacter;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37princCharacter,T126g4223);
T126e1=userfun_symbol("%PRINC-NUMBER",null);
T126g4230=T126e1;
T126e2=function (T126g4231,T126g4232)
{
var T126g4240;
var T126g4233;
var T126e5;
var T126g4237;
var T126g4239;
var T126g4238;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4233=null;
T126e5=function (T126g4234,T126g4235)
{
var T126g4236;
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4236=(T126g4235%10);
T126g4234=new userfun_T37cons(T126g4236,T126g4234);
T126T37ret=(T126g4235>9);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2772;continue;}
T126T37tmp=new userfun_T37cons(T126g4236,null);
T126T37tmp=new userfun_T37cons(T126g4235,T126T37tmp);
T126T37tmp=userfun_T45(T126T37tmp);
T126T37tmp=(T126T37tmp/10);
T126T37ret=T126g4233(T126g4234,T126T37tmp);
_I_=2771;continue;
case 2772:
T126T37ret=T126g4234;
case 2771:
return T126T37ret;
}}};
T126g4233=T126e5;
;
T126g4237=T126g4233(null,T126g4231);
case 2767:
T126g4239=true;
if(!T126g4237&&T126g4237!==0&&T126g4237!==''){_I_=2774;continue;}
T126g4239=null;
case 2774:
if(!T126g4239&&T126g4239!==0&&T126g4239!==''){_I_=2777;continue;}
_I_=2766;continue;
case 2777:
T126g4238=(T126g4237==null?null:T126g4237._);
T126T37tmp=userfun_codeChar(48);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(T126g4238,T126T37tmp);
T126T37tmp=userfun_T43(T126T37tmp);
T126T37tmp=userfun_codeChar(T126T37tmp);
userfun_T37princCharacter(T126T37tmp,T126g4232);
T126g4237=(T126g4237==null?null:T126g4237.__);
_I_=2767;continue;
case 2766:
T126T37ret=null;
return T126T37ret;
}}};
userfun_T37princNumber=T126e2;
T126T37ret=userfun_T37princNumber;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37princNumber,T126g4230);
T126e1=userfun_symbol("FORCE-OUTPUT",null);
T126g4242=T126e1;
T126e3=function (T126g4245)
{
var T126e4;
var T126T37ret;
var T126e8;
T126e4=function (T126g4246)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_streamHandle(T126g4246);
T126T37ret=T37forceOutput(T126T37tmp);
return T126T37ret;
};
T126g4245=T126e4;
T126T37ret=T126g4245;
T126e8=function (T126g4247)
{
var T126g4248;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
if(!T126g4247&&T126g4247!==0&&T126g4247!==''){_I_=2781;continue;}
T126g4248=(T126g4247==null?null:T126g4247._);
T126g4247=(T126g4247==null?null:T126g4247.__);
_I_=2780;continue;
case 2781:
T126g4248=STANDARDOUTPUT;
case 2780:
T126T37ret=T126g4245(T126g4248);
return T126T37ret;
}}};
T126g4245.treExp=T126e8;
T126T37ret=T126g4245;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_forceOutput=T126e2;
T126T37ret=userfun_forceOutput;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_forceOutput,T126g4242);
T126e1=userfun_symbol("%LATE-PRINT",null);
T126g4249=T126e1;
T126e2=function (T126g4250,T126g4251,T126g4252)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_consT63(T126g4250);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2786;continue;}
T126T37ret=userfun_T37printCons(T126g4250,T126g4251,T126g4252);
_I_=2785;continue;
case 2786:
T126T37ret=userfun_T37printAtom(T126g4250,T126g4251,T126g4252);
case 2785:
return T126T37ret;
}}};
userfun_T37latePrint=T126e2;
T126T37ret=userfun_T37latePrint;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37latePrint,T126g4249);
T126e1=userfun_symbol("PRINT-TRACE",null);
T126g4253=T126e1;
T126e2=function (T126g4254)
{
var T126g4255;
var T126T37tmp;
var T126T37ret;
T126g4255=userfun_makePrintInfo(T126g4429,T126g4430);
userfun_T37printTrace(T126g4254,T126g4255);
T126T37tmp={};
userfun_T37T37usetfPrintInfoVisited(T126T37tmp,T126g4255);
T126T37ret=T126g4255;
return T126T37ret;
};
userfun_printTrace=T126e2;
T126T37ret=userfun_printTrace;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_printTrace,T126g4253);
T126e1=userfun_symbol("%%USETF-STREAM-LAST-CHAR",null);
T126g4256=T126e1;
T126e2=function (T126g4257,T126g4258)
{
var T126T37ret;
T126T37ret=T126g4258[5]=T126g4257;
return T126T37ret;
};
userfun_T37T37usetfStreamLastChar=T126e2;
T126T37ret=userfun_T37T37usetfStreamLastChar;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37T37usetfStreamLastChar,T126g4256);
T126e1=userfun_symbol("STREAM-FUN-OUT",null);
T126g4259=T126e1;
T126e2=function (T126g4260)
{
var T126T37ret;
T126T37ret=T126g4260[3];
return T126T37ret;
};
userfun_streamFunOut=T126e2;
T126T37ret=userfun_streamFunOut;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_streamFunOut,T126g4259);
T126e1=userfun_symbol("STREAM-HANDLE",null);
T126g4261=T126e1;
T126e2=function (T126g4262)
{
var T126T37ret;
T126T37ret=T126g4262[1];
return T126T37ret;
};
userfun_streamHandle=T126e2;
T126T37ret=userfun_streamHandle;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_streamHandle,T126g4261);
T126e1=userfun_symbol("%PRINT-CONS",null);
T126g4263=T126e1;
T126e2=function (T126g4264,T126g4265,T126g4266)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_codeChar(40);
userfun_princ(T126T37tmp,T126g4265);
T126T37ret=userfun_T37printRest(T126g4264,T126g4265,T126g4266);
return T126T37ret;
};
userfun_T37printCons=T126e2;
T126T37ret=userfun_T37printCons;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37printCons,T126g4263);
T126e1=userfun_symbol("%PRINT-ATOM",null);
T126g4267=T126e1;
T126e2=function (T126g4268,T126g4269,T126g4270)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_numberT63(T126g4268);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2801;continue;}
T126T37ret=userfun_princ(T126g4268,T126g4269);
_I_=2800;continue;
case 2801:
T126T37ret=userfun_stringT63(T126g4268);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2802;continue;}
T126T37ret=userfun_T37printString(T126g4268,T126g4269);
_I_=2800;continue;
case 2802:
T126T37ret=userfun_arrayT63(T126g4268);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2803;continue;}
T126T37ret=userfun_T37printArray(T126g4268,T126g4269,T126g4270);
_I_=2800;continue;
case 2803:
T126T37ret=userfun_functionT63(T126g4268);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2804;continue;}
T126T37ret=userfun_T37printFunction(T126g4268,T126g4269,T126g4270);
_I_=2800;continue;
case 2804:
T126T37ret=userfun_T37printSymbol(T126g4268,T126g4269);
case 2800:
return T126T37ret;
}}};
userfun_T37printAtom=T126e2;
T126T37ret=userfun_T37printAtom;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37printAtom,T126g4267);
T126e1=userfun_symbol("MAKE-PRINT-INFO",null);
T126g4271=T126e1;
T126e3=function (T126g4275)
{
var T126e4;
var T126T37ret;
var T126e16;
T126e4=function (T126g4276,T126g4277)
{
var T126g4278;
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4278=[3];
T126g4278[0]=T126g4431;
T126T37ret=(T126g4276===T126g4429);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2812;continue;}
T126T37ret={};
_I_=2811;continue;
case 2812:
T126T37ret=T126g4276;
case 2811:
T126T37tmp=T126T37ret;
T126g4278[1]=T126T37tmp;
T126T37ret=(T126g4277===T126g4430);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2815;continue;}
T126T37ret={};
_I_=2814;continue;
case 2815:
T126T37ret=T126g4277;
case 2814:
T126T37tmp=T126T37ret;
T126g4278[2]=T126T37tmp;
T126T37ret=T126g4278;
return T126T37ret;
}}};
T126g4275=T126e4;
T126T37ret=T126g4275;
T126e16=function (T126g4279)
{
var T126g4285;
var T126g4280;
var T126g4281;
var T126g4282;
var T126e17;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4280=T126g4429;
T126g4281=T126g4430;
T126g4282=null;
T126e17=function ()
{
var T126g4284;
var T126g4283;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 2808:
T126g4284=true;
T126g4283=(T126g4279==null?null:T126g4279._);
T126T37tmp=T126g4283;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2817;continue;}
T126g4284=null;
case 2817:
if(!T126g4284&&T126g4284!==0&&T126g4284!==''){_I_=2820;continue;}
T126T37ret=null;
_I_=2809;continue;
case 2820:
T126T37ret=(T126g4283===T126g4432);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2822;continue;}
T126g4279=(T126g4279==null?null:T126g4279.__);
T126g4280=(T126g4279==null?null:T126g4279._);
T126g4279=(T126g4279==null?null:T126g4279.__);
_I_=2808;continue;
case 2822:
T126T37ret=(T126g4283===T126g4433);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2808;continue;}
T126g4279=(T126g4279==null?null:T126g4279.__);
T126g4281=(T126g4279==null?null:T126g4279._);
T126g4279=(T126g4279==null?null:T126g4279.__);
_I_=2808;continue;
case 2809:
return T126T37ret;
}}};
T126g4282=T126e17;
;
T126g4282();
T126T37ret=(T126g4280===T126g4429);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2824;continue;}
T126g4280=T126g4429;
case 2824:
T126T37ret=(T126g4281===T126g4430);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2826;continue;}
T126g4281=T126g4430;
case 2826:
T126T37ret=T126g4275(T126g4280,T126g4281);
return T126T37ret;
}}};
T126g4275.treExp=T126e16;
T126T37ret=T126g4275;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_makePrintInfo=T126e2;
T126T37ret=userfun_makePrintInfo;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_makePrintInfo,T126g4271);
T126e1=userfun_symbol("%PRINT-TRACE",null);
T126g4287=T126e1;
T126e2=function (T126g4288,T126g4289)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_consT63(T126g4288);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2831;continue;}
T126T37ret=userfun_T37printTraceCons(T126g4288,T126g4289);
_I_=2830;continue;
case 2831:
T126T37ret=userfun_T37printTraceAtom(T126g4288,T126g4289);
case 2830:
return T126T37ret;
}}};
userfun_T37printTrace=T126e2;
T126T37ret=userfun_T37printTrace;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37printTrace,T126g4287);
T126e1=userfun_symbol("%%USETF-PRINT-INFO-VISITED",null);
T126g4290=T126e1;
T126e2=function (T126g4291,T126g4292)
{
var T126T37ret;
T126T37ret=T126g4292[1]=T126g4291;
return T126T37ret;
};
userfun_T37T37usetfPrintInfoVisited=T126e2;
T126T37ret=userfun_T37T37usetfPrintInfoVisited;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37T37usetfPrintInfoVisited,T126g4290);
T126e1=userfun_symbol("%PRINT-REST",null);
T126g4293=T126e1;
T126e2=function (T126g4294,T126g4295,T126g4296)
{
var T126g4297;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4297=userfun_T37printCheckCircularity(T126g4294,T126g4295,T126g4296);
if(!T126g4297&&T126g4297!==0&&T126g4297!==''){_I_=2838;continue;}
T126T37ret=T126g4297;
_I_=2837;continue;
case 2838:
T126T37ret=userfun_T37printRest0(T126g4294,T126g4295,T126g4296);
case 2837:
return T126T37ret;
}}};
userfun_T37printRest=T126e2;
T126T37ret=userfun_T37printRest;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37printRest,T126g4293);
T126e1=userfun_symbol("%PRINT-STRING",null);
T126g4298=T126e1;
T126e2=function (T126g4299,T126g4300)
{
var T126T37tmp;
var T126g4301;
var T126g4303;
var T126g4302;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=userfun_codeChar(34);
userfun_princ(T126T37tmp,T126g4300);
T126g4301=userfun_stringList(T126g4299);
case 2841:
T126g4303=true;
if(!T126g4301&&T126g4301!==0&&T126g4301!==''){_I_=2845;continue;}
T126g4303=null;
case 2845:
if(!T126g4303&&T126g4303!==0&&T126g4303!==''){_I_=2848;continue;}
_I_=2840;continue;
case 2848:
T126g4302=(T126g4301==null?null:T126g4301._);
T126T37tmp=userfun_codeChar(34);
T126T37ret=(T126g4302.v==T126T37tmp.v);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2850;continue;}
T126T37tmp=userfun_codeChar(34);
userfun_princ(T126T37tmp,T126g4300);
_I_=2849;continue;
case 2850:
userfun_princ(T126g4302,T126g4300);
case 2849:
T126g4301=(T126g4301==null?null:T126g4301.__);
_I_=2841;continue;
case 2840:
T126T37tmp=userfun_codeChar(34);
T126T37ret=userfun_princ(T126T37tmp,T126g4300);
return T126T37ret;
}}};
userfun_T37printString=T126e2;
T126T37ret=userfun_T37printString;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37printString,T126g4298);
T126e1=userfun_symbol("%PRINT-ARRAY",null);
T126g4304=T126e1;
T126e2=function (T126g4305,T126g4306,T126g4307)
{
var T126g4308;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4308=userfun_T37printCheckCircularity(T126g4305,T126g4306,T126g4307);
if(!T126g4308&&T126g4308!==0&&T126g4308!==''){_I_=2855;continue;}
T126T37ret=T126g4308;
_I_=2854;continue;
case 2855:
T126T37ret=userfun_T37printArray0(T126g4305,T126g4306,T126g4307);
case 2854:
return T126T37ret;
}}};
userfun_T37printArray=T126e2;
T126T37ret=userfun_T37printArray;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37printArray,T126g4304);
T126e1=userfun_symbol("%PRINT-FUNCTION",null);
T126g4309=T126e1;
T126e2=function (T126g4310,T126g4311,T126g4312)
{
var T126g4313;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4313=userfun_T37printCheckCircularity(T126g4310,T126g4311,T126g4312);
if(!T126g4313&&T126g4313!==0&&T126g4313!==''){_I_=2860;continue;}
T126T37ret=T126g4313;
_I_=2859;continue;
case 2860:
T126T37ret=userfun_T37printFunction0(T126g4310,T126g4311,T126g4312);
case 2859:
return T126T37ret;
}}};
userfun_T37printFunction=T126e2;
T126T37ret=userfun_T37printFunction;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37printFunction,T126g4309);
T126e1=userfun_symbol("%PRINT-SYMBOL",null);
T126g4314=T126e1;
T126e2=function (T126g4315,T126g4316)
{
var T126g4317;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4317=userfun_symbolPackage(T126g4315);
if(!T126g4317&&T126g4317!==0&&T126g4317!==''){_I_=2864;continue;}
T126T37tmp=userfun_symbolName(T126g4317);
userfun_princ(T126T37tmp,T126g4316);
T126T37tmp=userfun_codeChar(58);
userfun_princ(T126T37tmp,T126g4316);
case 2864:
T126T37tmp=userfun_symbolName(T126g4315);
T126T37ret=userfun_princ(T126T37tmp,T126g4316);
return T126T37ret;
}}};
userfun_T37printSymbol=T126e2;
T126T37ret=userfun_T37printSymbol;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37printSymbol,T126g4314);
T126e1=userfun_symbol("%PRINT-TRACE-CONS",null);
T126g4318=T126e1;
T126e2=function (T126g4319,T126g4320)
{
var T126g4321;
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4321=true;
T126T37ret=userfun_T37printTraceUpdate(T126g4319,T126g4320);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2868;continue;}
T126g4321=null;
case 2868:
T126T37ret=T126g4321;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2870;continue;}
T126T37tmp=(T126g4319==null?null:T126g4319._);
userfun_T37printTrace(T126T37tmp,T126g4320);
T126T37tmp=(T126g4319==null?null:T126g4319.__);
T126T37ret=userfun_T37printTrace(T126T37tmp,T126g4320);
case 2870:
return T126T37ret;
}}};
userfun_T37printTraceCons=T126e2;
T126T37ret=userfun_T37printTraceCons;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37printTraceCons,T126g4318);
T126e1=userfun_symbol("%PRINT-TRACE-ATOM",null);
T126g4322=T126e1;
T126e2=function (T126g4323,T126g4324)
{
var T126T37ret;
var T126g4325;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_arrayT63(T126g4323);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2878;continue;}
T126g4325=true;
T126T37ret=userfun_T37printTraceUpdate(T126g4323,T126g4324);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2874;continue;}
T126g4325=null;
case 2874:
T126T37ret=T126g4325;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2878;continue;}
T126T37ret=userfun_T37printTraceArray(T126g4323,T126g4324);
case 2878:
return T126T37ret;
}}};
userfun_T37printTraceAtom=T126e2;
T126T37ret=userfun_T37printTraceAtom;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37printTraceAtom,T126g4322);
T126e1=userfun_symbol("%PRINT-CHECK-CIRCULARITY",null);
T126g4326=T126e1;
T126e2=function (T126g4327,T126g4328,T126g4329)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=PRINTCIRCULARITIEST63;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2885;continue;}
T126T37tmp=userfun_printInfoFirstOccurences(T126g4329);
T126T37ret=userfun_href(T126T37tmp,T126g4327);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2883;continue;}
T126T37ret=userfun_T37printFirstOccurence(T126g4327,T126g4328,T126g4329);
_I_=2885;continue;
case 2883:
T126T37tmp=userfun_printInfoVisited(T126g4329);
T126T37ret=userfun_href(T126T37tmp,T126g4327);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2885;continue;}
T126T37ret=userfun_T37printCircularity(T126g4327,T126g4328);
case 2885:
return T126T37ret;
}}};
userfun_T37printCheckCircularity=T126e2;
T126T37ret=userfun_T37printCheckCircularity;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37printCheckCircularity,T126g4326);
T126e1=userfun_symbol("%PRINT-REST-0",null);
T126g4330=T126e1;
T126e2=function (T126g4331,T126g4332,T126g4333)
{
var T126T37tmp;
var T126g4334;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=userfun_printInfoVisited(T126g4333);
userfun_T37T37usetfHref(true,T126T37tmp,T126g4331);
T126T37tmp=(T126g4331==null?null:T126g4331._);
userfun_T37latePrint(T126T37tmp,T126g4332,T126g4333);
T126g4334=(T126g4331==null?null:T126g4331.__);
if(!T126g4334&&T126g4334!==0&&T126g4334!==''){_I_=2893;continue;}
T126T37ret=userfun_consT63(T126g4334);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2890;continue;}
T126T37tmp=userfun_codeChar(32);
userfun_princ(T126T37tmp,T126g4332);
T126T37ret=userfun_T37printRest(T126g4334,T126g4332,T126g4333);
_I_=2892;continue;
case 2890:
userfun_princ(" . ",T126g4332);
T126T37ret=userfun_T37printAtom(T126g4334,T126g4332,T126g4333);
_I_=2892;continue;
case 2893:
T126T37ret=userfun_princ(")",T126g4332);
case 2892:
return T126T37ret;
}}};
userfun_T37printRest0=T126e2;
T126T37ret=userfun_T37printRest0;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37printRest0,T126g4330);
T126e1=userfun_symbol("%PRINT-ARRAY-0",null);
T126g4335=T126e1;
T126e2=function (T126g4336,T126g4337,T126g4338)
{
var T126T37tmp;
var T126g4340;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
if(!PRINTCIRCULARITIEST63&&PRINTCIRCULARITIEST63!==0&&PRINTCIRCULARITIEST63!==''){_I_=2899;continue;}
T126T37tmp=userfun_printInfoVisited(T126g4338);
userfun_T37T37usetfHref(true,T126T37tmp,T126g4336);
case 2899:
userfun_princ("#(",T126g4337);
T126g4340=0;
case 2895:
T126T37tmp=userfun_length(T126g4336);
T126T37ret=(T126g4340==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2902;continue;}
_I_=2896;continue;
case 2902:
T126T37tmp=T126g4336[T126g4340];
userfun_T37latePrint(T126T37tmp,T126g4337,T126g4338);
userfun_princ(" ",T126g4337);
T126g4340=(1+T126g4340);
_I_=2895;continue;
case 2896:
T126T37ret=userfun_princ(")",T126g4337);
return T126T37ret;
}}};
userfun_T37printArray0=T126e2;
T126T37ret=userfun_T37printArray0;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37printArray0,T126g4335);
T126e1=userfun_symbol("%PRINT-FUNCTION-0",null);
T126g4341=T126e1;
T126e2=function (T126g4342,T126g4343,T126g4344)
{
var T126e6;
var T126T37tmp;
var T126T37ret;
userfun_princ("#'",T126g4343);
T126e6=userfun_functionArguments(T126g4342);
T126T37tmp=userfun_functionBody(T126g4342);
T126T37tmp=new userfun_T37cons(T126e6,T126T37tmp);
T126T37ret=userfun_T37latePrint(T126T37tmp,T126g4343,T126g4344);
return T126T37ret;
};
userfun_T37printFunction0=T126e2;
T126T37ret=userfun_T37printFunction0;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37printFunction0,T126g4341);
T126e1=userfun_symbol("%PRINT-TRACE-UPDATE",null);
T126g4345=T126e1;
T126e2=function (T126g4346,T126g4347)
{
var T126T37tmp;
var T126T37ret;
var T126g4348;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=userfun_printInfoVisited(T126g4347);
T126T37ret=userfun_href(T126T37tmp,T126g4346);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2907;continue;}
T126T37tmp=userfun_printInfoFirstOccurences(T126g4347);
T126T37ret=userfun_T37T37usetfHref(true,T126T37tmp,T126g4346);
case 2907:
T126g4348=T126T37ret;
T126T37tmp=userfun_printInfoVisited(T126g4347);
userfun_T37T37usetfHref(true,T126T37tmp,T126g4346);
T126T37ret=T126g4348;
return T126T37ret;
}}};
userfun_T37printTraceUpdate=T126e2;
T126T37ret=userfun_T37printTraceUpdate;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37printTraceUpdate,T126g4345);
T126e1=userfun_symbol("%PRINT-TRACE-ARRAY",null);
T126g4349=T126e1;
T126e2=function (T126g4350,T126g4351)
{
var T126g4353;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g4353=0;
case 2909:
T126T37tmp=userfun_length(T126g4350);
T126T37ret=(T126g4353==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2914;continue;}
T126T37ret=null;
_I_=2910;continue;
case 2914:
T126T37tmp=T126g4350[T126g4353];
userfun_T37printTrace(T126T37tmp,T126g4351);
T126g4353=(1+T126g4353);
_I_=2909;continue;
case 2910:
return T126T37ret;
}}};
userfun_T37printTraceArray=T126e2;
T126T37ret=userfun_T37printTraceArray;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37printTraceArray,T126g4349);
T126e1=userfun_symbol("PRINT-INFO-FIRST-OCCURENCES",null);
T126g4354=T126e1;
T126e2=function (T126g4355)
{
var T126T37ret;
T126T37ret=T126g4355[2];
return T126T37ret;
};
userfun_printInfoFirstOccurences=T126e2;
T126T37ret=userfun_printInfoFirstOccurences;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_printInfoFirstOccurences,T126g4354);
T126e1=userfun_symbol("%PRINT-FIRST-OCCURENCE",null);
T126g4356=T126e1;
T126e2=function (T126g4357,T126g4358,T126g4359)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_printInfoFirstOccurences(T126g4359);
delete T126T37tmp[T126g4357];
userfun_princ("(%%reference ",T126g4358);
T126T37tmp=T37T37id(T126g4357);
userfun_princ(T126T37tmp,T126g4358);
userfun_princ(" ",T126g4358);
userfun_T37latePrint(T126g4357,T126g4358,T126g4359);
T126T37ret=userfun_princ(")",T126g4358);
return T126T37ret;
};
userfun_T37printFirstOccurence=T126e2;
T126T37ret=userfun_T37printFirstOccurence;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37printFirstOccurence,T126g4356);
T126e1=userfun_symbol("PRINT-INFO-VISITED",null);
T126g4360=T126e1;
T126e2=function (T126g4361)
{
var T126T37ret;
T126T37ret=T126g4361[1];
return T126T37ret;
};
userfun_printInfoVisited=T126e2;
T126T37ret=userfun_printInfoVisited;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_printInfoVisited,T126g4360);
T126e1=userfun_symbol("%PRINT-CIRCULARITY",null);
T126g4362=T126e1;
T126e2=function (T126g4363,T126g4364)
{
var T126T37tmp;
var T126T37ret;
userfun_princ("(%%circular ",T126g4364);
T126T37tmp=T37T37id(T126g4363);
userfun_princ(T126T37tmp,T126g4364);
T126T37ret=userfun_princ(")",T126g4364);
return T126T37ret;
};
userfun_T37printCircularity=T126e2;
T126T37ret=userfun_T37printCircularity;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_T37printCircularity,T126g4362);
T126e1=userfun_symbol("FUNCTION-ARGUMENTS",null);
T126g4365=T126e1;
T126e2=function (T126g4366)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=builtinT63(T126g4366);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=2926;continue;}
T126T37tmp=new userfun_T37cons(T126g4434,null);
T126T37ret=new userfun_T37cons(T126g4435,T126T37tmp);
_I_=2925;continue;
case 2926:
T126T37tmp=userfun_symbolValue(T126g4366);
T126T37ret=(T126T37tmp==null?null:T126T37tmp._);
case 2925:
return T126T37ret;
}}};
userfun_functionArguments=T126e2;
T126T37ret=userfun_functionArguments;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_functionArguments,T126g4365);
T126e1=userfun_symbol("FUNCTION-BODY",null);
T126g4367=T126e1;
T126e2=function (T126g4368)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_symbolValue(T126g4368);
T126T37ret=(T126T37tmp==null?null:T126T37tmp.__);
return T126T37ret;
};
userfun_functionBody=T126e2;
T126T37ret=userfun_functionBody;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_functionBody,T126g4367);
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
CURRENTEXPANDER=null;
T126T37ret=CURRENTEXPANDER;
MACROPDIVERSION=null;
T126T37ret=MACROPDIVERSION;
MACROCALLDIVERSION=null;
T126T37ret=MACROCALLDIVERSION;
GENSYMCOUNTER=null;
T126T37ret=GENSYMCOUNTER;
EXPANDERS=null;
T126T37ret=EXPANDERS;
MACROEXPANDBACKQUOTEDIVERSION=null;
T126T37ret=MACROEXPANDBACKQUOTEDIVERSION;
STANDARDOUTPUT=null;
T126T37ret=STANDARDOUTPUT;
CURRENTMACRO=null;
T126T37ret=CURRENTMACRO;
PRINTCIRCULARITIEST63=null;
T126T37ret=PRINTCIRCULARITIEST63;
T126e1=userfun_symbol("MAKE-STANDARD-STREAM",null);
T126g4369=T126e1;
T126e2=function ()
{
var T126e5;
var T126e6;
var T126e7;
var T126T37ret;
T126e5=function (T126g4370)
{
var T126T37ret;
T126T37ret=T37readChar(null);
return T126T37ret;
};
T126e6=function (T126g4371,T126g4372)
{
var T126T37ret;
T126T37ret=T37princ(T126g4371,null);
return T126T37ret;
};
T126e7=function (T126g4373)
{
var T126T37ret;
T126T37ret=T37feof(null);
return T126T37ret;
};
T126T37ret=userfun_makeStream(T126g4414,T126e5,T126e6,T126e7,T126g4415,T126g4416,T126g4420);
return T126T37ret;
};
userfun_makeStandardStream=T126e2;
T126T37ret=userfun_makeStandardStream;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_makeStandardStream,T126g4369);
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
PRINTCIRCULARITIEST63=null;
T126T37ret=PRINTCIRCULARITIEST63;
CURRENTMACRO=null;
T126T37ret=CURRENTMACRO;
T126e1=userfun_makeStandardStream();
STANDARDOUTPUT=T126e1;
T126T37ret=STANDARDOUTPUT;
MACROEXPANDBACKQUOTEDIVERSION=null;
T126T37ret=MACROEXPANDBACKQUOTEDIVERSION;
EXPANDERS=null;
T126T37ret=EXPANDERS;
GENSYMCOUNTER=0;
T126T37ret=GENSYMCOUNTER;
MACROCALLDIVERSION=null;
T126T37ret=MACROCALLDIVERSION;
MACROPDIVERSION=null;
T126T37ret=MACROPDIVERSION;
CURRENTEXPANDER=null;
T126T37ret=CURRENTEXPANDER;
APPLICATIONNAME="Bluebox";
T126T37ret=APPLICATIONNAME;
DEVELOPMENTVERSIONT63=true;
T126T37ret=DEVELOPMENTVERSIONT63;
DEMOVERSIONT63=null;
T126T37ret=DEMOVERSIONT63;
VERSIONMAJOR=2;
T126T37ret=VERSIONMAJOR;
VERSIONMINOR=3;
T126T37ret=VERSIONMINOR;
LOGEVENTS=null;
T126T37ret=LOGEVENTS;
HAVESTORE=null;
T126T37ret=HAVESTORE;
T126e4=new userfun_T37cons(DEMOVERSIONT63,null);
T126e3=new userfun_T37cons(DEVELOPMENTVERSIONT63,T126e4);
T126e2=userfun_list(T126e3);
T126e1=userfun_T37not(T126e2);
CHECKFORUPDATEST63=T126e1;
T126T37ret=CHECKFORUPDATEST63;
T126e2=new userfun_T37cons(T126g4436,null);
T126e1=new userfun_T37cons(T126g4437,T126e2);
AVAILABLELANGUAGES=T126e1;
T126T37ret=AVAILABLELANGUAGES;
NATURALMOVEMINIMALDISTANCE=15;
T126T37ret=NATURALMOVEMINIMALDISTANCE;
SELECTSPEED=24;
T126T37ret=SELECTSPEED;
SELECTINTERVAL=100;
T126T37ret=SELECTINTERVAL;
INTROSCROLLOUTSPEED=10;
T126T37ret=INTROSCROLLOUTSPEED;
INTROSCROLLOUTINTERVAL=25;
T126T37ret=INTROSCROLLOUTINTERVAL;
CONFIGDBTABLE="config";
T126T37ret=CONFIGDBTABLE;
MYSQLT63=null;
T126T37ret=MYSQLT63;
T126T37ret=null;
T126e1=userfun_symbol("ARRAY-COPY",null);
T126g1771=T126e1;
T126e2=function (T126g1774)
{
var T126g1775;
var T126g1776;
var T126T37ret;
var T126g1778;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1775=[];
T126g1776=T126g1774;
T126T37ret=T126g1776;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=509;continue;}
T126g1778=0;
case 504:
T126T37tmp=userfun_length(T126g1776);
T126T37ret=(T126g1778==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=508;continue;}
T126T37ret=T126g1775;
_I_=509;continue;
case 508:
T126T37tmp=T126g1776[T126g1778];
T126g1775.push(T126T37tmp);
T126g1778=(1+T126g1778);
_I_=504;continue;
case 509:
return T126T37ret;
}}};
userfun_arrayCopy=T126e2;
T126T37ret=userfun_arrayCopy;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_arrayCopy,T126g1771);
T126e1=userfun_symbol("ARRAY-FILTER",null);
T126g1782=T126e1;
T126e2=function (T126g1785,T126g1786)
{
var T126g1787;
var T126g1788;
var T126T37ret;
var T126g1790;
var T126T37tmp;
var T126g1791;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1787=[];
T126g1788=T126g1785;
T126T37ret=T126g1788;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=518;continue;}
T126g1790=0;
case 511:
T126T37tmp=userfun_length(T126g1788);
T126T37ret=(T126g1790==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=515;continue;}
T126T37ret=T126g1787;
_I_=518;continue;
case 515:
T126g1791=T126g1788[T126g1790];
T126T37ret=T126g1786(T126g1791);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=516;continue;}
T126g1787.push(T126g1791);
case 516:
T126g1790=(1+T126g1790);
_I_=511;continue;
case 518:
return T126T37ret;
}}};
userfun_arrayFilter=T126e2;
T126T37ret=userfun_arrayFilter;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_arrayFilter,T126g1782);
T126e1=userfun_symbol("ARRAY-MERGE",null);
T126g1795=T126e1;
T126e2=function (T126g1798,T126g1799)
{
var T126g1800;
var T126T37ret;
var T126g1801;
var T126g1802;
var T126g1804;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1800=T126g1798;
if(!T126g1800&&T126g1800!==0&&T126g1800!==''){_I_=524;continue;}
T126T37ret=T126g1800;
_I_=523;continue;
case 524:
T126T37ret=T126g1799;
case 523:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=537;continue;}
T126g1801=true;
if(!T126g1798&&T126g1798!==0&&T126g1798!==''){_I_=526;continue;}
T126g1801=null;
case 526:
if(!T126g1801&&T126g1801!==0&&T126g1801!==''){_I_=528;continue;}
T126g1798=[];
case 528:
if(!T126g1799&&T126g1799!==0&&T126g1799!==''){_I_=535;continue;}
T126g1802=T126g1799;
T126T37ret=T126g1802;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=537;continue;}
T126g1804=0;
case 520:
T126T37tmp=userfun_length(T126g1802);
T126T37ret=(T126g1804==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=531;continue;}
T126T37ret=T126g1798;
_I_=537;continue;
case 531:
T126T37tmp=T126g1802[T126g1804];
T126g1798.push(T126T37tmp);
T126g1804=(1+T126g1804);
_I_=520;continue;
case 535:
T126T37ret=T126g1798;
case 537:
return T126T37ret;
}}};
userfun_arrayMerge=T126e2;
T126T37ret=userfun_arrayMerge;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_arrayMerge,T126g1795);
T126e1=userfun_symbol("ARRAY-FIRST",null);
T126g1806=T126e1;
T126e2=function (T126g1807)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=(0<T126g1807.length);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=540;continue;}
T126T37ret=T126g1807[0];
case 540:
return T126T37ret;
}}};
userfun_arrayFirst=T126e2;
T126T37ret=userfun_arrayFirst;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_arrayFirst,T126g1806);
T126e1=userfun_symbol("FORCE-ARRAY",null);
T126g1808=T126e1;
T126e2=function (T126g1809)
{
var T126T37ret;
var T126g1810;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_arrayT63(T126g1809);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=544;continue;}
T126T37ret=T126g1809;
_I_=543;continue;
case 544:
T126g1810=[];
T126g1810[0]=T126g1809;
T126T37ret=T126g1810;
case 543:
return T126T37ret;
}}};
userfun_forceArray=T126e2;
T126T37ret=userfun_forceArray;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_forceArray,T126g1808);
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126e1=userfun_symbol("HASH-COPY",null);
T126g1818=T126e1;
T126e2=function (T126g1819)
{
var T126T37ret;
T126T37ret=userfun_hashMerge(null,T126g1819);
return T126T37ret;
};
userfun_hashCopy=T126e2;
T126T37ret=userfun_hashCopy;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_hashCopy,T126g1818);
T126e1=userfun_symbol("HASH-LIST",null);
T126g1820=T126e1;
T126e2=function (T126g1821)
{
var T126g1825;
var T126T37ret;
var T126g1822;
var T126e5;
T126T37ret=null;
T126g1822=userfun_makeQueue();
T126e5=function (T126g1823,T126g1824)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=new userfun_T37cons(T126g1823,T126g1824);
T126T37ret=userfun_enqueue(T126g1822,T126T37tmp);
return T126T37ret;
};
userfun_maphash(T126e5,T126g1821);
T126T37ret=userfun_queueList(T126g1822);
return T126T37ret;
};
userfun_hashList=T126e2;
T126T37ret=userfun_hashList;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_hashList,T126g1820);
T126T37ret=null;
T126e1=userfun_symbol("DISTANCE",null);
T126g1827=T126e1;
T126e2=function (T126g1828,T126g1829,T126g1830,T126g1831)
{
var T126T37tmp;
var T126e6;
var T126T37ret;
T126T37tmp=new userfun_T37cons(T126g1830,null);
T126T37tmp=new userfun_T37cons(T126g1828,T126T37tmp);
T126T37tmp=userfun_T45(T126T37tmp);
T126T37tmp=Math.abs(T126T37tmp);
T126e6=Math.pow(T126T37tmp,2);
T126T37tmp=new userfun_T37cons(T126g1831,null);
T126T37tmp=new userfun_T37cons(T126g1829,T126T37tmp);
T126T37tmp=userfun_T45(T126T37tmp);
T126T37tmp=Math.abs(T126T37tmp);
T126T37tmp=Math.pow(T126T37tmp,2);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(T126e6,T126T37tmp);
T126T37tmp=userfun_T43(T126T37tmp);
T126T37ret=Math.sqrt(T126T37tmp);
return T126T37ret;
};
userfun_distance=T126e2;
T126T37ret=userfun_distance;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_distance,T126g1827);
T126e1=userfun_symbol("HALF",null);
T126g1832=T126e1;
T126e2=function (T126g1833)
{
var T126T37ret;
T126T37ret=(T126g1833/2);
return T126T37ret;
};
userfun_half=T126e2;
T126T37ret=userfun_half;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_half,T126g1832);
T126e1=userfun_symbol("WITHIN?",null);
T126g1834=T126e1;
T126e2=function (T126g1835,T126g1836,T126g1837)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_T60T61(T126g1836,T126g1835);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=551;continue;}
T126T37tmp=new userfun_T37cons(T126g1837,null);
T126T37tmp=new userfun_T37cons(T126g1836,T126T37tmp);
T126T37tmp=userfun_T43(T126T37tmp);
T126T37ret=userfun_T60(T126g1835,T126T37tmp);
case 551:
return T126T37ret;
}}};
userfun_withinT63=T126e2;
T126T37ret=userfun_withinT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_withinT63,T126g1834);
T126e1=userfun_symbol("INSIDE-RECT?",null);
T126g1838=T126e1;
T126e2=function (T126g1839,T126g1840,T126g1841,T126g1842,T126g1843,T126g1844)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_withinT63(T126g1839,T126g1841,T126g1843);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=554;continue;}
T126T37ret=userfun_withinT63(T126g1840,T126g1842,T126g1844);
case 554:
return T126T37ret;
}}};
userfun_insideRectT63=T126e2;
T126T37ret=userfun_insideRectT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_insideRectT63,T126g1838);
T126e1=userfun_symbol("CLIP-AXIS",null);
T126g1845=T126e1;
T126e2=function (T126g1846,T126g1847,T126g1848)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_T60(T126g1846,T126g1847);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=561;continue;}
T126T37tmp=new userfun_T37cons(T126g1847,null);
T126T37tmp=new userfun_T37cons(T126g1846,T126T37tmp);
T126T37ret=userfun_T45(T126T37tmp);
_I_=560;continue;
case 561:
T126T37ret=userfun_T62(T126g1846,T126g1848);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=558;continue;}
T126T37tmp=new userfun_T37cons(T126g1848,null);
T126T37tmp=new userfun_T37cons(T126g1846,T126T37tmp);
T126T37ret=userfun_T45(T126T37tmp);
_I_=560;continue;
case 558:
T126T37ret=0;
case 560:
return T126T37ret;
}}};
userfun_clipAxis=T126e2;
T126T37ret=userfun_clipAxis;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_clipAxis,T126g1845);
T126T37ret=null;
T126e1=userfun_symbol("PRECISION-WITHOUT-EXPONENT",null);
T126g1849=T126e1;
T126e2=function (T126g1850,T126g1851)
{
var T126g1852;
var T126T37tmp;
var T126T37ret;
T126g1852=Math.pow(10,T126g1851);
T126T37tmp=(T126g1850*T126g1852);
T126T37tmp=Math.round(T126T37tmp);
T126T37ret=(T126T37tmp/T126g1852);
return T126T37ret;
};
userfun_precisionWithoutExponent=T126e2;
T126T37ret=userfun_precisionWithoutExponent;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_precisionWithoutExponent,T126g1849);
T126T37ret=null;
T126e1=userfun_symbol("DEGREE-SIN",null);
T126g1853=T126e1;
T126e2=function (T126g1854)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=(Math.PI/180);
T126T37tmp=(T126g1854*T126T37tmp);
T126T37ret=Math.sin(T126T37tmp);
return T126T37ret;
};
userfun_degreeSin=T126e2;
T126T37ret=userfun_degreeSin;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_degreeSin,T126g1853);
T126e1=userfun_symbol("DEGREE-COS",null);
T126g1855=T126e1;
T126e2=function (T126g1856)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=(Math.PI/180);
T126T37tmp=(T126g1856*T126T37tmp);
T126T37ret=Math.cos(T126T37tmp);
return T126T37ret;
};
userfun_degreeCos=T126e2;
T126T37ret=userfun_degreeCos;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_degreeCos,T126g1855);
T126T37ret=null;
T126e1=userfun_symbol("WAIT",null);
T126g1857=T126e1;
T126e2=function (T126g1858,T126g1859)
{
var T126g1862;
var T126T37ret;
var T126g1860;
var T126g1861;
var T126e4;
var T126T37tmp;
T126T37ret=null;
T126g1860=null;
T126g1861=null;
T126e4=function ()
{
var T126T37ret;
window.clearTimeout(T126g1860);
T126T37ret=T126g1858();
return T126T37ret;
};
T126g1861=T126e4;
;
T126T37tmp=userfun_cpsWrap(T126g1861);
T126g1860=window.setTimeout(T126T37tmp,T126g1859);
T126T37ret=T126g1860;
return T126T37ret;
};
userfun_wait=T126e2;
T126T37ret=userfun_wait;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_wait,T126g1857);
T126T37ret=null;
T126T37ret=null;
CAROSHIREVISION="3796";
T126T37ret=CAROSHIREVISION;
CAROSHIRELEASEDATE="13/10/2011 14:24";
T126T37ret=CAROSHIRELEASEDATE;
TREREVISION="2566M";
T126T37ret=TREREVISION;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126e1=userfun_symbol("_CAROSHI-BROWSER",null);
T126g1873=T126e1;
T126e2=function ()
{
var T126T37tmp;
var T126T37ret;
this.___caroshiBrowser=true;
T126T37tmp=navigator.userAgent.indexOf("Mozilla");
this.ff=(-1<T126T37tmp);
T126T37tmp=navigator.userAgent.indexOf("WebKit");
this.webkit=(-1<T126T37tmp);
T126T37tmp=navigator.userAgent.indexOf("Opera");
this.opera=(-1<T126T37tmp);
T126T37tmp=navigator.userAgent.indexOf("Gecko");
this.gecko=(-1<T126T37tmp);
this.ie=("Microsoft Internet Explorer"==navigator.appName);
T126T37ret=this;
return T126T37ret;
};
userfun__caroshiBrowser=T126e2;
T126T37ret=userfun__caroshiBrowser;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun__caroshiBrowser,T126g1873);
T126e13=userfun_symbol("_CAROSHI-BROWSER?",null);
T126g1874=T126e13;
T126e14=function (T126g1876)
{
var T126T37ret;
var T126g1877;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_objectT63(T126g1876);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=574;continue;}
T126g1877=true;
T126T37tmp=typeof T126g1876.___caroshiBrowser;
T126T37ret=("undefined"==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=570;continue;}
T126g1877=null;
case 570:
T126T37ret=T126g1877;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=574;continue;}
T126T37ret=T126g1876;
case 574:
return T126T37ret;
}}};
userfun__caroshiBrowserT63=T126e14;
T126T37ret=userfun__caroshiBrowserT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun__caroshiBrowserT63,T126g1874);
T126T37ret=null;
T126e1=new userfun__caroshiBrowser();
BROWSER=T126e1;
T126T37ret=BROWSER;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126e1=userfun_symbol("_APPLICATION",null);
T126g1884=T126e1;
T126e2=function ()
{
var T126g1886;
var T126T37ret;
this.___application=true;
T126g1886=this;
T126g1886._components=null;
T126g1886._launchedT63=null;
T126T37ret=this;
return T126T37ret;
};
userfun__application=T126e2;
T126T37ret=userfun__application;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun__application,T126g1884);
T126e4=userfun_symbol("_APPLICATION?",null);
T126g1885=T126e4;
T126e5=function (T126g1887)
{
var T126T37ret;
var T126g1888;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_objectT63(T126g1887);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=585;continue;}
T126g1888=true;
T126T37tmp=typeof T126g1887.___application;
T126T37ret=("undefined"==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=581;continue;}
T126g1888=null;
case 581:
T126T37ret=T126g1888;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=585;continue;}
T126T37ret=T126g1887;
case 585:
return T126T37ret;
}}};
userfun__applicationT63=T126e5;
T126T37ret=userfun__applicationT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun__applicationT63,T126g1885);
T126e15=function (T126g1889)
{
var T126g1890;
var T126T37tmp;
var T126T37ret;
T126g1890=this;
T126T37tmp=new userfun_T37cons(T126g1889,null);
T126T37tmp=userfun_list(T126T37tmp);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(T126g1890._components,T126T37tmp);
T126g1890._components=userfun_nconc(T126T37tmp);
T126T37ret=T126g1890._components;
return T126T37ret;
};
T126e21=function ()
{
var T126g1891;
var T126g1892;
var T126T37ret;
var T126g1893;
var T126g1895;
var T126g1896;
var T126g1897;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1891=this;
T126g1892=true;
T126T37ret=T126g1891._launchedT63;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=587;continue;}
T126g1892=null;
case 587:
T126T37ret=T126g1892;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=596;continue;}
T126g1891._launchedT63=true;
T126g1893=T126g1891._components;
case 579:
T126g1895=true;
if(!T126g1893&&T126g1893!==0&&T126g1893!==''){_I_=589;continue;}
T126g1895=null;
case 589:
if(!T126g1895&&T126g1895!==0&&T126g1895!==''){_I_=592;continue;}
_I_=578;continue;
case 592:
T126g1896=(T126g1893==null?null:T126g1893._);
T126g1897=T126g1896.treExp;
if(!T126g1897&&T126g1897!==0&&T126g1897!==''){_I_=594;continue;}
T126T37tmp=userfun_list(null);
T126g1897.apply(null,[T126T37tmp]);
_I_=593;continue;
case 594:
T126g1896();
case 593:
T126g1893=(T126g1893==null?null:T126g1893.__);
_I_=579;continue;
case 578:
T126T37ret=true;
case 596:
return T126T37ret;
}}};
T126e14={addComponent:T126e15,_launch:T126e21};
T126T37ret=userfun_hashMerge(userfun__application.prototype,T126e14);
T126e1=new userfun__application();
application=T126e1;
T126T37ret=application;
T126e1=userfun_symbol("CAROSHI-START",null);
T126g1899=T126e1;
T126e2=function ()
{
var T126T37ret;
T126T37ret=application._launch();
return T126T37ret;
};
userfun_caroshiStart=T126e2;
T126T37ret=userfun_caroshiStart;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_caroshiStart,T126g1899);
ONLOADTIMER=null;
T126T37ret=ONLOADTIMER;
ONLOADDONET63=null;
T126T37ret=ONLOADDONET63;
T126T37ret=null;
T126e1=userfun_symbol("ONLOAD-INIT",null);
T126g1900=T126e1;
T126e2=function ()
{
var T126g1901;
var T126T37ret;
var T126g1902;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1901=true;
if(!ONLOADDONET63&&ONLOADDONET63!==0&&ONLOADDONET63!==''){_I_=600;continue;}
T126g1901=null;
case 600:
T126T37ret=T126g1901;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=604;continue;}
ONLOADDONET63=true;
T126g1902=ONLOADTIMER;
if(!T126g1902&&T126g1902!==0&&T126g1902!==''){_I_=602;continue;}
clearInterval(T126g1902);
case 602:
T126T37ret=userfun_caroshiStart();
case 604:
return T126T37ret;
}}};
userfun_onloadInit=T126e2;
T126T37ret=userfun_onloadInit;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_onloadInit,T126g1900);
T126e1=userfun_symbol("ONLOAD-MOZILLA",null);
T126g1903=T126e1;
T126e2=function ()
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=document.addEventListener;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=607;continue;}
T126T37tmp=userfun_cpsWrap(userfun_onloadInit);
T126T37ret=document.addEventListener("DOMContentLoaded",T126T37tmp,false);
case 607:
return T126T37ret;
}}};
userfun_onloadMozilla=T126e2;
T126T37ret=userfun_onloadMozilla;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_onloadMozilla,T126g1903);
T126T37ret=null;
T126e1=userfun_symbol("ONLOAD-IE",null);
T126g1904=T126e1;
T126e2=function ()
{
var T126g1905;
var T126T37ret;
var T126e6;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1905=document.attachEvent;
T126T37ret=T126g1905;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=612;continue;}
T126e6=function ()
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=(document.readyState=="complete");
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=610;continue;}
document.detachEvent("onreadystatechange",arguments.callee);
T126T37ret=userfun_onloadInit();
case 610:
return T126T37ret;
}}};
T126T37tmp=userfun_cpsWrap(T126e6);
T126T37ret=T126g1905("onreadystatechange",T126T37tmp);
case 612:
return T126T37ret;
}}};
userfun_onloadIe=T126e2;
T126T37ret=userfun_onloadIe;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_onloadIe,T126g1904);
T126T37ret=null;
T126e1=userfun_symbol("ONLOAD-WEBKIT",null);
T126g1906=T126e1;
T126e2=function ()
{
var T126g1907;
var T126g1908;
var T126T37ret;
var T126e11;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1907=new RegExp("WebKit","i");
T126g1908=true;
T126T37ret=T126g1907.test(navigator.userAgent);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=615;continue;}
T126g1908=null;
case 615:
T126T37ret=T126g1908;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=619;continue;}
T126e11=function ()
{
var T126g1909;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1909=new RegExp("loaded|complete","");
T126T37ret=T126g1909.test(document.readyState);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=617;continue;}
T126T37ret=userfun_onloadInit();
case 617:
return T126T37ret;
}}};
T126T37tmp=userfun_cpsWrap(T126e11);
ONLOADTIMER=setInterval(T126T37tmp,10);
T126T37ret=ONLOADTIMER;
case 619:
return T126T37ret;
}}};
userfun_onloadWebkit=T126e2;
T126T37ret=userfun_onloadWebkit;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_onloadWebkit,T126g1906);
T126T37ret=null;
T126e1=userfun_symbol("ONLOAD-OTHERS",null);
T126g1910=T126e1;
T126e2=function ()
{
var T126T37ret;
window.onload=userfun_onloadInit;
T126T37ret=window.onload;
return T126T37ret;
};
userfun_onloadOthers=T126e2;
T126T37ret=userfun_onloadOthers;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_onloadOthers,T126g1910);
T126T37ret=userfun_onloadMozilla();
T126T37ret=userfun_onloadIe();
T126T37ret=userfun_onloadWebkit();
T126T37ret=userfun_onloadOthers();
T126T37ret=null;
T126T37ret=null;
T126e1=userfun_symbol("PATH-PATHLIST",null);
T126g1912=T126e1;
T126e2=function (T126g1913)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_codeChar(47);
T126T37ret=userfun_split(T126T37tmp,T126g1913,userfun_eql);
return T126T37ret;
};
userfun_pathPathlist=T126e2;
T126T37ret=userfun_pathPathlist;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_pathPathlist,T126g1912);
T126e1=userfun_symbol("PATHLIST-PATH",null);
T126g1914=T126e1;
T126e2=function (T126g1915)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_pad(T126g1915,"/");
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(userfun_stringConcat,T126T37tmp);
T126T37ret=userfun_apply(T126T37tmp);
return T126T37ret;
};
userfun_pathlistPath=T126e2;
T126T37ret=userfun_pathlistPath;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_pathlistPath,T126g1914);
T126e1=userfun_symbol("WINDOWS-PATH-PATHLIST",null);
T126g1916=T126e1;
T126e2=function (T126g1917)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_codeChar(92);
T126T37ret=userfun_split(T126T37tmp,T126g1917,userfun_eql);
return T126T37ret;
};
userfun_windowsPathPathlist=T126e2;
T126T37ret=userfun_windowsPathPathlist;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_windowsPathPathlist,T126g1916);
T126e1=userfun_symbol("WINDOWS-PATHLIST-PATH",null);
T126g1918=T126e1;
T126e2=function (T126g1919)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_pad(T126g1919,"\\");
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(userfun_stringConcat,T126T37tmp);
T126T37ret=userfun_apply(T126T37tmp);
return T126T37ret;
};
userfun_windowsPathlistPath=T126e2;
T126T37ret=userfun_windowsPathlistPath;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_windowsPathlistPath,T126g1918);
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126e1=userfun_symbol("WINDOWS-PATH-0?",null);
T126g1927=T126e1;
T126e2=function (T126g1928)
{
var T126T37ret;
var T126e8;
var T126T37tmp;
var T126g1930;
var T126e12;
var T126e16;
var T126g1929;
var T126e24;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g1928;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=639;continue;}
T126e8=userfun_codeChar(47);
T126T37tmp=userfun_elt(T126g1928,0);
T126g1930=(T126e8.v==T126T37tmp.v);
if(!T126g1930&&T126g1930!==0&&T126g1930!==''){_I_=633;continue;}
T126T37ret=T126g1930;
_I_=632;continue;
case 633:
T126e12=userfun_codeChar(92);
T126T37tmp=userfun_elt(T126g1928,0);
T126T37ret=(T126e12.v==T126T37tmp.v);
case 632:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=637;continue;}
T126e16=userfun_codeChar(58);
T126T37tmp=userfun_elt(T126g1928,2);
T126T37ret=(T126e16.v==T126T37tmp.v);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=637;continue;}
T126T37tmp=userfun_elt(T126g1928,1);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37ret=userfun_alphaCharP(T126T37tmp);
case 637:
T126g1929=T126T37ret;
if(!T126g1929&&T126g1929!==0&&T126g1929!==''){_I_=630;continue;}
T126T37ret=T126g1929;
_I_=639;continue;
case 630:
T126e24=userfun_codeChar(58);
T126T37tmp=userfun_elt(T126g1928,1);
T126T37ret=(T126e24.v==T126T37tmp.v);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=639;continue;}
T126T37tmp=userfun_elt(T126g1928,0);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37ret=userfun_alphaCharP(T126T37tmp);
case 639:
return T126T37ret;
}}};
userfun_windowsPath0T63=T126e2;
T126T37ret=userfun_windowsPath0T63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_windowsPath0T63,T126g1927);
T126e1=userfun_symbol("WINDOWS-PATH?",null);
T126g1931=T126e1;
T126e2=function (T126g1932)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_urlPath(T126g1932);
T126T37ret=userfun_windowsPath0T63(T126T37tmp);
return T126T37ret;
};
userfun_windowsPathT63=T126e2;
T126T37ret=userfun_windowsPathT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_windowsPathT63,T126g1931);
T126e1=userfun_symbol("PATH-UNIX-PATH-0",null);
T126g1933=T126e1;
T126e2=function (T126g1934)
{
var T126T37ret;
var T126e7;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_windowsPathT63(T126g1934);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=647;continue;}
T126e7=function (T126g1935)
{
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=userfun_codeChar(92);
T126T37ret=(T126T37tmp.v==T126g1935.v);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=644;continue;}
T126T37ret=userfun_codeChar(47);
_I_=643;continue;
case 644:
T126T37ret=T126g1935;
case 643:
return T126T37ret;
}}};
T126T37tmp=userfun_stringList(T126g1934);
T126T37tmp=userfun_cddr(T126T37tmp);
T126T37tmp=userfun_filter(T126e7,T126T37tmp);
T126T37ret=userfun_listString(T126T37tmp);
_I_=646;continue;
case 647:
T126T37ret=T126g1934;
case 646:
return T126T37ret;
}}};
userfun_pathUnixPath0=T126e2;
T126T37ret=userfun_pathUnixPath0;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_pathUnixPath0,T126g1933);
T126e1=userfun_symbol("PATH-UNIX-PATH",null);
T126g1936=T126e1;
T126e2=function (T126g1937)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=fileurlT63(T126g1937);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=651;continue;}
T126T37tmp=userfun_subseq(T126g1937,7,99999);
T126T37tmp=userfun_pathUnixPath0(T126T37tmp);
T126T37ret=("file://"+T126T37tmp);
_I_=650;continue;
case 651:
T126T37ret=userfun_pathUnixPath0(T126g1937);
case 650:
return T126T37ret;
}}};
userfun_pathUnixPath=T126e2;
T126T37ret=userfun_pathUnixPath;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_pathUnixPath,T126g1936);
T126e1=userfun_symbol("PATH-URL",null);
T126g1938=T126e1;
T126e2=function (T126g1939,T126g1940)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_pathUnixPath(T126g1940);
T126T37ret=(T126g1939+"://"+T126T37tmp);
return T126T37ret;
};
userfun_pathUrl=T126e2;
T126T37ret=userfun_pathUrl;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_pathUrl,T126g1938);
T126e1=userfun_symbol("BUTLAST-PATH-COMPONENT",null);
T126g1941=T126e1;
T126e2=function (T126g1942)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_pathPathlist(T126g1942);
T126T37tmp=userfun_butlast(T126T37tmp);
T126T37tmp=userfun_pad(T126T37tmp,"/");
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(userfun_stringConcat,T126T37tmp);
T126T37ret=userfun_apply(T126T37tmp);
return T126T37ret;
};
userfun_butlastPathComponent=T126e2;
T126T37ret=userfun_butlastPathComponent;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_butlastPathComponent,T126g1941);
T126e1=userfun_symbol("URL-WITHOUT-FILENAME",null);
T126g1943=T126e1;
T126e2=function (T126g1944)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
if(!T126g1944&&T126g1944!==0&&T126g1944!==''){_I_=657;continue;}
T126T37ret=userfun_butlastPathComponent(T126g1944);
_I_=656;continue;
case 657:
T126T37ret="";
case 656:
return T126T37ret;
}}};
userfun_urlWithoutFilename=T126e2;
T126T37ret=userfun_urlWithoutFilename;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_urlWithoutFilename,T126g1943);
T126e1=userfun_symbol("URL-SCHEMA",null);
T126g1945=T126e1;
T126e2=function (T126g1946)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_codeChar(47);
T126T37tmp=userfun_split(T126T37tmp,T126g1946,userfun_eql);
T126T37ret=(T126T37tmp==null?null:T126T37tmp._);
return T126T37ret;
};
userfun_urlSchema=T126e2;
T126T37ret=userfun_urlSchema;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_urlSchema,T126g1945);
T126e1=userfun_symbol("URL-HAS-SCHEMA?",null);
T126g1947=T126e1;
T126e2=function (T126g1948)
{
var T126g1949;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1949=userfun_pathPathlist(T126g1948);
T126T37tmp=(T126g1949==null?null:T126g1949._);
T126T37ret=userfun_endsWithT63(T126T37tmp,":",null);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=661;continue;}
T126T37tmp=(T126g1949==null?null:T126g1949.__);
T126T37tmp=(T126T37tmp==null?null:T126T37tmp._);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37ret=userfun_emptyStringT63(T126T37tmp);
case 661:
return T126T37ret;
}}};
userfun_urlHasSchemaT63=T126e2;
T126T37ret=userfun_urlHasSchemaT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_urlHasSchemaT63,T126g1947);
T126e1=userfun_symbol("URL-WITHOUT-SCHEMA",null);
T126g1950=T126e1;
T126e2=function (T126g1951)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_pathPathlist(T126g1951);
T126T37tmp=userfun_cdddr(T126T37tmp);
T126T37tmp=userfun_pad(T126T37tmp,"/");
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(userfun_stringConcat,T126T37tmp);
T126T37ret=userfun_apply(T126T37tmp);
return T126T37ret;
};
userfun_urlWithoutSchema=T126e2;
T126T37ret=userfun_urlWithoutSchema;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_urlWithoutSchema,T126g1950);
T126e1=userfun_symbol("URL-PATH",null);
T126g1953=T126e1;
T126e2=function (T126g1954)
{
var T126T37ret;
var T126g1955;
var T126g1956;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g1954;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=677;continue;}
T126T37ret=userfun_urlHasSchemaT63(T126g1954);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=675;continue;}
T126g1955=userfun_urlWithoutSchema(T126g1954);
T126T37ret=userfun_windowsPath0T63(T126g1955);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=672;continue;}
T126g1956=userfun_startsWithT63(T126g1955,"\\",null);
if(!T126g1956&&T126g1956!==0&&T126g1956!==''){_I_=666;continue;}
T126T37ret=T126g1956;
_I_=665;continue;
case 666:
T126T37ret=userfun_startsWithT63(T126g1955,"/",null);
case 665:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=669;continue;}
T126T37ret=userfun_subseq(T126g1955,1,99999);
_I_=677;continue;
case 669:
T126T37ret=T126g1955;
_I_=677;continue;
case 672:
T126T37ret=("/"+T126g1955);
_I_=677;continue;
case 675:
T126T37ret=T126g1954;
case 677:
return T126T37ret;
}}};
userfun_urlPath=T126e2;
T126T37ret=userfun_urlPath;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_urlPath,T126g1953);
T126e1=userfun_symbol("URL-WITHOUT-PATH",null);
T126g1957=T126e1;
T126e2=function (T126g1958)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_pathPathlist(T126g1958);
T126T37tmp=userfun_subseq(T126T37tmp,0,3);
T126T37tmp=userfun_pad(T126T37tmp,"/");
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(userfun_stringConcat,T126T37tmp);
T126T37ret=userfun_apply(T126T37tmp);
return T126T37ret;
};
userfun_urlWithoutPath=T126e2;
T126T37ret=userfun_urlWithoutPath;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_urlWithoutPath,T126g1957);
T126e1=userfun_symbol("PARENT-NODE",null);
T126g1960=T126e1;
T126e2=function (T126g1961)
{
var T126g1962;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g1962=userfun_transparentBlockStarter(T126g1961);
if(!T126g1962&&T126g1962!==0&&T126g1962!==''){_I_=682;continue;}
T126T37ret=T126g1962;
_I_=681;continue;
case 682:
T126T37ret=T126g1961.parentNode;
case 681:
return T126T37ret;
}}};
userfun_parentNode=T126e2;
T126T37ret=userfun_parentNode;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_parentNode,T126g1960);
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126e1=userfun_symbol("MAP-ELEMENTS-BY-CLASS-NAME",null);
T126g1981=T126e1;
T126e2=function (T126g1994,T126g1995,T126g1996)
{
var T126T37tmp;
var T126g1997;
var T126T37ret;
var T126g1999;
var T126g2000;
var T126g2001;
var T126g2002;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=T126g1995.getElementsByClassName(T126g1996);
T126g1997=userfun_arrayCopy(T126T37tmp);
T126T37ret=T126g1997;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=695;continue;}
T126g1999=0;
case 684:
T126T37tmp=userfun_length(T126g1997);
T126T37ret=(T126g1999==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=691;continue;}
T126T37ret=null;
_I_=695;continue;
case 691:
T126g2000=T126g1997[T126g1999];
T126g2001=T126g1994;
T126g2002=T126g2001.treExp;
if(!T126g2002&&T126g2002!==0&&T126g2002!==''){_I_=693;continue;}
T126T37tmp=new userfun_T37cons(T126g2000,null);
T126T37tmp=userfun_list(T126T37tmp);
T126g2002.apply(null,[T126T37tmp]);
_I_=692;continue;
case 693:
T126g2001(T126g2000);
case 692:
T126g1999=(1+T126g1999);
_I_=684;continue;
case 695:
return T126T37ret;
}}};
userfun_mapElementsByClassName=T126e2;
T126T37ret=userfun_mapElementsByClassName;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_mapElementsByClassName,T126g1981);
T126e19=userfun_symbol("MAP-ELEMENTS-BY-TAG-NAME",null);
T126g1985=T126e19;
T126e20=function (T126g2004,T126g2005,T126g2006)
{
var T126T37tmp;
var T126g2007;
var T126T37ret;
var T126g2009;
var T126g2010;
var T126g2011;
var T126g2012;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=T126g2005.getElementsByTagName(T126g2006);
T126g2007=userfun_arrayCopy(T126T37tmp);
T126T37ret=T126g2007;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=702;continue;}
T126g2009=0;
case 687:
T126T37tmp=userfun_length(T126g2007);
T126T37ret=(T126g2009==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=698;continue;}
T126T37ret=null;
_I_=702;continue;
case 698:
T126g2010=T126g2007[T126g2009];
T126g2011=T126g2004;
T126g2012=T126g2011.treExp;
if(!T126g2012&&T126g2012!==0&&T126g2012!==''){_I_=700;continue;}
T126T37tmp=new userfun_T37cons(T126g2010,null);
T126T37tmp=userfun_list(T126T37tmp);
T126g2012.apply(null,[T126T37tmp]);
_I_=699;continue;
case 700:
T126g2011(T126g2010);
case 699:
T126g2009=(1+T126g2009);
_I_=687;continue;
case 702:
return T126T37ret;
}}};
userfun_mapElementsByTagName=T126e20;
T126T37ret=userfun_mapElementsByTagName;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_mapElementsByTagName,T126g1985);
T126e1=userfun_symbol("DOM-GET-FIRST-BY-TAG-NAME",null);
T126g2014=T126e1;
T126e2=function (T126g2017,T126g2018)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=T126g2017.getElementsByTagName(T126g2018);
T126T37ret=T126T37tmp[0];
return T126T37ret;
};
userfun_domGetFirstByTagName=T126e2;
T126T37ret=userfun_domGetFirstByTagName;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_domGetFirstByTagName,T126g2014);
T126e5=userfun_symbol("DOM-GET-FIRST-BY-CLASS-NAME",null);
T126g2015=T126e5;
T126e6=function (T126g2019,T126g2020)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=T126g2019.getElementsByClassName(T126g2020);
T126T37ret=T126T37tmp[0];
return T126T37ret;
};
userfun_domGetFirstByClassName=T126e6;
T126T37ret=userfun_domGetFirstByClassName;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_domGetFirstByClassName,T126g2015);
T126e9=userfun_symbol("DOM-GET-FIRST-BY-NAME",null);
T126g2016=T126e9;
T126e10=function (T126g2021,T126g2022)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=T126g2021.getElementsByName(T126g2022);
T126T37ret=T126T37tmp[0];
return T126T37ret;
};
userfun_domGetFirstByName=T126e10;
T126T37ret=userfun_domGetFirstByName;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_domGetFirstByName,T126g2016);
T126T37ret=null;
T126e1=userfun_symbol("GET-COMPUTED-STYLE-HASH",null);
T126g2023=T126e1;
T126e3=function (T126g2027)
{
var T126e4;
var T126T37ret;
var T126e11;
T126e4=function (T126g2028,T126g2029)
{
var T126g2040;
var T126g2030;
var T126g2031;
var T126e8;
var T126T37ret;
T126g2030=T126g2029.getComputedStyle(T126g2028,null);
T126g2031={};
T126e8=function (T126g2032,T126g2033)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_stringT63(T126g2033);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=711;continue;}
T126T37ret=userfun_T37T37usetfHref(T126g2033,T126g2031,T126g2032);
case 711:
return T126T37ret;
}}};
userfun_maphash(T126e8,T126g2030);
T126T37ret=T126g2031;
return T126T37ret;
};
T126g2027=T126e4;
T126T37ret=T126g2027;
T126e11=function (T126g2034)
{
var T126g2042;
var T126g2036;
var T126g2037;
var T126e12;
var T126g2035;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2036=T126g4438;
T126g2037=null;
T126e12=function ()
{
var T126g2039;
var T126g2038;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 708:
T126g2039=true;
T126g2038=(T126g2034==null?null:T126g2034._);
T126T37tmp=T126g2038;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=713;continue;}
T126g2039=null;
case 713:
if(!T126g2039&&T126g2039!==0&&T126g2039!==''){_I_=716;continue;}
T126T37ret=null;
_I_=709;continue;
case 716:
T126T37ret=(T126g2038===T126g4439);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=708;continue;}
T126g2034=(T126g2034==null?null:T126g2034.__);
T126g2036=(T126g2034==null?null:T126g2034._);
T126g2034=(T126g2034==null?null:T126g2034.__);
_I_=708;continue;
case 709:
return T126T37ret;
}}};
T126g2037=T126e12;
;
T126g2037();
T126g2035=(T126g2034==null?null:T126g2034._);
T126g2034=(T126g2034==null?null:T126g2034.__);
T126g2037();
T126T37ret=(T126g2036===T126g4438);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=719;continue;}
T126g2036=window;
case 719:
T126T37ret=T126g2027(T126g2035,T126g2036);
return T126T37ret;
}}};
T126g2027.treExp=T126e11;
T126T37ret=T126g2027;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_getComputedStyleHash=T126e2;
T126T37ret=userfun_getComputedStyleHash;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_getComputedStyleHash,T126g2023);
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126e1=userfun_symbol("ELEMENT?",null);
T126g2045=T126e1;
T126e2=function (T126g2049)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_objectT63(T126g2049);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=725;continue;}
T126T37ret=(1==T126g2049.nodeType);
case 725:
return T126T37ret;
}}};
userfun_elementT63=T126e2;
T126T37ret=userfun_elementT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_elementT63,T126g2045);
T126e6=userfun_symbol("TEXT?",null);
T126g2046=T126e6;
T126e7=function (T126g2050)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_objectT63(T126g2050);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=727;continue;}
T126T37ret=(3==T126g2050.nodeType);
case 727:
return T126T37ret;
}}};
userfun_textT63=T126e7;
T126T37ret=userfun_textT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_textT63,T126g2046);
T126e11=userfun_symbol("COMMENT?",null);
T126g2047=T126e11;
T126e12=function (T126g2051)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_objectT63(T126g2051);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=729;continue;}
T126T37ret=(8==T126g2051.nodeType);
case 729:
return T126T37ret;
}}};
userfun_commentT63=T126e12;
T126T37ret=userfun_commentT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_commentT63,T126g2047);
T126e16=userfun_symbol("DOCUMENT?",null);
T126g2048=T126e16;
T126e17=function (T126g2052)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_objectT63(T126g2052);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=731;continue;}
T126T37ret=(9==T126g2052.nodeType);
case 731:
return T126T37ret;
}}};
userfun_documentT63=T126e17;
T126T37ret=userfun_documentT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_documentT63,T126g2048);
T126e1=userfun_symbol("VISIBLE-NODE-INSERT-BEFORE",null);
T126g2059=T126e1;
T126e2=function (T126g2060,T126g2061)
{
var T126g2062;
var T126g2064;
var T126g2063;
var T126g2065;
var T126g2066;
var T126g2067;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2062=userfun_forceList(T126g2061);
case 734:
T126g2064=true;
if(!T126g2062&&T126g2062!==0&&T126g2062!==''){_I_=737;continue;}
T126g2064=null;
case 737:
if(!T126g2064&&T126g2064!==0&&T126g2064!==''){_I_=740;continue;}
_I_=733;continue;
case 740:
T126g2063=(T126g2062==null?null:T126g2062._);
T126g2065=DOMCALLBACKBEFOREINSERTBEFORE;
if(!T126g2065&&T126g2065!==0&&T126g2065!==''){_I_=744;continue;}
T126g2066=T126g2065;
T126g2067=T126g2066.treExp;
if(!T126g2067&&T126g2067!==0&&T126g2067!==''){_I_=742;continue;}
T126T37tmp=new userfun_T37cons(T126g2060,null);
T126T37tmp=userfun_list(T126T37tmp);
T126g2067.apply(null,[T126T37tmp]);
_I_=744;continue;
case 742:
T126g2066(T126g2060);
case 744:
T126g2060.parentNode.insertBefore(T126g2063,T126g2060);
T126g2062=(T126g2062==null?null:T126g2062.__);
_I_=734;continue;
case 733:
T126T37ret=T126g2061;
return T126T37ret;
}}};
userfun_visibleNodeInsertBefore=T126e2;
T126T37ret=userfun_visibleNodeInsertBefore;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_visibleNodeInsertBefore,T126g2059);
T126e1=userfun_symbol("VISIBLE-NODE-WALK",null);
T126g2074=T126e1;
T126e2=function (T126g2077,T126g2078)
{
var T126g2079;
var T126g2080;
var T126g2081;
var T126T37tmp;
var T126T37ret;
var T126g2083;
var T126g2085;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2079=true;
T126g2080=T126g2078;
T126g2081=T126g2080.treExp;
if(!T126g2081&&T126g2081!==0&&T126g2081!==''){_I_=750;continue;}
T126T37tmp=new userfun_T37cons(T126g2077,null);
T126T37tmp=userfun_list(T126T37tmp);
T126T37ret=T126g2081.apply(null,[T126T37tmp]);
_I_=749;continue;
case 750:
T126T37ret=T126g2080(T126g2077);
case 749:
T126T37tmp=T126T37ret;
T126T37ret=(T126g4440===T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=752;continue;}
T126g2079=null;
case 752:
if(!T126g2079&&T126g2079!==0&&T126g2079!==''){_I_=760;continue;}
T126T37ret=userfun_elementT63(T126g2077);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=760;continue;}
T126g2083=userfun_caroshiElementChildrenArray(T126g2077);
if(!T126g2083&&T126g2083!==0&&T126g2083!==''){_I_=760;continue;}
T126g2085=0;
case 746:
T126T37tmp=userfun_length(T126g2083);
T126T37ret=(T126g2085==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=755;continue;}
_I_=760;continue;
case 755:
T126T37tmp=T126g2083[T126g2085];
userfun_visibleNodeWalk(T126T37tmp,T126g2078);
T126g2085=(1+T126g2085);
_I_=746;continue;
case 760:
T126T37ret=T126g2077;
return T126T37ret;
}}};
userfun_visibleNodeWalk=T126e2;
T126T37ret=userfun_visibleNodeWalk;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_visibleNodeWalk,T126g2074);
T126e1=userfun_symbol("VISIBLE-NODE-REMOVE-WITHOUT-LISTENERS-OR-CALLBACKS",null);
T126g2087=T126e1;
T126e2=function (T126g2088)
{
var T126T37ret;
T126T37ret=T126g2088.parentNode.removeChild(T126g2088);
return T126T37ret;
};
userfun_visibleNodeRemoveWithoutListenersOrCallbacks=T126e2;
T126T37ret=userfun_visibleNodeRemoveWithoutListenersOrCallbacks;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_visibleNodeRemoveWithoutListenersOrCallbacks,T126g2087);
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
DOMCALLBACKBEFOREREMOVE=null;
T126T37ret=DOMCALLBACKBEFOREREMOVE;
T126T37ret=null;
DOMCALLBACKBEFOREINSERTBEFORE=null;
T126T37ret=DOMCALLBACKBEFOREINSERTBEFORE;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126e1=userfun_symbol("VISIBLE-NODE",null);
T126g2111=T126e1;
T126e2=function ()
{
var T126T37ret;
this.__visibleNode=true;
T126T37ret=this;
return T126T37ret;
};
userfun_visibleNode=T126e2;
T126T37ret=userfun_visibleNode;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_visibleNode,T126g2111);
T126e4=userfun_symbol("VISIBLE-NODE?",null);
T126g2112=T126e4;
T126e5=function (T126g2120)
{
var T126T37ret;
var T126g2121;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_objectT63(T126g2120);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=786;continue;}
T126g2121=true;
T126T37tmp=typeof T126g2120.__visibleNode;
T126T37ret=("undefined"==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=782;continue;}
T126g2121=null;
case 782:
T126T37ret=T126g2121;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=786;continue;}
T126T37ret=T126g2120;
case 786:
return T126T37ret;
}}};
userfun_visibleNodeT63=T126e5;
T126T37ret=userfun_visibleNodeT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_visibleNodeT63,T126g2112);
T126e15=function (T126g2122)
{
var T126g2123;
var T126T37tmp;
var T126T37ret;
T126g2123=this;
T126T37tmp=T126g2123.cloneNode(T126g2122);
T126T37ret=userfun_domTreeExtend(T126T37tmp);
return T126T37ret;
};
T126e17=function ()
{
var T126T37ret;
T126T37ret=userfun_visibleNodeRemoveWithoutListenersOrCallbacks(this);
return T126T37ret;
};
T126e18=function ()
{
var T126g2125;
var T126g2126;
var T126g2127;
var T126g2128;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2125=this;
T126g2126=DOMCALLBACKBEFOREREMOVE;
if(!T126g2126&&T126g2126!==0&&T126g2126!==''){_I_=791;continue;}
T126g2127=T126g2126;
T126g2128=T126g2127.treExp;
if(!T126g2128&&T126g2128!==0&&T126g2128!==''){_I_=789;continue;}
T126T37tmp=new userfun_T37cons(this,null);
T126T37tmp=userfun_list(T126T37tmp);
T126g2128.apply(null,[T126T37tmp]);
_I_=791;continue;
case 789:
T126g2127(this);
case 791:
T126T37ret=T126g2125.removeWithoutListenersOrCallbacks();
return T126T37ret;
}}};
T126e24=function (T126g2130)
{
var T126T37ret;
T126T37ret=userfun_visibleNodeInsertBefore(this,T126g2130);
return T126T37ret;
};
T126e25=function (T126g2132)
{
var T126g2133;
var T126g2134;
var T126g2135;
var T126g2137;
var T126g2136;
var T126g2138;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2133=this;
T126g2134=this;
T126g2135=userfun_forceList(T126g2132);
case 766:
T126g2137=true;
if(!T126g2135&&T126g2135!==0&&T126g2135!==''){_I_=793;continue;}
T126g2137=null;
case 793:
if(!T126g2137&&T126g2137!==0&&T126g2137!==''){_I_=796;continue;}
_I_=765;continue;
case 796:
T126g2136=(T126g2135==null?null:T126g2135._);
T126g2138=T126g2134.nextSibling;
if(!T126g2138&&T126g2138!==0&&T126g2138!==''){_I_=798;continue;}
userfun_visibleNodeInsertBefore(T126g2138,T126g2136);
_I_=797;continue;
case 798:
T126g2133.parentNode.add(T126g2136);
case 797:
T126g2134=T126g2136;
T126g2135=(T126g2135==null?null:T126g2135.__);
_I_=766;continue;
case 765:
T126T37ret=T126g2132;
return T126T37ret;
}}};
T126e36=function (T126g2139,T126g2140)
{
var T126g2141;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2141=this;
if(!T126g2140&&T126g2140!==0&&T126g2140!==''){_I_=801;continue;}
T126T37ret=T126g2141.addAfter(T126g2139);
_I_=800;continue;
case 801:
T126T37ret=T126g2141.addBefore(T126g2139);
case 800:
return T126T37ret;
}}};
T126e39=function (T126g2142)
{
var T126g2143;
var T126T37ret;
T126g2143=this;
T126g2143.removeWithoutListenersOrCallbacks();
T126g2142.add(this);
T126T37ret=this;
return T126T37ret;
};
T126e40=function (T126g2144)
{
var T126T37ret;
T126T37ret=userfun_visibleNodeWalk(this,T126g2144);
return T126T37ret;
};
T126e41=function ()
{
var T126g2146;
var T126T37ret;
var T126g2147;
var T126g2149;
var T126g2150;
var T126g2151;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2146=this;
T126T37ret=userfun_elementT63(this);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=803;continue;}
userfun_caroshiElementRemoveChildren(this);
case 803:
T126g2147=T126g2146._unhooks;
case 769:
T126g2149=true;
if(!T126g2147&&T126g2147!==0&&T126g2147!==''){_I_=805;continue;}
T126g2149=null;
case 805:
if(!T126g2149&&T126g2149!==0&&T126g2149!==''){_I_=808;continue;}
_I_=768;continue;
case 808:
T126g2150=(T126g2147==null?null:T126g2147._);
T126g2151=T126g2150.treExp;
if(!T126g2151&&T126g2151!==0&&T126g2151!==''){_I_=810;continue;}
T126T37tmp=new userfun_T37cons(this,null);
T126T37tmp=userfun_list(T126T37tmp);
T126g2151.apply(null,[T126T37tmp]);
_I_=809;continue;
case 810:
T126g2150(this);
case 809:
T126g2147=(T126g2147==null?null:T126g2147.__);
_I_=769;continue;
case 768:
T126g2146.removeWithoutListeners();
T126T37ret=this;
return T126T37ret;
}}};
T126e55=function ()
{
var T126g2154;
var T126g2155;
var T126g2156;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2154=[];
T126g2155=this;
case 771:
T126g2156=true;
if(!T126g2155&&T126g2155!==0&&T126g2155!==''){_I_=812;continue;}
T126g2156=null;
case 812:
if(!T126g2156&&T126g2156!==0&&T126g2156!==''){_I_=815;continue;}
T126T37ret=T126g2154;
_I_=772;continue;
case 815:
T126g2154.push(T126g2155);
T126g2155=T126g2155.nextSibling;
_I_=771;continue;
case 772:
return T126T37ret;
}}};
T126e62=function ()
{
var T126g2157;
var T126g2158;
var T126T37ret;
var T126g2160;
var T126T37tmp;
var T126g2161;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2157=this;
T126g2158=T126g2157.selfAndNext();
T126T37ret=T126g2158;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=818;continue;}
T126g2160=0;
case 773:
T126T37tmp=userfun_length(T126g2158);
T126T37ret=(T126g2160==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=817;continue;}
T126T37ret=null;
_I_=818;continue;
case 817:
T126g2161=T126g2158[T126g2160];
T126g2161.remove();
T126g2160=(1+T126g2160);
_I_=773;continue;
case 818:
return T126T37ret;
}}};
T126e73=function ()
{
var T126g2162;
var T126g2163;
var T126g2164;
var T126T37tmp;
var T126T37ret;
T126g2162=this;
T126g2163=T126g2162.parentNode;
T126g2164=T126g2163.clone(null);
T126T37tmp=T126g2162.selfAndNext();
T126T37tmp=cloneElementArray(T126T37tmp);
T126g2164.addArray(T126T37tmp);
T126g2162.removeSelfAndNext();
T126T37ret=T126g2163.addAfter(T126g2164);
return T126T37ret;
};
T126e77=function (T126g2165)
{
var T126g2166;
var T126g2167;
var T126g2172;
var T126g2168;
var T126T37ret;
var T126g2169;
var T126g2170;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2166=this;
T126g2167=T126g2166.splitBefore();
T126g2172=true;
if(!T126g2167&&T126g2167!==0&&T126g2167!==''){_I_=826;continue;}
T126g2172=null;
case 826:
T126g2168=T126g2172;
if(!T126g2168&&T126g2168!==0&&T126g2168!==''){_I_=824;continue;}
T126T37ret=T126g2168;
_I_=823;continue;
case 824:
T126g2169=T126g2165;
T126g2170=T126g2169.treExp;
if(!T126g2170&&T126g2170!==0&&T126g2170!==''){_I_=821;continue;}
T126T37tmp=new userfun_T37cons(T126g2167.parentNode,null);
T126T37tmp=userfun_list(T126T37tmp);
T126T37ret=T126g2170.apply(null,[T126T37tmp]);
_I_=823;continue;
case 821:
T126T37ret=T126g2169(T126g2167.parentNode);
case 823:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=829;continue;}
T126T37ret=T126g2167;
_I_=828;continue;
case 829:
T126T37ret=T126g2167.splitUpUnless(T126g2165);
case 828:
return T126T37ret;
}}};
T126e90=function (T126g2173)
{
var T126g2174;
var T126T37ret;
T126g2174=this;
T126g2174.parentNode.replaceChild(T126g2173,this);
T126T37ret=T126g2173;
return T126T37ret;
};
T126e91=function ()
{
var T126T37ret;
var T126g2176;
var T126g2177;
var T126g2178;
var T126g2179;
var T126g2180;
var T126g2181;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_elementT63(this);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=843;continue;}
T126g2176=this.firstChild;
if(!T126g2176&&T126g2176!==0&&T126g2176!==''){_I_=841;continue;}
T126g2177=T126g2176;
T126g2178=null;
case 775:
T126g2179=true;
if(!T126g2177&&T126g2177!==0&&T126g2177!==''){_I_=831;continue;}
T126g2179=null;
case 831:
if(!T126g2179&&T126g2179!==0&&T126g2179!==''){_I_=837;continue;}
T126g2180=T126g2178;
if(!T126g2180&&T126g2180!==0&&T126g2180!==''){_I_=834;continue;}
T126T37ret=T126g2180;
_I_=843;continue;
case 834:
T126T37ret=this;
_I_=843;continue;
case 837:
T126g2181=T126g2177.findLastLeaf();
if(!T126g2181&&T126g2181!==0&&T126g2181!==''){_I_=838;continue;}
T126g2178=T126g2181;
case 838:
T126g2177=T126g2177.nextSibling;
_I_=775;continue;
case 841:
T126T37ret=this;
case 843:
return T126T37ret;
}}};
T126e105=function ()
{
var T126g2182;
var T126g2183;
var T126g2184;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2182=this;
T126g2183=true;
T126g2184=T126g2182.previousSibling;
if(!T126g2184&&T126g2184!==0&&T126g2184!==''){_I_=846;continue;}
T126T37ret=T126g2184;
_I_=845;continue;
case 846:
T126T37ret=T126g2182.nextSibling;
case 845:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=848;continue;}
T126g2183=null;
case 848:
T126T37ret=T126g2183;
return T126T37ret;
}}};
T126e110=function ()
{
var T126g2186;
var T126g2187;
var T126g2188;
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2186=this;
T126g2187=0;
case 777:
T126g2188=true;
T126T37ret=T126g2186.previousSibling;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=850;continue;}
T126g2188=null;
case 850:
if(!T126g2188&&T126g2188!==0&&T126g2188!==''){_I_=853;continue;}
T126T37ret=T126g2187;
_I_=778;continue;
case 853:
T126T37tmp=new userfun_T37cons(1,null);
T126T37tmp=new userfun_T37cons(T126g2187,T126T37tmp);
T126g2187=userfun_numberT43(T126T37tmp);
T126g2186=T126g2186.previousSibling;
_I_=777;continue;
case 778:
return T126T37ret;
}}};
T126e119=function ()
{
var T126T37tmp;
var T126T37ret;
var T126g2190;
var T126g2192;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=this;
T126T37tmp=new userfun_T37cons(T126T37tmp.textContent,null);
T126T37ret=userfun_emptyStringT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=860;continue;}
T126g2190=userfun_arrayList(this.childNodes);
case 780:
T126g2192=true;
if(!T126g2190&&T126g2190!==0&&T126g2190!==''){_I_=854;continue;}
T126g2192=null;
case 854:
if(!T126g2192&&T126g2192!==0&&T126g2192!==''){_I_=857;continue;}
_I_=779;continue;
case 857:
T126T37tmp=(T126g2190==null?null:T126g2190._);
T126T37ret=userfun_elementT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=859;continue;}
T126T37ret=null;
_I_=860;continue;
case 859:
T126g2190=(T126g2190==null?null:T126g2190.__);
_I_=780;continue;
case 779:
T126T37ret=true;
case 860:
return T126T37ret;
}}};
T126e14={clone:T126e15,removeWithoutListenersOrCallbacks:T126e17,removeWithoutListeners:T126e18,addBefore:T126e24,addAfter:T126e25,insertNextTo:T126e36,moveTo:T126e39,walk:T126e40,remove:T126e41,selfAndNext:T126e55,removeSelfAndNext:T126e62,splitBefore:T126e73,splitUpUnless:T126e77,replaceBy:T126e90,findLastLeaf:T126e91,aloneT63:T126e105,getIndex:T126e110,blankTextContentT63:T126e119};
T126T37ret=userfun_hashMerge(userfun_visibleNode.prototype,T126e14);
EXTENDEDTEXTNODEST63=null;
T126T37ret=EXTENDEDTEXTNODEST63;
T126T37ret=null;
T126T37ret=null;
T126e1=userfun_symbol("*TEXT-NODE-BLANK?",null);
T126g2193=T126e1;
T126e2=function (T126g2194)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=new userfun_T37cons(T126g2194.textContent,null);
T126T37ret=userfun_emptyStringT63(T126T37tmp);
return T126T37ret;
};
userfun_TextNodeBlankT63=T126e2;
T126T37ret=userfun_TextNodeBlankT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_TextNodeBlankT63,T126g2193);
T126e1=userfun_symbol("*TEXT-NODE",null);
T126g2195=T126e1;
T126e3=function (T126g2200)
{
var T126e4;
var T126T37ret;
var T126e6;
T126e4=function (T126g2201,T126g2202)
{
var T126T37ret;
this.__TextNode=true;
userfun_visibleNode.call(this);
T126T37ret=T126g2202.createTextNode(T126g2201);
return T126T37ret;
};
T126g2200=T126e4;
T126T37ret=T126g2200;
T126e6=function (T126g2204)
{
var T126g2212;
var T126g2206;
var T126g2207;
var T126e7;
var T126g2205;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2206=T126g4375;
T126g2207=null;
T126e7=function ()
{
var T126g2209;
var T126g2208;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 864:
T126g2209=true;
T126g2208=(T126g2204==null?null:T126g2204._);
T126T37tmp=T126g2208;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=868;continue;}
T126g2209=null;
case 868:
if(!T126g2209&&T126g2209!==0&&T126g2209!==''){_I_=871;continue;}
T126T37ret=null;
_I_=865;continue;
case 871:
T126T37ret=(T126g2208===T126g4442);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=864;continue;}
T126g2204=(T126g2204==null?null:T126g2204.__);
T126g2206=(T126g2204==null?null:T126g2204._);
T126g2204=(T126g2204==null?null:T126g2204.__);
_I_=864;continue;
case 865:
return T126T37ret;
}}};
T126g2207=T126e7;
;
T126g2207();
T126g2205=(T126g2204==null?null:T126g2204._);
T126g2204=(T126g2204==null?null:T126g2204.__);
T126g2207();
T126T37ret=(T126g2206===T126g4375);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=874;continue;}
T126g2206=document;
case 874:
T126T37ret=T126g2200(T126g2205,T126g2206);
return T126T37ret;
}}};
T126g2200.treExp=T126e6;
T126T37ret=T126g2200;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_TextNode=T126e2;
T126T37ret=userfun_TextNode;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_TextNode,T126g2195);
T126T37ret=userfun_hashMerge(userfun_TextNode.prototype,userfun_visibleNode.prototype);
T126e26=userfun_symbol("*TEXT-NODE?",null);
T126g2196=T126e26;
T126e27=function (T126g2210)
{
var T126T37ret;
var T126g2211;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_objectT63(T126g2210);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=880;continue;}
T126g2211=true;
T126T37tmp=typeof T126g2210.__TextNode;
T126T37ret=("undefined"==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=876;continue;}
T126g2211=null;
case 876:
T126T37ret=T126g2211;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=880;continue;}
T126T37ret=T126g2210;
case 880:
return T126T37ret;
}}};
userfun_TextNodeT63=T126e27;
T126T37ret=userfun_TextNodeT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_TextNodeT63,T126g2196);
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126e1={"class":"className"};
ATTRIBUTEXLAT=T126e1;
T126T37ret=ATTRIBUTEXLAT;
T126e1={};
ATTRIBUTEXLATREV=T126e1;
T126T37ret=ATTRIBUTEXLATREV;
T126e1=userfun_symbol("MAKE-ATTRIBUTE-XLAT",null);
T126g2214=T126e1;
T126e2=function ()
{
var T126e4;
var T126T37ret;
T126e4=function (T126g2215,T126g2216)
{
var T126T37tmp;
var T126T37ret;
ATTRIBUTEXLATREV[T126g2216]=T126g2215;
T126T37tmp=userfun_stringDowncase(T126g2216);
T126T37ret=ATTRIBUTEXLATREV[T126T37tmp]=T126g2215;
return T126T37ret;
};
T126T37ret=userfun_maphash(T126e4,ATTRIBUTEXLAT);
return T126T37ret;
};
userfun_makeAttributeXlat=T126e2;
T126T37ret=userfun_makeAttributeXlat;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_makeAttributeXlat,T126g2214);
T126T37ret=userfun_makeAttributeXlat();
T126e1=userfun_symbol("XLAT-ATTRIBUTE",null);
T126g2217=T126e1;
T126e2=function (T126g2218)
{
var T126T37ret;
T126T37ret=ATTRIBUTEXLAT[T126g2218];
return T126T37ret;
};
userfun_xlatAttribute=T126e2;
T126T37ret=userfun_xlatAttribute;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_xlatAttribute,T126g2217);
T126T37ret=null;
T126e1=userfun_symbol("MAKE-NATIVE-ELEMENT",null);
T126g2219=T126e1;
T126e2=function (T126g2220,T126g2221,T126g2222)
{
var T126T37ret;
var T126g2223;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g2222;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=887;continue;}
T126g2223=true;
T126T37tmp=typeof T126g2221.createElementNS;
T126T37ret=("undefined"==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=885;continue;}
T126g2223=null;
case 885:
T126T37ret=T126g2223;
case 887:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=890;continue;}
T126T37ret=T126g2221.createElementNS(T126g2222,T126g2220);
_I_=889;continue;
case 890:
T126T37ret=T126g2221.createElement(T126g2220);
case 889:
return T126T37ret;
}}};
userfun_makeNativeElement=T126e2;
T126T37ret=userfun_makeNativeElement;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_makeNativeElement,T126g2219);
T126e1=userfun_symbol("*ELEMENT",null);
T126g2224=T126e1;
T126e3=function (T126g2228)
{
var T126e4;
var T126T37ret;
var T126e7;
T126e4=function (T126g2229,T126g2230,T126g2231,T126g2232,T126g2233)
{
var T126g2234;
var T126T37ret;
T126g2234=userfun_makeNativeElement(T126g2229,T126g2232,T126g2233);
userfun_hashMerge(T126g2234,userfun_caroshiElement.prototype);
T126g2234.writeAttributes(T126g2230);
T126g2234.setStyles(T126g2231);
T126T37ret=T126g2234;
return T126T37ret;
};
T126g2228=T126e4;
T126T37ret=T126g2228;
T126e7=function (T126g2235)
{
var T126g2244;
var T126g2239;
var T126g2240;
var T126g2241;
var T126e8;
var T126g2236;
var T126g2237;
var T126g2238;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2239=T126g4375;
T126g2240=T126g4446;
T126g2241=null;
T126e8=function ()
{
var T126g2243;
var T126g2242;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 893:
T126g2243=true;
T126g2242=(T126g2235==null?null:T126g2235._);
T126T37tmp=T126g2242;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=896;continue;}
T126g2243=null;
case 896:
if(!T126g2243&&T126g2243!==0&&T126g2243!==''){_I_=899;continue;}
T126T37ret=null;
_I_=894;continue;
case 899:
T126T37ret=(T126g2242===T126g4442);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=901;continue;}
T126g2235=(T126g2235==null?null:T126g2235.__);
T126g2239=(T126g2235==null?null:T126g2235._);
T126g2235=(T126g2235==null?null:T126g2235.__);
_I_=893;continue;
case 901:
T126T37ret=(T126g2242===T126g4447);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=893;continue;}
T126g2235=(T126g2235==null?null:T126g2235.__);
T126g2240=(T126g2235==null?null:T126g2235._);
T126g2235=(T126g2235==null?null:T126g2235.__);
_I_=893;continue;
case 894:
return T126T37ret;
}}};
T126g2241=T126e8;
;
T126g2241();
T126g2236=(T126g2235==null?null:T126g2235._);
T126g2235=(T126g2235==null?null:T126g2235.__);
T126g2241();
if(!T126g2235&&T126g2235!==0&&T126g2235!==''){_I_=904;continue;}
T126g2237=(T126g2235==null?null:T126g2235._);
T126g2235=(T126g2235==null?null:T126g2235.__);
_I_=903;continue;
case 904:
T126g2237=null;
case 903:
T126g2241();
if(!T126g2235&&T126g2235!==0&&T126g2235!==''){_I_=907;continue;}
T126g2238=(T126g2235==null?null:T126g2235._);
T126g2235=(T126g2235==null?null:T126g2235.__);
_I_=906;continue;
case 907:
T126g2238=null;
case 906:
T126g2241();
T126T37ret=(T126g2239===T126g4375);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=909;continue;}
T126g2239=document;
case 909:
T126T37ret=(T126g2240===T126g4446);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=911;continue;}
T126g2240=null;
case 911:
T126T37ret=T126g2228(T126g2236,T126g2237,T126g2238,T126g2239,T126g2240);
return T126T37ret;
}}};
T126g2228.treExp=T126e7;
T126T37ret=T126g2228;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_Element=T126e2;
T126T37ret=userfun_Element;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_Element,T126g2224);
T126e1=userfun_symbol("CAROSHI-ELEMENT-CHILDREN-ARRAY",null);
T126g2246=T126e1;
T126e2=function (T126g2247)
{
var T126T37ret;
T126T37ret=T126g2247.childNodes;
return T126T37ret;
};
userfun_caroshiElementChildrenArray=T126e2;
T126T37ret=userfun_caroshiElementChildrenArray;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_caroshiElementChildrenArray,T126g2246);
T126e1=userfun_symbol("CAROSHI-ELEMENT-CHILDREN-LIST",null);
T126g2248=T126e1;
T126e2=function (T126g2249)
{
var T126T37ret;
T126T37ret=userfun_arrayList(T126g2249.childNodes);
return T126T37ret;
};
userfun_caroshiElementChildrenList=T126e2;
T126T37ret=userfun_caroshiElementChildrenList;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_caroshiElementChildrenList,T126g2248);
T126e1=userfun_symbol("CAROSHI-ELEMENT-REMOVE-CHILDREN",null);
T126g2250=T126e1;
T126e2=function (T126g2254)
{
var T126g2255;
var T126g2257;
var T126g2256;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2255=userfun_arrayList(T126g2254.childNodes);
case 916:
T126g2257=true;
if(!T126g2255&&T126g2255!==0&&T126g2255!==''){_I_=919;continue;}
T126g2257=null;
case 919:
if(!T126g2257&&T126g2257!==0&&T126g2257!==''){_I_=922;continue;}
_I_=915;continue;
case 922:
T126g2256=(T126g2255==null?null:T126g2255._);
T126T37ret=userfun_elementT63(T126g2256);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=924;continue;}
T126g2256.remove();
_I_=923;continue;
case 924:
userfun_visibleNodeRemoveWithoutListenersOrCallbacks(T126g2256);
case 923:
T126g2255=(T126g2255==null?null:T126g2255.__);
_I_=916;continue;
case 915:
T126T37ret=T126g2254;
return T126T37ret;
}}};
userfun_caroshiElementRemoveChildren=T126e2;
T126T37ret=userfun_caroshiElementRemoveChildren;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_caroshiElementRemoveChildren,T126g2250);
T126e1=userfun_symbol("_CAROSHI-ELEMENT-REMOVE-CLASS",null);
T126g2258=T126e1;
T126e2=function (T126g2259,T126g2260)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=T126g2259.getClasses();
T126T37tmp=userfun_remove(T126g2260,T126T37tmp,userfun_stringT61);
T126T37tmp=userfun_pad(T126T37tmp," ");
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=userfun_concatStringtree(T126T37tmp);
T126T37ret=T126g2259.setClass(T126T37tmp);
return T126T37ret;
};
userfun__caroshiElementRemoveClass=T126e2;
T126T37ret=userfun__caroshiElementRemoveClass;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun__caroshiElementRemoveClass,T126g2258);
T126e1=userfun_symbol("CAROSHI-ELEMENT-SET-STYLE",null);
T126g2261=T126e1;
T126e2=function (T126g2262,T126g2263,T126g2264)
{
var T126T37ret;
T126T37ret=T126g2262.style[T126g2263]=T126g2264;
return T126T37ret;
};
userfun_caroshiElementSetStyle=T126e2;
T126T37ret=userfun_caroshiElementSetStyle;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_caroshiElementSetStyle,T126g2261);
T126e1=userfun_symbol("CAROSHI-ELEMENT-SET-STYLES",null);
T126g2265=T126e1;
T126e2=function (T126g2266,T126g2267)
{
var T126g2270;
var T126e3;
var T126T37ret;
T126e3=function (T126g2268,T126g2269)
{
var T126T37ret;
T126T37ret=userfun_caroshiElementSetStyle(T126g2266,T126g2268,T126g2269);
return T126T37ret;
};
userfun_maphash(T126e3,T126g2267);
T126T37ret=T126g2267;
return T126T37ret;
};
userfun_caroshiElementSetStyles=T126e2;
T126T37ret=userfun_caroshiElementSetStyles;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_caroshiElementSetStyles,T126g2265);
T126e1=userfun_symbol("CAROSHI-ELEMENT-REMOVE-STYLES",null);
T126g2272=T126e1;
T126e2=function (T126g2273)
{
var T126T37ret;
T126T37ret=T126g2273.removeAttribute("style");
return T126T37ret;
};
userfun_caroshiElementRemoveStyles=T126e2;
T126T37ret=userfun_caroshiElementRemoveStyles;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_caroshiElementRemoveStyles,T126g2272);
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126e1=userfun_symbol("STRING-HAS-CLASS?",null);
T126g2295=T126e1;
T126e2=function (T126g2296,T126g2297)
{
var T126g2298;
var T126g2299;
var T126g2301;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2298=(" "+T126g2296+" ");
T126g2299=userfun_forceList(T126g2297);
case 931:
T126g2301=true;
if(!T126g2299&&T126g2299!==0&&T126g2299!==''){_I_=934;continue;}
T126g2301=null;
case 934:
if(!T126g2301&&T126g2301!==0&&T126g2301!==''){_I_=937;continue;}
_I_=930;continue;
case 937:
T126T37tmp=(T126g2299==null?null:T126g2299._);
T126T37tmp=(" "+T126T37tmp+" ");
T126T37tmp=T126g2298.indexOf(T126T37tmp);
T126T37ret=(-1<T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=939;continue;}
T126T37ret=true;
_I_=932;continue;
case 939:
T126g2299=(T126g2299==null?null:T126g2299.__);
_I_=931;continue;
case 930:
T126T37ret=null;
case 932:
return T126T37ret;
}}};
userfun_stringHasClassT63=T126e2;
T126T37ret=userfun_stringHasClassT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_stringHasClassT63,T126g2295);
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126e1=userfun_symbol("CAROSHI-ELEMENT-GET-STYLE",null);
T126g2309=T126e1;
T126e2=function (T126g2310,T126g2311)
{
var T126g2312;
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2312=T126g2310.style[T126g2311];
if(!T126g2312&&T126g2312!==0&&T126g2312!==''){_I_=944;continue;}
T126T37ret=T126g2312;
_I_=943;continue;
case 944:
T126T37ret=userfun_elementT63(T126g2310);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=943;continue;}
T126T37tmp=document.defaultView.getComputedStyle(T126g2310,null);
T126T37ret=T126T37tmp[T126g2311];
case 943:
return T126T37ret;
}}};
userfun_caroshiElementGetStyle=T126e2;
T126T37ret=userfun_caroshiElementGetStyle;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_caroshiElementGetStyle,T126g2309);
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126e1=userfun_symbol("CAROSHI-ELEMENT-GET-WIDTH",null);
T126g2315=T126e1;
T126e2=function (T126g2316)
{
var T126T37ret;
var T126g2317;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=(0<T126g2316.offsetWidth);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=951;continue;}
T126T37ret=T126g2316.offsetWidth;
_I_=950;continue;
case 951:
T126T37ret=T126g2316.width;
case 950:
T126g2317=T126T37ret;
if(!T126g2317&&T126g2317!==0&&T126g2317!==''){_I_=948;continue;}
T126T37ret=T126g2317;
_I_=947;continue;
case 948:
T126T37ret=0;
case 947:
return T126T37ret;
}}};
userfun_caroshiElementGetWidth=T126e2;
T126T37ret=userfun_caroshiElementGetWidth;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_caroshiElementGetWidth,T126g2315);
T126T37ret=null;
T126e1=userfun_symbol("CAROSHI-ELEMENT-GET-HEIGHT",null);
T126g2319=T126e1;
T126e2=function (T126g2320)
{
var T126T37ret;
var T126g2321;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=(0<T126g2320.offsetHeight);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=958;continue;}
T126T37ret=T126g2320.offsetHeight;
_I_=957;continue;
case 958:
T126T37ret=T126g2320.height;
case 957:
T126g2321=T126T37ret;
if(!T126g2321&&T126g2321!==0&&T126g2321!==''){_I_=955;continue;}
T126T37ret=T126g2321;
_I_=954;continue;
case 955:
T126T37ret=0;
case 954:
return T126T37ret;
}}};
userfun_caroshiElementGetHeight=T126e2;
T126T37ret=userfun_caroshiElementGetHeight;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_caroshiElementGetHeight,T126g2319);
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126e1=userfun_symbol("CAROSHI-ELEMENT",null);
T126g2323=T126e1;
T126e2=function ()
{
var T126T37ret;
this.__caroshiElement=true;
userfun_visibleNode.call(this);
T126T37ret=this;
return T126T37ret;
};
userfun_caroshiElement=T126e2;
T126T37ret=userfun_caroshiElement;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_caroshiElement,T126g2323);
T126T37ret=userfun_hashMerge(userfun_caroshiElement.prototype,userfun_visibleNode.prototype);
T126e4=userfun_symbol("CAROSHI-ELEMENT?",null);
T126g2324=T126e4;
T126e5=function (T126g2358)
{
var T126T37ret;
var T126g2359;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_objectT63(T126g2358);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1008;continue;}
T126g2359=true;
T126T37tmp=typeof T126g2358.__caroshiElement;
T126T37ret=("undefined"==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1004;continue;}
T126g2359=null;
case 1004:
T126T37ret=T126g2359;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1008;continue;}
T126T37ret=T126g2358;
case 1008:
return T126T37ret;
}}};
userfun_caroshiElementT63=T126e5;
T126T37ret=userfun_caroshiElementT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_caroshiElementT63,T126g2324);
T126e15=function ()
{
var T126T37ret;
T126T37ret=this.childNodes;
return T126T37ret;
};
T126e16=function ()
{
var T126T37ret;
T126T37ret=userfun_caroshiElementChildrenList(this);
return T126T37ret;
};
T126e17=function ()
{
var T126T37ret;
T126T37ret=userfun_caroshiElementRemoveChildren(this);
return T126T37ret;
};
T126e18=function ()
{
var T126g2364;
var T126g2366;
var T126g2365;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2364=userfun_arrayList(this.childNodes);
case 963:
T126g2366=true;
if(!T126g2364&&T126g2364!==0&&T126g2364!==''){_I_=1010;continue;}
T126g2366=null;
case 1010:
if(!T126g2366&&T126g2366!==0&&T126g2366!==''){_I_=1013;continue;}
_I_=962;continue;
case 1013:
T126g2365=(T126g2364==null?null:T126g2364._);
T126g2365.removeWithoutListenersOrCallbacks();
T126g2364=(T126g2364==null?null:T126g2364.__);
_I_=963;continue;
case 962:
T126T37ret=this;
return T126T37ret;
}}};
T126e27=function (T126g2367)
{
var T126g2368;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2368=this;
if(!T126g2367&&T126g2367!==0&&T126g2367!==''){_I_=1014;continue;}
T126g2368.appendChild(T126g2367);
case 1014:
T126T37ret=this;
return T126T37ret;
}}};
T126e29=function (T126g2369)
{
var T126g2370;
var T126g2371;
var T126T37ret;
var T126T37tmp;
var T126g2372;
var T126g2374;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2370=this;
T126g2371=true;
T126T37ret=userfun_arrayT63(T126g2369);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1016;continue;}
T126g2371=null;
case 1016:
if(!T126g2371&&T126g2371!==0&&T126g2371!==''){_I_=1018;continue;}
T126T37tmp=new userfun_T37cons("assertion failed: add-arraxy: array expected",null);
userfun_error(T126T37tmp);
case 1018:
T126g2372=T126g2369;
T126T37ret=T126g2372;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1022;continue;}
T126g2374=0;
case 965:
T126T37tmp=userfun_length(T126g2372);
T126T37ret=(T126g2374==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1021;continue;}
T126T37ret=this;
_I_=1022;continue;
case 1021:
T126T37tmp=T126g2372[T126g2374];
T126g2370.add(T126T37tmp);
T126g2374=(1+T126g2374);
_I_=965;continue;
case 1022:
return T126T37ret;
}}};
T126e44=function (T126g2376)
{
var T126g2377;
var T126g2378;
var T126g2380;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2377=this;
T126g2378=T126g2376;
case 968:
T126g2380=true;
if(!T126g2378&&T126g2378!==0&&T126g2378!==''){_I_=1024;continue;}
T126g2380=null;
case 1024:
if(!T126g2380&&T126g2380!==0&&T126g2380!==''){_I_=1027;continue;}
_I_=967;continue;
case 1027:
T126T37tmp=(T126g2378==null?null:T126g2378._);
T126g2377.add(T126T37tmp);
T126g2378=(T126g2378==null?null:T126g2378.__);
_I_=968;continue;
case 967:
T126T37ret=this;
return T126T37ret;
}}};
T126e52=function (T126g2381)
{
var T126g2382;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2382=this;
if(!T126g2381&&T126g2381!==0&&T126g2381!==''){_I_=1031;continue;}
T126T37ret=T126g2382.firstChild;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1029;continue;}
userfun_visibleNodeInsertBefore(T126g2382.firstChild,T126g2381);
_I_=1031;continue;
case 1029:
T126g2382.appendChild(T126g2381);
case 1031:
T126T37ret=this;
return T126T37ret;
}}};
T126e56=function (T126g2383,T126g2384)
{
var T126g2385;
var T126T37tmp;
var T126T37ret;
T126g2385=this;
T126T37tmp=new userfun_Element(T126g2383,T126g2384,null,document,null);
T126T37ret=T126g2385.add(T126T37tmp);
return T126T37ret;
};
T126e58=function (T126g2386)
{
var T126g2387;
var T126T37tmp;
var T126T37ret;
T126g2387=this;
T126T37tmp=new userfun_TextNode(T126g2386,document);
T126T37ret=T126g2387.add(T126T37tmp);
return T126T37ret;
};
T126e60=function (T126g2388)
{
var T126g2389;
var T126g2390;
var T126g2392;
var T126T37ret;
var T126g2394;
var T126T37tmp;
var T126g2395;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2389=this;
T126g2390=null;
T126g2392=T126g2389.childrenArray();
T126T37ret=T126g2392;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1037;continue;}
T126g2394=0;
case 970:
T126T37tmp=userfun_length(T126g2392);
T126T37ret=(T126g2394==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1034;continue;}
T126T37ret=T126g2390;
_I_=1037;continue;
case 1034:
T126g2395=T126g2392[T126g2394];
T126T37tmp=T126g2395.getClass();
T126T37ret=(T126g2388==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1035;continue;}
T126g2390=T126g2395;
case 1035:
T126g2394=(1+T126g2394);
_I_=970;continue;
case 1037:
return T126T37ret;
}}};
T126e74=function (T126g2396)
{
var T126g2397;
var T126T37tmp;
var T126g2398;
var T126T37ret;
var T126g2400;
var T126g2401;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2397=this;
T126T37tmp=T126g2397.getElementsByClassName(T126g2396);
T126g2398=userfun_arrayCopy(T126T37tmp);
T126T37ret=T126g2398;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1041;continue;}
T126g2400=0;
case 972:
T126T37tmp=userfun_length(T126g2398);
T126T37ret=(T126g2400==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1040;continue;}
T126T37ret=null;
_I_=1041;continue;
case 1040:
T126g2401=T126g2398[T126g2400];
T126g2401.remove();
T126g2400=(1+T126g2400);
_I_=972;continue;
case 1041:
return T126T37ret;
}}};
T126e86=function (T126g2402)
{
var T126g2403;
var T126g2405;
var T126T37ret;
var T126g2404;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2403=this;
T126g2405=userfun_xlatAttribute(T126g2402);
T126T37ret=T126g2405;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1046;continue;}
T126T37ret=T126g2403.getAttribute(T126g2405);
case 1046:
T126g2404=T126T37ret;
if(!T126g2404&&T126g2404!==0&&T126g2404!==''){_I_=1044;continue;}
T126T37ret=T126g2404;
_I_=1043;continue;
case 1044:
T126T37ret=T126g2403.getAttribute(T126g2402);
case 1043:
return T126T37ret;
}}};
T126e92=function ()
{
var T126g2406;
var T126g2407;
var T126g2408;
var T126T37ret;
var T126g2410;
var T126T37tmp;
var T126g2411;
var T126g2412;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2406=this;
T126g2407={};
T126g2408=T126g2406.attributes;
T126T37ret=T126g2408;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1053;continue;}
T126g2410=0;
case 974:
T126T37tmp=userfun_length(T126g2408);
T126T37ret=(T126g2410==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1049;continue;}
T126T37ret=T126g2407;
_I_=1053;continue;
case 1049:
T126g2411=T126g2408[T126g2410];
T126g2412=ATTRIBUTEXLATREV[T126g2411.nodeName];
if(!T126g2412&&T126g2412!==0&&T126g2412!==''){_I_=1051;continue;}
T126T37ret=T126g2412;
_I_=1050;continue;
case 1051:
T126T37ret=T126g2411.nodeName;
case 1050:
T126T37tmp=T126T37ret;
userfun_T37T37usetfHref(T126g2411.nodeValue,T126g2407,T126T37tmp);
T126g2410=(1+T126g2410);
_I_=974;continue;
case 1053:
return T126T37ret;
}}};
T126e107=function ()
{
var T126g2413;
var T126g2414;
var T126g2415;
var T126T37ret;
var T126g2417;
var T126T37tmp;
var T126g2418;
var T126g2419;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2413=this;
T126g2414=userfun_makeQueue();
T126g2415=T126g2413.attributes;
T126T37ret=T126g2415;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1060;continue;}
T126g2417=0;
case 976:
T126T37tmp=userfun_length(T126g2415);
T126T37ret=(T126g2417==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1056;continue;}
T126T37ret=userfun_queueList(T126g2414);
_I_=1060;continue;
case 1056:
T126g2418=T126g2415[T126g2417];
T126g2419=ATTRIBUTEXLATREV[T126g2418.nodeName];
if(!T126g2419&&T126g2419!==0&&T126g2419!==''){_I_=1058;continue;}
T126T37ret=T126g2419;
_I_=1057;continue;
case 1058:
T126T37ret=T126g2418.nodeName;
case 1057:
T126T37tmp=T126T37ret;
T126T37tmp=new userfun_T37cons(T126T37tmp,T126g2418.nodeValue);
userfun_enqueue(T126g2414,T126T37tmp);
T126g2417=(1+T126g2417);
_I_=976;continue;
case 1060:
return T126T37ret;
}}};
T126e123=function (T126g2420)
{
var T126T37tmp;
var T126g2422;
var T126T37ret;
var T126g2424;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=this;
T126g2422=T126T37tmp.attributes;
T126T37ret=T126g2422;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1066;continue;}
T126g2424=0;
case 978:
T126T37tmp=userfun_length(T126g2422);
T126T37ret=(T126g2424==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1063;continue;}
T126T37ret=null;
_I_=1066;continue;
case 1063:
T126T37tmp=T126g2422[T126g2424];
T126T37ret=(T126T37tmp.nodeName==T126g2420);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1065;continue;}
T126T37ret=true;
_I_=1066;continue;
case 1065:
T126g2424=(1+T126g2424);
_I_=978;continue;
case 1066:
return T126T37ret;
}}};
T126e135=function (T126g2426,T126g2427)
{
var T126g2428;
var T126T37ret;
var T126T37tmp;
var T126e138;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2428=this;
T126T37ret=T126g2428.hasAttributeT63(T126g2426);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1068;continue;}
T126T37tmp=T126g2428.readAttribute(T126g2426);
T126e138=userfun_stringDowncase(T126T37tmp);
T126T37tmp=userfun_stringDowncase(T126g2427);
T126T37ret=(T126e138==T126T37tmp);
case 1068:
return T126T37ret;
}}};
T126e141=function (T126g2429,T126g2430)
{
var T126g2431;
var T126g2432;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2431=this;
T126g2431.setAttribute(T126g2429,T126g2430);
T126g2432=userfun_xlatAttribute(T126g2429);
if(!T126g2432&&T126g2432!==0&&T126g2432!==''){_I_=1070;continue;}
T126g2431.setAttribute(T126g2432,T126g2430);
case 1070:
T126T37ret=T126g2430;
return T126T37ret;
}}};
T126e144=function (T126g2433)
{
var T126g2565;
var T126T37ret;
var T126g2434;
var T126e145;
T126T37ret="CAROSHI-ELEMENT.WRITE-ATTRIBUTES";
T126g2434=this;
T126e145=function (T126g2435,T126g2436)
{
var T126T37ret;
T126T37ret=T126g2434.writeAttribute(T126g2435,T126g2436);
return T126T37ret;
};
userfun_maphash(T126e145,T126g2433);
T126T37ret=T126g2433;
return T126T37ret;
};
T126e146=function ()
{
var T126g2437;
var T126T37ret;
T126g2437=this;
T126T37ret=T126g2437.hasAttributeT63("name");
return T126T37ret;
};
T126e147=function (T126g2438)
{
var T126g2439;
var T126T37tmp;
var T126e148;
var T126T37ret;
T126g2439=this;
T126T37tmp=T126g2439.getName();
T126e148=userfun_stringDowncase(T126T37tmp);
T126T37tmp=userfun_stringDowncase(T126g2438);
T126T37ret=(T126e148==T126T37tmp);
return T126T37ret;
};
T126e151=function ()
{
var T126g2440;
var T126T37ret;
T126g2440=this;
T126T37ret=T126g2440.readAttribute("name");
return T126T37ret;
};
T126e152=function (T126g2441)
{
var T126g2442;
var T126T37ret;
T126g2442=this;
T126T37ret=T126g2442.writeAttribute("name",T126g2441);
return T126T37ret;
};
T126e153=function (T126g2443)
{
var T126g2444;
var T126g2445;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2444=this;
T126g2445=T126g2444.readAttribute("class");
T126T37ret=T126g2445;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1072;continue;}
T126T37ret=userfun_stringHasClassT63(T126g2445,T126g2443);
case 1072:
return T126T37ret;
}}};
T126e156=function ()
{
var T126g2446;
var T126T37ret;
T126g2446=this;
T126T37ret=T126g2446.readAttribute("class");
return T126T37ret;
};
T126e157=function (T126g2447)
{
var T126g2448;
var T126g2449;
var T126g2451;
var T126g2450;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2448=this;
T126g2449=T126g2447;
case 981:
T126g2451=true;
if(!T126g2449&&T126g2449!==0&&T126g2449!==''){_I_=1074;continue;}
T126g2451=null;
case 1074:
if(!T126g2451&&T126g2451!==0&&T126g2451!==''){_I_=1077;continue;}
_I_=980;continue;
case 1077:
T126g2450=(T126g2449==null?null:T126g2449._);
T126T37ret=T126g2448.hasClassT63(T126g2450);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1079;continue;}
T126T37ret=T126g2450;
_I_=982;continue;
case 1079:
T126g2449=(T126g2449==null?null:T126g2449.__);
_I_=981;continue;
case 980:
T126T37ret=null;
case 982:
return T126T37ret;
}}};
T126e167=function ()
{
var T126g2452;
var T126e168;
var T126T37tmp;
var T126T37ret;
T126g2452=this;
T126e168=userfun_codeChar(32);
T126T37tmp=T126g2452.readAttribute("class");
T126T37ret=userfun_split(T126e168,T126T37tmp,userfun_characterT61);
return T126T37ret;
};
T126e170=function (T126g2453)
{
var T126g2454;
var T126T37ret;
T126g2454=this;
T126T37ret=T126g2454.writeAttribute("class",T126g2453);
return T126T37ret;
};
T126e171=function (T126g2455)
{
var T126g2456;
var T126g2457;
var T126g2458;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2456=this;
T126g2457=T126g2456.getClasses();
T126g2458=true;
T126T37tmp=new userfun_T37cons(userfun_stringT61,null);
T126T37tmp=new userfun_T37cons(T126g4385,T126T37tmp);
T126T37tmp=new userfun_T37cons(T126g2457,T126T37tmp);
T126T37ret=userfun_member(T126g2455,T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1080;continue;}
T126g2458=null;
case 1080:
T126T37ret=T126g2458;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1082;continue;}
T126T37tmp=new userfun_T37cons(T126g2455,null);
T126T37tmp=userfun_list(T126T37tmp);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(T126g2457,T126T37tmp);
T126T37tmp=userfun_append(T126T37tmp);
T126T37tmp=userfun_pad(T126T37tmp," ");
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=userfun_concatStringtree(T126T37tmp);
T126T37ret=T126g2456.setClass(T126T37tmp);
case 1082:
return T126T37ret;
}}};
T126e188=function (T126g2459)
{
var T126T37ret;
T126T37ret=userfun__caroshiElementRemoveClass(this,T126g2459);
return T126T37ret;
};
T126e189=function (T126g2461)
{
var T126g2463;
var T126g2465;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2463=T126g2461;
case 984:
T126g2465=true;
if(!T126g2463&&T126g2463!==0&&T126g2463!==''){_I_=1084;continue;}
T126g2465=null;
case 1084:
if(!T126g2465&&T126g2465!==0&&T126g2465!==''){_I_=1087;continue;}
_I_=983;continue;
case 1087:
T126T37tmp=(T126g2463==null?null:T126g2463._);
userfun__caroshiElementRemoveClass(this,T126T37tmp);
T126g2463=(T126g2463==null?null:T126g2463.__);
_I_=984;continue;
case 983:
T126T37ret=null;
return T126T37ret;
}}};
T126e197=function (T126g2466)
{
var T126g2467;
var T126T37ret;
T126g2467=this;
T126T37ret=T126g2467.writeAttribute("id",T126g2466);
return T126T37ret;
};
T126e198=function (T126g2468)
{
var T126g2469;
var T126g2470;
var T126T37ret;
var T126g2471;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2469=this;
T126g2470=T126g2469.readAttribute("id");
T126T37ret=T126g2470;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1092;continue;}
T126g2471=true;
T126T37tmp=new userfun_T37cons(T126g2470,null);
T126T37ret=userfun_emptyStringOrNilT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1088;continue;}
T126g2471=null;
case 1088:
T126T37ret=T126g2471;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1092;continue;}
T126T37ret=userfun_number(T126g2470);
case 1092:
return T126T37ret;
}}};
T126e206=function (T126g2472)
{
var T126T37tmp;
var T126e207;
var T126T37ret;
T126T37tmp=this;
T126e207=userfun_stringDowncase(T126T37tmp.tagName);
T126T37tmp=userfun_stringDowncase(T126g2472);
T126T37ret=(T126e207==T126T37tmp);
return T126T37ret;
};
T126e209=function (T126g2474)
{
var T126g2567;
var T126T37ret;
var T126g2475;
var T126e210;
var T126T37tmp;
T126T37ret="CAROSHI-ELEMENT.HAS-TAG-NAME-IN?";
T126g2475=this;
T126e210=function (T126g2476)
{
var T126T37ret;
T126T37ret=T126g2475.hasTagNameT63(T126g2476);
return T126T37ret;
};
T126T37tmp=new userfun_T37cons(T126g2474,null);
T126T37ret=userfun_memberIf(T126e210,T126T37tmp);
return T126T37ret;
};
T126e212=function (T126g2477)
{
var T126T37ret;
T126T37ret=userfun_caroshiElementSetStyles(this,T126g2477);
return T126T37ret;
};
T126e213=function ()
{
var T126T37ret;
T126T37ret=userfun_caroshiElementRemoveStyles(this);
return T126T37ret;
};
T126e214=function (T126g2480,T126g2481)
{
var T126T37ret;
T126T37ret=userfun_caroshiElementSetStyle(this,T126g2480,T126g2481);
return T126T37ret;
};
T126e215=function (T126g2483)
{
var T126T37ret;
T126T37ret=userfun_caroshiElementGetStyle(this,T126g2483);
return T126T37ret;
};
T126e216=function ()
{
var T126g2485;
var T126T37ret;
T126g2485=this;
T126T37ret=T126g2485.setStyle("display","");
return T126T37ret;
};
T126e217=function ()
{
var T126g2486;
var T126T37ret;
T126g2486=this;
T126T37ret=T126g2486.setStyle("display","none");
return T126T37ret;
};
T126e218=function ()
{
var T126g2487;
var T126T37ret;
T126g2487=this;
T126T37ret=T126g2487.getStyle("opacity");
return T126T37ret;
};
T126e219=function (T126g2488)
{
var T126g2489;
var T126T37ret;
var T126g2490;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2489=this;
T126T37ret=(1==T126g2488);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1099;continue;}
T126g2490=true;
T126T37tmp=typeof T126g2489.style.removeProperty;
T126T37ret=("undefined"==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1094;continue;}
T126g2490=null;
case 1094:
if(!T126g2490&&T126g2490!==0&&T126g2490!==''){_I_=1098;continue;}
T126g2489.style.removeProperty("opacity");
_I_=1098;continue;
case 1099:
T126g2489.setStyle("opacity",T126g2488);
case 1098:
T126T37ret=(T126g2488<0.1);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1102;continue;}
T126T37ret=0.1;
_I_=1101;continue;
case 1102:
T126T37ret=T126g2488;
case 1101:
T126T37tmp=T126T37ret;
T126T37tmp=(T126T37tmp*100);
this.style.filter=("alpha(opacity="+T126T37tmp+")");
T126T37ret=T126g2488;
return T126T37ret;
}}};
T126e234=function (T126g2491,T126g2492)
{
var T126g2493;
var T126e236;
var T126T37tmp;
var T126T37ret;
T126g2493=this;
T126e236=(T126g2491+"px");
T126T37tmp=(T126g2492+"px");
T126T37tmp={"left":T126e236,"top":T126T37tmp};
T126g2493.setStyles(T126T37tmp);
T126T37ret=this;
return T126T37ret;
};
T126e238=function ()
{
var T126g2495;
var T126g2496;
var T126g2497;
var T126g2498;
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2495=0;
T126g2496=0;
T126g2497=this;
case 986:
T126g2498=true;
if(!T126g2497&&T126g2497!==0&&T126g2497!==''){_I_=1104;continue;}
T126g2498=null;
case 1104:
if(!T126g2498&&T126g2498!==0&&T126g2498!==''){_I_=1107;continue;}
T126T37ret=[T126g2495,T126g2496];
_I_=987;continue;
case 1107:
T126T37tmp=new userfun_T37cons(T126g2497.offsetLeft,null);
T126T37tmp=new userfun_T37cons(T126g2495,T126T37tmp);
T126g2495=userfun_T43(T126T37tmp);
T126T37tmp=new userfun_T37cons(T126g2497.offsetTop,null);
T126T37tmp=new userfun_T37cons(T126g2496,T126T37tmp);
T126g2496=userfun_T43(T126T37tmp);
T126g2497=T126g2497.offsetParent;
_I_=986;continue;
case 987:
return T126T37ret;
}}};
T126e250=function ()
{
var T126g2499;
var T126T37tmp;
var T126T37ret;
T126g2499=this;
T126T37tmp=T126g2499.cumulativeOffset();
T126T37ret=T126T37tmp[0];
return T126T37ret;
};
T126e252=function ()
{
var T126g2500;
var T126T37tmp;
var T126T37ret;
T126g2500=this;
T126T37tmp=T126g2500.cumulativeOffset();
T126T37ret=T126T37tmp[1];
return T126T37ret;
};
T126e254=function ()
{
var T126T37ret;
T126T37ret=userfun_caroshiElementGetWidth(this);
return T126T37ret;
};
T126e255=function ()
{
var T126T37ret;
T126T37ret=userfun_caroshiElementGetHeight(this);
return T126T37ret;
};
T126e256=function (T126g2503)
{
var T126g2504;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2504=this;
T126T37ret=(0==T126g2503);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1109;continue;}
T126g2504.hide();
this._operaSizeFix=true;
T126T37ret=this._operaSizeFix;
_I_=1108;continue;
case 1109:
T126T37ret=this._operaSizeFix;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1108;continue;}
T126g2504.show();
this._operaSizeFix=null;
T126T37ret=this._operaSizeFix;
case 1108:
return T126T37ret;
}}};
T126e260=function (T126g2505)
{
var T126g2506;
var T126T37tmp;
var T126T37ret;
T126g2506=this;
T126T37tmp=(T126g2505+"px");
T126g2506.setStyle("width",T126T37tmp);
T126T37ret=T126g2506.fixOperaSizeOf0(T126g2505);
return T126T37ret;
};
T126e262=function (T126g2507)
{
var T126g2508;
var T126T37tmp;
var T126T37ret;
T126g2508=this;
T126T37tmp=(T126g2507+"px");
T126g2508.setStyle("height",T126T37tmp);
T126T37ret=T126g2508.fixOperaSizeOf0(T126g2507);
return T126T37ret;
};
T126e264=function (T126g2509)
{
var T126g2510;
var T126e265;
var T126T37tmp;
var T126T37ret;
T126g2510=this;
T126e265=T126g2510.getPositionX();
T126T37tmp=T126g2510.getWidth();
T126T37ret=userfun_withinT63(T126g2509,T126e265,T126T37tmp);
return T126T37ret;
};
T126e267=function (T126g2511)
{
var T126g2512;
var T126e268;
var T126T37tmp;
var T126T37ret;
T126g2512=this;
T126e268=T126g2512.getPositionY();
T126T37tmp=T126g2512.getHeight();
T126T37ret=userfun_withinT63(T126g2511,T126e268,T126T37tmp);
return T126T37ret;
};
T126e270=function (T126g2513,T126g2514)
{
var T126g2515;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2515=this;
T126T37ret=T126g2515.insideYT63(T126g2514);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1111;continue;}
T126T37ret=T126g2515.insideXT63(T126g2513);
case 1111:
return T126T37ret;
}}};
T126e273=function (T126g2516,T126g2517)
{
var T126g2519;
var T126g2521;
var T126g2520;
var T126T37ret;
var T126g2522;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2519=userfun_arrayList(this.childNodes);
case 989:
T126g2521=true;
if(!T126g2519&&T126g2519!==0&&T126g2519!==''){_I_=1113;continue;}
T126g2521=null;
case 1113:
if(!T126g2521&&T126g2521!==0&&T126g2521!==''){_I_=1116;continue;}
_I_=988;continue;
case 1116:
T126g2520=(T126g2519==null?null:T126g2519._);
userfun_domExtend(T126g2520);
T126T37ret=userfun_elementT63(T126g2520);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1122;continue;}
T126T37ret=T126g2520.insideT63(T126g2516,T126g2517);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1122;continue;}
T126g2522=T126g2520.findElementAt(T126g2516,T126g2517);
if(!T126g2522&&T126g2522!==0&&T126g2522!==''){_I_=1118;continue;}
T126T37ret=T126g2522;
_I_=990;continue;
case 1118:
T126T37ret=this;
_I_=990;continue;
case 1122:
T126g2519=(T126g2519==null?null:T126g2519.__);
_I_=989;continue;
case 988:
T126T37ret=this;
case 990:
return T126T37ret;
}}};
T126e290=function (T126g2523,T126g2524)
{
var T126g2525;
var T126T37ret;
var T126g2526;
var T126g2528;
var T126g2527;
var T126g2529;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2525=this;
T126T37ret=T126g2525.insideT63(T126g2523,T126g2524);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1135;continue;}
T126T37ret=userfun_elementT63(this);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1124;continue;}
T126T37ret=T126g2525.firstChild;
case 1124:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1133;continue;}
T126g2526=userfun_arrayList(this.childNodes);
case 992:
T126g2528=true;
if(!T126g2526&&T126g2526!==0&&T126g2526!==''){_I_=1126;continue;}
T126g2528=null;
case 1126:
if(!T126g2528&&T126g2528!==0&&T126g2528!==''){_I_=1129;continue;}
_I_=991;continue;
case 1129:
T126g2527=(T126g2526==null?null:T126g2526._);
T126g2529=T126g2527.seekElement(T126g2523,T126g2524);
if(!T126g2529&&T126g2529!==0&&T126g2529!==''){_I_=1130;continue;}
returnFrom(T126g2525.fromPoint,T126g2529);
case 1130:
T126g2526=(T126g2526==null?null:T126g2526.__);
_I_=992;continue;
case 991:
T126T37ret=null;
_I_=1135;continue;
case 1133:
T126T37ret=this;
case 1135:
return T126T37ret;
}}};
T126e308=function (T126g2530)
{
var T126T37tmp;
var T126g2532;
var T126T37ret;
var T126g2534;
var T126g2535;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=this.getElementsByClassName(T126g2530);
T126g2532=userfun_arrayCopy(T126T37tmp);
T126T37ret=T126g2532;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1141;continue;}
T126g2534=0;
case 994:
T126T37tmp=userfun_length(T126g2532);
T126T37ret=(T126g2534==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1138;continue;}
T126T37ret=null;
_I_=1141;continue;
case 1138:
T126g2535=T126g2532[T126g2534];
T126T37ret=(this===T126g2535.parentNode);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1140;continue;}
T126T37ret=T126g2535;
_I_=1141;continue;
case 1140:
T126g2534=(1+T126g2534);
_I_=994;continue;
case 1141:
return T126T37ret;
}}};
T126e322=function (T126g2536)
{
var T126g2538;
var T126g2539;
var T126g2541;
var T126g2540;
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2538=[];
T126g2539=userfun_arrayList(this.childNodes);
case 997:
T126g2541=true;
if(!T126g2539&&T126g2539!==0&&T126g2539!==''){_I_=1143;continue;}
T126g2541=null;
case 1143:
if(!T126g2541&&T126g2541!==0&&T126g2541!==''){_I_=1146;continue;}
_I_=996;continue;
case 1146:
T126g2540=(T126g2539==null?null:T126g2539._);
T126T37ret=userfun_elementT63(T126g2540);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1149;continue;}
T126T37tmp=T126g2540.getClass();
T126T37ret=(T126g2536==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1149;continue;}
T126g2538.push(T126g2540);
case 1149:
T126g2539=(T126g2539==null?null:T126g2539.__);
_I_=997;continue;
case 996:
T126T37ret=T126g2538;
return T126T37ret;
}}};
T126e337=function (T126g2542)
{
var T126g2543;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2543=this;
this.removeChildren();
if(!T126g2542&&T126g2542!==0&&T126g2542!==''){_I_=1151;continue;}
T126g2543.innerHTML=T126g2542;
case 1151:
T126T37ret=userfun_domTreeExtend(this);
return T126T37ret;
}}};
T126e339=function (T126g2544)
{
var T126T37ret;
T126T37ret=userfun_descendantAndSelfByTagName(this,T126g2544);
return T126T37ret;
};
T126e340=function (T126g2546)
{
var T126T37ret;
T126T37ret=userfun_descendantAndSelfByClassName(this,T126g2546);
return T126T37ret;
};
T126e341=function (T126g2548)
{
var T126T37ret;
T126T37ret=userfun_domGetFirstByClassName(this,T126g2548);
return T126T37ret;
};
T126e342=function (T126g2550)
{
var T126T37ret;
T126T37ret=userfun_domGetFirstByTagName(this,T126g2550);
return T126T37ret;
};
T126e343=function (T126g2552)
{
var T126g2569;
var T126T37ret;
var T126g2553;
var T126g2554;
var T126e345;
T126T37ret="CAROSHI-ELEMENT.GET-ELEMENTS-BY-NAME";
T126g2553=this;
T126g2554=[];
T126e345=function (T126g2555)
{
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_elementT63(T126g2555);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1155;continue;}
T126T37tmp=T126g2555.getName();
T126T37ret=(T126g2552==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1155;continue;}
T126T37ret=T126g2554.push(T126g2555);
case 1155:
return T126T37ret;
}}};
T126g2553.walk(T126e345);
T126T37ret=T126g2554;
return T126T37ret;
};
T126e351=function (T126g2556)
{
var T126g2557;
var T126g2558;
var T126T37ret;
var T126T37tmp;
var T126g2559;
var T126g2560;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2557=this;
T126g2558=true;
T126T37ret=(0<=T126g2556);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1157;continue;}
T126g2558=null;
case 1157:
if(!T126g2558&&T126g2558!==0&&T126g2558!==''){_I_=1159;continue;}
T126T37tmp=("caroshi-element get-child-at "+T126g2556+" is not a positive integer");
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
userfun_error(T126T37tmp);
case 1159:
T126g2559=T126g2557.firstChild;
case 999:
T126g2560=true;
T126T37ret=(0<T126g2556);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1161;continue;}
T126g2560=null;
case 1161:
if(!T126g2560&&T126g2560!==0&&T126g2560!==''){_I_=1164;continue;}
T126T37ret=T126g2559;
_I_=1000;continue;
case 1164:
T126g2556=(T126g2556-1);
T126g2559=T126g2559.nextSibling;
_I_=999;continue;
case 1000:
return T126T37ret;
}}};
T126e365=function ()
{
var T126T37tmp;
var T126T37ret;
var T126g2562;
var T126g2564;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=this;
T126T37tmp=new userfun_T37cons(T126T37tmp.textContent,null);
T126T37ret=userfun_emptyStringT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1171;continue;}
T126g2562=userfun_arrayList(this.childNodes);
case 1002:
T126g2564=true;
if(!T126g2562&&T126g2562!==0&&T126g2562!==''){_I_=1165;continue;}
T126g2564=null;
case 1165:
if(!T126g2564&&T126g2564!==0&&T126g2564!==''){_I_=1168;continue;}
_I_=1001;continue;
case 1168:
T126T37tmp=(T126g2562==null?null:T126g2562._);
T126T37ret=userfun_elementT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1170;continue;}
T126T37ret=null;
_I_=1171;continue;
case 1170:
T126g2562=(T126g2562==null?null:T126g2562.__);
_I_=1002;continue;
case 1001:
T126T37ret=true;
case 1171:
return T126T37ret;
}}};
T126e14={childrenArray:T126e15,childrenList:T126e16,removeChildren:T126e17,removeChildrenWithoutListenersOrCallbacks:T126e18,add:T126e27,addArray:T126e29,addList:T126e44,addFront:T126e52,addElement:T126e56,addText:T126e58,lastChildOfClass:T126e60,removeElementsByClassName:T126e74,readAttribute:T126e86,readAttributes:T126e92,attributesAlist:T126e107,hasAttributeT63:T126e123,attributeValueT63:T126e135,writeAttribute:T126e141,writeAttributes:T126e144,hasNameAttributeT63:T126e146,hasNameT63:T126e147,getName:T126e151,setName:T126e152,hasClassT63:T126e153,getClass:T126e156,getFirstOfClasses:T126e157,getClasses:T126e167,setClass:T126e170,addClass:T126e171,removeClass:T126e188,removeClasses:T126e189,setId:T126e197,getId:T126e198,hasTagNameT63:T126e206,hasTagNameInT63:T126e209,setStyles:T126e212,removeStyles:T126e213,setStyle:T126e214,getStyle:T126e215,show:T126e216,hide:T126e217,getOpacity:T126e218,setOpacity:T126e219,setPosition:T126e234,cumulativeOffset:T126e238,getPositionX:T126e250,getPositionY:T126e252,getWidth:T126e254,getHeight:T126e255,fixOperaSizeOf0:T126e256,setWidth:T126e260,setHeight:T126e262,insideXT63:T126e264,insideYT63:T126e267,insideT63:T126e270,findElementAt:T126e273,fromPoint:T126e290,getFirstChildByClassName:T126e308,getChildrenByClassName:T126e322,setInnerHTML:T126e337,getSelfAndChildrenByTagName:T126e339,getSelfAndChildrenByClassName:T126e340,getElementByClassName:T126e341,getElementByTagName:T126e342,getElementsByName:T126e343,getChildAt:T126e351,blankT63:T126e365};
T126T37ret=userfun_hashMerge(userfun_caroshiElement.prototype,T126e14);
T126T37ret=null;
T126e1=userfun_symbol("GET-ELEMENTS-BY-CLASS-NAME-RAW-0",null);
T126g2574=T126e1;
T126e2=function (T126g2578,T126g2579)
{
var T126T37ret;
var T126g2580;
var T126g2581;
var T126g2583;
var T126g2582;
var T126g2584;
var T126g2586;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=(9==T126g2578.nodeType);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1191;continue;}
T126T37ret=userfun_getElementsByClassNameRaw0(T126g2578.documentElement,T126g2579);
_I_=1190;continue;
case 1191:
T126T37ret=(1==T126g2578.nodeType);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1190;continue;}
T126g2580=userfun_makeQueue();
T126g2581=userfun_arrayList(T126g2578.childNodes);
case 1177:
T126g2583=true;
if(!T126g2581&&T126g2581!==0&&T126g2581!==''){_I_=1180;continue;}
T126g2583=null;
case 1180:
if(!T126g2583&&T126g2583!==0&&T126g2583!==''){_I_=1183;continue;}
_I_=1173;continue;
case 1183:
T126g2582=(T126g2581==null?null:T126g2581._);
T126T37ret=userfun_stringHasClassT63(T126g2582.className,T126g2579);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1184;continue;}
userfun_enqueue(T126g2580,T126g2582);
case 1184:
T126g2584=userfun_getElementsByClassNameRaw0(T126g2582,T126g2579);
case 1175:
T126g2586=true;
if(!T126g2584&&T126g2584!==0&&T126g2584!==''){_I_=1186;continue;}
T126g2586=null;
case 1186:
if(!T126g2586&&T126g2586!==0&&T126g2586!==''){_I_=1189;continue;}
_I_=1174;continue;
case 1189:
T126T37tmp=(T126g2584==null?null:T126g2584._);
userfun_enqueue(T126g2580,T126T37tmp);
T126g2584=(T126g2584==null?null:T126g2584.__);
_I_=1175;continue;
case 1174:
T126g2581=(T126g2581==null?null:T126g2581.__);
_I_=1177;continue;
case 1173:
T126T37ret=userfun_queueList(T126g2580);
case 1190:
return T126T37ret;
}}};
userfun_getElementsByClassNameRaw0=T126e2;
T126T37ret=userfun_getElementsByClassNameRaw0;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_getElementsByClassNameRaw0,T126g2574);
T126e1=userfun_symbol("GET-ELEMENTS-BY-CLASS-NAME-RAW",null);
T126g2587=T126e1;
T126e2=function (T126g2588)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_getElementsByClassNameRaw0(this,T126g2588);
T126T37ret=userfun_listArray(T126T37tmp);
return T126T37ret;
};
userfun_getElementsByClassNameRaw=T126e2;
T126T37ret=userfun_getElementsByClassNameRaw;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_getElementsByClassNameRaw,T126g2587);
T126T37ret=null;
T126T37ret=null;
T126e1=userfun_symbol("GET-ELEMENTS-BY-CLASS-NAME-EVAL",null);
T126g2589=T126e1;
T126e2=function (T126g2590,T126g2591)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=(".//*[contains(concat(' ', @class, ' '), ' "+T126g2591+" ')]");
T126T37ret=document.evaluate(T126T37tmp,T126g2590,null,0,null);
return T126T37ret;
};
userfun_getElementsByClassNameEval=T126e2;
T126T37ret=userfun_getElementsByClassNameEval;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_getElementsByClassNameEval,T126g2589);
T126e1=userfun_symbol("GET-ELEMENTS-BY-CLASS-NAME",null);
T126g2593=T126e1;
T126e2=function (T126g2595)
{
var T126g2596;
var T126g2597;
var T126g2598;
var T126g2600;
var T126T37ret;
var T126g2599;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2596=userfun_getElementsByClassNameEval(this,T126g2595);
T126g2597=[];
T126g2598=T126g2596.iterateNext();
case 1195:
T126g2600=true;
if(!T126g2598&&T126g2598!==0&&T126g2598!==''){_I_=1198;continue;}
T126g2600=null;
case 1198:
if(!T126g2600&&T126g2600!==0&&T126g2600!==''){_I_=1201;continue;}
T126T37ret=null;
_I_=1196;continue;
case 1201:
T126g2599=T126g2596.iterateNext();
T126g2597.unshift(T126g2598);
T126g2598=T126g2599;
_I_=1195;continue;
case 1196:
return T126T37ret;
}}};
userfun_getElementsByClassName=T126e2;
T126T37ret=userfun_getElementsByClassName;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_getElementsByClassName,T126g2593);
T126e2=function (T126g2601)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=document.getElementsByClassName;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1202;continue;}
T126g2601=null;
case 1202:
T126T37ret=T126g2601;
return T126T37ret;
}}};
T126e1=T126e2(true);
T126T37ret=T126e1;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1207;continue;}
T126e5=function (T126g2602)
{
var T126T37ret;
document.getElementsByClassName=T126g2602;
userfun_caroshiElement.prototype.getElementsByClassName=T126g2602;
T126T37ret=userfun_caroshiElement.prototype.getElementsByClassName;
return T126T37ret;
};
T126T37ret=document.evaluate;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1205;continue;}
T126T37ret=userfun_getElementsByClassName;
T126e7=T126T37ret;
T126T37ret=T126e7;
_I_=1204;continue;
case 1205:
T126T37ret=userfun_getElementsByClassNameRaw;
T126e8=T126T37ret;
T126T37ret=T126e8;
case 1204:
T126e6=T126T37ret;
T126T37ret=T126e5(T126e6);
T126e4=T126T37ret;
T126T37ret=T126e4;
case 1207:
T126e1=userfun_symbol("DOM-EXTEND",null);
T126g2604=T126e1;
T126e2=function (T126g2605)
{
var T126g2608;
var T126g2606;
var T126T37ret;
var T126g2607;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2608=true;
if(!T126g2605&&T126g2605!==0&&T126g2605!==''){_I_=1215;continue;}
T126g2608=null;
case 1215:
T126g2606=T126g2608;
if(!T126g2606&&T126g2606!==0&&T126g2606!==''){_I_=1213;continue;}
T126T37ret=T126g2606;
_I_=1212;continue;
case 1213:
T126g2607=true;
T126T37tmp=typeof T126g2605.addBefore;
T126T37ret=("undefined"==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1210;continue;}
T126g2607=null;
case 1210:
T126T37ret=T126g2607;
case 1212:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1223;continue;}
_I_=1222;continue;
case 1223:
T126T37ret=userfun_elementT63(T126g2605);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1220;continue;}
userfun_hashMerge(T126g2605,userfun_caroshiElement.prototype);
_I_=1222;continue;
case 1220:
if(!EXTENDEDTEXTNODEST63&&EXTENDEDTEXTNODEST63!==0&&EXTENDEDTEXTNODEST63!==''){_I_=1222;continue;}
userfun_hashMerge(T126g2605,userfun_TextNode.prototype);
case 1222:
T126T37ret=T126g2605;
return T126T37ret;
}}};
userfun_domExtend=T126e2;
T126T37ret=userfun_domExtend;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_domExtend,T126g2604);
T126e1=userfun_symbol("DOM-TREE-EXTEND",null);
T126g2609=T126e1;
T126e2=function (T126g2610)
{
var T126e4;
var T126T37ret;
T126e4=userfun_domExtend(T126g2610);
T126T37ret=T126e4.walk(userfun_domExtend);
return T126T37ret;
};
userfun_domTreeExtend=T126e2;
T126T37ret=userfun_domTreeExtend;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_domTreeExtend,T126g2609);
T126T37ret=null;
T126e1=userfun_symbol("DOCUMENT-EXTEND",null);
T126g2611=T126e1;
T126e3=function (T126g2614)
{
var T126e4;
var T126T37ret;
var T126e5;
T126e4=function (T126g2615)
{
var T126T37ret;
userfun_domTreeExtend(T126g2615.documentElement);
T126T37ret=T126g2615;
return T126T37ret;
};
T126g2614=T126e4;
T126T37ret=T126g2614;
T126e5=function (T126g2616)
{
var T126g2617;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
if(!T126g2616&&T126g2616!==0&&T126g2616!==''){_I_=1228;continue;}
T126g2617=(T126g2616==null?null:T126g2616._);
T126g2616=(T126g2616==null?null:T126g2616.__);
_I_=1227;continue;
case 1228:
T126g2617=document;
case 1227:
T126T37ret=T126g2614(T126g2617);
return T126T37ret;
}}};
T126g2614.treExp=T126e5;
T126T37ret=T126g2614;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_documentExtend=T126e2;
T126T37ret=userfun_documentExtend;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_documentExtend,T126g2611);
T126e1=userfun_symbol("HIDE-ELEMENTS",null);
T126g2621=T126e1;
T126e2=function (T126g2622)
{
var T126g2623;
var T126g2625;
var T126g2624;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2623=T126g2622;
case 1231:
T126g2625=true;
if(!T126g2623&&T126g2623!==0&&T126g2623!==''){_I_=1234;continue;}
T126g2625=null;
case 1234:
if(!T126g2625&&T126g2625!==0&&T126g2625!==''){_I_=1237;continue;}
_I_=1230;continue;
case 1237:
T126g2624=(T126g2623==null?null:T126g2623._);
T126g2624.hide();
T126g2623=(T126g2623==null?null:T126g2623.__);
_I_=1231;continue;
case 1230:
T126T37ret=null;
return T126T37ret;
}}};
userfun_hideElements=T126e2;
T126T37ret=userfun_hideElements;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_hideElements,T126g2621);
T126e1=userfun_symbol("SHOW-ELEMENTS",null);
T126g2629=T126e1;
T126e2=function (T126g2630)
{
var T126g2631;
var T126g2633;
var T126g2632;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2631=T126g2630;
case 1239:
T126g2633=true;
if(!T126g2631&&T126g2631!==0&&T126g2631!==''){_I_=1242;continue;}
T126g2633=null;
case 1242:
if(!T126g2633&&T126g2633!==0&&T126g2633!==''){_I_=1245;continue;}
_I_=1238;continue;
case 1245:
T126g2632=(T126g2631==null?null:T126g2631._);
T126g2632.show();
T126g2631=(T126g2631==null?null:T126g2631.__);
_I_=1239;continue;
case 1238:
T126T37ret=null;
return T126T37ret;
}}};
userfun_showElements=T126e2;
T126T37ret=userfun_showElements;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_showElements,T126g2629);
T126T37ret=null;
TRANSPARENTBLOCKS=null;
T126T37ret=TRANSPARENTBLOCKS;
TRANSPARENTBLOCKSTOPPERS=null;
T126T37ret=TRANSPARENTBLOCKSTOPPERS;
T126e1=userfun_symbol("TRANSPARENT-BLOCK-STOPPER-CLASS",null);
T126g2634=T126e1;
T126e2=function (T126g2635)
{
var T126T37ret;
T126T37ret=(T126g2635+"-stopper");
return T126T37ret;
};
userfun_transparentBlockStopperClass=T126e2;
T126T37ret=userfun_transparentBlockStopperClass;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_transparentBlockStopperClass,T126g2634);
T126e1=userfun_symbol("REGISTER-TRANSPARENT-BLOCKS",null);
T126g2639=T126e1;
T126e3=function (T126g2641)
{
var T126e4;
var T126T37ret;
T126e4=function (T126g2642)
{
var T126g2643;
var T126g2645;
var T126g2644;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2643=T126g2642;
case 1248:
T126g2645=true;
if(!T126g2643&&T126g2643!==0&&T126g2643!==''){_I_=1251;continue;}
T126g2645=null;
case 1251:
if(!T126g2645&&T126g2645!==0&&T126g2645!==''){_I_=1254;continue;}
_I_=1247;continue;
case 1254:
T126g2644=(T126g2643==null?null:T126g2643._);
TRANSPARENTBLOCKS=new userfun_T37cons(T126g2644,TRANSPARENTBLOCKS);
T126T37tmp=userfun_transparentBlockStopperClass(T126g2644);
TRANSPARENTBLOCKSTOPPERS=new userfun_T37cons(T126T37tmp,TRANSPARENTBLOCKSTOPPERS);
T126g2643=(T126g2643==null?null:T126g2643.__);
_I_=1248;continue;
case 1247:
T126T37ret=null;
return T126T37ret;
}}};
T126g2641=T126e4;
T126g2641.treExp=T126g2641;
T126T37ret=T126g2641;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_registerTransparentBlocks=T126e2;
T126T37ret=userfun_registerTransparentBlocks;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_registerTransparentBlocks,T126g2639);
T126e1=userfun_symbol("HAS-SOME-CLASS-OF?",null);
T126g2649=T126e1;
T126e2=function (T126g2650,T126g2651)
{
var T126g2652;
var T126g2654;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2652=T126g2651;
case 1256:
T126g2654=true;
if(!T126g2652&&T126g2652!==0&&T126g2652!==''){_I_=1259;continue;}
T126g2654=null;
case 1259:
if(!T126g2654&&T126g2654!==0&&T126g2654!==''){_I_=1262;continue;}
_I_=1255;continue;
case 1262:
T126T37tmp=(T126g2652==null?null:T126g2652._);
T126T37ret=T126g2650.hasClassT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1264;continue;}
T126T37ret=true;
_I_=1257;continue;
case 1264:
T126g2652=(T126g2652==null?null:T126g2652.__);
_I_=1256;continue;
case 1255:
T126T37ret=null;
case 1257:
return T126T37ret;
}}};
userfun_hasSomeClassOfT63=T126e2;
T126T37ret=userfun_hasSomeClassOfT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_hasSomeClassOfT63,T126g2649);
T126e1=userfun_symbol("TRANSPARENT-BLOCK?",null);
T126g2655=T126e1;
T126e2=function (T126g2656)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_elementT63(T126g2656);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1266;continue;}
T126T37ret=userfun_hasSomeClassOfT63(T126g2656,TRANSPARENTBLOCKS);
case 1266:
return T126T37ret;
}}};
userfun_transparentBlockT63=T126e2;
T126T37ret=userfun_transparentBlockT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_transparentBlockT63,T126g2655);
T126e1=userfun_symbol("TRANSPARENT-BLOCK-STOPPER?",null);
T126g2657=T126e1;
T126e2=function (T126g2658)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_elementT63(T126g2658);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1269;continue;}
T126T37ret=userfun_hasSomeClassOfT63(T126g2658,TRANSPARENTBLOCKSTOPPERS);
case 1269:
return T126T37ret;
}}};
userfun_transparentBlockStopperT63=T126e2;
T126T37ret=userfun_transparentBlockStopperT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_transparentBlockStopperT63,T126g2657);
T126e1=userfun_symbol("TRANSPARENT-BLOCK-EDGE",null);
T126g2672=T126e1;
T126e2=function (T126g2674,T126g2675,T126g2676,T126g2677)
{
var T126g2678;
var T126g2691;
var T126g2692;
var T126T37tmp;
var T126T37ret;
var T126g2679;
var T126g2681;
var T126g2682;
var T126g2683;
var T126g2680;
var T126g2685;
var T126g2686;
var T126g2688;
var T126g2689;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2678=1;
T126g2691=T126g2675;
T126g2692=T126g2691.treExp;
if(!T126g2692&&T126g2692!==0&&T126g2692!==''){_I_=1293;continue;}
T126T37tmp=new userfun_T37cons(T126g2674,null);
T126T37tmp=userfun_list(T126T37tmp);
T126T37ret=T126g2692.apply(null,[T126T37tmp]);
_I_=1292;continue;
case 1293:
T126T37ret=T126g2691(T126g2674);
case 1292:
T126g2679=T126T37ret;
case 1271:
T126g2681=true;
if(!T126g2679&&T126g2679!==0&&T126g2679!==''){_I_=1274;continue;}
T126g2681=null;
case 1274:
if(!T126g2681&&T126g2681!==0&&T126g2681!==''){_I_=1277;continue;}
T126T37ret=null;
_I_=1272;continue;
case 1277:
T126g2682=T126g2675;
T126g2683=T126g2682.treExp;
if(!T126g2683&&T126g2683!==0&&T126g2683!==''){_I_=1279;continue;}
T126T37tmp=new userfun_T37cons(T126g2679,null);
T126T37tmp=userfun_list(T126T37tmp);
T126T37ret=T126g2683.apply(null,[T126T37tmp]);
_I_=1278;continue;
case 1279:
T126T37ret=T126g2682(T126g2679);
case 1278:
T126g2680=T126T37ret;
T126T37ret=userfun_transparentBlockT63(T126g2679);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1288;continue;}
T126g2685=T126g2676;
T126g2686=T126g2685.treExp;
if(!T126g2686&&T126g2686!==0&&T126g2686!==''){_I_=1282;continue;}
T126T37tmp=new userfun_T37cons(T126g2678,null);
T126T37tmp=userfun_list(T126T37tmp);
T126T37ret=T126g2686.apply(null,[T126T37tmp]);
_I_=1281;continue;
case 1282:
T126T37ret=T126g2685(T126g2678);
case 1281:
T126g2678=T126T37ret;
_I_=1287;continue;
case 1288:
T126T37ret=userfun_transparentBlockStopperT63(T126g2679);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1287;continue;}
T126g2688=T126g2677;
T126g2689=T126g2688.treExp;
if(!T126g2689&&T126g2689!==0&&T126g2689!==''){_I_=1285;continue;}
T126T37tmp=new userfun_T37cons(T126g2678,null);
T126T37tmp=userfun_list(T126T37tmp);
T126T37ret=T126g2689.apply(null,[T126T37tmp]);
_I_=1284;continue;
case 1285:
T126T37ret=T126g2688(T126g2678);
case 1284:
T126g2678=T126T37ret;
case 1287:
T126T37ret=(0==T126g2678);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1291;continue;}
T126T37ret=T126g2679;
_I_=1272;continue;
case 1291:
T126g2679=T126g2680;
_I_=1271;continue;
case 1272:
return T126T37ret;
}}};
userfun_transparentBlockEdge=T126e2;
T126T37ret=userfun_transparentBlockEdge;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_transparentBlockEdge,T126g2672);
T126e1=userfun_symbol("TRANSPARENT-BLOCK-STARTER",null);
T126g2694=T126e1;
T126e2=function (T126g2695)
{
var T126e4;
var T126T37ret;
T126e4=function (T126g2696)
{
var T126T37ret;
T126T37ret=T126g2696.previousSibling;
return T126T37ret;
};
T126T37ret=userfun_transparentBlockEdge(T126g2695,T126e4,userfun_1T45,userfun_1T43);
return T126T37ret;
};
userfun_transparentBlockStarter=T126e2;
T126T37ret=userfun_transparentBlockStarter;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_transparentBlockStarter,T126g2694);
T126e1=userfun_symbol("TRANSPARENT-BLOCK-STOPPER",null);
T126g2697=T126e1;
T126e2=function (T126g2698)
{
var T126e4;
var T126T37ret;
T126e4=function (T126g2699)
{
var T126T37ret;
T126T37ret=T126g2699.nextSibling;
return T126T37ret;
};
T126T37ret=userfun_transparentBlockEdge(T126g2698,T126e4,userfun_1T43,userfun_1T45);
return T126T37ret;
};
userfun_transparentBlockStopper=T126e2;
T126T37ret=userfun_transparentBlockStopper;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_transparentBlockStopper,T126g2697);
T126e1=userfun_symbol("TRANSPARENT-BLOCK-CHILDREN",null);
T126g2701=T126e1;
T126e2=function (T126g2703)
{
var T126g2704;
var T126g2705;
var T126g2706;
var T126g2708;
var T126T37ret;
var T126g2707;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2704=userfun_transparentBlockStopper(T126g2703);
T126g2705=userfun_makeQueue();
T126g2706=T126g2703.nextSibling;
case 1297:
T126g2708=true;
if(!T126g2706&&T126g2706!==0&&T126g2706!==''){_I_=1300;continue;}
T126g2708=null;
case 1300:
if(!T126g2708&&T126g2708!==0&&T126g2708!==''){_I_=1303;continue;}
T126T37ret=null;
_I_=1298;continue;
case 1303:
T126g2707=T126g2706.nextSibling;
T126T37ret=(T126g2706===T126g2704);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1305;continue;}
T126T37ret=userfun_queueList(T126g2705);
_I_=1298;continue;
case 1305:
userfun_enqueue(T126g2705,T126g2706);
T126g2706=T126g2707;
_I_=1297;continue;
case 1298:
return T126T37ret;
}}};
userfun_transparentBlockChildren=T126e2;
T126T37ret=userfun_transparentBlockChildren;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_transparentBlockChildren,T126g2701);
T126e1=userfun_symbol("TRANSPARENT-BLOCK-REMOVE-CHILDREN",null);
T126g2712=T126e1;
T126e2=function (T126g2713)
{
var T126g2714;
var T126g2716;
var T126g2715;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2714=userfun_transparentBlockChildren(T126g2713);
case 1307:
T126g2716=true;
if(!T126g2714&&T126g2714!==0&&T126g2714!==''){_I_=1310;continue;}
T126g2716=null;
case 1310:
if(!T126g2716&&T126g2716!==0&&T126g2716!==''){_I_=1313;continue;}
_I_=1306;continue;
case 1313:
T126g2715=(T126g2714==null?null:T126g2714._);
T126g2715.remove();
T126g2714=(T126g2714==null?null:T126g2714.__);
_I_=1307;continue;
case 1306:
T126T37ret=null;
return T126T37ret;
}}};
userfun_transparentBlockRemoveChildren=T126e2;
T126T37ret=userfun_transparentBlockRemoveChildren;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_transparentBlockRemoveChildren,T126g2712);
T126e1=userfun_symbol("TRANSPARENT-BLOCK-CLONE-CHILDREN",null);
T126g2717=T126e1;
T126e2=function (T126g2718,T126g2719)
{
var T126g2721;
var T126e4;
var T126T37tmp;
var T126T37ret;
T126e4=function (T126g2720)
{
var T126T37ret;
T126T37ret=T126g2720.clone(T126g2719);
return T126T37ret;
};
T126T37tmp=userfun_transparentBlockChildren(T126g2718);
T126T37ret=userfun_filter(T126e4,T126T37tmp);
return T126T37ret;
};
userfun_transparentBlockCloneChildren=T126e2;
T126T37ret=userfun_transparentBlockCloneChildren;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_transparentBlockCloneChildren,T126g2717);
T126e1=userfun_symbol("TRANSPARENT-BLOCK-REMOVE",null);
T126g2723=T126e1;
T126e2=function (T126g2724)
{
var T126T37ret;
userfun_transparentBlockRemoveChildren(T126g2724);
T126g2724.nextSibling.remove();
T126T37ret=T126g2724.remove();
return T126T37ret;
};
userfun_transparentBlockRemove=T126e2;
T126T37ret=userfun_transparentBlockRemove;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_transparentBlockRemove,T126g2723);
T126e1=userfun_symbol("HIDE-TRANSPARENT-BLOCK",null);
T126g2725=T126e1;
T126e2=function (T126g2726)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_transparentBlockChildren(T126g2726);
T126T37ret=userfun_hideElements(T126T37tmp);
return T126T37ret;
};
userfun_hideTransparentBlock=T126e2;
T126T37ret=userfun_hideTransparentBlock;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_hideTransparentBlock,T126g2725);
T126e1=userfun_symbol("SHOW-TRANSPARENT-BLOCK",null);
T126g2727=T126e1;
T126e2=function (T126g2728)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_transparentBlockChildren(T126g2728);
T126T37ret=userfun_showElements(T126T37tmp);
return T126T37ret;
};
userfun_showTransparentBlock=T126e2;
T126T37ret=userfun_showTransparentBlock;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_showTransparentBlock,T126g2727);
T126e1=userfun_symbol("PREVIOUS-SIBLING-TRANSPARENT-BLOCK-BY-CLASS",null);
T126g2729=T126e1;
T126e2=function (T126g2730,T126g2731)
{
var T126T37ret;
var T126g2732;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g2730;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1324;continue;}
T126g2732=userfun_transparentBlockStarter(T126g2730);
T126T37ret=T126g2732;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1324;continue;}
T126T37ret=T126g2732.hasClassT63(T126g2731);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1320;continue;}
T126T37ret=T126g2732;
_I_=1324;continue;
case 1320:
T126T37ret=userfun_previousSiblingTransparentBlockByClass(T126g2730.previousSibling,T126g2731);
case 1324:
return T126T37ret;
}}};
userfun_previousSiblingTransparentBlockByClass=T126e2;
T126T37ret=userfun_previousSiblingTransparentBlockByClass;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_previousSiblingTransparentBlockByClass,T126g2729);
T126e1=userfun_symbol("ELEMENT-CHILDREN",null);
T126g2733=T126e1;
T126e2=function (T126g2734)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=userfun_transparentBlockT63(T126g2734);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1328;continue;}
T126T37ret=userfun_transparentBlockChildren(T126g2734);
_I_=1327;continue;
case 1328:
T126T37ret=userfun_caroshiElementChildrenList(T126g2734);
case 1327:
return T126T37ret;
}}};
userfun_elementChildren=T126e2;
T126T37ret=userfun_elementChildren;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_elementChildren,T126g2733);
T126T37ret=null;
T126e1=userfun_symbol("NATIVE-ADD-EVENT-LISTENER",null);
T126g2735=T126e1;
T126e2=function (T126g2736,T126g2737,T126g2738)
{
var T126T37ret;
var T126T37tmp;
var T126e7;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g2736.addEventListener;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1332;continue;}
T126T37tmp=userfun_cpsWrap(T126g2738);
T126T37ret=T126g2736.addEventListener(T126g2737,T126T37tmp,false);
_I_=1331;continue;
case 1332:
T126e7=("on"+T126g2737);
T126T37tmp=userfun_cpsWrap(T126g2738);
T126T37ret=T126g2736.attachEvent(T126e7,T126T37tmp);
case 1331:
return T126T37ret;
}}};
userfun_nativeAddEventListener=T126e2;
T126T37ret=userfun_nativeAddEventListener;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_nativeAddEventListener,T126g2735);
T126T37ret=null;
T126e1=userfun_symbol("NATIVE-REMOVE-EVENT-LISTENER",null);
T126g2739=T126e1;
T126e2=function (T126g2740,T126g2741,T126g2742)
{
var T126T37ret;
var T126T37tmp;
var T126e7;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g2740.removeEventListener;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1336;continue;}
T126T37tmp=userfun_cpsWrap(T126g2742);
T126T37ret=T126g2740.removeEventListener(T126g2741,T126T37tmp,false);
_I_=1335;continue;
case 1336:
T126e7=("on"+T126g2741);
T126T37tmp=userfun_cpsWrap(T126g2742);
T126T37ret=T126g2740.detachEvent(T126e7,T126T37tmp);
case 1335:
return T126T37ret;
}}};
userfun_nativeRemoveEventListener=T126e2;
T126T37ret=userfun_nativeRemoveEventListener;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_nativeRemoveEventListener,T126g2739);
T126T37ret=null;
T126e1=userfun_symbol("NATIVE-STOP-EVENT",null);
T126g2743=T126e1;
T126e2=function (T126g2744)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g2744.preventDefault;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1339;continue;}
T126g2744.preventDefault();
case 1339:
T126T37ret=T126g2744.stopPropagation;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1341;continue;}
T126T37ret=T126g2744.stopPropagation();
case 1341:
return T126T37ret;
}}};
userfun_nativeStopEvent=T126e2;
T126T37ret=userfun_nativeStopEvent;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_nativeStopEvent,T126g2743);
T126T37ret=null;
T126e1=userfun_symbol("NATIVE-FIRE-EVENT",null);
T126g2745=T126e1;
T126e2=function (T126g2746,T126g2747)
{
var T126T37ret;
var T126e5;
var T126T37tmp;
var T126g2748;
var T126g2749;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=document.createEventObject;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1347;continue;}
T126e5=("on"+T126g2747);
T126T37tmp=document.createEventObject();
T126T37ret=T126g2746.fireEvent(T126e5,T126T37tmp);
_I_=1346;continue;
case 1347:
T126g2748=document.createEvent("HTMLEvents");
T126g2748.initEvent(T126g2747,true,true);
T126g2749=true;
T126T37ret=T126g2746.dispatchEvent(T126g2748);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1344;continue;}
T126g2749=null;
case 1344:
T126T37ret=T126g2749;
case 1346:
return T126T37ret;
}}};
userfun_nativeFireEvent=T126e2;
T126T37ret=userfun_nativeFireEvent;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_nativeFireEvent,T126g2745);
T126e1=userfun_symbol("NATIVE-FIRE-D-O-M-CONTENT-LOADED",null);
T126g2750=T126e1;
T126e3=function (T126g2753)
{
var T126e4;
var T126T37ret;
var T126e6;
T126e4=function (T126g2754)
{
var T126T37ret;
T126T37ret=userfun_nativeFireEvent(document,"DOMContentLoaded");
return T126T37ret;
};
T126g2753=T126e4;
T126T37ret=T126g2753;
T126e6=function (T126g2755)
{
var T126g2756;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
if(!T126g2755&&T126g2755!==0&&T126g2755!==''){_I_=1351;continue;}
T126g2756=(T126g2755==null?null:T126g2755._);
T126g2755=(T126g2755==null?null:T126g2755.__);
_I_=1350;continue;
case 1351:
T126g2756=document;
case 1350:
T126T37ret=T126g2753(T126g2756);
return T126T37ret;
}}};
T126g2753.treExp=T126e6;
T126T37ret=T126g2753;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_nativeFireDOMContentLoaded=T126e2;
T126T37ret=userfun_nativeFireDOMContentLoaded;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_nativeFireDOMContentLoaded,T126g2750);
T126e1=userfun_symbol("CAROSHI-ADD-EVENT-LISTENER",null);
T126g2757=T126e1;
T126e2=function (T126g2758,T126g2759,T126g2760)
{
var T126T37ret;
T126T37ret=userfun_nativeAddEventListener(T126g2760,T126g2758,T126g2759);
return T126T37ret;
};
userfun_caroshiAddEventListener=T126e2;
T126T37ret=userfun_caroshiAddEventListener;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_caroshiAddEventListener,T126g2757);
T126e1=userfun_symbol("CAROSHI-REMOVE-EVENT-LISTENER",null);
T126g2761=T126e1;
T126e2=function (T126g2762,T126g2763,T126g2764)
{
var T126T37ret;
T126T37ret=userfun_nativeRemoveEventListener(T126g2764,T126g2762,T126g2763);
return T126T37ret;
};
userfun_caroshiRemoveEventListener=T126e2;
T126T37ret=userfun_caroshiRemoveEventListener;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_caroshiRemoveEventListener,T126g2761);
T126e1=userfun_symbol("CAROSHI-STOP-EVENT",null);
T126g2765=T126e1;
T126e2=function (T126g2766)
{
var T126T37ret;
T126T37ret=userfun_nativeStopEvent(T126g2766);
return T126T37ret;
};
userfun_caroshiStopEvent=T126e2;
T126T37ret=userfun_caroshiStopEvent;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_caroshiStopEvent,T126g2765);
T126e1=userfun_symbol("CHILD-OF-ANCESTOR-IF",null);
T126g2767=T126e1;
T126e2=function (T126g2770,T126g2771)
{
var T126g2772;
var T126g2773;
var T126g2775;
var T126T37ret;
var T126g2774;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2772=T126g2770;
T126g2773=T126g2770;
case 1356:
T126g2775=true;
if(!T126g2773&&T126g2773!==0&&T126g2773!==''){_I_=1359;continue;}
T126g2775=null;
case 1359:
if(!T126g2775&&T126g2775!==0&&T126g2775!==''){_I_=1362;continue;}
T126T37ret=null;
_I_=1357;continue;
case 1362:
T126g2774=userfun_parentNode(T126g2773);
T126T37ret=userfun_documentT63(T126g2773);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1364;continue;}
T126T37ret=null;
_I_=1357;continue;
case 1364:
T126T37ret=T126g2771(T126g2773);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1366;continue;}
T126T37ret=T126g2772;
_I_=1357;continue;
case 1366:
T126g2772=T126g2773;
T126g2773=T126g2774;
_I_=1356;continue;
case 1357:
return T126T37ret;
}}};
userfun_childOfAncestorIf=T126e2;
T126T37ret=userfun_childOfAncestorIf;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_childOfAncestorIf,T126g2767);
T126e1=userfun_symbol("ANCESTOR-OR-SELF-IF",null);
T126g2776=T126e1;
T126e2=function (T126g2779,T126g2780)
{
var T126g2781;
var T126g2783;
var T126T37ret;
var T126g2782;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2781=T126g2779;
case 1367:
T126g2783=true;
if(!T126g2781&&T126g2781!==0&&T126g2781!==''){_I_=1370;continue;}
T126g2783=null;
case 1370:
if(!T126g2783&&T126g2783!==0&&T126g2783!==''){_I_=1373;continue;}
T126T37ret=null;
_I_=1368;continue;
case 1373:
T126g2782=userfun_parentNode(T126g2781);
T126T37ret=userfun_documentT63(T126g2781);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1375;continue;}
T126T37ret=null;
_I_=1368;continue;
case 1375:
T126T37ret=T126g2780(T126g2781);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1377;continue;}
T126T37ret=T126g2781;
_I_=1368;continue;
case 1377:
T126g2781=T126g2782;
_I_=1367;continue;
case 1368:
return T126T37ret;
}}};
userfun_ancestorOrSelfIf=T126e2;
T126T37ret=userfun_ancestorOrSelfIf;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_ancestorOrSelfIf,T126g2776);
T126e1=userfun_symbol("ANCESTOR-OR-SELF?",null);
T126g2784=T126e1;
T126e2=function (T126g2785,T126g2786)
{
var T126g2788;
var T126e4;
var T126T37ret;
T126e4=function (T126g2787)
{
var T126T37ret;
T126T37ret=(T126g2787===T126g2786);
return T126T37ret;
};
T126T37ret=userfun_ancestorOrSelfIf(T126g2785,T126e4);
return T126T37ret;
};
userfun_ancestorOrSelfT63=T126e2;
T126T37ret=userfun_ancestorOrSelfT63;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_ancestorOrSelfT63,T126g2784);
T126T37ret=null;
T126e1=userfun_symbol("ANCESTORS-OR-SELF-IF",null);
T126g2790=T126e1;
T126e2=function (T126g2793,T126g2794)
{
var T126g2795;
var T126g2796;
var T126g2798;
var T126T37ret;
var T126g2797;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2795=[];
T126g2796=T126g2793;
case 1379:
T126g2798=true;
if(!T126g2796&&T126g2796!==0&&T126g2796!==''){_I_=1382;continue;}
T126g2798=null;
case 1382:
if(!T126g2798&&T126g2798!==0&&T126g2798!==''){_I_=1387;continue;}
T126T37ret=T126g2795.length;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1380;continue;}
T126T37ret=T126g2795;
_I_=1380;continue;
case 1387:
T126g2797=userfun_parentNode(T126g2796);
T126T37ret=userfun_documentT63(T126g2796);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1389;continue;}
T126T37ret=null;
_I_=1380;continue;
case 1389:
T126T37ret=T126g2794(T126g2796);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1390;continue;}
T126g2795.unshift(T126g2796);
case 1390:
T126g2796=T126g2797;
_I_=1379;continue;
case 1380:
return T126T37ret;
}}};
userfun_ancestorsOrSelfIf=T126e2;
T126T37ret=userfun_ancestorsOrSelfIf;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_ancestorsOrSelfIf,T126g2790);
T126T37ret=null;
T126T37ret=null;
T126T37ret=null;
T126e1=userfun_symbol("ANCESTOR-OR-SELF-WITH-I-D",null);
T126g2802=T126e1;
T126e2=function (T126g2805)
{
var T126g2806;
var T126g2808;
var T126T37ret;
var T126g2807;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2806=T126g2805;
case 1392:
T126g2808=true;
if(!T126g2806&&T126g2806!==0&&T126g2806!==''){_I_=1395;continue;}
T126g2808=null;
case 1395:
if(!T126g2808&&T126g2808!==0&&T126g2808!==''){_I_=1398;continue;}
T126T37ret=null;
_I_=1393;continue;
case 1398:
T126g2807=userfun_parentNode(T126g2806);
T126T37ret=userfun_documentT63(T126g2806);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1400;continue;}
T126T37ret=null;
_I_=1393;continue;
case 1400:
T126T37ret=userfun_elementT63(T126g2806);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1401;continue;}
T126T37ret=T126g2806.getId();
case 1401:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1404;continue;}
T126T37ret=T126g2806;
_I_=1393;continue;
case 1404:
T126g2806=T126g2807;
_I_=1392;continue;
case 1393:
return T126T37ret;
}}};
userfun_ancestorOrSelfWithID=T126e2;
T126T37ret=userfun_ancestorOrSelfWithID;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_ancestorOrSelfWithID,T126g2802);
T126e1=userfun_symbol("ANCESTOR-OR-SELF-WITH-CLASS",null);
T126g2809=T126e1;
T126e2=function (T126g2812)
{
var T126g2813;
var T126g2815;
var T126T37ret;
var T126g2814;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2813=T126g2812;
case 1405:
T126g2815=true;
if(!T126g2813&&T126g2813!==0&&T126g2813!==''){_I_=1408;continue;}
T126g2815=null;
case 1408:
if(!T126g2815&&T126g2815!==0&&T126g2815!==''){_I_=1411;continue;}
T126T37ret=null;
_I_=1406;continue;
case 1411:
T126g2814=userfun_parentNode(T126g2813);
T126T37ret=userfun_documentT63(T126g2813);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1413;continue;}
T126T37ret=null;
_I_=1406;continue;
case 1413:
T126T37ret=userfun_elementT63(T126g2813);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1414;continue;}
T126T37ret=T126g2813.hasAttribute("class");
case 1414:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1417;continue;}
T126T37ret=T126g2813;
_I_=1406;continue;
case 1417:
T126g2813=T126g2814;
_I_=1405;continue;
case 1406:
return T126T37ret;
}}};
userfun_ancestorOrSelfWithClass=T126e2;
T126T37ret=userfun_ancestorOrSelfWithClass;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_ancestorOrSelfWithClass,T126g2809);
T126e1=userfun_symbol("ANCESTOR-OR-SELF-WITH-CLASS-OF",null);
T126g2819=T126e1;
T126e2=function (T126g2822,T126g2823)
{
var T126g2824;
var T126g2826;
var T126T37ret;
var T126g2825;
var T126g2827;
var T126g2828;
var T126g2830;
var T126g2829;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2824=T126g2822;
case 1421:
T126g2826=true;
if(!T126g2824&&T126g2824!==0&&T126g2824!==''){_I_=1424;continue;}
T126g2826=null;
case 1424:
if(!T126g2826&&T126g2826!==0&&T126g2826!==''){_I_=1427;continue;}
T126T37ret=null;
_I_=1422;continue;
case 1427:
T126g2825=userfun_parentNode(T126g2824);
T126T37ret=userfun_documentT63(T126g2824);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1429;continue;}
T126T37ret=null;
_I_=1422;continue;
case 1429:
T126T37ret=userfun_elementT63(T126g2824);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1436;continue;}
T126g2827=T126g2824.getClasses();
T126g2828=userfun_forceList(T126g2823);
case 1419:
T126g2830=true;
if(!T126g2828&&T126g2828!==0&&T126g2828!==''){_I_=1430;continue;}
T126g2830=null;
case 1430:
if(!T126g2830&&T126g2830!==0&&T126g2830!==''){_I_=1433;continue;}
_I_=1418;continue;
case 1433:
T126g2829=(T126g2828==null?null:T126g2828._);
T126T37tmp=new userfun_T37cons(userfun_stringT61,null);
T126T37tmp=new userfun_T37cons(T126g4385,T126T37tmp);
T126T37tmp=new userfun_T37cons(T126g2827,T126T37tmp);
T126T37ret=userfun_member(T126g2829,T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1435;continue;}
T126T37ret=T126g2824;
_I_=1436;continue;
case 1435:
T126g2828=(T126g2828==null?null:T126g2828.__);
_I_=1419;continue;
case 1418:
T126T37ret=null;
case 1436:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1439;continue;}
T126T37ret=T126g2824;
_I_=1422;continue;
case 1439:
T126g2824=T126g2825;
_I_=1421;continue;
case 1422:
return T126T37ret;
}}};
userfun_ancestorOrSelfWithClassOf=T126e2;
T126T37ret=userfun_ancestorOrSelfWithClassOf;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_ancestorOrSelfWithClassOf,T126g2819);
T126e1=userfun_symbol("ANCESTOR-WITH-TAG-NAME",null);
T126g2831=T126e1;
T126e2=function (T126g2834,T126g2835)
{
var T126g2836;
var T126g2838;
var T126T37ret;
var T126g2837;
var T126e13;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2836=userfun_parentNode(T126g2834);
case 1440:
T126g2838=true;
if(!T126g2836&&T126g2836!==0&&T126g2836!==''){_I_=1443;continue;}
T126g2838=null;
case 1443:
if(!T126g2838&&T126g2838!==0&&T126g2838!==''){_I_=1446;continue;}
T126T37ret=null;
_I_=1441;continue;
case 1446:
T126g2837=userfun_parentNode(T126g2836);
T126T37ret=userfun_documentT63(T126g2836);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1448;continue;}
T126T37ret=null;
_I_=1441;continue;
case 1448:
T126e13=T126g2836.hasTagNameT63(T126g2835);
if(!T126e13&&T126e13!==0&&T126e13!==''){_I_=1450;continue;}
T126T37ret=T126g2836;
_I_=1441;continue;
case 1450:
T126g2836=T126g2837;
_I_=1440;continue;
case 1441:
return T126T37ret;
}}};
userfun_ancestorWithTagName=T126e2;
T126T37ret=userfun_ancestorWithTagName;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_ancestorWithTagName,T126g2831);
T126e1=userfun_symbol("ANCESTOR-OR-SELF-WITH-TAG-NAME",null);
T126g2839=T126e1;
T126e2=function (T126g2842,T126g2843)
{
var T126g2844;
var T126g2846;
var T126T37ret;
var T126g2845;
var T126e12;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2844=T126g2842;
case 1451:
T126g2846=true;
if(!T126g2844&&T126g2844!==0&&T126g2844!==''){_I_=1454;continue;}
T126g2846=null;
case 1454:
if(!T126g2846&&T126g2846!==0&&T126g2846!==''){_I_=1457;continue;}
T126T37ret=null;
_I_=1452;continue;
case 1457:
T126g2845=userfun_parentNode(T126g2844);
T126T37ret=userfun_documentT63(T126g2844);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1459;continue;}
T126T37ret=null;
_I_=1452;continue;
case 1459:
T126e12=T126g2844.hasTagNameT63(T126g2843);
if(!T126e12&&T126e12!==0&&T126e12!==''){_I_=1461;continue;}
T126T37ret=T126g2844;
_I_=1452;continue;
case 1461:
T126g2844=T126g2845;
_I_=1451;continue;
case 1452:
return T126T37ret;
}}};
userfun_ancestorOrSelfWithTagName=T126e2;
T126T37ret=userfun_ancestorOrSelfWithTagName;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_ancestorOrSelfWithTagName,T126g2839);
T126e1=userfun_symbol("ANCESTOR-OR-SELF-NAME",null);
T126g2847=T126e1;
T126e2=function (T126g2848)
{
var T126e5;
var T126g2849;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126e5=function (T126g2850)
{
var T126T37ret;
T126T37ret=T126g2850.readAttribute("name");
return T126T37ret;
};
T126g2849=userfun_ancestorOrSelfIf(T126g2848,T126e5);
T126T37ret=T126g2849;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1463;continue;}
T126T37ret=T126g2849.readAttribute("name");
case 1463:
return T126T37ret;
}}};
userfun_ancestorOrSelfName=T126e2;
T126T37ret=userfun_ancestorOrSelfName;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_ancestorOrSelfName,T126g2847);
T126e1=userfun_symbol("FIRST-DESCENDANT-TEXT-NODE",null);
T126g2852=T126e1;
T126e2=function (T126g2855)
{
var T126g2856;
var T126g2858;
var T126T37ret;
var T126g2857;
var T126g2859;
var T126g2860;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2856=T126g2855.firstChild;
case 1465:
T126g2858=true;
if(!T126g2856&&T126g2856!==0&&T126g2856!==''){_I_=1468;continue;}
T126g2858=null;
case 1468:
if(!T126g2858&&T126g2858!==0&&T126g2858!==''){_I_=1471;continue;}
T126T37ret=null;
_I_=1466;continue;
case 1471:
T126g2857=T126g2856.nextSibling;
T126T37ret=userfun_documentT63(T126g2856);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1473;continue;}
T126T37ret=null;
_I_=1466;continue;
case 1473:
T126g2859=T126g2856.nodeType;
T126T37ret=userfun_equal(T126g2859,3);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1477;continue;}
T126T37ret=T126g2856;
_I_=1466;continue;
case 1477:
T126T37ret=userfun_equal(T126g2859,1);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1476;continue;}
T126g2860=userfun_firstDescendantTextNode(T126g2856);
if(!T126g2860&&T126g2860!==0&&T126g2860!==''){_I_=1476;continue;}
T126T37ret=T126g2860;
_I_=1466;continue;
case 1476:
T126g2856=T126g2857;
_I_=1465;continue;
case 1466:
return T126T37ret;
}}};
userfun_firstDescendantTextNode=T126e2;
T126T37ret=userfun_firstDescendantTextNode;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_firstDescendantTextNode,T126g2852);
T126e1=userfun_symbol("DESCENDANT-AND-SELF-BY-TAG-NAME",null);
T126g2861=T126e1;
T126e2=function (T126g2862,T126g2863)
{
var T126T37tmp;
var T126g2864;
var T126T37ret;
var T126g2865;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=T126g2862.getElementsByTagName(T126g2863);
T126g2864=userfun_arrayCopy(T126T37tmp);
T126T37ret=userfun_elementT63(T126g2862);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1480;continue;}
T126T37ret=T126g2862.hasTagNameT63(T126g2863);
case 1480:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1482;continue;}
T126g2864.push(T126g2862);
case 1482:
T126g2865=true;
T126T37tmp=userfun_length(T126g2864);
T126T37ret=(0==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1484;continue;}
T126g2865=null;
case 1484:
T126T37ret=T126g2865;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1486;continue;}
T126T37ret=T126g2864;
case 1486:
return T126T37ret;
}}};
userfun_descendantAndSelfByTagName=T126e2;
T126T37ret=userfun_descendantAndSelfByTagName;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_descendantAndSelfByTagName,T126g2861);
T126e1=userfun_symbol("DESCENDANT-AND-SELF-BY-CLASS-NAME",null);
T126g2866=T126e1;
T126e2=function (T126g2867,T126g2868)
{
var T126T37tmp;
var T126g2869;
var T126T37ret;
var T126g2870;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=T126g2867.getElementsByClassName(T126g2868);
T126g2869=userfun_arrayCopy(T126T37tmp);
T126T37ret=userfun_elementT63(T126g2867);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1489;continue;}
T126T37ret=T126g2867.hasClassT63(T126g2868);
case 1489:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1491;continue;}
T126g2869.push(T126g2867);
case 1491:
T126g2870=true;
T126T37tmp=userfun_length(T126g2869);
T126T37ret=(0==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1493;continue;}
T126g2870=null;
case 1493:
T126T37ret=T126g2870;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1495;continue;}
T126T37ret=T126g2869;
case 1495:
return T126T37ret;
}}};
userfun_descendantAndSelfByClassName=T126e2;
T126T37ret=userfun_descendantAndSelfByClassName;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_descendantAndSelfByClassName,T126g2866);
LASTOPENEDMENUPAGE=null;
T126T37ret=LASTOPENEDMENUPAGE;
T126e1=userfun_symbol("CLOSE-LAST-OPENED-MENU-PAGE",null);
T126g2871=T126e1;
T126e2=function ()
{
var T126g2872;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2872=LASTOPENEDMENUPAGE;
T126T37ret=T126g2872;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1498;continue;}
T126g2872.hide();
LASTOPENEDMENUPAGE=null;
T126T37ret=LASTOPENEDMENUPAGE;
case 1498:
return T126T37ret;
}}};
userfun_closeLastOpenedMenuPage=T126e2;
T126T37ret=userfun_closeLastOpenedMenuPage;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_closeLastOpenedMenuPage,T126g2871);
T126e1=userfun_symbol("OPEN-MENU",null);
T126g2873=T126e1;
T126e2=function (T126g2874)
{
var T126T37ret;
userfun_closeLastOpenedMenuPage();
T126g2874.show();
LASTOPENEDMENUPAGE=T126g2874;
T126T37ret=LASTOPENEDMENUPAGE;
return T126T37ret;
};
userfun_openMenu=T126e2;
T126T37ret=userfun_openMenu;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_openMenu,T126g2873);
T126e1=userfun_symbol("CLOSE-MENU",null);
T126g2875=T126e1;
T126e2=function (T126g2876)
{
var T126T37ret;
T126T37ret=T126g2876.hide();
return T126T37ret;
};
userfun_closeMenu=T126e2;
T126T37ret=userfun_closeMenu;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_closeMenu,T126g2875);
T126e1=userfun_symbol("HOOK-MENU-PAGE",null);
T126g2877=T126e1;
T126e2=function (T126g2878)
{
var T126g2882;
var T126g2879;
var T126T37ret;
var T126e5;
var T126e6;
T126g2879=userfun_domGetFirstByClassName(T126g2878,"test");
T126T37ret=T126g2879.hide();
T126e5=function (T126g2880)
{
var T126T37ret;
T126T37ret=userfun_openMenu(T126g2879);
return T126T37ret;
};
T126T37ret=userfun_caroshiAddEventListener("mouseover",T126e5,T126g2878);
T126e6=function (T126g2881)
{
var T126T37ret;
T126T37ret=userfun_closeMenu(T126g2879);
return T126T37ret;
};
T126T37ret=userfun_caroshiAddEventListener("mouseout",T126e6,T126g2879);
return T126T37ret;
};
userfun_hookMenuPage=T126e2;
T126T37ret=userfun_hookMenuPage;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_hookMenuPage,T126g2877);
T126e1=userfun_symbol("HIDE-MENUS",null);
T126g2885=T126e1;
T126e2=function (T126g2886)
{
var T126e4;
var T126T37ret;
T126e4=function (T126g2887)
{
var T126T37ret;
T126T37ret=T126g2887.hide();
return T126T37ret;
};
T126T37ret=userfun_mapElementsByClassName(T126e4,T126g2886,"test");
return T126T37ret;
};
userfun_hideMenus=T126e2;
T126T37ret=userfun_hideMenus;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_hideMenus,T126g2885);
T126e1=userfun_symbol("HOOK-MENU",null);
T126g2891=T126e1;
T126e2=function (T126g2892,T126g2893)
{
var T126g2894;
var T126g2895;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
userfun_documentExtend(document);
userfun_mapElementsByClassName(userfun_hookMenuPage,T126g2893,"submenu");
T126g2894=T126g2892;
T126g2895=T126g2894.treExp;
if(!T126g2895&&T126g2895!==0&&T126g2895!==''){_I_=1506;continue;}
T126T37tmp=userfun_list(null);
T126T37ret=T126g2895.apply(null,[T126T37tmp]);
_I_=1505;continue;
case 1506:
T126T37ret=T126g2894();
case 1505:
return T126T37ret;
}}};
userfun_hookMenu=T126e2;
T126T37ret=userfun_hookMenu;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_hookMenu,T126g2891);
T126e1=userfun_symbol("DOCUMENT-BODY-ADD",null);
T126g2897=T126e1;
T126e2=function (T126g2898)
{
var T126T37ret;
T126T37ret=document.body.appendChild(T126g2898);
return T126T37ret;
};
userfun_documentBodyAdd=T126e2;
T126T37ret=userfun_documentBodyAdd;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_documentBodyAdd,T126g2897);
T126T37ret=null;
T126e1=userfun_symbol("LOCATION-STRING",null);
T126g2899=T126e1;
T126e2=function (T126g2900)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=new String(T126g2900);
T126T37ret=unescape(T126T37tmp);
return T126T37ret;
};
userfun_locationString=T126e2;
T126T37ret=userfun_locationString;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_locationString,T126g2899);
T126e1=function ()
{
var T126T37ret;
T126T37ret=null;
return T126T37ret;
};
T126T37ret=userfun_hookMenu(T126e1,document);
T126e1=userfun_symbol("COPY-HEAD-AND-BODY",null);
T126g2901=T126e1;
T126e3=function (T126g2905)
{
var T126e4;
var T126T37ret;
var T126e11;
T126e4=function (T126g2906,T126g2907,T126g2908)
{
var T126g2909;
var T126g2910;
var T126g2911;
var T126g2912;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2909=userfun_domGetFirstByTagName(T126g2907,"head");
T126g2910=userfun_domGetFirstByTagName(T126g2907,"body");
T126g2911=userfun_domGetFirstByTagName(T126g2906,"head");
T126g2912=userfun_domGetFirstByTagName(T126g2906,"body");
if(!T126g2908&&T126g2908!==0&&T126g2908!==''){_I_=1514;continue;}
T126g2909.removeChildren();
case 1514:
userfun_moveChildren(T126g2909,T126g2911);
T126T37ret=userfun_moveChildren(T126g2910,T126g2912);
return T126T37ret;
}}};
T126g2905=T126e4;
T126T37ret=T126g2905;
T126e11=function (T126g2913)
{
var T126g2920;
var T126g2916;
var T126g2917;
var T126e12;
var T126g2914;
var T126g2915;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2916=T126g4451;
T126g2917=null;
T126e12=function ()
{
var T126g2919;
var T126g2918;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 1511:
T126g2919=true;
T126g2918=(T126g2913==null?null:T126g2913._);
T126T37tmp=T126g2918;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1516;continue;}
T126g2919=null;
case 1516:
if(!T126g2919&&T126g2919!==0&&T126g2919!==''){_I_=1519;continue;}
T126T37ret=null;
_I_=1512;continue;
case 1519:
T126T37ret=(T126g2918===T126g4452);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1511;continue;}
T126g2913=(T126g2913==null?null:T126g2913.__);
T126g2916=(T126g2913==null?null:T126g2913._);
T126g2913=(T126g2913==null?null:T126g2913.__);
_I_=1511;continue;
case 1512:
return T126T37ret;
}}};
T126g2917=T126e12;
;
T126g2917();
T126g2914=(T126g2913==null?null:T126g2913._);
T126g2913=(T126g2913==null?null:T126g2913.__);
T126g2917();
T126g2915=(T126g2913==null?null:T126g2913._);
T126g2913=(T126g2913==null?null:T126g2913.__);
T126g2917();
T126T37ret=(T126g2916===T126g4451);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1522;continue;}
T126g2916=true;
case 1522:
T126T37ret=T126g2905(T126g2914,T126g2915,T126g2916);
return T126T37ret;
}}};
T126g2905.treExp=T126e11;
T126T37ret=T126g2905;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_copyHeadAndBody=T126e2;
T126T37ret=userfun_copyHeadAndBody;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_copyHeadAndBody,T126g2901);
T126T37ret=null;
T126e1=userfun_symbol("DOCUMENT-LOCATION",null);
T126g2922=T126e1;
T126e3=function (T126g2925)
{
var T126e4;
var T126T37ret;
var T126e9;
T126e4=function (T126g2926)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_locationString(T126g2926.location);
T126T37tmp=userfun_pathPathlist(T126T37tmp);
T126T37tmp=userfun_butlast(T126T37tmp);
T126T37ret=userfun_pathlistPath(T126T37tmp);
return T126T37ret;
};
T126g2925=T126e4;
T126T37ret=T126g2925;
T126e9=function (T126g2927)
{
var T126g2928;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
if(!T126g2927&&T126g2927!==0&&T126g2927!==''){_I_=1526;continue;}
T126g2928=(T126g2927==null?null:T126g2927._);
T126g2927=(T126g2927==null?null:T126g2927.__);
_I_=1525;continue;
case 1526:
T126g2928=document;
case 1525:
T126T37ret=T126g2925(T126g2928);
return T126T37ret;
}}};
T126g2925.treExp=T126e9;
T126T37ret=T126g2925;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_documentLocation=T126e2;
T126T37ret=userfun_documentLocation;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_documentLocation,T126g2922);
T126T37ret=null;
T126e1=userfun_symbol("IFRAME-DOCUMENT",null);
T126g2931=T126e1;
T126e2=function (T126g2932)
{
var T126g2933;
var T126T37ret;
var T126g2936;
var T126g2934;
var T126g2935;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2933=T126g2932.contentDocument;
if(!T126g2933&&T126g2933!==0&&T126g2933!==''){_I_=1540;continue;}
T126T37ret=T126g2933;
_I_=1539;continue;
case 1540:
T126g2936=T126g2932.contentWindow;
T126T37ret=T126g2936;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1537;continue;}
T126T37ret=T126g2936.document;
case 1537:
T126g2934=T126T37ret;
if(!T126g2934&&T126g2934!==0&&T126g2934!==''){_I_=1535;continue;}
T126T37ret=T126g2934;
_I_=1539;continue;
case 1535:
T126g2935=true;
T126T37tmp=typeof T126g2932.document;
T126T37ret=("undefined"==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1529;continue;}
T126g2935=null;
case 1529:
if(!T126g2935&&T126g2935!==0&&T126g2935!==''){_I_=1532;continue;}
T126T37ret=T126g2932.document;
_I_=1539;continue;
case 1532:
T126T37tmp=new userfun_T37cons("doc not defd",null);
T126T37ret=userfun_error(T126T37tmp);
case 1539:
return T126T37ret;
}}};
userfun_iframeDocument=T126e2;
T126T37ret=userfun_iframeDocument;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_iframeDocument,T126g2931);
T126e1=userfun_symbol("IFRAME-EXTEND",null);
T126g2937=T126e1;
T126e2=function (T126g2938)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_iframeDocument(T126g2938);
userfun_documentExtend(T126T37tmp);
T126T37ret=T126g2938;
return T126T37ret;
};
userfun_iframeExtend=T126e2;
T126T37ret=userfun_iframeExtend;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_iframeExtend,T126g2937);
T126e1=userfun_symbol("ANCESTOR-OR-SELF-TAB",null);
T126g2939=T126e1;
T126e2=function (T126g2940)
{
var T126T37ret;
T126T37ret=userfun_ancestorOrSelfWithClassOf(T126g2940,"tab");
return T126T37ret;
};
userfun_ancestorOrSelfTab=T126e2;
T126T37ret=userfun_ancestorOrSelfTab;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_ancestorOrSelfTab,T126g2939);
T126e1=userfun_symbol("GET-TABMENU",null);
T126g2941=T126e1;
T126e2=function (T126g2942)
{
var T126e5;
var T126T37tmp;
var T126T37ret;
T126e5=userfun_ancestorOrSelfTab(T126g2942);
T126T37tmp=T126e5.getElementsByClassName("tabmenu");
T126T37ret=T126T37tmp[0];
return T126T37ret;
};
userfun_getTabmenu=T126e2;
T126T37ret=userfun_getTabmenu;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_getTabmenu,T126g2941);
T126e1=userfun_symbol("DESCENDANT-TABITEMS",null);
T126g2943=T126e1;
T126e2=function (T126g2944)
{
var T126T37ret;
T126T37ret=T126g2944.getElementsByClassName("tabitem");
return T126T37ret;
};
userfun_descendantTabitems=T126e2;
T126T37ret=userfun_descendantTabitems;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_descendantTabitems,T126g2943);
T126e1=userfun_symbol("DESCENDANT-TABCONTENTS",null);
T126g2945=T126e1;
T126e2=function (T126g2946)
{
var T126T37ret;
T126T37ret=T126g2946.getElementsByClassName("tabcontent");
return T126T37ret;
};
userfun_descendantTabcontents=T126e2;
T126T37ret=userfun_descendantTabcontents;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_descendantTabcontents,T126g2945);
T126e1=userfun_symbol("GET-TABITEMS",null);
T126g2947=T126e1;
T126e2=function (T126g2948)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_ancestorOrSelfTab(T126g2948);
T126T37ret=userfun_descendantTabitems(T126T37tmp);
return T126T37ret;
};
userfun_getTabitems=T126e2;
T126T37ret=userfun_getTabitems;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_getTabitems,T126g2947);
T126e1=userfun_symbol("GET-TABCONTENTS",null);
T126g2949=T126e1;
T126e2=function (T126g2950)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_ancestorOrSelfTab(T126g2950);
T126T37ret=userfun_descendantTabcontents(T126T37tmp);
return T126T37ret;
};
userfun_getTabcontents=T126e2;
T126T37ret=userfun_getTabcontents;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_getTabcontents,T126g2949);
T126e1=userfun_symbol("GET-TABITEM-POSITION",null);
T126g2951=T126e1;
T126e2=function (T126g2952)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_getTabitems(T126g2952);
T126T37ret=userfun_position(T126g2952,T126T37tmp,null,null,null,userfun_eq);
return T126T37ret;
};
userfun_getTabitemPosition=T126e2;
T126T37ret=userfun_getTabitemPosition;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_getTabitemPosition,T126g2951);
T126e1=userfun_symbol("MAKE-IFRAME",null);
T126g2953=T126e1;
T126e3=function (T126g2957)
{
var T126e4;
var T126T37ret;
var T126e7;
T126e4=function (T126g2958,T126g2959)
{
var T126g2960;
var T126T37ret;
T126g2960=new userfun_Element("iframe",null,null,T126g2958,T126g2959);
T126g2960.hide();
T126g2958.body.addFront(T126g2960);
T126T37ret=userfun_iframeExtend(T126g2960);
return T126T37ret;
};
T126g2957=T126e4;
T126T37ret=T126g2957;
T126e7=function (T126g2961)
{
var T126g2967;
var T126g2963;
var T126g2964;
var T126e8;
var T126g2962;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2963=T126g4446;
T126g2964=null;
T126e8=function ()
{
var T126g2966;
var T126g2965;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 1551:
T126g2966=true;
T126g2965=(T126g2961==null?null:T126g2961._);
T126T37tmp=T126g2965;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1554;continue;}
T126g2966=null;
case 1554:
if(!T126g2966&&T126g2966!==0&&T126g2966!==''){_I_=1557;continue;}
T126T37ret=null;
_I_=1552;continue;
case 1557:
T126T37ret=(T126g2965===T126g4447);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1551;continue;}
T126g2961=(T126g2961==null?null:T126g2961.__);
T126g2963=(T126g2961==null?null:T126g2961._);
T126g2961=(T126g2961==null?null:T126g2961.__);
_I_=1551;continue;
case 1552:
return T126T37ret;
}}};
T126g2964=T126e8;
;
T126g2964();
T126g2962=(T126g2961==null?null:T126g2961._);
T126g2961=(T126g2961==null?null:T126g2961.__);
T126g2964();
T126T37ret=(T126g2963===T126g4446);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1560;continue;}
T126g2963=null;
case 1560:
T126T37ret=T126g2957(T126g2962,T126g2963);
return T126T37ret;
}}};
T126g2957.treExp=T126e7;
T126T37ret=T126g2957;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_makeIframe=T126e2;
T126T37ret=userfun_makeIframe;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_makeIframe,T126g2953);
T126T37ret=null;
PRELOADEDIMAGES=null;
T126T37ret=PRELOADEDIMAGES;
PRELOADIMAGESTIMER=null;
T126T37ret=PRELOADIMAGESTIMER;
T126e1=userfun_symbol("PRELOAD-IMAGES-0",null);
T126g2972=T126e1;
T126e2=function (T126g2973,T126g2974,T126g2975,T126g2976,T126g2977)
{
var T126g2983;
var T126T37ret;
var T126e5;
var T126g2980;
var T126g2981;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g2975;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1569;continue;}
T126e5=function ()
{
var T126T37tmp;
var T126g2979;
var T126e13;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=(T126g2975==null?null:T126g2975._);
T126T37tmp={"src":T126T37tmp};
T126T37tmp=new userfun_Element("IMG",T126T37tmp,null,document,null);
PRELOADEDIMAGES=new userfun_T37cons(T126T37tmp,PRELOADEDIMAGES);
T126g2979=T126g2974;
if(!T126g2979&&T126g2979!==0&&T126g2979!==''){_I_=1563;continue;}
T126T37tmp=(100/T126g2976);
T126T37tmp=(T126T37tmp*T126g2977);
T126g2979.set(T126T37tmp);
case 1563:
T126e13=(T126g2975==null?null:T126g2975.__);
T126T37tmp=userfun_1T43(T126g2977);
T126T37ret=userfun_preloadImages0(T126g2973,T126g2974,T126e13,T126g2976,T126T37tmp);
return T126T37ret;
}}};
T126T37ret=userfun_wait(T126e5,0);
_I_=1568;continue;
case 1569:
T126g2980=T126g2973;
T126g2981=T126g2980.treExp;
if(!T126g2981&&T126g2981!==0&&T126g2981!==''){_I_=1566;continue;}
T126T37tmp=userfun_list(null);
T126T37ret=T126g2981.apply(null,[T126T37tmp]);
_I_=1568;continue;
case 1566:
T126T37ret=T126g2980();
case 1568:
return T126T37ret;
}}};
userfun_preloadImages0=T126e2;
T126T37ret=userfun_preloadImages0;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_preloadImages0,T126g2972);
T126e1=userfun_symbol("PRELOAD-IMAGES-CHECK",null);
T126g2988=T126e1;
T126e2=function (T126g2989)
{
var T126e5;
var T126T37tmp;
var T126T37ret;
var T126g2992;
var T126g2993;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126e5=function (T126g2990)
{
var T126g2991;
var T126e8;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g2991=true;
T126e8=userfun_domExtend(T126g2990);
T126T37tmp=T126e8.getWidth();
T126T37ret=(0==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1572;continue;}
T126g2991=null;
case 1572:
T126T37ret=T126g2991;
return T126T37ret;
}}};
T126T37tmp=new userfun_T37cons(PRELOADEDIMAGES,null);
T126T37ret=userfun_every(T126e5,T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1577;continue;}
clearInterval(PRELOADIMAGESTIMER);
T126g2992=T126g2989;
T126g2993=T126g2992.treExp;
if(!T126g2993&&T126g2993!==0&&T126g2993!==''){_I_=1575;continue;}
T126T37tmp=userfun_list(null);
T126T37ret=T126g2993.apply(null,[T126T37tmp]);
_I_=1577;continue;
case 1575:
T126T37ret=T126g2992();
case 1577:
return T126T37ret;
}}};
userfun_preloadImagesCheck=T126e2;
T126T37ret=userfun_preloadImagesCheck;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_preloadImagesCheck,T126g2988);
T126e1=userfun_symbol("PRELOAD-IMAGES",null);
T126g2995=T126e1;
T126e2=function (T126g2996,T126g2997,T126g2998)
{
var T126g3001;
var T126e4;
var T126T37tmp;
var T126T37ret;
T126e4=function ()
{
var T126g2999;
var T126e7;
var T126T37tmp;
var T126T37ret;
T126e7=function ()
{
var T126T37ret;
T126T37ret=userfun_preloadImagesCheck(T126g2996);
return T126T37ret;
};
T126T37tmp=userfun_cpsWrap(T126e7);
PRELOADIMAGESTIMER=setInterval(T126T37tmp,50);
T126T37ret=PRELOADIMAGESTIMER;
return T126T37ret;
};
T126T37tmp=userfun_length(T126g2998);
T126T37ret=userfun_preloadImages0(T126e4,T126g2997,T126g2998,T126T37tmp,0);
return T126T37ret;
};
userfun_preloadImages=T126e2;
T126T37ret=userfun_preloadImages;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_preloadImages,T126g2995);
T126e1=userfun_symbol("MAKE-PRINTABLE-TAB",null);
T126g3003=T126e1;
T126e2=function (T126g3004)
{
var T126g3011;
var T126e4;
var T126T37tmp;
var T126e10;
var T126T37ret;
T126e4=function (T126g3005,T126g3006)
{
var T126g3007;
var T126g3008;
var T126g3009;
var T126g3010;
var T126T37ret;
T126g3007=new userfun_Element("div",null,null,document,null);
T126g3008=new userfun_Element("ul",null,null,document,null);
T126g3009=T126g3005.clone(true);
T126g3010=T126g3006.clone(true);
T126g3007.addClass("tab");
T126g3007.addClass("print");
T126g3008.addClass("tabmenu");
T126g3009.addClass("active");
T126g3008.add(T126g3009);
T126g3009.addClass("tab");
T126g3007.add(T126g3008);
T126g3007.add(T126g3010);
T126g3004.addAfter(T126g3007);
T126g3004=T126g3007;
T126T37ret=T126g3004;
return T126T37ret;
};
T126T37tmp=T126g3004.getElementsByClassName("tabitem");
T126e10=userfun_arrayList(T126T37tmp);
T126T37tmp=T126g3004.getElementsByClassName("tabcontent");
T126T37tmp=userfun_arrayList(T126T37tmp);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(T126e10,T126T37tmp);
T126T37ret=userfun_map(T126e4,T126T37tmp);
return T126T37ret;
};
userfun_makePrintableTab=T126e2;
T126T37ret=userfun_makePrintableTab;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_makePrintableTab,T126g3003);
T126e1=userfun_symbol("MAKE-PRINTABLE-TABS",null);
T126g3013=T126e1;
T126e2=function ()
{
var T126T37ret;
T126T37ret=userfun_mapElementsByClassName(userfun_makePrintableTab,document,"tab");
return T126T37ret;
};
userfun_makePrintableTabs=T126e2;
T126T37ret=userfun_makePrintableTabs;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_makePrintableTabs,T126g3013);
T126T37ret=userfun_makePrintableTabs();
T126T37ret=null;
T126e1=userfun_symbol("MAKE-IFRAME-WITH-URL",null);
T126g3017=T126e1;
T126e3=function (T126g3021)
{
var T126e4;
var T126T37ret;
var T126e12;
T126e4=function (T126g3022,T126g3023,T126g3024,T126g3025)
{
var T126g3038;
var T126g3026;
var T126e7;
var T126T37ret;
T126g3026=userfun_makeIframe(T126g3024,T126g3025);
T126e7=function ()
{
var T126g3027;
var T126g3028;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3026.onload=null;
userfun_iframeExtend(T126g3026);
T126g3027=T126g3022;
T126g3028=T126g3027.treExp;
if(!T126g3028&&T126g3028!==0&&T126g3028!==''){_I_=1587;continue;}
T126T37tmp=new userfun_T37cons(T126g3026,null);
T126T37tmp=userfun_list(T126T37tmp);
T126T37ret=T126g3028.apply(null,[T126T37tmp]);
_I_=1586;continue;
case 1587:
T126T37ret=T126g3027(T126g3026);
case 1586:
return T126T37ret;
}}};
T126g3026.onload=T126e7;
T126T37ret=T126g3026.writeAttribute("src",T126g3023);
return T126T37ret;
};
T126g3021=T126e4;
T126T37ret=T126g3021;
T126e12=function (T126g3030)
{
var T126g3040;
var T126g3034;
var T126g3035;
var T126e13;
var T126g3031;
var T126g3032;
var T126g3033;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3034=T126g4446;
T126g3035=null;
T126e13=function ()
{
var T126g3037;
var T126g3036;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 1583:
T126g3037=true;
T126g3036=(T126g3030==null?null:T126g3030._);
T126T37tmp=T126g3036;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1589;continue;}
T126g3037=null;
case 1589:
if(!T126g3037&&T126g3037!==0&&T126g3037!==''){_I_=1592;continue;}
T126T37ret=null;
_I_=1584;continue;
case 1592:
T126T37ret=(T126g3036===T126g4447);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1583;continue;}
T126g3030=(T126g3030==null?null:T126g3030.__);
T126g3034=(T126g3030==null?null:T126g3030._);
T126g3030=(T126g3030==null?null:T126g3030.__);
_I_=1583;continue;
case 1584:
return T126T37ret;
}}};
T126g3035=T126e13;
;
T126g3035();
T126g3031=(T126g3030==null?null:T126g3030._);
T126g3030=(T126g3030==null?null:T126g3030.__);
T126g3035();
T126g3032=(T126g3030==null?null:T126g3030._);
T126g3030=(T126g3030==null?null:T126g3030.__);
T126g3035();
T126g3033=(T126g3030==null?null:T126g3030._);
T126g3030=(T126g3030==null?null:T126g3030.__);
T126g3035();
T126T37ret=(T126g3034===T126g4446);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1595;continue;}
T126g3034=null;
case 1595:
T126T37ret=T126g3021(T126g3031,T126g3032,T126g3033,T126g3034);
return T126T37ret;
}}};
T126g3021.treExp=T126e12;
T126T37ret=T126g3021;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_makeIframeWithUrl=T126e2;
T126T37ret=userfun_makeIframeWithUrl;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_makeIframeWithUrl,T126g3017);
T126e1=userfun_symbol("INIT-INTRO-0",null);
T126g3042=T126e1;
T126e3=function (T126g3046)
{
var T126e4;
var T126T37ret;
var T126e20;
T126e4=function (T126g3047,T126g3048,T126g3049,T126g3050)
{
var T126g3065;
var T126T37tmp;
var T126g3051;
var T126T37ret;
var T126g3052;
var T126e11;
var T126e12;
var T126g3055;
var T126e16;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=(T126g3049==null?null:T126g3049._);
T126g3051=userfun_domGetFirstByClassName(T126g3047,T126T37tmp);
T126T37ret=T126g3051;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1605;continue;}
T126T37tmp=(T126g3049==null?null:T126g3049.__);
T126g3052=(T126T37tmp==null?null:T126T37tmp._);
T126e11=function (T126g3053)
{
var T126T37ret;
T126g3051.addClass("hovered");
T126T37ret=T126g3048.addClass(T126g3052);
return T126T37ret;
};
T126T37ret=userfun_caroshiAddEventListener("mouseover",T126e11,T126g3051);
T126e12=function (T126g3054)
{
var T126T37ret;
T126g3051.removeClass("hovered");
T126T37ret=T126g3048.removeClass(T126g3052);
return T126T37ret;
};
userfun_caroshiAddEventListener("mouseout",T126e12,T126g3051);
T126g3055=true;
if(!T126g3050&&T126g3050!==0&&T126g3050!==''){_I_=1601;continue;}
T126g3055=null;
case 1601:
T126T37ret=T126g3055;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1605;continue;}
T126e16=function (T126g3056)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=(T126g3049==null?null:T126g3049.__);
T126T37tmp=(T126T37tmp==null?null:T126T37tmp.__);
window.location=(T126T37tmp==null?null:T126T37tmp._);
T126T37ret=window.location;
return T126T37ret;
};
T126T37ret=userfun_caroshiAddEventListener("click",T126e16,T126g3051);
case 1605:
return T126T37ret;
}}};
T126g3046=T126e4;
T126T37ret=T126g3046;
T126e20=function (T126g3057)
{
var T126g3069;
var T126g3061;
var T126g3062;
var T126e21;
var T126g3058;
var T126g3059;
var T126g3060;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3061=T126g4456;
T126g3062=null;
T126e21=function ()
{
var T126g3064;
var T126g3063;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 1598:
T126g3064=true;
T126g3063=(T126g3057==null?null:T126g3057._);
T126T37tmp=T126g3063;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1607;continue;}
T126g3064=null;
case 1607:
if(!T126g3064&&T126g3064!==0&&T126g3064!==''){_I_=1610;continue;}
T126T37ret=null;
_I_=1599;continue;
case 1610:
T126T37ret=(T126g3063===T126g4457);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1598;continue;}
T126g3057=(T126g3057==null?null:T126g3057.__);
T126g3061=(T126g3057==null?null:T126g3057._);
T126g3057=(T126g3057==null?null:T126g3057.__);
_I_=1598;continue;
case 1599:
return T126T37ret;
}}};
T126g3062=T126e21;
;
T126g3062();
T126g3058=(T126g3057==null?null:T126g3057._);
T126g3057=(T126g3057==null?null:T126g3057.__);
T126g3062();
T126g3059=(T126g3057==null?null:T126g3057._);
T126g3057=(T126g3057==null?null:T126g3057.__);
T126g3062();
T126g3060=(T126g3057==null?null:T126g3057._);
T126g3057=(T126g3057==null?null:T126g3057.__);
T126g3062();
T126T37ret=(T126g3061===T126g4456);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1613;continue;}
T126g3061=null;
case 1613:
T126T37ret=T126g3046(T126g3058,T126g3059,T126g3060,T126g3061);
return T126T37ret;
}}};
T126g3046.treExp=T126e20;
T126T37ret=T126g3046;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_initIntro0=T126e2;
T126T37ret=userfun_initIntro0;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_initIntro0,T126g3042);
T126e1=userfun_symbol("INIT-INTRO",null);
T126g3071=T126e1;
T126e3=function (T126g3075)
{
var T126e4;
var T126T37ret;
var T126e22;
T126e4=function (T126g3076,T126g3077)
{
var T126g3086;
var T126g3078;
var T126T37ret;
var T126e8;
var T126T37tmp;
var T126e11;
var T126e15;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3078=userfun_domGetFirstByClassName(T126g3076,"home_header");
T126T37ret=T126g3078;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1619;continue;}
T126e8=function (T126g3079)
{
var T126T37ret;
T126T37ret=userfun_initIntro0(T126g3076,T126g3078,T126g3079,T126g3077);
return T126T37ret;
};
T126T37tmp=new userfun_T37cons("/business-areas/nanopet-experts/",null);
T126T37tmp=new userfun_T37cons("expertsheader",T126T37tmp);
T126e11=new userfun_T37cons("experts",T126T37tmp);
T126T37tmp=new userfun_T37cons("/business-areas/viscover-imaging-agents/",null);
T126T37tmp=new userfun_T37cons("agentsheader",T126T37tmp);
T126e15=new userfun_T37cons("agents",T126T37tmp);
T126T37tmp=new userfun_T37cons("/business-areas/nanopet-tracers/",null);
T126T37tmp=new userfun_T37cons("tracersheader",T126T37tmp);
T126T37tmp=new userfun_T37cons("tracers",T126T37tmp);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(T126e15,T126T37tmp);
T126T37tmp=new userfun_T37cons(T126e11,T126T37tmp);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37ret=userfun_map(T126e8,T126T37tmp);
case 1619:
return T126T37ret;
}}};
T126g3075=T126e4;
T126T37ret=T126g3075;
T126e22=function (T126g3080)
{
var T126g3088;
var T126g3082;
var T126g3083;
var T126e23;
var T126g3081;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3082=T126g4456;
T126g3083=null;
T126e23=function ()
{
var T126g3085;
var T126g3084;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 1616:
T126g3085=true;
T126g3084=(T126g3080==null?null:T126g3080._);
T126T37tmp=T126g3084;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1621;continue;}
T126g3085=null;
case 1621:
if(!T126g3085&&T126g3085!==0&&T126g3085!==''){_I_=1624;continue;}
T126T37ret=null;
_I_=1617;continue;
case 1624:
T126T37ret=(T126g3084===T126g4457);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1616;continue;}
T126g3080=(T126g3080==null?null:T126g3080.__);
T126g3082=(T126g3080==null?null:T126g3080._);
T126g3080=(T126g3080==null?null:T126g3080.__);
_I_=1616;continue;
case 1617:
return T126T37ret;
}}};
T126g3083=T126e23;
;
T126g3083();
T126g3081=(T126g3080==null?null:T126g3080._);
T126g3080=(T126g3080==null?null:T126g3080.__);
T126g3083();
T126T37ret=(T126g3082===T126g4456);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1627;continue;}
T126g3082=null;
case 1627:
T126T37ret=T126g3075(T126g3081,T126g3082);
return T126T37ret;
}}};
T126g3075.treExp=T126e22;
T126T37ret=T126g3075;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_initIntro=T126e2;
T126T37ret=userfun_initIntro;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_initIntro,T126g3071);
T126e1=userfun_symbol("MAKE-PRINTABLE-SLIDERS",null);
T126g3093=T126e1;
T126e2=function ()
{
var T126T37tmp;
var T126g3094;
var T126g3095;
var T126g3096;
var T126g3098;
var T126g3097;
var T126g3099;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=document.getElementsByClassName("persongroup");
T126g3094=userfun_arrayList(T126T37tmp);
T126T37tmp=userfun_last(T126g3094);
T126g3095=(T126T37tmp==null?null:T126T37tmp._);
T126g3096=T126g3094;
case 1630:
T126g3098=true;
if(!T126g3096&&T126g3096!==0&&T126g3096!==''){_I_=1633;continue;}
T126g3098=null;
case 1633:
if(!T126g3098&&T126g3098!==0&&T126g3098!==''){_I_=1636;continue;}
_I_=1629;continue;
case 1636:
T126g3097=(T126g3096==null?null:T126g3096._);
T126g3099=T126g3097.clone(true);
T126g3099.addClass("print");
T126g3099.addClass("active");
T126g3097.addClass("screen");
T126g3095.addAfter(T126g3099);
T126g3095=T126g3099;
T126g3096=(T126g3096==null?null:T126g3096.__);
_I_=1630;continue;
case 1629:
T126T37ret=null;
return T126T37ret;
}}};
userfun_makePrintableSliders=T126e2;
T126T37ret=userfun_makePrintableSliders;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_makePrintableSliders,T126g3093);
T126T37ret=userfun_makePrintableSliders();
T126e1=userfun_symbol("TAB-DISPLAY-ITEM",null);
T126g3103=T126e1;
T126e2=function (T126g3104)
{
var T126T37tmp;
var T126g3105;
var T126g3107;
var T126g3106;
var T126e15;
var T126e14;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=userfun_getTabcontents(T126g3104);
T126T37tmp=userfun_arrayList(T126T37tmp);
userfun_hideElements(T126T37tmp);
T126T37tmp=userfun_getTabitems(T126g3104);
T126g3105=userfun_arrayList(T126T37tmp);
case 1638:
T126g3107=true;
if(!T126g3105&&T126g3105!==0&&T126g3105!==''){_I_=1641;continue;}
T126g3107=null;
case 1641:
if(!T126g3107&&T126g3107!==0&&T126g3107!==''){_I_=1644;continue;}
_I_=1637;continue;
case 1644:
T126g3106=(T126g3105==null?null:T126g3105._);
T126g3106.removeClass("active");
T126g3105=(T126g3105==null?null:T126g3105.__);
_I_=1638;continue;
case 1637:
T126e15=userfun_getTabcontents(T126g3104);
T126T37tmp=userfun_getTabitemPosition(T126g3104);
T126e14=T126e15[T126T37tmp];
T126e14.show();
T126T37ret=T126g3104.addClass("active");
return T126T37ret;
}}};
userfun_tabDisplayItem=T126e2;
T126T37ret=userfun_tabDisplayItem;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_tabDisplayItem,T126g3103);
T126T37ret=null;
T126e1=userfun_symbol("INIT-TAB-DISPLAY-0",null);
T126g3108=T126e1;
T126e2=function (T126g3109)
{
var T126g3111;
var T126e4;
var T126T37ret;
T126e4=function (T126g3110)
{
var T126T37ret;
T126T37ret=userfun_tabDisplayItem(T126g3109);
return T126T37ret;
};
T126T37ret=userfun_caroshiAddEventListener("click",T126e4,T126g3109);
return T126T37ret;
};
userfun_initTabDisplay0=T126e2;
T126T37ret=userfun_initTabDisplay0;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_initTabDisplay0,T126g3108);
T126e1=userfun_symbol("INIT-TAB-DISPLAY",null);
T126g3113=T126e1;
T126e2=function (T126g3114)
{
var T126g3115;
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3115=userfun_domGetFirstByClassName(T126g3114,"tab");
T126T37ret=T126g3115;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1647;continue;}
T126g3115.addClass("screen");
T126T37tmp=userfun_getTabitems(T126g3115);
T126T37tmp=userfun_arrayList(T126T37tmp);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
userfun_map(userfun_initTabDisplay0,T126T37tmp);
T126T37tmp=userfun_domGetFirstByClassName(T126g3115,"tabitem");
T126T37ret=userfun_tabDisplayItem(T126T37tmp);
case 1647:
return T126T37ret;
}}};
userfun_initTabDisplay=T126e2;
T126T37ret=userfun_initTabDisplay;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_initTabDisplay,T126g3113);
T126e1=userfun_symbol("COPY-IFRAME-TO-DOCUMENT",null);
T126g3116=T126e1;
T126e3=function (T126g3120)
{
var T126e4;
var T126T37ret;
var T126e8;
T126e4=function (T126g3121,T126g3122,T126g3123)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_iframeDocument(T126g3121);
userfun_documentExtend(T126T37tmp);
T126T37tmp=userfun_iframeDocument(T126g3121);
userfun_copyHeadAndBody(T126T37tmp,T126g3122,T126g3123);
T126T37ret=userfun_documentExtend(T126g3122);
return T126T37ret;
};
T126g3120=T126e4;
T126T37ret=T126g3120;
T126e8=function (T126g3125)
{
var T126g3132;
var T126g3128;
var T126g3129;
var T126e9;
var T126g3126;
var T126g3127;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3128=T126g4451;
T126g3129=null;
T126e9=function ()
{
var T126g3131;
var T126g3130;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 1650:
T126g3131=true;
T126g3130=(T126g3125==null?null:T126g3125._);
T126T37tmp=T126g3130;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1653;continue;}
T126g3131=null;
case 1653:
if(!T126g3131&&T126g3131!==0&&T126g3131!==''){_I_=1656;continue;}
T126T37ret=null;
_I_=1651;continue;
case 1656:
T126T37ret=(T126g3130===T126g4452);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1650;continue;}
T126g3125=(T126g3125==null?null:T126g3125.__);
T126g3128=(T126g3125==null?null:T126g3125._);
T126g3125=(T126g3125==null?null:T126g3125.__);
_I_=1650;continue;
case 1651:
return T126T37ret;
}}};
T126g3129=T126e9;
;
T126g3129();
T126g3126=(T126g3125==null?null:T126g3125._);
T126g3125=(T126g3125==null?null:T126g3125.__);
T126g3129();
T126g3127=(T126g3125==null?null:T126g3125._);
T126g3125=(T126g3125==null?null:T126g3125.__);
T126g3129();
T126T37ret=(T126g3128===T126g4451);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1659;continue;}
T126g3128=true;
case 1659:
T126T37ret=T126g3120(T126g3126,T126g3127,T126g3128);
return T126T37ret;
}}};
T126g3120.treExp=T126e8;
T126T37ret=T126g3120;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_copyIframeToDocument=T126e2;
T126T37ret=userfun_copyIframeToDocument;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_copyIframeToDocument,T126g3116);
T126e1=function (T126g3134)
{
var T126g3136;
var T126e2;
var T126e4;
var T126T37tmp;
var T126T37ret;
T126e2=function ()
{
var T126T37ret;
T126T37ret=null;
return T126T37ret;
};
T126e4=function (T126g3135)
{
var T126e6;
var T126T37tmp;
var T126T37ret;
T126e6=(T126g3134+"/_local-template/"+T126g3135);
T126T37tmp=(T126g3134+"/_template/"+T126g3135);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(T126e6,T126T37tmp);
T126T37ret=userfun_list(T126T37tmp);
return T126T37ret;
};
T126T37tmp=new userfun_T37cons("s5_ul_arrow.png",null);
T126T37tmp=new userfun_T37cons("s5_logo.png",T126T37tmp);
T126T37tmp=new userfun_T37cons("s5_fd_orange_tl.png",T126T37tmp);
T126T37tmp=new userfun_T37cons("s5_fd_grey_tl.png",T126T37tmp);
T126T37tmp=new userfun_T37cons("s5_fd_blue_tl.png",T126T37tmp);
T126T37tmp=new userfun_T37cons("header_viscover.jpg",T126T37tmp);
T126T37tmp=new userfun_T37cons("header_PET.jpg",T126T37tmp);
T126T37tmp=new userfun_T37cons("header_experts.jpg",T126T37tmp);
T126T37tmp=new userfun_T37cons("bg_topnavi_active.jpg",T126T37tmp);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=userfun_mapcan(T126e4,T126T37tmp);
T126T37ret=userfun_preloadImages(T126e2,null,T126T37tmp);
return T126T37ret;
};
T126e19=userfun_documentLocation(document);
T126T37ret=T126e1(T126e19);
T126T37ret=userfun_initIntro(document,null);
OPENSLIDER=null;
T126T37ret=OPENSLIDER;
SLIDEROPACITYSTEP=0.1;
T126T37ret=SLIDEROPACITYSTEP;
SLIDERHEIGHTSTEP=20;
T126T37ret=SLIDERHEIGHTSTEP;
SLIDERINTERVAL=25;
T126T37ret=SLIDERINTERVAL;
T126e1=userfun_symbol("SLIDE",null);
T126g3141=T126e1;
T126e3=function (T126g3145)
{
var T126e4;
var T126T37ret;
var T126e38;
T126e4=function (T126g3146,T126g3147,T126g3148,T126g3149,T126g3150,T126g3151,T126g3152)
{
var T126g3175;
var T126g3153;
var T126g3154;
var T126g3155;
var T126g3156;
var T126g3157;
var T126T37tmp;
var T126g3158;
var T126g3159;
var T126T37ret;
var T126g3160;
var T126g3163;
var T126g3161;
var T126g3162;
var T126e37;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3153=userfun_T60(T126g3149,T126g3148);
T126g3154=(0<T126g3151);
T126g3155=(1<=T126g3150);
T126g3156=(T126g3152<=0);
T126g3157=true;
if(!T126g3155&&T126g3155!==0&&T126g3155!==''){_I_=1665;continue;}
T126g3157=null;
case 1665:
if(!T126g3157&&T126g3157!==0&&T126g3157!==''){_I_=1667;continue;}
T126g3150=userfun_saturate(T126g3150,SLIDEROPACITYSTEP,1);
T126T37tmp=T126g3150;
T126g3146.setOpacity(T126T37tmp);
case 1667:
T126g3158=true;
if(!T126g3156&&T126g3156!==0&&T126g3156!==''){_I_=1669;continue;}
T126g3158=null;
case 1669:
if(!T126g3158&&T126g3158!==0&&T126g3158!==''){_I_=1671;continue;}
T126g3152=userfun_desaturate(T126g3152,SLIDEROPACITYSTEP,0);
T126T37tmp=T126g3152;
T126g3147.setOpacity(T126T37tmp);
case 1671:
if(!T126g3153&&T126g3153!==0&&T126g3153!==''){_I_=1673;continue;}
T126g3149=userfun_saturate(T126g3149,SLIDERHEIGHTSTEP,T126g3148);
T126T37tmp=T126g3149;
T126g3146.setHeight(T126T37tmp);
T126g3146.show();
case 1673:
if(!T126g3154&&T126g3154!==0&&T126g3154!==''){_I_=1675;continue;}
T126g3151=userfun_desaturate(T126g3151,SLIDERHEIGHTSTEP,0);
T126T37tmp=T126g3151;
T126g3147.setHeight(T126T37tmp);
case 1675:
T126g3159=T126g3153;
if(!T126g3159&&T126g3159!==0&&T126g3159!==''){_I_=1688;continue;}
T126T37ret=T126g3159;
_I_=1687;continue;
case 1688:
T126g3160=T126g3154;
if(!T126g3160&&T126g3160!==0&&T126g3160!==''){_I_=1685;continue;}
T126T37ret=T126g3160;
_I_=1687;continue;
case 1685:
T126g3163=true;
if(!T126g3155&&T126g3155!==0&&T126g3155!==''){_I_=1682;continue;}
T126g3163=null;
case 1682:
T126g3161=T126g3163;
if(!T126g3161&&T126g3161!==0&&T126g3161!==''){_I_=1680;continue;}
T126T37ret=T126g3161;
_I_=1687;continue;
case 1680:
T126g3162=true;
if(!T126g3156&&T126g3156!==0&&T126g3156!==''){_I_=1677;continue;}
T126g3162=null;
case 1677:
T126T37ret=T126g3162;
case 1687:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1690;continue;}
T126e37=function ()
{
var T126T37ret;
T126T37ret=userfun_slide(T126g3146,T126g3147,T126g3148,T126g3149,T126g3150,T126g3151,T126g3152);
return T126T37ret;
};
T126T37ret=userfun_wait(T126e37,SLIDERINTERVAL);
case 1690:
return T126T37ret;
}}};
T126g3145=T126e4;
T126T37ret=T126g3145;
T126e38=function (T126g3164)
{
var T126g3177;
var T126g3167;
var T126g3168;
var T126g3169;
var T126g3170;
var T126g3171;
var T126g3172;
var T126e39;
var T126g3165;
var T126g3166;
var T126T37ret;
T126g3167=T126g4461;
T126g3168=T126g4462;
T126g3169=T126g4463;
T126g3170=T126g4464;
T126g3171=T126g4465;
T126g3172=null;
T126e39=function ()
{
var T126g3174;
var T126g3173;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 1662:
T126g3174=true;
T126g3173=(T126g3164==null?null:T126g3164._);
T126T37tmp=T126g3173;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1692;continue;}
T126g3174=null;
case 1692:
if(!T126g3174&&T126g3174!==0&&T126g3174!==''){_I_=1695;continue;}
T126T37ret=null;
_I_=1663;continue;
case 1695:
T126T37ret=(T126g3173===T126g4466);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1697;continue;}
T126g3164=(T126g3164==null?null:T126g3164.__);
T126g3167=(T126g3164==null?null:T126g3164._);
T126g3164=(T126g3164==null?null:T126g3164.__);
_I_=1662;continue;
case 1697:
T126T37ret=(T126g3173===T126g4467);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1698;continue;}
T126g3164=(T126g3164==null?null:T126g3164.__);
T126g3168=(T126g3164==null?null:T126g3164._);
T126g3164=(T126g3164==null?null:T126g3164.__);
_I_=1662;continue;
case 1698:
T126T37ret=(T126g3173===T126g4468);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1699;continue;}
T126g3164=(T126g3164==null?null:T126g3164.__);
T126g3169=(T126g3164==null?null:T126g3164._);
T126g3164=(T126g3164==null?null:T126g3164.__);
_I_=1662;continue;
case 1699:
T126T37ret=(T126g3173===T126g4469);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1700;continue;}
T126g3164=(T126g3164==null?null:T126g3164.__);
T126g3170=(T126g3164==null?null:T126g3164._);
T126g3164=(T126g3164==null?null:T126g3164.__);
_I_=1662;continue;
case 1700:
T126T37ret=(T126g3173===T126g4470);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1662;continue;}
T126g3164=(T126g3164==null?null:T126g3164.__);
T126g3171=(T126g3164==null?null:T126g3164._);
T126g3164=(T126g3164==null?null:T126g3164.__);
_I_=1662;continue;
case 1663:
return T126T37ret;
}}};
T126g3172=T126e39;
;
T126g3172();
T126g3165=(T126g3164==null?null:T126g3164._);
T126g3164=(T126g3164==null?null:T126g3164.__);
T126g3172();
T126g3166=(T126g3164==null?null:T126g3164._);
T126g3164=(T126g3164==null?null:T126g3164.__);
T126g3172();
T126T37ret=T126g3145(T126g3165,T126g3166,T126g3167,T126g3168,T126g3169,T126g3170,T126g3171);
return T126T37ret;
};
T126g3145.treExp=T126e38;
T126T37ret=T126g3145;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_slide=T126e2;
T126T37ret=userfun_slide;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_slide,T126g3141);
T126e1=userfun_symbol("PERSONGROUP",null);
T126g3179=T126e1;
T126e2=function (T126g3180)
{
var T126T37ret;
T126T37ret=userfun_domGetFirstByClassName(T126g3180,"persongroup");
return T126T37ret;
};
userfun_persongroup=T126e2;
T126T37ret=userfun_persongroup;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_persongroup,T126g3179);
T126e1=userfun_symbol("PERSONGROUPCONTENT",null);
T126g3181=T126e1;
T126e2=function (T126g3182)
{
var T126T37ret;
T126T37ret=userfun_domGetFirstByClassName(T126g3182,"persongroupcontent");
return T126T37ret;
};
userfun_persongroupcontent=T126e2;
T126T37ret=userfun_persongroupcontent;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_persongroupcontent,T126g3181);
T126e1=userfun_symbol("PERSONGROUPTITLE",null);
T126g3183=T126e1;
T126e2=function (T126g3184)
{
var T126T37ret;
T126T37ret=userfun_domGetFirstByClassName(T126g3184,"persongrouptitle");
return T126T37ret;
};
userfun_persongrouptitle=T126e2;
T126T37ret=userfun_persongrouptitle;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_persongrouptitle,T126g3183);
T126T37ret=null;
T126e1=userfun_symbol("INIT-SLIDER-0",null);
T126g3185=T126e1;
T126e2=function (T126g3186)
{
var T126g3193;
var T126g3187;
var T126g3188;
var T126e6;
var T126T37tmp;
var T126g3192;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3187=userfun_persongroupcontent(T126g3186);
T126g3188=T126g3187.getHeight();
T126e6=function (T126g3189)
{
var T126g3190;
var T126g3191;
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3190=userfun_persongroupcontent(OPENSLIDER);
T126g3191=true;
T126T37ret=(T126g3187===T126g3190);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1716;continue;}
T126g3191=null;
case 1716:
T126T37ret=T126g3191;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1718;continue;}
T126g3186.addClass("active");
T126T37tmp=T126g3190.getHeight();
userfun_slide(T126g3187,T126g3190,T126g3188,0,0,T126T37tmp,1);
OPENSLIDER.removeClass("active");
OPENSLIDER=T126g3186;
T126T37ret=OPENSLIDER;
case 1718:
return T126T37ret;
}}};
T126T37tmp=userfun_persongrouptitle(T126g3186);
userfun_caroshiAddEventListener("click",T126e6,T126T37tmp);
T126g3192=true;
T126T37ret=T126g3186.hasClassT63("active");
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1720;continue;}
T126g3192=null;
case 1720:
T126T37ret=T126g3192;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1722;continue;}
T126T37ret=T126g3187.setHeight(0);
case 1722:
return T126T37ret;
}}};
userfun_initSlider0=T126e2;
T126T37ret=userfun_initSlider0;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_initSlider0,T126g3185);
T126e1=userfun_symbol("OPEN-INITIAL-SLIDER",null);
T126g3195=T126e1;
T126e2=function (T126g3196)
{
var T126g3197;
var T126T37tmp;
var T126T37ret;
T126g3197=userfun_persongroupcontent(T126g3196);
T126T37tmp=T126g3197.getHeight();
T126g3197.setHeight(T126T37tmp);
T126g3196.addClass("active");
OPENSLIDER=T126g3196;
T126T37ret=OPENSLIDER;
return T126T37ret;
};
userfun_openInitialSlider=T126e2;
T126T37ret=userfun_openInitialSlider;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_openInitialSlider,T126g3195);
T126e1=userfun_symbol("INIT-SLIDER",null);
T126g3199=T126e1;
T126e2=function ()
{
var T126g3204;
var T126g3200;
var T126T37ret;
var T126e8;
var T126T37tmp;
var T126g3201;
var T126g3202;
var T126e14;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3200=userfun_persongroup(document);
T126T37ret=T126g3200;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1729;continue;}
userfun_documentExtend(document);
T126e8=userfun_codeChar(35);
T126T37tmp=userfun_documentLocation(document);
T126T37tmp=userfun_split(T126e8,T126T37tmp,userfun_eql);
T126g3201=userfun_cadr(T126T37tmp);
T126T37ret=T126g3201;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1727;continue;}
T126g3202=document.getElementsByClassName("persongroup");
T126e14=function (T126g3203)
{
var T126T37tmp;
var T126T37ret;
T126T37tmp=userfun_persongrouptitle(T126g3203.textContent);
T126T37ret=userfun_startsWithT63(T126T37tmp,T126g3201,null);
return T126T37ret;
};
T126T37tmp=userfun_positionIf(T126e14,T126g3202,null,null,null);
T126T37ret=T126g3202[T126T37tmp];
_I_=1726;continue;
case 1727:
T126T37ret=T126g3200;
case 1726:
T126T37tmp=T126T37ret;
userfun_openInitialSlider(T126T37tmp);
T126T37ret=userfun_mapElementsByClassName(userfun_initSlider0,document,"persongroup");
case 1729:
return T126T37ret;
}}};
userfun_initSlider=T126e2;
T126T37ret=userfun_initSlider;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_initSlider,T126g3199);
T126T37ret=userfun_initSlider();
T126T37ret=userfun_initTabDisplay(document);
T126e1=userfun_symbol("MOVE-CHILDREN-TO",null);
T126g3212=T126e1;
T126e2=function (T126g3214,T126g3215,T126g3216,T126g3217)
{
var T126g3219;
var T126g3220;
var T126g3221;
var T126T37tmp;
var T126T37ret;
var T126g3218;
var T126g3223;
var T126g3224;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 1731:
T126g3219=true;
T126g3220=T126g3214;
T126g3221=T126g3220.treExp;
if(!T126g3221&&T126g3221!==0&&T126g3221!==''){_I_=1735;continue;}
T126T37tmp=new userfun_T37cons(T126g3217,null);
T126T37tmp=userfun_list(T126T37tmp);
T126T37ret=T126g3221.apply(null,[T126T37tmp]);
_I_=1734;continue;
case 1735:
T126T37ret=T126g3220(T126g3217);
case 1734:
T126g3218=T126T37ret;
if(!T126g3218&&T126g3218!==0&&T126g3218!==''){_I_=1737;continue;}
T126g3219=null;
case 1737:
if(!T126g3219&&T126g3219!==0&&T126g3219!==''){_I_=1740;continue;}
T126T37ret=T126g3216;
_I_=1732;continue;
case 1740:
userfun_visibleNodeRemoveWithoutListenersOrCallbacks(T126g3218);
T126g3223=T126g3215;
T126g3224=T126g3223.treExp;
if(!T126g3224&&T126g3224!==0&&T126g3224!==''){_I_=1742;continue;}
T126T37tmp=new userfun_T37cons(T126g3218,null);
T126T37tmp=new userfun_T37cons(T126g3216,T126T37tmp);
T126T37tmp=userfun_list(T126T37tmp);
T126g3224.apply(null,[T126T37tmp]);
_I_=1731;continue;
case 1742:
T126g3223(T126g3216,T126g3218);
_I_=1731;continue;
case 1732:
return T126T37ret;
}}};
userfun_moveChildrenTo=T126e2;
T126T37ret=userfun_moveChildrenTo;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_moveChildrenTo,T126g3212);
T126e1=userfun_symbol("MOVE-CHILDREN",null);
T126g3226=T126e1;
T126e3=function (T126g3229)
{
var T126e4;
var T126T37ret;
var T126e8;
T126e4=function (T126g3230,T126g3231)
{
var T126e6;
var T126e7;
var T126T37ret;
T126e6=function (T126g3232)
{
var T126T37ret;
T126T37ret=T126g3232.firstChild;
return T126T37ret;
};
T126e7=function (T126g3233,T126g3234)
{
var T126T37ret;
T126T37ret=T126g3233.appendChild(T126g3234);
return T126T37ret;
};
T126T37ret=userfun_moveChildrenTo(T126e6,T126e7,T126g3230,T126g3231);
return T126T37ret;
};
T126g3229=T126e4;
T126T37ret=T126g3229;
T126e8=function (T126g3235)
{
var T126g3236;
var T126g3237;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3236=(T126g3235==null?null:T126g3235._);
T126g3235=(T126g3235==null?null:T126g3235.__);
if(!T126g3235&&T126g3235!==0&&T126g3235!==''){_I_=1746;continue;}
T126g3237=(T126g3235==null?null:T126g3235._);
T126g3235=(T126g3235==null?null:T126g3235.__);
_I_=1745;continue;
case 1746:
T126g3237=null;
case 1745:
T126T37ret=T126g3229(T126g3236,T126g3237);
return T126T37ret;
}}};
T126g3229.treExp=T126e8;
T126T37ret=T126g3229;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_moveChildren=T126e2;
T126T37ret=userfun_moveChildren;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_moveChildren,T126g3226);
T126e1=userfun_symbol("MOVE-CHILDREN-BEHIND",null);
T126g3239=T126e1;
T126e3=function (T126g3242)
{
var T126e4;
var T126T37ret;
var T126e11;
T126e4=function (T126g3243,T126g3244)
{
var T126g3252;
var T126e6;
var T126e7;
var T126g3248;
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126e6=function (T126g3245)
{
var T126T37ret;
T126T37ret=T126g3245.firstChild;
return T126T37ret;
};
T126e7=function (T126g3246,T126g3247)
{
var T126T37ret;
T126T37ret=T126g3243.addAfter(T126g3247);
return T126T37ret;
};
T126g3248=T126g3244;
if(!T126g3248&&T126g3248!==0&&T126g3248!==''){_I_=1750;continue;}
T126T37ret=T126g3248;
_I_=1749;continue;
case 1750:
T126T37ret=T126g3243;
case 1749:
T126T37tmp=T126T37ret;
T126T37ret=userfun_moveChildrenTo(T126e6,T126e7,T126g3243,T126T37tmp);
return T126T37ret;
}}};
T126g3242=T126e4;
T126T37ret=T126g3242;
T126e11=function (T126g3249)
{
var T126g3250;
var T126g3251;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3250=(T126g3249==null?null:T126g3249._);
T126g3249=(T126g3249==null?null:T126g3249.__);
if(!T126g3249&&T126g3249!==0&&T126g3249!==''){_I_=1753;continue;}
T126g3251=(T126g3249==null?null:T126g3249._);
T126g3249=(T126g3249==null?null:T126g3249.__);
_I_=1752;continue;
case 1753:
T126g3251=null;
case 1752:
T126T37ret=T126g3242(T126g3250,T126g3251);
return T126T37ret;
}}};
T126g3242.treExp=T126e11;
T126T37ret=T126g3242;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_moveChildrenBehind=T126e2;
T126T37ret=userfun_moveChildrenBehind;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_moveChildrenBehind,T126g3239);
T126e1=userfun_symbol("MOVE-CHILDREN-TO-AND-REMOVE",null);
T126g3254=T126e1;
T126e2=function (T126g3255,T126g3256,T126g3257,T126g3258)
{
var T126T37ret;
userfun_moveChildrenTo(T126g3255,T126g3256,T126g3257,T126g3258);
T126T37ret=T126g3258.remove();
return T126T37ret;
};
userfun_moveChildrenToAndRemove=T126e2;
T126T37ret=userfun_moveChildrenToAndRemove;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_moveChildrenToAndRemove,T126g3254);
T126e1=userfun_symbol("MOVE-CHILDREN-AND-REMOVE",null);
T126g3260=T126e1;
T126e3=function (T126g3263)
{
var T126e4;
var T126T37ret;
var T126e9;
T126e4=function (T126g3264,T126g3265)
{
var T126g3266;
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3266=T126g3265;
if(!T126g3266&&T126g3266!==0&&T126g3266!==''){_I_=1758;continue;}
T126T37ret=T126g3266;
_I_=1757;continue;
case 1758:
T126T37ret=T126g3264;
case 1757:
T126T37tmp=T126T37ret;
userfun_moveChildren(T126g3264,T126T37tmp);
T126T37ret=T126g3265.remove();
return T126T37ret;
}}};
T126g3263=T126e4;
T126T37ret=T126g3263;
T126e9=function (T126g3267)
{
var T126g3268;
var T126g3269;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3268=(T126g3267==null?null:T126g3267._);
T126g3267=(T126g3267==null?null:T126g3267.__);
if(!T126g3267&&T126g3267!==0&&T126g3267!==''){_I_=1761;continue;}
T126g3269=(T126g3267==null?null:T126g3267._);
T126g3267=(T126g3267==null?null:T126g3267.__);
_I_=1760;continue;
case 1761:
T126g3269=null;
case 1760:
T126T37ret=T126g3263(T126g3268,T126g3269);
return T126T37ret;
}}};
T126g3263.treExp=T126e9;
T126T37ret=T126g3263;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_moveChildrenAndRemove=T126e2;
T126T37ret=userfun_moveChildrenAndRemove;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_moveChildrenAndRemove,T126g3260);
T126e1=userfun_symbol("MOVE-CHILDREN-TO-FRONT-AND-REMOVE",null);
T126g3271=T126e1;
T126e3=function (T126g3274)
{
var T126e4;
var T126T37ret;
var T126e11;
T126e4=function (T126g3275,T126g3276)
{
var T126e6;
var T126e7;
var T126g3280;
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126e6=function (T126g3277)
{
var T126T37ret;
T126T37ret=T126g3277.lastChild;
return T126T37ret;
};
T126e7=function (T126g3278,T126g3279)
{
var T126T37ret;
T126T37ret=T126g3278.addFront(T126g3279);
return T126T37ret;
};
T126g3280=T126g3276;
if(!T126g3280&&T126g3280!==0&&T126g3280!==''){_I_=1765;continue;}
T126T37ret=T126g3280;
_I_=1764;continue;
case 1765:
T126T37ret=T126g3275;
case 1764:
T126T37tmp=T126T37ret;
T126T37ret=userfun_moveChildrenToAndRemove(T126e6,T126e7,T126g3275,T126T37tmp);
return T126T37ret;
}}};
T126g3274=T126e4;
T126T37ret=T126g3274;
T126e11=function (T126g3281)
{
var T126g3282;
var T126g3283;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3282=(T126g3281==null?null:T126g3281._);
T126g3281=(T126g3281==null?null:T126g3281.__);
if(!T126g3281&&T126g3281!==0&&T126g3281!==''){_I_=1768;continue;}
T126g3283=(T126g3281==null?null:T126g3281._);
T126g3281=(T126g3281==null?null:T126g3281.__);
_I_=1767;continue;
case 1768:
T126g3283=null;
case 1767:
T126T37ret=T126g3274(T126g3282,T126g3283);
return T126T37ret;
}}};
T126g3274.treExp=T126e11;
T126T37ret=T126g3274;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_moveChildrenToFrontAndRemove=T126e2;
T126T37ret=userfun_moveChildrenToFrontAndRemove;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_moveChildrenToFrontAndRemove,T126g3271);
T126e1=userfun_symbol("MOVE-CHILDREN-BEFORE",null);
T126g3284=T126e1;
T126e3=function (T126g3288)
{
var T126e4;
var T126T37ret;
var T126e15;
T126e4=function (T126g3289,T126g3290)
{
var T126g3291;
var T126g3293;
var T126g3292;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3291=true;
if(!T126g3290&&T126g3290!==0&&T126g3290!==''){_I_=1773;continue;}
T126g3291=null;
case 1773:
if(!T126g3291&&T126g3291!==0&&T126g3291!==''){_I_=1770;continue;}
T126g3290=T126g3289;
case 1770:
T126g3293=true;
T126g3292=T126g3290.firstChild;
if(!T126g3292&&T126g3292!==0&&T126g3292!==''){_I_=1777;continue;}
T126g3293=null;
case 1777:
if(!T126g3293&&T126g3293!==0&&T126g3293!==''){_I_=1780;continue;}
T126T37ret=null;
_I_=1771;continue;
case 1780:
T126g3292.removeWithoutListeners();
T126g3289.addBefore(T126g3292);
_I_=1770;continue;
case 1771:
return T126T37ret;
}}};
T126g3288=T126e4;
T126T37ret=T126g3288;
T126e15=function (T126g3294)
{
var T126g3295;
var T126g3296;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3295=(T126g3294==null?null:T126g3294._);
T126g3294=(T126g3294==null?null:T126g3294.__);
if(!T126g3294&&T126g3294!==0&&T126g3294!==''){_I_=1782;continue;}
T126g3296=(T126g3294==null?null:T126g3294._);
T126g3294=(T126g3294==null?null:T126g3294.__);
_I_=1781;continue;
case 1782:
T126g3296=null;
case 1781:
T126T37ret=T126g3288(T126g3295,T126g3296);
return T126T37ret;
}}};
T126g3288.treExp=T126e15;
T126T37ret=T126g3288;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_moveChildrenBefore=T126e2;
T126T37ret=userfun_moveChildrenBefore;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_moveChildrenBefore,T126g3284);
T126e1=userfun_symbol("MOVE-CHILDREN-BEFORE-AND-REMOVE",null);
T126g3297=T126e1;
T126e3=function (T126g3300)
{
var T126e4;
var T126T37ret;
var T126e6;
T126e4=function (T126g3301,T126g3302)
{
var T126T37ret;
userfun_moveChildrenBefore(T126g3301,T126g3302);
T126T37ret=T126g3302.remove();
return T126T37ret;
};
T126g3300=T126e4;
T126T37ret=T126g3300;
T126e6=function (T126g3303)
{
var T126g3304;
var T126g3305;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3304=(T126g3303==null?null:T126g3303._);
T126g3303=(T126g3303==null?null:T126g3303.__);
if(!T126g3303&&T126g3303!==0&&T126g3303!==''){_I_=1786;continue;}
T126g3305=(T126g3303==null?null:T126g3303._);
T126g3303=(T126g3303==null?null:T126g3303.__);
_I_=1785;continue;
case 1786:
T126g3305=null;
case 1785:
T126T37ret=T126g3300(T126g3304,T126g3305);
return T126T37ret;
}}};
T126g3300.treExp=T126e6;
T126T37ret=T126g3300;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_moveChildrenBeforeAndRemove=T126e2;
T126T37ret=userfun_moveChildrenBeforeAndRemove;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_moveChildrenBeforeAndRemove,T126g3297);
T126e1=userfun_symbol("MAKE-MOBILE-DIV",null);
T126g3307=T126e1;
T126e3=function (T126g3311)
{
var T126e4;
var T126T37ret;
var T126e15;
T126e4=function (T126g3312,T126g3313,T126g3314,T126g3315,T126g3316)
{
var T126g3317;
var T126T37ret;
var T126e6;
var T126g3318;
var T126e10;
var T126e13;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3317=T126g3312;
T126T37ret=T126g3317;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1792;continue;}
T126T37ret={"class":T126g3317};
case 1792:
T126e6=T126T37ret;
T126g3318=T126g3316;
if(!T126g3318&&T126g3318!==0&&T126g3318!==''){_I_=1795;continue;}
T126T37ret=T126g3318;
_I_=1794;continue;
case 1795:
T126T37ret="absolute";
case 1794:
T126e10=T126T37ret;
T126e13=(T126g3313+"px");
T126T37tmp=(T126g3314+"px");
T126T37tmp={"position":T126e10,"top":T126e13,"left":T126T37tmp};
T126T37tmp=userfun_hashMerge(T126g3315,T126T37tmp);
T126T37ret=new userfun_Element("div",T126e6,T126T37tmp,document,null);
return T126T37ret;
}}};
T126g3311=T126e4;
T126T37ret=T126g3311;
T126e15=function (T126g3319)
{
var T126g3328;
var T126g3320;
var T126g3321;
var T126g3322;
var T126g3323;
var T126g3324;
var T126g3325;
var T126e16;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3320=T126g4473;
T126g3321=T126g4374;
T126g3322=T126g4404;
T126g3323=T126g4445;
T126g3324=T126g4474;
T126g3325=null;
T126e16=function ()
{
var T126g3327;
var T126g3326;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 1789:
T126g3327=true;
T126g3326=(T126g3319==null?null:T126g3319._);
T126T37tmp=T126g3326;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1797;continue;}
T126g3327=null;
case 1797:
if(!T126g3327&&T126g3327!==0&&T126g3327!==''){_I_=1800;continue;}
T126T37ret=null;
_I_=1790;continue;
case 1800:
T126T37ret=(T126g3326===T126g4475);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1802;continue;}
T126g3319=(T126g3319==null?null:T126g3319.__);
T126g3321=(T126g3319==null?null:T126g3319._);
T126g3319=(T126g3319==null?null:T126g3319.__);
_I_=1789;continue;
case 1802:
T126T37ret=(T126g3326===T126g4476);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1803;continue;}
T126g3319=(T126g3319==null?null:T126g3319.__);
T126g3322=(T126g3319==null?null:T126g3319._);
T126g3319=(T126g3319==null?null:T126g3319.__);
_I_=1789;continue;
case 1803:
T126T37ret=(T126g3326===T126g4477);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1804;continue;}
T126g3319=(T126g3319==null?null:T126g3319.__);
T126g3323=(T126g3319==null?null:T126g3319._);
T126g3319=(T126g3319==null?null:T126g3319.__);
_I_=1789;continue;
case 1804:
T126T37ret=(T126g3326===T126g4478);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1789;continue;}
T126g3319=(T126g3319==null?null:T126g3319.__);
T126g3324=(T126g3319==null?null:T126g3319._);
T126g3319=(T126g3319==null?null:T126g3319.__);
_I_=1789;continue;
case 1790:
return T126T37ret;
}}};
T126g3325=T126e16;
;
T126g3325();
if(!T126g3319&&T126g3319!==0&&T126g3319!==''){_I_=1806;continue;}
T126g3320=(T126g3319==null?null:T126g3319._);
T126g3319=(T126g3319==null?null:T126g3319.__);
case 1806:
T126g3325();
T126T37ret=(T126g3321===T126g4374);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1808;continue;}
T126g3321=0;
case 1808:
T126T37ret=(T126g3322===T126g4404);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1810;continue;}
T126g3322=0;
case 1810:
T126T37ret=(T126g3323===T126g4445);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1812;continue;}
T126g3323=null;
case 1812:
T126T37ret=(T126g3324===T126g4474);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1814;continue;}
T126g3324=null;
case 1814:
T126T37ret=T126g3311(T126g3320,T126g3321,T126g3322,T126g3323,T126g3324);
return T126T37ret;
}}};
T126g3311.treExp=T126e15;
T126T37ret=T126g3311;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_makeMobileDiv=T126e2;
T126T37ret=userfun_makeMobileDiv;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_makeMobileDiv,T126g3307);
T126e1=userfun_symbol("MAKE-MOBILE-CLONE",null);
T126g3330=T126e1;
T126e3=function (T126g3334)
{
var T126e4;
var T126T37ret;
var T126e10;
T126e4=function (T126g3335,T126g3336,T126g3337,T126g3338,T126g3339)
{
var T126g3340;
var T126g3341;
var T126T37tmp;
var T126T37ret;
T126g3340=userfun_getComputedStyleHash(T126g3336,window);
delete(T126g3340.width);
delete(T126g3340.height);
userfun_hashMerge(T126g3340,T126g3339);
T126g3341=userfun_makeMobileDiv(T126g3335,T126g3337,T126g3338,T126g3340,null);
T126T37tmp=T126g3336.clone(true);
T126T37tmp=T126g3341.add(T126T37tmp);
document.body.add(T126T37tmp);
T126T37ret=T126g3341;
return T126T37ret;
};
T126g3334=T126e4;
T126T37ret=T126g3334;
T126e10=function (T126g3342)
{
var T126g3351;
var T126g3345;
var T126g3346;
var T126g3347;
var T126g3348;
var T126e11;
var T126g3343;
var T126g3344;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3345=T126g4374;
T126g3346=T126g4404;
T126g3347=T126g4445;
T126g3348=null;
T126e11=function ()
{
var T126g3350;
var T126g3349;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 1817:
T126g3350=true;
T126g3349=(T126g3342==null?null:T126g3342._);
T126T37tmp=T126g3349;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1820;continue;}
T126g3350=null;
case 1820:
if(!T126g3350&&T126g3350!==0&&T126g3350!==''){_I_=1823;continue;}
T126T37ret=null;
_I_=1818;continue;
case 1823:
T126T37ret=(T126g3349===T126g4475);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1825;continue;}
T126g3342=(T126g3342==null?null:T126g3342.__);
T126g3345=(T126g3342==null?null:T126g3342._);
T126g3342=(T126g3342==null?null:T126g3342.__);
_I_=1817;continue;
case 1825:
T126T37ret=(T126g3349===T126g4476);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1826;continue;}
T126g3342=(T126g3342==null?null:T126g3342.__);
T126g3346=(T126g3342==null?null:T126g3342._);
T126g3342=(T126g3342==null?null:T126g3342.__);
_I_=1817;continue;
case 1826:
T126T37ret=(T126g3349===T126g4477);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1817;continue;}
T126g3342=(T126g3342==null?null:T126g3342.__);
T126g3347=(T126g3342==null?null:T126g3342._);
T126g3342=(T126g3342==null?null:T126g3342.__);
_I_=1817;continue;
case 1818:
return T126T37ret;
}}};
T126g3348=T126e11;
;
T126g3348();
T126g3343=(T126g3342==null?null:T126g3342._);
T126g3342=(T126g3342==null?null:T126g3342.__);
T126g3348();
T126g3344=(T126g3342==null?null:T126g3342._);
T126g3342=(T126g3342==null?null:T126g3342.__);
T126g3348();
T126T37ret=(T126g3345===T126g4374);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1828;continue;}
T126g3345=0;
case 1828:
T126T37ret=(T126g3346===T126g4404);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1830;continue;}
T126g3346=0;
case 1830:
T126T37ret=(T126g3347===T126g4445);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1832;continue;}
T126g3347=null;
case 1832:
T126T37ret=T126g3334(T126g3343,T126g3344,T126g3345,T126g3346,T126g3347);
return T126T37ret;
}}};
T126g3334.treExp=T126e10;
T126T37ret=T126g3334;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_makeMobileClone=T126e2;
T126T37ret=userfun_makeMobileClone;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_makeMobileClone,T126g3330);
T126e1=userfun_symbol("FADE-OUT",null);
T126g3356=T126e1;
T126e3=function (T126g3360)
{
var T126e4;
var T126T37ret;
var T126e25;
T126e4=function (T126g3361,T126g3362,T126g3363,T126g3364)
{
var T126g3379;
var T126g3365;
var T126g3366;
var T126e6;
var T126T37ret;
T126g3365=1;
T126g3366=null;
T126e6=function ()
{
var T126g3381;
var T126T37tmp;
var T126T37ret;
var T126g3368;
var T126g3369;
var T126e24;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37tmp=new userfun_T37cons(T126g3363,null);
T126T37tmp=new userfun_T37cons(T126g3365,T126T37tmp);
T126g3365=userfun_T45(T126T37tmp);
T126T37ret=(0<T126g3365);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1840;continue;}
T126T37ret=T126g3365;
_I_=1839;continue;
case 1840:
T126T37ret=0;
case 1839:
T126T37tmp=T126T37ret;
T126g3361.setOpacity(T126T37tmp);
T126T37ret=(T126g3365<0);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1851;continue;}
if(!T126g3364&&T126g3364!==0&&T126g3364!==''){_I_=1848;continue;}
T126g3368=T126g3364;
T126g3369=T126g3368.treExp;
if(!T126g3369&&T126g3369!==0&&T126g3369!==''){_I_=1843;continue;}
T126T37tmp=userfun_list(null);
T126T37ret=T126g3369.apply(null,[T126T37tmp]);
_I_=1850;continue;
case 1843:
T126T37ret=T126g3368();
_I_=1850;continue;
case 1848:
T126T37ret=T126g3361.parentNode;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1850;continue;}
T126T37ret=T126g3361.remove();
_I_=1850;continue;
case 1851:
T126e24=function ()
{
var T126T37ret;
T126T37ret=T126g3366();
return T126T37ret;
};
T126T37ret=userfun_wait(T126e24,T126g3362);
case 1850:
return T126T37ret;
}}};
T126g3366=T126e6;
;
T126T37ret=T126g3366();
return T126T37ret;
};
T126g3360=T126e4;
T126T37ret=T126g3360;
T126e25=function (T126g3371)
{
var T126g3383;
var T126g3373;
var T126g3374;
var T126g3375;
var T126g3376;
var T126e26;
var T126g3372;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3373=T126g4479;
T126g3374=T126g4480;
T126g3375=T126g4377;
T126g3376=null;
T126e26=function ()
{
var T126g3378;
var T126g3377;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
case 1836:
T126g3378=true;
T126g3377=(T126g3371==null?null:T126g3371._);
T126T37tmp=T126g3377;
T126T37ret=userfun_keywordT63(T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1853;continue;}
T126g3378=null;
case 1853:
if(!T126g3378&&T126g3378!==0&&T126g3378!==''){_I_=1856;continue;}
T126T37ret=null;
_I_=1837;continue;
case 1856:
T126T37ret=(T126g3377===T126g4481);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1858;continue;}
T126g3371=(T126g3371==null?null:T126g3371.__);
T126g3373=(T126g3371==null?null:T126g3371._);
T126g3371=(T126g3371==null?null:T126g3371.__);
_I_=1836;continue;
case 1858:
T126T37ret=(T126g3377===T126g4482);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1859;continue;}
T126g3371=(T126g3371==null?null:T126g3371.__);
T126g3374=(T126g3371==null?null:T126g3371._);
T126g3371=(T126g3371==null?null:T126g3371.__);
_I_=1836;continue;
case 1859:
T126T37ret=(T126g3377===T126g4483);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1836;continue;}
T126g3371=(T126g3371==null?null:T126g3371.__);
T126g3375=(T126g3371==null?null:T126g3371._);
T126g3371=(T126g3371==null?null:T126g3371.__);
_I_=1836;continue;
case 1837:
return T126T37ret;
}}};
T126g3376=T126e26;
;
T126g3376();
T126g3372=(T126g3371==null?null:T126g3371._);
T126g3371=(T126g3371==null?null:T126g3371.__);
T126g3376();
T126T37ret=(T126g3373===T126g4479);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1861;continue;}
T126g3373=25;
case 1861:
T126T37ret=(T126g3374===T126g4480);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1863;continue;}
T126g3374=0.1;
case 1863:
T126T37ret=(T126g3375===T126g4377);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1865;continue;}
T126g3375=null;
case 1865:
T126T37ret=T126g3360(T126g3372,T126g3373,T126g3374,T126g3375);
return T126T37ret;
}}};
T126g3360.treExp=T126e25;
T126T37ret=T126g3360;
return T126T37ret;
};
T126e2=T126e3(null);
userfun_fadeOut=T126e2;
T126T37ret=userfun_fadeOut;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_fadeOut,T126g3356);
T126T37ret=null;
T126e1=userfun_symbol("HISTORY-BACKSTEP-RELOAD-OPERA",null);
T126g3385=T126e1;
T126e2=function ()
{
var T126g3387;
var T126g3386;
var T126e4;
var T126T37ret;
T126g3386=window.location;
T126e4=function ()
{
var T126T37ret;
window.location=T126g3386;
T126T37ret=window.location;
return T126T37ret;
};
T126T37ret=window.setTimeout(T126e4,10);
return T126T37ret;
};
userfun_historyBackstepReloadOpera=T126e2;
T126T37ret=userfun_historyBackstepReloadOpera;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_historyBackstepReloadOpera,T126g3385);
T126e1=userfun_symbol("HISTORY-BACKSTEP-RELOAD",null);
T126g3392=T126e1;
T126e2=function ()
{
var T126g3399;
var T126g3393;
var T126T37ret;
var T126g3394;
var T126T37tmp;
var T126g3395;
var T126g3397;
var T126g3396;
var T126e15;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3393=true;
T126T37ret=BROWSER.ff;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1872;continue;}
T126g3393=null;
case 1872:
if(!T126g3393&&T126g3393!==0&&T126g3393!==''){_I_=1874;continue;}
userfun_historyBackstepReloadOpera();
case 1874:
T126g3394=window.location;
T126T37tmp=new userfun_T37cons("load",null);
T126T37tmp=new userfun_T37cons("focus",T126T37tmp);
T126g3395=userfun_list(T126T37tmp);
case 1869:
T126g3397=true;
if(!T126g3395&&T126g3395!==0&&T126g3395!==''){_I_=1876;continue;}
T126g3397=null;
case 1876:
if(!T126g3397&&T126g3397!==0&&T126g3397!==''){_I_=1879;continue;}
_I_=1868;continue;
case 1879:
T126g3396=(T126g3395==null?null:T126g3395._);
T126T37ret=T126g3396;
T126e15=function (T126g3398)
{
var T126T37ret;
window.location=T126g3394;
T126T37ret=window.location;
return T126T37ret;
};
userfun_caroshiAddEventListener(T126g3396,T126e15,document);
T126g3395=(T126g3395==null?null:T126g3395.__);
_I_=1869;continue;
case 1868:
T126T37ret=null;
return T126T37ret;
}}};
userfun_historyBackstepReload=T126e2;
T126T37ret=userfun_historyBackstepReload;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_historyBackstepReload,T126g3392);
POINTERSTYLESTACK=null;
T126T37ret=POINTERSTYLESTACK;
T126e1=userfun_symbol("POINTER-PUSH-STYLE",null);
T126g3401=T126e1;
T126e2=function (T126g3402)
{
var T126T37ret;
POINTERSTYLESTACK=new userfun_T37cons(document.body.style.cursor,POINTERSTYLESTACK);
document.body.style.cursor=T126g3402;
T126T37ret=document.body.style.cursor;
return T126T37ret;
};
userfun_pointerPushStyle=T126e2;
T126T37ret=userfun_pointerPushStyle;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_pointerPushStyle,T126g3401);
T126e1=userfun_symbol("POINTER-POP-STYLE",null);
T126g3403=T126e1;
T126e2=function ()
{
var T126g3404;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3404=true;
if(!POINTERSTYLESTACK&&POINTERSTYLESTACK!==0&&POINTERSTYLESTACK!==''){_I_=1882;continue;}
T126g3404=null;
case 1882:
if(!T126g3404&&T126g3404!==0&&T126g3404!==''){_I_=1884;continue;}
alert("pointer stack empty");
case 1884:
document.body.style.cursor=userfun_popT33(POINTERSTYLESTACK);
T126T37ret=document.body.style.cursor;
return T126T37ret;
}}};
userfun_pointerPopStyle=T126e2;
T126T37ret=userfun_pointerPopStyle;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_pointerPopStyle,T126g3403);
T126e1=userfun_symbol("POINTER-SET",null);
T126g3405=T126e1;
T126e2=function (T126g3406)
{
var T126g3407;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3407=true;
if(!POINTERSTYLESTACK&&POINTERSTYLESTACK!==0&&POINTERSTYLESTACK!==''){_I_=1887;continue;}
T126g3407=null;
case 1887:
T126T37ret=T126g3407;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1889;continue;}
document.body.style.cursor=T126g3406;
T126T37ret=document.body.style.cursor;
case 1889:
return T126T37ret;
}}};
userfun_pointerSet=T126e2;
T126T37ret=userfun_pointerSet;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_pointerSet,T126g3405);
T126e1=userfun_symbol("PAGEFADE-CLONE-BODY",null);
T126g3408=T126e1;
T126e2=function ()
{
var T126g3412;
var T126T37tmp;
var T126g3413;
var T126g3415;
var T126g3414;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3412=userfun_makeMobileDiv("cloned-body",0,0,null,null);
T126T37tmp=document.body.getWidth();
T126g3412.setWidth(T126T37tmp);
T126T37tmp=document.body.getHeight();
T126g3412.setHeight(T126T37tmp);
T126g3413=userfun_arrayList(document.body.childNodes);
case 1892:
T126g3415=true;
if(!T126g3413&&T126g3413!==0&&T126g3413!==''){_I_=1895;continue;}
T126g3415=null;
case 1895:
if(!T126g3415&&T126g3415!==0&&T126g3415!==''){_I_=1898;continue;}
_I_=1891;continue;
case 1898:
T126g3414=(T126g3413==null?null:T126g3413._);
T126T37tmp=T126g3414.cloneNode(true);
T126g3412.add(T126T37tmp);
T126g3413=(T126g3413==null?null:T126g3413.__);
_I_=1892;continue;
case 1891:
userfun_domTreeExtend(T126g3412);
userfun_documentBodyAdd(T126g3412);
T126T37ret=T126g3412;
return T126T37ret;
}}};
userfun_pagefadeCloneBody=T126e2;
T126T37ret=userfun_pagefadeCloneBody;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_pagefadeCloneBody,T126g3408);
T126e1=userfun_symbol("PAGEFADE-LOAD",null);
T126g3419=T126e1;
T126e2=function (T126g3420,T126g3421)
{
var T126g3426;
var T126e4;
var T126T37ret;
T126e4=function (T126g3422)
{
var T126g3423;
var T126g3424;
var T126T37tmp;
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3422.setClass("new-page");
T126g3423=T126g3420;
T126g3424=T126g3423.treExp;
if(!T126g3424&&T126g3424!==0&&T126g3424!==''){_I_=1901;continue;}
T126T37tmp=new userfun_T37cons(T126g3422,null);
T126T37tmp=userfun_list(T126T37tmp);
T126T37ret=T126g3424.apply(null,[T126T37tmp]);
_I_=1900;continue;
case 1901:
T126T37ret=T126g3423(T126g3422);
case 1900:
return T126T37ret;
}}};
T126T37ret=userfun_makeIframeWithUrl(T126e4,T126g3421,document,null);
return T126T37ret;
};
userfun_pagefadeLoad=T126e2;
T126T37ret=userfun_pagefadeLoad;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_pagefadeLoad,T126g3419);
T126e1=userfun_symbol("PAGEFADE-CLEAR-PREVIOUS",null);
T126g3428=T126e1;
T126e2=function ()
{
var T126g3432;
var T126g3434;
var T126g3433;
var T126g3435;
var T126T37ret;
var T126T37tmp;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3432=userfun_arrayList(document.body.childNodes);
case 1904:
T126g3434=true;
if(!T126g3432&&T126g3432!==0&&T126g3432!==''){_I_=1907;continue;}
T126g3434=null;
case 1907:
if(!T126g3434&&T126g3434!==0&&T126g3434!==''){_I_=1910;continue;}
_I_=1903;continue;
case 1910:
T126g3433=(T126g3432==null?null:T126g3432._);
T126g3435=true;
T126T37ret=userfun_elementT63(T126g3433);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1911;continue;}
T126T37tmp=new userfun_T37cons("cloned-body",null);
T126T37tmp=new userfun_T37cons("new-page",T126T37tmp);
T126T37tmp=userfun_list(T126T37tmp);
T126T37ret=T126g3433.hasClassT63(T126T37tmp);
case 1911:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1913;continue;}
T126g3435=null;
case 1913:
if(!T126g3435&&T126g3435!==0&&T126g3435!==''){_I_=1915;continue;}
userfun_visibleNodeRemoveWithoutListenersOrCallbacks(T126g3433);
case 1915:
T126g3432=(T126g3432==null?null:T126g3432.__);
_I_=1904;continue;
case 1903:
T126T37ret=null;
return T126T37ret;
}}};
userfun_pagefadeClearPrevious=T126e2;
T126T37ret=userfun_pagefadeClearPrevious;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_pagefadeClearPrevious,T126g3428);
T126e1=userfun_symbol("PAGEFADE-COPY",null);
T126g3436=T126e1;
T126e2=function (T126g3437)
{
var T126T37ret;
T126T37ret=userfun_copyIframeToDocument(T126g3437,document,null);
return T126T37ret;
};
userfun_pagefadeCopy=T126e2;
T126T37ret=userfun_pagefadeCopy;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_pagefadeCopy,T126g3436);
T126e1=userfun_symbol("PAGEFADE",null);
T126g3438=T126e1;
T126e2=function (T126g3439)
{
var T126g3444;
var T126g3440;
var T126g3441;
var T126T37ret;
var T126T37tmp;
var T126g3442;
var T126e17;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126g3440=true;
T126g3441=userfun_documentLocation(document);
T126T37ret=userfun_endsWithT63(T126g3439,"/",null);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1923;continue;}
T126T37ret=userfun_endsWithT63(T126g3441,"/",null);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1920;continue;}
T126T37ret=T126g3441;
_I_=1922;continue;
case 1920:
T126T37ret=(T126g3441+"/");
_I_=1922;continue;
case 1923:
T126T37ret=T126g3441;
case 1922:
T126T37tmp=T126T37ret;
T126T37ret=(T126g3439==T126T37tmp);
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1925;continue;}
T126g3440=null;
case 1925:
T126T37ret=T126g3440;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1927;continue;}
T126T37ret=userfun_pointerSet("wait");
T126g3442=userfun_pagefadeCloneBody();
T126e17=function (T126g3443)
{
var T126g3446;
var T126T37ret;
var T126e18;
userfun_pagefadeClearPrevious();
userfun_pagefadeCopy(T126g3443);
T126T37ret=userfun_visibleNodeRemoveWithoutListenersOrCallbacks(T126g3443);
T126e18=function ()
{
var T126T37ret;
T126g3442.remove();
userfun_historyBackstepReload();
window.location=T126g3439;
T126T37ret=window.location;
return T126T37ret;
};
T126T37ret=userfun_fadeOut(T126g3442,25,0.1,T126e18);
return T126T37ret;
};
T126T37ret=userfun_pagefadeLoad(T126e17,T126g3439);
case 1927:
return T126T37ret;
}}};
userfun_pagefade=T126e2;
T126T37ret=userfun_pagefade;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_pagefade,T126g3438);
T126T37ret=null;
T126e1=userfun_symbol("PAGEFADE-INIT-0",null);
T126g3449=T126e1;
T126e2=function (T126g3450,T126g3451)
{
var T126g3455;
var T126T37ret;
var T126g3452;
var T126g3453;
var T126e12;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=T126g3451.hasAttributeT63("href");
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1933;continue;}
T126g3452=T126g3451.readAttribute("href");
userfun_startsWithT63(T126g3452,"/",null);
T126g3453=userfun_endsWithT63(T126g3452,"/",null);
if(!T126g3453&&T126g3453!==0&&T126g3453!==''){_I_=1931;continue;}
T126T37ret=T126g3453;
_I_=1933;continue;
case 1931:
T126T37ret=userfun_endsWithT63(T126g3452,".html",null);
case 1933:
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1935;continue;}
T126e12=function (T126g3454)
{
var T126T37tmp;
var T126T37ret;
userfun_caroshiStopEvent(T126g3454);
T126T37tmp=T126g3451.readAttribute("href");
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(T126g3450,T126T37tmp);
T126T37tmp=userfun_T43(T126T37tmp);
T126T37ret=userfun_pagefade(T126T37tmp);
return T126T37ret;
};
T126T37ret=userfun_caroshiAddEventListener("click",T126e12,T126g3451);
case 1935:
return T126T37ret;
}}};
userfun_pagefadeInit0=T126e2;
T126T37ret=userfun_pagefadeInit0;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_pagefadeInit0,T126g3449);
T126e1=userfun_symbol("PAGEFADE-INIT",null);
T126g3457=T126e1;
T126e2=function (T126g3458)
{
var T126g3461;
var T126T37tmp;
var T126g3459;
var T126e6;
var T126T37ret;
T126T37tmp=userfun_documentLocation(document);
T126g3459=userfun_urlWithoutPath(T126T37tmp);
T126e6=function (T126g3460)
{
var T126T37ret;
T126T37ret=userfun_pagefadeInit0(T126g3459,T126g3460);
return T126T37ret;
};
T126T37ret=userfun_mapElementsByTagName(T126e6,T126g3458,"a");
return T126T37ret;
};
userfun_pagefadeInit=T126e2;
T126T37ret=userfun_pagefadeInit;
T126T37ret=userfun_T37T37usetfSymbolFunction(userfun_pagefadeInit,T126g3457);
T126e2=function (T126g3463)
{
var T126T37ret;
var _I_=0;
while(1){;
switch(_I_){case 0:;
T126T37ret=BROWSER.ie;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1938;continue;}
T126g3463=null;
case 1938:
T126T37ret=T126g3463;
return T126T37ret;
}}};
T126e1=T126e2(true);
T126T37ret=T126e1;
if(!T126T37ret&&T126T37ret!==0&&T126T37ret!==''){_I_=1940;continue;}
T126T37ret=userfun_pagefadeInit(document);
T126e4=T126T37ret;
T126T37ret=T126e4;
case 1940:
T126e1=function (T126g3134)
{
var T126g3136;
var T126e2;
var T126e4;
var T126T37tmp;
var T126T37ret;
T126e2=function ()
{
var T126T37ret;
T126T37ret=null;
return T126T37ret;
};
T126e4=function (T126g3135)
{
var T126e6;
var T126T37tmp;
var T126T37ret;
T126e6=(T126g3134+"/_local-template/"+T126g3135);
T126T37tmp=(T126g3134+"/_template/"+T126g3135);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=new userfun_T37cons(T126e6,T126T37tmp);
T126T37ret=userfun_list(T126T37tmp);
return T126T37ret;
};
T126T37tmp=new userfun_T37cons("s5_ul_arrow.png",null);
T126T37tmp=new userfun_T37cons("s5_logo.png",T126T37tmp);
T126T37tmp=new userfun_T37cons("s5_fd_orange_tl.png",T126T37tmp);
T126T37tmp=new userfun_T37cons("s5_fd_grey_tl.png",T126T37tmp);
T126T37tmp=new userfun_T37cons("s5_fd_blue_tl.png",T126T37tmp);
T126T37tmp=new userfun_T37cons("header_viscover.jpg",T126T37tmp);
T126T37tmp=new userfun_T37cons("header_PET.jpg",T126T37tmp);
T126T37tmp=new userfun_T37cons("header_experts.jpg",T126T37tmp);
T126T37tmp=new userfun_T37cons("bg_topnavi_active.jpg",T126T37tmp);
T126T37tmp=new userfun_T37cons(T126T37tmp,null);
T126T37tmp=userfun_mapcan(T126e4,T126T37tmp);
T126T37ret=userfun_preloadImages(T126e2,null,T126T37tmp);
return T126T37ret;
};
T126e19=userfun_documentLocation(document);
T126T37ret=T126e1(T126e19);
T126T37ret=userfun_initIntro(document,null);
T126T37ret=userfun_initTabDisplay(document);
    }break;}