Simplified `map'fr` (map using foldr)