let
append child node =
node >>> call_method
"appendChild"
[| child |] >>> ignore