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