#!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
	if $running_under_some_shell;

while ($ARGV[0] =~ /^-/) {
    $_ = shift;
  last if /^--/;
    if (/^-n/) {
	$nflag++;
	next;
    }
    die "No reconozco el switch: $_\\n";
}
$printit++ unless $nflag;

$\ = "\n";		# aade newline automtico.

LINE:
while (<>) {
    chop;
    s//\\'a/g;
    s//\\'e/g;
    s//\\'\{\\i}/g;
    s//\\'o/g;
    s//\\'u/g;
    s//\\~n/g;
    s//\\~N/g;
    s//\?`/g;
    s//\!`/g;
    s/
$//;
    print if $printit;
}
