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