/rts/rts-common.js

Large files files are truncated, but you can click here to view the full file

var $hs_mkBool = function(b) {
    return b ? $$GHCziTypes_True:$$GHCziTypes_False;
};
var $hs_mulIntMayOflozh = function(a, b) {
    if(WORD_SIZE_IN_BITS==32) {
        var x = a * b;
        return x===(x|0)?0:1;
    }
    else {
        return goog.math.Long.fromBits(0,
            (a.isNegative()?a.negate():a).getHighBits() |
            (b.isNegative()?b.negate():b).getHighBits());
    }
};
var $hs_addIntCzh = function(a, b) {
    if(WORD_SIZE_IN_BITS==32) {
        var x = a + b;
        return [x|0, x===(x|0)?0:1];
    }
    else {
        var x = goog.math.Integer.fromBits([a.getLowBits(), a.getHighBits()])
            .add(goog.math.Integer.fromBits([b.getLowBits(), b.getHighBits()]));
        return [goog.math.Long.fromBits(x.getBits(0), x.getBits(1)),
            x.sign_===x.getBits(2)?0:1];
    }
};
var $hs_subIntCzh = function(a, b) {
    if(WORD_SIZE_IN_BITS==32) {
        var x = a - b;
        return [x|0, x===(x|0)?0:1];
    }
    else {
        var x = goog.math.Integer.fromBits([a.getLowBits(), a.getHighBits()])
            .subtract(goog.math.Integer.fromBits([b.getLowBits(), b.getHighBits()]));
        return [goog.math.Long.fromBits(x.getBits(0), x.getBits(1)),
            x.sign_===x.getBits(2)?0:1];
    }
};
var $hs_ordzh = function(a) {
    if(WORD_SIZE_IN_BITS==32) {
        return a.charCodeAt();
    }
    else {
        return goog.math.Long.fromNumber(a.charCodeAt());
    }
};
var $hs_chrzh = function(a) {
    if(WORD_SIZE_IN_BITS==32) {
        return String.fromCharCode(a);
    }
    else {
        return String.fromCharCode(a.toNumber());
    }
};
var $hs_popCntTab =
   [0,1,1,2,1,2,2,3,1,2,2,3,2,3,3,4,1,2,2,3,2,3,3,4,2,3,3,4,3,4,4,5,
    1,2,2,3,2,3,3,4,2,3,3,4,3,4,4,5,2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6,
    1,2,2,3,2,3,3,4,2,3,3,4,3,4,4,5,2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6,
    2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6,3,4,4,5,4,5,5,6,4,5,5,6,5,6,6,7,
    1,2,2,3,2,3,3,4,2,3,3,4,3,4,4,5,2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6,
    2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6,3,4,4,5,4,5,5,6,4,5,5,6,5,6,6,7,
    2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6,3,4,4,5,4,5,5,6,4,5,5,6,5,6,6,7,
    3,4,4,5,4,5,5,6,4,5,5,6,5,6,6,7,4,5,5,6,5,6,6,7,5,6,6,7,6,7,7,8];
var $hs_popCnt8 = function(a) {
    return $hs_popCntTab[a & 0xFF];
};
var $hs_popCnt8zh = function(a) {
    if(WORD_SIZE_IN_BITS==32) {
        return $hs_popCnt8(a);
    }
    else {
        return goog.math.Long.fromNumber(
            $hs_popCnt8(a.getLowBits()));
    }
};
var $hs_popCnt16zh = function(a) {
    if(WORD_SIZE_IN_BITS==32) {
        return $hs_popCnt8(a) + $hs_popCnt8(a>>>8);
    }
    else {
        return goog.math.Long.fromNumber(
            $hs_popCnt8(a.getLowBits())+$hs_popCnt8(a.getLowBits()>>>8));
    }
};
var $hs_popCnt32zh = function(a) {
    if(WORD_SIZE_IN_BITS==32) {
        return $hs_popCnt8(a) + $hs_popCnt8(a>>>8) + $hs_popCnt8(a>>>16) + $hs_popCnt8(a>>>24);
    }
    else {
        var l = a.getLowBits();
        return goog.math.Long.fromNumber(
            $hs_popCnt8(l)+$hs_popCnt8(l>>>8) + $hs_popCnt8(l>>>16) + $hs_popCnt8(l>>>24));
    }
};
var $hs_popCnt64zh = function(a) {
    var l = a.getLowBits();
    var h = a.getHighBits();
    var result =
        $hs_popCnt8(l)+$hs_popCnt8(l>>>8) + $hs_popCnt8(l>>>16) + $hs_popCnt8(l>>>24) +
        $hs_popCnt8(h)+$hs_popCnt8(h>>>8) + $hs_popCnt8(h>>>16) + $hs_popCnt8(h>>>24);
    if(WORD_SIZE_IN_BITS==32) {
        return result;
    }
    else {
        return goog.math.Long.fromNumber(result);
    }
};
var $hs_popCntzh = WORD_SIZE_IN_BITS==32 ? $hs_popCnt32zh : $hs_popCnt64zh;
var $hs_expDoublezh = function(a) {
    return Math.exp(a);
};
var $hs_logDoublezh = function(a) {
    return Math.log(a);
};
var $hs_sqrtDoublezh = function(a) {
    return Math.sqrt(a);
};
var $hs_sinDoublezh = function(a) {
    return Math.sin(a);
};
var $hs_cosDoublezh = function(a) {
    return Math.cos(a);
};
var $hs_tanDoublezh = function(a) {
    return Math.tan(a);
};
var $hs_asinDoublezh = function(a) {
    return Math.asin(a);
};
var $hs_acosDoublezh = function(a) {
    return Math.acos(a);
};
var $hs_atanDoublezh = function(a) {
    return Math.atan(a);
};
var $hs_sinhDoublezh = function(a) {
    return (Math.exp(a) - Math.exp(-a)) / 2;
};
var $hs_coshDoublezh = function(a) {
    return (Math.exp(a) + Math.exp(-a)) / 2;
};
var $hs_tanhDoublezh = function(a) {
    var expA = Math.exp(a);
    var expNegA = Math.exp(-a);
    return (expA - expNegA) / (expA + expNegA);
};
var $hs_ztztzhzh = function(a, b) {
    return Math.pow(a,b);
};
var $hs_decodeDoublezu2Intzh = function(x) {
    if( x < 0 ) {
        var result = $hs_decodeDoublezu2Intzh(-x);
        return [-1, result[1], result[2], result[3]];
    }
    var negExponent = 52-Math.floor(Math.log(x) * 1.4426950408889634); // 1/log(2)
    var mantissa = goog.math.Long.fromNumber(x * Math.pow(2, negExponent));
    return [1, mantissa.getHighBits(), mantissa.getLowBits(), -negExponent];
};
var $hs_expFloatzh = function(a) {
    return Math.exp(a);
};
var $hs_logFloatzh = function(a) {
    return Math.log(a);
};
var $hs_sqrtFloatzh = function(a) {
    return Math.sqrt(a);
};
var $hs_sinFloatzh = function(a) {
    return Math.sin(a);
};
var $hs_cosFloatzh = function(a) {
    return Math.cos(a);
};
var $hs_tanFloatzh = function(a) {
    return Math.tan(a);
};
var $hs_asinFloatzh = function(a) {
    return Math.asin(a);
};
var $hs_acosFloatzh = function(a) {
    return Math.acos(a);
};
var $hs_atanFloatzh = function(a) {
    return Math.atan(a);
};
var $hs_sinhFloatzh = function(a) {
    return (Math.exp(a) - Math.exp(-a)) / 2;
};
var $hs_coshFloatzh = function(a) {
    return (Math.exp(a) + Math.exp(-a)) / 2;
};
var $hs_tanhFloatzh = function(a) {
    var expA = Math.exp(a);
    var expNegA = Math.exp(-a);
    return (expA - expNegA) / (expA + expNegA);
};
var $hs_powerFloatzh = function(a, b) {
    return Math.pow(a, b);
};
var $hs_decodeFloatzuIntzh = function(x) {
    // This probably gives unexpected results.
    // In particular we need to check...
    //   * NaN
    //   * Infinity
    if( x < 0 ) {
        var result = $hs_decodeFloatzuIntzh(-x);
        return [-result[0], result[1]];
    }
    var negExponent = 23-Math.floor(Math.log(x) * 1.4426950408889634); // 1/log(2)
    return [(x * Math.pow(2, negExponent))|0, -negExponent];
};
var isDoubleNegativeZero = function(a) {
    return (a==-0.0)?1:0;
};
var isDoubleNaN = function(a) {
    return (isNaN(a))?1:0;
};
var isDoubleInfinite = function(a) {
    return (isFinite(a)||isNaN(a))?0:1;
};
var isFloatNegativeZero = function(a) { // fixme switch to proper 32 bit floats
    return (a==-0.0)?1:0;
};
var isFloatNaN = function(a) {
    return (isNaN(a))?1:0;
};
var isFloatInfinite = function(a) {
    return (isFinite(a)||isNaN(a))?0:1;
};
var integer_cbits_encodeDouble = function(s, bits, e) {
    var g = $hs_gmpToGoog(s, bits);
    return Math.pow(2,e)*g.toNumber();
};
var __int_encodeDouble = function(b, e) {
    return Math.pow(2,e) * b;
};
var rintDouble = function(a) {
    return Math.round(a);
};
var $hs_newMutVarzh = function(a, s) {
    return [s, {value : a}];
};
var $hs_readMutVarzh = function (a, s) {
    return [s, a.value];
};
var $hs_writeMutVarzh = function (a, b, s) {
    a.value = b;
    return s;
};
var $hs_sameMutVarzh = function (a, b) {
    return a === b;
};
var $hs_newArrayzh = function(n, a, s) {
    var result = [];
    for (var x = 0; x != n; x++)
      result[x] = a;
    return [s, result];
};
var $hs_sameMutableArrayzh = function (a, b) {
    return a === b;
};
var $hs_readArrayzh = function (a, n, s) {
    return [s, a[n]];
};
var $hs_writeArrayzh = function (a, n, b, s) {
    a[n] = b;
    return s;
};
var $hs_sizeofArrayzh = function (a, s) {
    return [s, a.length];
};
var $hs_sizeofMutableArrayzh = function (a, s) {
    return [s, a.length];
};
var $hs_indexArrayzh = function (a, n) {
    return [a[n]]; // Unboxed singleton
};
var $hs_unsafeFreezzeArrayzh = function (a, s) {
    return [s, a];
};
var $hs_unsafeThawArrayzh = function (a, s) {
    return [s, a];
};

// ByteArray support
var $hs_ptrBase = 0;

/**
 * @param {!number} n
 * @param {Object=} s
 */
var $hs_newByteArrayzh = function (n, s) {
    var result = [new ArrayBuffer(n), 0, $hs_ptrBase];
    result[0].ptrs=[];
    $hs_ptrBase += n;
    return [s, result];
};
/**
 * @param {!number} n
 * @param {Object=} s
 */
var $hs_newPinnedByteArrayzh = function (n, s) {
    var result = [new ArrayBuffer(n), 0, $hs_ptrBase];
    result[0].ptrs=[];
    $hs_ptrBase += n;
    return [s, result];
};
/**
 * @param {!number} n
 * @param {Object=} s
 */
var $hs_newAlignedPinnedByteArrayzh = function (n, k, s) {
    $hs_ptrBase += $hs_ptrBase%k;
    var result = [new ArrayBuffer(n), 0, $hs_ptrBase];
    result[0].ptrs=[];
    $hs_ptrBase += n;
    return [s, result];
};
var $hs_byteArrayContentszh = function (a) {
    return a;
};
var $hs_sameMutableByteArrayzh = function (a, b) {
    return a[2] === b[2];
};
var $hs_unsafeFreezzeByteArrayzh = function (a, s) {
    return [s, a];
};
var $hs_sizeofByteArrayzh = function (a) {
    return new Uint8Array(a[0]).length;
};
var $hs_sizeofMutableByteArrayzh = function (a) {
    return new Uint8Array(a[0]).length;
};
var $hs_indexCharArrayzh = function (a, n) {
    return String.fromCharCode(new Uint8Array(a[0])[n]);
};
var $hs_indexWideCharArrayzh = function (a, n) {
    return String.fromCharCode(new Uint32Array(a[0])[n]);
};
// --- goog.math.Integer and (# Int#, ByteArray# #) mapping
//
// Unfortunately goog.math.Integer.bits_ are the bits of a signed in.
// goog.math.Integer.sign_ is the value of the rest of the infinite list.
//
// We want (s, bits) where bits is the ByteArray of the bits of the
// absolute value. And s is
//    | n == 0 -> 0
//    | n > 0  -> length bits
//    | n < 0  -> -(length bits)
//
// For performance we will store the goog.math.Integer as the ByteArray
// and spin up a cached positive version to work out the correct bits.
//
// When constructing the goog.math.Integer in most cases ByteArray
// will be the desired number.
var $hs_fastNegate = function(a) {
    if(a.negateCache_ === undefined) {
        a.negateCache_ = a.negate();
        a.negateCache_.negateCache_ = a;
    }
    return a.negateCache_;
};
var $hs_absolute = function(a) {
    if(a.isNegative()) {
        return $hs_fastNegate(a);
    }
    return a;
};
var $hs_googToGMP = function(a) {
    var bits = $hs_absolute(a).bits_;
    var s = bits.length;
    while(s !== 0 && bits[s-1] === 0)
        s--;
    s = a.isNegative() ? -s : s;
    return [WORD_SIZE_IN_BITS==32 ? s : goog.math.Long.fromNumber(s), a];
};
var $hs_gmpToGoog = function(s,bits) {
    s = WORD_SIZE_IN_BITS==32 ? s : s.toNumber();

    // If s is 0 then the number we want is 0
    if(s===0) {
        return goog.math.Integer.ZERO;
    }

    // We are going to need to know long the bits array should be
    var len = s < 0 ? -s : s;

    // Try to avoid making a new integer if we can
    if(bits instanceof goog.math.Integer) {
        var current = $hs_googToGMP(bits);
        // Make sure we do not have too many bits
        if(len >= current[0]) {
            if((s<0) === bits.isNegative()) {
                // Both same sign so just return bits
                return bits;
            }
            else {
                // Only the sign is changed
                return $hs_fastNegate(bits);
            }
        }
    }

    // Ok lets build a new one
    var newBits = [];
    for(var n = 0; n !== len; n++) {
        newBits[n] = $hs_indexIntArrayzh(bits, n);
    }
    var i = new goog.math.Integer(newBits, 0);
    return s < 0 ? $hs_fastNegate(i) : i;
};
var $hs_indexIntArrayzh = function (a, n) {
    if(WORD_SIZE_IN_BITS==32) {
        if(a instanceof goog.math.Integer) {
            return $hs_absolute(a).getBits(n);
        }
        return new Int32Array(a[0])[n];
    }
    else {
        var n2 = n.toNumber()<<1;
        if(a instanceof goog.math.Integer) {
            var positive = $hs_absolute(a);
            return goog.math.Long.fromBits(positive.getBits(n2), positive.getBits(n2+1));
        }
        var x = new Int32Array(a[0]);
        return goog.math.Long.fromBits(x[n2], x[n2+1]);
    }
};
var $hs_indexWordArrayzh = function (a, n) {
    if(WORD_SIZE_IN_BITS==32) {
        // fixme there should be something better than checking this manually
        if(a instanceof goog.math.Integer) return $hs_absolute(a).getBits(n);
        else return new Uint32Array(a[0])[n];
    }
    else {
        var x = new Int32Array(a[0], n.toNumber()<<3);
        return goog.math.Long.fromBits(x[0], x[1]);
    }
};
var $hs_indexAddrArrayzh = function (a, n) {
    n = WORD_SIZE_IN_BITS==32 ? n : n.toNumber();
    var res = a[0].ptrs[n];
    if(HS_DEBUG && res[2] !== new Uint32Array(a[0])[n])
        throw "Array Pointer Error";
    return res;
};
var $hs_indexFloatArrayzh = function (a, n) {
    n = WORD_SIZE_IN_BITS==32 ? n : n.toNumber();
    return new Float32Array(a[0])[n];
};
var $hs_indexDoubleArrayzh = function (a, n) {
    n = WORD_SIZE_IN_BITS==32 ? n : n.toNumber();
    return new Float64Array(a[0])[n];
};
var $hs_indexStablePtrArrayzh = function (a, n) {
    n = WORD_SIZE_IN_BITS==32 ? n : n.toNumber();
    var res = a[0].ptrs[n];
    if(HS_DEBUG && res[2] !== new Uint32Array(a[0])[n])
        throw "Array Pointer Error";
    return res;
};
var $hs_indexInt8Arrayzh = function (a, n) {
    if(WORD_SIZE_IN_BITS == 32) {
        return new Int8Array(a[0])[n];
    } else {
        return goog.math.Long.fromNumber(new Int8Array(a[0])[n.toNumber()]);
    }
};
var $hs_indexInt16Arrayzh = function (a, n) {
    if(WORD_SIZE_IN_BITS == 32) {
        return new Int16Array(a[0])[n];
    } else {
        return goog.math.Long.fromNumber(new Int16Array(a[0])[n.toNumber()]);
    }
};
var $hs_indexInt32Arrayzh = function (a, n) {
    if(WORD_SIZE_IN_BITS == 32) {
        return new Int32Array(a[0])[n];
    } else {
        return goog.math.Long.fromNumber(new Int32Array(a[0])[n.toNumber()]);
    }
};
var $hs_indexInt64Arrayzh = function (a, n) {
    n = WORD_SIZE_IN_BITS==32 ? n : n.toNumber();
    var x = new Int32Array(a[0], n<<3);
    return goog.math.Long.fromBits(x[0], x[1]);
};
var $hs_indexWord8Arrayzh = function (a, n) {
    if(WORD_SIZE_IN_BITS == 32) {
        return new Uint8Array(a[0])[n];
    } else {
        return goog.math.Long.fromBits(new Uint8Array(a[0])[n.toNumber()], 0);
    }
};
var $hs_indexWord16Arrayzh = function (a, n) {
    if(WORD_SIZE_IN_BITS == 32) {
        return new Uint16Array(a[0])[n];
    } else {
        return goog.math.Long.fromBits(new Uint16Array(a[0])[n.toNumber()], 0);
    }
};
var $hs_indexWord32Arrayzh = function (a, n) {
    if(WORD_SIZE_IN_BITS == 32) {
        return new Uint32Array(a[0])[n];
    } else {
        return goog.math.Long.fromBits(new Uint32Array(a[0])[n.toNumber()], 0);
    }
};
var $hs_indexWord64Arrayzh = function (a, n) {
    n = WORD_SIZE_IN_BITS==32 ? n : n.toNumber();
    var x = new Int32Array(a[0], n<<3);
    return goog.math.Long.fromBits(x[0], x[1]);
};
var $hs_readCharArrayzh = function (a, n, s) {
    n = WORD_SIZE_IN_BITS==32 ? n : n.toNumber();
    return [s, String.fromCharCode(new Uint8Array(a[0])[n])];
};
var $hs_readWideCharArrayzh = function (a, n, s) {
    n = WORD_SIZE_IN_BITS==32 ? n : n.toNumber();
    return [s, String.fromCharCode(new Uint32Array(a[0])[n])];
};
var $hs_readIntArrayzh = function (a, n, s) {
    if(WORD_SIZE_IN_BITS==32) {
        return [s, new Int32Array(a[0])[n]];
    }
    else {
        var x = new Int32Array(a[0], n.toNumber()<<3);
        return [s, goog.math.Long.fromBits(x[0], x[1])];
    }
};
var $hs_readWordArrayzh = function (a, n, s) {
    if(WORD_SIZE_IN_BITS==32) {
        return [s, new Uint32Array(a[0])[n]];
    }
    else {
        var x = new Int32Array(a[0], n.toNumber()<<3);
        return [s, goog.math.Long.fromBits(x[0], x[1])];
    }
};
var $hs_readAddrArrayzh = function (a, n, s) {
    n = WORD_SIZE_IN_BITS==32 ? n : n.toNumber();
    var res = a[0].ptrs[n];
    if(HS_DEBUG && res[2] !== new Uint32Array(a[0])[n])
        throw "Array Pointer Error";
    return [s, res];
};
var $hs_readFloatArrayzh = function (a, n, s) {
    n = WORD_SIZE_IN_BITS==32 ? n : n.toNumber();
    return [s, new Float32Array(a[0])[n]];
};
var $hs_readDoubleArrayzh = function (a, n, s) {
    n = WORD_SIZE_IN_BITS==32 ? n : n.toNumber();
    return [s, new Float64Array(a[0])[n]];
};
var $hs_readStablePtrArrayzh = function (a, n, s) {
    n = WORD_SIZE_IN_BITS==32 ? n : n.toNumber();
    var res = a[0].ptrs[n];
    if(HS_DEBUG && res[2] !== new Uint32Array(a[0])[n])
        throw "Array Pointer Error";
    return [s, res];
};
var $hs_readInt8Arrayzh = function (a, n, s) {
    if(WORD_SIZE_IN_BITS == 32) {
        return [s, new Int8Array(a[0])[n]];
    } else {
        return [s, goog.math.Long.fromNumber(new Int8Array(a[0])[n.toNumber()])];
    }
};
var $hs_readInt16Arrayzh = function (a, n, s) {
    if(WORD_SIZE_IN_BITS == 32) {
        return [s, new Int16Array(a[0])[n]];
    } else {
        return [s, goog.math.Long.fromNumber(new Int16Array(a[0])[n.toNumber()])];
    }
};
var $hs_readInt32Arrayzh = function (a, n, s) {
    if(WORD_SIZE_IN_BITS == 32) {
        return [s, new Int32Array(a[0])[n]];
    } else {
        return [s, goog.math.Long.fromNumber(new Int32Array(a[0])[n.toNumber()])];
    }
};
var $hs_readInt64Arrayzh = function (a, n, s) {
    n = WORD_SIZE_IN_BITS==32 ? n : n.toNumber();
    var x = new Int32Array(a[0], n<<3);
    return [s, goog.math.Long.fromBits(x[0], x[1])];
};
var $hs_readWord8Arrayzh = function (a, n, s) {
    if(WORD_SIZE_IN_BITS == 32) {
        return [s, new Uint8Array(a[0])[n]];
    } else {
        return [s, goog.math.Long.fromBits(new Uint8Array(a[0])[n.toNumber()], 0)];
    }
};
var $hs_readWord16Arrayzh = function (a, n, s) {
    if(WORD_SIZE_IN_BITS == 32) {
        return [s, new Uint16Array(a[0])[n]];
    } else {
        return [s, goog.math.Long.fromBits(new Uint16Array(a[0])[n.toNumber()], 0)];
    }
};
var $hs_readWord32Arrayzh = function (a, n, s) {
    if(WORD_SIZE_IN_BITS == 32) {
        return [s, new Uint32Array(a[0])[n]];
    } else {
        return [s, goog.math.Long.fromBits(new Uint32Array(a[0])[n.toNumber()], 0)];
    }
};
var $hs_readWord64Arrayzh = function (a, n, s) {
    n = WORD_SIZE_IN_BITS==32 ? n : n.toNumber();
    var x = new Int32Array(a[0], n<<3);
    return [s, goog.math.Long.fromBits(x[0], x[1])];
};
var $hs_writeCharArrayzh = function (a, n, v, s) {
    n = WORD_SIZE_IN_BITS==32 ? n : n.toNumber();
    new Uint8Array(a[0])[n] = v.charCodeAt();
    return s;
};
var $hs_writeWideCharArrayzh = function (a, n, v, s) {
    n = WORD_SIZE_IN_BITS==32 ? n : n.toNumber();
    new Uint32Array(a[0])[n] = v.charCodeAt();
    return s;
};
var $hs_writeIntArrayzh = function (a, n, v, s) {
    if(WORD_SIZE_IN_BITS==32) {
        new Int32Array(a[0])[n] = v;
        return s;
    }
    else {
        var x = new Int32Array(a[0], n.toNumber()<<3);
        x[0] = v.getLowBits();
        x[1] = v.getHighBits();
        return s;
    }
};
var $hs_writeWordArrayzh = function (a, n, v, s) {
    if(WORD_SIZE_IN_BITS==32) {
        new Uint32Array(a[0])[n] = v;
        return s;
    }
    else {
        var x = new Int32Array(a[0], n.toNumber()<<3);
        x[0] = v.getLowBits();
        x[1] = v.getHighBits();
        return s;
    }
};
var $hs_writeAddrArrayzh = function (a, n, v, s) {
    n = WORD_SIZE_IN_BITS==32 ? n : n.toNumber();
    a[0].ptrs[n] = v;
    new Uint32Array(a[0])[n] = v[2];
    return s;
};
var $hs_writeFloatArrayzh = function (a, n, v, s) {
    n = WORD_SIZE_IN_BITS==32 ? n : n.toNumber();
    new Float32Array(a[0])[n] = v;
    return s;
};
var $hs_writeDoubleArrayzh = function (a, n, v, s) {
    n = WORD_SIZE_IN_BITS==32 ? n : n.toNumber();
    new Float64Array(a[0])[n] = v;
    return s;
};
var $hs_writeStablePtrArrayzh = function (a, n, v, s) {
    n = WORD_SIZE_IN_BITS==32 ? n : n.toNumber();
    a[0].ptrs[n] = v;
    new Uint32Array(a[0])[n] = v[2];
    return s;
};
var $hs_writeInt8Arrayzh = function (a, n, v, s) {
    if(WORD_SIZE_IN_BITS==32) {
        new Int8Array(a[0])[n] = v;
    }
    else {
        new Int8Array(a[0])[n.toNumber()] = v.getLowBits();
    }
    return s;
};
var $hs_writeInt16Arrayzh = function (a, n, v, s) {
    if(WORD_SIZE_IN_BITS==32) {
        new Int16Array(a[0])[n] = v;
    }
    else {
        new In16Array(a[0])[n.toNumber()] = v.getLowBits();
    }
    return s;
};
var $hs_writeInt32Arrayzh = function (a, n, v, s) {
    if(WORD_SIZE_IN_BITS==32) {
        new Int32Array(a[0])[n] = v;
    }
    else {
        new Int32Array(a[0])[n.toNumber()] = v.getLowBits();
    }
    return s;
};
var $hs_writeInt64Arrayzh = function (a, n, v, s) {
    n = WORD_SIZE_IN_BITS==32 ? n : n.toNumber();
    var x = new Int32Array(a[0], n<<3);
    x[0] = v.getLowBits();
    x[1] = v.getHighBits();
    return s;
};
var $hs_writeWord8Arrayzh = function (a, n, v, s) {
    if(WORD_SIZE_IN_BITS==32) {
        new Uint8Array(a[0])[n] = v;
    }
    else {
        new Uint8Array(a[0])[n.toNumber()] = v.getLowBits();
    }
    return s;
};
var $hs_writeWord16Arrayzh = function (a, n, v, s) {
    if(WORD_SIZE_IN_BITS==32) {
        new Uint16Array(a[0])[n] = v;
    }
    else {
        new Uint16Array(a[0])[n.toNumber()] = v.getLowBits();
    }
    return s;
};
var $hs_writeWord32Arrayzh = function (a, n, v, s) {
    if(WORD_SIZE_IN_BITS==32) {
        new Uint32Array(a[0])[n] = v;
    }
    else {
        new Uint32Array(a[0])[n.toNumber()] = v.getLowBits();
    }
    return s;
};
var $hs_writeWord64Arrayzh = function (a, n, v, s) {
    n = WORD_SIZE_IN_BITS==32 ? n : n.toNumber();
    var x = new Int32Array(a[0], n<<3);
    x[0] = v.getLowBits();
    x[1] = v.getHighBits();
    return s;
};
var $hs_copyByteArrayzh = function (src, soff, dest, doff, count, s) {
    var srcarray = new Uint8Array(src[0]);
    var destarray = new Uint8Array(dest[0]);
    while(count != 0) {
        destarray[doff] = srcarray[soff];
        soff++;
        doff++;
        count--;
    }
    return s;
};
var $hs_copyMutableByteArrayzh = function (src, soff, dest, doff, count, s) {
    var srcarray = new Uint8Array(src[0]);
    var destarray = new Uint8Array(dest[0]);
    while(count != 0) {
        destarray[doff] = srcarray[soff];
        soff++;
        doff++;
        count--;
    }
    return s;
};
var $hs_plusAddrzh = function (a, n) {
    if(typeof(a) === 'string')
        return [a, n, n];
    else
        return [a[0],a[1]+n,a[2]+n];
};
var $hs_minusAddrzh = function (a, b) {
    return a[1]-b[1];
};
var $hs_remAddrzh = function (a, b) {
    return a[1]%b;
};
var $hs_gtAddrzh = function (a, b) {
    return $hs_mkBool(
         (a===null&&b===null)?false:
        ((a===null&&b!==null)?false:
        ((a!==null&&b===null)?true:(a[2]>b[2]))));
};
var $hs_geAddrzh = function (a, b) {
    return $hs_mkBool(
         (a===null&&b===null)?true:
        ((a===null&&b!==null)?false:
        ((a!==null&&b===null)?true:(a[2]>=b[2]))));
};
var $hs_eqAddrzh = function (a, b) {
    return $hs_mkBool(
         (a===null&&b===null)?true:
        ((a===null&&b!==null)?false:
        ((a!==null&&b===null)?false:(a[2]===b[2]))));
};
var $hs_neAddrzh = function (a, b) {
    return $hs_mkBool(
         (a===null&&b===null)?false:
        ((a===null&&b!==null)?true:
        ((a!==null&&b===null)?true:(a[2]!==b[2]))));
};
var $hs_ltAddrzh = function (a, b) {
    return $hs_mkBool(
         (a===null&&b===null)?false:
        ((a===null&&b!==null)?true:
        ((a!==null&&b===null)?false:(a[2]<b[2]))));
};
var $hs_leAddrzh = function (a, b) {
    return $hs_mkBool(
         (a===null&&b===null)?true:
        ((a===null&&b!==null)?true:
        ((a!==null&&b===null)?false:(a[2]<=b[2]))));
};
var $hs_indexCharOffAddrzh = function (a, n) {
    if(typeof(a) === 'string')
        return n==a.length?'\x00':a.charAt(n);
    else if(typeof(a[0]) === 'string')
        return n==a[0].length?'\x00':a[0].charAt(a[1]+n);
    else
        return String.fromCharCode(new Uint8Array(a[0],a[1]+n)[0]);
};
var $hs_indexWideCharOffAddrzh = function (a, n) {
    return String.fromCharCode(new Uint32Array(a[0],a[1]+(n<<2))[0]);
};
var $hs_indexIntOffAddrzh = function (a, n) {
    if(WORD_SIZE_IN_BITS==32) {
        return new Int32Array(a[0],a[1]+(n<<2))[0];
    }
    else {
        var x = new Int32Array(a[0], a[1] + (n<<3));
        return goog.math.Long.fromBits(x[0], x[1]);
    }
};
var $hs_indexWordOffAddrzh = function (a, n) {
    if(WORD_SIZE_IN_BITS==32) {
        return new Uint32Array(a[0],a[1]+(n<<2))[0];
    }
    else {
        var x = new Int32Array(a[0], a[1] + (n<<3));
        return goog.math.Long.fromBits(x[0], x[1]);
    }
};
var $hs_indexAddrOffAddrzh = function (a, n) {
    var res = a[0].ptrs[a[1]+(n<<2)];
    if(HS_DEBUG && res[2] !== new Uint32Array(a[0],a[1]+(n<<2))[0])
        throw "Array Pointer Error";
    return res;
};
var $hs_indexFloatOffAddrzh = function (a, n) {
    return new Float32Array(a[0],a[1]+(n<<2))[0];
};
var $hs_indexDoubleOffAddrzh = function (a, n) {
    return new Float64Array(a[0],a[1]+(n<<3))[0];
};
var $hs_indexStablePtrOffAddrzh = function (a, n) {
    var res = a[0].ptrs[a[1]+(n<<2)];
    if(HS_DEBUG && res[2] !== new Uint32Array(a[0],a[1]+(n<<2))[0])
        throw "Array Pointer Error";
    return res;
};
var $hs_indexInt8OffAddrzh = function (a, n) {
    if(WORD_SIZE_IN_BITS==32) {
        return new Int8Array(a[0],a[1]+n)[0];
    }
    else {
        return goog.math.Long.fromNumber(new Int8Array(a[0],a[1]+n)[0]);
    }
};
var $hs_indexInt16OffAddrzh = function (a, n) {
    if(WORD_SIZE_IN_BITS==32) {
        return new Int16Array(a[0],a[1]+(n<<1))[0];
    }
    else {
        return goog.math.Long.fromNumber(new Int16Array(a[0],a[1]+(n<<1))[0]);
    }
};
var $hs_indexInt32OffAddrzh = function (a, n) {
    if(WORD_SIZE_IN_BITS==32) {
        return new Int32Array(a[0],a[1]+(n<<2))[0];
    }
    else {
        return goog.math.Long.fromNumber(new Int32Array(a[0],a[1]+(n<<2))[0]);
    }
};
var $hs_indexInt64OffAddrzh = function (a, n) {
    var x = new Uint32Array(a[0],a[1]+(n<<3));
    return goog.math.Long.fromBits(x[0], x[1]);
};
var $hs_indexWord8OffAddrzh = function (a, n) {
    if(typeof(a) === 'string')
        var res = n==a.length?0:a.charCodeAt(n);
    else if(typeof(a[0]) === 'string')
        var res = n==a[0].length?0:a[0].charCodeAt(a[1]+n);
    else
        var res = new Uint8Array(a[0],a[1]+n)[0];
    return WORD_SIZE_IN_BITS==32 ? res : goog.math.Long.fromBits(res);
};
var $hs_indexWord16OffAddrzh = function (a, n) {
    if(WORD_SIZE_IN_BITS==32) {
        return new Uint16Array(a[0],a[1]+(n<<1))[0];
    }
    else {
        return goog.math.Long.fromBits(new Uint16Array(a[0],a[1]+(n<<1))[0], 0);
    }
};
var $hs_indexWord32OffAddrzh = function (a, n) {
    if(WORD_SIZE_IN_BITS==32) {
        return new Uint32Array(a[0],a[1]+(n<<2))[0];
    }
    else {
        return goog.math.Long.fromBits(new Uint32Array(a[0],a[1]+(n<<2))[0], 0);
    }
};
var $hs_indexWord64OffAddrzh = function (a, n) {
    var x = new Int32Array(a[0],a[1]+(n<<3));
    return goog.math.Long.fromBits(x[0], x[1]);
};
var $hs_readCharOffAddrzh = function (a, n, s) {
    return [s, String.fromCharCode(new Uint8Array(a[0],a[1]+n)[0])];
};
var $hs_readWideCharOffAddrzh = function (a, n, s) {
    return [s, String.fromCharCode(new Uint32Array(a[0],a[1]+(n<<2))[0])];
};
var $hs_readIntOffAddrzh = function (a, n, s) {
    if(WORD_SIZE_IN_BITS==32) {
        return [s, new Int32Array(a[0],a[1]+(n<<2))[0]];
    }
    else {
        var x = new Int32Array(a[0], a[1] + (n<<3));
        return [s, goog.math.Long.fromBits(x[0], x[1])];
    }
};
var $hs_readWordOffAddrzh = function (a, n, s) {
    if(WORD_SIZE_IN_BITS==32) {
        return [s, new Uint32Array(a[0],a[1]+(n<<2))[0]];
    }
    else {
        var x = new Int32Array(a[0], a[1] + (n<<3));
        return [s, goog.math.Long.fromBits(x[0], x[1])];
    }
};
var $hs_readAddrOffAddrzh = function (a, n, s) {
    var res = a[0].ptrs[a[1]+(n<<2)];
    if(HS_DEBUG && a[2] !== new Uint32Array(a[0],a[1]+(n<<2))[0])
        throw "Array Pointer Error";
    return [s, res];
};
var $hs_readFloatOffAddrzh = function (a, n, s) {
    return [s, new Float32Array(a[0],a[1]+(n<<2))[0]];
};
var $hs_readDoubleOffAddrzh = function (a, n, s) {
    return [s, new Float64Array(a[0],a[1]+(n<<3))[0]];
};
var $hs_readStablePtrOffAddrzh = function (a, n, s) {
    var res = a[0].ptrs[a[1]+(n<<2)];
    if(HS_DEBUG && a[2] !== new Uint32Array(a[0],a[1]+(n<<2))[0])
        throw "Array Pointer Error";
    return [s, res];
};
var $hs_readInt8OffAddrzh = function (a, n, s) {
    if(WORD_SIZE_IN_BITS==32) {
        return [s, new Int8Array(a[0],a[1]+n)[0]];
    }
    else {
        return [s, goog.math.Long.fromNumber(new Int32Array(a[0],a[1]+n)[0])];
    }
};
var $hs_readInt16OffAddrzh = function (a, n, s) {
    if(WORD_SIZE_IN_BITS==32) {
        return [s, new Int16Array(a[0],a[1]+(n<<1))[0]];
    }
    else {
        return [s, goog.math.Long.fromNumber(new Int16Array(a[0],a[1]+(n<<1))[0])];
    }
};
var $hs_readInt32OffAddrzh = function (a, n, s) {
    if(WORD_SIZE_IN_BITS==32) {
        return [s, new Int32Array(a[0],a[1]+(n<<2))[0]];
    }
    else {
        return [s, goog.math.Long.fromNumber(new Int32Array(a[0],a[1]+(n<<2))[0])];
    }
};
var $hs_readInt64OffAddrzh = function (a, n, s) {
    var x = new Uint32Array(a[0],a[1]+(n<<3));
    return [s, goog.math.Long.fromBits(x[0], x[1])];
};
var $hs_readWord8OffAddrzh = function (a, n, s) {
    if(typeof(a) === 'string')
        return [s, a.charCodeAt(n)];
    else
        return [s, new Uint8Array(a[0],a[1]+n)[0]];
};
var $hs_readWord16OffAddrzh = function (a, n, s) {
    if(WORD_SIZE_IN_BITS==32) {
        return [s, new Uint16Array(a[0],a[1]+(n<<1))[0]];
    }
    else {
        return [s, goog.math.Long.fromBits(new Uint16Array(a[0],a[1]+(n<<1))[0], 0)];
    }
};
var $hs_readWord32OffAddrzh = function (a, n, s) {
    if(WORD_SIZE_IN_BITS==32) {
        return [s, new Uint32Array(a[0],a[1]+(n<<2))[0]];
    }
    else {
        return [s, goog.math.Long.fromBits(new Uint32Array(a[0],a[1]+(n<<2))[0], 0)];
    }
};
var $hs_readWord64OffAddrzh = function (a, n, s) {
    var x = new Uint32Array(a[0],a[1]+(n<<3));
    return [s, goog.math.Long.fromBits(x[0], x[1])];
};
var $hs_writeCharOffAddrzh = function (a, n, v, s) {
    (new Uint8Array(a[0],a[1]+n))[0] = v.charCodeAt();
    return s;
};
var $hs_writeWideCharOffAddrzh = function (a, n, v, s) {
    (new Uint32Array(a[0],a[1]+(n<<2)))[0] = v.charCodeAt();
    return s;
};
var $hs_writeIntOffAddrzh = function (a, n, v, s) {
    if(WORD_SIZE_IN_BITS==32) {
        (new Int32Array(a[0],a[1]+(n<<2)))[0] = v;
        return s;
    }
    else {
        var x = new Int32Array(a[0], a[1]+(n<<3));
        x[0] = v.getLowBits();
        x[1] = v.getHighBits();
        return s;
    }
};
var $hs_writeWordOffAddrzh = function (a, n, v, s) {
    if(WORD_SIZE_IN_BITS==32) {
        (new Uint32Array(a[0],a[1]+(n<<2)))[0] = v;
        return s;
    }
    else {
        var x = new Int32Array(a[0], a[1]+(n<<3));
        x[0] = v.getLowBits();
        x[1] = v.getHighBits();
        return s;
    }
};
var $hs_writeAddrOffAddrzh = function (a, n, v, s) {
    a[0].ptrs[n] = v;
    (new Uint32Array(a[0],a[1]+(n<<2)))[0] = a[2];
    return s;
};
var $hs_writeFloatOffAddrzh = function (a, n, v, s) {
    (new Float32Array(a[0],a[1]+(n<<2)))[0] = v;
    return s;
};
var $hs_writeDoubleOffAddrzh = function (a, n, v, s) {
    (new Float64Array(a[0],a[1]+(n<<3)))[0] = v;
    return s;
};
var $hs_writeStablePtrOffAddrzh = function (a, n, v, s) {
    a[0].ptrs[n] = v;
    (new Uint32Array(a[0],a[1]+(n<<2)))[0] = a[2];
    return s;
};
var $hs_writeInt8OffAddrzh = function (a, n, v, s) {
    (new Int8Array(a[0],a[1]+n))[0] = WORD_SIZE_IN_BITS==32 ? v : v.getLowBits();
    return s;
};
var $hs_writeInt16OffAddrzh = function (a, n, v, s) {
    (new Int16Array(a[0],a[1]+(n<<1)))[0] = WORD_SIZE_IN_BITS==32 ? v : v.getLowBits();
    return s;
};
var $hs_writeInt32OffAddrzh = function (a, n, v, s) {
    (new Int32Array(a[0],a[1]+(n<<2)))[0] = WORD_SIZE_IN_BITS==32 ? v : v.getLowBits();
    return s;
};
var $hs_writeInt64OffAddrzh = function (a, n, v, s) {
    var x = new Int32Array(a[0], a[1]+(n<<3));
    x[0] = v.getLowBits();
    x[1] = v.getHighBits();
    return s;
};
var $hs_writeWord8OffAddrzh = function (a, n, v, s) {
    (new Uint8Array(a[0],a[1]+n))[0] = WORD_SIZE_IN_BITS==32 ? v : v.getLowBits();
    return s;
};
var $hs_writeWord16OffAddrzh = function (a, n, v, s) {
    (new Uint16Array(a[0],a[1]+(n<<1)))[0] = WORD_SIZE_IN_BITS==32 ? v : v.getLowBits();
    return s;
};
var $hs_writeWord32OffAddrzh = function (a, n, v, s) {
    (new Uint32Array(a[0],a[1]+(n<<2)))[0] = WORD_SIZE_IN_BITS==32 ? v : v.getLowBits();
    return s;
};
var $hs_writeWord64OffAddrzh = function (a, n, v, s) {
    var x = new Int32Array(a[0], a[1]+(n<<3));
    x[0] = v.getLowBits();
    x[1] = v.getHighBits();
    return s;
};
var $hs_alert = function (str) {
    window.alert(str);
};
var $hs_logAny = function (c, str) {
    var el = document.getElementById('log');
    el.innerHTML = el.innerHTML + c + ": " + str + '<br/>\n';
};
var $hs_logInfo = function (str) {
    $hs_logAny("INFO", str);
};
var $hs_logError = function (str) {
    $hs_logAny("ERROR", str);
};
var $hs_logDebug = function (str) {
    $hs_logAny("DEBUG", str);
};

var $hs_logger = goog.debug.Logger.getLogger('hs');

var $hs_utf32 = function(s) {
    var res = $hs_newByteArrayzh((s.length<<2)+4)[1];
    var dest = new Uint32Array(res[0]);
    for(var i=0;i!=s.length;i++)
        dest[i]=s.charCodeAt(i);
    dest[i]=0;
    return res;
};
var $hs_fromUtf32 = function(s) {
    var res = "";
    var src = new Uint32Array(s[0],s[1]);
    var len = src[src.length-1] === 0 ? src.length - 1 : src.length;
    for(var i=0;i!=len;i++)
        res=res+String.fromCharCode(src[i]);
    return res;
};
var $hs_ascii = function(s) {
    var res = $hs_newByteArrayzh(s.length+1)[1];
    var dest = new Uint8Array(res[0]);
    for(var i=0;i!=s.length;i++)
        dest[i]=s.charCodeAt(i);
    dest[i]=0;
    return res;
};
var integer_cmm_cmpIntegerzh = function(sa, abits, sb, bbits) {
    if(WORD_SIZE_IN_BITS==32) {
        return $hs_gmpToGoog(sa, abits).compare($hs_gmpToGoog(sb, bbits));
    }
    else {
        return goog.math.Long.fromNumber($hs_gmpToGoog(sa, abits).compare(
            $hs_gmpToGoog(sb, bbits)));
    }
};
var integer_cmm_cmpIntegerIntzh = function(sa, abits, b) {
    if(WORD_SIZE_IN_BITS==32) {
        return $hs_gmpToGoog(sa, abits).compare(goog.math.Integer.fromInt(b));
    }
    else {
        return goog.math.Long.fromNumber($hs_gmpToGoog(sa, abits).compare(
            goog.math.Integer.fromBits([b.getLowBits(), b.getHighBits()])));
    }
};
var integer_cmm_plusIntegerzh = function(sa, abits, sb, bbits) {
    return $hs_googToGMP($hs_gmpToGoog(sa, abits).add($hs_gmpToGoog(sb, bbits)));
};
var integer_cmm_minusIntegerzh = function(sa, abits, sb, bbits) {
    return $hs_googToGMP($hs_gmpToGoog(sa, abits).subtract($hs_gmpToGoog(sb, bbits)));
};
var integer_cmm_timesIntegerzh = function(sa, abits, sb, bbits) {
    return $hs_googToGMP($hs_gmpToGoog(sa, abits).multiply($hs_gmpToGoog(sb, bbits)));
};
var integer_cmm_quotRemIntegerzh = function(sa, abits, sb, bbits) {
    var a = $hs_gmpToGoog(sa, abits);
    var b = $hs_gmpToGoog(sb, bbits)
    var q = a.divide(b);
    var r = a.subtract(q.multiply(b));
    return $hs_googToGMP(q).concat($hs_googToGMP(r));
};
var integer_cmm_quotIntegerzh = function(sa, abits, sb, bbits) {
    return $hs_googToGMP($hs_gmpToGoog(sa, abits).divide($hs_gmpToGoog(sb, bbits)));
};
var integer_cmm_remIntegerzh = function(sa, abits, sb, bbits) {
    return $hs_googToGMP($hs_gmpToGoog(sa, abits).modulo($hs_gmpToGoog(sb, bbits)));
};
var integer_cmm_divModIntegerzh = function(sa, abits, sb, bbits) {
    var a = $hs_gmpToGoog(sa, abits);
    var b = $hs_gmpToGoog(sb, bbits);
    var d = a.divide(b);
    var m = a.subtract(d.multiply(b));
    if(a.isNegative()!==b.isNegative() && !m.isZero()) {
        // Take one off d and add b onto m
        d = d.add(goog.math.Integer.fromInt(-1));
        m = m.add(b);
    }
    return $hs_googToGMP(d).concat($hs_googToGMP(m));
};
var integer_cmm_divExactIntegerzh = function(sa, abits, sb, bbits) {
    return $hs_googToGMP($hs_gmpToGoog(sa, abits).divide($hs_gmpToGoog(sb, bbits)));
};
var $hs_gcd = function(a, b) {
    var x = $hs_absolute(a);
    var y = $hs_absolute(b);
    var big, small;
    if(x.lessThan(y)) {
        small = x;
        big = y;
    }
    else {
        small = x;
        big = y;
    }
    while(!small.isZero()) {
        var q = big.divide(small);
        var r = big.subtract(q.multiply(small));
        big = small;
        small = r;
    }
    return $hs_googToGMP(big);
};
var integer_cmm_gcdIntegerzh = function(sa, abits, sb, bbits) {
    return $hs_gcd($hs_gmpToGoog(sa, abits), $hs_gmpToGoog(sb, bbits));
};
var integer_cmm_gcdIntegerIntzh = function(sa, abits, b) {
    if(WORD_SIZE_IN_BITS==32) {
        return $hs_gcd($hs_gmpToGoog(sa, abits), goog.math.Integer.fromInt(b));
    }
    else {
        return $hs_gcd($hs_gmpToGoog(sa, abits),
            goog.math.Integer.fromBits([b.getLowBits(), b.getHighBits()]));
    }
};
var integer_cmm_gcdIntzh = function(a, b) {
    if(WORD_SIZE_IN_BITS==32) {
        var x = a<0 ? -a : a;
        var y = b<0 ? -b : b;
        var big, small;
        if(x<y) {
            small = x;
            big = y;
        }
        else {
            small = x;
            big = y;
        }
        while(small!==0) {
            var r = big % small;
            big = small;
            small = r;
        }
        return big;
    }
    else {
        var x = a.isNegative() ? a.negate() : a;
        var y = b.isNegative() ? b.negate() : b;
        var big, small;
        if(x.lessThan(y)) {
            small = x;
            big = y;
        }
        else {
            small = x;
            big = y;
        }
        while(!small.isZero()) {
            var q = big.divide(small);
            var r = big.subtract(q.multiply(small));
            big = small;
            small = r;
        }
        return big;
    }
};
var integer_cmm_decodeDoublezh = function(x) {
    if( x < 0 ) {
        var result = integer_cmm_decodeDoublezh(-x);
        return [result[0], -result[1], result[2]];
    }
    var negExponent = 52-Math.floor(Math.log(x) * 1.4426950408889634); // 1/log(2)
    return [-negExponent].concat($hs_googToGMP(
        goog.math.Integer.fromNumber(x * Math.pow(2, negExponent))));
};
var integer_cmm_int2Integerzh = function(i) {
    if(WORD_SIZE_IN_BITS==32) {
        return $hs_googToGMP(goog.math.Integer.fromInt(i));
    }
    else {
        return $hs_googToGMP(
            goog.math.Integer.fromBits([i.getLowBits(), i.getHighBits()]));
    }
};
var integer_cmm_word2Integerzh = function(i) {
    if(WORD_SIZE_IN_BITS==32) {
        return $hs_googToGMP(goog.math.Integer.fromBits(i<0?[0,i]:[i]));
    }
    else {
        return $hs_googToGMP(goog.math.Integer.fromBits(
            i.isNegative()?[0, i.getLowBits(), i.getHighBits()]
                          :[   i.getLowBits(), i.getHighBits()]));
    }
};
var integer_cmm_andIntegerzh = function(sa, abits, sb, bbits) {
    return $hs_googToGMP($hs_gmpToGoog(sa, abits).and($hs_gmpToGoog(sb, bbits)));
};
var integer_cmm_orIntegerzh = function(sa, abits, sb, bbits) {
    return $hs_googToGMP($hs_gmpToGoog(sa, abits).or($hs_gmpToGoog(sb, bbits)));
};
var integer_cmm_xorIntegerzh = function(sa, abits, sb, bbits) {
    return $hs_googToGMP($hs_gmpToGoog(sa, abits).xor($hs_gmpToGoog(sb, bbits)));
};
var integer_cmm_mul2ExpIntegerzh = function(sa, abits, b) {
    return $hs_googToGMP($hs_gmpToGoog(sa, abits).shiftLeft(b));
};
var integer_cmm_fdivQ2ExpIntegerzh = function(sa, abits, b) {
    return $hs_googToGMP($hs_gmpToGoog(sa, abits).shiftRight(b));
};
var integer_cmm_complementIntegerzh = function(sa, abits) {
    return $hs_googToGMP($hs_gmpToGoog(sa, abits).not());
};
var integer_cmm_int64ToIntegerzh = function(a) {
    return $hs_googToGMP(goog.math.Integer.fromBits([a.getLowBits(), a.getHighBits()]));
};
var integer_cmm_word64ToIntegerzh = function(a) {
    return $hs_googToGMP(goog.math.Integer.fromBits(
            a.isNegative()?[0, a.getLowBits(), a.getHighBits()]
                          :[   a.getLowBits(), a.getHighBits()]));
};
var hs_integerToInt64 = function(as, abits) {
    var a = $hs_gmpToGoog(as, abits);
    return goog.math.Long.fromBits(a.getBits(0), a.getBits(1));
};
var hs_integerToWord64 = function(as, abits) {
    var a = $hs_gmpToGoog(as, abits);
    return goog.math.Long.fromBits(a.getBits(0), a.getBits(1));
};
/**
 * @param {!Array.<Object>}     dest
 * @param {!number}             doff
 * @param {!Array.<Object>}     src
 * @param {!number}             soff
 * @param {!number}             count
 */
var _hs_text_memcpy = function (dest, doff, src, soff, count) {
    var srcarray = new Uint16Array(src[0],src[1]);
    var destarray = new Uint16Array(dest[0],dest[1]);
    while(count != 0) {
        destarray[doff] = srcarray[soff];
        soff++;
        doff++;
        count--;
    }
};
var _hs_text_memcmp = function(a, aoff, b, boff, count) {
    var aarray = new Uint16Array(a[0],a[1]);
    var barray = new Uint16Array(b[0],b[1]);
    while(count != 0) {
        if( aarray[aoff] < barray[boff] )
            return -1;
        if( aarray[aoff] > barray[boff] )
            return 1;
        aoff++;
        boff++;
        count--;
    }
    return 0;
};
/**
 * @define {number} size of Word and Int. If 64 we use goog.math.Long.
 */
var $hs_UTF8_ACCEPT = 0;
/**
 * @define {number} size of Word and Int. If 64 we use goog.math.Long.
 */
var $hs_UTF8_REJECT = 12

var $hs_utf8d =
   [
  /*
   * The first part of the table maps bytes to character classes that
   * to reduce the size of the transition table and create bitmasks.
   */
   0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
   0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
   0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
   0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
   1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,  9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,
   7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,  7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
   8,8,2,2,2,2,2,2,2,2,2,2,2,2,2,2,  2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
  10,3,3,3,3,3,3,3,3,3,3,3,3,4,3,3, 11,6,6,6,5,8,8,8,8,8,8,8,8,8,8,8,

  /*
   * The second part is a transition table that maps a combination of
   * a state of the automaton and a character class to a state.
   */
   0,12,24,36,60,96,84,12,12,12,48,72, 12,12,12,12,12,12,12,12,12,12,12,12,
  12, 0,12,12,12,12,12, 0,12, 0,12,12, 12,24,12,12,12,12,12,24,12,24,12,12,
  12,12,12,12,12,12,12,24,12,12,12,12, 12,24,12,12,12,12,12,12,12,24,12,12,
  12,12,12,12,12,12,12,36,12,36,12,12, 12,36,12,12,12,12,12,36,12,36,12,12,
  12,36,12,12,12,12,12,12,12,12,12,12];

var $hs_decode = function(state, cp, b) {
  var type = $hs_utf8d[b];

  var codep = (state != $hs_UTF8_ACCEPT) ?
    (b & 0x3f) | (cp << 6) :
    (0xff >>> type) & b;

  return [$hs_utf8d[256 + state + type], codep];
};
/*
 * A best-effort decoder. Runs until it hits either end of input or
 * the start of an invalid byte sequence.
 *
 * At exit, updates *destoff with the next offset to write to, and
 * returns the next source offset to read from.
 */
var _hs_text_decode_utf8 = function(dest, doffptr, src, srcend)
{
    // Assumes src[0] is srcend[0]
    var srcarray = new Uint8Array(src[0],0);
    var s = src[1];
    var send = srcend[1];
    var destarray = new Uint16Array(dest[0],dest[1]);
    // Should really check the size of size_t and CSize here somehow
    var doffArray = new Uint32Array(doffptr[0], doffptr[1]);
    var doff = doffArray[0];
    var state = $hs_UTF8_ACCEPT;

    var codepoint = 0;
    while (s != srcend) {
        if ($hs_decode(state, codepoint, srcarray[s++]) != $hs_UTF8_ACCEPT) {
            if (state != $hs_UTF8_REJECT)
                continue;
            break;
        }

        if ((codepoint >>> 0) <= 0xffff)
            destarray[doff++] = codepoint;
        else {
            destarray[doff++] = 0xD7C0 + (codepoint >>> 10);
            destarray[doff++] = 0xDC00 + (codepoint & 0x3FF);
        }
    }

    /* Error recovery - if we're not in a valid finishing state, back up. */
    if (state != $hs_UTF8_ACCEPT)
        s -= 1;

    doffArray[0] = doff;

    return [src[0], s, src[2] + (s - src[1])];
};
var memcpy = function(dest, src, count) {
    if(typeof(src) === 'string') {
        var destarray = new Uint8Array(dest[0],dest[1]);
        var soff = 0;
        var doff = 0;
        while(count != 0) {
            destarray[doff] = src[soff];
            soff++;
            doff++;
            count--;
        }
        return dest;
    }
    else {
        var destarray = new Uint8Array(dest[0],dest[1]);
        var srcarray = new Uint8Array(src[0],src[1]);
        var doff = 0;
        var soff = 0;
        while(count != 0) {
            destarray[doff] = srcarray[soff];
            soff++;
            doff++;
            count--;
        }
        return dest;
    }
};
var memcmp = function(a, b, count) {
    if(typeof(a) === 'string') {
        if(typeof(b) === 'string') {
            var x = a.slice(0,count).localeCompare(b.slice(0,count));
            return x === 0 ? 0 : (x < 0 ? -1 : 1);
        }
        var barray = new Uint8Array(b[0],b[1]);
        var aoff = 0;
        var boff = 0;
        while(count != 0) {
            if( a[aoff] < barray[boff] )
                return -1;
            if( a[aoff] > barray[boff] )
                return 1;
            aoff++;
            boff++;
            count--;
        }
        return 0;
    }
    else {
        if(typeof(b) === 'string') {
            var aarray = new Uint8Array(a[0],a[1]);
            var aoff = 0;
            var boff = 0;
            while(count != 0) {
                if( aarray[aoff] < b[boff] )
                    return -1;
                if( aarray[aoff] > b[boff] )
                    return 1;
                aoff++;
                boff++;
                count--;
            }
            return 0;
        }
        var aarray = new Uint8Array(a[0],a[1]);
        var barray = new Uint8Array(b[0],b[1]);
        var aoff = 0;
        var boff = 0;
        while(count != 0) {
            if( aarray[aoff] < barray[boff] )
                return -1;
            if( aarray[aoff] > barray[boff] )
                return 1;
            aoff++;
            boff++;
            count--;
        }
        return 0;
    }
};
var u_iswalpha = function(a) {
    return goog.string.isAlpha(String.fromCharCode(a)) ?
        (WORD_SIZE_IN_BITS == 32 ? 1 : goog.math.Long.ONE)
       :(WORD_SIZE_IN_BITS == 32 ? 0 : goog.math.Long.ZERO);
};
var u_iswalnum = function(a) {
    return goog.string.isAlphaNumeric(String.fromCharCode(a)) ?
        (WORD_SIZE_IN_BITS == 32 ? 1 : goog.math.Long.ONE)
       :(WORD_SIZE_IN_BITS == 32 ? 0 : goog.math.Long.ZERO);
};
var u_iswspace = function(a) {
    return goog.string.isSpace(String.fromCharCode(a)) ?
        (WORD_SIZE_IN_BITS == 32 ? 1 : goog.math.Long.ONE)
       :(WORD_SIZE_IN_BITS == 32 ? 0 : goog.math.Long.ZERO);
};
var u_iswlower = function(a) {
    return a === u_towupper(a) ?
        (WORD_SIZE_IN_BITS == 32 ? 1 : goog.math.Long.ONE)
       :(WORD_SIZE_IN_BITS == 32 ? 0 : goog.math.Long.ZERO);
};
var u_iswupper = function(a) {
    return a === u_towlower(a) ?
        (WORD_SIZE_IN_BITS == 32 ? 1 : goog.math.Long.ONE)
       :(WORD_SIZE_IN_BITS == 32 ? 0 : goog.math.Long.ZERO);
};
var u_towlower = function(a) { return String.fromCharCode(a).toLowerCase().charCodeAt(); };
var u_towupper = function(a) { return String.fromCharCode(a).toUpperCase().charCodeAt(); };
var rtsSupportsBoundThreads = function () { return 0; };
var getOrSetGHCConcSignalSignalHandlerStore = function (x) { return x; };
var stg_sig_install = function(a,b,c) { return -1; };
var localeEncoding = function() { return $hs_ascii("UTF-32LE"); };
var hs_iconv_open = function(to,from) { return 1; };
var hs_iconv_close = function(h) { return 0; };

var $hs_unsignedCompare = function(a,b) {
    if (a.equals(b)) return 0;

    var aneg = a.isNegative();
    var bneg = b.isNegative();
    if (aneg && !bneg) return 1;
    if (!aneg && bneg) return -1;

    return a.subtract(b).isNegative() ? -1 : 1;
};


if(WORD_SIZE_IN_BITS == 32) {
    // Safer 32 bit multiplication than just a * b
    var $hs_timesIntzh = function(a, b) {
       return goog.math.Long(a,0).multiply(goog.math.Long(b,0)).getLowBits(); };
}

if(WORD_SIZE_IN_BITS == 64) {
    // Int primatives for 64bit
    var $hs_quotIntzh = function(a, b) {
       return a.div(b); };
    var $hs_remIntzh = function(a, b) {
       return a.modulo(b); };
    var $hs_int2Wordzh = function(a) {
       return a; };
    var $hs_int2Floatzh = function(a) {
       return a.toNumber(); };
    var $hs_int2Doublezh = function(a) {
       return a.toNumber(); };
    var $hs_uncheckedIShiftLzh = function(a, b) {
       return a.shiftLeft(b.toNumber()); };
    var $hs_uncheckedIShiftRAzh = function(a, b) {
       return a.shiftRight(b.toNumber()); };
    var $hs_uncheckedIShiftRLzh = function(a, b) {
       return a.shiftRight(b.toNumber()); };

    // Word primatives for 64bit
    var $hs_quotWordzh = function(a, b) {
       return a.div(b); };   // TODO make unsigned
    var $hs_remWordzh = function(a, b) {
       return a.modulo(b); }; // TODO make unsigned
    var $hs_uncheckedShiftLzh = function(a, b) {
       return a.shiftLeft(b.toNumber()); };
    var $hs_uncheckedShif…