use strict;
use locale;

while ( my $nom = <STDIN> ) {
    chomp $nom;
    my $pluriel = $nom . "s";
    print $pluriel, "\n";
}