130_htojs2.js

//++AZ++
var F_d=new HSFun("F_d", 1, function(_l3){
var c3=exprEval(_l3);
switch((c3)._t) {
case 3 : return function(_l4, _l5){
var c4=exprEval(((F_gm)._b(F_c8, _l4))._ap([F_l]));
switch((c4)._t) {

case true : return new HSCons(new HSData((-7), [new HSCons(_l4, new HSEOL()), _l5]), new HSEOL());
case false : var c5=exprEval(_l4);
switch((c5).valueOf()) {
case 94 : var c6=exprEval(_l5);
switch((c6)._t) {
/*
case 3 : return function(_l6, _l7){
var c7=exprEval((F_cD)._b((F_dZ)._b(_l6, mkChar(64)), (Number(exprEval(_l6)))<=(Number(exprEval(mkChar(95))))));
switch((c7)._t) {
case true : return new HSCons(new HSData((-7), [new HSCons(mkChar(94), new HSCons(_l6, new HSEOL())), _l7]), new HSEOL());
case false : var c8=exprEval((F_bg)._b(_l4));
switch((c8)._t) {
case true : return new HSCons((F_gX)._b(F_bg, _l3), new HSEOL());
case false : var c9=exprEval((F_0)._b(_l4));
switch((c9)._t) {
case true : var c10=exprEval((F_gg)._b(new HSFun("F_n", 0, function(){return (F_n)._ap([_l3]);}), new HSCons(F_o, (F_gB)._b(F_gW, F_U)), new HSEOL()));
switch((c10)._t) {
case 2 : return new HSEOL();
case 3 : return function(_ma, _mb){return new HSCons(_ma, new HSEOL());}((c10)._f[0], (c10)._f[1]);
}
throw('X (' + this._n + ') ' +c10.toSource());
case false : return new HSEOL();
}
throw('X (' + this._n + ') ' +c9.toSource());
}
throw('X (' + this._n + ') ' +c8.toSource());
}
throw('X (' + this._n + ') ' +c7.toSource());
}((c6)._f[0], (c6)._f[1]);
default : var c11=exprEval((F_bg)._b(_l4));
switch((c11)._t) {
case true : return new HSCons((F_gX)._b(F_bg, _l3), new HSEOL());
case false : var c12=exprEval((F_0)._b(_l4));
switch((c12)._t) {
case true : var c13=exprEval((F_gg)._b(new HSFun("F_n", 0, function(){return (F_n)._ap([_l3]);}), new HSCons(F_o, (F_gB)._b(F_gW, F_U)), new HSEOL()));
switch((c13)._t) {
case 2 : return new HSEOL();
case 3 : return function(_ma, _mb){return new HSCons(_ma, new HSEOL());}((c13)._f[0], (c13)._f[1]);
}
throw('X (' + this._n + ') ' +c13.toSource());
case false : return new HSEOL();
}
throw('X (' + this._n + ') ' +c12.toSource());
}
throw('X (' + this._n + ') ' +c11.toSource());
*/
}
throw('X (' + this._n + ') ' +c6.toSource());
//case 111 : return new HSCons((F_c)._ap([mkChar(111), new HSFun("F_gX", 0, function(){return (F_gX)._b(F_bi, _l5);})]), new HSEOL());
//case 120 : return new HSCons((F_c)._ap([mkChar(120), new HSFun("F_gX", 0, function(){return (F_gX)._b(F_bh, _l5);})]), new HSEOL());
default : var c14=exprEval((F_bg)._b(_l4));
switch((c14)._t) {
/*
case true : return new HSCons((F_gX)._b(F_bg, _l3), new HSEOL());
case false : var c15=exprEval((F_0)._b(_l4));
switch((c15)._t) {
case true : var c16=exprEval((F_gg)._b(new HSFun("F_n", 0, function(){return (F_n)._ap([_l3]);}), new HSCons(F_o, (F_gB)._b(F_gW, F_U)), new HSEOL()));
switch((c16)._t) {
case 2 : return new HSEOL();
case 3 : return function(_ma, _mb){return new HSCons(_ma, new HSEOL());}((c16)._f[0], (c16)._f[1]);
}
throw('X (' + this._n + ') ' +c16.toSource());
case false : return new HSEOL();
}
throw('X (' + this._n + ') ' +c15.toSource());
*///AZ
}
throw('X (' + this._n + ') ' +c14.toSource());
}
throw('X (' + this._n + ') ' +c5.toSource());
}
throw('X (' + this._n + ') ' +c4.toSource());
}((c3)._f[0], (c3)._f[1]);
default : return new HSEOL();
}
throw('X (' + this._n + ') ' +c3.toSource());
});