rfba[f_, sy_, a_, n_] := Module[{z1, z2, z3, z4, z5, z6, z7, z8, z9, z10, z11, z12,
z13, z14, z15, z16, z17, z18, z19, z20, z21, syb}, 
{z1, z2, z3, z4, z5, z6, z7, z8, z9, z10, z11, z12, z13, z14, z15, z16, z17,z18, 
z19, z20, z21} = rfb[f, sy, a, n]; 
   If[ z7 > 0, Goto[o2] ]; 
   z7=0; Label[o2];
   If[ z8 > 0, Goto[o3] ]; z8=0;
   Label[o3];
   If[ z9 > 0, Goto[o4] ]; z9=0;
   Label[o4];
  syb = {z1, z2, z3, z4, z5, z6, z7, z8, z9, z10, z11, z12, z13, z14, z15, z16,       z17, z18, z19, z20, z21}; Return[syb]; ]