Update RealWorldHaskell: MaybeTree.hs: add definition `MaybeTupleTree`