global a, b
a = "one"
b = "two"

print a, b
call swap(a, b)
print a, b
end

subroutine swap(a, b)
  temp = a : a = b : b = temp
end subroutine