S.Parsable
type t
val make : ?loc:Loc.t -> char Stdlib.Stream.t -> t
val comments : t -> ((int * int) * string) list