# macro for rdecay01
#
/control/verbose 1
/run/verbose 1
#
/gun/particle ion
/gun/ion 90 232
#
/process/had/rdm/thresholdForVeryLongDecayTime 10e+20 y
#
/analysis/setFileName kitu
/analysis/h1/set 9 100  0. 50. MeV  #total visible energy
#
/run/printProgress 1000  
/run/beamOn 10000