main = getLine >>= putStrLn . (\s -> if s == "ham" then s else s ++ "ham")