ex 3.13 foldRightViaFoldLeft (todo: reverse)