import Control.Applicative ((<$>))

main :: IO ()
main = solve <$> getLine >>= putStrLn

solve :: String -> String
solve ss
  | ss == "ham" = "ham"
  | otherwise = ss ++ "ham"