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