Create lock_unlock.R

example for: global variable, <<-, <-