Foldr in scheme.