From 2854bd7cd5fba897d6a831b0d0e0d5df4a8603cc Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Mon, 3 Oct 2011 17:39:54 -0400 Subject: [PATCH] adding structure type properties --- cs019/teachhelp.rkt | 82 + .../runtime-src/baselib-primitives.js | 5 +- js-assembler/runtime-src/baselib-structs.js | 70 +- tests/more-tests/booleans-cs019.js | 62386 ---------------- 4 files changed, 145 insertions(+), 62398 deletions(-) create mode 100644 cs019/teachhelp.rkt delete mode 100644 tests/more-tests/booleans-cs019.js diff --git a/cs019/teachhelp.rkt b/cs019/teachhelp.rkt new file mode 100644 index 0000000..01d4c22 --- /dev/null +++ b/cs019/teachhelp.rkt @@ -0,0 +1,82 @@ +(module teachhelp mzscheme + (require "firstorder.rkt" + "rewrite-error-message.rkt" + stepper/private/shared) + + (require-for-syntax stepper/private/shared) + + (provide make-undefined-check + make-first-order-function) + + (define (make-undefined-check check-proc tmp-id) + (let ([set!-stx (datum->syntax-object check-proc 'set!)]) + (make-set!-transformer + (lambda (stx) + (syntax-case stx () + [(set! id expr) + (module-identifier=? (syntax set!) set!-stx) + (with-syntax ([tmp-id tmp-id]) + (syntax/loc stx (set! tmp-id expr)))] + [(id . args) + (datum->syntax-object + check-proc + (cons (stepper-syntax-property + (datum->syntax-object + check-proc + (list check-proc + (list 'quote (syntax id)) + tmp-id)) + 'stepper-skipto + (append skipto/cdr + skipto/third)) + (syntax args)) + stx)] + [id + (stepper-syntax-property + (datum->syntax-object + check-proc + (list check-proc + (list 'quote (syntax id)) + tmp-id) + stx) + 'stepper-skipto + (append skipto/cdr + skipto/third))]))))) +#; + (define (appropriate-use what) + (case what + [(constructor) + "called with values for the structure fields"] + [(selector) + "applied to a structure to get the field value"] + [(predicate procedure) + "applied to arguments"])) + + (define (make-first-order-function what arity orig-id app) + (make-set!-transformer + (make-first-order + (lambda (stx) + (syntax-case stx (set!) + [(set! . _) (raise-syntax-error + #f stx #f + "internal error: assignment to first-order function")] + [id + (identifier? #'id) + (raise-syntax-error + #f + (format "expected a function call, but there is no open parenthesis before this function") + stx + #f)] + [(id . rest) + (let ([found (length (syntax->list #'rest))]) + (unless (= found arity) + (raise-syntax-error + #f + (argcount-error-message arity found) + stx + #f)) + (datum->syntax-object + app + (list* app (datum->syntax-object orig-id (syntax-e orig-id) #'id #'id) #'rest) + stx stx))])) + (syntax-local-introduce orig-id))))) diff --git a/js-assembler/runtime-src/baselib-primitives.js b/js-assembler/runtime-src/baselib-primitives.js index 098feb5..8df951d 100644 --- a/js-assembler/runtime-src/baselib-primitives.js +++ b/js-assembler/runtime-src/baselib-primitives.js @@ -2196,18 +2196,17 @@ guard, // FIXME: currently ignored constructorName ) { - var structType = baselib.structs.makeStructureType( name, superType, initFieldCount, autoFieldCount, autoV, - //props, //inspector, //procSpec, //immutables, - guard); + guard, + props); var constructorValue = makePrimitiveProcedure( diff --git a/js-assembler/runtime-src/baselib-structs.js b/js-assembler/runtime-src/baselib-structs.js index 17ff175..08c5b0a 100644 --- a/js-assembler/runtime-src/baselib-structs.js +++ b/js-assembler/runtime-src/baselib-structs.js @@ -51,8 +51,8 @@ } for (i = 0; i < this._fields.length; i++) { if (! baselib.equality.equals(this._fields[i], - other._fields[i], - aUnionFind)) { + other._fields[i], + aUnionFind)) { return false; } } @@ -74,7 +74,8 @@ constructor, predicate, accessor, - mutator) { + mutator, + propertiesList) { this.name = name; this.type = type; this.numberOfArgs = numberOfArgs; @@ -86,6 +87,7 @@ this.predicate = predicate; this.accessor = accessor; this.mutator = mutator; + this.propertiesList = propertiesList; }; @@ -133,7 +135,8 @@ initFieldCnt, autoFieldCnt, autoV, - guard) { + guard, + propertiesList) { // Defaults @@ -142,7 +145,6 @@ guard = guard || DEFAULT_GUARD; - // RawConstructor creates a new struct type inheriting from // the parent, with no guard checks. var RawConstructor = function (name, args) { @@ -202,19 +204,62 @@ function (x, i) { return x._fields[i + this.firstField]; }, // mutator - function (x, i, v) { x._fields[i + this.firstField] = v; }); + function (x, i, v) { x._fields[i + this.firstField] = v; }, + + // structure properties list + propertiesList); return newType; }; + var StructTypeProperty = function(name, guards, supers) { + this.name = name; + this.guards = guards; + this.supers = supers; + }; + // supportsStructureTypeProperty: StructType StructureTypeProperty -> boolean + // Produces true if the structure type provides a binding for the + // given structure property. + var supportsStructureTypeProperty = function(structType, property) { + var propertiesList = structType.propertiesList; + while (propertiesList !== baselib.lists.EMPTY) { + if (propertiesList.first.first === property) { + return true; + } + propertiesList = propertiesList.rest; + } + return false; + }; + + + // lookupStructureTypeProperty: StructType StructureTypeProperty -> any + // Returns the binding associated to this particular structure type propery. + var lookupStructureTypeProperty = function(structType, property) { + var propertiesList = structType.propertiesList; + while (propertiesList !== baselib.lists.EMPTY) { + if (propertiesList.first.first === property) { + return propertiesList.first.rest; + } + propertiesList = propertiesList.rest; + } + return undefined; + }; + + + // A structure type property for noting if an exception supports + var propExnSrcloc = new StructTypeProperty("prop:exn:srcloc"); + + + + var isStruct = baselib.makeClassPredicate(Struct); + var isStructType = baselib.makeClassPredicate(StructType); + var isStructTypeProperty = baselib.makeClassPredicate(StructTypeProperty); - var isStruct = function (x) { return x instanceof Struct; }; - var isStructType = function (x) { return x instanceof StructType; }; ////////////////////////////////////////////////////////////////////// @@ -223,7 +268,14 @@ exports.StructType = StructType; exports.Struct = Struct; exports.makeStructureType = makeStructureType; + + exports.StructTypeProperty = StructTypeProperty; + exports.supportsStructureTypeProperty = supportsStructureTypeProperty; + exports.lookupStructureTypeProperty = lookupStructureTypeProperty; + + exports.propExnSrcloc = propExnSrcloc; + exports.isStruct = isStruct; exports.isStructType = isStructType; - + exports.isStructTypeProperty = isStructTypeProperty; }(this.plt.baselib, $)); \ No newline at end of file diff --git a/tests/more-tests/booleans-cs019.js b/tests/more-tests/booleans-cs019.js deleted file mode 100644 index 7489e64..0000000 --- a/tests/more-tests/booleans-cs019.js +++ /dev/null @@ -1,62386 +0,0 @@ - -// The following contains the Whalesong runtime. - - -(function(window, undefined) { - // dyoo: this library has been modified slightly so it checks to see - // if window.jQuery has already been installed. This is to prevent an ugly issue - // with regards to a memory leak if one tries to repeatedly load jQuery. - // NOTE: this portion of the file (jquery-protect-header.js) is intentionally - // unbalanced. It'll be closed up by jquery-protect-footer.js. - if (!window.jQuery) { -/*! jQuery v1.6.3 http://jquery.com/ | http://jquery.org/license */ -(function(a,b){function cu(a){return f.isWindow(a)?a:a.nodeType===9?a.defaultView||a.parentWindow:!1}function cr(a){if(!cg[a]){var b=c.body,d=f("<"+a+">").appendTo(b),e=d.css("display");d.remove();if(e==="none"||e===""){ch||(ch=c.createElement("iframe"),ch.frameBorder=ch.width=ch.height=0),b.appendChild(ch);if(!ci||!ch.createElement)ci=(ch.contentWindow||ch.contentDocument).document,ci.write((c.compatMode==="CSS1Compat"?"":"")+""),ci.close();d=ci.createElement(a),ci.body.appendChild(d),e=f.css(d,"display"),b.removeChild(ch)}cg[a]=e}return cg[a]}function cq(a,b){var c={};f.each(cm.concat.apply([],cm.slice(0,b)),function(){c[this]=a});return c}function cp(){cn=b}function co(){setTimeout(cp,0);return cn=f.now()}function cf(){try{return new a.ActiveXObject("Microsoft.XMLHTTP")}catch(b){}}function ce(){try{return new a.XMLHttpRequest}catch(b){}}function b$(a,c){a.dataFilter&&(c=a.dataFilter(c,a.dataType));var d=a.dataTypes,e={},g,h,i=d.length,j,k=d[0],l,m,n,o,p;for(g=1;g0){c!=="border"&&f.each(e,function(){c||(d-=parseFloat(f.css(a,"padding"+this))||0),c==="margin"?d+=parseFloat(f.css(a,c+this))||0:d-=parseFloat(f.css(a,"border"+this+"Width"))||0});return d+"px"}d=bv(a,b,b);if(d<0||d==null)d=a.style[b]||0;d=parseFloat(d)||0,c&&f.each(e,function(){d+=parseFloat(f.css(a,"padding"+this))||0,c!=="padding"&&(d+=parseFloat(f.css(a,"border"+this+"Width"))||0),c==="margin"&&(d+=parseFloat(f.css(a,c+this))||0)});return d+"px"}function bl(a,b){b.src?f.ajax({url:b.src,async:!1,dataType:"script"}):f.globalEval((b.text||b.textContent||b.innerHTML||"").replace(bd,"/*$0*/")),b.parentNode&&b.parentNode.removeChild(b)}function bk(a){f.nodeName(a,"input")?bj(a):"getElementsByTagName"in a&&f.grep(a.getElementsByTagName("input"),bj)}function bj(a){if(a.type==="checkbox"||a.type==="radio")a.defaultChecked=a.checked}function bi(a){return"getElementsByTagName"in a?a.getElementsByTagName("*"):"querySelectorAll"in a?a.querySelectorAll("*"):[]}function bh(a,b){var c;if(b.nodeType===1){b.clearAttributes&&b.clearAttributes(),b.mergeAttributes&&b.mergeAttributes(a),c=b.nodeName.toLowerCase();if(c==="object")b.outerHTML=a.outerHTML;else if(c!=="input"||a.type!=="checkbox"&&a.type!=="radio"){if(c==="option")b.selected=a.defaultSelected;else if(c==="input"||c==="textarea")b.defaultValue=a.defaultValue}else a.checked&&(b.defaultChecked=b.checked=a.checked),b.value!==a.value&&(b.value=a.value);b.removeAttribute(f.expando)}}function bg(a,b){if(b.nodeType===1&&!!f.hasData(a)){var c=f.expando,d=f.data(a),e=f.data(b,d);if(d=d[c]){var g=d.events;e=e[c]=f.extend({},d);if(g){delete e.handle,e.events={};for(var h in g)for(var i=0,j=g[h].length;i=0===c})}function U(a){return!a||!a.parentNode||a.parentNode.nodeType===11}function M(a,b){return(a&&a!=="*"?a+".":"")+b.replace(y,"`").replace(z,"&")}function L(a){var b,c,d,e,g,h,i,j,k,l,m,n,o,p=[],q=[],r=f._data(this,"events");if(!(a.liveFired===this||!r||!r.live||a.target.disabled||a.button&&a.type==="click")){a.namespace&&(n=new RegExp("(^|\\.)"+a.namespace.split(".").join("\\.(?:.*\\.)?")+"(\\.|$)")),a.liveFired=this;var s=r.live.slice(0);for(i=0;ic)break;a.currentTarget=e.elem,a.data=e.handleObj.data,a.handleObj=e.handleObj,o=e.handleObj.origHandler.apply(e.elem,arguments);if(o===!1||a.isPropagationStopped()){c=e.level,o===!1&&(b=!1);if(a.isImmediatePropagationStopped())break}}return b}}function J(a,c,d){var e=f.extend({},d[0]);e.type=a,e.originalEvent={},e.liveFired=b,f.event.handle.call(c,e),e.isDefaultPrevented()&&d[0].preventDefault()}function D(){return!0}function C(){return!1}function m(a,c,d){var e=c+"defer",g=c+"queue",h=c+"mark",i=f.data(a,e,b,!0);i&&(d==="queue"||!f.data(a,g,b,!0))&&(d==="mark"||!f.data(a,h,b,!0))&&setTimeout(function(){!f.data(a,g,b,!0)&&!f.data(a,h,b,!0)&&(f.removeData(a,e,!0),i.resolve())},0)}function l(a){for(var b in a)if(b!=="toJSON")return!1;return!0}function k(a,c,d){if(d===b&&a.nodeType===1){var e="data-"+c.replace(j,"$1-$2").toLowerCase();d=a.getAttribute(e);if(typeof d=="string"){try{d=d==="true"?!0:d==="false"?!1:d==="null"?null:f.isNaN(d)?i.test(d)?f.parseJSON(d):d:parseFloat(d)}catch(g){}f.data(a,c,d)}else d=b}return d}var c=a.document,d=a.navigator,e=a.location,f=function(){function K(){if(!e.isReady){try{c.documentElement.doScroll("left")}catch(a){setTimeout(K,1);return}e.ready()}}var e=function(a,b){return new e.fn.init(a,b,h)},f=a.jQuery,g=a.$,h,i=/^(?:[^#<]*(<[\w\W]+>)[^>]*$|#([\w\-]*)$)/,j=/\S/,k=/^\s+/,l=/\s+$/,m=/\d/,n=/^<(\w+)\s*\/?>(?:<\/\1>)?$/,o=/^[\],:{}\s]*$/,p=/\\(?:["\\\/bfnrt]|u[0-9a-fA-F]{4})/g,q=/"[^"\\\n\r]*"|true|false|null|-?\d+(?:\.\d*)?(?:[eE][+\-]?\d+)?/g,r=/(?:^|:|,)(?:\s*\[)+/g,s=/(webkit)[ \/]([\w.]+)/,t=/(opera)(?:.*version)?[ \/]([\w.]+)/,u=/(msie) ([\w.]+)/,v=/(mozilla)(?:.*? rv:([\w.]+))?/,w=/-([a-z]|[0-9])/ig,x=/^-ms-/,y=function(a,b){return(b+"").toUpperCase()},z=d.userAgent,A,B,C,D=Object.prototype.toString,E=Object.prototype.hasOwnProperty,F=Array.prototype.push,G=Array.prototype.slice,H=String.prototype.trim,I=Array.prototype.indexOf,J={};e.fn=e.prototype={constructor:e,init:function(a,d,f){var g,h,j,k;if(!a)return this;if(a.nodeType){this.context=this[0]=a,this.length=1;return this}if(a==="body"&&!d&&c.body){this.context=c,this[0]=c.body,this.selector=a,this.length=1;return this}if(typeof a=="string"){a.charAt(0)!=="<"||a.charAt(a.length-1)!==">"||a.length<3?g=i.exec(a):g=[null,a,null];if(g&&(g[1]||!d)){if(g[1]){d=d instanceof e?d[0]:d,k=d?d.ownerDocument||d:c,j=n.exec(a),j?e.isPlainObject(d)?(a=[c.createElement(j[1])],e.fn.attr.call(a,d,!0)):a=[k.createElement(j[1])]:(j=e.buildFragment([g[1]],[k]),a=(j.cacheable?e.clone(j.fragment):j.fragment).childNodes);return e.merge(this,a)}h=c.getElementById(g[2]);if(h&&h.parentNode){if(h.id!==g[2])return f.find(a);this.length=1,this[0]=h}this.context=c,this.selector=a;return this}return!d||d.jquery?(d||f).find(a):this.constructor(d).find(a)}if(e.isFunction(a))return f.ready(a);a.selector!==b&&(this.selector=a.selector,this.context=a.context);return e.makeArray(a,this)},selector:"",jquery:"1.6.3",length:0,size:function(){return this.length},toArray:function(){return G.call(this,0)},get:function(a){return a==null?this.toArray():a<0?this[this.length+a]:this[a]},pushStack:function(a,b,c){var d=this.constructor();e.isArray(a)?F.apply(d,a):e.merge(d,a),d.prevObject=this,d.context=this.context,b==="find"?d.selector=this.selector+(this.selector?" ":"")+c:b&&(d.selector=this.selector+"."+b+"("+c+")");return d},each:function(a,b){return e.each(this,a,b)},ready:function(a){e.bindReady(),B.done(a);return this},eq:function(a){return a===-1?this.slice(a):this.slice(a,+a+1)},first:function(){return this.eq(0)},last:function(){return this.eq(-1)},slice:function(){return this.pushStack(G.apply(this,arguments),"slice",G.call(arguments).join(","))},map:function(a){return this.pushStack(e.map(this,function(b,c){return a.call(b,c,b)}))},end:function(){return this.prevObject||this.constructor(null)},push:F,sort:[].sort,splice:[].splice},e.fn.init.prototype=e.fn,e.extend=e.fn.extend=function(){var a,c,d,f,g,h,i=arguments[0]||{},j=1,k=arguments.length,l=!1;typeof i=="boolean"&&(l=i,i=arguments[1]||{},j=2),typeof i!="object"&&!e.isFunction(i)&&(i={}),k===j&&(i=this,--j);for(;j0)return;B.resolveWith(c,[e]),e.fn.trigger&&e(c).trigger("ready").unbind("ready")}},bindReady:function(){if(!B){B=e._Deferred();if(c.readyState==="complete")return setTimeout(e.ready,1);if(c.addEventListener)c.addEventListener("DOMContentLoaded",C,!1),a.addEventListener("load",e.ready,!1);else if(c.attachEvent){c.attachEvent("onreadystatechange",C),a.attachEvent("onload",e.ready);var b=!1;try{b=a.frameElement==null}catch(d){}c.documentElement.doScroll&&b&&K()}}},isFunction:function(a){return e.type(a)==="function"},isArray:Array.isArray||function(a){return e.type(a)==="array"},isWindow:function(a){return a&&typeof a=="object"&&"setInterval"in a},isNaN:function(a){return a==null||!m.test(a)||isNaN(a)},type:function(a){return a==null?String(a):J[D.call(a)]||"object"},isPlainObject:function(a){if(!a||e.type(a)!=="object"||a.nodeType||e.isWindow(a))return!1;try{if(a.constructor&&!E.call(a,"constructor")&&!E.call(a.constructor.prototype,"isPrototypeOf"))return!1}catch(c){return!1}var d;for(d in a);return d===b||E.call(a,d)},isEmptyObject:function(a){for(var b in a)return!1;return!0},error:function(a){throw a},parseJSON:function(b){if(typeof b!="string"||!b)return null;b=e.trim(b);if(a.JSON&&a.JSON.parse)return a.JSON.parse(b);if(o.test(b.replace(p,"@").replace(q,"]").replace(r,"")))return(new Function("return "+b))();e.error("Invalid JSON: "+b)},parseXML:function(c){var d,f;try{a.DOMParser?(f=new DOMParser,d=f.parseFromString(c,"text/xml")):(d=new ActiveXObject("Microsoft.XMLDOM"),d.async="false",d.loadXML(c))}catch(g){d=b}(!d||!d.documentElement||d.getElementsByTagName("parsererror").length)&&e.error("Invalid XML: "+c);return d},noop:function(){},globalEval:function(b){b&&j.test(b)&&(a.execScript||function(b){a.eval.call(a,b)})(b)},camelCase:function(a){return a.replace(x,"ms-").replace(w,y)},nodeName:function(a,b){return a.nodeName&&a.nodeName.toUpperCase()===b.toUpperCase()},each:function(a,c,d){var f,g=0,h=a.length,i=h===b||e.isFunction(a);if(d){if(i){for(f in a)if(c.apply(a[f],d)===!1)break}else for(;g0&&a[0]&&a[j-1]||j===0||e.isArray(a));if(k)for(;i1?h.call(arguments,0):c,--e||g.resolveWith(g,h.call(b,0))}}var b=arguments,c=0,d=b.length,e=d,g=d<=1&&a&&f.isFunction(a.promise)?a:f.Deferred();if(d>1){for(;c
a",d=a.getElementsByTagName("*"),e=a.getElementsByTagName("a")[0];if(!d||!d.length||!e)return{};g=c.createElement("select"),h=g.appendChild(c.createElement("option")),i=a.getElementsByTagName("input")[0],k={leadingWhitespace:a.firstChild.nodeType===3,tbody:!a.getElementsByTagName("tbody").length,htmlSerialize:!!a.getElementsByTagName("link").length,style:/top/.test(e.getAttribute("style")),hrefNormalized:e.getAttribute("href")==="/a",opacity:/^0.55$/.test(e.style.opacity),cssFloat:!!e.style.cssFloat,checkOn:i.value==="on",optSelected:h.selected,getSetAttribute:a.className!=="t",submitBubbles:!0,changeBubbles:!0,focusinBubbles:!1,deleteExpando:!0,noCloneEvent:!0,inlineBlockNeedsLayout:!1,shrinkWrapBlocks:!1,reliableMarginRight:!0},i.checked=!0,k.noCloneChecked=i.cloneNode(!0).checked,g.disabled=!0,k.optDisabled=!h.disabled;try{delete a.test}catch(v){k.deleteExpando=!1}!a.addEventListener&&a.attachEvent&&a.fireEvent&&(a.attachEvent("onclick",function(){k.noCloneEvent=!1}),a.cloneNode(!0).fireEvent("onclick")),i=c.createElement("input"),i.value="t",i.setAttribute("type","radio"),k.radioValue=i.value==="t",i.setAttribute("checked","checked"),a.appendChild(i),l=c.createDocumentFragment(),l.appendChild(a.firstChild),k.checkClone=l.cloneNode(!0).cloneNode(!0).lastChild.checked,a.innerHTML="",a.style.width=a.style.paddingLeft="1px",m=c.getElementsByTagName("body")[0],o=c.createElement(m?"div":"body"),p={visibility:"hidden",width:0,height:0,border:0,margin:0,background:"none"},m&&f.extend(p,{position:"absolute",left:"-1000px",top:"-1000px"});for(t in p)o.style[t]=p[t];o.appendChild(a),n=m||b,n.insertBefore(o,n.firstChild),k.appendChecked=i.checked,k.boxModel=a.offsetWidth===2,"zoom"in a.style&&(a.style.display="inline",a.style.zoom=1,k.inlineBlockNeedsLayout=a.offsetWidth===2,a.style.display="",a.innerHTML="
",k.shrinkWrapBlocks=a.offsetWidth!==2),a.innerHTML="
t
",q=a.getElementsByTagName("td"),u=q[0].offsetHeight===0,q[0].style.display="",q[1].style.display="none",k.reliableHiddenOffsets=u&&q[0].offsetHeight===0,a.innerHTML="",c.defaultView&&c.defaultView.getComputedStyle&&(j=c.createElement("div"),j.style.width="0",j.style.marginRight="0",a.appendChild(j),k.reliableMarginRight=(parseInt((c.defaultView.getComputedStyle(j,null)||{marginRight:0}).marginRight,10)||0)===0),o.innerHTML="",n.removeChild(o);if(a.attachEvent)for(t in{submit:1,change:1,focusin:1})s="on"+t,u=s in a,u||(a.setAttribute(s,"return;"),u=typeof a[s]=="function"),k[t+"Bubbles"]=u;o=l=g=h=m=j=a=i=null;return k}(),f.boxModel=f.support.boxModel;var i=/^(?:\{.*\}|\[.*\])$/,j=/([a-z])([A-Z])/g;f.extend({cache:{},uuid:0,expando:"jQuery"+(f.fn.jquery+Math.random()).replace(/\D/g,""),noData:{embed:!0,object:"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000",applet:!0},hasData:function(a){a=a.nodeType?f.cache[a[f.expando]]:a[f.expando];return!!a&&!l(a)},data:function(a,c,d,e){if(!!f.acceptData(a)){var g,h,i=f.expando,j=typeof c=="string",k=a.nodeType,l=k?f.cache:a,m=k?a[f.expando]:a[f.expando]&&f.expando;if((!m||e&&m&&l[m]&&!l[m][i])&&j&&d===b)return;m||(k?a[f.expando]=m=++f.uuid:m=f.expando),l[m]||(l[m]={},k||(l[m].toJSON=f.noop));if(typeof c=="object"||typeof c=="function")e?l[m][i]=f.extend(l[m][i],c):l[m]=f.extend(l[m],c);g=l[m],e&&(g[i]||(g[i]={}),g=g[i]),d!==b&&(g[f.camelCase(c)]=d);if(c==="events"&&!g[c])return g[i]&&g[i].events;j?(h=g[c],h==null&&(h=g[f.camelCase(c)])):h=g;return h}},removeData:function(a,b,c){if(!!f.acceptData(a)){var d,e=f.expando,g=a.nodeType,h=g?f.cache:a,i=g?a[f.expando]:f.expando;if(!h[i])return;if(b){d=c?h[i][e]:h[i];if(d){d[b]||(b=f.camelCase(b)),delete d[b];if(!l(d))return}}if(c){delete h[i][e];if(!l(h[i]))return}var j=h[i][e];f.support.deleteExpando||!h.setInterval?delete h[i]:h[i]=null,j?(h[i]={},g||(h[i].toJSON=f.noop),h[i][e]=j):g&&(f.support.deleteExpando?delete a[f.expando]:a.removeAttribute?a.removeAttribute(f.expando):a[f.expando]=null)}},_data:function(a,b,c){return f.data(a,b,c,!0)},acceptData:function(a){if(a.nodeName){var b=f.noData[a.nodeName.toLowerCase()];if(b)return b!==!0&&a.getAttribute("classid")===b}return!0}}),f.fn.extend({data:function(a,c){var d=null;if(typeof a=="undefined"){if(this.length){d=f.data(this[0]);if(this[0].nodeType===1){var e=this[0].attributes,g;for(var h=0,i=e.length;h-1)return!0;return!1},val:function(a){var c,d,e=this[0];if(!arguments.length){if(e){c=f.valHooks[e.nodeName.toLowerCase()]||f.valHooks[e.type];if(c&&"get"in c&&(d=c.get(e,"value"))!==b)return d;d=e.value;return typeof d=="string"?d.replace(p,""):d==null?"":d}return b}var g=f.isFunction(a);return this.each(function(d){var e=f(this),h;if(this.nodeType===1){g?h=a.call(this,d,e.val()):h=a,h==null?h="":typeof h=="number"?h+="":f.isArray(h)&&(h=f.map(h,function(a){return a==null?"":a+""})),c=f.valHooks[this.nodeName.toLowerCase()]||f.valHooks[this.type];if(!c||!("set"in c)||c.set(this,h,"value")===b)this.value=h}})}}),f.extend({valHooks:{option:{get:function(a){var b=a.attributes.value;return!b||b.specified?a.value:a.text}},select:{get:function(a){var b,c=a.selectedIndex,d=[],e=a.options,g=a.type==="select-one";if(c<0)return null;for(var h=g?c:0,i=g?c+1:e.length;h=0}),c.length||(a.selectedIndex=-1);return c}}},attrFn:{val:!0,css:!0,html:!0,text:!0,data:!0,width:!0,height:!0,offset:!0},attrFix:{tabindex:"tabIndex"},attr:function(a,c,d,e){var g=a.nodeType;if(!a||g===3||g===8||g===2)return b;if(e&&c in f.attrFn)return f(a)[c](d);if(!("getAttribute"in a))return f.prop(a,c,d);var h,i,j=g!==1||!f.isXMLDoc(a);j&&(c=f.attrFix[c]||c,i=f.attrHooks[c],i||(t.test(c)?i=v:u&&(i=u)));if(d!==b){if(d===null){f.removeAttr(a,c);return b}if(i&&"set"in i&&j&&(h=i.set(a,d,c))!==b)return h;a.setAttribute(c,""+d);return d}if(i&&"get"in i&&j&&(h=i.get(a,c))!==null)return h;h=a.getAttribute(c);return h===null?b:h},removeAttr:function(a,b){var c;a.nodeType===1&&(b=f.attrFix[b]||b,f.attr(a,b,""),a.removeAttribute(b),t.test(b)&&(c=f.propFix[b]||b)in a&&(a[c]=!1))},attrHooks:{type:{set:function(a,b){if(q.test(a.nodeName)&&a.parentNode)f.error("type property can't be changed");else if(!f.support.radioValue&&b==="radio"&&f.nodeName(a,"input")){var c=a.value;a.setAttribute("type",b),c&&(a.value=c);return b}}},value:{get:function(a,b){if(u&&f.nodeName(a,"button"))return u.get(a,b);return b in a?a.value:null},set:function(a,b,c){if(u&&f.nodeName(a,"button"))return u.set(a,b,c);a.value=b}}},propFix:{tabindex:"tabIndex",readonly:"readOnly","for":"htmlFor","class":"className",maxlength:"maxLength",cellspacing:"cellSpacing",cellpadding:"cellPadding",rowspan:"rowSpan",colspan:"colSpan",usemap:"useMap",frameborder:"frameBorder",contenteditable:"contentEditable"},prop:function(a,c,d){var e=a.nodeType;if(!a||e===3||e===8||e===2)return b;var g,h,i=e!==1||!f.isXMLDoc(a);i&&(c=f.propFix[c]||c,h=f.propHooks[c]);return d!==b?h&&"set"in h&&(g=h.set(a,d,c))!==b?g:a[c]=d:h&&"get"in h&&(g=h.get(a,c))!==null?g:a[c]},propHooks:{tabIndex:{get:function(a){var c=a.getAttributeNode("tabindex");return c&&c.specified?parseInt(c.value,10):r.test(a.nodeName)||s.test(a.nodeName)&&a.href?0:b}}}}),f.attrHooks.tabIndex=f.propHooks.tabIndex,v={get:function(a,c){var d;return f.prop(a,c)===!0||(d=a.getAttributeNode(c))&&d.nodeValue!==!1?c.toLowerCase():b},set:function(a,b,c){var d;b===!1?f.removeAttr(a,c):(d=f.propFix[c]||c,d in a&&(a[d]=!0),a.setAttribute(c,c.toLowerCase()));return c}},f.support.getSetAttribute||(u=f.valHooks.button={get:function(a,c){var d;d=a.getAttributeNode(c);return d&&d.nodeValue!==""?d.nodeValue:b},set:function(a,b,d){var e=a.getAttributeNode(d);e||(e=c.createAttribute(d),a.setAttributeNode(e));return e.nodeValue=b+""}},f.each(["width","height"],function(a,b){f.attrHooks[b]=f.extend(f.attrHooks[b],{set:function(a,c){if(c===""){a.setAttribute(b,"auto");return c}}})})),f.support.hrefNormalized||f.each(["href","src","width","height"],function(a,c){f.attrHooks[c]=f.extend(f.attrHooks[c],{get:function(a){var d=a.getAttribute(c,2);return d===null?b:d}})}),f.support.style||(f.attrHooks.style={get:function(a){return a.style.cssText.toLowerCase()||b},set:function(a,b){return a.style.cssText=""+b}}),f.support.optSelected||(f.propHooks.selected=f.extend(f.propHooks.selected,{get:function(a){var b=a.parentNode;b&&(b.selectedIndex,b.parentNode&&b.parentNode.selectedIndex);return null}})),f.support.checkOn||f.each(["radio","checkbox"],function(){f.valHooks[this]={get:function(a){return a.getAttribute("value")===null?"on":a.value}}}),f.each(["radio","checkbox"],function(){f.valHooks[this]=f.extend(f.valHooks[this],{set:function(a,b){if(f.isArray(b))return a.checked=f.inArray(f(a).val(),b)>=0}})});var w=/\.(.*)$/,x=/^(?:textarea|input|select)$/i,y=/\./g,z=/ /g,A=/[^\w\s.|`]/g,B=function(a){return a.replace(A,"\\$&")};f.event={add:function(a,c,d,e){if(a.nodeType!==3&&a.nodeType!==8){if(d===!1)d=C;else if(!d)return;var g,h;d.handler&&(g=d,d=g.handler),d.guid||(d.guid=f.guid++);var i=f._data(a);if(!i)return;var j=i.events,k=i.handle;j||(i.events=j={}),k||(i.handle=k=function(a){return typeof f!="undefined"&&(!a||f.event.triggered!==a.type)?f.event.handle.apply(k.elem,arguments):b}),k.elem=a,c=c.split(" ");var l,m=0,n;while(l=c[m++]){h=g?f.extend({},g):{handler:d,data:e},l.indexOf(".")>-1?(n=l.split("."),l=n.shift(),h.namespace=n.slice(0).sort().join(".")):(n=[],h.namespace=""),h.type=l,h.guid||(h.guid=d.guid);var o=j[l],p=f.event.special[l]||{};if(!o){o=j[l]=[];if(!p.setup||p.setup.call(a,e,n,k)===!1)a.addEventListener?a.addEventListener(l,k,!1):a.attachEvent&&a.attachEvent("on"+l,k)}p.add&&(p.add.call(a,h),h.handler.guid||(h.handler.guid=d.guid)),o.push(h),f.event.global[l]=!0}a=null}},global:{},remove:function(a,c,d,e){if(a.nodeType!==3&&a.nodeType!==8){d===!1&&(d=C);var g,h,i,j,k=0,l,m,n,o,p,q,r,s=f.hasData(a)&&f._data(a),t=s&&s.events;if(!s||!t)return;c&&c.type&&(d=c.handler,c=c.type);if(!c||typeof c=="string"&&c.charAt(0)==="."){c=c||"";for(h in t)f.event.remove(a,h+c);return}c=c.split(" ");while(h=c[k++]){r=h,q=null,l=h.indexOf(".")<0,m=[],l||(m=h.split("."),h=m.shift(),n=new RegExp("(^|\\.)"+f.map(m.slice(0).sort(),B).join("\\.(?:.*\\.)?")+"(\\.|$)")),p=t[h];if(!p)continue;if(!d){for(j=0;j=0&&(h=h.slice(0,-1),j=!0),h.indexOf(".")>=0&&(i=h.split("."),h=i.shift(),i.sort());if(!!e&&!f.event.customEvent[h]||!!f.event.global[h]){c=typeof c=="object"?c[f.expando]?c:new f.Event(h,c):new f.Event(h),c.type=h,c.exclusive=j,c.namespace=i.join("."),c.namespace_re=new RegExp("(^|\\.)"+i.join("\\.(?:.*\\.)?")+"(\\.|$)");if(g||!e)c.preventDefault(),c.stopPropagation();if(!e){f.each(f.cache,function(){var a=f.expando,b=this[a];b&&b.events&&b.events[h]&&f.event.trigger(c,d,b.handle.elem)});return}if(e.nodeType===3||e.nodeType===8)return;c.result=b,c.target=e,d=d!=null?f.makeArray(d):[],d.unshift(c);var k=e,l=h.indexOf(":")<0?"on"+h:"";do{var m=f._data(k,"handle");c.currentTarget=k,m&&m.apply(k,d),l&&f.acceptData(k)&&k[l]&&k[l].apply(k,d)===!1&&(c.result=!1,c.preventDefault()),k=k.parentNode||k.ownerDocument||k===c.target.ownerDocument&&a}while(k&&!c.isPropagationStopped());if(!c.isDefaultPrevented()){var n,o=f.event.special[h]||{};if((!o._default||o._default.call(e.ownerDocument,c)===!1)&&(h!=="click"||!f.nodeName(e,"a"))&&f.acceptData(e)){try{l&&e[h]&&(n=e[l],n&&(e[l]=null),f.event.triggered=h,e[h]())}catch(p){}n&&(e[l]=n),f.event.triggered=b}}return c.result}},handle:function(c){c=f.event.fix(c||a.event);var d=((f._data(this,"events")||{})[c.type]||[]).slice(0),e=!c.exclusive&&!c.namespace,g=Array.prototype.slice.call(arguments,0);g[0]=c,c.currentTarget=this;for(var h=0,i=d.length;h-1?f.map(a.options,function(a){return a.selected}).join("-"):"":f.nodeName(a,"select")&&(c=a.selectedIndex);return c},I=function(c){var d=c.target,e,g;if(!!x.test(d.nodeName)&&!d.readOnly){e=f._data(d,"_change_data"),g=H(d),(c.type!=="focusout"||d.type!=="radio")&&f._data(d,"_change_data",g);if(e===b||g===e)return;if(e!=null||g)c.type="change",c.liveFired=b,f.event.trigger(c,arguments[1],d)}};f.event.special.change={filters:{focusout:I,beforedeactivate:I,click:function(a){var b=a.target,c=f.nodeName(b,"input")?b.type:"";(c==="radio"||c==="checkbox"||f.nodeName(b,"select"))&&I.call(this,a)},keydown:function(a){var b=a.target,c=f.nodeName(b,"input")?b.type:"";(a.keyCode===13&&!f.nodeName(b,"textarea")||a.keyCode===32&&(c==="checkbox"||c==="radio")||c==="select-multiple")&&I.call(this,a)},beforeactivate:function(a){var b=a.target;f._data(b,"_change_data",H(b))}},setup:function(a,b){if(this.type==="file")return!1;for(var c in G)f.event.add(this,c+".specialChange",G[c]);return x.test(this.nodeName)},teardown:function(a){f.event.remove(this,".specialChange");return x.test(this.nodeName)}},G=f.event.special.change.filters,G.focus=G.beforeactivate}f.support.focusinBubbles||f.each({focus:"focusin",blur:"focusout"},function(a,b){function e(a){var c=f.event.fix(a);c.type=b,c.originalEvent={},f.event.trigger(c,null,c.target),c.isDefaultPrevented()&&a.preventDefault()}var d=0;f.event.special[b]={setup:function(){d++===0&&c.addEventListener(a,e,!0)},teardown:function(){--d===0&&c.removeEventListener(a,e,!0)}}}),f.each(["bind","one"],function(a,c){f.fn[c]=function(a,d,e){var g;if(typeof a=="object"){for(var h in a)this[c](h,d,a[h],e);return this}if(arguments.length===2||d===!1)e=d,d=b;c==="one"?(g=function(a){f(this).unbind(a,g);return e.apply(this,arguments)},g.guid=e.guid||f.guid++):g=e;if(a==="unload"&&c!=="one")this.one(a,d,e);else for(var i=0,j=this.length;i0?this.bind(b,a,c):this.trigger(b)},f.attrFn&&(f.attrFn[b]=!0)}),function(){function u(a,b,c,d,e,f){for(var g=0,h=d.length;g0){j=i;break}}i=i[a]}d[g]=j}}}function t(a,b,c,d,e,f){for(var g=0,h=d.length;g+~,(\[\\]+)+|[>+~])(\s*,\s*)?((?:.|\r|\n)*)/g,d=0,e=Object.prototype.toString,g=!1,h=!0,i=/\\/g,j=/\W/;[0,0].sort(function(){h=!1;return 0});var k=function(b,d,f,g){f=f||[],d=d||c;var h=d;if(d.nodeType!==1&&d.nodeType!==9)return[];if(!b||typeof b!="string")return f;var i,j,n,o,q,r,s,t,u=!0,w=k.isXML(d),x=[],y=b;do{a.exec(""),i=a.exec(y);if(i){y=i[3],x.push(i[1]);if(i[2]){o=i[3];break}}}while(i);if(x.length>1&&m.exec(b))if(x.length===2&&l.relative[x[0]])j=v(x[0]+x[1],d);else{j=l.relative[x[0]]?[d]:k(x.shift(),d);while(x.length)b=x.shift(),l.relative[b]&&(b+=x.shift()),j=v(b,j)}else{!g&&x.length>1&&d.nodeType===9&&!w&&l.match.ID.test(x[0])&&!l.match.ID.test(x[x.length-1])&&(q=k.find(x.shift(),d,w),d=q.expr?k.filter(q.expr,q.set)[0]:q.set[0]);if(d){q=g?{expr:x.pop(),set:p(g)}:k.find(x.pop(),x.length===1&&(x[0]==="~"||x[0]==="+")&&d.parentNode?d.parentNode:d,w),j=q.expr?k.filter(q.expr,q.set):q.set,x.length>0?n=p(j):u=!1;while(x.length)r=x.pop(),s=r,l.relative[r]?s=x.pop():r="",s==null&&(s=d),l.relative[r](n,s,w)}else n=x=[]}n||(n=j),n||k.error(r||b);if(e.call(n)==="[object Array]")if(!u)f.push.apply(f,n);else if(d&&d.nodeType===1)for(t=0;n[t]!=null;t++)n[t]&&(n[t]===!0||n[t].nodeType===1&&k.contains(d,n[t]))&&f.push(j[t]);else for(t=0;n[t]!=null;t++)n[t]&&n[t].nodeType===1&&f.push(j[t]);else p(n,f);o&&(k(o,h,f,g),k.uniqueSort(f));return f};k.uniqueSort=function(a){if(r){g=h,a.sort(r);if(g)for(var b=1;b0},k.find=function(a,b,c){var d;if(!a)return[];for(var e=0,f=l.order.length;e":function(a,b){var c,d=typeof b=="string",e=0,f=a.length;if(d&&!j.test(b)){b=b.toLowerCase();for(;e=0)?c||d.push(h):c&&(b[g]=!1));return!1},ID:function(a){return a[1].replace(i,"")},TAG:function(a,b){return a[1].replace(i,"").toLowerCase()},CHILD:function(a){if(a[1]==="nth"){a[2]||k.error(a[0]),a[2]=a[2].replace(/^\+|\s*/g,"");var b=/(-?)(\d*)(?:n([+\-]?\d*))?/.exec(a[2]==="even"&&"2n"||a[2]==="odd"&&"2n+1"||!/\D/.test(a[2])&&"0n+"+a[2]||a[2]);a[2]=b[1]+(b[2]||1)-0,a[3]=b[3]-0}else a[2]&&k.error(a[0]);a[0]=d++;return a},ATTR:function(a,b,c,d,e,f){var g=a[1]=a[1].replace(i,"");!f&&l.attrMap[g]&&(a[1]=l.attrMap[g]),a[4]=(a[4]||a[5]||"").replace(i,""),a[2]==="~="&&(a[4]=" "+a[4]+" ");return a},PSEUDO:function(b,c,d,e,f){if(b[1]==="not")if((a.exec(b[3])||"").length>1||/^\w/.test(b[3]))b[3]=k(b[3],null,null,c);else{var g=k.filter(b[3],c,d,!0^f);d||e.push.apply(e,g);return!1}else if(l.match.POS.test(b[0])||l.match.CHILD.test(b[0]))return!0;return b},POS:function(a){a.unshift(!0);return a}},filters:{enabled:function(a){return a.disabled===!1&&a.type!=="hidden"},disabled:function(a){return a.disabled===!0},checked:function(a){return a.checked===!0},selected:function(a){a.parentNode&&a.parentNode.selectedIndex;return a.selected===!0},parent:function(a){return!!a.firstChild},empty:function(a){return!a.firstChild},has:function(a,b,c){return!!k(c[3],a).length},header:function(a){return/h\d/i.test(a.nodeName)},text:function(a){var b=a.getAttribute("type"),c=a.type;return a.nodeName.toLowerCase()==="input"&&"text"===c&&(b===c||b===null)},radio:function(a){return a.nodeName.toLowerCase()==="input"&&"radio"===a.type},checkbox:function(a){return a.nodeName.toLowerCase()==="input"&&"checkbox"===a.type},file:function(a){return a.nodeName.toLowerCase()==="input"&&"file"===a.type},password:function(a){return a.nodeName.toLowerCase()==="input"&&"password"===a.type},submit:function(a){var b=a.nodeName.toLowerCase();return(b==="input"||b==="button")&&"submit"===a.type},image:function(a){return a.nodeName.toLowerCase()==="input"&&"image"===a.type},reset:function(a){var b=a.nodeName.toLowerCase();return(b==="input"||b==="button")&&"reset"===a.type},button:function(a){var b=a.nodeName.toLowerCase();return b==="input"&&"button"===a.type||b==="button"},input:function(a){return/input|select|textarea|button/i.test(a.nodeName)},focus:function(a){return a===a.ownerDocument.activeElement}},setFilters:{first:function(a,b){return b===0},last:function(a,b,c,d){return b===d.length-1},even:function(a,b){return b%2===0},odd:function(a,b){return b%2===1},lt:function(a,b,c){return bc[3]-0},nth:function(a,b,c){return c[3]-0===b},eq:function(a,b,c){return c[3]-0===b}},filter:{PSEUDO:function(a,b,c,d){var e=b[1],f=l.filters[e];if(f)return f(a,c,b,d);if(e==="contains")return(a.textContent||a.innerText||k.getText([a])||"").indexOf(b[3])>=0;if(e==="not"){var g=b[3];for(var h=0,i=g.length;h=0}},ID:function(a,b){return a.nodeType===1&&a.getAttribute("id")===b},TAG:function(a,b){return b==="*"&&a.nodeType===1||a.nodeName.toLowerCase()===b},CLASS:function(a,b){return(" "+(a.className||a.getAttribute("class"))+" ").indexOf(b)>-1},ATTR:function(a,b){var c=b[1],d=l.attrHandle[c]?l.attrHandle[c](a):a[c]!=null?a[c]:a.getAttribute(c),e=d+"",f=b[2],g=b[4];return d==null?f==="!=":f==="="?e===g:f==="*="?e.indexOf(g)>=0:f==="~="?(" "+e+" ").indexOf(g)>=0:g?f==="!="?e!==g:f==="^="?e.indexOf(g)===0:f==="$="?e.substr(e.length-g.length)===g:f==="|="?e===g||e.substr(0,g.length+1)===g+"-":!1:e&&d!==!1},POS:function(a,b,c,d){var e=b[2],f=l.setFilters[e];if(f)return f(a,c,b,d)}}},m=l.match.POS,n=function(a,b){return"\\"+(b-0+1)};for(var o in l.match)l.match[o]=new RegExp(l.match[o].source+/(?![^\[]*\])(?![^\(]*\))/.source),l.leftMatch[o]=new RegExp(/(^(?:.|\r|\n)*?)/.source+l.match[o].source.replace(/\\(\d+)/g,n));var p=function(a,b){a=Array.prototype.slice.call(a,0);if(b){b.push.apply(b,a);return b}return a};try{Array.prototype.slice.call(c.documentElement.childNodes,0)[0].nodeType}catch(q){p=function(a,b){var c=0,d=b||[];if(e.call(a)==="[object Array]")Array.prototype.push.apply(d,a);else if(typeof a.length=="number")for(var f=a.length;c",e.insertBefore(a,e.firstChild),c.getElementById(d)&&(l.find.ID=function(a,c,d){if(typeof c.getElementById!="undefined"&&!d){var e=c.getElementById(a[1]);return e?e.id===a[1]||typeof e.getAttributeNode!="undefined"&&e.getAttributeNode("id").nodeValue===a[1]?[e]:b:[]}},l.filter.ID=function(a,b){var c=typeof a.getAttributeNode!="undefined"&&a.getAttributeNode("id");return a.nodeType===1&&c&&c.nodeValue===b}),e.removeChild(a),e=a=null}(),function(){var a=c.createElement("div");a.appendChild(c.createComment("")),a.getElementsByTagName("*").length>0&&(l.find.TAG=function(a,b){var c=b.getElementsByTagName(a[1]);if(a[1]==="*"){var d=[];for(var e=0;c[e];e++)c[e].nodeType===1&&d.push(c[e]);c=d}return c}),a.innerHTML="",a.firstChild&&typeof a.firstChild.getAttribute!="undefined"&&a.firstChild.getAttribute("href")!=="#"&&(l.attrHandle.href=function(a){return a.getAttribute("href",2)}),a=null}(),c.querySelectorAll&&function(){var a=k,b=c.createElement("div"),d="__sizzle__";b.innerHTML="

";if(!b.querySelectorAll||b.querySelectorAll(".TEST").length!==0){k=function(b,e,f,g){e=e||c;if(!g&&!k.isXML(e)){var h=/^(\w+$)|^\.([\w\-]+$)|^#([\w\-]+$)/.exec(b);if(h&&(e.nodeType===1||e.nodeType===9)){if(h[1])return p(e.getElementsByTagName(b),f);if(h[2]&&l.find.CLASS&&e.getElementsByClassName)return p(e.getElementsByClassName(h[2]),f)}if(e.nodeType===9){if(b==="body"&&e.body)return p([e.body],f);if(h&&h[3]){var i=e.getElementById(h[3]);if(!i||!i.parentNode)return p([],f);if(i.id===h[3])return p([i],f)}try{return p(e.querySelectorAll(b),f)}catch(j){}}else if(e.nodeType===1&&e.nodeName.toLowerCase()!=="object"){var m=e,n=e.getAttribute("id"),o=n||d,q=e.parentNode,r=/^\s*[+~]/.test(b);n?o=o.replace(/'/g,"\\$&"):e.setAttribute("id",o),r&&q&&(e=e.parentNode);try{if(!r||q)return p(e.querySelectorAll("[id='"+o+"'] "+b),f)}catch(s){}finally{n||m.removeAttribute("id")}}}return a(b,e,f,g)};for(var e in a)k[e]=a[e];b=null}}(),function(){var a=c.documentElement,b=a.matchesSelector||a.mozMatchesSelector||a.webkitMatchesSelector||a.msMatchesSelector;if(b){var d=!b.call(c.createElement("div"),"div"),e=!1;try{b.call(c.documentElement,"[test!='']:sizzle")}catch(f){e=!0}k.matchesSelector=function(a,c){c=c.replace(/\=\s*([^'"\]]*)\s*\]/g,"='$1']");if(!k.isXML(a))try{if(e||!l.match.PSEUDO.test(c)&&!/!=/.test(c)){var f=b.call(a,c);if(f||!d||a.document&&a.document.nodeType!==11)return f}}catch(g){}return k(c,null,null,[a]).length>0}}}(),function(){var a=c.createElement("div");a.innerHTML="
";if(!!a.getElementsByClassName&&a.getElementsByClassName("e").length!==0){a.lastChild.className="e";if(a.getElementsByClassName("e").length===1)return;l.order.splice(1,0,"CLASS"),l.find.CLASS=function(a,b,c){if(typeof b.getElementsByClassName!="undefined"&&!c)return b.getElementsByClassName(a[1])},a=null}}(),c.documentElement.contains?k.contains=function(a,b){return a!==b&&(a.contains?a.contains(b):!0)}:c.documentElement.compareDocumentPosition?k.contains=function(a,b){return!!(a.compareDocumentPosition(b)&16)}:k.contains=function(){return!1},k.isXML=function(a){var b=(a?a.ownerDocument||a:0).documentElement;return b?b.nodeName!=="HTML":!1};var v=function(a,b){var c,d=[],e="",f=b.nodeType?[b]:b;while(c=l.match.PSEUDO.exec(a))e+=c[0],a=a.replace(l.match.PSEUDO,"");a=l.relative[a]?a+"*":a;for(var g=0,h=f.length;g0)for(h=g;h0:this.filter(a).length>0)},closest:function(a,b){var c=[],d,e,g=this[0];if(f.isArray(a)){var h,i,j={},k=1;if(g&&a.length){for(d=0,e=a.length;d-1:f(g).is(h))&&c.push({selector:i,elem:g,level:k});g=g.parentNode,k++}}return c}var l=S.test(a)||typeof a!="string"?f(a,b||this.context):0;for(d=0,e=this.length;d-1:f.find.matchesSelector(g,a)){c.push(g);break}g=g.parentNode;if(!g||!g.ownerDocument||g===b||g.nodeType===11)break}}c=c.length>1?f.unique(c):c;return this.pushStack(c,"closest",a)},index:function(a){if(!a)return this[0]&&this[0].parentNode?this.prevAll().length:-1;if(typeof a=="string")return f.inArray(this[0],f(a));return f.inArray(a.jquery?a[0]:a,this)},add:function(a,b){var c=typeof a=="string"?f(a,b):f.makeArray(a&&a.nodeType?[a]:a),d=f.merge(this.get(),c);return this.pushStack(U(c[0])||U(d[0])?d:f.unique(d))},andSelf:function(){return this.add(this.prevObject)}}),f.each({parent:function(a){var b=a.parentNode;return b&&b.nodeType!==11?b:null},parents:function(a){return f.dir(a,"parentNode")},parentsUntil:function(a,b,c){return f.dir(a,"parentNode",c)},next:function(a){return f.nth(a,2,"nextSibling")},prev:function(a){return f.nth(a,2,"previousSibling")},nextAll:function(a){return f.dir(a,"nextSibling")},prevAll:function(a){return f.dir(a,"previousSibling")},nextUntil:function(a,b,c){return f.dir(a,"nextSibling",c)},prevUntil:function(a,b,c){return f.dir(a,"previousSibling",c)},siblings:function(a){return f.sibling(a.parentNode.firstChild,a)},children:function(a){return f.sibling(a.firstChild)},contents:function(a){return f.nodeName(a,"iframe")?a.contentDocument||a.contentWindow.document:f.makeArray(a.childNodes)}},function(a,b){f.fn[a]=function(c,d){var e=f.map(this,b,c),g=R.call(arguments);N.test(a)||(d=c),d&&typeof d=="string"&&(e=f.filter(d,e)),e=this.length>1&&!T[a]?f.unique(e):e,(this.length>1||P.test(d))&&O.test(a)&&(e=e.reverse());return this.pushStack(e,a,g.join(","))}}),f.extend({filter:function(a,b,c){c&&(a=":not("+a+")");return b.length===1?f.find.matchesSelector(b[0],a)?[b[0]]:[]:f.find.matches(a,b)},dir:function(a,c,d){var e=[],g=a[c];while(g&&g.nodeType!==9&&(d===b||g.nodeType!==1||!f(g).is(d)))g.nodeType===1&&e.push(g),g=g[c];return e},nth:function(a,b,c,d){b=b||1;var e=0;for(;a;a=a[c])if(a.nodeType===1&&++e===b)break;return a},sibling:function(a,b){var c=[];for(;a;a=a.nextSibling)a.nodeType===1&&a!==b&&c.push(a);return c}});var W=/ jQuery\d+="(?:\d+|null)"/g,X=/^\s+/,Y=/<(?!area|br|col|embed|hr|img|input|link|meta|param)(([\w:]+)[^>]*)\/>/ig,Z=/<([\w:]+)/,$=/",""],legend:[1,"
","
"],thead:[1,"","
"],tr:[2,"","
"],td:[3,"","
"],col:[2,"","
"],area:[1,"",""],_default:[0,"",""]};be.optgroup=be.option,be.tbody=be.tfoot=be.colgroup=be.caption=be.thead,be.th=be.td,f.support.htmlSerialize||(be._default=[1,"div
","
"]),f.fn.extend({text:function(a){if(f.isFunction(a))return this.each(function(b){var c=f(this);c.text(a.call(this,b,c.text()))});if(typeof a!="object"&&a!==b)return this.empty().append((this[0]&&this[0].ownerDocument||c).createTextNode(a));return f.text(this)},wrapAll:function(a){if(f.isFunction(a))return this.each(function(b){f(this).wrapAll(a.call(this,b))});if(this[0]){var b=f(a,this[0].ownerDocument).eq(0).clone(!0);this[0].parentNode&&b.insertBefore(this[0]),b.map(function(){var a=this;while(a.firstChild&&a.firstChild.nodeType===1)a=a.firstChild;return a}).append(this)}return this},wrapInner:function(a){if(f.isFunction(a))return this.each(function(b){f(this).wrapInner(a.call(this,b))});return this.each(function(){var b=f(this),c=b.contents();c.length?c.wrapAll(a):b.append(a)})},wrap:function(a){return this.each(function(){f(this).wrapAll(a)})},unwrap:function(){return this.parent().each(function(){f.nodeName(this,"body")||f(this).replaceWith(this.childNodes)}).end()},append:function(){return this.domManip(arguments,!0,function(a){this.nodeType===1&&this.appendChild(a)})},prepend:function(){return this.domManip(arguments,!0,function(a){this.nodeType===1&&this.insertBefore(a,this.firstChild)})},before:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,!1,function(a){this.parentNode.insertBefore(a,this)});if(arguments.length){var a=f(arguments[0]);a.push.apply(a,this.toArray());return this.pushStack(a,"before",arguments)}},after:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,!1,function(a){this.parentNode.insertBefore(a,this.nextSibling)});if(arguments.length){var a=this.pushStack(this,"after",arguments);a.push.apply(a,f(arguments[0]).toArray());return a}},remove:function(a,b){for(var c=0,d;(d=this[c])!=null;c++)if(!a||f.filter(a,[d]).length)!b&&d.nodeType===1&&(f.cleanData(d.getElementsByTagName("*")),f.cleanData([d])),d.parentNode&&d.parentNode.removeChild(d);return this},empty:function(){for(var a=0,b;(b=this[a])!=null;a++){b.nodeType===1&&f.cleanData(b.getElementsByTagName("*"));while(b.firstChild)b.removeChild(b.firstChild)}return this},clone:function(a,b){a=a==null?!1:a,b=b==null?a:b;return this.map(function(){return f.clone(this,a,b)})},html:function(a){if(a===b)return this[0]&&this[0].nodeType===1?this[0].innerHTML.replace(W,""):null;if(typeof a=="string"&&!ba.test(a)&&(f.support.leadingWhitespace||!X.test(a))&&!be[(Z.exec(a)||["",""])[1].toLowerCase()]){a=a.replace(Y,"<$1>");try{for(var c=0,d=this.length;c1&&l0?this.clone(!0):this).get();f(e[h])[b](j),d=d.concat(j)}return this.pushStack(d,a,e.selector)}}),f.extend({clone:function(a,b,c){var d=a.cloneNode(!0),e,g,h;if((!f.support.noCloneEvent||!f.support.noCloneChecked)&&(a.nodeType===1||a.nodeType===11)&&!f.isXMLDoc(a)){bh(a,d),e=bi(a),g=bi(d);for(h=0;e[h];++h)g[h]&&bh(e[h],g[h])}if(b){bg(a,d);if(c){e=bi(a),g=bi(d);for(h=0;e[h];++h)bg(e[h],g[h])}}e=g=null;return d},clean:function(a,b,d,e){var g;b=b||c,typeof b.createElement=="undefined"&&(b=b.ownerDocument||b[0]&&b[0].ownerDocument||c);var h=[],i;for(var j=0,k;(k=a[j])!=null;j++){typeof k=="number"&&(k+="");if(!k)continue;if(typeof k=="string")if(!_.test(k))k=b.createTextNode(k);else{k=k.replace(Y,"<$1>");var l=(Z.exec(k)||["",""])[1].toLowerCase(),m=be[l]||be._default,n=m[0],o=b.createElement("div");o.innerHTML=m[1]+k+m[2];while(n--)o=o.lastChild;if(!f.support.tbody){var p=$.test(k),q=l==="table"&&!p?o.firstChild&&o.firstChild.childNodes:m[1]===""&&!p?o.childNodes:[];for(i=q.length-1;i>=0;--i)f.nodeName(q[i],"tbody")&&!q[i].childNodes.length&&q[i].parentNode.removeChild(q[i])}!f.support.leadingWhitespace&&X.test(k)&&o.insertBefore(b.createTextNode(X.exec(k)[0]),o.firstChild),k=o.childNodes}var r;if(!f.support.appendChecked)if(k[0]&&typeof (r=k.length)=="number")for(i=0;i=0)return b+"px"}}}),f.support.opacity||(f.cssHooks.opacity={get:function(a,b){return bn.test((b&&a.currentStyle?a.currentStyle.filter:a.style.filter)||"")?parseFloat(RegExp.$1)/100+"":b?"1":""},set:function(a,b){var c=a.style,d=a.currentStyle,e=f.isNaN(b)?"":"alpha(opacity="+b*100+")",g=d&&d.filter||c.filter||"";c.zoom=1;if(b>=1&&f.trim(g.replace(bm,""))===""){c.removeAttribute("filter");if(d&&!d.filter)return}c.filter=bm.test(g)?g.replace(bm,e):g+" "+e}}),f(function(){f.support.reliableMarginRight||(f.cssHooks.marginRight={get:function(a,b){var c;f.swap(a,{display:"inline-block"},function(){b?c=bv(a,"margin-right","marginRight"):c=a.style.marginRight});return c}})}),c.defaultView&&c.defaultView.getComputedStyle&&(bw=function(a,c){var d,e,g;c=c.replace(bo,"-$1").toLowerCase();if(!(e=a.ownerDocument.defaultView))return b;if(g=e.getComputedStyle(a,null))d=g.getPropertyValue(c),d===""&&!f.contains(a.ownerDocument.documentElement,a)&&(d=f.style(a,c));return d}),c.documentElement.currentStyle&&(bx=function(a,b){var c,d=a.currentStyle&&a.currentStyle[b],e=a.runtimeStyle&&a.runtimeStyle[b],f=a.style;!bp.test(d)&&bq.test(d)&&(c=f.left,e&&(a.runtimeStyle.left=a.currentStyle.left),f.left=b==="fontSize"?"1em":d||0,d=f.pixelLeft+"px",f.left=c,e&&(a.runtimeStyle.left=e));return d===""?"auto":d}),bv=bw||bx,f.expr&&f.expr.filters&&(f.expr.filters.hidden=function(a){var b=a.offsetWidth,c=a.offsetHeight;return b===0&&c===0||!f.support.reliableHiddenOffsets&&(a.style.display||f.css(a,"display"))==="none"},f.expr.filters.visible=function(a){return!f.expr.filters.hidden(a)});var bz=/%20/g,bA=/\[\]$/,bB=/\r?\n/g,bC=/#.*$/,bD=/^(.*?):[ \t]*([^\r\n]*)\r?$/mg,bE=/^(?:color|date|datetime|datetime-local|email|hidden|month|number|password|range|search|tel|text|time|url|week)$/i,bF=/^(?:about|app|app\-storage|.+\-extension|file|res|widget):$/,bG=/^(?:GET|HEAD)$/,bH=/^\/\//,bI=/\?/,bJ=/)<[^<]*)*<\/script>/gi,bK=/^(?:select|textarea)/i,bL=/\s+/,bM=/([?&])_=[^&]*/,bN=/^([\w\+\.\-]+:)(?:\/\/([^\/?#:]*)(?::(\d+))?)?/,bO=f.fn.load,bP={},bQ={},bR,bS,bT=["*/"]+["*"];try{bR=e.href}catch(bU){bR=c.createElement("a"),bR.href="",bR=bR.href}bS=bN.exec(bR.toLowerCase())||[],f.fn.extend({load:function(a,c,d){if(typeof a!="string"&&bO)return bO.apply(this,arguments);if(!this.length)return this;var e=a.indexOf(" ");if(e>=0){var g=a.slice(e,a.length);a=a.slice(0,e)}var h="GET";c&&(f.isFunction(c)?(d=c,c=b):typeof c=="object"&&(c=f.param(c,f.ajaxSettings.traditional),h="POST"));var i=this;f.ajax({url:a,type:h,dataType:"html",data:c,complete:function(a,b,c){c=a.responseText,a.isResolved()&&(a.done(function(a){c=a}),i.html(g?f("
").append(c.replace(bJ,"")).find(g):c)),d&&i.each(d,[c,b,a])}});return this},serialize:function(){return f.param(this.serializeArray())},serializeArray:function(){return this.map(function(){return this.elements?f.makeArray(this.elements):this}).filter(function(){return this.name&&!this.disabled&&(this.checked||bK.test(this.nodeName)||bE.test(this.type))}).map(function(a,b){var c=f(this).val();return c==null?null:f.isArray(c)?f.map(c,function(a,c){return{name:b.name,value:a.replace(bB,"\r\n")}}):{name:b.name,value:c.replace(bB,"\r\n")}}).get()}}),f.each("ajaxStart ajaxStop ajaxComplete ajaxError ajaxSuccess ajaxSend".split(" "),function(a,b){f.fn[b]=function(a){return this.bind(b,a)}}),f.each(["get","post"],function(a,c){f[c]=function(a,d,e,g){f.isFunction(d)&&(g=g||e,e=d,d=b);return f.ajax({type:c,url:a,data:d,success:e,dataType:g})}}),f.extend({getScript:function(a,c){return f.get(a,b,c,"script")},getJSON:function(a,b,c){return f.get(a,b,c,"json")},ajaxSetup:function(a,b){b?bX(a,f.ajaxSettings):(b=a,a=f.ajaxSettings),bX(a,b);return a},ajaxSettings:{url:bR,isLocal:bF.test(bS[1]),global:!0,type:"GET",contentType:"application/x-www-form-urlencoded",processData:!0,async:!0,accepts:{xml:"application/xml, text/xml",html:"text/html",text:"text/plain",json:"application/json, text/javascript","*":bT},contents:{xml:/xml/,html:/html/,json:/json/},responseFields:{xml:"responseXML",text:"responseText"},converters:{"* text":a.String,"text html":!0,"text json":f.parseJSON,"text xml":f.parseXML},flatOptions:{context:!0,url:!0}},ajaxPrefilter:bV(bP),ajaxTransport:bV(bQ),ajax:function(a,c){function w(a,c,l,m){if(s!==2){s=2,q&&clearTimeout(q),p=b,n=m||"",v.readyState=a>0?4:0;var o,r,u,w=c,x=l?bZ(d,v,l):b,y,z;if(a>=200&&a<300||a===304){if(d.ifModified){if(y=v.getResponseHeader("Last-Modified"))f.lastModified[k]=y;if(z=v.getResponseHeader("Etag"))f.etag[k]=z}if(a===304)w="notmodified",o=!0;else try{r=b$(d,x),w="success",o=!0}catch(A){w="parsererror",u=A}}else{u=w;if(!w||a)w="error",a<0&&(a=0)}v.status=a,v.statusText=""+(c||w),o?h.resolveWith(e,[r,w,v]):h.rejectWith(e,[v,w,u]),v.statusCode(j),j=b,t&&g.trigger("ajax"+(o?"Success":"Error"),[v,d,o?r:u]),i.resolveWith(e,[v,w]),t&&(g.trigger("ajaxComplete",[v,d]),--f.active||f.event.trigger("ajaxStop"))}}typeof a=="object"&&(c=a,a=b),c=c||{};var d=f.ajaxSetup({},c),e=d.context||d,g=e!==d&&(e.nodeType||e instanceof f)?f(e):f.event,h=f.Deferred(),i=f._Deferred(),j=d.statusCode||{},k,l={},m={},n,o,p,q,r,s=0,t,u,v={readyState:0,setRequestHeader:function(a,b){if(!s){var c=a.toLowerCase();a=m[c]=m[c]||a,l[a]=b}return this},getAllResponseHeaders:function(){return s===2?n:null},getResponseHeader:function(a){var c;if(s===2){if(!o){o={};while(c=bD.exec(n))o[c[1].toLowerCase()]=c[2]}c=o[a.toLowerCase()]}return c===b?null:c},overrideMimeType:function(a){s||(d.mimeType=a);return this},abort:function(a){a=a||"abort",p&&p.abort(a),w(0,a);return this}};h.promise(v),v.success=v.done,v.error=v.fail,v.complete=i.done,v.statusCode=function(a){if(a){var b;if(s<2)for(b in a)j[b]=[j[b],a[b]];else b=a[v.status],v.then(b,b)}return this},d.url=((a||d.url)+"").replace(bC,"").replace(bH,bS[1]+"//"),d.dataTypes=f.trim(d.dataType||"*").toLowerCase().split(bL),d.crossDomain==null&&(r=bN.exec(d.url.toLowerCase()),d.crossDomain=!(!r||r[1]==bS[1]&&r[2]==bS[2]&&(r[3]||(r[1]==="http:"?80:443))==(bS[3]||(bS[1]==="http:"?80:443)))),d.data&&d.processData&&typeof d.data!="string"&&(d.data=f.param(d.data,d.traditional)),bW(bP,d,c,v);if(s===2)return!1;t=d.global,d.type=d.type.toUpperCase(),d.hasContent=!bG.test(d.type),t&&f.active++===0&&f.event.trigger("ajaxStart");if(!d.hasContent){d.data&&(d.url+=(bI.test(d.url)?"&":"?")+d.data,delete d.data),k=d.url;if(d.cache===!1){var x=f.now(),y=d.url.replace(bM,"$1_="+x);d.url=y+(y===d.url?(bI.test(d.url)?"&":"?")+"_="+x:"")}}(d.data&&d.hasContent&&d.contentType!==!1||c.contentType)&&v.setRequestHeader("Content-Type",d.contentType),d.ifModified&&(k=k||d.url,f.lastModified[k]&&v.setRequestHeader("If-Modified-Since",f.lastModified[k]),f.etag[k]&&v.setRequestHeader("If-None-Match",f.etag[k])),v.setRequestHeader("Accept",d.dataTypes[0]&&d.accepts[d.dataTypes[0]]?d.accepts[d.dataTypes[0]]+(d.dataTypes[0]!=="*"?", "+bT+"; q=0.01":""):d.accepts["*"]);for(u in d.headers)v.setRequestHeader(u,d.headers[u]);if(d.beforeSend&&(d.beforeSend.call(e,v,d)===!1||s===2)){v.abort();return!1}for(u in{success:1,error:1,complete:1})v[u](d[u]);p=bW(bQ,d,c,v);if(!p)w(-1,"No Transport");else{v.readyState=1,t&&g.trigger("ajaxSend",[v,d]),d.async&&d.timeout>0&&(q=setTimeout(function(){v.abort("timeout")},d.timeout));try{s=1,p.send(l,w)}catch(z){s<2?w(-1,z):f.error(z)}}return v},param:function(a,c){var d=[],e=function(a,b){b=f.isFunction(b)?b():b,d[d.length]=encodeURIComponent(a)+"="+encodeURIComponent(b)};c===b&&(c=f.ajaxSettings.traditional);if(f.isArray(a)||a.jquery&&!f.isPlainObject(a))f.each(a,function(){e(this.name,this.value)});else for(var g in a)bY(g,a[g],c,e);return d.join("&").replace(bz,"+")}}),f.extend({active:0,lastModified:{},etag:{}});var b_=f.now(),ca=/(\=)\?(&|$)|\?\?/i;f.ajaxSetup({jsonp:"callback",jsonpCallback:function(){return f.expando+"_"+b_++}}),f.ajaxPrefilter("json jsonp",function(b,c,d){var e=b.contentType==="application/x-www-form-urlencoded"&&typeof b.data=="string";if(b.dataTypes[0]==="jsonp"||b.jsonp!==!1&&(ca.test(b.url)||e&&ca.test(b.data))){var g,h=b.jsonpCallback=f.isFunction(b.jsonpCallback)?b.jsonpCallback():b.jsonpCallback,i=a[h],j=b.url,k=b.data,l="$1"+h+"$2";b.jsonp!==!1&&(j=j.replace(ca,l),b.url===j&&(e&&(k=k.replace(ca,l)),b.data===k&&(j+=(/\?/.test(j)?"&":"?")+b.jsonp+"="+h))),b.url=j,b.data=k,a[h]=function(a){g=[a]},d.always(function(){a[h]=i,g&&f.isFunction(i)&&a[h](g[0])}),b.converters["script json"]=function(){g||f.error(h+" was not called");return g[0]},b.dataTypes[0]="json";return"script"}}),f.ajaxSetup({accepts:{script:"text/javascript, application/javascript, application/ecmascript, application/x-ecmascript"},contents:{script:/javascript|ecmascript/},converters:{"text script":function(a){f.globalEval(a);return a}}}),f.ajaxPrefilter("script",function(a){a.cache===b&&(a.cache=!1),a.crossDomain&&(a.type="GET",a.global=!1)}),f.ajaxTransport("script",function(a){if(a.crossDomain){var d,e=c.head||c.getElementsByTagName("head")[0]||c.documentElement;return{send:function(f,g){d=c.createElement("script"),d.async="async",a.scriptCharset&&(d.charset=a.scriptCharset),d.src=a.url,d.onload=d.onreadystatechange=function(a,c){if(c||!d.readyState||/loaded|complete/.test(d.readyState))d.onload=d.onreadystatechange=null,e&&d.parentNode&&e.removeChild(d),d=b,c||g(200,"success")},e.insertBefore(d,e.firstChild)},abort:function(){d&&d.onload(0,1)}}}});var cb=a.ActiveXObject?function(){for(var a in cd)cd[a](0,1)}:!1,cc=0,cd;f.ajaxSettings.xhr=a.ActiveXObject?function(){return!this.isLocal&&ce()||cf()}:ce,function(a){f.extend(f.support,{ajax:!!a,cors:!!a&&"withCredentials"in a})}(f.ajaxSettings.xhr()),f.support.ajax&&f.ajaxTransport(function(c){if(!c.crossDomain||f.support.cors){var d;return{send:function(e,g){var h=c.xhr(),i,j;c.username?h.open(c.type,c.url,c.async,c.username,c.password):h.open(c.type,c.url,c.async);if(c.xhrFields)for(j in c.xhrFields)h[j]=c.xhrFields[j];c.mimeType&&h.overrideMimeType&&h.overrideMimeType(c.mimeType),!c.crossDomain&&!e["X-Requested-With"]&&(e["X-Requested-With"]="XMLHttpRequest");try{for(j in e)h.setRequestHeader(j,e[j])}catch(k){}h.send(c.hasContent&&c.data||null),d=function(a,e){var j,k,l,m,n;try{if(d&&(e||h.readyState===4)){d=b,i&&(h.onreadystatechange=f.noop,cb&&delete cd[i]);if(e)h.readyState!==4&&h.abort();else{j=h.status,l=h.getAllResponseHeaders(),m={},n=h.responseXML,n&&n.documentElement&&(m.xml=n),m.text=h.responseText;try{k=h.statusText}catch(o){k=""}!j&&c.isLocal&&!c.crossDomain?j=m.text?200:404:j===1223&&(j=204)}}}catch(p){e||g(-1,p)}m&&g(j,k,m,l)},!c.async||h.readyState===4?d():(i=++cc,cb&&(cd||(cd={},f(a).unload(cb)),cd[i]=d),h.onreadystatechange=d)},abort:function(){d&&d(0,1)}}}});var cg={},ch,ci,cj=/^(?:toggle|show|hide)$/,ck=/^([+\-]=)?([\d+.\-]+)([a-z%]*)$/i,cl,cm=[["height","marginTop","marginBottom","paddingTop","paddingBottom"],["width","marginLeft","marginRight","paddingLeft","paddingRight"],["opacity"]],cn;f.fn.extend({show:function(a,b,c){var d,e;if(a||a===0)return this.animate(cq("show",3),a,b,c);for(var g=0,h=this.length;g=e.duration+this.startTime){this.now=this.end,this.pos=this.state=1,this.update(),e.animatedProperties[this.prop]=!0;for(g in e.animatedProperties)e.animatedProperties[g]!==!0&&(c=!1);if(c){e.overflow!=null&&!f.support.shrinkWrapBlocks&&f.each(["","X","Y"],function(a,b){d.style["overflow"+b]=e.overflow[a]}),e.hide&&f(d).hide();if(e.hide||e.show)for(var i in e.animatedProperties)f.style(d,i,e.orig[i]);e.complete.call(d)}return!1}e.duration==Infinity?this.now=b:(h=b-this.startTime,this.state=h/e.duration,this.pos=f.easing[e.animatedProperties[this.prop]](this.state,h,0,1,e.duration),this.now=this.start+(this.end-this.start)*this.pos),this.update();return!0}},f.extend(f.fx,{tick:function(){for(var a=f.timers,b=0;b
";f.extend(b.style,{position:"absolute",top:0,left:0,margin:0,border:0,width:"1px",height:"1px",visibility:"hidden"}),b.innerHTML=j,a.insertBefore(b,a.firstChild),d=b.firstChild,e=d.firstChild,h=d.nextSibling.firstChild.firstChild,this.doesNotAddBorder=e.offsetTop!==5,this.doesAddBorderForTableAndCells=h.offsetTop===5,e.style.position="fixed",e.style.top="20px",this.supportsFixedPosition=e.offsetTop===20||e.offsetTop===15,e.style.position=e.style.top="",d.style.overflow="hidden",d.style.position="relative",this.subtractsBorderForOverflowNotVisible=e.offsetTop===-5,this.doesNotIncludeMarginInBodyOffset=a.offsetTop!==i,a.removeChild(b),f.offset.initialize=f.noop},bodyOffset:function(a){var b=a.offsetTop,c=a.offsetLeft;f.offset.initialize(),f.offset.doesNotIncludeMarginInBodyOffset&&(b+=parseFloat(f.css(a,"marginTop"))||0,c+=parseFloat(f.css(a,"marginLeft"))||0);return{top:b,left:c}},setOffset:function(a,b,c){var d=f.css(a,"position");d==="static"&&(a.style.position="relative");var e=f(a),g=e.offset(),h=f.css(a,"top"),i=f.css(a,"left"),j=(d==="absolute"||d==="fixed")&&f.inArray("auto",[h,i])>-1,k={},l={},m,n;j?(l=e.position(),m=l.top,n=l.left):(m=parseFloat(h)||0,n=parseFloat(i)||0),f.isFunction(b)&&(b=b.call(a,c,g)),b.top!=null&&(k.top=b.top-g.top+m),b.left!=null&&(k.left=b.left-g.left+n),"using"in b?b.using.call(a,k):e.css(k)}},f.fn.extend({position:function(){if(!this[0])return null;var a=this[0],b=this.offsetParent(),c=this.offset(),d=ct.test(b[0].nodeName)?{top:0,left:0}:b.offset();c.top-=parseFloat(f.css(a,"marginTop"))||0,c.left-=parseFloat(f.css(a,"marginLeft"))||0,d.top+=parseFloat(f.css(b[0],"borderTopWidth"))||0,d.left+=parseFloat(f.css(b[0],"borderLeftWidth"))||0;return{top:c.top-d.top,left:c.left-d.left}},offsetParent:function(){return this.map(function(){var a=this.offsetParent||c.body;while(a&&!ct.test(a.nodeName)&&f.css(a,"position")==="static")a=a.offsetParent;return a})}}),f.each(["Left","Top"],function(a,c){var d="scroll"+c;f.fn[d]=function(c){var e,g;if(c===b){e=this[0];if(!e)return null;g=cu(e);return g?"pageXOffset"in g?g[a?"pageYOffset":"pageXOffset"]:f.support.boxModel&&g.document.documentElement[d]||g.document.body[d]:e[d]}return this.each(function(){g=cu(this),g?g.scrollTo(a?f(g).scrollLeft():c,a?c:f(g).scrollTop()):this[d]=c})}}),f.each(["Height","Width"],function(a,c){var d=c.toLowerCase();f.fn["inner"+c]=function(){var a=this[0];return a&&a.style?parseFloat(f.css(a,d,"padding")):null},f.fn["outer"+c]=function(a){var b=this[0];return b&&b.style?parseFloat(f.css(b,d,a?"margin":"border")):null},f.fn[d]=function(a){var e=this[0];if(!e)return a==null?null:this;if(f.isFunction(a))return this.each(function(b){var c=f(this);c[d](a.call(this,b,c[d]()))});if(f.isWindow(e)){var g=e.document.documentElement["client"+c],h=e.document.body;return e.document.compatMode==="CSS1Compat"&&g||h&&h["client"+c]||g}if(e.nodeType===9)return Math.max(e.documentElement["client"+c],e.body["scroll"+c],e.documentElement["scroll"+c],e.body["offset"+c],e.documentElement["offset"+c]);if(a===b){var i=f.css(e,d),j=parseFloat(i);return f.isNaN(j)?i:j}return this.css(d,typeof a=="string"?a:a+"px")}}),a.jQuery=a.$=f})(window); } -})(window);/** - * Copyright 2010 Tim Down. - * - * Licensed under the Apache License, Version 2.0 (the "License"); - * you may not use this file except in compliance with the License. - * You may obtain a copy of the License at - * - * http://www.apache.org/licenses/LICENSE-2.0 - * - * Unless required by applicable law or agreed to in writing, software - * distributed under the License is distributed on an "AS IS" BASIS, - * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - * See the License for the specific language governing permissions and - * limitations under the License. - */ - -/** - * jshashtable - * - * jshashtable is a JavaScript implementation of a hash table. It creates a single constructor function called Hashtable - * in the global scope. - * - * Author: Tim Down - * Version: 2.1 - * Build date: 21 March 2010 - * Website: http://www.timdown.co.uk/jshashtable - */ - -var Hashtable = (function() { - var FUNCTION = "function"; - - var arrayRemoveAt = (typeof Array.prototype.splice == FUNCTION) ? - function(arr, idx) { - arr.splice(idx, 1); - } : - - function(arr, idx) { - var itemsAfterDeleted, i, len; - if (idx === arr.length - 1) { - arr.length = idx; - } else { - itemsAfterDeleted = arr.slice(idx + 1); - arr.length = idx; - for (i = 0, len = itemsAfterDeleted.length; i < len; ++i) { - arr[idx + i] = itemsAfterDeleted[i]; - } - } - }; - - function hashObject(obj) { - var hashCode; - if (typeof obj == "string") { - return obj; - } else if (typeof obj.hashCode == FUNCTION) { - // Check the hashCode method really has returned a string - hashCode = obj.hashCode(); - return (typeof hashCode == "string") ? hashCode : hashObject(hashCode); - } else if (typeof obj.toString == FUNCTION) { - return obj.toString(); - } else { - try { - return String(obj); - } catch (ex) { - // For host objects (such as ActiveObjects in IE) that have no toString() method and throw an error when - // passed to String() - return Object.prototype.toString.call(obj); - } - } - } - - function equals_fixedValueHasEquals(fixedValue, variableValue) { - return fixedValue.equals(variableValue); - } - - function equals_fixedValueNoEquals(fixedValue, variableValue) { - return (typeof variableValue.equals == FUNCTION) ? - variableValue.equals(fixedValue) : (fixedValue === variableValue); - } - - function createKeyValCheck(kvStr) { - return function(kv) { - if (kv === null) { - throw new Error("null is not a valid " + kvStr); - } else if (typeof kv == "undefined") { - throw new Error(kvStr + " must not be undefined"); - } - }; - } - - var checkKey = createKeyValCheck("key"), checkValue = createKeyValCheck("value"); - - /*----------------------------------------------------------------------------------------------------------------*/ - - function Bucket(hash, firstKey, firstValue, equalityFunction) { - this[0] = hash; - this.entries = []; - this.addEntry(firstKey, firstValue); - - if (equalityFunction !== null) { - this.getEqualityFunction = function() { - return equalityFunction; - }; - } - } - - var EXISTENCE = 0, ENTRY = 1, ENTRY_INDEX_AND_VALUE = 2; - - function createBucketSearcher(mode) { - return function(key) { - var i = this.entries.length, entry, equals = this.getEqualityFunction(key); - while (i--) { - entry = this.entries[i]; - if ( equals(key, entry[0]) ) { - switch (mode) { - case EXISTENCE: - return true; - case ENTRY: - return entry; - case ENTRY_INDEX_AND_VALUE: - return [ i, entry[1] ]; - } - } - } - return false; - }; - } - - function createBucketLister(entryProperty) { - return function(aggregatedArr) { - var startIndex = aggregatedArr.length; - for (var i = 0, len = this.entries.length; i < len; ++i) { - aggregatedArr[startIndex + i] = this.entries[i][entryProperty]; - } - }; - } - - Bucket.prototype = { - getEqualityFunction: function(searchValue) { - return (typeof searchValue.equals == FUNCTION) ? equals_fixedValueHasEquals : equals_fixedValueNoEquals; - }, - - getEntryForKey: createBucketSearcher(ENTRY), - - getEntryAndIndexForKey: createBucketSearcher(ENTRY_INDEX_AND_VALUE), - - removeEntryForKey: function(key) { - var result = this.getEntryAndIndexForKey(key); - if (result) { - arrayRemoveAt(this.entries, result[0]); - return result[1]; - } - return null; - }, - - addEntry: function(key, value) { - this.entries[this.entries.length] = [key, value]; - }, - - keys: createBucketLister(0), - - values: createBucketLister(1), - - getEntries: function(entries) { - var startIndex = entries.length; - for (var i = 0, len = this.entries.length; i < len; ++i) { - // Clone the entry stored in the bucket before adding to array - entries[startIndex + i] = this.entries[i].slice(0); - } - }, - - containsKey: createBucketSearcher(EXISTENCE), - - containsValue: function(value) { - var i = this.entries.length; - while (i--) { - if ( value === this.entries[i][1] ) { - return true; - } - } - return false; - } - }; - - /*----------------------------------------------------------------------------------------------------------------*/ - - // Supporting functions for searching hashtable buckets - - function searchBuckets(buckets, hash) { - var i = buckets.length, bucket; - while (i--) { - bucket = buckets[i]; - if (hash === bucket[0]) { - return i; - } - } - return null; - } - - function getBucketForHash(bucketsByHash, hash) { - var bucket = bucketsByHash[hash]; - - // Check that this is a genuine bucket and not something inherited from the bucketsByHash's prototype - return ( bucket && (bucket instanceof Bucket) ) ? bucket : null; - } - - /*----------------------------------------------------------------------------------------------------------------*/ - - function Hashtable(hashingFunctionParam, equalityFunctionParam) { - var that = this; - var buckets = []; - var bucketsByHash = {}; - - var hashingFunction = (typeof hashingFunctionParam == FUNCTION) ? hashingFunctionParam : hashObject; - var equalityFunction = (typeof equalityFunctionParam == FUNCTION) ? equalityFunctionParam : null; - - this.put = function(key, value) { - checkKey(key); - checkValue(value); - var hash = hashingFunction(key), bucket, bucketEntry, oldValue = null; - - // Check if a bucket exists for the bucket key - bucket = getBucketForHash(bucketsByHash, hash); - if (bucket) { - // Check this bucket to see if it already contains this key - bucketEntry = bucket.getEntryForKey(key); - if (bucketEntry) { - // This bucket entry is the current mapping of key to value, so replace old value and we're done. - oldValue = bucketEntry[1]; - bucketEntry[1] = value; - } else { - // The bucket does not contain an entry for this key, so add one - bucket.addEntry(key, value); - } - } else { - // No bucket exists for the key, so create one and put our key/value mapping in - bucket = new Bucket(hash, key, value, equalityFunction); - buckets[buckets.length] = bucket; - bucketsByHash[hash] = bucket; - } - return oldValue; - }; - - this.get = function(key) { - checkKey(key); - - var hash = hashingFunction(key); - - // Check if a bucket exists for the bucket key - var bucket = getBucketForHash(bucketsByHash, hash); - if (bucket) { - // Check this bucket to see if it contains this key - var bucketEntry = bucket.getEntryForKey(key); - if (bucketEntry) { - // This bucket entry is the current mapping of key to value, so return the value. - return bucketEntry[1]; - } - } - return null; - }; - - this.containsKey = function(key) { - checkKey(key); - var bucketKey = hashingFunction(key); - - // Check if a bucket exists for the bucket key - var bucket = getBucketForHash(bucketsByHash, bucketKey); - - return bucket ? bucket.containsKey(key) : false; - }; - - this.containsValue = function(value) { - checkValue(value); - var i = buckets.length; - while (i--) { - if (buckets[i].containsValue(value)) { - return true; - } - } - return false; - }; - - this.clear = function() { - buckets.length = 0; - bucketsByHash = {}; - }; - - this.isEmpty = function() { - return !buckets.length; - }; - - var createBucketAggregator = function(bucketFuncName) { - return function() { - var aggregated = [], i = buckets.length; - while (i--) { - buckets[i][bucketFuncName](aggregated); - } - return aggregated; - }; - }; - - this.keys = createBucketAggregator("keys"); - this.values = createBucketAggregator("values"); - this.entries = createBucketAggregator("getEntries"); - - this.remove = function(key) { - checkKey(key); - - var hash = hashingFunction(key), bucketIndex, oldValue = null; - - // Check if a bucket exists for the bucket key - var bucket = getBucketForHash(bucketsByHash, hash); - - if (bucket) { - // Remove entry from this bucket for this key - oldValue = bucket.removeEntryForKey(key); - if (oldValue !== null) { - // Entry was removed, so check if bucket is empty - if (!bucket.entries.length) { - // Bucket is empty, so remove it from the bucket collections - bucketIndex = searchBuckets(buckets, hash); - arrayRemoveAt(buckets, bucketIndex); - delete bucketsByHash[hash]; - } - } - } - return oldValue; - }; - - this.size = function() { - var total = 0, i = buckets.length; - while (i--) { - total += buckets[i].entries.length; - } - return total; - }; - - this.each = function(callback) { - var entries = that.entries(), i = entries.length, entry; - while (i--) { - entry = entries[i]; - callback(entry[0], entry[1]); - } - }; - - this.putAll = function(hashtable, conflictCallback) { - var entries = hashtable.entries(); - var entry, key, value, thisValue, i = entries.length; - var hasConflictCallback = (typeof conflictCallback == FUNCTION); - while (i--) { - entry = entries[i]; - key = entry[0]; - value = entry[1]; - - // Check for a conflict. The default behaviour is to overwrite the value for an existing key - if ( hasConflictCallback && (thisValue = that.get(key)) ) { - value = conflictCallback(key, thisValue, value); - } - that.put(key, value); - } - }; - - this.clone = function() { - var clone = new Hashtable(hashingFunctionParam, equalityFunctionParam); - clone.putAll(that); - return clone; - }; - } - - return Hashtable; -})();var __PLTNUMBERS_TOP__;typeof exports!=="undefined"?__PLTNUMBERS_TOP__=exports:(this.jsnums||(this.jsnums={}),__PLTNUMBERS_TOP__=this.jsnums); -(function(){function f(a,b,c){a!=null&&("number"==typeof a?this.fromNumber(a,b,c):b==null&&"string"!=typeof a?this.fromString(a,256):this.fromString(a,b))}function p(){return new f(null)}function hb(a,b,c,e,j,d){for(;--d>=0;){var f=b*this[a++]+c[e]+j,j=Math.floor(f/67108864);c[e++]=f&67108863}return j}function ib(a,b,c,e,j,d){var f=b&32767;for(b>>=15;--d>=0;){var g=this[a]&32767,h=this[a++]>>15,i=b*g+h*f,g=f*g+((i&32767)<<15)+c[e]+(j&1073741823),j=(g>>>30)+(i>>>15)+b*h+(j>>>30);c[e++]=g&1073741823}return j} -function jb(a,b,c,e,j,d){var f=b&16383;for(b>>=14;--d>=0;){var g=this[a]&16383,h=this[a++]>>14,i=b*g+h*f,g=f*g+((i&16383)<<14)+c[e]+j,j=(g>>28)+(i>>14)+b*h;c[e++]=g&268435455}return j}function xa(a,b){var c=ja[a.charCodeAt(b)];return c==null?-1:c}function N(a){var b=p();b.fromInt(a);return b}function Y(a){var b=this.s-a.s;if(b!=0)return b;var c=this.t,b=this.s<0?a.t-c:c-a.t;if(b!=0)return b;for(;--c>=0;)if((b=this[c]-a[c])!=0)return b;return 0}function ka(a){var b=1,c;if((c=a>>>16)!=0)a=c,b+=16;if((c= -a>>8)!=0)a=c,b+=8;if((c=a>>4)!=0)a=c,b+=4;if((c=a>>2)!=0)a=c,b+=2;a>>1!=0&&(b+=1);return b}function ya(a){var b=p();this.abs().divRemTo(a,null,b);this.s<0&&b.compareTo(f.ZERO)>0&&a.subTo(b,b);return b}function P(a){this.m=a}function Q(a){this.m=a;this.mp=a.invDigit();this.mpl=this.mp&32767;this.mph=this.mp>>15;this.um=(1<0&&(b.rShiftTo(e,b),a.rShiftTo(e,a));for(;b.signum()>0;)(c=b.getLowestSetBit())>0&&b.rShiftTo(c,b),(c=a.getLowestSetBit())>0&&a.rShiftTo(c,a),b.compareTo(a)>=0?(b.subTo(a,b),b.rShiftTo(1,b)):(a.subTo(b,a),a.rShiftTo(1,a));e>0&&a.lShiftTo(e,a);return a}var h=__PLTNUMBERS_TOP__,H=function(a,b,c){c= -c||{};return function(e,j){if(c.isXSpecialCase&&c.isXSpecialCase(e))return c.onXSpecialCase(e,j);if(c.isYSpecialCase&&c.isYSpecialCase(j))return c.onYSpecialCase(e,j);if(typeof e==="number"&&typeof j==="number")return a(e,j);typeof e==="number"&&(e=Ka(e,j));typeof j==="number"&&(j=Ka(j,e));e.level=a[2].length- -1?a[1]+a[2].substring(1)+Ma(b-(a[2].length-1)):a[1]+a[2].substring(1,1+b)):a},Ma=function(a){var b=[];b.length=a;for(var c=0;c=b},function(a,b){(!E(a)||!E(b))&&l(">=: couldn't be applied to complex number",a,b);return a.greaterThanOrEqual(b)}),da=H(function(a,b){return a<=b},function(a,b){(!E(a)||!E(b))&&l("<=: couldn't be applied to complex number",a,b);return a.lessThanOrEqual(b)}),U=H(function(a,b){return a>b},function(a,b){(!E(a)|| -!E(b))&&l(">: couldn't be applied to complex number",a,b);return a.greaterThan(b)}),J=H(function(a,b){return a=0?(a=Math.sqrt(a),Math.floor(a)===a?a:d.makeInstance(a)): -g.makeInstance(0,D(-a)):a.sqrt()},A=function(a){return typeof a==="number"?Math.abs(a):a.abs()},z=function(a){return typeof a==="number"?a:a.floor()},Ra=function(a){return typeof a==="number"?a:a.ceiling()},Sa=function(a){return typeof a==="number"?a:a.conjugate()},na=function(a){return q(a,1)?0:typeof a==="number"?d.makeInstance(Math.log(a)):a.log()},Ta=function(a){return typeof a==="number"?a>0?0:d.pi:a.angle()},Ua=function(a){return q(a,0)?0:typeof a==="number"?d.makeInstance(Math.tan(a)):a.tan()}, -wa=function(a){return q(a,0)?0:typeof a==="number"?d.makeInstance(Math.atan(a)):a.atan()},oa=function(a){return q(a,0)?1:typeof a==="number"?d.makeInstance(Math.cos(a)):a.cos()},pa=function(a){return q(a,0)?0:typeof a==="number"?d.makeInstance(Math.sin(a)):a.sin()},Va=function(a){return q(a,1)?0:typeof a==="number"?d.makeInstance(Math.acos(a)):a.acos()},Wa=function(a){return q(a,0)?0:typeof a==="number"?d.makeInstance(Math.asin(a)):a.asin()},ca=function(a){return typeof a==="number"?0:a.imaginaryPart()}, -M=function(a){return typeof a==="number"?a:a.realPart()},Xa=function(a){return typeof a==="number"?a:a.round()},X=function(a){return k(a,a)},Ya=function(a){t(a)||l("integer-sqrt: the argument "+a.toString()+" is not an integer.",a);return typeof a==="number"?a<0?g.makeInstance(0,Math.floor(Math.sqrt(-a))):Math.floor(Math.sqrt(a)):a.integerSqrt()},qa=function(a,b){t(a)||l("quotient: the first argument "+a.toString()+" is not an integer.",a);t(b)||l("quotient: the second argument "+b.toString()+" is not an integer.", -b);return fa(a,b)},ra=function(a,b){t(a)||l("remainder: the first argument "+a.toString()+" is not an integer.",a);t(b)||l("remainder: the second argument "+b.toString()+" is not an integer.",b);return mb(a,b)},K=function(a){return a<-9E15||9E15 -b},function(a,b){return Y.call(a,b)>0},{doNotCoerseToFloating:!0}),ta=n(function(a,b){return a=b},function(a,b){return Y.call(a,b)>=0},{doNotCoerseToFloating:!0}),pb=n(function(a,b){return a<=b},function(a,b){return Y.call(a,b)<=0},{doNotCoerseToFloating:!0}),i=function(a,b){this.n=a;this.d=b};i.prototype.toString=function(){return T(this.d)?this.n.toString()+"":this.n.toString()+"/"+this.d.toString()}; -i.prototype.level=1;i.prototype.liftTo=function(a){return a.level===2?new d(B(this.n,this.d)):a.level===3?new g(this,0):l("invalid level of Number",this,a)};i.prototype.isFinite=function(){return!0};i.prototype.equals=function(a){return a instanceof i&&$a(this.n,a.n)&&$a(this.d,a.d)};i.prototype.isInteger=function(){return T(this.d)};i.prototype.isRational=function(){return!0};i.prototype.isReal=function(){return!0};i.prototype.add=function(a){return i.makeInstance(nb(u(this.n,a.d),u(this.d,a.n)), -u(this.d,a.d))};i.prototype.subtract=function(a){return i.makeInstance(ob(u(this.n,a.d),u(this.d,a.n)),u(this.d,a.d))};i.prototype.negate=function(){return i.makeInstance(-this.n,this.d)};i.prototype.multiply=function(a){return i.makeInstance(u(this.n,a.n),u(this.d,a.d))};i.prototype.divide=function(a){(r(this.d)||r(a.n))&&l("/: division by zero",this,a);return i.makeInstance(u(this.n,a.d),u(this.d,a.n))};i.prototype.toExact=function(){return this};i.prototype.toInexact=function(){return d.makeInstance(this.toFixnum())}; -i.prototype.isExact=function(){return!0};i.prototype.isInexact=function(){return!1};i.prototype.toFixnum=function(){return B(this.n,this.d)};i.prototype.numerator=function(){return this.n};i.prototype.denominator=function(){return this.d};i.prototype.greaterThan=function(a){return ab(u(this.n,a.d),u(this.d,a.n))};i.prototype.greaterThanOrEqual=function(a){return bb(u(this.n,a.d),u(this.d,a.n))};i.prototype.lessThan=function(a){return ta(u(this.n,a.d),u(this.d,a.n))};i.prototype.lessThanOrEqual=function(a){return pb(u(this.n, -a.d),u(this.d,a.n))};i.prototype.integerSqrt=function(){var a=D(this);return va(a)?S(z(a)):E(a)?S(z(a)):g.makeInstance(S(z(M(a))),S(z(ca(a))))};i.prototype.sqrt=function(){if(bb(this.n,0)){var a=D(this.n),b=D(this.d);return s(z(a),a)&&s(z(b),b)?i.makeInstance(a,b):d.makeInstance(B(a,b))}else return a=D(x(this.n)),b=D(this.d),s(z(a),a)&&s(z(b),b)?g.makeInstance(0,i.makeInstance(a,b)):g.makeInstance(0,d.makeInstance(B(a,b)))};i.prototype.abs=function(){return i.makeInstance(A(this.n),this.d)};i.prototype.floor= -function(){var a=fa(this.n,this.d);return ta(this.n,0)?w(a,1):a};i.prototype.ceiling=function(){var a=fa(this.n,this.d);return ta(this.n,0)?a:m(a,1)};i.prototype.conjugate=function(){return this};i.prototype.magnitude=i.prototype.abs;i.prototype.log=function(){return d.makeInstance(Math.log(this.n/this.d))};i.prototype.angle=function(){return r(this.n)?0:ab(this.n,0)?0:d.pi};i.prototype.tan=function(){return d.makeInstance(Math.tan(B(this.n,this.d)))};i.prototype.atan=function(){return d.makeInstance(Math.atan(B(this.n, -this.d)))};i.prototype.cos=function(){return d.makeInstance(Math.cos(B(this.n,this.d)))};i.prototype.sin=function(){return d.makeInstance(Math.sin(B(this.n,this.d)))};i.prototype.expt=function(a){return O(a)&&ma(a,0)?Za(this,a):d.makeInstance(Math.pow(B(this.n,this.d),B(a.n,a.d)))};i.prototype.exp=function(){return d.makeInstance(Math.exp(B(this.n,this.d)))};i.prototype.acos=function(){return d.makeInstance(Math.acos(B(this.n,this.d)))};i.prototype.asin=function(){return d.makeInstance(Math.asin(B(this.n, -this.d)))};i.prototype.imaginaryPart=function(){return 0};i.prototype.realPart=function(){return this};i.prototype.round=function(){if(s(this.d,2)){var a=B(this.n,this.d),b=Math.floor(a),a=Math.ceil(a);return r(b%2)?b:a}else return Math.round(this.n/this.d)};i.makeInstance=function(a,b){a===void 0&&l("n undefined",a,b);b===void 0&&(b=1);ta(b,0)&&(a=x(a),b=x(b));var c=sa(A(a),A(b)),a=fa(a,c),b=fa(b,c);return T(b)||r(a)?a:new i(a,b)};var d=function(a){this.n=a},ga=new d(Number.NaN),n=new d(Number.POSITIVE_INFINITY), -cb=new d(Number.NEGATIVE_INFINITY),db=new d(Number.POSITIVE_INFINITY),eb=new d(Number.NEGATIVE_INFINITY),L=new d(0),fb=new d(0);d.pi=new d(Math.PI);d.e=new d(Math.E);d.nan=ga;d.inf=n;d.neginf=cb;d.makeInstance=function(a){if(isNaN(a))return d.nan;else if(a===Number.POSITIVE_INFINITY)return d.inf;else if(a===Number.NEGATIVE_INFINITY)return d.neginf;else if(a===0)return 1/a===-Infinity?L:fb;return new d(a)};d.prototype.isExact=function(){return!1};d.prototype.isInexact=function(){return!0};d.prototype.isFinite= -function(){return isFinite(this.n)||this===db||this===eb};d.prototype.toExact=function(){(!isFinite(this.n)||isNaN(this.n))&&l("toExact: no exact representation for "+this,this);var a=this.n.toString().match(/^(.*)\.(.*)$/);return a?(parseInt(a[1]),parseInt(a[2]),a=Math.pow(10,a[2].length),i.makeInstance(Math.round(this.n*a),a)):this.n};d.prototype.toInexact=function(){return this};d.prototype.isInexact=function(){return!0};d.prototype.level=2;d.prototype.liftTo=function(a){return a.level===3?new g(this, -0):l("invalid level of Number",this,a)};d.prototype.toString=function(){if(isNaN(this.n))return"+nan.0";if(this.n===Number.POSITIVE_INFINITY)return"+inf.0";if(this.n===Number.NEGATIVE_INFINITY)return"-inf.0";if(this===L)return"-0.0";var a=this.n.toString();return a.match("\\.")?a:a+".0"};d.prototype.equals=function(a){return a instanceof d&&this.n===a.n};d.prototype.isRational=function(){return this.isFinite()};d.prototype.isInteger=function(){return this.isFinite()&&this.n===Math.floor(this.n)}; -d.prototype.isReal=function(){return!0};var ha=function(a){return J(a,0)?-1:U(a,0)?1:a===L?-1:0};d.prototype.add=function(a){return this.isFinite()&&a.isFinite()?d.makeInstance(this.n+a.n):isNaN(this.n)||isNaN(a.n)?ga:this.isFinite()&&!a.isFinite()?a:!this.isFinite()&&a.isFinite()?this:ha(this)*ha(a)===1?this:ga};d.prototype.subtract=function(a){return this.isFinite()&&a.isFinite()?d.makeInstance(this.n-a.n):isNaN(this.n)||isNaN(a.n)?ga:!this.isFinite()&&!a.isFinite()?ha(this)===ha(a)?ga:this:this.isFinite()? -k(a,-1):this};d.prototype.negate=function(){return d.makeInstance(-this.n)};d.prototype.multiply=function(a){return d.makeInstance(this.n*a.n)};d.prototype.divide=function(a){return d.makeInstance(this.n/a.n)};d.prototype.toFixnum=function(){return this.n};d.prototype.numerator=function(){var a=this.n.toString().match(/^(.*)\.(.*)$/);if(a){var b=parseInt(a[2]),a=Math.pow(10,a[2].length),b=sa(a,b);return d.makeInstance(Math.round(this.n*(a/b)))}else return this};d.prototype.denominator=function(){var a= -this.n.toString().match(/^(.*)\.(.*)$/);if(a){var b=parseInt(a[2]),a=Math.pow(10,a[2].length),b=sa(a,b);return d.makeInstance(Math.round(a/b))}else return d.makeInstance(1)};d.prototype.floor=function(){return d.makeInstance(Math.floor(this.n))};d.prototype.ceiling=function(){return d.makeInstance(Math.ceil(this.n))};d.prototype.greaterThan=function(a){return this.n>a.n};d.prototype.greaterThanOrEqual=function(a){return this.n>=a.n};d.prototype.lessThan=function(a){return this.n=0?d.makeInstance(Math.floor(Math.sqrt(this.n))):g.makeInstance(fb,d.makeInstance(Math.floor(Math.sqrt(-this.n))));else l("integerSqrt: can only be applied to an integer",this)};d.prototype.sqrt=function(){return this.n<0?g.makeInstance(0,d.makeInstance(Math.sqrt(-this.n))):d.makeInstance(Math.sqrt(this.n))};d.prototype.abs=function(){return d.makeInstance(Math.abs(this.n))};d.prototype.log= -function(){return this.n<0?(new g(this,0)).log():d.makeInstance(Math.log(this.n))};d.prototype.angle=function(){return 0===this.n?0:this.n>0?0:d.pi};d.prototype.tan=function(){return d.makeInstance(Math.tan(this.n))};d.prototype.atan=function(){return d.makeInstance(Math.atan(this.n))};d.prototype.cos=function(){return d.makeInstance(Math.cos(this.n))};d.prototype.sin=function(){return d.makeInstance(Math.sin(this.n))};d.prototype.expt=function(a){return this.n===1?(a.isFinite()||isNaN(a.n),this): -d.makeInstance(Math.pow(this.n,a.n))};d.prototype.exp=function(){return d.makeInstance(Math.exp(this.n))};d.prototype.acos=function(){return d.makeInstance(Math.acos(this.n))};d.prototype.asin=function(){return d.makeInstance(Math.asin(this.n))};d.prototype.imaginaryPart=function(){return 0};d.prototype.realPart=function(){return this};d.prototype.round=function(){return isFinite(this.n)?this===L?this:Math.abs(Math.floor(this.n)-this.n)===0.5?Math.floor(this.n)%2===0?d.makeInstance(Math.floor(this.n)): -d.makeInstance(Math.ceil(this.n)):d.makeInstance(Math.round(this.n)):this};d.prototype.conjugate=function(){return this};d.prototype.magnitude=d.prototype.abs;var g=function(a,b){this.r=a;this.i=b};g.makeInstance=function(a,b){b===void 0&&(b=0);if(W(b)&&t(b)&&r(b))return a;if(aa(a)||aa(b))a=ba(a),b=ba(b);return new g(a,b)};g.prototype.toString=function(){var a=this.r.toString(),b=this.i.toString();return b[0]==="-"||b[0]==="+"?a+b+"i":a+"+"+b+"i"};g.prototype.isFinite=function(){return(typeof this.r=== -"number"?isFinite(this.r):this.r.isFinite())&&(typeof this.i==="number"?isFinite(this.i):this.i.isFinite())};g.prototype.isRational=function(){return va(this.r)&&q(this.i,0)};g.prototype.isInteger=function(){return t(this.r)&&q(this.i,0)};g.prototype.toExact=function(){return g.makeInstance(S(this.r),S(this.i))};g.prototype.toInexact=function(){return g.makeInstance(ba(this.r),ba(this.i))};g.prototype.isExact=function(){return W(this.r)&&W(this.i)};g.prototype.isInexact=function(){return aa(this.r)|| -aa(this.i)};g.prototype.level=3;g.prototype.liftTo=function(a){l("Don't know how to lift Complex number",this,a)};g.prototype.equals=function(a){return a instanceof g&&s(this.r,a.r)&&s(this.i,a.i)};g.prototype.greaterThan=function(a){(!this.isReal()||!a.isReal())&&l(">: expects argument of type real number",this,a);return U(this.r,a.r)};g.prototype.greaterThanOrEqual=function(a){(!this.isReal()||!a.isReal())&&l(">=: expects argument of type real number",this,a);return ma(this.r,a.r)};g.prototype.lessThan= -function(a){(!this.isReal()||!a.isReal())&&l("<: expects argument of type real number",this,a);return J(this.r,a.r)};g.prototype.lessThanOrEqual=function(a){(!this.isReal()||!a.isReal())&&l("<=: expects argument of type real number",this,a);return da(this.r,a.r)};g.prototype.abs=function(){s(this.i,0).valueOf()||l("abs: expects argument of type real number",this);return A(this.r)};g.prototype.toFixnum=function(){s(this.i,0).valueOf()||l("toFixnum: expects argument of type real number",this);return I(this.r)}; -g.prototype.numerator=function(){this.isReal()||l("numerator: can only be applied to real number",this);return ea(this.n)};g.prototype.denominator=function(){this.isReal()||l("floor: can only be applied to real number",this);return Qa(this.n)};g.prototype.add=function(a){return g.makeInstance(m(this.r,a.r),m(this.i,a.i))};g.prototype.subtract=function(a){return g.makeInstance(w(this.r,a.r),w(this.i,a.i))};g.prototype.negate=function(){return g.makeInstance(x(this.r),x(this.i))};g.prototype.multiply= -function(a){if(a.isReal())return g.makeInstance(k(this.r,a.r),k(this.i,a.r));var b=w(k(this.r,a.r),k(this.i,a.i)),a=m(k(this.r,a.i),k(this.i,a.r));return g.makeInstance(b,a)};g.prototype.divide=function(a){var b,c,e,j,d;return a.isReal()?g.makeInstance(o(this.r,a.r),o(this.i,a.r)):this.isInexact()||a.isInexact()?(b=this.r,c=this.i,e=a.r,j=a.i,da(A(j),A(e))?(d=o(j,e),a=o(m(b,k(c,d)),m(e,k(j,d))),b=o(w(c,k(b,d)),m(e,k(j,d)))):(d=o(e,j),a=o(m(k(b,d),c),m(k(e,d),j)),b=o(w(k(c,d),b),m(k(e,d),j))),g.makeInstance(a, -b)):(c=Sa(a),b=k(this,c),c=M(k(a,c)),g.makeInstance(o(M(b),c),o(ca(b),c)))};g.prototype.conjugate=function(){return g.makeInstance(this.r,w(0,this.i))};g.prototype.magnitude=function(){var a=m(k(this.r,this.r),k(this.i,this.i));return D(a)};g.prototype.isReal=function(){return q(this.i,0)};g.prototype.integerSqrt=function(){if(t(this))return Ya(this.r);else l("integerSqrt: can only be applied to an integer",this)};g.prototype.sqrt=function(){if(this.isReal())return D(this.r);var a=m(this.magnitude(), -this.r),b=D(o(a,2)),a=o(this.i,D(k(a,2)));return g.makeInstance(b,a)};g.prototype.log=function(){var a=this.magnitude(),b=this.angle();return m(na(a),k(b,G))};g.prototype.angle=function(){if(this.isReal())return Ta(this.r);if(s(0,this.r)){var a=o(d.pi,2);return U(this.i,0)?a:x(a)}else return a=wa(o(A(this.i),A(this.r))),U(this.r,0)?U(this.i,0)?a:x(a):U(this.i,0)?w(d.pi,a):w(a,d.pi)};var G=g.makeInstance(0,1),gb=g.makeInstance(0,-1);g.prototype.tan=function(){return o(this.sin(),this.cos())};g.prototype.atan= -function(){return s(this,G)||s(this,gb)?cb:k(G,k(d.makeInstance(0.5),na(o(m(G,this),m(G,w(0,this))))))};g.prototype.cos=function(){if(this.isReal())return oa(this.r);var a=k(this,G),b=x(a),a=m(F(a),F(b));return o(a,2)};g.prototype.sin=function(){if(this.isReal())return pa(this.r);var a=k(this,G),b=x(a),c=g.makeInstance(0,2),a=w(F(a),F(b));return o(a,c)};g.prototype.expt=function(a){if(O(a)&&ma(a,0))return Za(this,a);a=k(a,this.log());return F(a)};g.prototype.exp=function(){var a=F(this.r),b=oa(this.i), -c=pa(this.i);return k(a,m(b,k(c,G)))};g.prototype.acos=function(){if(this.isReal())return Va(this.r);var a=o(d.pi,2),b=k(this,G),c=D(w(1,X(this))),b=na(m(b,c)),b=k(b,G);return m(a,b)};g.prototype.asin=function(){if(this.isReal())return Wa(this.r);var a=w(1,X(this)),a=D(a);return k(2,wa(o(this,m(1,a))))};g.prototype.ceiling=function(){this.isReal()||l("ceiling: can only be applied to real number",this);return Ra(this.r)};g.prototype.floor=function(){this.isReal()||l("floor: can only be applied to real number", -this);return z(this.r)};g.prototype.imaginaryPart=function(){return this.i};g.prototype.realPart=function(){return this.r};g.prototype.round=function(){this.isReal()||l("round: can only be applied to real number",this);return Xa(this.r)};var qb=/^([+-]?\d+)\/(\d+)$/,rb=/^([+-]?[\d\w/\.]*)([+-])([\d\w/\.]*)i$/,sb=/^[+-]?\d+$/,tb=/^([+-]?\d*)\.(\d*)$/,La=/^([+-]?\d*\.?\d*)[Ee](\+?\d+)$/,ia=function(a){var b=a.match(qb);if(b)return i.makeInstance(ia(b[1]),ia(b[2]));if(b=a.match(rb))return g.makeInstance(ia(b[1]|| -"0"),ia(b[2]+(b[3]||"1")));if(a==="+nan.0"||a==="-nan.0")return d.nan;if(a==="+inf.0")return d.inf;if(a==="-inf.0")return d.neginf;if(a==="-0.0")return L;return a.match(tb)||a.match(La)?d.makeInstance(Number(a)):a.match(sb)?(b=Number(a),K(b)?v(a):b):!1};typeof navigator!=="undefined"&&navigator.appName=="Microsoft Internet Explorer"?(f.prototype.am=ib,n=30):typeof navigator!=="undefined"&&navigator.appName!="Netscape"?(f.prototype.am=hb,n=26):(f.prototype.am=jb,n=28);f.prototype.DB=n;f.prototype.DM= -(1<=0?a.mod(this.m):a};P.prototype.revert=function(a){return a};P.prototype.reduce=function(a){a.divRemTo(this.m,null,a)};P.prototype.mulTo=function(a,b,c){a.multiplyTo(b,c);this.reduce(c)}; -P.prototype.sqrTo=function(a,b){a.squareTo(b);this.reduce(b)};Q.prototype.convert=function(a){var b=p();a.abs().dlShiftTo(this.m.t,b);b.divRemTo(this.m,null,b);a.s<0&&b.compareTo(f.ZERO)>0&&this.m.subTo(b,b);return b};Q.prototype.revert=function(a){var b=p();a.copyTo(b);this.reduce(b);return b};Q.prototype.reduce=function(a){for(;a.t<=this.mt2;)a[a.t++]=0;for(var b=0;b>15)*this.mpl&this.um)<<15)&a.DM,c=b+this.m.t;for(a[c]+=this.m.am(0, -e,a,b,0,this.m.t);a[c]>=a.DV;)a[c]-=a.DV,a[++c]++}a.clamp();a.drShiftTo(this.m.t,a);a.compareTo(this.m)>=0&&a.subTo(this.m,a)};Q.prototype.mulTo=function(a,b,c){a.multiplyTo(b,c);this.reduce(c)};Q.prototype.sqrTo=function(a,b){a.squareTo(b);this.reduce(b)};f.prototype.copyTo=function(a){for(var b=this.t-1;b>=0;--b)a[b]=this[b];a.t=this.t;a.s=this.s};f.prototype.fromInt=function(a){this.t=1;this.s=a<0?-1:0;a>0?this[0]=a:a<-1?this[0]=a+DV:this.t=0};f.prototype.fromString=function(a,b){var c;if(b==16)c= -4;else if(b==8)c=3;else if(b==256)c=8;else if(b==2)c=1;else if(b==32)c=5;else if(b==4)c=2;else{this.fromRadix(a,b);return}this.s=this.t=0;for(var e=a.length,j=!1,d=0;--e>=0;){var g=c==8?a[e]&255:xa(a,e);g<0?a.charAt(e)=="-"&&(j=!0):(j=!1,d==0?this[this.t++]=g:d+c>this.DB?(this[this.t-1]|=(g&(1<>this.DB-d):this[this.t-1]|=g<=this.DB&&(d-=this.DB))}if(c==8&&(a[0]&128)!=0)this.s=-1,d>0&&(this[this.t-1]|=(1<0&&this[this.t-1]==a;)--this.t};f.prototype.dlShiftTo=function(a,b){var c;for(c=this.t-1;c>=0;--c)b[c+a]=this[c];for(c=a-1;c>=0;--c)b[c]=0;b.t=this.t+a;b.s=this.s};f.prototype.drShiftTo=function(a,b){for(var c=a;c=0;--h)b[h+f+1]=this[h]>> -e|g,g=(this[h]&d)<=0;--h)b[h]=0;b[f]=g;b.t=this.t+f+1;b.s=this.s;b.clamp()};f.prototype.rShiftTo=function(a,b){b.s=this.s;var c=Math.floor(a/this.DB);if(c>=this.t)b.t=0;else{var e=a%this.DB,d=this.DB-e,f=(1<>e;for(var g=c+1;g>e;e>0&&(b[this.t-c-1]|=(this.s&f)<>=this.DB;if(a.t< -this.t){for(e-=a.s;c>=this.DB;e+=this.s}else{for(e+=this.s;c>=this.DB;e-=a.s}b.s=e<0?-1:0;e<-1?b[c++]=this.DV+e:e>0&&(b[c++]=e);b.t=c;b.clamp()};f.prototype.multiplyTo=function(a,b){var c=this.abs(),e=a.abs(),d=c.t;for(b.t=d+e.t;--d>=0;)b[d]=0;for(d=0;d=0;)a[c]=0;for(c= -0;c=b.DV)a[c+b.t]-=b.DV,a[c+b.t+1]=1}a.t>0&&(a[a.t-1]+=b.am(c,b[c],a,2*c,0,1));a.s=0;a.clamp()};f.prototype.divRemTo=function(a,b,c){var e=a.abs();if(!(e.t<=0)){var d=this.abs();if(d.t0?(e.lShiftTo(i,g),d.lShiftTo(i,c)):(e.copyTo(g),d.copyTo(c));e=g.t;d=g[e-1];if(d!=0){var l=d*(1<1?g[e-2]>>this.F2:0),k=this.FV/l,l=(1<=0&&(c[c.t++]=1,c.subTo(q,c));f.ONE.dlShiftTo(e,q);for(q.subTo(g,g);g.t=0;){var r=c[--m]==d?this.DM:Math.floor(c[m]*k+(c[m-1]+n)*l);if((c[m]+=g.am(0,r,c,o,0,e))0&&c.rShiftTo(i,c);h<0&&f.ZERO.subTo(c,c)}}}};f.prototype.invDigit= -function(){if(this.t<1)return 0;var a=this[0];if((a&1)==0)return 0;var b=a&3,b=b*(2-(a&15)*b)&15,b=b*(2-(a&255)*b)&255,b=b*(2-((a&65535)*b&65535))&65535,b=b*(2-a*b%this.DV)%this.DV;return b>0?this.DV-b:-b};f.prototype.isEven=function(){return(this.t>0?this[0]&1:this.s)==0};f.prototype.exp=function(a,b){if(a>4294967295||a<1)return f.ONE;var c=p(),e=p(),d=b.convert(this),g=ka(a)-1;for(d.copyTo(c);--g>=0;)if(b.sqrTo(c,e),(a&1<0)b.mulTo(e,d,c);else var h=c,c=e,e=h;return b.revert(c)};f.prototype.toString= -function(a){if(this.s<0)return"-"+this.negate().toString(a);if(a==16)a=4;else if(a==8)a=3;else if(a==2)a=1;else if(a==32)a=5;else if(a==4)a=2;else return this.toRadix(a);var b=(1<0){if(g>g)>0)e=!0,d.push("0123456789abcdefghijklmnopqrstuvwxyz".charAt(c));for(;f>=0;)g>(g+=this.DB-a)):(c=this[f]>>(g-=a)&b,g<=0&&(g+=this.DB,--f)),c>0&&(e=!0),e&&d.push("0123456789abcdefghijklmnopqrstuvwxyz".charAt(c))}return e? -d.join(""):"0"};f.prototype.negate=function(){var a=p();f.ZERO.subTo(this,a);return a};f.prototype.abs=function(){return this.s<0?this.negate():this};f.prototype.compareTo=Y;f.prototype.bitLength=function(){return this.t<=0?0:this.DB*(this.t-1)+ka(this[this.t-1]^this.s&this.DM)};f.prototype.mod=ya;f.prototype.modPowInt=function(a,b){var c;c=a<256||b.isEven()?new P(b):new Q(b);return this.exp(a,c)};f.ZERO=N(0);f.ONE=N(1);$.prototype.convert=Ha;$.prototype.revert=Ha;$.prototype.mulTo=function(a,b,c){a.multiplyTo(b, -c)};$.prototype.sqrTo=function(a,b){a.squareTo(b)};V.prototype.convert=function(a){if(a.s<0||a.t>2*this.m.t)return a.mod(this.m);else if(a.compareTo(this.m)<0)return a;else{var b=p();a.copyTo(b);this.reduce(b);return b}};V.prototype.revert=function(a){return a};V.prototype.reduce=function(a){a.drShiftTo(this.m.t-1,this.r2);if(a.t>this.m.t+1)a.t=this.m.t+1,a.clamp();this.mu.multiplyUpperTo(this.r2,this.m.t+1,this.q3);for(this.m.multiplyLowerTo(this.q3,this.m.t+1,this.r2);a.compareTo(this.r2)<0;)a.dAddOffset(1, -this.m.t+1);for(a.subTo(this.r2,a);a.compareTo(this.m)>=0;)a.subTo(this.m,a)};V.prototype.mulTo=function(a,b,c){a.multiplyTo(b,c);this.reduce(c)};V.prototype.sqrTo=function(a,b){a.squareTo(b);this.reduce(b)};var C=[2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97,101,103,107,109,113,127,131,137,139,149,151,157,163,167,173,179,181,191,193,197,199,211,223,227,229,233,239,241,251,257,263,269,271,277,281,283,293,307,311,313,317,331,337,347,349,353,359,367,373,379,383,389,397,401, -409,419,421,431,433,439,443,449,457,461,463,467,479,487,491,499,503,509],ub=67108864/C[C.length-1];f.prototype.chunkSize=function(a){return Math.floor(Math.LN2*this.DB/Math.log(a))};f.prototype.toRadix=function(a){a==null&&(a=10);if(this.signum()==0||a<2||a>36)return"0";var b=this.chunkSize(a),b=Math.pow(a,b),c=N(b),e=p(),d=p(),f="";for(this.divRemTo(c,e,d);e.signum()>0;)f=(b+d.intValue()).toString(a).substr(1)+f,e.divRemTo(c,e,d);return d.intValue().toString(a)+f};f.prototype.fromRadix=function(a, -b){this.fromInt(0);b==null&&(b=10);for(var c=this.chunkSize(b),e=Math.pow(b,c),d=!1,g=0,h=0,i=0;i=c&&(this.dMultiply(e),this.dAddOffset(h,0),h=g=0))}g>0&&(this.dMultiply(Math.pow(b,g)),this.dAddOffset(h,0));d&&f.ZERO.subTo(this,this)};f.prototype.fromNumber=function(a,b,c){if("number"==typeof b)if(a<2)this.fromInt(1);else{this.fromNumber(a,c);this.testBit(a-1)||this.bitwiseTo(f.ONE.shiftLeft(a-1),ua,this);for(this.isEven()&& -this.dAddOffset(1,0);!this.isProbablePrime(b);)this.dAddOffset(2,0),this.bitLength()>a&&this.subTo(f.ONE.shiftLeft(a-1),this)}else{var c=[],e=a&7;c.length=(a>>3)+1;b.nextBytes(c);e>0?c[0]&=(1<>=this.DB;if(a.t>=this.DB;e+=this.s}else{for(e+=this.s;c>=this.DB;e+=a.s}b.s=e<0?-1:0;e>0?b[c++]=e:e<-1&&(b[c++]=this.DV+e);b.t=c;b.clamp()};f.prototype.dMultiply=function(a){this[this.t]=this.am(0,a-1,this, -0,0,this.t);++this.t;this.clamp()};f.prototype.dAddOffset=function(a,b){if(a!=0){for(;this.t<=b;)this[this.t++]=0;for(this[b]+=a;this[b]>=this.DV;)this[b]-=this.DV,++b>=this.t&&(this[this.t++]=0),++this[b]}};f.prototype.multiplyLowerTo=function(a,b,c){var e=Math.min(this.t+a.t,b);c.s=0;for(c.t=e;e>0;)c[--e]=0;var d;for(d=c.t-this.t;e=0;)c[e]=0;for(e=Math.max(b-this.t,0);e0)if(b==0)c=this[0]%a;else for(var e=this.t-1;e>=0;--e)c=(b*c+this[e])%a;return c};f.prototype.millerRabin=function(a){var b=this.subtract(f.ONE),c=b.getLowestSetBit();if(c<=0)return!1;var e=b.shiftRight(c),a=a+1>>1;if(a>C.length)a=C.length;for(var d=p(), -g=0;g>24};f.prototype.shortValue=function(){return this.t==0?this.s:this[0]<<16>>16};f.prototype.signum=function(){return this.s<0?-1:this.t<=0||this.t==1&&this[0]<=0?0:1};f.prototype.toByteArray=function(){var a=this.t,b=[];b[0]=this.s;var c=this.DB-a*this.DB%8,e,d=0;if(a-- >0){if(c>c)!=(this.s&this.DM)>>c)b[d++]=e|this.s<=0;)if(c<8?(e=(this[a]&(1<>(c+=this.DB- -8)):(e=this[a]>>(c-=8)&255,c<=0&&(c+=this.DB,--a)),(e&128)!=0&&(e|=-256),d==0&&(this.s&128)!=(e&128)&&++d,d>0||e!=this.s)b[d++]=e}return b};f.prototype.equals=Z;f.prototype.min=function(a){return this.compareTo(a)<0?this:a};f.prototype.max=function(a){return this.compareTo(a)>0?this:a};f.prototype.and=function(a){var b=p();this.bitwiseTo(a,kb,b);return b};f.prototype.or=function(a){var b=p();this.bitwiseTo(a,ua,b);return b};f.prototype.xor=function(a){var b=p();this.bitwiseTo(a,za,b);return b};f.prototype.andNot= -function(a){var b=p();this.bitwiseTo(a,Aa,b);return b};f.prototype.not=function(){for(var a=p(),b=0;b>=16,c+=16);(a&255)==0&&(a>>=8,c+=8);(a&15)==0&&(a>>=4,c+=4);(a&3)==0&&(a>>=2,c+=2);(a&1)==0&&++c;a=c}return b+a}return this.s<0?this.t*this.DB:-1};f.prototype.bitCount=function(){for(var a=0,b=this.s&this.DM,c=0;c=this.t?this.s!=0:(this[b]&1<1){c=p();for(f.sqrTo(g[1],c);h<=l;)g[h]=p(),f.mulTo(c,g[h-2],g[h]), -h+=2}for(var k=a.t-1,m,o=!0,n=p(),c=ka(a[k])-1;k>=0;){c>=i?m=a[k]>>c-i&l:(m=(a[k]&(1<0&&(m|=a[k-1]>>this.DB+c-i));for(h=e;(m&1)==0;)m>>=1,--h;if((c-=h)<0)c+=this.DB,--k;if(o)g[m].copyTo(d),o=!1;else{for(;h>1;)f.sqrTo(d,n),f.sqrTo(n,d),h-=2;h>0?f.sqrTo(d,n):(h=d,d=n,n=h);f.mulTo(n,g[m],d)}for(;k>=0&&(a[k]&1<=0?(c.subTo(e,c),b&&d.subTo(h,d),g.subTo(i,g)):(e.subTo(c,e),b&&h.subTo(d,h),i.subTo(g,i))}if(e.compareTo(f.ONE)!= -0)return f.ZERO;if(i.compareTo(a)>=0)return i.subtract(a);if(i.signum()<0)i.addTo(a,i);else return i;return i.signum()<0?i.add(a):i};f.prototype.pow=Ia;f.prototype.gcd=Ja;f.prototype.isProbablePrime=function(a){var b,c=this.abs();if(c.t==1&&c[0]<=C[C.length-1]){for(b=0;b0};f.prototype.greaterThanOrEqual=function(a){return this.compareTo(a)>= -0};f.prototype.lessThan=function(a){return this.compareTo(a)<0};f.prototype.lessThanOrEqual=function(a){return this.compareTo(a)<=0};f.prototype.divide=function(a){var b=Ga.call(this,a);return b[1].compareTo(f.ZERO)===0?b[0]:m(b[0],i.makeInstance(b[1],a))};f.prototype.numerator=function(){return this};f.prototype.denominator=function(){return 1};(function(){var a=function(a,c){for(;!da(X(c),a)||!J(a,X(m(c,1)));)c=z(o(m(c,z(o(a,c))),2));return c};f.prototype.integerSqrt=function(){var b;return ha(this)>= -0?a(this,this):(b=this.negate(),g.makeInstance(0,a(b,b)))}})();(function(){f.prototype.sqrt=function(){var a=this.integerSqrt(),b;if(q(X(a),this))return a;b=I(this);return isFinite(b)?b>=0?d.makeInstance(Math.sqrt(b)):g.makeInstance(0,d.makeInstance(Math.sqrt(-b))):a}})();f.prototype.floor=function(){return this};f.prototype.ceiling=function(){return this};f.prototype.expt=function(a){return Ia.call(this,a)};f.prototype.imaginaryPart=function(){return 0};f.prototype.realPart=function(){return this}; -n=function(){return function(a,b,c){var e=512;if(c&&typeof c.limit!=="undefined")e=c.limit;t(a)||l("toRepeatingDecimal: n "+a.toString()+" is not an integer.");t(b)||l("toRepeatingDecimal: d "+b.toString()+" is not an integer.");s(b,0)&&l("toRepeatingDecimal: d equals 0");J(b,0)&&l("toRepeatingDecimal: d < 0");c=J(a,0)?"-":"";a=A(a);c+=qa(a,b);a:{var a=ra(a,b),d=e,e=[],f={};for(f[a]=!0;;){if(d--<=0){b=[e.join(""),"..."];break a}var g=qa(k(a,10),b),a=ra(k(a,10),b);e.push(g.toString());if(f[a])break; -else f[a]=!0}f=a;for(d=[];;)if(g=qa(k(a,10),b),a=ra(k(a,10),b),d.push(g.toString()),s(a,f))break;b=e.join("");for(a=d.join("");b.length>=a.length&&b.substring(b.length-a.length)===a;)b=b.substring(0,b.length-a.length);b=[b,a]}return[c].concat(b)}}();h.fromFixnum=function(a){if(isNaN(a)||!isFinite(a))return d.makeInstance(a);var b=Math.floor(a);return b===a?K(b)?v(Na(a+"")):b:d.makeInstance(a)};h.fromString=ia;h.makeBignum=v;h.makeRational=i.makeInstance;h.makeFloat=d.makeInstance;h.makeComplex=g.makeInstance; -h.makeComplexPolar=function(a,b){return q(b,0)?a:g.makeInstance(k(a,oa(b)),k(a,pa(b)))};h.pi=d.pi;h.e=d.e;h.nan=d.nan;h.negative_inf=d.neginf;h.inf=d.inf;h.negative_one=-1;h.zero=0;h.one=1;h.i=G;h.negative_i=gb;h.negative_zero=L;h.onThrowRuntimeError=function(a){throw Error(a);};h.isSchemeNumber=R;h.isRational=va;h.isReal=E;h.isExact=W;h.isInexact=aa;h.isInteger=t;h.toFixnum=I;h.toExact=S;h.toInexact=ba;h.add=m;h.subtract=w;h.multiply=k;h.divide=o;h.equals=s;h.eqv=q;h.approxEquals=function(a,b,c){return J(A(w(a, -b)),c)};h.greaterThanOrEqual=ma;h.lessThanOrEqual=da;h.greaterThan=U;h.lessThan=J;h.expt=lb;h.exp=F;h.modulo=Pa;h.numerator=ea;h.denominator=Qa;h.integerSqrt=Ya;h.sqrt=D;h.abs=A;h.quotient=qa;h.remainder=ra;h.floor=z;h.ceiling=Ra;h.conjugate=Sa;h.magnitude=function(a){return typeof a==="number"?Math.abs(a):a.magnitude()};h.log=na;h.angle=Ta;h.tan=Ua;h.atan=wa;h.cos=oa;h.sin=pa;h.tan=Ua;h.acos=Va;h.asin=Wa;h.cosh=function(a){return q(a,0)?d.makeInstance(1):o(m(F(a),F(x(a))),2)};h.sinh=function(a){return o(w(F(a), -F(x(a))),2)};h.imaginaryPart=ca;h.realPart=M;h.round=Xa;h.sqr=X;h.gcd=function(a,b){t(a)||l("gcd: the argument "+a.toString()+" is not an integer.",a);for(var c=A(a),e,d,f=0;f object - // Copies an object. The new object should respond like the old - // object, including to things like instanceof. - var clone = function (obj) { - var property; - var C = function () {}; - C.prototype = obj; - var c = new C(); - for (property in obj) { - if (obj.hasOwnProperty(property)) { - c[property] = obj[property]; - } - } - return c; - }; - - - // Consumes a class and creates a predicate that recognizes subclasses. - var makeClassPredicate = function (aClass) { - return function (x) { return x instanceof aClass; }; - }; - - - - // Helper to deal with the argument-passing of primitives. Call f - // with arguments bound from MACHINE.e, assuming - // MACHINE.a has been initialized with the number of - // arguments on the stack. vs provides optional values for the - // arguments that go beyond those of the mandatoryArgCount. - var withArguments = function (MACHINE, mandatoryArgCount, vs, f) { - var args = [], i; - for (i = 0; i < MACHINE.a; i++) { - if (i < mandatoryArgCount) { - args.push(MACHINE.e[MACHINE.e.length - 1 - i]); - } else { - if (i < MACHINE.a) { - args.push(MACHINE.e[MACHINE.e.length - 1 - i]); - } else { - args.push(vs[mandatoryArgCount - i]); - } - } - } - return f.apply(null, args); - }; - - - - baselib.heir = heir; - baselib.clone = clone; - baselib.makeClassPredicate = makeClassPredicate; - baselib.withArguments = withArguments; - - -}(this.plt)); -/*jslint unparam: true, sub: true, vars: true, white: true, plusplus: true, maxerr: 50, indent: 4 */ - -// Frame structures. -(function(baselib) { - 'use strict'; - var exports = {}; - baselib.frames = exports; - - - - // A generic frame just holds marks. - var Frame = function() { - // The set of continuation marks. - this.marks = []; - - // When we're in the middle of computing with-cont-mark, we - // stash the key in here temporarily. - this.pendingContinuationMarkKey = undefined; - this.pendingApplyValuesProc = undefined; - this.pendingBegin0Count = undefined; - this.pendingBegin0Values = undefined; - }; - - - // Frames must support marks and the temporary variables necessary to - // support with-continuation-mark and with-values. - - // Specialized frames support more features: - - // A CallFrame represents a call stack frame, and includes the return address - // as well as the function being called. - var CallFrame = function(label, proc) { - this.label = label; - this.p = proc; - - // The set of continuation marks. - this.marks = []; - - // When we're in the middle of computing with-cont-mark, we - // stash the key in here temporarily. - this.pendingContinuationMarkKey = undefined; - }; - CallFrame.prototype = baselib.heir(Frame.prototype); - - - - // A prompt frame includes a return address, as well as a prompt tag - // for supporting delimited continuations. - var PromptFrame = function(label, tag) { - this.label = label; - this.tag = tag; // ContinuationPromptTag - - // The set of continuation marks. - this.marks = []; - - // When we're in the middle of computing with-cont-mark, we - // stash the key in here temporarily. - this.pendingContinuationMarkKey = undefined; - }; - PromptFrame.prototype = baselib.heir(Frame.prototype); - - - - - ////////////////////////////////////////////////////////////////////// - exports.Frame = Frame; - exports.CallFrame = CallFrame; - exports.PromptFrame = PromptFrame; - - - -}(this.plt.baselib));/*jslint devel: false, browser: true, vars: true, plusplus: true, maxerr: 500, indent: 4 */ -(function (baselib) { - "use strict"; - - // Union/find for circular equality testing. - - var UnionFind = function () { - // this.parenMap holds the arrows from an arbitrary pointer - // to its parent. - this.parentMap = baselib.hashes.makeLowLevelEqHash(); - }; - - // find: ptr -> UnionFindNode - // Returns the representative for this ptr. - UnionFind.prototype.find = function (ptr) { - var parent = (this.parentMap.containsKey(ptr) ? - this.parentMap.get(ptr) : ptr); - if (parent === ptr) { - return parent; - } else { - var rep = this.find(parent); - // Path compression: - this.parentMap.put(ptr, rep); - return rep; - } - }; - - // merge: ptr ptr -> void - // Merge the representative nodes for ptr1 and ptr2. - UnionFind.prototype.merge = function (ptr1, ptr2) { - this.parentMap.put(this.find(ptr1), this.find(ptr2)); - }; - - - - baselib.UnionFind = UnionFind; - -}(this.plt.baselib));/*jslint vars: true, white: true, maxerr: 50, indent: 4 */ - - -// Equality function -/*global jsnums*/ -(function (baselib, jsnums) { - 'use strict'; - var exports = {}; - baselib.equality = exports; - - - - var eqv = function (x, y) { - if (x === y) { return true; } - - if (baselib.numbers.isNumber(x) && baselib.numbers.isNumber(y)) { - return jsnums.eqv(x, y); - } else if (baselib.chars.isChar(x) && baselib.chars.isChar(y)) { - return x.val === y.val; - } else { - return false; - } - }; - - - - - // equals: X Y -> boolean - // Returns true if the objects are equivalent; otherwise, returns false. - var equals = function (x, y, aUnionFind) { - if (x === y) { return true; } - - if (baselib.numbers.isNumber(x) && baselib.numbers.isNumber(y)) { - return baselib.numbers.eqv(x, y); - } - - if (baselib.strings.isString(x) && baselib.strings.isString(y)) { - return x.toString() === y.toString(); - } - - if (x === undefined || x === null) { - return (y === undefined || y === null); - } - - if (typeof (x) === 'object' && typeof (y) === 'object' && - x.equals && y.equals) { - if (typeof (aUnionFind) === 'undefined') { - aUnionFind = new baselib.UnionFind(); - } - - if (aUnionFind.find(x) === aUnionFind.find(y)) { - return true; - } - else { - aUnionFind.merge(x, y); - return x.equals(y, aUnionFind); - } - } - return false; - }; - - exports.eqv = eqv; - exports.equals = equals; - -}(this.plt.baselib, jsnums));/*jslint browser: true, undef: false, unparam: true, sub: true, vars: true, white: true, plusplus: true, maxerr: 50, indent: 4 */ - -// Formatting library. -// Produces string and DOM representations of values. -// -/*global $*/ -(function(baselib, $) { - 'use strict'; - var exports = {}; - baselib.format = exports; - - - var replaceUnprintableStringChars = function(s) { - var ret = [], i; - for (i = 0; i < s.length; i++) { - var val = s.charCodeAt(i); - switch(val) { - case 7: ret.push('\\a'); break; - case 8: ret.push('\\b'); break; - case 9: ret.push('\\t'); break; - case 10: ret.push('\\n'); break; - case 11: ret.push('\\v'); break; - case 12: ret.push('\\f'); break; - case 13: ret.push('\\r'); break; - case 34: ret.push('\\"'); break; - case 92: ret.push('\\\\'); break; - default: if (val >= 32 && val <= 126) { - ret.push( s.charAt(i) ); - } - else { - var numStr = val.toString(16).toUpperCase(); - while (numStr.length < 4) { - numStr = '0' + numStr; - } - ret.push('\\u' + numStr); - } - break; - } - } - return ret.join(''); - }; - - var escapeString = function(s) { - return '"' + replaceUnprintableStringChars(s) + '"'; - }; - - - // toWrittenString: Any Hashtable -> String - var toWrittenString = function(x, cache) { - if (! cache) { - cache = baselib.hashes.makeLowLevelEqHash(); - } - if (x === null) { - return "null"; - } - if (x === true) { return "true"; } - if (x === false) { return "false"; } - if (typeof(x) === 'object') { - if (cache.containsKey(x)) { - return "..."; - } - } - if (x === undefined) { - return "#"; - } - if (typeof(x) === 'string') { - return escapeString(x.toString()); - } - - if (baselib.functions.isProcedure(x)) { - return '#'; - } - - if (typeof(x) !== 'object' && typeof(x) !== 'function') { - return x.toString(); - } - - var returnVal; - if (x.toWrittenString) { - returnVal = x.toWrittenString(cache); - } else if (x.toDisplayedString) { - returnVal = x.toDisplayedString(cache); - } else { - returnVal = x.toString(); - } - return returnVal; - }; - - - - // toDisplayedString: Any Hashtable -> String - var toDisplayedString = function(x, cache) { - if (! cache) { - cache = baselib.hashes.makeLowLevelEqHash(); - } - if (x === null) { - return "null"; - } - if (x === true) { return "true"; } - if (x === false) { return "false"; } - if (typeof(x) === 'object') { - if (cache.containsKey(x)) { - return "..."; - } - } - if (x === undefined || x === null) { - return "#"; - } - if (typeof(x) === 'string') { - return x; - } - - if (baselib.functions.isProcedure(x)) { - return '#'; - } - - if (typeof(x) !== 'object' && typeof(x) !== 'function') { - return x.toString(); - } - - var returnVal; - if (x.toDisplayedString) { - returnVal = x.toDisplayedString(cache); - } else if (x.toWrittenString) { - returnVal = x.toWrittenString(cache); - } else { - returnVal = x.toString(); - } - return returnVal; - }; - - - - var formatRegexp1 = new RegExp('~[sSaA]', 'g'); - var formatRegexp2 = new RegExp("~[sSaAnevE%~]", "g"); - - // format: string [X ...] string -> string - // String formatting. If an exception occurs, throws - // a plain Error whose message describes the formatting error. - var format = function(formatStr, args, functionName) { - var throwFormatError = function() { - functionName = functionName || 'format'; - var matches = formatStr.match(formatRegexp1); - var expectedNumberOfArgs = (matches === null ? 0 : matches.length); - var errorStrBuffer = [functionName + ': format string requires ' + expectedNumberOfArgs - + ' arguments, given ' + args.length + '; arguments were:', - toWrittenString(formatStr)]; - var i; - for (i = 0; i < args.length; i++) { - errorStrBuffer.push( toWrittenString(args[i]) ); - } - - throw new Error(errorStrBuffer.join(' ')); - }; - - - var buffer = args.slice(0); - var onTemplate = function(s) { - if (s === "~~") { - return "~"; - } else if (s === '~n' || s === '~%') { - return "\n"; - } else if (s === '~s' || s === "~S") { - if (buffer.length === 0) { - throwFormatError(); - } - return toWrittenString(buffer.shift()); - } else if (s === '~e' || s === "~E") { - // FIXME: we don't yet have support for the error-print - // handler, and currently treat ~e just like ~s. - if (buffer.length === 0) { - throwFormatError(); - } - return toWrittenString(buffer.shift()); - } - else if (s === '~v') { - if (buffer.length === 0) { - throwFormatError(); - } - // fprintf must do something more interesting here by - // printing the dom representation directly... - return toWrittenString(buffer.shift()); - } else if (s === '~a' || s === "~A") { - if (buffer.length === 0) { - throwFormatError(); - } - return toDisplayedString(buffer.shift()); - } else { - throw new Error(functionName + - ': string.replace matched invalid regexp'); - } - }; - var result = formatStr.replace(formatRegexp2, onTemplate); - if (buffer.length > 0) { - throwFormatError(); - } - return result; - }; - - - - - var ToDomNodeParameters = function(params) { - if (! params) { params = {}; } - var k; - for (k in params) { - if (params.hasOwnProperty(k)) { - this[k] = params[k]; - } - } - if (this.cache === undefined) { - this.cache = baselib.hashes.makeLowLevelEqHash(); - } - if (this.cycles === undefined) { - this.cycles = baselib.hashes.makeLowLevelEqHash(); - } - if (this.depth === undefined) { - this.depth = 0; - } - if (this.objectCounter === undefined) { - this.objectCounter = 0; - } - }; - - - ToDomNodeParameters.prototype.incrementDepth = function() { - return new ToDomNodeParameters({ mode : this.mode, - depth: this.depth + 1, - cache: this.cache, - cycles: this.cycles, - objectCounter: this.objectCounter }); - }; - - - // getMode: -> (U "print" "display" "write" "constructor") - ToDomNodeParameters.prototype.getMode = function() { - if (this.mode) { - return this.mode; - } - return 'print'; - }; - - ToDomNodeParameters.prototype.getDepth = function(x) { - return this.depth; - }; - - ToDomNodeParameters.prototype.containsKey = function(x) { - return this.cache.containsKey(x); - }; - - ToDomNodeParameters.prototype.seesOldCycle = function(x) { - return this.cycles.containsKey(x); - }; - - ToDomNodeParameters.prototype.get = function(x) { - return this.cache.get(x); - }; - - ToDomNodeParameters.prototype.remove = function(x) { - return this.cache.remove(x); - }; - - ToDomNodeParameters.prototype.put = function(x, v) { - return this.cache.put(x, v); - }; - - ToDomNodeParameters.prototype.recur = function(x) { - return toDomNode(x, this.incrementDepth()); - }; - - - - // rationalToDomNode: rational -> dom-node - var rationalToDomNode = function(n) { - var repeatingDecimalNode = document.createElement("span"); - var chunks = baselib.numbers.toRepeatingDecimal(baselib.numbers.numerator(n), - baselib.numbers.denominator(n), - {limit: 25}); - repeatingDecimalNode.appendChild(document.createTextNode(chunks[0] + '.')); - repeatingDecimalNode.appendChild(document.createTextNode(chunks[1])); - if (chunks[2] === '...') { - repeatingDecimalNode.appendChild( - document.createTextNode(chunks[2])); - } else if (chunks[2] !== '0') { - var overlineSpan = document.createElement("span"); - overlineSpan.style.textDecoration = 'overline'; - overlineSpan.appendChild(document.createTextNode(chunks[2])); - repeatingDecimalNode.appendChild(overlineSpan); - } - - - var fractionalNode = document.createElement("span"); - var numeratorNode = document.createElement("sup"); - numeratorNode.appendChild(document.createTextNode(String(baselib.numbers.numerator(n)))); - var denominatorNode = document.createElement("sub"); - denominatorNode.appendChild(document.createTextNode(String(baselib.numbers.denominator(n)))); - fractionalNode.appendChild(numeratorNode); - fractionalNode.appendChild(document.createTextNode("/")); - fractionalNode.appendChild(denominatorNode); - - - var numberNode = document.createElement("span"); - numberNode.appendChild(repeatingDecimalNode); - numberNode.appendChild(fractionalNode); - fractionalNode.style['display'] = 'none'; - - var showingRepeating = true; - - numberNode.onclick = function(e) { - showingRepeating = !showingRepeating; - repeatingDecimalNode.style['display'] = - (showingRepeating ? 'inline' : 'none'); - fractionalNode.style['display'] = - (!showingRepeating ? 'inline' : 'none'); - }; - numberNode.style['cursor'] = 'pointer'; - return numberNode; - }; - - - // numberToDomNode: jsnum -> dom - // Given a jsnum, produces a dom-node representation. - var numberToDomNode = function(n, params) { - var node; - if (baselib.numbers.isExact(n)) { - if (baselib.numbers.isInteger(n)) { - node = document.createElement("span"); - node.appendChild(document.createTextNode(n.toString())); - return node; - } else if (baselib.numbers.isRational(n)) { - return rationalToDomNode(n); - } else if (baselib.numbers.isComplex(n)) { - node = document.createElement("span"); - node.appendChild(document.createTextNode(n.toString())); - return node; - } else { - node = document.createElement("span"); - node.appendChild(document.createTextNode(n.toString())); - return node; - } - } else { - node = document.createElement("span"); - node.appendChild(document.createTextNode(n.toString())); - return node; - } - }; - - - var coerseToParams = function(params) { - if (params === 'write') { - params = new ToDomNodeParameters({'mode' : 'write'}); - } else if (params === 'print') { - params = new ToDomNodeParameters({'mode' : 'print'}); - } else if (params === 'display') { - params = new ToDomNodeParameters({'mode' : 'display'}); - } else if (params === 'constructor') { - params = new ToDomNodeParameters({'mode' : 'constructor'}); - } else { - params = params || new ToDomNodeParameters({'mode' : 'display'}); - } - return params; - }; - - - // toDomNode: scheme-value -> dom-node - var toDomNode = function(x, params) { - var node, retval; - params = coerseToParams(params); - - if (x === null) { - node = document.createElement("span"); - node.appendChild(document.createTextNode("#")); - $(node).addClass("null"); - return node; - } - - if (x === undefined) { - node = document.createElement("span"); - node.appendChild(document.createTextNode("#")); - $(node).addClass("undefined"); - return node; - } - - if (baselib.numbers.isSchemeNumber(x)) { - node = numberToDomNode(x, params); - $(node).addClass("number"); - return node; - } - - if (typeof(x) === 'string') { - var wrapper = document.createElement("span"); - wrapper.style["white-space"] = "pre"; - if (params.getMode() === 'write' || params.getMode() === 'print' || params.getMode() === 'constructor') { - node = document.createTextNode(toWrittenString(x)); - } else { - node = document.createTextNode(toDisplayedString(x)); - } - wrapper.appendChild(node); - $(wrapper).addClass("string"); - return wrapper; - } - - if (x === true || x === false) { - node = document.createElement("span"); - node.appendChild(document.createTextNode(x ? "true" : "false")); - $(node).addClass("boolean"); - return node; - } - - if (baselib.functions.isProcedure(x)) { - node = document.createElement("span"); - node.appendChild(document.createTextNode('#')); - $(node).addClass("procedure"); - return node; - } - - if (typeof(x) !== 'object') { - node = document.createElement("span"); - node.appendChild(document.createTextNode(x.toString())); - return node; - } - - if (x.nodeType) { - return x; - } - - - - // Otherwise, we know the value is an object. - - // If we're along a print path with a loop, we need to stop - // and return the key. - if (params.seesOldCycle(x)) { - node = document.createElement("span"); - node.appendChild(document.createTextNode("#" + params.cycles.get(x) + "#")); - $(node).addClass("cycle"); - return node; - } - - // If we see a fresh cycle, register it. - if (params.containsKey(x)) { - $('').text('#' + params.objectCounter +'=') - .prependTo(params.get(x)); - - params.cycles.put(x, params.objectCounter); - params.objectCounter++; - - node = document.createElement("span"); - node.appendChild(document.createTextNode("#" + params.cycles.get(x) + "#")); - $(node).addClass("cycle"); - return node; - } - - node = document.createElement("span"); - params.put(x, node); - if (x.toDomNode) { - node.appendChild(x.toDomNode(params)); - } else if (params.getMode() === 'write' && x.toWrittenString) { - node.appendChild(document.createTextNode( - x.toWrittenString(params))); - } else if (params.getMode() === 'display' && x.toDisplayedString) { - node.appendChild(document.createTextNode( - x.toDisplayedString(params))); - } else { - node.appendChild(document.createTextNode(x.toString())); - } - params.remove(x); - return node; - }; - - - - ////////////////////////////////////////////////////////////////////// - - - exports.ToDomNodeParameters = ToDomNodeParameters; - - exports.format = format; - exports.toWrittenString = toWrittenString; - exports.toDisplayedString = toDisplayedString; - exports.toDomNode = toDomNode; - - exports.escapeString = escapeString; -}(this.plt.baselib, $));/*jslint vars: true, maxerr: 50, indent: 4 */ - - -// Other miscellaneous constants -(function (baselib) { - 'use strict'; - var exports = {}; - baselib.constants = exports; - - - var VoidValue = function () {}; - VoidValue.prototype.toString = function () { - return "#"; - }; - - var VOID_VALUE = new VoidValue(); - - - var EofValue = function () {}; - EofValue.prototype.toString = function () { - return "#"; - }; - - var EOF_VALUE = new EofValue(); - - - exports.VOID_VALUE = VOID_VALUE; - exports.EOF_VALUE = EOF_VALUE; -}(this.plt.baselib));/*jslint vars: true, maxerr: 50, indent: 4 */ - -// Numbers. -/*global jsnums*/ -(function (baselib, jsnums) { - 'use strict'; - var exports = {}; - baselib.numbers = exports; - - - - var isNumber = jsnums.isSchemeNumber; - var isReal = jsnums.isReal; - var isRational = jsnums.isRational; - var isComplex = isNumber; - var isInteger = jsnums.isInteger; - - - var isNatural = function (x) { - return (jsnums.isExact(x) && isInteger(x) - && jsnums.greaterThanOrEqual(x, 0)); - }; - - var isNonNegativeReal = function (x) { - return isReal(x) && jsnums.greaterThanOrEqual(x, 0); - }; - - var isByte = function (x) { - return (isNatural(x) && - jsnums.lessThan(x, 256)); - }; - - - // sign: number -> number - var sign = function (x) { - if (jsnums.isInexact(x)) { - if (jsnums.greaterThan(x, 0)) { - return jsnums.makeFloat(1); - } else if (jsnums.lessThan(x, 0)) { - return jsnums.makeFloat(-1); - } else { - return jsnums.makeFloat(0); - } - } else { - if (jsnums.greaterThan(x, 0)) { - return 1; - } else if (jsnums.lessThan(x, 0)) { - return -1; - } else { - return 0; - } - } - }; - - - - - ////////////////////////////////////////////////////////////////////// - // Exports - - - // We first re-export everything in jsnums. - var prop; - for (prop in jsnums) { - if (jsnums.hasOwnProperty(prop)) { - exports[prop] = jsnums[prop]; - } - } - - exports.isNumber = jsnums.isSchemeNumber; - exports.isReal = isReal; - exports.isRational = isRational; - exports.isComplex = isComplex; - exports.isInteger = isInteger; - exports.isNatural = isNatural; - exports.isByte = isByte; - exports.isNonNegativeReal = isNonNegativeReal; - - exports.sign = sign; - - -}(this.plt.baselib, jsnums));/*global $*/ -/*jslint browser: true, unparam: true, vars: true, plusplus: true, maxerr: 50, indent: 4 */ - - -// list structures (pairs, empty) -(function (baselib) { - 'use strict'; - var exports = {}; - baselib.lists = exports; - - - var Empty = function () { - }; - Empty.EMPTY = new Empty(); - var EMPTY = Empty.EMPTY; - - - - Empty.prototype.equals = function (other, aUnionFind) { - return other instanceof Empty; - }; - - Empty.prototype.reverse = function () { - return this; - }; - - Empty.prototype.toWrittenString = function (cache) { return "empty"; }; - Empty.prototype.toDisplayedString = function (cache) { return "empty"; }; - Empty.prototype.toString = function (cache) { return "()"; }; - - Empty.prototype.toDomNode = function(params) { - if (params.getMode() === "display") { - return $("").text("()").get(0); - } else if (params.getMode() === "write") { - return $("").text("()").get(0); - } else if (params.getMode() === "print") { - if (params.getDepth() === 0) { - return $("").text("'()").get(0); - } else { - return $("").text("()").get(0); - } - } else if (params.getMode() === "constructor") { - return $("").text("(list)").get(0); - } else { - return $("").text("()").get(0); - } - }; - - // Empty.append: (listof X) -> (listof X) - Empty.prototype.append = function (b) { - return b; - }; - - - - ////////////////////////////////////////////////////////////////////// - - // Cons Pairs - - var Cons = function (first, rest) { - this.first = first; - this.rest = rest; - }; - - var makePair = function (first, rest) { - return new Cons(first, rest); - }; - - Cons.prototype.reverse = function () { - var lst = this; - var ret = EMPTY; - while (lst !== EMPTY) { - ret = makePair(lst.first, ret); - lst = lst.rest; - } - return ret; - }; - - // FIXME: can we reduce the recursion on this? - Cons.prototype.equals = function (other, aUnionFind) { - if (!(other instanceof Cons)) { - return false; - } - return (baselib.equality.equals(this.first, other.first, aUnionFind) && - baselib.equality.equals(this.rest, other.rest, aUnionFind)); - }; - - - // Cons.append: (listof X) -> (listof X) - Cons.prototype.append = function (b) { - if (b === EMPTY) { - return this; - } - var ret = b; - var lst = this.reverse(); - while (lst !== EMPTY) { - ret = makePair(lst.first, ret); - lst = lst.rest; - } - return ret; - }; - - - Cons.prototype.toWrittenString = function (cache) { - cache.put(this, true); - var texts = []; - var p = this; - while (p instanceof Cons) { - texts.push(baselib.format.toWrittenString(p.first, cache)); - p = p.rest; - if (typeof (p) === 'object' && cache.containsKey(p)) { - break; - } - } - if (p !== EMPTY) { - texts.push('.'); - texts.push(baselib.format.toWrittenString(p, cache)); - } - return "(" + texts.join(" ") + ")"; - }; - - Cons.prototype.toString = Cons.prototype.toWrittenString; - - Cons.prototype.toDisplayedString = function (cache) { - cache.put(this, true); - var texts = []; - var p = this; - while (p instanceof Cons) { - texts.push(baselib.format.toDisplayedString(p.first, cache)); - p = p.rest; - if (typeof (p) === 'object' && cache.containsKey(p)) { - break; - } - } - if (p !== EMPTY) { - texts.push('.'); - texts.push(baselib.format.toDisplayedString(p, cache)); - } - return "(" + texts.join(" ") + ")"; - }; - - - - Cons.prototype.toDomNode = function (params) { - var node; - - var subelts = [], dottedPair = false, i; - var p = this; - while (p instanceof Cons) { - subelts.push(params.recur(p.first)); - p = p.rest; - if (typeof (p) === 'object' && params.containsKey(p)) { - break; - } - } - if (p !== EMPTY) { - dottedPair = true; - subelts.push(params.recur(p)); - } - - - if (params.getMode() === 'constructor') { - if (dottedPair) { - node = subelts[subelts.length - 1]; - for (i = subelts.length - 2; i >= 0; i--) { - node = $('') - .text("(cons ") - .append(subelts[i]) - .append(" ") - .append(node) - .append(")").get(0); - } - return node; - } else { - node = document.createElement("span"); - node.appendChild(document.createTextNode("(")); - node.appendChild(document.createTextNode("list")); - node.appendChild(document.createTextNode(" ")); - node.appendChild(subelts[0]); - for (i = 1; i < subelts.length; i++) { - node.appendChild(document.createTextNode(" ")); - node.appendChild(subelts[i]); - } - node.appendChild(document.createTextNode(")")); - return node; - } - } - - node = document.createElement('span'); - if (params.getMode() === 'print') { - node.appendChild(document.createTextNode("'")); - } - node.appendChild(document.createTextNode("(")); - node.appendChild(subelts[0]); - if (subelts.length > 1) { - for (i = 1; i < subelts.length - 1; i++) { - node.appendChild(document.createTextNode(" ")); - node.appendChild(subelts[i]); - } - if (dottedPair) { - node.appendChild(document.createTextNode(" ")); - node.appendChild(document.createTextNode(".")); - } - node.appendChild(document.createTextNode(" ")); - node.appendChild(subelts[subelts.length - 1]); - } - node.appendChild(document.createTextNode(")")); - return node; - }; - - - var isPair = function (x) { return x instanceof Cons; }; - var isEmpty = function (x) { return x === EMPTY; }; - - - - var makeList = function () { - var result = EMPTY, i; - for (i = arguments.length - 1; i >= 0; i--) { - result = makePair(arguments[i], result); - } - return result; - }; - - - // Coerse a list back into a JavaScript array. - var listToArray = function (lst) { - var result = []; - while (lst !== EMPTY) { - result.push(lst.first); - lst = lst.rest; - } - return result; - }; - - - // isList: Any -> Boolean - // Returns true if x is a list (a chain of pairs terminated by EMPTY). - var isList = function (x) { - var tortoise, hare; - tortoise = hare = x; - if (hare === EMPTY) { return true; } - while (true) { - if (!(hare instanceof Cons)) { return false; } - if (tortoise instanceof Cons) { tortoise = tortoise.rest; } - hare = hare.rest; - if (hare instanceof Cons) { hare = hare.rest; } - if (hare === EMPTY) { return true; } - if (tortoise === hare) { return false; } - } - }; - - - - var reverse = function (lst) { - var rev = EMPTY; - while (lst !== EMPTY) { - rev = makePair(lst.first, rev); - lst = lst.rest; - } - return rev; - }; - - - var length = function (lst) { - var len = 0; - while (lst !== EMPTY) { - len++; - lst = lst.rest; - } - return len; - }; - - - var listRef = function (lst, n) { - var i; - for (i = 0; i < n; i++) { - lst = lst.rest; - } - return lst.first; - }; - - - - ////////////////////////////////////////////////////////////////////// - - exports.EMPTY = EMPTY; - exports.Empty = Empty; - exports.Cons = Cons; - exports.isPair = isPair; - exports.isList = isList; - exports.isEmpty = isEmpty; - exports.makePair = makePair; - exports.makeList = makeList; - exports.reverse = reverse; - exports.length = length; - exports.listRef = listRef; - exports.listToArray = listToArray; - -}(this.plt.baselib));// vectors -/*jslint devel: false, browser: true, vars: true, plusplus: true, maxerr: 500, indent: 4 */ -(function (baselib) { - "use strict"; - var exports = {}; - baselib.vectors = exports; - - - - var Vector = function (n, initialElements) { - var i; - this.elts = []; - this.elts.length = n; - if (initialElements) { - for (i = 0; i < n; i++) { - this.elts[i] = initialElements[i]; - } - } else { - for (i = 0; i < n; i++) { - this.elts[i] = undefined; - } - } - this.mutable = true; - }; - - Vector.makeInstance = function (n, elts) { - return new Vector(n, elts); - }; - - Vector.prototype.length = function () { - return this.elts.length; - }; - - Vector.prototype.ref = function (k) { - return this.elts[k]; - }; - - Vector.prototype.set = function (k, v) { - this.elts[k] = v; - }; - - Vector.prototype.equals = function (other, aUnionFind) { - var i; - if (other instanceof Vector) { - if (other.length() !== this.length()) { - return false; - } - for (i = 0; i < this.length(); i++) { - if (!(baselib.equality.equals(this.elts[i], other.elts[i], aUnionFind))) { - return false; - } - } - return true; - } else { - return false; - } - }; - - Vector.prototype.toList = function () { - var ret = baselib.lists.EMPTY, i; - for (i = this.length() - 1; i >= 0; i--) { - ret = baselib.lists.makePair(this.elts[i], ret); - } - return ret; - }; - - Vector.prototype.toWrittenString = function (cache) { - var texts = [], i; - cache.put(this, true); - for (i = 0; i < this.length(); i++) { - texts.push(baselib.format.toWrittenString(this.ref(i), cache)); - } - return "#(" + texts.join(" ") + ")"; - }; - - Vector.prototype.toDisplayedString = function (cache) { - var texts = [], i; - cache.put(this, true); - for (i = 0; i < this.length(); i++) { - texts.push(baselib.format.toDisplayedString(this.ref(i), cache)); - } - return "#(" + texts.join(" ") + ")"; - }; - - Vector.prototype.toDomNode = function (params) { - var node = document.createElement("span"), i; - if (params.getMode() === 'constructor') { - node.appendChild(document.createTextNode("(vector")); - for (i = 0; i < this.length(); i++) { - node.appendChild(document.createTextNode(" ")); - node.appendChild(params.recur(this.ref(i))); - } - node.appendChild(document.createTextNode(")")); - } else { - node.appendChild(document.createTextNode("#(")); - for (i = 0; i < this.length(); i++) { - node.appendChild(params.recur(this.ref(i))); - if (i !== this.length() - 1) { - node.appendChild(document.createTextNode(" ")); - } - } - node.appendChild(document.createTextNode(")")); - } - return node; - }; - - - var isVector = function (x) { return x instanceof Vector; }; - - // makeVector: x ... -> vector - var makeVector = function (n, elts) { - return Vector.makeInstance(n, elts); - }; - - var makeVectorImmutable = function (n, elts) { - var v = Vector.makeInstance(n, elts); - v.mutable = false; - return v; - }; - - - - ////////////////////////////////////////////////////////////////////// - - exports.Vector = Vector; - exports.isVector = isVector; - exports.makeVector = makeVector; - exports.makeVectorImmutable = makeVectorImmutable; - - -}(this.plt.baselib));// Single characters -(function(baselib) { - var exports = {}; - baselib.chars = exports; - - - // Chars - // Char: string -> Char - var Char = function(val){ - this.val = val; - }; - // The characters less than 256 must be eq?, according to the - // documentation: - // http://docs.racket-lang.org/reference/characters.html - var _CharCache = {}; - for (var i = 0; i < 256; i++) { - _CharCache[String.fromCharCode(i)] = new Char(String.fromCharCode(i)); - } - - // makeInstance: 1-character string -> Char - Char.makeInstance = function(val){ - if (_CharCache[val]) { - return _CharCache[val]; - } - return new Char(val); - }; - - Char.prototype.toString = function(cache) { - var code = this.val.charCodeAt(0); - var returnVal; - switch (code) { - case 0: returnVal = '#\\nul'; break; - case 8: returnVal = '#\\backspace'; break; - case 9: returnVal = '#\\tab'; break; - case 10: returnVal = '#\\newline'; break; - case 11: returnVal = '#\\vtab'; break; - case 12: returnVal = '#\\page'; break; - case 13: returnVal = '#\\return'; break; - case 20: returnVal = '#\\space'; break; - case 127: returnVal = '#\\rubout'; break; - default: if (code >= 32 && code <= 126) { - returnVal = ("#\\" + this.val); - } - else { - var numStr = code.toString(16).toUpperCase(); - while (numStr.length < 4) { - numStr = '0' + numStr; - } - returnVal = ('#\\u' + numStr); - } - break; - } - return returnVal; - }; - - Char.prototype.toWrittenString = Char.prototype.toString; - - Char.prototype.toDisplayedString = function (cache) { - return this.val; - }; - - Char.prototype.getValue = function() { - return this.val; - }; - - Char.prototype.equals = function(other, aUnionFind){ - return other instanceof Char && this.val == other.val; - }; - - - - - exports.Char = Char; - exports.makeChar = Char.makeInstance; - exports.isChar = plt.baselib.makeClassPredicate(Char); - - -})(this['plt'].baselib);/*jslint devel: false, browser: true, unparam: true, vars: true, plusplus: true, maxerr: 500, indent: 4 */ -// Structure types -(function (baselib) { - "use strict"; - var exports = {}; - baselib.symbols = exports; - - - ////////////////////////////////////////////////////////////////////// - - // Symbols - - ////////////////////////////////////////////////////////////////////// - var Symbol = function (val) { - this.val = val; - }; - - var symbolCache = {}; - - // makeInstance: string -> Symbol. - Symbol.makeInstance = function (val) { - // To ensure that we can eq? symbols with equal values. - if (!(symbolCache.hasOwnProperty(val))) { - symbolCache[val] = new Symbol(val); - } - return symbolCache[val]; - }; - - Symbol.prototype.equals = function (other, aUnionFind) { - return other instanceof Symbol && - this.val === other.val; - }; - - - Symbol.prototype.toString = function (cache) { - return this.val; - }; - - Symbol.prototype.toWrittenString = function (cache) { - return this.val; - }; - - Symbol.prototype.toDisplayedString = function (cache) { - return this.val; - }; - - Symbol.prototype.toDomNode = function(params) { - if (params.getMode() === 'write') { - return $("").text(this.val).get(0); - } - if (params.getMode() === 'display') { - return $("").text(this.val).get(0); - } - if (params.getMode() === 'print') { - if (params.getDepth() === 0) { - return $("").text("'" + this.val).get(0); - } else { - return $("").text(this.val).get(0); - } - } - if (params.getMode() === 'constructor') { - return $("").text("'" + this.val).get(0); - } - - return $("").text(this.val).get(0); - }; - - - - var isSymbol = function (x) { return x instanceof Symbol; }; - - var makeSymbol = function (s) { return Symbol.makeInstance(s); }; - - - - ////////////////////////////////////////////////////////////////////// - - exports.Symbol = Symbol; - exports.makeSymbol = makeSymbol; - exports.isSymbol = isSymbol; - -}(this.plt.baselib));/*jslint browser: false, unparam: true, vars: true, white: true, nomen: true, plusplus: true, maxerr: 50, indent: 4 */ - - -// Strings - -// Strings are either mutable or immutable. immutable strings are represented -// as regular JavaScript strings. Mutable ones are represented as instances -// of the Str class. - -(function (baselib) { - 'use strict'; - var exports = {}; - - baselib.strings = exports; - - - // chars: arrayof string - // Precondition: each string must only be 1 character long or bad things - // happen. - var Str = function (chars) { - this.chars = chars; - this.length = chars.length; - this.mutable = true; - }; - - Str.makeInstance = function (chars) { - return new Str(chars); - }; - - Str.fromString = function (s) { - return Str.makeInstance(s.split("")); - }; - - Str.prototype.toString = function () { - return this.chars.join(""); - }; - - var replaceUnprintableStringChars = function (s) { - var ret = [], i; - for (i = 0; i < s.length; i++) { - var val = s.charCodeAt(i); - switch(val) { - case 7: ret.push('\\a'); break; - case 8: ret.push('\\b'); break; - case 9: ret.push('\\t'); break; - case 10: ret.push('\\n'); break; - case 11: ret.push('\\v'); break; - case 12: ret.push('\\f'); break; - case 13: ret.push('\\r'); break; - case 34: ret.push('\\"'); break; - case 92: ret.push('\\\\'); break; - default: - if (val >= 32 && val <= 126) { - ret.push( s.charAt(i) ); - } - else { - var numStr = val.toString(16).toUpperCase(); - while (numStr.length < 4) { - numStr = '0' + numStr; - } - ret.push('\\u' + numStr); - } - break; - } - } - return ret.join(''); - }; - - var escapeString = function (s) { - return '"' + replaceUnprintableStringChars(s) + '"'; - }; - - Str.prototype.toWrittenString = function (cache) { - return escapeString(this.toString()); - }; - - Str.prototype.toDisplayedString = Str.prototype.toString; - - Str.prototype.copy = function () { - return Str.makeInstance(this.chars.slice(0)); - }; - - Str.prototype.substring = function (start, end) { - if (end === null || end === undefined) { - end = this.length; - } - return Str.makeInstance( this.chars.slice(start, end) ); - }; - - Str.prototype.charAt = function (index) { - return this.chars[index]; - }; - - Str.prototype.charCodeAt = function (index) { - return this.chars[index].charCodeAt(0); - }; - - Str.prototype.replace = function (expr, newStr) { - return Str.fromString( this.toString().replace(expr, newStr) ); - }; - - - Str.prototype.equals = function (other, aUnionFind) { - if ( !(other instanceof Str || typeof(other) === 'string') ) { - return false; - } - return this.toString() === other.toString(); - }; - - - Str.prototype.set = function (i, c) { - this.chars[i] = c; - }; - - Str.prototype.toUpperCase = function () { - return Str.fromString( this.chars.join("").toUpperCase() ); - }; - - Str.prototype.toLowerCase = function () { - return Str.fromString( this.chars.join("").toLowerCase() ); - }; - - Str.prototype.match = function (regexpr) { - return this.toString().match(regexpr); - }; - - - - var isString = function (s) { - return (typeof s === 'string' || - s instanceof Str); - }; - - var isMutableString = baselib.makeClassPredicate(Str); - - - - exports.Str = Str; - exports.escapeString = escapeString; - exports.isString = isString; - exports.isMutableString = isMutableString; - exports.makeMutableString = Str.makeInstance; - -}(this.plt.baselib));/*jslint unparam: true, vars: true, white: true, plusplus: true, maxerr: 50, indent: 4 */ - - - -(function(baselib) { - 'use strict'; - var exports = {}; - baselib.bytes = exports; - - // Bytes - - var Bytes = function(bts, mutable) { - // bytes: arrayof [0-255] - this.bytes = bts; - this.mutable = (mutable === undefined) ? false : mutable; - }; - - Bytes.prototype.get = function(i) { - return this.bytes[i]; - }; - - Bytes.prototype.set = function(i, b) { - if (this.mutable) { - this.bytes[i] = b; - } - }; - - Bytes.prototype.length = function() { - return this.bytes.length; - }; - - Bytes.prototype.copy = function(mutable) { - return new Bytes(this.bytes.slice(0), mutable); - }; - - Bytes.prototype.subbytes = function(start, end) { - if (end === null || end === undefined) { - end = this.bytes.length; - } - return new Bytes( this.bytes.slice(start, end), true ); - }; - - - Bytes.prototype.equals = function(other) { - if (! (other instanceof Bytes)) { - return false; - } - if (this.bytes.length !== other.bytes.length) { - return false; - } - var A = this.bytes; - var B = other.bytes; - var n = this.bytes.length; - var i; - for (i = 0; i < n; i++) { - if (A[i] !== B[i]) { - return false; - } - } - return true; - }; - - - Bytes.prototype.toString = function(cache) { - var ret = [], i; - for (i = 0; i < this.bytes.length; i++) { - ret.push(String.fromCharCode(this.bytes[i])); - } - - return ret.join(''); - }; - - Bytes.prototype.toDisplayedString = Bytes.prototype.toString; - - var escapeByte = function(aByte) { - var ret = []; - var returnVal; - switch(aByte) { - case 7: returnVal = '\\a'; break; - case 8: returnVal = '\\b'; break; - case 9: returnVal = '\\t'; break; - case 10: returnVal = '\\n'; break; - case 11: returnVal = '\\v'; break; - case 12: returnVal = '\\f'; break; - case 13: returnVal = '\\r'; break; - case 34: returnVal = '\\"'; break; - case 92: returnVal = '\\\\'; break; - default: if (aByte >= 32 && aByte <= 126) { - returnVal = String.fromCharCode(aByte); - } - else { - ret.push( '\\' + aByte.toString(8) ); - } - break; - } - return returnVal; - }; - - Bytes.prototype.toWrittenString = function() { - var ret = ['#"'], i; - for (i = 0; i < this.bytes.length; i++) { - ret.push(escapeByte(this.bytes[i])); - } - ret.push('"'); - return ret.join(''); - }; - - var makeBytes = function(chars) { - return new Bytes(chars); - }; - - var isBytes = baselib.makeClassPredicate(Bytes); - - - exports.Bytes = Bytes; - exports.makeBytes = makeBytes; - exports.isBytes = isBytes; - - -}(this.plt.baselib));/*jslint unparam: true, vars: true, white: true, newcap: true, nomen: true, plusplus: true, maxerr: 50, indent: 4 */ - -/*global Hashtable*/ - - -(function (baselib, Hashtable) { - 'use strict'; - var exports = {}; - - baselib.hashes = exports; - - - - var _eqHashCodeCounter = 0; - var makeEqHashCode = function () { - _eqHashCodeCounter++; - return _eqHashCodeCounter; - }; - - - // getHashCode: any -> (or fixnum string) - // Given a value, produces a hashcode appropriate for eq. - var getEqHashCode = function (x) { - if (typeof (x) === 'string') { - return x; - } - if (typeof (x) === 'number') { - return String(x); - } - if (x && !x._eqHashCode) { - x._eqHashCode = makeEqHashCode(); - } - if (x && x._eqHashCode) { - return x._eqHashCode; - } - return 0; - }; - - - // Creates a low-level hashtable, following the interface of - // http://www.timdown.co.uk/jshashtable/ - // - // Defined to use the getEqHashCode defined in baselib_hash.js. - var makeLowLevelEqHash = function () { - return new Hashtable(function (x) { return getEqHashCode(x); }, - function (x, y) { return x === y; }); - }; - - - - - - - - - - - ////////////////////////////////////////////////////////////////////// - // Eq Hashtables - var EqHashTable = function (inputHash) { - this.hash = makeLowLevelEqHash(); - this.mutable = true; - - }; - - EqHashTable.prototype.toWrittenString = function (cache) { - var keys = this.hash.keys(); - var ret = [], i; - for (i = 0; i < keys.length; i++) { - var keyStr = baselib.format.toWrittenString(keys[i], cache); - var valStr = baselib.format.toWrittenString(this.hash.get(keys[i]), cache); - ret.push('(' + keyStr + ' . ' + valStr + ')'); - } - return ('#hasheq(' + ret.join(' ') + ')'); - }; - - EqHashTable.prototype.toDisplayedString = function (cache) { - var keys = this.hash.keys(); - var ret = [], i; - for (i = 0; i < keys.length; i++) { - var keyStr = baselib.format.toDisplayedString(keys[i], cache); - var valStr = baselib.format.toDisplayedString(this.hash.get(keys[i]), cache); - ret.push('(' + keyStr + ' . ' + valStr + ')'); - } - return ('#hasheq(' + ret.join(' ') + ')'); - }; - - EqHashTable.prototype.equals = function (other, aUnionFind) { - if (!(other instanceof EqHashTable)) { - return false; - } - - if (this.hash.keys().length !== other.hash.keys().length) { - return false; - } - - var keys = this.hash.keys(), i; - for (i = 0; i < keys.length; i++) { - if (!(other.hash.containsKey(keys[i]) && - baselib.equality.equals(this.hash.get(keys[i]), - other.hash.get(keys[i]), - aUnionFind))) { - return false; - } - } - return true; - }; - - - - ////////////////////////////////////////////////////////////////////// - // Equal hash tables - var EqualHashTable = function (inputHash) { - this.hash = new Hashtable( - function (x) { - return baselib.format.toWrittenString(x); - }, - function (x, y) { - return baselib.equality.equals(x, y, new baselib.UnionFind()); - }); - this.mutable = true; - }; - - EqualHashTable.prototype.toWrittenString = function (cache) { - var keys = this.hash.keys(); - var ret = [], i; - for (i = 0; i < keys.length; i++) { - var keyStr = baselib.format.toWrittenString(keys[i], cache); - var valStr = baselib.format.toWrittenString(this.hash.get(keys[i]), cache); - ret.push('(' + keyStr + ' . ' + valStr + ')'); - } - return ('#hash(' + ret.join(' ') + ')'); - }; - EqualHashTable.prototype.toDisplayedString = function (cache) { - var keys = this.hash.keys(); - var ret = [], i; - for (i = 0; i < keys.length; i++) { - var keyStr = baselib.format.toDisplayedString(keys[i], cache); - var valStr = baselib.format.toDisplayedString(this.hash.get(keys[i]), cache); - ret.push('(' + keyStr + ' . ' + valStr + ')'); - } - return ('#hash(' + ret.join(' ') + ')'); - }; - - EqualHashTable.prototype.equals = function (other, aUnionFind) { - if ( !(other instanceof EqualHashTable) ) { - return false; - } - - if (this.hash.keys().length !== other.hash.keys().length) { - return false; - } - - var keys = this.hash.keys(), i; - for (i = 0; i < keys.length; i++){ - if (! (other.hash.containsKey(keys[i]) && - baselib.equality.equals(this.hash.get(keys[i]), - other.hash.get(keys[i]), - aUnionFind))) { - return false; - } - } - return true; - }; - - - - - var isHash = function (x) { - return (x instanceof EqHashTable || - x instanceof EqualHashTable); - }; - - - ////////////////////////////////////////////////////////////////////// - - exports.getEqHashCode = getEqHashCode; - exports.makeEqHashCode = makeEqHashCode; - exports.makeLowLevelEqHash = makeLowLevelEqHash; - - - exports.EqualHashTable = EqualHashTable; - exports.EqHashTable = EqHashTable; - exports.isHash = isHash; - - -}(this.plt.baselib, Hashtable));/*jslint vars: true, maxerr: 50, indent: 4 */ - -(function (baselib) { - 'use strict'; - var exports = {}; - baselib.regexps = exports; - - - // Regular expressions. - - var RegularExpression = function (pattern) { - this.pattern = pattern; - }; - - - var ByteRegularExpression = function (pattern) { - this.pattern = pattern; - }; - - ////////////////////////////////////////////////////////////////////// - - exports.RegularExpression = RegularExpression; - exports.ByteRegularExpression = ByteRegularExpression; - -}(this.plt.baselib));/*jslint vars: true, maxerr: 50, indent: 4 */ - - -(function (baselib) { - 'use strict'; - var exports = {}; - baselib.paths = exports; - - // Paths - - var Path = function (p) { - this.path = p; - }; - - Path.prototype.toString = function () { - return "#"; - }; - - ////////////////////////////////////////////////////////////////////// - - var makePath = function (p) { - return new Path(p); - }; - - var isPath = baselib.makeClassPredicate(Path); - - - - exports.Path = Path; - exports.makePath = makePath; - exports.isPath = isPath; - -}(this.plt.baselib));/*jslint browser: true, unparam: true, vars: true, white: true, plusplus: true, maxerr: 50, indent: 4 */ - - -// Exceptions - -(function(baselib) { - 'use strict'; - var exports = {}; - baselib.boxes = exports; - - - ////////////////////////////////////////////////////////////////////// - // Boxes - - var Box = function(x, mutable) { - this.val = x; - this.mutable = mutable; - }; - - Box.prototype.ref = function() { - return this.val; - }; - - Box.prototype.set = function(newVal) { - if (this.mutable) { - this.val = newVal; - } - }; - - Box.prototype.toString = function(cache) { - cache.put(this, true); - return "#&" + baselib.format.toWrittenString(this.val, cache); - }; - - Box.prototype.toWrittenString = function(cache) { - cache.put(this, true); - return "#&" + baselib.format.toWrittenString(this.val, cache); - }; - - Box.prototype.toDisplayedString = function(cache) { - cache.put(this, true); - return "#&" + baselib.format.toDisplayedString(this.val, cache); - }; - - Box.prototype.toDomNode = function(params) { - var node = document.createElement("span"); - if (params.getMode() === 'constructor') { - node.appendChild(document.createTextNode("(box ")); - node.appendChild(params.recur(this.val)); - node.appendChild(document.createTextNode(")")); - } else { - node.appendChild(document.createTextNode('#&')); - node.appendChild(params.recur(this.val)); - } - return node; - }; - - Box.prototype.equals = function(other, aUnionFind) { - return ((other instanceof Box) && - baselib.equality.equals(this.val, other.val, aUnionFind)); - }; - - var makeBox = function(x) { - return new Box(x, true); - }; - - var makeImmutableBox = function(x) { - return new Box(x, false); - }; - - var isBox = function(x) { - return x instanceof Box; - }; - - var isMutableBox = function(x) { - return (x instanceof Box && x.mutable); - }; - - var isImmutableBox = function(x) { - return (x instanceof Box && (!x.mutable)); - }; - - - - - ////////////////////////////////////////////////////////////////////// - exports.Box = Box; - exports.isBox = isBox; - exports.isMutableBox = isMutableBox; - exports.isImmutableBox = isImmutableBox; - exports.makeBox = makeBox; - exports.makeImmutableBox = makeImmutableBox; - - -}(this.plt.baselib));// Placeholders -/*jslint browser: true, unparam: true, vars: true, maxerr: 50, indent: 4 */ -(function (baselib) { - 'use strict'; - var exports = {}; - baselib.placeholders = exports; - - - // Placeholders: same thing as boxes. Distinct type just to support make-reader-graph. - - var Placeholder = function (x, mutable) { - this.val = x; - }; - - Placeholder.prototype.ref = function () { - return this.val; - }; - - Placeholder.prototype.set = function (newVal) { - this.val = newVal; - }; - - Placeholder.prototype.toString = function (cache) { - return "#"; - }; - - Placeholder.prototype.toWrittenString = function (cache) { - return "#"; - }; - - Placeholder.prototype.toDisplayedString = function (cache) { - return "#"; - }; - - Placeholder.prototype.toDomNode = function (cache) { - var parent = document.createElement("span"); - parent.appendChild(document.createTextNode('#')); - return parent; - }; - - Placeholder.prototype.equals = function (other, aUnionFind) { - return ((other instanceof Placeholder) && - baselib.equality.equals(this.val, other.val, aUnionFind)); - }; - - - var makePlaceholder = function(v) { - return new Placeholder(v); - }; - - var isPlaceholder = function (x) { - return x instanceof Placeholder; - }; - - - - ////////////////////////////////////////////////////////////////////// - exports.Placeholder = Placeholder; - exports.makePlaceholder = makePlaceholder; - exports.isPlaceholder = isPlaceholder; - - - -}(this.plt.baselib));/*jslint unparam: true, vars: true, maxerr: 50, indent: 4 */ - -// Keywords - -(function (baselib) { - 'use strict'; - var exports = {}; - baselib.keywords = exports; - - - var Keyword = function (val) { - this.val = val; - }; - - var keywordCache = {}; - - // makeInstance: string -> Keyword. - Keyword.makeInstance = function (val) { - // To ensure that we can eq? symbols with equal values. - if (!(keywordCache.hasOwnProperty(val))) { - keywordCache[val] = new Keyword(val); - } - return keywordCache[val]; - }; - - Keyword.prototype.equals = function (other, aUnionFind) { - return other instanceof Keyword && - this.val === other.val; - }; - - - Keyword.prototype.toString = function (cache) { - return this.val; - }; - - Keyword.prototype.toWrittenString = function (cache) { - return this.val; - }; - - Keyword.prototype.toDisplayedString = function (cache) { - return this.val; - }; - - - exports.Keyword = Keyword; - -}(this.plt.baselib));/*jslint browser: true, unparam: true, vars: true, white: true, nomen: true, plusplus: true, maxerr: 50, indent: 4 */ -/*globals $*/ -(function (baselib, $) { - "use strict"; - var exports = {}; - baselib.structs = exports; - - - - ////////////////////////////////////////////////////////////////////// - - var Struct = function (constructorName, fields) { - this._constructorName = constructorName; - this._fields = []; - }; - - Struct.prototype.toWrittenString = function (cache) { - var buffer = [], i; - cache.put(this, true); - buffer.push("("); - buffer.push(this._constructorName); - for(i = 0; i < this._fields.length; i++) { - buffer.push(" "); - buffer.push(baselib.format.toWrittenString(this._fields[i], cache)); - } - buffer.push(")"); - return buffer.join(""); - }; - - Struct.prototype.toDisplayedString = function (cache) { - return baselib.format.toWrittenString(this, cache); - }; - - Struct.prototype.toDomNode = function (params) { - var node = document.createElement("span"), i; - $(node).append(document.createTextNode("(")); - $(node).append(document.createTextNode(this._constructorName)); - for(i = 0; i < this._fields.length; i++) { - $(node).append(document.createTextNode(" ")); - $(node).append(params.recur(this._fields[i])); - } - $(node).append(document.createTextNode(")")); - return node; - }; - - - Struct.prototype.equals = function (other, aUnionFind) { - var i; - if (!(other instanceof this.type)) { - return false; - } - for (i = 0; i < this._fields.length; i++) { - if (! baselib.equality.equals(this._fields[i], - other._fields[i], - aUnionFind)) { - return false; - } - } - return true; - }; - - Struct.prototype.type = Struct; - - - ////////////////////////////////////////////////////////////////////// - - - var StructType = function (name, // string - type, // StructType - numberOfArgs, // number - numberOfFields, // number - firstField, - applyGuard, - constructor, - predicate, - accessor, - mutator) { - this.name = name; - this.type = type; - this.numberOfArgs = numberOfArgs; - this.numberOfFields = numberOfFields; - this.firstField = firstField; - - this.applyGuard = applyGuard; - this.constructor = constructor; - this.predicate = predicate; - this.accessor = accessor; - this.mutator = mutator; - }; - - - StructType.prototype.toString = function (cache) { - return '#'; - }; - - - StructType.prototype.equals = function (other, aUnionFind) { - return this === other; - }; - - - - - - // guard-function: array string (array -> value) - - - - - - // Default structure guard just calls the continuation argument. - var DEFAULT_GUARD = function (args, name, k) { - return k(args); - }; - - - // The default parent type refers to the toplevel Struct. - var DEFAULT_PARENT_TYPE = { type: Struct, - numberOfArgs: 0, - numberOfFields: 0, - firstField: 0, - applyGuard: DEFAULT_GUARD }; - - - - // makeStructureType: string StructType number number boolean - // guard-function -> StructType - // - // Creates a new structure type. - - var makeStructureType = function (theName, - parentType, - initFieldCnt, - autoFieldCnt, - autoV, - guard) { - - - // Defaults - autoFieldCnt = autoFieldCnt || 0; - parentType = parentType || DEFAULT_PARENT_TYPE; - guard = guard || DEFAULT_GUARD; - - - - // RawConstructor creates a new struct type inheriting from - // the parent, with no guard checks. - var RawConstructor = function (name, args) { - var i; - parentType.type.call(this, name, args); - for (i = 0; i < initFieldCnt; i++) { - this._fields.push(args[i+parentType.numberOfArgs]); - } - for (i = 0; i < autoFieldCnt; i++) { - this._fields.push(autoV); - } - }; - RawConstructor.prototype = baselib.heir(parentType.type.prototype); - - - - // Set type, necessary for equality checking - RawConstructor.prototype.type = RawConstructor; - - // The structure type consists of the name, its constructor, a - // record of how many argument it and its parent type contains, - // the list of autofields, the guard, and functions corresponding - // to the constructor, the predicate, the accessor, and mutators. - var newType = new StructType( - theName, - RawConstructor, - initFieldCnt + parentType.numberOfArgs, - initFieldCnt + autoFieldCnt, - parentType.firstField + parentType.numberOfFields, - function (args, name, k) { - return guard(args, name, - function (result) { - var parentArgs = result.slice(0, parentType.numberOfArgs); - var restArgs = result.slice(parentType.numberOfArgs); - return parentType.applyGuard( - parentArgs, name, - function (parentRes) { - return k( parentRes.concat(restArgs) ); }); - }); - }, - // constructor - function () { - var args = [].slice.call(arguments); - return newType.applyGuard( - args, - baselib.symbols.Symbol.makeInstance(theName), - function (res) { - return new RawConstructor(theName, res); }); - }, - - // predicate - function (x) { - return x instanceof RawConstructor; - }, - - // accessor - function (x, i) { return x._fields[i + this.firstField]; }, - - // mutator - function (x, i, v) { x._fields[i + this.firstField] = v; }); - return newType; - }; - - - - - - - - - var isStruct = function (x) { return x instanceof Struct; }; - var isStructType = function (x) { return x instanceof StructType; }; - - - ////////////////////////////////////////////////////////////////////// - - - exports.StructType = StructType; - exports.Struct = Struct; - exports.makeStructureType = makeStructureType; - exports.isStruct = isStruct; - exports.isStructType = isStructType; - -}(this.plt.baselib, $));/*jslint vars: true, white: true, plusplus: false, maxerr: 50, indent: 4 */ -(function(baselib) { - 'use strict'; - - var exports = {}; - baselib.srclocs = exports; - - // (define-struct srcloc (source line column position span)) - var srcloc = baselib.structs.makeStructureType( - 'srcloc', false, 5, 0, false, false); - - var makeSrcloc = srcloc.constructor; - - var isSrcloc = srcloc.predicate; - var srclocSource = function(x) { return srcloc.accessor(x, 0); }; - var srclocLine = function(x) { return srcloc.accessor(x, 1); }; - var srclocColumn = function(x) { return srcloc.accessor(x, 2); }; - var srclocPosition = function(x) { return srcloc.accessor(x, 3); }; - var srclocSpan = function(x) { return srcloc.accessor(x, 4); }; - - ////////////////////////////////////////////////////////////////////// - exports.makeSrcloc = makeSrcloc; - exports.isSrcloc = isSrcloc; - exports.srclocSource = srclocSource; - exports.srclocLine = srclocLine; - exports.srclocColumn = srclocColumn; - exports.srclocPosition = srclocPosition; - exports.srclocSpan = srclocSpan; - -}(this.plt.baselib));// Arity structure -/*jslint unparam: true, sub: true, vars: true, maxerr: 50, indent: 4 */ -/*globals $*/ -(function (baselib, $) { - 'use strict'; - var exports = {}; - baselib.ports = exports; - - - // Output Ports - var OutputPort = function () {}; - var isOutputPort = baselib.makeClassPredicate(OutputPort); - - - var StandardOutputPort = function () { - OutputPort.call(this); - }; - StandardOutputPort.prototype = baselib.heir(OutputPort.prototype); - StandardOutputPort.prototype.writeDomNode = function (MACHINE, domNode) { - MACHINE.params['currentDisplayer'](MACHINE, domNode); - $(domNode).trigger({type : 'afterAttach'}); - $('*', domNode).trigger({type : 'afterAttach'}); - }; - - var StandardErrorPort = function () { - OutputPort.call(this); - }; - StandardErrorPort.prototype = baselib.heir(OutputPort.prototype); - StandardErrorPort.prototype.writeDomNode = function (MACHINE, domNode) { - MACHINE.params['currentErrorDisplayer'](MACHINE, domNode); - $(domNode).trigger({type : 'afterAttach'}); - $('*', domNode).trigger({type : 'afterAttach'}); - }; - - - - - - var OutputStringPort = function () { - this.buf = []; - }; - OutputStringPort.prototype = baselib.heir(OutputPort.prototype); - OutputStringPort.prototype.writeDomNode = function (MACHINE, v) { - this.buf.push($(v).text()); - }; - OutputStringPort.prototype.getOutputString = function () { - return this.buf.join(''); - }; - var isOutputStringPort = baselib.makeClassPredicate(OutputStringPort); - - - - - // Input ports - // Input Ports need to provide two things: - // - // readByte: - // callWhenReady: - - var InputPort = function () {}; - InputPort.prototype.readByte = function(MACHINE) { - return baselib.constants.EOF_VALUE; - }; - InputPort.prototype.callWhenReady = function(MACHINE, k) { - throw new Error("unimplemented"); - }; - var isInputPort = baselib.makeClassPredicate(InputPort); - - - var StandardInputPort = function() { - this.content = []; - this.closed = false; - }; - StandardInputPort.prototype = baselib.heir(InputPort.prototype); - - StandardInputPort.prototype.readByte = function(MACHINE) { - if (this.content.length !== 0) { - return this.content.shift(); - } - return baselib.constants.EOF_VALUE; - }; - - StandardInputPort.prototype.callWhenReady = function(MACHINE, k) { - if (this.content.length > 0) { - return k(); - } - if (this.closed) { - return k(); - } - var that = this; - var textFieldDiv = $("
" + - " " + - " "+ - "
"); - var readLine = textFieldDiv.find(".readline"); - var eofRead = textFieldDiv.find(".eofread"); - var cleanupAndContinue = function() { - readLine.unbind('keypress'); - eofRead.unbind('click'); - textFieldDiv.remove(); - return k(); - }; - - readLine.keypress( - function(e) { - var val, i; - // On return, send the text content into that.content; - if (e.which === 13) { - e.stopPropagation(); - e.preventDefault(); - val = readLine.val(); - for (i = 0; i < val.length; i++) { - that.content.push(val.charCodeAt(i)); - } - that.content.push('\n'.charCodeAt(0)); - cleanupAndContinue(); - } - }); - eofRead.click( - function(e) { - e.stopPropagation(); - e.preventDefault(); - that.closed = true; - cleanupAndContinue(); - }); - MACHINE.params['currentDisplayer'](MACHINE, textFieldDiv.get(0)); - readLine.focus(); - }; - - - ////////////////////////////////////////////////////////////////////// - exports.OutputPort = OutputPort; - exports.isOutputPort = isOutputPort; - exports.StandardOutputPort = StandardOutputPort; - exports.StandardErrorPort = StandardErrorPort; - exports.OutputStringPort = OutputStringPort; - exports.isOutputStringPort = isOutputStringPort; - - exports.InputPort = InputPort; - exports.isInputPort = isInputPort; - exports.StandardInputPort = StandardInputPort; - - -}(this.plt.baselib, $));/*jslint unparam: true, sub: true, vars: true, white: true, plusplus: true, maxerr: 50, indent: 4 */ - -// Procedures - -// For historical reasons, this module is called 'functions' instead of 'procedures'. -// This may change soon. - -/*global plt*/ - -(function (baselib, plt) { - 'use strict'; - var exports = {}; - baselib.functions = exports; - - // Procedure types: a procedure is either a Primitive or a Closure. - - // A Primitive is a function that's expected to return. It is not - // allowed to call into Closures. Its caller is expected to pop off - // its argument stack space. - // - - - - var isPrimitiveProcedure = function (x) { - return typeof (x) === 'function'; - }; - - - - - - - - // A Closure is a function that takes on more responsibilities: it is - // responsible for popping off stack space before it finishes, and it - // is also explicitly responsible for continuing the computation by - // popping off the control stack and doing the jump. Because of this, - // closures can do pretty much anything to the machine. - - // A closure consists of its free variables as well as a label - // into its text segment. - var Closure = function (label, arity, closedVals, displayName) { - this.label = label; // (MACHINE -> void) - this.racketArity = arity; // number - this.closedVals = closedVals; // arrayof number - this.displayName = displayName; // string - }; - - - // Finalize the return from a closure. This is a helper function - // for those who implement Closures by hand. - // - // If used in the body of a Closure, it must be in tail - // position. This finishes the closure call, and does the following: - // - // * Clears out the existing arguments off the stack frame - // * Sets up the return value - // * Jumps either to the single-value return point, or the multiple-value - // return point. - // - // I'd personally love for this to be a macro and avoid the - // extra function call here. - var finalizeClosureCall = function (MACHINE) { - MACHINE.cbt--; - var returnArgs = [].slice.call(arguments, 1); - - // clear out stack space - MACHINE.e.length -= MACHINE.a; - - if (returnArgs.length === 1) { - MACHINE.v = returnArgs[0]; - return MACHINE.c.pop().label(MACHINE); - } else if (returnArgs.length === 0) { - MACHINE.a = 0; - return (MACHINE.c.pop().label.mvr || plt.runtime.si_context_expected_1)(MACHINE); - } else { - MACHINE.a = returnArgs.length; - MACHINE.v = returnArgs.shift(); - MACHINE.e.push.apply(MACHINE.e, returnArgs.reverse()); - return (MACHINE.c.pop().label.mvr || plt.runtime.si_context_expected_1)(MACHINE); - } - }; - - - var isClosure = function (x) { - return x instanceof Closure; - }; - - - var isProcedure = function (x) { - return (typeof (x) === 'function' || - x instanceof Closure); - }; - - - - - - - - - - var coersePrimitiveToJavaScript = function (v, MACHINE) { - return function (succ, fail) { - try { - succ = succ || function () {}; - fail = fail || function () {}; - - var oldArgcount = MACHINE.a, i; - MACHINE.a = arguments.length - 2; - for (i = 0; i < arguments.length - 2; i++) { - MACHINE.e.push(arguments[arguments.length - 1 - i]); - } - - if (!(baselib.arity.isArityMatching(v.racketArity, MACHINE.a))) { - var msg = baselib.format.format("arity mismatch: ~s expected ~s arguments, but received ~s", - [v.displayName, v.racketArity, MACHINE.a]); - return fail(new baselib.exceptions.RacketError( - msg, - baselib.exceptions.makeExnFailContractArity(msg, - MACHINE.captureContinuationMarks()))); - } - - var result = v(MACHINE); - MACHINE.a = oldArgcount; - for (i = 0; i < arguments.length - 2; i++) { - MACHINE.e.pop(); - } - succ(result); - } catch (e) { - fail(e); - } - }; - }; - - var coerseClosureToJavaScript = function (v, MACHINE) { - var f = function (succ, fail) { - succ = succ || function () {}; - fail = fail || function () {}; - - if (!(baselib.arity.isArityMatching(v.racketArity, arguments.length - 2))) { - var msg = baselib.format.format( - "arity mismatch: ~s expected ~s argument(s) but received ~s", - [v.displayName, v.racketArity, arguments.length - 2]); - return fail(new baselib.exceptions.RacketError( - msg, - baselib.exceptions.makeExnFailContractArity(msg, - MACHINE.captureContinuationMarks()))); - } - - var oldVal = MACHINE.v; - var oldArgcount = MACHINE.a; - var oldProc = MACHINE.p; - - var oldErrorHandler = MACHINE.params['currentErrorHandler']; - var afterGoodInvoke = function (MACHINE) { - plt.runtime.PAUSE( - function (restart) { - MACHINE.params['currentErrorHandler'] = oldErrorHandler; - var returnValue = MACHINE.v; - MACHINE.v = oldVal; - MACHINE.a = oldArgcount; - MACHINE.p = oldProc; - succ(returnValue); - }); - }; - afterGoodInvoke.mvr = function (MACHINE) { - plt.runtime.PAUSE( - function (restart) { - MACHINE.params['currentErrorHandler'] = oldErrorHandler; - var returnValues = [MACHINE.v], i; - for (i = 0; i < MACHINE.a - 1; i++) { - returnValues.push(MACHINE.e.pop()); - } - MACHINE.v = oldVal; - MACHINE.a = oldArgcount; - MACHINE.p = oldProc; - succ.apply(null, returnValues); - }); - }; - - MACHINE.c.push( - new baselib.frames.CallFrame(afterGoodInvoke, v)); - MACHINE.a = arguments.length - 2; - var i; - for (i = 0; i < arguments.length - 2; i++) { - MACHINE.e.push(arguments[arguments.length - 1 - i]); - } - MACHINE.p = v; - MACHINE.params['currentErrorHandler'] = function (MACHINE, e) { - MACHINE.params['currentErrorHandler'] = oldErrorHandler; - MACHINE.v = oldVal; - MACHINE.a = oldArgcount; - MACHINE.p = oldProc; - fail(e); - }; - MACHINE.trampoline(v.label); - }; - return f; - }; - - // coerseToJavaScript: racket function -> JavaScript function - // Given a closure or primitive, produces an - // asynchronous JavaScript function. - // The function will run on the provided MACHINE. - // - // It assumes that it must begin its own trampoline. - var asJavaScriptFunction = function (v, MACHINE) { - MACHINE = MACHINE || plt.runtime.currentMachine; - if (isPrimitiveProcedure(v)) { - return coersePrimitiveToJavaScript(v, MACHINE); - } else if (isClosure(v)) { - return coerseClosureToJavaScript(v, MACHINE); - } else { - baselib.exceptions.raise(MACHINE, - baselib.exceptions.makeExnFailContract( - baselib.format.format( - "Not a procedure: ~e", - v), - MACHINE.captureContinuationMarks())); - } - }; - - - // internallCallDuringPause: call a Racket procedure and get its results. - // The use assumes the machine is in a running-but-paused state. - var internalCallDuringPause = function (MACHINE, proc, success, fail) { - var i; - var oldArgcount, oldVal, oldProc, oldErrorHandler; - if (! baselib.arity.isArityMatching(proc.racketArity, arguments.length - 4)) { - var msg = baselib.format.format("arity mismatch: ~s expected ~s arguments, but received ~s", - [proc.displayName, proc.racketArity, arguments.length - 4]); - return fail(baselib.exceptions.makeExnFailContractArity(msg, - MACHINE.captureContinuationMarks())); - } - - if (isPrimitiveProcedure(proc)) { - oldArgcount = MACHINE.a; - MACHINE.a = arguments.length - 4; - for (i = 0; i < arguments.length - 4; i++) { - MACHINE.e.push(arguments[arguments.length - 1 - i]); - } - var result = proc(MACHINE); - for (i = 0; i < arguments.length - 4; i++) { - MACHINE.e.pop(); - } - success(result); - } else if (isClosure(proc)) { - oldVal = MACHINE.v; - oldArgcount = MACHINE.a; - oldProc = MACHINE.p; - - oldErrorHandler = MACHINE.params['currentErrorHandler']; - var afterGoodInvoke = function (MACHINE) { - plt.runtime.PAUSE(function (restart) { - MACHINE.params['currentErrorHandler'] = oldErrorHandler; - var returnValue = MACHINE.v; - MACHINE.v = oldVal; - MACHINE.a = oldArgcount; - MACHINE.p = oldProc; - success(returnValue); - }); - }; - afterGoodInvoke.mvr = function (MACHINE) { - plt.runtime.PAUSE(function (restart) { - MACHINE.params['currentErrorHandler'] = oldErrorHandler; - var returnValues = [MACHINE.v]; - var i; - for (i = 0; i < MACHINE.a - 1; i++) { - returnValues.push(MACHINE.e.pop()); - } - MACHINE.v = oldVal; - MACHINE.a = oldArgcount; - MACHINE.p = oldProc; - success.apply(null, returnValues); - }); - }; - - MACHINE.c.push( - new baselib.frames.CallFrame(afterGoodInvoke, proc)); - MACHINE.a = arguments.length - 4; - for (i = 0; i < arguments.length - 4; i++) { - MACHINE.e.push(arguments[arguments.length - 1 - i]); - } - MACHINE.p = proc; - MACHINE.params['currentErrorHandler'] = function (MACHINE, e) { - MACHINE.params['currentErrorHandler'] = oldErrorHandler; - MACHINE.v = oldVal; - MACHINE.a = oldArgcount; - MACHINE.p = oldProc; - fail(e); - }; - MACHINE.trampoline(proc.label); - } else { - fail(baselib.exceptions.makeExnFail( - baselib.format.format( - "Not a procedure: ~e", - proc), - MACHINE.captureContinuationMarks())); - } - }; - - - - - - - - - var makeClosure = function (name, arity, f, closureArgs) { - if (! closureArgs) { closureArgs = []; } - return new Closure(f, - arity, - closureArgs, - name); - }; - - - var makePrimitiveProcedure = function (name, arity, f) { - // f.racketArity = arity; - // f.displayName = name; - // return f; - return makeClosure(name, - arity, - function(M) { - --M.cbt; - M.v = f(M); - M.e.length -= M.a; - return M.c.pop().label(M); - }, - []); - }; - - - - - - - - - var renameProcedure = function (f, name) { - if (isPrimitiveProcedure(f)) { - return makePrimitiveProcedure( - name, - f.racketArity, - function (MACHINE) { - return f(MACHINE); - }); - } else { - return makeClosure(name, f.racketArity, f.label, f.closedVals); - } - }; - - - - - - ////////////////////////////////////////////////////////////////////// - exports.Closure = Closure; - exports.internalCallDuringPause = internalCallDuringPause; - exports.finalizeClosureCall = finalizeClosureCall; - - exports.makePrimitiveProcedure = makePrimitiveProcedure; - exports.makeClosure = makeClosure; - - exports.isPrimitiveProcedure = isPrimitiveProcedure; - exports.isClosure = isClosure; - - exports.isProcedure = isProcedure; - - - exports.renameProcedure = renameProcedure; - - - exports.asJavaScriptFunction = asJavaScriptFunction; - -}(this.plt.baselib, this.plt));/*jslint sub: true, vars: true, nomen: true, plusplus: true, maxerr: 50, indent: 4 */ -/*global plt*/ - -// Modules -(function (baselib, plt) { - 'use strict'; - var exports = {}; - baselib.modules = exports; - - - var ModuleRecord = function (name, label) { - this.name = name; - this.label = label; - this.isInvoked = false; - this.prefix = false; - this.namespace = {}; - - // JavaScript-implemented code will assign privateExports - // with all of the exported identifiers. - this.privateExports = {}; - }; - - // Returns access to the names defined in the module. - ModuleRecord.prototype.getNamespace = function () { - return this.namespace; - }; - - ModuleRecord.prototype.finalizeModuleInvokation = function () { - var i, len = this.prefix.names.length; - for (i = 0; i < len; i++) { - this.namespace[this.prefix.names[i]] = this.prefix[i]; - } - }; - - - // External invokation of a module. - ModuleRecord.prototype.invoke = function (MACHINE, succ, fail) { - this._invoke(false, MACHINE, succ, fail); - }; - - // Internal invokation of a module. - ModuleRecord.prototype.internalInvoke = function (MACHINE, succ, fail) { - this._invoke(true, MACHINE, succ, fail); - }; - - // Private: general invokation of a module - ModuleRecord.prototype._invoke = function (isInternal, MACHINE, succ, fail) { - var that = this; - MACHINE = MACHINE || plt.runtime.currentMachine; - succ = succ || function () {}; - fail = fail || function () {}; - - var oldErrorHandler = MACHINE.params['currentErrorHandler']; - var afterGoodInvoke = function (MACHINE) { - MACHINE.params['currentErrorHandler'] = oldErrorHandler; - if (isInternal) { succ(); } - else { - throw new plt.runtime.HaltError(succ) - } - }; - - if (this.isInvoked) { - succ(); - } else { - MACHINE.params['currentErrorHandler'] = function (MACHINE, anError) { - MACHINE.params['currentErrorHandler'] = oldErrorHandler; - fail(MACHINE, anError); - }; - MACHINE.c.push(new plt.baselib.frames.CallFrame(afterGoodInvoke, null)); - if (isInternal) { - throw that.label; - } else { - MACHINE.trampoline(that.label); - } - } - }; - - - - exports.ModuleRecord = ModuleRecord; - - -}(this.plt.baselib, this.plt));/*global plt*/ -/*jslint browser: true, unparam: true, vars: true, white: true, maxerr: 50, indent: 4 , plusplus: true */ - -// Continuation marks -(function(baselib) { - 'use strict'; - var exports = {}; - baselib.contmarks = exports; - - - var ContinuationMarkSet = function(kvlists) { - this.kvlists = kvlists; - }; - - - ContinuationMarkSet.prototype.shift = function() { - this.kvlists.shift(); - }; - - ContinuationMarkSet.prototype.toDomNode = function(params) { - var dom = document.createElement("span"); - dom.appendChild(document.createTextNode('#')); - return dom; - }; - - ContinuationMarkSet.prototype.toWrittenString = function(cache) { - return '#'; - }; - - ContinuationMarkSet.prototype.toDisplayedString = function(cache) { - return '#'; - }; - - ContinuationMarkSet.prototype.ref = function(key) { - var i, j; - var result = []; - var kvlist; - for (i = 0; i < this.kvlists.length; i++) { - kvlist = this.kvlists[i]; - for (j = 0; j < kvlist.length; j++) { - if (baselib.equality.equals(kvlist[j][0], key)) { - result.push(kvlist[j][1]); - } - } - } - return baselib.lists.makeList.apply(null, result); - }; - - // Returns an approximate stack trace. - // getContext: MACHINE -> (arrayof (U Procedure (Vector source line column position span))) - ContinuationMarkSet.prototype.getContext = function(MACHINE) { - var i, j; - var result = []; - var kvlist; - - var tracedAppKey = plt.runtime.getTracedAppKey(MACHINE); - var tracedCalleeKey = plt.runtime.getTracedCalleeKey(MACHINE); - var proc, locationVector; - - for (i = 0; i < this.kvlists.length; i++) { - kvlist = this.kvlists[i]; - for (j = 0; j < kvlist.length; j++) { - if (kvlist[j][0] === tracedAppKey) { - locationVector = kvlist[j][1]; - result.push(locationVector); - } else if (kvlist[j][0] === tracedCalleeKey) { - proc = kvlist[j][1]; - if (proc !== null) { - result.push(proc); - } - } - } - } - return result; - }; - - - var isContinuationMarkSet = baselib.makeClassPredicate(ContinuationMarkSet); - - - - - - // A continuation prompt tag labels a prompt frame. - var ContinuationPromptTag = function(name) { - this.name = name; // String - - }; - - - var isContinuationPromptTag = baselib.makeClassPredicate(ContinuationPromptTag); - - var DEFAULT_CONTINUATION_PROMPT_TAG = - new ContinuationPromptTag("default-continuation-prompt-tag"); - - - exports.ContinuationMarkSet = ContinuationMarkSet; - exports.isContinuationMarkSet = isContinuationMarkSet; - exports.ContinuationPromptTag = ContinuationPromptTag; - - exports.isContinuationPromptTag = isContinuationPromptTag; - exports.DEFAULT_CONTINUATION_PROMPT_TAG = DEFAULT_CONTINUATION_PROMPT_TAG; -}(this.plt.baselib));/*jslint browser: false, unparam: true, vars: true, white: true, plusplus: true, maxerr: 50, indent: 4 */ - -// Arity structure -(function(baselib) { - 'use strict'; - var exports = {}; - baselib.arity = exports; - - - - var ArityAtLeast = baselib.structs.makeStructureType( - 'arity-at-least', false, 1, 0, false, false); - - - // An arity is either a primitive number, an ArityAtLeast instance, - // or a list of either primitive numbers or ArityAtLeast instances. - - - - var isArityAtLeast = ArityAtLeast.predicate; - var arityAtLeastValue = function(x) { - var val = ArityAtLeast.accessor(x, 0); - return val; - }; - - - ArityAtLeast.type.prototype.toString = function() { - return '#'; - }; - - - - // isArityMatching: arity natural -> boolean - // Produces true if n satisfies the arity. - var isArityMatching = function(arity, n) { - if (typeof(arity) === 'number') { - return arity === n; - } else if (isArityAtLeast(arity)) { - return n >= arityAtLeastValue(arity); - } else { - while (arity !== baselib.lists.EMPTY) { - if (typeof(arity.first) === 'number') { - if (arity.first === n) { return true; } - } else if (isArityAtLeast(arity.first)) { - if (n >= arityAtLeastValue(arity.first)) { return true; } - } - arity = arity.rest; - } - return false; - } - }; - - - - - - ////////////////////////////////////////////////////////////////////// - - exports.ArityAtLeast = ArityAtLeast; - exports.makeArityAtLeast = ArityAtLeast.constructor; - exports.isArityAtLeast = isArityAtLeast; - exports.isArityMatching = isArityMatching; - exports.arityAtLeastValue = arityAtLeastValue; - -}(this.plt.baselib));/*jslint vars: true, maxerr: 50, indent: 4 */ - -// Structure types - -(function (baselib) { - 'use strict'; - var exports = {}; - baselib.inspectors = exports; - - - var Inspector = function () { - }; - var DEFAULT_INSPECTOR = new Inspector(); - - Inspector.prototype.toString = function () { - return "#"; - }; - - var isInspector = baselib.makeClassPredicate(Inspector); - - - - exports.Inspector = Inspector; - exports.DEFAULT_INSPECTOR = DEFAULT_INSPECTOR; - - exports.isInspector = isInspector; - - -}(this.plt.baselib));/*jslint browser: true, undef: false, unparam: true, sub: true, vars: true, white: true, plusplus: true, maxerr: 50, indent: 4 */ - -// Exceptions - -(function(baselib) { - 'use strict'; - var exceptions = {}; - baselib.exceptions = exceptions; - - - - var RacketError = function(message, racketError) { - Error.call(this, message); - this.message = message; - this.racketError = racketError; - }; - RacketError.prototype = baselib.heir(Error.prototype); - var isRacketError = baselib.makeClassPredicate(RacketError); - - - - // (define-struct exn (message continuation-mark-set)) - var Exn = baselib.structs.makeStructureType( - 'exn', false, 2, 0, false, false); - - - // (define-struct (exn:break exn) (continuation)) - var ExnBreak = baselib.structs.makeStructureType( - 'exn:break', Exn, 1, 0, false, false); - - - var ExnFail = baselib.structs.makeStructureType( - 'exn:fail', Exn, 0, 0, false, false); - - var ExnFailContract = baselib.structs.makeStructureType( - 'exn:fail:contract', ExnFail, 0, 0, false, false); - - var ExnFailContractArity = baselib.structs.makeStructureType( - 'exn:fail:contract:arity', ExnFailContract, 0, 0, false, false); - - // exn:fail:contract (id) - var ExnFailContractVariable = baselib.structs.makeStructureType( - 'exn:fail:contract:variable', ExnFailContract, 1, 0, false, false); - - var ExnFailContractDivisionByZero = baselib.structs.makeStructureType( - 'exn:fail:contract:divide-by-zero', ExnFailContract, 0, 0, false, false); - - - - - - var exceptionHandlerKey = new baselib.symbols.Symbol("exnh"); - - - - - - ////////////////////////////////////////////////////////////////////// - - // Raise error to the toplevel. - - // If the error is of an exception type, make sure e.message holds the string - // value to allow integration with systems that don't recognize Racket error - // structures. - var raise = function(MACHINE, e) { - if (isRacketError(e) && Exn.predicate(e.racketError)) { - e.message = Exn.accessor(e.racketError, 0); - } else if (Exn.predicate(e)) { - e = new RacketError(Exn.accessor(e, 0), e); - } - - if (typeof(window.console) !== 'undefined' && - typeof(window.console['log']) === 'function') { - window.console.log(MACHINE); - if (e['stack']) { window.console.log(e['stack']); } - else { window.console.log(e); } - } - throw e; - }; - - - - - var raiseUnboundToplevelError = function(MACHINE, name) { - var message = baselib.format.format("Not bound: ~a", [name]); - var contMarks = MACHINE.captureContinuationMarks(); - raise(MACHINE, - ExnFailContractVariable.constructor(message, - contMarks, - baselib.symbols.makeSymbol(name))); - }; - - - var raiseArgumentTypeError = function(MACHINE, - callerName, - expectedTypeName, - argumentOffset, - actualValue) { - var message; - var contMarks = MACHINE.captureContinuationMarks(); - if (argumentOffset !== undefined) { - message = baselib.format.format( - "~a: expected ~a as argument ~e but received ~e", - [callerName, - expectedTypeName, - (argumentOffset + 1), - actualValue]); - raise(MACHINE, ExnFailContract.constructor(message, contMarks)); - } else { - message = baselib.format.format( - "~a: expected ~a but received ~e", - [callerName, - expectedTypeName, - actualValue]); - raise(MACHINE, ExnFailContract.constructor(message, contMarks)); - } - }; - - var raiseContextExpectedValuesError = function(MACHINE, expected) { - var message = baselib.format.format("expected ~e values, received ~e values", - [expected, MACHINE.a]); - var contMarks = MACHINE.captureContinuationMarks(); - raise(MACHINE, ExnFailContract.constructor(message, contMarks)); - }; - - var raiseArityMismatchError = function(MACHINE, proc, received) { - var message = baselib.format.format("~a: expected ~e value(s), received ~e value(s)", - [proc.displayName, - proc.racketArity, - received]); - var contMarks = MACHINE.captureContinuationMarks(); - raise(MACHINE, ExnFailContractArity.constructor(message, contMarks)); - }; - - var raiseOperatorApplicationError = function(MACHINE, operator) { - var message = baselib.format.format("not a procedure: ~e", - [operator]); - var contMarks = MACHINE.captureContinuationMarks(); - raise(MACHINE, - ExnFailContract.constructor(message, contMarks)); - }; - - var raiseOperatorIsNotClosure = function(MACHINE, operator) { - var message = baselib.format.format("not a closure: ~e", - [operator]); - var contMarks = MACHINE.captureContinuationMarks(); - raise(MACHINE, - ExnFailContract.constructor(message, contMarks)); - }; - - var raiseOperatorIsNotPrimitiveProcedure = function(MACHINE, operator) { - var message = baselib.format.format("not a primitive procedure: ~e", - [operator]); - var contMarks = MACHINE.captureContinuationMarks(); - raise(MACHINE, - ExnFailContract.constructor(message, contMarks)); - }; - - - var raiseUnimplementedPrimitiveError = function(MACHINE, name) { - var message = "unimplemented kernel procedure: " + name; - var contMarks = MACHINE.captureContinuationMarks(); - raise(MACHINE, - ExnFailContract.constructor(message, contMarks)); - }; - - - - - - - - - - ////////////////////////////////////////////////////////////////////// - // Exports - - - - exceptions.RacketError = RacketError; - exceptions.isRacketError = isRacketError; - - exceptions.Exn = Exn; - exceptions.makeExn = Exn.constructor; - exceptions.isExn = Exn.predicate; - exceptions.exnMessage = function(exn) { return Exn.accessor(exn, 0); }; - exceptions.exnContMarks = function(exn) { return Exn.accessor(exn, 1); }; - exceptions.exnSetContMarks = function(exn, v) { Exn.mutator(exn, 1, v); }; - - exceptions.ExnBreak = ExnBreak; - exceptions.makeExnBreak = ExnBreak.constructor; - exceptions.isExnBreak = ExnBreak.predicate; - exceptions.exnBreakContinuation = - function(exn) { return ExnBreak.accessor(exn, 0); }; - - exceptions.ExnFail = ExnFail; - exceptions.makeExnFail = ExnFail.constructor; - exceptions.isExnFail = ExnFail.predicate; - - exceptions.ExnFailContract = ExnFailContract; - exceptions.makeExnFailContract = ExnFailContract.constructor; - exceptions.isExnFailContract = ExnFailContract.predicate; - - exceptions.ExnFailContractArity = ExnFailContractArity; - exceptions.makeExnFailContractArity = ExnFailContractArity.constructor; - exceptions.isExnFailContractArity = ExnFailContractArity.predicate; - - exceptions.ExnFailContractVariable = ExnFailContractVariable; - exceptions.makeExnFailContractVariable = ExnFailContractVariable.constructor; - exceptions.isExnFailContractVariable = ExnFailContractVariable.predicate; - exceptions.exnFailContractVariableId = - function(exn) { return ExnFailContractVariable.accessor(exn, 0); }; - - - exceptions.ExnFailContractDivisionByZero = ExnFailContractDivisionByZero; - exceptions.makeExnFailContractDivisionByZero = - ExnFailContractDivisionByZero.constructor; - exceptions.isExnFailContractDivisionByZero = ExnFailContractDivisionByZero.predicate; - - - exceptions.exceptionHandlerKey = exceptionHandlerKey; - - - - - exceptions.raise = raise; - exceptions.raiseUnboundToplevelError = raiseUnboundToplevelError; - exceptions.raiseArgumentTypeError = raiseArgumentTypeError; - exceptions.raiseContextExpectedValuesError = raiseContextExpectedValuesError; - exceptions.raiseArityMismatchError = raiseArityMismatchError; - exceptions.raiseOperatorApplicationError = raiseOperatorApplicationError; - exceptions.raiseOperatorIsNotClosure = raiseOperatorIsNotClosure; - exceptions.raiseOperatorIsNotPrimitiveProcedure = raiseOperatorIsNotPrimitiveProcedure; - exceptions.raiseUnimplementedPrimitiveError = raiseUnimplementedPrimitiveError; - - -}(this.plt.baselib));/*jslint vars: true, nomen: true, plusplus: true, maxerr: 50, indent: 4 */ -// Arity structure -(function (baselib) { - 'use strict'; - var exports = {}; - baselib.readergraph = exports; - - - var readerGraph = function (x, objectHash, n) { - var i; - if (typeof (x) === 'object' && objectHash.containsKey(x)) { - return objectHash.get(x); - } - - if (baselib.lists.isPair(x)) { - var consPair = baselib.lists.makePair(x.first, x.rest); - objectHash.put(x, consPair); - consPair.first = readerGraph(x.first, objectHash, n + 1); - consPair.rest = readerGraph(x.rest, objectHash, n + 1); - return consPair; - } - - if (baselib.vectors.isVector(x)) { - var len = x.length(); - var aVector = baselib.vectors.makeVector(len, x.elts); - objectHash.put(x, aVector); - for (i = 0; i < len; i++) { - aVector.elts[i] = readerGraph(aVector.elts[i], objectHash, n + 1); - } - return aVector; - } - - if (baselib.boxes.isBox(x)) { - var aBox = baselib.boxes.makeBox(x.ref()); - objectHash.put(x, aBox); - aBox.val = readerGraph(x.ref(), objectHash, n + 1); - return aBox; - } - - if (baselib.hashes.isHash(x)) { - throw new Error("make-reader-graph of hash not implemented yet"); - } - - if (baselib.structs.isStruct(x)) { - var aStruct = baselib.clone(x); - objectHash.put(x, aStruct); - for (i = 0; i < x._fields.length; i++) { - x._fields[i] = readerGraph(x._fields[i], objectHash, n + 1); - } - return aStruct; - } - - if (baselib.placeholders.isPlaceholder(x)) { - return readerGraph(x.ref(), objectHash, n + 1); - } - - return x; - }; - - exports.readerGraph = readerGraph; - -}(this.plt.baselib));/*jslint vars: true, white: true, plusplus: true, maxerr: 50, indent: 4 */ - - -// Helper functions for argument checking. - -(function (baselib) { - 'use strict'; - var exports = {}; - baselib.check = exports; - - var EMPTY = baselib.lists.EMPTY; - var isPair = baselib.lists.isPair; - var makeLowLevelEqHash = baselib.hashes.makeLowLevelEqHash; - - - ////////////////////////////////////////////////////////////////////// - - // testArgument: (X -> boolean) X number string string -> boolean - // Produces the argument value the predicate is true, and otherwise raises an error. - var testArgument = function (MACHINE, - expectedTypeName, - predicate, - val, - index, - callerName) { - if (predicate(val)) { - return val; - } else { - if (typeof(expectedTypeName) === 'function') { - expectedTypeName = expectedTypeName(); - } - baselib.exceptions.raiseArgumentTypeError(MACHINE, - callerName, - expectedTypeName, - index, - val); - } - }; - - - var makeCheckArgumentType = function (predicate, predicateName) { - return function (MACHINE, callerName, position) { - return testArgument( - MACHINE, - predicateName, - predicate, - MACHINE.e[MACHINE.e.length - 1 - position], - position, - callerName); - }; - }; - - var makeCheckParameterizedArgumentType = function (parameterizedPredicate, - parameterizedPredicateName) { - return function (MACHINE, callerName, position) { - var args = [], i; - for (i = 3; i < arguments.length; i++) { - args.push(arguments[i]); - } - return testArgument( - MACHINE, - function () { return parameterizedPredicateName.apply(null, args); }, - function (x) { - return parameterizedPredicate.apply(null, [x].concat(args)); - }, - MACHINE.e[MACHINE.e.length - 1 - position], - position, - callerName); - }; - }; - - - - - - var makeCheckListofArgumentType = function (predicate, predicateName) { - var listPredicate = function (x) { - var seen = makeLowLevelEqHash(); - while (true) { - if (x === EMPTY){ - return true; - } - - if (!isPair(x)) { - return false; - } - - if(seen.containsKey(x)) { - // raise an error? we've got a cycle! - return false; - } - - if (! predicate(x.first)) { - return false; - } - - seen.put(x, true); - x = x.rest; - } - }; - return function (MACHINE, callerName, position) { - return testArgument( - MACHINE, - 'list of ' + predicateName, - listPredicate, - MACHINE.e[MACHINE.e.length - 1 - position], - position, - callerName); - }; - }; - - - - - - - - var testArity = function (MACHINE, callerName, observed, minimum, maximum) { - if (observed < minimum || observed > maximum) { - baselib.exceptions.raise( - MACHINE, - baselib.exceptions.ExnFailContractArity.constructor( - callerName + ": expected at least " + minimum - + " arguments " - + " but received " + observed, - MACHINE.captureContinuationMarks())); - } - }; - - - - - var checkOutputPort = makeCheckArgumentType( - baselib.ports.isOutputPort, - 'output port'); - - var checkInputPort = makeCheckArgumentType( - baselib.ports.isInputPort, - 'input port'); - - var checkSymbol = makeCheckArgumentType( - baselib.symbols.isSymbol, - 'symbol'); - - var checkString = makeCheckArgumentType( - baselib.strings.isString, - 'string'); - - var checkSymbolOrString = makeCheckArgumentType( - function(x) { return (baselib.symbols.isSymbol(x) || - baselib.strings.isString(x)); }, - 'symbol or string'); - - var checkMutableString = makeCheckArgumentType( - baselib.strings.isMutableString, - 'mutable string'); - - var checkChar = makeCheckArgumentType( - baselib.chars.isChar, - 'character'); - - var checkProcedure = makeCheckArgumentType( - baselib.functions.isProcedure, - 'procedure'); - - var checkNumber = makeCheckArgumentType( - baselib.numbers.isNumber, - 'number'); - - var checkReal = makeCheckArgumentType( - baselib.numbers.isReal, - 'real'); - - var checkNatural = makeCheckArgumentType( - baselib.numbers.isNatural, - 'natural'); - - var checkByte = makeCheckArgumentType( - baselib.numbers.isByte, - 'byte'); - - var checkBytes = makeCheckArgumentType( - baselib.bytes.isBytes, - 'bytes'); - - var checkNaturalInRange = makeCheckParameterizedArgumentType( - function (x, a, b) { - if (! baselib.numbers.isNatural(x)) { return false; } - return (baselib.numbers.lessThanOrEqual(a, x) && - baselib.numbers.lessThan(x, b)); - }, - function (a, b) { - return baselib.format.format('natural between ~a and ~a', [a, b]); - }); - - var checkInteger = makeCheckArgumentType( - baselib.numbers.isInteger, - 'integer'); - - var checkRational = makeCheckArgumentType( - baselib.numbers.isRational, - 'rational'); - - var checkNonNegativeReal = makeCheckArgumentType( - baselib.numbers.isNonNegativeReal, - 'non-negative real'); - - var checkPair = makeCheckArgumentType( - baselib.lists.isPair, - 'pair'); - - var checkList = makeCheckArgumentType( - baselib.lists.isList, - 'list'); - - var checkVector = makeCheckArgumentType( - baselib.vectors.isVector, - 'vector'); - - var checkBoolean = makeCheckArgumentType( - function (x) { return x === true || x === false; }, - 'boolean'); - - var checkBox = makeCheckArgumentType( - baselib.boxes.isBox, - 'box'); - - var checkMutableBox = makeCheckArgumentType( - baselib.boxes.isMutableBox, - 'mutable box'); - - var checkInspector = makeCheckArgumentType( - baselib.inspectors.isInspector, - 'inspector'); - - - var checkPlaceholder = makeCheckArgumentType( - baselib.placeholders.isPlaceholder, - 'placeholder'); - - - var checkSrcloc = makeCheckArgumentType( - baselib.srclocs.isSrcloc, - 'srcloc'); - - var checkContinuationMarkSet = makeCheckArgumentType( - baselib.contmarks.isContinuationMarkSet, - 'continuation mark set'); - - var checkContinuationPromptTag = makeCheckArgumentType( - baselib.contmarks.isContinuationPromptTag, - 'continuation prompt tag'); - - var checkExn = makeCheckArgumentType( - baselib.exceptions.isExn, - 'exn'); - - ////////////////////////////////////////////////////////////////////// - - - exports.testArgument = testArgument; - exports.testArity = testArity; - exports.makeCheckArgumentType = makeCheckArgumentType; - exports.makeCheckParameterizedArgumentType = makeCheckParameterizedArgumentType; - exports.makeCheckListofArgumentType = makeCheckListofArgumentType; - exports.checkOutputPort = checkOutputPort; - exports.checkInputPort = checkInputPort; - exports.checkSymbol = checkSymbol; - exports.checkString = checkString; - exports.checkSymbolOrString = checkSymbolOrString; - exports.checkMutableString = checkMutableString; - exports.checkChar = checkChar; - exports.checkProcedure = checkProcedure; - exports.checkNumber = checkNumber; - exports.checkReal = checkReal; - exports.checkNonNegativeReal = checkNonNegativeReal; - exports.checkNatural = checkNatural; - exports.checkNaturalInRange = checkNaturalInRange; - exports.checkByte = checkByte; - exports.checkBytes = checkBytes; - exports.checkInteger = checkInteger; - exports.checkRational = checkRational; - exports.checkPair = checkPair; - exports.checkList = checkList; - exports.checkVector = checkVector; - exports.checkBox = checkBox; - exports.checkMutableBox = checkMutableBox; - exports.checkInspector = checkInspector; - exports.checkByte = checkByte; - exports.checkBoolean = checkBoolean; - exports.checkPlaceholder = checkPlaceholder; - exports.checkSrcloc = checkSrcloc; - exports.checkContinuationMarkSet = checkContinuationMarkSet; - exports.checkContinuationPromptTag = checkContinuationPromptTag; - exports.checkExn = checkExn; - -}(this.plt.baselib)); -/*global plt*/ -/*jslint unparam: true, sub: true, vars: true, white: true, nomen: true, plusplus: true, maxerr: 50, indent: 4 */ - -// Arity structure -(function (baselib) { - 'use strict'; - var exports = {}; - baselib.primitives = exports; - - - ////////////////////////////////////////////////////////////////////// - ////////////////////////////////////////////////////////////////////// - // We try to isolate the effect of external modules: all the identifiers we - // pull from external modules should be listed here, and should otherwise not - // show up outside this section! - var isNumber = baselib.numbers.isNumber; - - var isReal = baselib.numbers.isReal; - var isInexact = baselib.numbers.isInexact; - var isComplex = baselib.numbers.isComplex; - var isRational = baselib.numbers.isRational; - var isBytes = baselib.bytes.isBytes; - - var isNatural = baselib.numbers.isNatural; - var isPair = baselib.lists.isPair; - var isList = baselib.lists.isList; - var isString = baselib.strings.isString; - var isSymbol = baselib.symbols.isSymbol; - var isBox = baselib.boxes.isBox; - var isStruct = baselib.structs.isStruct; - var isStructType = baselib.structs.isStructType; - var equals = baselib.equality.equals; - - var NULL = baselib.lists.EMPTY; - var VOID = baselib.constants.VOID_VALUE; - - var makeFloat = baselib.numbers.makeFloat; - var makeComplex = baselib.numbers.makeComplex; - var makeComplexPolar = baselib.numbers.makeComplexPolar; - - var makeSymbol = baselib.symbols.makeSymbol; - - var makeBox = baselib.boxes.makeBox; - - var makeVector = baselib.vectors.makeVector; - var makeList = baselib.lists.makeList; - var makePair = baselib.lists.makePair; - - var finalizeClosureCall = baselib.functions.finalizeClosureCall; - var makePrimitiveProcedure = baselib.functions.makePrimitiveProcedure; - var makeClosure = baselib.functions.makeClosure; - - - // Other helpers - var withArguments = baselib.withArguments; - var toDomNode = baselib.format.toDomNode; - - - - // Exceptions and error handling. - var raise = baselib.exceptions.raise; - var raiseArgumentTypeError = baselib.exceptions.raiseArgumentTypeError; - var raiseArityMismatchError = baselib.exceptions.raiseArityMismatchError; - - var testArgument = baselib.check.testArgument; - - var checkOutputPort = baselib.check.checkOutputPort; - var checkInputPort = baselib.check.checkInputPort; - var checkString = baselib.check.checkString; - var checkSymbolOrString = baselib.check.checkSymbolOrString; - var checkMutableString = baselib.check.checkMutableString; - var checkSymbol = baselib.check.checkSymbol; - var checkByte = baselib.check.checkByte; - var checkChar = baselib.check.checkChar; - var checkProcedure = baselib.check.checkProcedure; - var checkNumber = baselib.check.checkNumber; - var checkReal = baselib.check.checkReal; - var checkNonNegativeReal = baselib.check.checkNonNegativeReal; - var checkNatural = baselib.check.checkNatural; - var checkNaturalInRange = baselib.check.checkNaturalInRange; - var checkInteger = baselib.check.checkInteger; - var checkIntegerForChar = baselib.check.makeCheckArgumentType( - function(x) { - return (baselib.numbers.isInteger(x) && - ((baselib.numbers.lessThanOrEqual(0, x) && - baselib.numbers.lessThanOrEqual(x, 55295)) - || - (baselib.numbers.lessThanOrEqual(57344, x) && - baselib.numbers.lessThanOrEqual(x, 1114111)))); - }, - 'integer' - ); - var checkRational = baselib.check.checkRational; - var checkPair = baselib.check.checkPair; - var checkCaarPair = baselib.check.makeCheckArgumentType( - function(x) { - return isPair(x) && isPair(x.first); - }, - 'caarable value'); - var checkCadrPair = baselib.check.makeCheckArgumentType( - function(x) { - return isPair(x) && isPair(x.first); - }, - 'cadrable value'); - var checkList = baselib.check.checkList; - var checkListofChars = baselib.check.makeCheckListofArgumentType(baselib.chars.isChar, - 'character'); - var checkVector = baselib.check.checkVector; - var checkBox = baselib.check.checkBox; - var checkMutableBox = baselib.check.checkMutableBox; - var checkInspector = baselib.check.checkInspector; - var checkPlaceholder = baselib.check.checkPlaceholder; - var checkSrcloc = baselib.check.checkSrcloc; - var checkContinuationPromptTag = baselib.check.checkContinuationPromptTag; - var checkContinuationMarkSet = baselib.check.checkContinuationMarkSet; - var checkExn = baselib.check.checkExn; - ////////////////////////////////////////////////////////////////////// - - - - - - - - - - - - // Primitives are the set of primitive values. Not all primitives - // are coded here; several of them (including call/cc) are injected by - // the bootstrapping code in compiler/boostrapped-primitives.rkt - var Primitives = {}; - - var installPrimitiveProcedure = function (name, arity, f) { - Primitives[name] = makePrimitiveProcedure(name, arity, f); - }; - - var installPrimitiveClosure = function (name, arity, f) { - Primitives[name] = makeClosure(name, arity, f, []); - }; - - - var installPrimitiveConstant = function (name, v) { - Primitives[name] = v; - }; - - - - installPrimitiveConstant('pi', baselib.numbers.pi); - installPrimitiveConstant('e', baselib.numbers.e); - installPrimitiveConstant('null', NULL); - installPrimitiveConstant('true', true); - installPrimitiveConstant('false', false); - installPrimitiveConstant('eof', baselib.constants.EOF_VALUE); - - - // The parameter keys here must be uninterned symbols, so we explicitly - // call the symbol constructor here. - installPrimitiveConstant('exception-handler-key', - new baselib.symbols.Symbol("exnh")); - installPrimitiveConstant('parameterization-key', - new baselib.symbols.Symbol("paramz")); - installPrimitiveConstant('break-enabled-key', - new baselib.symbols.Symbol("break-on?")); - - - var gensymCounter = 0; - installPrimitiveProcedure( - 'gensym', - makeList(0, 1), - function(M) { - var baseName = "g"; - if (M.a === 1) { - baseName = checkSymbolOrString(M, 'gensym', 0).toString(); - } - gensymCounter++; - return new baselib.symbols.Symbol(baseName + gensymCounter); - }); - - - installPrimitiveProcedure( - 'display', - makeList(1, 2), - function (M) { - var firstArg = M.e[M.e.length - 1]; - var outputPort = M.params.currentOutputPort; - if (M.a === 2) { - outputPort = checkOutputPort(M, 'display', 1); - } - outputPort.writeDomNode(M, toDomNode(firstArg, 'display')); - return VOID; - }); - - - installPrimitiveProcedure( - 'write-byte', - makeList(1, 2), - function (M) { - var firstArg = checkByte(M, 'write-byte', 0); - var outputPort = M.params.currentOutputPort; - if (M.a === 2) { - outputPort = checkOutputPort(M, 'display', 1); - } - outputPort.writeDomNode(M, toDomNode(String.fromCharCode(firstArg), 'display')); - return VOID; - }); - - - installPrimitiveProcedure( - 'newline', makeList(0, 1), - function (M) { - var outputPort = M.params.currentOutputPort; - if (M.a === 1) { - outputPort = checkOutputPort(M, 'newline', 1); - } - outputPort.writeDomNode(M, toDomNode("\n", 'display')); - return VOID; - }); - - installPrimitiveProcedure( - 'displayln', - makeList(1, 2), - function (M){ - var firstArg = M.e[M.e.length-1]; - var outputPort = M.params.currentOutputPort; - if (M.a === 2) { - outputPort = checkOutputPort(M, 'displayln', 1); - } - outputPort.writeDomNode(M, toDomNode(firstArg, 'display')); - outputPort.writeDomNode(M, toDomNode("\n", 'display')); - return VOID; - }); - - - - installPrimitiveProcedure( - 'format', - baselib.arity.makeArityAtLeast(1), - function (M) { - var args = [], i, formatString; - formatString = checkString(M, 'format', 0).toString(); - for(i = 1; i < M.a; i++) { - args.push(M.e[M.e.length - 1 - i]); - } - return baselib.format.format(formatString, args, 'format'); - }); - - - installPrimitiveProcedure( - 'printf', - baselib.arity.makeArityAtLeast(1), - function (M) { - var args = [], i, formatString, result, outputPort; - formatString = checkString(M, 'printf', 0).toString(); - for(i = 1; i < M.a; i++) { - args.push(M.e[M.e.length - 1 - i]); - } - result = baselib.format.format(formatString, args, 'format'); - outputPort = M.params.currentOutputPort; - outputPort.writeDomNode(M, toDomNode(result, 'display')); - return VOID; - }); - - - installPrimitiveProcedure( - 'fprintf', - baselib.arity.makeArityAtLeast(2), - function (M) { - var args = [], i, formatString, outputPort, result; - outputPort = checkOutputPort(M, 'fprintf', 0); - formatString = checkString(M, 'fprintf', 1).toString(); - for(i = 2; i < M.a; i++) { - args.push(M.e[M.e.length - 1 - i]); - } - result = baselib.format.format(formatString, args, 'format'); - outputPort.writeDomNode(M, toDomNode(result, 'display')); - return VOID; - }); - - - - installPrimitiveProcedure( - 'current-print', - makeList(0, 1), - function (M) { - if (M.a === 1) { - M.params['currentPrint'] = - checkProcedure(M, 'current-print', 0); - return VOID; - } else { - return M.params['currentPrint']; - } - }); - - - installPrimitiveProcedure( - 'current-print-mode', - makeList(0, 1), - function (M) { - if (M.a === 1) { - M.params['print-mode'] = checkString(M, 'print-mode', 0); - return VOID; - } else { - return M.params['print-mode']; - } - }); - - - installPrimitiveProcedure( - 'current-output-port', - makeList(0, 1), - function (M) { - if (M.a === 1) { - M.params['currentOutputPort'] = - checkOutputPort(M, 'current-output-port', 0); - return VOID; - } else { - return M.params['currentOutputPort']; - } - }); - - - - installPrimitiveProcedure( - 'current-error-port', - makeList(0, 1), - function (M) { - if (M.a === 1) { - M.params['currentErrorPort'] = - checkOutputPort(M, 'current-output-port', 0); - return VOID; - } else { - return M.params['currentOutputPort']; - } - }); - - - - installPrimitiveProcedure( - 'current-input-port', - makeList(0, 1), - function (M) { - if (M.a === 1) { - M.params['currentInputPort'] = - checkInputPort(M, 'current-input-port', 0); - return VOID; - } else { - return M.params['currentInputPort']; - } - }); - - - - installPrimitiveClosure( - 'read-byte', - makeList(0, 1), - function(M) { - var inputPort = M.params['currentInputPort']; - if (M.a === 1) { - inputPort = checkInputPort(M, 'read-byte', 0); - } - plt.runtime.PAUSE(function(restart) { - inputPort.callWhenReady(M, function() { - restart(function(MACHINE) { - plt.runtime.finalizeClosureCall(MACHINE, - inputPort.readByte(MACHINE)); - }); - }); - }); - }); - - - - installPrimitiveProcedure( - '=', - baselib.arity.makeArityAtLeast(2), - function (M) { - var i; - var firstArg = checkNumber(M, '=', 0), secondArg; - for (i = 1; i < M.a; i++) { - secondArg = checkNumber(M, '=', i); - if (! (baselib.numbers.equals(firstArg, secondArg))) { - return false; - } - } - return true; - }); - - - installPrimitiveProcedure( - '=~', - 3, - function (M) { - var x = checkReal(M, '=~', 0); - var y = checkReal(M, '=~', 1); - var range = checkNonNegativeReal(M, '=~', 2); - return baselib.numbers.lessThanOrEqual( - baselib.numbers.abs(baselib.numbers.subtract(x, y)), - range); - }); - - - - var makeChainingBinop = function (predicate, name) { - return function (M) { - var firstArg = checkNumber(M, name, 0), secondArg, i; - for (i = 1; i < M.a; i++) { - secondArg = checkNumber(M, name, i); - if (! (predicate(firstArg, secondArg))) { - return false; - } - firstArg = secondArg; - } - return true; - }; - }; - - installPrimitiveProcedure( - '<', - baselib.arity.makeArityAtLeast(2), - makeChainingBinop(baselib.numbers.lessThan, '<')); - - - installPrimitiveProcedure( - '>', - baselib.arity.makeArityAtLeast(2), - makeChainingBinop(baselib.numbers.greaterThan, '>')); - - - installPrimitiveProcedure( - '<=', - baselib.arity.makeArityAtLeast(2), - makeChainingBinop(baselib.numbers.lessThanOrEqual, '<=')); - - - installPrimitiveProcedure( - '>=', - baselib.arity.makeArityAtLeast(2), - makeChainingBinop(baselib.numbers.greaterThanOrEqual, '>=')); - - - installPrimitiveProcedure( - '+', - baselib.arity.makeArityAtLeast(0), - function (M) { - var result = 0; - var i = 0; - for (i = 0; i < M.a; i++) { - result = baselib.numbers.add( - result, - checkNumber(M, '+', i)); - } - return result; - }); - - - installPrimitiveProcedure( - '*', - baselib.arity.makeArityAtLeast(0), - function (M) { - var result = 1; - var i = 0; - for (i=0; i < M.a; i++) { - result = baselib.numbers.multiply( - result, - checkNumber(M, '*', i)); - } - return result; - }); - - installPrimitiveProcedure( - '-', - baselib.arity.makeArityAtLeast(1), - function (M) { - if (M.a === 1) { - return baselib.numbers.subtract( - 0, - checkNumber(M, '-', 0)); - } - var result = checkNumber(M, '-', 0), i; - for (i = 1; i < M.a; i++) { - result = baselib.numbers.subtract( - result, - checkNumber(M, '-', i)); - } - return result; - }); - - installPrimitiveProcedure( - '/', - baselib.arity.makeArityAtLeast(1), - function (M) { - var result = checkNumber(M, '/', 0), i; - for (i = 1; i < M.a; i++) { - result = baselib.numbers.divide( - result, - checkNumber(M, '/', i)); - } - return result; - }); - - installPrimitiveProcedure( - 'add1', - 1, - function (M) { - var firstArg = checkNumber(M, 'add1', 0); - return baselib.numbers.add(firstArg, 1); - }); - - - installPrimitiveProcedure( - 'sub1', - 1, - function (M) { - var firstArg = checkNumber(M, 'sub1', 0); - return baselib.numbers.subtract(firstArg, 1); - }); - - - installPrimitiveProcedure( - 'zero?', - 1, - function (M) { - var firstArg = M.e[M.e.length-1]; - return baselib.numbers.equals(firstArg, 0); - }); - - - installPrimitiveProcedure( - 'cons', - 2, - function (M) { - var firstArg = M.e[M.e.length-1]; - var secondArg = M.e[M.e.length-2]; - return makePair(firstArg, secondArg); - }); - - - installPrimitiveProcedure( - 'list', - baselib.arity.makeArityAtLeast(0), - function (M) { - var result = NULL, i; - for (i = 0; i < M.a; i++) { - result = makePair(M.e[M.e.length - (M.a - i)], - result); - } - return result; - }); - - installPrimitiveProcedure( - 'list*', - baselib.arity.makeArityAtLeast(1), - function (M) { - var result = checkList(M, 'list*', M.a - 1), i; - for (i = M.a - 2; i >= 0; i--) { - result = makePair(M.e[M.e.length - 1 - i], - result); - } - return result; - }); - - - installPrimitiveProcedure( - 'list-ref', - 2, - function (M) { - var lst = checkList(M, 'list-ref', 0); - var index = checkNaturalInRange(M, 'list-ref', 1, - 0, baselib.lists.length(lst)); - return baselib.lists.listRef(lst, baselib.numbers.toFixnum(index)); - }); - - - installPrimitiveProcedure( - 'car', - 1, - function (M) { - var firstArg = checkPair(M, 'car', 0); - return firstArg.first; - }); - - installPrimitiveProcedure( - 'caar', - 1, - function (M) { - var firstArg = checkCaarPair(M, 'caar', 0); - return firstArg.first.first; - }); - installPrimitiveProcedure( - 'cadr', - 1, - function (M) { - var firstArg = checkCadrPair(M, 'cadr', 0); - return firstArg.first.rest; - }); - installPrimitiveProcedure( - 'cdr', - 1, - function (M) { - var firstArg = checkPair(M, 'cdr', 0); - return firstArg.rest; - }); - - installPrimitiveProcedure( - 'pair?', - 1, - function (M) { - var firstArg = M.e[M.e.length-1]; - return isPair(firstArg); - }); - - - installPrimitiveProcedure( - 'list?', - 1, - function (M) { - return isList(M.e[M.e.length -1]); - }); - - - installPrimitiveProcedure( - 'set-car!', - 2, - function (M) { - var firstArg = checkPair(M, 'set-car!', 0); - var secondArg = M.e[M.e.length-2]; - firstArg.first = secondArg; - return VOID; - }); - - - installPrimitiveProcedure( - 'set-cdr!', - 2, - function (M) { - var firstArg = checkPair(M, 'set-car!', 0); - var secondArg = M.e[M.e.length-2]; - firstArg.rest = secondArg; - return VOID; - }); - - installPrimitiveProcedure( - 'not', - 1, - function (M) { - var firstArg = M.e[M.e.length-1]; - return (firstArg === false); - }); - - - installPrimitiveProcedure( - 'null?', - 1, - function (M) { - var firstArg = M.e[M.e.length-1]; - return firstArg === NULL; - }); - - - installPrimitiveProcedure( - 'vector', - baselib.arity.makeArityAtLeast(0), - function (M) { - var i; - var result = []; - for (i = 0; i < M.a; i++) { - result.push(M.e[M.e.length-1-i]); - } - var newVector = makeVector(result.length, result); - return newVector; - }); - - - installPrimitiveProcedure( - 'make-vector', - makeList(1, 2), - function (M) { - var value = 0; - var length = baselib.numbers.toFixnum( - checkNatural(M, 'make-vector', 0)); - if (M.a === 2) { - value = M.e[M.e.length - 2]; - } - var arr = []; - var i; - for(i = 0; i < length; i++) { - arr[i] = value; - } - return makeVector(arr.length, arr); - }); - - installPrimitiveProcedure( - 'vector->list', - 1, - function (M) { - var elts = checkVector(M, 'vector->list', 0).elts; - var i; - var result = NULL; - for (i = 0; i < elts.length; i++) { - result = makePair(elts[elts.length - 1 - i], result); - } - return result; - }); - - installPrimitiveProcedure( - 'list->vector', - 1, - function (M) { - var firstArg = checkList(M, 'list->vector', 0); - var result = []; - while (firstArg !== NULL) { - result.push(firstArg.first); - firstArg = firstArg.rest; - } - return makeVector(result.length, result); - }); - - - installPrimitiveProcedure( - 'vector-ref', - 2, - function (M) { - var elts = checkVector(M, 'vector-ref', 0).elts; - var index = M.e[M.e.length-2]; - return elts[index]; - }); - - - installPrimitiveProcedure( - 'vector-set!', - 3, - function (M) { - var elts = checkVector(M, 'vector-set!', 0).elts; - // FIXME: check out-of-bounds vector - var index = baselib.numbers.toFixnum( - checkNaturalInRange(M, 'vector-set!', 1, - 0, elts.length)); - var val = M.e[M.e.length - 1 - 2]; - elts[index] = val; - return VOID; - }); - - - installPrimitiveProcedure( - 'vector-length', - 1, - function (M) { - return checkVector(M, 'vector-length', 0).elts.length; - }); - - - - installPrimitiveProcedure( - 'make-string', - makeList(1, 2), - function (M) { - var value = String.fromCharCode(0); - var length = baselib.numbers.toFixnum( - checkNatural(M, 'make-string', 0)); - if (M.a === 2) { - value = checkChar(M, 'make-string', 1).val; - } - var arr = []; - var i; - for(i = 0; i < length; i++) { - arr[i] = value; - } - return baselib.strings.makeMutableString(arr); - }); - - installPrimitiveProcedure( - 'substring', - makeList(2, 3), - function(M) { - var str = checkString(M, 'substring', 0).toString(); - var start = baselib.numbers.toFixnum(checkNatural(M, 'substring', 1)); - var end = str.length; - if (M.a === 3) { - end = baselib.numbers.toFixnum(checkNatural(M, 'substring', 2)); - } - return str.substring(start, end); - }); - - - installPrimitiveProcedure( - 'list->string', - 1, - function (M) { - var firstArg = checkListofChars(M, 'list->string', 0); - var result = []; - while (firstArg !== NULL) { - result.push(firstArg.first.val); - firstArg = firstArg.rest; - } - return result.join(''); - }); - - - installPrimitiveProcedure( - 'string', - baselib.arity.makeArityAtLeast(0), - function (M) { - var i; - var chars = []; - for (i = 0; i < M.a; i++) { - chars.push(checkChar(M, 'string', i).val); - } - return chars.join(''); - }); - - - installPrimitiveProcedure( - 'string->list', - 1, - function (M) { - var str = checkString(M, 'string->list', 0).toString(); - var i; - var result = NULL; - for (i = str.length - 1; i >= 0; i--) { - result = makePair(baselib.chars.makeChar(str.charAt(i)), result); - } - return result; - }); - - - - installPrimitiveProcedure( - 'string-set!', - 3, - function (M) { - var str = checkMutableString(M, 'string-set!', 0); - var k = checkNatural(M, 'string-set!', 1); - var ch = checkChar(M, 'string-set!', 2); - str.set(baselib.numbers.toFixnum(k), ch.val); - return VOID; - }); - - - - - - installPrimitiveProcedure( - 'symbol?', - 1, - function (M) { - var firstArg = M.e[M.e.length-1]; - return isSymbol(firstArg); - }); - - installPrimitiveProcedure( - 'symbol->string', - 1, - function (M) { - var firstArg = checkSymbol(M, 'symbol->string', 0); - return firstArg.toString(); - }); - - - installPrimitiveProcedure( - 'string=?', - baselib.arity.makeArityAtLeast(1), - function (M) { - var s = checkString(M, 'string=?', 0).toString(); - var i; - for (i = 1; i < M.a; i++) { - if (s !== checkString(M, 'string=?', i).toString()) { - return false; - } - } - return true; - }); - - - installPrimitiveProcedure( - 'string<=?', - baselib.arity.makeArityAtLeast(1), - function (M) { - var s = checkString(M, 'string<=?', 0).toString(); - var i; - for (i = 1; i < M.a; i++) { - if ((s <= checkString(M, 'string<=?', i).toString()) === false) { - return false; - } - } - return true; - }); - - installPrimitiveProcedure( - 'string=?', - baselib.arity.makeArityAtLeast(1), - function (M) { - var s = checkString(M, 'string>=?', 0).toString(); - var i; - for (i = 1; i < M.a; i++) { - if ((s >= checkString(M, 'string>=?', i).toString()) === false) { - return false; - } - } - return true; - }); - - installPrimitiveProcedure( - 'string>?', - baselib.arity.makeArityAtLeast(1), - function (M) { - var s = checkString(M, 'string>?', 0).toString(); - var i; - for (i = 1; i < M.a; i++) { - if ((s > checkString(M, 'string>?', i).toString()) === false) { - return false; - } - } - return true; - }); - - - installPrimitiveProcedure( - 'string-ci=?', - baselib.arity.makeArityAtLeast(1), - function (M) { - var s = checkString(M, 'string-ci=?', 0).toString().toUpperCase(); - var i; - for (i = 1; i < M.a; i++) { - if (s !== checkString(M, 'string-ci=?', i).toString().toUpperCase()) { - return false; - } - } - return true; - }); - - - installPrimitiveProcedure( - 'string-ci<=?', - baselib.arity.makeArityAtLeast(1), - function (M) { - var s = checkString(M, 'string-ci<=?', 0).toString().toUpperCase(); - var i; - for (i = 1; i < M.a; i++) { - if ((s <= checkString(M, 'string-ci<=?', i).toString().toUpperCase()) === false) { - return false; - } - } - return true; - }); - - installPrimitiveProcedure( - 'string-ci=?', - baselib.arity.makeArityAtLeast(1), - function (M) { - var s = checkString(M, 'string-ci>=?', 0).toString().toUpperCase(); - var i; - for (i = 1; i < M.a; i++) { - if ((s >= checkString(M, 'string-ci>=?', i).toString().toUpperCase()) === false) { - return false; - } - } - return true; - }); - - installPrimitiveProcedure( - 'string-ci>?', - baselib.arity.makeArityAtLeast(1), - function (M) { - var s = checkString(M, 'string-ci>?', 0).toString().toUpperCase(); - var i; - for (i = 1; i < M.a; i++) { - if ((s > checkString(M, 'string-ci>?', i).toString().toUpperCase()) === false) { - return false; - } - } - return true; - }); - - - installPrimitiveProcedure( - 'string-append', - baselib.arity.makeArityAtLeast(0), - function (M) { - var buffer = []; - var i; - for (i = 0; i < M.a; i++) { - buffer.push(checkString(M, 'string-append', i).toString()); - } - return buffer.join(''); - }); - - installPrimitiveProcedure( - 'string-length', - 1, - function (M) { - var firstArg = checkString(M, 'string-length', 0).toString(); - return firstArg.length; - }); - - - installPrimitiveProcedure( - 'string-ref', - 2, - function (M) { - var firstArg = checkString(M, 'string-ref', 0).toString(); - var index = baselib.numbers.toFixnum( - checkNaturalInRange(M, 'string-ref', 1, - 0, firstArg.length)); - return baselib.chars.makeChar(firstArg.charAt(index)); - }); - - - - installPrimitiveProcedure( - 'string?', - 1, - function (M) { - return isString(M.e[M.e.length - 1]); - }); - - - installPrimitiveProcedure( - 'number->string', - 1, - function (M) { - return checkNumber(M, 'number->string', 0).toString(); - }); - - - installPrimitiveProcedure( - 'string->symbol', - 1, - function (M) { - return makeSymbol(checkString(M, 'string->symbol', 0).toString()); - }); - - - installPrimitiveProcedure( - 'string->number', - 1, - function (M) { - return baselib.numbers.fromString( - checkString(M, 'string->number', 0).toString()); - }); - - - installPrimitiveProcedure( - 'boolean?', - 1, - function(M) { - var v = M.e[M.e.length - 1]; - return (v === true || v === false); - }); - - - installPrimitiveProcedure( - 'char?', - 1, - function(M) { - return baselib.chars.isChar(M.e[M.e.length -1 ]); - }); - - - var makeCharComparator = function(name, cmp) { - return function(M) { - var s = checkChar(M, name, 0).val; - var i; - for (i = 1; i < M.a; i++) { - if (!(cmp(s, checkChar(M, name, i).val))) { - return false; - } - } - return true; - }; - }; - - installPrimitiveProcedure( - 'char>?', - baselib.arity.makeArityAtLeast(2), - makeCharComparator('char>?', - function(x, y) { - return x > y; - })); - - installPrimitiveProcedure( - 'char>=?', - baselib.arity.makeArityAtLeast(2), - makeCharComparator('char>=?', - function(x, y) { - return x >= y; - })); - - installPrimitiveProcedure( - 'char?', - baselib.arity.makeArityAtLeast(2), - makeCharComparator('char-ci>?', - function(x, y) { - return x.toUpperCase() > y.toUpperCase(); - })); - - installPrimitiveProcedure( - 'char-ci>=?', - baselib.arity.makeArityAtLeast(2), - makeCharComparator('char-ci>=?', - function(x, y) { - return x.toUpperCase() >= y.toUpperCase(); - })); - - installPrimitiveProcedure( - 'char-ciinteger', - 1, - function(M) { - return checkChar(M, 'char->integer', 0).val.charCodeAt(0); - }); - - installPrimitiveProcedure( - 'integer->char', - 1, - function(M) { - var ch = baselib.numbers.toFixnum(checkIntegerForChar(M, 'integer->char', 0)); - return baselib.chars.makeChar(String.fromCharCode(ch)); - }); - - installPrimitiveProcedure( - 'char-upcase', - 1, - function(M) { - var ch = checkChar(M, 'char=?', 0).val; - return baselib.chars.makeChar(ch.toUpperCase()); - }); - - installPrimitiveProcedure( - 'char-downcase', - 1, - function(M) { - var ch = checkChar(M, 'char=?', 0).val; - return baselib.chars.makeChar(ch.toLowerCase()); - }); - - installPrimitiveProcedure( - 'char-numeric?', - 1, - function(M) { - var val = checkChar(M, 'char-numeric?', 0).val; - return val >= '0' && val <= '9'; - }); - - installPrimitiveProcedure( - 'char-alphabetic?', - 1, - function(M) { - var val = checkChar(M, 'char-alphabetic?', 0).val; - return ((val >= 'a' && val <= 'z') || - (val >= 'A' && val <= 'Z')); - }); - - var whitespaceRegexp = new RegExp("^\\s*$"); - installPrimitiveProcedure( - 'char-whitespace?', - 1, - function(M) { - var val = checkChar(M, 'char-whitespace?', 0).val; - return val.match(whitespaceRegexp ? true : false); - }); - - - installPrimitiveProcedure( - 'char-upper-case?', - 1, - function(M) { - var val = checkChar(M, 'char-upper-case?', 0).val; - return val === val.toUpperCase(); - }); - - installPrimitiveProcedure( - 'char-lower-case?', - 1, - function(M) { - var val = checkChar(M, 'char-lower-case?', 0).val; - return val === val.toLowerCase(); - }); - - - installPrimitiveProcedure( - 'box', - 1, - function (M) { - var firstArg = M.e[M.e.length-1]; - return makeBox(firstArg); - }); - - installPrimitiveProcedure( - 'unbox', - 1, - function (M) { - var firstArg = checkBox(M, 'unbox', 0); - return firstArg.ref(); - }); - - installPrimitiveProcedure( - 'set-box!', - 2, - function (M) { - var firstArg = checkMutableBox(M, 'set-box!', 0); - var secondArg = M.e[M.e.length-2]; - firstArg.set(secondArg); - return VOID; - }); - - installPrimitiveProcedure( - 'void', - baselib.arity.makeArityAtLeast(0), - function (M) { - return VOID; - }); - - - installPrimitiveProcedure( - 'random', - baselib.lists.makeList(0, 1), - function (M) { - if (M.a === 0) { - return makeFloat(Math.random()); - } else { - var n = checkNatural(M, 'random', 0); - return Math.floor(Math.random() * baselib.numbers.toFixnum(n)); - } - }); - - - installPrimitiveProcedure( - 'eq?', - 2, - function (M) { - var firstArg = M.e[M.e.length-1]; - var secondArg = M.e[M.e.length-2]; - return firstArg === secondArg; - }); - - installPrimitiveProcedure( - 'eqv?', - 2, - function (M) { - var firstArg = M.e[M.e.length-1]; - var secondArg = M.e[M.e.length-2]; - return baselib.equality.eqv(firstArg, secondArg); - }); - - - - installPrimitiveProcedure( - 'equal?', - 2, - function (M) { - var firstArg = M.e[M.e.length-1]; - var secondArg = M.e[M.e.length-2]; - return equals(firstArg, secondArg); - }); - - - // This definition of apply will take precedence over the - // implementation of apply in the boostrapped-primitives.rkt, - // since it provides nicer error handling. - var applyImplementation = function (M) { - if(--M.callsBeforeTrampoline < 0) { - throw applyImplementation; - } - var proc = checkProcedure(M, 'apply', 0); - M.e.pop(); - M.a--; - checkList(M, 'apply', M.a - 1); - M.spliceListIntoStack(M.a - 1); - if (baselib.arity.isArityMatching(proc.racketArity, M.a)) { - M.p = proc; - if (baselib.functions.isPrimitiveProcedure(proc)) { - return finalizeClosureCall(M, proc(M)); - } else { - return proc.label(M); - } - } else { - raiseArityMismatchError(M, proc, M.a); - } - }; - installPrimitiveClosure( - 'apply', - baselib.arity.makeArityAtLeast(2), - applyImplementation); - - - // FIXME: The definition of call-with-values is in - // bootstrapped-primitives.rkt. We may want to replace it with an - // explicitly defined one here. - - - - - - installPrimitiveProcedure( - 'procedure?', - 1, - function (M) { - return baselib.functions.isProcedure(M.e[M.e.length - 1]); - }); - - installPrimitiveProcedure( - 'procedure-arity-includes?', - 2, - function (M) { - var proc = checkProcedure(M, 'procedure-arity-includes?', 0); - var a = checkNatural(M, 'procedure-arity-includes?', 1); - return baselib.arity.isArityMatching(proc.racketArity, a); - }); - - installPrimitiveProcedure( - 'procedure-arity', - 1, - function (M) { - var proc = checkProcedure(M, 'procedure-arity-includes?', 0); - return proc.racketArity; - }); - - - installPrimitiveProcedure( - 'procedure-rename', - 2, - function (M) { - var proc = checkProcedure(M, 'procedure-rename', 0); - var name = checkSymbol(M, 'procedure-rename', 1); - return baselib.functions.renameProcedure(proc, name); - }); - - - - installPrimitiveProcedure( - 'member', - 2, - function (M) { - var x = M.e[M.e.length-1]; - var lst = M.e[M.e.length-2]; - while (true) { - if (lst === NULL) { - return false; - } - if (! isPair(lst)) { - raiseArgumentTypeError(M, - 'member', - 'list', - 1, - M.e[M.e.length - 1 - 1]); - } - if (equals(x, (lst.first))) { - return lst; - } - lst = lst.rest; - } - }); - - - installPrimitiveProcedure( - 'reverse', - 1, - function (M) { - var rev = NULL; - var lst = M.e[M.e.length-1]; - while(lst !== NULL) { - rev = makePair(testArgument(M, 'pair', isPair, lst, 0, 'reverse').first, - rev); - lst = lst.rest; - } - return rev; - }); - - installPrimitiveProcedure( - 'void?', - 1, - function(M) { - return M.e[M.e.length -1] === VOID; - }); - - - installPrimitiveProcedure( - 'box?', - 1, - function(M) { - return isBox(M.e[M.e.length -1]); - }); - - - installPrimitiveProcedure( - 'eof-object?', - 1, - function(M) { - return M.e[M.e.length -1] === baselib.constants.EOF_VALUE; - }); - - installPrimitiveProcedure( - 'number?', - 1, - function(M) { - return isNumber(M.e[M.e.length - 1]); - }); - - installPrimitiveProcedure( - 'real?', - 1, - function(M) { - return isReal(M.e[M.e.length - 1]); - }); - - installPrimitiveProcedure( - 'inexact?', - 1, - function(M) { - return isInexact(M.e[M.e.length - 1]); - }); - - installPrimitiveProcedure( - 'complex?', - 1, - function(M) { - return isComplex(M.e[M.e.length - 1]); - }); - - installPrimitiveProcedure( - 'bytes?', - 1, - function(M) { - return isBytes(M.e[M.e.length-1]); - }); - - installPrimitiveProcedure( - 'byte?', - 1, - function(M) { - var v = M.e[M.e.length - 1]; - if(!isNatural(v)) { return false; } - v = baselib.numbers.toFixnum(v); - return v >= 0 && v < 256; - }); - - installPrimitiveProcedure( - 'rational?', - 1, - function(M) { - return isRational(M.e[M.e.length - 1]); - }); - - installPrimitiveProcedure( - 'even?', - 1, - function(M) { - var n = checkInteger(M, 'even?', 0); - return baselib.numbers.equals(0, baselib.numbers.modulo(n, 2)); - }); - - installPrimitiveProcedure( - 'odd?', - 1, - function(M) { - var n = checkInteger(M, 'odd?', 0); - return baselib.numbers.equals(1, baselib.numbers.modulo(n, 2)); - }); - - - installPrimitiveProcedure( - 'positive?', - 1, - function(M) { - var n = checkReal(M, 'positive?', 0); - return baselib.numbers.greaterThan(n, 0); - }); - - installPrimitiveProcedure( - 'negative?', - 1, - function(M) { - var n = checkReal(M, 'negative?', 0); - return baselib.numbers.lessThan(n, 0); - }); - - - installPrimitiveProcedure( - 'inexact->exact', - 1, - function (M) { - return baselib.numbers.toExact( - checkNumber(M, 'inexact->exact', 0)); - }); - - installPrimitiveProcedure( - 'exact->inexact', - 1, - function (M) { - return baselib.numbers.toInexact( - checkNumber(M, 'exact->inexact', 0)); - }); - - installPrimitiveProcedure( - 'abs', - 1, - function (M) { - return baselib.numbers.abs( - checkNumber(M, 'abs', 0)); - }); - - installPrimitiveProcedure( - 'acos', - 1, - function (M) { - return baselib.numbers.acos( - checkNumber(M, 'acos', 0)); - }); - - - installPrimitiveProcedure( - 'asin', - 1, - function (M) { - return baselib.numbers.asin( - checkNumber(M, 'asin', 0)); - }); - - installPrimitiveProcedure( - 'sin', - 1, - function (M) { - return baselib.numbers.sin( - checkNumber(M, 'sin', 0)); - }); - - - - installPrimitiveProcedure( - 'sinh', - 1, - function (M) { - return baselib.numbers.sinh( - checkNumber(M, 'sinh', 0)); - }); - - - installPrimitiveProcedure( - 'tan', - 1, - function (M) { - return baselib.numbers.tan( - checkNumber(M, 'tan', 0)); - }); - - - installPrimitiveProcedure( - 'atan', - makeList(1, 2), - function (M) { - if (M.a === 1) { - return baselib.numbers.atan( - checkNumber(M, 'atan', 0)); - } else { - return makeFloat( - Math.atan2( - baselib.numbers.toFixnum(checkNumber(M, 'atan', 0)), - baselib.numbers.toFixnum(checkNumber(M, 'atan', 1)))); - } - }); - - - installPrimitiveProcedure( - 'angle', - 1, - function (M) { - return baselib.numbers.angle( - checkNumber(M, 'angle', 0)); - }); - - installPrimitiveProcedure( - 'magnitude', - 1, - function (M) { - return baselib.numbers.magnitude( - checkNumber(M, 'magnitude', 0)); - }); - - installPrimitiveProcedure( - 'conjugate', - 1, - function (M) { - return baselib.numbers.conjugate( - checkNumber(M, 'conjugate', 0)); - }); - - - - - installPrimitiveProcedure( - 'cos', - 1, - function (M) { - return baselib.numbers.cos( - checkNumber(M, 'cos', 0)); - }); - - - installPrimitiveProcedure( - 'cosh', - 1, - function (M) { - return baselib.numbers.cosh( - checkNumber(M, 'cosh', 0)); - }); - - installPrimitiveProcedure( - 'gcd', - baselib.arity.makeArityAtLeast(1), - function (M) { - var args = [], i, x; - for (i = 0; i < M.a; i++) { - args.push(checkNumber(M, 'gcd', i)); - } - x = args.shift(); - return baselib.numbers.gcd(x, args); - }); - - installPrimitiveProcedure( - 'lcm', - baselib.arity.makeArityAtLeast(1), - function (M) { - var args = [], i, x; - for (i = 0; i < M.a; i++) { - args.push(checkNumber(M, 'lcm', i)); - } - x = args.shift(); - return baselib.numbers.lcm(x, args); - }); - - - - - installPrimitiveProcedure( - 'exp', - 1, - function (M) { - return baselib.numbers.exp( - checkNumber(M, 'exp', 0)); - }); - - - installPrimitiveProcedure( - 'expt', - 2, - function (M) { - return baselib.numbers.expt( - checkNumber(M, 'expt', 0), - checkNumber(M, 'expt', 1)); - }); - - installPrimitiveProcedure( - 'exact?', - 1, - function (M) { - return baselib.numbers.isExact( - checkNumber(M, 'exact?', 0)); - }); - - - installPrimitiveProcedure( - 'integer?', - 1, - function (M) { - return baselib.numbers.isInteger(M.e[M.e.length - 1]); - }); - - installPrimitiveProcedure( - 'exact-integer?', - 1, - function (M) { - return (baselib.numbers.isInteger(M.e[M.e.length - 1]) && - baselib.numbers.isExact(M.e[M.e.length - 1])); - }); - - installPrimitiveProcedure( - 'exact-nonnegative-integer?', - 1, - function (M) { - return isNatural(M.e[M.e.length - 1]); - }); - - - - installPrimitiveProcedure( - 'imag-part', - 1, - function (M) { - return baselib.numbers.imaginaryPart( - checkNumber(M, 'imag-part', 0)); - }); - - - installPrimitiveProcedure( - 'real-part', - 1, - function (M) { - return baselib.numbers.realPart( - checkNumber(M, 'real-part', 0)); - }); - - - installPrimitiveProcedure( - 'make-polar', - 2, - function (M) { - return makeComplexPolar( - checkReal(M, 'make-polar', 0), - checkReal(M, 'make-polar', 1)); - }); - - - installPrimitiveProcedure( - 'make-rectangular', - 2, - function (M) { - return makeComplex( - checkReal(M, 'make-rectangular', 0), - checkReal(M, 'make-rectangular', 1)); - }); - - installPrimitiveProcedure( - 'modulo', - 2, - function (M) { - return baselib.numbers.modulo( - checkInteger(M, 'modulo', 0), - checkInteger(M, 'modulo', 1)); - }); - - - installPrimitiveProcedure( - 'remainder', - 2, - function (M) { - return baselib.numbers.remainder( - checkInteger(M, 'remainder', 0), - checkInteger(M, 'remainder', 1)); - }); - - - installPrimitiveProcedure( - 'quotient', - 2, - function (M) { - return baselib.numbers.quotient( - checkInteger(M, 'quotient', 0), - checkInteger(M, 'quotient', 1)); - }); - - - - installPrimitiveProcedure( - 'floor', - 1, - function (M) { - return baselib.numbers.floor( - checkReal(M, 'floor', 0)); - }); - - - installPrimitiveProcedure( - 'ceiling', - 1, - function (M) { - return baselib.numbers.ceiling( - checkReal(M, 'ceiling', 0)); - }); - - - installPrimitiveProcedure( - 'round', - 1, - function (M) { - return baselib.numbers.round( - checkReal(M, 'round', 0)); - }); - - - installPrimitiveProcedure( - 'truncate', - 1, - function (M) { - var n = checkReal(M, 'truncate', 0); - if (baselib.numbers.lessThan(n, 0)) { - return baselib.numbers.ceiling(n); - } else { - return baselib.numbers.floor(n); - } - }); - - - installPrimitiveProcedure( - 'numerator', - 1, - function (M) { - return baselib.numbers.numerator( - checkRational(M, 'numerator', 0)); - }); - - - installPrimitiveProcedure( - 'denominator', - 1, - function (M) { - return baselib.numbers.denominator( - checkRational(M, 'denominator', 0)); - }); - - - installPrimitiveProcedure( - 'log', - 1, - function (M) { - return baselib.numbers.log( - checkNumber(M, 'log', 0)); - }); - - - installPrimitiveProcedure( - 'sqr', - 1, - function (M) { - return baselib.numbers.sqr( - checkNumber(M, 'sqr', 0)); - }); - - - - - installPrimitiveProcedure( - 'sqrt', - 1, - function (M) { - return baselib.numbers.sqrt( - checkNumber(M, 'sqrt', 0)); - }); - - - - installPrimitiveProcedure( - 'integer-sqrt', - 1, - function (M) { - return baselib.numbers.integerSqrt( - checkInteger(M, 'integer-sqrt', 0)); - }); - - - - installPrimitiveProcedure( - 'sgn', - 1, - function (M) { - return baselib.numbers.sign( - checkInteger(M, 'sgn', 0)); - }); - - - installPrimitiveProcedure( - 'min', - baselib.arity.makeArityAtLeast(1), - function(M) { - var i; - var next; - var currentMin = checkReal(M, 'min', 0); - for (i = 1; i < M.a; i++) { - next = checkReal(M, 'min', i); - if (baselib.numbers.lessThan(next, currentMin)) { - currentMin = next; - } - } - return currentMin; - }); - - installPrimitiveProcedure( - 'max', - baselib.arity.makeArityAtLeast(1), - function(M) { - var i; - var next; - var currentMax = checkReal(M, 'min', 0); - for (i = 1; i < M.a; i++) { - next = checkReal(M, 'min', i); - if (baselib.numbers.greaterThan(next, currentMax)) { - currentMax = next; - } - } - return currentMax; - }); - - - - - - - installPrimitiveProcedure( - 'error', - baselib.arity.makeArityAtLeast(1), - function (M) { - var i; - if (M.a === 1) { - var sym = checkSymbol(M, 'error', 1); - raise(M, baselib.exceptions.makeExnFail(sym.toString(), - M.captureContinuationMarks())); - } - - if (isString(M.e[M.e.length - 1])) { - var vs = []; - for (i = 1; i < M.a; i++) { - vs.push(baselib.format.format("~e", [M.e[M.e.length - 1 - i]])); - } - raise(M, baselib.exceptions.makeExnFail(M.e[M.e.length - 1].toString() + - ": " + - vs.join(' '), - M.captureContinuationMarks())); - } - - if (isSymbol(M.e[M.e.length - 1])) { - var fmtString = checkString(M, 'error', 1); - var args = [M.e[M.e.length - 1]]; - for (i = 2; i < M.a; i++) { - args.push(M.e[M.e.length - 1 - i]); - } - raise(M, baselib.exceptions.makeExnFail( - baselib.format.format('~s: ' + fmtString.toString(), - args), - M.captureContinuationMarks())); - } - - // Fall-through - raiseArgumentTypeError(M, 'error', 'symbol or string', 0, M.e[M.e.length - 1]); - }); - - - installPrimitiveProcedure( - 'raise', - makeList(1, 2), - function(M) { - var v = M.e[M.e.length - 1]; - // At the moment, not using the continuation barrier yet. - // var withBarrier = M.e[M.e.length - 2]; - raise(M, v); - }); - - - - installPrimitiveProcedure( - 'raise-mismatch-error', - 3, - function (M) { - var name = checkSymbol(M, 'raise-mismatch-error', 0); - var message = checkString(M, 'raise-mismatch-error', 0); - var val = M.e[M.e.length - 1 - 2]; - raise(M, baselib.exceptions.makeExnFail( - baselib.format.format("~a: ~a~e", - [name, - message, - val]), - M.captureContinuationMarks())); - }); - - - installPrimitiveProcedure( - 'raise-type-error', - baselib.arity.makeArityAtLeast(3), - function (M) { - var name = checkSymbol(M, 'raise-type-error', 0); - var expected = checkString(M, 'raise-type-error', 1); - if (M.a === 3) { - raiseArgumentTypeError(M, - name, - expected, - undefined, - M.e[M.e.length - 1 - 2]); - } else { - raiseArgumentTypeError(M, - name, - expected, - checkNatural(M, 'raise-type-error', 2), - M.e[M.e.length - 1 - 2]); - } - }); - - - - installPrimitiveProcedure( - 'make-exn', - 2, - function(M) { - var message = checkString(M, 'make-exn', 0); - var marks = checkContinuationMarkSet(M, 'make-exn', 1); - return baselib.exceptions.makeExn(message, marks); - }); - - - installPrimitiveConstant( - 'exn:fail', - baselib.exceptions.ExnFail); - - - installPrimitiveConstant( - 'prop:exn:srclocs', - "fixme"); - - - installPrimitiveProcedure( - 'make-exn:fail', - 2, - function(M) { - var message = checkString(M, 'make-exn:fail', 0); - var marks = checkContinuationMarkSet(M, 'make-exn:fail', 1); - return baselib.exceptions.makeExnFail(message, marks); - }); - - - installPrimitiveProcedure( - 'make-exn:fail:contract', - 2, - function(M) { - var message = checkString(M, 'make-exn:fail:contract', 0); - var marks = checkContinuationMarkSet(M, 'make-exn:fail:contract', 1); - return baselib.exceptions.makeExnFailContract(message, marks); - }); - - - installPrimitiveProcedure( - 'make-exn:fail:contract:arity', - 2, - function(M) { - var message = checkString(M, 'make-exn:fail:contract:arity', 0); - var marks = checkContinuationMarkSet(M, 'make-exn:fail:contract:arity', 1); - return baselib.exceptions.makeExnFailContractArity(message, marks); - }); - - installPrimitiveProcedure( - 'make-exn:fail:contract:variable', - 2, - function(M) { - var message = checkString(M, 'make-exn:fail:contract:variable', 0); - var marks = checkContinuationMarkSet(M, 'make-exn:fail:contract:variable', 1); - return baselib.exceptions.makeExnFailContractVariable(message, marks); - }); - - installPrimitiveProcedure( - 'make-exn:fail:contract:divide-by-zero', - 2, - function(M) { - var message = checkString(M, 'make-exn:fail:contract:divide-by-zero', 0); - var marks = checkContinuationMarkSet(M, 'make-exn:fail:contract:divide-by-zero', 1); - return baselib.exceptions.makeExnFailContractDivisionByZero(message, marks); - }); - - installPrimitiveProcedure( - 'exn-message', - 1, - function(M) { - var exn = checkExn(M, 'exn-message', 0); - return baselib.exceptions.exnMessage(exn); - }); - - installPrimitiveProcedure( - 'exn-continuation-marks', - 1, - function(M) { - var exn = checkExn(M, 'exn-continuation-marks', 0); - return baselib.exceptions.exnContMarks(exn); - }); - - - installPrimitiveProcedure( - 'current-continuation-marks', - makeList(0, 1), - function(M) { - var promptTag; - if (M.a === 1) { - promptTag = checkContinuationPromptTag(M, 'current-continuation-marks', 0); - } - var contMarks = M.captureContinuationMarks(promptTag); - // The continuation marks shouldn't capture the record of the call to - // current-continuation-marks itself. - contMarks.shift(); - return contMarks; - }); - - installPrimitiveClosure( - 'make-struct-type', - makeList(4, 5, 6, 7, 8, 9, 10, 11), - function (M) { - withArguments( - M, - 4, - [false, - NULL, - false, - false, - NULL, - false, - false], - function (name, - superType, - initFieldCount, - autoFieldCount, - autoV, - props, // FIXME: currently ignored - inspector, // FIXME: currently ignored - procSpec, // FIXME: currently ignored - immutables, // FIXME: currently ignored - guard, // FIXME: currently ignored - constructorName - ) { - - // FIXME: typechecks. - - var structType = baselib.structs.makeStructureType( - name, - superType, - initFieldCount, - autoFieldCount, - autoV, - //props, - //inspector, - //procSpec, - //immutables, - guard); - - var constructorValue = - makePrimitiveProcedure( - constructorName, - baselib.numbers.toFixnum(initFieldCount), - function (M) { - var args = []; - var i; - for(i = 0; i < initFieldCount; i++) { - args.push(M.e[M.e.length - 1 - i]); - } - return structType.constructor.apply(null, args); - }); - - var predicateValue = - makePrimitiveProcedure( - name.toString() + "?", - 1, - function (M) { - return structType.predicate(M.e[M.e.length - 1]); - }); - - var accessorValue = - makePrimitiveProcedure( - name.toString() + "-accessor", - 2, - function (M) { - return structType.accessor( - M.e[M.e.length - 1], - baselib.numbers.toFixnum(M.e[M.e.length - 2])); - }); - accessorValue.structType = structType; - - var mutatorValue = - makePrimitiveProcedure( - name.toString() + "-mutator", - 3, - function (M) { - return structType.mutator( - M.e[M.e.length - 1], - baselib.numbers.toFixnum(M.e[M.e.length - 2]), - M.e[M.e.length - 3]); - }); - mutatorValue.structType = structType; - - - finalizeClosureCall(M, - structType, - constructorValue, - predicateValue, - accessorValue, - mutatorValue); - }); - }); - - installPrimitiveClosure( - 'struct?', - 1, - function(M) { - return isStruct(M.e[M.e.length - 1]); - }); - - installPrimitiveClosure( - 'struct-type?', - 1, - function(M) { - return isStructType(M.e[M.e.length - 1]); - }); - - installPrimitiveProcedure( - 'current-inspector', - makeList(0, 1), - function (M) { - if (M.a === 1) { - M.params['currentInspector'] = - checkInspector(M, 'current-inspector', 0); - return VOID; - } else { - return M.params['currentInspector']; - } - } - ); - - - installPrimitiveProcedure( - 'make-struct-field-accessor', - makeList(2, 3), - function (M){ - var structType = M.e[M.e.length - 1].structType; - var index = M.e[M.e.length - 2]; - var name; - if (M.a === 3) { - name = structType.name + "-" + M.e[M.e.length - 3].toString(); - } else { - name = structType.name + "-" + 'field' + index; - } - var checkStruct = baselib.check.makeCheckArgumentType(structType.predicate, - structType.name); - return makePrimitiveProcedure( - name, - 1, - function (M) { - var aStruct = checkStruct(M, name, 0); - return structType.accessor( - aStruct, - baselib.numbers.toFixnum(index)); - }); - }); - - - installPrimitiveProcedure( - 'make-struct-field-mutator', - makeList(2, 3), - function (M){ - var structType = M.e[M.e.length - 1].structType; - var index = M.e[M.e.length - 2]; - var name; - if (M.a === 3) { - name = "set-" + structType.name + "-" + M.e[M.e.length - 3].toString() + "!"; - } else { - name = "set-" + structType.name + "-" + 'field' + index + "!"; - } - var checkStruct = baselib.check.makeCheckArgumentType(structType.predicate, - structType.name); - return makePrimitiveProcedure( - name, - 2, - function (M) { - var aStruct = checkStruct(M, name, 0); - return structType.mutator( - aStruct, - baselib.numbers.toFixnum(index), - M.e[M.e.length - 2]); - }); - }); - - - installPrimitiveProcedure( - 'make-placeholder', - 1, - function(M) { - var v = M.e[M.e.length - 1]; - return baselib.placeholders.makePlaceholder(v); - }); - - - installPrimitiveProcedure( - 'placeholder-set!', - 2, - function(M) { - var placeholder = checkPlaceholder(M, 'placeholder-set!', 0); - var val = M.e[M.e.length - 2]; - placeholder.set(val); - return VOID; - }); - - - installPrimitiveProcedure( - 'make-reader-graph', - 1, - function(M) { - var x = M.e[M.e.length - 1]; - return baselib.readergraph.readerGraph(x, - baselib.hashes.makeLowLevelEqHash(), - 0); - }); - - - - - installPrimitiveProcedure( - 'srcloc', - 5, - function(M) { - var source = M.e[M.e.length - 1]; - var line = checkNatural(M, 'srcloc', 1); - var column = checkNatural(M, 'srcloc', 2); - var position = checkNatural(M, 'srcloc', 3); - var span = checkNatural(M, 'srcloc', 4); - return baselib.srclocs.makeSrcloc(source, line, column, position, span); - }); - - installPrimitiveProcedure( - 'make-srcloc', - 5, - function(M) { - var source = M.e[M.e.length - 1]; - var line = checkNatural(M, 'make-srcloc', 1); - var column = checkNatural(M, 'make-srcloc', 2); - var position = checkNatural(M, 'make-srcloc', 3); - var span = checkNatural(M, 'make-srcloc', 4); - return baselib.srclocs.makeSrcloc(source, line, column, position, span); - }); - - installPrimitiveProcedure( - 'srcloc?', - 1, - function(M) { - return baselib.srclocs.isSrcloc(M.e[M.e.length - 1]); - }); - - installPrimitiveProcedure( - 'srcloc-source', - 1, - function(M) { - return baselib.srclocs.srclocSource(checkSrcloc(M, 'srcloc-source', 0)); - }); - - installPrimitiveProcedure( - 'srcloc-line', - 1, - function(M) { - return baselib.srclocs.srclocLine(checkSrcloc(M, 'srcloc-line', 0)); - }); - - installPrimitiveProcedure( - 'srcloc-column', - 1, - function(M) { - return baselib.srclocs.srclocColumn(checkSrcloc(M, 'srcloc-column', 0)); - }); - - - installPrimitiveProcedure( - 'srcloc-position', - 1, - function(M) { - return baselib.srclocs.srclocPosition(checkSrcloc(M, 'srcloc-position', 0)); - }); - - - installPrimitiveProcedure( - 'srcloc-span', - 1, - function(M) { - return baselib.srclocs.srclocSpan(checkSrcloc(M, 'srcloc-span', 0)); - }); - - - - installPrimitiveProcedure( - 'make-continuation-prompt-tag', - makeList(0, 1), - function(M) { - var sym; - if (M.a === 1) { - sym = checkSymbol(M, "make-continuation-prompt-tag", 0); - return new baselib.contmarks.ContinuationPromptTag(sym.toString()); - } - return new baselib.contmarks.ContinuationPromptTag(undefined); - }); - - installPrimitiveProcedure( - 'continuation-prompt-tag?', - 1, - function(M) { - return baselib.contmarks.isContinuationPromptTag(M.e[M.e.length - 1]); - }); - - - - installPrimitiveProcedure( - 'default-continuation-prompt-tag', - 0, - function(M) { - return baselib.contmarks.DEFAULT_CONTINUATION_PROMPT_TAG; - }); - - exports['Primitives'] = Primitives; - exports['installPrimitiveProcedure'] = installPrimitiveProcedure; - exports['installPrimitiveClosure'] = installPrimitiveClosure; - exports['installPrimitiveConstant'] = installPrimitiveConstant; - -}(this.plt.baselib)); -/*jslint browser: true, undef: true, unparam: true, sub: true, vars: true, white: true, plusplus: true, maxerr: 50, indent: 4 */ - - -// runtime.js: the main runtime library for whalesong. -// - -// All of the values here are namespaced under "plt.runtime". -/*global $*/ -(function(plt, baselib) { - 'use strict'; - var runtime = {}; - plt.runtime = runtime; - - - - ////////////////////////////////////////////////////////////////////// - ////////////////////////////////////////////////////////////////////// - // We try to isolate the effect of external modules: all the identifiers we - // pull from external modules should be listed here, and should otherwise not - // show up outside this section! - var isNumber = baselib.numbers.isNumber; - var isNatural = baselib.numbers.isNatural; - var isReal = baselib.numbers.isReal; - var isPair = baselib.lists.isPair; - var isCaarPair = function(x) { return isPair(x) && isPair(x.first); }; - var isList = baselib.lists.isList; - var isVector = baselib.vectors.isVector; - var isString = baselib.strings.isString; - var isSymbol = baselib.symbols.isSymbol; - var isPath = baselib.paths.isPath; - - var equals = baselib.equality.equals; - - var NULL = baselib.lists.EMPTY; - var VOID = baselib.constants.VOID_VALUE; - - var NEGATIVE_ZERO = baselib.numbers.negative_zero; - var INF = baselib.numbers.inf; - var NEGATIVE_INF = baselib.numbers.negative_inf; - var NAN = baselib.numbers.nan; - - var makeFloat = baselib.numbers.makeFloat; - var makeRational = baselib.numbers.makeRational; - var makeBignum = baselib.numbers.makeBignum; - var makeComplex = baselib.numbers.makeComplex; - - - var makeSymbol = baselib.symbols.makeSymbol; - var makePath = baselib.paths.makePath; - var makeBytes = baselib.bytes.makeBytes; - - var makeBox = baselib.boxes.makeBox; - var isBox = baselib.boxes.isBox; - - var makeVector = baselib.vectors.makeVector; - var makeList = baselib.lists.makeList; - var makePair = baselib.lists.makePair; - var makeChar = baselib.chars.makeChar; - - var makeStructureType = baselib.structs.makeStructureType; - - - var Struct = baselib.structs.Struct; - var StructType = baselib.structs.StructType; - - var Closure = baselib.functions.Closure; - var finalizeClosureCall = baselib.functions.finalizeClosureCall; - var makePrimitiveProcedure = baselib.functions.makePrimitiveProcedure; - var makeClosure = baselib.functions.makeClosure; - - var ContinuationPromptTag = baselib.contmarks.ContinuationPromptTag; - - - // Other helpers - var heir = baselib.heir; - var makeClassPredicate = baselib.makeClassPredicate; - var toDomNode = baselib.format.toDomNode; - var toWrittenString = baselib.format.toWrittenString; - var toDisplayedString = baselib.format.toDisplayedString; - - - - // Frame structures. - var Frame = baselib.frames.Frame; - var CallFrame = baselib.frames.CallFrame; - var PromptFrame = baselib.frames.PromptFrame; - - // Module structure - var ModuleRecord = baselib.modules.ModuleRecord; - - - - // Ports - var isOutputPort = baselib.ports.isOutputPort; - var StandardOutputPort = baselib.ports.StandardOutputPort; - var StandardErrorPort = baselib.ports.StandardErrorPort; - var StandardInputPort = baselib.ports.StandardInputPort; - var isOutputStringPort = baselib.ports.isOutputStringPort; - - - - - // Exceptions and error handling. - var raise = baselib.exceptions.raise; - var raiseUnboundToplevelError = baselib.exceptions.raiseUnboundToplevelError; - var raiseArgumentTypeError = baselib.exceptions.raiseArgumentTypeError; - var raiseContextExpectedValuesError = baselib.exceptions.raiseContextExpectedValuesError; - var raiseArityMismatchError = baselib.exceptions.raiseArityMismatchError; - var raiseOperatorApplicationError = baselib.exceptions.raiseOperatorApplicationError; - var raiseOperatorIsNotPrimitiveProcedure = baselib.exceptions.raiseOperatorIsNotPrimitiveProcedure; - var raiseOperatorIsNotClosure = baselib.exceptions.raiseOperatorIsNotClosure; - var raiseUnimplementedPrimitiveError = baselib.exceptions.raiseUnimplementedPrimitiveError; - - - var ArityAtLeast = baselib.arity.ArityAtLeast; - var makeArityAtLeast = baselib.arity.makeArityAtLeast; - var isArityMatching = baselib.arity.isArityMatching; - - - var testArgument = baselib.check.testArgument; - var testArity = baselib.check.testArity; - var makeCheckArgumentType = baselib.check.makeCheckArgumentType; - - - var Primitives = baselib.primitives.Primitives; - var installPrimitiveProcedure = baselib.primitives.installPrimitiveProcedure; - - - - // This value will be dynamically determined. - // See findStackLimit later in this file. - var STACK_LIMIT_ESTIMATE = 100; - - // Approximately find the stack limit. - // This function assumes, on average, five variables or - // temporaries per stack frame. - // This will never report a number greater than MAXIMUM_CAP. - var findStackLimit = function(after) { - var MAXIMUM_CAP = 32768; - var n = 1; - var limitDiscovered = false; - setTimeout( - function() { - if(! limitDiscovered) { - limitDiscovered = true; - after(n); - } - }, - 0); - var loop1, loop2; - loop1 = function loop1(x, y, z, w, k) { - // Ensure termination, just in case JavaScript ever - // does eliminate stack limits. - if (n >= MAXIMUM_CAP) { return; } - n++; - return 1 + loop2(y, z, w, k, x); - }; - loop2 = function loop2(x, y, z, w, k) { - n++; - return 1 + loop1(y, z, w, k, x); - }; - try { - findStackLimit.dontCare = 1 + loop1(2, "seven", [1], {number: 8}, 2); - } catch (e) { - // ignore exceptions. - } - if (! limitDiscovered) { - limitDiscovered = true; - after(n); - } - }; - - - // Schedule a stack limit estimation. If it fails, no harm, no - // foul (hopefully!) - setTimeout(function() { - findStackLimit(function(v) { - // Trying to be a little conservative. - STACK_LIMIT_ESTIMATE = Math.floor(v / 10); - }); - }, - 0); - - - - ////////////////////////////////////////////////////////////////////// - - - - var defaultCurrentPrintImplementation = function (MACHINE) { - if(--MACHINE.cbt < 0) { - throw defaultCurrentPrintImplementation; - } - var oldArgcount = MACHINE.a; - - var elt = MACHINE.e[MACHINE.e.length - 1]; - var outputPort = - MACHINE.params.currentOutputPort; - if (elt !== VOID) { - outputPort.writeDomNode( - MACHINE, - toDomNode(elt, MACHINE.params['print-mode'])); - outputPort.writeDomNode(MACHINE, toDomNode("\n", 'display')); - } - MACHINE.a = oldArgcount; - return finalizeClosureCall(MACHINE, VOID); - }; - var defaultCurrentPrint = makeClosure( - "default-printer", - 1, - defaultCurrentPrintImplementation); - - - //////////////////////////////////////////////////////////////////////] - // The MACHINE - - var Machine = function() { - this.cbt = STACK_LIMIT_ESTIMATE; // calls before trampoline - this.v = undefined; // value register - this.p = undefined; // procedure register - this.a = undefined; // argument count - this.e = []; // environment - this.c = []; // control: Arrayof (U Frame CallFrame PromptFrame) - this.running = false; - this.modules = {}; // String -> ModuleRecord - this.mainModules = []; // Arrayof String - this.params = { - - // print-as-expression: boolean - 'print-as-expression' : false, - - // print-mode: (one-of "write" "print" "constructor") - 'print-mode' : 'write', - - - // currentDisplayer: DomNode -> Void - // currentDisplayer is responsible for displaying to the browser. - 'currentDisplayer': function(MACHINE, domNode) { - $(domNode).appendTo(document.body); - }, - - // currentErrorDisplayer: DomNode -> Void - // currentErrorDisplayer is responsible for displaying errors to the browser. - 'currentErrorDisplayer': function(MACHINE, domNode) { - $(domNode).appendTo(document.body); - }, - - 'currentInspector': baselib.inspectors.DEFAULT_INSPECTOR, - - 'currentOutputPort': new StandardOutputPort(), - 'currentErrorPort': new StandardErrorPort(), - 'currentInputPort': new StandardInputPort(), - 'currentSuccessHandler': function(MACHINE) {}, - 'currentErrorHandler': function(MACHINE, exn) { - MACHINE.params.currentErrorDisplayer( - MACHINE, - toDomNode(exn, MACHINE.params['print-mode'])); - }, - - 'currentNamespace': {}, - - // These parameters control how often - // control yields back to the browser - // for response. The implementation is a - // simple PID controller. - // - // To tune this, adjust desiredYieldsPerSecond. - // Do no touch numBouncesBeforeYield or - // maxNumBouncesBeforeYield, because those - // are adjusted automatically by the - // recomputeMaxNumBouncesBeforeYield - // procedure. - 'desiredYieldsPerSecond': 5, - 'numBouncesBeforeYield': 2000, // self-adjusting - 'maxNumBouncesBeforeYield': 2000, // self-adjusting - - 'currentPrint': defaultCurrentPrint - - - }; - this.primitives = Primitives; - }; - - - // Try to get the continuation mark key used for procedure application tracing. - var getTracedAppKey = function(MACHINE) { - if (MACHINE.modules['whalesong/lang/private/traced-app.rkt']) { - return MACHINE.modules['whalesong/lang/private/traced-app.rkt'].namespace['traced-app-key']; - } - return undefined; - }; - - var getTracedCalleeKey = function(MACHINE) { - if (MACHINE.modules['whalesong/lang/private/traced-app.rkt']) { - return MACHINE.modules['whalesong/lang/private/traced-app.rkt'].namespace['traced-callee-key']; - } - return undefined; - }; - - - - // captureControl implements the continuation-capturing part of - // call/cc. It grabs the control frames up to (but not including) the - // prompt tagged by the given tag. - Machine.prototype.captureControl = function(skip, tag) { - var MACHINE = this; - var i; - for (i = MACHINE.c.length - 1 - skip; i >= 0; i--) { - if (MACHINE.c[i].tag === tag) { - return MACHINE.c.slice(i + 1, - MACHINE.c.length - skip); - } - } - raise(MACHINE, new Error("captureControl: unable to find tag " + tag)); - }; - - - - // restoreControl clears the control stack (up to, but not including the - // prompt tagged by tag), and then appends the rest of the control frames. - // At the moment, the rest of the control frames is assumed to be in the - // top of the environment. - Machine.prototype.restoreControl = function(tag) { - var MACHINE = this; - var i; - for (i = MACHINE.c.length - 1; i >= 0; i--) { - if (MACHINE.c[i].tag === tag) { - MACHINE.c = - MACHINE.c.slice(0, i+1).concat( - MACHINE.e[MACHINE.e.length - 1]); - return; - } - } - raise(MACHINE, new Error("restoreControl: unable to find tag " + tag)); - - }; - - - // Splices the list argument in the environment. Adjusts MACHINE.a - // appropriately. - Machine.prototype.spliceListIntoStack = function(depth) { - var MACHINE = this; - var lst = MACHINE.e[MACHINE.e.length - 1 - depth]; - var vals = []; - while(lst !== NULL) { - vals.push(lst.first); - lst = lst.rest; - } - vals.reverse(); - MACHINE.e.splice.apply(MACHINE.e, - [MACHINE.e.length - 1 - depth, 1].concat(vals)); - MACHINE.a = MACHINE.a + vals.length - 1; - }; - - - // Unsplices a list from the MACHINE stack. - Machine.prototype.unspliceRestFromStack = function(depth, length) { - var MACHINE = this; - var lst = NULL; - var i; - for (i = 0; i < length; i++) { - lst = makePair(MACHINE.e[MACHINE.e.length - depth - length + i], - lst); - } - MACHINE.e.splice(MACHINE.e.length - depth - length, - length, - lst); - MACHINE.a = MACHINE.a - length + 1; - }; - - - // Save the continuation mark on the top control frame. - Machine.prototype.installContinuationMarkEntry = function(key, value) { - var frame = this.c[this.c.length - 1]; - var marks = frame.marks; - var i; - for (i = 0; i < marks.length; i++) { - if (key === marks[i][0]) { - marks[i][1] = value; - return; - } - } - marks.push([key, value]); - }; - - - Machine.prototype.captureContinuationMarks = function(promptTag) { - var kvLists = []; - var i; - var control = this.c; - var tracedCalleeKey = getTracedCalleeKey(this); - for (i = control.length-1; i >= 0; i--) { - if (promptTag !== null && - control[i] instanceof PromptFrame && control[i].tag === promptTag) { - break; - } - if (control[i].marks.length !== 0) { - kvLists.push(control[i].marks); - } - - if (tracedCalleeKey !== null && - control[i] instanceof CallFrame && - control[i].p !== null) { - kvLists.push([[tracedCalleeKey, control[i].p]]); - } - } - return new baselib.contmarks.ContinuationMarkSet(kvLists); - }; - - - - - - - ////////////////////////////////////////////////////////////////////// - ////////////////////////////////////////////////////////////////////// - ////////////////////////////////////////////////////////////////////// - ////////////////////////////////////////////////////////////////////// - // The toplevel trampoline. - // - // - // trampoline: MACHINE (MACHINE -> void) -> void - // - // All evaluation in Racketland happens in the context of this - // trampoline. - // - var recomputeMaxNumBouncesBeforeYield; - - var scheduleTrampoline = function(MACHINE, f) { - setTimeout( - function() { - return MACHINE.trampoline(f); - }, - 0); - }; - - // Creates a restarting function, that reschedules f in a context - // with the old argcount in place. - // Meant to be used only by the trampoline. - var makeRestartFunction = function(MACHINE) { - var oldArgcount = MACHINE.a; - return function(f) { - MACHINE.a = oldArgcount; - return scheduleTrampoline(MACHINE, f); - }; - }; - - - // These are exception values that are treated specially in the context - // of the trampoline. - - var HaltError = function(onHalt) { - // onHalt: MACHINE -> void - this.onHalt = onHalt || function(MACHINE) {}; - }; - - - var Pause = function(onPause) { - // onPause: MACHINE -> void - this.onPause = onPause || function(MACHINE) {}; - }; - - var PAUSE = function(onPause) { - throw(new Pause(onPause)); - }; - - - Machine.prototype.trampoline = function(initialJump, noJumpingOff) { - var thunk = initialJump; - var startTime = (new Date()).valueOf(); - this.cbt = STACK_LIMIT_ESTIMATE; - this.params.numBouncesBeforeYield = - this.params.maxNumBouncesBeforeYield; - this.running = true; - - while(true) { - try { - thunk(this); - break; - } catch (e) { - // There are a few kinds of things that can get thrown - // during racket evaluation: - // - // functions: this gets thrown if the Racket code - // realizes that the number of bounces has grown too - // large. The thrown function represents a restarter - // function. The running flag remains true. - // - // Pause: causes the machine evaluation to pause, with - // the expectation that it will restart momentarily. - // The running flag on the machine will remain true. - // - // HaltError: causes evaluation to immediately halt. - // We schedule the onHalt function of the HaltError to - // call afterwards. The running flag on the machine - // is set to false. - // - // Everything else: otherwise, we send the exception value - // to the current error handler and exit. - // The running flag is set to false. - if (typeof(e) === 'function') { - thunk = e; - this.cbt = STACK_LIMIT_ESTIMATE; - - - // If we're running an a model that prohibits - // jumping off the trampoline, continue. - if (noJumpingOff) { - continue; - } - - if (this.params.numBouncesBeforeYield-- < 0) { - recomputeMaxNumBouncesBeforeYield( - this, - (new Date()).valueOf() - startTime); - scheduleTrampoline(this, thunk); - return; - } - } else if (e instanceof Pause) { - var restart = makeRestartFunction(this); - e.onPause(restart); - return; - } else if (e instanceof HaltError) { - this.running = false; - e.onHalt(this); - return; - } else { - // General error condition: just exit out - // of the trampoline and call the current error handler. - this.running = false; - this.params.currentErrorHandler(this, e); - return; - } - } - } - this.running = false; - var that = this; - this.params.currentSuccessHandler(this); - return; - }; - - // recomputeGas: state number -> number - recomputeMaxNumBouncesBeforeYield = function(MACHINE, observedDelay) { - // We'd like to see a delay of DESIRED_DELAY_BETWEEN_BOUNCES so - // that we get MACHINE.params.desiredYieldsPerSecond bounces per - // second. - var DESIRED_DELAY_BETWEEN_BOUNCES = - (1000 / MACHINE.params.desiredYieldsPerSecond); - var ALPHA = 50; - var delta = (ALPHA * ((DESIRED_DELAY_BETWEEN_BOUNCES - - observedDelay) / - DESIRED_DELAY_BETWEEN_BOUNCES)); - MACHINE.params.maxNumBouncesBeforeYield = - Math.max(MACHINE.params.maxNumBouncesBeforeYield + delta, - 1); - }; - - - - - - - - - - - ////////////////////////////////////////////////////////////////////// - ////////////////////////////////////////////////////////////////////// - ////////////////////////////////////////////////////////////////////// - - - - - - - - - - // There is a single, distinguished default continuation prompt tag - // that's used to wrap around toplevel prompts. - var DEFAULT_CONTINUATION_PROMPT_TAG = - baselib.contmarks.DEFAULT_CONTINUATION_PROMPT_TAG; - - - - - - - - - ////////////////////////////////////////////////////////////////////// - ////////////////////////////////////////////////////////////////////// - ////////////////////////////////////////////////////////////////////// - - var VariableReference = function(prefix, pos) { - this.prefix = prefix; - this.pos = pos; - }; - - - - - - - - - ////////////////////////////////////////////////////////////////////// - ////////////////////////////////////////////////////////////////////// - ////////////////////////////////////////////////////////////////////// - - // Implementation of the ready function. This will fire off when - // setReadyTrue is called. - var ready, setReadyTrue, setReadyFalse; - (function() { - var runtimeIsReady = true; - var readyWaiters = []; - var notifyWaiter = function(w) { - w(); - }; - - ready = function(f) { - if (runtimeIsReady) { - notifyWaiter(f); - } else { - readyWaiters.push(f); - } - }; - - setReadyTrue = function() { - runtimeIsReady = true; - while(runtimeIsReady && readyWaiters.length > 0) { - notifyWaiter(readyWaiters.shift()); - } - }; - - setReadyFalse = function() { - runtimeIsReady = false; - }; - - }()); - - - ////////////////////////////////////////////////////////////////////// - ////////////////////////////////////////////////////////////////////// - ////////////////////////////////////////////////////////////////////// - - // Executes all programs that have been labeled as a main module - var invokeMains = function(machine, succ, fail) { - runtime.ready(function () { - if (window.console && window.console.log) { - window.console.log("invoking main modules"); - } - setReadyFalse(); - machine = machine || runtime.currentMachine; - succ = succ || function() {}; - fail = fail || function() {}; - var mainModules = machine.mainModules.slice(); - var loop = function() { - if (mainModules.length > 0) { - var nextModule = mainModules.shift(); - nextModule.invoke(machine, loop, fail); - } else { - setReadyTrue(); - succ(); - } - }; - setTimeout(loop, 0); - }); - }; - - // Looks up a name in any of the machine's main modules. - var lookupInMains = function(name, machine) { - var i; - machine = machine || runtime.currentMachine; - for (i = 0; i < machine.mainModules.length; i++) { - var ns = machine.mainModules[i].getNamespace(); - if(ns.hasOwnProperty(name)) { - return ns[name]; - } - } - }; - - - - var checkClosureAndArity = function(M) { - if(!(M.p instanceof Closure)){ - raiseOperatorIsNotClosure(M,M.p); - } - if(!isArityMatching(M.p.racketArity,M.a)) { - raiseArityMismatchError(M,M.p,M.a); - } - }; - - - - ////////////////////////////////////////////////////////////////////// - // Superinstructions to try to reduce code size. - var si_context_expected = function(n) { - if (n === 1) { return si_context_expected_1; } - var f = function(M) { raiseContextExpectedValuesError(M, n); }; - return f; - }; - var si_context_expected_1 = function(M) { raiseContextExpectedValuesError(M, 1); } - - - - - - - - - ////////////////////////////////////////////////////////////////////// - ////////////////////////////////////////////////////////////////////// - ////////////////////////////////////////////////////////////////////// - - - // Exports - var exports = runtime; - exports['currentMachine'] = new Machine(); - exports['invokeMains'] = invokeMains; - exports['lookupInMains'] = lookupInMains; - - - // installing new primitives - exports['installPrimitiveProcedure'] = installPrimitiveProcedure; - exports['makePrimitiveProcedure'] = makePrimitiveProcedure; - exports['Primitives'] = Primitives; - - exports['ready'] = ready; - // Private: the runtime library will set this flag to true when - // the library has finished loading. - exports['setReadyTrue'] = setReadyTrue; - exports['setReadyFalse'] = setReadyFalse; - - exports['Machine'] = Machine; - exports['Frame'] = Frame; - exports['CallFrame'] = CallFrame; - exports['PromptFrame'] = PromptFrame; - exports['Closure'] = Closure; - exports['ModuleRecord'] = ModuleRecord; - exports['VariableReference'] = VariableReference; - exports['ContinuationPromptTag'] = ContinuationPromptTag; - exports['DEFAULT_CONTINUATION_PROMPT_TAG'] = - DEFAULT_CONTINUATION_PROMPT_TAG; - exports['NULL'] = NULL; - exports['VOID'] = VOID; - - exports['NEGATIVE_ZERO'] = NEGATIVE_ZERO; - exports['INF'] = INF; - exports['NEGATIVE_INF'] = NEGATIVE_INF; - exports['NAN'] = NAN; - - - - - - exports['testArgument'] = testArgument; - exports['testArity'] = testArity; - exports['makeCheckArgumentType'] = makeCheckArgumentType; - - - exports['raise'] = raise; - exports['raiseUnboundToplevelError'] = raiseUnboundToplevelError; - exports['raiseArgumentTypeError'] = raiseArgumentTypeError; - exports['raiseContextExpectedValuesError'] = raiseContextExpectedValuesError; - exports['raiseArityMismatchError'] = raiseArityMismatchError; - exports['raiseOperatorApplicationError'] = raiseOperatorApplicationError; - exports['raiseOperatorIsNotPrimitiveProcedure'] = raiseOperatorIsNotPrimitiveProcedure; - exports['raiseOperatorIsNotClosure'] = raiseOperatorIsNotClosure; - exports['raiseUnimplementedPrimitiveError'] = raiseUnimplementedPrimitiveError; - - - exports['finalizeClosureCall'] = finalizeClosureCall; - - - ////////////////////////////////////////////////////////////////////// - - - // Type constructors - - // numbers - exports['makeList'] = makeList; - exports['makePair'] = makePair; - exports['makeChar'] = makeChar; - exports['makeVector'] = makeVector; - exports['makeBox'] = makeBox; - exports['makeFloat'] = makeFloat; - exports['makeRational'] = makeRational; - exports['makeBignum'] = makeBignum; - exports['makeComplex'] = makeComplex; - exports['makeSymbol'] = makeSymbol; - exports['makePath'] = makePath; - exports['makeBytes'] = makeBytes; - - - exports['checkPair'] = baselib.check.checkPair; - exports['checkNumber'] = baselib.check.checkNumber; - exports['checkString'] = baselib.check.checkString; - - - - // Type predicates - exports['isPair'] = isPair; - exports['isCaarPair'] = isCaarPair; - exports['isList'] = isList; - exports['isVector'] = isVector; - exports['isOutputPort'] = isOutputPort; - exports['isOutputStringPort'] = isOutputStringPort; - exports['isBox'] = isBox; - exports['isString'] = isString; - exports['isSymbol'] = isSymbol; - exports['isPath'] = isPath; - exports['isNumber'] = isNumber; - exports['isNatural'] = isNatural; - exports['isReal'] = isReal; - exports['isProcedure'] = plt.baselib.functions.isProcedure; - exports['equals'] = equals; - - exports['toDomNode'] = toDomNode; - exports['toWrittenString'] = toWrittenString; - exports['toDisplayedString'] = toDisplayedString; - - exports['ArityAtLeast'] = ArityAtLeast; - exports['makeArityAtLeast'] = makeArityAtLeast; - exports['isArityMatching'] = isArityMatching; - - exports['heir'] = heir; - exports['makeClassPredicate'] = makeClassPredicate; - - exports['PAUSE'] = PAUSE; - exports['HaltError'] = HaltError; - - - - exports['makeStructureType'] = makeStructureType; - exports['Struct'] = Struct; - exports['StructType'] = StructType; - - exports['getTracedAppKey'] = getTracedAppKey; - exports['getTracedCalleeKey'] = getTracedCalleeKey; - - exports['si_context_expected'] = si_context_expected; - exports['si_context_expected_1'] = si_context_expected_1; - exports['checkClosureAndArity'] = checkClosureAndArity; - - -}(this.plt, this.plt.baselib)); -(function(M, SUCCESS, FAIL, PARAMS) {(function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _811=function(M){if(--M.cbt<0){throw _811;} -M.e.length-=M.a; -return(_812)(M);}; - -var _1059=function(M){if(--M.cbt<0){throw _1059;} -M.e.length-=M.a; -return(_1060)(M);}; - -var _809=function(M){--M.cbt<0; -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -M.e.splice(M.e.length-(2+6),6); -M.c[M.c.length-1].p=M.p; -return(_809)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=false; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=false; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=false; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-3]; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=false; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1056=function(M){if(--M.cbt<0){throw _1056;} -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_1057,2,[],"length-iter"); -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=10; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -M.e.splice(M.e.length-(2+10),10); -M.c[M.c.length-1].p=M.p; -return(_1057)(M);}else{M.v=9; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=8; -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=7; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=6; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=5; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=4; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=3; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=2; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=1; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=0; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1151=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1057=function(M){if(--M.cbt<0){throw _1057;} -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],0,"add1")); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"add1")); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"add1")); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"add1")); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_1057,2,[],"length-iter"); -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"add1")); -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-2]; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _callCCEntry=function(M){if(--M.cbt<0){throw _callCCEntry;} -M.p=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-1]=M.captureControl(0,RT.DEFAULT_CONTINUATION_PROMPT_TAG); -M.e[M.e.length-2]=M.e.slice(0, M.e.length-3); -M.e[M.e.length-3]=new RT.Closure(_callCCClosureEntry,1,[M.e[M.e.length-2],M.e[M.e.length-1]],"call/cc"); -M.e.length-=2; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+0),0); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1163=function(M){if(--M.cbt<0){throw _1163;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_1157)(M);}; - -var _1014=function(M){if(--M.cbt<0){throw _1014;} -RT.Primitives["assoc"]=RT.Primitives["assoc"]||M.v; -M.c.push(new RT.PromptFrame(_1060,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([]);M.e[M.e.length-1].names=[]; -M.v=new RT.Closure(_1056,1,[],"unknown"); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _969=function(M){if(--M.cbt<0){throw _969;} -RT.Primitives["assv"]=RT.Primitives["assv"]||M.v; -M.c.push(new RT.PromptFrame(_1014,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([]);M.e[M.e.length-1].names=[]; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_1011,2,undefined,"assoc"); -M.e[M.e.length-1].closedVals=[M.e[M.e.length-1]]; -M.v=M.e[M.e.length-1]; -M.e.length-=1; -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _995=function(M){if(--M.cbt<0){throw _995;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.primitives["eqv?"]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"caarpair",RT.isCaarPair,M.e[M.e.length-3],0,"caar")).first.first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1004,M.p)); -return((M.p).label)(M);}else{M.v=false; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _930=function(M){if(--M.cbt<0){throw _930;} -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -M.e.splice(M.e.length-(3+8),8); -M.c[M.c.length-1].p=M.p; -return(_883)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _876=function(M){if(--M.cbt<0){throw _876;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -M.e.splice(M.e.length-(2+6),6); -M.c[M.c.length-1].p=M.p; -return(_838)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _867=function(M){if(--M.cbt<0){throw _867;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.primitives["eqv?"]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_876,M.p)); -return((M.p).label)(M);}else{M.v=false; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _808=function(M){if(--M.cbt<0){throw _808;} -RT.Primitives["caar"]=RT.Primitives["caar"]||M.v; -M.c.push(new RT.PromptFrame(_812,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([]);M.e[M.e.length-1].names=[]; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_809,2,undefined,"memq"); -M.e[M.e.length-1].closedVals=[M.e[M.e.length-1]]; -M.v=M.e[M.e.length-1]; -M.e.length-=1; -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _712=function(M){if(--M.cbt<0){throw _712;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_716,M.p)); -return((M.p).label)(M);}; - -var _704=function(M){if(--M.cbt<0){throw _704;} -M.e[M.e.length-1]=M.v; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-11][1]; -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_622,1,[],"rest-lists"); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_708,M.p)); -return((M.p).label)(M);}; - -var _686=function(M){if(--M.cbt<0){throw _686;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_620,1,[],"some-empty?"); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_692,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -return(_680)(M);}}; - -var _663=function(M){if(--M.cbt<0){throw _663;} -if(M.v===false){M.e.length+=2; -if (M.e[M.e.length-6][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-6].names[0]); } -M.e[M.e.length-2]=M.e[M.e.length-6][0]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_621,1,[],"first-tuple"); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_671,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.primitives["error"]; -M.e[M.e.length-1]=RT.makeSymbol("ormap"); -M.v="all lists must have the same size"; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_667,M.p)); -return((M.p).label)(M);}}; - -var _647=function(M){if(--M.cbt<0){throw _647;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_622,1,[],"rest-lists"); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -M.c.push(new RT.CallFrame(_650,M.p)); -return(_622)(M);}; - -var _598=function(M){if(--M.cbt<0){throw _598;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_592)(M);}; - -var _529=function(M){if(--M.cbt<0){throw _529;} -return(_493)(M);}; - -var _509=function(M){if(--M.cbt<0){throw _509;} -return(_493)(M);}; - -var _492=function(M){if(--M.cbt<0){throw _492;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_432,1,[],"all-empty?"); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_499,M.p)); -return((M.p).label)(M);}; - -var _470=function(M){if(--M.cbt<0){throw _470;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_433,1,[],"some-empty?"); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_476,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -return(_464)(M);}}; - -var _449=function(M){if(--M.cbt<0){throw _449;} -if(M.v===false){M.e.length+=2; -if (M.e[M.e.length-3][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-3].names[0]); } -M.e[M.e.length-2]=M.e[M.e.length-3][0]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_434,1,[],"first-tuple"); -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -M.c.push(new RT.CallFrame(_456,M.p)); -return(_434)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.primitives["error"]; -M.e[M.e.length-1]=RT.makeSymbol("andmap"); -M.v="all lists must have the same size"; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _430=function(M){if(--M.cbt<0){throw _430;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_424)(M);}; - -var _342=function(M){if(--M.cbt<0){throw _342;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_346,M.p)); -return((M.p).label)(M);}; - -var _313=function(M){if(--M.cbt<0){throw _313;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_317,M.p)); -return((M.p).label)(M);}; - -var _284=function(M){if(--M.cbt<0){throw _284;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_288,M.p)); -return((M.p).label)(M);}; - -var _260=function(M){if(--M.cbt<0){throw _260;} -M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_181,1,[],"rest-lists"); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -M.c.push(new RT.CallFrame(_263,M.p)); -return(_181)(M);}; - - -var _94=function(M){if(--M.cbt<0){throw _94;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_98,M.p)); -return((M.p).label)(M);}; - -var _82=function(M){if(--M.cbt<0){throw _82;} -M.e[M.e.length-3]=M.v; -return(_66)(M);}; - -var _61=function(M){if(--M.cbt<0){throw _61;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_6,1,[],"rest-lists"); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_65,M.p)); -return((M.p).label)(M);}; - -var _43=function(M){if(--M.cbt<0){throw _43;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_4,1,[],"some-empty?"); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_49,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_37)(M);}}; - -var _22=function(M){if(--M.cbt<0){throw _22;} -if(M.v===false){M.e.length+=2; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_5,1,[],"first-tuple"); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -M.c.push(new RT.CallFrame(_29,M.p)); -return(_5)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.primitives["error"]; -M.e[M.e.length-1]=RT.makeSymbol("map"); -M.v="all lists must have the same size"; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _779=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1169=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_1166)(M);}; - -var _1175=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_1172)(M);}; - -var _1154=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_1151)(M);}; - -var _1185=function(M){if(--M.cbt<0){throw _1185;} -RT.Primitives["call-with-values"]=RT.Primitives["call-with-values"]||M.v; -RT.Primitives["call/cc"]=RT.Primitives["call/cc"]||new RT.Closure(_callCCEntry,1,[],"call/cc"); -RT.Primitives["call-with-current-continuation"]=RT.Primitives["call-with-current-continuation"]||new RT.Closure(_callCCEntry,1,[],"call/cc"); -RT.Primitives["values"]=RT.Primitives["values"]||new RT.Closure(_1203,(RT.makeArityAtLeast(0)),[],"values"); -RT.Primitives["apply"]=RT.Primitives["apply"]||new RT.Closure(_1207,(RT.makeArityAtLeast(2)),[],"apply"); -}; - -var _1138=function(M){if(--M.cbt<0){throw _1138;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_1117,2,[],"append-2"); -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -M.c.push(new RT.CallFrame(_1147,M.p)); -return(_1117)(M);}else{M.e[M.e.length-3]=M.e[M.e.length-4]; -return(_1142)(M);}}else{M.e[M.e.length-4]=M.e[M.e.length-1]; -M.e.length-=1; -M.e.length-=1; -return(_1129)(M);}}; - -var _1060=function(M){if(--M.cbt<0){throw _1060;} -RT.Primitives["length"]=RT.Primitives["length"]||M.v; -M.c.push(new RT.PromptFrame(_1120,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([]);M.e[M.e.length-1].names=[]; -M.v=new RT.Closure(_1115,(RT.makeArityAtLeast(0)),[],"unknown"); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1031=function(M){if(--M.cbt<0){throw _1031;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.primitives["equal?"]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=(RT.testArgument(M,"caarpair",RT.isCaarPair,M.e[M.e.length-3],0,"caar")).first.first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1040,M.p)); -return((M.p).label)(M);}else{M.v=false; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _986=function(M){if(--M.cbt<0){throw _986;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.primitives["eqv?"]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=(RT.testArgument(M,"caarpair",RT.isCaarPair,M.e[M.e.length-3],0,"caar")).first.first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_995,M.p)); -return((M.p).label)(M);}else{M.v=false; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _921=function(M){if(--M.cbt<0){throw _921;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-7]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_930,M.p)); -return((M.p).label)(M);}else{M.v=false; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _841=function(M){if(--M.cbt<0){throw _841;} -RT.Primitives["memv"]=RT.Primitives["memv"]||M.v; -M.c.push(new RT.PromptFrame(_886,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([]);M.e[M.e.length-1].names=[]; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_883,3,undefined,"memf"); -M.e[M.e.length-1].closedVals=[M.e[M.e.length-1]]; -M.v=M.e[M.e.length-1]; -M.e.length-=1; -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _858=function(M){if(--M.cbt<0){throw _858;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.primitives["eqv?"]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_867,M.p)); -return((M.p).label)(M);}else{M.v=false; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _800=function(M){if(--M.cbt<0){throw _800;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_794)(M);}; - -var _625=function(M){if(--M.cbt<0){throw _625;} -M.e.length-=M.a; -return(_626)(M);}; - -var _700=function(M){if(--M.cbt<0){throw _700;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_704,M.p)); -return((M.p).label)(M);}; - -var _679=function(M){if(--M.cbt<0){throw _679;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_619,1,[],"all-empty?"); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_686,M.p)); -return((M.p).label)(M);}; - -var _657=function(M){if(--M.cbt<0){throw _657;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_620,1,[],"some-empty?"); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_663,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -return(_651)(M);}}; - -var _643=function(M){if(--M.cbt<0){throw _643;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_647,M.p)); -return((M.p).label)(M);}; - -var _533=function(M){if(--M.cbt<0){throw _533;} -return(_464)(M);}; - -var _525=function(M){if(--M.cbt<0){throw _525;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_529,M.p)); -return((M.p).label)(M);}; - -var _505=function(M){if(--M.cbt<0){throw _505;} -if(M.v===false){M.e.length+=2; -if (M.e[M.e.length-9][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-9].names[0]); } -M.e[M.e.length-2]=M.e[M.e.length-9][0]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_434,1,[],"first-tuple"); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_513,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.primitives["error"]; -M.e[M.e.length-1]=RT.makeSymbol("andmap"); -M.v="all lists must have the same size"; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_509,M.p)); -return((M.p).label)(M);}}; - -var _488=function(M){if(--M.cbt<0){throw _488;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_435,1,[],"rest-lists"); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_492,M.p)); -return((M.p).label)(M);}; - -var _463=function(M){if(--M.cbt<0){throw _463;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_432,1,[],"all-empty?"); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_470,M.p)); -return((M.p).label)(M);}; - -var _444=function(M){if(--M.cbt<0){throw _444;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_433,1,[],"some-empty?"); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -M.c.push(new RT.CallFrame(_449,M.p)); -return(_433)(M);}else{M.v=RT.NULL; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _415=function(M){if(--M.cbt<0){throw _415;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_409)(M);}; - -var _334=function(M){if(--M.cbt<0){throw _334;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_180,1,[],"first-tuple"); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_342,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.primitives["error"]; -M.e[M.e.length-1]=RT.makeSymbol("for-each"); -M.v="all lists must have the same size"; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _299=function(M){if(--M.cbt<0){throw _299;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_179,1,[],"some-empty?"); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_305,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _288=function(M){if(--M.cbt<0){throw _288;} -M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_181,1,[],"rest-lists"); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_292,M.p)); -return((M.p).label)(M);}; - -var _270=function(M){if(--M.cbt<0){throw _270;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_179,1,[],"some-empty?"); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_276,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _214=function(M){if(--M.cbt<0){throw _214;} -return(_207)(M);}; - - - -var _618=function(M){if(--M.cbt<0){throw _618;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_619,1,[],"all-empty?"); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -M.c.push(new RT.CallFrame(_631,M.p)); -return(_619)(M);}; - -var _36=function(M){if(--M.cbt<0){throw _36;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_3,1,[],"all-empty?"); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_43,M.p)); -return((M.p).label)(M);}; - -var _622=function(M){if(--M.cbt<0){throw _622;} -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_622,1,[],"rest-lists"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_800,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_794)(M);}}else{M.e[M.e.length-3]=RT.NULL; -return(_791)(M);}}else{M.e[M.e.length-3]=RT.NULL; -return(_788)(M);}}else{M.v=RT.NULL; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _621=function(M){if(--M.cbt<0){throw _621;} -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_621,1,[],"first-tuple"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_785,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_779)(M);}}else{M.e[M.e.length-3]=RT.NULL; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e[M.e.length-3]=RT.NULL; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=RT.NULL; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _620=function(M){if(--M.cbt<0){throw _620;} -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_620,1,[],"some-empty?"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=true; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=false; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=true; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=false; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=true; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=false; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=true; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=false; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _619=function(M){if(--M.cbt<0){throw _619;} -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.v=false; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.v=false; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.v=false; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.v=false; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_619,1,[],"all-empty?"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=true; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=true; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=true; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=true; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _651=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _680=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_720,M.p)); -return((M.p).label)(M);}; - -var _1013=function(M){if(--M.cbt<0){throw _1013;} -M.e.length-=M.a; -return(_1014)(M);}; - - - - - -var _1011=function(M){--M.cbt<0; -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.primitives["equal?"]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=(RT.testArgument(M,"caarpair",RT.isCaarPair,M.e[M.e.length-5],0,"caar")).first.first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1022,M.p)); -return((M.p).label)(M);}else{M.v=false; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1129=function(M){--M.cbt<0; -M.e.length-=1; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_1117,2,[],"append-2"); -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=M.e[M.e.length-14]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1163,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=M.e[M.e.length-10]; -return(_1157)(M);}}else{M.e[M.e.length-3]=M.e[M.e.length-7]; -return(_1154)(M);}}else{M.e[M.e.length-3]=M.e[M.e.length-4]; -return(_1151)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1203=function(M){if(--M.cbt<0){throw _1203;} -if(M.a===1){M.v=M.e[M.e.length-1]; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{if(M.a===0){M.p=(M.c[M.c.length-1].label.mvr||RT.si_context_expected_1); -M.c.pop(); -return(M.p)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=1; -M.p=(M.c[M.c.length-1].label.mvr||RT.si_context_expected_1); -M.c.pop(); -return(M.p)(M);}}}; - -var _1191=function(M){if(--M.cbt<0){throw _1191;} -M.a=1; -return(_1189)(M);}; - -var _1181=function(M){if(--M.cbt<0){throw _1181;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_1175)(M);}; - -var _1040=function(M){if(--M.cbt<0){throw _1040;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.primitives["equal?"]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"caarpair",RT.isCaarPair,M.e[M.e.length-3],0,"caar")).first.first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1049,M.p)); -return((M.p).label)(M);}else{M.v=false; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1004=function(M){if(--M.cbt<0){throw _1004;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -M.e.splice(M.e.length-(2+6),6); -M.c[M.c.length-1].p=M.p; -return(_966)(M);}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _977=function(M){if(--M.cbt<0){throw _977;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.primitives["eqv?"]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=(RT.testArgument(M,"caarpair",RT.isCaarPair,M.e[M.e.length-3],0,"caar")).first.first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_986,M.p)); -return((M.p).label)(M);}else{M.v=false; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _912=function(M){if(--M.cbt<0){throw _912;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-6]); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_921,M.p)); -return((M.p).label)(M);}else{M.v=false; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - -var _849=function(M){if(--M.cbt<0){throw _849;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.primitives["eqv?"]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_858,M.p)); -return((M.p).label)(M);}else{M.v=false; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-3]; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _785=function(M){if(--M.cbt<0){throw _785;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_779)(M);}; - -var _708=function(M){if(--M.cbt<0){throw _708;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_712,M.p)); -return((M.p).label)(M);}; - -var _696=function(M){if(--M.cbt<0){throw _696;} -return(_680)(M);}; - -var _675=function(M){if(--M.cbt<0){throw _675;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_622,1,[],"rest-lists"); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_679,M.p)); -return((M.p).label)(M);}; - -var _650=function(M){if(--M.cbt<0){throw _650;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_619,1,[],"all-empty?"); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_657,M.p)); -return((M.p).label)(M);}; - -var _636=function(M){if(--M.cbt<0){throw _636;} -if(M.v===false){M.e.length+=2; -if (M.e[M.e.length-3][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-3].names[0]); } -M.e[M.e.length-2]=M.e[M.e.length-3][0]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_621,1,[],"first-tuple"); -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -M.c.push(new RT.CallFrame(_643,M.p)); -return(_621)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.primitives["error"]; -M.e[M.e.length-1]=RT.makeSymbol("ormap"); -M.v="all lists must have the same size"; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _439=function(M){if(--M.cbt<0){throw _439;} -RT.Primitives["andmap"]=RT.Primitives["andmap"]||M.v; -M.c.push(new RT.PromptFrame(_626,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([M.primitives["or"],false]);M.e[M.e.length-1].names=["or",false]; -M.v=new RT.Closure(_618,2,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][1]=M.v; -M.v=new RT.Closure(_623,(RT.makeArityAtLeast(1)),[M.e[M.e.length-1]],"unknown"); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _521=function(M){if(--M.cbt<0){throw _521;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_525,M.p)); -return((M.p).label)(M);}; - -var _499=function(M){if(--M.cbt<0){throw _499;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_433,1,[],"some-empty?"); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_505,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -return(_493)(M);}}; - -var _484=function(M){if(--M.cbt<0){throw _484;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_488,M.p)); -return((M.p).label)(M);}; - -var _460=function(M){if(--M.cbt<0){throw _460;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_435,1,[],"rest-lists"); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -M.c.push(new RT.CallFrame(_463,M.p)); -return(_435)(M);}; - -var _456=function(M){if(--M.cbt<0){throw _456;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_460,M.p)); -return((M.p).label)(M);}; - -var _350=function(M){if(--M.cbt<0){throw _350;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _328=function(M){if(--M.cbt<0){throw _328;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_179,1,[],"some-empty?"); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_334,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _305=function(M){if(--M.cbt<0){throw _305;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_180,1,[],"first-tuple"); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_313,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.primitives["error"]; -M.e[M.e.length-1]=RT.makeSymbol("for-each"); -M.v="all lists must have the same size"; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _276=function(M){if(--M.cbt<0){throw _276;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_180,1,[],"first-tuple"); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_284,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.primitives["error"]; -M.e[M.e.length-1]=RT.makeSymbol("for-each"); -M.v="all lists must have the same size"; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _256=function(M){if(--M.cbt<0){throw _256;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_251)(M);}; - -var _174=function(M){if(--M.cbt<0){throw _174;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_168)(M);}; - -var _90=function(M){if(--M.cbt<0){throw _90;} -M.e[M.e.length-1]=M.v; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_2,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_6,1,[],"rest-lists"); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_94,M.p)); -return((M.p).label)(M);}; - -var _78=function(M){if(--M.cbt<0){throw _78;} -if(M.v===false){M.e.length+=2; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_5,1,[],"first-tuple"); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_86,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-7]; -M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["error"]; -M.e[M.e.length-1]=RT.makeSymbol("map"); -M.v="all lists must have the same size"; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_82,M.p)); -return((M.p).label)(M);}}; - -var _57=function(M){if(--M.cbt<0){throw _57;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_61,M.p)); -return((M.p).label)(M);}; - -var _49=function(M){if(--M.cbt<0){throw _49;} -if(M.v===false){M.e.length+=2; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_5,1,[],"first-tuple"); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_57,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-4]; -M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["error"]; -M.e[M.e.length-1]=RT.makeSymbol("map"); -M.v="all lists must have the same size"; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_53,M.p)); -return((M.p).label)(M);}}; - -var _17=function(M){if(--M.cbt<0){throw _17;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_4,1,[],"some-empty?"); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -M.c.push(new RT.CallFrame(_22,M.p)); -return(_4)(M);}else{M.v=RT.NULL; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1187=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1119=function(M){if(--M.cbt<0){throw _1119;} -M.e.length-=M.a; -return(_1120)(M);}; - -var _345=function(M){if(--M.cbt<0){throw _345;} -M.e.length-=(M.a-1); -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_177,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_181,1,[],"rest-lists"); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_350,M.p)); -return((M.p).label)(M);}; - -var _1166=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1172=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_1169)(M);}; - -var _316=function(M){if(--M.cbt<0){throw _316;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_181,1,[],"rest-lists"); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_321,M.p)); -return((M.p).label)(M);}; - -var _8=function(M){if(--M.cbt<0){throw _8;} -M.e.length-=M.a; -return(_9)(M);}; - -var _1157=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_1154)(M);}; - -var _1212=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_9,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([]);M.e[M.e.length-1].names=[]; -M.v=new RT.Closure(_1,(RT.makeArityAtLeast(1)),[],"unknown"); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1207=function(M){if(--M.cbt<0){throw _1207;} -M.p=M.e[M.e.length-1]; -M.e.length-=1; -M.a=(M.a-1); -M.spliceListIntoStack((M.a-1)); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+0),0); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _callCCClosureEntry=function(M){if(--M.cbt<0){throw _callCCClosureEntry;} -M.v=M.e[M.e.length-1]; -M.e.push.apply(M.e,M.p.closedVals); -M.restoreControl(RT.DEFAULT_CONTINUATION_PROMPT_TAG); -M.e=M.e[M.e.length-2].slice(0); -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1120=function(M){if(--M.cbt<0){throw _1120;} -RT.Primitives["append"]=RT.Primitives["append"]||M.v; -M.c.push(new RT.PromptFrame(_1185,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([]);M.e[M.e.length-1].names=[]; -M.v=new RT.Closure(_1182,2,[],"unknown"); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1147=function(M){if(--M.cbt<0){throw _1147;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_1142)(M);}; - -var _1049=function(M){if(--M.cbt<0){throw _1049;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -M.e.splice(M.e.length-(2+6),6); -M.c[M.c.length-1].p=M.p; -return(_1011)(M);}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1022=function(M){if(--M.cbt<0){throw _1022;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.primitives["equal?"]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=(RT.testArgument(M,"caarpair",RT.isCaarPair,M.e[M.e.length-3],0,"caar")).first.first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1031,M.p)); -return((M.p).label)(M);}else{M.v=false; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _940=function(M){if(--M.cbt<0){throw _940;} -RT.Primitives["assq"]=RT.Primitives["assq"]||M.v; -M.c.push(new RT.PromptFrame(_969,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([]);M.e[M.e.length-1].names=[]; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_966,2,undefined,"assv"); -M.e[M.e.length-1].closedVals=[M.e[M.e.length-1]]; -M.v=M.e[M.e.length-1]; -M.e.length-=1; -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _886=function(M){if(--M.cbt<0){throw _886;} -RT.Primitives["memf"]=RT.Primitives["memf"]||M.v; -M.c.push(new RT.PromptFrame(_940,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([]);M.e[M.e.length-1].names=[]; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_937,2,undefined,"assq"); -M.e[M.e.length-1].closedVals=[M.e[M.e.length-1]]; -M.v=M.e[M.e.length-1]; -M.e.length-=1; -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _175=function(M){if(--M.cbt<0){throw _175;} -M.unspliceRestFromStack(1,(M.a-1)); -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_176,2,[],"do-it"); -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -M.e.splice(M.e.length-(2+2),2); -M.c[M.c.length-1].p=M.p; -return(_176)(M);}; - -var _812=function(M){if(--M.cbt<0){throw _812;} -RT.Primitives["memq"]=RT.Primitives["memq"]||M.v; -M.c.push(new RT.PromptFrame(_841,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([]);M.e[M.e.length-1].names=[]; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_838,2,undefined,"memv"); -M.e[M.e.length-1].closedVals=[M.e[M.e.length-1]]; -M.v=M.e[M.e.length-1]; -M.e.length-=1; -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _626=function(M){if(--M.cbt<0){throw _626;} -RT.Primitives["ormap"]=RT.Primitives["ormap"]||M.v; -M.c.push(new RT.PromptFrame(_808,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([]);M.e[M.e.length-1].names=[]; -M.v=new RT.Closure(_805,1,[],"unknown"); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _65=function(M){if(--M.cbt<0){throw _65;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_3,1,[],"all-empty?"); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_72,M.p)); -return((M.p).label)(M);}; - -var _692=function(M){if(--M.cbt<0){throw _692;} -if(M.v===false){M.e.length+=2; -if (M.e[M.e.length-9][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-9].names[0]); } -M.e[M.e.length-2]=M.e[M.e.length-9][0]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_621,1,[],"first-tuple"); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_700,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.primitives["error"]; -M.e[M.e.length-1]=RT.makeSymbol("ormap"); -M.v="all lists must have the same size"; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_696,M.p)); -return((M.p).label)(M);}}; - -var _671=function(M){if(--M.cbt<0){throw _671;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_675,M.p)); -return((M.p).label)(M);}; - - -var _631=function(M){if(--M.cbt<0){throw _631;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_620,1,[],"some-empty?"); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -M.c.push(new RT.CallFrame(_636,M.p)); -return(_620)(M);}else{M.v=RT.NULL; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _613=function(M){if(--M.cbt<0){throw _613;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_607)(M);}; - -var _517=function(M){if(--M.cbt<0){throw _517;} -M.e[M.e.length-1]=M.v; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-11][1]; -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_435,1,[],"rest-lists"); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_521,M.p)); -return((M.p).label)(M);}; - -var _513=function(M){if(--M.cbt<0){throw _513;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_517,M.p)); -return((M.p).label)(M);}; - -var _480=function(M){if(--M.cbt<0){throw _480;} -return(_464)(M);}; - -var _476=function(M){if(--M.cbt<0){throw _476;} -if(M.v===false){M.e.length+=2; -if (M.e[M.e.length-6][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-6].names[0]); } -M.e[M.e.length-2]=M.e[M.e.length-6][0]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_434,1,[],"first-tuple"); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_484,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.primitives["error"]; -M.e[M.e.length-1]=RT.makeSymbol("andmap"); -M.v="all lists must have the same size"; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_480,M.p)); -return((M.p).label)(M);}}; - -var _184=function(M){if(--M.cbt<0){throw _184;} -RT.Primitives["for-each"]=RT.Primitives["for-each"]||M.v; -M.c.push(new RT.PromptFrame(_439,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([M.primitives["and"],false]);M.e[M.e.length-1].names=["and",false]; -M.v=new RT.Closure(_431,2,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][1]=M.v; -M.v=new RT.Closure(_436,(RT.makeArityAtLeast(1)),[M.e[M.e.length-1]],"unknown"); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _346=function(M){if(--M.cbt<0){throw _346;} -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_177,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_181,1,[],"rest-lists"); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_350,M.p)); -return((M.p).label)(M);}; - -var _321=function(M){if(--M.cbt<0){throw _321;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_178,1,[],"all-empty?"); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_328,M.p)); -return((M.p).label)(M);}; - -var _317=function(M){if(--M.cbt<0){throw _317;} -M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_181,1,[],"rest-lists"); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_321,M.p)); -return((M.p).label)(M);}; - -var _292=function(M){if(--M.cbt<0){throw _292;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_178,1,[],"all-empty?"); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_299,M.p)); -return((M.p).label)(M);}; - -var _263=function(M){if(--M.cbt<0){throw _263;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_178,1,[],"all-empty?"); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_270,M.p)); -return((M.p).label)(M);}; - -var _238=function(M){if(--M.cbt<0){throw _238;} -return(_231)(M);}; - -var _159=function(M){if(--M.cbt<0){throw _159;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_153)(M);}; - -var _72=function(M){if(--M.cbt<0){throw _72;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_4,1,[],"some-empty?"); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_78,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_66)(M);}}; - -var _53=function(M){if(--M.cbt<0){throw _53;} -M.e[M.e.length-3]=M.v; -return(_37)(M);}; - -var _33=function(M){if(--M.cbt<0){throw _33;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_6,1,[],"rest-lists"); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -M.c.push(new RT.CallFrame(_36,M.p)); -return(_6)(M);}; - -var _29=function(M){if(--M.cbt<0){throw _29;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_33,M.p)); -return((M.p).label)(M);}; - -var _1184=function(M){if(--M.cbt<0){throw _1184;} -M.e.length-=M.a; -return(_1185)(M);}; - -var _1182=function(M){if(--M.cbt<0){throw _1182;} -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1191,M.p)); -return((M.p).label)(M);}; - -var _1189=function(M){if(--M.cbt<0){throw _1189;} -if(M.a===0){return(_1187)(M);}else{M.e.push(M.v); -return(_1187)(M);}}; - -var _183=function(M){if(--M.cbt<0){throw _183;} -M.e.length-=M.a; -return(_184)(M);}; - - - - - -var _1116=function(M){if(--M.cbt<0){throw _1116;} -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_1116,1,[],"append-many"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1138,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -return(_1129)(M);}}else{M.e[M.e.length-2]=RT.NULL; -return(_1129)(M);}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=RT.NULL; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1115=function(M){if(--M.cbt<0){throw _1115;} -M.unspliceRestFromStack(0,M.a); -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_1116,1,[],"append-many"); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -M.e.splice(M.e.length-(1+1),1); -M.c[M.c.length-1].p=M.p; -return(_1116)(M);}; - - -var _1117=function(M){if(--M.cbt<0){throw _1117;} -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_1117,2,[],"append-2"); -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=M.e[M.e.length-18]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1181,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=M.e[M.e.length-14]; -return(_1175)(M);}}else{M.e[M.e.length-3]=M.e[M.e.length-11]; -return(_1172)(M);}}else{M.e[M.e.length-3]=M.e[M.e.length-8]; -return(_1169)(M);}}else{M.e[M.e.length-3]=M.e[M.e.length-5]; -return(_1166)(M);}}else{M.v=M.e[M.e.length-2]; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - -var _287=function(M){if(--M.cbt<0){throw _287;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_181,1,[],"rest-lists"); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_292,M.p)); -return((M.p).label)(M);}; - -var _1142=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.length-=1; -M.e.length-=1; -return(_1129)(M);}; - - - - -var _231=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.e.length-=1; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_180,1,[],"first-tuple"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -M.c.push(new RT.CallFrame(_256,M.p)); -return(_180)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_251)(M);}}else{M.e[M.e.length-3]=RT.NULL; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_260,M.p)); -return((M.p).label)(M);}}else{M.e[M.e.length-3]=RT.NULL; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_260,M.p)); -return((M.p).label)(M);}}else{M.v=RT.NULL; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_260,M.p)); -return((M.p).label)(M);}}else{M.e.length+=2; -M.e[M.e.length-2]=M.primitives["error"]; -M.e[M.e.length-1]=RT.makeSymbol("for-each"); -M.v="all lists must have the same size"; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _177=function(M){if(--M.cbt<0){throw _177;} -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.v=false; -return(_194)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.v=false; -return(_197)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.v=false; -return(_202)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.v=false; -return(_207)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_178,1,[],"all-empty?"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -M.c.push(new RT.CallFrame(_214,M.p)); -return(_178)(M);}}else{M.v=true; -return(_207)(M);}}}else{M.v=true; -return(_202)(M);}}}else{M.v=true; -return(_197)(M);}}}else{M.v=true; -return(_194)(M);}}; - -var _418=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _424=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_421)(M);}; - - -var _406=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_403)(M);}; - -var _1=function(M){if(--M.cbt<0){throw _1;} -M.unspliceRestFromStack(1,(M.a-1)); -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_2,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -M.e.splice(M.e.length-(2+2),2); -M.c[M.c.length-1].p=M.p; -return(_2)(M);}; - -var _168=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_165)(M);}; - -var _147=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _150=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_147)(M);}; - -var _37=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _194=function(M){--M.cbt<0; -if(M.v===false){M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_179,1,[],"some-empty?"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -M.c.push(new RT.CallFrame(_238,M.p)); -return(_179)(M);}else{M.v=true; -return(_231)(M);}}else{M.v=false; -return(_231)(M);}}else{M.v=true; -M.e.length-=1; -M.e.length-=1; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_180,1,[],"first-tuple"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -M.c.push(new RT.CallFrame(_256,M.p)); -return(_180)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_251)(M);}}else{M.e[M.e.length-3]=RT.NULL; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_260,M.p)); -return((M.p).label)(M);}}else{M.e[M.e.length-3]=RT.NULL; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_260,M.p)); -return((M.p).label)(M);}}else{M.v=RT.NULL; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_260,M.p)); -return((M.p).label)(M);}}else{M.e.length+=2; -M.e[M.e.length-2]=M.primitives["error"]; -M.e[M.e.length-1]=RT.makeSymbol("for-each"); -M.v="all lists must have the same size"; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}else{M.v=false; -M.e.length-=1; -M.e.length-=1; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_180,1,[],"first-tuple"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -M.c.push(new RT.CallFrame(_256,M.p)); -return(_180)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_251)(M);}}else{M.e[M.e.length-3]=RT.NULL; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_260,M.p)); -return((M.p).label)(M);}}else{M.e[M.e.length-3]=RT.NULL; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_260,M.p)); -return((M.p).label)(M);}}else{M.v=RT.NULL; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_260,M.p)); -return((M.p).label)(M);}}else{M.e.length+=2; -M.e[M.e.length-2]=M.primitives["error"]; -M.e[M.e.length-1]=RT.makeSymbol("for-each"); -M.v="all lists must have the same size"; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}else{M.v=true; -M.e.length-=1; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_180,1,[],"first-tuple"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -M.c.push(new RT.CallFrame(_256,M.p)); -return(_180)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_251)(M);}}else{M.e[M.e.length-3]=RT.NULL; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_260,M.p)); -return((M.p).label)(M);}}else{M.e[M.e.length-3]=RT.NULL; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_260,M.p)); -return((M.p).label)(M);}}else{M.v=RT.NULL; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_260,M.p)); -return((M.p).label)(M);}}else{M.e.length+=2; -M.e[M.e.length-2]=M.primitives["error"]; -M.e[M.e.length-1]=RT.makeSymbol("for-each"); -M.v="all lists must have the same size"; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}else{M.v=false; -M.e.length-=1; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_180,1,[],"first-tuple"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -M.c.push(new RT.CallFrame(_256,M.p)); -return(_180)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_251)(M);}}else{M.e[M.e.length-3]=RT.NULL; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_260,M.p)); -return((M.p).label)(M);}}else{M.e[M.e.length-3]=RT.NULL; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_260,M.p)); -return((M.p).label)(M);}}else{M.v=RT.NULL; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_260,M.p)); -return((M.p).label)(M);}}else{M.e.length+=2; -M.e[M.e.length-2]=M.primitives["error"]; -M.e[M.e.length-1]=RT.makeSymbol("for-each"); -M.v="all lists must have the same size"; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}else{M.v=true; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_180,1,[],"first-tuple"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -M.c.push(new RT.CallFrame(_256,M.p)); -return(_180)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_251)(M);}}else{M.e[M.e.length-3]=RT.NULL; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_260,M.p)); -return((M.p).label)(M);}}else{M.e[M.e.length-3]=RT.NULL; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_260,M.p)); -return((M.p).label)(M);}}else{M.v=RT.NULL; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_260,M.p)); -return((M.p).label)(M);}}else{M.e.length+=2; -M.e[M.e.length-2]=M.primitives["error"]; -M.e[M.e.length-1]=RT.makeSymbol("for-each"); -M.v="all lists must have the same size"; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}else{M.v=false; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_180,1,[],"first-tuple"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -M.c.push(new RT.CallFrame(_256,M.p)); -return(_180)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_251)(M);}}else{M.e[M.e.length-3]=RT.NULL; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_260,M.p)); -return((M.p).label)(M);}}else{M.e[M.e.length-3]=RT.NULL; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_260,M.p)); -return((M.p).label)(M);}}else{M.v=RT.NULL; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_260,M.p)); -return((M.p).label)(M);}}else{M.e.length+=2; -M.e[M.e.length-2]=M.primitives["error"]; -M.e[M.e.length-1]=RT.makeSymbol("for-each"); -M.v="all lists must have the same size"; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}else{M.v=RT.NULL; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _197=function(M){--M.cbt<0; -M.e.length-=1; -return(_194)(M);}; - -var _939=function(M){if(--M.cbt<0){throw _939;} -M.e.length-=M.a; -return(_940)(M);}; - -var _937=function(M){--M.cbt<0; -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e[M.e.length-2]=(RT.testArgument(M,"caarpair",RT.isCaarPair,M.e[M.e.length-5],0,"caar")).first.first; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]=(RT.testArgument(M,"caarpair",RT.isCaarPair,M.e[M.e.length-3],0,"caar")).first.first; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=(RT.testArgument(M,"caarpair",RT.isCaarPair,M.e[M.e.length-3],0,"caar")).first.first; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=(RT.testArgument(M,"caarpair",RT.isCaarPair,M.e[M.e.length-3],0,"caar")).first.first; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -M.e.splice(M.e.length-(2+6),6); -M.c[M.c.length-1].p=M.p; -return(_937)(M);}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=false; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=false; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=false; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=false; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - - - - - - - - - - - - -var _259=function(M){if(--M.cbt<0){throw _259;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_181,1,[],"rest-lists"); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -M.c.push(new RT.CallFrame(_263,M.p)); -return(_181)(M);}; - - - - - - -var _176=function(M){if(--M.cbt<0){throw _176;} -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_177,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -M.e.splice(M.e.length-(2+2),2); -M.c[M.c.length-1].p=M.p; -return(_177)(M);}; - - - -var _181=function(M){if(--M.cbt<0){throw _181;} -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_181,1,[],"rest-lists"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_430,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_424)(M);}}else{M.e[M.e.length-3]=RT.NULL; -return(_421)(M);}}else{M.e[M.e.length-3]=RT.NULL; -return(_418)(M);}}else{M.v=RT.NULL; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _409=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_406)(M);}; - -var _180=function(M){if(--M.cbt<0){throw _180;} -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_180,1,[],"first-tuple"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_415,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_409)(M);}}else{M.e[M.e.length-3]=RT.NULL; -return(_406)(M);}}else{M.e[M.e.length-3]=RT.NULL; -return(_403)(M);}}else{M.v=RT.NULL; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _2=function(M){if(--M.cbt<0){throw _2;} -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_3,1,[],"all-empty?"); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -M.c.push(new RT.CallFrame(_17,M.p)); -return(_3)(M);}; - -var _179=function(M){if(--M.cbt<0){throw _179;} -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_179,1,[],"some-empty?"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=true; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=false; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=true; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=false; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=true; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=false; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=true; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=false; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - -var _153=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_150)(M);}; - -var _178=function(M){if(--M.cbt<0){throw _178;} -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.v=false; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.v=false; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.v=false; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.v=false; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_178,1,[],"all-empty?"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=true; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=true; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=true; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=true; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _251=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_260,M.p)); -return((M.p).label)(M);}; - -var _3=function(M){if(--M.cbt<0){throw _3;} -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.v=false; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.v=false; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.v=false; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.v=false; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_3,1,[],"all-empty?"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=true; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=true; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=true; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=true; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _66=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_37)(M);}; - -var _202=function(M){--M.cbt<0; -M.e.length-=1; -return(_197)(M);}; - -var _207=function(M){--M.cbt<0; -M.e.length-=1; -return(_202)(M);}; - -var _807=function(M){if(--M.cbt<0){throw _807;} -M.e.length-=M.a; -return(_808)(M);}; - -var _403=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - - -var _885=function(M){if(--M.cbt<0){throw _885;} -M.e.length-=M.a; -return(_886)(M);}; - - - - - -var _883=function(M){--M.cbt<0; -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_894,M.p)); -return((M.p).label)(M);}else{M.v=false; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - - - - - - - - - - -var _162=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - -var _6=function(M){if(--M.cbt<0){throw _6;} -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_6,1,[],"rest-lists"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_174,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_168)(M);}}else{M.e[M.e.length-3]=RT.NULL; -return(_165)(M);}}else{M.e[M.e.length-3]=RT.NULL; -return(_162)(M);}}else{M.v=RT.NULL; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _838=function(M){--M.cbt<0; -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.primitives["eqv?"]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_849,M.p)); -return((M.p).label)(M);}else{M.v=false; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _5=function(M){if(--M.cbt<0){throw _5;} -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_5,1,[],"first-tuple"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_159,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_153)(M);}}else{M.e[M.e.length-3]=RT.NULL; -return(_150)(M);}}else{M.e[M.e.length-3]=RT.NULL; -return(_147)(M);}}else{M.v=RT.NULL; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4=function(M){if(--M.cbt<0){throw _4;} -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_4,1,[],"some-empty?"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=true; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=false; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=true; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=false; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=true; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=false; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=true; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=false; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - - - - - - - - - -var _601=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _604=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_601)(M);}; - -var _586=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _589=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_586)(M);}; - -var _805=function(M){if(--M.cbt<0){throw _805;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _464=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _903=function(M){if(--M.cbt<0){throw _903;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-5]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_912,M.p)); -return((M.p).label)(M);}else{M.v=false; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _720=function(M){if(--M.cbt<0){throw _720;} -return(_651)(M);}; - -var _968=function(M){if(--M.cbt<0){throw _968;} -M.e.length-=M.a; -return(_969)(M);}; - -var _165=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_162)(M);}; - - - - - - - - - -var _9=function(M){if(--M.cbt<0){throw _9;} -RT.Primitives["map"]=RT.Primitives["map"]||M.v; -M.c.push(new RT.PromptFrame(_184,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([]);M.e[M.e.length-1].names=[]; -M.v=new RT.Closure(_175,(RT.makeArityAtLeast(1)),[],"unknown"); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - -var _788=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _840=function(M){if(--M.cbt<0){throw _840;} -M.e.length-=M.a; -return(_841)(M);}; - - - -var _438=function(M){if(--M.cbt<0){throw _438;} -M.e.length-=M.a; -return(_439)(M);}; - - - - - - - - - - - - - - -var _431=function(M){if(--M.cbt<0){throw _431;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_432,1,[],"all-empty?"); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -M.c.push(new RT.CallFrame(_444,M.p)); -return(_432)(M);}; - -var _436=function(M){if(--M.cbt<0){throw _436;} -M.unspliceRestFromStack(1,(M.a-1)); -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][1]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _607=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_604)(M);}; - -var _435=function(M){if(--M.cbt<0){throw _435;} -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_435,1,[],"rest-lists"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_613,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_607)(M);}}else{M.e[M.e.length-3]=RT.NULL; -return(_604)(M);}}else{M.e[M.e.length-3]=RT.NULL; -return(_601)(M);}}else{M.v=RT.NULL; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _592=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_589)(M);}; - -var _434=function(M){if(--M.cbt<0){throw _434;} -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_434,1,[],"first-tuple"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_598,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_592)(M);}}else{M.e[M.e.length-3]=RT.NULL; -return(_589)(M);}}else{M.e[M.e.length-3]=RT.NULL; -return(_586)(M);}}else{M.v=RT.NULL; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _433=function(M){if(--M.cbt<0){throw _433;} -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_433,1,[],"some-empty?"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=true; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=false; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=true; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=false; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=true; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=false; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=true; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=false; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - -var _432=function(M){if(--M.cbt<0){throw _432;} -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.v=false; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.v=false; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.v=false; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.v=false; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_432,1,[],"all-empty?"); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=true; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=true; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=true; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=true; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _493=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_533,M.p)); -return((M.p).label)(M);}; - -var _894=function(M){if(--M.cbt<0){throw _894;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-4]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_903,M.p)); -return((M.p).label)(M);}else{M.v=false; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-4]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _421=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_418)(M);}; - -var _716=function(M){if(--M.cbt<0){throw _716;} -return(_680)(M);}; - - - -var _667=function(M){if(--M.cbt<0){throw _667;} -return(_651)(M);}; - - - -var _966=function(M){--M.cbt<0; -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.primitives["eqv?"]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=(RT.testArgument(M,"caarpair",RT.isCaarPair,M.e[M.e.length-5],0,"caar")).first.first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_977,M.p)); -return((M.p).label)(M);}else{M.v=false; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - - - - - - - - - -var _98=function(M){if(--M.cbt<0){throw _98;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_66)(M);}; - -var _86=function(M){if(--M.cbt<0){throw _86;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_90,M.p)); -return((M.p).label)(M);}; - -var _623=function(M){if(--M.cbt<0){throw _623;} -M.unspliceRestFromStack(1,(M.a-1)); -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][1]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _791=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_788)(M);}; - -var _794=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_791)(M);}; - -_9.mvr=_8; -_260.mvr=_259; -_288.mvr=_287; -_317.mvr=_316; -_346.mvr=_345; -_184.mvr=_183; -_439.mvr=_438; -_626.mvr=_625; -_808.mvr=_807; -_812.mvr=_811; -_841.mvr=_840; -_886.mvr=_885; -_940.mvr=_939; -_969.mvr=_968; -_1014.mvr=_1013; -_1060.mvr=_1059; -_1120.mvr=_1119; -_1191.mvr=_1189; -_1185.mvr=_1184; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_1212, true); })(M, function() { SUCCESS(); }, FAIL, PARAMS);})(plt.runtime.currentMachine, -function(){ plt.runtime.setReadyTrue(); }, -function(){}, -{}); - -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _1439=function(M){if(--M.cbt<0){throw _1439;} -M.a=1; -return(_1437)(M);}; - -var _1426=function(M){if(--M.cbt<0){throw _1426;} -M.a=1; -return(_1424)(M);}; - -var _1407=function(M){if(--M.cbt<0){throw _1407;} -M.c.push(new RT.PromptFrame(_1420,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1][2]; -M.c.push(new RT.Frame()); -M.v=M.e[M.e.length-1][0]; -M.c[M.c.length-1].pendingContinuationMarkKey=M.v; -M.v=RT.makeVector(5,["#",264,23,0,14]); -M.installContinuationMarkEntry(M.c[M.c.length-1].pendingContinuationMarkKey,M.v); -M.e.push(M.e[M.e.length-1][7]); -M.v=M.e[M.e.length-2][6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1426,M.p)); -return((M.p).label)(M);}; - -var _1391=function(M){if(--M.cbt<0){throw _1391;} -M.c.push(new RT.PromptFrame(_1399,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1][2]; -M.v=M.e[M.e.length-1][6]; -M.a=1; -if(M.a===0){return(_1401)(M);}else{M.e.push(M.v); -return(_1401)(M);}}; - -var _1376=function(M){if(--M.cbt<0){throw _1376;} -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1358=function(M){if(--M.cbt<0){throw _1358;} -M.a=1; -return(_1356)(M);}; - -var _1339=function(M){if(--M.cbt<0){throw _1339;} -M.c.push(new RT.PromptFrame(_1352,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1][2]; -M.c.push(new RT.Frame()); -M.v=M.e[M.e.length-1][0]; -M.c[M.c.length-1].pendingContinuationMarkKey=M.v; -M.v=RT.makeVector(5,["#",175,16,0,20]); -M.installContinuationMarkEntry(M.c[M.c.length-1].pendingContinuationMarkKey,M.v); -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][4]; -M.e[M.e.length-1]=RT.makeChar("a"); -M.e[M.e.length-2]=RT.makeChar("a"); -M.v=RT.makeChar("b"); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1358,M.p)); -return((M.p).label)(M);}; - -var _1324=function(M){if(--M.cbt<0){throw _1324;} -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1298=function(M){if(--M.cbt<0){throw _1298;} -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1285=function(M){if(--M.cbt<0){throw _1285;} -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1267=function(M){if(--M.cbt<0){throw _1267;} -M.a=1; -return(_1265)(M);}; - -var _1246=function(M){if(--M.cbt<0){throw _1246;} -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1233=function(M){if(--M.cbt<0){throw _1233;} -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1443=function(M){if(--M.cbt<0){throw _1443;} -M.e.length-=(M.a-1); -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1435=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1444,M.p)); -return((M.p).label)(M);}; - -var _1422=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1431,M.p)); -return((M.p).label)(M);}; - -var _1409=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1418,M.p)); -return((M.p).label)(M);}; - -var _1401=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1405,M.p)); -return((M.p).label)(M);}; - -var _1393=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1397,M.p)); -return((M.p).label)(M);}; - -var _1380=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1389,M.p)); -return((M.p).label)(M);}; - -var _1367=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1376,M.p)); -return((M.p).label)(M);}; - -var _1354=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1363,M.p)); -return((M.p).label)(M);}; - -var _1341=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1350,M.p)); -return((M.p).label)(M);}; - -var _1328=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1337,M.p)); -return((M.p).label)(M);}; - -var _1315=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1324,M.p)); -return((M.p).label)(M);}; - -var _1302=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1311,M.p)); -return((M.p).label)(M);}; - -var _1289=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1298,M.p)); -return((M.p).label)(M);}; - -var _1276=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1285,M.p)); -return((M.p).label)(M);}; - -var _1263=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1272,M.p)); -return((M.p).label)(M);}; - -var _1250=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1259,M.p)); -return((M.p).label)(M);}; - -var _1237=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1246,M.p)); -return((M.p).label)(M);}; - -var _1221=function(M){if(--M.cbt<0){throw _1221;} -M.e.length-=(M.a-1); -return(_1222)(M);}; - -var _1433=function(M){if(--M.cbt<0){throw _1433;} -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/tests/more-tests/booleans-cs019.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - -var _1420=function(M){if(--M.cbt<0){throw _1420;} -M.c.push(new RT.PromptFrame(_1433,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1][2]; -M.p=M.e[M.e.length-1][8]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1439,M.p)); -return((M.p).label)(M);}; - -var _1405=function(M){if(--M.cbt<0){throw _1405;} -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1389=function(M){if(--M.cbt<0){throw _1389;} -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1371=function(M){if(--M.cbt<0){throw _1371;} -M.a=1; -return(_1369)(M);}; - -var _1352=function(M){if(--M.cbt<0){throw _1352;} -M.c.push(new RT.PromptFrame(_1365,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1][2]; -M.c.push(new RT.Frame()); -M.v=M.e[M.e.length-1][0]; -M.c[M.c.length-1].pendingContinuationMarkKey=M.v; -M.v=RT.makeVector(5,["#",196,17,0,20]); -M.installContinuationMarkEntry(M.c[M.c.length-1].pendingContinuationMarkKey,M.v); -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][4]; -M.e[M.e.length-1]=RT.makeChar("a"); -M.e[M.e.length-2]=RT.makeChar("b"); -M.v=RT.makeChar("a"); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1371,M.p)); -return((M.p).label)(M);}; - -var _1337=function(M){if(--M.cbt<0){throw _1337;} -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1319=function(M){if(--M.cbt<0){throw _1319;} -M.a=1; -return(_1317)(M);}; - -var _1300=function(M){if(--M.cbt<0){throw _1300;} -M.c.push(new RT.PromptFrame(_1313,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1][2]; -M.c.push(new RT.Frame()); -M.v=M.e[M.e.length-1][0]; -M.c[M.c.length-1].pendingContinuationMarkKey=M.v; -M.v=RT.makeVector(5,["#",128,12,0,11]); -M.installContinuationMarkEntry(M.c[M.c.length-1].pendingContinuationMarkKey,M.v); -M.e.push(M.e[M.e.length-1][3]); -M.v=RT.makeChar("t"); -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1319,M.p)); -return((M.p).label)(M);}; - -var _1287=function(M){if(--M.cbt<0){throw _1287;} -M.c.push(new RT.PromptFrame(_1300,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1][2]; -M.c.push(new RT.Frame()); -M.v=M.e[M.e.length-1][0]; -M.c[M.c.length-1].pendingContinuationMarkKey=M.v; -M.v=RT.makeVector(5,["#",118,11,0,9]); -M.installContinuationMarkEntry(M.c[M.c.length-1].pendingContinuationMarkKey,M.v); -M.e.push(M.e[M.e.length-1][3]); -M.v=0; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1306,M.p)); -return((M.p).label)(M);}; - -var _1272=function(M){if(--M.cbt<0){throw _1272;} -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1254=function(M){if(--M.cbt<0){throw _1254;} -M.a=1; -return(_1252)(M);}; - -var _1241=function(M){if(--M.cbt<0){throw _1241;} -M.a=1; -return(_1239)(M);}; - -var _1222=function(M){if(--M.cbt<0){throw _1222;} -M.c.push(new RT.PromptFrame(_1235,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1][2]; -M.c.push(new RT.Frame()); -M.v=M.e[M.e.length-1][0]; -M.c[M.c.length-1].pendingContinuationMarkKey=M.v; -M.v=RT.makeVector(5,["#",52,5,0,13]); -M.installContinuationMarkEntry(M.c[M.c.length-1].pendingContinuationMarkKey,M.v); -M.e.push(M.e[M.e.length-1][1]); -M.v=true; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1241,M.p)); -return((M.p).label)(M);}; - -var _1432=function(M){if(--M.cbt<0){throw _1432;} -M.e.length-=(M.a-1); -return(_1433)(M);}; - -var _1419=function(M){if(--M.cbt<0){throw _1419;} -M.e.length-=(M.a-1); -return(_1420)(M);}; - -var _1406=function(M){if(--M.cbt<0){throw _1406;} -M.e.length-=(M.a-1); -return(_1407)(M);}; - -var _1396=function(M){if(--M.cbt<0){throw _1396;} -M.e.length-=(M.a-1); -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1390=function(M){if(--M.cbt<0){throw _1390;} -M.e.length-=(M.a-1); -return(_1391)(M);}; - -var _1377=function(M){if(--M.cbt<0){throw _1377;} -M.e.length-=(M.a-1); -return(_1378)(M);}; - -var _1362=function(M){if(--M.cbt<0){throw _1362;} -M.e.length-=(M.a-1); -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1349=function(M){if(--M.cbt<0){throw _1349;} -M.e.length-=(M.a-1); -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1338=function(M){if(--M.cbt<0){throw _1338;} -M.e.length-=(M.a-1); -return(_1339)(M);}; - -var _1323=function(M){if(--M.cbt<0){throw _1323;} -M.e.length-=(M.a-1); -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1310=function(M){if(--M.cbt<0){throw _1310;} -M.e.length-=(M.a-1); -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1299=function(M){if(--M.cbt<0){throw _1299;} -M.e.length-=(M.a-1); -return(_1300)(M);}; - -var _1286=function(M){if(--M.cbt<0){throw _1286;} -M.e.length-=(M.a-1); -return(_1287)(M);}; - -var _1273=function(M){if(--M.cbt<0){throw _1273;} -M.e.length-=(M.a-1); -return(_1274)(M);}; - -var _1260=function(M){if(--M.cbt<0){throw _1260;} -M.e.length-=(M.a-1); -return(_1261)(M);}; - -var _1245=function(M){if(--M.cbt<0){throw _1245;} -M.e.length-=(M.a-1); -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1234=function(M){if(--M.cbt<0){throw _1234;} -M.e.length-=(M.a-1); -return(_1235)(M);}; - -var _1219=function(M){if(--M.cbt<0){throw _1219;} -M.e.length-=(M.a-1); -return(_1220)(M);}; - -var _1214=function(M){if(--M.cbt<0){throw _1214;} -M.e.length-=M.a; -return(_1215)(M);}; - -var _1424=function(M){if(--M.cbt<0){throw _1424;} -M.c.pop(); -if(M.a===0){return(_1422)(M);}else{M.e.push(M.v); -return(_1422)(M);}}; - -var _1343=function(M){if(--M.cbt<0){throw _1343;} -M.c.pop(); -if(M.a===0){return(_1341)(M);}else{M.e.push(M.v); -return(_1341)(M);}}; - -var _1304=function(M){if(--M.cbt<0){throw _1304;} -M.c.pop(); -if(M.a===0){return(_1302)(M);}else{M.e.push(M.v); -return(_1302)(M);}}; - -var _1239=function(M){if(--M.cbt<0){throw _1239;} -M.c.pop(); -if(M.a===0){return(_1237)(M);}else{M.e.push(M.v); -return(_1237)(M);}}; - -var _1445=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_1215,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/tests/more-tests/booleans-cs019.rkt"]=new RT.ModuleRecord("booleans-cs019",_1217); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1418=function(M){if(--M.cbt<0){throw _1418;} -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1399=function(M){if(--M.cbt<0){throw _1399;} -M.c.push(new RT.PromptFrame(_1407,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1][2]; -M.c.push(new RT.Frame()); -M.v=M.e[M.e.length-1][0]; -M.c[M.c.length-1].pendingContinuationMarkKey=M.v; -M.v=RT.makeVector(5,["#",250,22,0,13]); -M.installContinuationMarkEntry(M.c[M.c.length-1].pendingContinuationMarkKey,M.v); -M.e.push(M.e[M.e.length-1][7]); -M.v=M.e[M.e.length-2][5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1413,M.p)); -return((M.p).label)(M);}; - -var _1397=function(M){if(--M.cbt<0){throw _1397;} -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1378=function(M){if(--M.cbt<0){throw _1378;} -M.c.push(new RT.PromptFrame(_1391,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1][2]; -M.v=M.e[M.e.length-1][5]; -M.a=1; -if(M.a===0){return(_1393)(M);}else{M.e.push(M.v); -return(_1393)(M);}}; - -var _1363=function(M){if(--M.cbt<0){throw _1363;} -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1345=function(M){if(--M.cbt<0){throw _1345;} -M.a=1; -return(_1343)(M);}; - -var _1326=function(M){if(--M.cbt<0){throw _1326;} -M.c.push(new RT.PromptFrame(_1339,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1][2]; -M.c.push(new RT.Frame()); -M.v=M.e[M.e.length-1][0]; -M.c[M.c.length-1].pendingContinuationMarkKey=M.v; -M.v=RT.makeVector(5,["#",158,15,0,16]); -M.installContinuationMarkEntry(M.c[M.c.length-1].pendingContinuationMarkKey,M.v); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][4]; -M.e[M.e.length-1]=RT.makeChar("a"); -M.v=RT.makeChar("a"); -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1345,M.p)); -return((M.p).label)(M);}; - -var _1311=function(M){if(--M.cbt<0){throw _1311;} -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1280=function(M){if(--M.cbt<0){throw _1280;} -M.a=1; -return(_1278)(M);}; - -var _1261=function(M){if(--M.cbt<0){throw _1261;} -M.c.push(new RT.PromptFrame(_1274,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1][2]; -M.c.push(new RT.Frame()); -M.v=M.e[M.e.length-1][0]; -M.c[M.c.length-1].pendingContinuationMarkKey=M.v; -M.v=RT.makeVector(5,["#",95,9,0,11]); -M.installContinuationMarkEntry(M.c[M.c.length-1].pendingContinuationMarkKey,M.v); -M.e.push(M.e[M.e.length-1][3]); -M.v="t"; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1280,M.p)); -return((M.p).label)(M);}; - -var _1248=function(M){if(--M.cbt<0){throw _1248;} -M.c.push(new RT.PromptFrame(_1261,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1][2]; -M.c.push(new RT.Frame()); -M.v=M.e[M.e.length-1][0]; -M.c[M.c.length-1].pendingContinuationMarkKey=M.v; -M.v=RT.makeVector(5,["#",79,7,0,14]); -M.installContinuationMarkEntry(M.c[M.c.length-1].pendingContinuationMarkKey,M.v); -M.e.push(M.e[M.e.length-1][1]); -M.v=RT.makeChar("t"); -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1267,M.p)); -return((M.p).label)(M);}; - -var _1235=function(M){if(--M.cbt<0){throw _1235;} -M.c.push(new RT.PromptFrame(_1248,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1][2]; -M.c.push(new RT.Frame()); -M.v=M.e[M.e.length-1][0]; -M.c[M.c.length-1].pendingContinuationMarkKey=M.v; -M.v=RT.makeVector(5,["#",66,6,0,12]); -M.installContinuationMarkEntry(M.c[M.c.length-1].pendingContinuationMarkKey,M.v); -M.e.push(M.e[M.e.length-1][1]); -M.v=0; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1254,M.p)); -return((M.p).label)(M);}; - -var _1215=function(M){if(--M.cbt<0){throw _1215;} -M.mainModules.push(M.modules["whalesong/tests/more-tests/booleans-cs019.rkt"]); -}; - -var _1430=function(M){if(--M.cbt<0){throw _1430;} -M.e.length-=(M.a-1); -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1417=function(M){if(--M.cbt<0){throw _1417;} -M.e.length-=(M.a-1); -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1404=function(M){if(--M.cbt<0){throw _1404;} -M.e.length-=(M.a-1); -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1398=function(M){if(--M.cbt<0){throw _1398;} -M.e.length-=(M.a-1); -return(_1399)(M);}; - -var _1388=function(M){if(--M.cbt<0){throw _1388;} -M.e.length-=(M.a-1); -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1375=function(M){if(--M.cbt<0){throw _1375;} -M.e.length-=(M.a-1); -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1364=function(M){if(--M.cbt<0){throw _1364;} -M.e.length-=(M.a-1); -return(_1365)(M);}; - -var _1351=function(M){if(--M.cbt<0){throw _1351;} -M.e.length-=(M.a-1); -return(_1352)(M);}; - -var _1336=function(M){if(--M.cbt<0){throw _1336;} -M.e.length-=(M.a-1); -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1325=function(M){if(--M.cbt<0){throw _1325;} -M.e.length-=(M.a-1); -return(_1326)(M);}; - -var _1312=function(M){if(--M.cbt<0){throw _1312;} -M.e.length-=(M.a-1); -return(_1313)(M);}; - -var _1297=function(M){if(--M.cbt<0){throw _1297;} -M.e.length-=(M.a-1); -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1284=function(M){if(--M.cbt<0){throw _1284;} -M.e.length-=(M.a-1); -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1271=function(M){if(--M.cbt<0){throw _1271;} -M.e.length-=(M.a-1); -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1258=function(M){if(--M.cbt<0){throw _1258;} -M.e.length-=(M.a-1); -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1247=function(M){if(--M.cbt<0){throw _1247;} -M.e.length-=(M.a-1); -return(_1248)(M);}; - -var _1232=function(M){if(--M.cbt<0){throw _1232;} -M.e.length-=(M.a-1); -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1220=function(M){if(--M.cbt<0){throw _1220;} -M.e.push([M.modules["whalesong/lang/private/traced-app.rkt"].namespace["traced-app-key"],M.primitives["boolean?"],M.modules["collects/racket/private/modbeg.rkt"].namespace["print-values"],M.primitives["char?"],M.primitives["char=?"],M.modules["whalesong/lang/bool.rkt"].namespace["true"],M.modules["whalesong/lang/bool.rkt"].namespace["false"],M.modules["whalesong/lang/bool.rkt"].namespace["false?"],M.modules["whalesong/lang/check-expect/check-expect.rkt"].namespace["run-tests"]]);M.e[M.e.length-1].names=["traced-app-key","boolean?","print-values","char?","char=?","true","false","false?","run-tests"]; -M.modules["whalesong/tests/more-tests/booleans-cs019.rkt"].prefix=M.e[M.e.length-1]; -M.c.push(new RT.PromptFrame(_1222,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1][2]; -M.c.push(new RT.Frame()); -M.v=M.e[M.e.length-1][0]; -M.c[M.c.length-1].pendingContinuationMarkKey=M.v; -M.v=RT.makeVector(5,["#",37,4,0,14]); -M.installContinuationMarkEntry(M.c[M.c.length-1].pendingContinuationMarkKey,M.v); -M.e.push(M.e[M.e.length-1][1]); -M.v="t"; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1228,M.p)); -return((M.p).label)(M);}; - -var _1217=function(M){--M.cbt<0; -M.modules["whalesong/tests/more-tests/booleans-cs019.rkt"].isInvoked=true; -if((M.modules["whalesong/cs019/cs019.rkt"]!==undefined)!==false){if(M.modules["whalesong/cs019/cs019.rkt"].isInvoked!==false){return(_1220)(M);}else{M.c.push(new RT.CallFrame(_1220,M.p)); -return(M.modules["whalesong/cs019/cs019.rkt"].label)(M);}}else{return(_1220)(M);}}; - -var _1437=function(M){if(--M.cbt<0){throw _1437;} -if(M.a===0){return(_1435)(M);}else{M.e.push(M.v); -return(_1435)(M);}}; - -var _1411=function(M){if(--M.cbt<0){throw _1411;} -M.c.pop(); -if(M.a===0){return(_1409)(M);}else{M.e.push(M.v); -return(_1409)(M);}}; - -var _1382=function(M){if(--M.cbt<0){throw _1382;} -M.c.pop(); -if(M.a===0){return(_1380)(M);}else{M.e.push(M.v); -return(_1380)(M);}}; - -var _1369=function(M){if(--M.cbt<0){throw _1369;} -M.c.pop(); -if(M.a===0){return(_1367)(M);}else{M.e.push(M.v); -return(_1367)(M);}}; - -var _1356=function(M){if(--M.cbt<0){throw _1356;} -M.c.pop(); -if(M.a===0){return(_1354)(M);}else{M.e.push(M.v); -return(_1354)(M);}}; - -var _1330=function(M){if(--M.cbt<0){throw _1330;} -M.c.pop(); -if(M.a===0){return(_1328)(M);}else{M.e.push(M.v); -return(_1328)(M);}}; - -var _1317=function(M){if(--M.cbt<0){throw _1317;} -M.c.pop(); -if(M.a===0){return(_1315)(M);}else{M.e.push(M.v); -return(_1315)(M);}}; - -var _1291=function(M){if(--M.cbt<0){throw _1291;} -M.c.pop(); -if(M.a===0){return(_1289)(M);}else{M.e.push(M.v); -return(_1289)(M);}}; - -var _1278=function(M){if(--M.cbt<0){throw _1278;} -M.c.pop(); -if(M.a===0){return(_1276)(M);}else{M.e.push(M.v); -return(_1276)(M);}}; - -var _1265=function(M){if(--M.cbt<0){throw _1265;} -M.c.pop(); -if(M.a===0){return(_1263)(M);}else{M.e.push(M.v); -return(_1263)(M);}}; - -var _1252=function(M){if(--M.cbt<0){throw _1252;} -M.c.pop(); -if(M.a===0){return(_1250)(M);}else{M.e.push(M.v); -return(_1250)(M);}}; - -var _1226=function(M){if(--M.cbt<0){throw _1226;} -M.c.pop(); -if(M.a===0){return(_1224)(M);}else{M.e.push(M.v); -return(_1224)(M);}}; - -var _1444=function(M){if(--M.cbt<0){throw _1444;} -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1431=function(M){if(--M.cbt<0){throw _1431;} -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1413=function(M){if(--M.cbt<0){throw _1413;} -M.a=1; -return(_1411)(M);}; - -var _1384=function(M){if(--M.cbt<0){throw _1384;} -M.a=1; -return(_1382)(M);}; - -var _1365=function(M){if(--M.cbt<0){throw _1365;} -M.c.push(new RT.PromptFrame(_1378,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1][2]; -M.c.push(new RT.Frame()); -M.v=M.e[M.e.length-1][0]; -M.c[M.c.length-1].pendingContinuationMarkKey=M.v; -M.v=RT.makeVector(5,["#",217,18,0,20]); -M.installContinuationMarkEntry(M.c[M.c.length-1].pendingContinuationMarkKey,M.v); -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][4]; -M.e[M.e.length-1]=RT.makeChar("a"); -M.e[M.e.length-2]=RT.makeChar("a"); -M.v=RT.makeChar("a"); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1384,M.p)); -return((M.p).label)(M);}; - -var _1350=function(M){if(--M.cbt<0){throw _1350;} -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1332=function(M){if(--M.cbt<0){throw _1332;} -M.a=1; -return(_1330)(M);}; - -var _1313=function(M){if(--M.cbt<0){throw _1313;} -M.c.push(new RT.PromptFrame(_1326,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1][2]; -M.c.push(new RT.Frame()); -M.v=M.e[M.e.length-1][0]; -M.c[M.c.length-1].pendingContinuationMarkKey=M.v; -M.v=RT.makeVector(5,["#",141,14,0,16]); -M.installContinuationMarkEntry(M.c[M.c.length-1].pendingContinuationMarkKey,M.v); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][4]; -M.e[M.e.length-1]=RT.makeChar("a"); -M.v=RT.makeChar("b"); -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1332,M.p)); -return((M.p).label)(M);}; - -var _1306=function(M){if(--M.cbt<0){throw _1306;} -M.a=1; -return(_1304)(M);}; - -var _1293=function(M){if(--M.cbt<0){throw _1293;} -M.a=1; -return(_1291)(M);}; - -var _1274=function(M){if(--M.cbt<0){throw _1274;} -M.c.push(new RT.PromptFrame(_1287,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1][2]; -M.c.push(new RT.Frame()); -M.v=M.e[M.e.length-1][0]; -M.c[M.c.length-1].pendingContinuationMarkKey=M.v; -M.v=RT.makeVector(5,["#",107,10,0,10]); -M.installContinuationMarkEntry(M.c[M.c.length-1].pendingContinuationMarkKey,M.v); -M.e.push(M.e[M.e.length-1][3]); -M.v=true; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1293,M.p)); -return((M.p).label)(M);}; - -var _1259=function(M){if(--M.cbt<0){throw _1259;} -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1228=function(M){if(--M.cbt<0){throw _1228;} -M.a=1; -return(_1226)(M);}; - -var _1224=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1233,M.p)); -return((M.p).label)(M);}; - -_1220.mvr=_1219; -_1228.mvr=_1226; -_1233.mvr=_1232; -_1222.mvr=_1221; -_1241.mvr=_1239; -_1246.mvr=_1245; -_1235.mvr=_1234; -_1254.mvr=_1252; -_1259.mvr=_1258; -_1248.mvr=_1247; -_1267.mvr=_1265; -_1272.mvr=_1271; -_1261.mvr=_1260; -_1280.mvr=_1278; -_1285.mvr=_1284; -_1274.mvr=_1273; -_1293.mvr=_1291; -_1298.mvr=_1297; -_1287.mvr=_1286; -_1306.mvr=_1304; -_1311.mvr=_1310; -_1300.mvr=_1299; -_1319.mvr=_1317; -_1324.mvr=_1323; -_1313.mvr=_1312; -_1332.mvr=_1330; -_1337.mvr=_1336; -_1326.mvr=_1325; -_1345.mvr=_1343; -_1350.mvr=_1349; -_1339.mvr=_1338; -_1358.mvr=_1356; -_1363.mvr=_1362; -_1352.mvr=_1351; -_1371.mvr=_1369; -_1376.mvr=_1375; -_1365.mvr=_1364; -_1384.mvr=_1382; -_1389.mvr=_1388; -_1378.mvr=_1377; -_1397.mvr=_1396; -_1391.mvr=_1390; -_1405.mvr=_1404; -_1399.mvr=_1398; -_1413.mvr=_1411; -_1418.mvr=_1417; -_1407.mvr=_1406; -_1426.mvr=_1424; -_1431.mvr=_1430; -_1420.mvr=_1419; -_1439.mvr=_1437; -_1444.mvr=_1443; -_1433.mvr=_1432; -_1215.mvr=_1214; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_1445, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _2240=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2249,M.p)); -return((M.p).label)(M);}; - -var _2295=function(M){if(--M.cbt<0){throw _2295;} -M.c.push(new RT.PromptFrame(_2297,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1272,1,[M.e[M.e.length-1]],"string-lower-case?"); -M.e[M.e.length-1][47]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1278=function(M){--M.cbt<0; -M.e.length+=2; -M.e.push(M.e[M.e.length-3][10]); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1311,M.p)); -return((M.p).label)(M);}; - -var _2279=function(M){if(--M.cbt<0){throw _2279;} -M.c.push(new RT.PromptFrame(_2281,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1264,1,[M.e[M.e.length-1]],"int->string"); -M.e[M.e.length-1][31]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1726=function(M){--M.cbt<0; -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingBegin0Count=M.a; -M.unspliceRestFromStack(0,M.a); -M.c[M.c.length-1].pendingBegin0Values=M.e[M.e.length-1]; -M.e.length-=1; -M.v=M.e[M.e.length-7]; -M.e.push(M.c[M.c.length-1].pendingBegin0Values); -M.spliceListIntoStack(0); -M.a=M.c[M.c.length-1].pendingBegin0Count; -M.c.pop(); -if(M.a===0){return(_1727)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=1; -return(_1727)(M);}}; - -var _1339=function(M){--M.cbt<0; -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingBegin0Count=M.a; -M.unspliceRestFromStack(0,M.a); -M.c[M.c.length-1].pendingBegin0Values=M.e[M.e.length-1]; -M.e.length-=1; -M.v=M.e[M.e.length-4]; -M.e.push(M.c[M.c.length-1].pendingBegin0Values); -M.spliceListIntoStack(0); -M.a=M.c[M.c.length-1].pendingBegin0Count; -M.c.pop(); -if(M.a===0){return(_1340)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=1; -return(_1340)(M);}}; - -var _1313=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][12]; -M.v=new RT.Closure(_1254,1,[M.e[M.e.length-3],M.e[M.e.length-4]],".../cs019/cs019.rkt:270:3"); -M.a=1; -if(M.a===0){return(_1339)(M);}else{M.e.push(M.v); -return(_1339)(M);}}; - -var _2293=function(M){if(--M.cbt<0){throw _2293;} -M.c.push(new RT.PromptFrame(_2295,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1271,1,[M.e[M.e.length-1]],"string-upper-case?"); -M.e[M.e.length-1][45]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _2287=function(M){if(--M.cbt<0){throw _2287;} -M.c.push(new RT.PromptFrame(_2289,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1268,1,[M.e[M.e.length-1]],"string-numeric?"); -M.e[M.e.length-1][39]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _2277=function(M){if(--M.cbt<0){throw _2277;} -M.c.push(new RT.PromptFrame(_2279,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1262,2,[M.e[M.e.length-1]],"replicate"); -M.e[M.e.length-1][28]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _2271=function(M){if(--M.cbt<0){throw _2271;} -M.c.push(new RT.PromptFrame(_2273,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1257,1,[M.e[M.e.length-1]],"a-or-an"); -M.e[M.e.length-1][20]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _2251=function(M){if(--M.cbt<0){throw _2251;} -M.c.push(new RT.PromptFrame(_2253,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][4]; -M.e[M.e.length-1]="~a"; -M.v="1-letter string"; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2257,M.p)); -return((M.p).label)(M);}; - -var _1727=function(M){--M.cbt<0; -M.v=M.v; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1731,M.p)); -return((M.p).label)(M);}; - -var _1935=function(M){if(--M.cbt<0){throw _1935;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-6],RT.NULL); -M.e.push(M.e[M.e.length-5][15]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][16]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-11][4]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-14][17]; -M.e.push(M.e[M.e.length-14][18]); -M.v=RT.makeSymbol("implode"); -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1941,M.p)); -return((M.p).label)(M);}; - -var _1911=function(M){if(--M.cbt<0){throw _1911;} -M.e.length-=1; -M.e.length-=1; -return(_1875)(M);}; - -var _1340=function(M){--M.cbt<0; -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1344,M.p)); -return((M.p).label)(M);}; - -var _1791=function(M){--M.cbt<0; -M.e.length+=2; -M.e.push(M.e[M.e.length-4][10]); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1824,M.p)); -return((M.p).label)(M);}; - -var _2299=function(M){if(--M.cbt<0){throw _2299;} -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/cs019/cs019.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - -var _2291=function(M){if(--M.cbt<0){throw _2291;} -M.c.push(new RT.PromptFrame(_2293,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1270,1,[M.e[M.e.length-1]],"string-whitespace?"); -M.e[M.e.length-1][43]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _2285=function(M){if(--M.cbt<0){throw _2285;} -M.c.push(new RT.PromptFrame(_2287,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1267,1,[M.e[M.e.length-1]],"implode"); -M.e[M.e.length-1][38]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _2275=function(M){if(--M.cbt<0){throw _2275;} -M.c.push(new RT.PromptFrame(_2277,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1261,2,[M.e[M.e.length-1]],"string-ith"); -M.e[M.e.length-1][24]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _2269=function(M){if(--M.cbt<0){throw _2269;} -M.c.push(new RT.PromptFrame(_2271,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1256,(RT.makeArityAtLeast(2)),[M.e[M.e.length-1]],"err"); -M.e[M.e.length-1][9]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _2249=function(M){if(--M.cbt<0){throw _2249;} -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _2221=function(M){if(--M.cbt<0){throw _2221;} -if((M.modules["whalesong/cs019/cs019-pre-base.rkt"]!==undefined)!==false){if(M.modules["whalesong/cs019/cs019-pre-base.rkt"].isInvoked!==false){return(_2224)(M);}else{M.c.push(new RT.CallFrame(_2224,M.p)); -return(M.modules["whalesong/cs019/cs019-pre-base.rkt"].label)(M);}}else{return(_2224)(M);}}; - - - -var _2201=function(M){if(--M.cbt<0){throw _2201;} -M.e.length-=(M.a-1); -M.e.length-=1; -M.e.length-=1; -return(_2166)(M);}; - - - - -var _2152=function(M){if(--M.cbt<0){throw _2152;} -M.e.length-=(M.a-1); -M.e.length-=1; -M.e.length-=1; -return(_2117)(M);}; - -var _1637=function(M){--M.cbt<0; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.e.length+=1; -M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-8][17]; -M.e[M.e.length-1]="expected "; -M.e.push(M.e[M.e.length-8][20]); -M.v="natural number"; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1654,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_1648)(M);}}; - - -var _1953=function(M){if(--M.cbt<0){throw _1953;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1957,M.p)); -return((M.p).label)(M);}; - - - -var _1899=function(M){if(--M.cbt<0){throw _1899;} -M.e[M.e.length-1]=M.v; -M.p=M.e[M.e.length-7][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1903,M.p)); -return((M.p).label)(M);}; - -var _1881=function(M){if(--M.cbt<0){throw _1881;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-3]=" "; -M.e[M.e.length-4]="string"; -M.v=", but received ~e"; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1885,M.p)); -return((M.p).label)(M);}; - -var _1836=function(M){if(--M.cbt<0){throw _1836;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-6],RT.NULL); -M.e.push(M.e[M.e.length-5][15]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][16]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-11][4]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-14][17]; -M.e.push(M.e[M.e.length-14][18]); -M.v=RT.makeSymbol("string->int"); -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1842,M.p)); -return((M.p).label)(M);}; - -var _1820=function(M){if(--M.cbt<0){throw _1820;} -M.e.length-=1; -return(_1791)(M);}; - -var _1538=function(M){--M.cbt<0; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.e.length+=1; -M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-8][17]; -M.e[M.e.length-1]="expected "; -M.e.push(M.e[M.e.length-8][20]); -M.v="natural number"; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1555,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_1549)(M);}}; - -var _1765=function(M){if(--M.cbt<0){throw _1765;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1769,M.p)); -return((M.p).label)(M);}; - -var _1741=function(M){if(--M.cbt<0){throw _1741;} -if(M.v===false){M.e[M.e.length-1]=false; -return(_1737)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=((plt.baselib.numbers.lessThanOrEqual(0,RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],1,"<=")))&&(plt.baselib.numbers.lessThanOrEqual(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],1,"<="),55295))); -M.v=M.e[M.e.length-1]; -if(M.v===false){M.e[M.e.length-2]=((plt.baselib.numbers.lessThanOrEqual(57344,RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],1,"<=")))&&(plt.baselib.numbers.lessThanOrEqual(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],1,"<="),1114111))); -M.e.length-=1; -return(_1737)(M);}else{M.e[M.e.length-2]=M.e[M.e.length-1]; -M.e.length-=1; -return(_1737)(M);}}}; - -var _1713=function(M){if(--M.cbt<0){throw _1713;} -M.e[M.e.length-1]=M.v; -M.p=M.e[M.e.length-7][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1717,M.p)); -return((M.p).label)(M);}; - -var _1699=function(M){if(--M.cbt<0){throw _1699;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-6],RT.NULL); -M.e.push(M.e[M.e.length-4][15]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][16]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-10][4]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-13][17]; -M.e.push(M.e[M.e.length-13][18]); -M.v=RT.makeSymbol("replicate"); -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1705,M.p)); -return((M.p).label)(M);}; - -var _1680=function(M){if(--M.cbt<0){throw _1680;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1684,M.p)); -return((M.p).label)(M);}; - -var _1647=function(M){if(--M.cbt<0){throw _1647;} -if(M.v===false){M.e[M.e.length-1]=false; -return(_1637)(M);}else{M.e[M.e.length-1]=((plt.baselib.numbers.greaterThanOrEqual(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,">="),0))); -return(_1637)(M);}}; - -var _1611=function(M){if(--M.cbt<0){throw _1611;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1615,M.p)); -return((M.p).label)(M);}; - -var _1548=function(M){if(--M.cbt<0){throw _1548;} -if(M.v===false){M.e[M.e.length-1]=false; -return(_1538)(M);}else{M.e[M.e.length-1]=((plt.baselib.numbers.greaterThanOrEqual(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],0,">="),0))); -return(_1538)(M);}}; - -var _1491=function(M){if(--M.cbt<0){throw _1491;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1455=function(M){if(--M.cbt<0){throw _1455;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+7),7); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1433=function(M){if(--M.cbt<0){throw _1433;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-7],RT.NULL); -M.e.push(M.e[M.e.length-3][15]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][16]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-9][4]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-12][17]; -M.e.push(M.e[M.e.length-12][18]); -M.v=M.e[M.e.length-14]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1439,M.p)); -return((M.p).label)(M);}; - -var _1417=function(M){if(--M.cbt<0){throw _1417;} -M.e[M.e.length-1]=M.v; -M.v=RT.makePair(RT.makeChar("a"),RT.makePair(RT.makeChar("e"),RT.makePair(RT.makeChar("i"),RT.makePair(RT.makeChar("o"),RT.makePair(RT.makeChar("u"),RT.NULL))))); -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1421,M.p)); -return((M.p).label)(M);}; - -var _1391=function(M){if(--M.cbt<0){throw _1391;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1395,M.p)); -return((M.p).label)(M);}; - -var _1334=function(M){if(--M.cbt<0){throw _1334;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1338,M.p)); -return((M.p).label)(M);}; - -var _1318=function(M){if(--M.cbt<0){throw _1318;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=": "; -M.v="expected a ~a, but received: ~e"; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1322,M.p)); -return((M.p).label)(M);}; - -var _2298=function(M){if(--M.cbt<0){throw _2298;} -M.e.length-=(M.a-1); -return(_2299)(M);}; - -var _2296=function(M){if(--M.cbt<0){throw _2296;} -M.e.length-=(M.a-1); -return(_2297)(M);}; - -var _2288=function(M){if(--M.cbt<0){throw _2288;} -M.e.length-=(M.a-1); -return(_2289)(M);}; - -var _2280=function(M){if(--M.cbt<0){throw _2280;} -M.e.length-=(M.a-1); -return(_2281)(M);}; - -var _2272=function(M){if(--M.cbt<0){throw _2272;} -M.e.length-=(M.a-1); -return(_2273)(M);}; - -var _2297=function(M){if(--M.cbt<0){throw _2297;} -M.c.push(new RT.PromptFrame(_2299,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1273,2,[M.e[M.e.length-1]],"-member"); -M.e[M.e.length-1][49]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _2289=function(M){if(--M.cbt<0){throw _2289;} -M.c.push(new RT.PromptFrame(_2291,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1269,1,[M.e[M.e.length-1]],"string-alphabetic?"); -M.e[M.e.length-1][41]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _2283=function(M){if(--M.cbt<0){throw _2283;} -M.c.push(new RT.PromptFrame(_2285,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1266,1,[M.e[M.e.length-1]],"explode"); -M.e[M.e.length-1][35]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _2273=function(M){if(--M.cbt<0){throw _2273;} -M.c.push(new RT.PromptFrame(_2275,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.length+=2; -M.e[M.e.length-1]=new RT.Closure(_1259,4,[M.e[M.e.length-3]],".../cs019/cs019.rkt:288:4"); -M.e[M.e.length-2]=new RT.Closure(_1260,5,[M.e[M.e.length-3]],".../cs019/cs019.rkt:291:4"); -M.v=new RT.Closure(_1258,RT.makePair(4,RT.makePair(5,RT.NULL)),[M.e[M.e.length-2],M.e[M.e.length-1]],"cerr"); -M.e.length-=2; -M.e[M.e.length-1][23]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _2267=function(M){if(--M.cbt<0){throw _2267;} -M.c.push(new RT.PromptFrame(_2269,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1253,2,[M.e[M.e.length-1]],"1-letter*?"); -M.e[M.e.length-1][11]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _2263=function(M){if(--M.cbt<0){throw _2263;} -M.e[M.e.length-1][5]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _2244=function(M){if(--M.cbt<0){throw _2244;} -M.a=1; -return(_2242)(M);}; - -var _2218=function(M){--M.cbt<0; -M.modules["whalesong/cs019/cs019.rkt"].isInvoked=true; -if((M.modules["whalesong/lang/base.rkt"]!==undefined)!==false){if(M.modules["whalesong/lang/base.rkt"].isInvoked!==false){return(_2221)(M);}else{M.c.push(new RT.CallFrame(_2221,M.p)); -return(M.modules["whalesong/lang/base.rkt"].label)(M);}}else{return(_2221)(M);}}; - -var _2198=function(M){if(--M.cbt<0){throw _2198;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2202,M.p)); -return((M.p).label)(M);}; - -var _2182=function(M){if(--M.cbt<0){throw _2182;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=": "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2186,M.p)); -return((M.p).label)(M);}; - - - - - -var _2074=function(M){if(--M.cbt<0){throw _2074;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-3]=" "; -M.e[M.e.length-4]="string"; -M.v=", but received ~e"; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2078,M.p)); -return((M.p).label)(M);}; - - - - - - -var _1949=function(M){if(--M.cbt<0){throw _1949;} -M.e[M.e.length-1]=M.v; -M.p=M.e[M.e.length-8][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1953,M.p)); -return((M.p).label)(M);}; - -var _1931=function(M){if(--M.cbt<0){throw _1931;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-3]=" "; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=", but received ~e"; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1935,M.p)); -return((M.p).label)(M);}; - -var _1907=function(M){if(--M.cbt<0){throw _1907;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1911,M.p)); -return((M.p).label)(M);}; - -var _1895=function(M){if(--M.cbt<0){throw _1895;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1899,M.p)); -return((M.p).label)(M);}; - -var _1874=function(M){if(--M.cbt<0){throw _1874;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.e.length+=1; -M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-8][17]; -M.e[M.e.length-1]="expected "; -M.e.push(M.e[M.e.length-8][20]); -M.v="string"; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1881,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_1875)(M);}}; - -var _1858=function(M){if(--M.cbt<0){throw _1858;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1862,M.p)); -return((M.p).label)(M);}; - -var _1832=function(M){if(--M.cbt<0){throw _1832;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-3]=" "; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=", but received ~e"; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1836,M.p)); -return((M.p).label)(M);}; - -var _1816=function(M){if(--M.cbt<0){throw _1816;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1820,M.p)); -return((M.p).label)(M);}; - -var _1804=function(M){if(--M.cbt<0){throw _1804;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1808,M.p)); -return((M.p).label)(M);}; - -var _1781=function(M){if(--M.cbt<0){throw _1781;} -M.e.length-=1; -M.e.length-=1; -return(_1745)(M);}; - -var _1761=function(M){if(--M.cbt<0){throw _1761;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=": "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1765,M.p)); -return((M.p).label)(M);}; - -var _1731=function(M){if(--M.cbt<0){throw _1731;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1709=function(M){if(--M.cbt<0){throw _1709;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1713,M.p)); -return((M.p).label)(M);}; - -var _1695=function(M){if(--M.cbt<0){throw _1695;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-3]=" "; -M.e[M.e.length-4]="string"; -M.v=", but received ~e"; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1699,M.p)); -return((M.p).label)(M);}; - -var _1676=function(M){if(--M.cbt<0){throw _1676;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1680,M.p)); -return((M.p).label)(M);}; - -var _1668=function(M){if(--M.cbt<0){throw _1668;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1672,M.p)); -return((M.p).label)(M);}; - -var _1627=function(M){if(--M.cbt<0){throw _1627;} -M.e.length-=1; -M.e.length-=1; -return(_1591)(M);}; - -var _1619=function(M){if(--M.cbt<0){throw _1619;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1623,M.p)); -return((M.p).label)(M);}; - -var _1597=function(M){if(--M.cbt<0){throw _1597;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-3]=" "; -M.e[M.e.length-4]="exact integer in [0, length of the given string]"; -M.v=" for the ~a argument, but received ~e"; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1601,M.p)); -return((M.p).label)(M);}; - -var _1577=function(M){if(--M.cbt<0){throw _1577;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1581,M.p)); -return((M.p).label)(M);}; - -var _1569=function(M){if(--M.cbt<0){throw _1569;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1573,M.p)); -return((M.p).label)(M);}; - -var _1532=function(M){if(--M.cbt<0){throw _1532;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1536,M.p)); -return((M.p).label)(M);}; - -var _1528=function(M){if(--M.cbt<0){throw _1528;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1532,M.p)); -return((M.p).label)(M);}; - -var _1510=function(M){if(--M.cbt<0){throw _1510;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair("first",RT.makePair(M.e[M.e.length-5],RT.NULL)); -M.e.push(M.e[M.e.length-4][15]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][16]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-10][4]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-13][17]; -M.e.push(M.e[M.e.length-13][18]); -M.v=RT.makeSymbol("string-ith"); -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1516,M.p)); -return((M.p).label)(M);}; - -var _1479=function(M){if(--M.cbt<0){throw _1479;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1483,M.p)); -return((M.p).label)(M);}; - -var _1451=function(M){if(--M.cbt<0){throw _1451;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1455,M.p)); -return((M.p).label)(M);}; - -var _1439=function(M){if(--M.cbt<0){throw _1439;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=": "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1443,M.p)); -return((M.p).label)(M);}; - -var _1429=function(M){if(--M.cbt<0){throw _1429;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-3]=" "; -M.e[M.e.length-4]=M.e[M.e.length-10]; -M.v=", but received ~e"; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1433,M.p)); -return((M.p).label)(M);}; - -var _1395=function(M){if(--M.cbt<0){throw _1395;} -M.e[M.e.length-1]=M.v; -M.p=M.e[M.e.length-4][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1399,M.p)); -return((M.p).label)(M);}; - -var _1379=function(M){if(--M.cbt<0){throw _1379;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1358=function(M){if(--M.cbt<0){throw _1358;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-3][5],RT.makePair(M.e[M.e.length-4],RT.NULL)); -M.e.push(M.e[M.e.length-3][15]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][16]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-9][4]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-12][17]; -M.e.push(M.e[M.e.length-12][18]); -M.v=M.e[M.e.length-12]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1363,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1344=function(M){if(--M.cbt<0){throw _1344;} -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][13]; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5][14]; -M.e[M.e.length-1]=new RT.Closure(_1255,1,[],".../cs019/cs019.rkt:273:19"); -M.v=M.e[M.e.length-5][10]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1348,M.p)); -return((M.p).label)(M);}; - -var _1311=function(M){if(--M.cbt<0){throw _1311;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=1; -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),M.e[M.e.length-2]))); -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1299=function(M){if(--M.cbt<0){throw _1299;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1303,M.p)); -return((M.p).label)(M);}; - - -var _2294=function(M){if(--M.cbt<0){throw _2294;} -M.e.length-=(M.a-1); -return(_2295)(M);}; - -var _2286=function(M){if(--M.cbt<0){throw _2286;} -M.e.length-=(M.a-1); -return(_2287)(M);}; - -var _2278=function(M){if(--M.cbt<0){throw _2278;} -M.e.length-=(M.a-1); -return(_2279)(M);}; - -var _2270=function(M){if(--M.cbt<0){throw _2270;} -M.e.length-=(M.a-1); -return(_2271)(M);}; - -var _2264=function(M){if(--M.cbt<0){throw _2264;} -M.e.length-=(M.a-1); -return(_2265)(M);}; - - -var _2281=function(M){if(--M.cbt<0){throw _2281;} -M.c.push(new RT.PromptFrame(_2283,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1265,1,[M.e[M.e.length-1]],"string->int"); -M.e[M.e.length-1][33]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _2236=function(M){if(--M.cbt<0){throw _2236;} -M.e.push([M.primitives["current-print-mode"],M.modules["collects/racket/private/modbeg.rkt"].namespace["print-values"],M.params.currentNamespace["1-LET"]||M.primitives["1-LET"],M.params.currentNamespace["1-LETTER"]||M.primitives["1-LETTER"],M.primitives["format"],M.params.currentNamespace["1-LETTER*"]||M.primitives["1-LETTER*"],M.params.currentNamespace["NAT"]||M.primitives["NAT"],M.params.currentNamespace["1-letter?"]||M.primitives["1-letter?"],M.primitives["string?"],M.params.currentNamespace["err"]||M.primitives["err"],M.primitives["string-length"],M.params.currentNamespace["1-letter*?"]||M.primitives["1-letter*?"],M.modules["whalesong/lang/private/map.rkt"].namespace["for-each2"],M.modules["whalesong/lang/private/map.rkt"].namespace["andmap2"],M.modules["whalesong/lang/private/list.rkt"].namespace["compose"],M.primitives["raise"],M.primitives["make-exn:fail:contract"],M.primitives["string-append"],M.primitives["symbol->string"],M.primitives["current-continuation-marks"],M.params.currentNamespace["a-or-an"]||M.primitives["a-or-an"],M.primitives["member"],M.primitives["string-ref"],M.params.currentNamespace["cerr"]||M.primitives["cerr"],M.params.currentNamespace["string-ith"]||M.primitives["string-ith"],M.primitives["number?"],M.primitives["integer?"],M.primitives["string"],M.params.currentNamespace["replicate"]||M.primitives["replicate"],M.primitives["exact-integer?"],M.modules["whalesong/lang/private/list.rkt"].namespace["build-list"],M.params.currentNamespace["int->string"]||M.primitives["int->string"],M.primitives["integer->char"],M.params.currentNamespace["string->int"]||M.primitives["string->int"],M.primitives["char->integer"],M.params.currentNamespace["explode"]||M.primitives["explode"],M.modules["whalesong/lang/private/map.rkt"].namespace["map2"],M.primitives["string->list"],M.params.currentNamespace["implode"]||M.primitives["implode"],M.params.currentNamespace["string-numeric?"]||M.primitives["string-numeric?"],M.primitives["char-numeric?"],M.params.currentNamespace["string-alphabetic?"]||M.primitives["string-alphabetic?"],M.primitives["char-alphabetic?"],M.params.currentNamespace["string-whitespace?"]||M.primitives["string-whitespace?"],M.primitives["char-whitespace?"],M.params.currentNamespace["string-upper-case?"]||M.primitives["string-upper-case?"],M.primitives["char-upper-case?"],M.params.currentNamespace["string-lower-case?"]||M.primitives["string-lower-case?"],M.primitives["char-lower-case?"],M.params.currentNamespace["-member"]||M.primitives["-member"]]);M.e[M.e.length-1].names=["current-print-mode","print-values","1-LET","1-LETTER","format","1-LETTER*","NAT","1-letter?","string?","err","string-length","1-letter*?","for-each2","andmap2","compose","raise","make-exn:fail:contract","string-append","symbol->string","current-continuation-marks","a-or-an","member","string-ref","cerr","string-ith","number?","integer?","string","replicate","exact-integer?","build-list","int->string","integer->char","string->int","char->integer","explode","map2","string->list","implode","string-numeric?","char-numeric?","string-alphabetic?","char-alphabetic?","string-whitespace?","char-whitespace?","string-upper-case?","char-upper-case?","string-lower-case?","char-lower-case?","-member"]; -M.modules["whalesong/cs019/cs019.rkt"].prefix=M.e[M.e.length-1]; -M.c.push(new RT.PromptFrame(_2238,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1][1]; -M.e.push(M.e[M.e.length-1][0]); -M.v="constructor"; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2244,M.p)); -return((M.p).label)(M);}; - -var _2265=function(M){if(--M.cbt<0){throw _2265;} -M.c.push(new RT.PromptFrame(_2267,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1252,2,[M.e[M.e.length-1]],"1-letter?"); -M.e[M.e.length-1][7]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _2259=function(M){if(--M.cbt<0){throw _2259;} -M.c.push(new RT.PromptFrame(_2265,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v="natural number"; -M.e[M.e.length-1][6]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _2238=function(M){if(--M.cbt<0){throw _2238;} -M.c.push(new RT.PromptFrame(_2251,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v="1-letter string"; -M.e[M.e.length-1][2]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _2216=function(M){if(--M.cbt<0){throw _2216;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=false; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.v=true; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.v=false; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _2194=function(M){if(--M.cbt<0){throw _2194;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2198,M.p)); -return((M.p).label)(M);}; - -var _2176=function(M){if(--M.cbt<0){throw _2176;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-5],RT.NULL); -M.e.push(M.e[M.e.length-4][15]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][16]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-10][4]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-13][17]; -M.e.push(M.e[M.e.length-13][18]); -M.v=RT.makeSymbol("string-lower-case?"); -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2182,M.p)); -return((M.p).label)(M);}; - -var _2157=function(M){if(--M.cbt<0){throw _2157;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2141=function(M){if(--M.cbt<0){throw _2141;} -M.e[M.e.length-1]=M.v; -M.p=M.e[M.e.length-7][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2145,M.p)); -return((M.p).label)(M);}; - -var _2123=function(M){if(--M.cbt<0){throw _2123;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-3]=" "; -M.e[M.e.length-4]="string"; -M.v=", but received ~e"; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2127,M.p)); -return((M.p).label)(M);}; - -var _2096=function(M){if(--M.cbt<0){throw _2096;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2100,M.p)); -return((M.p).label)(M);}; - -var _2067=function(M){if(--M.cbt<0){throw _2067;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.e.length+=1; -M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-8][17]; -M.e[M.e.length-1]="expected "; -M.e.push(M.e[M.e.length-8][20]); -M.v="string"; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2074,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_2068)(M);}}; - -var _2055=function(M){if(--M.cbt<0){throw _2055;} -M.e.length-=1; -M.e.length-=1; -return(_2019)(M);}; - -var _2039=function(M){if(--M.cbt<0){throw _2039;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2043,M.p)); -return((M.p).label)(M);}; - -var _2018=function(M){if(--M.cbt<0){throw _2018;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.e.length+=1; -M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-8][17]; -M.e[M.e.length-1]="expected "; -M.e.push(M.e[M.e.length-8][20]); -M.v="string"; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2025,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_2019)(M);}}; - -var _1998=function(M){if(--M.cbt<0){throw _1998;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2002,M.p)); -return((M.p).label)(M);}; - -var _1980=function(M){if(--M.cbt<0){throw _1980;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-5],RT.NULL); -M.e.push(M.e[M.e.length-4][15]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][16]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-10][4]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-13][17]; -M.e.push(M.e[M.e.length-13][18]); -M.v=RT.makeSymbol("string-numeric?"); -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1986,M.p)); -return((M.p).label)(M);}; - - -var _1261=function(M){if(--M.cbt<0){throw _1261;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=1; -M.e.push(M.e[M.e.length-2][8]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1499,M.p)); -return((M.p).label)(M);}; - -var _1258=function(M){if(--M.cbt<0){throw _1258;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){return(_1259)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_1260)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_1259)(M);}}; - -var _1891=function(M){if(--M.cbt<0){throw _1891;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=": "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1895,M.p)); -return((M.p).label)(M);}; - -var _1866=function(M){if(--M.cbt<0){throw _1866;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1854=function(M){if(--M.cbt<0){throw _1854;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1858,M.p)); -return((M.p).label)(M);}; - - -var _1812=function(M){if(--M.cbt<0){throw _1812;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1816,M.p)); -return((M.p).label)(M);}; - -var _1800=function(M){if(--M.cbt<0){throw _1800;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=": "; -M.v="expected a ~a, but received a string: ~e"; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1804,M.p)); -return((M.p).label)(M);}; - -var _1777=function(M){if(--M.cbt<0){throw _1777;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1781,M.p)); -return((M.p).label)(M);}; - -var _1755=function(M){if(--M.cbt<0){throw _1755;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-5],RT.NULL); -M.e.push(M.e[M.e.length-4][15]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][16]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-10][4]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-13][17]; -M.e.push(M.e[M.e.length-13][18]); -M.v=RT.makeSymbol("int->string"); -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1761,M.p)); -return((M.p).label)(M);}; - -var _1725=function(M){if(--M.cbt<0){throw _1725;} -M.e.length-=1; -M.e.length-=1; -return(_1689)(M);}; - - -var _1688=function(M){if(--M.cbt<0){throw _1688;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.e.length+=1; -M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-8][17]; -M.e[M.e.length-1]="expected "; -M.e.push(M.e[M.e.length-8][20]); -M.v="string"; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1695,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_1689)(M);}}; - -var _1672=function(M){if(--M.cbt<0){throw _1672;} -M.e[M.e.length-1]=M.v; -M.p=M.e[M.e.length-7][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1676,M.p)); -return((M.p).label)(M);}; - -var _1654=function(M){if(--M.cbt<0){throw _1654;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-3]=" "; -M.e[M.e.length-4]="natural number"; -M.v=", but received ~e"; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1658,M.p)); -return((M.p).label)(M);}; - -var _1641=function(M){if(--M.cbt<0){throw _1641;} -if(M.v===false){M.e[M.e.length-1]=false; -return(_1637)(M);}else{M.e.push(M.e[M.e.length-2][29]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1647,M.p)); -return((M.p).label)(M);}}; - -var _1615=function(M){if(--M.cbt<0){throw _1615;} -M.e[M.e.length-1]=M.v; -M.p=M.e[M.e.length-8][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1619,M.p)); -return((M.p).label)(M);}; - -var _1601=function(M){if(--M.cbt<0){throw _1601;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair("second",RT.makePair(M.e[M.e.length-7],RT.NULL)); -M.e.push(M.e[M.e.length-5][15]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][16]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-11][4]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-14][17]; -M.e.push(M.e[M.e.length-14][18]); -M.v=RT.makeSymbol("string-ith"); -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1607,M.p)); -return((M.p).label)(M);}; - -var _1573=function(M){if(--M.cbt<0){throw _1573;} -M.e[M.e.length-1]=M.v; -M.p=M.e[M.e.length-7][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1577,M.p)); -return((M.p).label)(M);}; - -var _1555=function(M){if(--M.cbt<0){throw _1555;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-3]=" "; -M.e[M.e.length-4]="natural number"; -M.v=" for the ~a argument, but received ~e"; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1559,M.p)); -return((M.p).label)(M);}; - -var _1542=function(M){if(--M.cbt<0){throw _1542;} -if(M.v===false){M.e[M.e.length-1]=false; -return(_1538)(M);}else{M.e.push(M.e[M.e.length-2][26]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1548,M.p)); -return((M.p).label)(M);}}; - -var _1516=function(M){if(--M.cbt<0){throw _1516;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=": "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1520,M.p)); -return((M.p).label)(M);}; - -var _1506=function(M){if(--M.cbt<0){throw _1506;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-3]=" "; -M.e[M.e.length-4]="string"; -M.v=" for the ~a argument, but received ~e"; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1510,M.p)); -return((M.p).label)(M);}; - -var _1475=function(M){if(--M.cbt<0){throw _1475;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=": "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1479,M.p)); -return((M.p).label)(M);}; - -var _1469=function(M){if(--M.cbt<0){throw _1469;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-8],RT.makePair(M.e[M.e.length-7],RT.NULL)); -M.e.push(M.e[M.e.length-3][15]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][16]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-9][4]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-12][17]; -M.e.push(M.e[M.e.length-12][18]); -M.v=M.e[M.e.length-14]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1475,M.p)); -return((M.p).label)(M);}; - -var _1447=function(M){if(--M.cbt<0){throw _1447;} -M.e[M.e.length-1]=M.v; -M.p=M.e[M.e.length-6][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1451,M.p)); -return((M.p).label)(M);}; - -var _1413=function(M){if(--M.cbt<0){throw _1413;} -M.e[M.e.length-1]=M.v; -M.v=0; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1417,M.p)); -return((M.p).label)(M);}; - -var _1403=function(M){if(--M.cbt<0){throw _1403;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1387=function(M){if(--M.cbt<0){throw _1387;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=": "; -M.v=M.e[M.e.length-12]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1391,M.p)); -return((M.p).label)(M);}; - -var _1367=function(M){if(--M.cbt<0){throw _1367;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1371,M.p)); -return((M.p).label)(M);}; - -var _1330=function(M){if(--M.cbt<0){throw _1330;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1334,M.p)); -return((M.p).label)(M);}; - -var _1322=function(M){if(--M.cbt<0){throw _1322;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1326,M.p)); -return((M.p).label)(M);}; - -var _1295=function(M){if(--M.cbt<0){throw _1295;} -M.e[M.e.length-1]=M.v; -M.p=M.e[M.e.length-5][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1299,M.p)); -return((M.p).label)(M);}; - -var _1287=function(M){if(--M.cbt<0){throw _1287;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=": "; -M.v="expected a ~a, but received a string: ~e"; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1291,M.p)); -return((M.p).label)(M);}; - -var _2292=function(M){if(--M.cbt<0){throw _2292;} -M.e.length-=(M.a-1); -return(_2293)(M);}; - -var _2284=function(M){if(--M.cbt<0){throw _2284;} -M.e.length-=(M.a-1); -return(_2285)(M);}; - -var _2276=function(M){if(--M.cbt<0){throw _2276;} -M.e.length-=(M.a-1); -return(_2277)(M);}; - -var _2268=function(M){if(--M.cbt<0){throw _2268;} -M.e.length-=(M.a-1); -return(_2269)(M);}; - - -var _2252=function(M){if(--M.cbt<0){throw _2252;} -M.e.length-=(M.a-1); -return(_2253)(M);}; - -var _2248=function(M){if(--M.cbt<0){throw _2248;} -M.e.length-=(M.a-1); -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _2235=function(M){if(--M.cbt<0){throw _2235;} -M.e.length-=(M.a-1); -return(_2236)(M);}; - -var _2233=function(M){if(--M.cbt<0){throw _2233;} -if((M.modules["whalesong/resource.rkt"]!==undefined)!==false){if(M.modules["whalesong/resource.rkt"].isInvoked!==false){return(_2236)(M);}else{M.c.push(new RT.CallFrame(_2236,M.p)); -return(M.modules["whalesong/resource.rkt"].label)(M);}}else{return(_2236)(M);}}; - -var _2257=function(M){if(--M.cbt<0){throw _2257;} -M.e[M.e.length-1][3]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _2224=function(M){if(--M.cbt<0){throw _2224;} -if((M.modules["whalesong/lang/whalesong.rkt"]!==undefined)!==false){if(M.modules["whalesong/lang/whalesong.rkt"].isInvoked!==false){return(_2227)(M);}else{M.c.push(new RT.CallFrame(_2227,M.p)); -return(M.modules["whalesong/lang/whalesong.rkt"].label)(M);}}else{return(_2227)(M);}}; - -var _2206=function(M){if(--M.cbt<0){throw _2206;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2190=function(M){if(--M.cbt<0){throw _2190;} -M.e[M.e.length-1]=M.v; -M.p=M.e[M.e.length-7][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2194,M.p)); -return((M.p).label)(M);}; - -var _2172=function(M){if(--M.cbt<0){throw _2172;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-3]=" "; -M.e[M.e.length-4]="string"; -M.v=", but received ~e"; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2176,M.p)); -return((M.p).label)(M);}; - -var _2153=function(M){if(--M.cbt<0){throw _2153;} -M.e.length-=1; -M.e.length-=1; -return(_2117)(M);}; - -var _2137=function(M){if(--M.cbt<0){throw _2137;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2141,M.p)); -return((M.p).label)(M);}; - -var _2116=function(M){if(--M.cbt<0){throw _2116;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.e.length+=1; -M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-8][17]; -M.e[M.e.length-1]="expected "; -M.e.push(M.e[M.e.length-8][20]); -M.v="string"; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2123,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_2117)(M);}}; - -var _2092=function(M){if(--M.cbt<0){throw _2092;} -M.e[M.e.length-1]=M.v; -M.p=M.e[M.e.length-7][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2096,M.p)); -return((M.p).label)(M);}; - - -var _2051=function(M){if(--M.cbt<0){throw _2051;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2055,M.p)); -return((M.p).label)(M);}; - -var _2035=function(M){if(--M.cbt<0){throw _2035;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=": "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2039,M.p)); -return((M.p).label)(M);}; - -var _2010=function(M){if(--M.cbt<0){throw _2010;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1994=function(M){if(--M.cbt<0){throw _1994;} -M.e[M.e.length-1]=M.v; -M.p=M.e[M.e.length-7][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1998,M.p)); -return((M.p).label)(M);}; - -var _1976=function(M){if(--M.cbt<0){throw _1976;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-3]=" "; -M.e[M.e.length-4]="string"; -M.v=", but received ~e"; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1980,M.p)); -return((M.p).label)(M);}; - -var _1271=function(M){if(--M.cbt<0){throw _1271;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=1; -M.e.push(M.e[M.e.length-2][8]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2116,M.p)); -return((M.p).label)(M);}; - - - - -var _1584=function(M){if(--M.cbt<0){throw _1584;} -M.e.length-=(M.a-1); -M.e.length-=1; -M.e.length-=1; -return(_1549)(M);}; - -var _1850=function(M){if(--M.cbt<0){throw _1850;} -M.e[M.e.length-1]=M.v; -M.p=M.e[M.e.length-8][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1854,M.p)); -return((M.p).label)(M);}; - -var _1270=function(M){if(--M.cbt<0){throw _1270;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=1; -M.e.push(M.e[M.e.length-2][8]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2067,M.p)); -return((M.p).label)(M);}; - - -var _1795=function(M){if(--M.cbt<0){throw _1795;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-3][3],RT.makePair(M.e[M.e.length-4],RT.NULL)); -M.e.push(M.e[M.e.length-3][15]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][16]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-9][4]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-12][17]; -M.e.push(M.e[M.e.length-12][18]); -M.v=RT.makeSymbol("string->int"); -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1800,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_1791)(M);}}; - -var _1773=function(M){if(--M.cbt<0){throw _1773;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1777,M.p)); -return((M.p).label)(M);}; - -var _1535=function(M){if(--M.cbt<0){throw _1535;} -M.e.length-=(M.a-1); -M.e.length-=1; -M.e.length-=1; -return(_1500)(M);}; - - -var _1269=function(M){if(--M.cbt<0){throw _1269;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=1; -M.e.push(M.e[M.e.length-2][8]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2018,M.p)); -return((M.p).label)(M);}; - - - -var _1664=function(M){if(--M.cbt<0){throw _1664;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=": "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1668,M.p)); -return((M.p).label)(M);}; - - -var _1268=function(M){if(--M.cbt<0){throw _1268;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=1; -M.e.push(M.e[M.e.length-2][8]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1969,M.p)); -return((M.p).label)(M);}; - -var _1589=function(M){if(--M.cbt<0){throw _1589;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=((plt.baselib.numbers.lessThan(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"<"),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],1,"<")))); -M.v=M.e[M.e.length-1]; -if(M.v===false){M.e.length+=1; -M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-9][17]; -M.e[M.e.length-1]="expected "; -M.e.push(M.e[M.e.length-9][20]); -M.v="exact integer in [0, length of the given string]"; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1597,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_1591)(M);}}; - -var _1581=function(M){if(--M.cbt<0){throw _1581;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1585,M.p)); -return((M.p).label)(M);}; - -var _1565=function(M){if(--M.cbt<0){throw _1565;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=": "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1569,M.p)); -return((M.p).label)(M);}; - - -var _1524=function(M){if(--M.cbt<0){throw _1524;} -M.e[M.e.length-1]=M.v; -M.p=M.e[M.e.length-7][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1528,M.p)); -return((M.p).label)(M);}; - -var _1267=function(M){if(--M.cbt<0){throw _1267;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4][11]; -M.e[M.e.length-1]=RT.makeSymbol("implode"); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1923,M.p)); -return((M.p).label)(M);}; - -var _1487=function(M){if(--M.cbt<0){throw _1487;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1491,M.p)); -return((M.p).label)(M);}; - - - -var _1421=function(M){if(--M.cbt<0){throw _1421;} -if(M.v===false){M.v="a"; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.v="an"; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1399=function(M){if(--M.cbt<0){throw _1399;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1403,M.p)); -return((M.p).label)(M);}; - -var _1371=function(M){if(--M.cbt<0){throw _1371;} -M.e[M.e.length-1]=M.v; -M.p=M.e[M.e.length-6][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1375,M.p)); -return((M.p).label)(M);}; - -var _1348=function(M){if(--M.cbt<0){throw _1348;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1338=function(M){if(--M.cbt<0){throw _1338;} -M.e.length-=1; -return(_1313)(M);}; - -var _1326=function(M){if(--M.cbt<0){throw _1326;} -M.e[M.e.length-1]=M.v; -M.p=M.e[M.e.length-5][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1330,M.p)); -return((M.p).label)(M);}; - -var _1303=function(M){if(--M.cbt<0){throw _1303;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1307,M.p)); -return((M.p).label)(M);}; - -var _1291=function(M){if(--M.cbt<0){throw _1291;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1295,M.p)); -return((M.p).label)(M);}; - -var _2290=function(M){if(--M.cbt<0){throw _2290;} -M.e.length-=(M.a-1); -return(_2291)(M);}; - -var _2282=function(M){if(--M.cbt<0){throw _2282;} -M.e.length-=(M.a-1); -return(_2283)(M);}; - -var _2274=function(M){if(--M.cbt<0){throw _2274;} -M.e.length-=(M.a-1); -return(_2275)(M);}; - -var _2266=function(M){if(--M.cbt<0){throw _2266;} -M.e.length-=(M.a-1); -return(_2267)(M);}; - -var _2258=function(M){if(--M.cbt<0){throw _2258;} -M.e.length-=(M.a-1); -return(_2259)(M);}; - -var _2250=function(M){if(--M.cbt<0){throw _2250;} -M.e.length-=(M.a-1); -return(_2251)(M);}; - -var _2237=function(M){if(--M.cbt<0){throw _2237;} -M.e.length-=(M.a-1); -return(_2238)(M);}; - -var _2232=function(M){if(--M.cbt<0){throw _2232;} -M.e.length-=(M.a-1); -return(_2233)(M);}; - -var _2230=function(M){if(--M.cbt<0){throw _2230;} -if((M.modules["whalesong/web-world.rkt"]!==undefined)!==false){if(M.modules["whalesong/web-world.rkt"].isInvoked!==false){return(_2233)(M);}else{M.c.push(new RT.CallFrame(_2233,M.p)); -return(M.modules["whalesong/web-world.rkt"].label)(M);}}else{return(_2233)(M);}}; - -var _2253=function(M){if(--M.cbt<0){throw _2253;} -M.c.push(new RT.PromptFrame(_2259,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][4]; -M.e[M.e.length-1]="list of ~as"; -M.v="1-letter string"; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2263,M.p)); -return((M.p).label)(M);}; - -var _2223=function(M){if(--M.cbt<0){throw _2223;} -M.e.length-=(M.a-1); -return(_2224)(M);}; - -var _2202=function(M){if(--M.cbt<0){throw _2202;} -M.e.length-=1; -M.e.length-=1; -return(_2166)(M);}; - -var _2186=function(M){if(--M.cbt<0){throw _2186;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2190,M.p)); -return((M.p).label)(M);}; - -var _2165=function(M){if(--M.cbt<0){throw _2165;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.e.length+=1; -M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-8][17]; -M.e[M.e.length-1]="expected "; -M.e.push(M.e[M.e.length-8][20]); -M.v="string"; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2172,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_2166)(M);}}; - -var _2149=function(M){if(--M.cbt<0){throw _2149;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2153,M.p)); -return((M.p).label)(M);}; - -var _2133=function(M){if(--M.cbt<0){throw _2133;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=": "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2137,M.p)); -return((M.p).label)(M);}; - -var _2108=function(M){if(--M.cbt<0){throw _2108;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2088=function(M){if(--M.cbt<0){throw _2088;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2092,M.p)); -return((M.p).label)(M);}; - -var _2084=function(M){if(--M.cbt<0){throw _2084;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=": "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2088,M.p)); -return((M.p).label)(M);}; - -var _2047=function(M){if(--M.cbt<0){throw _2047;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2051,M.p)); -return((M.p).label)(M);}; - -var _2029=function(M){if(--M.cbt<0){throw _2029;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-5],RT.NULL); -M.e.push(M.e[M.e.length-4][15]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][16]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-10][4]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-13][17]; -M.e.push(M.e[M.e.length-13][18]); -M.v=RT.makeSymbol("string-alphabetic?"); -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2035,M.p)); -return((M.p).label)(M);}; - -var _2006=function(M){if(--M.cbt<0){throw _2006;} -M.e.length-=1; -M.e.length-=1; -return(_1970)(M);}; - -var _1990=function(M){if(--M.cbt<0){throw _1990;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1994,M.p)); -return((M.p).label)(M);}; - -var _1969=function(M){if(--M.cbt<0){throw _1969;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.e.length+=1; -M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-8][17]; -M.e[M.e.length-1]="expected "; -M.e.push(M.e[M.e.length-8][20]); -M.v="string"; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1976,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_1970)(M);}}; - -var _1961=function(M){if(--M.cbt<0){throw _1961;} -M.e.length-=1; -M.e.length-=1; -return(_1925)(M);}; - -var _1945=function(M){if(--M.cbt<0){throw _1945;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1949,M.p)); -return((M.p).label)(M);}; - -var _1923=function(M){if(--M.cbt<0){throw _1923;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-2][5]); -M.v=M.e[M.e.length-2]; -if(M.v===false){M.e.length+=1; -M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-9][17]; -M.e[M.e.length-1]="expected "; -M.e.push(M.e[M.e.length-9][20]); -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1931,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_1925)(M);}}; - - - - -var _1846=function(M){if(--M.cbt<0){throw _1846;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1850,M.p)); -return((M.p).label)(M);}; - - - - - - -var _1721=function(M){if(--M.cbt<0){throw _1721;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1725,M.p)); -return((M.p).label)(M);}; - -var _2005=function(M){if(--M.cbt<0){throw _2005;} -M.e.length-=(M.a-1); -M.e.length-=1; -M.e.length-=1; -return(_1970)(M);}; - - - - - - - - - - - -var _1910=function(M){if(--M.cbt<0){throw _1910;} -M.e.length-=(M.a-1); -M.e.length-=1; -M.e.length-=1; -return(_1875)(M);}; - - - - - -var _1375=function(M){if(--M.cbt<0){throw _1375;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1379,M.p)); -return((M.p).label)(M);}; - -var _1363=function(M){if(--M.cbt<0){throw _1363;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=": "; -M.v="expected a ~a, but received: ~e"; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1367,M.p)); -return((M.p).label)(M);}; - - - -var _1307=function(M){if(--M.cbt<0){throw _1307;} -M.e.length-=1; -return(_1278)(M);}; - -var _1282=function(M){if(--M.cbt<0){throw _1282;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-2][3],RT.makePair(M.e[M.e.length-4],RT.NULL)); -M.e.push(M.e[M.e.length-2][15]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5][16]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-8][4]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-11][17]; -M.e.push(M.e[M.e.length-11][18]); -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1287,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.v=RT.VOID; -return(_1278)(M);}}; - -var _1819=function(M){if(--M.cbt<0){throw _1819;} -M.e.length-=(M.a-1); -M.e.length-=1; -return(_1791)(M);}; - - - - -var _2300=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_1276,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/cs019/cs019.rkt"]=new RT.ModuleRecord("cs019",_2218); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1780=function(M){if(--M.cbt<0){throw _1780;} -M.e.length-=(M.a-1); -M.e.length-=1; -M.e.length-=1; -return(_1745)(M);}; - - - -var _2229=function(M){if(--M.cbt<0){throw _2229;} -M.e.length-=(M.a-1); -return(_2230)(M);}; - -var _2227=function(M){if(--M.cbt<0){throw _2227;} -if((M.modules["whalesong/image.rkt"]!==undefined)!==false){if(M.modules["whalesong/image.rkt"].isInvoked!==false){return(_2230)(M);}else{M.c.push(new RT.CallFrame(_2230,M.p)); -return(M.modules["whalesong/image.rkt"].label)(M);}}else{return(_2230)(M);}}; - -var _2220=function(M){if(--M.cbt<0){throw _2220;} -M.e.length-=(M.a-1); -return(_2221)(M);}; - -var _1276=function(M){if(--M.cbt<0){throw _1276;} -}; - -var _1724=function(M){if(--M.cbt<0){throw _1724;} -M.e.length-=(M.a-1); -M.e.length-=1; -M.e.length-=1; -return(_1689)(M);}; - - -var _2145=function(M){if(--M.cbt<0){throw _2145;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2149,M.p)); -return((M.p).label)(M);}; - -var _2127=function(M){if(--M.cbt<0){throw _2127;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-5],RT.NULL); -M.e.push(M.e[M.e.length-4][15]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][16]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-10][4]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-13][17]; -M.e.push(M.e[M.e.length-13][18]); -M.v=RT.makeSymbol("string-upper-case?"); -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2133,M.p)); -return((M.p).label)(M);}; - -var _2104=function(M){if(--M.cbt<0){throw _2104;} -M.e.length-=1; -M.e.length-=1; -return(_2068)(M);}; - -var _2100=function(M){if(--M.cbt<0){throw _2100;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2104,M.p)); -return((M.p).label)(M);}; - -var _2078=function(M){if(--M.cbt<0){throw _2078;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-5],RT.NULL); -M.e.push(M.e[M.e.length-4][15]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][16]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-10][4]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-13][17]; -M.e.push(M.e[M.e.length-13][18]); -M.v=RT.makeSymbol("string-upper-case?"); -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2084,M.p)); -return((M.p).label)(M);}; - -var _2059=function(M){if(--M.cbt<0){throw _2059;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2043=function(M){if(--M.cbt<0){throw _2043;} -M.e[M.e.length-1]=M.v; -M.p=M.e[M.e.length-7][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2047,M.p)); -return((M.p).label)(M);}; - -var _2025=function(M){if(--M.cbt<0){throw _2025;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-3]=" "; -M.e[M.e.length-4]="string"; -M.v=", but received ~e"; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2029,M.p)); -return((M.p).label)(M);}; - -var _2002=function(M){if(--M.cbt<0){throw _2002;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2006,M.p)); -return((M.p).label)(M);}; - -var _1986=function(M){if(--M.cbt<0){throw _1986;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=": "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1990,M.p)); -return((M.p).label)(M);}; - -var _1957=function(M){if(--M.cbt<0){throw _1957;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1961,M.p)); -return((M.p).label)(M);}; - -var _1941=function(M){if(--M.cbt<0){throw _1941;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=": "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1945,M.p)); -return((M.p).label)(M);}; - -var _1915=function(M){if(--M.cbt<0){throw _1915;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1903=function(M){if(--M.cbt<0){throw _1903;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1907,M.p)); -return((M.p).label)(M);}; - -var _1885=function(M){if(--M.cbt<0){throw _1885;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-5],RT.NULL); -M.e.push(M.e[M.e.length-4][15]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][16]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-10][4]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-13][17]; -M.e.push(M.e[M.e.length-13][18]); -M.v=RT.makeSymbol("explode"); -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1891,M.p)); -return((M.p).label)(M);}; - -var _1862=function(M){if(--M.cbt<0){throw _1862;} -M.e.length-=1; -M.e.length-=1; -return(_1826)(M);}; - -var _1842=function(M){if(--M.cbt<0){throw _1842;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=": "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1846,M.p)); -return((M.p).label)(M);}; - -var _1824=function(M){if(--M.cbt<0){throw _1824;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=1; -M.e[M.e.length-3]=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),M.e[M.e.length-2]))); -M.e.length-=2; -M.e.push(M.e[M.e.length-2][3]); -M.v=M.e[M.e.length-2]; -if(M.v===false){M.e.length+=1; -M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-9][17]; -M.e[M.e.length-1]="expected "; -M.e.push(M.e[M.e.length-9][20]); -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1832,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_1826)(M);}}; - -var _1808=function(M){if(--M.cbt<0){throw _1808;} -M.e[M.e.length-1]=M.v; -M.p=M.e[M.e.length-6][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1812,M.p)); -return((M.p).label)(M);}; - -var _1785=function(M){if(--M.cbt<0){throw _1785;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1769=function(M){if(--M.cbt<0){throw _1769;} -M.e[M.e.length-1]=M.v; -M.p=M.e[M.e.length-7][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1773,M.p)); -return((M.p).label)(M);}; - -var _1751=function(M){if(--M.cbt<0){throw _1751;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-3]=" "; -M.e[M.e.length-4]="exact integer in [0,55295] or [57344 1114111]"; -M.v=", but received ~e"; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1755,M.p)); -return((M.p).label)(M);}; - -var _1717=function(M){if(--M.cbt<0){throw _1717;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1721,M.p)); -return((M.p).label)(M);}; - -var _1705=function(M){if(--M.cbt<0){throw _1705;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=": "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1709,M.p)); -return((M.p).label)(M);}; - -var _1684=function(M){if(--M.cbt<0){throw _1684;} -M.e.length-=1; -M.e.length-=1; -return(_1648)(M);}; - -var _1658=function(M){if(--M.cbt<0){throw _1658;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-5],RT.NULL); -M.e.push(M.e[M.e.length-4][15]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][16]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-10][4]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-13][17]; -M.e.push(M.e[M.e.length-13][18]); -M.v=RT.makeSymbol("replicate"); -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1664,M.p)); -return((M.p).label)(M);}; - -var _1631=function(M){if(--M.cbt<0){throw _1631;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1623=function(M){if(--M.cbt<0){throw _1623;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1627,M.p)); -return((M.p).label)(M);}; - -var _1607=function(M){if(--M.cbt<0){throw _1607;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=": "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1611,M.p)); -return((M.p).label)(M);}; - -var _1585=function(M){if(--M.cbt<0){throw _1585;} -M.e.length-=1; -M.e.length-=1; -return(_1549)(M);}; - -var _1559=function(M){if(--M.cbt<0){throw _1559;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair("second",RT.makePair(M.e[M.e.length-6],RT.NULL)); -M.e.push(M.e[M.e.length-4][15]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][16]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-10][4]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-13][17]; -M.e.push(M.e[M.e.length-13][18]); -M.v=RT.makeSymbol("string-ith"); -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1565,M.p)); -return((M.p).label)(M);}; - -var _1536=function(M){if(--M.cbt<0){throw _1536;} -M.e.length-=1; -M.e.length-=1; -return(_1500)(M);}; - -var _1520=function(M){if(--M.cbt<0){throw _1520;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1524,M.p)); -return((M.p).label)(M);}; - -var _1499=function(M){if(--M.cbt<0){throw _1499;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.e.length+=1; -M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-8][17]; -M.e[M.e.length-1]="expected "; -M.e.push(M.e[M.e.length-8][20]); -M.v="string"; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1506,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_1500)(M);}}; - -var _1483=function(M){if(--M.cbt<0){throw _1483;} -M.e[M.e.length-1]=M.v; -M.p=M.e[M.e.length-6][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1487,M.p)); -return((M.p).label)(M);}; - -var _1465=function(M){if(--M.cbt<0){throw _1465;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-3]=" "; -M.e[M.e.length-4]=M.e[M.e.length-10]; -M.v=" for the ~a argument, but received ~e"; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1469,M.p)); -return((M.p).label)(M);}; - -var _1443=function(M){if(--M.cbt<0){throw _1443;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1447,M.p)); -return((M.p).label)(M);}; - - - -var _1266=function(M){if(--M.cbt<0){throw _1266;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=1; -M.e.push(M.e[M.e.length-2][8]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1874,M.p)); -return((M.p).label)(M);}; - - - - - -var _1343=function(M){if(--M.cbt<0){throw _1343;} -M.e.length-=(M.a-1); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][13]; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5][14]; -M.e[M.e.length-1]=new RT.Closure(_1255,1,[],".../cs019/cs019.rkt:273:19"); -M.v=M.e[M.e.length-5][10]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1348,M.p)); -return((M.p).label)(M);}; - - - - - - - - - - -var _2226=function(M){if(--M.cbt<0){throw _2226;} -M.e.length-=(M.a-1); -return(_2227)(M);}; - - - -var _1275=function(M){if(--M.cbt<0){throw _1275;} -M.e.length-=M.a; -return(_1276)(M);}; - -var _1273=function(M){if(--M.cbt<0){throw _1273;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=2; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5][21]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2216,M.p)); -return((M.p).label)(M);}; - - - - -var _1683=function(M){if(--M.cbt<0){throw _1683;} -M.e.length-=(M.a-1); -M.e.length-=1; -M.e.length-=1; -return(_1648)(M);}; - -var _1272=function(M){if(--M.cbt<0){throw _1272;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=1; -M.e.push(M.e[M.e.length-2][8]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2165,M.p)); -return((M.p).label)(M);}; - - - - -var _1262=function(M){if(--M.cbt<0){throw _1262;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=1; -M.e.push(M.e[M.e.length-2][25]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1641,M.p)); -return((M.p).label)(M);}; - - - -var _2103=function(M){if(--M.cbt<0){throw _2103;} -M.e.length-=(M.a-1); -M.e.length-=1; -M.e.length-=1; -return(_2068)(M);}; - - - - - - -var _2054=function(M){if(--M.cbt<0){throw _2054;} -M.e.length-=(M.a-1); -M.e.length-=1; -M.e.length-=1; -return(_2019)(M);}; - - - - - - - - - - - -var _1960=function(M){if(--M.cbt<0){throw _1960;} -M.e.length-=(M.a-1); -M.e.length-=1; -M.e.length-=1; -return(_1925)(M);}; - - - - - - - - - - - - -var _1861=function(M){if(--M.cbt<0){throw _1861;} -M.e.length-=(M.a-1); -M.e.length-=1; -M.e.length-=1; -return(_1826)(M);}; - - - - - -var _1337=function(M){if(--M.cbt<0){throw _1337;} -M.e.length-=(M.a-1); -M.e.length-=1; -return(_1313)(M);}; - - - -var _1265=function(M){if(--M.cbt<0){throw _1265;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=1; -M.e.push(M.e[M.e.length-2][8]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1795,M.p)); -return((M.p).label)(M);}; - - - - -var _1252=function(M){if(--M.cbt<0){throw _1252;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][8]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1282,M.p)); -return((M.p).label)(M);}; - - -var _1737=function(M){--M.cbt<0; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.e.length+=1; -M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-8][17]; -M.e[M.e.length-1]="expected "; -M.e.push(M.e[M.e.length-8][20]); -M.v="exact integer in [0,55295] or [57344 1114111]"; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1751,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_1745)(M);}}; - -var _1264=function(M){if(--M.cbt<0){throw _1264;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=1; -M.e.push(M.e[M.e.length-2][29]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1741,M.p)); -return((M.p).label)(M);}; - -var _1263=function(M){if(--M.cbt<0){throw _1263;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=M.e[M.e.length-1]; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - - - - - - - - - - - - -var _1626=function(M){if(--M.cbt<0){throw _1626;} -M.e.length-=(M.a-1); -M.e.length-=1; -M.e.length-=1; -return(_1591)(M);}; - - - - - - - - - - - - - - - - - - - - - - - - - -var _1257=function(M){if(--M.cbt<0){throw _1257;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][21]; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5][22]; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][4]; -M.e[M.e.length-1]="~a"; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1413,M.p)); -return((M.p).label)(M);}; - - - -var _1256=function(M){if(--M.cbt<0){throw _1256;} -M.unspliceRestFromStack(2,(M.a-2)); -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][15]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4][16]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-7][4]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][17]; -M.e.push(M.e[M.e.length-10][18]); -M.v=M.e[M.e.length-12]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1387,M.p)); -return((M.p).label)(M);}; - - - - - -var _1254=function(M){if(--M.cbt<0){throw _1254;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-2][8]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1358,M.p)); -return((M.p).label)(M);}; - - - - -var _1253=function(M){if(--M.cbt<0){throw _1253;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isList(M.e[M.e.length-3]); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-2][5],RT.makePair(M.e[M.e.length-4],RT.NULL)); -M.e.push(M.e[M.e.length-2][15]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5][16]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-8][4]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-11][17]; -M.e.push(M.e[M.e.length-11][18]); -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1318,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_1313)(M);}}; - -var _1306=function(M){if(--M.cbt<0){throw _1306;} -M.e.length-=(M.a-1); -M.e.length-=1; -return(_1278)(M);}; - - - - -var _2242=function(M){if(--M.cbt<0){throw _2242;} -if(M.a===0){return(_2240)(M);}else{M.e.push(M.v); -return(_2240)(M);}}; - -var _2166=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][13]; -M.e[M.e.length-1]=M.e[M.e.length-3][48]; -M.e.push(M.e[M.e.length-3][37]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2206,M.p)); -return((M.p).label)(M);}; - -var _2117=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][13]; -M.e[M.e.length-1]=M.e[M.e.length-3][46]; -M.e.push(M.e[M.e.length-3][37]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2157,M.p)); -return((M.p).label)(M);}; - -var _2068=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][13]; -M.e[M.e.length-1]=M.e[M.e.length-3][44]; -M.e.push(M.e[M.e.length-3][37]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2108,M.p)); -return((M.p).label)(M);}; - -var _2019=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][13]; -M.e[M.e.length-1]=M.e[M.e.length-3][42]; -M.e.push(M.e[M.e.length-3][37]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2059,M.p)); -return((M.p).label)(M);}; - -var _1970=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][13]; -M.e[M.e.length-1]=M.e[M.e.length-3][40]; -M.e.push(M.e[M.e.length-3][37]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2010,M.p)); -return((M.p).label)(M);}; - -var _1925=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-3][17]; -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1875=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][36]; -M.e[M.e.length-1]=M.e[M.e.length-3][27]; -M.e.push(M.e[M.e.length-3][37]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1915,M.p)); -return((M.p).label)(M);}; - -var _1826=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.e.push(M.e[M.e.length-1][34]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4][22]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=0; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1866,M.p)); -return((M.p).label)(M);}; - -var _1745=function(M){--M.cbt<0; -M.e.length-=1; -M.e.push(M.e[M.e.length-1][27]); -M.e.push(M.e[M.e.length-2][32]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1785,M.p)); -return((M.p).label)(M);}; - -var _1689=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-3][17]; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5][30]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=new RT.Closure(_1263,1,[M.e[M.e.length-7]],".../cs019/cs019.rkt:311:39"); -M.a=1; -if(M.a===0){return(_1726)(M);}else{M.e.push(M.v); -return(_1726)(M);}}; - -var _1648=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length+=1; -M.e.push(M.e[M.e.length-2][8]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1688,M.p)); -return((M.p).label)(M);}; - -var _1591=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.e.push(M.e[M.e.length-1][27]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4][22]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1631,M.p)); -return((M.p).label)(M);}; - -var _1549=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length+=1; -M.e.push(M.e[M.e.length-2][10]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1589,M.p)); -return((M.p).label)(M);}; - -var _1500=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length+=1; -M.e.push(M.e[M.e.length-2][25]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1542,M.p)); -return((M.p).label)(M);}; - -var _1260=function(M){if(--M.cbt<0){throw _1260;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=M.e[M.e.length-3]; -if(M.v===false){M.e.length+=1; -M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-7][17]; -M.e[M.e.length-1]="expected "; -M.e.push(M.e[M.e.length-7][20]); -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1465,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1259=function(M){if(--M.cbt<0){throw _1259;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=M.e[M.e.length-3]; -if(M.v===false){M.e.length+=1; -M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-7][17]; -M.e[M.e.length-1]="expected "; -M.e.push(M.e[M.e.length-7][20]); -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1429,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1255=function(M){if(--M.cbt<0){throw _1255;} -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),1))); -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -_1307.mvr=_1306; -_1338.mvr=_1337; -_1344.mvr=_1343; -_1536.mvr=_1535; -_1585.mvr=_1584; -_1627.mvr=_1626; -_1684.mvr=_1683; -_1725.mvr=_1724; -_1781.mvr=_1780; -_1820.mvr=_1819; -_1862.mvr=_1861; -_1911.mvr=_1910; -_1961.mvr=_1960; -_2006.mvr=_2005; -_2055.mvr=_2054; -_2104.mvr=_2103; -_2153.mvr=_2152; -_2202.mvr=_2201; -_2221.mvr=_2220; -_2224.mvr=_2223; -_2227.mvr=_2226; -_2230.mvr=_2229; -_2233.mvr=_2232; -_2236.mvr=_2235; -_2244.mvr=_2242; -_2249.mvr=_2248; -_2238.mvr=_2237; -_2251.mvr=_2250; -_2253.mvr=_2252; -_2259.mvr=_2258; -_2265.mvr=_2264; -_2267.mvr=_2266; -_2269.mvr=_2268; -_2271.mvr=_2270; -_2273.mvr=_2272; -_2275.mvr=_2274; -_2277.mvr=_2276; -_2279.mvr=_2278; -_2281.mvr=_2280; -_2283.mvr=_2282; -_2285.mvr=_2284; -_2287.mvr=_2286; -_2289.mvr=_2288; -_2291.mvr=_2290; -_2293.mvr=_2292; -_2295.mvr=_2294; -_2297.mvr=_2296; -_2299.mvr=_2298; -_1276.mvr=_1275; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_2300, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _11511=function(M){if(--M.cbt<0){throw _11511;} -M.e.length-=(M.a-1); -return(_11512)(M);}; - -var _11509=function(M){if(--M.cbt<0){throw _11509;} -if((M.modules["whalesong/lang/bool.rkt"]!==undefined)!==false){if(M.modules["whalesong/lang/bool.rkt"].isInvoked!==false){return(_11512)(M);}else{M.c.push(new RT.CallFrame(_11512,M.p)); -return(M.modules["whalesong/lang/bool.rkt"].label)(M);}}else{return(_11512)(M);}}; - -var _11506=function(M){if(--M.cbt<0){throw _11506;} -if((M.modules["whalesong/lang/check-expect/check-expect.rkt"]!==undefined)!==false){if(M.modules["whalesong/lang/check-expect/check-expect.rkt"].isInvoked!==false){return(_11509)(M);}else{M.c.push(new RT.CallFrame(_11509,M.p)); -return(M.modules["whalesong/lang/check-expect/check-expect.rkt"].label)(M);}}else{return(_11509)(M);}}; - -var _11503=function(M){if(--M.cbt<0){throw _11503;} -if((M.modules["whalesong/lang/private/shared.rkt"]!==undefined)!==false){if(M.modules["whalesong/lang/private/shared.rkt"].isInvoked!==false){return(_11506)(M);}else{M.c.push(new RT.CallFrame(_11506,M.p)); -return(M.modules["whalesong/lang/private/shared.rkt"].label)(M);}}else{return(_11506)(M);}}; - -var _11495=function(M){if(--M.cbt<0){throw _11495;} -}; - -var _11512=function(M){if(--M.cbt<0){throw _11512;} -if((M.modules["whalesong/lang/posn.rkt"]!==undefined)!==false){if(M.modules["whalesong/lang/posn.rkt"].isInvoked!==false){return(_11515)(M);}else{M.c.push(new RT.CallFrame(_11515,M.p)); -return(M.modules["whalesong/lang/posn.rkt"].label)(M);}}else{return(_11515)(M);}}; - -var _11508=function(M){if(--M.cbt<0){throw _11508;} -M.e.length-=(M.a-1); -return(_11509)(M);}; - -var _11505=function(M){if(--M.cbt<0){throw _11505;} -M.e.length-=(M.a-1); -return(_11506)(M);}; - -var _11500=function(M){if(--M.cbt<0){throw _11500;} -if((M.modules["whalesong/lang/private/traced-app.rkt"]!==undefined)!==false){if(M.modules["whalesong/lang/private/traced-app.rkt"].isInvoked!==false){return(_11503)(M);}else{M.c.push(new RT.CallFrame(_11503,M.p)); -return(M.modules["whalesong/lang/private/traced-app.rkt"].label)(M);}}else{return(_11503)(M);}}; - -var _11494=function(M){if(--M.cbt<0){throw _11494;} -M.e.length-=M.a; -return(_11495)(M);}; - -var _11515=function(M){if(--M.cbt<0){throw _11515;} -M.e.push([]);M.e[M.e.length-1].names=[]; -M.modules["whalesong/lang/whalesong.rkt"].prefix=M.e[M.e.length-1]; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/lang/whalesong.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - -var _11502=function(M){if(--M.cbt<0){throw _11502;} -M.e.length-=(M.a-1); -return(_11503)(M);}; - -var _11499=function(M){if(--M.cbt<0){throw _11499;} -M.e.length-=(M.a-1); -return(_11500)(M);}; - -var _11497=function(M){--M.cbt<0; -M.modules["whalesong/lang/whalesong.rkt"].isInvoked=true; -if((M.modules["whalesong/lang/base.rkt"]!==undefined)!==false){if(M.modules["whalesong/lang/base.rkt"].isInvoked!==false){return(_11500)(M);}else{M.c.push(new RT.CallFrame(_11500,M.p)); -return(M.modules["whalesong/lang/base.rkt"].label)(M);}}else{return(_11500)(M);}}; - -var _11514=function(M){if(--M.cbt<0){throw _11514;} -M.e.length-=(M.a-1); -return(_11515)(M);}; - -var _11516=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_11495,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/lang/whalesong.rkt"]=new RT.ModuleRecord("whalesong",_11497); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -_11500.mvr=_11499; -_11503.mvr=_11502; -_11506.mvr=_11505; -_11509.mvr=_11508; -_11512.mvr=_11511; -_11515.mvr=_11514; -_11495.mvr=_11494; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_11516, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _12513=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_12503,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/lang/private/shared.rkt"]=new RT.ModuleRecord("shared",_12505); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _12503=function(M){if(--M.cbt<0){throw _12503;} -}; - -var _12507=function(M){if(--M.cbt<0){throw _12507;} -M.e.length-=(M.a-1); -return(_12508)(M);}; - -var _12505=function(M){--M.cbt<0; -M.modules["whalesong/lang/private/shared.rkt"].isInvoked=true; -if((M.modules["whalesong/lang/private/traced-app.rkt"]!==undefined)!==false){if(M.modules["whalesong/lang/private/traced-app.rkt"].isInvoked!==false){return(_12508)(M);}else{M.c.push(new RT.CallFrame(_12508,M.p)); -return(M.modules["whalesong/lang/private/traced-app.rkt"].label)(M);}}else{return(_12508)(M);}}; - -var _12510=function(M){if(--M.cbt<0){throw _12510;} -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/lang/private/shared.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - -var _12509=function(M){if(--M.cbt<0){throw _12509;} -M.e.length-=(M.a-1); -return(_12510)(M);}; - -var _12508=function(M){if(--M.cbt<0){throw _12508;} -M.e.push([M.params.currentNamespace["undefined"]||M.primitives["undefined"]]);M.e[M.e.length-1].names=["undefined"]; -M.modules["whalesong/lang/private/shared.rkt"].prefix=M.e[M.e.length-1]; -M.c.push(new RT.PromptFrame(_12510,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([undefined]); -M.v=M.e[M.e.length-1][0]; -M.e.length-=1; -M.e[M.e.length-1][0]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _12502=function(M){if(--M.cbt<0){throw _12502;} -M.e.length-=M.a; -return(_12503)(M);}; - -_12508.mvr=_12507; -_12510.mvr=_12509; -_12503.mvr=_12502; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_12513, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; - -var _12518=function(M){--M.cbt<0; -M.modules["whalesong/lang/private/traced-app.rkt"].isInvoked=true; -M.e.push([M.params.currentNamespace["traced-app-key"]||M.primitives["traced-app-key"],M.params.currentNamespace["traced-callee-key"]||M.primitives["traced-callee-key"]]);M.e[M.e.length-1].names=["traced-app-key","traced-callee-key"]; -M.modules["whalesong/lang/private/traced-app.rkt"].prefix=M.e[M.e.length-1]; -M.c.push(new RT.PromptFrame(_12520,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push(M.primitives["gensym"]); -M.v=RT.makeSymbol("traced-app-key"); -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12524,M.p)); -return((M.p).label)(M);}; - -var _12531=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_12516,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/lang/private/traced-app.rkt"]=new RT.ModuleRecord("traced-app",_12518); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _12516=function(M){if(--M.cbt<0){throw _12516;} -}; - - -var _12515=function(M){if(--M.cbt<0){throw _12515;} -M.e.length-=M.a; -return(_12516)(M);}; - -var _12526=function(M){if(--M.cbt<0){throw _12526;} -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/lang/private/traced-app.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - -var _12520=function(M){if(--M.cbt<0){throw _12520;} -M.c.push(new RT.PromptFrame(_12526,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push(M.primitives["gensym"]); -M.v=RT.makeSymbol("traced-callee-key"); -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12530,M.p)); -return((M.p).label)(M);}; - -var _12525=function(M){if(--M.cbt<0){throw _12525;} -M.e.length-=(M.a-1); -return(_12526)(M);}; - -var _12519=function(M){if(--M.cbt<0){throw _12519;} -M.e.length-=(M.a-1); -return(_12520)(M);}; - -var _12530=function(M){if(--M.cbt<0){throw _12530;} -M.e[M.e.length-1][1]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _12524=function(M){if(--M.cbt<0){throw _12524;} -M.e[M.e.length-1][0]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -_12520.mvr=_12519; -_12526.mvr=_12525; -_12516.mvr=_12515; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_12531, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _1519=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_1501,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/lang/base.rkt"]=new RT.ModuleRecord("base",_1503); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1514=function(M){if(--M.cbt<0){throw _1514;} -M.e.length-=(M.a-1); -return(_1515)(M);}; - -var _1508=function(M){if(--M.cbt<0){throw _1508;} -M.e.length-=(M.a-1); -return(_1509)(M);}; - -var _1505=function(M){if(--M.cbt<0){throw _1505;} -M.e.length-=(M.a-1); -return(_1506)(M);}; - -var _1500=function(M){if(--M.cbt<0){throw _1500;} -M.e.length-=M.a; -return(_1501)(M);}; - -var _1501=function(M){if(--M.cbt<0){throw _1501;} -}; - -var _1515=function(M){if(--M.cbt<0){throw _1515;} -if((M.modules["collects/racket/private/modbeg.rkt"]!==undefined)!==false){if(M.modules["collects/racket/private/modbeg.rkt"].isInvoked!==false){return(_1518)(M);}else{M.c.push(new RT.CallFrame(_1518,M.p)); -return(M.modules["collects/racket/private/modbeg.rkt"].label)(M);}}else{return(_1518)(M);}}; - -var _1512=function(M){if(--M.cbt<0){throw _1512;} -if((M.modules["whalesong/lang/private/qq-and-or.rkt"]!==undefined)!==false){if(M.modules["whalesong/lang/private/qq-and-or.rkt"].isInvoked!==false){return(_1515)(M);}else{M.c.push(new RT.CallFrame(_1515,M.p)); -return(M.modules["whalesong/lang/private/qq-and-or.rkt"].label)(M);}}else{return(_1515)(M);}}; - -var _1509=function(M){if(--M.cbt<0){throw _1509;} -if((M.modules["whalesong/lang/list.rkt"]!==undefined)!==false){if(M.modules["whalesong/lang/list.rkt"].isInvoked!==false){return(_1512)(M);}else{M.c.push(new RT.CallFrame(_1512,M.p)); -return(M.modules["whalesong/lang/list.rkt"].label)(M);}}else{return(_1512)(M);}}; - -var _1503=function(M){--M.cbt<0; -M.modules["whalesong/lang/base.rkt"].isInvoked=true; -if((M.modules["whalesong/lang/private/list.rkt"]!==undefined)!==false){if(M.modules["whalesong/lang/private/list.rkt"].isInvoked!==false){return(_1506)(M);}else{M.c.push(new RT.CallFrame(_1506,M.p)); -return(M.modules["whalesong/lang/private/list.rkt"].label)(M);}}else{return(_1506)(M);}}; - -var _1517=function(M){if(--M.cbt<0){throw _1517;} -M.e.length-=(M.a-1); -return(_1518)(M);}; - -var _1511=function(M){if(--M.cbt<0){throw _1511;} -M.e.length-=(M.a-1); -return(_1512)(M);}; - -var _1506=function(M){if(--M.cbt<0){throw _1506;} -if((M.modules["whalesong/lang/private/map.rkt"]!==undefined)!==false){if(M.modules["whalesong/lang/private/map.rkt"].isInvoked!==false){return(_1509)(M);}else{M.c.push(new RT.CallFrame(_1509,M.p)); -return(M.modules["whalesong/lang/private/map.rkt"].label)(M);}}else{return(_1509)(M);}}; - -var _1518=function(M){if(--M.cbt<0){throw _1518;} -M.e.push([]);M.e[M.e.length-1].names=[]; -M.modules["whalesong/lang/base.rkt"].prefix=M.e[M.e.length-1]; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/lang/base.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - -_1506.mvr=_1505; -_1509.mvr=_1508; -_1512.mvr=_1511; -_1515.mvr=_1514; -_1518.mvr=_1517; -_1501.mvr=_1500; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_1519, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _10108=function(M){if(--M.cbt<0){throw _10108;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-6]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10120,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-5][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=7; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10097=function(M){if(--M.cbt<0){throw _10097;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-5]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10109,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-4][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=6; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10086=function(M){if(--M.cbt<0){throw _10086;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-4]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10098,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-3][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=5; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10075=function(M){if(--M.cbt<0){throw _10075;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-3]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10087,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-2][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=4; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _9955=function(M){if(--M.cbt<0){throw _9955;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][1]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10563,M.p)); -return((M.p).label)(M);}; - -var _10061=function(M){if(--M.cbt<0){throw _10061;} -M.e.length-=(M.a-1); -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-18][13]; -M.e[M.e.length-1]=M.e[M.e.length-19]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+18),18); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _10049=function(M){if(--M.cbt<0){throw _10049;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-18]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10062,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-15][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=18; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10037=function(M){if(--M.cbt<0){throw _10037;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-16]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10050,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-13][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=16; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10025=function(M){if(--M.cbt<0){throw _10025;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-14]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10038,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-11][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=14; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10013=function(M){if(--M.cbt<0){throw _10013;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10026,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-9][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=12; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10001=function(M){if(--M.cbt<0){throw _10001;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10014,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-7][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=10; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _9989=function(M){if(--M.cbt<0){throw _9989;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10002,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-5][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=8; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _9977=function(M){if(--M.cbt<0){throw _9977;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9990,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-3][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=6; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _9942=function(M){if(--M.cbt<0){throw _9942;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9978,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-1][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=4; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10362=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_10354)(M);}; - -var _10386=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_10378)(M);}; - -var _10309=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_10301)(M);}; - -var _10215=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9964=function(M){if(--M.cbt<0){throw _9964;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11242,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10243=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_10236)(M);}; - -var _10257=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_10250)(M);}; - -var _10181=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9945=function(M){if(--M.cbt<0){throw _9945;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][1]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10168,M.p)); -return((M.p).label)(M);}; - -var _9962=function(M){if(--M.cbt<0){throw _9962;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-2]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11034,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-1]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _9959=function(M){if(--M.cbt<0){throw _9959;} -M.unspliceRestFromStack(1,(M.a-1)); -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-4][9]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _9958=function(M){if(--M.cbt<0){throw _9958;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10837,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _9957=function(M){if(--M.cbt<0){throw _9957;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][1]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10744,M.p)); -return((M.p).label)(M);}; - -var _9956=function(M){if(--M.cbt<0){throw _9956;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.push(M.e[M.e.length-1]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10641,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-1]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _9953=function(M){if(--M.cbt<0){throw _9953;} -M.unspliceRestFromStack(1,(M.a-1)); -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-4][7]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _9952=function(M){if(--M.cbt<0){throw _9952;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][1]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10476,M.p)); -return((M.p).label)(M);}; - -var _9951=function(M){if(--M.cbt<0){throw _9951;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][1]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10411,M.p)); -return((M.p).label)(M);}; - -var _9949=function(M){if(--M.cbt<0){throw _9949;} -M.unspliceRestFromStack(1,(M.a-1)); -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-4][3]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _10346=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_10338)(M);}; - -var _10370=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_10362)(M);}; - -var _10378=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_10370)(M);}; - -var _9948=function(M){if(--M.cbt<0){throw _9948;} -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10336,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _10301=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _10317=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_10309)(M);}; - -var _9947=function(M){if(--M.cbt<0){throw _9947;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][1]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10275,M.p)); -return((M.p).label)(M);}; - -var _10222=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_10215)(M);}; - -var _9961=function(M){if(--M.cbt<0){throw _9961;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][1]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10954,M.p)); -return((M.p).label)(M);}; - -var _10250=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_10243)(M);}; - -var _9946=function(M){if(--M.cbt<0){throw _9946;} -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-3]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10214,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _10188=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_10181)(M);}; - -var _10195=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_10188)(M);}; - -var _9944=function(M){if(--M.cbt<0){throw _9944;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 3]).racketArity,M.a)){return(_9945)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 3]; -return(_9949)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_9947)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_9945)(M);}}; - -var _9943=function(M){if(--M.cbt<0){throw _9943;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-2]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10076,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-1][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=3; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _11347=function(M){if(--M.cbt<0){throw _11347;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_9964,3,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-26]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+25),25); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=25; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _10236=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_10229)(M);}; - -var _10407=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][7]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-2]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10427,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-1][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=3; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _9950=function(M){if(--M.cbt<0){throw _9950;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 3]).racketArity,M.a)){return(_9951)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 3]; -return(_9953)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_9952)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_9951)(M);}}; - -var _10950=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][11]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-3]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10972,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-2]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=false; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - - - -var _10271=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][3]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10299,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _10221=function(M){if(--M.cbt<0){throw _10221;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-9]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10228,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_10222)(M);}}; - -var _10062=function(M){if(--M.cbt<0){throw _10062;} -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-18][13]; -M.e[M.e.length-1]=M.e[M.e.length-19]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+18),18); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _11372=function(M){if(--M.cbt<0){throw _11372;} -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/lang/private/map.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - -var _9968=function(M){if(--M.cbt<0){throw _9968;} -}; - -var _11332=function(M){if(--M.cbt<0){throw _11332;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-25]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11347,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-24]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+24),24); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=22; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _11287=function(M){if(--M.cbt<0){throw _11287;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-16]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11302,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-15]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+15),15); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=13; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _11222=function(M){if(--M.cbt<0){throw _11222;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_9964,3,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-15]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -M.e.splice(M.e.length-(3+14),14); -M.c[M.c.length-1].p=M.p; -return(_9964)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=14; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _11165=function(M){if(--M.cbt<0){throw _11165;} -M.e[M.e.length-2]=M.v; -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],1,"=")))); -M.e.length-=2; -return(_11143)(M);}; - -var _11132=function(M){if(--M.cbt<0){throw _11132;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_9962,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-18]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+17),17); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=17; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _11076=function(M){if(--M.cbt<0){throw _11076;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-10]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11090,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-9]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _11014=function(M){if(--M.cbt<0){throw _11014;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_9962,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -M.e.splice(M.e.length-(2+10),10); -M.c[M.c.length-1].p=M.p; -return(_9962)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _10960=function(M){if(--M.cbt<0){throw _10960;} -if(M.v===false){M.v=false; -return(_10950)(M);}else{M.v=RT.isList(M.e[M.e.length-3]); -return(_10950)(M);}}; - -var _10907=function(M){if(--M.cbt<0){throw _10907;} -if(M.v===false){M.v=false; -M.e.length-=13; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-15]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10921,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-15]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+15),15); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _10837=function(M){if(--M.cbt<0){throw _10837;} -if(M.v===false){M.v=false; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10851,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _10762=function(M){if(--M.cbt<0){throw _10762;} -M.e[M.e.length-2]=M.v; -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],1,"=")))); -M.e.length-=2; -return(_10740)(M);}; - -var _10732=function(M){if(--M.cbt<0){throw _10732;} -if(M.v===false){M.v=false; -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_9956,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-10]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10680=function(M){if(--M.cbt<0){throw _10680;} -if(M.v===false){M.v=false; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.push(M.e[M.e.length-5]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10693,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-5]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _10622=function(M){if(--M.cbt<0){throw _10622;} -if(M.v===false){M.v=false; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_9956,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -M.e.splice(M.e.length-(2+6),6); -M.c[M.c.length-1].p=M.p; -return(_9956)(M);}}; - -var _10569=function(M){if(--M.cbt<0){throw _10569;} -if(M.v===false){M.v=false; -return(_10559)(M);}else{M.v=RT.isList(M.e[M.e.length-3]); -return(_10559)(M);}}; - -var _10516=function(M){if(--M.cbt<0){throw _10516;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10528,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-5][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=8; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10482=function(M){if(--M.cbt<0){throw _10482;} -if(M.v===false){M.v=false; -return(_10472)(M);}else{M.v=RT.isList(M.e[M.e.length-3]); -if(M.v===false){M.v=false; -return(_10472)(M);}else{M.v=RT.isList(M.e[M.e.length-4]); -if(M.v===false){M.v=false; -return(_10472)(M);}else{M.e.length+=2; -M.e.push(M.e[M.e.length-3][4]); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10490,M.p)); -return((M.p).label)(M);}}}}; - -var _10438=function(M){if(--M.cbt<0){throw _10438;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-4]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10449,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-3][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=5; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10396=function(M){if(--M.cbt<0){throw _10396;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_10386)(M);}; - -var _10376=function(M){if(--M.cbt<0){throw _10376;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-29]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10384,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-4]=RT.NULL; -return(_10378)(M);}}; - -var _10326=function(M){if(--M.cbt<0){throw _10326;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_10317)(M);}; - -var _10299=function(M){if(--M.cbt<0){throw _10299;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10307,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-4]=RT.NULL; -return(_10301)(M);}}; - -var _10275=function(M){if(--M.cbt<0){throw _10275;} -if(M.v===false){M.v=false; -return(_10271)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][2]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10281,M.p)); -return((M.p).label)(M);}}; - -var _10249=function(M){if(--M.cbt<0){throw _10249;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-21]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10256,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_10250)(M);}}; - - -var _10194=function(M){if(--M.cbt<0){throw _10194;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-13]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10201,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_10195)(M);}}; - -var _10168=function(M){if(--M.cbt<0){throw _10168;} -if(M.v===false){M.v=false; -return(_10164)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][2]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10174,M.p)); -return((M.p).label)(M);}}; - -var _10142=function(M){if(--M.cbt<0){throw _10142;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-9]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10153,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-8][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=10; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10087=function(M){if(--M.cbt<0){throw _10087;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-4]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10098,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-3][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=5; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - - -var _9990=function(M){if(--M.cbt<0){throw _9990;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10002,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-5][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=8; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _11371=function(M){if(--M.cbt<0){throw _11371;} -M.e.length-=(M.a-1); -return(_11372)(M);}; - -var _10740=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][9]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10776,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=true; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _11370=function(M){if(--M.cbt<0){throw _11370;} -M.c.push(new RT.PromptFrame(_11372,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.length+=3; -M.e[M.e.length-1]=new RT.Closure(_9961,2,[M.e[M.e.length-4]],".../private/map.rkt:97:11"); -M.e[M.e.length-2]=new RT.Closure(_9963,3,[M.e[M.e.length-4]],".../private/map.rkt:108:11"); -M.e[M.e.length-3]=new RT.Closure(_9965,(RT.makeArityAtLeast(1)),[M.e[M.e.length-4]],".../private/map.rkt:122:11"); -M.v=new RT.Closure(_9960,RT.makePair(2,RT.makePair(3,RT.makePair((RT.makeArityAtLeast(1)),RT.NULL))),[M.e[M.e.length-3],M.e[M.e.length-2],M.e[M.e.length-1]],"ormap"); -M.e.length-=3; -M.e[M.e.length-1][10]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _11366=function(M){if(--M.cbt<0){throw _11366;} -M.c.push(new RT.PromptFrame(_11368,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.length+=3; -M.e[M.e.length-1]=new RT.Closure(_9951,2,[M.e[M.e.length-4]],".../private/map.rkt:39:11"); -M.e[M.e.length-2]=new RT.Closure(_9952,3,[M.e[M.e.length-4]],".../private/map.rkt:48:11"); -M.e[M.e.length-3]=new RT.Closure(_9953,(RT.makeArityAtLeast(1)),[M.e[M.e.length-4]],".../private/map.rkt:60:11"); -M.v=new RT.Closure(_9950,RT.makePair(2,RT.makePair(3,RT.makePair((RT.makeArityAtLeast(1)),RT.NULL))),[M.e[M.e.length-3],M.e[M.e.length-2],M.e[M.e.length-1]],"for-each"); -M.e.length-=3; -M.e[M.e.length-1][5]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _11317=function(M){if(--M.cbt<0){throw _11317;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-22]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11332,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-21]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+21),21); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=19; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _11272=function(M){if(--M.cbt<0){throw _11272;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-13]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11287,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+12),12); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _11207=function(M){if(--M.cbt<0){throw _11207;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-14]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11222,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-13]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+13),13); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _11161=function(M){if(--M.cbt<0){throw _11161;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-3][4]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11165,M.p)); -return((M.p).label)(M);}; - -var _11118=function(M){if(--M.cbt<0){throw _11118;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-16]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11132,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-15]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+16),16); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=15; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _11062=function(M){if(--M.cbt<0){throw _11062;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-8]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11076,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-7]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _11000=function(M){if(--M.cbt<0){throw _11000;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-9]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11014,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-8]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _10954=function(M){if(--M.cbt<0){throw _10954;} -if(M.v===false){M.v=false; -return(_10950)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][2]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10960,M.p)); -return((M.p).label)(M);}}; - -var _10879=function(M){if(--M.cbt<0){throw _10879;} -if(M.v===false){M.v=false; -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-11]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10893,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-11]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _10818=function(M){if(--M.cbt<0){throw _10818;} -if(M.v===false){M.v=false; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_9958,3,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return(_9958)(M);}}; - -var _10790=function(M){if(--M.cbt<0){throw _10790;} -if(M.v===false){M.v=false; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10804,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _10719=function(M){if(--M.cbt<0){throw _10719;} -if(M.v===false){M.v=false; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.push(M.e[M.e.length-8]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10732,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-8]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _10706=function(M){if(--M.cbt<0){throw _10706;} -if(M.v===false){M.v=false; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.push(M.e[M.e.length-7]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10719,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-7]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _10609=function(M){if(--M.cbt<0){throw _10609;} -if(M.v===false){M.v=false; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.push(M.e[M.e.length-5]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10622,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-5]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _10563=function(M){if(--M.cbt<0){throw _10563;} -if(M.v===false){M.v=false; -return(_10559)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][2]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10569,M.p)); -return((M.p).label)(M);}}; - -var _10504=function(M){if(--M.cbt<0){throw _10504;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10516,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-3][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=6; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10476=function(M){if(--M.cbt<0){throw _10476;} -if(M.v===false){M.v=false; -return(_10472)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][2]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10482,M.p)); -return((M.p).label)(M);}}; - -var _10427=function(M){if(--M.cbt<0){throw _10427;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-3]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10438,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-2][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=4; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10392=function(M){if(--M.cbt<0){throw _10392;} -M.e[M.e.length-1]=M.v; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_9948,3,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-34]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10396,M.p)); -return((M.p).label)(M);}; - -var _10368=function(M){if(--M.cbt<0){throw _10368;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-25]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10376,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-4]=RT.NULL; -return(_10370)(M);}}; - -var _10344=function(M){if(--M.cbt<0){throw _10344;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-13]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10352,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-4]=RT.NULL; -return(_10346)(M);}}; - -var _10307=function(M){if(--M.cbt<0){throw _10307;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-14]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10315,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-4]=RT.NULL; -return(_10309)(M);}}; - -var _10281=function(M){if(--M.cbt<0){throw _10281;} -if(M.v===false){M.v=false; -return(_10271)(M);}else{M.v=RT.isList(M.e[M.e.length-3]); -if(M.v===false){M.v=false; -return(_10271)(M);}else{M.v=RT.isList(M.e[M.e.length-4]); -if(M.v===false){M.v=false; -return(_10271)(M);}else{M.e.length+=2; -M.e.push(M.e[M.e.length-3][4]); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10289,M.p)); -return((M.p).label)(M);}}}}; - -var _10256=function(M){if(--M.cbt<0){throw _10256;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-24]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10263,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_10257)(M);}}; - -var _10228=function(M){if(--M.cbt<0){throw _10228;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-12]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10235,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_10229)(M);}}; - -var _10214=function(M){if(--M.cbt<0){throw _10214;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-6]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10221,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_10215)(M);}}; - -var _10187=function(M){if(--M.cbt<0){throw _10187;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-10]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10194,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_10188)(M);}}; - -var _10120=function(M){if(--M.cbt<0){throw _10120;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-7]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10131,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-6][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=8; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10109=function(M){if(--M.cbt<0){throw _10109;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-6]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10120,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-5][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=7; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10038=function(M){if(--M.cbt<0){throw _10038;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-16]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10050,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-13][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=16; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _9978=function(M){if(--M.cbt<0){throw _9978;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9990,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-3][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=6; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _11369=function(M){if(--M.cbt<0){throw _11369;} -M.e.length-=(M.a-1); -return(_11370)(M);}; - -var _11363=function(M){if(--M.cbt<0){throw _11363;} -M.e.length-=(M.a-1); -return(_11364)(M);}; - -var _10354=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_10346)(M);}; - -var _11368=function(M){if(--M.cbt<0){throw _11368;} -M.c.push(new RT.PromptFrame(_11370,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.length+=3; -M.e[M.e.length-1]=new RT.Closure(_9955,2,[M.e[M.e.length-4]],".../private/map.rkt:66:11"); -M.e[M.e.length-2]=new RT.Closure(_9957,3,[M.e[M.e.length-4]],".../private/map.rkt:77:11"); -M.e[M.e.length-3]=new RT.Closure(_9959,(RT.makeArityAtLeast(1)),[M.e[M.e.length-4]],".../private/map.rkt:91:11"); -M.v=new RT.Closure(_9954,RT.makePair(2,RT.makePair(3,RT.makePair((RT.makeArityAtLeast(1)),RT.NULL))),[M.e[M.e.length-3],M.e[M.e.length-2],M.e[M.e.length-1]],"andmap"); -M.e.length-=3; -M.e[M.e.length-1][8]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _11364=function(M){if(--M.cbt<0){throw _11364;} -M.c.push(new RT.PromptFrame(_11366,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.length+=3; -M.e[M.e.length-1]=new RT.Closure(_9945,2,[M.e[M.e.length-4]],".../private/map.rkt:12:11"); -M.e[M.e.length-2]=new RT.Closure(_9947,3,[M.e[M.e.length-4]],".../private/map.rkt:21:11"); -M.e[M.e.length-3]=new RT.Closure(_9949,(RT.makeArityAtLeast(1)),[M.e[M.e.length-4]],".../private/map.rkt:33:11"); -M.v=new RT.Closure(_9944,RT.makePair(2,RT.makePair(3,RT.makePair((RT.makeArityAtLeast(1)),RT.NULL))),[M.e[M.e.length-3],M.e[M.e.length-2],M.e[M.e.length-1]],"map"); -M.e.length-=3; -M.e[M.e.length-1][0]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _11302=function(M){if(--M.cbt<0){throw _11302;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-19]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11317,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-18]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+18),18); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=16; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _11257=function(M){if(--M.cbt<0){throw _11257;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11272,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _11192=function(M){if(--M.cbt<0){throw _11192;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-11]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11207,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _11153=function(M){if(--M.cbt<0){throw _11153;} -if(M.v===false){M.v=false; -return(_11143)(M);}else{M.v=RT.isList(M.e[M.e.length-3]); -if(M.v===false){M.v=false; -return(_11143)(M);}else{M.v=RT.isList(M.e[M.e.length-4]); -if(M.v===false){M.v=false; -return(_11143)(M);}else{M.e.length+=2; -M.e.push(M.e[M.e.length-3][4]); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11161,M.p)); -return((M.p).label)(M);}}}}; - -var _11104=function(M){if(--M.cbt<0){throw _11104;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-14]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11118,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-13]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+14),14); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=13; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _11048=function(M){if(--M.cbt<0){throw _11048;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-6]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11062,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-5]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _10986=function(M){if(--M.cbt<0){throw _10986;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-7]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11000,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-6]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+7),7); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _10935=function(M){if(--M.cbt<0){throw _10935;} -if(M.v===false){M.v=false; -M.e.length-=17; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_9958,3,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-18]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+17),17); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10865=function(M){if(--M.cbt<0){throw _10865;} -if(M.v===false){M.v=false; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10879,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _10804=function(M){if(--M.cbt<0){throw _10804;} -if(M.v===false){M.v=false; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10818,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _10758=function(M){if(--M.cbt<0){throw _10758;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-3][4]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10762,M.p)); -return((M.p).label)(M);}; - -var _10750=function(M){if(--M.cbt<0){throw _10750;} -if(M.v===false){M.v=false; -return(_10740)(M);}else{M.v=RT.isList(M.e[M.e.length-3]); -if(M.v===false){M.v=false; -return(_10740)(M);}else{M.v=RT.isList(M.e[M.e.length-4]); -if(M.v===false){M.v=false; -return(_10740)(M);}else{M.e.length+=2; -M.e.push(M.e[M.e.length-3][4]); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10758,M.p)); -return((M.p).label)(M);}}}}; - -var _10667=function(M){if(--M.cbt<0){throw _10667;} -if(M.v===false){M.v=false; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.push(M.e[M.e.length-4]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10680,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-4]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _10654=function(M){if(--M.cbt<0){throw _10654;} -if(M.v===false){M.v=false; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.push(M.e[M.e.length-3]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10667,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-3]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _10596=function(M){if(--M.cbt<0){throw _10596;} -if(M.v===false){M.v=false; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.push(M.e[M.e.length-4]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10609,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-4]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _10540=function(M){if(--M.cbt<0){throw _10540;} -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][13]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _10494=function(M){if(--M.cbt<0){throw _10494;} -M.e[M.e.length-2]=M.v; -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],1,"=")))); -M.e.length-=2; -return(_10472)(M);}; - -var _10460=function(M){if(--M.cbt<0){throw _10460;} -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][12]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _10417=function(M){if(--M.cbt<0){throw _10417;} -if(M.v===false){M.v=false; -return(_10407)(M);}else{M.v=RT.isList(M.e[M.e.length-3]); -return(_10407)(M);}}; - -var _10384=function(M){if(--M.cbt<0){throw _10384;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-33]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10392,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-4]=RT.NULL; -return(_10386)(M);}}; - -var _10336=function(M){if(--M.cbt<0){throw _10336;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10344,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-4]=RT.NULL; -return(_10338)(M);}}; - -var _10315=function(M){if(--M.cbt<0){throw _10315;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-18]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10323,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-4]=RT.NULL; -return(_10317)(M);}}; - -var _10293=function(M){if(--M.cbt<0){throw _10293;} -M.e[M.e.length-2]=M.v; -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],1,"=")))); -M.e.length-=2; -return(_10271)(M);}; - -var _10267=function(M){if(--M.cbt<0){throw _10267;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_10257)(M);}; - -var _10242=function(M){if(--M.cbt<0){throw _10242;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-18]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10249,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_10243)(M);}}; - -var _10201=function(M){if(--M.cbt<0){throw _10201;} -M.e[M.e.length-1]=M.v; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_9946,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-15]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -M.c.push(new RT.CallFrame(_10204,M.p)); -return(_9946)(M);}; - -var _10174=function(M){if(--M.cbt<0){throw _10174;} -if(M.v===false){M.v=false; -return(_10164)(M);}else{M.v=RT.isList(M.e[M.e.length-3]); -return(_10164)(M);}}; - -var _10131=function(M){if(--M.cbt<0){throw _10131;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-8]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10142,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-7][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=9; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10076=function(M){if(--M.cbt<0){throw _10076;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-3]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10087,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-2][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=4; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10026=function(M){if(--M.cbt<0){throw _10026;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-14]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10038,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-11][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=14; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10014=function(M){if(--M.cbt<0){throw _10014;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10026,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-9][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=12; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _11367=function(M){if(--M.cbt<0){throw _11367;} -M.e.length-=(M.a-1); -return(_11368)(M);}; - -var _11361=function(M){if(--M.cbt<0){throw _11361;} -M.e.length-=(M.a-1); -return(_11362)(M);}; - -var _9967=function(M){if(--M.cbt<0){throw _9967;} -M.e.length-=M.a; -return(_9968)(M);}; - -var _10164=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][3]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-4]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10180,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _10559=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][9]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.push(M.e[M.e.length-2]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10583,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-2]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=true; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _11143=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][11]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11177,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=false; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - - -var _9965=function(M){if(--M.cbt<0){throw _9965;} -M.unspliceRestFromStack(1,(M.a-1)); -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-4][11]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _11373=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_9968,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/lang/private/map.rkt"]=new RT.ModuleRecord("map",_11360); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _11362=function(M){if(--M.cbt<0){throw _11362;} -M.c.push(new RT.PromptFrame(_11364,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_9943,2,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][12]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - -var _11242=function(M){if(--M.cbt<0){throw _11242;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11257,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _11177=function(M){if(--M.cbt<0){throw _11177;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11192,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+7),7); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _11147=function(M){if(--M.cbt<0){throw _11147;} -if(M.v===false){M.v=false; -return(_11143)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][2]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11153,M.p)); -return((M.p).label)(M);}}; - -var _11090=function(M){if(--M.cbt<0){throw _11090;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-12]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11104,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-11]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+12),12); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _11034=function(M){if(--M.cbt<0){throw _11034;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-4]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11048,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-3]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _10972=function(M){if(--M.cbt<0){throw _10972;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-5]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10986,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-4]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _10921=function(M){if(--M.cbt<0){throw _10921;} -if(M.v===false){M.v=false; -M.e.length-=15; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-17]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10935,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-17]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+17),17); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _10893=function(M){if(--M.cbt<0){throw _10893;} -if(M.v===false){M.v=false; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-13]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10907,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-13]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+13),13); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _10851=function(M){if(--M.cbt<0){throw _10851;} -if(M.v===false){M.v=false; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10865,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+7),7); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _10776=function(M){if(--M.cbt<0){throw _10776;} -if(M.v===false){M.v=false; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10790,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _10744=function(M){if(--M.cbt<0){throw _10744;} -if(M.v===false){M.v=false; -return(_10740)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][2]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10750,M.p)); -return((M.p).label)(M);}}; - -var _10693=function(M){if(--M.cbt<0){throw _10693;} -if(M.v===false){M.v=false; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.push(M.e[M.e.length-6]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10706,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-6]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+7),7); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _10641=function(M){if(--M.cbt<0){throw _10641;} -if(M.v===false){M.v=false; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.push(M.e[M.e.length-2]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10654,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-2]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _10583=function(M){if(--M.cbt<0){throw _10583;} -if(M.v===false){M.v=false; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.push(M.e[M.e.length-3]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10596,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-3]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _10528=function(M){if(--M.cbt<0){throw _10528;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10540,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-7][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=10; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10490=function(M){if(--M.cbt<0){throw _10490;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-3][4]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10494,M.p)); -return((M.p).label)(M);}; - -var _10449=function(M){if(--M.cbt<0){throw _10449;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-5]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10460,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-4][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=6; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10411=function(M){if(--M.cbt<0){throw _10411;} -if(M.v===false){M.v=false; -return(_10407)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][2]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10417,M.p)); -return((M.p).label)(M);}}; - -var _10360=function(M){if(--M.cbt<0){throw _10360;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-21]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10368,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-4]=RT.NULL; -return(_10362)(M);}}; - -var _10352=function(M){if(--M.cbt<0){throw _10352;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-17]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10360,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-4]=RT.NULL; -return(_10354)(M);}}; - -var _10323=function(M){if(--M.cbt<0){throw _10323;} -M.e[M.e.length-1]=M.v; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_9948,3,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-19]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -M.c.push(new RT.CallFrame(_10326,M.p)); -return(_9948)(M);}; - -var _10289=function(M){if(--M.cbt<0){throw _10289;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-3][4]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10293,M.p)); -return((M.p).label)(M);}; - -var _10263=function(M){if(--M.cbt<0){throw _10263;} -M.e[M.e.length-1]=M.v; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_9946,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-26]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10267,M.p)); -return((M.p).label)(M);}; - -var _10235=function(M){if(--M.cbt<0){throw _10235;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-15]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10242,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_10236)(M);}}; - -var _10204=function(M){if(--M.cbt<0){throw _10204;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_10195)(M);}; - -var _10180=function(M){if(--M.cbt<0){throw _10180;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-7]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10187,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_10181)(M);}}; - -var _10153=function(M){if(--M.cbt<0){throw _10153;} -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][12]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _10098=function(M){if(--M.cbt<0){throw _10098;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-5]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10109,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-4][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=6; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10050=function(M){if(--M.cbt<0){throw _10050;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-18]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10062,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-15][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=18; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10002=function(M){if(--M.cbt<0){throw _10002;} -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10014,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-7][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=10; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _11365=function(M){if(--M.cbt<0){throw _11365;} -M.e.length-=(M.a-1); -return(_11366)(M);}; - -var _11360=function(M){--M.cbt<0; -M.modules["whalesong/lang/private/map.rkt"].isInvoked=true; -M.e.push([M.params.currentNamespace["map2"]||M.primitives["map2"],M.primitives["procedure?"],M.primitives["procedure-arity-includes?"],M.primitives["map"],M.primitives["length"],M.params.currentNamespace["for-each2"]||M.primitives["for-each2"],M.primitives["void"],M.primitives["for-each"],M.params.currentNamespace["andmap2"]||M.primitives["andmap2"],M.primitives["andmap"],M.params.currentNamespace["ormap2"]||M.primitives["ormap2"],M.primitives["ormap"],false,false]);M.e[M.e.length-1].names=["map2","procedure?","procedure-arity-includes?","map","length","for-each2","void","for-each","andmap2","andmap","ormap2","ormap",false,false]; -M.modules["whalesong/lang/private/map.rkt"].prefix=M.e[M.e.length-1]; -M.c.push(new RT.PromptFrame(_11362,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_9942,3,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][13]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - - - - - - - - - - - - - - - - - - - - -var _10472=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][7]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10504,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-1][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=4; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - - - - - -var _10229=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_10222)(M);}; - - - - - - - - -var _9960=function(M){if(--M.cbt<0){throw _9960;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 3]).racketArity,M.a)){return(_9961)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 3]; -return(_9965)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_9963)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_9961)(M);}}; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -var _9954=function(M){if(--M.cbt<0){throw _9954;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 3]).racketArity,M.a)){return(_9955)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 3]; -return(_9959)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_9957)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_9955)(M);}}; - -var _10338=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _10539=function(M){if(--M.cbt<0){throw _10539;} -M.e.length-=(M.a-1); -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][13]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _10527=function(M){if(--M.cbt<0){throw _10527;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10540,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-7][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=10; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10515=function(M){if(--M.cbt<0){throw _10515;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10528,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-5][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=8; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10503=function(M){if(--M.cbt<0){throw _10503;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10516,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-3][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=6; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - - - - -var _10459=function(M){if(--M.cbt<0){throw _10459;} -M.e.length-=(M.a-1); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][12]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _10448=function(M){if(--M.cbt<0){throw _10448;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-5]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10460,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-4][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=6; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10437=function(M){if(--M.cbt<0){throw _10437;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-4]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10449,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-3][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=5; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10426=function(M){if(--M.cbt<0){throw _10426;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-3]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10438,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-2][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=4; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - - - -var _9963=function(M){if(--M.cbt<0){throw _9963;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][1]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11147,M.p)); -return((M.p).label)(M);}; - - - - - - - - - - - - - - - - - - - - - - - - - - - -var _10152=function(M){if(--M.cbt<0){throw _10152;} -M.e.length-=(M.a-1); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][12]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _10141=function(M){if(--M.cbt<0){throw _10141;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-9]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10153,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-8][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=10; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10130=function(M){if(--M.cbt<0){throw _10130;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-8]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10142,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-7][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=9; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _10119=function(M){if(--M.cbt<0){throw _10119;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.push(M.e[M.e.length-7]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_10131,M.p)); -return((M.p).label)(M);}else{M.p=M.e[M.e.length-6][6]; -M.a=0; -RT.checkClosureAndArity(M); -M.e.length-=8; -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -_9978.mvr=_9977; -_9990.mvr=_9989; -_10002.mvr=_10001; -_10014.mvr=_10013; -_10026.mvr=_10025; -_10038.mvr=_10037; -_10050.mvr=_10049; -_10062.mvr=_10061; -_10076.mvr=_10075; -_10087.mvr=_10086; -_10098.mvr=_10097; -_10109.mvr=_10108; -_10120.mvr=_10119; -_10131.mvr=_10130; -_10142.mvr=_10141; -_10153.mvr=_10152; -_10427.mvr=_10426; -_10438.mvr=_10437; -_10449.mvr=_10448; -_10460.mvr=_10459; -_10504.mvr=_10503; -_10516.mvr=_10515; -_10528.mvr=_10527; -_10540.mvr=_10539; -_11362.mvr=_11361; -_11364.mvr=_11363; -_11366.mvr=_11365; -_11368.mvr=_11367; -_11370.mvr=_11369; -_11372.mvr=_11371; -_9968.mvr=_9967; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_11373, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _5074=function(M){if(--M.cbt<0){throw _5074;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5031=function(M){if(--M.cbt<0){throw _5031;} -M.e[M.e.length-4]=M.v; -M.e.length-=1; -return(_5025)(M);}; - -var _2512=function(M){if(--M.cbt<0){throw _2512;} -if(M.a===0){return(_2510)(M);}else{M.e.push(M.v); -return(_2510)(M);}}; - -var _2474=function(M){if(--M.cbt<0){throw _2474;} -if(M.a===0){return(_2472)(M);}else{M.e.push(M.v); -return(_2472)(M);}}; - -var _2455=function(M){if(--M.cbt<0){throw _2455;} -if(M.a===0){return(_2453)(M);}else{M.e.push(M.v); -return(_2453)(M);}}; - -var _1274=function(M){if(--M.cbt<0){throw _1274;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2447,M.p)); -return((M.p).label)(M);}; - -var _4835=function(M){if(--M.cbt<0){throw _4835;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-1]=M.e[M.e.length-10]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4844,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4836)(M);}}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4827)(M);}}; - -var _4806=function(M){if(--M.cbt<0){throw _4806;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4815,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4807)(M);}}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4798)(M);}}; - -var _4773=function(M){if(--M.cbt<0){throw _4773;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4765)(M);}; - -var _1270=function(M){if(--M.cbt<0){throw _1270;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2342,M.p)); -return((M.p).label)(M);}; - -var _1424=function(M){if(--M.cbt<0){throw _1424;} -M.unspliceRestFromStack(0,M.a); -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6996,M.p)); -return((M.p).label)(M);}; - -var _1258=function(M){if(--M.cbt<0){throw _1258;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2261,M.p)); -return((M.p).label)(M);}; - -var _4623=function(M){if(--M.cbt<0){throw _4623;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4611)(M);}; - -var _4601=function(M){if(--M.cbt<0){throw _4601;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-1]=M.e[M.e.length-10]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4610,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4602)(M);}}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4593)(M);}}; - -var _4572=function(M){if(--M.cbt<0){throw _4572;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4581,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4573)(M);}}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4564)(M);}}; - -var _4537=function(M){if(--M.cbt<0){throw _4537;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4525)(M);}; - -var _1257=function(M){if(--M.cbt<0){throw _1257;} -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2136,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _4477=function(M){if(--M.cbt<0){throw _4477;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-13]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4486,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4478)(M);}}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4469)(M);}}; - -var _1255=function(M){if(--M.cbt<0){throw _1255;} -M.v=new RT.Closure(_1256,1,[M.e[M.e.length-2],M.e[M.e.length-1]],"...private/list.rkt:355:6"); -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _4363=function(M){if(--M.cbt<0){throw _4363;} -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-8][14]; -M.e[M.e.length-1]=RT.makeSymbol("findf"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.push(M.e[M.e.length-7]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4375,M.p)); -return((M.p).label)(M);}}else{M.v=false; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4280=function(M){if(--M.cbt<0){throw _4280;} -M.e[M.e.length-2]=M.v; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e.push(M.e[M.e.length-10][23]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4284,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=13; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4251=function(M){if(--M.cbt<0){throw _4251;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-12][14]; -M.e[M.e.length-1]=RT.makeSymbol("assq"); -M.e[M.e.length-2]="non-pair found in list: "; -M.e[M.e.length-3]=M.e[M.e.length-6]; -M.e[M.e.length-4]=" in "; -M.v=M.e[M.e.length-14]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-10]; -M.e.push(M.e[M.e.length-9][22]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4260,M.p)); -return((M.p).label)(M);}}; - -var _4220=function(M){if(--M.cbt<0){throw _4220;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-9][14]; -M.e[M.e.length-1]=RT.makeSymbol("assq"); -M.e[M.e.length-2]="non-pair found in list: "; -M.e[M.e.length-3]=M.e[M.e.length-6]; -M.e[M.e.length-4]=" in "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e.push(M.e[M.e.length-6][22]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4229,M.p)); -return((M.p).label)(M);}}; - -var _1938=function(M){if(--M.cbt<0){throw _1938;} -if(M.a===0){return(_1936)(M);}else{M.e.push(M.v); -return(_1936)(M);}}; - -var _1409=function(M){if(--M.cbt<0){throw _1409;} -M.unspliceRestFromStack(0,M.a); -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6851,M.p)); -return((M.p).label)(M);}; - -var _1251=function(M){if(--M.cbt<0){throw _1251;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1918,M.p)); -return((M.p).label)(M);}; - -var _1902=function(M){if(--M.cbt<0){throw _1902;} -if(M.a===0){return(_1900)(M);}else{M.e.push(M.v); -return(_1900)(M);}}; - -var _1856=function(M){if(--M.cbt<0){throw _1856;} -if(M.a===0){return(_1854)(M);}else{M.e.push(M.v); -return(_1854)(M);}}; - -var _1845=function(M){if(--M.cbt<0){throw _1845;} -if(M.a===0){return(_1843)(M);}else{M.e.push(M.v); -return(_1843)(M);}}; - -var _1241=function(M){if(--M.cbt<0){throw _1241;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1836,M.p)); -return((M.p).label)(M);}; - -var _1820=function(M){if(--M.cbt<0){throw _1820;} -if(M.a===0){return(_1818)(M);}else{M.e.push(M.v); -return(_1818)(M);}}; - -var _3889=function(M){if(--M.cbt<0){throw _3889;} -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e.push(M.e[M.e.length-3][23]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3893,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1763=function(M){if(--M.cbt<0){throw _1763;} -if(M.a===0){return(_1761)(M);}else{M.e.push(M.v); -return(_1761)(M);}}; - -var _3790=function(M){if(--M.cbt<0){throw _3790;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-11][14]; -M.e[M.e.length-1]=RT.makeSymbol("assoc"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+13),13); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=false; -M.e.length-=13; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=1; -M.e.push(M.e[M.e.length-9][22]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3797,M.p)); -return((M.p).label)(M);}}; - -var _1738=function(M){if(--M.cbt<0){throw _1738;} -if(M.a===0){return(_1736)(M);}else{M.e.push(M.v); -return(_1736)(M);}}; - -var _1692=function(M){if(--M.cbt<0){throw _1692;} -if(M.a===0){return(_1690)(M);}else{M.e.push(M.v); -return(_1690)(M);}}; - -var _1681=function(M){if(--M.cbt<0){throw _1681;} -if(M.a===0){return(_1679)(M);}else{M.e.push(M.v); -return(_1679)(M);}}; - -var _1221=function(M){if(--M.cbt<0){throw _1221;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1672,M.p)); -return((M.p).label)(M);}; - -var _1656=function(M){if(--M.cbt<0){throw _1656;} -if(M.a===0){return(_1654)(M);}else{M.e.push(M.v); -return(_1654)(M);}}; - -var _1214=function(M){if(--M.cbt<0){throw _1214;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1621,M.p)); -return((M.p).label)(M);}; - -var _3566=function(M){if(--M.cbt<0){throw _3566;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][14]; -M.e[M.e.length-1]=RT.makeSymbol("assf"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+7),7); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=false; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=1; -M.e.push(M.e[M.e.length-4][22]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3573,M.p)); -return((M.p).label)(M);}}; - -var _3538=function(M){if(--M.cbt<0){throw _3538;} -return(_3530)(M);}; - -var _3514=function(M){if(--M.cbt<0){throw _3514;} -M.e[M.e.length-2]=M.v; -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],1,"=")))); -M.e.length-=2; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][14]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]="given list does not have the same size as the first list: "; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3518,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_3510)(M);}}; - -var _1570=function(M){if(--M.cbt<0){throw _1570;} -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-7][44]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1582,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e.push(M.e[M.e.length-7][44]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1574,M.p)); -return((M.p).label)(M);}}; - -var _3472=function(M){if(--M.cbt<0){throw _3472;} -M.e[M.e.length-2]=M.v; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12][29]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3476,M.p)); -return((M.p).label)(M);}; - -var _3452=function(M){if(--M.cbt<0){throw _3452;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3456,M.p)); -return((M.p).label)(M);}; - -var _3429=function(M){if(--M.cbt<0){throw _3429;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=RT.isPair(M.e[M.e.length-1]); -M.e.length-=1; -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-9][24]; -M.e[M.e.length-1]=M.primitives["car"]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3436,M.p)); -return((M.p).label)(M);}}; - -var _3406=function(M){if(--M.cbt<0){throw _3406;} -M.e[M.e.length-2]=M.v; -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],1,"=")))); -M.e.length-=2; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-8][14]; -M.e[M.e.length-1]=RT.makeSymbol("foldl"); -M.e[M.e.length-2]="given list does not have the same size as the first list: "; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3410,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_3402)(M);}}; - -var _3360=function(M){if(--M.cbt<0){throw _3360;} -return(_3356)(M);}; - -var _3318=function(M){if(--M.cbt<0){throw _3318;} -M.e[M.e.length-2]=M.v; -return(_3285)(M);}; - -var _3302=function(M){if(--M.cbt<0){throw _3302;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3306,M.p)); -return((M.p).label)(M);}; - -var _3274=function(M){if(--M.cbt<0){throw _3274;} -return(_3266)(M);}; - -var _3250=function(M){if(--M.cbt<0){throw _3250;} -M.e[M.e.length-2]=M.v; -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],1,"=")))); -M.e.length-=2; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][14]; -M.e[M.e.length-1]=RT.makeSymbol("foldr"); -M.e[M.e.length-2]="given list does not have the same size as the first list: "; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3254,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_3246)(M);}}; - -var _3224=function(M){if(--M.cbt<0){throw _3224;} -return(_3220)(M);}; - -var _3171=function(M){if(--M.cbt<0){throw _3171;} -if(M.v===false){M.v=M.e[M.e.length-5]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-6]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3185,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-3][32]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-6]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3185,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-3][32]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _3139=function(M){if(--M.cbt<0){throw _3139;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3143,M.p)); -return((M.p).label)(M);}; - -var _3117=function(M){if(--M.cbt<0){throw _3117;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3121,M.p)); -return((M.p).label)(M);}; - -var _3092=function(M){if(--M.cbt<0){throw _3092;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3096,M.p)); -return((M.p).label)(M);}; - -var _3070=function(M){if(--M.cbt<0){throw _3070;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3074,M.p)); -return((M.p).label)(M);}; - -var _5060=function(M){if(--M.cbt<0){throw _5060;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5080,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-10]; -M.e[M.e.length-2]=M.e[M.e.length-11]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-9],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5074,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1354,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-12]; -M.e[M.e.length-4]=M.e[M.e.length-11]; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -M.e.splice(M.e.length-(5+8),8); -M.c[M.c.length-1].p=M.p; -return(_1354)(M);}else{M.v=RT.NULL; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _5014=function(M){if(--M.cbt<0){throw _5014;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1345,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"cdr")).rest; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _4975=function(M){if(--M.cbt<0){throw _4975;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1346,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -M.e.splice(M.e.length-(5+5),5); -M.c[M.c.length-1].p=M.p; -return(_1346)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _2952=function(M){if(--M.cbt<0){throw _2952;} -M.a=1; -return(_2950)(M);}; - -var _4890=function(M){if(--M.cbt<0){throw _4890;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4910,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-9],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4904,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1355,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-11]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -M.e.splice(M.e.length-(5+7),7); -M.c[M.c.length-1].p=M.p; -return(_1355)(M);}else{M.v=RT.NULL; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _4857=function(M){if(--M.cbt<0){throw _4857;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4845)(M);}; - -var _4826=function(M){if(--M.cbt<0){throw _4826;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4835,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4827)(M);}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4797=function(M){if(--M.cbt<0){throw _4797;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4806,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4798)(M);}}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4789)(M);}}; - -var _4750=function(M){if(--M.cbt<0){throw _4750;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4743)(M);}; - -var _4709=function(M){if(--M.cbt<0){throw _4709;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-13]; -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4718,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4710)(M);}}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4701)(M);}}; - -var _2735=function(M){if(--M.cbt<0){throw _2735;} -M.a=1; -return(_2733)(M);}; - -var _4645=function(M){if(--M.cbt<0){throw _4645;} -return(_4641)(M);}; - -var _2638=function(M){if(--M.cbt<0){throw _2638;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _4592=function(M){if(--M.cbt<0){throw _4592;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4601,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4593)(M);}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4563=function(M){if(--M.cbt<0){throw _4563;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4572,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4564)(M);}}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4555)(M);}}; - -var _4533=function(M){if(--M.cbt<0){throw _4533;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1330,3,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-15]; -M.e[M.e.length-2]=M.e[M.e.length-16]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4537,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4525)(M);}}; - -var _4498=function(M){if(--M.cbt<0){throw _4498;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4487)(M);}; - -var _4468=function(M){if(--M.cbt<0){throw _4468;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4477,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4469)(M);}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4412=function(M){if(--M.cbt<0){throw _4412;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][14]; -M.e[M.e.length-1]=RT.makeSymbol("memf"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-4]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4423,M.p)); -return((M.p).label)(M);}}else{M.v=false; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4351=function(M){if(--M.cbt<0){throw _4351;} -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][14]; -M.e[M.e.length-1]=RT.makeSymbol("findf"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.push(M.e[M.e.length-5]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4363,M.p)); -return((M.p).label)(M);}}else{M.v=false; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4271=function(M){if(--M.cbt<0){throw _4271;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-14][14]; -M.e[M.e.length-1]=RT.makeSymbol("assq"); -M.e[M.e.length-2]="non-pair found in list: "; -M.e[M.e.length-3]=M.e[M.e.length-6]; -M.e[M.e.length-4]=" in "; -M.v=M.e[M.e.length-16]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+13),13); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.e.push(M.e[M.e.length-11][22]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4280,M.p)); -return((M.p).label)(M);}}; - -var _4238=function(M){if(--M.cbt<0){throw _4238;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-9][14]; -M.e[M.e.length-1]=RT.makeSymbol("assq"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=false; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=1; -M.e.push(M.e[M.e.length-7][22]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4251,M.p)); -return((M.p).label)(M);}}else{M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-9][14]; -M.e[M.e.length-1]=RT.makeSymbol("assq"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _4213=function(M){if(--M.cbt<0){throw _4213;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][14]; -M.e[M.e.length-1]=RT.makeSymbol("assq"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+7),7); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=false; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=1; -M.e.push(M.e[M.e.length-4][22]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4220,M.p)); -return((M.p).label)(M);}}; - -var _4138=function(M){if(--M.cbt<0){throw _4138;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.push(M.e[M.e.length-11][23]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4143,M.p)); -return((M.p).label)(M);}; - -var _2296=function(M){if(--M.cbt<0){throw _2296;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _4084=function(M){if(--M.cbt<0){throw _4084;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-9][14]; -M.e[M.e.length-1]=RT.makeSymbol("assv"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=false; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=1; -M.e.push(M.e[M.e.length-7][22]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4097,M.p)); -return((M.p).label)(M);}}else{M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-9][14]; -M.e[M.e.length-1]=RT.makeSymbol("assv"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _2188=function(M){if(--M.cbt<0){throw _2188;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2201,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+18),18); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _4038=function(M){if(--M.cbt<0){throw _4038;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-7][14]; -M.e[M.e.length-1]=RT.makeSymbol("assv"); -M.e[M.e.length-2]="non-pair found in list: "; -M.e[M.e.length-3]=M.e[M.e.length-6]; -M.e[M.e.length-4]=" in "; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4][8]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e.push(M.e[M.e.length-4][22]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4047,M.p)); -return((M.p).label)(M);}}; - -var _2084=function(M){if(--M.cbt<0){throw _2084;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2097,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _3944=function(M){if(--M.cbt<0){throw _3944;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3948,M.p)); -return((M.p).label)(M);}; - -var _2019=function(M){if(--M.cbt<0){throw _2019;} -return(_2011)(M);}; - -var _1989=function(M){if(--M.cbt<0){throw _1989;} -if(M.v===false){M.e.length+=6; -M.e[M.e.length-6]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-11][1]; -M.e[M.e.length-2]=RT.makeSymbol("compose1"); -M.e[M.e.length-3]="procedure (arity 1)"; -M.e[M.e.length-4]=M.e[M.e.length-8]; -M.e[M.e.length-5]=M.e[M.e.length-12]; -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1993,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_1985)(M);}}; - -var _1981=function(M){if(--M.cbt<0){throw _1981;} -return(_1973)(M);}; - -var _1929=function(M){if(--M.cbt<0){throw _1929;} -M.a=1; -return(_1927)(M);}; - -var _1918=function(M){if(--M.cbt<0){throw _1918;} -M.a=1; -return(_1916)(M);}; - -var _3738=function(M){if(--M.cbt<0){throw _3738;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-9][14]; -M.e[M.e.length-1]=RT.makeSymbol("assoc"); -M.e[M.e.length-2]="non-pair found in list: "; -M.e[M.e.length-3]=M.e[M.e.length-6]; -M.e[M.e.length-4]=" in "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e.push(M.e[M.e.length-6][22]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3747,M.p)); -return((M.p).label)(M);}}; - -var _1836=function(M){if(--M.cbt<0){throw _1836;} -M.a=1; -return(_1834)(M);}; - -var _3643=function(M){if(--M.cbt<0){throw _3643;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-11]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3648,M.p)); -return((M.p).label)(M);}; - -var _1722=function(M){if(--M.cbt<0){throw _1722;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _3587=function(M){if(--M.cbt<0){throw _3587;} -M.e.length-=1; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e.push(M.e[M.e.length-5][23]); -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3591,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3562=function(M){if(--M.cbt<0){throw _3562;} -M.e.length-=1; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e.push(M.e[M.e.length-3][23]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3566,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3534=function(M){if(--M.cbt<0){throw _3534;} -M.e[M.e.length-2]=M.v; -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],1,"=")))); -M.e.length-=2; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-8][14]; -M.e[M.e.length-1]=M.e[M.e.length-10]; -M.e[M.e.length-2]="given list does not have the same size as the first list: "; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3538,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_3530)(M);}}; - -var _3508=function(M){if(--M.cbt<0){throw _3508;} -return(_3504)(M);}; - -var _3494=function(M){if(--M.cbt<0){throw _3494;} -M.e[M.e.length-2]=M.v; -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],1,"=")))); -M.e.length-=2; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][14]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]="given list does not have the same size as the first list: "; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"car")).first; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3498,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_3490)(M);}}; - -var _3468=function(M){if(--M.cbt<0){throw _3468;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3472,M.p)); -return((M.p).label)(M);}; - -var _3445=function(M){if(--M.cbt<0){throw _3445;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=RT.isPair(M.e[M.e.length-1]); -M.e.length-=1; -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-11][24]; -M.e[M.e.length-1]=M.primitives["car"]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3452,M.p)); -return((M.p).label)(M);}}; - -var _3424=function(M){if(--M.cbt<0){throw _3424;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5][29]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3429,M.p)); -return((M.p).label)(M);}; - -var _3400=function(M){if(--M.cbt<0){throw _3400;} -return(_3396)(M);}; - -var _3380=function(M){if(--M.cbt<0){throw _3380;} -return(_3376)(M);}; - -var _3314=function(M){if(--M.cbt<0){throw _3314;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3318,M.p)); -return((M.p).label)(M);}; - -var _3298=function(M){if(--M.cbt<0){throw _3298;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3302,M.p)); -return((M.p).label)(M);}; - -var _3270=function(M){if(--M.cbt<0){throw _3270;} -M.e[M.e.length-2]=M.v; -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],1,"=")))); -M.e.length-=2; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-8][14]; -M.e[M.e.length-1]=RT.makeSymbol("foldr"); -M.e[M.e.length-2]="given list does not have the same size as the first list: "; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3274,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_3266)(M);}}; - -var _3244=function(M){if(--M.cbt<0){throw _3244;} -return(_3240)(M);}; - -var _3212=function(M){if(--M.cbt<0){throw _3212;} -if(M.v===false){M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _3154=function(M){if(--M.cbt<0){throw _3154;} -M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-8][58]; -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-3]=M.e[M.e.length-11]; -M.v=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"add1")); -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _3132=function(M){if(--M.cbt<0){throw _3132;} -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],0,"add1")); -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][36]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e.push(M.e[M.e.length-9]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3139,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-4]; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3107=function(M){if(--M.cbt<0){throw _3107;} -M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-8][59]; -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-3]=M.e[M.e.length-11]; -M.v=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"add1")); -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _3085=function(M){if(--M.cbt<0){throw _3085;} -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],0,"add1")); -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][39]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e.push(M.e[M.e.length-9]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3092,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-4]; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3064=function(M){if(--M.cbt<0){throw _3064;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_3050)(M);}; - -var _3056=function(M){if(--M.cbt<0){throw _3056;} -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-16]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3060,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-4]=RT.NULL; -return(_3050)(M);}}; - -var _3032=function(M){if(--M.cbt<0){throw _3032;} -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-8]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3036,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-4]=RT.NULL; -return(_3026)(M);}}; - -var _2990=function(M){if(--M.cbt<0){throw _2990;} -M.a=1; -return(_2988)(M);}; - -var _2942=function(M){if(--M.cbt<0){throw _2942;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2914=function(M){if(--M.cbt<0){throw _2914;} -M.a=1; -return(_2912)(M);}; - -var _2876=function(M){if(--M.cbt<0){throw _2876;} -M.a=1; -return(_2874)(M);}; - -var _2854=function(M){if(--M.cbt<0){throw _2854;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2858,M.p)); -return((M.p).label)(M);}; - -var _2824=function(M){if(--M.cbt<0){throw _2824;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2828,M.p)); -return((M.p).label)(M);}; - -var _2794=function(M){if(--M.cbt<0){throw _2794;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2798,M.p)); -return((M.p).label)(M);}; - -var _2753=function(M){if(--M.cbt<0){throw _2753;} -if(M.v===false){M.e[M.e.length-2]=new RT.Closure(_1297,1,[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:372:28"); -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-7][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2764,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e[M.e.length-2]=new RT.Closure(_1296,1,[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:371:28"); -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-7][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2764,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _2724=function(M){if(--M.cbt<0){throw _2724;} -M.a=1; -return(_2722)(M);}; - -var _2676=function(M){if(--M.cbt<0){throw _2676;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2630=function(M){if(--M.cbt<0){throw _2630;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2618=function(M){if(--M.cbt<0){throw _2618;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2622,M.p)); -return((M.p).label)(M);}; - -var _2598=function(M){if(--M.cbt<0){throw _2598;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2602,M.p)); -return((M.p).label)(M);}; - -var _2573=function(M){if(--M.cbt<0){throw _2573;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2577,M.p)); -return((M.p).label)(M);}; - -var _2542=function(M){if(--M.cbt<0){throw _2542;} -if(M.v===false){M.e[M.e.length-2]=new RT.Closure(_1284,(RT.makeArityAtLeast(0)),[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:385:34"); -return(_2522)(M);}else{M.e[M.e.length-2]=new RT.Closure(_1283,1,[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:384:34"); -return(_2522)(M);}}; - -var _2528=function(M){if(--M.cbt<0){throw _2528;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2532,M.p)); -return((M.p).label)(M);}; - -var _2466=function(M){if(--M.cbt<0){throw _2466;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2447=function(M){if(--M.cbt<0){throw _2447;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2415=function(M){if(--M.cbt<0){throw _2415;} -if(M.v===false){M.e[M.e.length-2]=new RT.Closure(_1279,1,[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:372:28"); -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9][61]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-12][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2426,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e[M.e.length-2]=new RT.Closure(_1278,1,[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:371:28"); -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9][61]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-12][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2426,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _2385=function(M){if(--M.cbt<0){throw _2385;} -if(M.v===false){M.e[M.e.length-2]=new RT.Closure(_1275,1,[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:372:28"); -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-7][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2396,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e[M.e.length-2]=new RT.Closure(_1274,1,[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:371:28"); -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-7][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2396,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _2358=function(M){if(--M.cbt<0){throw _2358;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2315=function(M){if(--M.cbt<0){throw _2315;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2288=function(M){if(--M.cbt<0){throw _2288;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2240=function(M){if(--M.cbt<0){throw _2240;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1257,3,[],"loop"); -M.e.push(M.e[M.e.length-5]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2253,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+30),30); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _2175=function(M){if(--M.cbt<0){throw _2175;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2188,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+15),15); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _2136=function(M){if(--M.cbt<0){throw _2136;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2149,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _2071=function(M){if(--M.cbt<0){throw _2071;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2084,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _2044=function(M){if(--M.cbt<0){throw _2044;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.v=(1===M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-1]=new RT.Closure(_1265,1,[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:331:18"); -M.e[M.e.length-2]=new RT.Closure(_1266,2,[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:332:18"); -M.e[M.e.length-3]=new RT.Closure(_1267,(RT.makeArityAtLeast(0)),[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:333:18"); -M.e[M.e.length-4]=new RT.Closure(_1264,RT.makePair(1,RT.makePair(2,RT.makePair((RT.makeArityAtLeast(0)),RT.NULL))),[M.e[M.e.length-3],M.e[M.e.length-2],M.e[M.e.length-1]],"composed"); -M.e.length-=3; -M.v=M.e[M.e.length-1]; -M.e.length-=14; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e[M.e.length-1]=new RT.Closure(_1263,1,[M.e[M.e.length-7],M.e[M.e.length-3]],"composed"); -M.v=M.e[M.e.length-1]; -M.e.length-=14; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _2015=function(M){if(--M.cbt<0){throw _2015;} -if(M.v===false){M.e.length+=6; -M.e[M.e.length-6]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-15][1]; -M.e[M.e.length-2]=RT.makeSymbol("compose1"); -M.e[M.e.length-3]="procedure (arity 1)"; -M.e[M.e.length-4]=M.e[M.e.length-8]; -M.e[M.e.length-5]=M.e[M.e.length-16]; -M.v=M.e[M.e.length-17]; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2019,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_2011)(M);}}; - -var _2007=function(M){if(--M.cbt<0){throw _2007;} -return(_1999)(M);}; - -var _1977=function(M){if(--M.cbt<0){throw _1977;} -if(M.v===false){M.e.length+=6; -M.e[M.e.length-6]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-11][1]; -M.e[M.e.length-2]=RT.makeSymbol("compose1"); -M.e[M.e.length-3]="procedure"; -M.e[M.e.length-4]=M.e[M.e.length-8]; -M.e[M.e.length-5]=M.e[M.e.length-12]; -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1981,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_1973)(M);}}; - -var _1951=function(M){if(--M.cbt<0){throw _1951;} -if(M.v===false){M.e.length+=6; -M.e[M.e.length-6]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-7][1]; -M.e[M.e.length-2]=RT.makeSymbol("compose1"); -M.e[M.e.length-3]="procedure"; -M.e[M.e.length-4]=M.e[M.e.length-12]; -M.e[M.e.length-5]=M.e[M.e.length-8]; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1955,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_1947)(M);}}; - -var _1904=function(M){if(--M.cbt<0){throw _1904;} -M.a=1; -return(_1902)(M);}; - -var _1867=function(M){if(--M.cbt<0){throw _1867;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1822=function(M){if(--M.cbt<0){throw _1822;} -M.a=1; -return(_1820)(M);}; - -var _1776=function(M){if(--M.cbt<0){throw _1776;} -M.a=1; -return(_1774)(M);}; - -var _1740=function(M){if(--M.cbt<0){throw _1740;} -M.a=1; -return(_1738)(M);}; - -var _1703=function(M){if(--M.cbt<0){throw _1703;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1648=function(M){if(--M.cbt<0){throw _1648;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1605=function(M){if(--M.cbt<0){throw _1605;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.v=(1===M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-1]=new RT.Closure(_1246,1,[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:331:18"); -M.e[M.e.length-2]=new RT.Closure(_1247,2,[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:332:18"); -M.e[M.e.length-3]=new RT.Closure(_1248,(RT.makeArityAtLeast(0)),[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:333:18"); -M.e[M.e.length-4]=new RT.Closure(_1245,RT.makePair(1,RT.makePair(2,RT.makePair((RT.makeArityAtLeast(0)),RT.NULL))),[M.e[M.e.length-3],M.e[M.e.length-2],M.e[M.e.length-1]],"composed"); -M.e.length-=3; -M.v=M.e[M.e.length-1]; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e[M.e.length-1]=new RT.Closure(_1244,1,[M.e[M.e.length-7],M.e[M.e.length-3]],"composed"); -M.v=M.e[M.e.length-1]; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1590=function(M){if(--M.cbt<0){throw _1590;} -M.e[M.e.length-1]=M.v; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-4][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1597,M.p)); -return((M.p).label)(M);}; - -var _1566=function(M){if(--M.cbt<0){throw _1566;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1570,M.p)); -return((M.p).label)(M);}; - -var _1551=function(M){if(--M.cbt<0){throw _1551;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.v=(1===M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-1]=new RT.Closure(_1231,1,[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:331:18"); -M.e[M.e.length-2]=new RT.Closure(_1232,2,[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:332:18"); -M.e[M.e.length-3]=new RT.Closure(_1233,(RT.makeArityAtLeast(0)),[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:333:18"); -M.e[M.e.length-4]=new RT.Closure(_1230,RT.makePair(1,RT.makePair(2,RT.makePair((RT.makeArityAtLeast(0)),RT.NULL))),[M.e[M.e.length-3],M.e[M.e.length-2],M.e[M.e.length-1]],"composed"); -M.e.length-=3; -M.v=M.e[M.e.length-1]; -M.e.length-=18; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e[M.e.length-1]=new RT.Closure(_1229,1,[M.e[M.e.length-7],M.e[M.e.length-3]],"composed"); -M.v=M.e[M.e.length-1]; -M.e.length-=18; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1512=function(M){if(--M.cbt<0){throw _1512;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.v=(1===M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-1]=new RT.Closure(_1216,1,[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:331:18"); -M.e[M.e.length-2]=new RT.Closure(_1217,2,[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:332:18"); -M.e[M.e.length-3]=new RT.Closure(_1218,(RT.makeArityAtLeast(0)),[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:333:18"); -M.e[M.e.length-4]=new RT.Closure(_1215,RT.makePair(1,RT.makePair(2,RT.makePair((RT.makeArityAtLeast(0)),RT.NULL))),[M.e[M.e.length-3],M.e[M.e.length-2],M.e[M.e.length-1]],"composed"); -M.e.length-=3; -M.v=M.e[M.e.length-1]; -M.e.length-=22; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e[M.e.length-1]=new RT.Closure(_1214,1,[M.e[M.e.length-7],M.e[M.e.length-3]],"composed"); -M.v=M.e[M.e.length-1]; -M.e.length-=22; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1504=function(M){if(--M.cbt<0){throw _1504;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1508,M.p)); -return((M.p).label)(M);}; - -var _1451=function(M){if(--M.cbt<0){throw _1451;} -if(M.v===false){M.e.length+=6; -M.e[M.e.length-6]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-11][1]; -M.e[M.e.length-2]=RT.makeSymbol("compose"); -M.e[M.e.length-3]="procedure"; -M.e[M.e.length-4]=M.e[M.e.length-8]; -M.e[M.e.length-5]=M.e[M.e.length-12]; -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1455,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_1447)(M);}}; - -var _1439=function(M){if(--M.cbt<0){throw _1439;} -return(_1431)(M);}; - - -var _6605=function(M){if(--M.cbt<0){throw _6605;} -M.e.length-=(M.a-1); -M.v=((plt.baselib.numbers.equals(3,RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][36]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e[M.e.length-2]=3; -M.e.push(M.e[M.e.length-7]); -M.v=3; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6612,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - -var _6585=function(M){if(--M.cbt<0){throw _6585;} -M.e.length-=(M.a-1); -M.v=((plt.baselib.numbers.equals(1,RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][36]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e[M.e.length-2]=1; -M.e.push(M.e[M.e.length-7]); -M.v=1; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6592,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - - -var _6554=function(M){if(--M.cbt<0){throw _6554;} -M.e.length-=(M.a-1); -return(_6547)(M);}; - - - - - - - - -var _1386=function(M){if(--M.cbt<0){throw _1386;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5930,M.p)); -return((M.p).label)(M);}; - -var _5917=function(M){if(--M.cbt<0){throw _5917;} -M.e.length-=(M.a-1); -return(_5904)(M);}; - - -var _6460=function(M){if(--M.cbt<0){throw _6460;} -M.e.length-=(M.a-1); -return(_6435)(M);}; - -var _1382=function(M){if(--M.cbt<0){throw _1382;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-5][48]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - - -var _1423=function(M){if(--M.cbt<0){throw _1423;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6985,M.p)); -return((M.p).label)(M);}; - - - - - - - - -var _1426=function(M){if(--M.cbt<0){throw _1426;} -M.unspliceRestFromStack(1,(M.a-1)); -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=6; -M.e[M.e.length-6]=M.e[M.e.length-7][65]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.e[M.e.length-5]=0; -M.v=RT.NULL; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(6+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6326=function(M){if(--M.cbt<0){throw _6326;} -M.e.length-=(M.a-1); -return(_6319)(M);}; - -var _6316=function(M){if(--M.cbt<0){throw _6316;} -M.e.length-=(M.a-1); -return(_6313)(M);}; - - - - -var _1408=function(M){if(--M.cbt<0){throw _1408;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6843,M.p)); -return((M.p).label)(M);}; - - - - -var _6791=function(M){if(--M.cbt<0){throw _6791;} -M.e.length-=(M.a-1); -return(_6784)(M);}; - - -var _1410=function(M){if(--M.cbt<0){throw _1410;} -M.v=M.primitives["values"]; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - - - - -var _6182=function(M){if(--M.cbt<0){throw _6182;} -M.e.length-=(M.a-1); -return(_6175)(M);}; - - - - - -var _1368=function(M){if(--M.cbt<0){throw _1368;} -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=4; -M.e[M.e.length-4]=new RT.Closure(_1369,4,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -M.e.splice(M.e.length-(4+3),3); -M.c[M.c.length-1].p=M.p; -return(_1369)(M);}else{M.v=RT.NULL; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6680=function(M){if(--M.cbt<0){throw _6680;} -M.e.length-=(M.a-1); -M.v=((plt.baselib.numbers.equals(3,RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][39]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e[M.e.length-2]=3; -M.e.push(M.e[M.e.length-7]); -M.v=3; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6687,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - - - -var _6645=function(M){if(--M.cbt<0){throw _6645;} -M.e.length-=(M.a-1); -return(_6632)(M);}; - - -var _6079=function(M){if(--M.cbt<0){throw _6079;} -M.e.length-=(M.a-1); -return(_6076)(M);}; - -var _6615=function(M){if(--M.cbt<0){throw _6615;} -M.e.length-=(M.a-1); -M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-6][58]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.v=4; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - - - -var _6039=function(M){if(--M.cbt<0){throw _6039;} -M.e.length-=(M.a-1); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4][5]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e.length+=1; -M.e.push(M.e[M.e.length-5][26]); -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6046,M.p)); -return((M.p).label)(M);}; - - -var _6018=function(M){if(--M.cbt<0){throw _6018;} -M.e.length-=(M.a-1); -return(_6015)(M);}; - -var _6570=function(M){if(--M.cbt<0){throw _6570;} -M.e.length-=(M.a-1); -return(_6557)(M);}; - - - - - - - - - -var _6486=function(M){if(--M.cbt<0){throw _6486;} -M.e.length-=(M.a-1); -return(_6483)(M);}; - -var _6480=function(M){if(--M.cbt<0){throw _6480;} -M.e.length-=(M.a-1); -return(_6467)(M);}; - -var _1398=function(M){if(--M.cbt<0){throw _1398;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6473,M.p)); -return((M.p).label)(M);}; - - - -var _6438=function(M){if(--M.cbt<0){throw _6438;} -M.e.length-=(M.a-1); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4][5]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e.length+=1; -M.e.push(M.e[M.e.length-5][26]); -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6445,M.p)); -return((M.p).label)(M);}; - -var _6429=function(M){if(--M.cbt<0){throw _6429;} -M.e.length-=(M.a-1); -return(_6430)(M);}; - -var _6417=function(M){if(--M.cbt<0){throw _6417;} -M.e.length-=(M.a-1); -return(_6414)(M);}; - -var _6411=function(M){if(--M.cbt<0){throw _6411;} -M.e.length-=(M.a-1); -return(_6404)(M);}; - - - - - - - - -var _6310=function(M){if(--M.cbt<0){throw _6310;} -M.e.length-=(M.a-1); -return(_6303)(M);}; - -var _5749=function(M){if(--M.cbt<0){throw _5749;} -M.e.length-=(M.a-1); -return(_5736)(M);}; - -var _6559=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("build-vector"); -M.e[M.e.length-2]="procedure (arity 1)"; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6571,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6557)(M);}}; - - - - - - - - - - -var _6209=function(M){if(--M.cbt<0){throw _6209;} -M.e.length-=(M.a-1); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4][5]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e.length+=1; -M.e.push(M.e[M.e.length-5][26]); -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6216,M.p)); -return((M.p).label)(M);}; - -var _6200=function(M){if(--M.cbt<0){throw _6200;} -M.e.length-=(M.a-1); -return(_6201)(M);}; - -var _6188=function(M){if(--M.cbt<0){throw _6188;} -M.e.length-=(M.a-1); -return(_6185)(M);}; - - - - - - - -var _5546=function(M){if(--M.cbt<0){throw _5546;} -M.e.length-=(M.a-1); -return(_5543)(M);}; - - - - - - -var _6073=function(M){if(--M.cbt<0){throw _6073;} -M.e.length-=(M.a-1); -return(_6066)(M);}; - - - - -var _5448=function(M){if(--M.cbt<0){throw _5448;} -M.e.length-=(M.a-1); -return(_5445)(M);}; - -var _5436=function(M){if(--M.cbt<0){throw _5436;} -M.e.length-=(M.a-1); -return(_5423)(M);}; - -var _6012=function(M){if(--M.cbt<0){throw _6012;} -M.e.length-=(M.a-1); -return(_6005)(M);}; - - - - - - - - - -var _5937=function(M){if(--M.cbt<0){throw _5937;} -M.e.length-=(M.a-1); -return(_5924)(M);}; - - - - - -var _1381=function(M){if(--M.cbt<0){throw _1381;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-5][47]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1380=function(M){if(--M.cbt<0){throw _1380;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][14]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]="non-pair found in list: "; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.e[M.e.length-4]=" in "; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - - - - - - - - - - - - - - - - - - - - - - - -var _5641=function(M){if(--M.cbt<0){throw _5641;} -M.e.length-=(M.a-1); -return(_5638)(M);}; - - - - - - - -var _5552=function(M){if(--M.cbt<0){throw _5552;} -M.e.length-=(M.a-1); -return(_5549)(M);}; - - - - - - - - - - -var _4868=function(M){if(--M.cbt<0){throw _4868;} -M.e.length-=(M.a-1); -return(_4865)(M);}; - -var _5442=function(M){if(--M.cbt<0){throw _5442;} -M.e.length-=(M.a-1); -return(_5439)(M);}; - - - - - - - - - - - - -var _1358=function(M){if(--M.cbt<0){throw _1358;} -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1359,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-3]=M.e[M.e.length-7]; -M.e[M.e.length-4]=M.e[M.e.length-8]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -M.e.splice(M.e.length-(5+4),4); -M.c[M.c.length-1].p=M.p; -return(_1359)(M);}else{M.v=RT.NULL; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _5322=function(M){if(--M.cbt<0){throw _5322;} -M.e.length-=(M.a-1); -return(_5319)(M);}; - - -var _4727=function(M){if(--M.cbt<0){throw _4727;} -M.e.length-=(M.a-1); -return(_4724)(M);}; - - - - - - - - - -var _4644=function(M){if(--M.cbt<0){throw _4644;} -M.e.length-=(M.a-1); -return(_4641)(M);}; - - - - - - -var _1679=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - - - - - - - - - - - - - - - - - - - - - - - -var _1290=function(M){if(--M.cbt<0){throw _1290;} -M.unspliceRestFromStack(0,M.a); -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2697,M.p)); -return((M.p).label)(M);}; - - - - - -var _4862=function(M){if(--M.cbt<0){throw _4862;} -M.e.length-=(M.a-1); -return(_4859)(M);}; - - - - - - -var _1339=function(M){if(--M.cbt<0){throw _1339;} -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4826,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - - - - - - - -var _1914=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1900=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - - - - -var _3497=function(M){if(--M.cbt<0){throw _3497;} -M.e.length-=(M.a-1); -return(_3490)(M);}; - - - - - - - - - - -var _3409=function(M){if(--M.cbt<0){throw _3409;} -M.e.length-=(M.a-1); -return(_3402)(M);}; - - - -var _1333=function(M){if(--M.cbt<0){throw _1333;} -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4592,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3369=function(M){if(--M.cbt<0){throw _3369;} -M.e.length-=(M.a-1); -return(_3362)(M);}; - - - - - - - - - - - - -var _3243=function(M){if(--M.cbt<0){throw _3243;} -M.e.length-=(M.a-1); -return(_3240)(M);}; - -var _4459=function(M){if(--M.cbt<0){throw _4459;} -M.e.length-=(M.a-1); -return(_4456)(M);}; - - - - - - - - -var _1271=function(M){if(--M.cbt<0){throw _1271;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2350,M.p)); -return((M.p).label)(M);}; - - - -var _3142=function(M){if(--M.cbt<0){throw _3142;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],0,"add1")); -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-6],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][36]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e.push(M.e[M.e.length-10]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3150,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - -var _3120=function(M){if(--M.cbt<0){throw _3120;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-6],0,"add1")); -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][36]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e.push(M.e[M.e.length-8]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3128,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-3]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - - - - - - - - - - - - - - -var _3537=function(M){if(--M.cbt<0){throw _3537;} -M.e.length-=(M.a-1); -return(_3530)(M);}; - -var _3527=function(M){if(--M.cbt<0){throw _3527;} -M.e.length-=(M.a-1); -return(_3524)(M);}; - - - - -var _3487=function(M){if(--M.cbt<0){throw _3487;} -M.e.length-=(M.a-1); -return(_3484)(M);}; - - - - - - - - - - -var _3399=function(M){if(--M.cbt<0){throw _3399;} -M.e.length-=(M.a-1); -return(_3396)(M);}; - -var _3389=function(M){if(--M.cbt<0){throw _3389;} -M.e.length-=(M.a-1); -return(_3382)(M);}; - -var _3379=function(M){if(--M.cbt<0){throw _3379;} -M.e.length-=(M.a-1); -return(_3376)(M);}; - - -var _3359=function(M){if(--M.cbt<0){throw _3359;} -M.e.length-=(M.a-1); -return(_3356)(M);}; - - - -var _1298=function(M){if(--M.cbt<0){throw _1298;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2885,M.p)); -return((M.p).label)(M);}; - - - - - - -var _3273=function(M){if(--M.cbt<0){throw _3273;} -M.e.length-=(M.a-1); -return(_3266)(M);}; - -var _3263=function(M){if(--M.cbt<0){throw _3263;} -M.e.length-=(M.a-1); -return(_3260)(M);}; - - -var _2655=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _3223=function(M){if(--M.cbt<0){throw _3223;} -M.e.length-=(M.a-1); -return(_3220)(M);}; - - - - - - - -var _1269=function(M){if(--M.cbt<0){throw _1269;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 3]).racketArity,M.a)){return(_1270)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 3]; -return(_1272)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_1271)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_1270)(M);}}; - - - - - -var _1285=function(M){if(--M.cbt<0){throw _1285;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-2]; -M.e.push(M.e[M.e.length-1]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2648,M.p)); -return((M.p).label)(M);}; - - -var _3106=function(M){if(--M.cbt<0){throw _3106;} -M.e.length-=(M.a-1); -M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-8][59]; -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-3]=M.e[M.e.length-11]; -M.v=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"add1")); -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1217=function(M){if(--M.cbt<0){throw _1217;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1640,M.p)); -return((M.p).label)(M);}; - -var _3084=function(M){if(--M.cbt<0){throw _3084;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],0,"add1")); -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][39]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e.push(M.e[M.e.length-9]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3092,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-4]; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3073=function(M){if(--M.cbt<0){throw _3073;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-6],0,"add1")); -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][39]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e.push(M.e[M.e.length-8]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3081,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-3]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - - - - - -var _1954=function(M){if(--M.cbt<0){throw _1954;} -M.e.length-=(M.a-1); -return(_1947)(M);}; - - - - - - -var _3517=function(M){if(--M.cbt<0){throw _3517;} -M.e.length-=(M.a-1); -return(_3510)(M);}; - -var _3507=function(M){if(--M.cbt<0){throw _3507;} -M.e.length-=(M.a-1); -return(_3504)(M);}; - - - -var _1818=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - - - - -var _1311=function(M){if(--M.cbt<0){throw _1311;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3009,M.p)); -return((M.p).label)(M);}; - - -var _1309=function(M){if(--M.cbt<0){throw _1309;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2990,M.p)); -return((M.p).label)(M);}; - - -var _1306=function(M){if(--M.cbt<0){throw _1306;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2961,M.p)); -return((M.p).label)(M);}; - - -var _1305=function(M){if(--M.cbt<0){throw _1305;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2952,M.p)); -return((M.p).label)(M);}; - - -var _1303=function(M){if(--M.cbt<0){throw _1303;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2933,M.p)); -return((M.p).label)(M);}; - - -var _1301=function(M){if(--M.cbt<0){throw _1301;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2914,M.p)); -return((M.p).label)(M);}; - - -var _1299=function(M){if(--M.cbt<0){throw _1299;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2895,M.p)); -return((M.p).label)(M);}; - - - - - - - -var _3253=function(M){if(--M.cbt<0){throw _3253;} -M.e.length-=(M.a-1); -return(_3246)(M);}; - - -var _3233=function(M){if(--M.cbt<0){throw _3233;} -M.e.length-=(M.a-1); -return(_3226)(M);}; - - -var _1294=function(M){if(--M.cbt<0){throw _1294;} -M.unspliceRestFromStack(0,M.a); -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2735,M.p)); -return((M.p).label)(M);}; - - -var _1292=function(M){if(--M.cbt<0){throw _1292;} -M.unspliceRestFromStack(0,M.a); -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-2]); -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2714,M.p)); -return((M.p).label)(M);}; - - - -var _1225=function(M){if(--M.cbt<0){throw _1225;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 3]).racketArity,M.a)){return(_1226)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 3]; -return(_1228)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_1227)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_1226)(M);}}; - -var _1227=function(M){if(--M.cbt<0){throw _1227;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1722,M.p)); -return((M.p).label)(M);}; - -var _1288=function(M){if(--M.cbt<0){throw _1288;} -M.unspliceRestFromStack(0,M.a); -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-2]); -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2676,M.p)); -return((M.p).label)(M);}; - - -var _1264=function(M){if(--M.cbt<0){throw _1264;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 3]).racketArity,M.a)){return(_1265)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 3]; -return(_1267)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_1266)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_1265)(M);}}; - -var _1286=function(M){if(--M.cbt<0){throw _1286;} -M.unspliceRestFromStack(0,M.a); -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2659,M.p)); -return((M.p).label)(M);}; - -var _1222=function(M){if(--M.cbt<0){throw _1222;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1683,M.p)); -return((M.p).label)(M);}; - - -var _1261=function(M){if(--M.cbt<0){throw _1261;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2280,M.p)); -return((M.p).label)(M);}; - - - - - - - - -var _1438=function(M){if(--M.cbt<0){throw _1438;} -M.e.length-=(M.a-1); -return(_1431)(M);}; - - -var _1312=function(M){if(--M.cbt<0){throw _1312;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][41]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3020,M.p)); -return((M.p).label)(M);}; - - - - - - - - - - - - -var _1310=function(M){if(--M.cbt<0){throw _1310;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2999,M.p)); -return((M.p).label)(M);}; - - -var _1308=function(M){if(--M.cbt<0){throw _1308;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2980,M.p)); -return((M.p).label)(M);}; - - -var _1307=function(M){if(--M.cbt<0){throw _1307;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2971,M.p)); -return((M.p).label)(M);}; - - -var _1304=function(M){if(--M.cbt<0){throw _1304;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2942,M.p)); -return((M.p).label)(M);}; - - -var _1302=function(M){if(--M.cbt<0){throw _1302;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2923,M.p)); -return((M.p).label)(M);}; - - -var _1300=function(M){if(--M.cbt<0){throw _1300;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2904,M.p)); -return((M.p).label)(M);}; - - -var _1250=function(M){if(--M.cbt<0){throw _1250;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 3]).racketArity,M.a)){return(_1251)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 3]; -return(_1253)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_1252)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_1251)(M);}}; - - -var _1297=function(M){if(--M.cbt<0){throw _1297;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2876,M.p)); -return((M.p).label)(M);}; - -var _1244=function(M){if(--M.cbt<0){throw _1244;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1867,M.p)); -return((M.p).label)(M);}; - -var _1295=function(M){if(--M.cbt<0){throw _1295;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-5][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2749,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - - -var _6336=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6356,M.p)); -return((M.p).label)(M);}; - -var _1239=function(M){if(--M.cbt<0){throw _1239;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1822,M.p)); -return((M.p).label)(M);}; - - -var _1238=function(M){if(--M.cbt<0){throw _1238;} -M.unspliceRestFromStack(0,M.a); -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1812,M.p)); -return((M.p).label)(M);}; - - -var _1293=function(M){if(--M.cbt<0){throw _1293;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-2]; -M.e.push(M.e[M.e.length-1]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2724,M.p)); -return((M.p).label)(M);}; - - -var _1291=function(M){if(--M.cbt<0){throw _1291;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-2]); -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2706,M.p)); -return((M.p).label)(M);}; - -var _1232=function(M){if(--M.cbt<0){throw _1232;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1765,M.p)); -return((M.p).label)(M);}; - - -var _1289=function(M){if(--M.cbt<0){throw _1289;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-2]; -M.e.push(M.e[M.e.length-1]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2686,M.p)); -return((M.p).label)(M);}; - -var _1268=function(M){if(--M.cbt<0){throw _1268;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2331,M.p)); -return((M.p).label)(M);}; - -var _1287=function(M){if(--M.cbt<0){throw _1287;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-2]); -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2668,M.p)); -return((M.p).label)(M);}; - - -var _1267=function(M){if(--M.cbt<0){throw _1267;} -M.unspliceRestFromStack(0,M.a); -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2323,M.p)); -return((M.p).label)(M);}; - -var _1263=function(M){if(--M.cbt<0){throw _1263;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2296,M.p)); -return((M.p).label)(M);}; - -var _1284=function(M){if(--M.cbt<0){throw _1284;} -M.unspliceRestFromStack(0,M.a); -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-2]); -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2638,M.p)); -return((M.p).label)(M);}; - - -var _1218=function(M){if(--M.cbt<0){throw _1218;} -M.unspliceRestFromStack(0,M.a); -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1648,M.p)); -return((M.p).label)(M);}; - -var _1282=function(M){if(--M.cbt<0){throw _1282;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-5][44]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2528,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - - -var _2006=function(M){if(--M.cbt<0){throw _2006;} -M.e.length-=(M.a-1); -return(_1999)(M);}; - -var _1992=function(M){if(--M.cbt<0){throw _1992;} -M.e.length-=(M.a-1); -return(_1985)(M);}; - -var _1454=function(M){if(--M.cbt<0){throw _1454;} -M.e.length-=(M.a-1); -return(_1447)(M);}; - - -var _1281=function(M){if(--M.cbt<0){throw _1281;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2514,M.p)); -return((M.p).label)(M);}; - -var _1280=function(M){if(--M.cbt<0){throw _1280;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2504,M.p)); -return((M.p).label)(M);}; - -var _1279=function(M){if(--M.cbt<0){throw _1279;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2495,M.p)); -return((M.p).label)(M);}; - -var _1278=function(M){if(--M.cbt<0){throw _1278;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2485,M.p)); -return((M.p).label)(M);}; - -var _1277=function(M){if(--M.cbt<0){throw _1277;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2476,M.p)); -return((M.p).label)(M);}; - -var _1276=function(M){if(--M.cbt<0){throw _1276;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2466,M.p)); -return((M.p).label)(M);}; - -var _1275=function(M){if(--M.cbt<0){throw _1275;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2457,M.p)); -return((M.p).label)(M);}; - - - -var _1273=function(M){if(--M.cbt<0){throw _1273;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-3][44]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2368,M.p)); -return((M.p).label)(M);}; - - - - - - - - - - - -var _6547=function(M){--M.cbt<0; -M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6563,M.p)); -return((M.p).label)(M);}; - -var _1654=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6469=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("filter"); -M.e[M.e.length-2]="procedure (arity 1)"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6481,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6467)(M);}}; - - -var _1252=function(M){if(--M.cbt<0){throw _1252;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1929,M.p)); -return((M.p).label)(M);}; - - - -var _1248=function(M){if(--M.cbt<0){throw _1248;} -M.unspliceRestFromStack(0,M.a); -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1894,M.p)); -return((M.p).label)(M);}; - - - - - -var _1243=function(M){if(--M.cbt<0){throw _1243;} -M.unspliceRestFromStack(0,M.a); -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1858,M.p)); -return((M.p).label)(M);}; - -var _6313=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][5]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6323,M.p)); -return((M.p).label)(M);}; - -var _1235=function(M){if(--M.cbt<0){throw _1235;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 3]).racketArity,M.a)){return(_1236)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 3]; -return(_1238)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_1237)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_1236)(M);}}; - - - - - -var _1233=function(M){if(--M.cbt<0){throw _1233;} -M.unspliceRestFromStack(0,M.a); -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1776,M.p)); -return((M.p).label)(M);}; - -var _1256=function(M){if(--M.cbt<0){throw _1256;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2071,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-1]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _1272=function(M){if(--M.cbt<0){throw _1272;} -M.unspliceRestFromStack(0,M.a); -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2358,M.p)); -return((M.p).label)(M);}; - -var _1228=function(M){if(--M.cbt<0){throw _1228;} -M.unspliceRestFromStack(0,M.a); -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1730,M.p)); -return((M.p).label)(M);}; - - - -var _1266=function(M){if(--M.cbt<0){throw _1266;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2315,M.p)); -return((M.p).label)(M);}; - -var _1220=function(M){if(--M.cbt<0){throw _1220;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 3]).racketArity,M.a)){return(_1221)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 3]; -return(_1223)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_1222)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_1221)(M);}}; - -var _1219=function(M){if(--M.cbt<0){throw _1219;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1658,M.p)); -return((M.p).label)(M);}; - -var _6005=function(M){--M.cbt<0; -M.v=RT.isList(M.e[M.e.length-5]); -if(M.v===false){M.e.length+=8; -M.e[M.e.length-8]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-9][1]; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-3]="list"; -M.e[M.e.length-4]=2; -M.e[M.e.length-5]=M.e[M.e.length-11]; -M.e[M.e.length-6]=M.e[M.e.length-12]; -M.e[M.e.length-7]=M.e[M.e.length-13]; -M.v=M.e[M.e.length-14]; -M.p=M.e[M.e.length-8]; -M.e[M.e.length-8]=M.v; -M.a=8; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6019,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6015)(M);}}; - -var _1259=function(M){if(--M.cbt<0){throw _1259;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 3]).racketArity,M.a)){return(_1260)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 3]; -return(_1262)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_1261)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_1260)(M);}}; - - -var _2018=function(M){if(--M.cbt<0){throw _2018;} -M.e.length-=(M.a-1); -return(_2011)(M);}; - - - - -var _1980=function(M){if(--M.cbt<0){throw _1980;} -M.e.length-=(M.a-1); -return(_1973)(M);}; - -var _1966=function(M){if(--M.cbt<0){throw _1966;} -M.e.length-=(M.a-1); -return(_1959)(M);}; - - -var _1254=function(M){if(--M.cbt<0){throw _1254;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1951,M.p)); -return((M.p).label)(M);}; - -var _1936=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6994=function(M){if(--M.cbt<0){throw _6994;} -if(M.a===0){return(_6992)(M);}else{M.e.push(M.v); -return(_6992)(M);}}; - - - - - -var _1854=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1407=function(M){if(--M.cbt<0){throw _1407;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6835,M.p)); -return((M.p).label)(M);}; - - - -var _1403=function(M){if(--M.cbt<0){throw _1403;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6778,M.p)); -return((M.p).label)(M);}; - - -var _1761=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1750=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - - - - - -var _1690=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1668=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - - - - - -var _1253=function(M){if(--M.cbt<0){throw _1253;} -M.unspliceRestFromStack(0,M.a); -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1940,M.p)); -return((M.p).label)(M);}; - -var _1249=function(M){if(--M.cbt<0){throw _1249;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1904,M.p)); -return((M.p).label)(M);}; - -var _1245=function(M){if(--M.cbt<0){throw _1245;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 3]).racketArity,M.a)){return(_1246)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 3]; -return(_1248)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_1247)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_1246)(M);}}; - -var _1247=function(M){if(--M.cbt<0){throw _1247;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1886,M.p)); -return((M.p).label)(M);}; - - - - -var _1240=function(M){if(--M.cbt<0){throw _1240;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 3]).racketArity,M.a)){return(_1241)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 3]; -return(_1243)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_1242)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_1241)(M);}}; - -var _1242=function(M){if(--M.cbt<0){throw _1242;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1847,M.p)); -return((M.p).label)(M);}; - - -var _1237=function(M){if(--M.cbt<0){throw _1237;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1804,M.p)); -return((M.p).label)(M);}; - -var _1234=function(M){if(--M.cbt<0){throw _1234;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1785,M.p)); -return((M.p).label)(M);}; - - - -var _6185=function(M){--M.cbt<0; -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-2][26]); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6205,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][5]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6197,M.p)); -return((M.p).label)(M);}}; - -var _1230=function(M){if(--M.cbt<0){throw _1230;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 3]).racketArity,M.a)){return(_1231)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 3]; -return(_1233)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_1232)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_1231)(M);}}; - -var _1229=function(M){if(--M.cbt<0){throw _1229;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1740,M.p)); -return((M.p).label)(M);}; - - -var _1224=function(M){if(--M.cbt<0){throw _1224;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1703,M.p)); -return((M.p).label)(M);}; - - - - -var _1391=function(M){if(--M.cbt<0){throw _1391;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6070,M.p)); -return((M.p).label)(M);}; - -var _1223=function(M){if(--M.cbt<0){throw _1223;} -M.unspliceRestFromStack(0,M.a); -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1694,M.p)); -return((M.p).label)(M);}; - - -var _1215=function(M){if(--M.cbt<0){throw _1215;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 3]).racketArity,M.a)){return(_1216)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 3]; -return(_1218)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_1217)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_1216)(M);}}; - - - - -var _1486=function(M){if(--M.cbt<0){throw _1486;} -M.e.length-=(M.a-1); -return(_1479)(M);}; - -var _1470=function(M){if(--M.cbt<0){throw _1470;} -M.e.length-=(M.a-1); -return(_1463)(M);}; - -var _1379=function(M){if(--M.cbt<0){throw _1379;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][14]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - - - -var _1213=function(M){if(--M.cbt<0){throw _1213;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1435,M.p)); -return((M.p).label)(M);}; - -var _7082=function(M){--M.cbt<0; -M.e.splice(M.e.length-(3+1),1); -M.e.splice(M.e.length-(3+1),1); -M.e.splice(M.e.length-(3+1),1); -M.e.splice(M.e.length-(3+1),1); -M.e[M.e.length-4][18]=M.v; -M.e[M.e.length-4][19]=M.e[M.e.length-1]; -M.e[M.e.length-4][20]=M.e[M.e.length-2]; -M.e[M.e.length-4][21]=M.e[M.e.length-3]; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _6983=function(M){if(--M.cbt<0){throw _6983;} -if(M.a===0){return(_6981)(M);}else{M.e.push(M.v); -return(_6981)(M);}}; - -var _6972=function(M){if(--M.cbt<0){throw _6972;} -if(M.a===0){return(_6970)(M);}else{M.e.push(M.v); -return(_6970)(M);}}; - -var _1422=function(M){if(--M.cbt<0){throw _1422;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6974,M.p)); -return((M.p).label)(M);}; - -var _1417=function(M){if(--M.cbt<0){throw _1417;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6934,M.p)); -return((M.p).label)(M);}; - -var _1415=function(M){if(--M.cbt<0){throw _1415;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6923,M.p)); -return((M.p).label)(M);}; - -var _1414=function(M){if(--M.cbt<0){throw _1414;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6879,M.p)); -return((M.p).label)(M);}; - -var _1413=function(M){if(--M.cbt<0){throw _1413;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6869,M.p)); -return((M.p).label)(M);}; - -var _1375=function(M){if(--M.cbt<0){throw _1375;} -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5706,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1373,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5700,M.p)); -return((M.p).label)(M);}}; - -var _1404=function(M){if(--M.cbt<0){throw _1404;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6788,M.p)); -return((M.p).label)(M);}; - -var _1402=function(M){if(--M.cbt<0){throw _1402;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 3]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 4]).racketArity,M.a)){return(_1403)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 4]; -return(_1411)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 3]; -return(_1410)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_1404)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_1403)(M);}}; - -var _6743=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_6732)(M);}; - -var _6707=function(M){--M.cbt<0; -M.e.push(M.e[M.e.length-1][41]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6727,M.p)); -return((M.p).label)(M);}; - -var _6709=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("build-list"); -M.e[M.e.length-2]="procedure (arity 1)"; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6721,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6707)(M);}}; - -var _1371=function(M){if(--M.cbt<0){throw _1371;} -M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-3]; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=new RT.Closure(_1371,4,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-3]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_1368,2,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-4]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_1368,2,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5619,M.p)); -return((M.p).label)(M);}}; - -var _6632=function(M){--M.cbt<0; -M.e.length+=1; -M.e.push(M.e[M.e.length-2][38]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6650,M.p)); -return((M.p).label)(M);}; - -var _6622=function(M){--M.cbt<0; -M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6638,M.p)); -return((M.p).label)(M);}; - -var _6557=function(M){--M.cbt<0; -M.e.length+=1; -M.e.push(M.e[M.e.length-2][35]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6575,M.p)); -return((M.p).label)(M);}; - -var _1399=function(M){if(--M.cbt<0){throw _1399;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][34]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6551,M.p)); -return((M.p).label)(M);}; - -var _1365=function(M){if(--M.cbt<0){throw _1365;} -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5513,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1363,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5507,M.p)); -return((M.p).label)(M);}}; - -var _6483=function(M){--M.cbt<0; -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-4]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6500,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-1][32]); -M.v=RT.NULL; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _6467=function(M){--M.cbt<0; -M.v=RT.isList(M.e[M.e.length-3]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("filter"); -M.e[M.e.length-2]="proper list"; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6487,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6483)(M);}}; - -var _6435=function(M){--M.cbt<0; -M.e.length-=1; -return(_6420)(M);}; - -var _6420=function(M){--M.cbt<0; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][55]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=RT.makePair(M.e[M.e.length-7],M.e[M.e.length-8]); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1397=function(M){if(--M.cbt<0){throw _1397;} -M.unspliceRestFromStack(3,(M.a-3)); -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6408,M.p)); -return((M.p).label)(M);}; - -var _6367=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1361=function(M){if(--M.cbt<0){throw _1361;} -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5413,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1358,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5407,M.p)); -return((M.p).label)(M);}}; - -var _6376=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6390,M.p)); -return((M.p).label)(M);}; - -var _1396=function(M){if(--M.cbt<0){throw _1396;} -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-15]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1396,3,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-18]; -M.e[M.e.length-2]=M.e[M.e.length-19]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6382,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-14]; -return(_6376)(M);}}else{M.v=M.e[M.e.length-11]; -return(_6373)(M);}}else{M.v=M.e[M.e.length-8]; -return(_6370)(M);}}else{M.v=M.e[M.e.length-5]; -return(_6367)(M);}}else{M.v=M.e[M.e.length-2]; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6333=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6360,M.p)); -return((M.p).label)(M);}; - -var _5325=function(M){--M.cbt<0; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1358,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return(_1358)(M);}; - -var _1357=function(M){if(--M.cbt<0){throw _1357;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][3]); -M.v=RT.isList(M.e[M.e.length-3]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][1]; -M.e[M.e.length-1]=RT.makeSymbol("remove*"); -M.e[M.e.length-2]="list"; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5323,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5319)(M);}}; - -var _6303=function(M){--M.cbt<0; -M.v=RT.isList(M.e[M.e.length-4]); -if(M.v===false){M.e.length+=6; -M.e[M.e.length-6]=M.e[M.e.length-7][1]; -M.e[M.e.length-1]=RT.makeSymbol("foldr"); -M.e[M.e.length-2]="list"; -M.e[M.e.length-3]=2; -M.e[M.e.length-4]=M.e[M.e.length-8]; -M.e[M.e.length-5]=M.e[M.e.length-9]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6317,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6313)(M);}}; - -var _1395=function(M){if(--M.cbt<0){throw _1395;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6307,M.p)); -return((M.p).label)(M);}; - -var _1352=function(M){if(--M.cbt<0){throw _1352;} -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5246,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5240,M.p)); -return((M.p).label)(M);}}; - -var _6206=function(M){--M.cbt<0; -M.e.length-=1; -return(_6191)(M);}; - -var _6191=function(M){--M.cbt<0; -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-5],M.e[M.e.length-6]); -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=RT.isPair(M.e[M.e.length-1]); -M.e.length-=1; -if(M.v===false){M.v=M.e[M.e.length-4]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-8][24]; -M.e[M.e.length-1]=M.primitives["car"]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6239,M.p)); -return((M.p).label)(M);}}; - -var _1393=function(M){if(--M.cbt<0){throw _1393;} -M.unspliceRestFromStack(3,(M.a-3)); -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6179,M.p)); -return((M.p).label)(M);}; - -var _1392=function(M){if(--M.cbt<0){throw _1392;} -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6137,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6082=function(M){--M.cbt<0; -M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6096,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-3]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6076=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][5]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6086,M.p)); -return((M.p).label)(M);}; - -var _1390=function(M){if(--M.cbt<0){throw _1390;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){return(_1391)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_1393)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_1391)(M);}}; - -var _6015=function(M){--M.cbt<0; -M.v=(M.e[M.e.length-6]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-2][26]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6035,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-6]; -M.v=M.e[M.e.length-5]; -M.v=M.e[M.e.length-4]; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][5]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6027,M.p)); -return((M.p).label)(M);}}; - -var _1389=function(M){if(--M.cbt<0){throw _1389;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6009,M.p)); -return((M.p).label)(M);}; - -var _1345=function(M){if(--M.cbt<0){throw _1345;} -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5014,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5008,M.p)); -return((M.p).label)(M);}}; - -var _1388=function(M){if(--M.cbt<0){throw _1388;} -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-3]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5978,M.p)); -return((M.p).label)(M);}else{M.v=RT.makePair(M.e[M.e.length-2],RT.NULL); -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _5963=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_5956)(M);}; - -var _5924=function(M){--M.cbt<0; -M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-5][51]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _5904=function(M){--M.cbt<0; -M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][50]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.e[M.e.length-3]=M.e[M.e.length-9]; -M.e[M.e.length-4]=M.e[M.e.length-8]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1384=function(M){if(--M.cbt<0){throw _1384;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-5][49]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _4865=function(M){--M.cbt<0; -M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1341,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-3]=M.e[M.e.length-10]; -M.e[M.e.length-4]=M.e[M.e.length-11]; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -M.e.splice(M.e.length-(5+6),6); -M.c[M.c.length-1].p=M.p; -return(_1341)(M);}else{M.v=RT.NULL; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _5815=function(M){--M.cbt<0; -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-3]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][14]; -M.e[M.e.length-1]=RT.makeSymbol("findf"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5840,M.p)); -return((M.p).label)(M);}}else{M.v=false; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1378=function(M){if(--M.cbt<0){throw _1378;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5821,M.p)); -return((M.p).label)(M);}; - -var _4845=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4836)(M);}; - -var _4807=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4798)(M);}; - -var _5736=function(M){--M.cbt<0; -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-3]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][14]; -M.e[M.e.length-1]=RT.makeSymbol("memf"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-2]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5760,M.p)); -return((M.p).label)(M);}}else{M.v=false; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1377=function(M){if(--M.cbt<0){throw _1377;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5742,M.p)); -return((M.p).label)(M);}; - -var _1376=function(M){if(--M.cbt<0){throw _1376;} -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5726,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1373,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5720,M.p)); -return((M.p).label)(M);}}; - -var _4733=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1374=function(M){if(--M.cbt<0){throw _1374;} -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5666,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1375,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-12]; -M.e[M.e.length-4]=M.e[M.e.length-13]; -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -M.c.push(new RT.CallFrame(_5660,M.p)); -return(_1375)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_5654)(M);}}}; - -var _5638=function(M){--M.cbt<0; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1373,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return(_1373)(M);}; - -var _1372=function(M){if(--M.cbt<0){throw _1372;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][8]); -M.v=RT.isList(M.e[M.e.length-3]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][1]; -M.e[M.e.length-1]=RT.makeSymbol("remv*"); -M.e[M.e.length-2]="list"; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5636,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5632)(M);}}; - -var _1370=function(M){if(--M.cbt<0){throw _1370;} -M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-3]; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=new RT.Closure(_1370,4,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-3]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_1368,2,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-4]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_1368,2,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5603,M.p)); -return((M.p).label)(M);}}; - -var _4710=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4701)(M);}; - -var _5565=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1369=function(M){if(--M.cbt<0){throw _1369;} -M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-3]; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=new RT.Closure(_1369,4,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_1368,2,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_1368,2,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5587,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length+=4; -M.e[M.e.length-4]=new RT.Closure(_1371,4,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-3]=M.e[M.e.length-9]; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -M.e.splice(M.e.length-(4+6),6); -M.c[M.c.length-1].p=M.p; -return(_1371)(M);}else{M.v=RT.NULL; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=M.e[M.e.length-4]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length+=4; -M.e[M.e.length-4]=new RT.Closure(_1370,4,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-3]=M.e[M.e.length-11]; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -M.c.push(new RT.CallFrame(_5571,M.p)); -return(_1370)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_5565)(M);}}}; - -var _5549=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_1368,2,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -M.e.splice(M.e.length-(2+3),3); -M.c[M.c.length-1].p=M.p; -return(_1368)(M);}; - -var _1367=function(M){if(--M.cbt<0){throw _1367;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isList(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("remq*"); -M.e[M.e.length-2]="list"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5547,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5543)(M);}}; - -var _1366=function(M){if(--M.cbt<0){throw _1366;} -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5533,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1363,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5527,M.p)); -return((M.p).label)(M);}}; - -var _4593=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5461=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1364=function(M){if(--M.cbt<0){throw _1364;} -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5473,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1365,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-13]; -M.e[M.e.length-4]=M.e[M.e.length-12]; -M.v=M.e[M.e.length-12]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -M.c.push(new RT.CallFrame(_5467,M.p)); -return(_1365)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_5461)(M);}}}; - -var _5445=function(M){--M.cbt<0; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1363,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return(_1363)(M);}; - -var _5423=function(M){--M.cbt<0; -M.v=RT.isList(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("remove*"); -M.e[M.e.length-2]="list"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5443,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5439)(M);}}; - -var _1362=function(M){if(--M.cbt<0){throw _1362;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5429,M.p)); -return((M.p).label)(M);}; - -var _1360=function(M){if(--M.cbt<0){throw _1360;} -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5393,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1358,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5387,M.p)); -return((M.p).label)(M);}}; - -var _4507=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5341=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1359=function(M){if(--M.cbt<0){throw _1359;} -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5353,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1360,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-12]; -M.e[M.e.length-4]=M.e[M.e.length-13]; -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -M.c.push(new RT.CallFrame(_5347,M.p)); -return(_1360)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_5341)(M);}}}; - -var _4469=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1356=function(M){if(--M.cbt<0){throw _1356;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){return(_1357)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_1362)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_1357)(M);}}; - -var _1355=function(M){if(--M.cbt<0){throw _1355;} -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5306,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5300,M.p)); -return((M.p).label)(M);}}; - -var _1354=function(M){if(--M.cbt<0){throw _1354;} -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5286,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5280,M.p)); -return((M.p).label)(M);}}; - -var _1353=function(M){if(--M.cbt<0){throw _1353;} -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5266,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5260,M.p)); -return((M.p).label)(M);}}; - -var _1351=function(M){if(--M.cbt<0){throw _1351;} -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5226,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5220,M.p)); -return((M.p).label)(M);}}; - -var _5174=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1350=function(M){if(--M.cbt<0){throw _1350;} -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5186,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1351,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-13]; -M.e[M.e.length-4]=M.e[M.e.length-12]; -M.v=M.e[M.e.length-12]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -M.c.push(new RT.CallFrame(_5180,M.p)); -return(_1351)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_5174)(M);}}}; - -var _1349=function(M){if(--M.cbt<0){throw _1349;} -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5163,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5157,M.p)); -return((M.p).label)(M);}}; - -var _1348=function(M){if(--M.cbt<0){throw _1348;} -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5143,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5137,M.p)); -return((M.p).label)(M);}}; - -var _5091=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1347=function(M){if(--M.cbt<0){throw _1347;} -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5103,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1348,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-13]; -M.e[M.e.length-4]=M.e[M.e.length-12]; -M.v=M.e[M.e.length-12]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -M.c.push(new RT.CallFrame(_5097,M.p)); -return(_1348)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_5091)(M);}}}; - -var _5048=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5025=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1346=function(M){if(--M.cbt<0){throw _1346;} -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5037,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1347,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-12]; -M.e[M.e.length-4]=M.e[M.e.length-13]; -M.v=M.e[M.e.length-12]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -M.c.push(new RT.CallFrame(_5031,M.p)); -return(_1347)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_5025)(M);}}}; - -var _1344=function(M){if(--M.cbt<0){throw _1344;} -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4994,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4988,M.p)); -return((M.p).label)(M);}}; - -var _4943=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1343=function(M){if(--M.cbt<0){throw _1343;} -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4955,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1344,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-12]; -M.e[M.e.length-4]=M.e[M.e.length-11]; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -M.c.push(new RT.CallFrame(_4949,M.p)); -return(_1344)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4943)(M);}}}else{M.v=RT.NULL; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1342=function(M){if(--M.cbt<0){throw _1342;} -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4929,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -M.c.push(new RT.CallFrame(_4923,M.p)); -return(_1343)(M);}}; - -var _4878=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1341=function(M){if(--M.cbt<0){throw _1341;} -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4890,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1342,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-13]; -M.e[M.e.length-4]=M.e[M.e.length-11]; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -M.c.push(new RT.CallFrame(_4884,M.p)); -return(_1342)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4878)(M);}}}; - -var _1340=function(M){if(--M.cbt<0){throw _1340;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isList(M.e[M.e.length-3]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]="list"; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4863,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_4859)(M);}}; - -var _4827=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _4836=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4827)(M);}; - -var _4789=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _4798=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4789)(M);}; - -var _4776=function(M){--M.cbt<0; -M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4788,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1338=function(M){if(--M.cbt<0){throw _1338;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][8]); -M.v=RT.isList(M.e[M.e.length-4]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][1]; -M.e[M.e.length-1]=RT.makeSymbol("remv"); -M.e[M.e.length-2]="list"; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4780,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_4776)(M);}}; - -var _4760=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4755)(M);}; - -var _4765=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4760)(M);}; - -var _1337=function(M){if(--M.cbt<0){throw _1337;} -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_1337,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4773,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4765)(M);}}else{M.e[M.e.length-3]=RT.NULL; -return(_4765)(M);}}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4760)(M);}}else{M.e[M.e.length-3]=RT.NULL; -return(_4760)(M);}}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4755)(M);}}else{M.e[M.e.length-3]=RT.NULL; -return(_4755)(M);}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=RT.NULL; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4738=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4733)(M);}; - -var _4743=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4738)(M);}; - -var _1336=function(M){if(--M.cbt<0){throw _1336;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isList(M.e[M.e.length-3]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("remq"); -M.e[M.e.length-2]="list"; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4728,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_4724)(M);}}; - -var _4692=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _4701=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4692)(M);}; - -var _1335=function(M){if(--M.cbt<0){throw _1335;} -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4691,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4654=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _4672=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4663)(M);}; - -var _4641=function(M){--M.cbt<0; -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4653,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4625=function(M){--M.cbt<0; -M.v=RT.isList(M.e[M.e.length-3]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("remove"); -M.e[M.e.length-2]="list"; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4645,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_4641)(M);}}; - -var _1334=function(M){if(--M.cbt<0){throw _1334;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4631,M.p)); -return((M.p).label)(M);}; - -var _4602=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4593)(M);}; - -var _4611=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4602)(M);}; - -var _4555=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _4564=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4555)(M);}; - -var _4573=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4564)(M);}; - -var _1332=function(M){if(--M.cbt<0){throw _1332;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][3]); -M.v=RT.isList(M.e[M.e.length-4]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][1]; -M.e[M.e.length-1]=RT.makeSymbol("remove"); -M.e[M.e.length-2]="list"; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4546,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_4542)(M);}}; - -var _1331=function(M){if(--M.cbt<0){throw _1331;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){return(_1332)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_1334)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_1332)(M);}}; - -var _4516=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4507)(M);}; - -var _4525=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4516)(M);}; - -var _1330=function(M){if(--M.cbt<0){throw _1330;} -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4506,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4478=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4469)(M);}; - -var _4487=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4478)(M);}; - -var _1329=function(M){if(--M.cbt<0){throw _1329;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isList(M.e[M.e.length-4]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]="list"; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4460,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.v=RT.VOID; -return(_4456)(M);}}; - -var _1328=function(M){if(--M.cbt<0){throw _1328;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-4]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][14]; -M.e[M.e.length-1]=RT.makeSymbol("memf"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-2]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4401,M.p)); -return((M.p).label)(M);}}else{M.v=false; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1327=function(M){if(--M.cbt<0){throw _1327;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-4]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][14]; -M.e[M.e.length-1]=RT.makeSymbol("findf"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4351,M.p)); -return((M.p).label)(M);}}else{M.v=false; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1326=function(M){if(--M.cbt<0){throw _1326;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isPair(M.e[M.e.length-4]); -if(M.v===false){M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][14]; -M.e[M.e.length-1]=RT.makeSymbol("assq"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=false; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=1; -M.e.push(M.e[M.e.length-2][22]); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4200,M.p)); -return((M.p).label)(M);}}; - -var _1325=function(M){if(--M.cbt<0){throw _1325;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isPair(M.e[M.e.length-4]); -if(M.v===false){M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][14]; -M.e[M.e.length-1]=RT.makeSymbol("assv"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=false; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=1; -M.e.push(M.e[M.e.length-2][22]); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4038,M.p)); -return((M.p).label)(M);}}; - -var _1324=function(M){if(--M.cbt<0){throw _1324;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isPair(M.e[M.e.length-4]); -if(M.v===false){M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][14]; -M.e[M.e.length-1]=RT.makeSymbol("assoc"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=false; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=1; -M.e.push(M.e[M.e.length-2][22]); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3876,M.p)); -return((M.p).label)(M);}}; - -var _1323=function(M){if(--M.cbt<0){throw _1323;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isPair(M.e[M.e.length-5]); -if(M.v===false){M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][14]; -M.e[M.e.length-1]=RT.makeSymbol("assoc"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=false; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=1; -M.e.push(M.e[M.e.length-2][22]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3714,M.p)); -return((M.p).label)(M);}}; - -var _5979=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _7071=function(M){if(--M.cbt<0){throw _7071;} -M.e.length-=(M.a-1); -return(_7072)(M);}; - -var _7069=function(M){if(--M.cbt<0){throw _7069;} -M.e.length-=(M.a-1); -return(_7070)(M);}; - -var _7067=function(M){if(--M.cbt<0){throw _7067;} -M.e.length-=(M.a-1); -return(_7068)(M);}; - -var _5949=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _2910=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7065=function(M){if(--M.cbt<0){throw _7065;} -M.e.length-=(M.a-1); -return(_7066)(M);}; - -var _2510=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _3510=function(M){--M.cbt<0; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"add1")); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=RT.isList(M.e[M.e.length-1]); -M.e.length-=1; -if(M.v===false){M.e.length+=8; -M.e[M.e.length-8]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-13][1]; -M.e[M.e.length-2]=M.e[M.e.length-15]; -M.e[M.e.length-3]="list"; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.e[M.e.length-5]=M.e[M.e.length-16]; -M.e[M.e.length-6]=M.e[M.e.length-17]; -M.e[M.e.length-7]=M.e[M.e.length-18]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-8]; -M.e[M.e.length-8]=M.v; -M.a=8; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3528,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_3524)(M);}}else{M.v=RT.VOID; -M.e.length-=12; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _5425=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("remove*"); -M.e[M.e.length-2]="procedure (arity 2)"; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5437,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5423)(M);}}; - -var _7103=function(M){if(--M.cbt<0){throw _7103;} -M.c.push(new RT.PromptFrame(_7105,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.length+=1; -M.e.length+=4; -M.e[M.e.length-1]=new RT.Closure(_1403,1,[M.e[M.e.length-6]],"...private/list.rkt:394:12"); -M.e[M.e.length-2]=new RT.Closure(_1404,2,[M.e[M.e.length-6]],"...private/list.rkt:396:12"); -M.e[M.e.length-3]=new RT.Closure(_1410,0,[],"...private/list.rkt:403:12"); -M.e[M.e.length-4]=new RT.Closure(_1411,(RT.makeArityAtLeast(1)),[M.e[M.e.length-6]],"...private/list.rkt:404:12"); -M.e[M.e.length-5]=new RT.Closure(_1402,RT.makePair(1,RT.makePair(2,RT.makePair(0,RT.makePair((RT.makeArityAtLeast(1)),RT.NULL)))),[M.e[M.e.length-4],M.e[M.e.length-3],M.e[M.e.length-2],M.e[M.e.length-1]],"compose1"); -M.e.length-=4; -M.e.length+=1; -M.e.length+=4; -M.e[M.e.length-1]=new RT.Closure(_1413,1,[M.e[M.e.length-7]],"...private/list.rkt:394:12"); -M.e[M.e.length-2]=new RT.Closure(_1414,2,[M.e[M.e.length-7]],"...private/list.rkt:396:12"); -M.e[M.e.length-3]=new RT.Closure(_1425,0,[],"...private/list.rkt:403:12"); -M.e[M.e.length-4]=new RT.Closure(_1426,(RT.makeArityAtLeast(1)),[M.e[M.e.length-7]],"...private/list.rkt:404:12"); -M.e[M.e.length-5]=new RT.Closure(_1412,RT.makePair(1,RT.makePair(2,RT.makePair(0,RT.makePair((RT.makeArityAtLeast(1)),RT.NULL)))),[M.e[M.e.length-4],M.e[M.e.length-3],M.e[M.e.length-2],M.e[M.e.length-1]],"compose"); -M.e.length-=4; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7111,M.p)); -return((M.p).label)(M);}; - -var _7040=function(M){if(--M.cbt<0){throw _7040;} -M.c.push(new RT.PromptFrame(_7042,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1323,5,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][50]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _7055=function(M){if(--M.cbt<0){throw _7055;} -M.e.length-=(M.a-1); -return(_7056)(M);}; - -var _5906=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("assoc"); -M.e[M.e.length-2]="procedure (arity 2)"; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5918,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5904)(M);}}; - -var _3524=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e.push(M.e[M.e.length-7][26]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3534,M.p)); -return((M.p).label)(M);}; - -var _5632=function(M){--M.cbt<0; -M.v=RT.isList(M.e[M.e.length-4]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][1]; -M.e[M.e.length-1]=RT.makeSymbol("remv*"); -M.e[M.e.length-2]="list"; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5642,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5638)(M);}}; - -var _3220=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e.push(M.e[M.e.length-3][26]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-9],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3230,M.p)); -return((M.p).label)(M);}; - -var _7101=function(M){if(--M.cbt<0){throw _7101;} -M.c.push(new RT.PromptFrame(_7103,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1401,2,[M.e[M.e.length-1]],"build-list"); -M.e[M.e.length-1][40]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _6066=function(M){--M.cbt<0; -M.v=RT.isList(M.e[M.e.length-4]); -if(M.v===false){M.e.length+=6; -M.e[M.e.length-6]=M.e[M.e.length-7][1]; -M.e[M.e.length-1]=RT.makeSymbol("foldl"); -M.e[M.e.length-2]="list"; -M.e[M.e.length-3]=2; -M.e[M.e.length-4]=M.e[M.e.length-8]; -M.e[M.e.length-5]=M.e[M.e.length-9]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6080,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6076)(M);}}; - -var _7038=function(M){if(--M.cbt<0){throw _7038;} -M.c.push(new RT.PromptFrame(_7040,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1322,4,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][51]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _7053=function(M){if(--M.cbt<0){throw _7053;} -M.e.length-=(M.a-1); -return(_7054)(M);}; - -var _2557=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][62]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-10][44]); -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2598,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3005=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _5738=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("memf"); -M.e[M.e.length-2]="procedure (arity 1)"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5750,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5736)(M);}}; - -var _3490=function(M){--M.cbt<0; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-10],0,"add1")); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=RT.isList(M.e[M.e.length-1]); -M.e.length-=1; -if(M.v===false){M.e.length+=8; -M.e[M.e.length-8]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-11][1]; -M.e[M.e.length-2]=M.e[M.e.length-13]; -M.e[M.e.length-3]="list"; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.e[M.e.length-5]=M.e[M.e.length-14]; -M.e[M.e.length-6]=M.e[M.e.length-15]; -M.e[M.e.length-7]=M.e[M.e.length-16]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-8]; -M.e[M.e.length-8]=M.v; -M.a=8; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3508,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_3504)(M);}}else{M.v=RT.VOID; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6754=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_6743)(M);}; - -var _4724=function(M){--M.cbt<0; -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-10]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-13]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_1337,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-15]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -M.c.push(new RT.CallFrame(_4750,M.p)); -return(_1337)(M);}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4743)(M);}}else{M.e[M.e.length-3]=RT.NULL; -return(_4743)(M);}}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4738)(M);}}else{M.e[M.e.length-3]=RT.NULL; -return(_4738)(M);}}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4733)(M);}}else{M.e[M.e.length-3]=RT.NULL; -return(_4733)(M);}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=RT.NULL; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3328=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _3246=function(M){--M.cbt<0; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"add1")); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=RT.isList(M.e[M.e.length-1]); -M.e.length-=1; -if(M.v===false){M.e.length+=8; -M.e[M.e.length-8]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-13][1]; -M.e[M.e.length-2]=RT.makeSymbol("foldr"); -M.e[M.e.length-3]="list"; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.e[M.e.length-5]=M.e[M.e.length-15]; -M.e[M.e.length-6]=M.e[M.e.length-16]; -M.e[M.e.length-7]=M.e[M.e.length-17]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-8]; -M.e[M.e.length-8]=M.v; -M.a=8; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3264,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_3260)(M);}}else{M.v=RT.VOID; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6404=function(M){--M.cbt<0; -M.v=RT.isList(M.e[M.e.length-4]); -if(M.v===false){M.e.length+=8; -M.e[M.e.length-8]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-9][1]; -M.e[M.e.length-2]=RT.makeSymbol("foldr"); -M.e[M.e.length-3]="list"; -M.e[M.e.length-4]=2; -M.e[M.e.length-5]=M.e[M.e.length-10]; -M.e[M.e.length-6]=M.e[M.e.length-11]; -M.e[M.e.length-7]=M.e[M.e.length-12]; -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-8]; -M.e[M.e.length-8]=M.v; -M.a=8; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6418,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6414)(M);}}; - -var _4542=function(M){--M.cbt<0; -M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4554,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _7099=function(M){if(--M.cbt<0){throw _7099;} -M.c.push(new RT.PromptFrame(_7101,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1400,2,[M.e[M.e.length-1]],"build-string"); -M.e[M.e.length-1][37]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _7104=function(M){if(--M.cbt<0){throw _7104;} -M.e.length-=(M.a-1); -return(_7105)(M);}; - -var _7088=function(M){if(--M.cbt<0){throw _7088;} -M.e.length-=(M.a-1); -return(_7089)(M);}; - -var _7036=function(M){if(--M.cbt<0){throw _7036;} -M.c.push(new RT.PromptFrame(_7038,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1321,7,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][52]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5993=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_5986)(M);}; - -var _7051=function(M){if(--M.cbt<0){throw _7051;} -M.e.length-=(M.a-1); -return(_7052)(M);}; - -var _5956=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_5949)(M);}; - -var _5926=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("assf"); -M.e[M.e.length-2]="procedure (arity 1)"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5938,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5924)(M);}}; - -var _2453=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _4859=function(M){--M.cbt<0; -M.v=RT.isList(M.e[M.e.length-4]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]="list"; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4869,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_4865)(M);}}; - -var _2967=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6875=function(M){--M.cbt<0; -M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6889,M.p)); -return((M.p).label)(M);}; - -var _1832=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _3396=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e.push(M.e[M.e.length-7][26]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3406,M.p)); -return((M.p).label)(M);}; - -var _3376=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e.push(M.e[M.e.length-5][26]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3386,M.p)); -return((M.p).label)(M);}; - -var _3285=function(M){--M.cbt<0; -M.e.length-=1; -M.v=(M.e[M.e.length-7]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_1318,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -M.c.push(new RT.CallFrame(_3333,M.p)); -return(_1318)(M);}else{M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-10],RT.NULL); -return(_3328)(M);}}else{M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-7],RT.NULL); -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-4],RT.NULL); -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=RT.makePair(M.e[M.e.length-1],RT.NULL); -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _4627=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("remove"); -M.e[M.e.length-2]="procedure (arity 2)"; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4639,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_4625)(M);}}; - -var _3260=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e.push(M.e[M.e.length-7][26]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3270,M.p)); -return((M.p).label)(M);}; - - -var _6373=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6394,M.p)); -return((M.p).label)(M);}; - -var _7097=function(M){if(--M.cbt<0){throw _7097;} -M.c.push(new RT.PromptFrame(_7099,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1399,2,[M.e[M.e.length-1]],"build-vector"); -M.e[M.e.length-1][33]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _7095=function(M){if(--M.cbt<0){throw _7095;} -M.c.push(new RT.PromptFrame(_7097,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1398,2,[M.e[M.e.length-1]],"filter"); -M.e[M.e.length-1][31]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _7102=function(M){if(--M.cbt<0){throw _7102;} -M.e.length-=(M.a-1); -return(_7103)(M);}; - -var _7056=function(M){if(--M.cbt<0){throw _7056;} -M.c.push(new RT.PromptFrame(_7058,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1336,2,[M.e[M.e.length-1]],"remq"); -M.e[M.e.length-1][6]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _7034=function(M){if(--M.cbt<0){throw _7034;} -M.c.push(new RT.PromptFrame(_7036,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1320,3,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][53]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5986=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_5979)(M);}; - -var _7049=function(M){if(--M.cbt<0){throw _7049;} -M.e.length-=(M.a-1); -return(_7050)(M);}; - -var _2491=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2592=function(M){--M.cbt<0; -M.e.length-=1; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+7),7); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7031=function(M){if(--M.cbt<0){throw _7031;} -M.e.length-=(M.a-1); -return(_7032)(M);}; - -var _2522=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-7][44]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2563,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _7010=function(M){if(--M.cbt<0){throw _7010;} -M.e.push([M.params.currentNamespace["do-remove"]||M.primitives["do-remove"],M.primitives["raise-type-error"],M.params.currentNamespace["remove"]||M.primitives["remove"],M.primitives["equal?"],M.primitives["procedure?"],M.primitives["procedure-arity-includes?"],M.params.currentNamespace["remq"]||M.primitives["remq"],M.params.currentNamespace["remv"]||M.primitives["remv"],M.primitives["eqv?"],M.params.currentNamespace["do-remove*"]||M.primitives["do-remove*"],M.params.currentNamespace["remove*"]||M.primitives["remove*"],M.params.currentNamespace["remq*"]||M.primitives["remq*"],M.params.currentNamespace["remv*"]||M.primitives["remv*"],M.params.currentNamespace["memf"]||M.primitives["memf"],M.primitives["raise-mismatch-error"],M.params.currentNamespace["findf"]||M.primitives["findf"],M.params.currentNamespace["bad-list"]||M.primitives["bad-list"],M.params.currentNamespace["bad-item"]||M.primitives["bad-item"],M.params.currentNamespace["assq"]||M.primitives["assq"],M.params.currentNamespace["assv"]||M.primitives["assv"],M.params.currentNamespace["assoc"]||M.primitives["assoc"],M.params.currentNamespace["assf"]||M.primitives["assf"],M.modules["whalesong/lang/unsafe/ops.rkt"].namespace["unsafe-car1.1"],M.modules["whalesong/lang/unsafe/ops.rkt"].namespace["unsafe-cdr2.2"],M.params.currentNamespace["mapadd"]||M.primitives["mapadd"],M.params.currentNamespace["check-fold"]||M.primitives["check-fold"],M.primitives["length"],M.primitives["format"],M.params.currentNamespace["foldl"]||M.primitives["foldl"],M.primitives["map"],M.params.currentNamespace["foldr"]||M.primitives["foldr"],M.params.currentNamespace["filter"]||M.primitives["filter"],M.primitives["reverse"],M.params.currentNamespace["build-vector"]||M.primitives["build-vector"],M.primitives["exact-nonnegative-integer?"],M.primitives["make-vector"],M.primitives["vector-set!"],M.params.currentNamespace["build-string"]||M.primitives["build-string"],M.primitives["make-string"],M.primitives["string-set!"],M.params.currentNamespace["build-list"]||M.primitives["build-list"],M.primitives["zero?"],M.params.currentNamespace["compose1"]||M.primitives["compose1"],M.params.currentNamespace["compose"]||M.primitives["compose"],M.primitives["procedure-arity"],false,false,false,false,false,false,false,false,false,false,false,false,false,false,false,false,false,false,false,false,false]);M.e[M.e.length-1].names=["do-remove","raise-type-error","remove","equal?","procedure?","procedure-arity-includes?","remq","remv","eqv?","do-remove*","remove*","remq*","remv*","memf","raise-mismatch-error","findf","bad-list","bad-item","assq","assv","assoc","assf","unsafe-car1.1","unsafe-cdr2.2","mapadd","check-fold","length","format","foldl","map","foldr","filter","reverse","build-vector","exact-nonnegative-integer?","make-vector","vector-set!","build-string","make-string","string-set!","build-list","zero?","compose1","compose","procedure-arity",false,false,false,false,false,false,false,false,false,false,false,false,false,false,false,false,false,false,false,false,false]; -M.modules["whalesong/lang/private/list.rkt"].prefix=M.e[M.e.length-1]; -M.c.push(new RT.PromptFrame(_7012,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1213,6,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][65]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5817=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("findf"); -M.e[M.e.length-2]="procedure (arity 1)"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5829,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5815)(M);}}; - -var _6958=function(M){if(--M.cbt<0){throw _6958;} -if(M.a===0){return(_6956)(M);}else{M.e.push(M.v); -return(_6956)(M);}}; - -var _2929=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1843=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _4755=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _3484=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e.push(M.e[M.e.length-3][26]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3494,M.p)); -return((M.p).label)(M);}; - -var _1772=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6697=function(M){--M.cbt<0; -M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6713,M.p)); -return((M.p).label)(M);}; - -var _3356=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e.push(M.e[M.e.length-3][26]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-9],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3366,M.p)); -return((M.p).label)(M);}; - -var _1985=function(M){--M.cbt<0; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"add1")); -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-8],M.e[M.e.length-5]); -M.e.push(M.e[M.e.length-9][4]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2003,M.p)); -return((M.p).label)(M);}; - - -var _3292=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3314,M.p)); -return((M.p).label)(M);}; - - -var _5439=function(M){--M.cbt<0; -M.v=RT.isList(M.e[M.e.length-3]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("remove*"); -M.e[M.e.length-2]="list"; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5449,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5445)(M);}}; - -var _2039=function(M){if(--M.cbt<0){throw _2039;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.push(M.e[M.e.length-7][44]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2044,M.p)); -return((M.p).label)(M);}; - - -var _6370=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6398,M.p)); -return((M.p).label)(M);}; - -var _2731=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6339=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6352,M.p)); -return((M.p).label)(M);}; - -var _2644=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _3420=function(M){if(--M.cbt<0){throw _3420;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3424,M.p)); -return((M.p).label)(M);}; - -var _7093=function(M){if(--M.cbt<0){throw _7093;} -M.c.push(new RT.PromptFrame(_7095,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.length+=2; -M.e[M.e.length-1]=new RT.Closure(_1395,3,[M.e[M.e.length-3]],"...private/list.rkt:252:4"); -M.e[M.e.length-2]=new RT.Closure(_1397,(RT.makeArityAtLeast(3)),[M.e[M.e.length-3]],"...private/list.rkt:258:4"); -M.v=new RT.Closure(_1394,RT.makePair(3,RT.makePair((RT.makeArityAtLeast(3)),RT.NULL)),[M.e[M.e.length-2],M.e[M.e.length-1]],"foldr"); -M.e.length-=2; -M.e[M.e.length-1][30]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _7100=function(M){if(--M.cbt<0){throw _7100;} -M.e.length-=(M.a-1); -return(_7101)(M);}; - -var _7054=function(M){if(--M.cbt<0){throw _7054;} -M.c.push(new RT.PromptFrame(_7056,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.length+=2; -M.e[M.e.length-1]=new RT.Closure(_1332,2,[M.e[M.e.length-3]],"...private/list.rkt:68:4"); -M.e[M.e.length-2]=new RT.Closure(_1334,3,[M.e[M.e.length-3]],"...private/list.rkt:69:4"); -M.v=new RT.Closure(_1331,RT.makePair(2,RT.makePair(3,RT.NULL)),[M.e[M.e.length-2],M.e[M.e.length-1]],"remove"); -M.e.length-=2; -M.e[M.e.length-1][2]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _3234=function(M){if(--M.cbt<0){throw _3234;} -return(_3226)(M);}; - -var _7063=function(M){if(--M.cbt<0){throw _7063;} -M.e.length-=(M.a-1); -return(_7064)(M);}; - -var _7024=function(M){if(--M.cbt<0){throw _7024;} -M.c.push(new RT.PromptFrame(_7026,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1314,4,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][58]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _7047=function(M){if(--M.cbt<0){throw _7047;} -M.e.length-=(M.a-1); -return(_7048)(M);}; - -var _2472=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7029=function(M){if(--M.cbt<0){throw _7029;} -M.e.length-=(M.a-1); -return(_7030)(M);}; - -var _7023=function(M){if(--M.cbt<0){throw _7023;} -M.e.length-=(M.a-1); -return(_7024)(M);}; - -var _7015=function(M){if(--M.cbt<0){throw _7015;} -M.e.length-=(M.a-1); -return(_7016)(M);}; - -var _7007=function(M){--M.cbt<0; -M.modules["whalesong/lang/private/list.rkt"].isInvoked=true; -if((M.modules["whalesong/lang/unsafe/ops.rkt"]!==undefined)!==false){if(M.modules["whalesong/lang/unsafe/ops.rkt"].isInvoked!==false){return(_7010)(M);}else{M.c.push(new RT.CallFrame(_7010,M.p)); -return(M.modules["whalesong/lang/unsafe/ops.rkt"].label)(M);}}else{return(_7010)(M);}}; - -var _7107=function(M){--M.cbt<0; -M.e.splice(M.e.length-(1+1),1); -M.e.splice(M.e.length-(1+1),1); -M.e[M.e.length-2][42]=M.v; -M.e[M.e.length-2][43]=M.e[M.e.length-1]; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1925=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - - -var _6885=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-3][44]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6899,M.p)); -return((M.p).label)(M);}; - -var _6667=function(M){if(--M.cbt<0){throw _6667;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6671,M.p)); -return((M.p).label)(M);}; - -var _3504=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e.push(M.e[M.e.length-5][26]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3514,M.p)); -return((M.p).label)(M);}; - -var _2891=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2872=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _5654=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _3402=function(M){--M.cbt<0; -M.e.length+=6; -M.e[M.e.length-6]=M.e[M.e.length-11][54]; -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.e[M.e.length-2]=M.e[M.e.length-13]; -M.e[M.e.length-3]=M.e[M.e.length-14]; -M.e[M.e.length-4]=M.e[M.e.length-15]; -M.e[M.e.length-5]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.v=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-7],0,"add1")); -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(6+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _3382=function(M){--M.cbt<0; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"add1")); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=RT.isList(M.e[M.e.length-1]); -M.e.length-=1; -if(M.v===false){M.e.length+=8; -M.e[M.e.length-8]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-13][1]; -M.e[M.e.length-2]=RT.makeSymbol("foldl"); -M.e[M.e.length-3]="list"; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.e[M.e.length-5]=M.e[M.e.length-15]; -M.e[M.e.length-6]=M.e[M.e.length-16]; -M.e[M.e.length-7]=M.e[M.e.length-17]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-8]; -M.e[M.e.length-8]=M.v; -M.a=8; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3400,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_3396)(M);}}else{M.v=RT.VOID; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3362=function(M){--M.cbt<0; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-9],0,"add1")); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=RT.isList(M.e[M.e.length-1]); -M.e.length-=1; -if(M.v===false){M.e.length+=8; -M.e[M.e.length-8]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-11][1]; -M.e[M.e.length-2]=RT.makeSymbol("foldl"); -M.e[M.e.length-3]="list"; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.e[M.e.length-5]=M.e[M.e.length-13]; -M.e[M.e.length-6]=M.e[M.e.length-14]; -M.e[M.e.length-7]=M.e[M.e.length-15]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-8]; -M.e[M.e.length-8]=M.v; -M.a=8; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3380,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_3376)(M);}}else{M.v=RT.VOID; -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1973=function(M){--M.cbt<0; -M.v=RT.isPair(M.e[M.e.length-3]); -if(M.v===false){M.v=M.e[M.e.length-3]; -M.v=M.e[M.e.length-2]; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_1255,2,[],"pipeline1"); -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2039,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][5]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1989,M.p)); -return((M.p).label)(M);}}; - -var _2307=function(M){if(--M.cbt<0){throw _2307;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1927=function(M){if(--M.cbt<0){throw _1927;} -if(M.a===0){return(_1925)(M);}else{M.e.push(M.v); -return(_1925)(M);}}; - -var _3266=function(M){--M.cbt<0; -M.e.length+=6; -M.e[M.e.length-6]=M.e[M.e.length-11][56]; -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.e[M.e.length-2]=M.e[M.e.length-13]; -M.e[M.e.length-3]=M.e[M.e.length-14]; -M.e[M.e.length-4]=M.e[M.e.length-15]; -M.e[M.e.length-5]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.v=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-7],0,"add1")); -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(6+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6801=function(M){if(--M.cbt<0){throw _6801;} -M.e.length-=(M.a-1); -return(_6794)(M);}; - -var _6414=function(M){--M.cbt<0; -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-2][26]); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6434,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][5]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6426,M.p)); -return((M.p).label)(M);}}; - -var _2057=function(M){if(--M.cbt<0){throw _2057;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.v=(1===M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-1]=new RT.Closure(_1270,1,[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:331:18"); -M.e[M.e.length-2]=new RT.Closure(_1271,2,[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:332:18"); -M.e[M.e.length-3]=new RT.Closure(_1272,(RT.makeArityAtLeast(0)),[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:333:18"); -M.e[M.e.length-4]=new RT.Closure(_1269,RT.makePair(1,RT.makePair(2,RT.makePair((RT.makeArityAtLeast(0)),RT.NULL))),[M.e[M.e.length-3],M.e[M.e.length-2],M.e[M.e.length-1]],"composed"); -M.e.length-=3; -M.v=M.e[M.e.length-1]; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e[M.e.length-1]=new RT.Closure(_1268,1,[M.e[M.e.length-7],M.e[M.e.length-3]],"composed"); -M.v=M.e[M.e.length-1]; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1236=function(M){if(--M.cbt<0){throw _1236;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1796,M.p)); -return((M.p).label)(M);}; - - - -var _2720=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2682=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6319=function(M){--M.cbt<0; -M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-13]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-16]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1396,3,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-19]; -M.e[M.e.length-2]=M.e[M.e.length-20]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -M.c.push(new RT.CallFrame(_6344,M.p)); -return(_1396)(M);}else{M.v=M.e[M.e.length-15]; -return(_6339)(M);}}else{M.v=M.e[M.e.length-12]; -return(_6336)(M);}}else{M.v=M.e[M.e.length-9]; -return(_6333)(M);}}else{M.v=M.e[M.e.length-6]; -return(_6330)(M);}}else{M.v=M.e[M.e.length-3]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4456=function(M){--M.cbt<0; -M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4468,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - -var _1447=function(M){--M.cbt<0; -M.v=RT.isPair(M.e[M.e.length-3]); -if(M.v===false){M.v=M.e[M.e.length-3]; -M.v=M.e[M.e.length-2]; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][63]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1559,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"add1")); -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-8],M.e[M.e.length-5]); -M.e.push(M.e[M.e.length-9][4]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1467,M.p)); -return((M.p).label)(M);}}; - -_7111=RT.si_context_expected(2); - -var _3410=function(M){if(--M.cbt<0){throw _3410;} -return(_3402)(M);}; - -var _7091=function(M){if(--M.cbt<0){throw _7091;} -M.c.push(new RT.PromptFrame(_7093,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.length+=2; -M.e[M.e.length-1]=new RT.Closure(_1391,3,[M.e[M.e.length-3]],"...private/list.rkt:239:4"); -M.e[M.e.length-2]=new RT.Closure(_1393,(RT.makeArityAtLeast(3)),[M.e[M.e.length-3]],"...private/list.rkt:243:4"); -M.v=new RT.Closure(_1390,RT.makePair(3,RT.makePair((RT.makeArityAtLeast(3)),RT.NULL)),[M.e[M.e.length-2],M.e[M.e.length-1]],"foldl"); -M.e.length-=2; -M.e[M.e.length-1][28]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _7098=function(M){if(--M.cbt<0){throw _7098;} -M.e.length-=(M.a-1); -return(_7099)(M);}; - -var _7052=function(M){if(--M.cbt<0){throw _7052;} -M.c.push(new RT.PromptFrame(_7054,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1329,4,[M.e[M.e.length-1]],"do-remove"); -M.e[M.e.length-1][0]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _7085=function(M){if(--M.cbt<0){throw _7085;} -if((M.a-4)===0){return(_7082)(M);}else{RT.si_context_expected(4)(M); -}}; - -var _3230=function(M){if(--M.cbt<0){throw _3230;} -M.e[M.e.length-2]=M.v; -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],1,"=")))); -M.e.length-=2; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][14]; -M.e[M.e.length-1]=RT.makeSymbol("foldr"); -M.e[M.e.length-2]="given list does not have the same size as the first list: "; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-9],0,"car")).first; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3234,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_3226)(M);}}; - -var _7061=function(M){if(--M.cbt<0){throw _7061;} -M.e.length-=(M.a-1); -return(_7062)(M);}; - -var _7022=function(M){if(--M.cbt<0){throw _7022;} -M.c.push(new RT.PromptFrame(_7024,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1313,4,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][59]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _7045=function(M){if(--M.cbt<0){throw _7045;} -M.e.length-=(M.a-1); -return(_7046)(M);}; - -var _7039=function(M){if(--M.cbt<0){throw _7039;} -M.e.length-=(M.a-1); -return(_7040)(M);}; - -var _7027=function(M){if(--M.cbt<0){throw _7027;} -M.e.length-=(M.a-1); -return(_7028)(M);}; - -var _7021=function(M){if(--M.cbt<0){throw _7021;} -M.e.length-=(M.a-1); -return(_7022)(M);}; - -var _7013=function(M){if(--M.cbt<0){throw _7013;} -M.e.length-=(M.a-1); -return(_7014)(M);}; - -var _6869=function(M){if(--M.cbt<0){throw _6869;} -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-5][1]; -M.e[M.e.length-1]=RT.makeSymbol("compose"); -M.e[M.e.length-2]="procedure"; -M.e[M.e.length-3]=0; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6992=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6970=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6731=function(M){if(--M.cbt<0){throw _6731;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"sub1"), 1); -M.e.push(M.e[M.e.length-4][41]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6738,M.p)); -return((M.p).label)(M);}; - -var _3530=function(M){--M.cbt<0; -M.e.length+=7; -M.e[M.e.length-7]=M.e[M.e.length-12][52]; -M.e[M.e.length-1]=M.e[M.e.length-13]; -M.e[M.e.length-2]=M.e[M.e.length-14]; -M.e[M.e.length-3]=M.e[M.e.length-15]; -M.e[M.e.length-4]=M.e[M.e.length-16]; -M.e[M.e.length-5]=M.e[M.e.length-17]; -M.e[M.e.length-6]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-9],0,"cdr")).rest; -M.v=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-8],0,"add1")); -M.p=M.e[M.e.length-7]; -M.e[M.e.length-7]=M.v; -M.a=7; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(7+12),12); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6661=function(M){if(--M.cbt<0){throw _6661;} -M.v=((plt.baselib.numbers.equals(1,RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][39]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e[M.e.length-2]=1; -M.e.push(M.e[M.e.length-7]); -M.v=1; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6667,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - -var _6804=function(M){--M.cbt<0; -M.e.length+=1; -M.e.push(M.e[M.e.length-2][44]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6816,M.p)); -return((M.p).label)(M);}; - -var _6784=function(M){--M.cbt<0; -M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6798,M.p)); -return((M.p).label)(M);}; - - - - -var _1736=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _3340=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _3343=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_3340)(M);}; - - -var _2331=function(M){if(--M.cbt<0){throw _2331;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2280=function(M){if(--M.cbt<0){throw _2280;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2227=function(M){if(--M.cbt<0){throw _2227;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2240,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+27),27); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - - -var _2123=function(M){if(--M.cbt<0){throw _2123;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -M.e.splice(M.e.length-(3+15),15); -M.c[M.c.length-1].p=M.p; -return(_1257)(M);}; - -var _3226=function(M){--M.cbt<0; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-9],0,"add1")); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=RT.isList(M.e[M.e.length-1]); -M.e.length-=1; -if(M.v===false){M.e.length+=8; -M.e[M.e.length-8]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-11][1]; -M.e[M.e.length-2]=RT.makeSymbol("foldr"); -M.e[M.e.length-3]="list"; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.e[M.e.length-5]=M.e[M.e.length-13]; -M.e[M.e.length-6]=M.e[M.e.length-14]; -M.e[M.e.length-7]=M.e[M.e.length-15]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-8]; -M.e[M.e.length-8]=M.v; -M.a=8; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3244,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_3240)(M);}}else{M.v=RT.VOID; -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _2052=function(M){if(--M.cbt<0){throw _2052;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.push(M.e[M.e.length-3][44]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2057,M.p)); -return((M.p).label)(M);}; - -var _2031=function(M){if(--M.cbt<0){throw _2031;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.v=(1===M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-1]=new RT.Closure(_1260,1,[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:331:18"); -M.e[M.e.length-2]=new RT.Closure(_1261,2,[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:332:18"); -M.e[M.e.length-3]=new RT.Closure(_1262,(RT.makeArityAtLeast(0)),[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:333:18"); -M.e[M.e.length-4]=new RT.Closure(_1259,RT.makePair(1,RT.makePair(2,RT.makePair((RT.makeArityAtLeast(0)),RT.NULL))),[M.e[M.e.length-3],M.e[M.e.length-2],M.e[M.e.length-1]],"composed"); -M.e.length-=3; -M.v=M.e[M.e.length-1]; -M.e.length-=18; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e[M.e.length-1]=new RT.Closure(_1258,1,[M.e[M.e.length-7],M.e[M.e.length-3]],"composed"); -M.v=M.e[M.e.length-1]; -M.e.length-=18; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1774=function(M){if(--M.cbt<0){throw _1774;} -if(M.a===0){return(_1772)(M);}else{M.e.push(M.v); -return(_1772)(M);}}; - -var _1752=function(M){if(--M.cbt<0){throw _1752;} -if(M.a===0){return(_1750)(M);}else{M.e.push(M.v); -return(_1750)(M);}}; - -var _6330=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2693=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _3038=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_3026)(M);}; - -var _3050=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_3038)(M);}; - - - -var _6690=function(M){if(--M.cbt<0){throw _6690;} -M.e.length-=(M.a-1); -M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-6][59]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.v=4; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6670=function(M){if(--M.cbt<0){throw _6670;} -M.e.length-=(M.a-1); -M.v=((plt.baselib.numbers.equals(2,RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][39]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e[M.e.length-2]=2; -M.e.push(M.e[M.e.length-7]); -M.v=2; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6677,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1479=function(M){--M.cbt<0; -M.v=RT.isPair(M.e[M.e.length-3]); -if(M.v===false){M.v=M.e[M.e.length-15]; -M.v=M.e[M.e.length-14]; -M.v=M.e[M.e.length-3]; -M.v=M.e[M.e.length-2]; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-16][63]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1497,M.p)); -return((M.p).label)(M);}else{M.e.length+=6; -M.e[M.e.length-6]=M.e[M.e.length-19][65]; -M.e[M.e.length-1]=M.e[M.e.length-20]; -M.e[M.e.length-2]=M.e[M.e.length-21]; -M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-9],0,"car")).first; -M.e[M.e.length-4]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-9],0,"cdr")).rest; -M.e[M.e.length-5]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-8],0,"add1")); -M.v=RT.makePair(M.e[M.e.length-10],M.e[M.e.length-7]); -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(6+19),19); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _1431=function(M){--M.cbt<0; -M.v=RT.isPair(M.e[M.e.length-5]); -if(M.v===false){M.v=M.e[M.e.length-6]; -M.v=M.e[M.e.length-5]; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4][63]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1590,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-9],0,"add1")); -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-8],M.e[M.e.length-11]); -M.e.push(M.e[M.e.length-5][4]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1451,M.p)); -return((M.p).label)(M);}}; - -var _7105=function(M){if(--M.cbt<0){throw _7105;} -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/lang/private/list.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - -var _1497=function(M){if(--M.cbt<0){throw _1497;} -M.e[M.e.length-1]=M.v; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-16][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-16][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1504,M.p)); -return((M.p).label)(M);}; - -var _7089=function(M){if(--M.cbt<0){throw _7089;} -M.c.push(new RT.PromptFrame(_7091,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1389,5,[M.e[M.e.length-1]],"check-fold"); -M.e[M.e.length-1][25]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _7110=function(M){if(--M.cbt<0){throw _7110;} -if((M.a-2)===0){return(_7107)(M);}else{RT.si_context_expected(2)(M); -}}; - -var _7072=function(M){if(--M.cbt<0){throw _7072;} -M.c.push(new RT.PromptFrame(_7074,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1379,2,[M.e[M.e.length-1]],"bad-list"); -M.e[M.e.length-1][16]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _7096=function(M){if(--M.cbt<0){throw _7096;} -M.e.length-=(M.a-1); -return(_7097)(M);}; - -var _7050=function(M){if(--M.cbt<0){throw _7050;} -M.c.push(new RT.PromptFrame(_7052,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1328,3,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][45]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _7077=function(M){if(--M.cbt<0){throw _7077;} -M.e.length-=(M.a-1); -return(_7078)(M);}; - - -var _7059=function(M){if(--M.cbt<0){throw _7059;} -M.e.length-=(M.a-1); -return(_7060)(M);}; - -var _7020=function(M){if(--M.cbt<0){throw _7020;} -M.c.push(new RT.PromptFrame(_7022,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1312,3,[M.e[M.e.length-1]],"recr"); -M.e[M.e.length-1][60]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _7043=function(M){if(--M.cbt<0){throw _7043;} -M.e.length-=(M.a-1); -return(_7044)(M);}; - -var _7037=function(M){if(--M.cbt<0){throw _7037;} -M.e.length-=(M.a-1); -return(_7038)(M);}; - -var _7025=function(M){if(--M.cbt<0){throw _7025;} -M.e.length-=(M.a-1); -return(_7026)(M);}; - -var _7019=function(M){if(--M.cbt<0){throw _7019;} -M.e.length-=(M.a-1); -return(_7020)(M);}; - -var _7011=function(M){if(--M.cbt<0){throw _7011;} -M.e.length-=(M.a-1); -return(_7012)(M);}; - -var _6851=function(M){if(--M.cbt<0){throw _6851;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6824=function(M){if(--M.cbt<0){throw _6824;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6981=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2986=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6727=function(M){if(--M.cbt<0){throw _6727;} -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-5]); -M.v=0; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6731,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _2948=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - - -var _6657=function(M){if(--M.cbt<0){throw _6657;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6661,M.p)); -return((M.p).label)(M);}; - -var _2668=function(M){if(--M.cbt<0){throw _2668;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6794=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][5]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6808,M.p)); -return((M.p).label)(M);}; - -var _2612=function(M){if(--M.cbt<0){throw _2612;} -if(M.v===false){M.e[M.e.length-2]=new RT.Closure(_1292,(RT.makeArityAtLeast(0)),[M.e[M.e.length-5],M.e[M.e.length-1]],"...private/list.rkt:385:34"); -return(_2592)(M);}else{M.e[M.e.length-2]=new RT.Closure(_1291,1,[M.e[M.e.length-5],M.e[M.e.length-1]],"...private/list.rkt:384:34"); -return(_2592)(M);}}; - - -var _6882=function(M){if(--M.cbt<0){throw _6882;} -M.e.length-=(M.a-1); -return(_6875)(M);}; - -var _2514=function(M){if(--M.cbt<0){throw _2514;} -M.a=1; -return(_2512)(M);}; - - -var _6634=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("build-string"); -M.e[M.e.length-2]="procedure (arity 1)"; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6646,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6632)(M);}}; - -var _3346=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_3343)(M);}; - -var _2381=function(M){if(--M.cbt<0){throw _2381;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2385,M.p)); -return((M.p).label)(M);}; - -var _5543=function(M){--M.cbt<0; -M.v=RT.isList(M.e[M.e.length-3]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("remq*"); -M.e[M.e.length-2]="list"; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5553,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5549)(M);}}; - -var _2323=function(M){if(--M.cbt<0){throw _2323;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2272=function(M){if(--M.cbt<0){throw _2272;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2261=function(M){if(--M.cbt<0){throw _2261;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6811=function(M){if(--M.cbt<0){throw _6811;} -M.e.length-=(M.a-1); -return(_6804)(M);}; - -var _2162=function(M){if(--M.cbt<0){throw _2162;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2175,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+12),12); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _3240=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e.push(M.e[M.e.length-5][26]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3250,M.p)); -return((M.p).label)(M);}; - - -var _2026=function(M){if(--M.cbt<0){throw _2026;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.push(M.e[M.e.length-11][44]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2031,M.p)); -return((M.p).label)(M);}; - -var _2003=function(M){if(--M.cbt<0){throw _2003;} -if(M.v===false){M.e.length+=6; -M.e[M.e.length-6]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-15][1]; -M.e[M.e.length-2]=RT.makeSymbol("compose1"); -M.e[M.e.length-3]="procedure"; -M.e[M.e.length-4]=M.e[M.e.length-8]; -M.e[M.e.length-5]=M.e[M.e.length-16]; -M.v=M.e[M.e.length-17]; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2007,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_1999)(M);}}; - -var _1967=function(M){if(--M.cbt<0){throw _1967;} -return(_1959)(M);}; - - - -var _5319=function(M){--M.cbt<0; -M.v=RT.isList(M.e[M.e.length-4]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][1]; -M.e[M.e.length-1]=RT.makeSymbol("remove*"); -M.e[M.e.length-2]="list"; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5329,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5325)(M);}}; - -var _3026=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _6720=function(M){if(--M.cbt<0){throw _6720;} -M.e.length-=(M.a-1); -return(_6707)(M);}; - -var _6704=function(M){if(--M.cbt<0){throw _6704;} -M.e.length-=(M.a-1); -return(_6697)(M);}; - -var _1694=function(M){if(--M.cbt<0){throw _1694;} -M.a=1; -return(_1692)(M);}; - - -var _1582=function(M){if(--M.cbt<0){throw _1582;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.v=(1===M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-1]=new RT.Closure(_1241,1,[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:331:18"); -M.e[M.e.length-2]=new RT.Closure(_1242,2,[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:332:18"); -M.e[M.e.length-3]=new RT.Closure(_1243,(RT.makeArityAtLeast(0)),[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:333:18"); -M.e[M.e.length-4]=new RT.Closure(_1240,RT.makePair(1,RT.makePair(2,RT.makePair((RT.makeArityAtLeast(0)),RT.NULL))),[M.e[M.e.length-3],M.e[M.e.length-2],M.e[M.e.length-1]],"composed"); -M.e.length-=3; -M.v=M.e[M.e.length-1]; -M.e.length-=14; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e[M.e.length-1]=new RT.Closure(_1239,1,[M.e[M.e.length-7],M.e[M.e.length-3]],"composed"); -M.v=M.e[M.e.length-1]; -M.e.length-=14; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1463=function(M){--M.cbt<0; -M.v=RT.isPair(M.e[M.e.length-3]); -if(M.v===false){M.v=M.e[M.e.length-3]; -M.v=M.e[M.e.length-2]; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12][63]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1528,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"add1")); -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-8],M.e[M.e.length-5]); -M.e.push(M.e[M.e.length-13][4]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1483,M.p)); -return((M.p).label)(M);}}; - -var _6660=function(M){if(--M.cbt<0){throw _6660;} -M.e.length-=(M.a-1); -M.v=((plt.baselib.numbers.equals(1,RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][39]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e[M.e.length-2]=1; -M.e.push(M.e[M.e.length-7]); -M.v=1; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6667,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3440=function(M){if(--M.cbt<0){throw _3440;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][29]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3445,M.p)); -return((M.p).label)(M);}; - - -var _3390=function(M){if(--M.cbt<0){throw _3390;} -return(_3382)(M);}; - -_7086=RT.si_context_expected(4); - -var _7070=function(M){if(--M.cbt<0){throw _7070;} -M.c.push(new RT.PromptFrame(_7072,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1378,2,[M.e[M.e.length-1]],"findf"); -M.e[M.e.length-1][15]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _7094=function(M){if(--M.cbt<0){throw _7094;} -M.e.length-=(M.a-1); -return(_7095)(M);}; - -var _3291=function(M){if(--M.cbt<0){throw _3291;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=RT.isPair(M.e[M.e.length-1]); -M.e.length-=1; -if(M.v===false){M.v=M.e[M.e.length-13]; -return(_3292)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-16][24]; -M.e[M.e.length-1]=M.primitives["car"]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-19][55]; -M.e[M.e.length-1]=M.e[M.e.length-20]; -M.e[M.e.length-2]=M.e[M.e.length-21]; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-21][29]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3298,M.p)); -return((M.p).label)(M);}}; - -var _7075=function(M){if(--M.cbt<0){throw _7075;} -M.e.length-=(M.a-1); -return(_7076)(M);}; - -var _3095=function(M){if(--M.cbt<0){throw _3095;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],0,"add1")); -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-6],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][39]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e.push(M.e[M.e.length-10]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3103,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _7057=function(M){if(--M.cbt<0){throw _7057;} -M.e.length-=(M.a-1); -return(_7058)(M);}; - -var _7018=function(M){if(--M.cbt<0){throw _7018;} -M.c.push(new RT.PromptFrame(_7020,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1295,2,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][61]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _7041=function(M){if(--M.cbt<0){throw _7041;} -M.e.length-=(M.a-1); -return(_7042)(M);}; - -var _7035=function(M){if(--M.cbt<0){throw _7035;} -M.e.length-=(M.a-1); -return(_7036)(M);}; - -var _6950=function(M){if(--M.cbt<0){throw _6950;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7017=function(M){if(--M.cbt<0){throw _7017;} -M.e.length-=(M.a-1); -return(_7018)(M);}; - -var _7009=function(M){if(--M.cbt<0){throw _7009;} -M.e.length-=(M.a-1); -return(_7010)(M);}; - -var _6843=function(M){if(--M.cbt<0){throw _6843;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6816=function(M){if(--M.cbt<0){throw _6816;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.v=(1===M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-1]=new RT.Closure(_1407,1,[M.e[M.e.length-8],M.e[M.e.length-7]],"...private/list.rkt:331:18"); -M.e[M.e.length-2]=new RT.Closure(_1408,2,[M.e[M.e.length-8],M.e[M.e.length-7]],"...private/list.rkt:332:18"); -M.e[M.e.length-3]=new RT.Closure(_1409,(RT.makeArityAtLeast(0)),[M.e[M.e.length-8],M.e[M.e.length-7]],"...private/list.rkt:333:18"); -M.e[M.e.length-4]=new RT.Closure(_1406,RT.makePair(1,RT.makePair(2,RT.makePair((RT.makeArityAtLeast(0)),RT.NULL))),[M.e[M.e.length-3],M.e[M.e.length-2],M.e[M.e.length-1]],"composed"); -M.e.length-=3; -M.v=M.e[M.e.length-1]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e[M.e.length-1]=new RT.Closure(_1405,1,[M.e[M.e.length-5],M.e[M.e.length-4]],"composed"); -M.v=M.e[M.e.length-1]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6802=function(M){if(--M.cbt<0){throw _6802;} -return(_6794)(M);}; - -var _6956=function(M){--M.cbt<0; -M.p=M.c[M.c.length-1].pendingApplyValuesProc; -M.c.pop(); -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(M.a+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6721=function(M){if(--M.cbt<0){throw _6721;} -return(_6707)(M);}; - - -var _6687=function(M){if(--M.cbt<0){throw _6687;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6691,M.p)); -return((M.p).label)(M);}; - -var _1260=function(M){if(--M.cbt<0){throw _1260;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2272,M.p)); -return((M.p).label)(M);}; - -var _2697=function(M){if(--M.cbt<0){throw _2697;} -M.a=1; -return(_2695)(M);}; - -var _1419=function(M){if(--M.cbt<0){throw _1419;} -M.unspliceRestFromStack(0,M.a); -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6950,M.p)); -return((M.p).label)(M);}; - -var _2608=function(M){if(--M.cbt<0){throw _2608;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2612,M.p)); -return((M.p).label)(M);}; - -var _2587=function(M){if(--M.cbt<0){throw _2587;} -if(M.v===false){M.e[M.e.length-2]=new RT.Closure(_1290,(RT.makeArityAtLeast(0)),[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:388:34"); -return(_2557)(M);}else{M.e[M.e.length-2]=new RT.Closure(_1289,1,[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:387:34"); -return(_2557)(M);}}; - -var _6732=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _2538=function(M){if(--M.cbt<0){throw _2538;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2542,M.p)); -return((M.p).label)(M);}; - -var _2504=function(M){if(--M.cbt<0){throw _2504;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2495=function(M){if(--M.cbt<0){throw _2495;} -M.a=1; -return(_2493)(M);}; - -var _2438=function(M){if(--M.cbt<0){throw _2438;} -M.e[M.e.length-1]=M.v; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4][62]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1999=function(M){--M.cbt<0; -M.v=RT.isPair(M.e[M.e.length-3]); -if(M.v===false){M.v=M.e[M.e.length-11]; -M.v=M.e[M.e.length-10]; -M.v=M.e[M.e.length-3]; -M.v=M.e[M.e.length-2]; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_1255,2,[],"pipeline1"); -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -M.c.push(new RT.CallFrame(_2026,M.p)); -return(_1255)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-11][5]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2015,M.p)); -return((M.p).label)(M);}}; - -var _2372=function(M){if(--M.cbt<0){throw _2372;} -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-2][32]); -M.v=RT.makePair(M.e[M.e.length-4],M.e[M.e.length-5]); -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2438,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-5][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2381,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _4663=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4654)(M);}; - - -var _1406=function(M){if(--M.cbt<0){throw _1406;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 3]).racketArity,M.a)){return(_1407)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 3]; -return(_1409)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_1408)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_1407)(M);}}; - -var _2253=function(M){if(--M.cbt<0){throw _2253;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+30),30); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1246=function(M){if(--M.cbt<0){throw _1246;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1878,M.p)); -return((M.p).label)(M);}; - -var _2149=function(M){if(--M.cbt<0){throw _2149;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2162,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - - - -var _1411=function(M){if(--M.cbt<0){throw _1411;} -M.unspliceRestFromStack(1,(M.a-1)); -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=6; -M.e[M.e.length-6]=M.e[M.e.length-7][64]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.e[M.e.length-5]=0; -M.v=RT.NULL; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(6+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1993=function(M){if(--M.cbt<0){throw _1993;} -return(_1985)(M);}; - -var _1963=function(M){if(--M.cbt<0){throw _1963;} -if(M.v===false){M.e.length+=6; -M.e[M.e.length-6]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-7][1]; -M.e[M.e.length-2]=RT.makeSymbol("compose1"); -M.e[M.e.length-3]="procedure (arity 1)"; -M.e[M.e.length-4]=M.e[M.e.length-12]; -M.e[M.e.length-5]=M.e[M.e.length-8]; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1967,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_1959)(M);}}; - - - - - - -var _1216=function(M){if(--M.cbt<0){throw _1216;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1632,M.p)); -return((M.p).label)(M);}; - -var _1683=function(M){if(--M.cbt<0){throw _1683;} -M.a=1; -return(_1681)(M);}; - -var _1640=function(M){if(--M.cbt<0){throw _1640;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1601=function(M){if(--M.cbt<0){throw _1601;} -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-3][44]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1613,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e.push(M.e[M.e.length-3][44]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1605,M.p)); -return((M.p).label)(M);}}; - -var _6175=function(M){--M.cbt<0; -M.v=RT.isList(M.e[M.e.length-4]); -if(M.v===false){M.e.length+=8; -M.e[M.e.length-8]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-9][1]; -M.e[M.e.length-2]=RT.makeSymbol("foldl"); -M.e[M.e.length-3]="list"; -M.e[M.e.length-4]=2; -M.e[M.e.length-5]=M.e[M.e.length-10]; -M.e[M.e.length-6]=M.e[M.e.length-11]; -M.e[M.e.length-7]=M.e[M.e.length-12]; -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-8]; -M.e[M.e.length-8]=M.v; -M.a=8; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6189,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6185)(M);}}; - - -var _3436=function(M){if(--M.cbt<0){throw _3436;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3440,M.p)); -return((M.p).label)(M);}; - - -var _3386=function(M){if(--M.cbt<0){throw _3386;} -M.e[M.e.length-2]=M.v; -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],1,"=")))); -M.e.length-=2; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][14]; -M.e[M.e.length-1]=RT.makeSymbol("foldl"); -M.e[M.e.length-2]="given list does not have the same size as the first list: "; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3390,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_3382)(M);}}; - -var _7078=function(M){if(--M.cbt<0){throw _7078;} -M.c.push(new RT.PromptFrame(_7089,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1387,3,[],"mapadd"); -M.e[M.e.length-1][24]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _7068=function(M){if(--M.cbt<0){throw _7068;} -M.c.push(new RT.PromptFrame(_7070,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1377,2,[M.e[M.e.length-1]],"memf"); -M.e[M.e.length-1][13]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _7092=function(M){if(--M.cbt<0){throw _7092;} -M.e.length-=(M.a-1); -return(_7093)(M);}; - -var _3284=function(M){if(--M.cbt<0){throw _3284;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=RT.isPair(M.e[M.e.length-1]); -M.e.length-=1; -if(M.v===false){M.e[M.e.length-2]=M.e[M.e.length-7]; -return(_3285)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][24]; -M.e[M.e.length-1]=M.primitives["car"]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-13][29]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3291,M.p)); -return((M.p).label)(M);}}; - -var _7073=function(M){if(--M.cbt<0){throw _7073;} -M.e.length-=(M.a-1); -return(_7074)(M);}; - - -var _7032=function(M){if(--M.cbt<0){throw _7032;} -M.c.push(new RT.PromptFrame(_7034,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1319,6,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][54]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _3150=function(M){if(--M.cbt<0){throw _3150;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3154,M.p)); -return((M.p).label)(M);}; - -var _7016=function(M){if(--M.cbt<0){throw _7016;} -M.c.push(new RT.PromptFrame(_7018,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1282,2,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][62]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _7033=function(M){if(--M.cbt<0){throw _7033;} -M.e.length-=(M.a-1); -return(_7034)(M);}; - -var _6942=function(M){if(--M.cbt<0){throw _6942;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6915=function(M){if(--M.cbt<0){throw _6915;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.v=(1===M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-1]=new RT.Closure(_1422,1,[M.e[M.e.length-8],M.e[M.e.length-7]],"...private/list.rkt:331:18"); -M.e[M.e.length-2]=new RT.Closure(_1423,2,[M.e[M.e.length-8],M.e[M.e.length-7]],"...private/list.rkt:332:18"); -M.e[M.e.length-3]=new RT.Closure(_1424,(RT.makeArityAtLeast(0)),[M.e[M.e.length-8],M.e[M.e.length-7]],"...private/list.rkt:333:18"); -M.e[M.e.length-4]=new RT.Closure(_1421,RT.makePair(1,RT.makePair(2,RT.makePair((RT.makeArityAtLeast(0)),RT.NULL))),[M.e[M.e.length-3],M.e[M.e.length-2],M.e[M.e.length-1]],"composed"); -M.e.length-=3; -M.v=M.e[M.e.length-1]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e[M.e.length-1]=new RT.Closure(_1420,1,[M.e[M.e.length-5],M.e[M.e.length-4]],"composed"); -M.v=M.e[M.e.length-1]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6893=function(M){if(--M.cbt<0){throw _6893;} -return(_6885)(M);}; - -var _6835=function(M){if(--M.cbt<0){throw _6835;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6812=function(M){if(--M.cbt<0){throw _6812;} -return(_6804)(M);}; - -var _6798=function(M){if(--M.cbt<0){throw _6798;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("compose1"); -M.e[M.e.length-2]="procedure"; -M.e[M.e.length-3]=1; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6802,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6794)(M);}}; - -var _6778=function(M){if(--M.cbt<0){throw _6778;} -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-5][1]; -M.e[M.e.length-1]=RT.makeSymbol("compose1"); -M.e[M.e.length-2]="procedure"; -M.e[M.e.length-3]=0; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6717=function(M){if(--M.cbt<0){throw _6717;} -return(_6709)(M);}; - -var _6713=function(M){if(--M.cbt<0){throw _6713;} -if(M.v===false){M.v=false; -return(_6709)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][5]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6717,M.p)); -return((M.p).label)(M);}}; - -var _6681=function(M){if(--M.cbt<0){throw _6681;} -M.v=((plt.baselib.numbers.equals(3,RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][39]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e[M.e.length-2]=3; -M.e.push(M.e[M.e.length-7]); -M.v=3; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6687,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _2714=function(M){if(--M.cbt<0){throw _2714;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2686=function(M){if(--M.cbt<0){throw _2686;} -M.a=1; -return(_2684)(M);}; - -var _2659=function(M){if(--M.cbt<0){throw _2659;} -M.a=1; -return(_2657)(M);}; - -var _2622=function(M){if(--M.cbt<0){throw _2622;} -if(M.v===false){M.e[M.e.length-2]=new RT.Closure(_1294,(RT.makeArityAtLeast(0)),[M.e[M.e.length-5],M.e[M.e.length-1]],"...private/list.rkt:388:34"); -return(_2592)(M);}else{M.e[M.e.length-2]=new RT.Closure(_1293,1,[M.e[M.e.length-5],M.e[M.e.length-1]],"...private/list.rkt:387:34"); -return(_2592)(M);}}; - -var _2583=function(M){if(--M.cbt<0){throw _2583;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2587,M.p)); -return((M.p).label)(M);}; - - -var _2552=function(M){if(--M.cbt<0){throw _2552;} -if(M.v===false){M.e[M.e.length-2]=new RT.Closure(_1286,(RT.makeArityAtLeast(0)),[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:388:34"); -return(_2522)(M);}else{M.e[M.e.length-2]=new RT.Closure(_1285,1,[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:387:34"); -return(_2522)(M);}}; - -var _2532=function(M){if(--M.cbt<0){throw _2532;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-5][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2548,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-5][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2538,M.p)); -return((M.p).label)(M);}}; - -var _2485=function(M){if(--M.cbt<0){throw _2485;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2430=function(M){if(--M.cbt<0){throw _2430;} -if(M.v===false){M.e[M.e.length-2]=new RT.Closure(_1281,1,[M.e[M.e.length-5],M.e[M.e.length-1]],"...private/list.rkt:372:28"); -M.e.length-=1; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e[M.e.length-2]=new RT.Closure(_1280,1,[M.e[M.e.length-5],M.e[M.e.length-1]],"...private/list.rkt:371:28"); -M.e.length-=1; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _2011=function(M){--M.cbt<0; -M.e.length+=6; -M.e[M.e.length-6]=M.e[M.e.length-15][64]; -M.e[M.e.length-1]=M.e[M.e.length-16]; -M.e[M.e.length-2]=M.e[M.e.length-17]; -M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-9],0,"car")).first; -M.e[M.e.length-4]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-9],0,"cdr")).rest; -M.e[M.e.length-5]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-8],0,"add1")); -M.v=RT.makePair(M.e[M.e.length-10],M.e[M.e.length-7]); -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(6+15),15); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2396=function(M){if(--M.cbt<0){throw _2396;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2400,M.p)); -return((M.p).label)(M);}; - -var _1947=function(M){--M.cbt<0; -M.v=RT.isPair(M.e[M.e.length-5]); -if(M.v===false){M.v=M.e[M.e.length-6]; -M.v=M.e[M.e.length-5]; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_1255,2,[],"pipeline1"); -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"car")).first; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2052,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][5]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1963,M.p)); -return((M.p).label)(M);}}; - - - -var _1405=function(M){if(--M.cbt<0){throw _1405;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6824,M.p)); -return((M.p).label)(M);}; - -var _2214=function(M){if(--M.cbt<0){throw _2214;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2227,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+24),24); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - - -var _1834=function(M){if(--M.cbt<0){throw _1834;} -if(M.a===0){return(_1832)(M);}else{M.e.push(M.v); -return(_1832)(M);}}; - - - - -var _5635=function(M){if(--M.cbt<0){throw _5635;} -M.e.length-=(M.a-1); -return(_5632)(M);}; - -var _1231=function(M){if(--M.cbt<0){throw _1231;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1754,M.p)); -return((M.p).label)(M);}; - -var _1226=function(M){if(--M.cbt<0){throw _1226;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1714,M.p)); -return((M.p).label)(M);}; - -var _1858=function(M){if(--M.cbt<0){throw _1858;} -M.a=1; -return(_1856)(M);}; - -var _1670=function(M){if(--M.cbt<0){throw _1670;} -if(M.a===0){return(_1668)(M);}else{M.e.push(M.v); -return(_1668)(M);}}; - -var _1796=function(M){if(--M.cbt<0){throw _1796;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1754=function(M){if(--M.cbt<0){throw _1754;} -M.a=1; -return(_1752)(M);}; - -var _1714=function(M){if(--M.cbt<0){throw _1714;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1672=function(M){if(--M.cbt<0){throw _1672;} -M.a=1; -return(_1670)(M);}; - -var _1597=function(M){if(--M.cbt<0){throw _1597;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1601,M.p)); -return((M.p).label)(M);}; - - -var _3461=function(M){if(--M.cbt<0){throw _3461;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=RT.isPair(M.e[M.e.length-1]); -M.e.length-=1; -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][53]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-13]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-15][24]; -M.e[M.e.length-1]=M.primitives["car"]; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3468,M.p)); -return((M.p).label)(M);}}; - -var _1508=function(M){if(--M.cbt<0){throw _1508;} -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-15][44]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1520,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e.push(M.e[M.e.length-15][44]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1512,M.p)); -return((M.p).label)(M);}}; - - -var _1471=function(M){if(--M.cbt<0){throw _1471;} -return(_1463)(M);}; - -var _7076=function(M){if(--M.cbt<0){throw _7076;} -M.c.push(new RT.PromptFrame(_7078,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_1381,2,[M.e[M.e.length-2]],"assq"); -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_1382,2,[M.e[M.e.length-3]],"assv"); -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-1]=new RT.Closure(_1384,2,[M.e[M.e.length-6]],"...private/list.rkt:186:13"); -M.e[M.e.length-2]=new RT.Closure(_1385,3,[M.e[M.e.length-6]],"...private/list.rkt:187:13"); -M.e[M.e.length-3]=new RT.Closure(_1383,RT.makePair(2,RT.makePair(3,RT.NULL)),[M.e[M.e.length-2],M.e[M.e.length-1]],"assoc"); -M.e.length-=2; -M.e.length+=1; -M.e[M.e.length-1]=new RT.Closure(_1386,2,[M.e[M.e.length-5]],"assf"); -M.e.length+=4; -M.e[M.e.length-4]=M.primitives["values"]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7086,M.p)); -return((M.p).label)(M);}; - -var _7066=function(M){if(--M.cbt<0){throw _7066;} -M.c.push(new RT.PromptFrame(_7068,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1372,2,[M.e[M.e.length-1]],"remv*"); -M.e[M.e.length-1][12]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _7090=function(M){if(--M.cbt<0){throw _7090;} -M.e.length-=(M.a-1); -return(_7091)(M);}; - - -var _7048=function(M){if(--M.cbt<0){throw _7048;} -M.c.push(new RT.PromptFrame(_7050,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1327,3,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][46]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - -var _7030=function(M){if(--M.cbt<0){throw _7030;} -M.c.push(new RT.PromptFrame(_7032,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1317,3,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][55]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _3143=function(M){if(--M.cbt<0){throw _3143;} -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],0,"add1")); -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-6],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][36]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e.push(M.e[M.e.length-10]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3150,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _7014=function(M){if(--M.cbt<0){throw _7014;} -M.c.push(new RT.PromptFrame(_7016,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1273,2,[M.e[M.e.length-1]],"pipeline*"); -M.e[M.e.length-1][63]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _6996=function(M){if(--M.cbt<0){throw _6996;} -M.a=1; -return(_6994)(M);}; - -var _6934=function(M){if(--M.cbt<0){throw _6934;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6907=function(M){if(--M.cbt<0){throw _6907;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.v=(1===M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-1]=new RT.Closure(_1417,1,[M.e[M.e.length-8],M.e[M.e.length-7]],"...private/list.rkt:331:18"); -M.e[M.e.length-2]=new RT.Closure(_1418,2,[M.e[M.e.length-8],M.e[M.e.length-7]],"...private/list.rkt:332:18"); -M.e[M.e.length-3]=new RT.Closure(_1419,(RT.makeArityAtLeast(0)),[M.e[M.e.length-8],M.e[M.e.length-7]],"...private/list.rkt:333:18"); -M.e[M.e.length-4]=new RT.Closure(_1416,RT.makePair(1,RT.makePair(2,RT.makePair((RT.makeArityAtLeast(0)),RT.NULL))),[M.e[M.e.length-3],M.e[M.e.length-2],M.e[M.e.length-1]],"composed"); -M.e.length-=3; -M.v=M.e[M.e.length-1]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e[M.e.length-1]=new RT.Closure(_1415,1,[M.e[M.e.length-5],M.e[M.e.length-4]],"composed"); -M.v=M.e[M.e.length-1]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6889=function(M){if(--M.cbt<0){throw _6889;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("compose"); -M.e[M.e.length-2]="procedure"; -M.e[M.e.length-3]=1; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6893,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6885)(M);}}; - -var _2980=function(M){if(--M.cbt<0){throw _2980;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6808=function(M){if(--M.cbt<0){throw _6808;} -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-5][1]; -M.e[M.e.length-1]=RT.makeSymbol("compose1"); -M.e[M.e.length-2]="procedure (arity 1)"; -M.e[M.e.length-3]=0; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6812,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6804)(M);}}; - -var _6792=function(M){if(--M.cbt<0){throw _6792;} -return(_6784)(M);}; - -var _6768=function(M){if(--M.cbt<0){throw _6768;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_6754)(M);}; - - -var _2813=function(M){if(--M.cbt<0){throw _2813;} -if(M.v===false){M.e[M.e.length-2]=new RT.Closure(_1305,1,[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:372:28"); -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-15][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-15][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2824,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=13; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e[M.e.length-2]=new RT.Closure(_1304,1,[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:371:28"); -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-15][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-15][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2824,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=13; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _6705=function(M){if(--M.cbt<0){throw _6705;} -return(_6697)(M);}; - -var _6677=function(M){if(--M.cbt<0){throw _6677;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6681,M.p)); -return((M.p).label)(M);}; - -var _2706=function(M){if(--M.cbt<0){throw _2706;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1420=function(M){if(--M.cbt<0){throw _1420;} -M.e.push.apply(M.e,M.p.closedVals); -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingApplyValuesProc=M.e[M.e.length-1]; -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6960,M.p)); -return((M.p).label)(M);}; - -var _2648=function(M){if(--M.cbt<0){throw _2648;} -M.a=1; -return(_2646)(M);}; - -var _1418=function(M){if(--M.cbt<0){throw _1418;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6942,M.p)); -return((M.p).label)(M);}; - -var _2602=function(M){if(--M.cbt<0){throw _2602;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-10][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2618,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-10][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2608,M.p)); -return((M.p).label)(M);}}; - -var _6892=function(M){if(--M.cbt<0){throw _6892;} -M.e.length-=(M.a-1); -return(_6885)(M);}; - -var _2548=function(M){if(--M.cbt<0){throw _2548;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2552,M.p)); -return((M.p).label)(M);}; - -var _4638=function(M){if(--M.cbt<0){throw _4638;} -M.e.length-=(M.a-1); -return(_4625)(M);}; - -var _2476=function(M){if(--M.cbt<0){throw _2476;} -M.a=1; -return(_2474)(M);}; - -var _2457=function(M){if(--M.cbt<0){throw _2457;} -M.a=1; -return(_2455)(M);}; - - - -var _1959=function(M){--M.cbt<0; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-9],0,"add1")); -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-8],M.e[M.e.length-11]); -M.e.push(M.e[M.e.length-5][4]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1977,M.p)); -return((M.p).label)(M);}; - - - - -var _2201=function(M){if(--M.cbt<0){throw _2201;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2214,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+21),21); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - - -var _2110=function(M){if(--M.cbt<0){throw _2110;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1257,3,[],"loop"); -M.e.push(M.e[M.e.length-5]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2123,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+15),15); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - - - - - -var _1940=function(M){if(--M.cbt<0){throw _1940;} -M.a=1; -return(_1938)(M);}; - -var _1894=function(M){if(--M.cbt<0){throw _1894;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1878=function(M){if(--M.cbt<0){throw _1878;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1812=function(M){if(--M.cbt<0){throw _1812;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1765=function(M){if(--M.cbt<0){throw _1765;} -M.a=1; -return(_1763)(M);}; - -var _1730=function(M){if(--M.cbt<0){throw _1730;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1401=function(M){if(--M.cbt<0){throw _1401;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][34]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6701,M.p)); -return((M.p).label)(M);}; - -var _1658=function(M){if(--M.cbt<0){throw _1658;} -M.a=1; -return(_1656)(M);}; - -var _1621=function(M){if(--M.cbt<0){throw _1621;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - - -var _3488=function(M){if(--M.cbt<0){throw _3488;} -return(_3484)(M);}; - -var _3456=function(M){if(--M.cbt<0){throw _3456;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9][29]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3461,M.p)); -return((M.p).label)(M);}; - - -var _3153=function(M){if(--M.cbt<0){throw _3153;} -M.e.length-=(M.a-1); -M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-8][58]; -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-3]=M.e[M.e.length-11]; -M.v=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"add1")); -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - - -var _7074=function(M){if(--M.cbt<0){throw _7074;} -M.c.push(new RT.PromptFrame(_7076,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1380,3,[M.e[M.e.length-1]],"bad-item"); -M.e[M.e.length-1][17]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _3352=function(M){if(--M.cbt<0){throw _3352;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_3346)(M);}; - -var _7064=function(M){if(--M.cbt<0){throw _7064;} -M.c.push(new RT.PromptFrame(_7066,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1367,2,[M.e[M.e.length-1]],"remq*"); -M.e[M.e.length-1][11]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - -var _7046=function(M){if(--M.cbt<0){throw _7046;} -M.c.push(new RT.PromptFrame(_7048,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1326,4,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][47]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - -var _7028=function(M){if(--M.cbt<0){throw _7028;} -M.c.push(new RT.PromptFrame(_7030,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1316,6,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][56]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - -var _7012=function(M){if(--M.cbt<0){throw _7012;} -M.c.push(new RT.PromptFrame(_7014,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1254,6,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][64]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _6985=function(M){if(--M.cbt<0){throw _6985;} -M.a=1; -return(_6983)(M);}; - -var _6923=function(M){if(--M.cbt<0){throw _6923;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6903=function(M){if(--M.cbt<0){throw _6903;} -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-2][44]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6915,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e.push(M.e[M.e.length-2][44]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6907,M.p)); -return((M.p).label)(M);}}; - -var _6883=function(M){if(--M.cbt<0){throw _6883;} -return(_6875)(M);}; - -var _3009=function(M){if(--M.cbt<0){throw _3009;} -M.a=1; -return(_3007)(M);}; - -var _2493=function(M){if(--M.cbt<0){throw _2493;} -if(M.a===0){return(_2491)(M);}else{M.e.push(M.v); -return(_2491)(M);}}; - -var _6788=function(M){if(--M.cbt<0){throw _6788;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("compose1"); -M.e[M.e.length-2]="procedure"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6792,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6784)(M);}}; - -var _6764=function(M){if(--M.cbt<0){throw _6764;} -M.e[M.e.length-1]=M.v; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-15][60]; -M.e[M.e.length-1]=M.e[M.e.length-17]; -M.e[M.e.length-2]=4; -M.v=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-6],0,"sub1"), 1); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6768,M.p)); -return((M.p).label)(M);}; - -var _6753=function(M){if(--M.cbt<0){throw _6753;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],0,"sub1"), 1); -M.e.push(M.e[M.e.length-10][41]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6760,M.p)); -return((M.p).label)(M);}; - -var _2809=function(M){if(--M.cbt<0){throw _2809;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2813,M.p)); -return((M.p).label)(M);}; - -var _6701=function(M){if(--M.cbt<0){throw _6701;} -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("build-list"); -M.e[M.e.length-2]="exact-nonnegative-integer"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6705,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6697)(M);}}; - -var _6671=function(M){if(--M.cbt<0){throw _6671;} -M.v=((plt.baselib.numbers.equals(2,RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][39]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e[M.e.length-2]=2; -M.e.push(M.e[M.e.length-7]); -M.v=2; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6677,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1421=function(M){if(--M.cbt<0){throw _1421;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 3]).racketArity,M.a)){return(_1422)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 3]; -return(_1424)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_1423)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_1422)(M);}}; - - -var _1416=function(M){if(--M.cbt<0){throw _1416;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 3]).racketArity,M.a)){return(_1417)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 3]; -return(_1419)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_1418)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_1417)(M);}}; - - -var _5828=function(M){if(--M.cbt<0){throw _5828;} -M.e.length-=(M.a-1); -return(_5815)(M);}; - -var _2567=function(M){if(--M.cbt<0){throw _2567;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-7][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2583,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-7][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2573,M.p)); -return((M.p).label)(M);}}; - - - -var _1425=function(M){if(--M.cbt<0){throw _1425;} -M.v=M.primitives["values"]; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1412=function(M){if(--M.cbt<0){throw _1412;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 3]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 4]).racketArity,M.a)){return(_1413)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 4]; -return(_1426)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 3]; -return(_1425)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_1414)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_1413)(M);}}; - -var _2411=function(M){if(--M.cbt<0){throw _2411;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2415,M.p)); -return((M.p).label)(M);}; - -var _1394=function(M){if(--M.cbt<0){throw _1394;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){return(_1395)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_1397)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_1395)(M);}}; - -var _2350=function(M){if(--M.cbt<0){throw _2350;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - - -var _6311=function(M){if(--M.cbt<0){throw _6311;} -return(_6303)(M);}; - - - -var _4545=function(M){if(--M.cbt<0){throw _4545;} -M.e.length-=(M.a-1); -return(_4542)(M);}; - -var _2097=function(M){if(--M.cbt<0){throw _2097;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2110,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+12),12); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - - -var _6231=function(M){if(--M.cbt<0){throw _6231;} -M.e.length-=(M.a-1); -return(_6206)(M);}; - - -var _1373=function(M){if(--M.cbt<0){throw _1373;} -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1374,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-3]=M.e[M.e.length-7]; -M.e[M.e.length-4]=M.e[M.e.length-8]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -M.e.splice(M.e.length-(5+4),4); -M.c[M.c.length-1].p=M.p; -return(_1374)(M);}else{M.v=RT.NULL; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1955=function(M){if(--M.cbt<0){throw _1955;} -return(_1947)(M);}; - -var _1886=function(M){if(--M.cbt<0){throw _1886;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1847=function(M){if(--M.cbt<0){throw _1847;} -M.a=1; -return(_1845)(M);}; - -var _1804=function(M){if(--M.cbt<0){throw _1804;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1785=function(M){if(--M.cbt<0){throw _1785;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _5972=function(M){if(--M.cbt<0){throw _5972;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_5963)(M);}; - -var _5948=function(M){if(--M.cbt<0){throw _5948;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-6]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5955,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-6],RT.NULL); -return(_5949)(M);}}; - - -var _1613=function(M){if(--M.cbt<0){throw _1613;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.v=(1===M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-1]=new RT.Closure(_1251,1,[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:331:18"); -M.e[M.e.length-2]=new RT.Closure(_1252,2,[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:332:18"); -M.e[M.e.length-3]=new RT.Closure(_1253,(RT.makeArityAtLeast(0)),[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:333:18"); -M.e[M.e.length-4]=new RT.Closure(_1250,RT.makePair(1,RT.makePair(2,RT.makePair((RT.makeArityAtLeast(0)),RT.NULL))),[M.e[M.e.length-3],M.e[M.e.length-2],M.e[M.e.length-1]],"composed"); -M.e.length-=3; -M.v=M.e[M.e.length-1]; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e[M.e.length-1]=new RT.Closure(_1249,1,[M.e[M.e.length-7],M.e[M.e.length-3]],"composed"); -M.v=M.e[M.e.length-1]; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - -var _3476=function(M){if(--M.cbt<0){throw _3476;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1543=function(M){if(--M.cbt<0){throw _1543;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.v=(1===M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-1]=new RT.Closure(_1226,1,[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:331:18"); -M.e[M.e.length-2]=new RT.Closure(_1227,2,[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:332:18"); -M.e[M.e.length-3]=new RT.Closure(_1228,(RT.makeArityAtLeast(0)),[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:333:18"); -M.e[M.e.length-4]=new RT.Closure(_1225,RT.makePair(1,RT.makePair(2,RT.makePair((RT.makeArityAtLeast(0)),RT.NULL))),[M.e[M.e.length-3],M.e[M.e.length-2],M.e[M.e.length-1]],"composed"); -M.e.length-=3; -M.v=M.e[M.e.length-1]; -M.e.length-=18; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e[M.e.length-1]=new RT.Closure(_1224,1,[M.e[M.e.length-7],M.e[M.e.length-3]],"composed"); -M.v=M.e[M.e.length-1]; -M.e.length-=18; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - - - -var _3370=function(M){if(--M.cbt<0){throw _3370;} -return(_3362)(M);}; - -var _3333=function(M){if(--M.cbt<0){throw _3333;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_3328)(M);}; - -var _7062=function(M){if(--M.cbt<0){throw _7062;} -M.c.push(new RT.PromptFrame(_7064,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.length+=2; -M.e[M.e.length-1]=new RT.Closure(_1357,2,[M.e[M.e.length-3]],"...private/list.rkt:98:4"); -M.e[M.e.length-2]=new RT.Closure(_1362,3,[M.e[M.e.length-3]],"...private/list.rkt:99:4"); -M.v=new RT.Closure(_1356,RT.makePair(2,RT.makePair(3,RT.NULL)),[M.e[M.e.length-2],M.e[M.e.length-1]],"remove*"); -M.e.length-=2; -M.e[M.e.length-1][10]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - -var _7044=function(M){if(--M.cbt<0){throw _7044;} -M.c.push(new RT.PromptFrame(_7046,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1325,4,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][48]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1262=function(M){if(--M.cbt<0){throw _1262;} -M.unspliceRestFromStack(0,M.a); -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2288,M.p)); -return((M.p).label)(M);}; - -var _7026=function(M){if(--M.cbt<0){throw _7026;} -M.c.push(new RT.PromptFrame(_7028,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1315,3,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][57]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - -var _3128=function(M){if(--M.cbt<0){throw _3128;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3132,M.p)); -return((M.p).label)(M);}; - -var _6974=function(M){if(--M.cbt<0){throw _6974;} -M.a=1; -return(_6972)(M);}; - -var _3081=function(M){if(--M.cbt<0){throw _3081;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3085,M.p)); -return((M.p).label)(M);}; - -var _6899=function(M){if(--M.cbt<0){throw _6899;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6903,M.p)); -return((M.p).label)(M);}; - -var _6879=function(M){if(--M.cbt<0){throw _6879;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("compose"); -M.e[M.e.length-2]="procedure"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6883,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6875)(M);}}; - -var _2999=function(M){if(--M.cbt<0){throw _2999;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2971=function(M){if(--M.cbt<0){throw _2971;} -M.a=1; -return(_2969)(M);}; - -var _2904=function(M){if(--M.cbt<0){throw _2904;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6760=function(M){if(--M.cbt<0){throw _6760;} -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-14]); -M.v=3; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6764,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_6754)(M);}}; - -var _6749=function(M){if(--M.cbt<0){throw _6749;} -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-11]); -M.v=2; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6753,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_6743)(M);}}; - -var _2828=function(M){if(--M.cbt<0){throw _2828;} -if(M.v===false){M.e[M.e.length-2]=new RT.Closure(_1307,1,[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:372:28"); -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-17][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-17][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2839,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=15; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e[M.e.length-2]=new RT.Closure(_1306,1,[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:371:28"); -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-17][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-17][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2839,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=15; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _6691=function(M){if(--M.cbt<0){throw _6691;} -M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-6][59]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.v=4; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2749=function(M){if(--M.cbt<0){throw _2749;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2753,M.p)); -return((M.p).label)(M);}; - - - -var _6626=function(M){if(--M.cbt<0){throw _6626;} -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("build-string"); -M.e[M.e.length-2]="exact-nonnegative-integer"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6630,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6622)(M);}}; - - - -var _2563=function(M){if(--M.cbt<0){throw _2563;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2567,M.p)); -return((M.p).label)(M);}; - - - - - -var _2400=function(M){if(--M.cbt<0){throw _2400;} -if(M.v===false){M.e[M.e.length-2]=new RT.Closure(_1277,1,[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:372:28"); -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-9][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2411,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e[M.e.length-2]=new RT.Closure(_1276,1,[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:371:28"); -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-9][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2411,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - - -var _2342=function(M){if(--M.cbt<0){throw _2342;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6344=function(M){if(--M.cbt<0){throw _6344;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6348,M.p)); -return((M.p).label)(M);}; - -var _6307=function(M){if(--M.cbt<0){throw _6307;} -if(M.v===false){M.e.length+=6; -M.e[M.e.length-6]=M.e[M.e.length-7][1]; -M.e[M.e.length-1]=RT.makeSymbol("foldr"); -M.e[M.e.length-2]="procedure"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-8]; -M.e[M.e.length-5]=M.e[M.e.length-9]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6311,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6303)(M);}}; - -var _6287=function(M){if(--M.cbt<0){throw _6287;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6291,M.p)); -return((M.p).label)(M);}; - -var _6264=function(M){if(--M.cbt<0){throw _6264;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=RT.isPair(M.e[M.e.length-1]); -M.e.length-=1; -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-10]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-12][24]; -M.e[M.e.length-1]=M.primitives["car"]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6271,M.p)); -return((M.p).label)(M);}}; - - -var _6224=function(M){if(--M.cbt<0){throw _6224;} -M.e[M.e.length-1]=M.v; -M.v=plt.baselib.numbers.add(2, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],1,"+")); -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6228,M.p)); -return((M.p).label)(M);}; - -var _6205=function(M){if(--M.cbt<0){throw _6205;} -M.e[M.e.length-1]=M.v; -M.e.length+=6; -M.e[M.e.length-6]=M.e[M.e.length-8][54]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-3]=M.e[M.e.length-10]; -M.e[M.e.length-4]=M.e[M.e.length-11]; -M.e[M.e.length-5]=M.e[M.e.length-12]; -M.v=3; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6210,M.p)); -return((M.p).label)(M);}; - -var _6183=function(M){if(--M.cbt<0){throw _6183;} -return(_6175)(M);}; - -var _6153=function(M){if(--M.cbt<0){throw _6153;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6161,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6120=function(M){if(--M.cbt<0){throw _6120;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1392,3,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-13]; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-15]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6128,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=12; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6090=function(M){if(--M.cbt<0){throw _6090;} -return(_6082)(M);}; - -var _6070=function(M){if(--M.cbt<0){throw _6070;} -if(M.v===false){M.e.length+=6; -M.e[M.e.length-6]=M.e[M.e.length-7][1]; -M.e[M.e.length-1]=RT.makeSymbol("foldl"); -M.e[M.e.length-2]="procedure"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-8]; -M.e[M.e.length-5]=M.e[M.e.length-9]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6074,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6066)(M);}}; - -var _6046=function(M){if(--M.cbt<0){throw _6046;} -M.e[M.e.length-1]=M.v; -M.v=plt.baselib.numbers.add(2, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],1,"+")); -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6050,M.p)); -return((M.p).label)(M);}; - -var _6019=function(M){if(--M.cbt<0){throw _6019;} -return(_6015)(M);}; - -var _5999=function(M){if(--M.cbt<0){throw _5999;} -M.e[M.e.length-1]=M.v; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1388,3,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-15]; -M.e[M.e.length-2]=M.e[M.e.length-16]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6003,M.p)); -return((M.p).label)(M);}; - -var _5969=function(M){if(--M.cbt<0){throw _5969;} -M.e[M.e.length-1]=M.v; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1388,3,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-15]; -M.e[M.e.length-2]=M.e[M.e.length-17]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -M.c.push(new RT.CallFrame(_5972,M.p)); -return(_1388)(M);}; - -var _5938=function(M){if(--M.cbt<0){throw _5938;} -return(_5924)(M);}; - - -var _1632=function(M){if(--M.cbt<0){throw _1632;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _5821=function(M){if(--M.cbt<0){throw _5821;} -if(M.v===false){M.v=false; -return(_5817)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][5]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5825,M.p)); -return((M.p).label)(M);}}; - -var _1559=function(M){if(--M.cbt<0){throw _1559;} -M.e[M.e.length-1]=M.v; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-8][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1566,M.p)); -return((M.p).label)(M);}; - - - - -var _6629=function(M){if(--M.cbt<0){throw _6629;} -M.e.length-=(M.a-1); -return(_6622)(M);}; - -var _3366=function(M){if(--M.cbt<0){throw _3366;} -M.e[M.e.length-2]=M.v; -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],1,"=")))); -M.e.length-=2; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][14]; -M.e[M.e.length-1]=RT.makeSymbol("foldl"); -M.e[M.e.length-2]="given list does not have the same size as the first list: "; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-9],0,"car")).first; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3370,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_3362)(M);}}; - - -var _7060=function(M){if(--M.cbt<0){throw _7060;} -M.c.push(new RT.PromptFrame(_7062,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1340,4,[M.e[M.e.length-1]],"do-remove*"); -M.e[M.e.length-1][9]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1363=function(M){if(--M.cbt<0){throw _1363;} -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1364,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-3]=M.e[M.e.length-7]; -M.e[M.e.length-4]=M.e[M.e.length-8]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -M.e.splice(M.e.length-(5+4),4); -M.c[M.c.length-1].p=M.p; -return(_1364)(M);}else{M.v=RT.NULL; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _7042=function(M){if(--M.cbt<0){throw _7042;} -M.c.push(new RT.PromptFrame(_7044,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1324,4,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][49]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - -var _3199=function(M){if(--M.cbt<0){throw _3199;} -if(M.v===false){M.v=M.e[M.e.length-4]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][57]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.push(M.e[M.e.length-11]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3212,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-7][32]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][57]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.push(M.e[M.e.length-11]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3212,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-7][32]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - - -var _3121=function(M){if(--M.cbt<0){throw _3121;} -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-6],0,"add1")); -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][36]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e.push(M.e[M.e.length-8]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3128,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-3]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6960=function(M){if(--M.cbt<0){throw _6960;} -M.a=1; -return(_6958)(M);}; - -var _3074=function(M){if(--M.cbt<0){throw _3074;} -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-6],0,"add1")); -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][39]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e.push(M.e[M.e.length-8]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3081,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-3]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3048=function(M){if(--M.cbt<0){throw _3048;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"add1")); -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"sub1"), 1); -M.e.push(M.e[M.e.length-13][41]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3056,M.p)); -return((M.p).label)(M);}; - -var _3024=function(M){if(--M.cbt<0){throw _3024;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-6],0,"add1")); -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-8],0,"sub1"), 1); -M.e.push(M.e[M.e.length-5][41]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3032,M.p)); -return((M.p).label)(M);}; - - -var _2961=function(M){if(--M.cbt<0){throw _2961;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2933=function(M){if(--M.cbt<0){throw _2933;} -M.a=1; -return(_2931)(M);}; - -var _2866=function(M){if(--M.cbt<0){throw _2866;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6742=function(M){if(--M.cbt<0){throw _6742;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],0,"sub1"), 1); -M.e.push(M.e[M.e.length-7][41]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6749,M.p)); -return((M.p).label)(M);}; - - -var _2783=function(M){if(--M.cbt<0){throw _2783;} -if(M.v===false){M.e[M.e.length-2]=new RT.Closure(_1301,1,[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:372:28"); -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-11][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-11][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2794,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e[M.e.length-2]=new RT.Closure(_1300,1,[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:371:28"); -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-11][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-11][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2794,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _2768=function(M){if(--M.cbt<0){throw _2768;} -if(M.v===false){M.e[M.e.length-2]=new RT.Closure(_1299,1,[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:372:28"); -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-9][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2779,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e[M.e.length-2]=new RT.Closure(_1298,1,[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:371:28"); -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-9][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2779,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _6650=function(M){if(--M.cbt<0){throw _6650;} -M.e[M.e.length-1]=M.v; -M.v=((plt.baselib.numbers.equals(0,RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][39]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e[M.e.length-2]=0; -M.e.push(M.e[M.e.length-7]); -M.v=0; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6657,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6646=function(M){if(--M.cbt<0){throw _6646;} -return(_6632)(M);}; - -var _6616=function(M){if(--M.cbt<0){throw _6616;} -M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-6][58]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.v=4; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6602=function(M){if(--M.cbt<0){throw _6602;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6606,M.p)); -return((M.p).label)(M);}; - -var _6582=function(M){if(--M.cbt<0){throw _6582;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6586,M.p)); -return((M.p).label)(M);}; - -var _2577=function(M){if(--M.cbt<0){throw _2577;} -if(M.v===false){M.e[M.e.length-2]=new RT.Closure(_1288,(RT.makeArityAtLeast(0)),[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:385:34"); -return(_2557)(M);}else{M.e[M.e.length-2]=new RT.Closure(_1287,1,[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:384:34"); -return(_2557)(M);}}; - -var _6528=function(M){if(--M.cbt<0){throw _6528;} -if(M.v===false){M.v=M.e[M.e.length-4]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][57]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.push(M.e[M.e.length-11]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6541,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-7][32]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][57]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.push(M.e[M.e.length-11]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6541,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-7][32]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - - -var _6457=function(M){if(--M.cbt<0){throw _6457;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6461,M.p)); -return((M.p).label)(M);}; - -var _6439=function(M){if(--M.cbt<0){throw _6439;} -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4][5]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e.length+=1; -M.e.push(M.e[M.e.length-5][26]); -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6445,M.p)); -return((M.p).label)(M);}; - -var _2426=function(M){if(--M.cbt<0){throw _2426;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2430,M.p)); -return((M.p).label)(M);}; - -var _6394=function(M){if(--M.cbt<0){throw _6394;} -return(_6370)(M);}; - -var _2368=function(M){if(--M.cbt<0){throw _2368;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2372,M.p)); -return((M.p).label)(M);}; - -var _6327=function(M){if(--M.cbt<0){throw _6327;} -return(_6319)(M);}; - -var _6295=function(M){if(--M.cbt<0){throw _6295;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+12),12); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6280=function(M){if(--M.cbt<0){throw _6280;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=RT.isPair(M.e[M.e.length-1]); -M.e.length-=1; -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=12; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-11][53]; -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-16][24]; -M.e[M.e.length-1]=M.primitives["car"]; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6287,M.p)); -return((M.p).label)(M);}}; - -var _6259=function(M){if(--M.cbt<0){throw _6259;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][29]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6264,M.p)); -return((M.p).label)(M);}; - -var _6243=function(M){if(--M.cbt<0){throw _6243;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][29]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6248,M.p)); -return((M.p).label)(M);}; - -var _6220=function(M){if(--M.cbt<0){throw _6220;} -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][14]; -M.e[M.e.length-1]=RT.makeSymbol("foldl"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][27]; -M.e[M.e.length-1]="given procedure does not accept ~a arguments: "; -M.e.length+=1; -M.e.push(M.e[M.e.length-8][26]); -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6224,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6206)(M);}}; - -var _6201=function(M){if(--M.cbt<0){throw _6201;} -return(_6191)(M);}; - -var _6179=function(M){if(--M.cbt<0){throw _6179;} -if(M.v===false){M.e.length+=8; -M.e[M.e.length-8]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-9][1]; -M.e[M.e.length-2]=RT.makeSymbol("foldl"); -M.e[M.e.length-3]="procedure"; -M.e[M.e.length-4]=0; -M.e[M.e.length-5]=M.e[M.e.length-10]; -M.e[M.e.length-6]=M.e[M.e.length-11]; -M.e[M.e.length-7]=M.e[M.e.length-12]; -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-8]; -M.e[M.e.length-8]=M.v; -M.a=8; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6183,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6175)(M);}}; - -var _6145=function(M){if(--M.cbt<0){throw _6145;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6153,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6112=function(M){if(--M.cbt<0){throw _6112;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-11]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6120,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6086=function(M){if(--M.cbt<0){throw _6086;} -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][14]; -M.e[M.e.length-1]=RT.makeSymbol("foldl"); -M.e[M.e.length-2]="given procedure does not accept 2 arguments: "; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6090,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6082)(M);}}; - -var _6058=function(M){if(--M.cbt<0){throw _6058;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+7),7); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6040=function(M){if(--M.cbt<0){throw _6040;} -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4][5]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e.length+=1; -M.e.push(M.e[M.e.length-5][26]); -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6046,M.p)); -return((M.p).label)(M);}; - -var _6013=function(M){if(--M.cbt<0){throw _6013;} -return(_6005)(M);}; - -var _5992=function(M){if(--M.cbt<0){throw _5992;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-12]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5999,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-11],RT.NULL); -return(_5993)(M);}}; - -var _5962=function(M){if(--M.cbt<0){throw _5962;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-12]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5969,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-12],RT.NULL); -return(_5963)(M);}}; - -var _5934=function(M){if(--M.cbt<0){throw _5934;} -return(_5926)(M);}; - -var _5918=function(M){if(--M.cbt<0){throw _5918;} -return(_5904)(M);}; - -var _5852=function(M){if(--M.cbt<0){throw _5852;} -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-8][14]; -M.e[M.e.length-1]=RT.makeSymbol("findf"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+7),7); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.push(M.e[M.e.length-7]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5864,M.p)); -return((M.p).label)(M);}}else{M.v=false; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _5793=function(M){if(--M.cbt<0){throw _5793;} -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][45]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _5760=function(M){if(--M.cbt<0){throw _5760;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][14]; -M.e[M.e.length-1]=RT.makeSymbol("memf"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-3]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5771,M.p)); -return((M.p).label)(M);}}else{M.v=false; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-3]; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - -var _5686=function(M){if(--M.cbt<0){throw _5686;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1374,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.e[M.e.length-3]=M.e[M.e.length-9]; -M.e[M.e.length-4]=M.e[M.e.length-10]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1373,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _6089=function(M){if(--M.cbt<0){throw _6089;} -M.e.length-=(M.a-1); -return(_6082)(M);}; - - -var _1435=function(M){if(--M.cbt<0){throw _1435;} -if(M.v===false){M.e.length+=6; -M.e[M.e.length-6]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-7][1]; -M.e[M.e.length-2]=RT.makeSymbol("compose"); -M.e[M.e.length-3]="procedure"; -M.e[M.e.length-4]=M.e[M.e.length-12]; -M.e[M.e.length-5]=M.e[M.e.length-8]; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1439,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_1431)(M);}}; - - -var _7058=function(M){if(--M.cbt<0){throw _7058;} -M.c.push(new RT.PromptFrame(_7060,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1338,2,[M.e[M.e.length-1]],"remv"); -M.e[M.e.length-1][7]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _6595=function(M){if(--M.cbt<0){throw _6595;} -M.e.length-=(M.a-1); -M.v=((plt.baselib.numbers.equals(2,RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][36]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e[M.e.length-2]=2; -M.e.push(M.e[M.e.length-7]); -M.v=2; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6602,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3264=function(M){if(--M.cbt<0){throw _3264;} -return(_3260)(M);}; - - -var _3185=function(M){if(--M.cbt<0){throw _3185;} -if(M.v===false){M.v=M.e[M.e.length-4]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-8]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3199,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-5][32]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-8]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3199,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-5][32]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - - - -var _3103=function(M){if(--M.cbt<0){throw _3103;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3107,M.p)); -return((M.p).label)(M);}; - - -var _3044=function(M){if(--M.cbt<0){throw _3044;} -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-12]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3048,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-4]=RT.NULL; -return(_3038)(M);}}; - -var _3020=function(M){if(--M.cbt<0){throw _3020;} -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-4]); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3024,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - -var _1428=function(M){if(--M.cbt<0){throw _1428;} -M.e.length-=M.a; -return(_1429)(M);}; - -var _2923=function(M){if(--M.cbt<0){throw _2923;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2895=function(M){if(--M.cbt<0){throw _2895;} -M.a=1; -return(_2893)(M);}; - -var _6738=function(M){if(--M.cbt<0){throw _6738;} -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-8]); -M.v=1; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6742,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_6732)(M);}}; - -var _1383=function(M){if(--M.cbt<0){throw _1383;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){return(_1384)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_1385)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_1384)(M);}}; - -var _2779=function(M){if(--M.cbt<0){throw _2779;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2783,M.p)); -return((M.p).label)(M);}; - -var _2764=function(M){if(--M.cbt<0){throw _2764;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2768,M.p)); -return((M.p).label)(M);}; - - -var _6642=function(M){if(--M.cbt<0){throw _6642;} -return(_6634)(M);}; - -var _6612=function(M){if(--M.cbt<0){throw _6612;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6616,M.p)); -return((M.p).label)(M);}; - -var _6596=function(M){if(--M.cbt<0){throw _6596;} -M.v=((plt.baselib.numbers.equals(2,RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][36]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e[M.e.length-2]=2; -M.e.push(M.e[M.e.length-7]); -M.v=2; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6602,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6575=function(M){if(--M.cbt<0){throw _6575;} -M.e[M.e.length-1]=M.v; -M.v=((plt.baselib.numbers.equals(0,RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][36]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e[M.e.length-2]=0; -M.e.push(M.e[M.e.length-7]); -M.v=0; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6582,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6563=function(M){if(--M.cbt<0){throw _6563;} -if(M.v===false){M.v=false; -return(_6559)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][5]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6567,M.p)); -return((M.p).label)(M);}}; - -var _6514=function(M){if(--M.cbt<0){throw _6514;} -if(M.v===false){M.v=M.e[M.e.length-4]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-8]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6528,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-5][32]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+7),7); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-8]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6528,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-5][32]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+7),7); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _6481=function(M){if(--M.cbt<0){throw _6481;} -return(_6467)(M);}; - -var _6453=function(M){if(--M.cbt<0){throw _6453;} -M.e[M.e.length-1]=M.v; -M.v=plt.baselib.numbers.add(2, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],1,"+")); -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6457,M.p)); -return((M.p).label)(M);}; - -var _6434=function(M){if(--M.cbt<0){throw _6434;} -M.e[M.e.length-1]=M.v; -M.e.length+=6; -M.e[M.e.length-6]=M.e[M.e.length-8][56]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-3]=M.e[M.e.length-10]; -M.e[M.e.length-4]=M.e[M.e.length-11]; -M.e[M.e.length-5]=M.e[M.e.length-12]; -M.v=3; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6439,M.p)); -return((M.p).label)(M);}; - -var _6418=function(M){if(--M.cbt<0){throw _6418;} -return(_6414)(M);}; - -var _6390=function(M){if(--M.cbt<0){throw _6390;} -return(_6373)(M);}; - -var _6360=function(M){if(--M.cbt<0){throw _6360;} -return(_6330)(M);}; - -var _6323=function(M){if(--M.cbt<0){throw _6323;} -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][14]; -M.e[M.e.length-1]=RT.makeSymbol("foldr"); -M.e[M.e.length-2]="given procedure does not accept 2 arguments: "; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6327,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6319)(M);}}; - -var _6291=function(M){if(--M.cbt<0){throw _6291;} -M.e[M.e.length-2]=M.v; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-13][29]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6295,M.p)); -return((M.p).label)(M);}; - -var _6275=function(M){if(--M.cbt<0){throw _6275;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][29]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6280,M.p)); -return((M.p).label)(M);}; - -var _6255=function(M){if(--M.cbt<0){throw _6255;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6259,M.p)); -return((M.p).label)(M);}; - -var _6239=function(M){if(--M.cbt<0){throw _6239;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6243,M.p)); -return((M.p).label)(M);}; - -var _6216=function(M){if(--M.cbt<0){throw _6216;} -M.e[M.e.length-1]=M.v; -M.v=plt.baselib.numbers.add(2, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],1,"+")); -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6220,M.p)); -return((M.p).label)(M);}; - -var _6197=function(M){if(--M.cbt<0){throw _6197;} -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][14]; -M.e[M.e.length-1]=RT.makeSymbol("foldl"); -M.e[M.e.length-2]="given procedure does not accept 2 arguments: "; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6201,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6191)(M);}}; - -var _6169=function(M){if(--M.cbt<0){throw _6169;} -M.e[M.e.length-2]=M.v; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6137=function(M){if(--M.cbt<0){throw _6137;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6145,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6104=function(M){if(--M.cbt<0){throw _6104;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6112,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6080=function(M){if(--M.cbt<0){throw _6080;} -return(_6076)(M);}; - -var _6054=function(M){if(--M.cbt<0){throw _6054;} -M.e[M.e.length-1]=M.v; -M.v=plt.baselib.numbers.add(2, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],1,"+")); -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6058,M.p)); -return((M.p).label)(M);}; - -var _6035=function(M){if(--M.cbt<0){throw _6035;} -M.e[M.e.length-1]=M.v; -M.e.length+=7; -M.e[M.e.length-7]=M.e[M.e.length-9][52]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-3]=M.e[M.e.length-11]; -M.e[M.e.length-4]=M.e[M.e.length-12]; -M.e[M.e.length-5]=M.e[M.e.length-13]; -M.e[M.e.length-6]=M.e[M.e.length-14]; -M.v=3; -M.p=M.e[M.e.length-7]; -M.e[M.e.length-7]=M.v; -M.a=7; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6040,M.p)); -return((M.p).label)(M);}; - -var _6009=function(M){if(--M.cbt<0){throw _6009;} -if(M.v===false){M.e.length+=8; -M.e[M.e.length-8]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-9][1]; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-3]="procedure"; -M.e[M.e.length-4]=0; -M.e[M.e.length-5]=M.e[M.e.length-11]; -M.e[M.e.length-6]=M.e[M.e.length-12]; -M.e[M.e.length-7]=M.e[M.e.length-13]; -M.v=M.e[M.e.length-14]; -M.p=M.e[M.e.length-8]; -M.e[M.e.length-8]=M.v; -M.a=8; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6013,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6005)(M);}}; - -var _5985=function(M){if(--M.cbt<0){throw _5985;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-9]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5992,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-8],RT.NULL); -return(_5986)(M);}}; - -var _5955=function(M){if(--M.cbt<0){throw _5955;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-9]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5962,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-9],RT.NULL); -return(_5956)(M);}}; - -var _5930=function(M){if(--M.cbt<0){throw _5930;} -if(M.v===false){M.v=false; -return(_5926)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][5]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5934,M.p)); -return((M.p).label)(M);}}; - -var _5914=function(M){if(--M.cbt<0){throw _5914;} -return(_5906)(M);}; - -var _5840=function(M){if(--M.cbt<0){throw _5840;} -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][14]; -M.e[M.e.length-1]=RT.makeSymbol("findf"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.push(M.e[M.e.length-5]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5852,M.p)); -return((M.p).label)(M);}}else{M.v=false; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _5782=function(M){if(--M.cbt<0){throw _5782;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][14]; -M.e[M.e.length-1]=RT.makeSymbol("memf"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-5]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5793,M.p)); -return((M.p).label)(M);}}else{M.v=false; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _5750=function(M){if(--M.cbt<0){throw _5750;} -return(_5736)(M);}; - -var _5726=function(M){if(--M.cbt<0){throw _5726;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1376,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"cdr")).rest; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1373,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5680=function(M){if(--M.cbt<0){throw _5680;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5642=function(M){if(--M.cbt<0){throw _5642;} -return(_5638)(M);}; - -var _5587=function(M){if(--M.cbt<0){throw _5587;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1400=function(M){if(--M.cbt<0){throw _1400;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][34]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6626,M.p)); -return((M.p).label)(M);}; - - -var _3310=function(M){if(--M.cbt<0){throw _3310;} -return(_3292)(M);}; - - -var _3254=function(M){if(--M.cbt<0){throw _3254;} -return(_3246)(M);}; - -var _5347=function(M){if(--M.cbt<0){throw _5347;} -M.e[M.e.length-4]=M.v; -M.e.length-=1; -return(_5341)(M);}; - - - -var _5220=function(M){if(--M.cbt<0){throw _5220;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _3096=function(M){if(--M.cbt<0){throw _3096;} -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],0,"add1")); -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-6],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][39]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e.push(M.e[M.e.length-10]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3103,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - -var _3060=function(M){if(--M.cbt<0){throw _3060;} -M.e[M.e.length-1]=M.v; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-18][60]; -M.e[M.e.length-1]=M.e[M.e.length-19]; -M.e[M.e.length-2]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-7],0,"add1")); -M.v=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-6],0,"sub1"), 1); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3064,M.p)); -return((M.p).label)(M);}; - -var _3036=function(M){if(--M.cbt<0){throw _3036;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"add1")); -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"sub1"), 1); -M.e.push(M.e[M.e.length-9][41]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3044,M.p)); -return((M.p).label)(M);}; - -var _1387=function(M){if(--M.cbt<0){throw _1387;} -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-3]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5948,M.p)); -return((M.p).label)(M);}else{M.v=RT.makePair(M.e[M.e.length-3],RT.NULL); -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - -var _5328=function(M){if(--M.cbt<0){throw _5328;} -M.e.length-=(M.a-1); -return(_5325)(M);}; - -var _2885=function(M){if(--M.cbt<0){throw _2885;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _2843=function(M){if(--M.cbt<0){throw _2843;} -if(M.v===false){M.e[M.e.length-2]=new RT.Closure(_1309,1,[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:372:28"); -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-17][61]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-20][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-20][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2854,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=17; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e[M.e.length-2]=new RT.Closure(_1308,1,[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:371:28"); -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-17][61]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-20][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-20][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2854,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=17; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _1385=function(M){if(--M.cbt<0){throw _1385;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5910,M.p)); -return((M.p).label)(M);}; - -var _2798=function(M){if(--M.cbt<0){throw _2798;} -if(M.v===false){M.e[M.e.length-2]=new RT.Closure(_1303,1,[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:372:28"); -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-13][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-13][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2809,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e[M.e.length-2]=new RT.Closure(_1302,1,[M.e[M.e.length-4],M.e[M.e.length-1]],"...private/list.rkt:371:28"); -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-13][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-13][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2809,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - - -var _4700=function(M){if(--M.cbt<0){throw _4700;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4709,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4701)(M);}}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4692)(M);}}; - -var _6638=function(M){if(--M.cbt<0){throw _6638;} -if(M.v===false){M.v=false; -return(_6634)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][5]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6642,M.p)); -return((M.p).label)(M);}}; - -var _6606=function(M){if(--M.cbt<0){throw _6606;} -M.v=((plt.baselib.numbers.equals(3,RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][36]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e[M.e.length-2]=3; -M.e.push(M.e[M.e.length-7]); -M.v=3; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6612,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6592=function(M){if(--M.cbt<0){throw _6592;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6596,M.p)); -return((M.p).label)(M);}; - -var _6571=function(M){if(--M.cbt<0){throw _6571;} -return(_6557)(M);}; - -var _6555=function(M){if(--M.cbt<0){throw _6555;} -return(_6547)(M);}; - -var _6500=function(M){if(--M.cbt<0){throw _6500;} -if(M.v===false){M.v=M.e[M.e.length-5]; -M.e[M.e.length-1]=RT.NULL; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-6]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6514,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-3][32]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.e[M.e.length-2]=RT.NULL; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-6]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6514,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-3][32]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _6477=function(M){if(--M.cbt<0){throw _6477;} -return(_6469)(M);}; - -var _6449=function(M){if(--M.cbt<0){throw _6449;} -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][14]; -M.e[M.e.length-1]=RT.makeSymbol("foldr"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][27]; -M.e[M.e.length-1]="given procedure does not accept ~a arguments: "; -M.e.length+=1; -M.e.push(M.e[M.e.length-8][26]); -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6453,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6435)(M);}}; - -var _6430=function(M){if(--M.cbt<0){throw _6430;} -return(_6420)(M);}; - -var _6412=function(M){if(--M.cbt<0){throw _6412;} -return(_6404)(M);}; - -var _6386=function(M){if(--M.cbt<0){throw _6386;} -return(_6376)(M);}; - -var _6356=function(M){if(--M.cbt<0){throw _6356;} -return(_6333)(M);}; - -var _6317=function(M){if(--M.cbt<0){throw _6317;} -return(_6313)(M);}; - -var _4134=function(M){if(--M.cbt<0){throw _4134;} -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e.push(M.e[M.e.length-10][23]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4138,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=13; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6271=function(M){if(--M.cbt<0){throw _6271;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6275,M.p)); -return((M.p).label)(M);}; - -var _6248=function(M){if(--M.cbt<0){throw _6248;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.v=RT.isPair(M.e[M.e.length-1]); -M.e.length-=1; -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][24]; -M.e[M.e.length-1]=M.primitives["car"]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6255,M.p)); -return((M.p).label)(M);}}; - -var _6232=function(M){if(--M.cbt<0){throw _6232;} -return(_6206)(M);}; - -var _6210=function(M){if(--M.cbt<0){throw _6210;} -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4][5]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e.length+=1; -M.e.push(M.e[M.e.length-5][26]); -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6216,M.p)); -return((M.p).label)(M);}; - -var _6189=function(M){if(--M.cbt<0){throw _6189;} -return(_6185)(M);}; - -var _6161=function(M){if(--M.cbt<0){throw _6161;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1392,3,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-14]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6169,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6128=function(M){if(--M.cbt<0){throw _6128;} -M.e[M.e.length-2]=M.v; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -M.e.splice(M.e.length-(3+12),12); -M.c[M.c.length-1].p=M.p; -return(_1392)(M);}; - -var _6096=function(M){if(--M.cbt<0){throw _6096;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6104,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6074=function(M){if(--M.cbt<0){throw _6074;} -return(_6066)(M);}; - -var _6050=function(M){if(--M.cbt<0){throw _6050;} -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][14]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][27]; -M.e[M.e.length-1]="given procedure does not accept ~a arguments: "; -M.e.length+=1; -M.e.push(M.e[M.e.length-8][26]); -M.v=M.e[M.e.length-14]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6054,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6027=function(M){if(--M.cbt<0){throw _6027;} -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][14]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]="given procedure does not accept 2 arguments: "; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=RT.VOID; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6003=function(M){if(--M.cbt<0){throw _6003;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_5993)(M);}; - -var _5978=function(M){if(--M.cbt<0){throw _5978;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.push(M.e[M.e.length-6]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5985,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-5],RT.NULL); -return(_5979)(M);}}; - -var _3634=function(M){if(--M.cbt<0){throw _3634;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-14][14]; -M.e[M.e.length-1]=RT.makeSymbol("assf"); -M.e[M.e.length-2]="non-pair found in list: "; -M.e[M.e.length-3]=M.e[M.e.length-6]; -M.e[M.e.length-4]=" in "; -M.v=M.e[M.e.length-16]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+13),13); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=1; -M.e.push(M.e[M.e.length-10][22]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3643,M.p)); -return((M.p).label)(M);}}; - -var _3609=function(M){if(--M.cbt<0){throw _3609;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-12][14]; -M.e[M.e.length-1]=RT.makeSymbol("assf"); -M.e[M.e.length-2]="non-pair found in list: "; -M.e[M.e.length-3]=M.e[M.e.length-6]; -M.e[M.e.length-4]=" in "; -M.v=M.e[M.e.length-14]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=1; -M.e.push(M.e[M.e.length-8][22]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3618,M.p)); -return((M.p).label)(M);}}; - -var _5910=function(M){if(--M.cbt<0){throw _5910;} -if(M.v===false){M.v=false; -return(_5906)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][5]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5914,M.p)); -return((M.p).label)(M);}}; - -var _5829=function(M){if(--M.cbt<0){throw _5829;} -return(_5815)(M);}; - -var _5771=function(M){if(--M.cbt<0){throw _5771;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][14]; -M.e[M.e.length-1]=RT.makeSymbol("memf"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-4]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5782,M.p)); -return((M.p).label)(M);}}else{M.v=false; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _5746=function(M){if(--M.cbt<0){throw _5746;} -return(_5738)(M);}; - -var _5720=function(M){if(--M.cbt<0){throw _5720;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5666=function(M){if(--M.cbt<0){throw _5666;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5686,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1373,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5680,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1376,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-10]; -M.e[M.e.length-4]=M.e[M.e.length-11]; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -M.e.splice(M.e.length-(5+7),7); -M.c[M.c.length-1].p=M.p; -return(_1376)(M);}else{M.v=RT.NULL; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _5636=function(M){if(--M.cbt<0){throw _5636;} -return(_5632)(M);}; - -var _5571=function(M){if(--M.cbt<0){throw _5571;} -M.e[M.e.length-4]=M.v; -M.e.length-=1; -return(_5565)(M);}; - - -var _3131=function(M){if(--M.cbt<0){throw _3131;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],0,"add1")); -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][36]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.e.push(M.e[M.e.length-9]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3139,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-4]; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3306=function(M){if(--M.cbt<0){throw _3306;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3310,M.p)); -return((M.p).label)(M);}; - -var _5429=function(M){if(--M.cbt<0){throw _5429;} -if(M.v===false){M.v=false; -return(_5425)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][5]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5433,M.p)); -return((M.p).label)(M);}}; - -var _5387=function(M){if(--M.cbt<0){throw _5387;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5329=function(M){if(--M.cbt<0){throw _5329;} -return(_5325)(M);}; - -var _5300=function(M){if(--M.cbt<0){throw _5300;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5260=function(M){if(--M.cbt<0){throw _5260;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5206=function(M){if(--M.cbt<0){throw _5206;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1350,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.e[M.e.length-3]=M.e[M.e.length-9]; -M.e[M.e.length-4]=M.e[M.e.length-10]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - - - - -var _4779=function(M){if(--M.cbt<0){throw _4779;} -M.e.length-=(M.a-1); -return(_4776)(M);}; - - -var _4969=function(M){if(--M.cbt<0){throw _4969;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - - -var _2839=function(M){if(--M.cbt<0){throw _2839;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2843,M.p)); -return((M.p).label)(M);}; - - - - -var _4691=function(M){if(--M.cbt<0){throw _4691;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4700,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4692)(M);}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6630=function(M){if(--M.cbt<0){throw _6630;} -return(_6622)(M);}; - -var _4639=function(M){if(--M.cbt<0){throw _4639;} -return(_4625)(M);}; - -var _6586=function(M){if(--M.cbt<0){throw _6586;} -M.v=((plt.baselib.numbers.equals(1,RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][36]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e[M.e.length-2]=1; -M.e.push(M.e[M.e.length-7]); -M.v=1; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6592,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6567=function(M){if(--M.cbt<0){throw _6567;} -return(_6559)(M);}; - -var _6551=function(M){if(--M.cbt<0){throw _6551;} -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("build-vector"); -M.e[M.e.length-2]="exact-nonnegative-integer"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6555,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6547)(M);}}; - -var _6487=function(M){if(--M.cbt<0){throw _6487;} -return(_6483)(M);}; - -var _6473=function(M){if(--M.cbt<0){throw _6473;} -if(M.v===false){M.v=false; -return(_6469)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][5]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6477,M.p)); -return((M.p).label)(M);}}; - -var _6445=function(M){if(--M.cbt<0){throw _6445;} -M.e[M.e.length-1]=M.v; -M.v=plt.baselib.numbers.add(2, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],1,"+")); -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6449,M.p)); -return((M.p).label)(M);}; - -var _6426=function(M){if(--M.cbt<0){throw _6426;} -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][14]; -M.e[M.e.length-1]=RT.makeSymbol("foldr"); -M.e[M.e.length-2]="given procedure does not accept 2 arguments: "; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6430,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6420)(M);}}; - -var _6408=function(M){if(--M.cbt<0){throw _6408;} -if(M.v===false){M.e.length+=8; -M.e[M.e.length-8]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-9][1]; -M.e[M.e.length-2]=RT.makeSymbol("foldr"); -M.e[M.e.length-3]="procedure"; -M.e[M.e.length-4]=0; -M.e[M.e.length-5]=M.e[M.e.length-10]; -M.e[M.e.length-6]=M.e[M.e.length-11]; -M.e[M.e.length-7]=M.e[M.e.length-12]; -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-8]; -M.e[M.e.length-8]=M.v; -M.a=8; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6412,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_6404)(M);}}; - -var _6382=function(M){if(--M.cbt<0){throw _6382;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6386,M.p)); -return((M.p).label)(M);}; - -var _6352=function(M){if(--M.cbt<0){throw _6352;} -return(_6336)(M);}; - - -var _4130=function(M){if(--M.cbt<0){throw _4130;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4134,M.p)); -return((M.p).label)(M);}; - -var _4110=function(M){if(--M.cbt<0){throw _4110;} -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e.push(M.e[M.e.length-8][23]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4114,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4079=function(M){if(--M.cbt<0){throw _4079;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.push(M.e[M.e.length-6][23]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4084,M.p)); -return((M.p).label)(M);}; - -var _6228=function(M){if(--M.cbt<0){throw _6228;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6232,M.p)); -return((M.p).label)(M);}; - -var _3981=function(M){if(--M.cbt<0){throw _3981;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-15][49]; -M.e[M.e.length-1]=M.e[M.e.length-16]; -M.e[M.e.length-2]=M.e[M.e.length-17]; -M.e[M.e.length-3]=M.e[M.e.length-5]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+15),15); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-14][14]; -M.e[M.e.length-1]=RT.makeSymbol("assoc"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-16]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+15),15); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _3959=function(M){if(--M.cbt<0){throw _3959;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-14][14]; -M.e[M.e.length-1]=RT.makeSymbol("assoc"); -M.e[M.e.length-2]="non-pair found in list: "; -M.e[M.e.length-3]=M.e[M.e.length-6]; -M.e[M.e.length-4]=" in "; -M.v=M.e[M.e.length-16]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+13),13); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-11][3]; -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.e.push(M.e[M.e.length-11][22]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3968,M.p)); -return((M.p).label)(M);}}; - -var _3935=function(M){if(--M.cbt<0){throw _3935;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-12][14]; -M.e[M.e.length-1]=RT.makeSymbol("assoc"); -M.e[M.e.length-2]="non-pair found in list: "; -M.e[M.e.length-3]=M.e[M.e.length-6]; -M.e[M.e.length-4]=" in "; -M.v=M.e[M.e.length-14]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9][3]; -M.e[M.e.length-1]=M.e[M.e.length-10]; -M.e.push(M.e[M.e.length-9][22]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3944,M.p)); -return((M.p).label)(M);}}; - -var _3909=function(M){if(--M.cbt<0){throw _3909;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3913,M.p)); -return((M.p).label)(M);}; - -var _3885=function(M){if(--M.cbt<0){throw _3885;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3889,M.p)); -return((M.p).label)(M);}; - -var _3810=function(M){if(--M.cbt<0){throw _3810;} -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e.push(M.e[M.e.length-10][23]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3814,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=14; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3786=function(M){if(--M.cbt<0){throw _3786;} -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e.push(M.e[M.e.length-8][23]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3790,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=12; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3755=function(M){if(--M.cbt<0){throw _3755;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.push(M.e[M.e.length-6][23]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3760,M.p)); -return((M.p).label)(M);}; - -var _3731=function(M){if(--M.cbt<0){throw _3731;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][14]; -M.e[M.e.length-1]=RT.makeSymbol("assoc"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=false; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=1; -M.e.push(M.e[M.e.length-4][22]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3738,M.p)); -return((M.p).label)(M);}}; - -var _3657=function(M){if(--M.cbt<0){throw _3657;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-15][51]; -M.e[M.e.length-1]=M.e[M.e.length-16]; -M.e[M.e.length-2]=M.e[M.e.length-17]; -M.e[M.e.length-3]=M.e[M.e.length-5]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+15),15); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-14][14]; -M.e[M.e.length-1]=RT.makeSymbol("assf"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-16]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+15),15); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _3627=function(M){if(--M.cbt<0){throw _3627;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-11][14]; -M.e[M.e.length-1]=RT.makeSymbol("assf"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+12),12); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=false; -M.e.length-=12; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=1; -M.e.push(M.e[M.e.length-9][22]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3634,M.p)); -return((M.p).label)(M);}}; - -var _3596=function(M){if(--M.cbt<0){throw _3596;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-9][14]; -M.e[M.e.length-1]=RT.makeSymbol("assf"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=false; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=1; -M.e.push(M.e[M.e.length-7][22]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3609,M.p)); -return((M.p).label)(M);}}else{M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-9][14]; -M.e[M.e.length-1]=RT.makeSymbol("assf"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5864=function(M){if(--M.cbt<0){throw _5864;} -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-9][46]; -M.e[M.e.length-1]=M.e[M.e.length-10]; -M.e[M.e.length-2]=M.e[M.e.length-11]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _5825=function(M){if(--M.cbt<0){throw _5825;} -return(_5817)(M);}; - -var _3528=function(M){if(--M.cbt<0){throw _3528;} -return(_3524)(M);}; - -var _5742=function(M){if(--M.cbt<0){throw _5742;} -if(M.v===false){M.v=false; -return(_5738)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][5]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5746,M.p)); -return((M.p).label)(M);}}; - -var _5706=function(M){if(--M.cbt<0){throw _5706;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1375,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"cdr")).rest; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1373,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5660=function(M){if(--M.cbt<0){throw _5660;} -M.e[M.e.length-4]=M.v; -M.e.length-=1; -return(_5654)(M);}; - -var _5619=function(M){if(--M.cbt<0){throw _5619;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5553=function(M){if(--M.cbt<0){throw _5553;} -return(_5549)(M);}; - -var _5533=function(M){if(--M.cbt<0){throw _5533;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1366,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"cdr")).rest; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1363,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5493=function(M){if(--M.cbt<0){throw _5493;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1364,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.e[M.e.length-3]=M.e[M.e.length-9]; -M.e[M.e.length-4]=M.e[M.e.length-10]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1363,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5449=function(M){if(--M.cbt<0){throw _5449;} -return(_5445)(M);}; - -var _5413=function(M){if(--M.cbt<0){throw _5413;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1361,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"cdr")).rest; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1358,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5373=function(M){if(--M.cbt<0){throw _5373;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1359,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.e[M.e.length-3]=M.e[M.e.length-9]; -M.e[M.e.length-4]=M.e[M.e.length-10]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1358,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5323=function(M){if(--M.cbt<0){throw _5323;} -return(_5319)(M);}; - -var _5286=function(M){if(--M.cbt<0){throw _5286;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1354,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"cdr")).rest; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5246=function(M){if(--M.cbt<0){throw _5246;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1352,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"cdr")).rest; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5200=function(M){if(--M.cbt<0){throw _5200;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5180=function(M){if(--M.cbt<0){throw _5180;} -M.e[M.e.length-4]=M.v; -M.e.length-=1; -return(_5174)(M);}; - -var _5137=function(M){if(--M.cbt<0){throw _5137;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - - -var _5008=function(M){if(--M.cbt<0){throw _5008;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _4955=function(M){if(--M.cbt<0){throw _4955;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4975,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4969,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1345,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-10]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -M.e.splice(M.e.length-(5+6),6); -M.c[M.c.length-1].p=M.p; -return(_1345)(M);}else{M.v=RT.NULL; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _4923=function(M){if(--M.cbt<0){throw _4923;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _4884=function(M){if(--M.cbt<0){throw _4884;} -M.e[M.e.length-4]=M.v; -M.e.length-=1; -return(_4878)(M);}; - -var _2858=function(M){if(--M.cbt<0){throw _2858;} -if(M.v===false){M.e[M.e.length-2]=new RT.Closure(_1311,1,[M.e[M.e.length-5],M.e[M.e.length-1]],"...private/list.rkt:372:28"); -M.e.length-=1; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+17),17); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e[M.e.length-2]=new RT.Closure(_1310,1,[M.e[M.e.length-5],M.e[M.e.length-1]],"...private/list.rkt:371:28"); -M.e.length-=1; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+17),17); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - - -var _4788=function(M){if(--M.cbt<0){throw _4788;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4797,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4789)(M);}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4728=function(M){if(--M.cbt<0){throw _4728;} -return(_4724)(M);}; - -var _4683=function(M){if(--M.cbt<0){throw _4683;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4672)(M);}; - -var _4671=function(M){if(--M.cbt<0){throw _4671;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-15]; -M.e[M.e.length-1]=M.e[M.e.length-13]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4680,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4672)(M);}}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4663)(M);}}; - -var _4635=function(M){if(--M.cbt<0){throw _4635;} -return(_4627)(M);}; - - -var _4584=function(M){if(--M.cbt<0){throw _4584;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4573)(M);}; - -var _6541=function(M){if(--M.cbt<0){throw _6541;} -if(M.v===false){M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _4524=function(M){if(--M.cbt<0){throw _4524;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-13]; -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4533,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4525)(M);}}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4516)(M);}}; - -var _6461=function(M){if(--M.cbt<0){throw _6461;} -return(_6435)(M);}; - -var _4460=function(M){if(--M.cbt<0){throw _4460;} -return(_4456)(M);}; - -var _4401=function(M){if(--M.cbt<0){throw _4401;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][14]; -M.e[M.e.length-1]=RT.makeSymbol("memf"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-3]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4412,M.p)); -return((M.p).label)(M);}}else{M.v=false; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-4]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6398=function(M){if(--M.cbt<0){throw _6398;} -return(_6367)(M);}; - -var _4264=function(M){if(--M.cbt<0){throw _4264;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-11][14]; -M.e[M.e.length-1]=RT.makeSymbol("assq"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+12),12); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=false; -M.e.length-=12; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=1; -M.e.push(M.e[M.e.length-9][22]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4271,M.p)); -return((M.p).label)(M);}}; - -var _6348=function(M){if(--M.cbt<0){throw _6348;} -return(_6339)(M);}; - -var _4209=function(M){if(--M.cbt<0){throw _4209;} -M.e[M.e.length-2]=M.v; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e.push(M.e[M.e.length-3][23]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4213,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4121=function(M){if(--M.cbt<0){throw _4121;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-14][14]; -M.e[M.e.length-1]=RT.makeSymbol("assv"); -M.e[M.e.length-2]="non-pair found in list: "; -M.e[M.e.length-3]=M.e[M.e.length-6]; -M.e[M.e.length-4]=" in "; -M.v=M.e[M.e.length-16]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+13),13); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-11][8]; -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.e.push(M.e[M.e.length-11][22]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4130,M.p)); -return((M.p).label)(M);}}; - -var _4106=function(M){if(--M.cbt<0){throw _4106;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4110,M.p)); -return((M.p).label)(M);}; - -var _4075=function(M){if(--M.cbt<0){throw _4075;} -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e.push(M.e[M.e.length-5][23]); -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4079,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4055=function(M){if(--M.cbt<0){throw _4055;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][14]; -M.e[M.e.length-1]=RT.makeSymbol("assv"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+7),7); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=false; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=1; -M.e.push(M.e[M.e.length-4][22]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4062,M.p)); -return((M.p).label)(M);}}; - -var _3976=function(M){if(--M.cbt<0){throw _3976;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.push(M.e[M.e.length-11][23]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3981,M.p)); -return((M.p).label)(M);}; - -var _3952=function(M){if(--M.cbt<0){throw _3952;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-11][14]; -M.e[M.e.length-1]=RT.makeSymbol("assoc"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+12),12); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=false; -M.e.length-=12; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=1; -M.e.push(M.e[M.e.length-9][22]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3959,M.p)); -return((M.p).label)(M);}}; - -var _3922=function(M){if(--M.cbt<0){throw _3922;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-9][14]; -M.e[M.e.length-1]=RT.makeSymbol("assoc"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=false; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=1; -M.e.push(M.e[M.e.length-7][22]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3935,M.p)); -return((M.p).label)(M);}}else{M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-9][14]; -M.e[M.e.length-1]=RT.makeSymbol("assoc"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _3900=function(M){if(--M.cbt<0){throw _3900;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-9][14]; -M.e[M.e.length-1]=RT.makeSymbol("assoc"); -M.e[M.e.length-2]="non-pair found in list: "; -M.e[M.e.length-3]=M.e[M.e.length-6]; -M.e[M.e.length-4]=" in "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][3]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e.push(M.e[M.e.length-6][22]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3909,M.p)); -return((M.p).label)(M);}}; - -var _3876=function(M){if(--M.cbt<0){throw _3876;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-7][14]; -M.e[M.e.length-1]=RT.makeSymbol("assoc"); -M.e[M.e.length-2]="non-pair found in list: "; -M.e[M.e.length-3]=M.e[M.e.length-6]; -M.e[M.e.length-4]=" in "; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4][3]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e.push(M.e[M.e.length-4][22]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3885,M.p)); -return((M.p).label)(M);}}; - -var _3806=function(M){if(--M.cbt<0){throw _3806;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3810,M.p)); -return((M.p).label)(M);}; - -var _3782=function(M){if(--M.cbt<0){throw _3782;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3786,M.p)); -return((M.p).label)(M);}; - -var _3751=function(M){if(--M.cbt<0){throw _3751;} -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e.push(M.e[M.e.length-5][23]); -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3755,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3727=function(M){if(--M.cbt<0){throw _3727;} -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e.push(M.e[M.e.length-3][23]); -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3731,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3652=function(M){if(--M.cbt<0){throw _3652;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.push(M.e[M.e.length-11][23]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3657,M.p)); -return((M.p).label)(M);}; - -var _3623=function(M){if(--M.cbt<0){throw _3623;} -M.e.length-=1; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e.push(M.e[M.e.length-8][23]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3627,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3591=function(M){if(--M.cbt<0){throw _3591;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.push(M.e[M.e.length-6][23]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3596,M.p)); -return((M.p).label)(M);}; - -var _3582=function(M){if(--M.cbt<0){throw _3582;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-6]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3587,M.p)); -return((M.p).label)(M);}; - -var _3557=function(M){if(--M.cbt<0){throw _3557;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-4]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3562,M.p)); -return((M.p).label)(M);}; - -var _3518=function(M){if(--M.cbt<0){throw _3518;} -return(_3510)(M);}; - -var _3498=function(M){if(--M.cbt<0){throw _3498;} -return(_3490)(M);}; - -var _5700=function(M){if(--M.cbt<0){throw _5700;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1528=function(M){if(--M.cbt<0){throw _1528;} -M.e[M.e.length-1]=M.v; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12][8]; -M.e[M.e.length-1]=1; -M.e.push(M.e[M.e.length-12][44]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1535,M.p)); -return((M.p).label)(M);}; - -var _5603=function(M){if(--M.cbt<0){throw _5603;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5547=function(M){if(--M.cbt<0){throw _5547;} -return(_5543)(M);}; - -var _5527=function(M){if(--M.cbt<0){throw _5527;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5487=function(M){if(--M.cbt<0){throw _5487;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5443=function(M){if(--M.cbt<0){throw _5443;} -return(_5439)(M);}; - -var _5407=function(M){if(--M.cbt<0){throw _5407;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5367=function(M){if(--M.cbt<0){throw _5367;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5306=function(M){if(--M.cbt<0){throw _5306;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1355,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"cdr")).rest; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5280=function(M){if(--M.cbt<0){throw _5280;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5240=function(M){if(--M.cbt<0){throw _5240;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5186=function(M){if(--M.cbt<0){throw _5186;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5206,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5200,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1352,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-11]; -M.e[M.e.length-4]=M.e[M.e.length-10]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -M.e.splice(M.e.length-(5+7),7); -M.c[M.c.length-1].p=M.p; -return(_1352)(M);}else{M.v=RT.NULL; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _5163=function(M){if(--M.cbt<0){throw _5163;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1349,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"cdr")).rest; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5123=function(M){if(--M.cbt<0){throw _5123;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1347,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.e[M.e.length-3]=M.e[M.e.length-9]; -M.e[M.e.length-4]=M.e[M.e.length-10]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5097=function(M){if(--M.cbt<0){throw _5097;} -M.e[M.e.length-4]=M.v; -M.e.length-=1; -return(_5091)(M);}; - -var _5054=function(M){if(--M.cbt<0){throw _5054;} -M.e[M.e.length-4]=M.v; -M.e.length-=1; -return(_5048)(M);}; - -var _4994=function(M){if(--M.cbt<0){throw _4994;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1344,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"cdr")).rest; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _4949=function(M){if(--M.cbt<0){throw _4949;} -M.e[M.e.length-4]=M.v; -M.e.length-=1; -return(_4943)(M);}; - -var _4910=function(M){if(--M.cbt<0){throw _4910;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1341,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.e[M.e.length-3]=M.e[M.e.length-9]; -M.e[M.e.length-4]=M.e[M.e.length-10]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _4869=function(M){if(--M.cbt<0){throw _4869;} -return(_4865)(M);}; - -var _4853=function(M){if(--M.cbt<0){throw _4853;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1339,3,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-15]; -M.e[M.e.length-2]=M.e[M.e.length-16]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4857,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4845)(M);}}; - -var _4818=function(M){if(--M.cbt<0){throw _4818;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4807)(M);}; - -var _4780=function(M){if(--M.cbt<0){throw _4780;} -return(_4776)(M);}; - -var _4722=function(M){if(--M.cbt<0){throw _4722;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-5]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_4710)(M);}; - -var _4680=function(M){if(--M.cbt<0){throw _4680;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1335,3,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-16]; -M.e[M.e.length-2]=M.e[M.e.length-18]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -M.c.push(new RT.CallFrame(_4683,M.p)); -return(_1335)(M);}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4672)(M);}}; - -var _4662=function(M){if(--M.cbt<0){throw _4662;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12]; -M.e[M.e.length-1]=M.e[M.e.length-10]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4671,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4663)(M);}}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4654)(M);}}; - -var _4631=function(M){if(--M.cbt<0){throw _4631;} -if(M.v===false){M.v=false; -return(_4627)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][5]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4635,M.p)); -return((M.p).label)(M);}}; - -var _4619=function(M){if(--M.cbt<0){throw _4619;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1333,3,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-15]; -M.e[M.e.length-2]=M.e[M.e.length-16]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4623,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4611)(M);}}; - -var _4581=function(M){if(--M.cbt<0){throw _4581;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1333,3,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-15]; -M.e[M.e.length-2]=M.e[M.e.length-17]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -M.c.push(new RT.CallFrame(_4584,M.p)); -return(_1333)(M);}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4573)(M);}}; - -var _4554=function(M){if(--M.cbt<0){throw _4554;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4563,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4555)(M);}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4515=function(M){if(--M.cbt<0){throw _4515;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4524,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4516)(M);}}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4507)(M);}}; - -var _4495=function(M){if(--M.cbt<0){throw _4495;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1330,3,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-17]; -M.e[M.e.length-2]=M.e[M.e.length-19]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -M.c.push(new RT.CallFrame(_4498,M.p)); -return(_1330)(M);}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4487)(M);}}; - -var _4434=function(M){if(--M.cbt<0){throw _4434;} -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][45]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+7),7); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4375=function(M){if(--M.cbt<0){throw _4375;} -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-9][46]; -M.e[M.e.length-1]=M.e[M.e.length-10]; -M.e[M.e.length-2]=M.e[M.e.length-11]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4289=function(M){if(--M.cbt<0){throw _4289;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-15][47]; -M.e[M.e.length-1]=M.e[M.e.length-16]; -M.e[M.e.length-2]=M.e[M.e.length-17]; -M.e[M.e.length-3]=M.e[M.e.length-5]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+15),15); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-14][14]; -M.e[M.e.length-1]=RT.makeSymbol("assq"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-16]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+15),15); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _4260=function(M){if(--M.cbt<0){throw _4260;} -M.e[M.e.length-2]=M.v; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e.push(M.e[M.e.length-8][23]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4264,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4233=function(M){if(--M.cbt<0){throw _4233;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.push(M.e[M.e.length-6][23]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4238,M.p)); -return((M.p).label)(M);}; - -var _4200=function(M){if(--M.cbt<0){throw _4200;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-7][14]; -M.e[M.e.length-1]=RT.makeSymbol("assq"); -M.e[M.e.length-2]="non-pair found in list: "; -M.e[M.e.length-3]=M.e[M.e.length-6]; -M.e[M.e.length-4]=" in "; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e.push(M.e[M.e.length-4][22]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4209,M.p)); -return((M.p).label)(M);}}; - -var _4114=function(M){if(--M.cbt<0){throw _4114;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-11][14]; -M.e[M.e.length-1]=RT.makeSymbol("assv"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+12),12); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=false; -M.e.length-=12; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=1; -M.e.push(M.e[M.e.length-9][22]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4121,M.p)); -return((M.p).label)(M);}}; - -var _4097=function(M){if(--M.cbt<0){throw _4097;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-12][14]; -M.e[M.e.length-1]=RT.makeSymbol("assv"); -M.e[M.e.length-2]="non-pair found in list: "; -M.e[M.e.length-3]=M.e[M.e.length-6]; -M.e[M.e.length-4]=" in "; -M.v=M.e[M.e.length-14]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9][8]; -M.e[M.e.length-1]=M.e[M.e.length-10]; -M.e.push(M.e[M.e.length-9][22]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4106,M.p)); -return((M.p).label)(M);}}; - -var _4071=function(M){if(--M.cbt<0){throw _4071;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4075,M.p)); -return((M.p).label)(M);}; - -var _4051=function(M){if(--M.cbt<0){throw _4051;} -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e.push(M.e[M.e.length-3][23]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4055,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3972=function(M){if(--M.cbt<0){throw _3972;} -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e.push(M.e[M.e.length-10][23]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3976,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=13; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3948=function(M){if(--M.cbt<0){throw _3948;} -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e.push(M.e[M.e.length-8][23]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3952,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3917=function(M){if(--M.cbt<0){throw _3917;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.push(M.e[M.e.length-6][23]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3922,M.p)); -return((M.p).label)(M);}; - -var _3893=function(M){if(--M.cbt<0){throw _3893;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][14]; -M.e[M.e.length-1]=RT.makeSymbol("assoc"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+7),7); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=false; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=1; -M.e.push(M.e[M.e.length-4][22]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3900,M.p)); -return((M.p).label)(M);}}; - -var _3819=function(M){if(--M.cbt<0){throw _3819;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-16][50]; -M.e[M.e.length-1]=M.e[M.e.length-17]; -M.e[M.e.length-2]=M.e[M.e.length-18]; -M.e[M.e.length-3]=M.e[M.e.length-19]; -M.e[M.e.length-4]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+16),16); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-14][14]; -M.e[M.e.length-1]=RT.makeSymbol("assoc"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-16]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+16),16); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _3797=function(M){if(--M.cbt<0){throw _3797;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-14][14]; -M.e[M.e.length-1]=RT.makeSymbol("assoc"); -M.e[M.e.length-2]="non-pair found in list: "; -M.e[M.e.length-3]=M.e[M.e.length-6]; -M.e[M.e.length-4]=" in "; -M.v=M.e[M.e.length-16]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+14),14); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-14]; -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.e.push(M.e[M.e.length-11][22]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3806,M.p)); -return((M.p).label)(M);}}; - -var _3773=function(M){if(--M.cbt<0){throw _3773;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-12][14]; -M.e[M.e.length-1]=RT.makeSymbol("assoc"); -M.e[M.e.length-2]="non-pair found in list: "; -M.e[M.e.length-3]=M.e[M.e.length-6]; -M.e[M.e.length-4]=" in "; -M.v=M.e[M.e.length-14]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+12),12); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12]; -M.e[M.e.length-1]=M.e[M.e.length-10]; -M.e.push(M.e[M.e.length-9][22]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3782,M.p)); -return((M.p).label)(M);}}; - -var _3747=function(M){if(--M.cbt<0){throw _3747;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3751,M.p)); -return((M.p).label)(M);}; - -var _3723=function(M){if(--M.cbt<0){throw _3723;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3727,M.p)); -return((M.p).label)(M);}; - -var _3648=function(M){if(--M.cbt<0){throw _3648;} -M.e.length-=1; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e.push(M.e[M.e.length-10][23]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3652,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=13; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3618=function(M){if(--M.cbt<0){throw _3618;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-9]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3623,M.p)); -return((M.p).label)(M);}; - -var _2969=function(M){if(--M.cbt<0){throw _2969;} -if(M.a===0){return(_2967)(M);}else{M.e.push(M.v); -return(_2967)(M);}}; - -var _3573=function(M){if(--M.cbt<0){throw _3573;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-9][14]; -M.e[M.e.length-1]=RT.makeSymbol("assf"); -M.e[M.e.length-2]="non-pair found in list: "; -M.e[M.e.length-3]=M.e[M.e.length-6]; -M.e[M.e.length-4]=" in "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=1; -M.e.push(M.e[M.e.length-5][22]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3582,M.p)); -return((M.p).label)(M);}}; - -var _3548=function(M){if(--M.cbt<0){throw _3548;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-7][14]; -M.e[M.e.length-1]=RT.makeSymbol("assf"); -M.e[M.e.length-2]="non-pair found in list: "; -M.e[M.e.length-3]=M.e[M.e.length-6]; -M.e[M.e.length-4]=" in "; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=1; -M.e.push(M.e[M.e.length-3][22]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3557,M.p)); -return((M.p).label)(M);}}; - -var _2893=function(M){if(--M.cbt<0){throw _2893;} -if(M.a===0){return(_2891)(M);}else{M.e.push(M.v); -return(_2891)(M);}}; - -var _1574=function(M){if(--M.cbt<0){throw _1574;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.v=(1===M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-1]=new RT.Closure(_1236,1,[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:331:18"); -M.e[M.e.length-2]=new RT.Closure(_1237,2,[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:332:18"); -M.e[M.e.length-3]=new RT.Closure(_1238,(RT.makeArityAtLeast(0)),[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:333:18"); -M.e[M.e.length-4]=new RT.Closure(_1235,RT.makePair(1,RT.makePair(2,RT.makePair((RT.makeArityAtLeast(0)),RT.NULL))),[M.e[M.e.length-3],M.e[M.e.length-2],M.e[M.e.length-1]],"composed"); -M.e.length-=3; -M.v=M.e[M.e.length-1]; -M.e.length-=14; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e[M.e.length-1]=new RT.Closure(_1234,1,[M.e[M.e.length-7],M.e[M.e.length-3]],"composed"); -M.v=M.e[M.e.length-1]; -M.e.length-=14; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1539=function(M){if(--M.cbt<0){throw _1539;} -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-11][44]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1551,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e.push(M.e[M.e.length-11][44]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1543,M.p)); -return((M.p).label)(M);}}; - -var _1520=function(M){if(--M.cbt<0){throw _1520;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.v=(1===M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-1]=new RT.Closure(_1221,1,[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:331:18"); -M.e[M.e.length-2]=new RT.Closure(_1222,2,[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:332:18"); -M.e[M.e.length-3]=new RT.Closure(_1223,(RT.makeArityAtLeast(0)),[M.e[M.e.length-10],M.e[M.e.length-6]],"...private/list.rkt:333:18"); -M.e[M.e.length-4]=new RT.Closure(_1220,RT.makePair(1,RT.makePair(2,RT.makePair((RT.makeArityAtLeast(0)),RT.NULL))),[M.e[M.e.length-3],M.e[M.e.length-2],M.e[M.e.length-1]],"composed"); -M.e.length-=3; -M.v=M.e[M.e.length-1]; -M.e.length-=22; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e[M.e.length-1]=new RT.Closure(_1219,1,[M.e[M.e.length-7],M.e[M.e.length-3]],"composed"); -M.v=M.e[M.e.length-1]; -M.e.length-=22; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1487=function(M){if(--M.cbt<0){throw _1487;} -return(_1479)(M);}; - -var _1467=function(M){if(--M.cbt<0){throw _1467;} -if(M.v===false){M.e.length+=6; -M.e[M.e.length-6]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-15][1]; -M.e[M.e.length-2]=RT.makeSymbol("compose"); -M.e[M.e.length-3]="procedure"; -M.e[M.e.length-4]=M.e[M.e.length-8]; -M.e[M.e.length-5]=M.e[M.e.length-16]; -M.v=M.e[M.e.length-17]; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1471,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_1463)(M);}}; - -var _5513=function(M){if(--M.cbt<0){throw _5513;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1365,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"cdr")).rest; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1363,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5473=function(M){if(--M.cbt<0){throw _5473;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5493,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1363,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5487,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1366,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-11]; -M.e[M.e.length-4]=M.e[M.e.length-10]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -M.e.splice(M.e.length-(5+7),7); -M.c[M.c.length-1].p=M.p; -return(_1366)(M);}else{M.v=RT.NULL; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _5437=function(M){if(--M.cbt<0){throw _5437;} -return(_5423)(M);}; - -var _5393=function(M){if(--M.cbt<0){throw _5393;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1360,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"cdr")).rest; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1358,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5353=function(M){if(--M.cbt<0){throw _5353;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5373,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1358,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5367,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1361,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-10]; -M.e[M.e.length-4]=M.e[M.e.length-11]; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -M.e.splice(M.e.length-(5+7),7); -M.c[M.c.length-1].p=M.p; -return(_1361)(M);}else{M.v=RT.NULL; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _2695=function(M){if(--M.cbt<0){throw _2695;} -if(M.a===0){return(_2693)(M);}else{M.e.push(M.v); -return(_2693)(M);}}; - -var _5266=function(M){if(--M.cbt<0){throw _5266;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1353,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"cdr")).rest; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5226=function(M){if(--M.cbt<0){throw _5226;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1351,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"cdr")).rest; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _1429=function(M){if(--M.cbt<0){throw _1429;} -}; - -var _5157=function(M){if(--M.cbt<0){throw _5157;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5117=function(M){if(--M.cbt<0){throw _5117;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5080=function(M){if(--M.cbt<0){throw _5080;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1346,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-3]=M.e[M.e.length-10]; -M.e[M.e.length-4]=M.e[M.e.length-11]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+7),7); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+7),7); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5037=function(M){if(--M.cbt<0){throw _5037;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5060,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1353,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-14]; -M.e[M.e.length-4]=M.e[M.e.length-13]; -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -M.c.push(new RT.CallFrame(_5054,M.p)); -return(_1353)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_5048)(M);}}}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1350,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-10]; -M.e[M.e.length-4]=M.e[M.e.length-11]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -M.e.splice(M.e.length-(5+7),7); -M.c[M.c.length-1].p=M.p; -return(_1350)(M);}else{M.v=RT.NULL; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _4988=function(M){if(--M.cbt<0){throw _4988;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _4929=function(M){if(--M.cbt<0){throw _4929;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1342,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"cdr")).rest; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _4904=function(M){if(--M.cbt<0){throw _4904;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _4863=function(M){if(--M.cbt<0){throw _4863;} -return(_4859)(M);}; - -var _4844=function(M){if(--M.cbt<0){throw _4844;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12]; -M.e[M.e.length-1]=M.e[M.e.length-13]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4853,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4845)(M);}}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4836)(M);}}; - -var _4815=function(M){if(--M.cbt<0){throw _4815;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1339,3,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-15]; -M.e[M.e.length-2]=M.e[M.e.length-17]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -M.c.push(new RT.CallFrame(_4818,M.p)); -return(_1339)(M);}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4807)(M);}}; - -var _1322=function(M){if(--M.cbt<0){throw _1322;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isPair(M.e[M.e.length-4]); -if(M.v===false){M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][14]; -M.e[M.e.length-1]=RT.makeSymbol("assf"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=false; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=1; -M.e.push(M.e[M.e.length-2][22]); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3548,M.p)); -return((M.p).label)(M);}}; - -var _4718=function(M){if(--M.cbt<0){throw _4718;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1335,3,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-15]; -M.e[M.e.length-2]=M.e[M.e.length-16]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4722,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4710)(M);}}; - -var _1265=function(M){if(--M.cbt<0){throw _1265;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2307,M.p)); -return((M.p).label)(M);}; - -var _4653=function(M){if(--M.cbt<0){throw _4653;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4662,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4654)(M);}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1321=function(M){if(--M.cbt<0){throw _1321;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-7]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"car")).first; -M.v=RT.isList(M.e[M.e.length-1]); -M.e.length-=1; -if(M.v===false){M.e.length+=8; -M.e[M.e.length-8]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-9][1]; -M.e[M.e.length-2]=M.e[M.e.length-11]; -M.e[M.e.length-3]="list"; -M.e[M.e.length-4]=M.e[M.e.length-16]; -M.e[M.e.length-5]=M.e[M.e.length-12]; -M.e[M.e.length-6]=M.e[M.e.length-13]; -M.e[M.e.length-7]=M.e[M.e.length-14]; -M.v=M.e[M.e.length-15]; -M.p=M.e[M.e.length-8]; -M.e[M.e.length-8]=M.v; -M.a=8; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3488,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_3484)(M);}}else{M.v=RT.VOID; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4610=function(M){if(--M.cbt<0){throw _4610;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12]; -M.e[M.e.length-1]=M.e[M.e.length-13]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4619,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4611)(M);}}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4602)(M);}}; - -var _1320=function(M){if(--M.cbt<0){throw _1320;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.v=RT.isPair(M.e[M.e.length-1]); -M.e.length-=1; -if(M.v===false){M.v=M.e[M.e.length-3]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][24]; -M.e[M.e.length-1]=M.primitives["car"]; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3420,M.p)); -return((M.p).label)(M);}}; - -var _4546=function(M){if(--M.cbt<0){throw _4546;} -return(_4542)(M);}; - -var _4506=function(M){if(--M.cbt<0){throw _4506;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4515,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4507)(M);}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4486=function(M){if(--M.cbt<0){throw _4486;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-16]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4495,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_4487)(M);}}else{M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"cdr")).rest; -return(_4478)(M);}}; - -var _4423=function(M){if(--M.cbt<0){throw _4423;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][14]; -M.e[M.e.length-1]=RT.makeSymbol("memf"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+7),7); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-5]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4434,M.p)); -return((M.p).label)(M);}}else{M.v=false; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1319=function(M){if(--M.cbt<0){throw _1319;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-6]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=RT.isList(M.e[M.e.length-1]); -M.e.length-=1; -if(M.v===false){M.e.length+=8; -M.e[M.e.length-8]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-9][1]; -M.e[M.e.length-2]=RT.makeSymbol("foldl"); -M.e[M.e.length-3]="list"; -M.e[M.e.length-4]=M.e[M.e.length-15]; -M.e[M.e.length-5]=M.e[M.e.length-11]; -M.e[M.e.length-6]=M.e[M.e.length-12]; -M.e[M.e.length-7]=M.e[M.e.length-13]; -M.v=M.e[M.e.length-14]; -M.p=M.e[M.e.length-8]; -M.e[M.e.length-8]=M.v; -M.a=8; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3360,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_3356)(M);}}else{M.v=RT.VOID; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4284=function(M){if(--M.cbt<0){throw _4284;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.push(M.e[M.e.length-11][23]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4289,M.p)); -return((M.p).label)(M);}; - -var _1318=function(M){if(--M.cbt<0){throw _1318;} -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=1; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_1318,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3352,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-10],RT.NULL); -return(_3346)(M);}}else{M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-7],RT.NULL); -return(_3343)(M);}}else{M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-4],RT.NULL); -return(_3340)(M);}}else{M.v=RT.makePair(M.e[M.e.length-1],RT.NULL); -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4229=function(M){if(--M.cbt<0){throw _4229;} -M.e[M.e.length-2]=M.v; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -M.e.length-=2; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e.push(M.e[M.e.length-5][23]); -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4233,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _4143=function(M){if(--M.cbt<0){throw _4143;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-15][48]; -M.e[M.e.length-1]=M.e[M.e.length-16]; -M.e[M.e.length-2]=M.e[M.e.length-17]; -M.e[M.e.length-3]=M.e[M.e.length-5]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+15),15); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-14][14]; -M.e[M.e.length-1]=RT.makeSymbol("assv"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-16]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+15),15); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _1916=function(M){if(--M.cbt<0){throw _1916;} -if(M.a===0){return(_1914)(M);}else{M.e.push(M.v); -return(_1914)(M);}}; - -var _1317=function(M){if(--M.cbt<0){throw _1317;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.v=RT.isPair(M.e[M.e.length-1]); -M.e.length-=1; -if(M.v===false){M.v=M.e[M.e.length-3]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e.length+=1; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][29]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3284,M.p)); -return((M.p).label)(M);}}; - -var _4062=function(M){if(--M.cbt<0){throw _4062;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-9][14]; -M.e[M.e.length-1]=RT.makeSymbol("assv"); -M.e[M.e.length-2]="non-pair found in list: "; -M.e[M.e.length-3]=M.e[M.e.length-6]; -M.e[M.e.length-4]=" in "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][8]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e.push(M.e[M.e.length-6][22]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4071,M.p)); -return((M.p).label)(M);}}; - -var _4047=function(M){if(--M.cbt<0){throw _4047;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_4051,M.p)); -return((M.p).label)(M);}; - -var _3968=function(M){if(--M.cbt<0){throw _3968;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3972,M.p)); -return((M.p).label)(M);}; - -var _1316=function(M){if(--M.cbt<0){throw _1316;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-6]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.v=RT.isList(M.e[M.e.length-1]); -M.e.length-=1; -if(M.v===false){M.e.length+=8; -M.e[M.e.length-8]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-9][1]; -M.e[M.e.length-2]=RT.makeSymbol("foldr"); -M.e[M.e.length-3]="list"; -M.e[M.e.length-4]=M.e[M.e.length-15]; -M.e[M.e.length-5]=M.e[M.e.length-11]; -M.e[M.e.length-6]=M.e[M.e.length-12]; -M.e[M.e.length-7]=M.e[M.e.length-13]; -M.v=M.e[M.e.length-14]; -M.p=M.e[M.e.length-8]; -M.e[M.e.length-8]=M.v; -M.a=8; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3224,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_3220)(M);}}else{M.v=RT.VOID; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3913=function(M){if(--M.cbt<0){throw _3913;} -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e.push(M.e[M.e.length-5][23]); -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3917,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _1315=function(M){if(--M.cbt<0){throw _1315;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-4]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3171,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-1][32]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _3814=function(M){if(--M.cbt<0){throw _3814;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.push(M.e[M.e.length-11][23]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3819,M.p)); -return((M.p).label)(M);}; - -var _1314=function(M){if(--M.cbt<0){throw _1314;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][36]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.e.push(M.e[M.e.length-7]); -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3117,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3760=function(M){if(--M.cbt<0){throw _3760;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-1]===M.e[M.e.length-2]); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-9][14]; -M.e[M.e.length-1]=RT.makeSymbol("assoc"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=false; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=1; -M.e.push(M.e[M.e.length-7][22]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3773,M.p)); -return((M.p).label)(M);}}else{M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-9][14]; -M.e[M.e.length-1]=RT.makeSymbol("assoc"); -M.e[M.e.length-2]="not a proper list: "; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _1313=function(M){if(--M.cbt<0){throw _1313;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],1,"=")))); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][39]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.e.push(M.e[M.e.length-7]); -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3070,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _3714=function(M){if(--M.cbt<0){throw _3714;} -M.e[M.e.length-1]=M.v; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-7][14]; -M.e[M.e.length-1]=RT.makeSymbol("assoc"); -M.e[M.e.length-2]="non-pair found in list: "; -M.e[M.e.length-3]=M.e[M.e.length-6]; -M.e[M.e.length-4]=" in "; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+7),7); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e.push(M.e[M.e.length-4][22]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_3723,M.p)); -return((M.p).label)(M);}}; - -var _3007=function(M){if(--M.cbt<0){throw _3007;} -if(M.a===0){return(_3005)(M);}else{M.e.push(M.v); -return(_3005)(M);}}; - -var _2988=function(M){if(--M.cbt<0){throw _2988;} -if(M.a===0){return(_2986)(M);}else{M.e.push(M.v); -return(_2986)(M);}}; - -var _2950=function(M){if(--M.cbt<0){throw _2950;} -if(M.a===0){return(_2948)(M);}else{M.e.push(M.v); -return(_2948)(M);}}; - -var _2931=function(M){if(--M.cbt<0){throw _2931;} -if(M.a===0){return(_2929)(M);}else{M.e.push(M.v); -return(_2929)(M);}}; - -var _2912=function(M){if(--M.cbt<0){throw _2912;} -if(M.a===0){return(_2910)(M);}else{M.e.push(M.v); -return(_2910)(M);}}; - -var _2874=function(M){if(--M.cbt<0){throw _2874;} -if(M.a===0){return(_2872)(M);}else{M.e.push(M.v); -return(_2872)(M);}}; - -var _1296=function(M){if(--M.cbt<0){throw _1296;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1]); -M.e.push(M.e[M.e.length-3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2866,M.p)); -return((M.p).label)(M);}; - -var _1535=function(M){if(--M.cbt<0){throw _1535;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1539,M.p)); -return((M.p).label)(M);}; - -var _7113=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_1429,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/lang/private/list.rkt"]=new RT.ModuleRecord("list",_7007); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1483=function(M){if(--M.cbt<0){throw _1483;} -if(M.v===false){M.e.length+=6; -M.e[M.e.length-6]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-19][1]; -M.e[M.e.length-2]=RT.makeSymbol("compose"); -M.e[M.e.length-3]="procedure"; -M.e[M.e.length-4]=M.e[M.e.length-8]; -M.e[M.e.length-5]=M.e[M.e.length-20]; -M.v=M.e[M.e.length-21]; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1487,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_1479)(M);}}; - -var _1455=function(M){if(--M.cbt<0){throw _1455;} -return(_1447)(M);}; - -var _5507=function(M){if(--M.cbt<0){throw _5507;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5467=function(M){if(--M.cbt<0){throw _5467;} -M.e[M.e.length-4]=M.v; -M.e.length-=1; -return(_5461)(M);}; - -var _5433=function(M){if(--M.cbt<0){throw _5433;} -return(_5425)(M);}; - -var _2733=function(M){if(--M.cbt<0){throw _2733;} -if(M.a===0){return(_2731)(M);}else{M.e.push(M.v); -return(_2731)(M);}}; - -var _2722=function(M){if(--M.cbt<0){throw _2722;} -if(M.a===0){return(_2720)(M);}else{M.e.push(M.v); -return(_2720)(M);}}; - -var _2684=function(M){if(--M.cbt<0){throw _2684;} -if(M.a===0){return(_2682)(M);}else{M.e.push(M.v); -return(_2682)(M);}}; - -var _2657=function(M){if(--M.cbt<0){throw _2657;} -if(M.a===0){return(_2655)(M);}else{M.e.push(M.v); -return(_2655)(M);}}; - -var _2646=function(M){if(--M.cbt<0){throw _2646;} -if(M.a===0){return(_2644)(M);}else{M.e.push(M.v); -return(_2644)(M);}}; - -var _1283=function(M){if(--M.cbt<0){throw _1283;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-2]); -M.e.push(M.e[M.e.length-2]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_2630,M.p)); -return((M.p).label)(M);}; - -var _5143=function(M){if(--M.cbt<0){throw _5143;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1348,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"cdr")).rest; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5103=function(M){if(--M.cbt<0){throw _5103;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5123,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_1343,3,[],"rloop"); -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5117,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length+=5; -M.e[M.e.length-5]=new RT.Closure(_1349,5,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-11]; -M.e[M.e.length-4]=M.e[M.e.length-10]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -M.e.splice(M.e.length-(5+7),7); -M.c[M.c.length-1].p=M.p; -return(_1349)(M);}else{M.v=RT.NULL; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -_1439.mvr=_1438; -_1455.mvr=_1454; -_1471.mvr=_1470; -_1487.mvr=_1486; -_1658.mvr=_1656; -_1672.mvr=_1670; -_1683.mvr=_1681; -_1694.mvr=_1692; -_1740.mvr=_1738; -_1754.mvr=_1752; -_1765.mvr=_1763; -_1776.mvr=_1774; -_1822.mvr=_1820; -_1836.mvr=_1834; -_1847.mvr=_1845; -_1858.mvr=_1856; -_1904.mvr=_1902; -_1918.mvr=_1916; -_1929.mvr=_1927; -_1940.mvr=_1938; -_1955.mvr=_1954; -_1967.mvr=_1966; -_1981.mvr=_1980; -_1993.mvr=_1992; -_2007.mvr=_2006; -_2019.mvr=_2018; -_2457.mvr=_2455; -_2476.mvr=_2474; -_2495.mvr=_2493; -_2514.mvr=_2512; -_2648.mvr=_2646; -_2659.mvr=_2657; -_2686.mvr=_2684; -_2697.mvr=_2695; -_2724.mvr=_2722; -_2735.mvr=_2733; -_2876.mvr=_2874; -_2895.mvr=_2893; -_2914.mvr=_2912; -_2933.mvr=_2931; -_2952.mvr=_2950; -_2971.mvr=_2969; -_2990.mvr=_2988; -_3009.mvr=_3007; -_3074.mvr=_3073; -_3085.mvr=_3084; -_3096.mvr=_3095; -_3107.mvr=_3106; -_3121.mvr=_3120; -_3132.mvr=_3131; -_3143.mvr=_3142; -_3154.mvr=_3153; -_3224.mvr=_3223; -_3234.mvr=_3233; -_3244.mvr=_3243; -_3254.mvr=_3253; -_3264.mvr=_3263; -_3274.mvr=_3273; -_3360.mvr=_3359; -_3370.mvr=_3369; -_3380.mvr=_3379; -_3390.mvr=_3389; -_3400.mvr=_3399; -_3410.mvr=_3409; -_3488.mvr=_3487; -_3498.mvr=_3497; -_3508.mvr=_3507; -_3518.mvr=_3517; -_3528.mvr=_3527; -_3538.mvr=_3537; -_4460.mvr=_4459; -_4546.mvr=_4545; -_4639.mvr=_4638; -_4645.mvr=_4644; -_4728.mvr=_4727; -_4780.mvr=_4779; -_4863.mvr=_4862; -_4869.mvr=_4868; -_5323.mvr=_5322; -_5329.mvr=_5328; -_5437.mvr=_5436; -_5443.mvr=_5442; -_5449.mvr=_5448; -_5547.mvr=_5546; -_5553.mvr=_5552; -_5636.mvr=_5635; -_5642.mvr=_5641; -_5750.mvr=_5749; -_5829.mvr=_5828; -_5918.mvr=_5917; -_5938.mvr=_5937; -_6013.mvr=_6012; -_6019.mvr=_6018; -_6040.mvr=_6039; -_6074.mvr=_6073; -_6080.mvr=_6079; -_6090.mvr=_6089; -_6183.mvr=_6182; -_6189.mvr=_6188; -_6201.mvr=_6200; -_6210.mvr=_6209; -_6232.mvr=_6231; -_6311.mvr=_6310; -_6317.mvr=_6316; -_6327.mvr=_6326; -_6412.mvr=_6411; -_6418.mvr=_6417; -_6430.mvr=_6429; -_6439.mvr=_6438; -_6461.mvr=_6460; -_6481.mvr=_6480; -_6487.mvr=_6486; -_6555.mvr=_6554; -_6571.mvr=_6570; -_6586.mvr=_6585; -_6596.mvr=_6595; -_6606.mvr=_6605; -_6616.mvr=_6615; -_6630.mvr=_6629; -_6646.mvr=_6645; -_6661.mvr=_6660; -_6671.mvr=_6670; -_6681.mvr=_6680; -_6691.mvr=_6690; -_6705.mvr=_6704; -_6721.mvr=_6720; -_6792.mvr=_6791; -_6802.mvr=_6801; -_6812.mvr=_6811; -_6883.mvr=_6882; -_6893.mvr=_6892; -_6960.mvr=_6958; -_6974.mvr=_6972; -_6985.mvr=_6983; -_6996.mvr=_6994; -_7010.mvr=_7009; -_7012.mvr=_7011; -_7014.mvr=_7013; -_7016.mvr=_7015; -_7018.mvr=_7017; -_7020.mvr=_7019; -_7022.mvr=_7021; -_7024.mvr=_7023; -_7026.mvr=_7025; -_7028.mvr=_7027; -_7030.mvr=_7029; -_7032.mvr=_7031; -_7034.mvr=_7033; -_7036.mvr=_7035; -_7038.mvr=_7037; -_7040.mvr=_7039; -_7042.mvr=_7041; -_7044.mvr=_7043; -_7046.mvr=_7045; -_7048.mvr=_7047; -_7050.mvr=_7049; -_7052.mvr=_7051; -_7054.mvr=_7053; -_7056.mvr=_7055; -_7058.mvr=_7057; -_7060.mvr=_7059; -_7062.mvr=_7061; -_7064.mvr=_7063; -_7066.mvr=_7065; -_7068.mvr=_7067; -_7070.mvr=_7069; -_7072.mvr=_7071; -_7074.mvr=_7073; -_7076.mvr=_7075; -_7086.mvr=_7085; -_7078.mvr=_7077; -_7089.mvr=_7088; -_7091.mvr=_7090; -_7093.mvr=_7092; -_7095.mvr=_7094; -_7097.mvr=_7096; -_7099.mvr=_7098; -_7101.mvr=_7100; -_7103.mvr=_7102; -_7111.mvr=_7110; -_7105.mvr=_7104; -_1429.mvr=_1428; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_7113, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -(function(M) { -M.modules["whalesong/lang/unsafe/ops.rkt"] = - new plt.runtime.ModuleRecord("whalesong/lang/unsafe/ops.rkt", - function(M) { - - if(--M.cbt<0) { throw arguments.callee; } - var modrec = M.modules["whalesong/lang/unsafe/ops.rkt"]; - var exports = {}; - modrec.isInvoked = true; - (function(MACHINE, EXPORTS){ -EXPORTS['unsafe-car'] = - plt.baselib.functions.makePrimitiveProcedure( - 'unsafe-car', - 1, - function(MACHINE) { - return MACHINE.e[MACHINE.e.length - 1].first; - }); - - -EXPORTS['unsafe-cdr'] = - plt.baselib.functions.makePrimitiveProcedure( - 'unsafe-cdr', - 1, - function(MACHINE) { - return MACHINE.e[MACHINE.e.length - 1].rest; - }); -})(M, exports); - modrec.namespace["unsafe-car1.1"] = exports["unsafe-car"]; -modrec.namespace["unsafe-cdr2.2"] = exports["unsafe-cdr"]; - - modrec.privateExports = exports; - return M.c.pop().label(M); - }); - }(plt.runtime.currentMachine)); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _1492=function(M){if(--M.cbt<0){throw _1492;} -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["collects/racket/private/modbeg.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - -var _1491=function(M){if(--M.cbt<0){throw _1491;} -M.e.length-=(M.a-1); -return(_1492)(M);}; - -var _1483=function(M){if(--M.cbt<0){throw _1483;} -M.e.length-=(M.a-1); -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.primitives["values"]; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+1),1); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1493=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_1476,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["collects/racket/private/modbeg.rkt"]=new RT.ModuleRecord("modbeg",_1490); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1480=function(M){if(--M.cbt<0){throw _1480;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1484,M.p)); -return((M.p).label)(M);}; - -var _1475=function(M){if(--M.cbt<0){throw _1475;} -M.e.length-=M.a; -return(_1476)(M);}; - - -var _1476=function(M){if(--M.cbt<0){throw _1476;} -}; - -var _1484=function(M){if(--M.cbt<0){throw _1484;} -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.primitives["values"]; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+1),1); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _1490=function(M){--M.cbt<0; -M.modules["collects/racket/private/modbeg.rkt"].isInvoked=true; -M.e.push([M.params.currentNamespace["print-values"]||M.primitives["print-values"]]);M.e[M.e.length-1].names=["print-values"]; -M.modules["collects/racket/private/modbeg.rkt"].prefix=M.e[M.e.length-1]; -M.c.push(new RT.PromptFrame(_1492,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1473,(RT.makeArityAtLeast(0)),[],"print-values"); -M.e[M.e.length-1][0]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1473=function(M){if(--M.cbt<0){throw _1473;} -M.unspliceRestFromStack(0,M.a); -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["for-each"]; -M.p=M.primitives["current-print"]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1480,M.p)); -return((M.p).label)(M);}; - -_1484.mvr=_1483; -_1492.mvr=_1491; -_1476.mvr=_1475; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_1493, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _9783=function(M){if(--M.cbt<0){throw _9783;} -return(_9775)(M);}; - -var _9752=function(M){if(--M.cbt<0){throw _9752;} -if(M.v===false){M.v=false; -return(_9748)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][38]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9756,M.p)); -return((M.p).label)(M);}}; - -var _9730=function(M){if(--M.cbt<0){throw _9730;} -return(_9722)(M);}; - -var _9694=function(M){if(--M.cbt<0){throw _9694;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-13][1]; -M.e[M.e.length-1]=M.e[M.e.length-15]; -M.e[M.e.length-2]="procedure that returns real numbers"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-16]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9698,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_9690)(M);}}; - -var _9673=function(M){if(--M.cbt<0){throw _9673;} -return(_9665)(M);}; - -var _9643=function(M){if(--M.cbt<0){throw _9643;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-2][49]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9650,M.p)); -return((M.p).label)(M);}; - -var _9623=function(M){if(--M.cbt<0){throw _9623;} -if(M.v===false){M.v=false; -return(_9619)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][38]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9627,M.p)); -return((M.p).label)(M);}}; - -var _5536=function(M){if(--M.cbt<0){throw _5536;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][19]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8156,M.p)); -return((M.p).label)(M);}; - -var _9547=function(M){if(--M.cbt<0){throw _9547;} -return(_9539)(M);}; - -var _9488=function(M){if(--M.cbt<0){throw _9488;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _9457=function(M){if(--M.cbt<0){throw _9457;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _5533=function(M){if(--M.cbt<0){throw _5533;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][23]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]="index ~e too large for list~a: "; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.v=RT.isList(M.e[M.e.length-9]); -if(M.v===false){M.v=" (not a proper list)"; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8005,M.p)); -return((M.p).label)(M);}else{M.v=""; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8005,M.p)); -return((M.p).label)(M);}}; - -var _9399=function(M){if(--M.cbt<0){throw _9399;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-9][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9403,M.p)); -return((M.p).label)(M);}; - -var _9338=function(M){if(--M.cbt<0){throw _9338;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-3],RT.NULL); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.push(M.e[M.e.length-7]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9446,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-6][26]); -M.v=RT.NULL; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9430,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-3],RT.NULL); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.push(M.e[M.e.length-7]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9361,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-6][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9345,M.p)); -return((M.p).label)(M);}}}; - -var _9326=function(M){if(--M.cbt<0){throw _9326;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _5532=function(M){if(--M.cbt<0){throw _5532;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][20]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7953,M.p)); -return((M.p).label)(M);}; - -var _9271=function(M){if(--M.cbt<0){throw _9271;} -if(M.v===false){M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-7]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9281,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"add1")); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-7]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9281,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _9224=function(M){if(--M.cbt<0){throw _9224;} -if(M.v===false){M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-8]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9234,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"add1")); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-8]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9234,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _5528=function(M){if(--M.cbt<0){throw _5528;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.v=false; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("rest"); -M.e[M.e.length-2]="non-empty list"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=RT.isList(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("rest"); -M.e[M.e.length-2]="non-empty list"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _9169=function(M){if(--M.cbt<0){throw _9169;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-15]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-9],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-16][42]; -M.e[M.e.length-1]=M.primitives["car"]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9176,M.p)); -return((M.p).label)(M);}; - -var _9131=function(M){if(--M.cbt<0){throw _9131;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][42]; -M.e[M.e.length-1]=M.primitives["car"]; -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9138,M.p)); -return((M.p).label)(M);}; - -var _5527=function(M){if(--M.cbt<0){throw _5527;} -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5527,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}}}}; - -var _9081=function(M){if(--M.cbt<0){throw _9081;} -return(_9069)(M);}; - -var _9073=function(M){if(--M.cbt<0){throw _9073;} -if(M.v===false){M.v=false; -return(_9069)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][38]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e.length+=1; -M.e.push(M.e[M.e.length-4][39]); -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9077,M.p)); -return((M.p).label)(M);}}; - -var _9047=function(M){if(--M.cbt<0){throw _9047;} -M.e[M.e.length-4]=M.v; -return(_9037)(M);}; - -var _9019=function(M){if(--M.cbt<0){throw _9019;} -M.e[M.e.length-6]=M.v; -return(_9009)(M);}; - -var _5526=function(M){if(--M.cbt<0){throw _5526;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.v=false; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("last"); -M.e[M.e.length-2]="non-empty list"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=12; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5527,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -M.e.splice(M.e.length-(2+12),12); -M.c[M.c.length-1].p=M.p; -return(_5527)(M);}}}}}}}}}}}}else{M.v=RT.isList(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("last"); -M.e[M.e.length-2]="non-empty list"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=12; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5527,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -M.e.splice(M.e.length-(2+12),12); -M.c[M.c.length-1].p=M.p; -return(_5527)(M);}}}}}}}}}}}}}; - -var _8959=function(M){if(--M.cbt<0){throw _8959;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-10]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_8953)(M);}; - -var _8941=function(M){if(--M.cbt<0){throw _8941;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_8935)(M);}; - -var _5525=function(M){if(--M.cbt<0){throw _5525;} -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-3]; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5525,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}}}}; - -var _8878=function(M){if(--M.cbt<0){throw _8878;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-12]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8906,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-5]=RT.NULL; -return(_8900)(M);}}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-14]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8888,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_8882)(M);}}}; - -var _8835=function(M){if(--M.cbt<0){throw _8835;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5554,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5554,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8842,M.p)); -return((M.p).label)(M);}}; - -var _8817=function(M){if(--M.cbt<0){throw _8817;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5554,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8828,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5554,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-13]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8824,M.p)); -return((M.p).label)(M);}}; - -var _8796=function(M){if(--M.cbt<0){throw _8796;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-8]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_8790)(M);}; - -var _5524=function(M){if(--M.cbt<0){throw _5524;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("last-pair"); -M.e[M.e.length-2]="pair"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-3]; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=12; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5525,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -M.e.splice(M.e.length-(2+12),12); -M.c[M.c.length-1].p=M.p; -return(_5525)(M);}}}}}}}}}}}}; - -var _8730=function(M){if(--M.cbt<0){throw _8730;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8734,M.p)); -return((M.p).label)(M);}; - -var _8712=function(M){if(--M.cbt<0){throw _8712;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-10]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-11][42]; -M.e[M.e.length-1]=M.primitives["car"]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8719,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _8688=function(M){if(--M.cbt<0){throw _8688;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-11][63]; -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-13][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8703,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-13][63]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-15][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8695,M.p)); -return((M.p).label)(M);}}; - -var _8669=function(M){if(--M.cbt<0){throw _8669;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8712,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-12]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8677,M.p)); -return((M.p).label)(M);}}; - -var _8640=function(M){if(--M.cbt<0){throw _8640;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8644,M.p)); -return((M.p).label)(M);}; - -var _8624=function(M){if(--M.cbt<0){throw _8624;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8628,M.p)); -return((M.p).label)(M);}; - -var _8608=function(M){if(--M.cbt<0){throw _8608;} -if(M.v===false){M.v=false; -return(_8604)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][38]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e.length+=1; -M.e.push(M.e[M.e.length-4][39]); -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8612,M.p)); -return((M.p).label)(M);}}; - -var _8580=function(M){if(--M.cbt<0){throw _8580;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8584,M.p)); -return((M.p).label)(M);}; - -var _8512=function(M){if(--M.cbt<0){throw _8512;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8516,M.p)); -return((M.p).label)(M);}; - -var _8456=function(M){if(--M.cbt<0){throw _8456;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _5501=function(M){if(--M.cbt<0){throw _5501;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6397,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _8389=function(M){if(--M.cbt<0){throw _8389;} -return(_8381)(M);}; - -var _8339=function(M){if(--M.cbt<0){throw _8339;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8343,M.p)); -return((M.p).label)(M);}; - -var _8248=function(M){if(--M.cbt<0){throw _8248;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8252,M.p)); -return((M.p).label)(M);}; - -var _8231=function(M){if(--M.cbt<0){throw _8231;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("take-right"); -M.e[M.e.length-2]="non-negative exact integer"; -M.e[M.e.length-3]=1; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8235,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_8227)(M);}}; - -var _8206=function(M){if(--M.cbt<0){throw _8206;} -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e[M.e.length-9]=false; -return(_8200)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12][21]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8212,M.p)); -return((M.p).label)(M);}}else{M.e[M.e.length-9]=M.e[M.e.length-2]; -return(_8200)(M);}}; - -var _8166=function(M){if(--M.cbt<0){throw _8166;} -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-3]); -if(M.v===false){M.e[M.e.length-1]=false; -return(_8162)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-6],0,"sub1"), 1); -M.e.push(M.e[M.e.length-4][20]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8176,M.p)); -return((M.p).label)(M);}}else{M.e[M.e.length-1]=M.e[M.e.length-3]; -return(_8162)(M);}}; - -var _8126=function(M){if(--M.cbt<0){throw _8126;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _8096=function(M){if(--M.cbt<0){throw _8096;} -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-3]); -if(M.v===false){M.v=M.e[M.e.length-3]; -M.v=M.e[M.e.length-2]; -M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-13][23]; -M.e[M.e.length-1]=RT.makeSymbol("split-at"); -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-16][3]; -M.e[M.e.length-1]="index ~e too large for list~a: "; -M.e[M.e.length-2]=M.e[M.e.length-18]; -M.v=RT.isList(M.e[M.e.length-17]); -if(M.v===false){M.v=" (not a proper list)"; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8116,M.p)); -return((M.p).label)(M);}else{M.v=""; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8116,M.p)); -return((M.p).label)(M);}}else{M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-15][60]; -M.e[M.e.length-1]=M.e[M.e.length-16]; -M.e[M.e.length-2]=M.e[M.e.length-17]; -M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.e[M.e.length-4]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-7],0,"sub1"), 1); -M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+12),12); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-12]; -M.v=M.e[M.e.length-11]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-12][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8100,M.p)); -return((M.p).label)(M);}}; - -var _8043=function(M){if(--M.cbt<0){throw _8043;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _8019=function(M){if(--M.cbt<0){throw _8019;} -return(_8011)(M);}; - -var _7983=function(M){if(--M.cbt<0){throw _7983;} -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.v=false; -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.e.push(M.e[M.e.length-9][20]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7993,M.p)); -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-2]; -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _7935=function(M){if(--M.cbt<0){throw _7935;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-11],M.e[M.e.length-3]); -M.e.push(M.e[M.e.length-9][20]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7943,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _7919=function(M){if(--M.cbt<0){throw _7919;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-7],M.e[M.e.length-3]); -M.e.push(M.e[M.e.length-5][20]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7927,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _9779=function(M){if(--M.cbt<0){throw _9779;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-7][1]; -M.e[M.e.length-1]=RT.makeSymbol("argmin"); -M.e[M.e.length-2]="procedure that returns real numbers"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-8]; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9783,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_9775)(M);}}; - -var _5513=function(M){if(--M.cbt<0){throw _5513;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isPair(M.e[M.e.length-3]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("fifth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=5; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7327,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-4]===1); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-6],0,"sub1"), 1); -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("fifth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=5; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7319,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-8][1]; -M.e[M.e.length-1]=RT.makeSymbol("fifth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=5; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7311,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][1]; -M.e[M.e.length-1]=RT.makeSymbol("fifth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=5; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7303,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][52]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],0,"sub1"), 1); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _9726=function(M){if(--M.cbt<0){throw _9726;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-12][1]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]="procedure that returns real numbers"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-15]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9730,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_9722)(M);}}; - -var _9687=function(M){if(--M.cbt<0){throw _9687;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-8][49]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9694,M.p)); -return((M.p).label)(M);}; - -var _9669=function(M){if(--M.cbt<0){throw _9669;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-10][1]; -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.e[M.e.length-2]="procedure that returns real numbers"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-13]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9673,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_9665)(M);}}; - -var _5512=function(M){if(--M.cbt<0){throw _5512;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isPair(M.e[M.e.length-3]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("sixth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=6; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7269,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-4]===1); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-6],0,"sub1"), 1); -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("sixth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=6; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7261,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-8][1]; -M.e[M.e.length-1]=RT.makeSymbol("sixth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=6; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7253,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][1]; -M.e[M.e.length-1]=RT.makeSymbol("sixth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=6; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7245,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][53]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],0,"sub1"), 1); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _9611=function(M){if(--M.cbt<0){throw _9611;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _9570=function(M){if(--M.cbt<0){throw _9570;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.e[M.e.length-2]=RT.NULL; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-6]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9584,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-3][26]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-5]; -M.e[M.e.length-1]=RT.NULL; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-6]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9584,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-3][26]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _9543=function(M){if(--M.cbt<0){throw _9543;} -if(M.v===false){M.v=false; -return(_9539)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][38]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9547,M.p)); -return((M.p).label)(M);}}; - -var _5511=function(M){if(--M.cbt<0){throw _5511;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isPair(M.e[M.e.length-3]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("seventh"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=7; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7211,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-4]===1); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-6],0,"sub1"), 1); -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("seventh"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=7; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7203,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-8][1]; -M.e[M.e.length-1]=RT.makeSymbol("seventh"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=7; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7195,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][1]; -M.e[M.e.length-1]=RT.makeSymbol("seventh"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=7; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7187,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][54]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],0,"sub1"), 1); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _9453=function(M){if(--M.cbt<0){throw _9453;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-9][26]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9457,M.p)); -return((M.p).label)(M);}; - -var _9415=function(M){if(--M.cbt<0){throw _9415;} -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-13][65]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=M.e[M.e.length-10]; -M.v=RT.makePair(M.e[M.e.length-6],M.e[M.e.length-7]); -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-13][65]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-6],M.e[M.e.length-10]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _9384=function(M){if(--M.cbt<0){throw _9384;} -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-13][65]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=M.e[M.e.length-7]; -M.v=RT.makePair(M.e[M.e.length-6],RT.NULL); -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-13][65]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-6],M.e[M.e.length-7]); -M.v=RT.NULL; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5510=function(M){if(--M.cbt<0){throw _5510;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isPair(M.e[M.e.length-3]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("eighth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=8; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7153,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-4]===1); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-6],0,"sub1"), 1); -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("eighth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=8; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7145,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-8][1]; -M.e[M.e.length-1]=RT.makeSymbol("eighth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=8; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7137,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][1]; -M.e[M.e.length-1]=RT.makeSymbol("eighth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=8; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7129,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][55]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],0,"sub1"), 1); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _9322=function(M){if(--M.cbt<0){throw _9322;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-3][26]); -M.v=RT.NULL; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9326,M.p)); -return((M.p).label)(M);}; - -var _9302=function(M){if(--M.cbt<0){throw _9302;} -if(M.v===false){M.v=false; -return(_9298)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][38]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9306,M.p)); -return((M.p).label)(M);}}; - -var _9261=function(M){if(--M.cbt<0){throw _9261;} -if(M.v===false){M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-5]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9271,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"add1")); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-5]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9271,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _5509=function(M){if(--M.cbt<0){throw _5509;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isPair(M.e[M.e.length-3]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("ninth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=9; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7095,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-4]===1); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-6],0,"sub1"), 1); -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("ninth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=9; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7087,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-8][1]; -M.e[M.e.length-1]=RT.makeSymbol("ninth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=9; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7079,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][1]; -M.e[M.e.length-1]=RT.makeSymbol("ninth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=9; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7071,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][56]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],0,"sub1"), 1); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _9176=function(M){if(--M.cbt<0){throw _9176;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9180,M.p)); -return((M.p).label)(M);}; - -var _9161=function(M){if(--M.cbt<0){throw _9161;} -if(M.v===false){M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9169,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],0,"add1")); -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9169,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _9124=function(M){if(--M.cbt<0){throw _9124;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4][43]; -M.e[M.e.length-1]=RT.makeSymbol("count"); -M.v="all lists must have same size"; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9131,M.p)); -return((M.p).label)(M);}else{M.v=0; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _5508=function(M){if(--M.cbt<0){throw _5508;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isPair(M.e[M.e.length-3]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("tenth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=10; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7037,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-4]===1); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-6],0,"sub1"), 1); -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("tenth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=10; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7029,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-8][1]; -M.e[M.e.length-1]=RT.makeSymbol("tenth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=10; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7021,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][1]; -M.e[M.e.length-1]=RT.makeSymbol("tenth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=10; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7013,M.p)); -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][57]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],0,"sub1"), 1); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - - -var _5507=function(M){if(--M.cbt<0){throw _5507;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][20]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6947,M.p)); -return((M.p).label)(M);}; - -var _9043=function(M){if(--M.cbt<0){throw _9043;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_9037)(M);}; - -var _9015=function(M){if(--M.cbt<0){throw _9015;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-8]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_9009)(M);}; - -var _8990=function(M){if(--M.cbt<0){throw _8990;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5554,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9001,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5554,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-16]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8997,M.p)); -return((M.p).label)(M);}}; - -var _5506=function(M){if(--M.cbt<0){throw _5506;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][20]); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6865,M.p)); -return((M.p).label)(M);}; - -var _8934=function(M){if(--M.cbt<0){throw _8934;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5554,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8945,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5554,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-16]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8941,M.p)); -return((M.p).label)(M);}}; - -var _8906=function(M){if(--M.cbt<0){throw _8906;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5554,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8917,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5554,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-16]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8913,M.p)); -return((M.p).label)(M);}}; - -var _5505=function(M){if(--M.cbt<0){throw _5505;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][20]); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6748,M.p)); -return((M.p).label)(M);}; - -var _8828=function(M){if(--M.cbt<0){throw _8828;} -M.e[M.e.length-4]=M.v; -return(_8818)(M);}; - -var _5504=function(M){if(--M.cbt<0){throw _5504;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isPair(M.e[M.e.length-3]); -if(M.v===false){M.v=M.e[M.e.length-3]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-3][26]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6738,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-6][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6730,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-9][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6722,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-12][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6714,M.p)); -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-13][61]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+13),13); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}}}; - -var _8789=function(M){if(--M.cbt<0){throw _8789;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5554,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8800,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5554,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-13]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8796,M.p)); -return((M.p).label)(M);}}; - -var _8762=function(M){if(--M.cbt<0){throw _8762;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-9]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8789,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-5]=RT.NULL; -return(_8783)(M);}}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-11]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8772,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_8766)(M);}}}; - -var _5503=function(M){if(--M.cbt<0){throw _5503;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][35]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-8][35]; -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-12][35]; -M.e[M.e.length-1]=M.e[M.e.length-13]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-16][35]; -M.e[M.e.length-1]=M.e[M.e.length-17]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-18][62]; -M.e[M.e.length-1]=M.e[M.e.length-19]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6673,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -return(_6667)(M);}}else{M.v=RT.NULL; -return(_6664)(M);}}else{M.v=RT.NULL; -return(_6661)(M);}}else{M.v=RT.NULL; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _8707=function(M){if(--M.cbt<0){throw _8707;} -M.e[M.e.length-5]=M.v; -return(_8689)(M);}; - -var _8684=function(M){if(--M.cbt<0){throw _8684;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8688,M.p)); -return((M.p).label)(M);}; - -var _8665=function(M){if(--M.cbt<0){throw _8665;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8669,M.p)); -return((M.p).label)(M);}; - -var _8636=function(M){if(--M.cbt<0){throw _8636;} -return(_8632)(M);}; - -var _8620=function(M){if(--M.cbt<0){throw _8620;} -M.e[M.e.length-1]=M.v; -M.v=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"add1")); -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8624,M.p)); -return((M.p).label)(M);}; - -var _8596=function(M){if(--M.cbt<0){throw _8596;} -M.e[M.e.length-3]=M.v; -return(_8565)(M);}; - -var _8554=function(M){if(--M.cbt<0){throw _8554;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6092=function(M){if(--M.cbt<0){throw _6092;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+14),14); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _8448=function(M){if(--M.cbt<0){throw _8448;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+7),7); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _8402=function(M){if(--M.cbt<0){throw _8402;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8406,M.p)); -return((M.p).label)(M);}; - -var _8385=function(M){if(--M.cbt<0){throw _8385;} -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("split-at-right"); -M.e[M.e.length-2]="non-negative exact integer"; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8389,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_8381)(M);}}; - -var _8330=function(M){if(--M.cbt<0){throw _8330;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][23]; -M.e[M.e.length-1]=RT.makeSymbol("drop-right"); -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-9][3]; -M.e[M.e.length-1]="index ~e too large for list~a: "; -M.e[M.e.length-2]=M.e[M.e.length-11]; -M.v=RT.isList(M.e[M.e.length-10]); -if(M.v===false){M.v=" (not a proper list)"; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8339,M.p)); -return((M.p).label)(M);}else{M.v=""; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8339,M.p)); -return((M.p).label)(M);}}else{M.e[M.e.length-2]=M.e[M.e.length-1]; -return(_8331)(M);}}; - -var _8239=function(M){if(--M.cbt<0){throw _8239;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][23]; -M.e[M.e.length-1]=RT.makeSymbol("take-right"); -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-9][3]; -M.e[M.e.length-1]="index ~e too large for list~a: "; -M.e[M.e.length-2]=M.e[M.e.length-11]; -M.v=RT.isList(M.e[M.e.length-10]); -if(M.v===false){M.v=" (not a proper list)"; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8248,M.p)); -return((M.p).label)(M);}else{M.v=""; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8248,M.p)); -return((M.p).label)(M);}}else{M.e[M.e.length-2]=M.e[M.e.length-1]; -return(_8240)(M);}}; - -var _8221=function(M){if(--M.cbt<0){throw _8221;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _8196=function(M){if(--M.cbt<0){throw _8196;} -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e[M.e.length-7]=false; -return(_8190)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.e.push(M.e[M.e.length-10][20]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8206,M.p)); -return((M.p).label)(M);}}else{M.e[M.e.length-7]=M.e[M.e.length-2]; -return(_8190)(M);}}; - -var _8160=function(M){if(--M.cbt<0){throw _8160;} -return(_8152)(M);}; - -var _8116=function(M){if(--M.cbt<0){throw _8116;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-14]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+12),12); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _8081=function(M){if(--M.cbt<0){throw _8081;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _8039=function(M){if(--M.cbt<0){throw _8039;} -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][23]; -M.e[M.e.length-1]=RT.makeSymbol("split-at"); -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]="index ~e too large for list~a: "; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.v=RT.isList(M.e[M.e.length-8]); -if(M.v===false){M.v=" (not a proper list)"; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8146,M.p)); -return((M.p).label)(M);}else{M.v=""; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8146,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"sub1"), 1); -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.e[M.e.length-2]=RT.NULL; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.push(M.e[M.e.length-4][20]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8058,M.p)); -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-3]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-3][26]); -M.v=RT.NULL; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8043,M.p)); -return((M.p).label)(M);}}; - -var _8015=function(M){if(--M.cbt<0){throw _8015;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("take"); -M.e[M.e.length-2]="non-negative exact integer"; -M.e[M.e.length-3]=1; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8019,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_8011)(M);}}; - -var _7973=function(M){if(--M.cbt<0){throw _7973;} -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.v=false; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.e.push(M.e[M.e.length-7][20]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7983,M.p)); -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-2]; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _7927=function(M){if(--M.cbt<0){throw _7927;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-9],M.e[M.e.length-3]); -M.e.push(M.e[M.e.length-7][20]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7935,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _7911=function(M){if(--M.cbt<0){throw _7911;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-5],RT.NULL); -M.e.push(M.e[M.e.length-3][20]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7919,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _9772=function(M){if(--M.cbt<0){throw _9772;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-2][49]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9779,M.p)); -return((M.p).label)(M);}; - -var _5500=function(M){if(--M.cbt<0){throw _5500;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.push(M.e[M.e.length-4]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6004,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-3]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-3][26]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5988,M.p)); -return((M.p).label)(M);}}; - -var _9719=function(M){if(--M.cbt<0){throw _9719;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-7][49]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9726,M.p)); -return((M.p).label)(M);}; - -var _5499=function(M){if(--M.cbt<0){throw _5499;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-4]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5937,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-1][26]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _9662=function(M){if(--M.cbt<0){throw _9662;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-5][49]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9669,M.p)); -return((M.p).label)(M);}; - -var _9639=function(M){if(--M.cbt<0){throw _9639;} -return(_9633)(M);}; - -var _9598=function(M){if(--M.cbt<0){throw _9598;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][66]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.push(M.e[M.e.length-11]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9611,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-7][26]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-4]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][66]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.push(M.e[M.e.length-11]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9611,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-7][26]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _9557=function(M){if(--M.cbt<0){throw _9557;} -return(_9553)(M);}; - -var _9531=function(M){if(--M.cbt<0){throw _9531;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _9484=function(M){if(--M.cbt<0){throw _9484;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-9][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9488,M.p)); -return((M.p).label)(M);}; - -var _9446=function(M){if(--M.cbt<0){throw _9446;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-3],M.e[M.e.length-4]); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.push(M.e[M.e.length-10]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9500,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-8]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-9][26]); -M.v=RT.NULL; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9484,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-3],RT.NULL); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.push(M.e[M.e.length-10]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9469,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-8]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-9][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9453,M.p)); -return((M.p).label)(M);}}}; - -var _9403=function(M){if(--M.cbt<0){throw _9403;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _9372=function(M){if(--M.cbt<0){throw _9372;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _5498=function(M){if(--M.cbt<0){throw _5498;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-7]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-5]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-9],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5728,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _9316=function(M){if(--M.cbt<0){throw _9316;} -return(_9312)(M);}; - -var _9290=function(M){if(--M.cbt<0){throw _9290;} -if(M.v===false){M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],0,"add1")); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _9252=function(M){if(--M.cbt<0){throw _9252;} -M.e[M.e.length-2]=M.v; -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],1,"=")))); -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9214=function(M){if(--M.cbt<0){throw _9214;} -if(M.v===false){M.e[M.e.length-1]=0; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-6]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9224,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e[M.e.length-1]=1; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-6]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9224,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _5497=function(M){if(--M.cbt<0){throw _5497;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-3]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5652,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-3]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _9157=function(M){if(--M.cbt<0){throw _9157;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9161,M.p)); -return((M.p).label)(M);}; - - -var _9105=function(M){if(--M.cbt<0){throw _9105;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9109,M.p)); -return((M.p).label)(M);}; - - -var _9061=function(M){if(--M.cbt<0){throw _9061;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9036=function(M){if(--M.cbt<0){throw _9036;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5554,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9047,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5554,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9043,M.p)); -return((M.p).label)(M);}}; - -var _9008=function(M){if(--M.cbt<0){throw _9008;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5554,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9019,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5554,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9015,M.p)); -return((M.p).label)(M);}}; - -var _8980=function(M){if(--M.cbt<0){throw _8980;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-10]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9008,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-5]=RT.NULL; -return(_9002)(M);}}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-12]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8990,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_8984)(M);}}}; - -var _8952=function(M){if(--M.cbt<0){throw _8952;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5554,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8963,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5554,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8959,M.p)); -return((M.p).label)(M);}}; - -var _8924=function(M){if(--M.cbt<0){throw _8924;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-10]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8952,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-7]=RT.NULL; -return(_8946)(M);}}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-12]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8934,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_8928)(M);}}}; - -var _8899=function(M){if(--M.cbt<0){throw _8899;} -M.e[M.e.length-4]=M.v; -return(_8889)(M);}; - -var _8868=function(M){if(--M.cbt<0){throw _8868;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-8]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8924,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-5]=RT.NULL; -return(_8918)(M);}}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-10]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8878,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_8872)(M);}}}; - - -var _8807=function(M){if(--M.cbt<0){throw _8807;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-7]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8835,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-9]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8817,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_8811)(M);}}}; - -var _8782=function(M){if(--M.cbt<0){throw _8782;} -M.e[M.e.length-4]=M.v; -return(_8773)(M);}; - -var _8752=function(M){if(--M.cbt<0){throw _8752;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-5]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8807,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-7]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8762,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_8756)(M);}}}; - -var _8723=function(M){if(--M.cbt<0){throw _8723;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-9][63]; -M.e[M.e.length-1]=M.e[M.e.length-10]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-11][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8738,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-11][63]; -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-13][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8730,M.p)); -return((M.p).label)(M);}}; - -var _8703=function(M){if(--M.cbt<0){throw _8703;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8707,M.p)); -return((M.p).label)(M);}; - -var _8677=function(M){if(--M.cbt<0){throw _8677;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-13][42]; -M.e[M.e.length-1]=M.primitives["car"]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8684,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-4]=RT.NULL; -return(_8678)(M);}}; - -var _8659=function(M){if(--M.cbt<0){throw _8659;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4][43]; -M.e[M.e.length-1]=RT.makeSymbol("filter-map"); -M.v="all lists must have same size"; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-4]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][42]; -M.e[M.e.length-1]=M.primitives["car"]; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8665,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _8628=function(M){if(--M.cbt<0){throw _8628;} -return(_8602)(M);}; - -var _8616=function(M){if(--M.cbt<0){throw _8616;} -return(_8604)(M);}; - -var _8592=function(M){if(--M.cbt<0){throw _8592;} -return(_8568)(M);}; - -var _8545=function(M){if(--M.cbt<0){throw _8545;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.v=RT.makePair(M.e[M.e.length-2],M.e[M.e.length-1]); -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5549,2,[],"loop"); -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5549,2,[],"loop"); -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8554,M.p)); -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6088=function(M){if(--M.cbt<0){throw _6088;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-12][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6092,M.p)); -return((M.p).label)(M);}; - -var _8440=function(M){if(--M.cbt<0){throw _8440;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _8393=function(M){if(--M.cbt<0){throw _8393;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][23]; -M.e[M.e.length-1]=RT.makeSymbol("split-at-right"); -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-9][3]; -M.e[M.e.length-1]="index ~e too large for list~a: "; -M.e[M.e.length-2]=M.e[M.e.length-11]; -M.v=RT.isList(M.e[M.e.length-10]); -if(M.v===false){M.v=" (not a proper list)"; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8402,M.p)); -return((M.p).label)(M);}else{M.v=""; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8402,M.p)); -return((M.p).label)(M);}}else{M.e[M.e.length-2]=M.e[M.e.length-1]; -return(_8394)(M);}}; - -var _8379=function(M){if(--M.cbt<0){throw _8379;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_8373)(M);}; - -var _8326=function(M){if(--M.cbt<0){throw _8326;} -return(_8318)(M);}; - -var _5563=function(M){if(--M.cbt<0){throw _5563;} -M.unspliceRestFromStack(2,(M.a-2)); -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-3][32]; -M.e.length+=4; -M.e[M.e.length-4]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-7][42]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.e[M.e.length-3]=M.e[M.e.length-9]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9531,M.p)); -return((M.p).label)(M);}; - -var _8212=function(M){if(--M.cbt<0){throw _8212;} -M.e[M.e.length-9]=M.v; -return(_8200)(M);}; - -var _8186=function(M){if(--M.cbt<0){throw _8186;} -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e[M.e.length-5]=false; -return(_8180)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.e.push(M.e[M.e.length-8][20]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8196,M.p)); -return((M.p).label)(M);}}else{M.e[M.e.length-5]=M.e[M.e.length-2]; -return(_8180)(M);}}; - -var _8156=function(M){if(--M.cbt<0){throw _8156;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("drop"); -M.e[M.e.length-2]="non-negative exact integer"; -M.e[M.e.length-3]=1; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8160,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_8152)(M);}}; - -var _8100=function(M){if(--M.cbt<0){throw _8100;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+12),12); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _8077=function(M){if(--M.cbt<0){throw _8077;} -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-3]); -if(M.v===false){M.v=M.e[M.e.length-3]; -M.v=M.e[M.e.length-2]; -M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][23]; -M.e[M.e.length-1]=RT.makeSymbol("split-at"); -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-13][3]; -M.e[M.e.length-1]="index ~e too large for list~a: "; -M.e[M.e.length-2]=M.e[M.e.length-15]; -M.v=RT.isList(M.e[M.e.length-14]); -if(M.v===false){M.v=" (not a proper list)"; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8126,M.p)); -return((M.p).label)(M);}else{M.v=""; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8126,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],0,"sub1"), 1); -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.push(M.e[M.e.length-10][20]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8096,M.p)); -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-9]; -M.v=M.e[M.e.length-8]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-9][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8081,M.p)); -return((M.p).label)(M);}}; - -var _8033=function(M){if(--M.cbt<0){throw _8033;} -return(_8025)(M);}; - -var _8005=function(M){if(--M.cbt<0){throw _8005;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7963=function(M){if(--M.cbt<0){throw _7963;} -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.v=false; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.e.push(M.e[M.e.length-5][20]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7973,M.p)); -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-2]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _5625=function(M){if(--M.cbt<0){throw _5625;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-4][49]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5632,M.p)); -return((M.p).label)(M);}; - -var _7905=function(M){if(--M.cbt<0){throw _7905;} -return(_7897)(M);}; - -var _9768=function(M){if(--M.cbt<0){throw _9768;} -return(_9762)(M);}; - -var _9736=function(M){if(--M.cbt<0){throw _9736;} -if(M.v===false){M.e.length+=6; -M.e[M.e.length-6]=M.e[M.e.length-13][67]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=M.e[M.e.length-15]; -M.e[M.e.length-3]=M.e[M.e.length-16]; -M.e[M.e.length-4]=M.e[M.e.length-11]; -M.e[M.e.length-5]=M.e[M.e.length-12]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(6+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=6; -M.e[M.e.length-6]=M.e[M.e.length-13][67]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=M.e[M.e.length-15]; -M.e[M.e.length-3]=M.e[M.e.length-16]; -M.e[M.e.length-4]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"car")).first; -M.e[M.e.length-5]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(6+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _9704=function(M){if(--M.cbt<0){throw _9704;} -if(M.v===false){M.e.length+=6; -M.e[M.e.length-6]=M.e[M.e.length-14][67]; -M.e[M.e.length-1]=M.e[M.e.length-15]; -M.e[M.e.length-2]=M.e[M.e.length-16]; -M.e[M.e.length-3]=M.e[M.e.length-17]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.e[M.e.length-5]=M.e[M.e.length-10]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(6+12),12); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=6; -M.e[M.e.length-6]=M.e[M.e.length-14][67]; -M.e[M.e.length-1]=M.e[M.e.length-15]; -M.e[M.e.length-2]=M.e[M.e.length-16]; -M.e[M.e.length-3]=M.e[M.e.length-17]; -M.e[M.e.length-4]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"car")).first; -M.e[M.e.length-5]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(6+12),12); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _9679=function(M){if(--M.cbt<0){throw _9679;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-10]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9719,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-4]; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-4]; -M.v=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-11]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9687,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _9654=function(M){if(--M.cbt<0){throw _9654;} -return(_9646)(M);}; - -var _9631=function(M){if(--M.cbt<0){throw _9631;} -return(_9617)(M);}; - - -var _9551=function(M){if(--M.cbt<0){throw _9551;} -return(_9537)(M);}; - -var _9523=function(M){if(--M.cbt<0){throw _9523;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - - -var _9315=function(M){if(--M.cbt<0){throw _9315;} -M.e.length-=(M.a-1); -return(_9312)(M);}; - - -var _9368=function(M){if(--M.cbt<0){throw _9368;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-9][26]); -M.v=RT.NULL; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9372,M.p)); -return((M.p).label)(M);}; - - -var _9310=function(M){if(--M.cbt<0){throw _9310;} -return(_9296)(M);}; - -var _9281=function(M){if(--M.cbt<0){throw _9281;} -if(M.v===false){M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_5558,3,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-10]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.push(M.e[M.e.length-10]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9290,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"add1")); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_5558,3,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-10]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.push(M.e[M.e.length-10]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9290,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _9243=function(M){if(--M.cbt<0){throw _9243;} -if(M.v===false){M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return(_5558)(M);}else{M.v=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],0,"add1")); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return(_5558)(M);}}; - -var _9197=function(M){if(--M.cbt<0){throw _9197;} -if(M.v===false){M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+14),14); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"add1")); -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+14),14); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - - -var _9150=function(M){if(--M.cbt<0){throw _9150;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-9],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-13][42]; -M.e[M.e.length-1]=M.primitives["car"]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9157,M.p)); -return((M.p).label)(M);}; - - -var _9101=function(M){if(--M.cbt<0){throw _9101;} -return(_9097)(M);}; - - -var _9054=function(M){if(--M.cbt<0){throw _9054;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5554,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-10]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5554,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9061,M.p)); -return((M.p).label)(M);}}; - -var _9026=function(M){if(--M.cbt<0){throw _9026;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-8]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9054,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-10]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9036,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_9030)(M);}}}; - -var _9001=function(M){if(--M.cbt<0){throw _9001;} -M.e[M.e.length-4]=M.v; -return(_8991)(M);}; - -var _8970=function(M){if(--M.cbt<0){throw _8970;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-6]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9026,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-8]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8980,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_8974)(M);}}}; - -var _8945=function(M){if(--M.cbt<0){throw _8945;} -M.e[M.e.length-4]=M.v; -return(_8935)(M);}; - -var _8917=function(M){if(--M.cbt<0){throw _8917;} -M.e[M.e.length-6]=M.v; -return(_8907)(M);}; - -var _8895=function(M){if(--M.cbt<0){throw _8895;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_8889)(M);}; - -var _8858=function(M){if(--M.cbt<0){throw _8858;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-4]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8970,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-6]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8868,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=RT.NULL; -return(_8862)(M);}}}; - - -var _8800=function(M){if(--M.cbt<0){throw _8800;} -M.e[M.e.length-6]=M.v; -return(_8790)(M);}; - -var _8778=function(M){if(--M.cbt<0){throw _8778;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_8773)(M);}; - -var _8738=function(M){if(--M.cbt<0){throw _8738;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _8719=function(M){if(--M.cbt<0){throw _8719;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8723,M.p)); -return((M.p).label)(M);}; - -var _8699=function(M){if(--M.cbt<0){throw _8699;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-7]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_8689)(M);}; - -var _6316=function(M){if(--M.cbt<0){throw _6316;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _8650=function(M){if(--M.cbt<0){throw _8650;} -M.e[M.e.length-1]=M.v; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4][40]; -M.v=new RT.Closure(_5553,1,[M.e[M.e.length-4],M.e[M.e.length-3]],"...ng/lang/list.rkt:256:18"); -M.a=1; -if(M.a===0){return(_8654)(M);}else{M.e.push(M.v); -return(_8654)(M);}}; - -var _6243=function(M){if(--M.cbt<0){throw _6243;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-3],M.e[M.e.length-7]); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.push(M.e[M.e.length-13]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6297,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-11]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-12][26]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6281,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-3],M.e[M.e.length-4]); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.push(M.e[M.e.length-13]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6266,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-11]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-12][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6250,M.p)); -return((M.p).label)(M);}}}; - -var _8612=function(M){if(--M.cbt<0){throw _8612;} -M.e[M.e.length-1]=M.v; -M.v=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"add1")); -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8616,M.p)); -return((M.p).label)(M);}; - -var _8588=function(M){if(--M.cbt<0){throw _8588;} -return(_8571)(M);}; - -var _6135=function(M){if(--M.cbt<0){throw _6135;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-3],M.e[M.e.length-4]); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.push(M.e[M.e.length-13]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6189,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-11]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-12][26]); -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6173,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-3],M.e[M.e.length-7]); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.push(M.e[M.e.length-13]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6158,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-11]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-12][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6142,M.p)); -return((M.p).label)(M);}}}; - -var _9941=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_5570,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/lang/list.rkt"]=new RT.ModuleRecord("list",_9832); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _6057=function(M){if(--M.cbt<0){throw _6057;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-12][26]); -M.v=M.e[M.e.length-17]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6061,M.p)); -return((M.p).label)(M);}; - -var _6027=function(M){if(--M.cbt<0){throw _6027;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-3],M.e[M.e.length-11]); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.push(M.e[M.e.length-10]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6135,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-8]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-9][26]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6119,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-3],M.e[M.e.length-4]); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.push(M.e[M.e.length-10]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6050,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-8]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-9][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6034,M.p)); -return((M.p).label)(M);}}}; - -var _8361=function(M){if(--M.cbt<0){throw _8361;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_8356)(M);}; - -var _5916=function(M){if(--M.cbt<0){throw _5916;} -if(M.v===false){M.e.length+=6; -M.e[M.e.length-6]=M.e[M.e.length-12][67]; -M.e[M.e.length-1]=M.e[M.e.length-13]; -M.e[M.e.length-2]=M.e[M.e.length-14]; -M.e[M.e.length-3]=M.e[M.e.length-15]; -M.e[M.e.length-4]=M.e[M.e.length-16]; -M.e[M.e.length-5]=M.e[M.e.length-17]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(6+12),12); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=6; -M.e[M.e.length-6]=M.e[M.e.length-12][67]; -M.e[M.e.length-1]=M.e[M.e.length-13]; -M.e[M.e.length-2]=M.e[M.e.length-14]; -M.e[M.e.length-3]=M.e[M.e.length-15]; -M.e[M.e.length-4]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"car")).first; -M.e[M.e.length-5]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(6+12),12); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5884=function(M){if(--M.cbt<0){throw _5884;} -if(M.v===false){M.e.length+=6; -M.e[M.e.length-6]=M.e[M.e.length-13][67]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=M.e[M.e.length-15]; -M.e[M.e.length-3]=M.e[M.e.length-16]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.e[M.e.length-5]=M.e[M.e.length-10]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(6+13),13); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=6; -M.e[M.e.length-6]=M.e[M.e.length-13][67]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=M.e[M.e.length-15]; -M.e[M.e.length-3]=M.e[M.e.length-16]; -M.e[M.e.length-4]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"car")).first; -M.e[M.e.length-5]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(6+13),13); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5859=function(M){if(--M.cbt<0){throw _5859;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-9]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5899,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-9]; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-9]; -M.v=M.e[M.e.length-8]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-10]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5867,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=12; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _8176=function(M){if(--M.cbt<0){throw _8176;} -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e[M.e.length-3]=false; -return(_8170)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.e.push(M.e[M.e.length-6][20]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8186,M.p)); -return((M.p).label)(M);}}else{M.e[M.e.length-3]=M.e[M.e.length-2]; -return(_8170)(M);}}; - -var _8146=function(M){if(--M.cbt<0){throw _8146;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _5770=function(M){if(--M.cbt<0){throw _5770;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-10]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5810,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-4]; -M.e.length-=12; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-4]; -M.v=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-11]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5778,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=13; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _8062=function(M){if(--M.cbt<0){throw _8062;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _5735=function(M){if(--M.cbt<0){throw _5735;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-7][1]; -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]="procedure that returns real numbers"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-10]; -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5739,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5731)(M);}}; - -var _5684=function(M){if(--M.cbt<0){throw _5684;} -return(_5676)(M);}; - -var _5663=function(M){if(--M.cbt<0){throw _5663;} -return(_5655)(M);}; - -var _5570=function(M){if(--M.cbt<0){throw _5570;} -}; - -var _7901=function(M){if(--M.cbt<0){throw _7901;} -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("make-list"); -M.e[M.e.length-2]="non-negative exact integer"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7905,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_7897)(M);}}; - -var _7763=function(M){if(--M.cbt<0){throw _7763;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7710=function(M){if(--M.cbt<0){throw _7710;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7657=function(M){if(--M.cbt<0){throw _7657;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7604=function(M){if(--M.cbt<0){throw _7604;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7551=function(M){if(--M.cbt<0){throw _7551;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7498=function(M){if(--M.cbt<0){throw _7498;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7445=function(M){if(--M.cbt<0){throw _7445;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7396=function(M){if(--M.cbt<0){throw _7396;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7350=function(M){if(--M.cbt<0){throw _7350;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7303=function(M){if(--M.cbt<0){throw _7303;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7245=function(M){if(--M.cbt<0){throw _7245;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7187=function(M){if(--M.cbt<0){throw _7187;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7129=function(M){if(--M.cbt<0){throw _7129;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7071=function(M){if(--M.cbt<0){throw _7071;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7013=function(M){if(--M.cbt<0){throw _7013;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6955=function(M){if(--M.cbt<0){throw _6955;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-6],M.e[M.e.length-3]); -M.e.push(M.e[M.e.length-5][20]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6963,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6927=function(M){if(--M.cbt<0){throw _6927;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6931,M.p)); -return((M.p).label)(M);}; - -var _6907=function(M){if(--M.cbt<0){throw _6907;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-17]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6911,M.p)); -return((M.p).label)(M);}; - -var _6875=function(M){if(--M.cbt<0){throw _6875;} -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-8][23]; -M.e[M.e.length-1]=RT.makeSymbol("take"); -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-11][3]; -M.e[M.e.length-1]="index ~e too large for list~a: "; -M.e[M.e.length-2]=M.e[M.e.length-13]; -M.v=RT.isList(M.e[M.e.length-12]); -if(M.v===false){M.v=" (not a proper list)"; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6927,M.p)); -return((M.p).label)(M);}else{M.v=""; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6927,M.p)); -return((M.p).label)(M);}}else{M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"sub1"), 1); -M.e.push(M.e[M.e.length-9][20]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6885,M.p)); -return((M.p).label)(M);}}else{M.e[M.e.length-4]=RT.NULL; -return(_6869)(M);}}; - -var _6835=function(M){if(--M.cbt<0){throw _6835;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+12),12); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6790=function(M){if(--M.cbt<0){throw _6790;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+12),12); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6752=function(M){if(--M.cbt<0){throw _6752;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6722=function(M){if(--M.cbt<0){throw _6722;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6677=function(M){if(--M.cbt<0){throw _6677;} -return(_6667)(M);}; - -var _6639=function(M){if(--M.cbt<0){throw _6639;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-11][63]; -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-13][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6654,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-13][63]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-15][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6646,M.p)); -return((M.p).label)(M);}}; - -var _6619=function(M){if(--M.cbt<0){throw _6619;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6623,M.p)); -return((M.p).label)(M);}; - -var _6604=function(M){if(--M.cbt<0){throw _6604;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-13][63]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-15][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6619,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-15][63]; -M.e[M.e.length-1]=M.e[M.e.length-16]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-17][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6611,M.p)); -return((M.p).label)(M);}}; - -var _6581=function(M){if(--M.cbt<0){throw _6581;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6585,M.p)); -return((M.p).label)(M);}; - -var _6561=function(M){if(--M.cbt<0){throw _6561;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-10]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_6551)(M);}; - -var _6539=function(M){if(--M.cbt<0){throw _6539;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-15][42]; -M.e[M.e.length-1]=M.primitives["car"]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6546,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-7]=RT.NULL; -return(_6540)(M);}}; - -var _6522=function(M){if(--M.cbt<0){throw _6522;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6526,M.p)); -return((M.p).label)(M);}; - -var _6496=function(M){if(--M.cbt<0){throw _6496;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-11][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6539,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-13][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6504,M.p)); -return((M.p).label)(M);}}; - -var _6473=function(M){if(--M.cbt<0){throw _6473;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6477,M.p)); -return((M.p).label)(M);}; - -var _6446=function(M){if(--M.cbt<0){throw _6446;} -if(M.v===false){M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-14][64]; -M.e[M.e.length-1]=M.e[M.e.length-15]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-16][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6453,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=14; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],0,"add1")); -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-14][64]; -M.e[M.e.length-1]=M.e[M.e.length-15]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-16][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6453,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=14; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _6423=function(M){if(--M.cbt<0){throw _6423;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6427,M.p)); -return((M.p).label)(M);}; - -var _6397=function(M){if(--M.cbt<0){throw _6397;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-9],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9][42]; -M.e[M.e.length-1]=M.primitives["car"]; -M.v=M.e[M.e.length-12]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6404,M.p)); -return((M.p).label)(M);}; - -var _6351=function(M){if(--M.cbt<0){throw _6351;} -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-16][65]; -M.e[M.e.length-1]=M.e[M.e.length-17]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=M.e[M.e.length-7]; -M.v=RT.makePair(M.e[M.e.length-6],M.e[M.e.length-10]); -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+16),16); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-16][65]; -M.e[M.e.length-1]=M.e[M.e.length-17]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-6],M.e[M.e.length-7]); -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+16),16); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _6312=function(M){if(--M.cbt<0){throw _6312;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-9][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6316,M.p)); -return((M.p).label)(M);}; - -var _6281=function(M){if(--M.cbt<0){throw _6281;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-12][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6285,M.p)); -return((M.p).label)(M);}; - -var _6231=function(M){if(--M.cbt<0){throw _6231;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6208=function(M){if(--M.cbt<0){throw _6208;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6173=function(M){if(--M.cbt<0){throw _6173;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-12][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6177,M.p)); -return((M.p).label)(M);}; - -var _6123=function(M){if(--M.cbt<0){throw _6123;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6073=function(M){if(--M.cbt<0){throw _6073;} -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-16][65]; -M.e[M.e.length-1]=M.e[M.e.length-17]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=M.e[M.e.length-7]; -M.v=RT.makePair(M.e[M.e.length-6],M.e[M.e.length-20]); -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+16),16); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-16][65]; -M.e[M.e.length-1]=M.e[M.e.length-17]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-6],M.e[M.e.length-7]); -M.v=M.e[M.e.length-20]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+16),16); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _6050=function(M){if(--M.cbt<0){throw _6050;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-3],M.e[M.e.length-14]); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.push(M.e[M.e.length-13]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6104,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-11]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-12][26]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6088,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-3],M.e[M.e.length-4]); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.push(M.e[M.e.length-13]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6073,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-11]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-12][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6057,M.p)); -return((M.p).label)(M);}}}; - -var _6015=function(M){if(--M.cbt<0){throw _6015;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _5992=function(M){if(--M.cbt<0){throw _5992;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _5951=function(M){if(--M.cbt<0){throw _5951;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-8]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5965,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-5][26]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-4]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-8]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5965,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-5][26]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _5906=function(M){if(--M.cbt<0){throw _5906;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-11][1]; -M.e[M.e.length-1]=M.e[M.e.length-13]; -M.e[M.e.length-2]="procedure that returns real numbers"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-14]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5910,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5902)(M);}}; - -var _5874=function(M){if(--M.cbt<0){throw _5874;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-12][1]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]="procedure that returns real numbers"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-15]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5878,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5870)(M);}}; - -var _5849=function(M){if(--M.cbt<0){throw _5849;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-9][1]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]="procedure that returns real numbers"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-12]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5853,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5845)(M);}}; - -var _5817=function(M){if(--M.cbt<0){throw _5817;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-12][1]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]="procedure that returns real numbers"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-15]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5821,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5813)(M);}}; - -var _5785=function(M){if(--M.cbt<0){throw _5785;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-13][1]; -M.e[M.e.length-1]=M.e[M.e.length-15]; -M.e[M.e.length-2]="procedure that returns real numbers"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-16]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5789,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5781)(M);}}; - -var _5760=function(M){if(--M.cbt<0){throw _5760;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-10][1]; -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.e[M.e.length-2]="procedure that returns real numbers"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-13]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5764,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5756)(M);}}; - -var _5712=function(M){if(--M.cbt<0){throw _5712;} -return(_5704)(M);}; - -var _5680=function(M){if(--M.cbt<0){throw _5680;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-10][1]; -M.e[M.e.length-1]=RT.makeSymbol("argmin"); -M.e[M.e.length-2]="procedure that returns real numbers"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-11]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5684,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5676)(M);}}; - -var _5659=function(M){if(--M.cbt<0){throw _5659;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-7][1]; -M.e[M.e.length-1]=RT.makeSymbol("argmin"); -M.e[M.e.length-2]="procedure that returns real numbers"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-8]; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5663,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5655)(M);}}; - -var _5604=function(M){if(--M.cbt<0){throw _5604;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-10][1]; -M.e[M.e.length-1]=RT.makeSymbol("argmax"); -M.e[M.e.length-2]="procedure that returns real numbers"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-11]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5608,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5600)(M);}}; - -var _5597=function(M){if(--M.cbt<0){throw _5597;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-5][49]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5604,M.p)); -return((M.p).label)(M);}; - -var _7755=function(M){if(--M.cbt<0){throw _7755;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7702=function(M){if(--M.cbt<0){throw _7702;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7649=function(M){if(--M.cbt<0){throw _7649;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7596=function(M){if(--M.cbt<0){throw _7596;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7543=function(M){if(--M.cbt<0){throw _7543;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7490=function(M){if(--M.cbt<0){throw _7490;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7437=function(M){if(--M.cbt<0){throw _7437;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7388=function(M){if(--M.cbt<0){throw _7388;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7327=function(M){if(--M.cbt<0){throw _7327;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7269=function(M){if(--M.cbt<0){throw _7269;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7211=function(M){if(--M.cbt<0){throw _7211;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7153=function(M){if(--M.cbt<0){throw _7153;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7095=function(M){if(--M.cbt<0){throw _7095;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7037=function(M){if(--M.cbt<0){throw _7037;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6979=function(M){if(--M.cbt<0){throw _6979;} -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-12][58]; -M.e[M.e.length-1]=M.e[M.e.length-13]; -M.e[M.e.length-2]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"sub1"), 1); -M.v=RT.makePair(M.e[M.e.length-13],M.e[M.e.length-4]); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+12),12); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=12; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6947=function(M){if(--M.cbt<0){throw _6947;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],0,"sub1"), 1); -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-4],M.e[M.e.length-6]); -M.e.push(M.e[M.e.length-3][20]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6955,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-4]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6921=function(M){if(--M.cbt<0){throw _6921;} -M.e[M.e.length-4]=M.v; -return(_6879)(M);}; - -var _6901=function(M){if(--M.cbt<0){throw _6901;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_6889)(M);}; - -var _6865=function(M){if(--M.cbt<0){throw _6865;} -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-4]); -if(M.v===false){M.v=M.e[M.e.length-5]; -M.v=M.e[M.e.length-4]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][23]; -M.e[M.e.length-1]=RT.makeSymbol("take"); -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]="index ~e too large for list~a: "; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.v=RT.isList(M.e[M.e.length-8]); -if(M.v===false){M.v=" (not a proper list)"; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6937,M.p)); -return((M.p).label)(M);}else{M.v=""; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6937,M.p)); -return((M.p).label)(M);}}else{M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-9],0,"sub1"), 1); -M.e.push(M.e[M.e.length-5][20]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6875,M.p)); -return((M.p).label)(M);}}else{M.v=RT.NULL; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6825=function(M){if(--M.cbt<0){throw _6825;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-14]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+15),15); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6786=function(M){if(--M.cbt<0){throw _6786;} -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-3]); -if(M.v===false){M.v=M.e[M.e.length-3]; -M.v=M.e[M.e.length-2]; -M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][23]; -M.e[M.e.length-1]=RT.makeSymbol("split-at"); -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-13][3]; -M.e[M.e.length-1]="index ~e too large for list~a: "; -M.e[M.e.length-2]=M.e[M.e.length-15]; -M.v=RT.isList(M.e[M.e.length-14]); -if(M.v===false){M.v=" (not a proper list)"; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6835,M.p)); -return((M.p).label)(M);}else{M.v=""; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6835,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],0,"sub1"), 1); -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.push(M.e[M.e.length-10][20]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6805,M.p)); -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-9]; -M.v=M.e[M.e.length-8]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-9][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6790,M.p)); -return((M.p).label)(M);}}; - -var _6748=function(M){if(--M.cbt<0){throw _6748;} -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-4]); -if(M.v===false){M.v=M.e[M.e.length-6]; -M.v=M.e[M.e.length-5]; -M.v=M.e[M.e.length-4]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][23]; -M.e[M.e.length-1]=RT.makeSymbol("split-at"); -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]="index ~e too large for list~a: "; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.v=RT.isList(M.e[M.e.length-8]); -if(M.v===false){M.v=" (not a proper list)"; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6855,M.p)); -return((M.p).label)(M);}else{M.v=""; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6855,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-7],0,"sub1"), 1); -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-9],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-11]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.push(M.e[M.e.length-4][20]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6767,M.p)); -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-5]; -M.v=M.e[M.e.length-3]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-3][26]); -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6752,M.p)); -return((M.p).label)(M);}}; - -var _6714=function(M){if(--M.cbt<0){throw _6714;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+13),13); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6673=function(M){if(--M.cbt<0){throw _6673;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6677,M.p)); -return((M.p).label)(M);}; - -var _6635=function(M){if(--M.cbt<0){throw _6635;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6639,M.p)); -return((M.p).label)(M);}; - -var _6615=function(M){if(--M.cbt<0){throw _6615;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-7]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_6605)(M);}; - -var _6600=function(M){if(--M.cbt<0){throw _6600;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6604,M.p)); -return((M.p).label)(M);}; - -var _6574=function(M){if(--M.cbt<0){throw _6574;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][42]; -M.e[M.e.length-1]=M.primitives["car"]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6581,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6557=function(M){if(--M.cbt<0){throw _6557;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6561,M.p)); -return((M.p).label)(M);}; - -var _6534=function(M){if(--M.cbt<0){throw _6534;} -M.e[M.e.length-5]=M.v; -return(_6516)(M);}; - -var _6515=function(M){if(--M.cbt<0){throw _6515;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-15][63]; -M.e[M.e.length-1]=M.e[M.e.length-16]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-17][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6530,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-17][63]; -M.e[M.e.length-1]=M.e[M.e.length-18]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-19][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6522,M.p)); -return((M.p).label)(M);}}; - -var _6492=function(M){if(--M.cbt<0){throw _6492;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6496,M.p)); -return((M.p).label)(M);}; - -var _6463=function(M){if(--M.cbt<0){throw _6463;} -if(M.v===false){M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+14),14); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"add1")); -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+14),14); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _6442=function(M){if(--M.cbt<0){throw _6442;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6446,M.p)); -return((M.p).label)(M);}; - -var _6416=function(M){if(--M.cbt<0){throw _6416;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-9],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12][42]; -M.e[M.e.length-1]=M.primitives["car"]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6423,M.p)); -return((M.p).label)(M);}; - -var _6382=function(M){if(--M.cbt<0){throw _6382;} -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-16][65]; -M.e[M.e.length-1]=M.e[M.e.length-17]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=M.e[M.e.length-19]; -M.v=RT.makePair(M.e[M.e.length-6],M.e[M.e.length-7]); -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+16),16); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-16][65]; -M.e[M.e.length-1]=M.e[M.e.length-17]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-6],M.e[M.e.length-19]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+16),16); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _6339=function(M){if(--M.cbt<0){throw _6339;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+14),14); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6297=function(M){if(--M.cbt<0){throw _6297;} -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-16][65]; -M.e[M.e.length-1]=M.e[M.e.length-17]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=M.e[M.e.length-10]; -M.v=RT.makePair(M.e[M.e.length-6],M.e[M.e.length-7]); -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+16),16); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-16][65]; -M.e[M.e.length-1]=M.e[M.e.length-17]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-6],M.e[M.e.length-10]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+16),16); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _6266=function(M){if(--M.cbt<0){throw _6266;} -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-16][65]; -M.e[M.e.length-1]=M.e[M.e.length-17]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=M.e[M.e.length-7]; -M.v=RT.makePair(M.e[M.e.length-6],M.e[M.e.length-13]); -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+16),16); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-16][65]; -M.e[M.e.length-1]=M.e[M.e.length-17]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-6],M.e[M.e.length-7]); -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+16),16); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _6227=function(M){if(--M.cbt<0){throw _6227;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-9][26]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6231,M.p)); -return((M.p).label)(M);}; - -var _6204=function(M){if(--M.cbt<0){throw _6204;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-6][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6208,M.p)); -return((M.p).label)(M);}; - -var _6158=function(M){if(--M.cbt<0){throw _6158;} -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-16][65]; -M.e[M.e.length-1]=M.e[M.e.length-17]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=M.e[M.e.length-7]; -M.v=RT.makePair(M.e[M.e.length-6],M.e[M.e.length-10]); -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+16),16); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-16][65]; -M.e[M.e.length-1]=M.e[M.e.length-17]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-6],M.e[M.e.length-7]); -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+16),16); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _6119=function(M){if(--M.cbt<0){throw _6119;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-9][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6123,M.p)); -return((M.p).label)(M);}; - -var _8535=function(M){if(--M.cbt<0){throw _8535;} -M.e[M.e.length-2]=M.v; -return(_8523)(M);}; - -var _6038=function(M){if(--M.cbt<0){throw _6038;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6011=function(M){if(--M.cbt<0){throw _6011;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-6][26]); -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6015,M.p)); -return((M.p).label)(M);}; - -var _5978=function(M){if(--M.cbt<0){throw _5978;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5910=function(M){if(--M.cbt<0){throw _5910;} -return(_5902)(M);}; - -var _5878=function(M){if(--M.cbt<0){throw _5878;} -return(_5870)(M);}; - -var _5853=function(M){if(--M.cbt<0){throw _5853;} -return(_5845)(M);}; - -var _5842=function(M){if(--M.cbt<0){throw _5842;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-4][49]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5849,M.p)); -return((M.p).label)(M);}; - -var _5810=function(M){if(--M.cbt<0){throw _5810;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-7][49]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5817,M.p)); -return((M.p).label)(M);}; - -var _5764=function(M){if(--M.cbt<0){throw _5764;} -return(_5756)(M);}; - -var _5753=function(M){if(--M.cbt<0){throw _5753;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-5][49]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5760,M.p)); -return((M.p).label)(M);}; - -var _5728=function(M){if(--M.cbt<0){throw _5728;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-2][49]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5735,M.p)); -return((M.p).label)(M);}; - -var _5673=function(M){if(--M.cbt<0){throw _5673;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-5][49]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5680,M.p)); -return((M.p).label)(M);}; - -var _5652=function(M){if(--M.cbt<0){throw _5652;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-2][49]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5659,M.p)); -return((M.p).label)(M);}; - -var _5608=function(M){if(--M.cbt<0){throw _5608;} -return(_5600)(M);}; - -var _5576=function(M){if(--M.cbt<0){throw _5576;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-2][49]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5583,M.p)); -return((M.p).label)(M);}; - -var _7747=function(M){if(--M.cbt<0){throw _7747;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7694=function(M){if(--M.cbt<0){throw _7694;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7641=function(M){if(--M.cbt<0){throw _7641;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7588=function(M){if(--M.cbt<0){throw _7588;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7535=function(M){if(--M.cbt<0){throw _7535;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7482=function(M){if(--M.cbt<0){throw _7482;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7429=function(M){if(--M.cbt<0){throw _7429;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7380=function(M){if(--M.cbt<0){throw _7380;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7319=function(M){if(--M.cbt<0){throw _7319;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7261=function(M){if(--M.cbt<0){throw _7261;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7203=function(M){if(--M.cbt<0){throw _7203;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7145=function(M){if(--M.cbt<0){throw _7145;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7087=function(M){if(--M.cbt<0){throw _7087;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7029=function(M){if(--M.cbt<0){throw _7029;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6971=function(M){if(--M.cbt<0){throw _6971;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-10],M.e[M.e.length-3]); -M.e.push(M.e[M.e.length-9][20]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6979,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6937=function(M){if(--M.cbt<0){throw _6937;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6917=function(M){if(--M.cbt<0){throw _6917;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6921,M.p)); -return((M.p).label)(M);}; - -var _6895=function(M){if(--M.cbt<0){throw _6895;} -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-16][23]; -M.e[M.e.length-1]=RT.makeSymbol("take"); -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-19][3]; -M.e[M.e.length-1]="index ~e too large for list~a: "; -M.e[M.e.length-2]=M.e[M.e.length-21]; -M.v=RT.isList(M.e[M.e.length-20]); -if(M.v===false){M.v=" (not a proper list)"; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6907,M.p)); -return((M.p).label)(M);}else{M.v=""; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6907,M.p)); -return((M.p).label)(M);}}else{M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-19][59]; -M.e[M.e.length-1]=M.e[M.e.length-20]; -M.e[M.e.length-2]=M.e[M.e.length-21]; -M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.v=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-7],0,"sub1"), 1); -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6901,M.p)); -return((M.p).label)(M);}}else{M.e[M.e.length-4]=RT.NULL; -return(_6889)(M);}}; - -var _6855=function(M){if(--M.cbt<0){throw _6855;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6809=function(M){if(--M.cbt<0){throw _6809;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+15),15); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6771=function(M){if(--M.cbt<0){throw _6771;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6738=function(M){if(--M.cbt<0){throw _6738;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6685=function(M){if(--M.cbt<0){throw _6685;} -return(_6661)(M);}; - -var _6654=function(M){if(--M.cbt<0){throw _6654;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6628=function(M){if(--M.cbt<0){throw _6628;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-12]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-13][42]; -M.e[M.e.length-1]=M.primitives["car"]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6635,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6611=function(M){if(--M.cbt<0){throw _6611;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6615,M.p)); -return((M.p).label)(M);}; - -var _6593=function(M){if(--M.cbt<0){throw _6593;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-15][42]; -M.e[M.e.length-1]=M.primitives["car"]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6600,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-4]=RT.NULL; -return(_6594)(M);}}; - -var _6569=function(M){if(--M.cbt<0){throw _6569;} -M.e[M.e.length-8]=M.v; -return(_6551)(M);}; - -var _6550=function(M){if(--M.cbt<0){throw _6550;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-13][63]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-15][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6565,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-15][63]; -M.e[M.e.length-1]=M.e[M.e.length-16]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-17][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6557,M.p)); -return((M.p).label)(M);}}; - -var _6530=function(M){if(--M.cbt<0){throw _6530;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6534,M.p)); -return((M.p).label)(M);}; - -var _6511=function(M){if(--M.cbt<0){throw _6511;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6515,M.p)); -return((M.p).label)(M);}; - -var _6485=function(M){if(--M.cbt<0){throw _6485;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12][42]; -M.e[M.e.length-1]=M.primitives["car"]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6492,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-4]=RT.NULL; -return(_6486)(M);}}; - -var _6459=function(M){if(--M.cbt<0){throw _6459;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6463,M.p)); -return((M.p).label)(M);}; - -var _6435=function(M){if(--M.cbt<0){throw _6435;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-9],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-15][42]; -M.e[M.e.length-1]=M.primitives["car"]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6442,M.p)); -return((M.p).label)(M);}; - -var _6408=function(M){if(--M.cbt<0){throw _6408;} -if(M.v===false){M.e[M.e.length-1]=M.e[M.e.length-8]; -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6416,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-8],0,"add1")); -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6416,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _6370=function(M){if(--M.cbt<0){throw _6370;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+14),14); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6335=function(M){if(--M.cbt<0){throw _6335;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-12][26]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6339,M.p)); -return((M.p).label)(M);}; - -var _8695=function(M){if(--M.cbt<0){throw _8695;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8699,M.p)); -return((M.p).label)(M);}; - -var _6254=function(M){if(--M.cbt<0){throw _6254;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+14),14); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _8644=function(M){if(--M.cbt<0){throw _8644;} -return(_8630)(M);}; - -var _6189=function(M){if(--M.cbt<0){throw _6189;} -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-16][65]; -M.e[M.e.length-1]=M.e[M.e.length-17]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=M.e[M.e.length-13]; -M.v=RT.makePair(M.e[M.e.length-6],M.e[M.e.length-7]); -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+16),16); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-16][65]; -M.e[M.e.length-1]=M.e[M.e.length-17]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-6],M.e[M.e.length-13]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+16),16); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _6146=function(M){if(--M.cbt<0){throw _6146;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+14),14); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _8584=function(M){if(--M.cbt<0){throw _8584;} -return(_8574)(M);}; - -var _8531=function(M){if(--M.cbt<0){throw _8531;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8535,M.p)); -return((M.p).label)(M);}; - -var _8503=function(M){if(--M.cbt<0){throw _8503;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e[M.e.length-4]=RT.makePair(M.e[M.e.length-2],M.e[M.e.length-1]); -return(_8504)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5549,2,[],"loop"); -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5549,2,[],"loop"); -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8512,M.p)); -return((M.p).label)(M);}}else{M.e[M.e.length-4]=M.e[M.e.length-1]; -return(_8504)(M);}}; - -var _8432=function(M){if(--M.cbt<0){throw _8432;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+13),13); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _5965=function(M){if(--M.cbt<0){throw _5965;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][66]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.push(M.e[M.e.length-11]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5978,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-7][26]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-4]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][66]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.push(M.e[M.e.length-11]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5978,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-7][26]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _8343=function(M){if(--M.cbt<0){throw _8343;} -M.e[M.e.length-2]=M.v; -return(_8331)(M);}; - -var _8322=function(M){if(--M.cbt<0){throw _8322;} -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("drop-right"); -M.e[M.e.length-2]="non-negative exact integer"; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8326,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_8318)(M);}}; - -var _8235=function(M){if(--M.cbt<0){throw _8235;} -return(_8227)(M);}; - -var _5821=function(M){if(--M.cbt<0){throw _5821;} -return(_5813)(M);}; - -var _5789=function(M){if(--M.cbt<0){throw _5789;} -return(_5781)(M);}; - -var _8136=function(M){if(--M.cbt<0){throw _8136;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _5745=function(M){if(--M.cbt<0){throw _5745;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-9],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-7]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5842,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-7]; -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-7]; -M.v=M.e[M.e.length-6]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-9],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-8]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5753,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _8058=function(M){if(--M.cbt<0){throw _8058;} -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-3]); -if(M.v===false){M.v=M.e[M.e.length-3]; -M.v=M.e[M.e.length-2]; -M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][23]; -M.e[M.e.length-1]=RT.makeSymbol("split-at"); -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][3]; -M.e[M.e.length-1]="index ~e too large for list~a: "; -M.e[M.e.length-2]=M.e[M.e.length-12]; -M.v=RT.isList(M.e[M.e.length-11]); -if(M.v===false){M.v=" (not a proper list)"; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8136,M.p)); -return((M.p).label)(M);}else{M.v=""; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8136,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],0,"sub1"), 1); -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.push(M.e[M.e.length-7][20]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8077,M.p)); -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-6]; -M.v=M.e[M.e.length-5]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-6][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8062,M.p)); -return((M.p).label)(M);}}; - -var _8029=function(M){if(--M.cbt<0){throw _8029;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("split-at"); -M.e[M.e.length-2]="non-negative exact integer"; -M.e[M.e.length-3]=1; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8033,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_8025)(M);}}; - -var _7993=function(M){if(--M.cbt<0){throw _7993;} -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.v=false; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-11][21]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-2]; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _7953=function(M){if(--M.cbt<0){throw _7953;} -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.v=false; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"sub1"), 1); -M.e.push(M.e[M.e.length-3][20]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7963,M.p)); -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-2]; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _5587=function(M){if(--M.cbt<0){throw _5587;} -return(_5579)(M);}; - -var _7739=function(M){if(--M.cbt<0){throw _7739;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7686=function(M){if(--M.cbt<0){throw _7686;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7633=function(M){if(--M.cbt<0){throw _7633;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7580=function(M){if(--M.cbt<0){throw _7580;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7527=function(M){if(--M.cbt<0){throw _7527;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7474=function(M){if(--M.cbt<0){throw _7474;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7421=function(M){if(--M.cbt<0){throw _7421;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7358=function(M){if(--M.cbt<0){throw _7358;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7311=function(M){if(--M.cbt<0){throw _7311;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7253=function(M){if(--M.cbt<0){throw _7253;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7195=function(M){if(--M.cbt<0){throw _7195;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7137=function(M){if(--M.cbt<0){throw _7137;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7079=function(M){if(--M.cbt<0){throw _7079;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _7021=function(M){if(--M.cbt<0){throw _7021;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6963=function(M){if(--M.cbt<0){throw _6963;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"sub1"), 1); -M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-8],M.e[M.e.length-3]); -M.e.push(M.e[M.e.length-7][20]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6971,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _6931=function(M){if(--M.cbt<0){throw _6931;} -M.e[M.e.length-4]=M.v; -return(_6869)(M);}; - -var _6911=function(M){if(--M.cbt<0){throw _6911;} -M.e[M.e.length-4]=M.v; -return(_6889)(M);}; - -var _6885=function(M){if(--M.cbt<0){throw _6885;} -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-12][23]; -M.e[M.e.length-1]=RT.makeSymbol("take"); -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-15][3]; -M.e[M.e.length-1]="index ~e too large for list~a: "; -M.e[M.e.length-2]=M.e[M.e.length-17]; -M.v=RT.isList(M.e[M.e.length-16]); -if(M.v===false){M.v=" (not a proper list)"; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6917,M.p)); -return((M.p).label)(M);}else{M.v=""; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6917,M.p)); -return((M.p).label)(M);}}else{M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"sub1"), 1); -M.e.push(M.e[M.e.length-13][20]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6895,M.p)); -return((M.p).label)(M);}}else{M.e[M.e.length-4]=RT.NULL; -return(_6879)(M);}}; - -var _6845=function(M){if(--M.cbt<0){throw _6845;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6805=function(M){if(--M.cbt<0){throw _6805;} -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-3]); -if(M.v===false){M.v=M.e[M.e.length-3]; -M.v=M.e[M.e.length-2]; -M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-13][23]; -M.e[M.e.length-1]=RT.makeSymbol("split-at"); -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-16][3]; -M.e[M.e.length-1]="index ~e too large for list~a: "; -M.e[M.e.length-2]=M.e[M.e.length-18]; -M.v=RT.isList(M.e[M.e.length-17]); -if(M.v===false){M.v=" (not a proper list)"; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6825,M.p)); -return((M.p).label)(M);}else{M.v=""; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6825,M.p)); -return((M.p).label)(M);}}else{M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-15][60]; -M.e[M.e.length-1]=M.e[M.e.length-16]; -M.e[M.e.length-2]=M.e[M.e.length-17]; -M.e[M.e.length-3]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.e[M.e.length-4]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-7],0,"sub1"), 1); -M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+15),15); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-12]; -M.v=M.e[M.e.length-11]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-12][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6809,M.p)); -return((M.p).label)(M);}}; - -var _6767=function(M){if(--M.cbt<0){throw _6767;} -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-3]); -if(M.v===false){M.v=M.e[M.e.length-3]; -M.v=M.e[M.e.length-2]; -M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][23]; -M.e[M.e.length-1]=RT.makeSymbol("split-at"); -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][3]; -M.e[M.e.length-1]="index ~e too large for list~a: "; -M.e[M.e.length-2]=M.e[M.e.length-12]; -M.v=RT.isList(M.e[M.e.length-11]); -if(M.v===false){M.v=" (not a proper list)"; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6845,M.p)); -return((M.p).label)(M);}else{M.v=""; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6845,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],0,"sub1"), 1); -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.e.push(M.e[M.e.length-7][20]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6786,M.p)); -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-6]; -M.v=M.e[M.e.length-5]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-6][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6771,M.p)); -return((M.p).label)(M);}}; - -var _6730=function(M){if(--M.cbt<0){throw _6730;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+7),7); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6681=function(M){if(--M.cbt<0){throw _6681;} -return(_6664)(M);}; - -var _6650=function(M){if(--M.cbt<0){throw _6650;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=13; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _6646=function(M){if(--M.cbt<0){throw _6646;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6650,M.p)); -return((M.p).label)(M);}; - -var _6623=function(M){if(--M.cbt<0){throw _6623;} -M.e[M.e.length-5]=M.v; -return(_6605)(M);}; - -var _6585=function(M){if(--M.cbt<0){throw _6585;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6628,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-11][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6593,M.p)); -return((M.p).label)(M);}}; - -var _6565=function(M){if(--M.cbt<0){throw _6565;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6569,M.p)); -return((M.p).label)(M);}; - -var _6546=function(M){if(--M.cbt<0){throw _6546;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6550,M.p)); -return((M.p).label)(M);}; - -var _6526=function(M){if(--M.cbt<0){throw _6526;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-7]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_6516)(M);}; - -var _6504=function(M){if(--M.cbt<0){throw _6504;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-16]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-17][42]; -M.e[M.e.length-1]=M.primitives["car"]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6511,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-4]=RT.NULL; -return(_6505)(M);}}; - -var _6477=function(M){if(--M.cbt<0){throw _6477;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6574,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6485,M.p)); -return((M.p).label)(M);}}; - -var _6453=function(M){if(--M.cbt<0){throw _6453;} -M.e[M.e.length-3]=M.v; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-18]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-19][42]; -M.e[M.e.length-1]=M.primitives["car"]; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6459,M.p)); -return((M.p).label)(M);}; - -var _6427=function(M){if(--M.cbt<0){throw _6427;} -if(M.v===false){M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-11][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6435,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],0,"add1")); -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-11][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6435,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _6404=function(M){if(--M.cbt<0){throw _6404;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6408,M.p)); -return((M.p).label)(M);}; - -var _6366=function(M){if(--M.cbt<0){throw _6366;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-12][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6370,M.p)); -return((M.p).label)(M);}; - -var _6328=function(M){if(--M.cbt<0){throw _6328;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-3],M.e[M.e.length-4]); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.push(M.e[M.e.length-13]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6382,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-11]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-12][26]); -M.v=M.e[M.e.length-16]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6366,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-3],M.e[M.e.length-13]); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.push(M.e[M.e.length-13]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6351,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-11]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-12][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6335,M.p)); -return((M.p).label)(M);}}}; - -var _6285=function(M){if(--M.cbt<0){throw _6285;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+14),14); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6250=function(M){if(--M.cbt<0){throw _6250;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-12][26]); -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6254,M.p)); -return((M.p).label)(M);}; - -var _6220=function(M){if(--M.cbt<0){throw _6220;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-3],M.e[M.e.length-4]); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.push(M.e[M.e.length-10]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6328,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-8]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-9][26]); -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6312,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-3],M.e[M.e.length-10]); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.push(M.e[M.e.length-10]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6243,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-8]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-9][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6227,M.p)); -return((M.p).label)(M);}}}; - -var _6177=function(M){if(--M.cbt<0){throw _6177;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+14),14); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6142=function(M){if(--M.cbt<0){throw _6142;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-12][26]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6146,M.p)); -return((M.p).label)(M);}; - -var _6104=function(M){if(--M.cbt<0){throw _6104;} -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-16][65]; -M.e[M.e.length-1]=M.e[M.e.length-17]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=M.e[M.e.length-10]; -M.v=RT.makePair(M.e[M.e.length-6],M.e[M.e.length-7]); -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+16),16); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-16][65]; -M.e[M.e.length-1]=M.e[M.e.length-17]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-6],M.e[M.e.length-10]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+16),16); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _6061=function(M){if(--M.cbt<0){throw _6061;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+14),14); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _6034=function(M){if(--M.cbt<0){throw _6034;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-9][26]); -M.v=M.e[M.e.length-14]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6038,M.p)); -return((M.p).label)(M);}; - -var _6004=function(M){if(--M.cbt<0){throw _6004;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-3],M.e[M.e.length-8]); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.push(M.e[M.e.length-7]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6220,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-6][26]); -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6204,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-3],M.e[M.e.length-7]); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.push(M.e[M.e.length-7]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6027,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-6][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6011,M.p)); -return((M.p).label)(M);}}}; - -var _5988=function(M){if(--M.cbt<0){throw _5988;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-3][26]); -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5992,M.p)); -return((M.p).label)(M);}; - -var _5937=function(M){if(--M.cbt<0){throw _5937;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-6]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5951,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-3][26]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-5]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-6]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5951,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-3][26]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _5899=function(M){if(--M.cbt<0){throw _5899;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-6][49]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5906,M.p)); -return((M.p).label)(M);}; - -var _5867=function(M){if(--M.cbt<0){throw _5867;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-7][49]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5874,M.p)); -return((M.p).label)(M);}; - -var _5827=function(M){if(--M.cbt<0){throw _5827;} -if(M.v===false){M.e.length+=6; -M.e[M.e.length-6]=M.e[M.e.length-13][67]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=M.e[M.e.length-15]; -M.e[M.e.length-3]=M.e[M.e.length-16]; -M.e[M.e.length-4]=M.e[M.e.length-11]; -M.e[M.e.length-5]=M.e[M.e.length-12]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(6+13),13); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=6; -M.e[M.e.length-6]=M.e[M.e.length-13][67]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=M.e[M.e.length-15]; -M.e[M.e.length-3]=M.e[M.e.length-16]; -M.e[M.e.length-4]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"car")).first; -M.e[M.e.length-5]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(6+13),13); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5795=function(M){if(--M.cbt<0){throw _5795;} -if(M.v===false){M.e.length+=6; -M.e[M.e.length-6]=M.e[M.e.length-14][67]; -M.e[M.e.length-1]=M.e[M.e.length-15]; -M.e[M.e.length-2]=M.e[M.e.length-16]; -M.e[M.e.length-3]=M.e[M.e.length-17]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.e[M.e.length-5]=M.e[M.e.length-10]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(6+14),14); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=6; -M.e[M.e.length-6]=M.e[M.e.length-14][67]; -M.e[M.e.length-1]=M.e[M.e.length-15]; -M.e[M.e.length-2]=M.e[M.e.length-16]; -M.e[M.e.length-3]=M.e[M.e.length-17]; -M.e[M.e.length-4]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"car")).first; -M.e[M.e.length-5]=M.e[M.e.length-7]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(6+14),14); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5778=function(M){if(--M.cbt<0){throw _5778;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-8][49]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5785,M.p)); -return((M.p).label)(M);}; - -var _5739=function(M){if(--M.cbt<0){throw _5739;} -return(_5731)(M);}; - -var _5708=function(M){if(--M.cbt<0){throw _5708;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-9][1]; -M.e[M.e.length-1]=RT.makeSymbol("argmin"); -M.e[M.e.length-2]="procedure that returns real numbers"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-10]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5712,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5704)(M);}}; - -var _5701=function(M){if(--M.cbt<0){throw _5701;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-4][49]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5708,M.p)); -return((M.p).label)(M);}; - -var _5636=function(M){if(--M.cbt<0){throw _5636;} -return(_5628)(M);}; - -var _5632=function(M){if(--M.cbt<0){throw _5632;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-9][1]; -M.e[M.e.length-1]=RT.makeSymbol("argmax"); -M.e[M.e.length-2]="procedure that returns real numbers"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-10]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5636,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5628)(M);}}; - -var _5583=function(M){if(--M.cbt<0){throw _5583;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-7][1]; -M.e[M.e.length-1]=RT.makeSymbol("argmax"); -M.e[M.e.length-2]="procedure that returns real numbers"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-8]; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5587,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_5579)(M);}}; - - - -var _9917=function(M){if(--M.cbt<0){throw _9917;} -M.e.length-=(M.a-1); -return(_9918)(M);}; - - -var _9901=function(M){if(--M.cbt<0){throw _9901;} -M.e.length-=(M.a-1); -return(_9902)(M);}; - -var _9893=function(M){if(--M.cbt<0){throw _9893;} -M.e.length-=(M.a-1); -return(_9894)(M);}; - - -var _9877=function(M){if(--M.cbt<0){throw _9877;} -M.e.length-=(M.a-1); -return(_9878)(M);}; - -var _9869=function(M){if(--M.cbt<0){throw _9869;} -M.e.length-=(M.a-1); -return(_9870)(M);}; - - -var _9309=function(M){if(--M.cbt<0){throw _9309;} -M.e.length-=(M.a-1); -return(_9296)(M);}; - - - - -var _5569=function(M){if(--M.cbt<0){throw _5569;} -M.e.length-=M.a; -return(_5570)(M);}; - - - - -var _5567=function(M){if(--M.cbt<0){throw _5567;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][37]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9795,M.p)); -return((M.p).label)(M);}; - -var _9782=function(M){if(--M.cbt<0){throw _9782;} -M.e.length-=(M.a-1); -return(_9775)(M);}; - - -var _9767=function(M){if(--M.cbt<0){throw _9767;} -M.e.length-=(M.a-1); -return(_9762)(M);}; - -var _8159=function(M){if(--M.cbt<0){throw _8159;} -M.e.length-=(M.a-1); -return(_8152)(M);}; - -var _5566=function(M){if(--M.cbt<0){throw _5566;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][37]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9752,M.p)); -return((M.p).label)(M);}; - - - - - - - - - - - - - - - - - - - - - - - -var _5564=function(M){if(--M.cbt<0){throw _5564;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][37]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9543,M.p)); -return((M.p).label)(M);}; - - -var _5562=function(M){if(--M.cbt<0){throw _5562;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-3][32]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][42]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9523,M.p)); -return((M.p).label)(M);}; - - - - - -var _9746=function(M){--M.cbt<0; -M.v=RT.isList(M.e[M.e.length-3]); -if(M.v===false){M.v=false; -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("argmin"); -M.e[M.e.length-2]="non-empty list"; -M.e[M.e.length-3]=1; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9768,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_9762)(M);}}else{M.v=RT.isPair(M.e[M.e.length-3]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("argmin"); -M.e[M.e.length-2]="non-empty list"; -M.e[M.e.length-3]=1; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9768,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_9762)(M);}}}; - - - - - - - - - - - - - - - - - - - - - - - - - - -var _5558=function(M){if(--M.cbt<0){throw _5558;} -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-3]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9261,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-3]; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - - - - - - -var _8627=function(M){if(--M.cbt<0){throw _8627;} -M.e.length-=(M.a-1); -return(_8602)(M);}; - - - - - - - - - - - -var _8018=function(M){if(--M.cbt<0){throw _8018;} -M.e.length-=(M.a-1); -return(_8011)(M);}; - - - -var _5549=function(M){if(--M.cbt<0){throw _5549;} -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e[M.e.length-2]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-5]); -return(_8494)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5549,2,[],"loop"); -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8503,M.p)); -return((M.p).label)(M);}}else{M.e[M.e.length-2]=M.e[M.e.length-5]; -return(_8494)(M);}}}else{M.v=M.e[M.e.length-2]; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - -var _5546=function(M){if(--M.cbt<0){throw _5546;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=5; -M.e[M.e.length-5]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-6][32]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _5545=function(M){if(--M.cbt<0){throw _5545;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=4; -M.e[M.e.length-4]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-5][32]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-3]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - - - - - - - - - - - - - - - - - -var _8325=function(M){if(--M.cbt<0){throw _8325;} -M.e.length-=(M.a-1); -return(_8318)(M);}; - - - - - - - - - -var _5554=function(M){if(--M.cbt<0){throw _5554;} -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-2]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8858,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _8234=function(M){if(--M.cbt<0){throw _8234;} -M.e.length-=(M.a-1); -return(_8227)(M);}; - - - - - - - - - - - - -var _8643=function(M){if(--M.cbt<0){throw _8643;} -M.e.length-=(M.a-1); -return(_8630)(M);}; - - - - - - - - - - - -var _8032=function(M){if(--M.cbt<0){throw _8032;} -M.e.length-=(M.a-1); -return(_8025)(M);}; - - - - - -var _5548=function(M){if(--M.cbt<0){throw _5548;} -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5549,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=RT.NULL; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -M.e.splice(M.e.length-(2+1),1); -M.c[M.c.length-1].p=M.p; -return(_5549)(M);}; - -var _5547=function(M){if(--M.cbt<0){throw _5547;} -M.unspliceRestFromStack(1,(M.a-1)); -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=4; -M.e[M.e.length-4]=M.primitives["apply"]; -M.e[M.e.length-1]=M.primitives["apply"]; -M.e[M.e.length-2]=M.e[M.e.length-5][32]; -M.e[M.e.length-3]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _5544=function(M){if(--M.cbt<0){throw _5544;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-4][32]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _5542=function(M){if(--M.cbt<0){throw _5542;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 3]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 4]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 5]).racketArity,M.a)){return(_5543)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 5]; -return(_5547)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 4]; -return(_5546)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 3]; -return(_5545)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_5544)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_5543)(M);}}; - - - - - - - - -var _8388=function(M){if(--M.cbt<0){throw _8388;} -M.e.length-=(M.a-1); -return(_8381)(M);}; - - - -var _5540=function(M){if(--M.cbt<0){throw _5540;} -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.v=RT.NULL; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e[M.e.length-4]=RT.NULL; -return(_8365)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e[M.e.length-4]=RT.NULL; -return(_8369)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e[M.e.length-4]=RT.NULL; -return(_8373)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5540,2,[],"loop"); -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8379,M.p)); -return((M.p).label)(M);}}}}}; - - - - - - - - -var _5538=function(M){if(--M.cbt<0){throw _5538;} -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5538,2,[],"loop"); -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}}}}; - - - - -var _5537=function(M){if(--M.cbt<0){throw _5537;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][19]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8231,M.p)); -return((M.p).label)(M);}; - - - - - - - - - - - - - - - - - - - - - - - -var _5535=function(M){if(--M.cbt<0){throw _5535;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][19]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8029,M.p)); -return((M.p).label)(M);}; - - -var _5534=function(M){if(--M.cbt<0){throw _5534;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][19]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8015,M.p)); -return((M.p).label)(M);}; - - - - - - - - - - -var _7904=function(M){if(--M.cbt<0){throw _7904;} -M.e.length-=(M.a-1); -return(_7897)(M);}; - -var _5531=function(M){if(--M.cbt<0){throw _5531;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][19]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7901,M.p)); -return((M.p).label)(M);}; - -var _5530=function(M){if(--M.cbt<0){throw _5530;} -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - - - - -var _9619=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]="procedure (arity 1)"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9631,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_9617)(M);}}; - - - -var _9537=function(M){--M.cbt<0; -M.v=RT.isList(M.e[M.e.length-3]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("filter-not"); -M.e[M.e.length-2]="proper list"; -M.e[M.e.length-3]=1; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9557,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_9553)(M);}}; - - - - - - - - - - -var _9298=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("partition"); -M.e[M.e.length-2]="procedure (arity 1)"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9310,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_9296)(M);}}; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -var _5877=function(M){if(--M.cbt<0){throw _5877;} -M.e.length-=(M.a-1); -return(_5870)(M);}; - - - - - - - - - - - - - - - - - - - - - - - - - - - - -var _9791=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("argmax"); -M.e[M.e.length-2]="procedure (arity 1)"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9803,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_9789)(M);}}; - - - - - - - - - - - - - - - - - - - - - - - - - - - -var _5852=function(M){if(--M.cbt<0){throw _5852;} -M.e.length-=(M.a-1); -return(_5845)(M);}; - - - - - -var _5788=function(M){if(--M.cbt<0){throw _5788;} -M.e.length-=(M.a-1); -return(_5781)(M);}; - - - - -var _5738=function(M){if(--M.cbt<0){throw _5738;} -M.e.length-=(M.a-1); -return(_5731)(M);}; - - - - - - - - - - - - - - - - - - - - -var _9690=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-11]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9704,M.p)); -return((M.p).label)(M);}; - - - - - - - - - - - - - - -var _5909=function(M){if(--M.cbt<0){throw _5909;} -M.e.length-=(M.a-1); -return(_5902)(M);}; - - - - - - - - -var _5820=function(M){if(--M.cbt<0){throw _5820;} -M.e.length-=(M.a-1); -return(_5813)(M);}; - - - - - - -var _5763=function(M){if(--M.cbt<0){throw _5763;} -M.e.length-=(M.a-1); -return(_5756)(M);}; - - - - - -var _5711=function(M){if(--M.cbt<0){throw _5711;} -M.e.length-=(M.a-1); -return(_5704)(M);}; - - -var _5683=function(M){if(--M.cbt<0){throw _5683;} -M.e.length-=(M.a-1); -return(_5676)(M);}; - - -var _5662=function(M){if(--M.cbt<0){throw _5662;} -M.e.length-=(M.a-1); -return(_5655)(M);}; - - -var _5635=function(M){if(--M.cbt<0){throw _5635;} -M.e.length-=(M.a-1); -return(_5628)(M);}; - - - -var _5607=function(M){if(--M.cbt<0){throw _5607;} -M.e.length-=(M.a-1); -return(_5600)(M);}; - - -var _5586=function(M){if(--M.cbt<0){throw _5586;} -M.e.length-=(M.a-1); -return(_5579)(M);}; - - -var _5496=function(M){if(--M.cbt<0){throw _5496;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-5]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-3]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5576,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-3]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _9805=function(M){--M.cbt<0; -M.e.length+=1; -M.e.push(M.e[M.e.length-3]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9815,M.p)); -return((M.p).label)(M);}; - -var _9775=function(M){--M.cbt<0; -M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-6][68]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"car")).first; -M.e[M.e.length-3]=M.e[M.e.length-5]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _9762=function(M){--M.cbt<0; -M.e.length+=1; -M.e.push(M.e[M.e.length-3]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9772,M.p)); -return((M.p).label)(M);}; - -var _9748=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("argmin"); -M.e[M.e.length-2]="procedure (arity 1)"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9760,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_9746)(M);}}; - -var _9722=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9736,M.p)); -return((M.p).label)(M);}; - -var _9665=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9679,M.p)); -return((M.p).label)(M);}; - -var _9633=function(M){--M.cbt<0; -M.e.length+=1; -M.e.push(M.e[M.e.length-5]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9643,M.p)); -return((M.p).label)(M);}; - -var _9617=function(M){--M.cbt<0; -M.v=RT.isList(M.e[M.e.length-5]); -if(M.v===false){M.v=false; -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]="non-empty list"; -M.e[M.e.length-3]=1; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9639,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_9633)(M);}}else{M.v=RT.isPair(M.e[M.e.length-5]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]="non-empty list"; -M.e[M.e.length-3]=1; -M.e[M.e.length-4]=M.e[M.e.length-9]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9639,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_9633)(M);}}}; - -var _5565=function(M){if(--M.cbt<0){throw _5565;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][37]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9623,M.p)); -return((M.p).label)(M);}; - -var _9553=function(M){--M.cbt<0; -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-4]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9570,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-1][26]); -M.v=RT.NULL; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5561=function(M){if(--M.cbt<0){throw _5561;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-3][32]; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5][42]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9515,M.p)); -return((M.p).label)(M);}; - -var _5560=function(M){if(--M.cbt<0){throw _5560;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 3]).racketArity,M.a)){return(_5561)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 3]; -return(_5563)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_5562)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_5561)(M);}}; - -var _9312=function(M){--M.cbt<0; -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.push(M.e[M.e.length-4]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9338,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-3]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-3][26]); -M.v=RT.NULL; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9322,M.p)); -return((M.p).label)(M);}}; - -var _5559=function(M){if(--M.cbt<0){throw _5559;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][37]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9302,M.p)); -return((M.p).label)(M);}; - -var _5557=function(M){if(--M.cbt<0){throw _5557;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.push(M.e[M.e.length-4][39]); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9252,M.p)); -return((M.p).label)(M);}; - -var _5556=function(M){if(--M.cbt<0){throw _5556;} -M.v=RT.isList(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.v=false; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _5731=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5745,M.p)); -return((M.p).label)(M);}; - -var _9936=function(M){if(--M.cbt<0){throw _9936;} -M.c.push(new RT.PromptFrame(_9938,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5566,2,[M.e[M.e.length-1]],"argmin"); -M.e[M.e.length-1][50]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _8318=function(M){--M.cbt<0; -M.e.length+=1; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5][21]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8330,M.p)); -return((M.p).label)(M);}; - -var _8240=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-3]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=12; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=14; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=16; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=18; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=20; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=22; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5538,2,[],"loop"); -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -M.e.splice(M.e.length-(2+22),22); -M.c[M.c.length-1].p=M.p; -return(_5538)(M);}}}}}}}}}}}; - -var _8991=function(M){--M.cbt<0; -M.e.length-=1; -return(_8984)(M);}; - -var _9296=function(M){--M.cbt<0; -M.v=RT.isList(M.e[M.e.length-3]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("partition"); -M.e[M.e.length-2]="proper list"; -M.e[M.e.length-3]=1; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9316,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_9312)(M);}}; - -var _9934=function(M){if(--M.cbt<0){throw _9934;} -M.c.push(new RT.PromptFrame(_9936,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5565,4,[M.e[M.e.length-1]],"mk-min"); -M.e[M.e.length-1][48]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _8369=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_8365)(M);}; - -var _9872=function(M){if(--M.cbt<0){throw _9872;} -M.c.push(new RT.PromptFrame(_9874,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5516,1,[M.e[M.e.length-1]],"third"); -M.e[M.e.length-1][4]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9095=function(M){--M.cbt<0; -M.v=RT.isPair(M.e[M.e.length-4]); -if(M.v===false){M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-4]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9214,M.p)); -return((M.p).label)(M);}else{M.v=0; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=1; -M.e.push(M.e[M.e.length-2][39]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9115,M.p)); -return((M.p).label)(M);}}; - -var _8170=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -return(_8162)(M);}; - -var _5870=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5884,M.p)); -return((M.p).label)(M);}; - -var _9002=function(M){--M.cbt<0; -M.e.length-=1; -return(_8981)(M);}; - -var _8025=function(M){--M.cbt<0; -M.e.push(M.e[M.e.length-1][20]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8039,M.p)); -return((M.p).label)(M);}; - -var _8862=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5781=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-11]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5795,M.p)); -return((M.p).label)(M);}; - -var _8946=function(M){--M.cbt<0; -M.e.length-=1; -return(_8925)(M);}; - -var _9932=function(M){if(--M.cbt<0){throw _9932;} -M.c.push(new RT.PromptFrame(_9934,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5564,2,[M.e[M.e.length-1]],"filter-not"); -M.e[M.e.length-1][47]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _8381=function(M){--M.cbt<0; -M.e.length+=1; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5][21]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8393,M.p)); -return((M.p).label)(M);}; - -var _8365=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9818=function(M){--M.cbt<0; -M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-6][69]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"car")).first; -M.e[M.e.length-3]=M.e[M.e.length-5]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _9789=function(M){--M.cbt<0; -M.v=RT.isList(M.e[M.e.length-3]); -if(M.v===false){M.v=false; -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("argmax"); -M.e[M.e.length-2]="non-empty list"; -M.e[M.e.length-3]=1; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9811,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_9805)(M);}}else{M.v=RT.isPair(M.e[M.e.length-3]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("argmax"); -M.e[M.e.length-2]="non-empty list"; -M.e[M.e.length-3]=1; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9811,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_9805)(M);}}}; - -var _9870=function(M){if(--M.cbt<0){throw _9870;} -M.c.push(new RT.PromptFrame(_9872,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5515,1,[M.e[M.e.length-1]],"second"); -M.e[M.e.length-1][2]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9097=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("count"); -M.e[M.e.length-2]="proper list"; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][41]; -M.e[M.e.length-1]=new RT.Closure(_5556,1,[],"...ng/lang/list.rkt:279:12"); -M.v=RT.makePair(M.e[M.e.length-8],M.e[M.e.length-9]); -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9105,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_9095)(M);}}; - -var _8162=function(M){--M.cbt<0; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][23]; -M.e[M.e.length-1]=RT.makeSymbol("drop"); -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-8][3]; -M.e[M.e.length-1]="index ~e too large for list~a: "; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.v=RT.isList(M.e[M.e.length-9]); -if(M.v===false){M.v=" (not a proper list)"; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8221,M.p)); -return((M.p).label)(M);}else{M.v=""; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8221,M.p)); -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _5902=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=M.e[M.e.length-13]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5916,M.p)); -return((M.p).label)(M);}; - -var _9030=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9009=function(M){--M.cbt<0; -M.e.length-=1; -return(_9002)(M);}; - -var _5813=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5827,M.p)); -return((M.p).label)(M);}; - -var _8011=function(M){--M.cbt<0; -M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-5][59]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _5756=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5770,M.p)); -return((M.p).label)(M);}; - -var _8925=function(M){--M.cbt<0; -M.e.length-=1; -return(_8918)(M);}; - -var _8907=function(M){--M.cbt<0; -M.e.length-=1; -return(_8900)(M);}; - -var _8882=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_8879)(M);}; - -var _5628=function(M){--M.cbt<0; -M.v=((plt.baselib.numbers.greaterThan(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,">"),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-7],1,">")))); -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-8][69]; -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-3]=M.e[M.e.length-11]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-8][69]; -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e[M.e.length-3]=M.e[M.e.length-5]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _5579=function(M){--M.cbt<0; -M.v=((plt.baselib.numbers.greaterThan(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,">"),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],1,">")))); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-5]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5625,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-5]; -M.v=M.e[M.e.length-4]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-6]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5597,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _6879=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_6869)(M);}; - -var _8630=function(M){--M.cbt<0; -M.v=RT.isPair(M.e[M.e.length-4]); -if(M.v===false){M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-3]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8752,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e.length+=1; -M.e.push(M.e[M.e.length-2][39]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8650,M.p)); -return((M.p).label)(M);}}; - -var _9930=function(M){if(--M.cbt<0){throw _9930;} -M.c.push(new RT.PromptFrame(_9932,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.length+=3; -M.e[M.e.length-1]=new RT.Closure(_5561,2,[M.e[M.e.length-4]],"...ng/lang/list.rkt:318:15"); -M.e[M.e.length-2]=new RT.Closure(_5562,3,[M.e[M.e.length-4]],"...ng/lang/list.rkt:319:15"); -M.e[M.e.length-3]=new RT.Closure(_5563,(RT.makeArityAtLeast(2)),[M.e[M.e.length-4]],"...ng/lang/list.rkt:320:15"); -M.v=new RT.Closure(_5560,RT.makePair(2,RT.makePair(3,RT.makePair((RT.makeArityAtLeast(2)),RT.NULL))),[M.e[M.e.length-3],M.e[M.e.length-2],M.e[M.e.length-1]],"append-map"); -M.e.length-=3; -M.e[M.e.length-1][46]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9928=function(M){if(--M.cbt<0){throw _9928;} -M.c.push(new RT.PromptFrame(_9930,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5559,2,[M.e[M.e.length-1]],"partition"); -M.e[M.e.length-1][45]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _8394=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-4][26]); -M.v=RT.NULL; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8456,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"car")).first; -M.e[M.e.length-2]=RT.NULL; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-7][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8448,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-10][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8440,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-13][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8432,M.p)); -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-14][61]; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+13),13); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}}}; - -var _9912=function(M){if(--M.cbt<0){throw _9912;} -M.c.push(new RT.PromptFrame(_9914,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5537,2,[M.e[M.e.length-1]],"take-right"); -M.e[M.e.length-1][28]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9904=function(M){if(--M.cbt<0){throw _9904;} -M.c.push(new RT.PromptFrame(_9906,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5533,3,[M.e[M.e.length-1]],"too-large"); -M.e[M.e.length-1][22]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _8352=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_8348)(M);}; - -var _8331=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=RT.NULL; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e[M.e.length-4]=RT.NULL; -return(_8348)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e[M.e.length-4]=RT.NULL; -return(_8352)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e[M.e.length-4]=RT.NULL; -return(_8356)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5540,2,[],"loop"); -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -M.c.push(new RT.CallFrame(_8361,M.p)); -return(_5540)(M);}}}}}; - -var _9868=function(M){if(--M.cbt<0){throw _9868;} -M.c.push(new RT.PromptFrame(_9870,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5514,1,[M.e[M.e.length-1]],"first"); -M.e[M.e.length-1][0]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9856=function(M){if(--M.cbt<0){throw _9856;} -M.c.push(new RT.PromptFrame(_9858,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5508,3,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][57]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9840=function(M){if(--M.cbt<0){throw _9840;} -M.c.push(new RT.PromptFrame(_9842,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5500,4,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][65]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9931=function(M){if(--M.cbt<0){throw _9931;} -M.e.length-=(M.a-1); -return(_9932)(M);}; - -var _9067=function(M){--M.cbt<0; -M.v=RT.isList(M.e[M.e.length-3]); -if(M.v===false){M.v=false; -return(_9097)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][40]; -M.e[M.e.length-1]=M.primitives["list?"]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9101,M.p)); -return((M.p).label)(M);}}; - -var _9915=function(M){if(--M.cbt<0){throw _9915;} -M.e.length-=(M.a-1); -return(_9916)(M);}; - -var _8190=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -return(_8180)(M);}; - -var _8200=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -return(_8190)(M);}; - -var _8152=function(M){--M.cbt<0; -M.e.length+=1; -M.e.push(M.e[M.e.length-2][20]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8166,M.p)); -return((M.p).label)(M);}; - -var _5845=function(M){--M.cbt<0; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5859,M.p)); -return((M.p).label)(M);}; - -var _9867=function(M){if(--M.cbt<0){throw _9867;} -M.e.length-=(M.a-1); -return(_9868)(M);}; - -var _8984=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_8981)(M);}; - -var _9851=function(M){if(--M.cbt<0){throw _9851;} -M.e.length-=(M.a-1); -return(_9852)(M);}; - -var _8918=function(M){--M.cbt<0; -M.e.length-=1; -return(_8869)(M);}; - -var _9835=function(M){if(--M.cbt<0){throw _9835;} -M.e.length-=(M.a-1); -return(_9836)(M);}; - -var _5655=function(M){--M.cbt<0; -M.v=((plt.baselib.numbers.lessThan(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"<"),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],1,"<")))); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-5]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5701,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=M.e[M.e.length-5]; -M.v=M.e[M.e.length-4]; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-6]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_5673,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - - - -var _9759=function(M){if(--M.cbt<0){throw _9759;} -M.e.length-=(M.a-1); -return(_9746)(M);}; - -var _8654=function(M){--M.cbt<0; -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingBegin0Count=M.a; -M.unspliceRestFromStack(0,M.a); -M.c[M.c.length-1].pendingBegin0Values=M.e[M.e.length-1]; -M.e.length-=1; -M.v=M.e[M.e.length-3]; -M.e.push(M.c[M.c.length-1].pendingBegin0Values); -M.spliceListIntoStack(0); -M.a=M.c[M.c.length-1].pendingBegin0Count; -M.c.pop(); -if(M.a===0){return(_8655)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=1; -return(_8655)(M);}}; - -var _8689=function(M){--M.cbt<0; -M.e.length-=1; -return(_8678)(M);}; - -var _8632=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("filter-map"); -M.e[M.e.length-2]="proper list"; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][41]; -M.e[M.e.length-1]=new RT.Closure(_5552,1,[],"...ng/lang/list.rkt:253:12"); -M.v=RT.makePair(M.e[M.e.length-8],M.e[M.e.length-9]); -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8640,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_8630)(M);}}; - -var _6667=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6681,M.p)); -return((M.p).label)(M);}; - -var _9556=function(M){if(--M.cbt<0){throw _9556;} -M.e.length-=(M.a-1); -return(_9553)(M);}; - -var _9926=function(M){if(--M.cbt<0){throw _9926;} -M.c.push(new RT.PromptFrame(_9928,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5555,(RT.makeArityAtLeast(2)),[M.e[M.e.length-1]],"count"); -M.e[M.e.length-1][44]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9920=function(M){if(--M.cbt<0){throw _9920;} -M.c.push(new RT.PromptFrame(_9922,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5548,1,[],"flatten"); -M.e[M.e.length-1][33]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9910=function(M){if(--M.cbt<0){throw _9910;} -M.c.push(new RT.PromptFrame(_9912,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5536,2,[M.e[M.e.length-1]],"drop"); -M.e[M.e.length-1][27]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9902=function(M){if(--M.cbt<0){throw _9902;} -M.c.push(new RT.PromptFrame(_9904,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5532,2,[M.e[M.e.length-1]],"drop*"); -M.e[M.e.length-1][21]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _8373=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_8369)(M);}; - -var _8348=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _8356=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_8352)(M);}; - -var _9866=function(M){if(--M.cbt<0){throw _9866;} -M.c.push(new RT.PromptFrame(_9868,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5513,3,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][52]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9854=function(M){if(--M.cbt<0){throw _9854;} -M.c.push(new RT.PromptFrame(_9856,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5507,3,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][58]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9848=function(M){if(--M.cbt<0){throw _9848;} -M.c.push(new RT.PromptFrame(_9850,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5504,3,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][61]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9838=function(M){if(--M.cbt<0){throw _9838;} -M.c.push(new RT.PromptFrame(_9840,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5499,3,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][66]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9646=function(M){--M.cbt<0; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-8],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-8]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9662,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-2]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _9929=function(M){if(--M.cbt<0){throw _9929;} -M.e.length-=(M.a-1); -return(_9930)(M);}; - -var _8227=function(M){--M.cbt<0; -M.e.length+=1; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5][21]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8239,M.p)); -return((M.p).label)(M);}; - -var _9913=function(M){if(--M.cbt<0){throw _9913;} -M.e.length-=(M.a-1); -return(_9914)(M);}; - -var _9539=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("filter-not"); -M.e[M.e.length-2]="procedure (arity 1)"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9551,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_9537)(M);}}; - -var _9891=function(M){if(--M.cbt<0){throw _9891;} -M.e.length-=(M.a-1); -return(_9892)(M);}; - -var _9037=function(M){--M.cbt<0; -M.e.length-=1; -return(_9030)(M);}; - -var _8974=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9865=function(M){if(--M.cbt<0){throw _9865;} -M.e.length-=(M.a-1); -return(_9866)(M);}; - -var _9859=function(M){if(--M.cbt<0){throw _9859;} -M.e.length-=(M.a-1); -return(_9860)(M);}; - -var _9849=function(M){if(--M.cbt<0){throw _9849;} -M.e.length-=(M.a-1); -return(_9850)(M);}; - -var _8869=function(M){--M.cbt<0; -M.e.length-=1; -return(_8862)(M);}; - -var _9833=function(M){if(--M.cbt<0){throw _9833;} -M.e.length-=(M.a-1); -return(_9834)(M);}; - -var _5676=function(M){--M.cbt<0; -M.v=((plt.baselib.numbers.lessThan(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"<"),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],1,"<")))); -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-9][68]; -M.e[M.e.length-1]=M.e[M.e.length-10]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-9][68]; -M.e[M.e.length-1]=M.e[M.e.length-10]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e[M.e.length-3]=M.e[M.e.length-5]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - - - - -var _8655=function(M){--M.cbt<0; -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8659,M.p)); -return((M.p).label)(M);}; - - - -var _6664=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6685,M.p)); -return((M.p).label)(M);}; - - -var _8568=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8596,M.p)); -return((M.p).label)(M);}; - -var _6605=function(M){--M.cbt<0; -M.e.length-=1; -return(_6594)(M);}; - -var _6497=function(M){--M.cbt<0; -M.e.length-=1; -return(_6486)(M);}; - -var _8504=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -return(_8494)(M);}; - -var _9550=function(M){if(--M.cbt<0){throw _9550;} -M.e.length-=(M.a-1); -return(_9537)(M);}; - -var _9924=function(M){if(--M.cbt<0){throw _9924;} -M.c.push(new RT.PromptFrame(_9926,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5551,(RT.makeArityAtLeast(2)),[M.e[M.e.length-1]],"filter-map"); -M.e[M.e.length-1][36]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9918=function(M){if(--M.cbt<0){throw _9918;} -M.c.push(new RT.PromptFrame(_9920,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.length+=5; -M.e[M.e.length-1]=new RT.Closure(_5543,1,[M.e[M.e.length-6]],"...ng/lang/list.rkt:162:15"); -M.e[M.e.length-2]=new RT.Closure(_5544,2,[M.e[M.e.length-6]],"...ng/lang/list.rkt:163:15"); -M.e[M.e.length-3]=new RT.Closure(_5545,3,[M.e[M.e.length-6]],"...ng/lang/list.rkt:164:15"); -M.e[M.e.length-4]=new RT.Closure(_5546,4,[M.e[M.e.length-6]],"...ng/lang/list.rkt:165:15"); -M.e[M.e.length-5]=new RT.Closure(_5547,(RT.makeArityAtLeast(1)),[M.e[M.e.length-6]],"...ng/lang/list.rkt:166:15"); -M.v=new RT.Closure(_5542,RT.makePair(1,RT.makePair(2,RT.makePair(3,RT.makePair(4,RT.makePair((RT.makeArityAtLeast(1)),RT.NULL))))),[M.e[M.e.length-5],M.e[M.e.length-4],M.e[M.e.length-3],M.e[M.e.length-2],M.e[M.e.length-1]],"append*"); -M.e.length-=5; -M.e[M.e.length-1][31]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9908=function(M){if(--M.cbt<0){throw _9908;} -M.c.push(new RT.PromptFrame(_9910,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5535,2,[M.e[M.e.length-1]],"split-at"); -M.e[M.e.length-1][25]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9900=function(M){if(--M.cbt<0){throw _9900;} -M.c.push(new RT.PromptFrame(_9902,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5531,2,[M.e[M.e.length-1]],"make-list"); -M.e[M.e.length-1][18]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9896=function(M){if(--M.cbt<0){throw _9896;} -M.c.push(new RT.PromptFrame(_9898,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5530,1,[],"empty?"); -M.e[M.e.length-1][16]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9888=function(M){if(--M.cbt<0){throw _9888;} -M.c.push(new RT.PromptFrame(_9890,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5524,1,[M.e[M.e.length-1]],"last-pair"); -M.e[M.e.length-1][12]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9880=function(M){if(--M.cbt<0){throw _9880;} -M.c.push(new RT.PromptFrame(_9882,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5520,1,[M.e[M.e.length-1]],"seventh"); -M.e[M.e.length-1][8]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - -var _9864=function(M){if(--M.cbt<0){throw _9864;} -M.c.push(new RT.PromptFrame(_9866,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5512,3,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][53]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9852=function(M){if(--M.cbt<0){throw _9852;} -M.c.push(new RT.PromptFrame(_9854,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5506,4,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][59]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9846=function(M){if(--M.cbt<0){throw _9846;} -M.c.push(new RT.PromptFrame(_9848,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5503,2,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][62]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9836=function(M){if(--M.cbt<0){throw _9836;} -M.c.push(new RT.PromptFrame(_9838,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5498,6,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][67]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9826=function(M){if(--M.cbt<0){throw _9826;} -return(_9818)(M);}; - -var _9811=function(M){if(--M.cbt<0){throw _9811;} -return(_9805)(M);}; - -var _9939=function(M){if(--M.cbt<0){throw _9939;} -M.e.length-=(M.a-1); -return(_9940)(M);}; - -var _9927=function(M){if(--M.cbt<0){throw _9927;} -M.e.length-=(M.a-1); -return(_9928)(M);}; - -var _9069=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("count"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][3]; -M.e[M.e.length-1]="procedure (arity ~a)"; -M.e.length+=1; -M.e.push(M.e[M.e.length-7][39]); -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9085,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_9067)(M);}}; - -var _9911=function(M){if(--M.cbt<0){throw _9911;} -M.e.length-=(M.a-1); -return(_9912)(M);}; - -var _8180=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -return(_8170)(M);}; - -var _9899=function(M){if(--M.cbt<0){throw _9899;} -M.e.length-=(M.a-1); -return(_9900)(M);}; - -var _9889=function(M){if(--M.cbt<0){throw _9889;} -M.e.length-=(M.a-1); -return(_9890)(M);}; - -var _9883=function(M){if(--M.cbt<0){throw _9883;} -M.e.length-=(M.a-1); -return(_9884)(M);}; - -var _8981=function(M){--M.cbt<0; -M.e.length-=1; -return(_8974)(M);}; - -var _9863=function(M){if(--M.cbt<0){throw _9863;} -M.e.length-=(M.a-1); -return(_9864)(M);}; - -var _9857=function(M){if(--M.cbt<0){throw _9857;} -M.e.length-=(M.a-1); -return(_9858)(M);}; - -var _9847=function(M){if(--M.cbt<0){throw _9847;} -M.e.length-=(M.a-1); -return(_9848)(M);}; - -var _9843=function(M){if(--M.cbt<0){throw _9843;} -M.e.length-=(M.a-1); -return(_9844)(M);}; - -var _9832=function(M){--M.cbt<0; -M.modules["whalesong/lang/list.rkt"].isInvoked=true; -M.e.push([M.params.currentNamespace["first"]||M.primitives["first"],M.primitives["raise-type-error"],M.params.currentNamespace["second"]||M.primitives["second"],M.primitives["format"],M.params.currentNamespace["third"]||M.primitives["third"],M.params.currentNamespace["fourth"]||M.primitives["fourth"],M.params.currentNamespace["fifth"]||M.primitives["fifth"],M.params.currentNamespace["sixth"]||M.primitives["sixth"],M.params.currentNamespace["seventh"]||M.primitives["seventh"],M.params.currentNamespace["eighth"]||M.primitives["eighth"],M.params.currentNamespace["ninth"]||M.primitives["ninth"],M.params.currentNamespace["tenth"]||M.primitives["tenth"],M.params.currentNamespace["last-pair"]||M.primitives["last-pair"],M.params.currentNamespace["last"]||M.primitives["last"],M.params.currentNamespace["rest"]||M.primitives["rest"],M.params.currentNamespace["cons?"]||M.primitives["cons?"],M.params.currentNamespace["empty?"]||M.primitives["empty?"],M.params.currentNamespace["empty"]||M.primitives["empty"],M.params.currentNamespace["make-list"]||M.primitives["make-list"],M.primitives["exact-nonnegative-integer?"],M.primitives["zero?"],M.params.currentNamespace["drop*"]||M.primitives["drop*"],M.params.currentNamespace["too-large"]||M.primitives["too-large"],M.primitives["raise-mismatch-error"],M.params.currentNamespace["take"]||M.primitives["take"],M.params.currentNamespace["split-at"]||M.primitives["split-at"],M.primitives["reverse"],M.params.currentNamespace["drop"]||M.primitives["drop"],M.params.currentNamespace["take-right"]||M.primitives["take-right"],M.params.currentNamespace["drop-right"]||M.primitives["drop-right"],M.params.currentNamespace["split-at-right"]||M.primitives["split-at-right"],M.params.currentNamespace["append*"]||M.primitives["append*"],M.primitives["append"],M.params.currentNamespace["flatten"]||M.primitives["flatten"],M.params.currentNamespace["add-between"]||M.primitives["add-between"],M.primitives["list*"],M.params.currentNamespace["filter-map"]||M.primitives["filter-map"],M.primitives["procedure?"],M.primitives["procedure-arity-includes?"],M.primitives["length"],M.primitives["andmap"],M.primitives["ormap"],M.primitives["map"],M.primitives["error"],M.params.currentNamespace["count"]||M.primitives["count"],M.params.currentNamespace["partition"]||M.primitives["partition"],M.params.currentNamespace["append-map"]||M.primitives["append-map"],M.params.currentNamespace["filter-not"]||M.primitives["filter-not"],M.params.currentNamespace["mk-min"]||M.primitives["mk-min"],M.primitives["real?"],M.params.currentNamespace["argmin"]||M.primitives["argmin"],M.params.currentNamespace["argmax"]||M.primitives["argmax"],false,false,false,false,false,false,false,false,false,false,false,false,false,false,false,false,false,false]);M.e[M.e.length-1].names=["first","raise-type-error","second","format","third","fourth","fifth","sixth","seventh","eighth","ninth","tenth","last-pair","last","rest","cons?","empty?","empty","make-list","exact-nonnegative-integer?","zero?","drop*","too-large","raise-mismatch-error","take","split-at","reverse","drop","take-right","drop-right","split-at-right","append*","append","flatten","add-between","list*","filter-map","procedure?","procedure-arity-includes?","length","andmap","ormap","map","error","count","partition","append-map","filter-not","mk-min","real?","argmin","argmax",false,false,false,false,false,false,false,false,false,false,false,false,false,false,false,false,false,false]; -M.modules["whalesong/lang/list.rkt"].prefix=M.e[M.e.length-1]; -M.c.push(new RT.PromptFrame(_9834,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5496,4,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][69]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5704=function(M){--M.cbt<0; -M.v=((plt.baselib.numbers.lessThan(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"<"),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-7],1,"<")))); -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-8][68]; -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=M.e[M.e.length-10]; -M.e[M.e.length-3]=M.e[M.e.length-11]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-8][68]; -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e[M.e.length-3]=M.e[M.e.length-5]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+8),8); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _8872=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_8869)(M);}; - -var _7897=function(M){--M.cbt<0; -M.e.push(M.e[M.e.length-1][20]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7911,M.p)); -return((M.p).label)(M);}; - -var _9193=function(M){if(--M.cbt<0){throw _9193;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9197,M.p)); -return((M.p).label)(M);}; - - - -var _8811=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=9; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _8763=function(M){--M.cbt<0; -M.e.length-=1; -return(_8756)(M);}; - -var _6889=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_6879)(M);}; - -var _9672=function(M){if(--M.cbt<0){throw _9672;} -M.e.length-=(M.a-1); -return(_9665)(M);}; - - -var _6661=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _9638=function(M){if(--M.cbt<0){throw _9638;} -M.e.length-=(M.a-1); -return(_9633)(M);}; - -var _8571=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8592,M.p)); -return((M.p).label)(M);}; - -var _8574=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8588,M.p)); -return((M.p).label)(M);}; - -var _6594=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _6486=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _6540=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -return(_6497)(M);}; - -var _8494=function(M){--M.cbt<0; -M.e.length-=1; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.v=RT.makePair(M.e[M.e.length-2],M.e[M.e.length-1]); -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.e[M.e.length-2]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-4]); -return(_8523)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5549,2,[],"loop"); -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5549,2,[],"loop"); -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8531,M.p)); -return((M.p).label)(M);}}else{M.e[M.e.length-2]=M.e[M.e.length-4]; -return(_8523)(M);}}}else{M.v=M.e[M.e.length-1]; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _9940=function(M){if(--M.cbt<0){throw _9940;} -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/lang/list.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - - -var _9922=function(M){if(--M.cbt<0){throw _9922;} -M.c.push(new RT.PromptFrame(_9924,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5550,2,[M.e[M.e.length-1]],"add-between"); -M.e[M.e.length-1][34]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9916=function(M){if(--M.cbt<0){throw _9916;} -M.c.push(new RT.PromptFrame(_9918,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5541,2,[M.e[M.e.length-1]],"split-at-right"); -M.e[M.e.length-1][30]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9906=function(M){if(--M.cbt<0){throw _9906;} -M.c.push(new RT.PromptFrame(_9908,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5534,2,[M.e[M.e.length-1]],"take"); -M.e[M.e.length-1][24]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9898=function(M){if(--M.cbt<0){throw _9898;} -M.c.push(new RT.PromptFrame(_9900,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=RT.NULL; -M.e[M.e.length-1][17]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9894=function(M){if(--M.cbt<0){throw _9894;} -M.c.push(new RT.PromptFrame(_9896,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5529,1,[],"cons?"); -M.e[M.e.length-1][15]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9886=function(M){if(--M.cbt<0){throw _9886;} -M.c.push(new RT.PromptFrame(_9888,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5523,1,[M.e[M.e.length-1]],"tenth"); -M.e[M.e.length-1][11]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9878=function(M){if(--M.cbt<0){throw _9878;} -M.c.push(new RT.PromptFrame(_9880,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5519,1,[M.e[M.e.length-1]],"sixth"); -M.e[M.e.length-1][7]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - -var _9862=function(M){if(--M.cbt<0){throw _9862;} -M.c.push(new RT.PromptFrame(_9864,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5511,3,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][54]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9850=function(M){if(--M.cbt<0){throw _9850;} -M.c.push(new RT.PromptFrame(_9852,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5505,5,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][60]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9844=function(M){if(--M.cbt<0){throw _9844;} -M.c.push(new RT.PromptFrame(_9846,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5502,3,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][63]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9834=function(M){if(--M.cbt<0){throw _9834;} -M.c.push(new RT.PromptFrame(_9836,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5497,4,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][68]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9822=function(M){if(--M.cbt<0){throw _9822;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-7][1]; -M.e[M.e.length-1]=RT.makeSymbol("argmax"); -M.e[M.e.length-2]="procedure that returns real numbers"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-8]; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9826,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_9818)(M);}}; - -var _9803=function(M){if(--M.cbt<0){throw _9803;} -return(_9789)(M);}; - -var _9937=function(M){if(--M.cbt<0){throw _9937;} -M.e.length-=(M.a-1); -return(_9938)(M);}; - -var _9925=function(M){if(--M.cbt<0){throw _9925;} -M.e.length-=(M.a-1); -return(_9926)(M);}; - -var _9923=function(M){if(--M.cbt<0){throw _9923;} -M.e.length-=(M.a-1); -return(_9924)(M);}; - -var _9909=function(M){if(--M.cbt<0){throw _9909;} -M.e.length-=(M.a-1); -return(_9910)(M);}; - -var _9907=function(M){if(--M.cbt<0){throw _9907;} -M.e.length-=(M.a-1); -return(_9908)(M);}; - -var _9897=function(M){if(--M.cbt<0){throw _9897;} -M.e.length-=(M.a-1); -return(_9898)(M);}; - -var _9887=function(M){if(--M.cbt<0){throw _9887;} -M.e.length-=(M.a-1); -return(_9888)(M);}; - -var _9881=function(M){if(--M.cbt<0){throw _9881;} -M.e.length-=(M.a-1); -return(_9882)(M);}; - -var _9875=function(M){if(--M.cbt<0){throw _9875;} -M.e.length-=(M.a-1); -return(_9876)(M);}; - -var _9861=function(M){if(--M.cbt<0){throw _9861;} -M.e.length-=(M.a-1); -return(_9862)(M);}; - -var _9855=function(M){if(--M.cbt<0){throw _9855;} -M.e.length-=(M.a-1); -return(_9856)(M);}; - -var _9845=function(M){if(--M.cbt<0){throw _9845;} -M.e.length-=(M.a-1); -return(_9846)(M);}; - -var _9841=function(M){if(--M.cbt<0){throw _9841;} -M.e.length-=(M.a-1); -return(_9842)(M);}; - -var _9361=function(M){if(--M.cbt<0){throw _9361;} -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-3],RT.NULL); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.push(M.e[M.e.length-10]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9415,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-8]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-9][26]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9399,M.p)); -return((M.p).label)(M);}}else{M.e.length+=1; -M.e[M.e.length-1]=RT.makePair(M.e[M.e.length-3],M.e[M.e.length-4]); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.push(M.e[M.e.length-10]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9384,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-8]; -M.v=M.e[M.e.length-2]; -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["values"]; -M.e.push(M.e[M.e.length-9][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9368,M.p)); -return((M.p).label)(M);}}}; - -var _8935=function(M){--M.cbt<0; -M.e.length-=1; -return(_8928)(M);}; - -var _8879=function(M){--M.cbt<0; -M.e.length-=1; -return(_8872)(M);}; - -var _8900=function(M){--M.cbt<0; -M.e.length-=1; -return(_8879)(M);}; - -var _9187=function(M){if(--M.cbt<0){throw _9187;} -M.e[M.e.length-3]=M.v; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-19]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-10],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-20][42]; -M.e[M.e.length-1]=M.primitives["car"]; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9193,M.p)); -return((M.p).label)(M);}; - -var _9142=function(M){if(--M.cbt<0){throw _9142;} -if(M.v===false){M.e[M.e.length-1]=0; -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9150,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e[M.e.length-1]=1; -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9150,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _5600=function(M){--M.cbt<0; -M.v=((plt.baselib.numbers.greaterThan(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,">"),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],1,">")))); -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-9][69]; -M.e[M.e.length-1]=M.e[M.e.length-10]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-9][69]; -M.e[M.e.length-1]=M.e[M.e.length-10]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e[M.e.length-3]=M.e[M.e.length-5]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+9),9); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _9093=function(M){if(--M.cbt<0){throw _9093;} -return(_9067)(M);}; - - -var _8818=function(M){--M.cbt<0; -M.e.length-=1; -return(_8811)(M);}; - -var _8783=function(M){--M.cbt<0; -M.e.length-=1; -return(_8763)(M);}; - -var _8790=function(M){--M.cbt<0; -M.e.length-=1; -return(_8783)(M);}; - -var _8773=function(M){--M.cbt<0; -M.e.length-=1; -return(_8766)(M);}; - - -var _8678=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - - -var _8604=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("filter-map"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][3]; -M.e[M.e.length-1]="procedure (arity ~a)"; -M.e.length+=1; -M.e.push(M.e[M.e.length-7][39]); -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8620,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_8602)(M);}}; - - -var _8565=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9119=function(M){--M.cbt<0; -M.c.push(new RT.Frame()); -M.c[M.c.length-1].pendingBegin0Count=M.a; -M.unspliceRestFromStack(0,M.a); -M.c[M.c.length-1].pendingBegin0Values=M.e[M.e.length-1]; -M.e.length-=1; -M.v=M.e[M.e.length-3]; -M.e.push(M.c[M.c.length-1].pendingBegin0Values); -M.spliceListIntoStack(0); -M.a=M.c[M.c.length-1].pendingBegin0Count; -M.c.pop(); -if(M.a===0){return(_9120)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=1; -return(_9120)(M);}}; - - - -var _9092=function(M){if(--M.cbt<0){throw _9092;} -M.e.length-=(M.a-1); -return(_9067)(M);}; - - -var _6505=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.e[M.e.length-7]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_6497)(M);}; - -var _6516=function(M){--M.cbt<0; -M.e.length-=1; -return(_6505)(M);}; - -var _9938=function(M){if(--M.cbt<0){throw _9938;} -M.c.push(new RT.PromptFrame(_9940,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5567,2,[M.e[M.e.length-1]],"argmax"); -M.e[M.e.length-1][51]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - - -var _9914=function(M){if(--M.cbt<0){throw _9914;} -M.c.push(new RT.PromptFrame(_9916,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5539,2,[M.e[M.e.length-1]],"drop-right"); -M.e[M.e.length-1][29]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - - -var _9892=function(M){if(--M.cbt<0){throw _9892;} -M.c.push(new RT.PromptFrame(_9894,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5528,1,[M.e[M.e.length-1]],"rest"); -M.e[M.e.length-1][14]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9884=function(M){if(--M.cbt<0){throw _9884;} -M.c.push(new RT.PromptFrame(_9886,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5522,1,[M.e[M.e.length-1]],"ninth"); -M.e[M.e.length-1][10]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9876=function(M){if(--M.cbt<0){throw _9876;} -M.c.push(new RT.PromptFrame(_9878,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5518,1,[M.e[M.e.length-1]],"fifth"); -M.e[M.e.length-1][6]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - -var _9860=function(M){if(--M.cbt<0){throw _9860;} -M.c.push(new RT.PromptFrame(_9862,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5510,3,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][55]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - -var _9842=function(M){if(--M.cbt<0){throw _9842;} -M.c.push(new RT.PromptFrame(_9844,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5501,4,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][64]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - -var _9815=function(M){if(--M.cbt<0){throw _9815;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-2][49]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9822,M.p)); -return((M.p).label)(M);}; - -var _9799=function(M){if(--M.cbt<0){throw _9799;} -return(_9791)(M);}; - -var _9935=function(M){if(--M.cbt<0){throw _9935;} -M.e.length-=(M.a-1); -return(_9936)(M);}; - -var _9760=function(M){if(--M.cbt<0){throw _9760;} -return(_9746)(M);}; - -var _9921=function(M){if(--M.cbt<0){throw _9921;} -M.e.length-=(M.a-1); -return(_9922)(M);}; - -var _9698=function(M){if(--M.cbt<0){throw _9698;} -return(_9690)(M);}; - -var _9905=function(M){if(--M.cbt<0){throw _9905;} -M.e.length-=(M.a-1); -return(_9906)(M);}; - -var _9895=function(M){if(--M.cbt<0){throw _9895;} -M.e.length-=(M.a-1); -return(_9896)(M);}; - -var _9885=function(M){if(--M.cbt<0){throw _9885;} -M.e.length-=(M.a-1); -return(_9886)(M);}; - -var _9879=function(M){if(--M.cbt<0){throw _9879;} -M.e.length-=(M.a-1); -return(_9880)(M);}; - -var _9873=function(M){if(--M.cbt<0){throw _9873;} -M.e.length-=(M.a-1); -return(_9874)(M);}; - -var _9515=function(M){if(--M.cbt<0){throw _9515;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _9853=function(M){if(--M.cbt<0){throw _9853;} -M.e.length-=(M.a-1); -return(_9854)(M);}; - -var _9434=function(M){if(--M.cbt<0){throw _9434;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _9839=function(M){if(--M.cbt<0){throw _9839;} -M.e.length-=(M.a-1); -return(_9840)(M);}; - -var _9349=function(M){if(--M.cbt<0){throw _9349;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+6),6); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _8953=function(M){--M.cbt<0; -M.e.length-=1; -return(_8946)(M);}; - -var _8928=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-8]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_8925)(M);}; - - -var _9802=function(M){if(--M.cbt<0){throw _9802;} -M.e.length-=(M.a-1); -return(_9789)(M);}; - -var _9180=function(M){if(--M.cbt<0){throw _9180;} -if(M.v===false){M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-15][64]; -M.e[M.e.length-1]=M.e[M.e.length-16]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-17][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9187,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=14; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-4],0,"add1")); -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-15][64]; -M.e[M.e.length-1]=M.e[M.e.length-16]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"cdr")).rest; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-17][42]; -M.e[M.e.length-1]=M.primitives["cdr"]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9187,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=14; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _8889=function(M){--M.cbt<0; -M.e.length-=1; -return(_8882)(M);}; - -var _9138=function(M){if(--M.cbt<0){throw _9138;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9142,M.p)); -return((M.p).label)(M);}; - -var _9115=function(M){if(--M.cbt<0){throw _9115;} -M.e[M.e.length-1]=M.v; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4][40]; -M.v=new RT.Closure(_5557,1,[M.e[M.e.length-4],M.e[M.e.length-3]],"...ng/lang/list.rkt:282:18"); -M.a=1; -if(M.a===0){return(_9119)(M);}else{M.e.push(M.v); -return(_9119)(M);}}; - -var _9089=function(M){if(--M.cbt<0){throw _9089;} -M.e[M.e.length-2]=M.v; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9093,M.p)); -return((M.p).label)(M);}; - - -var _6869=function(M){--M.cbt<0; -M.e.length-=1; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - - -var _8766=function(M){--M.cbt<0; -M.e.length-=1; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_8763)(M);}; - -var _9697=function(M){if(--M.cbt<0){throw _9697;} -M.e.length-=(M.a-1); -return(_9690)(M);}; - - - -var _8852=function(M){if(--M.cbt<0){throw _8852;} -M.e[M.e.length-2]=M.v; -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],1,"=")))); -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - -var _8602=function(M){--M.cbt<0; -M.v=RT.isList(M.e[M.e.length-3]); -if(M.v===false){M.v=false; -return(_8632)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][40]; -M.e[M.e.length-1]=M.primitives["list?"]; -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8636,M.p)); -return((M.p).label)(M);}}; - -var _8772=function(M){if(--M.cbt<0){throw _8772;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5554,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-13]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8782,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5554,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-15]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -M.c.push(new RT.CallFrame(_8778,M.p)); -return(_5554)(M);}}; - -var _9630=function(M){if(--M.cbt<0){throw _9630;} -M.e.length-=(M.a-1); -return(_9617)(M);}; - -var _9120=function(M){--M.cbt<0; -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9124,M.p)); -return((M.p).label)(M);}; - -var _9108=function(M){if(--M.cbt<0){throw _9108;} -M.e.length-=(M.a-1); -return(_9095)(M);}; - - - - -var _6551=function(M){--M.cbt<0; -M.e.length-=1; -return(_6540)(M);}; - - -var _8516=function(M){if(--M.cbt<0){throw _8516;} -M.e[M.e.length-4]=M.v; -return(_8504)(M);}; - -var _5520=function(M){if(--M.cbt<0){throw _5520;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isList(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("seventh"); -M.e[M.e.length-2]="list"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("seventh"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=7; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7604,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][1]; -M.e[M.e.length-1]=RT.makeSymbol("seventh"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=7; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7596,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("seventh"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=7; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7588,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][1]; -M.e[M.e.length-1]=RT.makeSymbol("seventh"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=7; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7580,M.p)); -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][54]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=3; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}}}}; - - - -var _5519=function(M){if(--M.cbt<0){throw _5519;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isList(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("sixth"); -M.e[M.e.length-2]="list"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("sixth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=6; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7551,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][1]; -M.e[M.e.length-1]=RT.makeSymbol("sixth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=6; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7543,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("sixth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=6; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7535,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][1]; -M.e[M.e.length-1]=RT.makeSymbol("sixth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=6; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7527,M.p)); -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][53]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=2; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}}}}; - - -var _9890=function(M){if(--M.cbt<0){throw _9890;} -M.c.push(new RT.PromptFrame(_9892,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5526,1,[M.e[M.e.length-1]],"last"); -M.e[M.e.length-1][13]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9882=function(M){if(--M.cbt<0){throw _9882;} -M.c.push(new RT.PromptFrame(_9884,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5521,1,[M.e[M.e.length-1]],"eighth"); -M.e[M.e.length-1][9]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9874=function(M){if(--M.cbt<0){throw _9874;} -M.c.push(new RT.PromptFrame(_9876,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5517,1,[M.e[M.e.length-1]],"fourth"); -M.e[M.e.length-1][5]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - -var _9858=function(M){if(--M.cbt<0){throw _9858;} -M.c.push(new RT.PromptFrame(_9860,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_5509,3,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][56]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - - - - -var _9795=function(M){if(--M.cbt<0){throw _9795;} -if(M.v===false){M.v=false; -return(_9791)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][38]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9799,M.p)); -return((M.p).label)(M);}}; - -var _9933=function(M){if(--M.cbt<0){throw _9933;} -M.e.length-=(M.a-1); -return(_9934)(M);}; - -var _9756=function(M){if(--M.cbt<0){throw _9756;} -return(_9748)(M);}; - -var _9919=function(M){if(--M.cbt<0){throw _9919;} -M.e.length-=(M.a-1); -return(_9920)(M);}; - -var _5555=function(M){if(--M.cbt<0){throw _5555;} -M.unspliceRestFromStack(2,(M.a-2)); -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][37]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9073,M.p)); -return((M.p).label)(M);}; - -var _9903=function(M){if(--M.cbt<0){throw _9903;} -M.e.length-=(M.a-1); -return(_9904)(M);}; - -var _9650=function(M){if(--M.cbt<0){throw _9650;} -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-7][1]; -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]="procedure that returns real numbers"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-10]; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9654,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_9646)(M);}}; - -var _9627=function(M){if(--M.cbt<0){throw _9627;} -return(_9619)(M);}; - -var _9584=function(M){if(--M.cbt<0){throw _9584;} -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-8]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9598,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-5][26]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+7),7); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-4]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.e.length+=1; -M.e.push(M.e[M.e.length-8]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9598,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-5][26]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+7),7); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}; - -var _9871=function(M){if(--M.cbt<0){throw _9871;} -M.e.length-=(M.a-1); -return(_9872)(M);}; - -var _9500=function(M){if(--M.cbt<0){throw _9500;} -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-13][65]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=RT.NULL; -M.v=RT.makePair(M.e[M.e.length-6],M.e[M.e.length-7]); -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-13][65]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-6],RT.NULL); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _9469=function(M){if(--M.cbt<0){throw _9469;} -if(M.v===false){M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-13][65]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=M.e[M.e.length-7]; -M.v=RT.makePair(M.e[M.e.length-6],M.e[M.e.length-10]); -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-13][65]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=M.e[M.e.length-5]; -M.e[M.e.length-3]=RT.makePair(M.e[M.e.length-6],M.e[M.e.length-7]); -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _9430=function(M){if(--M.cbt<0){throw _9430;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-6][26]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9434,M.p)); -return((M.p).label)(M);}; - -var _9837=function(M){if(--M.cbt<0){throw _9837;} -M.e.length-=(M.a-1); -return(_9838)(M);}; - -var _9345=function(M){if(--M.cbt<0){throw _9345;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-6][26]); -M.v=RT.NULL; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9349,M.p)); -return((M.p).label)(M);}; - -var _9825=function(M){if(--M.cbt<0){throw _9825;} -M.e.length-=(M.a-1); -return(_9818)(M);}; - -var _9306=function(M){if(--M.cbt<0){throw _9306;} -return(_9298)(M);}; - -var _9810=function(M){if(--M.cbt<0){throw _9810;} -M.e.length-=(M.a-1); -return(_9805)(M);}; - -var _9234=function(M){if(--M.cbt<0){throw _9234;} -if(M.v===false){M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_5558,3,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.push(M.e[M.e.length-11]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9243,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-3],0,"add1")); -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=new RT.Closure(_5558,3,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.e.push(M.e[M.e.length-11]); -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"car")).first; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9243,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=10; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _5529=function(M){if(--M.cbt<0){throw _5529;} -M.v=RT.isPair(M.e[M.e.length-1]); -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _5553=function(M){if(--M.cbt<0){throw _5553;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.push(M.e[M.e.length-4][39]); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8852,M.p)); -return((M.p).label)(M);}; - -var _5552=function(M){if(--M.cbt<0){throw _5552;} -M.v=RT.isList(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.v=false; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _9109=function(M){if(--M.cbt<0){throw _9109;} -return(_9095)(M);}; - -var _9085=function(M){if(--M.cbt<0){throw _9085;} -M.e[M.e.length-1]=M.v; -M.v=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"add1")); -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9089,M.p)); -return((M.p).label)(M);}; - -var _9077=function(M){if(--M.cbt<0){throw _9077;} -M.e[M.e.length-1]=M.v; -M.v=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"add1")); -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_9081,M.p)); -return((M.p).label)(M);}; - -var _8756=function(M){--M.cbt<0; -M.e.length-=1; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _9729=function(M){if(--M.cbt<0){throw _9729;} -M.e.length-=(M.a-1); -return(_9722)(M);}; - -var _8997=function(M){if(--M.cbt<0){throw _8997;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_8991)(M);}; - -var _8963=function(M){if(--M.cbt<0){throw _8963;} -M.e[M.e.length-8]=M.v; -return(_8953)(M);}; - - -var _8913=function(M){if(--M.cbt<0){throw _8913;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-8]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_8907)(M);}; - -var _8888=function(M){if(--M.cbt<0){throw _8888;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5554,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-16]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8899,M.p)); -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5554,2,[],"loop"); -M.e[M.e.length-1]=M.e[M.e.length-18]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8895,M.p)); -return((M.p).label)(M);}}; - -var _8842=function(M){if(--M.cbt<0){throw _8842;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _8824=function(M){if(--M.cbt<0){throw _8824;} -M.e[M.e.length-2]=M.v; -M.e[M.e.length-6]=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=2; -return(_8818)(M);}; - -var _9653=function(M){if(--M.cbt<0){throw _9653;} -M.e.length-=(M.a-1); -return(_9646)(M);}; - -var _5551=function(M){if(--M.cbt<0){throw _5551;} -M.unspliceRestFromStack(2,(M.a-2)); -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][37]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8608,M.p)); -return((M.p).label)(M);}; - -var _8734=function(M){if(--M.cbt<0){throw _8734;} -M.e[M.e.length-2]=M.v; -M.v=RT.makePair(M.e[M.e.length-1],M.e[M.e.length-2]); -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - -var _5523=function(M){if(--M.cbt<0){throw _5523;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isList(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("tenth"); -M.e[M.e.length-2]="list"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("tenth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=10; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7763,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][1]; -M.e[M.e.length-1]=RT.makeSymbol("tenth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=10; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7755,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("tenth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=10; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7747,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][1]; -M.e[M.e.length-1]=RT.makeSymbol("tenth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=10; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7739,M.p)); -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][57]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=6; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}}}}; - -var _5550=function(M){if(--M.cbt<0){throw _5550;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isList(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("add-between"); -M.e[M.e.length-2]="list"; -M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(5+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -M.e.length-=1; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][35]; -M.e[M.e.length-1]=M.e[M.e.length-9]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-11][35]; -M.e[M.e.length-1]=M.e[M.e.length-13]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-15][35]; -M.e[M.e.length-1]=M.e[M.e.length-17]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-5],0,"cdr")).rest; -M.v=(M.e[M.e.length-1]===RT.NULL); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-19][35]; -M.e[M.e.length-1]=M.e[M.e.length-21]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-21][62]; -M.e[M.e.length-1]=M.e[M.e.length-23]; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8580,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -return(_8574)(M);}}else{M.v=RT.NULL; -return(_8571)(M);}}else{M.v=RT.NULL; -return(_8568)(M);}}else{M.e[M.e.length-3]=RT.NULL; -return(_8565)(M);}}else{M.v=M.e[M.e.length-2]; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=RT.NULL; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _5522=function(M){if(--M.cbt<0){throw _5522;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isList(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("ninth"); -M.e[M.e.length-2]="list"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("ninth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=9; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7710,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][1]; -M.e[M.e.length-1]=RT.makeSymbol("ninth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=9; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7702,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("ninth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=9; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7694,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][1]; -M.e[M.e.length-1]=RT.makeSymbol("ninth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=9; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7686,M.p)); -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][56]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=5; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}}}}; - - -var _8523=function(M){--M.cbt<0; -M.e.length-=1; -M.v=(M.e[M.e.length-2]===RT.NULL); -if(M.v===false){M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.v=RT.makePair(M.e[M.e.length-2],M.e[M.e.length-1]); -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"car")).first; -M.e.length+=1; -M.e.length+=2; -M.e[M.e.length-2]=new RT.Closure(_5549,2,[],"loop"); -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-6],0,"cdr")).rest; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8545,M.p)); -return((M.p).label)(M);}}else{M.v=M.e[M.e.length-1]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _5521=function(M){if(--M.cbt<0){throw _5521;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isList(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("eighth"); -M.e[M.e.length-2]="list"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("eighth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=8; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7657,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][1]; -M.e[M.e.length-1]=RT.makeSymbol("eighth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=8; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7649,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("eighth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=8; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7641,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][1]; -M.e[M.e.length-1]=RT.makeSymbol("eighth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=8; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7633,M.p)); -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][55]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=4; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}}}}; - -var _5502=function(M){if(--M.cbt<0){throw _5502;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-3]===RT.NULL); -if(M.v===false){M.e.length+=1; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-7],0,"car")).first; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][42]; -M.e[M.e.length-1]=M.primitives["car"]; -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_6473,M.p)); -return((M.p).label)(M);}else{M.v=RT.NULL; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _5543=function(M){if(--M.cbt<0){throw _5543;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=2; -M.e[M.e.length-2]=M.primitives["apply"]; -M.e[M.e.length-1]=M.e[M.e.length-3][32]; -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _8406=function(M){if(--M.cbt<0){throw _8406;} -M.e[M.e.length-2]=M.v; -return(_8394)(M);}; - - -var _5541=function(M){if(--M.cbt<0){throw _5541;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][19]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8385,M.p)); -return((M.p).label)(M);}; - -var _8252=function(M){if(--M.cbt<0){throw _8252;} -M.e[M.e.length-2]=M.v; -return(_8240)(M);}; - -var _5518=function(M){if(--M.cbt<0){throw _5518;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isList(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("fifth"); -M.e[M.e.length-2]="list"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("fifth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=5; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7498,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][1]; -M.e[M.e.length-1]=RT.makeSymbol("fifth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=5; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7490,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("fifth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=5; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7482,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][1]; -M.e[M.e.length-1]=RT.makeSymbol("fifth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=5; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7474,M.p)); -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][52]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-4],0,"cdr")).rest; -M.v=1; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}}}}}; - - - -var _5517=function(M){if(--M.cbt<0){throw _5517;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isList(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("fourth"); -M.e[M.e.length-2]="list"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("fourth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=4; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7445,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][1]; -M.e[M.e.length-1]=RT.makeSymbol("fourth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=4; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7437,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("fourth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=4; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7429,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][1]; -M.e[M.e.length-1]=RT.makeSymbol("fourth"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=4; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7421,M.p)); -return((M.p).label)(M);}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}}}}; - -var _5539=function(M){if(--M.cbt<0){throw _5539;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][19]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_8322,M.p)); -return((M.p).label)(M);}; - -var _5516=function(M){if(--M.cbt<0){throw _5516;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isList(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("third"); -M.e[M.e.length-2]="list"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("third"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=3; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7396,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][1]; -M.e[M.e.length-1]=RT.makeSymbol("third"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=3; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7388,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][1]; -M.e[M.e.length-1]=RT.makeSymbol("third"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=3; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7380,M.p)); -return((M.p).label)(M);}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}}}; - -var _5515=function(M){if(--M.cbt<0){throw _5515;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isList(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("second"); -M.e[M.e.length-2]="list"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("second"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7358,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-3],0,"cdr")).rest; -M.v=RT.isPair(M.e[M.e.length-1]); -if(M.v===false){M.v=M.e[M.e.length-1]; -M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][1]; -M.e[M.e.length-1]=RT.makeSymbol("second"); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]="list with ~a or more items"; -M.v=2; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_7350,M.p)); -return((M.p).label)(M);}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}}; - -var _5514=function(M){if(--M.cbt<0){throw _5514;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=RT.isPair(M.e[M.e.length-2]); -if(M.v===false){M.v=false; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("first"); -M.e[M.e.length-2]="non-empty list"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v=RT.isList(M.e[M.e.length-2]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-4][1]; -M.e[M.e.length-1]=RT.makeSymbol("first"); -M.e[M.e.length-2]="non-empty list"; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2],0,"car")).first; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}}; - -var _7943=function(M){if(--M.cbt<0){throw _7943;} -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-12][58]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=plt.baselib.numbers.subtract(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"sub1"), 1); -M.v=RT.makePair(M.e[M.e.length-14],M.e[M.e.length-4]); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+11),11); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length-=11; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - - -_5587.mvr=_5586; -_5608.mvr=_5607; -_5636.mvr=_5635; -_5663.mvr=_5662; -_5684.mvr=_5683; -_5712.mvr=_5711; -_5739.mvr=_5738; -_5764.mvr=_5763; -_5789.mvr=_5788; -_5821.mvr=_5820; -_5853.mvr=_5852; -_5878.mvr=_5877; -_5910.mvr=_5909; -_7905.mvr=_7904; -_8019.mvr=_8018; -_8033.mvr=_8032; -_8160.mvr=_8159; -_8235.mvr=_8234; -_8326.mvr=_8325; -_8389.mvr=_8388; -_8628.mvr=_8627; -_8644.mvr=_8643; -_9093.mvr=_9092; -_9109.mvr=_9108; -_9310.mvr=_9309; -_9316.mvr=_9315; -_9551.mvr=_9550; -_9557.mvr=_9556; -_9631.mvr=_9630; -_9639.mvr=_9638; -_9654.mvr=_9653; -_9673.mvr=_9672; -_9698.mvr=_9697; -_9730.mvr=_9729; -_9760.mvr=_9759; -_9768.mvr=_9767; -_9783.mvr=_9782; -_9803.mvr=_9802; -_9811.mvr=_9810; -_9826.mvr=_9825; -_9834.mvr=_9833; -_9836.mvr=_9835; -_9838.mvr=_9837; -_9840.mvr=_9839; -_9842.mvr=_9841; -_9844.mvr=_9843; -_9846.mvr=_9845; -_9848.mvr=_9847; -_9850.mvr=_9849; -_9852.mvr=_9851; -_9854.mvr=_9853; -_9856.mvr=_9855; -_9858.mvr=_9857; -_9860.mvr=_9859; -_9862.mvr=_9861; -_9864.mvr=_9863; -_9866.mvr=_9865; -_9868.mvr=_9867; -_9870.mvr=_9869; -_9872.mvr=_9871; -_9874.mvr=_9873; -_9876.mvr=_9875; -_9878.mvr=_9877; -_9880.mvr=_9879; -_9882.mvr=_9881; -_9884.mvr=_9883; -_9886.mvr=_9885; -_9888.mvr=_9887; -_9890.mvr=_9889; -_9892.mvr=_9891; -_9894.mvr=_9893; -_9896.mvr=_9895; -_9898.mvr=_9897; -_9900.mvr=_9899; -_9902.mvr=_9901; -_9904.mvr=_9903; -_9906.mvr=_9905; -_9908.mvr=_9907; -_9910.mvr=_9909; -_9912.mvr=_9911; -_9914.mvr=_9913; -_9916.mvr=_9915; -_9918.mvr=_9917; -_9920.mvr=_9919; -_9922.mvr=_9921; -_9924.mvr=_9923; -_9926.mvr=_9925; -_9928.mvr=_9927; -_9930.mvr=_9929; -_9932.mvr=_9931; -_9934.mvr=_9933; -_9936.mvr=_9935; -_9938.mvr=_9937; -_9940.mvr=_9939; -_5570.mvr=_5569; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_9941, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _1536=function(M){if(--M.cbt<0){throw _1536;} -M.e.length-=(M.a-1); -return(_1537)(M);}; - -var _1535=function(M){--M.cbt<0; -M.modules["whalesong/lang/private/qq-and-or.rkt"].isInvoked=true; -M.e.push([M.params.currentNamespace["qq-append"]||M.primitives["qq-append"]]);M.e[M.e.length-1].names=["qq-append"]; -M.modules["whalesong/lang/private/qq-and-or.rkt"].prefix=M.e[M.e.length-1]; -M.c.push(new RT.PromptFrame(_1537,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1520,2,[],"qq-append"); -M.e[M.e.length-1][0]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1523=function(M){if(--M.cbt<0){throw _1523;} -}; - -var _1537=function(M){if(--M.cbt<0){throw _1537;} -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/lang/private/qq-and-or.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - -var _1538=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_1523,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/lang/private/qq-and-or.rkt"]=new RT.ModuleRecord("qq-and-or",_1535); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1522=function(M){if(--M.cbt<0){throw _1522;} -M.e.length-=M.a; -return(_1523)(M);}; - -var _1520=function(M){if(--M.cbt<0){throw _1520;} -M.v=RT.isList(M.e[M.e.length-1]); -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.primitives["raise-type-error"]; -M.e[M.e.length-1]=RT.makeSymbol("unquote-splicing"); -M.e[M.e.length-2]="proper list"; -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.primitives["append"]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -_1537.mvr=_1536; -_1523.mvr=_1522; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_1538, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _11983=function(M){if(--M.cbt<0){throw _11983;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][27]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-7],0,"add1")); -M.e.push(M.e[M.e.length-10][21]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11998,M.p)); -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][27]; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-11],0,"add1")); -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e.push(M.e[M.e.length-10][21]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11990,M.p)); -return((M.p).label)(M);}}; - - - - - - - - -var _11874=function(M){if(--M.cbt<0){throw _11874;} -M.e.length-=(M.a-1); -M.p=M.e[M.e.length-5][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11879,M.p)); -return((M.p).label)(M);}; - - -var _11621=function(M){--M.cbt<0; -M.e.length+=2; -M.e.push(M.e[M.e.length-6][9]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11634,M.p)); -return((M.p).label)(M);}; - - -var _11543=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11559,M.p)); -return((M.p).label)(M);}; - -var _11634=function(M){if(--M.cbt<0){throw _11634;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=0; -M.v=((plt.baselib.numbers.greaterThan(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,">"),M.e[M.e.length-2]))); -M.e.length-=2; -if(M.v===false){M.v=M.e[M.e.length-1]; -return(_11628)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][10]; -M.e.push(M.e[M.e.length-6][11]); -M.e.push(M.e[M.e.length-7][12]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][13]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.v=0; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11638,M.p)); -return((M.p).label)(M);}}; - - -var _11580=function(M){if(--M.cbt<0){throw _11580;} -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][3]; -M.e[M.e.length-1]="~a passed.\n"; -M.e.length+=1; -M.v=(M.e[M.e.length-5]===0); -if(M.v===false){M.v=(M.e[M.e.length-5]===1); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][7]; -M.e[M.e.length-1]="~a tests"; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11588,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e[M.e.length-1]="one test"; -return(_11582)(M);}}else{M.v=M.e[M.e.length-5]; -M.e[M.e.length-1]="zero tests"; -return(_11582)(M);}}; - -var _11551=function(M){if(--M.cbt<0){throw _11551;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11555,M.p)); -return((M.p).label)(M);}; - -var _12267=function(M){if(--M.cbt<0){throw _12267;} -M.e.length-=(M.a-1); -return(_12268)(M);}; - -var _12259=function(M){if(--M.cbt<0){throw _12259;} -M.e.length-=(M.a-1); -return(_12260)(M);}; - -var _12283=function(M){if(--M.cbt<0){throw _12283;} -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12287,M.p)); -return((M.p).label)(M);}; - -var _12268=function(M){if(--M.cbt<0){throw _12268;} -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/lang/check-expect/check-expect.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - -var _12264=function(M){if(--M.cbt<0){throw _12264;} -M.c.push(new RT.PromptFrame(_12266,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_11523,0,[M.e[M.e.length-1]],"run-tests"); -M.e[M.e.length-1][15]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _12252=function(M){if(--M.cbt<0){throw _12252;} -M.c.push(new RT.PromptFrame(_12254,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=RT.NULL; -M.e[M.e.length-1][0]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _12226=function(M){if(--M.cbt<0){throw _12226;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][27]; -M.e[M.e.length-1]=0; -M.e[M.e.length-2]=1; -M.e.push(M.e[M.e.length-7][21]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12241,M.p)); -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-7][27]; -M.e[M.e.length-1]=1; -M.e[M.e.length-2]=0; -M.e.push(M.e[M.e.length-7][21]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12233,M.p)); -return((M.p).label)(M);}}; - -var _12217=function(M){if(--M.cbt<0){throw _12217;} -return(_12111)(M);}; - -var _12197=function(M){if(--M.cbt<0){throw _12197;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12201,M.p)); -return((M.p).label)(M);}; - -var _12179=function(M){if(--M.cbt<0){throw _12179;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12183,M.p)); -return((M.p).label)(M);}; - -var _12163=function(M){if(--M.cbt<0){throw _12163;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=0; -M.v=((plt.baselib.numbers.greaterThan(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,">"),M.e[M.e.length-2]))); -M.e.length-=2; -if(M.v===false){M.v="zero tests"; -return(_12159)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][10]; -M.e.push(M.e[M.e.length-6][11]); -M.e.push(M.e[M.e.length-7][12]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][13]; -M.e[M.e.length-1]="zero tests"; -M.v=0; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12167,M.p)); -return((M.p).label)(M);}}; - -var _12140=function(M){if(--M.cbt<0){throw _12140;} -return(_12111)(M);}; - -var _12119=function(M){if(--M.cbt<0){throw _12119;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.v=(M.e[M.e.length-1]===2); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][7]; -M.e[M.e.length-1]="All ~a tests passed!"; -M.e.push(M.e[M.e.length-6][16]); -if (M.e[M.e.length-7][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-7].names[0]); } -M.v=M.e[M.e.length-7][0]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12128,M.p)); -return((M.p).label)(M);}else{M.v="Both tests passed!"; -return(_12120)(M);}}else{M.v="The test passed!"; -return(_12120)(M);}}; - -var _12102=function(M){if(--M.cbt<0){throw _12102;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-2][17]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12109,M.p)); -return((M.p).label)(M);}; - -var _12076=function(M){if(--M.cbt<0){throw _12076;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12080,M.p)); -return((M.p).label)(M);}; - -var _12050=function(M){if(--M.cbt<0){throw _12050;} -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _12030=function(M){if(--M.cbt<0){throw _12030;} -M.e[M.e.length-3]=M.v; -M.e.push(M.primitives["srcloc-column"]); -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12034,M.p)); -return((M.p).label)(M);}; - -var _12018=function(M){if(--M.cbt<0){throw _12018;} -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][3]; -M.e[M.e.length-1]="check-expect: actual value ~s differs from ~s, the expected value\n"; -M.e[M.e.length-2]=M.e[M.e.length-4]; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12022,M.p)); -return((M.p).label)(M);}else{M.v=true; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _11978=function(M){if(--M.cbt<0){throw _11978;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.p=M.e[M.e.length-2]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11983,M.p)); -return((M.p).label)(M);}; - -var _11966=function(M){if(--M.cbt<0){throw _11966;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11970,M.p)); -return((M.p).label)(M);}; - -var _11950=function(M){if(--M.cbt<0){throw _11950;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=0; -M.v=((plt.baselib.numbers.greaterThan(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,">"),M.e[M.e.length-2]))); -M.e.length-=2; -if(M.v===false){M.v=M.e[M.e.length-1]; -return(_11944)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][10]; -M.e.push(M.e[M.e.length-10][11]); -M.e.push(M.e[M.e.length-11][12]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-14][13]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.v=0; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11954,M.p)); -return((M.p).label)(M);}}; - -var _11927=function(M){if(--M.cbt<0){throw _11927;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11931,M.p)); -return((M.p).label)(M);}; - -var _11911=function(M){if(--M.cbt<0){throw _11911;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=0; -M.v=((plt.baselib.numbers.greaterThan(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,">"),M.e[M.e.length-2]))); -M.e.length-=2; -if(M.v===false){M.v=M.e[M.e.length-1]; -return(_11905)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][10]; -M.e.push(M.e[M.e.length-10][11]); -M.e.push(M.e[M.e.length-11][12]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-14][13]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.v=0; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11915,M.p)); -return((M.p).label)(M);}}; - -var _11883=function(M){if(--M.cbt<0){throw _11883;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-1]===0); -if(M.v===false){M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][7]; -M.e[M.e.length-1]="~a tests"; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11892,M.p)); -return((M.p).label)(M);}else{M.v="one test"; -return(_11884)(M);}}else{M.v="zero tests"; -return(_11884)(M);}}; - -var _11867=function(M){if(--M.cbt<0){throw _11867;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11871,M.p)); -return((M.p).label)(M);}; - -var _11841=function(M){if(--M.cbt<0){throw _11841;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-5][17]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11848,M.p)); -return((M.p).label)(M);}; - -var _11812=function(M){if(--M.cbt<0){throw _11812;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.p=M.e[M.e.length-2]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11817,M.p)); -return((M.p).label)(M);}; - -var _11800=function(M){if(--M.cbt<0){throw _11800;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11804,M.p)); -return((M.p).label)(M);}; - -var _11777=function(M){if(--M.cbt<0){throw _11777;} -M.e[M.e.length-1]=M.v; -return(_11771)(M);}; - -var _11757=function(M){if(--M.cbt<0){throw _11757;} -M.e[M.e.length-1]=M.v; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12][14]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11761,M.p)); -return((M.p).label)(M);}; - -var _11738=function(M){if(--M.cbt<0){throw _11738;} -M.e[M.e.length-1]=M.v; -return(_11732)(M);}; - -var _11709=function(M){if(--M.cbt<0){throw _11709;} -M.p=M.e[M.e.length-5][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11713,M.p)); -return((M.p).label)(M);}; - -var _11701=function(M){if(--M.cbt<0){throw _11701;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11705,M.p)); -return((M.p).label)(M);}; - -var _11675=function(M){if(--M.cbt<0){throw _11675;} -M.e[M.e.length-1]=M.v; -M.e.push(M.e[M.e.length-5][17]); -M.v=M.e[M.e.length-2]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11682,M.p)); -return((M.p).label)(M);}; - -var _11646=function(M){if(--M.cbt<0){throw _11646;} -M.e[M.e.length-1]=M.v; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][14]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11650,M.p)); -return((M.p).label)(M);}; - - -var _11615=function(M){if(--M.cbt<0){throw _11615;} -return(_11589)(M);}; - - -var _11567=function(M){if(--M.cbt<0){throw _11567;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-1]===0); -if(M.v===false){M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][7]; -M.e[M.e.length-1]="~a tests"; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11576,M.p)); -return((M.p).label)(M);}else{M.v="one test"; -return(_11568)(M);}}else{M.v="zero tests"; -return(_11568)(M);}}; - - - -var _12265=function(M){if(--M.cbt<0){throw _12265;} -M.e.length-=(M.a-1); -return(_12266)(M);}; - -var _12257=function(M){if(--M.cbt<0){throw _12257;} -M.e.length-=(M.a-1); -return(_12258)(M);}; - -var _12251=function(M){if(--M.cbt<0){throw _12251;} -M.e.length-=(M.a-1); -return(_12252)(M);}; - - - - -var _12266=function(M){if(--M.cbt<0){throw _12266;} -M.c.push(new RT.PromptFrame(_12268,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.length+=5; -M.e.length+=11; -M.e[M.e.length-11]=M.primitives["make-struct-type"]; -M.e[M.e.length-1]=RT.makeSymbol("unexpected-no-error"); -M.e[M.e.length-2]=false; -M.e[M.e.length-3]=1; -M.e[M.e.length-4]=0; -M.e[M.e.length-5]=false; -M.e[M.e.length-6]=RT.NULL; -M.p=M.primitives["current-inspector"]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12274,M.p)); -return((M.p).label)(M);}; - -var _12262=function(M){if(--M.cbt<0){throw _12262;} -M.c.push(new RT.PromptFrame(_12264,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_11522,1,[M.e[M.e.length-1]],"capitalize"); -M.e[M.e.length-1][8]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - -var _12221=function(M){if(--M.cbt<0){throw _12221;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.p=M.e[M.e.length-2]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12226,M.p)); -return((M.p).label)(M);}; - -var _12213=function(M){if(--M.cbt<0){throw _12213;} -return(_12189)(M);}; - -var _12193=function(M){if(--M.cbt<0){throw _12193;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=0; -M.v=((plt.baselib.numbers.greaterThan(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,">"),M.e[M.e.length-2]))); -M.e.length-=2; -if(M.v===false){M.v="zero tests"; -return(_12189)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][10]; -M.e.push(M.e[M.e.length-6][11]); -M.e.push(M.e[M.e.length-7][12]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][13]; -M.e[M.e.length-1]="zero tests"; -M.v=0; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12197,M.p)); -return((M.p).label)(M);}}; - -var _12175=function(M){if(--M.cbt<0){throw _12175;} -M.e[M.e.length-1]=M.v; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][14]; -M.e[M.e.length-1]="zero tests"; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12179,M.p)); -return((M.p).label)(M);}; - -var _12157=function(M){if(--M.cbt<0){throw _12157;} -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4][3]; -M.e[M.e.length-1]="~a passed.\n"; -M.e.length+=2; -M.e.push(M.e[M.e.length-6][9]); -M.v="zero tests"; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12163,M.p)); -return((M.p).label)(M);}; - -var _12136=function(M){if(--M.cbt<0){throw _12136;} -M.p=M.e[M.e.length-2][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12140,M.p)); -return((M.p).label)(M);}; - -var _12115=function(M){if(--M.cbt<0){throw _12115;} -M.e[M.e.length-1]=M.v; -M.v=((plt.baselib.numbers.equals(0,RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],1,"=")))); -M.e.length-=1; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4][3]; -M.e[M.e.length-1]="Ran ~a.\n"; -M.e.length+=1; -M.e.push(M.e[M.e.length-5][16]); -if (M.e[M.e.length-6][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-6].names[0]); } -M.v=M.e[M.e.length-6][0]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12144,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-2][18]); -M.e.length+=1; -M.e.push(M.e[M.e.length-4][16]); -if (M.e[M.e.length-5][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-5].names[0]); } -M.v=M.e[M.e.length-5][0]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12119,M.p)); -return((M.p).label)(M);}}; - -var _12098=function(M){if(--M.cbt<0){throw _12098;} -M.e.length+=1; -M.e.push(M.e[M.e.length-2][22]); -if (M.e[M.e.length-3][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-3].names[0]); } -M.v=M.e[M.e.length-3][0]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12102,M.p)); -return((M.p).label)(M);}; - -var _12072=function(M){if(--M.cbt<0){throw _12072;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12076,M.p)); -return((M.p).label)(M);}; - -var _12046=function(M){if(--M.cbt<0){throw _12046;} -M.e[M.e.length-3]=M.v; -M.e.push(M.primitives["srcloc-column"]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12050,M.p)); -return((M.p).label)(M);}; - -var _12026=function(M){if(--M.cbt<0){throw _12026;} -M.e[M.e.length-2]=M.v; -M.e.push(M.primitives["srcloc-line"]); -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12030,M.p)); -return((M.p).label)(M);}; - -var _12011=function(M){if(--M.cbt<0){throw _12011;} -M.e[M.e.length-1]=M.v; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5][2]; -M.e[M.e.length-1]=M.e[M.e.length-3]; -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12018,M.p)); -return((M.p).label)(M);}; - - -var _11970=function(M){if(--M.cbt<0){throw _11970;} -return(_11944)(M);}; - -var _11954=function(M){if(--M.cbt<0){throw _11954;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11958,M.p)); -return((M.p).label)(M);}; - -var _11923=function(M){if(--M.cbt<0){throw _11923;} -M.e[M.e.length-1]=M.v; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12][14]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11927,M.p)); -return((M.p).label)(M);}; - -var _11904=function(M){if(--M.cbt<0){throw _11904;} -M.e[M.e.length-1]=M.v; -return(_11898)(M);}; - -var _11879=function(M){if(--M.cbt<0){throw _11879;} -return(_11850)(M);}; - -var _11858=function(M){if(--M.cbt<0){throw _11858;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.v=(M.e[M.e.length-1]===2); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9][7]; -M.e[M.e.length-1]="All ~a tests passed!"; -M.e.push(M.e[M.e.length-9][16]); -if (M.e[M.e.length-10][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-10].names[0]); } -M.v=M.e[M.e.length-10][0]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11867,M.p)); -return((M.p).label)(M);}else{M.v="Both tests passed!"; -return(_11859)(M);}}else{M.v="The test passed!"; -return(_11859)(M);}}; - -var _11832=function(M){if(--M.cbt<0){throw _11832;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _11817=function(M){if(--M.cbt<0){throw _11817;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][27]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-12],0,"add1")); -M.e.push(M.e[M.e.length-10][21]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11832,M.p)); -return((M.p).label)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-10][27]; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-7],0,"add1")); -M.e[M.e.length-2]=M.e[M.e.length-12]; -M.e.push(M.e[M.e.length-10][21]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11824,M.p)); -return((M.p).label)(M);}}; - -var _11796=function(M){if(--M.cbt<0){throw _11796;} -M.e[M.e.length-1]=M.v; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12][14]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11800,M.p)); -return((M.p).label)(M);}; - - -var _11753=function(M){if(--M.cbt<0){throw _11753;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11757,M.p)); -return((M.p).label)(M);}; - -var _11730=function(M){if(--M.cbt<0){throw _11730;} -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]="~a passed.\n"; -M.e.length+=1; -M.v=(M.e[M.e.length-5]===0); -if(M.v===false){M.v=(M.e[M.e.length-5]===1); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][7]; -M.e[M.e.length-1]="~a tests"; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11738,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e[M.e.length-1]="one test"; -return(_11732)(M);}}else{M.v=M.e[M.e.length-5]; -M.e[M.e.length-1]="zero tests"; -return(_11732)(M);}}; - -var _11713=function(M){if(--M.cbt<0){throw _11713;} -return(_11684)(M);}; - -var _11688=function(M){if(--M.cbt<0){throw _11688;} -M.e[M.e.length-2]=M.v; -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],1,"=")))); -M.e.length-=2; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]="Ran ~a.\n"; -M.e.length+=1; -M.e.push(M.e[M.e.length-8][16]); -if (M.e[M.e.length-9][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-9].names[0]); } -M.v=M.e[M.e.length-9][0]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11717,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-7]; -M.v=M.e[M.e.length-2]; -M.e.push(M.e[M.e.length-5][18]); -M.e.length+=1; -M.e.push(M.e[M.e.length-7][16]); -if (M.e[M.e.length-8][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-8].names[0]); } -M.v=M.e[M.e.length-8][0]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11692,M.p)); -return((M.p).label)(M);}}; - -var _11662=function(M){if(--M.cbt<0){throw _11662;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.p=M.e[M.e.length-2]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11667,M.p)); -return((M.p).label)(M);}; - -var _11654=function(M){if(--M.cbt<0){throw _11654;} -return(_11628)(M);}; - -var _11627=function(M){if(--M.cbt<0){throw _11627;} -M.e[M.e.length-1]=M.v; -return(_11621)(M);}; - -var _11611=function(M){if(--M.cbt<0){throw _11611;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11615,M.p)); -return((M.p).label)(M);}; - -var _11588=function(M){if(--M.cbt<0){throw _11588;} -M.e[M.e.length-1]=M.v; -return(_11582)(M);}; - -var _11576=function(M){if(--M.cbt<0){throw _11576;} -return(_11568)(M);}; - -var _11555=function(M){if(--M.cbt<0){throw _11555;} -return(_11543)(M);}; - -var _12286=function(M){if(--M.cbt<0){throw _12286;} -if((M.a-4)===0){return(_12270)(M);}else{RT.si_context_expected(4)(M); -}}; - -var _12277=function(M){if(--M.cbt<0){throw _12277;} -if((M.a-5)===0){return(_12276)(M);}else{RT.si_context_expected(5)(M); -}}; - -var _12263=function(M){if(--M.cbt<0){throw _12263;} -M.e.length-=(M.a-1); -return(_12264)(M);}; - -var _12255=function(M){if(--M.cbt<0){throw _12255;} -M.e.length-=(M.a-1); -return(_12256)(M);}; - -var _12250=function(M){if(--M.cbt<0){throw _12250;} -M.e.push([M.params.currentNamespace["*tests*"]||M.primitives["*tests*"],M.params.currentNamespace["check-expect*"]||M.primitives["check-expect*"],M.primitives["equal?"],M.primitives["printf"],M.params.currentNamespace["display-location"]||M.primitives["display-location"],M.params.currentNamespace["accumulate-test!"]||M.primitives["accumulate-test!"],M.params.currentNamespace["test-suffixed"]||M.primitives["test-suffixed"],M.primitives["format"],M.params.currentNamespace["capitalize"]||M.primitives["capitalize"],M.primitives["string-length"],M.primitives["string-append"],M.primitives["string"],M.primitives["char-upcase"],M.primitives["string-ref"],M.primitives["substring"],M.params.currentNamespace["run-tests"]||M.primitives["run-tests"],M.primitives["length"],M.modules["whalesong/lang/list.rkt"].namespace["empty?"],M.primitives["display"],M.primitives["newline"],M.modules["whalesong/lang/list.rkt"].namespace["first"],M.modules["whalesong/lang/list.rkt"].namespace["rest"],M.primitives["reverse"],M.params.currentNamespace["struct:unexpected-no-error"]||M.primitives["struct:unexpected-no-error"],M.params.currentNamespace["make-unexpected-no-error"]||M.primitives["make-unexpected-no-error"],M.params.currentNamespace["unexpected-no-error?"]||M.primitives["unexpected-no-error?"],M.params.currentNamespace["unexpected-no-error-result"]||M.primitives["unexpected-no-error-result"],false]);M.e[M.e.length-1].names=["*tests*","check-expect*","equal?","printf","display-location","accumulate-test!","test-suffixed","format","capitalize","string-length","string-append","string","char-upcase","string-ref","substring","run-tests","length","empty?","display","newline","first","rest","reverse","struct:unexpected-no-error","make-unexpected-no-error","unexpected-no-error?","unexpected-no-error-result",false]; -M.modules["whalesong/lang/check-expect/check-expect.rkt"].prefix=M.e[M.e.length-1]; -M.c.push(new RT.PromptFrame(_12252,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_11517,3,[M.e[M.e.length-1]],"loop"); -M.e[M.e.length-1][27]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - - - - -var _12186=function(M){if(--M.cbt<0){throw _12186;} -M.e.length-=(M.a-1); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4][3]; -M.e[M.e.length-1]="~a failed.\n"; -M.e.length+=2; -M.e.push(M.e[M.e.length-6][9]); -M.v="zero tests"; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12193,M.p)); -return((M.p).label)(M);}; - - - - -var _12139=function(M){if(--M.cbt<0){throw _12139;} -M.e.length-=(M.a-1); -return(_12140)(M);}; - - -var _12097=function(M){if(--M.cbt<0){throw _12097;} -M.e.length-=(M.a-1); -M.e.length+=1; -M.e.push(M.e[M.e.length-2][22]); -if (M.e[M.e.length-3][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-3].names[0]); } -M.v=M.e[M.e.length-3][0]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12102,M.p)); -return((M.p).label)(M);}; - -var _12260=function(M){if(--M.cbt<0){throw _12260;} -M.c.push(new RT.PromptFrame(_12262,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_11521,1,[M.e[M.e.length-1]],"test-suffixed"); -M.e[M.e.length-1][6]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - - -var _12209=function(M){if(--M.cbt<0){throw _12209;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12213,M.p)); -return((M.p).label)(M);}; - -var _12187=function(M){if(--M.cbt<0){throw _12187;} -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4][3]; -M.e[M.e.length-1]="~a failed.\n"; -M.e.length+=2; -M.e.push(M.e[M.e.length-6][9]); -M.v="zero tests"; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12193,M.p)); -return((M.p).label)(M);}; - -var _12171=function(M){if(--M.cbt<0){throw _12171;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12175,M.p)); -return((M.p).label)(M);}; - -var _12153=function(M){if(--M.cbt<0){throw _12153;} -return(_12145)(M);}; - -var _12132=function(M){if(--M.cbt<0){throw _12132;} -return(_12120)(M);}; - -var _12109=function(M){if(--M.cbt<0){throw _12109;} -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-3][20]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12221,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length+=1; -M.e.push(M.e[M.e.length-3][16]); -if (M.e[M.e.length-4][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-4].names[0]); } -M.v=M.e[M.e.length-4][0]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12115,M.p)); -return((M.p).label)(M);}}; - -var _12094=function(M){if(--M.cbt<0){throw _12094;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=0; -M.v=((plt.baselib.numbers.greaterThan(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,">"),M.e[M.e.length-2]))); -M.e.length-=2; -if(M.v===false){M.v=RT.VOID; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.push(M.e[M.e.length-1][3]); -M.v="Running tests...\n"; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12098,M.p)); -return((M.p).label)(M);}}; - -var _12068=function(M){if(--M.cbt<0){throw _12068;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=0; -M.v=((plt.baselib.numbers.greaterThan(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,">"),M.e[M.e.length-2]))); -M.e.length-=2; -if(M.v===false){M.v=M.e[M.e.length-2]; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][10]; -M.e.push(M.e[M.e.length-3][11]); -M.e.push(M.e[M.e.length-4][12]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][13]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.v=0; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12072,M.p)); -return((M.p).label)(M);}}; - -var _12042=function(M){if(--M.cbt<0){throw _12042;} -M.e[M.e.length-2]=M.v; -M.e.push(M.primitives["srcloc-line"]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12046,M.p)); -return((M.p).label)(M);}; - -var _12022=function(M){if(--M.cbt<0){throw _12022;} -M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]=" at: ~s, line ~s, column ~s\n"; -M.e.push(M.primitives["srcloc-source"]); -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12026,M.p)); -return((M.p).label)(M);}; - -var _12006=function(M){if(--M.cbt<0){throw _12006;} -M.e[M.e.length-1]=M.v; -M.e.length+=1; -M.p=M.e[M.e.length-6]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12011,M.p)); -return((M.p).label)(M);}; - - -var _11962=function(M){if(--M.cbt<0){throw _11962;} -M.e[M.e.length-1]=M.v; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-12][14]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11966,M.p)); -return((M.p).label)(M);}; - -var _11943=function(M){if(--M.cbt<0){throw _11943;} -M.e[M.e.length-1]=M.v; -return(_11937)(M);}; - -var _11931=function(M){if(--M.cbt<0){throw _11931;} -return(_11905)(M);}; - -var _11915=function(M){if(--M.cbt<0){throw _11915;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11919,M.p)); -return((M.p).label)(M);}; - -var _11892=function(M){if(--M.cbt<0){throw _11892;} -return(_11884)(M);}; - -var _11871=function(M){if(--M.cbt<0){throw _11871;} -return(_11859)(M);}; - -var _11848=function(M){if(--M.cbt<0){throw _11848;} -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-6][20]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11978,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e.push(M.e[M.e.length-7][16]); -if (M.e[M.e.length-8][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-8].names[0]); } -M.v=M.e[M.e.length-8][0]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11854,M.p)); -return((M.p).label)(M);}}; - -var _11808=function(M){if(--M.cbt<0){throw _11808;} -return(_11684)(M);}; - -var _11792=function(M){if(--M.cbt<0){throw _11792;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11796,M.p)); -return((M.p).label)(M);}; - -var _11769=function(M){if(--M.cbt<0){throw _11769;} -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]="~a failed.\n"; -M.e.length+=1; -M.v=(M.e[M.e.length-10]===0); -if(M.v===false){M.v=(M.e[M.e.length-10]===1); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][7]; -M.e[M.e.length-1]="~a tests"; -M.v=M.e[M.e.length-12]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11777,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-10]; -M.e[M.e.length-1]="one test"; -return(_11771)(M);}}else{M.v=M.e[M.e.length-10]; -M.e[M.e.length-1]="zero tests"; -return(_11771)(M);}}; - -var _11761=function(M){if(--M.cbt<0){throw _11761;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11765,M.p)); -return((M.p).label)(M);}; - -var _11745=function(M){if(--M.cbt<0){throw _11745;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=0; -M.v=((plt.baselib.numbers.greaterThan(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,">"),M.e[M.e.length-2]))); -M.e.length-=2; -if(M.v===false){M.v=M.e[M.e.length-1]; -return(_11739)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][10]; -M.e.push(M.e[M.e.length-10][11]); -M.e.push(M.e[M.e.length-11][12]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-14][13]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.v=0; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11749,M.p)); -return((M.p).label)(M);}}; - -var _11717=function(M){if(--M.cbt<0){throw _11717;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-1]===0); -if(M.v===false){M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][7]; -M.e[M.e.length-1]="~a tests"; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11726,M.p)); -return((M.p).label)(M);}else{M.v="one test"; -return(_11718)(M);}}else{M.v="zero tests"; -return(_11718)(M);}}; - -var _11692=function(M){if(--M.cbt<0){throw _11692;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.v=(M.e[M.e.length-1]===2); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-9][7]; -M.e[M.e.length-1]="All ~a tests passed!"; -M.e.push(M.e[M.e.length-9][16]); -if (M.e[M.e.length-10][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-10].names[0]); } -M.v=M.e[M.e.length-10][0]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11701,M.p)); -return((M.p).label)(M);}else{M.v="Both tests passed!"; -return(_11693)(M);}}else{M.v="The test passed!"; -return(_11693)(M);}}; - -var _11667=function(M){if(--M.cbt<0){throw _11667;} -M.e[M.e.length-1]=M.v; -M.v=M.e[M.e.length-1]; -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-6],0,"add1")); -M.e.length+=1; -M.e.push(M.e[M.e.length-5][21]); -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11841,M.p)); -return((M.p).label)(M);}else{M.e.length+=1; -M.e[M.e.length-1]=plt.baselib.numbers.add(1, RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-5],0,"add1")); -M.e.length+=1; -M.e.push(M.e[M.e.length-5][21]); -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11675,M.p)); -return((M.p).label)(M);}}; - -var _11650=function(M){if(--M.cbt<0){throw _11650;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11654,M.p)); -return((M.p).label)(M);}; - -var _11638=function(M){if(--M.cbt<0){throw _11638;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11642,M.p)); -return((M.p).label)(M);}; - -var _11607=function(M){if(--M.cbt<0){throw _11607;} -M.e[M.e.length-1]=M.v; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][14]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11611,M.p)); -return((M.p).label)(M);}; - -var _11595=function(M){if(--M.cbt<0){throw _11595;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=0; -M.v=((plt.baselib.numbers.greaterThan(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,">"),M.e[M.e.length-2]))); -M.e.length-=2; -if(M.v===false){M.v=M.e[M.e.length-1]; -return(_11589)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][10]; -M.e.push(M.e[M.e.length-6][11]); -M.e.push(M.e[M.e.length-7][12]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][13]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.v=0; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11599,M.p)); -return((M.p).label)(M);}}; - -var _11563=function(M){if(--M.cbt<0){throw _11563;} -return(_11534)(M);}; - -var _11542=function(M){if(--M.cbt<0){throw _11542;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.v=(M.e[M.e.length-1]===2); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5][7]; -M.e[M.e.length-1]="All ~a tests passed!"; -M.e.push(M.e[M.e.length-5][16]); -if (M.e[M.e.length-6][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-6].names[0]); } -M.v=M.e[M.e.length-6][0]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11551,M.p)); -return((M.p).label)(M);}else{M.v="Both tests passed!"; -return(_11543)(M);}}else{M.v="The test passed!"; -return(_11543)(M);}}; - -var _11532=function(M){if(--M.cbt<0){throw _11532;} -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-2][20]); -M.v=M.e[M.e.length-6]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11662,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-4]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e.push(M.e[M.e.length-3][16]); -if (M.e[M.e.length-4][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-4].names[0]); } -M.v=M.e[M.e.length-4][0]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11538,M.p)); -return((M.p).label)(M);}}; - - -var _12261=function(M){if(--M.cbt<0){throw _12261;} -M.e.length-=(M.a-1); -return(_12262)(M);}; - -var _12253=function(M){if(--M.cbt<0){throw _12253;} -M.e.length-=(M.a-1); -return(_12254)(M);}; - -var _12249=function(M){if(--M.cbt<0){throw _12249;} -M.e.length-=(M.a-1); -return(_12250)(M);}; - -var _12247=function(M){--M.cbt<0; -M.modules["whalesong/lang/check-expect/check-expect.rkt"].isInvoked=true; -if((M.modules["whalesong/lang/base.rkt"]!==undefined)!==false){if(M.modules["whalesong/lang/base.rkt"].isInvoked!==false){return(_12250)(M);}else{M.c.push(new RT.CallFrame(_12250,M.p)); -return(M.modules["whalesong/lang/base.rkt"].label)(M);}}else{return(_12250)(M);}}; - -var _11712=function(M){if(--M.cbt<0){throw _11712;} -M.e.length-=(M.a-1); -return(_11713)(M);}; - - - - - - - - - -var _11618=function(M){if(--M.cbt<0){throw _11618;} -M.e.length-=(M.a-1); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][3]; -M.e[M.e.length-1]="~a failed.\n"; -M.e.length+=1; -M.v=(M.e[M.e.length-6]===0); -if(M.v===false){M.v=(M.e[M.e.length-6]===1); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][7]; -M.e[M.e.length-1]="~a tests"; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11627,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-6]; -M.e[M.e.length-1]="one test"; -return(_11621)(M);}}else{M.v=M.e[M.e.length-6]; -M.e[M.e.length-1]="zero tests"; -return(_11621)(M);}}; - -var _12135=function(M){if(--M.cbt<0){throw _12135;} -M.e.length-=(M.a-1); -M.p=M.e[M.e.length-2][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12140,M.p)); -return((M.p).label)(M);}; - - - - -var _12289=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_11526,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/lang/check-expect/check-expect.rkt"]=new RT.ModuleRecord("check-expect",_12247); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - -var _12258=function(M){if(--M.cbt<0){throw _12258;} -M.c.push(new RT.PromptFrame(_12260,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_11520,1,[M.e[M.e.length-1]],"accumulate-test!"); -M.e[M.e.length-1][5]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _11526=function(M){if(--M.cbt<0){throw _11526;} -}; - - -var _12205=function(M){if(--M.cbt<0){throw _12205;} -M.e[M.e.length-1]=M.v; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-8][14]; -M.e[M.e.length-1]="zero tests"; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12209,M.p)); -return((M.p).label)(M);}; - - - -var _12037=function(M){if(--M.cbt<0){throw _12037;} -M.e.length-=(M.a-1); -M.v=false; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - - -var _12084=function(M){if(--M.cbt<0){throw _12084;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - - -var _12038=function(M){if(--M.cbt<0){throw _12038;} -M.v=false; -M.e.length-=7; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - -var _11998=function(M){if(--M.cbt<0){throw _11998;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _11974=function(M){if(--M.cbt<0){throw _11974;} -return(_11850)(M);}; - -var _11958=function(M){if(--M.cbt<0){throw _11958;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11962,M.p)); -return((M.p).label)(M);}; - -var _11935=function(M){if(--M.cbt<0){throw _11935;} -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]="~a failed.\n"; -M.e.length+=1; -M.v=(M.e[M.e.length-5]===0); -if(M.v===false){M.v=(M.e[M.e.length-5]===1); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][7]; -M.e[M.e.length-1]="~a tests"; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11943,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e[M.e.length-1]="one test"; -return(_11937)(M);}}else{M.v=M.e[M.e.length-5]; -M.e[M.e.length-1]="zero tests"; -return(_11937)(M);}}; - -var _11919=function(M){if(--M.cbt<0){throw _11919;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11923,M.p)); -return((M.p).label)(M);}; - -var _11896=function(M){if(--M.cbt<0){throw _11896;} -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]="~a passed.\n"; -M.e.length+=1; -M.v=(M.e[M.e.length-9]===0); -if(M.v===false){M.v=(M.e[M.e.length-9]===1); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][7]; -M.e[M.e.length-1]="~a tests"; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11904,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-9]; -M.e[M.e.length-1]="one test"; -return(_11898)(M);}}else{M.v=M.e[M.e.length-9]; -M.e[M.e.length-1]="zero tests"; -return(_11898)(M);}}; - -var _11875=function(M){if(--M.cbt<0){throw _11875;} -M.p=M.e[M.e.length-5][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11879,M.p)); -return((M.p).label)(M);}; - -var _11854=function(M){if(--M.cbt<0){throw _11854;} -M.e[M.e.length-2]=M.v; -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],1,"=")))); -M.e.length-=2; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]="Ran ~a.\n"; -M.e.length+=1; -M.e.push(M.e[M.e.length-8][16]); -if (M.e[M.e.length-9][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-9].names[0]); } -M.v=M.e[M.e.length-9][0]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11883,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-6]; -M.v=M.e[M.e.length-2]; -M.e.push(M.e[M.e.length-5][18]); -M.e.length+=1; -M.e.push(M.e[M.e.length-7][16]); -if (M.e[M.e.length-8][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-8].names[0]); } -M.v=M.e[M.e.length-8][0]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11858,M.p)); -return((M.p).label)(M);}}; - -var _11824=function(M){if(--M.cbt<0){throw _11824;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _11804=function(M){if(--M.cbt<0){throw _11804;} -return(_11778)(M);}; - -var _11788=function(M){if(--M.cbt<0){throw _11788;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11792,M.p)); -return((M.p).label)(M);}; - -var _11765=function(M){if(--M.cbt<0){throw _11765;} -return(_11739)(M);}; - -var _11749=function(M){if(--M.cbt<0){throw _11749;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11753,M.p)); -return((M.p).label)(M);}; - -var _11726=function(M){if(--M.cbt<0){throw _11726;} -return(_11718)(M);}; - -var _11705=function(M){if(--M.cbt<0){throw _11705;} -return(_11693)(M);}; - -var _11682=function(M){if(--M.cbt<0){throw _11682;} -if(M.v===false){M.e.length+=1; -M.e.push(M.e[M.e.length-6][20]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11812,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-1]; -M.e.length+=2; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.e.push(M.e[M.e.length-7][16]); -if (M.e[M.e.length-8][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-8].names[0]); } -M.v=M.e[M.e.length-8][0]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11688,M.p)); -return((M.p).label)(M);}}; - -var _11658=function(M){if(--M.cbt<0){throw _11658;} -return(_11534)(M);}; - -var _11642=function(M){if(--M.cbt<0){throw _11642;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11646,M.p)); -return((M.p).label)(M);}; - -var _11619=function(M){if(--M.cbt<0){throw _11619;} -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][3]; -M.e[M.e.length-1]="~a failed.\n"; -M.e.length+=1; -M.v=(M.e[M.e.length-6]===0); -if(M.v===false){M.v=(M.e[M.e.length-6]===1); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][7]; -M.e[M.e.length-1]="~a tests"; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11627,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-6]; -M.e[M.e.length-1]="one test"; -return(_11621)(M);}}else{M.v=M.e[M.e.length-6]; -M.e[M.e.length-1]="zero tests"; -return(_11621)(M);}}; - -var _11603=function(M){if(--M.cbt<0){throw _11603;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11607,M.p)); -return((M.p).label)(M);}; - -var _11599=function(M){if(--M.cbt<0){throw _11599;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11603,M.p)); -return((M.p).label)(M);}; - -var _11559=function(M){if(--M.cbt<0){throw _11559;} -M.p=M.e[M.e.length-1][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11563,M.p)); -return((M.p).label)(M);}; - -var _11538=function(M){if(--M.cbt<0){throw _11538;} -M.e[M.e.length-2]=M.v; -M.v=((plt.baselib.numbers.equals(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,"="),RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-2],1,"=")))); -M.e.length-=2; -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][3]; -M.e[M.e.length-1]="Ran ~a.\n"; -M.e.length+=1; -M.e.push(M.e[M.e.length-4][16]); -if (M.e[M.e.length-5][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-5].names[0]); } -M.v=M.e[M.e.length-5][0]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11567,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-3]; -M.v=M.e[M.e.length-2]; -M.e.push(M.e[M.e.length-1][18]); -M.e.length+=1; -M.e.push(M.e[M.e.length-3][16]); -if (M.e[M.e.length-4][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-4].names[0]); } -M.v=M.e[M.e.length-4][0]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11542,M.p)); -return((M.p).label)(M);}}; - - - - - - -var _11525=function(M){if(--M.cbt<0){throw _11525;} -M.e.length-=M.a; -return(_11526)(M);}; - -var _11708=function(M){if(--M.cbt<0){throw _11708;} -M.e.length-=(M.a-1); -M.p=M.e[M.e.length-5][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11713,M.p)); -return((M.p).label)(M);}; - - -var _12216=function(M){if(--M.cbt<0){throw _12216;} -M.e.length-=(M.a-1); -return(_12111)(M);}; - - - -var _11657=function(M){if(--M.cbt<0){throw _11657;} -M.e.length-=(M.a-1); -return(_11534)(M);}; - - - - -var _12156=function(M){if(--M.cbt<0){throw _12156;} -M.e.length-=(M.a-1); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-4][3]; -M.e[M.e.length-1]="~a passed.\n"; -M.e.length+=2; -M.e.push(M.e[M.e.length-6][9]); -M.v="zero tests"; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12163,M.p)); -return((M.p).label)(M);}; - - - - - - -var _11562=function(M){if(--M.cbt<0){throw _11562;} -M.e.length-=(M.a-1); -return(_11563)(M);}; - -var _11558=function(M){if(--M.cbt<0){throw _11558;} -M.e.length-=(M.a-1); -M.p=M.e[M.e.length-1][19]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11563,M.p)); -return((M.p).label)(M);}; - - - -var _11517=function(M){if(--M.cbt<0){throw _11517;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][17]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11532,M.p)); -return((M.p).label)(M);}; - -var _11521=function(M){if(--M.cbt<0){throw _11521;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=(M.e[M.e.length-2]===0); -if(M.v===false){M.v=(M.e[M.e.length-2]===1); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][7]; -M.e[M.e.length-1]="~a tests"; -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}else{M.v="one test"; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}else{M.v="zero tests"; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}}; - -var _11520=function(M){if(--M.cbt<0){throw _11520;} -M.e.push.apply(M.e,M.p.closedVals); -M.e[M.e.length-1][0]=RT.makePair(M.e[M.e.length-2],M.e[M.e.length-1][0]); -M.v=RT.VOID; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - -var _11519=function(M){if(--M.cbt<0){throw _11519;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-5][3]; -M.e[M.e.length-1]=" at: ~s, line ~s, column ~s\n"; -M.e.push(M.primitives["srcloc-source"]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12042,M.p)); -return((M.p).label)(M);}; - - -var _12021=function(M){if(--M.cbt<0){throw _12021;} -M.e.length-=(M.a-1); -M.e.length+=4; -M.e[M.e.length-4]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]=" at: ~s, line ~s, column ~s\n"; -M.e.push(M.primitives["srcloc-source"]); -M.v=M.e[M.e.length-10]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12026,M.p)); -return((M.p).label)(M);}; - - - - - -var _11973=function(M){if(--M.cbt<0){throw _11973;} -M.e.length-=(M.a-1); -return(_11850)(M);}; - - - - -var _11934=function(M){if(--M.cbt<0){throw _11934;} -M.e.length-=(M.a-1); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]="~a failed.\n"; -M.e.length+=1; -M.v=(M.e[M.e.length-5]===0); -if(M.v===false){M.v=(M.e[M.e.length-5]===1); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][7]; -M.e[M.e.length-1]="~a tests"; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11943,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e[M.e.length-1]="one test"; -return(_11937)(M);}}else{M.v=M.e[M.e.length-5]; -M.e[M.e.length-1]="zero tests"; -return(_11937)(M);}}; - - - - -var _11895=function(M){if(--M.cbt<0){throw _11895;} -M.e.length-=(M.a-1); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]="~a passed.\n"; -M.e.length+=1; -M.v=(M.e[M.e.length-9]===0); -if(M.v===false){M.v=(M.e[M.e.length-9]===1); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][7]; -M.e[M.e.length-1]="~a tests"; -M.v=M.e[M.e.length-11]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11904,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-9]; -M.e[M.e.length-1]="one test"; -return(_11898)(M);}}else{M.v=M.e[M.e.length-9]; -M.e[M.e.length-1]="zero tests"; -return(_11898)(M);}}; - - -var _11878=function(M){if(--M.cbt<0){throw _11878;} -M.e.length-=(M.a-1); -return(_11879)(M);}; - - - - - - - - - - - - -var _11768=function(M){if(--M.cbt<0){throw _11768;} -M.e.length-=(M.a-1); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]="~a failed.\n"; -M.e.length+=1; -M.v=(M.e[M.e.length-10]===0); -if(M.v===false){M.v=(M.e[M.e.length-10]===1); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][7]; -M.e[M.e.length-1]="~a tests"; -M.v=M.e[M.e.length-12]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11777,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-10]; -M.e[M.e.length-1]="one test"; -return(_11771)(M);}}else{M.v=M.e[M.e.length-10]; -M.e[M.e.length-1]="zero tests"; -return(_11771)(M);}}; - - - - -var _11729=function(M){if(--M.cbt<0){throw _11729;} -M.e.length-=(M.a-1); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][3]; -M.e[M.e.length-1]="~a passed.\n"; -M.e.length+=1; -M.v=(M.e[M.e.length-5]===0); -if(M.v===false){M.v=(M.e[M.e.length-5]===1); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][7]; -M.e[M.e.length-1]="~a tests"; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11738,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e[M.e.length-1]="one test"; -return(_11732)(M);}}else{M.v=M.e[M.e.length-5]; -M.e[M.e.length-1]="zero tests"; -return(_11732)(M);}}; - - - - - - - - - - - - - - - - -var _11579=function(M){if(--M.cbt<0){throw _11579;} -M.e.length-=(M.a-1); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][3]; -M.e[M.e.length-1]="~a passed.\n"; -M.e.length+=1; -M.v=(M.e[M.e.length-5]===0); -if(M.v===false){M.v=(M.e[M.e.length-5]===1); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-6][7]; -M.e[M.e.length-1]="~a tests"; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11588,M.p)); -return((M.p).label)(M);}else{M.v=M.e[M.e.length-5]; -M.e[M.e.length-1]="one test"; -return(_11582)(M);}}else{M.v=M.e[M.e.length-5]; -M.e[M.e.length-1]="zero tests"; -return(_11582)(M);}}; - - - - - - -var _12276=function(M){--M.cbt<0; -M.e[M.e.length-5]=M.v; -M.e[M.e.length-6]=M.e[M.e.length-1]; -M.e[M.e.length-7]=M.e[M.e.length-2]; -M.e[M.e.length-8]=M.e[M.e.length-3]; -M.e[M.e.length-9]=M.e[M.e.length-4]; -M.e.length-=4; -M.v=M.e[M.e.length-5]; -M.e.length+=4; -M.e[M.e.length-4]=M.primitives["values"]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-3]=M.e[M.e.length-7]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["make-struct-field-accessor"]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]=0; -M.v=RT.makeSymbol("result"); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12283,M.p)); -return((M.p).label)(M);}; - -var _12189=function(M){--M.cbt<0; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12217,M.p)); -return((M.p).label)(M);}; - -var _12145=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12157,M.p)); -return((M.p).label)(M);}; - -var _12111=function(M){--M.cbt<0; -M.e[M.e.length-2][0]=RT.NULL; -M.v=RT.VOID; -M.e.length-=2; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _11523=function(M){if(--M.cbt<0){throw _11523;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=2; -M.e.push(M.e[M.e.length-3][16]); -if (M.e[M.e.length-4][0]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-4].names[0]); } -M.v=M.e[M.e.length-4][0]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12094,M.p)); -return((M.p).label)(M);}; - -var _11522=function(M){if(--M.cbt<0){throw _11522;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=2; -M.e.push(M.e[M.e.length-3][9]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12068,M.p)); -return((M.p).label)(M);}; - -var _11518=function(M){if(--M.cbt<0){throw _11518;} -M.e.push.apply(M.e,M.p.closedVals); -M.v=M.e[M.e.length-2]; -M.e.length+=1; -M.p=M.e[M.e.length-6]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12006,M.p)); -return((M.p).label)(M);}; - -var _11944=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11974,M.p)); -return((M.p).label)(M);}; - -var _11937=function(M){--M.cbt<0; -M.e.length+=2; -M.e.push(M.e[M.e.length-10][9]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11950,M.p)); -return((M.p).label)(M);}; - -var _11905=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11935,M.p)); -return((M.p).label)(M);}; - -var _11884=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11896,M.p)); -return((M.p).label)(M);}; - -var _11850=function(M){--M.cbt<0; -M.e[M.e.length-5][0]=RT.NULL; -M.v=RT.VOID; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _11859=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11875,M.p)); -return((M.p).label)(M);}; - -var _11778=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11808,M.p)); -return((M.p).label)(M);}; - -var _11771=function(M){--M.cbt<0; -M.e.length+=2; -M.e.push(M.e[M.e.length-10][9]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11784,M.p)); -return((M.p).label)(M);}; - -var _11732=function(M){--M.cbt<0; -M.e.length+=2; -M.e.push(M.e[M.e.length-10][9]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11745,M.p)); -return((M.p).label)(M);}; - -var _11718=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11730,M.p)); -return((M.p).label)(M);}; - -var _11684=function(M){--M.cbt<0; -M.e[M.e.length-5][0]=RT.NULL; -M.v=RT.VOID; -M.e.length-=8; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _11628=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11658,M.p)); -return((M.p).label)(M);}; - -var _11589=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11619,M.p)); -return((M.p).label)(M);}; - -var _11582=function(M){--M.cbt<0; -M.e.length+=2; -M.e.push(M.e[M.e.length-6][9]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11595,M.p)); -return((M.p).label)(M);}; - -var _11568=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11580,M.p)); -return((M.p).label)(M);}; - -var _11534=function(M){--M.cbt<0; -M.e[M.e.length-1][0]=RT.NULL; -M.v=RT.VOID; -M.e.length-=4; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _11693=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11709,M.p)); -return((M.p).label)(M);}; - -_12278=RT.si_context_expected(5); - -var _12256=function(M){if(--M.cbt<0){throw _12256;} -M.c.push(new RT.PromptFrame(_12258,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_11519,1,[M.e[M.e.length-1]],"display-location"); -M.e[M.e.length-1][4]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _12241=function(M){if(--M.cbt<0){throw _12241;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _12159=function(M){--M.cbt<0; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12187,M.p)); -return((M.p).label)(M);}; - -var _12120=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12136,M.p)); -return((M.p).label)(M);}; - -var _11990=function(M){if(--M.cbt<0){throw _11990;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+10),10); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _11898=function(M){--M.cbt<0; -M.e.length+=2; -M.e.push(M.e[M.e.length-10][9]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11911,M.p)); -return((M.p).label)(M);}; - -var _11739=function(M){--M.cbt<0; -M.e.length-=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11769,M.p)); -return((M.p).label)(M);}; - -var _11784=function(M){if(--M.cbt<0){throw _11784;} -M.e[M.e.length-1]=M.v; -M.e[M.e.length-2]=0; -M.v=((plt.baselib.numbers.greaterThan(RT.testArgument(M,"number",RT.isNumber,M.e[M.e.length-1],0,">"),M.e[M.e.length-2]))); -M.e.length-=2; -if(M.v===false){M.v=M.e[M.e.length-1]; -return(_11778)(M);}else{M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-10][10]; -M.e.push(M.e[M.e.length-10][11]); -M.e.push(M.e[M.e.length-11][12]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-14][13]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.v=0; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_11788,M.p)); -return((M.p).label)(M);}}; - -var _11807=function(M){if(--M.cbt<0){throw _11807;} -M.e.length-=(M.a-1); -return(_11684)(M);}; - -_12287=RT.si_context_expected(4); - -var _12274=function(M){if(--M.cbt<0){throw _12274;} -M.e[M.e.length-7]=M.v; -M.e[M.e.length-8]=false; -M.e[M.e.length-9]=RT.makePair(0,RT.NULL); -M.e[M.e.length-10]=false; -M.v=RT.makeSymbol("unexpected-no-error"); -M.p=M.e[M.e.length-11]; -M.e[M.e.length-11]=M.v; -M.a=11; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12278,M.p)); -return((M.p).label)(M);}; - -var _12254=function(M){if(--M.cbt<0){throw _12254;} -M.c.push(new RT.PromptFrame(_12256,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_11518,4,[M.e[M.e.length-1]],"check-expect*"); -M.e[M.e.length-1][1]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _12233=function(M){if(--M.cbt<0){throw _12233;} -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _12270=function(M){--M.cbt<0; -M.e.splice(M.e.length-(3+5),5); -M.e[M.e.length-4][23]=M.v; -M.e[M.e.length-4][24]=M.e[M.e.length-1]; -M.e[M.e.length-4][25]=M.e[M.e.length-2]; -M.e[M.e.length-4][26]=M.e[M.e.length-3]; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _12201=function(M){if(--M.cbt<0){throw _12201;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12205,M.p)); -return((M.p).label)(M);}; - -var _12183=function(M){if(--M.cbt<0){throw _12183;} -return(_12159)(M);}; - -var _12167=function(M){if(--M.cbt<0){throw _12167;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12171,M.p)); -return((M.p).label)(M);}; - -var _12144=function(M){if(--M.cbt<0){throw _12144;} -M.e[M.e.length-1]=M.v; -M.v=(M.e[M.e.length-1]===0); -if(M.v===false){M.v=(M.e[M.e.length-1]===1); -if(M.v===false){M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-7][7]; -M.e[M.e.length-1]="~a tests"; -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12153,M.p)); -return((M.p).label)(M);}else{M.v="one test"; -return(_12145)(M);}}else{M.v="zero tests"; -return(_12145)(M);}}; - -var _12128=function(M){if(--M.cbt<0){throw _12128;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12132,M.p)); -return((M.p).label)(M);}; - -var _12080=function(M){if(--M.cbt<0){throw _12080;} -M.e[M.e.length-1]=M.v; -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5][14]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.v=1; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12084,M.p)); -return((M.p).label)(M);}; - -var _12034=function(M){if(--M.cbt<0){throw _12034;} -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12038,M.p)); -return((M.p).label)(M);}; - -_11559.mvr=_11558; -_11563.mvr=_11562; -_11580.mvr=_11579; -_11619.mvr=_11618; -_11658.mvr=_11657; -_11709.mvr=_11708; -_11713.mvr=_11712; -_11730.mvr=_11729; -_11769.mvr=_11768; -_11808.mvr=_11807; -_11875.mvr=_11874; -_11879.mvr=_11878; -_11896.mvr=_11895; -_11935.mvr=_11934; -_11974.mvr=_11973; -_12022.mvr=_12021; -_12038.mvr=_12037; -_12098.mvr=_12097; -_12136.mvr=_12135; -_12140.mvr=_12139; -_12157.mvr=_12156; -_12187.mvr=_12186; -_12217.mvr=_12216; -_12250.mvr=_12249; -_12252.mvr=_12251; -_12254.mvr=_12253; -_12256.mvr=_12255; -_12258.mvr=_12257; -_12260.mvr=_12259; -_12262.mvr=_12261; -_12264.mvr=_12263; -_12266.mvr=_12265; -_12278.mvr=_12277; -_12287.mvr=_12286; -_12268.mvr=_12267; -_11526.mvr=_11525; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_12289, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _12566=function(M){if(--M.cbt<0){throw _12566;} -M.p=M.e[M.e.length-7]; -M.e[M.e.length-7]=M.v; -M.a=7; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12570,M.p)); -return((M.p).label)(M);}; - -var _12532=function(M){if(--M.cbt<0){throw _12532;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=2; -if (M.e[M.e.length-3][1]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-3].names[1]); } -M.e[M.e.length-2]=M.e[M.e.length-3][1]; -M.e[M.e.length-1]=M.e[M.e.length-4]; -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+3),3); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _12547=function(M){--M.cbt<0; -M.e[M.e.length-5]=M.v; -M.e[M.e.length-6]=M.e[M.e.length-1]; -M.e[M.e.length-7]=M.e[M.e.length-2]; -M.e[M.e.length-8]=M.e[M.e.length-3]; -M.e[M.e.length-9]=M.e[M.e.length-4]; -M.e.length-=4; -M.e.length+=7; -M.e[M.e.length-7]=M.primitives["values"]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-3]=M.e[M.e.length-10]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["make-struct-field-accessor"]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=0; -M.v=RT.makeSymbol("x"); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12554,M.p)); -return((M.p).label)(M);}; - -_12570=RT.si_context_expected(7); - -var _12558=function(M){if(--M.cbt<0){throw _12558;} -M.e[M.e.length-5]=M.v; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["make-struct-field-mutator"]; -M.e[M.e.length-1]=M.e[M.e.length-15]; -M.e[M.e.length-2]=0; -M.v=RT.makeSymbol("x"); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12562,M.p)); -return((M.p).label)(M);}; - -var _12573=function(M){if(--M.cbt<0){throw _12573;} -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/lang/posn.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - -var _12574=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_12535,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/lang/posn.rkt"]=new RT.ModuleRecord("posn",_12541); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _12562=function(M){if(--M.cbt<0){throw _12562;} -M.e[M.e.length-6]=M.v; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["make-struct-field-mutator"]; -M.e[M.e.length-1]=M.e[M.e.length-15]; -M.e[M.e.length-2]=1; -M.v=RT.makeSymbol("y"); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12566,M.p)); -return((M.p).label)(M);}; - -var _12543=function(M){if(--M.cbt<0){throw _12543;} -M.c.push(new RT.PromptFrame(_12573,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_12532,2,[M.e[M.e.length-1]],"make-posn"); -M.e[M.e.length-1][7]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _12535=function(M){if(--M.cbt<0){throw _12535;} -}; - - - -var _12542=function(M){if(--M.cbt<0){throw _12542;} -M.e.length-=(M.a-1); -return(_12543)(M);}; - -_12549=RT.si_context_expected(5); - -var _12569=function(M){if(--M.cbt<0){throw _12569;} -if((M.a-7)===0){return(_12545)(M);}else{RT.si_context_expected(7)(M); -}}; - - - -var _12541=function(M){--M.cbt<0; -M.modules["whalesong/lang/posn.rkt"].isInvoked=true; -M.e.push([M.params.currentNamespace["struct:posn"]||M.primitives["struct:posn"],M.params.currentNamespace["posn1.1"]||M.primitives["posn1.1"],M.params.currentNamespace["posn?"]||M.primitives["posn?"],M.params.currentNamespace["posn-x"]||M.primitives["posn-x"],M.params.currentNamespace["posn-y"]||M.primitives["posn-y"],M.params.currentNamespace["set-posn-x!"]||M.primitives["set-posn-x!"],M.params.currentNamespace["set-posn-y!"]||M.primitives["set-posn-y!"],M.params.currentNamespace["make-posn"]||M.primitives["make-posn"]]);M.e[M.e.length-1].names=["struct:posn","posn1.1","posn?","posn-x","posn-y","set-posn-x!","set-posn-y!","make-posn"]; -M.modules["whalesong/lang/posn.rkt"].prefix=M.e[M.e.length-1]; -M.c.push(new RT.PromptFrame(_12543,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.length+=5; -M.e.length+=11; -M.e[M.e.length-11]=M.primitives["make-struct-type"]; -M.e[M.e.length-1]=RT.makeSymbol("posn"); -M.e[M.e.length-2]=false; -M.e[M.e.length-3]=2; -M.e[M.e.length-4]=0; -M.e[M.e.length-5]=false; -M.e[M.e.length-6]=RT.NULL; -M.e[M.e.length-7]=false; -M.e[M.e.length-8]=false; -M.e[M.e.length-9]=RT.NULL; -M.e[M.e.length-10]=false; -M.v=RT.makeSymbol("posn"); -M.p=M.e[M.e.length-11]; -M.e[M.e.length-11]=M.v; -M.a=11; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12549,M.p)); -return((M.p).label)(M);}; - -var _12554=function(M){if(--M.cbt<0){throw _12554;} -M.e[M.e.length-4]=M.v; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["make-struct-field-accessor"]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=1; -M.v=RT.makeSymbol("y"); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_12558,M.p)); -return((M.p).label)(M);}; - -var _12572=function(M){if(--M.cbt<0){throw _12572;} -M.e.length-=(M.a-1); -return(_12573)(M);}; - -var _12548=function(M){if(--M.cbt<0){throw _12548;} -if((M.a-5)===0){return(_12547)(M);}else{RT.si_context_expected(5)(M); -}}; - -var _12534=function(M){if(--M.cbt<0){throw _12534;} -M.e.length-=M.a; -return(_12535)(M);}; - -var _12545=function(M){--M.cbt<0; -M.e.splice(M.e.length-(6+5),5); -M.e[M.e.length-7][0]=M.v; -M.e[M.e.length-7][1]=M.e[M.e.length-1]; -M.e[M.e.length-7][2]=M.e[M.e.length-2]; -M.e[M.e.length-7][3]=M.e[M.e.length-3]; -M.e[M.e.length-7][4]=M.e[M.e.length-4]; -M.e[M.e.length-7][5]=M.e[M.e.length-5]; -M.e[M.e.length-7][6]=M.e[M.e.length-6]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -_12549.mvr=_12548; -_12570.mvr=_12569; -_12543.mvr=_12542; -_12573.mvr=_12572; -_12535.mvr=_12534; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_12574, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _1493=function(M){if(--M.cbt<0){throw _1493;} -M.c.push(new RT.PromptFrame(_1495,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1437,2,[M.e[M.e.length-1]],"boolean=?"); -M.e[M.e.length-1][3]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1465=function(M){--M.cbt<0; -M.v=(M.e[M.e.length-2]===M.e[M.e.length-3]); -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1467=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][5]; -M.e[M.e.length-1]=RT.makeSymbol("symbol=?"); -M.e[M.e.length-2]="symbol"; -M.e.push(M.e[M.e.length-6][7]); -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1481,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_1465)(M);}}; - -var _1445=function(M){--M.cbt<0; -if(M.v===false){M.e.length+=5; -M.e[M.e.length-5]=M.e[M.e.length-6][5]; -M.e[M.e.length-1]=RT.makeSymbol("boolean=?"); -M.e[M.e.length-2]="boolean"; -M.e.push(M.e[M.e.length-6][4]); -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1459,M.p)); -return((M.p).label)(M);}else{M.v=RT.VOID; -return(_1443)(M);}}; - -var _1495=function(M){if(--M.cbt<0){throw _1495;} -M.c.push(new RT.PromptFrame(_1497,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1438,2,[M.e[M.e.length-1]],"symbol=?"); -M.e[M.e.length-1][6]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1443=function(M){--M.cbt<0; -M.v=(M.e[M.e.length-2]===M.e[M.e.length-3]); -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1497=function(M){if(--M.cbt<0){throw _1497;} -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/lang/bool.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - -var _1498=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_1441,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/lang/bool.rkt"]=new RT.ModuleRecord("bool",_1487); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1491=function(M){if(--M.cbt<0){throw _1491;} -M.c.push(new RT.PromptFrame(_1493,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_1436,1,[],"false?"); -M.e[M.e.length-1][2]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1485=function(M){if(--M.cbt<0){throw _1485;} -return(_1465)(M);}; - -var _1475=function(M){if(--M.cbt<0){throw _1475;} -return(_1467)(M);}; - -var _1453=function(M){if(--M.cbt<0){throw _1453;} -return(_1445)(M);}; - -var _1488=function(M){if(--M.cbt<0){throw _1488;} -M.e.length-=(M.a-1); -return(_1489)(M);}; - -var _1487=function(M){--M.cbt<0; -M.modules["whalesong/lang/bool.rkt"].isInvoked=true; -M.e.push([M.params.currentNamespace["true"]||M.primitives["true"],M.params.currentNamespace["false"]||M.primitives["false"],M.params.currentNamespace["false?"]||M.primitives["false?"],M.params.currentNamespace["boolean=?"]||M.primitives["boolean=?"],M.primitives["boolean?"],M.primitives["raise-type-error"],M.params.currentNamespace["symbol=?"]||M.primitives["symbol=?"],M.primitives["symbol?"]]);M.e[M.e.length-1].names=["true","false","false?","boolean=?","boolean?","raise-type-error","symbol=?","symbol?"]; -M.modules["whalesong/lang/bool.rkt"].prefix=M.e[M.e.length-1]; -M.c.push(new RT.PromptFrame(_1489,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=true; -M.e[M.e.length-1][0]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1481=function(M){if(--M.cbt<0){throw _1481;} -if(M.v===false){M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1485,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=1; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1485,M.p)); -return((M.p).label)(M);}}; - - -var _1462=function(M){if(--M.cbt<0){throw _1462;} -M.e.length-=(M.a-1); -return(_1443)(M);}; - - -var _1484=function(M){if(--M.cbt<0){throw _1484;} -M.e.length-=(M.a-1); -return(_1465)(M);}; - -var _1436=function(M){if(--M.cbt<0){throw _1436;} -M.v=(M.e[M.e.length-1]===false); -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1471=function(M){if(--M.cbt<0){throw _1471;} -if(M.v===false){M.v=false; -return(_1467)(M);}else{M.e.push(M.e[M.e.length-1][7]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1475,M.p)); -return((M.p).label)(M);}}; - -var _1438=function(M){if(--M.cbt<0){throw _1438;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][7]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1471,M.p)); -return((M.p).label)(M);}; - - - - - -var _1449=function(M){if(--M.cbt<0){throw _1449;} -if(M.v===false){M.v=false; -return(_1445)(M);}else{M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-4]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1453,M.p)); -return((M.p).label)(M);}}; - -var _1490=function(M){if(--M.cbt<0){throw _1490;} -M.e.length-=(M.a-1); -return(_1491)(M);}; - -var _1437=function(M){if(--M.cbt<0){throw _1437;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][4]); -M.v=M.e[M.e.length-3]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1449,M.p)); -return((M.p).label)(M);}; - -var _1441=function(M){if(--M.cbt<0){throw _1441;} -}; - -var _1463=function(M){if(--M.cbt<0){throw _1463;} -return(_1443)(M);}; - -var _1494=function(M){if(--M.cbt<0){throw _1494;} -M.e.length-=(M.a-1); -return(_1495)(M);}; - -var _1492=function(M){if(--M.cbt<0){throw _1492;} -M.e.length-=(M.a-1); -return(_1493)(M);}; - -var _1440=function(M){if(--M.cbt<0){throw _1440;} -M.e.length-=M.a; -return(_1441)(M);}; - -var _1489=function(M){if(--M.cbt<0){throw _1489;} -M.c.push(new RT.PromptFrame(_1491,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=false; -M.e[M.e.length-1][1]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _1459=function(M){if(--M.cbt<0){throw _1459;} -if(M.v===false){M.e[M.e.length-3]=0; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1463,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-3]=1; -M.e[M.e.length-4]=M.e[M.e.length-7]; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-5]; -M.e[M.e.length-5]=M.v; -M.a=5; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_1463,M.p)); -return((M.p).label)(M);}}; - -var _1496=function(M){if(--M.cbt<0){throw _1496;} -M.e.length-=(M.a-1); -return(_1497)(M);}; - -_1463.mvr=_1462; -_1485.mvr=_1484; -_1489.mvr=_1488; -_1491.mvr=_1490; -_1493.mvr=_1492; -_1495.mvr=_1494; -_1497.mvr=_1496; -_1441.mvr=_1440; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_1498, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _19731=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_19722,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/image.rkt"]=new RT.ModuleRecord("image",_19724); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _19722=function(M){if(--M.cbt<0){throw _19722;} -}; - -var _19726=function(M){if(--M.cbt<0){throw _19726;} -M.e.length-=(M.a-1); -return(_19727)(M);}; - -var _19721=function(M){if(--M.cbt<0){throw _19721;} -M.e.length-=M.a; -return(_19722)(M);}; - -var _19729=function(M){if(--M.cbt<0){throw _19729;} -M.e.length-=(M.a-1); -return(_19730)(M);}; - -var _19727=function(M){if(--M.cbt<0){throw _19727;} -if((M.modules["whalesong/image/main.rkt"]!==undefined)!==false){if(M.modules["whalesong/image/main.rkt"].isInvoked!==false){return(_19730)(M);}else{M.c.push(new RT.CallFrame(_19730,M.p)); -return(M.modules["whalesong/image/main.rkt"].label)(M);}}else{return(_19730)(M);}}; - -var _19724=function(M){--M.cbt<0; -M.modules["whalesong/image.rkt"].isInvoked=true; -if((M.modules["whalesong/lang/base.rkt"]!==undefined)!==false){if(M.modules["whalesong/lang/base.rkt"].isInvoked!==false){return(_19727)(M);}else{M.c.push(new RT.CallFrame(_19727,M.p)); -return(M.modules["whalesong/lang/base.rkt"].label)(M);}}else{return(_19727)(M);}}; - -var _19730=function(M){if(--M.cbt<0){throw _19730;} -M.e.push([]);M.e[M.e.length-1].names=[]; -M.modules["whalesong/image.rkt"].prefix=M.e[M.e.length-1]; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/image.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - -_19727.mvr=_19726; -_19730.mvr=_19729; -_19722.mvr=_19721; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_19731, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _19745=function(M){if(--M.cbt<0){throw _19745;} -M.e.push([]);M.e[M.e.length-1].names=[]; -M.modules["whalesong/image/main.rkt"].prefix=M.e[M.e.length-1]; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/image/main.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - -var _19742=function(M){if(--M.cbt<0){throw _19742;} -if((M.modules["whalesong/image/private/color.rkt"]!==undefined)!==false){if(M.modules["whalesong/image/private/color.rkt"].isInvoked!==false){return(_19745)(M);}else{M.c.push(new RT.CallFrame(_19745,M.p)); -return(M.modules["whalesong/image/private/color.rkt"].label)(M);}}else{return(_19745)(M);}}; - -var _19746=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_19734,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/image/main.rkt"]=new RT.ModuleRecord("main",_19736); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _19741=function(M){if(--M.cbt<0){throw _19741;} -M.e.length-=(M.a-1); -return(_19742)(M);}; - -var _19738=function(M){if(--M.cbt<0){throw _19738;} -M.e.length-=(M.a-1); -return(_19739)(M);}; - -var _19736=function(M){--M.cbt<0; -M.modules["whalesong/image/main.rkt"].isInvoked=true; -if((M.modules["whalesong/lang/base.rkt"]!==undefined)!==false){if(M.modules["whalesong/lang/base.rkt"].isInvoked!==false){return(_19739)(M);}else{M.c.push(new RT.CallFrame(_19739,M.p)); -return(M.modules["whalesong/lang/base.rkt"].label)(M);}}else{return(_19739)(M);}}; - -var _19734=function(M){if(--M.cbt<0){throw _19734;} -}; - -var _19744=function(M){if(--M.cbt<0){throw _19744;} -M.e.length-=(M.a-1); -return(_19745)(M);}; - -var _19739=function(M){if(--M.cbt<0){throw _19739;} -if((M.modules["whalesong/image/private/main.rkt"]!==undefined)!==false){if(M.modules["whalesong/image/private/main.rkt"].isInvoked!==false){return(_19742)(M);}else{M.c.push(new RT.CallFrame(_19742,M.p)); -return(M.modules["whalesong/image/private/main.rkt"].label)(M);}}else{return(_19742)(M);}}; - -var _19733=function(M){if(--M.cbt<0){throw _19733;} -M.e.length-=M.a; -return(_19734)(M);}; - -_19739.mvr=_19738; -_19742.mvr=_19741; -_19745.mvr=_19744; -_19734.mvr=_19733; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_19746, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -(function(M) { -M.modules["whalesong/image/private/main.rkt"] = - new plt.runtime.ModuleRecord("whalesong/image/private/main.rkt", - function(M) { - var afterName1040 = function() { - if(--M.cbt<0) { throw arguments.callee; } - var modrec = M.modules["whalesong/image/private/main.rkt"]; - var exports = {}; - modrec.isInvoked = true; - (function(MACHINE, EXPORTS){// This might want to live in the Racket world rather than in -// JavaScript land... - - -var colorNamespace = MACHINE.modules['whalesong/image/private/color.rkt'].namespace; -var colorStruct = colorNamespace['struct:color']; -var makeColor = colorStruct.constructor; - - - -// Color database -var ColorDb = function() { - this.colors = {}; -}; - - -ColorDb.prototype.put = function(name, color) { - this.colors[name] = color; -}; - -ColorDb.prototype.get = function(name) { - return this.colors[name.toString().toUpperCase()]; -}; - - -// FIXME: update toString to handle the primitive field values. - -var colorDb = new ColorDb(); -colorDb.put("ORANGE", makeColor(255, 165, 0)); -colorDb.put("RED", makeColor(255, 0, 0)); -colorDb.put("ORANGERED", makeColor(255, 69, 0)); -colorDb.put("TOMATO", makeColor(255, 99, 71)); -colorDb.put("DARKRED", makeColor(139, 0, 0)); -colorDb.put("RED", makeColor(255, 0, 0)); -colorDb.put("FIREBRICK", makeColor(178, 34, 34)); -colorDb.put("CRIMSON", makeColor(220, 20, 60)); -colorDb.put("DEEPPINK", makeColor(255, 20, 147)); -colorDb.put("MAROON", makeColor(176, 48, 96)); -colorDb.put("INDIAN RED", makeColor(205, 92, 92)); -colorDb.put("INDIANRED", makeColor(205, 92, 92)); -colorDb.put("MEDIUM VIOLET RED", makeColor(199, 21, 133)); -colorDb.put("MEDIUMVIOLETRED", makeColor(199, 21, 133)); -colorDb.put("VIOLET RED", makeColor(208, 32, 144)); -colorDb.put("VIOLETRED", makeColor(208, 32, 144)); -colorDb.put("LIGHTCORAL", makeColor(240, 128, 128)); -colorDb.put("HOTPINK", makeColor(255, 105, 180)); -colorDb.put("PALEVIOLETRED", makeColor(219, 112, 147)); -colorDb.put("LIGHTPINK", makeColor(255, 182, 193)); -colorDb.put("ROSYBROWN", makeColor(188, 143, 143)); -colorDb.put("PINK", makeColor(255, 192, 203)); -colorDb.put("ORCHID", makeColor(218, 112, 214)); -colorDb.put("LAVENDERBLUSH", makeColor(255, 240, 245)); -colorDb.put("SNOW", makeColor(255, 250, 250)); -colorDb.put("CHOCOLATE", makeColor(210, 105, 30)); -colorDb.put("SADDLEBROWN", makeColor(139, 69, 19)); -colorDb.put("BROWN", makeColor(132, 60, 36)); -colorDb.put("DARKORANGE", makeColor(255, 140, 0)); -colorDb.put("CORAL", makeColor(255, 127, 80)); -colorDb.put("SIENNA", makeColor(160, 82, 45)); -colorDb.put("ORANGE", makeColor(255, 165, 0)); -colorDb.put("SALMON", makeColor(250, 128, 114)); -colorDb.put("PERU", makeColor(205, 133, 63)); -colorDb.put("DARKGOLDENROD", makeColor(184, 134, 11)); -colorDb.put("GOLDENROD", makeColor(218, 165, 32)); -colorDb.put("SANDYBROWN", makeColor(244, 164, 96)); -colorDb.put("LIGHTSALMON", makeColor(255, 160, 122)); -colorDb.put("DARKSALMON", makeColor(233, 150, 122)); -colorDb.put("GOLD", makeColor(255, 215, 0)); -colorDb.put("YELLOW", makeColor(255, 255, 0)); -colorDb.put("OLIVE", makeColor(128, 128, 0)); -colorDb.put("BURLYWOOD", makeColor(222, 184, 135)); -colorDb.put("TAN", makeColor(210, 180, 140)); -colorDb.put("NAVAJOWHITE", makeColor(255, 222, 173)); -colorDb.put("PEACHPUFF", makeColor(255, 218, 185)); -colorDb.put("KHAKI", makeColor(240, 230, 140)); -colorDb.put("DARKKHAKI", makeColor(189, 183, 107)); -colorDb.put("MOCCASIN", makeColor(255, 228, 181)); -colorDb.put("WHEAT", makeColor(245, 222, 179)); -colorDb.put("BISQUE", makeColor(255, 228, 196)); -colorDb.put("PALEGOLDENROD", makeColor(238, 232, 170)); -colorDb.put("BLANCHEDALMOND", makeColor(255, 235, 205)); -colorDb.put("MEDIUM GOLDENROD", makeColor(234, 234, 173)); -colorDb.put("MEDIUMGOLDENROD", makeColor(234, 234, 173)); -colorDb.put("PAPAYAWHIP", makeColor(255, 239, 213)); -colorDb.put("MISTYROSE", makeColor(255, 228, 225)); -colorDb.put("LEMONCHIFFON", makeColor(255, 250, 205)); -colorDb.put("ANTIQUEWHITE", makeColor(250, 235, 215)); -colorDb.put("CORNSILK", makeColor(255, 248, 220)); -colorDb.put("LIGHTGOLDENRODYELLOW", makeColor(250, 250, 210)); -colorDb.put("OLDLACE", makeColor(253, 245, 230)); -colorDb.put("LINEN", makeColor(250, 240, 230)); -colorDb.put("LIGHTYELLOW", makeColor(255, 255, 224)); -colorDb.put("SEASHELL", makeColor(255, 245, 238)); -colorDb.put("BEIGE", makeColor(245, 245, 220)); -colorDb.put("FLORALWHITE", makeColor(255, 250, 240)); -colorDb.put("IVORY", makeColor(255, 255, 240)); -colorDb.put("GREEN", makeColor(0, 255, 0)); -colorDb.put("LAWNGREEN", makeColor(124, 252, 0)); -colorDb.put("CHARTREUSE", makeColor(127, 255, 0)); -colorDb.put("GREEN YELLOW", makeColor(173, 255, 47)); -colorDb.put("GREENYELLOW", makeColor(173, 255, 47)); -colorDb.put("YELLOW GREEN", makeColor(154, 205, 50)); -colorDb.put("YELLOWGREEN", makeColor(154, 205, 50)); -colorDb.put("MEDIUM FOREST GREEN", makeColor(107, 142, 35)); -colorDb.put("OLIVEDRAB", makeColor(107, 142, 35)); -colorDb.put("MEDIUMFORESTGREEN", makeColor(107, 142, 35)); -colorDb.put("DARK OLIVE GREEN", makeColor(85, 107, 47)); -colorDb.put("DARKOLIVEGREEN", makeColor(85, 107, 47)); -colorDb.put("DARKSEAGREEN", makeColor(143, 188, 139)); -colorDb.put("LIME", makeColor(0, 255, 0)); -colorDb.put("DARK GREEN", makeColor(0, 100, 0)); -colorDb.put("DARKGREEN", makeColor(0, 100, 0)); -colorDb.put("LIME GREEN", makeColor(50, 205, 50)); -colorDb.put("LIMEGREEN", makeColor(50, 205, 50)); -colorDb.put("FOREST GREEN", makeColor(34, 139, 34)); -colorDb.put("FORESTGREEN", makeColor(34, 139, 34)); -colorDb.put("SPRING GREEN", makeColor(0, 255, 127)); -colorDb.put("SPRINGGREEN", makeColor(0, 255, 127)); -colorDb.put("MEDIUM SPRING GREEN", makeColor(0, 250, 154)); -colorDb.put("MEDIUMSPRINGGREEN", makeColor(0, 250, 154)); -colorDb.put("SEA GREEN", makeColor(46, 139, 87)); -colorDb.put("SEAGREEN", makeColor(46, 139, 87)); -colorDb.put("MEDIUM SEA GREEN", makeColor(60, 179, 113)); -colorDb.put("MEDIUMSEAGREEN", makeColor(60, 179, 113)); -colorDb.put("AQUAMARINE", makeColor(112, 216, 144)); -colorDb.put("LIGHTGREEN", makeColor(144, 238, 144)); -colorDb.put("PALE GREEN", makeColor(152, 251, 152)); -colorDb.put("PALEGREEN", makeColor(152, 251, 152)); -colorDb.put("MEDIUM AQUAMARINE", makeColor(102, 205, 170)); -colorDb.put("MEDIUMAQUAMARINE", makeColor(102, 205, 170)); -colorDb.put("TURQUOISE", makeColor(64, 224, 208)); -colorDb.put("LIGHTSEAGREEN", makeColor(32, 178, 170)); -colorDb.put("MEDIUM TURQUOISE", makeColor(72, 209, 204)); -colorDb.put("MEDIUMTURQUOISE", makeColor(72, 209, 204)); -colorDb.put("HONEYDEW", makeColor(240, 255, 240)); -colorDb.put("MINTCREAM", makeColor(245, 255, 250)); -colorDb.put("ROYALBLUE", makeColor(65, 105, 225)); -colorDb.put("DODGERBLUE", makeColor(30, 144, 255)); -colorDb.put("DEEPSKYBLUE", makeColor(0, 191, 255)); -colorDb.put("CORNFLOWERBLUE", makeColor(100, 149, 237)); -colorDb.put("STEEL BLUE", makeColor(70, 130, 180)); -colorDb.put("STEELBLUE", makeColor(70, 130, 180)); -colorDb.put("LIGHTSKYBLUE", makeColor(135, 206, 250)); -colorDb.put("DARK TURQUOISE", makeColor(0, 206, 209)); -colorDb.put("DARKTURQUOISE", makeColor(0, 206, 209)); -colorDb.put("CYAN", makeColor(0, 255, 255)); -colorDb.put("AQUA", makeColor(0, 255, 255)); -colorDb.put("DARKCYAN", makeColor(0, 139, 139)); -colorDb.put("TEAL", makeColor(0, 128, 128)); -colorDb.put("SKY BLUE", makeColor(135, 206, 235)); -colorDb.put("SKYBLUE", makeColor(135, 206, 235)); -colorDb.put("CADET BLUE", makeColor(96, 160, 160)); -colorDb.put("CADETBLUE", makeColor(95, 158, 160)); -colorDb.put("DARK SLATE GRAY", makeColor(47, 79, 79)); -colorDb.put("DARKSLATEGRAY", makeColor(47, 79, 79)); -colorDb.put("LIGHTSLATEGRAY", makeColor(119, 136, 153)); -colorDb.put("SLATEGRAY", makeColor(112, 128, 144)); -colorDb.put("LIGHT STEEL BLUE", makeColor(176, 196, 222)); -colorDb.put("LIGHTSTEELBLUE", makeColor(176, 196, 222)); -colorDb.put("LIGHT BLUE", makeColor(173, 216, 230)); -colorDb.put("LIGHTBLUE", makeColor(173, 216, 230)); -colorDb.put("POWDERBLUE", makeColor(176, 224, 230)); -colorDb.put("PALETURQUOISE", makeColor(175, 238, 238)); -colorDb.put("LIGHTCYAN", makeColor(224, 255, 255)); -colorDb.put("ALICEBLUE", makeColor(240, 248, 255)); -colorDb.put("AZURE", makeColor(240, 255, 255)); -colorDb.put("MEDIUM BLUE", makeColor(0, 0, 205)); -colorDb.put("MEDIUMBLUE", makeColor(0, 0, 205)); -colorDb.put("DARKBLUE", makeColor(0, 0, 139)); -colorDb.put("MIDNIGHT BLUE", makeColor(25, 25, 112)); -colorDb.put("MIDNIGHTBLUE", makeColor(25, 25, 112)); -colorDb.put("NAVY", makeColor(36, 36, 140)); -colorDb.put("BLUE", makeColor(0, 0, 255)); -colorDb.put("INDIGO", makeColor(75, 0, 130)); -colorDb.put("BLUE VIOLET", makeColor(138, 43, 226)); -colorDb.put("BLUEVIOLET", makeColor(138, 43, 226)); -colorDb.put("MEDIUM SLATE BLUE", makeColor(123, 104, 238)); -colorDb.put("MEDIUMSLATEBLUE", makeColor(123, 104, 238)); -colorDb.put("SLATE BLUE", makeColor(106, 90, 205)); -colorDb.put("SLATEBLUE", makeColor(106, 90, 205)); -colorDb.put("PURPLE", makeColor(160, 32, 240)); -colorDb.put("DARK SLATE BLUE", makeColor(72, 61, 139)); -colorDb.put("DARKSLATEBLUE", makeColor(72, 61, 139)); -colorDb.put("DARKVIOLET", makeColor(148, 0, 211)); -colorDb.put("DARK ORCHID", makeColor(153, 50, 204)); -colorDb.put("DARKORCHID", makeColor(153, 50, 204)); -colorDb.put("MEDIUMPURPLE", makeColor(147, 112, 219)); -colorDb.put("CORNFLOWER BLUE", makeColor(68, 64, 108)); -colorDb.put("MEDIUM ORCHID", makeColor(186, 85, 211)); -colorDb.put("MEDIUMORCHID", makeColor(186, 85, 211)); -colorDb.put("MAGENTA", makeColor(255, 0, 255)); -colorDb.put("FUCHSIA", makeColor(255, 0, 255)); -colorDb.put("DARKMAGENTA", makeColor(139, 0, 139)); -colorDb.put("VIOLET", makeColor(238, 130, 238)); -colorDb.put("PLUM", makeColor(221, 160, 221)); -colorDb.put("LAVENDER", makeColor(230, 230, 250)); -colorDb.put("THISTLE", makeColor(216, 191, 216)); -colorDb.put("GHOSTWHITE", makeColor(248, 248, 255)); -colorDb.put("WHITE", makeColor(255, 255, 255)); -colorDb.put("WHITESMOKE", makeColor(245, 245, 245)); -colorDb.put("GAINSBORO", makeColor(220, 220, 220)); -colorDb.put("LIGHT GRAY", makeColor(211, 211, 211)); -colorDb.put("LIGHTGRAY", makeColor(211, 211, 211)); -colorDb.put("SILVER", makeColor(192, 192, 192)); -colorDb.put("GRAY", makeColor(190, 190, 190)); -colorDb.put("DARK GRAY", makeColor(169, 169, 169)); -colorDb.put("DARKGRAY", makeColor(169, 169, 169)); -colorDb.put("DIM GRAY", makeColor(105, 105, 105)); -colorDb.put("DIMGRAY", makeColor(105, 105, 105)); -colorDb.put("BLACK", makeColor(0, 0, 0)); - - - -EXPORTS['_colorDb'] = colorDb; - -// Basic implementation of the image library. -// -// This should mimic the implementation of 2htdp/image. - - -////////////////////////////////////////////////////////////////////// -var colorNamespace = MACHINE.modules['whalesong/image/private/color.rkt'].namespace; -var colorStruct = colorNamespace['struct:color']; -var makeColor = colorStruct.constructor; -var isColor = colorStruct.predicate; -var colorRed = function(c) { return colorStruct.accessor(c, 0); }; -var colorGreen = function(c) { return colorStruct.accessor(c, 1); }; -var colorBlue = function(c) { return colorStruct.accessor(c, 2); }; -var colorAlpha = function(c) { return colorStruct.accessor(c, 3); }; -////////////////////////////////////////////////////////////////////// - -var heir = plt.baselib.heir; -var clone = plt.baselib.clone; - - - - -var isAngle = function(x) { - return plt.baselib.numbers.isReal(x) && - jsnums.greaterThanOrEqual(x, 0) && - jsnums.lessThan(x, 360); -}; - - - - -// Produces true if the value is a color or a color string. -// On the Racket side of things, this is exposed as image-color?. -var isColorOrColorString = function(thing) { - return (isColor(thing) || - ((plt.baselib.strings.isString(thing) || - plt.baselib.symbols.isSymbol(thing)) && - typeof(colorDb.get(thing)) != 'undefined')); -} - - - - - - -var colorString = function(aColor) { - return ("rgb(" + - colorRed(aColor) + "," + - colorGreen(aColor) + ", " + - colorBlue(aColor) + ")"); -}; - - - - - - -var isSideCount = function(x) { - return plt.baselib.numbers.isInteger(x) && jsnums.greaterThanOrEqual(x, 3); -}; - -var isStepCount = function(x) { - return plt.baselib.numbers.isInteger(x) && jsnums.greaterThanOrEqual(x, 1); -}; - - -var isPointsCount = function(x) { - return plt.baselib.numbers.isNatural(x) && jsnums.greaterThanOrEqual(x, 2); -}; - - - - - -// Produces true if thing is an image-like object. -var isImage = function(thing) { - if (typeof(thing.getHeight) !== 'function') - return false; - if (typeof(thing.getWidth) !== 'function') - return false; - if (typeof(thing.getBaseline) !== 'function') - return false; - if (typeof(thing.updatePinhole) !== 'function') - return false; - if (typeof(thing.render) !== 'function') - return false; - return true; -}; - - - -// Base class for all images. -var BaseImage = function(pinholeX, pinholeY) { - this.pinholeX = pinholeX; - this.pinholeY = pinholeY; -}; - - - -BaseImage.prototype.updatePinhole = function(x, y) { - var aCopy = clone(this); - aCopy.pinholeX = x; - aCopy.pinholeY = y; - return aCopy; -}; - -BaseImage.prototype.getHeight = function(){ - return this.height; -}; - -BaseImage.prototype.getWidth = function(){ - return this.width; -}; - -BaseImage.prototype.getBaseline = function(){ - return this.height; -}; - - -// render: context fixnum fixnum: -> void -// Render the image, where the upper-left corner of the image is drawn at -// (x, y). -// NOTE: the rendering should be oblivous to the pinhole. -BaseImage.prototype.render = function(ctx, x, y) { - throw new Error('BaseImage.render unimplemented!'); -}; - - -// makeCanvas: number number -> canvas -// Constructs a canvas object of a particular width and height. -var makeCanvas = function(width, height) { - var canvas = document.createElement("canvas"); - canvas.width = width; - canvas.height = height; - - $(canvas).css('width', canvas.width + "px"); - $(canvas).css('height', canvas.height + "px"); - $(canvas).css('padding', '0px'); - - // KLUDGE: IE compatibility uses /js/excanvas.js, and dynamic - // elements must be marked this way. - if (window.G_vmlCanvasManager) { - canvas = window.G_vmlCanvasManager.initElement(canvas); - } - return canvas; -}; - - - -var withIeHack = function(canvas, f) { - // canvas.style.display = 'none'; - // document.body.appendChild(canvas); - // try { - var result = f(canvas); - // } catch(e) { - // document.body.removeChild(canvas); - // canvas.style.display = ''; - // throw e; - // } - // document.body.removeChild(canvas); - // canvas.style.display = ''; - return result; -}; - - - -// Images are expected to define a render() method, which is used -// here to draw to the canvas. -BaseImage.prototype.toDomNode = function(params) { - var that = this; - var width = that.getWidth(); - var height = that.getHeight(); - var canvas = makeCanvas(width, height); - var ctx; - - // // Try best effort to render to screen at this point. - // try { - // ctx = canvas.getContext("2d"); - // that.render(ctx, 0, 0); - // } catch (e) { - // } - // KLUDGE: on IE, the canvas rendering functions depend on a - // context where the canvas is attached to the DOM tree. - // We initialize an afterAttach hook; the client's responsible - // for calling this after the dom node is attached to the - // document. - var onAfterAttach = function(event) { - // $(canvas).unbind('afterAttach', onAfterAttach); - var ctx = this.getContext("2d"); - that.render(ctx, 0, 0); - }; - $(canvas).bind('afterAttach', onAfterAttach); - - // Canvases lose their drawn content on cloning. data may help us to preserve it. - $(canvas).data('toRender', onAfterAttach); - - return canvas; -}; - - - - -BaseImage.prototype.toWrittenString = function(cache) { return ""; } -BaseImage.prototype.toDisplayedString = function(cache) { return ""; } - -BaseImage.prototype.equals = function(other, aUnionFind) { - return (this.pinholeX == other.pinholeX && - this.pinholeY == other.pinholeY); -}; - - - - -// isScene: any -> boolean -// Produces true when x is a scene. -var isScene = function(x) { - return ((x != undefined) && (x != null) && (x instanceof SceneImage)); -}; - - -////////////////////////////////////////////////////////////////////// -// SceneImage: primitive-number primitive-number (listof image) -> Scene -var SceneImage = function(width, height, children, withBorder) { - BaseImage.call(this, 0, 0); - this.width = width; - this.height = height; - this.children = children; // arrayof [image, number, number] - this.withBorder = withBorder; -} -SceneImage.prototype = heir(BaseImage.prototype); - - -// add: image primitive-number primitive-number -> Scene -SceneImage.prototype.add = function(anImage, x, y) { - return new SceneImage(this.width, - this.height, - this.children.concat([[anImage, - x - anImage.pinholeX, - y - anImage.pinholeY]]), - this.withBorder); -}; - -// render: 2d-context primitive-number primitive-number -> void -SceneImage.prototype.render = function(ctx, x, y) { - var i; - var childImage, childX, childY; - // Clear the scene. - ctx.clearRect(x, y, this.width, this.height); - // Then ask every object to render itself. - for(i = 0; i < this.children.length; i++) { - childImage = this.children[i][0]; - childX = this.children[i][1]; - childY = this.children[i][2]; - ctx.save(); - childImage.render(ctx, childX + x, childY + y); - ctx.restore(); - - - } - // Finally, draw the black border if withBorder is true - if (this.withBorder) { - ctx.strokeStyle = 'black'; - ctx.strokeRect(x, y, this.width, this.height); - } -}; - -SceneImage.prototype.equals = function(other, aUnionFind) { - if (!(other instanceof SceneImage)) { - return false; - } - - if (this.pinholeX != other.pinholeX || - this.pinholeY != other.pinholeY || - this.width != other.width || - this.height != other.height || - this.children.length != other.children.length) { - return false; - } - - for (var i = 0; i < this.children.length; i++) { - var rec1 = this.children[i]; - var rec2 = other.children[i]; - if (rec1[1] !== rec2[1] || - rec1[2] !== rec2[2] || - !plt.baselib.equality.equals(rec1[0], - rec2[0], - aUnionFind)) { - return false; - } - } - return true; -}; - - -////////////////////////////////////////////////////////////////////// -// FileImage: string node -> Image -var FileImage = function(src, rawImage) { - BaseImage.call(this, 0, 0); - var self = this; - this.src = src; - this.isLoaded = false; - - // animationHack: see installHackToSupportAnimatedGifs() for details. - this.animationHackImg = undefined; - - if (rawImage && rawImage.complete) { - this.img = rawImage; - this.isLoaded = true; - this.pinholeX = self.img.width / 2; - this.pinholeY = self.img.height / 2; - } else { - // fixme: we may want to do something blocking here for - // onload, since we don't know at this time what the file size - // should be, nor will drawImage do the right thing until the - // file is loaded. - this.img = new Image(); - this.img.onload = function() { - self.isLoaded = true; - self.pinholeX = self.img.width / 2; - self.pinholeY = self.img.height / 2; - }; - this.img.onerror = function(e) { - self.img.onerror = ""; - self.img.src = "http://www.wescheme.org/images/broken.png"; - } - this.img.src = src; - } -} -FileImage.prototype = heir(BaseImage.prototype); - - -var imageCache = {}; -FileImage.makeInstance = function(path, rawImage) { - if (! (path in imageCache)) { - imageCache[path] = new FileImage(path, rawImage); - } - return imageCache[path]; -}; - -FileImage.installInstance = function(path, rawImage) { - imageCache[path] = new FileImage(path, rawImage); -}; - -FileImage.installBrokenImage = function(path) { - imageCache[path] = new TextImage("Unable to load " + path, 10, colorDb.get("red"), - "normal", "Optimer","","",false); -}; - - - -FileImage.prototype.render = function(ctx, x, y) { - this.installHackToSupportAnimatedGifs(); - ctx.drawImage(this.animationHackImg, x, y); -}; - - -// The following is a hack that we use to allow animated gifs to show -// as animating on the canvas. -FileImage.prototype.installHackToSupportAnimatedGifs = function() { - if (this.animationHackImg) { return; } - this.animationHackImg = this.img.cloneNode(true); - document.body.appendChild(this.animationHackImg); - this.animationHackImg.width = 0; - this.animationHackImg.height = 0; -}; - - -FileImage.prototype.getWidth = function() { - return this.img.width; -}; - - -FileImage.prototype.getHeight = function() { - return this.img.height; -}; - -// Override toDomNode: we don't need a full-fledged canvas here. -FileImage.prototype.toDomNode = function(params) { - return this.img.cloneNode(true); -}; - -FileImage.prototype.equals = function(other, aUnionFind) { - return (other instanceof FileImage && - this.pinholeX == other.pinholeX && - this.pinholeY == other.pinholeY && - this.src == other.src); -}; - -////////////////////////////////////////////////////////////////////// -// VideoImage: String Node -> Video -var VideoImage = function(src, rawVideo) { - BaseImage.call(this, 0, 0); - var self = this; - this.src = src; - if (rawVideo) { - this.video = rawVideo; - this.width = self.video.videoWidth; - this.height = self.video.videoHeight; - this.pinholeX = self.width / 2; - this.pinholeY = self.height / 2; - this.video.volume = 1; - this.video.poster = "http://www.wescheme.org/images/broken.png"; - this.video.autoplay = true; - this.video.autobuffer=true; - this.video.loop = true; - this.video.play(); - } else { - // fixme: we may want to do something blocking here for - // onload, since we don't know at this time what the file size - // should be, nor will drawImage do the right thing until the - // file is loaded. - this.video = document.createElement('video'); - this.video.src = src; - this.video.addEventListener('canplay', function() { - this.width = self.video.videoWidth; - this.height = self.video.videoHeight; - this.pinholeX = self.width / 2; - this.pinholeY = self.height / 2; - this.video.poster = "http://www.wescheme.org/images/broken.png"; - this.video.autoplay = true; - this.video.autobuffer=true; - this.video.loop = true; - this.video.play(); - }); - this.video.addEventListener('error', function(e) { - self.video.onerror = ""; - self.video.poster = "http://www.wescheme.org/images/broken.png"; - }); - } -} -VideoImage.prototype = heir(BaseImage.prototype); - - -var videos = {}; -VideoImage.makeInstance = function(path, rawVideo) { - if (! (path in VideoImage)) { - videos[path] = new VideoImage(path, rawVideo); - } - return videos[path]; -}; - -VideoImage.prototype.render = function(ctx, x, y) { - ctx.drawImage(this.video, x, y); -}; - -VideoImage.prototype.equals = function(other, aUnionFind) { - return (other instanceof VideoImage && - this.pinholeX == other.pinholeX && - this.pinholeY == other.pinholeY && - this.src == other.src); -}; - - -////////////////////////////////////////////////////////////////////// -// OverlayImage: image image placeX placeY -> image -// Creates an image that overlays img1 on top of the -// other image. -var OverlayImage = function(img1, img2, placeX, placeY) { - // calculate centers using width/height, so we are scene/image agnostic - var c1x = img1.getWidth()/2; - var c1y = img1.getHeight()/2; - var c2x = img2.getWidth()/2; - var c2y = img2.getHeight()/2; - - // calculate absolute offset of 2nd image's *CENTER* - // convert relative X,Y to center offsets, - // if placeX and placeY are UL corner offsets, convert to center offsets - if (placeX == "left" ) var xOffset = img2.getWidth()-(c1x+c2x); - else if (placeX == "right" ) var xOffset = img1.getWidth()-(c1x+c2x); - else if (placeX == "beside") var xOffset = c1x+c2x; - else if (placeX == "middle") var xOffset = 0; - else if (placeX == "center") var xOffset = 0; - else var xOffset = placeX - (c1x-c2x); - - if (placeY == "bottom") var yOffset = img1.getHeight()-(c1y+c2y); - else if (placeY == "top") var yOffset = img2.getHeight()-(c1y+c2y); - else if (placeY == "above" ) var yOffset = c1y+c2y; - else if (placeY == "middle") var yOffset = 0; - else if (placeY == "center") var yOffset = 0; - else if (placeY == "baseline") var yOffset= img1.getBaseline()-img2.getBaseline(); - else var yOffset = placeY - (c1y-c2y); - - // Correct offsets when dealing with Scenes instead of images, - // by adding the center values - if(isScene(img1)){xOffset =+c1x; yOffset =+c1y;} - if(isScene(img2)){xOffset =+c2x; yOffset =+c2y;} - - // The *center* of the 2nd image, once overlaid, changes by the original difference in centers, - // plus the size of the offsets. Calculate this delta for X and Y. - var deltaX = c1x - c2x + xOffset; - var deltaY = c1y - c2y + yOffset; - - // Each edge of the new, combined image may be grown or shrunk, depending on deltaX or deltaY - var left = Math.min(0, deltaX); - var top = Math.min(0, deltaY); - var right = Math.max(deltaX + img2.getWidth(), img1.getWidth()); - var bottom = Math.max(deltaY + img2.getHeight(), img1.getHeight()); - - // Calculate the new width, height and center based on edge lengths - this.width = right - left; - this.height = bottom - top; - BaseImage.call(this, - Math.floor((right-left) / 2), - Math.floor((bottom-top) / 2)); - - // store the overlaid images, and the offsets for each - this.img1 = img1; - this.img2 = img2; - this.img1Dx = -left; - this.img1Dy = -top; - this.img2Dx = deltaX - left; - this.img2Dy = deltaY - top; -}; - - -OverlayImage.prototype = heir(BaseImage.prototype); - - -OverlayImage.prototype.render = function(ctx, x, y) { - ctx.save(); - this.img2.render(ctx, x + this.img2Dx, y + this.img2Dy); - this.img1.render(ctx, x + this.img1Dx, y + this.img1Dy); - ctx.restore(); -}; - -OverlayImage.prototype.equals = function(other, aUnionFind) { - return ( other instanceof OverlayImage && - this.pinholeX == other.pinholeX && - this.pinholeY == other.pinholeY && - this.width == other.width && - this.height == other.height && - this.img1Dx == other.img1Dx && - this.img1Dy == other.img1Dy && - this.img2Dx == other.img2Dx && - this.img2Dy == other.img2Dy && - plt.baselib.equality.equals(this.img1, other.img1, aUnionFind) && - plt.baselib.equality.equals(this.img2, other.img2, aUnionFind) ); -}; - - -////////////////////////////////////////////////////////////////////// -// rotate: angle image -> image -// Rotates image by angle degrees in a counter-clockwise direction. -// based on http://stackoverflow.com/questions/3276467/adjusting-div-width-and-height-after-rotated -var RotateImage = function(angle, img) { - var sin = Math.sin(angle * Math.PI / 180), - cos = Math.cos(angle * Math.PI / 180); - - // (w,0) rotation - var x1 = Math.floor(cos * img.getWidth()), - y1 = Math.floor(sin * img.getWidth()); - - // (0,h) rotation - var x2 = Math.floor(-sin * img.getHeight()), - y2 = Math.floor( cos * img.getHeight()); - - // (w,h) rotation - var x3 = Math.floor(cos * img.getWidth() - sin * img.getHeight()), - y3 = Math.floor(sin * img.getWidth() + cos * img.getHeight()); - - var minX = Math.min(0, x1, x2, x3), - maxX = Math.max(0, x1, x2, x3), - minY = Math.min(0, y1, y2, y3), - maxY = Math.max(0, y1, y2, y3); - - var rotatedWidth = maxX - minX, - rotatedHeight = maxY - minY; - - // resize the image - BaseImage.call(this, - Math.floor(rotatedWidth / 2), - Math.floor(rotatedHeight / 2)); - - this.img = img; - this.width = rotatedWidth; - this.height = rotatedHeight; - this.angle = angle; - this.translateX = -minX; - this.translateY = -minY; -}; - -RotateImage.prototype = heir(BaseImage.prototype); - - -// translate the canvas using the calculated values, then draw at the rotated (x,y) offset. -RotateImage.prototype.render = function(ctx, x, y) { - // calculate the new x and y offsets, by rotating the radius formed by the hypoteneuse - var sin = Math.sin(this.angle * Math.PI / 180), - cos = Math.cos(this.angle * Math.PI / 180), - r = Math.sqrt(x*x + y*y); - ctx.save(); - ctx.translate(x + this.translateX, y + this.translateY); - ctx.rotate(this.angle * Math.PI / 180); - this.img.render(ctx, 0, 0); - ctx.restore(); -}; - - -RotateImage.prototype.equals = function(other, aUnionFind) { - return ( other instanceof RotateImage && - this.pinholeX == other.pinholeX && - this.pinholeY == other.pinholeY && - this.width == other.width && - this.height == other.height && - this.angle == other.angle && - this.translateX == other.translateX && - this.translateY == other.translateY && - plt.baselib.equality.equals(this.img, other.img, aUnionFind) ); -}; - -////////////////////////////////////////////////////////////////////// -// ScaleImage: factor factor image -> image -// Scale an image -var ScaleImage = function(xFactor, yFactor, img) { - - // resize the image - BaseImage.call(this, - Math.floor((img.getWidth() * xFactor) / 2), - Math.floor((img.getHeight() * yFactor) / 2)); - - this.img = img; - this.width = img.getWidth() * xFactor; - this.height = img.getHeight() * yFactor; - this.xFactor = xFactor; - this.yFactor = yFactor; -}; - -ScaleImage.prototype = heir(BaseImage.prototype); - - -// scale the context, and pass it to the image's render function -ScaleImage.prototype.render = function(ctx, x, y) { - ctx.save(); - ctx.scale(this.xFactor, this.yFactor); - this.img.render(ctx, x / this.xFactor, y / this.yFactor); - ctx.restore(); -}; - - -ScaleImage.prototype.equals = function(other, aUnionFind) { - return ( other instanceof ScaleImage && - this.pinholeX == other.pinholeX && - this.pinholeY == other.pinholeY && - this.width == other.width && - this.height == other.height && - this.xFactor == other.xFactor && - this.yFactor == other.yFactor && - plt.baselib.equality.equals(this.img, other.img, aUnionFind) ); -}; - -////////////////////////////////////////////////////////////////////// -// CropImage: startX startY width height image -> image -// Crop an image -var CropImage = function(x, y, width, height, img) { - - BaseImage.call(this, - Math.floor(width / 2), - Math.floor(height / 2)); - - this.x = x; - this.y = y; - this.width = width; - this.height = height; - this.img = img; -}; - -CropImage.prototype = heir(BaseImage.prototype); - - -CropImage.prototype.render = function(ctx, x, y) { - ctx.save(); - ctx.translate(-this.x, -this.y); - this.img.render(ctx, x, y); - ctx.restore(); -}; - -CropImage.prototype.equals = function(other, aUnionFind) { - return ( other instanceof CropImage && - this.pinholeX == other.pinholeX && - this.pinholeY == other.pinholeY && - this.width == other.width && - this.height == other.height && - this.x == other.x && - this.y == other.y && - plt.baselib.equality.equals(this.img, other.img, aUnionFind) ); -}; - -////////////////////////////////////////////////////////////////////// -// FrameImage: factor factor image -> image -// Stick a frame around the image -var FrameImage = function(img) { - - BaseImage.call(this, - Math.floor(img.getWidth()/ 2), - Math.floor(img.getHeight()/ 2)); - - this.img = img; - this.width = img.getWidth(); - this.height = img.getHeight(); -}; - -FrameImage.prototype = heir(BaseImage.prototype); - - -// scale the context, and pass it to the image's render function -FrameImage.prototype.render = function(ctx, x, y) { - ctx.save(); - this.img.render(ctx, x, y); - ctx.beginPath(); - ctx.strokeStyle = "black"; - ctx.strokeRect(x, y, this.width, this.height); - ctx.closePath(); - ctx.restore(); -}; - -FrameImage.prototype.equals = function(other, aUnionFind) { - return ( other instanceof FrameImage && - this.pinholeX == other.pinholeX && - this.pinholeY == other.pinholeY && - plt.baselib.equality.equals(this.img, other.img, aUnionFind) ); -}; - -////////////////////////////////////////////////////////////////////// -// FlipImage: image string -> image -// Flip an image either horizontally or vertically -var FlipImage = function(img, direction) { - this.img = img; - this.width = img.getWidth(); - this.height = img.getHeight(); - this.direction = direction; - BaseImage.call(this, - img.pinholeX, - img.pinholeY); -}; - -FlipImage.prototype = heir(BaseImage.prototype); - - -FlipImage.prototype.render = function(ctx, x, y) { - // when flipping an image of dimension M and offset by N across an axis, - // we need to translate the canvas by M+2N in the opposite direction - ctx.save(); - if(this.direction == "horizontal"){ - ctx.scale(-1, 1); - ctx.translate(-(this.width+2*x), 0); - this.img.render(ctx, x, y); - } - if (this.direction == "vertical"){ - ctx.scale(1, -1); - ctx.translate(0, -(this.height+2*y)); - this.img.render(ctx, x, y); - } - ctx.restore(); -}; - - -FlipImage.prototype.getWidth = function() { - return this.width; -}; - -FlipImage.prototype.getHeight = function() { - return this.height; -}; - -FlipImage.prototype.equals = function(other, aUnionFind) { - return ( other instanceof FlipImage && - this.pinholeX == other.pinholeX && - this.pinholeY == other.pinholeY && - this.width == other.width && - this.height == other.height && - this.direction == other.direction && - plt.baselib.equality.equals(this.img, other.img, aUnionFind) ); -}; - - - - - -////////////////////////////////////////////////////////////////////// -// RectangleImage: Number Number Mode Color -> Image -var RectangleImage = function(width, height, style, color) { - BaseImage.call(this, width/2, height/2); - this.width = width; - this.height = height; - this.style = style; - this.color = color; -}; -RectangleImage.prototype = heir(BaseImage.prototype); - - -RectangleImage.prototype.render = function(ctx, x, y) { - if (this.style.toString().toLowerCase() == "outline") { - ctx.save(); - ctx.beginPath(); - ctx.strokeStyle = colorString(this.color); - ctx.strokeRect(x, y, this.width, this.height); - ctx.closePath(); - ctx.restore(); - } else { - ctx.save(); - ctx.beginPath(); - - ctx.fillStyle = colorString(this.color); - ctx.fillRect(x, y, this.width, this.height); - - ctx.closePath(); - ctx.restore(); - } -}; - -RectangleImage.prototype.getWidth = function() { - return this.width; -}; - - -RectangleImage.prototype.getHeight = function() { - return this.height; -}; - -RectangleImage.prototype.equals = function(other, aUnionFind) { - return (other instanceof RectangleImage && - this.pinholeX == other.pinholeX && - this.pinholeY == other.pinholeY && - this.width == other.width && - this.height == other.height && - this.style == other.style && - plt.baselib.equality.equals(this.color, other.color, aUnionFind)); -}; - - -////////////////////////////////////////////////////////////////////// -// RhombusImage: Number Number Mode Color -> Image -var RhombusImage = function(side, angle, style, color) { - // sin(angle/2-in-radians) * side = half of base - this.width = Math.sin(angle/2 * Math.PI / 180) * side * 2; - // cos(angle/2-in-radians) * side = half of height - this.height = Math.abs(Math.cos(angle/2 * Math.PI / 180)) * side * 2; - BaseImage.call(this, this.width/2, this.height/2); - this.side = side; - this.angle = angle; - this.style = style; - this.color = color; -}; -RhombusImage.prototype = heir(BaseImage.prototype); - - -RhombusImage.prototype.render = function(ctx, x, y) { - ctx.save(); - ctx.beginPath(); - // if angle < 180 start at the top of the canvas, otherwise start at the bottom - ctx.moveTo(x+this.getWidth()/2, y); - ctx.lineTo(x+this.getWidth(), y+this.getHeight()/2); - ctx.lineTo(x+this.getWidth()/2, y+this.getHeight()); - ctx.lineTo(x, y+this.getHeight()/2); - ctx.closePath(); - - if (this.style.toString().toLowerCase() == "outline") { - ctx.strokeStyle = colorString(this.color); - ctx.stroke(); - } - else { - ctx.fillStyle = colorString(this.color); - ctx.fill(); - } - ctx.restore(); -}; - -RhombusImage.prototype.getWidth = function() { - return this.width; -}; - - -RhombusImage.prototype.getHeight = function() { - return this.height; -}; - -RhombusImage.prototype.equals = function(other, aUnionFind) { - return (other instanceof RhombusImage && - this.pinholeX == other.pinholeX && - this.pinholeY == other.pinholeY && - this.side == other.side && - this.angle == other.angle && - this.style == other.style && - plt.baselib.equality.equals(this.color, other.color, aUnionFind)); -}; - - -////////////////////////////////////////////////////////////////////// - - -var ImageDataImage = function(imageData) { - BaseImage.call(this, 0, 0); - this.imageData = imageData; - this.width = imageData.width; - this.height = imageData.height; -}; - -ImageDataImage.prototype = heir(BaseImage.prototype); - -ImageDataImage.prototype.render = function(ctx, x, y) { - ctx.putImageData(this.imageData, x, y); -}; - -ImageDataImage.prototype.getWidth = function() { - return this.width; -}; - - -ImageDataImage.prototype.getHeight = function() { - return this.height; -}; - -ImageDataImage.prototype.equals = function(other, aUnionFind) { - return (other instanceof ImageDataImage && - this.pinholeX == other.pinholeX && - this.pinholeY == other.pinholeY); -}; - - - - -////////////////////////////////////////////////////////////////////// -// PolygonImage: Number Count Step Mode Color -> Image -// -// See http://www.algebra.com/algebra/homework/Polygons/Inscribed-and-circumscribed-polygons.lesson -// the polygon is inscribed in a circle, whose radius is length/2sin(pi/count) -// another circle is inscribed in the polygon, whose radius is length/2tan(pi/count) -// rotate a 3/4 quarter turn plus half the angle length to keep bottom base level -var PolygonImage = function(length, count, step, style, color) { - this.aVertices = []; - var xMax = 0; - var yMax = 0; - var xMin = 0; - var yMin = 0; - - this.outerRadius = Math.floor(length/(2*Math.sin(Math.PI/count))); - this.innerRadius = Math.floor(length/(2*Math.tan(Math.PI/count))); - var adjust = (3*Math.PI/2)+Math.PI/count; - - // rotate around outer circle, storing x,y pairs as vertices - // keep track of mins and maxs - var radians = 0; - for(var i = 0; i < count; i++) { - // rotate to the next vertex (skipping by this.step) - radians = radians + (step*2*Math.PI/count); - - var v = { x: this.outerRadius*Math.cos(radians-adjust), - y: this.outerRadius*Math.sin(radians-adjust) }; - if(v.x < xMin) xMin = v.x; - if(v.x > xMax) xMax = v.y; - if(v.y < yMin) yMin = v.x; - if(v.y > yMax) yMax = v.y; - this.aVertices.push(v); - } - // HACK: try to work around handling of non-integer coordinates in CANVAS - // by ensuring that the boundaries of the canvas are outside of the vertices - for(var i=0; i xMax) xMax = this.aVertices[i].x+1; - if(this.aVertices[i].y < yMin) yMin = this.aVertices[i].y-1; - if(this.aVertices[i].y > yMax) yMax = this.aVertices[i].y+1; - } - - this.width = Math.floor(xMax-xMin); - this.height = Math.floor(yMax-yMin); - this.length = length; - this.count = count; - this.step = step; - this.style = style; - this.color = color; - BaseImage.call(this, Math.floor(this.width/2), Math.floor(this.height/2)); -}; -PolygonImage.prototype = heir(BaseImage.prototype); - - -// shift all vertices by an offset to put the center of the polygon at the -// center of the canvas. Even-sided polygons highest points are in line with -// the innerRadius. Odd-sides polygons highest vertex is on the outerRadius -PolygonImage.prototype.render = function(ctx, x, y) { - var xOffset = x+Math.round(this.width/2); - var yOffset = y+((this.count % 2)? this.outerRadius : this.innerRadius); - - ctx.save(); - - ctx.beginPath(); - ctx.moveTo(xOffset+this.aVertices[0].x, yOffset+this.aVertices[0].y); - for(var i=1; i Image -////////////////////////////////////////////////////////////////////// -// TextImage: String Number Color String String String String any/c -> Image -var TextImage = function(msg, size, color, face, family, style, weight, underline) { - var metrics; - this.msg = msg; - this.size = size; - this.color = color; - this.face = face; - this.family = family; - this.style = (style == "slant")? "oblique" : style; // Racket's "slant" -> CSS's "oblique" - this.weight = (weight== "light")? "lighter" : weight; // Racket's "light" -> CSS's "lighter" - this.underline = underline; - // example: "bold italic 20px 'Times', sans-serif". - // Default weight is "normal", face is "Optimer" - var canvas = makeCanvas(0, 0); - var ctx = canvas.getContext("2d"); - - this.font = (this.weight + " " + - this.style + " " + - this.size + "px " + - maybeQuote(this.face) + " " + - maybeQuote(this.family)); - try { - ctx.font = this.font; - } catch (e) { - this.fallbackOnFont(); - ctx.font = this.font; - } - - // Defensive: on IE, this can break. - try { - metrics = ctx.measureText(msg); - this.width = metrics.width; - this.height = Number(this.size); - } catch(e) { - this.fallbackOnFont(); - } - BaseImage.call(this, Math.round(this.width/2), 0);// weird pinhole settings needed for "baseline" alignment -} - - -TextImage.prototype = heir(BaseImage.prototype); - -TextImage.prototype.fallbackOnFont = function() { - // Defensive: if the browser doesn't support certain features, we - // reduce to a smaller feature set and try again. - this.font = this.size + "px " + maybeQuote(this.family); - var canvas = makeCanvas(0, 0); - var ctx = canvas.getContext("2d"); - ctx.font = this.font; - var metrics = ctx.measureText(this.msg); - this.width = metrics.width; - // KLUDGE: I don't know how to get at the height. - this.height = Number(this.size);//ctx.measureText("m").width + 20; -}; - - -TextImage.prototype.render = function(ctx, x, y) { - ctx.save(); - - ctx.textAlign = 'left'; - ctx.textBaseline= 'top'; - ctx.fillStyle = colorString(this.color); - ctx.font = this.font; - try { - ctx.fillText(this.msg, x, y); - } catch (e) { - this.fallbackOnFont(); - ctx.font = this.font; - ctx.fillText(this.msg, x, y); - } - if(this.underline){ - ctx.beginPath(); - ctx.moveTo(x, y+this.size); - // we use this.size, as it is more accurate for underlining than this.height - ctx.lineTo(x+this.width, y+this.size); - ctx.closePath(); - ctx.strokeStyle = colorString(this.color); - ctx.stroke(); - } - ctx.restore(); -}; - - -TextImage.prototype.getBaseline = function() { - return this.size; -}; - -TextImage.prototype.equals = function(other, aUnionFind) { - return (other instanceof TextImage && - this.pinholeX == other.pinholeX && - this.pinholeY == other.pinholeY && - this.msg == other.msg && - this.size == other.size && - this.face == other.face && - this.family == other.family && - this.style == other.style && - this.weight == other.weight && - this.underline == other.underline && - plt.baselib.equality.equals(this.color, other.color, aUnionFind) && - this.font == other.font); -}; - - -////////////////////////////////////////////////////////////////////// -// StarImage: fixnum fixnum fixnum color -> image -var StarImage = function(points, outer, inner, style, color) { - BaseImage.call(this, - Math.max(outer, inner), - Math.max(outer, inner)); - this.points = points; - this.outer = outer; - this.inner = inner; - this.style = style; - this.color = color; - this.radius = Math.max(this.inner, this.outer); - this.width = this.radius*2; - this.height = this.radius*2; -}; - -StarImage.prototype = heir(BaseImage.prototype); - -var oneDegreeAsRadian = Math.PI / 180; - -// render: context fixnum fixnum -> void -// Draws a star on the given context. -// Most of this code here adapted from the Canvas tutorial at: -// http://developer.apple.com/safari/articles/makinggraphicswithcanvas.html -StarImage.prototype.render = function(ctx, x, y) { - ctx.save(); - ctx.beginPath(); - for( var pt = 0; pt < (this.points * 2) + 1; pt++ ) { - var rads = ( ( 360 / (2 * this.points) ) * pt ) * oneDegreeAsRadian - 0.5; - var radius = ( pt % 2 == 1 ) ? this.outer : this.inner; - ctx.lineTo(x + this.radius + ( Math.sin( rads ) * radius ), - y + this.radius + ( Math.cos( rads ) * radius ) ); - } - ctx.closePath(); - if (this.style.toString().toLowerCase() == "outline") { - ctx.strokeStyle = colorString(this.color); - ctx.stroke(); - } else { - ctx.fillStyle = colorString(this.color); - ctx.fill(); - } - ctx.restore(); -}; - -StarImage.prototype.equals = function(other, aUnionFind) { - return (other instanceof StarImage && - this.pinholeX == other.pinholeX && - this.pinholeY == other.pinholeY && - this.points == other.points && - this.outer == other.outer && - this.inner == other.inner && - this.style == other.style && - plt.baselib.equality.equals(this.color, other.color, aUnionFind)); -}; - - - -///////////////////////////////////////////////////////////////////// -//TriangleImage: Number Number Mode Color -> Image -var TriangleImage = function(side, angle, style, color) { - // sin(angle/2-in-radians) * side = half of base - this.width = Math.sin(angle/2 * Math.PI / 180) * side * 2; - // cos(angle/2-in-radians) * side = height of altitude - this.height = Math.floor(Math.abs(Math.cos(angle/2 * Math.PI / 180)) * side); - - BaseImage.call(this, Math.floor(this.width/2), Math.floor(this.height/2)); - this.side = side; - this.angle = angle; - this.style = style; - this.color = color; -} -TriangleImage.prototype = heir(BaseImage.prototype); - - -TriangleImage.prototype.render = function(ctx, x, y) { - var width = this.getWidth(); - var height = this.getHeight(); - ctx.save(); - ctx.beginPath(); - // if angle < 180 start at the top of the canvas, otherwise start at the bottom - if(this.angle < 180){ - ctx.moveTo(x+width/2, y); - ctx.lineTo(x, y+height); - ctx.lineTo(x+width, y+height); - } else { - ctx.moveTo(x+width/2, y+height); - ctx.lineTo(x, y); - ctx.lineTo(x+width, y); - } - ctx.closePath(); - - if (this.style.toString().toLowerCase() == "outline") { - ctx.strokeStyle = colorString(this.color); - ctx.stroke(); - } - else { - ctx.fillStyle = colorString(this.color); - ctx.fill(); - } - ctx.restore(); -}; - -TriangleImage.prototype.equals = function(other, aUnionFind) { - return (other instanceof TriangleImage && - this.pinholeX == other.pinholeX && - this.pinholeY == other.pinholeY && - this.side == other.side && - this.angle == other.angle && - this.style == other.style && - plt.baselib.equality.equals(this.color, other.color, aUnionFind)); -}; - -///////////////////////////////////////////////////////////////////// -//RightTriangleImage: Number Number Mode Color -> Image -var RightTriangleImage = function(side1, side2, style, color) { - this.width = side1; - this.height = side2; - - BaseImage.call(this, Math.floor(this.width/2), Math.floor(this.height/2)); - this.side1 = side1; - this.side2 = side2; - this.style = style; - this.color = color; -} -RightTriangleImage.prototype = heir(BaseImage.prototype); - - -RightTriangleImage.prototype.render = function(ctx, x, y) { - var width = this.getWidth(); - var height = this.getHeight(); - ctx.save(); - ctx.beginPath(); - ctx.moveTo(x, y+this.side2); - ctx.lineTo(x+this.side1, y+this.side2); - ctx.lineTo(x, y); - ctx.closePath(); - - if (this.style.toString().toLowerCase() == "outline") { - ctx.strokeStyle = colorString(this.color); - ctx.stroke(); - } - else { - ctx.fillStyle = colorString(this.color); - ctx.fill(); - } - ctx.restore(); -}; - -RightTriangleImage.prototype.equals = function(other, aUnionFind) { - return (other instanceof RightTriangleImage && - this.pinholeX == other.pinholeX && - this.pinholeY == other.pinholeY && - this.side1 == other.side1 && - this.side2 == other.side2 && - this.style == other.style && - plt.baselib.equality.equals(this.color, other.color, aUnionFind)); -}; - -////////////////////////////////////////////////////////////////////// -//Ellipse : Number Number Mode Color -> Image -var EllipseImage = function(width, height, style, color) { - BaseImage.call(this, Math.floor(width/2), Math.floor(height/2)); - this.width = width; - this.height = height; - this.style = style; - this.color = color; -}; - -EllipseImage.prototype = heir(BaseImage.prototype); - - -EllipseImage.prototype.render = function(ctx, aX, aY) { - ctx.save(); - ctx.beginPath(); - - // Most of this code is taken from: - // http://webreflection.blogspot.com/2009/01/ellipse-and-circle-for-canvas-2d.html - var hB = (this.width / 2) * .5522848, - vB = (this.height / 2) * .5522848, - eX = aX + this.width, - eY = aY + this.height, - mX = aX + this.width / 2, - mY = aY + this.height / 2; - ctx.moveTo(aX, mY); - ctx.bezierCurveTo(aX, mY - vB, mX - hB, aY, mX, aY); - ctx.bezierCurveTo(mX + hB, aY, eX, mY - vB, eX, mY); - ctx.bezierCurveTo(eX, mY + vB, mX + hB, eY, mX, eY); - ctx.bezierCurveTo(mX - hB, eY, aX, mY + vB, aX, mY); - ctx.closePath(); - if (this.style.toString().toLowerCase() == "outline") { - ctx.strokeStyle = colorString(this.color); - ctx.stroke(); - } - else { - ctx.fillStyle = colorString(this.color); - ctx.fill(); - } - - - ctx.restore(); -}; - -EllipseImage.prototype.equals = function(other, aUnionFind) { - return (other instanceof EllipseImage && - this.pinholeX == other.pinholeX && - this.pinholeY == other.pinholeY && - this.width == other.width && - this.height == other.height && - this.style == other.style && - plt.baselib.equality.equals(this.color, other.color, aUnionFind)); -}; - - -////////////////////////////////////////////////////////////////////// -//Line: Number Number Color Boolean -> Image -var LineImage = function(x, y, color, normalPinhole) { - if (x >= 0) { - if (y >= 0) { - BaseImage.call(this, 0, 0); - } else { - BaseImage.call(this, 0, -y); - } - } else { - if (y >= 0) { - BaseImage.call(this, -x, 0); - } else { - BaseImage.call(this, -x, -y); - } - } - - this.x = x; - this.y = y; - this.color = color; - this.width = Math.abs(x) + 1; - this.height = Math.abs(y) + 1; - - // put the pinhle in the center of the image - if(normalPinhole){ - this.pinholeX = this.width/2; - this.pinholeY = this.height/2; - } -} - -LineImage.prototype = heir(BaseImage.prototype); - - -LineImage.prototype.render = function(ctx, xstart, ystart) { - ctx.save(); - ctx.beginPath(); - ctx.strokeStyle = colorString(this.color); - if (this.x >= 0) { - if (this.y >= 0) { - ctx.moveTo(xstart, ystart); - ctx.lineTo((xstart + this.x), - (ystart + this.y)); - } else { - ctx.moveTo(xstart, ystart + (-this.y)); - ctx.lineTo(xstart + this.x, ystart); - } - } else { - if (this.y >= 0) { - ctx.moveTo(xstart + (-this.x), ystart); - ctx.lineTo(xstart, - (ystart + this.y)); - } else { - ctx.moveTo(xstart + (-this.x), ystart + (-this.y)); - ctx.lineTo(xstart, ystart); - } - } - ctx.closePath(); - ctx.stroke(); - ctx.restore(); -}; - - -LineImage.prototype.equals = function(other, aUnionFind) { - return (other instanceof LineImage && - this.pinholeX == other.pinholeX && - this.pinholeY == other.pinholeY && - this.x == other.x && - this.y == other.y && - plt.baselib.equality.equals(this.color, other.color, aUnionFind)); -}; - - - - - - - - -var imageToColorList = function(img) { - var width = img.getWidth(), - height = img.getHeight(), - canvas = makeCanvas(width, height), - ctx = canvas.getContext("2d"), - imageData, - data, - i, - r, g, b, a; - img.render(ctx, 0, 0); - imageData = ctx.getImageData(0, 0, width, height); - data = imageData.data; - var colors = []; - for (i = 0 ; i < data.length; i += 4) { - r = data[i]; - g = data[i+1]; - b = data[i+2]; - a = data[i+3]; - colors.push(makeColor(r, g, b, a)); - } - return plt.baselib.lists.makeList.apply(null, colors); -} - - -var colorListToImage = function(listOfColors, - width, - height, - pinholeX, - pinholeY) { - var canvas = makeCanvas(jsnums.toFixnum(width), - jsnums.toFixnum(height)), - ctx = canvas.getContext("2d"), - imageData = ctx.createImageData(jsnums.toFixnum(width), - jsnums.toFixnum(height)), - data = imageData.data, - aColor, i = 0; - while (listOfColors !== plt.baselib.lists.EMPTY) { - aColor = listOfColors.first; - data[i] = jsnums.toFixnum(colorRed(aColor)); - data[i+1] = jsnums.toFixnum(colorGreen(aColor)); - data[i+2] = jsnums.toFixnum(colorBlue(aColor)); - data[i+3] = jsnums.toFixnum(colorAlpha(aColor)); - - i += 4; - listOfColors = listOfColors.rest; - }; - - return makeImageDataImage(imageData); -}; - - - - - - - - - - - - - -var makeSceneImage = function(width, height, children, withBorder) { - return new SceneImage(width, height, children, withBorder); -}; -var makeCircleImage = function(radius, style, color) { - return new EllipseImage(2*radius, 2*radius, style, color); -}; -var makeStarImage = function(points, outer, inner, style, color) { - return new StarImage(points, outer, inner, style, color); -}; -var makeRectangleImage = function(width, height, style, color) { - return new RectangleImage(width, height, style, color); -}; -var makeRhombusImage = function(side, angle, style, color) { - return new RhombusImage(side, angle, style, color); -}; -var makePolygonImage = function(length, count, step, style, color) { - return new PolygonImage(length, count, step, style, color); -}; -var makeSquareImage = function(length, style, color) { - return new RectangleImage(length, length, style, color); -}; -var makeRightTriangleImage = function(side1, side2, style, color) { - return new RightTriangleImage(side1, side2, style, color); -}; -var makeTriangleImage = function(side, angle, style, color) { - return new TriangleImage(side, angle, style, color); -}; -var makeEllipseImage = function(width, height, style, color) { - return new EllipseImage(width, height, style, color); -}; -var makeLineImage = function(x, y, color, normalPinhole) { - return new LineImage(x, y, color, normalPinhole); -}; -var makeOverlayImage = function(img1, img2, X, Y) { - return new OverlayImage(img1, img2, X, Y); -}; -var makeRotateImage = function(angle, img) { - return new RotateImage(angle, img); -}; -var makeScaleImage = function(xFactor, yFactor, img) { - return new ScaleImage(xFactor, yFactor, img); -}; -var makeCropImage = function(x, y, width, height, img) { - return new CropImage(x, y, width, height, img); -}; -var makeFrameImage = function(img) { - return new FrameImage(img); -}; -var makeFlipImage = function(img, direction) { - return new FlipImage(img, direction); -}; -var makeTextImage = function(msg, size, color, face, family, style, weight, underline) { - return new TextImage(msg, size, color, face, family, style, weight, underline); -}; -var makeImageDataImage = function(imageData) { - return new ImageDataImage(imageData); -}; -var makeFileImage = function(path, rawImage) { - return FileImage.makeInstance(path, rawImage); -}; -var makeVideoImage = function(path, rawVideo) { - return VideoImage.makeInstance(path, rawVideo); -}; - - -var isSceneImage = function(x) { return x instanceof SceneImage; }; -var isCircleImage = function(x) { return x instanceof EllipseImage && - x.width === x.height; }; -var isStarImage = function(x) { return x instanceof StarImage; }; -var isRectangleImage=function(x) { return x instanceof RectangleImage; }; -var isPolygonImage = function(x) { return x instanceof PolygonImage; }; -var isRhombusImage = function(x) { return x instanceof RhombusImage; }; -var isSquareImage = function(x) { return x instanceof SquareImage; }; -var isTriangleImage= function(x) { return x instanceof TriangleImage; }; -var isRightTriangleImage = function(x) { return x instanceof RightTriangleImage; }; -var isEllipseImage = function(x) { return x instanceof EllipseImage; }; -var isLineImage = function(x) { return x instanceof LineImage; }; -var isOverlayImage = function(x) { return x instanceof OverlayImage; }; -var isRotateImage = function(x) { return x instanceof RotateImage; }; -var isScaleImage = function(x) { return x instanceof ScaleImage; }; -var isCropImage = function(x) { return x instanceof CropImage; }; -var isFrameImage = function(x) { return x instanceof FrameImage; }; -var isFlipImage = function(x) { return x instanceof FlipImage; }; -var isTextImage = function(x) { return x instanceof TextImage; }; -var isFileImage = function(x) { return x instanceof FileImage; }; -var isFileVideo = function(x) { return x instanceof FileVideo; }; - - - - -/////////////////////////////////////////////////////////////// -// Exports - -// These functions are available for direct access without the typechecks -// of the Racket-exposed functions. - - -EXPORTS.makeCanvas = makeCanvas; - - - -EXPORTS.BaseImage = BaseImage; -EXPORTS.SceneImage = SceneImage; -EXPORTS.FileImage = FileImage; -EXPORTS.VideoImage = VideoImage; -EXPORTS.OverlayImage = OverlayImage; -EXPORTS.RotateImage = RotateImage; -EXPORTS.ScaleImage = ScaleImage; -EXPORTS.CropImage = CropImage; -EXPORTS.FrameImage = FrameImage; -EXPORTS.FlipImage = FlipImage; -EXPORTS.RectangleImage = RectangleImage; -EXPORTS.RhombusImage = RhombusImage; -EXPORTS.ImageDataImage = ImageDataImage; -EXPORTS.PolygonImage = PolygonImage; -EXPORTS.TextImage = TextImage; -EXPORTS.StarImage = StarImage; -EXPORTS.TriangleImage = TriangleImage; -EXPORTS.RightTriangleImage = RightTriangleImage; -EXPORTS.EllipseImage = EllipseImage; -EXPORTS.LineImage = LineImage; -EXPORTS.StarImage = StarImage; - - - -EXPORTS.colorDb = colorDb; - -EXPORTS.makeSceneImage = makeSceneImage; -EXPORTS.makeCircleImage = makeCircleImage; -EXPORTS.makeStarImage = makeStarImage; -EXPORTS.makeRectangleImage = makeRectangleImage; -EXPORTS.makeRhombusImage = makeRhombusImage; -EXPORTS.makePolygonImage = makePolygonImage; -EXPORTS.makeSquareImage = makeSquareImage; -EXPORTS.makeRightTriangleImage = makeRightTriangleImage; -EXPORTS.makeTriangleImage = makeTriangleImage; -EXPORTS.makeEllipseImage = makeEllipseImage; -EXPORTS.makeLineImage = makeLineImage; -EXPORTS.makeOverlayImage = makeOverlayImage; -EXPORTS.makeRotateImage = makeRotateImage; -EXPORTS.makeScaleImage = makeScaleImage; -EXPORTS.makeCropImage = makeCropImage; -EXPORTS.makeFrameImage = makeFrameImage; -EXPORTS.makeFlipImage = makeFlipImage; -EXPORTS.makeTextImage = makeTextImage; -EXPORTS.makeImageDataImage = makeImageDataImage; -EXPORTS.makeFileImage = makeFileImage; -EXPORTS.makeVideoImage = makeVideoImage; - -EXPORTS.imageToColorList = imageToColorList; -EXPORTS.colorListToImage = colorListToImage; - - -EXPORTS.isImage = isImage; -EXPORTS.isScene = isScene; -EXPORTS.isColorOrColorString = isColorOrColorString; -EXPORTS.isAngle = isAngle; -EXPORTS.isSideCount = isSideCount; -EXPORTS.isStepCount = isStepCount; -EXPORTS.isPointsCount = isPointsCount; - - -EXPORTS.isSceneImage = isSceneImage; -EXPORTS.isCircleImage = isCircleImage; -EXPORTS.isStarImage = isStarImage; -EXPORTS.isRectangleImage = isRectangleImage; -EXPORTS.isPolygonImage = isPolygonImage; -EXPORTS.isRhombusImage = isRhombusImage; -EXPORTS.isSquareImage = isSquareImage; -EXPORTS.isTriangleImage = isTriangleImage; -EXPORTS.isRightTriangleImage = isRightTriangleImage; -EXPORTS.isEllipseImage = isEllipseImage; -EXPORTS.isLineImage = isLineImage; -EXPORTS.isOverlayImage = isOverlayImage; -EXPORTS.isRotateImage = isRotateImage; -EXPORTS.isScaleImage = isScaleImage; -EXPORTS.isCropImage = isCropImage; -EXPORTS.isFrameImage = isFrameImage; -EXPORTS.isFlipImage = isFlipImage; -EXPORTS.isTextImage = isTextImage; -EXPORTS.isFileImage = isFileImage; -EXPORTS.isFileVideo = isFileVideo; - - - -EXPORTS.makeColor = makeColor; -EXPORTS.isColor = isColor; -EXPORTS.colorRed = colorRed; -EXPORTS.colorGreen = colorGreen; -EXPORTS.colorBlue = colorBlue; -EXPORTS.colorAlpha = colorAlpha; - -var makePrimitiveProcedure = plt.baselib.functions.makePrimitiveProcedure; -var makeClosure = plt.baselib.functions.makeClosure; -var finalizeClosureCall = plt.baselib.functions.finalizeClosureCall; -var PAUSE = plt.runtime.PAUSE; - - -var isString = plt.baselib.strings.isString; -var isSymbol = plt.baselib.symbols.isSymbol; - - -var isFontFamily = function(x){ - return ((isString(x) || isSymbol(x)) && - (x.toString().toLowerCase() == "default" || - x.toString().toLowerCase() == "decorative" || - x.toString().toLowerCase() == "roman" || - x.toString().toLowerCase() == "script" || - x.toString().toLowerCase() == "swiss" || - x.toString().toLowerCase() == "modern" || - x.toString().toLowerCase() == "symbol" || - x.toString().toLowerCase() == "system")) - || (x === false); // false is also acceptable -}; -var isFontStyle = function(x){ - return ((isString(x) || isSymbol(x)) && - (x.toString().toLowerCase() == "normal" || - x.toString().toLowerCase() == "italic" || - x.toString().toLowerCase() == "slant")) - || (x === false); // false is also acceptable -}; -var isFontWeight = function(x){ - return ((isString(x) || isSymbol(x)) && - (x.toString().toLowerCase() == "normal" || - x.toString().toLowerCase() == "bold" || - x.toString().toLowerCase() == "light")) - || (x === false); // false is also acceptable -}; -var isMode = function(x) { - return ((isString(x) || isSymbol(x)) && - (x.toString().toLowerCase() == "solid" || - x.toString().toLowerCase() == "outline")); -}; - -var isPlaceX = function(x) { - return ((isString(x) || isSymbol(x)) && - (x.toString().toLowerCase() == "left" || - x.toString().toLowerCase() == "right" || - x.toString().toLowerCase() == "center" || - x.toString().toLowerCase() == "middle")); -}; - -var isPlaceY = function(x) { - return ((isString(x) || isSymbol(x)) && - (x.toString().toLowerCase() == "top" || - x.toString().toLowerCase() == "bottom" || - x.toString().toLowerCase() == "baseline" || - x.toString().toLowerCase() == "center" || - x.toString().toLowerCase() == "middle")); -}; - -var isStyle = function(x) { - return ((isString(x) || isSymbol(x)) && - (x.toString().toLowerCase() == "solid" || - x.toString().toLowerCase() == "outline")); -}; - - - - - - -var checkString = plt.baselib.check.checkString; -var checkStringOrFalse = plt.baselib.check.makeCheckArgumentType( - function(x) { return plt.baselib.strings.isString(x) || x === false; }, - "string or false"); - -var checkByte = plt.baselib.check.checkByte; -var checkReal = plt.baselib.check.checkReal; -var checkBoolean = plt.baselib.check.checkBoolean; - -var checkNatural = plt.baselib.check.checkNatural; - -var checkPositiveInteger = plt.baselib.check.makeCheckArgumentType( - function(x) { return plt.baselib.numbers.isInteger(x) && - plt.baselib.numbers.greaterThan(x, 0);}, - "positive integer"); - -var checkNonNegativeReal = plt.baselib.check.checkNonNegativeReal; - - -var _checkColor = plt.baselib.check.makeCheckArgumentType( - isColorOrColorString, - 'color'); - -var checkColor = function(MACHINE, functionName, position) { - var aColor = _checkColor(MACHINE, functionName, position); - if (colorDb.get(aColor)) { - aColor = colorDb.get(aColor); - } - return aColor; -}; - -var checkImage = plt.baselib.check.makeCheckArgumentType( - isImage, - 'image'); - -var checkImageOrScene = plt.baselib.check.makeCheckArgumentType( - function(x) { return isImage(x) || isScene(x); }, - 'image or scene'); - -var checkFontFamily = plt.baselib.check.makeCheckArgumentType( - isFontFamily, - 'font family'); - -var checkFontStyle = plt.baselib.check.makeCheckArgumentType( - isFontStyle, - 'font style'); - -var checkFontWeight = plt.baselib.check.makeCheckArgumentType( - isFontWeight, - 'font weight'); - -var checkPlaceX = plt.baselib.check.makeCheckArgumentType( - isPlaceX, - 'x-place'); - -var checkPlaceY = plt.baselib.check.makeCheckArgumentType( - isPlaceY, - 'y-place'); - - -var checkAngle = plt.baselib.check.makeCheckArgumentType( - isAngle, - "finite real number between 0 and 360"); - - -var checkMode = plt.baselib.check.makeCheckArgumentType( - isMode, - 'solid or outline'); - - -var checkSideCount = plt.baselib.check.makeCheckArgumentType( - isSideCount, - "positive integer greater than or equal to 3"); - - -var checkStepCount = plt.baselib.check.makeCheckArgumentType( - isStepCount, - "positive integer greater than or equal to 1"); - - -var checkPointsCount = plt.baselib.check.makeCheckArgumentType( - isPointsCount, - "positive integer greater than or equal to 2"); - - -var checkListofColor = plt.baselib.check.makeCheckListofArgumentType( - isColor, - 'color'); - - - - - -////////////////////////////////////////////////////////////////////// - - -EXPORTS['image-color?'] = - makePrimitiveProcedure( - 'image-color?', - 1, - function(MACHINE) { - var elt = MACHINE.e[MACHINE.e.length - 1]; - return (isColorOrColorString(elt)); - }); - - - -EXPORTS['mode?'] = - makePrimitiveProcedure( - 'mode?', - 1, - function(MACHINE) { - return isMode(MACHINE.e[MACHINE.e.length - 1]); - }); - -EXPORTS['x-place?'] = - makePrimitiveProcedure( - 'x-place?', - 1, - function(MACHINE) { - return isPlaceX(MACHINE.e[MACHINE.e.length - 1]); - }); - -EXPORTS['y-place?'] = - makePrimitiveProcedure( - 'y-place?', - 1, - function(MACHINE) { - return isPlaceY(MACHINE.e[MACHINE.e.length - 1]); - }); - -EXPORTS['angle?'] = - makePrimitiveProcedure( - 'angle?', - 1, - function(MACHINE) { - return isAngle(MACHINE.e[MACHINE.e.length - 1]); - }); - -EXPORTS['side-count?'] = - makePrimitiveProcedure( - 'side-count?', - 1, - function(MACHINE) { - return isSideCount(MACHINE.e[MACHINE.e.length - 1]); - }); - - -EXPORTS['step-count?'] = - makePrimitiveProcedure( - 'step-count?', - 1, - function(MACHINE) { - return isStepCount(MACHINE.e[MACHINE.e.length - 1]); - }); - - -EXPORTS['image?'] = - makePrimitiveProcedure( - 'image?', - 1, - function(MACHINE) { - return isImage(MACHINE.e[MACHINE.e.length - 1]); - }); - - - -EXPORTS['text'] = - makePrimitiveProcedure( - 'text', - 3, - function(MACHINE) { - var aString = checkString(MACHINE,'text', 0); - // Unlike 2htdp, we'll allow this to be a positive integer - var aSize = checkPositiveInteger(MACHINE, 'text', 1); - var aColor = checkColor(MACHINE, 'text', 2); - return makeTextImage(aString.toString(), - jsnums.toFixnum(aSize), - aColor, - "normal", - "Optimer", - "", - "", - false); - }); - - -EXPORTS['text/font'] = - makePrimitiveProcedure( - 'text/font', - 8, - function(MACHINE) { - var aString = checkString(MACHINE, "text/font", 0); - var aSize = checkByte(MACHINE, "text/font", 1); - var aColor = checkColor(MACHINE, "text/font", 2); - var aFace = checkStringOrFalse(MACHINE, "text/font", 3); - var aFamily = checkFontFamily(MACHINE, "text/font", 4); - var aStyle = checkFontStyle(MACHINE, "text/font", 5); - var aWeight = checkFontWeight(MACHINE, "text/font", 6); - var aUnderline = checkBoolean(MACHINE, "text/font", 7); - return makeTextImage(aString.toString(), - jsnums.toFixnum(aSize), - aColor, - aFace.toString(), - aFamily.toString(), - aStyle.toString(), - aWeight.toString(), - aUnderline); - }); - - -EXPORTS['bitmap/url'] = - makeClosure( - 'bitmap/url', - 1, - function(MACHINE) { - var url = checkString(MACHINE, 'bitmap/url', 0); - PAUSE( - function(restart) { - var rawImage = new Image(); - rawImage.onload = function() { - restart(function(MACHINE) { - finalizeClosureCall( - MACHINE, - makeFileImage(url.toString(), - rawImage)); - }); - }; - rawImage.onerror = function(e) { - restart(function(MACHINE) { - plt.baselib.exceptions.raise( - MACHINE, - new Error(plt.baselib.format.format( - "unable to load ~a: ~a", - [url, - e.message]))); - }); - } - rawImage.src = url.toString(); - } - ); - }); - -EXPORTS['open-image-url'] = - plt.baselib.functions.renameProcedure(EXPORTS['bitmap/url'], - 'open-image-url'); - -EXPORTS['image-url'] = - plt.baselib.functions.renameProcedure(EXPORTS['bitmap/url'], - 'image-url'); - - - - -EXPORTS['overlay'] = - makePrimitiveProcedure( - 'overlay', - plt.baselib.arity.makeArityAtLeast(2), - function(MACHINE) { - var img1 = checkImage(MACHINE, "overlay", 0); - var img2 = checkImage(MACHINE, "overlay", 1); - var restImages = []; - for (var i = 2; i < MACHINE.a; i++) { - restImages.push(checkImage(MACHINE, "overlay", i)); - } - - var img = makeOverlayImage(img1, img2, "middle", "middle"); - for (var i = 0; i < restImages.length; i++) { - img = makeOverlayImage(img, restImages[i], "middle", "middle"); - } - return img; - }); - - - -EXPORTS['overlay/xy'] = - makePrimitiveProcedure( - 'overlay/xy', - 4, - function(MACHINE) { - var img1 = checkImage(MACHINE, "overlay/xy", 0); - var deltaX = checkReal(MACHINE, "overlay/xy", 1); - var deltaY = checkReal(MACHINE, "overlay/xy", 2); - var img2 = checkImage(MACHINE, "overlay/xy", 3); - return makeOverlayImage(img1.updatePinhole(0, 0), - img2.updatePinhole(0, 0), - jsnums.toFixnum(deltaX), - jsnums.toFixnum(deltaY)); - }); - - - - EXPORTS['overlay/align'] = - makePrimitiveProcedure( - 'overlay/align', - plt.baselib.arity.makeArityAtLeast(4), - function(MACHINE) { - var placeX = checkPlaceX(MACHINE, "overlay/align", 0); - var placeY = checkPlaceY(MACHINE, "overlay/align", 1); - var img1 = checkImage(MACHINE, "overlay/align", 2); - var img2 = checkImage(MACHINE, "overlay/align", 3); - var restImages = []; - for (var i = 4; i < MACHINE.a; i++) { - restImages.push(checkImage(MACHINE, "overlay/align", i)); - } - var img = makeOverlayImage(img1, - img2, - placeX.toString(), - placeY.toString()); - for (var i = 0; i < restImages.length; i++) - img = makeOverlayImage(img, - restImages[i], - placeX.toString(), - placeY.toString()); - return img; - }); - - - - - -EXPORTS['underlay'] = - makePrimitiveProcedure( - 'underlay', - plt.baselib.arity.makeArityAtLeast(2), - function(MACHINE) { - var img1 = checkImage(MACHINE, "underlay", 0); - var img2 = checkImage(MACHINE, "underlay", 1); - var restImages = []; - for (var i = 2; i < MACHINE.a; i++) { - restImages.push(checkImage(MACHINE, "underlay", i)); - } - - var img = makeOverlayImage(img2, img1, 0, 0); - for (var i = 0; i < restImages.length; i++) { - img = makeOverlayImage(restImages[i], img, 0, 0); - } - return img; - }); - - -EXPORTS['underlay/xy'] = - makePrimitiveProcedure( - 'underlay/xy', - 4, - function(MACHINE) { - var img1 = checkImage(MACHINE, "underlay/xy", 0); - var deltaX = checkReal(MACHINE, "underlay/xy", 1); - var deltaY = checkReal(MACHINE, "underlay/xy", 2); - var img2 = checkImage(MACHINE, "underlay/xy", 3); - return makeOverlayImage(img2.updatePinhole(0, 0), - img1.updatePinhole(0, 0), - -(jsnums.toFixnum(deltaX)), - -(jsnums.toFixnum(deltaY))); - }); - -EXPORTS['underlay/align'] = - makePrimitiveProcedure( - 'underlay/align', - plt.baselib.arity.makeArityAtLeast(4), - function(MACHINE) { - var placeX = checkPlaceX(MACHINE, "underlay/align", 0); - var placeY = checkPlaceY(MACHINE, "underlay/align", 1); - var img1 = checkImage(MACHINE, "underlay/align", 2); - var img2 = checkImage(MACHINE, "underlay/align", 3); - var restImages = []; - for (var i = 4; i < MACHINE.a; i++) { - restImages.push(checkImage(MACHINE, "underlay/align", i)); - } - - var img = makeOverlayImage(img2, - img1, - placeX.toString(), - placeY.toString()); - - for (var i = 0; i < restImages.length; i++) { - img = makeOverlayImage(restImages[i], - img, - placeX.toString(), - placeY.toString()); - } - return img; - }); - - - -EXPORTS['beside'] = - makePrimitiveProcedure( - 'beside', - plt.baselib.arity.makeArityAtLeast(2), - function(MACHINE) { - var img1 = checkImage(MACHINE, "beside", 0); - var img2 = checkImage(MACHINE, "beside", 1); - var restImages = []; - for (var i = 2; i < MACHINE.a; i++) { - restImages.push(checkImage(MACHINE, "beside", i)); - } - - var img = makeOverlayImage(img1, - img2, - "beside", - "middle"); - - for (var i = 0; i < restImages.length; i++) { - img = makeOverlayImage(img, restImages[i], "beside", "middle"); - } - - return img; - }); - - -EXPORTS['beside/align'] = - makePrimitiveProcedure( - 'beside/align', - plt.baselib.arity.makeArityAtLeast(3), - function(MACHINE) { - var placeY = checkPlaceY(MACHINE, "beside/align", 0); - var img1 = checkImage(MACHINE, "beside/align", 1); - var img2 = checkImage(MACHINE, "beside/align", 2); - var restImages = []; - for (var i = 3; i < MACHINE.a; i++) { - restImages.push(checkImage(MACHINE, "beside/align", i)); - } - - var img = makeOverlayImage(img1, - img2, - "beside", - placeY.toString()); - - for (var i = 0; i < restImages.length; i++) { - img = makeOverlayImage(img, - restImages[i], - "beside", - placeY.toString()); - } - - return img; - - }); - -EXPORTS['above'] = - makePrimitiveProcedure( - 'above', - plt.baselib.arity.makeArityAtLeast(2), - function(MACHINE) { - var img1 = checkImage(MACHINE, "above", 0); - var img2 = checkImage(MACHINE, "above", 1); - var restImages = []; - for (var i = 2; i < MACHINE.a; i++) { - restImages.push(checkImage(MACHINE, "above", i)); - } - - var img = makeOverlayImage(img1, - img2, - "middle", - "above"); - - for (var i = 0; i < restImages.length; i++) - img = makeOverlayImage(img, - restImages[i], - "middle", - "above"); - return img; - - }); - -EXPORTS['above/align'] = - makePrimitiveProcedure( - 'above/align', - plt.baselib.arity.makeArityAtLeast(3), - function(MACHINE) { - var placeX = checkPlaceX(MACHINE, "above/align", 0); - var img1 = checkImage(MACHINE, "above/align", 1); - var img2 = checkImage(MACHINE, "above/align", 2); - var restImages = []; - for (var i = 3; i < MACHINE.a; i++) { - restImages.push(checkImage(MACHINE, "above/align", i)); - } - - - var img = makeOverlayImage(img1, - img2, - placeX.toString(), - "above"); - - for (var i = 0; i < restImages.length; i++) - img = makeOverlayImage(img, - restImages[i], - placeX.toString(), - "above"); - - return img; - }); - - - - -EXPORTS['empty-scene'] = - makePrimitiveProcedure( - 'empty-scene', - 2, - function(MACHINE) { - var width = checkNonNegativeReal(MACHINE, 'empty-scene', 0); - var height = checkNonNegativeReal(MACHINE, 'empty-scene', 1); - return makeSceneImage(jsnums.toFixnum(width), - jsnums.toFixnum(height), - [], - true); - }); - - - -EXPORTS['place-image'] = - makePrimitiveProcedure( - 'place-image', - 4, - function(MACHINE) { - var picture = checkImage(MACHINE, "place-image", 0); - var x = checkReal(MACHINE, "place-image", 1); - var y = checkReal(MACHINE, "place-image", 2); - var background = checkImageOrScene(MACHINE, "place-image", 3); - if (isScene(background)) { - return background.add(picture, jsnums.toFixnum(x), jsnums.toFixnum(y)); - } else { - var newScene = makeSceneImage(background.getWidth(), - background.getHeight(), - [], - false); - newScene = newScene.add(background.updatePinhole(0, 0), 0, 0); - newScene = newScene.add(picture, jsnums.toFixnum(x), jsnums.toFixnum(y)); - return newScene; - } - - }); - - - -EXPORTS['place-image/align'] = - makePrimitiveProcedure( - 'place-image/align', - 6, - function(MACHINE) { - var img = checkImage(MACHINE, "place-image/align", 0); - var x = checkReal(MACHINE, "place-image/align", 1); - var y = checkReal(MACHINE, "place-image/align", 2); - var placeX = checkPlaceX(MACHINE, "place-image/align", 3); - var placeY = checkPlaceY(MACHINE, "place-image/align", 4); - var background = checkImageOrScene(MACHINE, "place-image/align", 5); - - // calculate x and y based on placeX and placeY - if (placeX == "left") x = x + img.pinholeX; - else if (placeX == "right") x = x - img.pinholeX; - if (placeY == "top") y = y + img.pinholeY; - else if (placeY == "bottom") y = y - img.pinholeY; - - if (isScene(background)) { - return background.add(img, jsnums.toFixnum(x), jsnums.toFixnum(y)); - } else { - var newScene = makeSceneImage(background.getWidth(), - background.getHeight(), - [], - false); - newScene = newScene.add(background.updatePinhole(0, 0), 0, 0); - newScene = newScene.add(img, jsnums.toFixnum(x), jsnums.toFixnum(y)); - return newScene; - } - }); - - - - - - - -EXPORTS['rotate'] = - makePrimitiveProcedure( - 'rotate', - 2, - function(MACHINE) { - var angle = checkAngle(MACHINE, "rotate", 0); - var img = checkImage(MACHINE, "rotate", 1); - return makeRotateImage(jsnums.toFixnum(-angle), img); - }); - - - -EXPORTS['scale'] = - makePrimitiveProcedure( - 'scale', - 2, - function(MACHINE) { - var factor = checkReal(MACHINE, "scale", 0); - var img = checkImage(MACHINE, "image", 1); - - return makeScaleImage(jsnums.toFixnum(factor), - jsnums.toFixnum(factor), - img); - }); - - -EXPORTS['scale/xy'] = - makePrimitiveProcedure( - 'scale/xy', - 3, - function(MACHINE) { - var xFactor = checkReal(MACHINE, "scale/xy", 0); - var yFactor = checkReal(MACHINE, "scale/xy", 1); - var img = checkImage(MACHINE, "scale/xy", 2); - return makeScaleImage(jsnums.toFixnum(xFactor), - jsnums.toFixnum(yFactor), - img); - - }); - - -EXPORTS['flip-horizontal'] = - makePrimitiveProcedure( - 'flip-horizontal', - 1, - function(MACHINE) { - var img = checkImage(MACHINE, "flip-horizontal", 0); - return makeFlipImage(img, "horizontal"); - }); - - -EXPORTS['flip-vertical'] = - makePrimitiveProcedure( - 'flip-vertical', - 1, - function(MACHINE) { - var img = checkImage(MACHINE, "flip-vertical", 0); - return makeFlipImage(img, "vertical"); - }); - - -EXPORTS['frame'] = - makePrimitiveProcedure( - 'frame', - 1, - function(MACHINE) { - var img = checkImage(MACHINE, "frame", 0); - return makeFrameImage(img); - }); - - -EXPORTS['crop'] = - makePrimitiveProcedure( - 'crop', - 5, - function(MACHINE) { - var x = checkReal(MACHINE, "crop", 0); - var y = checkReal(MACHINE, "crop", 1); - var width = checkNonNegativeReal(MACHINE, "crop", 2); - var height = checkNonNegativeReal(MACHINE, "crop", 3); - var img = checkImage(MACHINE, "crop", 4); - return makeCropImage(jsnums.toFixnum(x), - jsnums.toFixnum(y), - jsnums.toFixnum(width), - jsnums.toFixnum(height), - img); - }); - - - -EXPORTS['line'] = - makePrimitiveProcedure( - 'line', - 3, - function(MACHINE) { - var x = checkReal(MACHINE, 'line', 0); - var y = checkReal(MACHINE, 'line', 1); - var c = checkColor(MACHINE, 'line', 2); - return makeLineImage(jsnums.toFixnum(x), - jsnums.toFixnum(y), - c, - true); - }); - - - - -EXPORTS['add-line'] = - makePrimitiveProcedure( - 'add-line', - 6, - function(MACHINE) { - var img = checkImage(MACHINE, "add-line", 0); - var x1 = checkReal(MACHINE, "add-line", 1); - var y1 = checkReal(MACHINE, "add-line", 2); - var x2 = checkReal(MACHINE, "add-line", 3); - var y2 = checkReal(MACHINE, "add-line", 4); - var c = checkColor(MACHINE, "add-line", 5); - var line = makeLineImage(jsnums.toFixnum(x2-x1), - jsnums.toFixnum(y2-y1), - c, - true); - return makeOverlayImage(line, img, "middle", "middle"); - }); - - - -EXPORTS['scene+line'] = - makePrimitiveProcedure( - 'scene+line', - 6, - function(MACHINE) { - var img = checkImage(MACHINE, "scene+line", 0); - var x1 = checkReal(MACHINE, "scene+line", 1); - var y1 = checkReal(MACHINE, "scene+line", 2); - var x2 = checkReal(MACHINE, "scene+line", 3); - var y2 = checkReal(MACHINE, "scene+line", 4); - var c = checkColor(MACHINE, "scene+line", 5); - // make a scene containing the image - var newScene = makeSceneImage(jsnums.toFixnum(img.getWidth()), - jsnums.toFixnum(img.getHeight()), - [], - true); - newScene = newScene.add(img.updatePinhole(0, 0), 0, 0); - // make an image containing the line - var line = makeLineImage(jsnums.toFixnum(x2-x1), - jsnums.toFixnum(y2-y1), - c, - false); - // add the line to scene, offset by the original amount - return newScene.add(line, jsnums.toFixnum(x1), jsnums.toFixnum(y1)); - }); - - -EXPORTS['circle'] = - makePrimitiveProcedure( - 'circle', - 3, - function(MACHINE) { - var aRadius = checkNonNegativeReal(MACHINE, "circle", 0); - var aMode = checkMode(MACHINE, "circle", 1); - var aColor = checkColor(MACHINE, "circle", 2); - return makeCircleImage(jsnums.toFixnum(aRadius), aMode.toString(), aColor); - }); - - -EXPORTS['square'] = - makePrimitiveProcedure( - 'square', - 3, - function(MACHINE) { - var l = checkNonNegativeReal(MACHINE, "square", 0); - var s = checkMode(MACHINE, "square", 1); - var c = checkColor(MACHINE, "square", 2); - return makeSquareImage(jsnums.toFixnum(l), s.toString(), c); - }); - - -EXPORTS['rectangle'] = - makePrimitiveProcedure( - 'rectangle', - 4, - function(MACHINE) { - var w = checkNonNegativeReal(MACHINE, "rectangle", 0); - var h = checkNonNegativeReal(MACHINE, "rectangle", 1); - var s = checkMode(MACHINE, "rectangle", 2); - var c = checkColor(MACHINE, "rectangle", 3); - return makeRectangleImage(jsnums.toFixnum(w), - jsnums.toFixnum(h), - s.toString(), - c); - }); - - -EXPORTS['regular-polygon'] = - makePrimitiveProcedure( - 'regular-polygon', - 4, - function(MACHINE) { - var length = checkNonNegativeReal(MACHINE, "regular-polygon", 0); - var count = checkSideCount(MACHINE, "regular-polygon", 1); - var s = checkMode(MACHINE, "regular-polygon", 2); - var c = checkColor(MACHINE, "regular-polygon", 3); - return makePolygonImage(jsnums.toFixnum(length), - jsnums.toFixnum(count), - jsnums.toFixnum(1), - s.toString(), - c); - }); - - -EXPORTS['ellipse'] = - makePrimitiveProcedure( - 'ellipse', - 4, - function(MACHINE) { - var w = checkNonNegativeReal(MACHINE, "ellipse", 0); - var h = checkNonNegativeReal(MACHINE, "ellipse", 1); - var s = checkMode(MACHINE, "ellipse", 2); - var c = checkColor(MACHINE, MACHINE, 3); - return makeEllipseImage(jsnums.toFixnum(w), - jsnums.toFixnum(h), - s.toString(), - c); - }); - - - -EXPORTS['triangle'] = - makePrimitiveProcedure( - 'triangle', - 3, - function(MACHINE) { - var s = checkNonNegativeReal(MACHINE, "triangle", 0); - var m = checkMode(MACHINE, "triangle", 1); - var c = checkColor(MACHINE, "triangle", 2); - return makeTriangleImage(jsnums.toFixnum(s), - 60, - m.toString(), - c); - }); - - -EXPORTS['right-triangle'] = - makePrimitiveProcedure( - 'right-triangle', - 4, - function(MACHINE) { - var side1 = checkNonNegativeReal(MACHINE, "right-triangle", 0); - var side2 = checkNonNegativeReal(MACHINE, "right-triangle", 1); - var s = checkMode(MACHINE, "right-triangle", 2); - var c = checkColor(MACHINE, "right-triangle", 3); - return makeRightTriangleImage(jsnums.toFixnum(side1), - jsnums.toFixnum(side2), - s.toString(), - c); - }); - - -EXPORTS['isosceles-triangle'] = - makePrimitiveProcedure( - 'isosceles-triangle', - 4, - function(MACHINE) { - var side = checkNonNegativeReal(MACHINE, "isosceles-triangle", 0); - var angle = checkAngle(MACHINE, "isosceles-triangle", 1); - var s = checkMode(MACHINE, "isosceles-triangle", 2); - var c = checkColor(MACHINE, "isosceles-triangle", 3); - return makeTriangleImage(jsnums.toFixnum(side), - jsnums.toFixnum(angle), - s.toString(), - c); - }); - - -EXPORTS['star'] = - makePrimitiveProcedure( - 'star', - plt.baselib.lists.makeList(3, 5), - function(MACHINE) { - if (MACHINE.a === 3) { - var sideLength = checkNonNegativeReal(MACHINE, "star", 0); - var mode = checkMode(MACHINE, "star", 1); - var color = checkColor(MACHINE, "star", 2); - return makePolygonImage(jsnums.toFixnum(sideLength), - jsnums.toFixnum(5), - jsnums.toFixnum(2), - mode.toString(), - color); - } else if (MACHINE.a === 5) { - var n = checkSideCount(MACHINE, "star", 0); - var outer = checkNonNegativeReal(MACHINE, "star", 1); - var inner = checkNonNegativeReal(MACHINE, "star", 2); - var m = checkMode(MACHINE, "star", 3); - var c = checkColor(MACHINE, "star", 4); - return makeStarImage(jsnums.toFixnum(n), - jsnums.toFixnum(outer), - jsnums.toFixnum(inner), - m.toString(), - c); - } - }); - -EXPORTS['radial-star'] = - makePrimitiveProcedure( - 'radial-star', - 5, - function(MACHINE) { - var aPoints = checkPointsCount(MACHINE, 'radial-star', 0); - var anOuter = checkNonNegativeReal(MACHINE, 'radial-star', 1); - var anInner = checkNonNegativeReal(MACHINE, 'radial-star', 2); - var aStyle = checkMode(MACHINE, "radial-star", 3); - var aColor = checkColor(MACHINE, "radial-star", 4); - return makeStarImage(jsnums.toFixnum(aPoints), - jsnums.toFixnum(anOuter), - jsnums.toFixnum(anInner), - aStyle.toString(), - aColor); - }); - - - -EXPORTS['star-polygon'] = - makePrimitiveProcedure( - 'star-polygon', - 5, - function(MACHINE) { - var length = checkNonNegativeReal(MACHINE, "star-polygon", 0); - var count = checkNonNegativeReal(MACHINE, "star-polygon", 1); - var step = checkStepCount(MACHINE, "star-polygon", 2); - var s = checkMode(MACHINE, "star-polygon", 3); - var c = checkColor(MACHINE, "star-polygon", 4); - return makePolygonImage(jsnums.toFixnum(length), - jsnums.toFixnum(count), - jsnums.toFixnum(step), - s.toString(), - c); - }); - - -EXPORTS['rhombus'] = - makePrimitiveProcedure( - 'rhombus', - 4, - function(MACHINE) { - var l = checkNonNegativeReal(MACHINE, "rhombus", 0); - var a = checkNonNegativeReal(MACHINE, "rhombus", 1); - var s = checkMode(MACHINE, "rhombus", 2); - var c = checkColor(MACHINE, "rhombus", 3); - return makeRhombusImage(jsnums.toFixnum(l), - jsnums.toFixnum(a), - s.toString(), - c); - - }); - - -EXPORTS['image->color-list'] = - makePrimitiveProcedure( - 'image->color-list', - 1, - function(MACHINE) { - var img = checkImage(MACHINE, 'image->color-list', 0); - return imageToColorList(img); - }); - - - -EXPORTS['color-list->image'] = - makePrimitiveProcedure( - 'color-list->image', - 5, - function(MACHINE) { - var listOfColors = checkListofColor(MACHINE, 'color-list->image', 0); - var width = checkNatural(MACHINE, 'color-list->image', 1); - var height = checkNatural(MACHINE, 'color-list->image', 2); - var pinholeX = checkNatural(MACHINE, 'color-list->image', 3); - var pinholeY = checkNatural(MACHINE, 'color-list->image', 4); - - return colorListToImage(listOfColors, - width, - height, - pinholeX, - pinholeY); - }); - -EXPORTS['image-width'] = - makePrimitiveProcedure( - 'image-width', - 1, - function(MACHINE) { - var img = checkImage(MACHINE, 'image-width', 0); - return img.getWidth(); - }); - -EXPORTS['image-height'] = - makePrimitiveProcedure( - 'image-height', - 1, - function(MACHINE) { - var img = checkImage(MACHINE, 'image-height', 0); - return img.getHeight(); - }); - -EXPORTS['image-baseline'] = - makePrimitiveProcedure( - 'image-baseline', - 1, - function(MACHINE) { - var img = checkImage(MACHINE, 'image-baseline', 0); - return img.getBaseline(); - }); - - - - - - -})(M, exports); - modrec.namespace["above14.14"] = exports["above"]; -modrec.namespace["above/align15.15"] = exports["above/align"]; -modrec.namespace["add-line27.27"] = exports["add-line"]; -modrec.namespace["angle?50.50"] = exports["angle?"]; -modrec.namespace["beside12.12"] = exports["beside"]; -modrec.namespace["beside/align13.13"] = exports["beside/align"]; -modrec.namespace["bitmap/url3.3"] = exports["bitmap/url"]; -modrec.namespace["circle29.29"] = exports["circle"]; -modrec.namespace["color-list->image42.42"] = exports["color-list->image"]; -modrec.namespace["crop25.25"] = exports["crop"]; -modrec.namespace["ellipse33.33"] = exports["ellipse"]; -modrec.namespace["empty-scene16.16"] = exports["empty-scene"]; -modrec.namespace["flip-horizontal22.22"] = exports["flip-horizontal"]; -modrec.namespace["flip-vertical23.23"] = exports["flip-vertical"]; -modrec.namespace["frame24.24"] = exports["frame"]; -modrec.namespace["image->color-list41.41"] = exports["image->color-list"]; -modrec.namespace["image-baseline45.45"] = exports["image-baseline"]; -modrec.namespace["image-color?46.46"] = exports["image-color?"]; -modrec.namespace["image-height44.44"] = exports["image-height"]; -modrec.namespace["image-url4.4"] = exports["image-url"]; -modrec.namespace["image-width43.43"] = exports["image-width"]; -modrec.namespace["image?53.53"] = exports["image?"]; -modrec.namespace["isosceles-triangle36.36"] = exports["isosceles-triangle"]; -modrec.namespace["line26.26"] = exports["line"]; -modrec.namespace["mode?47.47"] = exports["mode?"]; -modrec.namespace["open-image-url5.5"] = exports["open-image-url"]; -modrec.namespace["overlay6.6"] = exports["overlay"]; -modrec.namespace["overlay/align8.8"] = exports["overlay/align"]; -modrec.namespace["overlay/xy7.7"] = exports["overlay/xy"]; -modrec.namespace["place-image17.17"] = exports["place-image"]; -modrec.namespace["place-image/align18.18"] = exports["place-image/align"]; -modrec.namespace["radial-star38.38"] = exports["radial-star"]; -modrec.namespace["rectangle31.31"] = exports["rectangle"]; -modrec.namespace["regular-polygon32.32"] = exports["regular-polygon"]; -modrec.namespace["rhombus40.40"] = exports["rhombus"]; -modrec.namespace["right-triangle35.35"] = exports["right-triangle"]; -modrec.namespace["rotate19.19"] = exports["rotate"]; -modrec.namespace["scale20.20"] = exports["scale"]; -modrec.namespace["scale/xy21.21"] = exports["scale/xy"]; -modrec.namespace["scene+line28.28"] = exports["scene+line"]; -modrec.namespace["side-count?51.51"] = exports["side-count?"]; -modrec.namespace["square30.30"] = exports["square"]; -modrec.namespace["star37.37"] = exports["star"]; -modrec.namespace["star-polygon39.39"] = exports["star-polygon"]; -modrec.namespace["step-count?52.52"] = exports["step-count?"]; -modrec.namespace["text1.1"] = exports["text"]; -modrec.namespace["text/font2.2"] = exports["text/font"]; -modrec.namespace["triangle34.34"] = exports["triangle"]; -modrec.namespace["underlay9.9"] = exports["underlay"]; -modrec.namespace["underlay/align11.11"] = exports["underlay/align"]; -modrec.namespace["underlay/xy10.10"] = exports["underlay/xy"]; -modrec.namespace["x-place?48.48"] = exports["x-place?"]; -modrec.namespace["y-place?49.49"] = exports["y-place?"]; - - modrec.privateExports = exports; - return M.c.pop().label(M); }; - if (! M.modules["whalesong/image/private/color.rkt"].isInvoked) { - M.modules["whalesong/image/private/color.rkt"].internalInvoke(M, - afterName1040, - M.params.currentErrorHandler); - } else { - afterName1040(); - } - }); - }(plt.runtime.currentMachine)); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _19855=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_19803,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/image/private/color.rkt"]=new RT.ModuleRecord("color",_19815); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _19839=function(M){if(--M.cbt<0){throw _19839;} -M.e[M.e.length-5]=M.v; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["make-struct-field-accessor"]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=2; -M.v=RT.makeSymbol("blue"); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_19843,M.p)); -return((M.p).label)(M);}; - -var _19826=function(M){if(--M.cbt<0){throw _19826;} -M.e[M.e.length-7]=M.v; -M.e[M.e.length-8]=false; -M.e[M.e.length-9]=RT.makePair(0,RT.makePair(1,RT.makePair(2,RT.makePair(3,RT.NULL)))); -M.e[M.e.length-10]=false; -M.v=RT.makeSymbol("color"); -M.p=M.e[M.e.length-11]; -M.e[M.e.length-11]=M.v; -M.a=11; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_19830,M.p)); -return((M.p).label)(M);}; - -var _19850=function(M){if(--M.cbt<0){throw _19850;} -if((M.a-7)===0){return(_19822)(M);}else{RT.si_context_expected(7)(M); -}}; - - - -var _19847=function(M){if(--M.cbt<0){throw _19847;} -M.p=M.e[M.e.length-7]; -M.e[M.e.length-7]=M.v; -M.a=7; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_19851,M.p)); -return((M.p).label)(M);}; - -var _19818=function(M){if(--M.cbt<0){throw _19818;} -M.e.push([M.params.currentNamespace["struct:color"]||M.primitives["struct:color"],M.params.currentNamespace["make-color"]||M.primitives["make-color"],M.params.currentNamespace["color?"]||M.primitives["color?"],M.params.currentNamespace["color-red"]||M.primitives["color-red"],M.params.currentNamespace["color-green"]||M.primitives["color-green"],M.params.currentNamespace["color-blue"]||M.primitives["color-blue"],M.params.currentNamespace["color-alpha"]||M.primitives["color-alpha"],M.params.currentNamespace["-color"]||M.primitives["-color"]]);M.e[M.e.length-1].names=["struct:color","make-color","color?","color-red","color-green","color-blue","color-alpha","-color"]; -M.modules["whalesong/image/private/color.rkt"].prefix=M.e[M.e.length-1]; -M.c.push(new RT.PromptFrame(_19820,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.length+=5; -M.e.length+=11; -M.e[M.e.length-11]=M.primitives["make-struct-type"]; -M.e[M.e.length-1]=RT.makeSymbol("color"); -M.e[M.e.length-2]=false; -M.e[M.e.length-3]=4; -M.e[M.e.length-4]=0; -M.e[M.e.length-5]=false; -M.e[M.e.length-6]=RT.NULL; -M.p=M.primitives["current-inspector"]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_19826,M.p)); -return((M.p).label)(M);}; - -var _19800=function(M){if(--M.cbt<0){throw _19800;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=4; -if (M.e[M.e.length-5][1]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-5].names[1]); } -M.e[M.e.length-4]=M.e[M.e.length-5][1]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.v=M.e[M.e.length-9]; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _19798=function(M){if(--M.cbt<0){throw _19798;} -if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 1]).racketArity,M.a)){if(!RT.isArityMatching(((M.p).closedVals[(M.p).closedVals.length - 2]).racketArity,M.a)){return(_19799)(M);}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 2]; -return(_19800)(M);}}else{M.p=(M.p).closedVals[(M.p).closedVals.length - 1]; -return(_19799)(M);}}; - - -var _19799=function(M){if(--M.cbt<0){throw _19799;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=4; -if (M.e[M.e.length-5][1]===undefined){ RT.raiseUnboundToplevelError(M.e[M.e.length-5].names[1]); } -M.e[M.e.length-4]=M.e[M.e.length-5][1]; -M.e[M.e.length-1]=M.e[M.e.length-6]; -M.e[M.e.length-2]=M.e[M.e.length-7]; -M.e[M.e.length-3]=M.e[M.e.length-8]; -M.v=255; -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(4+4),4); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _19820=function(M){if(--M.cbt<0){throw _19820;} -M.c.push(new RT.PromptFrame(_19854,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.length+=2; -M.e[M.e.length-1]=new RT.Closure(_19799,3,[M.e[M.e.length-3]],"...rivate/color.rkt:12:4"); -M.e[M.e.length-2]=new RT.Closure(_19800,4,[M.e[M.e.length-3]],"...rivate/color.rkt:14:4"); -M.v=new RT.Closure(_19798,RT.makePair(3,RT.makePair(4,RT.NULL)),[M.e[M.e.length-2],M.e[M.e.length-1]],"-color"); -M.e.length-=2; -M.e[M.e.length-1][7]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _19802=function(M){if(--M.cbt<0){throw _19802;} -M.e.length-=M.a; -return(_19803)(M);}; - - -var _19829=function(M){if(--M.cbt<0){throw _19829;} -if((M.a-5)===0){return(_19828)(M);}else{RT.si_context_expected(5)(M); -}}; - -var _19819=function(M){if(--M.cbt<0){throw _19819;} -M.e.length-=(M.a-1); -return(_19820)(M);}; - -var _19815=function(M){--M.cbt<0; -M.modules["whalesong/image/private/color.rkt"].isInvoked=true; -if((M.modules["whalesong/lang/base.rkt"]!==undefined)!==false){if(M.modules["whalesong/lang/base.rkt"].isInvoked!==false){return(_19818)(M);}else{M.c.push(new RT.CallFrame(_19818,M.p)); -return(M.modules["whalesong/lang/base.rkt"].label)(M);}}else{return(_19818)(M);}}; - -var _19853=function(M){if(--M.cbt<0){throw _19853;} -M.e.length-=(M.a-1); -return(_19854)(M);}; - -var _19822=function(M){--M.cbt<0; -M.e.splice(M.e.length-(6+5),5); -M.e[M.e.length-7][0]=M.v; -M.e[M.e.length-7][1]=M.e[M.e.length-1]; -M.e[M.e.length-7][2]=M.e[M.e.length-2]; -M.e[M.e.length-7][3]=M.e[M.e.length-3]; -M.e[M.e.length-7][4]=M.e[M.e.length-4]; -M.e[M.e.length-7][5]=M.e[M.e.length-5]; -M.e[M.e.length-7][6]=M.e[M.e.length-6]; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -_19851=RT.si_context_expected(7); - -var _19817=function(M){if(--M.cbt<0){throw _19817;} -M.e.length-=(M.a-1); -return(_19818)(M);}; - -var _19803=function(M){if(--M.cbt<0){throw _19803;} -}; - -var _19854=function(M){if(--M.cbt<0){throw _19854;} -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/image/private/color.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - - -_19830=RT.si_context_expected(5); - -var _19828=function(M){--M.cbt<0; -M.e[M.e.length-5]=M.v; -M.e[M.e.length-6]=M.e[M.e.length-1]; -M.e[M.e.length-7]=M.e[M.e.length-2]; -M.e[M.e.length-8]=M.e[M.e.length-3]; -M.e[M.e.length-9]=M.e[M.e.length-4]; -M.e.length-=4; -M.v=M.e[M.e.length-5]; -M.e.length+=7; -M.e[M.e.length-7]=M.primitives["values"]; -M.e[M.e.length-1]=M.e[M.e.length-8]; -M.e[M.e.length-2]=M.e[M.e.length-9]; -M.e[M.e.length-3]=M.e[M.e.length-10]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["make-struct-field-accessor"]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=0; -M.v=RT.makeSymbol("red"); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_19835,M.p)); -return((M.p).label)(M);}; - -var _19835=function(M){if(--M.cbt<0){throw _19835;} -M.e[M.e.length-4]=M.v; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["make-struct-field-accessor"]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=1; -M.v=RT.makeSymbol("green"); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_19839,M.p)); -return((M.p).label)(M);}; - -var _19843=function(M){if(--M.cbt<0){throw _19843;} -M.e[M.e.length-6]=M.v; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["make-struct-field-accessor"]; -M.e[M.e.length-1]=M.e[M.e.length-14]; -M.e[M.e.length-2]=3; -M.v=RT.makeSymbol("alpha"); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_19847,M.p)); -return((M.p).label)(M);}; - -_19818.mvr=_19817; -_19830.mvr=_19829; -_19851.mvr=_19850; -_19820.mvr=_19819; -_19854.mvr=_19853; -_19803.mvr=_19802; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_19855, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _2709=function(M){--M.cbt<0; -M.modules["whalesong/cs019/cs019-pre-base.rkt"].isInvoked=true; -if((M.modules["whalesong/lang/base.rkt"]!==undefined)!==false){if(M.modules["whalesong/lang/base.rkt"].isInvoked!==false){return(_2712)(M);}else{M.c.push(new RT.CallFrame(_2712,M.p)); -return(M.modules["whalesong/lang/base.rkt"].label)(M);}}else{return(_2712)(M);}}; - -var _2706=function(M){if(--M.cbt<0){throw _2706;} -M.e.length-=M.a; -return(_2707)(M);}; - -var _2707=function(M){if(--M.cbt<0){throw _2707;} -}; - -var _2712=function(M){if(--M.cbt<0){throw _2712;} -M.e.push([]);M.e[M.e.length-1].names=[]; -M.modules["whalesong/cs019/cs019-pre-base.rkt"].prefix=M.e[M.e.length-1]; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/cs019/cs019-pre-base.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - -var _2711=function(M){if(--M.cbt<0){throw _2711;} -M.e.length-=(M.a-1); -return(_2712)(M);}; - -var _2713=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_2707,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/cs019/cs019-pre-base.rkt"]=new RT.ModuleRecord("cs019-pre-base",_2709); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -_2712.mvr=_2711; -_2707.mvr=_2706; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_2713, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _40468=function(M){if(--M.cbt<0){throw _40468;} -if((M.modules["whalesong/web-world/main.rkt"]!==undefined)!==false){if(M.modules["whalesong/web-world/main.rkt"].isInvoked!==false){return(_40471)(M);}else{M.c.push(new RT.CallFrame(_40471,M.p)); -return(M.modules["whalesong/web-world/main.rkt"].label)(M);}}else{return(_40471)(M);}}; - -var _40465=function(M){--M.cbt<0; -M.modules["whalesong/web-world.rkt"].isInvoked=true; -if((M.modules["whalesong/lang/base.rkt"]!==undefined)!==false){if(M.modules["whalesong/lang/base.rkt"].isInvoked!==false){return(_40468)(M);}else{M.c.push(new RT.CallFrame(_40468,M.p)); -return(M.modules["whalesong/lang/base.rkt"].label)(M);}}else{return(_40468)(M);}}; - -var _40463=function(M){if(--M.cbt<0){throw _40463;} -}; - -var _40467=function(M){if(--M.cbt<0){throw _40467;} -M.e.length-=(M.a-1); -return(_40468)(M);}; - -var _40462=function(M){if(--M.cbt<0){throw _40462;} -M.e.length-=M.a; -return(_40463)(M);}; - -var _40470=function(M){if(--M.cbt<0){throw _40470;} -M.e.length-=(M.a-1); -return(_40471)(M);}; - -var _40471=function(M){if(--M.cbt<0){throw _40471;} -M.e.push([]);M.e[M.e.length-1].names=[]; -M.modules["whalesong/web-world.rkt"].prefix=M.e[M.e.length-1]; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/web-world.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - -var _40472=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_40463,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/web-world.rkt"]=new RT.ModuleRecord("web-world",_40465); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -_40468.mvr=_40467; -_40471.mvr=_40470; -_40463.mvr=_40462; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_40472, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _40477=function(M){--M.cbt<0; -M.modules["whalesong/web-world/main.rkt"].isInvoked=true; -if((M.modules["whalesong/lang/base.rkt"]!==undefined)!==false){if(M.modules["whalesong/lang/base.rkt"].isInvoked!==false){return(_40480)(M);}else{M.c.push(new RT.CallFrame(_40480,M.p)); -return(M.modules["whalesong/lang/base.rkt"].label)(M);}}else{return(_40480)(M);}}; - -var _40475=function(M){if(--M.cbt<0){throw _40475;} -}; - -var _40486=function(M){if(--M.cbt<0){throw _40486;} -if((M.modules["whalesong/web-world/event.rkt"]!==undefined)!==false){if(M.modules["whalesong/web-world/event.rkt"].isInvoked!==false){return(_40489)(M);}else{M.c.push(new RT.CallFrame(_40489,M.p)); -return(M.modules["whalesong/web-world/event.rkt"].label)(M);}}else{return(_40489)(M);}}; - -var _40483=function(M){if(--M.cbt<0){throw _40483;} -if((M.modules["whalesong/web-world/helpers.rkt"]!==undefined)!==false){if(M.modules["whalesong/web-world/helpers.rkt"].isInvoked!==false){return(_40486)(M);}else{M.c.push(new RT.CallFrame(_40486,M.p)); -return(M.modules["whalesong/web-world/helpers.rkt"].label)(M);}}else{return(_40486)(M);}}; - -var _40480=function(M){if(--M.cbt<0){throw _40480;} -if((M.modules["whalesong/web-world/impl.rkt"]!==undefined)!==false){if(M.modules["whalesong/web-world/impl.rkt"].isInvoked!==false){return(_40483)(M);}else{M.c.push(new RT.CallFrame(_40483,M.p)); -return(M.modules["whalesong/web-world/impl.rkt"].label)(M);}}else{return(_40483)(M);}}; - -var _40474=function(M){if(--M.cbt<0){throw _40474;} -M.e.length-=M.a; -return(_40475)(M);}; - -var _40488=function(M){if(--M.cbt<0){throw _40488;} -M.e.length-=(M.a-1); -return(_40489)(M);}; - -var _40489=function(M){if(--M.cbt<0){throw _40489;} -M.e.push([]);M.e[M.e.length-1].names=[]; -M.modules["whalesong/web-world/main.rkt"].prefix=M.e[M.e.length-1]; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/web-world/main.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - -var _40490=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_40475,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/web-world/main.rkt"]=new RT.ModuleRecord("main",_40477); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _40485=function(M){if(--M.cbt<0){throw _40485;} -M.e.length-=(M.a-1); -return(_40486)(M);}; - -var _40482=function(M){if(--M.cbt<0){throw _40482;} -M.e.length-=(M.a-1); -return(_40483)(M);}; - -var _40479=function(M){if(--M.cbt<0){throw _40479;} -M.e.length-=(M.a-1); -return(_40480)(M);}; - -_40480.mvr=_40479; -_40483.mvr=_40482; -_40486.mvr=_40485; -_40489.mvr=_40488; -_40475.mvr=_40474; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_40490, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _40510=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_40494,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/web-world/helpers.rkt"]=new RT.ModuleRecord("helpers",_40504); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _40494=function(M){if(--M.cbt<0){throw _40494;} -}; - -var _40506=function(M){if(--M.cbt<0){throw _40506;} -M.e.length-=(M.a-1); -return(_40507)(M);}; - -var _40493=function(M){if(--M.cbt<0){throw _40493;} -M.e.length-=M.a; -return(_40494)(M);}; - -var _40491=function(M){if(--M.cbt<0){throw _40491;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push(M.e[M.e.length-1][1]); -M.e.push(M.primitives["gensym"]); -M.v=RT.makeSymbol("fresh-web-world-id"); -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_40498,M.p)); -return((M.p).label)(M);}; - -var _40509=function(M){if(--M.cbt<0){throw _40509;} -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/web-world/helpers.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - -var _40498=function(M){if(--M.cbt<0){throw _40498;} -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(1+1),1); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _40507=function(M){if(--M.cbt<0){throw _40507;} -M.e.push([M.params.currentNamespace["fresh-id"]||M.primitives["fresh-id"],M.primitives["symbol->string"]]);M.e[M.e.length-1].names=["fresh-id","symbol->string"]; -M.modules["whalesong/web-world/helpers.rkt"].prefix=M.e[M.e.length-1]; -M.c.push(new RT.PromptFrame(_40509,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_40491,0,[M.e[M.e.length-1]],"fresh-id"); -M.e[M.e.length-1][0]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _40504=function(M){--M.cbt<0; -M.modules["whalesong/web-world/helpers.rkt"].isInvoked=true; -if((M.modules["whalesong/lang/base.rkt"]!==undefined)!==false){if(M.modules["whalesong/lang/base.rkt"].isInvoked!==false){return(_40507)(M);}else{M.c.push(new RT.CallFrame(_40507,M.p)); -return(M.modules["whalesong/lang/base.rkt"].label)(M);}}else{return(_40507)(M);}}; - - -var _40508=function(M){if(--M.cbt<0){throw _40508;} -M.e.length-=(M.a-1); -return(_40509)(M);}; - -_40507.mvr=_40506; -_40509.mvr=_40508; -_40494.mvr=_40493; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_40510, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -(function(M) { -M.modules["whalesong/web-world/impl.rkt"] = - new plt.runtime.ModuleRecord("whalesong/web-world/impl.rkt", - function(M) { - var afterName1167 = function() { var afterName1166 = function() { - if(--M.cbt<0) { throw arguments.callee; } - var modrec = M.modules["whalesong/web-world/impl.rkt"]; - var exports = {}; - modrec.isInvoked = true; - (function(MACHINE, EXPORTS){/*jslint vars: true, white: true, plusplus: true, maxerr: 50, indent: 4 */ - - - -// Offers functional views, traversals of the DOM and other tree-like structures. -// See Functional Pearl: The Zipper, by G\'erard Huet -// J. Functional Programming 7 (5): 549--554 Sepember 1997 - - -var TreeCursor = (function() { - "use strict"; - - var TreeCursor = function(parent, node, prevs, nexts, openF, closeF, atomicF) { - this.parent = parent; // Parent can be the top (undefined), or a TreeCursor - this.node = node; - this.prevs = prevs; - this.nexts = nexts; - - // openF: node -> (arrayof node) - this.openF = openF; - - // closeF: node (arrayof node) -> node - // Given a node and its array of children, return a new node. - this.closeF = closeF; - - // atomicF: node -> boolean - // Produces true if the node should be treated atomically. - this.atomicF = atomicF; - }; - - TreeCursor.prototype.canDown = function() { - return (!(this.atomicF(this.node)) && - this.openF(this.node).length !== 0); - }; - - TreeCursor.prototype.down = function() { - if (this.atomicF(this.node)) { - throw new Error("down of atomic element"); - } - var opened = this.openF(this.node); - if (opened.length === 0) { - throw new Error("down of empty"); - } - return new TreeCursor(this, - opened[0], - [], - opened.slice(1), - this.openF, - this.closeF, - this.atomicF); - }; - - - TreeCursor.prototype.canUp = function() { - return this.parent !== undefined; - }; - - TreeCursor.prototype.up = function() { - var parent = this.parent; - return new TreeCursor(parent.parent, - this.closeF(parent.node, - this.prevs.concat([this.node]).concat(this.nexts)), - parent.prevs, - parent.nexts, - this.openF, - this.closeF, - this.atomicF); - }; - - TreeCursor.prototype.canLeft = function() { return this.prevs.length !== 0; }; - - TreeCursor.prototype.left = function() { - if (this.prevs.length === 0) { throw new Error("left of first"); } - return new TreeCursor(this.parent, - this.prevs[this.prevs.length - 1], - this.prevs.slice(0, this.prevs.length - 1), - [this.node].concat(this.nexts), - this.openF, - this.closeF, - this.atomicF); - }; - - TreeCursor.prototype.canRight = function() { return this.nexts.length !== 0; }; - - TreeCursor.prototype.right = function() { - if (this.nexts.length === 0) { throw new Error("right of last"); } - return new TreeCursor(this.parent, - this.nexts[0], - this.prevs.concat([this.node]), - this.nexts.slice(1), - this.openF, - this.closeF, - this.atomicF); - }; - - TreeCursor.prototype.succ = function() { - var n; - if (this.canDown()) { - return this.down(); - } else if (this.canRight()) { - return this.right(); - } else { - n = this; - while (true) { - n = n.up(); - if (n.canRight()) { - return n.right(); - } - } - } - }; - - TreeCursor.prototype.pred = function() { - var n; - if (this.canLeft()) { - n = this.left(); - while (n.canDown()) { - n = n.down(); - while (n.canRight()) { - n = n.right(); - } - } - return n; - } else { - return this.up(); - } - }; - - TreeCursor.prototype.canPred = function() { - return this.canLeft() || this.canUp(); - }; - - TreeCursor.prototype.canSucc = function() { - var n; - if (this.canDown()) { - return true; - } else if (this.canRight()) { - return true; - } else { - n = this; - while (true) { - if (! n.canUp()) { return false; } - n = n.up(); - if (n.canRight()) { - return true; - } - } - } - }; - - TreeCursor.prototype.top = function() { - var n = this; - while (n.canUp()) { n = n.up(); } - return n; - }; - - - ////////////////////////////////////////////////////////////////////// - - - TreeCursor.prototype.replaceNode = function(n) { - return new TreeCursor(this.parent, - n, - this.prevs, - this.nexts, - this.openF, - this.closeF, - this.atomicF); - }; - - TreeCursor.prototype.insertRight = function(n) { - return new TreeCursor(this.parent, - n, - this.prevs.concat([this.node]), - this.nexts, - this.openF, - this.closeF, - this.atomicF); - }; - - TreeCursor.prototype.insertLeft = function(n) { - return new TreeCursor(this.parent, - n, - this.prevs, - [this.node].concat(this.nexts), - this.openF, - this.closeF, - this.atomicF); - }; - - TreeCursor.prototype.insertDown = function(n) { - if (this.atomicF(this.node)) { - throw new Error("down of atomic element"); - } - return new TreeCursor(this, - n, - [], - this.openF(this.node), - this.openF, - this.closeF, - this.atomicF); - }; - - TreeCursor.prototype.deleteNode = function() { - var parent; - if (this.nexts.length !== 0) { - return new TreeCursor(this.parent, - this.nexts[0], - this.prevs, - this.nexts.slice(1), - this.openF, - this.closeF, - this.atomicF); - } else if (this.prevs.length !== 0) { - return new TreeCursor(this.parent, - this.prevs[this.prevs.length - 1], - this.prevs.slice(0, this.prevs.length - 1), - this.nexts, - this.openF, - this.closeF, - this.atomicF); - } else { - parent = this.parent; - return new TreeCursor(parent.parent, - this.closeF(parent.node, []), - parent.prevs, - parent.nexts, - this.openF, - this.closeF, - this.atomicF); - } - }; - - - - - - - ////////////////////////////////////////////////////////////////////// - - - - TreeCursor.adaptTreeCursor = function(node, openF, closeF, atomicF) { - return new TreeCursor(undefined, - node, - [], - [], - openF, - closeF, - atomicF); - }; - - - TreeCursor.arrayToCursor = function(anArray) { - var arrayOpenF = function(n) { - if (n instanceof Array) { - return n; - } else { - return []; - } - }; - var arrayCloseF = function(n, children) { - if (n instanceof Array) { - return children; - } else { - return n; - } - }; - - var arrayAtomicF = function(n) { - return !(n instanceof Array); - }; - return TreeCursor.adaptTreeCursor(anArray, - arrayOpenF, - arrayCloseF, - arrayAtomicF); - }; - - - TreeCursor.domToCursor = function(dom) { - var domOpenF = - // To go down, just take the children. - function(n) { - return [].slice.call(n.childNodes, 0); - }; - var domCloseF = - // To go back up, take the node, do a shallow cloning, and replace the children. - function(node, children) { - var i; - var newNode = node.cloneNode(false); - for (i = 0; i < children.length; i++) { - newNode.appendChild(children[i].cloneNode(true)); - } - return newNode; - }; - var domAtomicF = - function(node) { - return node.nodeType !== 1; - }; - return TreeCursor.adaptTreeCursor(dom.cloneNode(true), - domOpenF, - domCloseF, - domAtomicF); - }; - - - return TreeCursor; -}()); -/*jslint browser: true, unparam: true, vars: true, white: true, plusplus: true, maxerr: 50, indent: 4, forin: true */ -/*global plt,MACHINE,$,EXPORTS,TreeCursor*/ -(function() { - - "use strict"; - - var makePrimitiveProcedure = plt.baselib.functions.makePrimitiveProcedure; - var makeClosure = plt.baselib.functions.makeClosure; - var finalizeClosureCall = plt.baselib.functions.finalizeClosureCall; - var PAUSE = plt.runtime.PAUSE; - var isString = plt.baselib.strings.isString; - var isSymbol = plt.baselib.symbols.isSymbol; - var isList = plt.baselib.lists.isList; - var isEmpty = plt.baselib.lists.isEmpty; - var listLength = plt.baselib.lists.length; - var makeList = plt.baselib.lists.makeList; - var makePair = plt.baselib.lists.makePair; - var makeSymbol = plt.baselib.symbols.makeSymbol; - - - - // EventHandler and the other classes here will be defined below. - // We're just trying to keep jslint happy. - var EventHandler, DomEventSource; - - - - // FIXME: as soon as we get real parameters, use parameters - // instead. Global: defines the currently running big bang. - // Parameterized around the call to bigBang. - var currentBigBangRecord; - - - - var resourceStructType = - MACHINE.modules['whalesong/resource/structs.rkt'].namespace['struct:resource']; - - var eventStructType = - MACHINE.modules['whalesong/web-world/event.rkt'].namespace['struct:event']; - - - - - - var shallowCloneNode = function(node) { - var result = node.cloneNode(false); - $(result).data($(node).data()); - return result; - }; - - - - ////////////////////////////////////////////////////////////////////// - - - // domNodeToArrayTree: dom -> dom-tree - // Given a native dom node, produces the appropriate array tree representation - var domNodeToArrayTree = function(domNode) { - var result = [domNode]; - var c; - for (c = domNode.firstChild; c !== null; c = c.nextSibling) { - result.push(domNodeToArrayTree(c)); - } - return result; - }; - - - var arrayTreeToDomNode = function(tree) { - var result = shallowCloneNode(tree[0]); - var i; - for (i = 1; i < tree.length; i++) { - result.appendChild(arrayTreeToDomNode(tree[i])); - } - return result; - }; - - - var domToArrayTreeCursor = function(dom) { - var domOpenF = - // To go down, just take the children. - function(tree) { - return tree.slice(1); - }; - var domCloseF = - // To go back up, take the tree and reconstruct it. - function(tree, children) { - return [tree[0]].concat(children); - }; - var domAtomicF = - function(tree) { - return tree[0].nodeType !== 1; - }; - return TreeCursor.adaptTreeCursor(domNodeToArrayTree($(dom).clone(true).get(0)), - domOpenF, - domCloseF, - domAtomicF); - }; - - var treeText = function(tree) { - var text = []; - var visit = function(tree) { - var i; - if (tree[0].nodeType === 3) { - text.push(tree[0].nodeValue); - } - for (i = 1; i < tree.length; i++) { - visit(tree[i]); - } - }; - visit(tree); - return text.join(''); - }; - - ////////////////////////////////////////////////////////////////////// - - - - // For the moment, we only support selection by id. - var selectorMatches = function(selector, tree) { - if (tree[0].nodeType === 1) { - return tree[0].getAttribute('id') === selector; - } else { - return false; - } - }; - - var EMPTY_PENDING_ACTIONS = plt.baselib.lists.EMPTY; - - - ////////////////////////////////////////////////////////////////////// - // A MockView provides a functional interface to the DOM. It - // includes a cursor to the currently focused dom, the pending - // actions to perform on the actual view, and a nonce to detect - // freshness of the MockView. - var MockView = function(cursor, pendingActions, eventHandlers, nonce) { - this.cursor = cursor; - - // (listof (view -> void)) - this.pendingActions = pendingActions; - - this.eventHandlers = eventHandlers; - this.nonce = nonce; - }; - - var isMockView = plt.baselib.makeClassPredicate(MockView); - - MockView.prototype.toString = function() { - return "<#view>"; - }; - - MockView.prototype.getPendingActions = function() { - return plt.baselib.lists.listToArray(this.pendingActions).reverse(); - }; - - - MockView.prototype.act = function(actionForCursor, actionForEventHandlers, actionForReal) { - if (arguments.length !== 3) { throw new Error("act: insufficient arguments"); } - return new MockView(actionForCursor(this.cursor), - plt.baselib.lists.makePair(actionForReal, this.pendingActions), - actionForEventHandlers(this.eventHandlers), - this.nonce); - }; - - - MockView.prototype.updateFocus = function(selector) { - selector = selector.toString(); - return this.act( - function(cursor) { - var c = cursor.top(); - while (true) { - if (selectorMatches(selector, c.node)) { - return c; - } - if (c.canSucc()) { - c = c.succ(); - } else { - throw new Error("unable to find " + selector); - } - } - }, - function(eventHandlers) { return eventHandlers; }, - function(view) { - view.focus = document.getElementById(selector); - } - ); - }; - - MockView.prototype.getText = function() { - var tree = this.cursor.node; - return treeText(tree); - }; - - MockView.prototype.updateText = function(text) { - return this.act( - function(cursor) { - return cursor.replaceNode([cursor.node[0]] - .concat([[document.createTextNode(text)]])); - }, - function(eventHandlers) { return eventHandlers; }, - function(view) { - $(view.focus).text(text); - } - ); - }; - - MockView.prototype.getAttr = function(name) { - return this.cursor.node[0].getAttribute(name); - }; - - - MockView.prototype.updateAttr = function(name, value) { - return this.act( - function(cursor) { - return cursor.replaceNode([$(shallowCloneNode(cursor.node[0])) - .attr(name, value).get(0)] - .concat(cursor.node.slice(1))); - }, - function(eventHandlers) { - return eventHandlers; - }, - function(view) { - $(view.focus).attr(name, value); - }); - }; - - - - - - MockView.prototype.getCss = function(name) { - return $(this.cursor.node[0]).css(name); - }; - - - MockView.prototype.updateCss = function(name, value) { - return this.act( - function(cursor) { - return cursor.replaceNode([$(shallowCloneNode(cursor.node[0])) - .css(name, value).get(0)] - .concat(cursor.node.slice(1))); - }, - function(eventHandlers) { - return eventHandlers; - }, - function(view) { - $(view.focus).css(name, value); - }); - }; - - - - MockView.prototype.getFormValue = function() { - return $(this.cursor.node[0]).val(); - }; - - MockView.prototype.updateFormValue = function(value) { - return this.act( - function(cursor) { - return cursor.replaceNode([$(shallowCloneNode(cursor.node[0])) - .val(value).get(0)] - .concat(cursor.node.slice(1))); - }, - function(eventHandlers) { - return eventHandlers; - }, - function(view) { - $(view.focus).val(value); - }); - }; - - - - MockView.prototype.left = function() { - return this.act( - function(cursor) { - return cursor.left(); - }, - function(eventHandlers) { - return eventHandlers; - }, - function(view) { - view.focus = view.focus.previousSibling; - }); - }; - - MockView.prototype.right = function() { - return this.act( - function(cursor) { - return cursor.right(); - }, - function(eventHandlers) { - return eventHandlers; - }, - function(view) { - view.focus = view.focus.nextSibling; - }); - }; - - MockView.prototype.up = function() { - return this.act( - function(cursor) { - return cursor.up(); - }, - function(eventHandlers) { - return eventHandlers; - }, - function(view) { - view.focus = view.focus.parentNode; - }); - }; - - MockView.prototype.down = function() { - return this.act( - function(cursor) { - return cursor.down(); - }, - function(eventHandlers) { - return eventHandlers; - }, - function(view) { - view.focus = view.focus.firstChild; - }); - }; - - - MockView.prototype.forward = function() { - return this.act( - function(cursor) { - return cursor.succ(); - }, - function(eventHandlers) { - return eventHandlers; - }, - function(view) { - if (view.focus.firstChild) { - view.focus = view.focus.firstChild; - } else if (view.focus.nextSibling) { - view.focus = view.focus.nextSibling; - } else { - while (view.focus !== view.top) { - view.focus = view.focus.parentNode; - if (view.focus.nextSibling) { - view.focus = view.focus.nextSibling; - return; - } - } - } - }); -}; - - MockView.prototype.backward = function() { - return this.act( - function(cursor) { - return cursor.pred(); - }, - function(eventHandlers) { - return eventHandlers; - }, - function(view) { - if (view.focus.previousSibling) { - view.focus = view.focus.previousSibling; - while (view.focus.children().length > 0) { - view.focus = view.focus.firstChild; - while(view.focus.nextSibling) { view.focus = view.focus.nextSibling; } - } - } else { - view.focus = view.focus.parentNode; - } - - }); - }; - - - - - - - - - var mockViewIdGensym = 0; - - MockView.prototype.bind = function(name, worldF) { - var that = this; - - // HACK: every node that is bound needs to have an id. We - // enforce this by mutating the node. - if (! this.cursor.node[0].id) { - this.cursor.node[0].id = ("__webWorldId_" + mockViewIdGensym++); - } - return this.act( - function(cursor) { - return cursor; - }, - function(eventHandlers) { - var handler = new EventHandler(name, - new DomEventSource( - name, - that.cursor.node[0].id), - worldF); - var newHandlers = eventHandlers.concat([handler]); - return newHandlers; - }, - function(view) { - // HACK: every node that is bound needs to have an id. We - // enforce this by mutating the node. - if (! view.focus.id) { - view.focus.id = ("__webWorldId_" + mockViewIdGensym++); - } - var handler = new EventHandler(name, - new DomEventSource( - name, - view.focus.id), - worldF); - view.addEventHandler(handler); - currentBigBangRecord.startEventHandler(handler); - }); - }; - - MockView.prototype.show = function() { - return this.act( - function(cursor) { - return cursor.replaceNode([$(shallowCloneNode(cursor.node[0])) - .show().get(0)] - .concat(cursor.node.slice(1))); - }, - function(eventHandlers) { return eventHandlers; }, - function(view) { - $(view.focus).show(); - } - ); - }; - - MockView.prototype.hide = function() { - return this.act( - function(cursor) { - return cursor.replaceNode([$(shallowCloneNode(cursor.node[0])) - .hide().get(0)] - .concat(cursor.node.slice(1))); - }, - function(eventHandlers) { return eventHandlers; }, - function(view) { - $(view.focus).hide(); - } - ); - }; - - - MockView.prototype.remove = function() { - return this.act( - function(cursor) { - return cursor.deleteNode(); - }, - function(eventHandlers) { - return eventHandlers; - }, - function(view) { - var elt = view.focus; - if (view.focus.nextSibling) { - view.focus = view.focus.nextSibling; - } else if (view.focus.previousSibling) { - view.focus = view.focus.previousSibling; - } else { - view.focus = view.focus.parentNode; - } - $(elt).remove(); - }); - }; - - - MockView.prototype.appendChild = function(domNode) { - return this.act( - function(cursor) { - if (cursor.canDown()) { - cursor = cursor.down(); - while (cursor.canRight()) { - cursor = cursor.right(); - } - return cursor.insertRight(domNodeToArrayTree(domNode)); - } else { - return cursor.insertDown(domNodeToArrayTree(domNode)); - } - }, - function(eventHandlers) { return eventHandlers; }, - function(view) { - var clone = $(domNode).clone(true); - clone.appendTo($(view.focus)); - view.focus = clone.get(0); - } - ); - }; - - MockView.prototype.insertRight = function(domNode) { - return this.act( - function(cursor) { - return cursor.insertRight(domNodeToArrayTree(domNode)); - }, - function(eventHandlers) { return eventHandlers; }, - function(view) { - var clone = $(domNode).clone(true); - clone.insertAfter($(view.focus)); - view.focus = clone.get(0); - } - ); - }; - - MockView.prototype.insertLeft = function(domNode) { - return this.act( - function(cursor) { - return cursor.insertLeft(domNodeToArrayTree(domNode)); - }, - function(eventHandlers) { return eventHandlers; }, - function(view) { - var clone = $(domNode).clone(true); - clone.insertBefore($(view.focus)); - view.focus = clone.get(0); - } - ); - }; - - - - MockView.prototype.id = function() { - return this.cursor.node[0].id; - }; - - MockView.prototype.isUpMovementOk = function() { - return this.cursor.canUp(); - }; - - MockView.prototype.isDownMovementOk = function() { - return this.cursor.canDown(); - }; - - MockView.prototype.isLeftMovementOk = function() { - return this.cursor.canLeft(); - }; - - MockView.prototype.isRightMovementOk = function() { - return this.cursor.canRight(); - }; - - MockView.prototype.isForwardMovementOk = function() { - return this.cursor.canSucc(); - }; - - MockView.prototype.isBackwardMovementOk = function() { - return this.cursor.canPred(); - }; - - - ////////////////////////////////////////////////////////////////////// - - - - - - // A View represents a representation of the DOM tree. - var View = function(top, eventHandlers) { - // top: dom node - this.top = top; - // focus: dom node - this.focus = top; - this.eventHandlers = eventHandlers; - }; - - View.prototype.toString = function() { return "#"; }; - - - var defaultToRender = function(){}; - - View.prototype.initialRender = function(top) { - $(top).empty(); - // Special case: if this.top is an html, we merge into the - // existing page. - if ($(this.top).children("title").length !== 0) { - $(document.head).find('title').remove(); - } - $(document.head).append($(this.top).children("title")); - $(document.head).append($(this.top).children("link")); - - $(top).append(this.top); - - // The snip here is meant to accomodate weirdness with canvas dom - // elements. cloning a canvas doesn't preserve how it draws. - // However, we attach a toRender using jQuery's data(), which does - // do the preservation we need. On an initial render, we walk - // through all the elements and toRender them. - - // It may be that this will deprecate the afterAttach stuff - // that I'm using earlier. - ($(this.top).data('toRender') || defaultToRender)(); - $('*', this.top).each( - function(index, elt) { - ($(elt).data('toRender') || defaultToRender).call(elt); - }); - }; - - - View.prototype.addEventHandler = function(handler) { - this.eventHandlers.push(handler); - }; - - // Return a list of the event sources from the view. - // fixme: may need to apply the pending actions to get the real set. - View.prototype.getEventHandlers = function() { - return this.eventHandlers; - }; - - View.prototype.getMockAndResetFocus = function(nonce) { - this.focus = this.top; - return new MockView(domToArrayTreeCursor($(this.top).get(0)), - EMPTY_PENDING_ACTIONS, - this.eventHandlers.slice(0), - nonce); - }; - - - - - - var isView = plt.baselib.makeClassPredicate(View); - var isResource = resourceStructType.predicate; - - - // var resourcePath = function(r) { return resourceStructType.accessor(r, 0); }; - // var resourceKey = function(r) { return resourceStructType.accessor(r, 1); }; - var resourceContent = function(r) { return resourceStructType.accessor(r, 2); }; - - - - - - var parseStringAsHtml = function(str) { - var dom = $('
').append($(str)); - return dom; - }; - - - // coerseToView: (U resource View) -> View - // Coerse a value into a view. - var coerseToView = function(x, onSuccess, onFail) { - var dom; - if (isView(x)) { - return onSuccess(x); - } else if (isResource(x)) { - try { - dom = parseStringAsHtml(resourceContent(x).toString()) - .css("margin", "0px") - .css("padding", "0px") - .css("border", "0px"); - dom.children("body").css("margin", "0px"); - } catch (exn1) { - return onFail(exn1); - } - return onSuccess(new View(dom.get(0), [])); - } else if (isMockView(x)) { - return onSuccess(new View(arrayTreeToDomNode(x.cursor.top().node), - x.eventHandlers.slice(0))); - } else { - try { - dom = plt.baselib.format.toDomNode(x); - } catch (exn2) { - return onFail(exn2); - } - return onSuccess(new View(dom, [])); - } - }; - - var coerseToMockView = function(x, onSuccess, onFail) { - var dom; - if (isMockView(x)) { - return onSuccess(x); - } else if (isResource(x)) { - try { - dom = parseStringAsHtml(resourceContent(x).toString()) - .css("margin", "0px") - .css("padding", "0px") - .css("border", "0px"); - dom.children("body").css("margin", "0px"); - } catch (exn1) { - return onFail(exn1); - } - return onSuccess(new MockView(domToArrayTreeCursor(dom.get(0)), - EMPTY_PENDING_ACTIONS, - [], - undefined)); - } else { - try { - dom = plt.baselib.format.toDomNode(x); - } catch (exn2) { - return onFail(exn2); - } - return onSuccess(new MockView(domToArrayTreeCursor(dom), - EMPTY_PENDING_ACTIONS, - [], - undefined)); - } - }; - - - var isDomNode = function(x) { - return (x.nodeType === 1); - }; - - - var coerseToDomNode = function(x, onSuccess, onFail) { - var dom; - if (isDomNode(x)) { - return onSuccess(x); - } else if (isResource(x)) { - try { - dom = parseStringAsHtml(resourceContent(x).toString()) - .css("margin", "0px") - .css("padding", "0px") - .css("border", "0px"); - } catch (exn1) { - return onFail(exn1); - } - return onSuccess(dom.get(0)); - } else if (isMockView(x)) { - return onSuccess(arrayTreeToDomNode(x.cursor.top().node)); - } else { - try { - dom = plt.baselib.format.toDomNode(x); - } catch (exn2) { - return onFail(exn2); - } - return onSuccess(dom); - } - }; - - - - - - - - - ////////////////////////////////////////////////////////////////////// - // - // The inputs into a big bang are WorldHandlers, which configure the big - // bang in terms of the initial view, the inputs, event sources, etc. - // - - var WorldHandler = function() {}; - var isWorldHandler = plt.baselib.makeClassPredicate(WorldHandler); - - - var InitialViewHandler = function(view) { - WorldHandler.call(this); - // view: View - this.view = view; - }; - - InitialViewHandler.prototype = plt.baselib.heir(WorldHandler.prototype); - InitialViewHandler.prototype.toString = function() { return "#"; }; - var isInitialViewHandler = plt.baselib.makeClassPredicate(InitialViewHandler); - - - var StopWhenHandler = function(stopWhen) { - WorldHandler.call(this); - // stopWhen: Racket procedure (World -> boolean) - this.stopWhen = stopWhen; - }; - - StopWhenHandler.prototype = plt.baselib.heir(WorldHandler.prototype); - StopWhenHandler.prototype.toString = function() { return "#"; }; - var isStopWhenHandler = plt.baselib.makeClassPredicate(StopWhenHandler); - - - - var ToDrawHandler = function(toDraw) { - WorldHandler.call(this); - // toDraw: Racket procedure (World View -> View) - this.toDraw = toDraw; - }; - - ToDrawHandler.prototype = plt.baselib.heir(WorldHandler.prototype); - ToDrawHandler.prototype.toString = function() { return "#"; }; - var isToDrawHandler = plt.baselib.makeClassPredicate(ToDrawHandler); - - - - - - // An EventHandler combines a EventSource with a racketWorldCallback. - EventHandler = function(name, eventSource, racketWorldCallback) { - WorldHandler.call(this); - this.name = name; - this.eventSource = eventSource; - this.racketWorldCallback = racketWorldCallback; - }; - EventHandler.prototype = plt.baselib.heir(WorldHandler.prototype); - EventHandler.prototype.toString = function() { return "#<" + this.name + ">"; }; - var isEventHandler = plt.baselib.makeClassPredicate(EventHandler); - - - - var WithOutputToHandler = function(outputPort) { - this.outputPort = outputPort; - }; - WithOutputToHandler.prototype = plt.baselib.heir(WorldHandler.prototype); - var isWithOutputToHandler = plt.baselib.makeClassPredicate(WithOutputToHandler); - - - ////////////////////////////////////////////////////////////////////// - - - var find = function(handlers, pred) { - var i; - for (i = 0; i < handlers.length; i++) { - if (pred(handlers[i])) { - return handlers[i]; - } - } - return undefined; - }; - - var filter = function(handlers, pred) { - var i, lst = []; - for (i = 0; i < handlers.length; i++) { - if (pred(handlers[i])) { - lst.push(handlers[i]); - } - } - return lst; - }; - - - - - // convert an object to an event. - // At the moment, we only copy over those values which are numbers or strings. - var objectToEvent = function(obj) { - var key, val; - var result = makeList(); - // Note: for some reason, jslint is not satisfied that I check - // that the object has a hasOwnProperty before I use it. I've intentionally - // turned off jslint's forin check because it's breaking here: - for (key in obj) { - if (obj.hasOwnProperty && obj.hasOwnProperty(key)) { - val = obj[key]; - if (typeof(val) === 'number') { - result = makePair(makeList(makeSymbol(key), - plt.baselib.numbers.makeFloat(val)), - result); - } else if (typeof(val) === 'string') { - result = makePair(makeList(makeSymbol(key), val), - result); - } - } - } - return eventStructType.constructor(result); - }; - - - - - - /* Event sources. - - An event source is a way to send input to a web-world program. - - An event source may be started or stopped. - - - Pause and Unpause are semantically meant to be cheaper than start, stop, so - that's why they're a part of this API. - */ - - var EventSource = function() {}; - EventSource.prototype.onStart = function(fireEvent) { - }; - - EventSource.prototype.onStop = function() { - }; - - - - - // TickEventSource sends tick events. - var TickEventSource = function(delay) { - this.delay = delay; // delay in milliseconds. - - this.id = undefined; - // either undefined, or an integer representing the - // id to cancel a timeout. - }; - - TickEventSource.prototype = plt.baselib.heir(EventSource.prototype); - - TickEventSource.prototype.onStart = function(fireEvent) { - if (this.id === undefined) { - this.id = setInterval( - function(evt) { - fireEvent(undefined, - objectToEvent(evt)); - }, - this.delay); - } - }; - - TickEventSource.prototype.onStop = function() { - if (this.id !== undefined) { - clearInterval(this.id); - this.id = undefined; - } - }; - - - - - - - var MockLocationEventSource = function() { - this.elt = undefined; - }; - MockLocationEventSource.prototype = plt.baselib.heir(EventSource.prototype); - MockLocationEventSource.prototype.onStart = function(fireEvent) { - if (this.elt === undefined) { - var mockLocationSetter = document.createElement("div"); - - var latInput = document.createElement("input"); - latInput.type = "text"; - - var latOutput = document.createElement("input"); - latOutput.type = "text"; - - var submitButton = document.createElement("input"); - submitButton.type = "button"; - submitButton.value = "send lat/lng"; - submitButton.onclick = function() { - fireEvent(undefined, - objectToEvent({ latitude: Number(latInput.value), - longitude: Number(latOutput.value)})); - return false; - }; - - mockLocationSetter.style.border = "1pt solid black"; - mockLocationSetter.appendChild( - document.createTextNode("mock location setter")); - mockLocationSetter.appendChild(latInput); - mockLocationSetter.appendChild(latOutput); - mockLocationSetter.appendChild(submitButton); - document.body.appendChild(mockLocationSetter); - - this.elt = mockLocationSetter; - } - }; - - MockLocationEventSource.prototype.onStop = function() { - if (this.elt !== undefined) { - document.body.removeChild(this.elt); - this.elt = undefined; - } - }; - - - - - - // This version really does use the geolocation object. - var LocationEventSource = function() { - this.id = undefined; - }; - - LocationEventSource.prototype = plt.baselib.heir(EventSource.prototype); - - LocationEventSource.prototype.onStart = function(fireEvent) { - var that = this; - if (this.id === undefined) { - var success = function(position) { - if (position.hasOwnProperty && - position.hasOwnProperty('coords') && - position.coords.hasOwnProperty && - position.coords.hasOwnProperty('latitude') && - position.coords.hasOwnProperty('longitude')) { - fireEvent(undefined, - objectToEvent({ 'latitude' : Number(position.coords.latitude), - 'longitude' : Number(position.coords.longitude) })); - } - }; - // If we fail while trying to watch the position - // using high accuracy, switch over to the coarse one. - var onFailSwitchoverToCoerse = function() { - navigator.geolocation.clearWatch(that.id); - that.id = navigator.geolocation.watchPosition( - success, - fail); - }; - var fail = function(err) { - // Quiet failure - }; - if (!!(navigator.geolocation)) { - navigator.geolocation.getCurrentPosition(success, fail); - this.id = navigator.geolocation.watchPosition( - success, - onFailSwitchoverToCoerse, - { enableHighAccuracy : true }); - } - } - }; - - LocationEventSource.prototype.onStop = function() { - if (this.id !== undefined) { - navigator.geolocation.clearWatch(this.id); - this.id = undefined; - } - }; - - - - - - - // DomElementSource: string (U DOM string) -> EventSource - // A DomEventSource allows DOM elements to send events over to - // web-world. - DomEventSource = function(type, elementOrId) { - this.type = type; - this.elementOrId = elementOrId; - this.handler = undefined; - }; - - DomEventSource.prototype = plt.baselib.heir(EventSource.prototype); - - DomEventSource.prototype.onStart = function(fireEvent) { - var element = this.elementOrId; - if (typeof(this.elementOrId) === 'string') { - element = document.getElementById(this.elementOrId); - } - - if (! element) { return; } - if (this.handler !== undefined) { - $(element).unbind(this.type, this.handler); - this.handler = undefined; - } - - this.handler = function(evt) { - if (element !== undefined) { - fireEvent(element, objectToEvent(evt)); - } - }; - $(element).bind(this.type, this.handler); - }; - - - DomEventSource.prototype.onStop = function() { - var element = this.elementOrId; - if (typeof(this.elementOrId) === 'string') { - element = document.getElementById(this.elementOrId); - } - - if (this.handler !== undefined) { - if (element !== undefined) { - $(element).unbind(this.type, this.handler); - } - this.handler = undefined; - } - }; - - - - - - - - var EventQueue = function() { - this.elts = []; - }; - EventQueue.prototype.queue = function(elt) { - this.elts.push(elt); - }; - - EventQueue.prototype.dequeue = function() { - return this.elts.shift(); - }; - - EventQueue.prototype.isEmpty = function() { - return this.elts.length === 0; - }; - - - var EventQueueElement = function(who, handler, data) { - this.who = who; - this.handler = handler; - this.data = data; - }; - - - - var defaultToDraw = function(MACHINE, world, view, success, fail) { - coerseToMockView(world, - success, - fail); - }; - - - var defaultStopWhen = function(MACHINE, world, view, success, fail) { - return success(false); - }; - - - // bigBang. - var bigBang = function(MACHINE, world, handlers) { - var oldCurrentBigBangRecord = currentBigBangRecord; - - var running = true; - var dispatchingEvents = false; - - var top = $("
").get(0); - var view = (find(handlers, isInitialViewHandler) || - { view : new View($('
').get(0), []) }).view; - var stopWhen = (find(handlers, isStopWhenHandler) || - { stopWhen: defaultStopWhen }).stopWhen; - var toDraw = (find(handlers, isToDrawHandler) || {toDraw : defaultToDraw} ).toDraw; - - var oldOutputPort = MACHINE.params.currentOutputPort; - - var eventQueue = new EventQueue(); - var eventHandlers = filter(handlers, isEventHandler).concat(view.getEventHandlers()); - view.eventHandlers = eventHandlers; - - MACHINE.params.currentDisplayer(MACHINE, top); - - // From this point forward, redirect standard output if requested. - if (find(handlers, isWithOutputToHandler)) { - MACHINE.params.currentOutputPort = find(handlers, isWithOutputToHandler).outputPort; - } - - PAUSE(function(restart) { - var onCleanRestart, onMessyRestart, - startEventHandlers, stopEventHandlers, - startEventHandler, stopEventHandler, - dispatchEventsInQueue, refreshView; - - onCleanRestart = function() { - running = false; - stopEventHandlers(); - restart(function(MACHINE) { - MACHINE.params.currentOutputPort = oldOutputPort; - currentBigBangRecord = oldCurrentBigBangRecord; - finalizeClosureCall(MACHINE, world); - }); - }; - - onMessyRestart = function(exn) { - running = false; - stopEventHandlers(); - restart(function(MACHINE) { - currentBigBangRecord = oldCurrentBigBangRecord; - MACHINE.params.currentOutputPort = oldOutputPort; - plt.baselib.exceptions.raise(MACHINE, exn); - }); - }; - - startEventHandlers = function() { - var i; - for (i = 0; i < eventHandlers.length; i++) { - startEventHandler(eventHandlers[i]); - } - }; - - stopEventHandlers = function() { - var i; - for (i = 0; i < eventHandlers.length; i++) { - stopEventHandler(eventHandlers[i]); - } - }; - - startEventHandler = function(handler) { - var fireEvent = function(who) { - if (! running) { return; } - var args = [].slice.call(arguments, 1); - eventQueue.queue(new EventQueueElement(who, handler, args)); - if (! dispatchingEvents) { - dispatchingEvents = true; - setTimeout( - function() { - dispatchEventsInQueue( - function() { - refreshView(function() {}, onMessyRestart); - }, - onMessyRestart); - }, - 0); - } - }; - handler.eventSource.onStart(fireEvent); - }; - - stopEventHandler = function(handler) { - handler.eventSource.onStop(); - }; - - - dispatchEventsInQueue = function(success, fail) { - // Apply all the events on the queue, call toDraw, and then stop. - // If the world ever satisfies stopWhen, stop immediately and quit. - var nextEvent; - var data; - var racketWorldCallback; - var mockView; - dispatchingEvents = true; - if(! eventQueue.isEmpty() ) { - // Set up the proxy object so we can do what appear to be functional - // queries. - mockView = view.getMockAndResetFocus(); - nextEvent = eventQueue.dequeue(); - if (nextEvent.who !== undefined) { - mockView = mockView.updateFocus(nextEvent.who.id); - } - - // FIXME: deal with event data here - racketWorldCallback = nextEvent.handler.racketWorldCallback; - data = nextEvent.data[0]; - var onGoodWorldUpdate = - function(newWorld) { - world = newWorld; - stopWhen(MACHINE, - world, - mockView, - function(shouldStop) { - if (shouldStop) { - refreshView(onCleanRestart, - fail); - } else { - dispatchEventsInQueue(success, fail); - } - }, - fail); - }; - if (plt.baselib.arity.isArityMatching(racketWorldCallback.racketArity, 3)) { - racketWorldCallback(MACHINE, - world, - mockView, - data, - onGoodWorldUpdate, - fail); - } else { - racketWorldCallback(MACHINE, - world, - mockView, - onGoodWorldUpdate, - fail); - } - } else { - dispatchingEvents = false; - success(); - } - }; - - refreshView = function(success, failure) { - // Note: we create a random nonce, and watch to see if the MockView we get back - // from the user came from here. If not, we have no hope to do a nice, efficient - // update, and have to do it from scratch. - var nonce = Math.random(); - var originalMockView = view.getMockAndResetFocus(nonce); - toDraw(MACHINE, - world, - originalMockView, - function(newMockView) { - if (newMockView.nonce === nonce) { - var i; - var actions = newMockView.getPendingActions(); - for (i = 0; i < actions.length; i++) { - actions[i](view); - } - } else { - view.top = arrayTreeToDomNode(newMockView.cursor.top().node); - view.initialRender(top); - eventHandlers = newMockView.eventHandlers.slice(0); - view.eventHandlers = eventHandlers; - startEventHandlers(); - } - success(); - }, - function(err) { - failure(err); - }); - }; - - currentBigBangRecord = { stop : onCleanRestart, - stopWithExn : onMessyRestart, - startEventHandler : startEventHandler, - stopEventHandler : stopEventHandler }; - view.initialRender(top); - startEventHandlers(); - refreshView(function() {}, onMessyRestart); - }); - }; - - var wrapFunction = function(proc) { - var f = function(MACHINE) { - var success = arguments[arguments.length - 2]; - var fail = arguments[arguments.length - 1]; - var args = [].slice.call(arguments, 1, arguments.length - 2); - return plt.baselib.functions.internalCallDuringPause.apply(null, - [MACHINE, - proc, - success, - fail].concat(args)); - }; - f.racketArity = proc.racketArity; - return f; - }; - - - - - var DomElementOutputPort = function(id) { - this.id = id; - }; - - DomElementOutputPort.prototype = plt.baselib.heir(plt.baselib.ports.OutputPort.prototype); - - DomElementOutputPort.prototype.writeDomNode = function (MACHINE, v) { - $(document.getElementById(this.id)).append(v); - $(v).trigger({type : 'afterAttach'}); - $('*', v).trigger({type : 'afterAttach'}); - }; - - - - - var isAttributeList = function(x) { - var children; - if (isList(x) && (! isEmpty(x))){ - if (isSymbol(x.first) && x.first.val === '@') { - children = x.rest; - while(! isEmpty(children)) { - if (isList(children.first) && - listLength(children.first) === 2 && - isSymbol(children.first.first) && - isString(children.first.rest.first)) { - - children = children.rest; - - } else { - return false; - } - } - return true; - } else { - return false; - } - } else { - return false; - } - }; - - - - // An xexp is one of the following: - // xexp :== (name (@ (key value) ...) xexp ...) - // :== (name xexp ...) - // :== string - var isXexp = function(x) { - var children; - if (isString(x)) { - return true; - } - if (isSymbol(x)) { - return true; - } - if (isList(x) && !(isEmpty(x))) { - if (isSymbol(x.first)) { - children = x.rest; - // Check the rest of the children. The first is special. - if (isEmpty(children)) { - return true; - } - if (isAttributeList(children.first)) { - children = children.rest; - } - while (! (isEmpty(children))) { - if (! isXexp(children.first)) { - return false; - } - children = children.rest; - } - return true; - } else { - return false; - } - } - return false; - }; - - - - - var assignAttributes = function(node, x) { - var children, key, value; - if (isList(x) && (! isEmpty(x))){ - if (isSymbol(x.first) && x.first.val === '@') { - children = x.rest; - while(! isEmpty(children)) { - if (isList(children.first) && - listLength(children.first) === 2 && - isSymbol(children.first.first) && - isString(children.first.rest.first)) { - - key = children.first.first; - value = children.first.rest.first; - $(node).attr(key.val, value.toString()); - - children = children.rest; - - } else { - return; - } - } - return; - } else { - return; - } - } else { - return; - } - }; - var xexpToDom = function(x) { - var children; - var name; - var node; - if (isString(x)) { - return document.createTextNode(x); - } - if (isSymbol(x)) { - return $("
&" + x.val + ";
").get(0).firstChild; - } - if (isList(x) && !(isEmpty(x))) { - if (isSymbol(x.first)) { - name = x.first.val; - node = document.createElement(name); - children = x.rest; - // Check the rest of the children. The first is special. - if (isEmpty(children)) { - return node; - } - if (isAttributeList(children.first)) { - assignAttributes(node, children.first); - children = children.rest; - } - while (! (isEmpty(children))) { - node.appendChild(xexpToDom(children.first)); - children = children.rest; - } - return node; - } else { - return false; - } - } - return false; - }; - - var firstLessThan = function(x, y) { - return x[0] < y[0]; - }; - - var domToXexp = function(dom) { - var child, attrs, name, convertedChildren, i, attributes; - if (dom.nodeType === 1) { - attributes = []; - attrs = plt.baselib.lists.EMPTY; - name = plt.baselib.symbols.makeSymbol(dom.nodeName.toLowerCase()); - child = dom.firstChild; - convertedChildren = plt.baselib.lists.EMPTY; - for (i = 0; i < dom.attributes.length; i++) { - attributes.push([dom.attributes[i].nodeName, dom.attributes[i].nodeValue]); - } - attributes.sort(firstLessThan); - for (i = 0; i < attributes.length; i++) { - attrs = plt.baselib.lists.makePair( - plt.baselib.lists.makeList(plt.baselib.symbols.makeSymbol(attributes[i][0]), - attributes[i][1]), - attrs); - } - while(child !== null) { - if (child.nodeType === 1) { - convertedChildren = - plt.baselib.lists.makePair( - domToXexp(child), - convertedChildren); - } else if (child.nodeType === 3) { - convertedChildren = plt.baselib.lists.makePair( - domToXexp(child), - convertedChildren); - } - // Ignore other types. - child = child.nextSibling; - } - - if (attrs === plt.baselib.lists.EMPTY) { - return plt.baselib.lists.makePair( - name, - plt.baselib.lists.reverse(convertedChildren)); - } else { - return plt.baselib.lists.makePair( - name, - plt.baselib.lists.makePair( - plt.baselib.lists.makePair(plt.baselib.symbols.makeSymbol("@"), - attrs), - plt.baselib.lists.reverse(convertedChildren))); - } - } else if (dom.nodeType === 3) { - return dom.nodeValue; - } else { - // If we can't convert it, return false. - return false; - } - }; - - - - - - - - - - - ////////////////////////////////////////////////////////////////////// - - var checkReal = plt.baselib.check.checkReal; - var checkString = plt.baselib.check.checkString; - var checkSymbolOrString = plt.baselib.check.checkSymbolOrString; - var checkProcedure = plt.baselib.check.checkProcedure; - - - var checkWorldHandler = plt.baselib.check.makeCheckArgumentType( - isWorldHandler, - 'world handler'); - - var checkMockView = plt.baselib.check.makeCheckArgumentType( - isMockView, 'view'); - - - - var checkSelector = plt.baselib.check.makeCheckArgumentType( - isString, 'selector'); - - var checkXexp = plt.baselib.check.makeCheckArgumentType( - isXexp, 'xexp'); - - - EXPORTS['big-bang'] = makeClosure( - 'big-bang', - plt.baselib.arity.makeArityAtLeast(1), - function(MACHINE) { - var world = MACHINE.e[MACHINE.e.length - 1]; - var handlers = []; - var i; - for (i = 1; i < MACHINE.a; i++) { - handlers.push(checkWorldHandler(MACHINE, 'big-bang', i)); - } - return bigBang(MACHINE, world, handlers); - }); - - - EXPORTS['initial-view'] = makeClosure( - 'initial-view', - 1, - function(MACHINE) { - var viewable = MACHINE.e[MACHINE.e.length - 1]; - PAUSE(function(restart) { - coerseToView(viewable, - function(v) { - restart(function(MACHINE) { - finalizeClosureCall(MACHINE, - new InitialViewHandler(v)); - }); - }, - function(exn) { - restart(function(MACHINE) { - plt.baselib.exceptions.raise( - MACHINE, - new Error(plt.baselib.format.format( - "unable to translate ~s to view: ~a", - [viewable, exn.message]))); - }); - }); - }); - }); - - - EXPORTS['->view'] = makeClosure( - '->view', - 1, - function(MACHINE) { - var viewable = MACHINE.e[MACHINE.e.length - 1]; - PAUSE(function(restart) { - coerseToMockView(viewable, - function(v) { - restart(function(MACHINE) { - finalizeClosureCall(MACHINE, v); - }); - }, - function(exn) { - restart(function(MACHINE) { - plt.baselib.exceptions.raise( - MACHINE, - new Error(plt.baselib.format.format( - "unable to translate ~s to view: ~a", - [viewable, exn.message]))); - }); - }); - }); - }); - - EXPORTS['stop-when'] = makePrimitiveProcedure( - 'stop-when', - 1, - function(MACHINE) { - var stopWhen = wrapFunction(checkProcedure(MACHINE, 'stop-when', 0)); - return new StopWhenHandler(stopWhen); - }); - - EXPORTS['to-draw'] = makePrimitiveProcedure( - 'to-draw', - 1, - function(MACHINE) { - var toDraw = wrapFunction(checkProcedure(MACHINE, 'to-draw', 0)); - - var coersingToMockView = function(MACHINE, world, view, success, fail) { - return toDraw(MACHINE, world, view, - function(v) { - coerseToMockView(v, success, fail); - }, - fail); - }; - return new ToDrawHandler(coersingToMockView); - }); - - EXPORTS['on-tick'] = makePrimitiveProcedure( - 'on-tick', - plt.baselib.lists.makeList(1, 2), - function(MACHINE) { - var onTick = wrapFunction(checkProcedure(MACHINE, 'on-tick', 0)); - var delay = Math.floor(1000/28); - if (MACHINE.a === 2) { - delay = Math.floor(plt.baselib.numbers.toFixnum(checkReal(MACHINE, 'on-tick', 1)) * 1000); - } - return new EventHandler('on-tick', - new TickEventSource(delay), - onTick); - }); - - - EXPORTS['view-focus?'] = makePrimitiveProcedure( - 'view-focus?', - 2, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-focus', 0); - var selector = checkSelector(MACHINE, 'view-focus', 1); - try { - view.updateFocus(selector); - return true; - } catch (e) { - return false; - } - }); - - - EXPORTS['view-focus'] = makePrimitiveProcedure( - 'view-focus', - 2, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-focus', 0); - var selector = checkSelector(MACHINE, 'view-focus', 1); - try { - return view.updateFocus(selector); - } catch (e) { - plt.baselib.exceptions.raise( - MACHINE, - new Error(plt.baselib.format.format( - "unable to focus to ~s: ~s", - [selector, e.message]))); - } - }); - - - EXPORTS['view-left'] = makePrimitiveProcedure( - 'view-left', - 1, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-left', 0); - return view.left(); - }); - - EXPORTS['view-right'] = makePrimitiveProcedure( - 'view-right', - 1, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-right', 0); - return view.right(); - }); - - EXPORTS['view-up'] = makePrimitiveProcedure( - 'view-up', - 1, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-up', 0); - return view.up(); - }); - - EXPORTS['view-down'] = makePrimitiveProcedure( - 'view-down', - 1, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-down', 0); - return view.down(); - }); - - EXPORTS['view-forward'] = makePrimitiveProcedure( - 'view-forward', - 1, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-forward', 0); - return view.forward(); - }); - - EXPORTS['view-backward'] = makePrimitiveProcedure( - 'view-backward', - 1, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-backward', 0); - return view.backward(); - }); - - - EXPORTS['view-left?'] = makePrimitiveProcedure( - 'view-left?', - 1, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-left?', 0); - return view.isLeftMovementOk(); - }); - - EXPORTS['view-right?'] = makePrimitiveProcedure( - 'view-right?', - 1, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-right?', 0); - return view.isRightMovementOk(); - }); - - EXPORTS['view-up?'] = makePrimitiveProcedure( - 'view-up?', - 1, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-up?', 0); - return view.isUpMovementOk(); - }); - - EXPORTS['view-down?'] = makePrimitiveProcedure( - 'view-down?', - 1, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-down?', 0); - return view.isDownMovementOk(); - }); - - - EXPORTS['view-forward?'] = makePrimitiveProcedure( - 'view-down?', - 1, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-forward?', 0); - return view.isForwardMovementOk(); - }); - - EXPORTS['view-backward?'] = makePrimitiveProcedure( - 'view-backward?', - 1, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-backward?', 0); - return view.isBackwardMovementOk(); - }); - - - - - - - - - EXPORTS['view-text'] = makePrimitiveProcedure( - 'view-text', - 1, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-text', 0); - return view.getText(); - }); - - - EXPORTS['update-view-text'] = makePrimitiveProcedure( - 'update-view-text', - 2, - function(MACHINE) { - var view = checkMockView(MACHINE, 'update-view-text', 0); - var text = plt.baselib.format.toDisplayedString(MACHINE.e[MACHINE.e.length - 2]); - return view.updateText(text); - }); - - - - - EXPORTS['view-attr'] = makePrimitiveProcedure( - 'view-attr', - 2, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-attr', 0); - var name = checkSymbolOrString(MACHINE, 'view-attr', 1).toString(); - return view.getAttr(name); - }); - - - EXPORTS['update-view-attr'] = makePrimitiveProcedure( - 'update-view-attr', - 3, - function(MACHINE) { - var view = checkMockView(MACHINE, 'update-view-attr', 0); - var name = checkSymbolOrString(MACHINE, 'update-view-attr', 1).toString(); - var value = checkSymbolOrString(MACHINE, 'update-view-attr', 2).toString(); - return view.updateAttr(name, value); - }); - - - EXPORTS['view-css'] = makePrimitiveProcedure( - 'view-css', - 2, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-css', 0); - var name = checkSymbolOrString(MACHINE, 'view-css', 1).toString(); - return view.getCss(name); - }); - - - EXPORTS['update-view-css'] = makePrimitiveProcedure( - 'update-view-css', - 3, - function(MACHINE) { - var view = checkMockView(MACHINE, 'update-view-css', 0); - var name = checkSymbolOrString(MACHINE, 'update-view-css', 1).toString(); - var value = checkSymbolOrString(MACHINE, 'update-view-css', 2).toString(); - return view.updateCss(name, value); - }); - - - - - - EXPORTS['view-bind'] = makePrimitiveProcedure( - 'view-bind', - 3, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-bind', 0); - var name = checkSymbolOrString(MACHINE, 'view-bind', 1); - var worldF = wrapFunction(checkProcedure(MACHINE, 'view-bind', 2)); - return view.bind(name, worldF); - }); - - - EXPORTS['view-form-value'] = makePrimitiveProcedure( - 'view-form-value', - 1, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-form-value', 0); - return view.getFormValue(); - }); - - - EXPORTS['update-view-form-value'] = makePrimitiveProcedure( - 'update-view-form-value', - 2, - function(MACHINE) { - var view = checkMockView(MACHINE, 'update-view-form-value', 0); - var value = checkSymbolOrString(MACHINE, 'update-view-form-value', 1).toString(); - return view.updateFormValue(value); - }); - - EXPORTS['view-show'] = makePrimitiveProcedure( - 'view-show', - 1, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-show', 0); - return view.show(); - }); - - - EXPORTS['view-hide'] = makePrimitiveProcedure( - 'view-hide', - 1, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-hide', 0); - return view.hide(); - }); - - - EXPORTS['view-remove'] = makePrimitiveProcedure( - 'view-remove', - 1, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-remove', 0); - return view.remove(); - }); - - - - EXPORTS['view-append-child'] = makeClosure( - 'view-append-child', - 2, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-append-child', 0); - var x = MACHINE.e[MACHINE.e.length - 2]; - PAUSE(function(restart) { - coerseToDomNode(x, - function(dom) { - restart(function(MACHINE) { - var updatedView = view.appendChild(dom); - finalizeClosureCall(MACHINE, updatedView); - }); - }, - function(err) { - restart(function(MACHINE) { - plt.baselib.exceptions.raise( - MACHINE, - new Error(plt.baselib.format.format( - "unable to translate ~s to dom node: ~a", - [x, err.message]))); - - }); - }); - }); - }); - - - EXPORTS['view-insert-right'] = makeClosure( - 'view-insert-right', - 2, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-insert-right', 0); - var x = MACHINE.e[MACHINE.e.length - 2]; - PAUSE(function(restart) { - coerseToDomNode(x, - function(dom) { - restart(function(MACHINE) { - var updatedView = view.insertRight(dom); - finalizeClosureCall(MACHINE, updatedView); - }); - }, - function(err) { - restart(function(MACHINE) { - plt.baselib.exceptions.raise( - MACHINE, - new Error(plt.baselib.format.format( - "unable to translate ~s to dom node: ~a", - [x, err.message]))); - - }); - }); - }); - }); - - - - - EXPORTS['view-insert-left'] = makeClosure( - 'view-insert-left', - 2, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-insert-left', 0); - var x = MACHINE.e[MACHINE.e.length - 2]; - PAUSE(function(restart) { - coerseToDomNode(x, - function(dom) { - restart(function(MACHINE) { - var updatedView = view.insertLeft(dom); - finalizeClosureCall(MACHINE, updatedView); - }); - }, - function(err) { - restart(function(MACHINE) { - plt.baselib.exceptions.raise( - MACHINE, - new Error(plt.baselib.format.format( - "unable to translate ~s to dom node: ~a", - [x, err.message]))); - - }); - }); - }); - }); - - - - EXPORTS['view-id'] = makePrimitiveProcedure( - 'view-id', - 1, - function(MACHINE) { - var view = checkMockView(MACHINE, 'view-hide', 0); - return view.id(); - }); - - - - - EXPORTS['on-location-change'] = makePrimitiveProcedure( - 'on-location-change', - 1, - function(MACHINE) { - var onChange = wrapFunction(checkProcedure(MACHINE, 'on-location-change', 0)); - return new EventHandler('on-location-change', - new LocationEventSource(), - onChange); - }); - - - EXPORTS['on-mock-location-change'] = makePrimitiveProcedure( - 'on-mock-location-change', - 1, - function(MACHINE) { - var onChange = wrapFunction(checkProcedure(MACHINE, 'on-mock-location-change', 0)); - return new EventHandler('on-mock-location-change', - new MockLocationEventSource(), - onChange); - }); - - - EXPORTS['open-output-element'] = makePrimitiveProcedure( - 'open-output-element', - 1, - function(MACHINE) { - var id = checkString(MACHINE, 'open-output-element', 0); - return new DomElementOutputPort(id.toString()); - }); - - - EXPORTS['xexp?'] = makePrimitiveProcedure( - 'xexp?', - 1, - function(MACHINE) { - return isXexp(MACHINE.e[MACHINE.e.length - 1]); - }); - - - EXPORTS['xexp->dom'] = makePrimitiveProcedure( - 'xexp->dom', - 1, - function(MACHINE) { - var xexp = checkXexp(MACHINE, 'xexp->dom', 0); - return xexpToDom(xexp); - }); - - - EXPORTS['view->xexp'] = makePrimitiveProcedure( - 'view->xexp', - 1, - function(MACHINE) { - var mockView = checkMockView(MACHINE, 'view-hide', 0); - var domNode = arrayTreeToDomNode(mockView.cursor.top().node); - return domToXexp(domNode); - }); - - - ////////////////////////////////////////////////////////////////////// -}());})(M, exports); - modrec.namespace["->view9.9"] = exports["->view"]; -modrec.namespace["big-bang1.1"] = exports["big-bang"]; -modrec.namespace["initial-view2.2"] = exports["initial-view"]; -modrec.namespace["on-location-change6.6"] = exports["on-location-change"]; -modrec.namespace["on-mock-location-change5.5"] = exports["on-mock-location-change"]; -modrec.namespace["on-tick4.4"] = exports["on-tick"]; -modrec.namespace["open-output-element8.8"] = exports["open-output-element"]; -modrec.namespace["stop-when3.3"] = exports["stop-when"]; -modrec.namespace["to-draw7.7"] = exports["to-draw"]; -modrec.namespace["update-view-attr30.30"] = exports["update-view-attr"]; -modrec.namespace["update-view-css32.32"] = exports["update-view-css"]; -modrec.namespace["update-view-form-value35.35"] = exports["update-view-form-value"]; -modrec.namespace["update-view-text25.25"] = exports["update-view-text"]; -modrec.namespace["view->xexp42.42"] = exports["view->xexp"]; -modrec.namespace["view-append-child36.36"] = exports["view-append-child"]; -modrec.namespace["view-attr29.29"] = exports["view-attr"]; -modrec.namespace["view-backward23.23"] = exports["view-backward"]; -modrec.namespace["view-backward?22.22"] = exports["view-backward?"]; -modrec.namespace["view-bind26.26"] = exports["view-bind"]; -modrec.namespace["view-css31.31"] = exports["view-css"]; -modrec.namespace["view-down19.19"] = exports["view-down"]; -modrec.namespace["view-down?18.18"] = exports["view-down?"]; -modrec.namespace["view-focus11.11"] = exports["view-focus"]; -modrec.namespace["view-focus?10.10"] = exports["view-focus?"]; -modrec.namespace["view-form-value34.34"] = exports["view-form-value"]; -modrec.namespace["view-forward21.21"] = exports["view-forward"]; -modrec.namespace["view-forward?20.20"] = exports["view-forward?"]; -modrec.namespace["view-hide28.28"] = exports["view-hide"]; -modrec.namespace["view-id33.33"] = exports["view-id"]; -modrec.namespace["view-insert-left38.38"] = exports["view-insert-left"]; -modrec.namespace["view-insert-right37.37"] = exports["view-insert-right"]; -modrec.namespace["view-left13.13"] = exports["view-left"]; -modrec.namespace["view-left?12.12"] = exports["view-left?"]; -modrec.namespace["view-remove39.39"] = exports["view-remove"]; -modrec.namespace["view-right15.15"] = exports["view-right"]; -modrec.namespace["view-right?14.14"] = exports["view-right?"]; -modrec.namespace["view-show27.27"] = exports["view-show"]; -modrec.namespace["view-text24.24"] = exports["view-text"]; -modrec.namespace["view-up17.17"] = exports["view-up"]; -modrec.namespace["view-up?16.16"] = exports["view-up?"]; -modrec.namespace["xexp->dom41.41"] = exports["xexp->dom"]; -modrec.namespace["xexp?40.40"] = exports["xexp?"]; - - modrec.privateExports = exports; - return M.c.pop().label(M); }; - if (! M.modules["whalesong/resource.rkt"].isInvoked) { - M.modules["whalesong/resource.rkt"].internalInvoke(M, - afterName1166, - M.params.currentErrorHandler); - } else { - afterName1166(); - } }; - if (! M.modules["whalesong/web-world/event.rkt"].isInvoked) { - M.modules["whalesong/web-world/event.rkt"].internalInvoke(M, - afterName1167, - M.params.currentErrorHandler); - } else { - afterName1167(); - } - }); - }(plt.runtime.currentMachine)); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _40791=function(M){if(--M.cbt<0){throw _40791;} -M.p=M.e[M.e.length-4]; -M.e[M.e.length-4]=M.v; -M.a=4; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_40795,M.p)); -return((M.p).label)(M);}; - -var _40801=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_40723,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/web-world/event.rkt"]=new RT.ModuleRecord("event",_40771); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _40776=function(M){if(--M.cbt<0){throw _40776;} -M.c.push(new RT.PromptFrame(_40798,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_40719,1,[M.e[M.e.length-1]],"event-keys"); -M.e[M.e.length-1][4]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _40763=function(M){if(--M.cbt<0){throw _40763;} -M.e[M.e.length-1][0]=M.v; -M.v=(M.e[M.e.length-1][0]===false); -if(M.v===false){M.e.length+=1; -M.e[M.e.length-1]=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-2][0],0,"cdr")).rest; -M.v=(RT.testArgument(M,"pair",RT.isPair,M.e[M.e.length-1],0,"car")).first; -M.e.length-=6; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}else{M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-6][12]; -M.e[M.e.length-1]=RT.makeSymbol("event-ref"); -M.e[M.e.length-2]="Could not find key ~a"; -M.v=M.e[M.e.length-8]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(3+5),5); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}}; - -var _40727=function(M){if(--M.cbt<0){throw _40727;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.e.splice(M.e.length-(2+2),2); -M.c[M.c.length-1].p=M.p; -return((M.p).label)(M);}; - -var _40794=function(M){if(--M.cbt<0){throw _40794;} -if((M.a-4)===0){return(_40778)(M);}else{RT.si_context_expected(4)(M); -}}; - -var _40785=function(M){if(--M.cbt<0){throw _40785;} -if((M.a-5)===0){return(_40784)(M);}else{RT.si_context_expected(5)(M); -}}; - -var _40773=function(M){if(--M.cbt<0){throw _40773;} -M.e.length-=(M.a-1); -return(_40774)(M);}; - -var _40722=function(M){if(--M.cbt<0){throw _40722;} -M.e.length-=M.a; -return(_40723)(M);}; - -var _40739=function(M){if(--M.cbt<0){throw _40739;} -if(M.v===false){M.e.push(M.e[M.e.length-2][8]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_40745,M.p)); -return((M.p).label)(M);}else{M.e[M.e.length-1][0]=M.e[M.e.length-4]; -return(_40735)(M);}}; - - - -var _40720=function(M){if(--M.cbt<0){throw _40720;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.push([undefined]); -M.e.push(M.e[M.e.length-2][7]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_40739,M.p)); -return((M.p).label)(M);}; - -var _40723=function(M){if(--M.cbt<0){throw _40723;} -}; - - - - -var _40775=function(M){if(--M.cbt<0){throw _40775;} -M.e.length-=(M.a-1); -return(_40776)(M);}; - -var _40759=function(M){if(--M.cbt<0){throw _40759;} -M.p=M.e[M.e.length-2]; -M.e[M.e.length-2]=M.v; -M.a=2; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_40763,M.p)); -return((M.p).label)(M);}; - -var _40749=function(M){if(--M.cbt<0){throw _40749;} -M.e[M.e.length-1][0]=M.v; -return(_40735)(M);}; - - -_40795=RT.si_context_expected(4); - -var _40774=function(M){if(--M.cbt<0){throw _40774;} -M.e.push([M.params.currentNamespace["struct:event"]||M.primitives["struct:event"],M.params.currentNamespace["make-event"]||M.primitives["make-event"],M.params.currentNamespace["event?"]||M.primitives["event?"],M.params.currentNamespace["event-kvpairs"]||M.primitives["event-kvpairs"],M.params.currentNamespace["event-keys"]||M.primitives["event-keys"],M.modules["whalesong/lang/private/map.rkt"].namespace["map2"],M.params.currentNamespace["event-ref"]||M.primitives["event-ref"],M.primitives["symbol?"],M.primitives["string?"],M.primitives["string->symbol"],M.primitives["raise-type-error"],M.modules["whalesong/lang/private/list.rkt"].namespace["assq"],M.primitives["error"]]);M.e[M.e.length-1].names=["struct:event","make-event","event?","event-kvpairs","event-keys","map2","event-ref","symbol?","string?","string->symbol","raise-type-error","assq","error"]; -M.modules["whalesong/web-world/event.rkt"].prefix=M.e[M.e.length-1]; -M.c.push(new RT.PromptFrame(_40776,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.length+=5; -M.e.length+=11; -M.e[M.e.length-11]=M.primitives["make-struct-type"]; -M.e[M.e.length-1]=RT.makeSymbol("event"); -M.e[M.e.length-2]=false; -M.e[M.e.length-3]=1; -M.e[M.e.length-4]=0; -M.e[M.e.length-5]=false; -M.e[M.e.length-6]=RT.NULL; -M.p=M.primitives["current-inspector"]; -M.a=0; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_40782,M.p)); -return((M.p).label)(M);}; - -var _40753=function(M){if(--M.cbt<0){throw _40753;} -M.e[M.e.length-1][0]=M.v; -return(_40735)(M);}; - -var _40745=function(M){if(--M.cbt<0){throw _40745;} -if(M.v===false){M.e.length+=3; -M.e[M.e.length-3]=M.e[M.e.length-5][10]; -M.e[M.e.length-1]=RT.makeSymbol("event-ref"); -M.e[M.e.length-2]="symbol or string"; -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_40753,M.p)); -return((M.p).label)(M);}else{M.e.push(M.e[M.e.length-2][9]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_40749,M.p)); -return((M.p).label)(M);}}; - -var _40797=function(M){if(--M.cbt<0){throw _40797;} -M.e.length-=(M.a-1); -return(_40798)(M);}; - -var _40798=function(M){if(--M.cbt<0){throw _40798;} -M.c.push(new RT.PromptFrame(_40800,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.v=new RT.Closure(_40720,2,[M.e[M.e.length-1]],"event-ref"); -M.e[M.e.length-1][6]=M.v; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - - - -var _40778=function(M){--M.cbt<0; -M.e.splice(M.e.length-(3+5),5); -M.e[M.e.length-4][0]=M.v; -M.e[M.e.length-4][1]=M.e[M.e.length-1]; -M.e[M.e.length-4][2]=M.e[M.e.length-2]; -M.e[M.e.length-4][3]=M.e[M.e.length-3]; -M.e.length-=3; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _40799=function(M){if(--M.cbt<0){throw _40799;} -M.e.length-=(M.a-1); -return(_40800)(M);}; - -var _40800=function(M){if(--M.cbt<0){throw _40800;} -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/web-world/event.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - - -var _40771=function(M){--M.cbt<0; -M.modules["whalesong/web-world/event.rkt"].isInvoked=true; -if((M.modules["whalesong/lang/base.rkt"]!==undefined)!==false){if(M.modules["whalesong/lang/base.rkt"].isInvoked!==false){return(_40774)(M);}else{M.c.push(new RT.CallFrame(_40774,M.p)); -return(M.modules["whalesong/lang/base.rkt"].label)(M);}}else{return(_40774)(M);}}; - -var _40784=function(M){--M.cbt<0; -M.e[M.e.length-5]=M.v; -M.e[M.e.length-6]=M.e[M.e.length-1]; -M.e[M.e.length-7]=M.e[M.e.length-2]; -M.e[M.e.length-8]=M.e[M.e.length-3]; -M.e[M.e.length-9]=M.e[M.e.length-4]; -M.e.length-=4; -M.v=M.e[M.e.length-5]; -M.e.length+=4; -M.e[M.e.length-4]=M.primitives["values"]; -M.e[M.e.length-1]=M.e[M.e.length-5]; -M.e[M.e.length-2]=M.e[M.e.length-6]; -M.e[M.e.length-3]=M.e[M.e.length-7]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["make-struct-field-accessor"]; -M.e[M.e.length-1]=M.e[M.e.length-11]; -M.e[M.e.length-2]=0; -M.v=RT.makeSymbol("kvpairs"); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_40791,M.p)); -return((M.p).label)(M);}; - -var _40735=function(M){--M.cbt<0; -M.e.push([undefined]); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-5][11]; -M.e[M.e.length-1]=M.e[M.e.length-4][0]; -M.e.push(M.e[M.e.length-5][3]); -M.v=M.e[M.e.length-7]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_40759,M.p)); -return((M.p).label)(M);}; - -var _40782=function(M){if(--M.cbt<0){throw _40782;} -M.e[M.e.length-7]=M.v; -M.e[M.e.length-8]=false; -M.e[M.e.length-9]=RT.makePair(0,RT.NULL); -M.e[M.e.length-10]=false; -M.v=RT.makeSymbol("event"); -M.p=M.e[M.e.length-11]; -M.e[M.e.length-11]=M.v; -M.a=11; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_40786,M.p)); -return((M.p).label)(M);}; - -var _40719=function(M){if(--M.cbt<0){throw _40719;} -M.e.push.apply(M.e,M.p.closedVals); -M.e.length+=2; -M.e[M.e.length-2]=M.e[M.e.length-3][5]; -M.e[M.e.length-1]=M.primitives["car"]; -M.e.push(M.e[M.e.length-3][3]); -M.v=M.e[M.e.length-5]; -M.p=M.e[M.e.length-1]; -M.e[M.e.length-1]=M.v; -M.a=1; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_40727,M.p)); -return((M.p).label)(M);}; - -_40786=RT.si_context_expected(5); - -_40774.mvr=_40773; -_40786.mvr=_40785; -_40795.mvr=_40794; -_40776.mvr=_40775; -_40798.mvr=_40797; -_40800.mvr=_40799; -_40723.mvr=_40722; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_40801, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _40806=function(M){--M.cbt<0; -M.modules["whalesong/resource.rkt"].isInvoked=true; -if((M.modules["whalesong/resource/main.rkt"]!==undefined)!==false){if(M.modules["whalesong/resource/main.rkt"].isInvoked!==false){return(_40809)(M);}else{M.c.push(new RT.CallFrame(_40809,M.p)); -return(M.modules["whalesong/resource/main.rkt"].label)(M);}}else{return(_40809)(M);}}; - -var _40810=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_40804,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/resource.rkt"]=new RT.ModuleRecord("resource",_40806); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _40804=function(M){if(--M.cbt<0){throw _40804;} -}; - -var _40803=function(M){if(--M.cbt<0){throw _40803;} -M.e.length-=M.a; -return(_40804)(M);}; - -var _40809=function(M){if(--M.cbt<0){throw _40809;} -M.e.push([]);M.e[M.e.length-1].names=[]; -M.modules["whalesong/resource.rkt"].prefix=M.e[M.e.length-1]; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/resource.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - -var _40808=function(M){if(--M.cbt<0){throw _40808;} -M.e.length-=(M.a-1); -return(_40809)(M);}; - -_40809.mvr=_40808; -_40804.mvr=_40803; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_40810, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _40825=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_40813,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/resource/main.rkt"]=new RT.ModuleRecord("main",_40815); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _40813=function(M){if(--M.cbt<0){throw _40813;} -}; - -var _40817=function(M){if(--M.cbt<0){throw _40817;} -M.e.length-=(M.a-1); -return(_40818)(M);}; - -var _40818=function(M){if(--M.cbt<0){throw _40818;} -if((M.modules["whalesong/resource/runtime.rkt"]!==undefined)!==false){if(M.modules["whalesong/resource/runtime.rkt"].isInvoked!==false){return(_40821)(M);}else{M.c.push(new RT.CallFrame(_40821,M.p)); -return(M.modules["whalesong/resource/runtime.rkt"].label)(M);}}else{return(_40821)(M);}}; - -var _40812=function(M){if(--M.cbt<0){throw _40812;} -M.e.length-=M.a; -return(_40813)(M);}; - -var _40823=function(M){if(--M.cbt<0){throw _40823;} -M.e.length-=(M.a-1); -return(_40824)(M);}; - -var _40820=function(M){if(--M.cbt<0){throw _40820;} -M.e.length-=(M.a-1); -return(_40821)(M);}; - -var _40815=function(M){--M.cbt<0; -M.modules["whalesong/resource/main.rkt"].isInvoked=true; -if((M.modules["whalesong/resource/compile-time.rkt"]!==undefined)!==false){if(M.modules["whalesong/resource/compile-time.rkt"].isInvoked!==false){return(_40818)(M);}else{M.c.push(new RT.CallFrame(_40818,M.p)); -return(M.modules["whalesong/resource/compile-time.rkt"].label)(M);}}else{return(_40818)(M);}}; - -var _40824=function(M){if(--M.cbt<0){throw _40824;} -M.e.push([]);M.e[M.e.length-1].names=[]; -M.modules["whalesong/resource/main.rkt"].prefix=M.e[M.e.length-1]; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/resource/main.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - -var _40821=function(M){if(--M.cbt<0){throw _40821;} -if((M.modules["whalesong/resource/structs.rkt"]!==undefined)!==false){if(M.modules["whalesong/resource/structs.rkt"].isInvoked!==false){return(_40824)(M);}else{M.c.push(new RT.CallFrame(_40824,M.p)); -return(M.modules["whalesong/resource/structs.rkt"].label)(M);}}else{return(_40824)(M);}}; - -_40818.mvr=_40817; -_40821.mvr=_40820; -_40824.mvr=_40823; -_40813.mvr=_40812; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_40825, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -(function(M) { -M.modules["whalesong/resource/runtime.rkt"] = - new plt.runtime.ModuleRecord("whalesong/resource/runtime.rkt", - function(M) { - var afterName1292 = function() { - if(--M.cbt<0) { throw arguments.callee; } - var modrec = M.modules["whalesong/resource/runtime.rkt"]; - var exports = {}; - modrec.isInvoked = true; - (function(MACHINE, EXPORTS){var resourceType = MACHINE.modules['whalesong/resource/structs.rkt'].getNamespace()['struct:resource']; - -var makePrimitiveProcedure = plt.baselib.functions.makePrimitiveProcedure; - -var checkResource = plt.baselib.check.makeCheckArgumentType( - resourceType.predicate, - "resource"); - -var getResourcePath = function(r) { return resourceType.accessor(r, 0); }; -var getResourceKey = function(r) { return resourceType.accessor(r, 1); }; - - - -EXPORTS['resource->url'] = makePrimitiveProcedure( - 'resource->url', - 1, - function(MACHINE) { - var resource = checkResource(MACHINE, 'resource->url', 0); - return String(getResourceKey(resource)); - }); -})(M, exports); - modrec.namespace["resource->url1.1"] = exports["resource->url"]; - - modrec.privateExports = exports; - return M.c.pop().label(M); }; - if (! M.modules["whalesong/resource/structs.rkt"].isInvoked) { - M.modules["whalesong/resource/structs.rkt"].internalInvoke(M, - afterName1292, - M.params.currentErrorHandler); - } else { - afterName1292(); - } - }); - }(plt.runtime.currentMachine)); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; - - -var _40827=function(M){if(--M.cbt<0){throw _40827;} -M.e.length-=M.a; -return(_40828)(M);}; - -var _40847=function(M){if(--M.cbt<0){throw _40847;} -M.e[M.e.length-5]=M.v; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["make-struct-field-accessor"]; -M.e[M.e.length-1]=M.e[M.e.length-13]; -M.e[M.e.length-2]=2; -M.v=RT.makeSymbol("content"); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_40851,M.p)); -return((M.p).label)(M);}; - -var _40837=function(M){if(--M.cbt<0){throw _40837;} -if((M.a-5)===0){return(_40836)(M);}else{RT.si_context_expected(5)(M); -}}; - -var _40851=function(M){if(--M.cbt<0){throw _40851;} -M.p=M.e[M.e.length-6]; -M.e[M.e.length-6]=M.v; -M.a=6; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_40855,M.p)); -return((M.p).label)(M);}; - -var _40843=function(M){if(--M.cbt<0){throw _40843;} -M.e[M.e.length-4]=M.v; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["make-struct-field-accessor"]; -M.e[M.e.length-1]=M.e[M.e.length-13]; -M.e[M.e.length-2]=1; -M.v=RT.makeSymbol("key"); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_40847,M.p)); -return((M.p).label)(M);}; - -_40855=RT.si_context_expected(6); - -var _40836=function(M){--M.cbt<0; -M.e[M.e.length-5]=M.v; -M.e[M.e.length-6]=M.e[M.e.length-1]; -M.e[M.e.length-7]=M.e[M.e.length-2]; -M.e[M.e.length-8]=M.e[M.e.length-3]; -M.e[M.e.length-9]=M.e[M.e.length-4]; -M.e.length-=4; -M.v=M.e[M.e.length-5]; -M.e.length+=6; -M.e[M.e.length-6]=M.primitives["values"]; -M.e[M.e.length-1]=M.e[M.e.length-7]; -M.e[M.e.length-2]=M.e[M.e.length-8]; -M.e[M.e.length-3]=M.e[M.e.length-9]; -M.e.length+=3; -M.e[M.e.length-3]=M.primitives["make-struct-field-accessor"]; -M.e[M.e.length-1]=M.e[M.e.length-13]; -M.e[M.e.length-2]=0; -M.v=RT.makeSymbol("path"); -M.p=M.e[M.e.length-3]; -M.e[M.e.length-3]=M.v; -M.a=3; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_40843,M.p)); -return((M.p).label)(M);}; - -var _40834=function(M){--M.cbt<0; -M.e.splice(M.e.length-(5+5),5); -M.e[M.e.length-6][0]=M.v; -M.e[M.e.length-6][1]=M.e[M.e.length-1]; -M.e[M.e.length-6][2]=M.e[M.e.length-2]; -M.e[M.e.length-6][3]=M.e[M.e.length-3]; -M.e[M.e.length-6][4]=M.e[M.e.length-4]; -M.e[M.e.length-6][5]=M.e[M.e.length-5]; -M.e.length-=5; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _40857=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_40828,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/resource/structs.rkt"]=new RT.ModuleRecord("structs",_40830); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -_40838=RT.si_context_expected(5); - -var _40828=function(M){if(--M.cbt<0){throw _40828;} -}; - - -var _40831=function(M){if(--M.cbt<0){throw _40831;} -M.e.length-=(M.a-1); -return(_40832)(M);}; - -var _40830=function(M){--M.cbt<0; -M.modules["whalesong/resource/structs.rkt"].isInvoked=true; -M.e.push([M.params.currentNamespace["struct:resource"]||M.primitives["struct:resource"],M.params.currentNamespace["resource1.1"]||M.primitives["resource1.1"],M.params.currentNamespace["resource?"]||M.primitives["resource?"],M.params.currentNamespace["resource-path"]||M.primitives["resource-path"],M.params.currentNamespace["resource-key"]||M.primitives["resource-key"],M.params.currentNamespace["resource-content"]||M.primitives["resource-content"]]);M.e[M.e.length-1].names=["struct:resource","resource1.1","resource?","resource-path","resource-key","resource-content"]; -M.modules["whalesong/resource/structs.rkt"].prefix=M.e[M.e.length-1]; -M.c.push(new RT.PromptFrame(_40832,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.length+=5; -M.e.length+=11; -M.e[M.e.length-11]=M.primitives["make-struct-type"]; -M.e[M.e.length-1]=RT.makeSymbol("resource"); -M.e[M.e.length-2]=false; -M.e[M.e.length-3]=3; -M.e[M.e.length-4]=0; -M.e[M.e.length-5]=false; -M.e[M.e.length-6]=RT.NULL; -M.e[M.e.length-7]=RT.makeSymbol("prefab"); -M.e[M.e.length-8]=false; -M.e[M.e.length-9]=RT.makePair(0,RT.makePair(1,RT.makePair(2,RT.NULL))); -M.e[M.e.length-10]=false; -M.v=RT.makeSymbol("resource"); -M.p=M.e[M.e.length-11]; -M.e[M.e.length-11]=M.v; -M.a=11; -RT.checkClosureAndArity(M); -M.c.push(new RT.CallFrame(_40838,M.p)); -return((M.p).label)(M);}; - -var _40832=function(M){if(--M.cbt<0){throw _40832;} -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/resource/structs.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - -var _40854=function(M){if(--M.cbt<0){throw _40854;} -if((M.a-6)===0){return(_40834)(M);}else{RT.si_context_expected(6)(M); -}}; - -_40838.mvr=_40837; -_40855.mvr=_40854; -_40832.mvr=_40831; -_40828.mvr=_40827; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_40857, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -((function(M, success, fail, params) { -var param; -var RT = plt.runtime; -var _40862=function(M){--M.cbt<0; -M.modules["whalesong/resource/compile-time.rkt"].isInvoked=true; -if((M.modules["whalesong/resource/structs.rkt"]!==undefined)!==false){if(M.modules["whalesong/resource/structs.rkt"].isInvoked!==false){return(_40865)(M);}else{M.c.push(new RT.CallFrame(_40865,M.p)); -return(M.modules["whalesong/resource/structs.rkt"].label)(M);}}else{return(_40865)(M);}}; - -var _40860=function(M){if(--M.cbt<0){throw _40860;} -}; - -var _40865=function(M){if(--M.cbt<0){throw _40865;} -if((M.modules["whalesong/resource/specialize/impl.rkt"]!==undefined)!==false){if(M.modules["whalesong/resource/specialize/impl.rkt"].isInvoked!==false){return(_40868)(M);}else{M.c.push(new RT.CallFrame(_40868,M.p)); -return(M.modules["whalesong/resource/specialize/impl.rkt"].label)(M);}}else{return(_40868)(M);}}; - -var _40859=function(M){if(--M.cbt<0){throw _40859;} -M.e.length-=M.a; -return(_40860)(M);}; - -var _40867=function(M){if(--M.cbt<0){throw _40867;} -M.e.length-=(M.a-1); -return(_40868)(M);}; - -var _40868=function(M){if(--M.cbt<0){throw _40868;} -M.e.push([]);M.e[M.e.length-1].names=[]; -M.modules["whalesong/resource/compile-time.rkt"].prefix=M.e[M.e.length-1]; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -M.modules["whalesong/resource/compile-time.rkt"].finalizeModuleInvokation(); -return(M.p)(M);}; - -var _40869=function(M){--M.cbt<0; -M.c.push(new RT.PromptFrame(_40860,RT.DEFAULT_CONTINUATION_PROMPT_TAG)); -M.e.push([false]);M.e[M.e.length-1].names=[false]; -M.modules["whalesong/resource/compile-time.rkt"]=new RT.ModuleRecord("compile-time",_40862); -M.v=M.v; -M.e.length-=1; -M.p=M.c[M.c.length-1].label; -M.c.pop(); -return(M.p)(M);}; - -var _40864=function(M){if(--M.cbt<0){throw _40864;} -M.e.length-=(M.a-1); -return(_40865)(M);}; - -_40865.mvr=_40864; -_40868.mvr=_40867; -_40860.mvr=_40859; -M.params.currentErrorHandler = fail; -M.params.currentSuccessHandler = success; -for (param in params) { - if (params.hasOwnProperty(param)) { - M.params[param] = params[param]; - } -}M.trampoline(_40869, true); }))(plt.runtime.currentMachine, - function() { - if (window.console && window.console.log) { - window.console.log('loaded ' + ""); - } - }, - function(err) { - if (window.console && window.console.log) { - window.console.log('error: unable to load ' + ""); - } - }, - {}); -// ** Visiting -(function(M) { -M.modules["whalesong/resource/specialize/impl.rkt"] = - new plt.runtime.ModuleRecord("whalesong/resource/specialize/impl.rkt", - function(M) { - var afterName1391 = function() { - if(--M.cbt<0) { throw arguments.callee; } - var modrec = M.modules["whalesong/resource/specialize/impl.rkt"]; - var exports = {}; - modrec.isInvoked = true; - (function(MACHINE, EXPORTS){var resourceType = MACHINE.modules['whalesong/resource/structs.rkt'].getNamespace()['struct:resource']; - -var makeClosure = plt.baselib.functions.makeClosure; -var finalizeClosureCall = plt.baselib.functions.finalizeClosureCall; - -var checkResource = plt.baselib.check.makeCheckArgumentType( - resourceType.predicate, - "resource"); - -var getResourcePath = function(r) { return resourceType.accessor(r, 0); }; -var getResourceKey = function(r) { return resourceType.accessor(r, 1); }; - -var PAUSE = plt.runtime.PAUSE; - - - - -var imageExtensions = { 'png' : true, - 'gif' : true, - 'jpeg' : true, - 'jpg' : true, - 'bmp' : true }; - -var isImagePath = function(s) { - var extensionMatch = s.toLowerCase().match(/\.(\w+)$/); - if (extensionMatch !== null && imageExtensions[extensionMatch[1]]) - return true; - return false; -}; - - - -// A lot of this comes from image/private/kernel.js -var injectImageMethods = function(r, img) { - r.img = img; - r.getHeight = function() { return img.width; }; - r.getWidth = function() { return img.height; }; - r.getBaseline = function() { return img.height; }; - r.updatePinhole = function() { - var aCopy = plt.baselib.clone(this); - aCopy.pinholeX = x; - aCopy.pinholeY = y; - return aCopy; - }; - r.render = function(ctx, x, y) { - installHackToSupportAnimatedGifs(r); - ctx.drawImage(r.animationHackImg, x, y); - }; - r.toDomNode = function(params) { - return img.cloneNode(true); - }; -}; - -var installHackToSupportAnimatedGifs = function(r) { - if (r.animationHackImg) { return; } - r.animationHackImg = r.img.cloneNode(true); - document.body.appendChild(r.animationHackImg); - r.animationHackImg.width = 0; - r.animationHackImg.height = 0; -}; - - - - - - - -// If the resource is an image, decorate the value with the image properties. -EXPORTS['specialize!'] = makeClosure( - 'specialize!', - 1, - function(MACHINE) { - var resource = checkResource(MACHINE, 'specialize!', 0); - - if (isImagePath(getResourceKey(resource).toString())) { - return PAUSE( - function(restart) { - var rawImage = new Image(); - rawImage.onload = function() { - delete(rawImage.onload); - delete(rawImage.onerror); - injectImageMethods(resource, rawImage); - restart(function(MACHINE) { - return finalizeClosureCall(MACHINE, resource); - }); - }; - rawImage.onerror = function(e) { - delete(rawImage.onload); - delete(rawImage.onerror); - // on any kind of image-loading error, fail out and - // just return the resource unchanged. - restart(function(MACHINE) { - return finalizeClosureCall(MACHINE, resource); - }); - } - rawImage.src = getResourceKey(resource).toString(); - }); - } else { - return finalizeClosureCall(MACHINE, resource); - } - }); -})(M, exports); - modrec.namespace["specialize!1.1"] = exports["specialize!"]; - - modrec.privateExports = exports; - return M.c.pop().label(M); }; - if (! M.modules["whalesong/resource/structs.rkt"].isInvoked) { - M.modules["whalesong/resource/structs.rkt"].internalInvoke(M, - afterName1391, - M.params.currentErrorHandler); - } else { - afterName1391(); - } - }); - }(plt.runtime.currentMachine)); \ No newline at end of file