let
alert msg =
eval
"window"
>>> call_method
"alert"
[| string msg |] >>> ignore