use strict;
use warnings;

my $ans = <>;
chomp $ans;
print $ans.'ham'."\n";