A Monte Carlo code to calculate transmission efficiency of HIRA