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