let is_some = function
  | Some _ -> true
  | None -> false