let comparison list =
  match list with
  | first :: second :: third :: [] -> first < second && second < third
  | _ -> false;;

let mystring_of_bool flag =
  match flag with
  | true -> "Yes"
  | false -> "No";;

read_line()
|> Str.split (Str.regexp " ")
|> comparison
|> mystring_of_bool
|> print_endline

