function rnc($n){$m=array(M,CM,D,CD,C,XC,L,XL,X,IX,V,IV,I);$a=array(1000,900,500,400,100,90,50,40,10,9,5,4,1);for($i=0;$i<13;$i++){if($n>=$a[$i]){$n=$n-$a[$i];$r.=$m[$i];$i--;}}return$r;}