u2_noun // transfer
j2_mc(Pt6, ut, firm)(u2_wire wir_r,
u2_noun cor) // retain
{
u2_noun sut, dib, van;
if ( (u2_no == u2_mean(cor, u2_cw_con, &van, u2_cw_sam, &dib, 0)) ||
(u2_none == (sut = u2_frag(u2_cw_sam, van))) )
{
return u2_bl_bail(wir_r, c3__fail);
} else {
return j2_mcx(Pt6, ut, firm)(wir_r, van, sut, dib);
}
}
u2_noun // transfer
j2_mb(Pt2, snag)(u2_wire wir_r,
u2_noun cor) // retain
{
u2_noun a, b;
if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0)) ||
(u2_no == u2_stud(a)) )
{
return u2_bl_bail(wir_r, c3__exit);
} else {
return j2_mbc(Pt2, snag)(wir_r, a, b);
}
}
u2_noun // produce
j2_mc(Pt5, shim, fun)(u2_wire wir_r,
u2_noun cor) // retain
{
u2_noun van, zep, tub;
if ( (u2_no == u2_mean(cor, u2_cv_sam, &tub, u2_cv_con, &van, 0)) ||
(u2_none == (zep = u2_frag(u2_cv_sam, van))) )
{
return u2_bl_bail(wir_r, c3__fail);
} else {
return j2_mcx(Pt5, shim, fun)(wir_r, zep, tub);
}
}
u2_noun // produce
j2_mc(Pt5, stew, fun)(u2_wire wir_r,
u2_noun cor) // retain
{
u2_noun con, hel, tub;
if ( (u2_no == u2_mean(cor, u2_cv_sam, &tub, u2_cv_con, &con, 0)) ||
(u2_none == (hel = u2_frag(2, con))) )
{
return u2_bl_bail(wir_r, c3__fail);
} else {
return j2_mcx(Pt5, stew, fun)(wir_r, hel, tub);
}
}
u2_weak
j2_mck(Pt6, ut, rest)(u2_wire wir_r,
u2_noun cor)
{
u2_noun sut, leg, van;
if ( (u2_no == u2_mean(cor, u2_cv_sam, &leg, u2_cv_con, &van, 0)) ||
(u2_none == (sut = u2_frag(u2_cv_sam, van))) )
{
return u2_none;
} else {
return u2_rc(wir_r, u2_rx(wir_r, sut), u2_rx(wir_r, leg));
}
}
u2_weak
j2_mck(Pt6, ut, nest)(u2_wire wir_r,
u2_noun cor)
{
u2_noun sut, ref, van;
if ( (u2_no == u2_mean(cor, u2_cw_con, &van, u2_cw_sam_3, &ref, 0)) ||
(u2_none == (sut = u2_frag(u2_cw_sam, van))) )
{
return u2_none;
} else {
return u2_rc(wir_r, u2_rx(wir_r, sut), u2_rx(wir_r, ref));
}
}
u2_weak // transfer
j2_mc(Pt4, by, put)(u2_wire wir_r,
u2_noun cor) // retain
{
u2_noun a, b, c;
if ( u2_no == u2_mean(cor, u2_cv_sam_2, &b,
u2_cv_sam_3, &c,
u2_cv_con_sam, &a, 0) ) {
return u2_bl_bail(wir_r, c3__exit);
} else {
return j2_mcc(Pt4, by, put)(wir_r, a, b, c);
}
}
u2_noun // transfer
j2_mc(Pt6, ut, rest)(u2_wire wir_r,
u2_noun cor) // retain
{
u2_noun sut, leg, van;
if ( (u2_no == u2_mean(cor, u2_cv_sam, &leg, u2_cv_con, &van, 0)) ||
(u2_none == (sut = u2_frag(u2_cv_sam, van))) )
{
return u2_bl_bail(wir_r, c3__fail);
} else {
return j2_mcx(Pt6, ut, rest)(wir_r, van, sut, leg);
}
}
u2_weak
j2_mck(Pt6, ut, firm)(u2_wire wir_r,
u2_noun cor)
{
u2_noun sut, dib, van;
if ( (u2_no == u2_mean(cor, u2_cw_con, &van, u2_cw_sam, &dib, 0)) ||
(u2_none == (sut = u2_frag(u2_cw_sam, van))) )
{
return u2_none;
} else {
return u2_rc(wir_r, u2_rx(wir_r, sut), u2_rx(wir_r, dib));
}
}
u2_weak // transfer
j2_mb(Pt1, mod)(u2_wire wir_r,
u2_noun cor) // retain
{
u2_noun a, b;
if ( (u2_no == u2_mean(cor, u2_cw_sam_2, &a, u2_cw_sam_3, &b, 0)) ||
(u2_no == u2_stud(a)) ||
(u2_no == u2_stud(b)) )
{
return u2_none;
} else {
return j2_mbc(Pt1, mod)(wir_r, a, b);
}
}
u2_noun // transfer
j2_mb(Pt6, fitz)(u2_wire wir_r,
u2_noun cor) // retain
{
u2_noun yaz, wix;
if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &yaz, u2_cv_sam_3, &wix, 0)) ||
(u2_no == u2ud(yaz)) ||
(u2_no == u2ud(wix)) )
{
return u2_bl_bail(wir_r, c3__fail);
} else {
return j2_mby(Pt6, fitz)(wir_r, yaz, wix);
}
}
u2_noun // produce
j2_mc(Pt5, comp, fun)(u2_wire wir_r,
u2_noun cor) // retain
{
u2_noun van, raq, vex, sab;
if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &vex,
u2_cv_sam_3, &sab,
u2_cv_con, &van, 0)) ||
(u2_none == (raq = u2_frag(u2_cv_sam, van))) )
{
return u2_bl_bail(wir_r, c3__fail);
} else {
return j2_mcx(Pt5, comp, fun)(wir_r, raq, vex, sab);
}
}
u2_noun // produce
j2_mc(Pt5, glue, fun)(u2_wire wir_r,
u2_noun cor) // retain
{
u2_noun van, bus, vex, sab;
if ( (u2_no == u2_mean(cor, u2_cw_con, &van,
u2_cw_sam_2, &vex,
u2_cw_sam_3, &sab, 0)) ||
(u2_none == (bus = u2_frag(u2_cw_sam, van))) )
{
return u2_bl_bail(wir_r, c3__fail);
} else {
return j2_mcx(Pt5, glue, fun)(wir_r, bus, vex, sab);
}
}
u2_weak
j2_mc(Pt5, aesc, en)(u2_wire wir_r,
u2_noun cor)
{
u2_noun a, b;
if ( u2_no == u2_mean(cor, u2_cv_sam_2, &a, u2_cv_sam_3, &b, 0) ||
u2_no == u2_stud(a) ||
u2_no == u2_stud(b) )
{
return u2_bl_bail(wir_r, c3__exit);
}
else {
return j2_mcd(Pt5, aesc, en)(wir_r, a, b);
}
}
/* functions
*/
u2_weak
j2_md(Pt5, coco, co, oxco)(u2_wire wir_r,
u2_noun cor)
{
u2_atom bas, gop;
u2_noun dug;
if ( u2_no == u2_mean(cor, u2_cv_sam_4, &bas,
u2_cv_sam_5, &gop,
u2_cv_sam_3, &dug,
0) )
{
return u2_bl_bail(wir_r, c3__exit);
}
return 0;
}
/* boilerplate
*/
u2_noun // transfer
j2_mc(Pt6, ut, nest)(u2_wire wir_r,
u2_noun cor) // retain
{
u2_noun sut, tel, ref, van;
if ( (u2_no == u2_mean(cor, u2_cw_con, &van,
u2_cw_sam_2, &tel,
u2_cw_sam_3, &ref, 0)) ||
(u2_no == u2_stud(tel)) || (tel > 1) ||
(u2_none == (sut = u2_frag(u2_cw_sam, van))) )
{
return u2_bl_bail(wir_r, c3__fail);
} else {
return j2_mcx(Pt6, ut, nest)(wir_r, van, sut, tel, ref);
}
}
u2_noun // transfer
j2_mc(Pt6, ut, swab)(u2_wire wir_r,
u2_noun cor) // retain
{
u2_noun van, sut, men, har;
if ( (u2_no == u2_mean(cor, u2_cw_con, &van,
u2_cw_sam_2, &men,
u2_cw_sam_3, &har,
0)) ||
(u2_none == (sut = u2_frag(u2_cw_sam, van))) )
{
return u2_bl_bail(wir_r, c3__fail);
} else {
return j2_mcx(Pt6, ut, swab)(wir_r, van, sut, men, har);
}
}
u2_noun // transfer
j2_mc(Pt6, ut, tack)(u2_wire wir_r,
u2_noun cor) // retain
{
u2_noun van, sut, peh, mur;
if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &peh,
u2_cv_sam_3, &mur,
u2_cv_con, &van,
0)) ||
(u2_none == (sut = u2_frag(u2_cv_sam, van))) )
{
return u2_bl_bail(wir_r, c3__fail);
} else {
return j2_mcx(Pt6, ut, tack)(wir_r, van, sut, peh, mur);
}
}
u2_noun // produce
j2_mc(Pt6, ut, mint)(u2_wire wir_r,
u2_noun cor) // retain
{
u2_noun sut, gol, gen, van;
if ( (u2_no == u2_mean(cor, u2_cw_con, &van,
u2_cw_sam_2, &gol,
u2_cw_sam_3, &gen,
0)) ||
(u2_none == (sut = u2_frag(u2_cw_sam, van))) )
{
return u2_bl_bail(wir_r, c3__fail);
} else {
return j2_mcx(Pt6, ut, mint)(wir_r, van, sut, gol, gen);
}
}
u2_noun // transfer
j2_mc(Pt6, ut, seek)(u2_wire wir_r,
u2_noun cor) // retain
{
u2_noun sut, way, hyp, van;
if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &way,
u2_cv_sam_3, &hyp,
u2_cv_con, &van,
0)) ||
(u2_none == (sut = u2_frag(u2_cv_sam, van))) )
{
return u2_bl_bail(wir_r, c3__fail);
} else {
return j2_mcx(Pt6, ut, seek)(wir_r, van, sut, way, hyp);
}
}
u2_weak
j2_mck(Pt6, ut, find)(u2_wire wir_r,
u2_noun cor)
{
u2_noun sut, way, cog, van;
if ( (u2_no == u2_mean(cor, u2_cw_con, &van,
u2_cw_sam_2, &way,
u2_cw_sam_3, &cog,
0)) ||
(u2_none == (sut = u2_frag(u2_cw_sam, van))) )
{
return u2_none;
} else {
return u2_rt
(wir_r, u2_rx(wir_r, sut), u2_rx(wir_r, way), u2_rx(wir_r, cog));
}
}
u2_noun // transfer
j2_mc(Pt6, ut, cull)(u2_wire wir_r,
u2_noun cor) // retain
{
u2_noun sut, axe, pol, ref, van;
if ( (u2_no == u2_mean(cor, u2_cw_con, &van,
u2_cw_sam_2, &pol,
u2_cw_sam_6, &axe,
u2_cw_sam_7, &ref, 0)) ||
(u2_no == u2_stud(axe)) ||
(u2_none == (sut = u2_frag(u2_cw_sam, van))) )
{
return u2_bl_bail(wir_r, c3__fail);
} else {
return j2_mcx(Pt6, ut, cull)(wir_r, van, sut, pol, axe, ref);
}
}
u2_noun // transfer
j2_mc(Pt6, ut, mull)(u2_wire wir_r,
u2_noun cor) // retain
{
u2_noun sut, gol, dox, gen, van;
if ( (u2_no == u2_mean(cor, u2_cw_con, &van,
u2_cw_sam_2, &gol,
u2_cw_sam_6, &dox,
u2_cw_sam_7, &gen,
0)) ||
(u2_none == (sut = u2_frag(u2_cw_sam, van))) )
{
return u2_bl_bail(wir_r, c3__fail);
} else {
return j2_mcx(Pt6, ut, mull)(wir_r, van, sut, gol, dox, gen);
}
}
u2_weak // transfer
j2_mb(Pt3, cat)(u2_wire wir_r,
u2_noun cor) // retain
{
u2_noun a, b, c;
if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &a,
u2_cv_sam_6, &b,
u2_cv_sam_7, &c, 0)) ||
(u2_no == u2_stud(a)) ||
(u2_no == u2_stud(b)) ||
(u2_no == u2_stud(c)) )
{
return u2_bl_bail(wir_r, c3__exit);
} else {
return j2_mbc(Pt3, cat)(wir_r, a, b, c);
}
}
u2_noun // transfer
j2_mc(Pt6, ut, fink)(u2_wire wir_r,
u2_noun cor) // retain
{
u2_noun sut, dep, way, cog, van;
if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &dep,
u2_cv_sam_6, &way,
u2_cv_sam_7, &cog,
u2_cv_con, &van,
0)) ||
(u2_none == (sut = u2_frag(u2_cv_sam, van))) )
{
return u2_bl_bail(wir_r, c3__fail);
} else {
return j2_mcx(Pt6, ut, fink)(wir_r, van, sut, dep, way, cog);
}
}
u2_noun // transfer
j2_mc(Pt6, ut, tusk)(u2_wire wir_r,
u2_noun cor) // retain
{
u2_noun van, sut, hep, boz, rix;
if ( (u2_no == u2_mean(cor, u2_cw_con, &van,
u2_cw_sam_2, &hep,
u2_cw_sam_6, &boz,
u2_cw_sam_7, &rix,
0)) ||
(u2_none == (sut = u2_frag(u2_cw_sam, van))) )
{
return u2_bl_bail(wir_r, c3__fail);
} else {
return j2_mcx(Pt6, ut, tusk)(wir_r, van, sut, hep, boz, rix);
}
}
u2_weak
j2_mck(Pt6, ut, seek)(u2_wire wir_r,
u2_noun cor)
{
u2_noun sut, way, hyp, van;
if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &way,
u2_cv_sam_3, &hyp,
u2_cv_con, &van,
0)) ||
(u2_none == (sut = u2_frag(u2_cv_sam, van))) )
{
return u2_none;
} else {
return u2_rt
(wir_r, u2_rx(wir_r, sut), u2_rx(wir_r, way), u2_rx(wir_r, hyp));
}
}
u2_noun // transfer
j2_mc(Pt6, ut, park)(u2_wire wir_r,
u2_noun cor) // retain
{
u2_noun sut, way, axe, van;
if ( (u2_no == u2_mean(cor, u2_cw_con, &van,
u2_cw_sam_2, &way,
u2_cw_sam_3, &axe,
0)) ||
(u2_no == u2_stud(axe)) ||
(u2_none == (sut = u2_frag(u2_cw_sam, van))) )
{
return u2_bl_bail(wir_r, c3__fail);
} else {
return j2_mcx(Pt6, ut, park)(wir_r, van, sut, way, axe);
}
}
static u2_noun // produce
_gain_in(u2_wire wir_r,
u2_noun van, // retain
u2_noun sut, // retain
u2_noun gen) // retain
{
u2_noun p_gen, q_gen;
if ( u2_no == u2_dust(gen) ) {
return u2_rx(wir_r, sut);
} else switch ( u2_h(gen) ) {
default: return u2_rx(wir_r, sut);
case c3__wtts: {
if ( u2_no == u2_mean(gen, 6, &p_gen, 7, &q_gen, 0) ) {
return u2_bl_bail(wir_r, c3__fail);
} else {
u2_noun rac = j2_mcy(Pt6, ap, rake)(wir_r, q_gen);
u2_noun hap = j2_mcy(Pt6, ut, play)(wir_r, van, sut, p_gen);
u2_noun guz = j2_mcy(Pt6, ut, seek)(wir_r, van, sut, c3__read, rac);
u2_noun axe = u2_h(guz);
u2_noun ret = j2_mcy(Pt6, ut, cull)
(wir_r, van, sut, u2_yes, axe, hap);
u2_rz(wir_r, guz);
u2_rz(wir_r, hap);
u2_rz(wir_r, rac);
return ret;
}
}
case c3__wtpm: {
return _gain_wtpm(wir_r, van, sut, u2_t(gen));
}
case c3__zpcb: u2_bi_cell(wir_r, u2_t(gen), &p_gen, &q_gen);
{
return j2_mcx(Pt6, ut, gain)(wir_r, van, sut, q_gen);
}
case c3__zphs: p_gen = u2_t(gen);
{
return j2_mcx(Pt6, ut, gain)(wir_r, van, sut, p_gen);
}
}
}
u2_noun // transfer
j2_mc(Pt6, ut, heal)(u2_wire wir_r,
u2_noun cor) // retain
{
u2_noun van, sut, qog, axe, ref;
if ( (u2_no == u2_mean(cor, u2_cv_sam_2, &qog,
u2_cv_sam_6, &axe,
u2_cv_sam_7, &ref,
u2_cv_con, &van,
0)) ||
(u2_no == u2_stud(axe)) ||
(u2_none == (sut = u2_frag(u2_cv_sam, van))) )
{
return u2_bl_bail(wir_r, c3__fail);
} else {
return j2_mcx(Pt6, ut, heal)(wir_r, van, sut, qog, axe, ref);
}
}
