let
clear () obj =
obj >>> set handlers_field (inject
Nil
) ;
obj >>> set name (inject
Nil
)