let main () : unit Deferred.t = sum123 () >>= fun () -> sum456 () >>= fun () -> sum789 () >>= fun () -> sum111 () >>= fun () -> sum222 () >>= fun () -> return ()