Parser.Stack
type t =
| Empty
| Open of t
| Sexp of t * t
val to_list : t -> t list
val open_paren : t -> t
val close_paren : t -> t
val add_atom : string -> t -> t
val add_token : [ `other ] Lexer.token -> t -> t