open System let ri () = stdin.ReadLine() |> int let ria () = stdin.ReadLine().Split() |> Array.map int type Sol() = member this.Solve() = let s = stdin.ReadLine() let t = if s = "ham" then "ham" else s + "ham" printfn "%s" t let mySol = new Sol() mySol.Solve()