#!/usr/local/bin/perl
while (<STDIN>) {
	s/á/&aacute;/g;
	s/Á/&Aacute;/g;
	s/é/&eacute;/g;
	s/É/&Eacute;/g;
	s/í/&iacute;/g;
	s/Í/&Iacute;/g;
	s/ó/&oacute;/g;
	s/Ó/&Oacute;/g;
	s/ö/&ouml;/g;
	s/Ö/&Ouml;/g;
	s/õ/&otilde;/g;
	s/Õ/&Otilde;/g;
	s/ô/&otilde;/g;
	s/Ô/&Otilde;/g;
	s/ú/&uacute;/g;
	s/Ú/&Uacute;/g;
	s/ü/&uuml;/g;
	s/Ü/&Uuml;/g;
	s/û/&ucirc;/g;
	s/Û/&Ucirc;/g;
print "$_";
}