stdin.ReadLine()
  |> function 
    | "ham" -> "ham"
    |   x   -> x + "ham"
  |> stdout.WriteLine