Scanf.scanf "%d %d %d" (fun y m d -> let s = Printf.sprintf "%04d%02d%02d" y m d in print_endline @@ if s >= "19890108" && s <= "20190430" then "Yes" else "No" )