sig
  val append :
    data:string ->
    ?displayof:'a Widget.widget ->
    ?format:string -> ?typ:string -> unit -> unit
  val clear : ?displayof:'a Widget.widget -> unit -> unit
end