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