let
add_child (
T
(msg,childs)) x =
T
(msg, childs @ [x])