Added an example using foldr (not very interesting)