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