let choices_fill () : unit Deferred.t =
  (*
  let i = Ivar.create () in
  don't_wait_for (Deferred.all_unit [
    (after (sec 2.) >>| fun () -> Ivar.fill i "haskell");
    (after (sec 1.) >>| fun () -> Ivar.fill i "ocaml");
  ]);
  Ivar.read i >>= fun s ->
  print_endline s;
  *)
  return ()