Lwt.async (fun () ->
    let my_paragraph = Dom_html.getElementById "name_box" in
    print_endline "loaded";
    Lwt_js_events.clicks my_paragraph
      (fun ev thread -> Lwt.return (print_endline " clicked")) >>= fun () ->
    Lwt.return @@ print_endline "123")