// This program was compiled from OCaml by js_of_ocaml 1.0
function caml_raise_with_arg (tag, arg) { throw [0, tag, arg]; }
function caml_raise_with_string (tag, msg) {
  caml_raise_with_arg (tag, new MlWrappedString (msg));
}
function caml_invalid_argument (msg) {
  caml_raise_with_string(caml_global_data[4], msg);
}
function caml_array_bound_error () {
  caml_invalid_argument("index out of bounds");
}
function caml_str_repeat(n, s) {
  if (!n) { return ""; }
  if (n & 1) { return caml_str_repeat(n - 1, s) + s; }
  var r = caml_str_repeat(n >> 1, s);
  return r + r;
}
function MlString(param) {
  if (param != null) {
    this.bytes = this.fullBytes = param;
    this.last = this.len = param.length;
  }
}
MlString.prototype = {
  string:null,
  bytes:null,
  fullBytes:null,
  array:null,
  len:null,
  last:0,
  toJsString:function() {
    return this.string = decodeURIComponent (escape(this.getFullBytes()));
  },
  toBytes:function() {
    if (this.string != null)
      var b = unescape (encodeURIComponent (this.string));
    else {
      var b = "", a = this.array, l = a.length;
      for (var i = 0; i < l; i ++) b += String.fromCharCode (a[i]);
    }
    this.bytes = this.fullBytes = b;
    this.last = this.len = b.length;
    return b;
  },
  getBytes:function() {
    var b = this.bytes;
    if (b == null) b = this.toBytes();
    return b;
  },
  getFullBytes:function() {
    var b = this.fullBytes;
    if (b !== null) return b;
    b = this.bytes;
    if (b == null) b = this.toBytes ();
    if (this.last < this.len) {
      this.bytes = (b += caml_str_repeat(this.len - this.last, '\0'));
      this.last = this.len;
    }
    this.fullBytes = b;
    return b;
  },
  toArray:function() {
    var b = this.bytes;
    if (b == null) b = this.toBytes ();
    var a = [], l = this.last;
    for (var i = 0; i < l; i++) a[i] = b.charCodeAt(i);
    for (l = this.len; i < l; i++) a[i] = 0;
    this.string = this.bytes = this.fullBytes = null;
    this.last = this.len;
    this.array = a;
    return a;
  },
  getArray:function() {
    var a = this.array;
    if (!a) a = this.toArray();
    return a;
  },
  getLen:function() {
    var len = this.len;
    if (len !== null) return len;
    this.toBytes();
    return this.len;
  },
  toString:function() { var s = this.string; return s?s:this.toJsString(); },
  valueOf:function() { var s = this.string; return s?s:this.toJsString(); },
  blitToArray:function(i1, a2, i2, l) {
    var a1 = this.array;
    if (a1)
      for (var i = 0; i < l; i++) a2 [i2 + i] = a1 [i1 + i];
    else {
      var b = this.bytes;
      if (b == null) b = this.toBytes();
      var l1 = this.last - i1;
      if (l <= l1)
        for (var i = 0; i < l; i++) a2 [i2 + i] = b.charCodeAt(i1 + i);
      else {
        for (var i = 0; i < l1; i++) a2 [i2 + i] = b.charCodeAt(i1 + i);
        for (; i < l; i++) a2 [i2 + i] = 0;
      }
    }
  },
  get:function (i) {
    var a = this.array;
    if (a) return a[i];
    var b = this.bytes;
    if (b == null) b = this.toBytes();
    return (i<this.last)?b.charCodeAt(i):0;
  },
  safeGet:function (i) {
    if (!this.len) this.toBytes();
    if ((i < 0) || (i >= this.len)) caml_array_bound_error ();
    return this.get(i);
  },
  set:function (i, c) {
    var a = this.array;
    if (!a) {
      if (this.last == i) {
        this.bytes += String.fromCharCode (c & 0xff);
        this.last ++;
        return 0;
      }
      a = this.toArray();
    } else if (this.bytes != null) {
      this.bytes = this.fullBytes = this.string = null;
    }
    a[i] = c & 0xff;
    return 0;
  },
  safeSet:function (i, c) {
    if (this.len == null) this.toBytes ();
    if ((i < 0) || (i >= this.len)) caml_array_bound_error ();
    this.set(i, c);
  },
  fill:function (ofs, len, c) {
    if (ofs >= this.last && this.last && c == 0) return;
    var a = this.array;
    if (!a) a = this.toArray();
    else if (this.bytes != null) {
      this.bytes = this.fullBytes = this.string = null;
    }
    var l = ofs + len;
    for (var i = ofs; i < l; i++) a[i] = c;
  },
  compare:function (s2) {
    if (this.string != null && s2.string != null) {
      if (this.string < s2.string) return -1;
      if (this.string > s2.string) return 1;
      return 0;
    }
    var b1 = this.getFullBytes ();
    var b2 = s2.getFullBytes ();
    if (b1 < b2) return -1;
    if (b1 > b2) return 1;
    return 0;
  },
  equal:function (s2) {
    if (this.string != null && s2.string != null)
      return this.string == s2.string;
    return this.getFullBytes () == s2.getFullBytes ();
  },
  lessThan:function (s2) {
    if (this.string != null && s2.string != null)
      return this.string < s2.string;
    return this.getFullBytes () < s2.getFullBytes ();
  },
  lessEqual:function (s2) {
    if (this.string != null && s2.string != null)
      return this.string <= s2.string;
    return this.getFullBytes () <= s2.getFullBytes ();
  }
}
function MlWrappedString (s) { this.string = s; }
MlWrappedString.prototype = new MlString();
function MlMakeString (l) { this.bytes = ""; this.len = l; }
MlMakeString.prototype = new MlString ();
function caml_array_get (array, index) {
  if ((index < 0) || (index >= array.length - 1)) caml_array_bound_error();
  return array[index+1];
}
function caml_array_set (array, index, newval) {
  if ((index < 0) || (index >= array.length - 1)) caml_array_bound_error();
  array[index+1]=newval; return 0;
}
function caml_blit_string(s1, i1, s2, i2, len) {
  if (len === 0) return;
  if (i2 === s2.last && s2.bytes != null) {
    var b = s1.bytes;
    if (b == null) b = s1.toBytes ();
    if (i1 > 0 || s1.last > len) b = b.slice(i1, i1 + len);
    s2.bytes += b;
    s2.last += b.length;
    return;
  }
  var a = s2.array;
  if (!a) a = s2.toArray(); else { s2.bytes = s2.string = null; }
  s1.blitToArray (i1, a, i2, len);
}
function caml_call_gen(f, args) {
  if(f.fun)
    return caml_call_gen(f.fun, args);
  var n = f.length;
  var d = n - args.length;
  if (d == 0)
    return f.apply(null, args);
  else if (d < 0)
    return caml_call_gen(f.apply(null, args.slice(0,n)), args.slice(n));
  else
    return function (x){ return caml_call_gen(f, args.concat([x])); };
}
function caml_classify_float (x) {
  if (isFinite (x)) {
    if (Math.abs(x) >= 2.2250738585072014e-308) return 0;
    if (x != 0) return 1;
    return 2;
  }
  return isNaN(x)?4:3;
}
function caml_create_string(len) {
  if (len < 0) caml_invalid_argument("String.create");
  return new MlMakeString(len);
}
function caml_int64_compare(x,y) {
  var x3 = x[3] << 16;
  var y3 = y[3] << 16;
  if (x3 > y3) return 1;
  if (x3 < y3) return -1;
  if (x[2] > y[2]) return 1;
  if (x[2] < y[2]) return -1;
  if (x[1] > y[1]) return 1;
  if (x[1] < y[1]) return -1;
  return 0;
}
function caml_int_compare (a, b) {
  if (a < b) return (-1); if (a == b) return 0; return 1;
}
function caml_compare_val (a, b, total) {
  var stack = [];
  for(;;) {
    if (!(total && a === b)) {
      if (a instanceof MlString) {
        if (b instanceof MlString) {
            if (a != b) {
		var x = a.compare(b);
		if (x != 0) return x;
	    }
        } else
          return 1;
      } else if (a instanceof Array && a[0] === (a[0]|0)) {
        var ta = a[0];
        if (ta === 250) {
          a = a[1];
          continue;
        } else if (b instanceof Array && b[0] === (b[0]|0)) {
          var tb = b[0];
          if (tb === 250) {
            b = b[1];
            continue;
          } else if (ta != tb) {
            return (ta < tb)?-1:1;
          } else {
            switch (ta) {
            case 248: {
		var x = caml_int_compare(a[2], b[2]);
		if (x != 0) return x;
		break;
	    }
            case 255: {
		var x = caml_int64_compare(a, b);
		if (x != 0) return x;
		break;
	    }
            default:
              if (a.length != b.length) return (a.length < b.length)?-1:1;
              if (a.length > 1) stack.push(a, b, 1);
            }
          }
        } else
          return 1;
      } else if (b instanceof MlString ||
                 (b instanceof Array && b[0] === (b[0]|0))) {
        return -1;
      } else {
        if (a < b) return -1;
        if (a > b) return 1;
        if (total && a != b) {
          if (a == a) return 1;
          if (b == b) return -1;
        }
      }
    }
    if (stack.length == 0) return 0;
    var i = stack.pop();
    b = stack.pop();
    a = stack.pop();
    if (i + 1 < a.length) stack.push(a, b, i + 1);
    a = a[i];
    b = b[i];
  }
}
function caml_equal (x, y) { return +(caml_compare_val(x,y,false) == 0); }
function caml_fill_string(s, i, l, c) { s.fill (i, l, c); }
function caml_parse_format (fmt) {
  fmt = fmt.toString ();
  var len = fmt.length;
  if (len > 31) caml_invalid_argument("format_int: format too long");
  var f =
    { justify:'+', signstyle:'-', filler:' ', alternate:false,
      base:0, signedconv:false, width:0, uppercase:false,
      sign:1, prec:6, conv:'f' };
  for (var i = 0; i < len; i++) {
    var c = fmt.charAt(i);
    switch (c) {
    case '-':
      f.justify = '-'; break;
    case '+': case ' ':
      f.signstyle = c; break;
    case '0':
      f.filler = '0'; break;
    case '#':
      f.alternate = true; break;
    case '1': case '2': case '3': case '4': case '5':
    case '6': case '7': case '8': case '9':
      f.width = 0;
      while (c=fmt.charCodeAt(i) - 48, c >= 0 && c <= 9) {
        f.width = f.width * 10 + c; i++
      }
      i--;
     break;
    case '.':
      f.prec = 0;
      i++;
      while (c=fmt.charCodeAt(i) - 48, c >= 0 && c <= 9) {
        f.prec = f.prec * 10 + c; i++
      }
      i--;
    case 'd': case 'i':
      f.signedconv = true; /* fallthrough */
    case 'u':
      f.base = 10; break;
    case 'x':
      f.base = 16; break;
    case 'X':
      f.base = 16; f.uppercase = true; break;
    case 'o':
      f.base = 8; break;
    case 'e': case 'f': case 'g':
      f.signedconv = true; f.conv = c; break;
    case 'E': case 'F': case 'G':
      f.signedconv = true; f.uppercase = true;
      f.conv = c.toLowerCase (); break;
    }
  }
  return f;
}
function caml_finish_formatting(f, rawbuffer) {
  if (f.uppercase) rawbuffer = rawbuffer.toUpperCase();
  var len = rawbuffer.length;
  if (f.signedconv && (f.sign < 0 || f.signstyle != '-')) len++;
  if (f.alternate) {
    if (f.base == 8) len += 1;
    if (f.base == 16) len += 2;
  }
  var buffer = "";
  if (f.justify == '+' && f.filler == ' ')
    for (var i = len; i < f.width; i++) buffer += ' ';
  if (f.signedconv) {
    if (f.sign < 0) buffer += '-';
    else if (f.signstyle != '-') buffer += f.signstyle;
  }
  if (f.alternate && f.base == 8) buffer += '0';
  if (f.alternate && f.base == 16) buffer += "0x";
  if (f.justify == '+' && f.filler == '0')
    for (var i = len; i < f.width; i++) buffer += '0';
  buffer += rawbuffer;
  if (f.justify == '-')
    for (var i = len; i < f.width; i++) buffer += ' ';
  return new MlWrappedString (buffer);
}
function caml_format_float (fmt, x) {
  var s, f = caml_parse_format(fmt);
  if (x < 0) { f.sign = -1; x = -x; }
  if (isNaN(x)) { s = "nan"; f.filler = ' '; }
  else if (!isFinite(x)) { s = "inf"; f.filler = ' '; }
  else
    switch (f.conv) {
    case 'e':
      var s = x.toExponential(f.prec);
      var i = s.length;
      if (s.charAt(i - 3) == 'e')
        s = s.slice (0, i - 1) + '0' + s.slice (i - 1);
      break;
    case 'f':
      s = x.toFixed(f.prec); break;
    case 'g':
      var prec = f.prec?f.prec:1;
      s = x.toExponential(prec - 1);
      var j = s.indexOf('e');
      var exp = +s.slice(j + 1);
      if (exp < -4 || x.toFixed(0).length > prec) {
        var i = j - 1; while (s.charAt(i) == '0') i--;
        if (s.charAt(i) == '.') i--;
        s = s.slice(0, i + 1) + s.slice(j);
        i = s.length;
        if (s.charAt(i - 3) == 'e')
          s = s.slice (0, i - 1) + '0' + s.slice (i - 1);
        break;
      } else {
        var p = prec;
        if (exp < 0) { p -= exp + 1; s = x.toFixed(p); }
        else while (s = x.toFixed(p), s.length > prec + 1) p--;
        if (p) {
          var i = s.length - 1; while (s.charAt(i) == '0') i--;
          if (s.charAt(i) == '.') i--;
          s = s.slice(0, i + 1);
        }
      }
      break;
    }
  return caml_finish_formatting(f, s);
}
function caml_format_int(fmt, i) {
  if (fmt.toString() == "%d") return new MlWrappedString(""+i);
  var f = caml_parse_format(fmt);
  if (i < 0) { if (f.signedconv) { f.sign = -1; i = -i; } else i >>>= 0; }
  var s = i.toString(f.base);
  return caml_finish_formatting(f, s);
}
function caml_compare (a, b) { return caml_compare_val (a, b, true); }
function caml_greaterequal (x, y) { return +(caml_compare(x,y,false) >= 0); }
function caml_int64_is_negative(x) {
  return (x[3] << 16) < 0;
}
function caml_int64_neg (x) {
  var y1 = - x[1];
  var y2 = - x[2] + (y1 >> 24);
  var y3 = - x[3] + (y2 >> 24);
  return [255, y1 & 0xffffff, y2 & 0xffffff, y3 & 0xffff];
}
function caml_int64_of_int32 (x) {
  return [255, x & 0xffffff, (x >> 24) & 0xffffff, (x >> 31) & 0xffff]
}
function caml_int64_ucompare(x,y) {
  if (x[3] > y[3]) return 1;
  if (x[3] < y[3]) return -1;
  if (x[2] > y[2]) return 1;
  if (x[2] < y[2]) return -1;
  if (x[1] > y[1]) return 1;
  if (x[1] < y[1]) return -1;
  return 0;
}
function caml_int64_lsl1 (x) {
  x[3] = (x[3] << 1) | (x[2] >> 23);
  x[2] = ((x[2] << 1) | (x[1] >> 23)) & 0xffffff;
  x[1] = (x[1] << 1) & 0xffffff;
}
function caml_int64_lsr1 (x) {
  x[1] = ((x[1] >>> 1) | (x[2] << 23)) & 0xffffff;
  x[2] = ((x[2] >>> 1) | (x[3] << 23)) & 0xffffff;
  x[3] = x[3] >>> 1;
}
function caml_int64_sub (x, y) {
  var z1 = x[1] - y[1];
  var z2 = x[2] - y[2] + (z1 >> 24);
  var z3 = x[3] - y[3] + (z2 >> 24);
  return [255, z1 & 0xffffff, z2 & 0xffffff, z3 & 0xffff];
}
function caml_int64_udivmod (x, y) {
  var offset = 0;
  var modulus = x.slice ();
  var divisor = y.slice ();
  var quotient = [255, 0, 0, 0];
  while (caml_int64_ucompare (modulus, divisor) > 0) {
    offset++;
    caml_int64_lsl1 (divisor);
  }
  while (offset >= 0) {
    offset --;
    caml_int64_lsl1 (quotient);
    if (caml_int64_ucompare (modulus, divisor) >= 0) {
      quotient[1] ++;
      modulus = caml_int64_sub (modulus, divisor);
    }
    caml_int64_lsr1 (divisor);
  }
  return [0,quotient, modulus];
}
function caml_int64_to_int32 (x) {
  return x[1] | (x[2] << 24);
}
function caml_int64_is_zero(x) {
  return (x[3]|x[2]|x[1]) == 0;
}
function caml_int64_format (fmt, x) {
  var f = caml_parse_format(fmt);
  if (f.signedconv && caml_int64_is_negative(x)) {
    f.sign = -1; x = caml_int64_neg(x);
  }
  var buffer = "";
  var wbase = caml_int64_of_int32(f.base);
  var cvtbl = "0123456789abcdef";
  do {
    var p = caml_int64_udivmod(x, wbase);
    x = p[1];
    buffer = cvtbl.charAt(caml_int64_to_int32(p[2])) + buffer;
  } while (! caml_int64_is_zero(x));
  return caml_finish_formatting(f, buffer);
}
function caml_parse_sign_and_base (s) {
  var i = 0, base = 10, sign = s.get(0) == 45?(i++,-1):1;
  if (s.get(i) == 48)
    switch (s.get(i + 1)) {
    case 120: case 88: base = 16; i += 2; break;
    case 111: case 79: base =  8; i += 2; break;
    case  98: case 66: base =  2; i += 2; break;
    }
  return [i, sign, base];
}
function caml_parse_digit(c) {
  if (c >= 48 && c <= 57)  return c - 48;
  if (c >= 65 && c <= 90)  return c - 55;
  if (c >= 97 && c <= 122) return c - 87;
  return -1;
}
var caml_global_data = [0];
function caml_failwith (msg) {
  caml_raise_with_string(caml_global_data[3], msg);
}
function caml_int_of_string (s) {
  var r = caml_parse_sign_and_base (s);
  var i = r[0], sign = r[1], base = r[2];
  var threshold = -1 >>> 0;
  var c = s.get(i);
  var d = caml_parse_digit(c);
  if (d < 0 || d >= base) caml_failwith("int_of_string");
  var res = d;
  for (;;) {
    i++;
    c = s.get(i);
    if (c == 95) continue;
    d = caml_parse_digit(c);
    if (d < 0 || d >= base) break;
    res = base * res + d;
    if (res > threshold) caml_failwith("int_of_string");
  }
  if (i != s.getLen()) caml_failwith("int_of_string");
  res = sign * res;
  if ((res | 0) != res) caml_failwith("int_of_string");
  return res;
}
function caml_is_printable(c) { return +(c > 31 && c < 127); }
function caml_js_call(f, o, args) { return f.apply(o, args.slice(1)); }
var caml_js_regexps = { amp:/&/g, lt:/</g, quot:/\"/g, all:/[&<\"]/ };
function caml_js_html_escape (s) {
  if (!caml_js_regexps.all.test(s)) return s;
  return s.replace(caml_js_regexps.amp, "&amp;")
          .replace(caml_js_regexps.lt, "&lt;")
          .replace(caml_js_regexps.quot, "&quot;");
}
function caml_js_on_ie () {
  var ua = window.navigator?window.navigator.userAgent:"";
  return ua.indexOf("MSIE") != -1 && ua.indexOf("Opera") != 0;
}
function caml_js_wrap_callback(f) {
  var toArray = Array.prototype.slice;
  return function () {
    var args = (arguments.length > 0)?toArray.call (arguments):[undefined];
    return caml_call_gen(f, args);
  }
}
function caml_make_vect (len, init) {
  var b = [0]; for (var i = 1; i <= len; i++) b[i] = init; return b;
}
function MlStringFromArray (a) {
  var len = a.length; this.array = a; this.len = this.last = len;
}
MlStringFromArray.prototype = new MlString ();
var caml_md5_string =
function () {
  function add (x, y) { return (x + y) | 0; }
  function xx(q,a,b,x,s,t) {
    a = add(add(a, q), add(x, t));
    return add((a << s) | (a >>> (32 - s)), b);
  }
  function ff(a,b,c,d,x,s,t) {
    return xx((b & c) | ((~b) & d), a, b, x, s, t);
  }
  function gg(a,b,c,d,x,s,t) {
    return xx((b & d) | (c & (~d)), a, b, x, s, t);
  }
  function hh(a,b,c,d,x,s,t) { return xx(b ^ c ^ d, a, b, x, s, t); }
  function ii(a,b,c,d,x,s,t) { return xx(c ^ (b | (~d)), a, b, x, s, t); }
  function md5(buffer, length) {
    var i = length;
    buffer[i >> 2] |= 0x80 << (8 * (i & 3));
    for (i = (i & ~0x3) + 4;(i & 0x3F) < 56 ;i += 4)
      buffer[i >> 2] = 0;
    buffer[i >> 2] = length << 3;
    i += 4;
    buffer[i >> 2] = (length >> 29) & 0x1FFFFFFF;
    var w = [0x67452301, 0xEFCDAB89, 0x98BADCFE, 0x10325476];
    for(i = 0; i < buffer.length; i += 16) {
      var a = w[0], b = w[1], c = w[2], d = w[3];
      a = ff(a, b, c, d, buffer[i+ 0], 7, 0xD76AA478);
      d = ff(d, a, b, c, buffer[i+ 1], 12, 0xE8C7B756);
      c = ff(c, d, a, b, buffer[i+ 2], 17, 0x242070DB);
      b = ff(b, c, d, a, buffer[i+ 3], 22, 0xC1BDCEEE);
      a = ff(a, b, c, d, buffer[i+ 4], 7, 0xF57C0FAF);
      d = ff(d, a, b, c, buffer[i+ 5], 12, 0x4787C62A);
      c = ff(c, d, a, b, buffer[i+ 6], 17, 0xA8304613);
      b = ff(b, c, d, a, buffer[i+ 7], 22, 0xFD469501);
      a = ff(a, b, c, d, buffer[i+ 8], 7, 0x698098D8);
      d = ff(d, a, b, c, buffer[i+ 9], 12, 0x8B44F7AF);
      c = ff(c, d, a, b, buffer[i+10], 17, 0xFFFF5BB1);
      b = ff(b, c, d, a, buffer[i+11], 22, 0x895CD7BE);
      a = ff(a, b, c, d, buffer[i+12], 7, 0x6B901122);
      d = ff(d, a, b, c, buffer[i+13], 12, 0xFD987193);
      c = ff(c, d, a, b, buffer[i+14], 17, 0xA679438E);
      b = ff(b, c, d, a, buffer[i+15], 22, 0x49B40821);
      a = gg(a, b, c, d, buffer[i+ 1], 5, 0xF61E2562);
      d = gg(d, a, b, c, buffer[i+ 6], 9, 0xC040B340);
      c = gg(c, d, a, b, buffer[i+11], 14, 0x265E5A51);
      b = gg(b, c, d, a, buffer[i+ 0], 20, 0xE9B6C7AA);
      a = gg(a, b, c, d, buffer[i+ 5], 5, 0xD62F105D);
      d = gg(d, a, b, c, buffer[i+10], 9, 0x02441453);
      c = gg(c, d, a, b, buffer[i+15], 14, 0xD8A1E681);
      b = gg(b, c, d, a, buffer[i+ 4], 20, 0xE7D3FBC8);
      a = gg(a, b, c, d, buffer[i+ 9], 5, 0x21E1CDE6);
      d = gg(d, a, b, c, buffer[i+14], 9, 0xC33707D6);
      c = gg(c, d, a, b, buffer[i+ 3], 14, 0xF4D50D87);
      b = gg(b, c, d, a, buffer[i+ 8], 20, 0x455A14ED);
      a = gg(a, b, c, d, buffer[i+13], 5, 0xA9E3E905);
      d = gg(d, a, b, c, buffer[i+ 2], 9, 0xFCEFA3F8);
      c = gg(c, d, a, b, buffer[i+ 7], 14, 0x676F02D9);
      b = gg(b, c, d, a, buffer[i+12], 20, 0x8D2A4C8A);
      a = hh(a, b, c, d, buffer[i+ 5], 4, 0xFFFA3942);
      d = hh(d, a, b, c, buffer[i+ 8], 11, 0x8771F681);
      c = hh(c, d, a, b, buffer[i+11], 16, 0x6D9D6122);
      b = hh(b, c, d, a, buffer[i+14], 23, 0xFDE5380C);
      a = hh(a, b, c, d, buffer[i+ 1], 4, 0xA4BEEA44);
      d = hh(d, a, b, c, buffer[i+ 4], 11, 0x4BDECFA9);
      c = hh(c, d, a, b, buffer[i+ 7], 16, 0xF6BB4B60);
      b = hh(b, c, d, a, buffer[i+10], 23, 0xBEBFBC70);
      a = hh(a, b, c, d, buffer[i+13], 4, 0x289B7EC6);
      d = hh(d, a, b, c, buffer[i+ 0], 11, 0xEAA127FA);
      c = hh(c, d, a, b, buffer[i+ 3], 16, 0xD4EF3085);
      b = hh(b, c, d, a, buffer[i+ 6], 23, 0x04881D05);
      a = hh(a, b, c, d, buffer[i+ 9], 4, 0xD9D4D039);
      d = hh(d, a, b, c, buffer[i+12], 11, 0xE6DB99E5);
      c = hh(c, d, a, b, buffer[i+15], 16, 0x1FA27CF8);
      b = hh(b, c, d, a, buffer[i+ 2], 23, 0xC4AC5665);
      a = ii(a, b, c, d, buffer[i+ 0], 6, 0xF4292244);
      d = ii(d, a, b, c, buffer[i+ 7], 10, 0x432AFF97);
      c = ii(c, d, a, b, buffer[i+14], 15, 0xAB9423A7);
      b = ii(b, c, d, a, buffer[i+ 5], 21, 0xFC93A039);
      a = ii(a, b, c, d, buffer[i+12], 6, 0x655B59C3);
      d = ii(d, a, b, c, buffer[i+ 3], 10, 0x8F0CCC92);
      c = ii(c, d, a, b, buffer[i+10], 15, 0xFFEFF47D);
      b = ii(b, c, d, a, buffer[i+ 1], 21, 0x85845DD1);
      a = ii(a, b, c, d, buffer[i+ 8], 6, 0x6FA87E4F);
      d = ii(d, a, b, c, buffer[i+15], 10, 0xFE2CE6E0);
      c = ii(c, d, a, b, buffer[i+ 6], 15, 0xA3014314);
      b = ii(b, c, d, a, buffer[i+13], 21, 0x4E0811A1);
      a = ii(a, b, c, d, buffer[i+ 4], 6, 0xF7537E82);
      d = ii(d, a, b, c, buffer[i+11], 10, 0xBD3AF235);
      c = ii(c, d, a, b, buffer[i+ 2], 15, 0x2AD7D2BB);
      b = ii(b, c, d, a, buffer[i+ 9], 21, 0xEB86D391);
      w[0] = add(a, w[0]);
      w[1] = add(b, w[1]);
      w[2] = add(c, w[2]);
      w[3] = add(d, w[3]);
    }
    var t = [];
    for (var i = 0; i < 4; i++)
      for (var j = 0; j < 4; j++)
        t[i * 4 + j] = (w[i] >> (8 * j)) & 0xFF;
    return t;
  }
  return function (s, ofs, len) {
    var buf = [];
    if (s.array) {
      var a = s.array;
      for (var i = 0; i < len; i+=4) {
        var j = i + ofs;
        buf[i>>2] = a[j] | (a[j+1] << 8) | (a[j+2] << 16) | (a[j+3] << 24);
      }
      for (; i < len; i++) buf[i>>2] |= a[i + ofs] << (8 * (i & 3));
    } else {
      var b = s.getFullBytes();
      for (var i = 0; i < len; i+=4) {
        var j = i + ofs;
        buf[i>>2] =
          b.charCodeAt(j) | (b.charCodeAt(j+1) << 8) |
          (b.charCodeAt(j+2) << 16) | (b.charCodeAt(j+3) << 24);
      }
      for (; i < len; i++) buf[i>>2] |= b.charCodeAt(i + ofs) << (8 * (i & 3));
    }
    return new MlStringFromArray(md5(buf, len));
  }
} ();
function caml_ml_out_channels_list () { return 0; }
function caml_raise_constant (tag) { throw [0, tag]; }
function caml_raise_zero_divide () {
  caml_raise_constant(caml_global_data[6]);
}
function caml_mod(x,y) {
  if (y == 0) caml_raise_zero_divide ();
  return x%y;
}
function caml_mul(x,y) {
  return ((((x >> 16) * y) << 16) + (x & 0xffff) * y)|0;
}
function caml_register_global (n, v) { caml_global_data[n + 1] = v; }
var caml_named_values = {};
function caml_register_named_value(nm,v) {
  caml_named_values[nm] = v; return 0;
}
function caml_sys_get_config () {
  return [0, new MlWrappedString("Unix"), 32];
}
function caml_update_dummy (x, y) {
  if( typeof y==="function" ) { x.fun = y; return 0; }
  if( y.fun ) { x.fun = y.fun; return 0; }
  var i = y.length; while (i--) x[i] = y[i]; return 0;
}
(function()
   {function _g7_(_pz_,_pA_,_pB_,_pC_,_pD_,_pE_,_pF_)
     {return _pz_.length==6
              ?_pz_(_pA_,_pB_,_pC_,_pD_,_pE_,_pF_)
              :caml_call_gen(_pz_,[_pA_,_pB_,_pC_,_pD_,_pE_,_pF_]);}
    function _cR_(_pv_,_pw_,_px_,_py_)
     {return _pv_.length==3
              ?_pv_(_pw_,_px_,_py_)
              :caml_call_gen(_pv_,[_pw_,_px_,_py_]);}
    function _dj_(_ps_,_pt_,_pu_)
     {return _ps_.length==2?_ps_(_pt_,_pu_):caml_call_gen(_ps_,[_pt_,_pu_]);}
    function _a6_(_pq_,_pr_)
     {return _pq_.length==1?_pq_(_pr_):caml_call_gen(_pq_,[_pr_]);}
    var
     _a_=[0,new MlString("Failure")],
     _b_=[0,new MlString("Invalid_argument")],
     _c_=[0,new MlString("Assert_failure")];
    caml_register_global(5,[0,new MlString("Division_by_zero")]);
    caml_register_global(3,_b_);
    caml_register_global(2,_a_);
    var
     _aN_=new MlString("%.12g"),
     _aM_=new MlString("."),
     _aL_=new MlString("%d"),
     _aK_=new MlString("true"),
     _aJ_=new MlString("false"),
     _aI_=new MlString("Pervasives.do_at_exit"),
     _aH_=new MlString("\\b"),
     _aG_=new MlString("\\t"),
     _aF_=new MlString("\\n"),
     _aE_=new MlString("\\r"),
     _aD_=new MlString("\\\\"),
     _aC_=new MlString("\\'"),
     _aB_=new MlString("String.blit"),
     _aA_=new MlString("String.sub"),
     _az_=new MlString("Buffer.add: cannot grow buffer"),
     _ay_=new MlString("%"),
     _ax_=new MlString(""),
     _aw_=new MlString(""),
     _av_=new MlString("\""),
     _au_=new MlString("\""),
     _at_=new MlString("'"),
     _as_=new MlString("'"),
     _ar_=new MlString("."),
     _aq_=new MlString("printf: bad positional specification (0)."),
     _ap_=new MlString("%_"),
     _ao_=[0,new MlString("printf.ml"),144,8],
     _an_=new MlString("''"),
     _am_=new MlString("Printf: premature end of format string ``"),
     _al_=new MlString("''"),
     _ak_=new MlString(" in format string ``"),
     _aj_=new MlString(", at char number "),
     _ai_=new MlString("Printf: bad conversion %"),
     _ah_=new MlString("Sformat.index_of_int: negative argument "),
     _ag_=new MlString("x"),
     _af_=[0,new MlString("src/core/lwt.ml"),573,20],
     _ae_=[0,new MlString("src/core/lwt.ml"),575,8],
     _ad_=[0,new MlString("src/core/lwt.ml"),440,20],
     _ac_=[0,new MlString("src/core/lwt.ml"),443,8],
     _ab_=new MlString("Lwt.fast_connect"),
     _aa_=new MlString("Lwt.connect"),
     _$_=new MlString("Lwt.wakeup"),
     ___=new MlString("Lwt.Canceled"),
     _Z_=new MlString("canvas"),
     _Y_=new MlString("img"),
     _X_=new MlString("br"),
     _W_=new MlString("p"),
     _V_=new MlString("div"),
     _U_=new MlString("label"),
     _T_=new MlString("input"),
     _S_=new MlString("select"),
     _R_=new MlString("option"),
     _Q_=new MlString("\""),
     _P_=new MlString(" name=\""),
     _O_=new MlString("\""),
     _N_=new MlString(" type=\""),
     _M_=new MlString("<"),
     _L_=new MlString(">"),
     _K_=new MlString(""),
     _J_=new MlString("on"),
     _I_=new MlString("mouseup"),
     _H_=new MlString("mousemove"),
     _G_=new MlString("2d"),
     _F_=new MlString("Dom_html.Canvas_not_available"),
     _E_=new MlString("lighter"),
     _D_=new MlString("copy"),
     _C_=new MlString("% 2.f"),
     _B_=new MlString(""),
     _A_=new MlString("controls"),
     _z_=new MlString("Click and drag mouse to rotate."),
     _y_=new MlString("Resume"),
     _x_=new MlString("Pause"),
     _w_=new MlString("Fixed position"),
     _v_=new MlString("Follow rotation"),
     _u_=new MlString("Reset orientation"),
     _t_=new MlString("Date:"),
     _s_=
      [0,
       new MlString("December solstice"),
       [0,new MlString("Equinox"),[0,new MlString("June solstice"),0]]],
     _r_=new MlString("Lighting"),
     _q_=new MlString("Clip"),
     _p_=new MlString("Frames per second: "),
     _o_=
      new
       MlString
       ("Credit: <a href='http://visibleearth.nasa.gov/'>Visual Earth</a>, Nasa"),
     _n_=[0,new MlString("planet.ml"),415,0],
     _m_=[0,new MlString("planet.ml"),416,0],
     _l_=[0,new MlString("planet.ml"),417,0],
     _k_=[0,new MlString("planet.ml"),418,0],
     _j_=new MlString("copy"),
     _i_=new MlString("checkbox"),
     _h_=new MlString("button"),
     v_g_=[254,0,0,1],
     _f_=new MlString("../planet/texture.jpg");
    function _e_(s_d_){throw [0,_a_,s_d_];}
    function _aP_(s_aO_){throw [0,_b_,s_aO_];}
    function _aV_(s1_aQ_,s2_aS_)
     {var
       l1_aR_=s1_aQ_.getLen(),
       l2_aT_=s2_aS_.getLen(),
       s_aU_=caml_create_string(l1_aR_+l2_aT_|0);
      caml_blit_string(s1_aQ_,0,s_aU_,0,l1_aR_);
      caml_blit_string(s2_aS_,0,s_aU_,l1_aR_,l2_aT_);
      return s_aU_;}
    function string_of_int_aX_(n_aW_){return caml_format_int(_aL_,n_aW_);}
    function do_at_exit_a2_(param_a1_)
     {var param_aY_=caml_ml_out_channels_list(0);
      for(;;)
       {if(param_aY_)
         {var l_aZ_=param_aY_[2];
          try {}catch(_a0_){}
          var param_aY_=l_aZ_;
          continue;}
        return 0;}}
    caml_register_named_value(_aI_,do_at_exit_a2_);
    function _ba_(f_a5_,a_a3_)
     {var l_a4_=a_a3_.length-1;
      if(0===l_a4_)return [0];
      var
       r_a7_=caml_make_vect(l_a4_,_a6_(f_a5_,a_a3_[0+1])),
       _a8_=1,
       _a9_=l_a4_-1|0;
      if(!(_a9_<_a8_))
       {var i_a__=_a8_;
        for(;;)
         {r_a7_[i_a__+1]=_a6_(f_a5_,a_a3_[i_a__+1]);
          var _a$_=i_a__+1|0;
          if(_a9_!==i_a__){var i_a__=_a$_;continue;}
          break;}}
      return r_a7_;}
    function _be_(n_bb_,c_bd_)
     {var s_bc_=caml_create_string(n_bb_);
      caml_fill_string(s_bc_,0,n_bb_,c_bd_);
      return s_bc_;}
    function _bj_(s_bh_,ofs_bf_,len_bg_)
     {if(0<=ofs_bf_&&0<=len_bg_&&!((s_bh_.getLen()-len_bg_|0)<ofs_bf_))
       {var r_bi_=caml_create_string(len_bg_);
        caml_blit_string(s_bh_,ofs_bf_,r_bi_,0,len_bg_);
        return r_bi_;}
      return _aP_(_aA_);}
    function _bp_(s1_bm_,ofs1_bl_,s2_bo_,ofs2_bn_,len_bk_)
     {if
       (0<=
        len_bk_&&
        0<=
        ofs1_bl_&&
        !((s1_bm_.getLen()-len_bk_|0)<ofs1_bl_)&&
        0<=
        ofs2_bn_&&
        !((s2_bo_.getLen()-len_bk_|0)<ofs2_bn_))
       return caml_blit_string(s1_bm_,ofs1_bl_,s2_bo_,ofs2_bn_,len_bk_);
      return _aP_(_aB_);}
    var
     _bq_=caml_sys_get_config(0)[2],
     _br_=caml_mul(_bq_/8|0,(1<<(_bq_-10|0))-1|0)-1|0;
    function _bw_(n_bs_)
     {var
       n_bt_=1<=n_bs_?n_bs_:1,
       n_bu_=_br_<n_bt_?_br_:n_bt_,
       s_bv_=caml_create_string(n_bu_);
      return [0,s_bv_,0,n_bu_,s_bv_];}
    function _by_(b_bx_){return _bj_(b_bx_[1],0,b_bx_[2]);}
    function _bD_(b_bz_,more_bB_)
     {var new_len_bA_=[0,b_bz_[3]];
      for(;;)
       {if(new_len_bA_[1]<(b_bz_[2]+more_bB_|0))
         {new_len_bA_[1]=2*new_len_bA_[1]|0;continue;}
        if(_br_<new_len_bA_[1])
         if((b_bz_[2]+more_bB_|0)<=_br_)new_len_bA_[1]=_br_;else _e_(_az_);
        var new_buffer_bC_=caml_create_string(new_len_bA_[1]);
        _bp_(b_bz_[1],0,new_buffer_bC_,0,b_bz_[2]);
        b_bz_[1]=new_buffer_bC_;
        b_bz_[3]=new_len_bA_[1];
        return 0;}}
    function _bH_(b_bE_,c_bG_)
     {var pos_bF_=b_bE_[2];
      if(b_bE_[3]<=pos_bF_)_bD_(b_bE_,1);
      b_bE_[1].safeSet(pos_bF_,c_bG_);
      b_bE_[2]=pos_bF_+1|0;
      return 0;}
    function _bM_(b_bK_,s_bI_)
     {var len_bJ_=s_bI_.getLen(),new_position_bL_=b_bK_[2]+len_bJ_|0;
      if(b_bK_[3]<new_position_bL_)_bD_(b_bK_,len_bJ_);
      _bp_(s_bI_,0,b_bK_[1],b_bK_[2],len_bJ_);
      b_bK_[2]=new_position_bL_;
      return 0;}
    function index_of_int_bO_(i_bN_)
     {return 0<=i_bN_?i_bN_:_e_(_aV_(_ah_,string_of_int_aX_(i_bN_)));}
    function add_int_index_bR_(i_bP_,idx_bQ_)
     {return index_of_int_bO_(i_bP_+idx_bQ_|0);}
    var _bS_=_a6_(add_int_index_bR_,1);
    function _bU_(fmt_bT_){return _bj_(fmt_bT_,0,fmt_bT_.getLen());}
    function bad_conversion_b0_(sfmt_bV_,i_bW_,c_bY_)
     {var
       _bX_=_aV_(_ak_,_aV_(sfmt_bV_,_al_)),
       _bZ_=_aV_(_aj_,_aV_(string_of_int_aX_(i_bW_),_bX_));
      return _aP_(_aV_(_ai_,_aV_(_be_(1,c_bY_),_bZ_)));}
    function bad_conversion_format_b4_(fmt_b1_,i_b3_,c_b2_)
     {return bad_conversion_b0_(_bU_(fmt_b1_),i_b3_,c_b2_);}
    function incomplete_format_b6_(fmt_b5_)
     {return _aP_(_aV_(_am_,_aV_(_bU_(fmt_b5_),_an_)));}
    function extract_format_cs_(fmt_b7_,start_cd_,stop_cf_,widths_ch_)
     {function skip_positional_spec_cc_(start_b8_)
       {if
         ((fmt_b7_.safeGet(start_b8_)-48|0)<
          0||
          9<
          (fmt_b7_.safeGet(start_b8_)-48|0))
         return start_b8_;
        var i_b9_=start_b8_+1|0;
        for(;;)
         {var _b__=fmt_b7_.safeGet(i_b9_);
          if(48<=_b__)
           {if(!(58<=_b__)){var _ca_=i_b9_+1|0,i_b9_=_ca_;continue;}
            var _b$_=0;}
          else
           if(36===_b__){var _cb_=i_b9_+1|0,_b$_=1;}else var _b$_=0;
          if(!_b$_)var _cb_=start_b8_;
          return _cb_;}}
      var
       start_ce_=skip_positional_spec_cc_(start_cd_+1|0),
       b_cg_=_bw_((stop_cf_-start_ce_|0)+10|0);
      _bH_(b_cg_,37);
      var l1_ci_=widths_ch_,l2_cj_=0;
      for(;;)
       {if(l1_ci_)
         {var
           l_ck_=l1_ci_[2],
           _cl_=[0,l1_ci_[1],l2_cj_],
           l1_ci_=l_ck_,
           l2_cj_=_cl_;
          continue;}
        var i_cm_=start_ce_,widths_cn_=l2_cj_;
        for(;;)
         {if(i_cm_<=stop_cf_)
           {var _co_=fmt_b7_.safeGet(i_cm_);
            if(42===_co_)
             {if(widths_cn_)
               {var t_cp_=widths_cn_[2];
                _bM_(b_cg_,string_of_int_aX_(widths_cn_[1]));
                var
                 i_cq_=skip_positional_spec_cc_(i_cm_+1|0),
                 i_cm_=i_cq_,
                 widths_cn_=t_cp_;
                continue;}
              throw [0,_c_,_ao_];}
            _bH_(b_cg_,_co_);
            var _cr_=i_cm_+1|0,i_cm_=_cr_;
            continue;}
          return _by_(b_cg_);}}}
    function extract_format_int_cz_
     (conv_cy_,fmt_cw_,start_cv_,stop_cu_,widths_ct_)
     {var sfmt_cx_=extract_format_cs_(fmt_cw_,start_cv_,stop_cu_,widths_ct_);
      if(78!==conv_cy_&&110!==conv_cy_)return sfmt_cx_;
      sfmt_cx_.safeSet(sfmt_cx_.getLen()-1|0,117);
      return sfmt_cx_;}
    function sub_format_cX_
     (incomplete_format_cG_,bad_conversion_format_cQ_,conv_cV_,fmt_cA_,i_cU_)
     {var len_cB_=fmt_cA_.getLen();
      function sub_fmt_cS_(c_cC_,i_cP_)
       {var close_cD_=40===c_cC_?41:125;
        function sub_cO_(j_cE_)
         {var j_cF_=j_cE_;
          for(;;)
           {if(len_cB_<=j_cF_)return _a6_(incomplete_format_cG_,fmt_cA_);
            if(37===fmt_cA_.safeGet(j_cF_))
             {var _cH_=j_cF_+1|0;
              if(len_cB_<=_cH_)
               var _cI_=_a6_(incomplete_format_cG_,fmt_cA_);
              else
               {var _cJ_=fmt_cA_.safeGet(_cH_),_cK_=_cJ_-40|0;
                if(_cK_<0||1<_cK_)
                 {var _cL_=_cK_-83|0;
                  if(_cL_<0||2<_cL_)
                   var _cM_=1;
                  else
                   switch(_cL_)
                    {case 1:var _cM_=1;break;
                     case 2:var _cN_=1,_cM_=0;break;
                     default:var _cN_=0,_cM_=0;}
                  if(_cM_){var _cI_=sub_cO_(_cH_+1|0),_cN_=2;}}
                else
                 var _cN_=0===_cK_?0:1;
                switch(_cN_)
                 {case 1:
                   var
                    _cI_=
                     _cJ_===close_cD_
                      ?_cH_+1|0
                      :_cR_(bad_conversion_format_cQ_,fmt_cA_,i_cP_,_cJ_);
                   break;
                  case 2:break;
                  default:var _cI_=sub_cO_(sub_fmt_cS_(_cJ_,_cH_+1|0)+1|0);}}
              return _cI_;}
            var _cT_=j_cF_+1|0,j_cF_=_cT_;
            continue;}}
        return sub_cO_(i_cP_);}
      return sub_fmt_cS_(conv_cV_,i_cU_);}
    function sub_format_for_printf_cY_(conv_cW_)
     {return _cR_
              (sub_format_cX_,
               incomplete_format_b6_,
               bad_conversion_format_b4_,
               conv_cW_);}
    function iter_on_format_args_dr_(fmt_cZ_,add_conv_c__,add_char_di_)
     {var lim_c0_=fmt_cZ_.getLen()-1|0;
      function scan_fmt_dk_(i_c1_)
       {var i_c2_=i_c1_;
        a:
        for(;;)
         {if(i_c2_<lim_c0_)
           {if(37===fmt_cZ_.safeGet(i_c2_))
             {var skip_c3_=0,i_c4_=i_c2_+1|0;
              for(;;)
               {if(lim_c0_<i_c4_)
                 var _c5_=incomplete_format_b6_(fmt_cZ_);
                else
                 {var _c6_=fmt_cZ_.safeGet(i_c4_);
                  if(58<=_c6_)
                   {if(95===_c6_)
                     {var _c8_=i_c4_+1|0,_c7_=1,skip_c3_=_c7_,i_c4_=_c8_;
                      continue;}}
                  else
                   if(32<=_c6_)
                    switch(_c6_-32|0)
                     {case 1:
                      case 2:
                      case 4:
                      case 5:
                      case 6:
                      case 7:
                      case 8:
                      case 9:
                      case 12:
                      case 15:break;
                      case 0:
                      case 3:
                      case 11:
                      case 13:var _c9_=i_c4_+1|0,i_c4_=_c9_;continue;
                      case 10:
                       var _c$_=_cR_(add_conv_c__,skip_c3_,i_c4_,105),i_c4_=_c$_;
                       continue;
                      default:var _da_=i_c4_+1|0,i_c4_=_da_;continue;}
                  var i_db_=i_c4_;
                  c:
                  for(;;)
                   {if(lim_c0_<i_db_)
                     var _dc_=incomplete_format_b6_(fmt_cZ_);
                    else
                     {var _dd_=fmt_cZ_.safeGet(i_db_);
                      if(126<=_dd_)
                       var _de_=0;
                      else
                       switch(_dd_)
                        {case 78:
                         case 88:
                         case 100:
                         case 105:
                         case 111:
                         case 117:
                         case 120:
                          var _dc_=_cR_(add_conv_c__,skip_c3_,i_db_,105),_de_=1;break;
                         case 69:
                         case 70:
                         case 71:
                         case 101:
                         case 102:
                         case 103:
                          var _dc_=_cR_(add_conv_c__,skip_c3_,i_db_,102),_de_=1;break;
                         case 33:
                         case 37:
                         case 44:var _dc_=i_db_+1|0,_de_=1;break;
                         case 83:
                         case 91:
                         case 115:
                          var _dc_=_cR_(add_conv_c__,skip_c3_,i_db_,115),_de_=1;break;
                         case 97:
                         case 114:
                         case 116:
                          var _dc_=_cR_(add_conv_c__,skip_c3_,i_db_,_dd_),_de_=1;
                          break;
                         case 76:
                         case 108:
                         case 110:
                          var j_df_=i_db_+1|0;
                          if(lim_c0_<j_df_)
                           {var _dc_=_cR_(add_conv_c__,skip_c3_,i_db_,105),_de_=1;}
                          else
                           {var _dg_=fmt_cZ_.safeGet(j_df_)-88|0;
                            if(_dg_<0||32<_dg_)
                             var _dh_=1;
                            else
                             switch(_dg_)
                              {case 0:
                               case 12:
                               case 17:
                               case 23:
                               case 29:
                               case 32:
                                var
                                 _dc_=
                                  _dj_
                                   (add_char_di_,_cR_(add_conv_c__,skip_c3_,i_db_,_dd_),105),
                                 _de_=1,
                                 _dh_=0;
                                break;
                               default:var _dh_=1;}
                            if(_dh_)
                             {var _dc_=_cR_(add_conv_c__,skip_c3_,i_db_,105),_de_=1;}}
                          break;
                         case 67:
                         case 99:
                          var _dc_=_cR_(add_conv_c__,skip_c3_,i_db_,99),_de_=1;break;
                         case 66:
                         case 98:
                          var _dc_=_cR_(add_conv_c__,skip_c3_,i_db_,66),_de_=1;break;
                         case 41:
                         case 125:
                          var _dc_=_cR_(add_conv_c__,skip_c3_,i_db_,_dd_),_de_=1;
                          break;
                         case 40:
                          var
                           _dc_=scan_fmt_dk_(_cR_(add_conv_c__,skip_c3_,i_db_,_dd_)),
                           _de_=1;
                          break;
                         case 123:
                          var
                           i_dl_=_cR_(add_conv_c__,skip_c3_,i_db_,_dd_),
                           j_dm_=_cR_(sub_format_for_printf_cY_,_dd_,fmt_cZ_,i_dl_),
                           i_dn_=i_dl_;
                          for(;;)
                           {if(i_dn_<(j_dm_-2|0))
                             {var
                               _do_=_dj_(add_char_di_,i_dn_,fmt_cZ_.safeGet(i_dn_)),
                               i_dn_=_do_;
                              continue;}
                            var _dp_=j_dm_-1|0,i_db_=_dp_;
                            continue c;}
                         default:var _de_=0;}
                      if(!_de_)
                       var _dc_=bad_conversion_format_b4_(fmt_cZ_,i_db_,_dd_);}
                    var _c5_=_dc_;
                    break;}}
                var i_c2_=_c5_;
                continue a;}}
            var _dq_=i_c2_+1|0,i_c2_=_dq_;
            continue;}
          return i_c2_;}}
      scan_fmt_dk_(0);
      return 0;}
    function count_arguments_of_format_dD_(fmt_dC_)
     {var ac_ds_=[0,0,0,0];
      function add_conv_dB_(skip_dx_,i_dy_,c_dt_)
       {var _du_=41!==c_dt_?1:0,_dv_=_du_?125!==c_dt_?1:0:_du_;
        if(_dv_)
         {var inc_dw_=97===c_dt_?2:1;
          if(114===c_dt_)ac_ds_[3]=ac_ds_[3]+1|0;
          if(skip_dx_)
           ac_ds_[2]=ac_ds_[2]+inc_dw_|0;
          else
           ac_ds_[1]=ac_ds_[1]+inc_dw_|0;}
        return i_dy_+1|0;}
      iter_on_format_args_dr_
       (fmt_dC_,add_conv_dB_,function(i_dz_,c_dA_){return i_dz_+1|0;});
      return ac_ds_[1];}
    function scan_positional_spec_dQ_(fmt_dE_,got_spec_dH_,n_dP_,i_dF_)
     {var _dG_=fmt_dE_.safeGet(i_dF_);
      if((_dG_-48|0)<0||9<(_dG_-48|0))return _dj_(got_spec_dH_,0,i_dF_);
      var accu_dI_=_dG_-48|0,j_dJ_=i_dF_+1|0;
      for(;;)
       {var _dK_=fmt_dE_.safeGet(j_dJ_);
        if(48<=_dK_)
         {if(!(58<=_dK_))
           {var
             _dN_=j_dJ_+1|0,
             _dM_=(10*accu_dI_|0)+(_dK_-48|0)|0,
             accu_dI_=_dM_,
             j_dJ_=_dN_;
            continue;}
          var _dL_=0;}
        else
         if(36===_dK_)
          if(0===accu_dI_)
           {var _dO_=_e_(_aq_),_dL_=1;}
          else
           {var
             _dO_=
              _dj_(got_spec_dH_,[0,index_of_int_bO_(accu_dI_-1|0)],j_dJ_+1|0),
             _dL_=1;}
         else
          var _dL_=0;
        if(!_dL_)var _dO_=_dj_(got_spec_dH_,0,i_dF_);
        return _dO_;}}
    function next_index_dT_(spec_dR_,n_dS_)
     {return spec_dR_?n_dS_:_a6_(_bS_,n_dS_);}
    function get_index_dW_(spec_dU_,n_dV_){return spec_dU_?spec_dU_[1]:n_dV_;}
    function _gY_
     (to_s_fZ_,get_out_dY_,outc_f$_,outs_f0_,flush_fD_,k_gf_,fmt_dX_)
     {var out_dZ_=_a6_(get_out_dY_,fmt_dX_);
      function pr_fC_(k_d4_,n_ge_,fmt_d0_,v_d8_)
       {var len_d3_=fmt_d0_.getLen();
        function doprn_fz_(n_f8_,i_d1_)
         {var i_d2_=i_d1_;
          for(;;)
           {if(len_d3_<=i_d2_)return _a6_(k_d4_,out_dZ_);
            var _d5_=fmt_d0_.safeGet(i_d2_);
            if(37===_d5_)
             {var
               get_arg_d9_=
                function(spec_d7_,n_d6_)
                 {return caml_array_get(v_d8_,get_index_dW_(spec_d7_,n_d6_));},
               scan_flags_ef_=
                function(spec_eh_,n_eb_,widths_ed_,i_d__)
                 {var i_d$_=i_d__;
                  for(;;)
                   {var _ea_=fmt_d0_.safeGet(i_d$_)-32|0;
                    if(!(_ea_<0||25<_ea_))
                     switch(_ea_)
                      {case 1:
                       case 2:
                       case 4:
                       case 5:
                       case 6:
                       case 7:
                       case 8:
                       case 9:
                       case 12:
                       case 15:break;
                       case 10:
                        return scan_positional_spec_dQ_
                                (fmt_d0_,
                                 function(wspec_ec_,i_eg_)
                                  {var _ee_=[0,get_arg_d9_(wspec_ec_,n_eb_),widths_ed_];
                                   return scan_flags_ef_
                                           (spec_eh_,next_index_dT_(wspec_ec_,n_eb_),_ee_,i_eg_);},
                                 n_eb_,
                                 i_d$_+1|0);
                       default:var _ei_=i_d$_+1|0,i_d$_=_ei_;continue;}
                    var _ej_=fmt_d0_.safeGet(i_d$_);
                    if(124<=_ej_)
                     var _ek_=0;
                    else
                     switch(_ej_)
                      {case 78:
                       case 88:
                       case 100:
                       case 105:
                       case 111:
                       case 117:
                       case 120:
                        var
                         x_el_=get_arg_d9_(spec_eh_,n_eb_),
                         s_em_=
                          caml_format_int
                           (extract_format_int_cz_(_ej_,fmt_d0_,i_d2_,i_d$_,widths_ed_),
                            x_el_),
                         _eo_=
                          cont_s_en_(next_index_dT_(spec_eh_,n_eb_),s_em_,i_d$_+1|0),
                         _ek_=1;
                        break;
                       case 69:
                       case 71:
                       case 101:
                       case 102:
                       case 103:
                        var
                         x_ep_=get_arg_d9_(spec_eh_,n_eb_),
                         s_eq_=
                          caml_format_float
                           (extract_format_cs_(fmt_d0_,i_d2_,i_d$_,widths_ed_),x_ep_),
                         _eo_=
                          cont_s_en_(next_index_dT_(spec_eh_,n_eb_),s_eq_,i_d$_+1|0),
                         _ek_=1;
                        break;
                       case 76:
                       case 108:
                       case 110:
                        var _er_=fmt_d0_.safeGet(i_d$_+1|0)-88|0;
                        if(_er_<0||32<_er_)
                         var _es_=1;
                        else
                         switch(_er_)
                          {case 0:
                           case 12:
                           case 17:
                           case 23:
                           case 29:
                           case 32:
                            var i_et_=i_d$_+1|0,_eu_=_ej_-108|0;
                            if(_eu_<0||2<_eu_)
                             var _ev_=0;
                            else
                             {switch(_eu_)
                               {case 1:var _ev_=0,_ew_=0;break;
                                case 2:
                                 var
                                  x_ex_=get_arg_d9_(spec_eh_,n_eb_),
                                  _ey_=
                                   caml_format_int
                                    (extract_format_cs_(fmt_d0_,i_d2_,i_et_,widths_ed_),x_ex_),
                                  _ew_=1;
                                 break;
                                default:
                                 var
                                  x_ez_=get_arg_d9_(spec_eh_,n_eb_),
                                  _ey_=
                                   caml_format_int
                                    (extract_format_cs_(fmt_d0_,i_d2_,i_et_,widths_ed_),x_ez_),
                                  _ew_=1;}
                              if(_ew_){var s_eA_=_ey_,_ev_=1;}}
                            if(!_ev_)
                             {var
                               x_eB_=get_arg_d9_(spec_eh_,n_eb_),
                               s_eA_=
                                caml_int64_format
                                 (extract_format_cs_(fmt_d0_,i_d2_,i_et_,widths_ed_),x_eB_);}
                            var
                             _eo_=
                              cont_s_en_(next_index_dT_(spec_eh_,n_eb_),s_eA_,i_et_+1|0),
                             _ek_=1,
                             _es_=0;
                            break;
                           default:var _es_=1;}
                        if(_es_)
                         {var
                           x_eC_=get_arg_d9_(spec_eh_,n_eb_),
                           s_eD_=
                            caml_format_int
                             (extract_format_int_cz_(110,fmt_d0_,i_d2_,i_d$_,widths_ed_),
                              x_eC_),
                           _eo_=
                            cont_s_en_(next_index_dT_(spec_eh_,n_eb_),s_eD_,i_d$_+1|0),
                           _ek_=1;}
                        break;
                       case 83:
                       case 115:
                        var x_eE_=get_arg_d9_(spec_eh_,n_eb_);
                        if(115===_ej_)
                         var x_eF_=x_eE_;
                        else
                         {var n_eG_=[0,0],_eH_=0,_eI_=x_eE_.getLen()-1|0;
                          if(!(_eI_<_eH_))
                           {var i_eJ_=_eH_;
                            for(;;)
                             {var
                               _eK_=x_eE_.safeGet(i_eJ_),
                               _eL_=
                                14<=_eK_
                                 ?34===_eK_?1:92===_eK_?1:0
                                 :11<=_eK_?13<=_eK_?1:0:8<=_eK_?1:0,
                               _eM_=_eL_?2:caml_is_printable(_eK_)?1:4;
                              n_eG_[1]=n_eG_[1]+_eM_|0;
                              var _eN_=i_eJ_+1|0;
                              if(_eI_!==i_eJ_){var i_eJ_=_eN_;continue;}
                              break;}}
                          if(n_eG_[1]===x_eE_.getLen())
                           var _eO_=x_eE_;
                          else
                           {var s__eP_=caml_create_string(n_eG_[1]);
                            n_eG_[1]=0;
                            var _eQ_=0,_eR_=x_eE_.getLen()-1|0;
                            if(!(_eR_<_eQ_))
                             {var i_eS_=_eQ_;
                              for(;;)
                               {var _eT_=x_eE_.safeGet(i_eS_),_eU_=_eT_-34|0;
                                if(_eU_<0||58<_eU_)
                                 if(-20<=_eU_)
                                  var _eV_=1;
                                 else
                                  {switch(_eU_+34|0)
                                    {case 8:
                                      s__eP_.safeSet(n_eG_[1],92);
                                      n_eG_[1]+=1;
                                      s__eP_.safeSet(n_eG_[1],98);
                                      var _eW_=1;
                                      break;
                                     case 9:
                                      s__eP_.safeSet(n_eG_[1],92);
                                      n_eG_[1]+=1;
                                      s__eP_.safeSet(n_eG_[1],116);
                                      var _eW_=1;
                                      break;
                                     case 10:
                                      s__eP_.safeSet(n_eG_[1],92);
                                      n_eG_[1]+=1;
                                      s__eP_.safeSet(n_eG_[1],110);
                                      var _eW_=1;
                                      break;
                                     case 13:
                                      s__eP_.safeSet(n_eG_[1],92);
                                      n_eG_[1]+=1;
                                      s__eP_.safeSet(n_eG_[1],114);
                                      var _eW_=1;
                                      break;
                                     default:var _eV_=1,_eW_=0;}
                                   if(_eW_)var _eV_=0;}
                                else
                                 var
                                  _eV_=
                                   (_eU_-1|0)<0||56<(_eU_-1|0)
                                    ?(s__eP_.safeSet(n_eG_[1],92),
                                      n_eG_[1]+=
                                      1,
                                      s__eP_.safeSet(n_eG_[1],_eT_),
                                      0)
                                    :1;
                                if(_eV_)
                                 if(caml_is_printable(_eT_))
                                  s__eP_.safeSet(n_eG_[1],_eT_);
                                 else
                                  {s__eP_.safeSet(n_eG_[1],92);
                                   n_eG_[1]+=1;
                                   s__eP_.safeSet(n_eG_[1],48+(_eT_/100|0)|0);
                                   n_eG_[1]+=1;
                                   s__eP_.safeSet(n_eG_[1],48+((_eT_/10|0)%10|0)|0);
                                   n_eG_[1]+=1;
                                   s__eP_.safeSet(n_eG_[1],48+(_eT_%10|0)|0);}
                                n_eG_[1]+=1;
                                var _eX_=i_eS_+1|0;
                                if(_eR_!==i_eS_){var i_eS_=_eX_;continue;}
                                break;}}
                            var _eO_=s__eP_;}
                          var x_eF_=_aV_(_au_,_aV_(_eO_,_av_));}
                        if(i_d$_===(i_d2_+1|0))
                         var s_eY_=x_eF_;
                        else
                         {var
                           _eZ_=
                            extract_format_cs_(fmt_d0_,i_d2_,i_d$_,widths_ed_);
                          try
                           {var neg_e0_=0,i_e1_=1;
                            for(;;)
                             {if(_eZ_.getLen()<=i_e1_)
                               var _e2_=[0,0,neg_e0_];
                              else
                               {var _e3_=_eZ_.safeGet(i_e1_);
                                if(49<=_e3_)
                                 if(58<=_e3_)
                                  var _e4_=0;
                                 else
                                  {var
                                    _e2_=
                                     [0,
                                      caml_int_of_string
                                       (_bj_(_eZ_,i_e1_,(_eZ_.getLen()-i_e1_|0)-1|0)),
                                      neg_e0_],
                                    _e4_=1;}
                                else
                                 {if(45===_e3_)
                                   {var _e6_=i_e1_+1|0,_e5_=1,neg_e0_=_e5_,i_e1_=_e6_;
                                    continue;}
                                  var _e4_=0;}
                                if(!_e4_){var _e7_=i_e1_+1|0,i_e1_=_e7_;continue;}}
                              var match_e8_=_e2_;
                              break;}}
                          catch(_e9_)
                           {if(_e9_[1]!==_a_)throw _e9_;
                            var match_e8_=bad_conversion_b0_(_eZ_,0,115);}
                          var
                           neg_e$_=match_e8_[2],
                           p_e__=match_e8_[1],
                           _fa_=x_eF_.getLen(),
                           _fb_=0,
                           _fe_=32;
                          if(p_e__===_fa_&&0===_fb_)
                           {var _fc_=x_eF_,_fd_=1;}
                          else
                           var _fd_=0;
                          if(!_fd_)
                           if(p_e__<=_fa_)
                            var _fc_=_bj_(x_eF_,_fb_,_fa_);
                           else
                            {var res_ff_=_be_(p_e__,_fe_);
                             if(neg_e$_)
                              _bp_(x_eF_,_fb_,res_ff_,0,_fa_);
                             else
                              _bp_(x_eF_,_fb_,res_ff_,p_e__-_fa_|0,_fa_);
                             var _fc_=res_ff_;}
                          var s_eY_=_fc_;}
                        var
                         _eo_=
                          cont_s_en_(next_index_dT_(spec_eh_,n_eb_),s_eY_,i_d$_+1|0),
                         _ek_=1;
                        break;
                       case 67:
                       case 99:
                        var x_fg_=get_arg_d9_(spec_eh_,n_eb_);
                        if(99===_ej_)
                         var s_fh_=_be_(1,x_fg_);
                        else
                         {if(39===x_fg_)
                           var _fi_=_aC_;
                          else
                           if(92===x_fg_)
                            var _fi_=_aD_;
                           else
                            {if(14<=x_fg_)
                              var _fj_=0;
                             else
                              switch(x_fg_)
                               {case 8:var _fi_=_aH_,_fj_=1;break;
                                case 9:var _fi_=_aG_,_fj_=1;break;
                                case 10:var _fi_=_aF_,_fj_=1;break;
                                case 13:var _fi_=_aE_,_fj_=1;break;
                                default:var _fj_=0;}
                             if(!_fj_)
                              if(caml_is_printable(x_fg_))
                               {var s_fk_=caml_create_string(1);
                                s_fk_.safeSet(0,x_fg_);
                                var _fi_=s_fk_;}
                              else
                               {var s_fl_=caml_create_string(4);
                                s_fl_.safeSet(0,92);
                                s_fl_.safeSet(1,48+(x_fg_/100|0)|0);
                                s_fl_.safeSet(2,48+((x_fg_/10|0)%10|0)|0);
                                s_fl_.safeSet(3,48+(x_fg_%10|0)|0);
                                var _fi_=s_fl_;}}
                          var s_fh_=_aV_(_as_,_aV_(_fi_,_at_));}
                        var
                         _eo_=
                          cont_s_en_(next_index_dT_(spec_eh_,n_eb_),s_fh_,i_d$_+1|0),
                         _ek_=1;
                        break;
                       case 66:
                       case 98:
                        var
                         _fn_=i_d$_+1|0,
                         _fm_=get_arg_d9_(spec_eh_,n_eb_)?_aK_:_aJ_,
                         _eo_=cont_s_en_(next_index_dT_(spec_eh_,n_eb_),_fm_,_fn_),
                         _ek_=1;
                        break;
                       case 40:
                       case 123:
                        var
                         xf_fo_=get_arg_d9_(spec_eh_,n_eb_),
                         j_fp_=_cR_(sub_format_for_printf_cY_,_ej_,fmt_d0_,i_d$_+1|0);
                        if(123===_ej_)
                         {var
                           b_fq_=_bw_(xf_fo_.getLen()),
                           add_char_ft_=
                            function(i_fs_,c_fr_){_bH_(b_fq_,c_fr_);return i_fs_+1|0;};
                          iter_on_format_args_dr_
                           (xf_fo_,
                            function(skip_fu_,i_fw_,c_fv_)
                             {if(skip_fu_)_bM_(b_fq_,_ap_);else _bH_(b_fq_,37);
                              return add_char_ft_(i_fw_,c_fv_);},
                            add_char_ft_);
                          var
                           _fx_=_by_(b_fq_),
                           _eo_=cont_s_en_(next_index_dT_(spec_eh_,n_eb_),_fx_,j_fp_),
                           _ek_=1;}
                        else
                         {var
                           _fy_=next_index_dT_(spec_eh_,n_eb_),
                           m_fA_=
                            add_int_index_bR_
                             (count_arguments_of_format_dD_(xf_fo_),_fy_),
                           _eo_=
                            pr_fC_
                             (function(param_fB_){return doprn_fz_(m_fA_,j_fp_);},
                              _fy_,
                              xf_fo_,
                              v_d8_),
                           _ek_=1;}
                        break;
                       case 33:
                        _a6_(flush_fD_,out_dZ_);
                        var _eo_=doprn_fz_(n_eb_,i_d$_+1|0),_ek_=1;
                        break;
                       case 37:
                        var _eo_=cont_s_en_(n_eb_,_ay_,i_d$_+1|0),_ek_=1;break;
                       case 41:
                        var _eo_=cont_s_en_(n_eb_,_ax_,i_d$_+1|0),_ek_=1;break;
                       case 44:
                        var _eo_=cont_s_en_(n_eb_,_aw_,i_d$_+1|0),_ek_=1;break;
                       case 70:
                        var x_fE_=get_arg_d9_(spec_eh_,n_eb_);
                        if(0===widths_ed_)
                         {var
                           _fF_=caml_format_float(_aN_,x_fE_),
                           i_fG_=0,
                           l_fH_=_fF_.getLen();
                          for(;;)
                           {if(l_fH_<=i_fG_)
                             var _fI_=_aV_(_fF_,_aM_);
                            else
                             {var
                               _fJ_=_fF_.safeGet(i_fG_),
                               _fK_=48<=_fJ_?58<=_fJ_?0:1:45===_fJ_?1:0;
                              if(_fK_){var _fL_=i_fG_+1|0,i_fG_=_fL_;continue;}
                              var _fI_=_fF_;}
                            var s_fM_=_fI_;
                            break;}}
                        else
                         {var
                           sfmt_fN_=
                            extract_format_cs_(fmt_d0_,i_d2_,i_d$_,widths_ed_);
                          if(70===_ej_)sfmt_fN_.safeSet(sfmt_fN_.getLen()-1|0,103);
                          var s_fO_=caml_format_float(sfmt_fN_,x_fE_);
                          if(3<=caml_classify_float(x_fE_))
                           var _fP_=s_fO_;
                          else
                           {var i_fQ_=0,l_fR_=s_fO_.getLen();
                            for(;;)
                             {if(l_fR_<=i_fQ_)
                               var _fS_=_aV_(s_fO_,_ar_);
                              else
                               {var
                                 _fT_=s_fO_.safeGet(i_fQ_)-46|0,
                                 _fU_=
                                  _fT_<0||23<_fT_
                                   ?55===_fT_?1:0
                                   :(_fT_-1|0)<0||21<(_fT_-1|0)?1:0;
                                if(!_fU_){var _fV_=i_fQ_+1|0,i_fQ_=_fV_;continue;}
                                var _fS_=s_fO_;}
                              var _fP_=_fS_;
                              break;}}
                          var s_fM_=_fP_;}
                        var
                         _eo_=
                          cont_s_en_(next_index_dT_(spec_eh_,n_eb_),s_fM_,i_d$_+1|0),
                         _ek_=1;
                        break;
                       case 97:
                        var
                         printer_fW_=get_arg_d9_(spec_eh_,n_eb_),
                         n_fX_=_a6_(_bS_,get_index_dW_(spec_eh_,n_eb_)),
                         arg_fY_=get_arg_d9_(0,n_fX_),
                         _f2_=i_d$_+1|0,
                         _f1_=next_index_dT_(spec_eh_,n_fX_);
                        if(to_s_fZ_)
                         _dj_(outs_f0_,out_dZ_,_dj_(printer_fW_,0,arg_fY_));
                        else
                         _dj_(printer_fW_,out_dZ_,arg_fY_);
                        var _eo_=doprn_fz_(_f1_,_f2_),_ek_=1;
                        break;
                       case 116:
                        var
                         printer_f3_=get_arg_d9_(spec_eh_,n_eb_),
                         _f5_=i_d$_+1|0,
                         _f4_=next_index_dT_(spec_eh_,n_eb_);
                        if(to_s_fZ_)
                         _dj_(outs_f0_,out_dZ_,_a6_(printer_f3_,0));
                        else
                         _a6_(printer_f3_,out_dZ_);
                        var _eo_=doprn_fz_(_f4_,_f5_),_ek_=1;
                        break;
                       default:var _ek_=0;}
                    if(!_ek_)
                     var _eo_=bad_conversion_format_b4_(fmt_d0_,i_d$_,_ej_);
                    return _eo_;}},
               _f__=i_d2_+1|0,
               _f7_=0;
              return scan_positional_spec_dQ_
                      (fmt_d0_,
                       function(spec_f9_,i_f6_)
                        {return scan_flags_ef_(spec_f9_,n_f8_,_f7_,i_f6_);},
                       n_f8_,
                       _f__);}
            _dj_(outc_f$_,out_dZ_,_d5_);
            var _ga_=i_d2_+1|0,i_d2_=_ga_;
            continue;}}
        function cont_s_en_(n_gd_,s_gb_,i_gc_)
         {_dj_(outs_f0_,out_dZ_,s_gb_);return doprn_fz_(n_gd_,i_gc_);}
        return doprn_fz_(n_ge_,0);}
      var
       kpr_gg_=_dj_(pr_fC_,k_gf_,index_of_int_bO_(0)),
       _gh_=count_arguments_of_format_dD_(fmt_dX_);
      if(_gh_<0||6<_gh_)
       {var
         loop_gu_=
          function(i_gi_,args_go_)
           {if(_gh_<=i_gi_)
             {var
               a_gj_=caml_make_vect(_gh_,0),
               _gm_=
                function(i_gk_,arg_gl_)
                 {return caml_array_set(a_gj_,(_gh_-i_gk_|0)-1|0,arg_gl_);},
               i_gn_=0,
               param_gp_=args_go_;
              for(;;)
               {if(param_gp_)
                 {var _gq_=param_gp_[2],_gr_=param_gp_[1];
                  if(_gq_)
                   {_gm_(i_gn_,_gr_);
                    var _gs_=i_gn_+1|0,i_gn_=_gs_,param_gp_=_gq_;
                    continue;}
                  _gm_(i_gn_,_gr_);}
                return _dj_(kpr_gg_,fmt_dX_,a_gj_);}}
            return function(x_gt_)
             {return loop_gu_(i_gi_+1|0,[0,x_gt_,args_go_]);};},
         _gv_=loop_gu_(0,0);}
      else
       switch(_gh_)
        {case 1:
          var
           _gv_=
            function(x_gx_)
             {var a_gw_=caml_make_vect(1,0);
              caml_array_set(a_gw_,0,x_gx_);
              return _dj_(kpr_gg_,fmt_dX_,a_gw_);};
          break;
         case 2:
          var
           _gv_=
            function(x_gz_,y_gA_)
             {var a_gy_=caml_make_vect(2,0);
              caml_array_set(a_gy_,0,x_gz_);
              caml_array_set(a_gy_,1,y_gA_);
              return _dj_(kpr_gg_,fmt_dX_,a_gy_);};
          break;
         case 3:
          var
           _gv_=
            function(x_gC_,y_gD_,z_gE_)
             {var a_gB_=caml_make_vect(3,0);
              caml_array_set(a_gB_,0,x_gC_);
              caml_array_set(a_gB_,1,y_gD_);
              caml_array_set(a_gB_,2,z_gE_);
              return _dj_(kpr_gg_,fmt_dX_,a_gB_);};
          break;
         case 4:
          var
           _gv_=
            function(x_gG_,y_gH_,z_gI_,t_gJ_)
             {var a_gF_=caml_make_vect(4,0);
              caml_array_set(a_gF_,0,x_gG_);
              caml_array_set(a_gF_,1,y_gH_);
              caml_array_set(a_gF_,2,z_gI_);
              caml_array_set(a_gF_,3,t_gJ_);
              return _dj_(kpr_gg_,fmt_dX_,a_gF_);};
          break;
         case 5:
          var
           _gv_=
            function(x_gL_,y_gM_,z_gN_,t_gO_,u_gP_)
             {var a_gK_=caml_make_vect(5,0);
              caml_array_set(a_gK_,0,x_gL_);
              caml_array_set(a_gK_,1,y_gM_);
              caml_array_set(a_gK_,2,z_gN_);
              caml_array_set(a_gK_,3,t_gO_);
              caml_array_set(a_gK_,4,u_gP_);
              return _dj_(kpr_gg_,fmt_dX_,a_gK_);};
          break;
         case 6:
          var
           _gv_=
            function(x_gR_,y_gS_,z_gT_,t_gU_,u_gV_,v_gW_)
             {var a_gQ_=caml_make_vect(6,0);
              caml_array_set(a_gQ_,0,x_gR_);
              caml_array_set(a_gQ_,1,y_gS_);
              caml_array_set(a_gQ_,2,z_gT_);
              caml_array_set(a_gQ_,3,t_gU_);
              caml_array_set(a_gQ_,4,u_gV_);
              caml_array_set(a_gQ_,5,v_gW_);
              return _dj_(kpr_gg_,fmt_dX_,a_gQ_);};
          break;
         default:var _gv_=_dj_(kpr_gg_,fmt_dX_,[0]);}
      return _gv_;}
    function _g2_(fmt_gX_){return _bw_(2*fmt_gX_.getLen()|0);}
    function _g4_(k_g1_,b_gZ_)
     {var s_g0_=_by_(b_gZ_);b_gZ_[2]=0;return _a6_(k_g1_,s_g0_);}
    function _g__(k_g3_)
     {var _g6_=_a6_(_g4_,k_g3_);
      return _g7_(_gY_,1,_g2_,_bH_,_bM_,function(_g5_){return 0;},_g6_);}
    function _ha_(fmt_g9_)
     {return _dj_(_g__,function(s_g8_){return s_g8_;},fmt_g9_);}
    var _g$_=[0,0];
    32===_bq_;
    function _hd_(param_hc_)
     {var seq_hb_=[];
      caml_update_dummy(seq_hb_,[0,seq_hb_,seq_hb_]);
      return seq_hb_;}
    var Canceled_he_=[0,___],current_data_hf_=[0,0],max_removed_hl_=42;
    function repr_rec_hj_(t_hg_)
     {var _hh_=t_hg_[1];
      {if(3===_hh_[0])
        {var t__hi_=_hh_[1],t___hk_=repr_rec_hj_(t__hi_);
         if(t___hk_!==t__hi_)t_hg_[1]=[3,t___hk_];
         return t___hk_;}
       return t_hg_;}}
    function repr_hn_(t_hm_){return repr_rec_hj_(t_hm_);}
    function run_waiters_hG_(waiters_ho_,state_ht_)
     {var save_hq_=current_data_hf_[1],ws_hp_=waiters_ho_,rem_hr_=0;
      for(;;)
       {if(typeof ws_hp_==="number")
         {if(rem_hr_)
           {var
             rem_hF_=rem_hr_[2],
             ws_hE_=rem_hr_[1],
             ws_hp_=ws_hE_,
             rem_hr_=rem_hF_;
            continue;}}
        else
         switch(ws_hp_[0])
          {case 1:
            var _hs_=ws_hp_[1];
            if(rem_hr_)
             {var rem_hv_=rem_hr_[2],ws_hu_=rem_hr_[1];
              _a6_(_hs_,state_ht_);
              var ws_hp_=ws_hu_,rem_hr_=rem_hv_;
              continue;}
            _a6_(_hs_,state_ht_);
            break;
           case 2:
            var
             ws1_hw_=ws_hp_[1],
             _hx_=[0,ws_hp_[2],rem_hr_],
             ws_hp_=ws1_hw_,
             rem_hr_=_hx_;
            continue;
           default:
            var _hy_=ws_hp_[1][1];
            if(_hy_)
             {var _hz_=_hy_[1];
              if(rem_hr_)
               {var rem_hB_=rem_hr_[2],ws_hA_=rem_hr_[1];
                _a6_(_hz_,state_ht_);
                var ws_hp_=ws_hA_,rem_hr_=rem_hB_;
                continue;}
              _a6_(_hz_,state_ht_);}
            else
             if(rem_hr_)
              {var
                rem_hD_=rem_hr_[2],
                ws_hC_=rem_hr_[1],
                ws_hp_=ws_hC_,
                rem_hr_=rem_hD_;
               continue;}}
        current_data_hf_[1]=save_hq_;
        return 0;}}
    function wakeup_hN_(t_hH_,v_hK_)
     {var t_hI_=repr_rec_hj_(t_hH_),_hJ_=t_hI_[1];
      switch(_hJ_[0])
       {case 1:if(_hJ_[1][1]===Canceled_he_)return 0;break;
        case 2:
         var waiters_hM_=_hJ_[1][2],state_hL_=[0,v_hK_];
         t_hI_[1]=state_hL_;
         return run_waiters_hG_(waiters_hM_,state_hL_);
        default:}
      return _aP_(_$_);}
    function append_hQ_(l1_hO_,l2_hP_)
     {return typeof l1_hO_==="number"
              ?l2_hP_
              :typeof l2_hP_==="number"?l1_hO_:[2,l1_hO_,l2_hP_];}
    function cleanup_hS_(ws_hR_)
     {if(typeof ws_hR_!=="number")
       switch(ws_hR_[0])
        {case 2:
          var l1_hT_=ws_hR_[1],_hU_=cleanup_hS_(ws_hR_[2]);
          return append_hQ_(cleanup_hS_(l1_hT_),_hU_);
         case 1:break;
         default:if(!ws_hR_[1][1])return 0;}
      return ws_hR_;}
    function fail_hW_(e_hV_){return [0,[1,e_hV_]];}
    function task_h7_(param_h6_)
     {var t_hX_=[],_h5_=0,_h4_=0;
      caml_update_dummy
       (t_hX_,
        [0,
         [2,
          [0,
           [0,
            [0,
             function(param_h3_)
              {var t_hY_=repr_rec_hj_(t_hX_),_hZ_=t_hY_[1];
               if(2===_hZ_[0])
                {var waiters_h1_=_hZ_[1][2],state_h0_=[1,[0,Canceled_he_]];
                 t_hY_[1]=state_h0_;
                 var _h2_=run_waiters_hG_(waiters_h1_,state_h0_);}
               else
                var _h2_=0;
               return _h2_;}]],
           _h4_,
           _h5_]]]);
      return [0,t_hX_,t_hX_];}
    function add_immutable_waiter_h$_(sleeper_h8_,waiter_h9_)
     {var
       _h__=
        typeof sleeper_h8_[2]==="number"
         ?[1,waiter_h9_]
         :[2,[1,waiter_h9_],sleeper_h8_[2]];
      sleeper_h8_[2]=_h__;
      return 0;}
    function bind_iz_(t_ia_,f_ih_)
     {var _ib_=repr_hn_(t_ia_)[1];
      switch(_ib_[0])
       {case 1:return fail_hW_(_ib_[1]);
        case 2:
         var
          sleeper_ic_=_ib_[1],
          _id_=[0,[2,[0,sleeper_ic_[1],0,0]]],
          data_if_=current_data_hf_[1];
         add_immutable_waiter_h$_
          (sleeper_ic_,
           function(param_ie_)
            {switch(param_ie_[0])
              {case 0:
                var v_ig_=param_ie_[1];
                current_data_hf_[1]=data_if_;
                try
                 {var _ii_=_a6_(f_ih_,v_ig_),_ij_=_ii_;}
                catch(_ik_){var _ij_=fail_hW_(_ik_);}
                var
                 t1_il_=repr_hn_(_id_),
                 t2_im_=repr_hn_(_ij_),
                 _in_=t1_il_[1];
                if(2===_in_[0])
                 {var sleeper1_io_=_in_[1];
                  if(t1_il_===t2_im_)
                   var _ip_=0;
                  else
                   {var _iq_=t2_im_[1];
                    if(2===_iq_[0])
                     {var sleeper2_ir_=_iq_[1];
                      t2_im_[1]=[3,t1_il_];
                      sleeper1_io_[1][1]=[1,sleeper2_ir_[1]];
                      var
                       waiters_is_=append_hQ_(sleeper1_io_[2],sleeper2_ir_[2]),
                       removed_it_=sleeper1_io_[3]+sleeper2_ir_[3]|0,
                       _ip_=
                        max_removed_hl_<removed_it_
                         ?(sleeper1_io_[3]=
                           0,
                           sleeper1_io_[2]=
                           cleanup_hS_(waiters_is_),
                           0)
                         :(sleeper1_io_[3]=removed_it_,sleeper1_io_[2]=waiters_is_,0);}
                    else
                     {t1_il_[1]=_iq_;
                      var _ip_=run_waiters_hG_(sleeper1_io_[2],_iq_);}}}
                else
                 var _ip_=_aP_(_aa_);
                return _ip_;
               case 1:
                var _iu_=[1,param_ie_[1]],t_iv_=repr_hn_(_id_),_iw_=t_iv_[1];
                if(2===_iw_[0])
                 {var waiters_ix_=_iw_[1][2];
                  t_iv_[1]=_iu_;
                  var _iy_=run_waiters_hG_(waiters_ix_,_iu_);}
                else
                 var _iy_=_aP_(_ab_);
                return _iy_;
               default:throw [0,_c_,_ad_];}});
         return _id_;
        case 3:throw [0,_c_,_ac_];
        default:return _a6_(f_ih_,_ib_[1]);}}
    var
     _iA_=[0],
     _iB_=[0,caml_make_vect(55,0),0],
     seed_iC_=caml_equal(_iA_,[0])?[0,0]:_iA_,
     l_iD_=seed_iC_.length-1,
     _iE_=0,
     _iF_=54;
    if(!(_iF_<_iE_))
     {var i_iG_=_iE_;
      for(;;)
       {caml_array_set(_iB_[1],i_iG_,i_iG_);
        var _iH_=i_iG_+1|0;
        if(_iF_!==i_iG_){var i_iG_=_iH_;continue;}
        break;}}
    var
     accu_iI_=[0,_ag_],
     _iJ_=0,
     _iK_=55,
     _iL_=caml_greaterequal(_iK_,l_iD_)?_iK_:l_iD_,
     _iM_=54+_iL_|0;
    if(!(_iM_<_iJ_))
     {var i_iN_=_iJ_;
      for(;;)
       {var
         j_iO_=i_iN_%55|0,
         _iP_=accu_iI_[1],
         _iQ_=
          _aV_
           (_iP_,
            string_of_int_aX_(caml_array_get(seed_iC_,caml_mod(i_iN_,l_iD_))));
        accu_iI_[1]=caml_md5_string(_iQ_,0,_iQ_.getLen());
        var _iR_=accu_iI_[1];
        caml_array_set
         (_iB_[1],
          j_iO_,
          caml_array_get(_iB_[1],j_iO_)^
          (((_iR_.safeGet(0)+(_iR_.safeGet(1)<<8)|0)+(_iR_.safeGet(2)<<16)|0)+
           (_iR_.safeGet(3)<<24)|
           0));
        var _iS_=i_iN_+1|0;
        if(_iM_!==i_iN_){var i_iN_=_iS_;continue;}
        break;}}
    _iB_[2]=0;
    var pause_hook_iV_=[0,function(_iT_){return 0;}],_iU_=_hd_(0),_iX_=[0,0];
    function _i2_(param_i0_)
     {if(_iU_[2]===_iU_)return 0;
      var tmp_iW_=_hd_(0);
      tmp_iW_[1][2]=_iU_[2];
      _iU_[2][1]=tmp_iW_[1];
      tmp_iW_[1]=_iU_[1];
      _iU_[1][2]=tmp_iW_;
      _iU_[1]=_iU_;
      _iU_[2]=_iU_;
      _iX_[1]=0;
      var curr_iY_=tmp_iW_[2];
      for(;;)
       {if(curr_iY_!==tmp_iW_)
         {if(curr_iY_[4])wakeup_hN_(curr_iY_[3],0);
          var _iZ_=curr_iY_[2],curr_iY_=_iZ_;
          continue;}
        return 0;}}
    var
     null_i1_=null,
     undefined_i3_=undefined,
     _true_i4_=true,
     _false_i5_=false,
     array_constructor_i6_=Array,
     date_constr_i7_=Date;
    _g$_[1]=
    [0,
     function(e_i8_)
      {return e_i8_ instanceof array_constructor_i6_
               ?0
               :[0,new MlWrappedString(e_i8_.toString())];},
     _g$_[1]];
    function _i__(_i9_){return _i9_;}
    function _jb_(p_i$_,n_ja_){p_i$_.appendChild(n_ja_);return 0;}
    var onIE_ji_=caml_js_on_ie(0)|0;
    function handler_jh_(f_jd_)
     {return _i__
              (caml_js_wrap_callback
                (function(e_jc_)
                  {if(e_jc_)
                    {var res_je_=_a6_(f_jd_,e_jc_);
                     if(!(res_je_|0))e_jc_.preventDefault();
                     return res_je_;}
                   var _jf_=event,res_jg_=_a6_(f_jd_,_jf_);
                   _jf_.returnValue=res_jg_;
                   return res_jg_;}));}
    var mouseup_jy_=_I_.toString(),mousemove_jx_=_H_.toString();
    function addEventListener_jw_(e_jj_,typ_jk_,h_jn_,capt_ju_)
     {if(e_jj_.addEventListener===undefined_i3_)
       {var
         ev_jl_=_J_.toString().concat(typ_jk_),
         callback_js_=
          function(e_jm_)
           {var _jr_=[0,h_jn_,e_jm_,[0]];
            return _a6_
                    (function(_jq_,_jp_,_jo_)
                      {return caml_js_call(_jq_,_jp_,_jo_);},
                     _jr_);};
        e_jj_.attachEvent(ev_jl_,callback_js_);
        return function(param_jt_)
         {return e_jj_.detachEvent(ev_jl_,callback_js_);};}
      e_jj_.addEventListener(typ_jk_,h_jn_,capt_ju_);
      return function(param_jv_)
       {return e_jj_.removeEventListener(typ_jk_,h_jn_,capt_ju_);};}
    function removeEventListener_jA_(id_jz_){return _a6_(id_jz_,0);}
    var
     _2d__jB_=_G_.toString(),
     window_jC_=window,
     document_jD_=window_jC_.document;
    function opt_iter_jG_(x_jE_,f_jF_){return x_jE_?_a6_(f_jF_,x_jE_[1]):0;}
    function createElement_jJ_(doc_jI_,name_jH_)
     {return doc_jI_.createElement(name_jH_.toString());}
    function unsafeCreateElement_jM_(doc_jL_,name_jK_)
     {return createElement_jJ_(doc_jL_,name_jK_);}
    function unsafeCreateElementEx_jX_(_type_jN_,name_jO_,doc_jQ_,elt_jP_)
     {if(0===_type_jN_&&0===name_jO_)
       return createElement_jJ_(doc_jQ_,elt_jP_);
      if(onIE_ji_)
       {var a_jR_=new array_constructor_i6_();
        a_jR_.push(_M_.toString(),elt_jP_.toString());
        opt_iter_jG_
         (_type_jN_,
          function(t_jS_)
           {a_jR_.push
             (_N_.toString(),caml_js_html_escape(t_jS_),_O_.toString());
            return 0;});
        opt_iter_jG_
         (name_jO_,
          function(n_jT_)
           {a_jR_.push
             (_P_.toString(),caml_js_html_escape(n_jT_),_Q_.toString());
            return 0;});
        a_jR_.push(_L_.toString());
        return doc_jQ_.createElement(a_jR_.join(_K_.toString()));}
      var res_jU_=createElement_jJ_(doc_jQ_,elt_jP_);
      opt_iter_jG_(_type_jN_,function(t_jV_){return res_jU_.type=t_jV_;});
      opt_iter_jG_(name_jO_,function(n_jW_){return res_jU_.name=n_jW_;});
      return res_jU_;}
    function createInput_j1_(_type_j0_,name_jZ_,doc_jY_)
     {return unsafeCreateElementEx_jX_(_type_j0_,name_jZ_,doc_jY_,_T_);}
    function createLabel_j3_(doc_j2_)
     {return unsafeCreateElement_jM_(doc_j2_,_U_);}
    function createDiv_j5_(doc_j4_)
     {return unsafeCreateElement_jM_(doc_j4_,_V_);}
    var Canvas_not_available_j6_=[0,_F_];
    window.HTMLElement===undefined_i3_;
    pause_hook_iV_[1]=
    function(param_j7_)
     {return 1===param_j7_
              ?(window_jC_.setTimeout(caml_js_wrap_callback(_i2_),0),0)
              :0;};
    var
     width_j8_=600,
     pi_j9_=4*Math.atan(1),
     obliquity_j__=23.5*pi_j9_/180,
     gamma_j$_=2,
     dark_ka_=Math.pow(0.2,gamma_j$_),
     button_type_kb_=_h_.toString();
    function toggle_button_kl_(txt1_kd_,txt2_kf_,action_kj_)
     {var
       state_kc_=[0,0],
       txt1_ke_=txt1_kd_.toString(),
       txt2_kh_=txt2_kf_.toString(),
       b_kg_=createInput_j1_([0,button_type_kb_],0,document_jD_);
      b_kg_.value=txt1_ke_;
      b_kg_.onclick=
      handler_jh_
       (function(param_kk_)
         {state_kc_[1]=1-state_kc_[1];
          var _ki_=state_kc_[1]?txt2_kh_:txt1_ke_;
          b_kg_.value=_ki_;
          _a6_(action_kj_,state_kc_[1]);
          return _true_i4_;});
      return b_kg_;}
    function checkbox_ks_(txt_kr_,checked_kn_,action_ko_)
     {var b_km_=createInput_j1_([0,_i_.toString()],0,document_jD_);
      b_km_.checked=!!checked_kn_;
      b_km_.onclick=
      handler_jh_
       (function(param_kp_)
         {_a6_(action_ko_,b_km_.checked|0);return _true_i4_;});
      var lab_kq_=createLabel_j3_(document_jD_);
      _jb_(lab_kq_,b_km_);
      _jb_(lab_kq_,document_jD_.createTextNode(txt_kr_.toString()));
      return lab_kq_;}
    function vertex_kw_(x_kv_,y_ku_,z_kt_){return [-1,x_kv_,y_ku_,z_kt_];}
    function vect_kz_(param_ky_,_kx_)
     {return [-1,
              _kx_[1]-param_ky_[1],
              _kx_[2]-param_ky_[2],
              _kx_[3]-param_ky_[3]];}
    function matrix_vect_mul_kI_(m_kE_,param_kA_)
     {var
       z_kB_=param_kA_[3],
       y_kC_=param_kA_[2],
       x_kD_=param_kA_[1],
       r3_kF_=m_kE_[3],
       r2_kG_=m_kE_[2],
       r1_kH_=m_kE_[1];
      return [-1,
              x_kD_*r1_kH_[1]+y_kC_*r1_kH_[2]+z_kB_*r1_kH_[3],
              x_kD_*r2_kG_[1]+y_kC_*r2_kG_[2]+z_kB_*r2_kG_[3],
              x_kD_*r3_kF_[1]+y_kC_*r3_kF_[2]+z_kB_*r3_kF_[3]];}
    function matrix_transp_kN_(m_kJ_)
     {var r3_kK_=m_kJ_[3],r2_kL_=m_kJ_[2],r1_kM_=m_kJ_[1];
      return [0,
              [-1,r1_kM_[1],r2_kL_[1],r3_kK_[1]],
              [-1,r1_kM_[2],r2_kL_[2],r3_kK_[2]],
              [-1,r1_kM_[3],r2_kL_[3],r3_kK_[3]]];}
    function matrix_mul_kT_(m_kQ_,m__kO_)
     {var
       m__kP_=matrix_transp_kN_(m__kO_),
       _kR_=matrix_vect_mul_kI_(m__kP_,m_kQ_[3]),
       _kS_=matrix_vect_mul_kI_(m__kP_,m_kQ_[2]);
      return [0,matrix_vect_mul_kI_(m__kP_,m_kQ_[1]),_kS_,_kR_];}
    function xz_rotation_kZ_(phi_kU_)
     {var
       cos_phi_kV_=Math.cos(phi_kU_),
       sin_phi_kW_=Math.sin(phi_kU_),
       _kX_=vertex_kw_(-sin_phi_kW_,0,cos_phi_kV_),
       _kY_=vertex_kw_(0,1,0);
      return [0,vertex_kw_(cos_phi_kV_,0,sin_phi_kW_),_kY_,_kX_];}
    function xy_rotation_k5_(phi_k0_)
     {var
       cos_phi_k1_=Math.cos(phi_k0_),
       sin_phi_k2_=Math.sin(phi_k0_),
       _k3_=vertex_kw_(0,0,1),
       _k4_=vertex_kw_(-sin_phi_k2_,cos_phi_k1_,0);
      return [0,vertex_kw_(cos_phi_k1_,sin_phi_k2_,0),_k4_,_k3_];}
    var matrix_identity_k6_=xz_rotation_kZ_(0);
    function face_k__(v1_k9_,v2_k8_,v3_k7_){return [0,v1_k9_,v2_k8_,v3_k7_];}
    function create_canvas_lc_(w_la_,h_lb_)
     {var c_k$_=unsafeCreateElement_jM_(document_jD_,_Z_);
      if(1-(c_k$_.getContext==null_i1_?1:0))
       {c_k$_.width=w_la_;c_k$_.height=h_lb_;return c_k$_;}
      throw [0,Canvas_not_available_j6_];}
    function min_lf_(u_ld_,v_le_){return u_ld_<v_le_?u_ld_:v_le_;}
    function max_li_(u_lg_,v_lh_){return u_lg_<v_lh_?v_lh_:u_lg_;}
    var
     _lj_=8,
     _lk_=12,
     t_delta_ll_=pi_j9_/_lj_,
     n_lm_=_lj_*_lk_|0,
     vertices_ln_=caml_make_vect(n_lm_+2|0,vertex_kw_(0,0,0)),
     faces_lo_=caml_make_vect(n_lm_*2|0,face_k__(0,0,0)),
     south_lp_=n_lm_+1|0;
    caml_array_set(vertices_ln_,n_lm_,vertex_kw_(0,-1,0));
    caml_array_set(vertices_ln_,south_lp_,vertex_kw_(0,1,0));
    var
     _lq_=0,
     _lr_=_lk_-1|0,
     p_delta_lw_=2*pi_j9_/_lk_,
     t_offset_ly_=(pi_j9_-t_delta_ll_)/2;
    if(!(_lr_<_lq_))
     {var i_ls_=_lq_;
      for(;;)
       {var _lt_=0,_lu_=_lj_-1|0;
        if(!(_lu_<_lt_))
         {var j_lv_=_lt_;
          for(;;)
           {var
             phi_lx_=i_ls_*p_delta_lw_,
             theta_lz_=j_lv_*t_delta_ll_-t_offset_ly_,
             k_lA_=(i_ls_*_lj_|0)+j_lv_|0;
            caml_array_set
             (vertices_ln_,
              k_lA_,
              vertex_kw_
               (Math.cos(phi_lx_)*Math.cos(theta_lz_),
                Math.sin(theta_lz_),
                Math.sin(phi_lx_)*Math.cos(theta_lz_)));
            if(0===j_lv_)
             {caml_array_set
               (faces_lo_,
                2*k_lA_|0,
                face_k__(n_lm_,k_lA_,caml_mod(k_lA_+_lj_|0,n_lm_)));
              caml_array_set
               (faces_lo_,
                (2*k_lA_|0)+1|0,
                face_k__
                 (south_lp_,
                  caml_mod((k_lA_+(2*_lj_|0)|0)-1|0,n_lm_),
                  (k_lA_+_lj_|0)-1|0));}
            else
             {caml_array_set
               (faces_lo_,
                2*k_lA_|0,
                face_k__(k_lA_,caml_mod(k_lA_+_lj_|0,n_lm_),k_lA_-1|0));
              caml_array_set
               (faces_lo_,
                (2*k_lA_|0)+1|0,
                face_k__
                 (k_lA_-1|0,
                  caml_mod(k_lA_+_lj_|0,n_lm_),
                  caml_mod((k_lA_+_lj_|0)-1|0,n_lm_)));}
            var _lB_=j_lv_+1|0;
            if(_lu_!==j_lv_){var j_lv_=_lB_;continue;}
            break;}}
        var _lC_=i_ls_+1|0;
        if(_lr_!==i_ls_){var i_ls_=_lC_;continue;}
        break;}}
    var texture_pl_=_f_.toString();
    window_jC_.onload=
    handler_jh_
     (function(param_pp_)
       {function _pc_(texture_lD_)
         {var
           w_lE_=texture_lD_.width,
           h_lF_=texture_lD_.height,
           canvas_lG_=create_canvas_lc_(w_lE_,h_lF_),
           ctx_lH_=canvas_lG_.getContext(_2d__jB_),
           _lI_=h_lF_/8|0,
           _lJ_=w_lE_/8|0,
           img_lK_=ctx_lH_.getImageData(0,0,_lJ_,_lI_),
           data_lL_=img_lK_.data,
           inv_gamma_l1_=1/gamma_j$_;
          function update_shadow_l5_(obliquity_lM_)
           {var
             _lN_=0,
             _lO_=_lI_-1|0,
             cos_obl_lV_=Math.cos(obliquity_lM_),
             sin_obl_lU_=-Math.sin(obliquity_lM_);
            if(!(_lO_<_lN_))
             {var j_lP_=_lN_;
              for(;;)
               {var _lQ_=0,_lR_=(_lJ_/2|0)-1|0;
                if(!(_lR_<_lQ_))
                 {var i_lS_=_lQ_;
                  for(;;)
                   {var
                     theta_lT_=(j_lP_/_lI_-0.5)*pi_j9_,
                     _lW_=
                      Math.cos(i_lS_/_lJ_*2*pi_j9_)*
                      Math.cos(theta_lT_)*
                      cos_obl_lV_+
                      Math.sin(theta_lT_)*
                      sin_obl_lU_,
                     k_lZ_=4*(i_lS_+j_lP_*_lJ_)|0,
                     k__lY_=4*(_lJ_-i_lS_+j_lP_*_lJ_-1)|0,
                     c_lX_=0<_lW_?dark_ka_:dark_ka_-_lW_*(1-dark_ka_)*1.2,
                     c_l0_=c_lX_<=1?c_lX_:1,
                     c_l2_=255-(255.99*Math.pow(c_l0_,inv_gamma_l1_)|0)|0;
                    data_lL_[k_lZ_+3|0]=c_l2_;
                    data_lL_[k__lY_+3|0]=c_l2_;
                    var _l3_=i_lS_+1|0;
                    if(_lR_!==i_lS_){var i_lS_=_l3_;continue;}
                    break;}}
                var _l4_=j_lP_+1|0;
                if(_lO_!==j_lP_){var j_lP_=_l4_;continue;}
                break;}}
            ctx_lH_.putImageData(img_lK_,0,0);
            ctx_lH_.globalCompositeOperation=_j_.toString();
            ctx_lH_.save();
            ctx_lH_.scale(8*(_lJ_+2|0)/_lJ_,8*(_lI_+2|0)/_lI_);
            ctx_lH_.translate(-1,-1);
            ctx_lH_.drawImage(canvas_lG_,0,0);
            return ctx_lH_.restore();}
          update_shadow_l5_(obliquity_j__);
          var
           w_l6_=texture_lD_.width,
           canvas__l7_=create_canvas_lc_(w_l6_,texture_lD_.height),
           ctx__l8_=canvas__l7_.getContext(_2d__jB_),
           no_lighting_l9_=[0,0],
           canvas_l__=create_canvas_lc_(width_j8_,width_j8_),
           canvas__l$_=create_canvas_lc_(width_j8_,width_j8_);
          _jb_(document_jD_.body,canvas_l__);
          var
           ctx_ma_=canvas_l__.getContext(_2d__jB_),
           ctx__mb_=canvas__l$_.getContext(_2d__jB_),
           r_mc_=width_j8_/2,
           tw_md_=texture_lD_.width,
           th_me_=texture_lD_.height,
           uv_mj_=
            _ba_
             (function(v_mf_)
               {var
                 y_mh_=v_mf_[2],
                 u_mg_=
                  (tw_md_-
                   Math.atan2(v_mf_[3],v_mf_[1])*
                   ((tw_md_/2-0.99)/pi_j9_)|
                   0)%
                  tw_md_,
                 v_mi_=th_me_/2+Math.asin(y_mh_)*((th_me_-0.99)/pi_j9_)|0;
                if(0<=u_mg_)
                 {if(u_mg_<tw_md_)
                   {if(0<=v_mi_)
                     {if(v_mi_<th_me_)return [0,u_mg_,v_mi_];throw [0,_c_,_k_];}
                    throw [0,_c_,_l_];}
                  throw [0,_c_,_m_];}
                throw [0,_c_,_n_];},
              vertices_ln_),
           normals_nd_=
            _ba_
             (function(param_mk_)
               {var
                 v3_mn_=param_mk_[3],
                 v2_mm_=param_mk_[2],
                 v1_ml_=caml_array_get(vertices_ln_,param_mk_[1]),
                 v2_mp_=caml_array_get(vertices_ln_,v2_mm_),
                 _mo_=vect_kz_(v1_ml_,caml_array_get(vertices_ln_,v3_mn_)),
                 _mq_=vect_kz_(v1_ml_,v2_mp_),
                 z2_mr_=_mo_[3],
                 y2_ms_=_mo_[2],
                 x2_mt_=_mo_[1],
                 z1_mu_=_mq_[3],
                 y1_mv_=_mq_[2],
                 x1_mw_=_mq_[1];
                return [-1,
                        y1_mv_*z2_mr_-y2_ms_*z1_mu_,
                        z1_mu_*x2_mt_-z2_mr_*x1_mw_,
                        x1_mw_*y2_ms_-x2_mt_*y1_mv_];},
              faces_lo_),
           face_info_nf_=
            _ba_
             (function(f_mx_)
               {var
                 v3_mA_=f_mx_[3],
                 v2_mz_=f_mx_[2],
                 match_my_=caml_array_get(uv_mj_,f_mx_[1]),
                 v1_mB_=match_my_[2],
                 u1_mC_=match_my_[1],
                 match_mD_=caml_array_get(uv_mj_,v2_mz_),
                 v2_mE_=match_mD_[2],
                 u2_mF_=match_mD_[1],
                 match_mG_=caml_array_get(uv_mj_,v3_mA_),
                 v3_mH_=match_mG_[2],
                 u3_mI_=match_mG_[1],
                 mid_mJ_=tw_md_/2;
                if(u1_mC_==0)
                 {if(mid_mJ_<u2_mF_||mid_mJ_<u3_mI_)
                   var _mK_=1;
                  else
                   {var _mL_=0,_mK_=0;}
                  if(_mK_){var u1_mM_=tw_md_-2,_mL_=1;}}
                else
                 var _mL_=0;
                if(!_mL_)var u1_mM_=u1_mC_;
                if(u2_mF_==0)
                 {if(mid_mJ_<u1_mM_||mid_mJ_<u3_mI_)
                   var _mN_=1;
                  else
                   {var _mO_=0,_mN_=0;}
                  if(_mN_){var u2_mP_=tw_md_-2,_mO_=1;}}
                else
                 var _mO_=0;
                if(!_mO_)var u2_mP_=u2_mF_;
                if(u3_mI_==0)
                 {if(mid_mJ_<u2_mP_||mid_mJ_<u1_mM_)
                   var _mQ_=1;
                  else
                   {var _mR_=0,_mQ_=0;}
                  if(_mQ_){var u3_mS_=tw_md_-2,_mR_=1;}}
                else
                 var _mR_=0;
                if(!_mR_)var u3_mS_=u3_mI_;
                var mth_mT_=th_me_-2;
                if(v1_mB_==0||mth_mT_<=v1_mB_)
                 var _mU_=0;
                else
                 {var u1_mV_=u1_mM_,_mU_=1;}
                if(!_mU_)var u1_mV_=(u2_mP_+u3_mS_)/2;
                if(v2_mE_==0||mth_mT_<=v2_mE_)
                 var _mW_=0;
                else
                 {var u2_mX_=u2_mP_,_mW_=1;}
                if(!_mW_)var u2_mX_=(u1_mV_+u3_mS_)/2;
                if(v3_mH_==0||mth_mT_<=v3_mH_)
                 var _mY_=0;
                else
                 {var u3_mZ_=u3_mS_,_mY_=1;}
                if(!_mY_)var u3_mZ_=(u2_mX_+u1_mV_)/2;
                var
                 u1_m0_=max_li_(1,u1_mV_),
                 u2_m1_=max_li_(1,u2_mX_),
                 u3_m2_=max_li_(1,u3_mZ_),
                 v1_m3_=max_li_(1,v1_mB_),
                 v2_m4_=max_li_(1,v2_mE_),
                 v3_m5_=max_li_(1,v3_mH_),
                 du2_m6_=u2_m1_-u1_m0_,
                 du3_m7_=u3_m2_-u1_m0_,
                 dv2_m8_=v2_m4_-v1_m3_,
                 dv3_m9_=v3_m5_-v1_m3_,
                 su_m__=dv2_m8_*du3_m7_-dv3_m9_*du2_m6_,
                 sv_m$_=du2_m6_*dv3_m9_-du3_m7_*dv2_m8_,
                 u_na_=max_li_(0,min_lf_(u1_m0_,min_lf_(u2_m1_,u3_m2_))-4),
                 v_nb_=max_li_(0,min_lf_(v1_m3_,min_lf_(v2_m4_,v3_m5_))-4),
                 u__nc_=
                  min_lf_(tw_md_,max_li_(u1_m0_,max_li_(u2_m1_,u3_m2_))+4);
                return [0,
                        u1_m0_,
                        v1_m3_,
                        du2_m6_/su_m__,
                        dv2_m8_/sv_m$_,
                        du3_m7_/su_m__,
                        dv3_m9_/sv_m$_,
                        u_na_,
                        v_nb_,
                        u__nc_-u_na_,
                        min_lf_(th_me_,max_li_(v1_m3_,max_li_(v2_m4_,v3_m5_))+4)-
                        v_nb_];},
              faces_lo_),
           paused_ne_=[0,0],
           follow_ng_=[0,0],
           lighting_nh_=[0,1],
           clipped_ni_=[0,1],
           obl_nj_=[0,obliquity_j__],
           m_obliq_nk_=[0,xy_rotation_k5_(-obliquity_j__)],
           m_nl_=[0,matrix_identity_k6_],
           phi_rot_nm_=[0,0],
           rateText_nn_=document_jD_.createTextNode(_B_.toString()),
           ctrl_no_=createDiv_j5_(document_jD_);
          ctrl_no_.className=_A_.toString();
          var d_np_=createDiv_j5_(document_jD_);
          _jb_(d_np_,document_jD_.createTextNode(_z_.toString()));
          _jb_(ctrl_no_,d_np_);
          var form_nq_=createDiv_j5_(document_jD_);
          function br_ns_(param_nr_)
           {return unsafeCreateElement_jM_(document_jD_,_X_);}
          _jb_
           (form_nq_,
            toggle_button_kl_
             (_x_,_y_,function(p_nt_){paused_ne_[1]=p_nt_;return 0;}));
          _jb_(form_nq_,br_ns_(0));
          _jb_
           (form_nq_,
            toggle_button_kl_
             (_v_,_w_,function(f_nu_){follow_ng_[1]=f_nu_;return 0;}));
          _jb_(form_nq_,br_ns_(0));
          var b_nv_=createInput_j1_([0,button_type_kb_],0,document_jD_);
          b_nv_.value=_u_.toString();
          b_nv_.onclick=
          handler_jh_
           (function(param_nw_)
             {m_nl_[1]=matrix_identity_k6_;
              phi_rot_nm_[1]=0;
              m_obliq_nk_[1]=xy_rotation_k5_(-obl_nj_[1]);
              return _true_i4_;});
          _jb_(form_nq_,b_nv_);
          _jb_(form_nq_,br_ns_(0));
          var lab_nx_=createLabel_j3_(document_jD_);
          _jb_(lab_nx_,document_jD_.createTextNode(_t_.toString()));
          var
           _ny_=unsafeCreateElementEx_jX_(0,0,document_jD_,_S_),
           param_nz_=_s_;
          for(;;)
           {if(param_nz_)
             {var
               l_nC_=param_nz_[2],
               a_nB_=param_nz_[1],
               _nA_=unsafeCreateElement_jM_(document_jD_,_R_);
              _jb_(_nA_,document_jD_.createTextNode(a_nB_.toString()));
              _ny_.add(_nA_,null_i1_);
              var param_nz_=l_nC_;
              continue;}
            _ny_.onchange=
            handler_jh_
             (function(param_nF_)
               {var
                 _nD_=_ny_.selectedIndex,
                 o_nE_=0===_nD_?obliquity_j__:1===_nD_?0:-obliquity_j__;
                update_shadow_l5_(o_nE_);
                obl_nj_[1]=o_nE_;
                return _true_i4_;});
            _jb_(lab_nx_,_ny_);
            _jb_(form_nq_,lab_nx_);
            _jb_(ctrl_no_,form_nq_);
            var form_nG_=createDiv_j5_(document_jD_);
            _jb_
             (form_nG_,
              checkbox_ks_
               (_r_,1,function(l_nH_){lighting_nh_[1]=l_nH_;return 0;}));
            _jb_(form_nG_,br_ns_(0));
            _jb_
             (form_nG_,
              checkbox_ks_
               (_q_,1,function(l_nI_){clipped_ni_[1]=l_nI_;return 0;}));
            _jb_(form_nG_,br_ns_(0));
            _jb_(form_nG_,document_jD_.createTextNode(_p_.toString()));
            _jb_(form_nG_,rateText_nn_);
            _jb_(ctrl_no_,form_nG_);
            _jb_(document_jD_.body,ctrl_no_);
            var _nJ_=unsafeCreateElement_jM_(document_jD_,_W_);
            _nJ_.innerHTML=_o_.toString();
            _jb_(document_jD_.body,_nJ_);
            var mx_nK_=[0,0],my_nL_=[0,0];
            canvas_l__.onmousedown=
            handler_jh_
             (function(ev_nM_)
               {mx_nK_[1]=ev_nM_.clientX;
                my_nL_[1]=ev_nM_.clientY;
                var
                 c1_n0_=
                  addEventListener_jw_
                   (document_jD_,
                    mousemove_jx_,
                    handler_jh_
                     (function(ev_nN_)
                       {var
                         x_nO_=ev_nN_.clientX,
                         y_nP_=ev_nN_.clientY,
                         dx_nQ_=x_nO_-mx_nK_[1]|0,
                         dy_nR_=y_nP_-my_nL_[1]|0;
                        if(0!==dy_nR_)
                         {var
                           _nT_=m_nl_[1],
                           _nS_=2*dy_nR_/width_j8_,
                           cos_phi_nU_=Math.cos(_nS_),
                           sin_phi_nV_=Math.sin(_nS_),
                           _nW_=vertex_kw_(0,-sin_phi_nV_,cos_phi_nU_),
                           _nX_=vertex_kw_(0,cos_phi_nU_,sin_phi_nV_);
                          m_nl_[1]=
                          matrix_mul_kT_([0,vertex_kw_(1,0,0),_nX_,_nW_],_nT_);}
                        if(0!==dx_nQ_)
                         {var _nY_=m_nl_[1];
                          m_nl_[1]=
                          matrix_mul_kT_(xz_rotation_kZ_(2*dx_nQ_/width_j8_),_nY_);}
                        mx_nK_[1]=x_nO_;
                        my_nL_[1]=y_nP_;
                        return _true_i4_;}),
                    _true_i4_),
                 c2_nZ_=[0,null_i1_];
                c2_nZ_[1]=
                _i__
                 (addEventListener_jw_
                   (document_jD_,
                    mouseup_jy_,
                    handler_jh_
                     (function(param_n2_)
                       {removeEventListener_jA_(c1_n0_);
                        var _n1_=c2_nZ_[1];
                        if(_n1_!=null_i1_)removeEventListener_jA_(_n1_);
                        return _true_i4_;}),
                    _true_i4_));
                return _false_i5_;});
            var
             ti_n3_=[0,new date_constr_i7_().getTime()],
             fps_n4_=[0,0],
             loop_oU_=
              function(t_oO_,phi_n5_)
               {var rotation_n7_=xz_rotation_kZ_(phi_n5_-phi_rot_nm_[1]);
                if(lighting_nh_[1])
                 {no_lighting_l9_[1]=0;
                  ctx__l8_.drawImage(texture_lD_,0,0);
                  var
                   i_n6_=
                    (2*pi_j9_-phi_n5_%(2*pi_j9_))*w_l6_/2/pi_j9_%w_l6_|0;
                  ctx__l8_.drawImage(canvas_lG_,i_n6_,0);
                  ctx__l8_.drawImage(canvas_lG_,i_n6_-w_l6_,0);}
                else
                 if(!no_lighting_l9_[1])
                  {ctx__l8_.drawImage(texture_lD_,0,0);no_lighting_l9_[1]=1;}
                var
                 m_n8_=
                  matrix_mul_kT_
                   (m_nl_[1],matrix_mul_kT_(m_obliq_nk_[1],rotation_n7_)),
                 _n__=
                  _ba_
                   (function(v_n9_){return matrix_vect_mul_kI_(m_n8_,v_n9_);},
                    vertices_ln_),
                 _n$_=matrix_vect_mul_kI_(matrix_transp_kN_(m_n8_),v_g_);
                ctx__mb_.clearRect(0,0,width_j8_,width_j8_);
                ctx__mb_.save();
                if(clipped_ni_[1])
                 {ctx__mb_.beginPath();
                  ctx__mb_.arc(r_mc_,r_mc_,r_mc_*0.95,0,-2*pi_j9_,_true_i4_);
                  ctx__mb_.clip();}
                ctx__mb_.setTransform(r_mc_-2,0,0,r_mc_-2,r_mc_,r_mc_);
                ctx__mb_.globalCompositeOperation=_E_.toString();
                var _oa_=0,_ob_=faces_lo_.length-1-1|0;
                if(!(_ob_<_oa_))
                 {var i_oc_=_oa_;
                  for(;;)
                   {var
                     _od_=faces_lo_[i_oc_+1],
                     v3_og_=_od_[3],
                     v2_of_=_od_[2],
                     match_oe_=caml_array_get(_n__,_od_[1]),
                     y1_oh_=match_oe_[2],
                     x1_oi_=match_oe_[1],
                     match_oj_=caml_array_get(_n__,v2_of_),
                     y2_ok_=match_oj_[2],
                     x2_ol_=match_oj_[1],
                     match_om_=caml_array_get(_n__,v3_og_),
                     y3_on_=match_om_[2],
                     x3_oo_=match_om_[1],
                     _op_=caml_array_get(normals_nd_,i_oc_);
                    if(0<=_op_[1]*_n$_[1]+_op_[2]*_n$_[2]+_op_[3]*_n$_[3])
                     {ctx__mb_.beginPath();
                      ctx__mb_.moveTo(x1_oi_,y1_oh_);
                      ctx__mb_.lineTo(x2_ol_,y2_ok_);
                      ctx__mb_.lineTo(x3_oo_,y3_on_);
                      ctx__mb_.closePath();
                      ctx__mb_.save();
                      ctx__mb_.clip();
                      var
                       match_oq_=caml_array_get(face_info_nf_,i_oc_),
                       dv_or_=match_oq_[10],
                       du_os_=match_oq_[9],
                       v_ot_=match_oq_[8],
                       u_ou_=match_oq_[7],
                       dv3_ov_=match_oq_[6],
                       du3_ow_=match_oq_[5],
                       dv2_ox_=match_oq_[4],
                       du2_oy_=match_oq_[3],
                       v1_oz_=match_oq_[2],
                       u1_oA_=match_oq_[1],
                       dx2_oB_=x2_ol_-x1_oi_,
                       dx3_oC_=x3_oo_-x1_oi_,
                       dy2_oD_=y2_ok_-y1_oh_,
                       dy3_oE_=y3_on_-y1_oh_,
                       a_oF_=dx2_oB_*dv3_ov_-dx3_oC_*dv2_ox_,
                       b_oG_=dx2_oB_*du3_ow_-dx3_oC_*du2_oy_,
                       d_oH_=dy2_oD_*dv3_ov_-dy3_oE_*dv2_ox_,
                       e_oI_=dy2_oD_*du3_ow_-dy3_oE_*du2_oy_;
                      ctx__mb_.transform
                       (a_oF_,
                        d_oH_,
                        b_oG_,
                        e_oI_,
                        x1_oi_-a_oF_*u1_oA_-b_oG_*v1_oz_,
                        y1_oh_-d_oH_*u1_oA_-e_oI_*v1_oz_);
                      ctx__mb_.drawImage
                       (canvas__l7_,
                        u_ou_,
                        v_ot_,
                        du_os_,
                        dv_or_,
                        u_ou_,
                        v_ot_,
                        du_os_,
                        dv_or_);
                      ctx__mb_.restore();}
                    var _oJ_=i_oc_+1|0;
                    if(_ob_!==i_oc_){var i_oc_=_oJ_;continue;}
                    break;}}
                ctx__mb_.restore();
                ctx_ma_.globalCompositeOperation=_D_.toString();
                ctx_ma_.drawImage(canvas__l$_,0,0);
                try {ctx_ma_.getImageData(0,0,1,1);}catch(_pa_){}
                var
                 t__oK_=new date_constr_i7_().getTime(),
                 hz_oL_=1000/(t__oK_-ti_n3_[1]),
                 _oM_=fps_n4_[1]==0?hz_oL_:0.9*fps_n4_[1]+0.1*hz_oL_;
                fps_n4_[1]=_oM_;
                rateText_nn_.data=_dj_(_ha_,_C_,fps_n4_[1]).toString();
                ti_n3_[1]=t__oK_;
                function _oX_(param_oV_)
                 {var
                   t__oN_=new date_constr_i7_().getTime(),
                   dt_oP_=t__oN_-t_oO_,
                   dt_oQ_=dt_oP_<0?0:1000<dt_oP_?0:dt_oP_,
                   angle_oR_=2*pi_j9_*dt_oQ_/1000/10,
                   _oS_=
                    paused_ne_[1]
                     ?0
                     :follow_ng_[1]?(phi_rot_nm_[1]=phi_rot_nm_[1]+angle_oR_,1):0;
                  _oS_;
                  var _oT_=paused_ne_[1]?phi_n5_:phi_n5_+angle_oR_;
                  return loop_oU_(t__oN_,_oT_);}
                var
                 match_oW_=task_h7_(0),
                 w_oZ_=match_oW_[2],
                 t_oY_=match_oW_[1],
                 _o1_=0.01*1000,
                 id_o2_=
                  window_jC_.setTimeout
                   (caml_js_wrap_callback
                     (function(param_o0_){return wakeup_hN_(w_oZ_,0);}),
                    _o1_);
                function _o4_(param_o3_)
                 {return window_jC_.clearTimeout(id_o2_);}
                var _o5_=repr_hn_(t_oY_)[1];
                switch(_o5_[0])
                 {case 1:
                   var _o6_=_o5_[1][1]===Canceled_he_?(_o4_(0),1):0;break;
                  case 2:
                   var sleeper_o$_=_o5_[1],data_o8_=current_data_hf_[1];
                   add_immutable_waiter_h$_
                    (sleeper_o$_,
                     function(param_o7_)
                      {if(1===param_o7_[0]&&param_o7_[1][1]===Canceled_he_)
                        {current_data_hf_[1]=data_o8_;
                         try {var _o9_=_o4_(0);}catch(_o__){return 0;}
                         return _o9_;}
                       return 0;});
                   var _o6_=1;
                   break;
                  default:var _o6_=0;}
                _o6_;
                return bind_iz_(t_oY_,_oX_);};
            return loop_oU_(new date_constr_i7_().getTime(),0);}}
        var _pb_=unsafeCreateElement_jM_(document_jD_,_Y_);
        function _pf_(param_pd_){return [0,[0,_pb_]];}
        var match_pe_=task_h7_(0),w_ph_=match_pe_[2],t_pi_=match_pe_[1];
        function cont_pj_(x_pg_){return wakeup_hN_(w_ph_,x_pg_);}
        _pb_.onload=
        handler_jh_(function(param_pk_){cont_pj_(0);return _false_i5_;});
        _pb_.src=texture_pl_;
        var _pm_=repr_hn_(bind_iz_(bind_iz_(t_pi_,_pf_),_pc_))[1];
        switch(_pm_[0])
         {case 1:throw _pm_[1];
          case 2:
           var sleeper_po_=_pm_[1];
           add_immutable_waiter_h$_
            (sleeper_po_,
             function(param_pn_)
              {switch(param_pn_[0])
                {case 0:return 0;
                 case 1:throw param_pn_[1];
                 default:throw [0,_c_,_af_];}});
           break;
          case 3:throw [0,_c_,_ae_];
          default:}
        return _false_i5_;});
    do_at_exit_a2_(0);
    return;}
  ());