#! /usr/local/bin/perl -w

use strict;

my $final_string = '';

while (<>) {
    chomp;

    if (m/([mM]{0,1})
          ([dD]{0,1})
          ([cC]{0,1})
          ([lL]{0,1})
          ([xX]{0,1})
          ([vV]{0,1})
          ([iI]{0,1})\b/x) {

	if (length($1) == 0) {
		$final_string = "\.";
	} else {
		$final_string = $1;
	}
	if (length($2) == 0) {
		$final_string .= "\.";
	} else {
		$final_string .= $2;
	}
	if (length($3) == 0) {
		$final_string .= "\.";
	} else {
		$final_string .= $3;
	}
	if (length($4) == 0) {
		$final_string .= "\.";
	} else {
		$final_string .= $4;
	}
	if (length($5) == 0) {
		$final_string .= "\.";
	} else {
		$final_string .= $5;
	}
	if (length($6) == 0) {
		$final_string .= "\.";
	} else {
		$final_string .= $6;
	}
	if (length($7) == 0) {
		$final_string .= "\.";
	} else {
		$final_string .= $7;
	}

        print "$final_string\n";
        $final_string = '';

    } 
}

##</code><code>##

I
IV
V
VI
IX
X
XI
XIV
XV
XVI
XIX
X
XL
LX
XC
CLXIX
CDXLVI
MCMXCVI
MDCLI

##</code><code>##

......I
.......
.....V.
.....VI
.......
....X..
....X.I
.......
....XV.
....XVI
.......
....X..
.......
...LX..
.......
.......
.......
.......
MDCL..I

##</code><code>##

......I
.....V.
.....V.
.....VI
....X..
....X..
....X.I
....XV.
....XV.
....XVI
....X.I
....X..
....X..
...LX..
....X..
..CLX.I
.D..XVI
M.C.XVI
MDCL..I