1 /* j/6/gain.c
2 **
3 */
4 #include "all.h"
5 
6 
7   u3_noun
u3qfu_gain(u3_noun van,u3_noun sut,u3_noun gen)8   u3qfu_gain(u3_noun van,
9              u3_noun sut,
10              u3_noun gen)
11   {
12     u3_noun von = u3i_molt(u3k(van), u3x_sam, u3k(sut), 0);
13     u3_noun gat = u3j_hook(von, "gain");
14 
15     return u3n_kick_on(u3i_molt(gat, u3x_sam, u3k(gen), 0));
16   }
17