static u2_noun // produce
_next(u2_wire wir_r,
u2_noun tub) // retain
{
u2_noun p_tub, q_tub;
u2_noun zac;
u2_bi_cell(wir_r, tub, &p_tub, &q_tub);
if ( u2_no == u2_dust(q_tub) ) {
return _fail(wir_r, tub);
}
else {
u2_noun iq_tub = u2_h(q_tub);
u2_noun tq_tub = u2_t(q_tub);
zac = _slip(wir_r, iq_tub, p_tub);
return u2_bc
(wir_r, zac,
u2_bq(wir_r, u2_nul,
u2_rx(wir_r, iq_tub),
u2_rx(wir_r, zac),
u2_rx(wir_r, tq_tub)));
}
}
static u3_noun
_next(u3_noun tub)
{
u3_noun p_tub, q_tub;
u3_noun zac;
u3x_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)));
}
}
