let lexfail msg =
    raise (Failure("Line " ^ string_of_int !line_number ^ ": " ^ msg))