let basics () : unit Deferred.t =
  let i = Ivar.create () in
  don't_wait_for (after (sec 1.0) >>| fun () -> Ivar.fill i "hello");
  let d = Ivar.read i in
  d >>| print_endline