open System let dprintfn fmt = Printf.kprintf Diagnostics.Debug.WriteLine fmt [] let main argv = let s = Console.ReadLine().Trim() if s <> "ham" then Console.WriteLine(s + "ham") else Console.WriteLine("ham") 0