on foo
  global x
  put x
end