scoping.R demonstrates scoping.