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

solve :: String -> String
solve xs = xs ++ "ham"