BigInt.re

module BigInt = {
  type t = float;
  [@bs.val] external ofString: string => t = "BigInt";
  [@bs.val] external ofInt: int => t = "BigInt";

  external (<): (t, t) => bool = "%lessthan";
  external (<=): (t, t) => bool = "%lessequal";
  external (>): (t, t) => bool = "%greaterthan";
  external (>=): (t, t) => bool = "%greaterequal";
  external (==): (t, t) => bool = "%equal";

  external (+): (t, t) => t = "%addfloat";
  external (-): (t, t) => t = "%subfloat";
  external ( * ): (t, t) => t = "%mulfloat";
  external (/): (t, t) => t = "%divfloat";

  let zero = ofInt(0);
  let one = ofInt(1);
};

/*
let test = (n1, n2) => {
  open! BigInt;
  Js.log(n1 + n2);
  Js.log(n1 - n2);
  Js.log(n1 / n2);
  Js.log(n1 * n2);
  Js.log(n1 > n2);
  Js.log(n1 >= n2);
  Js.log(n1 < n2);
  Js.log(n1 <= n2);
  Js.log(n1 == n2);
  ();
};

test(BigInt.ofInt(1), BigInt.ofInt(2));
*/