let int64_max a b =
  if Int64.compare a b < 0 then b else a