Stuff

<?
$n[0][]=1000;
$n[0][]=M;
$n[1][]=500;
$n[1][]=D;
$n[2][]=100;
$n[2][]=C;
$n[3][]=50;
$n[3][]=L;
$n[4][]=10;
$n[4][]=X;
$n[5][]=5;
$n[5][]=V;
$n[6][]=1;
$n[6][]=I;
//print_r($n);
//die;
$n[6][]='I';
while($r=fgets(STDIN)) {
	$t=0;
echo 'a';
	for($i=0;$i<strlen($r);$i++) {
echo 'b';
		$a=0;$p=1;
		for($b=0;$b<count($n);$b++) {
echo 'v';
			if($r{$i}==$n[$b][1]) {
				while(1) {
					for($c=0;$c<count($n);$c++) {
						if($r{($i+1)}==$n[$c)][1]) {
							break;
						}
					}
					if($c < $b) {
						$t+=($n[$c][0]-$n[$b][0]);
					} elseif($c == $b) {
						while($r{($i+1)}==($i-1)) {
							$p++;$i++;
						}
						$t+=($p*$n[$b][0]);
					} else {
						break;
					}
				}
			}
		}
echo $t."\n";
	}
}