doubleHam :: String -> String
doubleHam "ham" = "ham"
doubleHam s = s ++ "ham"

main :: IO ()
main = putStrLn . doubleHam =<< getLine