curry.js

import * as Caml_array from "./caml_array.js";

function app(_f, _args) {
  while (true) {
    let args = _args;
    let f = _f;
    let init_arity = f.length;
    let arity = init_arity === 0 ? 1 : init_arity;
    let len = args.length;
    let d = arity - len | 0;
    if (d === 0) {
      return f.apply(null, args);
    }
    if (d >= 0) {
      return function (x) {
        return app(f, args.concat([x]));
      };
    }
    _args = Caml_array.sub(args, arity, -d | 0);
    _f = f.apply(null, Caml_array.sub(args, 0, arity));
    continue;
  };
}

function _1(o, a0) {
  let arity = o.length;
  if (arity === 1) {
    return o(a0);
  } else {
    switch (arity) {
      case 1 :
        return o(a0);
      case 2 :
        return function (param) {
          return o(a0, param);
        };
      case 3 :
        return function (param, param$1) {
          return o(a0, param, param$1);
        };
      case 4 :
        return function (param, param$1, param$2) {
          return o(a0, param, param$1, param$2);
        };
      case 5 :
        return function (param, param$1, param$2, param$3) {
          return o(a0, param, param$1, param$2, param$3);
        };
      case 6 :
        return function (param, param$1, param$2, param$3, param$4) {
          return o(a0, param, param$1, param$2, param$3, param$4);
        };
      case 7 :
        return function (param, param$1, param$2, param$3, param$4, param$5) {
          return o(a0, param, param$1, param$2, param$3, param$4, param$5);
        };
      default:
        return app(o, [a0]);
    }
  }
}

function __1(o) {
  let arity = o.length;
  if (arity === 1) {
    return o;
  } else {
    return function (a0) {
      return _1(o, a0);
    };
  }
}

function _2(o, a0, a1) {
  let arity = o.length;
  if (arity === 2) {
    return o(a0, a1);
  } else {
    switch (arity) {
      case 1 :
        return app(o(a0), [a1]);
      case 2 :
        return o(a0, a1);
      case 3 :
        return function (param) {
          return o(a0, a1, param);
        };
      case 4 :
        return function (param, param$1) {
          return o(a0, a1, param, param$1);
        };
      case 5 :
        return function (param, param$1, param$2) {
          return o(a0, a1, param, param$1, param$2);
        };
      case 6 :
        return function (param, param$1, param$2, param$3) {
          return o(a0, a1, param, param$1, param$2, param$3);
        };
      case 7 :
        return function (param, param$1, param$2, param$3, param$4) {
          return o(a0, a1, param, param$1, param$2, param$3, param$4);
        };
      default:
        return app(o, [
          a0,
          a1
        ]);
    }
  }
}

function __2(o) {
  let arity = o.length;
  if (arity === 2) {
    return o;
  } else {
    return function (a0, a1) {
      return _2(o, a0, a1);
    };
  }
}

function _3(o, a0, a1, a2) {
  let arity = o.length;
  if (arity === 3) {
    return o(a0, a1, a2);
  } else {
    switch (arity) {
      case 1 :
        return app(o(a0), [
          a1,
          a2
        ]);
      case 2 :
        return app(o(a0, a1), [a2]);
      case 3 :
        return o(a0, a1, a2);
      case 4 :
        return function (param) {
          return o(a0, a1, a2, param);
        };
      case 5 :
        return function (param, param$1) {
          return o(a0, a1, a2, param, param$1);
        };
      case 6 :
        return function (param, param$1, param$2) {
          return o(a0, a1, a2, param, param$1, param$2);
        };
      case 7 :
        return function (param, param$1, param$2, param$3) {
          return o(a0, a1, a2, param, param$1, param$2, param$3);
        };
      default:
        return app(o, [
          a0,
          a1,
          a2
        ]);
    }
  }
}

function __3(o) {
  let arity = o.length;
  if (arity === 3) {
    return o;
  } else {
    return function (a0, a1, a2) {
      return _3(o, a0, a1, a2);
    };
  }
}

function _4(o, a0, a1, a2, a3) {
  let arity = o.length;
  if (arity === 4) {
    return o(a0, a1, a2, a3);
  } else {
    switch (arity) {
      case 1 :
        return app(o(a0), [
          a1,
          a2,
          a3
        ]);
      case 2 :
        return app(o(a0, a1), [
          a2,
          a3
        ]);
      case 3 :
        return app(o(a0, a1, a2), [a3]);
      case 4 :
        return o(a0, a1, a2, a3);
      case 5 :
        return function (param) {
          return o(a0, a1, a2, a3, param);
        };
      case 6 :
        return function (param, param$1) {
          return o(a0, a1, a2, a3, param, param$1);
        };
      case 7 :
        return function (param, param$1, param$2) {
          return o(a0, a1, a2, a3, param, param$1, param$2);
        };
      default:
        return app(o, [
          a0,
          a1,
          a2,
          a3
        ]);
    }
  }
}

function __4(o) {
  let arity = o.length;
  if (arity === 4) {
    return o;
  } else {
    return function (a0, a1, a2, a3) {
      return _4(o, a0, a1, a2, a3);
    };
  }
}

function _5(o, a0, a1, a2, a3, a4) {
  let arity = o.length;
  if (arity === 5) {
    return o(a0, a1, a2, a3, a4);
  } else {
    switch (arity) {
      case 1 :
        return app(o(a0), [
          a1,
          a2,
          a3,
          a4
        ]);
      case 2 :
        return app(o(a0, a1), [
          a2,
          a3,
          a4
        ]);
      case 3 :
        return app(o(a0, a1, a2), [
          a3,
          a4
        ]);
      case 4 :
        return app(o(a0, a1, a2, a3), [a4]);
      case 5 :
        return o(a0, a1, a2, a3, a4);
      case 6 :
        return function (param) {
          return o(a0, a1, a2, a3, a4, param);
        };
      case 7 :
        return function (param, param$1) {
          return o(a0, a1, a2, a3, a4, param, param$1);
        };
      default:
        return app(o, [
          a0,
          a1,
          a2,
          a3,
          a4
        ]);
    }
  }
}

function __5(o) {
  let arity = o.length;
  if (arity === 5) {
    return o;
  } else {
    return function (a0, a1, a2, a3, a4) {
      return _5(o, a0, a1, a2, a3, a4);
    };
  }
}

function _6(o, a0, a1, a2, a3, a4, a5) {
  let arity = o.length;
  if (arity === 6) {
    return o(a0, a1, a2, a3, a4, a5);
  } else {
    switch (arity) {
      case 1 :
        return app(o(a0), [
          a1,
          a2,
          a3,
          a4,
          a5
        ]);
      case 2 :
        return app(o(a0, a1), [
          a2,
          a3,
          a4,
          a5
        ]);
      case 3 :
        return app(o(a0, a1, a2), [
          a3,
          a4,
          a5
        ]);
      case 4 :
        return app(o(a0, a1, a2, a3), [
          a4,
          a5
        ]);
      case 5 :
        return app(o(a0, a1, a2, a3, a4), [a5]);
      case 6 :
        return o(a0, a1, a2, a3, a4, a5);
      case 7 :
        return function (param) {
          return o(a0, a1, a2, a3, a4, a5, param);
        };
      default:
        return app(o, [
          a0,
          a1,
          a2,
          a3,
          a4,
          a5
        ]);
    }
  }
}

function __6(o) {
  let arity = o.length;
  if (arity === 6) {
    return o;
  } else {
    return function (a0, a1, a2, a3, a4, a5) {
      return _6(o, a0, a1, a2, a3, a4, a5);
    };
  }
}

function _7(o, a0, a1, a2, a3, a4, a5, a6) {
  let arity = o.length;
  if (arity === 7) {
    return o(a0, a1, a2, a3, a4, a5, a6);
  } else {
    switch (arity) {
      case 1 :
        return app(o(a0), [
          a1,
          a2,
          a3,
          a4,
          a5,
          a6
        ]);
      case 2 :
        return app(o(a0, a1), [
          a2,
          a3,
          a4,
          a5,
          a6
        ]);
      case 3 :
        return app(o(a0, a1, a2), [
          a3,
          a4,
          a5,
          a6
        ]);
      case 4 :
        return app(o(a0, a1, a2, a3), [
          a4,
          a5,
          a6
        ]);
      case 5 :
        return app(o(a0, a1, a2, a3, a4), [
          a5,
          a6
        ]);
      case 6 :
        return app(o(a0, a1, a2, a3, a4, a5), [a6]);
      case 7 :
        return o(a0, a1, a2, a3, a4, a5, a6);
      default:
        return app(o, [
          a0,
          a1,
          a2,
          a3,
          a4,
          a5,
          a6
        ]);
    }
  }
}

function __7(o) {
  let arity = o.length;
  if (arity === 7) {
    return o;
  } else {
    return function (a0, a1, a2, a3, a4, a5, a6) {
      return _7(o, a0, a1, a2, a3, a4, a5, a6);
    };
  }
}

function _8(o, a0, a1, a2, a3, a4, a5, a6, a7) {
  let arity = o.length;
  if (arity === 8) {
    return o(a0, a1, a2, a3, a4, a5, a6, a7);
  } else {
    switch (arity) {
      case 1 :
        return app(o(a0), [
          a1,
          a2,
          a3,
          a4,
          a5,
          a6,
          a7
        ]);
      case 2 :
        return app(o(a0, a1), [
          a2,
          a3,
          a4,
          a5,
          a6,
          a7
        ]);
      case 3 :
        return app(o(a0, a1, a2), [
          a3,
          a4,
          a5,
          a6,
          a7
        ]);
      case 4 :
        return app(o(a0, a1, a2, a3), [
          a4,
          a5,
          a6,
          a7
        ]);
      case 5 :
        return app(o(a0, a1, a2, a3, a4), [
          a5,
          a6,
          a7
        ]);
      case 6 :
        return app(o(a0, a1, a2, a3, a4, a5), [
          a6,
          a7
        ]);
      case 7 :
        return app(o(a0, a1, a2, a3, a4, a5, a6), [a7]);
      default:
        return app(o, [
          a0,
          a1,
          a2,
          a3,
          a4,
          a5,
          a6,
          a7
        ]);
    }
  }
}

function __8(o) {
  let arity = o.length;
  if (arity === 8) {
    return o;
  } else {
    return function (a0, a1, a2, a3, a4, a5, a6, a7) {
      return _8(o, a0, a1, a2, a3, a4, a5, a6, a7);
    };
  }
}

export {
  app,
  _1,
  __1,
  _2,
  __2,
  _3,
  __3,
  _4,
  __4,
  _5,
  __5,
  _6,
  __6,
  _7,
  __7,
  _8,
  __8,
}
/* No side effect */