proc isRoman {str} {

	set str [string toupper $str]

	set not 0

	foreach c [split $str {}] {

		case $c in {

		{I V X C L M} {
			continue
		}
		{default} {
			set not 1
		}

		}
	}

	if {$not} {
		return "NO"
	} else {
		return $str
	}
}
#---------------------------------------------------------------------------
