let sum789 () : unit Deferred.t = return 7 >>= fun x -> return 8 >>= fun y -> return 9 >>= fun z -> printf "7 + 8 + 9 = %d\n" (x + y + z); return ()