use strict;
use locale;
while (my $ligne = <STDIN>){
    chomp($ligne);
    if($ligne =~ /^(.*)ant$/){
	print $1, "age\n";
    }
    else{
	warn $ligne, " la forme n'est pas un participe présent\n";
    }
}