RosettaCodeData/Task/Integer-comparison/OCaml/integer-comparison.ml

let my_compare a b =
  if      a < b then "A is less than B"
  else if a > b then "A is greater than B"
  else if a = b then "A equals B"
  else "cannot compare NANs"

let () =
  let a = read_int ()
  and b = read_int () in
  print_endline (my_compare a b)