class ĠInteger To R oman Ġ{ ĊĊĠĠĠ Ġfun Ġint To R oman ( num : ĠInt ) Ġ: ĠString Ġ{ ĊĠĠĠĠĠĠĠ Ġvar Ġmodified Ġ= Ġnum ĊĠĠĠĠĠĠĠ Ġvar Ġrom an Ġ= Ġ"" ĊĠĠĠĠĠĠĠ Ġval Ġrom an Map Ġ= Ġmap Of ( Pair ( 1 0 0 0 , Ġ" M "), ĠPair ( 9 0 0 , Ġ" CM "), ĠPair ( 5 0 0 , Ġ" D "), ĠPair ( 4 0 0 , Ġ" CD "), ĠPair ( 1 0 0 , Ġ" C "), ĠPair ( 9 0 , Ġ" XC "), ĠPair ( 5 0 , Ġ" L "), ĠPair ( 4 0 , Ġ" XL "), ĠPair ( 1 0 , Ġ" X "), ĠPair ( 9 , Ġ" IX "), ĠPair ( 5 , Ġ" V "), ĠPair ( 4 , Ġ" IV "), ĠPair ( 1 , Ġ" I ")) ĊĠĠĠĠĠĠĠ Ġrom an Map . entries . forEach { ĊĠĠĠĠĠĠĠĠĠĠĠ Ġwhile Ġ( modified Ġ/ Ġit . key Ġ!= Ġ 0 ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġrom an Ġ+= Ġit . value ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġmodified -= it . key ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġreturn Ġrom an ĊĠĠĠ Ġ} Ċ Ċ }