sig
  type 'a t
  type 'a action
  val empty : 'LablgtkReact.M.t
  val on_action :
    ('a * 'b) LablgtkReact.M.t ->
    '-> 'LablgtkReact.M.action -> ('a * 'b) LablgtkReact.M.t
end