
 $
stable_pal0:='(p nut numu nue ef qu qd qs mu pr1 pr2 qc pr3
pr4 pr5 pr6 pr7 pr8 pr9 pr10 pr11 pr12 pr13 pr14 pr15 pr16 
tau pr17 pr18 pr19 pr20 pr21 pr22 qb w qt)
 $
any_type_list:='((any_ext pr1) (any_nf pr1 pr2 pr3 pr4 pr5 
pr6 pr7 pr8 pr9 pr10 pr11 pr12 pr13 pr14 pr15 pr16 pr17 pr18
pr19 pr20 pr21 pr22 gs w z p h0) (any pr1 pr2 pr3 pr4 pr5 
pr6 pr7 pr8 pr9 pr10 pr11 pr12 pr13 pr14 pr15 pr16 pr17 pr18
pr19 pr20 pr21 pr22 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;
 $
