Scanf.scanf "%s" (fun s ->
    print_endline @@ (if s = "ham" then "ham" else s ^ "ham")
)