Scanf.scanf "%d" (fun s ->
    print_endline @@ if s >= 400 then "Yes" else "No"
)