module View: sig end
sig end
class type view = object end
object end
val add_view : view -> string -> unit
view -> string -> unit
add_view view label
view
label