#!/usr/bin/perl
#
# oldslav vf making: ligtable conversion for ascii.
#
my(%tbl) = (
			'O 106' =>	'O 224',
			'O 111' =>	'O 210',
			'O 117' =>	'O 216',
			'O 121' =>	'O 227',
			'O 123' =>	'O 221',
			'O 126' =>	'O 202',
			'O 127' =>	'O 231',
			'O 130' =>	'O 230',
			'O 131' =>	'O 233',
			'O 132' =>	'O 207',
			'O 145' =>	'O 245',
			'O 146' =>	'O 344',
			'O 151' =>	'O 250',
			'O 157' =>	'O 256',
			'O 161' =>	'O 347',
			'O 163' =>	'O 341',
			'O 166' =>	'O 242',
			'O 167' =>	'O 351',
			'O 170' =>	'O 350',
			'O 171' =>	'O 353',
			'O 172' =>	'O 247',
			'O 200' =>	'C A', #
			'O 201' =>	'C B', #
			'O 202' =>	'C V',
			'O 203' =>	'C G', #
			'O 204' =>	'C D', #
			'O 205' =>	'C E', #
			'O 207' =>	'C Z',
			'O 210' =>	'C I',
			'O 212' =>	'C K', #
			'O 213' =>	'C L', #
			'O 214' =>	'C M', #
			'O 215' =>	'C N', #
			'O 216' =>	'C O',
			'O 217' =>	'C P', #
			'O 220' =>	'C R', #
			'O 221' =>	'C S',
			'O 222' =>	'C T', #
			'O 223' =>	'C U', #
			'O 224' =>	'C F',
			'O 225' =>	'C H', #
			'O 226' =>	'C C', #
			'O 227' =>	'C Q',
			'O 230' =>	'C X',
			'O 231' =>	'C W',
			'O 233' =>	'C Y',
			'O 240' =>	'C a', #
			'O 241' =>	'C b', #
			'O 242' =>	'C v',
			'O 243' =>	'C g', #
			'O 244' =>	'C d', #
			'O 245' =>	'C e',
			'O 247' =>	'C z',
			'O 250' =>	'C i',
			'O 252' =>	'C k', #
			'O 253' =>	'C l', #
			'O 254' =>	'C m', #
			'O 255' =>	'C n', #
			'O 256' =>	'C o',
			'O 257' =>	'C p', #
			'O 340' =>	'C r', #
			'O 341' =>	'C s',
			'O 342' =>	'C t', #
			'O 343' =>	'C u', #
			'O 344' =>	'C f',
			'O 345' =>	'C h', #
			'O 346' =>	'C c', #
			'O 347' =>	'C q',
			'O 350' =>	'C x',
			'O 351' =>	'C w',
			'O 353' =>	'C y',
			'O 60' => 'C 0',
			'O 61' => 'C 1',
			'O 62' => 'C 2',
			'O 63' => 'C 3',
			'O 64' => 'C 4',
			'O 65' => 'C 5',
			'O 66' => 'C 6',
			'O 67' => 'C 7',
			'O 70' => 'C 8',
			'O 71' => 'C 9',
			'C F' =>	'O 224',
			'C I' =>	'O 210',
			'C O' =>	'O 216',
			'C Q' =>	'O 227',
			'C S' =>	'O 221',
			'C V' =>	'O 202',
			'C W' =>	'O 231',
			'C X' =>	'O 230',
			'C Y' =>	'O 233',
			'C Z' =>	'O 207',
			'C e' =>	'O 245',
			'C f' =>	'O 344',
			'C i' =>	'O 250',
			'C o' =>	'O 256',
			'C q' =>	'O 347',
			'C s' =>	'O 341',
			'C v' =>	'O 242',
			'C w' =>	'O 351',
			'C x' =>	'O 350',
			'C y' =>	'O 353',
			'C z' =>	'O 247'
		   );

my($ln, $oc, $hit, $tr) = "";
my($no) = 0;

while(<STDIN>) {
	$ln = $_;
	while ($ln =~ /C [a-zA-Z]|O [1-3][0-7][0-7]/g) {
		$hit = $&; $oc .= $`; $tr = $';
		if (exists($tbl{$hit})) {
			$oc .= $tbl{$hit};
		} else {
			$oc .= $hit;
		}
		$ln = $tr;
	}
	$oc .= $ln;
	print($oc); $oc = ""; ++$no;
}
printf(STDERR "$no lines.\n");