LIST
C
C       e- 100 Mev; all processes
C 
CALOR   5 (Imat) 2000. (size) 0. (field)
TRIG    100
KINE    3 (Itype)   0.100 (Ekine)
DEBUG   10  5 1000
SWIT    0 (draw) 0 (save)
CUTS    10.e-6 (cutgam)    10.e-6 (cutele)  3*10.e-3 (cutneu/had/muo)
      2*10.e-6 (bcute/m) 2*10.e-6 (dcute/m)   10.e-3 (ppcutm)
ABAN    0
LOSS    1
TIME    2=1.