chapter 2; exercise 7 - product with foldRight - not finished