class comment_control :object
..end
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