let
on_clear f = gclear := !gclear @ [f]