let time () : unit Deferred.t =
  after (sec 1.) >>= fun () -> printf "%d\n" 1;
  after (sec 1.) >>= fun () -> printf "%d\n" 2;
  after (sec 1.) >>| fun () -> printf "%d\n" 3