Peano.js

// output/Hazy.mjs
function force(thunk) {
  return thunk.a ? thunk.b() : thunk.b;
}
var pack = {
  a: 0,
  b: (list) => {
    let buffer = "";
    let current = force(list);
    while (current.a) {
      buffer += force(current.b);
      current = force(current.c);
    }
    return buffer;
  }
};
var putStrLn = {
  a: 0,
  b: (thunk) => () => {
    console.log(force(thunk));
  }
};

// output/System/IO.mjs
var ue = { a: 1, b() {
  this.b = (me) => {
    let ne;
    oe: {
      const pe = { a: 1, b() {
        this.b = me.a ? me.b() : me.b;
        this.a = 0;
        return this.b;
      } };
      let qe;
      qe = putStrLn.a ? putStrLn.b() : putStrLn.b;
      ne = qe({ a: 1, b() {
        let se;
        se = pack.a ? pack.b() : pack.b;
        this.b = se({ a: 1, b() {
          this.b = pe.a ? pe.b() : pe.b;
          this.a = 0;
          return this.b;
        } });
        this.a = 0;
        return this.b;
      } });
      break oe;
    }
    return ne;
  };
  this.a = 0;
  return this.b;
} };

// output/Main.mjs
var o = { a: 1, b() {
  this.b = (e) => {
    let f;
    g: {
      const h = { a: 1, b() {
        this.b = e.a ? e.b() : e.b;
        this.a = 0;
        return this.b;
      } };
      let i;
      i = h.a ? h.b() : h.b;
      if (i.a === 1) {
        const j = i.b;
        f = { a: 1, b: { a: 1, b() {
          this.b = "+";
          this.a = 0;
          return this.b;
        } }, c: { a: 1, b() {
          let k;
          k = o.a ? o.b() : o.b;
          this.b = k({ a: 1, b() {
            this.b = j.a ? j.b() : j.b;
            this.a = 0;
            return this.b;
          } });
          this.a = 0;
          return this.b;
        } } };
        break g;
      }
      const m = { a: 1, b() {
        this.b = e.a ? e.b() : e.b;
        this.a = 0;
        return this.b;
      } };
      let n;
      n = m.a ? m.b() : m.b;
      if (n.a === 0) {
        f = { a: 0 };
        break g;
      }
    }
    return f;
  };
  this.a = 0;
  return this.b;
} };
var z = (p) => {
  let q;
  q = (r) => {
    let s;
    t: {
      const u = { a: 1, b() {
        this.b = r.a ? r.b() : r.b;
        this.a = 0;
        return this.b;
      } };
      let v;
      const w = p.a;
      v = w.a ? w.b() : w.b;
      s = v({ a: 1, b() {
        let x;
        const y = p.a;
        x = y.a ? y.b() : y.b;
        this.b = x({ a: 1, b() {
          this.b = u.a ? u.b() : u.b;
          this.a = 0;
          return this.b;
        } });
        this.a = 0;
        return this.b;
      } });
      break t;
    }
    return s;
  };
  return q;
};
var ba = { a: 1, b() {
  aa: {
    this.b = { a: 1, b: { a: 1, b() {
      this.b = { a: 1, b: { a: 1, b() {
        this.b = { a: 1, b: { a: 1, b() {
          this.b = { a: 0 };
          this.a = 0;
          return this.b;
        } } };
        this.a = 0;
        return this.b;
      } } };
      this.a = 0;
      return this.b;
    } } };
    break aa;
  }
  this.a = 0;
  return this.b;
} };
var ha = { a: 1, b() {
  ca: {
    let da;
    da = z(ya);
    this.b = da({ a: 1, b() {
      this.b = ba.a ? ba.b() : ba.b;
      this.a = 0;
      return this.b;
    } });
    break ca;
  }
  this.a = 0;
  return this.b;
} };
var na = { a: 1, b() {
  ia: {
    let ja;
    ja = ue.a ? ue.b() : ue.b;
    this.b = ja({ a: 1, b() {
      let la;
      la = o.a ? o.b() : o.b;
      this.b = la({ a: 1, b() {
        this.b = ha.a ? ha.b() : ha.b;
        this.a = 0;
        return this.b;
      } });
      this.a = 0;
      return this.b;
    } });
    break ia;
  }
  this.a = 0;
  return this.b;
} };
var ya = { a: { a: 1, b() {
  this.b = (oa) => {
    let pa;
    qa: {
      const ra = { a: 1, b() {
        this.b = oa.a ? oa.b() : oa.b;
        this.a = 0;
        return this.b;
      } };
      let sa;
      sa = ra.a ? ra.b() : ra.b;
      if (sa.a === 1) {
        const ta = sa.b;
        pa = { a: 1, b: { a: 1, b() {
          this.b = { a: 1, b: { a: 1, b() {
            let ua;
            const va = ya.a;
            ua = va.a ? va.b() : va.b;
            this.b = ua({ a: 1, b() {
              this.b = ta.a ? ta.b() : ta.b;
              this.a = 0;
              return this.b;
            } });
            this.a = 0;
            return this.b;
          } } };
          this.a = 0;
          return this.b;
        } } };
        break qa;
      }
      const wa = { a: 1, b() {
        this.b = oa.a ? oa.b() : oa.b;
        this.a = 0;
        return this.b;
      } };
      let xa;
      xa = wa.a ? wa.b() : wa.b;
      if (xa.a === 0) {
        pa = { a: 0 };
        break qa;
      }
    }
    return pa;
  };
  this.a = 0;
  return this.b;
} } };

// output/index.mjs
(na.a ? na.b() : na.b)();