urbit/j/5/parse.c

/* j/5/parse.c
**
** This file is in the public domain.
*/
#include "all.h"


  static u3_noun
  _slip(
        u3_noun weq,
        u3_noun naz)
  {
    u3_noun p_naz, q_naz;

    u3_cx_cell(naz, &p_naz, &q_naz);
    if ( 10 == weq ) {
      return u3nc(u3_cx_good(
                                     u3_ci_vint(u3k(p_naz))),
                          1);
    } else {
      return u3nc(u3k(p_naz),
                          u3_cx_good(
                                     u3_ci_vint(u3k(q_naz))));
    }
  }

  static u3_noun
  _fail(
        u3_noun tub)
  {
    u3_noun p_tub, q_tub;

    u3_cx_cell(tub, &p_tub, &q_tub);
    return u3nc(u3k(p_tub), u3_nul);
  }

  static u3_noun
  _last(
        u3_noun zyc,
        u3_noun naz)
  {
    u3_noun p_zyc, q_zyc, p_naz, q_naz;

    u3_cx_cell(zyc, &p_zyc, &q_zyc);
    u3_cx_cell(naz, &p_naz, &q_naz);

    if ( !_(u3_ca_is_cat(p_zyc)) || !_(u3_ca_is_cat(q_zyc)) ||
         !_(u3_ca_is_cat(p_naz)) || !_(u3_ca_is_cat(q_naz)) )
    {
      return u3_cm_bail(c3__fail);
    } else {
      if ( p_zyc == p_naz ) {
        return (q_zyc > q_naz) ? u3k(zyc) : u3k(naz);
      }
      else {
        return (p_zyc > p_naz) ? u3k(zyc) : u3k(naz);
      }
    }
  }

  static u3_noun
  _next(
        u3_noun tub)
  {
    u3_noun p_tub, q_tub;
    u3_noun zac;

    u3_cx_cell(tub, &p_tub, &q_tub);
    if ( c3n == u3du(q_tub) ) {
      return _fail(tub);
    }
    else {
      u3_noun iq_tub = u3h(q_tub);
      u3_noun tq_tub = u3t(q_tub);

      zac = _slip(iq_tub, p_tub);

      return u3nc
        (zac,
                u3nq(u3_nul,
                             u3k(iq_tub),
                             u3k(zac),
                             u3k(tq_tub)));
    }
  }

/* bend
*/
  u3_noun
  _cqe_bend_fun(u3_noun raq,
                         u3_noun vex,
                         u3_noun sab)
  {
    u3_noun p_vex, q_vex;

    u3_cx_cell(vex, &p_vex, &q_vex);
    if ( c3n == u3du(q_vex) ) {
      return u3k(vex);
    } else {
      u3_noun uq_vex = u3t(q_vex);
      u3_noun puq_vex, quq_vex;
      u3_noun yit, yur;
      u3_noun p_yit, q_yit;
      u3_noun ret;

      u3_cx_cell(uq_vex, &puq_vex, &quq_vex);
      yit = u3_cx_good(u3_cn_slam_on(u3k(sab), u3k(quq_vex)));

      u3_cx_cell(yit, &p_yit, &q_yit);
      yur = _last(p_vex, p_yit);

      if ( c3n == u3du(q_yit) ) {
        ret = u3nc(yur, u3k(q_vex));
      }
      else {
        u3_noun uq_yit = u3t(q_yit);
        u3_noun puq_yit, quq_yit;
        u3_noun vux;

        u3_cx_cell(uq_yit, &puq_yit, &quq_yit);

        vux = u3_cx_good
                    (u3_cn_slam_on
                       (u3k(raq),
                               u3nc(u3k(puq_vex),
                                            u3k(puq_yit))));
        if ( u3_nul == vux ) {
          ret = u3nc(yur, u3k(q_vex));
        }
        else {
          ret = u3nq(yur,
                             u3_nul,
                             u3k(u3t(vux)),
                             u3k(quq_yit));
          u3z(vux);
        }
      }
      u3z(yit);
      return ret;
    }
  }

  u3_noun
 u3_cwe_bend_fun(u3_noun cor)
  {
    u3_noun van, raq, vex, sab;

    if ( (c3n == u3_cr_mean(cor, u3_cv_sam_2, &vex,
                                u3_cv_sam_3, &sab,
                                u3_cv_con, &van, 0)) ||
         (u3_none == (raq = u3_cr_at(u3_cv_sam, van))) )
    {
      return u3_cm_bail(c3__fail);
    } else {
      return _cqe_bend_fun(raq, vex, sab);
    }
  }

/* cold
*/
  u3_noun
  _cqe_cold_fun(
                         u3_noun cus,
                         u3_noun sef,
                         u3_noun tub)
  {
    u3_noun vex = u3_cx_good(u3_cn_slam_on(u3k(sef), u3k(tub)));
    u3_noun p_vex, q_vex;

    u3_cx_cell(vex, &p_vex, &q_vex);

    if ( c3n == u3du(q_vex) ) {
      return vex;
    }
    else {
      u3_noun uq_vex = u3t(q_vex);
      u3_noun quq_vex;
      u3_noun ret;

      u3_cx_cell(uq_vex, 0, &quq_vex);
      ret = u3nq(u3k(p_vex),
                         u3_nul,
                         u3k(cus),
                         u3k(quq_vex));

      u3z(vex);
      return ret;
    }
  }

  u3_noun
 u3_cwe_cold_fun(
                        u3_noun cor)
  {
    u3_noun van, cus, sef, tub;

    if ( (c3n == u3_cr_mean(cor, u3_cv_sam, &tub, u3_cv_con, &van, 0)) ||
         (c3n == u3_cr_mean(van, u3_cv_sam_2, &cus, u3_cv_sam_3, &sef, 0)) )
    {
      return u3_cm_bail(c3__fail);
    } else {
      return _cqe_cold_fun(cus, sef, tub);
    }
  }

/* cook
*/
  u3_noun
  _cqe_cook_fun(
                         u3_noun poq,
                         u3_noun sef,
                         u3_noun tub)
  {
    u3_noun vex = u3_cx_good(u3_cn_slam_on(u3k(sef), u3k(tub)));
    u3_noun p_vex, q_vex;

    u3_cx_cell(vex, &p_vex, &q_vex);

    if ( c3n == u3du(q_vex) ) {
      return vex;
    }
    else {
      u3_noun uq_vex = u3t(q_vex);
      u3_noun puq_vex, quq_vex;
      u3_noun wag;
      u3_noun ret;

      u3_cx_cell(uq_vex, &puq_vex, &quq_vex);
      wag = u3_cx_good(u3_cn_slam_on(u3k(poq), u3k(puq_vex)));
      ret = u3nq(u3k(p_vex),
                         u3_nul,
                         wag,
                         u3k(quq_vex));

      u3z(vex);
      return ret;
    }
  }

  u3_noun
 u3_cwe_cook_fun(
                        u3_noun cor)
  {
    u3_noun van, poq, sef, tub;

    if ( (c3n == u3_cr_mean(cor, u3_cv_sam, &tub, u3_cv_con, &van, 0)) ||
         (c3n == u3_cr_mean(van, u3_cv_sam_2, &poq, u3_cv_sam_3, &sef, 0)) )
    {
      return u3_cm_bail(c3__fail);
    } else {
      return _cqe_cook_fun(poq, sef, tub);
    }
  }

/* comp
*/
  u3_noun
  _cqe_comp_fun(
                         u3_noun raq,
                         u3_noun vex,
                         u3_noun sab)
  {
    u3_noun p_vex, q_vex;

    u3_cx_cell(vex, &p_vex, &q_vex);
    if ( c3n == u3du(q_vex) ) {
      return u3k(vex);
    } else {
      u3_noun uq_vex = u3t(q_vex);
      u3_noun puq_vex, quq_vex;
      u3_noun yit, yur;
      u3_noun p_yit, q_yit;
      u3_noun ret;

      u3_cx_cell(uq_vex, &puq_vex, &quq_vex);
      yit = u3_cx_good(u3_cn_slam_on(u3k(sab), u3k(quq_vex)));

      u3_cx_cell(yit, &p_yit, &q_yit);
      yur = _last(p_vex, p_yit);

      if ( c3n == u3du(q_yit) ) {
        ret = u3nc(yur, u3k(q_yit));
      }
      else {
        u3_noun uq_yit = u3t(q_yit);
        u3_noun puq_yit, quq_yit;

        u3_cx_cell(uq_yit, &puq_yit, &quq_yit);
        ret = u3nq(yur,
                           u3_nul,
                           u3_cx_good
                            (
                             u3_cn_slam_on
                               (u3k(raq),
                                       u3nc(u3k(puq_vex),
                                                    u3k(puq_yit)))),
                           u3k(quq_yit));
      }
      u3z(yit);
      return ret;
    }
  }

  u3_noun
 u3_cwe_comp_fun(
                        u3_noun cor)
  {
    u3_noun van, raq, vex, sab;

    if ( (c3n == u3_cr_mean(cor, u3_cv_sam_2, &vex,
                                u3_cv_sam_3, &sab,
                                u3_cv_con, &van, 0)) ||
         (u3_none == (raq = u3_cr_at(u3_cv_sam, van))) )
    {
      return u3_cm_bail(c3__fail);
    } else {
      return _cqe_comp_fun(raq, vex, sab);
    }
  }

/* easy
*/
  u3_noun
  _cqe_easy_fun(
                         u3_noun huf,
                         u3_noun tub)
  {
    u3_noun p_tub, q_tub;

    u3_cx_cell(tub, &p_tub, &q_tub);
    return u3nq(u3k(p_tub),
                        u3_nul,
                        u3k(huf),
                        u3k(tub));
  }
  u3_noun
 u3_cwe_easy_fun(
                        u3_noun cor)
  {
    u3_noun van, huf, tub;

    if ( (c3n == u3_cr_mean(cor, u3_cv_sam, &tub, u3_cv_con, &van, 0)) ||
         (u3_none == (huf = u3_cr_at(u3_cv_sam, van))) )
    {
      return u3_cm_bail(c3__fail);
    } else {
      return _cqe_easy_fun(huf, tub);
    }
  }

/* glue
*/
  u3_noun
  _cqe_glue_fun(
                         u3_noun bus,
                         u3_noun vex,
                         u3_noun sab)
  {
    u3_noun p_vex, q_vex;

    u3_cx_cell(vex, &p_vex, &q_vex);
    if ( c3n == u3du(q_vex) ) {
      return u3k(vex);
    }
    else {
      u3_noun uq_vex = u3t(q_vex);
      u3_noun puq_vex, quq_vex;
      u3_noun yit, yur;
      u3_noun p_yit, q_yit;
      u3_noun ret;

      u3_cx_cell(uq_vex, &puq_vex, &quq_vex);
      yit = u3_cx_good(u3_cn_slam_on(u3k(bus), u3k(quq_vex)));

      u3_cx_cell(yit, &p_yit, &q_yit);
      yur = _last(p_vex, p_yit);

      if ( c3n == u3du(q_yit) ) {
        ret = u3nc(yur, u3_nul);
      }
      else {
        u3_noun uq_yit = u3t(q_yit);
        u3_noun puq_yit, quq_yit;
        u3_noun wam, p_wam, q_wam, goy;

        u3_cx_cell(uq_yit, &puq_yit, &quq_yit);
        wam = u3_cx_good(u3_cn_slam_on(u3k(sab), u3k(quq_yit)));

        u3_cx_cell(wam, &p_wam, &q_wam);
        goy = _last(yur, p_wam);
        u3z(yur);

        if ( c3n == u3du(q_wam) ) {
          ret = u3nc(goy, u3_nul);
        } else {
          u3_noun uq_wam = u3t(q_wam);
          u3_noun puq_wam, quq_wam;

          u3_cx_cell(uq_wam, &puq_wam, &quq_wam);
          ret = u3nq(goy,
                             u3_nul,
                             u3nc(u3k(puq_vex),
                                          u3k(puq_wam)),
                             u3k(quq_wam));
        }
        u3z(wam);
      }
      u3z(yit);
      return ret;
    }
  }

  u3_noun
 u3_cwe_glue_fun(
                        u3_noun cor)
  {
    u3_noun van, bus, vex, sab;

    if ( (c3n == u3_cr_mean(cor, u3_cv_sam_2, &vex,
                                u3_cv_sam_3, &sab,
                                u3_cv_con, &van, 0)) ||
         (u3_none == (bus = u3_cr_at(u3_cv_sam, van))) )
    {
      return u3_cm_bail(c3__fail);
    } else {
      return _cqe_glue_fun(bus, vex, sab);
    }
  }

/* here
*/
  u3_noun
  _cqe_here_fun(
                         u3_noun hez,
                         u3_noun sef,
                         u3_noun tub)
  {
    u3_noun vex = u3_cx_good(u3_cn_slam_on(u3k(sef), u3k(tub)));
    u3_noun p_vex, q_vex;

    u3_cx_cell(vex, &p_vex, &q_vex);

    if ( c3n == u3du(q_vex) ) {
      return vex;
    }
    else {
      u3_noun uq_vex = u3t(q_vex);
      u3_noun p_tub, q_tub;
      u3_noun puq_vex, quq_vex, pquq_vex;
      u3_noun gud, wag;
      u3_noun ret;

      u3_cx_cell(tub, &p_tub, &q_tub);
      u3_cx_cell(uq_vex, &puq_vex, &quq_vex);
      u3_cx_cell(quq_vex, &pquq_vex, 0);
      gud = u3nc(
                  u3nc(u3k(p_tub),
                               u3k(pquq_vex)),
                  u3k(puq_vex));

      wag = u3_cx_good(u3_cn_slam_on(u3k(hez), gud));
      ret = u3nq(u3k(p_vex),
                         u3_nul,
                         wag,
                         u3k(quq_vex));

      u3z(vex);
      return ret;
    }
  }

  u3_noun
 u3_cwe_here_fun(
                        u3_noun cor)
  {
    u3_noun van, hez, sef, tub;

    if ( (c3n == u3_cr_mean(cor, u3_cv_sam, &tub, u3_cv_con, &van, 0)) ||
         (c3n == u3_cr_mean(van, u3_cv_sam_2, &hez, u3_cv_sam_3, &sef, 0)) )
    {
      return u3_cm_bail(c3__fail);
    } 
    else {
      return _cqe_here_fun(hez, sef, tub);
    }
  }

/* just
*/
  u3_noun
  _cqe_just_fun(
                         u3_noun daf,
                         u3_noun tub)
  {
    u3_noun p_tub, q_tub;

    u3_cx_cell(tub, &p_tub, &q_tub);

    if ( c3n == u3du(q_tub) ) {
      return _fail(tub);
    }
    else {
      u3_noun iq_tub = u3h(q_tub);

      if ( c3y == u3_cr_sing(daf, iq_tub) ) {
        return _next(tub);
      }
      else return _fail(tub);
    }
  }
  u3_noun
 u3_cwe_just_fun(
                        u3_noun cor)
  {
    u3_noun van, daf, tub;

    if ( (c3n == u3_cr_mean(cor, u3_cv_sam, &tub, u3_cv_con, &van, 0)) ||
         (u3_none == (daf = u3_cr_at(u3_cv_sam, van))) )
    {
      return u3_cm_bail(c3__fail);
    } else {
      return _cqe_just_fun(daf, tub);
    }
  }

/* mask
*/
  u3_noun
  _cqe_mask_fun(
                         u3_noun bud,
                         u3_noun tub)
  {
    u3_noun p_tub, q_tub;

    u3_cx_cell(tub, &p_tub, &q_tub);

    if ( c3n == u3du(q_tub) ) {
      return _fail(tub);
    }
    else {
      u3_noun iq_tub = u3h(q_tub);

      while ( c3y == u3du(bud) ) {
        if ( c3y == u3_cr_sing(u3h(bud), iq_tub) ) {
          return _next(tub);
        }
        bud = u3t(bud);
      }
      return _fail(tub);
    }
  }
  u3_noun
 u3_cwe_mask_fun(
                        u3_noun cor)
  {
    u3_noun van, bud, tub;

    if ( (c3n == u3_cr_mean(cor, u3_cv_sam, &tub, u3_cv_con, &van, 0)) ||
         (u3_none == (bud = u3_cr_at(u3_cv_sam, van))) )
    {
      return u3_cm_bail(c3__fail);
    } else {
      return _cqe_mask_fun(bud, tub);
    }
  }
/* pfix
*/
  u3_noun
  _cqe_pfix(
                    u3_noun vex,
                    u3_noun sab)
  {
    u3_noun p_vex, q_vex;

    u3_cx_cell(vex, &p_vex, &q_vex);
    if ( c3n == u3du(q_vex) ) {
      return u3k(vex);
    }
    else {
      u3_noun uq_vex = u3t(q_vex);
      u3_noun puq_vex, quq_vex;
      u3_noun yit, p_yit, q_yit;
      u3_noun ret;

      u3_cx_cell(uq_vex, &puq_vex, &quq_vex);
      yit = u3_cx_good(u3_cn_slam_on(u3k(sab), u3k(quq_vex)));

      u3_cx_cell(yit, &p_yit, &q_yit);
      ret = u3nc
        (
         _last(p_vex, p_yit),
         u3k(q_yit));

      u3z(yit);
      return ret;
    }
  }
  u3_noun
  u3_cwe_pfix(
                   u3_noun cor)
  {
    u3_noun vex, sab;

    if ( (c3n == u3_cr_mean(cor, u3_cv_sam_2, &vex, u3_cv_sam_3, &sab, 0)) ) {
      return u3_cm_bail(c3__exit);
    } else {
      return _cqe_pfix(vex, sab);
    }
  }

/* plug
*/
  u3_noun
  _cqe_plug(
                    u3_noun vex,
                    u3_noun sab)
  {
    u3_noun p_vex, q_vex;

    u3_cx_cell(vex, &p_vex, &q_vex);
    if ( c3n == u3du(q_vex) ) {
      return u3k(vex);
    }
    else {
      u3_noun uq_vex = u3t(q_vex);
      u3_noun puq_vex, quq_vex;
      u3_noun yit, yur;
      u3_noun p_yit, q_yit;
      u3_noun ret;

      u3_cx_cell(uq_vex, &puq_vex, &quq_vex);
      yit = u3_cx_good(u3_cn_slam_on(u3k(sab), u3k(quq_vex)));

      u3_cx_cell(yit, &p_yit, &q_yit);
      yur = _last(p_vex, p_yit);

      if ( c3n == u3du(q_yit) ) {
        ret = u3nc(yur, u3k(q_yit));
      }
      else {
        u3_noun uq_yit = u3t(q_yit);
        u3_noun puq_yit, quq_yit;

        u3_cx_cell(uq_yit, &puq_yit, &quq_yit);
        ret = u3nq(yur,
                           u3_nul,
                           u3nc(u3k(puq_vex),
                                        u3k(puq_yit)),
                           u3k(quq_yit));
      }
      u3z(yit);
      return ret;
    }
  }
  u3_noun
  u3_cwe_plug(
                   u3_noun cor)
  {
    u3_noun vex, sab;

    if ( (c3n == u3_cr_mean(cor, u3_cv_sam_2, &vex, u3_cv_sam_3, &sab, 0)) ) {
      return u3_cm_bail(c3__exit);
    } else {
      return _cqe_plug(vex, sab);
    }
  }

/* pose
*/
  u3_noun
  u3_cqe_pose(u3_noun vex,
                    u3_noun sab)
  {
    u3_noun p_vex, q_vex;

    u3_cx_cell(vex, &p_vex, &q_vex);
    if ( c3y == u3du(q_vex) ) {
      return u3k(vex);
    } else {
      u3_noun roq = u3_cx_good(u3_cn_kick_on(u3k(sab)));
      u3_noun p_roq, q_roq;
      u3_noun ret;

      u3_cx_cell(roq, &p_roq, &q_roq);
      ret = u3nc
        (
         _last(p_vex, p_roq),
         u3k(q_roq));

      u3z(roq);
      return ret;
    }
  }
  u3_noun
  u3_cwe_pose(
                   u3_noun cor)
  {
    u3_noun vex, sab;

    if ( (c3n == u3_cr_mean(cor, u3_cv_sam_2, &vex, u3_cv_sam_3, &sab, 0)) ) {
      return u3_cm_bail(c3__exit);
    } else {
      return u3_cqe_pose(vex, sab);
    }
  }

/* sfix
*/
  u3_noun
  _cqe_sfix(u3_noun vex, u3_noun sab)
  {
    u3_noun p_vex, q_vex;

    u3_cx_cell(vex, &p_vex, &q_vex);
    if ( c3n == u3du(q_vex) ) {
      return u3k(vex);
    }
    else {
      u3_noun uq_vex = u3t(q_vex);
      u3_noun puq_vex, quq_vex;
      u3_noun yit, p_yit, q_yit, yur;
      u3_noun ret;

      u3_cx_cell(uq_vex, &puq_vex, &quq_vex);
      yit = u3_cx_good(u3_cn_slam_on(u3k(sab), u3k(quq_vex)));

      u3_cx_cell(yit, &p_yit, &q_yit);
      yur = _last(p_vex, p_yit);

      if ( c3n == u3du(q_yit) ) {
        ret = u3nc(yur, u3_nul);
      }
      else {
        u3_noun uq_yit = u3t(q_yit);
        u3_noun puq_yit, quq_yit;

        u3_cx_cell(uq_yit, &puq_yit, &quq_yit);

        ret = u3nq(yur,
                           u3_nul,
                           u3k(puq_vex),
                           u3k(quq_yit));
      }
      u3z(yit);
      return ret;
    }
  }
  u3_noun
  u3_cwe_sfix(u3_noun cor)
  {
    u3_noun vex, sab;

    if ( (c3n == u3_cr_mean(cor, u3_cv_sam_2, &vex, u3_cv_sam_3, &sab, 0)) ) {
      return u3_cm_bail(c3__exit);
    } else {
      return _cqe_sfix(vex, sab);
    }
  }

/* shim
*/
  u3_noun
  _cqe_shim_fun(u3_noun zep,
                         u3_noun tub)
  {
    u3_noun p_tub, q_tub;

    u3_cx_cell(tub, &p_tub, &q_tub);

    if ( c3n == u3du(q_tub) ) {
      return _fail(tub);
    }
    else {
      u3_noun p_zep, q_zep;
      u3_noun iq_tub = u3h(q_tub);

      u3_cx_cell(zep, &p_zep, &q_zep);
      if ( _(u3_ca_is_cat(p_zep)) &&
           _(u3_ca_is_cat(q_zep)) &&
           _(u3_ca_is_cat(iq_tub)) )
      {
        if ( (iq_tub >= p_zep) && (iq_tub <= q_zep) ) {
          return _next(tub);
        }
        else return _fail(tub);
      }
      else {
        return u3_cm_bail(c3__fail);
      }
    }
  }
  u3_noun
 u3_cwe_shim_fun(
                        u3_noun cor)
  {
    u3_noun van, zep, tub;

    if ( (c3n == u3_cr_mean(cor, u3_cv_sam, &tub, u3_cv_con, &van, 0)) ||
         (u3_none == (zep = u3_cr_at(u3_cv_sam, van))) )
    {
      return u3_cm_bail(c3__fail);
    } else {
      return _cqe_shim_fun(zep, tub);
    }
  }

/* stag
*/
  u3_noun
  _cqe_stag_fun(
                         u3_noun gob,
                         u3_noun sef,
                         u3_noun tub)
  {
    u3_noun vex = u3_cx_good(u3_cn_slam_on(u3k(sef), u3k(tub)));
    u3_noun p_vex, q_vex;

    u3_cx_cell(vex, &p_vex, &q_vex);

    if ( c3n == u3du(q_vex) ) {
      return vex;
    }
    else {
      u3_noun uq_vex = u3t(q_vex);
      u3_noun puq_vex, quq_vex;
      u3_noun wag;
      u3_noun ret;

      u3_cx_cell(uq_vex, &puq_vex, &quq_vex);
      wag = u3nc(u3k(gob), u3k(puq_vex));
      ret = u3nq(u3k(p_vex),
                         u3_nul,
                         wag,
                         u3k(quq_vex));

      u3z(vex);
      return ret;
    }
  }

  u3_noun
 u3_cwe_stag_fun(
                        u3_noun cor)
  {
    u3_noun van, gob, sef, tub;

    if ( (c3n == u3_cr_mean(cor, u3_cv_sam, &tub, u3_cv_con, &van, 0)) ||
         (c3n == u3_cr_mean(van, u3_cv_sam_2, &gob, u3_cv_sam_3, &sef, 0)) )
    {
      return u3_cm_bail(c3__fail);
    } else {
      return _cqe_stag_fun(gob, sef, tub);
    }
  }

/* stew
*/
  static u3_bean
  _stew_wor(
            u3_noun ort,
            u3_noun wan)
  {
    if ( !_(u3_ca_is_cat(ort)) ) {
      return u3_cm_bail(c3__fail);
    }
    else {
      if ( c3n == u3du(wan) ) {
        if ( !_(u3_ca_is_cat(wan)) ) {
          return u3_cm_bail(c3__fail);
        }
        else return (ort < wan) ? c3y : c3n;
      }
      else {
        u3_noun h_wan = u3h(wan);

        if ( !_(u3_ca_is_cat(h_wan)) ) {
          return u3_cm_bail(c3__fail);
        }
        else return (ort < h_wan) ? c3y : c3n;
      }
    }
  }

  u3_noun
  _cqe_stew_fun(
                         u3_noun hel,
                         u3_noun tub)
  {
    u3_noun p_tub, q_tub;

    u3_cx_cell(tub, &p_tub, &q_tub);
    if ( c3n == u3du(q_tub) ) {
      return _fail(tub);
    }
    else {
      u3_noun iq_tub = u3h(q_tub);

      if ( !_(u3_ca_is_cat(iq_tub)) ) {
        return u3_cm_bail(c3__fail);
      }
      else while ( 1 ) {
        if ( c3n == u3du(hel) ) {
          return _fail(tub);
        }
        else {
          u3_noun n_hel, l_hel, r_hel;
          u3_noun pn_hel, qn_hel;
          c3_o    bit_o;

          u3_cx_trel(hel, &n_hel, &l_hel, &r_hel);
          u3_cx_cell(n_hel, &pn_hel, &qn_hel);

          if ( (c3n == u3du(pn_hel)) ) {
            bit_o = __((iq_tub == pn_hel));
          }
          else {
            u3_noun hpn_hel = u3h(pn_hel);
            u3_noun tpn_hel = u3t(pn_hel);

            if ( !_(u3_ca_is_cat(hpn_hel)) ||
                 !_(u3_ca_is_cat(tpn_hel)) ) {
              return _fail(tub);
            }
            else bit_o = __((iq_tub >= hpn_hel) && (iq_tub <= tpn_hel));
          }

          if ( c3y == bit_o ) {
            return u3_cx_good
              (u3_cn_slam_on(u3k(qn_hel), u3k(tub)));
          } else {
            if ( c3y == _stew_wor(iq_tub, pn_hel) ) {
              hel = l_hel;
            }
            else hel = r_hel;
          }
        }
      }
    }
  }
 u3_noun
 u3_cwe_stew_fun(
                        u3_noun cor)
  {
    u3_noun con, hel, tub;

    if ( (c3n == u3_cr_mean(cor, u3_cv_sam, &tub, u3_cv_con, &con, 0)) ||
         (u3_none == (hel = u3_cr_at(2, con))) )
    {
      return u3_cm_bail(c3__fail);
    } else {
      return _cqe_stew_fun(hel, tub);
    }
  }

/* stir
*/
  u3_noun
  _cqe_stir_fun(u3_noun rud,
                         u3_noun raq,
                         u3_noun fel,
                         u3_noun tub)
  {
    u3_noun vex = u3_cx_good(u3_cn_slam_on(u3k(fel), u3k(tub)));
    u3_noun p_vex, q_vex;
    u3_noun ret;

    u3_cx_cell(vex, &p_vex, &q_vex);
    if ( c3n == u3du(q_vex) ) {
      ret = u3nq(u3k(p_vex),
                         u3_nul,
                         u3k(rud),
                         u3k(tub));
    }
    else {
      u3_noun uq_vex = u3t(q_vex);
      u3_noun puq_vex, quq_vex;
      u3_noun wag, p_wag, q_wag, uq_wag, puq_wag, quq_wag;

      u3_cx_cell(uq_vex, &puq_vex, &quq_vex);
      wag = _cqe_stir_fun(rud, raq, fel, quq_vex);

      u3_cx_cell(wag, &p_wag, &q_wag);
      if ( c3n == u3du(q_wag) ) {
        return u3_cm_bail(c3__fail);
      }
      uq_wag = u3t(q_wag);
      u3_cx_cell(uq_wag, &puq_wag, &quq_wag);

      ret = u3nq
        (_last(p_vex, p_wag),
                u3_nul,
                u3_cx_good(u3_cn_slam_on
                            (u3k(raq),
                                    u3nc(u3k(puq_vex),
                                                 u3k(puq_wag)))),
                u3k(quq_wag));
      u3z(wag);
    }
    u3z(vex);
    return ret;
  }

  u3_noun
  u3_cwe_stir_fun(u3_noun cor)
  {
    u3_noun van, rud, raq, fel, tub;

    if ( (c3n == u3_cr_mean(cor, u3_cv_sam, &tub, u3_cv_con, &van, 0)) ||
         (c3n == u3_cr_mean(van, u3_cv_sam_2, &rud,
                                u3_cv_sam_6, &raq,
                                u3_cv_sam_7, &fel,
                                0)) )
    {
      return u3_cm_bail(c3__fail);
    } else {
      return _cqe_stir_fun(rud, raq, fel, tub);
    }
  }