chomp($s=<>);print $s,"ham\n"