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