function rnc($n,$p=-2,$s=""){$r=$n%10;$n/=10;$t="";$a="IVXLCDM";if($r==4||$r==9)return rnc($n,$p+2,$a{$p+2}.$a{$p+2+(int)($r/4)}.$s);elseif($r>4){$r-=5;$t=$a{$p+3};}while($r>0){$t.=$a{$p+2};$r--;}return($n>=1)?rnc($n,$p+2,$t.$s):$t.$s;}