
 $
stable_pal0:='(p nut numu nue ef qu qd qs mu pr1 pr2 pr3 pr4
pr5 qc pr26 pr27 pr14 pr15 pr16 pr28 pr29 pr30 pr31 pr17 
pr18 pr19 pr20 pr32 pr33 pr21 pr22 pr34 pr35 tau pr23 pr36 
pr37 pr38 pr39 pr40 pr41 pr42 pr43 pr44 pr45 pr46 pr47 pr48
pr49 pr24 pr25 pr50 pr51 pr6 pr7 pr8 pr9 pr10 pr11 pr12 pr13
qb w qt)
 $
any_type_list:='((any_ext pr4 pr3 pr2 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 pr23 pr24 pr25 pr26 pr27
pr28 pr29 pr30 pr31 pr32 pr33 pr34 pr35 pr36 pr37 pr38 pr39
pr40 pr41 pr42 pr43 pr44 pr45 pr46 pr47 pr48 pr49 pr50 pr51
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
pr23 pr24 pr25 pr26 pr27 pr28 pr29 pr30 pr31 pr32 pr33 pr34
pr35 pr36 pr37 pr38 pr39 pr40 pr41 pr42 pr43 pr44 pr45 pr46
pr47 pr48 pr49 pr50 pr51 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 pr3 pr4) (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;
 $
