#!/usr/bin/perl
while(<>){
s/À/\\\`A/g;
s/à/\\\`a/g;
s/Á/\\\'A/g;
s/á/\\\'a/g;
s/Â/\\\^A/g;
s/â/\\\^a/g;
s/È/\\\`E/g;
s/è/\\\`e/g;
s/É/\\\'E/g;
s/é/\\\'e/g;
s/Ê/\\\^E/g;
s/ê/\\\^e/g;
s/Ì/\\\`I/g;
s/ì/\\\`i/g;
s/Í/\\\'I/g;
s/í/\\\'\{\\i\}/g;
s/Î/\\\^I/g;
s/î/\\\^i/g;
s/Ò/\\\`O/g;
s/ò/\\\`o/g;
s/Ó/\\\'O/g;
s/ó/\\\'o/g;
s/Ô/\\\^O/g;
s/ô/\\\^o/g;
s/Ù/\\\`U/g;
s/ù/\\\`u/g;
s/Ú/\\\'U/g;
s/ú/\\\'u/g;
s/Û/\\\^U/g;
s/û/\\\^u/g;
s/Ç/\\c C/g;
s/ç/\\c c/g;
s/Ã/\\\~A/g;
s/ã/\\\~a/g;
s/Ü/\\\"U/g;
s/ü/\\\"u/g;
print;
}