sig
  type location = {
    file : string;
    start_line : int;
    end_line : int;
    start_char : int;
    end_char : int;
  } 
  val spawn : Location.location -> Location.location -> Location.location
  val print_location : Location.location -> unit
  val string_of_location : Location.location -> string
  val default_location : Location.location
end