object
  val mutable nesting_level : int
  val mutable text : string
  method append : string -> unit
  method decr : unit
  method get_comment : string
  method get_nesting_level : int
  method incr : unit
  method set_text : string -> unit
end