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