1 /* j/2/lent.c
2 **
3 */
4 #include "all.h"
5 
6 
7 /* functions
8 */
9   u3_noun
u3qb_lent(u3_noun a)10   u3qb_lent(u3_noun a)
11   {
12     u3_noun len = 0;
13 
14     while ( 1 ) {
15       if ( 0 == a ) {
16         return len;
17       }
18       else if ( c3n == u3du(a) ) {
19         u3z(len);
20         return u3m_bail(c3__exit);
21       }
22       else {
23         len = u3i_vint(len);
24         a = u3t(a);
25       }
26     }
27   }
28   u3_noun
u3wb_lent(u3_noun cor)29   u3wb_lent(u3_noun cor)
30   {
31     u3_noun a;
32 
33     if ( u3_none == (a = u3r_at(u3x_sam, cor)) ) {
34       return u3m_bail(c3__exit);
35     } else {
36       return u3qb_lent(a);
37     }
38   }
39   u3_noun
u3kb_lent(u3_noun a)40   u3kb_lent(u3_noun a)
41   {
42     u3_noun b = u3qb_lent(a);
43 
44     u3z(a);
45     return b;
46   }
47 
48