text: function jam(aQ,o){var R;var af;const aI={source:"",sourcefile:null,compileonly:false,standard:R,standardscope:{},nativescope:{},userscope:{}};var aP;if(arguments.length==2){aP=aQ;aQ=o;aQ.source=aP}else{if(typeof aQ=="string"){aP=aQ;aQ=aI;aQ.source=aP}}aQ.source=aQ.source||aI.source;aQ.sourcefile=aQ.sourcefile||aI.sourcefile;aQ.compileonly=aQ.compileonly||aI.compileonly;aQ.standard=aQ.standard||aI.standard;aQ.standardscope=aQ.standardscope||aI.standardscope;aQ.nativescope=aQ.nativescope||aI.nativescope;aQ.userscope=aQ.userscope||aI.userscope;function Y(aY){return aY()}function l(aY){return aY[aY.length-1]}function w(aZ,aY){return Array.prototype.slice.call(aZ,aY||0)}function aS(aZ,aY){w(aY).map(function(a1,a0){aZ[a0]&&aZ[a0](a1())})}function F(aZ,aY){w(aY).map(function(a1,a0){aZ[a0]&&aZ[a0](a1)})}function al(aZ,aY){if(0<aZ.length){return aZ[0][aY]?aZ[0][aY]:al(aZ.slice(1),aY)}return aE(aQ.nativescope,aY)}function aE(aZ,aY){return A(aZ,aY)}function K(aZ){var aY;var a0=af;var a1=v(af,{});return function(){af=a1;aY=aZ.apply(arguments);af=a0;return aY}}function V(aY){var aZ;var a1;return function a0(a2){if(!a1){a1=af}if(!aZ){aZ=a1[0]}if(arguments.length==1){aZ[aY]=a2}return al(a1,aY)}}function aH(aY){return function aZ(a0){if(arguments.length==1){aY=a0}return aY}}function g(a0,aZ){return function aY(a1){if(arguments.length==1){a0[aZ]=a1}return a0[aZ]}}function A(a0,aY){return function aZ(a1){if(arguments.length==1){a0[aY]=a1}return U(a0,aY)}}function U(aZ,aY){var a0=aZ[aY];if(typeof a0=="function"){return at(a0)}return a0}function at(aZ){return function aY(a0){return aH(aZ.apply(null,a0().map(Y).map(Y)))}}function c(aZ,aY){return function(){var a0=aZ()();if(!a0){throw ("jam error: jam called a undefined function.")}if(typeof a0!="function"){throw ("jam error: jam called a not function.")}return a0(aY)}}function L(aY){return function(){return aY}}function x(aY){return aH(Array.prototype.slice.call(arguments,0))}function N(aY){return aY.slice(1)}function v(aZ,aY){return[aY].concat(aZ)}function az(){af=v(af,{})}function aA(){af=N(af)}function b(aY){return aH(function(aZ){return aY.apply(null,aZ())})}function s(aY){return L(aY)}var p=s(true);var P=s(false);var G=s(null);var u=s(undefined);var aL=b(function(aZ,aY){return aH(aZ===aY)});var aj=b(function(aZ,aY){return aH(aZ()()===aY()())});var i=b(function(aY){return aH(aY()()===true)});var T=b(function(aY){return aH(aY()()===false)});var ad=b(function(aY){return aH(typeof aY()()==="boolean")});var n=b(function(aY){return aH(typeof aY()()==="number")});var aa=b(function(aY){return aH(aY()()===null)});var M=b(function(aY){return aH(aY()()===undefined)});var aJ=b(function(aY){return aH(!aY()())});var ae=b(function(a0){var aZ;var aY=p();for(aZ=0;aZ<arguments.length;aZ++){aY=arguments[aZ]();if(!aY()){break}}return aY});var y=b(function(a0){var aZ;var aY=p();for(aZ=0;aZ<arguments.length;aZ++){aY=arguments[aZ]();if(aY()){break}}return aY});var ag=b(function(aY){return L(aY)});var q=b(function(aY){return aY()()});var H=b(function(a0){var aY=a0();var a1;var aZ;for(aZ=1;aZ<arguments.length;aZ++){a1=arguments[aZ]();if(!(aY()<a1())){return P}aY=a1}return p});var ai=b(function(a0){var aY=a0();var a1;var aZ;for(aZ=1;aZ<arguments.length;aZ++){a1=arguments[aZ]();if(!(aY()>a1())){return P}aY=a1}return p});var aT=b(function(a0){var aY=a0();var a1;var aZ;for(aZ=1;aZ<arguments.length;aZ++){a1=arguments[aZ]();if(!(aY()<=a1())){return P}aY=a1}return p});var aC=b(function(a0){var aY=a0();var a1;var aZ;for(aZ=1;aZ<arguments.length;aZ++){a1=arguments[aZ]();if(!(aY()>=a1())){return P}aY=a1}return p});var C=b(function(aY){aY=aY();aY(aY()+1);return aY});var aM=b(function(aY){aY=aY();aY(aY()-1);return aY});var aO=b(function(aZ,aY){aZ=aZ();aZ(aZ()+(aY?aY()():1));return aZ});var d=b(function(aZ,aY){aZ=aZ();aZ(aZ()-(aY?aY()():1));return aZ});function aW(aZ,aY,a0){return function(){var a3,a5,a2,a1,a4;a3=arguments;a5=a3.length||0;if(aY<=a5){a2=a0==null;a1=a2?a3[0]()():a0;a4=a2?1:0;while(a4<a5){a1=aZ(a1,a3[a4]()()),a4++}return aH(a1)}throw ("jam error: too few arguments to a function.")}}var k=b(aW(function(aZ,aY){return aZ+aY},0,0));var aG=b(aW(function(aZ,aY){return aZ-aY},0,0));var aV=b(aW(function(aZ,aY){return aZ*aY},0,1));var m=b(aW(function(aZ,aY){return aZ/aY},1,null));var aX=b(aW(function(aZ,aY){return aZ%aY},2,null));var ak=b(function(aZ){var aY=w(arguments,1);while(aZ()()){ay()(L(aY))}return G});var j=b(function(a0,a1,aZ){var aY=w(arguments,3);a0()();while(a1()()){ay()(L(aY));aZ()()}return G});var f=b(function(aZ){var aY=w(arguments,1);return aZ()()?ay()(L(aY)):G});var ab=b(function(aZ){var aY=w(arguments,1);return aZ()()?G:ay()(L(aY))});var E=b(function(a0,aZ,aY){return a0()()?aZ():aY()});var ao=b(function(aY,aZ){return aY(aZ())});var av=b(function(aZ,a0){var aY=aZ();aY(a0()());return aY});var aB=b(function(aZ){var aY=aZ();console.log(aY());return aY});var J=b(function(a0){var aZ={};var aY;for(aY=0;aY<arguments.length;aY+=2){aZ[arguments[aY]()()]=arguments[aY+1]()}return aH(aZ)});var Z=b(function(aY){return aH(w(arguments).map(Y))});var X=b(function(aY){return aH(w(arguments))});var a=b(function(aY){return aH(Object.prototype.toString.call(aY()())===Object.prototype.toString.call([]))});var z=b(function(aY,aZ){aZ=aZ();aZ().push(aY()());return aZ});var aF=b(function(aY){return aH(aY()().shift())});var aw=b(function(aZ,aY){return g(aY()(),aZ()())});var h=b(function(aY,aZ){return g(aZ()(),aY()())});var ay=b(function(aY){return l(w(arguments).map(Y))});var am=b(function(aZ){var aY=w(arguments,1);return aZ()()(L(aY))});var an=b(function(aZ,aY){return aZ()()(L(aY()().map(L)))});var D=b(function(aY,a0){var aZ=w(arguments,2);try{return a0()}catch(a1){aY(aH(a1));return ay()(L(aZ))}});var Q=b(function(aY){throw (aY()())});var r=b(function(aZ){var a0=aZ()();var aY=w(arguments,1);return K(b(function(a2){var a1;az();aS(a0,arguments);a1=ay()(L(aY));aA();return a1}))});var ah=b(function(aZ){var a0=aZ()();var aY=w(arguments,1);return K(b(function(a2){var a1;az();F(a0,arguments);a1=ay()(L(aY));aA();return a1()}))});var ar=b(function(aZ){var a0=w(arguments,1);var aY=r()(L(a0));return ao()(x(aZ,L(aY)))});var aU=b(function(aZ){var a0=w(arguments,1);var aY=ah()(L(a0));return ao()(x(aZ,L(aY)))});R={defsyn:aU,syntax:ah,pop:aF,push:z,eq:aL,equal:aj,">":ai,"<":H,">=":aC,"<=":aT,"while":ak,"for":j,when:f,unless:ab,"if":E,not:aJ,and:ae,or:y,"true":p,"false":P,"null":G,"undefined":u,"true?":i,"false?":T,"null?":aa,"undefined?":M,"bool?":ad,"list?":a,lazy:ag,force:q,setq:ao,setf:av,print:aB,"catch":D,error:Q,lambda:r,defun:ar,funcall:am,apply:an,progn:ay,object:J,list:Z,lisy:X,get:aw,nth:h,"+":k,"-":aG,"*":aV,"/":m,"%":aX,"++":C,"--":aM,incf:aO,decf:d};af=[aQ.userscope,aQ.standardscope,R];const S=function(){};const ac=function(){};const I=0;const O=1;const aN=2;function B(a4,a1){function a3(){switch(a1){case I:return a0(a4);case O:return a5(a4);case aN:return aZ(a4);default:return G}}function aZ(a7){var a6=a7.indexOf(".");if(a6==-1){return a2(a7)}return aY(a7)}function a2(a6){return L(aH(parseInt(a6)))}function aY(a6){return L(aH(parseFloat(a6)))}function a5(a6){return L(aH(a6))}function a0(a6){return V(a6)}return a3}function aK(aY){return B(aY,I)}function aR(aY){return B(aY,O)}function W(aY){return B(aY,aN)}function ax(aZ,aY){return L(function(){return aw()(x(L(aH(aY)),aZ()))})}function aq(ba){function bb(bl,bm){var bn=[];while(0<bm--){bn.push(bl.shift())}return bn.join("")}function bd(bl,bn){var bm;for(bm=0;bm<bl.length;bm++){if(bn.indexOf(bl[bm])<0){break}}return bb(bl,bm)}function a5(bl,bn){var bm;for(bm=0;bm<bl.length;bm++){if(0<=bn.indexOf(bl[bm])){break}}return bb(bl,bm)}function bi(bm){var bl=a0(bm,1);var bn=bb(bm,bl+1);return bn.slice(1,-1)}function a0(bm,bn){var bl=bm.indexOf('"',bn);if(0<=bl&&bm[bl-1]=="\\"){return a0(bm,bl+1)}return bl}function a1(bl,bm){return bl[0]=="("}function bj(bl,bm){return bl[0]==")"}function bh(bl,bm){return 0<="1234567890".indexOf(bl[0])}function bc(bl,bm){return bl[0]=='"'}function bf(bl,bm){return bl[0]=="."}function be(bl,bm){return true}function a2(bl,bm){return true}function bg(bl,bm){return 0<=" \t\n".indexOf(bl[0])}function aZ(bl,bm){bl.shift();bm.push(S)}function bk(bl,bm){bl.shift();bm.push(ac)}function a4(bl,bn){var bm=bd(bl,"1234567890.");bn.push(W(bm))}function a9(bl,bn){var bm=bi(bl);bn.push(aR(bm))}function a8(bl,bn){var bm=a5(bl,"( \t\n.)");bn.push(aK(bm))}function a7(bl,bo){bl.shift();var bm=a5(bl,"( \t\n.)");var bn=bo.pop();bo.push(ax(bn,bm))}function a3(bl,bm){bl.shift()}function aY(bl,bm){bl.shift()}function a6(bn,bp){var bl=bp.split("");var bo=[];while(0<bl.length){for(var bm=0;bm<bn.length;bm++){if(bn[bm][0](bl)){bn[bm][1](bl,bo);break}}}return bo}return a6([[bg,a3],[a1,aZ],[bj,bk],[bh,a4],[bc,a9],[bf,a7],[be,a8],[a2,aY]],ba)}function t(aY){function aZ(a1){var a2=[];while(0<a1.length){var a0=a1.shift();if(a0==S){a2.push(aZ(a1))}else{if(a0==ac){break}else{a2.push(a0)}}}return a2}return aZ(aY)}function e(aZ){function aY(a3){var a2=a3[0];var a4=a3.slice(1);return c(a1(a2),L(a4.map(a1)))}function a1(a2){if(a2 instanceof Array){return aY(a2)}return a2()}function a0(a2){return c(L(ay),L(a2.map(a1)))}return a0(aZ)}var ap=aq(aQ.source);var au=t(ap);var aD=e(au);if(aQ.compileonly){return aD}return aD()};
  