
 $
stable_pal0:='(pr2 p nut numu nue ef qu qd qs mu pr1 pr3 qc
pr4 pr5 pr6 pr7 pr8 pr9 pr10 pr11 tau pr12 pr13 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 gs w z p h0) (any 
pr1 pr2 pr3 pr4 pr5 pr6 pr7 pr8 pr9 pr10 pr11 pr12 pr13 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;
 $
