let sum111 () : unit Deferred.t = return 1 >>= fun x -> return 1 >>= fun y -> return 1 >>| fun z -> printf "1 + 1 + 1 = %d\n" (x + y + z)