test1 <- function(x, y)
{
  a <- x + y
  print(a)
}
test1(10,20)
print(a)

test2 <- function(x, y)
{
  a <<- x + y
  print(a)
}
test2(10,20)
print(a)