let sum = n => {
  let rec loop = (n, k) =>
    if (n == 0) {
      k(0);
    } else {
      loop(n - 1, x => k(x + n));
    };
  loop(n, x => x);
};