#!/usr/bin/perl
# $FreeBSD$
# Transform Iso-8859-1 accents in SGML notation
while (<>) {
s/�/&Agrave;/g;
s/�/&Aacute;/g;
s/�/&Acirc;/g;
s/�/&Atilde;/g;
s/�/&Auml;/g;
s/�/&Aring;/g;
s/�/&Aring;/g;
s/�/&AElig;/g;
s/�/&Ccedil;/g;
s/�/&Egrave'/g;
s/�/&Eacute;/g;
s/�/&Ecirc;/g;
s/�/&Euml;/g;
s/�/&Igrave;/g;
s/�/&Iacute;/g;
s/�/&Icirc;/g;
s/�/&Iuml;/g;
s/�/&ETH;/g;
s/�/&Ntilde;/g;
s/�/&Ograve;/g;
s/�/&Oacute;/g;
s/�/&Ocirc;/g;
s/�/&Otilde;/g;
s/�/&Ouml;/g;
s/�/&times;/g;
s/�/&Oslash;/g;
s/�/&Ugrave;/g;
s/�/&Uacute;/g;
s/�/&Ucirc;/g;
s/�/&Uuml;/g;
s/�/&Yacute;/g;
s/�/&THORN;/g;
s/�/&szlig;/g;
s/�/&agrave;/g;
s/�/&aacute;/g;
s/�/&acirc;/g;
s/�/&atilde;/g;
s/�/&auml;/g;
s/�/&aring;/g;
s/�/&aring;/g;
s/�/&aelig;/g;
s/�/&ccedil;/g;
s/�/&egrave;/g;
s/�/&eacute;/g;
s/�/&ecirc;/g;
s/�/&euml;/g;
s/�/&igrave;/g;
s/�/&iacute;/g;
s/�/&icirc;/g;
s/�/&iuml;/g;
s/�/&eth;/g;
s/�/&ntilde;/g;
s/�/&ograve;/g;
s/�/&oacute;/g;
s/�/&ocirc;/g;
s/�/&otilde;/g;
s/�/&ouml;/g;
s/�/&divide;/g;
s/�/&oslash;/g;
s/�/&ugrave;/g;
s/�/&uacute;/g;
s/�/&ucirc;/g;
s/�/&uuml;/g;
s/�/&yacute;/g;
s/�/&thorn;/g;
s/�/&yuml;/g;
s/�/&iexcl;/g;
s/�/&iquest;/g;
print;
}