3.9 Compute the length of a list using foldRight