1 2 3 4 5
exception Syntax_error of ((int * int) option * string) val get_lexing_position : Lexing.lexbuf -> int * int val default : 'a -> 'a option -> 'a