sig
  type t =
      Parsing_whitespace
    | Parsing_atom
    | Parsing_list
    | Parsing_sexp_comment
    | Parsing_block_comment
  val to_string : Pre_sexp.Cont_state.t -> string
end