S.State
type t
val init : unit -> t
val set : t -> unit
val get : unit -> t
val drop : unit -> unit
val get_comments : t -> ((int * int) * string) list