Create Lexical Scoping.R