-- yukicoder My Practice -- author: Leonardone @ NEETSDKASU main = ((=<<) (\x -> (putStrLn (if ((==) x "ham") then ("ham") else ((++) x "ham")))) (getLine))