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($r{($i+1)}==($i-1)) {
					$p++;$i++;
				}
				if($r{($i+1)}==$n[($b+1)][1]) {
					for($c=0;$c<count($n);$c++) {
						if($r{($i+1)}==$n[$c][1]) {
							$t+=($n[$b][0]-$n[$c][0]);
						}
					}
				}
				$t+=($p*$n[$b][0]);
			}
		}
echo $t."\n";
	}
}

/*
				if($r{($i+1)}==$n[($b+1)][1]) {
					$t+=($n[$b][0]-$n[($b+1)][0]);
				} else {

*/