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