let get_some = function
  | Some s -> s
  | None -> raise Not_found