Scanf.scanf "%s" (fun s ->
    print_endline @@ s ^ "ham"
)