import Control.Applicative
import Data.List
main :: IO ()
main = do
  s <- getLine
  putStrLn $ solve s

solve :: [Char] -> [Char]
solve s
 | s == "ham" = s
 | otherwise = s ++ "ham"