S.Parser
exception Parse_error of string
val premature_end_of_input : string
module Lexer : sig ... end
module Stack : sig ... end