
 $
stable_pal0:='(p nut numu nue ef qu qd qs mu pr1 pr2 qc pr3
pr4 pr5 pr6 pr7 pr8 pr9 tau pr10 pr11 pr12 pr15 pr13 pr14 
pr16 qb w qt)
 $
any_type_list:='((any_ext pr2 pr1) (any_nf pr1 pr2 pr3 pr4 
pr5 pr6 pr7 pr8 pr9 pr10 pr11 pr12 pr13 pr14 pr15 pr16 gs w
z p h0) (any pr1 pr2 pr3 pr4 pr5 pr6 pr7 pr8 pr9 pr10 pr11 
pr12 pr13 pr14 pr15 pr16 gs w z p h0 qb qs qd qt qc qu tau 
mu ef nut numu nue) (any_f qb qs qd qt qc qu tau mu ef nut 
numu nue) (any_l nue numu nut ef mu tau) (any_q qu qc qt qd
qs qb) (any_b h0 gs w z p) (any_b1 gs w z p) (any_b0 h0))
 $
end;
 $
