let
node n l = { content = n ; children = l }