open! Lwt.Syntax
open! Portal_tcp

let () =
  Lwt_main.run @@
    let jid = Sys.getenv "FLESH_JID"
    and _password = Sys.getenv "FLESH_PASSWORD"
    in let domain = (List.nth (String.split_on_char '@' jid) 1)
       in let* stream, push = connect domain
          in push (Some "<a>");
             let+ s = Lwt_stream.get stream in
             Option.get s |> print_endline